b311480e |
1 | -- Created on: 1996-12-16 |
2 | -- Created by: Yves FRICAUD |
3 | -- Copyright (c) 1996-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. |
7fd59977 |
16 | |
17 | class OldShapeIterator from TNaming |
18 | |
19 | ---Purpose: Iterates on all the ascendants of a shape |
20 | |
21 | uses |
22 | Shape from TopoDS, |
23 | NamedShape from TNaming, |
24 | UsedShapes from TNaming, |
25 | Iterator from TNaming, |
26 | Label from TDF, |
27 | PtrNode from TNaming |
28 | |
29 | raises |
30 | NoMoreObject from Standard, |
31 | NoSuchObject from Standard |
32 | |
33 | is |
34 | |
35 | Create(aShape : Shape from TopoDS; |
36 | Transaction : Integer from Standard; |
37 | Shapes : UsedShapes from TNaming) |
38 | returns OldShapeIterator from TNaming |
39 | is private; |
40 | |
41 | Create(aShape : Shape from TopoDS; |
42 | Shapes : UsedShapes from TNaming) |
43 | returns OldShapeIterator from TNaming |
44 | is private; |
45 | |
46 | Create(aShape : Shape from TopoDS; |
47 | Transaction : Integer from Standard; |
48 | access : Label from TDF) |
49 | returns OldShapeIterator from TNaming; |
50 | |
51 | Create(aShape : Shape from TopoDS; |
52 | access : Label from TDF) |
53 | returns OldShapeIterator from TNaming; |
54 | |
55 | |
56 | Create(anIterator : OldShapeIterator from TNaming) |
57 | returns OldShapeIterator from TNaming; |
58 | ---Purpose: Iterates from the current Shape in <anIterator> |
59 | |
60 | Create(anIterator : Iterator from TNaming) |
61 | returns OldShapeIterator from TNaming; |
62 | ---Purpose: Iterates from the current Shape in <anIterator> |
63 | |
64 | More(me) returns Boolean; |
65 | ---C++: inline |
66 | |
67 | Next(me : in out) |
68 | raises |
69 | NoMoreObject from Standard; |
70 | |
71 | Label(me) returns Label from TDF |
72 | raises |
73 | NoSuchObject from Standard; |
74 | |
75 | NamedShape(me) returns NamedShape from TNaming |
76 | raises |
77 | NoSuchObject from Standard; |
78 | |
79 | |
80 | Shape(me) returns Shape from TopoDS |
81 | ---C++: return const& |
82 | raises |
83 | NoSuchObject from Standard; |
84 | |
85 | IsModification(me) returns Boolean; |
86 | ---Purpose: True if the new shape is a modification (split, |
87 | -- fuse,etc...) of the old shape. |
88 | |
89 | |
90 | |
91 | fields |
92 | |
93 | myNode : PtrNode from TNaming; |
94 | myTrans : Integer from Standard; -- is < 0 means in Current Transaction. |
95 | |
96 | friends |
97 | |
98 | class Tool from TNaming, |
99 | class Localizer from TNaming, |
100 | class Naming from TNaming |
101 | |
102 | end OldShapeIterator; |
103 | |
104 | |
105 | |