From 961b6fc01f9c2f0220070849d22b2a30ca031324 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sat, 9 Oct 2021 10:19:46 +0200
Subject: Static C functions; clean up

---
 Language/C.hs | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'Language/C.hs')

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
-- 
cgit v1.2.3-70-g09d2