From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Fri, 13 Feb 2009 11:28:36 +0000 (+0100)
Subject: Generate VHDL entity declarations.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=d347b7fdac3421817da5d1f571c0837fdbd28127;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Generate VHDL entity declarations.

These declarations are still without ports and with a name that might not
be unique, though.
---

diff --git a/VHDL.hs b/VHDL.hs
index 9562377..0387327 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -37,7 +37,8 @@ createEntity hsfunc fdata =
         r       = res  flatfunc
         args'   = map (fmap (mkMap s)) a
         res'    = fmap (mkMap s) r
-        entity' = Entity args' res' Nothing
+        ent_decl' = createEntityAST hsfunc args' res'
+        entity' = Entity args' res' (Just ent_decl')
       in
         fdata { entity = Just entity' }
   where
@@ -51,9 +52,24 @@ createEntity hsfunc fdata =
         nm = Maybe.fromMaybe
           (error $ "Signal not named? This should not happen!")
           (name info)
-      
 
+-- | Create the VHDL AST for an entity
+createEntityAST ::
+  HsFunction            -- | The signature of the function we're working with
+  -> [VHDLSignalMap]    -- | The entity's arguments
+  -> VHDLSignalMap      -- | The entity's result
+  -> AST.EntityDec      -- | The entity with the ent_decl filled in as well
+
+createEntityAST hsfunc args res =
+  AST.EntityDec vhdl_id ports
+  where
+    vhdl_id = mkEntityId hsfunc
+    ports = []
 
+-- | Generate a VHDL entity name for the given hsfunc
+mkEntityId hsfunc =
+  -- TODO: This doesn't work for functions with multiple signatures!
+  mkVHDLId $ hsFuncName hsfunc
 
 
 -- | The VHDL Bit type