compile-regexp ( regex -- regexp )

Vocabulary

regexp.private

Inputs

regex

an object

Outputs

regexp

an object

Definition

IN: regexp.private

GENERIC: compile-regexp ( regex -- regexp )

Methods

USING: accessors kernel regexp regexp.compiler regexp.negation
regexp.private ;

M: regexp compile-regexp
    dup [ [ drop ] ] dip [ get-ast ast>dfa dfa>word ] curry
    compose [ [ dup \ regexp-initial-word = ] ] dip
    [ when ] curry compose change-dfa ;


USING: generic namespaces regexp regexp.compiler regexp.private
;

M: reverse-regexp compile-regexp
    t backwards?
    [ M\ reverse-regexp compile-regexp (call-next-method) ]
    with-variable ;