Initial commit

1 files changed, 41 insertions, 0 deletions

diff --git a/sys/ki/kilnode.x b/sys/ki/kilnode.x
new file mode 100644
index 00000000..e332e8f0
--- /dev/null
+++ b/sys/ki/kilnode.x
@@ -0,0 +1,41 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include "ki.h"
+
+# KI_LOCALNODE -- Determine if the named node is the local node.
+
+int procedure ki_localnode (node)
+
+char	node[ARB]		# node name
+
+int	ch, i
+bool	streq()
+int	ki_mapname()
+include	"kinode.com"
+
+begin
+	if (n_local == NULL) {
+	    # If local node is not identified in the host name table, this
+	    # effectively disables networking.  All nodes names are assumed
+	    # to be local.
+
+	    return (YES)
+
+	} else {
+	    # We have a node name and the local node is identified in the
+	    # node table.  Scan the aliases of the local node to see if the
+	    # referenced node is the same.
+
+	    # Map possible logical node name.
+	    if (ki_mapname (node, n_nodename, SZ_ALIAS) <= 0)
+		call strcpy (node, n_nodename, SZ_ALIAS)
+
+	    ch = n_nodename[1]
+	    do i = 1, n_nalias[n_local]
+		if (n_alias[1,i,n_local] == ch)
+		    if (streq (n_alias[1,i,n_local], n_nodename))
+			return (YES)
+	}
+
+	return (NO)
+end