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

Last change on this file since 3577fe1 was dade7a0, checked in by Thomas Lopatic <thomas@…>, 7 years ago

No more warnings in libsm.

  • Property mode set to 100644
File size: 440 bytes
Line 
1/*
2 ============================================================================
3 str2uc(s) -- converts string s to upper case ASCII
4 Version 2 -- 1987-06-12 -- (c) Copyright 1987 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
8#include "ram.h"
9
10int8_t *str2uc(int8_t *s)
11{
12 register int8_t c;
13 register int8_t *r = s;
14
15 while ((c = *s))
16 *s++ = (int8_t)toupper(c);
17
18 return(r);
19}
20
Note: See TracBrowser for help on using the repository browser.