factor/library/io/windows/load.factor

29 lines
597 B
Factor
Raw Normal View History

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" ;