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

Revert "regexp: slightly more complicated tokenization to handle another case." 

This reverts commit 9f0bce7622.
windows-drag
John Benediktsson 2019-03-18 10:42:29 -07:00
parent 1ab1ef7f68
commit 6339558368
1 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
basis/regexp/regexp.factor
View File

@ -197,27 +197,11 @@ PRIVATE>
<PRIVATE
:: (take-until) ( col line end -- col' line )
"\\" end suffix :> tokens
col line [
[ [ tokens member? ] find-from ] keep swap [
CHAR: \ = [ [ 2 + ] dip t ] [ [ 1 + ] dip f ] if
] [
"Unterminated regexp" throw
] if*
] loop ;
:: take-until ( lexer -- string )
lexer skip-blank
lexer [
: take-until ( lexer -- string )
dup skip-blank [
dupd [
[ [ "[(\\/" member? ] find-from ] keep swap [
{
{ CHAR: [ [ CHAR: ] (take-until) t ] }
{ CHAR: ( [ CHAR: ) (take-until) t ] }
{ CHAR: \ [ [ 2 + ] dip t ] }
{ CHAR: / [ f ] }
} case
[ [ "\\/" member? ] find-from ] keep swap [
CHAR: \ = [ [ 2 + ] dip t ] [ f ] if
] [
"Unterminated regexp" throw
] if*