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

20
src/XSControl/XSControl_Controller.cdl
View File

@@ -75,7 +75,7 @@ is
---Purpose : Records <me> in a general dictionary under a name
-- Error if <name> already used for another one
Recorded (myclass; name : CString) returns mutable Controller;
Recorded (myclass; name : CString) returns Controller;
---Purpose : Returns the Controller attached to a given name
-- Returns a Null Handle if <name> is unknown
@@ -138,17 +138,17 @@ is
---Purpose : Returns the WorkLibrary attached to the Norm. Remark that it
-- has to be in phase with the Protocol (read from field)
NewModel (me) returns mutable InterfaceModel from Interface is deferred;
NewModel (me) returns InterfaceModel from Interface is deferred;
---Purpose : Creates a new empty Model ready to receive data of the Norm
-- Used to write data from Imagine to an interface file
ActorRead (me; model : InterfaceModel)
returns mutable ActorOfTransientProcess from Transfer is deferred;
returns ActorOfTransientProcess from Transfer is deferred;
---Purpose : Returns the Actor for Read attached to the pair (norm,appli)
-- It can be adapted for data of the input Model, as required
-- Can be read from field then adapted with Model as required
ActorWrite (me) returns mutable ActorOfFinderProcess from Transfer
ActorWrite (me) returns ActorOfFinderProcess from Transfer
is virtual;
---Purpose : Returns the Actor for Write attached to the pair (norm,appli)
-- Read from field. Can be redefined
@@ -202,8 +202,8 @@ is
-- TransientMapper). Can be redefined
TransferWriteTransient (me; obj : Transient;
FP : mutable FinderProcess from Transfer;
model : mutable InterfaceModel from Interface;
FP : FinderProcess from Transfer;
model : InterfaceModel from Interface;
modetrans : Integer = 0)
returns ReturnStatus is virtual;
---Purpose : Takes one Transient Object and transfers it to an
@@ -223,8 +223,8 @@ is
-- Asks the ActorWrite (through a ShapeMapper)
TransferWriteShape (me; shape : Shape from TopoDS;
FP : mutable FinderProcess from Transfer;
model : mutable InterfaceModel from Interface;
FP : FinderProcess from Transfer;
model : InterfaceModel from Interface;
modetrans : Integer = 0)
returns ReturnStatus is virtual;
---Purpose : Takes one Shape and transfers it to an
@@ -242,7 +242,7 @@ is
-- - ResolveCluster performs the resolution, its result consists in
-- having all data gathered in one final model
ClusterContext (me; WS : WorkSession) returns mutable Transient is virtual;
ClusterContext (me; WS : WorkSession) returns Transient is virtual;
---Purpose : Prepares and returns a context to resolve a cluster
-- All data to be used are detained by the WorkSession
-- The definition of this context is free and proper to each case
@@ -254,7 +254,7 @@ is
-- If no cluster has to be resolved, should return a null handle
-- This is the default case, which can be redefined
ResolveCluster (me; WS : mutable WorkSession; context : mutable Transient)
ResolveCluster (me; WS : WorkSession; context : Transient)
returns CheckIterator is virtual;
---Purpose : Performs the resolution itself, from the starting data and
-- the cluster context

2
src/XSControl/XSControl_FuncShape.cdl
View File

@@ -36,7 +36,7 @@ is
---Purpose : Defines and loads all functions which work on shapes for XSControl (as ActFunc)
MoreShapes (myclass; session : WorkSession from XSControl;
list : in out mutable HSequenceOfShape from TopTools;
list : in out HSequenceOfShape from TopTools;
name : CString) returns Integer;
---Purpose : Analyses a name as designating Shapes from a Vars or from
-- XSTEP transfer (last Transfer on Reading). <name> can be :

4
src/XSControl/XSControl_Reader.cdl
View File

