code: 9ferno

ref: 83246e296ea433b65b9d295b5e08fedd39ff1ab7
dir: /appl/charon/ctype.m/

View raw version
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;
};