Initial commit

Author: newhoggy

.gitignore

@@ -1,5 +1,5 @@
 dist
-dist-*
+dist-newstyle
 cabal-dev
 *.o
 *.hi
@@ -14,6 +14,9 @@ cabal.sandbox.config
 *.prof
 *.aux
 *.hp
-*.eventlog
-.stack-work/
-cabal.project.local
+
+/*.submodules
+/.stack-work/
+/*.nix
+/*.nix.part
+/result

LICENSE

@@ -1,21 +1,30 @@
-MIT License
+Copyright John Ky (c) 2016
 
-Copyright (c) 2016 
+All rights reserved.
 
-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:
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
 
-The above copyright notice and this permission notice shall be included in all
-copies or substantial portions of the Software.
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
 
-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.
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Author name here nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

README.md

@@ -1 +1,4 @@
-# hw-nanoparsec
+# hw-string-parse
+[![CircleCI](https://circleci.com/gh/haskell-works/hw-string-parse/tree/0-branch.svg?style=svg)](https://circleci.com/gh/haskell-works/hw-string-parse/tree/0-branch)
+
+Simple parser combinator library for strings.

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

circle.yml

@@ -0,0 +1,33 @@
+machine:
+  post:
+    - curl https://nixos.org/nix/install | sh
+
+dependencies:
+  cache_directories:
+    - "~/.cabal"
+    - "~/.ghc"
+  pre:
+    - cp ./scripts/* ~/bin/
+  override:
+    # Fix to latest stable release
+    # - nox nix-channel --add https://nixos.org/channels/nixos-16.03/ nixpkgs
+    # - nox nix-channel --update
+    - nox when deps nix-mk
+    - nox when deps nix-deps
+
+test:
+  override:
+    - nox when build nix-build
+
+deployment:
+  release_branch:
+    owner: haskell-works
+    branch: /.*-branch/
+    commands:
+      - nox when tag autotag
+
+  hackage:
+    owner: haskell-works
+    tag: /v.*/
+    commands:
+      - nox when deploy nix-shell shell.nix --command publish

hw-string-parse.cabal

@@ -0,0 +1,41 @@
+name:                   hw-string-parse
+version:                0.0.0.1
+synopsis:               Conduits for tokenizing streams.
+description:            Please see README.md
+homepage:               http://github.com/haskell-works/hw-string-parse#readme
+license:                MIT
+license-file:           LICENSE
+author:                 John Ky
+maintainer:             [email protected]
+copyright:              2016 John Ky
+category:               Data, Bit
+stability:              Experimental
+build-type:             Simple
+extra-source-files:     README.md
+cabal-version:          >= 1.22
+
+library
+  hs-source-dirs:       src
+  exposed-modules:      HaskellWorks.Data.String.Parse
+  build-depends:        base                          >= 4          && < 5
+
+  default-language:     Haskell2010
+  ghc-options:          -Wall -O2 -msse4.2
+
+test-suite hw-string-parse-test
+  type:                 exitcode-stdio-1.0
+  hs-source-dirs:       test
+  main-is:              Spec.hs
+  other-modules:
+  build-depends:        base                          >= 4          && < 5
+                      , bytestring
+                      , hspec
+                      , hw-string-parse
+                      , QuickCheck
+                      , vector
+  ghc-options:          -threaded -rtsopts -with-rtsopts=-N -Wall
+  default-language:     Haskell2010
+
+source-repository head
+  type:     git
+  location: https://github.com/haskell-works/hw-string-parse

mafia

