From e3184dca578a7ef5dbada969643d935656939606 Mon Sep 17 00:00:00 2001 From: Stephen Leake Date: Mon, 18 Jan 2016 05:13:53 -0600 Subject: [PATCH] Update ada-mode, wisi * packages/ada-mode: Version 5.1.9. * packages/wisi: Version 1.1.2. --- packages/ada-mode/NEWS | 49 + packages/ada-mode/README | 4 +- packages/ada-mode/ada-build.el | 13 +- packages/ada-mode/ada-fix-error.el | 56 +- packages/ada-mode/ada-gnat-compile.el | 39 +- packages/ada-mode/ada-gnat-xref.el | 21 +- packages/ada-mode/ada-grammar-wy.el | 2276 +++++++++--------- packages/ada-mode/ada-indent-user-options.el | 42 +- packages/ada-mode/ada-mode-compat-24.2.el | 16 +- packages/ada-mode/ada-mode.el | 309 ++- packages/ada-mode/ada-mode.info | 130 +- packages/ada-mode/ada-mode.texi | 60 +- packages/ada-mode/ada-ref-man.el | 4 +- packages/ada-mode/ada-wisi-opentoken.el | 4 +- packages/ada-mode/ada-wisi.el | 144 +- packages/ada-mode/ada-xref.el | 1 + packages/ada-mode/gnat-core.el | 30 +- packages/ada-mode/gnat-inspect.el | 571 ----- packages/ada-mode/gpr-grammar-wy.el | 303 ++- packages/ada-mode/gpr-mode.el | 53 +- packages/ada-mode/gpr-mode.info | 2 +- packages/ada-mode/gpr-query.el | 126 +- packages/ada-mode/gpr-skel.el | 7 +- packages/ada-mode/gpr-wisi.el | 7 +- packages/wisi/NEWS | 13 + packages/wisi/README | 2 +- packages/wisi/wisi-compile.el | 201 +- packages/wisi/wisi-parse.el | 43 +- packages/wisi/wisi.el | 135 +- 29 files changed, 2315 insertions(+), 2346 deletions(-) delete mode 100644 packages/ada-mode/gnat-inspect.el diff --git a/packages/ada-mode/NEWS b/packages/ada-mode/NEWS index 1765b9634..960584ee0 100755 --- a/packages/ada-mode/NEWS +++ b/packages/ada-mode/NEWS @@ -7,6 +7,55 @@ Please send Emacs Ada mode bug reports to bug-gnu-emacs@gnu.org, with 'ada-mode' in the subject. If possible, use M-x report-emacs-bug. +* Ada mode 5.1.9 +20 Jan 2016 + +** New option ada-indent-comment-gnat matches the GNAT style check for + comments in all cases (previously, there were some cases where the + comment indent algorithm did not match the GNAT check). + +** New menu command "Show source file search path"; displays + compilation-search-path in a buffer. + +** Adding missing grammar statements to allow removing parens around + conditional and quantified expressions. + +** Key binding for ada-case-create-partial-exception in ada-mode + changed to C-c C-M-y; this is easier to type, and matches the key + binding in gpr-mode. + +** ada-case-keyword changed to accept the symbols 'lower-case, + 'upper-case instead of the functions downcase-word, upcase-word. + +** ada-case-identifier changed to accept the symbols 'mixed-case, + 'lower-case, 'upper-case instead of the functions 'ada-mixed-case, + 'ada-lower-case, 'ada-upper-case. + +** ada-fix-add-context-clause now sorts "limited with" and "private + with" clauses after other clauses. + +** ada-align now aligns '=>' in case expressions. + +** ada-align-paramlist now handles access function parameters: + + procedure Choose + (X, Y, Z : Integer; + Preference : access function (A, B : Integer) return Boolean); + +** ada-next-statement-keyword now moves to matching close paren if on + open paren, ada-prev-statement-keyword moves from close paren to + open paren. + +** New hook ada-prj-parse-hook, run from ada-parse-prj-file. + +** GPR mode now does case adjust similar to Ada mode. + +** gpr parser handles nested case statements without blowing up. + +** gpr parser handles package renames + +** fix other bugs + * Ada mode 5.1.8 10 Apr 2015 diff --git a/packages/ada-mode/README b/packages/ada-mode/README index fdc20c078..df7a48c38 100644 --- a/packages/ada-mode/README +++ b/packages/ada-mode/README @@ -1,4 +1,4 @@ -Emacs Ada mode version 5.1.8 +Emacs Ada mode version 5.1.9 Ada mode requires Emacs 24.2 or greater @@ -22,7 +22,7 @@ Unzip to a convenient place (we will use ~/ada-mode in the following). In a shell: $ cd ~/ada-mode/build/wisi -$ byte-compile +$ make byte-compile Edit your ~/.emacs, add: diff --git a/packages/ada-mode/ada-build.el b/packages/ada-mode/ada-build.el index c54cae21d..05534546b 100644 --- a/packages/ada-mode/ada-build.el +++ b/packages/ada-mode/ada-build.el @@ -1,4 +1,4 @@ -;;; ada-build.el --- Extensions to ada-mode for compiling and running -*- lexical-binding:t -*- +;; ada-build.el --- Extensions to ada-mode for compiling and running -*- lexical-binding:t -*- ;; Ada projects without 'make' or similar tool ;; ;; Copyright (C) 1994, 1995, 1997 - 2015 Free Software Foundation, Inc. @@ -34,9 +34,7 @@ ;; compiling and running capabilities in Ada mode 4.01, done in 2013 by ;; Stephen Leake . -(when (and (= emacs-major-version 24) - (= emacs-minor-version 2)) - (require 'ada-mode-compat-24.2)) +(require 'ada-mode-compat-24.2) (require 'ada-mode) @@ -72,6 +70,9 @@ Overridden by project variable 'check_cmd'." Overridden by project variable 'make_cmd'." :type 'string) +;; FIXME: make this more intelligent to work on Windows cmd shell? +;; either detect Windows and drop "./", or expand to full path at +;; runtime. (defcustom ada-build-run-cmd "./${main}" "Default command to run the application, in a spawned shell. Overridden by project variable 'run_cmd'." @@ -90,8 +91,8 @@ a list, the prefix is prepended to each list element. For example, if src_dir contains 'dir_1 dir_2', '-I${src_dir}' expands to '-Idir_1 -Idir_2'. -As a special case, ${full_current} is replaced by the name -including the directory and extension." +As a special case, ${full_current} is replaced by the current +buffer file name including the directory and extension." (while (string-match "\\(-[^-$ ]+\\)?\\${\\([^}]+\\)}" cmd-string) (let ((prefix (match-string 1 cmd-string)) diff --git a/packages/ada-mode/ada-fix-error.el b/packages/ada-mode/ada-fix-error.el index 800810478..6ec0fd787 100644 --- a/packages/ada-mode/ada-fix-error.el +++ b/packages/ada-mode/ada-fix-error.el @@ -63,6 +63,57 @@ compilation unit.") (ada-case-adjust-identifier) (delete-char 1))) +(defun ada-fix-sort-context-pred (a b) + "Predicate for `sort-subr'; sorts \"limited with\", \"private with\" last. +Returns non-nil if a should preceed b in buffer." + ;; a, b are buffer ranges in the current buffer + (cl-flet + ((starts-with + (pat reg) + (string= pat (buffer-substring-no-properties (car reg) + (min (point-max) + (+(car reg) (length pat))))))) + (cond + ((and + (starts-with "limited with" a) + (starts-with "private with" b)) + t) + + ((and + (starts-with "limited with" a) + (not (starts-with "limited with" b))) + nil) + + ((and + (not (starts-with "limited with" a)) + (starts-with "limited with" b)) + t) + + ((and + (starts-with "private with" a) + (not (starts-with "private with" b))) + nil) + + ((and + (not (starts-with "private with" a)) + (starts-with "private with" b)) + t) + + (t + (> 0 (compare-buffer-substrings + nil (car a) (cdr a) + nil (car b) (cdr b))) ) + ))) + +(defun ada-fix-sort-context-clause (beg end) + "Sort context clauses in range BEG END." + (save-excursion + (save-restriction + (narrow-to-region beg end) + (goto-char (point-min)) + (sort-subr nil 'forward-line 'end-of-line nil nil 'ada-fix-sort-context-pred) + ))) + (defun ada-fix-add-with-clause (package-name) "Add a with_clause for PACKAGE_NAME. If ada-fix-sort-context-clause, sort the context clauses using @@ -78,8 +129,7 @@ sort-lines." (when (and (< (car context-clause) (cdr context-clause)) ada-fix-sort-context-clause) - ;; FIXME (later): this puts "limited with", "private with" at top of list; prefer at bottom - (sort-lines nil (car context-clause) (point))) + (ada-fix-sort-context-clause (car context-clause) (point))) )) (defun ada-fix-extend-with-clause (child-name) @@ -157,7 +207,7 @@ point and return nil.") (when (not (ada-get-compilation-message)) (beep) (message "FIXME: ada-fix-compiler-error") - ;; not clear why this can happens, but it does + ;; not clear why this can happen, but it has (compilation-next-error 1)) (let ((comp-buf-pt (point)) (success diff --git a/packages/ada-mode/ada-gnat-compile.el b/packages/ada-mode/ada-gnat-compile.el index a09c48201..ee4b12a2e 100644 --- a/packages/ada-mode/ada-gnat-compile.el +++ b/packages/ada-mode/ada-gnat-compile.el @@ -347,24 +347,23 @@ Prompt user if more than one." t))) ((looking-at (concat "expected \\(private \\)?type " ada-gnat-quoted-name-regexp)) - (progn - (forward-line 1) - (move-to-column message-column) - (cond - ((looking-at "found type access") - (pop-to-buffer source-buffer) - (if (looking-at "'Access") - (kill-word 1) - (forward-word 1) - (insert ".all")) - t) - ((looking-at "found type .*_Access_Type") - ;; assume just need '.all' - (pop-to-buffer source-buffer) + (forward-line 1) + (move-to-column message-column) + (cond + ((looking-at "found type access") + (pop-to-buffer source-buffer) + (if (looking-at "'Access") + (kill-word 1) (forward-word 1) - (insert ".all") - t) - ))) + (insert ".all")) + t) + ((looking-at "found type .*_Access_Type") + ;; assume just need '.all' + (pop-to-buffer source-buffer) + (forward-word 1) + (insert ".all") + t) + )) ((looking-at "extra \".\" ignored") (set-buffer source-buffer) @@ -381,7 +380,9 @@ Prompt user if more than one." ;; also 'possible missing "with Ada.Text_IO; use Ada.Text_IO"' - ignoring the 'use' (let ((package-name (match-string-no-properties 1))) (pop-to-buffer source-buffer) - ;; FIXME (later): should check if prefix is already with'd, extend it + ;; Could check if prefix is already with'd, extend + ;; it. But no one has reported that case yet; this + ;; message only occurs for predefined Ada packages. (ada-fix-add-with-clause package-name)) t) @@ -579,7 +580,7 @@ Prompt user if more than one." (defun ada-gnat-compile-select-prj () (setq ada-fix-error-hook 'ada-gnat-fix-error-hook) - (setq ada-prj-show-path 'gnat-prj-show-path) + (setq ada-prj-show-prj-path 'gnat-prj-show-prj-path) (add-to-list 'completion-ignored-extensions ".ali") ;; gnat library files (add-hook 'ada-syntax-propertize-hook 'ada-gnat-syntax-propertize) (add-hook 'ada-syntax-propertize-hook 'gnatprep-syntax-propertize) diff --git a/packages/ada-mode/ada-gnat-xref.el b/packages/ada-mode/ada-gnat-xref.el index 05961a08d..53553b396 100644 --- a/packages/ada-mode/ada-gnat-xref.el +++ b/packages/ada-mode/ada-gnat-xref.el @@ -1,4 +1,4 @@ -;;; ada-gnat-xref.el --- Ada mode cross-reference functionality provided by the 'gnat xref' tool -*- lexical-binding:t -*- +;;; ada-gnat-xref.el --- Ada mode cross-reference functionality provided by 'gnat xref' -*- lexical-binding:t -*- ;; ;; These tools are all Ada-specific; see gpr-query for multi-language ;; GNAT cross-reference tools. @@ -119,15 +119,14 @@ ;; error in *.gpr; ignore here. (forward-line 1) ;; else process line - (progn - (skip-syntax-forward "^ ") - (skip-syntax-forward " ") - (if (looking-at (concat "derived from .* (" ada-gnat-file-line-col-regexp ")")) - ;; found other item - (setq result (list (match-string 1) - (string-to-number (match-string 2)) - (1- (string-to-number (match-string 3))))) - (forward-line 1))) + (skip-syntax-forward "^ ") + (skip-syntax-forward " ") + (if (looking-at (concat "derived from .* (" ada-gnat-file-line-col-regexp ")")) + ;; found other item + (setq result (list (match-string 1) + (string-to-number (match-string 2)) + (1- (string-to-number (match-string 3))))) + (forward-line 1)) ) (when (eobp) (error "gnat find did not return parent types")) @@ -159,7 +158,7 @@ (compilation-start cmd 'compilation-mode - (lambda (mode) (concat mode "-gnatfind"))) + (lambda (name) (concat name "-gnatfind"))) )))) ;;;;; setup diff --git a/packages/ada-mode/ada-grammar-wy.el b/packages/ada-mode/ada-grammar-wy.el index 32665130e..10cd52555 100644 --- a/packages/ada-mode/ada-grammar-wy.el +++ b/packages/ada-mode/ada-grammar-wy.el @@ -1,6 +1,6 @@ ;;; ada-grammar-wy.el --- Generated parser support file -*- lexical-binding:t -*- -;; Copyright (C) 2013, 2015 Free Software Foundation, Inc. +;; Copyright (C) 2013 - 2015 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -200,6 +200,10 @@ (wisi-motion-action [4 [5 return-with-params RETURN return-without-params RETURN]])))) (actual_parameter_part ((LEFT_PAREN association_list RIGHT_PAREN ) + (progn + (wisi-statement-action [1 open-paren 3 close-paren]) + (wisi-containing-action 1 2))) + ((LEFT_PAREN conditional_quantified_expression RIGHT_PAREN ) (progn (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) @@ -217,11 +221,7 @@ (wisi-containing-action 1 2) (wisi-containing-action 1 3) (wisi-containing-action 3 4))) - ((LEFT_PAREN case_expression RIGHT_PAREN ) - (progn - (wisi-statement-action [1 open-paren 3 close-paren]) - (wisi-containing-action 1 2))) - ((LEFT_PAREN if_expression RIGHT_PAREN ) + ((LEFT_PAREN conditional_quantified_expression RIGHT_PAREN ) (progn (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2))) @@ -340,6 +340,7 @@ ((WHEN discrete_choice_list EQUAL_GREATER expression ) (progn (wisi-statement-action [1 block-middle 3 statement-other]) + (wisi-containing-action 1 3) (wisi-containing-action 3 4)))) (case_expression_alternative_list ((case_expression_alternative )) @@ -359,6 +360,7 @@ (progn (wisi-statement-action [1 block-middle 3 statement-other]) (wisi-containing-action 1 2) + (wisi-containing-action 1 3) (wisi-containing-action 3 4)))) (case_statement_alternative_list ((case_statement_alternative )) @@ -449,6 +451,10 @@ (wisi-statement-action [1 block-start 3 block-middle 5 block-end 7 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) + (conditional_quantified_expression + ((if_expression )) + ((case_expression )) + ((quantified_expression ))) (constant_opt (()) ((CONSTANT ))) @@ -617,7 +623,8 @@ ((FOR name USE aggregate SEMICOLON ) (progn (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) - (wisi-containing-action 3 4)))) + (wisi-containing-action 3 4) + (wisi-face-action [2 font-lock-type-face])))) (enumeration_type_definition ((LEFT_PAREN enumeration_literal_list RIGHT_PAREN ) (progn @@ -637,11 +644,13 @@ (progn (wisi-statement-action [1 block-middle 5 statement-other]) (wisi-containing-action 1 4) + (wisi-containing-action 1 5) (wisi-containing-action 5 6))) ((WHEN exception_choice_list EQUAL_GREATER sequence_of_statements_opt ) (progn (wisi-statement-action [1 block-middle 3 statement-other]) (wisi-containing-action 1 2) + (wisi-containing-action 1 3) (wisi-containing-action 3 4)))) (exception_handler_list ((exception_handler )) @@ -669,11 +678,14 @@ (expression_function_declaration ((overriding_indicator_opt function_specification IS paren_expression aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action [1 statement-start 2 statement-other 6 statement-end]) - (wisi-containing-action 2 4) + (wisi-statement-action [1 statement-start 2 block-middle 3 statement-other 6 statement-end]) + (wisi-containing-action 3 4) (wisi-containing-action 2 5)))) (extended_return_object_declaration - ((IDENTIFIER COLON aliased_opt constant_opt return_subtype_indication COLON_EQUAL expression )) + ((IDENTIFIER COLON aliased_opt constant_opt return_subtype_indication COLON_EQUAL expression ) + (progn + (wisi-statement-action [1 statement-start 6 statement-other]) + (wisi-containing-action 6 7))) ((IDENTIFIER COLON aliased_opt constant_opt return_subtype_indication ))) (extended_return_object_declaration_opt (()) @@ -1071,8 +1083,7 @@ (wisi-statement-action [1 name-paren 2 open-paren 4 close-paren]) (wisi-containing-action 1 2) (wisi-containing-action 2 3))) - ((selected_component ) - (wisi-extend-action 1)) + ((selected_component )) ((attribute_reference )) ((name actual_parameter_part ) (progn @@ -1169,6 +1180,7 @@ (wisi-containing-action 3 4) (wisi-containing-action 5 6) (wisi-containing-action 7 8) + (wisi-containing-action 9 10) (wisi-motion-action [1 5 7 [8 block-middle EXCEPTION block-middle WHEN] 9]) (wisi-face-action [3 font-lock-function-name-face 10 font-lock-function-name-face]))) ((PACKAGE BODY name aspect_specification_opt IS declarative_part_opt END name_opt SEMICOLON ) @@ -1177,6 +1189,7 @@ (wisi-containing-action 1 3) (wisi-containing-action 3 4) (wisi-containing-action 5 6) + (wisi-containing-action 7 8) (wisi-motion-action [1 5 7]) (wisi-face-action [3 font-lock-function-name-face 8 font-lock-function-name-face])))) (package_body_stub @@ -1206,7 +1219,7 @@ (wisi-containing-action 6 7) (wisi-motion-action [1 4 6 8]) (wisi-face-action [2 font-lock-function-name-face 9 font-lock-function-name-face]))) - ((PACKAGE name aspect_specification_opt IS declarative_part_opt END name ) + ((PACKAGE name aspect_specification_opt IS declarative_part_opt END name_opt ) (progn (wisi-statement-action [1 statement-start 2 name 4 block-start 6 block-end]) (wisi-containing-action 1 2) @@ -1253,11 +1266,7 @@ (progn (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2))) - ((LEFT_PAREN case_expression RIGHT_PAREN ) - (progn - (wisi-statement-action [1 open-paren 3 close-paren]) - (wisi-containing-action 1 2))) - ((LEFT_PAREN if_expression RIGHT_PAREN ) + ((LEFT_PAREN conditional_quantified_expression RIGHT_PAREN ) (progn (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) @@ -1274,6 +1283,7 @@ (pragma_argument_association ((IDENTIFIER EQUAL_GREATER expression )) ((expression )) + ((conditional_quantified_expression )) ((IDENTIFIER TICK IDENTIFIER EQUAL_GREATER expression ))) (pragma_argument_association_list ((pragma_argument_association )) @@ -1285,33 +1295,22 @@ ((aggregate )) ((name )) ((NEW name ) - (wisi-face-action [2 font-lock-type-face] t)) - ((LEFT_PAREN if_expression RIGHT_PAREN ) - (progn - (wisi-statement-action [1 open-paren 3 close-paren]) - (wisi-containing-action 1 2))) - ((LEFT_PAREN case_expression RIGHT_PAREN ) - (progn - (wisi-statement-action [1 open-paren 3 close-paren]) - (wisi-containing-action 1 2))) - ((LEFT_PAREN quantified_expression RIGHT_PAREN ) - (progn - (wisi-statement-action [1 open-paren 3 close-paren]) - (wisi-containing-action 1 2)))) + (wisi-face-action [2 font-lock-type-face] t))) (private_extension_declaration ((TYPE IDENTIFIER discriminant_part_opt IS abstract_limited_synchronized_opt NEW subtype_indication and_interface_list_opt WITH PRIVATE aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action [1 statement-start 2 name 6 statement-other 12 statement-end]) + (wisi-statement-action [1 statement-start 2 name 4 statement-other 6 statement-other 12 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 6 7) (wisi-containing-action 6 8) - (wisi-containing-action 2 11) + (wisi-containing-action 4 11) (wisi-face-action [2 font-lock-type-face])))) (private_type_declaration ((TYPE IDENTIFIER discriminant_part_opt IS abstract_tagged_limited_opt PRIVATE aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action [1 statement-start 2 name 8 statement-end]) - (wisi-containing-action 1 7) + (wisi-statement-action [1 statement-start 2 name 4 statement-other 8 statement-end]) + (wisi-containing-action 1 3) + (wisi-containing-action 4 7) (wisi-face-action [2 font-lock-type-face])))) (procedure_call_statement ((name SEMICOLON ) @@ -1373,15 +1372,15 @@ (protected_type_declaration ((PROTECTED TYPE IDENTIFIER discriminant_part_opt aspect_specification_opt IS NEW interface_list WITH protected_definition SEMICOLON ) (progn - (wisi-statement-action [1 statement-start 3 name 6 block-start 9 statement-other 11 statement-end]) - (wisi-containing-action 1 3) + (wisi-statement-action [1 statement-start 3 name 6 block-middle 9 block-middle 11 statement-end]) + (wisi-containing-action 1 4) (wisi-containing-action 3 5) (wisi-containing-action 6 10) (wisi-face-action [3 font-lock-type-face]))) ((PROTECTED TYPE IDENTIFIER discriminant_part_opt aspect_specification_opt IS protected_definition SEMICOLON ) (progn - (wisi-statement-action [1 statement-start 3 name 6 block-start 8 statement-end]) - (wisi-containing-action 1 3) + (wisi-statement-action [1 statement-start 3 name 6 block-middle 8 statement-end]) + (wisi-containing-action 1 4) (wisi-containing-action 3 5) (wisi-containing-action 6 7) (wisi-face-action [3 font-lock-type-face])))) @@ -1437,7 +1436,8 @@ ((FOR name USE record_rep SEMICOLON ) (progn (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) - (wisi-containing-action 3 4)))) + (wisi-containing-action 3 4) + (wisi-face-action [2 font-lock-type-face])))) (record_rep ((RECORD mod_clause_opt component_clause_list END RECORD ) (progn @@ -1491,7 +1491,8 @@ ((subtype_indication )) ((access_definition ))) (selected_component - ((name DOT IDENTIFIER )) + ((name DOT IDENTIFIER ) + (wisi-extend-action 1 3)) ((name DOT CHARACTER_LITERAL )) ((name DOT STRING_LITERAL )) ((name DOT ALL ))) @@ -1512,6 +1513,7 @@ (progn (wisi-statement-action [1 block-start 3 statement-other]) (wisi-containing-action 1 2) + (wisi-containing-action 1 3) (wisi-containing-action 3 4) (wisi-containing-action 3 5))) ((accept_statement sequence_of_statements_opt )) @@ -1519,12 +1521,14 @@ (progn (wisi-statement-action [1 block-start 3 statement-other]) (wisi-containing-action 1 2) + (wisi-containing-action 1 3) (wisi-containing-action 3 4))) ((delay_alternative )) ((WHEN expression EQUAL_GREATER TERMINATE SEMICOLON ) (progn (wisi-statement-action [1 block-start 3 statement-other 4 statement-start 5 statement-end]) - (wisi-containing-action 1 2))) + (wisi-containing-action 1 2) + (wisi-containing-action 1 3))) ((TERMINATE SEMICOLON ) (wisi-statement-action [1 statement-start 2 statement-end]))) (select_alternative_list @@ -1575,14 +1579,15 @@ (single_protected_declaration ((PROTECTED IDENTIFIER aspect_specification_opt IS NEW interface_list WITH protected_definition SEMICOLON ) (progn - (wisi-statement-action [1 block-start 2 name 7 block-middle 9 statement-end]) + (wisi-statement-action [1 statement-start 2 name 4 block-middle 7 block-middle 9 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) + (wisi-containing-action 4 6) (wisi-containing-action 7 8) (wisi-face-action [2 font-lock-type-face]))) ((PROTECTED IDENTIFIER aspect_specification_opt IS protected_definition SEMICOLON ) (progn - (wisi-statement-action [1 block-start 2 name 4 block-middle 6 statement-end]) + (wisi-statement-action [1 statement-start 2 name 4 block-middle 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) (wisi-containing-action 4 5) @@ -1590,14 +1595,15 @@ (single_task_declaration ((TASK IDENTIFIER aspect_specification_opt IS NEW interface_list WITH task_definition SEMICOLON ) (progn - (wisi-statement-action [1 block-start 2 name 7 block-middle 9 statement-end]) + (wisi-statement-action [1 statement-start 2 name 4 block-middle 7 block-middle 9 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) + (wisi-containing-action 4 6) (wisi-containing-action 7 8) (wisi-face-action [2 font-lock-type-face]))) ((TASK IDENTIFIER aspect_specification_opt IS task_definition SEMICOLON ) (progn - (wisi-statement-action [1 block-start 2 name 4 block-middle 6 statement-end]) + (wisi-statement-action [1 statement-start 2 name 4 block-middle 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) (wisi-containing-action 4 5) @@ -1702,19 +1708,22 @@ (task_type_declaration ((TASK TYPE IDENTIFIER discriminant_part_opt aspect_specification_opt IS NEW interface_list WITH task_definition SEMICOLON ) (progn - (wisi-statement-action [1 statement-start 3 name 10 statement-other 11 statement-end]) + (wisi-statement-action [1 statement-start 3 name 6 block-middle 9 block-middle 11 statement-end]) + (wisi-containing-action 1 4) (wisi-containing-action 3 5) - (wisi-containing-action 9 10) - (wisi-face-action [2 font-lock-type-face]))) + (wisi-containing-action 6 10) + (wisi-face-action [3 font-lock-type-face]))) ((TASK TYPE IDENTIFIER discriminant_part_opt aspect_specification_opt IS task_definition SEMICOLON ) (progn - (wisi-statement-action [1 statement-start 3 name 6 block-start 8 statement-end]) + (wisi-statement-action [1 statement-start 3 name 6 block-middle 8 statement-end]) + (wisi-containing-action 1 4) (wisi-containing-action 3 5) (wisi-containing-action 6 7) (wisi-face-action [3 font-lock-type-face]))) ((TASK TYPE IDENTIFIER discriminant_part_opt aspect_specification_opt SEMICOLON ) (progn (wisi-statement-action [1 statement-start 3 name 6 statement-end]) + (wisi-containing-action 1 4) (wisi-containing-action 3 5) (wisi-face-action [3 font-lock-type-face])))) (term @@ -1763,6 +1772,7 @@ (progn (wisi-statement-action [1 block-middle 3 statement-other]) (wisi-containing-action 1 2) + (wisi-containing-action 1 3) (wisi-containing-action 3 4)))) (unary_adding_operator ((PLUS )) @@ -1852,14 +1862,14 @@ ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) ($EOI . accept) (CHARACTER_LITERAL . accept) (STRING_LITERAL . accept) (IDENTIFIER . accept) (NUMERIC_LITERAL . accept) (TICK . accept) (STAR_STAR . accept) (STAR . accept) (SLASH_EQUAL . accept) (SLASH . accept) (SEMICOLON . accept) (PLUS . accept) (MINUS . accept) (LESS_LESS . accept) (LESS_EQUAL . accept) (LESS . accept) (GREATER_GREATER . accept) (GREATER_EQUAL . accept) (GREATER . accept) (EQUAL_GREATER . accept) (EQUAL . accept) (DOT_DOT . accept) (DOT . accept) (COMMA . accept) (COLON_EQUAL . accept) (COLON . accept) (BOX . accept) (BAR . accept) (AMPERSAND . accept) (XOR . accept) (WITH . accept) (WHILE . accept) (WHEN . accept) (USE . accept) (UNTIL . accept) (TYPE . accept) (THEN . accept) (TERMINATE . accept) (TASK . accept) (TAGGED . accept) (SYNCHRONIZED . accept) (SUBTYPE . accept) (SOME . accept) (SELECT . accept) (SEPARATE . accept) (RIGHT_PAREN . accept) (REVERSE . accept) (RETURN . accept) (REQUEUE . accept) (RENAMES . accept) (REM . accept) (RECORD . accept) (RANGE . accept) (RAISE . accept) (PROTECTED . accept) (PROCEDURE . accept) (PRIVATE . accept) (PRAGMA . accept) (PACKAGE . accept) (OVERRIDING . accept) (OUT . accept) (OTHERS . accept) (OR . accept) (OF . accept) (NULL . accept) (NOT . accept) (NEW . accept) (MOD . accept) (LOOP . accept) (LIMITED . accept) (LEFT_PAREN . accept) (IS . accept) (INTERFACE . accept) (IN . accept) (IF . accept) (GOTO . accept) (GENERIC . accept) (FUNCTION . accept) (FOR . accept) (EXIT . accept) (EXCEPTION . accept) (ENTRY . accept) (END . accept) (ELSIF . accept) (ELSE . accept) (DO . accept) (DIGITS . accept) (DELTA . accept) (DELAY . accept) (DECLARE . accept) (CONSTANT . accept) (CASE . accept) (BODY . accept) (BEGIN . accept) (AT . accept) (ARRAY . accept) (AND . accept) (ALL . accept) (ALIASED . accept) (ACCESS . accept) (ABSTRACT . accept) (ABORT . accept) (ACCEPT . accept) (ABS . accept)) ((default . error) (WITH . (compilation_unit_list . 1)) (USE . (compilation_unit_list . 1)) (SEPARATE . (compilation_unit_list . 1)) (PROCEDURE . (compilation_unit_list . 1)) (PRIVATE . (compilation_unit_list . 1)) (PRAGMA . (compilation_unit_list . 1)) (PACKAGE . (compilation_unit_list . 1)) (OVERRIDING . (compilation_unit_list . 1)) (NOT . (compilation_unit_list . 1)) (LIMITED . (compilation_unit_list . 1)) (GENERIC . (compilation_unit_list . 1)) (FUNCTION . (compilation_unit_list . 1)) ($EOI . (compilation_unit_list . 1))) - ((default . error) (USE . (name . 0)) (DO . (name . 0)) (ELSIF . (name . 0)) (RENAMES . (name . 0)) (ELSE . (name . 0)) (ACCEPT . (name . 0)) (ABORT . (name . 0)) (BEGIN . (name . 0)) (CASE . (name . 0)) (DECLARE . (name . 0)) (DELAY . (name . 0)) (EXIT . (name . 0)) (FOR . (name . 0)) (GOTO . (name . 0)) (IF . (name . 0)) (LOOP . (name . 0)) (NULL . (name . 0)) (PRAGMA . (name . 0)) (RAISE . (name . 0)) (REQUEUE . (name . 0)) (RETURN . (name . 0)) (SELECT . (name . 0)) (WHILE . (name . 0)) (LESS_LESS . (name . 0)) (IDENTIFIER . (name . 0)) (STRING_LITERAL . (name . 0)) (CHARACTER_LITERAL . (name . 0)) (OF . (name . 0)) (DIGITS . (name . 0)) (COMMA . (name . 0)) (THEN . (name . 0)) (COLON_EQUAL . (name . 0)) (WITH . (name . 0)) (BAR . (name . 0)) (EQUAL_GREATER . (name . 0)) (IS . (name . 0)) (SLASH_EQUAL . (name . 0)) (LESS_EQUAL . (name . 0)) (LESS . (name . 0)) (GREATER_EQUAL . (name . 0)) (GREATER . (name . 0)) (EQUAL . (name . 0)) (NOT . (name . 0)) (IN . (name . 0)) (AND . (name . 0)) (OR . (name . 0)) (XOR . (name . 0)) (SEMICOLON . (name . 0)) (RIGHT_PAREN . (name . 0)) (LEFT_PAREN . (name . 0)) (RANGE . (name . 0)) (TICK . (name . 0)) (DOT . (name . 0)) (PLUS . (name . 0)) (MINUS . (name . 0)) (AMPERSAND . (name . 0)) (DOT_DOT . (name . 0)) (MOD . (name . 0)) (REM . (name . 0)) (SLASH . (name . 0)) (STAR . (name . 0)) (STAR_STAR . (name . 0))) - ((default . error) (USE . (name . 7)) (DO . (name . 7)) (ELSIF . (name . 7)) (RENAMES . (name . 7)) (ELSE . (name . 7)) (ACCEPT . (name . 7)) (ABORT . (name . 7)) (BEGIN . (name . 7)) (CASE . (name . 7)) (DECLARE . (name . 7)) (DELAY . (name . 7)) (EXIT . (name . 7)) (FOR . (name . 7)) (GOTO . (name . 7)) (IF . (name . 7)) (LOOP . (name . 7)) (NULL . (name . 7)) (PRAGMA . (name . 7)) (RAISE . (name . 7)) (REQUEUE . (name . 7)) (RETURN . (name . 7)) (SELECT . (name . 7)) (WHILE . (name . 7)) (LESS_LESS . (name . 7)) (IDENTIFIER . (name . 7)) (STRING_LITERAL . (name . 7)) (CHARACTER_LITERAL . (name . 7)) (OF . (name . 7)) (DIGITS . (name . 7)) (COMMA . (name . 7)) (THEN . (name . 7)) (COLON_EQUAL . (name . 7)) (WITH . (name . 7)) (BAR . (name . 7)) (EQUAL_GREATER . (name . 7)) (IS . (name . 7)) (SLASH_EQUAL . (name . 7)) (LESS_EQUAL . (name . 7)) (LESS . (name . 7)) (GREATER_EQUAL . (name . 7)) (GREATER . (name . 7)) (EQUAL . (name . 7)) (NOT . (name . 7)) (IN . (name . 7)) (AND . (name . 7)) (OR . (name . 7)) (XOR . (name . 7)) (SEMICOLON . (name . 7)) (RIGHT_PAREN . (name . 7)) (LEFT_PAREN . (name . 7)) (RANGE . (name . 7)) (TICK . (name . 7)) (DOT . (name . 7)) (PLUS . (name . 7)) (MINUS . (name . 7)) (AMPERSAND . (name . 7)) (DOT_DOT . (name . 7)) (MOD . (name . 7)) (REM . (name . 7)) (SLASH . (name . 7)) (STAR . (name . 7)) (STAR_STAR . (name . 7))) - ((default . error) (DO . (name . 1)) (USE . (name . 1)) (ELSIF . (name . 1)) (COMMA . (name . 1)) (RENAMES . (name . 1)) (ELSE . (name . 1)) (ACCEPT . (name . 1)) (ABORT . (name . 1)) (BEGIN . (name . 1)) (CASE . (name . 1)) (DECLARE . (name . 1)) (DELAY . (name . 1)) (EXIT . (name . 1)) (FOR . (name . 1)) (GOTO . (name . 1)) (IF . (name . 1)) (LOOP . (name . 1)) (NULL . (name . 1)) (PRAGMA . (name . 1)) (RAISE . (name . 1)) (REQUEUE . (name . 1)) (RETURN . (name . 1)) (SELECT . (name . 1)) (WHILE . (name . 1)) (LESS_LESS . (name . 1)) (IDENTIFIER . (name . 1)) (STRING_LITERAL . (name . 1)) (CHARACTER_LITERAL . (name . 1)) (OF . (name . 1)) (DIGITS . (name . 1)) (THEN . (name . 1)) (COLON_EQUAL . (name . 1)) (WITH . (name . 1)) (BAR . (name . 1)) (EQUAL_GREATER . (name . 1)) (IS . (name . 1)) (SLASH_EQUAL . (name . 1)) (LESS_EQUAL . (name . 1)) (LESS . (name . 1)) (GREATER_EQUAL . (name . 1)) (GREATER . (name . 1)) (EQUAL . (name . 1)) (NOT . (name . 1)) (IN . (name . 1)) (AND . (name . 1)) (OR . (name . 1)) (XOR . (name . 1)) (SEMICOLON . (name . 1)) (RIGHT_PAREN . (name . 1)) (LEFT_PAREN . (name . 1)) (RANGE . (name . 1)) (TICK . (name . 1)) (DOT . (name . 1)) (PLUS . (name . 1)) (MINUS . (name . 1)) (AMPERSAND . (name . 1)) (DOT_DOT . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (SLASH . (name . 1)) (STAR . (name . 1)) (STAR_STAR . (name . 1))) - ((default . error) (USE . (name . 4)) (DO . (name . 4)) (ELSIF . (name . 4)) (RENAMES . (name . 4)) (ELSE . (name . 4)) (ACCEPT . (name . 4)) (ABORT . (name . 4)) (BEGIN . (name . 4)) (CASE . (name . 4)) (DECLARE . (name . 4)) (DELAY . (name . 4)) (EXIT . (name . 4)) (FOR . (name . 4)) (GOTO . (name . 4)) (IF . (name . 4)) (LOOP . (name . 4)) (NULL . (name . 4)) (PRAGMA . (name . 4)) (RAISE . (name . 4)) (REQUEUE . (name . 4)) (RETURN . (name . 4)) (SELECT . (name . 4)) (WHILE . (name . 4)) (LESS_LESS . (name . 4)) (IDENTIFIER . (name . 4)) (STRING_LITERAL . (name . 4)) (CHARACTER_LITERAL . (name . 4)) (OF . (name . 4)) (DIGITS . (name . 4)) (COMMA . (name . 4)) (THEN . (name . 4)) (COLON_EQUAL . (name . 4)) (WITH . (name . 4)) (BAR . (name . 4)) (EQUAL_GREATER . (name . 4)) (IS . (name . 4)) (SLASH_EQUAL . (name . 4)) (LESS_EQUAL . (name . 4)) (LESS . (name . 4)) (GREATER_EQUAL . (name . 4)) (GREATER . (name . 4)) (EQUAL . (name . 4)) (NOT . (name . 4)) (IN . (name . 4)) (AND . (name . 4)) (OR . (name . 4)) (XOR . (name . 4)) (SEMICOLON . (name . 4)) (RIGHT_PAREN . (name . 4)) (LEFT_PAREN . (name . 4)) (RANGE . (name . 4)) (TICK . (name . 4)) (DOT . (name . 4)) (PLUS . (name . 4)) (MINUS . (name . 4)) (AMPERSAND . (name . 4)) (DOT_DOT . (name . 4)) (MOD . (name . 4)) (REM . (name . 4)) (SLASH . (name . 4)) (STAR . (name . 4)) (STAR_STAR . (name . 4))) + ((default . error) (USE . (name . 0)) (DO . (name . 0)) (ELSIF . (name . 0)) (RENAMES . (name . 0)) (OF . (name . 0)) (ELSE . (name . 0)) (ACCEPT . (name . 0)) (ABORT . (name . 0)) (BEGIN . (name . 0)) (CASE . (name . 0)) (DECLARE . (name . 0)) (DELAY . (name . 0)) (EXIT . (name . 0)) (FOR . (name . 0)) (GOTO . (name . 0)) (IF . (name . 0)) (LOOP . (name . 0)) (NULL . (name . 0)) (PRAGMA . (name . 0)) (RAISE . (name . 0)) (REQUEUE . (name . 0)) (RETURN . (name . 0)) (SELECT . (name . 0)) (WHILE . (name . 0)) (LESS_LESS . (name . 0)) (IDENTIFIER . (name . 0)) (STRING_LITERAL . (name . 0)) (CHARACTER_LITERAL . (name . 0)) (DIGITS . (name . 0)) (COMMA . (name . 0)) (THEN . (name . 0)) (COLON_EQUAL . (name . 0)) (WITH . (name . 0)) (BAR . (name . 0)) (EQUAL_GREATER . (name . 0)) (IS . (name . 0)) (SLASH_EQUAL . (name . 0)) (LESS_EQUAL . (name . 0)) (LESS . (name . 0)) (GREATER_EQUAL . (name . 0)) (GREATER . (name . 0)) (EQUAL . (name . 0)) (NOT . (name . 0)) (IN . (name . 0)) (AND . (name . 0)) (OR . (name . 0)) (XOR . (name . 0)) (SEMICOLON . (name . 0)) (RIGHT_PAREN . (name . 0)) (LEFT_PAREN . (name . 0)) (RANGE . (name . 0)) (TICK . (name . 0)) (DOT . (name . 0)) (PLUS . (name . 0)) (MINUS . (name . 0)) (AMPERSAND . (name . 0)) (DOT_DOT . (name . 0)) (MOD . (name . 0)) (REM . (name . 0)) (SLASH . (name . 0)) (STAR . (name . 0)) (STAR_STAR . (name . 0))) + ((default . error) (USE . (name . 7)) (DO . (name . 7)) (ELSIF . (name . 7)) (RENAMES . (name . 7)) (OF . (name . 7)) (ELSE . (name . 7)) (ACCEPT . (name . 7)) (ABORT . (name . 7)) (BEGIN . (name . 7)) (CASE . (name . 7)) (DECLARE . (name . 7)) (DELAY . (name . 7)) (EXIT . (name . 7)) (FOR . (name . 7)) (GOTO . (name . 7)) (IF . (name . 7)) (LOOP . (name . 7)) (NULL . (name . 7)) (PRAGMA . (name . 7)) (RAISE . (name . 7)) (REQUEUE . (name . 7)) (RETURN . (name . 7)) (SELECT . (name . 7)) (WHILE . (name . 7)) (LESS_LESS . (name . 7)) (IDENTIFIER . (name . 7)) (STRING_LITERAL . (name . 7)) (CHARACTER_LITERAL . (name . 7)) (DIGITS . (name . 7)) (COMMA . (name . 7)) (THEN . (name . 7)) (COLON_EQUAL . (name . 7)) (WITH . (name . 7)) (BAR . (name . 7)) (EQUAL_GREATER . (name . 7)) (IS . (name . 7)) (SLASH_EQUAL . (name . 7)) (LESS_EQUAL . (name . 7)) (LESS . (name . 7)) (GREATER_EQUAL . (name . 7)) (GREATER . (name . 7)) (EQUAL . (name . 7)) (NOT . (name . 7)) (IN . (name . 7)) (AND . (name . 7)) (OR . (name . 7)) (XOR . (name . 7)) (SEMICOLON . (name . 7)) (RIGHT_PAREN . (name . 7)) (LEFT_PAREN . (name . 7)) (RANGE . (name . 7)) (TICK . (name . 7)) (DOT . (name . 7)) (PLUS . (name . 7)) (MINUS . (name . 7)) (AMPERSAND . (name . 7)) (DOT_DOT . (name . 7)) (MOD . (name . 7)) (REM . (name . 7)) (SLASH . (name . 7)) (STAR . (name . 7)) (STAR_STAR . (name . 7))) + ((default . error) (DO . (name . 1)) (USE . (name . 1)) (ELSIF . (name . 1)) (COMMA . (name . 1)) (RENAMES . (name . 1)) (OF . (name . 1)) (ELSE . (name . 1)) (ACCEPT . (name . 1)) (ABORT . (name . 1)) (BEGIN . (name . 1)) (CASE . (name . 1)) (DECLARE . (name . 1)) (DELAY . (name . 1)) (EXIT . (name . 1)) (FOR . (name . 1)) (GOTO . (name . 1)) (IF . (name . 1)) (LOOP . (name . 1)) (NULL . (name . 1)) (PRAGMA . (name . 1)) (RAISE . (name . 1)) (REQUEUE . (name . 1)) (RETURN . (name . 1)) (SELECT . (name . 1)) (WHILE . (name . 1)) (LESS_LESS . (name . 1)) (IDENTIFIER . (name . 1)) (STRING_LITERAL . (name . 1)) (CHARACTER_LITERAL . (name . 1)) (DIGITS . (name . 1)) (THEN . (name . 1)) (COLON_EQUAL . (name . 1)) (WITH . (name . 1)) (BAR . (name . 1)) (EQUAL_GREATER . (name . 1)) (IS . (name . 1)) (SLASH_EQUAL . (name . 1)) (LESS_EQUAL . (name . 1)) (LESS . (name . 1)) (GREATER_EQUAL . (name . 1)) (GREATER . (name . 1)) (EQUAL . (name . 1)) (NOT . (name . 1)) (IN . (name . 1)) (AND . (name . 1)) (OR . (name . 1)) (XOR . (name . 1)) (SEMICOLON . (name . 1)) (RIGHT_PAREN . (name . 1)) (LEFT_PAREN . (name . 1)) (RANGE . (name . 1)) (TICK . (name . 1)) (DOT . (name . 1)) (PLUS . (name . 1)) (MINUS . (name . 1)) (AMPERSAND . (name . 1)) (DOT_DOT . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (SLASH . (name . 1)) (STAR . (name . 1)) (STAR_STAR . (name . 1))) + ((default . error) (USE . (name . 4)) (DO . (name . 4)) (ELSIF . (name . 4)) (RENAMES . (name . 4)) (OF . (name . 4)) (ELSE . (name . 4)) (ACCEPT . (name . 4)) (ABORT . (name . 4)) (BEGIN . (name . 4)) (CASE . (name . 4)) (DECLARE . (name . 4)) (DELAY . (name . 4)) (EXIT . (name . 4)) (FOR . (name . 4)) (GOTO . (name . 4)) (IF . (name . 4)) (LOOP . (name . 4)) (NULL . (name . 4)) (PRAGMA . (name . 4)) (RAISE . (name . 4)) (REQUEUE . (name . 4)) (RETURN . (name . 4)) (SELECT . (name . 4)) (WHILE . (name . 4)) (LESS_LESS . (name . 4)) (IDENTIFIER . (name . 4)) (STRING_LITERAL . (name . 4)) (CHARACTER_LITERAL . (name . 4)) (DIGITS . (name . 4)) (COMMA . (name . 4)) (THEN . (name . 4)) (COLON_EQUAL . (name . 4)) (WITH . (name . 4)) (BAR . (name . 4)) (EQUAL_GREATER . (name . 4)) (IS . (name . 4)) (SLASH_EQUAL . (name . 4)) (LESS_EQUAL . (name . 4)) (LESS . (name . 4)) (GREATER_EQUAL . (name . 4)) (GREATER . (name . 4)) (EQUAL . (name . 4)) (NOT . (name . 4)) (IN . (name . 4)) (AND . (name . 4)) (OR . (name . 4)) (XOR . (name . 4)) (SEMICOLON . (name . 4)) (RIGHT_PAREN . (name . 4)) (LEFT_PAREN . (name . 4)) (RANGE . (name . 4)) (TICK . (name . 4)) (DOT . (name . 4)) (PLUS . (name . 4)) (MINUS . (name . 4)) (AMPERSAND . (name . 4)) (DOT_DOT . (name . 4)) (MOD . (name . 4)) (REM . (name . 4)) (SLASH . (name . 4)) (STAR . (name . 4)) (STAR_STAR . (name . 4))) ((default . error) (COMMA . 120) (SEMICOLON . 124)) ((default . error) (DOT . 90) (SEMICOLON . (name_list . 0)) (COMMA . (name_list . 0)) (TICK . 91) (LEFT_PAREN . 107)) - ((default . error) (DO . (name . 6)) (USE . (name . 6)) (ELSIF . (name . 6)) (RENAMES . (name . 6)) (ELSE . (name . 6)) (ACCEPT . (name . 6)) (ABORT . (name . 6)) (BEGIN . (name . 6)) (CASE . (name . 6)) (DECLARE . (name . 6)) (DELAY . (name . 6)) (EXIT . (name . 6)) (FOR . (name . 6)) (GOTO . (name . 6)) (IF . (name . 6)) (LOOP . (name . 6)) (NULL . (name . 6)) (PRAGMA . (name . 6)) (RAISE . (name . 6)) (REQUEUE . (name . 6)) (RETURN . (name . 6)) (SELECT . (name . 6)) (WHILE . (name . 6)) (LESS_LESS . (name . 6)) (IDENTIFIER . (name . 6)) (STRING_LITERAL . (name . 6)) (CHARACTER_LITERAL . (name . 6)) (OF . (name . 6)) (DIGITS . (name . 6)) (COMMA . (name . 6)) (THEN . (name . 6)) (COLON_EQUAL . (name . 6)) (WITH . (name . 6)) (BAR . (name . 6)) (EQUAL_GREATER . (name . 6)) (IS . (name . 6)) (SLASH_EQUAL . (name . 6)) (LESS_EQUAL . (name . 6)) (LESS . (name . 6)) (GREATER_EQUAL . (name . 6)) (GREATER . (name . 6)) (EQUAL . (name . 6)) (NOT . (name . 6)) (IN . (name . 6)) (AND . (name . 6)) (OR . (name . 6)) (XOR . (name . 6)) (SEMICOLON . (name . 6)) (RIGHT_PAREN . (name . 6)) (LEFT_PAREN . (name . 6)) (RANGE . (name . 6)) (TICK . (name . 6)) (DOT . (name . 6)) (PLUS . (name . 6)) (MINUS . (name . 6)) (AMPERSAND . (name . 6)) (DOT_DOT . (name . 6)) (MOD . (name . 6)) (REM . (name . 6)) (SLASH . (name . 6)) (STAR . (name . 6)) (STAR_STAR . (name . 6))) - ((default . error) (DO . (name . 3)) (USE . (name . 3)) (ELSIF . (name . 3)) (RENAMES . (name . 3)) (ELSE . (name . 3)) (ACCEPT . (name . 3)) (ABORT . (name . 3)) (BEGIN . (name . 3)) (CASE . (name . 3)) (DECLARE . (name . 3)) (DELAY . (name . 3)) (EXIT . (name . 3)) (FOR . (name . 3)) (GOTO . (name . 3)) (IF . (name . 3)) (LOOP . (name . 3)) (NULL . (name . 3)) (PRAGMA . (name . 3)) (RAISE . (name . 3)) (REQUEUE . (name . 3)) (RETURN . (name . 3)) (SELECT . (name . 3)) (WHILE . (name . 3)) (LESS_LESS . (name . 3)) (IDENTIFIER . (name . 3)) (STRING_LITERAL . (name . 3)) (CHARACTER_LITERAL . (name . 3)) (OF . (name . 3)) (DIGITS . (name . 3)) (COMMA . (name . 3)) (THEN . (name . 3)) (COLON_EQUAL . (name . 3)) (WITH . (name . 3)) (BAR . (name . 3)) (EQUAL_GREATER . (name . 3)) (IS . (name . 3)) (SLASH_EQUAL . (name . 3)) (LESS_EQUAL . (name . 3)) (LESS . (name . 3)) (GREATER_EQUAL . (name . 3)) (GREATER . (name . 3)) (EQUAL . (name . 3)) (NOT . (name . 3)) (IN . (name . 3)) (AND . (name . 3)) (OR . (name . 3)) (XOR . (name . 3)) (SEMICOLON . (name . 3)) (RIGHT_PAREN . (name . 3)) (LEFT_PAREN . (name . 3)) (RANGE . (name . 3)) (TICK . (name . 3)) (DOT . (name . 3)) (PLUS . (name . 3)) (MINUS . (name . 3)) (AMPERSAND . (name . 3)) (DOT_DOT . (name . 3)) (MOD . (name . 3)) (REM . (name . 3)) (SLASH . (name . 3)) (STAR . (name . 3)) (STAR_STAR . (name . 3))) + ((default . error) (DO . (name . 6)) (USE . (name . 6)) (ELSIF . (name . 6)) (RENAMES . (name . 6)) (OF . (name . 6)) (ELSE . (name . 6)) (ACCEPT . (name . 6)) (ABORT . (name . 6)) (BEGIN . (name . 6)) (CASE . (name . 6)) (DECLARE . (name . 6)) (DELAY . (name . 6)) (EXIT . (name . 6)) (FOR . (name . 6)) (GOTO . (name . 6)) (IF . (name . 6)) (LOOP . (name . 6)) (NULL . (name . 6)) (PRAGMA . (name . 6)) (RAISE . (name . 6)) (REQUEUE . (name . 6)) (RETURN . (name . 6)) (SELECT . (name . 6)) (WHILE . (name . 6)) (LESS_LESS . (name . 6)) (IDENTIFIER . (name . 6)) (STRING_LITERAL . (name . 6)) (CHARACTER_LITERAL . (name . 6)) (DIGITS . (name . 6)) (COMMA . (name . 6)) (THEN . (name . 6)) (COLON_EQUAL . (name . 6)) (WITH . (name . 6)) (BAR . (name . 6)) (EQUAL_GREATER . (name . 6)) (IS . (name . 6)) (SLASH_EQUAL . (name . 6)) (LESS_EQUAL . (name . 6)) (LESS . (name . 6)) (GREATER_EQUAL . (name . 6)) (GREATER . (name . 6)) (EQUAL . (name . 6)) (NOT . (name . 6)) (IN . (name . 6)) (AND . (name . 6)) (OR . (name . 6)) (XOR . (name . 6)) (SEMICOLON . (name . 6)) (RIGHT_PAREN . (name . 6)) (LEFT_PAREN . (name . 6)) (RANGE . (name . 6)) (TICK . (name . 6)) (DOT . (name . 6)) (PLUS . (name . 6)) (MINUS . (name . 6)) (AMPERSAND . (name . 6)) (DOT_DOT . (name . 6)) (MOD . (name . 6)) (REM . (name . 6)) (SLASH . (name . 6)) (STAR . (name . 6)) (STAR_STAR . (name . 6))) + ((default . error) (DO . (name . 3)) (USE . (name . 3)) (ELSIF . (name . 3)) (RENAMES . (name . 3)) (OF . (name . 3)) (ELSE . (name . 3)) (ACCEPT . (name . 3)) (ABORT . (name . 3)) (BEGIN . (name . 3)) (CASE . (name . 3)) (DECLARE . (name . 3)) (DELAY . (name . 3)) (EXIT . (name . 3)) (FOR . (name . 3)) (GOTO . (name . 3)) (IF . (name . 3)) (LOOP . (name . 3)) (NULL . (name . 3)) (PRAGMA . (name . 3)) (RAISE . (name . 3)) (REQUEUE . (name . 3)) (RETURN . (name . 3)) (SELECT . (name . 3)) (WHILE . (name . 3)) (LESS_LESS . (name . 3)) (IDENTIFIER . (name . 3)) (STRING_LITERAL . (name . 3)) (CHARACTER_LITERAL . (name . 3)) (DIGITS . (name . 3)) (COMMA . (name . 3)) (THEN . (name . 3)) (COLON_EQUAL . (name . 3)) (WITH . (name . 3)) (BAR . (name . 3)) (EQUAL_GREATER . (name . 3)) (IS . (name . 3)) (SLASH_EQUAL . (name . 3)) (LESS_EQUAL . (name . 3)) (LESS . (name . 3)) (GREATER_EQUAL . (name . 3)) (GREATER . (name . 3)) (EQUAL . (name . 3)) (NOT . (name . 3)) (IN . (name . 3)) (AND . (name . 3)) (OR . (name . 3)) (XOR . (name . 3)) (SEMICOLON . (name . 3)) (RIGHT_PAREN . (name . 3)) (LEFT_PAREN . (name . 3)) (RANGE . (name . 3)) (TICK . (name . 3)) (DOT . (name . 3)) (PLUS . (name . 3)) (MINUS . (name . 3)) (AMPERSAND . (name . 3)) (DOT_DOT . (name . 3)) (MOD . (name . 3)) (REM . (name . 3)) (SLASH . (name . 3)) (STAR . (name . 3)) (STAR_STAR . (name . 3))) ((default . error) (TYPE . 123)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (COMMA . 120) (SEMICOLON . 121)) @@ -1892,31 +1902,31 @@ ((default . error) (PACKAGE . (generic_formal_parameter_declaration . 4)) (PROCEDURE . (generic_formal_parameter_declaration . 4)) (FUNCTION . (generic_formal_parameter_declaration . 4)) (IDENTIFIER . (generic_formal_parameter_declaration . 4)) (WITH . (generic_formal_parameter_declaration . 4)) (USE . (generic_formal_parameter_declaration . 4)) (TYPE . (generic_formal_parameter_declaration . 4)) (PRAGMA . (generic_formal_parameter_declaration . 4))) ((default . error) (PACKAGE . (generic_formal_parameter_declaration . 5)) (PROCEDURE . (generic_formal_parameter_declaration . 5)) (FUNCTION . (generic_formal_parameter_declaration . 5)) (IDENTIFIER . (generic_formal_parameter_declaration . 5)) (WITH . (generic_formal_parameter_declaration . 5)) (USE . (generic_formal_parameter_declaration . 5)) (TYPE . (generic_formal_parameter_declaration . 5)) (PRAGMA . (generic_formal_parameter_declaration . 5))) ((default . error) (DOT . 90) (TICK . 91) (RETURN . 89) (LEFT_PAREN . 88)) - ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (IDENTIFIER . 228) (PLUS . 151) (MINUS . 150) (OTHERS . 175) (ABS . 144) (NOT . 174) (RAISE . 149) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (DO . (null_exclusion_opt . 0)) (COLON_EQUAL . (null_exclusion_opt . 0)) (RIGHT_PAREN . (null_exclusion_opt . 0)) (RENAMES . (null_exclusion_opt . 0)) (IS . (null_exclusion_opt . 0)) (SEMICOLON . (null_exclusion_opt . 0)) (WITH . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 225)) - ((default . error) (IDENTIFIER . 222) (CHARACTER_LITERAL . 224) (STRING_LITERAL . 223) (ALL . 221)) - ((default . error) (LEFT_PAREN . 216) (ACCESS . 213) (DELTA . 214) (DIGITS . 215) (MOD . 217) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (IDENTIFIER . 235) (PLUS . 154) (MINUS . 153) (OTHERS . 182) (ABS . 144) (NOT . 181) (RAISE . 152) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (DO . (null_exclusion_opt . 0)) (COLON_EQUAL . (null_exclusion_opt . 0)) (RIGHT_PAREN . (null_exclusion_opt . 0)) (RENAMES . (null_exclusion_opt . 0)) (IS . (null_exclusion_opt . 0)) (SEMICOLON . (null_exclusion_opt . 0)) (WITH . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 232)) + ((default . error) (IDENTIFIER . 229) (CHARACTER_LITERAL . 231) (STRING_LITERAL . 230) (ALL . 228)) + ((default . error) (LEFT_PAREN . 148) (ACCESS . 221) (DELTA . 222) (DIGITS . 223) (MOD . 224) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (DO . (name . 5)) (OF . (name . 5)) (CHARACTER_LITERAL . (name . 5)) (STRING_LITERAL . (name . 5)) (IDENTIFIER . (name . 5)) (LESS_LESS . (name . 5)) (WHILE . (name . 5)) (SELECT . (name . 5)) (REQUEUE . (name . 5)) (RAISE . (name . 5)) (PRAGMA . (name . 5)) (NULL . (name . 5)) (LOOP . (name . 5)) (IF . (name . 5)) (GOTO . (name . 5)) (FOR . (name . 5)) (EXIT . (name . 5)) (DELAY . (name . 5)) (DECLARE . (name . 5)) (CASE . (name . 5)) (BEGIN . (name . 5)) (ABORT . (name . 5)) (ACCEPT . (name . 5)) (COLON_EQUAL . (name . 5)) (USE . (name . 5)) (PLUS . (name . 5)) (MINUS . (name . 5)) (AMPERSAND . (name . 5)) (MOD . (name . 5)) (REM . (name . 5)) (SLASH . (name . 5)) (STAR . (name . 5)) (STAR_STAR . (name . 5)) (XOR . (name . 5)) (OR . (name . 5)) (AND . (name . 5)) (IN . (name . 5)) (NOT . (name . 5)) (EQUAL . (name . 5)) (GREATER . (name . 5)) (GREATER_EQUAL . (name . 5)) (LESS . (name . 5)) (LESS_EQUAL . (name . 5)) (SLASH_EQUAL . (name . 5)) (DOT_DOT . (name . 5)) (THEN . (name . 5)) (RANGE . (name . 5)) (DIGITS . (name . 5)) (EQUAL_GREATER . (name . 5)) (ELSE . (name . 5)) (ELSIF . (name . 5)) (BAR . (name . 5)) (RIGHT_PAREN . (name . 5)) (RETURN . (name . 5)) (RENAMES . (name . 5)) (IS . (name . 5)) (WITH . (name . 5)) (TICK . (name . 5)) (DOT . (name . 5)) (LEFT_PAREN . (name . 5)) (SEMICOLON . (name . 5)) (COMMA . (name . 5))) - ((default . error) (RETURN . 212)) + ((default . error) (RETURN . 220)) ((default . error) (RENAMES . (function_specification . 0)) (IS . (function_specification . 0)) (SEMICOLON . (function_specification . 0)) (WITH . (function_specification . 0))) - ((default . error) (ACCESS . (mode_opt . 0)) (NOT . (mode_opt . 0)) (IDENTIFIER . (mode_opt . 0)) (STRING_LITERAL . (mode_opt . 0)) (CHARACTER_LITERAL . (mode_opt . 0)) (IN . 209) (OUT . 210)) - ((default . error) (IDENTIFIER . 208)) + ((default . error) (ACCESS . (mode_opt . 0)) (NOT . (mode_opt . 0)) (IDENTIFIER . (mode_opt . 0)) (STRING_LITERAL . (mode_opt . 0)) (CHARACTER_LITERAL . (mode_opt . 0)) (IN . 217) (OUT . 218)) + ((default . error) (IDENTIFIER . 216)) ((default . error) (IDENTIFIER . (generic_formal_parameter_declarations . 1)) (WITH . (generic_formal_parameter_declarations . 1)) (USE . (generic_formal_parameter_declarations . 1)) (TYPE . (generic_formal_parameter_declarations . 1)) (PRAGMA . (generic_formal_parameter_declarations . 1)) (FUNCTION . (generic_formal_parameter_declarations . 1)) (PROCEDURE . (generic_formal_parameter_declarations . 1)) (PACKAGE . (generic_formal_parameter_declarations . 1))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (IS . 205) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (WITH . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 203)) - ((default . error) (DOT . 90) (TICK . 91) (RENAMES . 202) (LEFT_PAREN . 107)) - ((default . error) (DOT . 90) (TICK . 91) (RENAMES . 201) (LEFT_PAREN . 107)) - ((default . error) (DOT . 90) (TICK . 91) (RENAMES . 200) (LEFT_PAREN . 107)) - ((default . error) (COMMA . 120) (SEMICOLON . 199)) + ((default . error) (IS . 213) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (WITH . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 211)) + ((default . error) (DOT . 90) (TICK . 91) (RENAMES . 210) (LEFT_PAREN . 107)) + ((default . error) (DOT . 90) (TICK . 91) (RENAMES . 209) (LEFT_PAREN . 107)) + ((default . error) (DOT . 90) (TICK . 91) (RENAMES . 208) (LEFT_PAREN . 107)) + ((default . error) (COMMA . 120) (SEMICOLON . 207)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (NEW . 197)) - ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (OTHERS . 175) (ABS . 144) (NOT . 174) (RAISE . 149) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (NEW . 205)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (OTHERS . 182) (ABS . 144) (NOT . 181) (RAISE . 152) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . ((expression_opt . 0) (association_opt . 0))) (IS . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (IS . 173)) + ((default . error) (SEMICOLON . ((expression_opt . 0) (association_opt . 0))) (IS . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (IS . 180)) ((default . error) (DOT . 90) (TICK . 91) (IS . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 153) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 156) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (OR . (pragma . 1)) (THEN . (pragma . 1)) (WHEN . (pragma . 1)) (EXCEPTION . (pragma . 1)) (ACCEPT . (pragma . 1)) (ABORT . (pragma . 1)) (CASE . (pragma . 1)) (DECLARE . (pragma . 1)) (DELAY . (pragma . 1)) (EXIT . (pragma . 1)) (GOTO . (pragma . 1)) (IF . (pragma . 1)) (LOOP . (pragma . 1)) (NULL . (pragma . 1)) (RAISE . (pragma . 1)) (REQUEUE . (pragma . 1)) (RETURN . (pragma . 1)) (SELECT . (pragma . 1)) (WHILE . (pragma . 1)) (LESS_LESS . (pragma . 1)) (STRING_LITERAL . (pragma . 1)) (CHARACTER_LITERAL . (pragma . 1)) (ELSE . (pragma . 1)) (ELSIF . (pragma . 1)) (SEPARATE . (pragma . 1)) (LIMITED . (pragma . 1)) ($EOI . (pragma . 1)) (WITH . (pragma . 1)) (PRIVATE . (pragma . 1)) (END . (pragma . 1)) (BEGIN . (pragma . 1)) (ENTRY . (pragma . 1)) (FOR . (pragma . 1)) (FUNCTION . (pragma . 1)) (GENERIC . (pragma . 1)) (NOT . (pragma . 1)) (OVERRIDING . (pragma . 1)) (PACKAGE . (pragma . 1)) (PRAGMA . (pragma . 1)) (PROCEDURE . (pragma . 1)) (PROTECTED . (pragma . 1)) (SUBTYPE . (pragma . 1)) (TASK . (pragma . 1)) (TYPE . (pragma . 1)) (USE . (pragma . 1)) (IDENTIFIER . (pragma . 1))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (COMMA . 120) (SEMICOLON . 142)) @@ -1936,69 +1946,77 @@ ((default . error) (SEMICOLON . 135) (IS . 134)) ((default . error) (DOT . 90) (TICK . 91) (IS . ( 133 (parameter_profile_opt . 0))) (SEMICOLON . (parameter_profile_opt . 0)) (WITH . (parameter_profile_opt . 0)) (RENAMES . (parameter_profile_opt . 0)) (LEFT_PAREN . 88)) ((default . error) (DOT . 90) (TICK . 91) (IS . 132) (RETURN . 89) (LEFT_PAREN . 88)) - ((default . error) (NEW . 393)) - ((default . error) (NEW . 392)) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) + ((default . error) (NEW . 399)) + ((default . error) (NEW . 398)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) ((default . error) (IDENTIFIER . (subprogram_declaration . 0)) (TYPE . (subprogram_declaration . 0)) (TASK . (subprogram_declaration . 0)) (SUBTYPE . (subprogram_declaration . 0)) (PROTECTED . (subprogram_declaration . 0)) (FOR . (subprogram_declaration . 0)) (ENTRY . (subprogram_declaration . 0)) (BEGIN . (subprogram_declaration . 0)) (END . (subprogram_declaration . 0)) (WITH . (subprogram_declaration . 0)) (USE . (subprogram_declaration . 0)) (SEPARATE . (subprogram_declaration . 0)) (PROCEDURE . (subprogram_declaration . 0)) (PRIVATE . (subprogram_declaration . 0)) (PRAGMA . (subprogram_declaration . 0)) (PACKAGE . (subprogram_declaration . 0)) (OVERRIDING . (subprogram_declaration . 0)) (NOT . (subprogram_declaration . 0)) (LIMITED . (subprogram_declaration . 0)) (GENERIC . (subprogram_declaration . 0)) (FUNCTION . (subprogram_declaration . 0)) ($EOI . (subprogram_declaration . 0))) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) ((default . error) (BEGIN . (generic_subprogram_declaration . 0)) (ENTRY . (generic_subprogram_declaration . 0)) (FOR . (generic_subprogram_declaration . 0)) (FUNCTION . (generic_subprogram_declaration . 0)) (GENERIC . (generic_subprogram_declaration . 0)) (NOT . (generic_subprogram_declaration . 0)) (OVERRIDING . (generic_subprogram_declaration . 0)) (PACKAGE . (generic_subprogram_declaration . 0)) (PRAGMA . (generic_subprogram_declaration . 0)) (PROCEDURE . (generic_subprogram_declaration . 0)) (PROTECTED . (generic_subprogram_declaration . 0)) (SUBTYPE . (generic_subprogram_declaration . 0)) (TASK . (generic_subprogram_declaration . 0)) (TYPE . (generic_subprogram_declaration . 0)) (USE . (generic_subprogram_declaration . 0)) (IDENTIFIER . (generic_subprogram_declaration . 0)) (PRIVATE . (generic_subprogram_declaration . 0)) (END . (generic_subprogram_declaration . 0)) ($EOI . (generic_subprogram_declaration . 0)) (LIMITED . (generic_subprogram_declaration . 0)) (SEPARATE . (generic_subprogram_declaration . 0)) (WITH . (generic_subprogram_declaration . 0))) - ((default . error) (COMMA . 120) (SEMICOLON . 389)) + ((default . error) (COMMA . 120) (SEMICOLON . 395)) ((default . error) (IDENTIFIER . (use_clause . 2)) (USE . (use_clause . 2)) (TYPE . (use_clause . 2)) (TASK . (use_clause . 2)) (SUBTYPE . (use_clause . 2)) (PROTECTED . (use_clause . 2)) (PROCEDURE . (use_clause . 2)) (PRAGMA . (use_clause . 2)) (PACKAGE . (use_clause . 2)) (OVERRIDING . (use_clause . 2)) (NOT . (use_clause . 2)) (GENERIC . (use_clause . 2)) (FUNCTION . (use_clause . 2)) (FOR . (use_clause . 2)) (ENTRY . (use_clause . 2)) (BEGIN . (use_clause . 2)) (END . (use_clause . 2)) (PRIVATE . (use_clause . 2)) (WITH . (use_clause . 2)) ($EOI . (use_clause . 2)) (LIMITED . (use_clause . 2)) (SEPARATE . (use_clause . 2))) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (name_list . 1)) (COMMA . (name_list . 1)) (LEFT_PAREN . 107)) - ((default . error) (PROTECTED . 385) (TASK . 386) (PACKAGE . 384) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2))) + ((default . error) (PROTECTED . 391) (TASK . 392) (PACKAGE . 390) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2))) ((default . error) ($EOI . (with_clause . 2)) (FUNCTION . (with_clause . 2)) (GENERIC . (with_clause . 2)) (LIMITED . (with_clause . 2)) (NOT . (with_clause . 2)) (OVERRIDING . (with_clause . 2)) (PACKAGE . (with_clause . 2)) (PRAGMA . (with_clause . 2)) (PRIVATE . (with_clause . 2)) (PROCEDURE . (with_clause . 2)) (SEPARATE . (with_clause . 2)) (USE . (with_clause . 2)) (WITH . (with_clause . 2))) ((default . error) (SEMICOLON . 135)) - ((default . error) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (CASE . 239) (IF . 240) (FOR . 379) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (OTHERS . 175) (ABS . 144) (NOT . 174) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (NUMERIC_LITERAL . 152) (NULL . 241) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ALL . 385) (SOME . 386)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (OTHERS . 182) (ABS . 144) (NOT . 181) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (NUMERIC_LITERAL . 155) (NULL . 380) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (OF . (primary . 1)) (COLON_EQUAL . (primary . 1)) (DO . (primary . 1)) (LOOP . (primary . 1)) (ELSIF . (primary . 1)) (ELSE . (primary . 1)) (DIGITS . (primary . 1)) (RIGHT_PAREN . (primary . 1)) (COMMA . (primary . 1)) (RANGE . (primary . 1)) (THEN . (primary . 1)) (WITH . (primary . 1)) (BAR . (primary . 1)) (EQUAL_GREATER . (primary . 1)) (IS . (primary . 1)) (IN . (primary . 1)) (NOT . (primary . 1)) (EQUAL . (primary . 1)) (GREATER . (primary . 1)) (GREATER_EQUAL . (primary . 1)) (LESS . (primary . 1)) (LESS_EQUAL . (primary . 1)) (SLASH_EQUAL . (primary . 1)) (AND . (primary . 1)) (OR . (primary . 1)) (XOR . (primary . 1)) (SEMICOLON . (primary . 1)) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (STAR_STAR . (primary . 1))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (ABS . (unary_adding_operator . 1)) (LEFT_PAREN . (unary_adding_operator . 1)) (NEW . (unary_adding_operator . 1)) (NOT . (unary_adding_operator . 1)) (NULL . (unary_adding_operator . 1)) (NUMERIC_LITERAL . (unary_adding_operator . 1)) (IDENTIFIER . (unary_adding_operator . 1)) (STRING_LITERAL . (unary_adding_operator . 1)) (CHARACTER_LITERAL . (unary_adding_operator . 1))) ((default . error) (ABS . (unary_adding_operator . 0)) (LEFT_PAREN . (unary_adding_operator . 0)) (NEW . (unary_adding_operator . 0)) (NOT . (unary_adding_operator . 0)) (NULL . (unary_adding_operator . 0)) (NUMERIC_LITERAL . (unary_adding_operator . 0)) (IDENTIFIER . (unary_adding_operator . 0)) (STRING_LITERAL . (unary_adding_operator . 0)) (CHARACTER_LITERAL . (unary_adding_operator . 0))) ((default . error) (OF . (primary . 0)) (COLON_EQUAL . (primary . 0)) (DO . (primary . 0)) (LOOP . (primary . 0)) (ELSIF . (primary . 0)) (ELSE . (primary . 0)) (DIGITS . (primary . 0)) (RIGHT_PAREN . (primary . 0)) (COMMA . (primary . 0)) (RANGE . (primary . 0)) (THEN . (primary . 0)) (WITH . (primary . 0)) (BAR . (primary . 0)) (EQUAL_GREATER . (primary . 0)) (IS . (primary . 0)) (IN . (primary . 0)) (NOT . (primary . 0)) (EQUAL . (primary . 0)) (GREATER . (primary . 0)) (GREATER_EQUAL . (primary . 0)) (LESS . (primary . 0)) (LESS_EQUAL . (primary . 0)) (SLASH_EQUAL . (primary . 0)) (AND . (primary . 0)) (OR . (primary . 0)) (XOR . (primary . 0)) (SEMICOLON . (primary . 0)) (PLUS . (primary . 0)) (MINUS . (primary . 0)) (AMPERSAND . (primary . 0)) (DOT_DOT . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (STAR_STAR . (primary . 0))) - ((default . error) (EQUAL_GREATER . 375) (RIGHT_PAREN . (name . 0)) (COMMA . (name . 0)) (STAR_STAR . (name . 0)) (STAR . (name . 0)) (SLASH . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (SLASH_EQUAL . (name . 0)) (LESS_EQUAL . (name . 0)) (LESS . (name . 0)) (GREATER_EQUAL . (name . 0)) (GREATER . (name . 0)) (EQUAL . (name . 0)) (NOT . (name . 0)) (IN . (name . 0)) (AMPERSAND . (name . 0)) (MINUS . (name . 0)) (PLUS . (name . 0)) (LEFT_PAREN . (name . 0)) (AND . (name . 0)) (OR . (name . 0)) (XOR . (name . 0)) (DOT . (name . 0)) (TICK . ( 376 (name . 0)))) + ((default . error) (EQUAL_GREATER . 376) (RIGHT_PAREN . (name . 0)) (COMMA . (name . 0)) (STAR_STAR . (name . 0)) (STAR . (name . 0)) (SLASH . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (SLASH_EQUAL . (name . 0)) (LESS_EQUAL . (name . 0)) (LESS . (name . 0)) (GREATER_EQUAL . (name . 0)) (GREATER . (name . 0)) (EQUAL . (name . 0)) (NOT . (name . 0)) (IN . (name . 0)) (AMPERSAND . (name . 0)) (MINUS . (name . 0)) (PLUS . (name . 0)) (LEFT_PAREN . (name . 0)) (AND . (name . 0)) (OR . (name . 0)) (XOR . (name . 0)) (DOT . (name . 0)) (TICK . ( 377 (name . 0)))) ((default . error) (OF . (primary . 2)) (COLON_EQUAL . (primary . 2)) (DO . (primary . 2)) (LOOP . (primary . 2)) (ELSIF . (primary . 2)) (ELSE . (primary . 2)) (DIGITS . (primary . 2)) (RIGHT_PAREN . (primary . 2)) (COMMA . (primary . 2)) (RANGE . (primary . 2)) (THEN . (primary . 2)) (WITH . (primary . 2)) (BAR . (primary . 2)) (EQUAL_GREATER . (primary . 2)) (IS . (primary . 2)) (IN . (primary . 2)) (NOT . (primary . 2)) (EQUAL . (primary . 2)) (GREATER . (primary . 2)) (GREATER_EQUAL . (primary . 2)) (LESS . (primary . 2)) (LESS_EQUAL . (primary . 2)) (SLASH_EQUAL . (primary . 2)) (AND . (primary . 2)) (OR . (primary . 2)) (XOR . (primary . 2)) (SEMICOLON . (primary . 2)) (PLUS . (primary . 2)) (MINUS . (primary . 2)) (AMPERSAND . (primary . 2)) (DOT_DOT . (primary . 2)) (MOD . (primary . 2)) (REM . (primary . 2)) (SLASH . (primary . 2)) (STAR . (primary . 2)) (STAR_STAR . (primary . 2))) + ((default . error) (COMMA . (conditional_quantified_expression . 1)) (RIGHT_PAREN . (conditional_quantified_expression . 1))) + ((default . error) (COMMA . (pragma_argument_association . 2)) (RIGHT_PAREN . (pragma_argument_association . 2))) ((default . error) (COMMA . (pragma_argument_association . 1)) (RIGHT_PAREN . (pragma_argument_association . 1))) ((default . error) (OF . (term . 0)) (COLON_EQUAL . (term . 0)) (DO . (term . 0)) (LOOP . (term . 0)) (ELSIF . (term . 0)) (ELSE . (term . 0)) (DIGITS . (term . 0)) (RIGHT_PAREN . (term . 0)) (COMMA . (term . 0)) (RANGE . (term . 0)) (THEN . (term . 0)) (WITH . (term . 0)) (BAR . (term . 0)) (EQUAL_GREATER . (term . 0)) (IS . (term . 0)) (IN . (term . 0)) (NOT . (term . 0)) (EQUAL . (term . 0)) (GREATER . (term . 0)) (GREATER_EQUAL . (term . 0)) (LESS . (term . 0)) (LESS_EQUAL . (term . 0)) (SLASH_EQUAL . (term . 0)) (AND . (term . 0)) (OR . (term . 0)) (XOR . (term . 0)) (SEMICOLON . (term . 0)) (PLUS . (term . 0)) (MINUS . (term . 0)) (AMPERSAND . (term . 0)) (DOT_DOT . (term . 0)) (MOD . (term . 0)) (REM . (term . 0)) (SLASH . (term . 0)) (STAR . (term . 0))) + ((default . error) (COMMA . (conditional_quantified_expression . 0)) (RIGHT_PAREN . (conditional_quantified_expression . 0))) ((default . error) (DOT . 90) (OF . (primary . 3)) (COLON_EQUAL . (primary . 3)) (DO . (primary . 3)) (LOOP . (primary . 3)) (BAR . (primary . 3)) (COMMA . (primary . 3)) (ELSIF . (primary . 3)) (ELSE . (primary . 3)) (EQUAL_GREATER . (primary . 3)) (RIGHT_PAREN . (primary . 3)) (DIGITS . (primary . 3)) (RANGE . (primary . 3)) (THEN . (primary . 3)) (DOT_DOT . (primary . 3)) (WITH . (primary . 3)) (IS . (primary . 3)) (IN . (primary . 3)) (NOT . (primary . 3)) (EQUAL . (primary . 3)) (GREATER . (primary . 3)) (GREATER_EQUAL . (primary . 3)) (LESS . (primary . 3)) (LESS_EQUAL . (primary . 3)) (SLASH_EQUAL . (primary . 3)) (AND . (primary . 3)) (OR . (primary . 3)) (XOR . (primary . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (SEMICOLON . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (STAR_STAR . (primary . 3)) (TICK . 91) (LEFT_PAREN . 107)) ((default . error) (RIGHT_PAREN . (pragma_argument_association_list . 0)) (COMMA . (pragma_argument_association_list . 0))) - ((default . error) (COMMA . 374) (RIGHT_PAREN . 373)) - ((default . error) (OF . (factor . 1)) (COLON_EQUAL . (factor . 1)) (DO . (factor . 1)) (LOOP . (factor . 1)) (ELSIF . (factor . 1)) (ELSE . (factor . 1)) (DIGITS . (factor . 1)) (COMMA . (factor . 1)) (RIGHT_PAREN . (factor . 1)) (RANGE . (factor . 1)) (THEN . (factor . 1)) (WITH . (factor . 1)) (BAR . (factor . 1)) (EQUAL_GREATER . (factor . 1)) (IS . (factor . 1)) (SLASH_EQUAL . (factor . 1)) (LESS_EQUAL . (factor . 1)) (LESS . (factor . 1)) (GREATER_EQUAL . (factor . 1)) (GREATER . (factor . 1)) (EQUAL . (factor . 1)) (NOT . (factor . 1)) (IN . (factor . 1)) (AND . (factor . 1)) (OR . (factor . 1)) (XOR . (factor . 1)) (SEMICOLON . (factor . 1)) (STAR . (factor . 1)) (SLASH . (factor . 1)) (REM . (factor . 1)) (MOD . (factor . 1)) (DOT_DOT . (factor . 1)) (AMPERSAND . (factor . 1)) (MINUS . (factor . 1)) (PLUS . (factor . 1)) (STAR_STAR . 372)) + ((default . error) (COMMA . 375) (RIGHT_PAREN . 374)) + ((default . error) (OF . (factor . 1)) (COLON_EQUAL . (factor . 1)) (DO . (factor . 1)) (LOOP . (factor . 1)) (ELSIF . (factor . 1)) (ELSE . (factor . 1)) (DIGITS . (factor . 1)) (COMMA . (factor . 1)) (RIGHT_PAREN . (factor . 1)) (RANGE . (factor . 1)) (THEN . (factor . 1)) (WITH . (factor . 1)) (BAR . (factor . 1)) (EQUAL_GREATER . (factor . 1)) (IS . (factor . 1)) (SLASH_EQUAL . (factor . 1)) (LESS_EQUAL . (factor . 1)) (LESS . (factor . 1)) (GREATER_EQUAL . (factor . 1)) (GREATER . (factor . 1)) (EQUAL . (factor . 1)) (NOT . (factor . 1)) (IN . (factor . 1)) (AND . (factor . 1)) (OR . (factor . 1)) (XOR . (factor . 1)) (SEMICOLON . (factor . 1)) (STAR . (factor . 1)) (SLASH . (factor . 1)) (REM . (factor . 1)) (MOD . (factor . 1)) (DOT_DOT . (factor . 1)) (AMPERSAND . (factor . 1)) (MINUS . (factor . 1)) (PLUS . (factor . 1)) (STAR_STAR . 373)) + ((default . error) (COMMA . (conditional_quantified_expression . 2)) (RIGHT_PAREN . (conditional_quantified_expression . 2))) ((default . error) (DO . (relation . 4)) (LOOP . (relation . 4)) (ELSIF . (relation . 4)) (ELSE . (relation . 4)) (EQUAL_GREATER . (relation . 4)) (DIGITS . (relation . 4)) (RIGHT_PAREN . (relation . 4)) (COMMA . (relation . 4)) (RANGE . (relation . 4)) (THEN . (relation . 4)) (SEMICOLON . (relation . 4)) (WITH . (relation . 4)) (IS . (relation . 4)) (AND . (relation . 4)) (OR . (relation . 4)) (XOR . (relation . 4))) - ((default . error) (DO . (expression . 1)) (LOOP . (expression . 1)) (XOR . (expression . 1)) (OR . (expression . 1)) (AND . ( 371 (expression . 1))) (ELSIF . (expression . 1)) (ELSE . (expression . 1)) (EQUAL_GREATER . (expression . 1)) (DIGITS . (expression . 1)) (COMMA . (expression . 1)) (RIGHT_PAREN . (expression . 1)) (RANGE . (expression . 1)) (THEN . (expression . 1)) (WITH . (expression . 1)) (SEMICOLON . (expression . 1)) (IS . (expression . 1))) - ((default . error) (DO . (expression . 2)) (LOOP . (expression . 2)) (XOR . (expression . 2)) (OR . (expression . 2)) (AND . ( 370 (expression . 2))) (ELSIF . (expression . 2)) (ELSE . (expression . 2)) (EQUAL_GREATER . (expression . 2)) (DIGITS . (expression . 2)) (COMMA . (expression . 2)) (RIGHT_PAREN . (expression . 2)) (RANGE . (expression . 2)) (THEN . (expression . 2)) (WITH . (expression . 2)) (SEMICOLON . (expression . 2)) (IS . (expression . 2))) - ((default . error) (DO . (expression . 3)) (LOOP . (expression . 3)) (XOR . (expression . 3)) (OR . ( 369 (expression . 3))) (AND . (expression . 3)) (ELSIF . (expression . 3)) (ELSE . (expression . 3)) (EQUAL_GREATER . (expression . 3)) (DIGITS . (expression . 3)) (COMMA . (expression . 3)) (RIGHT_PAREN . (expression . 3)) (RANGE . (expression . 3)) (THEN . (expression . 3)) (WITH . (expression . 3)) (SEMICOLON . (expression . 3)) (IS . (expression . 3))) - ((default . error) (DO . (expression . 4)) (LOOP . (expression . 4)) (XOR . (expression . 4)) (OR . ( 368 (expression . 4))) (AND . (expression . 4)) (ELSIF . (expression . 4)) (ELSE . (expression . 4)) (EQUAL_GREATER . (expression . 4)) (DIGITS . (expression . 4)) (COMMA . (expression . 4)) (RIGHT_PAREN . (expression . 4)) (RANGE . (expression . 4)) (THEN . (expression . 4)) (WITH . (expression . 4)) (SEMICOLON . (expression . 4)) (IS . (expression . 4))) - ((default . error) (DO . (expression . 5)) (LOOP . (expression . 5)) (XOR . ( 367 (expression . 5))) (OR . (expression . 5)) (AND . (expression . 5)) (ELSIF . (expression . 5)) (ELSE . (expression . 5)) (EQUAL_GREATER . (expression . 5)) (DIGITS . (expression . 5)) (COMMA . (expression . 5)) (RIGHT_PAREN . (expression . 5)) (RANGE . (expression . 5)) (THEN . (expression . 5)) (WITH . (expression . 5)) (SEMICOLON . (expression . 5)) (IS . (expression . 5))) - ((default . error) (DO . (expression . 0)) (LOOP . (expression . 0)) (XOR . ( 366 (expression . 0))) (OR . ( 365 (expression . 0))) (AND . ( 364 (expression . 0))) (ELSIF . (expression . 0)) (ELSE . (expression . 0)) (EQUAL_GREATER . (expression . 0)) (DIGITS . (expression . 0)) (COMMA . (expression . 0)) (RIGHT_PAREN . (expression . 0)) (RANGE . (expression . 0)) (THEN . (expression . 0)) (WITH . (expression . 0)) (SEMICOLON . (expression . 0)) (IS . (expression . 0))) - ((default . error) (IN . 274) (NOT . 275) (DO . (relation . 0)) (LOOP . (relation . 0)) (COMMA . (relation . 0)) (ELSIF . (relation . 0)) (ELSE . (relation . 0)) (EQUAL_GREATER . (relation . 0)) (RIGHT_PAREN . (relation . 0)) (DIGITS . (relation . 0)) (RANGE . (relation . 0)) (THEN . (relation . 0)) (SEMICOLON . (relation . 0)) (WITH . (relation . 0)) (IS . (relation . 0)) (AND . (relation . 0)) (OR . (relation . 0)) (XOR . (relation . 0)) (EQUAL . 277) (SLASH_EQUAL . 282) (LESS . 280) (LESS_EQUAL . 281) (GREATER . 278) (GREATER_EQUAL . 279)) - ((default . error) (OF . (term_list . 0)) (COLON_EQUAL . (term_list . 0)) (DO . (term_list . 0)) (LOOP . (term_list . 0)) (ELSIF . (term_list . 0)) (ELSE . (term_list . 0)) (DIGITS . (term_list . 0)) (COMMA . (term_list . 0)) (RIGHT_PAREN . (term_list . 0)) (RANGE . (term_list . 0)) (THEN . (term_list . 0)) (WITH . (term_list . 0)) (BAR . (term_list . 0)) (EQUAL_GREATER . (term_list . 0)) (IS . (term_list . 0)) (SLASH_EQUAL . (term_list . 0)) (LESS_EQUAL . (term_list . 0)) (LESS . (term_list . 0)) (GREATER_EQUAL . (term_list . 0)) (GREATER . (term_list . 0)) (EQUAL . (term_list . 0)) (NOT . (term_list . 0)) (IN . (term_list . 0)) (AND . (term_list . 0)) (OR . (term_list . 0)) (XOR . (term_list . 0)) (SEMICOLON . (term_list . 0)) (DOT_DOT . (term_list . 0)) (AMPERSAND . (term_list . 0)) (MINUS . (term_list . 0)) (PLUS . (term_list . 0)) (STAR . 361) (SLASH . 360) (MOD . 358) (REM . 359)) - ((default . error) (OF . (simple_expression . 1)) (COLON_EQUAL . (simple_expression . 1)) (DO . (simple_expression . 1)) (LOOP . (simple_expression . 1)) (ELSIF . (simple_expression . 1)) (ELSE . (simple_expression . 1)) (DIGITS . (simple_expression . 1)) (RIGHT_PAREN . (simple_expression . 1)) (COMMA . (simple_expression . 1)) (RANGE . (simple_expression . 1)) (THEN . (simple_expression . 1)) (WITH . (simple_expression . 1)) (BAR . (simple_expression . 1)) (EQUAL_GREATER . (simple_expression . 1)) (IS . (simple_expression . 1)) (IN . (simple_expression . 1)) (NOT . (simple_expression . 1)) (EQUAL . (simple_expression . 1)) (GREATER . (simple_expression . 1)) (GREATER_EQUAL . (simple_expression . 1)) (LESS . (simple_expression . 1)) (LESS_EQUAL . (simple_expression . 1)) (SLASH_EQUAL . (simple_expression . 1)) (AND . (simple_expression . 1)) (OR . (simple_expression . 1)) (XOR . (simple_expression . 1)) (SEMICOLON . (simple_expression . 1)) (DOT_DOT . (simple_expression . 1)) (PLUS . 356) (MINUS . 355) (AMPERSAND . 354)) - ((default . error) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (IS . 352)) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (NUMERIC_LITERAL . 152) (NULL . 296) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (DO . (expression . 1)) (LOOP . (expression . 1)) (XOR . (expression . 1)) (OR . (expression . 1)) (AND . ( 372 (expression . 1))) (ELSIF . (expression . 1)) (ELSE . (expression . 1)) (EQUAL_GREATER . (expression . 1)) (DIGITS . (expression . 1)) (COMMA . (expression . 1)) (RIGHT_PAREN . (expression . 1)) (RANGE . (expression . 1)) (THEN . (expression . 1)) (WITH . (expression . 1)) (SEMICOLON . (expression . 1)) (IS . (expression . 1))) + ((default . error) (DO . (expression . 2)) (LOOP . (expression . 2)) (XOR . (expression . 2)) (OR . (expression . 2)) (AND . ( 371 (expression . 2))) (ELSIF . (expression . 2)) (ELSE . (expression . 2)) (EQUAL_GREATER . (expression . 2)) (DIGITS . (expression . 2)) (COMMA . (expression . 2)) (RIGHT_PAREN . (expression . 2)) (RANGE . (expression . 2)) (THEN . (expression . 2)) (WITH . (expression . 2)) (SEMICOLON . (expression . 2)) (IS . (expression . 2))) + ((default . error) (DO . (expression . 3)) (LOOP . (expression . 3)) (XOR . (expression . 3)) (OR . ( 370 (expression . 3))) (AND . (expression . 3)) (ELSIF . (expression . 3)) (ELSE . (expression . 3)) (EQUAL_GREATER . (expression . 3)) (DIGITS . (expression . 3)) (COMMA . (expression . 3)) (RIGHT_PAREN . (expression . 3)) (RANGE . (expression . 3)) (THEN . (expression . 3)) (WITH . (expression . 3)) (SEMICOLON . (expression . 3)) (IS . (expression . 3))) + ((default . error) (DO . (expression . 4)) (LOOP . (expression . 4)) (XOR . (expression . 4)) (OR . ( 369 (expression . 4))) (AND . (expression . 4)) (ELSIF . (expression . 4)) (ELSE . (expression . 4)) (EQUAL_GREATER . (expression . 4)) (DIGITS . (expression . 4)) (COMMA . (expression . 4)) (RIGHT_PAREN . (expression . 4)) (RANGE . (expression . 4)) (THEN . (expression . 4)) (WITH . (expression . 4)) (SEMICOLON . (expression . 4)) (IS . (expression . 4))) + ((default . error) (DO . (expression . 5)) (LOOP . (expression . 5)) (XOR . ( 368 (expression . 5))) (OR . (expression . 5)) (AND . (expression . 5)) (ELSIF . (expression . 5)) (ELSE . (expression . 5)) (EQUAL_GREATER . (expression . 5)) (DIGITS . (expression . 5)) (COMMA . (expression . 5)) (RIGHT_PAREN . (expression . 5)) (RANGE . (expression . 5)) (THEN . (expression . 5)) (WITH . (expression . 5)) (SEMICOLON . (expression . 5)) (IS . (expression . 5))) + ((default . error) (DO . (expression . 0)) (LOOP . (expression . 0)) (XOR . ( 367 (expression . 0))) (OR . ( 366 (expression . 0))) (AND . ( 365 (expression . 0))) (ELSIF . (expression . 0)) (ELSE . (expression . 0)) (EQUAL_GREATER . (expression . 0)) (DIGITS . (expression . 0)) (COMMA . (expression . 0)) (RIGHT_PAREN . (expression . 0)) (RANGE . (expression . 0)) (THEN . (expression . 0)) (WITH . (expression . 0)) (SEMICOLON . (expression . 0)) (IS . (expression . 0))) + ((default . error) (IN . 275) (NOT . 276) (DO . (relation . 0)) (LOOP . (relation . 0)) (COMMA . (relation . 0)) (ELSIF . (relation . 0)) (ELSE . (relation . 0)) (EQUAL_GREATER . (relation . 0)) (RIGHT_PAREN . (relation . 0)) (DIGITS . (relation . 0)) (RANGE . (relation . 0)) (THEN . (relation . 0)) (SEMICOLON . (relation . 0)) (WITH . (relation . 0)) (IS . (relation . 0)) (AND . (relation . 0)) (OR . (relation . 0)) (XOR . (relation . 0)) (EQUAL . 278) (SLASH_EQUAL . 283) (LESS . 281) (LESS_EQUAL . 282) (GREATER . 279) (GREATER_EQUAL . 280)) + ((default . error) (OF . (term_list . 0)) (COLON_EQUAL . (term_list . 0)) (DO . (term_list . 0)) (LOOP . (term_list . 0)) (ELSIF . (term_list . 0)) (ELSE . (term_list . 0)) (DIGITS . (term_list . 0)) (COMMA . (term_list . 0)) (RIGHT_PAREN . (term_list . 0)) (RANGE . (term_list . 0)) (THEN . (term_list . 0)) (WITH . (term_list . 0)) (BAR . (term_list . 0)) (EQUAL_GREATER . (term_list . 0)) (IS . (term_list . 0)) (SLASH_EQUAL . (term_list . 0)) (LESS_EQUAL . (term_list . 0)) (LESS . (term_list . 0)) (GREATER_EQUAL . (term_list . 0)) (GREATER . (term_list . 0)) (EQUAL . (term_list . 0)) (NOT . (term_list . 0)) (IN . (term_list . 0)) (AND . (term_list . 0)) (OR . (term_list . 0)) (XOR . (term_list . 0)) (SEMICOLON . (term_list . 0)) (DOT_DOT . (term_list . 0)) (AMPERSAND . (term_list . 0)) (MINUS . (term_list . 0)) (PLUS . (term_list . 0)) (STAR . 362) (SLASH . 361) (MOD . 359) (REM . 360)) + ((default . error) (OF . (simple_expression . 1)) (COLON_EQUAL . (simple_expression . 1)) (DO . (simple_expression . 1)) (LOOP . (simple_expression . 1)) (ELSIF . (simple_expression . 1)) (ELSE . (simple_expression . 1)) (DIGITS . (simple_expression . 1)) (RIGHT_PAREN . (simple_expression . 1)) (COMMA . (simple_expression . 1)) (RANGE . (simple_expression . 1)) (THEN . (simple_expression . 1)) (WITH . (simple_expression . 1)) (BAR . (simple_expression . 1)) (EQUAL_GREATER . (simple_expression . 1)) (IS . (simple_expression . 1)) (IN . (simple_expression . 1)) (NOT . (simple_expression . 1)) (EQUAL . (simple_expression . 1)) (GREATER . (simple_expression . 1)) (GREATER_EQUAL . (simple_expression . 1)) (LESS . (simple_expression . 1)) (LESS_EQUAL . (simple_expression . 1)) (SLASH_EQUAL . (simple_expression . 1)) (AND . (simple_expression . 1)) (OR . (simple_expression . 1)) (XOR . (simple_expression . 1)) (SEMICOLON . (simple_expression . 1)) (DOT_DOT . (simple_expression . 1)) (PLUS . 357) (MINUS . 356) (AMPERSAND . 355)) + ((default . error) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IS . 353)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (NUMERIC_LITERAL . 155) (NULL . 297) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (BAR . (discrete_choice . 3)) (EQUAL_GREATER . (discrete_choice . 3))) - ((default . error) (SEMICOLON . (name . 1)) (IS . (name . 1)) (WITH . (name . 1)) (RANGE . (name . 1)) (TICK . (name . 1)) (LEFT_PAREN . (name . 1)) (DOT . (name . 1)) (PLUS . (name . 1)) (MINUS . (name . 1)) (AMPERSAND . (name . 1)) (DOT_DOT . (name . 1)) (IN . (name . 1)) (NOT . (name . 1)) (EQUAL . (name . 1)) (GREATER . (name . 1)) (GREATER_EQUAL . (name . 1)) (LESS . (name . 1)) (LESS_EQUAL . (name . 1)) (SLASH_EQUAL . (name . 1)) (RIGHT_PAREN . (name . 1)) (COMMA . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (SLASH . (name . 1)) (STAR . (name . 1)) (STAR_STAR . (name . 1)) (BAR . (name . 1)) (AND . (name . 1)) (OR . (name . 1)) (XOR . (name . 1)) (EQUAL_GREATER . ( 295 (name . 1)))) + ((default . error) (SEMICOLON . (name . 1)) (IS . (name . 1)) (WITH . (name . 1)) (RANGE . (name . 1)) (TICK . (name . 1)) (LEFT_PAREN . (name . 1)) (DOT . (name . 1)) (PLUS . (name . 1)) (MINUS . (name . 1)) (AMPERSAND . (name . 1)) (DOT_DOT . (name . 1)) (IN . (name . 1)) (NOT . (name . 1)) (EQUAL . (name . 1)) (GREATER . (name . 1)) (GREATER_EQUAL . (name . 1)) (LESS . (name . 1)) (LESS_EQUAL . (name . 1)) (SLASH_EQUAL . (name . 1)) (RIGHT_PAREN . (name . 1)) (COMMA . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (SLASH . (name . 1)) (STAR . (name . 1)) (STAR_STAR . (name . 1)) (BAR . (name . 1)) (AND . (name . 1)) (OR . (name . 1)) (XOR . (name . 1)) (EQUAL_GREATER . ( 296 (name . 1)))) ((default . error) (SEMICOLON . (association_list . 0)) (IS . (association_list . 0)) (RIGHT_PAREN . (association_list . 0)) (COMMA . (association_list . 0))) - ((default . error) (COMMA . 272) (SEMICOLON . (aspect_specification_opt . 1)) (IS . (aspect_specification_opt . 1))) + ((default . error) (COMMA . 273) (SEMICOLON . (aspect_specification_opt . 1)) (IS . (aspect_specification_opt . 1))) ((default . error) (BAR . (discrete_choice . 0)) (EQUAL_GREATER . (discrete_choice . 0))) - ((default . error) (AND . 294) (EQUAL_GREATER . (choice_expression . 1)) (BAR . (choice_expression . 1))) - ((default . error) (OR . 293) (EQUAL_GREATER . (choice_expression . 2)) (BAR . (choice_expression . 2))) - ((default . error) (XOR . 292) (EQUAL_GREATER . (choice_expression . 3)) (BAR . (choice_expression . 3))) - ((default . error) (AND . 291) (EQUAL_GREATER . (choice_expression . 4)) (BAR . (choice_expression . 4))) - ((default . error) (OR . 290) (EQUAL_GREATER . (choice_expression . 5)) (BAR . (choice_expression . 5))) - ((default . error) (XOR . 289) (OR . 288) (AND . 287) (EQUAL_GREATER . (choice_expression . 0)) (BAR . (choice_expression . 0))) + ((default . error) (AND . 295) (EQUAL_GREATER . (choice_expression . 1)) (BAR . (choice_expression . 1))) + ((default . error) (OR . 294) (EQUAL_GREATER . (choice_expression . 2)) (BAR . (choice_expression . 2))) + ((default . error) (XOR . 293) (EQUAL_GREATER . (choice_expression . 3)) (BAR . (choice_expression . 3))) + ((default . error) (AND . 292) (EQUAL_GREATER . (choice_expression . 4)) (BAR . (choice_expression . 4))) + ((default . error) (OR . 291) (EQUAL_GREATER . (choice_expression . 5)) (BAR . (choice_expression . 5))) + ((default . error) (XOR . 290) (OR . 289) (AND . 288) (EQUAL_GREATER . (choice_expression . 0)) (BAR . (choice_expression . 0))) ((default . error) (EQUAL_GREATER . (discrete_choice_list . 1)) (BAR . (discrete_choice_list . 1))) - ((default . error) (BAR . 285) (EQUAL_GREATER . 286)) + ((default . error) (BAR . 286) (EQUAL_GREATER . 287)) ((default . error) (LOOP . (expression_opt . 1)) (RIGHT_PAREN . (expression_opt . 1)) (COMMA . (expression_opt . 1)) (SEMICOLON . (expression_opt . 1)) (THEN . (expression_opt . 1)) (IS . (expression_opt . 1))) ((default . error) (SEMICOLON . (association_opt . 5)) (IS . (association_opt . 5)) (COMMA . (association_opt . 5)) (RIGHT_PAREN . (association_opt . 5))) - ((default . error) (DOT . 90) (DO . (primary . 3)) (LOOP . (primary . 3)) (ELSIF . (primary . 3)) (ELSE . (primary . 3)) (DIGITS . (primary . 3)) (RANGE . (primary . 3)) (THEN . (primary . 3)) (SEMICOLON . (primary . 3)) (IS . (primary . 3)) (WITH . (primary . 3)) (IN . (primary . 3)) (NOT . (primary . 3)) (RIGHT_PAREN . (primary . 3)) (COMMA . (primary . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (STAR_STAR . (primary . 3)) (BAR . (primary . 3)) (EQUAL_GREATER . (primary . 3)) (EQUAL . (primary . 3)) (GREATER . (primary . 3)) (GREATER_EQUAL . (primary . 3)) (LESS . (primary . 3)) (LESS_EQUAL . (primary . 3)) (SLASH_EQUAL . (primary . 3)) (AND . (primary . 3)) (OR . (primary . 3)) (XOR . (primary . 3)) (TICK . 284) (LEFT_PAREN . 107)) + ((default . error) (DOT . 90) (DO . (primary . 3)) (LOOP . (primary . 3)) (ELSIF . (primary . 3)) (ELSE . (primary . 3)) (DIGITS . (primary . 3)) (RANGE . (primary . 3)) (THEN . (primary . 3)) (SEMICOLON . (primary . 3)) (IS . (primary . 3)) (WITH . (primary . 3)) (IN . (primary . 3)) (NOT . (primary . 3)) (RIGHT_PAREN . (primary . 3)) (COMMA . (primary . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (STAR_STAR . (primary . 3)) (BAR . (primary . 3)) (EQUAL_GREATER . (primary . 3)) (EQUAL . (primary . 3)) (GREATER . (primary . 3)) (GREATER_EQUAL . (primary . 3)) (LESS . (primary . 3)) (LESS_EQUAL . (primary . 3)) (SLASH_EQUAL . (primary . 3)) (AND . (primary . 3)) (OR . (primary . 3)) (XOR . (primary . 3)) (TICK . 285) (LEFT_PAREN . 107)) ((default . error) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2))) - ((default . error) (IN . 274) (NOT . 275) (SEMICOLON . (relation . 0)) (IS . (relation . 0)) (WITH . (relation . 0)) (RIGHT_PAREN . (relation . 0)) (COMMA . (relation . 0)) (DOT_DOT . 276) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . ((choice_relation . 1) (relation . 0))) (OR . ((choice_relation . 1) (relation . 0))) (XOR . ((choice_relation . 1) (relation . 0))) (EQUAL . 277) (SLASH_EQUAL . 282) (LESS . 280) (LESS_EQUAL . 281) (GREATER . 278) (GREATER_EQUAL . 279)) + ((default . error) (IN . 275) (NOT . 276) (SEMICOLON . (relation . 0)) (IS . (relation . 0)) (WITH . (relation . 0)) (RIGHT_PAREN . (relation . 0)) (COMMA . (relation . 0)) (DOT_DOT . 277) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . ((choice_relation . 1) (relation . 0))) (OR . ((choice_relation . 1) (relation . 0))) (XOR . ((choice_relation . 1) (relation . 0))) (EQUAL . 278) (SLASH_EQUAL . 283) (LESS . 281) (LESS_EQUAL . 282) (GREATER . 279) (GREATER_EQUAL . 280)) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) - ((default . error) (COMMA . 272) (RIGHT_PAREN . 271)) + ((default . error) (COMMA . 273) (RIGHT_PAREN . 272)) + ((default . error) (RIGHT_PAREN . 271)) ((default . error) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2)) (RIGHT_PAREN . (range_list . 0)) (COMMA . (range_list . 0))) ((default . error) (COMMA . 270) (RIGHT_PAREN . 269)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) @@ -2015,12 +2033,11 @@ ((default . error) (COLON . (identifier_list . 1)) (COMMA . (identifier_list . 1))) ((default . error) (OUT . 250) (ACCESS . (mode_opt . 1)) (NOT . (mode_opt . 1)) (IDENTIFIER . (mode_opt . 1)) (STRING_LITERAL . (mode_opt . 1)) (CHARACTER_LITERAL . (mode_opt . 1))) ((default . error) (ACCESS . (mode_opt . 3)) (NOT . (mode_opt . 3)) (IDENTIFIER . (mode_opt . 3)) (STRING_LITERAL . (mode_opt . 3)) (CHARACTER_LITERAL . (mode_opt . 3))) - ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 225)) - ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (DO . (null_exclusion_opt . 0)) (RIGHT_PAREN . (null_exclusion_opt . 0)) (COLON_EQUAL . (null_exclusion_opt . 0)) (RENAMES . (null_exclusion_opt . 0)) (WITH . (null_exclusion_opt . 0)) (SEMICOLON . (null_exclusion_opt . 0)) (IS . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 225)) + ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 232)) + ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (DO . (null_exclusion_opt . 0)) (RIGHT_PAREN . (null_exclusion_opt . 0)) (COLON_EQUAL . (null_exclusion_opt . 0)) (RENAMES . (null_exclusion_opt . 0)) (WITH . (null_exclusion_opt . 0)) (SEMICOLON . (null_exclusion_opt . 0)) (IS . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 232)) ((default . error) (DO . (attribute_designator . 1)) (ELSIF . (attribute_designator . 1)) (ELSE . (attribute_designator . 1)) (DIGITS . (attribute_designator . 1)) (RANGE . (attribute_designator . 1)) (THEN . (attribute_designator . 1)) (USE . (attribute_designator . 1)) (COLON_EQUAL . (attribute_designator . 1)) (CHARACTER_LITERAL . (attribute_designator . 1)) (STRING_LITERAL . (attribute_designator . 1)) (IDENTIFIER . (attribute_designator . 1)) (LESS_LESS . (attribute_designator . 1)) (WHILE . (attribute_designator . 1)) (SELECT . (attribute_designator . 1)) (REQUEUE . (attribute_designator . 1)) (RAISE . (attribute_designator . 1)) (PRAGMA . (attribute_designator . 1)) (NULL . (attribute_designator . 1)) (LOOP . (attribute_designator . 1)) (IF . (attribute_designator . 1)) (GOTO . (attribute_designator . 1)) (FOR . (attribute_designator . 1)) (EXIT . (attribute_designator . 1)) (DELAY . (attribute_designator . 1)) (DECLARE . (attribute_designator . 1)) (CASE . (attribute_designator . 1)) (BEGIN . (attribute_designator . 1)) (ABORT . (attribute_designator . 1)) (ACCEPT . (attribute_designator . 1)) (OF . (attribute_designator . 1)) (IN . (attribute_designator . 1)) (NOT . (attribute_designator . 1)) (RIGHT_PAREN . (attribute_designator . 1)) (PLUS . (attribute_designator . 1)) (MINUS . (attribute_designator . 1)) (AMPERSAND . (attribute_designator . 1)) (DOT_DOT . (attribute_designator . 1)) (MOD . (attribute_designator . 1)) (REM . (attribute_designator . 1)) (SLASH . (attribute_designator . 1)) (STAR . (attribute_designator . 1)) (STAR_STAR . (attribute_designator . 1)) (BAR . (attribute_designator . 1)) (EQUAL_GREATER . (attribute_designator . 1)) (EQUAL . (attribute_designator . 1)) (GREATER . (attribute_designator . 1)) (GREATER_EQUAL . (attribute_designator . 1)) (LESS . (attribute_designator . 1)) (LESS_EQUAL . (attribute_designator . 1)) (SLASH_EQUAL . (attribute_designator . 1)) (AND . (attribute_designator . 1)) (OR . (attribute_designator . 1)) (XOR . (attribute_designator . 1)) (LEFT_PAREN . (attribute_designator . 1)) (SEMICOLON . (attribute_designator . 1)) (COMMA . (attribute_designator . 1)) (DOT . (attribute_designator . 1)) (TICK . (attribute_designator . 1)) (WITH . (attribute_designator . 1)) (IS . (attribute_designator . 1)) (RENAMES . (attribute_designator . 1)) (RETURN . (attribute_designator . 1))) ((default . error) (DO . (attribute_designator . 2)) (ELSIF . (attribute_designator . 2)) (ELSE . (attribute_designator . 2)) (DIGITS . (attribute_designator . 2)) (RANGE . (attribute_designator . 2)) (THEN . (attribute_designator . 2)) (USE . (attribute_designator . 2)) (COLON_EQUAL . (attribute_designator . 2)) (CHARACTER_LITERAL . (attribute_designator . 2)) (STRING_LITERAL . (attribute_designator . 2)) (IDENTIFIER . (attribute_designator . 2)) (LESS_LESS . (attribute_designator . 2)) (WHILE . (attribute_designator . 2)) (SELECT . (attribute_designator . 2)) (REQUEUE . (attribute_designator . 2)) (RAISE . (attribute_designator . 2)) (PRAGMA . (attribute_designator . 2)) (NULL . (attribute_designator . 2)) (LOOP . (attribute_designator . 2)) (IF . (attribute_designator . 2)) (GOTO . (attribute_designator . 2)) (FOR . (attribute_designator . 2)) (EXIT . (attribute_designator . 2)) (DELAY . (attribute_designator . 2)) (DECLARE . (attribute_designator . 2)) (CASE . (attribute_designator . 2)) (BEGIN . (attribute_designator . 2)) (ABORT . (attribute_designator . 2)) (ACCEPT . (attribute_designator . 2)) (OF . (attribute_designator . 2)) (IN . (attribute_designator . 2)) (NOT . (attribute_designator . 2)) (RIGHT_PAREN . (attribute_designator . 2)) (PLUS . (attribute_designator . 2)) (MINUS . (attribute_designator . 2)) (AMPERSAND . (attribute_designator . 2)) (DOT_DOT . (attribute_designator . 2)) (MOD . (attribute_designator . 2)) (REM . (attribute_designator . 2)) (SLASH . (attribute_designator . 2)) (STAR . (attribute_designator . 2)) (STAR_STAR . (attribute_designator . 2)) (BAR . (attribute_designator . 2)) (EQUAL_GREATER . (attribute_designator . 2)) (EQUAL . (attribute_designator . 2)) (GREATER . (attribute_designator . 2)) (GREATER_EQUAL . (attribute_designator . 2)) (LESS . (attribute_designator . 2)) (LESS_EQUAL . (attribute_designator . 2)) (SLASH_EQUAL . (attribute_designator . 2)) (AND . (attribute_designator . 2)) (OR . (attribute_designator . 2)) (XOR . (attribute_designator . 2)) (LEFT_PAREN . (attribute_designator . 2)) (SEMICOLON . (attribute_designator . 2)) (COMMA . (attribute_designator . 2)) (DOT . (attribute_designator . 2)) (TICK . (attribute_designator . 2)) (WITH . (attribute_designator . 2)) (IS . (attribute_designator . 2)) (RENAMES . (attribute_designator . 2)) (RETURN . (attribute_designator . 2))) ((default . error) (DO . (attribute_designator . 3)) (ELSIF . (attribute_designator . 3)) (ELSE . (attribute_designator . 3)) (DIGITS . (attribute_designator . 3)) (RANGE . (attribute_designator . 3)) (THEN . (attribute_designator . 3)) (USE . (attribute_designator . 3)) (COLON_EQUAL . (attribute_designator . 3)) (CHARACTER_LITERAL . (attribute_designator . 3)) (STRING_LITERAL . (attribute_designator . 3)) (IDENTIFIER . (attribute_designator . 3)) (LESS_LESS . (attribute_designator . 3)) (WHILE . (attribute_designator . 3)) (SELECT . (attribute_designator . 3)) (REQUEUE . (attribute_designator . 3)) (RAISE . (attribute_designator . 3)) (PRAGMA . (attribute_designator . 3)) (NULL . (attribute_designator . 3)) (LOOP . (attribute_designator . 3)) (IF . (attribute_designator . 3)) (GOTO . (attribute_designator . 3)) (FOR . (attribute_designator . 3)) (EXIT . (attribute_designator . 3)) (DELAY . (attribute_designator . 3)) (DECLARE . (attribute_designator . 3)) (CASE . (attribute_designator . 3)) (BEGIN . (attribute_designator . 3)) (ABORT . (attribute_designator . 3)) (ACCEPT . (attribute_designator . 3)) (OF . (attribute_designator . 3)) (IN . (attribute_designator . 3)) (NOT . (attribute_designator . 3)) (RIGHT_PAREN . (attribute_designator . 3)) (PLUS . (attribute_designator . 3)) (MINUS . (attribute_designator . 3)) (AMPERSAND . (attribute_designator . 3)) (DOT_DOT . (attribute_designator . 3)) (MOD . (attribute_designator . 3)) (REM . (attribute_designator . 3)) (SLASH . (attribute_designator . 3)) (STAR . (attribute_designator . 3)) (STAR_STAR . (attribute_designator . 3)) (BAR . (attribute_designator . 3)) (EQUAL_GREATER . (attribute_designator . 3)) (EQUAL . (attribute_designator . 3)) (GREATER . (attribute_designator . 3)) (GREATER_EQUAL . (attribute_designator . 3)) (LESS . (attribute_designator . 3)) (LESS_EQUAL . (attribute_designator . 3)) (SLASH_EQUAL . (attribute_designator . 3)) (AND . (attribute_designator . 3)) (OR . (attribute_designator . 3)) (XOR . (attribute_designator . 3)) (LEFT_PAREN . (attribute_designator . 3)) (SEMICOLON . (attribute_designator . 3)) (COMMA . (attribute_designator . 3)) (DOT . (attribute_designator . 3)) (TICK . (attribute_designator . 3)) (WITH . (attribute_designator . 3)) (IS . (attribute_designator . 3)) (RENAMES . (attribute_designator . 3)) (RETURN . (attribute_designator . 3))) - ((default . error) (CASE . 239) (IF . 240) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (OTHERS . 175) (ABS . 144) (NOT . 174) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (NUMERIC_LITERAL . 152) (NULL . 241) (NEW . 146) (LEFT_PAREN . 145)) ((default . error) (DO . (attribute_designator . 4)) (ELSIF . (attribute_designator . 4)) (ELSE . (attribute_designator . 4)) (DIGITS . (attribute_designator . 4)) (RANGE . (attribute_designator . 4)) (THEN . (attribute_designator . 4)) (USE . (attribute_designator . 4)) (COLON_EQUAL . (attribute_designator . 4)) (CHARACTER_LITERAL . (attribute_designator . 4)) (STRING_LITERAL . (attribute_designator . 4)) (IDENTIFIER . (attribute_designator . 4)) (LESS_LESS . (attribute_designator . 4)) (WHILE . (attribute_designator . 4)) (SELECT . (attribute_designator . 4)) (REQUEUE . (attribute_designator . 4)) (RAISE . (attribute_designator . 4)) (PRAGMA . (attribute_designator . 4)) (NULL . (attribute_designator . 4)) (LOOP . (attribute_designator . 4)) (IF . (attribute_designator . 4)) (GOTO . (attribute_designator . 4)) (FOR . (attribute_designator . 4)) (EXIT . (attribute_designator . 4)) (DELAY . (attribute_designator . 4)) (DECLARE . (attribute_designator . 4)) (CASE . (attribute_designator . 4)) (BEGIN . (attribute_designator . 4)) (ABORT . (attribute_designator . 4)) (ACCEPT . (attribute_designator . 4)) (OF . (attribute_designator . 4)) (IN . (attribute_designator . 4)) (NOT . (attribute_designator . 4)) (RIGHT_PAREN . (attribute_designator . 4)) (PLUS . (attribute_designator . 4)) (MINUS . (attribute_designator . 4)) (AMPERSAND . (attribute_designator . 4)) (DOT_DOT . (attribute_designator . 4)) (MOD . (attribute_designator . 4)) (REM . (attribute_designator . 4)) (SLASH . (attribute_designator . 4)) (STAR . (attribute_designator . 4)) (STAR_STAR . (attribute_designator . 4)) (BAR . (attribute_designator . 4)) (EQUAL_GREATER . (attribute_designator . 4)) (EQUAL . (attribute_designator . 4)) (GREATER . (attribute_designator . 4)) (GREATER_EQUAL . (attribute_designator . 4)) (LESS . (attribute_designator . 4)) (LESS_EQUAL . (attribute_designator . 4)) (SLASH_EQUAL . (attribute_designator . 4)) (AND . (attribute_designator . 4)) (OR . (attribute_designator . 4)) (XOR . (attribute_designator . 4)) (LEFT_PAREN . (attribute_designator . 4)) (SEMICOLON . (attribute_designator . 4)) (COMMA . (attribute_designator . 4)) (DOT . (attribute_designator . 4)) (TICK . (attribute_designator . 4)) (WITH . (attribute_designator . 4)) (IS . (attribute_designator . 4)) (RENAMES . (attribute_designator . 4)) (RETURN . (attribute_designator . 4))) ((default . error) (DO . (qualified_expression . 0)) (ELSIF . (qualified_expression . 0)) (ELSE . (qualified_expression . 0)) (DIGITS . (qualified_expression . 0)) (RANGE . (qualified_expression . 0)) (THEN . (qualified_expression . 0)) (USE . (qualified_expression . 0)) (COLON_EQUAL . (qualified_expression . 0)) (CHARACTER_LITERAL . (qualified_expression . 0)) (STRING_LITERAL . (qualified_expression . 0)) (IDENTIFIER . (qualified_expression . 0)) (LESS_LESS . (qualified_expression . 0)) (WHILE . (qualified_expression . 0)) (SELECT . (qualified_expression . 0)) (REQUEUE . (qualified_expression . 0)) (RAISE . (qualified_expression . 0)) (PRAGMA . (qualified_expression . 0)) (NULL . (qualified_expression . 0)) (LOOP . (qualified_expression . 0)) (IF . (qualified_expression . 0)) (GOTO . (qualified_expression . 0)) (FOR . (qualified_expression . 0)) (EXIT . (qualified_expression . 0)) (DELAY . (qualified_expression . 0)) (DECLARE . (qualified_expression . 0)) (CASE . (qualified_expression . 0)) (BEGIN . (qualified_expression . 0)) (ABORT . (qualified_expression . 0)) (ACCEPT . (qualified_expression . 0)) (OF . (qualified_expression . 0)) (IN . (qualified_expression . 0)) (NOT . (qualified_expression . 0)) (RIGHT_PAREN . (qualified_expression . 0)) (PLUS . (qualified_expression . 0)) (MINUS . (qualified_expression . 0)) (AMPERSAND . (qualified_expression . 0)) (DOT_DOT . (qualified_expression . 0)) (MOD . (qualified_expression . 0)) (REM . (qualified_expression . 0)) (SLASH . (qualified_expression . 0)) (STAR . (qualified_expression . 0)) (STAR_STAR . (qualified_expression . 0)) (BAR . (qualified_expression . 0)) (EQUAL_GREATER . (qualified_expression . 0)) (EQUAL . (qualified_expression . 0)) (GREATER . (qualified_expression . 0)) (GREATER_EQUAL . (qualified_expression . 0)) (LESS . (qualified_expression . 0)) (LESS_EQUAL . (qualified_expression . 0)) (SLASH_EQUAL . (qualified_expression . 0)) (AND . (qualified_expression . 0)) (OR . (qualified_expression . 0)) (XOR . (qualified_expression . 0)) (SEMICOLON . (qualified_expression . 0)) (COMMA . (qualified_expression . 0)) (LEFT_PAREN . (qualified_expression . 0)) (DOT . (qualified_expression . 0)) (TICK . (qualified_expression . 0)) (WITH . (qualified_expression . 0)) (IS . (qualified_expression . 0)) (RENAMES . (qualified_expression . 0)) (RETURN . (qualified_expression . 0))) ((default . error) (DO . (attribute_reference . 0)) (ELSIF . (attribute_reference . 0)) (ELSE . (attribute_reference . 0)) (DIGITS . (attribute_reference . 0)) (RANGE . (attribute_reference . 0)) (THEN . (attribute_reference . 0)) (USE . (attribute_reference . 0)) (COLON_EQUAL . (attribute_reference . 0)) (CHARACTER_LITERAL . (attribute_reference . 0)) (STRING_LITERAL . (attribute_reference . 0)) (IDENTIFIER . (attribute_reference . 0)) (LESS_LESS . (attribute_reference . 0)) (WHILE . (attribute_reference . 0)) (SELECT . (attribute_reference . 0)) (REQUEUE . (attribute_reference . 0)) (RAISE . (attribute_reference . 0)) (PRAGMA . (attribute_reference . 0)) (NULL . (attribute_reference . 0)) (LOOP . (attribute_reference . 0)) (IF . (attribute_reference . 0)) (GOTO . (attribute_reference . 0)) (FOR . (attribute_reference . 0)) (EXIT . (attribute_reference . 0)) (DELAY . (attribute_reference . 0)) (DECLARE . (attribute_reference . 0)) (CASE . (attribute_reference . 0)) (BEGIN . (attribute_reference . 0)) (ABORT . (attribute_reference . 0)) (ACCEPT . (attribute_reference . 0)) (OF . (attribute_reference . 0)) (IN . (attribute_reference . 0)) (NOT . (attribute_reference . 0)) (RIGHT_PAREN . (attribute_reference . 0)) (PLUS . (attribute_reference . 0)) (MINUS . (attribute_reference . 0)) (AMPERSAND . (attribute_reference . 0)) (DOT_DOT . (attribute_reference . 0)) (MOD . (attribute_reference . 0)) (REM . (attribute_reference . 0)) (SLASH . (attribute_reference . 0)) (STAR . (attribute_reference . 0)) (STAR_STAR . (attribute_reference . 0)) (BAR . (attribute_reference . 0)) (EQUAL_GREATER . (attribute_reference . 0)) (EQUAL . (attribute_reference . 0)) (GREATER . (attribute_reference . 0)) (GREATER_EQUAL . (attribute_reference . 0)) (LESS . (attribute_reference . 0)) (LESS_EQUAL . (attribute_reference . 0)) (SLASH_EQUAL . (attribute_reference . 0)) (AND . (attribute_reference . 0)) (OR . (attribute_reference . 0)) (XOR . (attribute_reference . 0)) (LEFT_PAREN . (attribute_reference . 0)) (SEMICOLON . (attribute_reference . 0)) (COMMA . (attribute_reference . 0)) (DOT . (attribute_reference . 0)) (TICK . (attribute_reference . 0)) (WITH . (attribute_reference . 0)) (IS . (attribute_reference . 0)) (RENAMES . (attribute_reference . 0)) (RETURN . (attribute_reference . 0))) @@ -2029,94 +2046,88 @@ ((default . error) (DO . (selected_component . 0)) (RIGHT_PAREN . (selected_component . 0)) (BAR . (selected_component . 0)) (ELSIF . (selected_component . 0)) (ELSE . (selected_component . 0)) (EQUAL_GREATER . (selected_component . 0)) (DIGITS . (selected_component . 0)) (RANGE . (selected_component . 0)) (THEN . (selected_component . 0)) (DOT_DOT . (selected_component . 0)) (IN . (selected_component . 0)) (NOT . (selected_component . 0)) (EQUAL . (selected_component . 0)) (GREATER . (selected_component . 0)) (GREATER_EQUAL . (selected_component . 0)) (LESS . (selected_component . 0)) (LESS_EQUAL . (selected_component . 0)) (SLASH_EQUAL . (selected_component . 0)) (AND . (selected_component . 0)) (OR . (selected_component . 0)) (XOR . (selected_component . 0)) (PLUS . (selected_component . 0)) (MINUS . (selected_component . 0)) (AMPERSAND . (selected_component . 0)) (MOD . (selected_component . 0)) (REM . (selected_component . 0)) (SLASH . (selected_component . 0)) (STAR . (selected_component . 0)) (STAR_STAR . (selected_component . 0)) (USE . (selected_component . 0)) (COLON_EQUAL . (selected_component . 0)) (CHARACTER_LITERAL . (selected_component . 0)) (STRING_LITERAL . (selected_component . 0)) (IDENTIFIER . (selected_component . 0)) (LESS_LESS . (selected_component . 0)) (WHILE . (selected_component . 0)) (SELECT . (selected_component . 0)) (REQUEUE . (selected_component . 0)) (RAISE . (selected_component . 0)) (PRAGMA . (selected_component . 0)) (NULL . (selected_component . 0)) (LOOP . (selected_component . 0)) (IF . (selected_component . 0)) (GOTO . (selected_component . 0)) (FOR . (selected_component . 0)) (EXIT . (selected_component . 0)) (DELAY . (selected_component . 0)) (DECLARE . (selected_component . 0)) (CASE . (selected_component . 0)) (BEGIN . (selected_component . 0)) (ABORT . (selected_component . 0)) (ACCEPT . (selected_component . 0)) (OF . (selected_component . 0)) (LEFT_PAREN . (selected_component . 0)) (SEMICOLON . (selected_component . 0)) (COMMA . (selected_component . 0)) (DOT . (selected_component . 0)) (TICK . (selected_component . 0)) (WITH . (selected_component . 0)) (IS . (selected_component . 0)) (RENAMES . (selected_component . 0)) (RETURN . (selected_component . 0))) ((default . error) (DO . (selected_component . 2)) (RIGHT_PAREN . (selected_component . 2)) (BAR . (selected_component . 2)) (ELSIF . (selected_component . 2)) (ELSE . (selected_component . 2)) (EQUAL_GREATER . (selected_component . 2)) (DIGITS . (selected_component . 2)) (RANGE . (selected_component . 2)) (THEN . (selected_component . 2)) (DOT_DOT . (selected_component . 2)) (IN . (selected_component . 2)) (NOT . (selected_component . 2)) (EQUAL . (selected_component . 2)) (GREATER . (selected_component . 2)) (GREATER_EQUAL . (selected_component . 2)) (LESS . (selected_component . 2)) (LESS_EQUAL . (selected_component . 2)) (SLASH_EQUAL . (selected_component . 2)) (AND . (selected_component . 2)) (OR . (selected_component . 2)) (XOR . (selected_component . 2)) (PLUS . (selected_component . 2)) (MINUS . (selected_component . 2)) (AMPERSAND . (selected_component . 2)) (MOD . (selected_component . 2)) (REM . (selected_component . 2)) (SLASH . (selected_component . 2)) (STAR . (selected_component . 2)) (STAR_STAR . (selected_component . 2)) (USE . (selected_component . 2)) (COLON_EQUAL . (selected_component . 2)) (CHARACTER_LITERAL . (selected_component . 2)) (STRING_LITERAL . (selected_component . 2)) (IDENTIFIER . (selected_component . 2)) (LESS_LESS . (selected_component . 2)) (WHILE . (selected_component . 2)) (SELECT . (selected_component . 2)) (REQUEUE . (selected_component . 2)) (RAISE . (selected_component . 2)) (PRAGMA . (selected_component . 2)) (NULL . (selected_component . 2)) (LOOP . (selected_component . 2)) (IF . (selected_component . 2)) (GOTO . (selected_component . 2)) (FOR . (selected_component . 2)) (EXIT . (selected_component . 2)) (DELAY . (selected_component . 2)) (DECLARE . (selected_component . 2)) (CASE . (selected_component . 2)) (BEGIN . (selected_component . 2)) (ABORT . (selected_component . 2)) (ACCEPT . (selected_component . 2)) (OF . (selected_component . 2)) (LEFT_PAREN . (selected_component . 2)) (SEMICOLON . (selected_component . 2)) (COMMA . (selected_component . 2)) (DOT . (selected_component . 2)) (TICK . (selected_component . 2)) (WITH . (selected_component . 2)) (IS . (selected_component . 2)) (RENAMES . (selected_component . 2)) (RETURN . (selected_component . 2))) ((default . error) (DO . (selected_component . 1)) (RIGHT_PAREN . (selected_component . 1)) (BAR . (selected_component . 1)) (ELSIF . (selected_component . 1)) (ELSE . (selected_component . 1)) (EQUAL_GREATER . (selected_component . 1)) (DIGITS . (selected_component . 1)) (RANGE . (selected_component . 1)) (THEN . (selected_component . 1)) (DOT_DOT . (selected_component . 1)) (IN . (selected_component . 1)) (NOT . (selected_component . 1)) (EQUAL . (selected_component . 1)) (GREATER . (selected_component . 1)) (GREATER_EQUAL . (selected_component . 1)) (LESS . (selected_component . 1)) (LESS_EQUAL . (selected_component . 1)) (SLASH_EQUAL . (selected_component . 1)) (AND . (selected_component . 1)) (OR . (selected_component . 1)) (XOR . (selected_component . 1)) (PLUS . (selected_component . 1)) (MINUS . (selected_component . 1)) (AMPERSAND . (selected_component . 1)) (MOD . (selected_component . 1)) (REM . (selected_component . 1)) (SLASH . (selected_component . 1)) (STAR . (selected_component . 1)) (STAR_STAR . (selected_component . 1)) (USE . (selected_component . 1)) (COLON_EQUAL . (selected_component . 1)) (CHARACTER_LITERAL . (selected_component . 1)) (STRING_LITERAL . (selected_component . 1)) (IDENTIFIER . (selected_component . 1)) (LESS_LESS . (selected_component . 1)) (WHILE . (selected_component . 1)) (SELECT . (selected_component . 1)) (REQUEUE . (selected_component . 1)) (RAISE . (selected_component . 1)) (PRAGMA . (selected_component . 1)) (NULL . (selected_component . 1)) (LOOP . (selected_component . 1)) (IF . (selected_component . 1)) (GOTO . (selected_component . 1)) (FOR . (selected_component . 1)) (EXIT . (selected_component . 1)) (DELAY . (selected_component . 1)) (DECLARE . (selected_component . 1)) (CASE . (selected_component . 1)) (BEGIN . (selected_component . 1)) (ABORT . (selected_component . 1)) (ACCEPT . (selected_component . 1)) (OF . (selected_component . 1)) (LEFT_PAREN . (selected_component . 1)) (SEMICOLON . (selected_component . 1)) (COMMA . (selected_component . 1)) (DOT . (selected_component . 1)) (TICK . (selected_component . 1)) (WITH . (selected_component . 1)) (IS . (selected_component . 1)) (RENAMES . (selected_component . 1)) (RETURN . (selected_component . 1))) - ((default . error) (NULL . 238)) + ((default . error) (NULL . 245)) ((default . error) (DO . (parameter_and_result_profile . 3)) (RIGHT_PAREN . (parameter_and_result_profile . 3)) (COLON_EQUAL . (parameter_and_result_profile . 3)) (RENAMES . (parameter_and_result_profile . 3)) (WITH . (parameter_and_result_profile . 3)) (SEMICOLON . (parameter_and_result_profile . 3)) (IS . (parameter_and_result_profile . 3))) - ((default . error) (ACCESS . 235) (IS . (name_opt . 0)) (SEMICOLON . (name_opt . 0)) (WITH . (name_opt . 0)) (RENAMES . (name_opt . 0)) (COLON_EQUAL . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (DO . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (ACCESS . 242) (IS . (name_opt . 0)) (SEMICOLON . (name_opt . 0)) (WITH . (name_opt . 0)) (RENAMES . (name_opt . 0)) (COLON_EQUAL . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (DO . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IN . (name . 0)) (NOT . (name . 0)) (EQUAL . (name . 0)) (GREATER . (name . 0)) (GREATER_EQUAL . (name . 0)) (LESS . (name . 0)) (LESS_EQUAL . (name . 0)) (SLASH_EQUAL . (name . 0)) (BAR . (name . 0)) (EQUAL_GREATER . (name . 0)) (AND . (name . 0)) (OR . (name . 0)) (XOR . (name . 0)) (RIGHT_PAREN . (name . 0)) (LEFT_PAREN . (name . 0)) (RANGE . (name . 0)) (TICK . (name . 0)) (DOT . (name . 0)) (PLUS . (name . 0)) (MINUS . (name . 0)) (AMPERSAND . (name . 0)) (DOT_DOT . (name . 0)) (MOD . (name . 0)) (REM . (name . 0)) (SLASH . (name . 0)) (STAR . (name . 0)) (STAR_STAR . (name . 0)) (COLON . (identifier_list . 0)) (COMMA . ((identifier_list . 0) (name . 0)))) - ((default . error) (COLON . 234) (COMMA . 96)) + ((default . error) (COLON . 241) (COMMA . 96)) ((default . error) (RIGHT_PAREN . (parameter_specification_list . 0)) (SEMICOLON . (parameter_specification_list . 0))) - ((default . error) (SEMICOLON . 233) (RIGHT_PAREN . 232)) + ((default . error) (SEMICOLON . 240) (RIGHT_PAREN . 239)) ((default . error) (COLON_EQUAL . (formal_part . 0)) (RIGHT_PAREN . (formal_part . 0)) (DO . (formal_part . 0)) (WHEN . (formal_part . 0)) (RENAMES . (formal_part . 0)) (IS . (formal_part . 0)) (SEMICOLON . (formal_part . 0)) (WITH . (formal_part . 0)) (RETURN . (formal_part . 0))) ((default . error) (IDENTIFIER . 77)) - ((default . error) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (IN . (aliased_opt . 0)) (OUT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ALIASED . 530)) - ((default . error) (FUNCTION . (protected_opt . 0)) (PROCEDURE . (protected_opt . 0)) (PROTECTED . 527) (IDENTIFIER . (general_access_modifier_opt . 0)) (STRING_LITERAL . (general_access_modifier_opt . 0)) (CHARACTER_LITERAL . (general_access_modifier_opt . 0)) (ALL . 525) (CONSTANT . 526)) + ((default . error) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (IN . (aliased_opt . 0)) (OUT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ALIASED . 531)) + ((default . error) (FUNCTION . (protected_opt . 0)) (PROCEDURE . (protected_opt . 0)) (PROTECTED . 528) (IDENTIFIER . (general_access_modifier_opt . 0)) (STRING_LITERAL . (general_access_modifier_opt . 0)) (CHARACTER_LITERAL . (general_access_modifier_opt . 0)) (ALL . 526) (CONSTANT . 527)) ((default . error) (DOT . 90) (DO . (name_opt . 1)) (COLON_EQUAL . (name_opt . 1)) (RIGHT_PAREN . (name_opt . 1)) (RENAMES . (name_opt . 1)) (IS . (name_opt . 1)) (WITH . (name_opt . 1)) (SEMICOLON . (name_opt . 1)) (TICK . 91) (LEFT_PAREN . 107)) ((default . error) (DO . (parameter_and_result_profile . 1)) (COLON_EQUAL . (parameter_and_result_profile . 1)) (RIGHT_PAREN . (parameter_and_result_profile . 1)) (RENAMES . (parameter_and_result_profile . 1)) (IS . (parameter_and_result_profile . 1)) (SEMICOLON . (parameter_and_result_profile . 1)) (WITH . (parameter_and_result_profile . 1))) ((default . error) (DO . (null_exclusion_opt . 1)) (COLON_EQUAL . (null_exclusion_opt . 1)) (RIGHT_PAREN . (null_exclusion_opt . 1)) (RENAMES . (null_exclusion_opt . 1)) (ACCESS . (null_exclusion_opt . 1)) (CHARACTER_LITERAL . (null_exclusion_opt . 1)) (STRING_LITERAL . (null_exclusion_opt . 1)) (IDENTIFIER . (null_exclusion_opt . 1)) (IS . (null_exclusion_opt . 1)) (SEMICOLON . (null_exclusion_opt . 1)) (WITH . (null_exclusion_opt . 1))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (DOT_DOT . (primary . 1)) (RIGHT_PAREN . (primary . 1)) (COMMA . (primary . 1)) (BAR . (primary . 1)) (EQUAL_GREATER . (primary . 1)) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (IN . (primary . 1)) (NOT . (primary . 1)) (EQUAL . (primary . 1)) (GREATER . (primary . 1)) (GREATER_EQUAL . (primary . 1)) (LESS . (primary . 1)) (LESS_EQUAL . (primary . 1)) (SLASH_EQUAL . (primary . 1)) (WITH . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (STAR_STAR . (primary . 1)) (AND . (primary . 1)) (OR . (primary . 1)) (XOR . (primary . 1)) (RECORD . 522)) - ((default . error) (COMMA . 272) (RIGHT_PAREN . 521)) - ((default . error) (RIGHT_PAREN . 520)) - ((default . error) (RIGHT_PAREN . (expression_opt . 1)) (COMMA . (expression_opt . 1)) (WITH . 519)) - ((default . error) (RIGHT_PAREN . 518)) ((default . error) (DO . (parameter_and_result_profile . 2)) (COLON_EQUAL . (parameter_and_result_profile . 2)) (RIGHT_PAREN . (parameter_and_result_profile . 2)) (RENAMES . (parameter_and_result_profile . 2)) (IS . (parameter_and_result_profile . 2)) (SEMICOLON . (parameter_and_result_profile . 2)) (WITH . (parameter_and_result_profile . 2))) - ((default . error) (ACCESS . 235) (WITH . (name_opt . 0)) (SEMICOLON . (name_opt . 0)) (IS . (name_opt . 0)) (RENAMES . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (COLON_EQUAL . (name_opt . 0)) (DO . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (COLON_EQUAL . 515) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (ACCESS . 235) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (ACCESS . 242) (WITH . (name_opt . 0)) (SEMICOLON . (name_opt . 0)) (IS . (name_opt . 0)) (RENAMES . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (COLON_EQUAL . (name_opt . 0)) (DO . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (COLON_EQUAL . 523) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (ACCESS . 242) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (CHARACTER_LITERAL . (mode_opt . 2)) (STRING_LITERAL . (mode_opt . 2)) (IDENTIFIER . (mode_opt . 2)) (NOT . (mode_opt . 2)) (ACCESS . (mode_opt . 2))) - ((default . error) (NEW . 513)) + ((default . error) (NEW . 521)) ((default . error) (IDENTIFIER . (formal_subprogram_declaration . 1)) (WITH . (formal_subprogram_declaration . 1)) (USE . (formal_subprogram_declaration . 1)) (TYPE . (formal_subprogram_declaration . 1)) (PRAGMA . (formal_subprogram_declaration . 1)) (FUNCTION . (formal_subprogram_declaration . 1)) (PROCEDURE . (formal_subprogram_declaration . 1)) (PACKAGE . (formal_subprogram_declaration . 1))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (BOX . 255) (NULL . 254) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (WITH . (subprogram_default . 2)) (SEMICOLON . (subprogram_default . 2))) ((default . error) (WITH . (subprogram_default . 1)) (SEMICOLON . (subprogram_default . 1))) ((default . error) (WITH . (subprogram_default . 0)) (SEMICOLON . (subprogram_default . 0)) (DOT . 90) (TICK . 91) (LEFT_PAREN . 107)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (LEFT_PAREN . 494) (RANGE . 498) (MOD . 496) (DIGITS . 492) (DELTA . 491) (TASK . 501) (PROTECTED . 497) (INTERFACE . 493) (ARRAY . 490) (PRIVATE . (abstract_tagged_limited_opt . 0)) (TAGGED . 500) (NEW . (abstract_limited_synchronized_opt . 0)) (ABSTRACT . 489) (LIMITED . 495) (SYNCHRONIZED . 499) (ACCESS . (null_exclusion_opt . 0)) (NOT . 225)) - ((default . error) (SEMICOLON . 488)) - ((default . error) (RIGHT_PAREN . 487)) + ((default . error) (LEFT_PAREN . 502) (RANGE . 506) (MOD . 504) (DIGITS . 500) (DELTA . 499) (TASK . 509) (PROTECTED . 505) (INTERFACE . 501) (ARRAY . 498) (PRIVATE . (abstract_tagged_limited_opt . 0)) (TAGGED . 508) (NEW . (abstract_limited_synchronized_opt . 0)) (ABSTRACT . 497) (LIMITED . 503) (SYNCHRONIZED . 507) (ACCESS . (null_exclusion_opt . 0)) (NOT . 232)) + ((default . error) (SEMICOLON . 496)) + ((default . error) (RIGHT_PAREN . 495)) ((default . error) (RIGHT_PAREN . (discriminant_specification_list . 0)) (SEMICOLON . (discriminant_specification_list . 0))) - ((default . error) (SEMICOLON . 486) (RIGHT_PAREN . 485)) - ((default . error) (COMMA . 96) (COLON . 484)) + ((default . error) (SEMICOLON . 494) (RIGHT_PAREN . 493)) + ((default . error) (COMMA . 96) (COLON . 492)) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) ((default . error) (WITH . (with_clause . 0)) (USE . (with_clause . 0)) (SEPARATE . (with_clause . 0)) (PROCEDURE . (with_clause . 0)) (PRIVATE . (with_clause . 0)) (PRAGMA . (with_clause . 0)) (PACKAGE . (with_clause . 0)) (OVERRIDING . (with_clause . 0)) (NOT . (with_clause . 0)) (LIMITED . (with_clause . 0)) (GENERIC . (with_clause . 0)) (FUNCTION . (with_clause . 0)) ($EOI . (with_clause . 0))) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) - ((default . error) (DO . (name . 2)) (STAR_STAR . (name . 2)) (STAR . (name . 2)) (SLASH . (name . 2)) (REM . (name . 2)) (MOD . (name . 2)) (DOT_DOT . (name . 2)) (AMPERSAND . (name . 2)) (MINUS . (name . 2)) (PLUS . (name . 2)) (RIGHT_PAREN . (name . 2)) (RANGE . (name . 2)) (COLON_EQUAL . (name . 2)) (AND . (name . 2)) (OF . (name . 2)) (CHARACTER_LITERAL . (name . 2)) (STRING_LITERAL . (name . 2)) (IDENTIFIER . (name . 2)) (LESS_LESS . (name . 2)) (WHILE . (name . 2)) (SELECT . (name . 2)) (REQUEUE . (name . 2)) (RAISE . (name . 2)) (PRAGMA . (name . 2)) (NULL . (name . 2)) (LOOP . (name . 2)) (IF . (name . 2)) (GOTO . (name . 2)) (FOR . (name . 2)) (EXIT . (name . 2)) (DELAY . (name . 2)) (DECLARE . (name . 2)) (CASE . (name . 2)) (BEGIN . (name . 2)) (ABORT . (name . 2)) (ACCEPT . (name . 2)) (USE . (name . 2)) (XOR . (name . 2)) (OR . (name . 2)) (IN . (name . 2)) (NOT . (name . 2)) (EQUAL . (name . 2)) (GREATER . (name . 2)) (GREATER_EQUAL . (name . 2)) (LESS . (name . 2)) (LESS_EQUAL . (name . 2)) (SLASH_EQUAL . (name . 2)) (THEN . (name . 2)) (DIGITS . (name . 2)) (EQUAL_GREATER . (name . 2)) (ELSE . (name . 2)) (ELSIF . (name . 2)) (BAR . (name . 2)) (RETURN . (name . 2)) (TICK . (name . 2)) (DOT . (name . 2)) (LEFT_PAREN . (name . 2)) (IS . (name . 2)) (SEMICOLON . (name . 2)) (WITH . (name . 2)) (RENAMES . (name . 2)) (COMMA . (name . 2))) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (STAR_STAR . (actual_parameter_part . 0)) (STAR . (actual_parameter_part . 0)) (SLASH . (actual_parameter_part . 0)) (REM . (actual_parameter_part . 0)) (MOD . (actual_parameter_part . 0)) (DOT_DOT . (actual_parameter_part . 0)) (AMPERSAND . (actual_parameter_part . 0)) (MINUS . (actual_parameter_part . 0)) (PLUS . (actual_parameter_part . 0)) (RIGHT_PAREN . (actual_parameter_part . 0)) (RANGE . (actual_parameter_part . 0)) (COLON_EQUAL . (actual_parameter_part . 0)) (AND . (actual_parameter_part . 0)) (OF . (actual_parameter_part . 0)) (DO . (actual_parameter_part . 0)) (CHARACTER_LITERAL . (actual_parameter_part . 0)) (STRING_LITERAL . (actual_parameter_part . 0)) (IDENTIFIER . (actual_parameter_part . 0)) (LESS_LESS . (actual_parameter_part . 0)) (WHILE . (actual_parameter_part . 0)) (SELECT . (actual_parameter_part . 0)) (REQUEUE . (actual_parameter_part . 0)) (RAISE . (actual_parameter_part . 0)) (PRAGMA . (actual_parameter_part . 0)) (NULL . (actual_parameter_part . 0)) (LOOP . (actual_parameter_part . 0)) (IF . (actual_parameter_part . 0)) (GOTO . (actual_parameter_part . 0)) (FOR . (actual_parameter_part . 0)) (EXIT . (actual_parameter_part . 0)) (DELAY . (actual_parameter_part . 0)) (DECLARE . (actual_parameter_part . 0)) (CASE . (actual_parameter_part . 0)) (BEGIN . (actual_parameter_part . 0)) (ABORT . (actual_parameter_part . 0)) (ACCEPT . (actual_parameter_part . 0)) (USE . (actual_parameter_part . 0)) (XOR . (actual_parameter_part . 0)) (OR . (actual_parameter_part . 0)) (IN . (actual_parameter_part . 0)) (NOT . (actual_parameter_part . 0)) (EQUAL . (actual_parameter_part . 0)) (GREATER . (actual_parameter_part . 0)) (GREATER_EQUAL . (actual_parameter_part . 0)) (LESS . (actual_parameter_part . 0)) (LESS_EQUAL . (actual_parameter_part . 0)) (SLASH_EQUAL . (actual_parameter_part . 0)) (THEN . (actual_parameter_part . 0)) (DIGITS . (actual_parameter_part . 0)) (EQUAL_GREATER . (actual_parameter_part . 0)) (ELSE . (actual_parameter_part . 0)) (ELSIF . (actual_parameter_part . 0)) (BAR . (actual_parameter_part . 0)) (RETURN . (actual_parameter_part . 0)) (TICK . (actual_parameter_part . 0)) (DOT . (actual_parameter_part . 0)) (LEFT_PAREN . (actual_parameter_part . 0)) (IS . (actual_parameter_part . 0)) (SEMICOLON . (actual_parameter_part . 0)) (WITH . (actual_parameter_part . 0)) (RENAMES . (actual_parameter_part . 0)) (COMMA . (actual_parameter_part . 0))) - ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (IS . ((expression_opt . 0) (association_opt . 0))) (SEMICOLON . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 476)) - ((default . error) (PLUS . 151) (MINUS . 150) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (IN . 471)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (DO . (name . 2)) (STAR_STAR . (name . 2)) (STAR . (name . 2)) (SLASH . (name . 2)) (REM . (name . 2)) (MOD . (name . 2)) (DOT_DOT . (name . 2)) (AMPERSAND . (name . 2)) (MINUS . (name . 2)) (PLUS . (name . 2)) (RIGHT_PAREN . (name . 2)) (XOR . (name . 2)) (OR . (name . 2)) (EQUAL_GREATER . (name . 2)) (BAR . (name . 2)) (SLASH_EQUAL . (name . 2)) (LESS_EQUAL . (name . 2)) (LESS . (name . 2)) (GREATER_EQUAL . (name . 2)) (GREATER . (name . 2)) (EQUAL . (name . 2)) (NOT . (name . 2)) (IN . (name . 2)) (RANGE . (name . 2)) (COLON_EQUAL . (name . 2)) (AND . (name . 2)) (OF . (name . 2)) (CHARACTER_LITERAL . (name . 2)) (STRING_LITERAL . (name . 2)) (IDENTIFIER . (name . 2)) (LESS_LESS . (name . 2)) (WHILE . (name . 2)) (SELECT . (name . 2)) (REQUEUE . (name . 2)) (RAISE . (name . 2)) (PRAGMA . (name . 2)) (NULL . (name . 2)) (LOOP . (name . 2)) (IF . (name . 2)) (GOTO . (name . 2)) (FOR . (name . 2)) (EXIT . (name . 2)) (DELAY . (name . 2)) (DECLARE . (name . 2)) (CASE . (name . 2)) (BEGIN . (name . 2)) (ABORT . (name . 2)) (ACCEPT . (name . 2)) (USE . (name . 2)) (THEN . (name . 2)) (DIGITS . (name . 2)) (ELSE . (name . 2)) (ELSIF . (name . 2)) (RETURN . (name . 2)) (TICK . (name . 2)) (DOT . (name . 2)) (LEFT_PAREN . (name . 2)) (IS . (name . 2)) (SEMICOLON . (name . 2)) (WITH . (name . 2)) (RENAMES . (name . 2)) (COMMA . (name . 2))) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (STAR_STAR . (actual_parameter_part . 1)) (STAR . (actual_parameter_part . 1)) (SLASH . (actual_parameter_part . 1)) (REM . (actual_parameter_part . 1)) (MOD . (actual_parameter_part . 1)) (DOT_DOT . (actual_parameter_part . 1)) (AMPERSAND . (actual_parameter_part . 1)) (MINUS . (actual_parameter_part . 1)) (PLUS . (actual_parameter_part . 1)) (RIGHT_PAREN . (actual_parameter_part . 1)) (XOR . (actual_parameter_part . 1)) (OR . (actual_parameter_part . 1)) (EQUAL_GREATER . (actual_parameter_part . 1)) (BAR . (actual_parameter_part . 1)) (SLASH_EQUAL . (actual_parameter_part . 1)) (LESS_EQUAL . (actual_parameter_part . 1)) (LESS . (actual_parameter_part . 1)) (GREATER_EQUAL . (actual_parameter_part . 1)) (GREATER . (actual_parameter_part . 1)) (EQUAL . (actual_parameter_part . 1)) (NOT . (actual_parameter_part . 1)) (IN . (actual_parameter_part . 1)) (RANGE . (actual_parameter_part . 1)) (COLON_EQUAL . (actual_parameter_part . 1)) (AND . (actual_parameter_part . 1)) (OF . (actual_parameter_part . 1)) (DO . (actual_parameter_part . 1)) (CHARACTER_LITERAL . (actual_parameter_part . 1)) (STRING_LITERAL . (actual_parameter_part . 1)) (IDENTIFIER . (actual_parameter_part . 1)) (LESS_LESS . (actual_parameter_part . 1)) (WHILE . (actual_parameter_part . 1)) (SELECT . (actual_parameter_part . 1)) (REQUEUE . (actual_parameter_part . 1)) (RAISE . (actual_parameter_part . 1)) (PRAGMA . (actual_parameter_part . 1)) (NULL . (actual_parameter_part . 1)) (LOOP . (actual_parameter_part . 1)) (IF . (actual_parameter_part . 1)) (GOTO . (actual_parameter_part . 1)) (FOR . (actual_parameter_part . 1)) (EXIT . (actual_parameter_part . 1)) (DELAY . (actual_parameter_part . 1)) (DECLARE . (actual_parameter_part . 1)) (CASE . (actual_parameter_part . 1)) (BEGIN . (actual_parameter_part . 1)) (ABORT . (actual_parameter_part . 1)) (ACCEPT . (actual_parameter_part . 1)) (USE . (actual_parameter_part . 1)) (THEN . (actual_parameter_part . 1)) (DIGITS . (actual_parameter_part . 1)) (ELSE . (actual_parameter_part . 1)) (ELSIF . (actual_parameter_part . 1)) (RETURN . (actual_parameter_part . 1)) (TICK . (actual_parameter_part . 1)) (DOT . (actual_parameter_part . 1)) (LEFT_PAREN . (actual_parameter_part . 1)) (IS . (actual_parameter_part . 1)) (SEMICOLON . (actual_parameter_part . 1)) (WITH . (actual_parameter_part . 1)) (RENAMES . (actual_parameter_part . 1)) (COMMA . (actual_parameter_part . 1))) + ((default . error) (STAR_STAR . (actual_parameter_part . 0)) (STAR . (actual_parameter_part . 0)) (SLASH . (actual_parameter_part . 0)) (REM . (actual_parameter_part . 0)) (MOD . (actual_parameter_part . 0)) (DOT_DOT . (actual_parameter_part . 0)) (AMPERSAND . (actual_parameter_part . 0)) (MINUS . (actual_parameter_part . 0)) (PLUS . (actual_parameter_part . 0)) (RIGHT_PAREN . (actual_parameter_part . 0)) (XOR . (actual_parameter_part . 0)) (OR . (actual_parameter_part . 0)) (EQUAL_GREATER . (actual_parameter_part . 0)) (BAR . (actual_parameter_part . 0)) (SLASH_EQUAL . (actual_parameter_part . 0)) (LESS_EQUAL . (actual_parameter_part . 0)) (LESS . (actual_parameter_part . 0)) (GREATER_EQUAL . (actual_parameter_part . 0)) (GREATER . (actual_parameter_part . 0)) (EQUAL . (actual_parameter_part . 0)) (NOT . (actual_parameter_part . 0)) (IN . (actual_parameter_part . 0)) (RANGE . (actual_parameter_part . 0)) (COLON_EQUAL . (actual_parameter_part . 0)) (AND . (actual_parameter_part . 0)) (OF . (actual_parameter_part . 0)) (DO . (actual_parameter_part . 0)) (CHARACTER_LITERAL . (actual_parameter_part . 0)) (STRING_LITERAL . (actual_parameter_part . 0)) (IDENTIFIER . (actual_parameter_part . 0)) (LESS_LESS . (actual_parameter_part . 0)) (WHILE . (actual_parameter_part . 0)) (SELECT . (actual_parameter_part . 0)) (REQUEUE . (actual_parameter_part . 0)) (RAISE . (actual_parameter_part . 0)) (PRAGMA . (actual_parameter_part . 0)) (NULL . (actual_parameter_part . 0)) (LOOP . (actual_parameter_part . 0)) (IF . (actual_parameter_part . 0)) (GOTO . (actual_parameter_part . 0)) (FOR . (actual_parameter_part . 0)) (EXIT . (actual_parameter_part . 0)) (DELAY . (actual_parameter_part . 0)) (DECLARE . (actual_parameter_part . 0)) (CASE . (actual_parameter_part . 0)) (BEGIN . (actual_parameter_part . 0)) (ABORT . (actual_parameter_part . 0)) (ACCEPT . (actual_parameter_part . 0)) (USE . (actual_parameter_part . 0)) (THEN . (actual_parameter_part . 0)) (DIGITS . (actual_parameter_part . 0)) (ELSE . (actual_parameter_part . 0)) (ELSIF . (actual_parameter_part . 0)) (RETURN . (actual_parameter_part . 0)) (TICK . (actual_parameter_part . 0)) (DOT . (actual_parameter_part . 0)) (LEFT_PAREN . (actual_parameter_part . 0)) (IS . (actual_parameter_part . 0)) (SEMICOLON . (actual_parameter_part . 0)) (WITH . (actual_parameter_part . 0)) (RENAMES . (actual_parameter_part . 0)) (COMMA . (actual_parameter_part . 0))) + ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (IS . ((expression_opt . 0) (association_opt . 0))) (SEMICOLON . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 484)) + ((default . error) (PLUS . 154) (MINUS . 153) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (IN . 479)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (ABS . (relational_operator . 0)) (LEFT_PAREN . (relational_operator . 0)) (NEW . (relational_operator . 0)) (NOT . (relational_operator . 0)) (NULL . (relational_operator . 0)) (MINUS . (relational_operator . 0)) (PLUS . (relational_operator . 0)) (NUMERIC_LITERAL . (relational_operator . 0)) (IDENTIFIER . (relational_operator . 0)) (STRING_LITERAL . (relational_operator . 0)) (CHARACTER_LITERAL . (relational_operator . 0))) ((default . error) (ABS . (relational_operator . 4)) (LEFT_PAREN . (relational_operator . 4)) (NEW . (relational_operator . 4)) (NOT . (relational_operator . 4)) (NULL . (relational_operator . 4)) (MINUS . (relational_operator . 4)) (PLUS . (relational_operator . 4)) (NUMERIC_LITERAL . (relational_operator . 4)) (IDENTIFIER . (relational_operator . 4)) (STRING_LITERAL . (relational_operator . 4)) (CHARACTER_LITERAL . (relational_operator . 4))) ((default . error) (ABS . (relational_operator . 5)) (LEFT_PAREN . (relational_operator . 5)) (NEW . (relational_operator . 5)) (NOT . (relational_operator . 5)) (NULL . (relational_operator . 5)) (MINUS . (relational_operator . 5)) (PLUS . (relational_operator . 5)) (NUMERIC_LITERAL . (relational_operator . 5)) (IDENTIFIER . (relational_operator . 5)) (STRING_LITERAL . (relational_operator . 5)) (CHARACTER_LITERAL . (relational_operator . 5))) ((default . error) (ABS . (relational_operator . 2)) (LEFT_PAREN . (relational_operator . 2)) (NEW . (relational_operator . 2)) (NOT . (relational_operator . 2)) (NULL . (relational_operator . 2)) (MINUS . (relational_operator . 2)) (PLUS . (relational_operator . 2)) (NUMERIC_LITERAL . (relational_operator . 2)) (IDENTIFIER . (relational_operator . 2)) (STRING_LITERAL . (relational_operator . 2)) (CHARACTER_LITERAL . (relational_operator . 2))) ((default . error) (ABS . (relational_operator . 3)) (LEFT_PAREN . (relational_operator . 3)) (NEW . (relational_operator . 3)) (NOT . (relational_operator . 3)) (NULL . (relational_operator . 3)) (MINUS . (relational_operator . 3)) (PLUS . (relational_operator . 3)) (NUMERIC_LITERAL . (relational_operator . 3)) (IDENTIFIER . (relational_operator . 3)) (STRING_LITERAL . (relational_operator . 3)) (CHARACTER_LITERAL . (relational_operator . 3))) ((default . error) (ABS . (relational_operator . 1)) (LEFT_PAREN . (relational_operator . 1)) (NEW . (relational_operator . 1)) (NOT . (relational_operator . 1)) (NULL . (relational_operator . 1)) (MINUS . (relational_operator . 1)) (PLUS . (relational_operator . 1)) (NUMERIC_LITERAL . (relational_operator . 1)) (IDENTIFIER . (relational_operator . 1)) (STRING_LITERAL . (relational_operator . 1)) (CHARACTER_LITERAL . (relational_operator . 1))) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RANGE . 468) (LEFT_PAREN . 216) (ACCESS . 213) (DELTA . 214) (DIGITS . 215) (MOD . 217) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (BOX . 464) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (THEN . 462) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ELSE . 460) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ELSE . 458)) - ((default . error) (THEN . 457)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (BOX . 451) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RANGE . 476) (LEFT_PAREN . 148) (ACCESS . 221) (DELTA . 222) (DIGITS . 223) (MOD . 224) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (BOX . 472) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (THEN . 470) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 468) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 466)) + ((default . error) (THEN . 465)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (BOX . 459) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (XOR . (primary . 1)) (OR . (primary . 1)) (AND . (primary . 1)) (SLASH_EQUAL . (primary . 1)) (LESS_EQUAL . (primary . 1)) (LESS . (primary . 1)) (GREATER_EQUAL . (primary . 1)) (GREATER . (primary . 1)) (EQUAL . (primary . 1)) (EQUAL_GREATER . (primary . 1)) (BAR . (primary . 1)) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (IN . (primary . 1)) (NOT . (primary . 1)) (RIGHT_PAREN . (primary . 1)) (COMMA . (primary . 1)) (WITH . (primary . 1)) (IS . (primary . 1)) (SEMICOLON . (primary . 1)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (COLON_EQUAL . (factor . 3)) (OF . (factor . 3)) (LOOP . (factor . 3)) (DO . (factor . 3)) (PLUS . (factor . 3)) (MINUS . (factor . 3)) (AMPERSAND . (factor . 3)) (SEMICOLON . (factor . 3)) (MOD . (factor . 3)) (REM . (factor . 3)) (SLASH . (factor . 3)) (STAR . (factor . 3)) (XOR . (factor . 3)) (OR . (factor . 3)) (AND . (factor . 3)) (IN . (factor . 3)) (NOT . (factor . 3)) (EQUAL . (factor . 3)) (GREATER . (factor . 3)) (GREATER_EQUAL . (factor . 3)) (LESS . (factor . 3)) (LESS_EQUAL . (factor . 3)) (SLASH_EQUAL . (factor . 3)) (IS . (factor . 3)) (WITH . (factor . 3)) (DOT_DOT . (factor . 3)) (THEN . (factor . 3)) (RANGE . (factor . 3)) (DIGITS . (factor . 3)) (RIGHT_PAREN . (factor . 3)) (EQUAL_GREATER . (factor . 3)) (ELSE . (factor . 3)) (ELSIF . (factor . 3)) (BAR . (factor . 3)) (COMMA . (factor . 3))) - ((default . error) (IDENTIFIER . 445) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 446)) - ((default . error) (BODY . 444) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (IDENTIFIER . 443) (TYPE . 442) (BODY . 441)) - ((default . error) (IDENTIFIER . 440)) - ((default . error) (TYPE . 438) (BODY . 437) (IDENTIFIER . 439)) - ((default . error) (IDENTIFIER . 436)) - ((default . error) (COLON . ( 435 (identifier_list . 0))) (COMMA . (identifier_list . 0))) + ((default . error) (COLON_EQUAL . (factor . 3)) (OF . (factor . 3)) (LOOP . (factor . 3)) (DO . (factor . 3)) (PLUS . (factor . 3)) (MINUS . (factor . 3)) (AMPERSAND . (factor . 3)) (SEMICOLON . (factor . 3)) (MOD . (factor . 3)) (REM . (factor . 3)) (SLASH . (factor . 3)) (STAR . (factor . 3)) (XOR . (factor . 3)) (OR . (factor . 3)) (AND . (factor . 3)) (IN . (factor . 3)) (NOT . (factor . 3)) (EQUAL . (factor . 3)) (GREATER . (factor . 3)) (GREATER_EQUAL . (factor . 3)) (LESS . (factor . 3)) (LESS_EQUAL . (factor . 3)) (SLASH_EQUAL . (factor . 3)) (IS . (factor . 3)) (WITH . (factor . 3)) (DOT_DOT . (factor . 3)) (THEN . (factor . 3)) (RANGE . (factor . 3)) (DIGITS . (factor . 3)) (RIGHT_PAREN . (factor . 3)) (EQUAL_GREATER . (factor . 3)) (BAR . (factor . 3)) (ELSE . (factor . 3)) (ELSIF . (factor . 3)) (COMMA . (factor . 3))) + ((default . error) (IDENTIFIER . 453) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 454)) + ((default . error) (BODY . 452) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (IDENTIFIER . 451) (TYPE . 450) (BODY . 449)) + ((default . error) (IDENTIFIER . 448)) + ((default . error) (TYPE . 446) (BODY . 445) (IDENTIFIER . 447)) + ((default . error) (IDENTIFIER . 444)) + ((default . error) (COLON . ( 443 (identifier_list . 0))) (COMMA . (identifier_list . 0))) ((default . error) (END . (declaration . 0)) (PRIVATE . (declaration . 0)) (IDENTIFIER . (declaration . 0)) (USE . (declaration . 0)) (TYPE . (declaration . 0)) (TASK . (declaration . 0)) (SUBTYPE . (declaration . 0)) (PROTECTED . (declaration . 0)) (PROCEDURE . (declaration . 0)) (PRAGMA . (declaration . 0)) (PACKAGE . (declaration . 0)) (OVERRIDING . (declaration . 0)) (NOT . (declaration . 0)) (GENERIC . (declaration . 0)) (FUNCTION . (declaration . 0)) (FOR . (declaration . 0)) (ENTRY . (declaration . 0)) (BEGIN . (declaration . 0))) ((default . error) (END . (declaration . 1)) (PRIVATE . (declaration . 1)) (IDENTIFIER . (declaration . 1)) (USE . (declaration . 1)) (TYPE . (declaration . 1)) (TASK . (declaration . 1)) (SUBTYPE . (declaration . 1)) (PROTECTED . (declaration . 1)) (PROCEDURE . (declaration . 1)) (PRAGMA . (declaration . 1)) (PACKAGE . (declaration . 1)) (OVERRIDING . (declaration . 1)) (NOT . (declaration . 1)) (GENERIC . (declaration . 1)) (FUNCTION . (declaration . 1)) (FOR . (declaration . 1)) (ENTRY . (declaration . 1)) (BEGIN . (declaration . 1))) ((default . error) (WHEN . (aspect_clause . 3)) (PRIVATE . (aspect_clause . 3)) (END . (aspect_clause . 3)) (CASE . (aspect_clause . 3)) (BEGIN . (aspect_clause . 3)) (ENTRY . (aspect_clause . 3)) (FOR . (aspect_clause . 3)) (FUNCTION . (aspect_clause . 3)) (GENERIC . (aspect_clause . 3)) (NOT . (aspect_clause . 3)) (OVERRIDING . (aspect_clause . 3)) (PACKAGE . (aspect_clause . 3)) (PRAGMA . (aspect_clause . 3)) (PROCEDURE . (aspect_clause . 3)) (PROTECTED . (aspect_clause . 3)) (SUBTYPE . (aspect_clause . 3)) (TASK . (aspect_clause . 3)) (TYPE . (aspect_clause . 3)) (USE . (aspect_clause . 3)) (IDENTIFIER . (aspect_clause . 3))) ((default . error) (END . (declaration . 2)) (PRIVATE . (declaration . 2)) (IDENTIFIER . (declaration . 2)) (USE . (declaration . 2)) (TYPE . (declaration . 2)) (TASK . (declaration . 2)) (SUBTYPE . (declaration . 2)) (PROTECTED . (declaration . 2)) (PROCEDURE . (declaration . 2)) (PRAGMA . (declaration . 2)) (PACKAGE . (declaration . 2)) (OVERRIDING . (declaration . 2)) (NOT . (declaration . 2)) (GENERIC . (declaration . 2)) (FUNCTION . (declaration . 2)) (FOR . (declaration . 2)) (ENTRY . (declaration . 2)) (BEGIN . (declaration . 2))) ((default . error) (PRIVATE . (body . 1)) (END . (body . 1)) (BEGIN . (body . 1)) (ENTRY . (body . 1)) (FOR . (body . 1)) (FUNCTION . (body . 1)) (GENERIC . (body . 1)) (NOT . (body . 1)) (OVERRIDING . (body . 1)) (PACKAGE . (body . 1)) (PRAGMA . (body . 1)) (PROCEDURE . (body . 1)) (PROTECTED . (body . 1)) (SUBTYPE . (body . 1)) (TASK . (body . 1)) (TYPE . (body . 1)) (USE . (body . 1)) (IDENTIFIER . (body . 1))) ((default . error) (PRIVATE . (declarations . 0)) (END . (declarations . 0)) (BEGIN . (declarations . 0)) (ENTRY . (declarations . 0)) (FOR . (declarations . 0)) (FUNCTION . (declarations . 0)) (GENERIC . (declarations . 0)) (NOT . (declarations . 0)) (OVERRIDING . (declarations . 0)) (PACKAGE . (declarations . 0)) (PRAGMA . (declarations . 0)) (PROCEDURE . (declarations . 0)) (PROTECTED . (declarations . 0)) (SUBTYPE . (declarations . 0)) (TASK . (declarations . 0)) (TYPE . (declarations . 0)) (USE . (declarations . 0)) (IDENTIFIER . (declarations . 0))) - ((default . error) (END . (declarative_part_opt . 1)) (PRIVATE . (declarative_part_opt . 1)) (BEGIN . (declarative_part_opt . 1)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (END . 432) (PRIVATE . 433)) + ((default . error) (END . (declarative_part_opt . 1)) (PRIVATE . (declarative_part_opt . 1)) (BEGIN . (declarative_part_opt . 1)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (END . 440) (PRIVATE . 441)) ((default . error) (END . (declaration . 3)) (PRIVATE . (declaration . 3)) (IDENTIFIER . (declaration . 3)) (USE . (declaration . 3)) (TYPE . (declaration . 3)) (TASK . (declaration . 3)) (SUBTYPE . (declaration . 3)) (PROTECTED . (declaration . 3)) (PROCEDURE . (declaration . 3)) (PRAGMA . (declaration . 3)) (PACKAGE . (declaration . 3)) (OVERRIDING . (declaration . 3)) (NOT . (declaration . 3)) (GENERIC . (declaration . 3)) (FUNCTION . (declaration . 3)) (FOR . (declaration . 3)) (ENTRY . (declaration . 3)) (BEGIN . (declaration . 3))) ((default . error) (WHEN . (aspect_clause . 1)) (PRIVATE . (aspect_clause . 1)) (END . (aspect_clause . 1)) (CASE . (aspect_clause . 1)) (BEGIN . (aspect_clause . 1)) (ENTRY . (aspect_clause . 1)) (FOR . (aspect_clause . 1)) (FUNCTION . (aspect_clause . 1)) (GENERIC . (aspect_clause . 1)) (NOT . (aspect_clause . 1)) (OVERRIDING . (aspect_clause . 1)) (PACKAGE . (aspect_clause . 1)) (PRAGMA . (aspect_clause . 1)) (PROCEDURE . (aspect_clause . 1)) (PROTECTED . (aspect_clause . 1)) (SUBTYPE . (aspect_clause . 1)) (TASK . (aspect_clause . 1)) (TYPE . (aspect_clause . 1)) (USE . (aspect_clause . 1)) (IDENTIFIER . (aspect_clause . 1))) ((default . error) (END . (declaration . 4)) (PRIVATE . (declaration . 4)) (IDENTIFIER . (declaration . 4)) (USE . (declaration . 4)) (TYPE . (declaration . 4)) (TASK . (declaration . 4)) (SUBTYPE . (declaration . 4)) (PROTECTED . (declaration . 4)) (PROCEDURE . (declaration . 4)) (PRAGMA . (declaration . 4)) (PACKAGE . (declaration . 4)) (OVERRIDING . (declaration . 4)) (NOT . (declaration . 4)) (GENERIC . (declaration . 4)) (FUNCTION . (declaration . 4)) (FOR . (declaration . 4)) (ENTRY . (declaration . 4)) (BEGIN . (declaration . 4))) @@ -2125,12 +2136,12 @@ ((default . error) (END . (declaration . 6)) (PRIVATE . (declaration . 6)) (IDENTIFIER . (declaration . 6)) (USE . (declaration . 6)) (TYPE . (declaration . 6)) (TASK . (declaration . 6)) (SUBTYPE . (declaration . 6)) (PROTECTED . (declaration . 6)) (PROCEDURE . (declaration . 6)) (PRAGMA . (declaration . 6)) (PACKAGE . (declaration . 6)) (OVERRIDING . (declaration . 6)) (NOT . (declaration . 6)) (GENERIC . (declaration . 6)) (FUNCTION . (declaration . 6)) (FOR . (declaration . 6)) (ENTRY . (declaration . 6)) (BEGIN . (declaration . 6))) ((default . error) (END . (declaration . 7)) (PRIVATE . (declaration . 7)) (IDENTIFIER . (declaration . 7)) (USE . (declaration . 7)) (TYPE . (declaration . 7)) (TASK . (declaration . 7)) (SUBTYPE . (declaration . 7)) (PROTECTED . (declaration . 7)) (PROCEDURE . (declaration . 7)) (PRAGMA . (declaration . 7)) (PACKAGE . (declaration . 7)) (OVERRIDING . (declaration . 7)) (NOT . (declaration . 7)) (GENERIC . (declaration . 7)) (FUNCTION . (declaration . 7)) (FOR . (declaration . 7)) (ENTRY . (declaration . 7)) (BEGIN . (declaration . 7))) ((default . error) (PRIVATE . (renaming_declaration . 3)) (END . (renaming_declaration . 3)) (BEGIN . (renaming_declaration . 3)) (ENTRY . (renaming_declaration . 3)) (FOR . (renaming_declaration . 3)) (FUNCTION . (renaming_declaration . 3)) (GENERIC . (renaming_declaration . 3)) (NOT . (renaming_declaration . 3)) (OVERRIDING . (renaming_declaration . 3)) (PACKAGE . (renaming_declaration . 3)) (PRAGMA . (renaming_declaration . 3)) (PROCEDURE . (renaming_declaration . 3)) (PROTECTED . (renaming_declaration . 3)) (SUBTYPE . (renaming_declaration . 3)) (TASK . (renaming_declaration . 3)) (TYPE . (renaming_declaration . 3)) (USE . (renaming_declaration . 3)) (IDENTIFIER . (renaming_declaration . 3))) - ((default . error) (COMMA . 96) (COLON . 431)) + ((default . error) (COMMA . 96) (COLON . 439)) ((default . error) (PRIVATE . (type_declaration . 1)) (END . (type_declaration . 1)) (BEGIN . (type_declaration . 1)) (ENTRY . (type_declaration . 1)) (FOR . (type_declaration . 1)) (FUNCTION . (type_declaration . 1)) (GENERIC . (type_declaration . 1)) (NOT . (type_declaration . 1)) (OVERRIDING . (type_declaration . 1)) (PACKAGE . (type_declaration . 1)) (PRAGMA . (type_declaration . 1)) (PROCEDURE . (type_declaration . 1)) (PROTECTED . (type_declaration . 1)) (SUBTYPE . (type_declaration . 1)) (TASK . (type_declaration . 1)) (TYPE . (type_declaration . 1)) (USE . (type_declaration . 1)) (IDENTIFIER . (type_declaration . 1))) ((default . error) (END . (declaration . 8)) (PRIVATE . (declaration . 8)) (IDENTIFIER . (declaration . 8)) (USE . (declaration . 8)) (TYPE . (declaration . 8)) (TASK . (declaration . 8)) (SUBTYPE . (declaration . 8)) (PROTECTED . (declaration . 8)) (PROCEDURE . (declaration . 8)) (PRAGMA . (declaration . 8)) (PACKAGE . (declaration . 8)) (OVERRIDING . (declaration . 8)) (NOT . (declaration . 8)) (GENERIC . (declaration . 8)) (FUNCTION . (declaration . 8)) (FOR . (declaration . 8)) (ENTRY . (declaration . 8)) (BEGIN . (declaration . 8))) ((default . error) (END . (declaration . 10)) (PRIVATE . (declaration . 10)) (IDENTIFIER . (declaration . 10)) (USE . (declaration . 10)) (TYPE . (declaration . 10)) (TASK . (declaration . 10)) (SUBTYPE . (declaration . 10)) (PROTECTED . (declaration . 10)) (PROCEDURE . (declaration . 10)) (PRAGMA . (declaration . 10)) (PACKAGE . (declaration . 10)) (OVERRIDING . (declaration . 10)) (NOT . (declaration . 10)) (GENERIC . (declaration . 10)) (FUNCTION . (declaration . 10)) (FOR . (declaration . 10)) (ENTRY . (declaration . 10)) (BEGIN . (declaration . 10))) ((default . error) (PRIVATE . (renaming_declaration . 0)) (END . (renaming_declaration . 0)) (BEGIN . (renaming_declaration . 0)) (ENTRY . (renaming_declaration . 0)) (FOR . (renaming_declaration . 0)) (FUNCTION . (renaming_declaration . 0)) (GENERIC . (renaming_declaration . 0)) (NOT . (renaming_declaration . 0)) (OVERRIDING . (renaming_declaration . 0)) (PACKAGE . (renaming_declaration . 0)) (PRAGMA . (renaming_declaration . 0)) (PROCEDURE . (renaming_declaration . 0)) (PROTECTED . (renaming_declaration . 0)) (SUBTYPE . (renaming_declaration . 0)) (TASK . (renaming_declaration . 0)) (TYPE . (renaming_declaration . 0)) (USE . (renaming_declaration . 0)) (IDENTIFIER . (renaming_declaration . 0))) - ((default . error) (ENTRY . 427) (FUNCTION . 40) (PROCEDURE . 41)) + ((default . error) (ENTRY . 435) (FUNCTION . 40) (PROCEDURE . 41)) ((default . error) ($EOI . (proper_body . 1)) (LIMITED . (proper_body . 1)) (SEPARATE . (proper_body . 1)) (WITH . (proper_body . 1)) (END . (proper_body . 1)) (PRIVATE . (proper_body . 1)) (IDENTIFIER . (proper_body . 1)) (USE . (proper_body . 1)) (TYPE . (proper_body . 1)) (TASK . (proper_body . 1)) (SUBTYPE . (proper_body . 1)) (PROTECTED . (proper_body . 1)) (PROCEDURE . (proper_body . 1)) (PRAGMA . (proper_body . 1)) (PACKAGE . (proper_body . 1)) (OVERRIDING . (proper_body . 1)) (NOT . (proper_body . 1)) (GENERIC . (proper_body . 1)) (FUNCTION . (proper_body . 1)) (FOR . (proper_body . 1)) (ENTRY . (proper_body . 1)) (BEGIN . (proper_body . 1))) ((default . error) (END . (body_stub . 1)) (PRIVATE . (body_stub . 1)) (IDENTIFIER . (body_stub . 1)) (USE . (body_stub . 1)) (TYPE . (body_stub . 1)) (TASK . (body_stub . 1)) (SUBTYPE . (body_stub . 1)) (PROTECTED . (body_stub . 1)) (PROCEDURE . (body_stub . 1)) (PRAGMA . (body_stub . 1)) (PACKAGE . (body_stub . 1)) (OVERRIDING . (body_stub . 1)) (NOT . (body_stub . 1)) (GENERIC . (body_stub . 1)) (FUNCTION . (body_stub . 1)) (FOR . (body_stub . 1)) (ENTRY . (body_stub . 1)) (BEGIN . (body_stub . 1))) ((default . error) (END . (declaration . 11)) (PRIVATE . (declaration . 11)) (IDENTIFIER . (declaration . 11)) (USE . (declaration . 11)) (TYPE . (declaration . 11)) (TASK . (declaration . 11)) (SUBTYPE . (declaration . 11)) (PROTECTED . (declaration . 11)) (PROCEDURE . (declaration . 11)) (PRAGMA . (declaration . 11)) (PACKAGE . (declaration . 11)) (OVERRIDING . (declaration . 11)) (NOT . (declaration . 11)) (GENERIC . (declaration . 11)) (FUNCTION . (declaration . 11)) (FOR . (declaration . 11)) (ENTRY . (declaration . 11)) (BEGIN . (declaration . 11))) @@ -2156,298 +2167,302 @@ ((default . error) (END . (full_type_declaration . 1)) (PRIVATE . (full_type_declaration . 1)) (IDENTIFIER . (full_type_declaration . 1)) (USE . (full_type_declaration . 1)) (TYPE . (full_type_declaration . 1)) (TASK . (full_type_declaration . 1)) (SUBTYPE . (full_type_declaration . 1)) (PROTECTED . (full_type_declaration . 1)) (PROCEDURE . (full_type_declaration . 1)) (PRAGMA . (full_type_declaration . 1)) (PACKAGE . (full_type_declaration . 1)) (OVERRIDING . (full_type_declaration . 1)) (NOT . (full_type_declaration . 1)) (GENERIC . (full_type_declaration . 1)) (FUNCTION . (full_type_declaration . 1)) (FOR . (full_type_declaration . 1)) (ENTRY . (full_type_declaration . 1)) (BEGIN . (full_type_declaration . 1))) ((default . error) (END . (declaration . 16)) (PRIVATE . (declaration . 16)) (IDENTIFIER . (declaration . 16)) (USE . (declaration . 16)) (TYPE . (declaration . 16)) (TASK . (declaration . 16)) (SUBTYPE . (declaration . 16)) (PROTECTED . (declaration . 16)) (PROCEDURE . (declaration . 16)) (PRAGMA . (declaration . 16)) (PACKAGE . (declaration . 16)) (OVERRIDING . (declaration . 16)) (NOT . (declaration . 16)) (GENERIC . (declaration . 16)) (FUNCTION . (declaration . 16)) (FOR . (declaration . 16)) (ENTRY . (declaration . 16)) (BEGIN . (declaration . 16))) ((default . error) (END . (declaration . 17)) (PRIVATE . (declaration . 17)) (IDENTIFIER . (declaration . 17)) (USE . (declaration . 17)) (TYPE . (declaration . 17)) (TASK . (declaration . 17)) (SUBTYPE . (declaration . 17)) (PROTECTED . (declaration . 17)) (PROCEDURE . (declaration . 17)) (PRAGMA . (declaration . 17)) (PACKAGE . (declaration . 17)) (OVERRIDING . (declaration . 17)) (NOT . (declaration . 17)) (GENERIC . (declaration . 17)) (FUNCTION . (declaration . 17)) (FOR . (declaration . 17)) (ENTRY . (declaration . 17)) (BEGIN . (declaration . 17))) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (COLON_EQUAL . (simple_expression . 0)) (OF . (simple_expression . 0)) (LOOP . (simple_expression . 0)) (DO . (simple_expression . 0)) (DOT_DOT . (simple_expression . 0)) (SEMICOLON . (simple_expression . 0)) (XOR . (simple_expression . 0)) (OR . (simple_expression . 0)) (AND . (simple_expression . 0)) (SLASH_EQUAL . (simple_expression . 0)) (LESS_EQUAL . (simple_expression . 0)) (LESS . (simple_expression . 0)) (GREATER_EQUAL . (simple_expression . 0)) (GREATER . (simple_expression . 0)) (EQUAL . (simple_expression . 0)) (NOT . (simple_expression . 0)) (IN . (simple_expression . 0)) (IS . (simple_expression . 0)) (EQUAL_GREATER . (simple_expression . 0)) (BAR . (simple_expression . 0)) (WITH . (simple_expression . 0)) (THEN . (simple_expression . 0)) (RANGE . (simple_expression . 0)) (COMMA . (simple_expression . 0)) (RIGHT_PAREN . (simple_expression . 0)) (DIGITS . (simple_expression . 0)) (ELSE . (simple_expression . 0)) (ELSIF . (simple_expression . 0)) (PLUS . 356) (MINUS . 355) (AMPERSAND . 354)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (COLON_EQUAL . (simple_expression . 0)) (OF . (simple_expression . 0)) (LOOP . (simple_expression . 0)) (DO . (simple_expression . 0)) (DOT_DOT . (simple_expression . 0)) (SEMICOLON . (simple_expression . 0)) (XOR . (simple_expression . 0)) (OR . (simple_expression . 0)) (AND . (simple_expression . 0)) (SLASH_EQUAL . (simple_expression . 0)) (LESS_EQUAL . (simple_expression . 0)) (LESS . (simple_expression . 0)) (GREATER_EQUAL . (simple_expression . 0)) (GREATER . (simple_expression . 0)) (EQUAL . (simple_expression . 0)) (NOT . (simple_expression . 0)) (IN . (simple_expression . 0)) (IS . (simple_expression . 0)) (EQUAL_GREATER . (simple_expression . 0)) (BAR . (simple_expression . 0)) (WITH . (simple_expression . 0)) (THEN . (simple_expression . 0)) (RANGE . (simple_expression . 0)) (COMMA . (simple_expression . 0)) (RIGHT_PAREN . (simple_expression . 0)) (DIGITS . (simple_expression . 0)) (ELSE . (simple_expression . 0)) (ELSIF . (simple_expression . 0)) (PLUS . 357) (MINUS . 356) (AMPERSAND . 355)) ((default . error) (ABS . (binary_adding_operator . 2)) (LEFT_PAREN . (binary_adding_operator . 2)) (NEW . (binary_adding_operator . 2)) (NOT . (binary_adding_operator . 2)) (NULL . (binary_adding_operator . 2)) (NUMERIC_LITERAL . (binary_adding_operator . 2)) (IDENTIFIER . (binary_adding_operator . 2)) (STRING_LITERAL . (binary_adding_operator . 2)) (CHARACTER_LITERAL . (binary_adding_operator . 2))) ((default . error) (ABS . (binary_adding_operator . 1)) (LEFT_PAREN . (binary_adding_operator . 1)) (NEW . (binary_adding_operator . 1)) (NOT . (binary_adding_operator . 1)) (NULL . (binary_adding_operator . 1)) (NUMERIC_LITERAL . (binary_adding_operator . 1)) (IDENTIFIER . (binary_adding_operator . 1)) (STRING_LITERAL . (binary_adding_operator . 1)) (CHARACTER_LITERAL . (binary_adding_operator . 1))) ((default . error) (ABS . (binary_adding_operator . 0)) (LEFT_PAREN . (binary_adding_operator . 0)) (NEW . (binary_adding_operator . 0)) (NOT . (binary_adding_operator . 0)) (NULL . (binary_adding_operator . 0)) (NUMERIC_LITERAL . (binary_adding_operator . 0)) (IDENTIFIER . (binary_adding_operator . 0)) (STRING_LITERAL . (binary_adding_operator . 0)) (CHARACTER_LITERAL . (binary_adding_operator . 0))) - ((default . error) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (ABS . (multiplying_operator . 2)) (LEFT_PAREN . (multiplying_operator . 2)) (NEW . (multiplying_operator . 2)) (NOT . (multiplying_operator . 2)) (NULL . (multiplying_operator . 2)) (NUMERIC_LITERAL . (multiplying_operator . 2)) (IDENTIFIER . (multiplying_operator . 2)) (STRING_LITERAL . (multiplying_operator . 2)) (CHARACTER_LITERAL . (multiplying_operator . 2))) ((default . error) (ABS . (multiplying_operator . 3)) (LEFT_PAREN . (multiplying_operator . 3)) (NEW . (multiplying_operator . 3)) (NOT . (multiplying_operator . 3)) (NULL . (multiplying_operator . 3)) (NUMERIC_LITERAL . (multiplying_operator . 3)) (IDENTIFIER . (multiplying_operator . 3)) (STRING_LITERAL . (multiplying_operator . 3)) (CHARACTER_LITERAL . (multiplying_operator . 3))) ((default . error) (ABS . (multiplying_operator . 1)) (LEFT_PAREN . (multiplying_operator . 1)) (NEW . (multiplying_operator . 1)) (NOT . (multiplying_operator . 1)) (NULL . (multiplying_operator . 1)) (NUMERIC_LITERAL . (multiplying_operator . 1)) (IDENTIFIER . (multiplying_operator . 1)) (STRING_LITERAL . (multiplying_operator . 1)) (CHARACTER_LITERAL . (multiplying_operator . 1))) ((default . error) (ABS . (multiplying_operator . 0)) (LEFT_PAREN . (multiplying_operator . 0)) (NEW . (multiplying_operator . 0)) (NOT . (multiplying_operator . 0)) (NULL . (multiplying_operator . 0)) (NUMERIC_LITERAL . (multiplying_operator . 0)) (IDENTIFIER . (multiplying_operator . 0)) (STRING_LITERAL . (multiplying_operator . 0)) (CHARACTER_LITERAL . (multiplying_operator . 0))) - ((default . error) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (THEN . 421) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ELSE . 419) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ELSE . 416)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (THEN . 414)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 411)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 153) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (IDENTIFIER . 408)) - ((default . error) (LOOP . (raise_expression . 0)) (DO . (raise_expression . 0)) (XOR . (raise_expression . 0)) (OR . (raise_expression . 0)) (AND . (raise_expression . 0)) (IS . (raise_expression . 0)) (SEMICOLON . (raise_expression . 0)) (THEN . (raise_expression . 0)) (RANGE . (raise_expression . 0)) (RIGHT_PAREN . (raise_expression . 0)) (COMMA . (raise_expression . 0)) (DIGITS . (raise_expression . 0)) (EQUAL_GREATER . (raise_expression . 0)) (ELSE . (raise_expression . 0)) (ELSIF . (raise_expression . 0)) (DOT . 90) (TICK . 91) (WITH . ( 407 (raise_expression . 0))) (LEFT_PAREN . 107)) + ((default . error) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (THEN . 429) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 427) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 424)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (THEN . 422)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 419)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 156) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 416)) + ((default . error) (LOOP . (raise_expression . 0)) (DO . (raise_expression . 0)) (XOR . (raise_expression . 0)) (OR . (raise_expression . 0)) (AND . (raise_expression . 0)) (IS . (raise_expression . 0)) (SEMICOLON . (raise_expression . 0)) (THEN . (raise_expression . 0)) (RANGE . (raise_expression . 0)) (RIGHT_PAREN . (raise_expression . 0)) (COMMA . (raise_expression . 0)) (DIGITS . (raise_expression . 0)) (EQUAL_GREATER . (raise_expression . 0)) (ELSE . (raise_expression . 0)) (ELSIF . (raise_expression . 0)) (DOT . 90) (TICK . 91) (WITH . ( 415 (raise_expression . 0))) (LEFT_PAREN . 107)) ((default . error) (DOT . 90) (TICK . 91) (COLON_EQUAL . (primary . 4)) (OF . (primary . 4)) (LOOP . (primary . 4)) (DO . (primary . 4)) (STAR_STAR . (primary . 4)) (STAR . (primary . 4)) (SLASH . (primary . 4)) (REM . (primary . 4)) (MOD . (primary . 4)) (DOT_DOT . (primary . 4)) (AMPERSAND . (primary . 4)) (MINUS . (primary . 4)) (PLUS . (primary . 4)) (SEMICOLON . (primary . 4)) (XOR . (primary . 4)) (OR . (primary . 4)) (AND . (primary . 4)) (SLASH_EQUAL . (primary . 4)) (LESS_EQUAL . (primary . 4)) (LESS . (primary . 4)) (GREATER_EQUAL . (primary . 4)) (GREATER . (primary . 4)) (EQUAL . (primary . 4)) (NOT . (primary . 4)) (IN . (primary . 4)) (IS . (primary . 4)) (EQUAL_GREATER . (primary . 4)) (BAR . (primary . 4)) (WITH . (primary . 4)) (THEN . (primary . 4)) (RANGE . (primary . 4)) (COMMA . (primary . 4)) (RIGHT_PAREN . (primary . 4)) (DIGITS . (primary . 4)) (ELSE . (primary . 4)) (ELSIF . (primary . 4)) (LEFT_PAREN . 107)) - ((default . error) (ALL . 404) (SOME . 405)) - ((default . error) (RIGHT_PAREN . 403)) - ((default . error) (RIGHT_PAREN . 402)) - ((default . error) (RIGHT_PAREN . 401)) + ((default . error) (DOT_DOT . (primary . 1)) (RIGHT_PAREN . (primary . 1)) (COMMA . (primary . 1)) (BAR . (primary . 1)) (EQUAL_GREATER . (primary . 1)) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (IN . (primary . 1)) (NOT . (primary . 1)) (EQUAL . (primary . 1)) (GREATER . (primary . 1)) (GREATER_EQUAL . (primary . 1)) (LESS . (primary . 1)) (LESS_EQUAL . (primary . 1)) (SLASH_EQUAL . (primary . 1)) (WITH . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (STAR_STAR . (primary . 1)) (AND . (primary . 1)) (OR . (primary . 1)) (XOR . (primary . 1)) (RECORD . 414)) + ((default . error) (COMMA . 273) (RIGHT_PAREN . 413)) + ((default . error) (RIGHT_PAREN . 412)) + ((default . error) (RIGHT_PAREN . (expression_opt . 1)) (COMMA . (expression_opt . 1)) (WITH . 411)) + ((default . error) (THEN . 410)) + ((default . error) (IDENTIFIER . (quantifier . 0))) + ((default . error) (IDENTIFIER . (quantifier . 1))) + ((default . error) (IDENTIFIER . 408)) + ((default . error) (IS . 407)) ((default . error) (COLON_EQUAL . (factor . 2)) (OF . (factor . 2)) (LOOP . (factor . 2)) (DO . (factor . 2)) (PLUS . (factor . 2)) (MINUS . (factor . 2)) (AMPERSAND . (factor . 2)) (DOT_DOT . (factor . 2)) (MOD . (factor . 2)) (REM . (factor . 2)) (SLASH . (factor . 2)) (STAR . (factor . 2)) (SEMICOLON . (factor . 2)) (XOR . (factor . 2)) (OR . (factor . 2)) (AND . (factor . 2)) (IN . (factor . 2)) (NOT . (factor . 2)) (EQUAL . (factor . 2)) (GREATER . (factor . 2)) (GREATER_EQUAL . (factor . 2)) (LESS . (factor . 2)) (LESS_EQUAL . (factor . 2)) (SLASH_EQUAL . (factor . 2)) (IS . (factor . 2)) (EQUAL_GREATER . (factor . 2)) (BAR . (factor . 2)) (WITH . (factor . 2)) (THEN . (factor . 2)) (RANGE . (factor . 2)) (RIGHT_PAREN . (factor . 2)) (COMMA . (factor . 2)) (DIGITS . (factor . 2)) (ELSE . (factor . 2)) (ELSIF . (factor . 2))) ((default . error) (BODY . 67)) - ((default . error) (BODY . 400)) - ((default . error) (BODY . 399)) + ((default . error) (BODY . 406)) + ((default . error) (BODY . 405)) ((default . error) (FUNCTION . 1) (PROCEDURE . 9)) ((default . error) ($EOI . (subunit . 0)) (FUNCTION . (subunit . 0)) (GENERIC . (subunit . 0)) (LIMITED . (subunit . 0)) (NOT . (subunit . 0)) (OVERRIDING . (subunit . 0)) (PACKAGE . (subunit . 0)) (PRAGMA . (subunit . 0)) (PRIVATE . (subunit . 0)) (PROCEDURE . (subunit . 0)) (SEPARATE . (subunit . 0)) (USE . (subunit . 0)) (WITH . (subunit . 0))) ((default . error) (SEPARATE . (use_clause . 1)) (LIMITED . (use_clause . 1)) ($EOI . (use_clause . 1)) (WITH . (use_clause . 1)) (PRIVATE . (use_clause . 1)) (END . (use_clause . 1)) (BEGIN . (use_clause . 1)) (ENTRY . (use_clause . 1)) (FOR . (use_clause . 1)) (FUNCTION . (use_clause . 1)) (GENERIC . (use_clause . 1)) (NOT . (use_clause . 1)) (OVERRIDING . (use_clause . 1)) (PACKAGE . (use_clause . 1)) (PRAGMA . (use_clause . 1)) (PROCEDURE . (use_clause . 1)) (PROTECTED . (use_clause . 1)) (SUBTYPE . (use_clause . 1)) (TASK . (use_clause . 1)) (TYPE . (use_clause . 1)) (USE . (use_clause . 1)) (IDENTIFIER . (use_clause . 1))) - ((default . error) (SEMICOLON . 397)) - ((default . error) (BEGIN . 396)) + ((default . error) (SEMICOLON . 403)) + ((default . error) (BEGIN . 402)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (BEGIN . (subprogram_renaming_declaration . 0)) (ENTRY . (subprogram_renaming_declaration . 0)) (FOR . (subprogram_renaming_declaration . 0)) (PROTECTED . (subprogram_renaming_declaration . 0)) (SUBTYPE . (subprogram_renaming_declaration . 0)) (TASK . (subprogram_renaming_declaration . 0)) (TYPE . (subprogram_renaming_declaration . 0)) (IDENTIFIER . (subprogram_renaming_declaration . 0)) (END . (subprogram_renaming_declaration . 0)) (WITH . (subprogram_renaming_declaration . 0)) (USE . (subprogram_renaming_declaration . 0)) (SEPARATE . (subprogram_renaming_declaration . 0)) (PROCEDURE . (subprogram_renaming_declaration . 0)) (PRIVATE . (subprogram_renaming_declaration . 0)) (PRAGMA . (subprogram_renaming_declaration . 0)) (PACKAGE . (subprogram_renaming_declaration . 0)) (OVERRIDING . (subprogram_renaming_declaration . 0)) (NOT . (subprogram_renaming_declaration . 0)) (LIMITED . (subprogram_renaming_declaration . 0)) (GENERIC . (subprogram_renaming_declaration . 0)) (FUNCTION . (subprogram_renaming_declaration . 0)) ($EOI . (subprogram_renaming_declaration . 0))) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (IDENTIFIER . 623)) - ((default . error) (IDENTIFIER . 622)) - ((default . error) (OF . (primary . 7)) (COLON_EQUAL . (primary . 7)) (DO . (primary . 7)) (LOOP . (primary . 7)) (ELSIF . (primary . 7)) (ELSE . (primary . 7)) (DIGITS . (primary . 7)) (RIGHT_PAREN . (primary . 7)) (COMMA . (primary . 7)) (RANGE . (primary . 7)) (THEN . (primary . 7)) (WITH . (primary . 7)) (BAR . (primary . 7)) (EQUAL_GREATER . (primary . 7)) (IS . (primary . 7)) (IN . (primary . 7)) (NOT . (primary . 7)) (EQUAL . (primary . 7)) (GREATER . (primary . 7)) (GREATER_EQUAL . (primary . 7)) (LESS . (primary . 7)) (LESS_EQUAL . (primary . 7)) (SLASH_EQUAL . (primary . 7)) (AND . (primary . 7)) (OR . (primary . 7)) (XOR . (primary . 7)) (SEMICOLON . (primary . 7)) (PLUS . (primary . 7)) (MINUS . (primary . 7)) (AMPERSAND . (primary . 7)) (DOT_DOT . (primary . 7)) (MOD . (primary . 7)) (REM . (primary . 7)) (SLASH . (primary . 7)) (STAR . (primary . 7)) (STAR_STAR . (primary . 7))) - ((default . error) (OF . ((aggregate . 3) (primary . 5))) (COLON_EQUAL . ((aggregate . 3) (primary . 5))) (DO . ((aggregate . 3) (primary . 5))) (LOOP . ((aggregate . 3) (primary . 5))) (ELSIF . ((aggregate . 3) (primary . 5))) (ELSE . ((aggregate . 3) (primary . 5))) (DIGITS . ((aggregate . 3) (primary . 5))) (COMMA . ((aggregate . 3) (primary . 5))) (RIGHT_PAREN . ((aggregate . 3) (primary . 5))) (RANGE . ((aggregate . 3) (primary . 5))) (THEN . ((aggregate . 3) (primary . 5))) (WITH . ((aggregate . 3) (primary . 5))) (BAR . ((aggregate . 3) (primary . 5))) (EQUAL_GREATER . ((aggregate . 3) (primary . 5))) (IS . ((aggregate . 3) (primary . 5))) (SLASH_EQUAL . ((aggregate . 3) (primary . 5))) (LESS_EQUAL . ((aggregate . 3) (primary . 5))) (LESS . ((aggregate . 3) (primary . 5))) (GREATER_EQUAL . ((aggregate . 3) (primary . 5))) (GREATER . ((aggregate . 3) (primary . 5))) (EQUAL . ((aggregate . 3) (primary . 5))) (NOT . ((aggregate . 3) (primary . 5))) (IN . ((aggregate . 3) (primary . 5))) (AND . ((aggregate . 3) (primary . 5))) (OR . ((aggregate . 3) (primary . 5))) (XOR . ((aggregate . 3) (primary . 5))) (SEMICOLON . ((aggregate . 3) (primary . 5))) (STAR_STAR . ((aggregate . 3) (primary . 5))) (STAR . ((aggregate . 3) (primary . 5))) (SLASH . ((aggregate . 3) (primary . 5))) (REM . ((aggregate . 3) (primary . 5))) (MOD . ((aggregate . 3) (primary . 5))) (DOT_DOT . ((aggregate . 3) (primary . 5))) (AMPERSAND . ((aggregate . 3) (primary . 5))) (MINUS . ((aggregate . 3) (primary . 5))) (PLUS . ((aggregate . 3) (primary . 5)))) - ((default . error) (OF . ((aggregate . 2) (primary . 6))) (COLON_EQUAL . ((aggregate . 2) (primary . 6))) (DO . ((aggregate . 2) (primary . 6))) (LOOP . ((aggregate . 2) (primary . 6))) (ELSIF . ((aggregate . 2) (primary . 6))) (ELSE . ((aggregate . 2) (primary . 6))) (DIGITS . ((aggregate . 2) (primary . 6))) (COMMA . ((aggregate . 2) (primary . 6))) (RIGHT_PAREN . ((aggregate . 2) (primary . 6))) (RANGE . ((aggregate . 2) (primary . 6))) (THEN . ((aggregate . 2) (primary . 6))) (WITH . ((aggregate . 2) (primary . 6))) (BAR . ((aggregate . 2) (primary . 6))) (EQUAL_GREATER . ((aggregate . 2) (primary . 6))) (IS . ((aggregate . 2) (primary . 6))) (SLASH_EQUAL . ((aggregate . 2) (primary . 6))) (LESS_EQUAL . ((aggregate . 2) (primary . 6))) (LESS . ((aggregate . 2) (primary . 6))) (GREATER_EQUAL . ((aggregate . 2) (primary . 6))) (GREATER . ((aggregate . 2) (primary . 6))) (EQUAL . ((aggregate . 2) (primary . 6))) (NOT . ((aggregate . 2) (primary . 6))) (IN . ((aggregate . 2) (primary . 6))) (AND . ((aggregate . 2) (primary . 6))) (OR . ((aggregate . 2) (primary . 6))) (XOR . ((aggregate . 2) (primary . 6))) (SEMICOLON . ((aggregate . 2) (primary . 6))) (STAR_STAR . ((aggregate . 2) (primary . 6))) (STAR . ((aggregate . 2) (primary . 6))) (SLASH . ((aggregate . 2) (primary . 6))) (REM . ((aggregate . 2) (primary . 6))) (MOD . ((aggregate . 2) (primary . 6))) (DOT_DOT . ((aggregate . 2) (primary . 6))) (AMPERSAND . ((aggregate . 2) (primary . 6))) (MINUS . ((aggregate . 2) (primary . 6))) (PLUS . ((aggregate . 2) (primary . 6)))) - ((default . error) (IDENTIFIER . (quantifier . 0))) - ((default . error) (IDENTIFIER . (quantifier . 1))) - ((default . error) (IDENTIFIER . 620)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (EQUAL_GREATER . 618)) + ((default . error) (IDENTIFIER . 628)) + ((default . error) (IDENTIFIER . 627)) + ((default . error) (WHEN . 624)) + ((default . error) (OF . 622) (COLON . 623) (IN . 621)) + ((default . error) (EQUAL_GREATER . 620)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 617) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (USE . (aggregate . 2)) (COLON_EQUAL . (aggregate . 2)) (CHARACTER_LITERAL . (aggregate . 2)) (STRING_LITERAL . (aggregate . 2)) (IDENTIFIER . (aggregate . 2)) (LESS_LESS . (aggregate . 2)) (WHILE . (aggregate . 2)) (SELECT . (aggregate . 2)) (REQUEUE . (aggregate . 2)) (RAISE . (aggregate . 2)) (PRAGMA . (aggregate . 2)) (NULL . (aggregate . 2)) (IF . (aggregate . 2)) (GOTO . (aggregate . 2)) (FOR . (aggregate . 2)) (EXIT . (aggregate . 2)) (DELAY . (aggregate . 2)) (DECLARE . (aggregate . 2)) (CASE . (aggregate . 2)) (BEGIN . (aggregate . 2)) (ABORT . (aggregate . 2)) (ACCEPT . (aggregate . 2)) (OF . (aggregate . 2)) (DO . (aggregate . 2)) (LOOP . (aggregate . 2)) (LEFT_PAREN . (aggregate . 2)) (DOT . (aggregate . 2)) (TICK . (aggregate . 2)) (RENAMES . (aggregate . 2)) (RETURN . (aggregate . 2)) (ELSIF . (aggregate . 2)) (ELSE . (aggregate . 2)) (DIGITS . (aggregate . 2)) (COMMA . (aggregate . 2)) (RIGHT_PAREN . (aggregate . 2)) (RANGE . (aggregate . 2)) (THEN . (aggregate . 2)) (WITH . (aggregate . 2)) (BAR . (aggregate . 2)) (EQUAL_GREATER . (aggregate . 2)) (IS . (aggregate . 2)) (SLASH_EQUAL . (aggregate . 2)) (LESS_EQUAL . (aggregate . 2)) (LESS . (aggregate . 2)) (GREATER_EQUAL . (aggregate . 2)) (GREATER . (aggregate . 2)) (EQUAL . (aggregate . 2)) (NOT . (aggregate . 2)) (IN . (aggregate . 2)) (AND . (aggregate . 2)) (OR . (aggregate . 2)) (XOR . (aggregate . 2)) (SEMICOLON . (aggregate . 2)) (STAR_STAR . (aggregate . 2)) (STAR . (aggregate . 2)) (SLASH . (aggregate . 2)) (REM . (aggregate . 2)) (MOD . (aggregate . 2)) (DOT_DOT . (aggregate . 2)) (AMPERSAND . (aggregate . 2)) (MINUS . (aggregate . 2)) (PLUS . (aggregate . 2))) + ((default . error) (USE . (aggregate . 0)) (COLON_EQUAL . (aggregate . 0)) (CHARACTER_LITERAL . (aggregate . 0)) (STRING_LITERAL . (aggregate . 0)) (IDENTIFIER . (aggregate . 0)) (LESS_LESS . (aggregate . 0)) (WHILE . (aggregate . 0)) (SELECT . (aggregate . 0)) (REQUEUE . (aggregate . 0)) (RAISE . (aggregate . 0)) (PRAGMA . (aggregate . 0)) (NULL . (aggregate . 0)) (IF . (aggregate . 0)) (GOTO . (aggregate . 0)) (FOR . (aggregate . 0)) (EXIT . (aggregate . 0)) (DELAY . (aggregate . 0)) (DECLARE . (aggregate . 0)) (CASE . (aggregate . 0)) (BEGIN . (aggregate . 0)) (ABORT . (aggregate . 0)) (ACCEPT . (aggregate . 0)) (OF . (aggregate . 0)) (DO . (aggregate . 0)) (LOOP . (aggregate . 0)) (LEFT_PAREN . (aggregate . 0)) (DOT . (aggregate . 0)) (TICK . (aggregate . 0)) (RENAMES . (aggregate . 0)) (RETURN . (aggregate . 0)) (ELSIF . (aggregate . 0)) (ELSE . (aggregate . 0)) (DIGITS . (aggregate . 0)) (COMMA . (aggregate . 0)) (RIGHT_PAREN . (aggregate . 0)) (RANGE . (aggregate . 0)) (THEN . (aggregate . 0)) (WITH . (aggregate . 0)) (BAR . (aggregate . 0)) (EQUAL_GREATER . (aggregate . 0)) (IS . (aggregate . 0)) (SLASH_EQUAL . (aggregate . 0)) (LESS_EQUAL . (aggregate . 0)) (LESS . (aggregate . 0)) (GREATER_EQUAL . (aggregate . 0)) (GREATER . (aggregate . 0)) (EQUAL . (aggregate . 0)) (NOT . (aggregate . 0)) (IN . (aggregate . 0)) (AND . (aggregate . 0)) (OR . (aggregate . 0)) (XOR . (aggregate . 0)) (SEMICOLON . (aggregate . 0)) (STAR_STAR . (aggregate . 0)) (STAR . (aggregate . 0)) (SLASH . (aggregate . 0)) (REM . (aggregate . 0)) (MOD . (aggregate . 0)) (DOT_DOT . (aggregate . 0)) (AMPERSAND . (aggregate . 0)) (MINUS . (aggregate . 0)) (PLUS . (aggregate . 0))) + ((default . error) (RIGHT_PAREN . 616)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (EQUAL_GREATER . 614)) ((default . error) (COMMA . (pragma_argument_association . 0)) (RIGHT_PAREN . (pragma_argument_association . 0))) ((default . error) (RIGHT_PAREN . (pragma_argument_association_list . 1)) (COMMA . (pragma_argument_association_list . 1))) ((default . error) (WHEN . (pragma . 0)) (THEN . (pragma . 0)) (OR . (pragma . 0)) (ELSIF . (pragma . 0)) (ELSE . (pragma . 0)) (CHARACTER_LITERAL . (pragma . 0)) (STRING_LITERAL . (pragma . 0)) (LESS_LESS . (pragma . 0)) (WHILE . (pragma . 0)) (SELECT . (pragma . 0)) (RETURN . (pragma . 0)) (REQUEUE . (pragma . 0)) (RAISE . (pragma . 0)) (NULL . (pragma . 0)) (LOOP . (pragma . 0)) (IF . (pragma . 0)) (GOTO . (pragma . 0)) (EXIT . (pragma . 0)) (DELAY . (pragma . 0)) (DECLARE . (pragma . 0)) (CASE . (pragma . 0)) (ABORT . (pragma . 0)) (ACCEPT . (pragma . 0)) (EXCEPTION . (pragma . 0)) (IDENTIFIER . (pragma . 0)) (USE . (pragma . 0)) (TYPE . (pragma . 0)) (TASK . (pragma . 0)) (SUBTYPE . (pragma . 0)) (PROTECTED . (pragma . 0)) (PROCEDURE . (pragma . 0)) (PRAGMA . (pragma . 0)) (PACKAGE . (pragma . 0)) (OVERRIDING . (pragma . 0)) (NOT . (pragma . 0)) (GENERIC . (pragma . 0)) (FUNCTION . (pragma . 0)) (FOR . (pragma . 0)) (ENTRY . (pragma . 0)) (BEGIN . (pragma . 0)) (END . (pragma . 0)) (PRIVATE . (pragma . 0)) (WITH . (pragma . 0)) ($EOI . (pragma . 0)) (LIMITED . (pragma . 0)) (SEPARATE . (pragma . 0))) ((default . error) (OF . (factor . 0)) (COLON_EQUAL . (factor . 0)) (DO . (factor . 0)) (LOOP . (factor . 0)) (ELSIF . (factor . 0)) (ELSE . (factor . 0)) (DIGITS . (factor . 0)) (COMMA . (factor . 0)) (RIGHT_PAREN . (factor . 0)) (RANGE . (factor . 0)) (THEN . (factor . 0)) (WITH . (factor . 0)) (BAR . (factor . 0)) (EQUAL_GREATER . (factor . 0)) (IS . (factor . 0)) (SLASH_EQUAL . (factor . 0)) (LESS_EQUAL . (factor . 0)) (LESS . (factor . 0)) (GREATER_EQUAL . (factor . 0)) (GREATER . (factor . 0)) (EQUAL . (factor . 0)) (NOT . (factor . 0)) (IN . (factor . 0)) (AND . (factor . 0)) (OR . (factor . 0)) (XOR . (factor . 0)) (SEMICOLON . (factor . 0)) (STAR . (factor . 0)) (SLASH . (factor . 0)) (REM . (factor . 0)) (MOD . (factor . 0)) (DOT_DOT . (factor . 0)) (AMPERSAND . (factor . 0)) (MINUS . (factor . 0)) (PLUS . (factor . 0))) ((default . error) (DO . (relation_and_list . 1)) (LOOP . (relation_and_list . 1)) (XOR . (relation_and_list . 1)) (OR . (relation_and_list . 1)) (ELSIF . (relation_and_list . 1)) (ELSE . (relation_and_list . 1)) (EQUAL_GREATER . (relation_and_list . 1)) (DIGITS . (relation_and_list . 1)) (RIGHT_PAREN . (relation_and_list . 1)) (COMMA . (relation_and_list . 1)) (RANGE . (relation_and_list . 1)) (THEN . (relation_and_list . 1)) (SEMICOLON . (relation_and_list . 1)) (WITH . (relation_and_list . 1)) (IS . (relation_and_list . 1)) (AND . (relation_and_list . 1))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (DO . (relation_or_list . 1)) (LOOP . (relation_or_list . 1)) (XOR . (relation_or_list . 1)) (AND . (relation_or_list . 1)) (ELSIF . (relation_or_list . 1)) (ELSE . (relation_or_list . 1)) (EQUAL_GREATER . (relation_or_list . 1)) (DIGITS . (relation_or_list . 1)) (RIGHT_PAREN . (relation_or_list . 1)) (COMMA . (relation_or_list . 1)) (RANGE . (relation_or_list . 1)) (THEN . (relation_or_list . 1)) (SEMICOLON . (relation_or_list . 1)) (WITH . (relation_or_list . 1)) (IS . (relation_or_list . 1)) (OR . (relation_or_list . 1))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (DO . (relation_xor_list . 1)) (LOOP . (relation_xor_list . 1)) (OR . (relation_xor_list . 1)) (AND . (relation_xor_list . 1)) (ELSIF . (relation_xor_list . 1)) (ELSE . (relation_xor_list . 1)) (EQUAL_GREATER . (relation_xor_list . 1)) (DIGITS . (relation_xor_list . 1)) (RIGHT_PAREN . (relation_xor_list . 1)) (COMMA . (relation_xor_list . 1)) (RANGE . (relation_xor_list . 1)) (THEN . (relation_xor_list . 1)) (SEMICOLON . (relation_xor_list . 1)) (WITH . (relation_xor_list . 1)) (IS . (relation_xor_list . 1)) (XOR . (relation_xor_list . 1))) ((default . error) (DO . (relation_xor_list . 0)) (LOOP . (relation_xor_list . 0)) (OR . (relation_xor_list . 0)) (AND . (relation_xor_list . 0)) (ELSIF . (relation_xor_list . 0)) (ELSE . (relation_xor_list . 0)) (EQUAL_GREATER . (relation_xor_list . 0)) (DIGITS . (relation_xor_list . 0)) (RIGHT_PAREN . (relation_xor_list . 0)) (COMMA . (relation_xor_list . 0)) (RANGE . (relation_xor_list . 0)) (THEN . (relation_xor_list . 0)) (SEMICOLON . (relation_xor_list . 0)) (WITH . (relation_xor_list . 0)) (IS . (relation_xor_list . 0)) (XOR . (relation_xor_list . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (DO . (relation_or_list . 0)) (LOOP . (relation_or_list . 0)) (XOR . (relation_or_list . 0)) (AND . (relation_or_list . 0)) (ELSIF . (relation_or_list . 0)) (ELSE . (relation_or_list . 0)) (EQUAL_GREATER . (relation_or_list . 0)) (DIGITS . (relation_or_list . 0)) (RIGHT_PAREN . (relation_or_list . 0)) (COMMA . (relation_or_list . 0)) (RANGE . (relation_or_list . 0)) (THEN . (relation_or_list . 0)) (SEMICOLON . (relation_or_list . 0)) (WITH . (relation_or_list . 0)) (IS . (relation_or_list . 0)) (OR . (relation_or_list . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (DO . (relation_and_list . 0)) (LOOP . (relation_and_list . 0)) (XOR . (relation_and_list . 0)) (OR . (relation_and_list . 0)) (ELSIF . (relation_and_list . 0)) (ELSE . (relation_and_list . 0)) (EQUAL_GREATER . (relation_and_list . 0)) (DIGITS . (relation_and_list . 0)) (RIGHT_PAREN . (relation_and_list . 0)) (COMMA . (relation_and_list . 0)) (RANGE . (relation_and_list . 0)) (THEN . (relation_and_list . 0)) (SEMICOLON . (relation_and_list . 0)) (WITH . (relation_and_list . 0)) (IS . (relation_and_list . 0)) (AND . (relation_and_list . 0))) ((default . error) (DO . (relation . 1)) (LOOP . (relation . 1)) (COMMA . (relation . 1)) (ELSIF . (relation . 1)) (ELSE . (relation . 1)) (EQUAL_GREATER . (relation . 1)) (RIGHT_PAREN . (relation . 1)) (DIGITS . (relation . 1)) (RANGE . (relation . 1)) (THEN . (relation . 1)) (SEMICOLON . (relation . 1)) (WITH . (relation . 1)) (IS . (relation . 1)) (AND . (relation . 1)) (OR . (relation . 1)) (XOR . (relation . 1))) ((default . error) (OF . (term . 1)) (COLON_EQUAL . (term . 1)) (DO . (term . 1)) (LOOP . (term . 1)) (ELSIF . (term . 1)) (ELSE . (term . 1)) (DIGITS . (term . 1)) (RIGHT_PAREN . (term . 1)) (COMMA . (term . 1)) (RANGE . (term . 1)) (THEN . (term . 1)) (WITH . (term . 1)) (BAR . (term . 1)) (EQUAL_GREATER . (term . 1)) (IS . (term . 1)) (IN . (term . 1)) (NOT . (term . 1)) (EQUAL . (term . 1)) (GREATER . (term . 1)) (GREATER_EQUAL . (term . 1)) (LESS . (term . 1)) (LESS_EQUAL . (term . 1)) (SLASH_EQUAL . (term . 1)) (AND . (term . 1)) (OR . (term . 1)) (XOR . (term . 1)) (SEMICOLON . (term . 1)) (PLUS . (term . 1)) (MINUS . (term . 1)) (AMPERSAND . (term . 1)) (DOT_DOT . (term . 1)) (MOD . (term . 1)) (REM . (term . 1)) (SLASH . (term . 1)) (STAR . (term . 1))) - ((default . error) (OF . (term_list . 1)) (COLON_EQUAL . (term_list . 1)) (DO . (term_list . 1)) (LOOP . (term_list . 1)) (ELSIF . (term_list . 1)) (ELSE . (term_list . 1)) (DIGITS . (term_list . 1)) (COMMA . (term_list . 1)) (RIGHT_PAREN . (term_list . 1)) (RANGE . (term_list . 1)) (THEN . (term_list . 1)) (WITH . (term_list . 1)) (BAR . (term_list . 1)) (EQUAL_GREATER . (term_list . 1)) (IS . (term_list . 1)) (SLASH_EQUAL . (term_list . 1)) (LESS_EQUAL . (term_list . 1)) (LESS . (term_list . 1)) (GREATER_EQUAL . (term_list . 1)) (GREATER . (term_list . 1)) (EQUAL . (term_list . 1)) (NOT . (term_list . 1)) (IN . (term_list . 1)) (AND . (term_list . 1)) (OR . (term_list . 1)) (XOR . (term_list . 1)) (SEMICOLON . (term_list . 1)) (DOT_DOT . (term_list . 1)) (AMPERSAND . (term_list . 1)) (MINUS . (term_list . 1)) (PLUS . (term_list . 1)) (STAR . 361) (SLASH . 360) (MOD . 358) (REM . 359)) - ((default . error) (BEGIN . 612) (END . 613)) - ((default . error) (IDENTIFIER . 611)) - ((default . error) (RENAMES . (subprogram_specification . 1)) (IS . ( 610 (subprogram_specification . 1))) (WITH . (subprogram_specification . 1)) (SEMICOLON . (subprogram_specification . 1))) - ((default . error) (RENAMES . (subprogram_specification . 0)) (IS . ( 609 (subprogram_specification . 0))) (WITH . (subprogram_specification . 0)) (SEMICOLON . (subprogram_specification . 0))) - ((default . error) (RENAMES . 128) (SEMICOLON . (aspect_specification_opt . 0)) (IS . ( 608 (aspect_specification_opt . 0))) (WITH . 109)) - ((default . error) (EXCEPTION . 606) (CONSTANT . ( 605 (aliased_opt . 0))) (ARRAY . (aliased_opt . 0)) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ALIASED . 530)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) + ((default . error) (OF . (term_list . 1)) (COLON_EQUAL . (term_list . 1)) (DO . (term_list . 1)) (LOOP . (term_list . 1)) (ELSIF . (term_list . 1)) (ELSE . (term_list . 1)) (DIGITS . (term_list . 1)) (COMMA . (term_list . 1)) (RIGHT_PAREN . (term_list . 1)) (RANGE . (term_list . 1)) (THEN . (term_list . 1)) (WITH . (term_list . 1)) (BAR . (term_list . 1)) (EQUAL_GREATER . (term_list . 1)) (IS . (term_list . 1)) (SLASH_EQUAL . (term_list . 1)) (LESS_EQUAL . (term_list . 1)) (LESS . (term_list . 1)) (GREATER_EQUAL . (term_list . 1)) (GREATER . (term_list . 1)) (EQUAL . (term_list . 1)) (NOT . (term_list . 1)) (IN . (term_list . 1)) (AND . (term_list . 1)) (OR . (term_list . 1)) (XOR . (term_list . 1)) (SEMICOLON . (term_list . 1)) (DOT_DOT . (term_list . 1)) (AMPERSAND . (term_list . 1)) (MINUS . (term_list . 1)) (PLUS . (term_list . 1)) (STAR . 362) (SLASH . 361) (MOD . 359) (REM . 360)) + ((default . error) (BEGIN . 608) (END . 609)) + ((default . error) (IDENTIFIER . 607)) + ((default . error) (RENAMES . (subprogram_specification . 1)) (IS . ( 606 (subprogram_specification . 1))) (WITH . (subprogram_specification . 1)) (SEMICOLON . (subprogram_specification . 1))) + ((default . error) (RENAMES . (subprogram_specification . 0)) (IS . ( 605 (subprogram_specification . 0))) (WITH . (subprogram_specification . 0)) (SEMICOLON . (subprogram_specification . 0))) + ((default . error) (RENAMES . 128) (SEMICOLON . (aspect_specification_opt . 0)) (IS . ( 604 (aspect_specification_opt . 0))) (WITH . 109)) + ((default . error) (EXCEPTION . 602) (CONSTANT . ( 601 (aliased_opt . 0))) (ARRAY . (aliased_opt . 0)) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ALIASED . 531)) + ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) ((default . error) (IDENTIFIER . (declarations . 1)) (USE . (declarations . 1)) (TYPE . (declarations . 1)) (TASK . (declarations . 1)) (SUBTYPE . (declarations . 1)) (PROTECTED . (declarations . 1)) (PROCEDURE . (declarations . 1)) (PRAGMA . (declarations . 1)) (PACKAGE . (declarations . 1)) (OVERRIDING . (declarations . 1)) (NOT . (declarations . 1)) (GENERIC . (declarations . 1)) (FUNCTION . (declarations . 1)) (FOR . (declarations . 1)) (ENTRY . (declarations . 1)) (BEGIN . (declarations . 1)) (END . (declarations . 1)) (PRIVATE . (declarations . 1))) - ((default . error) (EXCEPTION . 600) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 225)) - ((default . error) (IS . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (LEFT_PAREN . 203)) - ((default . error) (IDENTIFIER . 598)) - ((default . error) (IDENTIFIER . 597)) - ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (IS . 595)) + ((default . error) (EXCEPTION . 596) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 232)) + ((default . error) (IS . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (LEFT_PAREN . 211)) ((default . error) (IDENTIFIER . 594)) ((default . error) (IDENTIFIER . 593)) + ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (IS . 591)) + ((default . error) (IDENTIFIER . 590)) + ((default . error) (IDENTIFIER . 589)) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (USE . ((name . 0) (direct_name . 0))) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) ((default . error) (USE . ((name . 7) (direct_name . 1))) (LEFT_PAREN . (name . 7)) (DOT . (name . 7)) (TICK . (name . 7))) - ((default . error) (USE . ( 590 (name . 4))) (LEFT_PAREN . (name . 4)) (DOT . (name . 4)) (TICK . (name . 4))) - ((default . error) (USE . 589)) - ((default . error) (DOT . 90) (TICK . 91) (USE . 588) (LEFT_PAREN . 107)) + ((default . error) (USE . ( 586 (name . 4))) (LEFT_PAREN . (name . 4)) (DOT . (name . 4)) (TICK . (name . 4))) + ((default . error) (USE . 585)) + ((default . error) (DOT . 90) (TICK . 91) (USE . 584) (LEFT_PAREN . 107)) ((default . error) (DOT . 90) (TICK . 91) (BAR . (discrete_choice . 1)) (EQUAL_GREATER . (discrete_choice . 1)) (LEFT_PAREN . 107)) ((default . error) (SEMICOLON . (association_opt . 2)) (IS . (association_opt . 2)) (COMMA . (association_opt . 2)) (RIGHT_PAREN . (association_opt . 2))) ((default . error) (SEMICOLON . (association_opt . 1)) (IS . (association_opt . 1)) (COMMA . (association_opt . 1)) (RIGHT_PAREN . (association_opt . 1))) ((default . error) (BAR . (choice_relation_and_list . 1)) (EQUAL_GREATER . (choice_relation_and_list . 1)) (AND . (choice_relation_and_list . 1))) - ((default . error) (XOR . (choice_relation . 1)) (OR . (choice_relation . 1)) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . (choice_relation . 1)) (EQUAL . 277) (SLASH_EQUAL . 282) (LESS . 280) (LESS_EQUAL . 281) (GREATER . 278) (GREATER_EQUAL . 279)) + ((default . error) (XOR . (choice_relation . 1)) (OR . (choice_relation . 1)) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . (choice_relation . 1)) (EQUAL . 278) (SLASH_EQUAL . 283) (LESS . 281) (LESS_EQUAL . 282) (GREATER . 279) (GREATER_EQUAL . 280)) ((default . error) (BAR . (choice_relation_or_list . 1)) (EQUAL_GREATER . (choice_relation_or_list . 1)) (OR . (choice_relation_or_list . 1))) ((default . error) (BAR . (choice_relation_xor_list . 1)) (EQUAL_GREATER . (choice_relation_xor_list . 1)) (XOR . (choice_relation_xor_list . 1))) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (BAR . (choice_relation_xor_list . 0)) (EQUAL_GREATER . (choice_relation_xor_list . 0)) (XOR . (choice_relation_xor_list . 0))) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (BAR . (choice_relation_or_list . 0)) (EQUAL_GREATER . (choice_relation_or_list . 0)) (OR . (choice_relation_or_list . 0))) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (BAR . (choice_relation_and_list . 0)) (EQUAL_GREATER . (choice_relation_and_list . 0)) (AND . (choice_relation_and_list . 0))) ((default . error) (SEMICOLON . (association_opt . 4)) (IS . (association_opt . 4)) (COMMA . (association_opt . 4)) (RIGHT_PAREN . (association_opt . 4))) ((default . error) (SEMICOLON . (association_opt . 3)) (IS . (association_opt . 3)) (COMMA . (association_opt . 3)) (RIGHT_PAREN . (association_opt . 3))) ((default . error) (EQUAL_GREATER . (discrete_choice_list . 2)) (BAR . (discrete_choice_list . 2))) - ((default . error) (DOT_DOT . 276) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . (choice_relation . 1)) (OR . (choice_relation . 1)) (XOR . (choice_relation . 1)) (EQUAL . 277) (SLASH_EQUAL . 282) (LESS . 280) (LESS_EQUAL . 281) (GREATER . 278) (GREATER_EQUAL . 279)) - ((default . error) (LOOP . (range . 1)) (DO . (range . 1)) (OF . (range . 1)) (COLON_EQUAL . (range . 1)) (ELSIF . (range . 1)) (ELSE . (range . 1)) (DIGITS . (range . 1)) (RANGE . (range . 1)) (THEN . (range . 1)) (SEMICOLON . (range . 1)) (WITH . (range . 1)) (IS . (range . 1)) (AND . (range . 1)) (OR . (range . 1)) (XOR . (range . 1)) (COMMA . (range . 1)) (RIGHT_PAREN . (range . 1)) (EQUAL_GREATER . (range . 1)) (BAR . (range . 1)) (LEFT_PAREN . 582)) + ((default . error) (DOT_DOT . 277) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . (choice_relation . 1)) (OR . (choice_relation . 1)) (XOR . (choice_relation . 1)) (EQUAL . 278) (SLASH_EQUAL . 283) (LESS . 281) (LESS_EQUAL . 282) (GREATER . 279) (GREATER_EQUAL . 280)) + ((default . error) (LOOP . (range . 1)) (DO . (range . 1)) (OF . (range . 1)) (COLON_EQUAL . (range . 1)) (ELSIF . (range . 1)) (ELSE . (range . 1)) (DIGITS . (range . 1)) (RANGE . (range . 1)) (THEN . (range . 1)) (SEMICOLON . (range . 1)) (WITH . (range . 1)) (IS . (range . 1)) (AND . (range . 1)) (OR . (range . 1)) (XOR . (range . 1)) (COMMA . (range . 1)) (RIGHT_PAREN . (range . 1)) (EQUAL_GREATER . (range . 1)) (BAR . (range . 1)) (LEFT_PAREN . 578)) ((default . error) (SEMICOLON . (relation . 1)) (IS . (relation . 1)) (WITH . (relation . 1)) (RIGHT_PAREN . (relation . 1)) (COMMA . (relation . 1)) (BAR . (choice_relation . 0)) (EQUAL_GREATER . (choice_relation . 0)) (AND . ((choice_relation . 0) (relation . 1))) (OR . ((choice_relation . 0) (relation . 1))) (XOR . ((choice_relation . 0) (relation . 1)))) ((default . error) (DO . (range . 2)) (LOOP . (range . 2)) (OF . (range . 2)) (COLON_EQUAL . (range . 2)) (ELSIF . (range . 2)) (ELSE . (range . 2)) (DIGITS . (range . 2)) (RANGE . (range . 2)) (THEN . (range . 2)) (SEMICOLON . (range . 2)) (WITH . (range . 2)) (IS . (range . 2)) (AND . (range . 2)) (OR . (range . 2)) (XOR . (range . 2)) (COMMA . (range . 2)) (RIGHT_PAREN . (range . 2)) (EQUAL_GREATER . (range . 2)) (BAR . (range . 2))) - ((default . error) (PLUS . 151) (MINUS . 150) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (BAR . 580) (DO . (relation . 3)) (LOOP . (relation . 3)) (COMMA . (relation . 3)) (ELSIF . (relation . 3)) (ELSE . (relation . 3)) (EQUAL_GREATER . (relation . 3)) (RIGHT_PAREN . (relation . 3)) (DIGITS . (relation . 3)) (RANGE . (relation . 3)) (THEN . (relation . 3)) (SEMICOLON . (relation . 3)) (WITH . (relation . 3)) (IS . (relation . 3)) (AND . (relation . 3)) (OR . (relation . 3)) (XOR . (relation . 3))) + ((default . error) (PLUS . 154) (MINUS . 153) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (BAR . 576) (DO . (relation . 3)) (LOOP . (relation . 3)) (COMMA . (relation . 3)) (ELSIF . (relation . 3)) (ELSE . (relation . 3)) (EQUAL_GREATER . (relation . 3)) (RIGHT_PAREN . (relation . 3)) (DIGITS . (relation . 3)) (RANGE . (relation . 3)) (THEN . (relation . 3)) (SEMICOLON . (relation . 3)) (WITH . (relation . 3)) (IS . (relation . 3)) (AND . (relation . 3)) (OR . (relation . 3)) (XOR . (relation . 3))) ((default . error) (DO . (membership_choice_list . 0)) (LOOP . (membership_choice_list . 0)) (COMMA . (membership_choice_list . 0)) (ELSIF . (membership_choice_list . 0)) (ELSE . (membership_choice_list . 0)) (EQUAL_GREATER . (membership_choice_list . 0)) (RIGHT_PAREN . (membership_choice_list . 0)) (DIGITS . (membership_choice_list . 0)) (RANGE . (membership_choice_list . 0)) (THEN . (membership_choice_list . 0)) (SEMICOLON . (membership_choice_list . 0)) (WITH . (membership_choice_list . 0)) (IS . (membership_choice_list . 0)) (AND . (membership_choice_list . 0)) (OR . (membership_choice_list . 0)) (XOR . (membership_choice_list . 0)) (BAR . (membership_choice_list . 0))) ((default . error) (DO . (membership_choice . 1)) (LOOP . (membership_choice . 1)) (COMMA . (membership_choice . 1)) (ELSIF . (membership_choice . 1)) (ELSE . (membership_choice . 1)) (EQUAL_GREATER . (membership_choice . 1)) (RIGHT_PAREN . (membership_choice . 1)) (DIGITS . (membership_choice . 1)) (RANGE . (membership_choice . 1)) (THEN . (membership_choice . 1)) (SEMICOLON . (membership_choice . 1)) (WITH . (membership_choice . 1)) (IS . (membership_choice . 1)) (AND . (membership_choice . 1)) (OR . (membership_choice . 1)) (XOR . (membership_choice . 1)) (BAR . (membership_choice . 1))) - ((default . error) (DOT_DOT . 276) (DO . (membership_choice . 0)) (LOOP . (membership_choice . 0)) (COMMA . (membership_choice . 0)) (ELSIF . (membership_choice . 0)) (ELSE . (membership_choice . 0)) (EQUAL_GREATER . (membership_choice . 0)) (RIGHT_PAREN . (membership_choice . 0)) (DIGITS . (membership_choice . 0)) (RANGE . (membership_choice . 0)) (THEN . (membership_choice . 0)) (SEMICOLON . (membership_choice . 0)) (WITH . (membership_choice . 0)) (IS . (membership_choice . 0)) (AND . (membership_choice . 0)) (OR . (membership_choice . 0)) (XOR . (membership_choice . 0)) (BAR . (membership_choice . 0))) + ((default . error) (DOT_DOT . 277) (DO . (membership_choice . 0)) (LOOP . (membership_choice . 0)) (COMMA . (membership_choice . 0)) (ELSIF . (membership_choice . 0)) (ELSE . (membership_choice . 0)) (EQUAL_GREATER . (membership_choice . 0)) (RIGHT_PAREN . (membership_choice . 0)) (DIGITS . (membership_choice . 0)) (RANGE . (membership_choice . 0)) (THEN . (membership_choice . 0)) (SEMICOLON . (membership_choice . 0)) (WITH . (membership_choice . 0)) (IS . (membership_choice . 0)) (AND . (membership_choice . 0)) (OR . (membership_choice . 0)) (XOR . (membership_choice . 0)) (BAR . (membership_choice . 0))) ((default . error) (BEGIN . (package_renaming_declaration . 0)) (ENTRY . (package_renaming_declaration . 0)) (FOR . (package_renaming_declaration . 0)) (PROTECTED . (package_renaming_declaration . 0)) (SUBTYPE . (package_renaming_declaration . 0)) (TASK . (package_renaming_declaration . 0)) (TYPE . (package_renaming_declaration . 0)) (IDENTIFIER . (package_renaming_declaration . 0)) (END . (package_renaming_declaration . 0)) (WITH . (package_renaming_declaration . 0)) (USE . (package_renaming_declaration . 0)) (SEPARATE . (package_renaming_declaration . 0)) (PROCEDURE . (package_renaming_declaration . 0)) (PRIVATE . (package_renaming_declaration . 0)) (PRAGMA . (package_renaming_declaration . 0)) (PACKAGE . (package_renaming_declaration . 0)) (OVERRIDING . (package_renaming_declaration . 0)) (NOT . (package_renaming_declaration . 0)) (LIMITED . (package_renaming_declaration . 0)) (GENERIC . (package_renaming_declaration . 0)) (FUNCTION . (package_renaming_declaration . 0)) ($EOI . (package_renaming_declaration . 0))) ((default . error) (SEMICOLON . (association_list . 1)) (IS . (association_list . 1)) (COMMA . (association_list . 1)) (RIGHT_PAREN . (association_list . 1))) ((default . error) (RIGHT_PAREN . (range_list . 1)) (COMMA . (range_list . 1))) - ((default . error) (DOT_DOT . 276)) - ((default . error) (SEMICOLON . 579)) - ((default . error) (SEMICOLON . 578)) - ((default . error) (SEMICOLON . 577)) - ((default . error) (SEMICOLON . 576)) - ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 570) (IDENTIFIER . 571) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (DOT_DOT . 277)) + ((default . error) (SEMICOLON . 575)) + ((default . error) (SEMICOLON . 574)) + ((default . error) (SEMICOLON . 573)) + ((default . error) (SEMICOLON . 572)) + ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 566) (IDENTIFIER . 567) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IS . (discriminant_part_opt . 2)) (WITH . (discriminant_part_opt . 2)) (SEMICOLON . (discriminant_part_opt . 2))) ((default . error) (RIGHT_PAREN . (discriminant_specification_opt . 0)) (SEMICOLON . (discriminant_specification_opt . 0)) (IDENTIFIER . 77)) ((default . error) (IS . (discriminant_part_opt . 1)) (WITH . (discriminant_part_opt . 1)) (SEMICOLON . (discriminant_part_opt . 1))) ((default . error) (PACKAGE . (formal_type_declaration . 2)) (PROCEDURE . (formal_type_declaration . 2)) (FUNCTION . (formal_type_declaration . 2)) (PRAGMA . (formal_type_declaration . 2)) (TYPE . (formal_type_declaration . 2)) (USE . (formal_type_declaration . 2)) (WITH . (formal_type_declaration . 2)) (IDENTIFIER . (formal_type_declaration . 2))) - ((default . error) (TAGGED . 568) (NEW . (abstract_limited_synchronized_opt . 3)) (SYNCHRONIZED . 567) (LIMITED . 566)) - ((default . error) (LEFT_PAREN . 565)) - ((default . error) (BOX . 564)) - ((default . error) (BOX . 563)) - ((default . error) (SEMICOLON . (interface_type_definition . 8)) (WITH . (interface_type_definition . 8))) - ((default . error) (BOX . 562)) - ((default . error) (INTERFACE . 561) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NEW . (abstract_limited_synchronized_opt . 4))) + ((default . error) (TAGGED . 564) (NEW . (abstract_limited_synchronized_opt . 3)) (SYNCHRONIZED . 563) (LIMITED . 562)) + ((default . error) (LEFT_PAREN . 561)) ((default . error) (BOX . 560)) - ((default . error) (INTERFACE . 559)) + ((default . error) (BOX . 559)) + ((default . error) (SEMICOLON . (interface_type_definition . 8)) (WITH . (interface_type_definition . 8))) ((default . error) (BOX . 558)) - ((default . error) (INTERFACE . 557) (NEW . (abstract_limited_synchronized_opt . 5))) - ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 4)) (LIMITED . 555) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (INTERFACE . 554)) - ((default . error) (NEW . 553)) - ((default . error) (PRIVATE . 552)) + ((default . error) (INTERFACE . 557) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NEW . (abstract_limited_synchronized_opt . 4))) + ((default . error) (BOX . 556)) + ((default . error) (INTERFACE . 555)) + ((default . error) (BOX . 554)) + ((default . error) (INTERFACE . 553) (NEW . (abstract_limited_synchronized_opt . 5))) + ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 4)) (LIMITED . 551) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (INTERFACE . 550)) + ((default . error) (NEW . 549)) + ((default . error) (PRIVATE . 548)) ((default . error) (WITH . (formal_type_definition . 9)) (SEMICOLON . (formal_type_definition . 9))) ((default . error) (WITH . (formal_type_definition . 8)) (SEMICOLON . (formal_type_definition . 8))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (WITH . (formal_type_definition . 1)) (SEMICOLON . (formal_type_definition . 1))) ((default . error) (WITH . (formal_type_definition . 10)) (SEMICOLON . (formal_type_definition . 10))) - ((default . error) (ACCESS . 235)) - ((default . error) (SEMICOLON . 550)) - ((default . error) (SEMICOLON . 549)) + ((default . error) (ACCESS . 242)) + ((default . error) (SEMICOLON . 546)) + ((default . error) (SEMICOLON . 545)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (DOT . 90) (TICK . 91) (COLON_EQUAL . 545) (LEFT_PAREN . 107) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 543)) + ((default . error) (DOT . 90) (TICK . 91) (COLON_EQUAL . 541) (LEFT_PAREN . 107) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 539)) ((default . error) (DO . (parameter_and_result_profile . 0)) (RIGHT_PAREN . (parameter_and_result_profile . 0)) (COLON_EQUAL . (parameter_and_result_profile . 0)) (RENAMES . (parameter_and_result_profile . 0)) (WITH . (parameter_and_result_profile . 0)) (SEMICOLON . (parameter_and_result_profile . 0)) (IS . (parameter_and_result_profile . 0))) - ((default . error) (DO . (aggregate . 3)) (ELSIF . (aggregate . 3)) (ELSE . (aggregate . 3)) (DIGITS . (aggregate . 3)) (RANGE . (aggregate . 3)) (THEN . (aggregate . 3)) (USE . (aggregate . 3)) (COLON_EQUAL . (aggregate . 3)) (CHARACTER_LITERAL . (aggregate . 3)) (STRING_LITERAL . (aggregate . 3)) (IDENTIFIER . (aggregate . 3)) (LESS_LESS . (aggregate . 3)) (WHILE . (aggregate . 3)) (SELECT . (aggregate . 3)) (REQUEUE . (aggregate . 3)) (RAISE . (aggregate . 3)) (PRAGMA . (aggregate . 3)) (NULL . (aggregate . 3)) (LOOP . (aggregate . 3)) (IF . (aggregate . 3)) (GOTO . (aggregate . 3)) (FOR . (aggregate . 3)) (EXIT . (aggregate . 3)) (DELAY . (aggregate . 3)) (DECLARE . (aggregate . 3)) (CASE . (aggregate . 3)) (BEGIN . (aggregate . 3)) (ABORT . (aggregate . 3)) (ACCEPT . (aggregate . 3)) (OF . (aggregate . 3)) (IN . (aggregate . 3)) (NOT . (aggregate . 3)) (RIGHT_PAREN . (aggregate . 3)) (PLUS . (aggregate . 3)) (MINUS . (aggregate . 3)) (AMPERSAND . (aggregate . 3)) (DOT_DOT . (aggregate . 3)) (MOD . (aggregate . 3)) (REM . (aggregate . 3)) (SLASH . (aggregate . 3)) (STAR . (aggregate . 3)) (STAR_STAR . (aggregate . 3)) (BAR . (aggregate . 3)) (EQUAL_GREATER . (aggregate . 3)) (EQUAL . (aggregate . 3)) (GREATER . (aggregate . 3)) (GREATER_EQUAL . (aggregate . 3)) (LESS . (aggregate . 3)) (LESS_EQUAL . (aggregate . 3)) (SLASH_EQUAL . (aggregate . 3)) (AND . (aggregate . 3)) (OR . (aggregate . 3)) (XOR . (aggregate . 3)) (COMMA . (aggregate . 3)) (LEFT_PAREN . (aggregate . 3)) (DOT . (aggregate . 3)) (TICK . (aggregate . 3)) (WITH . (aggregate . 3)) (IS . (aggregate . 3)) (RENAMES . (aggregate . 3)) (RETURN . (aggregate . 3)) (SEMICOLON . (aggregate . 3))) - ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 541) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (DO . (aggregate . 2)) (ELSIF . (aggregate . 2)) (ELSE . (aggregate . 2)) (DIGITS . (aggregate . 2)) (RANGE . (aggregate . 2)) (THEN . (aggregate . 2)) (USE . (aggregate . 2)) (COLON_EQUAL . (aggregate . 2)) (CHARACTER_LITERAL . (aggregate . 2)) (STRING_LITERAL . (aggregate . 2)) (IDENTIFIER . (aggregate . 2)) (LESS_LESS . (aggregate . 2)) (WHILE . (aggregate . 2)) (SELECT . (aggregate . 2)) (REQUEUE . (aggregate . 2)) (RAISE . (aggregate . 2)) (PRAGMA . (aggregate . 2)) (NULL . (aggregate . 2)) (LOOP . (aggregate . 2)) (IF . (aggregate . 2)) (GOTO . (aggregate . 2)) (FOR . (aggregate . 2)) (EXIT . (aggregate . 2)) (DELAY . (aggregate . 2)) (DECLARE . (aggregate . 2)) (CASE . (aggregate . 2)) (BEGIN . (aggregate . 2)) (ABORT . (aggregate . 2)) (ACCEPT . (aggregate . 2)) (OF . (aggregate . 2)) (IN . (aggregate . 2)) (NOT . (aggregate . 2)) (RIGHT_PAREN . (aggregate . 2)) (PLUS . (aggregate . 2)) (MINUS . (aggregate . 2)) (AMPERSAND . (aggregate . 2)) (DOT_DOT . (aggregate . 2)) (MOD . (aggregate . 2)) (REM . (aggregate . 2)) (SLASH . (aggregate . 2)) (STAR . (aggregate . 2)) (STAR_STAR . (aggregate . 2)) (BAR . (aggregate . 2)) (EQUAL_GREATER . (aggregate . 2)) (EQUAL . (aggregate . 2)) (GREATER . (aggregate . 2)) (GREATER_EQUAL . (aggregate . 2)) (LESS . (aggregate . 2)) (LESS_EQUAL . (aggregate . 2)) (SLASH_EQUAL . (aggregate . 2)) (AND . (aggregate . 2)) (OR . (aggregate . 2)) (XOR . (aggregate . 2)) (COMMA . (aggregate . 2)) (LEFT_PAREN . (aggregate . 2)) (DOT . (aggregate . 2)) (TICK . (aggregate . 2)) (WITH . (aggregate . 2)) (IS . (aggregate . 2)) (RENAMES . (aggregate . 2)) (RETURN . (aggregate . 2)) (SEMICOLON . (aggregate . 2))) - ((default . error) (DO . (aggregate . 0)) (LOOP . (aggregate . 0)) (USE . (aggregate . 0)) (COLON_EQUAL . (aggregate . 0)) (CHARACTER_LITERAL . (aggregate . 0)) (STRING_LITERAL . (aggregate . 0)) (IDENTIFIER . (aggregate . 0)) (LESS_LESS . (aggregate . 0)) (WHILE . (aggregate . 0)) (SELECT . (aggregate . 0)) (REQUEUE . (aggregate . 0)) (RAISE . (aggregate . 0)) (PRAGMA . (aggregate . 0)) (NULL . (aggregate . 0)) (IF . (aggregate . 0)) (GOTO . (aggregate . 0)) (FOR . (aggregate . 0)) (EXIT . (aggregate . 0)) (DELAY . (aggregate . 0)) (DECLARE . (aggregate . 0)) (CASE . (aggregate . 0)) (BEGIN . (aggregate . 0)) (ABORT . (aggregate . 0)) (ACCEPT . (aggregate . 0)) (OF . (aggregate . 0)) (ELSIF . (aggregate . 0)) (ELSE . (aggregate . 0)) (DIGITS . (aggregate . 0)) (COMMA . (aggregate . 0)) (RIGHT_PAREN . (aggregate . 0)) (RANGE . (aggregate . 0)) (THEN . (aggregate . 0)) (WITH . (aggregate . 0)) (BAR . (aggregate . 0)) (EQUAL_GREATER . (aggregate . 0)) (IS . (aggregate . 0)) (SLASH_EQUAL . (aggregate . 0)) (LESS_EQUAL . (aggregate . 0)) (LESS . (aggregate . 0)) (GREATER_EQUAL . (aggregate . 0)) (GREATER . (aggregate . 0)) (EQUAL . (aggregate . 0)) (NOT . (aggregate . 0)) (IN . (aggregate . 0)) (AND . (aggregate . 0)) (OR . (aggregate . 0)) (XOR . (aggregate . 0)) (SEMICOLON . (aggregate . 0)) (STAR_STAR . (aggregate . 0)) (STAR . (aggregate . 0)) (SLASH . (aggregate . 0)) (REM . (aggregate . 0)) (MOD . (aggregate . 0)) (DOT_DOT . (aggregate . 0)) (AMPERSAND . (aggregate . 0)) (MINUS . (aggregate . 0)) (PLUS . (aggregate . 0)) (LEFT_PAREN . (aggregate . 0)) (DOT . (aggregate . 0)) (TICK . (aggregate . 0)) (RENAMES . (aggregate . 0)) (RETURN . (aggregate . 0))) - ((default . error) (RIGHT_PAREN . 540)) - ((default . error) (THEN . 539)) - ((default . error) (IS . 538)) ((default . error) (IDENTIFIER . (general_access_modifier_opt . 1)) (STRING_LITERAL . (general_access_modifier_opt . 1)) (CHARACTER_LITERAL . (general_access_modifier_opt . 1))) ((default . error) (IDENTIFIER . (general_access_modifier_opt . 2)) (STRING_LITERAL . (general_access_modifier_opt . 2)) (CHARACTER_LITERAL . (general_access_modifier_opt . 2))) ((default . error) (FUNCTION . (protected_opt . 1)) (PROCEDURE . (protected_opt . 1))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (FUNCTION . 535) (PROCEDURE . 536)) + ((default . error) (FUNCTION . 536) (PROCEDURE . 537)) ((default . error) (IN . (aliased_opt . 1)) (OUT . (aliased_opt . 1)) (ARRAY . (aliased_opt . 1)) (CONSTANT . (aliased_opt . 1)) (ACCESS . (aliased_opt . 1)) (NOT . (aliased_opt . 1)) (IDENTIFIER . (aliased_opt . 1)) (STRING_LITERAL . (aliased_opt . 1)) (CHARACTER_LITERAL . (aliased_opt . 1))) - ((default . error) (IDENTIFIER . (mode_opt . 0)) (STRING_LITERAL . (mode_opt . 0)) (CHARACTER_LITERAL . (mode_opt . 0)) (IN . 209) (OUT . 210) (ACCESS . (null_exclusion_opt . 0)) (NOT . ( 225 (mode_opt . 0)))) + ((default . error) (IDENTIFIER . (mode_opt . 0)) (STRING_LITERAL . (mode_opt . 0)) (CHARACTER_LITERAL . (mode_opt . 0)) (IN . 217) (OUT . 218) (ACCESS . (null_exclusion_opt . 0)) (NOT . ( 232 (mode_opt . 0)))) ((default . error) (RIGHT_PAREN . (parameter_specification_list . 1)) (SEMICOLON . (parameter_specification_list . 1))) - ((default . error) (COLON_EQUAL . 802) (RIGHT_PAREN . (parameter_specification . 3)) (SEMICOLON . (parameter_specification . 3))) - ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (NOT . 225)) - ((default . error) (RETURN . 89) (LEFT_PAREN . 798)) - ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (IS . (parameter_profile_opt . 0)) (COLON_EQUAL . (parameter_profile_opt . 0)) (RIGHT_PAREN . (parameter_profile_opt . 0)) (RENAMES . (parameter_profile_opt . 0)) (DO . (parameter_profile_opt . 0)) (LEFT_PAREN . 798)) + ((default . error) (COLON_EQUAL . 812) (RIGHT_PAREN . (parameter_specification . 3)) (SEMICOLON . (parameter_specification . 3))) + ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (NOT . 232)) + ((default . error) (RETURN . 89) (LEFT_PAREN . 808)) + ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (IS . (parameter_profile_opt . 0)) (COLON_EQUAL . (parameter_profile_opt . 0)) (RIGHT_PAREN . (parameter_profile_opt . 0)) (RENAMES . (parameter_profile_opt . 0)) (DO . (parameter_profile_opt . 0)) (LEFT_PAREN . 808)) ((default . error) (DOT . 90) (TICK . 91) (DO . (access_definition . 0)) (RENAMES . (access_definition . 0)) (RIGHT_PAREN . (access_definition . 0)) (COLON_EQUAL . (access_definition . 0)) (IS . (access_definition . 0)) (SEMICOLON . (access_definition . 0)) (WITH . (access_definition . 0)) (LEFT_PAREN . 107)) - ((default . error) (WHEN . 795)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (OF . (aggregate . 5)) (ACCEPT . (aggregate . 5)) (ABORT . (aggregate . 5)) (BEGIN . (aggregate . 5)) (CASE . (aggregate . 5)) (DECLARE . (aggregate . 5)) (DELAY . (aggregate . 5)) (EXIT . (aggregate . 5)) (FOR . (aggregate . 5)) (GOTO . (aggregate . 5)) (IF . (aggregate . 5)) (NULL . (aggregate . 5)) (PRAGMA . (aggregate . 5)) (RAISE . (aggregate . 5)) (REQUEUE . (aggregate . 5)) (SELECT . (aggregate . 5)) (WHILE . (aggregate . 5)) (LESS_LESS . (aggregate . 5)) (IDENTIFIER . (aggregate . 5)) (STRING_LITERAL . (aggregate . 5)) (CHARACTER_LITERAL . (aggregate . 5)) (COLON_EQUAL . (aggregate . 5)) (USE . (aggregate . 5)) (LOOP . (aggregate . 5)) (DO . (aggregate . 5)) (RETURN . (aggregate . 5)) (RENAMES . (aggregate . 5)) (TICK . (aggregate . 5)) (DOT . (aggregate . 5)) (LEFT_PAREN . (aggregate . 5)) (PLUS . (aggregate . 5)) (MINUS . (aggregate . 5)) (AMPERSAND . (aggregate . 5)) (DOT_DOT . (aggregate . 5)) (MOD . (aggregate . 5)) (REM . (aggregate . 5)) (SLASH . (aggregate . 5)) (STAR . (aggregate . 5)) (STAR_STAR . (aggregate . 5)) (SEMICOLON . (aggregate . 5)) (XOR . (aggregate . 5)) (OR . (aggregate . 5)) (AND . (aggregate . 5)) (IN . (aggregate . 5)) (NOT . (aggregate . 5)) (EQUAL . (aggregate . 5)) (GREATER . (aggregate . 5)) (GREATER_EQUAL . (aggregate . 5)) (LESS . (aggregate . 5)) (LESS_EQUAL . (aggregate . 5)) (SLASH_EQUAL . (aggregate . 5)) (IS . (aggregate . 5)) (EQUAL_GREATER . (aggregate . 5)) (BAR . (aggregate . 5)) (WITH . (aggregate . 5)) (THEN . (aggregate . 5)) (RANGE . (aggregate . 5)) (RIGHT_PAREN . (aggregate . 5)) (COMMA . (aggregate . 5)) (DIGITS . (aggregate . 5)) (ELSE . (aggregate . 5)) (ELSIF . (aggregate . 5))) - ((default . error) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (IN . (primary . 1)) (NOT . (primary . 1)) (EQUAL . (primary . 1)) (GREATER . (primary . 1)) (GREATER_EQUAL . (primary . 1)) (LESS . (primary . 1)) (LESS_EQUAL . (primary . 1)) (SLASH_EQUAL . (primary . 1)) (RIGHT_PAREN . (primary . 1)) (COMMA . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (STAR_STAR . (primary . 1)) (BAR . (primary . 1)) (EQUAL_GREATER . (primary . 1)) (AND . (primary . 1)) (OR . (primary . 1)) (XOR . (primary . 1)) (RECORD . 793)) - ((default . error) (COMMA . 272) (RIGHT_PAREN . 792)) ((default . error) (IDENTIFIER . (formal_object_declaration . 3)) (WITH . (formal_object_declaration . 3)) (USE . (formal_object_declaration . 3)) (TYPE . (formal_object_declaration . 3)) (PRAGMA . (formal_object_declaration . 3)) (FUNCTION . (formal_object_declaration . 3)) (PROCEDURE . (formal_object_declaration . 3)) (PACKAGE . (formal_object_declaration . 3))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 789)) - ((default . error) (DOT . 90) (TICK . 91) (WITH . (formal_package_actual_part . 1)) (SEMICOLON . (formal_package_actual_part . 1)) (LEFT_PAREN . 787)) - ((default . error) (SEMICOLON . 786)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 805)) + ((default . error) (DOT . 90) (TICK . 91) (WITH . (formal_package_actual_part . 1)) (SEMICOLON . (formal_package_actual_part . 1)) (LEFT_PAREN . 803)) + ((default . error) (SEMICOLON . 802)) ((default . error) (IDENTIFIER . (formal_subprogram_declaration . 3)) (WITH . (formal_subprogram_declaration . 3)) (USE . (formal_subprogram_declaration . 3)) (TYPE . (formal_subprogram_declaration . 3)) (PRAGMA . (formal_subprogram_declaration . 3)) (FUNCTION . (formal_subprogram_declaration . 3)) (PROCEDURE . (formal_subprogram_declaration . 3)) (PACKAGE . (formal_subprogram_declaration . 3))) ((default . error) (IDENTIFIER . (formal_subprogram_declaration . 0)) (WITH . (formal_subprogram_declaration . 0)) (USE . (formal_subprogram_declaration . 0)) (TYPE . (formal_subprogram_declaration . 0)) (PRAGMA . (formal_subprogram_declaration . 0)) (FUNCTION . (formal_subprogram_declaration . 0)) (PROCEDURE . (formal_subprogram_declaration . 0)) (PACKAGE . (formal_subprogram_declaration . 0))) - ((default . error) (SEMICOLON . 785)) + ((default . error) (SEMICOLON . 801)) ((default . error) (SEMICOLON . (formal_type_definition . 0)) (WITH . (formal_type_definition . 0))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (AND . 783) (WITH . (interface_type_definition . 5)) (SEMICOLON . (interface_type_definition . 5))) + ((default . error) (AND . 799) (WITH . (interface_type_definition . 5)) (SEMICOLON . (interface_type_definition . 5))) ((default . error) (RECORD . (abstract_tagged_limited_opt . 3)) (NULL . (abstract_tagged_limited_opt . 3)) (PRIVATE . (abstract_tagged_limited_opt . 3))) - ((default . error) (SEMICOLON . 782)) - ((default . error) (AND . 781) (WITH . (interface_type_definition . 7)) (SEMICOLON . (interface_type_definition . 7))) + ((default . error) (SEMICOLON . 798)) + ((default . error) (AND . 797) (WITH . (interface_type_definition . 7)) (SEMICOLON . (interface_type_definition . 7))) ((default . error) (SEMICOLON . (formal_type_definition . 3)) (WITH . (formal_type_definition . 3))) - ((default . error) (AND . 780) (WITH . (interface_type_definition . 6)) (SEMICOLON . (interface_type_definition . 6))) + ((default . error) (AND . 796) (WITH . (interface_type_definition . 6)) (SEMICOLON . (interface_type_definition . 6))) ((default . error) (SEMICOLON . (formal_type_definition . 4)) (WITH . (formal_type_definition . 4))) - ((default . error) (AND . 779) (WITH . (interface_type_definition . 4)) (SEMICOLON . (interface_type_definition . 4))) - ((default . error) (RIGHT_PAREN . 778)) + ((default . error) (AND . 795) (WITH . (interface_type_definition . 4)) (SEMICOLON . (interface_type_definition . 4))) + ((default . error) (RIGHT_PAREN . 794)) ((default . error) (SEMICOLON . (formal_type_definition . 5)) (WITH . (formal_type_definition . 5))) - ((default . error) (SEMICOLON . (formal_type_definition . 6)) (WITH . (formal_type_definition . 6)) (DIGITS . 777)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 769) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (SEMICOLON . (formal_type_definition . 6)) (WITH . (formal_type_definition . 6)) (DIGITS . 793)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 734) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (NEW . (abstract_limited_synchronized_opt . 1))) ((default . error) (NEW . (abstract_limited_synchronized_opt . 2))) - ((default . error) (LIMITED . 768) (RECORD . (abstract_tagged_limited_opt . 2)) (NULL . (abstract_tagged_limited_opt . 2)) (PRIVATE . (abstract_tagged_limited_opt . 2))) + ((default . error) (LIMITED . 787) (RECORD . (abstract_tagged_limited_opt . 2)) (NULL . (abstract_tagged_limited_opt . 2)) (PRIVATE . (abstract_tagged_limited_opt . 2))) ((default . error) (RIGHT_PAREN . (discriminant_specification_list . 1)) (SEMICOLON . (discriminant_specification_list . 1))) - ((default . error) (NULL . 767)) + ((default . error) (NULL . 786)) ((default . error) (SEMICOLON . (null_exclusion_opt_name_type . 0)) (RIGHT_PAREN . (null_exclusion_opt_name_type . 0)) (COLON_EQUAL . (null_exclusion_opt_name_type . 0)) (DOT . (name . 0)) (LEFT_PAREN . (name . 0)) (TICK . (name . 0))) - ((default . error) (SEMICOLON . (discriminant_specification_opt . 4)) (RIGHT_PAREN . (discriminant_specification_opt . 4)) (COLON_EQUAL . 766)) + ((default . error) (SEMICOLON . (discriminant_specification_opt . 4)) (RIGHT_PAREN . (discriminant_specification_opt . 4)) (COLON_EQUAL . 785)) ((default . error) (DOT . 90) (TICK . 91) (LEFT_PAREN . 107)) - ((default . error) (SEMICOLON . (discriminant_specification_opt . 2)) (RIGHT_PAREN . (discriminant_specification_opt . 2)) (COLON_EQUAL . 765)) + ((default . error) (SEMICOLON . (discriminant_specification_opt . 2)) (RIGHT_PAREN . (discriminant_specification_opt . 2)) (COLON_EQUAL . 784)) ((default . error) (SEMICOLON . (null_exclusion_opt_name_type . 1)) (RIGHT_PAREN . (null_exclusion_opt_name_type . 1)) (COLON_EQUAL . (null_exclusion_opt_name_type . 1)) (DOT . (name . 3)) (LEFT_PAREN . (name . 3)) (TICK . (name . 3))) ((default . error) ($EOI . (generic_renaming_declaration . 1)) (LIMITED . (generic_renaming_declaration . 1)) (SEPARATE . (generic_renaming_declaration . 1)) (WITH . (generic_renaming_declaration . 1)) (END . (generic_renaming_declaration . 1)) (PRIVATE . (generic_renaming_declaration . 1)) (IDENTIFIER . (generic_renaming_declaration . 1)) (USE . (generic_renaming_declaration . 1)) (TYPE . (generic_renaming_declaration . 1)) (TASK . (generic_renaming_declaration . 1)) (SUBTYPE . (generic_renaming_declaration . 1)) (PROTECTED . (generic_renaming_declaration . 1)) (PROCEDURE . (generic_renaming_declaration . 1)) (PRAGMA . (generic_renaming_declaration . 1)) (PACKAGE . (generic_renaming_declaration . 1)) (OVERRIDING . (generic_renaming_declaration . 1)) (NOT . (generic_renaming_declaration . 1)) (GENERIC . (generic_renaming_declaration . 1)) (FUNCTION . (generic_renaming_declaration . 1)) (FOR . (generic_renaming_declaration . 1)) (ENTRY . (generic_renaming_declaration . 1)) (BEGIN . (generic_renaming_declaration . 1))) ((default . error) ($EOI . (generic_renaming_declaration . 0)) (LIMITED . (generic_renaming_declaration . 0)) (SEPARATE . (generic_renaming_declaration . 0)) (WITH . (generic_renaming_declaration . 0)) (END . (generic_renaming_declaration . 0)) (PRIVATE . (generic_renaming_declaration . 0)) (IDENTIFIER . (generic_renaming_declaration . 0)) (USE . (generic_renaming_declaration . 0)) (TYPE . (generic_renaming_declaration . 0)) (TASK . (generic_renaming_declaration . 0)) (SUBTYPE . (generic_renaming_declaration . 0)) (PROTECTED . (generic_renaming_declaration . 0)) (PROCEDURE . (generic_renaming_declaration . 0)) (PRAGMA . (generic_renaming_declaration . 0)) (PACKAGE . (generic_renaming_declaration . 0)) (OVERRIDING . (generic_renaming_declaration . 0)) (NOT . (generic_renaming_declaration . 0)) (GENERIC . (generic_renaming_declaration . 0)) (FUNCTION . (generic_renaming_declaration . 0)) (FOR . (generic_renaming_declaration . 0)) (ENTRY . (generic_renaming_declaration . 0)) (BEGIN . (generic_renaming_declaration . 0))) ((default . error) ($EOI . (generic_renaming_declaration . 2)) (LIMITED . (generic_renaming_declaration . 2)) (SEPARATE . (generic_renaming_declaration . 2)) (WITH . (generic_renaming_declaration . 2)) (END . (generic_renaming_declaration . 2)) (PRIVATE . (generic_renaming_declaration . 2)) (IDENTIFIER . (generic_renaming_declaration . 2)) (USE . (generic_renaming_declaration . 2)) (TYPE . (generic_renaming_declaration . 2)) (TASK . (generic_renaming_declaration . 2)) (SUBTYPE . (generic_renaming_declaration . 2)) (PROTECTED . (generic_renaming_declaration . 2)) (PROCEDURE . (generic_renaming_declaration . 2)) (PRAGMA . (generic_renaming_declaration . 2)) (PACKAGE . (generic_renaming_declaration . 2)) (OVERRIDING . (generic_renaming_declaration . 2)) (NOT . (generic_renaming_declaration . 2)) (GENERIC . (generic_renaming_declaration . 2)) (FUNCTION . (generic_renaming_declaration . 2)) (FOR . (generic_renaming_declaration . 2)) (ENTRY . (generic_renaming_declaration . 2)) (BEGIN . (generic_renaming_declaration . 2))) ((default . error) (END . (generic_instantiation . 0)) (BEGIN . (generic_instantiation . 0)) (ENTRY . (generic_instantiation . 0)) (FOR . (generic_instantiation . 0)) (PROTECTED . (generic_instantiation . 0)) (SUBTYPE . (generic_instantiation . 0)) (TASK . (generic_instantiation . 0)) (TYPE . (generic_instantiation . 0)) (IDENTIFIER . (generic_instantiation . 0)) ($EOI . (generic_instantiation . 0)) (FUNCTION . (generic_instantiation . 0)) (GENERIC . (generic_instantiation . 0)) (LIMITED . (generic_instantiation . 0)) (NOT . (generic_instantiation . 0)) (OVERRIDING . (generic_instantiation . 0)) (PACKAGE . (generic_instantiation . 0)) (PRAGMA . (generic_instantiation . 0)) (PRIVATE . (generic_instantiation . 0)) (PROCEDURE . (generic_instantiation . 0)) (SEPARATE . (generic_instantiation . 0)) (USE . (generic_instantiation . 0)) (WITH . (generic_instantiation . 0))) - ((default . error) (PLUS . 151) (MINUS . 150) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (BAR . 580) (LOOP . (relation . 2)) (DO . (relation . 2)) (XOR . (relation . 2)) (OR . (relation . 2)) (AND . (relation . 2)) (IS . (relation . 2)) (WITH . (relation . 2)) (SEMICOLON . (relation . 2)) (THEN . (relation . 2)) (RANGE . (relation . 2)) (DIGITS . (relation . 2)) (RIGHT_PAREN . (relation . 2)) (EQUAL_GREATER . (relation . 2)) (ELSE . (relation . 2)) (ELSIF . (relation . 2)) (COMMA . (relation . 2))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (PLUS . 154) (MINUS . 153) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (BAR . 576) (LOOP . (relation . 2)) (DO . (relation . 2)) (XOR . (relation . 2)) (OR . (relation . 2)) (AND . (relation . 2)) (IS . (relation . 2)) (WITH . (relation . 2)) (SEMICOLON . (relation . 2)) (THEN . (relation . 2)) (RANGE . (relation . 2)) (DIGITS . (relation . 2)) (RIGHT_PAREN . (relation . 2)) (EQUAL_GREATER . (relation . 2)) (ELSE . (relation . 2)) (ELSIF . (relation . 2)) (COMMA . (relation . 2))) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (AND . (choice_relation_and_then_list . 0)) (EQUAL_GREATER . (choice_relation_and_then_list . 0)) (BAR . (choice_relation_and_then_list . 0))) ((default . error) (OR . (choice_relation_or_else_list . 0)) (EQUAL_GREATER . (choice_relation_or_else_list . 0)) (BAR . (choice_relation_or_else_list . 0))) ((default . error) (OR . (choice_relation_or_else_list . 1)) (EQUAL_GREATER . (choice_relation_or_else_list . 1)) (BAR . (choice_relation_or_else_list . 1))) ((default . error) (AND . (choice_relation_and_then_list . 1)) (EQUAL_GREATER . (choice_relation_and_then_list . 1)) (BAR . (choice_relation_and_then_list . 1))) - ((default . error) (LEFT_PAREN . 216) (RECORD . 759)) - ((default . error) (AT . 758)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (DOT . 90) (TICK . 91) (IS . ( 756 (aspect_specification_opt . 0))) (WITH . 109) (LEFT_PAREN . 107)) - ((default . error) (IS . 755)) - ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 203)) - ((default . error) (IS . ( 753 (aspect_specification_opt . 0))) (WITH . 109)) - ((default . error) (NOT . 750) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 749) (IS . 748)) - ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (LEFT_PAREN . 203)) - ((default . error) (IS . ( 746 (aspect_specification_opt . 0))) (WITH . 109)) - ((default . error) (SEMICOLON . 745) (IS . 744)) - ((default . error) (RENAMES . 743)) - ((default . error) (RENAMES . 742)) - ((default . error) (ACCESS . 235) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . 740)) - ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (package_specification . 1)) (LEFT_PAREN . 107)) - ((default . error) (COLON_EQUAL . 739)) - ((default . error) (SEMICOLON . 738)) - ((default . error) (NOT . (constant_opt . 0)) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (ACCESS . (constant_opt . 0)) (ARRAY . (constant_opt . 0)) (CONSTANT . 736)) - ((default . error) (SEPARATE . 735) (ABSTRACT . 734)) - ((default . error) (NULL . 733)) - ((default . error) (LEFT_PAREN . 731)) - ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 729)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (LEFT_PAREN . 148) (RECORD . 778)) + ((default . error) (AT . 777)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (DOT . 90) (TICK . 91) (IS . ( 775 (aspect_specification_opt . 0))) (WITH . 109) (LEFT_PAREN . 107)) + ((default . error) (IS . 774)) + ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 211)) + ((default . error) (IS . ( 772 (aspect_specification_opt . 0))) (WITH . 109)) + ((default . error) (NOT . 729) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . 770) (IS . 769)) + ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (LEFT_PAREN . 211)) + ((default . error) (IS . ( 767 (aspect_specification_opt . 0))) (WITH . 109)) + ((default . error) (SEMICOLON . 766) (IS . 765)) + ((default . error) (RENAMES . 764)) + ((default . error) (RENAMES . 763)) + ((default . error) (ACCESS . 242) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (END . 761)) + ((default . error) (SEMICOLON . (package_specification . 1))) + ((default . error) (COLON_EQUAL . 760)) + ((default . error) (SEMICOLON . 759)) + ((default . error) (NOT . (constant_opt . 0)) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (ACCESS . (constant_opt . 0)) (ARRAY . (constant_opt . 0)) (CONSTANT . 757)) + ((default . error) (SEPARATE . 756) (ABSTRACT . 755)) + ((default . error) (NULL . 754)) + ((default . error) (LEFT_PAREN . 752)) + ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 750)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (OR . (relation_and_then_list . 0)) (XOR . (relation_and_then_list . 0)) (LOOP . (relation_and_then_list . 0)) (DO . (relation_and_then_list . 0)) (AND . (relation_and_then_list . 0)) (IS . (relation_and_then_list . 0)) (WITH . (relation_and_then_list . 0)) (SEMICOLON . (relation_and_then_list . 0)) (THEN . (relation_and_then_list . 0)) (RANGE . (relation_and_then_list . 0)) (COMMA . (relation_and_then_list . 0)) (RIGHT_PAREN . (relation_and_then_list . 0)) (DIGITS . (relation_and_then_list . 0)) (EQUAL_GREATER . (relation_and_then_list . 0)) (ELSE . (relation_and_then_list . 0)) (ELSIF . (relation_and_then_list . 0))) ((default . error) (AND . (relation_or_else_list . 0)) (XOR . (relation_or_else_list . 0)) (LOOP . (relation_or_else_list . 0)) (DO . (relation_or_else_list . 0)) (OR . (relation_or_else_list . 0)) (IS . (relation_or_else_list . 0)) (WITH . (relation_or_else_list . 0)) (SEMICOLON . (relation_or_else_list . 0)) (THEN . (relation_or_else_list . 0)) (RANGE . (relation_or_else_list . 0)) (COMMA . (relation_or_else_list . 0)) (RIGHT_PAREN . (relation_or_else_list . 0)) (DIGITS . (relation_or_else_list . 0)) (EQUAL_GREATER . (relation_or_else_list . 0)) (ELSE . (relation_or_else_list . 0)) (ELSIF . (relation_or_else_list . 0))) ((default . error) (AND . (relation_or_else_list . 1)) (XOR . (relation_or_else_list . 1)) (LOOP . (relation_or_else_list . 1)) (DO . (relation_or_else_list . 1)) (OR . (relation_or_else_list . 1)) (IS . (relation_or_else_list . 1)) (WITH . (relation_or_else_list . 1)) (SEMICOLON . (relation_or_else_list . 1)) (THEN . (relation_or_else_list . 1)) (RANGE . (relation_or_else_list . 1)) (COMMA . (relation_or_else_list . 1)) (RIGHT_PAREN . (relation_or_else_list . 1)) (DIGITS . (relation_or_else_list . 1)) (EQUAL_GREATER . (relation_or_else_list . 1)) (ELSE . (relation_or_else_list . 1)) (ELSIF . (relation_or_else_list . 1))) ((default . error) (OR . (relation_and_then_list . 1)) (XOR . (relation_and_then_list . 1)) (LOOP . (relation_and_then_list . 1)) (DO . (relation_and_then_list . 1)) (AND . (relation_and_then_list . 1)) (IS . (relation_and_then_list . 1)) (WITH . (relation_and_then_list . 1)) (SEMICOLON . (relation_and_then_list . 1)) (THEN . (relation_and_then_list . 1)) (RANGE . (relation_and_then_list . 1)) (COMMA . (relation_and_then_list . 1)) (RIGHT_PAREN . (relation_and_then_list . 1)) (DIGITS . (relation_and_then_list . 1)) (EQUAL_GREATER . (relation_and_then_list . 1)) (ELSE . (relation_and_then_list . 1)) (ELSIF . (relation_and_then_list . 1))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (LOOP . (raise_expression . 1)) (DO . (raise_expression . 1)) (XOR . (raise_expression . 1)) (OR . (raise_expression . 1)) (AND . (raise_expression . 1)) (IS . (raise_expression . 1)) (SEMICOLON . (raise_expression . 1)) (WITH . (raise_expression . 1)) (THEN . (raise_expression . 1)) (RANGE . (raise_expression . 1)) (RIGHT_PAREN . (raise_expression . 1)) (COMMA . (raise_expression . 1)) (DIGITS . (raise_expression . 1)) (EQUAL_GREATER . (raise_expression . 1)) (ELSE . (raise_expression . 1)) (ELSIF . (raise_expression . 1))) - ((default . error) (OF . 724) (COLON . 725) (IN . 723)) - ((default . error) (EQUAL_GREATER . 722)) + ((default . error) (LOOP . (aggregate . 4)) (DO . (aggregate . 4)) (OF . (aggregate . 4)) (ACCEPT . (aggregate . 4)) (ABORT . (aggregate . 4)) (BEGIN . (aggregate . 4)) (CASE . (aggregate . 4)) (DECLARE . (aggregate . 4)) (DELAY . (aggregate . 4)) (EXIT . (aggregate . 4)) (FOR . (aggregate . 4)) (GOTO . (aggregate . 4)) (IF . (aggregate . 4)) (NULL . (aggregate . 4)) (PRAGMA . (aggregate . 4)) (RAISE . (aggregate . 4)) (REQUEUE . (aggregate . 4)) (SELECT . (aggregate . 4)) (WHILE . (aggregate . 4)) (LESS_LESS . (aggregate . 4)) (IDENTIFIER . (aggregate . 4)) (STRING_LITERAL . (aggregate . 4)) (CHARACTER_LITERAL . (aggregate . 4)) (COLON_EQUAL . (aggregate . 4)) (USE . (aggregate . 4)) (PLUS . (aggregate . 4)) (MINUS . (aggregate . 4)) (AMPERSAND . (aggregate . 4)) (DOT_DOT . (aggregate . 4)) (MOD . (aggregate . 4)) (REM . (aggregate . 4)) (SLASH . (aggregate . 4)) (STAR . (aggregate . 4)) (STAR_STAR . (aggregate . 4)) (SEMICOLON . (aggregate . 4)) (XOR . (aggregate . 4)) (OR . (aggregate . 4)) (AND . (aggregate . 4)) (IN . (aggregate . 4)) (NOT . (aggregate . 4)) (EQUAL . (aggregate . 4)) (GREATER . (aggregate . 4)) (GREATER_EQUAL . (aggregate . 4)) (LESS . (aggregate . 4)) (LESS_EQUAL . (aggregate . 4)) (SLASH_EQUAL . (aggregate . 4)) (IS . (aggregate . 4)) (EQUAL_GREATER . (aggregate . 4)) (BAR . (aggregate . 4)) (WITH . (aggregate . 4)) (THEN . (aggregate . 4)) (RANGE . (aggregate . 4)) (RIGHT_PAREN . (aggregate . 4)) (COMMA . (aggregate . 4)) (DIGITS . (aggregate . 4)) (ELSE . (aggregate . 4)) (ELSIF . (aggregate . 4)) (RETURN . (aggregate . 4)) (RENAMES . (aggregate . 4)) (TICK . (aggregate . 4)) (DOT . (aggregate . 4)) (LEFT_PAREN . (aggregate . 4))) + ((default . error) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (IN . (primary . 1)) (NOT . (primary . 1)) (EQUAL . (primary . 1)) (GREATER . (primary . 1)) (GREATER_EQUAL . (primary . 1)) (LESS . (primary . 1)) (LESS_EQUAL . (primary . 1)) (SLASH_EQUAL . (primary . 1)) (RIGHT_PAREN . (primary . 1)) (COMMA . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (STAR_STAR . (primary . 1)) (BAR . (primary . 1)) (EQUAL_GREATER . (primary . 1)) (AND . (primary . 1)) (OR . (primary . 1)) (XOR . (primary . 1)) (RECORD . 746)) + ((default . error) (COMMA . 273) (RIGHT_PAREN . 745)) + ((default . error) (ELSE . 741) (RIGHT_PAREN . (if_expression . 3)) (COMMA . (if_expression . 3)) (ELSIF . 742)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (REVERSE . 735) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 734) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (REVERSE . 732) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (NOT . 729) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 0)) (COMMA . (case_expression_alternative_list . 0))) + ((default . error) (RIGHT_PAREN . (case_expression . 0)) (COMMA . ( 727 (case_expression . 0)))) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (IS . 134)) - ((default . error) (IDENTIFIER . 719)) + ((default . error) (IDENTIFIER . 724)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (IS . (expression_opt . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (UNTIL . 713) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (WHEN . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (LOOP . (iterator_specification_opt . 0)) (IDENTIFIER . 620)) - ((default . error) (IDENTIFIER . 708)) - ((default . error) (THEN . (expression_opt . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (SEMICOLON . 705)) - ((default . error) (SEMICOLON . 703) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (IS . (expression_opt . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (UNTIL . 718) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (WHEN . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (LOOP . (iterator_specification_opt . 0)) (IDENTIFIER . 408)) + ((default . error) (IDENTIFIER . 713)) + ((default . error) (THEN . (expression_opt . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (SEMICOLON . 710)) + ((default . error) (SEMICOLON . 708) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 697) (DO . (extended_return_object_declaration_opt . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 698) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ELSE . (select_alternative_list_opt . 0)) (END . (select_alternative_list_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (DELAY . 630) (WHEN . 686) (TERMINATE . 685) (ACCEPT . 625)) - ((default . error) (LOOP . (expression_opt . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (IDENTIFIER . 683)) - ((default . error) (COLON . 682)) + ((default . error) (SEMICOLON . 702) (DO . (extended_return_object_declaration_opt . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 703) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . (select_alternative_list_opt . 0)) (END . (select_alternative_list_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (DELAY . 635) (WHEN . 691) (TERMINATE . 690) (ACCEPT . 630)) + ((default . error) (LOOP . (expression_opt . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 688)) + ((default . error) (COLON . 687)) ((default . error) (OR . (compound_statement . 5)) (THEN . (compound_statement . 5)) (WHEN . (compound_statement . 5)) (EXCEPTION . (compound_statement . 5)) (END . (compound_statement . 5)) (ACCEPT . (compound_statement . 5)) (ABORT . (compound_statement . 5)) (BEGIN . (compound_statement . 5)) (CASE . (compound_statement . 5)) (DECLARE . (compound_statement . 5)) (DELAY . (compound_statement . 5)) (EXIT . (compound_statement . 5)) (FOR . (compound_statement . 5)) (GOTO . (compound_statement . 5)) (IF . (compound_statement . 5)) (LOOP . (compound_statement . 5)) (NULL . (compound_statement . 5)) (PRAGMA . (compound_statement . 5)) (RAISE . (compound_statement . 5)) (REQUEUE . (compound_statement . 5)) (RETURN . (compound_statement . 5)) (SELECT . (compound_statement . 5)) (WHILE . (compound_statement . 5)) (LESS_LESS . (compound_statement . 5)) (IDENTIFIER . (compound_statement . 5)) (STRING_LITERAL . (compound_statement . 5)) (CHARACTER_LITERAL . (compound_statement . 5)) (ELSE . (compound_statement . 5)) (ELSIF . (compound_statement . 5))) ((default . error) (OR . (simple_statement . 1)) (THEN . (simple_statement . 1)) (WHEN . (simple_statement . 1)) (EXCEPTION . (simple_statement . 1)) (END . (simple_statement . 1)) (ACCEPT . (simple_statement . 1)) (ABORT . (simple_statement . 1)) (BEGIN . (simple_statement . 1)) (CASE . (simple_statement . 1)) (DECLARE . (simple_statement . 1)) (DELAY . (simple_statement . 1)) (EXIT . (simple_statement . 1)) (FOR . (simple_statement . 1)) (GOTO . (simple_statement . 1)) (IF . (simple_statement . 1)) (LOOP . (simple_statement . 1)) (NULL . (simple_statement . 1)) (PRAGMA . (simple_statement . 1)) (RAISE . (simple_statement . 1)) (REQUEUE . (simple_statement . 1)) (RETURN . (simple_statement . 1)) (SELECT . (simple_statement . 1)) (WHILE . (simple_statement . 1)) (LESS_LESS . (simple_statement . 1)) (IDENTIFIER . (simple_statement . 1)) (STRING_LITERAL . (simple_statement . 1)) (CHARACTER_LITERAL . (simple_statement . 1)) (ELSE . (simple_statement . 1)) (ELSIF . (simple_statement . 1))) ((default . error) (OR . (select_statement . 3)) (THEN . (select_statement . 3)) (WHEN . (select_statement . 3)) (EXCEPTION . (select_statement . 3)) (END . (select_statement . 3)) (ACCEPT . (select_statement . 3)) (ABORT . (select_statement . 3)) (BEGIN . (select_statement . 3)) (CASE . (select_statement . 3)) (DECLARE . (select_statement . 3)) (DELAY . (select_statement . 3)) (EXIT . (select_statement . 3)) (FOR . (select_statement . 3)) (GOTO . (select_statement . 3)) (IF . (select_statement . 3)) (LOOP . (select_statement . 3)) (NULL . (select_statement . 3)) (PRAGMA . (select_statement . 3)) (RAISE . (select_statement . 3)) (REQUEUE . (select_statement . 3)) (RETURN . (select_statement . 3)) (SELECT . (select_statement . 3)) (WHILE . (select_statement . 3)) (LESS_LESS . (select_statement . 3)) (IDENTIFIER . (select_statement . 3)) (STRING_LITERAL . (select_statement . 3)) (CHARACTER_LITERAL . (select_statement . 3)) (ELSE . (select_statement . 3)) (ELSIF . (select_statement . 3))) @@ -2457,186 +2472,183 @@ ((default . error) (OR . (simple_statement . 7)) (THEN . (simple_statement . 7)) (WHEN . (simple_statement . 7)) (EXCEPTION . (simple_statement . 7)) (END . (simple_statement . 7)) (ACCEPT . (simple_statement . 7)) (ABORT . (simple_statement . 7)) (BEGIN . (simple_statement . 7)) (CASE . (simple_statement . 7)) (DECLARE . (simple_statement . 7)) (DELAY . (simple_statement . 7)) (EXIT . (simple_statement . 7)) (FOR . (simple_statement . 7)) (GOTO . (simple_statement . 7)) (IF . (simple_statement . 7)) (LOOP . (simple_statement . 7)) (NULL . (simple_statement . 7)) (PRAGMA . (simple_statement . 7)) (RAISE . (simple_statement . 7)) (REQUEUE . (simple_statement . 7)) (RETURN . (simple_statement . 7)) (SELECT . (simple_statement . 7)) (WHILE . (simple_statement . 7)) (LESS_LESS . (simple_statement . 7)) (IDENTIFIER . (simple_statement . 7)) (STRING_LITERAL . (simple_statement . 7)) (CHARACTER_LITERAL . (simple_statement . 7)) (ELSE . (simple_statement . 7)) (ELSIF . (simple_statement . 7))) ((default . error) (OR . (simple_statement . 2)) (THEN . (simple_statement . 2)) (WHEN . (simple_statement . 2)) (EXCEPTION . (simple_statement . 2)) (END . (simple_statement . 2)) (ACCEPT . (simple_statement . 2)) (ABORT . (simple_statement . 2)) (BEGIN . (simple_statement . 2)) (CASE . (simple_statement . 2)) (DECLARE . (simple_statement . 2)) (DELAY . (simple_statement . 2)) (EXIT . (simple_statement . 2)) (FOR . (simple_statement . 2)) (GOTO . (simple_statement . 2)) (IF . (simple_statement . 2)) (LOOP . (simple_statement . 2)) (NULL . (simple_statement . 2)) (PRAGMA . (simple_statement . 2)) (RAISE . (simple_statement . 2)) (REQUEUE . (simple_statement . 2)) (RETURN . (simple_statement . 2)) (SELECT . (simple_statement . 2)) (WHILE . (simple_statement . 2)) (LESS_LESS . (simple_statement . 2)) (IDENTIFIER . (simple_statement . 2)) (STRING_LITERAL . (simple_statement . 2)) (CHARACTER_LITERAL . (simple_statement . 2)) (ELSE . (simple_statement . 2)) (ELSIF . (simple_statement . 2))) ((default . error) (OR . (compound_statement . 4)) (THEN . (compound_statement . 4)) (WHEN . (compound_statement . 4)) (EXCEPTION . (compound_statement . 4)) (END . (compound_statement . 4)) (ACCEPT . (compound_statement . 4)) (ABORT . (compound_statement . 4)) (BEGIN . (compound_statement . 4)) (CASE . (compound_statement . 4)) (DECLARE . (compound_statement . 4)) (DELAY . (compound_statement . 4)) (EXIT . (compound_statement . 4)) (FOR . (compound_statement . 4)) (GOTO . (compound_statement . 4)) (IF . (compound_statement . 4)) (LOOP . (compound_statement . 4)) (NULL . (compound_statement . 4)) (PRAGMA . (compound_statement . 4)) (RAISE . (compound_statement . 4)) (REQUEUE . (compound_statement . 4)) (RETURN . (compound_statement . 4)) (SELECT . (compound_statement . 4)) (WHILE . (compound_statement . 4)) (LESS_LESS . (compound_statement . 4)) (IDENTIFIER . (compound_statement . 4)) (STRING_LITERAL . (compound_statement . 4)) (CHARACTER_LITERAL . (compound_statement . 4)) (ELSE . (compound_statement . 4)) (ELSIF . (compound_statement . 4))) - ((default . error) (END . 681)) + ((default . error) (END . 686)) ((default . error) (OR . (compound_statement . 0)) (THEN . (compound_statement . 0)) (WHEN . (compound_statement . 0)) (EXCEPTION . (compound_statement . 0)) (END . (compound_statement . 0)) (ACCEPT . (compound_statement . 0)) (ABORT . (compound_statement . 0)) (BEGIN . (compound_statement . 0)) (CASE . (compound_statement . 0)) (DECLARE . (compound_statement . 0)) (DELAY . (compound_statement . 0)) (EXIT . (compound_statement . 0)) (FOR . (compound_statement . 0)) (GOTO . (compound_statement . 0)) (IF . (compound_statement . 0)) (LOOP . (compound_statement . 0)) (NULL . (compound_statement . 0)) (PRAGMA . (compound_statement . 0)) (RAISE . (compound_statement . 0)) (REQUEUE . (compound_statement . 0)) (RETURN . (compound_statement . 0)) (SELECT . (compound_statement . 0)) (WHILE . (compound_statement . 0)) (LESS_LESS . (compound_statement . 0)) (IDENTIFIER . (compound_statement . 0)) (STRING_LITERAL . (compound_statement . 0)) (CHARACTER_LITERAL . (compound_statement . 0)) (ELSE . (compound_statement . 0)) (ELSIF . (compound_statement . 0))) - ((default . error) (LOOP . 680)) - ((default . error) (NULL . 636) (GOTO . 633) (ABORT . 626) (ACCEPT . 625) (DECLARE . 629) (BEGIN . 627) (LOOP . 635) (CASE . 628) (IF . 634) (PRAGMA . 7) (RAISE . 637) (DELAY . 630) (REQUEUE . 638) (RETURN . 639) (EXIT . 631) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (WHILE . 641) (FOR . 632) (SELECT . 640)) + ((default . error) (LOOP . 685)) + ((default . error) (NULL . 641) (GOTO . 638) (ABORT . 631) (ACCEPT . 630) (DECLARE . 634) (BEGIN . 632) (LOOP . 640) (CASE . 633) (IF . 639) (PRAGMA . 7) (RAISE . 642) (DELAY . 635) (REQUEUE . 643) (RETURN . 644) (EXIT . 636) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (WHILE . 646) (FOR . 637) (SELECT . 645)) ((default . error) (OR . (compound_statement . 2)) (THEN . (compound_statement . 2)) (WHEN . (compound_statement . 2)) (EXCEPTION . (compound_statement . 2)) (END . (compound_statement . 2)) (ACCEPT . (compound_statement . 2)) (ABORT . (compound_statement . 2)) (BEGIN . (compound_statement . 2)) (CASE . (compound_statement . 2)) (DECLARE . (compound_statement . 2)) (DELAY . (compound_statement . 2)) (EXIT . (compound_statement . 2)) (FOR . (compound_statement . 2)) (GOTO . (compound_statement . 2)) (IF . (compound_statement . 2)) (LOOP . (compound_statement . 2)) (NULL . (compound_statement . 2)) (PRAGMA . (compound_statement . 2)) (RAISE . (compound_statement . 2)) (REQUEUE . (compound_statement . 2)) (RETURN . (compound_statement . 2)) (SELECT . (compound_statement . 2)) (WHILE . (compound_statement . 2)) (LESS_LESS . (compound_statement . 2)) (IDENTIFIER . (compound_statement . 2)) (STRING_LITERAL . (compound_statement . 2)) (CHARACTER_LITERAL . (compound_statement . 2)) (ELSE . (compound_statement . 2)) (ELSIF . (compound_statement . 2))) - ((default . error) (DOT . 90) (SEMICOLON . 677) (TICK . 91) (COLON_EQUAL . 676) (LEFT_PAREN . 107)) + ((default . error) (DOT . 90) (SEMICOLON . 682) (TICK . 91) (COLON_EQUAL . 681) (LEFT_PAREN . 107)) ((default . error) (OR . (simple_statement . 10)) (THEN . (simple_statement . 10)) (WHEN . (simple_statement . 10)) (EXCEPTION . (simple_statement . 10)) (END . (simple_statement . 10)) (ACCEPT . (simple_statement . 10)) (ABORT . (simple_statement . 10)) (BEGIN . (simple_statement . 10)) (CASE . (simple_statement . 10)) (DECLARE . (simple_statement . 10)) (DELAY . (simple_statement . 10)) (EXIT . (simple_statement . 10)) (FOR . (simple_statement . 10)) (GOTO . (simple_statement . 10)) (IF . (simple_statement . 10)) (LOOP . (simple_statement . 10)) (NULL . (simple_statement . 10)) (PRAGMA . (simple_statement . 10)) (RAISE . (simple_statement . 10)) (REQUEUE . (simple_statement . 10)) (RETURN . (simple_statement . 10)) (SELECT . (simple_statement . 10)) (WHILE . (simple_statement . 10)) (LESS_LESS . (simple_statement . 10)) (IDENTIFIER . (simple_statement . 10)) (STRING_LITERAL . (simple_statement . 10)) (CHARACTER_LITERAL . (simple_statement . 10)) (ELSE . (simple_statement . 10)) (ELSIF . (simple_statement . 10))) ((default . error) (OR . (simple_statement . 4)) (THEN . (simple_statement . 4)) (WHEN . (simple_statement . 4)) (EXCEPTION . (simple_statement . 4)) (END . (simple_statement . 4)) (ACCEPT . (simple_statement . 4)) (ABORT . (simple_statement . 4)) (BEGIN . (simple_statement . 4)) (CASE . (simple_statement . 4)) (DECLARE . (simple_statement . 4)) (DELAY . (simple_statement . 4)) (EXIT . (simple_statement . 4)) (FOR . (simple_statement . 4)) (GOTO . (simple_statement . 4)) (IF . (simple_statement . 4)) (LOOP . (simple_statement . 4)) (NULL . (simple_statement . 4)) (PRAGMA . (simple_statement . 4)) (RAISE . (simple_statement . 4)) (REQUEUE . (simple_statement . 4)) (RETURN . (simple_statement . 4)) (SELECT . (simple_statement . 4)) (WHILE . (simple_statement . 4)) (LESS_LESS . (simple_statement . 4)) (IDENTIFIER . (simple_statement . 4)) (STRING_LITERAL . (simple_statement . 4)) (CHARACTER_LITERAL . (simple_statement . 4)) (ELSE . (simple_statement . 4)) (ELSIF . (simple_statement . 4))) ((default . error) (OR . (simple_statement . 9)) (THEN . (simple_statement . 9)) (WHEN . (simple_statement . 9)) (EXCEPTION . (simple_statement . 9)) (END . (simple_statement . 9)) (ACCEPT . (simple_statement . 9)) (ABORT . (simple_statement . 9)) (BEGIN . (simple_statement . 9)) (CASE . (simple_statement . 9)) (DECLARE . (simple_statement . 9)) (DELAY . (simple_statement . 9)) (EXIT . (simple_statement . 9)) (FOR . (simple_statement . 9)) (GOTO . (simple_statement . 9)) (IF . (simple_statement . 9)) (LOOP . (simple_statement . 9)) (NULL . (simple_statement . 9)) (PRAGMA . (simple_statement . 9)) (RAISE . (simple_statement . 9)) (REQUEUE . (simple_statement . 9)) (RETURN . (simple_statement . 9)) (SELECT . (simple_statement . 9)) (WHILE . (simple_statement . 9)) (LESS_LESS . (simple_statement . 9)) (IDENTIFIER . (simple_statement . 9)) (STRING_LITERAL . (simple_statement . 9)) (CHARACTER_LITERAL . (simple_statement . 9)) (ELSE . (simple_statement . 9)) (ELSIF . (simple_statement . 9))) ((default . error) (OR . (simple_statement . 6)) (THEN . (simple_statement . 6)) (WHEN . (simple_statement . 6)) (EXCEPTION . (simple_statement . 6)) (END . (simple_statement . 6)) (ACCEPT . (simple_statement . 6)) (ABORT . (simple_statement . 6)) (BEGIN . (simple_statement . 6)) (CASE . (simple_statement . 6)) (DECLARE . (simple_statement . 6)) (DELAY . (simple_statement . 6)) (EXIT . (simple_statement . 6)) (FOR . (simple_statement . 6)) (GOTO . (simple_statement . 6)) (IF . (simple_statement . 6)) (LOOP . (simple_statement . 6)) (NULL . (simple_statement . 6)) (PRAGMA . (simple_statement . 6)) (RAISE . (simple_statement . 6)) (REQUEUE . (simple_statement . 6)) (RETURN . (simple_statement . 6)) (SELECT . (simple_statement . 6)) (WHILE . (simple_statement . 6)) (LESS_LESS . (simple_statement . 6)) (IDENTIFIER . (simple_statement . 6)) (STRING_LITERAL . (simple_statement . 6)) (CHARACTER_LITERAL . (simple_statement . 6)) (ELSE . (simple_statement . 6)) (ELSIF . (simple_statement . 6))) ((default . error) (OR . (select_statement . 0)) (THEN . (select_statement . 0)) (WHEN . (select_statement . 0)) (EXCEPTION . (select_statement . 0)) (END . (select_statement . 0)) (ACCEPT . (select_statement . 0)) (ABORT . (select_statement . 0)) (BEGIN . (select_statement . 0)) (CASE . (select_statement . 0)) (DECLARE . (select_statement . 0)) (DELAY . (select_statement . 0)) (EXIT . (select_statement . 0)) (FOR . (select_statement . 0)) (GOTO . (select_statement . 0)) (IF . (select_statement . 0)) (LOOP . (select_statement . 0)) (NULL . (select_statement . 0)) (PRAGMA . (select_statement . 0)) (RAISE . (select_statement . 0)) (REQUEUE . (select_statement . 0)) (RETURN . (select_statement . 0)) (SELECT . (select_statement . 0)) (WHILE . (select_statement . 0)) (LESS_LESS . (select_statement . 0)) (IDENTIFIER . (select_statement . 0)) (STRING_LITERAL . (select_statement . 0)) (CHARACTER_LITERAL . (select_statement . 0)) (ELSE . (select_statement . 0)) (ELSIF . (select_statement . 0))) ((default . error) (OR . (compound_statement . 6)) (THEN . (compound_statement . 6)) (WHEN . (compound_statement . 6)) (EXCEPTION . (compound_statement . 6)) (END . (compound_statement . 6)) (ACCEPT . (compound_statement . 6)) (ABORT . (compound_statement . 6)) (BEGIN . (compound_statement . 6)) (CASE . (compound_statement . 6)) (DECLARE . (compound_statement . 6)) (DELAY . (compound_statement . 6)) (EXIT . (compound_statement . 6)) (FOR . (compound_statement . 6)) (GOTO . (compound_statement . 6)) (IF . (compound_statement . 6)) (LOOP . (compound_statement . 6)) (NULL . (compound_statement . 6)) (PRAGMA . (compound_statement . 6)) (RAISE . (compound_statement . 6)) (REQUEUE . (compound_statement . 6)) (RETURN . (compound_statement . 6)) (SELECT . (compound_statement . 6)) (WHILE . (compound_statement . 6)) (LESS_LESS . (compound_statement . 6)) (IDENTIFIER . (compound_statement . 6)) (STRING_LITERAL . (compound_statement . 6)) (CHARACTER_LITERAL . (compound_statement . 6)) (ELSE . (compound_statement . 6)) (ELSIF . (compound_statement . 6))) - ((default . error) (WHEN . (sequence_of_statements_opt . 1)) (THEN . (sequence_of_statements_opt . 1)) (OR . (sequence_of_statements_opt . 1)) (ELSIF . (sequence_of_statements_opt . 1)) (ELSE . (sequence_of_statements_opt . 1)) (END . (sequence_of_statements_opt . 1)) (EXCEPTION . (sequence_of_statements_opt . 1)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (END . (handled_sequence_of_statements . 1)) (EXCEPTION . 674)) + ((default . error) (WHEN . (sequence_of_statements_opt . 1)) (THEN . (sequence_of_statements_opt . 1)) (OR . (sequence_of_statements_opt . 1)) (ELSIF . (sequence_of_statements_opt . 1)) (ELSE . (sequence_of_statements_opt . 1)) (END . (sequence_of_statements_opt . 1)) (EXCEPTION . (sequence_of_statements_opt . 1)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (END . (handled_sequence_of_statements . 1)) (EXCEPTION . 679)) ((default . error) (OR . (simple_statement . 5)) (THEN . (simple_statement . 5)) (WHEN . (simple_statement . 5)) (EXCEPTION . (simple_statement . 5)) (END . (simple_statement . 5)) (ACCEPT . (simple_statement . 5)) (ABORT . (simple_statement . 5)) (BEGIN . (simple_statement . 5)) (CASE . (simple_statement . 5)) (DECLARE . (simple_statement . 5)) (DELAY . (simple_statement . 5)) (EXIT . (simple_statement . 5)) (FOR . (simple_statement . 5)) (GOTO . (simple_statement . 5)) (IF . (simple_statement . 5)) (LOOP . (simple_statement . 5)) (NULL . (simple_statement . 5)) (PRAGMA . (simple_statement . 5)) (RAISE . (simple_statement . 5)) (REQUEUE . (simple_statement . 5)) (RETURN . (simple_statement . 5)) (SELECT . (simple_statement . 5)) (WHILE . (simple_statement . 5)) (LESS_LESS . (simple_statement . 5)) (IDENTIFIER . (simple_statement . 5)) (STRING_LITERAL . (simple_statement . 5)) (CHARACTER_LITERAL . (simple_statement . 5)) (ELSE . (simple_statement . 5)) (ELSIF . (simple_statement . 5))) ((default . error) (WHEN . (sequence_of_statements . 0)) (THEN . (sequence_of_statements . 0)) (OR . (sequence_of_statements . 0)) (ELSIF . (sequence_of_statements . 0)) (ELSE . (sequence_of_statements . 0)) (EXCEPTION . (sequence_of_statements . 0)) (END . (sequence_of_statements . 0)) (ACCEPT . (sequence_of_statements . 0)) (ABORT . (sequence_of_statements . 0)) (BEGIN . (sequence_of_statements . 0)) (CASE . (sequence_of_statements . 0)) (DECLARE . (sequence_of_statements . 0)) (DELAY . (sequence_of_statements . 0)) (EXIT . (sequence_of_statements . 0)) (FOR . (sequence_of_statements . 0)) (GOTO . (sequence_of_statements . 0)) (IF . (sequence_of_statements . 0)) (LOOP . (sequence_of_statements . 0)) (NULL . (sequence_of_statements . 0)) (PRAGMA . (sequence_of_statements . 0)) (RAISE . (sequence_of_statements . 0)) (REQUEUE . (sequence_of_statements . 0)) (RETURN . (sequence_of_statements . 0)) (SELECT . (sequence_of_statements . 0)) (WHILE . (sequence_of_statements . 0)) (LESS_LESS . (sequence_of_statements . 0)) (IDENTIFIER . (sequence_of_statements . 0)) (STRING_LITERAL . (sequence_of_statements . 0)) (CHARACTER_LITERAL . (sequence_of_statements . 0))) ((default . error) (OR . (select_statement . 1)) (THEN . (select_statement . 1)) (WHEN . (select_statement . 1)) (EXCEPTION . (select_statement . 1)) (END . (select_statement . 1)) (ACCEPT . (select_statement . 1)) (ABORT . (select_statement . 1)) (BEGIN . (select_statement . 1)) (CASE . (select_statement . 1)) (DECLARE . (select_statement . 1)) (DELAY . (select_statement . 1)) (EXIT . (select_statement . 1)) (FOR . (select_statement . 1)) (GOTO . (select_statement . 1)) (IF . (select_statement . 1)) (LOOP . (select_statement . 1)) (NULL . (select_statement . 1)) (PRAGMA . (select_statement . 1)) (RAISE . (select_statement . 1)) (REQUEUE . (select_statement . 1)) (RETURN . (select_statement . 1)) (SELECT . (select_statement . 1)) (WHILE . (select_statement . 1)) (LESS_LESS . (select_statement . 1)) (IDENTIFIER . (select_statement . 1)) (STRING_LITERAL . (select_statement . 1)) (CHARACTER_LITERAL . (select_statement . 1)) (ELSE . (select_statement . 1)) (ELSIF . (select_statement . 1))) - ((default . error) (SEMICOLON . 673)) - ((default . error) (SEMICOLON . 672)) + ((default . error) (SEMICOLON . 678)) + ((default . error) (SEMICOLON . 677)) ((default . error) (IDENTIFIER . (generic_instantiation . 2)) (TYPE . (generic_instantiation . 2)) (TASK . (generic_instantiation . 2)) (SUBTYPE . (generic_instantiation . 2)) (PROTECTED . (generic_instantiation . 2)) (FOR . (generic_instantiation . 2)) (ENTRY . (generic_instantiation . 2)) (BEGIN . (generic_instantiation . 2)) (END . (generic_instantiation . 2)) (WITH . (generic_instantiation . 2)) (USE . (generic_instantiation . 2)) (SEPARATE . (generic_instantiation . 2)) (PROCEDURE . (generic_instantiation . 2)) (PRIVATE . (generic_instantiation . 2)) (PRAGMA . (generic_instantiation . 2)) (PACKAGE . (generic_instantiation . 2)) (OVERRIDING . (generic_instantiation . 2)) (NOT . (generic_instantiation . 2)) (LIMITED . (generic_instantiation . 2)) (GENERIC . (generic_instantiation . 2)) (FUNCTION . (generic_instantiation . 2)) ($EOI . (generic_instantiation . 2))) ((default . error) (IDENTIFIER . (generic_instantiation . 1)) (TYPE . (generic_instantiation . 1)) (TASK . (generic_instantiation . 1)) (SUBTYPE . (generic_instantiation . 1)) (PROTECTED . (generic_instantiation . 1)) (FOR . (generic_instantiation . 1)) (ENTRY . (generic_instantiation . 1)) (BEGIN . (generic_instantiation . 1)) (END . (generic_instantiation . 1)) (WITH . (generic_instantiation . 1)) (USE . (generic_instantiation . 1)) (SEPARATE . (generic_instantiation . 1)) (PROCEDURE . (generic_instantiation . 1)) (PRIVATE . (generic_instantiation . 1)) (PRAGMA . (generic_instantiation . 1)) (PACKAGE . (generic_instantiation . 1)) (OVERRIDING . (generic_instantiation . 1)) (NOT . (generic_instantiation . 1)) (LIMITED . (generic_instantiation . 1)) (GENERIC . (generic_instantiation . 1)) (FUNCTION . (generic_instantiation . 1)) ($EOI . (generic_instantiation . 1))) - ((default . error) (END . (exception_handler_list_opt . 0)) (WHEN . 945)) + ((default . error) (END . (exception_handler_list_opt . 0)) (WHEN . 950)) ((default . error) (OR . (sequence_of_statements . 1)) (THEN . (sequence_of_statements . 1)) (WHEN . (sequence_of_statements . 1)) (CHARACTER_LITERAL . (sequence_of_statements . 1)) (STRING_LITERAL . (sequence_of_statements . 1)) (IDENTIFIER . (sequence_of_statements . 1)) (LESS_LESS . (sequence_of_statements . 1)) (WHILE . (sequence_of_statements . 1)) (SELECT . (sequence_of_statements . 1)) (RETURN . (sequence_of_statements . 1)) (REQUEUE . (sequence_of_statements . 1)) (RAISE . (sequence_of_statements . 1)) (PRAGMA . (sequence_of_statements . 1)) (NULL . (sequence_of_statements . 1)) (LOOP . (sequence_of_statements . 1)) (IF . (sequence_of_statements . 1)) (GOTO . (sequence_of_statements . 1)) (FOR . (sequence_of_statements . 1)) (EXIT . (sequence_of_statements . 1)) (DELAY . (sequence_of_statements . 1)) (DECLARE . (sequence_of_statements . 1)) (CASE . (sequence_of_statements . 1)) (BEGIN . (sequence_of_statements . 1)) (ABORT . (sequence_of_statements . 1)) (ACCEPT . (sequence_of_statements . 1)) (END . (sequence_of_statements . 1)) (EXCEPTION . (sequence_of_statements . 1)) (ELSE . (sequence_of_statements . 1)) (ELSIF . (sequence_of_statements . 1))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (WHEN . (procedure_call_statement . 0)) (OR . (procedure_call_statement . 0)) (THEN . (procedure_call_statement . 0)) (ELSIF . (procedure_call_statement . 0)) (ELSE . (procedure_call_statement . 0)) (CHARACTER_LITERAL . (procedure_call_statement . 0)) (STRING_LITERAL . (procedure_call_statement . 0)) (IDENTIFIER . (procedure_call_statement . 0)) (LESS_LESS . (procedure_call_statement . 0)) (WHILE . (procedure_call_statement . 0)) (SELECT . (procedure_call_statement . 0)) (RETURN . (procedure_call_statement . 0)) (REQUEUE . (procedure_call_statement . 0)) (RAISE . (procedure_call_statement . 0)) (PRAGMA . (procedure_call_statement . 0)) (NULL . (procedure_call_statement . 0)) (LOOP . (procedure_call_statement . 0)) (IF . (procedure_call_statement . 0)) (GOTO . (procedure_call_statement . 0)) (FOR . (procedure_call_statement . 0)) (EXIT . (procedure_call_statement . 0)) (DELAY . (procedure_call_statement . 0)) (DECLARE . (procedure_call_statement . 0)) (CASE . (procedure_call_statement . 0)) (BEGIN . (procedure_call_statement . 0)) (ABORT . (procedure_call_statement . 0)) (ACCEPT . (procedure_call_statement . 0)) (END . (procedure_call_statement . 0)) (EXCEPTION . (procedure_call_statement . 0))) ((default . error) (OR . (statement . 1)) (THEN . (statement . 1)) (WHEN . (statement . 1)) (EXCEPTION . (statement . 1)) (END . (statement . 1)) (ACCEPT . (statement . 1)) (ABORT . (statement . 1)) (BEGIN . (statement . 1)) (CASE . (statement . 1)) (DECLARE . (statement . 1)) (DELAY . (statement . 1)) (EXIT . (statement . 1)) (FOR . (statement . 1)) (GOTO . (statement . 1)) (IF . (statement . 1)) (LOOP . (statement . 1)) (NULL . (statement . 1)) (PRAGMA . (statement . 1)) (RAISE . (statement . 1)) (REQUEUE . (statement . 1)) (RETURN . (statement . 1)) (SELECT . (statement . 1)) (WHILE . (statement . 1)) (LESS_LESS . (statement . 1)) (IDENTIFIER . (statement . 1)) (STRING_LITERAL . (statement . 1)) (CHARACTER_LITERAL . (statement . 1)) (ELSE . (statement . 1)) (ELSIF . (statement . 1))) ((default . error) (OR . (statement . 0)) (THEN . (statement . 0)) (WHEN . (statement . 0)) (EXCEPTION . (statement . 0)) (END . (statement . 0)) (ACCEPT . (statement . 0)) (ABORT . (statement . 0)) (BEGIN . (statement . 0)) (CASE . (statement . 0)) (DECLARE . (statement . 0)) (DELAY . (statement . 0)) (EXIT . (statement . 0)) (FOR . (statement . 0)) (GOTO . (statement . 0)) (IF . (statement . 0)) (LOOP . (statement . 0)) (NULL . (statement . 0)) (PRAGMA . (statement . 0)) (RAISE . (statement . 0)) (REQUEUE . (statement . 0)) (RETURN . (statement . 0)) (SELECT . (statement . 0)) (WHILE . (statement . 0)) (LESS_LESS . (statement . 0)) (IDENTIFIER . (statement . 0)) (STRING_LITERAL . (statement . 0)) (CHARACTER_LITERAL . (statement . 0)) (ELSE . (statement . 0)) (ELSIF . (statement . 0))) - ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (CHARACTER_LITERAL . (label_opt . 2)) (STRING_LITERAL . (label_opt . 2)) (IDENTIFIER . (label_opt . 2)) (REQUEUE . (label_opt . 2)) (RAISE . (label_opt . 2)) (PRAGMA . (label_opt . 2)) (NULL . (label_opt . 2)) (GOTO . (label_opt . 2)) (EXIT . (label_opt . 2)) (DELAY . (label_opt . 2)) (ABORT . (label_opt . 2)) (WHILE . (label_opt . 2)) (SELECT . (label_opt . 2)) (RETURN . (label_opt . 2)) (LOOP . (label_opt . 2)) (IF . (label_opt . 2)) (FOR . (label_opt . 2)) (DECLARE . (label_opt . 2)) (CASE . (label_opt . 2)) (BEGIN . (label_opt . 2)) (ACCEPT . (label_opt . 2))) - ((default . error) (GREATER_GREATER . 941)) + ((default . error) (GREATER_GREATER . 946)) ((default . error) (LOOP . (iteration_scheme . 0))) - ((default . error) (SEMICOLON . 940)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (SEMICOLON . 945)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (ELSE . (select_alternative . 3)) (OR . (select_alternative . 3)) (END . (select_alternative . 3))) - ((default . error) (OR . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (ELSE . 935) (OR . 936)) - ((default . error) (DOT . 90) (SEMICOLON . 677) (TICK . 91) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (LEFT_PAREN . 107) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (OR . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (ELSE . 940) (OR . 941)) + ((default . error) (DOT . 90) (SEMICOLON . 682) (TICK . 91) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (LEFT_PAREN . 107) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (ELSE . (select_alternative_list . 0)) (END . (select_alternative_list . 0)) (OR . (select_alternative_list . 0))) - ((default . error) (ELSE . (select_alternative_list_opt . 1)) (END . (select_alternative_list_opt . 1)) (OR . 932)) - ((default . error) (ELSE . 930) (END . 931)) - ((default . error) (THEN . 929)) + ((default . error) (ELSE . (select_alternative_list_opt . 1)) (END . (select_alternative_list_opt . 1)) (OR . 937)) + ((default . error) (ELSE . 935) (END . 936)) + ((default . error) (THEN . 934)) ((default . error) (WHEN . (simple_return_statement . 0)) (THEN . (simple_return_statement . 0)) (OR . (simple_return_statement . 0)) (ELSIF . (simple_return_statement . 0)) (ELSE . (simple_return_statement . 0)) (CHARACTER_LITERAL . (simple_return_statement . 0)) (STRING_LITERAL . (simple_return_statement . 0)) (IDENTIFIER . (simple_return_statement . 0)) (LESS_LESS . (simple_return_statement . 0)) (WHILE . (simple_return_statement . 0)) (SELECT . (simple_return_statement . 0)) (RETURN . (simple_return_statement . 0)) (REQUEUE . (simple_return_statement . 0)) (RAISE . (simple_return_statement . 0)) (PRAGMA . (simple_return_statement . 0)) (NULL . (simple_return_statement . 0)) (LOOP . (simple_return_statement . 0)) (IF . (simple_return_statement . 0)) (GOTO . (simple_return_statement . 0)) (FOR . (simple_return_statement . 0)) (EXIT . (simple_return_statement . 0)) (DELAY . (simple_return_statement . 0)) (DECLARE . (simple_return_statement . 0)) (CASE . (simple_return_statement . 0)) (BEGIN . (simple_return_statement . 0)) (ABORT . (simple_return_statement . 0)) (ACCEPT . (simple_return_statement . 0)) (END . (simple_return_statement . 0)) (EXCEPTION . (simple_return_statement . 0))) - ((default . error) (COLON . 928) (STAR_STAR . (name . 0)) (STAR . (name . 0)) (SLASH . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (SEMICOLON . (name . 0)) (SLASH_EQUAL . (name . 0)) (LESS_EQUAL . (name . 0)) (LESS . (name . 0)) (GREATER_EQUAL . (name . 0)) (GREATER . (name . 0)) (EQUAL . (name . 0)) (NOT . (name . 0)) (IN . (name . 0)) (AMPERSAND . (name . 0)) (MINUS . (name . 0)) (PLUS . (name . 0)) (LEFT_PAREN . (name . 0)) (AND . (name . 0)) (OR . (name . 0)) (XOR . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) - ((default . error) (SEMICOLON . 927)) - ((default . error) (DO . (extended_return_object_declaration_opt . 1)) (SEMICOLON . 926)) - ((default . error) (DO . 925)) - ((default . error) (WITH . 923) (DOT . 90) (TICK . 91) (SEMICOLON . 924) (LEFT_PAREN . 107)) + ((default . error) (COLON . 933) (STAR_STAR . (name . 0)) (STAR . (name . 0)) (SLASH . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (SEMICOLON . (name . 0)) (SLASH_EQUAL . (name . 0)) (LESS_EQUAL . (name . 0)) (LESS . (name . 0)) (GREATER_EQUAL . (name . 0)) (GREATER . (name . 0)) (EQUAL . (name . 0)) (NOT . (name . 0)) (IN . (name . 0)) (AMPERSAND . (name . 0)) (MINUS . (name . 0)) (PLUS . (name . 0)) (LEFT_PAREN . (name . 0)) (AND . (name . 0)) (OR . (name . 0)) (XOR . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) + ((default . error) (SEMICOLON . 932)) + ((default . error) (DO . (extended_return_object_declaration_opt . 1)) (SEMICOLON . 931)) + ((default . error) (DO . 930)) + ((default . error) (WITH . 928) (DOT . 90) (TICK . 91) (SEMICOLON . 929) (LEFT_PAREN . 107)) ((default . error) (WHEN . (raise_statement . 0)) (THEN . (raise_statement . 0)) (OR . (raise_statement . 0)) (ELSIF . (raise_statement . 0)) (ELSE . (raise_statement . 0)) (CHARACTER_LITERAL . (raise_statement . 0)) (STRING_LITERAL . (raise_statement . 0)) (IDENTIFIER . (raise_statement . 0)) (LESS_LESS . (raise_statement . 0)) (WHILE . (raise_statement . 0)) (SELECT . (raise_statement . 0)) (RETURN . (raise_statement . 0)) (REQUEUE . (raise_statement . 0)) (RAISE . (raise_statement . 0)) (PRAGMA . (raise_statement . 0)) (NULL . (raise_statement . 0)) (LOOP . (raise_statement . 0)) (IF . (raise_statement . 0)) (GOTO . (raise_statement . 0)) (FOR . (raise_statement . 0)) (EXIT . (raise_statement . 0)) (DELAY . (raise_statement . 0)) (DECLARE . (raise_statement . 0)) (CASE . (raise_statement . 0)) (BEGIN . (raise_statement . 0)) (ABORT . (raise_statement . 0)) (ACCEPT . (raise_statement . 0)) (END . (raise_statement . 0)) (EXCEPTION . (raise_statement . 0))) - ((default . error) (WITH . 921) (DOT . 90) (TICK . 91) (SEMICOLON . 922) (LEFT_PAREN . 107)) + ((default . error) (WITH . 926) (DOT . 90) (TICK . 91) (SEMICOLON . 927) (LEFT_PAREN . 107)) ((default . error) (WHEN . (simple_statement . 0)) (THEN . (simple_statement . 0)) (OR . (simple_statement . 0)) (ELSIF . (simple_statement . 0)) (ELSE . (simple_statement . 0)) (CHARACTER_LITERAL . (simple_statement . 0)) (STRING_LITERAL . (simple_statement . 0)) (IDENTIFIER . (simple_statement . 0)) (LESS_LESS . (simple_statement . 0)) (WHILE . (simple_statement . 0)) (SELECT . (simple_statement . 0)) (RETURN . (simple_statement . 0)) (REQUEUE . (simple_statement . 0)) (RAISE . (simple_statement . 0)) (PRAGMA . (simple_statement . 0)) (NULL . (simple_statement . 0)) (LOOP . (simple_statement . 0)) (IF . (simple_statement . 0)) (GOTO . (simple_statement . 0)) (FOR . (simple_statement . 0)) (EXIT . (simple_statement . 0)) (DELAY . (simple_statement . 0)) (DECLARE . (simple_statement . 0)) (CASE . (simple_statement . 0)) (BEGIN . (simple_statement . 0)) (ABORT . (simple_statement . 0)) (ACCEPT . (simple_statement . 0)) (END . (simple_statement . 0)) (EXCEPTION . (simple_statement . 0))) - ((default . error) (END . 920)) - ((default . error) (THEN . 919)) - ((default . error) (SEMICOLON . 918)) + ((default . error) (END . 925)) + ((default . error) (THEN . 924)) + ((default . error) (SEMICOLON . 923)) ((default . error) (LOOP . (iterator_specification_opt . 1))) ((default . error) (LOOP . (iteration_scheme . 1))) ((default . error) (WHEN . (identifier_opt . 1)) (SEMICOLON . (identifier_opt . 1))) - ((default . error) (WHEN . 916) (SEMICOLON . 917)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 914)) - ((default . error) (BEGIN . 913)) - ((default . error) (IS . 912)) - ((default . error) (END . 911)) - ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . 910) (LEFT_PAREN . 107)) - ((default . error) (SEMICOLON . (actual_parameter_part_opt . 0)) (DO . (actual_parameter_part_opt . 0)) (LEFT_PAREN . ( 907 (actual_parameter_part_opt . 0)))) - ((default . error) (IS . 906)) - ((default . error) (IS . 905)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (REVERSE . 902) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 769) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (REVERSE . 900) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (NOT . 750) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (COMMA . (pragma_argument_association . 2)) (RIGHT_PAREN . (pragma_argument_association . 2))) - ((default . error) (SEMICOLON . 898)) - ((default . error) (END . 897)) - ((default . error) (IDENTIFIER . 228) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 769) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (WHEN . 921) (SEMICOLON . 922)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 919)) + ((default . error) (BEGIN . 918)) + ((default . error) (IS . 917)) + ((default . error) (END . 916)) + ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . 915) (LEFT_PAREN . 107)) + ((default . error) (SEMICOLON . (actual_parameter_part_opt . 0)) (DO . (actual_parameter_part_opt . 0)) (LEFT_PAREN . ( 912 (actual_parameter_part_opt . 0)))) + ((default . error) (IS . 911)) + ((default . error) (IS . 910)) + ((default . error) (WHEN . 624)) + ((default . error) (BAR . 286) (EQUAL_GREATER . 908)) + ((default . error) (NULL . 907)) + ((default . error) (DO . (subtype_indication . 3)) (OF . (subtype_indication . 3)) (AND . (subtype_indication . 3)) (SEMICOLON . (subtype_indication . 3)) (WITH . (subtype_indication . 3)) (COLON_EQUAL . (subtype_indication . 3)) (DOT . 90) (TICK . 91) (RANGE . 902) (LEFT_PAREN . 827)) + ((default . error) (OF . 906)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 5)) (EQUAL_GREATER . (iterator_specification . 5)) (LEFT_PAREN . 107)) + ((default . error) (NUMERIC_LITERAL . 155) (NULL . 904) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 734) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (LOOP . (iterator_specification . 1)) (EQUAL_GREATER . (iterator_specification . 1))) + ((default . error) (LOOP . (subtype_indication . 3)) (DOT . 90) (IN . (primary . 3)) (NOT . (primary . 3)) (EQUAL . (primary . 3)) (GREATER . (primary . 3)) (GREATER_EQUAL . (primary . 3)) (LESS . (primary . 3)) (LESS_EQUAL . (primary . 3)) (SLASH_EQUAL . (primary . 3)) (RIGHT_PAREN . ((primary . 3) (subtype_indication . 3))) (COMMA . ((primary . 3) (subtype_indication . 3))) (BAR . (primary . 3)) (EQUAL_GREATER . ((primary . 3) (subtype_indication . 3))) (AND . (primary . 3)) (OR . (primary . 3)) (XOR . (primary . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (STAR_STAR . (primary . 3)) (TICK . 285) (RANGE . 902) (LEFT_PAREN . 827)) + ((default . error) (LOOP . (discrete_subtype_definition . 1)) (EQUAL_GREATER . (discrete_subtype_definition . 1)) (COMMA . (discrete_subtype_definition . 1)) (RIGHT_PAREN . (discrete_subtype_definition . 1))) + ((default . error) (LOOP . (discrete_subtype_definition . 0)) (EQUAL_GREATER . (discrete_subtype_definition . 0)) (COMMA . (discrete_subtype_definition . 0)) (RIGHT_PAREN . (discrete_subtype_definition . 0))) + ((default . error) (COMMA . (quantified_expression . 0)) (RIGHT_PAREN . (quantified_expression . 0))) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (COMMA . (elsif_expression_list . 0)) (RIGHT_PAREN . (elsif_expression_list . 0)) (ELSE . (elsif_expression_list . 0)) (ELSIF . (elsif_expression_list . 0))) + ((default . error) (COMMA . (if_expression . 1)) (RIGHT_PAREN . (if_expression . 1)) (ELSE . 898) (ELSIF . 742)) + ((default . error) (USE . (aggregate . 1)) (COLON_EQUAL . (aggregate . 1)) (CHARACTER_LITERAL . (aggregate . 1)) (STRING_LITERAL . (aggregate . 1)) (IDENTIFIER . (aggregate . 1)) (LESS_LESS . (aggregate . 1)) (WHILE . (aggregate . 1)) (SELECT . (aggregate . 1)) (REQUEUE . (aggregate . 1)) (RAISE . (aggregate . 1)) (PRAGMA . (aggregate . 1)) (NULL . (aggregate . 1)) (IF . (aggregate . 1)) (GOTO . (aggregate . 1)) (FOR . (aggregate . 1)) (EXIT . (aggregate . 1)) (DELAY . (aggregate . 1)) (DECLARE . (aggregate . 1)) (CASE . (aggregate . 1)) (BEGIN . (aggregate . 1)) (ABORT . (aggregate . 1)) (ACCEPT . (aggregate . 1)) (OF . (aggregate . 1)) (DO . (aggregate . 1)) (LOOP . (aggregate . 1)) (LEFT_PAREN . (aggregate . 1)) (DOT . (aggregate . 1)) (TICK . (aggregate . 1)) (RENAMES . (aggregate . 1)) (RETURN . (aggregate . 1)) (ELSIF . (aggregate . 1)) (ELSE . (aggregate . 1)) (DIGITS . (aggregate . 1)) (COMMA . (aggregate . 1)) (RIGHT_PAREN . (aggregate . 1)) (RANGE . (aggregate . 1)) (THEN . (aggregate . 1)) (WITH . (aggregate . 1)) (BAR . (aggregate . 1)) (EQUAL_GREATER . (aggregate . 1)) (IS . (aggregate . 1)) (SLASH_EQUAL . (aggregate . 1)) (LESS_EQUAL . (aggregate . 1)) (LESS . (aggregate . 1)) (GREATER_EQUAL . (aggregate . 1)) (GREATER . (aggregate . 1)) (EQUAL . (aggregate . 1)) (NOT . (aggregate . 1)) (IN . (aggregate . 1)) (AND . (aggregate . 1)) (OR . (aggregate . 1)) (XOR . (aggregate . 1)) (SEMICOLON . (aggregate . 1)) (STAR_STAR . (aggregate . 1)) (STAR . (aggregate . 1)) (SLASH . (aggregate . 1)) (REM . (aggregate . 1)) (MOD . (aggregate . 1)) (DOT_DOT . (aggregate . 1)) (AMPERSAND . (aggregate . 1)) (MINUS . (aggregate . 1)) (PLUS . (aggregate . 1))) + ((default . error) (RIGHT_PAREN . 897)) + ((default . error) (COMMA . (pragma_argument_association . 3)) (RIGHT_PAREN . (pragma_argument_association . 3))) + ((default . error) (SEMICOLON . 896)) + ((default . error) (END . 895)) + ((default . error) (IDENTIFIER . 235) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 734) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (CASE . 239) (IF . 240) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (ARRAY . (constant_opt . 1)) (ACCESS . (constant_opt . 1)) (NOT . (constant_opt . 1)) (IDENTIFIER . (constant_opt . 1)) (STRING_LITERAL . (constant_opt . 1)) (CHARACTER_LITERAL . (constant_opt . 1))) - ((default . error) (ARRAY . 490) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) + ((default . error) (ARRAY . 498) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) ((default . error) (IDENTIFIER . (exception_declaration . 0)) (USE . (exception_declaration . 0)) (TYPE . (exception_declaration . 0)) (TASK . (exception_declaration . 0)) (SUBTYPE . (exception_declaration . 0)) (PROTECTED . (exception_declaration . 0)) (PROCEDURE . (exception_declaration . 0)) (PRAGMA . (exception_declaration . 0)) (PACKAGE . (exception_declaration . 0)) (OVERRIDING . (exception_declaration . 0)) (NOT . (exception_declaration . 0)) (GENERIC . (exception_declaration . 0)) (FUNCTION . (exception_declaration . 0)) (FOR . (exception_declaration . 0)) (ENTRY . (exception_declaration . 0)) (BEGIN . (exception_declaration . 0)) (END . (exception_declaration . 0)) (PRIVATE . (exception_declaration . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (DOT . 90) (TICK . 91) (RENAMES . 880) (LEFT_PAREN . 107)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 0)) (NULL . (abstract_tagged_limited_opt . 0)) (RECORD . (abstract_tagged_limited_opt . 0)) (TAGGED . 867) (RANGE . 865) (MOD . 863) (DIGITS . 860) (DELTA . 859) (TASK . 501) (PROTECTED . 497) (SYNCHRONIZED . 499) (INTERFACE . 493) (ARRAY . 490) (LEFT_PAREN . 861) (ACCESS . (null_exclusion_opt . 0)) (NOT . 225) (NEW . ((abstract_limited_opt . 0) (abstract_limited_synchronized_opt . 0))) (LIMITED . 862) (ABSTRACT . 858)) + ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 0)) (NULL . (abstract_tagged_limited_opt . 0)) (RECORD . (abstract_tagged_limited_opt . 0)) (TAGGED . 867) (RANGE . 865) (MOD . 863) (DIGITS . 860) (DELTA . 859) (TASK . 509) (PROTECTED . 505) (SYNCHRONIZED . 507) (INTERFACE . 501) (ARRAY . 498) (LEFT_PAREN . 861) (ACCESS . (null_exclusion_opt . 0)) (NOT . 232) (NEW . ((abstract_limited_opt . 0) (abstract_limited_synchronized_opt . 0))) (LIMITED . 862) (ABSTRACT . 858)) ((default . error) (BEGIN . (incomplete_type_declaration . 1)) (ENTRY . (incomplete_type_declaration . 1)) (FOR . (incomplete_type_declaration . 1)) (FUNCTION . (incomplete_type_declaration . 1)) (GENERIC . (incomplete_type_declaration . 1)) (NOT . (incomplete_type_declaration . 1)) (OVERRIDING . (incomplete_type_declaration . 1)) (PACKAGE . (incomplete_type_declaration . 1)) (PRAGMA . (incomplete_type_declaration . 1)) (PROCEDURE . (incomplete_type_declaration . 1)) (PROTECTED . (incomplete_type_declaration . 1)) (SUBTYPE . (incomplete_type_declaration . 1)) (TASK . (incomplete_type_declaration . 1)) (TYPE . (incomplete_type_declaration . 1)) (USE . (incomplete_type_declaration . 1)) (IDENTIFIER . (incomplete_type_declaration . 1)) (PRIVATE . (incomplete_type_declaration . 1)) (END . (incomplete_type_declaration . 1))) ((default . error) (SEPARATE . 857)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (NEW . 853) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) + ((default . error) (NEW . 853) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) ((default . error) (BEGIN . (single_task_declaration . 2)) (ENTRY . (single_task_declaration . 2)) (FOR . (single_task_declaration . 2)) (FUNCTION . (single_task_declaration . 2)) (GENERIC . (single_task_declaration . 2)) (NOT . (single_task_declaration . 2)) (OVERRIDING . (single_task_declaration . 2)) (PACKAGE . (single_task_declaration . 2)) (PRAGMA . (single_task_declaration . 2)) (PROCEDURE . (single_task_declaration . 2)) (PROTECTED . (single_task_declaration . 2)) (SUBTYPE . (single_task_declaration . 2)) (TASK . (single_task_declaration . 2)) (TYPE . (single_task_declaration . 2)) (USE . (single_task_declaration . 2)) (IDENTIFIER . (single_task_declaration . 2)) (PRIVATE . (single_task_declaration . 2)) (END . (single_task_declaration . 2))) - ((default . error) (NULL . 852)) - ((default . error) (DO . (subtype_indication . 3)) (OF . (subtype_indication . 3)) (AND . (subtype_indication . 3)) (SEMICOLON . (subtype_indication . 3)) (WITH . (subtype_indication . 3)) (COLON_EQUAL . (subtype_indication . 3)) (DOT . 90) (TICK . 91) (RANGE . 851) (LEFT_PAREN . 824)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (SEPARATE . 849)) + ((default . error) (SEPARATE . 851)) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (NEW . 845) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (SEPARATE . 844)) - ((default . error) (SEMICOLON . 843)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (IDENTIFIER . (mod_clause_opt . 0)) (AT . 840)) - ((default . error) (SEMICOLON . 839)) - ((default . error) (SEMICOLON . 838)) + ((default . error) (NEW . 847) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (SEPARATE . 846)) + ((default . error) (SEMICOLON . 845)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . (mod_clause_opt . 0)) (AT . 842)) + ((default . error) (SEMICOLON . 841)) + ((default . error) (SEMICOLON . 840)) ((default . error) (XOR . (choice_relation . 0)) (OR . (choice_relation . 0)) (BAR . (choice_relation . 0)) (EQUAL_GREATER . (choice_relation . 0)) (AND . (choice_relation . 0))) - ((default . error) (RIGHT_PAREN . 837)) + ((default . error) (RIGHT_PAREN . 839)) ((default . error) (DO . (membership_choice_list . 1)) (LOOP . (membership_choice_list . 1)) (COMMA . (membership_choice_list . 1)) (ELSIF . (membership_choice_list . 1)) (ELSE . (membership_choice_list . 1)) (EQUAL_GREATER . (membership_choice_list . 1)) (RIGHT_PAREN . (membership_choice_list . 1)) (DIGITS . (membership_choice_list . 1)) (RANGE . (membership_choice_list . 1)) (THEN . (membership_choice_list . 1)) (SEMICOLON . (membership_choice_list . 1)) (WITH . (membership_choice_list . 1)) (IS . (membership_choice_list . 1)) (AND . (membership_choice_list . 1)) (OR . (membership_choice_list . 1)) (XOR . (membership_choice_list . 1)) (BAR . (membership_choice_list . 1))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ACCESS . (null_exclusion_opt . 1)) (IDENTIFIER . 833) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ACCESS . (null_exclusion_opt . 1)) (IDENTIFIER . 835) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (NULL . (abstract_tagged_limited_opt . 1)) (RECORD . (abstract_tagged_limited_opt . 1)) (PRIVATE . (abstract_tagged_limited_opt . 1))) - ((default . error) (NUMERIC_LITERAL . 152) (NULL . 832) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) ((default . error) (RIGHT_PAREN . (discrete_subtype_definition_list . 0)) (COMMA . (discrete_subtype_definition_list . 0))) - ((default . error) (COMMA . 831) (RIGHT_PAREN . 830)) + ((default . error) (COMMA . 834) (RIGHT_PAREN . 833)) ((default . error) (RIGHT_PAREN . (index_subtype_definition_list . 0)) (COMMA . (index_subtype_definition_list . 0))) - ((default . error) (COMMA . 829) (RIGHT_PAREN . 828)) - ((default . error) (RIGHT_PAREN . (subtype_indication . 3)) (COMMA . (subtype_indication . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (STAR_STAR . (primary . 3)) (DOT . 90) (TICK . 284) (RANGE . 825) (LEFT_PAREN . 824)) - ((default . error) (LOOP . (discrete_subtype_definition . 1)) (EQUAL_GREATER . (discrete_subtype_definition . 1)) (COMMA . (discrete_subtype_definition . 1)) (RIGHT_PAREN . (discrete_subtype_definition . 1))) - ((default . error) (LOOP . (discrete_subtype_definition . 0)) (EQUAL_GREATER . (discrete_subtype_definition . 0)) (COMMA . (discrete_subtype_definition . 0)) (RIGHT_PAREN . (discrete_subtype_definition . 0))) - ((default . error) (BOX . 823)) + ((default . error) (COMMA . 832) (RIGHT_PAREN . 831)) + ((default . error) (RIGHT_PAREN . (subtype_indication . 3)) (COMMA . (subtype_indication . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (STAR_STAR . (primary . 3)) (DOT . 90) (TICK . 285) (RANGE . 828) (LEFT_PAREN . 827)) + ((default . error) (BOX . 826)) ((default . error) (WITH . (formal_type_definition . 2)) (SEMICOLON . (formal_type_definition . 2))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (PACKAGE . (formal_type_declaration . 1)) (PROCEDURE . (formal_type_declaration . 1)) (FUNCTION . (formal_type_declaration . 1)) (PRAGMA . (formal_type_declaration . 1)) (TYPE . (formal_type_declaration . 1)) (USE . (formal_type_declaration . 1)) (WITH . (formal_type_declaration . 1)) (IDENTIFIER . (formal_type_declaration . 1))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (DOT . 90) (TICK . 91) (WITH . (and_interface_list_opt . 0)) (SEMICOLON . (and_interface_list_opt . 0)) (AND . 816) (LEFT_PAREN . 107)) + ((default . error) (DOT . 90) (TICK . 91) (WITH . (and_interface_list_opt . 0)) (SEMICOLON . (and_interface_list_opt . 0)) (AND . 819) (LEFT_PAREN . 107)) ((default . error) (PACKAGE . (formal_type_declaration . 0)) (PROCEDURE . (formal_type_declaration . 0)) (FUNCTION . (formal_type_declaration . 0)) (PRAGMA . (formal_type_declaration . 0)) (TYPE . (formal_type_declaration . 0)) (USE . (formal_type_declaration . 0)) (WITH . (formal_type_declaration . 0)) (IDENTIFIER . (formal_type_declaration . 0))) ((default . error) (PACKAGE . (formal_subprogram_declaration . 2)) (PROCEDURE . (formal_subprogram_declaration . 2)) (FUNCTION . (formal_subprogram_declaration . 2)) (PRAGMA . (formal_subprogram_declaration . 2)) (TYPE . (formal_subprogram_declaration . 2)) (USE . (formal_subprogram_declaration . 2)) (WITH . (formal_subprogram_declaration . 2)) (IDENTIFIER . (formal_subprogram_declaration . 2))) - ((default . error) (BOX . 815) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (OTHERS . 175) (ABS . 144) (NOT . 174) (RAISE . 149) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (BOX . 818) (FOR . 146) (CASE . 145) (IF . 147) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (OTHERS . 182) (ABS . 144) (NOT . 181) (RAISE . 152) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (PACKAGE . (formal_object_declaration . 1)) (PROCEDURE . (formal_object_declaration . 1)) (FUNCTION . (formal_object_declaration . 1)) (PRAGMA . (formal_object_declaration . 1)) (TYPE . (formal_object_declaration . 1)) (USE . (formal_object_declaration . 1)) (WITH . (formal_object_declaration . 1)) (IDENTIFIER . (formal_object_declaration . 1))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (SEMICOLON . 812)) - ((default . error) (DO . (aggregate . 1)) (LOOP . (aggregate . 1)) (USE . (aggregate . 1)) (COLON_EQUAL . (aggregate . 1)) (CHARACTER_LITERAL . (aggregate . 1)) (STRING_LITERAL . (aggregate . 1)) (IDENTIFIER . (aggregate . 1)) (LESS_LESS . (aggregate . 1)) (WHILE . (aggregate . 1)) (SELECT . (aggregate . 1)) (REQUEUE . (aggregate . 1)) (RAISE . (aggregate . 1)) (PRAGMA . (aggregate . 1)) (NULL . (aggregate . 1)) (IF . (aggregate . 1)) (GOTO . (aggregate . 1)) (FOR . (aggregate . 1)) (EXIT . (aggregate . 1)) (DELAY . (aggregate . 1)) (DECLARE . (aggregate . 1)) (CASE . (aggregate . 1)) (BEGIN . (aggregate . 1)) (ABORT . (aggregate . 1)) (ACCEPT . (aggregate . 1)) (OF . (aggregate . 1)) (ELSIF . (aggregate . 1)) (ELSE . (aggregate . 1)) (DIGITS . (aggregate . 1)) (COMMA . (aggregate . 1)) (RIGHT_PAREN . (aggregate . 1)) (RANGE . (aggregate . 1)) (THEN . (aggregate . 1)) (WITH . (aggregate . 1)) (BAR . (aggregate . 1)) (EQUAL_GREATER . (aggregate . 1)) (IS . (aggregate . 1)) (SLASH_EQUAL . (aggregate . 1)) (LESS_EQUAL . (aggregate . 1)) (LESS . (aggregate . 1)) (GREATER_EQUAL . (aggregate . 1)) (GREATER . (aggregate . 1)) (EQUAL . (aggregate . 1)) (NOT . (aggregate . 1)) (IN . (aggregate . 1)) (AND . (aggregate . 1)) (OR . (aggregate . 1)) (XOR . (aggregate . 1)) (SEMICOLON . (aggregate . 1)) (STAR_STAR . (aggregate . 1)) (STAR . (aggregate . 1)) (SLASH . (aggregate . 1)) (REM . (aggregate . 1)) (MOD . (aggregate . 1)) (DOT_DOT . (aggregate . 1)) (AMPERSAND . (aggregate . 1)) (MINUS . (aggregate . 1)) (PLUS . (aggregate . 1)) (LEFT_PAREN . (aggregate . 1)) (DOT . (aggregate . 1)) (TICK . (aggregate . 1)) (RENAMES . (aggregate . 1)) (RETURN . (aggregate . 1))) - ((default . error) (RIGHT_PAREN . 811)) - ((default . error) (ELSE . 807) (RIGHT_PAREN . (if_expression . 3)) (ELSIF . 808)) - ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 0)) (COMMA . (case_expression_alternative_list . 0))) - ((default . error) (COMMA . 805) (RIGHT_PAREN . (case_expression . 0))) + ((default . error) (SEMICOLON . 815)) ((default . error) (IDENTIFIER . 77)) ((default . error) (DO . (access_definition . 1)) (COLON_EQUAL . (access_definition . 1)) (RIGHT_PAREN . (access_definition . 1)) (RENAMES . (access_definition . 1)) (WITH . (access_definition . 1)) (SEMICOLON . (access_definition . 1)) (IS . (access_definition . 1))) ((default . error) (DO . (access_definition . 2)) (COLON_EQUAL . (access_definition . 2)) (RIGHT_PAREN . (access_definition . 2)) (RENAMES . (access_definition . 2)) (WITH . (access_definition . 2)) (SEMICOLON . (access_definition . 2)) (IS . (access_definition . 2))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (RIGHT_PAREN . (parameter_specification . 2)) (SEMICOLON . (parameter_specification . 2))) ((default . error) (COLON_EQUAL . 1084) (DOT . 90) (TICK . 91) (RIGHT_PAREN . (parameter_specification . 1)) (SEMICOLON . (parameter_specification . 1)) (LEFT_PAREN . 107)) - ((default . error) (WHEN . 795)) - ((default . error) (BAR . 285) (EQUAL_GREATER . 1082)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RIGHT_PAREN . (elsif_expression_list . 0)) (ELSE . (elsif_expression_list . 0)) (ELSIF . (elsif_expression_list . 0))) - ((default . error) (RIGHT_PAREN . (if_expression . 1)) (ELSE . 1078) (ELSIF . 808)) - ((default . error) (OF . (aggregate . 4)) (ACCEPT . (aggregate . 4)) (ABORT . (aggregate . 4)) (BEGIN . (aggregate . 4)) (CASE . (aggregate . 4)) (DECLARE . (aggregate . 4)) (DELAY . (aggregate . 4)) (EXIT . (aggregate . 4)) (FOR . (aggregate . 4)) (GOTO . (aggregate . 4)) (IF . (aggregate . 4)) (NULL . (aggregate . 4)) (PRAGMA . (aggregate . 4)) (RAISE . (aggregate . 4)) (REQUEUE . (aggregate . 4)) (SELECT . (aggregate . 4)) (WHILE . (aggregate . 4)) (LESS_LESS . (aggregate . 4)) (IDENTIFIER . (aggregate . 4)) (STRING_LITERAL . (aggregate . 4)) (CHARACTER_LITERAL . (aggregate . 4)) (COLON_EQUAL . (aggregate . 4)) (USE . (aggregate . 4)) (LOOP . (aggregate . 4)) (DO . (aggregate . 4)) (RETURN . (aggregate . 4)) (RENAMES . (aggregate . 4)) (TICK . (aggregate . 4)) (DOT . (aggregate . 4)) (LEFT_PAREN . (aggregate . 4)) (PLUS . (aggregate . 4)) (MINUS . (aggregate . 4)) (AMPERSAND . (aggregate . 4)) (DOT_DOT . (aggregate . 4)) (MOD . (aggregate . 4)) (REM . (aggregate . 4)) (SLASH . (aggregate . 4)) (STAR . (aggregate . 4)) (STAR_STAR . (aggregate . 4)) (SEMICOLON . (aggregate . 4)) (XOR . (aggregate . 4)) (OR . (aggregate . 4)) (AND . (aggregate . 4)) (IN . (aggregate . 4)) (NOT . (aggregate . 4)) (EQUAL . (aggregate . 4)) (GREATER . (aggregate . 4)) (GREATER_EQUAL . (aggregate . 4)) (LESS . (aggregate . 4)) (LESS_EQUAL . (aggregate . 4)) (SLASH_EQUAL . (aggregate . 4)) (IS . (aggregate . 4)) (EQUAL_GREATER . (aggregate . 4)) (BAR . (aggregate . 4)) (WITH . (aggregate . 4)) (THEN . (aggregate . 4)) (RANGE . (aggregate . 4)) (RIGHT_PAREN . (aggregate . 4)) (COMMA . (aggregate . 4)) (DIGITS . (aggregate . 4)) (ELSE . (aggregate . 4)) (ELSIF . (aggregate . 4))) ((default . error) (IDENTIFIER . (formal_object_declaration . 2)) (WITH . (formal_object_declaration . 2)) (USE . (formal_object_declaration . 2)) (TYPE . (formal_object_declaration . 2)) (PRAGMA . (formal_object_declaration . 2)) (FUNCTION . (formal_object_declaration . 2)) (PROCEDURE . (formal_object_declaration . 2)) (PACKAGE . (formal_object_declaration . 2))) - ((default . error) (SEMICOLON . 1077)) - ((default . error) (SEMICOLON . 1076)) - ((default . error) (RIGHT_PAREN . 1075)) + ((default . error) (SEMICOLON . 1083)) + ((default . error) (SEMICOLON . 1082)) + ((default . error) (RIGHT_PAREN . 1081)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (WITH . ( 1073 (formal_derived_type_definition . 1))) (SEMICOLON . (formal_derived_type_definition . 1))) - ((default . error) (AND . 1072) (WITH . (interface_type_definition . 1)) (SEMICOLON . (interface_type_definition . 1))) + ((default . error) (WITH . ( 1079 (formal_derived_type_definition . 1))) (SEMICOLON . (formal_derived_type_definition . 1))) + ((default . error) (AND . 1078) (WITH . (interface_type_definition . 1)) (SEMICOLON . (interface_type_definition . 1))) ((default . error) (DOT . 90) (SEMICOLON . (interface_list . 0)) (WITH . (interface_list . 0)) (AND . (interface_list . 0)) (TICK . 91) (LEFT_PAREN . 107)) - ((default . error) (AND . 1072) (WITH . (interface_type_definition . 3)) (SEMICOLON . (interface_type_definition . 3))) - ((default . error) (AND . 1072) (WITH . (interface_type_definition . 2)) (SEMICOLON . (interface_type_definition . 2))) - ((default . error) (AND . 1072) (WITH . (interface_type_definition . 0)) (SEMICOLON . (interface_type_definition . 0))) + ((default . error) (AND . 1078) (WITH . (interface_type_definition . 3)) (SEMICOLON . (interface_type_definition . 3))) + ((default . error) (AND . 1078) (WITH . (interface_type_definition . 2)) (SEMICOLON . (interface_type_definition . 2))) + ((default . error) (AND . 1078) (WITH . (interface_type_definition . 0)) (SEMICOLON . (interface_type_definition . 0))) ((default . error) (SEMICOLON . (formal_type_definition . 7)) (WITH . (formal_type_definition . 7))) - ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (OTHERS . 175) (ABS . 144) (NOT . 1069) (RAISE . 149) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (BOX . 1068) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (LOOP . (subtype_indication . 2)) (DO . (subtype_indication . 2)) (EQUAL_GREATER . (subtype_indication . 2)) (COMMA . (subtype_indication . 2)) (RIGHT_PAREN . (subtype_indication . 2)) (COLON_EQUAL . (subtype_indication . 2)) (WITH . (subtype_indication . 2)) (SEMICOLON . (subtype_indication . 2)) (AND . (subtype_indication . 2)) (OF . (subtype_indication . 2))) - ((default . error) (LOOP . (constraint . 1)) (DO . (constraint . 1)) (EQUAL_GREATER . (constraint . 1)) (COMMA . (constraint . 1)) (RIGHT_PAREN . (constraint . 1)) (COLON_EQUAL . (constraint . 1)) (WITH . (constraint . 1)) (SEMICOLON . (constraint . 1)) (AND . (constraint . 1)) (OF . (constraint . 1))) - ((default . error) (OF . 1067)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (OTHERS . 182) (ABS . 144) (NOT . 1075) (RAISE . 152) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (BOX . 1074) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (LOOP . (subtype_indication . 2)) (DO . (subtype_indication . 2)) (RIGHT_PAREN . (subtype_indication . 2)) (COMMA . (subtype_indication . 2)) (EQUAL_GREATER . (subtype_indication . 2)) (COLON_EQUAL . (subtype_indication . 2)) (WITH . (subtype_indication . 2)) (SEMICOLON . (subtype_indication . 2)) (AND . (subtype_indication . 2)) (OF . (subtype_indication . 2))) + ((default . error) (LOOP . (constraint . 1)) (DO . (constraint . 1)) (RIGHT_PAREN . (constraint . 1)) (COMMA . (constraint . 1)) (EQUAL_GREATER . (constraint . 1)) (COLON_EQUAL . (constraint . 1)) (WITH . (constraint . 1)) (SEMICOLON . (constraint . 1)) (AND . (constraint . 1)) (OF . (constraint . 1))) + ((default . error) (OF . 1073)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (OF . 1064)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 769) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (OF . 1070)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 734) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (DOT . (name . 0)) (LEFT_PAREN . (name . 0)) (TICK . (name . 0)) (SEMICOLON . (null_exclusion_opt_name_type . 2)) (RIGHT_PAREN . (null_exclusion_opt_name_type . 2)) (COLON_EQUAL . (null_exclusion_opt_name_type . 2))) ((default . error) (DOT . (name . 3)) (LEFT_PAREN . (name . 3)) (TICK . (name . 3)) (SEMICOLON . (null_exclusion_opt_name_type . 3)) (RIGHT_PAREN . (null_exclusion_opt_name_type . 3)) (COLON_EQUAL . (null_exclusion_opt_name_type . 3))) ((default . error) (SEMICOLON . (discriminant_specification_opt . 3)) (RIGHT_PAREN . (discriminant_specification_opt . 3))) @@ -2644,37 +2656,35 @@ ((default . error) (DO . (range . 0)) (LOOP . (range . 0)) (XOR . (range . 0)) (OR . (range . 0)) (AND . (range . 0)) (IS . (range . 0)) (WITH . (range . 0)) (SEMICOLON . (range . 0)) (THEN . (range . 0)) (RANGE . (range . 0)) (DIGITS . (range . 0)) (ELSE . (range . 0)) (ELSIF . (range . 0)) (COLON_EQUAL . (range . 0)) (OF . (range . 0)) (BAR . (range . 0)) (EQUAL_GREATER . (range . 0)) (RIGHT_PAREN . (range . 0)) (COMMA . (range . 0))) ((default . error) (WHEN . (record_representation_clause . 0)) (END . (record_representation_clause . 0)) (PRIVATE . (record_representation_clause . 0)) (CASE . (record_representation_clause . 0)) (IDENTIFIER . (record_representation_clause . 0)) (USE . (record_representation_clause . 0)) (TYPE . (record_representation_clause . 0)) (TASK . (record_representation_clause . 0)) (SUBTYPE . (record_representation_clause . 0)) (PROTECTED . (record_representation_clause . 0)) (PROCEDURE . (record_representation_clause . 0)) (PRAGMA . (record_representation_clause . 0)) (PACKAGE . (record_representation_clause . 0)) (OVERRIDING . (record_representation_clause . 0)) (NOT . (record_representation_clause . 0)) (GENERIC . (record_representation_clause . 0)) (FUNCTION . (record_representation_clause . 0)) (FOR . (record_representation_clause . 0)) (ENTRY . (record_representation_clause . 0)) (BEGIN . (record_representation_clause . 0))) ((default . error) (WHEN . (enumeration_representation_clause . 0)) (END . (enumeration_representation_clause . 0)) (PRIVATE . (enumeration_representation_clause . 0)) (CASE . (enumeration_representation_clause . 0)) (IDENTIFIER . (enumeration_representation_clause . 0)) (USE . (enumeration_representation_clause . 0)) (TYPE . (enumeration_representation_clause . 0)) (TASK . (enumeration_representation_clause . 0)) (SUBTYPE . (enumeration_representation_clause . 0)) (PROTECTED . (enumeration_representation_clause . 0)) (PROCEDURE . (enumeration_representation_clause . 0)) (PRAGMA . (enumeration_representation_clause . 0)) (PACKAGE . (enumeration_representation_clause . 0)) (OVERRIDING . (enumeration_representation_clause . 0)) (NOT . (enumeration_representation_clause . 0)) (GENERIC . (enumeration_representation_clause . 0)) (FUNCTION . (enumeration_representation_clause . 0)) (FOR . (enumeration_representation_clause . 0)) (ENTRY . (enumeration_representation_clause . 0)) (BEGIN . (enumeration_representation_clause . 0))) - ((default . error) (MOD . 1062)) - ((default . error) (IDENTIFIER . 1059)) - ((default . error) (SEMICOLON . 1058)) + ((default . error) (MOD . 1068)) + ((default . error) (IDENTIFIER . 1065)) + ((default . error) (SEMICOLON . 1064)) ((default . error) (WHEN . (aspect_clause . 0)) (PRIVATE . (aspect_clause . 0)) (END . (aspect_clause . 0)) (CASE . (aspect_clause . 0)) (BEGIN . (aspect_clause . 0)) (ENTRY . (aspect_clause . 0)) (FOR . (aspect_clause . 0)) (FUNCTION . (aspect_clause . 0)) (GENERIC . (aspect_clause . 0)) (NOT . (aspect_clause . 0)) (OVERRIDING . (aspect_clause . 0)) (PACKAGE . (aspect_clause . 0)) (PRAGMA . (aspect_clause . 0)) (PROCEDURE . (aspect_clause . 0)) (PROTECTED . (aspect_clause . 0)) (SUBTYPE . (aspect_clause . 0)) (TASK . (aspect_clause . 0)) (TYPE . (aspect_clause . 0)) (USE . (aspect_clause . 0)) (IDENTIFIER . (aspect_clause . 0))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . 1054) (PRIVATE . 1055)) - ((default . error) (SEMICOLON . 1053)) - ((default . error) (IS . 1052)) + ((default . error) (END . 1060) (PRIVATE . 1061)) + ((default . error) (SEMICOLON . 1059)) + ((default . error) (IS . 1058)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (SEMICOLON . 1050)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (SEMICOLON . 1056)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . 1045) (PRIVATE . 1046)) - ((default . error) (SEMICOLON . 1044)) - ((default . error) (SEMICOLON . 1043) (IS . 1042)) + ((default . error) (END . 1053) (PRIVATE . 1054)) + ((default . error) (SEMICOLON . 1052)) + ((default . error) (SEMICOLON . 1051) (IS . 1050)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (SYNCHRONIZED . 567) (TAGGED . 568) (NEW . ((abstract_limited_opt . 3) (abstract_limited_synchronized_opt . 3))) (LIMITED . 1040)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (IDENTIFIER . 1034) (CHARACTER_LITERAL . 1035)) - ((default . error) (INTERFACE . 561) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NULL . (abstract_tagged_limited_opt . 5)) (RECORD . (abstract_tagged_limited_opt . 5)) (NEW . ((abstract_limited_opt . 2) (abstract_limited_synchronized_opt . 4)))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RECORD . 1032)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (END . (component_list_opt . 0)) (NULL . 1023) (CASE . 1022) (IDENTIFIER . 77) (FOR . 298)) - ((default . error) (SEMICOLON . 1021) (PRIVATE . (abstract_tagged_limited_opt . 4)) (NULL . (abstract_tagged_limited_opt . 4)) (RECORD . (abstract_tagged_limited_opt . 4)) (LIMITED . 555)) - ((default . error) (NEW . 1020)) - ((default . error) (NEW . 1019)) - ((default . error) (PRIVATE . 1017) (RECORD . 866) (NULL . 864)) + ((default . error) (SYNCHRONIZED . 563) (TAGGED . 564) (NEW . ((abstract_limited_opt . 3) (abstract_limited_synchronized_opt . 3))) (LIMITED . 1048)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 1042) (CHARACTER_LITERAL . 1043)) + ((default . error) (INTERFACE . 557) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NULL . (abstract_tagged_limited_opt . 5)) (RECORD . (abstract_tagged_limited_opt . 5)) (NEW . ((abstract_limited_opt . 2) (abstract_limited_synchronized_opt . 4)))) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RECORD . 1040)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (END . (component_list_opt . 0)) (NULL . 1031) (CASE . 1030) (IDENTIFIER . 77) (FOR . 299)) + ((default . error) (SEMICOLON . 1029) (PRIVATE . (abstract_tagged_limited_opt . 4)) (NULL . (abstract_tagged_limited_opt . 4)) (RECORD . (abstract_tagged_limited_opt . 4)) (LIMITED . 551)) + ((default . error) (NEW . 1028)) + ((default . error) (NEW . 1027)) + ((default . error) (PRIVATE . 1025) (RECORD . 866) (NULL . 864)) ((default . error) (WITH . (type_definition . 8)) (SEMICOLON . (type_definition . 8))) ((default . error) (WITH . (type_definition . 6)) (SEMICOLON . (type_definition . 6))) ((default . error) (WITH . (type_definition . 9)) (SEMICOLON . (type_definition . 9))) @@ -2686,264 +2696,260 @@ ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (SEMICOLON . (package_specification . 0))) + ((default . error) (SEMICOLON . 1020)) + ((default . error) (NULL . 1019)) + ((default . error) (COLON_EQUAL . 1017) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (COLON_EQUAL . 1015) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (COLON_EQUAL . 1013) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (SEMICOLON . 1012)) - ((default . error) (NULL . 1011)) - ((default . error) (COLON_EQUAL . 1009) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (COLON_EQUAL . 1007) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (COLON_EQUAL . 1005) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (SEMICOLON . 1004)) - ((default . error) (SEMICOLON . 1003)) - ((default . error) (SEMICOLON . 1002)) - ((default . error) (SEMICOLON . 1001)) - ((default . error) (RIGHT_PAREN . 1000)) - ((default . error) (RIGHT_PAREN . 999)) - ((default . error) (RIGHT_PAREN . 998)) - ((default . error) (SEMICOLON . 997)) - ((default . error) (RIGHT_PAREN . 996)) - ((default . error) (LOOP . (subtype_indication . 3)) (DOT . 90) (IN . (primary . 3)) (NOT . (primary . 3)) (EQUAL . (primary . 3)) (GREATER . (primary . 3)) (GREATER_EQUAL . (primary . 3)) (LESS . (primary . 3)) (LESS_EQUAL . (primary . 3)) (SLASH_EQUAL . (primary . 3)) (RIGHT_PAREN . ((primary . 3) (subtype_indication . 3))) (COMMA . ((primary . 3) (subtype_indication . 3))) (BAR . (primary . 3)) (EQUAL_GREATER . ((primary . 3) (subtype_indication . 3))) (AND . (primary . 3)) (OR . (primary . 3)) (XOR . (primary . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (STAR_STAR . (primary . 3)) (TICK . 284) (RANGE . 851) (LEFT_PAREN . 824)) + ((default . error) (SEMICOLON . 1011)) + ((default . error) (SEMICOLON . 1010)) + ((default . error) (SEMICOLON . 1009)) + ((default . error) (RIGHT_PAREN . 1008)) + ((default . error) (RIGHT_PAREN . 1007)) + ((default . error) (SEMICOLON . 1006)) + ((default . error) (RIGHT_PAREN . 1005)) ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (END . (package_body . 1)) (BEGIN . (package_body . 1)) (ENTRY . (package_body . 1)) (FOR . (package_body . 1)) (PROTECTED . (package_body . 1)) (SUBTYPE . (package_body . 1)) (TASK . (package_body . 1)) (TYPE . (package_body . 1)) (IDENTIFIER . (package_body . 1)) (WITH . (package_body . 1)) (USE . (package_body . 1)) (SEPARATE . (package_body . 1)) (PROCEDURE . (package_body . 1)) (PRIVATE . (package_body . 1)) (PRAGMA . (package_body . 1)) (PACKAGE . (package_body . 1)) (OVERRIDING . (package_body . 1)) (NOT . (package_body . 1)) (LIMITED . (package_body . 1)) (GENERIC . (package_body . 1)) (FUNCTION . (package_body . 1)) ($EOI . (package_body . 1))) - ((default . error) (OF . 994)) + ((default . error) (LOOP . (aggregate . 3)) (DO . (aggregate . 3)) (OF . (aggregate . 3)) (ACCEPT . (aggregate . 3)) (ABORT . (aggregate . 3)) (BEGIN . (aggregate . 3)) (CASE . (aggregate . 3)) (DECLARE . (aggregate . 3)) (DELAY . (aggregate . 3)) (EXIT . (aggregate . 3)) (FOR . (aggregate . 3)) (GOTO . (aggregate . 3)) (IF . (aggregate . 3)) (NULL . (aggregate . 3)) (PRAGMA . (aggregate . 3)) (RAISE . (aggregate . 3)) (REQUEUE . (aggregate . 3)) (SELECT . (aggregate . 3)) (WHILE . (aggregate . 3)) (LESS_LESS . (aggregate . 3)) (IDENTIFIER . (aggregate . 3)) (STRING_LITERAL . (aggregate . 3)) (CHARACTER_LITERAL . (aggregate . 3)) (COLON_EQUAL . (aggregate . 3)) (USE . (aggregate . 3)) (PLUS . (aggregate . 3)) (MINUS . (aggregate . 3)) (AMPERSAND . (aggregate . 3)) (DOT_DOT . (aggregate . 3)) (MOD . (aggregate . 3)) (REM . (aggregate . 3)) (SLASH . (aggregate . 3)) (STAR . (aggregate . 3)) (STAR_STAR . (aggregate . 3)) (SEMICOLON . (aggregate . 3)) (XOR . (aggregate . 3)) (OR . (aggregate . 3)) (AND . (aggregate . 3)) (IN . (aggregate . 3)) (NOT . (aggregate . 3)) (EQUAL . (aggregate . 3)) (GREATER . (aggregate . 3)) (GREATER_EQUAL . (aggregate . 3)) (LESS . (aggregate . 3)) (LESS_EQUAL . (aggregate . 3)) (SLASH_EQUAL . (aggregate . 3)) (IS . (aggregate . 3)) (EQUAL_GREATER . (aggregate . 3)) (BAR . (aggregate . 3)) (WITH . (aggregate . 3)) (THEN . (aggregate . 3)) (RANGE . (aggregate . 3)) (RIGHT_PAREN . (aggregate . 3)) (COMMA . (aggregate . 3)) (DIGITS . (aggregate . 3)) (ELSE . (aggregate . 3)) (ELSIF . (aggregate . 3)) (RETURN . (aggregate . 3)) (RENAMES . (aggregate . 3)) (TICK . (aggregate . 3)) (DOT . (aggregate . 3)) (LEFT_PAREN . (aggregate . 3))) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSIF . (elsif_expression_list . 1)) (ELSE . (elsif_expression_list . 1)) (RIGHT_PAREN . (elsif_expression_list . 1)) (COMMA . (elsif_expression_list . 1))) + ((default . error) (THEN . 1002)) + ((default . error) (RIGHT_PAREN . (if_expression . 2)) (COMMA . (if_expression . 2))) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (LOOP . (iterator_specification . 0)) (EQUAL_GREATER . (iterator_specification . 0))) + ((default . error) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 4)) (EQUAL_GREATER . (iterator_specification . 4)) (LEFT_PAREN . 107)) + ((default . error) (REVERSE . 999) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 5)) (EQUAL_GREATER . (iterator_specification . 5)) (LEFT_PAREN . 107)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 769) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (LOOP . (iterator_specification . 1)) (EQUAL_GREATER . (iterator_specification . 1))) - ((default . error) (RIGHT_PAREN . (quantified_expression . 0))) - ((default . error) (END . (protected_operation_item_list_opt . 0)) (ENTRY . 981) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 298)) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 176) (STRING_LITERAL . 49) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 1)) (COMMA . (case_expression_alternative_list . 1))) + ((default . error) (END . (protected_operation_item_list_opt . 0)) (ENTRY . 986) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 299)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (FOR . 146) (CASE . 145) (IF . 147) (RIGHT_PAREN . ((expression_opt . 0) (association_opt . 0))) (COMMA . ((expression_opt . 0) (association_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 183) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (actual_parameter_part_opt . 1)) (LEFT_PAREN . (actual_parameter_part_opt . 1)) (DO . (actual_parameter_part_opt . 1))) - ((default . error) (DO . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 798)) + ((default . error) (DO . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 808)) ((default . error) (OR . (simple_statement . 8)) (THEN . (simple_statement . 8)) (WHEN . (simple_statement . 8)) (EXCEPTION . (simple_statement . 8)) (END . (simple_statement . 8)) (ACCEPT . (simple_statement . 8)) (ABORT . (simple_statement . 8)) (BEGIN . (simple_statement . 8)) (CASE . (simple_statement . 8)) (DECLARE . (simple_statement . 8)) (DELAY . (simple_statement . 8)) (EXIT . (simple_statement . 8)) (FOR . (simple_statement . 8)) (GOTO . (simple_statement . 8)) (IF . (simple_statement . 8)) (LOOP . (simple_statement . 8)) (NULL . (simple_statement . 8)) (PRAGMA . (simple_statement . 8)) (RAISE . (simple_statement . 8)) (REQUEUE . (simple_statement . 8)) (RETURN . (simple_statement . 8)) (SELECT . (simple_statement . 8)) (WHILE . (simple_statement . 8)) (LESS_LESS . (simple_statement . 8)) (IDENTIFIER . (simple_statement . 8)) (STRING_LITERAL . (simple_statement . 8)) (CHARACTER_LITERAL . (simple_statement . 8)) (ELSE . (simple_statement . 8)) (ELSIF . (simple_statement . 8))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (WHEN . 975)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (WHEN . 980)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (WHEN . (delay_statement . 1)) (EXCEPTION . (delay_statement . 1)) (ELSIF . (delay_statement . 1)) (THEN . (delay_statement . 1)) (ELSE . (delay_statement . 1)) (OR . (delay_statement . 1)) (END . (delay_statement . 1)) (ACCEPT . (delay_statement . 1)) (ABORT . (delay_statement . 1)) (BEGIN . (delay_statement . 1)) (CASE . (delay_statement . 1)) (DECLARE . (delay_statement . 1)) (DELAY . (delay_statement . 1)) (EXIT . (delay_statement . 1)) (FOR . (delay_statement . 1)) (GOTO . (delay_statement . 1)) (IF . (delay_statement . 1)) (LOOP . (delay_statement . 1)) (NULL . (delay_statement . 1)) (PRAGMA . (delay_statement . 1)) (RAISE . (delay_statement . 1)) (REQUEUE . (delay_statement . 1)) (RETURN . (delay_statement . 1)) (SELECT . (delay_statement . 1)) (WHILE . (delay_statement . 1)) (LESS_LESS . (delay_statement . 1)) (IDENTIFIER . (delay_statement . 1)) (STRING_LITERAL . (delay_statement . 1)) (CHARACTER_LITERAL . (delay_statement . 1))) - ((default . error) (SEMICOLON . 973)) - ((default . error) (SEMICOLON . (expression_opt . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (SEMICOLON . 978)) + ((default . error) (SEMICOLON . (expression_opt . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (OR . (exit_statement . 1)) (THEN . (exit_statement . 1)) (WHEN . (exit_statement . 1)) (EXCEPTION . (exit_statement . 1)) (END . (exit_statement . 1)) (ACCEPT . (exit_statement . 1)) (ABORT . (exit_statement . 1)) (BEGIN . (exit_statement . 1)) (CASE . (exit_statement . 1)) (DECLARE . (exit_statement . 1)) (DELAY . (exit_statement . 1)) (EXIT . (exit_statement . 1)) (FOR . (exit_statement . 1)) (GOTO . (exit_statement . 1)) (IF . (exit_statement . 1)) (LOOP . (exit_statement . 1)) (NULL . (exit_statement . 1)) (PRAGMA . (exit_statement . 1)) (RAISE . (exit_statement . 1)) (REQUEUE . (exit_statement . 1)) (RETURN . (exit_statement . 1)) (SELECT . (exit_statement . 1)) (WHILE . (exit_statement . 1)) (LESS_LESS . (exit_statement . 1)) (IDENTIFIER . (exit_statement . 1)) (STRING_LITERAL . (exit_statement . 1)) (CHARACTER_LITERAL . (exit_statement . 1)) (ELSE . (exit_statement . 1)) (ELSIF . (exit_statement . 1))) ((default . error) (OR . (simple_statement . 3)) (THEN . (simple_statement . 3)) (WHEN . (simple_statement . 3)) (EXCEPTION . (simple_statement . 3)) (END . (simple_statement . 3)) (ACCEPT . (simple_statement . 3)) (ABORT . (simple_statement . 3)) (BEGIN . (simple_statement . 3)) (CASE . (simple_statement . 3)) (DECLARE . (simple_statement . 3)) (DELAY . (simple_statement . 3)) (EXIT . (simple_statement . 3)) (FOR . (simple_statement . 3)) (GOTO . (simple_statement . 3)) (IF . (simple_statement . 3)) (LOOP . (simple_statement . 3)) (NULL . (simple_statement . 3)) (PRAGMA . (simple_statement . 3)) (RAISE . (simple_statement . 3)) (REQUEUE . (simple_statement . 3)) (RETURN . (simple_statement . 3)) (SELECT . (simple_statement . 3)) (WHILE . (simple_statement . 3)) (LESS_LESS . (simple_statement . 3)) (IDENTIFIER . (simple_statement . 3)) (STRING_LITERAL . (simple_statement . 3)) (CHARACTER_LITERAL . (simple_statement . 3)) (ELSE . (simple_statement . 3)) (ELSIF . (simple_statement . 3))) - ((default . error) (ELSIF . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (LOOP . 970)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (ELSIF . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (LOOP . 975)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (OR . (raise_statement . 2)) (THEN . (raise_statement . 2)) (WHEN . (raise_statement . 2)) (EXCEPTION . (raise_statement . 2)) (END . (raise_statement . 2)) (ACCEPT . (raise_statement . 2)) (ABORT . (raise_statement . 2)) (BEGIN . (raise_statement . 2)) (CASE . (raise_statement . 2)) (DECLARE . (raise_statement . 2)) (DELAY . (raise_statement . 2)) (EXIT . (raise_statement . 2)) (FOR . (raise_statement . 2)) (GOTO . (raise_statement . 2)) (IF . (raise_statement . 2)) (LOOP . (raise_statement . 2)) (NULL . (raise_statement . 2)) (PRAGMA . (raise_statement . 2)) (RAISE . (raise_statement . 2)) (REQUEUE . (raise_statement . 2)) (RETURN . (raise_statement . 2)) (SELECT . (raise_statement . 2)) (WHILE . (raise_statement . 2)) (LESS_LESS . (raise_statement . 2)) (IDENTIFIER . (raise_statement . 2)) (STRING_LITERAL . (raise_statement . 2)) (CHARACTER_LITERAL . (raise_statement . 2)) (ELSE . (raise_statement . 2)) (ELSIF . (raise_statement . 2))) - ((default . error) (ABORT . 968)) + ((default . error) (ABORT . 973)) ((default . error) (OR . (requeue_statement . 1)) (THEN . (requeue_statement . 1)) (WHEN . (requeue_statement . 1)) (EXCEPTION . (requeue_statement . 1)) (END . (requeue_statement . 1)) (ACCEPT . (requeue_statement . 1)) (ABORT . (requeue_statement . 1)) (BEGIN . (requeue_statement . 1)) (CASE . (requeue_statement . 1)) (DECLARE . (requeue_statement . 1)) (DELAY . (requeue_statement . 1)) (EXIT . (requeue_statement . 1)) (FOR . (requeue_statement . 1)) (GOTO . (requeue_statement . 1)) (IF . (requeue_statement . 1)) (LOOP . (requeue_statement . 1)) (NULL . (requeue_statement . 1)) (PRAGMA . (requeue_statement . 1)) (RAISE . (requeue_statement . 1)) (REQUEUE . (requeue_statement . 1)) (RETURN . (requeue_statement . 1)) (SELECT . (requeue_statement . 1)) (WHILE . (requeue_statement . 1)) (LESS_LESS . (requeue_statement . 1)) (IDENTIFIER . (requeue_statement . 1)) (STRING_LITERAL . (requeue_statement . 1)) (CHARACTER_LITERAL . (requeue_statement . 1)) (ELSE . (requeue_statement . 1)) (ELSIF . (requeue_statement . 1))) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (OR . (extended_return_statement . 1)) (THEN . (extended_return_statement . 1)) (WHEN . (extended_return_statement . 1)) (EXCEPTION . (extended_return_statement . 1)) (END . (extended_return_statement . 1)) (ACCEPT . (extended_return_statement . 1)) (ABORT . (extended_return_statement . 1)) (BEGIN . (extended_return_statement . 1)) (CASE . (extended_return_statement . 1)) (DECLARE . (extended_return_statement . 1)) (DELAY . (extended_return_statement . 1)) (EXIT . (extended_return_statement . 1)) (FOR . (extended_return_statement . 1)) (GOTO . (extended_return_statement . 1)) (IF . (extended_return_statement . 1)) (LOOP . (extended_return_statement . 1)) (NULL . (extended_return_statement . 1)) (PRAGMA . (extended_return_statement . 1)) (RAISE . (extended_return_statement . 1)) (REQUEUE . (extended_return_statement . 1)) (RETURN . (extended_return_statement . 1)) (SELECT . (extended_return_statement . 1)) (WHILE . (extended_return_statement . 1)) (LESS_LESS . (extended_return_statement . 1)) (IDENTIFIER . (extended_return_statement . 1)) (STRING_LITERAL . (extended_return_statement . 1)) (CHARACTER_LITERAL . (extended_return_statement . 1)) (ELSE . (extended_return_statement . 1)) (ELSIF . (extended_return_statement . 1))) ((default . error) (OR . (simple_return_statement . 1)) (THEN . (simple_return_statement . 1)) (WHEN . (simple_return_statement . 1)) (EXCEPTION . (simple_return_statement . 1)) (END . (simple_return_statement . 1)) (ACCEPT . (simple_return_statement . 1)) (ABORT . (simple_return_statement . 1)) (BEGIN . (simple_return_statement . 1)) (CASE . (simple_return_statement . 1)) (DECLARE . (simple_return_statement . 1)) (DELAY . (simple_return_statement . 1)) (EXIT . (simple_return_statement . 1)) (FOR . (simple_return_statement . 1)) (GOTO . (simple_return_statement . 1)) (IF . (simple_return_statement . 1)) (LOOP . (simple_return_statement . 1)) (NULL . (simple_return_statement . 1)) (PRAGMA . (simple_return_statement . 1)) (RAISE . (simple_return_statement . 1)) (REQUEUE . (simple_return_statement . 1)) (RETURN . (simple_return_statement . 1)) (SELECT . (simple_return_statement . 1)) (WHILE . (simple_return_statement . 1)) (LESS_LESS . (simple_return_statement . 1)) (IDENTIFIER . (simple_return_statement . 1)) (STRING_LITERAL . (simple_return_statement . 1)) (CHARACTER_LITERAL . (simple_return_statement . 1)) (ELSE . (simple_return_statement . 1)) (ELSIF . (simple_return_statement . 1))) - ((default . error) (CONSTANT . (aliased_opt . 0)) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ALIASED . 530)) - ((default . error) (ABORT . 965)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (SELECT . 963)) - ((default . error) (WHEN . 686) (TERMINATE . 685) (ACCEPT . 625) (DELAY . 630)) + ((default . error) (CONSTANT . (aliased_opt . 0)) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ALIASED . 531)) + ((default . error) (ABORT . 970)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (SELECT . 968)) + ((default . error) (WHEN . 691) (TERMINATE . 690) (ACCEPT . 630) (DELAY . 635)) ((default . error) (OR . (entry_call_alternative . 0)) (ELSE . (entry_call_alternative . 0)) (THEN . (triggering_alternative . 0))) ((default . error) (OR . (entry_call_alternative . 1)) (ELSE . (entry_call_alternative . 1)) (THEN . (triggering_alternative . 1))) - ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (DELAY . 630)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (DELAY . 635)) ((default . error) (OR . (delay_alternative . 0)) (END . (delay_alternative . 0)) (ELSE . (delay_alternative . 0)) (THEN . (triggering_alternative . 2))) ((default . error) (END . (select_alternative . 1)) (OR . (select_alternative . 1)) (ELSE . (select_alternative . 1))) - ((default . error) (EQUAL_GREATER . 958)) + ((default . error) (EQUAL_GREATER . 963)) ((default . error) (END . (select_alternative . 5)) (OR . (select_alternative . 5)) (ELSE . (select_alternative . 5))) ((default . error) (ACCEPT . (label_opt . 1)) (BEGIN . (label_opt . 1)) (CASE . (label_opt . 1)) (DECLARE . (label_opt . 1)) (FOR . (label_opt . 1)) (IF . (label_opt . 1)) (LOOP . (label_opt . 1)) (RETURN . (label_opt . 1)) (SELECT . (label_opt . 1)) (WHILE . (label_opt . 1)) (ABORT . (label_opt . 1)) (DELAY . (label_opt . 1)) (EXIT . (label_opt . 1)) (GOTO . (label_opt . 1)) (NULL . (label_opt . 1)) (PRAGMA . (label_opt . 1)) (RAISE . (label_opt . 1)) (REQUEUE . (label_opt . 1)) (IDENTIFIER . (label_opt . 1)) (STRING_LITERAL . (label_opt . 1)) (CHARACTER_LITERAL . (label_opt . 1))) - ((default . error) (SEMICOLON . 957)) - ((default . error) (END . 956)) - ((default . error) (SEMICOLON . 955)) - ((default . error) (OTHERS . 950) (IDENTIFIER . 951) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . 962)) + ((default . error) (END . 961)) + ((default . error) (SEMICOLON . 960)) + ((default . error) (OTHERS . 955) (IDENTIFIER . 956) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (END . (exception_handler_list . 0)) (WHEN . (exception_handler_list . 0))) - ((default . error) (END . (exception_handler_list_opt . 1)) (WHEN . 945)) + ((default . error) (END . (exception_handler_list_opt . 1)) (WHEN . 950)) ((default . error) (END . (handled_sequence_of_statements . 0))) ((default . error) (WHEN . (exception_handler_list . 1)) (END . (exception_handler_list . 1))) ((default . error) (BAR . (exception_choice . 1)) (EQUAL_GREATER . (exception_choice . 1))) - ((default . error) (COLON . 1185) (EQUAL_GREATER . (name . 0)) (BAR . (name . 0)) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) + ((default . error) (COLON . 1182) (EQUAL_GREATER . (name . 0)) (BAR . (name . 0)) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) ((default . error) (EQUAL_GREATER . (exception_choice_list . 0)) (BAR . (exception_choice_list . 0))) - ((default . error) (BAR . 1183) (EQUAL_GREATER . 1184)) + ((default . error) (BAR . 1180) (EQUAL_GREATER . 1181)) ((default . error) (DOT . 90) (BAR . (exception_choice . 0)) (EQUAL_GREATER . (exception_choice . 0)) (TICK . 91) (LEFT_PAREN . 107)) ((default . error) (WHEN . (assignment_statement . 0)) (THEN . (assignment_statement . 0)) (OR . (assignment_statement . 0)) (ELSIF . (assignment_statement . 0)) (ELSE . (assignment_statement . 0)) (CHARACTER_LITERAL . (assignment_statement . 0)) (STRING_LITERAL . (assignment_statement . 0)) (IDENTIFIER . (assignment_statement . 0)) (LESS_LESS . (assignment_statement . 0)) (WHILE . (assignment_statement . 0)) (SELECT . (assignment_statement . 0)) (RETURN . (assignment_statement . 0)) (REQUEUE . (assignment_statement . 0)) (RAISE . (assignment_statement . 0)) (PRAGMA . (assignment_statement . 0)) (NULL . (assignment_statement . 0)) (LOOP . (assignment_statement . 0)) (IF . (assignment_statement . 0)) (GOTO . (assignment_statement . 0)) (FOR . (assignment_statement . 0)) (EXIT . (assignment_statement . 0)) (DELAY . (assignment_statement . 0)) (DECLARE . (assignment_statement . 0)) (CASE . (assignment_statement . 0)) (BEGIN . (assignment_statement . 0)) (ABORT . (assignment_statement . 0)) (ACCEPT . (assignment_statement . 0)) (END . (assignment_statement . 0)) (EXCEPTION . (assignment_statement . 0))) - ((default . error) (LOOP . 1182)) + ((default . error) (LOOP . 1179)) ((default . error) (IDENTIFIER . (subprogram_body . 0)) (TYPE . (subprogram_body . 0)) (TASK . (subprogram_body . 0)) (SUBTYPE . (subprogram_body . 0)) (PROTECTED . (subprogram_body . 0)) (FOR . (subprogram_body . 0)) (ENTRY . (subprogram_body . 0)) (BEGIN . (subprogram_body . 0)) (END . (subprogram_body . 0)) ($EOI . (subprogram_body . 0)) (FUNCTION . (subprogram_body . 0)) (GENERIC . (subprogram_body . 0)) (LIMITED . (subprogram_body . 0)) (NOT . (subprogram_body . 0)) (OVERRIDING . (subprogram_body . 0)) (PACKAGE . (subprogram_body . 0)) (PRAGMA . (subprogram_body . 0)) (PRIVATE . (subprogram_body . 0)) (PROCEDURE . (subprogram_body . 0)) (SEPARATE . (subprogram_body . 0)) (USE . (subprogram_body . 0)) (WITH . (subprogram_body . 0))) - ((default . error) (TERMINATE . 1179) (ACCEPT . 625) (DELAY . 630)) - ((default . error) (END . 1178)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (END . 1176)) + ((default . error) (TERMINATE . 1176) (ACCEPT . 630) (DELAY . 635)) + ((default . error) (END . 1175)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (END . 1173)) ((default . error) (ELSE . (select_alternative_list . 1)) (END . (select_alternative_list . 1)) (OR . (select_alternative_list . 1))) - ((default . error) (SEMICOLON . 1175)) - ((default . error) (END . 1174)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (ACCESS . (constant_opt . 0)) (NOT . (constant_opt . 0)) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (CONSTANT . 736)) + ((default . error) (SEMICOLON . 1172)) ((default . error) (END . 1171)) - ((default . error) (SEMICOLON . 1170)) - ((default . error) (SEMICOLON . 1169)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (ELSE . 1163) (END . 1165) (ELSIF . 1164)) - ((default . error) (SEMICOLON . 1162)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (ACCESS . (constant_opt . 0)) (NOT . (constant_opt . 0)) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (CONSTANT . 757)) + ((default . error) (END . 1168)) + ((default . error) (SEMICOLON . 1167)) + ((default . error) (SEMICOLON . 1166)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (ELSE . 1160) (END . 1162) (ELSIF . 1161)) + ((default . error) (SEMICOLON . 1159)) ((default . error) (WHEN . (delay_statement . 0)) (ELSIF . (delay_statement . 0)) (EXCEPTION . (delay_statement . 0)) (CHARACTER_LITERAL . (delay_statement . 0)) (STRING_LITERAL . (delay_statement . 0)) (IDENTIFIER . (delay_statement . 0)) (LESS_LESS . (delay_statement . 0)) (WHILE . (delay_statement . 0)) (SELECT . (delay_statement . 0)) (RETURN . (delay_statement . 0)) (REQUEUE . (delay_statement . 0)) (RAISE . (delay_statement . 0)) (PRAGMA . (delay_statement . 0)) (NULL . (delay_statement . 0)) (LOOP . (delay_statement . 0)) (IF . (delay_statement . 0)) (GOTO . (delay_statement . 0)) (FOR . (delay_statement . 0)) (EXIT . (delay_statement . 0)) (DELAY . (delay_statement . 0)) (DECLARE . (delay_statement . 0)) (CASE . (delay_statement . 0)) (BEGIN . (delay_statement . 0)) (ABORT . (delay_statement . 0)) (ACCEPT . (delay_statement . 0)) (END . (delay_statement . 0)) (OR . (delay_statement . 0)) (ELSE . (delay_statement . 0)) (THEN . (delay_statement . 0))) - ((default . error) (END . 1161)) - ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (END . 1158)) + ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (END . (case_statement_alternative_list . 0)) (WHEN . (case_statement_alternative_list . 0))) - ((default . error) (END . 1158) (WHEN . 975)) - ((default . error) (SEMICOLON . 1157)) - ((default . error) (DO . 1155) (SEMICOLON . 1156)) - ((default . error) (BEGIN . 1154)) - ((default . error) (IDENTIFIER . 1153)) + ((default . error) (END . 1155) (WHEN . 980)) + ((default . error) (SEMICOLON . 1154)) + ((default . error) (DO . 1152) (SEMICOLON . 1153)) + ((default . error) (BEGIN . 1151)) + ((default . error) (IDENTIFIER . 1150)) ((default . error) (PROCEDURE . (protected_operation_item . 5)) (OVERRIDING . (protected_operation_item . 5)) (NOT . (protected_operation_item . 5)) (FUNCTION . (protected_operation_item . 5)) (FOR . (protected_operation_item . 5)) (ENTRY . (protected_operation_item . 5)) (END . (protected_operation_item . 5))) ((default . error) (PROCEDURE . (protected_operation_item . 2)) (OVERRIDING . (protected_operation_item . 2)) (NOT . (protected_operation_item . 2)) (FUNCTION . (protected_operation_item . 2)) (FOR . (protected_operation_item . 2)) (ENTRY . (protected_operation_item . 2)) (END . (protected_operation_item . 2))) ((default . error) (PROCEDURE . (protected_operation_item . 3)) (OVERRIDING . (protected_operation_item . 3)) (NOT . (protected_operation_item . 3)) (FUNCTION . (protected_operation_item . 3)) (FOR . (protected_operation_item . 3)) (ENTRY . (protected_operation_item . 3)) (END . (protected_operation_item . 3))) ((default . error) (PROCEDURE . (protected_operation_item . 4)) (OVERRIDING . (protected_operation_item . 4)) (NOT . (protected_operation_item . 4)) (FUNCTION . (protected_operation_item . 4)) (FOR . (protected_operation_item . 4)) (ENTRY . (protected_operation_item . 4)) (END . (protected_operation_item . 4))) ((default . error) (FUNCTION . 1) (PROCEDURE . 9)) ((default . error) (END . (protected_operation_item_list . 0)) (ENTRY . (protected_operation_item_list . 0)) (FOR . (protected_operation_item_list . 0)) (FUNCTION . (protected_operation_item_list . 0)) (NOT . (protected_operation_item_list . 0)) (OVERRIDING . (protected_operation_item_list . 0)) (PROCEDURE . (protected_operation_item_list . 0))) - ((default . error) (END . (protected_operation_item_list_opt . 1)) (ENTRY . 981) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 298)) - ((default . error) (END . 1150)) + ((default . error) (END . (protected_operation_item_list_opt . 1)) (ENTRY . 986) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 299)) + ((default . error) (END . 1147)) ((default . error) (PROCEDURE . (protected_operation_item . 1)) (OVERRIDING . (protected_operation_item . 1)) (NOT . (protected_operation_item . 1)) (FUNCTION . (protected_operation_item . 1)) (FOR . (protected_operation_item . 1)) (ENTRY . (protected_operation_item . 1)) (END . (protected_operation_item . 1))) ((default . error) (PROCEDURE . (protected_operation_item . 0)) (OVERRIDING . (protected_operation_item . 0)) (NOT . (protected_operation_item . 0)) (FUNCTION . (protected_operation_item . 0)) (FOR . (protected_operation_item . 0)) (ENTRY . (protected_operation_item . 0)) (END . (protected_operation_item . 0))) - ((default . error) (LOOP . (iterator_specification . 0)) (EQUAL_GREATER . (iterator_specification . 0))) - ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 4)) (EQUAL_GREATER . (iterator_specification . 4)) (LEFT_PAREN . 107)) - ((default . error) (REVERSE . 1148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 1147)) - ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 798)) + ((default . error) (COMMA . (case_expression_alternative . 0)) (RIGHT_PAREN . (case_expression_alternative . 0))) + ((default . error) (DO . (subtype_indication . 1)) (LOOP . (subtype_indication . 1)) (COLON_EQUAL . (subtype_indication . 1)) (SEMICOLON . (subtype_indication . 1)) (OF . (subtype_indication . 1)) (AND . (subtype_indication . 1)) (WITH . (subtype_indication . 1)) (EQUAL_GREATER . (subtype_indication . 1)) (COMMA . (subtype_indication . 1)) (RIGHT_PAREN . (subtype_indication . 1)) (DOT . 90) (TICK . 91) (RANGE . 902) (LEFT_PAREN . 827)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 3)) (EQUAL_GREATER . (iterator_specification . 3)) (LEFT_PAREN . 107)) + ((default . error) (DO . (constraint . 0)) (LOOP . (constraint . 0)) (OF . (constraint . 0)) (AND . (constraint . 0)) (SEMICOLON . (constraint . 0)) (WITH . (constraint . 0)) (COLON_EQUAL . (constraint . 0)) (EQUAL_GREATER . (constraint . 0)) (RIGHT_PAREN . (constraint . 0)) (COMMA . (constraint . 0))) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (COMMA . (if_expression . 0)) (RIGHT_PAREN . (if_expression . 0))) + ((default . error) (SEMICOLON . 1143)) + ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 808)) ((default . error) (IDENTIFIER . (entry_declaration . 1)) (USE . (entry_declaration . 1)) (TYPE . (entry_declaration . 1)) (TASK . (entry_declaration . 1)) (SUBTYPE . (entry_declaration . 1)) (PROTECTED . (entry_declaration . 1)) (PROCEDURE . (entry_declaration . 1)) (PRAGMA . (entry_declaration . 1)) (PACKAGE . (entry_declaration . 1)) (OVERRIDING . (entry_declaration . 1)) (NOT . (entry_declaration . 1)) (GENERIC . (entry_declaration . 1)) (FUNCTION . (entry_declaration . 1)) (FOR . (entry_declaration . 1)) (ENTRY . (entry_declaration . 1)) (BEGIN . (entry_declaration . 1)) (END . (entry_declaration . 1)) (PRIVATE . (entry_declaration . 1))) - ((default . error) (WITH . (paren_expression . 2)) (SEMICOLON . (paren_expression . 2))) ((default . error) (WITH . (paren_expression . 0)) (SEMICOLON . (paren_expression . 0))) ((default . error) (WITH . (paren_expression . 1)) (SEMICOLON . (paren_expression . 1))) ((default . error) (IDENTIFIER . (expression_function_declaration . 0)) (USE . (expression_function_declaration . 0)) (TYPE . (expression_function_declaration . 0)) (TASK . (expression_function_declaration . 0)) (SUBTYPE . (expression_function_declaration . 0)) (PROTECTED . (expression_function_declaration . 0)) (PROCEDURE . (expression_function_declaration . 0)) (PRAGMA . (expression_function_declaration . 0)) (PACKAGE . (expression_function_declaration . 0)) (OVERRIDING . (expression_function_declaration . 0)) (NOT . (expression_function_declaration . 0)) (GENERIC . (expression_function_declaration . 0)) (FUNCTION . (expression_function_declaration . 0)) (FOR . (expression_function_declaration . 0)) (ENTRY . (expression_function_declaration . 0)) (BEGIN . (expression_function_declaration . 0)) (END . (expression_function_declaration . 0)) (PRIVATE . (expression_function_declaration . 0))) ((default . error) (IDENTIFIER . (null_procedure_declaration . 0)) (USE . (null_procedure_declaration . 0)) (TYPE . (null_procedure_declaration . 0)) (TASK . (null_procedure_declaration . 0)) (SUBTYPE . (null_procedure_declaration . 0)) (PROTECTED . (null_procedure_declaration . 0)) (PROCEDURE . (null_procedure_declaration . 0)) (PRAGMA . (null_procedure_declaration . 0)) (PACKAGE . (null_procedure_declaration . 0)) (OVERRIDING . (null_procedure_declaration . 0)) (NOT . (null_procedure_declaration . 0)) (GENERIC . (null_procedure_declaration . 0)) (FUNCTION . (null_procedure_declaration . 0)) (FOR . (null_procedure_declaration . 0)) (ENTRY . (null_procedure_declaration . 0)) (BEGIN . (null_procedure_declaration . 0)) (END . (null_procedure_declaration . 0)) (PRIVATE . (null_procedure_declaration . 0))) ((default . error) (IDENTIFIER . (abstract_subprogram_declaration . 0)) (USE . (abstract_subprogram_declaration . 0)) (TYPE . (abstract_subprogram_declaration . 0)) (TASK . (abstract_subprogram_declaration . 0)) (SUBTYPE . (abstract_subprogram_declaration . 0)) (PROTECTED . (abstract_subprogram_declaration . 0)) (PROCEDURE . (abstract_subprogram_declaration . 0)) (PRAGMA . (abstract_subprogram_declaration . 0)) (PACKAGE . (abstract_subprogram_declaration . 0)) (OVERRIDING . (abstract_subprogram_declaration . 0)) (NOT . (abstract_subprogram_declaration . 0)) (GENERIC . (abstract_subprogram_declaration . 0)) (FUNCTION . (abstract_subprogram_declaration . 0)) (FOR . (abstract_subprogram_declaration . 0)) (ENTRY . (abstract_subprogram_declaration . 0)) (BEGIN . (abstract_subprogram_declaration . 0)) (END . (abstract_subprogram_declaration . 0)) (PRIVATE . (abstract_subprogram_declaration . 0))) ((default . error) (IDENTIFIER . (subprogram_body_stub . 0)) (USE . (subprogram_body_stub . 0)) (TYPE . (subprogram_body_stub . 0)) (TASK . (subprogram_body_stub . 0)) (SUBTYPE . (subprogram_body_stub . 0)) (PROTECTED . (subprogram_body_stub . 0)) (PROCEDURE . (subprogram_body_stub . 0)) (PRAGMA . (subprogram_body_stub . 0)) (PACKAGE . (subprogram_body_stub . 0)) (OVERRIDING . (subprogram_body_stub . 0)) (NOT . (subprogram_body_stub . 0)) (GENERIC . (subprogram_body_stub . 0)) (FUNCTION . (subprogram_body_stub . 0)) (FOR . (subprogram_body_stub . 0)) (ENTRY . (subprogram_body_stub . 0)) (BEGIN . (subprogram_body_stub . 0)) (END . (subprogram_body_stub . 0)) (PRIVATE . (subprogram_body_stub . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 1144)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 1142)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . 1140)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1138)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1136)) ((default . error) (ACCESS . (null_exclusion_opt . 1)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (BEGIN . (declaration . 9)) (ENTRY . (declaration . 9)) (FOR . (declaration . 9)) (FUNCTION . (declaration . 9)) (GENERIC . (declaration . 9)) (NOT . (declaration . 9)) (OVERRIDING . (declaration . 9)) (PACKAGE . (declaration . 9)) (PRAGMA . (declaration . 9)) (PROCEDURE . (declaration . 9)) (PROTECTED . (declaration . 9)) (SUBTYPE . (declaration . 9)) (TASK . (declaration . 9)) (TYPE . (declaration . 9)) (USE . (declaration . 9)) (IDENTIFIER . (declaration . 9)) (PRIVATE . (declaration . 9)) (END . (declaration . 9))) ((default . error) (DOT . 90) (TICK . 91) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109) (LEFT_PAREN . 107)) - ((default . error) (SEMICOLON . 1138)) - ((default . error) (SEMICOLON . 1137)) - ((default . error) (SEMICOLON . 1136)) + ((default . error) (SEMICOLON . 1134)) + ((default . error) (SEMICOLON . 1133)) + ((default . error) (SEMICOLON . 1132)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (WITH . (record_type_definition . 0)) (SEMICOLON . (record_type_definition . 0))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (NOT . 750) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (NOT . 729) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (BEGIN . (incomplete_type_declaration . 0)) (ENTRY . (incomplete_type_declaration . 0)) (FOR . (incomplete_type_declaration . 0)) (FUNCTION . (incomplete_type_declaration . 0)) (GENERIC . (incomplete_type_declaration . 0)) (NOT . (incomplete_type_declaration . 0)) (OVERRIDING . (incomplete_type_declaration . 0)) (PACKAGE . (incomplete_type_declaration . 0)) (PRAGMA . (incomplete_type_declaration . 0)) (PROCEDURE . (incomplete_type_declaration . 0)) (PROTECTED . (incomplete_type_declaration . 0)) (SUBTYPE . (incomplete_type_declaration . 0)) (TASK . (incomplete_type_declaration . 0)) (TYPE . (incomplete_type_declaration . 0)) (USE . (incomplete_type_declaration . 0)) (IDENTIFIER . (incomplete_type_declaration . 0)) (PRIVATE . (incomplete_type_declaration . 0)) (END . (incomplete_type_declaration . 0))) - ((default . error) (IS . (direct_name_opt . 0)) (IDENTIFIER . 1129) (STRING_LITERAL . 1130)) - ((default . error) (SEMICOLON . 1128)) + ((default . error) (IS . (direct_name_opt . 0)) (IDENTIFIER . 1125) (STRING_LITERAL . 1126)) + ((default . error) (SEMICOLON . 1124)) ((default . error) (WHEN . (component_item . 1)) (END . (component_item . 1)) (IDENTIFIER . (component_item . 1)) (FOR . (component_item . 1)) (CASE . (component_item . 1))) ((default . error) (WHEN . (component_item . 0)) (END . (component_item . 0)) (IDENTIFIER . (component_item . 0)) (FOR . (component_item . 0)) (CASE . (component_item . 0))) ((default . error) (WHEN . (component_list . 0)) (END . (component_list . 0)) (CASE . (component_list . 0)) (FOR . (component_list . 0)) (IDENTIFIER . (component_list . 0))) - ((default . error) (WHEN . (component_list_opt . 1)) (END . (component_list_opt . 1)) (CASE . 1022) (IDENTIFIER . 77) (FOR . 298)) - ((default . error) (END . 1125)) - ((default . error) (COMMA . 96) (COLON . 1124)) + ((default . error) (WHEN . (component_list_opt . 1)) (END . (component_list_opt . 1)) (CASE . 1030) (IDENTIFIER . 77) (FOR . 299)) + ((default . error) (END . 1121)) + ((default . error) (COMMA . 96) (COLON . 1120)) ((default . error) (WHEN . (component_list . 3)) (END . (component_list . 3)) (CASE . (component_list . 3)) (FOR . (component_list . 3)) (IDENTIFIER . (component_list . 3))) - ((default . error) (DOT_DOT . 1123)) + ((default . error) (DOT_DOT . 1119)) ((default . error) (SEMICOLON . (record_definition . 1)) (WITH . (record_definition . 1))) ((default . error) (SEMICOLON . (type_definition . 2)) (WITH . (type_definition . 2))) ((default . error) (COMMA . (enumeration_literal . 0)) (RIGHT_PAREN . (enumeration_literal . 0))) ((default . error) (COMMA . (enumeration_literal . 1)) (RIGHT_PAREN . (enumeration_literal . 1))) ((default . error) (RIGHT_PAREN . (enumeration_literal_list . 0)) (COMMA . (enumeration_literal_list . 0))) - ((default . error) (COMMA . 1122) (RIGHT_PAREN . 1121)) - ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1118)) - ((default . error) (DIGITS . 1117) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1118)) + ((default . error) (COMMA . 1118) (RIGHT_PAREN . 1117)) + ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1114)) + ((default . error) (DIGITS . 1113) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1114)) ((default . error) (NEW . ((abstract_limited_synchronized_opt . 1) (abstract_limited_opt . 1)))) - ((default . error) (SEMICOLON . 1116)) - ((default . error) (NEW . 1114) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) + ((default . error) (SEMICOLON . 1112)) + ((default . error) (NEW . 1110) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) ((default . error) (IDENTIFIER . (task_type_declaration . 2)) (USE . (task_type_declaration . 2)) (TYPE . (task_type_declaration . 2)) (TASK . (task_type_declaration . 2)) (SUBTYPE . (task_type_declaration . 2)) (PROTECTED . (task_type_declaration . 2)) (PROCEDURE . (task_type_declaration . 2)) (PRAGMA . (task_type_declaration . 2)) (PACKAGE . (task_type_declaration . 2)) (OVERRIDING . (task_type_declaration . 2)) (NOT . (task_type_declaration . 2)) (GENERIC . (task_type_declaration . 2)) (FUNCTION . (task_type_declaration . 2)) (FOR . (task_type_declaration . 2)) (ENTRY . (task_type_declaration . 2)) (BEGIN . (task_type_declaration . 2)) (END . (task_type_declaration . 2)) (PRIVATE . (task_type_declaration . 2))) ((default . error) (BEGIN . (single_task_declaration . 1)) (ENTRY . (single_task_declaration . 1)) (FOR . (single_task_declaration . 1)) (FUNCTION . (single_task_declaration . 1)) (GENERIC . (single_task_declaration . 1)) (NOT . (single_task_declaration . 1)) (OVERRIDING . (single_task_declaration . 1)) (PACKAGE . (single_task_declaration . 1)) (PRAGMA . (single_task_declaration . 1)) (PROCEDURE . (single_task_declaration . 1)) (PROTECTED . (single_task_declaration . 1)) (SUBTYPE . (single_task_declaration . 1)) (TASK . (single_task_declaration . 1)) (TYPE . (single_task_declaration . 1)) (USE . (single_task_declaration . 1)) (IDENTIFIER . (single_task_declaration . 1)) (PRIVATE . (single_task_declaration . 1)) (END . (single_task_declaration . 1))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (AND . 1072) (WITH . 1111)) - ((default . error) (DO . (subtype_indication . 1)) (LOOP . (subtype_indication . 1)) (COLON_EQUAL . (subtype_indication . 1)) (SEMICOLON . (subtype_indication . 1)) (OF . (subtype_indication . 1)) (AND . (subtype_indication . 1)) (WITH . (subtype_indication . 1)) (EQUAL_GREATER . (subtype_indication . 1)) (COMMA . (subtype_indication . 1)) (RIGHT_PAREN . (subtype_indication . 1)) (DOT . 90) (TICK . 91) (RANGE . 851) (LEFT_PAREN . 824)) - ((default . error) (LOOP . (constraint . 0)) (EQUAL_GREATER . (constraint . 0)) (DO . (constraint . 0)) (OF . (constraint . 0)) (AND . (constraint . 0)) (SEMICOLON . (constraint . 0)) (WITH . (constraint . 0)) (COLON_EQUAL . (constraint . 0)) (RIGHT_PAREN . (constraint . 0)) (COMMA . (constraint . 0))) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (AND . 1078) (WITH . 1107)) ((default . error) (IDENTIFIER . (subtype_declaration . 0)) (USE . (subtype_declaration . 0)) (TYPE . (subtype_declaration . 0)) (TASK . (subtype_declaration . 0)) (SUBTYPE . (subtype_declaration . 0)) (PROTECTED . (subtype_declaration . 0)) (PROCEDURE . (subtype_declaration . 0)) (PRAGMA . (subtype_declaration . 0)) (PACKAGE . (subtype_declaration . 0)) (OVERRIDING . (subtype_declaration . 0)) (NOT . (subtype_declaration . 0)) (GENERIC . (subtype_declaration . 0)) (FUNCTION . (subtype_declaration . 0)) (FOR . (subtype_declaration . 0)) (ENTRY . (subtype_declaration . 0)) (BEGIN . (subtype_declaration . 0)) (END . (subtype_declaration . 0)) (PRIVATE . (subtype_declaration . 0))) - ((default . error) (SEMICOLON . 1109)) - ((default . error) (NEW . 1107) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) + ((default . error) (SEMICOLON . 1106)) + ((default . error) (NEW . 1104) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) ((default . error) (BEGIN . (single_protected_declaration . 1)) (ENTRY . (single_protected_declaration . 1)) (FOR . (single_protected_declaration . 1)) (FUNCTION . (single_protected_declaration . 1)) (GENERIC . (single_protected_declaration . 1)) (NOT . (single_protected_declaration . 1)) (OVERRIDING . (single_protected_declaration . 1)) (PACKAGE . (single_protected_declaration . 1)) (PRAGMA . (single_protected_declaration . 1)) (PROCEDURE . (single_protected_declaration . 1)) (PROTECTED . (single_protected_declaration . 1)) (SUBTYPE . (single_protected_declaration . 1)) (TASK . (single_protected_declaration . 1)) (TYPE . (single_protected_declaration . 1)) (USE . (single_protected_declaration . 1)) (IDENTIFIER . (single_protected_declaration . 1)) (PRIVATE . (single_protected_declaration . 1)) (END . (single_protected_declaration . 1))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (AND . 1072) (WITH . 1104)) - ((default . error) (SEMICOLON . 1103)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (AND . 1078) (WITH . 1101)) + ((default . error) (SEMICOLON . 1100)) ((default . error) (WHEN . (at_clause . 0)) (BEGIN . (at_clause . 0)) (ENTRY . (at_clause . 0)) (FOR . (at_clause . 0)) (FUNCTION . (at_clause . 0)) (GENERIC . (at_clause . 0)) (NOT . (at_clause . 0)) (OVERRIDING . (at_clause . 0)) (PACKAGE . (at_clause . 0)) (PRAGMA . (at_clause . 0)) (PROCEDURE . (at_clause . 0)) (PROTECTED . (at_clause . 0)) (SUBTYPE . (at_clause . 0)) (TASK . (at_clause . 0)) (TYPE . (at_clause . 0)) (USE . (at_clause . 0)) (IDENTIFIER . (at_clause . 0)) (CASE . (at_clause . 0)) (PRIVATE . (at_clause . 0)) (END . (at_clause . 0))) - ((default . error) (AT . 1102)) + ((default . error) (AT . 1099)) ((default . error) (END . (component_clause_list . 0)) (IDENTIFIER . (component_clause_list . 0))) - ((default . error) (END . 1100) (IDENTIFIER . 1059)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (END . 1097) (IDENTIFIER . 1065)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (RIGHT_PAREN . (discrete_subtype_definition_list . 1)) (COMMA . (discrete_subtype_definition_list . 1))) - ((default . error) (ALIASED . 1093) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) + ((default . error) (ALIASED . 1090) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) ((default . error) (RIGHT_PAREN . (index_subtype_definition_list . 1)) (COMMA . (index_subtype_definition_list . 1))) - ((default . error) (DOT . 90) (RANGE . 1097) (TICK . 91) (LEFT_PAREN . 107)) - ((default . error) (ALIASED . 1093) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) + ((default . error) (DOT . 90) (RANGE . 1094) (TICK . 91) (LEFT_PAREN . 107)) + ((default . error) (ALIASED . 1090) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) ((default . error) (COMMA . (index_subtype_definition . 0)) (RIGHT_PAREN . (index_subtype_definition . 0))) - ((default . error) (NUMERIC_LITERAL . 152) (NULL . 1092) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (COMMA . 831) (RIGHT_PAREN . 1091)) + ((default . error) (NUMERIC_LITERAL . 155) (NULL . 1089) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (COMMA . 834) (RIGHT_PAREN . 1088)) ((default . error) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2)) (RIGHT_PAREN . ((range_list . 0) (discrete_subtype_definition . 1))) (COMMA . ((range_list . 0) (discrete_subtype_definition . 1)))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (PRIVATE . 1089)) - ((default . error) (AND . 1072) (WITH . (and_interface_list_opt . 1)) (SEMICOLON . (and_interface_list_opt . 1))) + ((default . error) (PRIVATE . 1086)) + ((default . error) (AND . 1078) (WITH . (and_interface_list_opt . 1)) (SEMICOLON . (and_interface_list_opt . 1))) ((default . error) (WITH . (formal_package_actual_part . 0)) (SEMICOLON . (formal_package_actual_part . 0))) ((default . error) (PACKAGE . (formal_package_declaration . 0)) (PROCEDURE . (formal_package_declaration . 0)) (FUNCTION . (formal_package_declaration . 0)) (PRAGMA . (formal_package_declaration . 0)) (TYPE . (formal_package_declaration . 0)) (USE . (formal_package_declaration . 0)) (WITH . (formal_package_declaration . 0)) (IDENTIFIER . (formal_package_declaration . 0))) ((default . error) (PACKAGE . (formal_object_declaration . 0)) (PROCEDURE . (formal_object_declaration . 0)) (FUNCTION . (formal_object_declaration . 0)) (PRAGMA . (formal_object_declaration . 0)) (TYPE . (formal_object_declaration . 0)) (USE . (formal_object_declaration . 0)) (WITH . (formal_object_declaration . 0)) (IDENTIFIER . (formal_object_declaration . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ELSIF . (elsif_expression_list . 1)) (ELSE . (elsif_expression_list . 1)) (RIGHT_PAREN . (elsif_expression_list . 1))) - ((default . error) (THEN . 1087)) - ((default . error) (RIGHT_PAREN . (if_expression . 2))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 1)) (COMMA . (case_expression_alternative_list . 1))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (RIGHT_PAREN . (parameter_specification . 0)) (SEMICOLON . (parameter_specification . 0))) - ((default . error) (COMMA . (case_expression_alternative . 0)) (RIGHT_PAREN . (case_expression_alternative . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RIGHT_PAREN . (if_expression . 0))) ((default . error) (WITH . (formal_derived_type_definition . 0)) (SEMICOLON . (formal_derived_type_definition . 0))) ((default . error) (DOT . 90) (TICK . 91) (WITH . (interface_list . 1)) (SEMICOLON . (interface_list . 1)) (AND . (interface_list . 1)) (LEFT_PAREN . 107)) - ((default . error) (LOOP . (index_constraint . 0)) (DO . (index_constraint . 0)) (EQUAL_GREATER . (index_constraint . 0)) (COMMA . (index_constraint . 0)) (RIGHT_PAREN . (index_constraint . 0)) (COLON_EQUAL . (index_constraint . 0)) (WITH . (index_constraint . 0)) (SEMICOLON . (index_constraint . 0)) (AND . (index_constraint . 0)) (OF . (index_constraint . 0))) + ((default . error) (LOOP . (index_constraint . 0)) (DO . (index_constraint . 0)) (RIGHT_PAREN . (index_constraint . 0)) (COMMA . (index_constraint . 0)) (EQUAL_GREATER . (index_constraint . 0)) (COLON_EQUAL . (index_constraint . 0)) (WITH . (index_constraint . 0)) (SEMICOLON . (index_constraint . 0)) (AND . (index_constraint . 0)) (OF . (index_constraint . 0))) ((default . error) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (XOR . (primary . 1)) (OR . (primary . 1)) (AND . (primary . 1)) (EQUAL_GREATER . (primary . 1)) (BAR . (primary . 1)) (IN . (primary . 1)) (NOT . (primary . 1)) (EQUAL . (primary . 1)) (GREATER . (primary . 1)) (GREATER_EQUAL . (primary . 1)) (LESS . (primary . 1)) (LESS_EQUAL . (primary . 1)) (SLASH_EQUAL . (primary . 1)) (RIGHT_PAREN . (primary . 1)) (COMMA . (primary . 1)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (WITH . (component_definition . 3)) (SEMICOLON . (component_definition . 3)) (COLON_EQUAL . (component_definition . 3))) ((default . error) (WITH . (array_type_definition . 0)) (SEMICOLON . (array_type_definition . 0)) (COLON_EQUAL . (array_type_definition . 0))) ((default . error) (WITH . (component_definition . 1)) (SEMICOLON . (component_definition . 1)) (COLON_EQUAL . (component_definition . 1))) - ((default . error) (BOX . 1068)) + ((default . error) (BOX . 1074)) ((default . error) (WITH . (array_type_definition . 1)) (SEMICOLON . (array_type_definition . 1)) (COLON_EQUAL . (array_type_definition . 1))) - ((default . error) (SEMICOLON . 1244)) - ((default . error) (RECORD . 1243)) + ((default . error) (SEMICOLON . 1240)) + ((default . error) (RECORD . 1239)) ((default . error) (IDENTIFIER . (component_clause_list . 1)) (END . (component_clause_list . 1))) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (PRIVATE . (package_body_stub . 0)) (END . (package_body_stub . 0)) (BEGIN . (package_body_stub . 0)) (ENTRY . (package_body_stub . 0)) (FOR . (package_body_stub . 0)) (FUNCTION . (package_body_stub . 0)) (GENERIC . (package_body_stub . 0)) (NOT . (package_body_stub . 0)) (OVERRIDING . (package_body_stub . 0)) (PACKAGE . (package_body_stub . 0)) (PRAGMA . (package_body_stub . 0)) (PROCEDURE . (package_body_stub . 0)) (PROTECTED . (package_body_stub . 0)) (SUBTYPE . (package_body_stub . 0)) (TASK . (package_body_stub . 0)) (TYPE . (package_body_stub . 0)) (USE . (package_body_stub . 0)) (IDENTIFIER . (package_body_stub . 0))) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (END . 1240)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (END . 1236)) ((default . error) (SEMICOLON . (protected_definition . 1))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 1238)) + ((default . error) (SEMICOLON . 1234)) ((default . error) (PRIVATE . (protected_body_stub . 0)) (END . (protected_body_stub . 0)) (BEGIN . (protected_body_stub . 0)) (ENTRY . (protected_body_stub . 0)) (FOR . (protected_body_stub . 0)) (FUNCTION . (protected_body_stub . 0)) (GENERIC . (protected_body_stub . 0)) (NOT . (protected_body_stub . 0)) (OVERRIDING . (protected_body_stub . 0)) (PACKAGE . (protected_body_stub . 0)) (PRAGMA . (protected_body_stub . 0)) (PROCEDURE . (protected_body_stub . 0)) (PROTECTED . (protected_body_stub . 0)) (SUBTYPE . (protected_body_stub . 0)) (TASK . (protected_body_stub . 0)) (TYPE . (protected_body_stub . 0)) (USE . (protected_body_stub . 0)) (IDENTIFIER . (protected_body_stub . 0))) - ((default . error) (LOOP . (subtype_indication . 0)) (DO . (subtype_indication . 0)) (RIGHT_PAREN . (subtype_indication . 0)) (COMMA . (subtype_indication . 0)) (EQUAL_GREATER . (subtype_indication . 0)) (WITH . (subtype_indication . 0)) (AND . (subtype_indication . 0)) (OF . (subtype_indication . 0)) (SEMICOLON . (subtype_indication . 0)) (COLON_EQUAL . (subtype_indication . 0))) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (END . 1236)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (END . 1232)) ((default . error) (SEMICOLON . (task_definition . 1))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 1234)) + ((default . error) (SEMICOLON . 1230)) ((default . error) (PRIVATE . (task_body_stub . 0)) (END . (task_body_stub . 0)) (BEGIN . (task_body_stub . 0)) (ENTRY . (task_body_stub . 0)) (FOR . (task_body_stub . 0)) (FUNCTION . (task_body_stub . 0)) (GENERIC . (task_body_stub . 0)) (NOT . (task_body_stub . 0)) (OVERRIDING . (task_body_stub . 0)) (PACKAGE . (task_body_stub . 0)) (PRAGMA . (task_body_stub . 0)) (PROCEDURE . (task_body_stub . 0)) (PROTECTED . (task_body_stub . 0)) (SUBTYPE . (task_body_stub . 0)) (TASK . (task_body_stub . 0)) (TYPE . (task_body_stub . 0)) (USE . (task_body_stub . 0)) (IDENTIFIER . (task_body_stub . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (WITH . (type_definition . 4)) (SEMICOLON . (type_definition . 4))) ((default . error) (WITH . (type_definition . 3)) (SEMICOLON . (type_definition . 3))) ((default . error) (SEMICOLON . (enumeration_type_definition . 0)) (WITH . (enumeration_type_definition . 0))) - ((default . error) (IDENTIFIER . 1034) (CHARACTER_LITERAL . 1035)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (ALIASED . 1093) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) - ((default . error) (RECORD . 1228)) + ((default . error) (IDENTIFIER . 1042) (CHARACTER_LITERAL . 1043)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ALIASED . 1090) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) + ((default . error) (RECORD . 1224)) ((default . error) (WHEN . (component_list . 1)) (IDENTIFIER . (component_list . 1)) (FOR . (component_list . 1)) (CASE . (component_list . 1)) (END . (component_list . 1))) ((default . error) (WHEN . (component_list . 2)) (IDENTIFIER . (component_list . 2)) (FOR . (component_list . 2)) (CASE . (component_list . 2)) (END . (component_list . 2))) ((default . error) (WHEN . (component_list . 4)) (IDENTIFIER . (component_list . 4)) (FOR . (component_list . 4)) (CASE . (component_list . 4)) (END . (component_list . 4))) ((default . error) (IS . (direct_name . 0))) ((default . error) (IS . (direct_name . 1))) ((default . error) (IS . (direct_name_opt . 1))) - ((default . error) (IS . 1227)) - ((default . error) (WITH . (and_interface_list_opt . 0)) (AND . 816)) - ((default . error) (DOT . 90) (TICK . 91) (AND . 816) (WITH . ((constraint_opt . 0) (and_interface_list_opt . 0))) (SEMICOLON . (constraint_opt . 0)) (RANGE . 851) (LEFT_PAREN . 824)) - ((default . error) (SEMICOLON . 1222)) + ((default . error) (IS . 1223)) + ((default . error) (WITH . (and_interface_list_opt . 0)) (AND . 819)) + ((default . error) (DOT . 90) (TICK . 91) (AND . 819) (WITH . ((constraint_opt . 0) (and_interface_list_opt . 0))) (SEMICOLON . (constraint_opt . 0)) (RANGE . 902) (LEFT_PAREN . 827)) + ((default . error) (SEMICOLON . 1218)) ((default . error) (END . (full_type_declaration . 0)) (PRIVATE . (full_type_declaration . 0)) (IDENTIFIER . (full_type_declaration . 0)) (USE . (full_type_declaration . 0)) (TYPE . (full_type_declaration . 0)) (TASK . (full_type_declaration . 0)) (SUBTYPE . (full_type_declaration . 0)) (PROTECTED . (full_type_declaration . 0)) (PROCEDURE . (full_type_declaration . 0)) (PRAGMA . (full_type_declaration . 0)) (PACKAGE . (full_type_declaration . 0)) (OVERRIDING . (full_type_declaration . 0)) (NOT . (full_type_declaration . 0)) (GENERIC . (full_type_declaration . 0)) (FUNCTION . (full_type_declaration . 0)) (FOR . (full_type_declaration . 0)) (ENTRY . (full_type_declaration . 0)) (BEGIN . (full_type_declaration . 0))) ((default . error) (END . (object_renaming_declaration . 2)) (PRIVATE . (object_renaming_declaration . 2)) (IDENTIFIER . (object_renaming_declaration . 2)) (USE . (object_renaming_declaration . 2)) (TYPE . (object_renaming_declaration . 2)) (TASK . (object_renaming_declaration . 2)) (SUBTYPE . (object_renaming_declaration . 2)) (PROTECTED . (object_renaming_declaration . 2)) (PROCEDURE . (object_renaming_declaration . 2)) (PRAGMA . (object_renaming_declaration . 2)) (PACKAGE . (object_renaming_declaration . 2)) (OVERRIDING . (object_renaming_declaration . 2)) (NOT . (object_renaming_declaration . 2)) (GENERIC . (object_renaming_declaration . 2)) (FUNCTION . (object_renaming_declaration . 2)) (FOR . (object_renaming_declaration . 2)) (ENTRY . (object_renaming_declaration . 2)) (BEGIN . (object_renaming_declaration . 2))) ((default . error) (END . (object_renaming_declaration . 1)) (PRIVATE . (object_renaming_declaration . 1)) (IDENTIFIER . (object_renaming_declaration . 1)) (USE . (object_renaming_declaration . 1)) (TYPE . (object_renaming_declaration . 1)) (TASK . (object_renaming_declaration . 1)) (SUBTYPE . (object_renaming_declaration . 1)) (PROTECTED . (object_renaming_declaration . 1)) (PROCEDURE . (object_renaming_declaration . 1)) (PRAGMA . (object_renaming_declaration . 1)) (PACKAGE . (object_renaming_declaration . 1)) (OVERRIDING . (object_renaming_declaration . 1)) (NOT . (object_renaming_declaration . 1)) (GENERIC . (object_renaming_declaration . 1)) (FUNCTION . (object_renaming_declaration . 1)) (FOR . (object_renaming_declaration . 1)) (ENTRY . (object_renaming_declaration . 1)) (BEGIN . (object_renaming_declaration . 1))) - ((default . error) (SEMICOLON . 1221)) + ((default . error) (SEMICOLON . 1217)) ((default . error) (PRIVATE . (object_declaration . 3)) (END . (object_declaration . 3)) (BEGIN . (object_declaration . 3)) (ENTRY . (object_declaration . 3)) (FOR . (object_declaration . 3)) (FUNCTION . (object_declaration . 3)) (GENERIC . (object_declaration . 3)) (NOT . (object_declaration . 3)) (OVERRIDING . (object_declaration . 3)) (PACKAGE . (object_declaration . 3)) (PRAGMA . (object_declaration . 3)) (PROCEDURE . (object_declaration . 3)) (PROTECTED . (object_declaration . 3)) (SUBTYPE . (object_declaration . 3)) (TASK . (object_declaration . 3)) (TYPE . (object_declaration . 3)) (USE . (object_declaration . 3)) (IDENTIFIER . (object_declaration . 3))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (PRIVATE . (object_declaration . 5)) (END . (object_declaration . 5)) (BEGIN . (object_declaration . 5)) (ENTRY . (object_declaration . 5)) (FOR . (object_declaration . 5)) (FUNCTION . (object_declaration . 5)) (GENERIC . (object_declaration . 5)) (NOT . (object_declaration . 5)) (OVERRIDING . (object_declaration . 5)) (PACKAGE . (object_declaration . 5)) (PRAGMA . (object_declaration . 5)) (PROCEDURE . (object_declaration . 5)) (PROTECTED . (object_declaration . 5)) (SUBTYPE . (object_declaration . 5)) (TASK . (object_declaration . 5)) (TYPE . (object_declaration . 5)) (USE . (object_declaration . 5)) (IDENTIFIER . (object_declaration . 5))) @@ -2952,198 +2958,197 @@ ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (END . (package_body . 0)) (BEGIN . (package_body . 0)) (ENTRY . (package_body . 0)) (FOR . (package_body . 0)) (PROTECTED . (package_body . 0)) (SUBTYPE . (package_body . 0)) (TASK . (package_body . 0)) (TYPE . (package_body . 0)) (IDENTIFIER . (package_body . 0)) (WITH . (package_body . 0)) (USE . (package_body . 0)) (SEPARATE . (package_body . 0)) (PROCEDURE . (package_body . 0)) (PRIVATE . (package_body . 0)) (PRAGMA . (package_body . 0)) (PACKAGE . (package_body . 0)) (OVERRIDING . (package_body . 0)) (NOT . (package_body . 0)) (LIMITED . (package_body . 0)) (GENERIC . (package_body . 0)) (FUNCTION . (package_body . 0)) ($EOI . (package_body . 0))) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 3)) (EQUAL_GREATER . (iterator_specification . 3)) (LEFT_PAREN . 107)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) + ((default . error) (ELSE . (elsif_expression_item . 0)) (ELSIF . (elsif_expression_item . 0)) (RIGHT_PAREN . (elsif_expression_item . 0)) (COMMA . (elsif_expression_item . 0))) + ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 2)) (EQUAL_GREATER . (iterator_specification . 2)) (LEFT_PAREN . 107)) + ((default . error) (DO . (subtype_indication . 0)) (COLON_EQUAL . (subtype_indication . 0)) (LOOP . (subtype_indication . 0)) (RIGHT_PAREN . (subtype_indication . 0)) (COMMA . (subtype_indication . 0)) (EQUAL_GREATER . (subtype_indication . 0)) (WITH . (subtype_indication . 0)) (AND . (subtype_indication . 0)) (OF . (subtype_indication . 0)) (SEMICOLON . (subtype_indication . 0))) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) ((default . error) (PROCEDURE . (protected_operation_item_list . 1)) (OVERRIDING . (protected_operation_item_list . 1)) (NOT . (protected_operation_item_list . 1)) (FUNCTION . (protected_operation_item_list . 1)) (FOR . (protected_operation_item_list . 1)) (ENTRY . (protected_operation_item_list . 1)) (END . (protected_operation_item_list . 1))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 1212)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 1209)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (THEN . (accept_statement . 1)) (WHEN . (accept_statement . 1)) (EXCEPTION . (accept_statement . 1)) (ELSIF . (accept_statement . 1)) (ELSE . (accept_statement . 1)) (OR . (accept_statement . 1)) (END . (accept_statement . 1)) (ACCEPT . (accept_statement . 1)) (ABORT . (accept_statement . 1)) (BEGIN . (accept_statement . 1)) (CASE . (accept_statement . 1)) (DECLARE . (accept_statement . 1)) (DELAY . (accept_statement . 1)) (EXIT . (accept_statement . 1)) (FOR . (accept_statement . 1)) (GOTO . (accept_statement . 1)) (IF . (accept_statement . 1)) (LOOP . (accept_statement . 1)) (NULL . (accept_statement . 1)) (PRAGMA . (accept_statement . 1)) (RAISE . (accept_statement . 1)) (REQUEUE . (accept_statement . 1)) (RETURN . (accept_statement . 1)) (SELECT . (accept_statement . 1)) (WHILE . (accept_statement . 1)) (LESS_LESS . (accept_statement . 1)) (IDENTIFIER . (accept_statement . 1)) (STRING_LITERAL . (accept_statement . 1)) (CHARACTER_LITERAL . (accept_statement . 1))) ((default . error) (OR . (block_statement . 1)) (THEN . (block_statement . 1)) (WHEN . (block_statement . 1)) (EXCEPTION . (block_statement . 1)) (END . (block_statement . 1)) (ACCEPT . (block_statement . 1)) (ABORT . (block_statement . 1)) (BEGIN . (block_statement . 1)) (CASE . (block_statement . 1)) (DECLARE . (block_statement . 1)) (DELAY . (block_statement . 1)) (EXIT . (block_statement . 1)) (FOR . (block_statement . 1)) (GOTO . (block_statement . 1)) (IF . (block_statement . 1)) (LOOP . (block_statement . 1)) (NULL . (block_statement . 1)) (PRAGMA . (block_statement . 1)) (RAISE . (block_statement . 1)) (REQUEUE . (block_statement . 1)) (RETURN . (block_statement . 1)) (SELECT . (block_statement . 1)) (WHILE . (block_statement . 1)) (LESS_LESS . (block_statement . 1)) (IDENTIFIER . (block_statement . 1)) (STRING_LITERAL . (block_statement . 1)) (CHARACTER_LITERAL . (block_statement . 1)) (ELSE . (block_statement . 1)) (ELSIF . (block_statement . 1))) - ((default . error) (CASE . 1209)) + ((default . error) (CASE . 1206)) ((default . error) (WHEN . (case_statement_alternative_list . 1)) (END . (case_statement_alternative_list . 1))) - ((default . error) (BAR . 285) (EQUAL_GREATER . 1208)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) + ((default . error) (BAR . 286) (EQUAL_GREATER . 1205)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) ((default . error) (OR . (exit_statement . 0)) (THEN . (exit_statement . 0)) (WHEN . (exit_statement . 0)) (EXCEPTION . (exit_statement . 0)) (END . (exit_statement . 0)) (ACCEPT . (exit_statement . 0)) (ABORT . (exit_statement . 0)) (BEGIN . (exit_statement . 0)) (CASE . (exit_statement . 0)) (DECLARE . (exit_statement . 0)) (DELAY . (exit_statement . 0)) (EXIT . (exit_statement . 0)) (FOR . (exit_statement . 0)) (GOTO . (exit_statement . 0)) (IF . (exit_statement . 0)) (LOOP . (exit_statement . 0)) (NULL . (exit_statement . 0)) (PRAGMA . (exit_statement . 0)) (RAISE . (exit_statement . 0)) (REQUEUE . (exit_statement . 0)) (RETURN . (exit_statement . 0)) (SELECT . (exit_statement . 0)) (WHILE . (exit_statement . 0)) (LESS_LESS . (exit_statement . 0)) (IDENTIFIER . (exit_statement . 0)) (STRING_LITERAL . (exit_statement . 0)) (CHARACTER_LITERAL . (exit_statement . 0)) (ELSE . (exit_statement . 0)) (ELSIF . (exit_statement . 0))) - ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (THEN . (expression_opt . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (IF . 1204)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (THEN . (expression_opt . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IF . 1201)) ((default . error) (END . (elsif_statement_list . 0)) (ELSE . (elsif_statement_list . 0)) (ELSIF . (elsif_statement_list . 0))) - ((default . error) (END . 1202) (ELSE . 1201) (ELSIF . 1164)) - ((default . error) (SEMICOLON . 1200)) + ((default . error) (END . 1199) (ELSE . 1198) (ELSIF . 1161)) + ((default . error) (SEMICOLON . 1197)) ((default . error) (OR . (raise_statement . 1)) (THEN . (raise_statement . 1)) (WHEN . (raise_statement . 1)) (EXCEPTION . (raise_statement . 1)) (END . (raise_statement . 1)) (ACCEPT . (raise_statement . 1)) (ABORT . (raise_statement . 1)) (BEGIN . (raise_statement . 1)) (CASE . (raise_statement . 1)) (DECLARE . (raise_statement . 1)) (DELAY . (raise_statement . 1)) (EXIT . (raise_statement . 1)) (FOR . (raise_statement . 1)) (GOTO . (raise_statement . 1)) (IF . (raise_statement . 1)) (LOOP . (raise_statement . 1)) (NULL . (raise_statement . 1)) (PRAGMA . (raise_statement . 1)) (RAISE . (raise_statement . 1)) (REQUEUE . (raise_statement . 1)) (RETURN . (raise_statement . 1)) (SELECT . (raise_statement . 1)) (WHILE . (raise_statement . 1)) (LESS_LESS . (raise_statement . 1)) (IDENTIFIER . (raise_statement . 1)) (STRING_LITERAL . (raise_statement . 1)) (CHARACTER_LITERAL . (raise_statement . 1)) (ELSE . (raise_statement . 1)) (ELSIF . (raise_statement . 1))) ((default . error) (OR . (requeue_statement . 0)) (THEN . (requeue_statement . 0)) (WHEN . (requeue_statement . 0)) (EXCEPTION . (requeue_statement . 0)) (END . (requeue_statement . 0)) (ACCEPT . (requeue_statement . 0)) (ABORT . (requeue_statement . 0)) (BEGIN . (requeue_statement . 0)) (CASE . (requeue_statement . 0)) (DECLARE . (requeue_statement . 0)) (DELAY . (requeue_statement . 0)) (EXIT . (requeue_statement . 0)) (FOR . (requeue_statement . 0)) (GOTO . (requeue_statement . 0)) (IF . (requeue_statement . 0)) (LOOP . (requeue_statement . 0)) (NULL . (requeue_statement . 0)) (PRAGMA . (requeue_statement . 0)) (RAISE . (requeue_statement . 0)) (REQUEUE . (requeue_statement . 0)) (RETURN . (requeue_statement . 0)) (SELECT . (requeue_statement . 0)) (WHILE . (requeue_statement . 0)) (LESS_LESS . (requeue_statement . 0)) (IDENTIFIER . (requeue_statement . 0)) (STRING_LITERAL . (requeue_statement . 0)) (CHARACTER_LITERAL . (requeue_statement . 0)) (ELSE . (requeue_statement . 0)) (ELSIF . (requeue_statement . 0))) - ((default . error) (RETURN . 1199)) + ((default . error) (RETURN . 1196)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 883)) - ((default . error) (END . 1195)) - ((default . error) (SELECT . 1194)) + ((default . error) (END . 1192)) + ((default . error) (SELECT . 1191)) ((default . error) (OR . (selective_accept . 1)) (THEN . (selective_accept . 1)) (WHEN . (selective_accept . 1)) (EXCEPTION . (selective_accept . 1)) (END . (selective_accept . 1)) (ACCEPT . (selective_accept . 1)) (ABORT . (selective_accept . 1)) (BEGIN . (selective_accept . 1)) (CASE . (selective_accept . 1)) (DECLARE . (selective_accept . 1)) (DELAY . (selective_accept . 1)) (EXIT . (selective_accept . 1)) (FOR . (selective_accept . 1)) (GOTO . (selective_accept . 1)) (IF . (selective_accept . 1)) (LOOP . (selective_accept . 1)) (NULL . (selective_accept . 1)) (PRAGMA . (selective_accept . 1)) (RAISE . (selective_accept . 1)) (REQUEUE . (selective_accept . 1)) (RETURN . (selective_accept . 1)) (SELECT . (selective_accept . 1)) (WHILE . (selective_accept . 1)) (LESS_LESS . (selective_accept . 1)) (IDENTIFIER . (selective_accept . 1)) (STRING_LITERAL . (selective_accept . 1)) (CHARACTER_LITERAL . (selective_accept . 1)) (ELSE . (selective_accept . 1)) (ELSIF . (selective_accept . 1))) - ((default . error) (SELECT . 1193)) + ((default . error) (SELECT . 1190)) ((default . error) (END . (delay_alternative . 0)) (OR . (delay_alternative . 0)) (ELSE . (delay_alternative . 0))) - ((default . error) (SELECT . 1192)) - ((default . error) (SEMICOLON . 1191)) - ((default . error) (ELSE . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (SELECT . 1189)) + ((default . error) (SEMICOLON . 1188)) + ((default . error) (ELSE . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (END . (select_alternative . 2)) (OR . (select_alternative . 2)) (ELSE . (select_alternative . 2))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (OTHERS . 950) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (WHEN . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (OTHERS . 950) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (BAR . 1183) (EQUAL_GREATER . 1289)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (OTHERS . 955) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (WHEN . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (OTHERS . 955) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (BAR . 1180) (EQUAL_GREATER . 1284)) ((default . error) (WHEN . (exception_handler . 1)) (END . (exception_handler . 1))) ((default . error) (EQUAL_GREATER . (exception_choice_list . 1)) (BAR . (exception_choice_list . 1))) - ((default . error) (SEMICOLON . 1288)) + ((default . error) (SEMICOLON . 1283)) ((default . error) (ELSE . (select_alternative . 0)) (OR . (select_alternative . 0)) (END . (select_alternative . 0))) ((default . error) (ELSE . (select_alternative . 4)) (OR . (select_alternative . 4)) (END . (select_alternative . 4))) - ((default . error) (SEMICOLON . 1287)) - ((default . error) (SEMICOLON . 1286)) - ((default . error) (SEMICOLON . 1285)) - ((default . error) (SELECT . 1284)) + ((default . error) (SEMICOLON . 1282)) + ((default . error) (SEMICOLON . 1281)) + ((default . error) (SEMICOLON . 1280)) + ((default . error) (SELECT . 1279)) ((default . error) (DO . (return_subtype_indication . 1)) (SEMICOLON . (return_subtype_indication . 1)) (COLON_EQUAL . (return_subtype_indication . 1))) - ((default . error) (DO . (extended_return_object_declaration . 1)) (SEMICOLON . (extended_return_object_declaration . 1)) (COLON_EQUAL . 1283)) + ((default . error) (DO . (extended_return_object_declaration . 1)) (SEMICOLON . (extended_return_object_declaration . 1)) (COLON_EQUAL . 1278)) ((default . error) (DO . (return_subtype_indication . 0)) (SEMICOLON . (return_subtype_indication . 0)) (COLON_EQUAL . (return_subtype_indication . 0))) - ((default . error) (SEMICOLON . 1282)) + ((default . error) (SEMICOLON . 1277)) ((default . error) (WHEN . (loop_statement . 1)) (THEN . (loop_statement . 1)) (OR . (loop_statement . 1)) (ELSIF . (loop_statement . 1)) (ELSE . (loop_statement . 1)) (CHARACTER_LITERAL . (loop_statement . 1)) (STRING_LITERAL . (loop_statement . 1)) (IDENTIFIER . (loop_statement . 1)) (LESS_LESS . (loop_statement . 1)) (WHILE . (loop_statement . 1)) (SELECT . (loop_statement . 1)) (RETURN . (loop_statement . 1)) (REQUEUE . (loop_statement . 1)) (RAISE . (loop_statement . 1)) (PRAGMA . (loop_statement . 1)) (NULL . (loop_statement . 1)) (LOOP . (loop_statement . 1)) (IF . (loop_statement . 1)) (GOTO . (loop_statement . 1)) (FOR . (loop_statement . 1)) (EXIT . (loop_statement . 1)) (DELAY . (loop_statement . 1)) (DECLARE . (loop_statement . 1)) (CASE . (loop_statement . 1)) (BEGIN . (loop_statement . 1)) (ABORT . (loop_statement . 1)) (ACCEPT . (loop_statement . 1)) (END . (loop_statement . 1)) (EXCEPTION . (loop_statement . 1))) - ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (IF . 1280)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (IF . 1275)) ((default . error) (ELSIF . (elsif_statement_list . 1)) (ELSE . (elsif_statement_list . 1)) (END . (elsif_statement_list . 1))) - ((default . error) (SEMICOLON . 1279)) - ((default . error) (THEN . 1278)) - ((default . error) (END . 1277)) - ((default . error) (SEMICOLON . 1276)) - ((default . error) (END . (sequence_of_statements_opt . 0)) (WHEN . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) ((default . error) (SEMICOLON . 1274)) - ((default . error) (END . 1273)) + ((default . error) (THEN . 1273)) ((default . error) (END . 1272)) - ((default . error) (FOR . 1271) (IDENTIFIER . 77)) - ((default . error) (WHEN . 1270)) - ((default . error) (WHEN . (entry_body_formal_part . 1))) + ((default . error) (SEMICOLON . 1271)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (WHEN . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (SEMICOLON . 1269)) - ((default . error) (DOT . 90) (TICK . 91) (LOOP . (iterator_specification . 2)) (EQUAL_GREATER . (iterator_specification . 2)) (LEFT_PAREN . 107)) - ((default . error) (SEMICOLON . 1268)) - ((default . error) (SEMICOLON . 1267)) - ((default . error) (SEMICOLON . 1266)) - ((default . error) (SEMICOLON . 1265)) + ((default . error) (END . 1268)) + ((default . error) (END . 1267)) + ((default . error) (FOR . 1266) (IDENTIFIER . 77)) + ((default . error) (WHEN . 1265)) + ((default . error) (WHEN . (entry_body_formal_part . 1))) + ((default . error) (SEMICOLON . 1264)) + ((default . error) (SEMICOLON . 1263)) + ((default . error) (SEMICOLON . 1262)) + ((default . error) (SEMICOLON . 1261)) + ((default . error) (SEMICOLON . 1260)) ((default . error) (BEGIN . (object_renaming_declaration . 0)) (ENTRY . (object_renaming_declaration . 0)) (FOR . (object_renaming_declaration . 0)) (FUNCTION . (object_renaming_declaration . 0)) (GENERIC . (object_renaming_declaration . 0)) (NOT . (object_renaming_declaration . 0)) (OVERRIDING . (object_renaming_declaration . 0)) (PACKAGE . (object_renaming_declaration . 0)) (PRAGMA . (object_renaming_declaration . 0)) (PROCEDURE . (object_renaming_declaration . 0)) (PROTECTED . (object_renaming_declaration . 0)) (SUBTYPE . (object_renaming_declaration . 0)) (TASK . (object_renaming_declaration . 0)) (TYPE . (object_renaming_declaration . 0)) (USE . (object_renaming_declaration . 0)) (IDENTIFIER . (object_renaming_declaration . 0)) (PRIVATE . (object_renaming_declaration . 0)) (END . (object_renaming_declaration . 0))) ((default . error) (BEGIN . (private_type_declaration . 0)) (ENTRY . (private_type_declaration . 0)) (FOR . (private_type_declaration . 0)) (FUNCTION . (private_type_declaration . 0)) (GENERIC . (private_type_declaration . 0)) (NOT . (private_type_declaration . 0)) (OVERRIDING . (private_type_declaration . 0)) (PACKAGE . (private_type_declaration . 0)) (PRAGMA . (private_type_declaration . 0)) (PROCEDURE . (private_type_declaration . 0)) (PROTECTED . (private_type_declaration . 0)) (SUBTYPE . (private_type_declaration . 0)) (TASK . (private_type_declaration . 0)) (TYPE . (private_type_declaration . 0)) (USE . (private_type_declaration . 0)) (IDENTIFIER . (private_type_declaration . 0)) (PRIVATE . (private_type_declaration . 0)) (END . (private_type_declaration . 0))) - ((default . error) (WITH . 1264)) + ((default . error) (WITH . 1259)) ((default . error) (WITH . (constraint_opt . 1)) (SEMICOLON . (constraint_opt . 1))) ((default . error) (WITH . (derived_type_definition . 1)) (SEMICOLON . (derived_type_definition . 1))) - ((default . error) (WITH . 1263)) - ((default . error) (WHEN . 1260)) + ((default . error) (WITH . 1258)) + ((default . error) (WHEN . 1255)) ((default . error) (SEMICOLON . (record_definition . 0)) (WITH . (record_definition . 0))) - ((default . error) (COLON_EQUAL . 1258) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) + ((default . error) (COLON_EQUAL . 1253) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (SEMICOLON . (type_definition . 1)) (WITH . (type_definition . 1))) ((default . error) (RIGHT_PAREN . (enumeration_literal_list . 1)) (COMMA . (enumeration_literal_list . 1))) - ((default . error) (DOT_DOT . 1257)) - ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1118)) + ((default . error) (DOT_DOT . 1252)) + ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1114)) ((default . error) (IDENTIFIER . (task_type_declaration . 1)) (USE . (task_type_declaration . 1)) (TYPE . (task_type_declaration . 1)) (TASK . (task_type_declaration . 1)) (SUBTYPE . (task_type_declaration . 1)) (PROTECTED . (task_type_declaration . 1)) (PROCEDURE . (task_type_declaration . 1)) (PRAGMA . (task_type_declaration . 1)) (PACKAGE . (task_type_declaration . 1)) (OVERRIDING . (task_type_declaration . 1)) (NOT . (task_type_declaration . 1)) (GENERIC . (task_type_declaration . 1)) (FUNCTION . (task_type_declaration . 1)) (FOR . (task_type_declaration . 1)) (ENTRY . (task_type_declaration . 1)) (BEGIN . (task_type_declaration . 1)) (END . (task_type_declaration . 1)) (PRIVATE . (task_type_declaration . 1))) - ((default . error) (AND . 1072) (WITH . 1255)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (SEMICOLON . 1253)) + ((default . error) (AND . 1078) (WITH . 1250)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (SEMICOLON . 1248)) ((default . error) (IDENTIFIER . (protected_type_declaration . 1)) (USE . (protected_type_declaration . 1)) (TYPE . (protected_type_declaration . 1)) (TASK . (protected_type_declaration . 1)) (SUBTYPE . (protected_type_declaration . 1)) (PROTECTED . (protected_type_declaration . 1)) (PROCEDURE . (protected_type_declaration . 1)) (PRAGMA . (protected_type_declaration . 1)) (PACKAGE . (protected_type_declaration . 1)) (OVERRIDING . (protected_type_declaration . 1)) (NOT . (protected_type_declaration . 1)) (GENERIC . (protected_type_declaration . 1)) (FUNCTION . (protected_type_declaration . 1)) (FOR . (protected_type_declaration . 1)) (ENTRY . (protected_type_declaration . 1)) (BEGIN . (protected_type_declaration . 1)) (END . (protected_type_declaration . 1)) (PRIVATE . (protected_type_declaration . 1))) - ((default . error) (AND . 1072) (WITH . 1252)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (SEMICOLON . 1250)) - ((default . error) (RANGE . 1249)) + ((default . error) (AND . 1078) (WITH . 1247)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (SEMICOLON . 1245)) + ((default . error) (RANGE . 1244)) ((default . error) (SEMICOLON . (record_rep . 0))) ((default . error) (IDENTIFIER . (mod_clause_opt . 1))) ((default . error) (COLON_EQUAL . (component_definition . 2)) (SEMICOLON . (component_definition . 2)) (WITH . (component_definition . 2))) ((default . error) (COLON_EQUAL . (component_definition . 0)) (SEMICOLON . (component_definition . 0)) (WITH . (component_definition . 0))) - ((default . error) (RIGHT_PAREN . (subtype_indication . 1)) (COMMA . (subtype_indication . 1)) (DOT . 90) (TICK . 91) (BAR . (discrete_choice . 1)) (EQUAL_GREATER . (discrete_choice . 1)) (RANGE . 851) (LEFT_PAREN . 824)) - ((default . error) (ELSE . (elsif_expression_item . 0)) (ELSIF . (elsif_expression_item . 0)) (RIGHT_PAREN . (elsif_expression_item . 0))) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (RIGHT_PAREN . (subtype_indication . 1)) (COMMA . (subtype_indication . 1)) (DOT . 90) (TICK . 91) (BAR . (discrete_choice . 1)) (EQUAL_GREATER . (discrete_choice . 1)) (RANGE . 902) (LEFT_PAREN . 827)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (END . (single_protected_declaration . 0)) (PRIVATE . (single_protected_declaration . 0)) (IDENTIFIER . (single_protected_declaration . 0)) (USE . (single_protected_declaration . 0)) (TYPE . (single_protected_declaration . 0)) (TASK . (single_protected_declaration . 0)) (SUBTYPE . (single_protected_declaration . 0)) (PROTECTED . (single_protected_declaration . 0)) (PROCEDURE . (single_protected_declaration . 0)) (PRAGMA . (single_protected_declaration . 0)) (PACKAGE . (single_protected_declaration . 0)) (OVERRIDING . (single_protected_declaration . 0)) (NOT . (single_protected_declaration . 0)) (GENERIC . (single_protected_declaration . 0)) (FUNCTION . (single_protected_declaration . 0)) (FOR . (single_protected_declaration . 0)) (ENTRY . (single_protected_declaration . 0)) (BEGIN . (single_protected_declaration . 0))) ((default . error) (SEMICOLON . (protected_definition . 0))) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) ((default . error) (END . (single_task_declaration . 0)) (PRIVATE . (single_task_declaration . 0)) (IDENTIFIER . (single_task_declaration . 0)) (USE . (single_task_declaration . 0)) (TYPE . (single_task_declaration . 0)) (TASK . (single_task_declaration . 0)) (SUBTYPE . (single_task_declaration . 0)) (PROTECTED . (single_task_declaration . 0)) (PROCEDURE . (single_task_declaration . 0)) (PRAGMA . (single_task_declaration . 0)) (PACKAGE . (single_task_declaration . 0)) (OVERRIDING . (single_task_declaration . 0)) (NOT . (single_task_declaration . 0)) (GENERIC . (single_task_declaration . 0)) (FUNCTION . (single_task_declaration . 0)) (FOR . (single_task_declaration . 0)) (ENTRY . (single_task_declaration . 0)) (BEGIN . (single_task_declaration . 0))) ((default . error) (SEMICOLON . (task_definition . 0))) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) ((default . error) (WITH . (type_definition . 5)) (SEMICOLON . (type_definition . 5))) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 1306)) - ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 174) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) - ((default . error) (END . 1303) (WHEN . 1260)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1301)) + ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 182) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 181) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (END . 1298) (WHEN . 1255)) ((default . error) (END . (variant_list . 0)) (WHEN . (variant_list . 0))) - ((default . error) (PRIVATE . 1302)) + ((default . error) (PRIVATE . 1297)) ((default . error) (RECORD . 866) (NULL . 864)) ((default . error) (PRIVATE . (object_declaration . 2)) (END . (object_declaration . 2)) (BEGIN . (object_declaration . 2)) (ENTRY . (object_declaration . 2)) (FOR . (object_declaration . 2)) (FUNCTION . (object_declaration . 2)) (GENERIC . (object_declaration . 2)) (NOT . (object_declaration . 2)) (OVERRIDING . (object_declaration . 2)) (PACKAGE . (object_declaration . 2)) (PRAGMA . (object_declaration . 2)) (PROCEDURE . (object_declaration . 2)) (PROTECTED . (object_declaration . 2)) (SUBTYPE . (object_declaration . 2)) (TASK . (object_declaration . 2)) (TYPE . (object_declaration . 2)) (USE . (object_declaration . 2)) (IDENTIFIER . (object_declaration . 2))) ((default . error) (PRIVATE . (object_declaration . 4)) (END . (object_declaration . 4)) (BEGIN . (object_declaration . 4)) (ENTRY . (object_declaration . 4)) (FOR . (object_declaration . 4)) (FUNCTION . (object_declaration . 4)) (GENERIC . (object_declaration . 4)) (NOT . (object_declaration . 4)) (OVERRIDING . (object_declaration . 4)) (PACKAGE . (object_declaration . 4)) (PRAGMA . (object_declaration . 4)) (PROCEDURE . (object_declaration . 4)) (PROTECTED . (object_declaration . 4)) (SUBTYPE . (object_declaration . 4)) (TASK . (object_declaration . 4)) (TYPE . (object_declaration . 4)) (USE . (object_declaration . 4)) (IDENTIFIER . (object_declaration . 4))) ((default . error) (PRIVATE . (object_declaration . 0)) (END . (object_declaration . 0)) (BEGIN . (object_declaration . 0)) (ENTRY . (object_declaration . 0)) (FOR . (object_declaration . 0)) (FUNCTION . (object_declaration . 0)) (GENERIC . (object_declaration . 0)) (NOT . (object_declaration . 0)) (OVERRIDING . (object_declaration . 0)) (PACKAGE . (object_declaration . 0)) (PRAGMA . (object_declaration . 0)) (PROCEDURE . (object_declaration . 0)) (PROTECTED . (object_declaration . 0)) (SUBTYPE . (object_declaration . 0)) (TASK . (object_declaration . 0)) (TYPE . (object_declaration . 0)) (USE . (object_declaration . 0)) (IDENTIFIER . (object_declaration . 0))) ((default . error) (PRIVATE . (entry_declaration . 0)) (END . (entry_declaration . 0)) (BEGIN . (entry_declaration . 0)) (ENTRY . (entry_declaration . 0)) (FOR . (entry_declaration . 0)) (FUNCTION . (entry_declaration . 0)) (GENERIC . (entry_declaration . 0)) (NOT . (entry_declaration . 0)) (OVERRIDING . (entry_declaration . 0)) (PACKAGE . (entry_declaration . 0)) (PRAGMA . (entry_declaration . 0)) (PROCEDURE . (entry_declaration . 0)) (PROTECTED . (entry_declaration . 0)) (SUBTYPE . (entry_declaration . 0)) (TASK . (entry_declaration . 0)) (TYPE . (entry_declaration . 0)) (USE . (entry_declaration . 0)) (IDENTIFIER . (entry_declaration . 0))) ((default . error) (PRIVATE . (protected_body . 0)) (END . (protected_body . 0)) (BEGIN . (protected_body . 0)) (ENTRY . (protected_body . 0)) (FOR . (protected_body . 0)) (FUNCTION . (protected_body . 0)) (GENERIC . (protected_body . 0)) (NOT . (protected_body . 0)) (OVERRIDING . (protected_body . 0)) (PACKAGE . (protected_body . 0)) (PRAGMA . (protected_body . 0)) (PROCEDURE . (protected_body . 0)) (PROTECTED . (protected_body . 0)) (SUBTYPE . (protected_body . 0)) (TASK . (protected_body . 0)) (TYPE . (protected_body . 0)) (USE . (protected_body . 0)) (IDENTIFIER . (protected_body . 0)) ($EOI . (protected_body . 0)) (LIMITED . (protected_body . 0)) (SEPARATE . (protected_body . 0)) (WITH . (protected_body . 0))) - ((default . error) (IS . (expression_opt . 0)) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (IDENTIFIER . 1299)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) + ((default . error) (IS . (expression_opt . 0)) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 1294)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) ((default . error) (OR . (case_statement . 0)) (THEN . (case_statement . 0)) (WHEN . (case_statement . 0)) (EXCEPTION . (case_statement . 0)) (END . (case_statement . 0)) (ACCEPT . (case_statement . 0)) (ABORT . (case_statement . 0)) (BEGIN . (case_statement . 0)) (CASE . (case_statement . 0)) (DECLARE . (case_statement . 0)) (DELAY . (case_statement . 0)) (EXIT . (case_statement . 0)) (FOR . (case_statement . 0)) (GOTO . (case_statement . 0)) (IF . (case_statement . 0)) (LOOP . (case_statement . 0)) (NULL . (case_statement . 0)) (PRAGMA . (case_statement . 0)) (RAISE . (case_statement . 0)) (REQUEUE . (case_statement . 0)) (RETURN . (case_statement . 0)) (SELECT . (case_statement . 0)) (WHILE . (case_statement . 0)) (LESS_LESS . (case_statement . 0)) (IDENTIFIER . (case_statement . 0)) (STRING_LITERAL . (case_statement . 0)) (CHARACTER_LITERAL . (case_statement . 0)) (ELSE . (case_statement . 0)) (ELSIF . (case_statement . 0))) ((default . error) (END . (case_statement_alternative . 0)) (WHEN . (case_statement_alternative . 0))) ((default . error) (OR . (block_statement . 0)) (THEN . (block_statement . 0)) (WHEN . (block_statement . 0)) (EXCEPTION . (block_statement . 0)) (END . (block_statement . 0)) (ACCEPT . (block_statement . 0)) (ABORT . (block_statement . 0)) (BEGIN . (block_statement . 0)) (CASE . (block_statement . 0)) (DECLARE . (block_statement . 0)) (DELAY . (block_statement . 0)) (EXIT . (block_statement . 0)) (FOR . (block_statement . 0)) (GOTO . (block_statement . 0)) (IF . (block_statement . 0)) (LOOP . (block_statement . 0)) (NULL . (block_statement . 0)) (PRAGMA . (block_statement . 0)) (RAISE . (block_statement . 0)) (REQUEUE . (block_statement . 0)) (RETURN . (block_statement . 0)) (SELECT . (block_statement . 0)) (WHILE . (block_statement . 0)) (LESS_LESS . (block_statement . 0)) (IDENTIFIER . (block_statement . 0)) (STRING_LITERAL . (block_statement . 0)) (CHARACTER_LITERAL . (block_statement . 0)) (ELSE . (block_statement . 0)) (ELSIF . (block_statement . 0))) - ((default . error) (IF . 1296)) - ((default . error) (ELSE . (sequence_of_statements_opt . 0)) (ELSIF . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (IF . 1291)) + ((default . error) (ELSE . (sequence_of_statements_opt . 0)) (ELSIF . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (OR . (if_statement . 3)) (THEN . (if_statement . 3)) (WHEN . (if_statement . 3)) (EXCEPTION . (if_statement . 3)) (END . (if_statement . 3)) (ACCEPT . (if_statement . 3)) (ABORT . (if_statement . 3)) (BEGIN . (if_statement . 3)) (CASE . (if_statement . 3)) (DECLARE . (if_statement . 3)) (DELAY . (if_statement . 3)) (EXIT . (if_statement . 3)) (FOR . (if_statement . 3)) (GOTO . (if_statement . 3)) (IF . (if_statement . 3)) (LOOP . (if_statement . 3)) (NULL . (if_statement . 3)) (PRAGMA . (if_statement . 3)) (RAISE . (if_statement . 3)) (REQUEUE . (if_statement . 3)) (RETURN . (if_statement . 3)) (SELECT . (if_statement . 3)) (WHILE . (if_statement . 3)) (LESS_LESS . (if_statement . 3)) (IDENTIFIER . (if_statement . 3)) (STRING_LITERAL . (if_statement . 3)) (CHARACTER_LITERAL . (if_statement . 3)) (ELSE . (if_statement . 3)) (ELSIF . (if_statement . 3))) - ((default . error) (SEMICOLON . 1294)) - ((default . error) (END . 1293)) + ((default . error) (SEMICOLON . 1289)) + ((default . error) (END . 1288)) ((default . error) (OR . (extended_return_statement . 0)) (THEN . (extended_return_statement . 0)) (WHEN . (extended_return_statement . 0)) (EXCEPTION . (extended_return_statement . 0)) (END . (extended_return_statement . 0)) (ACCEPT . (extended_return_statement . 0)) (ABORT . (extended_return_statement . 0)) (BEGIN . (extended_return_statement . 0)) (CASE . (extended_return_statement . 0)) (DECLARE . (extended_return_statement . 0)) (DELAY . (extended_return_statement . 0)) (EXIT . (extended_return_statement . 0)) (FOR . (extended_return_statement . 0)) (GOTO . (extended_return_statement . 0)) (IF . (extended_return_statement . 0)) (LOOP . (extended_return_statement . 0)) (NULL . (extended_return_statement . 0)) (PRAGMA . (extended_return_statement . 0)) (RAISE . (extended_return_statement . 0)) (REQUEUE . (extended_return_statement . 0)) (RETURN . (extended_return_statement . 0)) (SELECT . (extended_return_statement . 0)) (WHILE . (extended_return_statement . 0)) (LESS_LESS . (extended_return_statement . 0)) (IDENTIFIER . (extended_return_statement . 0)) (STRING_LITERAL . (extended_return_statement . 0)) (CHARACTER_LITERAL . (extended_return_statement . 0)) (ELSE . (extended_return_statement . 0)) (ELSIF . (extended_return_statement . 0))) - ((default . error) (RAISE . 149) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) - ((default . error) (SEMICOLON . 1291)) + ((default . error) (RAISE . 152) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1286)) ((default . error) (OR . (selective_accept . 0)) (THEN . (selective_accept . 0)) (WHEN . (selective_accept . 0)) (EXCEPTION . (selective_accept . 0)) (END . (selective_accept . 0)) (ACCEPT . (selective_accept . 0)) (ABORT . (selective_accept . 0)) (BEGIN . (selective_accept . 0)) (CASE . (selective_accept . 0)) (DECLARE . (selective_accept . 0)) (DELAY . (selective_accept . 0)) (EXIT . (selective_accept . 0)) (FOR . (selective_accept . 0)) (GOTO . (selective_accept . 0)) (IF . (selective_accept . 0)) (LOOP . (selective_accept . 0)) (NULL . (selective_accept . 0)) (PRAGMA . (selective_accept . 0)) (RAISE . (selective_accept . 0)) (REQUEUE . (selective_accept . 0)) (RETURN . (selective_accept . 0)) (SELECT . (selective_accept . 0)) (WHILE . (selective_accept . 0)) (LESS_LESS . (selective_accept . 0)) (IDENTIFIER . (selective_accept . 0)) (STRING_LITERAL . (selective_accept . 0)) (CHARACTER_LITERAL . (selective_accept . 0)) (ELSE . (selective_accept . 0)) (ELSIF . (selective_accept . 0))) ((default . error) (OR . (conditional_entry_call . 0)) (THEN . (conditional_entry_call . 0)) (WHEN . (conditional_entry_call . 0)) (EXCEPTION . (conditional_entry_call . 0)) (END . (conditional_entry_call . 0)) (ACCEPT . (conditional_entry_call . 0)) (ABORT . (conditional_entry_call . 0)) (BEGIN . (conditional_entry_call . 0)) (CASE . (conditional_entry_call . 0)) (DECLARE . (conditional_entry_call . 0)) (DELAY . (conditional_entry_call . 0)) (EXIT . (conditional_entry_call . 0)) (FOR . (conditional_entry_call . 0)) (GOTO . (conditional_entry_call . 0)) (IF . (conditional_entry_call . 0)) (LOOP . (conditional_entry_call . 0)) (NULL . (conditional_entry_call . 0)) (PRAGMA . (conditional_entry_call . 0)) (RAISE . (conditional_entry_call . 0)) (REQUEUE . (conditional_entry_call . 0)) (RETURN . (conditional_entry_call . 0)) (SELECT . (conditional_entry_call . 0)) (WHILE . (conditional_entry_call . 0)) (LESS_LESS . (conditional_entry_call . 0)) (IDENTIFIER . (conditional_entry_call . 0)) (STRING_LITERAL . (conditional_entry_call . 0)) (CHARACTER_LITERAL . (conditional_entry_call . 0)) (ELSE . (conditional_entry_call . 0)) (ELSIF . (conditional_entry_call . 0))) ((default . error) (OR . (timed_entry_call . 0)) (THEN . (timed_entry_call . 0)) (WHEN . (timed_entry_call . 0)) (EXCEPTION . (timed_entry_call . 0)) (END . (timed_entry_call . 0)) (ACCEPT . (timed_entry_call . 0)) (ABORT . (timed_entry_call . 0)) (BEGIN . (timed_entry_call . 0)) (CASE . (timed_entry_call . 0)) (DECLARE . (timed_entry_call . 0)) (DELAY . (timed_entry_call . 0)) (EXIT . (timed_entry_call . 0)) (FOR . (timed_entry_call . 0)) (GOTO . (timed_entry_call . 0)) (IF . (timed_entry_call . 0)) (LOOP . (timed_entry_call . 0)) (NULL . (timed_entry_call . 0)) (PRAGMA . (timed_entry_call . 0)) (RAISE . (timed_entry_call . 0)) (REQUEUE . (timed_entry_call . 0)) (RETURN . (timed_entry_call . 0)) (SELECT . (timed_entry_call . 0)) (WHILE . (timed_entry_call . 0)) (LESS_LESS . (timed_entry_call . 0)) (IDENTIFIER . (timed_entry_call . 0)) (STRING_LITERAL . (timed_entry_call . 0)) (CHARACTER_LITERAL . (timed_entry_call . 0)) (ELSE . (timed_entry_call . 0)) (ELSIF . (timed_entry_call . 0))) ((default . error) (OR . (loop_statement . 0)) (THEN . (loop_statement . 0)) (WHEN . (loop_statement . 0)) (EXCEPTION . (loop_statement . 0)) (END . (loop_statement . 0)) (ACCEPT . (loop_statement . 0)) (ABORT . (loop_statement . 0)) (BEGIN . (loop_statement . 0)) (CASE . (loop_statement . 0)) (DECLARE . (loop_statement . 0)) (DELAY . (loop_statement . 0)) (EXIT . (loop_statement . 0)) (FOR . (loop_statement . 0)) (GOTO . (loop_statement . 0)) (IF . (loop_statement . 0)) (LOOP . (loop_statement . 0)) (NULL . (loop_statement . 0)) (PRAGMA . (loop_statement . 0)) (RAISE . (loop_statement . 0)) (REQUEUE . (loop_statement . 0)) (RETURN . (loop_statement . 0)) (SELECT . (loop_statement . 0)) (WHILE . (loop_statement . 0)) (LESS_LESS . (loop_statement . 0)) (IDENTIFIER . (loop_statement . 0)) (STRING_LITERAL . (loop_statement . 0)) (CHARACTER_LITERAL . (loop_statement . 0)) (ELSE . (loop_statement . 0)) (ELSIF . (loop_statement . 0))) - ((default . error) (WHEN . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) + ((default . error) (WHEN . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) ((default . error) (WHEN . (exception_handler . 0)) (END . (exception_handler . 0))) ((default . error) (WHEN . (asynchronous_select . 0)) (THEN . (asynchronous_select . 0)) (OR . (asynchronous_select . 0)) (ELSIF . (asynchronous_select . 0)) (ELSE . (asynchronous_select . 0)) (CHARACTER_LITERAL . (asynchronous_select . 0)) (STRING_LITERAL . (asynchronous_select . 0)) (IDENTIFIER . (asynchronous_select . 0)) (LESS_LESS . (asynchronous_select . 0)) (WHILE . (asynchronous_select . 0)) (SELECT . (asynchronous_select . 0)) (RETURN . (asynchronous_select . 0)) (REQUEUE . (asynchronous_select . 0)) (RAISE . (asynchronous_select . 0)) (PRAGMA . (asynchronous_select . 0)) (NULL . (asynchronous_select . 0)) (LOOP . (asynchronous_select . 0)) (IF . (asynchronous_select . 0)) (GOTO . (asynchronous_select . 0)) (FOR . (asynchronous_select . 0)) (EXIT . (asynchronous_select . 0)) (DELAY . (asynchronous_select . 0)) (DECLARE . (asynchronous_select . 0)) (CASE . (asynchronous_select . 0)) (BEGIN . (asynchronous_select . 0)) (ABORT . (asynchronous_select . 0)) (ACCEPT . (asynchronous_select . 0)) (END . (asynchronous_select . 0)) (EXCEPTION . (asynchronous_select . 0))) ((default . error) (DO . (extended_return_object_declaration . 0)) (SEMICOLON . (extended_return_object_declaration . 0))) - ((default . error) (IF . 1324)) + ((default . error) (IF . 1319)) ((default . error) (WHEN . (if_statement . 1)) (THEN . (if_statement . 1)) (OR . (if_statement . 1)) (ELSIF . (if_statement . 1)) (ELSE . (if_statement . 1)) (CHARACTER_LITERAL . (if_statement . 1)) (STRING_LITERAL . (if_statement . 1)) (IDENTIFIER . (if_statement . 1)) (LESS_LESS . (if_statement . 1)) (WHILE . (if_statement . 1)) (SELECT . (if_statement . 1)) (RETURN . (if_statement . 1)) (REQUEUE . (if_statement . 1)) (RAISE . (if_statement . 1)) (PRAGMA . (if_statement . 1)) (NULL . (if_statement . 1)) (LOOP . (if_statement . 1)) (IF . (if_statement . 1)) (GOTO . (if_statement . 1)) (FOR . (if_statement . 1)) (EXIT . (if_statement . 1)) (DELAY . (if_statement . 1)) (DECLARE . (if_statement . 1)) (CASE . (if_statement . 1)) (BEGIN . (if_statement . 1)) (ABORT . (if_statement . 1)) (ACCEPT . (if_statement . 1)) (END . (if_statement . 1)) (EXCEPTION . (if_statement . 1))) ((default . error) (ELSE . (elsif_statement_item . 0)) (ELSIF . (elsif_statement_item . 0)) (END . (elsif_statement_item . 0))) - ((default . error) (SEMICOLON . 1323)) - ((default . error) (SEMICOLON . 1322)) - ((default . error) (SEMICOLON . 1321)) - ((default . error) (IN . 1320)) - ((default . error) (IS . 1319)) + ((default . error) (SEMICOLON . 1318)) + ((default . error) (SEMICOLON . 1317)) + ((default . error) (SEMICOLON . 1316)) + ((default . error) (IN . 1315)) + ((default . error) (IS . 1314)) ((default . error) (WITH . (derived_type_definition . 0)) (SEMICOLON . (derived_type_definition . 0))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) - ((default . error) (CASE . 1317)) + ((default . error) (CASE . 1312)) ((default . error) (WHEN . (variant_list . 1)) (END . (variant_list . 1))) - ((default . error) (BAR . 285) (EQUAL_GREATER . 1316)) + ((default . error) (BAR . 286) (EQUAL_GREATER . 1311)) ((default . error) (WHEN . (component_declaration . 1)) (END . (component_declaration . 1)) (CASE . (component_declaration . 1)) (FOR . (component_declaration . 1)) (IDENTIFIER . (component_declaration . 1))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 109)) ((default . error) (SEMICOLON . (real_range_specification_opt . 1)) (WITH . (real_range_specification_opt . 1))) - ((default . error) (SEMICOLON . 1314)) - ((default . error) (SEMICOLON . 1313)) - ((default . error) (DOT_DOT . 1312)) - ((default . error) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 147) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 145)) + ((default . error) (SEMICOLON . 1309)) + ((default . error) (SEMICOLON . 1308)) + ((default . error) (DOT_DOT . 1307)) + ((default . error) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 150) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (PRIVATE . (protected_type_declaration . 0)) (END . (protected_type_declaration . 0)) (BEGIN . (protected_type_declaration . 0)) (ENTRY . (protected_type_declaration . 0)) (FOR . (protected_type_declaration . 0)) (FUNCTION . (protected_type_declaration . 0)) (GENERIC . (protected_type_declaration . 0)) (NOT . (protected_type_declaration . 0)) (OVERRIDING . (protected_type_declaration . 0)) (PACKAGE . (protected_type_declaration . 0)) (PRAGMA . (protected_type_declaration . 0)) (PROCEDURE . (protected_type_declaration . 0)) (PROTECTED . (protected_type_declaration . 0)) (SUBTYPE . (protected_type_declaration . 0)) (TASK . (protected_type_declaration . 0)) (TYPE . (protected_type_declaration . 0)) (USE . (protected_type_declaration . 0)) (IDENTIFIER . (protected_type_declaration . 0))) ((default . error) (PRIVATE . (task_type_declaration . 0)) (END . (task_type_declaration . 0)) (BEGIN . (task_type_declaration . 0)) (ENTRY . (task_type_declaration . 0)) (FOR . (task_type_declaration . 0)) (FUNCTION . (task_type_declaration . 0)) (GENERIC . (task_type_declaration . 0)) (NOT . (task_type_declaration . 0)) (OVERRIDING . (task_type_declaration . 0)) (PACKAGE . (task_type_declaration . 0)) (PRAGMA . (task_type_declaration . 0)) (PROCEDURE . (task_type_declaration . 0)) (PROTECTED . (task_type_declaration . 0)) (SUBTYPE . (task_type_declaration . 0)) (TASK . (task_type_declaration . 0)) (TYPE . (task_type_declaration . 0)) (USE . (task_type_declaration . 0)) (IDENTIFIER . (task_type_declaration . 0))) - ((default . error) (SEMICOLON . 1331)) - ((default . error) (END . (component_list_opt . 0)) (WHEN . (component_list_opt . 0)) (NULL . 1023) (CASE . 1022) (IDENTIFIER . 77) (FOR . 298)) - ((default . error) (SEMICOLON . 1329)) - ((default . error) (SEMICOLON . 1328)) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 301) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 298) (IDENTIFIER . 304) (TYPE . 303) (GENERIC . 2) (PROTECTED . 300) (TASK . 302) (PACKAGE . 299)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 151) (MINUS . 150) (ABS . 144) (NOT . 769) (NUMERIC_LITERAL . 152) (NULL . 148) (NEW . 146) (LEFT_PAREN . 145)) + ((default . error) (SEMICOLON . 1326)) + ((default . error) (END . (component_list_opt . 0)) (WHEN . (component_list_opt . 0)) (NULL . 1031) (CASE . 1030) (IDENTIFIER . 77) (FOR . 299)) + ((default . error) (SEMICOLON . 1324)) + ((default . error) (SEMICOLON . 1323)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 302) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 299) (IDENTIFIER . 305) (TYPE . 304) (GENERIC . 2) (PROTECTED . 301) (TASK . 303) (PACKAGE . 300)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 154) (MINUS . 153) (ABS . 144) (NOT . 734) (NUMERIC_LITERAL . 155) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (PRIVATE . (task_body . 0)) (END . (task_body . 0)) (BEGIN . (task_body . 0)) (ENTRY . (task_body . 0)) (FOR . (task_body . 0)) (FUNCTION . (task_body . 0)) (GENERIC . (task_body . 0)) (NOT . (task_body . 0)) (OVERRIDING . (task_body . 0)) (PACKAGE . (task_body . 0)) (PRAGMA . (task_body . 0)) (PROCEDURE . (task_body . 0)) (PROTECTED . (task_body . 0)) (SUBTYPE . (task_body . 0)) (TASK . (task_body . 0)) (TYPE . (task_body . 0)) (USE . (task_body . 0)) (IDENTIFIER . (task_body . 0)) ($EOI . (task_body . 0)) (LIMITED . (task_body . 0)) (SEPARATE . (task_body . 0)) (WITH . (task_body . 0))) ((default . error) (THEN . (accept_statement . 0)) (WHEN . (accept_statement . 0)) (EXCEPTION . (accept_statement . 0)) (ELSIF . (accept_statement . 0)) (ELSE . (accept_statement . 0)) (OR . (accept_statement . 0)) (END . (accept_statement . 0)) (ACCEPT . (accept_statement . 0)) (ABORT . (accept_statement . 0)) (BEGIN . (accept_statement . 0)) (CASE . (accept_statement . 0)) (DECLARE . (accept_statement . 0)) (DELAY . (accept_statement . 0)) (EXIT . (accept_statement . 0)) (FOR . (accept_statement . 0)) (GOTO . (accept_statement . 0)) (IF . (accept_statement . 0)) (LOOP . (accept_statement . 0)) (NULL . (accept_statement . 0)) (PRAGMA . (accept_statement . 0)) (RAISE . (accept_statement . 0)) (REQUEUE . (accept_statement . 0)) (RETURN . (accept_statement . 0)) (SELECT . (accept_statement . 0)) (WHILE . (accept_statement . 0)) (LESS_LESS . (accept_statement . 0)) (IDENTIFIER . (accept_statement . 0)) (STRING_LITERAL . (accept_statement . 0)) (CHARACTER_LITERAL . (accept_statement . 0))) ((default . error) (OR . (if_statement . 2)) (THEN . (if_statement . 2)) (WHEN . (if_statement . 2)) (EXCEPTION . (if_statement . 2)) (END . (if_statement . 2)) (ACCEPT . (if_statement . 2)) (ABORT . (if_statement . 2)) (BEGIN . (if_statement . 2)) (CASE . (if_statement . 2)) (DECLARE . (if_statement . 2)) (DELAY . (if_statement . 2)) (EXIT . (if_statement . 2)) (FOR . (if_statement . 2)) (GOTO . (if_statement . 2)) (IF . (if_statement . 2)) (LOOP . (if_statement . 2)) (NULL . (if_statement . 2)) (PRAGMA . (if_statement . 2)) (RAISE . (if_statement . 2)) (REQUEUE . (if_statement . 2)) (RETURN . (if_statement . 2)) (SELECT . (if_statement . 2)) (WHILE . (if_statement . 2)) (LESS_LESS . (if_statement . 2)) (IDENTIFIER . (if_statement . 2)) (STRING_LITERAL . (if_statement . 2)) (CHARACTER_LITERAL . (if_statement . 2)) (ELSE . (if_statement . 2)) (ELSIF . (if_statement . 2))) - ((default . error) (SEMICOLON . 1325)) + ((default . error) (SEMICOLON . 1320)) ((default . error) (WHEN . (if_statement . 0)) (THEN . (if_statement . 0)) (OR . (if_statement . 0)) (ELSIF . (if_statement . 0)) (ELSE . (if_statement . 0)) (CHARACTER_LITERAL . (if_statement . 0)) (STRING_LITERAL . (if_statement . 0)) (IDENTIFIER . (if_statement . 0)) (LESS_LESS . (if_statement . 0)) (WHILE . (if_statement . 0)) (SELECT . (if_statement . 0)) (RETURN . (if_statement . 0)) (REQUEUE . (if_statement . 0)) (RAISE . (if_statement . 0)) (PRAGMA . (if_statement . 0)) (NULL . (if_statement . 0)) (LOOP . (if_statement . 0)) (IF . (if_statement . 0)) (GOTO . (if_statement . 0)) (FOR . (if_statement . 0)) (EXIT . (if_statement . 0)) (DELAY . (if_statement . 0)) (DECLARE . (if_statement . 0)) (CASE . (if_statement . 0)) (BEGIN . (if_statement . 0)) (ABORT . (if_statement . 0)) (ACCEPT . (if_statement . 0)) (END . (if_statement . 0)) (EXCEPTION . (if_statement . 0))) - ((default . error) (RIGHT_PAREN . 1335)) - ((default . error) (BEGIN . 1334)) + ((default . error) (RIGHT_PAREN . 1330)) + ((default . error) (BEGIN . 1329)) ((default . error) (BEGIN . (private_extension_declaration . 0)) (ENTRY . (private_extension_declaration . 0)) (FOR . (private_extension_declaration . 0)) (FUNCTION . (private_extension_declaration . 0)) (GENERIC . (private_extension_declaration . 0)) (NOT . (private_extension_declaration . 0)) (OVERRIDING . (private_extension_declaration . 0)) (PACKAGE . (private_extension_declaration . 0)) (PRAGMA . (private_extension_declaration . 0)) (PROCEDURE . (private_extension_declaration . 0)) (PROTECTED . (private_extension_declaration . 0)) (SUBTYPE . (private_extension_declaration . 0)) (TASK . (private_extension_declaration . 0)) (TYPE . (private_extension_declaration . 0)) (USE . (private_extension_declaration . 0)) (IDENTIFIER . (private_extension_declaration . 0)) (PRIVATE . (private_extension_declaration . 0)) (END . (private_extension_declaration . 0))) ((default . error) (WHEN . (variant_part . 0)) (END . (variant_part . 0)) (CASE . (variant_part . 0)) (FOR . (variant_part . 0)) (IDENTIFIER . (variant_part . 0))) ((default . error) (END . (variant . 0)) (WHEN . (variant . 0))) ((default . error) (WHEN . (component_declaration . 0)) (END . (component_declaration . 0)) (CASE . (component_declaration . 0)) (FOR . (component_declaration . 0)) (IDENTIFIER . (component_declaration . 0))) - ((default . error) (SEMICOLON . 1333)) + ((default . error) (SEMICOLON . 1328)) ((default . error) (END . (component_clause . 0)) (IDENTIFIER . (component_clause . 0))) - ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 642) (IDENTIFIER . ( 643 (label_opt . 0)))) - ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 798)) + ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (LESS_LESS . 647) (IDENTIFIER . ( 648 (label_opt . 0)))) + ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 808)) ((default . error) (WHEN . (entry_body_formal_part . 0))) - ((default . error) (END . 1338)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 711)) - ((default . error) (SEMICOLON . 1340)) + ((default . error) (END . 1333)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 716)) + ((default . error) (SEMICOLON . 1335)) ((default . error) (PROCEDURE . (entry_body . 0)) (OVERRIDING . (entry_body . 0)) (NOT . (entry_body . 0)) (FUNCTION . (entry_body . 0)) (FOR . (entry_body . 0)) (ENTRY . (entry_body . 0)) (END . (entry_body . 0)))] [((compilation_unit . 13)(compilation_unit_list . 14)(context_item . 15)(function_specification . 16)(generic_declaration . 17)(generic_formal_part . 18)(generic_instantiation . 19)(generic_package_declaration . 20)(generic_renaming_declaration . 21)(generic_subprogram_declaration . 22)(library_item . 23)(library_unit_declaration . 24)(library_unit_renaming_declaration . 25)(overriding_indicator_opt . 26)(package_body . 27)(package_declaration . 28)(package_renaming_declaration . 29)(package_specification . 30)(pragma . 31)(procedure_specification . 32)(subprogram_body . 33)(subprogram_declaration . 34)(subprogram_renaming_declaration . 35)(subunit . 36)(use_clause . 37)(with_clause . 38)) ((attribute_reference . 51)(name . 87)(qualified_expression . 54)(selected_component . 55)) @@ -3233,31 +3238,31 @@ nil nil ((actual_parameter_part . 92)(formal_part . 93)(parameter_and_result_profile . 94)) - ((aggregate . 154)(association_opt . 177)(association_list . 194)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 188)(expression_opt . 189)(factor . 156)(identifier_list . 229)(name . 190)(parameter_specification . 230)(parameter_specification_list . 231)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 195)(range_list . 196)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((access_definition . 226)(null_exclusion_opt . 227)) + ((aggregate . 157)(association_opt . 184)(association_list . 201)(attribute_reference . 51)(case_expression . 158)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(conditional_quantified_expression . 202)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 195)(expression_opt . 196)(factor . 161)(identifier_list . 236)(if_expression . 162)(name . 197)(parameter_specification . 237)(parameter_specification_list . 238)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(range . 203)(range_list . 204)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((access_definition . 233)(null_exclusion_opt . 234)) nil - ((aggregate . 218)(attribute_reference . 51)(attribute_designator . 219)(name . 220)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 225)(attribute_reference . 51)(attribute_designator . 226)(name . 227)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((mode_opt . 211)) + ((mode_opt . 219)) nil nil - ((attribute_reference . 51)(name . 207)(qualified_expression . 54)(selected_component . 55)) - ((aspect_specification_opt . 206)) - ((discriminant_part_opt . 204)) + ((attribute_reference . 51)(name . 215)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 214)) + ((discriminant_part_opt . 212)) ((actual_parameter_part . 92)) ((actual_parameter_part . 92)) ((actual_parameter_part . 92)) nil - ((attribute_reference . 51)(name_list . 198)(name . 53)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name_list . 206)(name . 53)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 154)(association_opt . 177)(association_list . 194)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 188)(expression_opt . 189)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 195)(range_list . 196)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((attribute_reference . 51)(name . 193)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 154)(association_opt . 177)(association_list . 178)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 188)(expression_opt . 189)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 191)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(association_opt . 184)(association_list . 201)(attribute_reference . 51)(case_expression . 158)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(conditional_quantified_expression . 202)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 195)(expression_opt . 196)(factor . 161)(if_expression . 162)(name . 197)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(range . 203)(range_list . 204)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((attribute_reference . 51)(name . 200)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(association_opt . 184)(association_list . 185)(attribute_reference . 51)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 195)(expression_opt . 196)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(range . 198)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((actual_parameter_part . 92)(aspect_specification_opt . 172)) - ((aggregate . 154)(attribute_reference . 51)(expression . 155)(factor . 156)(name . 157)(pragma_argument_association . 158)(pragma_argument_association_list . 159)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((actual_parameter_part . 92)(aspect_specification_opt . 179)) + ((aggregate . 157)(attribute_reference . 51)(case_expression . 158)(conditional_quantified_expression . 159)(expression . 160)(factor . 161)(if_expression . 162)(name . 163)(pragma_argument_association . 164)(pragma_argument_association_list . 165)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil ((aspect_specification_opt . 143)) nil @@ -3279,22 +3284,28 @@ ((actual_parameter_part . 92)(formal_part . 93)(parameter_and_result_profile . 94)) nil nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 391)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 397)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil - ((actual_parameter_part . 92)(aspect_specification_opt . 390)) + ((actual_parameter_part . 92)(aspect_specification_opt . 396)) nil nil nil ((actual_parameter_part . 92)) - ((function_specification . 16)(overriding_indicator_opt . 387)(package_body . 327)(procedure_specification . 32)(proper_body . 388)(protected_body . 335)(subprogram_body . 342)(task_body . 347)) + ((function_specification . 16)(overriding_indicator_opt . 393)(package_body . 328)(procedure_specification . 32)(proper_body . 394)(protected_body . 336)(subprogram_body . 343)(task_body . 348)) + nil nil + ((aggregate . 157)(attribute_reference . 51)(name . 163)(primary . 389)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(expression . 388)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((quantifier . 387)) + ((aggregate . 157)(attribute_reference . 51)(expression . 384)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(association_opt . 184)(association_list . 381)(attribute_reference . 51)(case_expression . 158)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(conditional_quantified_expression . 382)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 383)(expression_opt . 196)(factor . 161)(if_expression . 162)(name . 197)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(range . 198)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((attribute_reference . 51)(name . 379)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(name . 163)(primary . 298)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 154)(attribute_reference . 51)(name . 157)(primary . 383)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 154)(association_opt . 177)(association_list . 242)(attribute_reference . 51)(case_expression . 380)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 244)(expression_opt . 189)(factor . 156)(if_expression . 381)(name . 190)(primary . 160)(qualified_expression . 54)(quantified_expression . 382)(raise_expression . 161)(range . 191)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) ((attribute_reference . 51)(name . 378)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 154)(attribute_reference . 51)(name . 157)(primary . 297)(qualified_expression . 54)(selected_component . 55)) nil - ((attribute_reference . 51)(name . 377)(qualified_expression . 54)(selected_component . 55)) + nil + nil nil nil nil @@ -3313,13 +3324,14 @@ nil nil nil - ((relational_operator . 363)) - ((multiplying_operator . 362)) - ((binary_adding_operator . 357)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(term . 169)(term_list . 353)) nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 312)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) - ((aggregate . 154)(attribute_reference . 51)(name . 157)(primary . 297)(qualified_expression . 54)(selected_component . 55)) + ((relational_operator . 364)) + ((multiplying_operator . 363)) + ((binary_adding_operator . 358)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(term . 176)(term_list . 354)) + nil + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 313)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) + ((aggregate . 157)(attribute_reference . 51)(name . 163)(primary . 298)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -3337,8 +3349,9 @@ nil ((actual_parameter_part . 92)) nil - ((relational_operator . 283)) - ((actual_parameter_part . 92)(aspect_specification_opt . 273)) + ((relational_operator . 284)) + ((actual_parameter_part . 92)(aspect_specification_opt . 274)) + nil nil nil nil @@ -3361,7 +3374,6 @@ nil nil nil - ((aggregate . 154)(association_opt . 177)(association_list . 242)(attribute_reference . 51)(case_expression . 243)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 244)(expression_opt . 189)(factor . 156)(if_expression . 245)(name . 190)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 191)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil nil @@ -3372,79 +3384,77 @@ nil nil nil - ((attribute_reference . 51)(name . 236)(name_opt . 237)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 243)(name_opt . 244)(qualified_expression . 54)(selected_component . 55)) nil nil nil nil nil - ((identifier_list . 229)(parameter_specification . 532)) - ((aliased_opt . 531)) - ((general_access_modifier_opt . 528)(protected_opt . 529)) + ((identifier_list . 236)(parameter_specification . 533)) + ((aliased_opt . 532)) + ((general_access_modifier_opt . 529)(protected_opt . 530)) ((actual_parameter_part . 92)) nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 524)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 523)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil + ((attribute_reference . 51)(name . 243)(name_opt . 525)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 524)) + ((attribute_reference . 51)(name . 522)(qualified_expression . 54)(selected_component . 55)) nil nil nil + ((aspect_specification_opt . 519)(attribute_reference . 51)(name . 256)(qualified_expression . 54)(selected_component . 55)(subprogram_default . 520)) nil nil - ((attribute_reference . 51)(name . 236)(name_opt . 517)(qualified_expression . 54)(selected_component . 55)) - ((aspect_specification_opt . 516)) - ((attribute_reference . 51)(name . 514)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 92)) + ((aspect_specification_opt . 518)) + ((abstract_limited_synchronized_opt . 510)(abstract_tagged_limited_opt . 511)(access_definition . 512)(array_type_definition . 513)(formal_type_definition . 514)(formal_derived_type_definition . 515)(interface_type_definition . 516)(null_exclusion_opt . 517)) nil nil nil - ((aspect_specification_opt . 511)(attribute_reference . 51)(name . 256)(qualified_expression . 54)(selected_component . 55)(subprogram_default . 512)) nil nil - ((actual_parameter_part . 92)) - ((aspect_specification_opt . 510)) - ((abstract_limited_synchronized_opt . 502)(abstract_tagged_limited_opt . 503)(access_definition . 504)(array_type_definition . 505)(formal_type_definition . 506)(formal_derived_type_definition . 507)(interface_type_definition . 508)(null_exclusion_opt . 509)) + ((actual_parameter_part . 92)(aspect_specification_opt . 491)) + ((actual_parameter_part . 92)(aspect_specification_opt . 490)) + ((actual_parameter_part . 92)(aspect_specification_opt . 489)) nil + ((actual_parameter_part . 92)(aspect_specification_opt . 488)) nil + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(range . 486)(selected_component . 55)(simple_expression . 487)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil + ((aggregate . 157)(association_opt . 485)(attribute_reference . 51)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 195)(expression_opt . 196)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(range . 198)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((actual_parameter_part . 92)(aspect_specification_opt . 483)) - ((actual_parameter_part . 92)(aspect_specification_opt . 482)) - ((actual_parameter_part . 92)(aspect_specification_opt . 481)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(membership_choice_list . 480)(membership_choice . 481)(name . 197)(primary . 166)(qualified_expression . 54)(range . 482)(selected_component . 55)(simple_expression . 483)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((actual_parameter_part . 92)(aspect_specification_opt . 480)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 478)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(range . 478)(selected_component . 55)(simple_expression . 479)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(association_opt . 477)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 188)(expression_opt . 189)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 191)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(membership_choice_list . 472)(membership_choice . 473)(name . 190)(primary . 160)(qualified_expression . 54)(range . 474)(selected_component . 55)(simple_expression . 475)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 470)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 477)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 225)(attribute_reference . 51)(attribute_designator . 226)(name . 227)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(discrete_choice . 474)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(range . 198)(selected_component . 55)(simple_expression . 475)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(expression . 473)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 471)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 469)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 467)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 464)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 463)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 461)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(expression . 460)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((attribute_reference . 51)(name . 458)(qualified_expression . 54)(selected_component . 55)) nil + ((attribute_reference . 455)(direct_name . 456)(name . 457)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 68)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 469)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 218)(attribute_reference . 51)(attribute_designator . 219)(name . 220)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 154)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 466)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(range . 191)(selected_component . 55)(simple_expression . 467)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 465)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 463)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 461)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 459)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 456)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 455)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 453)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 452)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((attribute_reference . 51)(name . 450)(qualified_expression . 54)(selected_component . 55)) nil - ((attribute_reference . 447)(direct_name . 448)(name . 449)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 68)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -3452,11 +3462,11 @@ nil nil nil + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 442)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil nil nil nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 434)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) nil nil nil @@ -3467,11 +3477,11 @@ nil nil nil + ((function_specification . 436)(procedure_specification . 437)(subprogram_specification . 438)) nil nil nil nil - ((function_specification . 428)(procedure_specification . 429)(subprogram_specification . 430)) nil nil nil @@ -3493,103 +3503,106 @@ nil nil nil + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 434)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) + ((binary_adding_operator . 358)) nil nil nil + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(term . 433)) nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 426)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) - ((binary_adding_operator . 357)) nil nil nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(term . 425)) + ((aggregate . 157)(attribute_reference . 51)(factor . 432)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 431)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 430)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 428)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 426)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 425)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 423)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 421)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(name . 163)(primary . 420)(qualified_expression . 54)(selected_component . 55)) nil + ((aggregate . 157)(attribute_reference . 51)(case_expression . 158)(conditional_quantified_expression . 159)(expression . 160)(factor . 161)(if_expression . 162)(name . 163)(pragma_argument_association . 418)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(expression . 417)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + nil + ((actual_parameter_part . 92)) + ((actual_parameter_part . 92)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 424)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 423)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 422)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 420)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 418)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 417)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 415)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 413)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(name . 157)(primary . 412)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 155)(factor . 156)(name . 157)(pragma_argument_association . 410)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 409)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((actual_parameter_part . 92)) - ((actual_parameter_part . 92)) - ((quantifier . 406)) nil nil + ((iterator_specification . 409)) nil nil nil nil nil - ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 398)) + ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 404)) nil nil nil nil - ((attribute_reference . 51)(name . 395)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 394)(qualified_expression . 54)(selected_component . 55)) - ((actual_parameter_part . 92)(aspect_specification_opt . 671)) - ((actual_parameter_part . 92)(aspect_specification_opt . 670)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 653)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) + ((attribute_reference . 51)(name . 401)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 400)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 92)(aspect_specification_opt . 676)) + ((actual_parameter_part . 92)(aspect_specification_opt . 675)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 658)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil - ((aspect_specification_opt . 624)) + ((aspect_specification_opt . 629)) nil nil + ((case_expression_alternative . 625)(case_expression_alternative_list . 626)) nil nil + ((aggregate . 157)(attribute_reference . 51)(expression . 619)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(association_opt . 184)(association_list . 618)(attribute_reference . 51)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 195)(expression_opt . 196)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(range . 198)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil - ((iterator_specification . 621)) - ((aggregate . 154)(attribute_reference . 51)(expression . 619)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(expression . 615)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil nil nil nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 617)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 613)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 616)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 612)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 615)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 611)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation . 614)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation . 610)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil - ((multiplying_operator . 362)) + ((multiplying_operator . 363)) nil nil nil nil ((aspect_specification_opt . 129)) - ((aliased_opt . 607)) - ((attribute_reference . 51)(name . 604)(qualified_expression . 54)(selected_component . 55)) - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 603)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((aliased_opt . 603)) + ((attribute_reference . 51)(name . 243)(name_opt . 600)(qualified_expression . 54)(selected_component . 55)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 599)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil - ((access_definition . 601)(null_exclusion_opt . 602)) - ((discriminant_part_opt . 599)) + ((access_definition . 597)(null_exclusion_opt . 598)) + ((discriminant_part_opt . 595)) nil nil - ((aspect_specification_opt . 596)) + ((aspect_specification_opt . 592)) nil nil nil - ((aspect_specification_opt . 592)) - ((attribute_reference . 51)(name . 591)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 588)) + ((attribute_reference . 51)(name . 587)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -3599,24 +3612,24 @@ nil nil nil - ((relational_operator . 583)) + ((relational_operator . 579)) nil nil - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 587)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 586)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 583)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 582)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 585)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 581)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(choice_relation . 584)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 454)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(choice_relation . 580)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 462)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil nil - ((relational_operator . 583)) + ((relational_operator . 579)) nil nil nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(membership_choice_list . 581)(membership_choice . 473)(name . 190)(primary . 160)(qualified_expression . 54)(range . 474)(selected_component . 55)(simple_expression . 475)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(membership_choice_list . 577)(membership_choice . 481)(name . 197)(primary . 166)(qualified_expression . 54)(range . 482)(selected_component . 55)(simple_expression . 483)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil @@ -3629,9 +3642,9 @@ nil nil nil - ((access_definition . 572)(attribute_reference . 51)(name . 573)(null_exclusion_opt . 509)(null_exclusion_opt_name_type . 574)(qualified_expression . 54)(selected_component . 575)) + ((access_definition . 568)(attribute_reference . 51)(name . 569)(null_exclusion_opt . 517)(null_exclusion_opt_name_type . 570)(qualified_expression . 54)(selected_component . 571)) nil - ((discriminant_specification_opt . 569)(identifier_list . 263)) + ((discriminant_specification_opt . 565)(identifier_list . 263)) nil nil nil @@ -3645,62 +3658,60 @@ nil nil nil - ((aspect_specification_opt . 556)) + ((aspect_specification_opt . 552)) nil nil nil nil nil - ((aspect_specification_opt . 551)) + ((aspect_specification_opt . 547)) nil nil nil nil nil - ((aspect_specification_opt . 548)) - ((attribute_reference . 51)(name . 547)(qualified_expression . 54)(selected_component . 55)) - ((actual_parameter_part . 92)(aspect_specification_opt . 546)) - ((aggregate . 154)(attribute_reference . 51)(expression . 544)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aspect_specification_opt . 544)) + ((attribute_reference . 51)(name . 543)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 92)(aspect_specification_opt . 542)) + ((aggregate . 157)(attribute_reference . 51)(expression . 540)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil - ((aggregate . 154)(association_opt . 177)(association_list . 542)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 188)(expression_opt . 189)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 191)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil + ((attribute_reference . 51)(name . 538)(qualified_expression . 54)(selected_component . 55)) nil nil + ((access_definition . 534)(mode_opt . 535)(null_exclusion_opt . 517)) nil nil + ((null_exclusion_opt . 811)) + ((formal_part . 93)(parameter_and_result_profile . 810)) + ((formal_part . 117)(parameter_profile_opt . 809)) + ((actual_parameter_part . 92)) nil + ((aspect_specification_opt . 807)) + ((aggregate . 157)(attribute_reference . 51)(expression . 806)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((attribute_reference . 51)(name . 537)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 92)(formal_package_actual_part . 804)) nil nil - ((access_definition . 533)(mode_opt . 534)(null_exclusion_opt . 509)) nil nil - ((null_exclusion_opt . 801)) - ((formal_part . 93)(parameter_and_result_profile . 800)) - ((formal_part . 117)(parameter_profile_opt . 799)) - ((actual_parameter_part . 92)) - ((case_expression_alternative . 796)(case_expression_alternative_list . 797)) - ((aggregate . 154)(attribute_reference . 51)(expression . 794)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil + ((attribute_reference . 51)(name . 800)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((aspect_specification_opt . 791)) - ((aggregate . 154)(attribute_reference . 51)(expression . 790)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((actual_parameter_part . 92)(formal_package_actual_part . 788)) nil nil nil nil nil - ((attribute_reference . 51)(name . 784)(qualified_expression . 54)(selected_component . 55)) nil nil + ((aggregate . 157)(attribute_reference . 51)(discrete_subtype_definition . 788)(discrete_subtype_definition_list . 789)(factor . 161)(index_subtype_definition . 790)(index_subtype_definition_list . 791)(name . 792)(primary . 166)(qualified_expression . 54)(range . 738)(selected_component . 55)(simple_expression . 487)(subtype_indication . 739)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil @@ -3708,85 +3719,89 @@ nil nil nil + ((actual_parameter_part . 92)) nil nil - ((aggregate . 154)(attribute_reference . 51)(discrete_subtype_definition . 770)(discrete_subtype_definition_list . 771)(factor . 156)(index_subtype_definition . 772)(index_subtype_definition_list . 773)(name . 774)(primary . 160)(qualified_expression . 54)(range . 775)(selected_component . 55)(simple_expression . 479)(subtype_indication . 776)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil nil nil + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(membership_choice . 783)(name . 197)(primary . 166)(qualified_expression . 54)(range . 482)(selected_component . 55)(simple_expression . 483)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 782)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 781)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil - ((actual_parameter_part . 92)) nil nil + ((aggregate . 779)(record_rep . 780)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 776)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((actual_parameter_part . 92)(aspect_specification_opt . 179)) nil + ((discriminant_part_opt . 773)) + ((aspect_specification_opt . 726)) + ((attribute_reference . 51)(name . 730)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 771)) nil + ((discriminant_part_opt . 768)) + ((aspect_specification_opt . 725)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(membership_choice . 764)(name . 190)(primary . 160)(qualified_expression . 54)(range . 474)(selected_component . 55)(simple_expression . 475)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 763)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 762)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil + ((attribute_reference . 51)(name . 762)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((aggregate . 760)(record_rep . 761)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 757)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((actual_parameter_part . 92)(aspect_specification_opt . 172)) + ((constant_opt . 758)) nil - ((discriminant_part_opt . 754)) - ((aspect_specification_opt . 721)) - ((attribute_reference . 51)(name . 751)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 752)) nil - ((discriminant_part_opt . 747)) - ((aspect_specification_opt . 720)) + ((paren_expression . 753)) + ((formal_part . 117)(parameter_profile_opt . 751)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 749)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((attribute_reference . 51)(name . 243)(name_opt . 748)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((attribute_reference . 51)(name . 741)(qualified_expression . 54)(selected_component . 55)) nil - ((actual_parameter_part . 92)) + ((aggregate . 157)(attribute_reference . 51)(expression . 747)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil - ((constant_opt . 737)) nil nil - ((paren_expression . 732)) - ((formal_part . 117)(parameter_profile_opt . 730)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 728)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((attribute_reference . 51)(name . 236)(name_opt . 727)(qualified_expression . 54)(selected_component . 55)) + ((elsif_expression_item . 743)(elsif_expression_list . 744)) + ((aggregate . 157)(attribute_reference . 51)(expression . 740)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(discrete_subtype_definition . 736)(factor . 161)(name . 737)(primary . 166)(qualified_expression . 54)(range . 738)(selected_component . 55)(simple_expression . 487)(subtype_indication . 739)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((attribute_reference . 51)(name . 733)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 730)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 731)) + ((aggregate . 157)(attribute_reference . 51)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(discrete_choice . 193)(discrete_choice_list . 728)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(range . 198)(selected_component . 55)(simple_expression . 475)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil + ((aspect_specification_opt . 726)) + ((aspect_specification_opt . 725)) nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 726)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((attribute_reference . 51)(name . 723)(qualified_expression . 54)(selected_component . 55)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 722)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((aggregate . 157)(attribute_reference . 51)(expression . 195)(expression_opt . 721)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 720)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) + ((aggregate . 157)(attribute_reference . 51)(expression . 719)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((identifier_opt . 717)) + ((iterator_specification . 714)(iterator_specification_opt . 715)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 195)(expression_opt . 712)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 711)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil + ((attribute_reference . 51)(name . 709)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 707)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(expression . 704)(extended_return_object_declaration . 705)(extended_return_object_declaration_opt . 706)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((accept_statement . 692)(attribute_reference . 51)(delay_alternative . 693)(delay_statement . 694)(entry_call_alternative . 695)(name . 696)(procedure_call_statement . 697)(qualified_expression . 54)(selected_component . 55)(select_alternative . 698)(select_alternative_list . 699)(select_alternative_list_opt . 700)(triggering_alternative . 701)) + ((aggregate . 157)(attribute_reference . 51)(expression . 195)(expression_opt . 689)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aspect_specification_opt . 721)) - ((aspect_specification_opt . 720)) nil nil - ((attribute_reference . 51)(name . 718)(qualified_expression . 54)(selected_component . 55)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 717)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((aggregate . 154)(attribute_reference . 51)(expression . 188)(expression_opt . 716)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 715)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) - ((aggregate . 154)(attribute_reference . 51)(expression . 714)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((identifier_opt . 712)) - ((iterator_specification . 709)(iterator_specification_opt . 710)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 188)(expression_opt . 707)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 706)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil - ((attribute_reference . 51)(name . 704)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 702)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 154)(attribute_reference . 51)(expression . 699)(extended_return_object_declaration . 700)(extended_return_object_declaration_opt . 701)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((accept_statement . 687)(attribute_reference . 51)(delay_alternative . 688)(delay_statement . 689)(entry_call_alternative . 690)(name . 691)(procedure_call_statement . 692)(qualified_expression . 54)(selected_component . 55)(select_alternative . 693)(select_alternative_list . 694)(select_alternative_list_opt . 695)(triggering_alternative . 696)) - ((aggregate . 154)(attribute_reference . 51)(expression . 188)(expression_opt . 684)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil nil @@ -3796,292 +3811,288 @@ nil nil nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(compound_statement . 683)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(simple_return_statement . 672)(simple_statement . 684)(timed_entry_call . 674)) nil + ((actual_parameter_part . 92)) nil nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(compound_statement . 678)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(simple_return_statement . 667)(simple_statement . 679)(timed_entry_call . 669)) nil - ((actual_parameter_part . 92)) nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(simple_return_statement . 672)(statement . 680)(timed_entry_call . 674)) nil nil nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(simple_return_statement . 667)(statement . 675)(timed_entry_call . 669)) nil nil nil + ((exception_handler . 951)(exception_handler_list . 952)(exception_handler_list_opt . 953)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 949)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 948)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((attribute_reference . 51)(name . 243)(name_opt . 947)(qualified_expression . 54)(selected_component . 55)) nil - ((exception_handler . 946)(exception_handler_list . 947)(exception_handler_list_opt . 948)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 944)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil + ((aggregate . 157)(attribute_reference . 51)(expression . 944)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 943)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 943)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((attribute_reference . 51)(name . 236)(name_opt . 942)(qualified_expression . 54)(selected_component . 55)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 942)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil + ((accept_statement . 649)(actual_parameter_part . 92)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 939)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 938)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 939)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 938)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 937)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil - ((accept_statement . 644)(actual_parameter_part . 92)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 934)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 933)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil nil nil nil + ((actual_parameter_part . 92)) nil + ((actual_parameter_part . 92)) nil nil nil nil - ((actual_parameter_part . 92)) nil - ((actual_parameter_part . 92)) nil nil nil + ((aggregate . 157)(attribute_reference . 51)(expression . 920)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil nil + ((actual_parameter_part . 92)) + ((actual_parameter_part . 913)(actual_parameter_part_opt . 914)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 915)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil + ((case_expression_alternative . 909)) nil nil + ((actual_parameter_part . 92)(constraint . 829)(index_constraint . 830)) nil + ((attribute_reference . 51)(name . 905)(qualified_expression . 54)(selected_component . 55)) ((actual_parameter_part . 92)) - ((actual_parameter_part . 908)(actual_parameter_part_opt . 909)) + ((aggregate . 157)(attribute_reference . 51)(name . 163)(primary . 298)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(discrete_subtype_definition . 903)(factor . 161)(name . 737)(primary . 166)(qualified_expression . 54)(range . 738)(selected_component . 55)(simple_expression . 487)(subtype_indication . 739)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + nil + ((actual_parameter_part . 92)(constraint . 829)(index_constraint . 830)) + nil + nil + nil + ((aggregate . 157)(attribute_reference . 51)(expression . 901)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(expression . 900)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil + ((elsif_expression_item . 899)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 904)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(discrete_subtype_definition . 903)(factor . 156)(name . 896)(primary . 160)(qualified_expression . 54)(range . 775)(selected_component . 55)(simple_expression . 479)(subtype_indication . 776)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((attribute_reference . 51)(name . 901)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 751)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 899)) nil nil nil - ((aggregate . 154)(attribute_reference . 51)(discrete_subtype_definition . 895)(factor . 156)(identifier_list . 229)(name . 896)(parameter_specification . 230)(parameter_specification_list . 231)(primary . 160)(qualified_expression . 54)(range . 775)(selected_component . 55)(simple_expression . 479)(subtype_indication . 776)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aspect_specification_opt . 894)) - ((aggregate . 154)(attribute_reference . 51)(case_expression . 891)(expression . 892)(factor . 156)(if_expression . 893)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + nil + ((aggregate . 157)(attribute_reference . 51)(discrete_subtype_definition . 894)(factor . 161)(identifier_list . 236)(name . 737)(parameter_specification . 237)(parameter_specification_list . 238)(primary . 166)(qualified_expression . 54)(range . 738)(selected_component . 55)(simple_expression . 487)(subtype_indication . 739)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aspect_specification_opt . 893)) + ((aggregate . 157)(attribute_reference . 51)(case_expression . 158)(conditional_quantified_expression . 891)(expression . 892)(factor . 161)(if_expression . 162)(name . 163)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) ((aspect_specification_opt . 890)) ((aspect_specification_opt . 889)) ((aspect_specification_opt . 888)) ((aspect_specification_opt . 887)) nil - ((access_definition . 884)(array_type_definition . 885)(attribute_reference . 51)(name . 751)(null_exclusion_opt . 509)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 886)) + ((access_definition . 884)(array_type_definition . 885)(attribute_reference . 51)(name . 730)(null_exclusion_opt . 517)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 886)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 882)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((attribute_reference . 51)(name . 236)(name_opt . 881)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(expression . 882)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((attribute_reference . 51)(name . 243)(name_opt . 881)(qualified_expression . 54)(selected_component . 55)) ((actual_parameter_part . 92)) ((attribute_reference . 51)(name . 879)(qualified_expression . 54)(selected_component . 55)) ((attribute_reference . 51)(name . 878)(qualified_expression . 54)(selected_component . 55)) - ((abstract_limited_synchronized_opt . 868)(abstract_limited_opt . 869)(abstract_tagged_limited_opt . 870)(access_definition . 871)(array_type_definition . 872)(derived_type_definition . 873)(enumeration_type_definition . 874)(interface_type_definition . 875)(null_exclusion_opt . 509)(record_type_definition . 876)(type_definition . 877)) + ((abstract_limited_synchronized_opt . 868)(abstract_limited_opt . 869)(abstract_tagged_limited_opt . 870)(access_definition . 871)(array_type_definition . 872)(derived_type_definition . 873)(enumeration_type_definition . 874)(interface_type_definition . 875)(null_exclusion_opt . 517)(record_type_definition . 876)(type_definition . 877)) nil nil ((aspect_specification_opt . 856)) - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 854)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_definition . 855)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 854)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_definition . 855)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil + ((aspect_specification_opt . 852)) nil - ((actual_parameter_part . 92)(constraint . 826)(index_constraint . 827)) ((aspect_specification_opt . 850)) - nil - ((aspect_specification_opt . 848)) - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 846)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_definition . 847)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) - nil - nil - ((aggregate . 154)(attribute_reference . 51)(expression . 842)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((mod_clause_opt . 841)) - nil + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 848)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_definition . 849)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil nil + ((aggregate . 157)(attribute_reference . 51)(expression . 844)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((mod_clause_opt . 843)) nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 836)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 835)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((attribute_reference . 51)(name . 573)(qualified_expression . 54)(selected_component . 834)) nil - ((aggregate . 154)(attribute_reference . 51)(name . 157)(primary . 297)(qualified_expression . 54)(selected_component . 55)) nil nil + ((aggregate . 157)(attribute_reference . 51)(expression . 838)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(expression . 837)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((attribute_reference . 51)(name . 569)(qualified_expression . 54)(selected_component . 836)) nil nil - ((actual_parameter_part . 92)(constraint . 826)(index_constraint . 827)) nil nil nil + ((actual_parameter_part . 92)(constraint . 829)(index_constraint . 830)) nil - ((attribute_reference . 51)(interface_list . 822)(name . 819)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(interface_list . 821)(name . 819)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(interface_list . 820)(name . 819)(qualified_expression . 54)(selected_component . 55)) nil - ((attribute_reference . 51)(interface_list . 818)(name . 819)(qualified_expression . 54)(selected_component . 55)) - ((actual_parameter_part . 92)(and_interface_list_opt . 817)) + ((attribute_reference . 51)(interface_list . 825)(name . 822)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(interface_list . 824)(name . 822)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(interface_list . 823)(name . 822)(qualified_expression . 54)(selected_component . 55)) nil + ((attribute_reference . 51)(interface_list . 821)(name . 822)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 92)(and_interface_list_opt . 820)) nil - ((aggregate . 154)(association_opt . 177)(association_list . 194)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 188)(expression_opt . 189)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 195)(range_list . 196)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aspect_specification_opt . 814)) nil - ((aspect_specification_opt . 813)) + ((aggregate . 157)(association_opt . 184)(association_list . 201)(attribute_reference . 51)(case_expression . 158)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(conditional_quantified_expression . 202)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 195)(expression_opt . 196)(factor . 161)(if_expression . 162)(name . 197)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(range . 203)(range_list . 204)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aspect_specification_opt . 817)) nil + ((aspect_specification_opt . 816)) nil + ((identifier_list . 236)(parameter_specification . 237)(parameter_specification_list . 238)) nil - ((elsif_expression_item . 809)(elsif_expression_list . 810)) - ((aggregate . 154)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 806)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(range . 191)(selected_component . 55)(simple_expression . 467)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - nil - ((identifier_list . 229)(parameter_specification . 230)(parameter_specification_list . 231)) - nil - nil - ((attribute_reference . 51)(name . 804)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 154)(attribute_reference . 51)(expression . 803)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((attribute_reference . 51)(name . 814)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(expression . 813)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil ((actual_parameter_part . 92)) - ((case_expression_alternative . 1083)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1081)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 1080)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((elsif_expression_item . 1079)) nil nil + ((attribute_reference . 51)(interface_list . 1080)(name . 822)(qualified_expression . 54)(selected_component . 55)) nil nil + ((actual_parameter_part . 92)) nil - ((attribute_reference . 51)(interface_list . 1074)(name . 819)(qualified_expression . 54)(selected_component . 55)) nil nil - ((actual_parameter_part . 92)) nil + ((aggregate . 157)(association_opt . 184)(association_list . 201)(attribute_reference . 51)(case_expression . 158)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(conditional_quantified_expression . 202)(discrete_choice . 193)(discrete_choice_list . 194)(discrete_subtype_definition . 788)(discrete_subtype_definition_list . 1076)(expression . 195)(expression_opt . 196)(factor . 161)(if_expression . 162)(name . 737)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(range . 1077)(range_list . 204)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(subtype_indication . 739)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(range . 1001)(selected_component . 55)(simple_expression . 487)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil - ((aggregate . 154)(association_opt . 177)(association_list . 194)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(discrete_subtype_definition . 770)(discrete_subtype_definition_list . 1070)(expression . 188)(expression_opt . 189)(factor . 156)(name . 896)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 1071)(range_list . 196)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(subtype_indication . 776)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(range . 1049)(selected_component . 55)(simple_expression . 479)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((attribute_reference . 51)(index_subtype_definition . 1071)(name . 1072)(qualified_expression . 54)(selected_component . 55)) nil + ((aggregate . 157)(attribute_reference . 51)(discrete_subtype_definition . 1069)(factor . 161)(name . 737)(primary . 166)(qualified_expression . 54)(range . 738)(selected_component . 55)(simple_expression . 487)(subtype_indication . 739)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil - ((attribute_reference . 51)(index_subtype_definition . 1065)(name . 1066)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 154)(attribute_reference . 51)(discrete_subtype_definition . 1063)(factor . 156)(name . 896)(primary . 160)(qualified_expression . 54)(range . 775)(selected_component . 55)(simple_expression . 479)(subtype_indication . 776)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((attribute_reference . 51)(name . 1048)(qualified_expression . 54)(selected_component . 55)) nil nil nil nil nil + ((component_clause . 1066)(component_clause_list . 1067)) nil nil + ((aspect_specification_opt . 1063)) + ((attribute_reference . 51)(interface_list . 1062)(name . 822)(qualified_expression . 54)(selected_component . 55)) nil - ((component_clause . 1060)(component_clause_list . 1061)) nil nil ((aspect_specification_opt . 1057)) - ((attribute_reference . 51)(interface_list . 1056)(name . 819)(qualified_expression . 54)(selected_component . 55)) nil + ((attribute_reference . 51)(interface_list . 1055)(name . 822)(qualified_expression . 54)(selected_component . 55)) nil nil - ((aspect_specification_opt . 1051)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(range . 1049)(selected_component . 55)(simple_expression . 479)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((attribute_reference . 51)(name . 1048)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(interface_list . 1047)(name . 819)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 1049)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 1047)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1046)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((enumeration_literal . 1044)(enumeration_literal_list . 1045)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 1041)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aspect_specification_opt . 1041)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1039)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aspect_clause . 1032)(at_clause . 308)(component_declaration . 1033)(component_item . 1034)(component_list . 1035)(component_list_opt . 1036)(enumeration_representation_clause . 315)(identifier_list . 1037)(record_representation_clause . 339)(variant_part . 1038)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1039)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 1038)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((enumeration_literal . 1036)(enumeration_literal_list . 1037)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1033)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1031)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aspect_clause . 1024)(at_clause . 307)(component_declaration . 1025)(component_item . 1026)(component_list . 1027)(component_list_opt . 1028)(enumeration_representation_clause . 314)(identifier_list . 1029)(record_representation_clause . 338)(variant_part . 1030)) + ((record_definition . 1026)) nil nil nil - ((record_definition . 1018)) nil nil nil + ((aspect_specification_opt . 1024)) + ((actual_parameter_part . 92)(aspect_specification_opt . 1023)) + ((actual_parameter_part . 92)(aspect_specification_opt . 1022)) + ((attribute_reference . 51)(name . 1021)(qualified_expression . 54)(selected_component . 55)) nil nil nil + ((aspect_specification_opt . 1018)) ((aspect_specification_opt . 1016)) - ((actual_parameter_part . 92)(aspect_specification_opt . 1015)) - ((actual_parameter_part . 92)(aspect_specification_opt . 1014)) - ((attribute_reference . 51)(name . 1013)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 1014)) nil nil nil - ((aspect_specification_opt . 1010)) - ((aspect_specification_opt . 1008)) - ((aspect_specification_opt . 1006)) nil nil nil nil nil + ((attribute_reference . 51)(name . 243)(name_opt . 1004)(qualified_expression . 54)(selected_component . 55)) nil nil + ((aggregate . 157)(attribute_reference . 51)(expression . 1003)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil - ((actual_parameter_part . 92)(constraint . 826)(index_constraint . 827)) - ((attribute_reference . 51)(name . 236)(name_opt . 995)(qualified_expression . 54)(selected_component . 55)) nil + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(range . 1001)(selected_component . 55)(simple_expression . 487)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((attribute_reference . 51)(name . 993)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 998)(qualified_expression . 54)(selected_component . 55)) ((actual_parameter_part . 92)) - ((aggregate . 154)(attribute_reference . 51)(discrete_subtype_definition . 992)(factor . 156)(name . 896)(primary . 160)(qualified_expression . 54)(range . 775)(selected_component . 55)(simple_expression . 479)(subtype_indication . 776)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((attribute_reference . 51)(name . 1000)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 998)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(expression . 997)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil + ((aspect_clause . 987)(at_clause . 308)(entry_body . 988)(enumeration_representation_clause . 315)(expression_function_declaration . 989)(function_specification . 16)(null_procedure_declaration . 990)(overriding_indicator_opt . 991)(procedure_specification . 32)(protected_operation_item . 992)(protected_operation_item_list . 993)(protected_operation_item_list_opt . 994)(record_representation_clause . 339)(subprogram_body . 995)(subprogram_declaration . 996)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 985)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) + ((aggregate . 157)(association_opt . 184)(association_list . 201)(attribute_reference . 51)(case_expression . 158)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(conditional_quantified_expression . 202)(discrete_choice . 193)(discrete_choice_list . 194)(expression . 195)(expression_opt . 196)(factor . 161)(if_expression . 162)(name . 197)(primary . 166)(qualified_expression . 54)(quantified_expression . 167)(raise_expression . 168)(range . 198)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 199)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aspect_clause . 982)(at_clause . 307)(entry_body . 983)(enumeration_representation_clause . 314)(expression_function_declaration . 984)(function_specification . 16)(null_procedure_declaration . 985)(overriding_indicator_opt . 986)(procedure_specification . 32)(protected_operation_item . 987)(protected_operation_item_list . 988)(protected_operation_item_list_opt . 989)(record_representation_clause . 338)(subprogram_body . 990)(subprogram_declaration . 991)) - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 980)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) - ((aggregate . 154)(association_opt . 177)(association_list . 194)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 187)(expression . 188)(expression_opt . 189)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(range . 191)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 192)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((formal_part . 117)(parameter_profile_opt . 984)) nil - ((formal_part . 117)(parameter_profile_opt . 979)) + ((identifier_opt . 983)) + ((case_statement_alternative . 981)(case_statement_alternative_list . 982)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 979)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil - ((identifier_opt . 978)) - ((case_statement_alternative . 976)(case_statement_alternative_list . 977)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 974)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 195)(expression_opt . 977)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 188)(expression_opt . 972)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 976)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 971)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) + ((aggregate . 157)(attribute_reference . 51)(expression . 974)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 969)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 972)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 967)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil + ((aliased_opt . 971)) nil - ((aliased_opt . 966)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 969)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 964)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) + ((accept_statement . 692)(delay_alternative . 693)(delay_statement . 965)(select_alternative . 967)) nil - ((accept_statement . 687)(delay_alternative . 688)(delay_statement . 960)(select_alternative . 962)) nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 966)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((delay_alternative . 964)(delay_statement . 965)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 961)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((delay_alternative . 959)(delay_statement . 960)) nil nil nil @@ -4089,10 +4100,9 @@ nil nil nil + ((attribute_reference . 51)(exception_choice . 957)(exception_choice_list . 958)(name . 959)(qualified_expression . 54)(selected_component . 55)) nil - ((attribute_reference . 51)(exception_choice . 952)(exception_choice_list . 953)(name . 954)(qualified_expression . 54)(selected_component . 55)) - nil - ((exception_handler . 949)) + ((exception_handler . 954)) nil nil nil @@ -4103,26 +4113,26 @@ nil nil nil - ((accept_statement . 1180)(delay_alternative . 1181)(delay_statement . 960)) + ((accept_statement . 1177)(delay_alternative . 1178)(delay_statement . 965)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1177)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1174)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1173)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((constant_opt . 1172)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1170)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((constant_opt . 1169)) nil nil nil - ((identifier_opt . 1168)) - ((elsif_statement_item . 1166)(elsif_statement_list . 1167)) + ((identifier_opt . 1165)) + ((elsif_statement_item . 1163)(elsif_statement_list . 1164)) nil nil nil - ((aggregate . 154)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 1160)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(range . 191)(selected_component . 55)(simple_expression . 467)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(discrete_choice . 193)(discrete_choice_list . 1157)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(range . 198)(selected_component . 55)(simple_expression . 475)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((case_statement_alternative . 1159)) + ((case_statement_alternative . 1156)) nil nil nil @@ -4131,49 +4141,51 @@ nil nil nil - ((function_specification . 428)(procedure_specification . 429)(subprogram_specification . 1152)) + ((function_specification . 436)(procedure_specification . 437)(subprogram_specification . 1149)) nil - ((aspect_clause . 982)(at_clause . 307)(entry_body . 983)(enumeration_representation_clause . 314)(expression_function_declaration . 984)(function_specification . 16)(null_procedure_declaration . 985)(overriding_indicator_opt . 986)(procedure_specification . 32)(protected_operation_item . 1151)(record_representation_clause . 338)(subprogram_body . 990)(subprogram_declaration . 991)) + ((aspect_clause . 987)(at_clause . 308)(entry_body . 988)(enumeration_representation_clause . 315)(expression_function_declaration . 989)(function_specification . 16)(null_procedure_declaration . 990)(overriding_indicator_opt . 991)(procedure_specification . 32)(protected_operation_item . 1148)(record_representation_clause . 339)(subprogram_body . 995)(subprogram_declaration . 996)) nil nil nil nil + ((actual_parameter_part . 92)(constraint . 1146)(index_constraint . 830)) + ((attribute_reference . 51)(name . 1145)(qualified_expression . 54)(selected_component . 55)) ((actual_parameter_part . 92)) - ((attribute_reference . 51)(name . 1149)(qualified_expression . 54)(selected_component . 55)) nil - ((formal_part . 117)(parameter_profile_opt . 1146)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1144)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil + ((formal_part . 117)(parameter_profile_opt . 1142)) nil nil nil nil nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1145)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1143)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1141)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1141)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1139)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((attribute_reference . 51)(name . 1048)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1137)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((actual_parameter_part . 92)(aspect_specification_opt . 1139)) + ((attribute_reference . 51)(name . 998)(qualified_expression . 54)(selected_component . 55)) nil + ((actual_parameter_part . 92)(aspect_specification_opt . 1135)) nil nil - ((aspect_specification_opt . 1135)) nil - ((attribute_reference . 51)(name . 1134)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 751)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1133)) + ((aspect_specification_opt . 1131)) nil - ((direct_name . 1131)(direct_name_opt . 1132)) + ((attribute_reference . 51)(name . 1130)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 730)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1129)) nil + ((direct_name . 1127)(direct_name_opt . 1128)) nil nil nil - ((aspect_clause . 1024)(at_clause . 307)(component_declaration . 1025)(component_item . 1126)(enumeration_representation_clause . 314)(identifier_list . 1029)(record_representation_clause . 338)(variant_part . 1127)) nil + ((aspect_clause . 1032)(at_clause . 308)(component_declaration . 1033)(component_item . 1122)(enumeration_representation_clause . 315)(identifier_list . 1037)(record_representation_clause . 339)(variant_part . 1123)) nil nil nil @@ -4183,62 +4195,52 @@ nil nil nil - ((real_range_specification_opt . 1120)) - ((real_range_specification_opt . 1119)) nil + ((real_range_specification_opt . 1116)) + ((real_range_specification_opt . 1115)) nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 854)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_definition . 1115)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) nil + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 854)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_definition . 1111)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil - ((identifier_opt . 1113)) - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 1112)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) nil - ((actual_parameter_part . 92)(constraint . 1110)(index_constraint . 827)) + ((identifier_opt . 1109)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 1108)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil nil nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 846)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_definition . 1108)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 848)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_definition . 1105)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil - ((identifier_opt . 1106)) - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 1105)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((identifier_opt . 1103)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 1102)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil nil nil nil nil - ((component_clause . 1101)) - ((aggregate . 154)(attribute_reference . 51)(expression . 1099)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((component_clause . 1098)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1096)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((access_definition . 1094)(attribute_reference . 51)(component_definition . 1098)(name . 751)(null_exclusion_opt . 509)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1096)) + ((access_definition . 1091)(attribute_reference . 51)(component_definition . 1095)(name . 730)(null_exclusion_opt . 517)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1093)) nil ((actual_parameter_part . 92)) - ((access_definition . 1094)(attribute_reference . 51)(component_definition . 1095)(name . 751)(null_exclusion_opt . 509)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1096)) - nil - ((aggregate . 154)(attribute_reference . 51)(name . 157)(primary . 297)(qualified_expression . 54)(selected_component . 55)) - nil - nil - ((attribute_reference . 51)(name . 1090)(qualified_expression . 54)(selected_component . 55)) - nil + ((access_definition . 1091)(attribute_reference . 51)(component_definition . 1092)(name . 730)(null_exclusion_opt . 517)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1093)) nil + ((aggregate . 157)(attribute_reference . 51)(name . 163)(primary . 298)(qualified_expression . 54)(selected_component . 55)) nil nil + ((attribute_reference . 51)(name . 1087)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1088)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1086)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1085)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - nil - nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1248)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1085)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil ((actual_parameter_part . 92)) nil - ((attribute_reference . 51)(name . 1247)(qualified_expression . 54)(selected_component . 55)) - ((access_definition . 1245)(attribute_reference . 51)(name . 751)(null_exclusion_opt . 509)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1246)) + ((attribute_reference . 51)(name . 1243)(qualified_expression . 54)(selected_component . 55)) + ((access_definition . 1241)(attribute_reference . 51)(name . 730)(null_exclusion_opt . 517)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1242)) nil nil nil @@ -4247,29 +4249,29 @@ nil nil nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1242)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1238)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 846)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_definition . 1241)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 848)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_definition . 1237)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil nil - ((attribute_reference . 51)(interface_list . 1239)(name . 819)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(interface_list . 1235)(name . 822)(qualified_expression . 54)(selected_component . 55)) nil nil + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 854)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_definition . 1233)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 854)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_definition . 1237)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) nil + ((attribute_reference . 51)(interface_list . 1231)(name . 822)(qualified_expression . 54)(selected_component . 55)) nil - ((attribute_reference . 51)(interface_list . 1235)(name . 819)(qualified_expression . 54)(selected_component . 55)) nil + ((aggregate . 157)(attribute_reference . 51)(expression . 1229)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1228)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1233)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1232)(term . 169)(term_list . 170)(unary_adding_operator . 171)) nil nil + ((enumeration_literal . 1227)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1226)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((access_definition . 1091)(attribute_reference . 51)(component_definition . 1225)(name . 730)(null_exclusion_opt . 517)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1093)) nil - ((enumeration_literal . 1231)) - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1230)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((access_definition . 1094)(attribute_reference . 51)(component_definition . 1229)(name . 751)(null_exclusion_opt . 509)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1096)) nil nil nil @@ -4277,61 +4279,60 @@ nil nil nil + ((and_interface_list_opt . 1222)) + ((actual_parameter_part . 92)(and_interface_list_opt . 1219)(constraint . 1220)(constraint_opt . 1221)(index_constraint . 830)) nil - ((and_interface_list_opt . 1226)) - ((actual_parameter_part . 92)(and_interface_list_opt . 1223)(constraint . 1224)(constraint_opt . 1225)(index_constraint . 827)) nil nil nil nil nil + ((aspect_specification_opt . 1216)) nil - ((aspect_specification_opt . 1220)) + ((aspect_specification_opt . 1215)) nil - ((aspect_specification_opt . 1219)) + ((aspect_specification_opt . 1214)) + ((aspect_specification_opt . 1213)) nil - ((aspect_specification_opt . 1218)) - ((aspect_specification_opt . 1217)) nil - ((attribute_reference . 51)(name . 1216)(qualified_expression . 54)(selected_component . 55)) ((actual_parameter_part . 92)) - ((identifier_opt . 1215)) nil - ((aspect_specification_opt . 129)) - ((entry_body_formal_part . 1213)(formal_part . 117)(parameter_profile_opt . 1214)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 1211)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 1210)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) + ((identifier_opt . 1212)) nil + ((aspect_specification_opt . 129)) + ((entry_body_formal_part . 1210)(formal_part . 117)(parameter_profile_opt . 1211)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 1208)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 1207)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil nil nil nil - ((identifier_opt . 1207)) nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1206)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((aggregate . 154)(attribute_reference . 51)(expression . 188)(expression_opt . 1205)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((identifier_opt . 1204)) nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1203)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((aggregate . 157)(attribute_reference . 51)(expression . 195)(expression_opt . 1202)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((elsif_statement_item . 1203)) nil + ((elsif_statement_item . 1200)) nil nil nil - ((access_definition . 1196)(attribute_reference . 51)(name . 751)(null_exclusion_opt . 509)(qualified_expression . 54)(return_subtype_indication . 1197)(selected_component . 55)(subtype_indication . 1198)) nil + ((access_definition . 1193)(attribute_reference . 51)(name . 730)(null_exclusion_opt . 517)(qualified_expression . 54)(return_subtype_indication . 1194)(selected_component . 55)(subtype_indication . 1195)) nil nil nil nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1190)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil - ((identifier_opt . 1189)) - ((attribute_reference . 51)(exception_choice . 1188)(name . 954)(qualified_expression . 54)(selected_component . 55)) - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1187)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((attribute_reference . 51)(exception_choice . 952)(exception_choice_list . 1186)(name . 954)(qualified_expression . 54)(selected_component . 55)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1187)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil + ((identifier_opt . 1186)) + ((attribute_reference . 51)(exception_choice . 1185)(name . 959)(qualified_expression . 54)(selected_component . 55)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1184)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((attribute_reference . 51)(exception_choice . 957)(exception_choice_list . 1183)(name . 959)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -4346,22 +4347,21 @@ nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1281)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1276)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil nil nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1275)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) nil + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1270)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil nil - ((identifier_list . 229)(parameter_specification . 230)(parameter_specification_list . 231)) nil + ((identifier_list . 236)(parameter_specification . 237)(parameter_specification_list . 238)) nil nil - ((actual_parameter_part . 92)) nil nil nil @@ -4372,69 +4372,69 @@ nil nil nil - ((variant_list . 1261)(variant . 1262)) nil - ((aspect_specification_opt . 1259)) + ((variant_list . 1256)(variant . 1257)) nil + ((aspect_specification_opt . 1254)) nil nil - ((real_range_specification_opt . 1256)) nil + ((real_range_specification_opt . 1251)) nil - ((identifier_opt . 1254)) nil + ((identifier_opt . 1249)) nil nil - ((identifier_opt . 1251)) nil + ((identifier_opt . 1246)) nil nil nil nil nil - ((actual_parameter_part . 92)(constraint . 1110)(index_constraint . 827)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1311)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((actual_parameter_part . 92)(constraint . 1146)(index_constraint . 830)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1306)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 846)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_definition . 1310)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 848)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_definition . 1305)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 854)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_definition . 1309)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 854)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_definition . 1304)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1308)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((aggregate . 154)(attribute_reference . 51)(expression . 1307)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1303)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1302)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((aggregate . 154)(attribute_reference . 51)(choice_expression . 179)(choice_relation_and_list . 180)(choice_relation_or_list . 181)(choice_relation_xor_list . 182)(choice_relation_and_then_list . 183)(choice_relation_or_else_list . 184)(choice_relation . 185)(discrete_choice . 186)(discrete_choice_list . 1305)(factor . 156)(name . 190)(primary . 160)(qualified_expression . 54)(range . 191)(selected_component . 55)(simple_expression . 467)(term . 169)(term_list . 170)(unary_adding_operator . 171)) - ((variant . 1304)) + ((aggregate . 157)(attribute_reference . 51)(choice_expression . 186)(choice_relation_and_list . 187)(choice_relation_or_list . 188)(choice_relation_xor_list . 189)(choice_relation_and_then_list . 190)(choice_relation_or_else_list . 191)(choice_relation . 192)(discrete_choice . 193)(discrete_choice_list . 1300)(factor . 161)(name . 197)(primary . 166)(qualified_expression . 54)(range . 198)(selected_component . 55)(simple_expression . 475)(term . 176)(term_list . 177)(unary_adding_operator . 178)) + ((variant . 1299)) nil nil - ((record_definition . 1301)) + ((record_definition . 1296)) nil nil nil nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 188)(expression_opt . 1300)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(expression . 195)(expression_opt . 1295)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil - ((identifier_opt . 1298)) - ((identifier_opt . 1297)) + ((identifier_opt . 1293)) + ((identifier_opt . 1292)) nil nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1295)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1290)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil nil nil nil - ((aggregate . 154)(attribute_reference . 51)(expression . 1292)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(raise_expression . 161)(relation_and_list . 162)(relation_and_then_list . 163)(relation_or_list . 164)(relation_or_else_list . 165)(relation_xor_list . 166)(relation . 167)(selected_component . 55)(simple_expression . 168)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(expression . 1287)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(raise_expression . 168)(relation_and_list . 169)(relation_and_then_list . 170)(relation_or_list . 171)(relation_or_else_list . 172)(relation_xor_list . 173)(relation . 174)(selected_component . 55)(simple_expression . 175)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 1290)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 1285)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) nil nil nil @@ -4447,25 +4447,25 @@ nil nil nil - ((aspect_specification_opt . 1318)) + ((aspect_specification_opt . 1313)) nil nil nil nil - ((aspect_specification_opt . 1315)) + ((aspect_specification_opt . 1310)) nil nil nil nil - ((aggregate . 154)(attribute_reference . 51)(factor . 156)(name . 157)(primary . 160)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1332)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((aggregate . 157)(attribute_reference . 51)(factor . 161)(name . 163)(primary . 166)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1327)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil - ((aspect_clause . 1024)(at_clause . 307)(component_declaration . 1025)(component_item . 1026)(component_list . 1027)(component_list_opt . 1330)(enumeration_representation_clause . 314)(identifier_list . 1029)(record_representation_clause . 338)(variant_part . 1030)) + ((aspect_clause . 1032)(at_clause . 308)(component_declaration . 1033)(component_item . 1034)(component_list . 1035)(component_list_opt . 1325)(enumeration_representation_clause . 315)(identifier_list . 1037)(record_representation_clause . 339)(variant_part . 1038)) nil nil - ((abstract_subprogram_declaration . 305)(aspect_clause . 306)(at_clause . 307)(body . 308)(body_stub . 309)(declaration . 310)(declarations . 311)(declarative_part_opt . 1327)(entry_declaration . 313)(enumeration_representation_clause . 314)(exception_declaration . 315)(expression_function_declaration . 316)(full_type_declaration . 317)(function_specification . 16)(generic_declaration . 318)(generic_formal_part . 18)(generic_instantiation . 319)(generic_package_declaration . 20)(generic_renaming_declaration . 320)(generic_subprogram_declaration . 22)(identifier_list . 321)(incomplete_type_declaration . 322)(null_procedure_declaration . 323)(object_declaration . 324)(object_renaming_declaration . 325)(overriding_indicator_opt . 326)(package_body . 327)(package_body_stub . 328)(package_declaration . 329)(package_renaming_declaration . 330)(package_specification . 30)(pragma . 331)(private_extension_declaration . 332)(private_type_declaration . 333)(procedure_specification . 32)(proper_body . 334)(protected_body . 335)(protected_body_stub . 336)(protected_type_declaration . 337)(record_representation_clause . 338)(renaming_declaration . 339)(single_protected_declaration . 340)(single_task_declaration . 341)(subprogram_body . 342)(subprogram_body_stub . 343)(subprogram_declaration . 344)(subprogram_renaming_declaration . 345)(subtype_declaration . 346)(task_body . 347)(task_body_stub . 348)(task_type_declaration . 349)(type_declaration . 350)(use_clause . 351)) - ((aggregate . 154)(attribute_reference . 51)(discrete_subtype_definition . 1326)(factor . 156)(name . 896)(primary . 160)(qualified_expression . 54)(range . 775)(selected_component . 55)(simple_expression . 479)(subtype_indication . 776)(term . 169)(term_list . 170)(unary_adding_operator . 171)) + ((abstract_subprogram_declaration . 306)(aspect_clause . 307)(at_clause . 308)(body . 309)(body_stub . 310)(declaration . 311)(declarations . 312)(declarative_part_opt . 1322)(entry_declaration . 314)(enumeration_representation_clause . 315)(exception_declaration . 316)(expression_function_declaration . 317)(full_type_declaration . 318)(function_specification . 16)(generic_declaration . 319)(generic_formal_part . 18)(generic_instantiation . 320)(generic_package_declaration . 20)(generic_renaming_declaration . 321)(generic_subprogram_declaration . 22)(identifier_list . 322)(incomplete_type_declaration . 323)(null_procedure_declaration . 324)(object_declaration . 325)(object_renaming_declaration . 326)(overriding_indicator_opt . 327)(package_body . 328)(package_body_stub . 329)(package_declaration . 330)(package_renaming_declaration . 331)(package_specification . 30)(pragma . 332)(private_extension_declaration . 333)(private_type_declaration . 334)(procedure_specification . 32)(proper_body . 335)(protected_body . 336)(protected_body_stub . 337)(protected_type_declaration . 338)(record_representation_clause . 339)(renaming_declaration . 340)(single_protected_declaration . 341)(single_task_declaration . 342)(subprogram_body . 343)(subprogram_body_stub . 344)(subprogram_declaration . 345)(subprogram_renaming_declaration . 346)(subtype_declaration . 347)(task_body . 348)(task_body_stub . 349)(task_type_declaration . 350)(type_declaration . 351)(use_clause . 352)) + ((aggregate . 157)(attribute_reference . 51)(discrete_subtype_definition . 1321)(factor . 161)(name . 737)(primary . 166)(qualified_expression . 54)(range . 738)(selected_component . 55)(simple_expression . 487)(subtype_indication . 739)(term . 176)(term_list . 177)(unary_adding_operator . 178)) nil nil nil @@ -4479,11 +4479,11 @@ nil nil nil - ((accept_statement . 644)(assignment_statement . 645)(asynchronous_select . 646)(attribute_reference . 51)(block_statement . 647)(case_statement . 648)(conditional_entry_call . 649)(delay_statement . 650)(exit_statement . 651)(extended_return_statement . 652)(handled_sequence_of_statements . 1337)(if_statement . 654)(iteration_scheme . 655)(label_opt . 656)(loop_statement . 657)(name . 658)(pragma . 659)(procedure_call_statement . 660)(qualified_expression . 54)(raise_statement . 661)(requeue_statement . 662)(selected_component . 55)(selective_accept . 663)(select_statement . 664)(sequence_of_statements . 665)(sequence_of_statements_opt . 666)(simple_return_statement . 667)(statement . 668)(timed_entry_call . 669)) - ((formal_part . 117)(parameter_profile_opt . 1336)) + ((accept_statement . 649)(assignment_statement . 650)(asynchronous_select . 651)(attribute_reference . 51)(block_statement . 652)(case_statement . 653)(conditional_entry_call . 654)(delay_statement . 655)(exit_statement . 656)(extended_return_statement . 657)(handled_sequence_of_statements . 1332)(if_statement . 659)(iteration_scheme . 660)(label_opt . 661)(loop_statement . 662)(name . 663)(pragma . 664)(procedure_call_statement . 665)(qualified_expression . 54)(raise_statement . 666)(requeue_statement . 667)(selected_component . 55)(selective_accept . 668)(select_statement . 669)(sequence_of_statements . 670)(sequence_of_statements_opt . 671)(simple_return_statement . 672)(statement . 673)(timed_entry_call . 674)) + ((formal_part . 117)(parameter_profile_opt . 1331)) nil nil - ((identifier_opt . 1339)) + ((identifier_opt . 1334)) nil nil])) "Parser table.") diff --git a/packages/ada-mode/ada-indent-user-options.el b/packages/ada-mode/ada-indent-user-options.el index 78e1854e9..1be01cd67 100644 --- a/packages/ada-mode/ada-indent-user-options.el +++ b/packages/ada-mode/ada-indent-user-options.el @@ -1,4 +1,4 @@ -;;; user options shared by Ada mode indentation engines -*- lexical-binding:t -*- +;; user options shared by Ada mode indentation engines -*- lexical-binding:t -*- ;; ;; Copyright (C) 2012, 2013, 2015 Free Software Foundation, Inc. ;; @@ -56,16 +56,30 @@ begin Example : My_Var : My_Type := >>(Field1 => Value);" - :type 'integer - :safe #'integerp) + :type 'integer + :safe #'integerp) (make-variable-buffer-local 'ada-indent-broken) (defcustom ada-indent-comment-col-0 nil "If non-nil, comments currently starting in column 0 are left in column 0. Otherwise, they are indented with previous comments or code." + :type 'boolean + :safe #'booleanp) +(make-variable-buffer-local 'ada-indent-comment-col-0) + +(defcustom ada-indent-comment-gnat nil + "If non-nil, comments are indented to meet the GNAT comment style check. +That is, one of: + +- multiple of ada-indent +- next non-blank line +- previous non-blank line + +Otherwise, they are indented as a with previous comments or code." :type 'boolean + :group 'ada-indentation :safe #'booleanp) -(make-variable-buffer-local 'ada-indent-comment-col-0) +(make-variable-buffer-local 'ada-indent-comment-gnat) (defvar ada-label-indent nil) (make-obsolete-variable @@ -101,8 +115,8 @@ Example : An example is: type A is >>>record" - :type 'integer - :safe #'integerp) + :type 'integer + :safe #'integerp) (make-variable-buffer-local 'ada-indent-record-rel-type) (defcustom ada-indent-renames 2 @@ -130,8 +144,8 @@ Examples: function A (B : Integer) return C >>>>>>>>>>>renames Foo;" - :type 'integer - :safe #'integerp) + :type 'integer + :safe #'integerp) (make-variable-buffer-local 'ada-indent-renames) (defcustom ada-indent-return 0 @@ -148,8 +162,8 @@ relative to line containing 'function'. An example is: function A (B : Integer) >>>>>>>>>>>return C;" - :type 'integer - :safe #'integerp) + :type 'integer + :safe #'integerp) (make-variable-buffer-local 'ada-indent-return) (defvar ada-use-indent nil) @@ -169,8 +183,8 @@ An example is: An example is: use Ada.Text_IO, >>Ada.Numerics;" - :type 'integer - :safe #'integerp) + :type 'integer + :safe #'integerp) (make-variable-buffer-local 'ada-indent-use) (defvar ada-when-indent nil) @@ -211,8 +225,8 @@ An example is: An example is: with Ada.Text_IO, >>Ada.Numerics;" - :type 'integer - :safe #'integerp) + :type 'integer + :safe #'integerp) (make-variable-buffer-local 'ada-indent-with) (provide 'ada-indent-user-options) diff --git a/packages/ada-mode/ada-mode-compat-24.2.el b/packages/ada-mode/ada-mode-compat-24.2.el index 2338ff65c..51ac700bb 100644 --- a/packages/ada-mode/ada-mode-compat-24.2.el +++ b/packages/ada-mode/ada-mode-compat-24.2.el @@ -1,4 +1,5 @@ -;;; ada-mode-compat-24.2.el --- Implement current Emacs features not present in Emacs 24.2 -*- lexical-binding:t -*- +;; ada-mode-compat-24.2.el --- Implement current Emacs features not present in Emacs 24.2 -*- lexical-binding:t -*- +;; FIXME: rename to ada-mode-compat.el, rely on functionp etc. doc emacs version for each item ;; Copyright (C) 2014-2015 Free Software Foundation, Inc. @@ -19,13 +20,18 @@ ;; using cl-lib 0.4 from Gnu ELPA -(defun file-name-base (&optional filename) - "Return the base name of the FILENAME: no directory, no extension. +(when (not (functionp 'file-name-base)) + (defun file-name-base (&optional filename) + "Return the base name of the FILENAME: no directory, no extension. FILENAME defaults to `buffer-file-name'." - (file-name-sans-extension - (file-name-nondirectory (or filename (buffer-file-name))))) + (file-name-sans-extension + (file-name-nondirectory (or filename (buffer-file-name)))))) +(when (not (functionp 'font-lock-ensure)) + (defun font-lock-ensure (&optional beg end) + (font-lock-fontify-region (or beg (point-min)) (or end (point-max))))) +;; FIXME: need cl-flet, but there is no macrop (provide 'ada-mode-compat-24.2) ;; end of file diff --git a/packages/ada-mode/ada-mode.el b/packages/ada-mode/ada-mode.el index 9e0bdfcc6..3fca118d9 100644 --- a/packages/ada-mode/ada-mode.el +++ b/packages/ada-mode/ada-mode.el @@ -1,13 +1,13 @@ ;;; ada-mode.el --- major-mode for editing Ada sources -*- lexical-binding:t -*- ;; -;; Copyright (C) 1994, 1995, 1997 - 2015 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1997 - 2016 Free Software Foundation, Inc. ;; ;; Author: Stephen Leake ;; Maintainer: Stephen Leake ;; Keywords: languages ;; ada -;; Version: 5.1.8 -;; package-requires: ((wisi "1.1.1") (cl-lib "0.4") (emacs "24.2")) +;; Version: 5.1.9 +;; package-requires: ((wisi "1.1.2") (cl-lib "0.4") (emacs "24.2")) ;; url: http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html ;; ;; (Gnu ELPA requires single digits between dots in versions) @@ -168,7 +168,7 @@ (defun ada-mode-version () "Return Ada mode version." (interactive) - (let ((version-string "5.1.8")) + (let ((version-string "5.1.9")) ;; must match: ;; ada-mode.texi ;; README-ada-mode @@ -214,31 +214,36 @@ character, and end either at the end of the word or at a _ character. Characters after the first word are ignored, and not preserved when the list is written back to the file." :type '(repeat (file)) - ;; :safe #'listp ;FIXME: is '("~/.emacs" "~/.bashrc" "/etc/passwd") safe? - ) + :safe #'listp) -(defcustom ada-case-keyword 'downcase-word +(defcustom ada-case-keyword 'lower-case "Buffer-local value that may override project variable `case_keyword'. Global value is default for project variable `case_keyword'. Function to call to adjust the case of Ada keywords." - :type '(choice (const downcase-word) - (const upcase-word)) - ;; :safe #'functionp ; FIXME: `functionp' CANNOT be safe! + :type '(choice (const lower-case) + (const upper-case)) + ;; We'd like to specify that the value must be a function that takes + ;; one arg, but custom doesn't support that. ':safe' is supposed + ;; to be used to prevent user-provided functions from compromising + ;; security, so ":safe #'functionp" is not appropriate. So we + ;; use a symbol, and a cl-ecase in ada-case-keyword. + :safe (lambda (val) (memq val '(lower-case upper-case))) ) (make-variable-buffer-local 'ada-case-keyword) -(defcustom ada-case-identifier 'ada-mixed-case +(defcustom ada-case-identifier 'mixed-case "Buffer-local value that may override project variable `case_keyword'. Global value is default for project variable `case_keyword'. Function to call to adjust the case of Ada keywords. Called with three args; start - buffer pos of start of identifier end - end of identifier -force-case - if t, treat `ada-strict-case' as t" - :type '(choice (const ada-mixed-case) - (const ada-lower-case) - (const ada-upper-case)) - ;; :safe #'functionp ; FIXME: `functionp' CANNOT be safe! +force-case - if t, treat `ada-case-strict' as t" + :type '(choice (const mixed-case) + (const lower-case) + (const upper-case)) + ;; see comment on :safe at ada-case-keyword + :safe (lambda (val) (memq val '(mixed-case lower-case upper-case))) ) ;; we'd like to check that there are 3 args, since the previous ;; release required 2 here. But there doesn't seem to be a way to @@ -269,10 +274,12 @@ indentation parser accepts." (defcustom ada-fill-comment-prefix "-- " "Comment fill prefix." :type 'string) +(make-variable-buffer-local 'ada-language-version) (defcustom ada-fill-comment-postfix " --" "Comment fill postfix." :type 'string) +(make-variable-buffer-local 'ada-language-version) (defcustom ada-prj-file-extensions '("adp" "prj") "List of Emacs Ada mode project file extensions. @@ -287,6 +294,12 @@ secondary project file (referenced from a primary). The user must provide a parser for a file with one of these extensions." :type 'list) +(defcustom ada-prj-parse-hook nil + "Hook run at start of `ada-parse-prj-file'. +Useful for setting `ada-xref-tool' and similar vars." + :type 'function + :group 'ada) + ;;;;; end of user variables (defconst ada-symbol-end @@ -355,7 +368,7 @@ Values defined by cross reference packages.") (define-key map "\C-c\C-x" 'ada-show-overriding) (define-key map "\C-c\M-x" 'ada-show-overridden) (define-key map "\C-c\C-y" 'ada-case-create-exception) - (define-key map "\C-c\M-y" 'ada-case-create-partial-exception) + (define-key map "\C-c\C-\M-y" 'ada-case-create-partial-exception) (define-key map [C-down-mouse-3] 'ada-popup-menu) (ada-case-activate-keys map) @@ -376,7 +389,8 @@ Values defined by cross reference packages.") ["Find and select project ..." ada-build-prompt-select-prj-file t] ["Select project ..." ada-prj-select t] ["Show project" ada-prj-show t] - ["Show project search path" ada-prj-show-path t] + ["Show project file search path" ada-prj-show-prj-path t] + ["Show source file search path" ada-prj-show-src-path t] ) ("Build" ["Next compilation error" next-error t] @@ -456,29 +470,17 @@ Values defined by cross reference packages.") ["Indent current statement" ada-indent-statement t] ["Goto next statement keyword" ada-next-statement-keyword t] ["Goto prev statement keyword" ada-next-statement-keyword t] - ["Other File" ada-find-other-file t] - ["Other file don't find decl" ada-find-other-file-noset t])) + ["Other File" ada-find-other-file t])) -(defun ada-popup-menu (_position) - "Pops up a `ada-context-menu', with `ada-context-menu-on-identifer' set appropriately. -POSITION is the location the mouse was clicked on. -Sets `ada-context-menu-last-point' to the current position before -displaying the menu. When a function from the menu is called, -point is where the mouse button was clicked." - (interactive "e") +(defun ada-popup-menu () + "Pops up `ada-context-menu'. +When a function from the menu is called, point is where the mouse +button was clicked." + (interactive) (mouse-set-point last-input-event) - - (setq ada-context-menu-on-identifier - (and (char-after) - (or (= (char-syntax (char-after)) ?w) - (= (char-after) ?_)) - (not (ada-in-string-or-comment-p)) - (save-excursion (skip-syntax-forward "w") - (not (ada-after-keyword-p))) - )) - (popup-menu ada-context-menu) - ) + (popup-menu ada-context-menu) + ) (defun ada-indent-newline-indent () "insert a newline, indent the old and new lines." @@ -604,23 +606,32 @@ current construct." (deactivate-mark)) ;; else see if we are in a construct we know how to align - (cond - ((ada-in-paramlist-p) + (let ((parse-result (syntax-ppss))) + (cond + ((ada-in-paramlist-p parse-result) (ada-format-paramlist)) - (t - (align-current)) - ))) + ((and + (ada-in-paren-p parse-result) + (ada-in-case-expression)) + ;; align '=>' + (let ((begin (nth 1 parse-result)) + (end (scan-lists (point) 1 1))) + (align begin end 'entire))) + + (t + (align-current)) + )))) (defvar ada-in-paramlist-p nil ;; Supplied by indentation engine parser "Function to return t if point is inside the parameter-list of a subprogram declaration. -Function is called with no arguments.") +Function is called with one optional argument; syntax-ppss result.") -(defun ada-in-paramlist-p () +(defun ada-in-paramlist-p (&optional parse-result) "Return t if point is inside the parameter-list of a subprogram declaration." (when ada-in-paramlist-p - (funcall ada-in-paramlist-p))) + (funcall ada-in-paramlist-p parse-result))) (defun ada-format-paramlist () "Reformat the parameter list point is in." @@ -809,13 +820,13 @@ Each parameter declaration is represented by a list (defun ada-insert-paramlist-single-line (paramlist) "Insert a single-line formatted PARAMLIST in the buffer." + ;; point is properly indented (let ((i (length paramlist)) param) ;; clean up whitespace - (skip-syntax-forward " ") - (delete-char (- (skip-syntax-backward " "))) - (insert " (") + (delete-char (- (skip-syntax-forward " "))) + (insert "(") (setq i (length paramlist)) (while (not (zerop i)) @@ -985,8 +996,6 @@ replacing current values of `ada-case-full-exceptions', `ada-case-partial-except (push (cons word t) exceptions)) exceptions) -(defvar ada-prj-current-file) - (defun ada-case-create-exception (&optional word file-name partial) "Define WORD as an exception for the casing system, save it in FILE-NAME. If PARTIAL is non-nil, create a partial word exception. WORD @@ -1025,7 +1034,9 @@ list." (unless word (if (use-region-p) - (setq word (buffer-substring-no-properties (region-beginning) (region-end))) + (progn + (setq word (buffer-substring-no-properties (region-beginning) (region-end))) + (deactivate-mark)) (save-excursion (let ((syntax (if partial "w" "w_"))) (skip-syntax-backward syntax) @@ -1061,9 +1072,8 @@ User is prompted to choose a file from project variable casing if it is a list." (interactive) (ada-case-create-exception nil nil t)) -(defun ada-in-numeric-literal-p () - "Return t if point is after a prefix of a numeric literal." - ;; FIXME: this is actually a based numeric literal; excludes 1234 +(defun ada-in-based-numeric-literal-p () + "Return t if point is after a prefix of a based numeric literal." (looking-back "\\([0-9]+#[0-9a-fA-F_]+\\)" (line-beginning-position))) (defvar ada-keywords nil @@ -1076,11 +1086,18 @@ User is prompted to choose a file from project variable casing if it is a list." (point)))) (member (downcase word) ada-keywords))) -(defun ada-lower-case (start end _force-case-strict) - (downcase-region start end)) +(defun ada-case-keyword (beg end) + (cl-ecase ada-case-keyword + (lower-case (downcase-region beg end)) + (upper-case (upcase-region beg end)) + )) -(defun ada-upper-case (start end _force-case-strict) - (upcase-region start end)) +(defun ada-case-identifier (start end force-case-strict) + (cl-ecase ada-case-identifier + (mixed-case (ada-mixed-case start end force-case-strict)) + (lower-case (downcase-region start end)) + (upper-case (upcase-region start end)) + )) (defun ada-mixed-case (start end force-case-strict) "Adjust case of region START END to Mixed_Case." @@ -1127,7 +1144,7 @@ Uses `ada-case-identifier', with exceptions defined in (delete-region (point) end)) ;; else apply ada-case-identifier - (funcall ada-case-identifier start end force-case) + (ada-case-identifier start end force-case) ;; apply partial-exceptions (goto-char start) @@ -1148,7 +1165,16 @@ Uses `ada-case-identifier', with exceptions defined in (if (< (point) end) (setq start (point)) (setq done t)) - ))))) + ))))) + +(defun ada-case-adjust-keyword () + "Adjust the case of the previous word as a keyword. +'word' here is allowed to be underscore-separated (GPR external_as_list)." + (save-excursion + (let ((end (point-marker)) + (start (progn (skip-syntax-backward "w_") (point)))) + (ada-case-keyword start end) + ))) (defun ada-case-adjust (&optional typed-char in-comment) "Adjust the case of the word before point. @@ -1171,7 +1197,8 @@ and treat `ada-case-strict' as t in code.." ;; referenced in a comment, via ;; ada-case-adjust-at-point. - (not (ada-in-numeric-literal-p)) + (not (ada-in-based-numeric-literal-p)) + ;; don't adjust case on hex digits )) ;; The indentation engine may trigger a reparse on @@ -1193,7 +1220,7 @@ and treat `ada-case-strict' as t in code.." (not in-comment) (not (eq typed-char ?_)) (ada-after-keyword-p)) - (funcall ada-case-keyword -1)) + (ada-case-adjust-keyword)) (t (ada-case-adjust-identifier in-comment)) )) @@ -1302,7 +1329,7 @@ Optional PLIST defaults to `ada-prj-current-project'." (plist-get prj prop) ;; no project, just use default vars - ;; must match code in ada-prj-default + ;; must match code in ada-prj-default, except for src_dir. (cl-case prop (ada_compiler ada-compiler) (auto_case ada-auto-case) @@ -1314,7 +1341,7 @@ Optional PLIST defaults to `ada-prj-current-project'." (list ada-case-exception-file))) (path_sep path-separator) (proc_env process-environment) - (src_dir (list ".")) + (src_dir (list (directory-file-name default-directory))) (xref_tool ada-xref-tool) )))) @@ -1368,7 +1395,7 @@ Include properties set via `ada-prj-default-compiler-alist', (list ada-case-exception-file)) 'path_sep path-separator;; prj variable so users can override it for their compiler 'proc_env process-environment - 'src_dir (list (if src-dir src-dir ".")) + 'src_dir (if src-dir (list src-dir) nil) 'xref_tool ada-xref-tool )) @@ -1398,7 +1425,8 @@ list. Parser must modify or add to the property list and return it.") (defun ada-parse-prj-file (prj-file) "Read Emacs Ada or compiler-specific project file PRJ-FILE, set project properties in `ada-prj-alist'." ;; Not called ada-prj-parse-file for Ada mode 4.01 compatibility - ;; FIXME: use the right name, add an alias + ;; FIXME: need to kill gpr-query session if .gpr file has changed (like from non-agg to agg!) + (run-hooks `ada-prj-parse-hook) (let ((project (ada-prj-default)) (parser (cdr (assoc (file-name-extension prj-file) ada-prj-parser-alist)))) @@ -1653,15 +1681,27 @@ Indexed by project variable xref_tool.") (interactive) (message "current Emacs Ada mode project file: %s" ada-prj-current-file)) -(defvar ada-prj-show-path nil +(defvar ada-prj-show-prj-path nil ;; Supplied by compiler - "Function to show project search path used by compiler (and possibly xref tool)." + "Function to show project file search path used by compiler (and possibly xref tool)." ) -(defun ada-prj-show-path () +(defun ada-prj-show-prj-path () (interactive) - (when ada-prj-show-path - (funcall ada-prj-show-path))) + (when ada-prj-show-prj-path + (funcall ada-prj-show-prj-path))) + +(defun ada-prj-show-src-path () + "Show the project source file search path." + (interactive) + (if compilation-search-path + (progn + (pop-to-buffer (get-buffer-create "*Ada project source file search path*")) + (erase-buffer) + (dolist (file compilation-search-path) + (insert (format "%s\n" file)))) + (message "no project source file search path set") + )) (defvar ada-show-xref-tool-buffer nil ;; Supplied by xref tool @@ -1912,6 +1952,17 @@ other file.") (when ada-on-context-clause (funcall ada-on-context-clause))) +(defvar ada-in-case-expression nil + ;; supplied by indentation engine + "Function called with no parameters; it should return non-nil + if point is in a case expression.") + +(defun ada-in-case-expression () + "See `ada-in-case-expression' variable." + (interactive) + (when ada-in-case-expression + (funcall ada-in-case-expression))) + (defvar ada-goto-subunit-name nil ;; supplied by indentation engine "Function called with no parameters; if the current buffer @@ -1984,13 +2035,7 @@ set." (error "%s (opened) and %s (found in project) are two different files" file-name found-file))))) -(defun ada-find-other-file-noset (other-window) - "Same as `ada-find-other-file', but preserve point in the other file, -don't move to corresponding declaration." - (interactive "P") - (ada-find-other-file other-window t)) - -(defun ada-find-other-file (other-window &optional _no-set-point) +(defun ada-find-other-file (other-window) "Move to the corresponding declaration in another file. - If region is active, assume it contains a package name; @@ -2010,11 +2055,7 @@ don't move to corresponding declaration." on the corresponding specification or body. If OTHER-WINDOW (set by interactive prefix) is non-nil, show the -buffer in another window. - -If NO-SET-POINT is nil, set point in the other file on the -corresponding declaration. If non-nil, preserve existing point in -the other file." +buffer in another window." ;; ff-get-file, ff-find-other file first process ;; ff-special-constructs, then run the following hooks: @@ -2029,6 +2070,10 @@ the other file." (interactive "P") (ada-check-current-project (buffer-file-name)) + ;; clear ff-function-name, so it either ff-special-constructs or + ;; ada-which-function will set it. + (setq ff-function-name nil) + (cond (mark-active (setq ff-function-name (buffer-substring-no-properties (point) (mark))) @@ -2078,9 +2123,9 @@ identifier. May be an Ada identifier or operator." (cond ((and (= (char-before) ?\") - (progn - (forward-char -1) - (looking-at (concat "\"\\(" ada-operator-re "\\)\"")))) + (progn + (forward-char -1) + (looking-at (concat "\"\\(" ada-operator-re "\\)\"")))) (concat "\"" (match-string-no-properties 1) "\"")) (t @@ -2088,7 +2133,7 @@ identifier. May be an Ada identifier or operator." )) ((and (= (char-after) ?\") - (looking-at (concat "\"\\(" ada-operator-re "\\)\""))) + (looking-at (concat "\"\\(" ada-operator-re "\\)\""))) (concat "\"" (match-string-no-properties 1) "\"")) ((looking-at "[a-zA-Z0-9_]+\\|[+\\-*/&=<>]") @@ -2098,7 +2143,7 @@ identifier. May be an Ada identifier or operator." (error "No identifier around")) )) -;; FIXME: use find-tag-marker-ring, ring-insert, pop-tag-mark (see xref.el) +;; FIXME (for emacs 25): use find-tag-marker-ring, ring-insert, pop-tag-mark (see xref.el) (defvar ada-goto-pos-ring '() "List of positions selected by navigation functions. Used to go back to these positions.") @@ -2123,6 +2168,7 @@ to go back to these positions.") (defun ada-goto-source (file line column other-window) "Find and select FILE, at LINE and COLUMN. FILE may be absolute, or on `compilation-search-path'. +LINE, COLUMN are Emacs origin. If OTHER-WINDOW is non-nil, show the buffer in another window." (let ((file-1 @@ -2440,10 +2486,10 @@ is currently in. Called with no parameters.") ;; Supplied by indentation engine "Function called with no parameters; it should move forward to the next keyword in the statement following the one point is -in (ie from 'if' to 'then'). If not in a keyword, move forward -to the next keyword in the current statement. If at the last keyword, -move forward to the first keyword in the next statement or next -keyword in the containing statement.") +in (ie from 'if' to 'then'). If not in a keyword, move forward to +the next keyword in the current statement. If at the last +keyword, move forward to the first keyword in the next statement +or next keyword in the containing statement.") (defvar ada-goto-end nil ;; Supplied by indentation engine @@ -2457,12 +2503,18 @@ Called with no parameters.") (defun ada-next-statement-keyword () ;; Supplied by indentation engine - "See `ada-next-statement-keyword' variable." + "See `ada-next-statement-keyword' variable. In addition, +if on open parenthesis move to matching closing parenthesis." (interactive) - (when ada-next-statement-keyword - (unless (region-active-p) - (push-mark)) - (funcall ada-next-statement-keyword))) + (if (= (syntax-class (syntax-after (point))) 4) + ;; on open paren + (forward-sexp) + + ;; else move by keyword + (when ada-next-statement-keyword + (unless (region-active-p) + (push-mark)) + (funcall ada-next-statement-keyword)))) (defvar ada-prev-statement-keyword nil ;; Supplied by indentation engine @@ -2472,12 +2524,18 @@ keyword in the statement following the one point is in (ie from keyword in the previous statement or containing statement.") (defun ada-prev-statement-keyword () - "See `ada-prev-statement-keyword' variable." + "See `ada-prev-statement-keyword' variable. In addition, +if on close parenthesis move to matching open parenthesis." (interactive) - (when ada-prev-statement-keyword - (unless (region-active-p) - (push-mark)) - (funcall ada-prev-statement-keyword))) + (if (= (syntax-class (syntax-after (1- (point)))) 5) + ;; on close paren + (backward-sexp) + + ;; else move by keyword + (when ada-prev-statement-keyword + (unless (region-active-p) + (push-mark)) + (funcall ada-prev-statement-keyword)))) ;;;; code creation @@ -2511,17 +2569,22 @@ package body file, containing skeleton code that will compile.") (defun ada-ff-create-body () ;; no error if not set; let ada-skel do its thing. (when ada-make-package-body - ;; ff-find-other-file calls us with point in an empty buffer for the - ;; body file; ada-make-package-body expects to be in the spec. So go - ;; back. - (let ((body-file-name (buffer-file-name))) - (ff-find-the-other-file) + ;; ff-find-other-file calls us with point in an empty buffer for + ;; the body file; ada-make-package-body expects to be in the + ;; spec. So go back to the spec, and delete the body buffer so it + ;; does not get written to disk. + (let ((body-buffer (current-buffer)) + (body-file-name (buffer-file-name))) + + (set-buffer-modified-p nil);; may have a skeleton; allow silent delete + + (ff-find-the-other-file);; back to spec + + (kill-buffer body-buffer) (ada-make-package-body body-file-name) - ;; FIXME (later): if 'ada-make-package-body' fails, delete the body buffer - ;; so it doesn't get written to disk, and we can try again. - ;; back to the body, read in from the disk. + ;; back to the new body file, read in from the disk. (ff-find-the-other-file) (revert-buffer t t)) )) @@ -2539,7 +2602,17 @@ The paragraph is indented on the first line." (not (looking-at "[ \t]*--"))) (error "Not inside comment")) - (let* ((inhibit-modification-hooks t) ;; don't run parser for font-lock; comment text is exposed + ;; fill-region-as-paragraph leaves comment text exposed (without + ;; comment prefix) when inserting a newline; don't trigger a parse + ;; because of that (in particular, jit-lock requires a parse; other + ;; hooks may as well). In general, we don't need to trigger a parse + ;; for comment changes. + ;; + ;; FIXME: add ada-inibit-parse instead; let other change hooks run. + ;; FIXME: wisi-after-change still needs to adjust wisi-cache-max + ;; FIXME: even better, consider patch suggested by Stefan Monnier to + ;; move almost all code out of the change hooks (see email). + (let* ((inhibit-modification-hooks t) indent from to (opos (point-marker)) ;; we bind `fill-prefix' here rather than in ada-mode because @@ -2548,6 +2621,8 @@ The paragraph is indented on the first line." (fill-prefix ada-fill-comment-prefix) (fill-column (current-fill-column))) + ;; We should run before-change-functions here, but we don't know from/to yet. + ;; Find end of comment paragraph (back-to-indentation) (while (and (not (eobp)) (looking-at ".*--[ \t]*[^ \t\n]")) @@ -2610,13 +2685,11 @@ The paragraph is indented on the first line." ;; we disabled modification hooks, so font-lock will not run to ;; re-fontify the comment prefix; do that here. - (when (memq 'jit-lock-after-change after-change-functions) - (jit-lock-after-change from to 0)) - )) + ;; FIXME: Use actual original size instead of 0! + (run-hook-with-args 'after-change-functions from to 0))) ;;;; support for font-lock.el -;; casing keywords defined here to keep the two lists together (defconst ada-83-keywords '("abort" "abs" "accept" "access" "all" "and" "array" "at" "begin" "body" "case" "constant" "declare" "delay" "delta" "digits" "do" @@ -2670,7 +2743,9 @@ The paragraph is indented on the first line." (setq local-abbrev-table ada-mode-abbrev-table) (set (make-local-variable 'syntax-propertize-function) 'ada-syntax-propertize) - (set (make-local-variable 'syntax-begin-function) nil) + (when (boundp 'syntax-begin-function) + ;; obsolete in emacs-25.1 + (set (make-local-variable 'syntax-begin-function) nil)) (set (make-local-variable 'parse-sexp-ignore-comments) t) (set (make-local-variable 'parse-sexp-lookup-properties) t) (set 'case-fold-search t); Ada is case insensitive; the syntax parsing requires this setting diff --git a/packages/ada-mode/ada-mode.info b/packages/ada-mode/ada-mode.info index 485adadae..a3f0aaa52 100644 --- a/packages/ada-mode/ada-mode.info +++ b/packages/ada-mode/ada-mode.info @@ -1,4 +1,4 @@ -This is ada-mode.info, produced by makeinfo version 5.2 from +This is ada-mode.info, produced by makeinfo version 6.0 from ada-mode.texi. Copyright (C) 1999 - 2015 Free Software Foundation, Inc. @@ -22,7 +22,9 @@ END-INFO-DIR-ENTRY  File: ada-mode.info, Node: Top, Next: Overview, Prev: (dir), Up: (dir) -Copyright (C) 1999 - 2015 Free Software Foundation, Inc. +Ada Mode Version 5.1.9 + + Copyright (C) 1999 - 2015 Free Software Foundation, Inc. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, @@ -145,15 +147,17 @@ distributed with GNAT GPL 2014. To build 'gpr_query', assuming GNAT GPL 2014 is installed in '/usr/gnat-gpl-2014', and '/usr/gnat-gpl-2014/bin' is in PATH (if you -are running Windows, use Cygwin bash to run these commands): +are running Windows, use Cygwin bash to run these commands, with GNAT +GPL bin first in PATH) (note that gnatcoll-gpl-2014-src.tar.gz unzips to +gnatcoll-1.7w-src): tar xf ~/Downloads/gnatcoll-gpl-2014-src.tar.gz - cd gnatcoll-gpl-2014-src - ./configure --enable-projects --prefix=/usr/gnat-gpl-2014 + cd gnatcoll-1.7w-src + ./configure --prefix=/usr/gnat-gpl-2014 make sudo make install cd ~/.emacs.d/elpa/ada-mode-5.xx/build - make install-gpr_query + make install To build an sqlite3 executable that is compatible with the database created by 'gpr_query': @@ -332,6 +336,15 @@ the syntax to set a variable is the following: Navigate to subprograms and types by name, from a list in a dedicated window. 'which-func' +'jit-lock-defer-time' + In large files, parsing is slow, so it gets in the way of + interactive typing due to immediate font-lock triggering a parse. + Delay the font-lock by setting an Emacs file-local variable in an + Ada comment: + + -- Local Variables: + -- jit-lock-defer-time: 0.5 + -- End: The above can all be set by the following code in your '~/.emacs'. Note that some are functions are added to 'before-save-hook'; they run @@ -1020,7 +1033,7 @@ line specifies a project variable name and its value, separated by "=" concatenated. There must be no space between the variable name and "=", and no -trailing spaces. +trailing spaces after the value. The current project file is given by the lisp variable 'ada-prj-default-project-file', and shown by the menu command ;; Maintainer: Stephen Leake diff --git a/packages/ada-mode/ada-wisi-opentoken.el b/packages/ada-mode/ada-wisi-opentoken.el index cd869813c..fbc4daf38 100644 --- a/packages/ada-mode/ada-wisi-opentoken.el +++ b/packages/ada-mode/ada-wisi-opentoken.el @@ -1,5 +1,5 @@ -;;; ada-wisi-opentoken.el --- An indentation function for ada-wisi that indents OpenToken -*- lexical-binding:t -*- -;; grammar statements nicely. +;; ada-wisi-opentoken.el --- An indentation function for ada-wisi that indents -*- lexical-binding:t -*- +;; OpenTokengrammar statements nicely. ;; Copyright (C) 2013-2015 Free Software Foundation, Inc. diff --git a/packages/ada-mode/ada-wisi.el b/packages/ada-mode/ada-wisi.el index 6d53739cd..e076bc046 100644 --- a/packages/ada-mode/ada-wisi.el +++ b/packages/ada-mode/ada-wisi.el @@ -2,7 +2,7 @@ ;; ;; [1] ISO/IEC 8652:2012(E); Ada 2012 reference manual ;; -;; Copyright (C) 2012 - 2015 Free Software Foundation, Inc. +;; Copyright (C) 2012 - 2016 Free Software Foundation, Inc. ;; ;; Author: Stephen Leake ;; @@ -135,7 +135,11 @@ if in paren, pos following paren." ;; test/ada_mode-opentoken.ads ;; private package GDS.Commands.Add_Statement is ;; type Instance is new Nonterminal.Instance with null record; - offset) + ;; + ;; test/ada_mode-nominal.adb + ;; return B : Integer := + ;; (Local_Function); + (+ indent offset)) ((eq 'label_opt (wisi-cache-token cache)) (+ indent (- ada-indent-label) offset)) @@ -302,6 +306,17 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." ;; defer to after-cache) nil) + (list-break + ;; test/ada_mode-parens.adb + ;; Foo (X + ;; , -- used to get an error here; don't care about the actual indentation + ;; indenting ',' + ;; + ;; We don't actually care what the indentation is, since this + ;; should only occur while editing; defer to after-cache + ;; avoids an error and does something reasonable. + nil) + (name (cond ((let ((temp (save-excursion (wisi-goto-containing cache)))) @@ -564,6 +579,7 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." (+ (current-column) ada-indent-broken)) ((full_type_declaration + protected_type_declaration single_protected_declaration single_task_declaration subtype_declaration @@ -669,10 +685,21 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." )) (private_extension_declaration - ;; test/ada_mode-nominal.ads - ;; type Limited_Derived_Type_3 is abstract limited - ;; new Private_Type_1 with private; - (+ (current-indentation) ada-indent-broken)) + (cl-ecase (wisi-cache-token cache) + (WITH + ;; test/aspects.ads + ;; type Date_Set is tagged private + ;; with + ;; indenting 'with' + (current-indentation)) + + (t + ;; test/ada_mode-nominal.ads + ;; type Limited_Derived_Type_3 is abstract limited + ;; new Private_Type_1 with private; + ;; indenting 'new' + (+ (current-indentation) ada-indent-broken)) + )) (private_type_declaration ;; test/aspects.ads @@ -703,7 +730,12 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." (ada-wisi-indent-cache ada-indent-broken cache)) )) - ((subprogram_body subprogram_declaration subprogram_specification null_procedure_declaration) + ((abstract_subprogram_declaration + expression_function_declaration + subprogram_body + subprogram_declaration + subprogram_specification + null_procedure_declaration) (cl-ecase (wisi-cache-token cache) (IS ;; test/ada_mode-nominal.ads @@ -761,9 +793,6 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." (list-break (ada-wisi-indent-list-break cache prev-token)) - (statement-other - ;; defer to ada-wisi-after-cache - nil) )))) )) )) @@ -1104,11 +1133,15 @@ cached token, return new indentation for point." ;; type Synchronized_Formal_Derived_Type is abstract synchronized new Formal_Private_Type and Interface_Type ;; with private; - subtype_declaration) - ;; test/ada_mode-nominal.ads - ;; subtype Subtype_2 is Signed_Integer_Type range 10 .. - ;; 20; + subtype_declaration + ;; test/ada_mode-nominal.ads + ;; subtype Subtype_2 is Signed_Integer_Type range 10 .. + ;; 20; + private_type_declaration + ;; type Private_Type_2 is abstract tagged limited + ;; private; + ) (+ (current-column) ada-indent-broken)) (null_procedure_declaration @@ -1228,8 +1261,47 @@ cached token, return new indentation for point." ;; would align the comment with the block-middle, which is wrong. So ;; we only call ada-wisi-after-cache. - ;; FIXME: need option to match gnat style check; change indentation to match (ie mod 3) - (ada-wisi-after-cache)) + (let ((indent (ada-wisi-after-cache)) + prev-indent next-indent) + (if ada-indent-comment-gnat + ;; match the gnat comment indent style check; comments must + ;; be aligned to one of: + ;; + ;; - multiple of ada-indent + ;; - next non-blank line + ;; - previous non-blank line + ;; + ;; Note that we must indent the prev and next lines, in case + ;; they are not currently correct. + (cond + ((= 0 (% indent ada-indent)) + ;; this will handle comments at bob and eob, so we don't + ;; need to worry about those positions in the next checks. + indent) + + ((and (setq prev-indent + (save-excursion (forward-line -1)(indent-according-to-mode)(current-indentation))) + (= indent prev-indent)) + indent) + + ((and (setq next-indent + ;; we use forward-comment here, instead of + ;; forward-line, because consecutive comment + ;; lines are indented to the current one, which + ;; we don't know yet. + (save-excursion (forward-comment (point-max))(indent-according-to-mode)(current-indentation))) + (= indent next-indent)) + indent) + + (t + (or + prev-indent + next-indent + (floor indent ada-indent))) + ) + + ;; not forcing gnat style + indent))) (t ;; comment is after a comment @@ -1295,6 +1367,17 @@ cached token, return new indentation for point." (memq (wisi-cache-nonterm cache) '(use_clause with_clause)) )))) +(defun ada-wisi-in-case-expression () + "For `ada-in-case-expression'." + (save-excursion + ;; Used by ada-align, which does indent, which will require parse + ;; We know we are in a paren. + (ada-goto-open-paren 1) + (let ((cache (wisi-get-cache (point)))) + (and cache + (eq (wisi-cache-nonterm cache) 'case_expression))) + )) + (defun ada-wisi-goto-subunit-name () "For `ada-goto-subunit-name'." (wisi-validate-cache (point-max)) @@ -1356,7 +1439,10 @@ Also return cache at start." ((protected_body protected_type_declaration single_protected_declaration) (eq (wisi-cache-token cache) 'PROTECTED)) - ((subprogram_body subprogram_declaration null_procedure_declaration) + ((abstract_subprogram_declaration + subprogram_body + subprogram_declaration + null_procedure_declaration) (memq (wisi-cache-token cache) '(NOT OVERRIDING FUNCTION PROCEDURE))) (task_type_declaration @@ -1439,11 +1525,11 @@ Also return cache at start." (when first (setq first nil))) )) -(defun ada-wisi-in-paramlist-p () +(defun ada-wisi-in-paramlist-p (&optional parse-result) "For `ada-in-paramlist-p'." (wisi-validate-cache (point)) ;; (info "(elisp)Parser State" "*syntax-ppss*") - (let* ((parse-result (syntax-ppss)) + (let ((parse-result (or parse-result (syntax-ppss))) cache) (and (> (nth 0 parse-result) 0) ;; cache is nil if the parse failed @@ -1534,6 +1620,10 @@ Also return cache at start." (setq default-begin (point)) (wisi-forward-find-token 'SEMICOLON end t)) + ((equal token 'LEFT_PAREN) + ;; anonymous access procedure type + (goto-char (scan-sexps (1- (point)) 1))) + ((member token '(SEMICOLON RIGHT_PAREN)) (when (not type-end) (setq type-end (save-excursion (backward-char 1) (skip-syntax-backward " ") (point)))) @@ -1575,6 +1665,7 @@ Also return cache at start." (let* ((cache (wisi-forward-find-class 'name (point-max))) (result (wisi-cache-text cache))) + ;; See comment at ada-mode.el on why we don't overwrite ff-function-name. (when (not ff-function-name) (setq ff-function-name (concat @@ -1595,12 +1686,11 @@ Also return cache at start." ;; bob or failed parse (setq result "") - (cl-case (wisi-cache-nonterm cache) - ((generic_package_declaration generic_subprogram_declaration) - ;; name is after next statement keyword - (wisi-next-statement-cache cache) - (setq cache (wisi-get-cache (point)))) - ) + (when (memq (wisi-cache-nonterm cache) + '(generic_package_declaration generic_subprogram_declaration)) + ;; name is after next statement keyword + (wisi-next-statement-cache cache) + (setq cache (wisi-get-cache (point)))) ;; add or delete 'body' as needed (cl-ecase (wisi-cache-nonterm cache) @@ -1617,7 +1707,8 @@ Also return cache at start." ((protected_type_declaration single_protected_declaration) (setq result (ada-wisi-which-function-1 "protected" t))) - ((subprogram_declaration + ((abstract_subprogram_declaration + subprogram_declaration generic_subprogram_declaration ;; after 'generic' null_procedure_declaration) (setq result (ada-wisi-which-function-1 @@ -1761,6 +1852,7 @@ TOKEN-TEXT; move point to just past token." (setq ada-make-subprogram-body 'ada-wisi-make-subprogram-body) (setq ada-next-statement-keyword 'wisi-forward-statement-keyword) (setq ada-on-context-clause 'ada-wisi-on-context-clause) +(setq ada-in-case-expression 'ada-wisi-in-case-expression) (setq ada-prev-statement-keyword 'wisi-backward-statement-keyword) (setq ada-reset-parser 'wisi-invalidate-cache) (setq ada-scan-paramlist 'ada-wisi-scan-paramlist) diff --git a/packages/ada-mode/ada-xref.el b/packages/ada-mode/ada-xref.el index e58cba867..6816d8a5b 100644 --- a/packages/ada-mode/ada-xref.el +++ b/packages/ada-mode/ada-xref.el @@ -1,4 +1,5 @@ ;;; ada-xref.el --- Dummy file to hide obsolete bundled version -*- lexical-binding:t -*- +;;; see xref-ada.el for Emacs 25 xref minor mode for ada-mode (require 'ada-mode) (provide 'ada-xref) (message "'ada-xref' is obsolete; use 'ada-mode' instead") diff --git a/packages/ada-mode/gnat-core.el b/packages/ada-mode/gnat-core.el index ff62610ae..f8d4f317c 100644 --- a/packages/ada-mode/gnat-core.el +++ b/packages/ada-mode/gnat-core.el @@ -56,16 +56,16 @@ project)) -(defun gnat-prj-show-path () - "For `ada-prj-show-path'." +(defun gnat-prj-show-prj-path () + "For `ada-prj-show-prj-path'." (interactive) (if (ada-prj-get 'prj_dir) (progn - (pop-to-buffer (get-buffer-create "*GNAT project search path*")) + (pop-to-buffer (get-buffer-create "*GNAT project file search path*")) (erase-buffer) (dolist (file (ada-prj-get 'prj_dir)) (insert (format "%s\n" file)))) - (message "no GNAT project search path files") + (message "no project file search path set") )) (defun gnat-prj-parse-emacs-one (name value project) @@ -147,7 +147,7 @@ Uses 'gnat list'. Returns new (SRC-DIRS PRJ-DIRS)." (while (not (looking-at "^$")) (back-to-indentation) (if (looking-at "") - (cl-pushnew "." prj-dirs :test #'equal) + (cl-pushnew (directory-file-name default-directory) prj-dirs :test #'equal) (let ((f (expand-file-name (buffer-substring-no-properties (point) (point-at-eol))))) (cl-pushnew f prj-dirs :test #'equal) @@ -162,15 +162,16 @@ Uses 'gnat list'. Returns new (SRC-DIRS PRJ-DIRS)." )) (list src-dirs prj-dirs))) +;; FIXME: use a dispatching function instead, with autoload, to +;; avoid "require" here, and this declare +;; Using 'require' at top level gives the wrong default ada-xref-tool +(declare-function gpr-query-get-src-dirs "gpr-query.el" (src-dirs)) +(declare-function gpr-query-get-prj-dirs "gpr-query.el" (prj-dirs)) (defun gnat-get-paths (project) "Add project and/or compiler source, project paths to PROJECT src_dir and/or prj_dir." (let ((src-dirs (ada-prj-get 'src_dir project)) (prj-dirs (ada-prj-get 'prj_dir project))) - ;; FIXME: use a dispatching function instead, with autoload, to - ;; avoid "require" here, which gives "warning: function not - ;; known". - ;; Using 'require' at top level gives the wrong default ada-xref-tool (cl-ecase (ada-prj-get 'xref_tool project) (gnat (let ((res (gnat-get-paths-1 src-dirs prj-dirs))) @@ -378,6 +379,7 @@ list." '(("a-textio" . "Ada.Text_IO") ("a-chahan" . "Ada.Characters.Handling") ("a-comlin" . "Ada.Command_Line") + ("a-contai" . "Ada.Containers") ("a-except" . "Ada.Exceptions") ("a-numeri" . "Ada.Numerics") ("a-string" . "Ada.Strings") @@ -397,7 +399,7 @@ list." (defun ada-gnat-ada-name-from-file-name (file-name) "For `ada-ada-name-from-file-name'." (let* ((ada-name (file-name-sans-extension (file-name-nondirectory file-name))) - (predefined (cdr (assoc ada-name ada-gnat-predefined-package-alist)))) + (predefined (cdr (assoc ada-name ada-gnat-predefined-package-alist)))) (if predefined predefined @@ -419,19 +421,15 @@ list." ;; contain path info. So we pass a directory to gnat-run-no-prj. (let ((start-buffer (current-buffer)) (start-file (buffer-file-name)) - ;; can also specify gnat stub options/switches in .gpr file, in package 'gnatstub'. (opts (when (ada-prj-get 'gnat_stub_opts) (split-string (ada-prj-get 'gnat_stub_opts)))) (switches (when (ada-prj-get 'gnat_stub_switches) (split-string (ada-prj-get 'gnat_stub_switches)))) + (process-environment (ada-prj-get 'proc_env)) ;; for GPR_PROJECT_PATH ) - ;; Make sure all relevant files are saved to disk. This also saves - ;; the bogus body buffer created by ff-find-the-other-file, so we - ;; need -f gnat stub option. We won't get here if there is an - ;; existing body file. + ;; Make sure all relevant files are saved to disk. (save-some-buffers t) - (cl-pushnew "-f" opts :test #'equal) (with-current-buffer (gnat-run-buffer) (gnat-run-no-prj (append (list "stub") opts (list start-file "-cargs") switches) diff --git a/packages/ada-mode/gnat-inspect.el b/packages/ada-mode/gnat-inspect.el deleted file mode 100644 index b7b839bd6..000000000 --- a/packages/ada-mode/gnat-inspect.el +++ /dev/null @@ -1,571 +0,0 @@ -;;; gnat-inspect.el --- Minor-mode for navigating sources using gnatinspect -*- lexical-binding:t -*- - -;; gnatinspect supports Ada and any gcc language that supports the -;; -fdump-xref switch (which includes C, C++). -;; -;; Copyright (C) 2013-2015 Free Software Foundation, Inc. - -;; Author: Stephen Leake -;; Maintainer: Stephen Leake -;; Version: 1.0 - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Usage: -;; -;; M-x gnat-inspect - -(require 'ada-mode) ;; for ada-prj-*, some other things -(require 'cl-lib) -(require 'compile) - -;;;;; sessions - -;; gnatinspect reads the project files and the database at startup, -;; which is noticeably slow for a reasonably sized project. But -;; running queries after startup is fast. So we leave gnatinspect -;; running, and send it new queries via stdin, getting responses via -;; stdout. -;; -;; We maintain a cache of active sessions, one per gnat project. - -(cl-defstruct (gnat-inspect--session) - (process nil) ;; running gnatinspect - (buffer nil) ;; receives output of gnatinspect - (sent-kill-p nil) - (closed-p nil)) - -(defconst gnat-inspect-buffer-name-prefix " *gnatinspect-") - -(defun gnat-inspect--start-process (session) - "Start the session process running gnatinspect." - (unless (buffer-live-p (gnat-inspect--session-buffer session)) - ;; user may have killed buffer - (setf (gnat-inspect--session-buffer session) (gnat-run-buffer gnat-inspect-buffer-name-prefix))) - - (with-current-buffer (gnat-inspect--session-buffer session) - (let ((process-environment (ada-prj-get 'proc_env)) ;; for GPR_PROJECT_PATH - - ;; WORKAROUND: gnatinspect from gnatcoll-1.6w-20130902 can't handle aggregate projects; M910-032 - (project-file (file-name-nondirectory - (ada-prj-get 'gpr_file)))) - (erase-buffer); delete any previous messages, prompt - (setf (gnat-inspect--session-process session) - ;; FIXME: need good error message on bad project file: - ;; "can't handle aggregate projects?") - (start-process (concat "gnatinspect " (buffer-name)) - (gnat-inspect--session-buffer session) - "gnatinspect" - (concat "--project=" project-file))) - (set-process-query-on-exit-flag (gnat-inspect--session-process session) nil) - (gnat-inspect-session-wait session) - ))) - -(defun gnat-inspect--make-session () - "Create and return a session for the current project file." - (let ((session - (make-gnat-inspect--session - :buffer (gnat-run-buffer gnat-inspect-buffer-name-prefix)))) - (gnat-inspect--start-process session) - session)) - -(defvar gnat-inspect--sessions '() - "Assoc list of sessions, indexed by absolute GNAT project file name.") - -(defun gnat-inspect-cached-session () - "Return a session for the current project file, creating it if necessary." - (gnat-inspect-ensure-gpr) - - (let* ((session (cdr (assoc ada-prj-current-file gnat-inspect--sessions)))) - (if session - (progn - (unless (process-live-p (gnat-inspect--session-process session)) - (gnat-inspect--start-process session)) - session) - ;; else - (prog1 - (setq session (gnat-inspect--make-session)) - (setq gnat-inspect--sessions - (cl-acons ada-prj-current-file session gnat-inspect--sessions)))) - )) - -(defun gnat-inspect-show-session-buffer () - (interactive) - (pop-to-buffer (gnat-inspect-cached-session))) - -(defconst gnat-inspect-prompt "^>>> $" - ;; gnatinspect output ends with this - "Regexp matching gnatinspect prompt; indicates previous command is complete.") - -(defun gnat-inspect-session-wait (session) - "Wait for the current command to complete." - (unless (process-live-p (gnat-inspect--session-process session)) - (error "gnatinspect process failed")) - - (with-current-buffer (gnat-inspect--session-buffer session) - (let ((process (gnat-inspect--session-process session)) - (search-start (point-min)) - (wait-count 0)) - (while (progn - ;; process output is inserted before point, so move back over it to search it - (goto-char search-start) - (not (re-search-forward gnat-inspect-prompt (point-max) 1)));; don't search same text again - (setq search-start (point)) - (message (concat "running gnatinspect ..." (make-string wait-count ?.))) - (accept-process-output process 1.0) - (setq wait-count (1+ wait-count))) - (message (concat "running gnatinspect ... done")) - ))) - -(defun gnat-inspect-session-send (cmd wait) - "Send CMD to gnatinspect session for current project. -If WAIT is non-nil, wait for command to complete. -Return buffer that holds output." - (let ((session (gnat-inspect-cached-session))) - (with-current-buffer (gnat-inspect--session-buffer session) - (erase-buffer) - (process-send-string (gnat-inspect--session-process session) - (concat cmd "\n")) - (when wait - (gnat-inspect-session-wait session)) - (current-buffer) - ))) - -(defun gnat-inspect-kill-all-sessions () - (interactive) - (let ((count 0)) - (mapc (lambda (assoc) - (let ((session (cdr assoc))) - (when (process-live-p (gnat-inspect--session-process session)) - (setq count (1+ count)) - (process-send-string (gnat-inspect--session-process session) "exit\n") - ))) - gnat-inspect--sessions) - (message "Killed %d sessions" count) - )) - -;;;;; utils - -(defun gnat-inspect-ensure-gpr () - (unless (ada-prj-get 'gpr_file) - (error "no gpr file specified"))) - -(defconst gnat-inspect-ident-file-regexp - ;; Write_Message:C:\Projects\GDS\work_dscovr_release\common\1553\gds-mil_std_1553-utf.ads:252:25 - ;; Write_Message:/Projects/GDS/work_dscovr_release/common/1553/gds-mil_std_1553-utf.ads:252:25 - "\\([^:]*\\):\\(\\(?:.:\\\|/\\)[^:]*\\):\\([0123456789]+\\):\\([0123456789]+\\)" - "Regexp matching :::") - -(defconst gnat-inspect-ident-file-regexp-alist - (list (concat "^" gnat-inspect-ident-file-regexp) 2 3 4) - "For compilation-error-regexp-alist, matching `gnatinspect overriding_recursive' output") - -(defconst gnat-inspect-ident-file-type-regexp - (concat gnat-inspect-ident-file-regexp " (\\(.*\\))") - "Regexp matching ::: ()") - -(defconst gnat-inspect-ident-file-scope-regexp-alist - ;; RX_Enable:C:\common\1553\gds-hardware-bus_1553-raw_read_write.adb:163:13 (write reference) scope=New_Packet_TX:C:\common\1553\gds-hardware-bus_1553-raw_read_write.adb:97:14 - - (list (concat - gnat-inspect-ident-file-regexp - " (.*) " - "scope=" - gnat-inspect-ident-file-regexp - ) - 2 3 4;; file line column - ;; 2 ;; type = error - ;; nil ;; hyperlink - ;; (list 4 'gnat-inspect-scope-secondary-error) - ) - "For compilation-error-regexp-alist, matching `gnatinspect refs' output") - -;; debugging: -;; in *compilation-gnatinspect-refs*, run -;; (progn (set-text-properties (point-min)(point-max) nil)(compilation-parse-errors (point-min)(point-max) gnat-inspect-ident-file-scope-regexp-alist)) - -(defun gnat-inspect-compilation (identifier file line col cmd comp-err) - "Run gnatinspect IDENTIFIER:FILE:LINE:COL CMD, -set compilation-mode with compilation-error-regexp-alist set to COMP-ERR." - (gnat-inspect-ensure-gpr) - - (let ((cmd-1 (format "%s %s:%s:%d:%d" cmd identifier file line col)) - (result-count 0) - file line column) - (with-current-buffer (gnat-inspect--session-buffer (gnat-inspect-cached-session)) - (compilation-mode) - (setq buffer-read-only nil) - (set (make-local-variable 'compilation-error-regexp-alist) (list comp-err)) - (gnat-inspect-session-send cmd-1 t) - ;; at EOB. gnatinspect returns one line per result - (setq result-count (- (line-number-at-pos) 1)) - (if (fboundp 'font-lock-ensure) - (font-lock-ensure) - (with-no-warnings (font-lock-fontify-buffer))) - ;; font-lock-fontify-buffer applies compilation-message text properties - ;; NOTE: Won't be needed in 24.5 any more, since compilation-next-error - ;; will apply compilation-message text properties on the fly. - ;; IMPROVEME: for some reason, next-error works, but the font - ;; colors are not right (no koolaid!) - (goto-char (point-min)) - - (cl-case result-count - (0 - (error "gnatinspect returned no results")) - (1 - ;; just go there, don't display session-buffer. We have to - ;; fetch the compilation-message while in the session-buffer. - (let* ((msg (compilation-next-error 0 nil (point-min))) - ;; FIXME: Woah! This is messing with very internal details! - (loc (compilation--message->loc msg))) - (setq file (caar (compilation--loc->file-struct loc)) - line (caar (cddr (compilation--loc->file-struct loc))) - column (1- (compilation--loc->col loc))) - )) - - ));; case, with-currrent-buffer - - ;; compilation-next-error-function assumes there is not at error - ;; at point-min; work around that by moving forward 0 errors for - ;; the first one. - (if (> result-count 1) - ;; more than one result; display session buffer - (next-error 0 t) - ;; else don't display - (ada-goto-source file line column nil)) - )) - -(defun gnat-inspect-dist (found-line line found-col col) - "Return non-nil if found-line, -col is closer to line, col than min-distance." - (+ (abs (- found-line line)) - (* (abs (- found-col col)) 250))) - -;;;;; user interface functions - -(defun gnat-inspect-refresh () - "For `ada-xref-refresh-function', using gnatinspect." - (interactive) - (gnat-inspect-session-send "refresh" t)) - -(defun gnat-inspect-other (identifier file line col) - "For `ada-xref-other-function', using gnatinspect." - (when (eq ?\" (aref identifier 0)) - ;; gnatinspect wants the quotes stripped - (setq col (+ 1 col)) - (setq identifier (substring identifier 1 (1- (length identifier)))) - ) - - (let ((cmd (format "refs %s:%s:%d:%d" identifier (file-name-nondirectory file) line col)) - (decl-loc nil) - (body-loc nil) - (search-type nil) - (min-distance (1- (expt 2 29))) - (result nil)) - - (with-current-buffer (gnat-inspect-session-send cmd t) - ;; 'gnatinspect refs' returns a list containing the declaration, - ;; the body, and all the references, in no particular order. - ;; - ;; We search the list, looking for the input location, - ;; declaration and body, then return the declaration or body as - ;; appropriate. - ;; - ;; the format of each line is name:file:line:column (type) scope=name:file:line:column - ;; 1 2 3 4 5 - ;; - ;; 'type' can be: - ;; body - ;; declaration - ;; full declaration (for a private type) - ;; implicit reference - ;; reference - ;; static call - ;; - ;; Module_Type:/home/Projects/GDS/work_stephe_2/common/1553/gds-hardware-bus_1553-wrapper.ads:171:9 (full declaration) scope=Wrapper:/home/Projects/GDS/work_stephe_2/common/1553/gds-hardware-bus_1553-wrapper.ads:49:31 - ;; - ;; itc_assert:/home/Projects/GDS/work_stephe_2/common/itc/opsim/itc_dscovr_gdsi/Gds1553/src/Gds1553.cpp:830:9 (reference) scope=Gds1553WriteSubaddress:/home/Projects/GDS/work_stephe_2/common/itc/opsim/itc_dscovr_gdsi/Gds1553/inc/Gds1553.hpp:173:24 - - (message "parsing result ...") - - (goto-char (point-min)) - - (while (not (eobp)) - (cond - ((looking-at gnat-inspect-ident-file-type-regexp) - ;; process line - (let* ((found-file (expand-file-name (match-string 2)));; converts Windows to normal - (found-line (string-to-number (match-string 3))) - (found-col (string-to-number (match-string 4))) - (found-type (match-string 5)) - (dist (gnat-inspect-dist found-line line found-col col)) - ) - - (when (string-equal found-type "declaration") - (setq decl-loc (list found-file found-line (1- found-col)))) - - (when (or - (string-equal found-type "body") - (string-equal found-type "full declaration")) - (setq body-loc (list found-file found-line (1- found-col)))) - - (when - ;; In general, we don't know where in the gnatinspect - ;; output the search item occurs, so we search for it. - ;; - ;; We use the same distance algorithm as gnatinspect - ;; to allow a fuzzy match on edited code. - (and (equal found-file file) - (< dist min-distance)) - (setq min-distance dist) - (setq search-type found-type)) - )) - - (t ;; ignore line - ;; - ;; This skips GPR_PROJECT_PATH and echoed command at start of buffer. - ;; - ;; It also skips warning lines. For example, - ;; gnatcoll-1.6w-20130902 can't handle the Auto_Text_IO - ;; language, because it doesn't use the gprconfig - ;; configuration project. That gives lines like: - ;; - ;; common_text_io.gpr:15:07: language unknown for "gds-hardware-bus_1553-time_tone.ads" - ;; - ;; There are probably other warnings that might be reported as well. - ) - ) - (forward-line 1) - ) - - (cond - ((null search-type) - (error "gnatinspect did not return other item; refresh?")) - - ((and - (string-equal search-type "declaration") - body-loc) - (setq result body-loc)) - - (decl-loc - (setq result decl-loc)) - ) - - (when (null result) - (error "gnatinspect did not return other item; refresh?")) - - (message "parsing result ... done") - result))) - -(defun gnat-inspect-all (identifier file line col) - "For `ada-xref-all-function', using gnatinspect." - ;; This will in general return a list of references, so we use - ;; `compilation-start' to run gnatinspect, so the user can navigate - ;; to each result in turn via `next-error'. - (gnat-inspect-compilation identifier file line col "refs" 'gnat-inspect-ident-file)) - -(defun gnat-inspect-parents (identifier file line col) - "For `ada-xref-parent-function', using gnatinspect." - (gnat-inspect-compilation identifier file line col "parent_types" 'gnat-inspect-ident-file)) - -(defun gnat-inspect-overriding (identifier file line col) - "For `ada-xref-overriding-function', using gnatinspect." - (gnat-inspect-compilation identifier file line col "overridden_recursive" 'gnat-inspect-ident-file)) - -(defun gnat-inspect-overridden-1 (identifier file line col) - "For `ada-xref-overridden-function', using gnatinspect." - (unless (ada-prj-get 'gpr_file) - (error "no gnat project file defined.")) - - (when (eq ?\" (aref identifier 0)) - ;; gnatinspect wants the quotes stripped - (setq col (+ 1 col)) - (setq identifier (substring identifier 1 (1- (length identifier)))) - ) - - (let ((cmd (format "overrides %s:%s:%d:%d" identifier (file-name-nondirectory file) line col)) - result) - (with-current-buffer (gnat-inspect-session-send cmd t) - - (goto-char (point-min)) - (when (looking-at gnat-inspect-ident-file-regexp) - (setq result - (list - (match-string 2) - (string-to-number (match-string 3)) - (string-to-number (match-string 4))))) - - (when (null result) - (error "gnatinspect did not return other item; refresh?")) - - (message "parsing result ... done") - result))) - -(defun gnat-inspect-overridden (other-window) - "Move to the overridden declaration of the identifier around point. -If OTHER-WINDOW (set by interactive prefix) is non-nil, show the -buffer in another window." - (interactive "P") - - (let ((target - (gnat-inspect-overridden-1 - (thing-at-point 'symbol) - (buffer-file-name) - (line-number-at-pos) - (save-excursion - (goto-char (car (bounds-of-thing-at-point 'symbol))) - (1+ (current-column))) - ))) - - (ada-goto-source (nth 0 target) - (nth 1 target) - (nth 2 target) - other-window) - )) - -(defun gnat-inspect-goto-declaration (other-window) - "Move to the declaration or body of the identifier around point. -If at the declaration, go to the body, and vice versa. If at a -reference, goto the declaration. - -If OTHER-WINDOW (set by interactive prefix) is non-nil, show the -buffer in another window." - (interactive "P") - - (let ((target - (gnat-inspect-other - (thing-at-point 'symbol) - (buffer-file-name) - (line-number-at-pos) - (save-excursion - (goto-char (car (bounds-of-thing-at-point 'symbol))) - (1+ (current-column))) - ))) - - (ada-goto-source (nth 0 target) - (nth 1 target) - (nth 2 target) - other-window) - )) - -(defvar gnat-inspect-map - (let ((map (make-sparse-keymap))) - ;; C-c C-i prefix for gnat-inspect minor mode - - (define-key map "\C-c\C-i\C-d" 'gnat-inspect-goto-declaration) - (define-key map "\C-c\C-i\C-p" 'ada-build-prompt-select-prj-file) - (define-key map "\C-c\C-i\C-q" 'gnat-inspect-refresh) - (define-key map "\C-c\C-i\C-r" 'gnat-inspect-all) - map - ) "Local keymap used for GNAT inspect minor mode.") - -(defvar gnat-inspect-menu (make-sparse-keymap "gnat-inspect")) -(easy-menu-define gnat-inspect-menu gnat-inspect-map "Menu keymap for gnat-inspect minor mode" - '("gnat-inspect" - ["Find and select project ..." ada-build-prompt-select-prj-file t] - ["Select project ..." ada-prj-select t] - ["Show current project" ada-prj-show t] - ["Next compilation error" next-error t] - ["Show secondary error" ada-show-secondary-error t] - ["Refresh cross reference cache" gnat-inspect-refresh t] - )) - -(define-minor-mode gnat-inspect - "Minor mode for navigating sources using GNAT cross reference tool. -Enable mode if ARG is positive" - :initial-value t - :lighter " gnat-inspect" ;; mode line - - ;; just enable the menu and keymap - ) - -;;;;; support for Ada mode - -(defun ada-gnat-inspect-select-prj () - (setq ada-file-name-from-ada-name 'ada-gnat-file-name-from-ada-name) - (setq ada-ada-name-from-file-name 'ada-gnat-ada-name-from-file-name) - (setq ada-make-package-body 'ada-gnat-make-package-body) - - (add-hook 'ada-syntax-propertize-hook 'gnatprep-syntax-propertize) - - ;; must be after indentation engine setup, because that resets the - ;; indent function list. - (add-hook 'ada-mode-hook 'ada-gnat-inspect-setup t) - - (setq ada-xref-refresh-function 'gnat-inspect-refresh) - (setq ada-xref-all-function 'gnat-inspect-all) - (setq ada-xref-other-function 'gnat-inspect-other) - (setq ada-xref-parent-function 'gnat-inspect-parents) - (setq ada-xref-all-function 'gnat-inspect-all) - (setq ada-xref-overriding-function 'gnat-inspect-overriding) - (setq ada-xref-overridden-function 'gnat-inspect-overridden-1) - (setq ada-show-xref-tool-buffer 'gnat-inspect-show-session-buffer) - - (add-to-list 'completion-ignored-extensions ".ali") ;; gnat library files, used for cross reference - ) - -(defun ada-gnat-inspect-deselect-prj () - (setq ada-file-name-from-ada-name nil) - (setq ada-ada-name-from-file-name nil) - (setq ada-make-package-body nil) - - (setq ada-syntax-propertize-hook (delq 'gnatprep-syntax-propertize ada-syntax-propertize-hook)) - (setq ada-mode-hook (delq 'ada-gnat-inspect-setup ada-mode-hook)) - - (setq ada-xref-other-function nil) - (setq ada-xref-parent-function nil) - (setq ada-xref-all-function nil) - (setq ada-xref-overriding-function nil) - (setq ada-xref-overridden-function nil) - (setq ada-show-xref-tool-buffer nil) - - (setq completion-ignored-extensions (delete ".ali" completion-ignored-extensions)) - ) - -(defun ada-gnat-inspect-setup () - (when (boundp 'wisi-indent-calculate-functions) - (add-to-list 'wisi-indent-calculate-functions 'gnatprep-indent)) - ) - -(defun ada-gnat-inspect () - "Set Ada mode global vars to use gnatinspect." - (add-to-list 'ada-prj-parser-alist '("gpr" . gnat-parse-gpr)) - (add-to-list 'ada-select-prj-xref-tool '(gnat_inspect . ada-gnat-inspect-select-prj)) - (add-to-list 'ada-deselect-prj-xref-tool '(gnat_inspect . ada-gnat-inspect-deselect-prj)) - - ;; no parse-*-xref - - (font-lock-add-keywords 'ada-mode - ;; gnatprep preprocessor line - (list (list "^[ \t]*\\(#.*\n\\)" '(1 font-lock-type-face t)))) - - (add-hook 'ada-gnat-fix-error-hook 'ada-gnat-fix-error) - ) - -(provide 'gnat-inspect) -(provide 'ada-xref-tool) - -(add-to-list 'compilation-error-regexp-alist-alist - (cons 'gnat-inspect-ident-file gnat-inspect-ident-file-regexp-alist)) -(add-to-list 'compilation-error-regexp-alist-alist - (cons 'gnat-inspect-ident-file-scope gnat-inspect-ident-file-scope-regexp-alist)) - -(unless (and (boundp 'ada-xref-tool) - (default-value 'ada-xref-tool)) - (setq ada-xref-tool 'gnat_inspect)) - -(ada-gnat-inspect) - -;;; end of file diff --git a/packages/ada-mode/gpr-grammar-wy.el b/packages/ada-mode/gpr-grammar-wy.el index 34c355317..1c1381ee7 100644 --- a/packages/ada-mode/gpr-grammar-wy.el +++ b/packages/ada-mode/gpr-grammar-wy.el @@ -1,6 +1,6 @@ -;;; gpr-grammar-wy.el --- Generated parser support file -*- lexical-binding:t -*- +;;; gpr-grammar-wy.el --- Generated parser support file -;; Copyright (C) 2013, 2015 Free Software Foundation, Inc. +;; Copyright (C) 2013 - 2015 Free Software Foundation, Inc. ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -27,6 +27,7 @@ ("case" . CASE) ("configuration" . CONFIGURATION) ("end" . END) + ("extends" . EXTENDS) ("external" . EXTERNAL) ("external_as_list" . EXTERNAL_AS_LIST) ("for" . FOR) @@ -37,6 +38,7 @@ ("others" . OTHERS) ("package" . PACKAGE) ("project" . PROJECT) + ("renames" . RENAMES) (")" . RIGHT_PAREN) ("standard" . STANDARD) ("type" . TYPE) @@ -73,7 +75,7 @@ (defconst gpr-grammar-wy--parse-table (wisi-compile-grammar - '((AMPERSAND COLON COLON_EQUALS COMMA DOT EQUAL_GREATER QUOTE SEMICOLON VERTICAL_BAR IDENTIFIER STRING_LITERAL ABSTRACT AGGREGATE CASE CONFIGURATION END EXTERNAL EXTERNAL_AS_LIST FOR IS LEFT_PAREN LIBRARY NULL OTHERS PACKAGE PROJECT RIGHT_PAREN STANDARD TYPE USE WHEN WITH ) + '((AMPERSAND COLON COLON_EQUALS COMMA DOT EQUAL_GREATER QUOTE SEMICOLON VERTICAL_BAR IDENTIFIER STRING_LITERAL ABSTRACT AGGREGATE CASE CONFIGURATION END EXTENDS EXTERNAL EXTERNAL_AS_LIST FOR IS LEFT_PAREN LIBRARY NULL OTHERS PACKAGE PROJECT RENAMES RIGHT_PAREN STANDARD TYPE USE WHEN WITH ) ((aggregate ((LEFT_PAREN string_list RIGHT_PAREN ) (progn @@ -85,6 +87,10 @@ (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) (wisi-containing-action 3 4))) ((FOR IDENTIFIER LEFT_PAREN STRING_LITERAL RIGHT_PAREN USE expression SEMICOLON ) + (progn + (wisi-statement-action [1 statement-start 3 open-paren 5 close-paren 6 statement-other 8 statement-end]) + (wisi-containing-action 6 7))) + ((FOR EXTERNAL LEFT_PAREN STRING_LITERAL RIGHT_PAREN USE expression SEMICOLON ) (progn (wisi-statement-action [1 statement-start 3 open-paren 5 close-paren 6 statement-other 8 statement-end]) (wisi-containing-action 6 7)))) @@ -101,9 +107,10 @@ (wisi-statement-action [1 statement-start 3 block-start 5 block-end 7 statement-end]) (wisi-containing-action 3 4)))) (case_item - ((WHEN discrete_choice_list EQUAL_GREATER declarative_items ) + ((WHEN discrete_choice_list EQUAL_GREATER declarative_items_opt ) (progn (wisi-statement-action [1 block-middle 3 block-start]) + (wisi-containing-action 1 3) (wisi-containing-action 3 4)))) (case_items (()) @@ -122,9 +129,11 @@ ((typed_string_declaration )) ((package_declaration ))) (declarative_items - (()) ((declarative_item )) ((declarative_items declarative_item ))) + (declarative_items_opt + (()) + ((declarative_items ))) (discrete_choice (()) ((STRING_LITERAL )) @@ -146,14 +155,32 @@ ((name DOT IDENTIFIER ))) (project_declaration_opt (()) - ((simple_project_declaration ))) + ((simple_project_declaration )) + ((project_extension ))) (package_declaration - ((package_spec ))) + ((package_spec )) + ((package_extension )) + ((package_renaming ))) (package_spec - ((PACKAGE identifier_opt IS simple_declarative_items END identifier_opt SEMICOLON ) + ((PACKAGE identifier_opt IS declarative_items_opt END identifier_opt SEMICOLON ) (progn (wisi-statement-action [1 statement-start 3 block-start 5 block-end 7 statement-end]) (wisi-containing-action 3 4)))) + (package_extension + ((PACKAGE identifier_opt EXTENDS name IS declarative_items_opt END identifier_opt SEMICOLON ) + (progn + (wisi-statement-action [1 statement-start 5 block-start 7 block-end 9 statement-end]) + (wisi-containing-action 5 6)))) + (package_renaming + ((PACKAGE identifier_opt RENAMES name SEMICOLON ) + (progn + (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) + (wisi-containing-action 3 4)))) + (project_extension + ((PROJECT identifier_opt EXTENDS STRING_LITERAL IS declarative_items_opt END identifier_opt SEMICOLON ) + (progn + (wisi-statement-action [1 statement-start 5 block-start 7 block-end 9 statement-end]) + (wisi-containing-action 5 6)))) (project_qualifier_opt (()) ((ABSTRACT )) @@ -175,12 +202,8 @@ ((case_statement )) ((NULL SEMICOLON ) (wisi-statement-action [1 statement-start 2 statement-end]))) - (simple_declarative_items - (()) - ((simple_declarative_item )) - ((simple_declarative_items simple_declarative_item ))) (simple_project_declaration - ((PROJECT identifier_opt IS declarative_items END identifier_opt SEMICOLON ) + ((PROJECT identifier_opt IS declarative_items_opt END identifier_opt SEMICOLON ) (progn (wisi-statement-action [1 statement-start 3 block-start 5 block-end 7 statement-end]) (wisi-containing-action 3 4)))) @@ -210,146 +233,197 @@ ((WITH string_list SEMICOLON )))) [((default . error) (ABSTRACT . (context_clause_opt . 0)) (AGGREGATE . (context_clause_opt . 0)) (CONFIGURATION . (context_clause_opt . 0)) (LIBRARY . (context_clause_opt . 0)) (STANDARD . (context_clause_opt . 0)) (PROJECT . (context_clause_opt . 0)) ($EOI . (context_clause_opt . 0)) (WITH . 7)) ((default . error) ($EOI . (project_qualifier_opt . 1)) (PROJECT . (project_qualifier_opt . 1))) - ((default . error) (LIBRARY . 34) ($EOI . (project_qualifier_opt . 3)) (PROJECT . (project_qualifier_opt . 3))) + ((default . error) (LIBRARY . 35) ($EOI . (project_qualifier_opt . 3)) (PROJECT . (project_qualifier_opt . 3))) ((default . error) ($EOI . (project_qualifier_opt . 6)) (PROJECT . (project_qualifier_opt . 6))) ((default . error) ($EOI . (project_qualifier_opt . 5)) (PROJECT . (project_qualifier_opt . 5))) - ((default . error) (IS . (identifier_opt . 0)) (IDENTIFIER . 20)) + ((default . error) (EXTENDS . (identifier_opt . 0)) (IS . (identifier_opt . 0)) (IDENTIFIER . 21)) ((default . error) ($EOI . (project_qualifier_opt . 2)) (PROJECT . (project_qualifier_opt . 2))) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) - ((default . error) ($EOI . 15)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) + ((default . error) ($EOI . 16)) ((default . error) (ABSTRACT . (context_clause_opt . 1)) (AGGREGATE . (context_clause_opt . 1)) (CONFIGURATION . (context_clause_opt . 1)) (LIBRARY . (context_clause_opt . 1)) (STANDARD . (context_clause_opt . 1)) (PROJECT . (context_clause_opt . 1)) ($EOI . (context_clause_opt . 1)) (WITH . 7)) ((default . error) (PROJECT . (project_qualifier_opt . 0)) ($EOI . (project_qualifier_opt . 0)) (ABSTRACT . 1) (STANDARD . 6) (AGGREGATE . 2) (LIBRARY . 4) (CONFIGURATION . 3)) + ((default . error) ($EOI . (project_declaration_opt . 2))) ((default . error) ($EOI . (project_declaration_opt . 1))) ((default . error) ($EOI . (context_clause . 0)) (PROJECT . (context_clause . 0)) (STANDARD . (context_clause . 0)) (LIBRARY . (context_clause . 0)) (CONFIGURATION . (context_clause . 0)) (AGGREGATE . (context_clause . 0)) (ABSTRACT . (context_clause . 0)) (WITH . (context_clause . 0))) ((default . error) ($EOI . (project_declaration_opt . 0)) (PROJECT . 5)) ((default . error) (WITH . (context_clause . 1)) (ABSTRACT . (context_clause . 1)) (AGGREGATE . (context_clause . 1)) (CONFIGURATION . (context_clause . 1)) (LIBRARY . (context_clause . 1)) (STANDARD . (context_clause . 1)) (PROJECT . (context_clause . 1)) ($EOI . (context_clause . 1))) - ((default . error) ($EOI . accept) (STRING_LITERAL . accept) (IDENTIFIER . accept) (VERTICAL_BAR . accept) (SEMICOLON . accept) (QUOTE . accept) (EQUAL_GREATER . accept) (DOT . accept) (COMMA . accept) (COLON_EQUALS . accept) (COLON . accept) (AMPERSAND . accept) (WITH . accept) (WHEN . accept) (USE . accept) (TYPE . accept) (STANDARD . accept) (RIGHT_PAREN . accept) (PROJECT . accept) (PACKAGE . accept) (OTHERS . accept) (NULL . accept) (LIBRARY . accept) (LEFT_PAREN . accept) (IS . accept) (FOR . accept) (EXTERNAL_AS_LIST . accept) (EXTERNAL . accept) (END . accept) (CONFIGURATION . accept) (CASE . accept) (AGGREGATE . accept) (ABSTRACT . accept)) - ((default . error) (LEFT_PAREN . 43)) - ((default . error) (LEFT_PAREN . 43)) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (RIGHT_PAREN . ( 41 (identifier_opt . 0))) (COMMA . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) + ((default . error) ($EOI . accept) (STRING_LITERAL . accept) (IDENTIFIER . accept) (VERTICAL_BAR . accept) (SEMICOLON . accept) (QUOTE . accept) (EQUAL_GREATER . accept) (DOT . accept) (COMMA . accept) (COLON_EQUALS . accept) (COLON . accept) (AMPERSAND . accept) (WITH . accept) (WHEN . accept) (USE . accept) (TYPE . accept) (STANDARD . accept) (RIGHT_PAREN . accept) (RENAMES . accept) (PROJECT . accept) (PACKAGE . accept) (OTHERS . accept) (NULL . accept) (LIBRARY . accept) (LEFT_PAREN . accept) (IS . accept) (FOR . accept) (EXTERNAL_AS_LIST . accept) (EXTERNAL . accept) (EXTENDS . accept) (END . accept) (CONFIGURATION . accept) (CASE . accept) (AGGREGATE . accept) (ABSTRACT . accept)) + ((default . error) (LEFT_PAREN . 45)) + ((default . error) (LEFT_PAREN . 45)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (RIGHT_PAREN . ( 43 (identifier_opt . 0))) (COMMA . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) ((default . error) (QUOTE . (attribute_prefix . 0))) - ((default . error) (RIGHT_PAREN . (identifier_opt . 1)) (COMMA . (identifier_opt . 1)) (IS . (identifier_opt . 1)) (DOT . (identifier_opt . 1)) (AMPERSAND . (identifier_opt . 1)) (SEMICOLON . (identifier_opt . 1)) (QUOTE . (identifier_opt . 1))) + ((default . error) (RIGHT_PAREN . (identifier_opt . 1)) (COMMA . (identifier_opt . 1)) (EXTENDS . (identifier_opt . 1)) (RENAMES . (identifier_opt . 1)) (IS . (identifier_opt . 1)) (DOT . (identifier_opt . 1)) (AMPERSAND . (identifier_opt . 1)) (QUOTE . (identifier_opt . 1)) (SEMICOLON . (identifier_opt . 1))) ((default . error) (RIGHT_PAREN . (string_primary . 0)) (COMMA . (string_primary . 0)) (AMPERSAND . (string_primary . 0)) (SEMICOLON . (string_primary . 0))) ((default . error) (RIGHT_PAREN . (term . 2)) (COMMA . (term . 2)) (AMPERSAND . (term . 2)) (SEMICOLON . (term . 2))) - ((default . error) (QUOTE . 40)) + ((default . error) (QUOTE . 42)) ((default . error) (RIGHT_PAREN . (string_primary . 3)) (COMMA . (string_primary . 3)) (AMPERSAND . (string_primary . 3)) (SEMICOLON . (string_primary . 3))) - ((default . error) (SEMICOLON . (string_list . 0)) (RIGHT_PAREN . (string_list . 0)) (COMMA . (string_list . 0)) (AMPERSAND . 39)) + ((default . error) (SEMICOLON . (string_list . 0)) (RIGHT_PAREN . (string_list . 0)) (COMMA . (string_list . 0)) (AMPERSAND . 41)) ((default . error) (RIGHT_PAREN . (string_primary . 2)) (COMMA . (string_primary . 2)) (AMPERSAND . (string_primary . 2)) (SEMICOLON . (string_primary . 2))) ((default . error) (COMMA . (name . 0)) (RIGHT_PAREN . (name . 0)) (IS . (name . 0)) (SEMICOLON . (name . 0)) (AMPERSAND . (name . 0)) (DOT . (name . 0)) (QUOTE . (name . 0))) - ((default . error) (RIGHT_PAREN . (string_primary . 1)) (COMMA . (string_primary . 1)) (AMPERSAND . (string_primary . 1)) (SEMICOLON . (string_primary . 1)) (DOT . 38) (QUOTE . (attribute_prefix . 1))) + ((default . error) (RIGHT_PAREN . (string_primary . 1)) (COMMA . (string_primary . 1)) (AMPERSAND . (string_primary . 1)) (SEMICOLON . (string_primary . 1)) (DOT . 40) (QUOTE . (attribute_prefix . 1))) ((default . error) (RIGHT_PAREN . (term . 0)) (COMMA . (term . 0)) (AMPERSAND . (term . 0)) (SEMICOLON . (term . 0))) ((default . error) (COMMA . (string_expression . 0)) (RIGHT_PAREN . (string_expression . 0)) (SEMICOLON . (string_expression . 0)) (AMPERSAND . (string_expression . 0))) - ((default . error) (COMMA . 36) (SEMICOLON . 37)) + ((default . error) (COMMA . 38) (SEMICOLON . 39)) ((default . error) (COMMA . (expression . 0)) (RIGHT_PAREN . (expression . 0)) (SEMICOLON . (expression . 0)) (AMPERSAND . (expression . 0))) - ((default . error) (IS . 35)) + ((default . error) (EXTENDS . 36) (IS . 37)) ((default . error) ($EOI . (project_qualifier_opt . 4)) (PROJECT . (project_qualifier_opt . 4))) - ((default . error) (END . (declarative_items . 0)) (TYPE . ( 56 (declarative_items . 0))) (IDENTIFIER . ( 57 (declarative_items . 0))) (NULL . ( 54 (declarative_items . 0))) (CASE . ( 52 (declarative_items . 0))) (FOR . ( 53 (declarative_items . 0))) (PACKAGE . ( 55 (declarative_items . 0)))) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) + ((default . error) (STRING_LITERAL . 71)) + ((default . error) (END . (declarative_items_opt . 0)) (TYPE . 58) (IDENTIFIER . 59) (NULL . 56) (CASE . 54) (FOR . 55) (PACKAGE . 57)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) ((default . error) (WITH . (with_clause . 0)) (ABSTRACT . (with_clause . 0)) (AGGREGATE . (with_clause . 0)) (CONFIGURATION . (with_clause . 0)) (LIBRARY . (with_clause . 0)) (STANDARD . (with_clause . 0)) (PROJECT . (with_clause . 0)) ($EOI . (with_clause . 0))) + ((default . error) (IDENTIFIER . 52)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) ((default . error) (IDENTIFIER . 50)) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) - ((default . error) (IDENTIFIER . 48)) ((default . error) (SEMICOLON . (term . 1)) (AMPERSAND . (term . 1)) (COMMA . (term . 1)) (RIGHT_PAREN . (term . 1))) - ((default . error) (COMMA . 36) (RIGHT_PAREN . 47)) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) + ((default . error) (COMMA . 38) (RIGHT_PAREN . 49)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) ((default . error) (AMPERSAND . (external_value . 1)) (SEMICOLON . (external_value . 1)) (RIGHT_PAREN . (external_value . 1)) (COMMA . (external_value . 1))) ((default . error) (AMPERSAND . (external_value . 0)) (SEMICOLON . (external_value . 0)) (RIGHT_PAREN . (external_value . 0)) (COMMA . (external_value . 0))) ((default . error) ($EOI . (compilation_unit . 0))) ((default . error) (COMMA . (aggregate . 0)) (RIGHT_PAREN . (aggregate . 0)) (SEMICOLON . (aggregate . 0)) (AMPERSAND . (aggregate . 0))) - ((default . error) (LEFT_PAREN . 75) (COMMA . (attribute_reference . 0)) (RIGHT_PAREN . (attribute_reference . 0)) (SEMICOLON . (attribute_reference . 0)) (AMPERSAND . (attribute_reference . 0))) + ((default . error) (LEFT_PAREN . 83) (COMMA . (attribute_reference . 0)) (RIGHT_PAREN . (attribute_reference . 0)) (SEMICOLON . (attribute_reference . 0)) (AMPERSAND . (attribute_reference . 0))) ((default . error) (SEMICOLON . (expression . 1)) (COMMA . (expression . 1)) (RIGHT_PAREN . (expression . 1)) (AMPERSAND . (expression . 1))) ((default . error) (IS . (name . 1)) (COMMA . (name . 1)) (RIGHT_PAREN . (name . 1)) (SEMICOLON . (name . 1)) (AMPERSAND . (name . 1)) (DOT . (name . 1)) (QUOTE . (name . 1))) - ((default . error) (AMPERSAND . 39) (RIGHT_PAREN . (string_list . 1)) (SEMICOLON . (string_list . 1)) (COMMA . (string_list . 1))) - ((default . error) (DOT . (identifier_opt . 0)) (IS . (identifier_opt . 0)) (IDENTIFIER . 20)) - ((default . error) (IDENTIFIER . 73)) - ((default . error) (SEMICOLON . 72)) - ((default . error) (IS . (identifier_opt . 0)) (IDENTIFIER . 20)) - ((default . error) (IDENTIFIER . 70)) - ((default . error) (COLON . 68) (COLON_EQUALS . 69)) + ((default . error) (AMPERSAND . 41) (RIGHT_PAREN . (string_list . 1)) (SEMICOLON . (string_list . 1)) (COMMA . (string_list . 1))) + ((default . error) (DOT . (identifier_opt . 0)) (IS . (identifier_opt . 0)) (IDENTIFIER . 21)) + ((default . error) (EXTERNAL . 80) (IDENTIFIER . 81)) + ((default . error) (SEMICOLON . 79)) + ((default . error) (IS . (identifier_opt . 0)) (EXTENDS . (identifier_opt . 0)) (RENAMES . (identifier_opt . 0)) (IDENTIFIER . 21)) + ((default . error) (IDENTIFIER . 77)) + ((default . error) (COLON . 75) (COLON_EQUALS . 76)) ((default . error) (WHEN . (simple_declarative_item . 2)) (END . (simple_declarative_item . 2)) (CASE . (simple_declarative_item . 2)) (FOR . (simple_declarative_item . 2)) (NULL . (simple_declarative_item . 2)) (PACKAGE . (simple_declarative_item . 2)) (TYPE . (simple_declarative_item . 2)) (IDENTIFIER . (simple_declarative_item . 2))) ((default . error) (WHEN . (simple_declarative_item . 3)) (END . (simple_declarative_item . 3)) (CASE . (simple_declarative_item . 3)) (FOR . (simple_declarative_item . 3)) (NULL . (simple_declarative_item . 3)) (PACKAGE . (simple_declarative_item . 3)) (TYPE . (simple_declarative_item . 3)) (IDENTIFIER . (simple_declarative_item . 3))) - ((default . error) (WHEN . (declarative_items . 1)) (END . (declarative_items . 1)) (CASE . (declarative_items . 1)) (FOR . (declarative_items . 1)) (NULL . (declarative_items . 1)) (PACKAGE . (declarative_items . 1)) (TYPE . (declarative_items . 1)) (IDENTIFIER . (declarative_items . 1))) - ((default . error) (END . 66) (TYPE . 56) (IDENTIFIER . 57) (NULL . 54) (CASE . 52) (FOR . 53) (PACKAGE . 55)) + ((default . error) (WHEN . (declarative_items . 0)) (END . (declarative_items . 0)) (CASE . (declarative_items . 0)) (FOR . (declarative_items . 0)) (NULL . (declarative_items . 0)) (PACKAGE . (declarative_items . 0)) (TYPE . (declarative_items . 0)) (IDENTIFIER . (declarative_items . 0))) + ((default . error) (WHEN . (declarative_items_opt . 1)) (END . (declarative_items_opt . 1)) (TYPE . 58) (IDENTIFIER . 59) (NULL . 56) (CASE . 54) (FOR . 55) (PACKAGE . 57)) + ((default . error) (END . 73)) ((default . error) (WHEN . (declarative_item . 2)) (END . (declarative_item . 2)) (IDENTIFIER . (declarative_item . 2)) (TYPE . (declarative_item . 2)) (PACKAGE . (declarative_item . 2)) (NULL . (declarative_item . 2)) (FOR . (declarative_item . 2)) (CASE . (declarative_item . 2))) ((default . error) (WHEN . (package_declaration . 0)) (END . (package_declaration . 0)) (CASE . (package_declaration . 0)) (FOR . (package_declaration . 0)) (NULL . (package_declaration . 0)) (PACKAGE . (package_declaration . 0)) (TYPE . (package_declaration . 0)) (IDENTIFIER . (package_declaration . 0))) + ((default . error) (WHEN . (package_declaration . 1)) (END . (package_declaration . 1)) (CASE . (package_declaration . 1)) (FOR . (package_declaration . 1)) (NULL . (package_declaration . 1)) (PACKAGE . (package_declaration . 1)) (TYPE . (package_declaration . 1)) (IDENTIFIER . (package_declaration . 1))) + ((default . error) (WHEN . (package_declaration . 2)) (END . (package_declaration . 2)) (CASE . (package_declaration . 2)) (FOR . (package_declaration . 2)) (NULL . (package_declaration . 2)) (PACKAGE . (package_declaration . 2)) (TYPE . (package_declaration . 2)) (IDENTIFIER . (package_declaration . 2))) ((default . error) (WHEN . (declarative_item . 0)) (END . (declarative_item . 0)) (IDENTIFIER . (declarative_item . 0)) (TYPE . (declarative_item . 0)) (PACKAGE . (declarative_item . 0)) (NULL . (declarative_item . 0)) (FOR . (declarative_item . 0)) (CASE . (declarative_item . 0))) ((default . error) (WHEN . (declarative_item . 1)) (END . (declarative_item . 1)) (IDENTIFIER . (declarative_item . 1)) (TYPE . (declarative_item . 1)) (PACKAGE . (declarative_item . 1)) (NULL . (declarative_item . 1)) (FOR . (declarative_item . 1)) (CASE . (declarative_item . 1))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 20)) - ((default . error) (WHEN . (declarative_items . 2)) (IDENTIFIER . (declarative_items . 2)) (TYPE . (declarative_items . 2)) (PACKAGE . (declarative_items . 2)) (NULL . (declarative_items . 2)) (FOR . (declarative_items . 2)) (CASE . (declarative_items . 2)) (END . (declarative_items . 2))) - ((default . error) (IDENTIFIER . 83)) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) - ((default . error) (IS . 81)) - ((default . error) (IS . 80)) + ((default . error) (IS . 72)) + ((default . error) (END . (declarative_items_opt . 0)) (TYPE . 58) (IDENTIFIER . 59) (NULL . 56) (CASE . 54) (FOR . 55) (PACKAGE . 57)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 21)) + ((default . error) (WHEN . (declarative_items . 1)) (IDENTIFIER . (declarative_items . 1)) (TYPE . (declarative_items . 1)) (PACKAGE . (declarative_items . 1)) (NULL . (declarative_items . 1)) (FOR . (declarative_items . 1)) (CASE . (declarative_items . 1)) (END . (declarative_items . 1))) + ((default . error) (IDENTIFIER . 94)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) + ((default . error) (IS . 92)) + ((default . error) (IS . 90) (EXTENDS . 89) (RENAMES . 91)) ((default . error) (WHEN . (simple_declarative_item . 4)) (IDENTIFIER . (simple_declarative_item . 4)) (TYPE . (simple_declarative_item . 4)) (PACKAGE . (simple_declarative_item . 4)) (NULL . (simple_declarative_item . 4)) (FOR . (simple_declarative_item . 4)) (CASE . (simple_declarative_item . 4)) (END . (simple_declarative_item . 4))) - ((default . error) (USE . 79) (LEFT_PAREN . 78)) - ((default . error) (DOT . 38) (IS . 77)) - ((default . error) (STRING_LITERAL . 76)) - ((default . error) (RIGHT_PAREN . 96)) - ((default . error) (END . (case_items . 0)) (WHEN . ( 93 (case_items . 0)))) - ((default . error) (STRING_LITERAL . 92)) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) - ((default . error) (END . (simple_declarative_items . 0)) (IDENTIFIER . ( 57 (simple_declarative_items . 0))) (NULL . ( 54 (simple_declarative_items . 0))) (CASE . ( 52 (simple_declarative_items . 0))) (FOR . ( 53 (simple_declarative_items . 0)))) - ((default . error) (LEFT_PAREN . 43)) - ((default . error) (AMPERSAND . 39) (SEMICOLON . 87)) - ((default . error) (COLON_EQUALS . 86)) - ((default . error) (SEMICOLON . 85)) + ((default . error) (LEFT_PAREN . 88)) + ((default . error) (USE . 87) (LEFT_PAREN . 86)) + ((default . error) (DOT . 40) (IS . 85)) + ((default . error) (STRING_LITERAL . 84)) + ((default . error) (RIGHT_PAREN . 111)) + ((default . error) (END . (case_items . 0)) (WHEN . ( 108 (case_items . 0)))) + ((default . error) (STRING_LITERAL . 107)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) + ((default . error) (STRING_LITERAL . 105)) + ((default . error) (DOT . (identifier_opt . 0)) (IS . (identifier_opt . 0)) (IDENTIFIER . 21)) + ((default . error) (END . (declarative_items_opt . 0)) (TYPE . 58) (IDENTIFIER . 59) (NULL . 56) (CASE . 54) (FOR . 55) (PACKAGE . 57)) + ((default . error) (DOT . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 21)) + ((default . error) (LEFT_PAREN . 45)) + ((default . error) (AMPERSAND . 41) (SEMICOLON . 100)) + ((default . error) (COLON_EQUALS . 99)) + ((default . error) (SEMICOLON . 98)) + ((default . error) (END . 97)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 21)) ((default . error) ($EOI . (simple_project_declaration . 0))) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) ((default . error) (WHEN . (simple_declarative_item . 0)) (IDENTIFIER . (simple_declarative_item . 0)) (TYPE . (simple_declarative_item . 0)) (PACKAGE . (simple_declarative_item . 0)) (NULL . (simple_declarative_item . 0)) (FOR . (simple_declarative_item . 0)) (CASE . (simple_declarative_item . 0)) (END . (simple_declarative_item . 0))) - ((default . error) (SEMICOLON . 107)) - ((default . error) (END . (simple_declarative_items . 1)) (CASE . (simple_declarative_items . 1)) (FOR . (simple_declarative_items . 1)) (NULL . (simple_declarative_items . 1)) (IDENTIFIER . (simple_declarative_items . 1))) - ((default . error) (END . 105) (IDENTIFIER . 57) (NULL . 54) (CASE . 52) (FOR . 53)) - ((default . error) (AMPERSAND . 39) (SEMICOLON . 104)) - ((default . error) (RIGHT_PAREN . 103)) - ((default . error) (VERTICAL_BAR . (discrete_choice . 0)) (EQUAL_GREATER . (discrete_choice . 0)) (STRING_LITERAL . 100) (OTHERS . 99)) + ((default . error) (SEMICOLON . 124)) + ((default . error) (DOT . 40) (SEMICOLON . 123)) + ((default . error) (END . 122)) + ((default . error) (DOT . 40) (IS . 121)) + ((default . error) (RIGHT_PAREN . 120)) + ((default . error) (AMPERSAND . 41) (SEMICOLON . 119)) + ((default . error) (RIGHT_PAREN . 118)) + ((default . error) (VERTICAL_BAR . (discrete_choice . 0)) (EQUAL_GREATER . (discrete_choice . 0)) (STRING_LITERAL . 115) (OTHERS . 114)) ((default . error) (END . (case_items . 1)) (WHEN . (case_items . 1))) - ((default . error) (END . 97) (WHEN . 93)) + ((default . error) (END . 112) (WHEN . 108)) ((default . error) (AMPERSAND . (attribute_reference . 1)) (SEMICOLON . (attribute_reference . 1)) (RIGHT_PAREN . (attribute_reference . 1)) (COMMA . (attribute_reference . 1))) - ((default . error) (CASE . 114)) + ((default . error) (CASE . 135)) ((default . error) (WHEN . (case_items . 2)) (END . (case_items . 2))) ((default . error) (VERTICAL_BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2))) ((default . error) (VERTICAL_BAR . (discrete_choice . 1)) (EQUAL_GREATER . (discrete_choice . 1))) ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (VERTICAL_BAR . (discrete_choice_list . 0))) - ((default . error) (VERTICAL_BAR . 113) (EQUAL_GREATER . 112)) - ((default . error) (USE . 111)) + ((default . error) (VERTICAL_BAR . 134) (EQUAL_GREATER . 133)) + ((default . error) (USE . 132)) ((default . error) (WHEN . (attribute_declaration . 0)) (END . (attribute_declaration . 0)) (IDENTIFIER . (attribute_declaration . 0)) (TYPE . (attribute_declaration . 0)) (PACKAGE . (attribute_declaration . 0)) (NULL . (attribute_declaration . 0)) (FOR . (attribute_declaration . 0)) (CASE . (attribute_declaration . 0))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 20)) - ((default . error) (IDENTIFIER . (simple_declarative_items . 2)) (NULL . (simple_declarative_items . 2)) (FOR . (simple_declarative_items . 2)) (CASE . (simple_declarative_items . 2)) (END . (simple_declarative_items . 2))) + ((default . error) (USE . 131)) + ((default . error) (END . (declarative_items_opt . 0)) (TYPE . 58) (IDENTIFIER . 59) (NULL . 56) (CASE . 54) (FOR . 55) (PACKAGE . 57)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 21)) + ((default . error) (WHEN . (package_renaming . 0)) (END . (package_renaming . 0)) (IDENTIFIER . (package_renaming . 0)) (TYPE . (package_renaming . 0)) (PACKAGE . (package_renaming . 0)) (NULL . (package_renaming . 0)) (FOR . (package_renaming . 0)) (CASE . (package_renaming . 0))) ((default . error) (WHEN . (typed_string_declaration . 0)) (END . (typed_string_declaration . 0)) (CASE . (typed_string_declaration . 0)) (FOR . (typed_string_declaration . 0)) (NULL . (typed_string_declaration . 0)) (PACKAGE . (typed_string_declaration . 0)) (TYPE . (typed_string_declaration . 0)) (IDENTIFIER . (typed_string_declaration . 0))) - ((default . error) (AMPERSAND . 39) (SEMICOLON . 109)) + ((default . error) (AMPERSAND . 41) (SEMICOLON . 128)) + ((default . error) (SEMICOLON . 127)) + ((default . error) ($EOI . (project_extension . 0))) ((default . error) (WHEN . (simple_declarative_item . 1)) (IDENTIFIER . (simple_declarative_item . 1)) (TYPE . (simple_declarative_item . 1)) (PACKAGE . (simple_declarative_item . 1)) (NULL . (simple_declarative_item . 1)) (FOR . (simple_declarative_item . 1)) (CASE . (simple_declarative_item . 1)) (END . (simple_declarative_item . 1))) - ((default . error) (SEMICOLON . 119)) - ((default . error) (LEFT_PAREN . 18) (STRING_LITERAL . 21) (EXTERNAL . 16) (EXTERNAL_AS_LIST . 17) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 20) (PROJECT . 19)) - ((default . error) (END . (declarative_items . 0)) (WHEN . (declarative_items . 0)) (TYPE . ( 56 (declarative_items . 0))) (IDENTIFIER . ( 57 (declarative_items . 0))) (NULL . ( 54 (declarative_items . 0))) (CASE . ( 52 (declarative_items . 0))) (FOR . ( 53 (declarative_items . 0))) (PACKAGE . ( 55 (declarative_items . 0)))) - ((default . error) (EQUAL_GREATER . (discrete_choice . 0)) (VERTICAL_BAR . (discrete_choice . 0)) (STRING_LITERAL . 100) (OTHERS . 99)) - ((default . error) (SEMICOLON . 115)) + ((default . error) (SEMICOLON . 142)) + ((default . error) (END . 141)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) + ((default . error) (LEFT_PAREN . 19) (STRING_LITERAL . 22) (EXTERNAL . 17) (EXTERNAL_AS_LIST . 18) (DOT . (identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 21) (PROJECT . 20)) + ((default . error) (END . (declarative_items_opt . 0)) (WHEN . (declarative_items_opt . 0)) (TYPE . 58) (IDENTIFIER . 59) (NULL . 56) (CASE . 54) (FOR . 55) (PACKAGE . 57)) + ((default . error) (EQUAL_GREATER . (discrete_choice . 0)) (VERTICAL_BAR . (discrete_choice . 0)) (STRING_LITERAL . 115) (OTHERS . 114)) + ((default . error) (SEMICOLON . 136)) ((default . error) (WHEN . (case_statement . 0)) (END . (case_statement . 0)) (IDENTIFIER . (case_statement . 0)) (TYPE . (case_statement . 0)) (PACKAGE . (case_statement . 0)) (NULL . (case_statement . 0)) (FOR . (case_statement . 0)) (CASE . (case_statement . 0))) ((default . error) (EQUAL_GREATER . (discrete_choice_list . 1)) (VERTICAL_BAR . (discrete_choice_list . 1))) - ((default . error) (END . (case_item . 0)) (WHEN . (case_item . 0)) (TYPE . 56) (IDENTIFIER . 57) (NULL . 54) (CASE . 52) (FOR . 53) (PACKAGE . 55)) - ((default . error) (AMPERSAND . 39) (SEMICOLON . 120)) + ((default . error) (END . (case_item . 0)) (WHEN . (case_item . 0))) + ((default . error) (AMPERSAND . 41) (SEMICOLON . 145)) + ((default . error) (AMPERSAND . 41) (SEMICOLON . 144)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 21)) ((default . error) (WHEN . (package_spec . 0)) (END . (package_spec . 0)) (IDENTIFIER . (package_spec . 0)) (TYPE . (package_spec . 0)) (PACKAGE . (package_spec . 0)) (NULL . (package_spec . 0)) (FOR . (package_spec . 0)) (CASE . (package_spec . 0))) - ((default . error) (WHEN . (attribute_declaration . 1)) (CASE . (attribute_declaration . 1)) (FOR . (attribute_declaration . 1)) (NULL . (attribute_declaration . 1)) (PACKAGE . (attribute_declaration . 1)) (TYPE . (attribute_declaration . 1)) (IDENTIFIER . (attribute_declaration . 1)) (END . (attribute_declaration . 1)))] - [((compilation_unit . 8)(context_clause . 9)(context_clause_opt . 10)(simple_project_declaration . 11)(with_clause . 12)) + ((default . error) (SEMICOLON . 146)) + ((default . error) (WHEN . (attribute_declaration . 2)) (CASE . (attribute_declaration . 2)) (FOR . (attribute_declaration . 2)) (NULL . (attribute_declaration . 2)) (PACKAGE . (attribute_declaration . 2)) (TYPE . (attribute_declaration . 2)) (IDENTIFIER . (attribute_declaration . 2)) (END . (attribute_declaration . 2))) + ((default . error) (WHEN . (attribute_declaration . 1)) (CASE . (attribute_declaration . 1)) (FOR . (attribute_declaration . 1)) (NULL . (attribute_declaration . 1)) (PACKAGE . (attribute_declaration . 1)) (TYPE . (attribute_declaration . 1)) (IDENTIFIER . (attribute_declaration . 1)) (END . (attribute_declaration . 1))) + ((default . error) (WHEN . (package_extension . 0)) (END . (package_extension . 0)) (IDENTIFIER . (package_extension . 0)) (TYPE . (package_extension . 0)) (PACKAGE . (package_extension . 0)) (NULL . (package_extension . 0)) (FOR . (package_extension . 0)) (CASE . (package_extension . 0)))] + [((compilation_unit . 8)(context_clause . 9)(context_clause_opt . 10)(project_extension . 11)(simple_project_declaration . 12)(with_clause . 13)) + nil + nil + nil + nil + ((identifier_opt . 34)) + nil + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 26)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(string_list . 32)(term . 33)) + nil + ((with_clause . 15)) + ((project_qualifier_opt . 14)) + nil + nil + nil + ((project_declaration_opt . 48)(project_extension . 11)(simple_project_declaration . 12)) + nil + nil + ((aggregate . 47)) + ((aggregate . 46)) + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 26)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(string_list . 44)(term . 33)) + nil + nil + nil + nil + nil + nil + nil + nil + nil + nil nil nil nil nil - ((identifier_opt . 33)) nil - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 25)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(string_list . 31)(term . 32)) nil - ((with_clause . 14)) - ((project_qualifier_opt . 13)) nil + ((attribute_declaration . 60)(case_statement . 61)(declarative_item . 62)(declarative_items . 63)(declarative_items_opt . 64)(package_declaration . 65)(package_spec . 66)(package_extension . 67)(package_renaming . 68)(simple_declarative_item . 69)(typed_string_declaration . 70)) + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 53)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(term . 33)) nil - ((project_declaration_opt . 46)(simple_project_declaration . 11)) nil + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(term . 51)) nil - ((aggregate . 45)) - ((aggregate . 44)) - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 25)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(string_list . 42)(term . 32)) nil nil + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 26)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(string_list . 44)(term . 33)) nil nil nil @@ -358,47 +432,52 @@ nil nil nil + ((identifier_opt . 28)(name . 82)) nil nil + ((identifier_opt . 78)) nil nil nil nil - ((attribute_declaration . 58)(case_statement . 59)(declarative_item . 60)(declarative_items . 61)(package_declaration . 62)(package_spec . 63)(simple_declarative_item . 64)(typed_string_declaration . 65)) - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 51)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(term . 32)) nil + ((attribute_declaration . 60)(case_statement . 61)(declarative_item . 74)(package_declaration . 65)(package_spec . 66)(package_extension . 67)(package_renaming . 68)(simple_declarative_item . 69)(typed_string_declaration . 70)) nil - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(term . 49)) nil nil nil - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 25)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(string_list . 42)(term . 32)) nil nil nil nil + ((attribute_declaration . 60)(case_statement . 61)(declarative_item . 62)(declarative_items . 63)(declarative_items_opt . 96)(package_declaration . 65)(package_spec . 66)(package_extension . 67)(package_renaming . 68)(simple_declarative_item . 69)(typed_string_declaration . 70)) + ((identifier_opt . 95)) nil nil + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 93)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(term . 33)) nil nil - ((identifier_opt . 27)(name . 74)) nil nil - ((identifier_opt . 71)) nil nil nil nil + ((case_item . 109)(case_items . 110)) nil - ((attribute_declaration . 58)(case_statement . 59)(declarative_item . 67)(package_declaration . 62)(package_spec . 63)(simple_declarative_item . 64)(typed_string_declaration . 65)) + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 106)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(term . 33)) nil + ((identifier_opt . 28)(name . 104)) + ((attribute_declaration . 60)(case_statement . 61)(declarative_item . 62)(declarative_items . 63)(declarative_items_opt . 103)(package_declaration . 65)(package_spec . 66)(package_extension . 67)(package_renaming . 68)(simple_declarative_item . 69)(typed_string_declaration . 70)) + ((identifier_opt . 28)(name . 102)) + ((aggregate . 101)) nil nil nil - ((identifier_opt . 84)) nil + ((identifier_opt . 126)) nil - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 82)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(term . 32)) + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 125)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(term . 33)) nil nil nil @@ -406,26 +485,22 @@ nil nil nil - ((case_item . 94)(case_items . 95)) nil - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 91)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(term . 32)) - ((attribute_declaration . 58)(case_statement . 59)(simple_declarative_item . 89)(simple_declarative_items . 90)) - ((aggregate . 88)) + ((discrete_choice . 116)(discrete_choice_list . 117)) nil + ((case_item . 113)) nil nil nil - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 108)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(term . 32)) nil nil nil - ((attribute_declaration . 58)(case_statement . 59)(simple_declarative_item . 106)) nil nil - ((discrete_choice . 101)(discrete_choice_list . 102)) nil - ((case_item . 98)) nil + ((attribute_declaration . 60)(case_statement . 61)(declarative_item . 62)(declarative_items . 63)(declarative_items_opt . 130)(package_declaration . 65)(package_spec . 66)(package_extension . 67)(package_renaming . 68)(simple_declarative_item . 69)(typed_string_declaration . 70)) + ((identifier_opt . 129)) nil nil nil @@ -434,19 +509,19 @@ nil nil nil - ((identifier_opt . 110)) + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 140)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(term . 33)) + ((aggregate . 23)(attribute_prefix . 24)(attribute_reference . 25)(expression . 139)(external_value . 27)(identifier_opt . 28)(name . 29)(string_expression . 30)(string_primary . 31)(term . 33)) + ((attribute_declaration . 60)(case_statement . 61)(declarative_item . 62)(declarative_items . 63)(declarative_items_opt . 138)(package_declaration . 65)(package_spec . 66)(package_extension . 67)(package_renaming . 68)(simple_declarative_item . 69)(typed_string_declaration . 70)) + ((discrete_choice . 137)) nil nil nil nil nil - ((aggregate . 22)(attribute_prefix . 23)(attribute_reference . 24)(expression . 118)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression . 29)(string_primary . 30)(term . 32)) - ((attribute_declaration . 58)(case_statement . 59)(declarative_item . 60)(declarative_items . 117)(package_declaration . 62)(package_spec . 63)(simple_declarative_item . 64)(typed_string_declaration . 65)) - ((discrete_choice . 116)) nil + ((identifier_opt . 143)) nil nil - ((attribute_declaration . 58)(case_statement . 59)(declarative_item . 67)(package_declaration . 62)(package_spec . 63)(simple_declarative_item . 64)(typed_string_declaration . 65)) nil nil nil])) diff --git a/packages/ada-mode/gpr-mode.el b/packages/ada-mode/gpr-mode.el index 8e64eb79a..4bdf5b338 100644 --- a/packages/ada-mode/gpr-mode.el +++ b/packages/ada-mode/gpr-mode.el @@ -1,4 +1,4 @@ -;;; gpr-mode.el --- Major-mode for editing GNAT project files -*- lexical-binding:t -*- +;; gpr-mode --- Major mode for editing GNAT project files -*- lexical-binding:t -*- ;; Copyright (C) 2004, 2007, 2008, 2012-2015 Free Software Foundation, Inc. @@ -46,19 +46,16 @@ (define-key map [return] 'ada-indent-newline-indent) (define-key map "\C-c`" 'ada-show-secondary-error) ;; comment-dwim is in global map on M-; - (define-key map "\C-c\C-c" 'compile) + (define-key map "\C-c\C-c" 'ada-build-make) (define-key map "\C-c\C-e" 'gpr-expand) (define-key map "\C-c\C-f" 'gpr-show-parse-error) (define-key map "\C-c\C-i" 'gpr-indent-statement) - ;; FIXME (later): implement? - ;; (define-key map "\C-c\C-n" 'ada-next-statement-keyword) - ;; (define-key map "\C-c\C-p" 'ada-prev-statement-keyword) (define-key map "\C-c\C-o" 'ff-find-other-file) (define-key map "\C-c\C-P" 'gpr-set-as-project) (define-key map "\C-c\C-t" 'ada-case-read-all-exceptions) (define-key map "\C-c\C-w" 'ada-case-adjust-at-point) (define-key map "\C-c\C-y" 'ada-case-create-exception) - (define-key map "\C-c\C-\M-y" (lambda () (ada-case-create-exception nil nil t))) + (define-key map "\C-c\C-\M-y" 'ada-case-create-partial-exception) (define-key map "\M-n" 'skeleton-next-placeholder) (define-key map "\M-p" 'skeleton-prev-placeholder) map @@ -76,6 +73,7 @@ ["Customize" (customize-group 'ada)];; we reuse the Ada indentation options ["------" nil nil] + ["Build current project" ada-build-make t] ["Find and select project ..." ada-build-prompt-select-prj-file t] ["Select project ..." ada-prj-select t] ["Parse and select current file" gpr-set-as-project t] @@ -131,11 +129,38 @@ Function is called with no arguments.") (when gpr-indent-statement (funcall gpr-indent-statement))) +(defconst gpr-casing-keywords + '( + "abstract" + "aggregate" + "case" + "configuration" + "end" + "extends" + "external" + "external_as_list" + "for" + "is" + "library" + "limited" + "null" + "others" + "package" + "project" + "renames" + "standard" + "type" + "use" + "when" + "with" + ) + "List of gpr mode keywords for auto-casing.") + (defvar gpr-font-lock-keywords (progn (list ;; - ;; keyword plus name. + ;; keyword plus name. FIXME: move to grammar action, use gpr-keywords here (see ada-font-lock-keywords). (list (concat "\\<\\(" "package\\|" @@ -148,8 +173,10 @@ Function is called with no arguments.") ;; Main keywords (list (concat "\\<" (regexp-opt - '("abstract" "aggregate" "case" "configuration" "external" "is" "library" "null" "others" - "renames" "standard" "type" "use" "when" "with") t) + '("abstract" "aggregate" "case" "configuration" "extends" + "external" "external_as_list" "is" "library" "null" + "others" "renames" "standard" "type" "use" "when" "with") + t) "\\>") '(1 font-lock-keyword-face)) ;; @@ -207,6 +234,7 @@ of the package or project point is in or just after, or nil.") (end-of-line 1) (gpr-which-function))) +(declare-function gpr-query-kill-all-sessions "gpr-query.el" nil) (defun gpr-set-as-project (&optional file) "Set FILE (default current buffer file) as Emacs project file." (interactive) @@ -231,7 +259,9 @@ of the package or project point is in or just after, or nil.") (setq mode-name "GNAT Project") (use-local-map gpr-mode-map) (set-syntax-table ada-mode-syntax-table) - (set (make-local-variable 'syntax-begin-function) nil) + (when (boundp 'syntax-begin-function) + ;; obsolete in emacs-25.1 + (set (make-local-variable 'syntax-begin-function) nil)) (set 'case-fold-search t); gpr is case insensitive; the syntax parsing requires this setting (set (make-local-variable 'comment-start) "--") (set (make-local-variable 'comment-end) "") @@ -240,6 +270,9 @@ of the package or project point is in or just after, or nil.") (set (make-local-variable 'require-final-newline) t) + (ada-case-activate-keys gpr-mode-map) + (set (make-local-variable 'ada-keywords) gpr-casing-keywords) + (set (make-local-variable 'font-lock-defaults) '(gpr-font-lock-keywords nil t diff --git a/packages/ada-mode/gpr-mode.info b/packages/ada-mode/gpr-mode.info index a001029ec..48bcae505 100644 --- a/packages/ada-mode/gpr-mode.info +++ b/packages/ada-mode/gpr-mode.info @@ -1,4 +1,4 @@ -This is gpr-mode.info, produced by makeinfo version 5.2 from +This is gpr-mode.info, produced by makeinfo version 6.0 from gpr-mode.texi. Copyright (C) 2013 Free Software Foundation, Inc. diff --git a/packages/ada-mode/gpr-query.el b/packages/ada-mode/gpr-query.el index 014d3c6fb..ccb980ece 100644 --- a/packages/ada-mode/gpr-query.el +++ b/packages/ada-mode/gpr-query.el @@ -1,4 +1,4 @@ -;;; gpr-query.el --- Minor-mode for navigating sources using gpr_query -*- lexical-binding:t -*- +;; gpr-query.el --- Minor mode for navigating sources using gpr_query -*- lexical-binding:t -*- ;; ;; gpr-query supports Ada and any gcc language that supports the ;; AdaCore -fdump-xref switch (which includes C, C++). @@ -28,6 +28,8 @@ ;; ;; M-x gpr-query +(require 'ada-mode-compat-24.2) + (require 'ada-mode) ;; for ada-prj-*, some other things (require 'gnat-core) (require 'cl-lib) @@ -63,8 +65,6 @@ (setf (gpr-query--session-process session) ;; gnatcoll-1.6 can't handle aggregate projects; M910-032 ;; gpr_query can handle some aggregate projects, but not all - ;; FIXME: need good error message on bad project file: - ;; "can't handle aggregate projects?") (start-process (concat "gpr_query " (buffer-name)) (gpr-query--session-buffer session) "gpr_query" @@ -72,10 +72,17 @@ (set-process-query-on-exit-flag (gpr-query--session-process session) nil) (gpr-query-session-wait session) - ;; check for warnings about invalid directories etc - (goto-char (point-min)) - (when (search-forward "warning:" nil t) - (error "gpr_query warnings")) + ;; Check for warnings about invalid directories etc. But some + ;; warnings are tolerable, so only abort if process actually + ;; died. + (if (process-live-p (gpr-query--session-process session)) + (progn + (goto-char (point-min)) + (when (search-forward "warning:" nil t) + (beep) + (message "gpr_query warnings"))) + + (error "gpr-query process failed to start")) ))) (defun gpr-query--make-session () @@ -125,7 +132,7 @@ (not (re-search-forward gpr-query-prompt (point-max) 1)))) (setq search-start (point));; don't search same text again (message (concat "running gpr_query ..." (make-string wait-count ?.))) - ;; FIXME: use --display-progress + ;; IMPROVEME: use --display-progress (accept-process-output process 1.0) (setq wait-count (1+ wait-count))) (if (process-live-p process) @@ -202,16 +209,20 @@ Uses 'gpr_query'. Returns new list." src-dirs) (defun gpr-query-get-prj-dirs (prj-dirs) - "Append list of source dirs in current gpr project to PRJ-DIRS. + "Append list of project dirs in current gpr project to PRJ-DIRS. Uses 'gpr_query'. Returns new list." (with-current-buffer (gpr-query--session-buffer (gpr-query-cached-session)) (gpr-query-session-send "project_path" t) (goto-char (point-min)) (while (not (looking-at gpr-query-prompt)) - (cl-pushnew (directory-file-name - (buffer-substring-no-properties (point) (point-at-eol))) - prj-dirs :test #'equal) + (cl-pushnew + (let ((dir (buffer-substring-no-properties (point) (point-at-eol)))) + (if (string= dir ".") + (directory-file-name default-directory) + dir)) + prj-dirs + :test #'equal) (forward-line 1)) ) prj-dirs) @@ -219,7 +230,7 @@ Uses 'gpr_query'. Returns new list." (defconst gpr-query-ident-file-regexp ;; C:\Projects\GDS\work_dscovr_release\common\1553\gds-mil_std_1553-utf.ads:252:25 ;; /Projects/GDS/work_dscovr_release/common/1553/gds-mil_std_1553-utf.ads:252:25 - "\\(\\(?:.:\\\|/\\)[^:]*\\):\\([0123456789]+\\):\\([0123456789]+\\)" + "\\(\\(?:.:\\\\\\|/\\)[^:]*\\):\\([0123456789]+\\):\\([0123456789]+\\)" ;; 1 2 3 "Regexp matching ::") @@ -231,10 +242,6 @@ Uses 'gpr_query'. Returns new list." (concat gpr-query-ident-file-regexp " (\\(.*\\))") "Regexp matching :: ()") -;; debugging: -;; in *compilation-gpr_query-refs*, run -;; (progn (set-text-properties (point-min)(point-max) nil)(compilation-parse-errors (point-min)(point-max) gpr-query-ident-file-regexp-alist)) - (defun gpr-query-compilation (identifier file line col cmd comp-err) "Run gpr_query IDENTIFIER:FILE:LINE:COL CMD, set compilation-mode with compilation-error-regexp-alist set to COMP-ERR." @@ -243,42 +250,55 @@ set compilation-mode with compilation-error-regexp-alist set to COMP-ERR." ;; to each result in turn via `next-error'. (let ((cmd-1 (format "%s %s:%s:%d:%d" cmd identifier file line col)) (result-count 0) - file line column) + target-file target-line target-col) (with-current-buffer (gpr-query--session-buffer (gpr-query-cached-session)) (compilation-mode) (setq buffer-read-only nil) (set (make-local-variable 'compilation-error-regexp-alist) (list comp-err)) (gpr-query-session-send cmd-1 t) - ;; point is at EOB. gpr_query returns one line per result plus prompt + ;; point is at EOB. gpr_query returns one line per result plus prompt, warnings (setq result-count (- (line-number-at-pos) 1)) - (if (fboundp 'font-lock-ensure) - (font-lock-ensure) - (with-no-warnings (font-lock-fontify-buffer))) - ;; font-lock-fontify-buffer applies compilation-message text properties - ;; FIXME: Won't be needed in 24.5 any more, since compilation-next-error - ;; will apply compilation-message text properties on the fly. - ;; IMPROVEME: for some reason, next-error works, but the font - ;; colors are not right (no koolaid!) (fixed in 24.5?) + (font-lock-ensure) + ;; pre Emacs 25, font-lock-ensure applies compilation-message + ;; text properties + ;; + ;; post Emacs 25, compilation-next-error applies + ;; compilation-message text properties on the fly via + ;; compilation--ensure-parse. But that doesn't apply face text + ;; properties. + ;; + ;; IMPROVEME: next-error works, but the font colors are not + ;; right (bad regexp?) (goto-char (point-min)) + (cond + ((looking-at "^warning: ") + (setq result-count (1- result-count)) + (forward-line 1)) + ((looking-at "^Error: entity not found") + (error (buffer-substring-no-properties (line-beginning-position) (line-end-position)))) + ) (cl-case result-count (0 (error "gpr_query returned no results")) (1 - (when (looking-at "^Error: entity not found") - (error (buffer-substring-no-properties (line-beginning-position) (line-end-position)))) - ;; just go there, don't display session-buffer. We have to - ;; fetch the compilation-message while in the session-buffer. - (let* ((msg (compilation-next-error 0 nil (point-min))) - ;; FIXME: '--' indicates internal-only; use compile-goto-error - (loc (compilation--message->loc msg))) - (setq file (caar (compilation--loc->file-struct loc)) - line (caar (cddr (compilation--loc->file-struct loc))) - column (1- (compilation--loc->col loc))) + ;; fetch the compilation-message while in the + ;; session-buffer. and call ada-goot-source outside the + ;; with-current-buffer above. + (compilation--ensure-parse (point-max)) + (let* ((msg (compilation-next-error 0)) + ;; IMPROVEME: '--' indicates internal-only. But we can't + ;; use compile-goto-error, because that displays the + ;; session-buffer. + (loc (compilation--message->loc msg))) + (setq target-file (caar (compilation--loc->file-struct loc)) + target-line (caar (cddr (compilation--loc->file-struct loc))) + target-col (1- (compilation--loc->col loc)) + ) )) (t @@ -287,18 +307,20 @@ set compilation-mode with compilation-error-regexp-alist set to COMP-ERR." ));; case, with-currrent-buffer - (if (> result-count 1) - ;; more than one result; display session buffer, goto first ref - ;; - ;; compilation-next-error-function assumes there is not an error - ;; at point-min; work around that by moving forward 0 errors for - ;; the first one. Unless the first line contains "warning: ". - (if (looking-at "^warning: ") - (next-error) - (next-error 0 t)) - - ;; just one result; go there - (ada-goto-source file line column nil)) + (if (= result-count 1) + (ada-goto-source target-file target-line target-col nil) + + ;; more than one result; display session buffer, goto first ref + ;; + ;; compilation-next-error-function assumes there is not an error + ;; at point-min; work around that by moving forward 0 errors for + ;; the first one. Unless the first line contains "warning: ". + (set-buffer next-error-last-buffer) + (goto-char (point-min)) + (if (looking-at "^warning: ") + (next-error) + (next-error 0 t)) + ) )) (defun gpr-query-dist (found-line line found-col col) @@ -373,8 +395,8 @@ buffer in another window." (define-key map "\C-c\C-i\C-p" 'ada-build-prompt-select-prj-file) (define-key map "\C-c\C-i\C-q" 'gpr-query-refresh) (define-key map "\C-c\C-i\C-r" 'gpr-query-show-references) - ;; FIXME: (define-key map "\C-c\M-d" 'gpr-query-parents) - ;; FIXME: overriding + ;; IMPROVEME: (define-key map "\C-c\M-d" 'gpr-query-parents) + ;; IMPROVEME: overriding map ) "Local keymap used for gpr query minor mode.") @@ -397,7 +419,7 @@ buffer in another window." (define-minor-mode gpr-query "Minor mode for navigating sources using GNAT cross reference tool. -Enable mode if ARG is positive" +Enable mode if ARG is positive." :initial-value t :lighter " gpr-query" ;; mode line diff --git a/packages/ada-mode/gpr-skel.el b/packages/ada-mode/gpr-skel.el index 08a8d6d10..694784523 100644 --- a/packages/ada-mode/gpr-skel.el +++ b/packages/ada-mode/gpr-skel.el @@ -1,4 +1,4 @@ -;;; gpr-skel.el --- an extension to Gpr mode for inserting statement skeletons -*- lexical-binding:t -*- +;; gpr-skel.el --- Extension to gpr-mode for inserting statement skeletons -*- lexical-binding:t -*- ;; Copyright (C) 2013-2015 Free Software Foundation, Inc. @@ -41,11 +41,14 @@ ;;;;; user variables, example skeletons intended to be overwritten +(defgroup gpr nil + "Major mode for editing GNAT project files in Emacs." + :group 'languages) + (defcustom gpr-skel-initial-string "{header}\n{project}" "String to insert in empty buffer. This could end in a token recognized by `gpr-skel-expand'." :type 'string - :group 'gpr ;FIXME: Unknown! :safe #'stringp) (define-skeleton gpr-skel-user-restricted diff --git a/packages/ada-mode/gpr-wisi.el b/packages/ada-mode/gpr-wisi.el index 67c625fd2..13c8dcd45 100644 --- a/packages/ada-mode/gpr-wisi.el +++ b/packages/ada-mode/gpr-wisi.el @@ -1,8 +1,6 @@ -;;; gpr-wisi.el --- An indentation engine for gpr mode, using the wisent LALR parser -*- lexical-binding:t -*- +;; gpr-wisi.el --- Indentation engine for gpr mode, using the wisi parser -*- lexical-binding:t -*- ;; -;; [1] GNAT user guide (info "gnat_ugn") -;; -;; Copyright (C) 2013-2015 Free Software Foundation, Inc. +;; Copyright (C) 2013 - 2015 Free Software Foundation, Inc. ;; ;; Author: Stephen Leake ;; @@ -77,7 +75,6 @@ or containing ancestor of CACHE that is at a line beginning." (block-middle (wisi-indent-start (if (eq (wisi-cache-token cache) 'WHEN) ada-indent-when 0) - ;; FIXME (later): need test of ada-indent-when in gpr cache)) (close-paren (wisi-indent-paren 0)) (open-paren nil); let after-keyword handle it diff --git a/packages/wisi/NEWS b/packages/wisi/NEWS index 17d084afb..9e8ad7738 100644 --- a/packages/wisi/NEWS +++ b/packages/wisi/NEWS @@ -7,6 +7,19 @@ Please send wisi bug reports to bug-gnu-emacs@gnu.org, with 'wisi' in the subject. If possible, use M-x report-emacs-bug. +* wisi 1.1.2 +20 Jan 2016 + +** wisi-compile no longer requires semantic. + +** wisi-parse slightly faster + +** minor bug fixes + +** wisi-extend-action now takes two args (first last) + +** wisi-face-action-1 optional arg no-override is replaced by override-no-error. + * wisi 1.1.1 10 Apr 2015 diff --git a/packages/wisi/README b/packages/wisi/README index f363c1263..098b4762e 100644 --- a/packages/wisi/README +++ b/packages/wisi/README @@ -1,4 +1,4 @@ -Emacs wisi package 1.1.1 +Emacs wisi package 1.1.2 The wisi package provides utilities for using generalized LALR parsers to do indentation and navigation. See ada-mode for an example of its diff --git a/packages/wisi/wisi-compile.el b/packages/wisi/wisi-compile.el index 463fb019a..0251133c4 100644 --- a/packages/wisi/wisi-compile.el +++ b/packages/wisi/wisi-compile.el @@ -1,6 +1,6 @@ -;;; Grammar compiler for the wisent LALR parser, integrating Wisi OpenToken output. -*- lexical-binding:t -*- +;; wisi-compile.el --- Grammar compiler for the wisi parser, integrating Wisi OpenToken output. -*- lexical-binding:t -*- ;; -;; Copyright (C) 2012, 2013, 2015 Free Software Foundation, Inc. +;; Copyright (C) 2012, 2013, 2015, 2016 Free Software Foundation, Inc. ;; ;; Author: Stephen Leake ;; @@ -41,33 +41,40 @@ ;; produces corresponding elisp source code, similar to that ;; produced by semantic-grammar-create-package. ;; -;; wisi-compile-grammar (provided here) generate the automaton -;; structure required by wisi-parse, using functions from -;; wisent/comp.el +;; wisi-compile-grammar (provided here) generates the automaton +;; structure required by wisi-parse ;; ;;;; -(require 'semantic/wisent/comp) +(defun wisi-compose-action (value symbol-obarray nonterms) + (let* ((nonterm (car value)) + (index (cdr value)) + (symbol (intern-soft (format "%s:%d" nonterm index) symbol-obarray)) + (rhs (car (nth index (cdr (assoc nonterm nonterms)))))) + (list nonterm symbol (length rhs)) + )) -(defun wisi-compose-action (value symbol-array nonterms) - (let ((symbol (intern-soft (format "%s:%d" (car value) (cdr value)) symbol-array)) - (prod (car (nth (cdr value) (cdr (assoc (car value) nonterms)))))) - (if symbol - (list (car value) symbol (length prod)) - (error "%s not in symbol-array" symbol)))) - -(defun wisi-replace-actions (action symbol-array nonterms) +(defun wisi-replace-actions (action symbol-obarray nonterms) "Replace semantic action symbol names in ACTION with list as defined in `wisi-compile-grammar'. -ACTION is the alist for one state from the grammar; NONTERMS is from the grammar. -Return the new alist." - ;; result is (nonterm index action-symbol token-count) +ACTION is the alist for one state from the grammar, with the form: + ((default . error) ITEM ... ) +ITEM is one of: +reduction (TOKEN . (NONTERM . INDEX)) where NONTERM . INDEX gives the action symbol name. +shift (TOKEN . STATE) +shift/reduce conflict (STATE (NONTERM . INDEX)) +reduce/shift conflict ((NONTERM . INDEX) (NONTERM . INDEX)) + +SYMBOL-OBARRAY contains the action symbols. +NONTERMS is from the grammar. +Return the new action alist." + ;; result is list of (nonterm index action-symbol token-count) (let (result item) (while action (setq item (pop action)) (cond ((or (memq (cdr item) '(error accept)) - (numberp (cdr item))) + (numberp (cdr item))) ;; shift (push item result)) ((listp (cdr item)) @@ -76,27 +83,20 @@ Return the new alist." ((symbolp (car value)) ;; reduction (push (cons (car item) - (wisi-compose-action value symbol-array nonterms)) + (wisi-compose-action value symbol-obarray nonterms)) result)) ((integerp (car value)) ;; shift/reduce conflict (push (cons (car item) (list (car value) - (wisi-compose-action (cadr value) symbol-array nonterms))) - result)) - - ((integerp (cadr value)) - ;; reduce/shift conflict - (push (cons (car item) - (list (wisi-compose-action (car value) symbol-array nonterms) - (cadr value))) + (wisi-compose-action (cadr value) symbol-obarray nonterms))) result)) (t ;; reduce/reduce conflict (push (cons (car item) - (list (wisi-compose-action (car value) symbol-array nonterms) - (wisi-compose-action (cadr value) symbol-array nonterms))) + (list (wisi-compose-action (car value) symbol-obarray nonterms) + (wisi-compose-action (cadr value) symbol-obarray nonterms))) result)) ))) @@ -106,49 +106,36 @@ Return the new alist." (reverse result))) -(defun wisi-semantic-action (r rcode tags rlhs) - "Define an Elisp function for semantic action at rule R. -On entry RCODE[R] contains a vector [BODY N (NTERM I)] where BODY -is the body of the semantic action, N is the number of tokens in -the production, NTERM is the nonterminal the semantic action -belongs to, and I is the index of the production and associated -semantic action in the NTERM rule. Returns the semantic action -symbol, which is interned in RCODE[0]. - -The semantic action function accepts one argument, the list of -tokens to be reduced. It returns nil; it is called for the user -side-effects only." +(defun wisi-semantic-action (form nonterm iactn symbol-obarray) + "Define an Elisp semantic action function for a production, interned in SYMBOL-OBARRAY. +FORM is the body of the semantic action. +NONTERM is the nonterminal left hand side. +IACTN is the index of the production in the NTERM rule. + +The semantic action function accepts two arguments; +- $nterm : the nonterminal +- wisi-tokens : the list of tokens to be reduced. + +It returns nil; it is called for the semantic side-effects only." ;; based on comp.el wisent-semantic-action - (let* ((actn (aref rcode r)) - (n (aref actn 1)) ; number of tokens in production - (name (apply 'format "%s:%d" (aref actn 2))) - (form (aref actn 0)) - (action-symbol (intern name (aref rcode 0)))) + (let* ((name (format "%s:%d" nonterm iactn)) + (action-symbol (intern name symbol-obarray))) (fset action-symbol - `(lambda (wisi-tokens) - (let* (($nterm ',(aref tags (aref rlhs r))) - ($1 nil));; wisent-parse-nonterminals defines a default body of $1 for empty actions - ,form - nil))) - - (list (car (aref actn 2)) action-symbol n))) + `(lambda ($nterm wisi-tokens) + ,form + nil)))) (defun wisi-compile-grammar (grammar) - ;; FIXME: This docstring is full of ambiguities making it unclear whether - ;; we're talking for example about data that includes the symbol `nonterm' as - ;; opposed to data that includes some non terminal object we denote - ;; with the meta-variable "nonterm". - ;; The convention in Elisp's docstrings is to use all-caps for metavariables - ;; (and `...' quoting as opposed to the '... quoting used below in a few - ;; spots). "Compile the LALR(1) GRAMMAR; return the automaton for wisi-parse. GRAMMAR is a list TERMINALS NONTERMS ACTIONS GOTOS, where: TERMINALS is a list of terminal token symbols. NONTERMS is a list of productions; each production is a -list (nonterm (tokens action) ...) where `action' is any lisp form. +list (nonterm (tokens semantic-action) ...) where `semantic-action' is +any lisp form. The set of (tokens semantic-action) are the right hand +sides; nonterm is the left hand side. ACTIONS is an array indexed by parser state, of alists indexed by terminal tokens. The value of each item in the alists is one of: @@ -162,7 +149,6 @@ integer - shift; gives new state '(nonterm . index) - reduce by nonterm production index. '(integer (nonterm . index)) - a shift/reduce conflict -'((nonterm . index) integer) - a reduce/shift conflict '((nonterm . index) (nonterm . index)) - a reduce/reduce conflict The first item in the alist must have the key 'default (not a @@ -173,54 +159,77 @@ GOTOS is an array indexed by parser state, of alists giving the new state after a reduce for each nonterminal legal in that state. -The automaton is an array with 3 elements: +The automaton is an array [parser-actions gotos symbol-obarray]: -parser-actions is a copy of the input ACTIONS, with reduction -actions replaced by a list (NONTERM ACTION-SYMBOL TOKEN-COUNT), -where NONTERM is a symbol from NONTERMS, and is the -non-terminal to reduce to, TOKEN-COUNT is the number of tokens in -the reduction, ACTION-SYMBOL is nil if there is no user action, -or a symbol from semantic-actions (below). +- parser-actions is a copy of the input ACTIONS, with semantic +actions replaced by a list (nonterm action-symbol token-count), +where: -gotos is a copy of GOTOS. +-- nonterm is a symbol from NONTERMS, and is the non-terminal to +reduce to -semantic-actions is an obarray containing functions that -implement the user action for each nonterminal; the function -names have the format nonterm:index." - (defvar nrules) (defvar ptable) (defvar rcode) (defvar rlhs) (defvar tags) - (defvar token-list) (defvar var-list) - (let (nrules ptable rcode rlhs tags token-list var-list) - (wisent-parse-grammar;; set global vars used by wisent-semantic-action - (cons - (nth 0 grammar);; TOKENS - (cons nil ;; ASSOCS - (nth 1 grammar));; NONTERMS - )) - - (aset rcode 0 (make-vector 13 0));; obarray for semantic actions - - ;; create semantic action functions, interned in rcode[0] - (let* ((i 1)) - (while (<= i nrules) - (wisi-semantic-action i rcode tags rlhs) - (setq i (1+ i))) - ) +-- token-count is the number of tokens in the reduction, - ;; replace semantic actions in ACTIONS with symbols from symbol-array +-- action-symbol is nil if there is no semantic action, or a +symbol interned in symbol-obarray + +- gotos is a copy of GOTOS. + +- symbol-obarray is an obarray containing functions that +implement the semantic action for each nonterminal; the function +names have the format nonterm:index." + ;; We store named symbols for semantic actions, not just lambda + ;; functions, so we have a name for debug trace. + ;; + ;; FIXME: TERMINALS is not used. Eliminating it requires decoupling + ;; from OpenToken; we'll do that in the move to FastToken. + ;; + ;; FIXME: eliminate use of semantic-lex-* in *-wy.el. Similarly + ;; requires decoupling from OpenToken + ;; + ;; FIXME: can eliminate obarray? We don't need the obarray to + ;; avoid garbage collection of the symbols; they are all referenced in the compiled grammar. + ;; But each semantic action function has to be defined (and byte-compiled?) somewhere? + ;; currently actions are _not_ byte-compiled; wisi-compile-grammar is run at load time + ;; need 'eval-when-compile' to byte-compile them? + ;; can't byte-compile obarray? + + (let ((defs (nth 1 grammar)) + (symbol-obarray (make-vector 13 0));; for parse actions + def nonterm rhs-list rule + semantic-action index) + + (while defs + (setq def (car defs) + defs (cdr defs) + nonterm (car def) + rhs-list (cdr def) + index 0) + (while rhs-list + (setq rule (car rhs-list) + rhs-list (cdr rhs-list) + semantic-action (cadr rule)) + + (when semantic-action + (wisi-semantic-action semantic-action nonterm index symbol-obarray)) + + (setq index (1+ index)) + )) + + ;; replace semantic actions in ACTIONS with symbols from symbol-obarray (let ((nactions (length (nth 2 grammar))) (actions (nth 2 grammar)) - (symbol-array (aref rcode 0)) (i 0)) (while (< i nactions) (aset actions i - (wisi-replace-actions (aref actions i) symbol-array (nth 1 grammar))) + (wisi-replace-actions (aref actions i) symbol-obarray (nth 1 grammar))) (setq i (1+ i))) (vector actions (nth 3 grammar) - symbol-array) + symbol-obarray) ))) (provide 'wisi-compile) -;;; wisi-compile.el ends here +;;;; end of file diff --git a/packages/wisi/wisi-parse.el b/packages/wisi/wisi-parse.el index 4fa300e6d..b9da937d2 100644 --- a/packages/wisi/wisi-parse.el +++ b/packages/wisi/wisi-parse.el @@ -111,6 +111,9 @@ point at which that max was spawned.") list (symbol text start . end), where `symbol' is the terminal symbol, `text' is the token string, `start . end' is the range in the buffer." + + ;; FIXME: (aref automaton 3) is the obarray storing the semantic actions; + ;; not used here (see related FIXME in wisi-compile) (let* ((actions (aref automaton 0)) (gotos (aref automaton 1)) (parser-states ;; vector of parallel parser states @@ -148,8 +151,8 @@ point at which that max was spawned.") (let ((state (aref (wisi-parser-state-stack parser-state) (wisi-parser-state-sp parser-state)))) (wisi-error-msg (concat "too many parallel parsers required in grammar state %d;" - " simplify grammar, or increase `wisi-parse-max-parallel'" - state))))) + " simplify grammar, or increase `wisi-parse-max-parallel'") + state)))) (let ((j (wisi-free-parser parser-states))) (cond @@ -381,7 +384,7 @@ nil, 'shift, or 'accept." result) ) -(defun wisi-parse-exec-action (func tokens) +(defun wisi-parse-exec-action (func nonterm tokens) "Execute action if all tokens past wisi-cache-max." ;; We don't execute actions if all tokens are before wisi-cache-max, ;; because later actions can update existing caches, and if the @@ -392,7 +395,7 @@ nil, 'shift, or 'accept." (if (< 0 (length tokens)) (if (>= (wisi-parse-max-pos tokens) wisi-cache-max) - (funcall func tokens) + (funcall func nonterm tokens) (when (> wisi-debug 1) (message "... action skipped; before wisi-cache-max %d" wisi-cache-max))) @@ -407,7 +410,7 @@ nil, 'shift, or 'accept." (when (> wisi-debug 1) (message "%s" (car pending))) (let ((func-args (pop pending))) - (wisi-parse-exec-action (car func-args) (cadr func-args))) + (wisi-parse-exec-action (nth 0 func-args) (nth 1 func-args) (cl-caddr func-args))) )) (defun wisi-parse-1 (token parser-state pendingp actions gotos) @@ -508,7 +511,7 @@ the first and last tokens of the nonterminal." "Reduce PARSER-STATE.stack, and execute or pend ACTION." (let* ((stack (wisi-parser-state-stack parser-state)); reference (sp (wisi-parser-state-sp parser-state)); copy - (token-count (or (nth 2 action) 0)) + (token-count (nth 2 action)) (nonterm (nth 0 action)) (nonterm-region (when (> token-count 0) (wisi-nonterm-bounds stack (- sp (* 2 (1- token-count)) 1) (1- sp)))) @@ -519,25 +522,29 @@ the first and last tokens of the nonterminal." (when (not new-state) (error "no goto for %s %d" nonterm post-reduce-state)) - (dotimes (i token-count) - (aset tokens (- token-count i 1) (aref stack (- sp (* 2 i) 1)))) + (when (nth 1 action) + ;; don't need wisi-tokens for a null user action + (dotimes (i token-count) + (aset tokens (- token-count i 1) (aref stack (- sp (* 2 i) 1))))) (setq sp (+ 2 (- sp (* 2 token-count)))) (aset stack (1- sp) (cons nonterm nonterm-region)) (aset stack sp new-state) (setf (wisi-parser-state-sp parser-state) sp) - (if pendingp - (if (wisi-parser-state-pending parser-state) + (when (nth 1 action) + ;; nothing to do for a null user action + (if pendingp + (if (wisi-parser-state-pending parser-state) + (setf (wisi-parser-state-pending parser-state) + (append (wisi-parser-state-pending parser-state) + (list (list (nth 1 action) nonterm tokens)))) (setf (wisi-parser-state-pending parser-state) - (append (wisi-parser-state-pending parser-state) - (list (list (nth 1 action) tokens)))) - (setf (wisi-parser-state-pending parser-state) - (list (list (nth 1 action) tokens)))) - - ;; Not pending. - (wisi-parse-exec-action (nth 1 action) tokens) - ) + (list (list (nth 1 action) nonterm tokens)))) + + ;; Not pending. + (wisi-parse-exec-action (nth 1 action) nonterm tokens) + )) )) (provide 'wisi-parse) diff --git a/packages/wisi/wisi.el b/packages/wisi/wisi.el index a748f6268..0b29b3e49 100644 --- a/packages/wisi/wisi.el +++ b/packages/wisi/wisi.el @@ -1,13 +1,13 @@ ;;; wisi.el --- Utilities for implementing an indentation/navigation engine using a generalized LALR parser -*- lexical-binding:t -*- ;; -;; Copyright (C) 2012 - 2015 Free Software Foundation, Inc. +;; Copyright (C) 2012 - 2016 Free Software Foundation, Inc. ;; ;; Author: Stephen Leake ;; Maintainer: Stephen Leake ;; Keywords: parser ;; indentation ;; navigation -;; Version: 1.1.1 +;; Version: 1.1.2 ;; package-requires: ((cl-lib "0.4") (emacs "24.2")) ;; URL: http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html ;; @@ -158,6 +158,7 @@ ;; an appropriate end-point for syntax-propertize, other than ;; point-max. So we call (syntax-propertize point-max) in wisi-setup, ;; and also call syntax-propertize in wisi-after-change. +;; FIXME: no longer needed in Emacs 25? (email from Stefan Monnier) ;; ;;;; code style ;; @@ -289,10 +290,10 @@ If at end of buffer, returns `wisent-eoi-term'." (scan-error ;; Something screwed up; we should not get here if ;; syntax-propertize works properly. - (error "wisi-forward-token: forward-sexp failed %s" err) + (signal 'wisi-parse-error (format "wisi-forward-token: forward-sexp failed %s" err)) )))) - (t ;; assuming word or symbol syntax + (t ;; assuming word or symbol syntax; includes numbers (skip-syntax-forward "w_'") (setq token-text (buffer-substring-no-properties start (point))) (setq token-id @@ -442,6 +443,12 @@ Used in before/after change functions.") (wisi-delete-cache after) ) +;; To see the effects of wisi-before-change, wisi-after-change, you need: +;; (global-font-lock-mode 0) +;; (setq jit-lock-functions nil) +;; +;; otherwise jit-lock runs and overrides them + (defun wisi-before-change (begin end) "For `before-change-functions'." ;; begin . end is range of text being deleted @@ -562,6 +569,8 @@ Used in before/after change functions.") (setq begin-state (syntax-ppss begin)) (setq end-state (syntax-ppss end)) ;; syntax-ppss has moved point to "end". + + ;; extend fontification over new text, (skip-syntax-forward "w_") (setq word-end (point)) (goto-char begin) @@ -592,7 +601,7 @@ Used in before/after change functions.") ;; no easy way to tell if there is intervening non-string (setq need-invalidate nil)) - ((or + ((and (nth 4 begin-state) (nth 4 end-state)); in comment ;; no easy way to detect intervening code @@ -644,7 +653,8 @@ If accessing cache at a marker for a token as set by `wisi-cache-tokens', POS mu (defun wisi-goto-error () "Move point to position in last error message (if any)." - (when (string-match ":\\([0-9]+\\):\\([0-9]+\\):" wisi-parse-error-msg) + (when (and wisi-parse-error-msg + (string-match ":\\([0-9]+\\):\\([0-9]+\\):" wisi-parse-error-msg)) (let ((line (string-to-number (match-string 1 wisi-parse-error-msg))) (col (string-to-number (match-string 2 wisi-parse-error-msg)))) (push-mark) @@ -679,7 +689,9 @@ If accessing cache at a marker for a token as set by `wisi-cache-tokens', POS mu (when (> wisi-debug 0) (message msg)) + ;; Don't keep retrying failed parse until text changes again. (setq wisi-parse-try nil) + (setq wisi-parse-error-msg nil) (setq wisi-end-caches nil) @@ -762,8 +774,10 @@ delete from `wisi-end-caches'." ))) (defvar wisi-tokens nil) -;; keep byte-compiler happy; `wisi-tokens' is bound in action created -;; by wisi-semantic-action +(defvar $nterm nil) +;; keep byte-compiler happy; `wisi-tokens' and `$nterm' are bound in +;; action created by wisi-semantic-action, and in module parser. +;; FIXME: $nterm should have wisi- prefix (defun wisi-statement-action (pairs) "Cache information in text properties of tokens. @@ -842,7 +856,7 @@ grammar action as: (1+ (car region)) 'wisi-cache (wisi-cache-create - :nonterm $nterm;; $nterm defined in wisi-semantic-action + :nonterm $nterm :token token :last (- (cdr region) (car region)) :class (or override-start class) @@ -856,8 +870,7 @@ grammar action as: (when first-item (setq first-item nil) (when (or override-start - ;; FIXME: why block-middle here? - (memq class '(block-middle block-start statement-start))) + (memq class '(block-start statement-start))) (setq override-start nil) (setq first-keyword-mark mark))) @@ -1009,57 +1022,50 @@ vector [number class token_id class token_id ...]: )) ))) -(defun wisi-extend-action (number) - "Extend text of cache at token NUMBER to cover all of token NUMBER. -Also override token with new token." - (let* ((token-region (aref wisi-tokens (1- number)));; wisi-tokens is let-bound in wisi-parse-reduce - (token (car token-region)) - (region (cdr token-region)) +(defun wisi-extend-action (first last) + "Extend text of cache at token FIRST to cover all tokens thru LAST." + (let* ((first-region (cdr (aref wisi-tokens (1- first))));; wisi-tokens is let-bound in wisi-parse-reduce + (last-region (cdr (aref wisi-tokens (1- last)))) cache) - (when region - (setq cache (wisi-get-cache (car region))) - (setf (wisi-cache-last cache) (- (cdr region) (car region))) - (setf (wisi-cache-token cache) token) + (when first-region + (setq cache (wisi-get-cache (car first-region))) + (setf (wisi-cache-last cache) (- (cdr last-region) (car first-region))) ) )) -(defun wisi-face-action-1 (face region &optional no-override) - "Apply FACE to REGION. If NO-OVERRIDE is non-nil, don't override existing face." +(defun wisi-face-action-1 (face region &optional override-no-error) + "Apply FACE to REGION. +If OVERRIDE-NO-ERROR is non-nil, don't report an error for overriding an existing face." (when region ;; We allow overriding a face property, because we don't want to ;; delete them in wisi-invalidate (see comments there). On the ;; other hand, it can be an error, so keep this debug - ;; code. However, note that font-lock-face properties must be - ;; removed first, or the buffer must be fresh (never parsed). + ;; code. However, to validly report errors, note that + ;; font-lock-face properties must be removed first, or the buffer + ;; must be fresh (never parsed), and wisi-debug must be > 1. ;; - ;; Grammar sets no-override when a higher-level production might - ;; override a face in a lower-level production; that's not an - ;; error. - (let (cur-face - (do-set t)) - (when (or no-override - (> wisi-debug 1)) - (setq cur-face (get-text-property (car region) 'font-lock-face)) - (if cur-face - (if no-override - (setq do-set nil) - (message "%s:%d overriding face %s with %s on '%s'" + ;; Grammar sets override-no-error when a higher-level production might + ;; override a face in a lower-level production. + (when (> wisi-debug 1) + (let ((cur-face (get-text-property (car region) 'font-lock-face))) + (when cur-face + (unless override-no-error + (message "%s:%d overriding face %s with %s on '%s'" (buffer-file-name) (line-number-at-pos (car region)) face cur-face (buffer-substring-no-properties (car region) (cdr region)))) - )) - (when do-set - (with-silent-modifications - (add-text-properties - (car region) (cdr region) - (list - 'font-lock-face face - 'fontified t)))) - ))) + ))) + (with-silent-modifications + (add-text-properties + (car region) (cdr region) + (list + 'font-lock-face face + 'fontified t))) + )) (defun wisi-face-action (pairs &optional no-override) "Cache face information in text properties of tokens. @@ -1361,14 +1367,28 @@ Return start cache." (defun wisi-comment-indent () "For `comment-indent-function'. Indent single line comment to the comment on the previous line." - ;; This should only be called by comment-indent-new-line or - ;; fill-comment-paragraph, so there will be a preceding comment line - ;; that we can trust. - (save-excursion - (forward-comment -1) - (if (looking-at comment-start) - (current-column) - (error "wisi-comment-indent called after non-comment")))) + (or + (save-excursion + (forward-comment -1) + (when (looking-at comment-start) + ;; There is a preceding comment line. + (current-column))) + + ;; Probably called from `comment-indent'; either to insert a new + ;; comment, or to indent the first line of an existing one. In + ;; either case, the comment may be after code on the same line. + (save-excursion + (let ((start-col (current-column))) + (back-to-indentation) + (if (looking-at comment-start) + ;; An existing comment alone on a line. Return nil, so + ;; `comment-indent' will call `indent-according-to-mode' + nil + + ;; A comment after code on the same line; point was at the + ;; comment start, so assume it is already correct. + start-col))) + )) (defun wisi-indent-current (offset) "Return indentation OFFSET relative to indentation of current line." @@ -1475,6 +1495,13 @@ correct. Must leave point at indentation of current line.") (wisi-invalidate-cache) (wisi-validate-cache (point-max))) +(defun wisi-lex-buffer () + (interactive) + (syntax-propertize (point-max)) + (goto-char (point-min)) + (while (not (eq wisent-eoi-term (car (wisi-forward-token))))) + ) + (defun wisi-show-cache () "Show cache at point." (interactive) -- 2.39.2