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/ketpicscifiles6/PutcoLstr.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci')
-rwxr-xr-x | texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci deleted file mode 100755 index b993ffa9..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci +++ /dev/null @@ -1,34 +0,0 @@ -// 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 |