ref: fb7dd4b3a868cb8987049c95bb32e6425a73c8b9
dir: purgatorio/appl/charon/ctype.m
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;
};