@jsenv/ast 6.9.2 → 6.10.0

package/src/js/async_to_promises/helpers-string.js

@@ -0,0 +1 @@
+export default '// A type of promise-like that resolves synchronously and supports only one observer\nexport const _Pact = /*#__PURE__*/(function() {\n\tfunction _Pact() {}\n\t_Pact.prototype.then = function(onFulfilled, onRejected) {\n\t\tconst result = new _Pact();\n\t\tconst state = this.s;\n\t\tif (state) {\n\t\t\tconst callback = state & 1 ? onFulfilled : onRejected;\n\t\t\tif (callback) {\n\t\t\t\ttry {\n\t\t\t\t\t_settle(result, 1, callback(this.v));\n\t\t\t\t} catch (e) {\n\t\t\t\t\t_settle(result, 2, e);\n\t\t\t\t}\n\t\t\t\treturn result;\n\t\t\t} else {\n\t\t\t\treturn this;\n\t\t\t}\n\t\t}\n\t\tthis.o = function(_this) {\n\t\t\ttry {\n\t\t\t\tconst value = _this.v;\n\t\t\t\tif (_this.s & 1) {\n\t\t\t\t\t_settle(result, 1, onFulfilled ? onFulfilled(value) : value);\n\t\t\t\t} else if (onRejected) {\n\t\t\t\t\t_settle(result, 1, onRejected(value));\n\t\t\t\t} else {\n\t\t\t\t\t_settle(result, 2, value);\n\t\t\t\t}\n\t\t\t} catch (e) {\n\t\t\t\t_settle(result, 2, e);\n\t\t\t}\n\t\t};\n\t\treturn result;\n\t}\n\treturn _Pact;\n})();\n\n// Settles a pact synchronously\nexport function _settle(pact, state, value) {\n\tif (!pact.s) {\n\t\tif (value instanceof _Pact) {\n\t\t\tif (value.s) {\n\t\t\t\tif (state & 1) {\n\t\t\t\t\tstate = value.s;\n\t\t\t\t}\n\t\t\t\tvalue = value.v;\n\t\t\t} else {\n\t\t\t\tvalue.o = _settle.bind(null, pact, state);\n\t\t\t\treturn;\n\t\t\t}\n\t\t}\n\t\tif (value && value.then) {\n\t\t\tvalue.then(_settle.bind(null, pact, state), _settle.bind(null, pact, 2));\n\t\t\treturn;\n\t\t}\n\t\tpact.s = state;\n\t\tpact.v = value;\n\t\tconst observer = pact.o;\n\t\tif (observer) {\n\t\t\tobserver(pact);\n\t\t}\n\t}\n}\n\nexport function _isSettledPact(thenable) {\n\treturn thenable instanceof _Pact && thenable.s & 1;\n}\n\n// Converts argument to a function that always returns a Promise\nexport function _async(f) {\n\treturn function() {\n\t\tfor (var args = [], i = 0; i < arguments.length; i++) {\n\t\t\targs[i] = arguments[i];\n\t\t}\n\t\ttry {\n\t\t\treturn Promise.resolve(f.apply(this, args));\n\t\t} catch(e) {\n\t\t\treturn Promise.reject(e);\n\t\t}\n\t}\n}\n\n// Awaits on a value that may or may not be a Promise (equivalent to the await keyword in ES2015, with continuations passed explicitly)\nexport function _await(value, then, direct) {\n\tif (direct) {\n\t\treturn then ? then(value) : value;\n\t}\n\tif (!value || !value.then) {\n\t\tvalue = Promise.resolve(value);\n\t}\n\treturn then ? value.then(then) : value;\n}\n\n// Awaits on a value that may or may not be a Promise, then ignores it\nexport function _awaitIgnored(value, direct) {\n\tif (!direct) {\n\t\treturn value && value.then ? value.then(_empty) : Promise.resolve();\n\t}\n}\n\n// Proceeds after a value has resolved, or proceeds immediately if the value is not thenable\nexport function _continue(value, then) {\n\treturn value && value.then ? value.then(then) : then(value);\n}\n\n// Proceeds after a value has resolved, or proceeds immediately if the value is not thenable\nexport function _continueIgnored(value) {\n\tif (value && value.then) {\n\t\treturn value.then(_empty);\n\t}\n}\n\n// Asynchronously iterate through an object that has a length property, passing the index as the first argument to the callback (even as the length property changes)\nexport function _forTo(array, body, check) {\n\tvar i = -1, pact, reject;\n\tfunction _cycle(result) {\n\t\ttry {\n\t\t\twhile (++i < array.length && (!check || !check())) {\n\t\t\t\tresult = body(i);\n\t\t\t\tif (result && result.then) {\n\t\t\t\t\tif (_isSettledPact(result)) {\n\t\t\t\t\t\tresult = result.v;\n\t\t\t\t\t} else {\n\t\t\t\t\t\tresult.then(_cycle, reject || (reject = _settle.bind(null, pact = new _Pact(), 2)));\n\t\t\t\t\t\treturn;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t}\n\t\t\tif (pact) {\n\t\t\t\t_settle(pact, 1, result);\n\t\t\t} else {\n\t\t\t\tpact = result;\n\t\t\t}\n\t\t} catch (e) {\n\t\t\t_settle(pact || (pact = new _Pact()), 2, e);\n\t\t}\n\t}\n\t_cycle();\n\treturn pact;\n}\n\n// Asynchronously iterate through an object\'s properties (including properties inherited from the prototype)\n// Uses a snapshot of the object\'s properties\nexport function _forIn(target, body, check) {\n\tvar keys = [];\n\tfor (var key in target) {\n\t\tkeys.push(key);\n\t}\n\treturn _forTo(keys, function(i) { return body(keys[i]); }, check);\n}\n\n// Asynchronously iterate through an object\'s own properties (excluding properties inherited from the prototype)\n// Uses a snapshot of the object\'s properties\nexport function _forOwn(target, body, check) {\n\tvar keys = [];\n\tfor (var key in target) {\n\t\tif (Object.prototype.hasOwnProperty.call(target, key)) {\n\t\t\tkeys.push(key);\n\t\t}\n\t}\n\treturn _forTo(keys, function(i) { return body(keys[i]); }, check);\n}\n\nexport const _iteratorSymbol = /*#__PURE__*/ typeof Symbol !== "undefined" ? (Symbol.iterator || (Symbol.iterator = Symbol("Symbol.iterator"))) : "@@iterator";\n\n// Asynchronously iterate through an object\'s values\n// Uses for...of if the runtime supports it, otherwise iterates until length on a copy\nexport function _forOf(target, body, check) {\n\tif (typeof target[_iteratorSymbol] === "function") {\n\t\tvar iterator = target[_iteratorSymbol](), step, pact, reject;\n\t\tfunction _cycle(result) {\n\t\t\ttry {\n\t\t\t\twhile (!(step = iterator.next()).done && (!check || !check())) {\n\t\t\t\t\tresult = body(step.value);\n\t\t\t\t\tif (result && result.then) {\n\t\t\t\t\t\tif (_isSettledPact(result)) {\n\t\t\t\t\t\t\tresult = result.v;\n\t\t\t\t\t\t} else {\n\t\t\t\t\t\t\tresult.then(_cycle, reject || (reject = _settle.bind(null, pact = new _Pact(), 2)));\n\t\t\t\t\t\t\treturn;\n\t\t\t\t\t\t}\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tif (pact) {\n\t\t\t\t\t_settle(pact, 1, result);\n\t\t\t\t} else {\n\t\t\t\t\tpact = result;\n\t\t\t\t}\n\t\t\t} catch (e) {\n\t\t\t\t_settle(pact || (pact = new _Pact()), 2, e);\n\t\t\t}\n\t\t}\n\t\t_cycle();\n\t\tif (iterator.return) {\n\t\t\tvar _fixup = function(value) {\n\t\t\t\ttry {\n\t\t\t\t\tif (!step.done) {\n\t\t\t\t\t\titerator.return();\n\t\t\t\t\t}\n\t\t\t\t} catch(e) {\n\t\t\t\t}\n\t\t\t\treturn value;\n\t\t\t}\n\t\t\tif (pact && pact.then) {\n\t\t\t\treturn pact.then(_fixup, function(e) {\n\t\t\t\t\tthrow _fixup(e);\n\t\t\t\t});\n\t\t\t}\n\t\t\t_fixup();\n\t\t}\n\t\treturn pact;\n\t}\n\t// No support for Symbol.iterator\n\tif (!("length" in target)) {\n\t\tthrow new TypeError("Object is not iterable");\n\t}\n\t// Handle live collections properly\n\tvar values = [];\n\tfor (var i = 0; i < target.length; i++) {\n\t\tvalues.push(target[i]);\n\t}\n\treturn _forTo(values, function(i) { return body(values[i]); }, check);\n}\n\nexport const _asyncIteratorSymbol = /*#__PURE__*/ typeof Symbol !== "undefined" ? (Symbol.asyncIterator || (Symbol.asyncIterator = Symbol("Symbol.asyncIterator"))) : "@@asyncIterator";\n\n// Asynchronously iterate on a value using it\'s async iterator if present, or its synchronous iterator if missing\nexport function _forAwaitOf(target, body, check) {\n\tif (typeof target[_asyncIteratorSymbol] === "function") {\n\t\tvar pact = new _Pact();\n\t\tvar iterator = target[_asyncIteratorSymbol]();\n\t\titerator.next().then(_resumeAfterNext).then(void 0, _reject);\n\t\treturn pact;\n\t\tfunction _resumeAfterBody(result) {\n\t\t\tif (check && check()) {\n\t\t\t\treturn _settle(pact, 1, iterator.return ? iterator.return().then(function() { return result; }) : result);\n\t\t\t}\n\t\t\titerator.next().then(_resumeAfterNext).then(void 0, _reject);\n\t\t}\n\t\tfunction _resumeAfterNext(step) {\n\t\t\tif (step.done) {\n\t\t\t\t_settle(pact, 1);\n\t\t\t} else {\n\t\t\t\tPromise.resolve(body(step.value)).then(_resumeAfterBody).then(void 0, _reject);\n\t\t\t}\n\t\t}\n\t\tfunction _reject(error) {\n\t\t\t_settle(pact, 2, iterator.return ? iterator.return().then(function() { return error; }) : error);\n\t\t}\n\t}\n\treturn Promise.resolve(_forOf(target, function(value) { return Promise.resolve(value).then(body); }, check));\n}\n\n// Asynchronously implement a generic for loop\nexport function _for(test, update, body) {\n\tvar stage;\n\tfor (;;) {\n\t\tvar shouldContinue = test();\n\t\tif (_isSettledPact(shouldContinue)) {\n\t\t\tshouldContinue = shouldContinue.v;\n\t\t}\n\t\tif (!shouldContinue) {\n\t\t\treturn result;\n\t\t}\n\t\tif (shouldContinue.then) {\n\t\t\tstage = 0;\n\t\t\tbreak;\n\t\t}\n\t\tvar result = body();\n\t\tif (result && result.then) {\n\t\t\tif (_isSettledPact(result)) {\n\t\t\t\tresult = result.s;\n\t\t\t} else {\n\t\t\t\tstage = 1;\n\t\t\t\tbreak;\n\t\t\t}\n\t\t}\n\t\tif (update) {\n\t\t\tvar updateValue = update();\n\t\t\tif (updateValue && updateValue.then && !_isSettledPact(updateValue)) {\n\t\t\t\tstage = 2;\n\t\t\t\tbreak;\n\t\t\t}\n\t\t}\n\t}\n\tvar pact = new _Pact();\n\tvar reject = _settle.bind(null, pact, 2);\n\t(stage === 0 ? shouldContinue.then(_resumeAfterTest) : stage === 1 ? result.then(_resumeAfterBody) : updateValue.then(_resumeAfterUpdate)).then(void 0, reject);\n\treturn pact;\n\tfunction _resumeAfterBody(value) {\n\t\tresult = value;\n\t\tdo {\n\t\t\tif (update) {\n\t\t\t\tupdateValue = update();\n\t\t\t\tif (updateValue && updateValue.then && !_isSettledPact(updateValue)) {\n\t\t\t\t\tupdateValue.then(_resumeAfterUpdate).then(void 0, reject);\n\t\t\t\t\treturn;\n\t\t\t\t}\n\t\t\t}\n\t\t\tshouldContinue = test();\n\t\t\tif (!shouldContinue || (_isSettledPact(shouldContinue) && !shouldContinue.v)) {\n\t\t\t\t_settle(pact, 1, result);\n\t\t\t\treturn;\n\t\t\t}\n\t\t\tif (shouldContinue.then) {\n\t\t\t\tshouldContinue.then(_resumeAfterTest).then(void 0, reject);\n\t\t\t\treturn;\n\t\t\t}\n\t\t\tresult = body();\n\t\t\tif (_isSettledPact(result)) {\n\t\t\t\tresult = result.v;\n\t\t\t}\n\t\t} while (!result || !result.then);\n\t\tresult.then(_resumeAfterBody).then(void 0, reject);\n\t}\n\tfunction _resumeAfterTest(shouldContinue) {\n\t\tif (shouldContinue) {\n\t\t\tresult = body();\n\t\t\tif (result && result.then) {\n\t\t\t\tresult.then(_resumeAfterBody).then(void 0, reject);\n\t\t\t} else {\n\t\t\t\t_resumeAfterBody(result);\n\t\t\t}\n\t\t} else {\n\t\t\t_settle(pact, 1, result);\n\t\t}\n\t}\n\tfunction _resumeAfterUpdate() {\n\t\tif (shouldContinue = test()) {\n\t\t\tif (shouldContinue.then) {\n\t\t\t\tshouldContinue.then(_resumeAfterTest).then(void 0, reject);\n\t\t\t} else {\n\t\t\t\t_resumeAfterTest(shouldContinue);\n\t\t\t}\n\t\t} else {\n\t\t\t_settle(pact, 1, result);\n\t\t}\n\t}\n}\n\n// Asynchronously implement a do ... while loop\nexport function _do(body, test) {\n\tvar awaitBody;\n\tdo {\n\t\tvar result = body();\n\t\tif (result && result.then) {\n\t\t\tif (_isSettledPact(result)) {\n\t\t\t\tresult = result.v;\n\t\t\t} else {\n\t\t\t\tawaitBody = true;\n\t\t\t\tbreak;\n\t\t\t}\n\t\t}\n\t\tvar shouldContinue = test();\n\t\tif (_isSettledPact(shouldContinue)) {\n\t\t\tshouldContinue = shouldContinue.v;\n\t\t}\n\t\tif (!shouldContinue) {\n\t\t\treturn result;\n\t\t}\n\t} while (!shouldContinue.then);\n\tconst pact = new _Pact();\n\tconst reject = _settle.bind(null, pact, 2);\n\t(awaitBody ? result.then(_resumeAfterBody) : shouldContinue.then(_resumeAfterTest)).then(void 0, reject);\n\treturn pact;\n\tfunction _resumeAfterBody(value) {\n\t\tresult = value;\n\t\tfor (;;) {\n\t\t\tshouldContinue = test();\n\t\t\tif (_isSettledPact(shouldContinue)) {\n\t\t\t\tshouldContinue = shouldContinue.v;\n\t\t\t}\n\t\t\tif (!shouldContinue) {\n\t\t\t\tbreak;\n\t\t\t}\n\t\t\tif (shouldContinue.then) {\n\t\t\t\tshouldContinue.then(_resumeAfterTest).then(void 0, reject);\n\t\t\t\treturn;\n\t\t\t}\n\t\t\tresult = body();\n\t\t\tif (result && result.then) {\n\t\t\t\tif (_isSettledPact(result)) {\n\t\t\t\t\tresult = result.v;\n\t\t\t\t} else {\n\t\t\t\t\tresult.then(_resumeAfterBody).then(void 0, reject);\n\t\t\t\t\treturn;\n\t\t\t\t}\n\t\t\t}\n\t\t}\n\t\t_settle(pact, 1, result);\n\t}\n\tfunction _resumeAfterTest(shouldContinue) {\n\t\tif (shouldContinue) {\n\t\t\tdo {\n\t\t\t\tresult = body();\n\t\t\t\tif (result && result.then) {\n\t\t\t\t\tif (_isSettledPact(result)) {\n\t\t\t\t\t\tresult = result.v;\n\t\t\t\t\t} else {\n\t\t\t\t\t\tresult.then(_resumeAfterBody).then(void 0, reject);\n\t\t\t\t\t\treturn;\n\t\t\t\t\t}\n\t\t\t\t}\n\t\t\t\tshouldContinue = test();\n\t\t\t\tif (_isSettledPact(shouldContinue)) {\n\t\t\t\t\tshouldContinue = shouldContinue.v;\n\t\t\t\t}\n\t\t\t\tif (!shouldContinue) {\n\t\t\t\t\t_settle(pact, 1, result);\n\t\t\t\t\treturn;\n\t\t\t\t}\n\t\t\t} while (!shouldContinue.then);\n\t\t\tshouldContinue.then(_resumeAfterTest).then(void 0, reject);\n\t\t} else {\n\t\t\t_settle(pact, 1, result);\n\t\t}\n\t}\n}\n\n// Asynchronously implement a switch statement\nexport function _switch(discriminant, cases) {\n\tvar dispatchIndex = -1;\n\tvar awaitBody;\n\touter: {\n\t\tfor (var i = 0; i < cases.length; i++) {\n\t\t\tvar test = cases[i][0];\n\t\t\tif (test) {\n\t\t\t\tvar testValue = test();\n\t\t\t\tif (testValue && testValue.then) {\n\t\t\t\t\tbreak outer;\n\t\t\t\t}\n\t\t\t\tif (testValue === discriminant) {\n\t\t\t\t\tdispatchIndex = i;\n\t\t\t\t\tbreak;\n\t\t\t\t}\n\t\t\t} else {\n\t\t\t\t// Found the default case, set it as the pending dispatch case\n\t\t\t\tdispatchIndex = i;\n\t\t\t}\n\t\t}\n\t\tif (dispatchIndex !== -1) {\n\t\t\tdo {\n\t\t\t\tvar body = cases[dispatchIndex][1];\n\t\t\t\twhile (!body) {\n\t\t\t\t\tdispatchIndex++;\n\t\t\t\t\tbody = cases[dispatchIndex][1];\n\t\t\t\t}\n\t\t\t\tvar result = body();\n\t\t\t\tif (result && result.then) {\n\t\t\t\t\tawaitBody = true;\n\t\t\t\t\tbreak outer;\n\t\t\t\t}\n\t\t\t\tvar fallthroughCheck = cases[dispatchIndex][2];\n\t\t\t\tdispatchIndex++;\n\t\t\t} while (fallthroughCheck && !fallthroughCheck());\n\t\t\treturn result;\n\t\t}\n\t}\n\tconst pact = new _Pact();\n\tconst reject = _settle.bind(null, pact, 2);\n\t(awaitBody ? result.then(_resumeAfterBody) : testValue.then(_resumeAfterTest)).then(void 0, reject);\n\treturn pact;\n\tfunction _resumeAfterTest(value) {\n\t\tfor (;;) {\n\t\t\tif (value === discriminant) {\n\t\t\t\tdispatchIndex = i;\n\t\t\t\tbreak;\n\t\t\t}\n\t\t\tif (++i === cases.length) {\n\t\t\t\tif (dispatchIndex !== -1) {\n\t\t\t\t\tbreak;\n\t\t\t\t} else {\n\t\t\t\t\t_settle(pact, 1, result);\n\t\t\t\t\treturn;\n\t\t\t\t}\n\t\t\t}\n\t\t\ttest = cases[i][0];\n\t\t\tif (test) {\n\t\t\t\tvalue = test();\n\t\t\t\tif (value && value.then) {\n\t\t\t\t\tvalue.then(_resumeAfterTest).then(void 0, reject);\n\t\t\t\t\treturn;\n\t\t\t\t}\n\t\t\t} else {\n\t\t\t\tdispatchIndex = i;\n\t\t\t}\n\t\t}\n\t\tdo {\n\t\t\tvar body = cases[dispatchIndex][1];\n\t\t\twhile (!body) {\n\t\t\t\tdispatchIndex++;\n\t\t\t\tbody = cases[dispatchIndex][1];\n\t\t\t}\n\t\t\tvar result = body();\n\t\t\tif (result && result.then) {\n\t\t\t\tresult.then(_resumeAfterBody).then(void 0, reject);\n\t\t\t\treturn;\n\t\t\t}\n\t\t\tvar fallthroughCheck = cases[dispatchIndex][2];\n\t\t\tdispatchIndex++;\n\t\t} while (fallthroughCheck && !fallthroughCheck());\n\t\t_settle(pact, 1, result);\n\t}\n\tfunction _resumeAfterBody(result) {\n\t\tfor (;;) {\n\t\t\tvar fallthroughCheck = cases[dispatchIndex][2];\n\t\t\tif (!fallthroughCheck || fallthroughCheck()) {\n\t\t\t\tbreak;\n\t\t\t}\n\t\t\tdispatchIndex++;\n\t\t\tvar body = cases[dispatchIndex][1];\n\t\t\twhile (!body) {\n\t\t\t\tdispatchIndex++;\n\t\t\t\tbody = cases[dispatchIndex][1];\n\t\t\t}\n\t\t\tresult = body();\n\t\t\tif (result && result.then) {\n\t\t\t\tresult.then(_resumeAfterBody).then(void 0, reject);\n\t\t\t\treturn;\n\t\t\t}\n\t\t}\n\t\t_settle(pact, 1, result);\n\t}\n}\n\n// Asynchronously call a function and pass the result to explicitly passed continuations\nexport function _call(body, then, direct) {\n\tif (direct) {\n\t\treturn then ? then(body()) : body();\n\t}\n\ttry {\n\t\tvar result = Promise.resolve(body());\n\t\treturn then ? result.then(then) : result;\n\t} catch (e) {\n\t\treturn Promise.reject(e);\n\t}\n}\n\n// Asynchronously call a function and swallow the result\nexport function _callIgnored(body, direct) {\n\treturn _call(body, _empty, direct);\n}\n\n// Asynchronously call a function and pass the result to explicitly passed continuations\nexport function _invoke(body, then) {\n\tvar result = body();\n\tif (result && result.then) {\n\t\treturn result.then(then);\n\t}\n\treturn then(result);\n}\n\n// Asynchronously call a function and swallow the result\nexport function _invokeIgnored(body) {\n\tvar result = body();\n\tif (result && result.then) {\n\t\treturn result.then(_empty);\n\t}\n}\n\n// Asynchronously call a function and send errors to recovery continuation\nexport function _catch(body, recover) {\n\ttry {\n\t\tvar result = body();\n\t} catch(e) {\n\t\treturn recover(e);\n\t}\n\tif (result && result.then) {\n\t\treturn result.then(void 0, recover);\n\t}\n\treturn result;\n}\n\n// Asynchronously await a promise and pass the result to a finally continuation\nexport function _finallyRethrows(body, finalizer) {\n\ttry {\n\t\tvar result = body();\n\t} catch (e) {\n\t\treturn finalizer(true, e);\n\t}\n\tif (result && result.then) {\n\t\treturn result.then(finalizer.bind(null, false), finalizer.bind(null, true));\n\t}\n\treturn finalizer(false, result);\n}\n\n// Asynchronously await a promise and invoke a finally continuation that always overrides the result\nexport function _finally(body, finalizer) {\n\ttry {\n\t\tvar result = body();\n\t} catch (e) {\n\t\treturn finalizer();\n\t}\n\tif (result && result.then) {\n\t\treturn result.then(finalizer, finalizer);\n\t}\n\treturn finalizer();\n}\n\n// Rethrow or return a value from a finally continuation\nexport function _rethrow(thrown, value) {\n\tif (thrown)\n\t\tthrow value;\n\treturn value;\n}\n\n// Empty function to implement break and other control flow that ignores asynchronous results\nexport function _empty() {\n}\n\n// Sentinel value for early returns in generators \nexport const _earlyReturn = /*#__PURE__*/ {};\n\n// Asynchronously call a function and send errors to recovery continuation, skipping early returns\nexport function _catchInGenerator(body, recover) {\n\treturn _catch(body, function(e) {\n\t\tif (e === _earlyReturn) {\n\t\t\tthrow e;\n\t\t}\n\t\treturn recover(e);\n\t});\n}\n\n// Asynchronous generator class; accepts the entrypoint of the generator, to which it passes itself when the generator should start\nexport const _AsyncGenerator = /*#__PURE__*/(function() {\n\tfunction _AsyncGenerator(entry) {\n\t\tthis._entry = entry;\n\t\tthis._pact = null;\n\t\tthis._resolve = null;\n\t\tthis._return = null;\n\t\tthis._promise = null;\n\t}\n\n\tfunction _wrapReturnedValue(value) {\n\t\treturn { value: value, done: true };\n\t}\n\tfunction _wrapYieldedValue(value) {\n\t\treturn { value: value, done: false };\n\t}\n\n\t_AsyncGenerator.prototype._yield = function(value) {\n\t\t// Yield the value to the pending next call\n\t\tthis._resolve(value && value.then ? value.then(_wrapYieldedValue) : _wrapYieldedValue(value));\n\t\t// Return a pact for an upcoming next/return/throw call\n\t\treturn this._pact = new _Pact();\n\t};\n\t_AsyncGenerator.prototype.next = function(value) {\n\t\t// Advance the generator, starting it if it has yet to be started\n\t\tconst _this = this;\n\t\treturn _this._promise = new Promise(function (resolve) {\n\t\t\tconst _pact = _this._pact;\n\t\t\tif (_pact === null) {\n\t\t\t\tconst _entry = _this._entry;\n\t\t\t\tif (_entry === null) {\n\t\t\t\t\t// Generator is started, but not awaiting a yield expression\n\t\t\t\t\t// Abandon the next call!\n\t\t\t\t\treturn resolve(_this._promise);\n\t\t\t\t}\n\t\t\t\t// Start the generator\n\t\t\t\t_this._entry = null;\n\t\t\t\t_this._resolve = resolve;\n\t\t\t\tfunction returnValue(value) {\n\t\t\t\t\t_this._resolve(value && value.then ? value.then(_wrapReturnedValue) : _wrapReturnedValue(value));\n\t\t\t\t\t_this._pact = null;\n\t\t\t\t\t_this._resolve = null;\n\t\t\t\t}\n\t\t\t\tvar result = _entry(_this);\n\t\t\t\tif (result && result.then) {\n\t\t\t\t\tresult.then(returnValue, function(error) {\n\t\t\t\t\t\tif (error === _earlyReturn) {\n\t\t\t\t\t\t\treturnValue(_this._return);\n\t\t\t\t\t\t} else {\n\t\t\t\t\t\t\tconst pact = new _Pact();\n\t\t\t\t\t\t\t_this._resolve(pact);\n\t\t\t\t\t\t\t_this._pact = null;\n\t\t\t\t\t\t\t_this._resolve = null;\n\t\t\t\t\t\t\t_resolve(pact, 2, error);\n\t\t\t\t\t\t}\n\t\t\t\t\t});\n\t\t\t\t} else {\n\t\t\t\t\treturnValue(result);\n\t\t\t\t}\n\t\t\t} else {\n\t\t\t\t// Generator is started and a yield expression is pending, settle it\n\t\t\t\t_this._pact = null;\n\t\t\t\t_this._resolve = resolve;\n\t\t\t\t_settle(_pact, 1, value);\n\t\t\t}\n\t\t});\n\t};\n\t_AsyncGenerator.prototype.return = function(value) {\n\t\t// Early return from the generator if started, otherwise abandons the generator\n\t\tconst _this = this;\n\t\treturn _this._promise = new Promise(function (resolve) {\n\t\t\tconst _pact = _this._pact;\n\t\t\tif (_pact === null) {\n\t\t\t\tif (_this._entry === null) {\n\t\t\t\t\t// Generator is started, but not awaiting a yield expression\n\t\t\t\t\t// Abandon the return call!\n\t\t\t\t\treturn resolve(_this._promise);\n\t\t\t\t}\n\t\t\t\t// Generator is not started, abandon it and return the specified value\n\t\t\t\t_this._entry = null;\n\t\t\t\treturn resolve(value && value.then ? value.then(_wrapReturnedValue) : _wrapReturnedValue(value));\n\t\t\t}\n\t\t\t// Settle the yield expression with a rejected "early return" value\n\t\t\t_this._return = value;\n\t\t\t_this._resolve = resolve;\n\t\t\t_this._pact = null;\n\t\t\t_settle(_pact, 2, _earlyReturn);\n\t\t});\n\t};\n\t_AsyncGenerator.prototype.throw = function(error) {\n\t\t// Inject an exception into the pending yield expression\n\t\tconst _this = this;\n\t\treturn _this._promise = new Promise(function (resolve, reject) {\n\t\t\tconst _pact = _this._pact;\n\t\t\tif (_pact === null) {\n\t\t\t\tif (_this._entry === null) {\n\t\t\t\t\t// Generator is started, but not awaiting a yield expression\n\t\t\t\t\t// Abandon the throw call!\n\t\t\t\t\treturn resolve(_this._promise);\n\t\t\t\t}\n\t\t\t\t// Generator is not started, abandon it and return a rejected Promise containing the error\n\t\t\t\t_this._entry = null;\n\t\t\t\treturn reject(error);\n\t\t\t}\n\t\t\t// Settle the yield expression with the value as a rejection\n\t\t\t_this._resolve = resolve;\n\t\t\t_this._pact = null;\n\t\t\t_settle(_pact, 2, error);\n\t\t});\n\t};\n\n\t_AsyncGenerator.prototype[_asyncIteratorSymbol] = function() {\n\t\treturn this;\n\t};\n\t\n\treturn _AsyncGenerator;\n})();\n';

