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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
/*
* blogc: A blog compiler.
* Copyright (C) 2015-2016 Rafael G. Martins <rafael@rafaelmartins.eng.br>
*
* This program can be distributed under the terms of the BSD License.
* See the file LICENSE.
*/
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include "error.h"
#include "utils.h"
bc_error_t*
bc_error_new(int type, const char *msg)
{
bc_error_t *err = bc_malloc(sizeof(bc_error_t));
err->type = type;
err->msg = bc_strdup(msg);
return err;
}
bc_error_t*
bc_error_new_printf(int type, const char *format, ...)
{
va_list ap;
va_start(ap, format);
char *tmp = bc_strdup_vprintf(format, ap);
va_end(ap);
bc_error_t *rv = bc_error_new(type, tmp);
free(tmp);
return rv;
}
bc_error_t*
bc_error_parser(int type, const char *src, size_t src_len,
size_t current, const char *format, ...)
{
va_list ap;
va_start(ap, format);
char *msg = bc_strdup_vprintf(format, ap);
va_end(ap);
size_t lineno = 1;
size_t linestart = 0;
size_t lineend = 0;
size_t pos = 1;
for (size_t i = 0; i < src_len; i++) {
char c = src[i];
if (i < current) {
if ((i + 1) < src_len) {
if ((c == '\n' && src[i + 1] == '\r') ||
(c == '\r' && src[i + 1] == '\n'))
{
lineno++;
i++;
pos = 1;
if ((i + 1) < src_len)
linestart = i + 1;
continue;
}
}
if (c == '\n' || c == '\r') {
lineno++;
pos = 1;
if ((i + 1) < src_len)
linestart = i + 1;
continue;
}
pos++;
}
else if (c == '\n' || c == '\r') {
lineend = i;
break;
}
}
if (lineend <= linestart && src_len >= linestart)
lineend = src_len;
char *line = bc_strndup(src + linestart, lineend - linestart);
bc_error_t *rv = NULL;
if (line[0] == '\0') // "near" message isn't useful if line is empty
rv = bc_error_new(type, msg);
else
rv = bc_error_new_printf(type,
"%s\nError occurred near line %d, position %d: %s", msg, lineno,
pos, line);
free(msg);
free(line);
return rv;
}
void
bc_error_free(bc_error_t *err)
{
if (err == NULL)
return;
free(err->msg);
free(err);
}
|
