SCCSID(@
(#)util.c 3.15 %G%);
** STRIPQUOTES -- Strip quotes & quote bits from a string.
** Runs through a string and strips off unquoted quote
** characters and quote bits. This is done in place.
** s -- the string to strip.
** qf -- if set, remove actual `` " '' characters
** as well as the quote bits.
for (p
= q
= s
; (c
= *p
++) != '\0'; )
** CAPITALIZE -- return a copy of a string, properly capitalized.
** s -- the string to capitalize.
** a pointer to a properly capitalized string.
while (!isalpha(*s
) && *s
!= '\0')
** XALLOC -- Allocate memory and bitch wildly on failure.
** THIS IS A CLUDGE. This should be made to give a proper
** error -- but after all, what can we do?
** sz -- size of area to allocate.
** pointer to data region.
register unsigned int sz
;
syserr("Out of memory!!");
** NEWSTR -- make copy of string.
** Space is allocated for it using xalloc.
** pointer to new string.
p
= xalloc((unsigned) (strlen(s
) + 1));
** COPYPLIST -- copy list of pointers.
** This routine is the equivalent of newstr for lists of
** list -- list of pointers to copy.
** Must be NULL terminated.
** copycont -- if TRUE, copy the contents of the vector
** (which must be a string) also.
copyplist(list
, copycont
)
for (vp
= list
; *vp
!= NULL
; vp
++)
newvp
= (char **) xalloc((unsigned) (vp
- list
) * sizeof *vp
);
bmove((char *) list
, (char *) newvp
, (vp
- list
) * sizeof *vp
);
for (vp
= newvp
; *vp
!= NULL
; vp
++)
** PRINTAV -- print argument vector.
** av -- argument vector.
** LOWER -- turn letter into lower case.
** c -- character to turn into lower case.
if (isascii(c
) && isupper(c
))
** XPUTS -- put string doing control escapes.
while ((c
= *s
++) != '\0')
** MAKELOWER -- Translate a line into lower case
** p -- the string to translate. If NULL, return is
** String pointed to by p is translated to lower case.
for (; (c
= *p
) != '\0'; p
++)
if (isascii(c
) && isupper(c
))
** SAMEWORD -- return TRUE if the words are the same
** a, b -- the words to compare.
** TRUE if a & b match exactly (modulo case)
while (lower(*a
) == lower(*b
))
** CLEAR -- clear a block of memory
** p -- location to clear.
** l -- number of bytes to clear.
** FULLNAME -- extract full name from a passwd file entry.
** pw -- password entry to start from.
** buf -- buffer to store result in.
register struct passwd
*pw
;
register char *p
= pw
->pw_gecos
;
while (*p
!= '\0' && *p
!= ',' && *p
!= ';' && *p
!= '%')
(void) strcpy(bp
, pw
->pw_name
);
** SAFEFILE -- return true if a file exists and is safe for a user.
** fn -- filename to check.
** uid -- uid to compare against.
** mode -- mode bits that must match.
** TRUE if fn exists, is owned by uid, and matches mode.
if (stat(fn
, &stbuf
) >= 0 && stbuf
.st_uid
== uid
&&
(stbuf
.st_mode
& mode
) == mode
)
** FIXCRLF -- fix <CR><LF> in line.
** Looks for the <CR><LF> combination and turns it into the
** UNIX canonical <NL> character. It only takes one line,
** i.e., it is assumed that the first <NL> found is the end
** line -- the line to fix.
** stripnl -- if true, strip the newline also.
** line is changed in place.
** SYSLOG -- fake entry to fool lint
** DFOPEN -- determined file open
** This routine has the semantics of fopen, except that it will
** keep trying a few times to make this happen. The idea is that
** on very loaded systems, we may run out of resources (inodes,
** whatever), so this tries to get around it.
for (tries
= 0; tries
< 10; tries
++)
fp
= fopen(filename
, mode
);
if (fp
!= NULL
|| errno
!= ENFILE
)