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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA - Vincent Couvert
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function C=tree2code(P,bprettyprintformat)
// Convert a tree returned by macr2tree() to a macro code
// Input:
// - P: 'program' tlist
// - bprettyprintformat: boolean value, if FALSE (default value), generated code is not formated else it is
// Output:
// - C: character string matrix (colum vector)
// Verify good type for input
if typeof(P)<>"program" then
error(msprintf(gettext("%s: Wrong type for input argument #%d: ''%s'' expected.\n"),"tree2code",2,"program tree"));
end
// Default value
rhs = argn(2);
if rhs==1 then
bprettyprintformat=%F
end
C=""
// Function prototype
lhsstr=[]
rhsstr=[]
if P.name<>"" then // Not a batch file
for k=1:size(P.outputs)
lhsstr=[lhsstr,expression2code(P.outputs(k))]
end
lhsstr="["+strcat(lhsstr,",")+"]"
for k=1:size(P.inputs)
rhsstr=[rhsstr,expression2code(P.inputs(k))]
end
rhsstr="("+strcat(rhsstr,",")+")"
C="function "+lhsstr+" = "+P.name+rhsstr;
end
I=P.statements
// To avoid to have some instructions on the first line (function prototype)
if I(1)<>list("EOL") then
C=cat_code(C,instruction2code(list("EOL"),%T));
end
// For each statement, generate corresponding code
for i=1:size(I)-2 // -2 to ignore last return+EOL
if bprettyprintformat then
C=cat_code(C," "+instruction2code(I(i),bprettyprintformat));
else
C=cat_code(C,instruction2code(I(i),bprettyprintformat));
end
C = format_txt(C,I(i),bprettyprintformat,I(i+1));
end
if P.name<>"" then // Not a batch file
C=cat_code(C,"endfunction"); // Replace last return
C=cat_code(C,"");
end
endfunction
|
