b311480e |
1 | -- Created on: 1993-05-05 |
2 | -- Created by: Christian CAILLET |
3 | -- Copyright (c) 1993-1999 Matra Datavision |
973c2be1 |
4 | -- Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
5 | -- |
973c2be1 |
6 | -- This file is part of Open CASCADE Technology software library. |
b311480e |
7 | -- |
d5f74e42 |
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 |
973c2be1 |
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. |
b311480e |
13 | -- |
973c2be1 |
14 | -- Alternatively, this file may be used under the terms of Open CASCADE |
15 | -- commercial license or contractual agreement. |
7fd59977 |
16 | |
17 | class Protocol from IGESData inherits Protocol from Interface |
18 | |
19 | ---Purpose : Description of basic Protocol for IGES |
20 | -- This comprises treatement of IGESModel and Recognition of |
21 | -- Undefined-FreeFormat-Entity |
22 | |
23 | uses OStream, Type, InterfaceModel, Check |
24 | |
25 | is |
26 | |
6e33d3ce |
27 | Create returns Protocol from IGESData; |
7fd59977 |
28 | |
29 | NbResources (me) returns Integer; |
30 | ---Purpose : Gives the count of Resource Protocol. Here, none |
31 | |
32 | Resource (me; num : Integer) returns Protocol from Interface; |
33 | ---Purpose : Returns a Resource, given a rank. Here, none |
34 | |
35 | TypeNumber (me; atype : any Type) returns Integer; |
36 | ---Purpose : Returns a Case Number, specific of each recognized Type |
37 | -- Here, Undefined and Free Format Entities have the Number 1. |
38 | |
39 | -- -- General Services (defined at Norm level) -- -- |
40 | |
6e33d3ce |
41 | NewModel (me) returns InterfaceModel; |
7fd59977 |
42 | ---Purpose : Creates an empty Model for IGES Norm |
43 | |
44 | IsSuitableModel (me; model : InterfaceModel) returns Boolean; |
45 | ---Purpose : Returns True if <model> is a Model of IGES Norm |
46 | |
6e33d3ce |
47 | UnknownEntity (me) returns Transient; |
7fd59977 |
48 | ---Purpose : Creates a new Unknown Entity for IGES (UndefinedEntity) |
49 | |
50 | IsUnknownEntity (me; ent : Transient) returns Boolean; |
51 | ---Purpose : Returns True if <ent> is an Unknown Entity for the Norm, i.e. |
52 | -- Type UndefinedEntity, status Unknown |
53 | |
54 | end Protocol; |