summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci65
1 files changed, 0 insertions, 65 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci
deleted file mode 100644
index 41b9a1b6..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/PutcoL.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 09.12.06
-// 10.01.26
-
-function PutcoL(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Ag=varargin(2);
- if type(Ag)==1
- CoL=Ag;
- else
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- Clm=[];
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- CoL=Nrg;
- end;
- Nr=length(TbL(3))+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,CoL,K,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str=Dt(N);
- Rrng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Rrng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,CoL,Rrng,Pos,Str)
- K=Rrng(2);
- end;
- end;
-endfunction;