Repatch (from linux) of OSX IRAF

1 files changed, 38 insertions, 0 deletions

diff --git a/sys/ki/kimapname.x b/sys/ki/kimapname.x
new file mode 100644
index 00000000..53d5deb2
--- /dev/null
+++ b/sys/ki/kimapname.x
@@ -0,0 +1,38 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# KI_MAPNAME -- Map a logical node name to a literal node name.  Logical
+# node names may be defined in the environment as aliases for "hardcoded"
+# hosts-file node names.  To distinguish logical node names from other
+# environment variables the value string must end in the node delimiter
+# character "!".   For example, "set alpha = foo.bar.edu!" defines logical
+# node alpha to be the same as foo.tar.edu.  The "!" suffix also allows
+# the logical node name to be used in file references, e.g. "alpha!pathname".
+# 
+# If the input name is a logical node name the translated value is returned
+# in newname and the number of characters output is returned as the function
+# value (as for envfind).  If the input name is not a logical node name
+# zero is returned as the function value.
+#
+# It might make sense to allow multiple indirection on name translations,
+# but this is not currently supported.
+
+int procedure ki_mapname (name, newname, maxch)
+
+char	name[ARB]		#I input logical node name
+char	newname[ARB]		#O output translated name
+int	maxch			#I max chars out
+
+int	nchars
+int	envfind()
+
+begin
+	nchars = envfind (name, newname, maxch)
+	if (nchars > 1)
+	    if (newname[nchars] == '!') {
+		newname[nchars] = EOS
+		return (nchars - 1)
+	    }
+
+	newname[1] = EOS
+	return (0)
+end