1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#pragma once
#include <stdio.h>
// clang-format off
#ifdef __clang__
# pragma clang diagnostic push
# pragma clang diagnostic ignored "-Wsign-compare"
#include "mio.h"
# pragma clang diagnostic pop
#else
#include "mio.h"
#endif
// clang-format on
#ifdef _WIN32
#include <Rinternals.h>
#include <windows.h>
#endif
// This is needed to support wide character paths on windows
inline FILE* unicode_fopen(const char* path, const char* mode) {
FILE* out;
#ifdef _WIN32
// First conver the mode to the wide equivalent
// Only usage is 2 characters so max 8 bytes + 2 byte null.
wchar_t mode_w[10];
MultiByteToWideChar(CP_UTF8, 0, mode, -1, mode_w, 9);
// Then convert the path
wchar_t* buf;
size_t len = MultiByteToWideChar(CP_UTF8, 0, path, -1, NULL, 0);
if (len <= 0) {
Rf_error("Cannot convert file to Unicode: %s", path);
}
buf = (wchar_t*)R_alloc(len, sizeof(wchar_t));
if (buf == NULL) {
Rf_error("Could not allocate buffer of size: %zu", len);
}
MultiByteToWideChar(CP_UTF8, 0, path, -1, buf, len);
out = _wfopen(buf, mode_w);
#else
out = fopen(path, mode);
#endif
return out;
}
inline mio::mmap_source
make_mmap_source(const char* file, std::error_code& error) {
#ifdef __WIN32
wchar_t* buf;
size_t len = MultiByteToWideChar(CP_UTF8, 0, file, -1, NULL, 0);
if (len <= 0) {
Rf_error("Cannot convert file to Unicode: %s", file);
}
buf = (wchar_t*)malloc(len * sizeof(wchar_t));
if (buf == NULL) {
Rf_error("Could not allocate buffer of size: %zu", len);
}
MultiByteToWideChar(CP_UTF8, 0, file, -1, buf, len);
mio::mmap_source out = mio::make_mmap_source(buf, error);
free(buf);
return out;
#else
return mio::make_mmap_source(file, error);
#endif
}
|
