Context Navigation

STR2UC.C@ 73dd55f

Last change on this file since 73dd55f was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago
Imported original source code.
Property mode set to `100755`
File size: 435 bytes

Rev	Line
[3ae31e9]	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.