tools/PascalBasics.hs
changeset 7062 7efe16575779
parent 7042 de20086a6bcc
child 7315 59b5b19e6604
equal deleted inserted replaced
7061:4e0fc59ab1ce 7062:7efe16575779
     6 import Text.Parsec.Prim
     6 import Text.Parsec.Prim
     7 import Text.Parsec.Token
     7 import Text.Parsec.Token
     8 import Text.Parsec.Language
     8 import Text.Parsec.Language
     9 import Data.Char
     9 import Data.Char
    10 
    10 
    11 builtin = ["succ", "pred", "low", "high", "ord", "inc", "dec", "exit", "break", "continue"]
    11 builtin = ["succ", "pred", "low", "high", "ord", "inc", "dec", "exit", "break", "continue", "length"]
    12     
    12     
    13 pascalLanguageDef
    13 pascalLanguageDef
    14     = emptyDef
    14     = emptyDef
    15     { commentStart   = "(*"
    15     { commentStart   = "(*"
    16     , commentEnd     = "*)"
    16     , commentEnd     = "*)"