1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
var cp = require('child_process')
, path = require('path')
, fs = require('fs')
, glob = require('glob')
, lodash = require('lodash')
, chalk = require('chalk')
, lu = require('loader-utils')
, cwd = process.cwd()
, MODULE_RE = /^module\s+([\w\.]+)\s+/i
, BOWER_PATTERN = path.join('bower_components', 'purescript-*', 'src')
, PSC_MAKE = 'psc-make'
, OUTPUT = 'output'
, OPTIONS = {
'no-prelude': '--no-prelude',
'no-opts': '--no-opts',
'no-magic-do': '--no-magic-do',
'no-tco': '--no-tco',
'verbose-errors': '--verbose-errors',
'output': '--output'
}
;
function pattern(root) {
var as = [ BOWER_PATTERN, root ];
return path.join('{' + as.join(',') + '}', '**', '*.purs');
}
module.exports = function(source){
var callback = this.async()
, request = lu.getRemainingRequest(this)
, root = path.dirname(path.relative(cwd, request))
, query = lu.parseQuery(this.query)
, opts = lodash.foldl(lodash.keys(query), function(acc, k){
var h = function(v){return acc.concat(query[k] && OPTIONS[k] ? [v] : []);}
if (k === OUTPUT) return h(OPTIONS[k] + '=' + query[k]);
else return h(OPTIONS[k]);
}, [])
;
glob(pattern(root), function(e, files){
if (e !== null) callback(e);
else {
var cmd = cp.spawn(PSC_MAKE, opts.concat(files));
cmd.on('close', function(e){
if (e) callback(e);
else {
var result = MODULE_RE.exec(source);
var module = result.length > 1 ? result[1] : '';
fs.readFile(path.join(query[OUTPUT] || OUTPUT, module, 'index.js'), 'utf-8', function(e, output){
if (e) callback(e);
else callback(e, output);
});
}
});
cmd.stdout.on('data', function(stdout){
console.log('Stdout from \'' + chalk.cyan(PSC_MAKE) + '\'\n' + chalk.magenta(stdout));
});
cmd.stderr.on('data', function(stderr){
console.log('Stderr from \'' + chalk.cyan(PSC_MAKE) + '\'\n' + chalk.magenta(stderr));
});
}
});
};
|
