]> gitweb.factorcode.org Git - factor.git/blob - vm/os-windows.hpp
VM: Refactor os-* to Factor style
[factor.git] / vm / os-windows.hpp
1 #include <ctype.h>
2
3 #ifndef wcslen
4 /* for cygwin */
5 #include <wchar.h>
6 #endif
7
8 #undef _WIN32_WINNT
9 #define _WIN32_WINNT 0x0501  // For AddVectoredExceptionHandler
10
11 #ifndef UNICODE
12 #define UNICODE
13 #endif
14
15 #include <windows.h>
16 #include <shellapi.h>
17
18 #ifdef _MSC_VER
19 #undef min
20 #undef max
21 #endif
22
23 /* Difference between Jan 1 00:00:00 1601 and Jan 1 00:00:00 1970 */
24 #define EPOCH_OFFSET 0x019db1ded53e8000LL
25
26 namespace factor {
27
28 typedef wchar_t vm_char;
29 typedef char symbol_char;
30 typedef HANDLE THREADHANDLE;
31
32 #define STRING_LITERAL(string) L##string
33
34 #define MAX_UNICODE_PATH 32768
35 #define VM_C_API extern "C" __declspec(dllexport)
36 #define SSCANF swscanf
37 #define STRCMP wcscmp
38 #define STRNCMP wcsncmp
39 #define STRDUP _wcsdup
40
41 #ifdef _MSC_VER
42 #define FTELL ftell
43 #define FSEEK fseek
44 #define SNPRINTF _snprintf
45 #else
46 #define FTELL ftello64
47 #define FSEEK fseeko64
48 #define SNPRINTF snprintf
49 #endif
50
51 #define FACTOR_OS_STRING "windows"
52
53 #define FACTOR_DLL NULL
54
55 // SSE traps raise these exception codes, which are defined in internal NT
56 // headers
57 // but not winbase.h
58 #ifndef STATUS_FLOAT_MULTIPLE_FAULTS
59 #define STATUS_FLOAT_MULTIPLE_FAULTS 0xC00002B4
60 #endif
61
62 #ifndef STATUS_FLOAT_MULTIPLE_TRAPS
63 #define STATUS_FLOAT_MULTIPLE_TRAPS 0xC00002B5
64 #endif
65
66 #define OPEN_READ(path) _wfopen((path), L"rb")
67 #define OPEN_WRITE(path) _wfopen((path), L"wb")
68
69 inline static void early_init() {}
70 u64 nano_count();
71 void sleep_nanos(u64 nsec);
72 long getpagesize();
73 void move_file(const vm_char* path1, const vm_char* path2);
74 VM_C_API LONG exception_handler(PEXCEPTION_RECORD e, void* frame, PCONTEXT c,
75                                 void* dispatch);
76 THREADHANDLE start_thread(void* (*start_routine)(void*), void* args);
77
78 inline static THREADHANDLE thread_id() {
79   DWORD id = GetCurrentThreadId();
80   HANDLE threadHandle = OpenThread(
81       THREAD_GET_CONTEXT | THREAD_SET_CONTEXT | THREAD_SUSPEND_RESUME, FALSE,
82       id);
83   FACTOR_ASSERT(threadHandle != NULL);
84   return threadHandle;
85 }
86
87 inline static void breakpoint() { DebugBreak(); }
88
89 #define CODE_TO_FUNCTION_POINTER(code) (void) 0
90 #define CODE_TO_FUNCTION_POINTER_CALLBACK(vm, code) (void) 0
91 #define FUNCTION_CODE_POINTER(ptr) ptr
92 #define FUNCTION_TOC_POINTER(ptr) ptr
93 }