1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
import * as Either from 'fp-ts/Either'
import { flow, pipe } from 'fp-ts/function'
import { fst } from 'fp-ts/Tuple'
import * as ev from './eval'
import { parser } from './parser'
import { index, ListExpr } from './types'
const toSourceString = (r: string | RegExp): string =>
typeof r === 'string' ? r : r.source
export const liexp: (r: string | RegExp) => ListExpr = flow(
toSourceString,
parser,
Either.map(fst),
Either.getOrElseW(([e, _]) => {
throw new Error(e)
}),
)
export const matchAll = <T>(exp: string | RegExp, list: T[]) =>
pipe(exp, liexp, lxp => ev.matchAll(lxp, list))
export const replaceAll = <T>(exp: string | RegExp, replacer: (v: T, m: ev.MatchGroupIndexed<T>, i: index) => T[], list: T[]) =>
pipe(exp, liexp, lxp => ev.replaceAll(lxp, replacer, list))
|
