36 lines
707 B
Factor
36 lines
707 B
Factor
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
|
|
|
|
{
|
|
"windows-messages"
|
|
"types"
|
|
"gdi32"
|
|
"kernel32"
|
|
"user32"
|
|
"opengl32"
|
|
"utils"
|
|
|
|
"win32-io"
|
|
"win32-errors"
|
|
"winsock"
|
|
"win32-io-internals"
|
|
"win32-stream"
|
|
"win32-server"
|
|
} [ "/library/windows/" swap ".factor" append3 run-resource ] each
|
|
|
|
"native-io" get [
|
|
"/library/bootstrap/win32-io.factor" run-resource
|
|
] when
|
|
|
|
IN: kernel
|
|
: default-shell "ui" ;
|