* %sccs.include.proprietary.c%
static char sccsid
[] = "@(#)0.string.c 4.2 (Berkeley) %G%";
str_copy(s
,ptr
,length
) /* copy s at ptr, return length of s */
for (i
= 0; i
< length
; i
++)
faterr("string too long to be copied at given address:\n",s
,"");
{if (str_eq(s
, ar
[i
])) return(i
);}
for (j
= 0; s
[j
] == t
[j
]; j
++)
{if (s
[j
] == '\0') return(1);}
if ('0' <= c
&& c
<= '9') return(1);
if ( ('A' <= c
&& c
<= 'Z') || ('a' <= c
&& c
<= 'z'))
case _diglet
: return(classmatch(c
,_digit
)||classmatch(c
,_letter
) );
if (050 <= c
&& c
<= 057) return(1);
copychars(cbeg
,target
,n
) /* copy n chars from cbeg to target */
copycs(cbeg
,target
,n
) /* copy n chars from cbeg to target, add '\0' */
copychars(cbeg
,target
,n
);
slength(s
) /* return number of chars in s, not counting '\0' */
for (i
= 0; s
[i
] != '\0'; i
++);
concat(x
,y
) /* allocate space, return xy */
temp
= galloc(i
+ j
+ 1);
sprintf(&temp
[i
],"%s",y
);