nuclear@2: #include "ctype.h"
nuclear@2: 
nuclear@2: int isalnum(int c)
nuclear@2: {
nuclear@2: 	return isalpha(c) || isdigit(c);
nuclear@2: }
nuclear@2: 
nuclear@2: int isalpha(int c)
nuclear@2: {
nuclear@2: 	return isupper(c) || islower(c);
nuclear@2: }
nuclear@2: 
nuclear@2: int isblank(int c)
nuclear@2: {
nuclear@2: 	return c == ' ' || c == '\t';
nuclear@2: }
nuclear@2: 
nuclear@2: int isdigit(int c)
nuclear@2: {
nuclear@2: 	return c >= '0' && c <= '9';
nuclear@2: }
nuclear@2: 
nuclear@2: int isupper(int c)
nuclear@2: {
nuclear@2: 	return c >= 'A' && c <= 'Z';
nuclear@2: }
nuclear@2: 
nuclear@2: int islower(int c)
nuclear@2: {
nuclear@2: 	return c >= 'a' && c <= 'z';
nuclear@2: }
nuclear@2: 
nuclear@2: int isgraph(int c)
nuclear@2: {
nuclear@2: 	return c > ' ' && c <= '~';
nuclear@2: }
nuclear@2: 
nuclear@2: int isprint(int c)
nuclear@2: {
nuclear@2: 	return isgraph(c) || c == ' ';
nuclear@2: }
nuclear@2: 
nuclear@2: int isspace(int c)
nuclear@2: {
nuclear@2: 	return isblank(c) || c == '\f' || c == '\n' || c == '\r' || c == '\v';
nuclear@2: }
nuclear@2: 
nuclear@2: int toupper(int c)
nuclear@2: {
nuclear@2: 	return islower(c) ? (c + ('A' - 'a')) : c;
nuclear@2: }
nuclear@2: 
nuclear@2: int tolower(int c)
nuclear@2: {
nuclear@2: 	return isupper(c) ? (c + ('A' - 'a')) : c;
nuclear@2: }