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
|
function [s,nwrk,txt]=typconv(s,nwrk,typ)
//[s1,te1,t1,m1,n1]=s(1:5);
//!
// Copyright INRIA
txt=[]
if typ=='1'&s(3)=='0' then
if s(4)=='1'&s(5)=='1' then
if isnum(s(1)) then s(1)=s(1)+'D0',else s(1)='dble('+s(1)+')',end
else
if part(s(1),1:6)=='iwork(' then
pti=part(s(1),7:length(s(1))-1)
in='iwork'
else
pti='0'
in=s(1)
end
[outn,nwrk,txt]=getwrk(nwrk,'1',s(4),s(5))
out='work'
pto1=part(outn,6:length(outn)-1),
[lbl,nwrk]=newlab(nwrk)
tl1=string(10*lbl);
var='ilb'+tl1;
t1=' '+out+'('+addf(pto1,var)+')=dble('+in+'('+addf(pti,var)+'))'
txt=[txt;' do '+tl1+' '+var+' = 0,'+subf(mulf(s(4),s(5)),'1');
indentfor(t1);part(tl1+' ',1:6)+' continue']
end
elseif typ=='0'&s(3)=='1' then
if s(4)=='1'&s(5)=='1' then
s(1)='int('+s(1)+')'
else
if part(s(1),1:5)=='work(' then
pti=part(s(1),6:length(s(1))-1)
in='work'
else
pti='0'
in=s(1)
end
[outn,nwrk,txt]=getwrk(nwrk,'0',s(4),s(5))
out='iwork'
pto1=part(outn,7:length(outn)-1),
[lbl,nwrk]=newlab(nwrk)
tl1=string(10*lbl);
var='ilb'+tl1;
t1=' '+out+'('+addf(pto1,var)+')=int('+in+'('+addf(pti,var)+'))'
txt=[txt;' do '+tl1+' '+var+' = 0,'+subf(mulf(s(4),s(5)),'1');
indentfor(t1);part(tl1+' ',1:6)+' continue']
end
end
endfunction
|
