7fd59977 |
1 | -- File: XSControl_FuncShape.cdl |
2 | -- Created: Thu Mar 16 17:48:13 1995 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@anion> |
5 | ---Copyright: Matra Datavision 1995 |
6 | |
7 | |
8 | class FuncShape from XSControl |
9 | |
10 | ---Purpose : Defines additionnal commands for XSControl to : |
11 | -- - control of initialisation (xinit, xnorm, newmodel) |
12 | -- - analyse of the result of a transfer (recorded in a |
13 | -- TransientProcess for Read, FinderProcess for Write) : |
14 | -- statistics, various lists (roots,complete,abnormal), what |
15 | -- about one specific entity, producing a model with the |
16 | -- abnormal result |
17 | -- |
18 | -- This appendix of XSControl is compiled separately to distinguish |
19 | -- basic features from user callable forms |
20 | |
21 | uses CString, AsciiString from TCollection, |
22 | WorkSession from XSControl, HSequenceOfShape from TopTools |
23 | |
24 | is |
25 | |
26 | Init (myclass); |
27 | ---Purpose : Defines and loads all functions which work on shapes for XSControl (as ActFunc) |
28 | |
29 | MoreShapes (myclass; session : WorkSession from XSControl; |
30 | list : in out mutable HSequenceOfShape from TopTools; |
31 | name : CString) returns Integer; |
32 | ---Purpose : Analyses a name as designating Shapes from a Vars or from |
33 | -- XSTEP transfer (last Transfer on Reading). <name> can be : |
34 | -- "*" : all the root shapes produced by last Transfer (Read) |
35 | -- i.e. considers roots of the TransientProcess |
36 | -- a name : a name of a variable DRAW |
37 | -- |
38 | -- Returns the count of designated Shapes. Their list is put in |
39 | -- <list>. If <list> is null, it is firstly created. Then it is |
40 | -- completed (Append without Clear) by the Shapes found |
41 | -- Returns 0 if no Shape could be found |
42 | |
43 | FileAndVar (myclass; session : WorkSession from XSControl; |
44 | file, var, def : CString; |
45 | resfile, resvar : out AsciiString from TCollection) |
46 | returns Boolean; |
47 | ---Purpose : Analyses given file name and variable name, with a default |
48 | -- name for variables. Returns resulting file name and variable |
49 | -- name plus status "file to read"(True) or "already read"(False) |
50 | -- In the latter case, empty resfile means no file available |
51 | -- |
52 | -- If <file> is null or empty or equates ".", considers Session |
53 | -- and returned status is False |
54 | -- Else, returns resfile = file and status is True |
55 | -- If <var> is neither null nor empty, resvar = var |
56 | -- Else, the root part of <resfile> is considered, if defined |
57 | -- Else, <def> is taken |
58 | |
59 | |
60 | end FuncShape; |