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/IGESSelect/IGESSelect_Activator.cdl
View File

@@ -23,10 +23,10 @@ uses CString, SessionPilot, ReturnStatus
is
Create returns mutable Activator from IGESSelect;
Create returns Activator from IGESSelect;
Do (me : mutable; number : Integer; pilot : mutable SessionPilot)
Do (me : mutable; number : Integer; pilot : SessionPilot)
returns ReturnStatus;
---Purpose : Executes a Command Line for IGESSelect

2
src/IGESSelect/IGESSelect_AddFileComment.cdl
View File

@@ -26,7 +26,7 @@ uses CString, AsciiString from TCollection,
is
Create returns mutable AddFileComment;
Create returns AddFileComment;
---Purpose : Creates a new emoty AddFileComment. Use AddLine to complete it
Clear (me : mutable);

4
src/IGESSelect/IGESSelect_AddGroup.cdl
View File

@@ -24,11 +24,11 @@ uses AsciiString from TCollection,
is
Create returns mutable AddGroup;
Create returns AddGroup;
---Purpose : Creates an AddGroup
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : Adds a new group

4
src/IGESSelect/IGESSelect_AutoCorrect.cdl
View File

@@ -44,11 +44,11 @@ uses AsciiString from TCollection,
is
Create returns mutable AutoCorrect;
Create returns AutoCorrect;
---Purpose : Creates an AutoCorrect.
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : corrects entities when it is absolutely
-- obvious, i.e. non equivoque (by DirChecker and specific

12
src/IGESSelect/IGESSelect_ChangeLevelList.cdl
View File

@@ -33,7 +33,7 @@ uses AsciiString from TCollection,
is
Create returns mutable ChangeLevelList;
Create returns ChangeLevelList;
---Purpose : Creates a ChangeLevelList, not yet defined
-- (see SetOldNumber and SetNewNumber)
@@ -42,11 +42,11 @@ is
-- which have a LevelList which contains the value are processed.
-- Else, all entities attached to a LevelList are.
OldNumber (me) returns mutable IntParam;
OldNumber (me) returns IntParam;
---Purpose : Returns the parameter for OldNumber. If not defined (Null
-- Handle), it will be interpreted as "all level lists"
SetOldNumber (me : mutable; param : mutable IntParam);
SetOldNumber (me : mutable; param : IntParam);
---Purpose : Sets a parameter for OldNumber
HasNewNumber (me) returns Boolean;
@@ -54,16 +54,16 @@ is
-- value for Level Number. Else, the first value of the LevelList
-- is used as new Level Number.
NewNumber (me) returns mutable IntParam;
NewNumber (me) returns IntParam;
---Purpose : Returns the parameter for NewNumber. If not defined (Null
-- Handle), it will be interpreted as "new value 0"
SetNewNumber (me : mutable; param : mutable IntParam);
SetNewNumber (me : mutable; param : IntParam);
---Purpose : Sets a parameter for NewNumber
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : considers selected target entities :
-- If OldNumber is not defined, all entities attached to a

12
src/IGESSelect/IGESSelect_ChangeLevelNumber.cdl
View File

@@ -30,7 +30,7 @@ uses AsciiString from TCollection,
is
Create returns mutable ChangeLevelNumber;
Create returns ChangeLevelNumber;
---Purpose : Creates a ChangeLevelNumber, not yet defined
-- (see SetOldNumber and SetNewNumber)
@@ -39,23 +39,23 @@ is
-- attached to the value of OldNumber will be considered. Else,
-- all entities but those attached to a Level List will be.
OldNumber (me) returns mutable IntParam;
OldNumber (me) returns IntParam;
---Purpose : Returns the parameter for OldNumber. If not defined (Null
-- Handle), it will be interpreted as "all level numbers"
SetOldNumber (me : mutable; param : mutable IntParam);
SetOldNumber (me : mutable; param : IntParam);
---Purpose : Sets a parameter for OldNumber
NewNumber (me) returns mutable IntParam;
NewNumber (me) returns IntParam;
---Purpose : Returns the parameter for NewNumber. If not defined (Null
-- Handle), it will be interpreted as "new value 0"
SetNewNumber (me : mutable; param : mutable IntParam);
SetNewNumber (me : mutable; param : IntParam);
---Purpose : Sets a parameter for NewNumber
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : considers selected target entities :
-- If OldNumber is not defined, all entities but those attached

4
src/IGESSelect/IGESSelect_ComputeStatus.cdl
View File

@@ -29,12 +29,12 @@ uses AsciiString from TCollection,
is
Create returns mutable ComputeStatus;
Create returns ComputeStatus;
---Purpose : Creates an ComputeStatus, which uses the system Date
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : it first evaluates the required values for
-- Subordinate Status and Use Flag (in Directory Part of each

2
src/IGESSelect/IGESSelect_CounterOfLevelNumber.cdl
View File

@@ -33,7 +33,7 @@ is
Create (withmap : Boolean = Standard_True;
withlist : Boolean = Standard_False)
returns mutable CounterOfLevelNumber;
returns CounterOfLevelNumber;
---Purpose : Creates a CounterOfLevelNumber, clear, ready to work
-- <withmap> and <withlist> are transmitted to SignCounter

2
src/IGESSelect/IGESSelect_DispPerDrawing.cdl
View File

@@ -28,7 +28,7 @@ uses AsciiString from TCollection, EntityIterator, Graph, SubPartsIterator,
is
Create returns mutable DispPerDrawing;
Create returns DispPerDrawing;
---Purpose : Creates a DispPerDrawing
Label (me) returns AsciiString from TCollection;

2
src/IGESSelect/IGESSelect_DispPerSingleView.cdl
View File

@@ -29,7 +29,7 @@ uses AsciiString from TCollection, EntityIterator, Graph, SubPartsIterator,
is
Create returns mutable DispPerSingleView;
Create returns DispPerSingleView;
---Purpose : Creates a DispPerSingleView
Label (me) returns AsciiString from TCollection;

4
src/IGESSelect/IGESSelect_Dumper.cdl
View File

@@ -24,7 +24,7 @@ uses Transient, AsciiString from TCollection, SessionFile
is
Create returns mutable Dumper;
Create returns Dumper;
---Purpose : Creates a Dumper and puts it into the Library of Dumper
WriteOwn (me; file : in out SessionFile; item : Transient) returns Boolean;
@@ -32,7 +32,7 @@ is
-- Returns True if <item> has been processed, False else
ReadOwn (me; file : in out SessionFile;
type : AsciiString from TCollection; item : out mutable Transient)
type : AsciiString from TCollection; item : out Transient)
returns Boolean;
---Purpose : Recognizes and Read Own Parameters for Types of package
-- IGESSelect. Returns True if done and <item> created, False else

2
src/IGESSelect/IGESSelect_EditDirPart.cdl
View File

@@ -35,7 +35,7 @@ is
Load (me; form : EditForm; ent : Transient; model : InterfaceModel)
returns Boolean;
Update (me; form : mutable EditForm; num : Integer;
Update (me; form : EditForm; num : Integer;
newval : HAsciiString; enforce : Boolean)
returns Boolean is redefined;
-- for dynamically computed values

2
src/IGESSelect/IGESSelect_EditHeader.cdl
View File

@@ -35,7 +35,7 @@ is
Load (me; form : EditForm; ent : Transient; model : InterfaceModel)
returns Boolean;
Update (me; form : mutable EditForm; num : Integer;
Update (me; form : EditForm; num : Integer;
newval : HAsciiString; enforce : Boolean)
returns Boolean is redefined;
-- for dynamically computed values

2
src/IGESSelect/IGESSelect_FloatFormat.cdl
View File

@@ -26,7 +26,7 @@ uses CString, AsciiString from TCollection,
is
Create returns mutable FloatFormat;
Create returns FloatFormat;
---Purpose : Creates a new FloatFormat, with standard options :
-- ZeroSuppress, Main Format = %E,
-- Format between 0.001 and 1000. = %f

2
src/IGESSelect/IGESSelect_IGESName.cdl
View File

@@ -25,7 +25,7 @@ uses CString, Transient, InterfaceModel
is
Create returns mutable IGESName;
Create returns IGESName;
---Purpose : Creates a Signature for IGES Name (reduced to ShortLabel,
-- without SubscriptLabel or Long Name)

2
src/IGESSelect/IGESSelect_IGESTypeForm.cdl
View File

@@ -26,7 +26,7 @@ uses CString, Transient, InterfaceModel
is
Create (withform : Boolean = Standard_True) returns mutable IGESTypeForm;
Create (withform : Boolean = Standard_True) returns IGESTypeForm;
---Purpose : Creates a Signature for IGES Type & Form Numbers
-- If <withform> is False, for IGES Type Number only

4
src/IGESSelect/IGESSelect_RebuildDrawings.cdl
View File

@@ -32,11 +32,11 @@ uses AsciiString from TCollection,
is
Create returns mutable RebuildDrawings;
Create returns RebuildDrawings;
---Purpose : Creates an RebuildDrawings, which uses the system Date
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : Rebuilds the original Drawings

4
src/IGESSelect/IGESSelect_RebuildGroups.cdl
View File

@@ -32,11 +32,11 @@ uses AsciiString from TCollection,
is
Create returns mutable RebuildGroups;
Create returns RebuildGroups;
---Purpose : Creates an RebuildGroups, which uses the system Date
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : Rebuilds the original groups

4
src/IGESSelect/IGESSelect_RemoveCurves.cdl
View File

@@ -24,13 +24,13 @@ uses AsciiString from TCollection,
is
Create (UV : Boolean) returns mutable RemoveCurves;
Create (UV : Boolean) returns RemoveCurves;
---Purpose : Creates a RemoveCurves from Faces (141/142/143/144)
-- UV True : Removes UV Curves (pcurves)
-- UV False : Removes 3D Curves
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : Removes the Curves

2
src/IGESSelect/IGESSelect_SelectBasicGeom.cdl
View File

@@ -35,7 +35,7 @@ uses AsciiString from TCollection, Transient, EntityIterator, Graph,
is
Create (mode : Integer) returns mutable SelectBasicGeom;
Create (mode : Integer) returns SelectBasicGeom;
---Purpose : Creates a SelectBasicGeom, which allways works recursively
-- mode = -1 : Returns Surfaces (without trimming)
-- mode = +1 : Returns Curves 3D (free or bound of surface)

2
src/IGESSelect/IGESSelect_SelectBypassGroup.cdl
View File

@@ -31,7 +31,7 @@ raises InterfaceError
is
Create (level : Integer = 0) returns mutable SelectBypassGroup;
Create (level : Integer = 0) returns SelectBypassGroup;
---Purpose : Creates a SelectBypassGroup, by default all level
-- (level = 1 explores at first level)

2
src/IGESSelect/IGESSelect_SelectBypassSubfigure.cdl
View File

@@ -37,7 +37,7 @@ raises InterfaceError
is
Create (level : Integer = 0) returns mutable SelectBypassSubfigure;
Create (level : Integer = 0) returns SelectBypassSubfigure;
---Purpose : Creates a SelectBypassSubfigure, by default all level
-- (level = 1 explores at first level)

2
src/IGESSelect/IGESSelect_SelectDrawingFrom.cdl
View File

@@ -26,7 +26,7 @@ raises InterfaceError
is
Create returns mutable SelectDrawingFrom;
Create returns SelectDrawingFrom;
---Purpose : Creates a SelectDrawingFrom
HasUniqueResult (me) returns Boolean is redefined protected;

2
src/IGESSelect/IGESSelect_SelectFaces.cdl
View File

@@ -32,7 +32,7 @@ uses AsciiString from TCollection, Transient, EntityIterator, Graph
is
Create returns mutable SelectFaces;
Create returns SelectFaces;
Explore (me; level : Integer; ent : Transient; G : Graph;

2
src/IGESSelect/IGESSelect_SelectFromDrawing.cdl
View File

@@ -27,7 +27,7 @@ raises InterfaceError
is
Create returns mutable SelectFromDrawing;
Create returns SelectFromDrawing;
---Purpose : Creates a SelectFromDrawing
RootResult (me; G : Graph) returns EntityIterator raises InterfaceError;

2
src/IGESSelect/IGESSelect_SelectFromSingleView.cdl
View File

@@ -27,7 +27,7 @@ raises InterfaceError
is
Create returns mutable SelectFromSingleView;
Create returns SelectFromSingleView;
---Purpose : Creates a SelectFromSingleView
RootResult (me; G : Graph) returns EntityIterator raises InterfaceError;

6
src/IGESSelect/IGESSelect_SelectLevelNumber.cdl
View File

@@ -29,14 +29,14 @@ uses AsciiString from TCollection, Transient, InterfaceModel, IntParam
is
Create returns mutable SelectLevelNumber;
Create returns SelectLevelNumber;
---Purpose : Creates a SelectLevelNumber, with no Level criterium : see
-- SetLevelNumber. Empty, this selection filters nothing.
SetLevelNumber (me : mutable; levnum : mutable IntParam);
SetLevelNumber (me : mutable; levnum : IntParam);
---Purpose : Sets a Parameter as Level criterium
LevelNumber (me) returns mutable IntParam;
LevelNumber (me) returns IntParam;
---Purpose : Returns the Level criterium. NullHandle if not yet set
-- (interpreted as Level = 0 : no level number attached)

2
src/IGESSelect/IGESSelect_SelectName.cdl
View File

@@ -27,7 +27,7 @@ uses AsciiString from TCollection, HAsciiString from TCollection,
is
Create returns mutable SelectName;
Create returns SelectName;
---Purpose : Creates an empty SelectName : every entity is considered
-- good (no filter active)

2
src/IGESSelect/IGESSelect_SelectPCurves.cdl
View File

@@ -24,7 +24,7 @@ uses AsciiString from TCollection, Transient, EntityIterator, Graph
is
Create (basic : Boolean) returns mutable SelectPCurves;
Create (basic : Boolean) returns SelectPCurves;
---Purpose : Creates a SelectPCurves
-- basic True : lists all the components of pcurves
-- basic False : lists the uppest level definitions

2
src/IGESSelect/IGESSelect_SelectSingleViewFrom.cdl
View File

@@ -27,7 +27,7 @@ raises InterfaceError
is
Create returns mutable SelectSingleViewFrom;
Create returns SelectSingleViewFrom;
---Purpose : Creates a SelectSingleViewFrom
HasUniqueResult (me) returns Boolean is redefined protected;

2
src/IGESSelect/IGESSelect_SelectSubordinate.cdl
View File

@@ -32,7 +32,7 @@ uses AsciiString from TCollection, Transient, InterfaceModel
is
Create (status : Integer) returns mutable SelectSubordinate;
Create (status : Integer) returns SelectSubordinate;
---Purpose : Creates a SelectSubordinate with a status to be sorted
Status (me) returns Integer;

2
src/IGESSelect/IGESSelect_SelectVisibleStatus.cdl
View File

@@ -25,7 +25,7 @@ uses AsciiString from TCollection, Transient, InterfaceModel
is
Create returns mutable SelectVisibleStatus;
Create returns SelectVisibleStatus;
---Purpose : Creates a SelectVisibleStatus
Sort (me; rank : Integer; ent : Transient; model : InterfaceModel)

8
src/IGESSelect/IGESSelect_SetGlobalParameter.cdl
View File

@@ -32,7 +32,7 @@ uses AsciiString from TCollection, HAsciiString from TCollection,
is
Create (numpar : Integer) returns mutable SetGlobalParameter;
Create (numpar : Integer) returns SetGlobalParameter;
---Purpose : Creates an SetGlobalParameter, to be applied on Global
-- Parameter <numpar>
@@ -40,15 +40,15 @@ is
---Purpose : Returns the global parameter number to which this modifiers
-- applies
SetValue (me : mutable; text : mutable HAsciiString);
SetValue (me : mutable; text : HAsciiString);
---Purpose : Sets a Text Parameter for the new value
Value (me) returns mutable HAsciiString;
Value (me) returns HAsciiString;
---Purpose : Returns the value to set to the global parameter (Text Param)
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : only <target> is used : the form of the new
-- value is checked regarding the parameter number (given at

2
src/IGESSelect/IGESSelect_SetLabel.cdl
View File

@@ -33,7 +33,7 @@ is
-- Mode : see Purpose of the class
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : Sets or Clears the Label

4
src/IGESSelect/IGESSelect_SetVersion5.cdl
View File

@@ -27,12 +27,12 @@ uses AsciiString from TCollection,
is
Create returns mutable SetVersion5;
Create returns SetVersion5;
---Purpose : Creates an SetVersion5, which uses the system Date for Last
-- Change Date
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : only <target> is used : IGES Version (coded)
-- is upgraded to 5.1 if it is older, and it this case the new

2
src/IGESSelect/IGESSelect_SignLevelNumber.cdl
View File

@@ -27,7 +27,7 @@ uses CString, Transient, AsciiString, InterfaceModel
is
Create (countmode : Boolean) returns mutable SignLevelNumber;
Create (countmode : Boolean) returns SignLevelNumber;
---Purpose : Creates a SignLevelNumber
-- <countmode> True : values are naturally displayed
-- <countmode> False: values are separated by slashes

2
src/IGESSelect/IGESSelect_SignStatus.cdl
View File

@@ -35,7 +35,7 @@ uses CString, Transient, AsciiString, InterfaceModel
is
Create returns mutable SignStatus;
Create returns SignStatus;
Value (me; ent : any Transient; model : InterfaceModel) returns CString;
---Purpose : Returns the value (see above)

6
src/IGESSelect/IGESSelect_SplineToBSpline.cdl
View File

@@ -35,7 +35,7 @@ uses AsciiString from TCollection,
is
Create (tryC2 : Boolean) returns mutable SplineToBSpline;
Create (tryC2 : Boolean) returns SplineToBSpline;
---Purpose : Creates a Transformer SplineToBSpline. If <tryC2> is True,
-- it will in addition try to upgrade continuity up to C2.
@@ -44,11 +44,11 @@ is
Perform (me : mutable; G : Graph; protocol : Protocol from Interface;
checks : in out CheckIterator;
newmod : out mutable InterfaceModel) returns Boolean;
newmod : out InterfaceModel) returns Boolean;
---Purpose : Performs the transformation, if there is at least one Spline
-- Curve (112) or Surface (126). Does nothing if there is none.
Updated (me; entfrom : Transient; entto : out mutable Transient)
Updated (me; entfrom : Transient; entto : out Transient)
returns Boolean;
---Purpose : Returns the transformed entities.
-- If original data contained no Spline Curve or Surface,

4
src/IGESSelect/IGESSelect_UpdateCreationDate.cdl
View File

@@ -27,11 +27,11 @@ uses AsciiString from TCollection,
is
Create returns mutable UpdateCreationDate;
Create returns UpdateCreationDate;
---Purpose : Creates an UpdateCreationDate, which uses the system Date
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : only <target> is used : the system Date
-- is set to Global Section Item n0 18.

4
src/IGESSelect/IGESSelect_UpdateFileName.cdl
View File

@@ -29,11 +29,11 @@ uses AsciiString from TCollection,
is
Create returns mutable UpdateFileName;
Create returns UpdateFileName;
---Purpose : Creates an UpdateFileName, which uses the system Date
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : only <target> is used : the system Date
-- is set to Global Section Item n0 18.

4
src/IGESSelect/IGESSelect_UpdateLastChange.cdl
View File

@@ -29,11 +29,11 @@ uses AsciiString from TCollection,
is
Create returns mutable UpdateLastChange;
Create returns UpdateLastChange;
---Purpose : Creates an UpdateLastChange, which uses the system Date
Performing (me; ctx : in out ContextModif;
target : mutable IGESModel;
target : IGESModel;
TC : in out CopyTool);
---Purpose : Specific action : only <target> is used : the system Date
-- is set to Global Section Item n0 25. Also sets IGES Version

2
src/IGESSelect/IGESSelect_ViewSorter.cdl
View File

@@ -32,7 +32,7 @@ uses Transient, HSequenceOfTransient,
is
Create returns mutable ViewSorter;
Create returns ViewSorter;
---Purpose : Creates a ViewSorter, empty. SetModel remains to be called
SetModel (me : mutable; model : IGESModel);

4
src/IGESSelect/IGESSelect_WorkLibrary.cdl
View File

@@ -26,12 +26,12 @@ uses CString, Transient,
is
Create (modefnes : Boolean = Standard_False)
returns mutable WorkLibrary from IGESSelect;
returns WorkLibrary from IGESSelect;
---Purpose : Creates a IGES WorkLibrary
-- If <modefnes> is given as True, it will work for FNES
ReadFile (me; name : CString;
model : out mutable InterfaceModel;
model : out InterfaceModel;
protocol : Protocol from Interface)
returns Integer;
---Purpose : Reads a IGES File and returns a IGES Model (into <mod>),