Parse local variables

lib/Language/Elna/Backend/Intermediate.hs

@@ -17,12 +17,12 @@ instance Show Label
   where
     show (Label label) = '.' : Text.unpack label
 
-newtype Variable = TempVariable Word32 -- | Variable Text
+data Variable = TempVariable Word32 | LocalVariable Word32
     deriving Eq
 
 instance Show Variable
   where
-    -- show (Variable variable) = '$' : Text.unpack variable
+    show (LocalVariable variable) = '@' : show variable
     show (TempVariable variable) = '$' : show variable
 
 data Operand v
@@ -41,8 +41,8 @@ data Quadruple v
     | ProductQuadruple (Operand v) (Operand v) v
     | DivisionQuadruple (Operand v) (Operand v) v
     | GoToQuadruple Label
-    {-| AssignQuadruple Operand Variable
-    | ArrayQuadruple Variable Operand Variable
+    | AssignQuadruple (Operand v) v
+    {-| ArrayQuadruple Variable Operand Variable
     | ArrayAssignQuadruple Operand Operand Variable -}
     | LessOrEqualQuadruple (Operand v) (Operand v) Label
     | GreaterOrEqualQuadruple (Operand v) (Operand v) Label