Static C functions; clean up

1 files changed, 6 insertions, 4 deletions

diff --git a/Language/C/Print.hs b/Language/C/Print.hs
index cc511b2..5852601 100644
--- a/Language/C/Print.hs
+++ b/Language/C/Print.hs
@@ -14,15 +14,17 @@ printProgram :: Program -> PrintS
 printProgram (Program defs) = intercalates "\n" (map printFunDef defs)
 
 printFunDef :: FunDef -> PrintS
-printFunDef (FunDef rt n as (StExpr ss rete)) =
-    printType rt % printString " " % printName n
+printFunDef (FunDef attrs rt n as (StExpr ss rete)) =
+    printString (if faStatic attrs then "static " else "")
+    % printType rt % printString " " % printName n
     % printString "("
     % intercalates ", " [printType t % printString " " % printName an | (t, an) <- as]
     % printString ") {\n  "
     % addIndent 2 (intercalates "\n" (map printStmt ss))
     % printString "\n  return (" % printExpr rete % printString ");\n}\n"
-printFunDef (ProcDef n as ss) =
-    printString "void " % printName n
+printFunDef (ProcDef attrs n as ss) =
+    printString (if faStatic attrs then "static " else "")
+    % printString "void " % printName n
     % printString "("
     % intercalates ", " [printType t % printString " " % printName an | (t, an) <- as]
     % printString ") " % printBlock ss % printString "\n"