[occt.git] / src / STEPControl / STEPControl_Controller.cdl

-- File:	STEPControl_Controller.cdl
-- Created:	Mon Feb 20 11:00:58 1995
-- Author:	Christian CAILLET
--		<cky@paris1>
---Copyright:	 Matra Datavision 1995


class Controller  from STEPControl inherits Controller  from XSControl

    ---Purpose : defines basic controller for STEP processor

uses

     CString,
     Protocol from Interface,
     InterfaceModel from Interface,
     WorkLibrary    from IFSelect,
     ReturnStatus   from IFSelect,
     ActorOfTransientProcess from Transfer,
     FinderProcess  from Transfer,
     ActorOfFinderProcess from Transfer,
     Shape from TopoDS,
     WorkSession from XSControl

is

    Create returns mutable Controller from STEPControl;
    ---Purpose : Initializes the use of STEP Norm (the first time) and
    --           returns a Controller

    NewModel     (me) returns mutable InterfaceModel from Interface;
    ---Purpose : Creates a new empty Model ready to receive data of the Norm.
    --           It is taken from STEP Template Model

    ActorRead  (me; model : InterfaceModel)
                 returns mutable ActorOfTransientProcess from Transfer;
    ---Purpose : Returns a new Actor for Read attached to the pair (norm,appli)
    --           It is a PmsToTopoDSAct_Actor

    	--  Redefined Transfer for Write (using Actor)  --
    Customise (me: mutable; WS : in out WorkSession from XSControl) is redefined;
    
    TransferWriteShape (me; shape : Shape from TopoDS;
    	    	    	FP        : mutable FinderProcess  from Transfer;
    	    	        model     : mutable InterfaceModel from Interface;
			modetrans : Integer = 0)  returns ReturnStatus
      is redefined;
    ---Purpose : Takes one Shape and transfers it to the InterfaceModel
    --           (already created by NewModel for instance)
    --           <modeshape> is to be interpreted by each kind of XstepAdaptor
    --           Returns a status : 0 OK  1 No result  2 Fail  -1 bad modeshape
    --               -2 bad model (requires a StepModel)
    --           modeshape : 1 Facetted BRep, 2 Shell, 3 Manifold Solid

    	--  for global initialisation

    Init (myclass) returns Boolean;
    ---Purpose : Standard Initialisation. It creates a Controller for STEP
    --           and records it to various names, available to select it later
    --           Returns True when done, False if could not be done

end Controller;
Commit	Line	Data
7fd59977	1	-- File: STEPControl_Controller.cdl
	2	-- Created: Mon Feb 20 11:00:58 1995
	3	-- Author: Christian CAILLET
	4	-- <cky@paris1>
	5	---Copyright: Matra Datavision 1995
	6
	7
	8	class Controller from STEPControl inherits Controller from XSControl
	9
	10	---Purpose : defines basic controller for STEP processor
	11
	12	uses
	13
	14	CString,
	15	Protocol from Interface,
	16	InterfaceModel from Interface,
	17	WorkLibrary from IFSelect,
	18	ReturnStatus from IFSelect,
	19	ActorOfTransientProcess from Transfer,
	20	FinderProcess from Transfer,
	21	ActorOfFinderProcess from Transfer,
	22	Shape from TopoDS,
	23	WorkSession from XSControl
	24
	25	is
	26
	27	Create returns mutable Controller from STEPControl;
	28	---Purpose : Initializes the use of STEP Norm (the first time) and
	29	-- returns a Controller
	30
	31	NewModel (me) returns mutable InterfaceModel from Interface;
	32	---Purpose : Creates a new empty Model ready to receive data of the Norm.
	33	-- It is taken from STEP Template Model
	34
	35	ActorRead (me; model : InterfaceModel)
	36	returns mutable ActorOfTransientProcess from Transfer;
	37	---Purpose : Returns a new Actor for Read attached to the pair (norm,appli)
	38	-- It is a PmsToTopoDSAct_Actor
	39
	40	-- Redefined Transfer for Write (using Actor) --
	41	Customise (me: mutable; WS : in out WorkSession from XSControl) is redefined;
	42
	43	TransferWriteShape (me; shape : Shape from TopoDS;
	44	FP : mutable FinderProcess from Transfer;
	45	model : mutable InterfaceModel from Interface;
	46	modetrans : Integer = 0) returns ReturnStatus
	47	is redefined;
	48	---Purpose : Takes one Shape and transfers it to the InterfaceModel
	49	-- (already created by NewModel for instance)
	50	-- <modeshape> is to be interpreted by each kind of XstepAdaptor
	51	-- Returns a status : 0 OK 1 No result 2 Fail -1 bad modeshape
	52	-- -2 bad model (requires a StepModel)
	53	-- modeshape : 1 Facetted BRep, 2 Shell, 3 Manifold Solid
	54
	55	-- for global initialisation
	56
	57	Init (myclass) returns Boolean;
	58	---Purpose : Standard Initialisation. It creates a Controller for STEP
	59	-- and records it to various names, available to select it later
	60	-- Returns True when done, False if could not be done
	61
	62	end Controller;