Partial Windows Socket Support

[Brent Fulgham]

The attached diff enables sufficient socket support
to allow you to check host addresses, open sockets,
and close sockets.

It should work to bind and listen on sockets, but I
don't an example program using Daniel's socket API.

Hope this is useful to someone...

-Brent



begin 666 gprolog-winsock.diff
M9&EF9B M8G5R3B!G<')O;&]G+3$N,BXW+W-R8R]":7!S4&PO<V]C:V5T<U]C
M+F,@9W!R;VQO9RTQ+C(N-RYB<F5N="]S<F,O0FEP<U!L+W-O8VME='-?8RYC
M"BTM+2!G<')O;&]G+3$N,BXW+W-R8R]":7!S4&PO<V]C:V5T<U]C+F,)5'5E
M($IA;B R,R P-#HS.#HR," R,# Q"BLK*R!G<')O;&]G+3$N,BXW+F)R96YT
M+W-R8R]":7!S4&PO<V]C:V5T<U]C+F,)1G)I(%-E<" R." Q-CHU-CHU-" R
M,# Q"D! ("TR,RPQ,R K,C,L,C @0$ *(" J+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2HO"B *("\J("1)9#H@<V]C:V5T<U]C+F,L=B Q+C0@,C P
M,2\P,2\R,R Q,3HS.#HR,"!D:6%Z($5X<" D("HO"BLC:6YC;'5D92 B9W!?
address@hidden"B *("-I;F-L=61E(#QS=&1I;RYH/@H@(VEN8VQU9&4@/'-T
M<FEN9RYH/@HK(VEF;F1E9B!-7VEX.#9?=VEN,S(*("-I;F-L=61E(#QU;FES
M=&0N:#X**R-E;address@hidden@(VEN8VQU9&4@/&5R<address@hidden"B C:6YC;'5D92 \
M<WES+W1Y<&address@hidden"BLC:address@hidden>address@hidden;C,R"BLC:6YC;'5D92 \
M=VEN<V]C:S(N:#X**R-E;'-E"B C:6YC;'5D92 \<WES+W-O8VME="YH/@HK
M(V5N9&EF"B *(" @(" @(" O*B!O;&address@hidden<VEO;G,@;address@hidden'5TE.(&1O
M(&YO="!S=7!P;W)T($%&7U5.25@@+2!M;V1I9GD@;F5X="!L:6YE("HO"B C
M:address@hidden&5F:6YE9"A?7W5N:address@hidden'address@hidden&5F:6YE9"A?7T-91U=)3E]?*0I
 
M0" M,SDL.2 K-#8L,address@hidden *("-I9F1E9B!355!03U)47T%&address@hidden("-I
M;F-L=61E(#QS>7,O=6XN:#X*("-E;address@hidden(VEF;F1E9B!-7VEX.#9?=VEN
M,S(*("-I;F-L=61E(#QN971I;address@hidden"B C:6YC;'5D92 \87)P82]I
M;address@hidden"B C:6YC;'5D92 \;F5T9&(N:#X**R-E;address@hidden@"B C9&5F:6YE
M($]"2E])3DE4(%-O8VME=%]);FET:6%L:7IE<@H@"D! ("TX.2PQ," address@hidden
M,C(@0$ *('-T871I8R!V;VED"B!3;V-K971?26YI=&EA;&EZ97(H=F]I9"D*
M('L**R-I9F1E9B!-7VEX.#9?=VEN,S(**R @5T]21"!V97)S4F5Q<W1D.PHK
M("!74T%$051!('=S841A=&$["BL@(&EN="!E<G(["BL**R @=F5R<U)E<7-T
M9" ]($U!2T573U)$*" R+" R*3L)"2\O($-U<G)E;address@hidden<V]C:R R($1,
M3"address@hidden(V5N9&EF"B C:address@hidden"B @(&%T;VU?
M049?54Y)6" ]($-R96%T95]!=&]M*")!1E]53DE8(BD["B C96YD:68*(" @
M871O;5]!1E])3D54(address@hidden)E871E7T%T;VTH(D%&7TE.150B*3L**PHK(VEF
M9&5F($U?:address@hidden:6XS,@HK(" O+R!3=&%R="!T:&4@<V]C:V5T('!R;V-E
M<W-I;F<**R @3W-?5&5S=%]%<G)O<B@@5U-!4W1A<G1U<"@@=F5R<U)E<7-T
M9"P@)G=S841A=&$I("D["BLC96YD:68*('T*( H@"D! ("TQ,#8L-R K,3(W
M+#$Q($! "B!3;V-K971?,BA786U7;W)D(&1O;6%I;E]W;W)D+"!786U7;W)D
M('-O8VME=%]W;W)D*0H@>PH@("!I;address@hidden&]M86EN.PHK(VEF9&5F($U?:address@hidden
M-E]W:6XS,@HK("!33T-+150@<V]C:SL**R-E;'-E"B @(&EN="!S;V-K.PHK
M(V5N9&EF"B *(" @9&]M86EN(address@hidden;5]#:&5C:RAD;VUA:6Y?=V]R
M9"D["B @(&EF("@*0$ @+3$R-BPW("LQ-3$L,address@hidden *("-E;address@hidden@(" @
M('-O8VL@/2!S;V-K970H049?24Y%5"address@hidden)%04TL(# I.PH@"BLC
M:address@hidden>address@hidden;C,R"BL@($]S7U1E<W1?17)R;W(H<V]C:R ]/2!)
M3E9!3$E$7U-/0TM%5"D["BLC96QS90H@("!/<U]497-T7T5R<F]R*'-O8VL@
M/address@hidden(V5N9&EF"B *(" @<F5T=7)N($=E=%]);G1E9V5R*'-O8VLL
M('-O8VME=%]W;W)D*3L*('T*0$ @+3$T,2PW("LQ-S L,address@hidden *($)O;VP*
M(%-O8VME=%]#;&]S95\Q*%=A;5=O<F0@<V]C:V5T7W=O<F0I"B!["BLC:69N
M9&5F($U?:address@hidden:6XS,@H@("!I;G0@<V]C:SL**R-E;'-E"BL@(%-/0TM%
M5"!S;V-K.PHK(V5N9&EF"B *(" @<V]C:R ](%)D7TEN=&5G97)?0VAE8VLH
M<V]C:V5T7W=O<F0I.PH@("!I9B H<V]C:R \(#(I"D! ("TQ-3 L-R K,address@hidden
M+#$Q($! "B @(" @("!/<U]497-T7T5R<F]R*#$I.PH@(" @('T*(" @96QS
M90HK(VEF;F1E9B!-7VEX.#9?=VEN,S(*(" @("!/<U]497-T7T5R<F]R*&-L
M;W-E*'-O8VLI*3L**R-E;'-E"BL@(" @3W-?5&5S=%]%<G)O<BAC;&]S97-O
M8VME="AS;V-K*2D["BLC96YD:68*( H@("!R971U<address@hidden)513L*('T*0$ @
M+34R-"PS("LU-C$L-"! 0 H@"B @(')E='5R;B!5;E]3=')I;F=?0VAE8VLH
M:&]S=%]A9&1R97-S+"!H;W-T7V%D9')E<W-?=V]R9"D["B!]"address@hidden)U
M<address@hidden;VQO9RTQ+C(N-R]S<F,O16YG:6YE4&PO;6%C:&EN92YC(&=P<F]L
M;V<M,2XR+C<N8G)E;G0O<W)C+T5N9VEN95!L+VUA8VAI;address@hidden
M;VQO9RTQ+C(N-R]S<F,O16YG:6YE4&PO;6%C:&EN92YC"51U92!!<'(@,C0@
M,#<Z,S$Z,S@@,C P,address@hidden;VQO9RTQ+C(N-RYB<F5N="]S<F,O16YG
M:6YE4&PO;6%C:&EN92YC"51H=2!397 @,C<@,30Z,3(Z,C0@,C P,0I 0" M
M-C$L,3 @*S8Q+#$R($! "B )"address@hidden@9V-C(&-A;FYO="!D969I;address@hidden
M;&]B86P@<F5G('9A<B!A9G1E<B!A(&9C=" J+PH@"B C:69N9&5F($Y/7U53
M15]33T-+1513"BLC("address@hidden>address@hidden;C,R"B C:6YC;'5D92 \
M;F5T9&(N:#X*("-I;F-L=61E(#QN971I;address@hidden"B C:6YC;'5D92 \
M87)P82]I;address@hidden"B C:6YC;'5D92 \<WES+W-O8VME="YH/@HK(R @96YD
M:68*("-D969I;address@hidden"B C96YD:68*( I 0" M.3$Q
M+#<@*SDQ,RPX($! "B @('-T<G5C="!I;E]A9&1R(&EA9'(["B *("-I9B!D
M969I;F5D*$U?<W!A<F-?<W5N;W,I('Q\(&1E9FEN960H35]S<&%R8U]S;VQA
M<FES*2!\?"!<"BT@(" @9&5F:6YE9"A-7VEX.#9?8WEG=VEN*2!\?"!D969I
M;F5D*$U?:address@hidden;VQA<FES*0HK(" @(&1E9FEN960H35]I>address@hidden
M;address@hidden'address@hidden&5F:6YE9"A-7VEX.#9?<V]L87)I<RD@('Q\(%P**R 
@("!D969I
M;F5D*$U?:address@hidden:6XS,BD*(" @:address@hidden"AI861R+G-?861D<B ](&EN971?
M861D<BAH;W-T7V%D9')E<W,I*2 ]/2 M,2D*("-E;'-E"B @(&EF("AI;F5T
M7V%T;VXH:&]S=%]A9&1R97-S+" F:6%D<BD@/3T@,"D*9&EF9B M8G5R3B!G
M<')O;&]G+3$N,BXW+W-R8R]&9#)#+V-O;7!I;&4N<&address@hidden;VQO9RTQ+C(N
M-RYB<F5N="]S<F,O1F0R0R]C;VUP:6QE+G!L"BTM+2!G<')O;&]G+3$N,BXW
M+W-R8R]&9#)#+V-O;7!I;&4N<&P)36]N(%-E<" Q-R P.3HP,3HU," R,# Q
M"BLK*R!G<')O;&]G+3$N,BXW+F)R96YT+W-R8R]&9#)#+V-O;7!I;&4N<&P)
M5V5D(%-E<" R-B Q-CHQ-SHP-B R,# Q"D! ("TU,C8L-R K-3(V+#<@0$ *
M( H@"B *+3HM"6EN8VQU9&4H)RXN+U!L,E=A;2]R96=?86QL;V,G*2X**SHM
M"6EN8VQU9&4H)RXN+U!L,E=A;2]R96=?86QL;V,N<&PG*2X*( H@(" @(" @
D(" @("address@hidden,@<W1O<'!I;F<@:6YS=')U8W1I;VYS"B *
`
end