! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors hashtables kernel math state-tables vars vectors ;
IN: regexp.backend

TUPLE: regexp
    raw
    { stack vector }
    parse-tree
    { options hashtable }
    nfa-table
    dfa-table
    minimized-table
    { nfa-traversal-flags hashtable }
    { dfa-traversal-flags hashtable }
    { state integer }
    { new-states vector }
    { visited-states hashtable } ;

: reset-regexp ( regexp -- regexp )
    0 >>state
    V{ } clone >>stack
    V{ } clone >>new-states
    H{ } clone >>visited-states ;

SYMBOL: current-regexp