2006-07-14 11:54:00 -04:00
|
|
|
IN: scratchpad
|
|
|
|
USING: alien compiler kernel namespaces parser sequences words ;
|
|
|
|
|
|
|
|
{
|
|
|
|
{ "gdi32" "gdi32" }
|
|
|
|
{ "user32" "user32" }
|
|
|
|
{ "kernel32" "kernel32" }
|
|
|
|
{ "winsock" "ws2_32" }
|
|
|
|
{ "mswsock" "mswsock" }
|
|
|
|
} [ first2 add-simple-library ] each
|
|
|
|
"libc" "msvcrt.dll" "cdecl" add-library
|
|
|
|
|
|
|
|
{
|
|
|
|
"io"
|
|
|
|
"errors"
|
|
|
|
"winsock"
|
|
|
|
"io-internals"
|
|
|
|
"stream"
|
|
|
|
"server"
|
|
|
|
} [ "/library/io/windows/" swap ".factor" append3 run-resource ] each
|
|
|
|
|
2006-07-14 23:27:13 -04:00
|
|
|
! Not for .83
|
|
|
|
! "native-io" get [
|
|
|
|
! "/library/bootstrap/win32-io.factor" run-resource
|
|
|
|
! ] when
|
2006-07-14 11:54:00 -04:00
|
|
|
|
|
|
|
IN: kernel
|
|
|
|
: default-shell "ui" ;
|