source: buchla-68k/orig/CLIBRARY/STR2UC.C@ 06f6615

Last change on this file since 06f6615 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.

  • Property mode set to 100755
File size: 435 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
8char *
9str2uc(s)
10register char *s;
11{
12 register char c;
13 register char *r = s;
14
15 while (c = *s)
16 *s++ = toupper(c);
17
18 return(r);
19}
Note: See TracBrowser for help on using the repository browser.