Data commit

Task/XML-Output/00-META.yaml

@@ -0,0 +1,3 @@
+---
+from: http://rosettacode.org/wiki/XML/Output
+note: XML

Task/XML-Output/00-TASK.txt

@@ -0,0 +1,28 @@
+Create a function that takes a list of character names and a list of corresponding remarks and returns an XML document of <code><Character></code> elements each with a name attributes and each enclosing its remarks. 
+All <code><Character></code> elements are to be enclosed in turn, in an outer <code><CharacterRemarks></code> element. 
+
+As an example, calling the function with the three names of: 
+<pre>
+April
+Tam O'Shanter
+Emily</pre>
+And three remarks of:
+<pre>
+Bubbly: I'm > Tam and <= Emily
+Burns: "When chapman billies leave the street ..."
+Short & shrift</pre>
+Should produce the XML (but not necessarily with the indentation):
+<syntaxhighlight lang="xml"><CharacterRemarks>
+    <Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+    <Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+    <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks></syntaxhighlight>
+
+The document may include an <tt><?xml?></tt> declaration and document type declaration, but these are optional. If attempting this task by direct string manipulation, the implementation ''must'' include code to perform entity substitution for the characters that have entities defined in the XML 1.0 specification.
+
+Note: the example is chosen to show correct escaping of XML strings.
+Note too that although the task is written to take two lists of corresponding data, a single mapping/hash/dictionary of names to remarks is also acceptable.
+
+'''Note to editors:''' Program output with escaped characters will be viewed as the character on the page so you need to 'escape-the-escapes' to make the RC entry display what would be shown in a plain text viewer (See [[Talk:XML_Creation#Escaping_Escapes|this]]). 
+Alternately, output can be placed in <nowiki><syntaxhighlight lang="xml"></syntaxhighlight></nowiki> tags without any special treatment.
+

Task/XML-Output/AArch64-Assembly/xml-output.aarch64

@@ -0,0 +1,166 @@
+/* ARM assembly AARCH64 Raspberry PI 3B */
+/*  program outputXml64.s   */
+/* use special library libxml2   */
+/* special link gcc with options -I/usr/include/libxml2 -lxml2 */
+
+/*******************************************/
+/* Constantes file                         */
+/*******************************************/
+/* for this file see task include a file in language AArch64 assembly*/
+.include "../includeConstantesARM64.inc"
+
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessEndpgm:      .asciz "Normal end of program.\n"
+szFileName:        .asciz "file2.xml"
+szFileMode:        .asciz "w"
+szMessError:       .asciz "Error detected !!!!. \n"
+szName1:           .asciz "April"
+szName2:           .asciz "Tam O'Shanter"
+szName3:           .asciz "Emily"
+szRemark1:         .asciz "Bubbly: I'm > Tam and <= Emily"
+szRemark2:         .asciz "Burns: \"When chapman billies leave the street ...\""
+szRemark3:         .asciz "Short & shrift"
+szVersDoc:         .asciz "1.0"
+szLibCharRem:      .asciz "CharacterRemarks"
+szLibChar:         .asciz "Character"
+
+szLibName:         .asciz "Name"
+szCarriageReturn:  .asciz "\n"
+
+tbNames:           .quad szName1              // area of pointer string name
+                   .quad szName2
+                   .quad szName3
+                   .quad 0                    // area end
+tbRemarks:         .quad szRemark1            // area of pointer string remark
+                   .quad szRemark2
+                   .quad szRemark3
+                   .quad 0                    // area end
+/*********************************/
+/* UnInitialized data            */
+/*********************************/
+.bss
+.align 4
+
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+main:                                     // entry of program
+    ldr x0,qAdrszVersDoc
+    bl xmlNewDoc                          // create doc
+    mov x19,x0                            // doc address
+    mov x0,#0
+    ldr x1,qAdrszLibCharRem
+    bl xmlNewNode                         // create root node
+    mov x20,x0                            // node characterisation address
+    mov x0,x19                            // doc
+    mov x1,x20                            // node root
+    bl xmlDocSetRootElement
+    ldr x22,qAdrtbNames
+    ldr x23,qAdrtbRemarks
+    mov x24,#0                            // loop counter
+1:                                        // start loop
+    mov x0,#0
+    ldr x1,qAdrszLibChar                  // create node
+    bl xmlNewNode
+    mov x21,x0                            // node character
+                                          // x0 = node address
+    ldr x1,qAdrszLibName
+    ldr x2,[x22,x24,lsl #3]               // load name string address
+    bl xmlNewProp
+    ldr x0,[x23,x24,lsl #3]               // load remark string address
+    bl xmlNewText
+    mov x1,x0
+    mov x0,x21
+    bl xmlAddChild
+    mov x0,x20
+    mov x1,x21
+    bl xmlAddChild
+    add x24,x24,#1
+    ldr x2,[x22,x24,lsl #3]                // load name string address
+    cmp x2,#0                              // = zero ?
+    bne 1b                                 // no -> loop
+
+    ldr x0,qAdrszFileName
+    ldr x1,qAdrszFileMode
+    bl fopen                               // file open
+    cmp x0,#0
+    blt 99f
+    mov x24,x0                              //FD
+    mov x1,x19
+    mov x2,x20
+    bl xmlDocDump                          // write doc on the file
+
+    mov x0,x24                             // close file
+    bl fclose
+    mov x0,x19                             // close document
+    bl xmlFreeDoc
+    bl xmlCleanupParser
+    ldr x0,qAdrszMessEndpgm
+    bl affichageMess
+    b 100f
+99:                                        // error
+    ldr x0,qAdrszMessError
+    bl affichageMess
+100:                                       // standard end of the program
+    mov x0,0                               // return code
+    mov x8,EXIT                            // request to exit program
+    svc 0                                  // perform the system call
+
+qAdrszMessError:          .quad szMessError
+qAdrszMessEndpgm:         .quad szMessEndpgm
+qAdrszVersDoc:            .quad szVersDoc
+qAdrszLibCharRem:         .quad szLibCharRem
+qAdrszLibChar:            .quad szLibChar
+qAdrszLibName:            .quad szLibName
+qAdrtbNames:              .quad tbNames
+qAdrtbRemarks:            .quad tbRemarks
+qAdrszCarriageReturn:     .quad szCarriageReturn
+qStdout:                  .quad STDOUT
+qAdrszFileName:           .quad szFileName
+qAdrszFileMode:           .quad szFileMode
+
+/************************************/
+/* Strings comparaison              */
+/************************************/
+/* x0 et x1 contains strings addresses */
+/* x0 return 0 dans x0 if equal */
+/* return -1 if string x0 < string x1 */
+/* return 1  if string x0 > string x1 */
+comparString:
+    stp x2,lr,[sp,-16]!            // save  registers
+    stp x3,x4,[sp,-16]!            // save  registers
+    mov x2,#0                   // indice
+1:
+    ldrb w3,[x0,x2]             // one byte string 1
+    ldrb w4,[x1,x2]             // one byte string 2
+    cmp w3,w4
+    blt 2f                      // less
+    bgt 3f                      // greather
+    cmp w3,#0                   // 0 final
+    beq 4f                      // equal and end
+    add x2,x2,#1                //
+    b 1b                        // else loop
+2:
+    mov x0,#-1                  // less
+    b 100f
+3:
+    mov x0,#1                   // greather
+    b 100f
+4:
+    mov x0,#0                   // equal
+    b 100f
+100:
+    ldp x3,x4,[sp],16           // restaur  2 registers
+    ldp x2,lr,[sp],16           // restaur  2 registers
+    ret                         // return to address lr x30
+
+/********************************************************/
+/*        File Include fonctions                        */
+/********************************************************/
+/* for this file see task include a file in language AArch64 assembly */
+.include "../includeARM64.inc"

Task/XML-Output/ALGOL-68/xml-output-1.alg

@@ -0,0 +1,46 @@
+# returns a translation of str suitable for attribute values and content in an XML document #
+OP  TOXMLSTRING = ( STRING str )STRING:
+    BEGIN
+        STRING result := "";
+        FOR pos FROM LWB str TO UPB str DO
+            CHAR c = str[ pos ];
+            result +:= IF   c = "<"   THEN "&lt;"
+                       ELIF c = ">"   THEN "&gt;"
+                       ELIF c = "&"   THEN "&amp;"
+                       ELIF c = "'"   THEN "&apos;"
+                       ELIF c = """"  THEN "&quot;"
+                       ELSE c
+                       FI
+        OD;
+        result
+    END; # TOXMLSTRING #
+
+# generate a CharacterRemarks XML document from the characters and remarks #
+# the number of elements in characters and remrks must be equal - this is not checked #
+# the <?xml?> element is not generated #
+PROC generate character remarks document = ( []STRING characters, remarks )STRING:
+     BEGIN
+         STRING result     := "<CharacterRemarks>";
+         INT    remark pos := LWB remarks;
+         FOR char pos FROM LWB characters TO UPB characters DO
+             result +:= "<Character name=""" + TOXMLSTRING characters[ char pos ] + """>"
+                      + TOXMLSTRING remarks[ remark pos ]
+                      + "</Character>"
+                      + REPR 10
+                      ;
+             remark pos +:= 1
+         OD;
+         result +:= "</CharacterRemarks>";
+         result
+     END; # generate character remarks document #
+
+# test the generation #
+print( ( generate character remarks document( ( "April", "Tam O'Shanter", "Emily" )
+                                            , ( "Bubbly: I'm > Tam and <= Emily"
+                                              , "Burns: ""When chapman billies leave the street ..."
+                                              , "Short & shrift"
+                                              )
+                                            )
+        , newline
+        )
+      )

Task/XML-Output/ALGOL-68/xml-output-2.alg

@@ -0,0 +1,4 @@
+<CharacterRemarks><Character name="April">Bubbly: I&apos;m &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O&apos;Shanter">Burns: &quot;When chapman billies leave the street ...</Character>
+<Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/ARM-Assembly/xml-output.arm

@@ -0,0 +1,200 @@
+/* ARM assembly Raspberry PI  */
+/*  program outputXml.s   */
+
+/* Constantes    */
+.equ STDOUT, 1     @ Linux output console
+.equ EXIT,   1     @ Linux syscall
+.equ WRITE,  4     @ Linux syscall
+
+
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessEndpgm:      .asciz "Normal end of program.\n"
+szFileName:        .asciz "file2.xml"
+szFileMode:        .asciz "w"
+szMessError:       .asciz "Error detected !!!!. \n"
+szName1:           .asciz "April"
+szName2:           .asciz "Tam O'Shanter"
+szName3:           .asciz "Emily"
+szRemark1:         .asciz "Bubbly: I'm > Tam and <= Emily"
+szRemark2:         .asciz "Burns: \"When chapman billies leave the street ...\""
+szRemark3:         .asciz "Short & shrift"
+szVersDoc:         .asciz "1.0"
+szLibCharRem:      .asciz "CharacterRemarks"
+szLibChar:         .asciz "Character"
+
+//szLibExtract:    .asciz "Student"
+szLibName:         .asciz "Name"
+szCarriageReturn:  .asciz "\n"
+
+tbNames:           .int szName1              @ area of pointer string name
+                   .int szName2
+                   .int szName3
+                   .int 0                    @ area end
+tbRemarks:         .int szRemark1            @ area of pointer string remark
+                   .int szRemark2
+                   .int szRemark3
+                   .int 0                    @ area end
+/*********************************/
+/* UnInitialized data            */
+/*********************************/
+.bss
+.align 4
+
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+main:                                     @ entry of program
+    ldr r0,iAdrszVersDoc
+    bl xmlNewDoc                          @ create doc
+    mov r9,r0                             @ doc address
+    mov r0,#0
+    ldr r1,iAdrszLibCharRem
+    bl xmlNewNode                         @ create root node
+    mov r8,r0                             @ node characterisation address
+    mov r0,r9                             @ doc
+    mov r1,r8                             @ node root
+    bl xmlDocSetRootElement
+    ldr r4,iAdrtbNames
+    ldr r5,iAdrtbRemarks
+    mov r6,#0                             @ loop counter
+1:                                        @ start loop
+    mov r0,#0
+    ldr r1,iAdrszLibChar                  @ create node
+    bl xmlNewNode
+    mov r7,r0                             @ node character
+                                          @ r0 = node address
+    ldr r1,iAdrszLibName
+    ldr r2,[r4,r6,lsl #2]                 @ load name string address
+    bl xmlNewProp
+    ldr r0,[r5,r6,lsl #2]                 @ load remark string address
+    bl xmlNewText
+    mov r1,r0
+    mov r0,r7
+    bl xmlAddChild
+    mov r0,r8
+    mov r1,r7
+    bl xmlAddChild
+    add r6,#1
+    ldr r2,[r4,r6,lsl #2]                  @ load name string address
+    cmp r2,#0                              @ = zero ?
+    bne 1b                                 @ no -> loop
+
+    ldr r0,iAdrszFileName
+    ldr r1,iAdrszFileMode
+    bl fopen                               @ file open
+    cmp r0,#0
+    blt 99f
+    mov r6,r0                              @FD
+    mov r1,r9
+    mov r2,r8
+    bl xmlDocDump                          @ write doc on the file
+
+    mov r0,r6
+    bl fclose
+    mov r0,r9
+    bl xmlFreeDoc
+    bl xmlCleanupParser
+    ldr r0,iAdrszMessEndpgm
+    bl affichageMess
+    b 100f
+99:
+    @ error
+    ldr r0,iAdrszMessError
+    bl affichageMess
+100:                                       @ standard end of the program
+    mov r0, #0                             @ return code
+    mov r7, #EXIT                          @ request to exit program
+    svc #0                                 @ perform the system call
+
+iAdrszMessError:          .int szMessError
+iAdrszMessEndpgm:         .int szMessEndpgm
+iAdrszVersDoc:            .int szVersDoc
+iAdrszLibCharRem:         .int szLibCharRem
+iAdrszLibChar:            .int szLibChar
+iAdrszLibName:            .int szLibName
+iAdrtbNames:              .int tbNames
+iAdrtbRemarks:            .int tbRemarks
+iAdrszCarriageReturn:     .int szCarriageReturn
+iStdout:                  .int STDOUT
+iAdrszFileName:           .int szFileName
+iAdrszFileMode:           .int szFileMode
+/******************************************************************/
+/*     display text with size calculation                         */
+/******************************************************************/
+/* r0 contains the address of the message */
+affichageMess:
+    push {r0,r1,r2,r7,lr}                   @ save  registres
+    mov r2,#0                               @ counter length
+1:                                          @ loop length calculation
+    ldrb r1,[r0,r2]                         @ read octet start position + index
+    cmp r1,#0                               @ if 0 its over
+    addne r2,r2,#1                          @ else add 1 in the length
+    bne 1b                                  @ and loop
+                                            @ so here r2 contains the length of the message
+    mov r1,r0                               @ address message in r1
+    mov r0,#STDOUT                          @ code to write to the standard output Linux
+    mov r7, #WRITE                          @ code call system "write"
+    svc #0                                  @ call systeme
+    pop {r0,r1,r2,r7,lr}                    @ restaur registers */
+    bx lr                                   @ return
+/******************************************************************/
+/*     Converting a register to a decimal                                 */
+/******************************************************************/
+/* r0 contains value and r1 address area   */
+.equ LGZONECAL,   10
+conversion10:
+    push {r1-r4,lr}                         @ save registers
+    mov r3,r1
+    mov r2,#LGZONECAL
+1:                                          @ start loop
+    bl divisionpar10                        @ r0 <- dividende. quotient ->r0 reste -> r1
+    add r1,#48                              @ digit
+    strb r1,[r3,r2]                         @ store digit on area
+    cmp r0,#0                               @ stop if quotient = 0
+    subne r2,#1                               @ previous position
+    bne 1b                                  @ else loop
+                                            @ end replaces digit in front of area
+    mov r4,#0
+2:
+    ldrb r1,[r3,r2]
+    strb r1,[r3,r4]                         @ store in area begin
+    add r4,#1
+    add r2,#1                               @ previous position
+    cmp r2,#LGZONECAL                       @ end
+    ble 2b                                  @ loop
+    mov r1,#' '
+3:
+    strb r1,[r3,r4]
+    add r4,#1
+    cmp r4,#LGZONECAL                       @ end
+    ble 3b
+100:
+    pop {r1-r4,lr}                          @ restaur registres
+    bx lr                                   @return
+/***************************************************/
+/*   division par 10   signé                       */
+/* Thanks to http://thinkingeek.com/arm-assembler-raspberry-pi/*
+/* and   http://www.hackersdelight.org/            */
+/***************************************************/
+/* r0 dividende   */
+/* r0 quotient */
+/* r1 remainder  */
+divisionpar10:
+  /* r0 contains the argument to be divided by 10 */
+    push {r2-r4}                           @ save registers  */
+    mov r4,r0
+    mov r3,#0x6667                         @ r3 <- magic_number  lower
+    movt r3,#0x6666                        @ r3 <- magic_number  upper
+    smull r1, r2, r3, r0                   @ r1 <- Lower32Bits(r1*r0). r2 <- Upper32Bits(r1*r0)
+    mov r2, r2, ASR #2                     @ r2 <- r2 >> 2
+    mov r1, r0, LSR #31                    @ r1 <- r0 >> 31
+    add r0, r2, r1                         @ r0 <- r2 + r1
+    add r2,r0,r0, lsl #2                   @ r2 <- r0 * 5
+    sub r1,r4,r2, lsl #1                   @ r1 <- r4 - (r2 * 2)  = r4 - (r0 * 10)
+    pop {r2-r4}
+    bx lr                                  @ return

Task/XML-Output/Action-/xml-output.action

@@ -0,0 +1,77 @@
+DEFINE PTR="CARD"
+DEFINE CHARACTER_SIZE="4"
+TYPE Character=[PTR name,remark]
+
+PTR FUNC GetCharacterPointer(BYTE ARRAY d INT index)
+RETURN (d+index*CHARACTER_SIZE)
+
+PROC SetCharacter(BYTE ARRAY d INT index CHAR ARRAY n,r)
+  Character POINTER ch
+
+  ch=GetCharacterPointer(d,index)
+  ch.name=n
+  ch.remark=r
+RETURN
+
+PROC PrintEscaped(CHAR ARRAY s)
+  INT i
+  CHAR c
+
+  FOR i=1 TO s(0)
+  DO
+    c=s(i)
+    IF c='< THEN
+      Print("&lt;")
+    ELSEIF c='> THEN
+      Print("&gt;")
+    ELSEIF c='& THEN
+      Print("&amp;")
+    ELSE
+      Put(c)
+    FI
+  OD
+RETURN
+
+PROC OutputNode(CHAR ARRAY node,tagName,tagValue BYTE closing)
+  Put('<)
+  IF closing THEN Put('/) FI
+  Print(node)
+  IF tagName(0)>0 THEN
+    PrintF(" %S=""",tagName)
+    PrintEscaped(tagValue) Put('")
+  FI
+  Put('>)
+RETURN
+
+PROC OutputCharacter(Character POINTER ch)
+  CHAR ARRAY node="Character"
+
+  OutputNode(node,"name",ch.name,0)
+  PrintEscaped(ch.remark)
+  OutputNode(node,"","",1)
+RETURN
+
+PROC OutputCharacters(BYTE ARRAY d INT count)
+  CHAR ARRAY node="CharacterRemarks"
+  Character POINTER ch
+  INT i
+
+  OutputNode(node,"","",0) PutE()
+  FOR i=0 TO count-1
+  DO
+    ch=GetCharacterPointer(d,i)
+    OutputCharacter(ch) PutE()
+  OD
+  OutputNode(node,"","",1) PutE()
+RETURN
+
+PROC Main()
+  BYTE count=[3]
+  BYTE ARRAY d(12)
+
+  SetCharacter(d,0,"April","Bubbly: I'm > Tam and <= Emily")
+  SetCharacter(d,1,"Tam O'Shanter","Burns: ""When chapman billies leave the street ...""")
+  SetCharacter(d,2,"Emily","Short & shrift")
+
+  OutputCharacters(d,count)
+RETURN

Task/XML-Output/Ada/xml-output-1.ada

@@ -0,0 +1,40 @@
+with Ada.Strings.Unbounded;
+with Ada.Text_IO.Text_Streams;
+with DOM.Core.Documents;
+with DOM.Core.Elements;
+with DOM.Core.Nodes;
+
+procedure Character_Remarks is
+   package DC renames DOM.Core;
+   package IO renames Ada.Text_IO;
+   package US renames Ada.Strings.Unbounded;
+   type Remarks is record
+      Name : US.Unbounded_String;
+      Text : US.Unbounded_String;
+   end record;
+   type Remark_List is array (Positive range <>) of Remarks;
+   My_Remarks : Remark_List :=
+      ((US.To_Unbounded_String ("April"),
+        US.To_Unbounded_String ("Bubbly: I'm > Tam and <= Emily")),
+       (US.To_Unbounded_String ("Tam O'Shanter"),
+        US.To_Unbounded_String ("Burns: ""When chapman billies leave the street ...""")),
+       (US.To_Unbounded_String ("Emily"),
+        US.To_Unbounded_String ("Short & shrift")));
+   My_Implementation : DC.DOM_Implementation;
+   My_Document       : DC.Document := DC.Create_Document (My_Implementation);
+   My_Root_Node      : DC.Element  := DC.Nodes.Append_Child (My_Document,
+                                         DC.Documents.Create_Element (My_Document, "CharacterRemarks"));
+   My_Element_Node   : DC.Element;
+   My_Text_Node      : DC.Text;
+begin
+   for I in My_Remarks'Range loop
+      My_Element_Node := DC.Nodes.Append_Child (My_Root_Node,
+                            DC.Documents.Create_Element (My_Document, "Character"));
+      DC.Elements.Set_Attribute (My_Element_Node, "Name", US.To_String (My_Remarks (I).Name));
+      My_Text_Node    := DC.Nodes.Append_Child (My_Element_Node,
+                            DC.Documents.Create_Text_Node (My_Document, US.To_String (My_Remarks (I).Text)));
+   end loop;
+   DC.Nodes.Write (IO.Text_Streams.Stream (IO.Standard_Output),
+                   N => My_Document,
+                   Pretty_Print => True);
+end Character_Remarks;

Task/XML-Output/Ada/xml-output-2.ada

@@ -0,0 +1,53 @@
+with Ada.Wide_Wide_Text_IO;
+
+with League.Strings;
+with XML.SAX.Attributes;
+with XML.SAX.Pretty_Writers;
+
+procedure Main is
+
+   function "+"
+    (Item : Wide_Wide_String) return League.Strings.Universal_String
+       renames League.Strings.To_Universal_String;
+
+   type Remarks is record
+      Name   : League.Strings.Universal_String;
+      Remark : League.Strings.Universal_String;
+   end record;
+
+   type Remarks_Array is array (Positive range <>) of Remarks;
+
+   ------------
+   -- Output --
+   ------------
+
+   procedure Output (Remarks : Remarks_Array) is
+      Writer     : XML.SAX.Pretty_Writers.SAX_Pretty_Writer;
+      Attributes : XML.SAX.Attributes.SAX_Attributes;
+
+   begin
+      Writer.Set_Offset (2);
+      Writer.Start_Document;
+      Writer.Start_Element (Qualified_Name => +"CharacterRemarks");
+
+      for J in Remarks'Range loop
+         Attributes.Clear;
+         Attributes.Set_Value (+"name", Remarks (J).Name);
+         Writer.Start_Element
+           (Qualified_Name => +"Character", Attributes => Attributes);
+         Writer.Characters (Remarks (J).Remark);
+         Writer.End_Element (Qualified_Name => +"Character");
+      end loop;
+
+      Writer.End_Element (Qualified_Name => +"CharacterRemarks");
+      Writer.End_Document;
+
+      Ada.Wide_Wide_Text_IO.Put_Line (Writer.Text.To_Wide_Wide_String);
+   end Output;
+
+begin
+   Output
+    (((+"April",         +"Bubbly: I'm > Tam and <= Emily"),
+      (+"Tam O'Shanter", +"Burns: ""When chapman billies leave the street ..."""),
+      (+"Emily",         +"Short & shrift")));
+end Main;

Task/XML-Output/Applesoft-BASIC/xml-output.basic

@@ -0,0 +1,29 @@
+100 Q$ = CHR$(34)
+110 DE$(0) = "April"
+120 RE$(0) = "Bubbly: I'm > Tam and <= Emily"
+130 DE$(1) = "Tam O'Shanter"
+140 RE$(1) = "Burns: " + Q$ + "When chapman billies leave the street ..." + Q$
+150 DE$(2) = "Emily"
+160 RE$(2) = "Short & shrift"
+
+200 Print "<CharacterRemarks>"
+210 For I = 0 to 2
+220    Print "    <Character name="Q$;
+230    X$=DE$(I) : GOSUB 300xmlquote
+240    PRINT Q$">";
+250    X$=RE$(I) : GOSUB 300xmlquote
+260    PRINT "</Character>"
+270 Next
+280 Print "</CharacterRemarks>"
+290 End
+
+300 For n = 1 To Len(X$)
+310    c$ = Mid$(X$,n,1)
+320    IF C$ = "<" THEN C$ = "&lt;"
+330    IF C$ = ">" THEN C$ = "&gt;"
+340    IF C$ = "&" THEN C$ = "&amp;"
+350    IF C$ = Q$ THEN C$ = "&quot;"
+360    IF C$ = "'" THEN C$ = "&apos;"
+370    PRINT C$;
+380 NEXT N
+390 RETURN

Task/XML-Output/AutoHotkey/xml-output.ahk

@@ -0,0 +1,50 @@
+gosub constants
+names := xmlescape(names)
+remarks := xmlescape(remarks)
+
+stringsplit, remarks, remarks, `n
+xml = "<CharacterRemarks>"
+
+loop, parse, names, `n
+  xml .= "<Character name=" . A_LoopField . ">" . remarks%A_Index%
+  . "</Character>`n"
+
+xml .= "</CharacterRemarks>"
+
+msgbox % xml
+return
+
+xmlescape(string)
+{
+  static
+  punc = ",>,<,<=,>=,',&  ; "
+  xmlpunc = &quot;,&gt;,&lt;,&lt;=,&gt;=,&apos;,&amp;
+  if !punc1
+  {
+	StringSplit, punc, punc, `,
+	StringSplit, xmlpunc, xmlpunc, `,
+  }
+  escaped := string
+  loop, parse, punc, `,
+  {
+  StringReplace, escaped, escaped, % A_LoopField, % xmlpunc%A_Index%, All
+  }
+  Return escaped
+}
+
+constants:
+#LTrim
+names =
+(
+  April
+  Tam O'Shanter
+  Emily
+)
+
+remarks =
+(
+  Bubbly: I'm > Tam and <= Emily
+  Burns: "When chapman billies leave the street ..."
+  Short & shrift
+)
+return

Task/XML-Output/Bracmat/xml-output.bracmat

@@ -0,0 +1,112 @@
+( ( 2XML
+  =     PCDATAentities attributeValueEntities doAll doAttributes
+      , xml
+    .   ( attributeValueEntities
+        =   a c
+          .     @( !arg
+                 :   ?a
+                     (("<"|"&"|\"):?c)
+                     ?arg
+                 )
+              &   !a
+                  "&"
+                  ( !c:"<"&lt
+                  | !c:"&"&amp
+                  | quot
+                  )
+                  ";"
+                  attributeValueEntities$!arg
+            | !arg
+        )
+      & ( PCDATAentities
+        =   a c
+          .     @( !arg
+                 :   ?a
+                     (("<"|"&"|">"):?c)
+                     ?arg
+                 )
+              &   !a
+                  "&"
+                  ( !c:"<"&lt
+                  | !c:"&"&amp
+                  | gt
+                  )
+                  ";"
+                  PCDATAentities$!arg
+            | !arg
+        )
+      & ( doAttributes
+        =   a v
+          .     !arg:(?a.?v) ?arg
+              &   " "
+                  PCDATAentities$!a
+                  "=\""
+                  attributeValueEntities$!v
+                  \"
+                  doAttributes$!arg
+            |
+        )
+      & ( doAll
+        =   xml first A B C att XML
+          .   !arg:?xml
+            & :?XML
+            &   whl
+              ' ( !xml:%?first ?xml
+                & (   !first:(?A.?B)
+                    & (   !B:(?att,?C)
+                        &     !XML
+                              (   !C:
+                                & "<" !A doAttributes$!att " />\n"
+                              |   "<"
+                                  !A
+                                  doAttributes$!att
+                                  ">"
+                                  doAll$!C
+                                  "</"
+                                  !A
+                                  ">\n"
+                              )
+                          : ?XML
+                      |   !A
+                        : ( "!"&!XML "<!" !B ">":?XML
+                          |   "!--"
+                            & !XML "<!--" !B "-->":?XML
+                          | "?"&!XML "<?" !B "?>\n":?XML
+                          |   "![CDATA["
+                            & !XML "<![CDATA[" !B "]]>":?XML
+                          |   "!DOCTYPE"
+                            & !XML "<!DOCTYPE" !B ">":?XML
+                          |   ?
+                            & !XML "<" !A doAttributes$!B ">":?XML
+                          )
+                      )
+                  | !XML PCDATAentities$!first:?XML
+                  )
+                )
+            & str$!XML
+        )
+      & doAll$!arg
+  )
+& ( makeList
+  =   characters name names remark remarks
+    .   !arg:(?names.?remarks)
+      & :?characters
+      &   whl
+        ' (   (!names.!remarks)
+            : (%?name ?names.%?remark ?remarks)
+          &   !characters (Character.(name.!name),!remark)
+            : ?characters
+          )
+      & ("?".xml) (CharacterRemarks.,!characters)
+  )
+&   put
+  $ ( 2XML
+    $ ( makeList
+      $ ( April "Tam O'Shanter" Emily
+        .   "Bubbly: I'm > Tam and <= Emily"
+            "Burns: \"When chapman billies leave the street ...\""
+            "Short & shrift"
+        )
+      )
+    )
+)

Task/XML-Output/C++/xml-output.cpp

@@ -0,0 +1,46 @@
+#include <vector>
+#include <utility>
+#include <iostream>
+#include <boost/algorithm/string.hpp>
+
+std::string create_xml( std::vector<std::string> & ,std::vector<std::string> & ) ;
+
+int main( ) {
+   std::vector<std::string> names , remarks ;
+   names.push_back( "April" ) ;
+   names.push_back( "Tam O'Shantor" ) ;
+   names.push_back ( "Emily" ) ;
+   remarks.push_back( "Bubbly, I'm > Tam and <= Emily" ) ;
+   remarks.push_back( "Burns: \"When chapman billies leave the street ...\"" ) ;
+   remarks.push_back( "Short & shrift" ) ;
+   std::cout << "This is in XML:\n" ;
+   std::cout << create_xml( names , remarks ) << std::endl ;
+   return 0 ;
+}
+
+std::string create_xml( std::vector<std::string> & names ,
+      std::vector<std::string> & remarks ) {
+   std::vector<std::pair<std::string , std::string> > entities ;
+   entities.push_back( std::make_pair( "&" , "&amp;" ) ) ;
+   entities.push_back( std::make_pair( "<" , "&lt;" ) ) ;
+   entities.push_back( std::make_pair( ">" , "&gt;" ) ) ;
+   std::string xmlstring ( "<CharacterRemarks>\n" ) ;
+   std::vector<std::string>::iterator vsi = names.begin( ) ;
+   typedef std::vector<std::pair<std::string , std::string> >::iterator Vpss ;
+   for ( ; vsi != names.end( ) ; vsi++ ) {
+      for ( Vpss vs = entities.begin( ) ; vs != entities.end( ) ; vs++ ) {
+	 boost::replace_all ( *vsi , vs->first , vs->second ) ;
+      }
+   }
+   for ( vsi = remarks.begin( ) ; vsi != remarks.end( ) ; vsi++ ) {
+      for ( Vpss vs = entities.begin( ) ; vs != entities.end( ) ; vs++ ) {
+	 boost::replace_all ( *vsi , vs->first , vs->second ) ;
+      }
+   }
+   for ( int i = 0 ; i < names.size( ) ; i++ ) {
+      xmlstring.append( "\t<Character name=\"").append( names[ i ] ).append( "\">")
+	 .append( remarks[ i ] ).append( "</Character>\n" ) ;
+   }
+   xmlstring.append( "</CharacterRemarks>" ) ;
+   return xmlstring ;
+}

Task/XML-Output/C-sharp/xml-output.cs

@@ -0,0 +1,27 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Xml.Linq;
+
+class Program
+{
+    static string CreateXML(Dictionary<string, string> characterRemarks)
+    {
+        var remarks = characterRemarks.Select(r => new XElement("Character", r.Value, new XAttribute("Name", r.Key)));
+        var xml = new XElement("CharacterRemarks", remarks);
+        return xml.ToString();
+    }
+
+    static void Main(string[] args)
+    {
+        var characterRemarks = new Dictionary<string, string>
+        {
+            { "April", "Bubbly: I'm > Tam and <= Emily" },
+            { "Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\"" },
+            { "Emily", "Short & shrift" }
+        };
+
+        string xml = CreateXML(characterRemarks);
+        Console.WriteLine(xml);
+    }
+}

Task/XML-Output/C/xml-output-1.c

@@ -0,0 +1,40 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <libxml/parser.h>
+#include <libxml/tree.h>
+
+const char *names[] = {
+  "April", "Tam O'Shanter", "Emily", NULL
+};
+const char *remarks[] = {
+  "Bubbly: I'm > Tam and <= Emily",
+  "Burns: \"When chapman billies leave the street ...\"",
+  "Short & shrift", NULL
+};
+
+int main()
+{
+  xmlDoc *doc = NULL;
+  xmlNode *root = NULL, *node;
+  const char **next;
+  int a;
+
+  doc = xmlNewDoc("1.0");
+  root = xmlNewNode(NULL, "CharacterRemarks");
+  xmlDocSetRootElement(doc, root);
+
+  for(next = names, a = 0; *next != NULL; next++, a++) {
+    node = xmlNewNode(NULL, "Character");
+    (void)xmlNewProp(node, "name", *next);
+    xmlAddChild(node, xmlNewText(remarks[a]));
+    xmlAddChild(root, node);
+  }
+
+  xmlElemDump(stdout, doc, root);
+
+  xmlFreeDoc(doc);
+  xmlCleanupParser();
+
+  return EXIT_SUCCESS;
+}

Task/XML-Output/C/xml-output-2.c

@@ -0,0 +1,53 @@
+#include <gadget/gadget.h>
+
+LIB_GADGET_START
+
+const char* codes[] = {"&amp;","&gt;","&lt;"};
+const char* repl[]  = {"&",">","<"};
+
+char* change_codes( const char* xml_line )
+{
+    int i;
+    String xml;
+    Let( xml, xml_line );
+    Iterator up i [0:1:3]{
+        Get_fn_let( xml, Str_tran( xml, repl[i], codes[i] ) );
+    }
+    return xml;
+}
+char* generate_xml( const char* names[], int lnames, const char* remarks[] )
+{
+    String xml;
+    char attrib[100];
+    int i;
+    Iterator up i [0:1:lnames]{
+        String remk;
+        Get_fn_let ( remk,  change_codes( remarks[i] ) );
+        sprintf(attrib,"name=\"%s\"",names[i]);
+        if(!i) {
+            Get_fn_let ( xml, Parser("Character", attrib, remk, NORMAL_TAG ));
+        }else{
+            Get_fn_cat ( xml, Parser("Character", attrib, remk, NORMAL_TAG ));
+        }
+        Free secure remk;
+    }
+    Get_fn_let ( xml, Parser("CharacterRemarks", "", xml, NORMAL_TAG ));
+    Get_fn_let ( xml, Str_tran(xml,"><",">\n<") );
+
+    return xml;
+}
+
+#define alen(_X_)   ( sizeof(_X_) / sizeof(const char*) )
+Main
+   const char *names[] = {
+       "April", "Tam O'Shanter", "Emily"
+   };
+   const char *remarks[] = {
+       "Bubbly: I'm > Tam and <= Emily",
+       "Burns: \"When chapman billies leave the street ...\"",
+       "Short & shrift"
+   };
+   char* xml = generate_xml( names, alen(names), remarks );
+   Print "%s\n", xml;
+   Free secure xml;
+End

Task/XML-Output/C/xml-output-3.c

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+<Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+<Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Clojure/xml-output.clj

@@ -0,0 +1,9 @@
+(use 'clojure.xml)
+(defn character-remarks-xml [characters remarks]
+  (with-out-str (emit-element
+                  {:tag :CharacterRemarks,
+                   :attrs nil,
+                   :content (vec (for [item (map vector characters remarks)]
+                                   {:tag :Character,
+                                    :attrs {:name (item 0)},
+                                    :content [(item 1)]}) )})))

Task/XML-Output/Commodore-BASIC/xml-output.basic

@@ -0,0 +1,55 @@
+1 rem xml/output - commodore basic
+2 rem rosetta code
+5 print chr$(147);chr$(14):gosub 900
+10 rem set up array structure for data
+11 rem we'll use a multi-dimensional array:
+12 rem c$(x,y) where x is the rows and y is the fields
+13 rem two fields: 0 = character name, 1 = remarks
+15 dim c$(10,1):x=0:q$=chr$(34)
+19 rem now read the data to populate the structure
+20 for y=0 to 1
+25 read t$
+30 if t$="[end]" then x=x-1:goto 45
+35 c$(x,y)=t$:print t$
+40 next y:x=x+1:print:goto 20
+45 rem need to sanitize for html entities
+50 gosub 500
+55 rem now we parse it out to xml format
+60 print:print:gosub 150
+70 end
+75 :
+150 print "<CharacterRemarks>"
+155 for i=0 to x
+160 t$="<Character name="+q$+c$(i,0)+q$+">"
+165 t$=t$+c$(i,1)+"</Character>"
+170 print "  ";t$
+175 next i
+180 print "</CharacterRemarks>"
+185 print
+190 return
+195 :
+500 rem code html entities
+505 for i=0 to x
+510 for j=0 to 1
+515 tm$=c$(i,j):tl=len(tm$):zz$=""
+520 for tc=1 to tl
+525 tc$=mid$(tm$,tc,1):cv=asc(tc$) and 127
+530 zz$=zz$+et$(cv)
+535 next tc
+540 c$(i,j)=zz$
+545 next j,i
+550 return
+555 :
+900 rem set up entity lookup table
+905 dim et$(127):for i=0 to 127:et$(i)=chr$(i):next
+910 for i=1 to 15:read ci,et$(ci):next i:return
+915 data 34,"&quot;",63,"&quest;",35,"&num;",64,"&commat;",47,"&sol;"
+920 data 60,"&lt;",62,"&gt;",91,"&lsqb;",93,"rsqb;",92,"&pound;"
+925 data 36,"&dollar;",37,"&percnt;",94,"&uarr;",95,"&larr;"
+930 data 38,"&amp;"
+935 :
+1000 data "April","Bubble: I'm > Tam and <= Emily"
+1005 data "Tam O'Shanter","Burns: 'When chapman billies leave the street...'"
+1010 data "Emily","Short & shrift"
+1015 data "Joey","Always look ^."
+1999 data "[end]","[end]"

Task/XML-Output/Common-Lisp/xml-output-1.lisp

@@ -0,0 +1,10 @@
+(defun write-xml (characters lines &optional (out *standard-output*))
+  (let* ((doc (dom:create-document 'rune-dom:implementation nil nil nil))
+         (chars (dom:append-child doc (dom:create-element doc "Characters"))))
+    (map nil (lambda (character line)
+               (let ((c (dom:create-element doc "Character")))
+                 (dom:set-attribute c "name" character)
+                 (dom:append-child c (dom:create-text-node doc line))
+                 (dom:append-child chars c)))
+         characters lines)
+    (write-string (dom:map-document (cxml:make-rod-sink) doc) out)))

Task/XML-Output/Common-Lisp/xml-output-2.lisp

@@ -0,0 +1,4 @@
+(write-xml '("April" "Tam O'Shanter" "Emily")
+           '("Bubbly: I'm > Tam and <= Emily"
+             "Burns: \"When chapman billies leave the street ...\""
+             "Short & shrift"))

Task/XML-Output/D/xml-output.d

@@ -0,0 +1,18 @@
+import kxml.xml;
+char[][][]characters =
+        [["April","Bubbly: I'm > Tam and <= Emily"],
+        ["Tam O'Shanter","Burns: \"When chapman billies leave the street ...\""],
+        ["Emily","Short & shrift"]];
+void addChars(XmlNode root,char[][][]info) {
+        auto remarks = new XmlNode("CharacterRemarks");
+        root.addChild(remarks);
+        foreach(set;info) {
+                remarks.addChild((new XmlNode("Character")).setAttribute("name",set[0]).addCData(set[1]));
+        }
+}
+void main() {
+        auto root = new XmlNode("");
+        root.addChild(new XmlPI("xml"));
+        addChars(root,characters);
+        std.stdio.writefln("%s",root.write);
+}

Task/XML-Output/Delphi/xml-output.delphi

@@ -0,0 +1,75 @@
+//You need to use these units
+uses
+  Classes,
+  Dialogs,
+  XMLIntf,
+  XMLDoc;
+
+//..............................................
+
+//This function creates the XML
+function CreateXML(aNames, aRemarks: TStringList): string;
+var
+  XMLDoc: IXMLDocument;
+  Root: IXMLNode;
+  i: Integer;
+begin
+  //Input check
+  if (aNames   = nil) or
+     (aRemarks = nil) then
+  begin
+     Result:= '<CharacterRemarks />';
+     Exit;
+  end;
+
+  //Creating the TXMLDocument instance
+  XMLDoc:= TXMLDocument.Create(nil);
+
+  //Activating the document
+  XMLDoc.Active:= True;
+
+  //Creating the Root element
+  Root:= XMLDoc.AddChild('CharacterRemarks');
+
+  //Creating the inner nodes
+  for i:=0 to Min(aNames.Count, aRemarks.Count) - 1 do
+  with Root.AddChild('Character') do
+  begin
+    Attributes['name']:= aNames[i];
+    Text:= aRemarks[i];
+  end;
+
+  //Outputting the XML as a string
+  Result:= XMLDoc.XML.Text;
+end;
+
+//..............................................
+
+//Consuming code example (fragment)
+var
+  Names,
+  Remarks: TStringList;
+begin
+  //Creating the lists objects
+  Names:= TStringList.Create;
+  Remarks:= TStringList.Create;
+  try
+    //Filling the list with names
+    Names.Add('April');
+    Names.Add('Tam O''Shanter');
+    Names.Add('Emily');
+
+    //Filling the list with remarks
+    Remarks.Add('Bubbly: I''m > Tam and <= Emily');
+    Remarks.Add('Burns: "When chapman billies leave the street ..."');
+    Remarks.Add('Short & shrift');
+
+    //Constructing and showing the XML
+    Showmessage(CreateXML(Names, Remarks));
+
+  finally
+    //Freeing the list objects
+    Names.Free;
+    Remarks.Free;
+  end;
+end;

Task/XML-Output/Erlang/xml-output.erl

@@ -0,0 +1,12 @@
+-module( xml_output ).
+
+-export( [task/0] ).
+
+-include_lib("xmerl/include/xmerl.hrl").
+
+task() ->
+    Data = {'CharacterRemarks', [], [{'Character', [{name, X}], [[Y]]} || {X, Y} <- contents()]},
+    lists:flatten( xmerl:export_simple([Data], xmerl_xml) ).
+
+
+contents() -> [{"April", "Bubbly: I'm > Tam and <= Emily"}, {"Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\""}, {"Emily", "Short & shrift"}].

Task/XML-Output/Euphoria/xml-output.euphoria

@@ -0,0 +1,34 @@
+function xmlquote(sequence s)
+    sequence r
+    r = ""
+    for i = 1 to length(s) do
+        if s[i] = '<' then
+            r &= "&lt;"
+        elsif s[i] = '>' then
+            r &= "&gt;"
+        elsif s[i] = '&' then
+            r &= "&amp;"
+        elsif s[i] = '"' then
+            r &= "&quot;"
+        elsif s[i] = '\'' then
+            r &= "&apos;"
+        else
+            r &= s[i]
+        end if
+    end for
+    return r
+end function
+
+constant CharacterRemarks = {
+    {"April", "Bubbly: I'm > Tam and <= Emily"},
+    {"Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\""},
+    {"Emily", "Short & shrift"}
+}
+
+puts(1,"<CharacterRemarks>\n")
+for i = 1 to length(CharacterRemarks) do
+    printf(1,"  <CharacterName=\"%s\">",{xmlquote(CharacterRemarks[i][1])})
+    puts(1,xmlquote(CharacterRemarks[i][2]))
+    puts(1,"</Character>\n")
+end for
+puts(1,"</CharacterRemarks>\n")

Task/XML-Output/F-Sharp/xml-output.fs

@@ -0,0 +1,22 @@
+#light
+
+open System.Xml
+type Character = {name : string; comment : string }
+
+let data = [
+    { name = "April"; comment = "Bubbly: I'm > Tam and <= Emily"}
+    { name = "Tam O'Shanter"; comment = "Burns: \"When chapman billies leave the street ...\""}
+    { name = "Emily"; comment = "Short & shrift"} ]
+
+let doxml (characters : Character list) =
+    let doc = new XmlDocument()
+    let root = doc.CreateElement("CharacterRemarks")
+    doc.AppendChild root |> ignore
+    Seq.iter (fun who ->
+             let node = doc.CreateElement("Character")
+             node.SetAttribute("name", who.name)
+             doc.CreateTextNode(who.comment)
+             |> node.AppendChild |> ignore
+             root.AppendChild node |> ignore
+             ) characters
+    doc.OuterXml

Task/XML-Output/Factor/xml-output-1.factor

@@ -0,0 +1,5 @@
+USING: sequences xml.syntax xml.writer ;
+
+: print-character-remarks ( names remarks -- )
+    [ [XML <Character name=<-> ><-></Character> XML] ] 2map
+    [XML <CharacterRemarks><-></CharacterRemarks> XML] pprint-xml ;

Task/XML-Output/Factor/xml-output-2.factor

@@ -0,0 +1,5 @@
+{ "April" "Tam O'Shanter" "Emily" } {
+    "Bubbly: I'm > Tam and <= Emily"
+    "Burns: \"When chapman billies leave the street ...\""
+    "Short & shrift"
+} print-remarks

Task/XML-Output/Fantom/xml-output.fantom

@@ -0,0 +1,26 @@
+using xml
+
+class XmlOutput
+{
+  public static Void main ()
+  {
+    Str[] names := ["April", "Tam O'Shanter", "Emily"]
+      Str[] remarks := ["Bubbly: I'm > Tam and <= Emily",
+        "Burns: \"When chapman billies leave the street ...\"",
+        "Short & shrift"]
+
+    doc := XDoc()
+    root := XElem("CharacterRemarks")
+    doc.add (root)
+
+    names.each |Str name, Int i|
+    {
+      child := XElem("Character")
+      child.addAttr("Name", name)
+      child.add(XText(remarks[i]))
+      root.add (child)
+    }
+
+    doc.write(Env.cur.out)
+  }
+}

Task/XML-Output/Forth/xml-output.fth

@@ -0,0 +1,41 @@
+include ffl/est.fs
+include ffl/xos.fs
+
+\ Input lists
+0 value names
+here ," Emily"
+here ," Tam O'Shanter"
+here ," April"
+here to names
+, , ,
+
+0 value remarks
+here ,"  Short & shrift"
+here ,\" Burns: \"When chapman billies leave the street ...\""
+here ,"  Bubbly: I'm > Tam and <= Emily"
+here to remarks
+, , ,
+
+: s++ ( c-addr1 -- c-addr2 c-addr3 u3 )
+  dup cell+ swap @ count
+;
+
+\ Create xml writer
+tos-create xml
+
+: create-xml ( c-addr1 c-addr2 -- )
+  0 s" CharacterRemarks" xml xos-write-start-tag
+  3 0 DO
+    swap s++ s" name" 2swap 1
+    s" Character" xml xos-write-start-tag
+    swap s++      xml xos-write-text
+    s" Character" xml xos-write-end-tag
+  LOOP
+  drop drop
+  s" CharacterRemarks" xml xos-write-end-tag
+;
+
+names remarks create-xml
+
+\ Output xml string
+xml str-get type cr

Task/XML-Output/FreeBASIC/xml-output.basic

@@ -0,0 +1,40 @@
+Data "April", "Bubbly: I'm > Tam and <= Emily", _
+    "Tam O'Shanter", "Burns: ""When chapman billies leave the street ...""", _
+    "Emily", "Short & shrift"
+
+Declare Function xmlquote(ByRef s As String) As String
+Dim n As Integer, dev As String, remark As String
+
+Print "<CharacterRemarks>"
+For n = 0 to 2
+    Read dev, remark
+    Print "  <Character name="""; xmlquote(dev); """>"; _
+        xmlquote(remark); "</Character>"
+Next
+Print "</CharacterRemarks>"
+
+End
+
+Function xmlquote(ByRef s As String) As String
+    Dim n As Integer
+    Dim r As String
+    For n = 0 To Len(s)
+        Dim c As String
+        c = Mid(s,n,1)
+        Select Case As Const Asc(c)
+        Case Asc("<")
+             r = r + "&lt;"
+        Case Asc(">")
+             r = r + "&gt;"
+        Case Asc("&")
+             r = r + "&amp;"
+        Case Asc("""")
+             r = r + "&quot;"
+        Case Asc("'")
+             r = r + "&apos;"
+        Case Else
+             r = r + c
+        End Select
+    Next
+    Function = r
+End Function

Task/XML-Output/Go/xml-output-1.go

@@ -0,0 +1,35 @@
+package main
+
+import (
+    "encoding/xml"
+    "fmt"
+)
+
+// Function required by task description.
+func xRemarks(r CharacterRemarks) (string, error) {
+    b, err := xml.MarshalIndent(r, "", "    ")
+    return string(b), err
+}
+
+// Task description allows the function to take "a single mapping..."
+// This data structure represents a mapping.
+type CharacterRemarks struct {
+    Character []crm
+}
+
+type crm struct {
+    Name   string `xml:"name,attr"`
+    Remark string `xml:",chardata"`
+}
+
+func main() {
+    x, err := xRemarks(CharacterRemarks{[]crm{
+        {`April`, `Bubbly: I'm > Tam and <= Emily`},
+        {`Tam O'Shanter`, `Burns: "When chapman billies leave the street ..."`},
+        {`Emily`, `Short & shrift`},
+    }})
+    if err != nil {
+        x = err.Error()
+    }
+    fmt.Println(x)
+}

Task/XML-Output/Go/xml-output-2.go

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+    <Character name="April">Bubbly: I&#39;m &gt; Tam and &lt;= Emily</Character>
+    <Character name="Tam O&#39;Shanter">Burns: &#34;When chapman billies leave the street ...&#34;</Character>
+    <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Go/xml-output-3.go

@@ -0,0 +1,46 @@
+package main
+
+import (
+    "encoding/xml"
+    "fmt"
+    "strings"
+    "text/template"
+)
+
+type crm struct {
+    Char, Rem string
+}
+
+var tmpl = `<CharacterRemarks>
+{{range .}}    <Character name="{{xml .Char}}">{{xml .Rem}}</Character>
+{{end}}</CharacterRemarks>
+`
+
+func xmlEscapeString(s string) string {
+    var b strings.Builder
+    xml.Escape(&b, []byte(s))
+    return b.String()
+}
+
+func main() {
+    xt := template.New("").Funcs(template.FuncMap{"xml": xmlEscapeString})
+    template.Must(xt.Parse(tmpl))
+
+    // Define function required by task description.
+    xRemarks := func(crms []crm) (string, error) {
+        var b strings.Builder
+        err := xt.Execute(&b, crms)
+        return b.String(), err
+    }
+
+    // Call the function with example data.  The data is represented as
+    // a "single mapping" as allowed by the task, rather than two lists.
+    x, err := xRemarks([]crm{
+        {`April`, `Bubbly: I'm > Tam and <= Emily`},
+        {`Tam O'Shanter`, `Burns: "When chapman billies leave the street ..."`},
+        {`Emily`, `Short & shrift`}})
+    if err != nil {
+        x = err.Error()
+    }
+    fmt.Println(x)
+}

Task/XML-Output/Groovy/xml-output.groovy

@@ -0,0 +1,10 @@
+def writer = new StringWriter()
+def builder = new groovy.xml.MarkupBuilder(writer)
+def names = ["April", "Tam O'Shanter", "Emily"]
+def remarks = ["Bubbly: I'm > Tam and <= Emily", 'Burns: "When chapman billies leave the street ..."', "Short & shrift"]
+
+builder.CharacterRemarks() {
+    names.eachWithIndex() { n, i -> Character(name:n, remarks[i]) };
+}
+
+println writer.toString()

Task/XML-Output/Haskell/xml-output.hs

@@ -0,0 +1,13 @@
+import Text.XML.Light
+
+characterRemarks :: [String] -> [String] -> String
+characterRemarks names remarks = showElement $ Element
+    (unqual "CharacterRemarks")
+    []
+    (zipWith character names remarks)
+    Nothing
+  where character name remark = Elem $ Element
+            (unqual "Character")
+            [Attr (unqual "name") name]
+            [Text $ CData CDataText remark Nothing]
+            Nothing

Task/XML-Output/HicEst/xml-output.hicest

@@ -0,0 +1,15 @@
+CHARACTER names="April~Tam O'Shanter~Emily~"
+CHARACTER remarks*200/%Bubbly: I'm > Tam and <= Emily~Burns: "When chapman billies leave the street ..."~Short & shrift~%/
+CHARACTER XML*1000
+
+EDIT(Text=remarks, Right='&', RePLaceby='&amp;', DO)
+EDIT(Text=remarks, Right='>', RePLaceby='&gt;', DO)
+EDIT(Text=remarks, Right='<', RePLaceby='&lt;', DO)
+
+XML = "<CharacterRemarks>" // $CRLF
+DO i = 1, 3
+  EDIT(Text=names, SePaRators='~', ITeM=i, Parse=name)
+  EDIT(Text=remarks, SePaRators='~', ITeM=i, Parse=remark)
+  XML = TRIM(XML) // '<Character name="' // name // '">' // remark // '</Character>' // $CRLF
+ENDDO
+XML = TRIM(XML) // "</CharacterRemarks>"

Task/XML-Output/J/xml-output-1.j

@@ -0,0 +1,2 @@
+tbl=: ('&quote;'; '&amp;'; '&lt;'; '&gt;') (a.i.'"&<>')} <"0 a.
+esc=: [:; {&tbl@:i.~&a.

Task/XML-Output/J/xml-output-2.j

@@ -0,0 +1,3 @@
+cmb=: [:; dyad define &.>
+  '<Character name="', (esc x), '">', (esc y), '</Character>', LF
+)

Task/XML-Output/J/xml-output-3.j

@@ -0,0 +1 @@
+xmlify=:  '<CharacterRemarks>', LF, cmb, '</CharacterRemarks>'"_

Task/XML-Output/J/xml-output-4.j

@@ -0,0 +1,7 @@
+names=: 'April'; 'Tam O''Shanter'; 'Emily'
+
+remarks=: <;._2]0 :0
+ I'm > Tam and <= Emily
+ Burns: "When chapman billies leave the street ..."
+ Short & shrift
+)

Task/XML-Output/J/xml-output-5.j

@@ -0,0 +1,6 @@
+   names xmlify remarks
+<CharacterRemarks>
+<Character name="April"> I'm &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O'Shanter"> Burns: &quote;When chapman billies leave the street ...&quote;</Character>
+<Character name="Emily"> Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Java/xml-output-1.java

@@ -0,0 +1,61 @@
+import java.io.StringWriter;
+
+import javax.xml.parsers.DocumentBuilderFactory;
+import javax.xml.transform.Result;
+import javax.xml.transform.Source;
+import javax.xml.transform.Transformer;
+import javax.xml.transform.TransformerFactory;
+import javax.xml.transform.dom.DOMSource;
+import javax.xml.transform.stream.StreamResult;
+
+import org.w3c.dom.Document;
+import org.w3c.dom.Element;
+
+public class XmlCreation {
+
+  private static final String[] names = {"April", "Tam O'Shanter", "Emily"};
+  private static final String[] remarks = {"Bubbly: I'm > Tam and <= Emily",
+    "Burns: \"When chapman billies leave the street ...\"",
+      "Short & shrift"};
+
+  public static void main(String[] args) {
+    try {
+      // Create a new XML document
+      final Document doc = DocumentBuilderFactory.newInstance().newDocumentBuilder().newDocument();
+
+      // Append the root element
+      final Element root = doc.createElement("CharacterRemarks");
+      doc.appendChild(root);
+
+      // Read input data and create a new <Character> element for each name.
+      for(int i = 0; i < names.length; i++) {
+        final Element character = doc.createElement("Character");
+        root.appendChild(character);
+        character.setAttribute("name", names[i]);
+        character.appendChild(doc.createTextNode(remarks[i]));
+      }
+
+      // Serializing XML in Java is unnecessary complicated
+      // Create a Source from the document.
+      final Source source = new DOMSource(doc);
+
+      // This StringWriter acts as a buffer
+      final StringWriter buffer = new StringWriter();
+
+      // Create a Result as a transformer target.
+      final Result result = new StreamResult(buffer);
+
+      // The Transformer is used to copy the Source to the Result object.
+      final Transformer transformer = TransformerFactory.newInstance().newTransformer();
+      transformer.setOutputProperty("indent", "yes");
+      transformer.transform(source, result);
+
+      // Now the buffer is filled with the serialized XML and we can print it
+      // to the console.
+      System.out.println(buffer.toString());
+    } catch (Exception e) {
+      e.printStackTrace();
+    }
+  }
+
+}

Task/XML-Output/Java/xml-output-2.java

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<CharacterRemarks>
+<Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+<Character name="Emily">Short &amp; shrift</Character>

Task/XML-Output/Java/xml-output-3.java

@@ -0,0 +1,38 @@
+import java.io.StringWriter;
+
+import javax.xml.stream.XMLOutputFactory;
+import javax.xml.stream.XMLStreamWriter;
+
+public class XmlCreationStax {
+
+  private static final String[] names = {"April", "Tam O'Shanter", "Emily"};
+  private static final String[] remarks = {"Bubbly: I'm > Tam and <= Emily",
+    "Burns: \"When chapman billies leave the street ...\"",
+      "Short & shrift"};
+
+  public static void main(String[] args) {
+    try {
+      final StringWriter buffer = new StringWriter();
+
+      final XMLStreamWriter out = XMLOutputFactory.newInstance()
+          .createXMLStreamWriter(buffer);
+
+      out.writeStartDocument("UTF-8", "1.0");
+      out.writeStartElement("CharacterRemarks");
+
+      for(int i = 0; i < names.length; i++) {
+        out.writeStartElement("Character");
+        out.writeAttribute("name", names[i]);
+        out.writeCharacters(remarks[i]);
+        out.writeEndElement();
+      }
+
+      out.writeEndElement();
+      out.writeEndDocument();
+
+      System.out.println(buffer);
+    } catch (Exception e) {
+      e.printStackTrace();
+    }
+  }
+}

Task/XML-Output/Java/xml-output-4.java

@@ -0,0 +1 @@
+<?xml version="1.0" encoding="UTF-8"?><CharacterRemarks><Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character><Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character><Character name="Emily">Short &amp; shrift</Character></CharacterRemarks>

Task/XML-Output/Joy/xml-output.joy

@@ -0,0 +1,15 @@
+DEFINE subst ==
+[[['< "&lt;"  putchars]
+  ['> "&gt;"  putchars]
+  ['& "&amp;" putchars]
+  [putch]] case] step;
+
+XMLOutput ==
+"<CharacterRemarks>\n" putchars
+["<Character name=\"" putchars uncons swap putchars "\">" putchars first subst  "</Character>\n" putchars] step
+"</CharacterRemarks>\n" putchars.
+
+[["April" "Bubbly: I'm > Tam and <= Emily"]
+ ["Tam O'Shanter" "Burns: \"When chapman billies leave the street ...\""]
+ ["Emily" "Short & shrift"]
+] XMLOutput.

Task/XML-Output/Jq/xml-output.jq

@@ -0,0 +1,26 @@
+def escapes: [
+    ["&" , "&"], # must do this one first
+    ["\"", """],
+    ["'" , "'"],
+    ["<" , "&lt;"],
+    [">" , "&gt;"]
+];
+
+def xmlEscape:
+  reduce escapes[] as $esc (.; gsub($esc[0]; $esc[1]));
+
+def xmlDoc(names; remarks):
+    reduce range(0;names|length) as $i ("<CharacterRemarks>\n";
+        (names[$i]|xmlEscape) as $name
+        | (remarks[$i]|xmlEscape) as $remark
+        | .  + "    <Character name=\"\($name)\">\($remark)</Character>\n")
+    + "</CharacterRemarks>" ;
+
+def names: ["April", "Tam O'Shanter", "Emily"];
+def remarks: [
+    "Bubbly: I'm > Tam and <= Emily",
+    "Burns: \"When chapman billies leave the street ...\"",
+    "Short & shrift"
+];
+
+xmlDoc(names; remarks)

Task/XML-Output/Julia/xml-output.julia

@@ -0,0 +1,16 @@
+using LightXML
+
+dialog = [("April", "Bubbly: I'm > Tam and <= Emily"),
+          ("Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\""),
+          ("Emily", "Short & shrift")]
+
+const xdoc = XMLDocument()
+const xroot = create_root(xdoc, "CharacterRemarks")
+
+for (name, remarks) in dialog
+    xs1 = new_child(xroot, "Character")
+    set_attribute(xs1, "name", name)
+    add_text(xs1, remarks)
+end
+
+println(xdoc)

Task/XML-Output/Kotlin/xml-output-1.kotlin

@@ -0,0 +1,44 @@
+// version 1.1.3
+
+import javax.xml.parsers.DocumentBuilderFactory
+import javax.xml.transform.dom.DOMSource
+import java.io.StringWriter
+import javax.xml.transform.stream.StreamResult
+import javax.xml.transform.TransformerFactory
+
+fun main(args: Array<String>) {
+    val names = listOf("April", "Tam O'Shanter", "Emily")
+
+    val remarks = listOf(
+        "Bubbly: I'm > Tam and <= Emily",
+        "Burns: \"When chapman billies leave the street ...\"",
+        "Short & shrift"
+    )
+
+    val dbFactory = DocumentBuilderFactory.newInstance()
+    val dBuilder  = dbFactory.newDocumentBuilder()
+    val doc = dBuilder.newDocument()
+    val root = doc.createElement("CharacterRemarks") // create root node
+    doc.appendChild(root)
+
+    // now create Character elements
+    for (i in 0 until names.size) {
+        val character = doc.createElement("Character")
+        character.setAttribute("name", names[i])
+        val remark = doc.createTextNode(remarks[i])
+        character.appendChild(remark)
+        root.appendChild(character)
+    }
+
+    val source = DOMSource(doc)
+    val sw = StringWriter()
+    val result = StreamResult(sw)
+    val tFactory = TransformerFactory.newInstance()
+    tFactory.newTransformer().apply {
+        setOutputProperty("omit-xml-declaration", "yes")
+        setOutputProperty("indent", "yes")
+        setOutputProperty("{http://xml.apache.org/xslt}indent-amount", "4")
+        transform(source, result)
+    }
+    println(sw)
+}

Task/XML-Output/Kotlin/xml-output-2.kotlin

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+    <Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+    <Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+    <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Lasso/xml-output-1.lasso

@@ -0,0 +1,36 @@
+define character2xml(names::array, remarks::array) => {
+
+	fail_if(#names -> size != #remarks -> size, -1, 'Input arrays not of same size')
+
+	local(
+		domimpl = xml_domimplementation,
+		doctype = #domimpl -> createdocumenttype(
+			'svg:svg',
+			'-//W3C//DTD SVG 1.1//EN',
+			'http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd'
+		),
+		character_xml = #domimpl -> createdocument(
+			'http://www.w3.org/2000/svg',
+			'svg:svg',
+			#docType
+		),
+		csnode = #character_xml -> createelement('CharacterRemarks'),
+		charnode
+	)
+
+	#character_xml -> appendChild(#csnode)
+
+	loop(#names -> size) => {
+		#charnode = #character_xml -> createelement('Character')
+		#charnode -> setAttribute('name', #names  -> get(loop_count))
+		#charnode -> nodeValue = encode_xml(#remarks -> get(loop_count))
+		#csnode -> appendChild(#charnode)
+	}
+	return #character_xml
+
+}
+
+character2xml(
+	array(`April`, `Tam O'Shanter`, `Emily`),
+	array(`Bubbly: I'm > Tam and <= Emily`, `Burns: "When chapman billies leave the street ..."`, `Short & shrift`)
+)

Task/XML-Output/Lasso/xml-output-2.lasso

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE svg:svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<svg xmlns:svg="http://www.w3.org/2000/svg"/>
+<CharacterRemarks>
+  <Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+  <Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+  <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Lua/xml-output-1.lua

@@ -0,0 +1,13 @@
+require("LuaXML")
+
+function addNode(parent, nodeName, key, value, content)
+    local node = xml.new(nodeName)
+    table.insert(node, content)
+    parent:append(node)[key] = value
+end
+
+root = xml.new("CharacterRemarks")
+addNode(root, "Character", "name", "April", "Bubbly: I'm > Tam and <= Emily")
+addNode(root, "Character", "name", "Tam O'Shanter", 'Burns: "When chapman billies leave the street ..."')
+addNode(root, "Character", "name", "Emily", "Short & shrift")
+print(root)

Task/XML-Output/Lua/xml-output-2.lua

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+  <Character name="April">Bubbly: I&apos;m &gt; Tam and &lt;= Emily</Character>
+  <Character name="Tam O&apos;Shanter">Burns: &quot;When chapman billies leave the street ...&quot;</Character>
+  <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Lua/xml-output-3.lua

@@ -0,0 +1,2 @@
+xmlStr = xml.str(root):gsub("'", "'"):gsub(""", '"')
+print(xmlStr)

Task/XML-Output/Lua/xml-output-4.lua

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+  <Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+  <Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+  <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/M2000-Interpreter/xml-output-1.m2000

@@ -0,0 +1,22 @@
+Module CheckIt {
+	Flush
+	Data "April", {Bubbly: I'm > Tam and <= Emily}
+	Data "Tam O'Shanter", {Burns: "When chapman billies leave the street ..."}
+	Data "Emily", {Short & shrift}
+	
+	declare xml xmlData
+	
+	with xml, "xml" as doc$, "beautify" as beautify
+	
+	method xml, "PrepareNode", "CharacterRemarks" as Node
+	method xml, "InsertNode", Node
+	while not empty
+		read name$, text$
+		method xml, "PrepareNode", "Character", text$ as Node1
+		method xml, "PlaceAttributeToNode", Node1, "name", name$
+		method xml, "AppendChild", Node1
+	end while
+	beautify=-4
+	Report doc$
+}
+CheckIt

Task/XML-Output/M2000-Interpreter/xml-output-2.m2000

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+    <Character name="April">Bubbly: I&apos;m &qt; Tam and &lt;= Emily</Character>
+    <Character name="Tam O'Shanter">Burns: &quot;When chapman billies leave the street ...&quot;</Character>
+    <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/MATLAB/xml-output.m

@@ -0,0 +1,14 @@
+RootXML = com.mathworks.xml.XMLUtils.createDocument('CharacterRemarks');
+docRootNode = RootXML.getDocumentElement;
+thisElement = RootXML.createElement('Character');
+thisElement.setAttribute('Name','April')
+thisElement.setTextContent('Bubbly: I''m > Tam and <= Emily');
+docRootNode.appendChild(thisElement);
+thisElement = RootXML.createElement('Character');
+thisElement.setAttribute('Name','Tam O''Shanter')
+thisElement.setTextContent('Burns: "When chapman billies leave the street ..."');
+docRootNode.appendChild(thisElement);
+thisElement = RootXML.createElement('Character');
+thisElement.setAttribute('Name','Emily')
+thisElement.setTextContent('Short & shrift');
+docRootNode.appendChild(thisElement);

Task/XML-Output/Mathematica/xml-output.math

@@ -0,0 +1,8 @@
+c = {"April", "Tam O'Shanter","Emily"};
+r = {"Bubbly:I'm > Tam and <= Emily" ,
+StringReplace["Burns:\"When chapman billies leave the street ...\"", "\"" -> ""], "Short & shrift"};
+ExportString[ XMLElement[  "CharacterRemarks", {},
+{XMLElement["Character", {"name" -> c[[1]]}, {r[[1]]}],
+ XMLElement["Character", {"name" -> c[[2]]}, {r[[2]]}],
+ XMLElement["Character", {"name" -> c[[3]]}, {r[[3]]}]
+}], "XML", "AttributeQuoting" -> "\""]

Task/XML-Output/NetRexx/xml-output-1.netrexx

@@ -0,0 +1,65 @@
+/* NetRexx */
+
+options replace format comments java crossref savelog symbols nobinary
+
+import java.io.StringWriter
+
+import javax.xml.parsers.DocumentBuilderFactory
+import javax.xml.transform.Result
+import javax.xml.transform.Source
+import javax.xml.transform.Transformer
+import javax.xml.transform.TransformerFactory
+import javax.xml.transform.dom.DOMSource
+import javax.xml.transform.stream.StreamResult
+
+import org.w3c.dom.Document
+import org.w3c.dom.Element
+
+names = [String -
+  "April", "Tam O'Shanter", "Emily" -
+]
+
+remarks = [ String -
+     "Bubbly: I'm > Tam and <= Emily" -
+  ,  'Burns: "When chapman billies leave the street ..."' -
+  ,  'Short & shrift' -
+]
+
+do
+  -- Create a new XML document
+  doc = DocumentBuilderFactory.newInstance().newDocumentBuilder().newDocument()
+
+  -- Append the root element
+  root = doc.createElement("CharacterRemarks")
+  doc.appendChild(root)
+
+  -- Read input data and create a new <Character> element for each name.
+  loop i_ = 0 to names.length - 1
+    character = doc.createElement("Character")
+    root.appendChild(character)
+    character.setAttribute("name", names[i_])
+    character.appendChild(doc.createTextNode(remarks[i_]))
+    end i_
+
+  -- Serializing XML in Java is unnecessary complicated
+  -- Create a Source from the document.
+  source = DOMSource(doc)
+
+  -- This StringWriter acts as a buffer
+  buffer = StringWriter()
+
+  -- Create a Result as a transformer target.
+  result = StreamResult(buffer)
+
+  -- The Transformer is used to copy the Source to the Result object.
+  transformer = TransformerFactory.newInstance().newTransformer()
+  transformer.setOutputProperty("indent", "yes")
+  transformer.transform(source, result)
+
+  -- Now the buffer is filled with the serialized XML and we can print it to the console.
+  say buffer.toString
+catch ex = Exception
+  ex.printStackTrace
+end
+
+return

Task/XML-Output/NetRexx/xml-output-2.netrexx

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<CharacterRemarks>
+<Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+<Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/NetRexx/xml-output-3.netrexx

@@ -0,0 +1,48 @@
+/* NetRexx */
+
+options replace format comments java crossref savelog symbols nobinary
+
+import java.io.StringWriter
+
+import javax.xml.stream.XMLOutputFactory
+import javax.xml.stream.XMLStreamWriter
+
+names = [String -
+  "April", "Tam O'Shanter", "Emily" -
+]
+
+remarks = [ String -
+     "Bubbly: I'm > Tam and <= Emily" -
+  ,  'Burns: "When chapman billies leave the street ..."' -
+  ,  'Short & shrift' -
+]
+
+do
+  buffer = StringWriter()
+
+  out = XMLOutputFactory.newInstance().createXMLStreamWriter(buffer)
+
+  out.writeStartDocument("UTF-8", "1.0")
+  out.writeCharacters('\n')
+
+  out.writeStartElement("CharacterRemarks")
+  out.writeCharacters('\n')
+
+  loop i_ = 0 to names.length - 1
+    out.writeStartElement("Character")
+    out.writeAttribute("name", names[i_])
+    out.writeCharacters(remarks[i_])
+    out.writeEndElement()
+    out.writeCharacters('\n')
+    end i_
+
+  out.writeEndElement()
+  out.writeEndDocument()
+  out.writeCharacters('\n')
+
+  say buffer.toString
+catch ex = Exception
+  ex.printStackTrace
+end
+
+return

Task/XML-Output/NetRexx/xml-output-4.netrexx

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CharacterRemarks>
+<Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+<Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Nim/xml-output-1.nim

@@ -0,0 +1,11 @@
+import xmltree, strtabs, sequtils
+
+proc charsToXML(names, remarks: seq[string]): XmlNode =
+  result = <>CharacterRemarks()
+  for name, remark in items zip(names, remarks):
+    result.add <>Character(name=name, remark.newText)
+
+echo charsToXML(@["April", "Tam O'Shanter", "Emily"],
+  @["Bubbly: I'm > Tam and <= Emily",
+    "Burns: \"When chapman billies leave the street ...\"",
+    "Short & shrift"])

Task/XML-Output/Nim/xml-output-2.nim

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+  <Character name="April">Bubbly: I&apos;m &gt; Tam and &lt;= Emily</Character>
+  <Character name="Tam O'Shanter">Burns: &quot;When chapman billies leave the street ...&quot;</Character>
+  <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/OCaml/xml-output-1.ocaml

@@ -0,0 +1,23 @@
+# #directory "+xml-light" (* or maybe "+site-lib/xml-light" *) ;;
+
+# #load "xml-light.cma" ;;
+
+# let data = [
+    ("April", "Bubbly: I'm > Tam and <= Emily");
+    ("Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\"");
+    ("Emily", "Short & shrift");
+  ] in
+  let tags =
+    List.map (fun (name, comment) ->
+      Xml.Element ("Character", [("name", name)], [(Xml.PCData comment)])
+    ) data
+  in
+  print_endline (
+    Xml.to_string_fmt (Xml.Element ("CharacterRemarks", [], tags)))
+  ;;
+<CharacterRemarks>
+  <Character name="April">Bubbly: I&apos;m &gt; Tam and &lt;= Emily</Character>
+  <Character name="Tam O'Shanter">Burns: &quot;When chapman billies leave the street ...&quot;</Character>
+  <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>
+- : unit = ()

Task/XML-Output/OCaml/xml-output-2.ocaml

@@ -0,0 +1,22 @@
+#directory "+xmlm"
+#load "xmlm.cmo"
+open Xmlm
+
+let datas = [
+    ("April", "Bubbly: I'm > Tam and <= Emily");
+    ("Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\"");
+    ("Emily", "Short & shrift");
+  ]
+
+let xo = make_output (`Channel stdout)
+
+let () =
+  output xo (`Dtd None);
+  output xo (`El_start (("", "CharacterRemarks"), []));
+  List.iter (fun (name, content) ->
+      output xo (`El_start (("", "Character"), [(("", "name"), name)]));
+      output xo (`Data content);
+      output xo (`El_end);
+  ) datas;
+  output xo (`El_end);
+  print_newline()

Task/XML-Output/Objeck/xml-output.objeck

@@ -0,0 +1,29 @@
+use Data.XML;
+use Collection.Generic;
+
+class Test {
+  function : Main(args : String[]) ~ Nil {
+    # list of name
+    names := Vector->New()<String>;
+    names->AddBack("April");
+    names->AddBack("Tam O'Shanter");
+    names->AddBack("Emily");
+    # list of comments
+    comments := Vector->New()<String>;
+    comments->AddBack("Bubbly: I'm > Tam and <= Emily");
+    comments->AddBack("Burns: \"When chapman billies leave the street ...\"");
+    comments->AddBack(XmlElement->EncodeString("Short & shrift");
+    # build XML document
+    builder := XmlBuilder->New("CharacterRemarks");
+    root := builder->GetRoot();
+    if(names->Size() = comments->Size()) {
+      each(i : names) {
+        element := XmlElement->New(XmlElement->Type->ELEMENT, "Character");
+        element->AddAttribute(XmlAttribute->New("name", names->Get(i)));
+        element->SetContent(XmlElement->EncodeString(comments->Get(i)));
+        root->AddChild(element);
+      };
+    };
+    builder->ToString()->PrintLine();
+  }
+}

Task/XML-Output/Oz/xml-output-1.oz

@@ -0,0 +1,89 @@
+declare
+  proc {Main}
+     Names = ["April"
+	      "Tam O'Shanter"
+	      "Emily"]
+
+     Remarks = ["Bubbly: I'm > Tam and <= Emily"
+		"Burns: \"When chapman billies leave the street ...\""
+		"Short & shrift"]
+
+     Characters = {List.zip Names Remarks
+		   fun {$ N R}
+		      'Character'(name:N R)
+		   end}
+
+     DOM = {List.toTuple 'CharacterRemarks' Characters}
+  in
+     {System.showInfo {Serialize DOM}}
+  end
+
+  fun {Serialize DOM}
+     "<?xml version=\"1.0\" ?>\n"#
+     {SerializeElement DOM 0}
+  end
+
+  fun {SerializeElement El Indent}
+     Name = {Label El}
+     Attributes ChildElements Contents
+     {DestructureElement El ?Attributes ?ChildElements ?Contents}
+     EscContents = {Map Contents Escape}
+     Spaces = {List.make Indent} for S in Spaces do S = &  end
+  in
+     Spaces#"<"#Name#
+     {VSConcatMap Attributes SerializeAttribute}#">"#
+     {VSConcat EscContents}#{When ChildElements\=nil "\n"}#
+     {VSConcatMap ChildElements fun {$ E} {SerializeElement E Indent+4} end}#
+     {When ChildElements\=nil Spaces}#"</"#Name#">\n"
+  end
+
+  proc {DestructureElement El ?Attrs ?ChildElements ?Contents}
+     SubelementRec AttributeRec
+     {Record.partitionInd El fun {$ I _} {Int.is I} end
+      ?SubelementRec ?AttributeRec}
+     Subelements = {Record.toList SubelementRec}
+  in
+     {List.partition Subelements VirtualString.is ?Contents ?ChildElements}
+     Attrs = {Record.toListInd AttributeRec}
+  end
+
+  fun {SerializeAttribute Name#Value}
+     " "#Name#"=\""#{EscapeAttribute Value}#"\""
+  end
+
+  fun {Escape VS}
+     {Flatten {Map {VirtualString.toString VS} EscapeChar}}
+  end
+
+  fun {EscapeAttribute VS}
+     {Flatten {Map {VirtualString.toString VS} EscapeAttributeChar}}
+  end
+
+  fun {EscapeChar X}
+     case X of 60 then "&lt;"
+     [] 62 then "&gt;"
+     [] 38 then "&amp;"
+     else X
+     end
+  end
+
+  fun {EscapeAttributeChar X}
+     case X of 34 then "&quot;"
+     else {EscapeChar X}
+     end
+  end
+
+  %% concatenates a list to a virtual string
+  fun {VSConcat Xs}
+     {List.toTuple '#' Xs}
+  end
+
+  fun {VSConcatMap Xs F}
+     {VSConcat {Map Xs F}}
+  end
+
+  fun {When Cond X}
+     if Cond then X else nil end
+  end
+in
+  {Main}

Task/XML-Output/Oz/xml-output-2.oz

@@ -0,0 +1,6 @@
+<?xml version="1.0" ?>
+<CharacterRemarks>
+    <Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+    <Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+    <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/Perl/xml-output.pl

@@ -0,0 +1,19 @@
+#! /usr/bin/perl
+use strict;
+use XML::Mini::Document;
+
+my @students = ( [ "April", "Bubbly: I'm > Tam and <= Emily" ],
+                 [ "Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\"" ],
+		 [ "Emily", "Short & shrift" ]
+                );
+
+my $doc = XML::Mini::Document->new();
+my $root = $doc->getRoot();
+my $studs = $root->createChild("CharacterRemarks");
+foreach my $s (@students)
+{
+    my $stud = $studs->createChild("Character");
+    $stud->attribute("name", $s->[0]);
+    $stud->text($s->[1]);
+}
+print $doc->toString();

Task/XML-Output/Phix/xml-output.phix

@@ -0,0 +1,36 @@
+(phixonline)-->
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #008080;">constant</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">hchars</span><span style="color: #0000FF;">,</span><span style="color: #000000;">hsubs</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">columnize</span><span style="color: #0000FF;">({{</span><span style="color: #008000;">"&lt;"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&amp;lt;"</span><span style="color: #0000FF;">},</span>
+                                      <span style="color: #0000FF;">{</span><span style="color: #008000;">"&gt;"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&amp;gt;"</span><span style="color: #0000FF;">},</span>
+                                      <span style="color: #0000FF;">{</span><span style="color: #008000;">"&"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&amp;amp;"</span><span style="color: #0000FF;">},</span>
+                                      <span style="color: #0000FF;">{</span><span style="color: #008000;">"\""</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&amp;quot;"</span><span style="color: #0000FF;">},</span>
+                                      <span style="color: #0000FF;">{</span><span style="color: #008000;">"\'"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&amp;apos;"</span><span style="color: #0000FF;">}})</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">xmlquote_all</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+         <span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">substitute_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">hchars</span><span style="color: #0000FF;">,</span><span style="color: #000000;">hsubs</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+     <span style="color: #008080;">return</span> <span style="color: #000000;">s</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">xml_CharacterRemarks</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">data</span><span style="color: #0000FF;">)</span>
+ <span style="color: #004080;">string</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"&lt;CharacterRemarks&gt;\n"</span>
+     <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">data</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+         <span style="color: #000000;">res</span> <span style="color: #0000FF;">&=</span> <span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"  &lt;CharacterName=\"%s\"&gt;%s&lt;/Character&gt;\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">xmlquote_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">data</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]))</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+     <span style="color: #008080;">return</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">&</span> <span style="color: #008000;">"&lt;/CharacterRemarks&gt;\n"</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">testset</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span>
+     <span style="color: #0000FF;">{</span><span style="color: #008000;">"April"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Bubbly: I'm &gt; Tam and &lt;= Emily"</span><span style="color: #0000FF;">},</span>
+     <span style="color: #0000FF;">{</span><span style="color: #008000;">"Tam O'Shanter"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Burns: \"When chapman billies leave the street ...\""</span><span style="color: #0000FF;">},</span>
+     <span style="color: #0000FF;">{</span><span style="color: #008000;">"Emily"</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Short & shrift"</span><span style="color: #0000FF;">}</span>
+ <span style="color: #0000FF;">}</span>
+ <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">xml_CharacterRemarks</span><span style="color: #0000FF;">(</span><span style="color: #000000;">testset</span><span style="color: #0000FF;">))</span>
+
+ <span style="color: #000080;font-style:italic;">-- Sample output:
+ --  &lt;CharacterRemarks&gt;
+ --    &lt;CharacterName="April"&gt;Bubbly: I&amp;apos;m &amp;gt; Tam and &amp;lt;= Emily&lt;/Character&gt;
+ --    &lt;CharacterName="Tam O&amp;apos;Shanter"&gt;Burns: &amp;quot;When chapman billies leave the street ...&amp;quot;&lt;/Character&gt;
+ --    &lt;CharacterName="Emily"&gt;Short &amp;amp; shrift&lt;/Character&gt;
+ --  &lt;/CharacterRemarks&gt;</span>
+<!--

Task/XML-Output/PicoLisp/xml-output.l

@@ -0,0 +1,19 @@
+(load "@lib/xml.l")
+
+(de characterRemarks (Names Remarks)
+   (xml
+      (cons
+         'CharacterRemarks
+         NIL
+         (mapcar
+            '((Name Remark)
+               (list 'Character (list (cons 'name Name)) Remark) )
+            Names
+            Remarks ) ) ) )
+
+(characterRemarks
+   '("April" "Tam O'Shanter" "Emily")
+   (quote
+      "I'm > Tam and <= Emily"
+      "Burns: \"When chapman billies leave the street ..."
+      "Short & shrift" ) )

Task/XML-Output/PureBasic/xml-output.basic

@@ -0,0 +1,59 @@
+DataSection
+  dataItemCount:
+  Data.i 3
+
+  names:
+  Data.s "April", "Tam O'Shanter", "Emily"
+
+  remarks:
+  Data.s "Bubbly: I'm > Tam and <= Emily",
+         ~"Burns: \"When chapman billies leave the street ...\"",
+         "Short & shrift"
+EndDataSection
+
+Structure characteristic
+  name.s
+  remark.s
+EndStructure
+
+NewList didel.characteristic()
+Define item.s, numberOfItems, i
+
+Restore dataItemCount
+Read.i numberOfItems
+
+;add names
+Restore names
+For i = 1 To numberOfItems
+  AddElement(didel())
+  Read.s item
+  didel()\name = item
+Next
+
+;add remarks
+ResetList(didel())
+FirstElement(didel())
+Restore remarks:
+For i = 1 To numberOfItems
+  Read.s item
+  didel()\remark = item
+  NextElement(didel())
+Next
+
+Define xml, mainNode, itemNode
+ResetList(didel())
+FirstElement(didel())
+xml = CreateXML(#PB_Any)
+mainNode = CreateXMLNode(RootXMLNode(xml), "CharacterRemarks")
+ForEach didel()
+  itemNode = CreateXMLNode(mainNode, "Character")
+  SetXMLAttribute(itemNode, "name", didel()\name)
+  SetXMLNodeText(itemNode, didel()\remark)
+Next
+FormatXML(xml, #PB_XML_ReFormat |  #PB_XML_WindowsNewline | #PB_XML_ReIndent)
+
+If OpenConsole()
+  PrintN(ComposeXML(xml, #PB_XML_NoDeclaration))
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
+  CloseConsole()
+EndIf

Task/XML-Output/Python/xml-output-1.py

@@ -0,0 +1,14 @@
+>>> from xml.etree import ElementTree as ET
+>>> from itertools import izip
+>>> def characterstoxml(names, remarks):
+	root = ET.Element("CharacterRemarks")
+	for name, remark in izip(names, remarks):
+		c = ET.SubElement(root, "Character", {'name': name})
+		c.text = remark
+	return ET.tostring(root)
+
+>>> print characterstoxml(
+	names = ["April", "Tam O'Shanter", "Emily"],
+	remarks = [ "Bubbly: I'm > Tam and <= Emily",
+		    'Burns: "When chapman billies leave the street ..."',
+		    'Short & shrift' ] ).replace('><','>\n<')

Task/XML-Output/Python/xml-output-2.py

@@ -0,0 +1,5 @@
+<CharacterRemarks>
+<Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
+<Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/R/xml-output.r

@@ -0,0 +1,13 @@
+library(XML)
+char2xml <- function(names, remarks){
+	tt <- xmlHashTree()
+	head <- addNode(xmlNode("CharacterRemarks"), character(), tt)
+	node <- list()
+	for (i in 1:length(names)){
+		node[[i]] <- addNode(xmlNode("Character", attrs=c(name=names[i])), head, tt)
+		addNode(xmlTextNode(remarks[i]), node[[i]], tt)
+	}
+	return(tt)
+}
+output <- char2xml( names=c("April","Tam O'Shanter","Emily"),
+remarks=c("Bubbly: I'm > Tam and <= Emily", 'Burns: "When chapman billies leave the street ..."', "Short & shrift") )

Task/XML-Output/REXX/xml-output.rexx

@@ -0,0 +1,117 @@
+/*REXX program creates an HTML (XML) list of character names and corresponding remarks. */
+charname.  =
+charname.1 = "April"
+charname.2 = "Tam O'Shanter"
+charname.3 = "Emily"
+                                     do i=1  while  charname.i\==''
+                                     say 'charname'   i   '='   charname.i
+                                     end   /*i*/;     say
+remark.  =
+remark.1 = "I'm > Tam and <= Emily"
+remark.2 = "When chapman billies leave the street ..."
+remark.3 = "Short & shift"
+                                     do k=1  while  remark.k\==''
+                                     say '  remark'   k   '='   remark.k
+                                     end   /*k*/;     say
+items  = 0
+header = 'CharacterRemarks'
+header = header'>'
+
+    do j=1  while  charname.j\==''
+    _=charname.j
+    if j==1  then call create '<'header
+    call create '    <Character name="'  ||,
+                char2xml(_)'">"'         ||,
+                char2xml(remark.j)'"</Character>'
+    end   /*j*/
+
+if create.0\==0  then call create '</'header
+
+        do m=1  for create.0
+        say create.m                             /*display the  Mth  entry to terminal. */
+        end   /*m*/
+exit                                             /*stick a fork in it,  we're all done. */
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+char2xml: procedure;  parse arg $
+          amper = pos('&', $)\==0                /*  &   has to be treated special.     */
+          semi  = pos(';', $)\==0                /*  ;    "   "  "    "       "         */
+          #=0                                    /* [↓]  find a free/unused character···*/
+          if amper  then do                      /*          ··· and translate freely.  */
+                           do j=0  for 255;    ?=d2c(j);    if pos(?, $)==0   then leave
+                           end   /*j*/
+                         $=translate($, ?, "&");            #= j + 1
+                         end
+                                                 /* [↓]  find a free/unused character···*/
+          if semi   then do                      /*          ··· and translate freely.  */
+                           do k=#  for 255;    ?=d2c(k);    if pos(?, $)==0  then leave
+                           end   /*k*/
+                         $=translate($, ?, ";")
+                         end
+
+/*───── Following are most of the characters in the  DOS  (or DOS Windows)  codepage  437 ──────────*/
+
+$=XML_('â',"ETH")    ; $=XML_('ƒ',"fnof")  ; $=XML_('═',"boxH")      ; $=XML_('♥',"hearts")
+$=XML_('â','#x00e2') ; $=XML_('á',"aacute"); $=XML_('╬',"boxVH")     ; $=XML_('♦',"diams")
+$=XML_('â','#x00e9') ; $=XML_('á','#x00e1'); $=XML_('╧',"boxHu")     ; $=XML_('♣',"clubs")
+$=XML_('ä',"auml")   ; $=XML_('í',"iacute"); $=XML_('╨',"boxhU")     ; $=XML_('♠',"spades")
+$=XML_('ä','#x00e4') ; $=XML_('í','#x00ed'); $=XML_('╤',"boxHd")     ; $=XML_('♂',"male")
+$=XML_('à',"agrave") ; $=XML_('ó',"oacute"); $=XML_('╥',"boxhD")     ; $=XML_('♀',"female")
+$=XML_('à','#x00e0') ; $=XML_('ó','#x00f3'); $=XML_('╙',"boxUr")     ; $=XML_('☼',"#x263c")
+$=XML_('å',"aring")  ; $=XML_('ú',"uacute"); $=XML_('╘',"boxuR")     ; $=XML_('↕',"UpDownArrow")
+$=XML_('å','#x00e5') ; $=XML_('ú','#x00fa'); $=XML_('╒',"boxdR")     ; $=XML_('¶',"para")
+$=XML_('ç',"ccedil") ; $=XML_('ñ',"ntilde"); $=XML_('╓',"boxDr")     ; $=XML_('§',"sect")
+$=XML_('ç','#x00e7') ; $=XML_('ñ','#x00f1'); $=XML_('╫',"boxVh")     ; $=XML_('↑',"uarr")
+$=XML_('ê',"ecirc")  ; $=XML_('Ñ',"Ntilde"); $=XML_('╪',"boxvH")     ; $=XML_('↑',"uparrow")
+$=XML_('ê','#x00ea') ; $=XML_('Ñ','#x00d1'); $=XML_('┘',"boxul")     ; $=XML_('↑',"ShortUpArrow")
+$=XML_('ë',"euml")   ; $=XML_('¿',"iquest"); $=XML_('┌',"boxdr")     ; $=XML_('↓',"darr")
+$=XML_('ë','#x00eb') ; $=XML_('⌐',"bnot")  ; $=XML_('█',"block")     ; $=XML_('↓',"downarrow")
+$=XML_('è',"egrave") ; $=XML_('¬',"not")   ; $=XML_('▄',"lhblk")     ; $=XML_('↓',"ShortDownArrow")
+$=XML_('è','#x00e8') ; $=XML_('½',"frac12"); $=XML_('▀',"uhblk")     ; $=XML_('←',"larr")
+$=XML_('ï',"iuml")   ; $=XML_('½',"half")  ; $=XML_('α',"alpha")     ; $=XML_('←',"leftarrow")
+$=XML_('ï','#x00ef') ; $=XML_('¼',"frac14"); $=XML_('ß',"beta")      ; $=XML_('←',"ShortLeftArrow")
+$=XML_('î',"icirc")  ; $=XML_('¡',"iexcl") ; $=XML_('ß',"szlig")     ; $=XML_('1c'x,"rarr")
+$=XML_('î','#x00ee') ; $=XML_('«',"laqru") ; $=XML_('ß','#x00df')    ; $=XML_('1c'x,"rightarrow")
+$=XML_('ì',"igrave") ; $=XML_('»',"raqru") ; $=XML_('Γ',"Gamma")     ; $=XML_('1c'x,"ShortRightArrow")
+$=XML_('ì','#x00ec') ; $=XML_('░',"blk12") ; $=XML_('π',"pi")        ; $=XML_('!',"excl")
+$=XML_('Ä',"Auml")   ; $=XML_('▒',"blk14") ; $=XML_('Σ',"Sigma")     ; $=XML_('"',"apos")
+$=XML_('Ä','#x00c4') ; $=XML_('▓',"blk34") ; $=XML_('σ',"sigma")     ; $=XML_('$',"dollar")
+$=XML_('Å',"Aring")  ; $=XML_('│',"boxv")  ; $=XML_('µ',"mu")        ; $=XML_("'","quot")
+$=XML_('Å','#x00c5') ; $=XML_('┤',"boxvl") ; $=XML_('τ',"tau")       ; $=XML_('*',"ast")
+$=XML_('É',"Eacute") ; $=XML_('╡',"boxvL") ; $=XML_('Φ',"phi")       ; $=XML_('/',"sol")
+$=XML_('É','#x00c9') ; $=XML_('╢',"boxVl") ; $=XML_('Θ',"Theta")     ; $=XML_(':',"colon")
+$=XML_('æ',"aelig")  ; $=XML_('╖',"boxDl") ; $=XML_('δ',"delta")     ; $=XML_('<',"lt")
+$=XML_('æ','#x00e6') ; $=XML_('╕',"boxdL") ; $=XML_('∞',"infin")     ; $=XML_('=',"equals")
+$=XML_('Æ',"AElig")  ; $=XML_('╣',"boxVL") ; $=XML_('φ',"Phi")       ; $=XML_('>',"gt")
+$=XML_('Æ','#x00c6') ; $=XML_('║',"boxV")  ; $=XML_('ε',"epsilon")   ; $=XML_('?',"quest")
+$=XML_('ô',"ocirc")  ; $=XML_('╗',"boxDL") ; $=XML_('∩',"cap")       ; $=XML_('_',"commat")
+$=XML_('ô','#x00f4') ; $=XML_('╝',"boxUL") ; $=XML_('≡',"equiv")     ; $=XML_('[',"lbrack")
+$=XML_('ö',"ouml")   ; $=XML_('╜',"boxUl") ; $=XML_('±',"plusmn")    ; $=XML_('\',"bsol")
+$=XML_('ö','#x00f6') ; $=XML_('╛',"boxuL") ; $=XML_('±',"pm")        ; $=XML_(']',"rbrack")
+$=XML_('ò',"ograve") ; $=XML_('┐',"boxdl") ; $=XML_('±',"PlusMinus") ; $=XML_('^',"Hat")
+$=XML_('ò','#x00f2') ; $=XML_('└',"boxur") ; $=XML_('≥',"ge")        ; $=XML_('`',"grave")
+$=XML_('û',"ucirc")  ; $=XML_('┴',"bottom"); $=XML_('≤',"le")        ; $=XML_('{',"lbrace")
+$=XML_('û','#x00fb') ; $=XML_('┴',"boxhu") ; $=XML_('÷',"div")       ; $=XML_('{',"lcub")
+$=XML_('ù',"ugrave") ; $=XML_('┬',"boxhd") ; $=XML_('÷',"divide")    ; $=XML_('|',"vert")
+$=XML_('ù','#x00f9') ; $=XML_('├',"boxvr") ; $=XML_('≈',"approx")    ; $=XML_('|',"verbar")
+$=XML_('ÿ',"yuml")   ; $=XML_('─',"boxh")  ; $=XML_('∙',"bull")      ; $=XML_('}',"rbrace")
+$=XML_('ÿ','#x00ff') ; $=XML_('┼',"boxvh") ; $=XML_('°',"deg")       ; $=XML_('}',"rcub")
+$=XML_('Ö',"Ouml")   ; $=XML_('╞',"boxvR") ; $=XML_('·',"middot")    ; $=XML_('Ç',"Ccedil")
+$=XML_('Ö','#x00d6') ; $=XML_('╟',"boxVr") ; $=XML_('·',"middledot") ; $=XML_('Ç','#x00c7')
+$=XML_('Ü',"Uuml")   ; $=XML_('╚',"boxUR") ; $=XML_('·',"centerdot") ; $=XML_('ü',"uuml")
+$=XML_('Ü','#x00dc') ; $=XML_('╔',"boxDR") ; $=XML_('·',"CenterDot") ; $=XML_('ü','#x00fc')
+$=XML_('¢',"cent")   ; $=XML_('╩',"boxHU") ; $=XML_('√',"radic")     ; $=XML_('é',"eacute")
+$=XML_('£',"pound")  ; $=XML_('╦',"boxHD") ; $=XML_('²',"sup2")      ; $=XML_('é','#x00e9')
+$=XML_('¥',"yen")    ; $=XML_('╠',"boxVR") ; $=XML_('■',"square ")   ; $=XML_('â',"acirc")
+
+          if amper  then $=xml_(?,  "amp")       /*Was there an ampersand?  Translate it*/
+          if semi   then $=xml_(??, "semi")      /* "   "     " semicolon?      "      "*/
+          return $
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+create:          items= items + 1                /*bump the count of items in the list. */
+          create.items= arg(1)                   /*add item to the  CREATE  list.       */
+          create.0    = items                    /*indicate how many items in the list. */
+          return
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+xml_:     parse arg _                            /*make an XML entity    (&xxxx;)       */
+          if pos(_, $)\==0  then return changestr(_, $, "&"arg(2)";")
+                                 return $

Task/XML-Output/Racket/xml-output-1.rkt

@@ -0,0 +1,16 @@
+#lang racket
+(require xml)
+
+(define (make-character-xexpr characters remarks)
+  `(CharacterRemarks
+    ,@(for/list ([character characters]
+                [remark remarks])
+       `(Character ((name ,character)) ,remark))))
+
+(display-xml/content
+ (xexpr->xml
+  (make-character-xexpr
+   '("April" "Tam O'Shanter" "Emily")
+   '("Bubbly: I'm > Tam and <= Emily"
+     "Burns: \"When chapman billies leave the street ...\""
+     "Short & shrift"))))

Task/XML-Output/Racket/xml-output-2.rkt

@@ -0,0 +1,11 @@
+<CharacterRemarks>
+  <Character name="April">
+    Bubbly: I'm &gt; Tam and &lt;= Emily
+  </Character>
+  <Character name="Tam O'Shanter">
+    Burns: "When chapman billies leave the street ..."
+  </Character>
+  <Character name="Emily">
+    Short &amp; shrift
+  </Character>
+</CharacterRemarks>

Task/XML-Output/Raku/xml-output-1.raku

@@ -0,0 +1,11 @@
+use XML::Writer;
+
+my @students =
+    [ Q[April],         Q[Bubbly: I'm > Tam and <= Emily] ],
+    [ Q[Tam O'Shanter], Q[Burns: "When chapman billies leave the street ..."] ],
+    [ Q[Emily],         Q[Short & shrift] ]
+;
+
+my @lines = map { :Character[:name(.[0]), .[1]] }, @students;
+
+say XML::Writer.serialize( CharacterRemarks => @lines );

Task/XML-Output/Raku/xml-output-2.raku

@@ -0,0 +1,3 @@
+<CharacterRemarks><Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character>
+<Character name="Tam O'Shanter">Burns: &quot;When chapman billies leave the street ...&quot;</Character>
+<Character name="Emily">Short &amp; shrift</Character></CharacterRemarks>

Task/XML-Output/Rascal/xml-output-1.rascal

@@ -0,0 +1,16 @@
+import Prelude;
+import lang::xml::DOM;
+
+list[str] charnames = ["April", "Tam O\'Shanter", "Emily"];
+list[str] remarks = ["Bubbly: I\'m \> Tam and \<= Emily", "Burns: \"When chapman billies leave the street ...\"", "Short & shrift"];
+
+public void xmloutput(list[str] n,list[str] r){
+	if(size(n) != size(r)){
+		throw "n and r should be of the same size";
+                }
+	else{
+		characters = [element(none(),"Character",[attribute(none(),"name",n[i]), charData(r[i])]),charData("\n")| i <- [0..size(n)-1]];
+		x = document(element(none(),"CharacterRemarks",characters));
+		return println(xmlPretty(x));
+                }
+}

Task/XML-Output/Rascal/xml-output-2.rascal

@@ -0,0 +1,10 @@
+rascal>xmloutput(charnames, remarks)
+<?xml version="1.0" encoding="UTF-8"?>
+<CharacterRemarks>
+  <Character name="April">Bubbly: I'\m &gt; Tam and &lt;= Emily</Character>
+  <Character name="Tam O'\Shanter">Burns: "When chapman billies leave the street ..."</Character>
+  <Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>
+
+
+ok

Task/XML-Output/Ruby/xml-output.rb

@@ -0,0 +1,18 @@
+require 'rexml/document'
+include REXML
+
+remarks = {
+  %q(April)         => %q(Bubbly: I'm > Tam and <= Emily),
+  %q(Tam O'Shanter) => %q(Burns: "When chapman billies leave the street ..."),
+  %q(Emily)         => %q(Short & shrift),
+}
+
+doc = Document.new
+root = doc.add_element("CharacterRemarks")
+
+remarks.each do |name, remark|
+  root.add_element("Character", {'Name' => name}).add_text(remark)
+end
+
+# output with indentation
+doc.write($stdout, 2)

Task/XML-Output/Rust/xml-output.rust

@@ -0,0 +1,58 @@
+extern crate xml;
+
+use std::collections::HashMap;
+use std::str;
+
+use xml::writer::{EmitterConfig, XmlEvent};
+
+fn characters_to_xml(characters: HashMap<String, String>) -> String {
+    let mut output: Vec<u8> = Vec::new();
+    let mut writer = EmitterConfig::new()
+        .perform_indent(true)
+        .create_writer(&mut output);
+
+    writer
+        .write(XmlEvent::start_element("CharacterRemarks"))
+        .unwrap();
+
+    for (character, line) in &characters {
+        let element = XmlEvent::start_element("Character").attr("name", character);
+        writer.write(element).unwrap();
+        writer.write(XmlEvent::characters(line)).unwrap();
+        writer.write(XmlEvent::end_element()).unwrap();
+    }
+
+    writer.write(XmlEvent::end_element()).unwrap();
+    str::from_utf8(&output).unwrap().to_string()
+}
+
+#[cfg(test)]
+mod tests {
+    use super::characters_to_xml;
+    use std::collections::HashMap;
+
+    #[test]
+    fn test_xml_output() {
+        let mut input = HashMap::new();
+        input.insert(
+            "April".to_string(),
+            "Bubbly: I'm > Tam and <= Emily".to_string(),
+        );
+        input.insert(
+            "Tam O'Shanter".to_string(),
+            "Burns: \"When chapman billies leave the street ...\"".to_string(),
+        );
+        input.insert("Emily".to_string(), "Short & shrift".to_string());
+
+        let output = characters_to_xml(input);
+
+        println!("{}", output);
+        assert!(output.contains(
+            "<Character name=\"Tam O&apos;Shanter\">Burns: \"When chapman \
+             billies leave the street ...\"</Character>"
+        ));
+        assert!(output
+            .contains("<Character name=\"April\">Bubbly: I'm > Tam and &lt;= Emily</Character>"));
+        assert!(output.contains("<Character name=\"Emily\">Short &amp; shrift</Character>"));
+    }
+}

Task/XML-Output/Scala/xml-output-1.scala

@@ -0,0 +1,9 @@
+val names = List("April", "Tam O'Shanter", "Emily")
+
+val remarks = List("Bubbly: I'm > Tam and <= Emily", """Burns: "When chapman billies leave the street ..."""", "Short & shrift")
+
+def characterRemarks(names: List[String], remarks: List[String]) = <CharacterRemarks>
+  { names zip remarks map { case (name, remark) => <Character name={name}>{remark}</Character> } }
+</CharacterRemarks>
+
+characterRemarks(names, remarks)

Task/XML-Output/Scala/xml-output-2.scala

@@ -0,0 +1,4 @@
+<CharacterRemarks>
+  <Character name="April">Bubbly: I'm &gt; Tam and &lt;= Emily</Character><Character name="Tam O'Shanter">Burns:
+&quot;When chapman billies leave the street ...&quot;</Character><Character name="Emily">Short &amp; shrift</Character>
+</CharacterRemarks>

Task/XML-Output/SenseTalk/xml-output.sensetalk

@@ -0,0 +1,7 @@
+put ("April", "Tam O'Shanter", "Emily") into names
+put ("Bubbly: I'm > Tam and <= Emily", <<Burns: "When chapman billies leave the street ...">>, "Short & shrift") into remarks
+put (_tag: "CharacterRemarks") as tree into document
+repeat for each item name in names
+	insert (_tag: "Character", name: name, _children: item the counter of remarks) as tree into document's _children
+end repeat
+put document

Task/XML-Output/Sidef/xml-output.sidef

@@ -0,0 +1,19 @@
+require('XML::Mini::Document');
+
+var students = [
+                ["April",         "Bubbly: I'm > Tam and <= Emily"],
+                ["Tam O'Shanter", "Burns: \"When chapman billies leave the street ...\""],
+                ["Emily",         "Short & shrift"]
+               ];
+
+var doc   = %s'XML::Mini::Document'.new;
+var root  = doc.getRoot;
+var studs = root.createChild("CharacterRemarks");
+
+students.each { |s|
+    var stud = studs.createChild("Character");
+    stud.attribute("name", s[0]);
+    stud.text(s[1]);
+};
+
+print doc.toString;

Task/XML-Output/Slate/xml-output.slate

@@ -0,0 +1,14 @@
+lobby define: #remarks -> (
+{'April' -> 'Bubbly: I\'m > Tam and <= Emily'.
+'Tam O\'Shanter' -> 'Burns: "When chapman billies leave the street ..."'.
+'Emily' -> 'Short & shrift'.
+} as: Dictionary).
+
+define: #writer -> (Xml Writer newOn: '' new writer).
+writer inTag: 'CharacterRemarks' do:
+  [| :w |
+   lobby remarks keysAndValuesDo:
+     [| :name :remark | w inTag: 'Character' do: [| :w | w ; remark] &attributes: {'name' -> name}].
+   ].
+
+inform: writer contents

Task/XML-Output/TUSCRIPT/xml-output.tu

@@ -0,0 +1,21 @@
+$$ MODE TUSCRIPT
+STRUCTURE xmloutput
+DATA '<CharacterRemarks>'
+DATA * '  <Character name="' names +'">' remarks +'</Character>'
+DATA = '</CharacterRemarks>'
+ENDSTRUCTURE
+BUILD X_TABLE entitysubst=" >> &gt; << &lt; & &amp; "
+ERROR/STOP CREATE ("dest",seq-o,-std-)
+ACCESS d: WRITE/ERASE/STRUCTURE  "dest" num,str
+str="xmloutput"
+  names=*
+  DATA April
+  DATA Tam O'Shanter
+  DATA Emily
+  remarks=*
+  DATA Bubbly: I'm > Tam and <= Emily
+  DATA Burns: "When chapman billies leave the street ..."
+  DATA Short & shrift
+  remarks=EXCHANGE(remarks,entitysubst)
+WRITE/NEXT d
+ENDACCESS d

Task/XML-Output/Tcl/xml-output-1.tcl

@@ -0,0 +1,28 @@
+proc xquote string {
+    list [string map "' &apos; \\\" &quot; < &gt; > &lt; & &amp;" $string]
+}
+proc < {name attl args} {
+    set res <$name
+    foreach {att val} $attl {
+        append res " $att='$val'"
+    }
+    if {[llength $args]} {
+        append res >
+        set sep ""
+        foreach a $args {
+            append res $sep $a
+            set sep \n
+        }
+        append res </$name>
+    } else {append res />}
+    return $res
+}
+set cmd {< CharacterRemarks {}}
+foreach {name comment} {
+    April "Bubbly: I'm > Tam and <= Emily"
+    "Tam O'Shanter" "Burns: \"When chapman billies leave the street ...\""
+    Emily "Short & shrift"
+} {
+    append cmd " \[< Character {Name [xquote $name]} [xquote $comment]\]"
+}
+puts [eval $cmd]

Task/XML-Output/Tcl/xml-output-2.tcl

@@ -0,0 +1,13 @@
+package require tdom
+set xml [dom createDocument CharacterRemarks]
+foreach {name comment} {
+    April "Bubbly: I'm > Tam and <= Emily"
+    "Tam O'Shanter" "Burns: \"When chapman billies leave the street ...\""
+    Emily "Short & shrift"
+} {
+    set elem [$xml createElement Character]
+    $elem setAttribute name $name
+    $elem appendChild [$xml createTextNode $comment]
+    [$xml documentElement] appendChild $elem
+}
+$xml asXML

Task/XML-Output/Tcl/xml-output-3.tcl

@@ -0,0 +1,13 @@
+package require dom
+set xml [dom::DOMImplementation create]
+set root [dom::document createElement $xml CharacterRemarks]
+foreach {name comment} {
+    April "Bubbly: I'm > Tam and <= Emily"
+    "Tam O'Shanter" "Burns: \"When chapman billies leave the street ...\""
+    Emily "Short & shrift"
+} {
+    set element [dom::document createElement $root Character]
+    dom::element setAttribute $element name $name
+    dom::document createTextNode $element $comment
+}
+dom::DOMImplementation serialize $xml -indent 1

Task/XML-Output/VBScript/xml-output.vb

@@ -0,0 +1,17 @@
+Set objXMLDoc = CreateObject("msxml2.domdocument")
+
+Set objRoot = objXMLDoc.createElement("CharacterRemarks")
+objXMLDoc.appendChild objRoot
+
+Call CreateNode("April","Bubbly: I'm > Tam and <= Emily")
+Call CreateNode("Tam O'Shanter","Burns: ""When chapman billies leave the street ...""")
+Call CreateNode("Emily","Short & shrift")
+
+objXMLDoc.save("C:\Temp\Test.xml")
+
+Function CreateNode(attrib_value,node_value)
+	Set objNode = objXMLDoc.createElement("Character")
+	objNode.setAttribute "name", attrib_value
+	objNode.text = node_value
+	objRoot.appendChild objNode
+End Function

Task/XML-Output/Vedit-macro-language/xml-output.vedit

@@ -0,0 +1,18 @@
+// Replace special characters with entities:
+Replace("&", "&", BEGIN+ALL+NOERR)          // this must be the first replace!
+Replace("<", "&lt;", BEGIN+ALL+NOERR)
+Replace(">", "&gt;", BEGIN+ALL+NOERR)
+Replace("'", "&apos;", BEGIN+ALL+NOERR)
+Replace('"', "&quot;", BEGIN+ALL+NOERR)
+
+// Insert XML marking
+BOF
+IT("<CharacterRemarks>") IN
+Repeat(ALL) {
+    Search("^.", REGEXP+ERRBREAK)
+    IT('  <Character name="')
+    Replace('|T', '">')
+    EOL IT('</Character>')
+}
+EOF
+IT("</CharacterRemarks>") IN

Task/XML-Output/Visual-Basic-.NET/xml-output.vb

@@ -0,0 +1,14 @@
+Module XMLOutput
+    Sub Main()
+        Dim charRemarks As New Dictionary(Of String, String)
+        charRemarks.Add("April", "Bubbly: I'm > Tam and <= Emily")
+        charRemarks.Add("Tam O'Shanter", "Burns: ""When chapman billies leave the street ...""")
+        charRemarks.Add("Emily", "Short & shrift")
+
+        Dim xml = <CharacterRemarks>
+                      <%= From cr In charRemarks Select <Character name=<%= cr.Key %>><%= cr.Value %></Character> %>
+                  </CharacterRemarks>
+
+        Console.WriteLine(xml)
+    End Sub
+End Module