OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-09 13:22:24 +03:00
Code Activity

0024830: Remove redundant keyword 'mutable' in CDL declarations

Browse Source 
Redundant keyword 'mutable' removed in CDL files.
In IGESConvGeom_GeomBuilder, unused methods MakeXY() and MakeXYZ() removed.
Method StepAP214_AutoDesignGroupAssignment::Init() replicating same method of the base class is removed as it causes CDL extraction error after above (seemingly irrelevant) changes.
This commit is contained in:
abv
2014-04-15 08:50:00 +04:00
committed by apn
parent 99c68ea35f
commit 6e33d3ced2
2421 changed files with 6557 additions and 6604 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Interface/Interface_BitMap.cdl
View File

@@ -58,8 +58,8 @@ is
---Purpose : Initialize a BitMap from another one
Internals (me; nbitems , nbwords, nbflags : out Integer;
flags : out mutable HArray1OfInteger;
names : out mutable HSequenceOfAsciiString);
flags : out HArray1OfInteger;
names : out HSequenceOfAsciiString);
---Purpose : Returns internal values, used for copying
-- Flags values start at false

4
src/Interface/Interface_CopyControl.cdl
View File

@@ -33,12 +33,12 @@ is
---Purpose : Clears List of Copy Results. Gets Ready to begin another Copy
-- Process.
Bind (me : mutable; ent : Transient; res : mutable Transient)
Bind (me : mutable; ent : Transient; res : Transient)
---Purpose : Bind a Result to a Starting Entity identified by its Number
raises InterfaceError is deferred;
-- Error if <num> is already bound or is out of range
Search (me; ent : Transient; res : out mutable Transient)
Search (me; ent : Transient; res : out Transient)
returns Boolean is deferred;
---Purpose : Searches for the Result bound to a Startingf Entity identified
-- by its Number.

6
src/Interface/Interface_CopyMap.cdl
View File

@@ -27,7 +27,7 @@ raises InterfaceError
is
Create (amodel : InterfaceModel) returns mutable CopyMap;
Create (amodel : InterfaceModel) returns CopyMap;
---Purpose : Creates a CopyMap adapted to work from a Model
Clear (me : mutable);
@@ -36,13 +36,13 @@ is
Model (me) returns InterfaceModel is static;
---Purpose : Returns the InterfaceModel used at Creation time
Bind (me : mutable; ent : Transient; res : mutable Transient)
Bind (me : mutable; ent : Transient; res : Transient)
---Purpose : Binds a Starting Entity identified by its Number <num> in the
-- Starting Model, to a Result of Transfer <res>
raises InterfaceError;
-- Error if <num> is already bound to a result, or is out of range
Search (me; ent : Transient; res : out mutable Transient)
Search (me; ent : Transient; res : out Transient)
returns Boolean;
---Purpose : Search for the result of a Starting Object (i.e. an Entity,
-- identified by its Number <num> in the Starting Model)

20
src/Interface/Interface_CopyTool.cdl
View File

