There is one small change that needs to be made to this function.
If you do the following the problem becomes obvious.
a: xml-maker [ 'red 1.21.3 ]
== [ 1.21.3 ]
>> a: xml-maker [ 'red 1.21.3 ]
== [ 1.21.3 1.21.3 ]
>> a: xml-maker [ 'red 1.21.3 ]
== [ 1.21.3 1.21.3 1.21.3 ]
The ouput-bloc
SCOTT,
thanks for fixing this oversight on my behalf,
an example of the list in action "at it's best"
cheers again,
Mark Dickson
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
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 pi
[EMAIL PROTECTED] wrote:
>
> ANDREW,
>
> here's a quickly knocked up function to make XML from a block of REBOL values.
>
> Note the value block should contain 'tag 'value 'tag2 'value2 etc etc.
>
> anyway here's the func.
>
> xml-maker: func [ block [block!]] [
>
> if not even? (length? blo