all tasks

Task/XML-Input/0DESCRIPTION

@@ -0,0 +1,19 @@
+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]].
+
+<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></lang>
+
+Expected Output
+
+ April
+ Bob
+ Chad
+ Dave
+ Émily

Task/XML-Input/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: XML

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
+  }
+}

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)}
+'

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}
+'

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);
+            }
+        }
+    }
+}

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;

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;

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;

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;

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;

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;

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;

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"))
+            }
+        }
+    }
+}

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

Task/XML-Input/BBC-BASIC/xml-input.bbc

@@ -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{})

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;
+}

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();
+    }
+}

Task/XML-Input/C/xml-input.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;
+}

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.)))

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))))

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))))

Task/XML-Input/Common-Lisp/xml-input-2.lisp

@@ -0,0 +1 @@
+("April" "Bob" "Chad" "Dave" "Émily")

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;
+        }
+}

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);
+
+  //Loading 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;

Task/XML-Input/Factor/xml-input.factor

@@ -0,0 +1,14 @@
+USING: io 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

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")) }
+    }
+  }
+}

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

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() {
+    data := new(Students)
+    err := xml.Unmarshal([]byte(XML_DATA), data)
+    if err != nil {
+        fmt.Println(err)
+        return
+    }
+    for _, s := range data.Student {
+        fmt.Println(s.Name)
+    }
+}

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' }

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

Task/XML-Input/Haskell/xml-input-2.hs

@@ -0,0 +1,6 @@
+*Main> xmlRead "Student" "Name" students
+April
+Bob
+Chad
+Dave
+Émily

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)

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

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>
+)

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"));
+    }
+  }
+}

Task/XML-Input/JavaScript/xml-input-1.js

@@ -0,0 +1,24 @@
+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 list = xmlstr.match(/<Student .*? \/>/g);
+var output = '';
+for (var i = 0; i < list.length; i++) {
+  if (i > 0) {
+    output += ', ';
+  }
+  var tmp = list[i].match(/Name="(.*?)"/);
+  output += tmp[1];
+}
+
+// Bounce it through a HTML element to handle Unicode for us
+var l = document.createElement('p');
+l.innerHTML = output;
+alert(l.innerHTML);

Task/XML-Input/JavaScript/xml-input-2.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);

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()

Task/XML-Input/Mathematica/xml-input.math

@@ -0,0 +1 @@
+Column[Cases[Import["test.xml","XML"],Rule["Name", n_ ] -> n,Infinity]]

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 = ()

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

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;

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();
+        };
+      };
+    }
+  }
+}

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.

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}

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";
+?>

Task/XML-Input/Perl/xml-input.pl

@@ -0,0 +1,13 @@
+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'}});

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))) )

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);

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}

Task/XML-Input/PureBasic/xml-input.purebasic

@@ -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

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")

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

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

Task/XML-Input/REBOL/xml-input.rebol

@@ -0,0 +1,37 @@
+REBOL [
+	Title: "XML Reading"
+	Author: oofoe
+	Date: 2009-12-08
+	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"
+	]
+]

Task/XML-Input/REXX/xml-input-1.rexx

@@ -0,0 +1,18 @@
+/*REXX program to extract 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 done.*/

Task/XML-Input/REXX/xml-input-2.rexx

@@ -0,0 +1,6 @@
+April
+Bob
+Chad
+Dave
+Rover
+Émily

Task/XML-Input/REXX/xml-input-3.rexx

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

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)

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);
+	};
+}

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

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"]}

Task/XML-Input/Run-BASIC/xml-input.run

@@ -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

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

Task/XML-Input/Slate/xml-input.slate