@@ -65,12 +65,12 @@ is
Model (me) returns InterfaceModel;
---Purpose : Returns the Model on which the CopyTool works
SetControl (me : in out; othermap : mutable CopyControl);
SetControl (me : in out; othermap : CopyControl);
---Purpose : Changes the Map of Result for another one. This allows to work
-- with a more sophisticated Mapping Control than the Standard
-- one which is CopyMap (e.g. TransferProcess from Transfer)
Control (me) returns mutable CopyControl;
Control (me) returns CopyControl;
---Purpose : Returns the object used for Control
-- -- Basic Operations -- --
@@ -78,7 +78,7 @@ is
Clear (me : in out) is virtual;
---Purpose : Clears Transfer List. Gets Ready to begin another Transfer
NewVoid (me : in out; entfrom : Transient; entto : out mutable Transient)
NewVoid (me : in out; entfrom : Transient; entto : out Transient)
returns Boolean is virtual protected;
---Purpose : Creates a new void instance (just created) of the same class
-- as <entfrom>. Uses the general service GeneralModule:NewVoid
@@ -88,7 +88,7 @@ is
--
-- No mapping is managed by this method
Copy (me : in out; entfrom : Transient; entto : out mutable Transient;
Copy (me : in out; entfrom : Transient; entto : out Transient;
mapped : Boolean; errstat : Boolean)
returns Boolean is virtual;
---Purpose : Creates the CounterPart of an Entity (by ShallowCopy), Binds
@@ -111,11 +111,11 @@ is
-- It basically makes a Deep Copy without changing the Types.
-- It can be redefined for special uses.
Implied (me : in out; entfrom : Transient; entto : mutable Transient)
Implied (me : in out; entfrom : Transient; entto : Transient)
is virtual private;
---Purpose : Renews the Implied References of one already Copied Entity
Transferred (me : in out; ent : Transient) returns mutable Transient
Transferred (me : in out; ent : Transient) returns Transient
---Purpose : Transfers one Entity, if not yet bound to a result
-- Remark : For an Entity which is reported in the Starting Model,
-- the ReportEntity will also be copied with its Content if it
@@ -125,7 +125,7 @@ is
-- This method can raise any kind of Interface exception.
-- Especially if <ent> is not contained in Starting Model.
Bind (me : in out; ent : Transient; res : mutable Transient)
Bind (me : in out; ent : Transient; res : Transient)
---Purpose : Defines a Result for the Transfer of a Starting object.
-- Used by method Transferred (which performs a normal Copy),
-- but can also be called to enforce a result : in the latter
@@ -134,7 +134,7 @@ is
raises InterfaceError;
-- Error if a Result is already bound with this Starting Object
Search (me; ent : Transient; res : out mutable Transient)
Search (me; ent : Transient; res : out Transient)
returns Boolean;
---Purpose : Search for the result of a Starting Object (i.e. an Entity)
-- Returns True if a Result is Bound (and fills "result")
@@ -147,7 +147,7 @@ is
-- distinghished. ClearLastFlags is also called by Clear.
LastCopiedAfter (me; numfrom : Integer;
ent : out Transient; res : out mutable Transient) returns Integer;
ent : out Transient; res : out Transient) returns Integer;
---Purpose : Returns an copied Entity and its Result which were operated
-- after last call to ClearLastFlags. It returns the first
-- "Last Copied Entity" which Number follows <numfrom>, Zero if
@@ -174,7 +174,7 @@ is
-- Remark : this concerns only some specific references, such as
-- "back pointers".
FillModel (me : in out; bmodel : mutable InterfaceModel)
FillModel (me : in out; bmodel : InterfaceModel)
raises InterfaceError;
---Purpose : Fills a Model with the result of the transfer (TransferList)
-- Commands copy of Header too, and calls RenewImpliedRefs

12
src/Interface/Interface_EntityCluster.cdl
View File

@@ -33,18 +33,18 @@ raises OutOfRange, NullObject
is
Create returns mutable EntityCluster;
Create returns EntityCluster;
---Purpose : Creates an empty, non-chained, EntityCluster
Create (ent : any Transient) returns mutable EntityCluster;
Create (ent : any Transient) returns EntityCluster;
---Purpose : Creates a non-chained EntityCluster, filled with one Entity
Create (ec : mutable EntityCluster) returns mutable EntityCluster;
Create (ec : EntityCluster) returns EntityCluster;
---Purpose : Creates an empty EntityCluster, chained with another one
-- (that is, put BEFORE this other one in the list)
Create (ant : any Transient; ec : mutable EntityCluster)
returns mutable EntityCluster;
Create (ant : any Transient; ec : EntityCluster)
returns EntityCluster;
---Purpose : Creates an EntityCluster, filled with a first Entity, and
-- chained to another EntityCluster (BEFORE it, as above)
@@ -102,7 +102,7 @@ is
HasNext (me) returns Boolean is static private;
---Purpose : Returns True if a Cluster has a Next
Next (me) returns mutable EntityCluster is static private;
Next (me) returns EntityCluster is static private;
---Purpose : Returns Next Cluster in the chain
fields

6
src/Interface/Interface_FileReaderData.cdl
View File

