Context Navigation

TOLOWER.C@ 6888aa2

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

Rev	Line
[3ae31e9]	1	/*
	2	============================================================================
	3	tolower.c -- convert character to lower case ASCII
	4	Version 1 -- 1987-09-11 -- D.N. Lynx Crowe
	5	============================================================================
	6	*/
	7
	8	#include "ctype.h"
	9
	10	/*
	11	============================================================================
	12	tolower(c) -- convert c to lower case ASCII
	13	============================================================================
	14	*/
	15
	16	int
	17	tolower(c)
	18	int c;
	19	{
	20	int x;
	21
	22	if (isascii(c)) {
	23
	24	if (isupper(c))
	25	x = _tolower(c);
	26	else
	27	x = c;
	28
	29	} else {
	30
	31	x = c;
	32	}
	33
	34	return(x);
	35	}
	36

Note: See TracBrowser for help on using the repository browser.