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

Fix cont-html to work with new word defining words.

cvs
Chris Double 2004-08-19 23:46:14 +00:00
parent 1baa702d3b
commit 50408f1bcc
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,10 +137,10 @@ USE: logic
! : href= ( n: <namespace> optional-value -- ) ! : href= ( n: <namespace> optional-value -- )
! store-prev-attribute "href" "current-attribute" set ; ! store-prev-attribute "href" "current-attribute" set ;
: define-compound ( vocab name def -- ) : create-word ( vocab name def -- )
#! Define 'word creating' word to allow #! Define 'word creating' word to allow
#! dynamically creating words. #! dynamically creating words.
>r 2dup swap create r> <compound> define ; >r swap create r> define-compound ;
: def-for-html-word-<foo> ( name -- name quot ) : def-for-html-word-<foo> ( name -- name quot )
#! Return the name and code for the <foo> patterned #! Return the name and code for the <foo> patterned
@ -176,22 +176,22 @@ USE: logic
#! Given an HTML tag name, define the words for #! Given an HTML tag name, define the words for
#! that closable HTML tag. #! that closable HTML tag.
"cont-html" swap "cont-html" swap
2dup def-for-html-word-<foo> define-compound 2dup def-for-html-word-<foo> create-word
2dup def-for-html-word-<foo define-compound 2dup def-for-html-word-<foo create-word
2dup def-for-html-word-foo> define-compound 2dup def-for-html-word-foo> create-word
def-for-html-word-</foo> define-compound ; def-for-html-word-</foo> create-word ;
: define-open-html-word ( name -- ) : define-open-html-word ( name -- )
#! Given an HTML tag name, define the words for #! Given an HTML tag name, define the words for
#! that open HTML tag. #! that open HTML tag.
"cont-html" swap "cont-html" swap
2dup def-for-html-word-<foo/> define-compound 2dup def-for-html-word-<foo/> create-word
2dup def-for-html-word-<foo define-compound 2dup def-for-html-word-<foo create-word
def-for-html-word-foo/> define-compound ; def-for-html-word-foo/> create-word ;
: define-attribute-word ( name -- ) : define-attribute-word ( name -- )
"cont-html" swap dup "=" cat2 swap "cont-html" swap dup "=" cat2 swap
[ store-prev-attribute ] cons reverse [ "current-attribute" set ] append define-compound ; [ store-prev-attribute ] cons reverse [ "current-attribute" set ] append create-word ;
! Define some closed HTML tags ! Define some closed HTML tags
[ [