OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +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

6
src/StepData/StepData_DefaultGeneral.cdl
View File

@@ -24,7 +24,7 @@ uses OStream, Transient ,
is
Create returns mutable DefaultGeneral;
Create returns DefaultGeneral;
---Purpose : Creates a Default General Module
-- Reconduction because limitation cdl --
@@ -38,12 +38,12 @@ is
ach : in out Check);
---Purpose : Specific Checking of an Entity <ent>
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
CopyCase (me; casenum : Integer;
entfrom : Transient; entto : mutable Transient;
entfrom : Transient; entto : Transient;
TC : in out CopyTool);
---Purpose : Specific Copy ("Deep") from <entfrom> to <entto> (same type)
-- by using a CopyTool which provides its working Map.

4
src/StepData/StepData_DescrGeneral.cdl
View File

@@ -36,10 +36,10 @@ is
CheckCase (me; CN : Integer; ent : Transient; shares : ShareTool;
ach : in out Check);
CopyCase (me; CN : Integer; entfrom : Transient; entto : mutable Transient;
CopyCase (me; CN : Integer; entfrom : Transient; entto : Transient;
TC : in out CopyTool);
NewVoid (me; CN : Integer; ent : out mutable Transient) returns Boolean;
NewVoid (me; CN : Integer; ent : out Transient) returns Boolean;
fields

2
src/StepData/StepData_DescrProtocol.cdl
View File

@@ -31,7 +31,7 @@ uses CString, AsciiString from TCollection
is
Create returns mutable DescrProtocol;
Create returns DescrProtocol;
SetSchemaName (me : mutable; name : CString);
---Purpose : Defines a specific Schema Name for this Protocol

2
src/StepData/StepData_DescrReadWrite.cdl
View File

@@ -43,7 +43,7 @@ is
returns Boolean is redefined;
ReadStep (me; CN : Integer; data : StepReaderData; num : Integer;
ach : in out Check; ent : mutable Transient);
ach : in out Check; ent : Transient);
WriteStep (me; CN : Integer; SW : in out StepWriter; ent : Transient);

2
src/StepData/StepData_Described.cdl
View File

@@ -42,7 +42,7 @@ is
-- For a Simple Entity : own type or super type
-- For a Complex Entity : one of the members
As (me; steptype : CString) returns mutable Simple is deferred;
As (me; steptype : CString) returns Simple is deferred;
---Purpose : Returns a Simple Entity which matches with a Type in <me> :
-- For a Simple Entity : me if it matches, else a null handle
-- For a Complex Entity : the member which matches, else null

4
src/StepData/StepData_ECDescr.cdl
View File

@@ -23,7 +23,7 @@ uses HSequenceOfAsciiString from TColStd, SequenceOfTransient from TColStd,
is
Create returns mutable ECDescr;
Create returns ECDescr;
---Purpose : Creates an ECDescr, empty
Add (me : mutable; member : ESDescr);
@@ -48,7 +48,7 @@ is
IsComplex (me) returns Boolean;
---Purpose : Returns True
NewEntity (me) returns mutable Described;
NewEntity (me) returns Described;
---Purpose : Creates a described entity (i.e. a complex one, made of one
-- simple entity per member)

2
src/StepData/StepData_EDescr.cdl
View File

@@ -30,7 +30,7 @@ is
IsComplex (me) returns Boolean is deferred;
---Purpose : Tells if a EDescr is complex (ECDescr) or simple (ESDescr)
NewEntity (me) returns mutable Described is deferred;
NewEntity (me) returns Described is deferred;
---Purpose : Creates a described entity (i.e. a simple one)
end EDescr;

4
src/StepData/StepData_ESDescr.cdl
View File

@@ -25,7 +25,7 @@ uses CString, AsciiString from TCollection,
is
Create (name : CString) returns mutable ESDescr;
Create (name : CString) returns ESDescr;
---Purpose : Creates an ESDescr with a type name
SetNbFields (me : mutable; nb : Integer);
@@ -84,7 +84,7 @@ is
IsComplex (me) returns Boolean;
---Purpose : Returns False
NewEntity (me) returns mutable Described;
NewEntity (me) returns Described;
---Purpose : Creates a described entity (i.e. a simple one)
fields

2
src/StepData/StepData_FileProtocol.cdl
View File

@@ -29,7 +29,7 @@ uses Type, CString, SequenceOfTransient,
is
Create returns mutable FileProtocol;
Create returns FileProtocol;
---Purpose : Creates an empty FileProtocol
Add (me : mutable; protocol : Protocol from StepData);

