Repatch (from linux) of OSX IRAF

1 files changed, 38 insertions, 0 deletions

diff --git a/sys/ki/kifmapfn.x b/sys/ki/kifmapfn.x
new file mode 100644
index 00000000..3869f7c4
--- /dev/null
+++ b/sys/ki/kifmapfn.x
@@ -0,0 +1,38 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<syserr.h>
+include	<mach.h>
+include	"ki.h"
+
+# KI_FMAPFN -- Fully resolve a filename into its host equivalent, regardless
+# of the node on which the file resides.  This is a temporary routine.
+# The filename mapping primitives should probably perform their function when
+# called for a remote file, rather than defer the mapping until later as they
+# do now.  When this is changed, this routine will no longer be necessary and
+# can be removed.  The output filename is returned as a packed filename with
+# the node name stripped, as for FMAPFN.
+
+procedure ki_fmapfn (vfn, pkosfn, maxch)
+
+char	vfn[ARB]		# network filename
+char	pkosfn[maxch]		# receives packed, fully resolved OS filename
+int	maxch
+
+int	server
+int	ki_connect(), ki_sendrcv()
+include	"kii.com"
+
+begin
+	call strpak (vfn, pkosfn, maxch)
+	server = ki_connect (pkosfn)
+
+	if (server == NULL)
+	    call fmapfn (vfn, pkosfn, maxch)
+	else {
+	    p_arg[2] = maxch
+	    if (ki_sendrcv (server, KI_FMAPFN, 0) == ERR)
+		call syserrs (SYS_FNOSUCHFILE, vfn)
+	    else
+		call strpak (p_sbuf, pkosfn, maxch)
+	}
+end