0024830: Remove redundant keyword 'mutable' in CDL declarations
[occt.git] / src / IGESDraw / IGESDraw_Protocol.cdl
CommitLineData
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
17class Protocol from IGESDraw inherits Protocol from IGESData
18
19 ---Purpose : Description of Protocol for IGESDraw
20
21uses Type, Protocol from Interface
22
23is
24
6e33d3ce 25 Create returns Protocol from IGESDraw;
7fd59977 26
27 NbResources (me) returns Integer is redefined;
28 ---Purpose : Gives the count of Resource Protocol. Here, one
29 -- (Protocol from IGESDimen)
30
31 Resource (me; num : Integer) returns Protocol from Interface is redefined;
32 ---Purpose : Returns a Resource, given a rank.
33
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)
40
41end Protocol;