1
function [stk,nwrk,t1,top]=func2f(op,stk,nwrk)
2
// genere la traduction de l'ensemble des primitives
8
if exists('f_'+op(2)) then
9
execstr('[stkr,nwrk,t1,top]=f_'+op(2)+'(nwrk)')
10
for k=rhs-lhs:-1:1, stk(top+k)=null(),end
27
typ='?',typ=typ(ones(1,lhs))'
28
rsiz='1';rsiz=rsiz(ones(1,lhs))'
30
[o,nwrk,t1]=outname(nwrk,typ,rsiz,csiz)
31
for k=1:lhs, args=[args,o(k)],end
32
txt=['c TRANSLATION OF '+op(2)+' FUNCTION CALL NOT PROPERLY DONE';
34
gencall([op(2),args])]
38
stk(top)=list(o(k),'-1',typ(k),rsiz(k),csiz(k))