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

make html.parser words private

db4
Doug Coleman 2009-04-01 12:48:51 -05:00
parent 9ecf8ec3db
commit 28dae46b7d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/html/parser/parser.factor
View File

@ -11,6 +11,9 @@ TUPLE: tag name attributes text closing? ;
SINGLETON: text SINGLETON: text
SINGLETON: dtd SINGLETON: dtd
SINGLETON: comment SINGLETON: comment
<PRIVATE
SYMBOL: tagstack SYMBOL: tagstack
: push-tag ( tag -- ) : push-tag ( tag -- )
@ -118,5 +121,7 @@ SYMBOL: tagstack
: tag-parse ( quot -- vector ) : tag-parse ( quot -- vector )
V{ } clone tagstack [ state-parse ] with-variable ; inline V{ } clone tagstack [ state-parse ] with-variable ; inline
PRIVATE>
: parse-html ( string -- vector ) : parse-html ( string -- vector )
[ (parse-html) tagstack get ] tag-parse ; [ (parse-html) tagstack get ] tag-parse ;