modules/winsock.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module winsock :winsock)
   5
   6 (cl:in-package cl-w32api.module.winsock)
   7
   8
   9 (defconstant-exported FD_SETSIZE 64)
  10
  11 (defconstant-exported SD_RECEIVE #x00)
  12
  13 (defconstant-exported SD_SEND #x01)
  14
  15 (defconstant-exported SD_BOTH #x02)
  16
  17 (defcstructex-exported fd_set
  18         (fd_count :unsigned-int)
  19         (fd_array :pointer))
  20
  21
  22
  23 (defcfunex-exported ("__WSAFDIsSet" __WSAFDIsSet :convention :stdcall) :int
  24   (arg0 :unsigned-int)
  25   (arg1 :pointer))
  26
  27 (defcstructex-exported timeval
  28         (tv_sec :int32)
  29         (tv_usec :int32))
  30
  31 (defcstructex-exported hostent
  32         (h_name :string)
  33         (h_aliases :pointer)
  34         (h_addrtype :short)
  35         (h_length :short)
  36         (h_addr_list :pointer))
  37
  38 (defcstructex-exported linger
  39         (l_onoff :unsigned-short)
  40         (l_linger :unsigned-short))
  41
  42 (defconstant-exported IOCPARM_MASK #x7f)
  43
  44 (defconstant-exported IOC_VOID #x20000000)
  45
  46 (defconstant-exported IOC_OUT #x40000000)
  47
  48 (defconstant-exported IOC_IN #x80000000)
  49
  50 (defconstant-exported IOC_INOUT (cl:logior #x80000000 #x40000000))
  51
  52 (defcstructex-exported netent
  53         (n_name :string)
  54         (n_aliases :pointer)
  55         (n_addrtype :short)
  56         (n_net :unsigned-long))
  57
  58 (defcstructex-exported servent
  59         (s_name :string)
  60         (s_aliases :pointer)
  61         (s_port :short)
  62         (s_proto :string))
  63
  64 (defcstructex-exported protoent
  65         (p_name :string)
  66         (p_aliases :pointer)
  67         (p_proto :short))
  68
  69 (defconstant-exported IPPROTO_IP 0)
  70
  71 (defconstant-exported IPPROTO_ICMP 1)
  72
  73 (defconstant-exported IPPROTO_IGMP 2)
  74
  75 (defconstant-exported IPPROTO_GGP 3)
  76
  77 (defconstant-exported IPPROTO_TCP 6)
  78
  79 (defconstant-exported IPPROTO_PUP 12)
  80
  81 (defconstant-exported IPPROTO_UDP 17)
  82
  83 (defconstant-exported IPPROTO_IDP 22)
  84
  85 (defconstant-exported IPPROTO_ND 77)
  86
  87 (defconstant-exported IPPROTO_RAW 255)
  88
  89 (defconstant-exported IPPROTO_MAX 256)
  90
  91 (defconstant-exported IPPROTO_HOPOPTS 0)
  92
  93 (defconstant-exported IPPROTO_IPV6 41)
  94
  95 (defconstant-exported IPPROTO_ROUTING 43)
  96
  97 (defconstant-exported IPPROTO_FRAGMENT 44)
  98
  99 (defconstant-exported IPPROTO_ESP 50)
 100
 101 (defconstant-exported IPPROTO_AH 51)
 102
 103 (defconstant-exported IPPROTO_ICMPV6 58)
 104
 105 (defconstant-exported IPPROTO_NONE 59)
 106
 107 (defconstant-exported IPPROTO_DSTOPTS 60)
 108
 109 (defconstant-exported IPPORT_ECHO 7)
 110
 111 (defconstant-exported IPPORT_DISCARD 9)
 112
 113 (defconstant-exported IPPORT_SYSTAT 11)
 114
 115 (defconstant-exported IPPORT_DAYTIME 13)
 116
 117 (defconstant-exported IPPORT_NETSTAT 15)
 118
 119 (defconstant-exported IPPORT_FTP 21)
 120
 121 (defconstant-exported IPPORT_TELNET 23)
 122
 123 (defconstant-exported IPPORT_SMTP 25)
 124
 125 (defconstant-exported IPPORT_TIMESERVER 37)
 126
 127 (defconstant-exported IPPORT_NAMESERVER 42)
 128
 129 (defconstant-exported IPPORT_WHOIS 43)
 130
 131 (defconstant-exported IPPORT_MTP 57)
 132
 133 (defconstant-exported IPPORT_TFTP 69)
 134
 135 (defconstant-exported IPPORT_RJE 77)
 136
 137 (defconstant-exported IPPORT_FINGER 79)
 138
 139 (defconstant-exported IPPORT_TTYLINK 87)
 140
 141 (defconstant-exported IPPORT_SUPDUP 95)
 142
 143 (defconstant-exported IPPORT_EXECSERVER 512)
 144
 145 (defconstant-exported IPPORT_LOGINSERVER 513)
 146
 147 (defconstant-exported IPPORT_CMDSERVER 514)
 148
 149 (defconstant-exported IPPORT_EFSSERVER 520)
 150
 151 (defconstant-exported IPPORT_BIFFUDP 512)
 152
 153 (defconstant-exported IPPORT_WHOSERVER 513)
 154
 155 (defconstant-exported IPPORT_ROUTESERVER 520)
 156
 157 (defconstant-exported IPPORT_RESERVED 1024)
 158
 159 (defconstant-exported IMPLINK_IP 155)
 160
 161 (defconstant-exported IMPLINK_LOWEXPER 156)
 162
 163 (defconstant-exported IMPLINK_HIGHEXPER 158)
 164
 165 (defcstructex-exported in_addr
 166         (S_un :pointer))
 167
 168 (cffi:defcunion in_addr_S_un
 169         (S_addr :unsigned-long)
 170         (S_un_b :pointer)
 171         (S_un_w :pointer))
 172
 173 (defcstructex-exported in_addr_S_un_S_un_w
 174         (s_w1 :unsigned-short)
 175         (s_w2 :unsigned-short))
 176
 177 (defcstructex-exported in_addr_S_un_S_un_b
 178         (s_b1 :unsigned-char)
 179         (s_b2 :unsigned-char)
 180         (s_b3 :unsigned-char)
 181         (s_b4 :unsigned-char))
 182
 183 (defconstant-exported IN_CLASSA_NET #xff000000)
 184
 185 (defconstant-exported IN_CLASSA_NSHIFT 24)
 186
 187 (defconstant-exported IN_CLASSA_HOST #x00ffffff)
 188
 189 (defconstant-exported IN_CLASSA_MAX 128)
 190
 191 (defconstant-exported IN_CLASSB_NET #xffff0000)
 192
 193 (defconstant-exported IN_CLASSB_NSHIFT 16)
 194
 195 (defconstant-exported IN_CLASSB_HOST #x0000ffff)
 196
 197 (defconstant-exported IN_CLASSB_MAX 65536)
 198
 199 (defconstant-exported IN_CLASSC_NET #xffffff00)
 200
 201 (defconstant-exported IN_CLASSC_NSHIFT 8)
 202
 203 (defconstant-exported IN_CLASSC_HOST #xff)
 204
 205 (defconstant-exported INADDR_LOOPBACK #x7f000001)
 206
 207 (defconstant-exported INADDR_NONE #xffffffff)
 208
 209 (defcstructex-exported sockaddr_in
 210         (sin_family :short)
 211         (sin_port :unsigned-short)
 212         (sin_addr in_addr)
 213         (sin_zero :pointer))
 214
 215 (defconstant-exported WSADESCRIPTION_LEN 256)
 216
 217 (defconstant-exported WSASYS_STATUS_LEN 128)
 218
 219 (defcstructex-exported WSADATA
 220         (wVersion :unsigned-short)
 221         (wHighVersion :unsigned-short)
 222         (szDescription :pointer)
 223         (szSystemStatus :pointer)
 224         (iMaxSockets :unsigned-short)
 225         (iMaxUdpDg :unsigned-short)
 226         (lpVendorInfo :string))
 227
 228
 229
 230
 231
 232 (defconstant-exported IP_OPTIONS 1)
 233
 234 (defconstant-exported SO_DEBUG 1)
 235
 236 (defconstant-exported SO_ACCEPTCONN 2)
 237
 238 (defconstant-exported SO_REUSEADDR 4)
 239
 240 (defconstant-exported SO_KEEPALIVE 8)
 241
 242 (defconstant-exported SO_DONTROUTE 16)
 243
 244 (defconstant-exported SO_BROADCAST 32)
 245
 246 (defconstant-exported SO_USELOOPBACK 64)
 247
 248 (defconstant-exported SO_LINGER 128)
 249
 250 (defconstant-exported SO_OOBINLINE 256)
 251
 252 (defconstant-exported SO_SNDBUF #x1001)
 253
 254 (defconstant-exported SO_RCVBUF #x1002)
 255
 256 (defconstant-exported SO_SNDLOWAT #x1003)
 257
 258 (defconstant-exported SO_RCVLOWAT #x1004)
 259
 260 (defconstant-exported SO_SNDTIMEO #x1005)
 261
 262 (defconstant-exported SO_RCVTIMEO #x1006)
 263
 264 (defconstant-exported SO_ERROR #x1007)
 265
 266 (defconstant-exported SO_TYPE #x1008)
 267
 268 (defconstant-exported SOCKET_ERROR -1)
 269
 270 (defconstant-exported SOCK_STREAM 1)
 271
 272 (defconstant-exported SOCK_DGRAM 2)
 273
 274 (defconstant-exported SOCK_RAW 3)
 275
 276 (defconstant-exported SOCK_RDM 4)
 277
 278 (defconstant-exported SOCK_SEQPACKET 5)
 279
 280 (defconstant-exported TCP_NODELAY #x0001)
 281
 282 (defconstant-exported AF_UNSPEC 0)
 283
 284 (defconstant-exported AF_UNIX 1)
 285
 286 (defconstant-exported AF_INET 2)
 287
 288 (defconstant-exported AF_IMPLINK 3)
 289
 290 (defconstant-exported AF_PUP 4)
 291
 292 (defconstant-exported AF_CHAOS 5)
 293
 294 (defconstant-exported AF_IPX 6)
 295
 296 (defconstant-exported AF_NS 6)
 297
 298 (defconstant-exported AF_ISO 7)
 299
 300 (defconstant-exported AF_OSI 7)
 301
 302 (defconstant-exported AF_ECMA 8)
 303
 304 (defconstant-exported AF_DATAKIT 9)
 305
 306 (defconstant-exported AF_CCITT 10)
 307
 308 (defconstant-exported AF_SNA 11)
 309
 310 (defconstant-exported AF_DECnet 12)
 311
 312 (defconstant-exported AF_DLI 13)
 313
 314 (defconstant-exported AF_LAT 14)
 315
 316 (defconstant-exported AF_HYLINK 15)
 317
 318 (defconstant-exported AF_APPLETALK 16)
 319
 320 (defconstant-exported AF_NETBIOS 17)
 321
 322 (defconstant-exported AF_VOICEVIEW 18)
 323
 324 (defconstant-exported AF_FIREFOX 19)
 325
 326 (defconstant-exported AF_UNKNOWN1 20)
 327
 328 (defconstant-exported AF_BAN 21)
 329
 330 (defconstant-exported AF_ATM 22)
 331
 332 (defconstant-exported AF_INET6 23)
 333
 334 (defconstant-exported AF_CLUSTER 24)
 335
 336 (defconstant-exported AF_12844 25)
 337
 338 (defconstant-exported AF_IRDA 26)
 339
 340 (defconstant-exported AF_NETDES 28)
 341
 342 (defconstant-exported AF_MAX 29)
 343
 344 (defcstructex-exported sockaddr
 345         (sa_family :unsigned-short)
 346         (sa_data :pointer))
 347
 348 (defcstructex-exported sockaddr_storage
 349         (ss_family :short)
 350         (__ss_pad1 :pointer)
 351         (__ss_align :long-long)
 352         (__ss_pad2 :pointer))
 353
 354 (defcstructex-exported sockproto
 355         (sp_family :unsigned-short)
 356         (sp_protocol :unsigned-short))
 357
 358 (defconstant-exported PF_UNSPEC 0)
 359
 360 (defconstant-exported PF_UNIX 1)
 361
 362 (defconstant-exported PF_INET 2)
 363
 364 (defconstant-exported PF_IMPLINK 3)
 365
 366 (defconstant-exported PF_PUP 4)
 367
 368 (defconstant-exported PF_CHAOS 5)
 369
 370 (defconstant-exported PF_NS 6)
 371
 372 (defconstant-exported PF_IPX 6)
 373
 374 (defconstant-exported PF_ISO 7)
 375
 376 (defconstant-exported PF_OSI 7)
 377
 378 (defconstant-exported PF_ECMA 8)
 379
 380 (defconstant-exported PF_DATAKIT 9)
 381
 382 (defconstant-exported PF_CCITT 10)
 383
 384 (defconstant-exported PF_SNA 11)
 385
 386 (defconstant-exported PF_DECnet 12)
 387
 388 (defconstant-exported PF_DLI 13)
 389
 390 (defconstant-exported PF_LAT 14)
 391
 392 (defconstant-exported PF_HYLINK 15)
 393
 394 (defconstant-exported PF_APPLETALK 16)
 395
 396 (defconstant-exported PF_VOICEVIEW 18)
 397
 398 (defconstant-exported PF_FIREFOX 19)
 399
 400 (defconstant-exported PF_UNKNOWN1 20)
 401
 402 (defconstant-exported PF_BAN 21)
 403
 404 (defconstant-exported PF_ATM 22)
 405
 406 (defconstant-exported PF_INET6 23)
 407
 408 (defconstant-exported PF_MAX 29)
 409
 410 (defconstant-exported SOL_SOCKET #xffff)
 411
 412 (defconstant-exported SOMAXCONN #x7fffffff)
 413
 414 (defconstant-exported MSG_OOB 1)
 415
 416 (defconstant-exported MSG_PEEK 2)
 417
 418 (defconstant-exported MSG_DONTROUTE 4)
 419
 420 (defconstant-exported MSG_MAXIOVLEN 16)
 421
 422 (defconstant-exported MSG_PARTIAL #x8000)
 423
 424 (defconstant-exported MAXGETHOSTSTRUCT 1024)
 425
 426 (defconstant-exported FD_READ_BIT 0)
 427
 428 (defconstant-exported FD_READ (cl:ash 1 0))
 429
 430 (defconstant-exported FD_WRITE_BIT 1)
 431
 432 (defconstant-exported FD_WRITE (cl:ash 1 1))
 433
 434 (defconstant-exported FD_OOB_BIT 2)
 435
 436 (defconstant-exported FD_OOB (cl:ash 1 2))
 437
 438 (defconstant-exported FD_ACCEPT_BIT 3)
 439
 440 (defconstant-exported FD_ACCEPT (cl:ash 1 3))
 441
 442 (defconstant-exported FD_CONNECT_BIT 4)
 443
 444 (defconstant-exported FD_CONNECT (cl:ash 1 4))
 445
 446 (defconstant-exported FD_CLOSE_BIT 5)
 447
 448 (defconstant-exported FD_CLOSE (cl:ash 1 5))
 449
 450 (defconstant-exported FD_QOS_BIT 6)
 451
 452 (defconstant-exported FD_QOS (cl:ash 1 6))
 453
 454 (defconstant-exported FD_GROUP_QOS_BIT 7)
 455
 456 (defconstant-exported FD_GROUP_QOS (cl:ash 1 7))
 457
 458 (defconstant-exported FD_ROUTING_INTERFACE_CHANGE_BIT 8)
 459
 460 (defconstant-exported FD_ROUTING_INTERFACE_CHANGE (cl:ash 1 8))
 461
 462 (defconstant-exported FD_ADDRESS_LIST_CHANGE_BIT 9)
 463
 464 (defconstant-exported FD_ADDRESS_LIST_CHANGE (cl:ash 1 9))
 465
 466 (defconstant-exported FD_MAX_EVENTS 10)
 467
 468 (defconstant-exported FD_ALL_EVENTS (cl:- (cl:ash 1 10) 1))
 469
 470 (defconstant-exported WSANO_ADDRESS 11004)
 471
 472 (defconstant-exported HOST_NOT_FOUND 11001)
 473
 474 (defconstant-exported TRY_AGAIN 11002)
 475
 476 (defconstant-exported NO_RECOVERY 11003)
 477
 478 (defconstant-exported NO_DATA 11004)
 479
 480 (defconstant-exported NO_ADDRESS 11004)
 481
 482 (defcfunex-exported ("accept" accept :convention :stdcall) :unsigned-int
 483   (arg0 :unsigned-int)
 484   (arg1 :pointer)
 485   (arg2 :pointer))
 486
 487 (defcfunex-exported ("bind" bind :convention :stdcall) :int
 488   (arg0 :unsigned-int)
 489   (arg1 :pointer)
 490   (arg2 :int))
 491
 492 (defcfunex-exported ("closesocket" closesocket :convention :stdcall) :int
 493   (arg0 :unsigned-int))
 494
 495 (defcfunex-exported ("connect" connect :convention :stdcall) :int
 496   (arg0 :unsigned-int)
 497   (arg1 :pointer)
 498   (arg2 :int))
 499
 500 (defcfunex-exported ("ioctlsocket" ioctlsocket :convention :stdcall) :int
 501   (arg0 :unsigned-int)
 502   (arg1 :int32)
 503   (arg2 :pointer))
 504
 505 (defcfunex-exported ("getpeername" getpeername :convention :stdcall) :int
 506   (arg0 :unsigned-int)
 507   (arg1 :pointer)
 508   (arg2 :pointer))
 509
 510 (defcfunex-exported ("getsockname" getsockname :convention :stdcall) :int
 511   (arg0 :unsigned-int)
 512   (arg1 :pointer)
 513   (arg2 :pointer))
 514
 515 (defcfunex-exported ("getsockopt" getsockopt :convention :stdcall) :int
 516   (arg0 :unsigned-int)
 517   (arg1 :int)
 518   (arg2 :int)
 519   (arg3 :string)
 520   (arg4 :pointer))
 521
 522 (defcfunex-exported ("inet_addr" inet_addr :convention :stdcall) :unsigned-long
 523   (arg0 :string))
 524
 525 (defcfunex-exported ("inet_ntoa" inet_ntoa :convention :stdcall) :string
 526   (arg0 in_addr))
 527
 528 (defcfunex-exported ("listen" listen :convention :stdcall) :int
 529   (arg0 :unsigned-int)
 530   (arg1 :int))
 531
 532 (defcfunex-exported ("recv" recv :convention :stdcall) :int
 533   (arg0 :unsigned-int)
 534   (arg1 :string)
 535   (arg2 :int)
 536   (arg3 :int))
 537
 538 (defcfunex-exported ("recvfrom" recvfrom :convention :stdcall) :int
 539   (arg0 :unsigned-int)
 540   (arg1 :string)
 541   (arg2 :int)
 542   (arg3 :int)
 543   (arg4 :pointer)
 544   (arg5 :pointer))
 545
 546 (defcfunex-exported ("send" send :convention :stdcall) :int
 547   (arg0 :unsigned-int)
 548   (arg1 :string)
 549   (arg2 :int)
 550   (arg3 :int))
 551
 552 (defcfunex-exported ("sendto" sendto :convention :stdcall) :int
 553   (arg0 :unsigned-int)
 554   (arg1 :string)
 555   (arg2 :int)
 556   (arg3 :int)
 557   (arg4 :pointer)
 558   (arg5 :int))
 559
 560 (defcfunex-exported ("setsockopt" setsockopt :convention :stdcall) :int
 561   (arg0 :unsigned-int)
 562   (arg1 :int)
 563   (arg2 :int)
 564   (arg3 :string)
 565   (arg4 :int))
 566
 567 (defcfunex-exported ("shutdown" shutdown :convention :stdcall) :int
 568   (arg0 :unsigned-int)
 569   (arg1 :int))
 570
 571 (defcfunex-exported ("socket" socket :convention :stdcall) :unsigned-int
 572   (arg0 :int)
 573   (arg1 :int)
 574   (arg2 :int))
 575
 576 (defcfunex-exported ("gethostbyaddr" gethostbyaddr :convention :stdcall) :pointer
 577   (arg0 :string)
 578   (arg1 :int)
 579   (arg2 :int))
 580
 581 (defcfunex-exported ("gethostbyname" gethostbyname :convention :stdcall) :pointer
 582   (arg0 :string))
 583
 584 (defcfunex-exported ("getservbyport" getservbyport :convention :stdcall) :pointer
 585   (arg0 :int)
 586   (arg1 :string))
 587
 588 (defcfunex-exported ("getservbyname" getservbyname :convention :stdcall) :pointer
 589   (arg0 :string)
 590   (arg1 :string))
 591
 592 (defcfunex-exported ("getprotobynumber" getprotobynumber :convention :stdcall) :pointer
 593   (arg0 :int))
 594
 595 (defcfunex-exported ("getprotobyname" getprotobyname :convention :stdcall) :pointer
 596   (arg0 :string))
 597
 598
 599
 600
 601
 602
 603
 604
 605
 606
 607
 608
 609
 610
 611
 612
 613
 614
 615
 616
 617
 618
 619
 620
 621
 622
 623
 624
 625
 626
 627
 628
 629
 630
 631
 632
 633
 634
 635
 636
 637
 638
 639
 640
 641
 642
 643
 644
 645
 646
 647
 648
 649
 650
 651
 652
 653
 654
 655
 656
 657
 658 (defcfunex-exported ("WSAStartup" WSAStartup :convention :stdcall) :int
 659   (arg0 :unsigned-short)
 660   (arg1 :pointer))
 661
 662 (defcfunex-exported ("WSACleanup" WSACleanup :convention :stdcall) :int)
 663
 664 (defcfunex-exported ("WSASetLastError" WSASetLastError :convention :stdcall) :void
 665   (arg0 :int))
 666
 667 (defcfunex-exported ("WSAGetLastError" WSAGetLastError :convention :stdcall) :int)
 668
 669
 670
 671
 672
 673
 674
 675
 676
 677 (defcfunex-exported ("WSAIsBlocking" WSAIsBlocking :convention :stdcall) :int)
 678
 679 (defcfunex-exported ("WSAUnhookBlockingHook" WSAUnhookBlockingHook :convention :stdcall) :int)
 680
 681 (defcfunex-exported ("WSASetBlockingHook" WSASetBlockingHook :convention :stdcall) :pointer
 682   (arg0 :pointer))
 683
 684 (defcfunex-exported ("WSACancelBlockingCall" WSACancelBlockingCall :convention :stdcall) :int)
 685
 686
 687
 688
 689
 690
 691
 692
 693
 694 (defcfunex-exported ("WSAAsyncGetServByName" WSAAsyncGetServByName :convention :stdcall) :pointer
 695   (arg0 :pointer)
 696   (arg1 :unsigned-int)
 697   (arg2 :string)
 698   (arg3 :string)
 699   (arg4 :string)
 700   (arg5 :int))
 701
 702 (defcfunex-exported ("WSAAsyncGetServByPort" WSAAsyncGetServByPort :convention :stdcall) :pointer
 703   (arg0 :pointer)
 704   (arg1 :unsigned-int)
 705   (arg2 :int)
 706   (arg3 :string)
 707   (arg4 :string)
 708   (arg5 :int))
 709
 710 (defcfunex-exported ("WSAAsyncGetProtoByName" WSAAsyncGetProtoByName :convention :stdcall) :pointer
 711   (arg0 :pointer)
 712   (arg1 :unsigned-int)
 713   (arg2 :string)
 714   (arg3 :string)
 715   (arg4 :int))
 716
 717 (defcfunex-exported ("WSAAsyncGetProtoByNumber" WSAAsyncGetProtoByNumber :convention :stdcall) :pointer
 718   (arg0 :pointer)
 719   (arg1 :unsigned-int)
 720   (arg2 :int)
 721   (arg3 :string)
 722   (arg4 :int))
 723
 724 (defcfunex-exported ("WSAAsyncGetHostByName" WSAAsyncGetHostByName :convention :stdcall) :pointer
 725   (arg0 :pointer)
 726   (arg1 :unsigned-int)
 727   (arg2 :string)
 728   (arg3 :string)
 729   (arg4 :int))
 730
 731 (defcfunex-exported ("WSAAsyncGetHostByAddr" WSAAsyncGetHostByAddr :convention :stdcall) :pointer
 732   (arg0 :pointer)
 733   (arg1 :unsigned-int)
 734   (arg2 :string)
 735   (arg3 :int)
 736   (arg4 :int)
 737   (arg5 :string)
 738   (arg6 :int))
 739
 740 (defcfunex-exported ("WSACancelAsyncRequest" WSACancelAsyncRequest :convention :stdcall) :int
 741   (arg0 :pointer))
 742
 743 (defcfunex-exported ("WSAAsyncSelect" WSAAsyncSelect :convention :stdcall) :int
 744   (arg0 :unsigned-int)
 745   (arg1 :pointer)
 746   (arg2 :unsigned-int)
 747   (arg3 :int32))
 748
 749
 750
 751
 752
 753
 754
 755
 756
 757
 758
 759
 760
 761
 762
 763 (defcfunex-exported ("htonl" htonl :convention :stdcall) :unsigned-long
 764   (arg0 :unsigned-long))
 765
 766 (defcfunex-exported ("ntohl" ntohl :convention :stdcall) :unsigned-long
 767   (arg0 :unsigned-long))
 768
 769 (defcfunex-exported ("htons" htons :convention :stdcall) :unsigned-short
 770   (arg0 :unsigned-short))
 771
 772 (defcfunex-exported ("ntohs" ntohs :convention :stdcall) :unsigned-short
 773   (arg0 :unsigned-short))
 774
 775 (defcfunex-exported ("select" select :convention :stdcall) :int
 776   (nfds :int)
 777   (arg1 :pointer)
 778   (arg2 :pointer)
 779   (arg3 :pointer)
 780   (arg4 :pointer))
 781
 782 (defcfunex-exported ("gethostname" gethostname :convention :stdcall) :int
 783   (arg0 :string)
 784   (arg1 :int))
 785
 786
 787
 788
 789
 790
 791
 792
 793
 794
 795
 796
 797
 798
 799
 800
 801
 802
 803
 804
 805
 806
 807
 808
 809
 810
 811
 812
 813
 814
 815
 816
 817
 818
 819
 820
 821
 822
 823
 824
 825
 826
 827
 828
 829
 830
 831
 832
 833
 834
 835
 836
 837
 838
 839
 840
 841
 842
 843
 844 (defconstant-exported IN_CLASSD_NET #xf0000000)
 845
 846 (defconstant-exported IN_CLASSD_NSHIFT 28)
 847
 848 (defconstant-exported IN_CLASSD_HOST #x0fffffff)
 849
 850 (defconstant-exported FROM_PROTOCOL_INFO -1)
 851
 852 (defconstant-exported SO_GROUP_ID #x2001)
 853
 854 (defconstant-exported SO_GROUP_PRIORITY #x2002)
 855
 856 (defconstant-exported SO_MAX_MSG_SIZE #x2003)
 857
 858 (defconstant-exported SO_PROTOCOL_INFOA #x2004)
 859
 860 (defconstant-exported SO_PROTOCOL_INFOW #x2005)
 861
 862 (defconstant-exported SO_PROTOCOL_INFO #x2004)
 863
 864 (defconstant-exported PVD_CONFIG #x3001)
 865
 866 (defconstant-exported MSG_INTERRUPT #x10)
 867
 868
 869
 870 (defconstant-exported WSA_IO_PENDING 997)
 871
 872 (defconstant-exported WSA_IO_INCOMPLETE 996)
 873
 874 (defconstant-exported WSA_INVALID_HANDLE 6)
 875
 876 (defconstant-exported WSA_INVALID_PARAMETER 87)
 877
 878 (defconstant-exported WSA_NOT_ENOUGH_MEMORY 8)
 879
 880 (defconstant-exported WSA_OPERATION_ABORTED 995)
 881
 882 (defconstant-exported WSA_MAXIMUM_WAIT_EVENTS 64)
 883
 884 (defconstant-exported WSA_WAIT_EVENT_0 0)
 885
 886 (defconstant-exported WSA_WAIT_IO_COMPLETION #xC0)
 887
 888 (defconstant-exported WSA_WAIT_TIMEOUT 258)
 889
 890 (defconstant-exported WSA_INFINITE #xFFFFFFFF)
 891
 892 (defcstructex-exported WSABUF
 893         (len :unsigned-long)
 894         (buf :string))
 895
 896
 897
 898
 899
 900 (cffi:defcenum GUARANTEE
 901         :BestEffortService
 902         :ControlledLoadService
 903         :PredictiveService
 904         :GuaranteedDelayService
 905         :GuaranteedService)
 906
 907
 908
 909 (defcstructex-exported FLOWSPEC
 910         (TokenRate :unsigned-int)
 911         (TokenBucketSize :unsigned-int)
 912         (PeakBandwidth :unsigned-int)
 913         (Latency :unsigned-int)
 914         (DelayVariation :unsigned-int)
 915         (ServiceType :unsigned-int)
 916         (MaxSduSize :unsigned-int)
 917         (MinimumPolicedSize :unsigned-int))
 918
 919
 920
 921
 922
 923
 924
 925 (defcstructex-exported QOS
 926         (SendingFlowspec FLOWSPEC)
 927         (ReceivingFlowspec FLOWSPEC)
 928         (ProviderSpecific WSABUF))
 929
 930
 931
 932
 933
 934 (defconstant-exported CF_ACCEPT #x0000)
 935
 936 (defconstant-exported CF_REJECT #x0001)
 937
 938 (defconstant-exported CF_DEFER #x0002)
 939
 940
 941
 942 (defconstant-exported SG_UNCONSTRAINED_GROUP #x01)
 943
 944 (defconstant-exported SG_CONSTRAINED_GROUP #x02)
 945
 946 (defcstructex-exported WSANETWORKEVENTS
 947         (lNetworkEvents :int32)
 948         (iErrorCode :pointer))
 949
 950
 951
 952
 953
 954 (defconstant-exported MAX_PROTOCOL_CHAIN 7)
 955
 956 (defconstant-exported BASE_PROTOCOL 1)
 957
 958 (defconstant-exported LAYERED_PROTOCOL 0)
 959
 960 (cffi:defcenum WSAESETSERVICEOP
 961         (:RNRSERVICE_REGISTER #.0)
 962         :RNRSERVICE_DEREGISTER
 963         :RNRSERVICE_DELETE)
 964
 965
 966
 967
 968
 969 (defcstructex-exported AFPROTOCOLS
 970         (iAddressFamily :int)
 971         (iProtocol :int))
 972
 973
 974
 975
 976
 977
 978
 979 (cffi:defcenum WSAECOMPARATOR
 980         (:COMP_EQUAL #.0)
 981         :COMP_NOTLESS)
 982
 983
 984
 985
 986
 987 (defcstructex-exported WSAVERSION
 988         (dwVersion :unsigned-long)
 989         (ecHow WSAECOMPARATOR))
 990
 991
 992
 993
 994
 995
 996
 997 (defcstructex-exported SOCKET_ADDRESS
 998         (lpSockaddr :pointer)
 999         (iSockaddrLength :int))
1000
1001
1002
1003
1004
1005
1006
1007 (defcstructex-exported CSADDR_INFO
1008         (LocalAddr SOCKET_ADDRESS)
1009         (RemoteAddr SOCKET_ADDRESS)
1010         (iSocketType :int)
1011         (iProtocol :int))
1012
1013
1014
1015
1016
1017
1018
1019 (defcstructex-exported SOCKET_ADDRESS_LIST
1020         (iAddressCount :int)
1021         (Address :pointer))
1022
1023
1024
1025
1026
1027 (defcstructex-exported BLOB
1028         (cbSize :unsigned-long)
1029         (pBlobData :pointer))
1030
1031
1032
1033
1034
1035
1036
1037 (defcstructex-exported WSAQUERYSETA
1038         (dwSize :unsigned-long)
1039         (lpszServiceInstanceName :string)
1040         (lpServiceClassId :pointer)
1041         (lpVersion :pointer)
1042         (lpszComment :string)
1043         (dwNameSpace :unsigned-long)
1044         (lpNSProviderId :pointer)
1045         (lpszContext :string)
1046         (dwNumberOfProtocols :unsigned-long)
1047         (lpafpProtocols :pointer)
1048         (lpszQueryString :string)
1049         (dwNumberOfCsAddrs :unsigned-long)
1050         (lpcsaBuffer :pointer)
1051         (dwOutputFlags :unsigned-long)
1052         (lpBlob :pointer))
1053
1054
1055
1056
1057
1058
1059
1060 (defcstructex-exported WSAQUERYSETW
1061         (dwSize :unsigned-long)
1062         (lpszServiceInstanceName :pointer)
1063         (lpServiceClassId :pointer)
1064         (lpVersion :pointer)
1065         (lpszComment :pointer)
1066         (dwNameSpace :unsigned-long)
1067         (lpNSProviderId :pointer)
1068         (lpszContext :pointer)
1069         (dwNumberOfProtocols :unsigned-long)
1070         (lpafpProtocols :pointer)
1071         (lpszQueryString :pointer)
1072         (dwNumberOfCsAddrs :unsigned-long)
1073         (lpcsaBuffer :pointer)
1074         (dwOutputFlags :unsigned-long)
1075         (lpBlob :pointer))
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089 (defconstant-exported LUP_DEEP #x0001)
1090
1091 (defconstant-exported LUP_CONTAINERS #x0002)
1092
1093 (defconstant-exported LUP_NOCONTAINERS #x0004)
1094
1095 (defconstant-exported LUP_NEAREST #x0008)
1096
1097 (defconstant-exported LUP_RETURN_NAME #x0010)
1098
1099 (defconstant-exported LUP_RETURN_TYPE #x0020)
1100
1101 (defconstant-exported LUP_RETURN_VERSION #x0040)
1102
1103 (defconstant-exported LUP_RETURN_COMMENT #x0080)
1104
1105 (defconstant-exported LUP_RETURN_ADDR #x0100)
1106
1107 (defconstant-exported LUP_RETURN_BLOB #x0200)
1108
1109 (defconstant-exported LUP_RETURN_ALIASES #x0400)
1110
1111 (defconstant-exported LUP_RETURN_QUERY_STRING #x0800)
1112
1113 (defconstant-exported LUP_RETURN_ALL #x0FF0)
1114
1115 (defconstant-exported LUP_RES_SERVICE #x8000)
1116
1117 (defconstant-exported LUP_FLUSHCACHE #x1000)
1118
1119 (defconstant-exported LUP_FLUSHPREVIOUS #x2000)
1120
1121 (defcstructex-exported WSANSCLASSINFOA
1122         (lpszName :string)
1123         (dwNameSpace :unsigned-long)
1124         (dwValueType :unsigned-long)
1125         (dwValueSize :unsigned-long)
1126         (lpValue :pointer))
1127
1128
1129
1130
1131
1132
1133
1134 (defcstructex-exported WSANSCLASSINFOW
1135         (lpszName :pointer)
1136         (dwNameSpace :unsigned-long)
1137         (dwValueType :unsigned-long)
1138         (dwValueSize :unsigned-long)
1139         (lpValue :pointer))
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153 (defcstructex-exported WSASERVICECLASSINFOA
1154         (lpServiceClassId :pointer)
1155         (lpszServiceClassName :string)
1156         (dwCount :unsigned-long)
1157         (lpClassInfos :pointer))
1158
1159
1160
1161
1162
1163
1164
1165 (defcstructex-exported WSASERVICECLASSINFOW
1166         (lpServiceClassId :pointer)
1167         (lpszServiceClassName :pointer)
1168         (dwCount :unsigned-long)
1169         (lpClassInfos :pointer))
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183 (defcstructex-exported WSANAMESPACE_INFOA
1184         (NSProviderId GUID)
1185         (dwNameSpace :unsigned-long)
1186         (fActive :int)
1187         (dwVersion :unsigned-long)
1188         (lpszIdentifier :string))
1189
1190
1191
1192
1193
1194
1195
1196 (defcstructex-exported WSANAMESPACE_INFOW
1197         (NSProviderId GUID)
1198         (dwNameSpace :unsigned-long)
1199         (fActive :int)
1200         (dwVersion :unsigned-long)
1201         (lpszIdentifier :pointer))
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215 (defcstructex-exported WSAPROTOCOLCHAIN
1216         (ChainLen :int)
1217         (ChainEntries :pointer))
1218
1219
1220
1221
1222
1223 (defconstant-exported WSAPROTOCOL_LEN 255)
1224
1225 (defcstructex-exported WSAPROTOCOL_INFOA
1226         (dwServiceFlags1 :unsigned-long)
1227         (dwServiceFlags2 :unsigned-long)
1228         (dwServiceFlags3 :unsigned-long)
1229         (dwServiceFlags4 :unsigned-long)
1230         (dwProviderFlags :unsigned-long)
1231         (ProviderId GUID)
1232         (dwCatalogEntryId :unsigned-long)
1233         (ProtocolChain WSAPROTOCOLCHAIN)
1234         (iVersion :int)
1235         (iAddressFamily :int)
1236         (iMaxSockAddr :int)
1237         (iMinSockAddr :int)
1238         (iSocketType :int)
1239         (iProtocol :int)
1240         (iProtocolMaxOffset :int)
1241         (iNetworkByteOrder :int)
1242         (iSecurityScheme :int)
1243         (dwMessageSize :unsigned-long)
1244         (dwProviderReserved :unsigned-long)
1245         (szProtocol :pointer))
1246
1247
1248
1249
1250
1251 (defcstructex-exported WSAPROTOCOL_INFOW
1252         (dwServiceFlags1 :unsigned-long)
1253         (dwServiceFlags2 :unsigned-long)
1254         (dwServiceFlags3 :unsigned-long)
1255         (dwServiceFlags4 :unsigned-long)
1256         (dwProviderFlags :unsigned-long)
1257         (ProviderId GUID)
1258         (dwCatalogEntryId :unsigned-long)
1259         (ProtocolChain WSAPROTOCOLCHAIN)
1260         (iVersion :int)
1261         (iAddressFamily :int)
1262         (iMaxSockAddr :int)
1263         (iMinSockAddr :int)
1264         (iSocketType :int)
1265         (iProtocol :int)
1266         (iProtocolMaxOffset :int)
1267         (iNetworkByteOrder :int)
1268         (iSecurityScheme :int)
1269         (dwMessageSize :unsigned-long)
1270         (dwProviderReserved :unsigned-long)
1271         (szProtocol :pointer))
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285 (cffi:defcenum WSACOMPLETIONTYPE
1286         (:NSP_NOTIFY_IMMEDIATELY #.0)
1287         :NSP_NOTIFY_HWND
1288         :NSP_NOTIFY_EVENT
1289         :NSP_NOTIFY_PORT
1290         :NSP_NOTIFY_APC)
1291
1292
1293
1294
1295
1296 (defcstructex-exported WSACOMPLETION
1297         (Type WSACOMPLETIONTYPE)
1298         (Parameters :pointer))
1299
1300
1301
1302
1303
1304
1305
1306 (cffi:defcunion WSACOMPLETION_Parameters
1307         (WindowMessage :pointer)
1308         (Event :pointer)
1309         (Apc :pointer)
1310         (Port :pointer))
1311
1312 (defcstructex-exported WSACOMPLETION_Parameters_Port
1313         (lpOverlapped :pointer)
1314         (hPort :pointer)
1315         (Key :unsigned-long))
1316
1317 (defcstructex-exported WSACOMPLETION_Parameters_Apc
1318         (lpOverlapped :pointer)
1319         (lpfnCompletionProc :pointer))
1320
1321 (defcstructex-exported WSACOMPLETION_Parameters_Event
1322         (lpOverlapped :pointer))
1323
1324 (defcstructex-exported WSACOMPLETION_Parameters_WindowMessage
1325         (hWnd :pointer)
1326         (uMsg :unsigned-int)
1327         (context :unsigned-int))
1328
1329 (defconstant-exported PFL_MULTIPLE_PROTO_ENTRIES #x00000001)
1330
1331 (defconstant-exported PFL_RECOMMENDED_PROTO_ENTRY #x00000002)
1332
1333 (defconstant-exported PFL_HIDDEN #x00000004)
1334
1335 (defconstant-exported PFL_MATCHES_PROTOCOL_ZERO #x00000008)
1336
1337 (defconstant-exported XP1_CONNECTIONLESS #x00000001)
1338
1339 (defconstant-exported XP1_GUARANTEED_DELIVERY #x00000002)
1340
1341 (defconstant-exported XP1_GUARANTEED_ORDER #x00000004)
1342
1343 (defconstant-exported XP1_MESSAGE_ORIENTED #x00000008)
1344
1345 (defconstant-exported XP1_PSEUDO_STREAM #x00000010)
1346
1347 (defconstant-exported XP1_GRACEFUL_CLOSE #x00000020)
1348
1349 (defconstant-exported XP1_EXPEDITED_DATA #x00000040)
1350
1351 (defconstant-exported XP1_CONNECT_DATA #x00000080)
1352
1353 (defconstant-exported XP1_DISCONNECT_DATA #x00000100)
1354
1355 (defconstant-exported XP1_SUPPORT_BROADCAST #x00000200)
1356
1357 (defconstant-exported XP1_SUPPORT_MULTIPOINT #x00000400)
1358
1359 (defconstant-exported XP1_MULTIPOINT_CONTROL_PLANE #x00000800)
1360
1361 (defconstant-exported XP1_MULTIPOINT_DATA_PLANE #x00001000)
1362
1363 (defconstant-exported XP1_QOS_SUPPORTED #x00002000)
1364
1365 (defconstant-exported XP1_INTERRUPT #x00004000)
1366
1367 (defconstant-exported XP1_UNI_SEND #x00008000)
1368
1369 (defconstant-exported XP1_UNI_RECV #x00010000)
1370
1371 (defconstant-exported XP1_IFS_HANDLES #x00020000)
1372
1373 (defconstant-exported XP1_PARTIAL_MESSAGE #x00040000)
1374
1375 (defconstant-exported BIGENDIAN #x0000)
1376
1377 (defconstant-exported LITTLEENDIAN #x0001)
1378
1379 (defconstant-exported SECURITY_PROTOCOL_NONE #x0000)
1380
1381 (defconstant-exported JL_SENDER_ONLY #x01)
1382
1383 (defconstant-exported JL_RECEIVER_ONLY #x02)
1384
1385 (defconstant-exported JL_BOTH #x04)
1386
1387 (defconstant-exported WSA_FLAG_OVERLAPPED #x01)
1388
1389 (defconstant-exported WSA_FLAG_MULTIPOINT_C_ROOT #x02)
1390
1391 (defconstant-exported WSA_FLAG_MULTIPOINT_C_LEAF #x04)
1392
1393 (defconstant-exported WSA_FLAG_MULTIPOINT_D_ROOT #x08)
1394
1395 (defconstant-exported WSA_FLAG_MULTIPOINT_D_LEAF #x10)
1396
1397 (defconstant-exported IOC_UNIX #x00000000)
1398
1399 (defconstant-exported IOC_WS2 #x08000000)
1400
1401 (defconstant-exported IOC_PROTOCOL #x10000000)
1402
1403 (defconstant-exported IOC_VENDOR #x18000000)
1404
1405 (defconstant-exported SIO_ASSOCIATE_HANDLE (cl:logior #x80000000 #x08000000 1))
1406
1407 (defconstant-exported SIO_ENABLE_CIRCULAR_QUEUEING (cl:logior #x20000000 #x08000000 2))
1408
1409 (defconstant-exported SIO_FIND_ROUTE (cl:logior #x40000000 #x08000000 3))
1410
1411 (defconstant-exported SIO_FLUSH (cl:logior #x20000000 #x08000000 4))
1412
1413 (defconstant-exported SIO_GET_BROADCAST_ADDRESS (cl:logior #x40000000 #x08000000 5))
1414
1415 (defconstant-exported SIO_GET_EXTENSION_FUNCTION_POINTER (cl:logior IOC_INOUT IOC_WS2 6))
1416
1417 (defconstant-exported SIO_GET_QOS (cl:logior IOC_INOUT IOC_WS2 7))
1418
1419 (defconstant-exported SIO_GET_GROUP_QOS (cl:logior IOC_INOUT IOC_WS2 8))
1420
1421 (defconstant-exported SIO_MULTIPOINT_LOOPBACK (cl:logior #x80000000 #x08000000 9))
1422
1423 (defconstant-exported SIO_MULTICAST_SCOPE (cl:logior #x80000000 #x08000000 10))
1424
1425 (defconstant-exported SIO_SET_QOS (cl:logior #x80000000 #x08000000 11))
1426
1427 (defconstant-exported SIO_SET_GROUP_QOS (cl:logior #x80000000 #x08000000 12))
1428
1429 (defconstant-exported SIO_TRANSLATE_HANDLE (cl:logior IOC_INOUT IOC_WS2 13))
1430
1431 (defconstant-exported SIO_ROUTING_INTERFACE_QUERY (cl:logior IOC_INOUT IOC_WS2 20))
1432
1433 (defconstant-exported SIO_ROUTING_INTERFACE_CHANGE (cl:logior #x80000000 #x08000000 21))
1434
1435 (defconstant-exported SIO_ADDRESS_LIST_QUERY (cl:logior #x40000000 #x08000000 22))
1436
1437 (defconstant-exported SIO_ADDRESS_LIST_CHANGE (cl:logior #x20000000 #x08000000 23))
1438
1439 (defconstant-exported SIO_QUERY_TARGET_PNP_HANDLE (cl:logior #x40000000 #x08000000 24))
1440
1441 (defconstant-exported SIO_NSP_NOTIFY_CHANGE (cl:logior #x80000000 #x08000000 25))
1442
1443 (defconstant-exported TH_NETDEV #x00000001)
1444
1445 (defconstant-exported TH_TAPI #x00000002)
1446
1447 (defcfunex-exported ("WSAAccept" WSAAccept :convention :stdcall) :unsigned-int
1448   (arg0 :unsigned-int)
1449   (arg1 :pointer)
1450   (arg2 :pointer)
1451   (arg3 :pointer)
1452   (arg4 :unsigned-long))
1453
1454 (defcfunex-exported ("WSAAddressToStringA" WSAAddressToStringA :convention :stdcall) :int
1455   (arg0 :pointer)
1456   (arg1 :unsigned-long)
1457   (arg2 :pointer)
1458   (arg3 :string)
1459   (arg4 :pointer))
1460
1461 (defcfunex-exported ("WSAAddressToStringW" WSAAddressToStringW :convention :stdcall) :int
1462   (arg0 :pointer)
1463   (arg1 :unsigned-long)
1464   (arg2 :pointer)
1465   (arg3 :pointer)
1466   (arg4 :pointer))
1467
1468 (defcfunex-exported ("WSACloseEvent" WSACloseEvent :convention :stdcall) :int
1469   (arg0 :pointer))
1470
1471 (defcfunex-exported ("WSAConnect" WSAConnect :convention :stdcall) :int
1472   (arg0 :unsigned-int)
1473   (arg1 :pointer)
1474   (arg2 :int)
1475   (arg3 :pointer)
1476   (arg4 :pointer)
1477   (arg5 :pointer)
1478   (arg6 :pointer))
1479
1480 (defcfunex-exported ("WSACreateEvent" WSACreateEvent :convention :stdcall) :pointer)
1481
1482 (defcfunex-exported ("WSADuplicateSocketA" WSADuplicateSocketA :convention :stdcall) :int
1483   (arg0 :unsigned-int)
1484   (arg1 :unsigned-long)
1485   (arg2 :pointer))
1486
1487 (defcfunex-exported ("WSADuplicateSocketW" WSADuplicateSocketW :convention :stdcall) :int
1488   (arg0 :unsigned-int)
1489   (arg1 :unsigned-long)
1490   (arg2 :pointer))
1491
1492 (defcfunex-exported ("WSAEnumNameSpaceProvidersA" WSAEnumNameSpaceProvidersA :convention :stdcall) :int
1493   (arg0 :pointer)
1494   (arg1 :pointer))
1495
1496 (defcfunex-exported ("WSAEnumNameSpaceProvidersW" WSAEnumNameSpaceProvidersW :convention :stdcall) :int
1497   (arg0 :pointer)
1498   (arg1 :pointer))
1499
1500 (defcfunex-exported ("WSAEnumNetworkEvents" WSAEnumNetworkEvents :convention :stdcall) :int
1501   (arg0 :unsigned-int)
1502   (arg1 :pointer)
1503   (arg2 :pointer))
1504
1505 (defcfunex-exported ("WSAEnumProtocolsA" WSAEnumProtocolsA :convention :stdcall) :int
1506   (arg0 :pointer)
1507   (arg1 :pointer)
1508   (arg2 :pointer))
1509
1510 (defcfunex-exported ("WSAEnumProtocolsW" WSAEnumProtocolsW :convention :stdcall) :int
1511   (arg0 :pointer)
1512   (arg1 :pointer)
1513   (arg2 :pointer))
1514
1515 (defcfunex-exported ("WSAEventSelect" WSAEventSelect :convention :stdcall) :int
1516   (arg0 :unsigned-int)
1517   (arg1 :pointer)
1518   (arg2 :int32))
1519
1520 (defcfunex-exported ("WSAGetOverlappedResult" WSAGetOverlappedResult :convention :stdcall) :int
1521   (arg0 :unsigned-int)
1522   (arg1 :pointer)
1523   (arg2 :pointer)
1524   (arg3 :int)
1525   (arg4 :pointer))
1526
1527 (defcfunex-exported ("WSAGetQOSByName" WSAGetQOSByName :convention :stdcall) :int
1528   (arg0 :unsigned-int)
1529   (arg1 :pointer)
1530   (arg2 :pointer))
1531
1532 (defcfunex-exported ("WSAGetServiceClassInfoA" WSAGetServiceClassInfoA :convention :stdcall) :int
1533   (arg0 :pointer)
1534   (arg1 :pointer)
1535   (arg2 :pointer)
1536   (arg3 :pointer))
1537
1538 (defcfunex-exported ("WSAGetServiceClassInfoW" WSAGetServiceClassInfoW :convention :stdcall) :int
1539   (arg0 :pointer)
1540   (arg1 :pointer)
1541   (arg2 :pointer)
1542   (arg3 :pointer))
1543
1544 (defcfunex-exported ("WSAGetServiceClassNameByClassIdA" WSAGetServiceClassNameByClassIdA :convention :stdcall) :int
1545   (arg0 :pointer)
1546   (arg1 :string)
1547   (arg2 :pointer))
1548
1549 (defcfunex-exported ("WSAGetServiceClassNameByClassIdW" WSAGetServiceClassNameByClassIdW :convention :stdcall) :int
1550   (arg0 :pointer)
1551   (arg1 :pointer)
1552   (arg2 :pointer))
1553
1554 (defcfunex-exported ("WSAHtonl" WSAHtonl :convention :stdcall) :int
1555   (arg0 :unsigned-int)
1556   (arg1 :unsigned-long)
1557   (arg2 :pointer))
1558
1559 (defcfunex-exported ("WSAHtons" WSAHtons :convention :stdcall) :int
1560   (arg0 :unsigned-int)
1561   (arg1 :unsigned-short)
1562   (arg2 :pointer))
1563
1564 (defcfunex-exported ("WSAInstallServiceClassA" WSAInstallServiceClassA :convention :stdcall) :int
1565   (arg0 :pointer))
1566
1567 (defcfunex-exported ("WSAInstallServiceClassW" WSAInstallServiceClassW :convention :stdcall) :int
1568   (arg0 :pointer))
1569
1570 (defcfunex-exported ("WSAIoctl" WSAIoctl :convention :stdcall) :int
1571   (arg0 :unsigned-int)
1572   (arg1 :unsigned-long)
1573   (arg2 :pointer)
1574   (arg3 :unsigned-long)
1575   (arg4 :pointer)
1576   (arg5 :unsigned-long)
1577   (arg6 :pointer)
1578   (arg7 :pointer)
1579   (arg8 :pointer))
1580
1581 (defcfunex-exported ("WSAJoinLeaf" WSAJoinLeaf :convention :stdcall) :unsigned-int
1582   (arg0 :unsigned-int)
1583   (arg1 :pointer)
1584   (arg2 :int)
1585   (arg3 :pointer)
1586   (arg4 :pointer)
1587   (arg5 :pointer)
1588   (arg6 :pointer)
1589   (arg7 :unsigned-long))
1590
1591 (defcfunex-exported ("WSALookupServiceBeginA" WSALookupServiceBeginA :convention :stdcall) :int
1592   (arg0 :pointer)
1593   (arg1 :unsigned-long)
1594   (arg2 :pointer))
1595
1596 (defcfunex-exported ("WSALookupServiceBeginW" WSALookupServiceBeginW :convention :stdcall) :int
1597   (lpqsRestrictions :pointer)
1598   (arg1 :unsigned-long)
1599   (arg2 :pointer))
1600
1601 (defcfunex-exported ("WSALookupServiceNextA" WSALookupServiceNextA :convention :stdcall) :int
1602   (arg0 :pointer)
1603   (arg1 :unsigned-long)
1604   (arg2 :pointer)
1605   (arg3 :pointer))
1606
1607 (defcfunex-exported ("WSALookupServiceNextW" WSALookupServiceNextW :convention :stdcall) :int
1608   (arg0 :pointer)
1609   (arg1 :unsigned-long)
1610   (arg2 :pointer)
1611   (arg3 :pointer))
1612
1613 (defcfunex-exported ("WSALookupServiceEnd" WSALookupServiceEnd :convention :stdcall) :int
1614   (arg0 :pointer))
1615
1616 (defcfunex-exported ("WSANSPIoctl" WSANSPIoctl :convention :stdcall) :int
1617   (arg0 :pointer)
1618   (arg1 :unsigned-long)
1619   (arg2 :pointer)
1620   (arg3 :unsigned-long)
1621   (arg4 :pointer)
1622   (arg5 :unsigned-long)
1623   (arg6 :pointer)
1624   (arg7 :pointer))
1625
1626 (defcfunex-exported ("WSANtohl" WSANtohl :convention :stdcall) :int
1627   (arg0 :unsigned-int)
1628   (arg1 :unsigned-long)
1629   (arg2 :pointer))
1630
1631 (defcfunex-exported ("WSANtohs" WSANtohs :convention :stdcall) :int
1632   (arg0 :unsigned-int)
1633   (arg1 :unsigned-short)
1634   (arg2 :pointer))
1635
1636 (defcfunex-exported ("WSARecv" WSARecv :convention :stdcall) :int
1637   (arg0 :unsigned-int)
1638   (arg1 :pointer)
1639   (arg2 :unsigned-long)
1640   (arg3 :pointer)
1641   (arg4 :pointer)
1642   (arg5 :pointer)
1643   (arg6 :pointer))
1644
1645 (defcfunex-exported ("WSARecvDisconnect" WSARecvDisconnect :convention :stdcall) :int
1646   (arg0 :unsigned-int)
1647   (arg1 :pointer))
1648
1649 (defcfunex-exported ("WSARecvFrom" WSARecvFrom :convention :stdcall) :int
1650   (arg0 :unsigned-int)
1651   (arg1 :pointer)
1652   (arg2 :unsigned-long)
1653   (arg3 :pointer)
1654   (arg4 :pointer)
1655   (arg5 :pointer)
1656   (arg6 :pointer)
1657   (arg7 :pointer)
1658   (arg8 :pointer))
1659
1660 (defcfunex-exported ("WSARemoveServiceClass" WSARemoveServiceClass :convention :stdcall) :int
1661   (arg0 :pointer))
1662
1663 (defcfunex-exported ("WSAResetEvent" WSAResetEvent :convention :stdcall) :int
1664   (arg0 :pointer))
1665
1666 (defcfunex-exported ("WSASend" WSASend :convention :stdcall) :int
1667   (arg0 :unsigned-int)
1668   (arg1 :pointer)
1669   (arg2 :unsigned-long)
1670   (arg3 :pointer)
1671   (arg4 :unsigned-long)
1672   (arg5 :pointer)
1673   (arg6 :pointer))
1674
1675 (defcfunex-exported ("WSASendDisconnect" WSASendDisconnect :convention :stdcall) :int
1676   (arg0 :unsigned-int)
1677   (arg1 :pointer))
1678
1679 (defcfunex-exported ("WSASendTo" WSASendTo :convention :stdcall) :int
1680   (arg0 :unsigned-int)
1681   (arg1 :pointer)
1682   (arg2 :unsigned-long)
1683   (arg3 :pointer)
1684   (arg4 :unsigned-long)
1685   (arg5 :pointer)
1686   (arg6 :int)
1687   (arg7 :pointer)
1688   (arg8 :pointer))
1689
1690 (defcfunex-exported ("WSASetEvent" WSASetEvent :convention :stdcall) :int
1691   (arg0 :pointer))
1692
1693 (defcfunex-exported ("WSASetServiceA" WSASetServiceA :convention :stdcall) :int
1694   (arg0 :pointer)
1695   (arg1 WSAESETSERVICEOP)
1696   (arg2 :unsigned-long))
1697
1698 (defcfunex-exported ("WSASetServiceW" WSASetServiceW :convention :stdcall) :int
1699   (arg0 :pointer)
1700   (arg1 WSAESETSERVICEOP)
1701   (arg2 :unsigned-long))
1702
1703 (defcfunex-exported ("WSASocketA" WSASocketA :convention :stdcall) :unsigned-int
1704   (arg0 :int)
1705   (arg1 :int)
1706   (arg2 :int)
1707   (arg3 :pointer)
1708   (arg4 :unsigned-int)
1709   (arg5 :unsigned-long))
1710
1711 (defcfunex-exported ("WSASocketW" WSASocketW :convention :stdcall) :unsigned-int
1712   (arg0 :int)
1713   (arg1 :int)
1714   (arg2 :int)
1715   (arg3 :pointer)
1716   (arg4 :unsigned-int)
1717   (arg5 :unsigned-long))
1718
1719 (defcfunex-exported ("WSAStringToAddressA" WSAStringToAddressA :convention :stdcall) :int
1720   (arg0 :string)
1721   (arg1 :int)
1722   (arg2 :pointer)
1723   (arg3 :pointer)
1724   (arg4 :pointer))
1725
1726 (defcfunex-exported ("WSAStringToAddressW" WSAStringToAddressW :convention :stdcall) :int
1727   (arg0 :pointer)
1728   (arg1 :int)
1729   (arg2 :pointer)
1730   (arg3 :pointer)
1731   (arg4 :pointer))
1732
1733 (defcfunex-exported ("WSAWaitForMultipleEvents" WSAWaitForMultipleEvents :convention :stdcall) :unsigned-long
1734   (arg0 :unsigned-long)
1735   (arg1 :pointer)
1736   (arg2 :int)
1737   (arg3 :unsigned-long)
1738   (arg4 :int))
1739
1740
1741
1742
1743