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