Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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