factor/extra/regexp2/backend/backend.factor

26 lines
581 B
Factor
Raw Normal View History

! 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
2008-08-21 18:12:26 -04:00
{ 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
2008-08-21 18:55:25 -04:00
H{ } clone >>options
H{ } clone >>visited-states ;
SYMBOL: current-regexp