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

   1 #############################################################################
   2 ## Name:        ext/socket/XS/SocketClient.xs
   3 ## Purpose:     XS for Wx::SocketClient
   4 ## Author:      Graciliano M. P.
   5 ## Created:     27/02/2003
   6 ## RCS-ID:      $Id: SocketClient.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::SocketClient
  13
  14 wxSocketClient*
  15 wxSocketClient::new( style = 0 )
  16     long style
  17   CODE:
  18     RETVAL = new wxPliSocketClient( CLASS , style ) ;
  19   OUTPUT: RETVAL
  20
  21 bool
  22 wxSocketClient::Connect( host , port , wait = 1 )
  23     wxString host
  24     wxString port
  25     bool wait
  26   CODE:
  27     wxIPV4address addr ;
  28     addr.Hostname(host) ;
  29     addr.Service(port) ;
  30     RETVAL = THIS->Connect( addr , wait ) ;
  31   OUTPUT: RETVAL
  32
  33
  34