16 , commentEnd = "*)" |
16 , commentEnd = "*)" |
17 , commentLine = "//" |
17 , commentLine = "//" |
18 , nestedComments = False |
18 , nestedComments = False |
19 , identStart = letter <|> oneOf "_" |
19 , identStart = letter <|> oneOf "_" |
20 , identLetter = alphaNum <|> oneOf "_" |
20 , identLetter = alphaNum <|> oneOf "_" |
|
21 , opLetter = letter |
21 , reservedNames = [ |
22 , reservedNames = [ |
22 "begin", "end", "program", "unit", "interface" |
23 "begin", "end", "program", "unit", "interface" |
23 , "implementation", "and", "or", "xor", "shl" |
24 , "implementation", "and", "or", "xor", "shl" |
24 , "shr", "while", "do", "repeat", "until", "case", "of" |
25 , "shr", "while", "do", "repeat", "until", "case", "of" |
25 , "type", "var", "const", "out", "array", "packed" |
26 , "type", "var", "const", "out", "array", "packed" |
26 , "procedure", "function", "with", "for", "to" |
27 , "procedure", "function", "with", "for", "to" |
27 , "downto", "div", "mod", "record", "set", "nil" |
28 , "downto", "div", "mod", "record", "set", "nil" |
28 , "cdecl", "external", "if", "then", "else" |
29 , "cdecl", "external", "if", "then", "else" |
29 ] -- ++ builtin |
30 ] -- ++ builtin |
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 |
35 preprocessorSwitch = do |
35 preprocessorSwitch = do |