add gulpfile and installation instructions

Author: sharkdp

README.md

@@ -7,3 +7,11 @@ by [Peter Olson](https://github.com/peterolson).
 ## Module documentation
 
 - [Data.BigInt](docs/Data/BigInt.md)
+
+## Installation
+
+```
+npm install
+bower install
+gulp
+```

bower.json

@@ -10,7 +10,10 @@
     "**/.*",
     "node_modules",
     "bower_components",
-    "output"
+    "output",
+    "test",
+    "gulpfile.js",
+    "package.json"
   ],
   "dependencies": {
     "purescript-maybe": "^0.3.2"

gulpfile.js

@@ -0,0 +1,56 @@
+/* jshint node: true */
+
+"use strict";
+
+var gulp = require("gulp");
+var purescript = require("gulp-purescript");
+var run = require("gulp-run");
+var rimraf = require("rimraf");
+
+var sources = [
+  "src/**/*.purs",
+  "test/**/*.purs",
+  "bower_components/purescript-*/src/**/*.purs"
+];
+
+var foreigns = [
+  "src/**/*.js",
+  "bower_components/purescript-*/src/**/*.js"
+];
+
+gulp.task("clean-docs", function (cb) {
+  rimraf("docs", cb);
+});
+
+gulp.task("clean-output", function (cb) {
+  rimraf("output", cb);
+});
+
+gulp.task("clean", ["clean-docs", "clean-output"]);
+
+gulp.task("make", function() {
+  return purescript.psc({
+    src: sources,
+    ffi: foreigns,
+    output: "output"
+  });
+});
+
+gulp.task("docs", ["clean-docs"], function () {
+  return purescript.pscDocs({
+    src: sources,
+    docgen: {
+      "Data.BigInt": "docs/Data/BigInt.md"
+    }
+  });
+});
+
+gulp.task("test", ["make"], function() {
+  return purescript.pscBundle({
+    src: ['output/**/*.js', 'node_modules/big-integert/BigInteger.min.js'],
+    main: 'Test.Main'
+  })
+  .pipe(run("node"));
+});
+
+gulp.task("default", ["make", "docs", "test"]);

package.json

@@ -1,7 +1,10 @@
 {
   "name": "purescript-bigints",
-  "version": "0.1.0",
   "dependencies": {
-    "big-integer": "^1.5.5"
+    "big-integer": "^1.5.5",
+    "gulp": "^3.9.0",
+    "gulp-purescript": "^0.5.0",
+    "gulp-run": "^1.6.10",
+    "rimraf": "^2.4.2"
   }
 }

runtests.sh

@@ -62,14 +62,17 @@ main = do
   testBinary mod mod
   testBinary div div
 
+  log "It should perform multiplications which would lead to imprecise results using Number"
+  assert $ Just (fromInt 333190782 * fromInt 1103515245) == fromString "367681107430471590"
+
   -- To check the multiplication, we need to make sure that the Int does not overflow
   quickCheck (\x y -> fromSmallInt x * fromSmallInt y == fromInt (runSmallInt x * runSmallInt y))
 
   log "compare and (==) should be the same before and after converting to BigInt"
   quickCheck (\x y -> compare x y == compare (fromInt x) (fromInt y))
   quickCheck (\x y -> (fromSmallInt x == fromSmallInt y) == (runSmallInt x == runSmallInt y))
 
-  log $ "pow should perform integer exponentiation and yield 0 for negative exponents"
+  log "pow should perform integer exponentiation and yield 0 for negative exponents"
   assert $ three `pow` four == fromInt 81
   assert $ three `pow` -two == zero
   assert $ three `pow` zero == one