appl/charon/ctype.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

Ctype: module
{
	PATH: con "/dis/charon/ctype.dis";

	# Classify first NCTYPE chars of Unicode into one of
	#
	#   W: whitespace
	#   D: decimal digit
	#   L: lowercase letter
	#   U: uppercase letter
	#   N: '.' or '-' (parts of certain kinds of names)
	#   S: '_' (parts of other kinds of names)
	#   P: printable other than all of above
	#   C: control other than whitespace
	#
	# These are separate bits, so can test for, e.g., ctype[c]&(U|L),
	# but only one is set for any particular character,
	# so can use faster ctype[c]==W too.

	W, D, L, U, N, S, P, C: con byte (1<<iota);
	NCTYPE: con 256;

	ctype: array of byte;
};