blob: 53d5deb2ec9db1b5880d21e3216be8eb9e205283 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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
|