@@ -139,7 +139,7 @@ is
-- (sublists are not objects, but internal descriptions)
ParamEntity (me; num, nump : Integer)
returns mutable Transient raises NoSuchObject is static;
returns Transient raises NoSuchObject is static;
---Purpose : Returns the StepEntity referenced by a parameter
-- Error if none
---C++ : return const &
@@ -161,11 +161,11 @@ is
-- -- binding empty entities before loading model -- --
BoundEntity (me; num : Integer) returns mutable Transient;
BoundEntity (me; num : Integer) returns Transient;
---Purpose : Returns the entity bound to a record, set by SetEntities
---C++ : return const &
BindEntity (me : mutable; num : Integer; ent : mutable Transient);
BindEntity (me : mutable; num : Integer; ent : Transient);
---Purpose : Binds an entity to a record
SetErrorLoad (me : mutable; val : Boolean);

26
src/Interface/Interface_FileReaderTool.cdl
View File

@@ -43,20 +43,20 @@ is
Initialize returns FileReaderTool from Interface;
---Purpose: Constructor; sets default fields
SetData (me : in out; reader : mutable FileReaderData;
SetData (me : in out; reader : FileReaderData;
protocol : Protocol from Interface);
---Purpose : Sets Data to a FileReaderData. Works with a Protocol
Protocol (me) returns Protocol from Interface;
---Purpose : Returns the Protocol given at creation time
Data (me) returns mutable FileReaderData;
Data (me) returns FileReaderData;
---Purpose : Returns the FileReaderData which is used to work
SetModel (me : in out; amodel : mutable InterfaceModel);
SetModel (me : in out; amodel : InterfaceModel);
---Purpose : Stores a Model. Used when the Model has been loaded
Model (me) returns mutable InterfaceModel;
Model (me) returns InterfaceModel;
---Purpose : Returns the stored Model
-- -- setting empty entities before loading model -- --
@@ -99,7 +99,7 @@ is
-- type of FileReaderTool
Recognize (me : in out; num : Integer;
ach : in out Check; ent : out mutable Transient)
ach : in out Check; ent : out Transient)
returns Boolean is deferred;
---Purpose : Recognizes a record, given its number. Specific to each
-- Interface; called by SetEntities. It can call the basic method
@@ -114,7 +114,7 @@ is
RecognizeByLib (me; num : Integer;
glib : in out GeneralLib; rlib : in out ReaderLib;
ach : in out Check; ent : out mutable Transient)
ach : in out Check; ent : out Transient)
returns Boolean;
---Purpose : Recognizes a record with the help of Libraries. Can be used
-- to implement the method Recognize.
@@ -126,7 +126,7 @@ is
-- <ent> is the result
-- Returns False if recognition has failed, True else
UnknownEntity (me) returns mutable Transient;
UnknownEntity (me) returns Transient;
---Purpose : Provides an unknown entity, specific to the Interface
-- called by SetEntities when Recognize has failed (Unknown alone)
-- or by LoadModel when an Entity has caused a Fail on reading
@@ -135,10 +135,10 @@ is
-- -- loading entities into the model -- --
NewModel (me) returns mutable InterfaceModel;
NewModel (me) returns InterfaceModel;
---Purpose : Creates an empty Model of the norm. Uses Protocol to do it
LoadModel (me : in out; amodel : mutable InterfaceModel)
LoadModel (me : in out; amodel : InterfaceModel)
raises DomainError;
---Purpose : Reads and fills Entities from the FileReaderData set by
-- SetData to an InterfaceModel.
@@ -150,19 +150,19 @@ is
-- operation, unless Error Handling is set.
-- This method can also be redefined if judged necessary.
LoadedEntity (me : in out; num : Integer) returns mutable Transient;
LoadedEntity (me : in out; num : Integer) returns Transient;
---Purpose : Reads, Fills and Returns one Entity read from a Record of the
-- FileReaderData. This Method manages also case of Fail or
-- Warning, by producing a ReportEntyty plus , for a Fail, a
-- literal Content (as an UnknownEntity). Performs also Trace
BeginRead (me : in out; amodel : mutable InterfaceModel) is deferred;
BeginRead (me : in out; amodel : InterfaceModel) is deferred;
---Purpose : Fills model's header; each Interface defines for its Model its
-- own file header; this method fills it from FileReaderTool.+
-- It is called by AnalyseFile from InterfaceModel
AnalyseRecord (me : in out;
num : Integer; anent : mutable Transient; acheck : in out Check)
num : Integer; anent : Transient; acheck : in out Check)
returns Boolean is deferred;
---Purpose : Fills an Entity, given record no; specific to each Interface,
-- called by AnalyseFile from InterfaceModel (which manages its
@@ -180,7 +180,7 @@ is
Destroy (me: in out) is virtual;
---C++ : alias "Standard_EXPORT virtual ~Interface_FileReaderTool() { Destroy(); }"
EndRead (me : in out; amodel : mutable InterfaceModel) is virtual;
EndRead (me : in out; amodel : InterfaceModel) is virtual;
---Purpose : Ends file reading after reading all the entities
-- default is doing nothing; redefinable as necessary

6
src/Interface/Interface_GTool.cdl
View File

@@ -31,10 +31,10 @@ uses Transient,
is
Create returns mutable GTool;
Create returns GTool;
---Purpose : Creates an empty, not set, GTool
Create (proto : Protocol; nbent : Integer = 0) returns mutable GTool;
Create (proto : Protocol; nbent : Integer = 0) returns GTool;
---Purpose : Creates a GTool from a Protocol
-- Optional starting count of entities
@@ -76,7 +76,7 @@ is
-- its Module and Case Number
Select (me : mutable; ent : Transient;
gmod : out mutable GeneralModule;
gmod : out GeneralModule;
CN : out Integer;
enforce : Boolean = Standard_False) returns Boolean;
---Purpose : Selects for an entity, its Module and Case Number

12
src/Interface/Interface_GeneralModule.cdl
View File

@@ -83,7 +83,7 @@ is
-- Default returns always False, can be redefined
Dispatch (me; CN : Integer;
entfrom : Transient; entto : out mutable Transient;
entfrom : Transient; entto : out Transient;
TC : in out CopyTool) returns Boolean is virtual;
---Purpose : Dispatches an entity
-- Returns True if it works by copy, False if it just duplicates
@@ -106,21 +106,21 @@ is
-- copying, then returns False. Can be redefined
NewVoid (me; CN : Integer; entto : out mutable Transient)
NewVoid (me; CN : Integer; entto : out Transient)
returns Boolean is deferred;
---Purpose : Creates a new void entity <entto> according to a Case Number
-- This entity remains to be filled, by reading from a file or
-- by copying from another entity of same type (see CopyCase)
CopyCase (me; CN : Integer;
entfrom : Transient; entto : mutable Transient;
entfrom : Transient; entto : Transient;
TC : in out CopyTool) is deferred;
---Purpose : Specific Copy ("Deep") from <entfrom> to <entto> (same type)
-- by using a CopyTool which provides its working Map.
-- Use method Transferred from CopyTool to work
NewCopiedCase (me; CN : Integer;
entfrom : Transient; entto : out mutable Transient;
entfrom : Transient; entto : out Transient;
TC : in out CopyTool) returns Boolean is virtual;
---Purpose : Specific operator (create+copy) defaulted to do nothing.
-- It can be redefined : When it is not possible to work in two
@@ -131,7 +131,7 @@ is
-- Returns True if it has produced something, false else
RenewImpliedCase (me; CN : Integer;
entfrom : Transient; entto : mutable Transient;
entfrom : Transient; entto : Transient;
TC : CopyTool) is virtual;
---Purpose : Specific Copying of Implied References
-- A Default is provided which does nothing (must current case !)
@@ -139,7 +139,7 @@ is
-- Use method Search from CopyTool to work
WhenDeleteCase (me; CN : Integer;
ent : mutable Transient; dispatched : Boolean) is virtual;
ent : Transient; dispatched : Boolean) is virtual;
---Purpose : Prepares an entity to be deleted. What does it mean :
-- Basically, any class of entity may define its own destructor
-- By default, it does nothing but calling destructors on fields

