From dc71274f16f7ff65145e034900f582b62453a033 Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Sat, 14 Oct 2017 11:43:11 +0900
Subject: rename and update ketpic -> ketcindy

---
 .../ketcindy/ketlib/ketpicscifiles6/Putrow.sci     | 41 ++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci

(limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci')

diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Putrow.sci
new file mode 100644
index 00000000..0c2c209a
--- /dev/null
+++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/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;
-- 
cgit v1.2.3