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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2002-2004 - 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 [sci_instr]=equal2sci(mtlb_instr)
// Convertion of a Matlab instruction or expression to Scilab
// Input:
// - mtlb_instr: Matlab instr or expression to convert
// Output:
// - sci_instr: Scilab equivalent for mtlb_instr
// Trees to insert in converted function tree
global("m2sci_to_insert_b")
m2sci_to_insert_b=list()
global("m2sci_to_insert_a")
m2sci_to_insert_a=list()
global("varslist")
sci_instr=mtlb_instr
// Add inference data to lhs
lhslist=list()
// Inference field added to each lhs argument
// Get infos in varslist to init
for k=1:size(mtlb_instr.lhs)
if typeof(mtlb_instr.lhs(k))=="variable" then
[bval,index]=isdefinedvar(mtlb_instr.lhs(k))
if bval then
INFER=varslist(index).infer
else
INFER=Infer()
end
lhslist($+1)=Variable(mtlb_instr.lhs(k).name,INFER)
elseif typeof(mtlb_instr.lhs(k))=="operation" then
if mtlb_instr.lhs(k).operator<>"ins" then
error(msprintf(gettext("lhs cannot be a %s operation."),mtlb_instr.lhs(k).operator))
end
[bval,index]=isdefinedvar(mtlb_instr.lhs(k).operands(1))
if bval then
INFER=varslist(index).infer
else
INFER=Infer()
end
lhslist($+1)=Operation(mtlb_instr.lhs(k).operator,..
mtlb_instr.lhs(k).operands,..
list(Variable(mtlb_instr.lhs(k).operands(1).name,INFER)))
else
error(msprintf(gettext("lhs cannot be a %s."),typeof(mtlb_instr.lhs(k))))
end
end
// Convert expression
[sci_expr]=expression2sci(mtlb_instr.expression,lhslist);
if sci_expr==list() then // Conversion made by inserted instructions or 'm2scideclare'
sci_instr=list()
else
sci_instr.expression=sci_expr;
// Update lhs of instruction
select typeof(sci_instr.expression)
case "operation" then
sci_instr.lhs=sci_expr.out;
case "funcall" then
sci_instr.lhs=sci_instr.expression.lhs
if typeof(mtlb_instr.expression)=="funcall" then
sci_instr.lhs=sci_expr.lhs;
end
case "cste" then
sci_instr.lhs=lhslist;
sci_instr.lhs(1).dims=sci_expr.dims;
sci_instr.lhs(1).type=sci_expr.type;
case "variable" then
sci_instr.lhs=lhslist;
sci_instr.lhs(1).dims=sci_expr.dims;
sci_instr.lhs(1).type=sci_expr.type;
else
error(msprintf(gettext("%s is not yet implemented."),typeof(sci_instr.expression)));
end
// If lhs are insertion operation, they also have to be converted
for k=1:size(sci_instr.lhs)
if typeof(sci_instr.lhs(k))=="operation" then
sci_instr.lhs(k).operands($+1)=sci_instr.expression
// Keep just one inference field in sci_instr.expression (if is a funcall) so that inference can be made in operation2sci()
if typeof(sci_instr.lhs(k).operands($))=="funcall" then
for l=1:size(sci_instr.lhs(k).operands($).lhs)
if l<>k then
sci_instr.lhs(k).operands($).lhs(l)=list()
end
end
l=1
while l<=size(sci_instr.lhs(k).operands($).lhs)
if sci_instr.lhs(k).operands($).lhs(l)==list() then
sci_instr.lhs(k).operands($).lhs(l)=null()
else
l=l+1
end
end
// Verify that there is just one lhs kept
if size(sci_instr.lhs(k).operands($).lhs)<>1 then pause;end
end
// If insertion made in an unknown variable, I add it to varslist
inservar=sci_instr.lhs(k).operands(1)
[bval,index]=isdefinedvar(inservar)
if ~bval then
// Variable added to varslist before insertion
if funptr(inservar.name)<>0 then
matname="%"+inservar.name
else
matname=inservar.name
end
if sci_instr.expression.vtype==Struct then
// Variable is initialized to struct() in converted script is does not already exist
varslist($+1)=M2scivar(matname,inservar.name,Infer(list(0,0),Type(Struct,Unknown)))
//m2sci_to_insert_b($+1)=Equal(list(inservar),Funcall("struct",1,list(),list()))
elseif sci_instr.expression.vtype==Cell then
// Variable is initialized to cell() in converted script is does not already exist
varslist($+1)=M2scivar(matname,inservar.name,Infer(list(0,0),Type(Cell,Unknown)))
//m2sci_to_insert_b($+1)=Equal(list(inservar),Funcall("cell",1,list(),list()))
else
// Variable is initialized to [] in converted script is does not already exist
varslist($+1)=M2scivar(matname,inservar.name,Infer(list(0,0),Type(Double,Real)))
//m2sci_to_insert_b($+1)=Equal(list(inservar),Cste([]))
end
sci_instr.lhs(k).out(1).infer=varslist($).infer
else
sci_instr.lhs(k).out(1).infer=varslist(index).infer
end
[sci_instr.lhs(k)]=operation2sci(sci_instr.lhs(k))
if typeof(sci_instr.lhs(k))=="operation" then
if or(sci_instr.lhs(k).operands($)<>sci_instr.expression) then // Update expression if has been modified while converting lhs
sci_instr.expression=sci_instr.lhs(k).operands($)
end
sci_instr.lhs(k).operands($)=null()
updatevarslist(sci_instr.lhs(k).out)
else
// Insertion done by inserted instruction
sci_instr=list()
return
end
end
end
// Update varslist
updatevarslist(sci_instr.lhs);
end
endfunction
|
