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/IGESData/IGESData_BasicEditor.cdl
View File

@@ -38,7 +38,7 @@ is
returns BasicEditor;
---Purpose : Creates a Basic Editor for IGES Data, ready to run
Model (me) returns mutable IGESModel;
Model (me) returns IGESModel;
---Purpose : Returns the designated model
SetUnitFlag (me : in out; flag : Integer) returns Boolean;
@@ -71,7 +71,7 @@ is
-- can have required values according the way they are referenced
-- (see definitions of Logical use, Physical use, etc...)
AutoCorrect (me : in out; ent : mutable IGESEntity) returns Boolean;
AutoCorrect (me : in out; ent : IGESEntity) returns Boolean;
---Purpose : Performs auto-correction on an IGESEntity
-- Returns True if something has changed, False if nothing done.
--

6
src/IGESData/IGESData_DefaultGeneral.cdl
View File

@@ -25,7 +25,7 @@ uses OStream, Transient,
is
Create returns mutable DefaultGeneral;
Create returns DefaultGeneral;
---Purpose : Creates a DefaultGeneral and puts it into GeneralLib,
-- bound with a Protocol from IGESData
@@ -45,12 +45,12 @@ is
-- Here, does nothing (no constraint to check)
NewVoid (me; CN : Integer; entto : out mutable Transient)
NewVoid (me; CN : Integer; entto : out Transient)
returns Boolean;
---Purpose : Specific creation of a new void entity (UndefinedEntity only)
OwnCopyCase (me; CN : Integer;
entfrom : IGESEntity; entto : mutable IGESEntity;
entfrom : IGESEntity; entto : IGESEntity;
TC : in out CopyTool);
---Purpose : Copies parameters which are specific of each Type of Entity

2
src/IGESData/IGESData_DefaultSpecific.cdl
View File

@@ -23,7 +23,7 @@ uses IGESEntity, IGESDumper,
is
Create returns mutable DefaultSpecific;
Create returns DefaultSpecific;
---Purpose : Creates a DefaultSpecific and puts it into SpecificLib
OwnDump (me; CN : Integer; ent : IGESEntity;

2
src/IGESData/IGESData_DirChecker.cdl
View File

@@ -134,7 +134,7 @@ is
-- This allows to do a check on an Entity not yet completely
-- filled but of which Type and Form Number have been already set
Correct (me; ent : mutable IGESEntity) returns Boolean is static;
Correct (me; ent : IGESEntity) returns Boolean is static;
---Purpose : Corrects the Directory Entry of an IGES Entity as far as it is
-- possible according recorded criteria without any ambiguity :
-- - if a numeric Status is required a given value, this value is

2
src/IGESData/IGESData_FileProtocol.cdl
View File

@@ -26,7 +26,7 @@ uses Protocol from Interface
is
Create returns mutable FileProtocol;
Create returns FileProtocol;
---Purpose : Returns an empty FileProtocol
Add (me : mutable; protocol : Protocol from IGESData);

8
src/IGESData/IGESData_FreeFormatEntity.cdl
View File

@@ -35,7 +35,7 @@ raises OutOfRange, InterfaceError
is
Create returns mutable FreeFormatEntity;
Create returns FreeFormatEntity;
---Purpose : Creates a completely empty FreeFormatEntity
SetTypeNumber (me : mutable; typenum : Integer);
@@ -56,7 +56,7 @@ is
---Purpose : Gives count of recorded parameters
ParamData (me; num : Integer; ptype : out ParamType;
ent : out mutable IGESEntity;
ent : out IGESEntity;
val : out HAsciiString from TCollection)
returns Boolean;
---Purpose : Returns data of a Parameter : its type, and the entity if it
@@ -71,7 +71,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 IGESEntity
ParamEntity (me; num : Integer) returns IGESEntity
raises InterfaceError, OutOfRange;
---Purpose : Returns Entity corresponding to a Param, given its rank
-- Error if out of range or if Param num does not designate
@@ -100,7 +100,7 @@ is
---Purpose : Adds a literal Parameter to the list (builds an HAsciiString)
AddEntity (me : mutable; ptype : ParamType;
ent : mutable IGESEntity; negative : Boolean = Standard_False);
ent : IGESEntity; negative : Boolean = Standard_False);
---Purpose : Adds a Parameter which references an Entity. If the Entity is
-- Null, the added parameter will define a "Null Pointer" (0)
-- If <negative> is given True, this will command Sending to File

14
src/IGESData/IGESData_GeneralModule.cdl
View File

