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

Fix usings and vocab names

release
Doug Coleman 2007-12-04 14:14:33 -06:00
parent e2acf8c386
commit 4ac3b181f0
6 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/html/parser/analyzer/analyzer.factor
View File

@ -1,5 +1,5 @@
USING: assocs http.parser kernel math sequences strings ; USING: assocs html.parser kernel math sequences strings ;
IN: http.parser.analyzer IN: html.parser.analyzer
: remove-blank-text ( vector -- vector' ) : remove-blank-text ( vector -- vector' )
[ [

2
extra/html/parser/parser-tests.factor
View File

@ -1,4 +1,4 @@
USING: browser.parser kernel tools.test ; USING: html.parser kernel tools.test ;
IN: temporary IN: temporary
[ [

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

@ -1,7 +1,7 @@
USING: arrays http.parser.utils hashtables io kernel USING: arrays html.parser.utils hashtables io kernel
namespaces prettyprint quotations namespaces prettyprint quotations
sequences splitting state-parser strings ; sequences splitting state-parser strings ;
IN: http.parser IN: html.parser
TUPLE: tag name attributes text matched? closing? ; TUPLE: tag name attributes text matched? closing? ;

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

@ -1,9 +1,9 @@
USING: assocs http.parser browser.utils combinators USING: assocs html.parser html.utils combinators
continuations hashtables continuations hashtables
hashtables.private io kernel math hashtables.private io kernel math
namespaces prettyprint quotations sequences splitting namespaces prettyprint quotations sequences splitting
state-parser strings ; state-parser strings ;
IN: http.parser.printer IN: html.parser.printer
SYMBOL: no-section SYMBOL: no-section
SYMBOL: html SYMBOL: html
@ -68,7 +68,6 @@ M: printer print-closing-named-tag ( tag -- )
swap bl write "=" write ?quote write swap bl write "=" write ?quote write
] assoc-each ; ] assoc-each ;
M: src-printer print-opening-named-tag ( tag -- ) M: src-printer print-opening-named-tag ( tag -- )
"<" write "<" write
dup tag-name write dup tag-name write

2
extra/html/parser/utils/utils-tests.factor
View File

@ -2,7 +2,7 @@ USING: assocs combinators continuations hashtables
hashtables.private io kernel math hashtables.private io kernel math
namespaces prettyprint quotations sequences splitting namespaces prettyprint quotations sequences splitting
state-parser strings tools.test ; state-parser strings tools.test ;
USING: browser.utils ; USING: html.utils ;
IN: temporary IN: temporary
[ "'Rome'" ] [ "Rome" single-quote ] unit-test [ "'Rome'" ] [ "Rome" single-quote ] unit-test

4
extra/html/parser/utils/utils.factor
View File

@ -2,8 +2,8 @@ USING: assocs circular combinators continuations hashtables
hashtables.private io kernel math hashtables.private io kernel math
namespaces prettyprint quotations sequences splitting namespaces prettyprint quotations sequences splitting
state-parser strings ; state-parser strings ;
USING: http.parser ; USING: html.parser ;
IN: http.parser.utils IN: html.parser.utils
: string-parse-end? : string-parse-end?
get-next not ; get-next not ;