tests/java.at

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