Move platform-specific destructor code out of extra/destructors
parent
ceba5efb1f
commit
a800031a32
|
@ -84,10 +84,6 @@ M: socket-destructor (destruct) ( obj -- ) (socket-destructor) ;
|
|||
: close-socket-later ( handle -- )
|
||||
f <socket-destructor> push-destructor ;
|
||||
|
||||
USE-IF: windows? destructors.windows
|
||||
USE-IF: unix? destructors.unix
|
||||
|
||||
|
||||
|
||||
! : add-destructor ( word quot -- )
|
||||
! >quotation
|
||||
|
|
|
@ -1,9 +0,0 @@
|
|||
USING: destructors io.windows kernel qualified ;
|
||||
QUALIFIED: unix
|
||||
IN: detructors.unix
|
||||
|
||||
M: unix-io (handle-destructor) ( obj -- )
|
||||
destructor-obj close drop ;
|
||||
|
||||
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
USING: destructors io.windows kernel windows.kernel32
|
||||
windows.winsock ;
|
||||
IN: detructors.windows
|
||||
|
||||
M: windows-io (handle-destructor) ( obj -- )
|
||||
destructor-obj CloseHandle drop ;
|
||||
|
||||
M: windows-io (socket-destructor) ( obj -- )
|
||||
destructor-obj closesocket drop ;
|
||||
|
||||
|
|
@ -7,6 +7,9 @@ sequences ;
|
|||
QUALIFIED: unix
|
||||
IN: io.sniffer.bsd
|
||||
|
||||
M: unix-io (handle-destructor) ( obj -- )
|
||||
destructor-obj close drop ;
|
||||
|
||||
C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
|
||||
C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;
|
||||
|
||||
|
|
|
@ -10,6 +10,12 @@ TUPLE: windows-nt-io ;
|
|||
TUPLE: windows-ce-io ;
|
||||
UNION: windows-io windows-nt-io windows-ce-io ;
|
||||
|
||||
M: windows-io (handle-destructor) ( obj -- )
|
||||
destructor-obj CloseHandle drop ;
|
||||
|
||||
M: windows-io (socket-destructor) ( obj -- )
|
||||
destructor-obj closesocket drop ;
|
||||
|
||||
M: windows-io root-directory? ( path -- ? )
|
||||
[ path-separator? ] rtrim
|
||||
dup length 2 = [
|
||||
|
|
Loading…
Reference in New Issue