arx 0.2.0 → 0.2.1
raw patch · 13 files changed
+25/−41 lines, 13 files
Files
- README +2/−1
- System/Posix/ARX/BlazeIsString.hs +0/−12
- System/Posix/ARX/CLI.hs +1/−1
- System/Posix/ARX/CLI/CLTokens.hs +4/−3
- System/Posix/ARX/CLI/Options.hs +3/−3
- System/Posix/ARX/HEREDat.hs +0/−2
- System/Posix/ARX/Programs.hs +0/−1
- System/Posix/ARX/Sh.hs +0/−2
- System/Posix/ARX/TMPXTools.hs +0/−2
- arx.cabal +1/−2
- arx.hs +9/−9
- docs/blessed/arx.man +3/−2
- docs/blessed/arx.txt +2/−1
README view
@@ -1,5 +1,6 @@ SYNOPSIS- arx ... (-h|-[?]|--help)? ...+ arx (-h | -[?] | --help)+ arx (-v | --version) arx shdat (-b <size>)? (-o <output file>)? < input arx shdat (-b <size>)? (-o <output file>)? <input file>+ arx tmpx <option,archive>* (//+ <command> (//+ <option,archive>*)?)?
− System/Posix/ARX/BlazeIsString.hs
@@ -1,12 +0,0 @@--module System.Posix.ARX.BlazeIsString where--import Data.String--import qualified Blaze.ByteString.Builder as Blaze-import qualified Blaze.ByteString.Builder.Char8 as Blaze---instance IsString Blaze.Builder where- fromString = Blaze.fromString-
System/Posix/ARX/CLI.hs view
@@ -17,7 +17,7 @@ import Data.Ord import Data.Word import System.Environment-import System.Exit+import System.Exit (exitFailure) import System.IO import qualified Blaze.ByteString.Builder as Blaze
System/Posix/ARX/CLI/CLTokens.hs view
@@ -16,9 +16,10 @@ import Data.Map (Map) import qualified Data.Map as Map -import Data.Attoparsec.Char8 ( char8, choice, decimal, endOfInput, inClass,- isDigit, parseOnly, Parser, satisfy, string,- takeWhile, takeWhile1, try )+import Data.Attoparsec.ByteString.Char8 ( char8, choice, decimal, endOfInput,+ inClass, isDigit, parseOnly, Parser,+ satisfy, string, takeWhile,+ takeWhile1, try ) {-| Non-overlapping classes of command line argument strings.
System/Posix/ARX/CLI/Options.hs view
@@ -16,7 +16,7 @@ import Data.Word import Text.Parsec hiding (satisfy, (<|>)) -import qualified Data.Attoparsec+import qualified Data.Attoparsec.ByteString as Attoparsec import System.Posix.ARX.CLI.CLTokens (Class(..)) import qualified System.Posix.ARX.CLI.CLTokens as CLTokens@@ -145,9 +145,9 @@ where next pos _ _ = incSourceLine pos 1 -(<@>) :: Data.Attoparsec.Parser t -> ArgsParser ByteString -> ArgsParser t+(<@>) :: Attoparsec.Parser t -> ArgsParser ByteString -> ArgsParser t atto <@> parsec = do- res <- Data.Attoparsec.parseOnly atto <$> parsec+ res <- Attoparsec.parseOnly atto <$> parsec case res of Left _ -> mzero Right x -> return x infixl 4 <@>
System/Posix/ARX/HEREDat.hs view
@@ -26,8 +26,6 @@ import qualified Blaze.ByteString.Builder.Char8 as Blaze import qualified Data.ByteString.Nums.Careless as Bytes -import System.Posix.ARX.BlazeIsString- {-| A chunk describes a block of binary data ready for inclusion in a shell script. For many data blocks, no encoding or decoding is necessary; these
System/Posix/ARX/Programs.hs view
@@ -16,7 +16,6 @@ import qualified Blaze.ByteString.Builder as Blaze -import System.Posix.ARX.BlazeIsString -- Most string literals are builders. import System.Posix.ARX.HEREDat import qualified System.Posix.ARX.Sh as Sh import qualified System.Posix.ARX.TMPXTools as TMPXTools
System/Posix/ARX/Sh.hs view
@@ -14,8 +14,6 @@ import qualified Blaze.ByteString.Builder as Blaze import qualified Text.ShellEscape as Esc -import System.Posix.ARX.BlazeIsString- setEU :: Blaze.Builder setEU = "set -e -u\n"
System/Posix/ARX/TMPXTools.hs view
@@ -14,8 +14,6 @@ import qualified Blaze.ByteString.Builder as Blaze import Data.FileEmbed -import System.Posix.ARX.BlazeIsString- data Template = Template { rm0 :: Bool, {-^ Remove tmp on run success? -} rm1 :: Bool, {-^ Remove tmp on run error? -}
arx.cabal view
@@ -1,5 +1,5 @@ name : arx-version : 0.2.0+version : 0.2.1 category : Text license : BSD3 license-file : LICENSE@@ -53,7 +53,6 @@ , docs/blessed/arx.man , docs/blessed/arx.txt , model-scripts/tmpx.sh- , System/Posix/ARX/BlazeIsString.hs source-repository head type : git
arx.hs view
@@ -16,16 +16,16 @@ main :: IO () main = do- helpFlag <- checkHelp- if helpFlag then sendHelp- else System.Posix.ARX.CLI.main---checkHelp = any (`elem` ["-h", "-?", "--help"]) <$> getArgs+ flags <- (,) <$> checkHelp <*> checkVersion+ case flags of (True, _) -> Data.ByteString.putStr usage >> exitSuccess+ (_, True) -> Data.ByteString.putStr version >> exitSuccess+ (_, _) -> System.Posix.ARX.CLI.main -txt = $(embedFile "./docs/blessed/arx.txt")+checkHelp = checkOne ["-h", "-?", "--help"]+checkVersion = checkOne ["-v", "--version"]+checkOne list = any (`elem` list) . take 1 <$> getArgs -sendHelp = do Data.ByteString.putStr txt- exitSuccess+usage = $(embedFile "./docs/blessed/arx.txt")+version = $(embedFile "./version")
docs/blessed/arx.man view
@@ -1,4 +1,4 @@-.TH "ARX" "1" "2012-10-29" "0.2.0" "arx"+.TH "ARX" "1" "2012-11-20" "0.2.0" "arx" .SH NAME arx \- archived execution .@@ -34,7 +34,8 @@ .sp .nf .ft C-arx ... (\-h|\-[?]|\-\-help)? ...+arx (\-h | \-[?] | \-\-help)+arx (\-v | \-\-version) arx shdat (\-b <size>)? (\-o <output file>)? < input arx shdat (\-b <size>)? (\-o <output file>)? <input file>+ arx tmpx <option,archive>* (//+ <command> (//+ <option,archive>*)?)?
docs/blessed/arx.txt view
@@ -1,5 +1,6 @@ SYNOPSIS- arx ... (-h|-[?]|--help)? ...+ arx (-h | -[?] | --help)+ arx (-v | --version) arx shdat (-b <size>)? (-o <output file>)? < input arx shdat (-b <size>)? (-o <output file>)? <input file>+ arx tmpx <option,archive>* (//+ <command> (//+ <option,archive>*)?)?