@@ -0,0 +1,121 @@
+#!/bin/sh -eu
+
+fetch_latest () {
+  if [ -z ${MAFIA_TEST_MODE+x} ]; then
+    TZ=$(date +"%T")
+    curl --silent "https://raw.githubusercontent.com/ambiata/mafia/master/script/mafia?$TZ"
+  else
+    cat ../script/mafia
+  fi
+}
+
+latest_version () {
+  git ls-remote https://github.com/ambiata/mafia | grep refs/heads/master | cut -f 1
+}
+
+local_version () {
+  awk '/^# Version: / { print $3; exit 0; }' $0
+}
+
+run_upgrade () {
+  MAFIA_TEMP=$(mktemp 2>/dev/null || mktemp -t 'upgrade_mafia')
+
+  clean_up () {
+    rm -f "$MAFIA_TEMP"
+  }
+
+  trap clean_up EXIT
+
+  MAFIA_CUR="$0"
+
+  if [ -L "$MAFIA_CUR" ]; then
+    echo 'Refusing to overwrite a symlink; run `upgrade` from the canonical path.' >&2
+    exit 1
+  fi
+
+  echo "Checking for a new version of mafia ..."
+  fetch_latest > $MAFIA_TEMP
+
+  LATEST_VERSION=$(latest_version)
+  echo "# Version: $LATEST_VERSION" >> $MAFIA_TEMP
+
+  if ! cmp $MAFIA_CUR $MAFIA_TEMP >/dev/null 2>&1; then
+    mv $MAFIA_TEMP $MAFIA_CUR
+    chmod +x $MAFIA_CUR
+    echo "New version found and upgraded. You can now commit it to your git repo."
+  else
+    echo "You have latest mafia."
+  fi
+}
+
+exec_mafia () {
+  MAFIA_VERSION=$(local_version)
+
+  if [ "x$MAFIA_VERSION" = "x" ]; then
+    # If we can't find the mafia version, then we need to upgrade the script.
+    run_upgrade
+  else
+    MAFIA_BIN=$HOME/.ambiata/mafia/bin
+    MAFIA_FILE=mafia-$MAFIA_VERSION
+    MAFIA_PATH=$MAFIA_BIN/$MAFIA_FILE
+
+    [ -f "$MAFIA_PATH" ] || {
+      # Create a temporary directory which will be deleted when the script
+      # terminates. Unfortunately `mktemp` doesn't behave the same on
+      # Linux and OS/X so we need to try two different approaches.
+      MAFIA_TEMP=$(mktemp -d 2>/dev/null || mktemp -d -t 'exec_mafia')
+
+      # Create a temporary file in MAFIA_BIN so we can do an atomic copy/move dance.
+      mkdir -p $MAFIA_BIN
+
+      clean_up () {
+        rm -rf "$MAFIA_TEMP"
+      }
+
+      trap clean_up EXIT
+
+      echo "Building $MAFIA_FILE in $MAFIA_TEMP"
+
+      ( cd "$MAFIA_TEMP"
+
+        git clone https://github.com/ambiata/mafia
+        cd mafia
+
+        git reset --hard $MAFIA_VERSION
+
+        bin/bootstrap ) || exit $?
+
+      MAFIA_PATH_TEMP=$(mktemp --tmpdir=$MAFIA_BIN $MAFIA_FILE-XXXXXX 2>/dev/null || TMPDIR=$MAFIA_BIN mktemp -t $MAFIA_FILE)
+
+      clean_up_temp () {
+        clean_up
+        rm -f "$MAFIA_PATH_TEMP"
+      }
+      trap clean_up_temp EXIT
+
+      cp "$MAFIA_TEMP/mafia/.cabal-sandbox/bin/mafia" "$MAFIA_PATH_TEMP"
+      chmod 755 "$MAFIA_PATH_TEMP"
+      mv "$MAFIA_PATH_TEMP" "$MAFIA_PATH"
+
+      clean_up_temp
+    }
+
+    exec $MAFIA_PATH "$@"
+  fi
+}
+
+#
+# The actual start of the script.....
+#
+
+if [ $# -gt 0 ]; then
+  MODE="$1"
+else
+  MODE=""
+fi
+
+case "$MODE" in
+upgrade) shift; run_upgrade "$@" ;;
+*) exec_mafia "$@"
+esac
+# Version: de245376fd86c1ec9a5a451f096cb79bc8ae68f7

packages.list

