git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/socket/XS/SocketServer.xs

   1 #############################################################################
   2 ## Name:        ext/socket/XS/SocketServer.xs
   3 ## Purpose:     XS for Wx::SocketServer
   4 ## Author:      Graciliano M. P.
   5 ## Created:     04/03/2003
   6 ## RCS-ID:      $Id: SocketServer.xs 2057 2007-06-18 23:03:00Z mbarbon $
   7 ## Copyright:   (c) 2003 Graciliano M. P.
   8 ## Licence:     This program is free software; you can redistribute it and/or
   9 ##              modify it under the same terms as Perl itself
  10 #############################################################################
  11
  12 MODULE=Wx PACKAGE=Wx::SocketServer
  13
  14 wxSocketServer*
  15 wxSocketServer::new( host , port , style = 0 )
  16     wxString host
  17     wxString port
  18     long style
  19   CODE:
  20     wxIPV4address addr ;
  21     addr.Hostname(host) ;
  22     addr.Service(port) ;
  23     RETVAL = new wxPlSocketServer( CLASS , addr , style ) ;
  24   OUTPUT: RETVAL
  25
  26
  27 wxSocketBase*
  28 wxSocketServer::Accept(wait = true)
  29     bool wait
  30   CODE:
  31     // works, more or less; not a good example of C++
  32     RETVAL = ((wxPlSocketServer*)THIS)->Accept(wait);
  33   OUTPUT: RETVAL
  34
  35 bool
  36 wxSocketServer::AcceptWith( socket , wait = true )
  37     wxSocketBase* socket
  38     bool wait
  39   CODE:
  40     RETVAL = THIS->AcceptWith( *socket , wait );
  41   OUTPUT: RETVAL
  42
  43
  44 bool
  45 wxSocketServer::WaitForAccept( seconds = -1 , millisecond = 0 )
  46     long seconds
  47     long millisecond
  48
  49
  50