summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci24
1 files changed, 0 insertions, 24 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
deleted file mode 100644
index f2928103..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Closefile.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 13.05.19 openfile error tackled
-// 13.11.01 Endpicture joined optionally
-// 13.11.05 debugged
-
-function Closefile(varargin)
- global Wfile FID;
- if length(varargin)>=1 then
- Pa=varargin(1);
- if type(Pa)==10 then
- if Pa=="1" then // 2013.11.05
- Endpicture(1)
- end;
- if Pa=="0" then
- Endpicture(0)
- end //
- end
- end
- if Wfile~='default' then
- mclose(FID);
- FID=[]; // 2013.05.19
- end
- Wfile='default';
-endfunction