tools/pas2c/PascalUnitSyntaxTree.hs
changeset 10113 b26c2772e754
parent 10111 459bc720cea1
child 10120 b7f632c12784
equal deleted inserted replaced
10111:459bc720cea1 10113:b26c2772e754
     1 module PascalUnitSyntaxTree where
     1 module PascalUnitSyntaxTree where
     2 
       
     3 import Data.Maybe
       
     4 import Data.Char
       
     5 
     2 
     6 data PascalUnit =
     3 data PascalUnit =
     7     Program Identifier Implementation Phrase
     4     Program Identifier Implementation Phrase
     8     | Unit Identifier Interface Implementation (Maybe Initialize) (Maybe Finalize)
     5     | Unit Identifier Interface Implementation (Maybe Initialize) (Maybe Finalize)
     9     | System [TypeVarDeclaration]
     6     | System [TypeVarDeclaration]