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/ki/kfacss.x | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 sys/ki/kfacss.x (limited to 'sys/ki/kfacss.x') diff --git a/sys/ki/kfacss.x b/sys/ki/kfacss.x new file mode 100644 index 00000000..5634e099 --- /dev/null +++ b/sys/ki/kfacss.x @@ -0,0 +1,35 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include "ki.h" + +# KFACSS -- Determine the accessibility and type of a file. + +procedure kfacss (osfn, mode, type, status) + +char osfn[ARB] # packed os filename +int mode # access mode or null if don't care +int type # file type or null if don't care +int status # answer; yes or no + +int server +int ki_connect(), ki_sendrcv() +include "kii.com" + +begin + server = ki_connect (osfn) + + if (server == NULL) { + call strpak (p_sbuf[p_arg[1]], p_sbuf, SZ_SBUF) + call zfacss (p_sbuf, mode, type, status) + + } else { + p_arg[2] = mode + p_arg[3] = type + + if (ki_sendrcv (server, KI_ZFACSS, 0) == ERR) + status = ERR + else + status = p_arg[1] + } +end -- cgit