4
src/StepData/StepData_FreeFormEntity.cdl
View File

@@ -28,7 +28,7 @@ uses CString, AsciiString from TCollection,
is
Create returns mutable FreeFormEntity;
Create returns FreeFormEntity;
---Purpose : Creates a FreeFormEntity, with no field, no type
SetStepType (me : mutable; typenam : CString);
@@ -61,7 +61,7 @@ is
---Purpose : Returns the list of types (one type for a simple entity),
-- as is (non reordered)
Reorder (myclass; ent : in out mutable FreeFormEntity) returns Boolean;
Reorder (myclass; ent : in out FreeFormEntity) returns Boolean;
---Purpose : Reorders a Complex entity if required, i.e. if member types
-- are not in alphabetic order
-- Returns False if nothing done (order was OK or simple entity),

4
src/StepData/StepData_GeneralModule.cdl
View File

@@ -36,14 +36,14 @@ is
---Purpose : Specific Checking of an Entity <ent>
CopyCase (me; casenum : 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 TransferControl which provides its working Map.
-- Use method Transferred from TransferControl to work
-- ImpliedCase (me; casenum : Integer;
-- entfrom : Transient; entto : mutable Transient;
-- entfrom : Transient; entto : Transient;
-- TC : CopyTool);
---Purpose : Specific Copying of Implied References
-- A Default is provided which does nothing (must current case !)

2
src/StepData/StepData_HeaderTool.cdl
View File

@@ -49,7 +49,7 @@ is
-- Building a Protocol --
Build (me : in out; protocol : mutable FileProtocol);
Build (me : in out; protocol : FileProtocol);
---Purpose : Fills a FileProtocol with the list of Protocols attached to
-- the list of Schema Names. It can remain empty ...

4
src/StepData/StepData_Plex.cdl
View File

@@ -30,7 +30,7 @@ raises InterfaceMismatch
is
Create (descr : ECDescr) returns mutable Plex;
Create (descr : ECDescr) returns Plex;
---Purpose : Creates a Plex (empty). The complete creation is made by the
-- ECDescr itself, by calling Add
@@ -51,7 +51,7 @@ is
-- For a Simple Entity : own type or super type
-- For a Complex Entity : one of the members
As (me; steptype : CString) returns mutable Simple;
As (me; steptype : CString) returns Simple;
---Purpose : Returns a Simple Entity which matches with a Type in <me> :
-- For a Simple Entity : me if it matches, else a null handle
-- For a Complex Entity : the member which matches, else null

6
src/StepData/StepData_Protocol.cdl
View File

@@ -31,7 +31,7 @@ uses CString, Type,
is
Create returns mutable Protocol from StepData;
Create returns Protocol from StepData;
NbResources (me) returns Integer;
---Purpose : Gives the count of Protocols used as Resource (can be zero)
@@ -59,13 +59,13 @@ is
-- -- General Services (defined at Norm level) -- --
NewModel (me) returns mutable InterfaceModel;
NewModel (me) returns InterfaceModel;
---Purpose : Creates an empty Model for Step Norm
IsSuitableModel (me; model : InterfaceModel) returns Boolean;
---Purpose : Returns True if <model> is a Model of Step Norm
UnknownEntity (me) returns mutable Transient;
UnknownEntity (me) returns Transient;
---Purpose : Creates a new Unknown Entity for Step (UndefinedEntity)
IsUnknownEntity (me; ent : Transient) returns Boolean;

4
src/StepData/StepData_ReadWriteModule.cdl
View File

@@ -91,12 +91,12 @@ is
-- The default returns False. To be redefined as required.
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, calls ReadStep
ReadStep (me; CN : Integer; data : StepReaderData; num : Integer;
ach : in out Check; ent : mutable Transient)
ach : in out Check; ent : Transient)
raises DomainError is deferred;
---Purpose : Specific Read Function. Works with StepReaderData

2
src/StepData/StepData_SelectArrReal.cdl
View File

@@ -25,7 +25,7 @@ uses
is
Create returns mutable SelectArrReal;
Create returns SelectArrReal;
-- HasName (me) returns Boolean is redefined;

2
src/StepData/StepData_SelectInt.cdl
View File

@@ -25,7 +25,7 @@ uses CString, Logical
is
Create returns mutable SelectInt;
Create returns SelectInt;
Kind (me) returns Integer is redefined;
-- possible kind for Int : integer boolean logical enum(without text)

