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
|
/*
* Copyright (C) 2012-2024 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/>.
*/
#pragma once
#include <glib.h>
#include "sciteco.h"
#include "string-utils.h"
/*
* FIXME: Introducing a second error quark might be useful to distinguish
* errors that can be cought by SciTECO macros from errors that must always
* propagate (TECO_ERROR_QUIT, TECO_ERROR_RETURN).
* On the other hand, these error codes will probably soon become obsolete
* when the SciTECO call stack no longer corresponds with the C callstack.
*/
#define TECO_ERROR (g_quark_from_static_string("sciteco-error-quark"))
typedef enum {
/** Default (catch-all) error code */
TECO_ERROR_FAILED = 0,
/*
* FIXME: Subsume all these errors under TECO_ERROR_SYNTAX or TECO_ERROR_FAIL?
* They will mainly be different in their error message.
*/
TECO_ERROR_SYNTAX,
TECO_ERROR_ARGEXPECTED,
TECO_ERROR_CODEPOINT,
TECO_ERROR_MOVE,
TECO_ERROR_WORDS,
TECO_ERROR_RANGE,
TECO_ERROR_INVALIDQREG,
TECO_ERROR_QREGOPUNSUPPORTED,
TECO_ERROR_QREGCONTAINSNULL,
TECO_ERROR_EDITINGLOCALQREG,
TECO_ERROR_MEMLIMIT,
TECO_ERROR_CLIPBOARD,
/** Interrupt current operation */
TECO_ERROR_INTERRUPTED,
/** Thrown to signal command line replacement */
TECO_ERROR_CMDLINE = 0x80,
/** Thrown as exception to cause a macro to return or a command-line termination. */
TECO_ERROR_RETURN,
/** Thrown as exception to signify that program should be terminated. */
TECO_ERROR_QUIT
} teco_error_t;
static inline void
teco_error_syntax_set(GError **error, gunichar chr)
{
gchar buf[6];
g_autofree gchar *chr_printable = teco_string_echo(buf, g_unichar_to_utf8(chr, buf));
g_set_error(error, TECO_ERROR, TECO_ERROR_SYNTAX,
"Syntax error \"%s\" (U+%04" G_GINT32_MODIFIER "X)", chr_printable, chr);
}
static inline void
teco_error_argexpected_set(GError **error, const gchar *cmd)
{
g_set_error(error, TECO_ERROR, TECO_ERROR_ARGEXPECTED,
"Argument expected for <%s>", cmd);
}
static inline void
teco_error_codepoint_set(GError **error, const gchar *cmd)
{
g_set_error(error, TECO_ERROR, TECO_ERROR_CODEPOINT,
"Invalid Unicode codepoint for <%s>", cmd);
}
static inline void
teco_error_move_set(GError **error, const gchar *cmd)
{
g_set_error(error, TECO_ERROR, TECO_ERROR_MOVE,
"Attempt to move pointer off page with <%s>", cmd);
}
static inline void
teco_error_words_set(GError **error, const gchar *cmd)
{
g_set_error(error, TECO_ERROR, TECO_ERROR_MOVE,
"Not enough words to delete with <%s>", cmd);
}
static inline void
teco_error_range_set(GError **error, const gchar *cmd)
{
g_set_error(error, TECO_ERROR, TECO_ERROR_RANGE,
"Invalid range specified for <%s>", cmd);
}
static inline void
teco_error_invalidqreg_set(GError **error, const gchar *name, gsize len, gboolean local)
{
g_autofree gchar *name_printable = teco_string_echo(name, len);
g_set_error(error, TECO_ERROR, TECO_ERROR_INVALIDQREG,
"Invalid %sQ-Register \"%s\"", local ? "local " : "", name_printable);
}
static inline void
teco_error_qregopunsupported_set(GError **error, const gchar *name, gsize len, gboolean local)
{
g_autofree gchar *name_printable = teco_string_echo(name, len);
g_set_error(error, TECO_ERROR, TECO_ERROR_QREGOPUNSUPPORTED,
"Operation unsupported on %sQ-Register \"%s\"", local ? "local " : "", name_printable);
}
static inline void
teco_error_qregcontainsnull_set(GError **error, const gchar *name, gsize len, gboolean local)
{
g_autofree gchar *name_printable = teco_string_echo(name, len);
g_set_error(error, TECO_ERROR, TECO_ERROR_QREGCONTAINSNULL,
"%sQ-Register \"%s\" contains null-byte", local ? "Local " : "", name_printable);
}
static inline void
teco_error_editinglocalqreg_set(GError **error, const gchar *name, gsize len)
{
g_autofree gchar *name_printable = teco_string_echo(name, len);
g_set_error(error, TECO_ERROR, TECO_ERROR_EDITINGLOCALQREG,
"Editing local Q-Register \"%s\" at end of macro call", name_printable);
}
static inline void
teco_error_interrupted_set(GError **error)
{
g_set_error_literal(error, TECO_ERROR, TECO_ERROR_INTERRUPTED, "Interrupted");
}
extern guint teco_error_return_args;
static inline void
teco_error_return_set(GError **error, guint args)
{
teco_error_return_args = args;
g_set_error_literal(error, TECO_ERROR, TECO_ERROR_RETURN, "");
}
extern guint teco_error_pos, teco_error_line, teco_error_column;
static inline void
teco_error_set_coord(const gchar *str, gsize pos)
{
teco_string_get_coord(str, pos, &teco_error_pos, &teco_error_line, &teco_error_column);
}
void teco_error_display_short(const GError *error);
void teco_error_display_full(const GError *error);
void teco_error_add_frame_qreg(const gchar *name, gsize len);
void teco_error_add_frame_file(const gchar *name);
void teco_error_add_frame_edhook(const gchar *type);
void teco_error_add_frame_toplevel(void);
void teco_error_clear_frames(void);
|
