Merge branch 'topic/dot-psci-task'

Author: ethul

.gitignore

@@ -1,3 +1,4 @@
 .DS_Store
 *.log
+.psci
 node_modules

README.md

@@ -63,6 +63,11 @@ Invokes the `psc-make` command.
  - browserNamespace: String value that sets `--browser-namespace=<string>`
  - output: String value that sets `--output=<string>`
 
+### purescript.dotPsci()
+
+Generates a `.psci` file in the current directory. Each source file is
+added with the `:m` command.
+
 ### purescript.docgen(options)
 
 Invokes the `docgen` command.

index.js

@@ -4,7 +4,12 @@ var gutil = require('gulp-util')
   , through = require('through2')
   , lodash = require('lodash')
   , cp = require('child_process')
+  , fs = require('fs')
+  , path = require('path')
   , PLUGIN = 'gulp-purescript'
+  , DOTPSCI = '.psci'
+  , LOADM = ':m'
+  , CWD = process.cwd()
   , OPTIONS = {
       psc: {
         flags: {
@@ -121,6 +126,23 @@ function pscMake(opts) {
   });
 }
 
+function dotPsci(opts) {
+  var stream = 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();
+    }
+    this.push(new Buffer(LOADM + ' ' + path.relative(CWD, file.path) + '\n'));
+    cb();
+  });
+  stream.pipe(fs.createWriteStream(DOTPSCI));
+  return stream;
+}
+
 function docgen(opts) {
   return acc(function(files, cb){
     var args = options(OPTIONS.docgen, opts).concat(files)
@@ -146,6 +168,7 @@ function docgen(opts) {
 
 module.exports = {
   docgen: docgen,
+  dotPsci: dotPsci,
   psc: psc,
   pscMake: pscMake
 }

test.js

@@ -84,3 +84,29 @@ it('should fail to compile with an error message', function(cb){
     }
   });
 });
+
+it('should write a .psci file', function(cb){
+  var stream = purescript.dotPsci()
+    , fixture = 'Fixture1.purs'
+    , output = ':m ' + fixture + '\n'
+  ;
+
+  stream.on('data', function(line){
+    assert.equal(output, line.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();
+    }
+  });
+});