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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2013 - Scilab Enterprises - Antoine ELIAS
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
funcprot(0);
//1 in, 0 out
ref = list("i1", [], [], [], []);
function foo(i1)
endfunction
val = macrovar(foo);
assert_checkequal(ref, val);
//1 in, 1 out
ref = list("i1", "o1", [], [], []);
function o1 = foo(i1)
o1 = i1;
endfunction
val = macrovar(foo);
assert_checkequal(ref, val);
//n in, n out
ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], [], [], []);
function [o1, o2, o3] = foo(i1, i2, i3, i4)
o1 = i1 + i2;
o2 = i2 + i3;
o3 = i3 + i4;
endfunction
val = macrovar(foo);
assert_checkequal(ref, val);
//add local vars
ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], [], [], ["l1";"l2";"l3"]);
function [o1, o2, o3] = foo(i1, i2, i3, i4)
l1 = i1 + i2;
l2 = i2 + i3;
l3 = i3 + i4;
o1 = l1;
o2 = l2;
o3 = l3;
endfunction
val = macrovar(foo);
assert_checkequal(ref, val);
//add external vars
e1 = 1;
e2 = 2;
e3 = 3;
ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], ["e1";"e2";"e3"], [], ["l1";"l2";"l3"]);
function [o1, o2, o3] = foo(i1, i2, i3, i4)
l1 = i1 + i2;
l2 = i2 + i3;
l3 = i3 + i4;
o1 = l1 + e1;
o2 = l2 + e2;
o3 = l3 + e3;
endfunction
val = macrovar(foo);
assert_checkequal(ref, val);
//add function calls
e1 = 1;
e2 = 2;
e3 = 3;
ref = list(["i1";"i2";"i3";"i4"], ["o1";"o2";"o3"], ["e1";"e2";"e3"], ["cos";"sin";"tan"], ["l1";"l2";"l3"]);
function [o1, o2, o3] = foo(i1, i2, i3, i4)
l1 = i1 + i2;
l2 = i2 + i3;
l3 = i3 + i4;
o1 = cos(l1 + e1);
o2 = sin(l2 + e2);
o3 = tan(l3 + e3);
endfunction
val = macrovar(foo);
assert_checkequal(ref, val);
|
