--- a/tools/PascalUnitSyntaxTree.hs	Sat Dec 03 19:18:13 2011 +0100
+++ b/tools/PascalUnitSyntaxTree.hs	Sat Dec 03 22:21:23 2011 +0300
@@ -11,7 +11,7 @@
     deriving Show
 data Implementation = Implementation Uses TypesAndVars
     deriving Show
-data Identifier = Identifier String
+data Identifier = Identifier String BaseType
     deriving Show
 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
     deriving Show
@@ -92,3 +92,17 @@
     | InitRange Range
     | InitTypeCast Identifier InitExpression
     deriving Show
+
+data BaseType = Unknown
+    | BTChar
+    | BTString
+    | BTInt
+    | BTRecord
+    | BTArray
+    | BTFunction
+    | BTPointerTo BaseType
+    | BTSet
+    | BTEnum [String]
+    | Void
+    deriving Show
+    
\ No newline at end of file