forked from KolibriOS/kolibrios
47 lines
716 B
C
47 lines
716 B
C
|
/*
|
||
|
|
FUNCTION
|
||
|
|
<<strupr>>---force string to uppercase
|
||
|
|
|
||
|
|
INDEX
|
||
|
|
strupr
|
||
|
|
|
||
|
|
ANSI_SYNOPSIS
|
||
|
|
#include <string.h>
|
||
|
|
char *strupr(char *<[a]>);
|
||
|
|
|
||
|
|
TRAD_SYNOPSIS
|
||
|
|
#include <string.h>
|
||
|
|
char *strupr(<[a]>)
|
||
|
|
char *<[a]>;
|
||
|
|
|
||
|
|
DESCRIPTION
|
||
|
|
<<strupr>> converts each character in the string at <[a]> to
|
||
|
|
uppercase.
|
||
|
|
|
||
|
|
RETURNS
|
||
|
|
<<strupr>> returns its argument, <[a]>.
|
||
|
|
|
||
|
|
PORTABILITY
|
||
|
|
<<strupr>> is not widely portable.
|
||
|
|
|
||
|
|
<<strupr>> requires no supporting OS subroutines.
|
||
|
|
|
||
|
|
QUICKREF
|
||
|
|
strupr
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <string.h>
|
||
|
|
#include <ctype.h>
|
||
|
|
|
||
|
|
char *
|
||
|
|
_DEFUN (strupr, (s),
|
||
|
|
char *s)
|
||
|
|
{
|
||
|
|
unsigned char *ucs = (unsigned char *) s;
|
||
|
|
for ( ; *ucs != '\0'; ucs++)
|
||
|
|
{
|
||
|
|
*ucs = toupper(*ucs);
|
||
|
|
}
|
||
|
|
return s;
|
||
|
|
}
|