+ SPARC assembly syntax with virtual instructions

No pretty printing at the moment

SPARC/Syntax.hs

@@ -0,0 +1,68 @@
+module SPARC.Syntax where
+
+  data Label = L String deriving Eq
+
+  instance Show Label where
+    show (L s) = s
+
+  data IdOrIimm =
+      V String
+    | C Integer
+    deriving Eq
+
+  instance Show IdOrIimm where
+    show (V s) = s
+    show (C n) = show n
+
+  -- Instruction sequence
+  data Seq =
+      Ans Instr
+    | Let String Instr Seq
+    deriving (Eq, Show)
+
+  -- SPARC assembly instructions
+  data Instr =
+      Inop
+    | Iset Integer
+    | IsetL Label
+    | Imov String
+    | Ineg String
+    | Iadd String IdOrIimm
+    | Isub String IdOrIimm
+    | ISLL String IdOrIimm
+    | Ild String  IdOrIimm
+    | Ist String String IdOrIimm
+    | IfMovD String
+    | IfNegD String
+    | IfAddD String String
+    | IfSubD String String
+    | IfMulD String String
+    | IfDivD String String
+    | IldDF String IdOrIimm
+    | IstDF String String IdOrIimm
+    | Icomment String
+    -- virtual instructions
+    | IifEq String IdOrIimm Instr Instr
+    | IifLE String IdOrIimm Instr Instr
+    | IifGE String IdOrIimm Instr Instr
+    | IifFEq String String Instr Instr
+    | IifFLE String String Instr Instr
+    -- closure address, integer arguments, and float arguments
+    | IcallCls String [String] [String]
+    | IcallDir Label [String] [String]
+    | Isave String String
+    | Irestore String
+    deriving (Eq, Show)
+
+  data FunDef = FD {
+    name  :: Label,
+    args  :: [String],
+    fargs :: [String],
+    body  :: Seq,
+  } deriving (Eq, Show)
+
+  data Program = P {
+    funTable :: [(Label, Float)],
+    toplevel :: [FunDef],
+    main     :: Instr
+  } deriving (Eq, Show)