blob: bd796d771a1a442df989f94b89d31b9ba9e45601 (
plain)
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
|
-- File: IGESDraw_GeneralModule.cdl
-- Created: Mon May 10 15:00:51 1993
-- Author: Christian CAILLET
-- <cky@bravox>
---Copyright: Matra Datavision 1993
class GeneralModule from IGESDraw inherits GeneralModule from IGESData
---Purpose : Definition of General Services for IGESDraw (specific part)
-- This Services comprise : Shared & Implied Lists, Copy, Check
uses OStream,
Check, ShareTool, EntityIterator, CopyTool,
IGESEntity, DirChecker
is
Create returns mutable GeneralModule from IGESDraw;
---Purpose : Creates a GeneralModule from IGESDraw and puts it into GeneralLib
OwnSharedCase (me; CN : Integer; ent : IGESEntity;
iter : in out EntityIterator);
---Purpose : Lists the Entities shared by a given IGESEntity <ent>, from
-- its specific parameters : specific for each type
OwnImpliedCase (me; CN : Integer; ent : IGESEntity;
iter : in out EntityIterator) is redefined;
---Purpose : Specific list of Entities implied by an IGESEntity <ent> (in
-- addition to Associativities). Redefined for ViewsVisible ...
DirChecker (me; CN : Integer; ent : IGESEntity) returns DirChecker;
---Purpose : Returns a DirChecker, specific for each type of Entity
-- (identified by its Case Number) : this DirChecker defines
-- constraints which must be respected by the DirectoryPart
OwnCheckCase (me; CN : Integer; ent : IGESEntity; shares : ShareTool;
ach : in out Check);
---Purpose : Performs Specific Semantic Check for each type of Entity
NewVoid (me; CN : Integer; entto : out mutable Transient)
returns Boolean;
---Purpose : Specific creation of a new void entity
OwnCopyCase (me; CN : Integer;
entfrom : IGESEntity; entto : mutable IGESEntity;
TC : in out CopyTool);
---Purpose : Copies parameters which are specific of each Type of Entity
OwnRenewCase (me; CN : Integer;
entfrom : IGESEntity; entto : mutable IGESEntity;
TC : CopyTool) is redefined;
---Purpose : Renews parameters which are specific of each Type of Entity :
-- redefined for ViewsVisible ... (takes only the implied ref.s
-- which have also been copied)
OwnDeleteCase (me; CN : Integer;
ent : mutable IGESEntity) is redefined;
---Purpose : Clears parameters with can cause looping structures :
-- redefined for ViewsVisible ... (clears the implied ref.s)
CategoryNumber (me; CN : Integer; ent : Transient; shares : ShareTool)
returns Integer is redefined;
---Purpose : Returns a category number which characterizes an entity
-- Planar : Auxiliary
-- Subfigures and ConnectPoint : Structure
-- others : Drawing
end GeneralModule;
|