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

Last change on this file since f7c91fc was f40a309, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Unix line breaks.

  • Property mode set to 100644
File size: 643 bytes
Line 
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
16int
17tolower(c)
18int 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.