------------------------------------------------------------------------------
--- This module implements tools to manage the central repository:
---
--- > cpm-manage add package.json: add this package to the central repository
--- > cpm-manage testall: test all packages of the central repository
---
------------------------------------------------------------------------------

module Manage(main) where

import CSV       ( readCSVFile )
import Directory ( copyFile, doesFileExist, doesDirectoryExist
                 , createDirectoryIfMissing )
import FilePath  ( (</>) )
import System    ( getArgs, exitWith, system )

import CPM.Config   (repositoryDir, readConfiguration)
import CPM.FileUtil (inTempDir)
import CPM.Package

main :: IO ()
main = do
  args <- getArgs
  case args of
    ["testall"]     -> testAllPackages
    ["add",pkgfile] -> addNewPackage pkgfile
    _               -> do putStrLn $ "Wrong arguments!\n\n" ++ helpText
                          exitWith 1

helpText :: String
helpText = unlines $
  [ "Options:", ""
  , "add package.json : add this package to the central repository"
  , "testall          : test all packages of the central repository"]

------------------------------------------------------------------------------
-- Run `cpm test` on all packages of the central repository
testAllPackages :: IO ()
testAllPackages = do
  system ("cpm list --all --csv > allpkgs.csv")
  allinfos <- readCSVFile "allpkgs.csv" >>= return . tail
  mapIO_ testPackage allinfos
  system "rm -f allpkgs.csv" >> done
 where
  testPackage pkginfo = case pkginfo of
    [name,_,version] -> do
      putStrLn $ unlines [dline, "Testing: " ++ name ++ " " ++ version, dline]
      let cmd = unwords [ "cpm","checkout",name,version,"&&"
                        , "cd", name++"-"++version, "&&"
                        , "cpm", "install", "&&"
                        , "cpm", "test", "&&"
                        , "cd ..", "&&", "rm -rf", name++"-"++version
                        ]
      putStrLn $ "CMD: " ++ cmd
      ecode <- system cmd
      when (ecode>0) $ error "ERROR OCCURED!!!"
    _ -> error $ "Illegal package info: " ++ show pkginfo

  dline = take 78 (repeat '=')

------------------------------------------------------------------------------
-- Add a new package where the name of the package description file
-- is given as a parameter.
addNewPackage :: String -> IO ()
addNewPackage pkgfile = do
  config <- readConfiguration >>= \c -> case c of
    Left err -> do
      putStrLn $ "Error reading .cpmrc file: " ++ err
      exitWith 1
    Right c' -> return c'
  expkgfile <- doesFileExist pkgfile
  unless expkgfile (error $ "Package file '" ++ pkgfile ++ "' does not exist!")
  pkgtxt <- readFile pkgfile
  let pkg = case readPackageSpec pkgtxt of
              Left err -> error err
              Right p  -> p
  let pkgName          = name pkg
      pkgVersion       = version pkg
      pkgLocalDir      = pkgName </> showVersion pkgVersion
      pkgCheckoutDir   = pkgName ++ "-" ++ showVersion pkgVersion
      pkgRepositoryDir = repositoryDir config </> pkgLocalDir
  expkgdir <- doesDirectoryExist pkgRepositoryDir
  when expkgdir (error $ "Package repository directory '" ++ pkgRepositoryDir ++
                         "' already exists!")
  putStrLn $ "Create directory: " ++ pkgRepositoryDir
  createDirectoryIfMissing True pkgRepositoryDir
  copyFile pkgfile (pkgRepositoryDir </> "package.json")
  putStrLn $ "Package repository directory '" ++ pkgRepositoryDir ++ "' added."
  let cmd = unwords ["cpm", "checkout", pkgName, showVersion pkgVersion, "&&"
                    , "cd", pkgCheckoutDir, "&&"
                    , "cpm", "install", "&&"
                    , "cpm", "test", "&&"
                    , "cd ..", "&&", "rm -rf", pkgCheckoutDir]
  putStrLn $ "\nChecking new package with command:\n" ++ cmd
  ecode <- inTempDir (system cmd)
  when (ecode>0) $ do
    system $ "rm -rf " ++ pkgRepositoryDir
    putStrLn "Unable to checkout, package deleted in repository directory!"
    exitWith 1
  putStrLn $ "\nEverything looks fine..."
  putStrLn $ "\nTo publish the new repository directory, run command:\n"
  putStrLn $ "cd " ++ repositoryDir config ++
             " && git add " ++ pkgLocalDir </> "package.json" ++
             " && git commit -m\"" ++ pkgLocalDir ++ " added\" " ++
             " && git push origin master"

------------------------------------------------------------------------------