15 { commentStart = "(*" |
15 { commentStart = "(*" |
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 , reservedNames = [ |
21 , reservedNames = [ |
22 "begin", "end", "program", "unit", "interface" |
22 "begin", "end", "program", "unit", "interface" |
23 , "implementation", "and", "or", "xor", "shl" |
23 , "implementation", "and", "or", "xor", "shl" |
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" |