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

2
src/IGESDraw/IGESDraw_CircArraySubfigure.cdl
View File

@@ -35,7 +35,7 @@ raises OutOfRange
is
Create returns mutable CircArraySubfigure;
Create returns CircArraySubfigure;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_ConnectPoint.cdl
View File

@@ -33,7 +33,7 @@ uses
is
Create returns mutable ConnectPoint;
Create returns ConnectPoint;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_Drawing.cdl
View File

@@ -37,7 +37,7 @@ raises DimensionMismatch, OutOfRange
is
Create returns mutable Drawing;
Create returns Drawing;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_DrawingWithRotation.cdl
View File

@@ -37,7 +37,7 @@ raises DimensionMismatch, OutOfRange
is
Create returns mutable DrawingWithRotation;
Create returns DrawingWithRotation;
-- Specific Methods pertaining to the class

10
src/IGESDraw/IGESDraw_GeneralModule.cdl
View File

@@ -25,7 +25,7 @@ uses OStream,
is
Create returns mutable GeneralModule from IGESDraw;
Create returns GeneralModule from IGESDraw;
---Purpose : Creates a GeneralModule from IGESDraw and puts it into GeneralLib
OwnSharedCase (me; CN : Integer; ent : IGESEntity;
@@ -48,24 +48,24 @@ is
---Purpose : Performs Specific Semantic Check for each type of Entity
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
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
OwnRenewCase (me; CN : Integer;
entfrom : IGESEntity; entto : mutable IGESEntity;
entfrom : IGESEntity; entto : IGESEntity;
TC : CopyTool) is redefined;
---Purpose : Renews parameters which are specific of each Type of Entity :
-- redefined for ViewsVisible ... (takes only the implied ref.s
-- which have also been copied)
OwnDeleteCase (me; CN : Integer;
ent : mutable IGESEntity) is redefined;
ent : IGESEntity) is redefined;
---Purpose : Clears parameters with can cause looping structures :
-- redefined for ViewsVisible ... (clears the implied ref.s)

2
src/IGESDraw/IGESDraw_LabelDisplay.cdl
View File

@@ -38,7 +38,7 @@ raises DimensionMismatch, OutOfRange
is
Create returns mutable LabelDisplay;
Create returns LabelDisplay;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_NetworkSubfigure.cdl
View File

@@ -35,7 +35,7 @@ raises OutOfRange
is
Create returns mutable NetworkSubfigure;
Create returns NetworkSubfigure;
-- specific for the entity

2
src/IGESDraw/IGESDraw_NetworkSubfigureDef.cdl
View File

@@ -42,7 +42,7 @@ raises OutOfRange
is
Create returns mutable NetworkSubfigureDef;
Create returns NetworkSubfigureDef;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_PerspectiveView.cdl
View File

@@ -44,7 +44,7 @@ raises OutOfRange
is
Create returns mutable PerspectiveView;
Create returns PerspectiveView;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_Planar.cdl
View File

@@ -31,7 +31,7 @@ raises OutOfRange
is
Create returns mutable Planar;
Create returns Planar;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_Protocol.cdl
View File

@@ -22,7 +22,7 @@ uses Type, Protocol from Interface
is
Create returns mutable Protocol from IGESDraw;
Create returns Protocol from IGESDraw;
NbResources (me) returns Integer is redefined;
---Purpose : Gives the count of Resource Protocol. Here, one

4
src/IGESDraw/IGESDraw_ReadWriteModule.cdl
View File

