home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / lib / Socket.pm < prev    next >
Text File  |  1995-03-16  |  2KB  |  123 lines
  1. package Socket;
  2. use Carp;
  3.  
  4. require Exporter;
  5. require AutoLoader;
  6. require DynaLoader;
  7. @ISA = qw(Exporter DynaLoader);
  8. @EXPORT = qw(
  9.     AF_802
  10.     AF_APPLETALK
  11.     AF_CCITT
  12.     AF_CHAOS
  13.     AF_DATAKIT
  14.     AF_DECnet
  15.     AF_DLI
  16.     AF_ECMA
  17.     AF_GOSIP
  18.     AF_HYLINK
  19.     AF_IMPLINK
  20.     AF_INET
  21.     AF_LAT
  22.     AF_MAX
  23.     AF_NBS
  24.     AF_NIT
  25.     AF_NS
  26.     AF_OSI
  27.     AF_OSINET
  28.     AF_PUP
  29.     AF_SNA
  30.     AF_UNIX
  31.     AF_UNSPEC
  32.     AF_X25
  33.     MSG_DONTROUTE
  34.     MSG_MAXIOVLEN
  35.     MSG_OOB
  36.     MSG_PEEK
  37.     PF_802
  38.     PF_APPLETALK
  39.     PF_CCITT
  40.     PF_CHAOS
  41.     PF_DATAKIT
  42.     PF_DECnet
  43.     PF_DLI
  44.     PF_ECMA
  45.     PF_GOSIP
  46.     PF_HYLINK
  47.     PF_IMPLINK
  48.     PF_INET
  49.     PF_LAT
  50.     PF_MAX
  51.     PF_NBS
  52.     PF_NIT
  53.     PF_NS
  54.     PF_OSI
  55.     PF_OSINET
  56.     PF_PUP
  57.     PF_SNA
  58.     PF_UNIX
  59.     PF_UNSPEC
  60.     PF_X25
  61.     SOCK_DGRAM
  62.     SOCK_RAW
  63.     SOCK_RDM
  64.     SOCK_SEQPACKET
  65.     SOCK_STREAM
  66.     SOL_SOCKET
  67.     SOMAXCONN
  68.     SO_ACCEPTCONN
  69.     SO_BROADCAST
  70.     SO_DEBUG
  71.     SO_DONTLINGER
  72.     SO_DONTROUTE
  73.     SO_ERROR
  74.     SO_KEEPALIVE
  75.     SO_LINGER
  76.     SO_OOBINLINE
  77.     SO_RCVBUF
  78.     SO_RCVLOWAT
  79.     SO_RCVTIMEO
  80.     SO_REUSEADDR
  81.     SO_SNDBUF
  82.     SO_SNDLOWAT
  83.     SO_SNDTIMEO
  84.     SO_TYPE
  85.     SO_USELOOPBACK
  86. );
  87.  
  88. sub AUTOLOAD {
  89.     local($constname);
  90.     ($constname = $AUTOLOAD) =~ s/.*:://;
  91.     $val = constant($constname, @_ ? $_[0] : 0);
  92.     if ($! != 0) {
  93.     if ($! =~ /Invalid/) {
  94.         $AutoLoader::AUTOLOAD = $AUTOLOAD;
  95.         goto &AutoLoader::AUTOLOAD;
  96.     }
  97.     else {
  98.         ($pack,$file,$line) = caller;
  99.         croak "Your vendor has not defined Socket macro $constname, used";
  100.     }
  101.     }
  102.     eval "sub $AUTOLOAD { $val }";
  103.     goto &$AUTOLOAD;
  104. }
  105.  
  106.  
  107. # pack a sockaddr_in structure for use in bind() calls.
  108. # (here to hide the 'S n C4 x8' magic from applications)
  109. sub sockaddr_in{
  110.     my($af, $port, @quad) = @_;
  111.     my $pack = 'S n C4 x8'; # lookup $pack from hash using $af?
  112.     pack($pack, $af, $port, @quad);
  113. }
  114.  
  115.  
  116. bootstrap Socket;
  117.  
  118. # Preloaded methods go here.  Autoload methods go after __END__, and are
  119. # processed by the autosplit program.
  120.  
  121. 1;
  122. __END__
  123.