Initial commit

Author: ethul

.gitignore

@@ -0,0 +1,3 @@
+.DS_Store
+*.log
+node_modules

.npmignore

@@ -0,0 +1,3 @@
+.DS_Store
+*.log
+node_modules

Fixture.purs.hs

@@ -0,0 +1,3 @@
+module Fixture where
+
+fixture = "fixture"

LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2014 Eric Thul
+
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of this software and associated documentation files (the
+"Software"), 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 @@
+# gulp-purescript

index.js

@@ -0,0 +1,114 @@
+'use strict';
+
+var gutil = require('gulp-util')
+  , through = require('through2')
+  , cp = require('child_process')
+  , PLUGIN = 'gulp-purescript'
+  , OPTIONS = {
+      psc: {
+        flags: {
+          noPrelude: '--no-prelude',
+          noOpts: '--no-opts',
+          noMagicDo: '--no-magic-do',
+          noTco: '--no-tco',
+          runtimeTypeChecks: '--runtime-type-checks',
+          main: '--main',
+          verboseErrors: '--verbose-errors'
+        }
+        , single: {browserNamespace: '--browser-namespace', externs: '--externs', main: '--main'}
+        , multi: {modules: '--module', codegen: '--codegen'}
+      },
+      pscMake: {
+        flags: {
+          noPrelude: '--no-prelude',
+          noOpts: '--no-opts',
+          noMagicDo: '--no-magic-do',
+          noTco: '--no-tco',
+          runtimeTypeChecks: '--runtime-type-checks',
+          verboseErrors: '--verbose-errors'
+        }
+        , single: {browserNamespace: '--browser-namespace'}
+        , multi: {}
+      }
+    }
+;
+
+function options(o, opts) {
+  return Object.keys(opts || {}).reduce(function(b, a){
+    if (a in o.flags && opts[a] === true) return b.concat([o.flags[a]]);
+    else if (a in o.single && typeof opts[a] === "string") return b.concat([o.single[a] + '=' + opts[a]]);
+    else if (a in o.multi) {
+      if (typeof opts[a] === "string") return b.concat([o.multi[a] + '=' + opts[a]]);
+      else {
+        return b.concat(opts[a].map(function(x){
+          return o.multi[a] + '=' + x;
+        }));
+      }
+    }
+    else return b;
+  }, []);
+}
+
+function acc(f) {
+  var files = [];
+  return through.obj(function(file, env, cb){
+    if (file.isNull()) {
+      this.push(file);
+      return cb();
+    }
+    if (file.isStream()) {
+      this.emit('error', new gutil.PluginError(PLUGIN, 'Streaming not supported'));
+      return cb();
+    }
+    files.push(file.path);
+    cb();
+  }, function(cb){f.apply(this, [files, cb]);});
+}
+
+function psc(opts) {
+  return acc(function(files, cb){
+    var args = files.concat(options(OPTIONS.psc, opts))
+      , cmd = cp.spawn('psc', args)
+      , buffer = new Buffer(0)
+      , that = this
+    ;
+    cmd.stdout.on('data', function(stdout){buffer = Buffer.concat([buffer, new Buffer(stdout)]);});
+    cmd.stderr.on('data', function(stderr){
+      gutil.log('Stderr from \'' + gutil.colors.cyan('psc') + '\'\n' + gutil.colors.magenta(stderr));
+    });
+    cmd.on('close', function(code){
+      if (!!code) that.emit('error', new gutil.PluginError(PLUGIN, buffer.toString()));
+      else {
+        that.push(new gutil.File({
+          path: 'psc.js',
+          contents: buffer
+        }));
+      }
+      cb();
+    });
+  });
+}
+
+function pscMake(opts) {
+  return acc(function(files, cb){
+    var args = options(OPTIONS.pscMake, opts).concat(files)
+      , cmd = cp.spawn('psc-make', args)
+      , that = this
+    ;
+    cmd.stdout.on('data', function(stdout){
+      gutil.log('Stdout from \'' + gutil.colors.cyan('psc-make') + '\'\n' + gutil.colors.magenta(stdout));
+    });
+    cmd.stderr.on('data', function(stderr){
+      gutil.log('Stderr from \'' + gutil.colors.cyan('psc-make') + '\'\n' + gutil.colors.magenta(stderr));
+    });
+    cmd.on('close', function(code){
+      if (!!code) that.emit('error', new gutil.PluginError(PLUGIN, 'psc-make has failed'));
+      cb();
+    });
+  });
+}
+
+module.exports = {
+  psc: psc,
+  pscMake: pscMake
+}

package.json

@@ -0,0 +1,26 @@
+{
+  "name": "gulp-purescript",
+  "description": "Run the PureScript compiler",
+  "version": "0.0.1",
+  "license": "MIT",
+  "repository": "ethul/gulp-purescript",
+  "author": {
+    "name": "Eric",
+    "email": "[email protected]"
+  },
+  "engineStrict": true,
+  "engines": {"node": ">=0.10"},
+  "files": ["index.js"],
+  "scripts": {"test": "mocha"},
+  "keywords": [
+    "gulpplugin",
+    "purescript"
+  ],
+  "dependencies": {
+    "through2": "^0.4.1",
+    "gulp-util": "^2.2.14"
+  },
+  "devDependencies": {
+    "mocha": "*"
+  }
+}

test.js

@@ -0,0 +1,32 @@
+'use strict';
+
+var gutil = require('gulp-util')
+  , assert = require('assert')
+  , fs = require('fs')
+  , purescript = require('./')
+;
+
+it('should compile purescript', function(cb){
+  var stream = purescript.psc({noPrelude: true})
+    , fixture = 'Fixture.purs.hs'
+  ;
+
+  stream.on('data', function(file){
+    assert(/Fixture/.test(file.contents.toString()));
+    cb();
+  });
+
+  fs.readFile(fixture, function(e, buffer){
+    if (e) cb(assert(false));
+    else {
+      stream.write(new gutil.File({
+        cwd: __dirname,
+        base: __dirname,
+        path: __dirname + '/' + fixture,
+        contents: buffer,
+        stat: {mtime: new Date()}
+      }));
+      stream.end();
+    }
+  });
+});