0025418: Debug output to be limited to OCC development environment
[occt.git] / src / TNaming / TNaming_Localizer.cdl
1 -- Created on: 1997-06-10
2 -- Created by: Yves FRICAUD
3 -- Copyright (c) 1997-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
5 --
6 -- This file is part of Open CASCADE Technology software library.
7 --
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
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.
13 --
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
16
17 private class Localizer from TNaming 
18
19         ---Purpose: 
20
21 uses
22     Shape                                  from TopoDS,
23     ShapeEnum                              from TopAbs,
24     Label                                  from TDF,
25     LabelList                              from TDF,
26     LabelMap                               from TDF,
27     UsedShapes                             from TNaming,
28     NamedShape                             from TNaming,
29     MapOfNamedShape                        from TNaming,
30     ListOfNamedShape                       from TNaming,
31     Evolution                              from TNaming,
32     ShapesSet                              from TNaming,        
33     ListOfShape                            from TopTools,
34     MapOfShape                             from TopTools,
35     IndexedDataMapOfShapeListOfShape       from TopTools,
36     ListOfMapOfShape                       from TNaming,
37     ListOfIndexedDataMapOfShapeListOfShape from TNaming
38             
39 is
40
41
42     Create returns Localizer from TNaming;
43     
44     Init (me       : in out;
45           US       : UsedShapes from TNaming;
46           CurTrans : Integer    from Standard );
47
48     SubShapes (me : in out; S : Shape from TopoDS; Type : ShapeEnum from TopAbs) 
49     returns MapOfShape from TopTools;
50     ---C++: return const&
51   
52     Ancestors    (me : in out; S : Shape from TopoDS; Type : ShapeEnum from TopAbs)
53     returns IndexedDataMapOfShapeListOfShape from TopTools;
54     ---C++: return const&
55     
56     FindFeaturesInAncestors (me            : in out;
57                              S             :        Shape      from TopoDS;
58                              In            :        Shape      from TopoDS;
59                              AncInFeatures : in out MapOfShape from TopTools);
60                              
61                              
62     GoBack (me     : in out;
63             S      : Shape                   from TopoDS;
64             Lab    : Label                   from TDF;
65             Evol   : Evolution               from TNaming;
66             OldS   : in out ListOfShape      from TopTools;
67             OldLab : in out ListOfNamedShape from TNaming);
68             
69
70     Backward (me          : in out;
71               NS          :        NamedShape      from TNaming;
72               S           :        Shape           from TopoDS;
73               Primitives  : in out MapOfNamedShape from TNaming;
74               ValidShapes : in out MapOfShape      from TopTools);
75               
76     FindNeighbourg (me         : in out;
77                     Cont       :       Shape from TopoDS;
78                     S          :       Shape from TopoDS;
79                     Neighbourg : in out MapOfShape from TopTools);
80                         
81     IsNew (myclass ;S  : Shape      from TopoDS;
82                     NS : NamedShape from TNaming)
83     returns Boolean from Standard;
84     
85     FindGenerator (myclass ; NS :        NamedShape from TNaming;
86                              S  :        Shape      from TopoDS;
87             theListOfGenerators : in out ListOfShape from TopTools );
88
89     
90     FindShapeContext (myclass ; NS    :        NamedShape from TNaming;
91                                 theS  :        Shape      from TopoDS; 
92                                 theSC : in out Shape      from TopoDS); 
93     ---Purpose: Finds context of the shape <S>.                                         
94
95 fields
96
97     myCurTrans           : Integer                                from Standard;        
98     myUS                 : UsedShapes                             from TNaming;
99
100     myShapeWithSubShapes : ListOfShape                            from TopTools;
101     mySubShapes          : ListOfMapOfShape                       from TNaming;
102     
103     myShapeWithAncestors : ListOfShape                            from TopTools;
104     myAncestors          : ListOfIndexedDataMapOfShapeListOfShape from TNaming;
105     
106 end Localizer;
107
108
109
110
111
112
113
114
115