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
|
/*
* Copyright (C) 2012-2022 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 <stdio.h>
#include <signal.h>
#include <glib.h>
#if TECO_INTEGER == 32
typedef gint32 teco_int_t;
#define TECO_INT_FORMAT G_GINT32_FORMAT
#elif TECO_INTEGER == 64
typedef gint64 teco_int_t;
#define TECO_INT_FORMAT G_GINT64_FORMAT
#else
#error Invalid TECO integer storage size
#endif
/**
* A TECO boolean - this differs from C booleans.
* See teco_is_success()/teco_is_failure().
*/
typedef teco_int_t teco_bool_t;
#define TECO_SUCCESS ((teco_bool_t)-1)
#define TECO_FAILURE ((teco_bool_t)0)
static inline teco_bool_t
teco_bool(gboolean x)
{
return x ? TECO_SUCCESS : TECO_FAILURE;
}
static inline gboolean
teco_is_success(teco_bool_t x)
{
return x < 0;
}
static inline gboolean
teco_is_failure(teco_bool_t x)
{
return x >= 0;
}
/** TRUE if C is a control character */
#define TECO_IS_CTL(C) ((C) < ' ')
/** ASCII character to echo control character C */
#define TECO_CTL_ECHO(C) ((C) | 0x40)
/**
* Control character of ASCII C, i.e.
* control character corresponding to CTRL+C keypress.
*/
#define TECO_CTL_KEY(C) ((C) & ~0x40)
/**
* ED flags.
* This is not a bitfield, since it is set from SciTECO.
*/
enum {
TECO_ED_AUTOCASEFOLD = (1 << 3),
TECO_ED_AUTOEOL = (1 << 4),
TECO_ED_HOOKS = (1 << 5),
TECO_ED_FNKEYS = (1 << 6),
TECO_ED_SHELLEMU = (1 << 7),
TECO_ED_XTERM_CLIPBOARD = (1 << 8)
};
/* in main.c */
extern teco_int_t teco_ed;
/* in main.c */
extern volatile sig_atomic_t teco_sigint_occurred;
/* in main.c */
void teco_interrupt(void);
/*
* Allows automatic cleanup of FILE pointers.
*/
G_DEFINE_AUTOPTR_CLEANUP_FUNC(FILE, fclose);
/*
* BEWARE DRAGONS!
*/
#define __TECO_FE_0(WHAT, WHAT_LAST)
#define __TECO_FE_1(WHAT, WHAT_LAST, X) WHAT_LAST(1,X)
#define __TECO_FE_2(WHAT, WHAT_LAST, X, ...) WHAT(2,X)__TECO_FE_1(WHAT, WHAT_LAST, __VA_ARGS__)
#define __TECO_FE_3(WHAT, WHAT_LAST, X, ...) WHAT(3,X)__TECO_FE_2(WHAT, WHAT_LAST, __VA_ARGS__)
#define __TECO_FE_4(WHAT, WHAT_LAST, X, ...) WHAT(4,X)__TECO_FE_3(WHAT, WHAT_LAST, __VA_ARGS__)
#define __TECO_FE_5(WHAT, WHAT_LAST, X, ...) WHAT(5,X)__TECO_FE_4(WHAT, WHAT_LAST, __VA_ARGS__)
//... repeat as needed
#define __TECO_GET_MACRO(_0,_1,_2,_3,_4,_5,NAME,...) NAME
/**
* Invoke macro `action(ID, ARG)` on every argument
* and `action_last(ID, ARG)` on the very last one.
* Currently works only for 5 arguments,
* but if more are needed you can add __TECO_FE_X macros.
*/
#define TECO_FOR_EACH(action, action_last, ...) \
__TECO_GET_MACRO(_0,##__VA_ARGS__,__TECO_FE_5,__TECO_FE_4,__TECO_FE_3, \
__TECO_FE_2,__TECO_FE_1,__TECO_FE_0)(action,action_last,##__VA_ARGS__)
#define __TECO_GEN_ARG(ID, X) X arg_##ID,
#define __TECO_GEN_ARG_LAST(ID, X) X arg_##ID
#define __TECO_VTABLE_GEN_CALL(ID, X) arg_##ID,
#define __TECO_VTABLE_GEN_CALL_LAST(ID, X) arg_##ID
#define TECO_DECLARE_VTABLE_METHOD(RET_TYPE, NS, NAME, OBJ_TYPE, ...) \
static inline RET_TYPE \
NS##_##NAME(OBJ_TYPE ctx, ##TECO_FOR_EACH(__TECO_GEN_ARG, __TECO_ARG_LAST, ##__VA_ARGS__)) \
{ \
return ctx->vtable->NAME(ctx, ##TECO_FOR_EACH(__TECO_VTABLE_GEN_CALL, __TECO_VTABLE_GEN_CALL_LAST, ##__VA_ARGS__)); \
} \
typedef RET_TYPE (*NS##_##NAME##_t)(OBJ_TYPE, ##__VA_ARGS__)
|
