ctype.c

SimpleGraphicOperatingSystem 32位图形化操作系统 多进程 支持FAT32 详见www.sgos.net.cn

#include <osdef.h>

#define _U	0x01	/* upper */
#define _L	0x02	/* lower */
#define _D	0x04	/* digit */
#define _C	0x08	/* cntrl */
#define _P	0x10	/* punct */
#define _S	0x20	/* white space (space/lf/tab) */
#define _X	0x40	/* hex digit */
#define _SP	0x80	/* hard space (0x20) */

char _ctmp;
unsigned char _ctype[] = {0x00,			/* EOF */
_C,_C,_C,_C,_C,_C,_C,_C,			/* 0-7 */
_C,_C|_S,_C|_S,_C|_S,_C|_S,_C|_S,_C,_C,		/* 8-15 */
_C,_C,_C,_C,_C,_C,_C,_C,			/* 16-23 */
_C,_C,_C,_C,_C,_C,_C,_C,			/* 24-31 */
_S|_SP,_P,_P,_P,_P,_P,_P,_P,			/* 32-39 */
_P,_P,_P,_P,_P,_P,_P,_P,			/* 40-47 */
_D,_D,_D,_D,_D,_D,_D,_D,			/* 48-55 */
_D,_D,_P,_P,_P,_P,_P,_P,			/* 56-63 */
_P,_U|_X,_U|_X,_U|_X,_U|_X,_U|_X,_U|_X,_U,	/* 64-71 */
_U,_U,_U,_U,_U,_U,_U,_U,			/* 72-79 */
_U,_U,_U,_U,_U,_U,_U,_U,			/* 80-87 */
_U,_U,_U,_P,_P,_P,_P,_P,			/* 88-95 */
_P,_L|_X,_L|_X,_L|_X,_L|_X,_L|_X,_L|_X,_L,	/* 96-103 */
_L,_L,_L,_L,_L,_L,_L,_L,			/* 104-111 */
_L,_L,_L,_L,_L,_L,_L,_L,			/* 112-119 */
_L,_L,_L,_P,_P,_P,_P,_C,			/* 120-127 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,		/* 128-143 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,		/* 144-159 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,		/* 160-175 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,		/* 176-191 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,		/* 192-207 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,		/* 208-223 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,		/* 224-239 */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0};		/* 240-255 */


EXPORT isalnum(unsigned char c) {
	return ((_ctype+1)[c]&(_U|_L|_D));
}
EXPORT isalpha(unsigned char c) {
	return ((_ctype+1)[c]&(_U|_L));
}
EXPORT iscntrl(unsigned char c) {
	return ((_ctype+1)[c]&(_C));
}

EXPORT isdigit(unsigned char c) {
	return ((_ctype+1)[c]&(_D));
}

EXPORT isgraph(unsigned char c) {
	return ((_ctype+1)[c]&(_P|_U|_L|_D));
}

EXPORT islower(unsigned char c) {
	return ((_ctype+1)[c]&(_L));
}

EXPORT isprint(unsigned char c) {
	return ((_ctype+1)[c]&(_P|_U|_L|_D|_SP));
}

EXPORT ispunct(unsigned char c) {
	return ((_ctype+1)[c]&(_P));
}

EXPORT isspace(unsigned char c) {
	return ((_ctype+1)[c]&(_S));
}

EXPORT isupper(unsigned char c) {
	return ((_ctype+1)[c]&(_U));
}

EXPORT isxdigit(unsigned char c) {
	return ((_ctype+1)[c]&(_D|_X));
}


EXPORT isascii(c) {
	return (((unsigned) c)<=0x7f);
}

EXPORT toascii(c) {
	return (((unsigned) c)&0x7f);
}


EXPORT tolower(c) {
	return (_ctmp=c,isupper(_ctmp)?_ctmp-('A'-'a'):_ctmp);
}

EXPORT toupper(c) {
	return (_ctmp=c,islower(_ctmp)?_ctmp-('a'-'A'):_ctmp);
}