1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
-- File: StepData_FreeFormEntity.cdl
-- Created: Fri Jan 3 10:51:01 1997
-- Author: Christian CAILLET
-- <cky@heliox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1997
class FreeFormEntity from StepData inherits TShared
---Purpose : A Free Form Entity allows to record any kind of STEP
-- parameters, in any way of typing
-- It is implemented with an array of fields
-- A Complex entity can be defined, as a chain of FreeFormEntity
-- (see Next and As)
uses CString, AsciiString from TCollection,
HSequenceOfAsciiString from TColStd,
Field from StepData, HArray1OfField from StepData
is
Create returns mutable FreeFormEntity;
---Purpose : Creates a FreeFormEntity, with no field, no type
SetStepType (me : mutable; typenam : CString);
---Purpose : Sets the type of an entity
-- For a complex one, the type of this member
StepType (me) returns CString;
---Purpose : Returns the recorded StepType
-- For a complex one, the type of this member
SetNext (me : mutable; next : FreeFormEntity; last : Boolean = Standard_True);
---Purpose : Sets a next member, in order to define or complete a Complex
-- entity
-- If <last> is True (D), this next will be set as last of list
-- Else, it is inserted just as next of <me>
-- If <next> is Null, Next is cleared
Next (me) returns FreeFormEntity;
---Purpose : Returns the next member of a Complex entity
-- (remark : the last member has none)
IsComplex (me) returns Boolean;
---Purpose : Returns True if a FreeFormEntity is Complex (i.e. has Next)
Typed (me; typenam : CString) returns FreeFormEntity;
---Purpose : Returns the member of a FreeFormEntity of which the type name
-- is given (exact match, no sub-type)
TypeList (me) returns HSequenceOfAsciiString;
---Purpose : Returns the list of types (one type for a simple entity),
-- as is (non reordered)
Reorder (myclass; ent : in out mutable FreeFormEntity) returns Boolean;
---Purpose : Reorders a Complex entity if required, i.e. if member types
-- are not in alphabetic order
-- Returns False if nothing done (order was OK or simple entity),
-- True plus modified <ent> if <ent> has been reordered
SetNbFields (me : mutable; nb : Integer);
---Purpose : Sets a count of Fields, from scratch
NbFields (me) returns Integer;
---Purpose : Returns the count of fields
Field (me; num : Integer) returns Field;
---Purpose : Returns a field from its rank, for read-only use
---C++ : return const &
CField (me : mutable; num : Integer) returns Field;
---Purpose : Returns a field from its rank, in order to modify it
---C++ : return &
fields
thetype : AsciiString from TCollection;
thefields : HArray1OfField;
thenext : FreeFormEntity;
end FreeFormEntity;
|
