Changes between Version 8 and Version 9 of XML/SAX

Timestamp:

Jan 28, 2011, 1:09:12 PM (11 years ago)

Author:

vadim.godunko

Comment:

--

XML/SAX

@@ -51 +51 @@
 
 {{{
+------------------------------------------------------------------------------
+--  This is example of usage of XML Writer to generate XML files from
+--  application. It generates initial part of XMPP stream.
+------------------------------------------------------------------------------
 with Ada.Wide_Wide_Text_IO;
 
@@ -57 +61 @@
 with XML.SAX.Pretty_Writers;
 
-procedure SAX_Writer_Example is
+procedure SAX_Writer is
 
    use League.Strings;
-   
+
    function "+" (Item : Wide_Wide_String) return Universal_String
      renames To_Universal_String;
-   
-   Lang_Attribute      : constant Universal_String := +"xml:lang";
+
+   XML_URI             : constant Universal_String
+     := +"http://www.w3.org/XML/1998/namespace";
+   Lang_Attribute      : constant Universal_String := +"lang";
    Stream_URI          : constant Universal_String
      := +"http://etherx.jabber.org/streams";
@@ -78 +84 @@
    Compression_Element : constant Universal_String := +"compression";
    Method_Element      : constant Universal_String := +"method";
-   
+
    Writer     : XML.SAX.Pretty_Writers.SAX_Pretty_Writer;
    Attributes : XML.SAX.Attributes.SAX_Attributes;
-   
+
 begin
    Writer.Start_Document;
    Writer.Start_Prefix_Mapping (Namespace_URI => Client_URI);
-   Writer.Start_Prefix_Mapping 
+   Writer.Start_Prefix_Mapping
      (Namespace_URI => Stream_URI, Prefix => Stream_Prefix);
 
    --  Open stream element
-   
+
    Attributes.Set_Value
      (Qualified_Name => Id_Attribute, Value => +"656571601");
-   Attributes.Set_Value 
+   Attributes.Set_Value
      (Qualified_Name => From_Attribute, Value => +"jabber.ru");
    Attributes.Set_Value (Qualified_Name => Version_Attribute, Value => +"1.0");
-   Attributes.Set_Value (Qualified_Name => Lang_Attribute, Value => +"ru");
+   Attributes.Set_Value
+     (Namespace_URI => XML_URI, Local_Name => Lang_Attribute, Value => +"ru");
    Writer.Start_Element
-     (Namespace_URI => Stream_URI, 
-      Local_Name    => Stream_Element, 
+     (Namespace_URI => Stream_URI,
+      Local_Name    => Stream_Element,
       Attributes    => Attributes);
-   
+
    --  Open features element
-   
+
    Writer.Start_Element
      (Namespace_URI => Stream_URI, Local_Name => Features_Element);
-   
+
    --  Open compression element
-   
+
    Writer.Start_Prefix_Mapping (Namespace_URI => Compression_URI);
    Writer.Start_Element
      (Namespace_URI => Compression_URI, Local_Name => Compression_Element);
-   
+
    --  Output method
 
@@ -119 +126 @@
    Writer.End_Element
      (Namespace_URI => Compression_URI, Local_Name => Method_Element);
-   
+
    --  Close compression element
-   
+
    Writer.End_Element
      (Namespace_URI => Compression_URI, Local_Name => Compression_Element);
    Writer.End_Prefix_Mapping;
-   
+
    --  Close features element
-   
+
    Writer.End_Element
      (Namespace_URI => Stream_URI, Local_Name => Features_Element);
-   
+
    --  Close stream element
-   
+
    Writer.End_Element
      (Namespace_URI => Stream_URI, Local_Name => Stream_Element);
@@ -138 +145 @@
    Writer.End_Prefix_Mapping;
    Writer.End_Document;
-   
+
    Ada.Wide_Wide_Text_IO.Put_Line (Writer.Text.To_Wide_Wide_String);
-end SAX_Writer_Example;
+end SAX_Writer;
 }}}