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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
/*
* Copyright (C) 2012-2023 Robin Haberkorn
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <string.h>
#include <glib.h>
#include "sciteco.h"
#include "string-utils.h"
#include "interface.h"
#include "list.h"
#include "error.h"
guint teco_error_return_args = 0;
/*
* FIXME: Does this have to be stored in teco_machine_main_t?
* Probably becomes clear once we implement error handling by macros.
*/
guint teco_error_pos = 0, teco_error_line = 0, teco_error_column = 0;
void
teco_error_set_coord(const gchar *str, guint pos)
{
teco_error_pos = pos;
teco_string_get_coord(str, pos, &teco_error_line, &teco_error_column);
}
typedef enum {
TECO_FRAME_QREG,
TECO_FRAME_FILE,
TECO_FRAME_EDHOOK,
TECO_FRAME_TOPLEVEL
} teco_frame_type_t;
typedef struct teco_frame_t {
teco_stailq_entry_t entry;
teco_frame_type_t type;
guint pos, line, column;
/*
* NOTE: This is currently sufficient to describe all
* frame types. Otherwise, add an union.
*/
gchar name[];
} teco_frame_t;
/**
* List of teco_frame_t describing the stack frames.
*
* Stack frames are collected deliberately unformatted
* since there are future applications where displaying
* a stack frame will not be necessary (e.g. error handled
* by SciTECO macro).
* Preformatting all stack frames would be very costly.
*/
static teco_stailq_head_t teco_frames = TECO_STAILQ_HEAD_INITIALIZER(&teco_frames);
void
teco_error_display_short(const GError *error)
{
teco_interface_msg(TECO_MSG_ERROR, "%s (at %d)",
error->message, teco_error_pos);
}
void
teco_error_display_full(const GError *error)
{
teco_interface_msg(TECO_MSG_ERROR, "%s", error->message);
guint nr = 0;
for (teco_stailq_entry_t *cur = teco_frames.first; cur != NULL; cur = cur->next) {
teco_frame_t *frame = (teco_frame_t *)cur;
switch (frame->type) {
case TECO_FRAME_QREG:
teco_interface_msg(TECO_MSG_INFO,
"#%d in Q-Register \"%s\" at %d (%d:%d)",
nr, frame->name, frame->pos, frame->line, frame->column);
break;
case TECO_FRAME_FILE:
teco_interface_msg(TECO_MSG_INFO,
"#%d in file \"%s\" at %d (%d:%d)",
nr, frame->name, frame->pos, frame->line, frame->column);
break;
case TECO_FRAME_EDHOOK:
teco_interface_msg(TECO_MSG_INFO,
"#%d in \"%s\" hook execution",
nr, frame->name);
break;
case TECO_FRAME_TOPLEVEL:
teco_interface_msg(TECO_MSG_INFO,
"#%d in toplevel macro at %d (%d:%d)",
nr, frame->pos, frame->line, frame->column);
break;
}
nr++;
}
}
static teco_frame_t *
teco_error_add_frame(teco_frame_type_t type, gsize size)
{
teco_frame_t *frame = g_malloc(sizeof(teco_frame_t) + size);
frame->type = type;
frame->pos = teco_error_pos;
frame->line = teco_error_line;
frame->column = teco_error_column;
teco_stailq_insert_tail(&teco_frames, &frame->entry);
return frame;
}
void
teco_error_add_frame_qreg(const gchar *name, gsize len)
{
g_autofree gchar *name_printable = teco_string_echo(name, len);
teco_frame_t *frame = teco_error_add_frame(TECO_FRAME_QREG, strlen(name_printable) + 1);
strcpy(frame->name, name_printable);
}
void
teco_error_add_frame_file(const gchar *name)
{
teco_frame_t *frame = teco_error_add_frame(TECO_FRAME_FILE, strlen(name) + 1);
strcpy(frame->name, name);
}
void
teco_error_add_frame_edhook(const gchar *type)
{
teco_frame_t *frame = teco_error_add_frame(TECO_FRAME_EDHOOK, strlen(type) + 1);
strcpy(frame->name, type);
}
void
teco_error_add_frame_toplevel(void)
{
teco_error_add_frame(TECO_FRAME_TOPLEVEL, 0);
}
#ifndef NDEBUG
__attribute__((destructor))
#endif
void
teco_error_clear_frames(void)
{
teco_stailq_entry_t *entry;
while ((entry = teco_stailq_remove_head(&teco_frames)))
g_free(entry);
}
|
