From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 17:07:39 +0000 Subject: 20060303a --- appl/charon/ctype.m | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 appl/charon/ctype.m (limited to 'appl/charon/ctype.m') diff --git a/appl/charon/ctype.m b/appl/charon/ctype.m new file mode 100644 index 00000000..d4c86126 --- /dev/null +++ b/appl/charon/ctype.m @@ -0,0 +1,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<