diff options
author | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-09-04 09:45:51 +0900 |
commit | 138f77fe71e43adc24ecb030d73df81cc5c4eb7e (patch) | |
tree | cd2d906c634149bbecd2f4bad3d540c16b23befa /texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci | |
parent | 37bfdbee2c91bab6f0abd54503a0b9c669c9109e (diff) |
add ketpic
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci')
-rw-r--r-- | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci new file mode 100644 index 00000000..eaf9f6df --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci @@ -0,0 +1,38 @@ +// s:2014,09.08 +// e:2014.09.26 +// e:2014.10.07 debugged, code changed +// e:2014.10.08 CR | LF + +function Out=ReadfromCindy(Fname) + Fid=mopen(Fname,"rb"); + Gline=list(); + Gpt=list(); + Gstr=[]; + Str=""; + Flg=1; + Tmp=mgetstr(1,Fid); + while 1==1 + if Tmp=="" then + if Flg==1 then + Gstr=[Gstr;Str]; + Str=""; + Flg=1; + end; + break; + end + C=ascii(Tmp); + if C==13|C==10 then// CR,LF + if Flg==1 then + Gstr=[Gstr;Str]; + Str=""; + Flg=0; + end; + else + Str=Str+Tmp; + Flg=1; + end; + Tmp=mgetstr(1,Fid); + end; + mclose(Fid); + Out=Gstr; +endfunction; |