| 1 | -- File: CDM.cdl |
| 2 | -- Created: Tue May 6 10:39:52 1997 |
| 3 | -- Author: Jean-Louis Frenkel, Remi Lequette |
| 4 | -- <rmi@frilox.paris1.matra-dtv.fr> |
| 5 | ---Copyright: Matra Datavision 1997 |
| 6 | |
| 7 | package CDM |
| 8 | |
| 9 | |
| 10 | uses TCollection,TColStd,Resource |
| 11 | |
| 12 | is |
| 13 | |
| 14 | enumeration CanCloseStatus is CCS_OK, CCS_NotOpen, CCS_UnstoredReferenced,CCS_ModifiedReferenced,CCS_ReferenceRejection |
| 15 | end CanCloseStatus from CDM; |
| 16 | |
| 17 | |
| 18 | class MetaData; |
| 19 | |
| 20 | deferred class MessageDriver; |
| 21 | |
| 22 | deferred class Document; |
| 23 | |
| 24 | class ReferenceIterator; |
| 25 | |
| 26 | class NullMessageDriver; |
| 27 | ---Purpose: a MessageDriver that writes nowhere. |
| 28 | |
| 29 | class COutMessageDriver; |
| 30 | ---Purpose: aMessageDriver for output to COUT (only ASCII strings) |
| 31 | |
| 32 | ---Category: classes to manager automatic naming of documents. |
| 33 | |
| 34 | private alias NamesDirectory is DataMapOfStringInteger from TColStd; |
| 35 | ---Purpose: this map will allows to get a directory object from a name. |
| 36 | |
| 37 | private class PresentationDirectory instantiates DataMap from TCollection |
| 38 | ---Purpose: this map will allows to get a directory object from a name. |
| 39 | (ExtendedString from TCollection, |
| 40 | Document from CDM, |
| 41 | ExtendedString from TCollection); |
| 42 | |
| 43 | private pointer DocumentPointer to Document from CDM; |
| 44 | private class Reference; |
| 45 | |
| 46 | private class ListOfReferences instantiates List from TCollection(Reference from CDM); |
| 47 | deferred class Application; |
| 48 | |
| 49 | private class MetaDataLookUpTable instantiates DataMap from TCollection(ExtendedString from TCollection, MetaData from CDM, ExtendedString from TCollection); |
| 50 | |
| 51 | |
| 52 | ---Category: reusable classes |
| 53 | |
| 54 | class DocumentHasher instantiates MapHasher from TCollection(Document from CDM); |
| 55 | class MapOfDocument instantiates Map from TCollection(Document from CDM, DocumentHasher from CDM); |
| 56 | class ListOfDocument instantiates List from TCollection(Document from CDM); |
| 57 | class StackOfDocument instantiates Stack from TCollection(Document from CDM); |
| 58 | |
| 59 | end CDM; |