summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci34
1 files changed, 34 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci
new file mode 100755
index 00000000..b993ffa9
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci
@@ -0,0 +1,34 @@
+// 10.01.02 for v5
+
+function PutcoLstr(varargin)
+ Tb=varargin(1);
+ Nr=varargin(2);
+ Pos=varargin(3);
+ Str=varargin(4);
+ Sep='';
+ if length(varargin)>4
+ Sep=varargin(5);
+ end;
+ if Sep==''
+ for I=1:length(Str)
+ Tmp=part(Str,I);
+ Putcell(Tb,Nr,I,Pos,Tmp);
+ end;
+ else
+ Ltr='';
+ K=1;
+ for I=1:length(Str)
+ Tmp=part(Str,I);
+ if Tmp==Sep
+ Putcell(Tb,Nr,K,Pos,Ltr);
+ K=K+1;
+ Ltr='';
+ else
+ Ltr=Ltr+Tmp;
+ end;
+ end;
+ if Ltr~=''
+ Putcell(Tb,Nr,K,Pos,Ltr);
+ end;
+ end;
+endfunction; \ No newline at end of file