[REBOL] Re: XML-Maker Function!
From: gjones05:mail:orion at: 12-Feb-2001 6:54
Modified (for proper closing tag) xml-maker function from Mark:
xml-maker: func [ block [block!]] [
if not even? (length? block) [ make error! "Imbalance Between Tags &
Values"]
block: reduce block
output-block: []
count: (length? block) / 2
loop count [
tag: to-tag pick block 1
end-tag: to-tag join "/" pick block 1
block: next block
value: pick block 1
block: next block
append output-block reduce [tag value end-tag]
]
return output-block
]
--Scott