@@ -0,0 +1,46 @@
+#!/usr/bin/env bash
+
+if [ "$_system_type" == "Darwin" ]; then
+  sed () {
+    gsed "$@"
+  }
+fi
+
+_repo_name=$(basename `git rev-parse --show-toplevel`)
+
+_version=$(
+  cat $_repo_name.cabal | grep '^version:' | head | cut -d ':' -f 2 | xargs
+)
+
+_branch=$(git rev-parse --abbrev-ref HEAD)
+_branch_prefix=${_branch%-branch}
+
+if [[ "$_version" != "$_branch_prefix".* ]]; then
+  echo "The version $_version does not belong to the branch $_branch"
+  exit 1
+fi
+
+if [[ $(git ls-remote origin "refs/tags/v$_version") ]]; then
+  echo "The tag v$_version already exists.  Will not tag"
+  exit 0
+fi
+
+_commit=$(git rev-parse --verify HEAD)
+
+_release_data=$(cat <<EOF
+{
+  "tag_name": "v$_version",
+  "target_commitish": "$_commit",
+  "name": "v$_version",
+  "body": "New release",
+  "draft": false,
+  "prerelease": false
+}
+EOF
+)
+
+echo "Creating release v$_version from commit $_commit in branch $_branch"
+
+curl -H "Authorization: token $GITHUB_TOKEN" \
+  -X POST https://api.github.com/repos/$CIRCLE_PROJECT_USERNAME/$CIRCLE_PROJECT_REPONAME/releases \
+  --data "$_release_data"

scripts/autotag

@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+nix-shell -E '(import <nixpkgs> {}).haskellPackages.callPackage ./shell.nix {}' --run "echo Initialised dependencies"
+
+nix-env -i cabal-install "$@"

scripts/nix-deps

@@ -0,0 +1,57 @@
+#!/usr/bin/env bash
+
+repo_name="$(basename `git rev-parse --show-toplevel`)"
+ghc_attr_namever="ghc7103"
+
+nix-env -i cabal2nix
+
+cabal update
+
+cabal2nix . > "$repo_name".nix
+
+cat > default.nix <<EOF
+{ nixpkgs ? import <nixpkgs> {}, compiler ? "$ghc_attr_namever" }:
+nixpkgs.pkgs.haskell.packages.\${compiler}.callPackage ./$repo_name.nix { }
+EOF
+
+cat > shell.nix <<EOF
+{ nixpkgs ? import <nixpkgs> {}, compiler ? "$ghc_attr_namever" }:
+(import ./default.nix { inherit nixpkgs compiler; }).env
+EOF
+
+if [ "$CI" == "true" ]; then
+  config_nix=~/.nixpkgs/config.nix
+else
+  config_nix=~/.nixpkgs/config.nix.gen
+fi
+
+if [ -f packages.list ]; then
+  mkdir -p ~/.nixpkgs
+  rm -f package_config.nix.part
+  touch package_config.nix.part
+
+  for package in $(cat packages.list | grep -v "^$repo_name\$"); do
+    cabal2nix cabal://$package > $package.nix
+    package_version="$(cat $package.nix | grep '^ *version *=' | head -n 1 | cut -d = -f 2 | cut -d '"' -f 2)"
+    mv $package.nix ~/.nixpkgs/$package-$package_version.nix
+    echo "            $package = self.callPackage ./$package-$package_version.nix {};" >> package_config.nix.part
+    echo "            # $package = self.callPackage ~/wrk/haskell-works/hw-all/$package {};" >> package_config.nix.part
+  done
+
+  cat > "$config_nix" <<EOF
+{
+  packageOverrides = super: let self = super.pkgs; in
+  {
+    haskell = super.haskell // {
+      packages = super.haskell.packages // {
+        $ghc_attr_namever = super.haskell.packages.$ghc_attr_namever.override {
+          overrides = self: super: {
+  $(cat package_config.nix.part)
+          };
+        };
+      };
+    };
+  };
+}
+EOF
+fi