@@ -1,8 +1,38 @@ {-# LANGUAGE DeriveDataTypeable #-} module Main where import System.Console.CmdArgs +import Control.Applicative hiding (empty) +import System.Environment +import SrtParser -data HSub = Shift {seconds :: Double, input :: FilePath, out :: FilePath} +main :: IO () +main = do + n <- getProgName + m <- cmdArgs "HSub v1, (C) Jean-Nicolas Jolivet 2009" [shift] + v <- verbosity + runapp m v + +data AppSettings = AppSettings { appMode :: HSubMode + , appVerb :: Verbosity + } deriving Show + +data Verbosity = Quiet | Normal | Verbose + deriving (Show, Eq, Ord, Enum) + + +runapp :: HSubMode -> Verbosity -> IO () +runapp (Shift sec inf outf) v = do + print ("Running shift! In:" ++ inf ++ " Out: " ++ outf) + + + +verbosity :: IO Verbosity +verbosity = do + norm <- fromEnum <$> isNormal + loud <- fromEnum <$> isLoud + return $ toEnum $ norm + loud + +data HSubMode = Shift {seconds :: Double, input :: FilePath, out :: FilePath} deriving (Data,Typeable,Show) shift = mode $ Shift @@ -11,4 +41,3 @@ shift = mode $ Shift ,out = "out.srt" &= typ "OUTPUTFILE" & text "Output file" & typFile & argPos 2 } &= prog "shift" & text "usage: HSub shift [FLAGS] seconds inputfile outputfile" -main = print =<< cmdArgs "HSub v1, (C) Jean-Nicolas Jolivet 2009" [shift] \ No newline at end of file HSub.hs @@ -1,4 +1,4 @@ -module Main where +module SrtParser where {- A module that parses SubRip subtitle files (.srt) files that looks like this: SrtParser.hs 9b189d9caa9481a914b84cb6b597580391d94958 Jean-Nicolas Jolivet silvertab@Jean-Nicolas-Jolivets-iMac.local http://github.com/SilverTab/HSubParser/commit/31266e66f8ba31aa79de5e90b326a284bbb11d86 31266e66f8ba31aa79de5e90b326a284bbb11d86 2009-10-12T23:07:58-07:00 2009-10-12T23:07:58-07:00 Starting on proper command line module 2e5a01a1bfc29cba5e2683f7e02c053a63bd5a4a Jean-Nicolas Jolivet silvertab@Jean-Nicolas-Jolivets-iMac.local