1 /* Demangler for GNU C++ - main program
2 Copyright 1989, 1991, 1994, 1995, 1996, 1997, 1998, 1999,
3 2000, 2001, 2002, 2003, 2005 Free Software Foundation, Inc.
4 Written by James Clark (jjc@jclark.uucp)
5 Rewritten by Fred Fish (fnf@cygnus.com) for ARM and Lucid demangling
6 Modified by Satish Pai (pai@apollo.hp.com) for HP demangling
8 This file is part of GCC.
10 GCC is free software; you can redistribute it and/or modify it under
11 the terms of the GNU General Public License as published by the Free
12 Software Foundation; either version 2, or (at your option) any later
15 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
16 WARRANTY; without even the implied warranty of MERCHANTABILITY or
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
20 You should have received a copy of the GNU General Public License
21 along with GCC; see the file COPYING. If not, write to the Free
22 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
28 #include "libiberty.h"
31 #include "safe-ctype.h"
33 static int flags
= DMGL_PARAMS
| DMGL_ANSI
| DMGL_VERBOSE
| DMGL_TYPES
;
34 static int strip_underscore
= TARGET_PREPENDS_UNDERSCORE
;
36 static const struct option long_options
[] =
38 {"strip-underscore", no_argument
, NULL
, '_'},
39 {"format", required_argument
, NULL
, 's'},
40 {"help", no_argument
, NULL
, 'h'},
41 {"no-params", no_argument
, NULL
, 'p'},
42 {"no-strip-underscores", no_argument
, NULL
, 'n'},
43 {"no-types", no_argument
, NULL
, 't'},
44 {"no-verbose", no_argument
, NULL
, 'i'},
45 {"version", no_argument
, NULL
, 'v'},
46 {NULL
, no_argument
, NULL
, 0}
50 demangle_it (char *mangled_name
)
53 unsigned int skip_first
= 0;
55 if (mangled_name
[0] == '.' || mangled_name
[0] == '$')
57 if (strip_underscore
&& mangled_name
[skip_first
] == '_')
60 result
= cplus_demangle (mangled_name
+ skip_first
, flags
);
66 if (mangled_name
[0] == '.')
74 print_demangler_list (FILE *stream
)
76 const struct demangler_engine
*demangler
;
78 fprintf (stream
, "{%s", libiberty_demanglers
->demangling_style_name
);
80 for (demangler
= libiberty_demanglers
+ 1;
81 demangler
->demangling_style
!= unknown_demangling
;
83 fprintf (stream
, ",%s", demangler
->demangling_style_name
);
85 fprintf (stream
, "}");
89 usage (FILE *stream
, int status
)
92 Usage: %s [options] [mangled names]\n", program_name
);
95 [-_|--strip-underscore] Ignore first leading underscore%s\n",
96 TARGET_PREPENDS_UNDERSCORE
? " (default)" : "");
98 [-n|--no-strip-underscore] Do not ignore a leading underscore%s\n",
99 TARGET_PREPENDS_UNDERSCORE
? "" : " (default)");
101 [-p|--no-params] Do not display function arguments\n\
102 [-t|--no-types] Do not try to demangle type encodings\n\
103 [-i|--no-verbose] Do not show implementation details (if any)\n\
105 print_demangler_list (stream
);
106 fprintf (stream
, "]\n");
109 [@<file>] Read extra options from <file>\n\
110 [-h|--help] Display this information\n\
111 [-v|--version] Show the version information\n\
112 Demangled names are displayed to stdout.\n\
113 If a name cannot be demangled it is just echoed to stdout.\n\
114 If no names are provided on the command line, stdin is read.\n");
118 /* Return the string of non-alnum characters that may occur
119 as a valid symbol component, in the standard assembler symbol
123 standard_symbol_characters (void)
128 /* Return the string of non-alnum characters that may occur
129 as a valid symbol name component in an HP object file.
131 Note that, since HP's compiler generates object code straight from
132 C++ source, without going through an assembler, its mangled
133 identifiers can use all sorts of characters that no assembler would
134 tolerate, so the alphabet this function creates is a little odd.
135 Here are some sample mangled identifiers offered by HP:
137 typeid*__XT24AddressIndExpClassMember_
138 [Vftptr]key:__dt__32OrdinaryCompareIndExpClassMemberFv
139 __ct__Q2_9Elf64_Dyn18{unnamed.union.#1}Fv
141 This still seems really weird to me, since nowhere else in this
142 file is there anything to recognize curly brackets, parens, etc.
143 I've talked with Srikanth <srikanth@cup.hp.com>, and he assures me
144 this is right, but I still strongly suspect that there's a
145 misunderstanding here.
147 If we decide it's better for c++filt to use HP's assembler syntax
148 to scrape identifiers out of its input, here's the definition of
149 the symbol name syntax from the HP assembler manual:
151 Symbols are composed of uppercase and lowercase letters, decimal
152 digits, dollar symbol, period (.), ampersand (&), pound sign(#) and
153 underscore (_). A symbol can begin with a letter, digit underscore or
154 dollar sign. If a symbol begins with a digit, it must contain a
159 hp_symbol_characters (void)
161 return "_$.<>#,*&[]:(){}";
164 extern int main (int, char **);
167 main (int argc
, char **argv
)
170 const char *valid_symbols
;
171 enum demangling_styles style
= auto_demangling
;
173 program_name
= argv
[0];
174 xmalloc_set_program_name (program_name
);
176 expandargv (&argc
, &argv
);
178 while ((c
= getopt_long (argc
, argv
, "_hinps:tv", long_options
, (int *) 0)) != EOF
)
188 strip_underscore
= 0;
191 flags
&= ~ DMGL_PARAMS
;
194 flags
&= ~ DMGL_TYPES
;
197 flags
&= ~ DMGL_VERBOSE
;
200 print_version ("c++filt");
203 strip_underscore
= 1;
206 style
= cplus_demangle_name_to_style (optarg
);
207 if (style
== unknown_demangling
)
209 fprintf (stderr
, "%s: unknown demangling style `%s'\n",
210 program_name
, optarg
);
213 cplus_demangle_set_style (style
);
220 for ( ; optind
< argc
; optind
++)
221 demangle_it (argv
[optind
]);
226 switch (current_demangling_style
)
229 case lucid_demangling
:
231 case java_demangling
:
233 case gnat_demangling
:
234 case gnu_v3_demangling
:
235 case auto_demangling
:
236 valid_symbols
= standard_symbol_characters ();
239 valid_symbols
= hp_symbol_characters ();
242 /* Folks should explicitly indicate the appropriate alphabet for
243 each demangling. Providing a default would allow the
244 question to go unconsidered. */
245 fatal ("Internal error: no symbol alphabet for current style");
250 static char mbuffer
[32767];
254 /* Try to read a mangled name. */
255 while (c
!= EOF
&& (ISALNUM (c
) || strchr (valid_symbols
, c
)))
257 if (i
>= sizeof (mbuffer
) - 1)
266 demangle_it (mbuffer
);