source: buchla-68k/libsm/str2uc.c@ e225e77

/*
   ============================================================================
        str2uc(s) -- converts string s to upper case ASCII
        Version 2 -- 1987-06-12 -- (c) Copyright 1987 -- D.N. Lynx Crowe
   ============================================================================
*/

#include "ctype.h"

int8_t *str2uc(int8_t *s)
{
        register int8_t c;
        register int8_t *r = s;

        while (c = *s)
                *s++ = toupper(c);

        return(r);
}