1 /* --------------------------------------------------------------------------
2 * Character set handling:
4 * Hugs follows Haskell 1.3 in assuming that input uses the ISO-8859-1
5 * character set. The following code provides methods for classifying
6 * input characters according to the lexical structure specified by the
7 * report. Hugs should still accept older programs because ASCII is
8 * essentially just a subset of the ISO character set.
10 * Notes: If you want to port Hugs to a machine that uses something
11 * substantially different from the ISO character set, then you will need
12 * to insert additional code to map between character sets.
14 * Relies, implicitly but for this comment, on assumption that NUM_CHARS=256.
15 * ------------------------------------------------------------------------*/
17 extern unsigned char ctable[NUM_CHARS];
19 #define isIn(c,x) (ctable[(Int)(c)]&(x))
20 #define isISO(c) (0<=(c) && (c)<NUM_CHARS)
30 extern Void local initCharTab Args(( Void ));