mirror of
https://github.com/rfivet/uemacs.git
synced 2024-12-18 07:16:23 -05:00
45 lines
1.1 KiB
C
45 lines
1.1 KiB
C
|
/* isa.h -- isletter, islower, isupper, flipcase */
|
||
|
|
|
||
|
|
#ifndef __ISA_H__
|
||
|
|
#define __ISA_H__
|
||
|
|
|
||
|
|
#define NATIONL 0 /* if 1, interpret [,],\,{,},| as characters P.K. */
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef islower
|
||
|
|
#undef islower
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef isupper
|
||
|
|
#undef isupper
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if NATIONL
|
||
|
|
#define LASTUL ']'
|
||
|
|
#define LASTLL '}'
|
||
|
|
#else
|
||
|
|
#define LASTUL 'Z'
|
||
|
|
#define LASTLL 'z'
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define isletter(c) __isxletter((0xFF & (c)))
|
||
|
|
#define islower(c) isxlower((0xFF & (c)))
|
||
|
|
#define isupper(c) isxupper((0xFF & (c)))
|
||
|
|
|
||
|
|
#define __isxletter(c) (('a' <= c && LASTLL >= c) || ('A' <= c && LASTUL >= c) || (192<=c /* && c<=255 */))
|
||
|
|
#define isxlower(c) (('a' <= c && LASTLL >= c) || (224 <= c && 252 >= c))
|
||
|
|
#define isxupper(c) (('A' <= c && LASTUL >= c) || (192 <= c && 220 >= c))
|
||
|
|
|
||
|
|
/* DIFCASE represents the integer difference between upper and lower
|
||
|
|
case letters. It is an xor-able value, which is fortunate, since the
|
||
|
|
relative positions of upper to lower case letters is the opposite of
|
||
|
|
ascii in ebcdic.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define DIFCASE 0x20 /* ASCII 'a' - 'A' */
|
||
|
|
#define flipcase( c) ((c) ^ DIFCASE) /* Toggle the case of a letter. */
|
||
|
|
|
||
|
|
#endif /* __ISA_H__ */
|
||
|
|
|
||
|
|
/* end of isa.h */
|