tests/java.at

   1 # Java tests for simple calculator.           -*- Autotest -*-
   2
   3 # Copyright (C) 2007-2015 Free Software Foundation, Inc.
   4
   5 # This program is free software: you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation, either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 AT_BANNER([[Java Calculator.]])
  19
  20
  21 # ------------------------- #
  22 # Helping Autotest macros.  #
  23 # ------------------------- #
  24
  25
  26 # _AT_DATA_JAVA_CALC_Y($1, $2, $3, [BISON-DIRECTIVES])
  27 # ----------------------------------------------------
  28 # Produce 'calc.y'.  Don't call this macro directly, because it contains
  29 # some occurrences of '$1' etc. which will be interpreted by m4.  So
  30 # you should call it with $1, $2, and $3 as arguments, which is what
  31 # AT_DATA_JAVA_CALC_Y does.
  32 m4_define([_AT_DATA_JAVA_CALC_Y],
  33 [m4_if([$1$2$3], $[1]$[2]$[3], [],
  34        [m4_fatal([$0: Invalid arguments: $@])])dnl
  35 AT_BISON_OPTION_PUSHDEFS([%language "Java" $4])
  36 AT_DATA([Calc.y],
  37 [[/* Infix notation calculator--calc */
  38 %language "Java"
  39 %name-prefix "Calc"
  40 %define parser_class_name {Calc}
  41 %define public
  42
  43 ]$4[
  44
  45 %code imports {
  46   import java.io.StreamTokenizer;
  47   import java.io.InputStream;
  48   import java.io.InputStreamReader;
  49   import java.io.Reader;
  50   import java.io.IOException;
  51 }
  52
  53 /* Bison Declarations */
  54 %token <Integer> NUM "number"
  55 %type  <Integer> exp
  56
  57 %nonassoc '='       /* comparison            */
  58 %left '-' '+'
  59 %left '*' '/'
  60 %precedence NEG     /* negation--unary minus */
  61 %right '^'          /* exponentiation        */
  62
  63 /* Grammar follows */
  64 %%
  65 input:
  66   line
  67 | input line
  68 ;
  69
  70 line:
  71   '\n'
  72 | exp '\n'
  73 | error '\n'
  74 ;
  75
  76 exp:
  77   NUM                { $$ = $1;                                             }
  78 | exp '=' exp
  79   {
  80     if ($1.intValue () != $3.intValue ())
  81       yyerror (]AT_LOCATION_IF([[@$,]])[ "calc: error: " + $1 + " != " + $3);
  82   }
  83 | exp '+' exp        { $$ = new Integer ($1.intValue () + $3.intValue ());  }
  84 | exp '-' exp        { $$ = new Integer ($1.intValue () - $3.intValue ());  }
  85 | exp '*' exp        { $$ = new Integer ($1.intValue () * $3.intValue ());  }
  86 | exp '/' exp        { $$ = new Integer ($1.intValue () / $3.intValue ());  }
  87 | '-' exp  %prec NEG { $$ = new Integer (-$2.intValue ());                  }
  88 | exp '^' exp        { $$ = new Integer ((int)
  89                                          Math.pow ($1.intValue (),
  90                                                    $3.intValue ()));        }
  91 | '(' exp ')'        { $$ = $2;                                             }
  92 | '(' error ')'      { $$ = new Integer (1111);                             }
  93 | '!'                { $$ = new Integer (0); return YYERROR;                }
  94 | '-' error          { $$ = new Integer (0); return YYERROR;                }
  95 ;
  96
  97 ]AT_LEXPARAM_IF([[
  98 %code lexer {
  99 ]],
 100 [[
 101 %%
 102 class CalcLexer implements Calc.Lexer {
 103 ]])[
 104   StreamTokenizer st;
 105
 106   public ]AT_LEXPARAM_IF([[YYLexer]], [[CalcLexer]]) (InputStream is)
 107   {
 108     st = new StreamTokenizer (new InputStreamReader (is));
 109     st.resetSyntax ();
 110     st.eolIsSignificant (true);
 111     st.whitespaceChars (9, 9);
 112     st.whitespaceChars (32, 32);
 113     st.wordChars (48, 57);
 114   }
 115
 116 AT_LOCATION_IF([[
 117   Position yypos = new Position (1, 0);
 118
 119   public Position getStartPos() {
 120     return yypos;
 121   }
 122
 123   public Position getEndPos() {
 124     return yypos;
 125   }
 126 ]])[
 127   ]AT_YYERROR_DEFINE[
 128
 129   Integer yylval;
 130
 131   public Object getLVal() {
 132     return yylval;
 133   }
 134
 135   public int yylex () throws IOException {
 136     int ttype = st.nextToken ();
 137     ]AT_LOCATION_IF([[yypos = new Position (yypos.lineno (),
 138                                             yypos.token () + 1);]])[
 139     if (ttype == st.TT_EOF)
 140       return EOF;
 141
 142     else if (ttype == st.TT_EOL)
 143       {
 144         ]AT_LOCATION_IF([[yypos = new Position (yypos.lineno () + 1, 0);]])[
 145         return (int) '\n';
 146       }
 147
 148     else if (ttype == st.TT_WORD)
 149       {
 150         yylval = new Integer (st.sval);
 151         return NUM;
 152       }
 153
 154     else
 155       return st.ttype;
 156   }
 157
 158
 159 ]AT_LEXPARAM_IF([[
 160 };
 161 %%]], [[
 162 }]])
 163
 164 [
 165 class Position {
 166   public int line;
 167   public int token;
 168
 169   public Position ()
 170   {
 171     line = 0;
 172     token = 0;
 173   }
 174
 175   public Position (int l, int t)
 176   {
 177     line = l;
 178     token = t;
 179   }
 180
 181   public boolean equals (Position l)
 182   {
 183     return l.line == line && l.token == token;
 184   }
 185
 186   public String toString ()
 187   {
 188     return Integer.toString (line) + "." + Integer.toString(token);
 189   }
 190
 191   public int lineno ()
 192   {
 193     return line;
 194   }
 195
 196   public int token ()
 197   {
 198     return token;
 199   }
 200 }
 201
 202 ]])
 203 AT_BISON_OPTION_POPDEFS
 204 ])# _AT_DATA_JAVA_CALC_Y
 205
 206
 207 # AT_DATA_CALC_Y([BISON-OPTIONS])
 208 # -------------------------------
 209 # Produce 'calc.y'.
 210 m4_define([AT_DATA_JAVA_CALC_Y],
 211 [_AT_DATA_JAVA_CALC_Y($[1], $[2], $[3], [$1])
 212 ])
 213
 214
 215 # _AT_CHECK_JAVA_CALC_ERROR(BISON-OPTIONS, INPUT,
 216 #                           [VERBOSE-AND-LOCATED-ERROR-MESSAGE])
 217 # --------------------------------------------------------------
 218 # Run 'calc' on INPUT, and expect a 'syntax error' message.
 219 #
 220 # If INPUT starts with a slash, it is used as absolute input file name,
 221 # otherwise as contents.
 222 #
 223 # The VERBOSE-AND-LOCATED-ERROR-MESSAGE is stripped of locations
 224 # and expected tokens if necessary, and compared with the output.
 225 m4_define([_AT_CHECK_JAVA_CALC_ERROR],
 226 [m4_bmatch([$2], [^/],
 227            [AT_JAVA_PARSER_CHECK([Calc < $2], 0, [], [stderr])],
 228            [AT_DATA([[input]],
 229 [[$2
 230 ]])
 231 AT_JAVA_PARSER_CHECK([Calc < input], 0, [], [stderr])])
 232
 233 # Normalize the observed and expected error messages, depending upon the
 234 # options.
 235 # 1. Create the reference error message.
 236 AT_DATA([[expout]],
 237 [$3
 238 ])
 239 # 2. If locations are not used, remove them.
 240 AT_YYERROR_SEES_LOC_IF([],
 241 [[sed 's/^[-0-9.]*: //' expout >at-expout
 242 mv at-expout expout]])
 243 # 3. If error-verbose is not used, strip the', unexpected....' part.
 244 m4_bmatch([$1], [%error-verbose], [],
 245 [[sed 's/syntax error, .*$/syntax error/' expout >at-expout
 246 mv at-expout expout]])
 247 # 4. Check
 248 AT_CHECK([cat stderr], 0, [expout])
 249 ])
 250
 251 # _AT_CHECK_JAVA_CALC([BISON-DIRECTIVES], [BISON-CODE])
 252 # -----------------------------------------------------
 253 # Start a testing chunk which compiles 'calc' grammar with
 254 # BISON-DIRECTIVES, and performs several tests over the parser.
 255 m4_define([_AT_CHECK_JAVA_CALC],
 256 [# We use integers to avoid dependencies upon the precision of doubles.
 257 AT_SETUP([Calculator $1])
 258
 259 AT_BISON_OPTION_PUSHDEFS([$1])
 260
 261 AT_DATA_JAVA_CALC_Y([$1
 262 %code {
 263 $2
 264 }])
 265
 266 AT_BISON_CHECK([-o Calc.java Calc.y])
 267 AT_JAVA_COMPILE([Calc.java])
 268
 269 # Test the priorities.
 270 AT_DATA([[input]],
 271 [[1 + 2 * 3 = 7
 272 1 + 2 * -3 = -5
 273
 274 -1^2 = -1
 275 (-1)^2 = 1
 276
 277 ---1 = -1
 278
 279 1 - 2 - 3 = -4
 280 1 - (2 - 3) = 2
 281
 282 2^2^3 = 256
 283 (2^2)^3 = 64
 284 ]])
 285 AT_JAVA_PARSER_CHECK([Calc < input], 0, [], [stderr])
 286
 287
 288 # Some syntax errors.
 289 _AT_CHECK_JAVA_CALC_ERROR([$1], [0 0],
 290                           [1.2: syntax error, unexpected number])
 291 _AT_CHECK_JAVA_CALC_ERROR([$1], [1//2],
 292                           [1.3: syntax error, unexpected '/', expecting number or '-' or '(' or '!'])
 293 _AT_CHECK_JAVA_CALC_ERROR([$1], [error],
 294                           [1.1: syntax error, unexpected $undefined])
 295 _AT_CHECK_JAVA_CALC_ERROR([$1], [1 = 2 = 3],
 296                           [1.4: syntax error, unexpected '='])
 297 _AT_CHECK_JAVA_CALC_ERROR([$1], [
 298 +1],
 299                           [2.1: syntax error, unexpected '+'])
 300 # Exercise error messages with EOF: work on an empty file.
 301 _AT_CHECK_JAVA_CALC_ERROR([$1], [/dev/null],
 302                           [1.1: syntax error, unexpected end of input])
 303
 304 # Exercise the error token: without it, we die at the first error,
 305 # hence be sure to
 306 #
 307 # - have several errors which exercise different shift/discardings
 308 #   - (): nothing to pop, nothing to discard
 309 #   - (1 + 1 + 1 +): a lot to pop, nothing to discard
 310 #   - (* * *): nothing to pop, a lot to discard
 311 #   - (1 + 2 * *): some to pop and discard
 312 #
 313 # - test the action associated to 'error'
 314 #
 315 # - check the lookahead that triggers an error is not discarded
 316 #   when we enter error recovery.  Below, the lookahead causing the
 317 #   first error is ")", which is needed to recover from the error and
 318 #   produce the "0" that triggers the "0 != 1" error.
 319 #
 320 _AT_CHECK_JAVA_CALC_ERROR([$1],
 321                           [() + (1 + 1 + 1 +) + (* * *) + (1 * 2 * *) = 1],
 322 [1.2: syntax error, unexpected ')', expecting number or '-' or '(' or '!'
 323 1.11: syntax error, unexpected ')', expecting number or '-' or '(' or '!'
 324 1.14: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
 325 1.24: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
 326 1.1-1.27: calc: error: 4444 != 1])
 327
 328 # The same, but this time exercising explicitly triggered syntax errors.
 329 # POSIX says the lookahead causing the error should not be discarded.
 330 _AT_CHECK_JAVA_CALC_ERROR([$1], [(!) + (0 0) = 1],
 331 [1.7: syntax error, unexpected number
 332 1.1-1.10: calc: error: 2222 != 1])
 333 _AT_CHECK_JAVA_CALC_ERROR([$1], [(- *) + (0 0) = 1],
 334 [1.3: syntax error, unexpected '*', expecting number or '-' or '(' or '!'
 335 1.8: syntax error, unexpected number
 336 1.1-1.11: calc: error: 2222 != 1])
 337 AT_BISON_OPTION_POPDEFS
 338
 339 AT_CLEANUP
 340 ])# _AT_CHECK_JAVA_CALC
 341
 342
 343 # AT_CHECK_JAVA_CALC([BISON-DIRECTIVES])
 344 # --------------------------------------
 345 # Start a testing chunk which compiles 'calc' grammar with
 346 # BISON-DIRECTIVES, and performs several tests over the parser.
 347 # Run the test with and without %error-verbose.
 348 m4_define([AT_CHECK_JAVA_CALC],
 349 [_AT_CHECK_JAVA_CALC([$1], [$2])
 350 _AT_CHECK_JAVA_CALC([%error-verbose $1], [$2])
 351 _AT_CHECK_JAVA_CALC([%locations $1], [$2])
 352 _AT_CHECK_JAVA_CALC([%error-verbose %locations $1], [$2])
 353 ])# AT_CHECK_JAVA_CALC
 354
 355
 356 # ------------------------ #
 357 # Simple LALR Calculator.  #
 358 # ------------------------ #
 359
 360 AT_CHECK_JAVA_CALC([], [[
 361   public static void main (String args[]) throws IOException
 362   {
 363     CalcLexer l = new CalcLexer (System.in);
 364     Calc p = new Calc (l);
 365     p.parse ();
 366   }
 367 ]])
 368
 369 AT_CHECK_JAVA_CALC([%lex-param { InputStream is } ], [[
 370   public static void main (String args[]) throws IOException
 371   {
 372     new Calc (System.in).parse ();
 373   }
 374 ]])
 375
 376
 377
 378 # -----------------#
 379 # Java Directives. #
 380 # -----------------#
 381
 382 AT_BANNER([Java Parameters.])
 383
 384
 385 # AT_CHECK_JAVA_MINIMAL([DIRECTIVES], [PARSER_ACTION], [POSITION_CLASS])
 386 # ----------------------------------------------------------------------
 387 # Check that a mininal parser with DIRECTIVES compiles in Java.
 388 # Put the Java code in YYParser.java.
 389 m4_define([AT_CHECK_JAVA_MINIMAL],
 390 [
 391 AT_DATA([[YYParser.y]], [
 392 %language "Java"
 393 %locations
 394 %debug
 395 %error-verbose
 396 %token-table
 397 %token END "end"
 398 $1
 399 %%
 400 start: END {$2};
 401 %%
 402 class m4_default([$3], [Position]) {}
 403 ])
 404 AT_BISON_CHECK([[YYParser.y]])
 405 AT_CHECK([[grep '[mb]4_' YYParser.y]], [1], [ignore])
 406 AT_JAVA_COMPILE([[YYParser.java]])
 407 ])
 408
 409
 410 # AT_CHECK_JAVA_MINIMAL_W_LEXER([1:DIRECTIVES], [2:LEX_THROWS],
 411 #       [3:YYLEX_ACTION], [4:LEXER_BODY], [5:PARSER_ACTION], [6:VALUE_TYPE],
 412 #       [7:POSITION_TYPE], [8:LOCATION_TYPE])
 413 # ---------------------------------------------------------------------
 414 # Check that a mininal parser with DIRECTIVES and a "%code lexer".
 415 # YYLEX is the body of yylex () which throws LEX_THROW.
 416 # compiles in Java.
 417 m4_define([AT_CHECK_JAVA_MINIMAL_W_LEXER],
 418 [AT_CHECK_JAVA_MINIMAL([$1
 419
 420 %code lexer
 421 {
 422   m4_default([$6], [Object]) yylval;
 423   public m4_default([$6], [Object]) getLVal() { return yylval; }
 424
 425   public m4_default([$7], [Position]) getStartPos() { return null; }
 426   public m4_default([$7], [Position]) getEndPos()   { return null; }
 427
 428   public void yyerror (m4_default([$8], [Location]) loc, String s)
 429   {
 430     System.err.println (loc + ": " + s);
 431   }
 432
 433   public int yylex ()$2
 434   {
 435     $3
 436   }
 437
 438   $4
 439 }], [$5], [$7])])
 440
 441
 442 # AT_CHECK_JAVA_GREP([LINE], [COUNT=1])
 443 # -------------------------------------
 444 # Check that YYParser.java contains exactly COUNT lines matching ^LINE$
 445 # with grep.
 446 m4_define([AT_CHECK_JAVA_GREP],
 447 [AT_CHECK([grep -c '^$1$' YYParser.java], [ignore], [m4_default([$2], [1])
 448 ])])
 449
 450
 451 # ------------------------------------- #
 452 # Java parser class and package names.  #
 453 # ------------------------------------- #
 454
 455 AT_SETUP([Java parser class and package names])
 456
 457 AT_CHECK_JAVA_MINIMAL([])
 458 AT_CHECK_JAVA_GREP([[class YYParser]])
 459
 460 AT_CHECK_JAVA_MINIMAL([[%name-prefix "Prefix"]])
 461 AT_CHECK_JAVA_GREP([[class PrefixParser]])
 462
 463 AT_CHECK_JAVA_MINIMAL([[%define api.token.prefix {TOK_}]])
 464 AT_CHECK_JAVA_GREP([[.*TOK_END.*]])
 465
 466 AT_CHECK_JAVA_MINIMAL([[%define parser_class_name {ParserClassName}]])
 467 AT_CHECK_JAVA_GREP([[class ParserClassName]])
 468
 469 AT_CHECK_JAVA_MINIMAL([[%define package {user_java_package}]])
 470 AT_CHECK_JAVA_GREP([[package user_java_package;]])
 471
 472 AT_CLEANUP
 473
 474
 475 # ----------------------------- #
 476 # Java parser class modifiers.  #
 477 # ----------------------------- #
 478
 479 AT_SETUP([Java parser class modifiers])
 480
 481 AT_CHECK_JAVA_MINIMAL([[%define abstract]])
 482 AT_CHECK_JAVA_GREP([[abstract class YYParser]])
 483
 484 AT_CHECK_JAVA_MINIMAL([[%define final]])
 485 AT_CHECK_JAVA_GREP([[final class YYParser]])
 486
 487 AT_CHECK_JAVA_MINIMAL([[%define strictfp]])
 488 AT_CHECK_JAVA_GREP([[strictfp class YYParser]])
 489
 490 AT_CHECK_JAVA_MINIMAL([[
 491 %define abstract
 492 %define strictfp]])
 493 AT_CHECK_JAVA_GREP([[abstract strictfp class YYParser]])
 494
 495 AT_CHECK_JAVA_MINIMAL([[
 496 %define final
 497 %define strictfp]])
 498 AT_CHECK_JAVA_GREP([[final strictfp class YYParser]])
 499
 500 AT_CHECK_JAVA_MINIMAL([[%define public]])
 501 AT_CHECK_JAVA_GREP([[public class YYParser]])
 502
 503 AT_CHECK_JAVA_MINIMAL([[
 504 %define public
 505 %define abstract]])
 506 AT_CHECK_JAVA_GREP([[public abstract class YYParser]])
 507
 508 AT_CHECK_JAVA_MINIMAL([[
 509 %define public
 510 %define final]])
 511 AT_CHECK_JAVA_GREP([[public final class YYParser]])
 512
 513 AT_CHECK_JAVA_MINIMAL([[
 514 %define public
 515 %define strictfp]])
 516 AT_CHECK_JAVA_GREP([[public strictfp class YYParser]])
 517
 518 AT_CHECK_JAVA_MINIMAL([[
 519 %define public
 520 %define abstract
 521 %define strictfp]])
 522 AT_CHECK_JAVA_GREP([[public abstract strictfp class YYParser]])
 523
 524 AT_CHECK_JAVA_MINIMAL([[
 525 %define public
 526 %define final
 527 %define strictfp]])
 528 AT_CHECK_JAVA_GREP([[public final strictfp class YYParser]])
 529
 530 # FIXME: Can't do a Java compile because javacomp.sh is configured for 1.3
 531 AT_CHECK_JAVA_MINIMAL([[
 532 %define annotations {/*@Deprecated @SupressWarnings("unchecked") @SupressWarnings({"unchecked", "deprecation"}) @SupressWarnings(value={"unchecked", "deprecation"})*/}
 533 %define public]])
 534 AT_CHECK_JAVA_GREP([[/\*@Deprecated @SupressWarnings("unchecked") @SupressWarnings({"unchecked", "deprecation"}) @SupressWarnings(value={"unchecked", "deprecation"})\*/ public class YYParser]])
 535
 536 AT_CLEANUP
 537
 538
 539 # ---------------------------------------- #
 540 # Java parser class extends and implements #
 541 # ---------------------------------------- #
 542
 543 AT_SETUP([Java parser class extends and implements])
 544
 545 AT_CHECK_JAVA_MINIMAL([[%define extends {Thread}]])
 546 AT_CHECK_JAVA_GREP([[class YYParser extends Thread]])
 547
 548 AT_CHECK_JAVA_MINIMAL([[%define implements {Cloneable}]])
 549 AT_CHECK_JAVA_GREP([[class YYParser implements Cloneable]])
 550
 551 AT_CHECK_JAVA_MINIMAL([[
 552 %define extends {Thread}
 553 %define implements {Cloneable}]])
 554 AT_CHECK_JAVA_GREP([[class YYParser extends Thread implements Cloneable]])
 555
 556 AT_CLEANUP
 557
 558
 559 # -------------------------------- #
 560 # Java %parse-param and %lex-param #
 561 # -------------------------------- #
 562
 563 AT_SETUP([Java %parse-param and %lex-param])
 564
 565 AT_CHECK_JAVA_MINIMAL([])
 566 AT_CHECK_JAVA_GREP([[ *public YYParser (Lexer yylexer) *]])
 567
 568 AT_CHECK_JAVA_MINIMAL([[%parse-param {int parse_param1}]])
 569 AT_CHECK_JAVA_GREP([[ *protected final int parse_param1;]])
 570 AT_CHECK_JAVA_GREP([[ *public YYParser (Lexer yylexer, *int parse_param1) *]])
 571 AT_CHECK_JAVA_GREP([[ *this.parse_param1 = parse_param1;]])
 572
 573 AT_CHECK_JAVA_MINIMAL([[
 574 %parse-param {int parse_param1}
 575 %parse-param {long parse_param2}]])
 576 AT_CHECK_JAVA_GREP([[ *protected final int parse_param1;]])
 577 AT_CHECK_JAVA_GREP([[ *protected final long parse_param2;]])
 578 AT_CHECK_JAVA_GREP([[ *public YYParser (Lexer yylexer, *int parse_param1, *long parse_param2) *]])
 579 AT_CHECK_JAVA_GREP([[ *this.parse_param1 = parse_param1;]])
 580 AT_CHECK_JAVA_GREP([[ *this.parse_param2 = parse_param2;]])
 581
 582 AT_CHECK_JAVA_MINIMAL_W_LEXER([], [], [[return EOF;]])
 583 AT_CHECK_JAVA_GREP([[ *public YYParser () *]])
 584 AT_CHECK_JAVA_GREP([[ *protected YYParser (Lexer yylexer) *]])
 585
 586 AT_CHECK_JAVA_MINIMAL_W_LEXER([[%parse-param {int parse_param1}]],
 587     [], [[return EOF;]])
 588 AT_CHECK_JAVA_GREP([[ *protected final int parse_param1;]])
 589 AT_CHECK_JAVA_GREP([[ *public YYParser (int parse_param1) *]])
 590 AT_CHECK_JAVA_GREP([[ *protected YYParser (Lexer yylexer, *int parse_param1) *]])
 591 AT_CHECK_JAVA_GREP([[ *this.parse_param1 = parse_param1;]], [2])
 592
 593 AT_CHECK_JAVA_MINIMAL_W_LEXER([[
 594 %parse-param {int parse_param1}
 595 %parse-param {long parse_param2}]],
 596     [], [[return EOF;]])
 597 AT_CHECK_JAVA_GREP([[ *protected final int parse_param1;]])
 598 AT_CHECK_JAVA_GREP([[ *protected final long parse_param2;]])
 599 AT_CHECK_JAVA_GREP([[ *public YYParser (int parse_param1, *long parse_param2) *]])
 600 AT_CHECK_JAVA_GREP([[ *protected YYParser (Lexer yylexer, *int parse_param1, *long parse_param2) *]])
 601 AT_CHECK_JAVA_GREP([[ *this.parse_param1 = parse_param1;]], [2])
 602 AT_CHECK_JAVA_GREP([[ *this.parse_param2 = parse_param2;]], [2])
 603
 604 AT_CHECK_JAVA_MINIMAL_W_LEXER([[%lex-param {char lex_param1}]],
 605     [], [[return EOF;]], [[YYLexer (char lex_param1) {}]])
 606 AT_CHECK_JAVA_GREP([[ *public YYParser (char lex_param1) *]])
 607 AT_CHECK_JAVA_GREP([[.* = new YYLexer *(lex_param1);]])
 608
 609 AT_CHECK_JAVA_MINIMAL_W_LEXER([[
 610 %lex-param {char lex_param1}
 611 %lex-param {short lex_param2}]],
 612     [], [[return EOF;]], [[YYLexer (char lex_param1, short lex_param2) {}]])
 613 AT_CHECK_JAVA_GREP([[ *public YYParser (char lex_param1, *short lex_param2) *]])
 614 AT_CHECK_JAVA_GREP([[.* = new YYLexer *(lex_param1, *lex_param2);]])
 615
 616 AT_CHECK_JAVA_MINIMAL_W_LEXER([[
 617 %parse-param {int parse_param1}
 618 %parse-param {long parse_param2}
 619 %lex-param {char lex_param1}
 620 %lex-param {short lex_param2}]],
 621     [], [[return EOF;]], [[YYLexer (char lex_param1, short lex_param2) {}]])
 622 AT_CHECK_JAVA_GREP([[ *protected final int parse_param1;]])
 623 AT_CHECK_JAVA_GREP([[ *protected final long parse_param2;]])
 624 AT_CHECK_JAVA_GREP([[ *public YYParser (char lex_param1, *short lex_param2, *int parse_param1, *long parse_param2) *]])
 625 AT_CHECK_JAVA_GREP([[.* = new YYLexer *(lex_param1, *lex_param2);]])
 626 AT_CHECK_JAVA_GREP([[ *protected YYParser (Lexer yylexer, *int parse_param1, *long parse_param2) *]])
 627 AT_CHECK_JAVA_GREP([[ *this.parse_param1 = parse_param1;]], [2])
 628 AT_CHECK_JAVA_GREP([[ *this.parse_param2 = parse_param2;]], [2])
 629
 630 AT_CLEANUP
 631
 632
 633 # ------------------------- #
 634 # Java throw specifications #
 635 # ------------------------- #
 636
 637 AT_SETUP([Java throws specifications])
 638
 639 # %define throws        - 0 1 2
 640 # %define lex-throws    - 0 1 2
 641 # %code lexer             0 1
 642
 643 m4_define([AT_JT_lex_throws_define], [m4_case(AT_JT_lex_throws,
 644         -1, [],
 645          0, [[%define lex_throws {}]],
 646          1, [[%define lex_throws {InterruptedException}]],
 647          2, [[%define lex_throws {InterruptedException, IllegalAccessException}]])])
 648
 649 m4_define([AT_JT_yylex_throws], [m4_case(AT_JT_lex_throws,
 650         -1, [[ throws java.io.IOException]],
 651          0, [],
 652          1, [[ throws InterruptedException]],
 653          2, [[ throws InterruptedException, IllegalAccessException]])])
 654
 655 m4_define([AT_JT_yylex_action], [m4_case(AT_JT_lex_throws,
 656         -1, [[throw new java.io.IOException();]],
 657          0, [[return EOF;]],
 658          1, [[throw new InterruptedException();]],
 659          2, [[throw new IllegalAccessException();]])])
 660
 661
 662 m4_define([AT_JT_throws_define], [m4_case(AT_JT_throws,
 663         -1, [],
 664          0, [[%define throws {}]],
 665          1, [[%define throws {ClassNotFoundException}]],
 666          2, [[%define throws {ClassNotFoundException, InstantiationException}]])])
 667
 668 m4_define([AT_JT_yyaction_throws], [m4_case(AT_JT_throws,
 669         -1, [],
 670          0, [],
 671          1, [[ throws ClassNotFoundException]],
 672          2, [[ throws ClassNotFoundException, InstantiationException]])])
 673
 674 m4_define([AT_JT_parse_throws_2], [m4_case(AT_JT_throws,
 675         -1, [],
 676          0, [],
 677          1, [[, ClassNotFoundException]],
 678          2, [[, ClassNotFoundException, InstantiationException]])])
 679
 680 m4_define([AT_JT_parse_throws],
 681         [m4_if(m4_quote(AT_JT_yylex_throws), [],
 682                 [AT_JT_yyaction_throws],
 683                 [AT_JT_yylex_throws[]AT_JT_parse_throws_2])])
 684
 685 m4_define([AT_JT_initial_action], [m4_case(AT_JT_throws,
 686         -1, [],
 687          0, [],
 688          1, [[%initial-action {if (true) throw new ClassNotFoundException();}]],
 689          2, [[%initial-action {if (true) throw new InstantiationException();}]])])
 690
 691 m4_define([AT_JT_parse_action], [m4_case(AT_JT_throws,
 692         -1, [],
 693          0, [],
 694          1, [[throw new ClassNotFoundException();]],
 695          2, [[throw new ClassNotFoundException();]])])
 696
 697 m4_for([AT_JT_lexer], 0, 1, 1,
 698   [m4_for([AT_JT_lex_throws], -1, 2, 1,
 699     [m4_for([AT_JT_throws], -1, 2, 1,
 700       [m4_if(AT_JT_lexer, 0,
 701         [AT_CHECK_JAVA_MINIMAL([
 702 AT_JT_throws_define
 703 AT_JT_lex_throws_define
 704 AT_JT_initial_action],
 705 [AT_JT_parse_action])],
 706         [AT_CHECK_JAVA_MINIMAL_W_LEXER([
 707 AT_JT_throws_define
 708 AT_JT_lex_throws_define
 709 AT_JT_initial_action],
 710 [AT_JT_yylex_throws],
 711 [AT_JT_yylex_action],
 712 [],
 713 [AT_JT_parse_action])])
 714 AT_CHECK_JAVA_GREP([[ *int yylex ()]AT_JT_yylex_throws *[;]])
 715 AT_CHECK_JAVA_GREP([[ *private int yyaction ([^)]*)]AT_JT_yyaction_throws[ *]])
 716 AT_CHECK_JAVA_GREP([[ *public boolean parse ()]AT_JT_parse_throws[ *]])
 717 ])])])
 718
 719 AT_CLEANUP
 720
 721
 722 # ------------------------------------- #
 723 # Java constructor init and init_throws #
 724 # ------------------------------------- #
 725
 726 AT_SETUP([Java constructor init and init_throws])
 727
 728 m4_pushdef([AT_Witness],
 729 [super("Test Thread"); if (true) throw new InterruptedException();])
 730
 731 AT_CHECK_JAVA_MINIMAL([[
 732 %define extends {Thread}
 733 %code init { ]AT_Witness[ }
 734 %define init_throws {InterruptedException}
 735 %lex-param {int lex_param}]])
 736 AT_CHECK([[grep ']AT_Witness[' YYParser.java]], 0, [ignore])
 737
 738 AT_CHECK_JAVA_MINIMAL_W_LEXER([[
 739 %define extends {Thread}
 740 %code init { ]AT_Witness[ }
 741 %define init_throws {InterruptedException}]], [], [[return EOF;]])
 742 AT_CHECK([[grep ']AT_Witness[' YYParser.java]], 0, [ignore])
 743
 744 m4_popdef([AT_Witness])
 745
 746 AT_CLEANUP
 747
 748
 749 # ------------------------------------------ #
 750 # Java value, position, and location types.  #
 751 # ------------------------------------------ #
 752
 753 AT_SETUP([Java value, position, and location types])
 754
 755 AT_CHECK_JAVA_MINIMAL([[
 756 %define api.value.type {java.awt.Color}
 757 %type<java.awt.Color> start;
 758 %define api.location.type {MyLoc}
 759 %define api.position.type {MyPos}
 760 %code { class MyPos {} }]], [[$$ = $<java.awt.Color>1;]], [[MyPos]])
 761 AT_CHECK([[grep 'java.awt.Color' YYParser.java]], [0], [ignore])
 762 AT_CHECK([[$EGREP -v ' */?\*' YYParser.java | grep 'Position']], [1], [ignore])
 763 AT_CHECK([[$EGREP -v ' */?\*' YYParser.java | grep 'Location']], [1], [ignore])
 764
 765 AT_CHECK_JAVA_MINIMAL_W_LEXER([[
 766 %define api.value.type {java.awt.Color}
 767 %type<java.awt.Color> start;
 768 %define api.location.type {MyLoc}
 769 %define api.position.type {MyPos}
 770 %code { class MyPos {} }]], [], [[return EOF;]], [],
 771 [[$$ = $<java.awt.Color>1;]],
 772 [[java.awt.Color]], [[MyPos]], [[MyLoc]])
 773 AT_CHECK([[grep 'java.awt.Color' YYParser.java]], [0], [ignore])
 774 AT_CHECK([[$EGREP -v ' */?\*' YYParser.java | grep 'Position']], [1], [ignore])
 775 AT_CHECK([[$EGREP -v ' */?\*' YYParser.java | grep 'Location']], [1], [ignore])
 776
 777 AT_CLEANUP
 778
 779
 780 # ----------------------------------------------- #
 781 # Java syntax error handling without error token. #
 782 # ----------------------------------------------- #
 783
 784 AT_SETUP([Java syntax error handling without error token])
 785
 786 AT_DATA([[YYParser.y]], [[%language "Java"
 787
 788 %lex-param { String s }
 789
 790 %code imports {
 791   import java.io.IOException;
 792 }
 793
 794 %code lexer {
 795   String Input;
 796   int Position;
 797
 798   public YYLexer (String s)
 799   {
 800     Input    = s;
 801     Position = 0;
 802   }
 803
 804   public void yyerror (String s)
 805   {
 806     System.err.println (s);
 807   }
 808
 809   public Object getLVal ()
 810   {
 811     return null;
 812   }
 813
 814   public int yylex () throws IOException
 815   {
 816     if (Position >= Input.length ())
 817       return EOF;
 818     else
 819       return Input.charAt (Position++);
 820   }
 821 }
 822
 823 %code {
 824   public static void main (String args []) throws IOException
 825   {
 826     YYParser p = new YYParser (args [0]);
 827     p.parse ();
 828   }
 829 }
 830 %%
 831 input:
 832   'a' 'a'
 833 ;
 834 ]])
 835 AT_BISON_CHECK([[YYParser.y]])
 836 AT_JAVA_COMPILE([[YYParser.java]])
 837 AT_JAVA_PARSER_CHECK([[YYParser aa]], [[0]], [[]], [[]])
 838 AT_JAVA_PARSER_CHECK([[YYParser ab]], [[0]], [[]], [[syntax error
 839 ]])
 840 AT_JAVA_PARSER_CHECK([[YYParser ba]], [[0]], [[]], [[syntax error
 841 ]])
 842
 843 AT_CLEANUP