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.b | 70 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 70 insertions(+) create mode 100644 appl/charon/ctype.b (limited to 'appl/charon/ctype.b') diff --git a/appl/charon/ctype.b b/appl/charon/ctype.b new file mode 100644 index 00000000..73c7ea4f --- /dev/null +++ b/appl/charon/ctype.b @@ -0,0 +1,70 @@ +implement Ctype; + +include "ctype.m"; + +ctype = array[NCTYPE] of { +#0000 0001 0002 0003 0004 0005 0006 0007 +C, C, C, C, C, C, C, C, +#0008\b 0009 \t 000a \n 000b \v 000c \f 000d \r 000e 000f +C, W, W, C, C, W, C, C, +#0010 0011 0012 0013 0014 0015 0016 0017 +C, C, C, C, C, C, C, C, +#0018 0019 001a 001b 001c 001d 001e 001f +C, C, C, C, C, C, C, C, +#0020 0021 ! 0022 " 0023 # 0024 $ 0025 % 0026 & 0027 ' +W, P, P, P, P, P, P, P, +#0028 ( 0029 ) 002a * 002b + 002c , 002d - 002e . 002f / +P, P, P, P, P, N, N, P, +#0030 0 0031 1 0032 2 0033 3 0034 4 0035 5 0036 6 0037 7 +D, D, D, D, D, D, D, D, +#0038 8 0039 9 003a : 003b ; 003c < 003d = 003e > 003f ? +D, D, P, P, P, P, P, P, +#0040 @ 0041 A 0042 B 0043 C 0044 D 0045 E 0046 F 0047 G +P, U, U, U, U, U, U, U, +#0048 H 0049 I 004a J 004b K 004c L 004d M 004e N 004f O +U, U, U, U, U, U, U, U, +#0050 P 0051 Q 0052 R 0053 S 0054 T 0055 U 0056 V 0057 W +U, U, U, U, U, U, U, U, +#0058 X 0059 Y 005a Z 005b [ 005c \ 005d ] 005e ^ 005f _ +U, U, U, P, P, P, P, S, +#0060 ` 0061 a 0062 b 0063 c 0064 d 0065 e 0066 f 0067 g +P, L, L, L, L, L, L, L, +#0068 h 0069 i 006a j 006b k 006c l 006d m 006e n 006f o +L, L, L, L, L, L, L, L, +#0070 p 0071 q 0072 r 0073 s 0074 t 0075 u 0076 v 0077 w +L, L, L, L, L, L, L, L, +#0078 x 0079 y 007a z 007b { 007c | 007d } 007e ~ 007f  +L, L, L, P, P, P, P, C, +#0080 € 0081  0082 ‚ 0083 ƒ 0084 „ 0085 … 0086 † 0087 ‡ +C, C, C, C, C, C, C, C, +#0088 ˆ 0089 ‰ 008a Š 008b ‹ 008c Œ 008d  008e Ž 008f  +C, C, C, C, C, C, C, C, +#0090  0091 ‘ 0092 ’ 0093 “ 0094 ” 0095 • 0096 – 0097 — +C, C, C, C, C, C, C, C, +#0098 ˜ 0099 ™ 009a š 009b › 009c œ 009d  009e ž 009f Ÿ +C, C, C, C, C, C, C, C, +#00a0   00a1 ¡ 00a2 ¢ 00a3 £ 00a4 ¤ 00a5 ¥ 00a6 ¦ 00a7 § +P, P, P, P, P, P, P, P, +#00a8 ¨ 00a9 © 00aa ª 00ab « 00ac ¬ 00ad ­ 00ae ® 00af ¯ +P, P, P, P, P, P, P, P, +#00b0 ° 00b1 ± 00b2 ² 00b3 ³ 00b4 ´ 00b5 µ 00b6 ¶ 00b7 · +P, P, P, P, P, P, P, P, +#00b8 ¸ 00b9 ¹ 00ba º 00bb » 00bc ¼ 00bd ½ 00be ¾ 00bf ¿ +P, P, P, P, P, P, P, P, +#00c0 À 00c1 Á 00c2  00c3 à 00c4 Ä 00c5 Å 00c6 Æ 00c7 Ç +U, U, U, U, U, U, U, U, +#00c8 È 00c9 É 00ca Ê 00cb Ë 00cc Ì 00cd Í 00ce Î 00cf Ï +U, U, U, U, U, U, U, U, +#00d0 Ð 00d1 Ñ 00d2 Ò 00d3 Ó 00d4 Ô 00d5 Õ 00d6 Ö 00d7 × +U, U, U, U, U, U, U, P, +#00d8 Ø 00d9 Ù 00da Ú 00db Û 00dc Ü 00dd Ý 00de Þ 00df ß +U, U, U, U, U, U, U, L, +#00e0 à 00e1 á 00e2 â 00e3 ã 00e4 ä 00e5 å 00e6 æ 00e7 ç +L, L, L, L, L, L, L, L, +#00e8 è 00e9 é 00ea ê 00eb ë 00ec ì 00ed í 00ee î 00ef ï +L, L, L, L, L, L, L, L, +#00f0 ð 00f1 ñ 00f2 ò 00f3 ó 00f4 ô 00f5 õ 00f6 ö 00f7 ÷ +L, L, L, L, L, L, L, P, +#00f8 ø 00f9 ù 00fa ú 00fb û 00fc ü 00fd ý 00fe þ 00ff ÿ +L, L, L, L, L, L, L, L +}; -- cgit v1.2.3