diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci new file mode 100755 index 00000000..97ddae5b --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci @@ -0,0 +1,79 @@ +// 08.08.16 +// 08.09.16 +// 09.11.14 +// 10.08.19 +// 13.10.22 ( __ added to varibles ) + +function Out__=Fullformfunc(FdL__) + Out__=MixS(Mixop(1,FdL__)); + N__=Mixlength(FdL__); + for Jrg__=1:N__ + Tmp__=Mixop(Jrg__,FdL__); + if part(Tmp__,length(Tmp__))==']' + break + end; + end; + Urg__=Mixop(Jrg__,FdL__); + K__=mtlb_findstr(Urg__,'='); + Uname__=stripblanks(part(Urg__,1:K__-1)); + Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22 + Tmp1__=evstr(Tmp__); + Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; + Vrg__=Mixop(Jrg__+1,FdL__); + K__=mtlb_findstr(Vrg__,'='); + Vname__=stripblanks(part(Vrg__,1:K__-1)); + Tmp__=part(Vrg__,K__+1:length(Vrg__)); + Tmp1__=evstr(Tmp__); + Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; // + if Jrg__==2 + Tmp__=Mixop(1,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Zf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__); + Out__=Mixjoin(Out__,Tmp__); + elseif Jrg__==4 + Tmp__=Mixop(1,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Zf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(2,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Xname__=stripblanks(part(Tmp__,1:K__-1)); + Xf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(3,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Yname__=stripblanks(part(Tmp__,1:K__-1)); + Yf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')'); + Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')'); + Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); + Out__=Mixjoin(Out__,Tmp__); + else + Tmp__=Mixop(2,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Xf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(3,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Yf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=Mixop(4,FdL__); + K__=mtlb_findstr(Tmp__,'='); + Zf__=part(Tmp__,K__+1:length(Tmp__)); + Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__); + Out__=Mixjoin(Out__,Tmp__); + end; + DrwS__='enws'; + BdyL__=[]; + for I__=Jrg__+2:Mixlength(FdL__) + Tmp__=Mixop(I__,FdL__); + if type(Tmp__)==10 + if length(Tmp__)==0 // + Tmp__=' '; + end; + DrwS__=Tmp__; + end; + if type(Tmp__)==1 & size(Tmp__,2)>1 + BdyL__=Tmp__; + end; + end; + Tmp__=MixS(DrwS__,BdyL__); + Out__=Mixjoin(Out__,Tmp__); +endfunction |