@@ -27,13 +27,13 @@ raises DomainError
is
Create returns mutable ReadWriteModule from IGESDraw;
Create returns ReadWriteModule from IGESDraw;
---Purpose : Creates a ReadWriteModule & puts it into ReaderLib & WriterLib
CaseIGES (me; typenum, formnum : Integer) returns Integer;
---Purpose : Defines Case Numbers for Entities of IGESDraw
ReadOwnParams (me; CN : Integer; ent : mutable IGESEntity;
ReadOwnParams (me; CN : Integer; ent : IGESEntity;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError;
---Purpose : Reads own parameters from file for an Entity of IGESDraw

2
src/IGESDraw/IGESDraw_RectArraySubfigure.cdl
View File

@@ -33,7 +33,7 @@ raises OutOfRange
is
Create returns mutable RectArraySubfigure;
Create returns RectArraySubfigure;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_SegmentedViewsVisible.cdl
View File

@@ -36,7 +36,7 @@ raises DimensionMismatch, OutOfRange
is
Create returns mutable SegmentedViewsVisible;
Create returns SegmentedViewsVisible;
-- Specific Methods pertaining to the class

4
src/IGESDraw/IGESDraw_SpecificModule.cdl
View File

@@ -23,14 +23,14 @@ uses Messenger from Message, IGESEntity, IGESDumper
is
Create returns mutable SpecificModule from IGESDraw;
Create returns SpecificModule from IGESDraw;
---Purpose : Creates a SpecificModule from IGESDraw & puts it into SpecificLib
OwnDump (me; CN : Integer; ent : IGESEntity;
dumper : IGESDumper; S : Messenger from Message; own : Integer);
---Purpose : Specific Dump (own parameters) for IGESDraw
OwnCorrect (me; CN : Integer; ent : mutable IGESEntity)
OwnCorrect (me; CN : Integer; ent : IGESEntity)
returns Boolean is redefined;
---Purpose : Performs non-ambiguous Corrections on Entities which support
-- them (Planar)

4
src/IGESDraw/IGESDraw_ToolCircArraySubfigure.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolCircArraySubfigure, ready to work
ReadOwnParams (me; ent : mutable CircArraySubfigure;
ReadOwnParams (me; ent : CircArraySubfigure;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : CircArraySubfigure; entto : mutable CircArraySubfigure;
OwnCopy (me; entfrom : CircArraySubfigure; entto : CircArraySubfigure;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolConnectPoint.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolConnectPoint, ready to work
ReadOwnParams (me; ent : mutable ConnectPoint;
ReadOwnParams (me; ent : ConnectPoint;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : ConnectPoint; entto : mutable ConnectPoint;
OwnCopy (me; entfrom : ConnectPoint; entto : ConnectPoint;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

6
src/IGESDraw/IGESDraw_ToolDrawing.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolDrawing, ready to work
ReadOwnParams (me; ent : mutable Drawing;
ReadOwnParams (me; ent : Drawing;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -47,7 +47,7 @@ is
---Purpose : Lists the Entities shared by a Drawing <ent>, from
-- its specific (own) parameters
OwnCorrect (me; ent : mutable Drawing) returns Boolean is static;
OwnCorrect (me; ent : Drawing) returns Boolean is static;
---Purpose : Sets automatic unambiguous Correction on a Drawing
-- (Null Views are removed from list)
@@ -59,7 +59,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : Drawing; entto : mutable Drawing;
OwnCopy (me; entfrom : Drawing; entto : Drawing;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

6
src/IGESDraw/IGESDraw_ToolDrawingWithRotation.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolDrawingWithRotation, ready to work
ReadOwnParams (me; ent : mutable DrawingWithRotation;
ReadOwnParams (me; ent : DrawingWithRotation;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -47,7 +47,7 @@ is
---Purpose : Lists the Entities shared by a DrawingWithRotation <ent>, from
-- its specific (own) parameters
OwnCorrect (me; ent : mutable DrawingWithRotation) returns Boolean is static;
OwnCorrect (me; ent : DrawingWithRotation) returns Boolean is static;
---Purpose : Sets automatic unambiguous Correction on a DrawingWithRotation
-- (Null Views are removed from list)
@@ -59,7 +59,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : DrawingWithRotation; entto : mutable DrawingWithRotation;
OwnCopy (me; entfrom : DrawingWithRotation; entto : DrawingWithRotation;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolLabelDisplay.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolLabelDisplay, ready to work
ReadOwnParams (me; ent : mutable LabelDisplay;
ReadOwnParams (me; ent : LabelDisplay;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : LabelDisplay; entto : mutable LabelDisplay;
OwnCopy (me; entfrom : LabelDisplay; entto : LabelDisplay;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolNetworkSubfigure.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolNetworkSubfigure, ready to work
ReadOwnParams (me; ent : mutable NetworkSubfigure;
ReadOwnParams (me; ent : NetworkSubfigure;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : NetworkSubfigure; entto : mutable NetworkSubfigure;
OwnCopy (me; entfrom : NetworkSubfigure; entto : NetworkSubfigure;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolNetworkSubfigureDef.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolNetworkSubfigureDef, ready to work
ReadOwnParams (me; ent : mutable NetworkSubfigureDef;
ReadOwnParams (me; ent : NetworkSubfigureDef;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : NetworkSubfigureDef; entto : mutable NetworkSubfigureDef;
OwnCopy (me; entfrom : NetworkSubfigureDef; entto : NetworkSubfigureDef;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolPerspectiveView.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolPerspectiveView, ready to work
ReadOwnParams (me; ent : mutable PerspectiveView;
ReadOwnParams (me; ent : PerspectiveView;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : PerspectiveView; entto : mutable PerspectiveView;
OwnCopy (me; entfrom : PerspectiveView; entto : PerspectiveView;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

6
src/IGESDraw/IGESDraw_ToolPlanar.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolPlanar, ready to work
ReadOwnParams (me; ent : mutable Planar;
ReadOwnParams (me; ent : Planar;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -47,7 +47,7 @@ is
---Purpose : Lists the Entities shared by a Planar <ent>, from
-- its specific (own) parameters
OwnCorrect (me; ent : mutable Planar) returns Boolean is static;
OwnCorrect (me; ent : Planar) returns Boolean is static;
---Purpose : Sets automatic unambiguous Correction on a Planar
-- (NbMatrices forced to 1)
@@ -59,7 +59,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : Planar; entto : mutable Planar;
OwnCopy (me; entfrom : Planar; entto : Planar;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolRectArraySubfigure.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolRectArraySubfigure, ready to work
ReadOwnParams (me; ent : mutable RectArraySubfigure;
ReadOwnParams (me; ent : RectArraySubfigure;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : RectArraySubfigure; entto : mutable RectArraySubfigure;
OwnCopy (me; entfrom : RectArraySubfigure; entto : RectArraySubfigure;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolSegmentedViewsVisible.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolSegmentedViewsVisible, ready to work
ReadOwnParams (me; ent : mutable SegmentedViewsVisible;
ReadOwnParams (me; ent : SegmentedViewsVisible;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : SegmentedViewsVisible; entto : mutable SegmentedViewsVisible;
OwnCopy (me; entfrom : SegmentedViewsVisible; entto : SegmentedViewsVisible;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

4
src/IGESDraw/IGESDraw_ToolView.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolView, ready to work
ReadOwnParams (me; ent : mutable View;
ReadOwnParams (me; ent : View;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -55,7 +55,7 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : View; entto : mutable View;
OwnCopy (me; entfrom : View; entto : View;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters

8
src/IGESDraw/IGESDraw_ToolViewsVisible.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolViewsVisible, ready to work
ReadOwnParams (me; ent : mutable ViewsVisible;
ReadOwnParams (me; ent : ViewsVisible;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -61,12 +61,12 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : ViewsVisible; entto : mutable ViewsVisible;
OwnCopy (me; entfrom : ViewsVisible; entto : ViewsVisible;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters shared not implied, i.e. all but
-- the Displayed Entities
OwnRenew (me; entfrom : ViewsVisible; entto : mutable ViewsVisible;
OwnRenew (me; entfrom : ViewsVisible; entto : ViewsVisible;
TC : CopyTool) is static;
---Purpose : Copies Specific implied Parameters : the Displayed Entities
-- which have already been copied
@@ -81,7 +81,7 @@ is
is static;
---Purpose : Dump of Specific Parameters
OwnCorrect (me; ent : mutable ViewsVisible) returns Boolean is static;
OwnCorrect (me; ent : ViewsVisible) returns Boolean is static;
---Purpose : Sets automatic unambiguous Correction on a ViewsVisible
-- (all displayed entities must refer to <ent> in directory part,
-- else the list is cleared)

8
src/IGESDraw/IGESDraw_ToolViewsVisibleWithAttr.cdl
View File

@@ -31,7 +31,7 @@ is
---Purpose : Returns a ToolViewsVisibleWithAttr, ready to work
ReadOwnParams (me; ent : mutable ViewsVisibleWithAttr;
ReadOwnParams (me; ent : ViewsVisibleWithAttr;
IR : IGESReaderData; PR : in out ParamReader)
raises DomainError is static;
---Purpose : Reads own parameters from file. <PR> gives access to them,
@@ -61,12 +61,12 @@ is
---Purpose : Performs Specific Semantic Check
OwnCopy (me; entfrom : ViewsVisibleWithAttr; entto : mutable ViewsVisibleWithAttr;
OwnCopy (me; entfrom : ViewsVisibleWithAttr; entto : ViewsVisibleWithAttr;
TC : in out CopyTool) is static;
---Purpose : Copies Specific Parameters shared not implied, i.e. all but
-- the Displayed Entities
OwnRenew (me; entfrom : ViewsVisibleWithAttr; entto : mutable ViewsVisibleWithAttr;
OwnRenew (me; entfrom : ViewsVisibleWithAttr; entto : ViewsVisibleWithAttr;
TC : CopyTool) is static;
---Purpose : Copies Specific implied Parameters : the Displayed Entities
-- which have already been copied
@@ -81,7 +81,7 @@ is
is static;
---Purpose : Dump of Specific Parameters
OwnCorrect (me; ent : mutable ViewsVisibleWithAttr) returns Boolean is static;
OwnCorrect (me; ent : ViewsVisibleWithAttr) returns Boolean is static;
---Purpose : Sets automatic unambiguous Correction on a ViewsVisibleWithAttr
-- (all displayed entities must refer to <ent> in directory part,
-- else the list is cleared)

2
src/IGESDraw/IGESDraw_View.cdl
View File

@@ -35,7 +35,7 @@ raises OutOfRange
is
Create returns mutable View;
Create returns View;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_ViewsVisible.cdl
View File

@@ -33,7 +33,7 @@ raises OutOfRange
is
Create returns mutable ViewsVisible;
Create returns ViewsVisible;
-- Specific Methods pertaining to the class

2
src/IGESDraw/IGESDraw_ViewsVisibleWithAttr.cdl
View File

@@ -39,7 +39,7 @@ raises DimensionMismatch, OutOfRange
is
Create returns mutable ViewsVisibleWithAttr;
Create returns ViewsVisibleWithAttr;
-- Specific Methods pertaining to the class