/*----------------------------------------------------------------*/
/* strupr.c       02/21/2011  Keven Miller   kevenm@3kranger.com  */
/*----------------------------------------------------------------*/
#ifdef   __mpexl
#pragma list off
#pragma LOCALITY "3kRanger"
#endif
/*------------------------------------------------------------------
   strupr: upshifts a string.

Make
   setvar ccopts "-Aa +w1"
   ccxllk struprc, strupr,,-DTEST
------------------------------------------------------------------*/
#include <ctype.h>      /* toupper */

#define  proc

proc char* strupr (char *str)
{
   char  *cp;

   for (cp = str; *cp; ++cp)
      *cp = toupper ((int) *cp);

   return   str;
}
/*----------------------------------------------------------------*/
#ifdef   TEST
#undef   TEST
#include <stdio.h>
#include <string.h>     /* strcpy */

proc int main ()
{
   char  str [80];

   strcpy (str, "This is a string to test strupr!");
   printf ("Orig: [%s]\n", str);
   printf ("Upr : [%s]\n", strupr (str));
}
#endif
/*----------------------------------------------------------------*/