diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci deleted file mode 100644 index 41b9a1b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci +++ /dev/null @@ -1,65 +0,0 @@ -// 09.12.06 -// 10.01.26 - -function PutcoL(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Ag=varargin(2); - if type(Ag)==1 - CoL=Ag; - else - Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ'; - Clm=[]; - for I=1:length(Ag) - C=part(Ag,I:I); - Tmp=ascii(C); - if Tmp>=96 - C=char(Tmp-32); - end; - Tmp=mtlb_findstr(C,Alpha) - if length(Tmp)>0 - Clm=[Clm,Tmp-1]; - end; - end; - Nrg=0; - for I=length(Clm):-1:1 - Tmp=Clm(I); - Tmp1=length(Clm)-I; - Nrg=Nrg+Tmp*26^Tmp1; - end; - CoL=Nrg; - end; - Nr=length(TbL(3))+1; - K=1; - Dpos=varargin(3); - for I=4:Nargs - if I-3>Nr - break; - end; - Dt=varargin(I); - if type(Dt)~=15 - Putcell(TbL,CoL,K,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Rrng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Rrng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,CoL,Rrng,Pos,Str) - K=Rrng(2); - end; - end; -endfunction; |