ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /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; };