mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-01 00:29:17 +00:00
77 lines
1.9 KiB
C
77 lines
1.9 KiB
C
|
/*
|
||
|
FUNCTION
|
||
|
<<tolower>>---translate characters to lowercase
|
||
|
|
||
|
INDEX
|
||
|
tolower
|
||
|
INDEX
|
||
|
_tolower
|
||
|
|
||
|
ANSI_SYNOPSIS
|
||
|
#include <ctype.h>
|
||
|
int tolower(int <[c]>);
|
||
|
int _tolower(int <[c]>);
|
||
|
|
||
|
TRAD_SYNOPSIS
|
||
|
#include <ctype.h>
|
||
|
int tolower(<[c]>);
|
||
|
int _tolower(<[c]>);
|
||
|
|
||
|
|
||
|
DESCRIPTION
|
||
|
<<tolower>> is a macro which converts uppercase characters to lowercase,
|
||
|
leaving all other characters unchanged. It is only defined when
|
||
|
<[c]> is an integer in the range <<EOF>> to <<255>>.
|
||
|
|
||
|
You can use a compiled subroutine instead of the macro definition by
|
||
|
undefining this macro using `<<#undef tolower>>'.
|
||
|
|
||
|
<<_tolower>> performs the same conversion as <<tolower>>, but should
|
||
|
only be used when <[c]> is known to be an uppercase character (<<A>>--<<Z>>).
|
||
|
|
||
|
RETURNS
|
||
|
<<tolower>> returns the lowercase equivalent of <[c]> when it is a
|
||
|
character between <<A>> and <<Z>>, and <[c]> otherwise.
|
||
|
|
||
|
<<_tolower>> returns the lowercase equivalent of <[c]> when it is a
|
||
|
character between <<A>> and <<Z>>. If <[c]> is not one of these
|
||
|
characters, the behaviour of <<_tolower>> is undefined.
|
||
|
|
||
|
PORTABILITY
|
||
|
<<tolower>> is ANSI C. <<_tolower>> is not recommended for portable
|
||
|
programs.
|
||
|
|
||
|
No supporting OS subroutines are required.
|
||
|
*/
|
||
|
|
||
|
#include <_ansi.h>
|
||
|
#include <ctype.h>
|
||
|
#if defined (_MB_EXTENDED_CHARSETS_ISO) || defined (_MB_EXTENDED_CHARSETS_WINDOWS)
|
||
|
#include <limits.h>
|
||
|
#include <stdio.h>
|
||
|
#include <stdlib.h>
|
||
|
#include <wctype.h>
|
||
|
#include <wchar.h>
|
||
|
#endif
|
||
|
|
||
|
#undef tolower
|
||
|
int
|
||
|
_DEFUN(tolower,(c),int c)
|
||
|
{
|
||
|
#if defined (_MB_EXTENDED_CHARSETS_ISO) || defined (_MB_EXTENDED_CHARSETS_WINDOWS)
|
||
|
if ((unsigned char) c <= 0x7f)
|
||
|
return isupper (c) ? c - 'A' + 'a' : c;
|
||
|
else if (c != EOF && MB_CUR_MAX == 1 && isupper (c))
|
||
|
{
|
||
|
char s[MB_LEN_MAX] = { c, '\0' };
|
||
|
wchar_t wc;
|
||
|
if (mbtowc (&wc, s, 1) >= 0
|
||
|
&& wctomb (s, (wchar_t) towlower ((wint_t) wc)) == 1)
|
||
|
c = (unsigned char) s[0];
|
||
|
}
|
||
|
return c;
|
||
|
#else
|
||
|
return isupper(c) ? (c) - 'A' + 'a' : c;
|
||
|
#endif
|
||
|
}
|