Reduce building of PureScript module map

Resolves #59 and resolves #60

1 files changed, 66 insertions, 0 deletions

diff --git a/src/PsModuleMap.js b/src/PsModuleMap.js
new file mode 100644
index 0000000..2193f02
--- /dev/null
+++ b/src/PsModuleMap.js
@@ -0,0 +1,66 @@
+'use strict';
+
+const path = require('path');
+
+const Promise = require('bluebird');
+
+const fs = Promise.promisifyAll(require('fs'));
+
+const globby = require('globby');
+
+const debug = require('debug')('purs-loader')
+
+const srcModuleRegex = /(?:^|\n)module\s+([\w\.]+)/i
+
+function match(str) {
+  const matches = str.match(srcModuleRegex);
+  return matches && matches[1];
+}
+module.exports.match = match;
+
+function makeMapEntry(filePurs) {
+  const dirname = path.dirname(filePurs);
+
+  const basename = path.basename(filePurs, '.purs');
+
+  const fileJs = path.join(dirname, `${basename}.js`);
+
+  const result = Promise.props({
+    filePurs: fs.readFileAsync(filePurs, 'utf8'),
+    fileJs: fs.readFileAsync(fileJs, 'utf8').catch(() => undefined)
+  }).then(fileMap => {
+    const sourcePurs = fileMap.filePurs;
+
+    const sourceJs = fileMap.fileJs;
+
+    const moduleName = match(sourcePurs);
+
+    const map = {};
+
+    map[moduleName] = map[moduleName] || {};
+
+    map[moduleName].src = path.resolve(filePurs);
+
+    if (sourceJs) {
+      map[moduleName].ffi = path.resolve(fileJs);
+    }
+
+    return map;
+  });
+
+  return result;
+}
+module.exports.makeMapEntry = makeMapEntry;
+
+function makeMap(src) {
+  debug('loading PureScript source and FFI files from %o', src);
+
+  const globs = [].concat(src);
+
+  return globby(globs).then(paths =>
+    Promise.all(paths.map(makeMapEntry)).then(result =>
+      result.reduce(Object.assign, {})
+    )
+  );
+}
+module.exports.makeMap = makeMap;