0024023: Revamp the OCCT Handle -- general

[occt.git] / src / XSControl / XSControl_Controller.cdl

diff --git a/src/XSControl/XSControl_Controller.cdl b/src/XSControl/XSControl_Controller.cdl
old mode 100755 (executable)
new mode 100644 (file)
index fec553e..efc5c6d
--- a/src/XSControl/XSControl_Controller.cdl
+++ b/src/XSControl/XSControl_Controller.cdl
@@ -1,9 +1,18 @@
--- File:       XSControl_Controller.cdl
--- Created:    Mon Mar 13 15:37:52 1995
--- Author:     Christian CAILLET
---             <cky@anion>
----Copyright:   Matra Datavision 1995
-
+-- Created on: 1995-03-13
+-- Created by: Christian CAILLET
+-- Copyright (c) 1995-1999 Matra Datavision
+-- Copyright (c) 1999-2014 OPEN CASCADE SAS
+--
+-- This file is part of Open CASCADE Technology software library.
+--
+-- This library is free software; you can redistribute it and/or modify it under
+-- the terms of the GNU Lesser General Public License version 2.1 as published
+-- by the Free Software Foundation, with special exception defined in the file
+-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+-- distribution for complete text of the license and disclaimer of any warranty.
+--
+-- Alternatively, this file may be used under the terms of Open CASCADE
+-- commercial license or contractual agreement.
 
 deferred class Controller  from XSControl  inherits TShared
 
@@ -40,7 +49,7 @@ uses CString,  AsciiString, SequenceOfTransient, SequenceOfInteger,
      FinderProcess    from Transfer,
      Shape            from TopoDS,
      WorkLibrary      from IFSelect,
-     Profile          from IFSelect,
+     Profile          from MoniTool,
      WorkSession      from XSControl,
      ReturnStatus     from IFSelect
 
@@ -66,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
 
@@ -81,7 +90,7 @@ is
     --           rsc = False (D) : True Name attached to the Norm (long name)
     --           rsc = True : Name of the ressource set (i.e. short name)
 
-    Profile       (me) returns Profile from IFSelect;
+    Profile       (me) returns Profile from MoniTool;
     ---Purpose : Returns the Profile
     --           It starts with a first configuration Base (empty) and the
     --           following options :
@@ -129,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
@@ -193,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
@@ -214,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
@@ -233,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
@@ -245,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