[REBOL] disappearing data?
From: rchristiansen:pop:isdfa:sei-it at: 10-Nov-2000 18:09
I've created an object with a function which converts data in another
object into XML. But the function will only work ONCE. Why? Here is
the console session...
>> translate-message: make object! [
[
[ xml-tags: [
[ ["author" "/author"]
[ ["subject" "/subject"]
[ ["date" "/date"]
[ ["content" "/content"]
[ ["messageID" "/messageID"]
[ ]
[
[ markup-data: func [
[ data [object!]
[ ][
[ data-object: make data []
[ object-data: next first data-object
[ output: ""
[ for x 1 (length? xml-tags) 1 [
[ item: reform [rejoin ["data-object" "/" (first o
bject-data)]]
[ made-tag: rejoin ["" (build-tag [(xml-tags/1/1)]
) (do item) (build-tag [(xml-tags/1/2)])]
[ xml-tags: next xml-tags
[ object-data: next object-data
[ append output made-tag
[ output
[ ]
[ ]
[ ]
>>
>>
>>
>>
>> message: make object! [
[ author: "Ryan C. Christiansen"
[ subject: "This is the Subject of the Message"
[ date: 27-Oct-2000/17:27:43-5:00
[ content: {This is the main body of the message}
[ messageID: 20001027172734
[ ]
>>
>>
>>
>>
>> translate-message/markup-data message
== {<author>Ryan C. Christiansen</author><subject>This is the
Subject of
the Message</subject><date>27-Oct-2000/17:27:43-5:00</date...
>> translate-message/markup-data message
== none