1 /* Source-language-related definitions for GDB.
2 Copyright 1991 Free Software Foundation, Inc.
3 Contributed by the Department of Computer Science at the State University
4 of New York at Buffalo.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
22 /* This used to be included to configure GDB for one or more specific
23 languages. Now it is shortcutted to configure for all of them. FIXME. */
24 /* #include "lang_def.h" */
29 range_mode_auto: range_check set automatically to default of language.
30 range_mode_manual: range_check set manually by user. */
32 extern enum range_mode
{range_mode_auto
, range_mode_manual
} range_mode
;
35 range_check_on: Ranges are checked in GDB expressions, producing errors.
36 range_check_warn: Ranges are checked, producing warnings.
37 range_check_off: Ranges are not checked in GDB expressions. */
39 extern enum range_check
40 {range_check_off
, range_check_warn
, range_check_on
} range_check
;
43 type_mode_auto: type_check set automatically to default of language
44 type_mode_manual: type_check set manually by user. */
46 extern enum type_mode
{type_mode_auto
, type_mode_manual
} type_mode
;
49 type_check_on: Types are checked in GDB expressions, producing errors.
50 type_check_warn: Types are checked, producing warnings.
51 type_check_off: Types are not checked in GDB expressions. */
53 extern enum type_check
54 {type_check_off
, type_check_warn
, type_check_on
} type_check
;
56 /* Structure tying together assorted information about a language. */
58 struct language_defn
{
59 char * la_name
; /* Name of the language */
60 enum language la_language
; /* its symtab language-enum (defs.h) */
62 *la_builtin_type_vector
; /* Its builtin types */
63 enum range_check la_range_check
; /* Default range checking */
64 enum type_check la_type_check
; /* Default type checking */
65 int (*la_parser
)(); /* Parser function */
66 void (*la_error
)(); /* Parser error function */
67 struct type
**la_longest_int
; /* Longest signed integral type */
68 struct type
**la_longest_unsigned_int
; /* Longest uns integral type */
69 struct type
**la_longest_float
; /* Longest floating point type */
70 char *la_hex_format
; /* Hexadecimal printf format str */
71 char *la_hex_format_pre
; /* Prefix for custom format string */
72 char *la_hex_format_suf
; /* Suffix for custom format string */
73 char *la_octal_format
; /* Octal printf format str */
74 char *la_octal_format_pre
; /* Prefix for custom format string */
75 char *la_octal_format_suf
; /* Suffix for custom format string */
77 *la_op_print_tab
; /* Table for printing expressions */
78 /* Add fields above this point, so the magic number is always last. */
79 long la_magic
; /* Magic number for compat checking */
82 #define LANG_MAGIC 910823L
84 /* Pointer to the language_defn for our current language. This pointer
85 always points to *some* valid struct; it can be used without checking
88 extern const struct language_defn
*current_language
;
91 language_mode_auto: current_language automatically set upon selection
92 of scope (e.g. stack frame)
93 language_mode_manual: current_language set only by user. */
95 extern enum language_mode
96 {language_mode_auto
, language_mode_manual
} language_mode
;
98 /* These macros define the behaviour of the expression
101 /* Should we strictly type check expressions? */
102 #define STRICT_TYPE (type_check != type_check_off)
104 /* Should we range check values against the domain of their type? */
105 #define RANGE_CHECK (range_check != range_check_off)
107 /* "cast" really means conversion */
108 /* FIXME -- should be a setting in language_defn */
109 #define CAST_IS_CONVERSION (current_language->la_language == language_c)
111 void language_info();
114 /* This page contains functions that return things that are
115 specific to languages. Each of these functions is based on
116 the current setting of working_lang, which the user sets
117 with the "set language" command. */
119 /* Returns some built-in types */
120 #define longest_int() (*current_language->la_longest_int)
121 #define longest_unsigned_int() (*current_language->la_longest_unsigned_int)
122 #define longest_float() (*current_language->la_longest_float)
123 struct type
*binop_result_type();
125 /* Hexadecimal number formatting is in defs.h because it is so common
128 /* Return a format string for printf that will print a number in the local
129 (language-specific) octal format. Result is static and is
130 overwritten by the next call. local_octal_format_custom takes printf
131 options like "08" or "l" (to produce e.g. %08x or %lx). */
133 #define local_octal_format() (current_language->la_octal_format)
134 char *local_octal_format_custom();
136 /* Type predicates */
142 int character_type();
146 int structured_type();
148 /* Checks Binary and Unary operations for semantic type correctness */
149 void binop_type_check();
150 #define unop_type_check(v,o) binop_type_check((v),NULL,(o))
154 #define type_op_error(f,o) \
155 op_error((f),(o),type_check==type_check_on ? 1 : 0)
156 #define range_op_error(f,o) \
157 op_error((f),(o),range_check==range_check_on ? 1 : 0)
161 /* Data: Does this value represent "truth" to the current language? */
164 /* Misc: The string representing a particular enum language. */
165 char *language_str();
167 /* Add a language to the set known by GDB (at initialization time). */
168 void add_language (); /* Arg is &language_defn */
170 extern enum language
get_frame_language (); /* In stack.c */