From: Christiaan Baaij Date: Thu, 23 Jul 2009 19:14:19 +0000 (+0200) Subject: Add a clash wrapper that fills in the libdir from GHC.Paths X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=commitdiff_plain;h=5e301be676745136d49dbfbb166b5d4ea3d94d65 Add a clash wrapper that fills in the libdir from GHC.Paths --- diff --git "a/c\316\273ash-nolibdir/CLasH/Translator.hs" "b/c\316\273ash-nolibdir/CLasH/Translator.hs" new file mode 100644 index 0000000..77c1fe3 --- /dev/null +++ "b/c\316\273ash-nolibdir/CLasH/Translator.hs" @@ -0,0 +1,24 @@ +module CLasH.Translator where + +import qualified GHC.Paths +import qualified "clash" CLasH.Translator as Original (makeVHDL, makeVHDLAnn, listBindings, listBind) + +makeVHDL :: String -> String -> Bool -> IO () +makeVHDL filename name stateful = do + let libdir = GHC.Paths.libdir + Original.makeVHDL libdir filename name stateful + +makeVHDLAnn :: String -> IO () +makeVHDLAnn filename = do + let libdir = GHC.Paths.libdir + Original.makeVHDLAnn libdir filename + +listBindings :: String -> IO [()] +listBindings filename = do + let libdir = GHC.Paths.libdir + Original.listBindings libdir filename + +listBind :: String -> String -> IO () +listBind filename name = do + let libdir = GHC.Paths.libdir + Original.listBind libdir filename name diff --git "a/c\316\273ash-nolibdir/LICENSE" "b/c\316\273ash-nolibdir/LICENSE" new file mode 100644 index 0000000..23ebcfd --- /dev/null +++ "b/c\316\273ash-nolibdir/LICENSE" @@ -0,0 +1,25 @@ +Copyright (c) 2009 Christiaan Baaij & Matthijs Kooijman +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + * Neither the name of the copyright holder nor the + names of its contributors may be used to endorse or promote products + derived from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER ``AS IS'' AND ANY +EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR +BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, +WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE +OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN +IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. \ No newline at end of file diff --git "a/c\316\273ash-nolibdir/clash-nolibdir.cabal" "b/c\316\273ash-nolibdir/clash-nolibdir.cabal" new file mode 100644 index 0000000..a58db53 --- /dev/null +++ "b/c\316\273ash-nolibdir/clash-nolibdir.cabal" @@ -0,0 +1,23 @@ +name: clash-nolibdir +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 +Cabal-Version: >= 1.2 + +Library + build-depends: base > 4, clash, ghc-paths + extensions: PackageImports + exposed-modules: CLasH.Translator + \ No newline at end of file