src/index.ts


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

import { getOrElseW, map } from 'fp-ts/lib/Either'
import { flow, pipe } from 'fp-ts/lib/function'
import { fst } from 'fp-ts/lib/Tuple'
import * as ev from './eval'
import { parser } from './parser'
import { 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,
  map(fst),
  getOrElseW(([e, _]) => {
    throw new Error(e)
  }),
)

export const matchAll = <T>(exp: string | RegExp, list: T[]) =>
  pipe(exp, liexp, lxp => ev.matchAll(lxp, list))