3 const debug
= require('debug')('purs-loader')
4 const loaderUtils
= require('loader-utils')
5 const Promise
= require('bluebird')
6 const fs
= Promise
.promisifyAll(require('fs'))
7 const path
= require('path')
8 const jsStringEscape
= require('js-string-escape')
9 const PsModuleMap
= require('./PsModuleMap');
10 const Psc
= require('./Psc');
11 const PscIde
= require('./PscIde');
12 const dargs
= require('./dargs');
14 const requireRegex
= /require\(['"]\.\.\/([\w\.]+)['"]\)/g
16 module
.exports
= function purescriptLoader(source
, map
) {
17 const callback
= this.async()
18 const config
= this.options
19 const query
= loaderUtils
.parseQuery(this.query
)
20 const webpackOptions
= this.options
.purescriptLoader
|| {}
22 const options
= Object
.assign({
23 context: config
.context
,
26 pscBundle: 'psc-bundle',
29 pscIdeColors: webpackOptions
.psc
=== 'psa' || query
.psc
=== 'psa',
31 bundleOutput: 'output/bundle.js',
32 bundleNamespace: 'PS',
37 path
.join('src', '**', '*.purs'),
38 path
.join('bower_components', 'purescript-*', 'src', '**', '*.purs')
40 }, webpackOptions
, query
)
42 this.cacheable
&& this.cacheable()
44 let cache
= config
.purescriptLoaderCache
= config
.purescriptLoaderCache
|| {
50 if (!config
.purescriptLoaderInstalled
) {
51 config
.purescriptLoaderInstalled
= true
53 // invalidate loader cache when bundle is marked as invalid (in watch mode)
54 this._compiler
.plugin('invalid', () => {
55 debug('invalidating loader cache');
57 cache
= config
.purescriptLoaderCache
= {
58 rebuild: options
.pscIde
,
61 ideServer: cache
.ideServer
,
62 psModuleMap: cache
.psModuleMap
66 // add psc warnings to webpack compilation warnings
67 this._compiler
.plugin('after-compile', (compilation
, callback
) => {
68 if (options
.warnings
&& cache
.warnings
) {
69 compilation
.warnings
.unshift(`PureScript compilation:\n${cache.warnings}`)
73 compilation
.errors
.unshift(`PureScript compilation:\n${cache.errors}`)
80 const psModuleName
= PsModuleMap
.match(source
)
83 load: js
=> callback(null, js
),
84 reject: error
=> callback(error
),
85 srcPath: this.resourcePath
,
86 srcDir: path
.dirname(this.resourcePath
),
87 jsPath: path
.resolve(path
.join(options
.output
, psModuleName
, 'index.js')),
92 debug('loader called', psModule
.name
)
95 cache
.bundleModules
.push(psModule
.name
)
99 return PscIde
.connect(psModule
)
100 .then(PscIde
.rebuild
)
103 .catch(psModule
.reject
)
106 if (cache
.compilationFinished
) {
107 return toJavaScript(psModule
).then(psModule
.load
).catch(psModule
.reject
)
110 // We need to wait for compilation to finish before the loaders run so that
111 // references to compiled output are valid.
112 cache
.deferred
.push(psModule
)
114 if (!cache
.compilationStarted
) {
115 return Psc
.compile(psModule
)
116 .then(() => PsModuleMap
.makeMap(options
.src
).then(map
=> {
117 debug('rebuilt module map');
118 cache
.psModuleMap
= map
;
120 .then(() => Promise
.map(cache
.deferred
, psModule
=> {
121 if (typeof cache
.ideServer
=== 'object') cache
.ideServer
.kill()
122 return toJavaScript(psModule
).then(psModule
.load
)
125 cache
.deferred
[0].reject(error
)
126 cache
.deferred
.slice(1).forEach(psModule
=> psModule
.reject(true))
131 function updatePsModuleMap(psModule
) {
132 const options
= psModule
.options
133 const cache
= psModule
.cache
134 const filePurs
= psModule
.srcPath
135 if (!cache
.psModuleMap
) {
136 debug('module mapping does not exist');
137 return PsModuleMap
.makeMap(options
.src
).then(map
=> {
138 cache
.psModuleMap
= map
;
139 return cache
.psModuleMap
;
143 return PsModuleMap
.makeMapEntry(filePurs
).then(result
=> {
144 const map
= Object
.assign(cache
.psModuleMap
, result
)
145 cache
.psModuleMap
= map
;
146 return cache
.psModuleMap
;
151 // The actual loader is executed *after* purescript compilation.
152 function toJavaScript(psModule
) {
153 const options
= psModule
.options
154 const cache
= psModule
.cache
155 const bundlePath
= path
.resolve(options
.bundleOutput
)
156 const jsPath
= cache
.bundle
? bundlePath : psModule
.jsPath
158 debug('loading JavaScript for', psModule
.name
)
160 return Promise
.props({
161 js: fs
.readFileAsync(jsPath
, 'utf8'),
162 psModuleMap: updatePsModuleMap(psModule
)
166 if (options
.bundle
) {
167 // if bundling, return a reference to the bundle
168 js
= 'module.exports = require("'
169 + jsStringEscape(path
.relative(psModule
.srcDir
, options
.bundleOutput
))
170 + '")["' + psModule
.name
+ '"]'
172 // replace require paths to output files generated by psc with paths
173 // to purescript sources, which are then also run through this loader.
175 .replace(requireRegex
, (m
, p1
) => {
176 return 'require("' + jsStringEscape(result
.psModuleMap
[p1
].src
) + '")'
178 .replace(/require\(['"]\.\/foreign['"]\)/g, (m
, p1
) => {
179 return 'require("' + jsStringEscape(result
.psModuleMap
[psModule
.name
].ffi
) + '")'