summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci41
1 files changed, 41 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci
new file mode 100755
index 00000000..0c2c209a
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci
@@ -0,0 +1,41 @@
+// 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;