24 , "shr", "while", "do", "repeat", "until", "case", "of" |
24 , "shr", "while", "do", "repeat", "until", "case", "of" |
25 , "type", "var", "const", "out", "array", "packed" |
25 , "type", "var", "const", "out", "array", "packed" |
26 , "procedure", "function", "with", "for", "to" |
26 , "procedure", "function", "with", "for", "to" |
27 , "downto", "div", "mod", "record", "set", "nil" |
27 , "downto", "div", "mod", "record", "set", "nil" |
28 , "cdecl", "external", "if", "then", "else" |
28 , "cdecl", "external", "if", "then", "else" |
29 ] ++ builtin |
29 ] -- ++ builtin |
30 , reservedOpNames= [] |
30 , reservedOpNames= [] |
31 , caseSensitive = False |
31 , caseSensitive = False |
32 } |
32 } |
33 |
33 |
34 preprocessorSwitch :: Stream s m Char => ParsecT s u m String |
34 preprocessorSwitch :: Stream s m Char => ParsecT s u m String |