first commit

Author: paf31

.bowerrc

@@ -0,0 +1,3 @@
+{
+  "directory": "bower_components"
+}

.gitignore

@@ -0,0 +1,7 @@
+.*
+!/.bowerrc
+!/.gitignore
+/output/
+/node_modules/
+/bower_components/
+/tmp/

Gruntfile.js

@@ -0,0 +1,28 @@
+module.exports = function(grunt) {
+
+  "use strict";
+
+  grunt.initConfig({ 
+  
+    libFiles: [
+      "src/**/*.purs",
+      "bower_components/purescript-*/src/**/*.purs"
+    ],
+    
+    clean: ["output"],
+  
+    pscMake: {
+      lib: {
+        src: ["<%=libFiles%>"]
+      }
+    },
+
+    dotPsci: ["<%=libFiles%>"]
+  });
+
+  grunt.loadNpmTasks("grunt-contrib-clean");
+  grunt.loadNpmTasks("grunt-purescript");
+ 
+  grunt.registerTask("make", ["pscMake:lib", "dotPsci"]);
+  grunt.registerTask("default", ["clean", "make"]);
+};

LICENSE-MIT

@@ -0,0 +1,22 @@
+Copyright (c) 2014 Phil Freeman
+
+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.

README.md

@@ -0,0 +1,11 @@
+# purescript-unfoldable
+
+Unfoldable Functors
+
+## Building
+
+```
+npm install
+bower update
+grunt
+```

bower.json

@@ -0,0 +1,25 @@
+{
+  "name": "purescript-unfoldable",
+  "description": "Unfoldable Functors",
+  "keywords": ["purescript"],
+  "ignore": [
+    "**/.*",
+    "bower_components",
+    "node_modules",
+    "output",
+    "tests",
+    "js",
+    "tmp",
+    "bower.json",
+    "Gruntfile.js",
+    "package.json"
+  ],
+  "dependencies": {
+    "purescript-arrays"               : "*",
+    "purescript-tuples"               : "*",
+    "purescript-maybe"                : "*"
+  },
+  "devDependencies": {
+    "purescript-quickcheck"           : "*"
+  }
+}

js/index.js

@@ -0,0 +1 @@
+require("Main").main();

package.json

@@ -0,0 +1,14 @@
+{
+  "name": "purescript-unfoldable",
+  "version": "0.1.0",
+  "description": "Unfoldable Functors",
+  "main": "",
+  "private": true,
+  "author": "Phil Freeman",
+  "license": "MIT",
+  "dependencies": {
+    "grunt": "~0.4.4",
+    "grunt-contrib-clean": "~0.5.0",
+    "grunt-purescript": "~0.5.0"
+  }
+}

src/Data/Unfoldable.purs

@@ -0,0 +1,25 @@
+module Data.Unfoldable where
+
+import Data.Maybe
+import Data.Tuple
+import Data.Function
+
+class Unfoldable t where
+  unfoldr :: forall a b. (b -> Maybe (Tuple a b)) -> b -> t a
+ 
+foreign import unfoldrArray 
+  "function unfoldrArray(f, b) {\
+  \  var result = [];\
+  \  while (true) {\
+  \    var maybe = f(b);\
+  \    if (maybe.ctor === \"Data.Maybe.Nothing\") {\
+  \      return result;\
+  \    } else if (maybe.ctor === \"Data.Maybe.Just\") {\
+  \      result.push(maybe.values[0].values[0]);\
+  \      b = maybe.values[0].values[1];\
+  \    }\
+  \  }\
+  \}" :: forall a b. Fn2 (b -> Maybe (Tuple a b)) b [a]
+
+instance unfoldableArray :: Unfoldable [] where
+  unfoldr = runFn2 unfoldrArray