2
src/StepData/StepData_SelectMember.cdl
View File

@@ -37,7 +37,7 @@ uses CString, ParamType from Interface, Logical from StepData
is
Create returns mutable SelectMember;
Create returns SelectMember;
-- this constructor is useless, the class is empty
HasName (me) returns Boolean is virtual;

2
src/StepData/StepData_SelectNamed.cdl
View File

@@ -24,7 +24,7 @@ uses CString, Logical, AsciiString from TCollection, Field from StepData
is
Create returns mutable SelectNamed;
Create returns SelectNamed;
HasName (me) returns Boolean is redefined;

2
src/StepData/StepData_SelectReal.cdl
View File

@@ -25,7 +25,7 @@ uses CString, Logical
is
Create returns mutable SelectReal;
Create returns SelectReal;
Kind (me) returns Integer is redefined;
-- fixed kind : Real

4
src/StepData/StepData_Simple.cdl
View File

@@ -28,7 +28,7 @@ raises InterfaceMismatch
is
Create (descr : ESDescr) returns mutable Simple;
Create (descr : ESDescr) returns Simple;
---Purpose : Creates a Simple Entity
ESDescr (me) returns ESDescr;
@@ -48,7 +48,7 @@ is
-- For a Simple Entity : own type or super type
-- For a Complex Entity : one of the members
As (me; steptype : CString) returns mutable Simple;
As (me; steptype : CString) returns Simple;
---Purpose : Returns a Simple Entity which matches with a Type in <me> :
-- For a Simple Entity : me if it matches, else a null handle
-- For a Complex Entity : the member which matches, else null

8
src/StepData/StepData_StepModel.cdl
View File

@@ -29,7 +29,7 @@ raises NoSuchObject
is
Create returns mutable StepModel;
Create returns StepModel;
---Purpose: Creates an empty STEP model with an empty header.
Entity (me; num : Integer) returns Transient;
@@ -39,7 +39,7 @@ is
GetFromAnother (me : mutable; other : InterfaceModel);
---Purpose : gets header from another Model (uses Header Protocol)
NewEmptyModel (me) returns mutable InterfaceModel;
NewEmptyModel (me) returns InterfaceModel;
---Purpose : Returns a New Empty Model, same type as <me>, i.e. StepModel
-- -- Header management -- --
@@ -50,7 +50,7 @@ is
HasHeaderEntity(me; atype : any Type) returns Boolean;
---Purpose : says if a Header entity has a specifed type
HeaderEntity (me; atype : any Type) returns mutable Transient
HeaderEntity (me; atype : any Type) returns Transient
---Purpose : Returns Header entity with specified type, if there is
raises NoSuchObject;
-- Error if no Header Entity matches <atype>
@@ -58,7 +58,7 @@ is
ClearHeader (me : mutable);
---Purpose : Clears the Header
AddHeaderEntity (me : mutable; ent : mutable Transient);
AddHeaderEntity (me : mutable; ent : Transient);
---Purpose : Adds an Entity to the Header
VerifyCheck (me; ach : in out Check) is redefined;

10
src/StepData/StepData_StepReaderData.cdl
View File

@@ -36,7 +36,7 @@ is
-- -- File data storing and access (specific) -- --
Create (nbheader,nbtotal,nbpar : Integer) returns mutable StepReaderData;
Create (nbheader,nbtotal,nbpar : Integer) returns StepReaderData;
---Purpose : creates StepReaderData correctly dimensionned (necessary at
-- creation time, because it contains arrays)
-- nbheader is nb of records for Header, nbtotal for Header+Data
@@ -143,7 +143,7 @@ is
-- Else the kind to be recorded in the field
ReadMember (me; num, nump : Integer; mess : CString; ach : in out Check;
val : in out mutable SelectMember) returns Boolean;
val : in out SelectMember) returns Boolean;
---Purpose : Reads parameter <nump> of record <num> into a SelectMember,
-- self-sufficient (no Description needed)
-- If <val> is already created, it will be filled, as possible
@@ -170,7 +170,7 @@ is
---Purpose : reads a list of fields controlled by an ESDescr
ReadAny (me; num, nump : Integer; mess : CString; ach : in out Check;
descr : PDescr; val : in out mutable Transient) returns Boolean;
descr : PDescr; val : in out Transient) returns Boolean;
---Purpose : Reads parameter <nump> of record <num> into a Transient Value
-- according to the type of the parameter :
-- Named for Integer,Boolean,Logical,Enum,Real : SelectNamed
@@ -208,7 +208,7 @@ is
-- Return value and Check managed as by ReadXY (demands a Real)
ReadEntity (me; num, nump : Integer; mess : CString; ach : in out Check;
atype : Type; ent : out mutable Transient)
atype : Type; ent : out Transient)
returns Boolean is static;
---Purpose : Reads parameter <nump> of record <num> as a single Entity.
-- Return value and Check managed as by ReadReal (demands a
@@ -241,7 +241,7 @@ is
-- Logical enum, i.e. text ".T.", ".F.", or ".U.")
ReadString (me; num, nump : Integer; mess : CString; ach : in out Check;
val : out mutable HAsciiString from TCollection)
val : out HAsciiString from TCollection)
returns Boolean is static;
---Purpose : reads parameter <nump> of record <num> as a String (text
-- between quotes, quotes are removed by the Read operation)

