(range-pattern) ( pattern -- string )

Vocabulary

peg.parsers

Inputs

pattern

an object

Outputs

string

an object

Definition

USING: kernel make peg peg.search ranges sequences strings ;

IN: peg.parsers

: (range-pattern) ( pattern -- string )
    [ any-char , [ 45 = ] satisfy hide , any-char , ] seq*
    [ first2 [a..b] >string ] action peg-replace ;