|
@@ -3,11 +3,14 @@
|
|
|
*
|
|
|
* @author David Sehnal <david.sehnal@gmail.com>
|
|
|
*/
|
|
|
-
|
|
|
|
|
|
* Adapted from Parsimmon (https:
|
|
|
* Copyright (c) 2011-present J. Adkisson (http:
|
|
|
*/
|
|
|
+
|
|
|
+* @author Koya Sakuma
|
|
|
+* implementation of seqMap for mol-script/transpiler/helper.ts
|
|
|
+**/
|
|
|
|
|
|
export class MonadicParser<A> {
|
|
|
constructor(public _: MonadicParser.Action<A>) { }
|
|
@@ -236,15 +239,7 @@ export namespace MonadicParser {
|
|
|
|
|
|
export type Result<T> = Success<T> | Failure
|
|
|
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
+
|
|
|
export function seqMap( a: MonadicParser<any>,b:MonadicParser<any>,c:any) {
|
|
|
var args = [].slice.call(arguments);
|
|
|
if (args.length === 0) {
|
|
@@ -267,28 +262,7 @@ export namespace MonadicParser {
|
|
|
return language;
|
|
|
}
|
|
|
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
+
|
|
|
export function seq<A>(a: MonadicParser<A>): MonadicParser<[A]>
|
|
|
export function seq<A, B>(a: MonadicParser<A>, b: MonadicParser<B>): MonadicParser<[A, B]>
|
|
|
export function seq<A, B, C>(a: MonadicParser<A>, b: MonadicParser<B>, c: MonadicParser<C>): MonadicParser<[A, B, C]>
|
|
@@ -369,8 +343,6 @@ export namespace MonadicParser {
|
|
|
}
|
|
|
|
|
|
|
|
|
-
|
|
|
-
|
|
|
export function regexp(re: RegExp, group = 0) {
|
|
|
const anchored = anchoredRegexp(re);
|
|
|
const expected = '' + re;
|