/*************************************************************
 * File: lib/strtoupp.c
 * Purpose: Part of C runtime library
 * Author: Phil Bunce (pjb@carmel.com)
 * Revision History:
 *	970304	Start of revision history
 */

#include "string.h"

/** strtoupper(p) convert p to uppercase */
char *strtoupper(char *s)
{
char *p;
if (!s) return(0);
for (p=s;*p;p++) *p = toupper(*p);
return(s);
}