projects / occt.git / blame
| Commit | Line | Data |
|---|---|---|
| 7fd59977 | 1 | -- File: CDF_StoreList.cdl |
| 2 | -- Created: Wed Mar 22 08:15:57 1995 | |
| 3 | -- Author: Jean-Louis Frenkel | |
| 4 | -- <rmi@pernox> | |
| 5 | ---Copyright: Matra Datavision 1995 | |
| 6 | ||
| 7 | private class StoreList from CDF inherits Transient from Standard | |
| 8 | ||
| 15e8b082 M |
9 | uses |
| 10 | Document from CDM, | |
| 11 | StackOfDocument from CDM, | |
| 12 | MapOfDocument from CDM, | |
| 13 | MapIteratorOfMapOfDocument from CDM, | |
| 14 | StackIteratorOfStackOfDocument from CDM, | |
| 15 | MetaData from CDM, | |
| 16 | ExtendedString from TCollection, | |
| 17 | StoreStatus from PCDM | |
| 7fd59977 | 18 | |
| 19 | raises NoSuchObject from Standard | |
| 20 | is | |
| 21 | ||
| 22 | Create(aDocument: Document from CDM) | |
| 23 | returns mutable StoreList from CDF; | |
| 24 | ||
| 25 | IsConsistent(me) returns Boolean from Standard; | |
| 26 | ||
| 27 | ||
| 28 | Store(me: mutable; aMetaData: out MetaData from CDM; | |
| 29 | aStatusAssociatedText: out ExtendedString from TCollection) | |
| 15e8b082 | 30 | returns StoreStatus from PCDM |
| 7fd59977 | 31 | ---Purpose: stores each object of the storelist in the reverse |
| 32 | -- order of which they had been added. | |
| 33 | raises NoSuchObject from Standard; | |
| 34 | ---Warning: if the active dbunit cannot be found | |
| 35 | ||
| 36 | ||
| 37 | ---Category: Private methods. | |
| 38 | ||
| 39 | ||
| 40 | Add(me: mutable; aDocument: Document from CDM) | |
| 41 | is private; | |
| 42 | ||
| 43 | ---Category: iteration methods | |
| 44 | Init(me: mutable); | |
| 45 | More(me) returns Boolean from Standard; | |
| 46 | Next(me: mutable); | |
| 47 | Value(me) returns Document from CDM; | |
| 48 | ||
| 49 | ||
| 50 | fields | |
| 51 | ||
| 52 | myItems: MapOfDocument from CDM; | |
| 53 | myStack: StackOfDocument from CDM; | |
| 54 | myIterator: MapIteratorOfMapOfDocument from CDM; | |
| 55 | myMainDocument: Document from CDM; | |
| 56 | end StoreList from CDF; |