windows.winsock: the servent structure is different between 32-bit and 64-bit.

[factor.git] / basis / windows / winsock / winsock.factor

diff --git a/basis/windows/winsock/winsock.factor b/basis/windows/winsock/winsock.factor
index ed4738430915fd2df9310ed95960e0434c4b1b56..40c191025885719828d755e81e439f1f977bdc5c 100644 (file)
--- a/basis/windows/winsock/winsock.factor
+++ b/basis/windows/winsock/winsock.factor
@@ -3,11 +3,16 @@
 USING: accessors alien alien.c-types alien.data alien.strings
 alien.syntax arrays byte-arrays classes.struct grouping init
 io.encodings.utf16n kernel literals math math.bitwise
-math.parser sequences windows.com.syntax windows.errors
-windows.kernel32 windows.types ;
+math.parser sequences system vocabs.parser windows.com.syntax
+windows.errors windows.kernel32 windows.types ;
 FROM: alien.c-types => short ;
 IN: windows.winsock
 
+<<
+! Some differences between Win32 and Win64
+cpu x86.64? "windows.winsock.64" "windows.winsock.32" ? use-vocab
+>>
+
 TYPEDEF: int* SOCKET
 
 : <wsadata> ( -- byte-array )
@@ -146,12 +151,6 @@ STRUCT: timeval
     { sec long }
     { usec long } ;
 
-STRUCT: servent
-    { name c-string }
-    { aliases void* }
-    { port int }
-    { proto c-string } ;
-
 GENERIC: sockaddr>ip ( sockaddr -- string )
 
 M: sockaddr-in sockaddr>ip ( sockaddr -- string )