1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#############################################################################
## Name: ext/socket/XS/DatagramSocket.xsp
## Purpose: XS++ for Wx::DatagramSocket
## Author: Mattia Barbon
## Created: 24/01/2004
## RCS-ID: $Id: DatagramSocket.xsp 2079 2007-07-08 21:18:04Z mbarbon $
## Copyright: (c) 2004 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
%module{Wx};
%typemap{wxSockAddress&}{reference};
%typemap{wxDatagramSocket*}{simple};
%typemap{wxSocketFlags}{simple};
%name{Wx::DatagramSocket} class wxDatagramSocket
{
wxDatagramSocket(wxSockAddress& addr, wxSocketFlags flags = wxSOCKET_NONE)
%code{% RETVAL = new wxPliDatagramSocket( CLASS , *addr, flags ); %};
};
%{
size_t
wxDatagramSocket::RecvFrom( addr, buf, nBytes )
wxSockAddress* addr
SV* buf
wxUint32 nBytes
CODE:
DO_READ( THIS->RecvFrom( *addr, buffer, nBytes ), buf, nBytes, 0 );
OUTPUT: RETVAL
size_t
wxDatagramSocket::SendTo( addr, buf, nBytes )
wxSockAddress* addr
SV* buf
wxUint32 nBytes
CODE:
DO_WRITE( THIS->SendTo( *addr, buffer, nBytes ), buf, nBytes );
OUTPUT: RETVAL
%}
|