@@ -0,0 +1,21 @@
+slate[1]> [ |tree|
+
+  tree: (Xml SimpleParser newOn: '<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>') parse.
+  tree name = 'Students' ifTrue: [(tree children select: #is: `er <- Xml Element)
+                                         do: [|:child| child name = 'Student' ifTrue: [inform: (child attributes at: 'Name' ifAbsent: ['Noname'])]]].
+
+] do.
+April
+Bob
+Chad
+Dave
+&#x00C9;mily
+Nil

Task/XML-Input/TUSCRIPT/xml-input.tuscript

@@ -0,0 +1,22 @@
+$$ MODE TUSCRIPT
+MODE DATA
+$$ SET xmldata =*
+<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="Emily" />
+</Students>
+$$ MODE TUSCRIPT
+COMPILE
+LOOP x = xmldata
+SET name=GET_TAG_NAME (x)
+IF (name=="student") THEN
+SET studentname=GET_ATTRIBUTE (x,"Name")
+IF (studentname!="") PRINT studentname
+ENDIF
+ENDLOOP
+ENDCOMPILE

Task/XML-Input/TXR/xml-input-1.txr

@@ -0,0 +1,19 @@
+<Students>
+@(collect :vars (NAME GENDER YEAR MONTH DAY (PET_TYPE "none") (PET_NAME "")))
+@  (cases)
+  <Student Name="@NAME" Gender="@GENDER" DateOfBirth="@YEAR-@MONTH-@DAY"@(skip)
+@  (or)
+  <Student DateOfBirth="@YEAR-@MONTH-@DAY" Gender="@GENDER" Name="@NAME"@(skip)
+@  (end)
+@  (maybe)
+    <Pet Type="@PET_TYPE" Name="@PET_NAME" />
+@  (end)
+@(until)
+</Students>
+@(end)
+@(output :filter :from_html)
+NAME         G DOB        PET
+@  (repeat)
+@{NAME 12} @GENDER @YEAR-@MONTH-@DAY @PET_TYPE @PET_NAME
+@  (end)
+@(end)

Task/XML-Input/TXR/xml-input-2.txr

@@ -0,0 +1,3 @@
+@(output :filter :from_html)
+@NAME
+@(end)

Task/XML-Input/Tcl/xml-input-1.tcl

@@ -0,0 +1,7 @@
+package require tdom
+set tree [dom parse $xml]
+set studentNodes [$tree getElementsByTagName Student] ;# or: set studentNodes [[$tree documentElement] childNodes]
+
+foreach node $studentNodes {
+    puts [$node getAttribute Name]
+}

Task/XML-Input/Tcl/xml-input-2.tcl

@@ -0,0 +1,8 @@
+package require xml
+set parser [xml::parser -elementstartcommand elem]
+proc elem {name attlist args} {
+    if {$name eq "Student"} {
+        puts [dict get $attlist Name]
+    }
+}
+$parser parse $xml

Task/XML-Input/Tcl/xml-input-3.tcl

@@ -0,0 +1,51 @@
+proc xml2list xml {
+    regsub -all {>\s*<} [string trim $xml " \n\t<>"] "\} \{" xml
+    set xml [string map {> "\} \{#text \{" < "\}\} \{"}  $xml]
+    set res ""   ;# string to collect the result
+    set stack {} ;# track open tags
+    set rest {}
+    foreach item "{$xml}" {
+        switch -regexp -- $item {
+	    ^# {append res "{[lrange $item 0 end]} " ; #text item}
+	    ^/ {
+		regexp {/(.+)} $item -> tagname ;# end tag
+		set expected [lindex $stack end]
+		set stack [lrange $stack 0 end-1]
+		append res "\}\} "
+            }
+	    /$ { # singleton - start and end in one <> group
+                regexp {([^ ]+)( (.+))?/$} $item -> tagname - rest
+                set rest [lrange [string map {= " "} $rest] 0 end]
+                append res "{$tagname [list $rest] {}} "
+	    }
+	    default {
+                set tagname [lindex $item 0] ;# start tag
+                set rest [lrange [string map {= " "} $item] 1 end]
+                lappend stack $tagname
+                append res "\{$tagname [list $rest] \{"
+	    }
+        }
+    }
+    string map {"\} \}" "\}\}"} [lindex $res 0]   ;#"
+}
+proc deent str {
+    regsub -all {&\#x(.+?);} $str {\\u\1} str
+    subst -nocommands -novar $str
+}
+#----------------------- Testing the whole thing:
+set 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 i [lindex  [xml2list $xml] 2] {
+    if {[lindex $i 0] eq "Student"} {
+        foreach {att val} [lindex $i 1] {
+            if {$att eq "Name"} {puts [deent $val]}
+        }
+    }
+}

Task/XML-Input/Vedit-macro-language/xml-input.vedit

@@ -0,0 +1,10 @@
+Repeat(ALL) {
+    Search("<Student|X", ERRBREAK)
+    #1 = Cur_Pos
+    Match_Paren()
+    if (Search_Block(/Name=|{",'}/, #1, Cur_Pos, BEGIN+ADVANCE+NOERR+NORESTORE)==0) { Continue }
+    #2 = Cur_Pos
+    Search(/|{",'}/)
+    Type_Block(#2, Cur_Pos)
+    Type_Newline
+}

Task/XML-Input/Visual-Basic-.NET/xml-input.visual

@@ -0,0 +1,13 @@
+Dim xml = <Students>
+              <Student Name="April"/>
+              <Student Name="Bob"/>
+              <Student Name="Chad"/>
+              <Student Name="Dave"/>
+              <Student Name="Emily"/>
+           </Students>
+
+Dim names = (From node In xml...<Student> Select node.@Name).ToArray
+
+For Each name In names
+     Console.WriteLine(name)
+Next

Task/XML-Input/XPL0/xml-input.xpl0

@@ -0,0 +1,45 @@
+code ChOut=8, CrLf=9;   \intrinsic routines
+string 0;               \use zero-terminated strings
+
+func StrLen(A);         \Return number of characters in an ASCIIZ string
+char A;
+int  I;
+for I:= 0 to -1>>1-1 do
+    if A(I) = 0 then return I;
+
+func StrFind(A, B);     \Search for ASCIIZ string A in string B
+\Returns address of first occurrence of string A in B, or zero if A is not found
+char A, B;              \strings to be compared
+int  LA, LB, I, J;
+[LA:= StrLen(A);
+LB:= StrLen(B);
+for I:= 0 to LB-LA do
+    [for J:= 0 to LA-1 do
+        if A(J) # B(J+I) then J:= LA+1;
+    if J = LA then return B+I;  \found
+    ];
+return 0;
+];
+
+char XML, P;
+[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>";
+P:= XML;
+loop    [P:= StrFind("<Student ", P);
+        if P=0 then quit;
+        P:= StrFind("Name=", P);
+        if P=0 then quit;
+        P:= P + StrLen("Name=x");
+        repeat  ChOut(0, P(0));
+                P:= P+1;
+        until   P(0) = ^";
+        CrLf(0);
+        ];
+]