10
src/Interface/Interface_HGraph.cdl
View File

@@ -26,28 +26,28 @@ raises DomainError
is
Create (agraph : Graph) returns mutable HGraph;
Create (agraph : Graph) returns HGraph;
---Purpose : Creates an HGraph directly from a Graph.
-- Remark that the starting Graph is duplicated
Create (amodel : InterfaceModel; lib : GeneralLib;
theModeStats : Boolean = Standard_True) returns mutable HGraph;
theModeStats : Boolean = Standard_True) returns HGraph;
---Purpose : Creates an HGraph with a Graph created from <amodel> and <lib>
Create (amodel : InterfaceModel; protocol : Protocol from Interface;
theModeStats : Boolean = Standard_True)
returns mutable HGraph;
returns HGraph;
---Purpose : Creates an HGraph with a graph itself created from <amodel>
-- and <protocol>
Create (amodel : InterfaceModel; gtool : GTool from Interface;
theModeStats : Boolean = Standard_True)
returns mutable HGraph;
returns HGraph;
---Purpose : Creates an HGraph with a graph itself created from <amodel>
-- and <protocol>
Create (amodel : InterfaceModel;
theModeStats : Boolean = Standard_True) returns mutable HGraph
theModeStats : Boolean = Standard_True) returns HGraph
---Purpose : Same a above, but works with the GTool in the model
raises DomainError;
-- Error if no Active Protocol is defined

