/
template-hsc.h
138 lines (122 loc) · 6.42 KB
/
template-hsc.h
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
/* This header will cause a mismatch with any mingw-w64 header by including a
system header and then getting included before user headers in the hsc file.
So let's define the default to be mingw-w64 C99 so we have any hope of
getting GHC to compile with GCC 9+. */
#if defined(_WIN32) && !defined(__USE_MINGW_ANSI_STDIO)
# define __USE_MINGW_ANSI_STDIO 1
#endif
/* We need stddef to be able to use size_t. Hopefully this won't cause
any problems along the lines of ghc trac #2897. */
#include <stddef.h>
/* hsc_* are defined in the generated utils.c */
int hsc_printf(const char *format, ...);
int hsc_toupper(int c);
int hsc_tolower(int c);
int hsc_putchar(int c);
/* "void" should really be "FILE", but we aren't able to refer to "FILE"
as we don't want to include <stdio.h> here */
int hsc_fputs(const char *s, void *stream);
/* "void" should really be "FILE", but we aren't able to refer to "FILE"
as we don't want to include <stdio.h> here */
void *hsc_stdout(void);
/* For the single-argument macros we make the macros variadic (the
argument is x... rather than simply x) so that arguments containing
commas work. See trac #590. */
#ifndef offsetof
#define offsetof(t, f) ((size_t) &((t *)0)->f)
#endif
#if __NHC__
#define hsc_line(line, file) \
hsc_printf ("# %d \"%s\"\n", line, file);
#define hsc_column(column)
#else
#define hsc_line(line, file) \
hsc_printf ("{-# LINE %d \"%s\" #-}\n", line, file);
#define hsc_column(column) \
hsc_printf ("{-# COLUMN %d #-}", column);
#endif
#define hsc_const(x...) \
if ((x) < 0) \
hsc_printf ("%lld", (long long)(x)); \
else \
hsc_printf ("%llu", (unsigned long long)(x));
#define hsc_const_str(x...) \
{ \
const char *s = (x); \
hsc_printf ("\""); \
while (*s != '\0') \
{ \
if (*s == '"' || *s == '\\') \
hsc_printf ("\\%c", *s); \
else if (*s >= 0x20 && *s <= 0x7E) \
hsc_printf ("%c", *s); \
else \
hsc_printf ("\\%d%s", \
(unsigned char) *s, \
s[1] >= '0' && s[1] <= '9' ? "\\&" : ""); \
++s; \
} \
hsc_printf ("\""); \
}
#define hsc_type(t...) \
if ((t)(int)(t)1.4 == (t)1.4) \
hsc_printf ("%s%lu", \
(t)(-1) < (t)0 ? "Int" : "Word", \
(unsigned long)sizeof (t) * 8); \
else \
hsc_printf ("%s", \
sizeof (t) > sizeof (double) ? "LDouble" : \
sizeof (t) == sizeof (double) ? "Double" : \
"Float");
#define hsc_peek(t, f) \
hsc_printf ("(\\hsc_ptr -> peekByteOff hsc_ptr %ld)", \
(long) offsetof (t, f));
#define hsc_poke(t, f) \
hsc_printf ("(\\hsc_ptr -> pokeByteOff hsc_ptr %ld)", \
(long) offsetof (t, f));
#define hsc_ptr(t, f) \
hsc_printf ("(\\hsc_ptr -> hsc_ptr `plusPtr` %ld)", \
(long) offsetof (t, f));
#define hsc_offset(t, f) \
hsc_printf("(%ld)", (long) offsetof (t, f));
#define hsc_size(t...) \
hsc_printf("(%ld)", (long) sizeof(t));
#define hsc_alignment(x...) \
do { \
struct __anon_x__ { \
char a; \
x b; \
}; \
hsc_printf("%lu", (unsigned long)offsetof(struct __anon_x__, b)); \
} while (0)
#define hsc_enum(t, f, print_name, x) \
print_name; \
hsc_printf (" :: %s\n", #t); \
print_name; \
hsc_printf (" = %s ", #f); \
if ((x) < 0) \
hsc_printf ("(%lld)\n", (long long)(x)); \
else \
hsc_printf ("%llu\n", (unsigned long long)(x));
#define hsc_haskellize(x...) \
{ \
const char *s = (x); \
int upper = 0; \
if (*s != '\0') \
{ \
hsc_putchar (hsc_tolower (*s)); \
++s; \
while (*s != '\0') \
{ \
if (*s == '_') \
upper = 1; \
else \
{ \
hsc_putchar (upper ? hsc_toupper (*s) \
: hsc_tolower (*s)); \
upper = 0; \
} \
++s; \
} \
} \
}