home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / BBS / D32_01.ZIP / IBMSO32.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-26  |  5.2 KB  |  114 lines
  1. unit IBMSO32;
  2.  
  3. {$OrgName+ }
  4.  
  5. interface
  6.  
  7. uses OS2Def;
  8.  
  9. {$CDECL+}
  10.   (****************************************************************************)
  11.   function IBM_accept(SFamily:  ULong;
  12.                       SAddr:    pointer;
  13.                       SAddrL:   pointer): APIRET;
  14.   (****************************************************************************)
  15.   function IBM_bind(SSocket:    ULong;
  16.                     SAddr:      pointer;
  17.                     SAddrLen:   ULong):   APIRET;
  18.   (****************************************************************************)
  19.   function IBM_connect(SSocket: ULong;
  20.                        SAddr:   pointer;
  21.                        SAddrLen:ULong):   APIRET;
  22.   (****************************************************************************)
  23.   function IBM_gethostid: APIRET;
  24.   (****************************************************************************)
  25.   function IBM_select( Sockets: pointer;
  26.                        noreads, nowrites, noexcepts: longint;
  27.                        timeout: longint ): ApiRet;
  28.   (****************************************************************************)
  29.   function IBM_getsockname(SSocket: ULong;
  30.                            SName:   pointer;
  31.                            SLength: pointer): APIRET;
  32.   (****************************************************************************)
  33.   function IBM_ioctl(SSocket:  ULong;
  34.                      SRequest: longint;
  35.                      SArgp:    pointer;
  36.                      ArgSize:  longint): APIRET;
  37.   (****************************************************************************)
  38.   function IBM_listen(SSocket: ULong;
  39.                       SQueue:  ULong): APIRET;
  40.   (****************************************************************************)
  41.   function IBM_getsockopt(SSocket:  uLong;
  42.                       sLevel:   LongInt;
  43.                       sOptname: LongInt;
  44.                       sOptVal:  pchar;
  45.                       var sOptLen:  LongInt ): ApiRet;
  46.   (****************************************************************************)
  47.   FUNCTION IBM_setsockopt(sSocket:  ulong;
  48.                           sLevel:   uLong;
  49.                           sOptName: uLong;
  50.                           sOptVal:  pointer;
  51.                           sOptLen:  uLong ): ApiRet;
  52.   (****************************************************************************)
  53.   function IBM_recv(SSocket:   ULong;
  54.                     SBuffer:   pointer;
  55.                     SLength:   ULong;
  56.                     SFlags:    ULong): APIRET;
  57.   (****************************************************************************)
  58.   function IBM_send(SSocket:   ULong;
  59.                     SBuffer:   pointer;
  60.                     SLength:   ULong;
  61.                     SFlags:    ULong): APIRET;
  62.   (****************************************************************************)
  63.   function IBM_socket(SDomain:    ULong;
  64.                      SType:      ULong;
  65.                      SProtocol:  ULong): APIRET;
  66.   (****************************************************************************)
  67.   function IBM_soclose(SProtocol: ULong): APIRET;
  68.   (****************************************************************************)
  69.   function IBM_sock_errno: APIRET;
  70.   (****************************************************************************)
  71.   function IBM_shutdown(SSocket: ULong;
  72.                         SFlags:  ULong): APIRET;
  73.   (****************************************************************************)
  74.   function IBM_sock_init: APIRET;
  75.   (****************************************************************************)
  76.   function IBM_so_cancel(SProtocol: ULong): APIRET;
  77.   (****************************************************************************)
  78. {$CDECL-}
  79.  
  80. implementation
  81.  
  82. const
  83.   Version    = '00.90';
  84.   UseString:  string = '@(#)import interface unit for IBM TCP/IP so32dll.dll'+#0;
  85.   CopyRight1: string = '@(#)ibmso32dll Version '+Version+' - 10.10.96'+#0;
  86.   CopyRight2: string = '@(#)(C) Chr.Hohmann BfS ST2.2 1996'+#0;
  87.  
  88. const
  89.   sockets       = 'SO32DLL';
  90.   network       = 'TCP32DLL';
  91.  
  92. {$CDECL+}
  93.   function IBM_accept;             external sockets index 1;
  94.   function IBM_bind;               external sockets index 2;
  95.   function IBM_connect;            external sockets index 3;
  96.   function IBM_gethostid;          external sockets index 4;
  97.   function IBM_getsockname;        external sockets index 6;
  98.   function IBM_ioctl;              external sockets index 8;
  99.   function IBM_listen;             external sockets index 9;
  100.   function IBM_recv;               external sockets index 10;
  101.   function IBM_send;               external sockets index 13;
  102.   function IBM_socket;             external sockets index 16;
  103.   function IBM_soclose;            external sockets index 17;
  104.   function IBM_sock_errno;         external sockets index 20;
  105.   function IBM_shutdown;           external sockets index 25;
  106.   function IBM_sock_init;          external sockets index 26;
  107.   function IBM_so_cancel;          external sockets index 18;
  108.   function IBM_getsockopt;         external sockets index 7;
  109.   function IBM_setsockopt;         external sockets index 15;
  110.   function IBM_select;             external sockets index 12;
  111. {$CDECL-}
  112.  
  113. end.
  114.