blob: 4790a1525ce039e04ef5852133a323085df34c9e (
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
|
-- File: IGESData_DefaultSpecific.cdl
-- Created: Wed Sep 8 16:47:25 1993
-- Author: Christian CAILLET
-- <cky@bravox>
---Copyright: Matra Datavision 1993
class DefaultSpecific from IGESData inherits SpecificModule
---Purpose : Specific IGES Services for UndefinedEntity, FreeFormatEntity
uses IGESEntity, IGESDumper,
Messenger from Message
is
Create returns mutable DefaultSpecific;
---Purpose : Creates a DefaultSpecific and puts it into SpecificLib
OwnDump (me; CN : Integer; ent : IGESEntity;
dumper : IGESDumper; S : Messenger from Message; own : Integer);
---Purpose : Specific Dump for UndefinedEntity : it concerns only
-- own parameters, the general data (Directory Part, Lists) are
-- taken into account by the IGESDumper
end DefaultSpecific;
|