diff options
author | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
commit | dc71274f16f7ff65145e034900f582b62453a033 (patch) | |
tree | a71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci deleted file mode 100755 index 0c2c209a..00000000 --- a/texmf-dist/scripts/ketpic/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; |