1                                                            -*- Autoconf -*-
2
3# Java language support for Bison
4
5# Copyright (C) 2007-2012 Free Software Foundation, Inc.
6
7# This program is free software: you can redistribute it and/or modify
8# it under the terms of the GNU General Public License as published by
9# the Free Software Foundation, either version 3 of the License, or
10# (at your option) any later version.
11#
12# This program is distributed in the hope that it will be useful,
13# but WITHOUT ANY WARRANTY; without even the implied warranty of
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15# GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License
18# along with this program.  If not, see <http://www.gnu.org/licenses/>.
19
20m4_include(b4_pkgdatadir/[c-like.m4])
21
22# b4_comment(TEXT)
23# ----------------
24m4_define([b4_comment], [/* m4_bpatsubst([$1], [
25], [
26   ])  */])
27
28
29# b4_list2(LIST1, LIST2)
30# --------------------------
31# Join two lists with a comma if necessary.
32m4_define([b4_list2],
33	  [$1[]m4_ifval(m4_quote($1), [m4_ifval(m4_quote($2), [[, ]])])[]$2])
34
35
36# b4_percent_define_get3(DEF, PRE, POST, NOT)
37# -------------------------------------------
38# Expand to the value of DEF surrounded by PRE and POST if it's %define'ed,
39# otherwise NOT.
40m4_define([b4_percent_define_get3],
41	  [m4_ifval(m4_quote(b4_percent_define_get([$1])),
42		[$2[]b4_percent_define_get([$1])[]$3], [$4])])
43
44
45
46# b4_flag_value(BOOLEAN-FLAG)
47# ---------------------------
48m4_define([b4_flag_value], [b4_flag_if([$1], [true], [false])])
49
50
51# b4_public_if(TRUE, FALSE)
52# -------------------------
53b4_percent_define_default([[public]], [[false]])
54m4_define([b4_public_if],
55[b4_percent_define_flag_if([public], [$1], [$2])])
56
57
58# b4_abstract_if(TRUE, FALSE)
59# ---------------------------
60b4_percent_define_default([[abstract]], [[false]])
61m4_define([b4_abstract_if],
62[b4_percent_define_flag_if([abstract], [$1], [$2])])
63
64
65# b4_final_if(TRUE, FALSE)
66# ---------------------------
67b4_percent_define_default([[final]], [[false]])
68m4_define([b4_final_if],
69[b4_percent_define_flag_if([final], [$1], [$2])])
70
71
72# b4_strictfp_if(TRUE, FALSE)
73# ---------------------------
74b4_percent_define_default([[strictfp]], [[false]])
75m4_define([b4_strictfp_if],
76[b4_percent_define_flag_if([strictfp], [$1], [$2])])
77
78
79# b4_lexer_if(TRUE, FALSE)
80# ------------------------
81m4_define([b4_lexer_if],
82[b4_percent_code_ifdef([[lexer]], [$1], [$2])])
83
84
85# b4_identification
86# -----------------
87m4_define([b4_identification],
88[  /** Version number for the Bison executable that generated this parser.  */
89  public static final String bisonVersion = "b4_version";
90
91  /** Name of the skeleton that generated this parser.  */
92  public static final String bisonSkeleton = b4_skeleton;
93])
94
95
96## ------------ ##
97## Data types.  ##
98## ------------ ##
99
100# b4_int_type(MIN, MAX)
101# ---------------------
102# Return the smallest int type able to handle numbers ranging from
103# MIN to MAX (included).
104m4_define([b4_int_type],
105[m4_if(b4_ints_in($@,   [-128],   [127]), [1], [byte],
106       b4_ints_in($@, [-32768], [32767]), [1], [short],
107					       [int])])
108
109# b4_int_type_for(NAME)
110# ---------------------
111# Return the smallest int type able to handle numbers ranging from
112# `NAME_min' to `NAME_max' (included).
113m4_define([b4_int_type_for],
114[b4_int_type($1_min, $1_max)])
115
116# b4_null
117# -------
118m4_define([b4_null], [null])
119
120
121## ------------------------- ##
122## Assigning token numbers.  ##
123## ------------------------- ##
124
125# b4_token_enum(TOKEN-NAME, TOKEN-NUMBER)
126# ---------------------------------------
127# Output the definition of this token as an enum.
128m4_define([b4_token_enum],
129[  /** Token number, to be returned by the scanner.  */
130  public static final int $1 = $2;
131])
132
133
134# b4_token_enums(LIST-OF-PAIRS-TOKEN-NAME-TOKEN-NUMBER)
135# -----------------------------------------------------
136# Output the definition of the tokens (if there are) as enums.
137m4_define([b4_token_enums],
138[m4_if([$#$1], [1], [],
139[/* Tokens.  */
140m4_map([b4_token_enum], [$@])])
141])
142
143# b4-case(ID, CODE)
144# -----------------
145# We need to fool Java's stupid unreachable code detection.
146m4_define([b4_case], [  case $1:
147  if (yyn == $1)
148    $2;
149  break;
150    ])
151
152
153## ---------------- ##
154## Default values.  ##
155## ---------------- ##
156
157m4_define([b4_yystype], [b4_percent_define_get([[stype]])])
158b4_percent_define_default([[stype]], [[Object]])
159
160# %name-prefix
161m4_define_default([b4_prefix], [[YY]])
162
163b4_percent_define_default([[parser_class_name]], [b4_prefix[]Parser])
164m4_define([b4_parser_class_name], [b4_percent_define_get([[parser_class_name]])])
165
166b4_percent_define_default([[lex_throws]], [[java.io.IOException]])
167m4_define([b4_lex_throws], [b4_percent_define_get([[lex_throws]])])
168
169b4_percent_define_default([[throws]], [])
170m4_define([b4_throws], [b4_percent_define_get([[throws]])])
171
172b4_percent_define_default([[api.location.type]], [Location])
173m4_define([b4_location_type], [b4_percent_define_get([[api.location.type]])])
174
175b4_percent_define_default([[api.position.type]], [Position])
176m4_define([b4_position_type], [b4_percent_define_get([[api.position.type]])])
177
178
179## ----------------- ##
180## Semantic Values.  ##
181## ----------------- ##
182
183
184# b4_lhs_value([TYPE])
185# --------------------
186# Expansion of $<TYPE>$.
187m4_define([b4_lhs_value], [yyval])
188
189
190# b4_rhs_value(RULE-LENGTH, NUM, [TYPE])
191# --------------------------------------
192# Expansion of $<TYPE>NUM, where the current rule has RULE-LENGTH
193# symbols on RHS.
194#
195# In this simple implementation, %token and %type have class names
196# between the angle brackets.
197m4_define([b4_rhs_value],
198[(m4_ifval($3, [($3)])[](yystack.valueAt ($1-($2))))])
199
200# b4_lhs_location()
201# -----------------
202# Expansion of @$.
203m4_define([b4_lhs_location],
204[(yyloc)])
205
206
207# b4_rhs_location(RULE-LENGTH, NUM)
208# ---------------------------------
209# Expansion of @NUM, where the current rule has RULE-LENGTH symbols
210# on RHS.
211m4_define([b4_rhs_location],
212[yystack.locationAt ($1-($2))])
213
214
215# b4_lex_param
216# b4_parse_param
217# --------------
218# If defined, b4_lex_param arrives double quoted, but below we prefer
219# it to be single quoted.  Same for b4_parse_param.
220
221# TODO: should be in bison.m4
222m4_define_default([b4_lex_param], [[]])
223m4_define([b4_lex_param], b4_lex_param)
224m4_define([b4_parse_param], b4_parse_param)
225
226# b4_lex_param_decl
227# -------------------
228# Extra formal arguments of the constructor.
229m4_define([b4_lex_param_decl],
230[m4_ifset([b4_lex_param],
231          [b4_remove_comma([$1],
232			   b4_param_decls(b4_lex_param))],
233	  [$1])])
234
235m4_define([b4_param_decls],
236	  [m4_map([b4_param_decl], [$@])])
237m4_define([b4_param_decl], [, $1])
238
239m4_define([b4_remove_comma], [m4_ifval(m4_quote($1), [$1, ], [])m4_shift2($@)])
240
241
242
243# b4_parse_param_decl
244# -------------------
245# Extra formal arguments of the constructor.
246m4_define([b4_parse_param_decl],
247[m4_ifset([b4_parse_param],
248          [b4_remove_comma([$1],
249			   b4_param_decls(b4_parse_param))],
250	  [$1])])
251
252
253
254# b4_lex_param_call
255# -------------------
256# Delegating the lexer parameters to the lexer constructor.
257m4_define([b4_lex_param_call],
258          [m4_ifset([b4_lex_param],
259	            [b4_remove_comma([$1],
260				     b4_param_calls(b4_lex_param))],
261	            [$1])])
262m4_define([b4_param_calls],
263	  [m4_map([b4_param_call], [$@])])
264m4_define([b4_param_call], [, $2])
265
266
267
268# b4_parse_param_cons
269# -------------------
270# Extra initialisations of the constructor.
271m4_define([b4_parse_param_cons],
272          [m4_ifset([b4_parse_param],
273		    [b4_constructor_calls(b4_parse_param)])])
274
275m4_define([b4_constructor_calls],
276	  [m4_map([b4_constructor_call], [$@])])
277m4_define([b4_constructor_call],
278	  [this.$2 = $2;
279	  ])
280
281
282
283# b4_parse_param_vars
284# -------------------
285# Extra instance variables.
286m4_define([b4_parse_param_vars],
287          [m4_ifset([b4_parse_param],
288		    [
289    /* User arguments.  */
290b4_var_decls(b4_parse_param)])])
291
292m4_define([b4_var_decls],
293	  [m4_map_sep([b4_var_decl], [
294], [$@])])
295m4_define([b4_var_decl],
296	  [    protected final $1;])
297
298
299
300# b4_maybe_throws(THROWS)
301# -----------------------
302# Expand to either an empty string or "throws THROWS".
303m4_define([b4_maybe_throws],
304	  [m4_ifval($1, [throws $1])])
305