factor/extra/regexp2/backend/backend.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