summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci92
1 files changed, 0 insertions, 92 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
deleted file mode 100644
index c1656b15..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/ReadOutData.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-// 14.10.10
-// 14.12.14 for 3d
-// 15.01.03 changed ("start","end")
-// 15.10.24 in case of list-length==1
-
-function Out=ReadOutData(varargin)
- global Fnameout
- if length(varargin)==0 then
- Fname=Rnameout;
- else
- Fname=varargin(1);
- end
- Fid=mopen(Fname,"rb");
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- break;
- end;
- C=ascii(Tmp);
- if Tmp=="/"|C==13|C==10 then// / CR,LF
- if Flg==1 then
- if part(Str,1:5)=="start" then
- Str="Tmp=[];";
- else
- if part(Str,1:3)=="end" then
- if Flg3d==0 then // 2014.12.14
- Str=Varname+"($+1)=Listplot(Tmp);";
- else
- Str=Varname+"($+1)=Spaceline(Tmp);";
- end
- else
- if part(Str,1:2)=="[[" then
- Str="Tmp=[Tmp,"+Str+"];";
- else
- Varname=Str;
- Str=Varname+"=list();"
- Flg3d=-1;
- end;
- end;
- end;
- if Flg3d==-1 then // 2014.12.14
- Tmp1=mtlb_findstr(Str,"[[");
- if length(Tmp1)>0 then
- Tmp2=mtlb_findstr(Str,"]");
- Tmp3=part(Str,Tmp1:Tmp2(1));
- Tmp4=mtlb_findstr(Tmp3,",")
- if length(Tmp4)==2 then
- Flg3d=1;
- else
- Flg3d=0;
- end
- end
- end
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=[]; // 15.10.24 from
- Var="";
- Ctr=0;
- for J=1:size(Gstr,1)
- St=Gstr(J,1);
- Out=[Out;St];
- Tmp=strsplit(St,"=");
- Tmp1=Tmp(1,1);
- Tmp2=Tmp(2,1);
- if grep(Tmp2,"list()") then
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end;
- Var=Tmp1;
- Ctr=0;
- end;
- if grep(Tmp1,"$") then
- Ctr=Ctr+1;
- end;
- end
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end; // 15.10.24 upto
- Out;
-endfunction;