src/TNaming/TNaming_OldShapeIterator.cdl

   1 -- Created on: 1996-12-16
   2 -- Created by: Yves FRICAUD
   3 -- Copyright (c) 1996-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 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