saving some work

1 files changed, 29 insertions, 7 deletions

diff --git a/c2haskell.hs b/c2haskell.hs
index d692558..847458c 100644
--- a/c2haskell.hs
+++ b/c2haskell.hs
@@ -522,6 +522,25 @@ setSetterBody name (CDeclExt (CDecl xs ys pos)) = (CFDefExt (CFunDef xs v [] (se
                 (Just y,_,_):_ -> y
                 _              -> CDeclr Nothing [] Nothing [] pos
 
+parameterIdent :: CDeclaration a -> Maybe Ident
+parameterIdent (CDecl _ xs n) = listToMaybe $ do
+    (Just (CDeclr (Just x) _ _ _ _),_,_) <- xs
+    return x
+
+makeParameterNames :: CDerivedDeclarator NodeInfo -> (CDerivedDeclarator NodeInfo,[CExpression NodeInfo])
+makeParameterNames (CFunDeclr (Right (CDecl rtyp ps n : ds, flg)) z2 z3)
+                = ( CFunDeclr (Right (CDecl rtyp qs n : ds, flg)) z2 z3 , [] )
+                                    -- FIXME: Each paramter gets its own CDecl.
+ where
+    qs = zipWith mkp [0..] ps
+    mkp num (Just (CDeclr Nothing              typ x ys z),a,b) =
+            (Just (CDeclr (Just $ mkidn num n) typ x ys z),a,b)
+    mkp num p = p
+
+
+mkidn :: Show a => a -> NodeInfo -> Ident
+mkidn num n = C.Ident ("a"++show num) 0 n
+
 voidp :: [CDerivedDeclarator NodeInfo]
 voidp = [ CFunDeclr
            (Right ( [ CDecl
@@ -532,14 +551,13 @@ voidp = [ CFunDeclr
                                      Nothing
                                      []
                                      n)
-                              , Nothing
-                              , Nothing
-                              )
-                            ]
-                            n
+                          , Nothing
+                          , Nothing
+                          )
                         ]
-                      , False
-                  ))
+                        n
+                     ]
+                  , False))
            []
            n]
      where n = undefNode
@@ -561,6 +579,8 @@ setterBody name =
               undefNode
 
 
+goMissing :: Show b =>
+                   Transpile [CExternalDeclaration b] -> String -> IO ()
 goMissing db cfun = do
       forM_ (Map.lookup cfun $ syms db) $ \si -> do
         forM_ (take 1 $ symbolSource si) $ \d -> do
@@ -600,6 +620,8 @@ goMissing db cfun = do
                     htyp -> putStr $ commented $ "Unsupported haskell type: " ++ HS.prettyPrint htyp
 
 
+readComments :: (Num lin, Num col) =>
+                      FilePath -> IO [(lin, col, [Char])]
 readComments fname = parseComments 1 1 <$> readFile fname
 
 findCloser :: (Num a4, Num a3, Num a2, Num a1, Eq a1) =>