37 lines
855 B
Factor
37 lines
855 B
Factor
|
IN: ref-template
|
||
|
|
USING: kernel xml sequences hashtables tools io arrays namespaces generic ;
|
||
|
|
|
||
|
|
SYMBOL: ref-table
|
||
|
|
|
||
|
|
: replace-ref ( ref -- object )
|
||
|
|
reference-name ref-table get hash call ;
|
||
|
|
|
||
|
|
: r-ref-string ( xml-string -- xml-string )
|
||
|
|
xml-string-array [
|
||
|
|
dup reference? [ replace-ref ] when
|
||
|
|
] map <xml-string> ;
|
||
|
|
|
||
|
|
GENERIC: (r-ref) ( xml -- object )
|
||
|
|
M: any-tag (r-ref)
|
||
|
|
dup tag-props dup [
|
||
|
|
dup [ r-ref-string swap set ] hash-each
|
||
|
|
] bind over set-tag-props ;
|
||
|
|
M: reference (r-ref)
|
||
|
|
replace-ref ;
|
||
|
|
M: object (r-ref) ;
|
||
|
|
|
||
|
|
: replace-refs ( xml -- xml )
|
||
|
|
[ (r-ref) ] xml-map ;
|
||
|
|
|
||
|
|
! Example
|
||
|
|
|
||
|
|
: test-refs
|
||
|
|
H{
|
||
|
|
{ "foo" [ "foo" ] }
|
||
|
|
{ "bar" [ [ .s ] string-out ] }
|
||
|
|
{ "baz" [ "<a/>" string>xml delegate ] }
|
||
|
|
} ref-table set
|
||
|
|
"<x>%foo;<y prop='blah%foo;'>%bar;</y>%baz;</x>" string>xml
|
||
|
|
replace-refs ;
|
||
|
|
|