Subversion Repositories or1k

/*
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 characters in the string at <[a]> to
	upper case.
 
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 *
strupr (a)
     char *a;
{
  char *ret = a;
 
  while (*a != '\0')
    {
      if (islower (*a))
	*a = toupper (*a);
      ++a;
    }
 
  return ret;
}