2
src/Interface/Interface_IntList.cdl
View File

@@ -59,7 +59,7 @@ is
-- else, data are not copied, only the header object is
Initialize(me : in out;nbe : Integer);
---Purpose :Initialize IntList by number of entities.
Internals (me; nbrefs : out Integer; ents, refs : out mutable HArray1OfInteger);
Internals (me; nbrefs : out Integer; ents, refs : out HArray1OfInteger);
---Purpose : Returns internal values, used for copying
NbEntities (me) returns Integer;

2
src/Interface/Interface_IntVal.cdl
View File

@@ -22,7 +22,7 @@ uses Integer
is
Create returns mutable IntVal;
Create returns IntVal;
Value (me) returns Integer;

24
src/Interface/Interface_InterfaceModel.cdl
View File

@@ -122,7 +122,7 @@ is
-- the Model if it contains it. Else returns 0. For a
-- ReportEntity, looks at Concerned Entity.
Value (me; num : Integer) returns mutable Transient raises OutOfRange;
Value (me; num : Integer) returns Transient raises OutOfRange;
---Purpose : Returns an Entity identified by its number in the Model
-- Each sub-class of InterfaceModel can define its own method
-- Entity to return its specific class of Entity (e.g. for VDA,
@@ -171,7 +171,7 @@ is
-- The ReportEntity is defined before call to method AddEntity.
ReportEntity (me; num : Integer; semantic : Boolean = Standard_False)
returns mutable ReportEntity
returns ReportEntity
---Purpose : Returns a ReportEntity identified by its number in the Model,
-- or a Null Handle If <num> does not identify a ReportEntity.
--
@@ -199,7 +199,7 @@ is
raises OutOfRange;
-- Error if <num> is out of range
SetReportEntity (me : mutable; num : Integer; rep : mutable ReportEntity)
SetReportEntity (me : mutable; num : Integer; rep : ReportEntity)
returns Boolean
---Purpose : Sets or Replaces a ReportEntity for the Entity <num>. Returns
-- True if Report is replaced, False if it has been replaced
@@ -208,7 +208,7 @@ is
-- Error if <num> is out of range, or if concerned Entity is
-- not equal to Value(num)
AddReportEntity (me : mutable; rep : mutable ReportEntity;
AddReportEntity (me : mutable; rep : ReportEntity;
semantic : Boolean = Standard_False) returns Boolean;
---Purpose : Adds a ReportEntity as such. Returns False if the concerned
-- entity is not recorded in the Model
@@ -248,7 +248,7 @@ is
-- can be less efficient. <nbent> is the expected count of
-- Entities to store
AddEntity (me : mutable; anentity : mutable Transient)
AddEntity (me : mutable; anentity : Transient)
---Purpose : Internal method for adding an Entity. Used by file reading
-- (defined by each Interface) and Transfer tools. It adds the
-- entity required to be added, not its refs : see AddWithRefs.
@@ -259,7 +259,7 @@ is
raises InterfaceMismatch is virtual;
-- Error if anentity already recorded
AddWithRefs (me : mutable; anent : mutable Transient; proto : Protocol;
AddWithRefs (me : mutable; anent : Transient; proto : Protocol;
level : Integer = 0; listall : Boolean = Standard_False);
---Purpose : Adds to the Model, an Entity with all its References, as they
-- are defined by General Services FillShared and ListImplied.
@@ -273,18 +273,18 @@ is
-- If <listall> is True, all items are analysed (this allows to
-- ensure the consistency of an adding made by steps)
AddWithRefs (me : mutable; anent : mutable Transient;
AddWithRefs (me : mutable; anent : Transient;
level : Integer = 0; listall : Boolean = Standard_False)
---Purpose : Same as above, but works with the Protocol of the Model
raises InterfaceMismatch;
-- Error if no Protocol is defined in the Model
AddWithRefs (me : mutable; anent : mutable Transient; lib : GeneralLib;
AddWithRefs (me : mutable; anent : Transient; lib : GeneralLib;
level : Integer = 0; listall : Boolean = Standard_False);
---Purpose : Same as above, but works with an already created GeneralLib
ReplaceEntity (me : mutable; nument : Integer; anent : mutable Transient);
ReplaceEntity (me : mutable; nument : Integer; anent : Transient);
---Purpose : Replace Entity with Number=nument on other entity - "anent"
ReverseOrders (me : mutable; after : Integer = 0);
@@ -314,7 +314,7 @@ is
---Purpose : Gets header (data specific of a defined Interface) from
-- another InterfaceModel; called from TransferCopy
NewEmptyModel (me) returns mutable InterfaceModel is deferred;
NewEmptyModel (me) returns InterfaceModel is deferred;
---Purpose : Returns a New Empty Model, same type as <me> (whatever its
-- Type); called to Copy parts a Model into other ones, then
-- followed by a call to GetFromAnother (Header) then filling
@@ -420,10 +420,10 @@ is
HasTemplate (myclass; name : CString) returns Boolean;
---Purpose : Returns true if a template is attached to a given name
Template (myclass; name : CString) returns mutable InterfaceModel;
Template (myclass; name : CString) returns InterfaceModel;
---Purpose : Returns the template model attached to a name, or a Null Handle
SetTemplate (myclass; name : CString; model : mutable InterfaceModel)
SetTemplate (myclass; name : CString; model : InterfaceModel)
returns Boolean;
---Purpose : Records a new template model with a name. If the name was
-- already recorded, the corresponding template is replaced by

2
src/Interface/Interface_JaggedArray.cdl
View File

@@ -26,7 +26,7 @@ uses Array1OfTransient
is
Create (low, up : Integer) returns mutable JaggedArray;
Create (low, up : Integer) returns JaggedArray;
Lower (me) returns Integer;
Upper (me) returns Integer;

4
src/Interface/Interface_LineBuffer.cdl
View File

@@ -84,10 +84,10 @@ is
---Purpose : Fills a AsciiString <str> with the Content of the Line Buffer,
-- then Clears the LineBuffer
Move (me : in out; str : mutable HAsciiString from TCollection) is static;
Move (me : in out; str : HAsciiString from TCollection) is static;
---Purpose : Same as above, but <str> is known through a Handle
Moved (me : in out) returns mutable HAsciiString from TCollection;
Moved (me : in out) returns HAsciiString from TCollection;
---Purpose : Same as above, but generates the HAsciiString

2
src/Interface/Interface_ParamSet.cdl
View File

@@ -25,7 +25,7 @@ raises OutOfRange
is
Create (nres : Integer; nst : Integer = 1) returns mutable ParamSet;
Create (nres : Integer; nst : Integer = 1) returns ParamSet;
---Purpose : Creates an empty ParamSet, beginning at number "nst" and of
-- initial reservation "nres" : the "nres" first parameters
-- which follow "ndeb" (included) will be put in an Array

4
src/Interface/Interface_Protocol.cdl
View File

@@ -90,14 +90,14 @@ is
-- -- General Services (defined at Norm level) -- --
NewModel (me) returns mutable InterfaceModel is deferred;
NewModel (me) returns InterfaceModel is deferred;
---Purpose : Creates an empty Model of the considered Norm
IsSuitableModel (me; model : InterfaceModel) returns Boolean is deferred;
---Purpose : Returns True if <model> is a Model of the considered Norm
UnknownEntity (me) returns mutable Transient is deferred;
UnknownEntity (me) returns Transient is deferred;
---Purpose : Creates a new Unknown Entity for the considered Norm
IsUnknownEntity (me; ent : Transient) returns Boolean is deferred;

4
src/Interface/Interface_ReaderModule.cdl
View File

@@ -38,7 +38,7 @@ is
-- Case Number. If Recognition fails, must return 0
Read (me; casenum : Integer; data : FileReaderData; num : Integer;
ach : in out Check; ent : mutable Transient)
ach : in out Check; ent : Transient)
---Purpose : Performs the effective loading from <data>, record <num>,
-- to the Entity <ent> formerly created
-- In case of Error or Warning, fills <ach> with messages
@@ -48,7 +48,7 @@ is
-- them and fill the Check
NewRead (me; casenum : Integer; data : FileReaderData; num : Integer;
ach : in out Check; ent : out mutable Transient) returns Boolean
ach : in out Check; ent : out Transient) returns Boolean
---Purpose : Specific operator (create+read) defaulted to do nothing.
-- It can be redefined when it is not possible to work in two
-- steps (NewVoid then Read). This occurs when no default

8
src/Interface/Interface_Recognizer.cdl
View File

@@ -37,7 +37,7 @@ is
Initialize;
---Purpose : Assumes that no result has yet been recognized
Evaluate (me : mutable; akey : TheKey; res : out mutable TheResul)
Evaluate (me : mutable; akey : TheKey; res : out TheResul)
returns Boolean;
---Purpose : Evaluates if recognition has a result, returns it if yes
-- In case of success, Returns True and puts result in "res"
@@ -45,17 +45,17 @@ is
-- Works by calling deferred method Eval, and in case of failure,
-- looks for Added Recognizers to work
Result (me) returns mutable TheResul raises NoSuchObject;
Result (me) returns TheResul raises NoSuchObject;
---Purpose : Returns result of last recognition (call of Evaluate)
Add (me : mutable; reco : mutable Recognizer);
Add (me : mutable; reco : Recognizer);
---Purpose : Adds a new Recognizer to the Compound, at the end
-- Several calls to Add work by adding in the order of calls :
-- Hence, when Eval has failed to recognize, Evaluate will call
-- Evaluate from the first added Recognizer if there is one,
-- and to the second if there is still no result, and so on
SetOK (me : mutable; aresult : mutable TheResul) is protected;
SetOK (me : mutable; aresult : TheResul) is protected;
---Purpose : Records the result of the recognition. Called by specific
-- method Eval to record a result : after calling it, Eval has
-- finished and can return

12
src/Interface/Interface_ReportEntity.cdl
View File

@@ -44,18 +44,18 @@ uses Check, Transient
is
Create (unknown : mutable Transient) returns mutable ReportEntity;
Create (unknown : Transient) returns ReportEntity;
---Purpose : Creates a ReportEntity for an Unknown Entity : Check is empty,
-- and Concerned equates Content (i.e. the Unknown Entity)
Create (acheck : Check; concerned : mutable Transient)
returns mutable ReportEntity;
Create (acheck : Check; concerned : Transient)
returns ReportEntity;
---Purpose : Creates a ReportEntity with its features :
-- - <acheck> is the Check to be memorised
-- - <concerned> is the Entity to which the Check is bound
-- Later, a Content can be set : it is required for an Error
SetContent (me : mutable; content : mutable Transient);
SetContent (me : mutable; content : Transient);
---Purpose : Sets a Content : it brings non interpreted data which belong
-- to the Concerned Entity. It can be empty then loaded later.
-- Remark that for an Unknown Entity, Content is set by Create.
@@ -68,7 +68,7 @@ is
---Purpose : Returns the stored Check in order to change it
---C++ : return &
Concerned (me) returns mutable Transient;
Concerned (me) returns Transient;
---Purpose : Returns the stored Concerned Entity. It equates the Content
-- in the case of an Unknown Entity
@@ -80,7 +80,7 @@ is
-- (i.e. redefines content) : used when Concerned could not be
-- loaded
Content (me) returns mutable Transient;
Content (me) returns Transient;
---Purpose : Returns the stored Content, or a Null Handle
-- Remark that it must be an "Unknown Entity" suitable for
-- the norm of the containing Model

2
src/Interface/Interface_SignLabel.cdl
View File

@@ -22,7 +22,7 @@ uses Transient, AsciiString from TCollection
is
Create returns mutable SignLabel;
Create returns SignLabel;
Name (me) returns CString;
---Purpose : Returns "Entity Label"

6
src/Interface/Interface_Static.cdl
View File

@@ -54,7 +54,7 @@ is
Create (family, name : CString;
type : ParamType from Interface = Interface_ParamText;
init : CString = "") returns mutable Static
init : CString = "") returns Static
---Purpose : Creates and records a Static, with a family and a name
-- family can report to a name of ressource or to a system or
-- internal definition. The name must be unique.
@@ -70,7 +70,7 @@ is
-- Error if <name> is already recorded, or <type> not supported
-- See also class method Init
Create (family, name : CString; other : Static) returns mutable Static;
Create (family, name : CString; other : Static) returns Static;
---Purpose : Creates a new Static with same definition as another one
-- (value is copied, except for Entity : it remains null)
@@ -127,7 +127,7 @@ is
-- '=' for same definition as, <init> gives the initial Static
-- Returns False if <type> does not match this list
Static (myclass; name : CString) returns mutable Static;
Static (myclass; name : CString) returns Static;
---Purpose : Returns a Static from its name. Null Handle if not present
IsPresent (myclass; name : CString) returns Boolean;

2
src/Interface/Interface_TypedValue.cdl
View File

@@ -46,7 +46,7 @@ is
Create (name : CString;
type : ParamType from Interface = Interface_ParamText;
init : CString = "") returns mutable TypedValue;
init : CString = "") returns TypedValue;
---Purpose : Creates a TypedValue, with a name
--
-- type gives the type of the parameter, default is free text

12
src/Interface/Interface_UndefinedContent.cdl
View File

@@ -48,7 +48,7 @@ raises OutOfRange, NoSuchObject, InterfaceMismatch, InterfaceError
is
Create returns mutable UndefinedContent;
Create returns UndefinedContent;
---Purpose : Defines an empty UndefinedContent
-- -- Access to Parameters -- --
@@ -60,7 +60,7 @@ is
---Purpose : Gives count of Literal Parameters
ParamData (me; num : Integer; ptype : out ParamType;
ent : out mutable Transient;
ent : out Transient;
val : out HAsciiString from TCollection)
returns Boolean is static;
---Purpose : Returns data of a Parameter : its type, and the entity if it
@@ -77,7 +77,7 @@ is
---Purpose : Returns True if a Parameter is recorded as an entity
-- Error if num is not between 1 and NbParams
ParamEntity (me; num : Integer) returns mutable Transient
ParamEntity (me; num : Integer) returns Transient
---Purpose : Returns Entity corresponding to a Param, given its rank
raises InterfaceError, OutOfRange is static;
-- Error if out of range or if Param num does not designate
@@ -97,7 +97,7 @@ is
val : HAsciiString from TCollection) is static;
---Purpose : Adds a literal Parameter to the list
AddEntity (me : mutable; ptype : ParamType; ent : mutable Transient)
AddEntity (me : mutable; ptype : ParamType; ent : Transient)
is static;
---Purpose : Adds a Parameter which references an Entity
@@ -114,13 +114,13 @@ is
-- Error if num is out of range
SetEntity (me : mutable; num : Integer; ptype : ParamType;
ent : mutable Transient)
ent : Transient)
---Purpose : Sets a new value for the Parameter <num>, to reference an
-- Entity. To simply change the Entity, see the variant below
raises OutOfRange is static;
-- Error if num is out of range
SetEntity (me : mutable; num : Integer; ent : mutable Transient)
SetEntity (me : mutable; num : Integer; ent : Transient)
---Purpose : Changes the Entity referenced by the Parameter <num>
-- (with same ParamType)
raises InterfaceError, OutOfRange is static;