steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

revert change to lookahead, parse negative lookahead correctly

db4
Doug Coleman 2008-08-27 15:27:54 -05:00
parent abe2eb462f
commit ae8254c0fd
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
unfinished/regexp2/dfa/dfa.factor
View File

@ -42,7 +42,7 @@ IN: regexp2.dfa
dupd pop dup pick find-transitions rot
[
[ [ find-closure ] 2keep nip dupd add-todo-state ] 3keep
>r swapd f transition boa r> dfa-table>> add-transition
>r swapd transition boa r> dfa-table>> add-transition
] curry with each
new-transitions
] if-empty ;

4
unfinished/regexp2/nfa/nfa.factor
View File

@ -30,10 +30,10 @@ GENERIC: nfa-node ( node -- )
stack [ regexp stack>> ]
table [ regexp nfa-table>> ] |
negated? [
s0 f obj f class boa table add-transition
s0 f obj class boa table add-transition
s0 s1 <default-transition> table add-transition
] [
s0 s1 obj f class boa table add-transition
s0 s1 obj class boa table add-transition
] if
s0 s1 2array stack push
t s1 table final-states>> set-at ] ;

2
unfinished/regexp2/parser/parser.factor
View File

@ -155,7 +155,7 @@ DEFER: nested-parse-regexp
[ drop nested-parse-regexp pop-stack make-non-capturing-group ] }
{ [ dup CHAR: = = ]
[ drop nested-parse-regexp pop-stack make-positive-lookahead ] }
{ [ dup CHAR: = = ]
{ [ dup CHAR: ! = ]
[ drop nested-parse-regexp pop-stack make-negative-lookahead ] }
{ [ dup CHAR: > = ]
[ drop nested-parse-regexp pop-stack make-independent-group ] }

8
unfinished/regexp2/transition-tables/transition-tables.factor
View File

@ -14,7 +14,7 @@ IN: regexp2.transition-tables
: ?insert-at ( value key hash/f -- hash )
[ H{ } clone ] unless* [ insert-at ] keep ;
TUPLE: transition from to obj lookahead ;
TUPLE: transition from to obj ;
TUPLE: literal-transition < transition ;
TUPLE: class-transition < transition ;
TUPLE: default-transition < transition ;
@ -23,11 +23,11 @@ TUPLE: literal obj ;
TUPLE: class obj ;
TUPLE: default ;
: <literal-transition> ( from to obj -- transition )
f literal-transition boa ;
literal-transition boa ;
: <class-transition> ( from to obj -- transition )
f class-transition boa ;
class-transition boa ;
: <default-transition> ( from to -- transition )
t f default-transition boa ;
t default-transition boa ;
TUPLE: transition-table transitions
literals classes defaults