tools/PascalUnitSyntaxTree.hs
changeset 6635 c2fa29fe2a58
parent 6626 a447993f2ad7
child 6649 7f78e8a6db69
equal deleted inserted replaced
6633:2dc43ce68721 6635:c2fa29fe2a58
    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