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

workaround for native factor bug in processing lists

cvs
Chris Double 2004-08-20 00:02:01 +00:00
parent 2806da7eed
commit 0ad8cb57d7
1 changed files with 3 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
contrib/cont-responder/cont-html.factor
View File

@ -194,25 +194,11 @@ USE: logic
[ store-prev-attribute ] cons reverse [ "current-attribute" set ] append create-word ;
! Define some closed HTML tags
[
"h1" "h2" "h3" "h4" "h5" "h6" "h7" "h8" "h9"
"ol" "li" "form" "a" "p" "html" "head" "body" "title"
"b" "i" "ul" "table" "tr" "td" "th" "pre" "textarea"
"script" "div" "span" "select" "option"
] [ define-closed-html-word ] each
[ "h1" "h2" "h3" "h4" "h5" "h6" "h7" "h8" "h9" "ol" "li" "form" "a" "p" "html" "head" "body" "title" "b" "i" "ul" "table" "tr" "td" "th" "pre" "textarea" "script" "div" "span" "select" "option" ] [ define-closed-html-word ] each
! Define some open HTML tags
[
"input"
"br"
"link"
] [ define-open-html-word ] each
[ "input" "br" "link" ] [ define-open-html-word ] each
! Define some attributes
[
"method" "action" "type" "value" "name"
"size" "href" "class" "border" "rows" "cols"
"id" "onclick" "style" "valign" "accesskey"
"src" "language" "colspan" "onchange" "rel"
"width"
] [ define-attribute-word ] each
"method" "action" "type" "value" "name" "size" "href" "class" "border" "rows" "cols" "id" "onclick" "style" "valign" "accesskey" "src" "language" "colspan" "onchange" "rel" "width"] [ define-attribute-word ] each