Split off windows specifics. Find path in registry first.
[factor.git] / basis / windows / windows.factor
1 ! Copyright (C) 2005, 2006 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.libraries sequences ;
4 IN: windows
5
6 CONSTANT: MAX_UNICODE_PATH 32768
7
8 {
9     { "advapi32"    "advapi32.dll"       stdcall }
10     { "gdi32"       "gdi32.dll"          stdcall }
11     { "user32"      "user32.dll"         stdcall }
12     { "kernel32"    "kernel32.dll"       stdcall }
13     { "winsock"     "ws2_32.dll"         stdcall }
14     { "mswsock"     "mswsock.dll"        stdcall }
15     { "shell32"     "shell32.dll"        stdcall }
16     { "iphlpapi"    "iphlpapi.dll"       stdcall }
17     { "libc"        "msvcrt.dll"         cdecl   }
18     { "libm"        "msvcrt.dll"         cdecl   }
19     { "gdiplus"     "gdiplus.dll"        stdcall }
20     { "gl"          "opengl32.dll"       stdcall }
21     { "glu"         "glu32.dll"          stdcall }
22     { "ole32"       "ole32.dll"          stdcall }
23     { "shcore"      "shcore.dll"         stdcall }
24     { "usp10"       "usp10.dll"          stdcall }
25     { "psapi"       "psapi.dll"          stdcall }
26     { "winmm"       "winmm.dll"          stdcall }
27     { "ntdll"       "ntdll.dll"          stdcall }
28     { "crypt32"     "crypt32.dll"        stdcall }
29     { "powrprof"    "powrprof.dll"       stdcall }
30 } [ first3 add-library ] each