Changes between Version 8 and Version 9 of XML/SAX
- Timestamp:
- Jan 28, 2011, 1:09:12 PM (11 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
XML/SAX
v8 v9 51 51 52 52 {{{ 53 ------------------------------------------------------------------------------ 54 -- This is example of usage of XML Writer to generate XML files from 55 -- application. It generates initial part of XMPP stream. 56 ------------------------------------------------------------------------------ 53 57 with Ada.Wide_Wide_Text_IO; 54 58 … … 57 61 with XML.SAX.Pretty_Writers; 58 62 59 procedure SAX_Writer _Exampleis63 procedure SAX_Writer is 60 64 61 65 use League.Strings; 62 66 63 67 function "+" (Item : Wide_Wide_String) return Universal_String 64 68 renames To_Universal_String; 65 66 Lang_Attribute : constant Universal_String := +"xml:lang"; 69 70 XML_URI : constant Universal_String 71 := +"http://www.w3.org/XML/1998/namespace"; 72 Lang_Attribute : constant Universal_String := +"lang"; 67 73 Stream_URI : constant Universal_String 68 74 := +"http://etherx.jabber.org/streams"; … … 78 84 Compression_Element : constant Universal_String := +"compression"; 79 85 Method_Element : constant Universal_String := +"method"; 80 86 81 87 Writer : XML.SAX.Pretty_Writers.SAX_Pretty_Writer; 82 88 Attributes : XML.SAX.Attributes.SAX_Attributes; 83 89 84 90 begin 85 91 Writer.Start_Document; 86 92 Writer.Start_Prefix_Mapping (Namespace_URI => Client_URI); 87 Writer.Start_Prefix_Mapping 93 Writer.Start_Prefix_Mapping 88 94 (Namespace_URI => Stream_URI, Prefix => Stream_Prefix); 89 95 90 96 -- Open stream element 91 97 92 98 Attributes.Set_Value 93 99 (Qualified_Name => Id_Attribute, Value => +"656571601"); 94 Attributes.Set_Value 100 Attributes.Set_Value 95 101 (Qualified_Name => From_Attribute, Value => +"jabber.ru"); 96 102 Attributes.Set_Value (Qualified_Name => Version_Attribute, Value => +"1.0"); 97 Attributes.Set_Value (Qualified_Name => Lang_Attribute, Value => +"ru"); 103 Attributes.Set_Value 104 (Namespace_URI => XML_URI, Local_Name => Lang_Attribute, Value => +"ru"); 98 105 Writer.Start_Element 99 (Namespace_URI => Stream_URI, 100 Local_Name => Stream_Element, 106 (Namespace_URI => Stream_URI, 107 Local_Name => Stream_Element, 101 108 Attributes => Attributes); 102 109 103 110 -- Open features element 104 111 105 112 Writer.Start_Element 106 113 (Namespace_URI => Stream_URI, Local_Name => Features_Element); 107 114 108 115 -- Open compression element 109 116 110 117 Writer.Start_Prefix_Mapping (Namespace_URI => Compression_URI); 111 118 Writer.Start_Element 112 119 (Namespace_URI => Compression_URI, Local_Name => Compression_Element); 113 120 114 121 -- Output method 115 122 … … 119 126 Writer.End_Element 120 127 (Namespace_URI => Compression_URI, Local_Name => Method_Element); 121 128 122 129 -- Close compression element 123 130 124 131 Writer.End_Element 125 132 (Namespace_URI => Compression_URI, Local_Name => Compression_Element); 126 133 Writer.End_Prefix_Mapping; 127 134 128 135 -- Close features element 129 136 130 137 Writer.End_Element 131 138 (Namespace_URI => Stream_URI, Local_Name => Features_Element); 132 139 133 140 -- Close stream element 134 141 135 142 Writer.End_Element 136 143 (Namespace_URI => Stream_URI, Local_Name => Stream_Element); … … 138 145 Writer.End_Prefix_Mapping; 139 146 Writer.End_Document; 140 147 141 148 Ada.Wide_Wide_Text_IO.Put_Line (Writer.Text.To_Wide_Wide_String); 142 end SAX_Writer _Example;149 end SAX_Writer; 143 150 }}} 144 151