決め打ちで3種類関数にしました

#module
#defcfunc is_digit int _p
	if '0' <= _p{
		if _p <= '9'{ return 1 }
	}
	return 0
#defcfunc is_S_char int _p
	if 'a' <= _p{
		if _p <= 'z'{ return 1 }
	}
	return 0
#defcfunc is_L_char int _p
	if 'A' <= _p{
		if _p <= 'Z'{ return 1 }
	}
	return 0
#global

#if 1
mes "0 : "+is_digit('0')
mes "5 : "+is_digit('5')
mes "9 : "+is_digit('9')
mes "a : "+is_digit('a')
mes "x : "+is_digit('x')
mes "z : "+is_digit('z')
mes "A : "+is_digit('A')
mes "X : "+is_digit('X')
mes "Z : "+is_digit('Z')

mes "0 : "+is_S_char('0')
mes "5 : "+is_S_char('5')
mes "9 : "+is_S_char('9')
mes "a : "+is_S_char('a')
mes "x : "+is_S_char('x')
mes "z : "+is_S_char('z')
mes "A : "+is_S_char('A')
mes "X : "+is_S_char('X')
mes "Z : "+is_S_char('Z')

mes "0 : "+is_L_char('0')
mes "5 : "+is_L_char('5')
mes "9 : "+is_L_char('9')
mes "a : "+is_L_char('a')
mes "x : "+is_L_char('x')
mes "z : "+is_L_char('z')
mes "A : "+is_L_char('A')
mes "X : "+is_L_char('X')
mes "Z : "+is_L_char('Z')
#endif