From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/gio/nsppkern/gktcancel.x | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 sys/gio/nsppkern/gktcancel.x (limited to 'sys/gio/nsppkern/gktcancel.x') diff --git a/sys/gio/nsppkern/gktcancel.x b/sys/gio/nsppkern/gktcancel.x new file mode 100644 index 00000000..17679f89 --- /dev/null +++ b/sys/gio/nsppkern/gktcancel.x @@ -0,0 +1,27 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include "gkt.h" + +# GKT_CANCEL -- Cancel any buffered output. + +procedure gkt_cancel (dummy) + +int dummy # not used at present +include "gkt.com" + +begin + if (g_kt == NULL) + return + + # First we cancel any output in the FIO stream, then + # flush the nspp buffers. This might, of course, + # put something in the FIO stream, so we cancel again. + # note the Fortran escape for "flush"...spp has a reserved + # word of the same name. + + call fseti (g_out, F_CANCEL, OK) +% call mcflsh + call fseti (g_out, F_CANCEL, OK) + call gkt_reset() +end -- cgit