source: trunk/axmpp/source/xmpp-streams.ads

Last change on this file was 312, checked in by maxim.reznik, 6 years ago

Update to newer matreshka version

  • Property svn:keywords set to Author Date Revision
File size: 4.6 KB
Line 
1------------------------------------------------------------------------------
2-- --
3-- AXMPP Project --
4-- --
5-- XMPP Library for Ada --
6-- --
7------------------------------------------------------------------------------
8-- --
9-- Copyright © 2011-2016, Alexander Basov <coopht@gmail.com> --
10-- All rights reserved. --
11-- --
12-- Redistribution and use in source and binary forms, with or without --
13-- modification, are permitted provided that the following conditions --
14-- are met: --
15-- --
16-- * Redistributions of source code must retain the above copyright --
17-- notice, this list of conditions and the following disclaimer. --
18-- --
19-- * Redistributions in binary form must reproduce the above copyright --
20-- notice, this list of conditions and the following disclaimer in the --
21-- documentation and/or other materials provided with the distribution. --
22-- --
23-- * Neither the name of the Alexander Basov, IE nor the names of its --
24-- contributors may be used to endorse or promote products derived from --
25-- this software without specific prior written permission. --
26-- --
27-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS --
28-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT --
29-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR --
30-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT --
31-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, --
32-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
33-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR --
34-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF --
35-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING --
36-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS --
37-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. --
38-- --
39------------------------------------------------------------------------------
40-- $Revision: 312 $ $Date: 2016-04-28 19:23:49 +0000 (Thu, 28 Apr 2016) $
41------------------------------------------------------------------------------
42with League.Strings;
43
44with XML.SAX.Pretty_Writers;
45
46with XMPP.Objects;
47
48package XMPP.Streams is
49
50 type XMPP_Stream is new XMPP.Objects.XMPP_Object with private;
51
52 type XMPP_Stream_Access is access all XMPP_Stream'Class;
53
54 function Create return XMPP_Stream_Access;
55
56 overriding function Get_Kind (Self : XMPP_Stream) return XMPP.Object_Kind;
57
58 overriding procedure Serialize
59 (Self : XMPP_Stream;
60 Writer : in out XML.SAX.Pretty_Writers.XML_Pretty_Writer'Class);
61
62 overriding
63 procedure Set_Content (Self : in out XMPP_Stream;
64 Parameter : League.Strings.Universal_String;
65 Value : League.Strings.Universal_String);
66
67 procedure Set_From (Self : in out XMPP_Stream;
68 Value : League.Strings.Universal_String);
69
70 procedure Set_Id (Self : in out XMPP_Stream;
71 Value : League.Strings.Universal_String);
72
73 procedure Set_Id (Self : in out XMPP_Stream; Value : Integer);
74
75 procedure Set_Lang (Self : in out XMPP_Stream;
76 Value : League.Strings.Universal_String);
77
78 procedure Set_Version (Self : in out XMPP_Stream;
79 Value : League.Strings.Universal_String);
80
81private
82
83 type XMPP_Stream is new XMPP.Objects.XMPP_Object with
84 record
85 Id : League.Strings.Universal_String;
86 From : League.Strings.Universal_String;
87 Lang : League.Strings.Universal_String;
88 Version : League.Strings.Universal_String;
89 end record;
90end XMPP.Streams;
Note: See TracBrowser for help on using the repository browser.