Static C functions; clean up

1 files changed, 11 insertions, 4 deletions

diff --git a/Language/C.hs b/Language/C.hs
index 6a3256f..9a65115 100644
--- a/Language/C.hs
+++ b/Language/C.hs
@@ -5,10 +5,17 @@ data Program = Program [FunDef]
   deriving (Show)
 
 data FunDef
-    = FunDef Type Name [(Type, Name)] StExpr
-    | ProcDef Name [(Type, Name)] [Stmt]
+    = FunDef FunAttrs Type Name [(Type, Name)] StExpr
+    | ProcDef FunAttrs Name [(Type, Name)] [Stmt]
   deriving (Show, Eq)
 
+data FunAttrs = FunAttrs
+    { faStatic :: Bool }
+  deriving (Show, Eq)
+
+defAttrs :: FunAttrs
+defAttrs = FunAttrs { faStatic = False }
+
 -- | Some C types.
 data Type
     = TInt Bits
@@ -53,5 +60,5 @@ data Expr
 
 
 fundefName :: FunDef -> Name
-fundefName (FunDef _ n _ _) = n
-fundefName (ProcDef n _ _) = n
+fundefName (FunDef _ _ n _ _) = n
+fundefName (ProcDef _ n _ _) = n