m_ctype.h
上传用户:jmzj888
上传日期:2007-01-02
资源大小:220k
文件大小:4k
- /* Copyright (C) 1996 TCX DataKonsult AB & Monty Program KB & Detron HB
- For a more info consult the file COPYRIGHT distributed with this file */
- /*
- A better inplementation of the UNIX ctype(3) library.
- Notes: global.h should be included before ctype.h
- */
- #ifndef _m_ctype_h
- #define _m_ctype_h
- #ifdef WIN32
- #include <ctype.h>
- #endif
- #define _CTYPE_H /* Don't include std ctype.h when this is included */
- #ifndef CTYPE_LIBRARY
- #define EXT extern
- #define D(x)
- #else
- #define EXT
- #define D(x) = x
- #endif
- #define _U 01 /* Upper case */
- #define _L 02 /* Lower case */
- #define _N 04 /* Numeral (digit) */
- #define _S 010 /* Spacing character */
- #define _P 020 /* Punctuation */
- #define _C 040 /* Control character */
- #define _B 0100 /* Blank */
- #define _X 0200 /* heXadecimal digit */
- extern uchar NEAR ctype_usa7[];
- extern uchar NEAR to_upper_usa7[],NEAR to_lower_usa7[],NEAR sort_order_usa7[];
- extern uchar NEAR ctype_swe7[];
- extern uchar NEAR to_upper_swe7[],NEAR to_lower_swe7[],NEAR sort_order_swe7[];
- extern uchar NEAR ctype_hp8[];
- extern uchar NEAR to_upper_hp8[],NEAR to_lower_hp8[],NEAR sort_order_hp8[];
- extern uchar NEAR ctype_dec8[];
- extern uchar NEAR to_upper_dec8[],NEAR to_lower_dec8[],NEAR sort_order_dec8[];
- extern uchar NEAR ctype_ISO_8859_1[];
- extern uchar NEAR to_upper_ISO_8859_1[],NEAR to_lower_ISO_8859_1[],
- NEAR sort_order_ISO_8859_1[];
- #if defined(USE_USA7BITCHARS) +
- defined(USE_SWE7BITCHARS) +
- defined(USE_DEC8BITCHARS) +
- defined(USE_HP8BITCHARS) +
- defined(USE_ISO_8859_1) +
- defined(MSDOS) != 1
- error "More than one USE_xxxnBITCHARS defined"
- #endif
- #ifdef USE_USA7BITCHARS
- /* to_*_usa7 is also used directly by other programs (dlisp) */
- EXT uchar *my_ctype D(ctype_usa7);
- EXT uchar *my_to_lower D(to_lower_usa7);
- EXT uchar *my_to_upper D(to_upper_usa7);
- EXT uchar *my_sort_order D(sort_order_usa7);
- #else
- #ifdef USE_SWE7BITCHARS
- EXT uchar *my_ctype D(ctype_swe7);
- EXT uchar *my_to_upper D(to_upper_swe7);
- EXT uchar *my_to_lower D(to_lower_swe7);
- EXT uchar *my_sort_order D(sort_order_swe7);
- #else
- #ifdef USE_HP8BITCHARS
- /* use HPUX internal tables */
- EXT uchar *my_ctype D(ctype_hp8);
- EXT uchar *my_to_upper D(to_upper_hp8);
- EXT uchar *my_to_lower D(to_lower_hp8);
- EXT uchar *my_sort_order D(sort_order_hp8);
- #else
- #ifdef USE_DEC8BITCHARS
- /* use DEC multinational chars */
- EXT uchar *my_ctype D(ctype_dec8);
- EXT uchar *my_to_upper D(to_upper_dec8);
- EXT uchar *my_to_lower D(to_lower_dec8);
- EXT uchar *my_sort_order D(sort_order_dec8);
- #else
- #ifdef USE_ISO_8859_1
- EXT uchar *my_ctype D(ctype_ISO_8859_1);
- EXT uchar *my_to_upper D(to_upper_ISO_8859_1);
- EXT uchar *my_to_lower D(to_lower_ISO_8859_1);
- EXT uchar *my_sort_order D(sort_order_ISO_8859_1);
- #else
- #ifdef MSDOS
- #define my_ctype ctype
- #define my_to_upper to_upper
- #define my_to_lower to_lower
- #define my_sort_order sort_order
- extern uchar NEAR ctype[],NEAR to_lower[],NEAR to_upper[],NEAR sort_order[];
- #endif /* MSDOS */
- #endif
- #endif
- #endif
- #endif
- #endif
- #ifndef WIN32
- #define _toupper(c) (char) my_to_upper[(uchar) (c)]
- #define _tolower(c) (char) my_to_lower[(uchar) (c)]
- #define toupper(c) (char) my_to_upper[(uchar) (c)]
- #define tolower(c) (char) my_to_lower[(uchar) (c)]
- #define isalpha(c) ((my_ctype+1)[(uchar) (c)] & (_U | _L))
- #define isupper(c) ((my_ctype+1)[(uchar) (c)] & _U)
- #define islower(c) ((my_ctype+1)[(uchar) (c)] & _L)
- #define isdigit(c) ((my_ctype+1)[(uchar) (c)] & _N)
- #define isxdigit(c) ((my_ctype+1)[(uchar) (c)] & _X)
- #define isalnum(c) ((my_ctype+1)[(uchar) (c)] & (_U | _L | _N))
- #define isspace(c) ((my_ctype+1)[(uchar) (c)] & _S)
- #define ispunct(c) ((my_ctype+1)[(uchar) (c)] & _P)
- #define isprint(c) ((my_ctype+1)[(uchar) (c)] & (_P | _U | _L | _N | _B))
- #define isgraph(c) ((my_ctype+1)[(uchar) (c)] & (_P | _U | _L | _N))
- #define iscntrl(c) ((my_ctype+1)[(uchar) (c)] & _C)
- #define isascii(c) (!((c) & ~0177))
- #define toascii(c) ((c) & 0177)
- #endif
- #ifdef ctype
- #undef ctype
- #endif /* ctype */
- /* These is allways used */
- /* Some macros that should be cleaned up a little */
- #define isvar(c) (isalnum(c) || (c) == '_')
- #define isvar_start(c) (isalpha(c) || (c) == '_')
- #define tocntrl(c) ((c) & 31)
- #define toprint(c) ((c) | 64)
- #endif /* _m_ctype_h */