{-# LANGUAGE CPP #-}

module Main where

import Control.Applicative

import Data.Char

import System.Directory

import System.Environment

import System.Exit

import System.FilePath

import System.Process

main = do

args <- getArgs

path <- getExecutablePath

cd <- getCurrentDirectory

let jsExe = dropExeExtension path <.> "jsexe"

script = jsExe </> "all" <.> "js"

node <- trim <$> readFile (jsExe </> "node")

ph <- runProcess node (script:args) (Just cd) Nothing Nothing Nothing Nothing

exitWith =<< waitForProcess ph

trim :: String -> String

trim = let f = reverse . dropWhile isSpace in f . f

dropExeExtension :: FilePath -> FilePath

dropExeExtension x

| not (null exeExtension) && map toLower (takeExtension x) == exeExtension

= dropExtension x

| otherwise = x

#if !MIN_VERSION_directory(1,2,4)

exeExtension :: String

#ifdef WINDOWS

exeExtension = ".exe"

exeExtension = ""