src/M0ld/AST.hs

   1 module M0ld.AST where
   2 type Register = [Char]
   3 type Label = [Char]
   4 data Value = Var [Char] | IntegerConstant Integer | StringConstant [Char] | None | SubMold [Stmt]
   5     deriving (Show,Eq,Ord)
   6 data Capture = Capture Register [Register] [Register]
   7     deriving (Show,Eq,Ord)
   8 data Stmt = LabelDef Label | Decl Register Value | Goto Label | Br Register Label Label | Call Register Register Capture | Call2 Register Register Register Register
   9     deriving (Show,Eq,Ord)
  10 data Argument = Pos Register | Named Register Register