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
|
#ifndef ___n_mangle_h__
#define ___n_mangle_h__
#include <util.h>
static struct {
char *from, *to;
} hardcoded_mangles[] = {
{"size_t", "CSize"},
{"ssize_t", "CSSize"},
{"time_t", "CTime"},
{"off_t", "COff"},
{"hssize_t","HSSize_t"},
{NULL, NULL},
};
// Most type names are already uppercase, including all that have the "H5"
// prefix. That means we don't need to mess with figuring out the length
// of the prefix. Just check for a leading 'h' and, if present, uppercase
// 2 chars instead of 1.
char *uc_prefix(char *s) {
if (s[0] == '\0' || isupper(s[0]))
return s;
if (s[0] != 'h')
return ucn(s,1);
return ucn(s,2);
}
// the logic used in lc_prefix to identify the prefix.
void skip_prefix(char *s, char **rest, unsigned *prefix_len) {
char *r = s;
unsigned p = 0;
unsigned n = *prefix_len;
while ((p < n && *r != '\0' && isupper(*r)) || *r == '5') {
r++;
p++;
}
*rest = r;
*prefix_len = p;
}
// Lowercasing the prefix is a little trickier, for 2 reasons:
// 1. the uppercase prefixes are not all the same length (eg., H5T and H5AC)
// 2. they are terminated by an underscore in the case of all-caps macro names
// but not in the case of lowercase function names. So sometimes we
// need to add an underscore* and other times we don't.
//
// * because otherwise prefixes are potentially ambiguous after mangling;
// is 'h5a_create2' the mangling of 'H5Acreate2' or 'H5ACreate2'?
// Obviously a human can tell the difference, but a machine can't as
// easily.
char *lc_prefix(char *s) {
char *rest;
unsigned prefix_len = 4;
if (s[0] == '\0' || islower(s[0]))
return s;
skip_prefix(s, &rest, &prefix_len);
{
char lc_pref[prefix_len+1];
int i;
for (i = 0; i < prefix_len; i++) {
lc_pref[i] = tolower(s[i]);
}
if (s[prefix_len] != '_') {
lc_pref[prefix_len] = '_';
prefix_len++;
}
return (concatn(lc_pref, prefix_len, rest, strlen(rest)));
}
}
#define mangle_tycon(name) \
({ \
unsigned i; \
char *res = NULL; \
for(i = 0; hardcoded_mangles[i].from != NULL; i++) { \
if (strcmp(name, hardcoded_mangles[i].from) == 0) { \
res = hardcoded_mangles[i].to; \
break; \
} \
} \
\
if (res == NULL) res = uc_prefix(name); \
res; \
})
#define mangle_datacon(name) mangle_tycon(name)
#define mangle_ident(name) (lc_prefix(name))
#define mangle_varid(name) mangle_ident(name)
#define mangle_fieldname(name) mangle_varid(name)
#define mangle_conid(name) mangle_tycon(name)
#define mangle_ptrid(name) concat("p_", name)
#define mangle_famaccess(name) mangle_ptrid(name)
#define mangle_unionupdate(name) concat("u_", name)
#define mangle_wrapper(name) concat("mk_",name)
#define mangle_dynamic(name) concat("mK_",name)
#define hsc_mangle(as,name) printf("%s", mangle_ ## as(name));
#define hsc_mangle_tycon(name) hsc_mangle(tycon, name)
#define hsc_mangle_datacon(name) hsc_mangle(datacon, name)
#define hsc_mangle_ident(name) hsc_mangle(ident, name)
#endif /* ___n_mangle_h__ */
|
