Context Navigation

toupper.c

Last change on this file was b28a12e, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Zero redundant declarations.
Property mode set to `100644`
File size: 649 bytes

Rev	Line
[f40a309]	1	/*
	2	============================================================================
	3	toupper.c -- convert character to upper case ASCII
	4	Version 1 -- 1987-06-11 -- D.N. Lynx Crowe
	5	============================================================================
	6	*/
	7
[b28a12e]	8	#include "ram.h"
[f40a309]	9
	10	/*
	11	============================================================================
	12	toupper(c) -- convert c to upper case ASCII
	13	============================================================================
	14	*/
	15
[7258c6a]	16	int16_t toupper(int16_t c)
[f40a309]	17	{
[7258c6a]	18	int16_t x;
[f40a309]	19
	20	if (isascii(c)) {
	21
	22	if (islower(c))
	23	x = _toupper(c);
	24	else
	25	x = c;
	26	} else {
	27
	28	x = c;
	29	}
	30
	31	return(x);
	32	}
[6262b5c]	33

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