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
|
function [stk,txt,ilst,vnms,vtps,nwrk]=exp2for(lst,ilst,vnms,vtps,nwrk)
//
//!
// Copyright INRIA
nlst=size(lst)
top=0
stk=list()
txt=[]
ilst=ilst-1
cmod=0;
nwrk3=nwrk(3)
nwrk6=nwrk(6)
nw2=nwrk(2)
nw5=nwrk(5)
tmp2=[]
tmp5=[]
//
ok=%t
while ilst<nlst&ok then
t1=[]
lhs=1
ilst=ilst+1
op=lst(ilst)
if type(op)==10 then
select op(1)
case '0' then
case '2' then //stackg
if whereis(op(2))==[] then
[stk,top,vnms,vtps]=get2f(op(2),stk,top,vnms,vtps)
else //appel des macros
nop=lst(ilst+1)
if nop(1)<>'5'|nop(2)<>'25'
[stk,top,vnms,vtps]=get2f(op(2),stk,top,vnms,vtps)
else
op(3)=string(evstr(nop(3))-1)
op(4)=nop(4)
[stk,nwrk,t1,top]=func2f(op,stk,nwrk)
txt=[txt;t1]
ilst=ilst+1
end
end
case '3' then //string
[stk,top]=str2f(op(2),stk)
case '4' then //matrice vide
top=top+1
stk(top)=list('[]','0','1','0','0')
case '5' then //allops
t1=[]
iop=evstr(op(2))
top1=top
if ops(iop,2)=='g' then pause,end
execstr('[stkr,nwrk,t1,top]=%'+ops(iop,2)+'2for(nwrk)')
for ktp=top:top1,ss=stk(top);nwrk=freewrk(nwrk,ss(1));end
stk(top)=stkr
txt=[txt;t1]
case '6' then //num
[stk,top]=num2f(op(2),stk)
case '20' then //functions
[stk,nwrk,t1,top]=func2f(op,stk,nwrk)
txt=[txt;t1]
else
ok=%f
end
// try to free working areas used by previous intermediate result
// foo1(foo2(..)), a+foo2(),...
if tmp2<>[] then nwrk(2)(2,tmp2)='0',tmp2=[],end
if tmp5<>[] then nwrk(5)(2,tmp5)='0',tmp5=[],end
if lhs==1 then
if or(nw2(2,:)<>nwrk(2)(2,:))|or(nw5(2,:)<>nwrk(5)(2,:)) then
//function has used new working areas for lhs args
tmp2=[find(nw2(2,:)<>nwrk(2)(2,:)) size(nw2,2)+1:size(nwrk(2),2)]
tmp5=[find(nw5(2,:)<>nwrk(5)(2,:)) size(nw5,2)+1:size(nwrk(5),2)]
end
end
nw2=nwrk(2)
nw5=nwrk(5)
else
ok=%f
end
end
//
used='0';for k=nwrk(2), used=addf(used,k(1)),end
iused='0';for k=nwrk(5), iused=addf(iused,k(1)),end
if used<>'0' then
n3=prod(size(nwrk3))
k=n3+1;ok=n3>0;delta=' '
while ok then
k=k-1
delta=subf(used,nwrk3(k))
ok=part(delta,1)<>'-' &k>1
end
if part(delta,1)<>'-'&delta<>'0' then nwrk(3)=[nwrk3,used];end
end
if iused<>'0' then
n6=prod(size(nwrk6))
k=n6+1;ok=n6>0;delta=' '
while ok then
k=k-1
delta=subf(iused,nwrk6(k))
ok=part(delta,1)<>'-' &k>1
end
if part(delta,1)<>'-'&delta<>'0' then nwrk(6)=[nwrk6,iused];end
end
nwrk(1)=1;nwrk(2)=[]
nwrk(4)=1;nwrk(5)=[]
endfunction
|
