1 -- Created on: 1993-01-13
2 -- Created by: CKY / Contract Toubro-Larsen ( Deepak PRABHU )
3 -- Copyright (c) 1993-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
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.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 class AssociativityDef from IGESDefs inherits IGESEntity
19 ---Purpose: defines IGES Associativity Definition Entity, Type <302>
20 -- Form <5001 - 9999> in package IGESDefs.
21 -- This class permits the preprocessor to define an
22 -- associativity schema. i.e., by using it preprocessor
23 -- defines the type of relationship.
27 HArray1OfInteger from TColStd,
28 HArray1OfHArray1OfInteger from IGESBasic
30 raises DimensionMismatch, OutOfRange
34 Create returns mutable AssociativityDef;
36 -- Specific methods for the entity
39 requirements : HArray1OfInteger;
40 orders : HArray1OfInteger;
41 numItems : HArray1OfInteger;
42 items : HArray1OfHArray1OfInteger)
43 raises DimensionMismatch;
44 ---Purpose : This method is used to set the fields of the class
46 -- - requirements : Back Pointers requirements
47 -- - orders : Class Orders
48 -- - numItems : Number of Items per Class
49 -- - items : Items in each class
50 -- raises exception if lengths of the arrays are not the same.
52 SetFormNumber (me : mutable; form : Integer);
53 -- Sets Form Number to a given value (free over 5000)
56 NbClassDefs(me) returns Integer;
57 ---Purpose : returns the Number of class definitions
59 IsBackPointerReq(me ; ClassNum : Integer) returns Boolean
61 ---Purpose : returns 1 if the theBackPointerReqs(ClassNum) = 1
62 -- returns 0 if the theBackPointerReqs(ClassNum) = 2
63 -- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
65 BackPointerReq(me ; ClassNum : Integer) returns Integer
67 ---Purpose : returns 1 or 2
68 -- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
70 IsOrdered(me ; ClassNum : Integer) returns Boolean
72 ---Purpose : returns 1 if theClassOrders(ClassNum) = 1 (ordered class)
73 -- returns 0 if theClassOrders(ClassNum) = 2 (unordered class)
74 -- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
76 ClassOrder(me ; ClassNum : Integer) returns Integer
78 ---Purpose : returns 1 or 2
79 -- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
81 NbItemsPerClass(me ; ClassNum : Integer) returns Integer
83 ---Purpose : returns no. of items per class entry
84 -- raises exception if ClassNum <= 0 or ClassNum > NbClassDefs()
86 Item(me ; ClassNum : Integer; ItemNum : Integer) returns Integer
88 ---Purpose : returns ItemNum'th Item of ClassNum'th Class
89 -- raises exception if
90 -- ClassNum <= 0 or ClassNum > NbClassDefs()
91 -- ItemNum <= 0 or ItemNum > NbItemsPerClass(ClassNum)
96 -- Class : IGESDefs_AssociativityDef
98 -- Purpose : Declaration of variables specific to AssociativityDef
100 -- Reminder : An AssociativityDef Entity permits the preprocessor
101 -- to define an associativity schema. The definition
102 -- includes associativity form, the no. of classes,
103 -- the number and type of items in each class, and
104 -- whether back pointers are required.
106 theBackPointerReqs : HArray1OfInteger;
107 theClassOrders : HArray1OfInteger;
108 theNbItemsPerClass : HArray1OfInteger;
109 theItems : HArray1OfHArray1OfInteger;
111 end AssociativityDef;