Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
type variable_type = {
id: int;
name: string;
var_type: string
}
type node_type = {
file_name: string;
fct_name: string;
ctx: bool;
ctx_tab: string
}
type instance_type = {
id: int;
node: int;
var_in: int list;
var_out: int list;
}
let get_filename : Soc.t -> string = fun _soc ->
"foo_foo"
let get_ctx_name : Soc.t -> string = fun _soc ->
"foo_foo_ctx_type"
let get_ctx_new : Soc.t -> string = fun _soc ->
"foo_foo_ctx_new_ctx"
let get_inputs : Soc.t -> variable_type list = fun _soc ->
[{id = 0; name = "ii"; var_type = "_integer"};
{id = 1; name = "win"; var_type = "foo_wiz"};
{id = 2; name = "bt"; var_type = "_boolean"}]
let get_outputs : Soc.t -> variable_type list = fun _soc ->
[{id = 3; name = "xo"; var_type = "_boolean"};
{id = 4; name = "cd"; var_type = "_integer"};
{id = 5; name = "bto"; var_type = "_boolean"}]
let get_variables : Soc.t -> variable_type list = fun _soc ->
[{id = 6; name = "btb"; var_type = "_boolean"};
{id = 7; name = "wa"; var_type = "foo_wiz"};
{id = 8; name = "cc"; var_type = "_real"};
{id = 9; name = "r1"; var_type = "_real"};
{id = 10; name = "r2"; var_type = "_real"}]
let get_nodes : Soc.t -> node_type list = fun _soc ->
[{file_name = "foo_A"; fct_name = "foo_A_step"; ctx = false; ctx_tab = ""};
{file_name = "foo_B"; fct_name = "foo_B_step"; ctx = true; ctx_tab = "foo_B_ctx_tab"};
{file_name = "foo_C"; fct_name = "foo_C_step"; ctx = true; ctx_tab = "foo_C_ctx_tab"};
{file_name = "foo_D"; fct_name = "foo_D_step"; ctx = false; ctx_tab = ""}]
let get_instances : Soc.t -> instance_type list = fun _soc ->
[{id = 1; node = 0; var_in = [1]; var_out = [7]};
{id = 2; node = 1; var_in = [1; 2]; var_out = [6; 9]};
{id = 3; node = 1; var_in = [7; 6]; var_out = [5; 10]};
{id = 4; node = 2; var_in = [0; 7]; var_out = [3; 8]};
{id = 5; node = 3; var_in = [8; 10]; var_out = [4]}]