2006-08-03 14:45:28 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USING: alien compiler kernel namespaces parser sequences words ;
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
{ "gdi32" "gdi32.dll" "stdcall" }
|
|
|
|
|
{ "user32" "user32.dll" "stdcall" }
|
|
|
|
|
{ "kernel32" "kernel32.dll" "stdcall" }
|
|
|
|
|
{ "winsock" "ws2_32.dll" "stdcall" }
|
|
|
|
|
{ "mswsock" "mswsock.dll" "stdcall" }
|
|
|
|
|
{ "libc" "msvcrt.dll" "cdecl" }
|
|
|
|
|
} [ first3 add-library ] each
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
"windows-messages"
|
|
|
|
|
"types"
|
|
|
|
|
"gdi32-constants"
|
|
|
|
|
"gdi32"
|
|
|
|
|
"kernel32-constants"
|
|
|
|
|
"kernel32-structs"
|
|
|
|
|
"kernel32-types"
|
|
|
|
|
"kernel32"
|
|
|
|
|
"user32-constants"
|
|
|
|
|
"user32-structs"
|
|
|
|
|
"user32-types"
|
|
|
|
|
"user32"
|
|
|
|
|
"opengl32"
|
|
|
|
|
"utils"
|
|
|
|
|
} [ "/library/windows/" swap ".factor" append3 run-resource ] each
|
|
|
|
|
|
|
|
|
|
IN: kernel
|
|
|
|
|
: default-shell "tty" ;
|
