#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <sys/types.h>
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
#include <stdio.h>
#ifdef HAVE_STRING_H
#include <string.h>
#endif
#include <ctype.h>
#include "ansidecl.h"
#include "libiberty.h"
#include "dyn-string.h"
#include "demangle.h"
#ifdef CP_DEMANGLE_DEBUG
#define DEMANGLE_TRACE(PRODUCTION, DM) \
fprintf (stderr, " -> %-24s at position %3d\n", \
(PRODUCTION), current_position (DM));
#else
#define DEMANGLE_TRACE(PRODUCTION, DM)
#endif
#define IS_DIGIT(CHAR) ((CHAR) >= '0' && (CHAR) <= '9')
#define IS_ALPHA(CHAR) \
(((CHAR) >= 'a' && (CHAR) <= 'z') \
|| ((CHAR) >= 'A' && (CHAR) <= 'Z'))
#define ANONYMOUS_NAMESPACE_PREFIX "_GLOBAL_"
#define NAMESPACE_SEPARATOR (dm->style == DMGL_JAVA ? "." : "::")
static int flag_verbose;
static int flag_strict;
struct string_list_def
{
struct dyn_string string;
int caret_position;
struct string_list_def *next;
};
typedef struct string_list_def *string_list_t;
struct substitution_def
{
dyn_string_t text;
int template_p : 1;
};
struct template_arg_list_def
{
struct template_arg_list_def *next;
string_list_t first_argument;
string_list_t last_argument;
};
typedef struct template_arg_list_def *template_arg_list_t;
struct demangling_def
{
const char *name;
const char *next;
string_list_t result;
int num_substitutions;
int substitutions_allocated;
struct substitution_def *substitutions;
template_arg_list_t template_arg_lists;
dyn_string_t last_source_name;
int style;
enum gnu_v3_ctor_kinds is_constructor;
enum gnu_v3_dtor_kinds is_destructor;
};
typedef struct demangling_def *demangling_t;
typedef const char *status_t;
#define STATUS_OK NULL
#define STATUS_ERROR "Error."
#define STATUS_UNIMPLEMENTED "Unimplemented."
#define STATUS_INTERNAL_ERROR "Internal error."
static const char *const status_allocation_failed = "Allocation failed.";
#define STATUS_ALLOCATION_FAILED status_allocation_failed
#define STATUS_NO_ERROR(STATUS) ((STATUS) == STATUS_OK)
#define RETURN_IF_ERROR(EXPR) \
do \
{ \
status_t s = EXPR; \
if (!STATUS_NO_ERROR (s)) \
return s; \
} \
while (0)
static status_t int_to_dyn_string
PARAMS ((int, dyn_string_t));
static string_list_t string_list_new
PARAMS ((int));
static void string_list_delete
PARAMS ((string_list_t));
static status_t result_add_separated_char
PARAMS ((demangling_t, int));
static status_t result_push
PARAMS ((demangling_t));
static string_list_t result_pop
PARAMS ((demangling_t));
static int substitution_start
PARAMS ((demangling_t));
static status_t substitution_add
PARAMS ((demangling_t, int, int));
static dyn_string_t substitution_get
PARAMS ((demangling_t, int, int *));
#ifdef CP_DEMANGLE_DEBUG
static void substitutions_print
PARAMS ((demangling_t, FILE *));
#endif
static template_arg_list_t template_arg_list_new
PARAMS ((void));
static void template_arg_list_delete
PARAMS ((template_arg_list_t));
static void template_arg_list_add_arg
PARAMS ((template_arg_list_t, string_list_t));
static string_list_t template_arg_list_get_arg
PARAMS ((template_arg_list_t, int));
static void push_template_arg_list
PARAMS ((demangling_t, template_arg_list_t));
static void pop_to_template_arg_list
PARAMS ((demangling_t, template_arg_list_t));
#ifdef CP_DEMANGLE_DEBUG
static void template_arg_list_print
PARAMS ((template_arg_list_t, FILE *));
#endif
static template_arg_list_t current_template_arg_list
PARAMS ((demangling_t));
static demangling_t demangling_new
PARAMS ((const char *, int));
static void demangling_delete
PARAMS ((demangling_t));
#define dyn_string_last_char(DS) \
(dyn_string_buf (DS)[dyn_string_length (DS) - 1])
#define dyn_string_append_space(DS) \
((dyn_string_length (DS) > 0 \
&& dyn_string_last_char (DS) != ' ') \
? dyn_string_append_char ((DS), ' ') \
: 1)
#define current_position(DM) ((DM)->next - (DM)->name)
#define peek_char(DM) (*((DM)->next))
#define peek_char_next(DM) \
(peek_char (DM) == '\0' ? '\0' : (*((DM)->next + 1)))
#define next_char(DM) (*((DM)->next)++)
#define end_of_name_p(DM) (peek_char (DM) == '\0')
#define advance_char(DM) (++(DM)->next)
#define result_string(DM) (&(DM)->result->string)
#define result_caret_pos(DM) \
(result_length (DM) + \
((string_list_t) result_string (DM))->caret_position)
#define result_add_string(DM, STRING) \
(dyn_string_insert (&(DM)->result->string, \
result_caret_pos (DM), (STRING)) \
? STATUS_OK : STATUS_ALLOCATION_FAILED)
#define result_add(DM, CSTR) \
(dyn_string_insert_cstr (&(DM)->result->string, \
result_caret_pos (DM), (CSTR)) \
? STATUS_OK : STATUS_ALLOCATION_FAILED)
#define result_add_char(DM, CHAR) \
(dyn_string_insert_char (&(DM)->result->string, \
result_caret_pos (DM), (CHAR)) \
? STATUS_OK : STATUS_ALLOCATION_FAILED)
#define result_insert_string(DM, POS, STRING) \
(dyn_string_insert (&(DM)->result->string, (POS), (STRING)) \
? STATUS_OK : STATUS_ALLOCATION_FAILED)
#define result_insert(DM, POS, CSTR) \
(dyn_string_insert_cstr (&(DM)->result->string, (POS), (CSTR)) \
? STATUS_OK : STATUS_ALLOCATION_FAILED)
#define result_insert_char(DM, POS, CHAR) \
(dyn_string_insert_char (&(DM)->result->string, (POS), (CHAR)) \
? STATUS_OK : STATUS_ALLOCATION_FAILED)
#define result_length(DM) \
dyn_string_length (&(DM)->result->string)
#define result_open_template_list(DM) result_add_separated_char(DM, '<')
#define result_close_template_list(DM) result_add_separated_char(DM, '>')
static status_t
int_to_dyn_string (value, ds)
int value;
dyn_string_t ds;
{
int i;
int mask = 1;
if (value == 0)
{
if (!dyn_string_append_char (ds, '0'))
return STATUS_ALLOCATION_FAILED;
return STATUS_OK;
}
if (value < 0)
{
if (!dyn_string_append_char (ds, '-'))
return STATUS_ALLOCATION_FAILED;
value = -value;
}
i = value;
while (i > 9)
{
mask *= 10;
i /= 10;
}
while (mask > 0)
{
int digit = value / mask;
if (!dyn_string_append_char (ds, '0' + digit))
return STATUS_ALLOCATION_FAILED;
value -= digit * mask;
mask /= 10;
}
return STATUS_OK;
}
static string_list_t
string_list_new (length)
int length;
{
string_list_t s = (string_list_t) malloc (sizeof (struct string_list_def));
s->caret_position = 0;
if (s == NULL)
return NULL;
if (!dyn_string_init ((dyn_string_t) s, length))
return NULL;
return s;
}
static void
string_list_delete (node)
string_list_t node;
{
while (node != NULL)
{
string_list_t next = node->next;
dyn_string_delete ((dyn_string_t) node);
node = next;
}
}
static status_t
result_add_separated_char (dm, character)
demangling_t dm;
int character;
{
char *result = dyn_string_buf (result_string (dm));
int caret_pos = result_caret_pos (dm);
if (caret_pos > 0 && result[caret_pos - 1] == character)
RETURN_IF_ERROR (result_add_char (dm, ' '));
RETURN_IF_ERROR (result_add_char (dm, character));
return STATUS_OK;
}
static status_t
result_push (dm)
demangling_t dm;
{
string_list_t new_string = string_list_new (0);
if (new_string == NULL)
return STATUS_ALLOCATION_FAILED;
new_string->next = (string_list_t) dm->result;
dm->result = new_string;
return STATUS_OK;
}
static string_list_t
result_pop (dm)
demangling_t dm;
{
string_list_t top = dm->result;
dm->result = top->next;
return top;
}
static int
result_get_caret (dm)
demangling_t dm;
{
return ((string_list_t) result_string (dm))->caret_position;
}
static void
result_set_caret (dm, position)
demangling_t dm;
int position;
{
((string_list_t) result_string (dm))->caret_position = position;
}
static void
result_shift_caret (dm, position_offset)
demangling_t dm;
int position_offset;
{
((string_list_t) result_string (dm))->caret_position += position_offset;
}
static int
result_previous_char_is_space (dm)
demangling_t dm;
{
char *result = dyn_string_buf (result_string (dm));
int pos = result_caret_pos (dm);
return pos > 0 && result[pos - 1] == ' ';
}
static int
substitution_start (dm)
demangling_t dm;
{
return result_caret_pos (dm);
}
static status_t
substitution_add (dm, start_position, template_p)
demangling_t dm;
int start_position;
int template_p;
{
dyn_string_t result = result_string (dm);
dyn_string_t substitution = dyn_string_new (0);
int i;
if (substitution == NULL)
return STATUS_ALLOCATION_FAILED;
if (!dyn_string_substring (substitution,
result, start_position, result_caret_pos (dm)))
{
dyn_string_delete (substitution);
return STATUS_ALLOCATION_FAILED;
}
if (dm->substitutions_allocated == dm->num_substitutions)
{
size_t new_array_size;
if (dm->substitutions_allocated > 0)
dm->substitutions_allocated *= 2;
else
dm->substitutions_allocated = 2;
new_array_size =
sizeof (struct substitution_def) * dm->substitutions_allocated;
dm->substitutions = (struct substitution_def *)
realloc (dm->substitutions, new_array_size);
if (dm->substitutions == NULL)
{
dyn_string_delete (substitution);
return STATUS_ALLOCATION_FAILED;
}
}
i = dm->num_substitutions++;
dm->substitutions[i].text = substitution;
dm->substitutions[i].template_p = template_p;
#ifdef CP_DEMANGLE_DEBUG
substitutions_print (dm, stderr);
#endif
return STATUS_OK;
}
static dyn_string_t
substitution_get (dm, n, template_p)
demangling_t dm;
int n;
int *template_p;
{
struct substitution_def *sub;
if (n < 0 || n >= dm->num_substitutions)
return NULL;
sub = &(dm->substitutions[n]);
*template_p = sub->template_p;
return sub->text;
}
#ifdef CP_DEMANGLE_DEBUG
static void
substitutions_print (dm, fp)
demangling_t dm;
FILE *fp;
{
int seq_id;
int num = dm->num_substitutions;
fprintf (fp, "SUBSTITUTIONS:\n");
for (seq_id = -1; seq_id < num - 1; ++seq_id)
{
int template_p;
dyn_string_t text = substitution_get (dm, seq_id + 1, &template_p);
if (seq_id == -1)
fprintf (fp, " S_ ");
else
fprintf (fp, " S%d_", seq_id);
fprintf (fp, " %c: %s\n", template_p ? '*' : ' ', dyn_string_buf (text));
}
}
#endif
static template_arg_list_t
template_arg_list_new ()
{
template_arg_list_t new_list =
(template_arg_list_t) malloc (sizeof (struct template_arg_list_def));
if (new_list == NULL)
return NULL;
new_list->first_argument = NULL;
new_list->last_argument = NULL;
return new_list;
}
static void
template_arg_list_delete (list)
template_arg_list_t list;
{
if (list->first_argument != NULL)
string_list_delete (list->first_argument);
free (list);
}
static void
template_arg_list_add_arg (arg_list, arg)
template_arg_list_t arg_list;
string_list_t arg;
{
if (arg_list->first_argument == NULL)
arg_list->first_argument = arg;
else
arg_list->last_argument->next = arg;
arg_list->last_argument = arg;
arg->next = NULL;
}
static string_list_t
template_arg_list_get_arg (arg_list, index)
template_arg_list_t arg_list;
int index;
{
string_list_t arg = arg_list->first_argument;
while (index--)
{
arg = arg->next;
if (arg == NULL)
return NULL;
}
return arg;
}
static void
push_template_arg_list (dm, arg_list)
demangling_t dm;
template_arg_list_t arg_list;
{
arg_list->next = dm->template_arg_lists;
dm->template_arg_lists = arg_list;
#ifdef CP_DEMANGLE_DEBUG
fprintf (stderr, " ** pushing template arg list\n");
template_arg_list_print (arg_list, stderr);
#endif
}
static void
pop_to_template_arg_list (dm, arg_list)
demangling_t dm;
template_arg_list_t arg_list;
{
while (dm->template_arg_lists != arg_list)
{
template_arg_list_t top = dm->template_arg_lists;
dm->template_arg_lists = top->next;
template_arg_list_delete (top);
#ifdef CP_DEMANGLE_DEBUG
fprintf (stderr, " ** removing template arg list\n");
#endif
}
}
#ifdef CP_DEMANGLE_DEBUG
static void
template_arg_list_print (arg_list, fp)
template_arg_list_t arg_list;
FILE *fp;
{
string_list_t arg;
int index = -1;
fprintf (fp, "TEMPLATE ARGUMENT LIST:\n");
for (arg = arg_list->first_argument; arg != NULL; arg = arg->next)
{
if (index == -1)
fprintf (fp, " T_ : ");
else
fprintf (fp, " T%d_ : ", index);
++index;
fprintf (fp, "%s\n", dyn_string_buf ((dyn_string_t) arg));
}
}
#endif
static template_arg_list_t
current_template_arg_list (dm)
demangling_t dm;
{
return dm->template_arg_lists;
}
static demangling_t
demangling_new (name, style)
const char *name;
int style;
{
demangling_t dm;
dm = (demangling_t) malloc (sizeof (struct demangling_def));
if (dm == NULL)
return NULL;
dm->name = name;
dm->next = name;
dm->result = NULL;
dm->num_substitutions = 0;
dm->substitutions_allocated = 10;
dm->template_arg_lists = NULL;
dm->last_source_name = dyn_string_new (0);
if (dm->last_source_name == NULL)
return NULL;
dm->substitutions = (struct substitution_def *)
malloc (dm->substitutions_allocated * sizeof (struct substitution_def));
if (dm->substitutions == NULL)
{
dyn_string_delete (dm->last_source_name);
return NULL;
}
dm->style = style;
dm->is_constructor = (enum gnu_v3_ctor_kinds) 0;
dm->is_destructor = (enum gnu_v3_dtor_kinds) 0;
return dm;
}
static void
demangling_delete (dm)
demangling_t dm;
{
int i;
template_arg_list_t arg_list = dm->template_arg_lists;
while (arg_list != NULL)
{
template_arg_list_t next = arg_list->next;
template_arg_list_delete (arg_list);
arg_list = next;
}
for (i = dm->num_substitutions; --i >= 0; )
dyn_string_delete (dm->substitutions[i].text);
free (dm->substitutions);
string_list_delete (dm->result);
dyn_string_delete (dm->last_source_name);
free (dm);
}
static status_t demangle_char
PARAMS ((demangling_t, int));
static status_t demangle_mangled_name
PARAMS ((demangling_t));
static status_t demangle_encoding
PARAMS ((demangling_t));
static status_t demangle_name
PARAMS ((demangling_t, int *));
static status_t demangle_nested_name
PARAMS ((demangling_t, int *));
static status_t demangle_prefix
PARAMS ((demangling_t, int *));
static status_t demangle_unqualified_name
PARAMS ((demangling_t, int *));
static status_t demangle_source_name
PARAMS ((demangling_t));
static status_t demangle_number
PARAMS ((demangling_t, int *, int, int));
static status_t demangle_number_literally
PARAMS ((demangling_t, dyn_string_t, int, int));
static status_t demangle_identifier
PARAMS ((demangling_t, int, dyn_string_t));
static status_t demangle_operator_name
PARAMS ((demangling_t, int, int *, int *));
static status_t demangle_nv_offset
PARAMS ((demangling_t));
static status_t demangle_v_offset
PARAMS ((demangling_t));
static status_t demangle_call_offset
PARAMS ((demangling_t));
static status_t demangle_special_name
PARAMS ((demangling_t));
static status_t demangle_ctor_dtor_name
PARAMS ((demangling_t));
static status_t demangle_type_ptr
PARAMS ((demangling_t, int *, int));
static status_t demangle_type
PARAMS ((demangling_t));
static status_t demangle_CV_qualifiers
PARAMS ((demangling_t, dyn_string_t));
static status_t demangle_builtin_type
PARAMS ((demangling_t));
static status_t demangle_function_type
PARAMS ((demangling_t, int *));
static status_t demangle_bare_function_type
PARAMS ((demangling_t, int *));
static status_t demangle_class_enum_type
PARAMS ((demangling_t, int *));
static status_t demangle_array_type
PARAMS ((demangling_t, int *));
static status_t demangle_template_param
PARAMS ((demangling_t));
static status_t demangle_template_args
PARAMS ((demangling_t));
static status_t demangle_literal
PARAMS ((demangling_t));
static status_t demangle_template_arg
PARAMS ((demangling_t));
static status_t demangle_expression
PARAMS ((demangling_t));
static status_t demangle_scope_expression
PARAMS ((demangling_t));
static status_t demangle_expr_primary
PARAMS ((demangling_t));
static status_t demangle_substitution
PARAMS ((demangling_t, int *));
static status_t demangle_local_name
PARAMS ((demangling_t));
static status_t demangle_discriminator
PARAMS ((demangling_t, int));
static status_t cp_demangle
PARAMS ((const char *, dyn_string_t, int));
static status_t cp_demangle_type
PARAMS ((const char*, dyn_string_t));
#define BFT_NO_RETURN_TYPE NULL
static status_t
demangle_char (dm, c)
demangling_t dm;
int c;
{
static char *error_message = NULL;
if (peek_char (dm) == c)
{
advance_char (dm);
return STATUS_OK;
}
else
{
if (error_message == NULL)
error_message = (char *) strdup ("Expected ?");
error_message[9] = c;
return error_message;
}
}
static status_t
demangle_mangled_name (dm)
demangling_t dm;
{
DEMANGLE_TRACE ("mangled-name", dm);
RETURN_IF_ERROR (demangle_char (dm, '_'));
RETURN_IF_ERROR (demangle_char (dm, 'Z'));
RETURN_IF_ERROR (demangle_encoding (dm));
return STATUS_OK;
}
static status_t
demangle_encoding (dm)
demangling_t dm;
{
int encode_return_type;
int start_position;
template_arg_list_t old_arg_list = current_template_arg_list (dm);
char peek = peek_char (dm);
DEMANGLE_TRACE ("encoding", dm);
start_position = result_caret_pos (dm);
if (peek == 'G' || peek == 'T')
RETURN_IF_ERROR (demangle_special_name (dm));
else
{
RETURN_IF_ERROR (demangle_name (dm, &encode_return_type));
if (!end_of_name_p (dm)
&& peek_char (dm) != 'E')
{
if (encode_return_type)
RETURN_IF_ERROR
(demangle_bare_function_type (dm, &start_position));
else
RETURN_IF_ERROR
(demangle_bare_function_type (dm, BFT_NO_RETURN_TYPE));
}
}
pop_to_template_arg_list (dm, old_arg_list);
return STATUS_OK;
}
static status_t
demangle_name (dm, encode_return_type)
demangling_t dm;
int *encode_return_type;
{
int start = substitution_start (dm);
char peek = peek_char (dm);
int is_std_substitution = 0;
int suppress_return_type = 0;
DEMANGLE_TRACE ("name", dm);
switch (peek)
{
case 'N':
RETURN_IF_ERROR (demangle_nested_name (dm, encode_return_type));
break;
case 'Z':
RETURN_IF_ERROR (demangle_local_name (dm));
*encode_return_type = 0;
break;
case 'S':
if (peek_char_next (dm) == 't')
{
(void) next_char (dm);
(void) next_char (dm);
RETURN_IF_ERROR (result_add (dm, "std::"));
RETURN_IF_ERROR
(demangle_unqualified_name (dm, &suppress_return_type));
is_std_substitution = 1;
}
else
RETURN_IF_ERROR (demangle_substitution (dm, encode_return_type));
if (peek_char (dm) == 'I')
{
if (is_std_substitution)
RETURN_IF_ERROR (substitution_add (dm, start, 0));
RETURN_IF_ERROR (demangle_template_args (dm));
*encode_return_type = !suppress_return_type;
}
else
*encode_return_type = 0;
break;
default:
RETURN_IF_ERROR (demangle_unqualified_name (dm, &suppress_return_type));
if (peek_char (dm) == 'I')
{
RETURN_IF_ERROR (substitution_add (dm, start, 0));
RETURN_IF_ERROR (demangle_template_args (dm));
*encode_return_type = !suppress_return_type;
}
else
*encode_return_type = 0;
break;
}
return STATUS_OK;
}
static status_t
demangle_nested_name (dm, encode_return_type)
demangling_t dm;
int *encode_return_type;
{
char peek;
DEMANGLE_TRACE ("nested-name", dm);
RETURN_IF_ERROR (demangle_char (dm, 'N'));
peek = peek_char (dm);
if (peek == 'r' || peek == 'V' || peek == 'K')
{
dyn_string_t cv_qualifiers;
status_t status;
cv_qualifiers = dyn_string_new (24);
if (cv_qualifiers == NULL)
return STATUS_ALLOCATION_FAILED;
demangle_CV_qualifiers (dm, cv_qualifiers);
status = result_add_char (dm, ' ');
if (STATUS_NO_ERROR (status))
status = result_add_string (dm, cv_qualifiers);
result_shift_caret (dm, -dyn_string_length (cv_qualifiers) - 1);
dyn_string_delete (cv_qualifiers);
RETURN_IF_ERROR (status);
}
RETURN_IF_ERROR (demangle_prefix (dm, encode_return_type));
RETURN_IF_ERROR (demangle_char (dm, 'E'));
return STATUS_OK;
}
static status_t
demangle_prefix (dm, encode_return_type)
demangling_t dm;
int *encode_return_type;
{
int start = substitution_start (dm);
int nested = 0;
int suppress_return_type = 0;
DEMANGLE_TRACE ("prefix", dm);
while (1)
{
char peek;
if (end_of_name_p (dm))
return "Unexpected end of name in <compound-name>.";
peek = peek_char (dm);
if (peek != 'I')
suppress_return_type = 0;
if (IS_DIGIT ((unsigned char) peek)
|| (peek >= 'a' && peek <= 'z')
|| peek == 'C' || peek == 'D'
|| peek == 'S')
{
if (nested)
RETURN_IF_ERROR (result_add (dm, NAMESPACE_SEPARATOR));
else
nested = 1;
if (peek == 'S')
RETURN_IF_ERROR (demangle_substitution (dm, encode_return_type));
else
{
RETURN_IF_ERROR
(demangle_unqualified_name (dm, &suppress_return_type));
*encode_return_type = 0;
}
}
else if (peek == 'Z')
RETURN_IF_ERROR (demangle_local_name (dm));
else if (peek == 'I')
{
RETURN_IF_ERROR (demangle_template_args (dm));
*encode_return_type = !suppress_return_type;
}
else if (peek == 'E')
return STATUS_OK;
else
return "Unexpected character in <compound-name>.";
if (peek != 'S'
&& peek_char (dm) != 'E')
RETURN_IF_ERROR (substitution_add (dm, start, *encode_return_type));
}
}
static status_t
demangle_unqualified_name (dm, suppress_return_type)
demangling_t dm;
int *suppress_return_type;
{
char peek = peek_char (dm);
DEMANGLE_TRACE ("unqualified-name", dm);
*suppress_return_type = 0;
if (IS_DIGIT ((unsigned char) peek))
RETURN_IF_ERROR (demangle_source_name (dm));
else if (peek >= 'a' && peek <= 'z')
{
int num_args;
if (peek == 'c' && peek_char_next (dm) == 'v')
*suppress_return_type = 1;
RETURN_IF_ERROR (demangle_operator_name (dm, 0, &num_args, NULL));
}
else if (peek == 'C' || peek == 'D')
{
if (peek == 'C')
*suppress_return_type = 1;
RETURN_IF_ERROR (demangle_ctor_dtor_name (dm));
}
else
return "Unexpected character in <unqualified-name>.";
return STATUS_OK;
}
static status_t
demangle_source_name (dm)
demangling_t dm;
{
int length;
DEMANGLE_TRACE ("source-name", dm);
RETURN_IF_ERROR (demangle_number (dm, &length, 10, 0));
if (length == 0)
return "Zero length in <source-name>.";
RETURN_IF_ERROR (demangle_identifier (dm, length,
dm->last_source_name));
RETURN_IF_ERROR (result_add_string (dm, dm->last_source_name));
return STATUS_OK;
}
static status_t
demangle_number (dm, value, base, is_signed)
demangling_t dm;
int *value;
int base;
int is_signed;
{
dyn_string_t number = dyn_string_new (10);
DEMANGLE_TRACE ("number", dm);
if (number == NULL)
return STATUS_ALLOCATION_FAILED;
demangle_number_literally (dm, number, base, is_signed);
*value = strtol (dyn_string_buf (number), NULL, base);
dyn_string_delete (number);
return STATUS_OK;
}
static status_t
demangle_number_literally (dm, str, base, is_signed)
demangling_t dm;
dyn_string_t str;
int base;
int is_signed;
{
DEMANGLE_TRACE ("number*", dm);
if (base != 10 && base != 36)
return STATUS_INTERNAL_ERROR;
if (is_signed && peek_char (dm) == 'n')
{
advance_char (dm);
if (!dyn_string_append_char (str, '-'))
return STATUS_ALLOCATION_FAILED;
}
while (1)
{
char peek = peek_char (dm);
if (IS_DIGIT ((unsigned char) peek)
|| (base == 36 && peek >= 'A' && peek <= 'Z'))
{
if (!dyn_string_append_char (str, next_char (dm)))
return STATUS_ALLOCATION_FAILED;
}
else
break;
}
return STATUS_OK;
}
static status_t
demangle_identifier (dm, length, identifier)
demangling_t dm;
int length;
dyn_string_t identifier;
{
DEMANGLE_TRACE ("identifier", dm);
dyn_string_clear (identifier);
if (!dyn_string_resize (identifier, length))
return STATUS_ALLOCATION_FAILED;
while (length-- > 0)
{
int ch;
if (end_of_name_p (dm))
return "Unexpected end of name in <identifier>.";
ch = next_char (dm);
if (ch == '_'
&& peek_char (dm) == '_'
&& peek_char_next (dm) == 'U')
{
char buf[10];
int pos = 0;
advance_char (dm); advance_char (dm); length -= 2;
while (length-- > 0)
{
ch = next_char (dm);
if (!isxdigit (ch))
break;
buf[pos++] = ch;
}
if (ch != '_' || length < 0)
return STATUS_ERROR;
if (pos == 0)
{
if (!dyn_string_append_cstr (identifier, "__U"))
return STATUS_ALLOCATION_FAILED;
continue;
}
else
{
buf[pos] = '\0';
ch = strtol (buf, 0, 16);
}
}
if (!dyn_string_append_char (identifier, ch))
return STATUS_ALLOCATION_FAILED;
}
if (!flag_strict)
{
char *name = dyn_string_buf (identifier);
int prefix_length = strlen (ANONYMOUS_NAMESPACE_PREFIX);
if (strncmp (name, ANONYMOUS_NAMESPACE_PREFIX, prefix_length) == 0)
{
name += prefix_length;
if ((*name == '.' || *name == '_' || *name == '$')
&& *(name + 1) == 'N')
dyn_string_copy_cstr (identifier, "(anonymous namespace)");
}
}
return STATUS_OK;
}
static status_t
demangle_operator_name (dm, short_name, num_args, type_arg)
demangling_t dm;
int short_name;
int *num_args;
int *type_arg;
{
struct operator_code
{
const char *const code;
const char *const name;
const int num_args;
};
static const struct operator_code operators[] =
{
{ "aN", "&=" , 2 },
{ "aS", "=" , 2 },
{ "aa", "&&" , 2 },
{ "ad", "&" , 1 },
{ "an", "&" , 2 },
{ "cl", "()" , 0 },
{ "cm", "," , 2 },
{ "co", "~" , 1 },
{ "dV", "/=" , 2 },
{ "da", " delete[]", 1 },
{ "de", "*" , 1 },
{ "dl", " delete" , 1 },
{ "dv", "/" , 2 },
{ "eO", "^=" , 2 },
{ "eo", "^" , 2 },
{ "eq", "==" , 2 },
{ "ge", ">=" , 2 },
{ "gt", ">" , 2 },
{ "ix", "[]" , 2 },
{ "lS", "<<=" , 2 },
{ "le", "<=" , 2 },
{ "ls", "<<" , 2 },
{ "lt", "<" , 2 },
{ "mI", "-=" , 2 },
{ "mL", "*=" , 2 },
{ "mi", "-" , 2 },
{ "ml", "*" , 2 },
{ "mm", "--" , 1 },
{ "na", " new[]" , 1 },
{ "ne", "!=" , 2 },
{ "ng", "-" , 1 },
{ "nt", "!" , 1 },
{ "nw", " new" , 1 },
{ "oR", "|=" , 2 },
{ "oo", "||" , 2 },
{ "or", "|" , 2 },
{ "pL", "+=" , 2 },
{ "pl", "+" , 2 },
{ "pm", "->*" , 2 },
{ "pp", "++" , 1 },
{ "ps", "+" , 1 },
{ "pt", "->" , 2 },
{ "qu", "?" , 3 },
{ "rM", "%=" , 2 },
{ "rS", ">>=" , 2 },
{ "rm", "%" , 2 },
{ "rs", ">>" , 2 },
{ "sz", " sizeof" , 1 }
};
const int num_operators =
sizeof (operators) / sizeof (struct operator_code);
int c0 = next_char (dm);
int c1 = next_char (dm);
const struct operator_code* p1 = operators;
const struct operator_code* p2 = operators + num_operators;
DEMANGLE_TRACE ("operator-name", dm);
if (type_arg)
*type_arg = 0;
if (c0 == 'v' && IS_DIGIT (c1))
{
RETURN_IF_ERROR (result_add (dm, "operator "));
RETURN_IF_ERROR (demangle_source_name (dm));
*num_args = 0;
return STATUS_OK;
}
if (c0 == 'c' && c1 == 'v')
{
RETURN_IF_ERROR (result_add (dm, "operator "));
RETURN_IF_ERROR (demangle_type (dm));
*num_args = 0;
return STATUS_OK;
}
if (c0 == 's' && c1 == 't')
{
RETURN_IF_ERROR (result_add (dm, " sizeof"));
*num_args = 1;
if (type_arg)
*type_arg = 1;
return STATUS_OK;
}
while (1)
{
const struct operator_code* p = p1 + (p2 - p1) / 2;
char match0 = p->code[0];
char match1 = p->code[1];
if (c0 == match0 && c1 == match1)
{
if (!short_name)
RETURN_IF_ERROR (result_add (dm, "operator"));
RETURN_IF_ERROR (result_add (dm, p->name));
*num_args = p->num_args;
return STATUS_OK;
}
if (p == p1)
return "Unknown code in <operator-name>.";
if (c0 < match0 || (c0 == match0 && c1 < match1))
p2 = p;
else
p1 = p;
}
}
static status_t
demangle_nv_offset (dm)
demangling_t dm;
{
dyn_string_t number;
status_t status = STATUS_OK;
DEMANGLE_TRACE ("h-offset", dm);
number = dyn_string_new (4);
if (number == NULL)
return STATUS_ALLOCATION_FAILED;
demangle_number_literally (dm, number, 10, 1);
if (flag_verbose)
{
status = result_add (dm, " [nv:");
if (STATUS_NO_ERROR (status))
status = result_add_string (dm, number);
if (STATUS_NO_ERROR (status))
status = result_add_char (dm, ']');
}
dyn_string_delete (number);
RETURN_IF_ERROR (status);
return STATUS_OK;
}
static status_t
demangle_v_offset (dm)
demangling_t dm;
{
dyn_string_t number;
status_t status = STATUS_OK;
DEMANGLE_TRACE ("v-offset", dm);
number = dyn_string_new (4);
if (number == NULL)
return STATUS_ALLOCATION_FAILED;
demangle_number_literally (dm, number, 10, 1);
if (flag_verbose)
{
status = result_add (dm, " [v:");
if (STATUS_NO_ERROR (status))
status = result_add_string (dm, number);
if (STATUS_NO_ERROR (status))
result_add_char (dm, ',');
}
dyn_string_delete (number);
RETURN_IF_ERROR (status);
RETURN_IF_ERROR (demangle_char (dm, '_'));
number = dyn_string_new (4);
if (number == NULL)
return STATUS_ALLOCATION_FAILED;
demangle_number_literally (dm, number, 10, 1);
if (flag_verbose)
{
status = result_add_string (dm, number);
if (STATUS_NO_ERROR (status))
status = result_add_char (dm, ']');
}
dyn_string_delete (number);
RETURN_IF_ERROR (status);
return STATUS_OK;
}
static status_t
demangle_call_offset (dm)
demangling_t dm;
{
DEMANGLE_TRACE ("call-offset", dm);
switch (peek_char (dm))
{
case 'h':
advance_char (dm);
RETURN_IF_ERROR (demangle_nv_offset (dm));
RETURN_IF_ERROR (demangle_char (dm, '_'));
break;
case 'v':
advance_char (dm);
RETURN_IF_ERROR (demangle_v_offset (dm));
RETURN_IF_ERROR (demangle_char (dm, '_'));
break;
default:
return "Unrecognized <call-offset>.";
}
return STATUS_OK;
}
static status_t
demangle_special_name (dm)
demangling_t dm;
{
dyn_string_t number;
int unused;
char peek = peek_char (dm);
DEMANGLE_TRACE ("special-name", dm);
if (peek == 'G')
{
advance_char (dm);
switch (peek_char (dm))
{
case 'V':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "guard variable for "));
RETURN_IF_ERROR (demangle_name (dm, &unused));
break;
case 'R':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "reference temporary for "));
RETURN_IF_ERROR (demangle_name (dm, &unused));
break;
default:
return "Unrecognized <special-name>.";
}
}
else if (peek == 'T')
{
status_t status = STATUS_OK;
advance_char (dm);
switch (peek_char (dm))
{
case 'V':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "vtable for "));
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'T':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "VTT for "));
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'I':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "typeinfo for "));
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'F':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "typeinfo fn for "));
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'S':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "typeinfo name for "));
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'J':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "java Class for "));
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'h':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "non-virtual thunk"));
RETURN_IF_ERROR (demangle_nv_offset (dm));
RETURN_IF_ERROR (demangle_char (dm, '_'));
RETURN_IF_ERROR (result_add (dm, " to "));
RETURN_IF_ERROR (demangle_encoding (dm));
break;
case 'v':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "virtual thunk"));
RETURN_IF_ERROR (demangle_v_offset (dm));
RETURN_IF_ERROR (demangle_char (dm, '_'));
RETURN_IF_ERROR (result_add (dm, " to "));
RETURN_IF_ERROR (demangle_encoding (dm));
break;
case 'c':
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "covariant return thunk"));
RETURN_IF_ERROR (demangle_call_offset (dm));
RETURN_IF_ERROR (demangle_call_offset (dm));
RETURN_IF_ERROR (result_add (dm, " to "));
RETURN_IF_ERROR (demangle_encoding (dm));
break;
case 'C':
if (!flag_strict)
{
dyn_string_t derived_type;
advance_char (dm);
RETURN_IF_ERROR (result_add (dm, "construction vtable for "));
RETURN_IF_ERROR (result_push (dm));
RETURN_IF_ERROR (demangle_type (dm));
derived_type = (dyn_string_t) result_pop (dm);
number = dyn_string_new (4);
if (number == NULL)
{
dyn_string_delete (derived_type);
return STATUS_ALLOCATION_FAILED;
}
demangle_number_literally (dm, number, 10, 1);
status = demangle_char (dm, '_');
if (STATUS_NO_ERROR (status))
status = demangle_type (dm);
if (STATUS_NO_ERROR (status))
status = result_add (dm, "-in-");
if (STATUS_NO_ERROR (status))
status = result_add_string (dm, derived_type);
dyn_string_delete (derived_type);
if (flag_verbose)
{
status = result_add_char (dm, ' ');
if (STATUS_NO_ERROR (status))
result_add_string (dm, number);
}
dyn_string_delete (number);
RETURN_IF_ERROR (status);
break;
}
default:
return "Unrecognized <special-name>.";
}
}
else
return STATUS_ERROR;
return STATUS_OK;
}
static status_t
demangle_ctor_dtor_name (dm)
demangling_t dm;
{
static const char *const ctor_flavors[] =
{
"in-charge",
"not-in-charge",
"allocating",
"unified"
};
static const char *const dtor_flavors[] =
{
"in-charge deleting",
"in-charge",
"not-in-charge",
"",
"unified"
};
int flavor;
char peek = peek_char (dm);
DEMANGLE_TRACE ("ctor-dtor-name", dm);
if (peek == 'C')
{
advance_char (dm);
flavor = next_char (dm);
if (flavor < '1' || flavor > '4')
return "Unrecognized constructor.";
RETURN_IF_ERROR (result_add_string (dm, dm->last_source_name));
switch (flavor)
{
case '1': dm->is_constructor = gnu_v3_complete_object_ctor;
break;
case '2': dm->is_constructor = gnu_v3_base_object_ctor;
break;
case '3': dm->is_constructor = gnu_v3_complete_object_allocating_ctor;
break;
case '4': dm->is_constructor = gnu_v3_unified_ctor;
break;
}
if (flag_verbose)
{
RETURN_IF_ERROR (result_add (dm, "["));
RETURN_IF_ERROR (result_add (dm, ctor_flavors[flavor - '1']));
RETURN_IF_ERROR (result_add_char (dm, ']'));
}
}
else if (peek == 'D')
{
advance_char (dm);
flavor = next_char (dm);
if (flavor < '0' || flavor > '4' || flavor == '3')
return "Unrecognized destructor.";
RETURN_IF_ERROR (result_add_char (dm, '~'));
RETURN_IF_ERROR (result_add_string (dm, dm->last_source_name));
switch (flavor)
{
case '0': dm->is_destructor = gnu_v3_deleting_dtor;
break;
case '1': dm->is_destructor = gnu_v3_complete_object_dtor;
break;
case '2': dm->is_destructor = gnu_v3_base_object_dtor;
break;
case '4': dm->is_destructor = gnu_v3_unified_dtor;
break;
}
if (flag_verbose)
{
RETURN_IF_ERROR (result_add (dm, " ["));
RETURN_IF_ERROR (result_add (dm, dtor_flavors[flavor - '0']));
RETURN_IF_ERROR (result_add_char (dm, ']'));
}
}
else
return STATUS_ERROR;
return STATUS_OK;
}
static status_t
demangle_type_ptr (dm, insert_pos, substitution_start)
demangling_t dm;
int *insert_pos;
int substitution_start;
{
status_t status;
int is_substitution_candidate = 1;
DEMANGLE_TRACE ("type*", dm);
switch (peek_char (dm))
{
case 'P':
advance_char (dm);
RETURN_IF_ERROR (demangle_type_ptr (dm, insert_pos,
substitution_start));
if (dm->style != DMGL_JAVA)
RETURN_IF_ERROR (result_insert_char (dm, *insert_pos, '*'));
++(*insert_pos);
break;
case 'R':
advance_char (dm);
RETURN_IF_ERROR (demangle_type_ptr (dm, insert_pos,
substitution_start));
RETURN_IF_ERROR (result_insert_char (dm, *insert_pos, '&'));
++(*insert_pos);
break;
case 'M':
{
dyn_string_t class_type;
advance_char (dm);
RETURN_IF_ERROR (result_push (dm));
RETURN_IF_ERROR (demangle_type (dm));
class_type = (dyn_string_t) result_pop (dm);
if (peek_char (dm) == 'F')
status = demangle_type_ptr (dm, insert_pos, substitution_start);
else if (peek_char (dm) == 'A')
status = demangle_array_type (dm, insert_pos);
else
{
status = demangle_type (dm);
if (STATUS_NO_ERROR (status)
&& !result_previous_char_is_space (dm))
status = result_add_char (dm, ' ');
*insert_pos = result_caret_pos (dm);
}
if (STATUS_NO_ERROR (status))
status = result_insert (dm, *insert_pos, "::*");
if (STATUS_NO_ERROR (status))
status = result_insert_string (dm, *insert_pos, class_type);
*insert_pos += dyn_string_length (class_type) + 3;
dyn_string_delete (class_type);
RETURN_IF_ERROR (status);
}
break;
case 'F':
*insert_pos = result_caret_pos (dm);
RETURN_IF_ERROR (result_add (dm, "()"));
RETURN_IF_ERROR (demangle_function_type (dm, insert_pos));
++(*insert_pos);
break;
case 'A':
RETURN_IF_ERROR (demangle_array_type (dm, insert_pos));
break;
default:
RETURN_IF_ERROR (demangle_type (dm));
*insert_pos = result_caret_pos (dm);
is_substitution_candidate = 0;
break;
}
if (is_substitution_candidate)
RETURN_IF_ERROR (substitution_add (dm, substitution_start, 0));
return STATUS_OK;
}
static status_t
demangle_type (dm)
demangling_t dm;
{
int start = substitution_start (dm);
char peek = peek_char (dm);
char peek_next;
int encode_return_type = 0;
template_arg_list_t old_arg_list = current_template_arg_list (dm);
int insert_pos;
int is_substitution_candidate = 1;
DEMANGLE_TRACE ("type", dm);
if (IS_DIGIT ((unsigned char) peek) || peek == 'N' || peek == 'Z')
RETURN_IF_ERROR (demangle_class_enum_type (dm, &encode_return_type));
else if (peek >= 'a' && peek <= 'z' && peek != 'r')
{
RETURN_IF_ERROR (demangle_builtin_type (dm));
is_substitution_candidate = 0;
}
else
switch (peek)
{
case 'r':
case 'V':
case 'K':
{
status_t status;
dyn_string_t cv_qualifiers = dyn_string_new (24);
int old_caret_position = result_get_caret (dm);
if (cv_qualifiers == NULL)
return STATUS_ALLOCATION_FAILED;
demangle_CV_qualifiers (dm, cv_qualifiers);
status = result_add_string (dm, cv_qualifiers);
result_shift_caret (dm, -dyn_string_length (cv_qualifiers));
dyn_string_delete (cv_qualifiers);
RETURN_IF_ERROR (status);
RETURN_IF_ERROR (result_add_char (dm, ' '));
result_shift_caret (dm, -1);
RETURN_IF_ERROR (demangle_type (dm));
result_set_caret (dm, old_caret_position);
}
break;
case 'F':
return "Non-pointer or -reference function type.";
case 'A':
RETURN_IF_ERROR (demangle_array_type (dm, NULL));
break;
case 'T':
RETURN_IF_ERROR (demangle_template_param (dm));
if (peek_char (dm) == 'I')
{
RETURN_IF_ERROR (substitution_add (dm, start, encode_return_type));
RETURN_IF_ERROR (demangle_template_args (dm));
}
break;
case 'S':
peek_next = peek_char_next (dm);
if (IS_DIGIT (peek_next) || peek_next == '_')
{
RETURN_IF_ERROR (demangle_substitution (dm, &encode_return_type));
if (peek_char (dm) == 'I')
RETURN_IF_ERROR (demangle_template_args (dm));
else
is_substitution_candidate = 0;
}
else
{
const char *next = dm->next;
RETURN_IF_ERROR
(demangle_class_enum_type (dm, &encode_return_type));
if (dm->next == next + 2)
is_substitution_candidate = 0;
}
break;
case 'P':
case 'R':
case 'M':
RETURN_IF_ERROR (demangle_type_ptr (dm, &insert_pos, start));
is_substitution_candidate = 0;
break;
case 'C':
RETURN_IF_ERROR (result_add (dm, "complex "));
advance_char (dm);
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'G':
RETURN_IF_ERROR (result_add (dm, "imaginary "));
advance_char (dm);
RETURN_IF_ERROR (demangle_type (dm));
break;
case 'U':
advance_char (dm);
RETURN_IF_ERROR (demangle_source_name (dm));
RETURN_IF_ERROR (result_add_char (dm, ' '));
RETURN_IF_ERROR (demangle_type (dm));
break;
default:
return "Unexpected character in <type>.";
}
if (is_substitution_candidate)
RETURN_IF_ERROR (substitution_add (dm, start, encode_return_type));
pop_to_template_arg_list (dm, old_arg_list);
return STATUS_OK;
}
static const char *const builtin_type_names[26] =
{
"signed char",
"bool",
"char",
"double",
"long double",
"float",
"__float128",
"unsigned char",
"int",
"unsigned",
NULL,
"long",
"unsigned long",
"__int128",
"unsigned __int128",
NULL,
NULL,
NULL,
"short",
"unsigned short",
NULL,
"void",
"wchar_t",
"long long",
"unsigned long long",
"..."
};
static const char *const java_builtin_type_names[26] =
{
"signed char",
"boolean",
"byte",
"double",
"long double",
"float",
"__float128",
"unsigned char",
"int",
"unsigned",
NULL,
"long",
"unsigned long",
"__int128",
"unsigned __int128",
NULL,
NULL,
NULL,
"short",
"unsigned short",
NULL,
"void",
"char",
"long",
"unsigned long long",
"..."
};
static status_t
demangle_builtin_type (dm)
demangling_t dm;
{
char code = peek_char (dm);
DEMANGLE_TRACE ("builtin-type", dm);
if (code == 'u')
{
advance_char (dm);
RETURN_IF_ERROR (demangle_source_name (dm));
return STATUS_OK;
}
else if (code >= 'a' && code <= 'z')
{
const char *type_name;
if (dm->style == DMGL_JAVA)
type_name = java_builtin_type_names[code - 'a'];
else
type_name = builtin_type_names[code - 'a'];
if (type_name == NULL)
return "Unrecognized <builtin-type> code.";
RETURN_IF_ERROR (result_add (dm, type_name));
advance_char (dm);
return STATUS_OK;
}
else
return "Non-alphabetic <builtin-type> code.";
}
static status_t
demangle_CV_qualifiers (dm, qualifiers)
demangling_t dm;
dyn_string_t qualifiers;
{
DEMANGLE_TRACE ("CV-qualifiers", dm);
while (1)
{
switch (peek_char (dm))
{
case 'r':
if (!dyn_string_append_space (qualifiers))
return STATUS_ALLOCATION_FAILED;
if (!dyn_string_append_cstr (qualifiers, "restrict"))
return STATUS_ALLOCATION_FAILED;
break;
case 'V':
if (!dyn_string_append_space (qualifiers))
return STATUS_ALLOCATION_FAILED;
if (!dyn_string_append_cstr (qualifiers, "volatile"))
return STATUS_ALLOCATION_FAILED;
break;
case 'K':
if (!dyn_string_append_space (qualifiers))
return STATUS_ALLOCATION_FAILED;
if (!dyn_string_append_cstr (qualifiers, "const"))
return STATUS_ALLOCATION_FAILED;
break;
default:
return STATUS_OK;
}
advance_char (dm);
}
}
static status_t
demangle_function_type (dm, function_name_pos)
demangling_t dm;
int *function_name_pos;
{
DEMANGLE_TRACE ("function-type", dm);
RETURN_IF_ERROR (demangle_char (dm, 'F'));
if (peek_char (dm) == 'Y')
{
if (flag_verbose)
RETURN_IF_ERROR (result_add (dm, " [extern \"C\"] "));
advance_char (dm);
}
RETURN_IF_ERROR (demangle_bare_function_type (dm, function_name_pos));
RETURN_IF_ERROR (demangle_char (dm, 'E'));
return STATUS_OK;
}
static status_t
demangle_bare_function_type (dm, return_type_pos)
demangling_t dm;
int *return_type_pos;
{
int sequence =
(return_type_pos == BFT_NO_RETURN_TYPE ? 0 : -1);
DEMANGLE_TRACE ("bare-function-type", dm);
RETURN_IF_ERROR (result_add_char (dm, '('));
while (!end_of_name_p (dm) && peek_char (dm) != 'E')
{
if (sequence == -1)
{
dyn_string_t return_type;
status_t status = STATUS_OK;
RETURN_IF_ERROR (result_push (dm));
RETURN_IF_ERROR (demangle_type (dm));
return_type = (dyn_string_t) result_pop (dm);
if (!dyn_string_append_space (return_type))
status = STATUS_ALLOCATION_FAILED;
if (STATUS_NO_ERROR (status))
{
if (!dyn_string_insert (result_string (dm), *return_type_pos,
return_type))
status = STATUS_ALLOCATION_FAILED;
else
*return_type_pos += dyn_string_length (return_type);
}
dyn_string_delete (return_type);
RETURN_IF_ERROR (status);
}
else
{
if (peek_char (dm) == 'v')
advance_char (dm);
else
{
if (sequence > 0)
RETURN_IF_ERROR (result_add (dm, ", "));
RETURN_IF_ERROR (demangle_type (dm));
}
}
++sequence;
}
RETURN_IF_ERROR (result_add_char (dm, ')'));
if (sequence == -1)
return "Missing function return type.";
else if (sequence == 0)
return "Missing function parameter.";
return STATUS_OK;
}
static status_t
demangle_class_enum_type (dm, encode_return_type)
demangling_t dm;
int *encode_return_type;
{
DEMANGLE_TRACE ("class-enum-type", dm);
RETURN_IF_ERROR (demangle_name (dm, encode_return_type));
return STATUS_OK;
}
static status_t
demangle_array_type (dm, ptr_insert_pos)
demangling_t dm;
int *ptr_insert_pos;
{
status_t status = STATUS_OK;
dyn_string_t array_size = NULL;
char peek;
DEMANGLE_TRACE ("array-type", dm);
RETURN_IF_ERROR (demangle_char (dm, 'A'));
peek = peek_char (dm);
if (peek == '_')
;
else if (IS_DIGIT (peek_char (dm)))
{
array_size = dyn_string_new (10);
if (array_size == NULL)
return STATUS_ALLOCATION_FAILED;
status = demangle_number_literally (dm, array_size, 10, 0);
}
else
{
RETURN_IF_ERROR (result_push (dm));
RETURN_IF_ERROR (demangle_expression (dm));
array_size = (dyn_string_t) result_pop (dm);
}
if (STATUS_NO_ERROR (status))
status = demangle_char (dm, '_');
if (STATUS_NO_ERROR (status))
status = demangle_type (dm);
if (ptr_insert_pos != NULL)
{
if (STATUS_NO_ERROR (status))
status = result_add (dm, " () ");
*ptr_insert_pos = result_caret_pos (dm) - 2;
}
if (STATUS_NO_ERROR (status))
status = result_add_char (dm, '[');
if (STATUS_NO_ERROR (status) && array_size != NULL)
status = result_add_string (dm, array_size);
if (STATUS_NO_ERROR (status))
status = result_add_char (dm, ']');
if (array_size != NULL)
dyn_string_delete (array_size);
RETURN_IF_ERROR (status);
return STATUS_OK;
}
static status_t
demangle_template_param (dm)
demangling_t dm;
{
int parm_number;
template_arg_list_t current_arg_list = current_template_arg_list (dm);
string_list_t arg;
DEMANGLE_TRACE ("template-param", dm);
if (current_arg_list == NULL)
return "Template parameter outside of template.";
RETURN_IF_ERROR (demangle_char (dm, 'T'));
if (peek_char (dm) == '_')
parm_number = 0;
else
{
RETURN_IF_ERROR (demangle_number (dm, &parm_number, 10, 0));
++parm_number;
}
RETURN_IF_ERROR (demangle_char (dm, '_'));
arg = template_arg_list_get_arg (current_arg_list, parm_number);
if (arg == NULL)
return "Template parameter number out of bounds.";
RETURN_IF_ERROR (result_add_string (dm, (dyn_string_t) arg));
return STATUS_OK;
}
static status_t
demangle_template_args (dm)
demangling_t dm;
{
int first = 1;
dyn_string_t old_last_source_name;
template_arg_list_t arg_list = template_arg_list_new ();
if (arg_list == NULL)
return STATUS_ALLOCATION_FAILED;
old_last_source_name = dm->last_source_name;
dm->last_source_name = dyn_string_new (0);
DEMANGLE_TRACE ("template-args", dm);
if (dm->last_source_name == NULL)
return STATUS_ALLOCATION_FAILED;
RETURN_IF_ERROR (demangle_char (dm, 'I'));
RETURN_IF_ERROR (result_open_template_list (dm));
do
{
string_list_t arg;
if (first)
first = 0;
else
RETURN_IF_ERROR (result_add (dm, ", "));
RETURN_IF_ERROR (result_push (dm));
RETURN_IF_ERROR (demangle_template_arg (dm));
arg = result_pop (dm);
RETURN_IF_ERROR (result_add_string (dm, (dyn_string_t) arg));
template_arg_list_add_arg (arg_list, arg);
}
while (peek_char (dm) != 'E');
RETURN_IF_ERROR (result_close_template_list (dm));
advance_char (dm);
dyn_string_delete (dm->last_source_name);
dm->last_source_name = old_last_source_name;
push_template_arg_list (dm, arg_list);
return STATUS_OK;
}
static status_t
demangle_literal (dm)
demangling_t dm;
{
char peek = peek_char (dm);
dyn_string_t value_string;
status_t status;
DEMANGLE_TRACE ("literal", dm);
if (!flag_verbose && peek >= 'a' && peek <= 'z')
{
static const char *const code_map = "ibi iii ll ii i ";
char code = code_map[peek - 'a'];
if (code == 'u')
return STATUS_UNIMPLEMENTED;
if (code == 'b')
{
char value;
advance_char (dm);
value = peek_char (dm);
if (value == '0')
RETURN_IF_ERROR (result_add (dm, "false"));
else if (value == '1')
RETURN_IF_ERROR (result_add (dm, "true"));
else
return "Unrecognized bool constant.";
advance_char (dm);
return STATUS_OK;
}
else if (code == 'i' || code == 'l')
{
advance_char (dm);
value_string = dyn_string_new (0);
status = demangle_number_literally (dm, value_string, 10, 1);
if (STATUS_NO_ERROR (status))
status = result_add_string (dm, value_string);
if (code == 'l' && STATUS_NO_ERROR (status))
status = result_add_char (dm, code);
dyn_string_delete (value_string);
RETURN_IF_ERROR (status);
return STATUS_OK;
}
}
RETURN_IF_ERROR (result_add_char (dm, '('));
RETURN_IF_ERROR (demangle_type (dm));
RETURN_IF_ERROR (result_add_char (dm, ')'));
value_string = dyn_string_new (0);
if (value_string == NULL)
return STATUS_ALLOCATION_FAILED;
status = demangle_number_literally (dm, value_string, 10, 1);
if (STATUS_NO_ERROR (status))
status = result_add_string (dm, value_string);
dyn_string_delete (value_string);
RETURN_IF_ERROR (status);
return STATUS_OK;
}
static status_t
demangle_template_arg (dm)
demangling_t dm;
{
DEMANGLE_TRACE ("template-arg", dm);
switch (peek_char (dm))
{
case 'L':
advance_char (dm);
if (peek_char (dm) == 'Z')
{
advance_char (dm);
RETURN_IF_ERROR (demangle_encoding (dm));
}
else
RETURN_IF_ERROR (demangle_literal (dm));
RETURN_IF_ERROR (demangle_char (dm, 'E'));
break;
case 'X':
advance_char (dm);
RETURN_IF_ERROR (demangle_expression (dm));
RETURN_IF_ERROR (demangle_char (dm, 'E'));
break;
default:
RETURN_IF_ERROR (demangle_type (dm));
break;
}
return STATUS_OK;
}
static status_t
demangle_expression (dm)
demangling_t dm;
{
char peek = peek_char (dm);
DEMANGLE_TRACE ("expression", dm);
if (peek == 'L' || peek == 'T')
RETURN_IF_ERROR (demangle_expr_primary (dm));
else if (peek == 's' && peek_char_next (dm) == 'r')
RETURN_IF_ERROR (demangle_scope_expression (dm));
else
{
int num_args;
int type_arg;
status_t status = STATUS_OK;
dyn_string_t operator_name;
RETURN_IF_ERROR (result_push (dm));
RETURN_IF_ERROR (demangle_operator_name (dm, 1, &num_args,
&type_arg));
operator_name = (dyn_string_t) result_pop (dm);
if (num_args > 1)
{
status = result_add_char (dm, '(');
if (STATUS_NO_ERROR (status))
status = demangle_expression (dm);
if (STATUS_NO_ERROR (status))
status = result_add_char (dm, ')');
}
if (STATUS_NO_ERROR (status))
status = result_add_string (dm, operator_name);
dyn_string_delete (operator_name);
RETURN_IF_ERROR (status);
RETURN_IF_ERROR (result_add_char (dm, '('));
if (type_arg)
RETURN_IF_ERROR (demangle_type (dm));
else
RETURN_IF_ERROR (demangle_expression (dm));
RETURN_IF_ERROR (result_add_char (dm, ')'));
if (num_args == 3)
{
RETURN_IF_ERROR (result_add (dm, ":("));
RETURN_IF_ERROR (demangle_expression (dm));
RETURN_IF_ERROR (result_add_char (dm, ')'));
}
}
return STATUS_OK;
}
static status_t
demangle_scope_expression (dm)
demangling_t dm;
{
RETURN_IF_ERROR (demangle_char (dm, 's'));
RETURN_IF_ERROR (demangle_char (dm, 'r'));
RETURN_IF_ERROR (demangle_type (dm));
RETURN_IF_ERROR (result_add (dm, "::"));
RETURN_IF_ERROR (demangle_encoding (dm));
return STATUS_OK;
}
static status_t
demangle_expr_primary (dm)
demangling_t dm;
{
char peek = peek_char (dm);
DEMANGLE_TRACE ("expr-primary", dm);
if (peek == 'T')
RETURN_IF_ERROR (demangle_template_param (dm));
else if (peek == 'L')
{
advance_char (dm);
peek = peek_char (dm);
if (peek == '_')
RETURN_IF_ERROR (demangle_mangled_name (dm));
else
RETURN_IF_ERROR (demangle_literal (dm));
RETURN_IF_ERROR (demangle_char (dm, 'E'));
}
else
return STATUS_ERROR;
return STATUS_OK;
}
static status_t
demangle_substitution (dm, template_p)
demangling_t dm;
int *template_p;
{
int seq_id;
int peek;
dyn_string_t text;
DEMANGLE_TRACE ("substitution", dm);
RETURN_IF_ERROR (demangle_char (dm, 'S'));
peek = peek_char (dm);
if (peek == '_')
seq_id = -1;
else if (IS_DIGIT ((unsigned char) peek)
|| (peek >= 'A' && peek <= 'Z'))
RETURN_IF_ERROR (demangle_number (dm, &seq_id, 36, 0));
else
{
const char *new_last_source_name = NULL;
switch (peek)
{
case 't':
RETURN_IF_ERROR (result_add (dm, "std"));
break;
case 'a':
RETURN_IF_ERROR (result_add (dm, "std::allocator"));
new_last_source_name = "allocator";
*template_p = 1;
break;
case 'b':
RETURN_IF_ERROR (result_add (dm, "std::basic_string"));
new_last_source_name = "basic_string";
*template_p = 1;
break;
case 's':
if (!flag_verbose)
{
RETURN_IF_ERROR (result_add (dm, "std::string"));
new_last_source_name = "string";
}
else
{
RETURN_IF_ERROR (result_add (dm, "std::basic_string<char, std::char_traits<char>, std::allocator<char> >"));
new_last_source_name = "basic_string";
}
*template_p = 0;
break;
case 'i':
if (!flag_verbose)
{
RETURN_IF_ERROR (result_add (dm, "std::istream"));
new_last_source_name = "istream";
}
else
{
RETURN_IF_ERROR (result_add (dm, "std::basic_istream<char, std::char_traints<char> >"));
new_last_source_name = "basic_istream";
}
*template_p = 0;
break;
case 'o':
if (!flag_verbose)
{
RETURN_IF_ERROR (result_add (dm, "std::ostream"));
new_last_source_name = "ostream";
}
else
{
RETURN_IF_ERROR (result_add (dm, "std::basic_ostream<char, std::char_traits<char> >"));
new_last_source_name = "basic_ostream";
}
*template_p = 0;
break;
case 'd':
if (!flag_verbose)
{
RETURN_IF_ERROR (result_add (dm, "std::iostream"));
new_last_source_name = "iostream";
}
else
{
RETURN_IF_ERROR (result_add (dm, "std::basic_iostream<char, std::char_traits<char> >"));
new_last_source_name = "basic_iostream";
}
*template_p = 0;
break;
default:
return "Unrecognized <substitution>.";
}
advance_char (dm);
if (new_last_source_name != NULL)
{
if (!dyn_string_copy_cstr (dm->last_source_name,
new_last_source_name))
return STATUS_ALLOCATION_FAILED;
}
return STATUS_OK;
}
text = substitution_get (dm, seq_id + 1, template_p);
if (text == NULL)
return "Substitution number out of range.";
RETURN_IF_ERROR (result_add_string (dm, text));
RETURN_IF_ERROR (demangle_char (dm, '_'));
return STATUS_OK;
}
static status_t
demangle_local_name (dm)
demangling_t dm;
{
DEMANGLE_TRACE ("local-name", dm);
RETURN_IF_ERROR (demangle_char (dm, 'Z'));
RETURN_IF_ERROR (demangle_encoding (dm));
RETURN_IF_ERROR (demangle_char (dm, 'E'));
RETURN_IF_ERROR (result_add (dm, "::"));
if (peek_char (dm) == 's')
{
RETURN_IF_ERROR (result_add (dm, "string literal"));
advance_char (dm);
RETURN_IF_ERROR (demangle_discriminator (dm, 0));
}
else
{
int unused;
RETURN_IF_ERROR (demangle_name (dm, &unused));
RETURN_IF_ERROR (demangle_discriminator (dm, 1));
}
return STATUS_OK;
}
static status_t
demangle_discriminator (dm, suppress_first)
demangling_t dm;
int suppress_first;
{
if (peek_char (dm) == '_')
{
advance_char (dm);
if (flag_verbose)
RETURN_IF_ERROR (result_add (dm, " [#"));
if (IS_DIGIT ((unsigned char) peek_char (dm)))
{
int discriminator;
RETURN_IF_ERROR (demangle_number (dm, &discriminator, 10, 0));
if (flag_verbose)
RETURN_IF_ERROR (int_to_dyn_string (discriminator + 1,
(dyn_string_t) dm->result));
}
else
return STATUS_ERROR;
if (flag_verbose)
RETURN_IF_ERROR (result_add_char (dm, ']'));
}
else if (!suppress_first)
{
if (flag_verbose)
RETURN_IF_ERROR (result_add (dm, " [#0]"));
}
return STATUS_OK;
}
static status_t
cp_demangle (name, result, style)
const char *name;
dyn_string_t result;
int style;
{
status_t status;
int length = strlen (name);
if (length > 2 && name[0] == '_' && name[1] == 'Z')
{
demangling_t dm = demangling_new (name, style);
if (dm == NULL)
return STATUS_ALLOCATION_FAILED;
status = result_push (dm);
if (status != STATUS_OK)
{
demangling_delete (dm);
return status;
}
status = demangle_mangled_name (dm);
if (STATUS_NO_ERROR (status))
{
dyn_string_t demangled = (dyn_string_t) result_pop (dm);
if (!dyn_string_copy (result, demangled))
return STATUS_ALLOCATION_FAILED;
dyn_string_delete (demangled);
}
demangling_delete (dm);
}
else
{
if (!dyn_string_copy_cstr (result, name))
return STATUS_ALLOCATION_FAILED;
status = STATUS_OK;
}
return status;
}
static status_t
cp_demangle_type (type_name, result)
const char* type_name;
dyn_string_t result;
{
status_t status;
demangling_t dm = demangling_new (type_name, DMGL_GNU_V3);
if (dm == NULL)
return STATUS_ALLOCATION_FAILED;
status = result_push (dm);
if (status != STATUS_OK)
{
demangling_delete (dm);
return status;
}
status = demangle_type (dm);
if (STATUS_NO_ERROR (status))
{
dyn_string_t demangled = (dyn_string_t) result_pop (dm);
if (!dyn_string_copy (result, demangled))
return STATUS_ALLOCATION_FAILED;
dyn_string_delete (demangled);
}
demangling_delete (dm);
return status;
}
#if defined(IN_LIBGCC2) || defined(IN_GLIBCPP_V3)
extern char *__cxa_demangle PARAMS ((const char *, char *, size_t *, int *));
char *
__cxa_demangle (mangled_name, output_buffer, length, status)
const char *mangled_name;
char *output_buffer;
size_t *length;
int *status;
{
struct dyn_string demangled_name;
status_t result;
if (status == NULL)
return NULL;
if (mangled_name == NULL) {
*status = -3;
return NULL;
}
if (output_buffer == NULL) {
if (!dyn_string_init (&demangled_name, 0))
{
*status = -1;
return NULL;
}
}
else {
if (length == NULL) {
*status = -3;
return NULL;
}
demangled_name.allocated = *length;
demangled_name.length = 0;
demangled_name.s = output_buffer;
}
if (mangled_name[0] == '_' && mangled_name[1] == 'Z')
result = cp_demangle (mangled_name, &demangled_name, 0);
else
result = cp_demangle_type (mangled_name, &demangled_name);
if (result == STATUS_OK)
{
if (length != NULL)
*length = demangled_name.allocated;
*status = 0;
return dyn_string_buf (&demangled_name);
}
else if (result == STATUS_ALLOCATION_FAILED)
{
*status = -1;
return NULL;
}
else
{
if (output_buffer == NULL)
free (dyn_string_buf (&demangled_name));
*status = -2;
return NULL;
}
}
#else
char *
cplus_demangle_v3 (mangled, options)
const char* mangled;
int options;
{
dyn_string_t demangled;
status_t status;
int type = !!(options & DMGL_TYPES);
if (mangled[0] == '_' && mangled[1] == 'Z')
type = 0;
else
{
if (!type)
return NULL;
}
flag_verbose = !!(options & DMGL_VERBOSE);
demangled = dyn_string_new (0);
if (!type)
status = cp_demangle (mangled, demangled, 0);
else
status = cp_demangle_type (mangled, demangled);
if (STATUS_NO_ERROR (status))
{
char *return_value = dyn_string_release (demangled);
return return_value;
}
else if (status == STATUS_ALLOCATION_FAILED)
{
fprintf (stderr, "Memory allocation failed.\n");
abort ();
}
else
{
dyn_string_delete (demangled);
return NULL;
}
}
char *
java_demangle_v3 (mangled)
const char* mangled;
{
dyn_string_t demangled;
char *next;
char *end;
int len;
status_t status;
int nesting = 0;
char *cplus_demangled;
char *return_value;
demangled = dyn_string_new (0);
status = cp_demangle ((char *) mangled, demangled, DMGL_JAVA);
if (STATUS_NO_ERROR (status))
{
cplus_demangled = dyn_string_release (demangled);
}
else if (status == STATUS_ALLOCATION_FAILED)
{
fprintf (stderr, "Memory allocation failed.\n");
abort ();
}
else
{
dyn_string_delete (demangled);
return NULL;
}
len = strlen (cplus_demangled);
next = cplus_demangled;
end = next + len;
demangled = NULL;
while (next < end)
{
char *open_str = strstr (next, "JArray<");
char *close_str = NULL;
if (nesting > 0)
close_str = strchr (next, '>');
if (open_str != NULL && (close_str == NULL || close_str > open_str))
{
++nesting;
if (!demangled)
demangled = dyn_string_new(len);
if (open_str > next)
{
open_str[0] = 0;
dyn_string_append_cstr (demangled, next);
}
next = open_str + 7;
}
else if (close_str != NULL)
{
--nesting;
if (close_str > next && next[0] != ' ')
{
close_str[0] = 0;
dyn_string_append_cstr (demangled, next);
}
dyn_string_append_cstr (demangled, "[]");
next = close_str + 1;
}
else
{
if (next == cplus_demangled)
return cplus_demangled;
dyn_string_append_cstr (demangled, next);
next = end;
}
}
free (cplus_demangled);
if (demangled)
return_value = dyn_string_release (demangled);
else
return_value = NULL;
return return_value;
}
#endif
#ifndef IN_GLIBCPP_V3
static demangling_t
demangle_v3_with_details (name)
const char *name;
{
demangling_t dm;
status_t status;
if (strncmp (name, "_Z", 2))
return 0;
dm = demangling_new (name, DMGL_GNU_V3);
if (dm == NULL)
{
fprintf (stderr, "Memory allocation failed.\n");
abort ();
}
status = result_push (dm);
if (! STATUS_NO_ERROR (status))
{
demangling_delete (dm);
fprintf (stderr, "%s\n", status);
abort ();
}
status = demangle_mangled_name (dm);
if (STATUS_NO_ERROR (status))
return dm;
demangling_delete (dm);
return 0;
}
enum gnu_v3_ctor_kinds
is_gnu_v3_mangled_ctor (name)
const char *name;
{
demangling_t dm = demangle_v3_with_details (name);
if (dm)
{
enum gnu_v3_ctor_kinds result = dm->is_constructor;
demangling_delete (dm);
return result;
}
else
return (enum gnu_v3_ctor_kinds) 0;
}
enum gnu_v3_dtor_kinds
is_gnu_v3_mangled_dtor (name)
const char *name;
{
demangling_t dm = demangle_v3_with_details (name);
if (dm)
{
enum gnu_v3_dtor_kinds result = dm->is_destructor;
demangling_delete (dm);
return result;
}
else
return (enum gnu_v3_dtor_kinds) 0;
}
#endif
#ifdef STANDALONE_DEMANGLER
#include "getopt.h"
static void print_usage
PARAMS ((FILE* fp, int exit_value));
#define is_mangled_char(CHAR) \
(IS_ALPHA (CHAR) || IS_DIGIT (CHAR) \
|| (CHAR) == '_' || (CHAR) == '.' || (CHAR) == '$')
const char* program_name;
static void
print_usage (fp, exit_value)
FILE* fp;
int exit_value;
{
fprintf (fp, "Usage: %s [options] [names ...]\n", program_name);
fprintf (fp, "Options:\n");
fprintf (fp, " -h,--help Display this message.\n");
fprintf (fp, " -s,--strict Demangle standard names only.\n");
fprintf (fp, " -v,--verbose Produce verbose demanglings.\n");
fprintf (fp, "If names are provided, they are demangled. Otherwise filters standard input.\n");
exit (exit_value);
}
static const struct option long_options[] =
{
{ "help", no_argument, NULL, 'h' },
{ "strict", no_argument, NULL, 's' },
{ "verbose", no_argument, NULL, 'v' },
{ NULL, no_argument, NULL, 0 },
};
int
main (argc, argv)
int argc;
char *argv[];
{
status_t status;
int i;
int opt_char;
program_name = argv[0];
do
{
opt_char = getopt_long (argc, argv, "hsv", long_options, NULL);
switch (opt_char)
{
case '?':
print_usage (stderr, 1);
break;
case 'h':
print_usage (stdout, 0);
break;
case 's':
flag_strict = 1;
break;
case 'v':
flag_verbose = 1;
break;
}
}
while (opt_char != -1);
if (optind == argc)
{
dyn_string_t mangled = dyn_string_new (3);
dyn_string_t demangled = dyn_string_new (0);
status_t status;
while (!feof (stdin))
{
char c = getchar ();
if (feof (stdin))
break;
if (c != '_')
{
putchar (c);
continue;
}
c = getchar ();
if (feof (stdin))
break;
if (c != 'Z')
{
putchar ('_');
putchar (c);
continue;
}
dyn_string_append_char (mangled, '_');
dyn_string_append_char (mangled, 'Z');
c = getchar ();
while (!feof (stdin) && is_mangled_char (c))
{
dyn_string_append_char (mangled, c);
if (feof (stdin))
break;
c = getchar ();
}
status = cp_demangle (dyn_string_buf (mangled), demangled, 0);
if (STATUS_NO_ERROR (status))
fputs (dyn_string_buf (demangled), stdout);
else if (status == STATUS_ALLOCATION_FAILED)
{
fprintf (stderr, "Memory allocation failed.\n");
abort ();
}
else
fputs (dyn_string_buf (mangled), stdout);
if (!feof (stdin))
putchar (c);
dyn_string_clear (mangled);
}
dyn_string_delete (mangled);
dyn_string_delete (demangled);
}
else
{
dyn_string_t result = dyn_string_new (0);
for (i = optind; i < argc; ++i)
{
status = cp_demangle (argv[i], result, 0);
if (STATUS_NO_ERROR (status))
printf ("%s\n", dyn_string_buf (result));
else if (status == STATUS_ALLOCATION_FAILED)
{
fprintf (stderr, "Memory allocation failed.\n");
abort ();
}
else
fprintf (stderr, "%s\n", status);
}
dyn_string_delete (result);
}
return 0;
}
#endif