From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/ki/kifndnode.x | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 sys/ki/kifndnode.x (limited to 'sys/ki/kifndnode.x') diff --git a/sys/ki/kifndnode.x b/sys/ki/kifndnode.x new file mode 100644 index 00000000..f41e7197 --- /dev/null +++ b/sys/ki/kifndnode.x @@ -0,0 +1,40 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include "ki.h" + +# KI_FINDNODE -- Given an alias for a node, search the node descriptor table +# and return the table index of the named node or NULL. + +int procedure ki_findnode (alias) + +char alias[ARB] # alias to search for + +int node, i +char first_char +bool streq() +int ki_gethosts(), ki_mapname(), and() +include "kinode.com" + +begin + # Read the host name table if it has not been read yet. + if (n_nnodes == 0) + if (ki_gethosts() == ERR) + return (NULL) + + # Map possible logical node name. + if (ki_mapname (alias, n_nodename, SZ_ALIAS) <= 0) + call strcpy (alias, n_nodename, SZ_ALIAS) + + # Search the node descriptor table for a node with the given alias. + # Do not use descriptors that have the IOERR flag set. + + first_char = n_nodename[1] + for (node=1; node <= n_nnodes; node=node+1) + for (i=1; i <= n_nalias[node]; i=i+1) + if (first_char == n_alias[1,i,node]) + if (streq (n_nodename, n_alias[1,i,node])) + if (and (n_status[node], F_IOERR) == 0) + return (node) + + return (NULL) +end -- cgit