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 ; [ store-prev-attribute ] cons reverse [ "current-attribute" set ] append create-word ;
! Define some closed HTML tags ! 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 ! Define some open HTML tags
[ [ "input" "br" "link" ] [ define-open-html-word ] each
"input"
"br"
"link"
] [ define-open-html-word ] each
! Define some attributes ! Define some attributes
[ [
"method" "action" "type" "value" "name" "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
"size" "href" "class" "border" "rows" "cols"
"id" "onclick" "style" "valign" "accesskey"
"src" "language" "colspan" "onchange" "rel"
"width"
] [ define-attribute-word ] each