Commit | Line | Data |
---|---|---|
b311480e | 1 | -- Created on: 1997-03-03 |
2 | -- Created by: Yves FRICAUD | |
3 | -- Copyright (c) 1997-1999 Matra Datavision | |
4 | -- Copyright (c) 1999-2012 OPEN CASCADE SAS | |
5 | -- | |
6 | -- The content of this file is subject to the Open CASCADE Technology Public | |
7 | -- License Version 6.5 (the "License"). You may not use the content of this file | |
8 | -- except in compliance with the License. Please obtain a copy of the License | |
9 | -- at http://www.opencascade.org and read it completely before using this file. | |
10 | -- | |
11 | -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its | |
12 | -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France. | |
13 | -- | |
14 | -- The Original Code and all software distributed under the License is | |
15 | -- distributed on an "AS IS" basis, without warranty of any kind, and the | |
16 | -- Initial Developer hereby disclaims all such warranties, including without | |
17 | -- limitation, any warranties of merchantability, fitness for a particular | |
18 | -- purpose or non-infringement. Please see the License for the specific terms | |
19 | -- and conditions governing the rights and limitations under the License. | |
20 | ||
7fd59977 | 21 | |
22 | ||
23 | private class Identifier from TNaming | |
24 | ||
25 | ---Purpose: | |
26 | ||
27 | uses | |
28 | ||
29 | Label from TDF, | |
30 | Shape from TopoDS, | |
31 | NamedShape from TNaming, | |
32 | ListOfNamedShape from TNaming, | |
33 | ListOfShape from TopTools, | |
34 | NameType from TNaming, | |
35 | Localizer from TNaming | |
36 | is | |
37 | ||
38 | Create (Lab : Label from TDF; | |
39 | S : Shape from TopoDS; | |
0ddd904c S |
40 | Context : Shape from TopoDS; |
41 | Geom : Boolean from Standard) | |
7fd59977 | 42 | returns Identifier from TNaming; |
43 | ||
44 | Create (Lab : Label from TDF; | |
45 | S : Shape from TopoDS; | |
0ddd904c S |
46 | ContextNS : NamedShape from TNaming; |
47 | Geom : Boolean from Standard) | |
7fd59977 | 48 | returns Identifier from TNaming; |
49 | ||
50 | ||
51 | ||
52 | ---Category: Querying | |
53 | ||
54 | IsDone (me) returns Boolean from Standard; | |
55 | ||
56 | Type (me) returns NameType from TNaming; | |
57 | ||
58 | IsFeature (me : in out) returns Boolean from Standard; | |
59 | ||
60 | Feature (me) returns NamedShape from TNaming; | |
61 | ||
62 | ||
63 | InitArgs (me : in out); | |
64 | ||
65 | MoreArgs (me) returns Boolean from Standard; | |
66 | ||
67 | NextArg (me : in out); | |
68 | ||
69 | ArgIsFeature(me) returns Boolean from Standard; | |
70 | ||
71 | FeatureArg (me : in out) returns NamedShape from TNaming; | |
72 | ||
73 | ShapeArg (me : in out) returns Shape from TopoDS; | |
74 | ||
75 | ShapeContext (me) returns Shape from TopoDS; | |
76 | ||
77 | NamedShapeOfGeneration (me) returns NamedShape from TNaming; | |
78 | ||
79 | ---Category: Private methods. | |
80 | ||
81 | AncestorIdentification(me : in out; | |
82 | Localizer : in out Localizer from TNaming; | |
83 | Context : Shape from TopoDS); | |
84 | ||
85 | PrimitiveIdentification(me : in out; | |
86 | Localizer : in out Localizer from TNaming; | |
87 | NS : NamedShape from TNaming); | |
88 | ||
89 | GeneratedIdentification(me : in out; | |
90 | Localizer : in out Localizer from TNaming; | |
91 | NS : NamedShape from TNaming); | |
92 | ||
93 | ||
94 | Identification(me : in out; | |
95 | Localizer : in out Localizer from TNaming; | |
96 | NS : NamedShape from TNaming); | |
97 | ||
0ddd904c S |
98 | |
99 | Init(me : in out; Context : Shape from TopoDS) is private; | |
100 | ||
7fd59977 | 101 | fields |
102 | ||
103 | myTDFAcces : Label from TDF; | |
104 | myShape : Shape from TopoDS; | |
105 | myOneOnly : Boolean from Standard; | |
106 | ||
107 | myDone : Boolean from Standard; | |
108 | ||
109 | myIsFeature : Boolean from Standard; | |
110 | myType : NameType from TNaming; | |
111 | myFeature : NamedShape from TNaming; | |
112 | myPrimitiveArgs : ListOfNamedShape from TNaming; | |
113 | myShapeArgs : ListOfShape from TopTools; | |
114 | myNSContext : NamedShape from TNaming; | |
115 | ||
116 | end Identifier; | |
117 | ||
118 |