@@ -65,7 +65,7 @@ is
---Purpose : Creates a Reader from scratch, with a norm name which
-- identifies a Controller
Create (WS : mutable WorkSession from XSControl;
Create (WS : WorkSession from XSControl;
scratch : Boolean = Standard_True) returns Reader;
---Purpose : Creates a Reader from an already existing Session, with a
-- Controller already set
@@ -77,7 +77,7 @@ is
---Purpose : Sets a specific norm to <me>
-- Returns True if done, False if <norm> is not available
SetWS (me : in out; WS : mutable WorkSession from XSControl;
SetWS (me : in out; WS : WorkSession from XSControl;
scratch : Boolean = Standard_True);
---Purpose : Sets a specific session to <me>

6
src/XSControl/XSControl_SelectForTransfer.cdl
View File

@@ -35,11 +35,11 @@ uses AsciiString from TCollection, InterfaceModel,
is
Create returns mutable SelectForTransfer;
Create returns SelectForTransfer;
---Purpose : Creates a SelectForTransfer, non initialised
-- it sorts nothing, unless an Actor has been defined
Create (TR : TransferReader) returns mutable SelectForTransfer;
Create (TR : TransferReader) returns SelectForTransfer;
---Purpose : Creates a SelectForTransfer, which will work with the
-- currently defined Actor brought by the TransferReader
@@ -47,7 +47,7 @@ is
---Purpose : Sets a TransferReader to sort entities : it brings the Actor,
-- which may change, while the TransferReader does not
SetActor (me : mutable; act : mutable ActorOfTransientProcess);
SetActor (me : mutable; act : ActorOfTransientProcess);
---Purpose : Sets a precise actor to sort entities
-- This definition oversedes the creation with a TransferReader

4
src/XSControl/XSControl_SignTransferStatus.cdl
View File

@@ -35,11 +35,11 @@ uses CString, Transient, InterfaceModel,
is
Create returns mutable SignTransferStatus;
Create returns SignTransferStatus;
---Purpose : Creates a SignTransferStatus, not initialised
-- it gives nothing (empty string)
Create (TR : TransferReader) returns mutable SignTransferStatus;
Create (TR : TransferReader) returns SignTransferStatus;
---Purpose : Creates a SignTransferStatus, which will work on the current
-- TransientProcess brought by the TransferReader (its MapReader)

14
src/XSControl/XSControl_TransferReader.cdl
View File

@@ -44,20 +44,20 @@ uses CString, AsciiString, Transient,
is
Create returns mutable TransferReader;
Create returns TransferReader;
---Purpose : Creates a TransferReader, empty
-- General Management --
SetController (me : mutable; control : mutable Controller from XSControl);
SetController (me : mutable; control : Controller from XSControl);
---Purpose : Sets a Controller. It is required to generate the Actor.
-- Elsewhere, the Actor must be provided directly
SetActor (me : mutable; actor : mutable ActorOfTransientProcess);
SetActor (me : mutable; actor : ActorOfTransientProcess);
---Purpose : Sets the Actor directly : this value will be used if the
-- Controller is not set
Actor (me : mutable) returns mutable ActorOfTransientProcess;
Actor (me : mutable) returns ActorOfTransientProcess;
---Purpose : Returns the Actor, determined by the Controller, or if this
-- one is unknown, directly set.
-- Once it has been defined, it can then be edited.
@@ -100,12 +100,12 @@ is
-- +1 final results
-- +2 working data (model, context, transfer process)
TransientProcess (me) returns mutable TransientProcess;
TransientProcess (me) returns TransientProcess;
---Purpose : Returns the currently used TransientProcess
-- It is computed from the model by TransferReadRoots, or by
-- BeginTransferRead
SetTransientProcess (me : mutable; TP : mutable TransientProcess);
SetTransientProcess (me : mutable; TP : TransientProcess);
---Purpose : Forces the TransientProcess
-- Remark : it also changes the Model and the Actor, from those
-- recorded in the new TransientProcess
@@ -164,7 +164,7 @@ is
---Purpose : Returns the final result recorded for a NUMBER of entity
-- (internal use). Null if out of range
TransientResult (me; ent : Transient) returns mutable Transient;
TransientResult (me; ent : Transient) returns Transient;
---Purpose : Returns the resulting object as a Transient
-- Null Handle if no result or result not transient

10
src/XSControl/XSControl_TransferWriter.cdl
View File

@@ -31,14 +31,14 @@ uses Transient,
is
Create returns mutable TransferWriter;
Create returns TransferWriter;
---Purpose : Creates a TransferWriter, empty, ready to run
-- with an empty FinderProcess (but no controller, etc)
FinderProcess (me) returns mutable FinderProcess;
FinderProcess (me) returns FinderProcess;
---Purpose : Returns the FinderProcess itself
SetFinderProcess (me : mutable; FP : mutable FinderProcess);
SetFinderProcess (me : mutable; FP : FinderProcess);
---Purpose : Sets a new FinderProcess and forgets the former one
Controller (me) returns Controller;
@@ -73,7 +73,7 @@ is
-- Asks the Controller (RecognizeWriteTransient)
-- If <obj> is a HShape, calls RecognizeShape
TransferWriteTransient (me : mutable; model : mutable InterfaceModel;
TransferWriteTransient (me : mutable; model : InterfaceModel;
obj : Transient)
returns ReturnStatus;
---Purpose : Transfers a Transient object (from an application) to a model
@@ -86,7 +86,7 @@ is
---Purpose : Tells if a Shape is valid for a transfer to a model
-- Asks the Controller (RecognizeWriteShape)
TransferWriteShape (me : mutable; model : mutable InterfaceModel;
TransferWriteShape (me : mutable; model : InterfaceModel;
shape : Shape from TopoDS)
returns ReturnStatus;
---Purpose : Transfers a Shape from CasCade to a model of current norm,

28
src/XSControl/XSControl_Utils.cdl
View File

@@ -76,12 +76,12 @@ is
-- List of Transients (HSequence or HArray1) --
TraValue (me; list : Transient; num : Integer)
returns mutable Transient;
returns Transient;
-- allowed : HSequenceOfTransient -> Transient,
-- HSequenceOfHAsciiString -> HAsciiString
-- out of range gives Null Handle
NewSeqTra (me) returns mutable HSequenceOfTransient; -- empty new
AppendTra (me; seqval : mutable HSequenceOfTransient;
NewSeqTra (me) returns HSequenceOfTransient; -- empty new
AppendTra (me; seqval : HSequenceOfTransient;
traval : Transient);
-- Dates
@@ -94,14 +94,14 @@ is
ToCString (me; strval : HAsciiString) returns CString;
ToCString (me; strval : AsciiString) returns CString;
ToHString (me; strcon : CString) returns mutable HAsciiString;
ToHString (me; strcon : CString) returns HAsciiString;
ToAString (me; strcon : CString) returns AsciiString;
-- Extended --
ToEString (me; strval : HExtendedString) returns ExtString;
ToEString (me; strval : ExtendedString) returns ExtString;
ToHString (me; strcon : ExtString) returns mutable HExtendedString;
ToHString (me; strcon : ExtString) returns HExtendedString;
ToXString (me; strcon : ExtString) returns ExtendedString;
-- Ascii <-> Extended --
@@ -118,11 +118,11 @@ is
-- conversions Ascii<->Extended are done if required
-- out of range gives empty string
NewSeqCStr (me) returns mutable HSequenceOfHAsciiString; -- empty
AppendCStr (me; seqval : mutable HSequenceOfHAsciiString;
NewSeqCStr (me) returns HSequenceOfHAsciiString; -- empty
AppendCStr (me; seqval : HSequenceOfHAsciiString;
strval : CString);
NewSeqEStr (me) returns mutable HSequenceOfHExtendedString; -- empty
AppendEStr (me; seqval : mutable HSequenceOfHExtendedString;
NewSeqEStr (me) returns HSequenceOfHExtendedString; -- empty
AppendEStr (me; seqval : HSequenceOfHExtendedString;
strval : ExtString);
-- -- Shapes -- --
@@ -177,14 +177,14 @@ is
ShapeValue (me; seqv : HSequenceOfShape from TopTools; num : Integer)
returns Shape from TopoDS;
-- out of range gives Null Handle
NewSeqShape (me) returns mutable HSequenceOfShape; -- empty new
AppendShape (me; seqv : mutable HSequenceOfShape;
NewSeqShape (me) returns HSequenceOfShape; -- empty new
AppendShape (me; seqv : HSequenceOfShape;
shape : Shape from TopoDS);
-- Shape <-> Transient --
ShapeBinder (me; shape : Shape from TopoDS; hs : Boolean = Standard_True)
returns mutable Transient;
returns Transient;
---Purpose : Creates a Transient Object from a Shape : it is either a Binder
-- (used by functions which require a Transient but can process
-- a Shape, such as viewing functions) or a HShape (according to hs)
@@ -200,11 +200,11 @@ is
-- list : HSequence of Transient,(H)Ascii/ExtendedString,Shape,Integer
SeqToArr (me; seq : Transient; first : Integer = 1)
returns mutable Transient raises TypeMismatch;
returns Transient raises TypeMismatch;
-- <first> gives the lower index of produced array
-- empty sequence gives a null handle
ArrToSeq (me; arr : Transient)
returns mutable Transient raises TypeMismatch;
returns Transient raises TypeMismatch;
-- allowed combinations :
-- HSequenceOfTransient <-> HArray1OfTransient
-- HSequenceOfHAsciiString <-> HArray1OfHAsciiString (from Interface)

2
src/XSControl/XSControl_Vars.cdl
View File

@@ -34,7 +34,7 @@ uses CString, Transient, DictionaryOfTransient,
is
Create returns mutable Vars;
Create returns Vars;
Set (me : mutable; name : CString; val : Transient) is virtual;

24
src/XSControl/XSControl_WorkSession.cdl
View File

@@ -34,7 +34,7 @@ uses CString, Transient, DictionaryOfTransient,
is
Create returns mutable WorkSession from XSControl;
Create returns WorkSession from XSControl;
ClearData (me : mutable; mode : Integer) is redefined;
---Purpose : In addition to basic ClearData, clears Transfer and Management
@@ -63,7 +63,7 @@ is
--
-- For more infos on Profile, query the Profile of the Controller
SetController (me : mutable; ctl : mutable Controller);
SetController (me : mutable; ctl : Controller);
---Purpose : Selects a Norm defined by its Controller itself
AdaptNorm (me : mutable) is virtual;
@@ -76,7 +76,7 @@ is
-- By default, returns the complete name of the norm
-- If <rsc> is True, returns the short name used for resource
NormAdaptor (me) returns mutable Controller;
NormAdaptor (me) returns Controller;
---Purpose : Returns the norm controller itself
-- Context used for Transfer : it is a DictionaryOfTransient (no control here)
@@ -112,23 +112,23 @@ is
-- 4 begins a new transfer (by BeginTransfer)
-- 5 recreates TransferReader then begins a new transfer
SetTransferReader (me : mutable; TR : mutable TransferReader);
SetTransferReader (me : mutable; TR : TransferReader);
---Purpose : Sets a Transfer Reader, which manages transfers on reading
TransferReader (me) returns mutable TransferReader;
TransferReader (me) returns TransferReader;
---Purpose : Returns the Transfer Reader, Null if not set
MapReader (me) returns mutable TransientProcess;
MapReader (me) returns TransientProcess;
---Purpose : Returns the TransientProcess(internal data for TransferReader)
SetMapReader (me : mutable; TP : mutable TransientProcess) returns Boolean;
SetMapReader (me : mutable; TP : TransientProcess) returns Boolean;
---Purpose : Changes the Map Reader, i.e. considers that the new one
-- defines the relevant read results (forgets the former ones)
-- Returns True when done, False in case of bad definition, i.e.
-- if Model from TP differs from that of Session
Result (me; ent : Transient; mode : Integer)
returns mutable Transient;
returns Transient;
---Purpose : Returns the result attached to a starting entity
-- If <mode> = 0, returns Final Result
-- If <mode> = 1, considers Last Result
@@ -173,18 +173,18 @@ is
-- Management of Transfer (Write) --
-- It is actually oriented to shapes
NewModel (me : mutable) returns mutable InterfaceModel from Interface;
NewModel (me : mutable) returns InterfaceModel from Interface;
---Purpose : produces and returns a new Model well conditionned
-- It is produced by the Norm Controller
-- It can be Null (if this function is not implemented)
TransferWriter (me) returns mutable TransferWriter;
TransferWriter (me) returns TransferWriter;
---Purpose : Returns the Transfer Reader, Null if not set
MapWriter (me) returns mutable FinderProcess;
MapWriter (me) returns FinderProcess;
---Purpose : Returns the FinderProcess (internal data for TransferWriter)
SetMapWriter (me : mutable; FP : mutable FinderProcess) returns Boolean;
SetMapWriter (me : mutable; FP : FinderProcess) returns Boolean;
---Purpose : Changes the Map Reader, i.e. considers that the new one
-- defines the relevant read results (forgets the former ones)
-- Returns True when done, False if <FP> is Null

4
src/XSControl/XSControl_Writer.cdl
View File

@@ -34,7 +34,7 @@ is
---Purpose : Creates a Writer from scratch, with a norm name which
-- identifie a Controller
Create (WS : mutable WorkSession from XSControl;
Create (WS : WorkSession from XSControl;
scratch : Boolean = Standard_True) returns Writer;
---Purpose : Creates a Writer from an already existing Session
-- If <scratch> is True (D), clears already recorded data
@@ -43,7 +43,7 @@ is
---Purpose : Sets a specific norm to <me>
-- Returns True if done, False if <norm> is not available
SetWS (me : in out; WS : mutable WorkSession from XSControl;
SetWS (me : in out; WS : WorkSession from XSControl;
scratch : Boolean = Standard_True);
---Purpose : Sets a specific session to <me>