package/src/js/js_static_analysis/css_template_substitutions.js

@@ -0,0 +1,241 @@
+// A "${}" inside a css template hides the whole css from the build: nothing can
+// be parsed, so nothing can be checked, rewritten or stripped.
+// It can be kept readable when the expression stands exactly where a css value
+// stands: "var(--jsenv-css-substitution-0)" is a value the css parser accepts
+// anywhere a value is expected, so the css around it stays css, and the
+// expression takes the placeholder's place back once the css is transformed.
+// Anywhere else — a selector, an at-rule prelude, a property name, inside a
+// string or inside url() — nothing can stand for the expression, and the
+// template is left alone.
+
+const PLACEHOLDER = (index) => `var(--jsenv-css-substitution-${index})`;
+
+/**
+ * @param {Object} templateLiteralNode a TemplateLiteral acorn node
+ * @param {string} js the source the node comes from
+ * @returns {{ content: string, substitutions: Array<{placeholder: string, expression: string}> }|null}
+ *          null when at least one expression is not in a css value position
+ */
+export const buildCssTemplateSubstitutions = (templateLiteralNode, js) => {
+  const { quasis, expressions } = templateLiteralNode;
+  const parts = [];
+  for (const quasi of quasis) {
+    const { cooked } = quasi.value;
+    if (cooked === undefined) {
+      // an escape sequence acorn could not cook: what the css is cannot be told
+      return null;
+    }
+    parts.push(cooked);
+  }
+  const substitutions = [];
+  let content = parts[0];
+  const positions = [];
+  for (let i = 0; i < expressions.length; i++) {
+    const placeholder = PLACEHOLDER(i);
+    positions.push(content.length);
+    substitutions.push({
+      placeholder,
+      expression: js.slice(expressions[i].start, expressions[i].end),
+    });
+    content += placeholder + parts[i + 1];
+  }
+  for (const position of positions) {
+    if (!isCssValuePosition(content, position)) {
+      return null;
+    }
+  }
+  return { content, substitutions };
+};
+
+// Reads the css from its start up to "position", keeping just enough state to
+// tell what the placeholder sitting there would be part of.
+const isCssValuePosition = (css, position) => {
+  let braceDepth = 0;
+  let stringQuote = null;
+  let inComment = false;
+  // the functions the position is nested in, innermost last ("" for a plain
+  // parenthesis); only url() has to be told apart, its argument is not a value
+  const functionStack = [];
+  // what has been read since the last "{", "}" or ";": a declaration value
+  // starts after a ":", and an at-rule prelude starts with "@"
+  let statementStart = 0;
+  let colonSeen = false;
+  let i = 0;
+  while (i < position) {
+    const char = css[i];
+    if (inComment) {
+      if (char === "*" && css[i + 1] === "/") {
+        inComment = false;
+        i += 2;
+        continue;
+      }
+      i++;
+      continue;
+    }
+    if (stringQuote) {
+      if (char === "\\") {
+        i += 2;
+        continue;
+      }
+      if (char === stringQuote) {
+        stringQuote = null;
+      }
+      i++;
+      continue;
+    }
+    if (char === "/" && css[i + 1] === "*") {
+      inComment = true;
+      i += 2;
+      continue;
+    }
+    if (char === '"' || char === "'") {
+      stringQuote = char;
+      i++;
+      continue;
+    }
+    if (char === "(") {
+      functionStack.push(readFunctionNameBefore(css, i));
+      i++;
+      continue;
+    }
+    if (char === ")") {
+      functionStack.pop();
+      i++;
+      continue;
+    }
+    if (char === "{") {
+      braceDepth++;
+      statementStart = i + 1;
+      colonSeen = false;
+      i++;
+      continue;
+    }
+    if (char === "}") {
+      braceDepth--;
+      statementStart = i + 1;
+      colonSeen = false;
+      i++;
+      continue;
+    }
+    if (char === ";") {
+      statementStart = i + 1;
+      colonSeen = false;
+      i++;
+      continue;
+    }
+    if (char === ":" && functionStack.length === 0) {
+      colonSeen = true;
+      i++;
+      continue;
+    }
+    i++;
+  }
+  if (inComment || stringQuote) {
+    return false;
+  }
+  if (braceDepth === 0) {
+    // outside any rule: a selector, or an at-rule prelude
+    return false;
+  }
+  if (!colonSeen) {
+    // a property name, or a nested selector
+    return false;
+  }
+  if (css.slice(statementStart, position).trimStart().startsWith("@")) {
+    // an at-rule prelude nested in a rule, "@media (min-width: ...)"
+    return false;
+  }
+  if (functionStack[functionStack.length - 1] === "url") {
+    // url() takes an url, and an url built at runtime is not one the build
+    // can follow to a file
+    return false;
+  }
+  // A ":" also opens a pseudo class, so what looks like a value here can still
+  // be the end of a nested selector; that is settled by what closes it.
+  return closedByDeclarationEnd(css, position);
+};
+
+const readFunctionNameBefore = (css, parenthesisIndex) => {
+  let start = parenthesisIndex;
+  while (start > 0 && /[a-zA-Z0-9_-]/.test(css[start - 1])) {
+    start--;
+  }
+  return css.slice(start, parenthesisIndex).toLowerCase();
+};
+
+// A declaration ends on ";" or "}"; reaching "{" first means what was read is
+// a selector.
+const closedByDeclarationEnd = (css, position) => {
+  let stringQuote = null;
+  let inComment = false;
+  let i = position;
+  while (i < css.length) {
+    const char = css[i];
+    if (inComment) {
+      if (char === "*" && css[i + 1] === "/") {
+        inComment = false;
+        i += 2;
+        continue;
+      }
+      i++;
+      continue;
+    }
+    if (stringQuote) {
+      if (char === "\\") {
+        i += 2;
+        continue;
+      }
+      if (char === stringQuote) {
+        stringQuote = null;
+      }
+      i++;
+      continue;
+    }
+    if (char === "/" && css[i + 1] === "*") {
+      inComment = true;
+      i += 2;
+      continue;
+    }
+    if (char === '"' || char === "'") {
+      stringQuote = char;
+      i++;
+      continue;
+    }
+    if (char === ";" || char === "}") {
+      return true;
+    }
+    if (char === "{") {
+      return false;
+    }
+    i++;
+  }
+  // the last declaration of the template may end without ";"
+  return true;
+};
+
+/**
+ * Puts the expressions back where their placeholder stands and renders the
+ * template literal to write in place of the original one.
+ * @returns {string|null} null when a placeholder did not survive the css
+ *          transformation as it was written: what would be given back would
+ *          not be what the source said
+ */
+export const renderCssTemplateLiteral = (content, substitutions) => {
+  for (const { placeholder } of substitutions) {
+    const index = content.indexOf(placeholder);
+    if (index === -1) {
+      return null;
+    }
+    if (content.indexOf(placeholder, index + placeholder.length) !== -1) {
+      return null;
+    }
+  }
+  let escaped = content
+    .replace(/\\/g, "\\\\")
+    .replace(/`/g, "\\`")
+    .replace(/\$/g, "\\$");
+  for (const { placeholder, expression } of substitutions) {
+    escaped = escaped.replace(placeholder, () => `\${${expression}}`);
+  }
+  return `\`${escaped}\``;
+};

package/src/js/js_static_analysis/import_meta_css.js

@@ -0,0 +1,198 @@
+import { getImportMetaPropertyName } from "../import_meta.js";
+import { buildCssTemplateSubstitutions } from "./css_template_substitutions.js";
+import { extractContentInfo } from "./helpers.js";
+
+export const isImportMetaCssAssignment = (node) => {
+  return (
+    node.type === "AssignmentExpression" &&
+    node.operator === "=" &&
+    getImportMetaPropertyName(node.left) === "css"
+  );
+};
+
+export const analyzeImportMetaCssAssignment = (
+  node,
+  { js, ast, ancestors, onInlineContent },
+) => {
+  // "import.meta.css = [css, url]": the array form a pre-built file ships
+  // (see jsenv:import_meta_css); the css is the first element.
+  const assignedNode =
+    node.right.type === "ArrayExpression" ? node.right.elements[0] : node.right;
+  if (!assignedNode) {
+    return;
+  }
+  // "const css = `...`; import.meta.css = css;" — the css is where the constant
+  // is declared, and that is where it is read and rewritten.
+  const nodeHoldingContent =
+    assignedNode.type === "Identifier"
+      ? findModuleConstantValue(assignedNode.name, { ast, ancestors })
+      : assignedNode;
+  if (!nodeHoldingContent) {
+    return;
+  }
+  const position = {
+    start: nodeHoldingContent.start,
+    end: nodeHoldingContent.end,
+    line: nodeHoldingContent.loc.start.line,
+    column: nodeHoldingContent.loc.start.column,
+    lineEnd: nodeHoldingContent.loc.end.line,
+    columnEnd: nodeHoldingContent.loc.end.column,
+  };
+  const contentInfo = extractContentInfo(nodeHoldingContent);
+  if (contentInfo) {
+    onInlineContent({
+      type: "import_meta_css_assignment",
+      contentType: "text/css",
+      ...position,
+      nodeType: contentInfo.nodeType,
+      quote: contentInfo.quote,
+      content: contentInfo.content,
+      astInfo: { node: nodeHoldingContent },
+    });
+    return;
+  }
+  if (nodeHoldingContent.type !== "TemplateLiteral") {
+    return;
+  }
+  const substitutionInfo = buildCssTemplateSubstitutions(
+    nodeHoldingContent,
+    js,
+  );
+  if (!substitutionInfo) {
+    return;
+  }
+  onInlineContent({
+    type: "import_meta_css_assignment",
+    contentType: "text/css",
+    ...position,
+    nodeType: "TemplateLiteral",
+    quote: "`",
+    content: substitutionInfo.content,
+    substitutions: substitutionInfo.substitutions,
+    astInfo: { node: nodeHoldingContent },
+  });
+};
+
+const findModuleConstantValue = (name, { ast, ancestors }) => {
+  if (isShadowed(name, ancestors)) {
+    // the name stands for something declared closer than the module
+    return null;
+  }
+  for (const node of ast.body) {
+    const declaration =
+      node.type === "ExportNamedDeclaration" ? node.declaration : node;
+    if (!declaration || declaration.type !== "VariableDeclaration") {
+      continue;
+    }
+    if (declaration.kind !== "const") {
+      // the value read at assignment time is not the one written here
+      continue;
+    }
+    for (const declarator of declaration.declarations) {
+      if (declarator.id.type === "Identifier" && declarator.id.name === name) {
+        return declarator.init;
+      }
+    }
+  }
+  return null;
+};
+
+// Walks out from the assignment towards the module: a name declared on the way
+// is not the module constant, whatever the module declares under it.
+const isShadowed = (name, ancestors) => {
+  for (let i = ancestors.length - 1; i >= 0; i--) {
+    const node = ancestors[i];
+    if (node.type === "Program") {
+      return false;
+    }
+    if (
+      node.type === "FunctionDeclaration" ||
+      node.type === "FunctionExpression" ||
+      node.type === "ArrowFunctionExpression"
+    ) {
+      for (const param of node.params) {
+        if (patternDeclares(param, name)) {
+          return true;
+        }
+      }
+      continue;
+    }
+    if (node.type === "CatchClause") {
+      if (node.param && patternDeclares(node.param, name)) {
+        return true;
+      }
+      continue;
+    }
+    if (node.type === "BlockStatement" || node.type === "StaticBlock") {
+      if (bodyDeclares(node.body, name)) {
+        return true;
+      }
+      continue;
+    }
+    if (
+      node.type === "ForStatement" ||
+      node.type === "ForInStatement" ||
+      node.type === "ForOfStatement"
+    ) {
+      const init = node.init || node.left;
+      if (init && init.type === "VariableDeclaration") {
+        for (const declarator of init.declarations) {
+          if (patternDeclares(declarator.id, name)) {
+            return true;
+          }
+        }
+      }
+      continue;
+    }
+  }
+  return false;
+};
+
+const bodyDeclares = (body, name) => {
+  for (const node of body) {
+    if (node.type === "VariableDeclaration") {
+      for (const declarator of node.declarations) {
+        if (patternDeclares(declarator.id, name)) {
+          return true;
+        }
+      }
+      continue;
+    }
+    if (
+      (node.type === "FunctionDeclaration" ||
+        node.type === "ClassDeclaration") &&
+      node.id &&
+      node.id.name === name
+    ) {
+      return true;
+    }
+  }
+  return false;
+};
+
+const patternDeclares = (pattern, name) => {
+  if (!pattern) {
+    return false;
+  }
+  if (pattern.type === "Identifier") {
+    return pattern.name === name;
+  }
+  if (pattern.type === "AssignmentPattern") {
+    return patternDeclares(pattern.left, name);
+  }
+  if (pattern.type === "RestElement") {
+    return patternDeclares(pattern.argument, name);
+  }
+  if (pattern.type === "ArrayPattern") {
+    return pattern.elements.some((element) => patternDeclares(element, name));
+  }
+  if (pattern.type === "ObjectPattern") {
+    return pattern.properties.some((property) =>
+      patternDeclares(
+        property.type === "RestElement" ? property.argument : property.value,
+        name,
+      ),
+    );
+  }
+  return false;
+};

package/src/js/parse_js_urls.js

@@ -6,6 +6,10 @@ import {
   analyzeImportDeclaration,
   analyzeImportExpression,
 } from "./js_static_analysis/import_export.js";
+import {
+  analyzeImportMetaCssAssignment,
+  isImportMetaCssAssignment,
+} from "./js_static_analysis/import_meta_css.js";
 import {
   analyzeImportMetaResolveCall,
   isImportMetaResolveCall,
@@ -130,6 +134,16 @@ export const parseJsUrls = ({
     ExportAllDeclaration: (node) => {
       analyzeExportAllDeclaration(node, { onUrl });
     },
+    AssignmentExpression: (node, ancestors) => {
+      if (inlineContent && isJsModule && isImportMetaCssAssignment(node)) {
+        analyzeImportMetaCssAssignment(node, {
+          js,
+          ast,
+          ancestors,
+          onInlineContent,
+        });
+      }
+    },
     CallExpression: (node) => {
       if (isJsModule && isImportMetaResolveCall(node)) {
         analyzeImportMetaResolveCall(node, { onUrl });

package/src/main.js

@@ -45,6 +45,13 @@ export { parseCssUrls } from "./css/parse_css_urls.js";
 
 // js
 export { applyBabelPlugins } from "./js/apply_babel_plugins.js";
+// Fork of "babel-plugin-transform-async-to-promises". It was forked for
+// https://github.com/rpetrich/babel-plugin-transform-async-to-promises/issues/84
+// and the upstream package is unmaintained since 2022, so it also never got the
+// babel 8 fixes (parse/transformFromAst became async-only, TraversalContext#create
+// is gone). It lives in this package because this package has no dist: every
+// consumer reads the same source, so no build has to run before another one.
+export { default as babelPluginAsyncToPromises } from "./js/async_to_promises/async-to-promises.js";
 export { injectJsImport } from "./js/babel_utils.js";
 export { parseJsWithAcorn } from "./js/parse_js_with_acorn.js";
 export { parseJsUrls } from "./js/parse_js_urls.js";
@@ -52,5 +59,6 @@ export { visitJsAstUntil } from "./js/visit_js_ast_until.js";
 export { visitJsAst } from "./js/visit_js_ast.js";
 export { getImportMetaPropertyName } from "./js/import_meta.js";
 export { getUrlForContentInsideJs } from "./js/js_inline_content_url.js";
+export { renderCssTemplateLiteral } from "./js/js_static_analysis/css_template_substitutions.js";
 
 export { generateUrlForInlineContent } from "./inline_content_url.js";