@@ -75,12 +75,12 @@ is
---Purpose : Specific answer to the question "is Copy properly implemented"
-- For IGES, answer is always True
NewVoid (me; CN : Integer; entto : out mutable Transient)
NewVoid (me; CN : Integer; entto : out Transient)
returns Boolean is deferred;
---Purpose : Specific creation of a new void entity
CopyCase (me; CN : Integer;
entfrom : Transient; entto : mutable Transient;
entfrom : Transient; entto : Transient;
TC : in out CopyTool);
---Purpose : Copy ("Deep") from <entfrom> to <entto> (same type)
-- by using a CopyTool which provides its working Map.
@@ -88,33 +88,33 @@ is
-- Properties) and call OwnCopyCase
OwnCopyCase (me; CN : Integer;
entfrom : IGESEntity; entto : mutable IGESEntity;
entfrom : IGESEntity; entto : IGESEntity;
TC : in out CopyTool) is deferred;
---Purpose : Copies parameters which are specific of each Type of Entity
RenewImpliedCase (me; CN : Integer;
entfrom : Transient; entto : mutable Transient;
entfrom : Transient; entto : Transient;
TC : CopyTool) is redefined;
---Purpose : Renewing of Implied References.
-- For IGESEntities, Copies general data(List of Associativities)
-- and calls OwnRenewCase
OwnRenewCase (me; CN : Integer;
entfrom : IGESEntity; entto : mutable IGESEntity;
entfrom : IGESEntity; entto : IGESEntity;
TC : CopyTool) is virtual;
---Purpose : Renews parameters which are specific of each Type of Entity :
-- the provided default does nothing, but this method may be
-- redefined as required
WhenDeleteCase (me; CN : Integer;
ent : mutable Transient; dispatched : Boolean) is redefined;
ent : Transient; dispatched : Boolean) is redefined;
---Purpose : Prepares an IGES Entity for delete : works on directory part
-- then calls OwnDeleteCase
-- While dispatch requires to copy the entities, <dispatched> is
-- ignored, entities are cleared in any case
OwnDeleteCase (me; CN : Integer;
ent : mutable IGESEntity) is virtual;
ent : IGESEntity) is virtual;
---Purpose : Specific preparation for delete, acts on own parameters
-- Default does nothing, to be redefined as required

4
src/IGESData/IGESData_GlobalSection.cdl
View File

@@ -145,7 +145,7 @@ is
NewDateString (myclass; year,month,day,hour,minut,second : Integer;
mode : Integer = -1)
returns mutable HAsciiString from TCollection;
returns HAsciiString from TCollection;
---Purpose : Returns a string built from year,
-- month, day, hour, minute and second values. The form of the
-- resulting string is defined as follows:
@@ -161,7 +161,7 @@ is
NewDateString (myclass; date : HAsciiString from TCollection;
mode : Integer = 1)
returns mutable HAsciiString from TCollection;
returns HAsciiString from TCollection;
---Purpose : Converts the string given in the
-- form YYMMDD.HHNNSS or YYYYMMDD.HHNNSS to either
-- YYMMDD.HHNNSS, YYYYMMDD.HHNNSS or YYYY-MM-DD:HH-NN-SS.

8
src/IGESData/IGESData_IGESEntity.cdl
View File

@@ -273,7 +273,7 @@ is
---Purpose : gives how many Associativities have a given type
TypedAssociativity (me; atype : Type)
returns mutable IGESEntity raises InterfaceError;
returns IGESEntity raises InterfaceError;
---Purpose : returns the Associativity of a given Type (if only one exists)
-- Error if none or more than one
@@ -290,10 +290,10 @@ is
ClearAssociativities (me : mutable) is private;
---Purpose : Removes all associativities in once
Associate (me ; ent : mutable IGESEntity);
Associate (me ; ent : IGESEntity);
---Purpose : Sets "me" in the Associativity list of another Entity
Dissociate (me ; ent : mutable IGESEntity);
Dissociate (me ; ent : IGESEntity);
---Purpose : Resets "me" from the Associativity list of another Entity
@@ -312,7 +312,7 @@ is
---Purpose : gives how many Properties have a given type
TypedProperty (me; atype : Type; anum : Integer = 0)
returns mutable IGESEntity raises InterfaceError;
returns IGESEntity raises InterfaceError;
---Purpose : returns the Property of a given Type
-- Error if none or more than one

6
src/IGESData/IGESData_IGESModel.cdl
View File

