b311480e |
1 | -- Created on: 1997-08-07 |
2 | -- Created by: VAUTHIER Jean-Claude |
3 | -- Copyright (c) 1997-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
8 | -- This library is free software; you can redistribute it and/or modify it under |
9 | -- the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
10 | -- by the Free Software Foundation, with special exception defined in the file |
11 | -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
12 | -- distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
b311480e |
16 | |
7fd59977 |
17 | -- modified Sergey Zaritchny |
7fd59977 |
18 | |
19 | |
20 | |
21 | package MDataXtd |
22 | |
23 | ---Purpose: Storage and Retrieval drivers for modelling |
24 | -- attributes. Transient attributes are defined in |
25 | -- package TDataStd and persistent one are defined in |
26 | -- package PDataStd |
27 | |
28 | uses TDF, |
29 | PDF, |
30 | MDF, |
31 | CDM, |
32 | TDataStd, |
33 | TDataXtd, |
34 | Geom, -- a supprimer des que Translate est poussee dans MgtGeom |
35 | PGeom -- a supprimer des que Translate est poussee dans MgtGeom |
36 | |
37 | is |
38 | |
ff8178ef |
39 | ---Category: Storage drivers for TDataXtd attributes |
40 | -- ======================================= |
7fd59977 |
41 | |
42 | class ShapeStorageDriver; |
43 | |
44 | class PointStorageDriver; |
45 | |
46 | class AxisStorageDriver; |
47 | |
48 | class PlaneStorageDriver; |
49 | |
50 | class GeometryStorageDriver; |
51 | |
52 | class ConstraintStorageDriver; |
53 | |
54 | class PlacementStorageDriver; |
55 | |
56 | class PatternStdStorageDriver; |
57 | |
58 | |
59 | |
ff8178ef |
60 | ---Category: Retrieval drivers for PDataXtd attributes |
61 | -- ========================================= |
7fd59977 |
62 | |
63 | class ShapeRetrievalDriver; |
64 | |
65 | class PointRetrievalDriver; |
66 | |
67 | class AxisRetrievalDriver; |
68 | |
69 | class PlaneRetrievalDriver; |
70 | |
71 | class GeometryRetrievalDriver; |
72 | |
73 | class ConstraintRetrievalDriver; |
74 | |
75 | class PlacementRetrievalDriver; |
76 | |
77 | class PatternStdRetrievalDriver; |
78 | |
79 | |
80 | |
81 | AddStorageDrivers(aDriverSeq : ASDriverHSequence from MDF; theMessageDriver : MessageDriver from CDM); |
82 | ---Purpose: Adds the attribute storage drivers to <aDriverSeq>. |
83 | |
84 | |
85 | AddRetrievalDrivers(aDriverSeq : ARDriverHSequence from MDF; theMessageDriver : MessageDriver from CDM); |
86 | ---Purpose: Adds the attribute retrieval drivers to <aDriverSeq>. |
87 | |
88 | |
89 | Translate (Geometry : Geometry from Geom) |
90 | ---Purpose: Method to launch in MgtGeom |
91 | -- Delete MDataStd_1.cxx |
92 | -- Modify MDataStd_GeometryStorageDriver::Paste |
93 | returns Geometry from PGeom; |
94 | |
95 | |
96 | Translate (Geometry : Geometry from PGeom) |
97 | ---Purpose : Method to lasunch in MgtGeom |
98 | -- Delete MDataStd_1.cxx |
99 | -- Modify MDataStd_GeometryRetrievalDriver::Paste |
100 | returns Geometry from Geom; |
101 | |
102 | |
103 | ---Purpose: Translation of TDataXtd enumerations to integer |
104 | -- =============================================== |
105 | |
106 | ConstraintTypeToInteger (e : ConstraintEnum from TDataXtd) |
107 | returns Integer from Standard; |
108 | |
109 | IntegerToConstraintType (i : Integer from Standard) |
110 | returns ConstraintEnum from TDataXtd; |
111 | |
112 | GeometryTypeToInteger (e : GeometryEnum from TDataXtd) |
113 | returns Integer from Standard; |
114 | |
115 | IntegerToGeometryType (i : Integer from Standard) |
116 | returns GeometryEnum from TDataXtd; |
117 | |
118 | end MDataXtd; |