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

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        ext/socket/Socket.xs
   3 // Purpose:     XS for Wx::Socket
   4 // Author:      Graciliano M. P.
   5 // Modified by:
   6 // Created:     27/02/2003
   7 // RCS-ID:      $Id: Socket.xs 2700 2009-12-13 11:25:50Z mbarbon $
   8 // Copyright:   (c) 2003-2004, 2006, 2008-2009 Graciliano M. P.
   9 // Licence:     This program is free software; you can redistribute it and/or
  10 //              modify it under the same terms as Perl itself
  11 /////////////////////////////////////////////////////////////////////////////
  12
  13 #define PERL_NO_GET_CONTEXT
  14
  15 #include "cpp/wxapi.h"
  16 #include "wx/socket.h"
  17
  18 #undef THIS
  19
  20 #include "cpp/sk_constants.cpp"
  21 #include "cpp/socket.h"
  22
  23 MODULE=Wx__Socket
  24
  25 BOOT:
  26   INIT_PLI_HELPERS( wx_pli_helpers );
  27
  28 INCLUDE: XS/SocketBase.xs
  29 INCLUDE: XS/SocketClient.xs
  30 INCLUDE: XS/SocketServer.xs
  31 INCLUDE: XS/SocketEvent.xs
  32
  33 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t ../../typemap.xsp XS/SockAddress.xsp |
  34
  35 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t ../../typemap.xsp XS/DatagramSocket.xsp |
  36
  37 #  //FIXME//tricky
  38 #if defined(__WXMSW__)
  39 #undef XS
  40 #define XS( name ) WXXS( name )
  41 #endif
  42
  43 MODULE=Wx__Socket
  44