File: SocketServer.xs

package info (click to toggle)
libwx-perl 1%3A0.9932-9
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 5,300 kB
  • sloc: cpp: 11,064; perl: 8,603; ansic: 711; makefile: 53
file content (50 lines) | stat: -rw-r--r-- 1,351 bytes parent folder | download | duplicates (7)
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
45
46
47
48
49
50
#############################################################################
## Name:        ext/socket/XS/SocketServer.xs
## Purpose:     XS for Wx::SocketServer
## Author:      Graciliano M. P.
## Created:     04/03/2003
## RCS-ID:      $Id: SocketServer.xs 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright:   (c) 2003 Graciliano M. P.
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

MODULE=Wx PACKAGE=Wx::SocketServer

wxSocketServer*
wxSocketServer::new( host , port , style = 0 )
    wxString host
    wxString port
    long style
  CODE:
    wxIPV4address addr ;
    addr.Hostname(host) ;
    addr.Service(port) ;
    RETVAL = new wxPlSocketServer( CLASS , addr , style ) ;
  OUTPUT: RETVAL


wxSocketBase*
wxSocketServer::Accept(wait = true)
    bool wait
  CODE:
    // works, more or less; not a good example of C++
    RETVAL = ((wxPlSocketServer*)THIS)->Accept(wait);
  OUTPUT: RETVAL

bool
wxSocketServer::AcceptWith( socket , wait = true )
    wxSocketBase* socket
    bool wait
  CODE:
    RETVAL = THIS->AcceptWith( *socket , wait );
  OUTPUT: RETVAL 


bool
wxSocketServer::WaitForAccept( seconds = -1 , millisecond = 0 )
    long seconds
    long millisecond