tools/PascalUnitSyntaxTree.hs
changeset 6643 eed176af3cc6
parent 6635 c2fa29fe2a58
child 6649 7f78e8a6db69
equal deleted inserted replaced
6636:4450e746dc34 6643:eed176af3cc6
    97 
    97 
    98 data BaseType = BTUnknown
    98 data BaseType = BTUnknown
    99     | BTChar
    99     | BTChar
   100     | BTString
   100     | BTString
   101     | BTInt
   101     | BTInt
       
   102     | BTBool
   102     | BTRecord [(String, BaseType)]
   103     | BTRecord [(String, BaseType)]
   103     | BTArray BaseType BaseType
   104     | BTArray BaseType BaseType
   104     | BTFunction
   105     | BTFunction
   105     | BTPointerTo BaseType
   106     | BTPointerTo BaseType
   106     | BTSet
   107     | BTSet