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
70
71
72
73
74
|
#include "state.h"
#include "std_allocator.h"
#include <assert.h>
#include <stdarg.h>
SandState sand_create_state(SandConfig config) {
SandState S;
S.config = config;
S.gpa = sand_get_std_allocator();
return S;
}
char *sand_vasprintf(SandAllocator *a, size_t *length_out, const char *fmt, va_list ap) {
va_list ap_clone;
va_copy(ap_clone, ap);
int length = vsnprintf(NULL, 0, fmt, ap_clone);
va_end(ap_clone);
if (length < 0) {
goto fail;
}
char *buffer = sand_allocate(a, length + 1); // Include NUL character.
if (buffer == NULL) {
goto fail;
}
va_copy(ap_clone, ap);
int final_length = vsnprintf(buffer, length + 1, fmt, ap_clone);
va_end(ap_clone);
assert(final_length == length);
if (length_out != NULL) {
*length_out = length;
}
return buffer;
fail:
if (length_out != NULL) {
*length_out = 0;
}
return NULL;
}
_SAND_FORMAT_ATTR(printf, 3, 4)
char *sand_asprintf(SandAllocator *a, size_t *length_out, const char *fmt, ...) {
va_list ap;
va_start(ap, fmt);
char *result = sand_vasprintf(a, length_out, fmt, ap);
va_end(ap);
return result;
}
void sand_print_diagnostic(SandState *S, const SandLocation *location, SandDiagnosticLevel level, const char *fmt, ...) {
va_list ap;
va_start(ap, fmt);
size_t message_length;
char *message = sand_vasprintf(&S->gpa, &message_length, fmt, ap);
va_end(ap);
if (message == NULL) {
return; // FIXME: What do we do here?
}
S->config.diagnostic_handler(location ,level, message, message_length);
sand_deallocate(&S->gpa, message, message_length + 1);
}
void sand_destroy_state(SandState *S) {
(void) S;
}
|
