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