Name.hs

module Cabal2Nix.Name ( toNixName, libNixName, buildToolNixName ) where

import Data.Char

-- | Map Cabal names to Nix attribute names.
toNixName :: String -> String
toNixName []      = error "toNixName: empty string is not a valid argument"
toNixName name    = f name
  where
    f []                            = []
    f ('-':c:cs) | c `notElem` "-"  = toUpper c : f cs
    f ('-':_)                       = error ("unexpected package name " ++ show name)
    f (c:cs)                        = c : f cs

-- | Map libraries to Nix packages.
-- TODO: This should probably be configurable. We also need to consider the
-- possibility of name clashes with Haskell libraries. I have included
-- identity mappings to incicate that I have verified their correctness.
libNixName :: String -> [String]
libNixName "adns"               = return "adns"
libNixName "cairo-pdf"          = return "cairo"
libNixName "cairo-ps"           = return "cairo"
libNixName "cairo"              = return "cairo"
libNixName "cairo-svg"          = return "cairo"
libNixName "crypto"             = return "openssl"
libNixName "glib-2.0"           = return "glib"
libNixName "GL"                 = return "mesa"
libNixName "GLU"                = ["freeglut","mesa"]
libNixName "glut"               = ["freeglut","mesa"]
libNixName "gnome-keyring-1"    = return "gnome_keyring"
libNixName "gnome-keyring"      = return "gnome_keyring"
libNixName "gobject-2.0"        = return "glib"
libNixName "gthread-2.0"        = return "glib"
libNixName "gtk+-2.0"           = return "gtk"
libNixName "gtksourceview-2.0"  = return "gtksourceview"
libNixName "idn"                = return "idn"
libNixName "libglade-2.0"       = return "libglade"
libNixName "libidn"             = return "idn"
libNixName "librsvg-2.0"        = return "librsvg"
libNixName "libzip"             = return "libzip"
libNixName "m"                  = []  -- in stdenv
libNixName "pangocairo"         = return "pango"
libNixName "pcre"               = return "pcre"
libNixName "pq"                 = return "postgresql"
libNixName "sndfile"            = return "libsndfile"
libNixName "sqlite3"            = return "sqlite"
libNixName "stdc++"             = []  -- in stdenv
libNixName "X11"                = return "libX11"
libNixName "xft"                = return "libXft"
libNixName "Xrandr"             = return "libXrandr"
libNixName "z"                  = return "zlib"
libNixName x                    = return x

-- | Map build tool names to Nix attribute names.
buildToolNixName :: String -> [String]
buildToolNixName "cabal"                = return "cabalInstall"
buildToolNixName "gtk2hsC2hs"           = return "gtk2hsBuildtools"
buildToolNixName "gtk2hsHookGenerator"  = return "gtk2hsBuildtools"
buildToolNixName "gtk2hsTypeGen"        = return "gtk2hsBuildtools"
buildToolNixName x                      = return (toNixName x)