26 lines
581 B
Factor
26 lines
581 B
Factor
! Copyright (C) 2008 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors hashtables kernel math state-tables vars vectors ;
|
|
IN: regexp2.backend
|
|
|
|
TUPLE: regexp
|
|
raw
|
|
{ stack vector }
|
|
parse-tree
|
|
{ options hashtable }
|
|
nfa-table
|
|
dfa-table
|
|
minimized-table
|
|
{ state integer }
|
|
{ new-states vector }
|
|
{ visited-states hashtable } ;
|
|
|
|
: reset-regexp ( regexp -- regexp )
|
|
0 >>state
|
|
V{ } clone >>stack
|
|
V{ } clone >>new-states
|
|
H{ } clone >>options
|
|
H{ } clone >>visited-states ;
|
|
|
|
SYMBOL: current-regexp
|