csv-nptools 0.4.0 → 0.4.1

raw patch · 2 files changed

+75/−1 lines, 2 files

Files

• Utils.hs +68/−0
• csv-nptools.cabal +7/−1

@@ -0,0 +1,68 @@+module Utils where++import System.IO+import Database.TxtSushi.FlatFile+import Data.Char+-- import Debug.Trace++type Tbl = [[String]]++mapTable ::(Tbl -> Tbl) -> String -> String+mapTable f = formatTable csvFormat . f . parseTable csvFormat++padTbl :: a -> [[a]] -> [[a]]+padTbl _     [] = []+padTbl dflt  xss0@(xs0:_)+  = zipWith (padRow cols) [1::Int ..] $ xss0+  where cols = length xs0+        -- padRow = take cols (xs ++ repeat dflt)+        padRow 0 _ []      = []+        padRow 0 i _       = error $ "Row " ++ show i ++ " is too long"+        padRow n _ []      = replicate n dflt+        padRow n i (x:xs)  = x : padRow (n - 1) i xs++getContentsFromFileOrStdin :: FilePath -> IO String+getContentsFromFileOrStdin "-"  = hSetEncoding stdin latin1 >> getContents+getContentsFromFileOrStdin fp   = readFile fp++interactTable ::(Tbl -> Tbl) -> FilePath -> IO ()+interactTable f = (putStr . mapTable f =<<) . getContentsFromFileOrStdin++evalChar :: Char -> Char+evalChar 'a'   = '\a'+evalChar 'b'   = '\b'+evalChar 'f'   = '\f'+evalChar 'n'   = '\n'+evalChar 'r'   = '\r'+evalChar 't'   = '\t'+evalChar 'v'   = '\v'+evalChar x     = x++evalStr :: String -> String+evalStr ('\\':'0':'x':x:y:xs)  = chr (16 * digitToInt x + digitToInt y) : evalStr xs+evalStr ('\\':x:xs)            = evalChar x  : evalStr xs+evalStr (x:xs)                 = x           : evalStr xs+evalStr []                     = []++expandRanges :: String -> String+expandRanges (x:'-':y:zs)  = [x..y]++expandRanges zs+expandRanges (x:xs)        = x : expandRanges xs+expandRanges []            = []++addDefaultInput :: [String] -> [String]+addDefaultInput [] = ["-"]+addDefaultInput xs = xs++getInput :: String -> [String] -> String+getInput _ []  = "-"+getInput _ [x] = x+getInput d _   = d++substChar :: Eq a => a -> a -> (a -> a)+substChar s d x  | x == s     = d+                 | otherwise  = x++zipWith' :: [c] -> (a -> b -> c) -> [a] -> [b] -> [c]+zipWith' _ _ []     []     = []+zipWith' d f (x:xs) (y:ys) = f x y : zipWith' d f xs ys+zipWith' d _ _      _      = d

@@ -1,6 +1,6 @@ Name:           csv-nptools Cabal-Version:  >=1.4-Version:        0.4.0+Version:        0.4.1 License:        GPL Copyright:      (c) Nicolas Pouillard Author:         Nicolas Pouillard@@ -20,28 +20,34 @@     main-is: csv2json.hs     Build-depends: base>=3&&<5, txt-sushi, vector, bytestring, text, aeson     ghc-options: -Wall -Odph+    other-modules: Utils  executable csv-add-id     main-is: csv-add-id.hs     Build-depends: base>=3&&<5, txt-sushi     ghc-options: -Wall -Odph+    other-modules: Utils  executable csv-reformat     main-is: csv-reformat.hs     Build-depends: base>=3&&<5, txt-sushi     ghc-options: -Wall -Odph+    other-modules: Utils  executable csv-tr     main-is: csv-tr.hs     Build-depends: base>=3&&<5, txt-sushi     ghc-options: -Wall -Odph+    other-modules: Utils  executable csv-transpose     main-is: csv-transpose.hs     Build-depends: base>=3&&<5, txt-sushi     ghc-options: -Wall -Odph+    other-modules: Utils  executable csv-pad     main-is: csv-pad.hs     Build-depends: base>=3&&<5, txt-sushi     ghc-options: -Wall -Odph+    other-modules: Utils