1 /* Multiple source language support for GDB.
31    return data out of a "language-specific" struct pointer that is set
32    whenever the working language changes.  That would be a lot faster.  */
43 #include "language.h"
111    on the default language at startup, and then again based on the
112    language of the first source file.  */
121 /* The current language and language_mode (see language.h) */
126 /* The language that the user expects to be typing in (the language
127    of main(), or the last language we notified them about, or C).  */
138 /* The "set language/type/range" commands all put stuff in these
144 static char *language;  variable
149 /* Warning issued when current_language and the language of the current
152 "Warning: the current language does not match this frame.";
157 /* Show command.  Display a warning if the language set
162   enum language flang;		/* The language of the current frame */  in show_language_command()
171 /* Set command.  Change the current working language. */
176   enum language flang;  in set_language_command()
179   if (!language || !language[0])  in set_language_command()
193 	  printf_unfiltered ("%-16s Use the %c%s language\n",  in set_language_command()
195 	  /* Capitalize first letter of language  in set_language_command()
208       if (strcmp (languages[i]->la_name, language) == 0)  in set_language_command()
210 	  /* Found it!  Go into manual mode, and use this language.  */  in set_language_command()
213 	      /* Enter auto mode.  Set to the current frame's language, if known.  */  in set_language_command()
223 	      /* Enter manual mode.  Set the specified language.  */  in set_language_command()
234   /* Reset the language (esp. the global string "language") to the   in set_language_command()
236   err_lang = savestring (language, strlen (language));  in set_language_command()
239   error ("Unknown language `%s'.", err_lang);  in set_language_command()
243    not match the current language. */
249 			"Warning: the current type check setting does not match the language.\n");  in show_type_command()
288    not match the current language. */
295 			"Warning: the current range check setting does not match the language.\n");  in show_range_command()
334    not match the current language. */
340 "Warning: the current case sensitivity setting does not match the language.\n");  in show_case_command()
374    the current modes and the current language.
375    If SHOW is non-zero, then print out the current language,
395 /* Set current language to (enum language) LANG.  Returns previous language. */
397 enum language
398 set_language (enum language lang)  in set_language()
401   enum language prev_language;  in set_language()
420    language, type and range. */
426   if (language)  in set_lang_str()
427     xfree (language);  in set_lang_str()
431   language = concat (prefix, current_language->la_name, NULL);  in set_lang_str()
514 /* Print out the current language settings: language, range and
524   printf_unfiltered ("Current language:  %s\n", language);  in language_info()
591    Note that some of them are not currently dependent upon which language
674       error ("Language not supported.");
857      not depend on the language except insofar as is necessary to identify  in value_true()
867 /* These are called when a language fails a type- or range-check.  The
929 /* Return the language enum for a given language string. */
931 enum language
943 /* Return the language struct for a given language enum. */
946 language_def (enum language lang)  in language_def()
960 /* Return the language as a string */
962 language_str (enum language lang)  in language_str()
990 /* Add a language to the set of known languages.  */
997       fprintf_unfiltered (gdb_stderr, "Magic number of %s language struct wrong\n",  in add_language()
1039 /* Return demangled language symbol, or NULL.  
1044    language, so we can't use this everywhere.  */
1074 /* Define the language that is no language.  */
1085   error ("Attempted to parse an expression with unknown language");  in unk_lang_error()
1185   unk_lang_trampoline,		/* Language specific skip_trampoline */
1189   unk_lang_demangle,		/* Language specific symbol demangler */
1190   unk_lang_class_name,		/* Language specific class_name_from_physname */
1221   unk_lang_trampoline,		/* Language specific skip_trampoline */
1225   unk_lang_demangle,		/* Language specific symbol demangler */
1226   unk_lang_class_name,		/* Language specific class_name_from_physname */
1256   unk_lang_trampoline,		/* Language specific skip_trampoline */
1260   unk_lang_demangle,		/* Language specific symbol demangler */
1261   unk_lang_class_name,		/* Language specific class_name_from_physname */
1271 /* Per-architecture language information.  */
1277   /* A vector of per-language per-architecture info.  Indexed by "enum
1278      language".  */
1341 /* Initialize the language routines */
1351   /* GDB commands for language specific stuff */  in _initialize_language()
1353   set = add_set_cmd ("language", class_support, var_string_noescape,  in _initialize_language()
1354 		     (char *) &language,  in _initialize_language()
1355 		     "Set the current source language.",  in _initialize_language()
1402   language = savestring ("auto", strlen ("auto"));  in _initialize_language()