module Main
where

import Data.List

import System.Environment
import System.IO

part1	:: [String]
part1
    = [ "-- arch-tag: Haskell XML Toolbox main description file"
      , "name: hxt"
      ]

version	:: String
version
    = "version: "

part2	:: [String]
part2
    = [ "license: OtherLicense"
      , "license-file: LICENCE"
      , "maintainer: Uwe Schmidt <uwe@fh-wedel.de>"
      , "stability: stable"
      , "category: XML"
      , "synopsis: A collection of tools for processing XML with Haskell. "
      , "description:  The Haskell XML Toolbox bases on the ideas of HaXml and HXML," ++
	" but introduces a more general approach for processing XML with Haskell. The Haskell XML Toolbox" ++
	" uses a generic data model for representing XML documents, including the DTD subset and the document" ++
	" subset, in Haskell. It contains a validating XML parser, a HTML parser, namespace support," ++
	" an XPath expression evaluator, an XSLT library, a RelaxNG schema validator" ++
	" and funtions for serialization and deserialization of user defined data." ++
	" The libraray make extensive use of the arrow approach for processing XML."
      , "homepage: http://www.fh-wedel.de/~si/HXmlToolbox/index.html"
      , "copyright: Copyright (c) 2005-2008 Uwe Schmidt"
      ]

part3a	:: [String]
part3a
    = [ "tested-with: ghc-6.10.4"
      , "exposed: True"
      , "exposed-modules:"
      ]

part3b :: [String]
part3b
    = [ "build-type: Simple"
      , "cabal-version: >=1.6"
      , ""
      , "library"
      , " exposed-modules:"
      ]

part4a	:: String -> [String]
part4a dir
    = [ "hs-source-dirs: ."
      , "ghc-options: -Wall -fglasgow-exts"
      , "import-dirs: " ++ dir ++ "/imports"
      , "library-dirs: " ++ dir
      , "hs-libraries: HShxt"
      , "build-depends: base >= 4.0.0.0,"
      , "         haskell98 >= 1.0.1.0,"
      , "         bytestring >= 0.9.1.4,"
      , "         parallel >= 1.1.0.0,"
      , "         parsec >= 2.1.0.1,"
      , "         network >= 2.2.0.1,"
      , "         containers >= 0.2.0.0,"
      , "         directory >= 1.0.0.2,"
      , "         tagsoup >= 0.6,"
      , "         curl >= 1.3.3"
{-      , "depends: base-4.0.0.0,"
      , "         haskell98-1.0.1.0,"
      , "         bytestring-0.9.1.4,"
      , "         parallel-1.1.0.0,"
      , "         parsec-2.1.0.1,"
      , "         network-2.2.0.1,"
      , "         containers-0.2.0.0,"
      , "         directory-1.0.0.2,"
      , "         tagsoup-0.6,"
      , "         curl-1.3.3"
-}      ]

part4b :: [String]
part4b
    = [ " hs-source-dirs: src"
      , " ghc-options: -Wall"
      , " extensions: MultiParamTypeClasses DeriveDataTypeable FunctionalDependencies FlexibleInstances"
      , ""
      , " build-depends: base       >= 4 && < 5,"
      , "                haskell98  >= 1 && < 2,"
      , "                containers >= 0.1 && < 1,"
      , "                directory  >= 1 && < 2,"
      , "                filepath   >= 1 && < 2,"
      , "                parsec     >= 2.1 && < 4,"
      , "                HUnit      >= 1.2 && < 2,"
      , "                network    >= 2.1 && < 3,"
      , "                parallel   >= 1.0 && < 2,"
      , "                bytestring >= 0.9 && < 1,"
      , "                tagsoup    >= 0.6 && < 1,"
      , "                curl       >= 1.3 && < 2"
      ]

main	:: IO()
main
    = do
      vers : cabal : installdir : modules <- getArgs
      putStrLn (cabalFile vers cabal installdir modules)
      hFlush stdout

cabalFile	:: String -> String -> String -> [String] -> String
cabalFile vers cabal installdir modules
    = unlines $
      part1 ++
      [ version ++ vers ] ++
      part2 ++
      ( if isCabal
	then part3b
	else part3a
      ) ++
      [ml modules] ++
      ( if isCabal
	then part4b
	else part4a installdir
      )
    where
    isCabal = cabal == "cabal"
    ml = foldr1 (\ x y -> x ++ ",\n" ++ y) . sort . map editPath
    editPath = ("  " ++) . map slash2dot . reverse . drop 1 . dropWhile (/= '.') . reverse . removeLeadingDot
    slash2dot '/' = '.'
    slash2dot c   = c
    removeLeadingDot ('.':'/':path)	= path
    removeLeadingDot path		= path