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

#include "string.h"

/** toupper(c) translate c to uppercase */
int toupper(c)
int c;
{

if (islower(c)) return(c - ('a'-'A'));
return(c);
}