@@ -102,8 +102,8 @@ implies known x = all (fromCharSet x) poss
102102
103103charSetC :: [CharSet] -> ([String], CharSet -> String)
104104charSetC sets =
105− (["static const char internal_parse_table[256] = {" ++ intercalate "," ("0":map disp chars) ++ "};"]
106− ,\x -> fromMaybe ("internal_parse_table[*p] & " ++ showBit (bit $ fromJust $ elemIndex x hard)) $ simple x)
105+ (["static const char table[256] = {" ++ intercalate "," ("0":map disp chars) ++ "};"]
106+ ,\x -> fromMaybe ("table[(int) *p] & " ++ showBit (bit $ fromJust $ elemIndex x hard)) $ simple x)
107107 where
108108 showBit x = "0x" ++ showHex (x :: Int) ""
109109 disp c = showBit $ foldr (.|.) 0 [bit i | (i, h) <- zip [0..] hard, fromCharSet h c]