From 998e440a7fa765685e1ed500c871058a33129b1f Mon Sep 17 00:00:00 2001
From: Christiaan Baaij <christiaan.baaij@gmail.com>
Date: Fri, 19 Jun 2009 10:26:52 +0200
Subject: [PATCH] Cabalized clash

---
 .gitignore           |  1 +
 Main.hs              |  6 ++++++
 Translator.hs        |  4 ++--
 VHDL.hs              |  3 +++
 VHDLTypes.hs         |  3 +++
 "c\316\273ash.cabal" | 21 +++++++++++++++++++++
 6 files changed, 36 insertions(+), 2 deletions(-)
 create mode 100644 Main.hs
 create mode 100644 "c\316\273ash.cabal"

diff --git a/.gitignore b/.gitignore
index 31ab9cc..eefec2f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
 *.hi
 *.o
 *.swp
+dist
diff --git a/Main.hs b/Main.hs
new file mode 100644
index 0000000..be0a0a0
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,6 @@
+module Main where
+
+import Translator
+
+main = do
+  makeVHDL "Alu.hs" "exec" True
\ No newline at end of file
diff --git a/Translator.hs b/Translator.hs
index 1ce9307..550b4f0 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -48,8 +48,8 @@ import FlattenTypes
 import VHDLTypes
 import qualified VHDL
 
-main = do
-  makeVHDL "Alu.hs" "exec" True
+-- main = do
+--   makeVHDL "Alu.hs" "exec" True
 
 makeVHDL :: String -> String -> Bool -> IO ()
 makeVHDL filename name stateful = do
diff --git a/VHDL.hs b/VHDL.hs
index b8fcab1..c563504 100644
--- a/VHDL.hs
+++ b/VHDL.hs
@@ -34,6 +34,9 @@ import TranslatorTypes
 import HsValueMap
 import Pretty
 import CoreTools
+import Constants
+import Generate
+import GlobalNameTable
 
 createDesignFiles ::
   FlatFuncMap
diff --git a/VHDLTypes.hs b/VHDLTypes.hs
index 3301082..a5d1569 100644
--- a/VHDLTypes.hs
+++ b/VHDLTypes.hs
@@ -47,6 +47,9 @@ type TypeMap = Map.Map OrdType (AST.VHDLId, AST.TypeDec)
 -- A map of a Haskell function to a hardware signature
 type SignatureMap = Map.Map HsFunction Entity
 
+-- A map of a builtin function to VHDL function builder 
+type NameTable = Map.Map String (Int, [AST.Expr] -> AST.Expr )
+
 data VHDLSession = VHDLSession {
   -- | A map of Core type -> VHDL Type
   vsTypes_ :: TypeMap,
diff --git "a/c\316\273ash.cabal" "b/c\316\273ash.cabal"
new file mode 100644
index 0000000..798b281
--- /dev/null
+++ "b/c\316\273ash.cabal"
@@ -0,0 +1,21 @@
+name:                clash
+version:             0.1
+build-type:          Simple
+synopsis:            CAES Languege for Hardware Descriptions (CλasH)
+description:         CλasH is a toolchain/language to translate subsets of Haskell to synthesizable VHDL. It does this by translating the intermediate System Fc (GHC Core) representation to a VHDL AST, which is then written to file.
+category:            Development
+license:             BSD3
+license-file:        LICENSE
+package-url:         http://github.com/darchon/clash/tree/master
+copyright:           Copyright (c) 2009 Christiaan Baaij & Matthijs Kooijman
+author:              Christiaan Baaij & Matthijs Kooijman
+stability:           alpha
+maintainer:          christiaan.baaij@gmail.com & matthijs@stdin.nl
+build-depends:       base > 4, syb, ghc, ghc-paths, transformers, haskell98,
+                     ForSyDe, regex-posix ,data-accessor-template, pretty,
+                     data-accessor, containers, prettyclass, tfp > 0.3, 
+                     tfvec, QuickCheck, template-haskell
+
+executable:          clash
+main-is:             Main.hs     
+ghc-options:         
-- 
2.30.2