1/* Demangler for GNU C++ - main program 2 Copyright 1989, 1991, 1994, 1995, 1996, 1997, 1998, 1999, 3 2000, 2001, 2002, 2003 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 7 8This file is part of GCC. 9 10GCC is free software; you can redistribute it and/or modify it under 11the terms of the GNU General Public License as published by the Free 12Software Foundation; either version 2, or (at your option) any later 13version. 14 15GCC is distributed in the hope that it will be useful, but WITHOUT ANY 16WARRANTY; without even the implied warranty of MERCHANTABILITY or 17FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 18for more details. 19 20You should have received a copy of the GNU General Public License 21along with GCC; see the file COPYING. If not, write to the Free 22Software Foundation, 59 Temple Place - Suite 330, Boston, MA 2302111-1307, USA. */ 24 25#include "config.h" 26#include "bfd.h" 27#include "bucomm.h" 28#include "libiberty.h" 29#include "demangle.h" 30#include "getopt.h" 31#include "safe-ctype.h" 32 33static int flags = DMGL_PARAMS | DMGL_ANSI | DMGL_VERBOSE; 34 35static void demangle_it (char *); 36static void usage (FILE *, int) ATTRIBUTE_NORETURN; 37static void print_demangler_list (FILE *); 38 39static void 40demangle_it (char *mangled_name) 41{ 42 char *result; 43 44 /* For command line args, also try to demangle type encodings. */ 45 result = cplus_demangle (mangled_name, flags | DMGL_TYPES); 46 if (result == NULL) 47 { 48 printf ("%s\n", mangled_name); 49 } 50 else 51 { 52 printf ("%s\n", result); 53 free (result); 54 } 55} 56 57static void 58print_demangler_list (FILE *stream) 59{ 60 const struct demangler_engine *demangler; 61 62 fprintf (stream, "{%s", libiberty_demanglers->demangling_style_name); 63 64 for (demangler = libiberty_demanglers + 1; 65 demangler->demangling_style != unknown_demangling; 66 ++demangler) 67 fprintf (stream, ",%s", demangler->demangling_style_name); 68 69 fprintf (stream, "}"); 70} 71 72static void 73usage (FILE *stream, int status) 74{ 75 fprintf (stream, "\ 76Usage: %s [-_] [-n] [--strip-underscores] [--no-strip-underscores]\n\ 77 [-p] [--no-params]\n", 78 program_name); 79 80 fprintf (stream, "\ 81 [-s "); 82 print_demangler_list (stream); 83 fprintf (stream, "]\n"); 84 85 fprintf (stream, "\ 86 [--format "); 87 print_demangler_list (stream); 88 fprintf (stream, "]\n"); 89 90 fprintf (stream, "\ 91 [--help] [--version] [arg...]\n"); 92 exit (status); 93} 94 95#define MBUF_SIZE 32767 96char mbuffer[MBUF_SIZE]; 97 98int strip_underscore = 0; 99 100static const struct option long_options[] = { 101 {"strip-underscores", no_argument, 0, '_'}, 102 {"format", required_argument, 0, 's'}, 103 {"help", no_argument, 0, 'h'}, 104 {"no-params", no_argument, 0, 'p'}, 105 {"no-strip-underscores", no_argument, 0, 'n'}, 106 {"version", no_argument, 0, 'v'}, 107 {0, no_argument, 0, 0} 108}; 109 110static const char *standard_symbol_characters (void); 111 112static const char *hp_symbol_characters (void); 113 114/* Return the string of non-alnum characters that may occur 115 as a valid symbol component, in the standard assembler symbol 116 syntax. */ 117 118static const char * 119standard_symbol_characters (void) 120{ 121 return "_$."; 122} 123 124 125/* Return the string of non-alnum characters that may occur 126 as a valid symbol name component in an HP object file. 127 128 Note that, since HP's compiler generates object code straight from 129 C++ source, without going through an assembler, its mangled 130 identifiers can use all sorts of characters that no assembler would 131 tolerate, so the alphabet this function creates is a little odd. 132 Here are some sample mangled identifiers offered by HP: 133 134 typeid*__XT24AddressIndExpClassMember_ 135 [Vftptr]key:__dt__32OrdinaryCompareIndExpClassMemberFv 136 __ct__Q2_9Elf64_Dyn18{unnamed.union.#1}Fv 137 138 This still seems really weird to me, since nowhere else in this 139 file is there anything to recognize curly brackets, parens, etc. 140 I've talked with Srikanth <srikanth@cup.hp.com>, and he assures me 141 this is right, but I still strongly suspect that there's a 142 misunderstanding here. 143 144 If we decide it's better for c++filt to use HP's assembler syntax 145 to scrape identifiers out of its input, here's the definition of 146 the symbol name syntax from the HP assembler manual: 147 148 Symbols are composed of uppercase and lowercase letters, decimal 149 digits, dollar symbol, period (.), ampersand (&), pound sign(#) and 150 underscore (_). A symbol can begin with a letter, digit underscore or 151 dollar sign. If a symbol begins with a digit, it must contain a 152 non-digit character. 153 154 So have fun. */ 155static const char * 156hp_symbol_characters (void) 157{ 158 return "_$.<>#,*&[]:(){}"; 159} 160 161extern int main (int, char **); 162 163int 164main (int argc, char **argv) 165{ 166 char *result; 167 int c; 168 const char *valid_symbols; 169 enum demangling_styles style = auto_demangling; 170 171 program_name = argv[0]; 172 xmalloc_set_program_name (program_name); 173 174 expandargv (&argc, &argv); 175 176 strip_underscore = TARGET_PREPENDS_UNDERSCORE; 177 178 while ((c = getopt_long (argc, argv, "_nps:", long_options, (int *) 0)) != EOF) 179 { 180 switch (c) 181 { 182 case '?': 183 usage (stderr, 1); 184 break; 185 case 'h': 186 usage (stdout, 0); 187 case 'n': 188 strip_underscore = 0; 189 break; 190 case 'p': 191 flags &= ~ DMGL_PARAMS; 192 break; 193 case 'v': 194 print_version ("c++filt"); 195 return (0); 196 case '_': 197 strip_underscore = 1; 198 break; 199 case 's': 200 { 201 style = cplus_demangle_name_to_style (optarg); 202 if (style == unknown_demangling) 203 { 204 fprintf (stderr, "%s: unknown demangling style `%s'\n", 205 program_name, optarg); 206 return (1); 207 } 208 else 209 cplus_demangle_set_style (style); 210 } 211 break; 212 } 213 } 214 215 if (optind < argc) 216 { 217 for ( ; optind < argc; optind++) 218 { 219 demangle_it (argv[optind]); 220 } 221 } 222 else 223 { 224 switch (current_demangling_style) 225 { 226 case gnu_demangling: 227 case lucid_demangling: 228 case arm_demangling: 229 case java_demangling: 230 case edg_demangling: 231 case gnat_demangling: 232 case gnu_v3_demangling: 233 case auto_demangling: 234 valid_symbols = standard_symbol_characters (); 235 break; 236 case hp_demangling: 237 valid_symbols = hp_symbol_characters (); 238 break; 239 default: 240 /* Folks should explicitly indicate the appropriate alphabet for 241 each demangling. Providing a default would allow the 242 question to go unconsidered. */ 243 fatal ("Internal error: no symbol alphabet for current style"); 244 } 245 246 for (;;) 247 { 248 int i = 0; 249 c = getchar (); 250 /* Try to read a label. */ 251 while (c != EOF && (ISALNUM (c) || strchr (valid_symbols, c))) 252 { 253 if (i >= MBUF_SIZE-1) 254 break; 255 mbuffer[i++] = c; 256 c = getchar (); 257 } 258 if (i > 0) 259 { 260 int skip_first = 0; 261 262 mbuffer[i] = 0; 263 if (mbuffer[0] == '.' || mbuffer[0] == '$') 264 ++skip_first; 265 if (strip_underscore && mbuffer[skip_first] == '_') 266 ++skip_first; 267 268 if (skip_first > i) 269 skip_first = i; 270 271 flags |= (int) style; 272 result = cplus_demangle (mbuffer + skip_first, flags); 273 if (result) 274 { 275 if (mbuffer[0] == '.') 276 putc ('.', stdout); 277 fputs (result, stdout); 278 free (result); 279 } 280 else 281 fputs (mbuffer, stdout); 282 283 fflush (stdout); 284 } 285 if (c == EOF) 286 break; 287 putchar (c); 288 fflush (stdout); 289 } 290 } 291 292 return (0); 293} 294