forked from ghc/hsc2hs
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtemplate-hsc.h
119 lines (104 loc) · 5.45 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
/* 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);
#else
#define hsc_line(line, file) \
hsc_printf ("{-# LINE %d \"%s\" #-}\n", line, file);
#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_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; \
} \
} \
}