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
|
function [stk,top,vnms,vtps,txt]=get2sci(nam,stk,top,vnms,vtps)
// Translate the named variable acquisition
//!
// Copyright INRIA
txt=[]
top=top+1
vn=find(nam==vnms(:,2))
if vn==[] then // variable is not defined yet
if ilst+1<=size(lst) then
op1=lst(ilst+1)
else
op1=['?','?']
end
std=%f
if size(op1,'*')>=2 then
std=op1(1)=='5'&op1(2)=='24'
end
if ~std then
if nam=='nargin' then
stk(top)=list('nargin','0','1','1','1')
nv=size(vnms,1);
vnms=[vnms;['nargin','nargin']]
vtps(nv+1)=list('1','1','1',0)
elseif nam=='nargout' then
stk(top)=list('nargout','0','1','1','1')
nv=size(vnms,1);
vnms=[vnms;['nargout','nargout']]
vtps(nv+1)=list('1','1','1',0)
else // undefined variable may be a m_file or global variable
// check if a corresponding m_file exist here
if isanmfile(nam) then
// a m_file without parameter
stk(top)=list()
elseif exists('sci_'+nam)==1 then
// a translated function without parameter
stk(top)=list()
else
[vnms,vtps,stk,txt]=get_unknown(nam)
end
end
else
stk(top)=list(nam,'0','0','0','?',0)
vnms=[vnms;[nam,nam]]
vtps($+1)=list('1','0','0')
end
else
vn=vn($)//??????
stk(top)=list(vnms(vn,1),'0',vtps(vn)(2),vtps(vn)(3),vtps(vn)(1))
end
|