14
src/StepData/StepData_StepReaderTool.cdl
View File

@@ -29,7 +29,7 @@ is
-- -- File data storing and access (specific) -- --
Create (reader : mutable StepReaderData; protocol : Protocol from StepData)
Create (reader : StepReaderData; protocol : Protocol from StepData)
returns StepReaderTool;
---Purpose : creates StepReaderTool to work with a StepReaderData according
-- to a Step Protocol. Defines the ReaderLib at this time
@@ -44,7 +44,7 @@ is
-- <optimize> given False allows to test some internal algorithms
-- which are normally avoided (see also StepReaderData)
Prepare (me : in out; reco : mutable FileRecognizer;
Prepare (me : in out; reco : FileRecognizer;
optimize : Boolean = Standard_True);
---Purpose : Bounds empty entities to records, works with a specific
-- FileRecognizer, stored and later used in Recognize
@@ -52,7 +52,7 @@ is
-- <optimize : same as above
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 either ReaderLib (default) or
-- FileRecognizer (if defined) to do so. <ach> is to call
@@ -61,7 +61,7 @@ is
-- -- managing Header -- --
-- Header is defined as a list of StepEntities (without ident)
PrepareHeader (me : in out; reco : mutable FileRecognizer);
PrepareHeader (me : in out; reco : FileRecognizer);
---Purpose : bounds empty entities and sub-lists to header records
-- works like Prepare + SetEntityNumbers, but for header
-- (N.B.: in Header, no Ident and no reference)
@@ -70,19 +70,19 @@ is
-- -- loading entities into the model -- --
BeginRead (me : in out; amodel : mutable InterfaceModel);
BeginRead (me : in out; amodel : InterfaceModel);
---Purpose : fills model's header; that is, gives to it Header entities
-- and commands their loading. Also fills StepModel's Global
-- Check from StepReaderData's GlobalCheck
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 using a ReaderLib
-- to load each entity, which must be a Transient
-- Actually, returned value is True if no fail, False else
EndRead (me : in out; amodel : mutable InterfaceModel) is redefined;
EndRead (me : in out; amodel : InterfaceModel) is redefined;
---Purpose : Ends file reading after reading all the entities
-- Here, it binds in the model, Idents to Entities (for checks)

10
src/StepData/StepData_UndefinedEntity.cdl
View File

@@ -28,27 +28,27 @@ uses AsciiString from TCollection, HAsciiString from TCollection,
is
Create returns mutable UndefinedEntity;
Create returns UndefinedEntity;
---Purpose : creates an Unknown entity
Create (issub : Boolean) returns mutable UndefinedEntity;
Create (issub : Boolean) returns UndefinedEntity;
---Purpose : Creates a SubList of an Unknown entity : it is an Unknown
-- Entity with no Type, but flagged as "SUB" if issub is True
UndefinedContent (me) returns mutable UndefinedContent;
UndefinedContent (me) returns UndefinedContent;
---Purpose : Returns the UndefinedContent which brings the Parameters
IsSub (me) returns Boolean;
---Purpose : Returns True if an Unndefined Entity is SubPart of another one
Super (me) returns mutable UndefinedEntity;
Super (me) returns UndefinedEntity;
---Purpose : Returns the "super-entity" of a sub-part
IsComplex (me) returns Boolean;
---Purpose : Returns True if <me> defines a Multiple Type Entity (see ANDOR)
Next (me) returns mutable UndefinedEntity;
Next (me) returns UndefinedEntity;
---Purpose : For a Multiple Type Entity, returns the Next "Componant"
-- For more than two Types, iterative definition (Next->Next...)
-- Returns a Null Handle for the end of the List