1 -- Created on: 1993-05-05
2 -- Created by: Christian CAILLET
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 Protocol from IGESGeom inherits Protocol from IGESData
19 ---Purpose : Description of Protocol for IGESGeom
21 uses Type, Protocol from Interface
25 Create returns Protocol from IGESGeom;
27 NbResources (me) returns Integer is redefined;
28 ---Purpose : Gives the count of Resource Protocol. Here, one
29 -- (Protocol from IGESBasic)
31 Resource (me; num : Integer) returns Protocol from Interface is redefined;
32 ---Purpose : Returns a Resource, given a rank.
34 TypeNumber (me; atype : any Type) returns Integer is redefined;
35 ---Purpose : Returns a Case Number, specific of each recognized Type
36 -- This Case Number is then used in Libraries : the various
37 -- Modules attached to this class of Protocol must use them
38 -- in accordance (for a given value of TypeNumber, they must
39 -- consider the same Type as the Protocol defines)