source: buchla-68k/lib700/tolower.c@ e877e55

Last change on this file since e877e55 was b28a12e, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Zero redundant declarations.

  • Property mode set to 100644
File size: 651 bytes
RevLine 
[f40a309]1/*
2 ============================================================================
3 tolower.c -- convert character to lower case ASCII
4 Version 1 -- 1987-09-11 -- D.N. Lynx Crowe
5 ============================================================================
6*/
7
[b28a12e]8#include "ram.h"
[f40a309]9
10/*
11 ============================================================================
12 tolower(c) -- convert c to lower case ASCII
13 ============================================================================
14*/
15
[7258c6a]16int16_t tolower(int16_t c)
[f40a309]17{
[7258c6a]18 int16_t x;
[f40a309]19
20 if (isascii(c)) {
21
22 if (isupper(c))
23 x = _tolower(c);
24 else
25 x = c;
26
27 } else {
28
29 x = c;
30 }
31
32 return(x);
33}
34
[6262b5c]35
Note: See TracBrowser for help on using the repository browser.