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
|
#ifndef MACRO_H
#define MACRO_H
/*
* Token paste
*/
#define TP(a, b) a ## b
#define TP3(a, b, c) a ## b ## c
#define TP4(a, b, c, d) a ## b ## c ## d
#define TP5(a, b, c, d, e) a ## b ## c ## d ## e
#define TP6(a, b, c, d, e, f) a ## b ## c ## d ## e ## f
/*
* Get length of __VA_ARGS__
* Borrowed fram:
* https://stackoverflow.com/a/35986932
*/
#define VA_ARGS_NUM_PRIV(P1, P2, P3, P4, P5, P6, Pn, ...) Pn
#define VA_ARGS_NUM(...) VA_ARGS_NUM_PRIV(-1, ## __VA_ARGS__, 5, 4, 3, 2, 1, 0)
/*
* Templatization macros. Forms symbols on the from name<T>, which
* looks really good in debuggers and the like. Unicode characters
* written in \U notation since C apparently doesn't support unicode
* literals.
*
* Can be nested (useful for container types).
*
* Doesn't use ASCII <>, but rather some other ᐸᐳ, meaning that it's
* not a reserved character.
*
* nameᐸTᐳ
*/
#define TEMPL(name, T) TP4(name, \U00001438 , T, \U00001433 )
#define TEMPL_N(name, T, argcount) TP6(name, \U00001438 , T, _, argcount, \U00001433 )
/* Constructor type name */
#define __INIT_T(T, C) TEMPL_N(init, T, C)
/* Returns full type of constructor */
#define INIT_F(T, ...) \
int __INIT_T(T, VA_ARGS_NUM(__VA_ARGS__)) (T* this, ## __VA_ARGS__)
/*
* Call the constructor of an object
* `int` part of the macro, to ensure that any attempt to call this
* function results in an error.
*/
#define INIT(T, N, ...) \
__INIT_T(T, VA_ARGS_NUM(__VA_ARGS__)) (N, ## __VA_ARGS__)
/* Allocate a new object on the HEAP */
#define NEW(T, N, ...) \
T* N = malloc(sizeof(*N)); \
INIT(T, N, ## __VA_ARGS__);
/*
* Reconstructs a object. Use with caution.
*/
#define RENEW(T, N, ...) do { \
N = malloc(sizeof(*N)); \
INIT(T, N, ## __VA_ARGS__); \
} while (0)
/* Allocate a new object on the STACK */
#define SNEW(T, N, ...) \
T N; \
INIT(T, & N, ## __VA_ARGS__);
/* Destructor for type */
#define FREE(T) TEMPL(free, T)
/* Call destructor for type, and free object */
#define FFREE(T, N) do { FREE(T)(N); free(N); } while (0)
/* Declare destructor */
#define FREE_F(T) int FREE(T) (T* this)
/*
* Iterator macros.
*/
#define FOR(T, var, set) for( \
BEG_ ## T (var, set); \
END_ ## T (var, set); \
NXT_ ## T (var, set))
/* Example int implementation
* FOR(int, i, 10) { } */
#define BEG_int(i, set) int i = 0
#define NXT_int(i, set) i++
#define END_int(i, set) i < set
/*
* General functions that different container types may implement.
* Actuall implementation and type signature is mostly left to
* individual implementations.
*/
#define DEEP_COPY(T) TEMPL(deep_copy , T)
#define RESOLVE(T) TEMPL(resolve , T)
#define APPEND(T) TEMPL(append , T)
#define SIZE(T) TEMPL(size , T)
#define EMPTY(T) TEMPL(empty , T)
#define PUSH(T) TEMPL(push , T)
#define PEEK(T) TEMPL(peek , T)
#define POP(T) TEMPL(pop , T)
#define GET(T) TEMPL(get , T)
#define RESET(T) TEMPL(reset , T)
/*
* Formatting macros.
* Transform objects into string representation of themselves.
* buf should be a suffisiently large memmory location, if it's to
* small then bad stuff might happen.
*
* Should return the number of bytes written (like sprintf).
*/
#define FMT_T(T) TEMPL(format , T)
#define FMT_F(T) int FMT_T(T)(T* this, char* buf, ...)
// TODO change order of buf and item
#define __FMT_HELP(item, buf, ...) ((item), (buf), VA_ARGS_NUM(__VA_ARGS__), ## __VA_ARGS__)
#define FMT(T) FMT_T(T) __FMT_HELP
#define fmtf(...) seek += sprintf(buf + seek, __VA_ARGS__)
#endif /* MACRO_H */
|