Add some more casts (1/2)
[external/binutils.git] / gdb / language.c
1 /* Multiple source language support for GDB.
2
3    Copyright (C) 1991-2015 Free Software Foundation, Inc.
4
5    Contributed by the Department of Computer Science at the State University
6    of New York at Buffalo.
7
8    This file is part of GDB.
9
10    This program is free software; you can redistribute it and/or modify
11    it under the terms of the GNU General Public License as published by
12    the Free Software Foundation; either version 3 of the License, or
13    (at your option) any later version.
14
15    This program is distributed in the hope that it will be useful,
16    but WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18    GNU General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
22
23 /* This file contains functions that return things that are specific
24    to languages.  Each function should examine current_language if necessary,
25    and return the appropriate result.  */
26
27 /* FIXME:  Most of these would be better organized as macros which
28    return data out of a "language-specific" struct pointer that is set
29    whenever the working language changes.  That would be a lot faster.  */
30
31 #include "defs.h"
32 #include <ctype.h>
33 #include "symtab.h"
34 #include "gdbtypes.h"
35 #include "value.h"
36 #include "gdbcmd.h"
37 #include "expression.h"
38 #include "language.h"
39 #include "varobj.h"
40 #include "target.h"
41 #include "parser-defs.h"
42 #include "jv-lang.h"
43 #include "demangle.h"
44 #include "symfile.h"
45 #include "cp-support.h"
46 #include "frame.h"
47
48 extern void _initialize_language (void);
49
50 static void unk_lang_error (char *);
51
52 static int unk_lang_parser (struct parser_state *);
53
54 static void show_check (char *, int);
55
56 static void set_check (char *, int);
57
58 static void set_range_case (void);
59
60 static void unk_lang_emit_char (int c, struct type *type,
61                                 struct ui_file *stream, int quoter);
62
63 static void unk_lang_printchar (int c, struct type *type,
64                                 struct ui_file *stream);
65
66 static void unk_lang_value_print (struct value *, struct ui_file *,
67                                   const struct value_print_options *);
68
69 static CORE_ADDR unk_lang_trampoline (struct frame_info *, CORE_ADDR pc);
70
71 /* Forward declaration */
72 extern const struct language_defn unknown_language_defn;
73
74 /* The current (default at startup) state of type and range checking.
75    (If the modes are set to "auto", though, these are changed based
76    on the default language at startup, and then again based on the
77    language of the first source file.  */
78
79 enum range_mode range_mode = range_mode_auto;
80 enum range_check range_check = range_check_off;
81 enum case_mode case_mode = case_mode_auto;
82 enum case_sensitivity case_sensitivity = case_sensitive_on;
83
84 /* The current language and language_mode (see language.h).  */
85
86 const struct language_defn *current_language = &unknown_language_defn;
87 enum language_mode language_mode = language_mode_auto;
88
89 /* The language that the user expects to be typing in (the language
90    of main(), or the last language we notified them about, or C).  */
91
92 const struct language_defn *expected_language;
93
94 /* The list of supported languages.  The list itself is malloc'd.  */
95
96 static const struct language_defn **languages;
97 static unsigned languages_size;
98 static unsigned languages_allocsize;
99 #define DEFAULT_ALLOCSIZE 4
100
101 /* The current values of the "set language/type/range" enum
102    commands.  */
103 static const char *language;
104 static const char *type;
105 static const char *range;
106 static const char *case_sensitive;
107
108 /* Warning issued when current_language and the language of the current
109    frame do not match.  */
110 char lang_frame_mismatch_warn[] =
111 "Warning: the current language does not match this frame.";
112 \f
113 /* This page contains the functions corresponding to GDB commands
114    and their helpers.  */
115
116 /* Show command.  Display a warning if the language set
117    does not match the frame.  */
118 static void
119 show_language_command (struct ui_file *file, int from_tty,
120                        struct cmd_list_element *c, const char *value)
121 {
122   enum language flang;          /* The language of the frame.  */
123
124   if (language_mode == language_mode_auto)
125     fprintf_filtered (gdb_stdout,
126                       _("The current source language is "
127                         "\"auto; currently %s\".\n"),
128                       current_language->la_name);
129   else
130     fprintf_filtered (gdb_stdout,
131                       _("The current source language is \"%s\".\n"),
132                       current_language->la_name);
133
134   if (has_stack_frames ())
135     {
136       struct frame_info *frame;
137
138       frame = get_selected_frame (NULL);
139       flang = get_frame_language (frame);
140       if (flang != language_unknown
141           && language_mode == language_mode_manual
142           && current_language->la_language != flang)
143         printf_filtered ("%s\n", lang_frame_mismatch_warn);
144     }
145 }
146
147 /* Set command.  Change the current working language.  */
148 static void
149 set_language_command (char *ignore, int from_tty, struct cmd_list_element *c)
150 {
151   int i;
152   enum language flang = language_unknown;
153
154   /* Search the list of languages for a match.  */
155   for (i = 0; i < languages_size; i++)
156     {
157       if (strcmp (languages[i]->la_name, language) == 0)
158         {
159           /* Found it!  Go into manual mode, and use this language.  */
160           if (languages[i]->la_language == language_auto)
161             {
162               /* Enter auto mode.  Set to the current frame's language, if
163                  known, or fallback to the initial language.  */
164               language_mode = language_mode_auto;
165               TRY
166                 {
167                   struct frame_info *frame;
168
169                   frame = get_selected_frame (NULL);
170                   flang = get_frame_language (frame);
171                 }
172               CATCH (ex, RETURN_MASK_ERROR)
173                 {
174                   flang = language_unknown;
175                 }
176               END_CATCH
177
178               if (flang != language_unknown)
179                 set_language (flang);
180               else
181                 set_initial_language ();
182               expected_language = current_language;
183               return;
184             }
185           else
186             {
187               /* Enter manual mode.  Set the specified language.  */
188               language_mode = language_mode_manual;
189               current_language = languages[i];
190               set_range_case ();
191               expected_language = current_language;
192               return;
193             }
194         }
195     }
196
197   internal_error (__FILE__, __LINE__,
198                   "Couldn't find language `%s' in known languages list.",
199                   language);
200 }
201
202 /* Show command.  Display a warning if the range setting does
203    not match the current language.  */
204 static void
205 show_range_command (struct ui_file *file, int from_tty,
206                     struct cmd_list_element *c, const char *value)
207 {
208   if (range_mode == range_mode_auto)
209     {
210       char *tmp;
211
212       switch (range_check)
213         {
214         case range_check_on:
215           tmp = "on";
216           break;
217         case range_check_off:
218           tmp = "off";
219           break;
220         case range_check_warn:
221           tmp = "warn";
222           break;
223         default:
224           internal_error (__FILE__, __LINE__,
225                           "Unrecognized range check setting.");
226         }
227
228       fprintf_filtered (gdb_stdout,
229                         _("Range checking is \"auto; currently %s\".\n"),
230                         tmp);
231     }
232   else
233     fprintf_filtered (gdb_stdout, _("Range checking is \"%s\".\n"),
234                       value);
235
236   if (range_check != current_language->la_range_check)
237     warning (_("the current range check setting "
238                "does not match the language.\n"));
239 }
240
241 /* Set command.  Change the setting for range checking.  */
242 static void
243 set_range_command (char *ignore, int from_tty, struct cmd_list_element *c)
244 {
245   if (strcmp (range, "on") == 0)
246     {
247       range_check = range_check_on;
248       range_mode = range_mode_manual;
249     }
250   else if (strcmp (range, "warn") == 0)
251     {
252       range_check = range_check_warn;
253       range_mode = range_mode_manual;
254     }
255   else if (strcmp (range, "off") == 0)
256     {
257       range_check = range_check_off;
258       range_mode = range_mode_manual;
259     }
260   else if (strcmp (range, "auto") == 0)
261     {
262       range_mode = range_mode_auto;
263       set_range_case ();
264       return;
265     }
266   else
267     {
268       internal_error (__FILE__, __LINE__,
269                       _("Unrecognized range check setting: \"%s\""), range);
270     }
271   if (range_check != current_language->la_range_check)
272     warning (_("the current range check setting "
273                "does not match the language.\n"));
274 }
275
276 /* Show command.  Display a warning if the case sensitivity setting does
277    not match the current language.  */
278 static void
279 show_case_command (struct ui_file *file, int from_tty,
280                    struct cmd_list_element *c, const char *value)
281 {
282   if (case_mode == case_mode_auto)
283     {
284       char *tmp = NULL;
285
286       switch (case_sensitivity)
287         {
288         case case_sensitive_on:
289           tmp = "on";
290           break;
291         case case_sensitive_off:
292           tmp = "off";
293           break;
294         default:
295           internal_error (__FILE__, __LINE__,
296                           "Unrecognized case-sensitive setting.");
297         }
298
299       fprintf_filtered (gdb_stdout,
300                         _("Case sensitivity in "
301                           "name search is \"auto; currently %s\".\n"),
302                         tmp);
303     }
304   else
305     fprintf_filtered (gdb_stdout,
306                       _("Case sensitivity in name search is \"%s\".\n"),
307                       value);
308
309   if (case_sensitivity != current_language->la_case_sensitivity)
310     warning (_("the current case sensitivity setting does not match "
311                "the language.\n"));
312 }
313
314 /* Set command.  Change the setting for case sensitivity.  */
315
316 static void
317 set_case_command (char *ignore, int from_tty, struct cmd_list_element *c)
318 {
319    if (strcmp (case_sensitive, "on") == 0)
320      {
321        case_sensitivity = case_sensitive_on;
322        case_mode = case_mode_manual;
323      }
324    else if (strcmp (case_sensitive, "off") == 0)
325      {
326        case_sensitivity = case_sensitive_off;
327        case_mode = case_mode_manual;
328      }
329    else if (strcmp (case_sensitive, "auto") == 0)
330      {
331        case_mode = case_mode_auto;
332        set_range_case ();
333        return;
334      }
335    else
336      {
337        internal_error (__FILE__, __LINE__,
338                        "Unrecognized case-sensitive setting: \"%s\"",
339                        case_sensitive);
340      }
341
342    if (case_sensitivity != current_language->la_case_sensitivity)
343      warning (_("the current case sensitivity setting does not match "
344                 "the language.\n"));
345 }
346
347 /* Set the status of range and type checking and case sensitivity based on
348    the current modes and the current language.
349    If SHOW is non-zero, then print out the current language,
350    type and range checking status.  */
351 static void
352 set_range_case (void)
353 {
354   if (range_mode == range_mode_auto)
355     range_check = current_language->la_range_check;
356
357   if (case_mode == case_mode_auto)
358     case_sensitivity = current_language->la_case_sensitivity;
359 }
360
361 /* Set current language to (enum language) LANG.  Returns previous
362    language.  */
363
364 enum language
365 set_language (enum language lang)
366 {
367   int i;
368   enum language prev_language;
369
370   prev_language = current_language->la_language;
371
372   for (i = 0; i < languages_size; i++)
373     {
374       if (languages[i]->la_language == lang)
375         {
376           current_language = languages[i];
377           set_range_case ();
378           break;
379         }
380     }
381
382   return prev_language;
383 }
384 \f
385
386 /* Print out the current language settings: language, range and
387    type checking.  If QUIETLY, print only what has changed.  */
388
389 void
390 language_info (int quietly)
391 {
392   if (quietly && expected_language == current_language)
393     return;
394
395   expected_language = current_language;
396   printf_unfiltered (_("Current language:  %s\n"), language);
397   show_language_command (NULL, 1, NULL, NULL);
398
399   if (!quietly)
400     {
401       printf_unfiltered (_("Range checking:    %s\n"), range);
402       show_range_command (NULL, 1, NULL, NULL);
403       printf_unfiltered (_("Case sensitivity:  %s\n"), case_sensitive);
404       show_case_command (NULL, 1, NULL, NULL);
405     }
406 }
407 \f
408
409 /* Returns non-zero if the value is a pointer type.  */
410 int
411 pointer_type (struct type *type)
412 {
413   return TYPE_CODE (type) == TYPE_CODE_PTR ||
414     TYPE_CODE (type) == TYPE_CODE_REF;
415 }
416
417 \f
418 /* This page contains functions that return info about
419    (struct value) values used in GDB.  */
420
421 /* Returns non-zero if the value VAL represents a true value.  */
422 int
423 value_true (struct value *val)
424 {
425   /* It is possible that we should have some sort of error if a non-boolean
426      value is used in this context.  Possibly dependent on some kind of
427      "boolean-checking" option like range checking.  But it should probably
428      not depend on the language except insofar as is necessary to identify
429      a "boolean" value (i.e. in C using a float, pointer, etc., as a boolean
430      should be an error, probably).  */
431   return !value_logical_not (val);
432 }
433 \f
434 /* This page contains functions for the printing out of
435    error messages that occur during type- and range-
436    checking.  */
437
438 /* This is called when a language fails a range-check.  The
439    first argument should be a printf()-style format string, and the
440    rest of the arguments should be its arguments.  If range_check is
441    range_check_on, an error is printed;  if range_check_warn, a warning;
442    otherwise just the message.  */
443
444 void
445 range_error (const char *string,...)
446 {
447   va_list args;
448
449   va_start (args, string);
450   switch (range_check)
451     {
452     case range_check_warn:
453       vwarning (string, args);
454       break;
455     case range_check_on:
456       verror (string, args);
457       break;
458     case range_check_off:
459       /* FIXME: cagney/2002-01-30: Should this function print anything
460          when range error is off?  */
461       vfprintf_filtered (gdb_stderr, string, args);
462       fprintf_filtered (gdb_stderr, "\n");
463       break;
464     default:
465       internal_error (__FILE__, __LINE__, _("bad switch"));
466     }
467   va_end (args);
468 }
469 \f
470
471 /* This page contains miscellaneous functions.  */
472
473 /* Return the language enum for a given language string.  */
474
475 enum language
476 language_enum (char *str)
477 {
478   int i;
479
480   for (i = 0; i < languages_size; i++)
481     if (strcmp (languages[i]->la_name, str) == 0)
482       return languages[i]->la_language;
483
484   return language_unknown;
485 }
486
487 /* Return the language struct for a given language enum.  */
488
489 const struct language_defn *
490 language_def (enum language lang)
491 {
492   int i;
493
494   for (i = 0; i < languages_size; i++)
495     {
496       if (languages[i]->la_language == lang)
497         {
498           return languages[i];
499         }
500     }
501   return NULL;
502 }
503
504 /* Return the language as a string.  */
505 const char *
506 language_str (enum language lang)
507 {
508   int i;
509
510   for (i = 0; i < languages_size; i++)
511     {
512       if (languages[i]->la_language == lang)
513         {
514           return languages[i]->la_name;
515         }
516     }
517   return "Unknown";
518 }
519
520 static void
521 set_check (char *ignore, int from_tty)
522 {
523   printf_unfiltered (
524      "\"set check\" must be followed by the name of a check subcommand.\n");
525   help_list (setchecklist, "set check ", all_commands, gdb_stdout);
526 }
527
528 static void
529 show_check (char *ignore, int from_tty)
530 {
531   cmd_show_list (showchecklist, from_tty, "");
532 }
533 \f
534 /* Add a language to the set of known languages.  */
535
536 void
537 add_language (const struct language_defn *lang)
538 {
539   /* For the "set language" command.  */
540   static const char **language_names = NULL;
541   /* For the "help set language" command.  */
542   char *language_set_doc = NULL;
543
544   int i;
545   struct ui_file *tmp_stream;
546
547   if (lang->la_magic != LANG_MAGIC)
548     {
549       fprintf_unfiltered (gdb_stderr,
550                           "Magic number of %s language struct wrong\n",
551                           lang->la_name);
552       internal_error (__FILE__, __LINE__,
553                       _("failed internal consistency check"));
554     }
555
556   if (!languages)
557     {
558       languages_allocsize = DEFAULT_ALLOCSIZE;
559       languages = XNEWVEC (const struct language_defn *, languages_allocsize);
560     }
561   if (languages_size >= languages_allocsize)
562     {
563       languages_allocsize *= 2;
564       languages = (const struct language_defn **) xrealloc ((char *) languages,
565                                  languages_allocsize * sizeof (*languages));
566     }
567   languages[languages_size++] = lang;
568
569   /* Build the language names array, to be used as enumeration in the
570      set language" enum command.  */
571   language_names = XRESIZEVEC (const char *, language_names,
572                                languages_size + 1);
573
574   for (i = 0; i < languages_size; ++i)
575     language_names[i] = languages[i]->la_name;
576   language_names[i] = NULL;
577
578   /* Build the "help set language" docs.  */
579   tmp_stream = mem_fileopen ();
580
581   fprintf_unfiltered (tmp_stream,
582                       _("Set the current source language.\n"
583                         "The currently understood settings are:\n\nlocal or "
584                         "auto    Automatic setting based on source file\n"));
585
586   for (i = 0; i < languages_size; ++i)
587     {
588       /* Already dealt with these above.  */
589       if (languages[i]->la_language == language_unknown
590           || languages[i]->la_language == language_auto)
591         continue;
592
593       /* FIXME: i18n: for now assume that the human-readable name
594          is just a capitalization of the internal name.  */
595       fprintf_unfiltered (tmp_stream, "%-16s Use the %c%s language\n",
596                           languages[i]->la_name,
597                           /* Capitalize first letter of language
598                              name.  */
599                           toupper (languages[i]->la_name[0]),
600                           languages[i]->la_name + 1);
601     }
602
603   language_set_doc = ui_file_xstrdup (tmp_stream, NULL);
604   ui_file_delete (tmp_stream);
605
606   add_setshow_enum_cmd ("language", class_support,
607                         (const char **) language_names,
608                         &language,
609                         language_set_doc,
610                         _("Show the current source language."),
611                         NULL, set_language_command,
612                         show_language_command,
613                         &setlist, &showlist);
614
615   xfree (language_set_doc);
616 }
617
618 /* Iterate through all registered languages looking for and calling
619    any non-NULL struct language_defn.skip_trampoline() functions.
620    Return the result from the first that returns non-zero, or 0 if all
621    `fail'.  */
622 CORE_ADDR 
623 skip_language_trampoline (struct frame_info *frame, CORE_ADDR pc)
624 {
625   int i;
626
627   for (i = 0; i < languages_size; i++)
628     {
629       if (languages[i]->skip_trampoline)
630         {
631           CORE_ADDR real_pc = (languages[i]->skip_trampoline) (frame, pc);
632
633           if (real_pc)
634             return real_pc;
635         }
636     }
637
638   return 0;
639 }
640
641 /* Return demangled language symbol, or NULL.
642    FIXME: Options are only useful for certain languages and ignored
643    by others, so it would be better to remove them here and have a
644    more flexible demangler for the languages that need it.
645    FIXME: Sometimes the demangler is invoked when we don't know the
646    language, so we can't use this everywhere.  */
647 char *
648 language_demangle (const struct language_defn *current_language, 
649                                 const char *mangled, int options)
650 {
651   if (current_language != NULL && current_language->la_demangle)
652     return current_language->la_demangle (mangled, options);
653   return NULL;
654 }
655
656 /* Return class name from physname or NULL.  */
657 char *
658 language_class_name_from_physname (const struct language_defn *lang,
659                                    const char *physname)
660 {
661   if (lang != NULL && lang->la_class_name_from_physname)
662     return lang->la_class_name_from_physname (physname);
663   return NULL;
664 }
665
666 /* Return non-zero if TYPE should be passed (and returned) by
667    reference at the language level.  */
668 int
669 language_pass_by_reference (struct type *type)
670 {
671   return current_language->la_pass_by_reference (type);
672 }
673
674 /* Return zero; by default, types are passed by value at the language
675    level.  The target ABI may pass or return some structs by reference
676    independent of this.  */
677 int
678 default_pass_by_reference (struct type *type)
679 {
680   return 0;
681 }
682
683 /* Return the default string containing the list of characters
684    delimiting words.  This is a reasonable default value that
685    most languages should be able to use.  */
686
687 char *
688 default_word_break_characters (void)
689 {
690   return " \t\n!@#$%^&*()+=|~`}{[]\"';:?/>.<,-";
691 }
692
693 /* Print the index of array elements using the C99 syntax.  */
694
695 void
696 default_print_array_index (struct value *index_value, struct ui_file *stream,
697                            const struct value_print_options *options)
698 {
699   fprintf_filtered (stream, "[");
700   LA_VALUE_PRINT (index_value, stream, options);
701   fprintf_filtered (stream, "] = ");
702 }
703
704 void
705 default_get_string (struct value *value, gdb_byte **buffer, int *length,
706                     struct type **char_type, const char **charset)
707 {
708   error (_("Getting a string is unsupported in this language."));
709 }
710
711 /* Define the language that is no language.  */
712
713 static int
714 unk_lang_parser (struct parser_state *ps)
715 {
716   return 1;
717 }
718
719 static void
720 unk_lang_error (char *msg)
721 {
722   error (_("Attempted to parse an expression with unknown language"));
723 }
724
725 static void
726 unk_lang_emit_char (int c, struct type *type, struct ui_file *stream,
727                     int quoter)
728 {
729   error (_("internal error - unimplemented "
730            "function unk_lang_emit_char called."));
731 }
732
733 static void
734 unk_lang_printchar (int c, struct type *type, struct ui_file *stream)
735 {
736   error (_("internal error - unimplemented "
737            "function unk_lang_printchar called."));
738 }
739
740 static void
741 unk_lang_printstr (struct ui_file *stream, struct type *type,
742                    const gdb_byte *string, unsigned int length,
743                    const char *encoding, int force_ellipses,
744                    const struct value_print_options *options)
745 {
746   error (_("internal error - unimplemented "
747            "function unk_lang_printstr called."));
748 }
749
750 static void
751 unk_lang_print_type (struct type *type, const char *varstring,
752                      struct ui_file *stream, int show, int level,
753                      const struct type_print_options *flags)
754 {
755   error (_("internal error - unimplemented "
756            "function unk_lang_print_type called."));
757 }
758
759 static void
760 unk_lang_val_print (struct type *type, const gdb_byte *valaddr,
761                     int embedded_offset, CORE_ADDR address,
762                     struct ui_file *stream, int recurse,
763                     const struct value *val,
764                     const struct value_print_options *options)
765 {
766   error (_("internal error - unimplemented "
767            "function unk_lang_val_print called."));
768 }
769
770 static void
771 unk_lang_value_print (struct value *val, struct ui_file *stream,
772                       const struct value_print_options *options)
773 {
774   error (_("internal error - unimplemented "
775            "function unk_lang_value_print called."));
776 }
777
778 static CORE_ADDR unk_lang_trampoline (struct frame_info *frame, CORE_ADDR pc)
779 {
780   return 0;
781 }
782
783 /* Unknown languages just use the cplus demangler.  */
784 static char *unk_lang_demangle (const char *mangled, int options)
785 {
786   return gdb_demangle (mangled, options);
787 }
788
789 static char *unk_lang_class_name (const char *mangled)
790 {
791   return NULL;
792 }
793
794 static const struct op_print unk_op_print_tab[] =
795 {
796   {NULL, OP_NULL, PREC_NULL, 0}
797 };
798
799 static void
800 unknown_language_arch_info (struct gdbarch *gdbarch,
801                             struct language_arch_info *lai)
802 {
803   lai->string_char_type = builtin_type (gdbarch)->builtin_char;
804   lai->bool_type_default = builtin_type (gdbarch)->builtin_int;
805   lai->primitive_type_vector = GDBARCH_OBSTACK_CALLOC (gdbarch, 1,
806                                                        struct type *);
807 }
808
809 const struct language_defn unknown_language_defn =
810 {
811   "unknown",
812   "Unknown",
813   language_unknown,
814   range_check_off,
815   case_sensitive_on,
816   array_row_major,
817   macro_expansion_no,
818   &exp_descriptor_standard,
819   unk_lang_parser,
820   unk_lang_error,
821   null_post_parser,
822   unk_lang_printchar,           /* Print character constant */
823   unk_lang_printstr,
824   unk_lang_emit_char,
825   unk_lang_print_type,          /* Print a type using appropriate syntax */
826   default_print_typedef,        /* Print a typedef using appropriate syntax */
827   unk_lang_val_print,           /* Print a value using appropriate syntax */
828   unk_lang_value_print,         /* Print a top-level value */
829   default_read_var_value,       /* la_read_var_value */
830   unk_lang_trampoline,          /* Language specific skip_trampoline */
831   "this",                       /* name_of_this */
832   basic_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */
833   basic_lookup_transparent_type,/* lookup_transparent_type */
834   unk_lang_demangle,            /* Language specific symbol demangler */
835   unk_lang_class_name,          /* Language specific
836                                    class_name_from_physname */
837   unk_op_print_tab,             /* expression operators for printing */
838   1,                            /* c-style arrays */
839   0,                            /* String lower bound */
840   default_word_break_characters,
841   default_make_symbol_completion_list,
842   unknown_language_arch_info,   /* la_language_arch_info.  */
843   default_print_array_index,
844   default_pass_by_reference,
845   default_get_string,
846   NULL,                         /* la_get_symbol_name_cmp */
847   iterate_over_symbols,
848   &default_varobj_ops,
849   NULL,
850   NULL,
851   LANG_MAGIC
852 };
853
854 /* These two structs define fake entries for the "local" and "auto"
855    options.  */
856 const struct language_defn auto_language_defn =
857 {
858   "auto",
859   "Auto",
860   language_auto,
861   range_check_off,
862   case_sensitive_on,
863   array_row_major,
864   macro_expansion_no,
865   &exp_descriptor_standard,
866   unk_lang_parser,
867   unk_lang_error,
868   null_post_parser,
869   unk_lang_printchar,           /* Print character constant */
870   unk_lang_printstr,
871   unk_lang_emit_char,
872   unk_lang_print_type,          /* Print a type using appropriate syntax */
873   default_print_typedef,        /* Print a typedef using appropriate syntax */
874   unk_lang_val_print,           /* Print a value using appropriate syntax */
875   unk_lang_value_print,         /* Print a top-level value */
876   default_read_var_value,       /* la_read_var_value */
877   unk_lang_trampoline,          /* Language specific skip_trampoline */
878   "this",                       /* name_of_this */
879   basic_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */
880   basic_lookup_transparent_type,/* lookup_transparent_type */
881   unk_lang_demangle,            /* Language specific symbol demangler */
882   unk_lang_class_name,          /* Language specific
883                                    class_name_from_physname */
884   unk_op_print_tab,             /* expression operators for printing */
885   1,                            /* c-style arrays */
886   0,                            /* String lower bound */
887   default_word_break_characters,
888   default_make_symbol_completion_list,
889   unknown_language_arch_info,   /* la_language_arch_info.  */
890   default_print_array_index,
891   default_pass_by_reference,
892   default_get_string,
893   NULL,                         /* la_get_symbol_name_cmp */
894   iterate_over_symbols,
895   &default_varobj_ops,
896   NULL,
897   NULL,
898   LANG_MAGIC
899 };
900
901 const struct language_defn local_language_defn =
902 {
903   "local",
904   "Local",
905   language_auto,
906   range_check_off,
907   case_sensitive_on,
908   array_row_major,
909   macro_expansion_no,
910   &exp_descriptor_standard,
911   unk_lang_parser,
912   unk_lang_error,
913   null_post_parser,
914   unk_lang_printchar,           /* Print character constant */
915   unk_lang_printstr,
916   unk_lang_emit_char,
917   unk_lang_print_type,          /* Print a type using appropriate syntax */
918   default_print_typedef,        /* Print a typedef using appropriate syntax */
919   unk_lang_val_print,           /* Print a value using appropriate syntax */
920   unk_lang_value_print,         /* Print a top-level value */
921   default_read_var_value,       /* la_read_var_value */
922   unk_lang_trampoline,          /* Language specific skip_trampoline */
923   "this",                       /* name_of_this */
924   basic_lookup_symbol_nonlocal, /* lookup_symbol_nonlocal */
925   basic_lookup_transparent_type,/* lookup_transparent_type */
926   unk_lang_demangle,            /* Language specific symbol demangler */
927   unk_lang_class_name,          /* Language specific
928                                    class_name_from_physname */
929   unk_op_print_tab,             /* expression operators for printing */
930   1,                            /* c-style arrays */
931   0,                            /* String lower bound */
932   default_word_break_characters,
933   default_make_symbol_completion_list,
934   unknown_language_arch_info,   /* la_language_arch_info.  */
935   default_print_array_index,
936   default_pass_by_reference,
937   default_get_string,
938   NULL,                         /* la_get_symbol_name_cmp */
939   iterate_over_symbols,
940   &default_varobj_ops,
941   NULL,
942   NULL,
943   LANG_MAGIC
944 };
945 \f
946 /* Per-architecture language information.  */
947
948 static struct gdbarch_data *language_gdbarch_data;
949
950 struct language_gdbarch
951 {
952   /* A vector of per-language per-architecture info.  Indexed by "enum
953      language".  */
954   struct language_arch_info arch_info[nr_languages];
955 };
956
957 static void *
958 language_gdbarch_post_init (struct gdbarch *gdbarch)
959 {
960   struct language_gdbarch *l;
961   int i;
962
963   l = GDBARCH_OBSTACK_ZALLOC (gdbarch, struct language_gdbarch);
964   for (i = 0; i < languages_size; i++)
965     {
966       if (languages[i] != NULL
967           && languages[i]->la_language_arch_info != NULL)
968         languages[i]->la_language_arch_info
969           (gdbarch, l->arch_info + languages[i]->la_language);
970     }
971   return l;
972 }
973
974 struct type *
975 language_string_char_type (const struct language_defn *la,
976                            struct gdbarch *gdbarch)
977 {
978   struct language_gdbarch *ld
979     = (struct language_gdbarch *) gdbarch_data (gdbarch, language_gdbarch_data);
980
981   return ld->arch_info[la->la_language].string_char_type;
982 }
983
984 struct type *
985 language_bool_type (const struct language_defn *la,
986                     struct gdbarch *gdbarch)
987 {
988   struct language_gdbarch *ld
989     = (struct language_gdbarch *) gdbarch_data (gdbarch, language_gdbarch_data);
990
991   if (ld->arch_info[la->la_language].bool_type_symbol)
992     {
993       struct symbol *sym;
994
995       sym = lookup_symbol (ld->arch_info[la->la_language].bool_type_symbol,
996                            NULL, VAR_DOMAIN, NULL).symbol;
997       if (sym)
998         {
999           struct type *type = SYMBOL_TYPE (sym);
1000
1001           if (type && TYPE_CODE (type) == TYPE_CODE_BOOL)
1002             return type;
1003         }
1004     }
1005
1006   return ld->arch_info[la->la_language].bool_type_default;
1007 }
1008
1009 /* Helper function for primitive type lookup.  */
1010
1011 static struct type **
1012 language_lookup_primitive_type_1 (const struct language_arch_info *lai,
1013                                   const char *name)
1014 {
1015   struct type **p;
1016
1017   for (p = lai->primitive_type_vector; (*p) != NULL; p++)
1018     {
1019       if (strcmp (TYPE_NAME (*p), name) == 0)
1020         return p;
1021     }
1022   return NULL;
1023 }
1024
1025 /* See language.h.  */
1026
1027 struct type *
1028 language_lookup_primitive_type (const struct language_defn *la,
1029                                 struct gdbarch *gdbarch,
1030                                 const char *name)
1031 {
1032   struct language_gdbarch *ld =
1033     (struct language_gdbarch *) gdbarch_data (gdbarch, language_gdbarch_data);
1034   struct type **typep;
1035
1036   typep = language_lookup_primitive_type_1 (&ld->arch_info[la->la_language],
1037                                             name);
1038   if (typep == NULL)
1039     return NULL;
1040   return *typep;
1041 }
1042
1043 /* Helper function for type lookup as a symbol.
1044    Create the symbol corresponding to type TYPE in language LANG.  */
1045
1046 static struct symbol *
1047 language_alloc_type_symbol (enum language lang, struct type *type)
1048 {
1049   struct symbol *symbol;
1050   struct gdbarch *gdbarch;
1051
1052   gdb_assert (!TYPE_OBJFILE_OWNED (type));
1053
1054   gdbarch = TYPE_OWNER (type).gdbarch;
1055   symbol = GDBARCH_OBSTACK_ZALLOC (gdbarch, struct symbol);
1056
1057   symbol->ginfo.name = TYPE_NAME (type);
1058   symbol->ginfo.language = lang;
1059   symbol->owner.arch = gdbarch;
1060   SYMBOL_OBJFILE_OWNED (symbol) = 0;
1061   SYMBOL_TYPE (symbol) = type;
1062   SYMBOL_DOMAIN (symbol) = VAR_DOMAIN;
1063   SYMBOL_ACLASS_INDEX (symbol) = LOC_TYPEDEF;
1064
1065   return symbol;
1066 }
1067
1068 /* Initialize the primitive type symbols of language LD.
1069    The primitive type vector must have already been initialized.  */
1070
1071 static void
1072 language_init_primitive_type_symbols (struct language_arch_info *lai,
1073                                       const struct language_defn *la,
1074                                       struct gdbarch *gdbarch)
1075 {
1076   int n;
1077   struct compunit_symtab *cust;
1078   struct symtab *symtab;
1079   struct block *static_block, *global_block;
1080
1081   gdb_assert (lai->primitive_type_vector != NULL);
1082
1083   for (n = 0; lai->primitive_type_vector[n] != NULL; ++n)
1084     continue;
1085
1086   lai->primitive_type_symbols
1087     = GDBARCH_OBSTACK_CALLOC (gdbarch, n + 1, struct symbol *);
1088
1089   for (n = 0; lai->primitive_type_vector[n] != NULL; ++n)
1090     {
1091       lai->primitive_type_symbols[n]
1092         = language_alloc_type_symbol (la->la_language,
1093                                       lai->primitive_type_vector[n]);
1094     }
1095
1096   /* Note: The result of symbol lookup is normally a symbol *and* the block
1097      it was found in.  Builtin types don't live in blocks.  We *could* give
1098      them one, but there is no current need so to keep things simple symbol
1099      lookup is extended to allow for BLOCK_FOUND to be NULL.  */
1100 }
1101
1102 /* See language.h.  */
1103
1104 struct symbol *
1105 language_lookup_primitive_type_as_symbol (const struct language_defn *la,
1106                                           struct gdbarch *gdbarch,
1107                                           const char *name)
1108 {
1109   struct language_gdbarch *ld
1110     = (struct language_gdbarch *) gdbarch_data (gdbarch, language_gdbarch_data);
1111   struct language_arch_info *lai = &ld->arch_info[la->la_language];
1112   struct type **typep;
1113   struct symbol *sym;
1114
1115   if (symbol_lookup_debug)
1116     {
1117       fprintf_unfiltered (gdb_stdlog,
1118                           "language_lookup_primitive_type_as_symbol"
1119                           " (%s, %s, %s)",
1120                           la->la_name, host_address_to_string (gdbarch), name);
1121     }
1122
1123   typep = language_lookup_primitive_type_1 (lai, name);
1124   if (typep == NULL)
1125     {
1126       if (symbol_lookup_debug)
1127         fprintf_unfiltered (gdb_stdlog, " = NULL\n");
1128       return NULL;
1129     }
1130
1131   /* The set of symbols is lazily initialized.  */
1132   if (lai->primitive_type_symbols == NULL)
1133     language_init_primitive_type_symbols (lai, la, gdbarch);
1134
1135   sym = lai->primitive_type_symbols[typep - lai->primitive_type_vector];
1136
1137   if (symbol_lookup_debug)
1138     fprintf_unfiltered (gdb_stdlog, " = %s\n", host_address_to_string (sym));
1139   return sym;
1140 }
1141
1142 /* Initialize the language routines.  */
1143
1144 void
1145 _initialize_language (void)
1146 {
1147   static const char *const type_or_range_names[]
1148     = { "on", "off", "warn", "auto", NULL };
1149
1150   static const char *const case_sensitive_names[]
1151     = { "on", "off", "auto", NULL };
1152
1153   language_gdbarch_data
1154     = gdbarch_data_register_post_init (language_gdbarch_post_init);
1155
1156   /* GDB commands for language specific stuff.  */
1157
1158   add_prefix_cmd ("check", no_class, set_check,
1159                   _("Set the status of the type/range checker."),
1160                   &setchecklist, "set check ", 0, &setlist);
1161   add_alias_cmd ("c", "check", no_class, 1, &setlist);
1162   add_alias_cmd ("ch", "check", no_class, 1, &setlist);
1163
1164   add_prefix_cmd ("check", no_class, show_check,
1165                   _("Show the status of the type/range checker."),
1166                   &showchecklist, "show check ", 0, &showlist);
1167   add_alias_cmd ("c", "check", no_class, 1, &showlist);
1168   add_alias_cmd ("ch", "check", no_class, 1, &showlist);
1169
1170   add_setshow_enum_cmd ("range", class_support, type_or_range_names,
1171                         &range,
1172                         _("Set range checking.  (on/warn/off/auto)"),
1173                         _("Show range checking.  (on/warn/off/auto)"),
1174                         NULL, set_range_command,
1175                         show_range_command,
1176                         &setchecklist, &showchecklist);
1177
1178   add_setshow_enum_cmd ("case-sensitive", class_support, case_sensitive_names,
1179                         &case_sensitive, _("\
1180 Set case sensitivity in name search.  (on/off/auto)"), _("\
1181 Show case sensitivity in name search.  (on/off/auto)"), _("\
1182 For Fortran the default is off; for other languages the default is on."),
1183                         set_case_command,
1184                         show_case_command,
1185                         &setlist, &showlist);
1186
1187   add_language (&auto_language_defn);
1188   add_language (&local_language_defn);
1189   add_language (&unknown_language_defn);
1190
1191   language = xstrdup ("auto");
1192   type = xstrdup ("auto");
1193   range = xstrdup ("auto");
1194   case_sensitive = xstrdup ("auto");
1195
1196   /* Have the above take effect.  */
1197   set_language (language_auto);
1198 }