summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci24
1 files changed, 24 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci
new file mode 100755
index 00000000..f2928103
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci
@@ -0,0 +1,24 @@
+//
+// 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