main.hs

import System.Environment
import System.Posix.Files 
import System.Process
import Control.Applicative

-- local files
import Brain_cpp
import Brain_rb
import Brain_cs
import Brain_py
import Brain_java
import Brain_clj
import Brain_php
import Brain_go

main :: IO ()
main = do
    (i_file, o_file, mode) <- parseArg <$> getArgs
    bf <- readFile i_file
    writeFile o_file $ convert bf mode

{-
-- input file is @i_file
-- output file is @o_file
-}

{-
parseArg :: [String] -> (String, String)
parseArg ("-o" : o_file : i_file : []) = (i_file, o_file)
parseArg (i_file : "-o" : o_file : []) = (i_file, o_file)
parseArg (i_file : []) = ("", i_file)
-}
parseArg :: [String] -> (String, String, String)
parseArg (i_file : o_file : mode : []) = (i_file, o_file, mode)

get_extension :: String -> String
get_extension "" = ""
get_extension ('.':answer) = answer
get_extension (_:back) = get_extension back

convert :: String -> String -> String
convert bf "cpp" = Brain_cpp.create_program bf
convert bf "ruby" = Brain_rb.create_program bf
convert bf "csharp" = Brain_cs.create_program bf
convert bf "python" = Brain_py.create_program bf
convert bf "java" = Brain_java.create_program bf
convert bf "clojure" = Brain_clj.create_program bf
convert bf "php" = Brain_php.create_program bf
convert bf "go" = Brain_go.create_program bf