diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci deleted file mode 100644 index 0c2c209a..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Putrow.sci +++ /dev/null @@ -1,41 +0,0 @@ -// 09.12.06 -// 10.01.26 - -function Putrow(varargin) - Nargs=length(varargin); - TbL=varargin(1); - if type(TbL)~=15 - disp('Tabledata missing') - return; - end; - Row=varargin(2); - Nr=length(TbL(2))+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,K,Row,Dpos,Dt); - K=K+1; - else - N=length(Dt); - Str=Dt(N); - Crng=[K,K+1]; - Pos=Dpos; - for J=1:(N-1) - Tmp=Dt(J); - if type(Tmp)==1 - Crng=[K,K+Tmp]; - end; - if type(Tmp)==10 - Pos=Tmp; - end; - end; - Putcell(TbL,Crng,Row,Pos,Str) - K=Crng(2); - end; - end; -endfunction; |