/*
 *  Convert string to upper case
 *
 *    (c)Copyright 1992-1997 Obvious Implementations Corp.  Redistribution and
 *    use is allowed under the terms of the DICE-LICENSE FILE,
 *    DICE-LICENSE.TXT.
 */

#ifndef HYPER
#define HYPER(x) x
#endif

char *
HYPER(strupper)(str)
char *str;
{
    char c;
    char *base = str;

    while (c = *str) {
	if (c >= 'a' && c <= 'z')
	    *str = c + ('A' - 'a');
	++str;
    }
    return(base);
}