@@ -40,7 +40,7 @@ raises InterfaceError
is
Create returns mutable IGESModel;
Create returns IGESModel;
ClearHeader (me : mutable);
---Purpose : Erases all data specific to IGES file Header (Start + Global)
@@ -65,7 +65,7 @@ is
ClearStartSection (me : mutable) is static;
---Purpose : Clears the IGES file Start Section
SetStartSection (me : mutable; list : mutable HSequenceOfHAsciiString;
SetStartSection (me : mutable; list : HSequenceOfHAsciiString;
copy : Boolean = Standard_True) is static;
---Purpose : Sets a new Start section from a list of strings.
-- If copy is false, the Start section will be shared. Any
@@ -110,7 +110,7 @@ is
GetFromAnother (me : mutable; other : InterfaceModel);
---Purpose : gets Header (GlobalSection) from another Model
NewEmptyModel (me) returns mutable InterfaceModel;
NewEmptyModel (me) returns InterfaceModel;
---Purpose : Returns a New Empty Model, same type as <me> i.e. IGESModel
VerifyCheck (me; ach : in out Check) is redefined;

2
src/IGESData/IGESData_IGESReaderData.cdl
View File

@@ -29,7 +29,7 @@ uses Integer, Boolean, CString, HAsciiString, HSequenceOfHAsciiString,
is
Create (nbe,nbp : Integer) returns mutable IGESReaderData;
Create (nbe,nbp : Integer) returns IGESReaderData;
---Purpose : creates IGESReaderData correctly dimensionned (for arrays)
-- <nbe> count of entities, that is, half nb of directory lines
-- <nbp> : count of parameters

20
src/IGESData/IGESData_IGESReaderTool.cdl
View File

@@ -26,7 +26,7 @@ uses Integer, Boolean, Transient,
is
Create (reader : mutable IGESReaderData; protocol : Protocol from IGESData)
Create (reader : IGESReaderData; protocol : Protocol from IGESData)
returns IGESReaderTool;
---Purpose : creates IGESReaderTool to work with an IGESReaderData and an
-- IGES Protocol.
@@ -34,47 +34,47 @@ is
-- -- General -- --
Prepare (me : in out; reco : mutable FileRecognizer);
Prepare (me : in out; reco : FileRecognizer);
---Purpose : binds empty entities to records, works with the Protocol
-- (from IGESData) stored and later used
-- RQ : Actually, sets DNum into IGES Entities
-- Also loads the list of parameters for ParamReader
Recognize (me : in out; num : Integer;
ach : in out Check; ent : out mutable Transient)
ach : in out Check; ent : out Transient)
returns Boolean;
---Purpose : recognizes records by asking Protocol (on data of DirType)
-- Loading the IGESModel --
BeginRead (me : in out; amodel : mutable InterfaceModel);
BeginRead (me : in out; amodel : InterfaceModel);
---Purpose : fills model's header, that is, its GlobalSection
AnalyseRecord (me : in out;
num : Integer; anent : mutable Transient; acheck : in out Check)
num : Integer; anent : Transient; acheck : in out Check)
returns Boolean;
---Purpose : fills an entity, given record no; works by calling ReadDirPart
-- then ReadParams (with help of a ParamReader), then if required
-- ReadProps and ReadAssocs, from IGESEntity
-- Returns True if no fail has been recorded
EndRead (me : in out; amodel : mutable InterfaceModel) is redefined;
EndRead (me : in out; amodel : InterfaceModel) is redefined;
---Purpose : after reading entities, true line weights can be computed
-- For each IGESEntity --
ReadDir (me; ent : mutable IGESEntity; IR : IGESReaderData;
ReadDir (me; ent : IGESEntity; IR : IGESReaderData;
DP : DirPart; ach : in out Check);
---Purpose : Reads directory part componants from file; DP is the litteral
-- directory part, IR detains entities referenced by DP
ReadOwnParams (me; ent : mutable IGESEntity;
ReadOwnParams (me; ent : IGESEntity;
IR : IGESReaderData; PR : in out ParamReader);
---Purpose : Performs Reading of own Parameters for each IGESEntity
-- Works with the ReaderLib loaded with ReadWriteModules for IGES
-- In case of failure, tries UndefinedEntity from IGES
ReadProps (me; ent : mutable IGESEntity; IR : IGESReaderData;
ReadProps (me; ent : IGESEntity; IR : IGESReaderData;
PR : in out ParamReader);
---Purpose : Reads Property List, if there is (if not, does nothing)
-- criterium is : current parameter of PR remains inside params
@@ -83,7 +83,7 @@ is
-- gives the length of the list; else, a Fail is produced (into
-- Check of PR) and reading process is stopped
ReadAssocs (me; ent : mutable IGESEntity; IR : IGESReaderData;
ReadAssocs (me; ent : IGESEntity; IR : IGESReaderData;
PR : in out ParamReader);
---Purpose : Reads Associativity List, if there is (if not, does nothing)
-- criterium is : current parameter of PR remains inside params

10
src/IGESData/IGESData_ParamReader.cdl
View File

@@ -112,7 +112,7 @@ is
-- otherwise zero (according criterium IsParamEntity)
ParamEntity (me : in out; IR : IGESReaderData; num : Integer)
returns mutable IGESEntity
returns IGESEntity
---Purpose : directly returns entity referenced by a parameter
raises InterfaceError;
-- Error if <num> cannot be regarded as an Entity reference
@@ -269,12 +269,12 @@ is
ReadEntity (me : in out; IR : IGESReaderData;
PC : ParamCursor;
aStatus: in out Status from IGESData;
val : out mutable IGESEntity;
val : out IGESEntity;
canbenul : Boolean = Standard_False)
returns Boolean;
ReadEntity (me : in out; IR : IGESReaderData; PC : ParamCursor; mess : CString;
val : out mutable IGESEntity; canbenul : Boolean = Standard_False) returns Boolean;
val : out IGESEntity; canbenul : Boolean = Standard_False) returns Boolean;
---Purpose : Reads an IGES entity from parameter "num"
-- An Entity is known by its reference, which has the form of an
-- odd Integer Value (a number in the Directory)
@@ -290,14 +290,14 @@ is
PC : ParamCursor;
aStatus: in out Status from IGESData;
type : Type from Standard;
val : out mutable IGESEntity;
val : out IGESEntity;
canbenul : Boolean = Standard_False) returns Boolean;
ReadEntity (me : in out; IR : IGESReaderData;
PC : ParamCursor;
mess : CString;
type : Type from Standard;
val : out mutable IGESEntity;
val : out IGESEntity;
canbenul : Boolean = Standard_False) returns Boolean;
---Purpose : Works as ReadEntity without Type, but in addition checks the
-- Type of the Entity, which must be "kind of" a given <type>

6
src/IGESData/IGESData_Protocol.cdl
View File

@@ -24,7 +24,7 @@ uses OStream, Type, InterfaceModel, Check
is
Create returns mutable Protocol from IGESData;
Create returns Protocol from IGESData;
NbResources (me) returns Integer;
---Purpose : Gives the count of Resource Protocol. Here, none
@@ -38,13 +38,13 @@ is
-- -- General Services (defined at Norm level) -- --
NewModel (me) returns mutable InterfaceModel;
NewModel (me) returns InterfaceModel;
---Purpose : Creates an empty Model for IGES Norm
IsSuitableModel (me; model : InterfaceModel) returns Boolean;
---Purpose : Returns True if <model> is a Model of IGES Norm
UnknownEntity (me) returns mutable Transient;
UnknownEntity (me) returns Transient;
---Purpose : Creates a new Unknown Entity for IGES (UndefinedEntity)
IsUnknownEntity (me; ent : Transient) returns Boolean;

4
src/IGESData/IGESData_ReadWriteModule.cdl
View File

@@ -57,11 +57,11 @@ is
-- Read, etc ...
Read (me; CN : Integer; data : FileReaderData; num : Integer;
ach : in out Check; ent : mutable Transient)
ach : in out Check; ent : Transient)
raises DomainError;
---Purpose : General Read Function. See IGESReaderTool for more info
ReadOwnParams (me; CN : Integer; ent : mutable IGESEntity;
ReadOwnParams (me; CN : Integer; ent : IGESEntity;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is deferred;
---Purpose : Reads own parameters from file for an Entity; <PR> gives

2
src/IGESData/IGESData_SpecificModule.cdl
View File

@@ -33,7 +33,7 @@ is
-- See class IGESDumper for the rules to follow for <own> and
-- <attached> level
OwnCorrect (me; CN : Integer; ent : mutable IGESEntity)
OwnCorrect (me; CN : Integer; ent : IGESEntity)
returns Boolean is virtual;
---Purpose : Specific Automatic Correction on own Parameters of an Entity.
-- It works by setting in accordance redundant data, if there are

2
src/IGESData/IGESData_ToolLocation.cdl
View File

@@ -46,7 +46,7 @@ raises DomainError
is
Create (amodel : IGESModel; protocol : Protocol from IGESData)
returns mutable ToolLocation;
returns ToolLocation;
---Purpose : Creates a ToolLocation on a given Model, filled with the help
-- of a Protocol (which allows to known Entities referenced by
-- other ones)

8
src/IGESData/IGESData_UndefinedEntity.cdl
View File

@@ -25,16 +25,16 @@ uses OStream, Check, UndefinedContent, CopyTool,
is
Create returns mutable UndefinedEntity;
Create returns UndefinedEntity;
---Purpose : creates an unknown entity
UndefinedContent (me) returns mutable UndefinedContent;
UndefinedContent (me) returns UndefinedContent;
---Purpose : Returns own data as an UndefinedContent
ChangeableContent (me : mutable) returns mutable UndefinedContent;
ChangeableContent (me : mutable) returns UndefinedContent;
---Purpose : Returns own data as an UndefinedContent, in order to touch it
SetNewContent (me : mutable; cont : mutable UndefinedContent);
SetNewContent (me : mutable; cont : UndefinedContent);
---Purpose : Redefines a completely new UndefinedContent
-- Used by a Copy which begins by ShallowCopy, for instance