1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
-- File: PCDM.cdl
-- Created: Fri Aug 1 15:22:57 1997
-- Author: Jean-Louis Frenkel
-- <rmi@frilox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1997
package PCDM
uses
CDM,TColStd,TCollection,Storage
is
enumeration ReaderStatus is
RS_OK,
RS_NoDriver,
RS_UnknownFileDriver,
RS_OpenError,
RS_NoVersion,
RS_NoSchema,
RS_NoDocument,
RS_ExtensionFailure,
RS_WrongStreamMode,
RS_FormatFailure,
RS_TypeFailure,
RS_TypeNotFoundInSchema,
RS_UnrecognizedFileFormat,
RS_MakeFailure,
RS_PermissionDenied,
RS_DriverFailure,
RS_AlreadyRetrievedAndModified,
RS_AlreadyRetrieved,
RS_UnknownDocument,
RS_WrongResource,
RS_NoModel
end ReaderStatus;
enumeration StoreStatus is
SS_OK,
SS_DriverFailure,
SS_WriteFailure,
SS_Failure,
SS_DiskWritingFailure,
SS_UserRightsFailure,
SS_Doc_IsNull,
SS_No_Obj,
SS_Info_Section_Error
end StoreStatus;
deferred class Document;
class SequenceOfDocument instantiates Sequence from TCollection(Document from PCDM);
deferred class Reader;
deferred class Writer;
deferred class RetrievalDriver;
deferred class StorageDriver;
class ReferenceIterator;
---Category: exceptions
exception DriverError inherits Failure from Standard;
---Category: classes for versioning reading/writing og the headers.
private class Reference;
private class SequenceOfReference instantiates Sequence from TCollection(Reference from PCDM);
private deferred class ReadWriter;
private class ReadWriter_1;
---Category: type of FileDriver;
--
private enumeration TypeOfFileDriver is TOFD_File, TOFD_CmpFile, TOFD_Unknown
end TypeOfFileDriver from PCDM;
private pointer BaseDriverPointer to BaseDriver from Storage;
---Category: drivers plugin.
--
FindStorageDriver(aDocument: Document from CDM)
returns Boolean from Standard;
StorageDriver(aDocument: Document from CDM)
returns StorageDriver from PCDM
raises NoSuchObject from Standard;
---Purpose: gets in the EuclidDesktop resource the plugin
-- identifier of the driver plugs the driver.
--
Schema(aSchemaName: ExtendedString from TCollection;
anApplication: Application from CDM)
---Purpose: returns a schema to be used during a Store or Retrieve
-- operation.
-- Schema will plug the schema defined by
-- the SchemaName method.
returns Schema from Storage;
FileDriverType(aFileName: AsciiString from TCollection; aBaseDriver: out BaseDriverPointer from PCDM)
returns TypeOfFileDriver from PCDM
is private;
end PCDM;
|