1 // SPDX-License-Identifier: GPL-2.0
4 #include "util/string2.h"
6 #include "demangle-ocaml.h"
8 #include <linux/ctype.h>
10 static const char *caml_prefix = "caml";
11 static const size_t caml_prefix_len = 4;
13 /* mangled OCaml symbols start with "caml" followed by an upper-case letter */
15 ocaml_is_mangled(const char *sym)
17 return 0 == strncmp(sym, caml_prefix, caml_prefix_len)
18 && isupper(sym[caml_prefix_len]);
23 * sym: a symbol which may have been mangled by the OCaml compiler
25 * if the input doesn't look like a mangled OCaml symbol, NULL is returned
26 * otherwise, a newly allocated string containing the demangled symbol is returned
29 ocaml_demangle_sym(const char *sym)
36 if (!ocaml_is_mangled(sym)) {
42 /* the demangled symbol is always smaller than the mangled symbol */
43 result = malloc(len + 1);
47 /* skip "caml" prefix */
51 if (sym[i] == '_' && sym[i + 1] == '_') {
56 else if (sym[i] == '$' && isxdigit(sym[i + 1]) && isxdigit(sym[i + 2])) {
57 /* "$xx" is a hex-encoded character */
58 result[j++] = (hex(sym[i + 1]) << 4) | hex(sym[i + 2]);
62 result[j++] = sym[i++];