0024927: Getting rid of "Persistent" functionality -- Code
[occt.git] / src / MDF / MDF_ASDriver.cdl
1 -- Created by: DAUTRY Philippe
2 -- Copyright (c) 1997-1999 Matra Datavision
3 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
4 --
5 -- This file is part of Open CASCADE Technology software library.
6 --
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
12 --
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
15
16 --              ----------------
17
18 ---Version:     0.0
19 --Version       Date            Purpose
20 --              0.0     Apr  4 1997     Creation
21
22
23 deferred class ASDriver from MDF
24     inherits TShared from MMgt
25
26         ---Purpose: Attribute Storage Driver.
27
28 uses
29
30     Attribute from TDF,
31     Attribute from PDF,
32     SRelocationTable from MDF, 
33     MessageDriver from CDM, 
34     ExtendedString from TCollection
35
36 -- raises
37
38 is
39     Initialize (theMessageDriver : MessageDriver from CDM); 
40     
41     VersionNumber(me) returns Integer from Standard
42         is deferred;
43         ---Purpose: Returns the version number from which the driver
44         --          is available.
45
46     SourceType(me) returns Type from Standard
47         is deferred;
48         ---Purpose: Returns the type of source object, inheriting from
49         --          Attribute from TDF.
50
51     NewEmpty(me)
52         returns Attribute from PDF
53         is deferred;
54         ---Purpose: Creates a new attribute from PDF.
55
56     Paste(me;
57           aSource     :         Attribute from TDF;
58           aTarget     : Attribute from PDF;
59           aRelocTable : SRelocationTable from MDF)
60         is deferred;
61         ---Purpose: Translate the contents of <aSource> and put it
62         --          into <aTarget>, using the relocation table
63         --          <aRelocTable> to keep the sharings. 
64         
65     WriteMessage (me; theMessage : ExtendedString from TCollection);
66         ---Purpose: To send message to Application (if MessageDriver defined) 
67         
68 fields 
69
70     myMessageDriver : MessageDriver from CDM;  
71     
72 end ASDriver;