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 |
|
---|
8 | char *
|
---|
9 | str2uc(s)
|
---|
10 | register 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.