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/imfort/imclos.x | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 sys/imfort/imclos.x (limited to 'sys/imfort/imclos.x') diff --git a/sys/imfort/imclos.x b/sys/imfort/imclos.x new file mode 100644 index 00000000..c182877a --- /dev/null +++ b/sys/imfort/imclos.x @@ -0,0 +1,36 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include "imfort.h" + +# IMCLOS -- Close an IMFORT image. If the image was opened read only the +# header file will already have been closed, otherwise it must be updated +# if it has been modified. + +procedure imclos (im, ier) + +pointer im # image descriptor +int ier # receives error status + +int status + +begin + call imflsh (im, ier) + + # Close the pixel file. + if (IM_PIXFP(im) != NULL) { + call bfclos (IM_PIXFP(im), status) + if (status == ERR && ier == OK) + ier = IE_CLSPIX + } + + # Close the header file. + if (IM_HDRFP(im) != NULL) { + call bfclos (IM_HDRFP(im), status) + if (status == ERR && ier == OK) + ier = IE_CLSHDR + } + + if (IM_LINEBUFP(im) != NULL) + call mfree (IM_LINEBUFP(im), TY_SHORT) + call mfree (im, TY_STRUCT) +end -- cgit