0022904: Clean up sccsid variables
[occt.git] / src / QANewBRepNaming / QANewBRepNaming_Gluing.cdl
1 -- File:        QANewBRepNaming_Gluing.cdl
2 -- Created:     Mon Nov 26 11:45:34 2001
3 -- Author:      Sergey ZARITCHNY <szy@nnov.matra-dtv.fr>
4 -- Copyright:   SAMTECH S.A. 2001
5
6 -- Lastly modified by :
7 -- +---------------------------------------------------------------------------+
8 -- !       mpv ! Same history and divided shapes cases   ! 6-09-2002! 3.0-00-3!
9 -- +---------------------------------------------------------------------------+
10
11 class Gluing from QANewBRepNaming inherits TopNaming from QANewBRepNaming
12
13         ---Purpose: Loads a result of Gluing operation in  Data Framework
14
15 uses
16
17      Glue      from QANewModTopOpe,
18      Shape     from TopoDS, 
19      ShapeEnum from  TopAbs,
20      Label     from TDF,
21      LabelMap  from TDF,
22      IndexedDataMapOfShapeListOfShape from TopTools,
23      DataMapOfShapeInteger from TopTools
24
25      
26 raises  NullObject from Standard 
27
28 is
29
30     Create returns Gluing from QANewBRepNaming; 
31  
32     Create(theResultLabel : Label from TDF) 
33     returns Gluing from QANewBRepNaming;
34
35     Init(me : in out; theResultLabel : Label from TDF);
36
37
38     Load (me : in out; theMkGluing : in out Glue from QANewModTopOpe);
39       ---Purpose: Loads a Gluing in a data framework  
40      
41     ---Category: Protected methods
42     --           ====================
43  
44     ShapeType(me; theShape : Shape from TopoDS) 
45     ---Purpose: If the shape is a compound the method  
46     --          returns the underlying shape type.
47     returns ShapeEnum from TopAbs 
48     is private; 
49      
50     GetShape(me; theShape : Shape from TopoDS) 
51     ---Purpose: If the shape is a compound the method  
52     --          returns the underlying shape.
53     returns Shape from TopoDS
54     is  private;  
55      
56     LoadModifiedShapes(me; theMakeShape : in out Glue from QANewModTopOpe)
57     ---Purpose: A default implementation for naming of modified shapes of the operation
58     is  private; 
59
60     LoadDeletedShapes(me; theMakeShape : in out Glue from QANewModTopOpe)
61     ---Purpose: A default implementation for naming of modified shapes of the operation
62     is  private; 
63      
64     Content (me)
65         ---Purpose : 
66     returns Label from TDF; 
67         
68     LoadContent(me; theMakeShape : in out Glue from QANewModTopOpe)
69     ---Purpose: Loads the content of the result.
70     is private;  
71      
72     LoadResult(me; theMakeShape : in out Glue from QANewModTopOpe) 
73     ---Purpose: Loads the result.
74     is private; 
75     
76     IsResultChanged(me; theMakeShape : in out Glue from QANewModTopOpe)  
77      ---Purpose: Returns true if the result is not the same as the object shape.
78     returns Boolean from Standard is private ;  
79      
80     SetContext(me :in out; theObject, theTool : Shape from TopoDS);
81     
82     SetLog(me: in out; theLog : LabelMap from TDF);
83      
84     LoadSectionEdges(me; theMakeShape : in out Glue from QANewModTopOpe)
85     ---Purpose: Loads the deletion of the degenerated edges.
86     is private; 
87          
88     AddToTheUnique(me: in out; theUnique, theIdentifier : Shape from TopoDS) is private;
89
90     RecomputeUnique(me : in out; theMakeShape : in out Glue from QANewModTopOpe)
91     ---Purpose: Reset myShared map - shapes, which are modified by both object and tool.
92     is private; 
93
94     LoadSourceShapes(me; theSources : in out DataMapOfShapeInteger from TopTools)
95     is private;
96
97     LoadUniqueShapes(me: in out; theMakeShape : in out Glue from QANewModTopOpe;
98                                  theSources : DataMapOfShapeInteger from TopTools)
99     ---Purpose: A default implementation for naming of generated  shapes of the operation
100     is  private; 
101      
102     
103 fields
104
105     myUnique  : IndexedDataMapOfShapeListOfShape from TopTools;
106
107     myContext : Shape from TopoDS;
108     myLog : LabelMap from TDF;
109
110 end Gluing;
111
112     
113 -- @@SDM: begin
114
115 -- Copyright SAMTECH ..........................................Version    3.0-00
116 -- Lastly modified by : mpv                                    Date :  6-09-2002
117
118 -- File history synopsis (creation,modification,correction)
119 -- +---------------------------------------------------------------------------+
120 -- ! Developer !              Comments                   !   Date   ! Version  !
121 -- +-----------!-----------------------------------------!----------!----------+
122 -- !       szy ! Creation                                !26-11-2001! 3.0-00-1!
123 -- !       mpv ! Specific gluing operation naming        ! 1-02-2002! 3.0-00-2!
124 -- !       mpv ! Same history and divided shapes cases   ! 6-09-2002! 3.0-00-3!
125 -- +---------------------------------------------------------------------------+
126
127 -- @@SDM: end