mirror of
https://github.com/c3lang/c3c.git
synced 2026-02-27 12:01:16 +00:00
0.6.0: init_new/init_temp removed. LinkedList API rewritten. List "pop" and "remove" function now return Optionals. RingBuffer API rewritten. Allocator interface changed. Deprecated Allocator, DString and mem functions removed. "identity" functions are now constants for Matrix and Complex numbers. @default implementations for interfaces removed. any* => any, same for interfaces. Emit local/private globals as "private" in LLVM, following C "static". Updated enum syntax. Add support [rgba] properties in vectors. Improved checks of aliased "void". Subarray -> slice. Fix of llvm codegen enum check. Improved alignment handling. Add --output-dir #1155. Removed List/Object append. GenericList renamed AnyList. Remove unused "unwrap". Fixes to cond. Optimize output in dead branches. Better checking of operator methods. Disallow any from implementing dynamic methods. Check for operator mismatch. Remove unnecessary bitfield. Remove numbering in --list* commands Old style enum declaration for params/type, but now the type is optional. Add note on #1086. Allow making distinct types out of "void", "typeid", "anyfault" and faults. Remove system linker build options. "Try" expressions must be simple expressions. Add optimized build to Mac tests. Register int. assert(false) only allowed in unused branches or in tests. Compile time failed asserts is a compile time error. Remove current_block_is_target. Bug when assigning an optional from an optional. Remove unused emit_zstring. Simplify phi code. Remove unnecessary unreachable blocks and remove unnecessary current_block NULL assignments. Proper handling of '.' and Win32 '//server' paths. Add "no discard" to expression blocks with a return value. Detect "unsigned >= 0" as errors. Fix issue with distinct void as a member #1147. Improve callstack debug information #1184. Fix issue with absolute output-dir paths. Lambdas were not type checked thoroughly #1185. Fix compilation warning #1187. Request jump table using @jump for switches. Path normalization - fix possible null terminator out of bounds. Improved error messages on inlined macros.
Upgrade of mingw in CI. Fix problems using reflection on interface types #1203. Improved debug information on defer. $foreach doesn't create an implicit syntactic scope. Error if `@if` depends on `@if`. Updated Linux stacktrace. Fix of default argument stacktrace. Allow linking libraries directly by file path. Improve inlining warning messages. Added `index_of_char_from`. Compiler crash using enum nameof from different module #1205. Removed unused fields in find_msvc. Use vswhere to find msvc. Update tests for LLVM 19
This commit is contained in:
Christoffer Lerno
@@ -38,7 +38,7 @@
|
||||
|
||||
uint16_t *win_utf8to16(const char *value UNUSED)
|
||||
{
|
||||
#if (_MSC_VER)
|
||||
#if PLATFORM_WINDOWS
|
||||
size_t len = strlen(value);
|
||||
int needed = MultiByteToWideChar(CP_UTF8, 0, value, len + 1, NULL, 0);
|
||||
if (needed <= 0)
|
||||
@@ -59,7 +59,7 @@ uint16_t *win_utf8to16(const char *value UNUSED)
|
||||
#include <wchar.h>
|
||||
char *win_utf16to8(const uint16_t *wname UNUSED)
|
||||
{
|
||||
#if (_MSC_VER)
|
||||
#if PLATFORM_WINDOWS
|
||||
size_t len = wcslen(wname);
|
||||
int needed = WideCharToMultiByte(CP_UTF8, 0, wname, len + 1, NULL, 0, NULL, NULL);
|
||||
if (needed <= 0)
|
||||
|
||||
@@ -7,563 +7,140 @@
|
||||
#include <stdio.h>
|
||||
#include <stdint.h>
|
||||
#include <stdbool.h>
|
||||
#include <io.h> // For _get_osfhandle
|
||||
|
||||
typedef struct
|
||||
static char *find_visual_studio(void);
|
||||
static char *find_windows_kit_root(void);
|
||||
|
||||
WindowsSDK get_windows_link_paths()
|
||||
{
|
||||
int windows_sdk_version; // Zero if no Windows SDK found.
|
||||
WindowsSDK out = {0};
|
||||
|
||||
wchar_t* windows_sdk_root;
|
||||
wchar_t* windows_sdk_um_library_path;
|
||||
wchar_t* windows_sdk_ucrt_library_path;
|
||||
char *path = find_windows_kit_root();
|
||||
|
||||
int is_vs_2017;
|
||||
wchar_t* vs_exe_path;
|
||||
wchar_t* vs_library_path;
|
||||
} Find_Result;
|
||||
if (!path)
|
||||
{
|
||||
error_exit("Failed to find windows kit root.");
|
||||
}
|
||||
|
||||
Find_Result find_visual_studio_and_windows_sdk();
|
||||
void free_resources(Find_Result* result);
|
||||
out.windows_sdk_um_library_path = str_printf("%s\\um\\x64", path);
|
||||
out.windows_sdk_ucrt_library_path = str_printf("%s\\ucrt\\x64", path);
|
||||
out.vs_library_path = find_visual_studio();
|
||||
|
||||
WindowsSDK get_windows_link_paths() {
|
||||
Find_Result paths = find_visual_studio_and_windows_sdk();
|
||||
|
||||
WindowsSDK out = { 0 };
|
||||
|
||||
// note: WideCharToMultiByte doesn't seem to do null termination.
|
||||
// I'm wary of manually adding a null terminator, so hopefully this is reliable.
|
||||
// This wouldn't be a problem if windows used UTF-8 like the rest of the world >:(
|
||||
out.windows_sdk_um_library_path = (char*)ccalloc(MAX_PATH, 1);
|
||||
out.windows_sdk_ucrt_library_path = (char*)ccalloc(MAX_PATH, 1);
|
||||
out.vs_library_path = (char*)ccalloc(MAX_PATH, 1);
|
||||
|
||||
int um_len = wcslen(paths.windows_sdk_um_library_path);
|
||||
WideCharToMultiByte(
|
||||
CP_UTF8, // UTF-8
|
||||
0, // config flags- I don't think we need these
|
||||
paths.windows_sdk_um_library_path,// in
|
||||
um_len, // in len
|
||||
out.windows_sdk_um_library_path, // out
|
||||
MAX_PATH, // out len
|
||||
NULL,
|
||||
NULL
|
||||
);
|
||||
int ucrt_len = wcslen(paths.windows_sdk_ucrt_library_path);
|
||||
WideCharToMultiByte(
|
||||
CP_UTF8,
|
||||
0,
|
||||
paths.windows_sdk_ucrt_library_path,
|
||||
ucrt_len,
|
||||
out.windows_sdk_ucrt_library_path,
|
||||
MAX_PATH,
|
||||
NULL,
|
||||
NULL
|
||||
);
|
||||
int vsl_len = wcslen(paths.vs_library_path);
|
||||
WideCharToMultiByte(
|
||||
CP_UTF8,
|
||||
0,
|
||||
paths.vs_library_path,
|
||||
vsl_len,
|
||||
out.vs_library_path,
|
||||
MAX_PATH,
|
||||
NULL,
|
||||
NULL
|
||||
);
|
||||
|
||||
free_resources(&paths);
|
||||
return out;
|
||||
return out;
|
||||
}
|
||||
|
||||
void free_windows_link_paths(WindowsSDK* obj) {
|
||||
free(obj->vs_library_path);
|
||||
free(obj->windows_sdk_ucrt_library_path);
|
||||
free(obj->windows_sdk_um_library_path);
|
||||
}
|
||||
|
||||
// Everything past here is taken from microsoft_craziness.h:
|
||||
// https://gist.github.com/ActuallyaDeviloper/cd25b190743234d58079d6b08a8631e3
|
||||
// Retrieved 2021-11-25
|
||||
//
|
||||
// Credit to Jonathan Blow, Kalinovcic, and ActuallyaDeviloper.
|
||||
|
||||
void free_resources(Find_Result* result) {
|
||||
free(result->windows_sdk_root);
|
||||
free(result->windows_sdk_um_library_path);
|
||||
free(result->windows_sdk_ucrt_library_path);
|
||||
free(result->vs_exe_path);
|
||||
free(result->vs_library_path);
|
||||
}
|
||||
|
||||
#ifndef _Out_
|
||||
#define _Out_
|
||||
#endif
|
||||
#ifndef _In_
|
||||
#define _In_
|
||||
#endif
|
||||
#ifndef _Out_writes_to_
|
||||
#define _Out_writes_to_(a, b)
|
||||
#endif
|
||||
#ifndef _Deref_out_opt_
|
||||
#define _Deref_out_opt_
|
||||
#endif
|
||||
#ifndef _In_z_
|
||||
#define _In_z_
|
||||
#endif
|
||||
|
||||
#undef INTERFACE
|
||||
#define INTERFACE ISetupInstance
|
||||
DECLARE_INTERFACE_(ISetupInstance, IUnknown)
|
||||
static char *find_visual_studio(void)
|
||||
{
|
||||
BEGIN_INTERFACE
|
||||
// Let's locate vswhere.exe
|
||||
char *path = win_utf16to8(_wgetenv(L"ProgramFiles(x86)"));
|
||||
scratch_buffer_clear();
|
||||
scratch_buffer_printf("\"%s\\Microsoft Visual Studio\\Installer\\vswhere.exe\" -latest -prerelease -property installationPath", path);
|
||||
const char *install_path = NULL;
|
||||
|
||||
// IUnknown methods
|
||||
STDMETHOD(QueryInterface) (THIS_ REFIID, void**) PURE;
|
||||
STDMETHOD_(ULONG, AddRef) (THIS) PURE;
|
||||
STDMETHOD_(ULONG, Release) (THIS) PURE;
|
||||
// Call vswhere.exe
|
||||
if (!execute_cmd_failable(scratch_buffer_to_string(), &install_path))
|
||||
{
|
||||
error_exit("Failed to find vswhere.exe to detect MSVC.");
|
||||
}
|
||||
|
||||
// ISetupInstance methods
|
||||
STDMETHOD(GetInstanceId)(THIS_ _Out_ BSTR * pbstrInstanceId) PURE;
|
||||
STDMETHOD(GetInstallDate)(THIS_ _Out_ LPFILETIME pInstallDate) PURE;
|
||||
STDMETHOD(GetInstallationName)(THIS_ _Out_ BSTR * pbstrInstallationName) PURE;
|
||||
STDMETHOD(GetInstallationPath)(THIS_ _Out_ BSTR * pbstrInstallationPath) PURE;
|
||||
STDMETHOD(GetInstallationVersion)(THIS_ _Out_ BSTR * pbstrInstallationVersion) PURE;
|
||||
STDMETHOD(GetDisplayName)(THIS_ _In_ LCID lcid, _Out_ BSTR * pbstrDisplayName) PURE;
|
||||
STDMETHOD(GetDescription)(THIS_ _In_ LCID lcid, _Out_ BSTR * pbstrDescription) PURE;
|
||||
STDMETHOD(ResolvePath)(THIS_ _In_opt_z_ LPCOLESTR pwszRelativePath, _Out_ BSTR * pbstrAbsolutePath) PURE;
|
||||
// Find and read the version file.
|
||||
scratch_buffer_clear();
|
||||
scratch_buffer_printf("%s\\VC\\Auxiliary\\Build\\Microsoft.VCToolsVersion.default.txt", install_path);
|
||||
const char *version_file = scratch_buffer_to_string();
|
||||
DEBUG_LOG("MSVC version file: %s", version_file);
|
||||
size_t size;
|
||||
char *version = file_read_all(scratch_buffer_to_string(), &size);
|
||||
if (version) version = str_trim(version);
|
||||
if (!version || strlen(version) == 0)
|
||||
{
|
||||
error_exit("Failed to detect MSVC, could not read %s.", scratch_buffer_to_string());
|
||||
}
|
||||
|
||||
END_INTERFACE
|
||||
};
|
||||
// We have the version, so we're done with the path:
|
||||
scratch_buffer_clear();
|
||||
scratch_buffer_printf("%s\\VC\\Tools\\MSVC\\%s\\lib\\x64", install_path, version);
|
||||
return scratch_buffer_copy();
|
||||
}
|
||||
|
||||
#undef INTERFACE
|
||||
#define INTERFACE IEnumSetupInstances
|
||||
DECLARE_INTERFACE_(IEnumSetupInstances, IUnknown)
|
||||
|
||||
static char *find_windows_kit_root(void)
|
||||
{
|
||||
BEGIN_INTERFACE
|
||||
HKEY main_key;
|
||||
LSTATUS rc = RegOpenKeyExW(HKEY_LOCAL_MACHINE, L"SOFTWARE\\Microsoft\\Windows Kits\\Installed Roots",
|
||||
0, KEY_QUERY_VALUE | KEY_WOW64_32KEY | KEY_ENUMERATE_SUB_KEYS, &main_key);
|
||||
if (rc != S_OK) return NULL;
|
||||
|
||||
// IUnknown methods
|
||||
STDMETHOD(QueryInterface) (THIS_ REFIID, void**) PURE;
|
||||
STDMETHOD_(ULONG, AddRef) (THIS) PURE;
|
||||
STDMETHOD_(ULONG, Release) (THIS) PURE;
|
||||
// Look for a Windows 10 entry.
|
||||
DWORD required_length;
|
||||
rc = RegQueryValueExW(main_key, L"KitsRoot10", NULL, NULL, NULL, &required_length);
|
||||
if (rc != S_OK) return NULL;
|
||||
|
||||
// IEnumSetupInstances methods
|
||||
STDMETHOD(Next)(THIS_ _In_ ULONG celt, _Out_writes_to_(celt, *pceltFetched) ISetupInstance * *rgelt, _Out_opt_ _Deref_out_range_(0, celt) ULONG * pceltFetched) PURE;
|
||||
STDMETHOD(Skip)(THIS_ _In_ ULONG celt) PURE;
|
||||
STDMETHOD(Reset)(THIS) PURE;
|
||||
STDMETHOD(Clone)(THIS_ _Deref_out_opt_ IEnumSetupInstances * *ppenum) PURE;
|
||||
DWORD length = required_length + 1; // The +2 is for the maybe optional zero later on. Probably we are over-allocating.
|
||||
uint16_t *value = (uint16_t *)cmalloc(length * 2);
|
||||
if (!value) return NULL;
|
||||
|
||||
END_INTERFACE
|
||||
};
|
||||
|
||||
#undef INTERFACE
|
||||
#define INTERFACE ISetupConfiguration
|
||||
DECLARE_INTERFACE_(ISetupConfiguration, IUnknown)
|
||||
{
|
||||
BEGIN_INTERFACE
|
||||
|
||||
// IUnknown methods
|
||||
STDMETHOD(QueryInterface) (THIS_ REFIID, void**) PURE;
|
||||
STDMETHOD_(ULONG, AddRef) (THIS) PURE;
|
||||
STDMETHOD_(ULONG, Release) (THIS) PURE;
|
||||
|
||||
// ISetupConfiguration methods
|
||||
STDMETHOD(EnumInstances)(THIS_ _Out_ IEnumSetupInstances * *ppEnumInstances) PURE;
|
||||
STDMETHOD(GetInstanceForCurrentProcess)(THIS_ _Out_ ISetupInstance * *ppInstance) PURE;
|
||||
STDMETHOD(GetInstanceForPath)(THIS_ _In_z_ LPCWSTR wzPath, _Out_ ISetupInstance * *ppInstance) PURE;
|
||||
|
||||
END_INTERFACE
|
||||
};
|
||||
|
||||
#define CALL_STDMETHOD(object, method, ...) object->lpVtbl->method(object, __VA_ARGS__)
|
||||
#define CALL_STDMETHOD_(object, method) object->lpVtbl->method(object)
|
||||
|
||||
typedef struct {
|
||||
int32_t best_version[4]; // For Windows 8 versions, only two of these numbers are used.
|
||||
wchar_t* best_name;
|
||||
} Version_Data;
|
||||
|
||||
bool os_file_exists(wchar_t* name) {
|
||||
// @Robustness: What flags do we really want to check here?
|
||||
|
||||
DWORD attrib = GetFileAttributesW(name);
|
||||
if (attrib == INVALID_FILE_ATTRIBUTES) return false;
|
||||
if (attrib & FILE_ATTRIBUTE_DIRECTORY) return false;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
#define concat2(a, b) concat(a, b, NULL, NULL)
|
||||
#define concat3(a, b, c) concat(a, b, c, NULL)
|
||||
#define concat4(a, b, c, d) concat(a, b, c, d)
|
||||
wchar_t* concat(wchar_t* a, wchar_t* b, wchar_t* c, wchar_t* d) {
|
||||
// Concatenate up to 4 wide strings together. Allocated with malloc.
|
||||
// If you don't like that, use a programming language that actually
|
||||
// helps you with using custom allocators. Or just edit the code.
|
||||
|
||||
size_t len_a = wcslen(a);
|
||||
size_t len_b = wcslen(b);
|
||||
|
||||
size_t len_c = 0;
|
||||
if (c) len_c = wcslen(c);
|
||||
|
||||
size_t len_d = 0;
|
||||
if (d) len_d = wcslen(d);
|
||||
|
||||
wchar_t* result = (wchar_t*)malloc((len_a + len_b + len_c + len_d + 1) * 2);
|
||||
memcpy(result, a, len_a * 2);
|
||||
memcpy(result + len_a, b, len_b * 2);
|
||||
|
||||
if (c) memcpy(result + len_a + len_b, c, len_c * 2);
|
||||
if (d) memcpy(result + len_a + len_b + len_c, d, len_d * 2);
|
||||
|
||||
result[len_a + len_b + len_c + len_d] = 0;
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
typedef void (*Visit_Proc_W)(wchar_t* short_name, wchar_t* full_name, Version_Data* data);
|
||||
bool visit_files_w(wchar_t* dir_name, Version_Data* data, Visit_Proc_W proc) {
|
||||
|
||||
// Visit everything in one folder (non-recursively). If it's a directory
|
||||
// that doesn't start with ".", call the visit proc on it. The visit proc
|
||||
// will see if the filename conforms to the expected versioning pattern.
|
||||
|
||||
WIN32_FIND_DATAW find_data;
|
||||
|
||||
wchar_t* wildcard_name = concat2(dir_name, L"\\*");
|
||||
HANDLE handle = FindFirstFileW(wildcard_name, &find_data);
|
||||
free(wildcard_name);
|
||||
|
||||
if (handle == INVALID_HANDLE_VALUE) return false;
|
||||
|
||||
while (true) {
|
||||
if ((find_data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && (find_data.cFileName[0] != '.')) {
|
||||
wchar_t* full_name = concat3(dir_name, L"\\", find_data.cFileName);
|
||||
proc(find_data.cFileName, full_name, data);
|
||||
free(full_name);
|
||||
rc = RegQueryValueExW(main_key, L"KitsRoot10", NULL, NULL, (LPBYTE)value, &required_length); // We know that version is zero-terminated...
|
||||
if (rc != S_OK)
|
||||
{
|
||||
free(value);
|
||||
return NULL;
|
||||
}
|
||||
value[required_length / 2] = 0;
|
||||
|
||||
BOOL success = FindNextFileW(handle, &find_data);
|
||||
if (!success) break;
|
||||
}
|
||||
// The key is found, so let's search the directory.
|
||||
char *root = win_utf16to8(value);
|
||||
free(value);
|
||||
|
||||
FindClose(handle);
|
||||
scratch_buffer_clear();
|
||||
scratch_buffer_append(root);
|
||||
scratch_buffer_append("Lib\\*");
|
||||
|
||||
return true;
|
||||
}
|
||||
WIN32_FIND_DATAW find_data;
|
||||
uint16_t *wildcard_name = win_utf8to16(scratch_buffer_to_string());
|
||||
HANDLE handle = FindFirstFileW(wildcard_name, &find_data);
|
||||
free(wildcard_name);
|
||||
|
||||
wchar_t* find_windows_kit_root_with_key(HKEY key, wchar_t* version) {
|
||||
// Given a key to an already opened registry entry,
|
||||
// get the value stored under the 'version' subkey.
|
||||
// If that's not the right terminology, hey, I never do registry stuff.
|
||||
if (handle == INVALID_HANDLE_VALUE) goto SEARCH_FAILED;
|
||||
|
||||
DWORD required_length;
|
||||
LSTATUS rc = RegQueryValueExW(key, version, NULL, NULL, NULL, &required_length);
|
||||
if (rc != 0) return NULL;
|
||||
char *best_file = NULL;
|
||||
long long best = 0;
|
||||
do
|
||||
{
|
||||
|
||||
DWORD length = required_length + 2; // The +2 is for the maybe optional zero later on. Probably we are over-allocating.
|
||||
wchar_t* value = (wchar_t*)cmalloc(length);
|
||||
if (!value) return NULL;
|
||||
if (!(find_data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) continue;
|
||||
int i0, i1, i2, i3;
|
||||
int success = swscanf_s(find_data.cFileName, L"%d.%d.%d.%d", &i0, &i1, &i2, &i3);
|
||||
if (success < 4) continue;
|
||||
|
||||
rc = RegQueryValueExW(key, version, NULL, NULL, (LPBYTE)value, &required_length); // We know that version is zero-terminated...
|
||||
if (rc != 0) return NULL;
|
||||
|
||||
// The documentation says that if the string for some reason was not stored
|
||||
// with zero-termination, we need to manually terminate it. Sigh!!
|
||||
|
||||
value[required_length / 2] = 0;
|
||||
|
||||
return value;
|
||||
}
|
||||
|
||||
void win10_best(wchar_t* short_name, wchar_t* full_name, Version_Data* data) {
|
||||
// Find the Windows 10 subdirectory with the highest version number.
|
||||
|
||||
int i0, i1, i2, i3;
|
||||
int success = swscanf_s(short_name, L"%d.%d.%d.%d", &i0, &i1, &i2, &i3);
|
||||
if (success < 4) return;
|
||||
|
||||
if (i0 < data->best_version[0]) return;
|
||||
else if (i0 == data->best_version[0]) {
|
||||
if (i1 < data->best_version[1]) return;
|
||||
else if (i1 == data->best_version[1]) {
|
||||
if (i2 < data->best_version[2]) return;
|
||||
else if (i2 == data->best_version[2]) {
|
||||
if (i3 < data->best_version[3]) return;
|
||||
}
|
||||
long long ver = i0 * 0x1000000000000LL
|
||||
+ i1 * 0x100000000LL
|
||||
+ i2 * 0x10000LL
|
||||
+ i3;
|
||||
if (ver > best)
|
||||
{
|
||||
best = ver;
|
||||
if (best_file) free(best_file);
|
||||
best_file = win_utf16to8(find_data.cFileName);
|
||||
}
|
||||
}
|
||||
}
|
||||
while (FindNextFileW(handle, &find_data));
|
||||
FindClose(handle);
|
||||
|
||||
// we have to copy_string and free here because visit_files free's the full_name string
|
||||
// after we execute this function, so Win*_Data would contain an invalid pointer.
|
||||
if (data->best_name) free(data->best_name);
|
||||
data->best_name = _wcsdup(full_name);
|
||||
if (!best_file) goto SEARCH_FAILED;;
|
||||
|
||||
if (data->best_name) {
|
||||
data->best_version[0] = i0;
|
||||
data->best_version[1] = i1;
|
||||
data->best_version[2] = i2;
|
||||
data->best_version[3] = i3;
|
||||
}
|
||||
scratch_buffer_clear();
|
||||
scratch_buffer_append(root);
|
||||
scratch_buffer_append("Lib\\");
|
||||
scratch_buffer_append(best_file);
|
||||
|
||||
free(root);
|
||||
free(best_file);
|
||||
return scratch_buffer_to_string();
|
||||
|
||||
SEARCH_FAILED:
|
||||
free(root);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
void win8_best(wchar_t* short_name, wchar_t* full_name, Version_Data* data) {
|
||||
// Find the Windows 8 subdirectory with the highest version number.
|
||||
|
||||
int i0, i1;
|
||||
int success = swscanf_s(short_name, L"winv%d.%d", &i0, &i1);
|
||||
if (success < 2) return;
|
||||
|
||||
if (i0 < data->best_version[0]) return;
|
||||
else if (i0 == data->best_version[0]) {
|
||||
if (i1 < data->best_version[1]) return;
|
||||
}
|
||||
|
||||
// we have to copy_string and free here because visit_files free's the full_name string
|
||||
// after we execute this function, so Win*_Data would contain an invalid pointer.
|
||||
if (data->best_name) free(data->best_name);
|
||||
data->best_name = _wcsdup(full_name);
|
||||
|
||||
if (data->best_name) {
|
||||
data->best_version[0] = i0;
|
||||
data->best_version[1] = i1;
|
||||
}
|
||||
}
|
||||
|
||||
void find_windows_kit_root(Find_Result* result) {
|
||||
// Information about the Windows 10 and Windows 8 development kits
|
||||
// is stored in the same place in the registry. We open a key
|
||||
// to that place, first checking preferntially for a Windows 10 kit,
|
||||
// then, if that's not found, a Windows 8 kit.
|
||||
|
||||
HKEY main_key;
|
||||
|
||||
LSTATUS rc = RegOpenKeyExA(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows Kits\\Installed Roots",
|
||||
0, KEY_QUERY_VALUE | KEY_WOW64_32KEY | KEY_ENUMERATE_SUB_KEYS, &main_key);
|
||||
if (rc != S_OK) return;
|
||||
|
||||
// Look for a Windows 10 entry.
|
||||
wchar_t* windows10_root = find_windows_kit_root_with_key(main_key, L"KitsRoot10");
|
||||
|
||||
if (windows10_root) {
|
||||
wchar_t* windows10_lib = concat2(windows10_root, L"Lib");
|
||||
free(windows10_root);
|
||||
|
||||
Version_Data data = { 0 };
|
||||
visit_files_w(windows10_lib, &data, win10_best);
|
||||
free(windows10_lib);
|
||||
|
||||
if (data.best_name) {
|
||||
result->windows_sdk_version = 10;
|
||||
result->windows_sdk_root = data.best_name;
|
||||
RegCloseKey(main_key);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
// Look for a Windows 8 entry.
|
||||
wchar_t* windows8_root = find_windows_kit_root_with_key(main_key, L"KitsRoot81");
|
||||
|
||||
if (windows8_root) {
|
||||
wchar_t* windows8_lib = concat2(windows8_root, L"Lib");
|
||||
free(windows8_root);
|
||||
|
||||
Version_Data data = { 0 };
|
||||
visit_files_w(windows8_lib, &data, win8_best);
|
||||
free(windows8_lib);
|
||||
|
||||
if (data.best_name) {
|
||||
result->windows_sdk_version = 8;
|
||||
result->windows_sdk_root = data.best_name;
|
||||
RegCloseKey(main_key);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
// If we get here, we failed to find anything.
|
||||
RegCloseKey(main_key);
|
||||
}
|
||||
|
||||
bool find_visual_studio_2017_by_fighting_through_microsoft_craziness(Find_Result* result) {
|
||||
HRESULT rc = CoInitialize(NULL);
|
||||
// "Subsequent valid calls return false." So ignore false.
|
||||
// if rc != S_OK return false;
|
||||
|
||||
GUID my_uid = { 0x42843719, 0xDB4C, 0x46C2, {0x8E, 0x7C, 0x64, 0xF1, 0x81, 0x6E, 0xFD, 0x5B} };
|
||||
GUID CLSID_SetupConfiguration = { 0x177F0C4A, 0x1CD3, 0x4DE7, {0xA3, 0x2C, 0x71, 0xDB, 0xBB, 0x9F, 0xA3, 0x6D} };
|
||||
|
||||
ISetupConfiguration* config = NULL;
|
||||
|
||||
// NOTE(Kalinovcic): This is so stupid... These functions take references, so the code is different for C and C++......
|
||||
//#ifdef __cplusplus
|
||||
// HRESULT hr = CoCreateInstance(CLSID_SetupConfiguration, NULL, CLSCTX_INPROC_SERVER, my_uid, (void**)&config);
|
||||
//#else
|
||||
HRESULT hr = CoCreateInstance(&CLSID_SetupConfiguration, NULL, CLSCTX_INPROC_SERVER, &my_uid, (void**)&config);
|
||||
//#endif
|
||||
|
||||
if (hr != 0) return false;
|
||||
|
||||
IEnumSetupInstances* instances = NULL;
|
||||
hr = CALL_STDMETHOD(config, EnumInstances, &instances);
|
||||
CALL_STDMETHOD_(config, Release);
|
||||
if (hr != 0) return false;
|
||||
if (!instances) return false;
|
||||
|
||||
bool found_visual_studio_2017 = false;
|
||||
while (1) {
|
||||
ULONG found = 0;
|
||||
ISetupInstance* instance = NULL;
|
||||
HRESULT hr = CALL_STDMETHOD(instances, Next, 1, &instance, &found);
|
||||
if (hr != S_OK) break;
|
||||
|
||||
BSTR bstr_inst_path;
|
||||
hr = CALL_STDMETHOD(instance, GetInstallationPath, &bstr_inst_path);
|
||||
CALL_STDMETHOD_(instance, Release);
|
||||
if (hr != S_OK) continue;
|
||||
|
||||
wchar_t* tools_filename = concat2(bstr_inst_path, L"\\VC\\Auxiliary\\Build\\Microsoft.VCToolsVersion.default.txt");
|
||||
SysFreeString(bstr_inst_path);
|
||||
|
||||
FILE* f;
|
||||
errno_t open_result = _wfopen_s(&f, tools_filename, L"rt");
|
||||
free(tools_filename);
|
||||
if (open_result != 0) continue;
|
||||
if (!f) continue;
|
||||
|
||||
LARGE_INTEGER tools_file_size;
|
||||
HANDLE file_handle = (HANDLE)_get_osfhandle(_fileno(f));
|
||||
BOOL success = GetFileSizeEx(file_handle, &tools_file_size);
|
||||
if (!success) {
|
||||
fclose(f);
|
||||
continue;
|
||||
}
|
||||
|
||||
size_t version_length = (size_t)(tools_file_size.QuadPart + 1); // Warning: This multiplication by 2 presumes there is no variable-length encoding in the wchars (wacky characters in the file could betray this expectation).
|
||||
wchar_t* version = (wchar_t*)cmalloc(version_length * 2);
|
||||
|
||||
wchar_t* read_result = fgetws(version, version_length, f);
|
||||
fclose(f);
|
||||
if (!read_result) continue;
|
||||
|
||||
wchar_t* version_tail = wcschr(version, '\n');
|
||||
if (version_tail) *version_tail = 0; // Stomp the data, because nobody cares about it.
|
||||
|
||||
wchar_t* library_path = concat4(bstr_inst_path, L"\\VC\\Tools\\MSVC\\", version, L"\\lib\\x64");
|
||||
wchar_t* library_file = concat2(library_path, L"\\vcruntime.lib"); // @Speed: Could have library_path point to this string, with a smaller count, to save on memory flailing!
|
||||
|
||||
if (os_file_exists(library_file)) {
|
||||
wchar_t* link_exe_path = concat4(bstr_inst_path, L"\\VC\\Tools\\MSVC\\", version, L"\\bin\\Hostx64\\x64");
|
||||
free(version);
|
||||
|
||||
result->vs_exe_path = link_exe_path;
|
||||
result->vs_library_path = library_path;
|
||||
result->is_vs_2017 = true;
|
||||
found_visual_studio_2017 = true;
|
||||
break;
|
||||
}
|
||||
|
||||
free(version);
|
||||
|
||||
/*
|
||||
Ryan Saunderson said:
|
||||
"Clang uses the 'SetupInstance->GetInstallationVersion' / ISetupHelper->ParseVersion to find the newest version
|
||||
and then reads the tools file to define the tools path - which is definitely better than what i did."
|
||||
|
||||
So... @Incomplete: Should probably pick the newest version...
|
||||
*/
|
||||
}
|
||||
|
||||
CALL_STDMETHOD_(instances, Release);
|
||||
return found_visual_studio_2017;
|
||||
}
|
||||
|
||||
void find_visual_studio_by_fighting_through_microsoft_craziness(Find_Result* result) {
|
||||
// The name of this procedure is kind of cryptic. Its purpose is
|
||||
// to fight through Microsoft craziness. The things that the fine
|
||||
// Visual Studio team want you to do, JUST TO FIND A SINGLE FOLDER
|
||||
// THAT EVERYONE NEEDS TO FIND, are ridiculous garbage.
|
||||
|
||||
// For earlier versions of Visual Studio, you'd find this information in the registry,
|
||||
// similarly to the Windows Kits above. But no, now it's the future, so to ask the
|
||||
// question "Where is the Visual Studio folder?" you have to do a bunch of COM object
|
||||
// instantiation, enumeration, and querying. (For extra bonus points, try doing this in
|
||||
// a new, underdeveloped programming language where you don't have COM routines up
|
||||
// and running yet. So fun.)
|
||||
//
|
||||
// If all this COM object instantiation, enumeration, and querying doesn't give us
|
||||
// a useful result, we drop back to the registry-checking method.
|
||||
|
||||
bool found_visual_studio_2017 = find_visual_studio_2017_by_fighting_through_microsoft_craziness(result);
|
||||
if (found_visual_studio_2017) return;
|
||||
|
||||
|
||||
// If we get here, we didn't find Visual Studio 2017. Try earlier versions.
|
||||
|
||||
HKEY vs7_key;
|
||||
HRESULT rc = RegOpenKeyExA(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\VisualStudio\\SxS\\VS7", 0, KEY_QUERY_VALUE | KEY_WOW64_32KEY, &vs7_key);
|
||||
if (rc != S_OK) return;
|
||||
|
||||
// Hardcoded search for 4 prior Visual Studio versions. Is there something better to do here?
|
||||
wchar_t* versions[] = { L"14.0", L"12.0", L"11.0", L"10.0" };
|
||||
const int NUM_VERSIONS = sizeof(versions) / sizeof(versions[0]);
|
||||
|
||||
for (int i = 0; i < NUM_VERSIONS; i++) {
|
||||
wchar_t* v = versions[i];
|
||||
|
||||
DWORD dw_type;
|
||||
DWORD cb_data;
|
||||
|
||||
LSTATUS rc = RegQueryValueExW(vs7_key, v, NULL, &dw_type, NULL, &cb_data);
|
||||
if ((rc == ERROR_FILE_NOT_FOUND) || (dw_type != REG_SZ)) {
|
||||
continue;
|
||||
}
|
||||
|
||||
wchar_t* buffer = (wchar_t*)cmalloc(cb_data);
|
||||
if (!buffer) return;
|
||||
|
||||
rc = RegQueryValueExW(vs7_key, v, NULL, NULL, (LPBYTE)buffer, &cb_data);
|
||||
if (rc != 0) continue;
|
||||
|
||||
// @Robustness: Do the zero-termination thing suggested in the RegQueryValue docs?
|
||||
|
||||
wchar_t* lib_path = concat2(buffer, L"VC\\Lib\\amd64");
|
||||
|
||||
// Check to see whether a vcruntime.lib actually exists here.
|
||||
wchar_t* vcruntime_filename = concat2(lib_path, L"\\vcruntime.lib");
|
||||
bool vcruntime_exists = os_file_exists(vcruntime_filename);
|
||||
free(vcruntime_filename);
|
||||
|
||||
if (vcruntime_exists) {
|
||||
result->vs_exe_path = concat2(buffer, L"VC\\bin\\amd64");
|
||||
result->vs_library_path = lib_path;
|
||||
|
||||
free(buffer);
|
||||
RegCloseKey(vs7_key);
|
||||
return;
|
||||
}
|
||||
|
||||
free(lib_path);
|
||||
free(buffer);
|
||||
}
|
||||
|
||||
RegCloseKey(vs7_key);
|
||||
|
||||
// If we get here, we failed to find anything.
|
||||
}
|
||||
|
||||
Find_Result find_visual_studio_and_windows_sdk() {
|
||||
Find_Result result = { 0 };
|
||||
|
||||
find_windows_kit_root(&result);
|
||||
|
||||
if (result.windows_sdk_root) {
|
||||
result.windows_sdk_um_library_path = concat2(result.windows_sdk_root, L"\\um\\x64");
|
||||
result.windows_sdk_ucrt_library_path = concat2(result.windows_sdk_root, L"\\ucrt\\x64");
|
||||
}
|
||||
|
||||
find_visual_studio_by_fighting_through_microsoft_craziness(&result);
|
||||
|
||||
return result;
|
||||
}
|
||||
|
||||
#endif //defined(_MSC_VER)
|
||||
#endif
|
||||
@@ -152,6 +152,8 @@ void slice_trim(StringSlice *slice);
|
||||
|
||||
void scratch_buffer_clear(void);
|
||||
void scratch_buffer_append(const char *string);
|
||||
UNUSED char *scratch_buffer_get_quoted(const char *string);
|
||||
UNUSED void scratch_buffer_append_quoted(const char *string);
|
||||
void scratch_buffer_append_len(const char *string, size_t len);
|
||||
void scratch_buffer_append_char(char c);
|
||||
void scratch_buffer_append_signed_int(int64_t i);
|
||||
@@ -322,7 +324,7 @@ static inline void* expand_(void *vec, size_t element_size)
|
||||
for (unsigned foreach_index = 0; foreach_index < foreach_len__; val = foreach_vec__[++foreach_index])
|
||||
|
||||
#define FOREACH_BEGIN_IDX(idx__, decl__, vec__) \
|
||||
void* CONCAT(foreach_vec_, __LINE__) = (vec__); unsigned CONCAT(foreach_len_, __LINE__) = vec_size(CONCAT(foreach_vec_, __LINE__)); \
|
||||
;void* CONCAT(foreach_vec_, __LINE__) = (vec__); unsigned CONCAT(foreach_len_, __LINE__) = vec_size(CONCAT(foreach_vec_, __LINE__)); \
|
||||
for (unsigned idx__ = 0; idx__ < CONCAT(foreach_len_, __LINE__); idx__++) { decl__ = ((void**)CONCAT(foreach_vec_, __LINE__))[idx__];
|
||||
#define FOREACH_END() } do {} while (0)
|
||||
#define FOREACH_BEGIN(decl__, vec__) FOREACH_BEGIN_IDX(CONCAT(idx__, __LINE__), decl__, vec__)
|
||||
|
||||
@@ -304,6 +304,39 @@ void scratch_buffer_append_len(const char *string, size_t len)
|
||||
scratch_buffer.len += (uint32_t)len;
|
||||
}
|
||||
|
||||
char *scratch_buffer_get_quoted(const char *string)
|
||||
{
|
||||
scratch_buffer_clear();
|
||||
scratch_buffer_append_quoted(string);
|
||||
return scratch_buffer_to_string();
|
||||
}
|
||||
|
||||
void scratch_buffer_append_quoted(const char *string)
|
||||
{
|
||||
char c;
|
||||
while ((c = string++[0]) != '\0')
|
||||
{
|
||||
switch (c)
|
||||
{
|
||||
case '"':
|
||||
scratch_buffer_append("\\\"");
|
||||
continue;
|
||||
case '\\':
|
||||
scratch_buffer_append("\\\\");
|
||||
continue;
|
||||
case '\n':
|
||||
scratch_buffer_append("\\n");
|
||||
continue;
|
||||
case '\'':
|
||||
scratch_buffer_append("\\'");
|
||||
continue;
|
||||
default:
|
||||
scratch_buffer_append_char(c);
|
||||
continue;
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
void scratch_buffer_append(const char *string)
|
||||
{
|
||||
scratch_buffer_append_len(string, strlen(string));
|
||||
|
||||
Reference in New Issue
Block a user