diff --git a/CHANGELOG.md b/CHANGELOG.md new file mode 100644 --- /dev/null +++ b/CHANGELOG.md @@ -0,0 +1,7 @@ +# Change log + +DataIndex uses [Semantic Versioning][]. +The change log is available through the [releases on GitHub][]. + +[Semantic Versioning]: http://semver.org/spec/v2.0.0.html +[releases on GitHub]: https://github.com/yuhangwang/DataIndex/releases diff --git a/DataIndex.cabal b/DataIndex.cabal new file mode 100644 --- /dev/null +++ b/DataIndex.cabal @@ -0,0 +1,74 @@ +-- This file has been generated from package.yaml by hpack version 0.14.0. +-- +-- see: https://github.com/sol/hpack + +name: DataIndex +version: 0.1.0 +synopsis: A package for adding index column to data files +description: DataIndex can add index column to data files +category: Data +homepage: https://github.com/yuhangwang/DataIndex#readme +bug-reports: https://github.com/yuhangwang/DataIndex/issues +maintainer: Yuhang(Steven) Wang +license: MIT +license-file: LICENSE.md +build-type: Simple +cabal-version: >= 1.10 + +extra-source-files: + CHANGELOG.md + LICENSE.md + package.yaml + README.md + stack.yaml + +source-repository head + type: git + location: https://github.com/yuhangwang/DataIndex + +library + hs-source-dirs: + library + ghc-options: -Wall + build-depends: + base + exposed-modules: + Data.Index + default-language: Haskell2010 + +executable DataIndex + main-is: Main.hs + hs-source-dirs: + executable + ghc-options: -Wall -rtsopts -threaded -with-rtsopts=-N + build-depends: + base >= 4 && < 5 + , DataIndex + default-language: Haskell2010 + +test-suite DataIndex-test-suite + type: exitcode-stdio-1.0 + main-is: Main.hs + hs-source-dirs: + test-suite + ghc-options: -Wall -rtsopts -threaded -with-rtsopts=-N + build-depends: + base + , DataIndex + , tasty + , tasty-hspec + other-modules: + Spec_addTime + default-language: Haskell2010 + +benchmark DataIndex-benchmarks + type: exitcode-stdio-1.0 + main-is: Main.hs + hs-source-dirs: + benchmark + ghc-options: -Wall -rtsopts -threaded -with-rtsopts=-N + build-depends: + base + , DataIndex + , criterion + default-language: Haskell2010 diff --git a/LICENSE.md b/LICENSE.md new file mode 100644 --- /dev/null +++ b/LICENSE.md @@ -0,0 +1,21 @@ +MIT License + +Copyright (c) 2016 Steven(Yuhang) Wang + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,2 @@ +# DataIndex +A Haskell package for adding index columns to data files diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,7 @@ +-- This script is used to build and install your package. Typically you don't +-- need to change it. The Cabal documentation has more information about this +-- file: . +import qualified Distribution.Simple + +main :: IO () +main = Distribution.Simple.defaultMain diff --git a/benchmark/Main.hs b/benchmark/Main.hs new file mode 100644 --- /dev/null +++ b/benchmark/Main.hs @@ -0,0 +1,6 @@ +-- You can benchmark your code quickly and effectively with Criterion. See its +-- website for help: . +import Criterion.Main + +main :: IO () +main = defaultMain [bench "const" (whnf const ())] diff --git a/executable/Main.hs b/executable/Main.hs new file mode 100644 --- /dev/null +++ b/executable/Main.hs @@ -0,0 +1,45 @@ +import Data.Index +import System.Environment +import System.Exit +import Data.List + +main :: IO () +main = do + args <- getArgs + exe args + +usage :: String +usage = "USAGE: DataIndex output.data input.dat" + +exe :: [String] -> IO () +exe [] = do + putStrLn usage + exitFailure + +exe [_] = do + putStrLn usage + exitFailure +exe [_,_] = do + putStrLn usage + exitFailure + +exe (output:input:time_unit:_) = do + content <- readFile input + let dat = loadData content + let unit = read time_unit :: Float + save output (addTime dat unit) + +loadData :: String -> [[Float]] +loadData content = fmap ((fmap read) . words) (lines content) + +array2str :: Show a => [[a]] -> String +array2str [] = "" +array2str array = aux array [] + where + aux :: Show a => [[a]] -> [String] -> String + aux [] accum = intercalate "\n" (reverse accum) + aux (x:xs) accum = aux xs ((unwords (map show x)):accum) + +save :: Show a => String -> [[a]] -> IO () +save output_file dat = do + writeFile output_file (array2str dat) diff --git a/library/Data/Index.hs b/library/Data/Index.hs new file mode 100644 --- /dev/null +++ b/library/Data/Index.hs @@ -0,0 +1,18 @@ +-- | Data.Index is a package for adding index column to data files +module Data.Index + ( hello + , addTime) where + +-- | say hello +hello :: String +hello = "Hello Data.Index!" + +-- | Add an time column +-- usage: addTime