Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/XML-Input/00-META.yaml
+++ b/Task/XML-Input/00-META.yaml
@ -0,0 +1,3 @@
+---
+from: http://rosettacode.org/wiki/XML/Input
+note: XML
--- a/Task/XML-Input/00-TASK.txt
+++ b/Task/XML-Input/00-TASK.txt
@ -0,0 +1,20 @@
+Given the following XML fragment, extract the list of ''student names'' using whatever means desired. If the only viable method is to use XPath, refer the reader to the task [[XML and XPath]].
+
+<syntaxhighlight lang="xml"><Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students></syntaxhighlight>
+
+Expected Output
+
+ April
+ Bob
+ Chad
+ Dave
+ Émily
+
--- a/Task/XML-Input/8th/xml-input.8th
+++ b/Task/XML-Input/8th/xml-input.8th
@ -0,0 +1,22 @@
+\ Load the XML text into the var 'x':
+quote *
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+* xml:parse var, x
+
+\ print only xml nodes which have a tag of 'Student' and whose attributes are not empty
+: .xml \ xml --
+	xml:tag@ "Student" s:cmp if drop ;; then
+	xml:attrs null? if drop ;; then
+
+	"Name" m:@ . cr drop ;
+
+\ Iterate over the XML document in the var 'x'
+x @ ' .xml xml:each bye
--- a/Task/XML-Input/AArch64-Assembly/xml-input.aarch64
+++ b/Task/XML-Input/AArch64-Assembly/xml-input.aarch64
@ -0,0 +1,217 @@
+/* ARM assembly AARCH64 Raspberry PI 3B */
+/*  program inputXml64.s   */
+
+/*******************************************/
+/* Constantes file                         */
+/*******************************************/
+/* for this file see task include a file in language AArch64 assembly*/
+.include "../includeConstantesARM64.inc"
+/* program constantes    */
+.equ XML_ELEMENT_NODE,          1
+.equ    XML_ATTRIBUTE_NODE,     2
+ .equ   XML_TEXT_NODE,          3
+.equ    XML_CDATA_SECTION_NODE, 4
+.equ    XML_ENTITY_REF_NODE,    5
+.equ    XML_ENTITY_NODE,        6
+.equ    XML_PI_NODE,            7
+.equ    XML_COMMENT_NODE,       8
+.equ    XML_DOCUMENT_NODE,      9
+.equ    XML_DOCUMENT_TYPE_NODE, 10
+.equ    XML_DOCUMENT_FRAG_NODE, 11
+.equ    XML_NOTATION_NODE,      12
+.equ    XML_HTML_DOCUMENT_NODE, 13
+.equ    XML_DTD_NODE,           14
+.equ    XML_ELEMENT_DECL,       15
+.equ    XML_ATTRIBUTE_DECL,     16
+.equ    XML_ENTITY_DECL,        17
+.equ    XML_NAMESPACE_DECL,     18
+.equ    XML_XINCLUDE_START,     19
+.equ    XML_XINCLUDE_END,       20
+.equ    XML_DOCB_DOCUMENT_NODE, 21
+
+/*******************************************/
+/* Structures                               */
+/********************************************/
+/* structure xmlNode  */
+    .struct  0
+xmlNode_private:                         // application data
+    .struct  xmlNode_private + 8
+xmlNode_type:                            // type number, must be second !
+    .struct  xmlNode_type + 8
+xmlNode_name:                            // the name of the node, or the entity
+    .struct  xmlNode_name + 8
+xmlNode_children:                        // parent->childs link
+    .struct  xmlNode_children + 8
+xmlNode_last:                            // last child link
+    .struct  xmlNode_last + 8
+xmlNode_parent:                          // child->parent link
+    .struct  xmlNode_parent + 8
+xmlNode_next:                            // next sibling link
+    .struct  xmlNode_next + 8
+xmlNode_prev:                            // previous sibling link
+    .struct  xmlNode_prev + 8
+xmlNode_doc:                             // the containing document
+    .struct  xmlNode_doc + 8
+xmlNode_ns:                              // pointer to the associated namespace
+    .struct  xmlNode_ns + 8
+xmlNode_content:                         // the content
+    .struct  xmlNode_content + 8
+xmlNode_properties:                      // properties list
+    .struct  xmlNode_properties + 8
+xmlNode_nsDef:                           // namespace definitions on this node
+    .struct  xmlNode_nsDef + 8
+xmlNode_psvi:                            // for type/PSVI informations
+    .struct  xmlNode_psvi + 8
+xmlNode_line:                            // line number
+    .struct  xmlNode_line + 4
+xmlNode_extra:                           // extra data for XPath/XSLT
+    .struct  xmlNode_extra + 4
+xmlNode_fin:
+
+
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessEndpgm:      .asciz "Normal end of program.\n"
+szMessError:       .asciz "Error detected !!!!. \n"
+szText:            .ascii "<Students>\n"
+                   .ascii "<Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n"
+                   .ascii "<Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n"
+                   .ascii "<Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n"
+                   .ascii "<Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n"
+                   .ascii "<Pet Type=\"dog\" Name=\"Rover\" />\n"
+                   .ascii "</Student>\n"
+                   .ascii "<Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n"
+                   .asciz "</Students>"
+.equ LGSZTEXT,   . - szText            // compute text size (. is current address)
+
+szLibExtract:      .asciz "Student"
+szLibName:         .asciz "Name"
+szCarriageReturn:  .asciz "\n"
+/*********************************/
+/* UnInitialized data            */
+/*********************************/
+.bss
+.align 4
+
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+main:                                     // entry of program
+    ldr x0,qAdrszText                     // text buffer
+    mov x1,#LGSZTEXT                      // text size
+    mov x2,#0                             // param 3
+    mov x3,#0                             // param 4
+    mov x4,#0                             // param 5
+    bl xmlReadMemory                      // read text in document
+    cmp x0,#0                             // error ?
+    beq 99f
+    mov x19,x0                            // doc address
+    mov x0,x19
+    bl xmlDocGetRootElement               // search root return in x0
+    bl affElement                         // display elements
+    mov x0,x19
+    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
+qAdrszText:               .quad szText
+qAdrszCarriageReturn:     .quad szCarriageReturn
+
+/******************************************************************/
+/*     display name of student                             */
+/******************************************************************/
+/* x0 contains the address of node */
+affElement:
+    stp x24,lr,[sp,-16]!               // save  registers
+    mov x24,x0                         // save node
+1:
+    ldr x12,[x24,#xmlNode_type]         // type ?
+    cmp x12,#XML_ELEMENT_NODE
+    bne 2f
+    ldr x0,[x24,#xmlNode_name]         // name = "Student" ?
+    ldr x1,qAdrszLibExtract
+    bl comparString
+    cmp x0,#0
+    bne 2f                            // no
+    mov x0,x24
+    ldr x1,qAdrszLibName              // load property of "Name"
+    bl xmlHasProp
+    cmp x0,#0
+    beq 2f
+    ldr x1,[x0,#xmlNode_children]     // children node of property name
+    ldr x0,[x1,#xmlNode_content]      // and address of content
+    bl affichageMess                  // for display
+    ldr x0,qAdrszCarriageReturn
+    bl affichageMess
+2:
+    ldr x0,[x24,#xmlNode_children]     // node have children ?
+    cbz x0,3f
+    bl affElement                   // yes -> call procedure
+3:
+    ldr x1,[x24,#xmlNode_next]         // other element ?
+    cmp x1,#0
+    beq 100f                          // no -> end procedure
+
+    mov x24,x1                         // else loop with next element
+    b 1b
+
+100:
+    ldp x24,lr,[sp],16                 // restaur  2 registers
+    ret                               // return to address lr x30
+qAdrszLibName:              .quad szLibName
+qAdrszLibExtract:           .quad szLibExtract
+/************************************/
+/* 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"
--- a/Task/XML-Input/ARM-Assembly/xml-input.arm
+++ b/Task/XML-Input/ARM-Assembly/xml-input.arm
@ -0,0 +1,281 @@
+/* ARM assembly Raspberry PI  */
+/*  program inputXml.s   */
+
+/* Constantes    */
+.equ STDOUT, 1     @ Linux output console
+.equ EXIT,   1     @ Linux syscall
+.equ WRITE,  4     @ Linux syscall
+.equ XML_ELEMENT_NODE,          1
+.equ    XML_ATTRIBUTE_NODE,     2
+ .equ   XML_TEXT_NODE,          3
+.equ    XML_CDATA_SECTION_NODE, 4
+.equ    XML_ENTITY_REF_NODE,    5
+.equ    XML_ENTITY_NODE,        6
+.equ    XML_PI_NODE,            7
+.equ    XML_COMMENT_NODE,       8
+.equ    XML_DOCUMENT_NODE,      9
+.equ    XML_DOCUMENT_TYPE_NODE, 10
+.equ   XML_DOCUMENT_FRAG_NODE,  11
+.equ    XML_NOTATION_NODE,      12
+.equ    XML_HTML_DOCUMENT_NODE, 13
+.equ    XML_DTD_NODE,           14
+.equ    XML_ELEMENT_DECL,       15
+.equ    XML_ATTRIBUTE_DECL,     16
+.equ    XML_ENTITY_DECL,        17
+.equ    XML_NAMESPACE_DECL,     18
+.equ    XML_XINCLUDE_START,     19
+.equ    XML_XINCLUDE_END,       20
+.equ    XML_DOCB_DOCUMENT_NODE  21
+
+/*******************************************/
+/* Structures                               */
+/********************************************/
+/* structure linkedlist*/
+    .struct  0
+xmlNode_private:                         @ application data
+    .struct  xmlNode_private + 4
+xmlNode_type:                            @ type number, must be second !
+    .struct  xmlNode_type + 4
+xmlNode_name:                            @ the name of the node, or the entity
+    .struct  xmlNode_name + 4
+xmlNode_children:                        @ parent->childs link
+    .struct  xmlNode_children + 4
+xmlNode_last:                            @ last child link
+    .struct  xmlNode_last + 4
+xmlNode_parent:                          @ child->parent link
+    .struct  xmlNode_parent + 4
+xmlNode_next:                            @ next sibling link
+    .struct  xmlNode_next + 4
+xmlNode_prev:                            @ previous sibling link
+    .struct  xmlNode_prev + 4
+xmlNode_doc:                             @ the containing document
+    .struct  xmlNode_doc + 4
+xmlNode_ns:                              @ pointer to the associated namespace
+    .struct  xmlNode_ns + 4
+xmlNode_content:                         @ the content
+    .struct  xmlNode_content + 4
+xmlNode_properties:                      @ properties list
+    .struct  xmlNode_properties + 4
+xmlNode_nsDef:                           @ namespace definitions on this node
+    .struct  xmlNode_nsDef + 4
+xmlNode_psvi:                            @ for type/PSVI informations
+    .struct  xmlNode_psvi + 4
+xmlNode_line:                            @ line number
+    .struct  xmlNode_line + 4
+xmlNode_extra:                           @ extra data for XPath/XSLT
+    .struct  xmlNode_extra + 4
+xmlNode_fin:
+
+
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessEndpgm:      .asciz "Normal end of program.\n"
+szMessError:       .asciz "Error detected !!!!. \n"
+szText:            .ascii "<Students>\n"
+                   .ascii "<Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n"
+                   .ascii "<Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n"
+                   .ascii "<Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n"
+                   .ascii "<Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n"
+                   .ascii  "<Pet Type=\"dog\" Name=\"Rover\" />\n"
+                   .ascii "</Student>\n"
+                   .ascii "<Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n"
+                   .asciz "</Students>"
+.equ LGSZTEXT,   . - szText            @ compute text size (. is current address)
+
+szLibExtract:      .asciz "Student"
+szLibName:         .asciz "Name"
+szCarriageReturn:  .asciz "\n"
+/*********************************/
+/* UnInitialized data            */
+/*********************************/
+.bss
+.align 4
+
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+main:                                     @ entry of program
+    ldr r0,iAdrszText                     @ text buffer
+    mov r1,#LGSZTEXT                      @ text size
+    mov r2,#0                             @ param 3
+    mov r3,#0                             @ param 4
+    mov r4,#0                             @ param 5
+    sub sp,#4                             @ stack assignement
+    push {r4}                             @ param 5 on stack
+    bl xmlReadMemory                      @ read text in document
+    add sp,#8                             @ stack assignement for 1 push and align stack
+    cmp r0,#0                             @ error ?
+    beq 1f
+    mov r9,r0                             @ doc address
+    mov r0,r9
+    bl xmlDocGetRootElement               @ search root return in r0
+    bl affElement                         @ display elements
+
+    mov r0,r9
+    bl xmlFreeDoc
+1:
+    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
+iAdrszText:               .int szText
+iAdrszCarriageReturn:     .int szCarriageReturn
+
+/******************************************************************/
+/*     display name of student                             */
+/******************************************************************/
+/* r0 contains the address of node */
+affElement:
+    push {r1-r4,lr}                   @ save  registres
+    mov r4,r0                         @ save node
+1:
+    ldr r2,[r4,#xmlNode_type]         @ type ?
+    cmp r2,#XML_ELEMENT_NODE
+    bne 2f
+    ldr r0,[r4,#xmlNode_name]         @ name = "Student" ?
+    ldr r1,iAdrszLibExtract
+    bl comparString
+    cmp r0,#0
+    bne 2f                            @ no
+    mov r0,r4
+    ldr r1,iAdrszLibName              @ load property of "Name"
+    bl xmlHasProp
+    cmp r0,#0
+    beq 2f
+    ldr r1,[r0,#xmlNode_children]     @ children node of property name
+    ldr r0,[r1,#xmlNode_content]      @ and address of content
+    bl affichageMess                  @ for display
+    ldr r0,iAdrszCarriageReturn
+    bl affichageMess
+2:
+    ldr r0,[r4,#xmlNode_children]     @ node have children ?
+    cmp r0,#0
+    blne affElement                   @ yes -> call procedure
+
+    ldr r1,[r4,#xmlNode_next]         @ other element ?
+    cmp r1,#0
+    beq 100f                          @ no -> end procedure
+
+    mov r4,r1                         @ else loop with next element
+    b 1b
+
+100:
+    pop {r1-r4,lr}                    @ restaur registers */
+    bx lr                             @ return
+iAdrszLibName:              .int szLibName
+iAdrszLibExtract:           .int szLibExtract
+/******************************************************************/
+/*     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
+/************************************/
+/* comparaison de chaines           */
+/************************************/
+/* r0 et r1 contiennent les adresses des chaines */
+/* retour 0 dans r0 si egalite */
+/* retour -1 si chaine r0 < chaine r1 */
+/* retour 1  si chaine r0> chaine r1 */
+comparString:
+    push {r1-r4}                @ save des registres
+    mov r2,#0                   @ indice
+1:
+    ldrb r3,[r0,r2]             @ octet chaine 1
+    ldrb r4,[r1,r2]             @ octet chaine 2
+    cmp r3,r4
+    movlt r0,#-1                @ plus petite
+    movgt r0,#1                 @ plus grande
+    bne 100f                    @ pas egaux
+    cmp r3,#0                   @ 0 final
+    moveq r0,#0                 @ egalite
+    beq 100f                    @ c est la fin
+    add r2,r2,#1                @ sinon plus 1 dans indice
+    b 1b                        @ et boucle
+100:
+    pop {r1-r4}
+    bx lr
--- a/Task/XML-Input/AWK/xml-input-1.awk
+++ b/Task/XML-Input/AWK/xml-input-1.awk
@ -0,0 +1,56 @@
+function parse_buf()
+{
+    if ( match(buffer, /<Student[ \t]+[^>]*Name[ \t]*=[ \t]*"([^"]*)"/, mt) != 0 ) {
+      students[mt[1]] = 1
+    }
+    buffer = ""
+}
+
+BEGIN {
+  FS=""
+  mode = 0
+  buffer = ""
+  li = 1
+}
+
+mode==1 {
+  for(i=1; i <= NF; i++) {
+    buffer = buffer $i
+    if ( $i == ">" ) {
+      mode = 0;
+      break;
+    }
+  }
+  if ( mode == 0 ) {
+    li = i
+  } else {
+    li = 1
+  }
+  # let us process the buffer if "complete"
+  if ( mode == 0 ) {
+    parse_buf()
+  }
+}
+
+mode==0 {
+  for(i=li; i <= NF; i++) {
+    if ( $i == "<" ) {
+      mode = 1
+      break;
+    }
+  }
+  for(j=i; i <= NF; i++) {
+    buffer = buffer $i
+    if ( $i == ">" ) {
+      mode = 0
+      parse_buf()
+    }
+  }
+  li = 1
+}
+
+END {
+  for(k in students) {
+    print k
+  }
+}
--- a/Task/XML-Input/AWK/xml-input-2.awk
+++ b/Task/XML-Input/AWK/xml-input-2.awk
@ -0,0 +1,4 @@
+awk -f getXML.awk sample.xml | awk '
+    $1 == "TAG"                 {tag = $2}
+    tag == "Student" && /Name=/ {print substr($0, index($0, "=") + 1)}
+'
--- a/Task/XML-Input/AWK/xml-input-3.awk
+++ b/Task/XML-Input/AWK/xml-input-3.awk
@ -0,0 +1,5 @@
+gawk -f xmlparser.awk sample.xml | awk '
+    $1 == "begin"                                         {tag = $2}
+    $1 == "attrib"                                        {attrib = $2}
+    $1 == "value" && tag == "STUDENT" && attrib == "name" {print $2}
+'
--- a/Task/XML-Input/ActionScript/xml-input.as
+++ b/Task/XML-Input/ActionScript/xml-input.as
@ -0,0 +1,22 @@
+package
+{
+    import flash.display.Sprite;
+
+    public class XMLReading extends Sprite
+    {
+        public function XMLReading()
+        {
+            var xml:XML = <Students>
+                            <Student Name="April" />
+                            <Student Name="Bob" />
+                            <Student Name="Chad" />
+                            <Student Name="Dave" />
+                            <Student Name="Emily" />
+                          </Students>;
+            for each(var node:XML in xml..Student)
+            {
+                trace(node.@Name);
+            }
+        }
+    }
+}
--- a/Task/XML-Input/Ada/xml-input-1.ada
+++ b/Task/XML-Input/Ada/xml-input-1.ada
@ -0,0 +1,23 @@
+with Sax.Readers;
+with Input_Sources.Strings;
+with Unicode.CES.Utf8;
+with My_Reader;
+
+procedure Extract_Students is
+   Sample_String : String :=
+"<Students>" &
+   "<Student Name=""April"" Gender=""F"" DateOfBirth=""1989-01-02"" />" &
+   "<Student Name=""Bob"" Gender=""M"" DateOfBirth=""1990-03-04"" />" &
+   "<Student Name=""Chad"" Gender=""M"" DateOfBirth=""1991-05-06"" />" &
+   "<Student Name=""Dave"" Gender=""M"" DateOfBirth=""1992-07-08"">" &
+      "<Pet Type=""dog"" Name=""Rover"" />" &
+   "</Student>" &
+   "<Student DateOfBirth=""1993-09-10"" Gender=""F"" Name=""&#x00C9;mily"" />" &
+"</Students>";
+   Reader : My_Reader.Reader;
+   Input : Input_Sources.Strings.String_Input;
+begin
+   Input_Sources.Strings.Open (Sample_String, Unicode.CES.Utf8.Utf8_Encoding, Input);
+   My_Reader.Parse (Reader, Input);
+   Input_Sources.Strings.Close (Input);
+end Extract_Students;
--- a/Task/XML-Input/Ada/xml-input-2.ada
+++ b/Task/XML-Input/Ada/xml-input-2.ada
@ -0,0 +1,12 @@
+with Sax.Attributes;
+with Sax.Readers;
+with Unicode.CES;
+package My_Reader is
+   type Reader is new Sax.Readers.Reader with null record;
+   procedure Start_Element
+     (Handler       : in out Reader;
+      Namespace_URI : Unicode.CES.Byte_Sequence := "";
+      Local_Name    : Unicode.CES.Byte_Sequence := "";
+      Qname         : Unicode.CES.Byte_Sequence := "";
+      Atts          : Sax.Attributes.Attributes'Class);
+end My_Reader;
--- a/Task/XML-Input/Ada/xml-input-3.ada
+++ b/Task/XML-Input/Ada/xml-input-3.ada
@ -0,0 +1,14 @@
+with Ada.Text_IO;
+package body My_Reader is
+   procedure Start_Element
+     (Handler       : in out Reader;
+      Namespace_URI : Unicode.CES.Byte_Sequence := "";
+      Local_Name    : Unicode.CES.Byte_Sequence := "";
+      Qname         : Unicode.CES.Byte_Sequence := "";
+      Atts          : Sax.Attributes.Attributes'Class) is
+   begin
+      if Local_Name = "Student" then
+         Ada.Text_IO.Put_Line (Sax.Attributes.Get_Value (Atts, "Name"));
+      end if;
+   end Start_Element;
+end My_Reader;
--- a/Task/XML-Input/Ada/xml-input-4.ada
+++ b/Task/XML-Input/Ada/xml-input-4.ada
@ -0,0 +1,41 @@
+with Ada.Text_IO;
+with Sax.Readers;
+with Input_Sources.Strings;
+with Unicode.CES.Utf8;
+with DOM.Readers;
+with DOM.Core.Documents;
+with DOM.Core.Nodes;
+with DOM.Core.Attrs;
+
+procedure Extract_Students is
+   Sample_String : String :=
+"<Students>" &
+   "<Student Name=""April"" Gender=""F"" DateOfBirth=""1989-01-02"" />" &
+   "<Student Name=""Bob"" Gender=""M"" DateOfBirth=""1990-03-04"" />" &
+   "<Student Name=""Chad"" Gender=""M"" DateOfBirth=""1991-05-06"" />" &
+   "<Student Name=""Dave"" Gender=""M"" DateOfBirth=""1992-07-08"">" &
+      "<Pet Type=""dog"" Name=""Rover"" />" &
+   "</Student>" &
+   "<Student DateOfBirth=""1993-09-10"" Gender=""F"" Name=""&#x00C9;mily"" />" &
+"</Students>";
+   Input : Input_Sources.Strings.String_Input;
+   Reader : DOM.Readers.Tree_Reader;
+   Document : DOM.Core.Document;
+   List : DOM.Core.Node_List;
+begin
+   Input_Sources.Strings.Open (Sample_String, Unicode.CES.Utf8.Utf8_Encoding, Input);
+   DOM.Readers.Parse (Reader, Input);
+   Input_Sources.Strings.Close (Input);
+   Document := DOM.Readers.Get_Tree (Reader);
+   List := DOM.Core.Documents.Get_Elements_By_Tag_Name (Document, "Student");
+   for I in 0 .. DOM.Core.Nodes.Length (List) - 1 loop
+      Ada.Text_IO.Put_Line
+        (DOM.Core.Attrs.Value
+           (DOM.Core.Nodes.Get_Named_Item
+              (DOM.Core.Nodes.Attributes
+                 (DOM.Core.Nodes.Item (List, I)), "Name")
+           )
+       );
+   end loop;
+   DOM.Readers.Free (Reader);
+end Extract_Students;
--- a/Task/XML-Input/Ada/xml-input-5.ada
+++ b/Task/XML-Input/Ada/xml-input-5.ada
@ -0,0 +1,16 @@
+with League.Application;
+with XML.SAX.Input_Sources.Streams.Files;
+with XML.SAX.Simple_Readers;
+
+with Handlers;
+
+procedure Main is
+   Handler : aliased Handlers.Handler;
+   Input   : aliased XML.SAX.Input_Sources.Streams.Files.File_Input_Source;
+   Reader  : aliased XML.SAX.Simple_Readers.SAX_Simple_Reader;
+
+begin
+   Input.Open_By_File_Name (League.Application.Arguments.Element (1));
+   Reader.Set_Content_Handler (Handler'Unchecked_Access);
+   Reader.Parse (Input'Unchecked_Access);
+end Main;
--- a/Task/XML-Input/Ada/xml-input-6.ada
+++ b/Task/XML-Input/Ada/xml-input-6.ada
@ -0,0 +1,21 @@
+with League.Strings;
+with XML.SAX.Attributes;
+with XML.SAX.Content_Handlers;
+
+package Handlers is
+
+   type Handler is
+     limited new XML.SAX.Content_Handlers.SAX_Content_Handler with null record;
+
+   overriding procedure Start_Element
+    (Self           : in out Handler;
+     Namespace_URI  : League.Strings.Universal_String;
+     Local_Name     : League.Strings.Universal_String;
+     Qualified_Name : League.Strings.Universal_String;
+     Attributes     : XML.SAX.Attributes.SAX_Attributes;
+     Success        : in out Boolean);
+
+   overriding function Error_String
+    (Self : Handler) return League.Strings.Universal_String;
+
+end Handlers;
--- a/Task/XML-Input/Ada/xml-input-7.ada
+++ b/Task/XML-Input/Ada/xml-input-7.ada
@ -0,0 +1,39 @@
+with Ada.Wide_Wide_Text_IO;
+
+package body Handlers is
+
+   use type League.Strings.Universal_String;
+
+   function "+"
+    (Item : Wide_Wide_String) return League.Strings.Universal_String
+       renames League.Strings.To_Universal_String;
+
+   ------------------
+   -- Error_String --
+   ------------------
+
+   overriding function Error_String
+    (Self : Handler) return League.Strings.Universal_String is
+   begin
+      return League.Strings.Empty_Universal_String;
+   end Error_String;
+
+   -------------------
+   -- Start_Element --
+   -------------------
+
+   overriding procedure Start_Element
+    (Self           : in out Handler;
+     Namespace_URI  : League.Strings.Universal_String;
+     Local_Name     : League.Strings.Universal_String;
+     Qualified_Name : League.Strings.Universal_String;
+     Attributes     : XML.SAX.Attributes.SAX_Attributes;
+     Success        : in out Boolean) is
+   begin
+      if Qualified_Name = +"Student" then
+         Ada.Wide_Wide_Text_IO.Put_Line
+          (Attributes.Value (+"Name").To_Wide_Wide_String);
+      end if;
+   end Start_Element;
+
+end Handlers;
--- a/Task/XML-Input/Aikido/xml-input.aikido
+++ b/Task/XML-Input/Aikido/xml-input.aikido
@ -0,0 +1,14 @@
+import xml
+
+var s = openin ("t.xml")
+var tree = XML.parseStream (s)
+
+foreach node tree {
+    if (node.name == "Students") {
+        foreach studentnode node {
+            if (studentnode.name == "Student") {
+                println (studentnode.getAttribute ("Name"))
+            }
+        }
+    }
+}
--- a/Task/XML-Input/Arturo/xml-input.arturo
+++ b/Task/XML-Input/Arturo/xml-input.arturo
@ -0,0 +1,14 @@
+data: {
+<Students>
+    <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+    <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+    <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+    <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+        <Pet Type="dog" Name="Rover" />
+    </Student>
+    <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+}
+
+students: read.xml data
+print join.with:"\n" map students 'student -> student\Name
--- a/Task/XML-Input/AutoHotkey/xml-input.ahk
+++ b/Task/XML-Input/AutoHotkey/xml-input.ahk
@ -0,0 +1,20 @@
+students =
+(
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+)
+
+quote = " ; "
+pos = 1
+while, pos := RegExMatch(students, "Name=.(\w+)" . quote . "\sGender"
+, name, pos + 1)
+names .= name1 . "`n"
+
+msgbox % names
--- a/Task/XML-Input/BBC-BASIC/xml-input.basic
+++ b/Task/XML-Input/BBC-BASIC/xml-input.basic
@ -0,0 +1,20 @@
+      INSTALL @lib$+"XMLLIB"
+      xmlfile$ = "C:\students.xml"
+      PROC_initXML(xmlobj{}, xmlfile$)
+
+      level% = FN_skipTo(xmlobj{}, "Students", 0)
+      IF level%=0 ERROR 100, "Students not found"
+
+      REPEAT
+        IF FN_isTag(xmlobj{}) THEN
+          tag$ = FN_nextToken(xmlobj{})
+          IF LEFT$(tag$, 8) = "<Student" THEN
+            np% = INSTR(tag$, "Name")
+            IF np% THEN PRINT FN_repEnt(EVAL(MID$(tag$, np%+5)))
+          ENDIF
+        ELSE
+          dummy$ = FN_nextToken(xmlobj{})
+        ENDIF
+      UNTIL FN_getLevel(xmlobj{}) < level%
+
+      PROC_exitXML(xmlobj{})
--- a/Task/XML-Input/Bracmat/xml-input-1.bracmat
+++ b/Task/XML-Input/Bracmat/xml-input-1.bracmat
@ -0,0 +1,14 @@
+( :?names
+& (   get$("students.xml",X,ML)
+    :   ?
+        ( ( Student
+          .   (? (Name.?name) ?,)
+            | ? (Name.?name) ?
+          )
+        & !names !name:?names
+        & ~
+        )
+        ?
+  | !names
+  )
+)
--- a/Task/XML-Input/Bracmat/xml-input-2.bracmat
+++ b/Task/XML-Input/Bracmat/xml-input-2.bracmat
@ -0,0 +1,27 @@
+( :?names
+& (     get
+      $ ( "<Students>
+  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />
+  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />
+  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />
+  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">
+    <Pet Type=\"dog\" Name=\"Rover\" />
+  </Student>
+  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />
+</Students>"
+        , MEM
+        , X
+        , ML
+        )
+    :   ?
+        ( ( Student
+          .   (? (Name.?name) ?,)
+            | ? (Name.?name) ?
+          )
+        & !names !name:?names
+        & ~
+        )
+        ?
+  | !names
+  )
+)
--- a/Task/XML-Input/C++/xml-input.cpp
+++ b/Task/XML-Input/C++/xml-input.cpp
@ -0,0 +1,30 @@
+/*
+Using the Qt library's XML parser.
+*/
+#include <iostream>
+
+#include <QDomDocument>
+#include <QObject>
+
+int main() {
+    QDomDocument doc;
+
+    doc.setContent(
+       QObject::tr(
+          "<Students>\n"
+          "<Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n"
+          "<Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n"
+          "<Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n"
+          "<Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n"
+          "<Pet Type=\"dog\" Name=\"Rover\" />\n"
+          "</Student>\n"
+          "<Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n"
+          "</Students>"));
+
+    QDomElement n = doc.documentElement().firstChildElement("Student");
+    while(!n.isNull()) {
+        std::cout << qPrintable(n.attribute("Name")) << std::endl;
+        n = n.nextSiblingElement();
+    }
+    return 0;
+}
--- a/Task/XML-Input/C-sharp/xml-input.cs
+++ b/Task/XML-Input/C-sharp/xml-input.cs
@ -0,0 +1,15 @@
+class Program
+{
+    static void Main(string[] args)
+    {
+        XDocument xmlDoc = XDocument.Load("XMLFile1.xml");
+        var query = from p in xmlDoc.Descendants("Student")
+                    select p.Attribute("Name");
+
+        foreach (var item in query)
+        {
+            Console.WriteLine(item.Value);
+        }
+        Console.ReadLine();
+    }
+}
--- a/Task/XML-Input/C/xml-input-1.c
+++ b/Task/XML-Input/C/xml-input-1.c
@ -0,0 +1,48 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <libxml/parser.h>
+#include <libxml/tree.h>
+
+static void print_names(xmlNode *node)
+{
+  xmlNode *cur_node = NULL;
+  for (cur_node = node; cur_node; cur_node = cur_node->next) {
+    if (cur_node->type == XML_ELEMENT_NODE) {
+      if ( strcmp(cur_node->name, "Student") == 0 ) {
+	xmlAttr *prop = NULL;
+	if ( (prop = xmlHasProp(cur_node, "Name")) != NULL ) {
+	  printf("%s\n", prop->children->content);
+	
+	}
+      }
+    }
+    print_names(cur_node->children);
+  }
+}
+
+const char *buffer =
+  "<Students>\n"
+  "  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n"
+  "  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n"
+  "  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n"
+  "  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n"
+  "    <Pet Type=\"dog\" Name=\"Rover\" />\n"
+  "  </Student>\n"
+  "  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n"
+  "</Students>\n";
+
+int main()
+{
+  xmlDoc *doc = NULL;
+  xmlNode *root = NULL;
+
+  doc = xmlReadMemory(buffer, strlen(buffer), NULL, NULL, 0);
+  if ( doc != NULL ) {
+    root = xmlDocGetRootElement(doc);
+    print_names(root);
+    xmlFreeDoc(doc);
+  }
+  xmlCleanupParser();
+  return 0;
+}
--- a/Task/XML-Input/C/xml-input-2.c
+++ b/Task/XML-Input/C/xml-input-2.c
@ -0,0 +1,54 @@
+#include <gadget/gadget.h>
+
+LIB_GADGET_START
+
+Main
+    Assert( Arg_count == 2, end_input );
+    Get_arg_str( xml_file, 1 );
+    Assert( Exist_file(xml_file), file_not_exist );
+
+    char* xml = Load_string(xml_file);
+
+    ST_GETTAG field = Unparser( &xml, "Students");
+    Assert ( field.content, fail_content );
+
+    while ( Occurs ("Student",field.content ) )
+    {
+        ST_GETTAG sub_field = Unparser( &field.content, "Student");
+
+        if(sub_field.attrib)
+        {
+            int i=0;
+            Iterator up i [ 0: 1: sub_field.len ]
+            {
+               if ( strcmp(sub_field.name[i], "Name" )==0 )
+               {
+                   Get_fn_let( sub_field.attrib[i], Str_tran( sub_field.attrib[i], "&#x00C9;","É" ) );
+                   /* OK... I must write the function that change this diabolic characters :D */
+                   Print "%s\n",sub_field.attrib[i];
+                   break;
+               }
+            }
+        }
+
+        Free tag sub_field;
+    }
+
+    Free tag field;
+
+  /* Exceptions areas */
+    Exception( fail_content ){
+       Msg_red("Not content for \"Students\" field\n");
+    }
+    Free secure xml;
+
+    Exception( file_not_exist ){
+       Msg_redf("File \"%s\" not found\n", xml_file);
+    }
+    Free secure xml_file;
+
+    Exception( end_input ){
+       Msg_yellow("Use:\n   RC_xml <xml_file.xml>");
+    }
+
+End
--- a/Task/XML-Input/C/xml-input-3.c
+++ b/Task/XML-Input/C/xml-input-3.c
@ -0,0 +1,9 @@
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
--- a/Task/XML-Input/Clojure/xml-input-1.clj
+++ b/Task/XML-Input/Clojure/xml-input-1.clj
@ -0,0 +1,14 @@
+(import '(java.io ByteArrayInputStream))
+(use 'clojure.xml) ; defines 'parse
+
+(def xml-text "<Students>
+  <Student Name='April' Gender='F' DateOfBirth='1989-01-02' />
+  <Student Name='Bob' Gender='M'  DateOfBirth='1990-03-04' />
+  <Student Name='Chad' Gender='M'  DateOfBirth='1991-05-06' />
+  <Student Name='Dave' Gender='M'  DateOfBirth='1992-07-08'>
+    <Pet Type='dog' Name='Rover' />
+  </Student>
+  <Student DateOfBirth='1993-09-10' Gender='F' Name='&#x00C9;mily' />
+</Students>")
+
+(def students (parse (-> xml-text .getBytes ByteArrayInputStream.)))
--- a/Task/XML-Input/Clojure/xml-input-2.clj
+++ b/Task/XML-Input/Clojure/xml-input-2.clj
@ -0,0 +1,3 @@
+(doseq [{:keys [tag attrs]} (xml-seq students)]
+  (if (= :Student tag)
+    (println (:Name attrs))))
--- a/Task/XML-Input/Common-Lisp/xml-input-1.lisp
+++ b/Task/XML-Input/Common-Lisp/xml-input-1.lisp
@ -0,0 +1,17 @@
+(defparameter *xml-blob*
+"<Students>
+  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />
+  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />
+  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />
+  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">
+    <Pet Type=\"dog\" Name=\"Rover\" />
+  </Student>
+  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />
+</Students>")
+
+(let* ((document (cxml:parse *xml-blob* (cxml-dom:make-dom-builder)))
+       (students (dom:item (dom:get-elements-by-tag-name document "Students") 0))
+       (student-names '()))
+  (dom:do-node-list (child (dom:child-nodes students) (nreverse student-names))
+    (when (dom:element-p child)
+      (push (dom:get-attribute child "Name") student-names))))
--- a/Task/XML-Input/Common-Lisp/xml-input-2.lisp
+++ b/Task/XML-Input/Common-Lisp/xml-input-2.lisp
@ -0,0 +1 @@
+("April" "Bob" "Chad" "Dave" "Émily")
--- a/Task/XML-Input/D/xml-input.d
+++ b/Task/XML-Input/D/xml-input.d
@ -0,0 +1,24 @@
+import kxml.xml;
+char[]xmlinput =
+"<Students>
+  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />
+  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />
+  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />
+  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">
+    <Pet Type=\"dog\" Name=\"Rover\" />
+  </Student>
+  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />
+</Students>";
+
+void main() {
+        auto root = readDocument(xmlinput);
+        foreach(students;root.getChildren) if (!students.isCData && students.getName == "Students") {
+                // now look for student subnodes
+                foreach(student;students.getChildren) if (!student.isCData && student.getName == "Student") {
+                        // we found a student!
+                        std.stdio.writefln("%s",student.getAttribute("Name"));
+                }
+                // we only want one, so break out of the loop once we find a match
+                break;
+        }
+}
--- a/Task/XML-Input/Delphi/xml-input.delphi
+++ b/Task/XML-Input/Delphi/xml-input.delphi
@ -0,0 +1,46 @@
+//You need to use these units
+uses
+  SysUtils,
+  Dialogs,
+  XMLIntf,
+  XMLDoc;
+
+//..............................................
+
+//This function process the XML
+function GetStudents(aXMLInput: string): string;
+var
+  XMLDoc: IXMLDocument;
+  i: Integer;
+begin
+  //Creating the TXMLDocument instance
+  XMLDoc:= TXMLDocument.Create(nil);
+
+  //Loading8 the XML string
+  XMLDoc.LoadFromXML(aXMLInput);
+
+  //Parsing the xml document
+  for i:=0 to XMLDoc.DocumentElement.ChildNodes.Count - 1 do
+    Result:= Result + XMLDoc.DocumentElement.ChildNodes.Get(i).GetAttributeNS('Name', '') + #13#10;
+
+  //Removing the trailing #13#10 characters
+  Result:= Trim(Result);
+end;
+
+//..............................................
+
+//Consuming code example (fragment)
+var
+  XMLInput: string;
+begin
+  XMLInput:= '<Students>' +
+                '<Student Name="April" Gender="F" DateOfBirth="1989-01-02" />' +
+                '<Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />' +
+                '<Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />' +
+                '<Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">' +
+                  '<Pet Type="dog" Name="Rover" />' +
+                '</Student>' +
+                '<Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />'+
+              '</Students>';
+  Showmessage(GetStudents(XMLInput));
+end;
--- a/Task/XML-Input/Erlang/xml-input.erl
+++ b/Task/XML-Input/Erlang/xml-input.erl
@ -0,0 +1,22 @@
+-module( xml_input ).
+
+-export( [task/0] ).
+
+-include_lib("xmerl/include/xmerl.hrl").
+
+task() ->
+    {XML, []} = xmerl_scan:string( xml(), [{encoding, "iso-10646-utf-1"}] ),
+    Attributes = lists:flatten( [X || #xmlElement{name='Student', attributes=X} <- XML#xmlElement.content] ),
+    [io:fwrite("~s~n", [X]) || #xmlAttribute{name='Name', value=X} <- Attributes].
+
+
+
+xml() -> "<Students>
+  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />
+  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />
+  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />
+  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">
+    <Pet Type=\"dog\" Name=\"Rover\" />
+  </Student>
+  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />
+</Students>".
--- a/Task/XML-Input/F-Sharp/xml-input.fs
+++ b/Task/XML-Input/F-Sharp/xml-input.fs
@ -0,0 +1,26 @@
+open System.IO
+open System.Xml
+open System.Xml.Linq
+
+let xn s = XName.Get(s)
+
+let xd = XDocument.Load(new StringReader("""
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+"""))  // "
+
+
+
+[<EntryPoint>]
+let main argv =
+    let students = xd.Descendants <| xn "Student"
+    let names = students.Attributes <| xn "Name"
+    Seq.iter ((fun (a : XAttribute) ->  a.Value) >> printfn "%s") names
+    0
--- a/Task/XML-Input/Factor/xml-input.factor
+++ b/Task/XML-Input/Factor/xml-input.factor
@ -0,0 +1,14 @@
+USING: io multiline sequences xml xml.data xml.traversal ;
+
+: print-student-names ( string -- )
+    string>xml "Student" tags-named [ "Name" attr print ] each ;
+
+[[ <Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>]] print-student-names
--- a/Task/XML-Input/Fantom/xml-input.fantom
+++ b/Task/XML-Input/Fantom/xml-input.fantom
@ -0,0 +1,18 @@
+using xml
+
+class XmlInput
+{
+  public static Void main ()
+  {
+    // create the XML parser
+    parser := XParser(File("sample-xml.xml".toUri).in)
+    // parse the document, creating an XML document
+    XDoc doc := parser.parseDoc
+    // walk through each child element from the root of the document
+    doc.root.elems.each |elem|
+    {
+      // printing the Name attribute of all Students
+      if (elem.name == "Student") { echo (elem.get("Name")) }
+    }
+  }
+}
--- a/Task/XML-Input/Forth/xml-input.fth
+++ b/Task/XML-Input/Forth/xml-input.fth
@ -0,0 +1,48 @@
+include ffl/est.fs
+include ffl/str.fs
+include ffl/xis.fs
+
+\ Build input string
+str-create xmlstr
+: x+ xmlstr str-append-string ;
+
+s\" <Students>\n" x+
+s\" <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n" x+
+s\" <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n"  x+
+s\" <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n" x+
+s\" <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n"   x+
+s\" <Pet Type=\"dog\" Name=\"Rover\" />\n" x+
+s\" </Student>\n" x+
+s\" <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n" x+
+s\" </Students>\n" x+
+
+\ Setup xml parser
+xis-create xmlparser
+xmlstr str-get xmlparser xis-set-string
+
+\ Parse the xml
+: xmlparse
+  BEGIN
+    xmlparser xis-read  dup xis.error <> over xis.done <> AND
+  WHILE
+    dup xis.start-tag = over xis.empty-element = OR IF
+      drop
+      s" Student" compare 0= IF
+        0 ?DO
+          2swap s" Name" compare 0= IF
+            type cr
+          ELSE
+            2drop
+          THEN
+        LOOP
+      ELSE
+        xis+remove-attribute-parameters
+      THEN
+    ELSE
+      xis+remove-read-parameters
+    THEN
+  REPEAT
+  drop
+;
+
+xmlparse
--- a/Task/XML-Input/Fortran/xml-input-1.f
+++ b/Task/XML-Input/Fortran/xml-input-1.f
@ -0,0 +1,33 @@
+program tixi_rosetta
+  use tixi
+  implicit none
+  integer :: i
+  character (len=100) :: xml_file_name
+  integer :: handle
+  integer :: error	
+  character(len=100) :: name, xml_attr
+  xml_file_name = 'rosetta.xml'
+
+  call tixi_open_document( xml_file_name, handle, error )
+  i = 1
+  do
+      xml_attr = '/Students/Student['//int2char(i)//']'
+      call tixi_get_text_attribute( handle, xml_attr,'Name', name, error )
+      if(error /= 0) exit
+      write(*,*) name
+      i = i + 1
+  enddo
+
+  call tixi_close_document( handle, error )
+
+  contains
+
+  function int2char(i) result(res)
+    character(:),allocatable :: res
+    integer,intent(in) :: i
+    character(range(i)+2) :: tmp
+    write(tmp,'(i0)') i
+    res = trim(tmp)
+  end function int2char
+
+end program tixi_rosetta
--- a/Task/XML-Input/Fortran/xml-input-2.f
+++ b/Task/XML-Input/Fortran/xml-input-2.f
@ -0,0 +1,29 @@
+program fox_rosetta
+   use FoX_dom
+   use FoX_sax
+   implicit none
+   integer :: i
+   type(Node), pointer :: doc => null()
+   type(Node), pointer :: p1 => null()
+   type(Node), pointer :: p2 => null()
+   type(NodeList), pointer :: pointList => null()
+   character(len=100) :: name
+
+   doc => parseFile("rosetta.xml")
+   if(.not. associated(doc)) stop "error doc"
+
+   p1 => item(getElementsByTagName(doc, "Students"), 0)
+   if(.not. associated(p1)) stop "error p1"
+   ! write(*,*) getNodeName(p1)
+
+   pointList => getElementsByTagname(p1, "Student")
+   ! write(*,*) getLength(pointList), "Student elements"
+
+   do i = 0, getLength(pointList) - 1
+      p2 => item(pointList, i)
+      call extractDataAttribute(p2, "Name", name)
+      write(*,*) name
+   enddo
+
+   call destroy(doc)
+end program fox_rosetta
--- a/Task/XML-Input/FreeBASIC/xml-input.basic
+++ b/Task/XML-Input/FreeBASIC/xml-input.basic
@ -0,0 +1,64 @@
+Data 32, 173, 189, 156, 207, 190, 221, 245, 249, 184, 166, 174, 170, 32, 169, 238
+Data 248, 241, 253, 252, 239, 230, 244, 250, 247, 251, 167, 175, 172, 171, 243, 168
+Data 183, 181, 182, 199, 142, 143, 146, 128, 212, 144, 210, 211, 222, 214, 215, 216
+Data 209, 165, 227, 224, 226, 229, 153, 158, 157, 235, 233, 234, 154, 237, 232, 225
+Data 133, 160, 131, 198, 132, 134, 145, 135, 138, 130, 136, 137, 141, 161, 140, 139
+Data 208, 164, 149, 162, 147, 228, 148, 246, 155, 151, 163, 150, 129, 236, 231, 152
+
+Dim Shared As Integer numCodes, initCode
+initCode = 160
+numCodes = 255 - initCode + 1
+
+Dim Shared As Integer codes(numCodes)
+For i As Integer = 0 To numCodes - 1 : Read codes(i)
+Next i
+
+Function codeConversion(charcode As Integer, tocode As Integer = False) As Integer
+    If tocode Then
+        For i As Integer = 0 To numCodes - 1
+            If codes(i) = charcode Then Return i + initCode
+        Next i
+    Else
+        Return codes(charcode - initCode)
+    End If
+End Function
+
+Function convASCII(nombre As String, mark As String) As String
+    Dim As Integer p, c, lm = Len(mark)
+
+    Do
+        p = Instr(p, nombre, mark)
+        If p = 0 Then Exit Do
+        c = Valint(Mid(nombre, p + lm, 4))
+        c = codeConversion(c)
+        nombre = Left(nombre, p-1) + Chr(c) + Right(nombre, Len(nombre) - (p + lm + 4))
+        p += 1
+    Loop
+    Return nombre
+End Function
+
+Dim As String strXml =  "<Students>"
+strXml += "  <Student Name=\'April\' Gender=\'F\' DateOfBirth=\'1989-01-02\' />"
+strXml += "  <Student Name=\'Bob\' Gender=\'M\'  DateOfBirth=\'1990-03-04\' />"
+strXml += "  <Student Name=\'Chad\' Gender=\'M\'  DateOfBirth=\'1991-05-06\' />"
+strXml += "  <Student Name=\'Dave\' Gender=\'M\'  DateOfBirth=\'1992-07-08\'>"
+strXml += "    <Pet Type=\'dog\' Name=\'Rover\' />"
+strXml += "  </Student>"
+strXml += "  <Student DateOfBirth=\'1993-09-10\' Gender=\'F\' Name=\'&#x00C9;mily\' />"
+strXml += "</Students>"
+
+Dim As String tag1 = "<Student"
+Dim As String tag2 = "Name=\'", nombre
+Dim As Integer ltag = Len(tag2), p = 1, p2
+
+Do
+    p = Instr(p, strXml, tag1)
+    If p = 0 Then Exit Do
+    p = Instr(p, strXml, tag2)
+    p += ltag
+    p2 = Instr(p, strXml, "\'")
+    nombre = convASCII(Mid(strXml, p, p2 - p), "&#x")
+    Print nombre
+Loop
+
+Sleep
--- a/Task/XML-Input/FutureBasic/xml-input.basic
+++ b/Task/XML-Input/FutureBasic/xml-input.basic
@ -0,0 +1,48 @@
+include "NSLog.incl"
+include "Tlbx XML.incl"
+
+#define STUDENTS_KEY @"Students"
+#define STUDENT_KEY  @"Student"
+#define NAME_KEY     @"Name"
+
+void local fn MyParserDelegateCallback( ev as long, parser as XMLParserRef, userData as ptr )
+  static BOOL     studentsFlag = NO
+  CFDictionaryRef attributes
+  CFStringRef     name
+
+  select ( ev )
+    case _xmlParserDidStartElement
+      select ( fn XMLParserDelegateElementName(parser) )
+        case STUDENTS_KEY
+          studentsFlag = YES
+
+        case STUDENT_KEY
+          if ( studentsFlag )
+            attributes = fn XMLParserDelegateAttributes(parser)
+            name = fn DictionaryObjectForKey( attributes, NAME_KEY )
+            if ( name ) then NSLog(@"%@",name)
+          end if
+      end select
+  end select
+end fn
+
+void local fn ParseXMLFile
+  CFStringRef xmlString = @"<Students>\n"
+  xmlString = fn StringByAppendingFormat( xmlString, @"%@\n",@"<Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n" )
+  xmlString = fn StringByAppendingFormat( xmlString, @"<Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n" )
+  xmlString = fn StringByAppendingFormat( xmlString, @"<Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n" )
+  xmlString = fn StringByAppendingFormat( xmlString, @"<Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n" )
+  xmlString = fn StringByAppendingFormat( xmlString, @"<Pet Type=\"dog\" Name=\"Rover\" />\n" )
+  xmlString = fn StringByAppendingFormat( xmlString, @"</Student>\n" )
+  xmlString = fn StringByAppendingFormat( xmlString, @"<Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n" )
+  xmlString = fn StringByAppendingFormat( xmlString, @"</Students>" )
+
+  CFDataRef xmlData = fn StringData( xmlString, NSUTF8StringEncoding )
+  XMLParserRef parser = fn XMLParserWithData( xmlData )
+  XMLParserSetDelegateCallback( parser, @fn MyParserDelegateCallback, NULL )
+  fn XMLParserParse( parser )
+end fn
+
+fn ParseXMLFile
+
+HandleEvents
--- a/Task/XML-Input/Go/xml-input.go
+++ b/Task/XML-Input/Go/xml-input.go
@ -0,0 +1,50 @@
+package main
+
+import (
+    "encoding/xml"
+    "fmt"
+)
+
+const XML_Data = `
+<Students>
+   <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+   <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+   <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+   <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+      <Pet Type="dog" Name="Rover" />
+   </Student>
+   <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+`
+
+type Students struct {
+    Student []Student
+}
+
+type Student struct {
+    Name string `xml:",attr"`
+    //  Gender      string `xml:",attr"`
+    //  DateOfBirth string `xml:",attr"`
+    //  Pets        []Pet  `xml:"Pet"`
+}
+
+type Pet struct {
+    Type string `xml:",attr"`
+    Name string `xml:",attr"`
+}
+
+// xml.Unmarshal quietly skips well formed input with no corresponding
+// member in the output data structure.  With Gender, DateOfBirth, and
+// Pets commented out of the Student struct, as above, Student contains
+// only Name, and this is the only value extracted from the input XML_Data.
+func main() {
+    var data Students
+    err := xml.Unmarshal([]byte(XML_Data), &data)
+    if err != nil {
+        fmt.Println(err)
+        return
+    }
+    for _, s := range data.Student {
+        fmt.Println(s.Name)
+    }
+}
--- a/Task/XML-Input/Groovy/xml-input.groovy
+++ b/Task/XML-Input/Groovy/xml-input.groovy
@ -0,0 +1,12 @@
+def input = """<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>"""
+
+def students = new XmlParser().parseText(input)
+students.each { println it.'@Name' }
--- a/Task/XML-Input/Haskell/xml-input-1.hs
+++ b/Task/XML-Input/Haskell/xml-input-1.hs
@ -0,0 +1,15 @@
+import Data.Maybe
+import Text.XML.Light
+
+students="<Students>"++
+        " <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />"++
+        " <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />"++
+        " <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\"/>"++
+        " <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">"++
+        "   <Pet Type=\"dog\" Name=\"Rover\" />  </Student>"++
+        " <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />"++
+        "</Students>"
+
+xmlRead elm name  = mapM_ putStrLn
+      . concatMap (map (fromJust.findAttr (unqual name)).filterElementsName (== unqual elm))
+      . onlyElems.  parseXML
--- a/Task/XML-Input/Haskell/xml-input-2.hs
+++ b/Task/XML-Input/Haskell/xml-input-2.hs
@ -0,0 +1,6 @@
+*Main> xmlRead "Student" "Name" students
+April
+Bob
+Chad
+Dave
+Émily
--- a/Task/XML-Input/HicEst/xml-input.hicest
+++ b/Task/XML-Input/HicEst/xml-input.hicest
@ -0,0 +1,4 @@
+CHARACTER in*1000, out*100
+
+READ(ClipBoard) in
+EDIT(Text=in, SPR='"', Right='<Student', Right='Name=', Word=1, WordEnd, APpendTo=out, DO)
--- a/Task/XML-Input/J/xml-input-1.j
+++ b/Task/XML-Input/J/xml-input-1.j
@ -0,0 +1,7 @@
+load'xml/sax'
+
+saxclass 'Students'
+startElement =: ([: smoutput 'Name' getAttribute~ [)^:('Student'-:])
+cocurrent'base'
+
+process_Students_ XML
--- a/Task/XML-Input/J/xml-input-2.j
+++ b/Task/XML-Input/J/xml-input-2.j
@ -0,0 +1,11 @@
+XML=: noun define
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+)
--- a/Task/XML-Input/Java/xml-input.java
+++ b/Task/XML-Input/Java/xml-input.java
@ -0,0 +1,51 @@
+import java.io.IOException;
+import java.io.StringReader;
+import org.xml.sax.Attributes;
+import org.xml.sax.InputSource;
+import org.xml.sax.SAXException;
+import org.xml.sax.XMLReader;
+import org.xml.sax.helpers.DefaultHandler;
+import org.xml.sax.helpers.XMLReaderFactory;
+
+public class StudentHandler extends DefaultHandler {
+  public static void main(String[] args)throws Exception{
+    String xml = "<Students>\n"+
+    "<Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n"+
+    "<Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n"+
+    "<Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n"+
+    "<Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n"+
+    "  <Pet Type=\"dog\" Name=\"Rover\" />\n"+
+    "</Student>\n"+
+    "<Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n"+
+    "</Students>";
+    StudentHandler handler = new StudentHandler();
+    handler.parse(new InputSource(new StringReader(xml)));
+  }
+
+  public void parse(InputSource src) throws SAXException, IOException {
+		XMLReader parser = XMLReaderFactory.createXMLReader();
+    parser.setContentHandler(this);
+    parser.parse(src);
+  }
+
+  @Override
+  public void characters(char[] ch, int start, int length) throws SAXException {
+    //if there were text as part of the elements, we would deal with it here
+    //by adding it to a StringBuffer, but we don't have to for this task
+    super.characters(ch, start, length);
+  }
+
+  @Override
+  public void endElement(String uri, String localName, String qName) throws SAXException {
+    //this is where we would get the info from the StringBuffer if we had to,
+    //but all we need is attributes
+    super.endElement(uri, localName, qName);
+  }
+
+  @Override
+  public void startElement(String uri, String localName, String qName, Attributes attributes) throws SAXException {
+    if(qName.equals("Student")){
+      System.out.println(attributes.getValue("Name"));
+    }
+  }
+}
--- a/Task/XML-Input/JavaScript/xml-input-1.js
+++ b/Task/XML-Input/JavaScript/xml-input-1.js
@ -0,0 +1,26 @@
+var xmlstr = '<Students>' +
+  '<Student Name="April" Gender="F" DateOfBirth="1989-01-02" />' +
+  '<Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />' +
+  '<Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />' +
+  '<Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">' +
+    '<Pet Type="dog" Name="Rover" />' +
+  '</Student>' +
+  '<Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />' +
+'</Students>';
+
+if (window.DOMParser)
+  {
+  parser=new DOMParser();
+  xmlDoc=parser.parseFromString(xmlstr,"text/xml");
+  }
+else // Internet Explorer
+  {
+  xmlDoc=new ActiveXObject("Microsoft.XMLDOM");
+  xmlDoc.async=false;
+  xmlDoc.loadXML(xmlstr);
+  }
+
+var students=xmlDoc.getElementsByTagName('Student');
+for(var e=0; e<=students.length-1; e++) {
+  console.log(students[e].attributes.Name.value);
+}
--- a/Task/XML-Input/JavaScript/xml-input-2.js
+++ b/Task/XML-Input/JavaScript/xml-input-2.js
@ -0,0 +1,18 @@
+var parseString = require('xml2js').parseString;
+var xmlstr = '<Students>' +
+  '<Student Name="April" Gender="F" DateOfBirth="1989-01-02" />' +
+  '<Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />' +
+  '<Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />' +
+  '<Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">' +
+    '<Pet Type="dog" Name="Rover" />' +
+  '</Student>' +
+  '<Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />' +
+'</Students>';
+
+parseString(xmlstr, function (err, result) {
+   if (!err) {
+      result.Students.Student.forEach( function(student) {
+         console.log(student.$.Name);
+      } );
+   }
+});
--- a/Task/XML-Input/JavaScript/xml-input-3.js
+++ b/Task/XML-Input/JavaScript/xml-input-3.js
@ -0,0 +1,20 @@
+var xmlstr = '<Students>' +
+  '<Student Name="April" Gender="F" DateOfBirth="1989-01-02" />' +
+  '<Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />' +
+  '<Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />' +
+  '<Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">' +
+    '<Pet Type="dog" Name="Rover" />' +
+  '</Student>' +
+  '<Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />' +
+'</Students>';
+var xml = XML(xmlstr);
+var list = xml.Student.@Name;
+var output = '';
+for (var i = 0; i < list.length(); i++) {
+  if (i > 0) {
+    output += ', ';
+  }
+  output += list[i];
+}
+
+alert(output);
--- a/Task/XML-Input/Jq/xml-input-1.jq
+++ b/Task/XML-Input/Jq/xml-input-1.jq
@ -0,0 +1 @@
+xq -r '.Students.Student[]."@Name"' students.xml
--- a/Task/XML-Input/Jq/xml-input-2.jq
+++ b/Task/XML-Input/Jq/xml-input-2.jq
@ -0,0 +1 @@
+include "peg" {search: "."};
--- a/Task/XML-Input/Jq/xml-input-3.jq
+++ b/Task/XML-Input/Jq/xml-input-3.jq
@ -0,0 +1,38 @@
+def XML:
+  def String    : ((consume("\"") | parse("[^\"]*") | consume("\"")) //
+                   (consume("'") | parse("[^']*") | consume("'")));
+
+  def CDataSec  : box("@CDATA";   q("<![CDATA[") | string_except("]]>") | q("]]>") ) | ws;
+  def PROLOG    : box("@PROLOG";  q("<?xml") | string_except("\\?>") | q("?>"));
+  def DTD       : box("@DTD";     q("<!") | parse("[^>]") | q(">"));
+  # The XML spec specifically disallows double-hyphen within comments
+  def COMMENT   : box("@COMMENT"; q("<!--") | string_except("--") | q("-->"));
+
+  def CharData  : parse("[^<]+");  # only `<` is disallowed
+
+  # This is more permissive than required:
+  def Name      : parse("[A-Za-z:_][^/=<>\n\r\t ]*");
+
+  def Attribute : keyvalue(Name | ws | q("=") | ws | String | ws);
+  def Attributes: box( plus(Attribute) ) | .result[-1] |= {"@attributes": add} ;
+
+  # <foo> must be matched with </foo>
+  def Element   :
+    def Content : star(Element // CDataSec // CharData // COMMENT);
+    objectify( q("<")
+         | Name
+         | .result[-1] as $name
+	 | ws
+         | (Attributes // ws)
+         | (  (q("/>")
+	   // (q(">") | Content | q("</") | q($name) | ws | q(">")))
+         | ws) ) ;
+
+  {remainder: . }
+  | ws
+  | optional(PROLOG) | ws
+  | optional(DTD) | ws
+  | star(COMMENT | ws)
+  | Element | ws             # for HTML, one would use star(Element) here
+  | star(COMMENT | ws)
+  | .result;
--- a/Task/XML-Input/Jq/xml-input-4.jq
+++ b/Task/XML-Input/Jq/xml-input-4.jq
@ -0,0 +1,22 @@
+# For handling hex character codes &#x
+def hex2i:
+  def toi: if . >= 87 then .-87 else . - 48 end;
+  reduce ( ascii_downcase | explode | map(toi) | reverse[]) as $i ([1, 0]; # [power, sum]
+    .[1] += $i * .[0]
+    | .[0] *= 16 )
+  | .[1];
+
+def hexcode2json:
+  gsub("&#x(?<x>....);" ; .x | [hex2i] | implode) ;
+
+def jsonify:
+  walk( if type == "array"
+        then map(select(type == "string" and test("^\n *$") | not))
+	elif type == "string" then hexcode2json
+	else . end);
+
+# First convert to JSON ...
+XML | jsonify
+# ... and then extract Student Names
+| .[]
+| (.Students[].Student[]["@attributes"] // empty).Name
--- a/Task/XML-Input/Julia/xml-input.julia
+++ b/Task/XML-Input/Julia/xml-input.julia
@ -0,0 +1,18 @@
+using LightXML
+
+let docstr = """<Students>
+      <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+      <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+      <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+      <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+        <Pet Type="dog" Name="Rover" />
+      </Student>
+      <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+    </Students>"""
+
+    doc = parse_string(docstr)
+    xroot = root(doc)
+    for elem in xroot["Student"]
+        println(attribute(elem, "Name"))
+    end
+end
--- a/Task/XML-Input/Kotlin/xml-input.kotlin
+++ b/Task/XML-Input/Kotlin/xml-input.kotlin
@ -0,0 +1,36 @@
+// version 1.1.3
+
+import javax.xml.parsers.DocumentBuilderFactory
+import org.xml.sax.InputSource
+import java.io.StringReader
+import org.w3c.dom.Node
+import org.w3c.dom.Element
+
+val xml =
+"""
+<Students>
+    <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+    <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+    <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+    <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+        <Pet Type="dog" Name="Rover" />
+    </Student>
+    <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+"""
+
+fun main(args: Array<String>) {
+    val dbFactory = DocumentBuilderFactory.newInstance()
+    val dBuilder  = dbFactory.newDocumentBuilder()
+    val xmlInput = InputSource(StringReader(xml))
+    val doc = dBuilder.parse(xmlInput)
+    val nList = doc.getElementsByTagName("Student")
+    for (i in 0 until nList.length) {
+        val node = nList.item(i)
+        if (node.nodeType == Node.ELEMENT_NODE) {
+            val element = node as Element
+            val name = element.getAttribute("Name")
+            println(name)
+        }
+    }
+}
--- a/Task/XML-Input/Lasso/xml-input-1.lasso
+++ b/Task/XML-Input/Lasso/xml-input-1.lasso
@ -0,0 +1,30 @@
+// makes extracting attribute values easier
+define xml_attrmap(in::xml_namedNodeMap_attr) => {
+	local(out = map)
+	with attr in #in
+		do #out->insert(#attr->name = #attr->value)
+	return #out
+}
+
+local(
+	text = '<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+',
+xml = xml(#text)
+)
+
+local(
+	students	= #xml -> extract('//Student'),
+	names		= array
+)
+with student in #students do {
+	#names -> insert(xml_attrmap(#student -> attributes) -> find('Name'))
+}
+#names -> join('<br />')
--- a/Task/XML-Input/Lasso/xml-input-2.lasso
+++ b/Task/XML-Input/Lasso/xml-input-2.lasso
@ -0,0 +1,11 @@
+// not using XML or Xpath
+'<hr />'
+local(
+	regexp	= regexp(-find = `<Student.*?Name="(.*?)"`, -input = #text, -ignoreCase),
+	names	= array
+)
+
+while( #regexp -> find) => {
+	#names -> insert(#regexp -> matchstring(1))
+}
+#names -> join('<br />')
--- a/Task/XML-Input/Lingo/xml-input.lingo
+++ b/Task/XML-Input/Lingo/xml-input.lingo
@ -0,0 +1,18 @@
+q = QUOTE
+r = RETURN
+xml = "<Students>"&r&\
+"  <Student Name="&q&"April"&q&" Gender="&q&"F"&q&" DateOfBirth="&q&"1989-01-02"&q&" />"&r&\
+"  <Student Name="&q&"Bob"&q&" Gender="&q&"M"&q&" DateOfBirth="&q&"1990-03-04"&q&" />"&r&\
+"  <Student Name="&q&"Chad"&q&" Gender="&q&"M"&q&" DateOfBirth="&q&"1991-05-06"&q&" />"&r&\
+"  <Student Name="&q&"Dave"&q&" Gender="&q&"M"&q&" DateOfBirth="&q&"1992-07-08"&q&">"&r&\
+"    <Pet Type="&q&"dog"&q&" Name="&q&"Rover"&q&" />"&r&\
+"  </Student>"&r&\
+"  <Student DateOfBirth="&q&"1993-09-10"&q&" Gender="&q&"F"&q&" Name="&q&"&#x00C9;mily"&q&" />"&r&\
+"</Students>"
+
+parser = xtra("xmlparser").new()
+parser.parseString(xml)
+res = parser.makePropList()	
+repeat with c in res.child
+  put c.attributes.name
+end repeat
--- a/Task/XML-Input/LiveCode/xml-input.livecode
+++ b/Task/XML-Input/LiveCode/xml-input.livecode
@ -0,0 +1,2 @@
+put revXMLCreateTree(fld "FieldXML",true,true,false) into currTree
+put revXMLAttributeValues(currTree,"Students","Student","Name",return,-1)
--- a/Task/XML-Input/Lua/xml-input.lua
+++ b/Task/XML-Input/Lua/xml-input.lua
@ -0,0 +1,19 @@
+require 'lxp'
+data = [[<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>]]
+
+p = lxp.new({StartElement = function (parser, name, attr)
+	if name == 'Student' and attr.Name then
+		print(attr.Name)
+	end
+end})
+
+p:parse(data)
+p:close()
--- a/Task/XML-Input/M2000-Interpreter/xml-input-1.m2000
+++ b/Task/XML-Input/M2000-Interpreter/xml-input-1.m2000
@ -0,0 +1,26 @@
+Module CheckIt {
+      Const Enumerator=-4&
+      xml$={<Students>
+              <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+              <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+              <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+              <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+                <Pet Type="dog" Name="Rover" />
+              </Student>
+              <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+            </Students>
+            }
+      Declare Dom "Msxml2.DOMDocument"
+      Method Dom, "LoadXML", xml$
+      Method Dom, "getElementsByTagName", "Student" as Students
+
+      With Students, Enumerator as Student
+      While Student {
+            Method Student, "getAttribute", "Name" as Student.Name$
+            Print Student.Name$
+      }
+      Declare Student Nothing
+      Declare Students Nothing
+      Declare DOM Nothing
+}
+CheckIt
--- a/Task/XML-Input/M2000-Interpreter/xml-input-2.m2000
+++ b/Task/XML-Input/M2000-Interpreter/xml-input-2.m2000
@ -0,0 +1,51 @@
+Module Checkit {
+	declare databank xmldata
+	method databank, "NumericCharactersEntities", true
+	with databank, "xml" as doc$, "beautify" as beautify
+	doc$={<?xml?>
+	<Students>
+		<Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+		<Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+		<Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+		<Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+			<Pet Type="dog" Name="Rover" />
+		</Student>
+		<Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+	</Students>
+	}
+	beautify=-4
+	Report 3, doc$
+	Method databank, "GetListByTag", "Student", -1 as Result
+	c=1   // Result is type of M2000 stack.
+	If len(Result)>0 then
+		Stack Result {
+			Read fieldsNo : With fieldsNo, "Attr" as fieldsno.tag$()
+		}
+		Stack Result {
+			Print c, " "+fieldsno.tag$("Name")
+			c++
+			// Loop raise a flag for this block,
+			// which interpreter read at the end of block, and then clear it
+			if empty else loop
+			Read fieldsNo
+		}
+        // this place hexadecimal value for char É
+        // this object offer by default 5 escaped characters: quot, amp, apos, lt, gt
+        // inner local function conv$() can be used to escape characters above 127.
+        fieldsno.tag$("Name")=@conv$("Émily")
+	    Report 3, doc$
+	end if
+
+	declare databank Nothing
+    Function Conv$(a$)
+		if len(a$)=0 then exit function
+		local b$, c$, k
+		for i=1 to len(a$)
+			c$=mid$(a$, i,1)
+			k=uint(chrcode(c$))
+			if k>127 then b$+="&#x"+hex$(k,2)+";" else b$+=c$
+		next
+		=b$
+	End Function
+}
+CheckIt
--- a/Task/XML-Input/MATLAB/xml-input.m
+++ b/Task/XML-Input/MATLAB/xml-input.m
@ -0,0 +1,43 @@
+RootXML = com.mathworks.xml.XMLUtils.createDocument('Students');
+docRootNode = RootXML.getDocumentElement;
+thisElement = RootXML.createElement('Student');
+thisElement.setAttribute('Name','April')
+thisElement.setAttribute('Gender','F')
+thisElement.setAttribute('DateOfBirth','1989-01-02')
+docRootNode.appendChild(thisElement);
+thisElement = RootXML.createElement('Student');
+thisElement.setAttribute('Name','Bob')
+thisElement.setAttribute('Gender','M')
+thisElement.setAttribute('DateOfBirth','1990-03-04')
+docRootNode.appendChild(thisElement);
+thisElement = RootXML.createElement('Student');
+thisElement.setAttribute('Name','Chad')
+thisElement.setAttribute('Gender','M')
+thisElement.setAttribute('DateOfBirth','1991-05-06')
+docRootNode.appendChild(thisElement);
+thisElement = RootXML.createElement('Student');
+thisElement.setAttribute('Name','Dave')
+thisElement.setAttribute('Gender','M')
+thisElement.setAttribute('DateOfBirth','1992-07-08')
+node = RootXML.createElement('Pet');
+node.setAttribute('Type','dog')
+node.setAttribute('name','Rover')
+thisElement.appendChild(node);
+docRootNode.appendChild(thisElement);
+thisElement = RootXML.createElement('Student');
+thisElement.setAttribute('Name','Émily')
+thisElement.setAttribute('Gender','F')
+thisElement.setAttribute('DateOfBirth','1993-09-10')
+docRootNode.appendChild(thisElement);
+clearvars -except RootXML
+
+for I=0:1:RootXML.getElementsByTagName('Student').item(0).getAttributes.getLength-1
+    if strcmp(RootXML.getElementsByTagName('Student').item(0).getAttributes.item(I).getName,'Name')
+        tag=I;
+        break
+    end
+end
+
+for I=0:1:RootXML.getElementsByTagName('Student').getLength-1
+    disp(RootXML.getElementsByTagName('Student').item(I).getAttributes.item(tag).getValue)
+end
--- a/Task/XML-Input/Mathematica/xml-input.math
+++ b/Task/XML-Input/Mathematica/xml-input.math
@ -0,0 +1 @@
+Column[Cases[Import["test.xml","XML"],Rule["Name", n_ ] -> n,Infinity]]
--- a/Task/XML-Input/Neko/xml-input-1.neko
+++ b/Task/XML-Input/Neko/xml-input-1.neko
@ -0,0 +1,30 @@
+/**
+ XML/Input in Neko
+ Tectonics:
+   nekoc xml-input.neko
+   neko xml-input | recode html
+*/
+
+/* Get the Neko XML parser function */
+var parse_xml = $loader.loadprim("std@parse_xml", 2);
+
+/* Load the student.xml file as string */
+var file_contents = $loader.loadprim("std@file_contents", 1);
+var xmlString = file_contents("students.xml");
+
+/* Build up a (very specific) XML event processor object */
+/* Needs functions for xml, done, pcdata, cdata and comment */
+var events = $new(null);
+events.xml = function(name, attributes) {
+  if name == "Student" {
+    $print(attributes.Name, "\n");
+  }
+}
+events.done = function() { }
+events.pcdata = function(x) { }
+events.cdata = function(x) { }
+events.comment = function(x) { }
+
+parse_xml(xmlString, events);
+
+/* Entities are not converted, use external recode program for that */
--- a/Task/XML-Input/Neko/xml-input-2.neko
+++ b/Task/XML-Input/Neko/xml-input-2.neko
@ -0,0 +1,5 @@
+April
+Bob
+Chad
+Dave
+&#x00C9;mily
--- a/Task/XML-Input/NewLISP/xml-input.l
+++ b/Task/XML-Input/NewLISP/xml-input.l
@ -0,0 +1,15 @@
+(set 'xml-input "<Students>
+  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />
+  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />
+  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />
+  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">
+    <Pet Type=\"dog\" Name=\"Rover\" />
+  </Student>
+  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />
+</Students>")
+
+(set 'sexp (xml-parse xml-input))
+
+(dolist (x (ref-all "Name" sexp))	
+	(if (= (length x) 6)
+		(println (last (sexp (chop x))))))
--- a/Task/XML-Input/Nim/xml-input.nim
+++ b/Task/XML-Input/Nim/xml-input.nim
@ -0,0 +1,14 @@
+import xmlparser, xmltree, streams
+
+let doc = newStringStream """<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>"""
+
+for i in doc.parseXml.findAll "Student":
+  echo i.attr "Name"
--- a/Task/XML-Input/OCaml/xml-input-1.ocaml
+++ b/Task/XML-Input/OCaml/xml-input-1.ocaml
@ -0,0 +1,25 @@
+# #directory "+xml-light" (* or maybe "+site-lib/xml-light" *) ;;
+# #load "xml-light.cma" ;;
+
+# let x = Xml.parse_string "
+  <Students>
+    <Student Name='April' Gender='F' DateOfBirth='1989-01-02' />
+    <Student Name='Bob' Gender='M'  DateOfBirth='1990-03-04' />
+    <Student Name='Chad' Gender='M'  DateOfBirth='1991-05-06' />
+    <Student Name='Dave' Gender='M'  DateOfBirth='1992-07-08'>
+      <Pet Type='dog' Name='Rover' />
+    </Student>
+    <Student DateOfBirth='1993-09-10' Gender='F' Name='&#x00C9;mily' />
+  </Students>"
+  in
+  Xml.iter (function
+    Xml.Element ("Student", attrs, _) ->
+       List.iter (function ("Name", name) -> print_endline name | _ -> ()) attrs
+  | _ -> ()) x
+  ;;
+April
+Bob
+Chad
+Dave
+&#x00C9;mily
+- : unit = ()
--- a/Task/XML-Input/OCaml/xml-input-2.ocaml
+++ b/Task/XML-Input/OCaml/xml-input-2.ocaml
@ -0,0 +1,25 @@
+#directory "+xmlm"
+#load "xmlm.cmo"
+open Xmlm
+
+let str = "
+  <Students>
+    <Student Name='April' Gender='F' DateOfBirth='1989-01-02' />
+    <Student Name='Bob'   Gender='M' DateOfBirth='1990-03-04' />
+    <Student Name='Chad'  Gender='M' DateOfBirth='1991-05-06' />
+    <Student Name='Dave'  Gender='M' DateOfBirth='1992-07-08'>
+      <Pet Type='dog' Name='Rover' />
+    </Student>
+    <Student DateOfBirth='1993-09-10' Gender='F' Name='&#x00C9;mily' />
+  </Students>"
+
+
+let xi = make_input(`String(0, str))
+
+let () =
+  while not(eoi xi) do
+    match Xmlm.input xi with
+    | `El_start ((_, "Student"), attrs) ->
+        List.iter (function ((_, "Name"), name) -> print_endline name | _ -> ()) attrs
+    | _ -> ()
+  done
--- a/Task/XML-Input/OCaml/xml-input-3.ocaml
+++ b/Task/XML-Input/OCaml/xml-input-3.ocaml
@ -0,0 +1,22 @@
+open Expat
+
+let xml_str = "
+  <Students>
+    <Student Name='April' Gender='F' DateOfBirth='1989-01-02' />
+    <Student Name='Bob'   Gender='M' DateOfBirth='1990-03-04' />
+    <Student Name='Chad'  Gender='M' DateOfBirth='1991-05-06' />
+    <Student Name='Dave'  Gender='M' DateOfBirth='1992-07-08'>
+      <Pet Type='dog' Name='Rover' />
+    </Student>
+    <Student DateOfBirth='1993-09-10' Gender='F' Name='&#x00C9;mily' />
+  </Students>"
+
+let () =
+  let p = parser_create None in
+  set_start_element_handler p
+    (fun tag attrs ->
+       if tag = "Student" then
+         List.iter (function ("Name", name) -> print_endline name | _ -> ()) attrs
+    );
+  parse p xml_str;
+  final p;
--- a/Task/XML-Input/Objeck/xml-input.objeck
+++ b/Task/XML-Input/Objeck/xml-input.objeck
@ -0,0 +1,27 @@
+use XML;
+
+bundle Default {
+  class Test {
+    function : Main(args : String[]) ~ Nil {
+      in := String->New();
+      in->Append("<Students>");
+      in->Append("<Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />");
+      in->Append("<Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />");
+      in->Append("<Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />");
+      in->Append("<Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">");
+      in->Append("<Pet Type=\"dog\" Name=\"Rover\" />");
+      in->Append("</Student>");
+      in->Append("<Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" /></Students>");
+
+      parser := XmlParser->New(in);
+      if(parser->Parse()) {
+        root := parser->GetRoot();
+        children := root->GetChildren("Student");
+        each(i : children) {
+          child : XMLElement := children->Get(i)->As(XMLElement);
+          XMLElement->DecodeString(child->GetAttribute("Name"))->PrintLine();
+        };
+      };
+    }
+  }
+}
--- a/Task/XML-Input/OpenEdge-Progress/xml-input.openedge
+++ b/Task/XML-Input/OpenEdge-Progress/xml-input.openedge
@ -0,0 +1,36 @@
+DEF VAR lcc          AS LONGCHAR.
+DEF VAR hxdoc        AS HANDLE.
+DEF VAR hxstudents   AS HANDLE.
+DEF VAR hxstudent    AS HANDLE.
+DEF VAR hxname       AS HANDLE.
+DEF VAR ii           AS INTEGER EXTENT 2.
+DEF VAR cstudents    AS CHARACTER.
+
+lcc   =  '<Students>'
+      +  '<Student Name="April" Gender="F" DateOfBirth="1989-01-02" />'
+      +  '<Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />'
+      +  '<Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />'
+      +  '<Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">'
+      +  '<Pet Type="dog" Name="Rover" />'
+      +  '</Student>'
+      +  '<Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />'
+      +  '</Students>'.
+
+CREATE X-DOCUMENT hxdoc.
+hxdoc:LOAD( 'LONGCHAR', lcc, FALSE ).
+
+DO ii[1] = 1 TO hxdoc:NUM-CHILDREN:
+   CREATE X-NODEREF hxstudents.
+   hxdoc:GET-CHILD( hxstudents, ii[1] ).
+   IF hxstudents:NAME = 'Students' THEN DO ii[2] = 1 TO hxstudents:NUM-CHILDREN:
+      CREATE X-NODEREF hxstudent.
+      hxstudents:GET-CHILD( hxstudent, ii[2] ).
+      IF hxstudent:NAME = 'Student' THEN
+         cstudents = cstudents + hxstudent:GET-ATTRIBUTE( 'Name' ) + '~n'.
+      DELETE OBJECT hxstudent.
+   END.
+   DELETE OBJECT hxstudents.
+END.
+DELETE OBJECT hxdoc.
+
+MESSAGE cstudents VIEW-AS ALERT-BOX.
--- a/Task/XML-Input/Oz/xml-input.oz
+++ b/Task/XML-Input/Oz/xml-input.oz
@ -0,0 +1,32 @@
+declare
+  [XMLParser] = {Module.link ['x-oz://system/xml/Parser.ozf']}
+  Parser = {New XMLParser.parser init}
+
+  Data =
+   "<Students>"
+  #"  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />"
+  #"  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />"
+  #"  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />"
+  #"  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">"
+  #"    <Pet Type=\"dog\" Name=\"Rover\" />"
+  #"  </Student>"
+  #"  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />"
+  #"</Students>"
+
+  fun {IsStudentElement X}
+     case X of element(name:'Student' ...) then true
+     else false
+     end
+  end
+
+  fun {GetStudentName element(attributes:As ...)}
+     [NameAttr] = {Filter As fun {$ attribute(name:N ...)} N == 'Name' end}
+  in
+     NameAttr.value
+  end
+
+  [StudentsDoc] = {Parser parseVS(Data $)}
+  Students = {Filter StudentsDoc.children IsStudentElement}
+  StudentNames = {Map Students GetStudentName}
+in
+  {ForAll StudentNames System.showInfo}
--- a/Task/XML-Input/PHP/xml-input.php
+++ b/Task/XML-Input/PHP/xml-input.php
@ -0,0 +1,16 @@
+<?php
+$data = '<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>';
+$xml = new XMLReader();
+$xml->xml( $data );
+while ( $xml->read() )
+	if ( XMLREADER::ELEMENT == $xml->nodeType && $xml->localName == 'Student' )
+		echo $xml->getAttribute('Name') . "\n";
+?>
--- a/Task/XML-Input/Perl/xml-input.pl
+++ b/Task/XML-Input/Perl/xml-input.pl
@ -0,0 +1,14 @@
+use utf8;
+use XML::Simple;
+
+my $ref = XMLin('<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>');
+
+print join( "\n", map { $_->{'Name'} } @{$ref->{'Student'}});
--- a/Task/XML-Input/Phix/xml-input.phix
+++ b/Task/XML-Input/Phix/xml-input.phix
@ -0,0 +1,31 @@
+(phixonline)-->
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #008080;">include</span> <span style="color: #000000;">builtins</span><span style="color: #0000FF;">/</span><span style="color: #000000;">xml</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">xml</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
+ &lt;Students&gt;
+   &lt;Student Name="April" Gender="F" DateOfBirth="1989-01-02" /&gt;
+   &lt;Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" /&gt;
+   &lt;Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" /&gt;
+   &lt;Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08"&gt;
+     &lt;Pet Type="dog" Name="Rover" /&gt;
+   &lt;/Student&gt;
+   &lt;Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" /&gt;
+ &lt;/Students&gt;
+ """</span>
+ <span style="color: #004080;">sequence</span> <span style="color: #000000;">x</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">xml_parse</span><span style="color: #0000FF;">(</span><span style="color: #000000;">xml</span><span style="color: #0000FF;">)</span>
+
+ <span style="color: #008080;">procedure</span> <span style="color: #000000;">traverse</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">[</span><span style="color: #000000;">XML_TAGNAME</span><span style="color: #0000FF;">]=</span><span style="color: #008000;">"Student"</span> <span style="color: #008080;">then</span>
+         <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">xml_get_attribute</span><span style="color: #0000FF;">(</span><span style="color: #000000;">x</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Name"</span><span style="color: #0000FF;">),</span><span style="color: #004600;">false</span><span style="color: #0000FF;">)</span>
+         <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">else</span>
+         <span style="color: #000000;">x</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">x</span><span style="color: #0000FF;">[</span><span style="color: #000000;">XML_CONTENTS</span><span style="color: #0000FF;">]</span>
+         <span style="color: #008080;">if</span> <span style="color: #008080;">not</span> <span style="color: #004080;">string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">x</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</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;">x</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+                 <span style="color: #000000;">traverse</span><span style="color: #0000FF;">(</span><span style="color: #000000;">x</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;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
+ <span style="color: #000000;">traverse</span><span style="color: #0000FF;">(</span><span style="color: #000000;">x</span><span style="color: #0000FF;">[</span><span style="color: #000000;">XML_CONTENTS</span><span style="color: #0000FF;">])</span>
+<!--
--- a/Task/XML-Input/PicoLisp/xml-input.l
+++ b/Task/XML-Input/PicoLisp/xml-input.l
@ -0,0 +1,5 @@
+(load "@lib/xm.l")
+
+(mapcar
+   '((L) (attr L 'Name))
+   (body (in "file.xml" (xml))) )
--- a/Task/XML-Input/Pike/xml-input.pike
+++ b/Task/XML-Input/Pike/xml-input.pike
@ -0,0 +1,19 @@
+string in = "<Students>\n"
+            "  <Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />\n"
+            "  <Student Name=\"Bob\" Gender=\"M\"  DateOfBirth=\"1990-03-04\" />\n"
+            "  <Student Name=\"Chad\" Gender=\"M\"  DateOfBirth=\"1991-05-06\" />\n"
+            "  <Student Name=\"Dave\" Gender=\"M\"  DateOfBirth=\"1992-07-08\">\n"
+            "    <Pet Type=\"dog\" Name=\"Rover\" />\n"
+            "  </Student>\n"
+            "  <Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"&#x00C9;mily\" />\n"
+            "</Students>\n";
+
+object s = Parser.XML.Tree.simple_parse_input(in);
+
+array collect = ({});
+s->walk_inorder(lambda(object node)
+                {
+                    if (node->get_tag_name() == "Student")
+                        collect += ({ node->get_attributes()->Name });
+                });
+write("%{%s\n%}", collect);
--- a/Task/XML-Input/PowerShell/xml-input.psh
+++ b/Task/XML-Input/PowerShell/xml-input.psh
@ -0,0 +1,13 @@
+[xml]$xml = @'
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+'@
+
+foreach ($node in $xml.DocumentElement.ChildNodes) {$node.Name}
--- a/Task/XML-Input/PureBasic/xml-input.basic
+++ b/Task/XML-Input/PureBasic/xml-input.basic
@ -0,0 +1,50 @@
+Define studentNames.String, src$
+
+src$ = "<Students>"
+src$ + "<Student Name='April' Gender='F' DateOfBirth='1989-01-02' />"
+src$ + "<Student Name='Bob' Gender='M'  DateOfBirth='1990-03-04' />"
+src$ + "<Student Name='Chad' Gender='M'  DateOfBirth='1991-05-06' />"
+src$ + "<Student Name='Dave' Gender='M'  DateOfBirth='1992-07-08'>"
+src$ + "<Pet Type='dog' Name='Rover' />"
+src$ + "</Student>"
+src$ + "<Student DateOfBirth='1993-09-10' Gender='F' Name='&#x00C9;mily' />"
+src$ + "</Students>"
+
+;This procedure is generalized to match any attribute of any normal element's node name
+;i.e. get_values(MainXMLNode(0),"Pet","Type",@petName.String) and displaying petName\s
+;would display "dog".
+Procedure get_values(*cur_node, nodeName$, attribute$, *valueResults.String)
+  ;If nodeName$ and attribute$ are matched then the value
+  ;will be added to the string structure pointed to by *valueResults .
+  Protected result$
+
+  While *cur_node
+    If XMLNodeType(*cur_node) = #PB_XML_Normal
+
+      result$ = GetXMLNodeName(*cur_node)
+      If result$ = nodeName$
+        If ExamineXMLAttributes(*cur_node)
+          While NextXMLAttribute(*cur_node)
+            If XMLAttributeName(*cur_node) = attribute$
+              If *valueResults <> #Null
+                *valueResults\s + XMLAttributeValue(*cur_node) + Chr(13) ;value + carriage-return
+              EndIf
+            EndIf
+          Wend
+        EndIf
+      EndIf
+
+    EndIf
+
+    get_values(ChildXMLNode(*cur_node), nodeName$, attribute$, *valueResults)
+    *cur_node = NextXMLNode(*cur_node)
+  Wend
+EndProcedure
+
+CatchXML(0,@src$,Len(src$))
+
+If IsXML(0)
+  get_values(MainXMLNode(0), "Student", "Name",@studentNames)
+  MessageRequester("Student Names", studentNames\s)
+  FreeXML(0)
+EndIf
--- a/Task/XML-Input/Python/xml-input.py
+++ b/Task/XML-Input/Python/xml-input.py
@ -0,0 +1,16 @@
+import xml.dom.minidom
+
+doc = """<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>"""
+
+doc = xml.dom.minidom.parseString(doc)
+
+for i in doc.getElementsByTagName("Student"):
+    print i.getAttribute("Name")
--- a/Task/XML-Input/R/xml-input-1.r
+++ b/Task/XML-Input/R/xml-input-1.r
@ -0,0 +1,13 @@
+library(XML)
+#Read in XML string
+str <- readLines(tc <- textConnection('<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>'))
+close(tc)
+str
--- a/Task/XML-Input/R/xml-input-2.r
+++ b/Task/XML-Input/R/xml-input-2.r
@ -0,0 +1,18 @@
+#Convert to an XML tree
+xmltree <- xmlTreeParse(str)
+
+#Retrieve the students, and how many there are
+students <- xmltree$doc$children$Students
+nstudents <- length(students)
+
+#Get each of their names
+studentsnames <- character(nstudents)
+for(i in 1:nstudents)
+{
+   this.student <- students$children[i]$Student
+   studentsnames[i] <- this.student$attributes["Name"]
+}
+
+#Change the encoding so that Emily displays correctly
+Encoding(studentsnames) <- "UTF-8"
+studentsnames
--- a/Task/XML-Input/REBOL/xml-input.rebol
+++ b/Task/XML-Input/REBOL/xml-input.rebol
@ -0,0 +1,35 @@
+REBOL [
+	Title: "XML Reading"
+	URL: http://rosettacode.org/wiki/XML_Reading
+]
+
+xml: {
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+}
+
+; REBOL has a simple built-in XML parser. It's not terribly fancy, but
+; it's easy to use. It converts the XML into a nested list of blocks
+; which can be accessed using standard REBOL path operators. The only
+; annoying part (in this case) is that it does try to preserve
+; whitespace, so some of the parsed elements are just things like line
+; endings and whatnot, which I need to ignore.
+
+; Once I have drilled down to the individual student records, I can
+; just use the standard REBOL 'select' to locate the requested
+; property.
+
+data: parse-xml xml
+students: data/3/1/3 ; Drill down to student records.
+foreach student students [
+	if block! = type? student [ ; Ignore whitespace elements.
+		print select student/2 "Name"
+	]
+]
--- a/Task/XML-Input/REXX/xml-input-1.rexx
+++ b/Task/XML-Input/REXX/xml-input-1.rexx
@ -0,0 +1,17 @@
+/*REXX program  extracts  student names  from an  XML  string(s).                       */
+g.=
+g.1 = '<Students>                                                             '
+g.2 = '  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />         '
+g.3 = '  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />          '
+g.4 = '  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />         '
+g.5 = '  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">           '
+g.6 = '    <Pet Type="dog" Name="Rover" />                                    '
+g.7 = '  </Student>                                                           '
+g.8 = '  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />  '
+g.9 = '</Students>                                                            '
+
+  do j=1  while g.j\==''
+  g.j=space(g.j)
+  parse var   g.j   'Name="'   studname   '"'
+  if studname\==''  then say studname
+  end   /*j*/                                    /*stick a fork in it,  we're all done. */
--- a/Task/XML-Input/REXX/xml-input-2.rexx
+++ b/Task/XML-Input/REXX/xml-input-2.rexx
@ -0,0 +1,85 @@
+/*REXX program  extracts  student names  from an  XML  string(s).                       */
+g.=
+g.1 = '<Students>                                                             '
+g.2 = '  <Student Name="April" Gender="F"  DateOfBirth="1989-01-02" />        '
+g.3 = '  <Student Name="Bob" Gender="M"   DateOfBirth="1990-03-04" />         '
+g.4 = '  <Student Name="Chad" Gender="M"   DateOfBirth="1991-05-06" />        '
+g.5 = '  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">           '
+g.6 = '    <Pet Type="dog" Name="Rover" / >                                   '
+g.7 = '  </Student>                                                           '
+g.8 = '  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00c9;mily" />  '
+g.9 = '</Students>                                                            '
+
+        do j=1  while g.j\==''
+        g.j=space(g.j)
+        parse  var   g.j   'Name="'   studname   '"'
+        if studname==''  then iterate
+        if pos('&', studname)\==0  then studname=xmlTranE(studname)
+        say studname
+        end   /*j*/
+exit                                             /*stick a fork in it,  we're all done. */
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+xml_:   parse arg ,_                             /*transkate an  XML  entity   (&xxxx;) */
+        xmlEntity! = '&'_";"
+        if pos(xmlEntity!, $)\==0  then $=changestr(xmlEntity!, $, arg(1) )
+        if left(_, 2)=='#x'  then do
+                                  xmlEntity!='&'left(_, 3)translate( substr(_, 4) )";"
+                                  $=changestr(xmlEntity!, $, arg(1) )
+                                  end
+        return $
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+xmlTranE: procedure; parse arg $                 /*Following are most of the chars in   */
+                                                 /*the  DOS  (under Windows)  codepage. */
+$=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")
+return $
--- a/Task/XML-Input/Racket/xml-input.rkt
+++ b/Task/XML-Input/Racket/xml-input.rkt
@ -0,0 +1,23 @@
+#lang racket
+(require xml xml/path)
+
+(define input
+#<<END
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+END
+  )
+
+(define students
+  (xml->xexpr
+   (document-element
+    (read-xml (open-input-string input)))))
+
+(se-path*/list '(Student #:Name) students)
--- a/Task/XML-Input/Raku/xml-input.raku
+++ b/Task/XML-Input/Raku/xml-input.raku
@ -0,0 +1,13 @@
+use XML;
+
+my $xml = from-xml '<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>';
+
+say .<Name> for $xml.nodes.grep(/Student/)
--- a/Task/XML-Input/Rascal/xml-input-1.rascal
+++ b/Task/XML-Input/Rascal/xml-input-1.rascal
@ -0,0 +1,8 @@
+import lang::xml::DOM;
+
+public void getNames(loc a){
+	D = parseXMLDOM(readFile(a));
+	visit(D){
+		case element(_,"Student",[_*,attribute(_,"Name", x),_*]): println(x);
+	};
+}
--- a/Task/XML-Input/Rascal/xml-input-2.rascal
+++ b/Task/XML-Input/Rascal/xml-input-2.rascal
@ -0,0 +1,7 @@
+rascal>getNames(|file:///Users/.../Desktop/xmlinput.xml|)
+April
+Bob
+Chad
+Dave
+Émily
+ok
--- a/Task/XML-Input/Ruby/xml-input.rb
+++ b/Task/XML-Input/Ruby/xml-input.rb
@ -0,0 +1,14 @@
+require 'rexml/document'
+include REXML
+
+doc = Document.new(File.new("sample.xml"))
+# or
+# doc = Document.new(xml_string)
+
+# without using xpath
+doc.each_recursive do |node|
+  puts node.attributes["Name"] if node.name == "Student"
+end
+
+# using xpath
+doc.each_element("*/Student") {|node| puts node.attributes["Name"]}
--- a/Task/XML-Input/Run-BASIC/xml-input.basic
+++ b/Task/XML-Input/Run-BASIC/xml-input.basic
@ -0,0 +1,44 @@
+' ------------------------------------------------------------------------
+'XMLPARSER methods
+
+'#handle ELEMENTCOUNT() - Return the number of child XML elements
+'#handle KEY$() 	- Return the key as a string from an XML expression like <key>value</key>
+'#handle VALUE$() 	- Return the value as a string from an XML expression like <key>value</key>
+'#handle VALUEFORKEY$(keyExpr$) - Return the value for the specified tag key in keyExpr$
+'#handle #ELEMENT(n) 	- Return the nth child-element XML element
+'#handle #ELEMENT(nameExpr$) - Return the child-element XML element named by nameExpr$
+'#handle ATTRIBCOUNT() 	- Return a count of attribute pairs; <a attrA="abc" attrB="def"> has two pairs
+'#handle ATTRIBKEY$(n) 	- Return the key string of the nth attribute
+'#handle ATTRIBVALUE$(n) - Return the value string of the nth attribute
+'#handle ATTRIBVALUE$(n$) - Return the value string of the attribute with the key n$, or an empty string if it doesn't exist.
+'#handle ISNULL() 	- Returns zero (or false)
+'#handle DEBUG$() 	- Returns the string "Xmlparser"
+' ------------------------------------------------------------------------
+
+' The xml string
+xml$ = "
+<Students>
+  <Student Name=""April"" Gender=""F"" DateOfBirth=""1989-01-02"" />
+  <Student Name=""Bob"" Gender=""M""  DateOfBirth=""1990-03-04"" />
+  <Student Name=""Chad"" Gender=""M""  DateOfBirth=""1991-05-06"" />
+  <Student Name=""Dave"" Gender=""M""  DateOfBirth=""1992-07-08"">
+    <Pet Type=""dog"" Name=""Rover"" />
+  </Student>
+  <Student DateOfBirth=""1993-09-10"" Gender=""F"" Name=""&#x00C9;mily"" />
+</Students>"
+
+
+' Creates the xml handler, using the string
+xmlparser #spies, xml$
+
+' Uses elementCount() to know how many elements are in betweeb <spies>...</spies>
+for count = 1 to #spies elementCount()
+
+  ' Uses "count" to work through the elements, and assigns the element to the
+  ' handle "#spy"
+  #spy = #spies #element(count)
+
+  ' Prints the value, or inner text, of "#spy": Sam, Clover, & Alex
+  print count;" ";#spy value$();" ->";#spy ATTRIBVALUE$(1)
+
+next count
--- a/Task/XML-Input/Rust/xml-input-1.rust
+++ b/Task/XML-Input/Rust/xml-input-1.rust
@ -0,0 +1,37 @@
+extern crate xml; // provided by the xml-rs crate
+use xml::{name::OwnedName, reader::EventReader, reader::XmlEvent};
+
+const DOCUMENT: &str = r#"
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+"#;
+
+fn main() -> Result<(), xml::reader::Error> {
+    let parser = EventReader::new(DOCUMENT.as_bytes());
+
+    let tag_name = OwnedName::local("Student");
+    let attribute_name = OwnedName::local("Name");
+
+    for event in parser {
+        match event? {
+            XmlEvent::StartElement {
+                name,
+                attributes,
+                ..
+            } if name == tag_name => {
+                if let Some(attribute) = attributes.iter().find(|&attr| attr.name == attribute_name) {
+                    println!("{}", attribute.value);
+                }
+            }
+            _ => (),
+        }
+    }
+    Ok(())
+}
--- a/Task/XML-Input/Rust/xml-input-2.rust
+++ b/Task/XML-Input/Rust/xml-input-2.rust
@ -0,0 +1,27 @@
+extern crate roxmltree;
+
+const DOCUMENT: &str = r#"
+<Students>
+  <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+  <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+  <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+  <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+    <Pet Type="dog" Name="Rover" />
+  </Student>
+  <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+</Students>
+"#;
+
+fn main() -> Result<(), roxmltree::Error> {
+    let doc = roxmltree::Document::parse(DOCUMENT)?;
+    for node in doc
+        .root()
+        .descendants()
+        .filter(|&child| child.has_tag_name("Student"))
+    {
+        if let Some(name) = node.attribute("Name") {
+            println!("{}", name);
+        }
+    }
+    Ok(())
+}
--- a/Task/XML-Input/Scala/xml-input.scala
+++ b/Task/XML-Input/Scala/xml-input.scala
@ -0,0 +1,12 @@
+val students =
+  <Students>
+    <Student Name="April" Gender="F" DateOfBirth="1989-01-02" />
+    <Student Name="Bob" Gender="M"  DateOfBirth="1990-03-04" />
+    <Student Name="Chad" Gender="M"  DateOfBirth="1991-05-06" />
+    <Student Name="Dave" Gender="M"  DateOfBirth="1992-07-08">
+      <Pet Type="dog" Name="Rover" />
+    </Student>
+    <Student DateOfBirth="1993-09-10" Gender="F" Name="&#x00C9;mily" />
+  </Students>
+
+students \ "Student" \\ "@Name" foreach println
--- a/Show more
+++ b/Show more
				`@ -0,0 +1 @@`
				`xq -r '.Students.Student[]."@Name"' students.xml`
				`@ -0,0 +1 @@`
				`Column[Cases[Import["test.xml","XML"],Rule["Name", n_ ] -> n,Infinity]]`