[REBOL] Re: disappearing data?
From: rchristiansen:pop:isdfa:sei-it at: 10-Nov-2000 18:34
Why is the translate-message/markup-data function "reusable" in the
following code....
translate-message: make object! [
markup-data: func [
data [object!]
][
xml-tags: [
["author" "/author"]
["subject" "/subject"]
["date" "/date"]
["content" "/content"]
["messageID" "/messageID"]
]
data-object: make data []
object-data: next first data-object
output: ""
for x 1 (length? xml-tags) 1 [
item: reform [rejoin ["data-object" "/" (first object-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
]
]
]
BUT not in the following code...
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 object-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
]
]
]
-Ryan
