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
|
// 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_equiv]=funcall2sci(mtlb_expr)
// M2SCI function
// Convert a function call in an instruction or in an expression from Matlab to Scilab
// Input:
// - mtlb_instr: Matlab instr or expression to convert
// Output:
// - sci_instr: Scilab equivalent for mtlb_instr
rhslist=mtlb_expr.rhs
if rhslist==[] then // Function called as a command
rhsnb=-1
rhslist=list()
mtlb_expr.rhs=list()
else
rhsnb=size(rhslist)
end
// Init returned value
sci_expr=mtlb_expr
rhsind=1
while rhsind<=rhsnb
[sci_equiv]=expression2sci(rhslist(rhsind));
mtlb_expr.rhs(rhsind)=sci_equiv;
rhsind=rhsind+1;
end
// Performs the conversion of function call
lhs=mtlb_expr.lhsnb
if rhsnb==-1 then
rhs=-1
else
rhs=size(mtlb_expr.rhs)
end
funname=mtlb_expr.name
// If a translation function exists
if exists("sci_"+funname)==1 then
execstr("[sci_equiv]=sci_"+funname+"(mtlb_expr)");
// If I don't know where I can search other M-files
elseif res_path==[] then
sci_equiv=default_trad(mtlb_expr)
else
sci_tmpfile =pathconvert(TMPDIR)+pathconvert(fnam)+"sci_"+funname+".sci"
tmpierr=execstr("exec(sci_tmpfile,-1)","errcatch");errclear();
sci_file=res_path+"sci_"+funname+".sci"
ierr=execstr("exec(sci_file,-1)","errcatch");errclear();
if tmpierr==0 then
execstr("[sci_equiv]=sci_"+mtlb_expr.name+"(mtlb_expr)");
// If a translation function exists
elseif ierr==0 then
execstr("[sci_equiv]=sci_"+mtlb_expr.name+"(mtlb_expr)");
// If no translation indication given
elseif Recmode then
// Check if the M-file exists in the given paths
path=mfile_path(funname)
if path==[] then
sci_equiv=default_trad(mtlb_expr)
elseif or(funname==nametbl)
sci_equiv=sci_generic(mtlb_expr)
else
fnam=funname
scipath=res_path+fnam+".sci"
scepath=res_path+fnam+".sce"
catpath=res_path+fnam+".cat"
res=0
if newest(path,scipath,scepath)==1 then
res=mfile2sci(path,res_path,%F,%T)
end
if res==1 then
exec(sci_file, -1)
ierr=execstr("[sci_equiv]=sci_"+mtlb_expr.name+"(mtlb_expr)","errcatch");
if ierr<>0 then
error(msprintf(gettext("Error while executing : [sci_equiv]=sci_%s(mtlb_expr)."),mtlb_expr.name));
end
else
sci_equiv=default_trad(mtlb_expr)
end
end
else // Default translation
sci_equiv=default_trad(mtlb_expr)
end
end
// If equivalent is a funcall, number of lhs can have changed
if typeof(sci_equiv)=="funcall" then
sci_equiv.lhsnb=size(sci_equiv.lhs)
end
endfunction
|
