source: buchla-68k/orig/CLIBRARY/TOLOWER.C@ 6099cac

Last change on this file since 6099cac was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 679 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.