diff options
Diffstat (limited to 'sys/ki/kixnode.x')
| -rw-r--r-- | sys/ki/kixnode.x | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/sys/ki/kixnode.x b/sys/ki/kixnode.x new file mode 100644 index 00000000..acf2dec2 --- /dev/null +++ b/sys/ki/kixnode.x @@ -0,0 +1,31 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +# KI_XNODE -- Transfer the node prefix, if any, from one resource string to +# another. If the output resource already has a node prefix it is replaced +# by the new one. The output resource string is modified in place. If the +# output string is the null string the node prefix from the input string +# is returned. If the input string is the null string the node prefix from +# the output string is deleted, leaving only the resource name. + +procedure ki_xnode (r1, r2, maxch) + +char r1[ARB] #I input resource with optional node prefix +char r2[ARB] #U output resource to append node! to +int maxch #I max chars out + +pointer sp, rt +int ip, nchars, buflen +int ki_extnode(), strlen() + +begin + call smark (sp) + buflen = strlen(r2) + SZ_FNAME + call salloc (rt, buflen, TY_CHAR) + + ip = ki_extnode (r2, Memc[rt], buflen, nchars) + 1 + call strcpy (r2[ip], Memc[rt], buflen) + ip = ki_extnode (r1, r2, maxch, nchars) + call strcpy (Memc[rt], r2[nchars+1], maxch-nchars) + + call sfree (sp) +end |