From: Stephen Leake Date: Fri, 21 Nov 2014 15:02:55 +0000 (-0600) Subject: release ada-mode 5.1.7, wisi 1.1.0; minor format changes in ada-ref-man (take 2) X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/b2e9186ca29c6f9ffb5d2e511b25b65e00e30c7d release ada-mode 5.1.7, wisi 1.1.0; minor format changes in ada-ref-man (take 2) --- diff --git a/packages/ada-mode/NEWS b/packages/ada-mode/NEWS index cc457d980..581677a05 100755 --- a/packages/ada-mode/NEWS +++ b/packages/ada-mode/NEWS @@ -7,7 +7,35 @@ 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.7 +18 Nov 2014 + +** add ada-find-file that prompts for a file from the current project, + with completion. + +** fix bug that prevented + Y : Boolean := Boolean'(if True then False); + +** add ada-create-select-default-prj, to simplify working with small + projects + +** Handle deleting whitespace between words, inserting whitespace in + the middle of a word properly. + +** Change ada-case-adjust to capitalize words in comments and strings + by default; C-u adjusts case as if code. + +** allow 'raise' in expressions for GNAT GPL 2014 aspects + +** move all except keyword face highighting to grammar; much more + accurate, easier to maintain, simpler, faster. + +** delete gnatinspect support; gpr_query is better + +** misc bug fixes + * Ada mode 5.1.6 +28 Sep 2014 ** improve syntax highlighting of names after 'of', 'new', 'renames' diff --git a/packages/ada-mode/README b/packages/ada-mode/README index 66c4f345c..af4f89e23 100644 --- a/packages/ada-mode/README +++ b/packages/ada-mode/README @@ -1,4 +1,4 @@ -Emacs Ada mode version 5.1.6 +Emacs Ada mode version 5.1.7 Ada mode requires Emacs 24.2 or greater @@ -34,7 +34,7 @@ matching extension (default *.ads, *.adb). By default ada-mode uses gnat find for cross-reference functions. -There is experimental support for two alternatives: gnat_inspect and -gpr_query. See ada-mode.texi section Installation for more. +There is support for an alternative: gpr_query. See ada-mode.texi +section Installation for more. (end of file) diff --git a/packages/ada-mode/ada-build.el b/packages/ada-mode/ada-build.el index 1cc935f7d..6166836e8 100644 --- a/packages/ada-mode/ada-build.el +++ b/packages/ada-mode/ada-build.el @@ -199,7 +199,7 @@ Returns non-nil if a file is selected, nil otherwise." ;; return a directory. (or (file-accessible-directory-p name) (member (file-name-extension name) ext))))) - (err ;FIXME: Shouldn't this be `error'? + (error (setq filename nil)) ) diff --git a/packages/ada-mode/ada-gnat-compile.el b/packages/ada-mode/ada-gnat-compile.el index 98f658027..510bef1ee 100644 --- a/packages/ada-mode/ada-gnat-compile.el +++ b/packages/ada-mode/ada-gnat-compile.el @@ -231,11 +231,12 @@ Prompt user if more than one." )) )));; unless while let - (setq unit-name (cond - ((= 0 (length choices)) nil) - ((= 1 (length choices)) (car choices)) - (t ;; multiple choices - (completing-read "package name: " choices)))) + (setq unit-name + (cond + ((= 0 (length choices)) nil) + ((= 1 (length choices)) (car choices)) + (t ;; multiple choices + (completing-read "package name: " choices)))) (when unit-name (pop-to-buffer source-buffer) diff --git a/packages/ada-mode/ada-gnat-xref.el b/packages/ada-mode/ada-gnat-xref.el index 0aefe1e37..76d7f192b 100644 --- a/packages/ada-mode/ada-gnat-xref.el +++ b/packages/ada-mode/ada-gnat-xref.el @@ -1,8 +1,8 @@ ;; Ada mode cross-reference functionality provided by the 'gnat xref' ;; tool. Includes related functions, such as gnatprep support. ;; -;; These tools are all Ada-specific; see gpr-query or gnat-inspect for -;; multi-language GNAT cross-reference tools. +;; These tools are all Ada-specific; see gpr-query for multi-language +;; GNAT cross-reference tools. ;; ;; GNAT is provided by AdaCore; see http://libre.adacore.com/ ;; @@ -227,7 +227,7 @@ (font-lock-add-keywords 'ada-mode ;; gnatprep preprocessor line - (list (list "^[ \t]*\\(#.*\n\\)" '(1 font-lock-type-face t)))) + (list (list "^[ \t]*\\(#.*\n\\)" '(1 font-lock-preprocessor-face t)))) (add-hook 'ada-gnat-fix-error-hook 'ada-gnat-fix-error)) diff --git a/packages/ada-mode/ada-grammar-wy.el b/packages/ada-mode/ada-grammar-wy.el index a34917987..c3be4cede 100644 --- a/packages/ada-mode/ada-grammar-wy.el +++ b/packages/ada-mode/ada-grammar-wy.el @@ -130,6 +130,9 @@ (STAR_STAR . "**") (TICK . "'") ) + ("number" + (NUMERIC_LITERAL . ada-wisi-number-p) + ) ("symbol" (IDENTIFIER) ) @@ -145,7 +148,7 @@ (defconst ada-grammar-wy--parse-table (wisi-compile-grammar - '((AMPERSAND BAR BOX COLON COLON_EQUAL COMMA DOT DOT_DOT EQUAL EQUAL_GREATER GREATER GREATER_EQUAL GREATER_GREATER LESS LESS_EQUAL LESS_LESS MINUS PLUS SEMICOLON SLASH SLASH_EQUAL STAR STAR_STAR TICK IDENTIFIER STRING_LITERAL CHARACTER_LITERAL ABS ACCEPT ABORT ABSTRACT ACCESS ALIASED ALL AND ARRAY AT BEGIN BODY CASE CONSTANT DECLARE DELAY DELTA DIGITS DO ELSE ELSIF END ENTRY EXCEPTION EXIT FOR FUNCTION GENERIC GOTO IF IN INTERFACE IS LEFT_PAREN LIMITED LOOP MOD NEW NOT NULL OF OR OTHERS OUT OVERRIDING PACKAGE PRAGMA PRIVATE PROCEDURE PROTECTED RAISE RANGE RECORD REM RENAMES REQUEUE RETURN REVERSE RIGHT_PAREN SEPARATE SELECT SOME SUBTYPE SYNCHRONIZED TAGGED TASK TERMINATE THEN TYPE UNTIL USE WHEN WHILE WITH XOR ) + '((AMPERSAND BAR BOX COLON COLON_EQUAL COMMA DOT DOT_DOT EQUAL EQUAL_GREATER GREATER GREATER_EQUAL GREATER_GREATER LESS LESS_EQUAL LESS_LESS MINUS PLUS SEMICOLON SLASH SLASH_EQUAL STAR STAR_STAR TICK NUMERIC_LITERAL IDENTIFIER STRING_LITERAL CHARACTER_LITERAL ABS ACCEPT ABORT ABSTRACT ACCESS ALIASED ALL AND ARRAY AT BEGIN BODY CASE CONSTANT DECLARE DELAY DELTA DIGITS DO ELSE ELSIF END ENTRY EXCEPTION EXIT FOR FUNCTION GENERIC GOTO IF IN INTERFACE IS LEFT_PAREN LIMITED LOOP MOD NEW NOT NULL OF OR OTHERS OUT OVERRIDING PACKAGE PRAGMA PRIVATE PROCEDURE PROTECTED RAISE RANGE RECORD REM RENAMES REQUEUE RETURN REVERSE RIGHT_PAREN SEPARATE SELECT SOME SUBTYPE SYNCHRONIZED TAGGED TASK TERMINATE THEN TYPE UNTIL USE WHEN WHILE WITH XOR ) ((abstract_limited_synchronized_opt (()) ((ABSTRACT LIMITED )) @@ -167,40 +170,38 @@ ((LIMITED ))) (abstract_subprogram_declaration ((overriding_indicator_opt subprogram_specification IS ABSTRACT aspect_specification_opt SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-other 6 'statement-end))) + (wisi-statement-action [1 statement-start 2 statement-other 6 statement-end]))) (accept_statement ((ACCEPT IDENTIFIER actual_parameter_part_opt parameter_profile_opt DO handled_sequence_of_statements END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 2 'name-paren 5 'block-middle 7 'block-end 9 'statement-end) + (wisi-statement-action [1 block-start 2 name-paren 5 block-middle 7 block-end 9 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 2 4) (wisi-containing-action 5 6) - (wisi-motion-action 1 5 '(6 block-middle EXCEPTION block-middle WHEN)))) + (wisi-motion-action [1 5 [6 block-middle EXCEPTION block-middle WHEN]]) + (wisi-face-action [2 font-lock-function-name-face 8 font-lock-function-name-face]))) ((ACCEPT IDENTIFIER actual_parameter_part_opt parameter_profile_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name-paren 5 'statement-end) + (wisi-statement-action [1 statement-start 2 name-paren 5 statement-end]) (wisi-containing-action 2 3) - (wisi-containing-action 2 4)))) + (wisi-containing-action 2 4) + (wisi-face-action [2 font-lock-function-name-face])))) (access_definition ((null_exclusion_opt ACCESS general_access_modifier_opt name ) - (progn - (wisi-statement-action 2 'keyword) - (wisi-face-action 2 'font-lock-keyword-face 4 'font-lock-type-face))) + (wisi-face-action [4 font-lock-type-face])) ((null_exclusion_opt ACCESS protected_opt PROCEDURE parameter_profile_opt ) (progn - (wisi-statement-action 2 'keyword 4 'name-paren) - (wisi-containing-action 4 5) - (wisi-face-action 2 'font-lock-keyword-face))) + (wisi-statement-action [4 name-paren]) + (wisi-containing-action 4 5))) ((null_exclusion_opt ACCESS protected_opt FUNCTION parameter_and_result_profile ) (progn - (wisi-statement-action 2 'keyword 4 'name-paren) + (wisi-statement-action [4 name-paren]) (wisi-containing-action 4 5) - (wisi-motion-action 4 '(5 return-1 RETURN return-2 RETURN)) - (wisi-face-action 2 'font-lock-keyword-face)))) + (wisi-motion-action [4 [5 return-1 RETURN return-2 RETURN]])))) (actual_parameter_part ((LEFT_PAREN association_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (actual_parameter_part_opt (()) @@ -208,21 +209,29 @@ (aggregate ((LEFT_PAREN association_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2))) ((LEFT_PAREN expression WITH association_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'statement-other 5 'close-paren) + (wisi-statement-action [1 open-paren 3 statement-other 5 close-paren]) (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 ) + (progn + (wisi-statement-action [1 open-paren 3 close-paren]) + (wisi-containing-action 1 2))) ((LEFT_PAREN expression WITH NULL RECORD RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'statement-other 6 'close-paren) + (wisi-statement-action [1 open-paren 3 statement-other 6 close-paren]) (wisi-containing-action 1 2) (wisi-containing-action 1 3))) ((LEFT_PAREN NULL RECORD RIGHT_PAREN ) - (wisi-statement-action 1 'open-paren 4 'close-paren))) + (wisi-statement-action [1 open-paren 4 close-paren]))) (aliased_opt (()) ((ALIASED ))) @@ -232,20 +241,18 @@ (array_type_definition ((ARRAY LEFT_PAREN index_subtype_definition_list RIGHT_PAREN OF component_definition ) (progn - (wisi-statement-action 1 'keyword 2 'open-paren 4 'close-paren 5 'statement-other) + (wisi-statement-action [2 open-paren 4 close-paren 5 statement-other]) (wisi-containing-action 2 3) - (wisi-containing-action 5 6) - (wisi-face-action 1 'font-lock-keyword-face))) + (wisi-containing-action 5 6))) ((ARRAY LEFT_PAREN discrete_subtype_definition_list RIGHT_PAREN OF component_definition ) (progn - (wisi-statement-action 1 'keyword 2 'open-paren 4 'close-paren 5 'statement-other) + (wisi-statement-action [2 open-paren 4 close-paren 5 statement-other]) (wisi-containing-action 2 3) - (wisi-containing-action 5 6) - (wisi-face-action 1 'font-lock-keyword-face)))) + (wisi-containing-action 5 6)))) (aspect_clause ((FOR attribute_reference USE expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-other 5 'statement-end) + (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) (wisi-containing-action 3 4))) ((enumeration_representation_clause )) ((record_representation_clause )) @@ -254,23 +261,23 @@ (()) ((WITH association_list ) (progn - (wisi-statement-action 1 'statement-other) + (wisi-statement-action [1 statement-other]) (wisi-containing-action 1 2)))) (assignment_statement ((name COLON_EQUAL expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 4 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 4 statement-end]) (wisi-containing-action 2 3)))) (association_opt (()) ((CHARACTER_LITERAL EQUAL_GREATER expression ) (progn - (wisi-statement-action 2 'statement-other) + (wisi-statement-action [2 statement-other]) (wisi-containing-action 2 3))) ((CHARACTER_LITERAL EQUAL_GREATER BOX )) ((discrete_choice_list EQUAL_GREATER expression ) (progn - (wisi-statement-action 2 'statement-other) + (wisi-statement-action [2 statement-other]) (wisi-containing-action 2 3))) ((discrete_choice_list EQUAL_GREATER BOX )) ((expression_opt ))) @@ -278,18 +285,18 @@ ((association_opt )) ((association_list COMMA association_opt ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (asynchronous_select ((SELECT triggering_alternative THEN ABORT sequence_of_statements_opt END SELECT SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-middle 4 'statement-other 6 'block-end 8 'statement-end) + (wisi-statement-action [1 block-start 3 block-middle 4 statement-other 6 block-end 8 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 5)))) (at_clause ((FOR direct_name USE AT expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-other 6 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-other 6 statement-end]) (wisi-containing-action 4 5)))) (attribute_reference ((name TICK attribute_designator ))) @@ -306,15 +313,15 @@ (block_statement ((DECLARE declarative_part_opt BEGIN handled_sequence_of_statements END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-middle 5 'block-end 7 'statement-end) + (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) - (wisi-motion-action 1 3 '(4 block-middle EXCEPTION block-middle WHEN) 5))) + (wisi-motion-action [1 3 [4 block-middle EXCEPTION block-middle WHEN] 5]))) ((BEGIN handled_sequence_of_statements END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-end 5 'statement-end) + (wisi-statement-action [1 block-start 3 block-end 5 statement-end]) (wisi-containing-action 1 2) - (wisi-motion-action 1 '(2 block-middle EXCEPTION block-middle WHEN) 3)))) + (wisi-motion-action [1 [2 block-middle EXCEPTION block-middle WHEN] 3])))) (body ((proper_body )) ((body_stub ))) @@ -326,31 +333,31 @@ (case_expression ((CASE expression IS case_expression_alternative_list ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle) + (wisi-statement-action [1 statement-start 3 block-middle]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) (case_expression_alternative ((WHEN discrete_choice_list EQUAL_GREATER expression ) (progn - (wisi-statement-action 1 'block-middle 3 'statement-other) + (wisi-statement-action [1 block-middle 3 statement-other]) (wisi-containing-action 3 4)))) (case_expression_alternative_list ((case_expression_alternative )) ((case_expression_alternative_list COMMA case_expression_alternative ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (case_statement ((CASE expression_opt IS case_statement_alternative_list END CASE SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-middle 5 'block-end 7 'statement-end) + (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) - (wisi-motion-action 1 '(4 block-middle WHEN) 5)))) + (wisi-motion-action [1 [4 block-middle WHEN] 5])))) (case_statement_alternative ((WHEN discrete_choice_list EQUAL_GREATER sequence_of_statements_opt ) (progn - (wisi-statement-action 1 'block-middle 3 'statement-other) + (wisi-statement-action [1 block-middle 3 statement-other]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) (case_statement_alternative_list @@ -391,7 +398,7 @@ (component_clause ((IDENTIFIER AT simple_expression RANGE simple_expression DOT_DOT simple_expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 4 'statement-other 6 'statement-other 8 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 4 statement-other 6 statement-other 8 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 4 5) (wisi-containing-action 6 7)))) @@ -401,13 +408,13 @@ (component_declaration ((identifier_list COLON component_definition COLON_EQUAL expression aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 4 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 4 statement-other 7 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 4 5) (wisi-containing-action 4 6))) ((identifier_list COLON component_definition aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 5 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 5 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 2 4)))) (component_definition @@ -424,7 +431,7 @@ ((component_list variant_part )) ((variant_part )) ((NULL SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end))) + (wisi-statement-action [1 statement-start 2 statement-end]))) (component_list_opt (()) ((component_list ))) @@ -439,15 +446,12 @@ (conditional_entry_call ((SELECT entry_call_alternative ELSE sequence_of_statements_opt END SELECT SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-middle 5 'block-end 7 'statement-end) + (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)))) (constant_opt (()) - ((CONSTANT ) - (progn - (wisi-statement-action 1 'keyword) - (wisi-face-action 1 'font-lock-keyword-face)))) + ((CONSTANT ))) (constraint ((RANGE range )) ((index_constraint ))) @@ -470,7 +474,7 @@ ((null_procedure_declaration )) ((identifier_list COLON CONSTANT COLON_EQUAL expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 6 'statement-end) + (wisi-statement-action [1 statement-start 6 statement-end]) (wisi-containing-action 1 5))) ((object_declaration )) ((package_declaration )) @@ -491,19 +495,19 @@ (delay_statement ((DELAY UNTIL expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-end]) (wisi-containing-action 1 3))) ((DELAY expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-end) + (wisi-statement-action [1 statement-start 3 statement-end]) (wisi-containing-action 1 2)))) (derived_type_definition ((abstract_limited_opt NEW name and_interface_list_opt WITH record_definition ) (progn - (wisi-statement-action 5 'statement-other) - (wisi-face-action 3 'font-lock-type-face))) + (wisi-statement-action [5 statement-other]) + (wisi-face-action [3 font-lock-type-face]))) ((abstract_limited_opt NEW name constraint_opt ) - (wisi-face-action 3 'font-lock-type-face))) + (wisi-face-action [3 font-lock-type-face]))) (direct_name ((IDENTIFIER )) ((STRING_LITERAL ))) @@ -526,31 +530,31 @@ ((discrete_subtype_definition )) ((discrete_subtype_definition_list COMMA discrete_subtype_definition ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (discriminant_part_opt (()) ((LEFT_PAREN BOX RIGHT_PAREN )) ((LEFT_PAREN discriminant_specification_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (discriminant_specification_opt (()) - ((identifier_list COLON null_exclusion_opt_name COLON_EQUAL expression )) - ((identifier_list COLON null_exclusion_opt_name )) + ((identifier_list COLON null_exclusion_opt_name_type COLON_EQUAL expression )) + ((identifier_list COLON null_exclusion_opt_name_type )) ((identifier_list COLON access_definition COLON_EQUAL expression )) ((identifier_list COLON access_definition ))) (discriminant_specification_list ((discriminant_specification_opt )) ((discriminant_specification_list SEMICOLON discriminant_specification_opt ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (elsif_expression_item ((ELSIF expression THEN expression ) (progn - (wisi-statement-action 1 'statement-other 3 'block-middle) + (wisi-statement-action [1 statement-other 3 block-middle]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) (elsif_expression_list @@ -559,7 +563,7 @@ (elsif_statement_item ((ELSIF expression_opt THEN sequence_of_statements_opt ) (progn - (wisi-statement-action 1 'statement-other 3 'block-middle) + (wisi-statement-action [1 statement-other 3 block-middle]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) (elsif_statement_list @@ -568,17 +572,18 @@ (entry_body ((ENTRY IDENTIFIER entry_body_formal_part WHEN expression_opt IS declarative_part_opt BEGIN handled_sequence_of_statements END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 4' statement-other 6 'block-middle 8 'block-middle 10 'block-end - 12 'statement-end) + (wisi-statement-action [1 block-start 4 statement-other 6 block-middle 8 block-middle 10 block-end + 12 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 4 5) (wisi-containing-action 6 7) (wisi-containing-action 8 9) - (wisi-motion-action 1 4 6 8 10)))) + (wisi-motion-action [1 4 6 8 10]) + (wisi-face-action [2 font-lock-function-name-face 11 font-lock-function-name-face ])))) (entry_body_formal_part ((LEFT_PAREN FOR IDENTIFIER IN discrete_subtype_definition RIGHT_PAREN parameter_profile_opt ) (progn - (wisi-statement-action 1 'open-paren 6 'close-paren) + (wisi-statement-action [1 open-paren 6 close-paren]) (wisi-containing-action 1 4))) ((parameter_profile_opt ))) (entry_call_alternative @@ -587,16 +592,18 @@ (entry_declaration ((overriding_indicator_opt ENTRY IDENTIFIER LEFT_PAREN discrete_subtype_definition RIGHT_PAREN parameter_profile_opt aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 4 'open-paren 6 'close-paren 8 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 4 open-paren 6 close-paren 8 statement-end]) (wisi-containing-action 2 4) (wisi-containing-action 4 5) (wisi-containing-action 2 6) - (wisi-containing-action 2 7))) + (wisi-containing-action 2 7) + (wisi-face-action [3 font-lock-function-name-face]))) ((overriding_indicator_opt ENTRY IDENTIFIER parameter_profile_opt aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 6 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 6 statement-end]) (wisi-containing-action 2 4) - (wisi-containing-action 2 5)))) + (wisi-containing-action 2 5) + (wisi-face-action [3 font-lock-function-name-face])))) (enumeration_literal ((IDENTIFIER )) ((CHARACTER_LITERAL ))) @@ -604,17 +611,17 @@ ((enumeration_literal )) ((enumeration_literal_list COMMA enumeration_literal ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (enumeration_representation_clause ((FOR name USE aggregate SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-other 5 'statement-end) + (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) (wisi-containing-action 3 4)))) (enumeration_type_definition ((LEFT_PAREN enumeration_literal_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (exception_choice ((name )) @@ -624,16 +631,16 @@ ((exception_choice_list BAR exception_choice ))) (exception_declaration ((identifier_list COLON EXCEPTION SEMICOLON ) - (wisi-statement-action 1 'statement-start 4 'statement-end))) + (wisi-statement-action [1 statement-start 4 statement-end]))) (exception_handler ((WHEN IDENTIFIER COLON exception_choice_list EQUAL_GREATER sequence_of_statements_opt ) (progn - (wisi-statement-action 1 'block-middle 5 'statement-other) + (wisi-statement-action [1 block-middle 5 statement-other]) (wisi-containing-action 1 4) (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-statement-action [1 block-middle 3 statement-other]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) (exception_handler_list @@ -645,10 +652,10 @@ (exit_statement ((EXIT identifier_opt WHEN expression_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-other 5 'statement-end) + (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) (wisi-containing-action 3 4))) ((EXIT identifier_opt SEMICOLON ) - (wisi-statement-action 1 'statement-start 3 'statement-end))) + (wisi-statement-action [1 statement-start 3 statement-end]))) (expression ((relation )) ((relation_and_list )) @@ -662,7 +669,7 @@ (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-statement-action [1 statement-start 2 statement-other 6 statement-end]) (wisi-containing-action 2 4) (wisi-containing-action 2 5)))) (extended_return_object_declaration @@ -674,11 +681,12 @@ (extended_return_statement ((RETURN extended_return_object_declaration_opt DO handled_sequence_of_statements END RETURN SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-middle 5 'block-end 7 'statement-end) + (wisi-statement-action [1 block-start 3 block-middle 5 block-end 7 statement-end]) (wisi-containing-action 3 4) - (wisi-motion-action 1 3 5))) + (wisi-motion-action [1 3 5]))) ((RETURN extended_return_object_declaration SEMICOLON ) - (wisi-statement-action 1 'statement-start 3 'statement-end))) + (progn + (wisi-statement-action [1 statement-start 3 statement-end])))) (factor ((primary STAR_STAR primary )) ((primary )) @@ -687,65 +695,70 @@ (formal_object_declaration ((identifier_list COLON mode_opt null_exclusion_opt name COLON_EQUAL expression aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 6 'statement-other 9 'statement-end) + (wisi-statement-action [1 statement-start 6 statement-other 9 statement-end]) (wisi-containing-action 6 7) - (wisi-containing-action 6 8))) + (wisi-containing-action 6 8) + (wisi-face-action [5 font-lock-type-face]))) ((identifier_list COLON mode_opt null_exclusion_opt name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 7 'statement-end) - (wisi-containing-action 5 6))) + (wisi-statement-action [1 statement-start 7 statement-end]) + (wisi-containing-action 5 6) + (wisi-face-action [5 font-lock-type-face]))) ((identifier_list COLON mode_opt access_definition COLON_EQUAL expression aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 5 'statement-other 8 'statement-end) + (wisi-statement-action [1 statement-start 5 statement-other 8 statement-end]) (wisi-containing-action 5 6) (wisi-containing-action 5 7))) ((identifier_list COLON mode_opt access_definition aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 6 'statement-end) + (wisi-statement-action [1 statement-start 6 statement-end]) (wisi-containing-action 4 5)))) (formal_part ((LEFT_PAREN parameter_specification_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (formal_subprogram_declaration ((WITH subprogram_specification IS subprogram_default aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 6 'statement-end) + (wisi-statement-action [1 statement-start 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 5))) ((WITH subprogram_specification aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3))) ((WITH subprogram_specification IS ABSTRACT subprogram_default aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 7 'statement-end) + (wisi-statement-action [1 statement-start 7 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 6))) ((WITH subprogram_specification IS ABSTRACT aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 6 'statement-end) + (wisi-statement-action [1 statement-start 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 5)))) (formal_type_declaration ((TYPE IDENTIFIER discriminant_part_opt IS formal_type_definition aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-other 7 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 4 5) - (wisi-containing-action 4 6))) + (wisi-containing-action 4 6) + (wisi-face-action [2 font-lock-type-face]))) ((TYPE IDENTIFIER discriminant_part_opt IS TAGGED aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 7 'statement-end) + (wisi-statement-action [1 statement-start 7 statement-end]) (wisi-containing-action 1 3) - (wisi-containing-action 4 6))) + (wisi-containing-action 4 6) + (wisi-face-action [2 font-lock-type-face]))) ((TYPE IDENTIFIER discriminant_part_opt aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 5 'statement-end) + (wisi-statement-action [1 statement-start 5 statement-end]) (wisi-containing-action 1 3) - (wisi-containing-action 2 6)))) + (wisi-containing-action 2 4) + (wisi-face-action [2 font-lock-type-face])))) (formal_type_definition ((abstract_tagged_limited_opt PRIVATE )) ((formal_derived_type_definition )) @@ -760,37 +773,39 @@ ((interface_type_definition ))) (formal_derived_type_definition ((abstract_limited_synchronized_opt NEW name and_interface_list_opt WITH PRIVATE ) - (wisi-face-action 3 'font-lock-type-face)) + (wisi-face-action [3 font-lock-type-face])) ((abstract_limited_synchronized_opt NEW name and_interface_list_opt ) - (wisi-face-action 3 'font-lock-type-face))) + (wisi-face-action [3 font-lock-type-face]))) (formal_package_declaration ((WITH PACKAGE name IS NEW name formal_package_actual_part aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 5 'statement-other 6 'name 7 'statement-other 8 'statement-other 9 'statement-end) + (wisi-statement-action [1 statement-start 5 statement-other 6 name 7 statement-other 8 statement-other 9 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 5 6) (wisi-containing-action 6 7) (wisi-containing-action 6 8) - (wisi-face-action 6 'font-lock-function-name-face)))) + (wisi-face-action [3 font-lock-function-name-face 6 font-lock-function-name-face])))) (formal_package_actual_part ((LEFT_PAREN BOX RIGHT_PAREN )) (())) (full_type_declaration ((TYPE IDENTIFIER discriminant_part_opt IS type_definition aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name 4 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 name 4 statement-other 7 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 4 5) - (wisi-containing-action 4 6))) + (wisi-containing-action 4 6) + (wisi-face-action [2 font-lock-type-face]))) ((task_type_declaration )) ((protected_type_declaration ))) (function_specification ((FUNCTION name parameter_and_result_profile ) (progn - (wisi-statement-action 1 'statement-other 2 'name) + (wisi-statement-action [1 statement-other 2 name]) (wisi-containing-action 1 2) (wisi-containing-action 1 3) - (wisi-motion-action 1 '(3 return-1 RETURN return-2 RETURN))))) + (wisi-motion-action [1 [3 return-1 RETURN return-2 RETURN]]) + (wisi-face-action [2 font-lock-function-name-face])))) (general_access_modifier_opt (()) ((ALL )) @@ -801,10 +816,10 @@ (generic_formal_part ((GENERIC generic_formal_parameter_declarations ) (progn - (wisi-statement-action 1 'block-start) + (wisi-statement-action [1 block-start]) (wisi-containing-action 1 2))) ((GENERIC ) - (wisi-statement-action 1 'block-start))) + (wisi-statement-action [1 block-start]))) (generic_formal_parameter_declarations ((generic_formal_parameter_declaration )) ((generic_formal_parameter_declarations generic_formal_parameter_declaration ))) @@ -817,56 +832,56 @@ (generic_instantiation ((PACKAGE name IS NEW name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name 4 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 name 4 statement-other 7 statement-end]) (wisi-containing-action 4 5) (wisi-containing-action 5 6) - (wisi-face-action 5 'font-lock-function-name-face))) + (wisi-face-action [2 font-lock-function-name-face 5 font-lock-function-name-face]))) ((overriding_indicator_opt PROCEDURE name IS NEW name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 3 'name 5 'statement-other 8 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 3 name 5 statement-other 8 statement-end]) (wisi-containing-action 5 6) (wisi-containing-action 6 7) - (wisi-face-action 6 'font-lock-function-name-face))) + (wisi-face-action [3 font-lock-function-name-face 6 font-lock-function-name-face]))) ((overriding_indicator_opt FUNCTION name IS NEW name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 3 'name 5 'statement-other 8 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 3 name 5 statement-other 8 statement-end]) (wisi-containing-action 5 6) (wisi-containing-action 6 7) - (wisi-face-action 6 'font-lock-function-name-face)))) + (wisi-face-action [3 font-lock-function-name-face 6 font-lock-function-name-face])))) (generic_package_declaration ((generic_formal_part package_specification SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 2 'block-middle 3 'statement-end) - (wisi-motion-action 1 2 3)))) + (wisi-statement-action [1 block-start 2 block-middle 3 statement-end]) + (wisi-motion-action [1 2])))) (generic_renaming_declaration ((GENERIC PACKAGE name RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 3 'name 4 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 3 name 4 statement-other 7 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 3 6) - (wisi-face-action 5 'font-lock-function-name-face))) + (wisi-face-action [3 font-lock-function-name-face 5 font-lock-function-name-face]))) ((GENERIC PROCEDURE name RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 3 'name 4 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 3 name 4 statement-other 7 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 3 6) - (wisi-face-action 5 'font-lock-function-name-face))) + (wisi-face-action [3 font-lock-function-name-face 5 font-lock-function-name-face]))) ((GENERIC FUNCTION name RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 3 'name 4 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 3 name 4 statement-other 7 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 3 6) - (wisi-face-action 5 'font-lock-function-name-face)))) + (wisi-face-action [3 font-lock-function-name-face 5 font-lock-function-name-face])))) (generic_subprogram_declaration ((generic_formal_part subprogram_specification aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 2 'block-middle 4 'statement-end) + (wisi-statement-action [1 block-start 2 block-middle 4 statement-end]) (wisi-containing-action 2 3) - (wisi-motion-action 1 2)))) + (wisi-motion-action [1 2])))) (handled_sequence_of_statements ((sequence_of_statements_opt EXCEPTION exception_handler_list_opt ) (progn - (wisi-statement-action 2 'block-middle) + (wisi-statement-action [2 block-middle]) (wisi-containing-action 2 3))) ((sequence_of_statements_opt ))) (identifier_list @@ -878,72 +893,75 @@ (if_expression ((IF expression THEN expression elsif_expression_list ELSE expression ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle 6 'block-middle) + (wisi-statement-action [1 statement-start 3 block-middle 6 block-middle]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) (wisi-containing-action 3 5) (wisi-containing-action 6 7) - (wisi-motion-action 1 3 '(5 statement-other ELSIF block-middle THEN) 6))) + (wisi-motion-action [1 3 [5 statement-other ELSIF block-middle THEN] 6]))) ((IF expression THEN expression elsif_expression_list ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle) + (wisi-statement-action [1 statement-start 3 block-middle]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) (wisi-containing-action 3 5) - (wisi-motion-action 1 3 '(5 statement-other ELSIF block-middle THEN)))) + (wisi-motion-action [1 3 [5 statement-other ELSIF block-middle THEN]]))) ((IF expression THEN expression ELSE expression ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle 5 'block-middle) + (wisi-statement-action [1 statement-start 3 block-middle 5 block-middle]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) (wisi-containing-action 5 6) - (wisi-motion-action 1 3 5))) + (wisi-motion-action [1 3 5]))) ((IF expression THEN expression ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle) + (wisi-statement-action [1 statement-start 3 block-middle]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) - (wisi-motion-action 1 3)))) + (wisi-motion-action [1 3])))) (if_statement ((IF expression_opt THEN sequence_of_statements_opt elsif_statement_list ELSE sequence_of_statements_opt END IF SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle 6 'block-middle 8 'block-end 10 'statement-end) + (wisi-statement-action [1 statement-start 3 block-middle 6 block-middle 8 block-end 10 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) (wisi-containing-action 3 5) (wisi-containing-action 6 7) - (wisi-motion-action 1 3 '(5 statement-other ELSIF block-middle THEN) 6 8))) + (wisi-motion-action [1 3 [5 statement-other ELSIF block-middle THEN] 6 8]))) ((IF expression_opt THEN sequence_of_statements_opt elsif_statement_list END IF SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle 6 'block-end 9 'statement-end) + (wisi-statement-action [1 statement-start 3 block-middle 6 block-end 8 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) (wisi-containing-action 3 5) - (wisi-motion-action 1 3 '(5 statement-other ELSIF block-middle THEN) 6))) + (wisi-motion-action [1 3 [5 statement-other ELSIF block-middle THEN] 6]))) ((IF expression_opt THEN sequence_of_statements_opt ELSE sequence_of_statements_opt END IF SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle 5 'block-middle 7 'block-end 9 'statement-end) + (wisi-statement-action [1 statement-start 3 block-middle 5 block-middle 7 block-end 9 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) (wisi-containing-action 5 6) - (wisi-motion-action 1 3 5 7))) + (wisi-motion-action [1 3 5 7]))) ((IF expression_opt THEN sequence_of_statements_opt END IF SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-middle 5 'block-end 7 'statement-end) + (wisi-statement-action [1 statement-start 3 block-middle 5 block-end 7 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) - (wisi-motion-action 1 3 5)))) + (wisi-motion-action [1 3 5])))) (incomplete_type_declaration ((TYPE IDENTIFIER discriminant_part_opt IS TAGGED SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name 6 'statement-end) - (wisi-containing-action 1 3))) - ((TYPE IDENTIFIER SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'name 3 'statement-end))) + (wisi-statement-action [1 statement-start 2 name 6 statement-end]) + (wisi-containing-action 1 3) + (wisi-face-action [2 font-lock-type-face]))) + ((TYPE IDENTIFIER discriminant_part_opt SEMICOLON ) + (progn + (wisi-statement-action [1 statement-start 2 name 3 statement-end]) + (wisi-face-action [2 font-lock-type-face])))) (index_constraint ((LEFT_PAREN discrete_subtype_definition_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (index_subtype_definition ((name RANGE BOX ))) @@ -951,13 +969,13 @@ ((index_subtype_definition )) ((index_subtype_definition_list COMMA index_subtype_definition ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (interface_list ((name ) - (wisi-face-action 1 'font-lock-type-face)) + (wisi-face-action [1 font-lock-type-face])) ((interface_list AND name ) - (wisi-face-action 3 'font-lock-type-face))) + (wisi-face-action [3 font-lock-type-face]))) (interface_type_definition ((LIMITED INTERFACE AND interface_list )) ((TASK INTERFACE AND interface_list )) @@ -971,11 +989,11 @@ (iteration_scheme ((WHILE expression_opt ) (progn - (wisi-statement-action 1 'statement-start) + (wisi-statement-action [1 statement-start]) (wisi-containing-action 1 2))) ((FOR iterator_specification_opt ) (progn - (wisi-statement-action 1 'statement-start) + (wisi-statement-action [1 statement-start]) (wisi-containing-action 1 2)))) (iterator_specification ((IDENTIFIER IN REVERSE discrete_subtype_definition )) @@ -989,7 +1007,8 @@ ((iterator_specification ))) (label_opt (()) - ((LESS_LESS IDENTIFIER GREATER_GREATER )) + ((LESS_LESS IDENTIFIER GREATER_GREATER ) + (wisi-face-action [2 font-lock-constant-face])) ((IDENTIFIER COLON ))) (library_item ((PRIVATE library_unit_declaration )) @@ -1009,14 +1028,14 @@ (loop_statement ((iteration_scheme LOOP sequence_of_statements_opt END LOOP identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 4 'block-end 7 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 4 block-end 7 statement-end]) (wisi-containing-action 2 3) - (wisi-motion-action 1 2 4))) + (wisi-motion-action [1 2 4]))) ((LOOP sequence_of_statements_opt END LOOP identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-end 6 'statement-end) + (wisi-statement-action [1 block-start 3 block-end 6 statement-end]) (wisi-containing-action 1 2) - (wisi-motion-action 1 3)))) + (wisi-motion-action [1 3])))) (membership_choice_list ((membership_choice )) ((membership_choice_list BAR membership_choice ))) @@ -1028,18 +1047,9 @@ ((AT MOD expression SEMICOLON ))) (mode_opt (()) - ((IN ) - (progn - (wisi-statement-action 1 'keyword) - (wisi-face-action 1 'font-lock-keyword-face))) - ((IN OUT ) - (progn - (wisi-statement-action 1 'keyword) - (wisi-face-action 1 'font-lock-keyword-face))) - ((OUT ) - (progn - (wisi-statement-action 1 'keyword) - (wisi-face-action 1 'font-lock-keyword-face)))) + ((IN )) + ((IN OUT )) + ((OUT ))) (multiplying_operator ((STAR )) ((SLASH )) @@ -1049,15 +1059,15 @@ ((name )) ((name_list COMMA name ) (progn - (wisi-statement-action 2 'statement-other) + (wisi-statement-action [2 statement-other]) (wisi-containing-action 2 3)))) (name ((IDENTIFIER ) - (wisi-statement-action 1 'name)) + (wisi-statement-action [1 name])) ((CHARACTER_LITERAL )) ((name LEFT_PAREN range RIGHT_PAREN ) (progn - (wisi-statement-action 1 'name-paren 2 'open-paren 4 'close-paren) + (wisi-statement-action [1 name-paren 2 open-paren 4 close-paren]) (wisi-containing-action 1 2) (wisi-containing-action 2 3))) ((selected_component ) @@ -1065,7 +1075,7 @@ ((attribute_reference )) ((name actual_parameter_part ) (progn - (wisi-statement-action 1 'name-paren) + (wisi-statement-action [1 name-paren]) (wisi-containing-action 1 2))) ((qualified_expression )) ((STRING_LITERAL ))) @@ -1074,52 +1084,53 @@ ((name ))) (null_exclusion_opt (()) - ((NOT NULL ) - (progn - (wisi-statement-action 1 'keyword) - (wisi-face-action 1 'font-lock-keyword-face)))) - (null_exclusion_opt_name - ((IDENTIFIER )) - ((selected_component )) - ((NOT NULL IDENTIFIER )) - ((NOT NULL selected_component ))) + ((NOT NULL ))) + (null_exclusion_opt_name_type + ((IDENTIFIER ) + (wisi-face-action [1 font-lock-type-face])) + ((selected_component ) + (wisi-face-action [1 font-lock-type-face])) + ((NOT NULL IDENTIFIER ) + (wisi-face-action [3 font-lock-type-face])) + ((NOT NULL selected_component ) + (wisi-face-action [3 font-lock-type-face]))) (null_procedure_declaration ((overriding_indicator_opt procedure_specification IS NULL aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 3 'name 6 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 3 statement-other 6 statement-end]) (wisi-containing-action 2 5)))) (object_declaration ((identifier_list COLON aliased_opt constant_opt subtype_indication COLON_EQUAL expression aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 6 'statement-other 9 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 6 statement-other 9 statement-end]) (wisi-containing-action 2 5) (wisi-containing-action 6 7) (wisi-containing-action 1 8))) ((identifier_list COLON aliased_opt constant_opt subtype_indication aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 7 statement-end]) (wisi-containing-action 2 5) (wisi-containing-action 1 6))) ((identifier_list COLON aliased_opt constant_opt access_definition COLON_EQUAL expression aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 6 'statement-other 9 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 6 statement-other 9 statement-end]) (wisi-containing-action 2 5) (wisi-containing-action 6 7) (wisi-containing-action 1 8))) ((identifier_list COLON aliased_opt constant_opt access_definition aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 7 statement-end]) (wisi-containing-action 2 5) (wisi-containing-action 1 6))) ((identifier_list COLON aliased_opt constant_opt array_type_definition COLON_EQUAL expression aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 6 'statement-other 9 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 6 statement-other 9 statement-end]) (wisi-containing-action 2 5) (wisi-containing-action 6 7) (wisi-containing-action 1 8))) ((identifier_list COLON aliased_opt constant_opt array_type_definition aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 7 'statement-end) + (wisi-statement-action [1 statement-start 2 statement-other 7 statement-end]) (wisi-containing-action 2 5) (wisi-containing-action 1 6))) ((single_task_declaration )) @@ -1127,130 +1138,138 @@ (object_renaming_declaration ((IDENTIFIER COLON null_exclusion_opt name RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'name 5 'statement-other 6 'name 8 'statement-end) + (wisi-statement-action [1 statement-start 5 statement-other 8 statement-end]) (wisi-containing-action 1 4) (wisi-containing-action 1 6) - (wisi-containing-action 1 7))) + (wisi-face-action [4 font-lock-type-face]))) ((IDENTIFIER COLON access_definition RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-other 5 'name 7 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-other 7 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 1 5) (wisi-containing-action 1 6))) ((IDENTIFIER COLON EXCEPTION RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-other 5 'name 7 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-other 7 statement-end]) (wisi-containing-action 1 5) (wisi-containing-action 1 6)))) (overriding_indicator_opt ((NOT OVERRIDING ) - (wisi-statement-action 1 'statement-start 2 'statement-other)) + (wisi-statement-action [1 statement-start 2 statement-other])) ((OVERRIDING ) - (wisi-statement-action 1 'statement-start)) + (wisi-statement-action [1 statement-start])) (())) (package_body ((PACKAGE BODY name aspect_specification_opt IS declarative_part_opt BEGIN handled_sequence_of_statements END name_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'name 5 'block-middle 7 'block-middle - 9 'block-end 11 'statement-end) + (wisi-statement-action [1 block-start 3 name 5 block-middle 7 block-middle + 9 block-end 11 statement-end]) (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 '(8 block-middle EXCEPTION block-middle WHEN) 9))) + (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 ) (progn - (wisi-statement-action 1 'block-start 3 'name 5 'block-middle 7 'block-end 9 'statement-end) + (wisi-statement-action [1 block-start 3 name 5 block-middle 7 block-end 9 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 3 4) (wisi-containing-action 5 6) - (wisi-motion-action 1 5 7)))) + (wisi-motion-action [1 5 7]) + (wisi-face-action [3 font-lock-function-name-face 8 font-lock-function-name-face])))) (package_body_stub ((PACKAGE BODY name IS SEPARATE aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 7 'statement-end) + (wisi-statement-action [1 statement-start 7 statement-end]) (wisi-containing-action 1 3) - (wisi-containing-action 3 6)))) + (wisi-containing-action 3 6) + (wisi-face-action [3 font-lock-function-name-face])))) (package_declaration ((package_specification SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end))) + (wisi-statement-action [1 statement-start 2 statement-end]))) (package_renaming_declaration ((PACKAGE name RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name 3 'statement-other 6 'statement-end) + (wisi-statement-action [1 statement-start 2 name 3 statement-other 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 5) - (wisi-face-action 4 'font-lock-function-name-face)))) + (wisi-face-action [2 font-lock-function-name-face 4 font-lock-function-name-face])))) (package_specification ((PACKAGE name aspect_specification_opt IS declarative_part_opt PRIVATE declarative_part_opt END name_opt ) (progn - (wisi-statement-action 1 'statement-start 2 'name 4 'block-start 6 'block-middle 8 'block-end) + (wisi-statement-action [1 statement-start 2 name 4 block-start 6 block-middle 8 block-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) (wisi-containing-action 4 5) (wisi-containing-action 6 7) - (wisi-motion-action 1 4 6 8))) + (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 ) (progn - (wisi-statement-action 1 'statement-start 2 'name 4 'block-start 6 'block-end) + (wisi-statement-action [1 statement-start 2 name 4 block-start 6 block-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) (wisi-containing-action 4 5) - (wisi-motion-action 1 4 6)))) + (wisi-motion-action [1 4 6]) + (wisi-face-action [2 font-lock-function-name-face 7 font-lock-function-name-face])))) (parameter_and_result_profile ((formal_part RETURN null_exclusion_opt name_opt ) (progn - (wisi-statement-action 2 'return-1) + (wisi-statement-action [2 return-1]) (wisi-containing-action 2 4) - (wisi-face-action 4 'font-lock-type-face))) + (wisi-face-action [4 font-lock-type-face]))) ((RETURN name_opt ) (progn - (wisi-statement-action 1 'return-2) - (wisi-face-action 2 'font-lock-type-face))) + (wisi-statement-action [1 return-2]) + (wisi-face-action [2 font-lock-type-face]))) ((formal_part RETURN access_definition ) (progn - (wisi-statement-action 2 'return-1) + (wisi-statement-action [2 return-1]) (wisi-containing-action 2 3))) ((RETURN access_definition ) (progn - (wisi-statement-action 1 'return-2) + (wisi-statement-action [1 return-2]) (wisi-containing-action 1 2)))) (parameter_profile_opt (()) ((formal_part ))) (parameter_specification ((identifier_list COLON aliased_opt mode_opt null_exclusion_opt name COLON_EQUAL expression ) - (wisi-face-action 6 'font-lock-type-face)) + (wisi-face-action [6 font-lock-type-face])) ((identifier_list COLON aliased_opt mode_opt null_exclusion_opt name ) - (wisi-face-action 6 'font-lock-type-face)) + (wisi-face-action [6 font-lock-type-face])) ((identifier_list COLON aliased_opt access_definition COLON_EQUAL expression )) ((identifier_list COLON aliased_opt access_definition ))) (parameter_specification_list ((parameter_specification )) ((parameter_specification_list SEMICOLON parameter_specification ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (paren_expression ((LEFT_PAREN expression RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (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-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2))) ((LEFT_PAREN if_expression RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (pragma ((PRAGMA IDENTIFIER LEFT_PAREN pragma_argument_association_list RIGHT_PAREN SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'open-paren 5 'close-paren 6 'statement-end) - (wisi-containing-action 3 4))) + (wisi-statement-action [1 statement-start 3 open-paren 5 close-paren 6 statement-end]) + (wisi-containing-action 3 4) + (wisi-face-action [2 font-lock-function-name-face]))) ((PRAGMA IDENTIFIER SEMICOLON ) - (wisi-statement-action 1 'statement-start 3 'statement-end))) + (progn + (wisi-statement-action [1 statement-start 3 statement-end]) + (wisi-face-action [2 font-lock-function-name-face])))) (pragma_argument_association ((IDENTIFIER EQUAL_GREATER expression )) ((expression )) @@ -1259,46 +1278,50 @@ ((pragma_argument_association )) ((pragma_argument_association_list COMMA pragma_argument_association ))) (primary + ((NUMERIC_LITERAL ) + (wisi-face-action [1 font-lock-constant-face])) ((NULL )) ((aggregate )) ((name )) ((NEW name ) - (wisi-face-action 2 'font-lock-type-face)) + (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-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-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-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (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 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-face-action 7 'font-lock-type-face)))) + (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 8 statement-end]) + (wisi-containing-action 1 7) + (wisi-face-action [2 font-lock-type-face])))) (procedure_call_statement ((name SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end))) + (wisi-statement-action [1 statement-start 2 statement-end]))) (procedure_specification ((PROCEDURE name parameter_profile_opt ) (progn - (wisi-statement-action 1 'statement-other 2 'name) + (wisi-statement-action [1 statement-other]) (wisi-containing-action 1 2) - (wisi-containing-action 1 3)))) + (wisi-containing-action 1 3) + (wisi-face-action [2 font-lock-function-name-face])))) (proper_body ((subprogram_body )) ((package_body )) @@ -1307,24 +1330,29 @@ (protected_body ((PROTECTED BODY IDENTIFIER aspect_specification_opt IS protected_operation_item_list_opt END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'name 5 'block-middle 7 'block-end 9 'statement-end) + (wisi-statement-action [1 block-start 3 name 5 block-middle 7 block-end 9 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 1 4) (wisi-containing-action 5 6) - (wisi-motion-action 1 5 7)))) + (wisi-motion-action [1 5 7]) + (wisi-face-action [3 font-lock-type-face 8 font-lock-type-face])))) (protected_body_stub ((PROTECTED BODY IDENTIFIER IS SEPARATE aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 7 'statement-end) + (wisi-statement-action [1 statement-start 7 statement-end]) (wisi-containing-action 1 3) - (wisi-containing-action 3 6)))) + (wisi-containing-action 3 6) + (wisi-face-action [3 font-lock-type-face])))) (protected_definition ((declarative_part_opt PRIVATE declarative_part_opt END identifier_opt ) (progn - (wisi-statement-action 2 'block-middle 4 'block-end) - (wisi-containing-action 2 3))) + (wisi-statement-action [2 block-middle 4 block-end]) + (wisi-containing-action 2 3) + (wisi-face-action [5 font-lock-type-face]))) ((declarative_part_opt END identifier_opt ) - (wisi-statement-action 2 'block-end))) + (progn + (wisi-statement-action [2 block-end]) + (wisi-face-action [3 font-lock-type-face])))) (protected_operation_item ((subprogram_declaration )) ((subprogram_body )) @@ -1342,42 +1370,48 @@ (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 11 'statement-end) + (wisi-statement-action [1 statement-start 3 name 6 block-start 11 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 3 5) - (wisi-containing-action 9 10))) + (wisi-containing-action 9 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-statement-action [1 statement-start 3 name 6 block-start 8 statement-end]) (wisi-containing-action 1 3) (wisi-containing-action 3 5) - (wisi-containing-action 6 7)))) + (wisi-containing-action 6 7) + (wisi-face-action [3 font-lock-type-face])))) (qualified_expression ((name TICK aggregate ) (progn - (wisi-statement-action 1 'statement-other) - (wisi-containing-action 1 3)))) + (wisi-statement-action [1 statement-other]) + (wisi-containing-action 1 3) + (wisi-face-action [1 font-lock-type-face])))) (quantified_expression ((FOR quantifier iterator_specification EQUAL_GREATER expression ) (progn - (wisi-statement-action 4 'statement-other) + (wisi-statement-action [4 statement-other]) (wisi-containing-action 4 5)))) (quantifier ((ALL )) ((SOME ))) + (raise_expression + ((RAISE name )) + ((RAISE name WITH expression ))) (raise_statement ((RAISE SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end)) + (wisi-statement-action [1 statement-start 2 statement-end])) ((RAISE name WITH expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 5 'statement-end) + (wisi-statement-action [1 statement-start 5 statement-end]) (wisi-containing-action 1 4))) ((RAISE name SEMICOLON ) - (wisi-statement-action 1 'statement-start 3 'statement-end))) + (wisi-statement-action [1 statement-start 3 statement-end]))) (range ((name TICK RANGE LEFT_PAREN expression RIGHT_PAREN ) (progn - (wisi-statement-action 4 'open-paren 6 'close-paren) + (wisi-statement-action [4 open-paren 6 close-paren]) (wisi-containing-action 4 5))) ((name TICK RANGE )) ((simple_expression DOT_DOT simple_expression ))) @@ -1387,18 +1421,18 @@ (record_definition ((RECORD component_list_opt END RECORD ) (progn - (wisi-statement-action 1 'block-start 3 'block-end) + (wisi-statement-action [1 block-start 3 block-end]) (wisi-containing-action 1 2))) ((NULL RECORD ))) (record_representation_clause ((FOR name USE record_rep SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-other 5 'statement-end) + (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) (wisi-containing-action 3 4)))) (record_rep ((RECORD mod_clause_opt component_clause_list END RECORD ) (progn - (wisi-statement-action 1 'block-start 4 'block-end) + (wisi-statement-action [1 block-start 4 block-end]) (wisi-containing-action 1 3)))) (record_type_definition ((abstract_tagged_limited_opt record_definition ))) @@ -1421,7 +1455,8 @@ ((simple_expression )) ((simple_expression relational_operator simple_expression )) ((simple_expression NOT IN membership_choice_list )) - ((simple_expression IN membership_choice_list ))) + ((simple_expression IN membership_choice_list )) + ((raise_expression ))) (relational_operator ((EQUAL )) ((SLASH_EQUAL )) @@ -1437,11 +1472,11 @@ (requeue_statement ((REQUEUE name WITH ABORT SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name 5 'statement-end) + (wisi-statement-action [1 statement-start 2 name 5 statement-end]) (wisi-containing-action 1 2))) ((REQUEUE name SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name 5 'statement-end) + (wisi-statement-action [1 statement-start 2 name 3 statement-end]) (wisi-containing-action 1 2)))) (return_subtype_indication ((subtype_indication )) @@ -1454,39 +1489,39 @@ (selective_accept ((SELECT select_alternative_list_opt ELSE sequence_of_statements_opt END SELECT SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-middle 5 'block-end 7 'statement-end) + (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) - (wisi-motion-action 1 '(2 block-middle OR) 3 5))) + (wisi-motion-action [1 [2 block-middle OR] 3 5]))) ((SELECT select_alternative_list_opt END SELECT SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-end 5 'statement-end) + (wisi-statement-action [1 block-start 3 block-end 5 statement-end]) (wisi-containing-action 1 2) - (wisi-motion-action 1 '(2 block-middle OR) 3)))) + (wisi-motion-action [1 [2 block-middle OR] 3])))) (select_alternative ((WHEN expression EQUAL_GREATER accept_statement sequence_of_statements_opt ) (progn - (wisi-statement-action 1 'block-start 3 'statement-other) + (wisi-statement-action [1 block-start 3 statement-other]) (wisi-containing-action 1 2) (wisi-containing-action 3 4) (wisi-containing-action 3 5))) ((accept_statement sequence_of_statements_opt )) ((WHEN expression EQUAL_GREATER delay_alternative ) (progn - (wisi-statement-action 1 'block-start 3 'statement-other) + (wisi-statement-action [1 block-start 3 statement-other]) (wisi-containing-action 1 2) (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-statement-action [1 block-start 3 statement-other 4 statement-start 5 statement-end]) (wisi-containing-action 1 2))) ((TERMINATE SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end))) + (wisi-statement-action [1 statement-start 2 statement-end]))) (select_alternative_list ((select_alternative )) ((select_alternative_list OR select_alternative ) - (wisi-statement-action 2 'block-middle))) + (wisi-statement-action [2 block-middle]))) (select_alternative_list_opt (()) ((select_alternative_list ))) @@ -1506,157 +1541,173 @@ ((term_list ))) (simple_return_statement ((RETURN SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end)) + (wisi-statement-action [1 statement-start 2 statement-end])) ((RETURN expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-end) + (wisi-statement-action [1 statement-start 3 statement-end]) (wisi-containing-action 1 2)))) (simple_statement ((NULL SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end)) + (wisi-statement-action [1 statement-start 2 statement-end])) ((assignment_statement )) ((exit_statement )) ((GOTO IDENTIFIER SEMICOLON ) - (wisi-statement-action 1 'statement-start 3 'statement-end)) + (progn + (wisi-statement-action [1 statement-start 3 statement-end]) + (wisi-face-action [2 font-lock-constant-face]))) ((procedure_call_statement )) ((simple_return_statement )) ((requeue_statement )) ((delay_statement )) ((ABORT name SEMICOLON ) - (wisi-statement-action 1 'statement-start 3 'statement-end)) + (wisi-statement-action [1 statement-start 3 statement-end])) ((raise_statement )) ((pragma ))) (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 block-start 2 name 7 block-middle 9 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) - (wisi-containing-action 7 8))) + (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 block-start 2 name 4 block-middle 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) - (wisi-containing-action 4 5)))) + (wisi-containing-action 4 5) + (wisi-face-action [2 font-lock-type-face])))) (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 block-start 2 name 7 block-middle 9 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) - (wisi-containing-action 7 8))) + (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 block-start 2 name 4 block-middle 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) - (wisi-containing-action 4 5))) + (wisi-containing-action 4 5) + (wisi-face-action [2 font-lock-type-face]))) ((TASK IDENTIFIER aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-end]) (wisi-containing-action 1 2) - (wisi-containing-action 2 3)))) + (wisi-containing-action 2 3) + (wisi-face-action [2 font-lock-type-face])))) (statement ((label_opt simple_statement ) - (wisi-statement-action 1 'statement-start 2 'statement-other)) + (wisi-statement-action [1 statement-start 2 statement-other])) ((label_opt compound_statement ) - (wisi-statement-action 1 'statement-start 2 'statement-other))) + (wisi-statement-action [1 statement-start 2 statement-other]))) (subprogram_body ((overriding_indicator_opt subprogram_specification aspect_specification_opt IS declarative_part_opt BEGIN handled_sequence_of_statements END name_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 4 'block-middle 6 'block-middle 8 'block-end 10 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 4 block-middle 6 block-middle 8 block-end 10 statement-end]) (wisi-containing-action 2 3) (wisi-containing-action 4 5) (wisi-containing-action 6 7) - (wisi-motion-action 1 2 4 6 8)))) + (wisi-motion-action [1 2 4 6 8]) + (wisi-face-action [9 font-lock-function-name-face])))) (subprogram_body_stub ((overriding_indicator_opt subprogram_specification IS SEPARATE aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 6 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 6 statement-end]) (wisi-containing-action 2 5)))) (subprogram_declaration ((overriding_indicator_opt subprogram_specification aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 4 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 4 statement-end]) (wisi-containing-action 2 3)))) (subprogram_default - ((name )) + ((name ) + (wisi-face-action [1 font-lock-function-name-face])) ((BOX )) ((NULL ))) (subprogram_renaming_declaration ((overriding_indicator_opt subprogram_specification RENAMES name aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'block-middle 3 'statement-other 6 'statement-end) + (wisi-statement-action [1 statement-start 2 block-middle 3 statement-other 6 statement-end]) (wisi-containing-action 2 5) - (wisi-face-action 4 'font-lock-function-name-face)))) + (wisi-face-action [4 font-lock-function-name-face])))) (subprogram_specification ((procedure_specification )) ((function_specification ))) (subtype_declaration ((SUBTYPE IDENTIFIER IS subtype_indication aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'name 3 'statement-other 6 'statement-end) + (wisi-statement-action [1 statement-start 2 name 3 statement-other 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 2 3) - (wisi-containing-action 3 4)))) + (wisi-containing-action 3 4) + (wisi-containing-action 3 5) + (wisi-face-action [2 font-lock-type-face])))) (subtype_indication ((NOT NULL name constraint ) (progn - (wisi-statement-action 1 'keyword) (wisi-containing-action 3 4) - (wisi-face-action 1 'font-lock-keyword-face 3 'font-lock-type-face))) + (wisi-face-action [3 font-lock-type-face]))) ((NOT NULL name ) - (progn - (wisi-statement-action 1 'keyword) - (wisi-face-action 1 'font-lock-keyword-face 3 'font-lock-type-face))) + (wisi-face-action [3 font-lock-type-face])) ((name constraint ) (progn (wisi-containing-action 1 2) - (wisi-face-action 1 'font-lock-type-face))) + (wisi-face-action [1 font-lock-type-face]))) ((name ) - (wisi-face-action 1 'font-lock-type-face))) + (wisi-face-action [1 font-lock-type-face]))) (subunit ((SEPARATE LEFT_PAREN name RIGHT_PAREN proper_body ) (progn - (wisi-statement-action 1 'block-start 2 'open-paren 4 'close-paren 5 'block-middle) + (wisi-statement-action [1 block-start 2 open-paren 4 close-paren 5 block-middle]) (wisi-containing-action 1 5) (wisi-containing-action 2 3)))) (task_body ((TASK BODY IDENTIFIER aspect_specification_opt IS declarative_part_opt BEGIN handled_sequence_of_statements END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'name 5 'block-start 7 'block-middle 9 'block-end 11 'statement-end) + (wisi-statement-action [1 statement-start 3 name 5 block-start 7 block-middle 9 block-end 11 statement-end]) (wisi-containing-action 3 4) (wisi-containing-action 5 6) (wisi-containing-action 7 8) - (wisi-motion-action 1 5 7 9)))) + (wisi-motion-action [1 5 7 9]) + (wisi-face-action [3 font-lock-type-face 10 font-lock-type-face])))) (task_body_stub ((TASK BODY IDENTIFIER IS SEPARATE aspect_specification_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 7 'statement-end) - (wisi-containing-action 3 6)))) + (wisi-statement-action [1 statement-start 7 statement-end]) + (wisi-containing-action 3 6) + (wisi-face-action [3 font-lock-type-face])))) (task_definition ((declarative_part_opt PRIVATE declarative_part_opt END identifier_opt ) (progn - (wisi-statement-action 2 'block-middle 4 'block-end) - (wisi-containing-action 2 3))) + (wisi-statement-action [2 block-middle 4 block-end]) + (wisi-containing-action 2 3) + (wisi-face-action [5 font-lock-type-face]))) ((declarative_part_opt END identifier_opt ) - (wisi-statement-action 2 'block-end))) + (progn + (wisi-statement-action [2 block-end]) + (wisi-face-action [3 font-lock-type-face])))) (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 10 statement-other 11 statement-end]) (wisi-containing-action 3 5) - (wisi-containing-action 9 10))) + (wisi-containing-action 9 10) + (wisi-face-action [2 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-start 8 statement-end]) (wisi-containing-action 3 5) - (wisi-containing-action 6 7))) + (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 3 5)))) + (wisi-statement-action [1 statement-start 3 name 6 statement-end]) + (wisi-containing-action 3 5) + (wisi-face-action [3 font-lock-type-face])))) (term ((factor )) ((term multiplying_operator factor ))) @@ -1666,7 +1717,7 @@ (timed_entry_call ((SELECT entry_call_alternative OR delay_alternative END SELECT SEMICOLON ) (progn - (wisi-statement-action 1 'block-start 3 'block-middle 5 'block-end 6 'statement-end) + (wisi-statement-action [1 block-start 3 block-middle 5 block-end 6 statement-end]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) (triggering_alternative @@ -1693,7 +1744,7 @@ (variant_part ((CASE direct_name_opt IS variant_list END CASE SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-start 5 'block-end 7 'statement-end) + (wisi-statement-action [1 statement-start 3 block-start 5 block-end 7 statement-end]) (wisi-containing-action 3 4)))) (variant_list ((variant )) @@ -1701,7 +1752,7 @@ (variant ((WHEN discrete_choice_list EQUAL_GREATER component_list_opt ) (progn - (wisi-statement-action 1 'block-middle 3 'statement-other) + (wisi-statement-action [1 block-middle 3 statement-other]) (wisi-containing-action 1 2) (wisi-containing-action 3 4)))) (unary_adding_operator @@ -1710,33 +1761,40 @@ (use_clause ((USE name_list SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-end) - (wisi-containing-action 1 2))) + (wisi-statement-action [1 statement-start 3 statement-end]) + (wisi-containing-action 1 2) + (wisi-face-list-action [2 font-lock-function-name-face]))) ((USE ALL TYPE name_list SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 5 'statement-end) - (wisi-containing-action 1 4))) + (wisi-statement-action [1 statement-start 5 statement-end]) + (wisi-containing-action 1 4) + (wisi-face-list-action [4 font-lock-type-face]))) ((USE TYPE name_list SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-end) - (wisi-containing-action 1 3)))) + (wisi-statement-action [1 statement-start 4 statement-end]) + (wisi-containing-action 1 3) + (wisi-face-list-action [3 font-lock-type-face])))) (with_clause ((LIMITED PRIVATE WITH name_list SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-other 5 'statement-end) - (wisi-containing-action 3 4))) + (wisi-statement-action [1 statement-start 3 statement-other 5 statement-end]) + (wisi-containing-action 3 4) + (wisi-face-list-action [4 font-lock-function-name-face]))) ((LIMITED WITH name_list SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 4 'statement-end) - (wisi-containing-action 2 3))) + (wisi-statement-action [1 statement-start 2 statement-other 4 statement-end]) + (wisi-containing-action 2 3) + (wisi-face-list-action [3 font-lock-function-name-face]))) ((PRIVATE WITH name_list SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 2 'statement-other 4 'statement-end) - (wisi-containing-action 2 3))) + (wisi-statement-action [1 statement-start 2 statement-other 4 statement-end]) + (wisi-containing-action 2 3) + (wisi-face-list-action [3 font-lock-function-name-face]))) ((WITH name_list SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-end) - (wisi-containing-action 1 2))))) + (wisi-statement-action [1 statement-start 3 statement-end]) + (wisi-containing-action 1 2) + (wisi-face-list-action [2 font-lock-function-name-face]))))) [((default . error) (SEPARATE . 10) (USE . 11) (LIMITED . 3) (PRIVATE . 8) (WITH . 12) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (PACKAGE . 6) (GENERIC . 2)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (FUNCTION . ( 73 (generic_formal_part . 1))) (PROCEDURE . ( 75 (generic_formal_part . 1))) (PACKAGE . ( 74 (generic_formal_part . 1))) (PRAGMA . 7) (WITH . 77) (TYPE . 76) (IDENTIFIER . 72)) @@ -1783,16 +1841,16 @@ ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (SEMICOLON . 125)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) ($EOI . 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) (CHARACTER_LITERAL . accept) (STRING_LITERAL . accept) (IDENTIFIER . 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)) + ((default . error) ($EOI . 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) (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)) ((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)) (RENAMES . (name . 0)) (ELSIF . (name . 0)) (ELSE . (name . 0)) (LESS_LESS . (name . 0)) (IDENTIFIER . (name . 0)) (STRING_LITERAL . (name . 0)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 0)) (STAR . (name . 0)) (MOD . (name . 0)) (REM . (name . 0)) (STAR_STAR . (name . 0))) - ((default . error) (USE . (name . 7)) (DO . (name . 7)) (RENAMES . (name . 7)) (ELSIF . (name . 7)) (ELSE . (name . 7)) (LESS_LESS . (name . 7)) (IDENTIFIER . (name . 7)) (STRING_LITERAL . (name . 7)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 7)) (STAR . (name . 7)) (MOD . (name . 7)) (REM . (name . 7)) (STAR_STAR . (name . 7))) - ((default . error) (DO . (name . 1)) (USE . (name . 1)) (COMMA . (name . 1)) (RENAMES . (name . 1)) (ELSIF . (name . 1)) (ELSE . (name . 1)) (LESS_LESS . (name . 1)) (IDENTIFIER . (name . 1)) (STRING_LITERAL . (name . 1)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 1)) (STAR . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (STAR_STAR . (name . 1))) - ((default . error) (USE . (name . 4)) (DO . (name . 4)) (RENAMES . (name . 4)) (ELSIF . (name . 4)) (ELSE . (name . 4)) (LESS_LESS . (name . 4)) (IDENTIFIER . (name . 4)) (STRING_LITERAL . (name . 4)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 4)) (STAR . (name . 4)) (MOD . (name . 4)) (REM . (name . 4)) (STAR_STAR . (name . 4))) + ((default . error) (USE . (name . 0)) (DO . (name . 0)) (ELSIF . (name . 0)) (RENAMES . (name . 0)) (ELSE . (name . 0)) (LESS_LESS . (name . 0)) (IDENTIFIER . (name . 0)) (STRING_LITERAL . (name . 0)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 0)) (STAR . (name . 0)) (MOD . (name . 0)) (REM . (name . 0)) (STAR_STAR . (name . 0))) + ((default . error) (USE . (name . 7)) (DO . (name . 7)) (ELSIF . (name . 7)) (RENAMES . (name . 7)) (ELSE . (name . 7)) (LESS_LESS . (name . 7)) (IDENTIFIER . (name . 7)) (STRING_LITERAL . (name . 7)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 7)) (STAR . (name . 7)) (MOD . (name . 7)) (REM . (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)) (LESS_LESS . (name . 1)) (IDENTIFIER . (name . 1)) (STRING_LITERAL . (name . 1)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 1)) (STAR . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (STAR_STAR . (name . 1))) + ((default . error) (USE . (name . 4)) (DO . (name . 4)) (ELSIF . (name . 4)) (RENAMES . (name . 4)) (ELSE . (name . 4)) (LESS_LESS . (name . 4)) (IDENTIFIER . (name . 4)) (STRING_LITERAL . (name . 4)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 4)) (STAR . (name . 4)) (MOD . (name . 4)) (REM . (name . 4)) (STAR_STAR . (name . 4))) ((default . error) (COMMA . 119) (SEMICOLON . 123)) ((default . error) (DOT . 87) (SEMICOLON . (name_list . 0)) (COMMA . (name_list . 0)) (TICK . 88) (LEFT_PAREN . 106)) - ((default . error) (DO . (name . 6)) (USE . (name . 6)) (RENAMES . (name . 6)) (ELSIF . (name . 6)) (ELSE . (name . 6)) (LESS_LESS . (name . 6)) (IDENTIFIER . (name . 6)) (STRING_LITERAL . (name . 6)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 6)) (STAR . (name . 6)) (MOD . (name . 6)) (REM . (name . 6)) (STAR_STAR . (name . 6))) - ((default . error) (DO . (name . 3)) (USE . (name . 3)) (RENAMES . (name . 3)) (ELSIF . (name . 3)) (ELSE . (name . 3)) (LESS_LESS . (name . 3)) (IDENTIFIER . (name . 3)) (STRING_LITERAL . (name . 3)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 3)) (STAR . (name . 3)) (MOD . (name . 3)) (REM . (name . 3)) (STAR_STAR . (name . 3))) + ((default . error) (DO . (name . 6)) (USE . (name . 6)) (ELSIF . (name . 6)) (RENAMES . (name . 6)) (ELSE . (name . 6)) (LESS_LESS . (name . 6)) (IDENTIFIER . (name . 6)) (STRING_LITERAL . (name . 6)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 6)) (STAR . (name . 6)) (MOD . (name . 6)) (REM . (name . 6)) (STAR_STAR . (name . 6))) + ((default . error) (DO . (name . 3)) (USE . (name . 3)) (ELSIF . (name . 3)) (RENAMES . (name . 3)) (ELSE . (name . 3)) (LESS_LESS . (name . 3)) (IDENTIFIER . (name . 3)) (STRING_LITERAL . (name . 3)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (name . 3)) (STAR . (name . 3)) (MOD . (name . 3)) (REM . (name . 3)) (STAR_STAR . (name . 3))) ((default . error) (TYPE . 122)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (COMMA . 119) (SEMICOLON . 120)) @@ -1824,32 +1882,32 @@ ((default . error) (COMMA . 95) (COLON . 94)) ((default . error) (PACKAGE . (generic_formal_parameter_declaration . 4)) (PROCEDURE . (generic_formal_parameter_declaration . 4)) (FUNCTION . (generic_formal_parameter_declaration . 4)) (WITH . (generic_formal_parameter_declaration . 4)) (TYPE . (generic_formal_parameter_declaration . 4)) (PRAGMA . (generic_formal_parameter_declaration . 4)) (IDENTIFIER . (generic_formal_parameter_declaration . 4))) ((default . error) (DOT . 87) (TICK . 88) (RETURN . 90) (LEFT_PAREN . 89)) - ((default . error) (IDENTIFIER . 225) (CHARACTER_LITERAL . 227) (STRING_LITERAL . 226) (ALL . 228)) - ((default . error) (LEFT_PAREN . 220) (ACCESS . 217) (DELTA . 218) (DIGITS . 219) (MOD . 221) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 170) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (IDENTIFIER . 213) (OTHERS . 172) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (WITH . (name_opt . 0)) (SEMICOLON . (name_opt . 0)) (IS . (name_opt . 0)) (RENAMES . (name_opt . 0)) (COLON_EQUAL . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (DO . (name_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 208) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (IDENTIFIER . 228) (CHARACTER_LITERAL . 230) (STRING_LITERAL . 229) (ALL . 231)) + ((default . error) (LEFT_PAREN . 223) (ACCESS . 220) (DELTA . 221) (DIGITS . 222) (MOD . 224) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 173) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (IDENTIFIER . 216) (OTHERS . 175) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (RAISE . 152) (LEFT_PAREN . 148)) + ((default . error) (WITH . (name_opt . 0)) (SEMICOLON . (name_opt . 0)) (IS . (name_opt . 0)) (RENAMES . (name_opt . 0)) (COLON_EQUAL . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (DO . (name_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 211) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (DO . (name . 5)) (OF . (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)) (CHARACTER_LITERAL . (name . 5)) (STRING_LITERAL . (name . 5)) (IDENTIFIER . (name . 5)) (LESS_LESS . (name . 5)) (COLON_EQUAL . (name . 5)) (USE . (name . 5)) (PLUS . (name . 5)) (MINUS . (name . 5)) (AMPERSAND . (name . 5)) (SLASH . (name . 5)) (STAR . (name . 5)) (MOD . (name . 5)) (REM . (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 . 207)) + ((default . error) (RETURN . 210)) ((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 . 204) (OUT . 205)) - ((default . error) (IDENTIFIER . 203)) + ((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 . 207) (OUT . 208)) + ((default . error) (IDENTIFIER . 206)) ((default . error) (WITH . (generic_formal_parameter_declarations . 1)) (TYPE . (generic_formal_parameter_declarations . 1)) (PRAGMA . (generic_formal_parameter_declarations . 1)) (IDENTIFIER . (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 . 200) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (WITH . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 198)) - ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 197) (LEFT_PAREN . 106)) - ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 196) (LEFT_PAREN . 106)) - ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 195) (LEFT_PAREN . 106)) - ((default . error) (COMMA . 119) (SEMICOLON . 194)) + ((default . error) (IS . 203) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) + ((default . error) (WITH . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 201)) + ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 200) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 199) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 198) (LEFT_PAREN . 106)) + ((default . error) (COMMA . 119) (SEMICOLON . 197)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (NEW . 192)) - ((default . error) (IDENTIFIER . 48) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 170) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 172) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (NEW . 195)) + ((default . error) (IDENTIFIER . 48) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 173) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 175) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (RAISE . 152) (LEFT_PAREN . 148)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . ((association_opt . 0) (expression_opt . 0))) (IS . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 170) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (IS . 169)) + ((default . error) (SEMICOLON . ((association_opt . 0) (expression_opt . 0))) (IS . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 173) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (IS . 172)) ((default . error) (DOT . 87) (TICK . 88) (IS . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) ((default . error) (OR . (pragma . 1)) (THEN . (pragma . 1)) (WHEN . (pragma . 1)) (EXCEPTION . (pragma . 1)) (LESS_LESS . (pragma . 1)) (STRING_LITERAL . (pragma . 1)) (CHARACTER_LITERAL . (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)) (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)) (IDENTIFIER . (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))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 145) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 146) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (COMMA . 119) (SEMICOLON . 141)) ((default . error) (DOT . 87) (TICK . 88) (IS . ( 105 (aspect_specification_opt . 0))) (WITH . 108) (LEFT_PAREN . 106)) @@ -1868,96 +1926,99 @@ ((default . error) (SEMICOLON . 133) (IS . 134)) ((default . error) (DOT . 87) (TICK . 88) (IS . ( 132 (parameter_profile_opt . 0))) (SEMICOLON . (parameter_profile_opt . 0)) (WITH . (parameter_profile_opt . 0)) (RENAMES . (parameter_profile_opt . 0)) (LEFT_PAREN . 89)) ((default . error) (DOT . 87) (TICK . 88) (IS . 131) (RETURN . 90) (LEFT_PAREN . 89)) - ((default . error) (NEW . 384)) - ((default . error) (NEW . 383)) + ((default . error) (NEW . 390)) + ((default . error) (NEW . 389)) ((default . error) (TYPE . (subprogram_declaration . 0)) (TASK . (subprogram_declaration . 0)) (SUBTYPE . (subprogram_declaration . 0)) (PROTECTED . (subprogram_declaration . 0)) (FOR . (subprogram_declaration . 0)) (ENTRY . (subprogram_declaration . 0)) (IDENTIFIER . (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) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) ((default . error) (BEGIN . (generic_subprogram_declaration . 0)) (IDENTIFIER . (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)) (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 . 119) (SEMICOLON . 380)) + ((default . error) (COMMA . 119) (SEMICOLON . 386)) ((default . error) (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)) (IDENTIFIER . (use_clause . 2)) (BEGIN . (use_clause . 2)) (END . (use_clause . 2)) (PRIVATE . (use_clause . 2)) ($EOI . (use_clause . 2)) (LIMITED . (use_clause . 2)) (SEPARATE . (use_clause . 2)) (WITH . (use_clause . 2))) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (name_list . 1)) (COMMA . (name_list . 1)) (LEFT_PAREN . 106)) - ((default . error) (PROTECTED . 376) (TASK . 377) (PACKAGE . 375) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2))) + ((default . error) (PROTECTED . 382) (TASK . 383) (PACKAGE . 381) (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 . 133)) - ((default . error) (IDENTIFIER . (unary_adding_operator . 1)) (STRING_LITERAL . (unary_adding_operator . 1)) (CHARACTER_LITERAL . (unary_adding_operator . 1)) (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))) - ((default . error) (IDENTIFIER . (unary_adding_operator . 0)) (STRING_LITERAL . (unary_adding_operator . 0)) (CHARACTER_LITERAL . (unary_adding_operator . 0)) (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))) - ((default . error) (EQUAL_GREATER . 373) (RIGHT_PAREN . (name . 0)) (COMMA . (name . 0)) (STAR_STAR . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (STAR . (name . 0)) (SLASH . (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 . ( 374 (name . 0)))) - ((default . error) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IF . 368) (CASE . 366) (FOR . 367) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 172) (ABS . 146) (NOT . 171) (IDENTIFIER . 48) (CHARACTER_LITERAL . 170) (STRING_LITERAL . 49) (NULL . 229) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (NUMERIC_LITERAL . (unary_adding_operator . 1)) (IDENTIFIER . (unary_adding_operator . 1)) (STRING_LITERAL . (unary_adding_operator . 1)) (CHARACTER_LITERAL . (unary_adding_operator . 1)) (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))) + ((default . error) (NUMERIC_LITERAL . (unary_adding_operator . 0)) (IDENTIFIER . (unary_adding_operator . 0)) (STRING_LITERAL . (unary_adding_operator . 0)) (CHARACTER_LITERAL . (unary_adding_operator . 0)) (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))) ((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)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (STAR_STAR . (primary . 0))) + ((default . error) (EQUAL_GREATER . 379) (RIGHT_PAREN . (name . 0)) (COMMA . (name . 0)) (STAR_STAR . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (STAR . (name . 0)) (SLASH . (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 . ( 380 (name . 0)))) + ((default . error) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (CASE . 232) (IF . 233) (FOR . 374) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (OTHERS . 175) (ABS . 147) (NOT . 174) (IDENTIFIER . 48) (CHARACTER_LITERAL . 173) (STRING_LITERAL . 49) (NUMERIC_LITERAL . 145) (NULL . 234) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (NUMERIC_LITERAL . 145) (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)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (STAR_STAR . (primary . 1))) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((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)) (SLASH . (primary . 2)) (STAR . (primary . 2)) (MOD . (primary . 2)) (REM . (primary . 2)) (STAR_STAR . (primary . 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)) (SLASH . (term . 0)) (STAR . (term . 0)) (MOD . (term . 0)) (REM . (term . 0))) - ((default . error) (DOT . 87) (OF . (primary . 2)) (COLON_EQUAL . (primary . 2)) (DO . (primary . 2)) (LOOP . (primary . 2)) (BAR . (primary . 2)) (COMMA . (primary . 2)) (ELSIF . (primary . 2)) (ELSE . (primary . 2)) (EQUAL_GREATER . (primary . 2)) (RIGHT_PAREN . (primary . 2)) (DIGITS . (primary . 2)) (RANGE . (primary . 2)) (THEN . (primary . 2)) (DOT_DOT . (primary . 2)) (WITH . (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)) (PLUS . (primary . 2)) (MINUS . (primary . 2)) (AMPERSAND . (primary . 2)) (SEMICOLON . (primary . 2)) (SLASH . (primary . 2)) (STAR . (primary . 2)) (MOD . (primary . 2)) (REM . (primary . 2)) (STAR_STAR . (primary . 2)) (TICK . 88) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (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)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (STAR_STAR . (primary . 3)) (TICK . 88) (LEFT_PAREN . 106)) ((default . error) (RIGHT_PAREN . (pragma_argument_association_list . 0)) (COMMA . (pragma_argument_association_list . 0))) - ((default . error) (COMMA . 363) (RIGHT_PAREN . 364)) - ((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)) (REM . (factor . 1)) (MOD . (factor . 1)) (STAR . (factor . 1)) (SLASH . (factor . 1)) (DOT_DOT . (factor . 1)) (AMPERSAND . (factor . 1)) (MINUS . (factor . 1)) (PLUS . (factor . 1)) (STAR_STAR . 362)) - ((default . error) (AND . 361) (DO . (expression . 1)) (LOOP . (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) (AND . 360) (DO . (expression . 2)) (LOOP . (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) (OR . 359) (DO . (expression . 3)) (LOOP . (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) (OR . 358) (DO . (expression . 4)) (LOOP . (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) (XOR . 357) (DO . (expression . 5)) (LOOP . (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) (XOR . 356) (OR . 355) (AND . 354) (DO . (expression . 0)) (LOOP . (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 . 271) (NOT . 272) (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 . 265) (SLASH_EQUAL . 270) (LESS . 268) (LESS_EQUAL . 269) (GREATER . 266) (GREATER_EQUAL . 267)) - ((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 . 349) (SLASH . 348) (MOD . 350) (REM . 351)) - ((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 . 346) (MINUS . 345) (AMPERSAND . 344)) - ((default . error) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IS . 342)) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((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)) (SLASH . (name . 1)) (STAR . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (STAR_STAR . (name . 1)) (BAR . (name . 1)) (AND . (name . 1)) (OR . (name . 1)) (XOR . (name . 1)) (EQUAL_GREATER . ((name . 1) 287))) - ((default . error) (NULL . 285) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (COMMA . 370) (RIGHT_PAREN . 371)) + ((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)) (REM . (factor . 1)) (MOD . (factor . 1)) (STAR . (factor . 1)) (SLASH . (factor . 1)) (DOT_DOT . (factor . 1)) (AMPERSAND . (factor . 1)) (MINUS . (factor . 1)) (PLUS . (factor . 1)) (STAR_STAR . 369)) + ((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 . ( 368 (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 . ( 367 (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 . ( 366 (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 . ( 365 (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 . ( 364 (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 . ( 363 (expression . 0))) (OR . ( 362 (expression . 0))) (AND . ( 361 (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 . 278) (NOT . 279) (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 . 272) (SLASH_EQUAL . 277) (LESS . 275) (LESS_EQUAL . 276) (GREATER . 273) (GREATER_EQUAL . 274)) + ((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 . 356) (SLASH . 355) (MOD . 357) (REM . 358)) + ((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 . 353) (MINUS . 352) (AMPERSAND . 351)) + ((default . error) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IS . 349)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((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)) (SLASH . (name . 1)) (STAR . (name . 1)) (MOD . (name . 1)) (REM . (name . 1)) (STAR_STAR . (name . 1)) (BAR . (name . 1)) (AND . (name . 1)) (OR . (name . 1)) (XOR . (name . 1)) (EQUAL_GREATER . ((name . 1) 294))) + ((default . error) (NUMERIC_LITERAL . 145) (NULL . 292) (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 . (association_list . 0)) (IS . (association_list . 0)) (RIGHT_PAREN . (association_list . 0)) (COMMA . (association_list . 0))) - ((default . error) (COMMA . 261) (SEMICOLON . (aspect_specification_opt . 1)) (IS . (aspect_specification_opt . 1))) + ((default . error) (COMMA . 268) (SEMICOLON . (aspect_specification_opt . 1)) (IS . (aspect_specification_opt . 1))) ((default . error) (BAR . (discrete_choice . 0)) (EQUAL_GREATER . (discrete_choice . 0))) - ((default . error) (AND . 284) (EQUAL_GREATER . (choice_expression . 1)) (BAR . (choice_expression . 1))) - ((default . error) (OR . 283) (EQUAL_GREATER . (choice_expression . 2)) (BAR . (choice_expression . 2))) - ((default . error) (XOR . 282) (EQUAL_GREATER . (choice_expression . 3)) (BAR . (choice_expression . 3))) - ((default . error) (AND . 281) (EQUAL_GREATER . (choice_expression . 4)) (BAR . (choice_expression . 4))) - ((default . error) (OR . 280) (EQUAL_GREATER . (choice_expression . 5)) (BAR . (choice_expression . 5))) - ((default . error) (XOR . 279) (OR . 278) (AND . 277) (EQUAL_GREATER . (choice_expression . 0)) (BAR . (choice_expression . 0))) + ((default . error) (AND . 291) (EQUAL_GREATER . (choice_expression . 1)) (BAR . (choice_expression . 1))) + ((default . error) (OR . 290) (EQUAL_GREATER . (choice_expression . 2)) (BAR . (choice_expression . 2))) + ((default . error) (XOR . 289) (EQUAL_GREATER . (choice_expression . 3)) (BAR . (choice_expression . 3))) + ((default . error) (AND . 288) (EQUAL_GREATER . (choice_expression . 4)) (BAR . (choice_expression . 4))) + ((default . error) (OR . 287) (EQUAL_GREATER . (choice_expression . 5)) (BAR . (choice_expression . 5))) + ((default . error) (XOR . 286) (OR . 285) (AND . 284) (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 . 275) (EQUAL_GREATER . 276)) + ((default . error) (BAR . 282) (EQUAL_GREATER . 283)) ((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 . 87) (DO . (primary . 2)) (LOOP . (primary . 2)) (ELSIF . (primary . 2)) (ELSE . (primary . 2)) (DIGITS . (primary . 2)) (RANGE . (primary . 2)) (THEN . (primary . 2)) (SEMICOLON . (primary . 2)) (IS . (primary . 2)) (WITH . (primary . 2)) (IN . (primary . 2)) (NOT . (primary . 2)) (RIGHT_PAREN . (primary . 2)) (COMMA . (primary . 2)) (PLUS . (primary . 2)) (MINUS . (primary . 2)) (AMPERSAND . (primary . 2)) (DOT_DOT . (primary . 2)) (SLASH . (primary . 2)) (STAR . (primary . 2)) (MOD . (primary . 2)) (REM . (primary . 2)) (STAR_STAR . (primary . 2)) (BAR . (primary . 2)) (EQUAL_GREATER . (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)) (TICK . 274) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (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)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (MOD . (primary . 3)) (REM . (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 . 281) (LEFT_PAREN . 106)) ((default . error) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2))) - ((default . error) (IN . 271) (NOT . 272) (SEMICOLON . (relation . 0)) (IS . (relation . 0)) (WITH . (relation . 0)) (RIGHT_PAREN . (relation . 0)) (COMMA . (relation . 0)) (DOT_DOT . 264) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . ((relation . 0) (choice_relation . 1))) (OR . ((relation . 0) (choice_relation . 1))) (XOR . ((relation . 0) (choice_relation . 1))) (EQUAL . 265) (SLASH_EQUAL . 270) (LESS . 268) (LESS_EQUAL . 269) (GREATER . 266) (GREATER_EQUAL . 267)) + ((default . error) (IN . 278) (NOT . 279) (SEMICOLON . (relation . 0)) (IS . (relation . 0)) (WITH . (relation . 0)) (RIGHT_PAREN . (relation . 0)) (COMMA . (relation . 0)) (DOT_DOT . 271) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . ((relation . 0) (choice_relation . 1))) (OR . ((relation . 0) (choice_relation . 1))) (XOR . ((relation . 0) (choice_relation . 1))) (EQUAL . 272) (SLASH_EQUAL . 277) (LESS . 275) (LESS_EQUAL . 276) (GREATER . 273) (GREATER_EQUAL . 274)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) - ((default . error) (COMMA . 261) (RIGHT_PAREN . 262)) - ((default . error) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2)) (RIGHT_PAREN . 260)) + ((default . error) (COMMA . 268) (RIGHT_PAREN . 269)) + ((default . error) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2)) (RIGHT_PAREN . 267)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (COMMA . 119) (SEMICOLON . 258)) + ((default . error) (COMMA . 119) (SEMICOLON . 265)) ((default . error) ($EOI . (with_clause . 1)) (FUNCTION . (with_clause . 1)) (GENERIC . (with_clause . 1)) (LIMITED . (with_clause . 1)) (NOT . (with_clause . 1)) (OVERRIDING . (with_clause . 1)) (PACKAGE . (with_clause . 1)) (PRAGMA . (with_clause . 1)) (PRIVATE . (with_clause . 1)) (PROCEDURE . (with_clause . 1)) (SEPARATE . (with_clause . 1)) (USE . (with_clause . 1)) (WITH . (with_clause . 1))) ((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) (BOX . 251) (SEMICOLON . (discriminant_specification_opt . 0)) (RIGHT_PAREN . (discriminant_specification_opt . 0)) (IDENTIFIER . 72)) - ((default . error) (IS . 249) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (ABSTRACT . 245) (BOX . 244) (NULL . 246) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 243)) - ((default . error) (DOT . 87) (TICK . 88) (IS . 242) (LEFT_PAREN . 106)) + ((default . error) (BOX . 258) (SEMICOLON . (discriminant_specification_opt . 0)) (RIGHT_PAREN . (discriminant_specification_opt . 0)) (IDENTIFIER . 72)) + ((default . error) (IS . 256) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) + ((default . error) (ABSTRACT . 252) (BOX . 251) (NULL . 253) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . 250)) + ((default . error) (DOT . 87) (TICK . 88) (IS . 249) (LEFT_PAREN . 106)) ((default . error) (COLON . (identifier_list . 1)) (COMMA . (identifier_list . 1))) - ((default . error) (OUT . 241) (ACCESS . (mode_opt . 1)) (NOT . (mode_opt . 1)) (IDENTIFIER . (mode_opt . 1)) (STRING_LITERAL . (mode_opt . 1)) (CHARACTER_LITERAL . (mode_opt . 1))) + ((default . error) (OUT . 248) (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 . 208)) - ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (RIGHT_PAREN . (null_exclusion_opt . 0)) (DO . (null_exclusion_opt . 0)) (RENAMES . (null_exclusion_opt . 0)) (COLON_EQUAL . (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 . 208)) - ((default . error) (NULL . 236)) + ((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 . 211)) + ((default . error) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (RIGHT_PAREN . (null_exclusion_opt . 0)) (DO . (null_exclusion_opt . 0)) (RENAMES . (null_exclusion_opt . 0)) (COLON_EQUAL . (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 . 211)) + ((default . error) (NULL . 243)) ((default . error) (RIGHT_PAREN . (parameter_and_result_profile . 3)) (DO . (parameter_and_result_profile . 3)) (RENAMES . (parameter_and_result_profile . 3)) (COLON_EQUAL . (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) (DOT . 87) (RIGHT_PAREN . (name_opt . 1)) (DO . (name_opt . 1)) (RENAMES . (name_opt . 1)) (COLON_EQUAL . (name_opt . 1)) (WITH . (name_opt . 1)) (IS . (name_opt . 1)) (SEMICOLON . (name_opt . 1)) (TICK . 88) (LEFT_PAREN . 106)) ((default . error) (RIGHT_PAREN . (parameter_and_result_profile . 1)) (DO . (parameter_and_result_profile . 1)) (RENAMES . (parameter_and_result_profile . 1)) (COLON_EQUAL . (parameter_and_result_profile . 1)) (WITH . (parameter_and_result_profile . 1)) (SEMICOLON . (parameter_and_result_profile . 1)) (IS . (parameter_and_result_profile . 1))) - ((default . error) (ACCESS . 235)) + ((default . error) (ACCESS . 242)) ((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)) (SLASH . (name . 0)) (STAR . (name . 0)) (MOD . (name . 0)) (REM . (name . 0)) (STAR_STAR . (name . 0)) (COLON . (identifier_list . 0)) (COMMA . ((name . 0) (identifier_list . 0)))) - ((default . error) (COLON . 234) (COMMA . 95)) + ((default . error) (COLON . 241) (COMMA . 95)) ((default . error) (RIGHT_PAREN . (parameter_specification_list . 0)) (SEMICOLON . (parameter_specification_list . 0))) - ((default . error) (SEMICOLON . 232) (RIGHT_PAREN . 233)) + ((default . error) (SEMICOLON . 239) (RIGHT_PAREN . 240)) ((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)) (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)) (CHARACTER_LITERAL . (attribute_designator . 1)) (STRING_LITERAL . (attribute_designator . 1)) (IDENTIFIER . (attribute_designator . 1)) (LESS_LESS . (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)) (SLASH . (attribute_designator . 1)) (STAR . (attribute_designator . 1)) (MOD . (attribute_designator . 1)) (REM . (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)) (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)) (CHARACTER_LITERAL . (attribute_designator . 2)) (STRING_LITERAL . (attribute_designator . 2)) (IDENTIFIER . (attribute_designator . 2)) (LESS_LESS . (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)) (SLASH . (attribute_designator . 2)) (STAR . (attribute_designator . 2)) (MOD . (attribute_designator . 2)) (REM . (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)) (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)) (CHARACTER_LITERAL . (attribute_designator . 3)) (STRING_LITERAL . (attribute_designator . 3)) (IDENTIFIER . (attribute_designator . 3)) (LESS_LESS . (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)) (SLASH . (attribute_designator . 3)) (STAR . (attribute_designator . 3)) (MOD . (attribute_designator . 3)) (REM . (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) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 172) (ABS . 146) (NOT . 171) (IDENTIFIER . 48) (CHARACTER_LITERAL . 170) (STRING_LITERAL . 49) (NULL . 229) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (CASE . 232) (IF . 233) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (OTHERS . 175) (ABS . 147) (NOT . 174) (IDENTIFIER . 48) (CHARACTER_LITERAL . 173) (STRING_LITERAL . 49) (NUMERIC_LITERAL . 145) (NULL . 234) (NEW . 149) (LEFT_PAREN . 148)) ((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)) (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)) (CHARACTER_LITERAL . (attribute_designator . 4)) (STRING_LITERAL . (attribute_designator . 4)) (IDENTIFIER . (attribute_designator . 4)) (LESS_LESS . (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)) (SLASH . (attribute_designator . 4)) (STAR . (attribute_designator . 4)) (MOD . (attribute_designator . 4)) (REM . (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)) (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)) (CHARACTER_LITERAL . (qualified_expression . 0)) (STRING_LITERAL . (qualified_expression . 0)) (IDENTIFIER . (qualified_expression . 0)) (LESS_LESS . (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)) (SLASH . (qualified_expression . 0)) (STAR . (qualified_expression . 0)) (MOD . (qualified_expression . 0)) (REM . (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)) (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)) (CHARACTER_LITERAL . (attribute_reference . 0)) (STRING_LITERAL . (attribute_reference . 0)) (IDENTIFIER . (attribute_reference . 0)) (LESS_LESS . (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)) (SLASH . (attribute_reference . 0)) (STAR . (attribute_reference . 0)) (MOD . (attribute_reference . 0)) (REM . (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))) @@ -1966,80 +2027,84 @@ ((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)) (SLASH . (selected_component . 2)) (STAR . (selected_component . 2)) (MOD . (selected_component . 2)) (REM . (selected_component . 2)) (STAR_STAR . (selected_component . 2)) (USE . (selected_component . 2)) (COLON_EQUAL . (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)) (CHARACTER_LITERAL . (selected_component . 2)) (STRING_LITERAL . (selected_component . 2)) (IDENTIFIER . (selected_component . 2)) (LESS_LESS . (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)) (SLASH . (selected_component . 1)) (STAR . (selected_component . 1)) (MOD . (selected_component . 1)) (REM . (selected_component . 1)) (STAR_STAR . (selected_component . 1)) (USE . (selected_component . 1)) (COLON_EQUAL . (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)) (CHARACTER_LITERAL . (selected_component . 1)) (STRING_LITERAL . (selected_component . 1)) (IDENTIFIER . (selected_component . 1)) (LESS_LESS . (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) (DO . (selected_component . 3)) (RIGHT_PAREN . (selected_component . 3)) (BAR . (selected_component . 3)) (ELSIF . (selected_component . 3)) (ELSE . (selected_component . 3)) (EQUAL_GREATER . (selected_component . 3)) (DIGITS . (selected_component . 3)) (RANGE . (selected_component . 3)) (THEN . (selected_component . 3)) (DOT_DOT . (selected_component . 3)) (IN . (selected_component . 3)) (NOT . (selected_component . 3)) (EQUAL . (selected_component . 3)) (GREATER . (selected_component . 3)) (GREATER_EQUAL . (selected_component . 3)) (LESS . (selected_component . 3)) (LESS_EQUAL . (selected_component . 3)) (SLASH_EQUAL . (selected_component . 3)) (AND . (selected_component . 3)) (OR . (selected_component . 3)) (XOR . (selected_component . 3)) (PLUS . (selected_component . 3)) (MINUS . (selected_component . 3)) (AMPERSAND . (selected_component . 3)) (SLASH . (selected_component . 3)) (STAR . (selected_component . 3)) (MOD . (selected_component . 3)) (REM . (selected_component . 3)) (STAR_STAR . (selected_component . 3)) (USE . (selected_component . 3)) (COLON_EQUAL . (selected_component . 3)) (WHILE . (selected_component . 3)) (SELECT . (selected_component . 3)) (REQUEUE . (selected_component . 3)) (RAISE . (selected_component . 3)) (PRAGMA . (selected_component . 3)) (NULL . (selected_component . 3)) (LOOP . (selected_component . 3)) (IF . (selected_component . 3)) (GOTO . (selected_component . 3)) (FOR . (selected_component . 3)) (EXIT . (selected_component . 3)) (DELAY . (selected_component . 3)) (DECLARE . (selected_component . 3)) (CASE . (selected_component . 3)) (BEGIN . (selected_component . 3)) (ABORT . (selected_component . 3)) (ACCEPT . (selected_component . 3)) (CHARACTER_LITERAL . (selected_component . 3)) (STRING_LITERAL . (selected_component . 3)) (IDENTIFIER . (selected_component . 3)) (LESS_LESS . (selected_component . 3)) (OF . (selected_component . 3)) (LEFT_PAREN . (selected_component . 3)) (SEMICOLON . (selected_component . 3)) (COMMA . (selected_component . 3)) (DOT . (selected_component . 3)) (TICK . (selected_component . 3)) (WITH . (selected_component . 3)) (IS . (selected_component . 3)) (RENAMES . (selected_component . 3)) (RETURN . (selected_component . 3))) - ((default . error) (DOT_DOT . (primary . 0)) (RIGHT_PAREN . (primary . 0)) (COMMA . (primary . 0)) (BAR . (primary . 0)) (EQUAL_GREATER . (primary . 0)) (PLUS . (primary . 0)) (MINUS . (primary . 0)) (AMPERSAND . (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)) (WITH . (primary . 0)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (STAR_STAR . (primary . 0)) (AND . (primary . 0)) (OR . (primary . 0)) (XOR . (primary . 0)) (RECORD . 517)) - ((default . error) (COMMA . 261) (RIGHT_PAREN . 516)) - ((default . error) (RIGHT_PAREN . (expression_opt . 1)) (COMMA . (expression_opt . 1)) (WITH . 515)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((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)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (STAR_STAR . (primary . 1)) (AND . (primary . 1)) (OR . (primary . 1)) (XOR . (primary . 1)) (RECORD . 524)) + ((default . error) (COMMA . 268) (RIGHT_PAREN . 523)) + ((default . error) (RIGHT_PAREN . 522)) + ((default . error) (RIGHT_PAREN . (expression_opt . 1)) (COMMA . (expression_opt . 1)) (WITH . 521)) + ((default . error) (RIGHT_PAREN . 520)) ((default . error) (IDENTIFIER . 72)) ((default . error) (RIGHT_PAREN . (formal_part . 0)) (COLON_EQUAL . (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) (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 . 512)) - ((default . error) (FUNCTION . (protected_opt . 0)) (PROCEDURE . (protected_opt . 0)) (PROTECTED . 509) (IDENTIFIER . (general_access_modifier_opt . 0)) (STRING_LITERAL . (general_access_modifier_opt . 0)) (CHARACTER_LITERAL . (general_access_modifier_opt . 0)) (ALL . 507) (CONSTANT . 508)) + ((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 . 517)) + ((default . error) (FUNCTION . (protected_opt . 0)) (PROCEDURE . (protected_opt . 0)) (PROTECTED . 514) (IDENTIFIER . (general_access_modifier_opt . 0)) (STRING_LITERAL . (general_access_modifier_opt . 0)) (CHARACTER_LITERAL . (general_access_modifier_opt . 0)) (ALL . 512) (CONSTANT . 513)) ((default . error) (RIGHT_PAREN . (null_exclusion_opt . 1)) (DO . (null_exclusion_opt . 1)) (RENAMES . (null_exclusion_opt . 1)) (COLON_EQUAL . (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)) (WITH . (null_exclusion_opt . 1)) (SEMICOLON . (null_exclusion_opt . 1)) (IS . (null_exclusion_opt . 1))) ((default . error) (DO . (parameter_and_result_profile . 2)) (RIGHT_PAREN . (parameter_and_result_profile . 2)) (COLON_EQUAL . (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)) (COLON_EQUAL . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (DO . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (COLON_EQUAL . 504) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((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)) (COLON_EQUAL . (name_opt . 0)) (RIGHT_PAREN . (name_opt . 0)) (DO . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (COLON_EQUAL . 509) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) + ((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 . 502)) + ((default . error) (NEW . 507)) ((default . error) (WITH . (formal_subprogram_declaration . 1)) (TYPE . (formal_subprogram_declaration . 1)) (PRAGMA . (formal_subprogram_declaration . 1)) (IDENTIFIER . (formal_subprogram_declaration . 1)) (FUNCTION . (formal_subprogram_declaration . 1)) (PROCEDURE . (formal_subprogram_declaration . 1)) (PACKAGE . (formal_subprogram_declaration . 1))) ((default . error) (WITH . (subprogram_default . 1)) (SEMICOLON . (subprogram_default . 1))) - ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (BOX . 244) (NULL . 246) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (BOX . 251) (NULL . 253) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (WITH . (subprogram_default . 2)) (SEMICOLON . (subprogram_default . 2))) ((default . error) (WITH . (subprogram_default . 0)) (SEMICOLON . (subprogram_default . 0)) (DOT . 87) (TICK . 88) (LEFT_PAREN . 106)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (LEFT_PAREN . 484) (RANGE . 488) (MOD . 486) (DIGITS . 482) (DELTA . 481) (TASK . 491) (PROTECTED . 487) (INTERFACE . 483) (ARRAY . 480) (PRIVATE . (abstract_tagged_limited_opt . 0)) (TAGGED . 490) (NEW . (abstract_limited_synchronized_opt . 0)) (ABSTRACT . 479) (LIMITED . 485) (SYNCHRONIZED . 489) (ACCESS . (null_exclusion_opt . 0)) (NOT . 208)) - ((default . error) (SEMICOLON . 478)) - ((default . error) (RIGHT_PAREN . 477)) + ((default . error) (LEFT_PAREN . 489) (RANGE . 493) (MOD . 491) (DIGITS . 487) (DELTA . 486) (TASK . 496) (PROTECTED . 492) (INTERFACE . 488) (ARRAY . 485) (PRIVATE . (abstract_tagged_limited_opt . 0)) (TAGGED . 495) (NEW . (abstract_limited_synchronized_opt . 0)) (ABSTRACT . 484) (LIMITED . 490) (SYNCHRONIZED . 494) (ACCESS . (null_exclusion_opt . 0)) (NOT . 211)) + ((default . error) (SEMICOLON . 483)) + ((default . error) (RIGHT_PAREN . 482)) ((default . error) (RIGHT_PAREN . (discriminant_specification_list . 0)) (SEMICOLON . (discriminant_specification_list . 0))) - ((default . error) (SEMICOLON . 475) (RIGHT_PAREN . 476)) - ((default . error) (COMMA . 95) (COLON . 474)) + ((default . error) (SEMICOLON . 480) (RIGHT_PAREN . 481)) + ((default . error) (COMMA . 95) (COLON . 479)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) ((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 . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) ((default . error) (DO . (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)) (CHARACTER_LITERAL . (name . 2)) (STRING_LITERAL . (name . 2)) (IDENTIFIER . (name . 2)) (LESS_LESS . (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)) (STAR_STAR . (name . 2)) (REM . (name . 2)) (MOD . (name . 2)) (STAR . (name . 2)) (SLASH . (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)) (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) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (IS . ((association_opt . 0) (expression_opt . 0))) (SEMICOLON . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 170) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (IS . ((association_opt . 0) (expression_opt . 0))) (SEMICOLON . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 173) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (STAR_STAR . (actual_parameter_part . 0)) (REM . (actual_parameter_part . 0)) (MOD . (actual_parameter_part . 0)) (STAR . (actual_parameter_part . 0)) (SLASH . (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)) (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)) (CHARACTER_LITERAL . (actual_parameter_part . 0)) (STRING_LITERAL . (actual_parameter_part . 0)) (IDENTIFIER . (actual_parameter_part . 0)) (LESS_LESS . (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) (SEMICOLON . 468)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (MINUS . (relational_operator . 0)) (PLUS . (relational_operator . 0)) (IDENTIFIER . (relational_operator . 0)) (STRING_LITERAL . (relational_operator . 0)) (CHARACTER_LITERAL . (relational_operator . 0)) (ABS . (relational_operator . 0)) (LEFT_PAREN . (relational_operator . 0)) (NEW . (relational_operator . 0)) (NOT . (relational_operator . 0)) (NULL . (relational_operator . 0))) - ((default . error) (MINUS . (relational_operator . 4)) (PLUS . (relational_operator . 4)) (IDENTIFIER . (relational_operator . 4)) (STRING_LITERAL . (relational_operator . 4)) (CHARACTER_LITERAL . (relational_operator . 4)) (ABS . (relational_operator . 4)) (LEFT_PAREN . (relational_operator . 4)) (NEW . (relational_operator . 4)) (NOT . (relational_operator . 4)) (NULL . (relational_operator . 4))) - ((default . error) (MINUS . (relational_operator . 5)) (PLUS . (relational_operator . 5)) (IDENTIFIER . (relational_operator . 5)) (STRING_LITERAL . (relational_operator . 5)) (CHARACTER_LITERAL . (relational_operator . 5)) (ABS . (relational_operator . 5)) (LEFT_PAREN . (relational_operator . 5)) (NEW . (relational_operator . 5)) (NOT . (relational_operator . 5)) (NULL . (relational_operator . 5))) - ((default . error) (MINUS . (relational_operator . 2)) (PLUS . (relational_operator . 2)) (IDENTIFIER . (relational_operator . 2)) (STRING_LITERAL . (relational_operator . 2)) (CHARACTER_LITERAL . (relational_operator . 2)) (ABS . (relational_operator . 2)) (LEFT_PAREN . (relational_operator . 2)) (NEW . (relational_operator . 2)) (NOT . (relational_operator . 2)) (NULL . (relational_operator . 2))) - ((default . error) (MINUS . (relational_operator . 3)) (PLUS . (relational_operator . 3)) (IDENTIFIER . (relational_operator . 3)) (STRING_LITERAL . (relational_operator . 3)) (CHARACTER_LITERAL . (relational_operator . 3)) (ABS . (relational_operator . 3)) (LEFT_PAREN . (relational_operator . 3)) (NEW . (relational_operator . 3)) (NOT . (relational_operator . 3)) (NULL . (relational_operator . 3))) - ((default . error) (MINUS . (relational_operator . 1)) (PLUS . (relational_operator . 1)) (IDENTIFIER . (relational_operator . 1)) (STRING_LITERAL . (relational_operator . 1)) (CHARACTER_LITERAL . (relational_operator . 1)) (ABS . (relational_operator . 1)) (LEFT_PAREN . (relational_operator . 1)) (NEW . (relational_operator . 1)) (NOT . (relational_operator . 1)) (NULL . (relational_operator . 1))) - ((default . error) (PLUS . 144) (MINUS . 143) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (IN . 462)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (RANGE . 460) (LEFT_PAREN . 220) (ACCESS . 217) (DELTA . 218) (DIGITS . 219) (MOD . 221) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (BOX . 456) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (THEN . 454) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ELSE . 452) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ELSE . 450)) - ((default . error) (THEN . 449)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (XOR . (primary . 0)) (OR . (primary . 0)) (AND . (primary . 0)) (SLASH_EQUAL . (primary . 0)) (LESS_EQUAL . (primary . 0)) (LESS . (primary . 0)) (GREATER_EQUAL . (primary . 0)) (GREATER . (primary . 0)) (EQUAL . (primary . 0)) (EQUAL_GREATER . (primary . 0)) (BAR . (primary . 0)) (PLUS . (primary . 0)) (MINUS . (primary . 0)) (AMPERSAND . (primary . 0)) (DOT_DOT . (primary . 0)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (IN . (primary . 0)) (NOT . (primary . 0)) (RIGHT_PAREN . (primary . 0)) (COMMA . (primary . 0)) (WITH . (primary . 0)) (IS . (primary . 0)) (SEMICOLON . (primary . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . 473)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (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)) (ABS . (relational_operator . 0)) (LEFT_PAREN . (relational_operator . 0)) (NEW . (relational_operator . 0)) (NOT . (relational_operator . 0)) (NULL . (relational_operator . 0))) + ((default . error) (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)) (ABS . (relational_operator . 4)) (LEFT_PAREN . (relational_operator . 4)) (NEW . (relational_operator . 4)) (NOT . (relational_operator . 4)) (NULL . (relational_operator . 4))) + ((default . error) (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)) (ABS . (relational_operator . 5)) (LEFT_PAREN . (relational_operator . 5)) (NEW . (relational_operator . 5)) (NOT . (relational_operator . 5)) (NULL . (relational_operator . 5))) + ((default . error) (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)) (ABS . (relational_operator . 2)) (LEFT_PAREN . (relational_operator . 2)) (NEW . (relational_operator . 2)) (NOT . (relational_operator . 2)) (NULL . (relational_operator . 2))) + ((default . error) (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)) (ABS . (relational_operator . 3)) (LEFT_PAREN . (relational_operator . 3)) (NEW . (relational_operator . 3)) (NOT . (relational_operator . 3)) (NULL . (relational_operator . 3))) + ((default . error) (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)) (ABS . (relational_operator . 1)) (LEFT_PAREN . (relational_operator . 1)) (NEW . (relational_operator . 1)) (NOT . (relational_operator . 1)) (NULL . (relational_operator . 1))) + ((default . error) (PLUS . 144) (MINUS . 143) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (IN . 467)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RANGE . 465) (LEFT_PAREN . 223) (ACCESS . 220) (DELTA . 221) (DIGITS . 222) (MOD . 224) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (BOX . 461) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (THEN . 459) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 457) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 455)) + ((default . error) (THEN . 454)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (MOD . (primary . 1)) (REM . (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)) (SLASH . (factor . 3)) (STAR . (factor . 3)) (MOD . (factor . 3)) (REM . (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) (BOX . 442) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (COLON . ( 441 (identifier_list . 0))) (COMMA . (identifier_list . 0))) - ((default . error) (IDENTIFIER . 436) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 437)) - ((default . error) (BODY . 435) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (IDENTIFIER . 432) (TYPE . 434) (BODY . 433)) - ((default . error) (IDENTIFIER . 431)) - ((default . error) (TYPE . 430) (BODY . 429) (IDENTIFIER . 428)) - ((default . error) (IDENTIFIER . 427)) + ((default . error) (BOX . 447) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (COLON . ( 446 (identifier_list . 0))) (COMMA . (identifier_list . 0))) + ((default . error) (IDENTIFIER . 441) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 442)) + ((default . error) (BODY . 440) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (IDENTIFIER . 437) (TYPE . 439) (BODY . 438)) + ((default . error) (IDENTIFIER . 436)) + ((default . error) (TYPE . 435) (BODY . 434) (IDENTIFIER . 433)) + ((default . error) (IDENTIFIER . 432)) ((default . error) (END . (declaration . 0)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 0)) (BEGIN . (declaration . 0))) ((default . error) (END . (declaration . 1)) (PRIVATE . (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)) (IDENTIFIER . (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)) (IDENTIFIER . (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))) ((default . error) (END . (declaration . 2)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 2)) (BEGIN . (declaration . 2))) ((default . error) (PRIVATE . (body . 1)) (END . (body . 1)) (BEGIN . (body . 1)) (IDENTIFIER . (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))) ((default . error) (PRIVATE . (declarations . 0)) (END . (declarations . 0)) (BEGIN . (declarations . 0)) (IDENTIFIER . (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))) - ((default . error) (END . (declarative_part_opt . 1)) (PRIVATE . (declarative_part_opt . 1)) (BEGIN . (declarative_part_opt . 1)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (END . 424) (PRIVATE . 425)) + ((default . error) (END . (declarative_part_opt . 1)) (PRIVATE . (declarative_part_opt . 1)) (BEGIN . (declarative_part_opt . 1)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (END . 429) (PRIVATE . 430)) ((default . error) (END . (declaration . 3)) (PRIVATE . (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)) (IDENTIFIER . (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)) (IDENTIFIER . (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))) ((default . error) (END . (declaration . 4)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 4)) (BEGIN . (declaration . 4))) @@ -2048,12 +2113,12 @@ ((default . error) (END . (declaration . 6)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 6)) (BEGIN . (declaration . 6))) ((default . error) (END . (declaration . 7)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 7)) (BEGIN . (declaration . 7))) ((default . error) (PRIVATE . (renaming_declaration . 3)) (END . (renaming_declaration . 3)) (BEGIN . (renaming_declaration . 3)) (IDENTIFIER . (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))) - ((default . error) (COMMA . 95) (COLON . 423)) + ((default . error) (COMMA . 95) (COLON . 428)) ((default . error) (PRIVATE . (type_declaration . 1)) (END . (type_declaration . 1)) (BEGIN . (type_declaration . 1)) (IDENTIFIER . (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))) ((default . error) (END . (declaration . 8)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 8)) (BEGIN . (declaration . 8))) ((default . error) (END . (declaration . 10)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 10)) (BEGIN . (declaration . 10))) ((default . error) (PRIVATE . (renaming_declaration . 0)) (END . (renaming_declaration . 0)) (BEGIN . (renaming_declaration . 0)) (IDENTIFIER . (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))) - ((default . error) (ENTRY . 419) (FUNCTION . 40) (PROCEDURE . 41)) + ((default . error) (ENTRY . 424) (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)) (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)) (IDENTIFIER . (proper_body . 1)) (BEGIN . (proper_body . 1))) ((default . error) (END . (body_stub . 1)) (PRIVATE . (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)) (IDENTIFIER . (body_stub . 1)) (BEGIN . (body_stub . 1))) ((default . error) (END . (declaration . 11)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 11)) (BEGIN . (declaration . 11))) @@ -2079,293 +2144,295 @@ ((default . error) (END . (full_type_declaration . 1)) (PRIVATE . (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)) (IDENTIFIER . (full_type_declaration . 1)) (BEGIN . (full_type_declaration . 1))) ((default . error) (END . (declaration . 16)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 16)) (BEGIN . (declaration . 16))) ((default . error) (END . (declaration . 17)) (PRIVATE . (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)) (IDENTIFIER . (declaration . 17)) (BEGIN . (declaration . 17))) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((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 . 346) (MINUS . 345) (AMPERSAND . 344)) - ((default . error) (IDENTIFIER . (binary_adding_operator . 2)) (STRING_LITERAL . (binary_adding_operator . 2)) (CHARACTER_LITERAL . (binary_adding_operator . 2)) (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))) - ((default . error) (IDENTIFIER . (binary_adding_operator . 1)) (STRING_LITERAL . (binary_adding_operator . 1)) (CHARACTER_LITERAL . (binary_adding_operator . 1)) (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))) - ((default . error) (IDENTIFIER . (binary_adding_operator . 0)) (STRING_LITERAL . (binary_adding_operator . 0)) (CHARACTER_LITERAL . (binary_adding_operator . 0)) (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))) - ((default . error) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IDENTIFIER . (multiplying_operator . 1)) (STRING_LITERAL . (multiplying_operator . 1)) (CHARACTER_LITERAL . (multiplying_operator . 1)) (ABS . (multiplying_operator . 1)) (LEFT_PAREN . (multiplying_operator . 1)) (NEW . (multiplying_operator . 1)) (NOT . (multiplying_operator . 1)) (NULL . (multiplying_operator . 1))) - ((default . error) (IDENTIFIER . (multiplying_operator . 0)) (STRING_LITERAL . (multiplying_operator . 0)) (CHARACTER_LITERAL . (multiplying_operator . 0)) (ABS . (multiplying_operator . 0)) (LEFT_PAREN . (multiplying_operator . 0)) (NEW . (multiplying_operator . 0)) (NOT . (multiplying_operator . 0)) (NULL . (multiplying_operator . 0))) - ((default . error) (IDENTIFIER . (multiplying_operator . 2)) (STRING_LITERAL . (multiplying_operator . 2)) (CHARACTER_LITERAL . (multiplying_operator . 2)) (ABS . (multiplying_operator . 2)) (LEFT_PAREN . (multiplying_operator . 2)) (NEW . (multiplying_operator . 2)) (NOT . (multiplying_operator . 2)) (NULL . (multiplying_operator . 2))) - ((default . error) (IDENTIFIER . (multiplying_operator . 3)) (STRING_LITERAL . (multiplying_operator . 3)) (CHARACTER_LITERAL . (multiplying_operator . 3)) (ABS . (multiplying_operator . 3)) (LEFT_PAREN . (multiplying_operator . 3)) (NEW . (multiplying_operator . 3)) (NOT . (multiplying_operator . 3)) (NULL . (multiplying_operator . 3))) - ((default . error) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (THEN . 413) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ELSE . 411) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ELSE . 408)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (THEN . 406)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 145) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 402)) - ((default . error) (DOT . 87) (TICK . 88) (COLON_EQUAL . (primary . 3)) (OF . (primary . 3)) (LOOP . (primary . 3)) (DO . (primary . 3)) (STAR_STAR . (primary . 3)) (REM . (primary . 3)) (MOD . (primary . 3)) (STAR . (primary . 3)) (SLASH . (primary . 3)) (DOT_DOT . (primary . 3)) (AMPERSAND . (primary . 3)) (MINUS . (primary . 3)) (PLUS . (primary . 3)) (SEMICOLON . (primary . 3)) (XOR . (primary . 3)) (OR . (primary . 3)) (AND . (primary . 3)) (SLASH_EQUAL . (primary . 3)) (LESS_EQUAL . (primary . 3)) (LESS . (primary . 3)) (GREATER_EQUAL . (primary . 3)) (GREATER . (primary . 3)) (EQUAL . (primary . 3)) (NOT . (primary . 3)) (IN . (primary . 3)) (IS . (primary . 3)) (EQUAL_GREATER . (primary . 3)) (BAR . (primary . 3)) (WITH . (primary . 3)) (THEN . (primary . 3)) (RANGE . (primary . 3)) (COMMA . (primary . 3)) (RIGHT_PAREN . (primary . 3)) (DIGITS . (primary . 3)) (ELSE . (primary . 3)) (ELSIF . (primary . 3)) (LEFT_PAREN . 106)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ALL . 398) (SOME . 399)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (RIGHT_PAREN . 396)) - ((default . error) (RIGHT_PAREN . 395)) - ((default . error) (RIGHT_PAREN . 394)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((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 . 353) (MINUS . 352) (AMPERSAND . 351)) + ((default . error) (NUMERIC_LITERAL . (binary_adding_operator . 2)) (IDENTIFIER . (binary_adding_operator . 2)) (STRING_LITERAL . (binary_adding_operator . 2)) (CHARACTER_LITERAL . (binary_adding_operator . 2)) (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))) + ((default . error) (NUMERIC_LITERAL . (binary_adding_operator . 1)) (IDENTIFIER . (binary_adding_operator . 1)) (STRING_LITERAL . (binary_adding_operator . 1)) (CHARACTER_LITERAL . (binary_adding_operator . 1)) (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))) + ((default . error) (NUMERIC_LITERAL . (binary_adding_operator . 0)) (IDENTIFIER . (binary_adding_operator . 0)) (STRING_LITERAL . (binary_adding_operator . 0)) (CHARACTER_LITERAL . (binary_adding_operator . 0)) (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))) + ((default . error) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (NUMERIC_LITERAL . (multiplying_operator . 1)) (IDENTIFIER . (multiplying_operator . 1)) (STRING_LITERAL . (multiplying_operator . 1)) (CHARACTER_LITERAL . (multiplying_operator . 1)) (ABS . (multiplying_operator . 1)) (LEFT_PAREN . (multiplying_operator . 1)) (NEW . (multiplying_operator . 1)) (NOT . (multiplying_operator . 1)) (NULL . (multiplying_operator . 1))) + ((default . error) (NUMERIC_LITERAL . (multiplying_operator . 0)) (IDENTIFIER . (multiplying_operator . 0)) (STRING_LITERAL . (multiplying_operator . 0)) (CHARACTER_LITERAL . (multiplying_operator . 0)) (ABS . (multiplying_operator . 0)) (LEFT_PAREN . (multiplying_operator . 0)) (NEW . (multiplying_operator . 0)) (NOT . (multiplying_operator . 0)) (NULL . (multiplying_operator . 0))) + ((default . error) (NUMERIC_LITERAL . (multiplying_operator . 2)) (IDENTIFIER . (multiplying_operator . 2)) (STRING_LITERAL . (multiplying_operator . 2)) (CHARACTER_LITERAL . (multiplying_operator . 2)) (ABS . (multiplying_operator . 2)) (LEFT_PAREN . (multiplying_operator . 2)) (NEW . (multiplying_operator . 2)) (NOT . (multiplying_operator . 2)) (NULL . (multiplying_operator . 2))) + ((default . error) (NUMERIC_LITERAL . (multiplying_operator . 3)) (IDENTIFIER . (multiplying_operator . 3)) (STRING_LITERAL . (multiplying_operator . 3)) (CHARACTER_LITERAL . (multiplying_operator . 3)) (ABS . (multiplying_operator . 3)) (LEFT_PAREN . (multiplying_operator . 3)) (NEW . (multiplying_operator . 3)) (NOT . (multiplying_operator . 3)) (NULL . (multiplying_operator . 3))) + ((default . error) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (THEN . 418) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 416) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ELSE . 413)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (THEN . 411)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 146) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 407)) + ((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 . 87) (TICK . 88) (WITH . ((raise_expression . 0) 406)) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (TICK . 88) (COLON_EQUAL . (primary . 4)) (OF . (primary . 4)) (LOOP . (primary . 4)) (DO . (primary . 4)) (STAR_STAR . (primary . 4)) (REM . (primary . 4)) (MOD . (primary . 4)) (STAR . (primary . 4)) (SLASH . (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 . 106)) + ((default . error) (ALL . 403) (SOME . 404)) + ((default . error) (RIGHT_PAREN . 402)) + ((default . error) (RIGHT_PAREN . 401)) + ((default . error) (RIGHT_PAREN . 400)) ((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)) (SLASH . (factor . 2)) (STAR . (factor . 2)) (MOD . (factor . 2)) (REM . (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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IDENTIFIER . 392)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 398)) ((default . error) (BODY . 67)) - ((default . error) (BODY . 391)) - ((default . error) (BODY . 390)) + ((default . error) (BODY . 397)) + ((default . error) (BODY . 396)) ((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) (WITH . (use_clause . 1)) (SEPARATE . (use_clause . 1)) (LIMITED . (use_clause . 1)) ($EOI . (use_clause . 1)) (PRIVATE . (use_clause . 1)) (END . (use_clause . 1)) (BEGIN . (use_clause . 1)) (IDENTIFIER . (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))) - ((default . error) (SEMICOLON . 388)) - ((default . error) (BEGIN . 387)) + ((default . error) (SEMICOLON . 394)) + ((default . error) (BEGIN . 393)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((default . error) (BEGIN . (subprogram_renaming_declaration . 0)) (IDENTIFIER . (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)) (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 . 108)) - ((default . error) (IDENTIFIER . 608)) - ((default . error) (IDENTIFIER . 607)) - ((default . error) (EQUAL_GREATER . 606)) + ((default . error) (IDENTIFIER . 617)) + ((default . error) (IDENTIFIER . 616)) + ((default . error) (EQUAL_GREATER . 615)) ((default . error) (COMMA . (pragma_argument_association . 0)) (RIGHT_PAREN . (pragma_argument_association . 0))) - ((default . error) (OF . (primary . 6)) (COLON_EQUAL . (primary . 6)) (DO . (primary . 6)) (LOOP . (primary . 6)) (ELSIF . (primary . 6)) (ELSE . (primary . 6)) (DIGITS . (primary . 6)) (RIGHT_PAREN . (primary . 6)) (COMMA . (primary . 6)) (RANGE . (primary . 6)) (THEN . (primary . 6)) (WITH . (primary . 6)) (BAR . (primary . 6)) (EQUAL_GREATER . (primary . 6)) (IS . (primary . 6)) (IN . (primary . 6)) (NOT . (primary . 6)) (EQUAL . (primary . 6)) (GREATER . (primary . 6)) (GREATER_EQUAL . (primary . 6)) (LESS . (primary . 6)) (LESS_EQUAL . (primary . 6)) (SLASH_EQUAL . (primary . 6)) (AND . (primary . 6)) (OR . (primary . 6)) (XOR . (primary . 6)) (SEMICOLON . (primary . 6)) (PLUS . (primary . 6)) (MINUS . (primary . 6)) (AMPERSAND . (primary . 6)) (DOT_DOT . (primary . 6)) (SLASH . (primary . 6)) (STAR . (primary . 6)) (MOD . (primary . 6)) (REM . (primary . 6)) (STAR_STAR . (primary . 6))) - ((default . error) (OF . (primary . 4)) (COLON_EQUAL . (primary . 4)) (DO . (primary . 4)) (LOOP . (primary . 4)) (ELSIF . (primary . 4)) (ELSE . (primary . 4)) (DIGITS . (primary . 4)) (RIGHT_PAREN . (primary . 4)) (COMMA . (primary . 4)) (RANGE . (primary . 4)) (THEN . (primary . 4)) (WITH . (primary . 4)) (BAR . (primary . 4)) (EQUAL_GREATER . (primary . 4)) (IS . (primary . 4)) (IN . (primary . 4)) (NOT . (primary . 4)) (EQUAL . (primary . 4)) (GREATER . (primary . 4)) (GREATER_EQUAL . (primary . 4)) (LESS . (primary . 4)) (LESS_EQUAL . (primary . 4)) (SLASH_EQUAL . (primary . 4)) (AND . (primary . 4)) (OR . (primary . 4)) (XOR . (primary . 4)) (SEMICOLON . (primary . 4)) (PLUS . (primary . 4)) (MINUS . (primary . 4)) (AMPERSAND . (primary . 4)) (DOT_DOT . (primary . 4)) (SLASH . (primary . 4)) (STAR . (primary . 4)) (MOD . (primary . 4)) (REM . (primary . 4)) (STAR_STAR . (primary . 4))) - ((default . error) (OF . (primary . 5)) (COLON_EQUAL . (primary . 5)) (DO . (primary . 5)) (LOOP . (primary . 5)) (ELSIF . (primary . 5)) (ELSE . (primary . 5)) (DIGITS . (primary . 5)) (RIGHT_PAREN . (primary . 5)) (COMMA . (primary . 5)) (RANGE . (primary . 5)) (THEN . (primary . 5)) (WITH . (primary . 5)) (BAR . (primary . 5)) (EQUAL_GREATER . (primary . 5)) (IS . (primary . 5)) (IN . (primary . 5)) (NOT . (primary . 5)) (EQUAL . (primary . 5)) (GREATER . (primary . 5)) (GREATER_EQUAL . (primary . 5)) (LESS . (primary . 5)) (LESS_EQUAL . (primary . 5)) (SLASH_EQUAL . (primary . 5)) (AND . (primary . 5)) (OR . (primary . 5)) (XOR . (primary . 5)) (SEMICOLON . (primary . 5)) (PLUS . (primary . 5)) (MINUS . (primary . 5)) (AMPERSAND . (primary . 5)) (DOT_DOT . (primary . 5)) (SLASH . (primary . 5)) (STAR . (primary . 5)) (MOD . (primary . 5)) (REM . (primary . 5)) (STAR_STAR . (primary . 5))) - ((default . error) (THEN . 605)) + ((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)) (SLASH . (primary . 7)) (STAR . (primary . 7)) (MOD . (primary . 7)) (REM . (primary . 7)) (STAR_STAR . (primary . 7))) + ((default . error) (OF . ((primary . 5) (aggregate . 3))) (COLON_EQUAL . ((primary . 5) (aggregate . 3))) (DO . ((primary . 5) (aggregate . 3))) (LOOP . ((primary . 5) (aggregate . 3))) (ELSIF . ((primary . 5) (aggregate . 3))) (ELSE . ((primary . 5) (aggregate . 3))) (DIGITS . ((primary . 5) (aggregate . 3))) (COMMA . ((primary . 5) (aggregate . 3))) (RIGHT_PAREN . ((primary . 5) (aggregate . 3))) (RANGE . ((primary . 5) (aggregate . 3))) (THEN . ((primary . 5) (aggregate . 3))) (WITH . ((primary . 5) (aggregate . 3))) (BAR . ((primary . 5) (aggregate . 3))) (EQUAL_GREATER . ((primary . 5) (aggregate . 3))) (IS . ((primary . 5) (aggregate . 3))) (SLASH_EQUAL . ((primary . 5) (aggregate . 3))) (LESS_EQUAL . ((primary . 5) (aggregate . 3))) (LESS . ((primary . 5) (aggregate . 3))) (GREATER_EQUAL . ((primary . 5) (aggregate . 3))) (GREATER . ((primary . 5) (aggregate . 3))) (EQUAL . ((primary . 5) (aggregate . 3))) (NOT . ((primary . 5) (aggregate . 3))) (IN . ((primary . 5) (aggregate . 3))) (AND . ((primary . 5) (aggregate . 3))) (OR . ((primary . 5) (aggregate . 3))) (XOR . ((primary . 5) (aggregate . 3))) (SEMICOLON . ((primary . 5) (aggregate . 3))) (STAR_STAR . ((primary . 5) (aggregate . 3))) (REM . ((primary . 5) (aggregate . 3))) (MOD . ((primary . 5) (aggregate . 3))) (STAR . ((primary . 5) (aggregate . 3))) (SLASH . ((primary . 5) (aggregate . 3))) (DOT_DOT . ((primary . 5) (aggregate . 3))) (AMPERSAND . ((primary . 5) (aggregate . 3))) (MINUS . ((primary . 5) (aggregate . 3))) (PLUS . ((primary . 5) (aggregate . 3)))) + ((default . error) (OF . ((primary . 6) (aggregate . 2))) (COLON_EQUAL . ((primary . 6) (aggregate . 2))) (DO . ((primary . 6) (aggregate . 2))) (LOOP . ((primary . 6) (aggregate . 2))) (ELSIF . ((primary . 6) (aggregate . 2))) (ELSE . ((primary . 6) (aggregate . 2))) (DIGITS . ((primary . 6) (aggregate . 2))) (COMMA . ((primary . 6) (aggregate . 2))) (RIGHT_PAREN . ((primary . 6) (aggregate . 2))) (RANGE . ((primary . 6) (aggregate . 2))) (THEN . ((primary . 6) (aggregate . 2))) (WITH . ((primary . 6) (aggregate . 2))) (BAR . ((primary . 6) (aggregate . 2))) (EQUAL_GREATER . ((primary . 6) (aggregate . 2))) (IS . ((primary . 6) (aggregate . 2))) (SLASH_EQUAL . ((primary . 6) (aggregate . 2))) (LESS_EQUAL . ((primary . 6) (aggregate . 2))) (LESS . ((primary . 6) (aggregate . 2))) (GREATER_EQUAL . ((primary . 6) (aggregate . 2))) (GREATER . ((primary . 6) (aggregate . 2))) (EQUAL . ((primary . 6) (aggregate . 2))) (NOT . ((primary . 6) (aggregate . 2))) (IN . ((primary . 6) (aggregate . 2))) (AND . ((primary . 6) (aggregate . 2))) (OR . ((primary . 6) (aggregate . 2))) (XOR . ((primary . 6) (aggregate . 2))) (SEMICOLON . ((primary . 6) (aggregate . 2))) (STAR_STAR . ((primary . 6) (aggregate . 2))) (REM . ((primary . 6) (aggregate . 2))) (MOD . ((primary . 6) (aggregate . 2))) (STAR . ((primary . 6) (aggregate . 2))) (SLASH . ((primary . 6) (aggregate . 2))) (DOT_DOT . ((primary . 6) (aggregate . 2))) (AMPERSAND . ((primary . 6) (aggregate . 2))) (MINUS . ((primary . 6) (aggregate . 2))) (PLUS . ((primary . 6) (aggregate . 2)))) ((default . error) (IDENTIFIER . (quantifier . 0))) ((default . error) (IDENTIFIER . (quantifier . 1))) - ((default . error) (IDENTIFIER . 603)) - ((default . error) (IS . 602)) + ((default . error) (IDENTIFIER . 613)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (WHEN . (pragma . 0)) (THEN . (pragma . 0)) (OR . (pragma . 0)) (ELSIF . (pragma . 0)) (ELSE . (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)) (CHARACTER_LITERAL . (pragma . 0)) (STRING_LITERAL . (pragma . 0)) (LESS_LESS . (pragma . 0)) (EXCEPTION . (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)) (IDENTIFIER . (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) (RIGHT_PAREN . (pragma_argument_association_list . 1)) (COMMA . (pragma_argument_association_list . 1))) ((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)) (REM . (factor . 0)) (MOD . (factor . 0)) (STAR . (factor . 0)) (SLASH . (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)) (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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (DO . (relation_or_list . 1)) (LOOP . (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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (DO . (relation_xor_list . 1)) (LOOP . (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)) (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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (DO . (relation_or_list . 0)) (LOOP . (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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (DO . (relation_and_list . 0)) (LOOP . (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_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 . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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)) (SLASH . (term . 1)) (STAR . (term . 1)) (MOD . (term . 1)) (REM . (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 . 349) (SLASH . 348) (MOD . 350) (REM . 351)) - ((default . error) (BEGIN . 596) (END . 597)) - ((default . error) (IDENTIFIER . 595)) - ((default . error) (IS . ( 594 (subprogram_specification . 1))) (WITH . (subprogram_specification . 1)) (SEMICOLON . (subprogram_specification . 1)) (RENAMES . (subprogram_specification . 1))) - ((default . error) (IS . ( 593 (subprogram_specification . 0))) (WITH . (subprogram_specification . 0)) (SEMICOLON . (subprogram_specification . 0)) (RENAMES . (subprogram_specification . 0))) - ((default . error) (RENAMES . 127) (SEMICOLON . (aspect_specification_opt . 0)) (IS . ( 592 (aspect_specification_opt . 0))) (WITH . 108)) - ((default . error) (EXCEPTION . 590) (CONSTANT . ( 589 (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 . 512)) + ((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 . 356) (SLASH . 355) (MOD . 357) (REM . 358)) + ((default . error) (BEGIN . 606) (END . 607)) + ((default . error) (IDENTIFIER . 605)) + ((default . error) (IS . ( 604 (subprogram_specification . 1))) (WITH . (subprogram_specification . 1)) (SEMICOLON . (subprogram_specification . 1)) (RENAMES . (subprogram_specification . 1))) + ((default . error) (IS . ( 603 (subprogram_specification . 0))) (WITH . (subprogram_specification . 0)) (SEMICOLON . (subprogram_specification . 0)) (RENAMES . (subprogram_specification . 0))) + ((default . error) (RENAMES . 127) (SEMICOLON . (aspect_specification_opt . 0)) (IS . ( 602 (aspect_specification_opt . 0))) (WITH . 108)) + ((default . error) (EXCEPTION . 600) (CONSTANT . ( 599 (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 . 517)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) + ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) ((default . error) (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)) (IDENTIFIER . (declarations . 1)) (BEGIN . (declarations . 1)) (END . (declarations . 1)) (PRIVATE . (declarations . 1))) - ((default . error) (SEMICOLON . 585) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 198)) + ((default . error) (IS . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (LEFT_PAREN . 201)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (IDENTIFIER . 583)) - ((default . error) (IDENTIFIER . 582)) - ((default . error) (IS . 581)) + ((default . error) (IDENTIFIER . 594)) + ((default . error) (IDENTIFIER . 593)) + ((default . error) (IS . 592)) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (IDENTIFIER . 579)) - ((default . error) (IDENTIFIER . 578)) + ((default . error) (IDENTIFIER . 590)) + ((default . error) (IDENTIFIER . 589)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (USE . ((direct_name . 0) (name . 0))) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) ((default . error) (USE . ((direct_name . 1) (name . 7))) (LEFT_PAREN . (name . 7)) (DOT . (name . 7)) (TICK . (name . 7))) - ((default . error) (USE . ( 576 (name . 4))) (LEFT_PAREN . (name . 4)) (DOT . (name . 4)) (TICK . (name . 4))) - ((default . error) (USE . 575)) - ((default . error) (DOT . 87) (TICK . 88) (USE . 574) (LEFT_PAREN . 106)) - ((default . error) (EXCEPTION . 571) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 208)) + ((default . error) (USE . ( 587 (name . 4))) (LEFT_PAREN . (name . 4)) (DOT . (name . 4)) (TICK . (name . 4))) + ((default . error) (USE . 586)) + ((default . error) (DOT . 87) (TICK . 88) (USE . 585) (LEFT_PAREN . 106)) + ((default . error) (EXCEPTION . 582) (IDENTIFIER . (null_exclusion_opt . 0)) (STRING_LITERAL . (null_exclusion_opt . 0)) (CHARACTER_LITERAL . (null_exclusion_opt . 0)) (ACCESS . (null_exclusion_opt . 0)) (NOT . 211)) ((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) (DOT . 87) (TICK . 88) (BAR . (discrete_choice . 1)) (EQUAL_GREATER . (discrete_choice . 1)) (LEFT_PAREN . 106)) ((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 . 265) (SLASH_EQUAL . 270) (LESS . 268) (LESS_EQUAL . 269) (GREATER . 266) (GREATER_EQUAL . 267)) + ((default . error) (XOR . (choice_relation . 1)) (OR . (choice_relation . 1)) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . (choice_relation . 1)) (EQUAL . 272) (SLASH_EQUAL . 277) (LESS . 275) (LESS_EQUAL . 276) (GREATER . 273) (GREATER_EQUAL . 274)) ((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 . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 264) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . (choice_relation . 1)) (OR . (choice_relation . 1)) (XOR . (choice_relation . 1)) (EQUAL . 265) (SLASH_EQUAL . 270) (LESS . 268) (LESS_EQUAL . 269) (GREATER . 266) (GREATER_EQUAL . 267)) - ((default . error) (LOOP . (range . 1)) (DO . (range . 1)) (COMMA . (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)) (RIGHT_PAREN . (range . 1)) (EQUAL_GREATER . (range . 1)) (BAR . (range . 1)) (LEFT_PAREN . 565)) + ((default . error) (DOT_DOT . 271) (BAR . (choice_relation . 1)) (EQUAL_GREATER . (choice_relation . 1)) (AND . (choice_relation . 1)) (OR . (choice_relation . 1)) (XOR . (choice_relation . 1)) (EQUAL . 272) (SLASH_EQUAL . 277) (LESS . 275) (LESS_EQUAL . 276) (GREATER . 273) (GREATER_EQUAL . 274)) + ((default . error) (LOOP . (range . 1)) (DO . (range . 1)) (COMMA . (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)) (RIGHT_PAREN . (range . 1)) (EQUAL_GREATER . (range . 1)) (BAR . (range . 1)) (LEFT_PAREN . 576)) ((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 . ((relation . 1) (choice_relation . 0))) (OR . ((relation . 1) (choice_relation . 0))) (XOR . ((relation . 1) (choice_relation . 0)))) - ((default . error) (PLUS . 144) (MINUS . 143) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (BAR . 563) (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 . 144) (MINUS . 143) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (BAR . 574) (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 . 264) (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 . 271) (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) (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) (BEGIN . (package_renaming_declaration . 0)) (IDENTIFIER . (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)) (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) (SEMICOLON . 562)) - ((default . error) (SEMICOLON . 561)) - ((default . error) (SEMICOLON . 560)) - ((default . error) (SEMICOLON . 559)) - ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 554) (IDENTIFIER . 553) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . 573)) + ((default . error) (SEMICOLON . 572)) + ((default . error) (SEMICOLON . 571)) + ((default . error) (SEMICOLON . 570)) + ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 565) (IDENTIFIER . 564) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (RIGHT_PAREN . (discriminant_specification_opt . 0)) (SEMICOLON . (discriminant_specification_opt . 0)) (IDENTIFIER . 72)) ((default . error) (IS . (discriminant_part_opt . 2)) (WITH . (discriminant_part_opt . 2)) (SEMICOLON . (discriminant_part_opt . 2))) ((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)) (IDENTIFIER . (formal_type_declaration . 2)) (PRAGMA . (formal_type_declaration . 2)) (TYPE . (formal_type_declaration . 2)) (WITH . (formal_type_declaration . 2))) - ((default . error) (TAGGED . 551) (NEW . (abstract_limited_synchronized_opt . 3)) (SYNCHRONIZED . 550) (LIMITED . 549)) - ((default . error) (LEFT_PAREN . 548)) - ((default . error) (BOX . 547)) - ((default . error) (BOX . 546)) + ((default . error) (TAGGED . 562) (NEW . (abstract_limited_synchronized_opt . 3)) (SYNCHRONIZED . 561) (LIMITED . 560)) + ((default . error) (LEFT_PAREN . 559)) + ((default . error) (BOX . 558)) + ((default . error) (BOX . 557)) ((default . error) (SEMICOLON . (interface_type_definition . 8)) (WITH . (interface_type_definition . 8))) - ((default . error) (BOX . 545)) - ((default . error) (INTERFACE . 544) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NEW . (abstract_limited_synchronized_opt . 4))) - ((default . error) (BOX . 543)) - ((default . error) (INTERFACE . 542)) - ((default . error) (BOX . 541)) - ((default . error) (INTERFACE . 540) (NEW . (abstract_limited_synchronized_opt . 5))) - ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 4)) (LIMITED . 538) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (INTERFACE . 537)) - ((default . error) (NEW . 536)) - ((default . error) (PRIVATE . 535)) + ((default . error) (BOX . 556)) + ((default . error) (INTERFACE . 555) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NEW . (abstract_limited_synchronized_opt . 4))) + ((default . error) (BOX . 554)) + ((default . error) (INTERFACE . 553)) + ((default . error) (BOX . 552)) + ((default . error) (INTERFACE . 551) (NEW . (abstract_limited_synchronized_opt . 5))) + ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 4)) (LIMITED . 549) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) + ((default . error) (INTERFACE . 548)) + ((default . error) (NEW . 547)) + ((default . error) (PRIVATE . 546)) ((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 . 108)) ((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) (SEMICOLON . 533)) - ((default . error) (SEMICOLON . 532)) + ((default . error) (SEMICOLON . 544)) + ((default . error) (SEMICOLON . 543)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (DOT . 87) (TICK . 88) (COLON_EQUAL . 528) (LEFT_PAREN . 106) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 526)) + ((default . error) (DOT . 87) (TICK . 88) (COLON_EQUAL . 539) (LEFT_PAREN . 106) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 537)) ((default . error) (RIGHT_PAREN . (parameter_and_result_profile . 0)) (DO . (parameter_and_result_profile . 0)) (RENAMES . (parameter_and_result_profile . 0)) (COLON_EQUAL . (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) (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 . 523) (PROCEDURE . 524)) + ((default . error) (FUNCTION . 534) (PROCEDURE . 535)) ((default . error) (IN . (aliased_opt . 1)) (OUT . (aliased_opt . 1)) (ARRAY . (aliased_opt . 1)) (CONSTANT . (aliased_opt . 1)) (IDENTIFIER . (aliased_opt . 1)) (STRING_LITERAL . (aliased_opt . 1)) (CHARACTER_LITERAL . (aliased_opt . 1)) (ACCESS . (aliased_opt . 1)) (NOT . (aliased_opt . 1))) - ((default . error) (IDENTIFIER . (mode_opt . 0)) (STRING_LITERAL . (mode_opt . 0)) (CHARACTER_LITERAL . (mode_opt . 0)) (IN . 204) (OUT . 205) (ACCESS . (null_exclusion_opt . 0)) (NOT . ((mode_opt . 0) 208))) + ((default . error) (IDENTIFIER . (mode_opt . 0)) (STRING_LITERAL . (mode_opt . 0)) (CHARACTER_LITERAL . (mode_opt . 0)) (IN . 207) (OUT . 208) (ACCESS . (null_exclusion_opt . 0)) (NOT . ((mode_opt . 0) 211))) ((default . error) (RIGHT_PAREN . (parameter_specification_list . 1)) (SEMICOLON . (parameter_specification_list . 1))) - ((default . error) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 170) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 519) (NEW . 148) (LEFT_PAREN . 147)) + ((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)) (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)) (CHARACTER_LITERAL . (aggregate . 3)) (STRING_LITERAL . (aggregate . 3)) (IDENTIFIER . (aggregate . 3)) (LESS_LESS . (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)) (SLASH . (aggregate . 3)) (STAR . (aggregate . 3)) (MOD . (aggregate . 3)) (REM . (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 . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 173) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 530) (NEW . 149) (LEFT_PAREN . 148)) + ((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)) (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)) (CHARACTER_LITERAL . (aggregate . 2)) (STRING_LITERAL . (aggregate . 2)) (IDENTIFIER . (aggregate . 2)) (LESS_LESS . (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)) (SLASH . (aggregate . 2)) (STAR . (aggregate . 2)) (MOD . (aggregate . 2)) (REM . (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)) (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)) (CHARACTER_LITERAL . (aggregate . 0)) (STRING_LITERAL . (aggregate . 0)) (IDENTIFIER . (aggregate . 0)) (LESS_LESS . (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)) (REM . (aggregate . 0)) (MOD . (aggregate . 0)) (STAR . (aggregate . 0)) (SLASH . (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 . 518)) - ((default . error) (OF . (aggregate . 3)) (LESS_LESS . (aggregate . 3)) (IDENTIFIER . (aggregate . 3)) (STRING_LITERAL . (aggregate . 3)) (CHARACTER_LITERAL . (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)) (COLON_EQUAL . (aggregate . 3)) (USE . (aggregate . 3)) (LOOP . (aggregate . 3)) (DO . (aggregate . 3)) (RETURN . (aggregate . 3)) (RENAMES . (aggregate . 3)) (TICK . (aggregate . 3)) (DOT . (aggregate . 3)) (LEFT_PAREN . (aggregate . 3)) (PLUS . (aggregate . 3)) (MINUS . (aggregate . 3)) (AMPERSAND . (aggregate . 3)) (DOT_DOT . (aggregate . 3)) (SLASH . (aggregate . 3)) (STAR . (aggregate . 3)) (MOD . (aggregate . 3)) (REM . (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))) - ((default . error) (PLUS . (primary . 0)) (MINUS . (primary . 0)) (AMPERSAND . (primary . 0)) (DOT_DOT . (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)) (RIGHT_PAREN . (primary . 0)) (COMMA . (primary . 0)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (STAR_STAR . (primary . 0)) (BAR . (primary . 0)) (EQUAL_GREATER . (primary . 0)) (AND . (primary . 0)) (OR . (primary . 0)) (XOR . (primary . 0)) (RECORD . 787)) - ((default . error) (COMMA . 261) (RIGHT_PAREN . 786)) - ((default . error) (COLON_EQUAL . 785) (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 . 208)) - ((default . error) (RETURN . 90) (LEFT_PAREN . 781)) - ((default . error) (IS . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (WITH . (parameter_profile_opt . 0)) (COLON_EQUAL . (parameter_profile_opt . 0)) (RENAMES . (parameter_profile_opt . 0)) (DO . (parameter_profile_opt . 0)) (RIGHT_PAREN . (parameter_profile_opt . 0)) (LEFT_PAREN . 781)) + ((default . error) (RIGHT_PAREN . 529)) + ((default . error) (THEN . 528)) + ((default . error) (IS . 527)) + ((default . error) (WHEN . 795)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (OF . (aggregate . 5)) (LESS_LESS . (aggregate . 5)) (IDENTIFIER . (aggregate . 5)) (STRING_LITERAL . (aggregate . 5)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (aggregate . 5)) (STAR . (aggregate . 5)) (MOD . (aggregate . 5)) (REM . (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)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (MOD . (primary . 1)) (REM . (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 . 268) (RIGHT_PAREN . 792)) + ((default . error) (COLON_EQUAL . 791) (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 . 211)) + ((default . error) (RETURN . 90) (LEFT_PAREN . 787)) + ((default . error) (IS . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (WITH . (parameter_profile_opt . 0)) (COLON_EQUAL . (parameter_profile_opt . 0)) (RENAMES . (parameter_profile_opt . 0)) (DO . (parameter_profile_opt . 0)) (RIGHT_PAREN . (parameter_profile_opt . 0)) (LEFT_PAREN . 787)) ((default . error) (DOT . 87) (TICK . 88) (RIGHT_PAREN . (access_definition . 0)) (DO . (access_definition . 0)) (RENAMES . (access_definition . 0)) (COLON_EQUAL . (access_definition . 0)) (WITH . (access_definition . 0)) (SEMICOLON . (access_definition . 0)) (IS . (access_definition . 0)) (LEFT_PAREN . 106)) ((default . error) (WITH . (formal_object_declaration . 3)) (TYPE . (formal_object_declaration . 3)) (PRAGMA . (formal_object_declaration . 3)) (IDENTIFIER . (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 . 108)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 778)) - ((default . error) (DOT . 87) (TICK . 88) (WITH . (formal_package_actual_part . 1)) (SEMICOLON . (formal_package_actual_part . 1)) (LEFT_PAREN . 776)) - ((default . error) (SEMICOLON . 775)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 784)) + ((default . error) (DOT . 87) (TICK . 88) (WITH . (formal_package_actual_part . 1)) (SEMICOLON . (formal_package_actual_part . 1)) (LEFT_PAREN . 782)) + ((default . error) (SEMICOLON . 781)) ((default . error) (WITH . (formal_subprogram_declaration . 3)) (TYPE . (formal_subprogram_declaration . 3)) (PRAGMA . (formal_subprogram_declaration . 3)) (IDENTIFIER . (formal_subprogram_declaration . 3)) (FUNCTION . (formal_subprogram_declaration . 3)) (PROCEDURE . (formal_subprogram_declaration . 3)) (PACKAGE . (formal_subprogram_declaration . 3))) ((default . error) (WITH . (formal_subprogram_declaration . 0)) (TYPE . (formal_subprogram_declaration . 0)) (PRAGMA . (formal_subprogram_declaration . 0)) (IDENTIFIER . (formal_subprogram_declaration . 0)) (FUNCTION . (formal_subprogram_declaration . 0)) (PROCEDURE . (formal_subprogram_declaration . 0)) (PACKAGE . (formal_subprogram_declaration . 0))) - ((default . error) (SEMICOLON . 774)) + ((default . error) (SEMICOLON . 780)) ((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 . 772) (WITH . (interface_type_definition . 5)) (SEMICOLON . (interface_type_definition . 5))) + ((default . error) (AND . 778) (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 . 771)) - ((default . error) (AND . 770) (WITH . (interface_type_definition . 7)) (SEMICOLON . (interface_type_definition . 7))) + ((default . error) (SEMICOLON . 777)) + ((default . error) (AND . 776) (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 . 769) (WITH . (interface_type_definition . 6)) (SEMICOLON . (interface_type_definition . 6))) + ((default . error) (AND . 775) (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 . 768) (WITH . (interface_type_definition . 4)) (SEMICOLON . (interface_type_definition . 4))) - ((default . error) (RIGHT_PAREN . 767)) + ((default . error) (AND . 774) (WITH . (interface_type_definition . 4)) (SEMICOLON . (interface_type_definition . 4))) + ((default . error) (RIGHT_PAREN . 773)) ((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 . 766)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 757) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (SEMICOLON . (formal_type_definition . 6)) (WITH . (formal_type_definition . 6)) (DIGITS . 772)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 763) (NUMERIC_LITERAL . 145) (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 . 756) (RECORD . (abstract_tagged_limited_opt . 2)) (NULL . (abstract_tagged_limited_opt . 2)) (PRIVATE . (abstract_tagged_limited_opt . 2))) + ((default . error) (LIMITED . 762) (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) (SEMICOLON . (null_exclusion_opt_name . 0)) (RIGHT_PAREN . (null_exclusion_opt_name . 0)) (COLON_EQUAL . (null_exclusion_opt_name . 0)) (DOT . (name . 0)) (LEFT_PAREN . (name . 0)) (TICK . (name . 0))) - ((default . error) (NULL . 755)) - ((default . error) (SEMICOLON . (discriminant_specification_opt . 4)) (RIGHT_PAREN . (discriminant_specification_opt . 4)) (COLON_EQUAL . 754)) + ((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) (NULL . 761)) + ((default . error) (SEMICOLON . (discriminant_specification_opt . 4)) (RIGHT_PAREN . (discriminant_specification_opt . 4)) (COLON_EQUAL . 760)) ((default . error) (DOT . 87) (TICK . 88) (LEFT_PAREN . 106)) - ((default . error) (SEMICOLON . (discriminant_specification_opt . 2)) (RIGHT_PAREN . (discriminant_specification_opt . 2)) (COLON_EQUAL . 753)) - ((default . error) (SEMICOLON . (null_exclusion_opt_name . 1)) (RIGHT_PAREN . (null_exclusion_opt_name . 1)) (COLON_EQUAL . (null_exclusion_opt_name . 1)) (DOT . (name . 3)) (LEFT_PAREN . (name . 3)) (TICK . (name . 3))) + ((default . error) (SEMICOLON . (discriminant_specification_opt . 2)) (RIGHT_PAREN . (discriminant_specification_opt . 2)) (COLON_EQUAL . 759)) + ((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)) (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)) (IDENTIFIER . (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)) (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)) (IDENTIFIER . (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)) (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)) (IDENTIFIER . (generic_renaming_declaration . 2)) (BEGIN . (generic_renaming_declaration . 2))) ((default . error) (END . (generic_instantiation . 0)) (BEGIN . (generic_instantiation . 0)) (IDENTIFIER . (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)) ($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 . 144) (MINUS . 143) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (BAR . 563) (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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (PLUS . 144) (MINUS . 143) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (BAR . 574) (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 . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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) (RENAMES . 749)) - ((default . error) (RENAMES . 748)) - ((default . error) (ACCESS . 235) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (LEFT_PAREN . 220) (RECORD . 744)) - ((default . error) (AT . 743)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (DOT . 87) (TICK . 88) (IS . ( 741 (aspect_specification_opt . 0))) (WITH . 108) (LEFT_PAREN . 106)) - ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 198)) + ((default . error) (RENAMES . 755)) + ((default . error) (RENAMES . 754)) + ((default . error) (ACCESS . 242) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (LEFT_PAREN . 223) (RECORD . 750)) + ((default . error) (AT . 749)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (DOT . 87) (TICK . 88) (IS . ( 747 (aspect_specification_opt . 0))) (WITH . 108) (LEFT_PAREN . 106)) + ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (LEFT_PAREN . 201)) + ((default . error) (IS . ( 745 (aspect_specification_opt . 0))) (WITH . 108)) + ((default . error) (IS . 744)) + ((default . error) (NOT . 741) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (LEFT_PAREN . 201)) ((default . error) (IS . ( 739 (aspect_specification_opt . 0))) (WITH . 108)) - ((default . error) (IS . 738)) - ((default . error) (NOT . 735) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (WITH . (discriminant_part_opt . 0)) (IS . (discriminant_part_opt . 0)) (SEMICOLON . (discriminant_part_opt . 0)) (LEFT_PAREN . 198)) - ((default . error) (IS . ( 733 (aspect_specification_opt . 0))) (WITH . 108)) - ((default . error) (SEMICOLON . 731) (IS . 732)) - ((default . error) (END . (incomplete_type_declaration . 1)) (PRIVATE . (incomplete_type_declaration . 1)) (USE . (incomplete_type_declaration . 1)) (TYPE . (incomplete_type_declaration . 1)) (TASK . (incomplete_type_declaration . 1)) (SUBTYPE . (incomplete_type_declaration . 1)) (PROTECTED . (incomplete_type_declaration . 1)) (PROCEDURE . (incomplete_type_declaration . 1)) (PRAGMA . (incomplete_type_declaration . 1)) (PACKAGE . (incomplete_type_declaration . 1)) (OVERRIDING . (incomplete_type_declaration . 1)) (NOT . (incomplete_type_declaration . 1)) (GENERIC . (incomplete_type_declaration . 1)) (FUNCTION . (incomplete_type_declaration . 1)) (FOR . (incomplete_type_declaration . 1)) (ENTRY . (incomplete_type_declaration . 1)) (IDENTIFIER . (incomplete_type_declaration . 1)) (BEGIN . (incomplete_type_declaration . 1))) - ((default . error) (IS . 730)) - ((default . error) (END . 729)) + ((default . error) (SEMICOLON . 737) (IS . 738)) + ((default . error) (SEMICOLON . 735) (IS . 736)) + ((default . error) (END . 734)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (package_specification . 1)) (LEFT_PAREN . 106)) - ((default . error) (COLON_EQUAL . 728)) - ((default . error) (SEMICOLON . 727)) - ((default . error) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (NOT . (constant_opt . 0)) (ACCESS . (constant_opt . 0)) (ARRAY . (constant_opt . 0)) (CONSTANT . 725)) - ((default . error) (SEPARATE . 724) (ABSTRACT . 723)) - ((default . error) (NULL . 722)) - ((default . error) (LEFT_PAREN . 720)) - ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 718)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((default . error) (COLON_EQUAL . 733)) + ((default . error) (SEMICOLON . 732)) + ((default . error) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (NOT . (constant_opt . 0)) (ACCESS . (constant_opt . 0)) (ARRAY . (constant_opt . 0)) (CONSTANT . 730)) + ((default . error) (SEPARATE . 729) (ABSTRACT . 728)) + ((default . error) (NULL . 727)) + ((default . error) (LEFT_PAREN . 725)) + ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 723)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (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) (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) (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) (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) (WHEN . 713)) - ((default . error) (OF . 712) (COLON . 710) (IN . 711)) - ((default . error) (EQUAL_GREATER . 709)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((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) (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 . 720) (COLON . 718) (IN . 719)) + ((default . error) (EQUAL_GREATER . 717)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (IS . 134)) - ((default . error) (IDENTIFIER . 704)) - ((default . error) (COLON . 703)) - ((default . error) (IDENTIFIER . 702)) + ((default . error) (IDENTIFIER . 713)) + ((default . error) (COLON . 712)) + ((default . error) (IDENTIFIER . 711)) ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (IS . (expression_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (UNTIL . 696) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (WHEN . (identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (LOOP . (iterator_specification_opt . 0)) (IDENTIFIER . 603)) - ((default . error) (IDENTIFIER . 691)) - ((default . error) (THEN . (expression_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (SEMICOLON . 688)) - ((default . error) (SEMICOLON . 686) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (IS . (expression_opt . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (UNTIL . 705) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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 . 703)) + ((default . error) (LOOP . (iterator_specification_opt . 0)) (IDENTIFIER . 613)) + ((default . error) (IDENTIFIER . 700)) + ((default . error) (THEN . (expression_opt . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (SEMICOLON . 697)) + ((default . error) (SEMICOLON . 695) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 680) (DO . (extended_return_object_declaration_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 681) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ELSE . (select_alternative_list_opt . 0)) (END . (select_alternative_list_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (DELAY . 617) (WHEN . 669) (TERMINATE . 668) (ACCEPT . 612)) - ((default . error) (LOOP . (expression_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (SEMICOLON . 689) (DO . (extended_return_object_declaration_opt . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 690) (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 . 626) (WHEN . 678) (TERMINATE . 677) (ACCEPT . 621)) + ((default . error) (LOOP . (expression_opt . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (OR . (compound_statement . 5)) (THEN . (compound_statement . 5)) (WHEN . (compound_statement . 5)) (EXCEPTION . (compound_statement . 5)) (END . (compound_statement . 5)) (LESS_LESS . (compound_statement . 5)) (IDENTIFIER . (compound_statement . 5)) (STRING_LITERAL . (compound_statement . 5)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (simple_statement . 1)) (IDENTIFIER . (simple_statement . 1)) (STRING_LITERAL . (simple_statement . 1)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (select_statement . 3)) (IDENTIFIER . (select_statement . 3)) (STRING_LITERAL . (select_statement . 3)) (CHARACTER_LITERAL . (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)) (ELSE . (select_statement . 3)) (ELSIF . (select_statement . 3))) @@ -2375,182 +2442,189 @@ ((default . error) (OR . (simple_statement . 7)) (THEN . (simple_statement . 7)) (WHEN . (simple_statement . 7)) (EXCEPTION . (simple_statement . 7)) (END . (simple_statement . 7)) (LESS_LESS . (simple_statement . 7)) (IDENTIFIER . (simple_statement . 7)) (STRING_LITERAL . (simple_statement . 7)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (simple_statement . 2)) (IDENTIFIER . (simple_statement . 2)) (STRING_LITERAL . (simple_statement . 2)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (compound_statement . 4)) (IDENTIFIER . (compound_statement . 4)) (STRING_LITERAL . (compound_statement . 4)) (CHARACTER_LITERAL . (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)) (ELSE . (compound_statement . 4)) (ELSIF . (compound_statement . 4))) - ((default . error) (END . 666)) + ((default . error) (END . 675)) ((default . error) (OR . (compound_statement . 0)) (THEN . (compound_statement . 0)) (WHEN . (compound_statement . 0)) (EXCEPTION . (compound_statement . 0)) (END . (compound_statement . 0)) (LESS_LESS . (compound_statement . 0)) (IDENTIFIER . (compound_statement . 0)) (STRING_LITERAL . (compound_statement . 0)) (CHARACTER_LITERAL . (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)) (ELSE . (compound_statement . 0)) (ELSIF . (compound_statement . 0))) - ((default . error) (LOOP . 665)) - ((default . error) (NULL . 623) (GOTO . 620) (ABORT . 613) (ACCEPT . 612) (DECLARE . 616) (BEGIN . 614) (LOOP . 622) (CASE . 615) (IF . 621) (PRAGMA . 7) (RAISE . 624) (DELAY . 617) (REQUEUE . 625) (RETURN . 626) (EXIT . 618) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (WHILE . 628) (FOR . 619) (SELECT . 627)) + ((default . error) (LOOP . 674)) + ((default . error) (NULL . 632) (GOTO . 629) (ABORT . 622) (ACCEPT . 621) (DECLARE . 625) (BEGIN . 623) (LOOP . 631) (CASE . 624) (IF . 630) (PRAGMA . 7) (RAISE . 633) (DELAY . 626) (REQUEUE . 634) (RETURN . 635) (EXIT . 627) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (WHILE . 637) (FOR . 628) (SELECT . 636)) ((default . error) (OR . (compound_statement . 2)) (THEN . (compound_statement . 2)) (WHEN . (compound_statement . 2)) (EXCEPTION . (compound_statement . 2)) (END . (compound_statement . 2)) (LESS_LESS . (compound_statement . 2)) (IDENTIFIER . (compound_statement . 2)) (STRING_LITERAL . (compound_statement . 2)) (CHARACTER_LITERAL . (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)) (ELSE . (compound_statement . 2)) (ELSIF . (compound_statement . 2))) - ((default . error) (DOT . 87) (SEMICOLON . 662) (TICK . 88) (COLON_EQUAL . 661) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (SEMICOLON . 671) (TICK . 88) (COLON_EQUAL . 670) (LEFT_PAREN . 106)) ((default . error) (OR . (simple_statement . 10)) (THEN . (simple_statement . 10)) (WHEN . (simple_statement . 10)) (EXCEPTION . (simple_statement . 10)) (END . (simple_statement . 10)) (LESS_LESS . (simple_statement . 10)) (IDENTIFIER . (simple_statement . 10)) (STRING_LITERAL . (simple_statement . 10)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (simple_statement . 4)) (IDENTIFIER . (simple_statement . 4)) (STRING_LITERAL . (simple_statement . 4)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (simple_statement . 9)) (IDENTIFIER . (simple_statement . 9)) (STRING_LITERAL . (simple_statement . 9)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (simple_statement . 6)) (IDENTIFIER . (simple_statement . 6)) (STRING_LITERAL . (simple_statement . 6)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (select_statement . 0)) (IDENTIFIER . (select_statement . 0)) (STRING_LITERAL . (select_statement . 0)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (compound_statement . 6)) (IDENTIFIER . (compound_statement . 6)) (STRING_LITERAL . (compound_statement . 6)) (CHARACTER_LITERAL . (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)) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (END . (handled_sequence_of_statements . 1)) (EXCEPTION . 659)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (END . (handled_sequence_of_statements . 1)) (EXCEPTION . 668)) ((default . error) (OR . (simple_statement . 5)) (THEN . (simple_statement . 5)) (WHEN . (simple_statement . 5)) (EXCEPTION . (simple_statement . 5)) (END . (simple_statement . 5)) (LESS_LESS . (simple_statement . 5)) (IDENTIFIER . (simple_statement . 5)) (STRING_LITERAL . (simple_statement . 5)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (sequence_of_statements . 0)) (IDENTIFIER . (sequence_of_statements . 0)) (STRING_LITERAL . (sequence_of_statements . 0)) (CHARACTER_LITERAL . (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))) ((default . error) (OR . (select_statement . 1)) (THEN . (select_statement . 1)) (WHEN . (select_statement . 1)) (EXCEPTION . (select_statement . 1)) (END . (select_statement . 1)) (LESS_LESS . (select_statement . 1)) (IDENTIFIER . (select_statement . 1)) (STRING_LITERAL . (select_statement . 1)) (CHARACTER_LITERAL . (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)) (ELSE . (select_statement . 1)) (ELSIF . (select_statement . 1))) - ((default . error) (SEMICOLON . 658)) - ((default . error) (SEMICOLON . 657)) + ((default . error) (SEMICOLON . 667)) + ((default . error) (SEMICOLON . 666)) ((default . error) (TYPE . (generic_instantiation . 2)) (TASK . (generic_instantiation . 2)) (SUBTYPE . (generic_instantiation . 2)) (PROTECTED . (generic_instantiation . 2)) (FOR . (generic_instantiation . 2)) (ENTRY . (generic_instantiation . 2)) (IDENTIFIER . (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) (TYPE . (generic_instantiation . 1)) (TASK . (generic_instantiation . 1)) (SUBTYPE . (generic_instantiation . 1)) (PROTECTED . (generic_instantiation . 1)) (FOR . (generic_instantiation . 1)) (ENTRY . (generic_instantiation . 1)) (IDENTIFIER . (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 . 930)) + ((default . error) (END . (exception_handler_list_opt . 0)) (WHEN . 940)) ((default . error) (OR . (sequence_of_statements . 1)) (THEN . (sequence_of_statements . 1)) (WHEN . (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)) (CHARACTER_LITERAL . (sequence_of_statements . 1)) (STRING_LITERAL . (sequence_of_statements . 1)) (IDENTIFIER . (sequence_of_statements . 1)) (LESS_LESS . (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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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)) (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)) (CHARACTER_LITERAL . (procedure_call_statement . 0)) (STRING_LITERAL . (procedure_call_statement . 0)) (IDENTIFIER . (procedure_call_statement . 0)) (LESS_LESS . (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)) (LESS_LESS . (statement . 1)) (IDENTIFIER . (statement . 1)) (STRING_LITERAL . (statement . 1)) (CHARACTER_LITERAL . (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)) (ELSE . (statement . 1)) (ELSIF . (statement . 1))) ((default . error) (OR . (statement . 0)) (THEN . (statement . 0)) (WHEN . (statement . 0)) (EXCEPTION . (statement . 0)) (END . (statement . 0)) (LESS_LESS . (statement . 0)) (IDENTIFIER . (statement . 0)) (STRING_LITERAL . (statement . 0)) (CHARACTER_LITERAL . (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)) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (LOOP . (iteration_scheme . 0))) - ((default . error) (SEMICOLON . 926)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((default . error) (SEMICOLON . 936)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (ELSE . 921) (OR . 922)) - ((default . error) (DOT . 87) (SEMICOLON . 662) (TICK . 88) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (LEFT_PAREN . 106) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (ELSE . 931) (OR . 932)) + ((default . error) (DOT . 87) (SEMICOLON . 671) (TICK . 88) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (THEN . (sequence_of_statements_opt . 0)) (LEFT_PAREN . 106) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((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 . 918)) - ((default . error) (ELSE . 916) (END . 917)) - ((default . error) (THEN . 915)) + ((default . error) (ELSE . (select_alternative_list_opt . 1)) (END . (select_alternative_list_opt . 1)) (OR . 928)) + ((default . error) (ELSE . 926) (END . 927)) + ((default . error) (THEN . 925)) ((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)) (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)) (CHARACTER_LITERAL . (simple_return_statement . 0)) (STRING_LITERAL . (simple_return_statement . 0)) (IDENTIFIER . (simple_return_statement . 0)) (LESS_LESS . (simple_return_statement . 0)) (END . (simple_return_statement . 0)) (EXCEPTION . (simple_return_statement . 0))) - ((default . error) (COLON . 914) (STAR_STAR . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (STAR . (name . 0)) (SLASH . (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 . 913)) - ((default . error) (DO . (extended_return_object_declaration_opt . 1)) (SEMICOLON . 912)) - ((default . error) (DO . 911)) - ((default . error) (WITH . 910) (DOT . 87) (TICK . 88) (SEMICOLON . 909) (LEFT_PAREN . 106)) + ((default . error) (COLON . 924) (STAR_STAR . (name . 0)) (REM . (name . 0)) (MOD . (name . 0)) (STAR . (name . 0)) (SLASH . (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 . 923)) + ((default . error) (DO . (extended_return_object_declaration_opt . 1)) (SEMICOLON . 922)) + ((default . error) (DO . 921)) + ((default . error) (WITH . 920) (DOT . 87) (TICK . 88) (SEMICOLON . 919) (LEFT_PAREN . 106)) ((default . error) (WHEN . (raise_statement . 0)) (THEN . (raise_statement . 0)) (OR . (raise_statement . 0)) (ELSIF . (raise_statement . 0)) (ELSE . (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)) (CHARACTER_LITERAL . (raise_statement . 0)) (STRING_LITERAL . (raise_statement . 0)) (IDENTIFIER . (raise_statement . 0)) (LESS_LESS . (raise_statement . 0)) (END . (raise_statement . 0)) (EXCEPTION . (raise_statement . 0))) - ((default . error) (WITH . 908) (DOT . 87) (TICK . 88) (SEMICOLON . 907) (LEFT_PAREN . 106)) + ((default . error) (WITH . 918) (DOT . 87) (TICK . 88) (SEMICOLON . 917) (LEFT_PAREN . 106)) ((default . error) (WHEN . (simple_statement . 0)) (THEN . (simple_statement . 0)) (OR . (simple_statement . 0)) (ELSIF . (simple_statement . 0)) (ELSE . (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)) (CHARACTER_LITERAL . (simple_statement . 0)) (STRING_LITERAL . (simple_statement . 0)) (IDENTIFIER . (simple_statement . 0)) (LESS_LESS . (simple_statement . 0)) (END . (simple_statement . 0)) (EXCEPTION . (simple_statement . 0))) - ((default . error) (END . 906)) - ((default . error) (THEN . 905)) - ((default . error) (SEMICOLON . 904)) + ((default . error) (END . 916)) + ((default . error) (THEN . 915)) + ((default . error) (SEMICOLON . 914)) ((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 . 903) (SEMICOLON . 902)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 900)) - ((default . error) (BEGIN . 899)) - ((default . error) (IS . 898)) - ((default . error) (END . 897)) - ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . 896) (LEFT_PAREN . 106)) - ((default . error) (SEMICOLON . (actual_parameter_part_opt . 0)) (DO . (actual_parameter_part_opt . 0)) (LEFT_PAREN . ((actual_parameter_part_opt . 0) 893))) + ((default . error) (WHEN . 913) (SEMICOLON . 912)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 910)) + ((default . error) (BEGIN . 909)) + ((default . error) (IS . 908)) + ((default . error) (END . 907)) + ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . 906) (LEFT_PAREN . 106)) + ((default . error) (SEMICOLON . (actual_parameter_part_opt . 0)) (DO . (actual_parameter_part_opt . 0)) (LEFT_PAREN . ((actual_parameter_part_opt . 0) 903))) ((default . error) (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)) (CHARACTER_LITERAL . (label_opt . 2)) (STRING_LITERAL . (label_opt . 2)) (IDENTIFIER . (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 . 892)) - ((default . error) (IS . 891)) - ((default . error) (IS . 890)) + ((default . error) (GREATER_GREATER . 902)) + ((default . error) (IS . 901)) + ((default . error) (IS . 900)) ((default . error) (COMMA . (pragma_argument_association . 2)) (RIGHT_PAREN . (pragma_argument_association . 2))) - ((default . error) (ELSE . 886) (RIGHT_PAREN . (if_expression . 3)) (ELSIF . 887)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (NOT . 735) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (REVERSE . 882) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 757) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (REVERSE . 880) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 0)) (COMMA . (case_expression_alternative_list . 0))) - ((default . error) (COMMA . 878) (RIGHT_PAREN . (case_expression . 0))) - ((default . error) (SEMICOLON . 877)) - ((default . error) (END . 876)) - ((default . error) (IDENTIFIER . 213) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 757) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (NOT . 741) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (REVERSE . 896) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 763) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (REVERSE . 894) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . 893)) + ((default . error) (END . 892)) + ((default . error) (IDENTIFIER . 216) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 763) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (CASE . 366) (IF . 368) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (CASE . 232) (IF . 233) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (ARRAY . (constant_opt . 1)) (IDENTIFIER . (constant_opt . 1)) (STRING_LITERAL . (constant_opt . 1)) (CHARACTER_LITERAL . (constant_opt . 1)) (ACCESS . (constant_opt . 1)) (NOT . (constant_opt . 1))) - ((default . error) (ARRAY . 480) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 862)) + ((default . error) (ARRAY . 485) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 878)) ((default . error) (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)) (IDENTIFIER . (exception_declaration . 0)) (BEGIN . (exception_declaration . 0)) (END . (exception_declaration . 0)) (PRIVATE . (exception_declaration . 0))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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) (PRIVATE . (abstract_tagged_limited_opt . 0)) (NULL . (abstract_tagged_limited_opt . 0)) (RECORD . (abstract_tagged_limited_opt . 0)) (TAGGED . 849) (RANGE . 847) (MOD . 845) (DIGITS . 842) (DELTA . 841) (TASK . 491) (PROTECTED . 487) (SYNCHRONIZED . 489) (INTERFACE . 483) (ARRAY . 480) (LEFT_PAREN . 843) (ACCESS . (null_exclusion_opt . 0)) (NOT . 208) (NEW . ((abstract_limited_synchronized_opt . 0) (abstract_limited_opt . 0))) (LIMITED . 844) (ABSTRACT . 840)) + ((default . error) (BEGIN . (incomplete_type_declaration . 1)) (IDENTIFIER . (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)) (PRIVATE . (incomplete_type_declaration . 1)) (END . (incomplete_type_declaration . 1))) + ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 0)) (NULL . (abstract_tagged_limited_opt . 0)) (RECORD . (abstract_tagged_limited_opt . 0)) (TAGGED . 865) (RANGE . 863) (MOD . 861) (DIGITS . 858) (DELTA . 857) (TASK . 496) (PROTECTED . 492) (SYNCHRONIZED . 494) (INTERFACE . 488) (ARRAY . 485) (LEFT_PAREN . 859) (ACCESS . (null_exclusion_opt . 0)) (NOT . 211) (NEW . ((abstract_limited_synchronized_opt . 0) (abstract_limited_opt . 0))) (LIMITED . 860) (ABSTRACT . 856)) ((default . error) (BEGIN . (single_task_declaration . 2)) (IDENTIFIER . (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)) (PRIVATE . (single_task_declaration . 2)) (END . (single_task_declaration . 2))) - ((default . error) (NEW . 837) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (SEPARATE . 836)) + ((default . error) (NEW . 853) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (SEPARATE . 852)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (NULL . 834)) - ((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 . 87) (TICK . 88) (RANGE . 833) (LEFT_PAREN . 803)) + ((default . error) (NULL . 850)) + ((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 . 87) (TICK . 88) (RANGE . 849) (LEFT_PAREN . 819)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (NEW . 829) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (SEPARATE . 828)) + ((default . error) (NEW . 845) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (SEPARATE . 844)) ((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (SEPARATE . 826)) - ((default . error) (SEMICOLON . 825)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IDENTIFIER . (mod_clause_opt . 0)) (AT . 822)) - ((default . error) (SEMICOLON . 821)) - ((default . error) (SEMICOLON . 820)) - ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 819) (LEFT_PAREN . 106)) + ((default . error) (SEPARATE . 842)) + ((default . error) (SEMICOLON . 841)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . (mod_clause_opt . 0)) (AT . 838)) + ((default . error) (SEMICOLON . 837)) + ((default . error) (SEMICOLON . 836)) + ((default . error) (DOT . 87) (TICK . 88) (RENAMES . 835) (LEFT_PAREN . 106)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((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 . 816)) + ((default . error) (RIGHT_PAREN . 832)) ((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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ACCESS . (null_exclusion_opt . 1)) (IDENTIFIER . 812) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ACCESS . (null_exclusion_opt . 1)) (IDENTIFIER . 828) (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) (NULL . 811) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (NUMERIC_LITERAL . 145) (NULL . 827) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (RIGHT_PAREN . (discrete_subtype_definition_list . 0)) (COMMA . (discrete_subtype_definition_list . 0))) - ((default . error) (COMMA . 809) (RIGHT_PAREN . 810)) + ((default . error) (COMMA . 825) (RIGHT_PAREN . 826)) ((default . error) (RIGHT_PAREN . (index_subtype_definition_list . 0)) (COMMA . (index_subtype_definition_list . 0))) - ((default . error) (COMMA . 807) (RIGHT_PAREN . 808)) - ((default . error) (RIGHT_PAREN . (subtype_indication . 3)) (COMMA . (subtype_indication . 3)) (PLUS . (primary . 2)) (MINUS . (primary . 2)) (AMPERSAND . (primary . 2)) (DOT_DOT . (primary . 2)) (SLASH . (primary . 2)) (STAR . (primary . 2)) (MOD . (primary . 2)) (REM . (primary . 2)) (STAR_STAR . (primary . 2)) (DOT . 87) (TICK . 274) (RANGE . 804) (LEFT_PAREN . 803)) + ((default . error) (COMMA . 823) (RIGHT_PAREN . 824)) + ((default . error) (RIGHT_PAREN . (subtype_indication . 3)) (COMMA . (subtype_indication . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (STAR_STAR . (primary . 3)) (DOT . 87) (TICK . 281) (RANGE . 820) (LEFT_PAREN . 819)) ((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) (DOT_DOT . 264)) + ((default . error) (DOT_DOT . 271)) ((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 . 802)) + ((default . error) (BOX . 818)) ((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)) (IDENTIFIER . (formal_type_declaration . 1)) (PRAGMA . (formal_type_declaration . 1)) (TYPE . (formal_type_declaration . 1)) (WITH . (formal_type_declaration . 1))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (DOT . 87) (TICK . 88) (WITH . (and_interface_list_opt . 0)) (SEMICOLON . (and_interface_list_opt . 0)) (AND . 795) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (TICK . 88) (WITH . (and_interface_list_opt . 0)) (SEMICOLON . (and_interface_list_opt . 0)) (AND . 811) (LEFT_PAREN . 106)) ((default . error) (PACKAGE . (formal_type_declaration . 0)) (PROCEDURE . (formal_type_declaration . 0)) (FUNCTION . (formal_type_declaration . 0)) (IDENTIFIER . (formal_type_declaration . 0)) (PRAGMA . (formal_type_declaration . 0)) (TYPE . (formal_type_declaration . 0)) (WITH . (formal_type_declaration . 0))) ((default . error) (PACKAGE . (formal_subprogram_declaration . 2)) (PROCEDURE . (formal_subprogram_declaration . 2)) (FUNCTION . (formal_subprogram_declaration . 2)) (IDENTIFIER . (formal_subprogram_declaration . 2)) (PRAGMA . (formal_subprogram_declaration . 2)) (TYPE . (formal_subprogram_declaration . 2)) (WITH . (formal_subprogram_declaration . 2))) - ((default . error) (BOX . 794) (IDENTIFIER . 48) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 170) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 172) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (BOX . 810) (IDENTIFIER . 48) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 173) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 175) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (RAISE . 152) (LEFT_PAREN . 148)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (PACKAGE . (formal_object_declaration . 1)) (PROCEDURE . (formal_object_declaration . 1)) (FUNCTION . (formal_object_declaration . 1)) (IDENTIFIER . (formal_object_declaration . 1)) (PRAGMA . (formal_object_declaration . 1)) (TYPE . (formal_object_declaration . 1)) (WITH . (formal_object_declaration . 1))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (SEMICOLON . 791)) + ((default . error) (SEMICOLON . 807)) ((default . error) (IDENTIFIER . 72)) ((default . error) (RENAMES . (access_definition . 1)) (DO . (access_definition . 1)) (RIGHT_PAREN . (access_definition . 1)) (IS . (access_definition . 1)) (SEMICOLON . (access_definition . 1)) (WITH . (access_definition . 1)) (COLON_EQUAL . (access_definition . 1))) ((default . error) (RENAMES . (access_definition . 2)) (DO . (access_definition . 2)) (RIGHT_PAREN . (access_definition . 2)) (IS . (access_definition . 2)) (SEMICOLON . (access_definition . 2)) (WITH . (access_definition . 2)) (COLON_EQUAL . (access_definition . 2))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (DO . (aggregate . 1)) (LOOP . (aggregate . 1)) (USE . (aggregate . 1)) (COLON_EQUAL . (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)) (CHARACTER_LITERAL . (aggregate . 1)) (STRING_LITERAL . (aggregate . 1)) (IDENTIFIER . (aggregate . 1)) (LESS_LESS . (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)) (REM . (aggregate . 1)) (MOD . (aggregate . 1)) (STAR . (aggregate . 1)) (SLASH . (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 . 788)) - ((default . error) (OF . (aggregate . 2)) (LESS_LESS . (aggregate . 2)) (IDENTIFIER . (aggregate . 2)) (STRING_LITERAL . (aggregate . 2)) (CHARACTER_LITERAL . (aggregate . 2)) (ACCEPT . (aggregate . 2)) (ABORT . (aggregate . 2)) (BEGIN . (aggregate . 2)) (CASE . (aggregate . 2)) (DECLARE . (aggregate . 2)) (DELAY . (aggregate . 2)) (EXIT . (aggregate . 2)) (FOR . (aggregate . 2)) (GOTO . (aggregate . 2)) (IF . (aggregate . 2)) (NULL . (aggregate . 2)) (PRAGMA . (aggregate . 2)) (RAISE . (aggregate . 2)) (REQUEUE . (aggregate . 2)) (SELECT . (aggregate . 2)) (WHILE . (aggregate . 2)) (COLON_EQUAL . (aggregate . 2)) (USE . (aggregate . 2)) (LOOP . (aggregate . 2)) (DO . (aggregate . 2)) (RETURN . (aggregate . 2)) (RENAMES . (aggregate . 2)) (TICK . (aggregate . 2)) (DOT . (aggregate . 2)) (LEFT_PAREN . (aggregate . 2)) (PLUS . (aggregate . 2)) (MINUS . (aggregate . 2)) (AMPERSAND . (aggregate . 2)) (DOT_DOT . (aggregate . 2)) (SLASH . (aggregate . 2)) (STAR . (aggregate . 2)) (MOD . (aggregate . 2)) (REM . (aggregate . 2)) (STAR_STAR . (aggregate . 2)) (SEMICOLON . (aggregate . 2)) (XOR . (aggregate . 2)) (OR . (aggregate . 2)) (AND . (aggregate . 2)) (IN . (aggregate . 2)) (NOT . (aggregate . 2)) (EQUAL . (aggregate . 2)) (GREATER . (aggregate . 2)) (GREATER_EQUAL . (aggregate . 2)) (LESS . (aggregate . 2)) (LESS_EQUAL . (aggregate . 2)) (SLASH_EQUAL . (aggregate . 2)) (IS . (aggregate . 2)) (EQUAL_GREATER . (aggregate . 2)) (BAR . (aggregate . 2)) (WITH . (aggregate . 2)) (THEN . (aggregate . 2)) (RANGE . (aggregate . 2)) (RIGHT_PAREN . (aggregate . 2)) (COMMA . (aggregate . 2)) (DIGITS . (aggregate . 2)) (ELSE . (aggregate . 2)) (ELSIF . (aggregate . 2))) + ((default . error) (RIGHT_PAREN . 804)) + ((default . error) (ELSE . 800) (RIGHT_PAREN . (if_expression . 3)) (ELSIF . 801)) + ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 0)) (COMMA . (case_expression_alternative_list . 0))) + ((default . error) (COMMA . 798) (RIGHT_PAREN . (case_expression . 0))) + ((default . error) (WHEN . 795)) + ((default . error) (BAR . 282) (EQUAL_GREATER . 1076)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((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 . 1072) (ELSIF . 801)) + ((default . error) (OF . (aggregate . 4)) (LESS_LESS . (aggregate . 4)) (IDENTIFIER . (aggregate . 4)) (STRING_LITERAL . (aggregate . 4)) (CHARACTER_LITERAL . (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)) (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)) (SLASH . (aggregate . 4)) (STAR . (aggregate . 4)) (MOD . (aggregate . 4)) (REM . (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) (RIGHT_PAREN . (parameter_specification . 2)) (SEMICOLON . (parameter_specification . 2))) - ((default . error) (COLON_EQUAL . 1067) (DOT . 87) (TICK . 88) (RIGHT_PAREN . (parameter_specification . 1)) (SEMICOLON . (parameter_specification . 1)) (LEFT_PAREN . 106)) + ((default . error) (COLON_EQUAL . 1071) (DOT . 87) (TICK . 88) (RIGHT_PAREN . (parameter_specification . 1)) (SEMICOLON . (parameter_specification . 1)) (LEFT_PAREN . 106)) ((default . error) (WITH . (formal_object_declaration . 2)) (TYPE . (formal_object_declaration . 2)) (PRAGMA . (formal_object_declaration . 2)) (IDENTIFIER . (formal_object_declaration . 2)) (FUNCTION . (formal_object_declaration . 2)) (PROCEDURE . (formal_object_declaration . 2)) (PACKAGE . (formal_object_declaration . 2))) - ((default . error) (SEMICOLON . 1066)) - ((default . error) (SEMICOLON . 1065)) - ((default . error) (RIGHT_PAREN . 1064)) + ((default . error) (SEMICOLON . 1070)) + ((default . error) (SEMICOLON . 1069)) + ((default . error) (RIGHT_PAREN . 1068)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (WITH . ( 1062 (formal_derived_type_definition . 1))) (SEMICOLON . (formal_derived_type_definition . 1))) - ((default . error) (AND . 1061) (WITH . (interface_type_definition . 1)) (SEMICOLON . (interface_type_definition . 1))) + ((default . error) (WITH . ( 1066 (formal_derived_type_definition . 1))) (SEMICOLON . (formal_derived_type_definition . 1))) + ((default . error) (AND . 1065) (WITH . (interface_type_definition . 1)) (SEMICOLON . (interface_type_definition . 1))) ((default . error) (DOT . 87) (SEMICOLON . (interface_list . 0)) (WITH . (interface_list . 0)) (AND . (interface_list . 0)) (TICK . 88) (LEFT_PAREN . 106)) - ((default . error) (AND . 1061) (WITH . (interface_type_definition . 3)) (SEMICOLON . (interface_type_definition . 3))) - ((default . error) (AND . 1061) (WITH . (interface_type_definition . 2)) (SEMICOLON . (interface_type_definition . 2))) - ((default . error) (AND . 1061) (WITH . (interface_type_definition . 0)) (SEMICOLON . (interface_type_definition . 0))) + ((default . error) (AND . 1065) (WITH . (interface_type_definition . 3)) (SEMICOLON . (interface_type_definition . 3))) + ((default . error) (AND . 1065) (WITH . (interface_type_definition . 2)) (SEMICOLON . (interface_type_definition . 2))) + ((default . error) (AND . 1065) (WITH . (interface_type_definition . 0)) (SEMICOLON . (interface_type_definition . 0))) ((default . error) (SEMICOLON . (formal_type_definition . 7)) (WITH . (formal_type_definition . 7))) - ((default . error) (IDENTIFIER . 48) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 170) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 172) (ABS . 146) (NOT . 1058) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (BOX . 1057) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (IDENTIFIER . 48) (STRING_LITERAL . 49) (CHARACTER_LITERAL . 173) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (PLUS . 144) (MINUS . 143) (OTHERS . 175) (ABS . 147) (NOT . 1062) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (RAISE . 152) (LEFT_PAREN . 148)) + ((default . error) (BOX . 1061) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((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) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (OF . 1054)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 757) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (OF . 1052)) - ((default . error) (PLUS . (primary . 0)) (MINUS . (primary . 0)) (AMPERSAND . (primary . 0)) (DOT_DOT . (primary . 0)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (DOT . (name . 0)) (LEFT_PAREN . (name . 0)) (TICK . (name . 0)) (SEMICOLON . (null_exclusion_opt_name . 2)) (RIGHT_PAREN . (null_exclusion_opt_name . 2)) (COLON_EQUAL . (null_exclusion_opt_name . 2))) - ((default . error) (DOT . (name . 3)) (LEFT_PAREN . (name . 3)) (TICK . (name . 3)) (SEMICOLON . (null_exclusion_opt_name . 3)) (RIGHT_PAREN . (null_exclusion_opt_name . 3)) (COLON_EQUAL . (null_exclusion_opt_name . 3))) + ((default . error) (OF . 1058)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 763) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (OF . 1056)) + ((default . error) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (MOD . (primary . 1)) (REM . (primary . 1)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((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))) ((default . error) (SEMICOLON . (discriminant_specification_opt . 1)) (RIGHT_PAREN . (discriminant_specification_opt . 1))) ((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)) (COMMA . (range . 0)) (BAR . (range . 0)) (EQUAL_GREATER . (range . 0)) (RIGHT_PAREN . (range . 0))) @@ -2559,37 +2633,37 @@ ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (WHEN . (record_representation_clause . 0)) (END . (record_representation_clause . 0)) (PRIVATE . (record_representation_clause . 0)) (CASE . (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)) (IDENTIFIER . (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)) (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)) (IDENTIFIER . (enumeration_representation_clause . 0)) (BEGIN . (enumeration_representation_clause . 0))) - ((default . error) (MOD . 1048)) - ((default . error) (IDENTIFIER . 1045)) - ((default . error) (SEMICOLON . 1044)) + ((default . error) (MOD . 1052)) + ((default . error) (IDENTIFIER . 1049)) + ((default . error) (SEMICOLON . 1048)) ((default . error) (WHEN . (aspect_clause . 0)) (PRIVATE . (aspect_clause . 0)) (END . (aspect_clause . 0)) (CASE . (aspect_clause . 0)) (BEGIN . (aspect_clause . 0)) (IDENTIFIER . (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))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (IS . 1042)) + ((default . error) (IS . 1046)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . 1038) (PRIVATE . 1039)) - ((default . error) (SEMICOLON . 1037)) - ((default . error) (SEMICOLON . 1036)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (END . 1042) (PRIVATE . 1043)) + ((default . error) (SEMICOLON . 1041)) + ((default . error) (SEMICOLON . 1040)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 1032) (IS . 1033)) + ((default . error) (SEMICOLON . 1036) (IS . 1037)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (END . 1028) (PRIVATE . 1029)) - ((default . error) (SEMICOLON . 1027)) - ((default . error) (SYNCHRONIZED . 550) (TAGGED . 551) (NEW . ((abstract_limited_synchronized_opt . 3) (abstract_limited_opt . 3))) (LIMITED . 1026)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IDENTIFIER . 1020) (CHARACTER_LITERAL . 1021)) - ((default . error) (INTERFACE . 544) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NULL . (abstract_tagged_limited_opt . 5)) (RECORD . (abstract_tagged_limited_opt . 5)) (NEW . ((abstract_limited_synchronized_opt . 4) (abstract_limited_opt . 2)))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (RECORD . 1018)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (END . (component_list_opt . 0)) (NULL . 1009) (CASE . 1008) (IDENTIFIER . 72) (FOR . 289)) - ((default . error) (SEMICOLON . 1007) (PRIVATE . (abstract_tagged_limited_opt . 4)) (NULL . (abstract_tagged_limited_opt . 4)) (RECORD . (abstract_tagged_limited_opt . 4)) (LIMITED . 538)) - ((default . error) (NEW . 1006)) - ((default . error) (NEW . 1005)) - ((default . error) (PRIVATE . 1003) (RECORD . 848) (NULL . 846)) + ((default . error) (END . 1032) (PRIVATE . 1033)) + ((default . error) (SEMICOLON . 1031)) + ((default . error) (SYNCHRONIZED . 561) (TAGGED . 562) (NEW . ((abstract_limited_synchronized_opt . 3) (abstract_limited_opt . 3))) (LIMITED . 1030)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 1024) (CHARACTER_LITERAL . 1025)) + ((default . error) (INTERFACE . 555) (PRIVATE . (abstract_tagged_limited_opt . 5)) (NULL . (abstract_tagged_limited_opt . 5)) (RECORD . (abstract_tagged_limited_opt . 5)) (NEW . ((abstract_limited_synchronized_opt . 4) (abstract_limited_opt . 2)))) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RECORD . 1022)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (END . (component_list_opt . 0)) (NULL . 1013) (CASE . 1012) (IDENTIFIER . 72) (FOR . 296)) + ((default . error) (SEMICOLON . 1011) (PRIVATE . (abstract_tagged_limited_opt . 4)) (NULL . (abstract_tagged_limited_opt . 4)) (RECORD . (abstract_tagged_limited_opt . 4)) (LIMITED . 549)) + ((default . error) (NEW . 1010)) + ((default . error) (NEW . 1009)) + ((default . error) (PRIVATE . 1007) (RECORD . 864) (NULL . 862)) ((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))) @@ -2598,131 +2672,119 @@ ((default . error) (WITH . (type_definition . 7)) (SEMICOLON . (type_definition . 7))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (SEMICOLON . (package_specification . 0))) - ((default . error) (SEMICOLON . 1001)) - ((default . error) (NULL . 1000)) + ((default . error) (SEMICOLON . 1005)) + ((default . error) (NULL . 1004)) + ((default . error) (COLON_EQUAL . 1002) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) + ((default . error) (COLON_EQUAL . 1000) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (COLON_EQUAL . 998) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (COLON_EQUAL . 996) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (COLON_EQUAL . 994) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (SEMICOLON . 993)) - ((default . error) (SEMICOLON . 992)) - ((default . error) (SEMICOLON . 991)) + ((default . error) (SEMICOLON . 997)) + ((default . error) (SEMICOLON . 996)) + ((default . error) (SEMICOLON . 995)) + ((default . error) (SEMICOLON . 994)) + ((default . error) (RIGHT_PAREN . 993)) + ((default . error) (RIGHT_PAREN . 992)) + ((default . error) (RIGHT_PAREN . 991)) ((default . error) (SEMICOLON . 990)) ((default . error) (RIGHT_PAREN . 989)) - ((default . error) (RIGHT_PAREN . 988)) - ((default . error) (RIGHT_PAREN . 987)) - ((default . error) (SEMICOLON . 986)) - ((default . error) (RIGHT_PAREN . 985)) - ((default . error) (LOOP . (subtype_indication . 3)) (DOT . 87) (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)) (RIGHT_PAREN . ((subtype_indication . 3) (primary . 2))) (COMMA . ((subtype_indication . 3) (primary . 2))) (BAR . (primary . 2)) (EQUAL_GREATER . ((subtype_indication . 3) (primary . 2))) (AND . (primary . 2)) (OR . (primary . 2)) (XOR . (primary . 2)) (PLUS . (primary . 2)) (MINUS . (primary . 2)) (AMPERSAND . (primary . 2)) (DOT_DOT . (primary . 2)) (SLASH . (primary . 2)) (STAR . (primary . 2)) (MOD . (primary . 2)) (REM . (primary . 2)) (STAR_STAR . (primary . 2)) (TICK . 274) (RANGE . 833) (LEFT_PAREN . 803)) + ((default . error) (LOOP . (subtype_indication . 3)) (DOT . 87) (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 . ((subtype_indication . 3) (primary . 3))) (COMMA . ((subtype_indication . 3) (primary . 3))) (BAR . (primary . 3)) (EQUAL_GREATER . ((subtype_indication . 3) (primary . 3))) (AND . (primary . 3)) (OR . (primary . 3)) (XOR . (primary . 3)) (PLUS . (primary . 3)) (MINUS . (primary . 3)) (AMPERSAND . (primary . 3)) (DOT_DOT . (primary . 3)) (SLASH . (primary . 3)) (STAR . (primary . 3)) (MOD . (primary . 3)) (REM . (primary . 3)) (STAR_STAR . (primary . 3)) (TICK . 281) (RANGE . 849) (LEFT_PAREN . 819)) ((default . error) (SEMICOLON . (name_opt . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (END . (package_body . 1)) (BEGIN . (package_body . 1)) (IDENTIFIER . (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)) (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) (WHEN . 713)) - ((default . error) (BAR . 275) (EQUAL_GREATER . 982)) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (DOT . 87) (TICK . 88) (LOOP . (iterator_specification . 5)) (EQUAL_GREATER . (iterator_specification . 5)) (LEFT_PAREN . 106)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 757) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 763) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (LOOP . (iterator_specification . 1)) (EQUAL_GREATER . (iterator_specification . 1))) - ((default . error) (OF . 979)) + ((default . error) (OF . 985)) ((default . error) (RIGHT_PAREN . (quantified_expression . 0))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((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 . 975) (ELSIF . 887)) - ((default . error) (END . (protected_operation_item_list_opt . 0)) (ENTRY . 966) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 289)) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) + ((default . error) (END . (protected_operation_item_list_opt . 0)) (ENTRY . 976) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 296)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) ((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)) (IDENTIFIER . (label_opt . 1)) (STRING_LITERAL . (label_opt . 1)) (CHARACTER_LITERAL . (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))) - ((default . error) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 170) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (RIGHT_PAREN . ((association_opt . 0) (expression_opt . 0))) (COMMA . ((association_opt . 0) (expression_opt . 0))) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 173) (STRING_LITERAL . 49) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (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 . 781)) + ((default . error) (DO . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 787)) ((default . error) (OR . (simple_statement . 8)) (THEN . (simple_statement . 8)) (WHEN . (simple_statement . 8)) (EXCEPTION . (simple_statement . 8)) (END . (simple_statement . 8)) (LESS_LESS . (simple_statement . 8)) (IDENTIFIER . (simple_statement . 8)) (STRING_LITERAL . (simple_statement . 8)) (CHARACTER_LITERAL . (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)) (ELSE . (simple_statement . 8)) (ELSIF . (simple_statement . 8))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (WHEN . 960)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (WHEN . 970)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((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)) (LESS_LESS . (delay_statement . 1)) (IDENTIFIER . (delay_statement . 1)) (STRING_LITERAL . (delay_statement . 1)) (CHARACTER_LITERAL . (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))) - ((default . error) (SEMICOLON . 958)) + ((default . error) (SEMICOLON . 968)) ((default . error) (OR . (exit_statement . 1)) (THEN . (exit_statement . 1)) (WHEN . (exit_statement . 1)) (EXCEPTION . (exit_statement . 1)) (END . (exit_statement . 1)) (LESS_LESS . (exit_statement . 1)) (IDENTIFIER . (exit_statement . 1)) (STRING_LITERAL . (exit_statement . 1)) (CHARACTER_LITERAL . (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)) (ELSE . (exit_statement . 1)) (ELSIF . (exit_statement . 1))) - ((default . error) (SEMICOLON . (expression_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (SEMICOLON . (expression_opt . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (OR . (simple_statement . 3)) (THEN . (simple_statement . 3)) (WHEN . (simple_statement . 3)) (EXCEPTION . (simple_statement . 3)) (END . (simple_statement . 3)) (LESS_LESS . (simple_statement . 3)) (IDENTIFIER . (simple_statement . 3)) (STRING_LITERAL . (simple_statement . 3)) (CHARACTER_LITERAL . (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)) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (LOOP . 955)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (LOOP . 965)) ((default . error) (OR . (raise_statement . 2)) (THEN . (raise_statement . 2)) (WHEN . (raise_statement . 2)) (EXCEPTION . (raise_statement . 2)) (END . (raise_statement . 2)) (LESS_LESS . (raise_statement . 2)) (IDENTIFIER . (raise_statement . 2)) (STRING_LITERAL . (raise_statement . 2)) (CHARACTER_LITERAL . (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)) (ELSE . (raise_statement . 2)) (ELSIF . (raise_statement . 2))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (OR . (requeue_statement . 1)) (THEN . (requeue_statement . 1)) (WHEN . (requeue_statement . 1)) (EXCEPTION . (requeue_statement . 1)) (END . (requeue_statement . 1)) (LESS_LESS . (requeue_statement . 1)) (IDENTIFIER . (requeue_statement . 1)) (STRING_LITERAL . (requeue_statement . 1)) (CHARACTER_LITERAL . (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)) (ELSE . (requeue_statement . 1)) (ELSIF . (requeue_statement . 1))) - ((default . error) (ABORT . 953)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((default . error) (ABORT . 963)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((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)) (LESS_LESS . (extended_return_statement . 1)) (IDENTIFIER . (extended_return_statement . 1)) (STRING_LITERAL . (extended_return_statement . 1)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (simple_return_statement . 1)) (IDENTIFIER . (simple_return_statement . 1)) (STRING_LITERAL . (simple_return_statement . 1)) (CHARACTER_LITERAL . (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)) (ELSE . (simple_return_statement . 1)) (ELSIF . (simple_return_statement . 1))) - ((default . error) (CONSTANT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (ALIASED . 512)) - ((default . error) (ABORT . 950)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (SELECT . 948)) - ((default . error) (WHEN . 669) (TERMINATE . 668) (ACCEPT . 612) (DELAY . 617)) + ((default . error) (CONSTANT . (aliased_opt . 0)) (IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0)) (CHARACTER_LITERAL . (aliased_opt . 0)) (ACCESS . (aliased_opt . 0)) (NOT . (aliased_opt . 0)) (ALIASED . 517)) + ((default . error) (ABORT . 960)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (SELECT . 958)) + ((default . error) (WHEN . 678) (TERMINATE . 677) (ACCEPT . 621) (DELAY . 626)) ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (DELAY . 617)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (DELAY . 626)) ((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 . 943)) + ((default . error) (EQUAL_GREATER . 953)) ((default . error) (END . (select_alternative . 5)) (OR . (select_alternative . 5)) (ELSE . (select_alternative . 5))) - ((default . error) (SEMICOLON . 942)) - ((default . error) (END . 941)) - ((default . error) (SEMICOLON . 940)) - ((default . error) (OTHERS . 936) (IDENTIFIER . 935) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (SEMICOLON . 952)) + ((default . error) (END . 951)) + ((default . error) (SEMICOLON . 950)) + ((default . error) (OTHERS . 946) (IDENTIFIER . 945) (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 . 930)) + ((default . error) (END . (exception_handler_list_opt . 1)) (WHEN . 940)) ((default . error) (END . (handled_sequence_of_statements . 0))) ((default . error) (WHEN . (exception_handler_list . 1)) (END . (exception_handler_list . 1))) - ((default . error) (COLON . 1168) (EQUAL_GREATER . (name . 0)) (BAR . (name . 0)) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) + ((default . error) (COLON . 1178) (EQUAL_GREATER . (name . 0)) (BAR . (name . 0)) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0))) ((default . error) (BAR . (exception_choice . 1)) (EQUAL_GREATER . (exception_choice . 1))) ((default . error) (EQUAL_GREATER . (exception_choice_list . 0)) (BAR . (exception_choice_list . 0))) - ((default . error) (BAR . 1166) (EQUAL_GREATER . 1167)) + ((default . error) (BAR . 1176) (EQUAL_GREATER . 1177)) ((default . error) (DOT . 87) (BAR . (exception_choice . 0)) (EQUAL_GREATER . (exception_choice . 0)) (TICK . 88) (LEFT_PAREN . 106)) ((default . error) (WHEN . (assignment_statement . 0)) (THEN . (assignment_statement . 0)) (OR . (assignment_statement . 0)) (ELSIF . (assignment_statement . 0)) (ELSE . (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)) (CHARACTER_LITERAL . (assignment_statement . 0)) (STRING_LITERAL . (assignment_statement . 0)) (IDENTIFIER . (assignment_statement . 0)) (LESS_LESS . (assignment_statement . 0)) (END . (assignment_statement . 0)) (EXCEPTION . (assignment_statement . 0))) - ((default . error) (LOOP . 1165)) + ((default . error) (LOOP . 1175)) ((default . error) (TYPE . (subprogram_body . 0)) (TASK . (subprogram_body . 0)) (SUBTYPE . (subprogram_body . 0)) (PROTECTED . (subprogram_body . 0)) (FOR . (subprogram_body . 0)) (ENTRY . (subprogram_body . 0)) (IDENTIFIER . (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 . 1162) (ACCEPT . 612) (DELAY . 617)) - ((default . error) (END . 1161)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (END . 1159)) + ((default . error) (TERMINATE . 1172) (ACCEPT . 621) (DELAY . 626)) + ((default . error) (END . 1171)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (END . 1169)) ((default . error) (ELSE . (select_alternative_list . 1)) (END . (select_alternative_list . 1)) (OR . (select_alternative_list . 1))) - ((default . error) (SEMICOLON . 1158)) - ((default . error) (END . 1157)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (ACCESS . (constant_opt . 0)) (NOT . (constant_opt . 0)) (CONSTANT . 725)) - ((default . error) (END . 1154)) - ((default . error) (SEMICOLON . 1153)) - ((default . error) (SEMICOLON . 1152)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (ELSE . 1146) (END . 1148) (ELSIF . 1147)) - ((default . error) (SEMICOLON . 1145)) + ((default . error) (SEMICOLON . 1168)) + ((default . error) (END . 1167)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (ACCESS . (constant_opt . 0)) (NOT . (constant_opt . 0)) (CONSTANT . 730)) + ((default . error) (END . 1164)) + ((default . error) (SEMICOLON . 1163)) + ((default . error) (SEMICOLON . 1162)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (ELSE . 1156) (END . 1158) (ELSIF . 1157)) + ((default . error) (SEMICOLON . 1155)) ((default . error) (WHEN . (delay_statement . 0)) (ELSIF . (delay_statement . 0)) (EXCEPTION . (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)) (CHARACTER_LITERAL . (delay_statement . 0)) (STRING_LITERAL . (delay_statement . 0)) (IDENTIFIER . (delay_statement . 0)) (LESS_LESS . (delay_statement . 0)) (END . (delay_statement . 0)) (OR . (delay_statement . 0)) (ELSE . (delay_statement . 0)) (THEN . (delay_statement . 0))) - ((default . error) (END . 1144)) - ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (END . 1154)) + ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (END . (case_statement_alternative_list . 0)) (WHEN . (case_statement_alternative_list . 0))) - ((default . error) (END . 1141) (WHEN . 960)) - ((default . error) (SEMICOLON . 1140)) - ((default . error) (DO . 1139) (SEMICOLON . 1138)) - ((default . error) (BEGIN . 1137)) - ((default . error) (IDENTIFIER . 1136)) + ((default . error) (END . 1151) (WHEN . 970)) + ((default . error) (SEMICOLON . 1150)) + ((default . error) (DO . 1149) (SEMICOLON . 1148)) + ((default . error) (BEGIN . 1147)) + ((default . error) (IDENTIFIER . 1146)) ((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 . 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) (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 . 966) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 289)) - ((default . error) (END . 1133)) + ((default . error) (END . (protected_operation_item_list_opt . 1)) (ENTRY . 976) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR . 296)) + ((default . error) (END . 1143)) ((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) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ELSIF . (elsif_expression_list . 1)) (ELSE . (elsif_expression_list . 1)) (RIGHT_PAREN . (elsif_expression_list . 1))) - ((default . error) (THEN . 1131)) - ((default . error) (RIGHT_PAREN . (if_expression . 2))) - ((default . error) (REVERSE . 1129) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (REVERSE . 1141) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (LOOP . (iterator_specification . 0)) (EQUAL_GREATER . (iterator_specification . 0))) ((default . error) (DOT . 87) (TICK . 88) (LOOP . (iterator_specification . 4)) (EQUAL_GREATER . (iterator_specification . 4)) (LEFT_PAREN . 106)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 1)) (COMMA . (case_expression_alternative_list . 1))) - ((default . error) (SEMICOLON . 1127)) - ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 781)) + ((default . error) (SEMICOLON . 1140)) + ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN . 787)) ((default . error) (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)) (IDENTIFIER . (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))) @@ -2731,131 +2793,140 @@ ((default . error) (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)) (IDENTIFIER . (null_procedure_declaration . 0)) (BEGIN . (null_procedure_declaration . 0)) (END . (null_procedure_declaration . 0)) (PRIVATE . (null_procedure_declaration . 0))) ((default . error) (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)) (IDENTIFIER . (abstract_subprogram_declaration . 0)) (BEGIN . (abstract_subprogram_declaration . 0)) (END . (abstract_subprogram_declaration . 0)) (PRIVATE . (abstract_subprogram_declaration . 0))) ((default . error) (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)) (IDENTIFIER . (subprogram_body_stub . 0)) (BEGIN . (subprogram_body_stub . 0)) (END . (subprogram_body_stub . 0)) (PRIVATE . (subprogram_body_stub . 0))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 1124)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 1122)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 1120)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1137)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1135)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1133)) ((default . error) (ACCESS . (null_exclusion_opt . 1)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (BEGIN . (declaration . 9)) (IDENTIFIER . (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)) (PRIVATE . (declaration . 9)) (END . (declaration . 9))) - ((default . error) (SEMICOLON . 1119)) + ((default . error) (SEMICOLON . 1132)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((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 . 735) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (NOT . 741) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (BEGIN . (incomplete_type_declaration . 0)) (IDENTIFIER . (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)) (PRIVATE . (incomplete_type_declaration . 0)) (END . (incomplete_type_declaration . 0))) - ((default . error) (IS . (direct_name_opt . 0)) (IDENTIFIER . 1112) (STRING_LITERAL . 1113)) - ((default . error) (SEMICOLON . 1111)) + ((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)) (FOR . (component_item . 1)) (IDENTIFIER . (component_item . 1)) (CASE . (component_item . 1))) ((default . error) (WHEN . (component_item . 0)) (END . (component_item . 0)) (FOR . (component_item . 0)) (IDENTIFIER . (component_item . 0)) (CASE . (component_item . 0))) ((default . error) (WHEN . (component_list . 0)) (END . (component_list . 0)) (CASE . (component_list . 0)) (IDENTIFIER . (component_list . 0)) (FOR . (component_list . 0))) - ((default . error) (WHEN . (component_list_opt . 1)) (END . (component_list_opt . 1)) (CASE . 1008) (IDENTIFIER . 72) (FOR . 289)) - ((default . error) (END . 1108)) - ((default . error) (COMMA . 95) (COLON . 1107)) + ((default . error) (WHEN . (component_list_opt . 1)) (END . (component_list_opt . 1)) (CASE . 1012) (IDENTIFIER . 72) (FOR . 296)) + ((default . error) (END . 1121)) + ((default . error) (COMMA . 95) (COLON . 1120)) ((default . error) (WHEN . (component_list . 3)) (END . (component_list . 3)) (CASE . (component_list . 3)) (IDENTIFIER . (component_list . 3)) (FOR . (component_list . 3))) - ((default . error) (DOT_DOT . 1106)) + ((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 . 1104) (RIGHT_PAREN . 1105)) - ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1101)) - ((default . error) (DIGITS . 1100) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1101)) + ((default . error) (COMMA . 1117) (RIGHT_PAREN . 1118)) + ((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_opt . 1) (abstract_limited_synchronized_opt . 1)))) ((default . error) (BEGIN . (single_task_declaration . 1)) (IDENTIFIER . (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)) (PRIVATE . (single_task_declaration . 1)) (END . (single_task_declaration . 1))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (AND . 1061) (WITH . 1097)) - ((default . error) (SEMICOLON . 1096)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (AND . 1065) (WITH . 1110)) + ((default . error) (SEMICOLON . 1109)) ((default . error) (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)) (IDENTIFIER . (task_type_declaration . 2)) (BEGIN . (task_type_declaration . 2)) (END . (task_type_declaration . 2)) (PRIVATE . (task_type_declaration . 2))) - ((default . error) (NEW . 1094) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((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 . 87) (TICK . 88) (RANGE . 833) (LEFT_PAREN . 803)) + ((default . error) (NEW . 1107) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((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 . 87) (TICK . 88) (RANGE . 849) (LEFT_PAREN . 819)) ((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) (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)) (IDENTIFIER . (subtype_declaration . 0)) (BEGIN . (subtype_declaration . 0)) (END . (subtype_declaration . 0)) (PRIVATE . (subtype_declaration . 0))) ((default . error) (BEGIN . (single_protected_declaration . 1)) (IDENTIFIER . (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)) (PRIVATE . (single_protected_declaration . 1)) (END . (single_protected_declaration . 1))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (AND . 1061) (WITH . 1090)) - ((default . error) (SEMICOLON . 1089)) - ((default . error) (NEW . 1087) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (SEMICOLON . 1086)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (END . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (AND . 1065) (WITH . 1103)) + ((default . error) (SEMICOLON . 1102)) + ((default . error) (NEW . 1100) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (SEMICOLON . 1099)) ((default . error) (WHEN . (at_clause . 0)) (BEGIN . (at_clause . 0)) (IDENTIFIER . (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)) (CASE . (at_clause . 0)) (PRIVATE . (at_clause . 0)) (END . (at_clause . 0))) - ((default . error) (AT . 1085)) + ((default . error) (AT . 1098)) ((default . error) (END . (component_clause_list . 0)) (IDENTIFIER . (component_clause_list . 0))) - ((default . error) (END . 1083) (IDENTIFIER . 1045)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (END . 1096) (IDENTIFIER . 1049)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) ((default . error) (DOT . 87) (TICK . 88) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108) (LEFT_PAREN . 106)) - ((default . error) (SEMICOLON . 1080)) - ((default . error) (SEMICOLON . 1079)) - ((default . error) (ALIASED . 1074) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 862)) + ((default . error) (SEMICOLON . 1093)) + ((default . error) (SEMICOLON . 1092)) + ((default . error) (ALIASED . 1087) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 878)) ((default . error) (RIGHT_PAREN . (discrete_subtype_definition_list . 1)) (COMMA . (discrete_subtype_definition_list . 1))) - ((default . error) (ALIASED . 1074) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 862)) + ((default . error) (ALIASED . 1087) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 878)) ((default . error) (RIGHT_PAREN . (index_subtype_definition_list . 1)) (COMMA . (index_subtype_definition_list . 1))) - ((default . error) (DOT . 87) (RANGE . 1073) (TICK . 88) (LEFT_PAREN . 106)) + ((default . error) (DOT . 87) (RANGE . 1086) (TICK . 88) (LEFT_PAREN . 106)) ((default . error) (COMMA . (index_subtype_definition . 0)) (RIGHT_PAREN . (index_subtype_definition . 0))) - ((default . error) (NULL . 1072) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (COMMA . 809) (RIGHT_PAREN . 1071)) - ((default . error) (COMMA . (discrete_subtype_definition . 1)) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2)) (RIGHT_PAREN . ((discrete_subtype_definition . 1) 260))) + ((default . error) (NUMERIC_LITERAL . 145) (NULL . 1085) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (COMMA . 825) (RIGHT_PAREN . 1084)) + ((default . error) (COMMA . (discrete_subtype_definition . 1)) (BAR . (discrete_choice . 2)) (EQUAL_GREATER . (discrete_choice . 2)) (RIGHT_PAREN . ((discrete_subtype_definition . 1) 267))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (PRIVATE . 1069)) - ((default . error) (AND . 1061) (WITH . (and_interface_list_opt . 1)) (SEMICOLON . (and_interface_list_opt . 1))) + ((default . error) (PRIVATE . 1082)) + ((default . error) (AND . 1065) (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)) (IDENTIFIER . (formal_package_declaration . 0)) (PRAGMA . (formal_package_declaration . 0)) (TYPE . (formal_package_declaration . 0)) (WITH . (formal_package_declaration . 0))) ((default . error) (PACKAGE . (formal_object_declaration . 0)) (PROCEDURE . (formal_object_declaration . 0)) (FUNCTION . (formal_object_declaration . 0)) (IDENTIFIER . (formal_object_declaration . 0)) (PRAGMA . (formal_object_declaration . 0)) (TYPE . (formal_object_declaration . 0)) (WITH . (formal_object_declaration . 0))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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))) + ((default . error) (THEN . 1079)) + ((default . error) (RIGHT_PAREN . (if_expression . 2))) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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) (COMMA . (case_expression_alternative . 0)) (RIGHT_PAREN . (case_expression_alternative . 0))) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RIGHT_PAREN . (if_expression . 0))) ((default . error) (RIGHT_PAREN . (parameter_specification . 0)) (SEMICOLON . (parameter_specification . 0))) ((default . error) (WITH . (formal_derived_type_definition . 0)) (SEMICOLON . (formal_derived_type_definition . 0))) ((default . error) (DOT . 87) (TICK . 88) (WITH . (interface_list . 1)) (SEMICOLON . (interface_list . 1)) (AND . (interface_list . 1)) (LEFT_PAREN . 106)) ((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) (PLUS . (primary . 0)) (MINUS . (primary . 0)) (AMPERSAND . (primary . 0)) (DOT_DOT . (primary . 0)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (XOR . (primary . 0)) (OR . (primary . 0)) (AND . (primary . 0)) (EQUAL_GREATER . (primary . 0)) (BAR . (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)) (RIGHT_PAREN . (primary . 0)) (COMMA . (primary . 0)) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (BOX . 1057)) - ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 862) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (PLUS . (primary . 1)) (MINUS . (primary . 1)) (AMPERSAND . (primary . 1)) (DOT_DOT . (primary . 1)) (SLASH . (primary . 1)) (STAR . (primary . 1)) (MOD . (primary . 1)) (REM . (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) (BOX . 1061)) + ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 878) (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) (WITH . (array_type_definition . 1)) (SEMICOLON . (array_type_definition . 1)) (COLON_EQUAL . (array_type_definition . 1))) ((default . error) (END . (object_renaming_declaration . 2)) (PRIVATE . (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)) (IDENTIFIER . (object_renaming_declaration . 2)) (BEGIN . (object_renaming_declaration . 2))) ((default . error) (END . (object_renaming_declaration . 1)) (PRIVATE . (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)) (IDENTIFIER . (object_renaming_declaration . 1)) (BEGIN . (object_renaming_declaration . 1))) - ((default . error) (SEMICOLON . 1228)) - ((default . error) (SEMICOLON . 1227)) - ((default . error) (RECORD . 1226)) + ((default . error) (SEMICOLON . 1237)) + ((default . error) (SEMICOLON . 1236)) + ((default . error) (RECORD . 1235)) ((default . error) (IDENTIFIER . (component_clause_list . 1)) (END . (component_clause_list . 1))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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)) (IDENTIFIER . (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))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 1223)) + ((default . error) (SEMICOLON . 1232)) ((default . error) (PRIVATE . (protected_body_stub . 0)) (END . (protected_body_stub . 0)) (BEGIN . (protected_body_stub . 0)) (IDENTIFIER . (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))) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (END . 1221)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (END . 1230)) ((default . error) (SEMICOLON . (protected_definition . 1))) ((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) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (SEMICOLON . 1219)) + ((default . error) (SEMICOLON . 1228)) ((default . error) (PRIVATE . (task_body_stub . 0)) (END . (task_body_stub . 0)) (BEGIN . (task_body_stub . 0)) (IDENTIFIER . (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))) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (END . 1217)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (END . 1226)) ((default . error) (SEMICOLON . (task_definition . 1))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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) (IDENTIFIER . 1020) (CHARACTER_LITERAL . 1021)) + ((default . error) (IDENTIFIER . 1024) (CHARACTER_LITERAL . 1025)) ((default . error) (SEMICOLON . (enumeration_type_definition . 0)) (WITH . (enumeration_type_definition . 0))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (ALIASED . 1074) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 862)) - ((default . error) (RECORD . 1211)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (ALIASED . 1087) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 878)) + ((default . error) (RECORD . 1220)) ((default . error) (WHEN . (component_list . 1)) (FOR . (component_list . 1)) (IDENTIFIER . (component_list . 1)) (CASE . (component_list . 1)) (END . (component_list . 1))) ((default . error) (WHEN . (component_list . 2)) (FOR . (component_list . 2)) (IDENTIFIER . (component_list . 2)) (CASE . (component_list . 2)) (END . (component_list . 2))) ((default . error) (WHEN . (component_list . 4)) (FOR . (component_list . 4)) (IDENTIFIER . (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 . 1210)) - ((default . error) (WITH . (and_interface_list_opt . 0)) (AND . 795)) - ((default . error) (DOT . 87) (TICK . 88) (AND . 795) (WITH . ((and_interface_list_opt . 0) (constraint_opt . 0))) (SEMICOLON . (constraint_opt . 0)) (RANGE . 833) (LEFT_PAREN . 803)) - ((default . error) (SEMICOLON . 1205)) + ((default . error) (IS . 1219)) + ((default . error) (WITH . (and_interface_list_opt . 0)) (AND . 811)) + ((default . error) (DOT . 87) (TICK . 88) (AND . 811) (WITH . ((and_interface_list_opt . 0) (constraint_opt . 0))) (SEMICOLON . (constraint_opt . 0)) (RANGE . 849) (LEFT_PAREN . 819)) + ((default . error) (SEMICOLON . 1214)) ((default . error) (END . (full_type_declaration . 0)) (PRIVATE . (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)) (IDENTIFIER . (full_type_declaration . 0)) (BEGIN . (full_type_declaration . 0))) ((default . error) (PRIVATE . (object_declaration . 3)) (END . (object_declaration . 3)) (BEGIN . (object_declaration . 3)) (IDENTIFIER . (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))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) @@ -2865,201 +2936,198 @@ ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (END . (package_body . 0)) (BEGIN . (package_body . 0)) (IDENTIFIER . (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)) (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) (COMMA . (case_expression_alternative . 0)) (RIGHT_PAREN . (case_expression_alternative . 0))) ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) ((default . error) (DOT . 87) (TICK . 88) (LOOP . (iterator_specification . 3)) (EQUAL_GREATER . (iterator_specification . 3)) (LEFT_PAREN . 106)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (RIGHT_PAREN . (if_expression . 0))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) ((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 . 108)) - ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 1195)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 1205)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((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)) (LESS_LESS . (accept_statement . 1)) (IDENTIFIER . (accept_statement . 1)) (STRING_LITERAL . (accept_statement . 1)) (CHARACTER_LITERAL . (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))) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((default . error) (OR . (block_statement . 1)) (THEN . (block_statement . 1)) (WHEN . (block_statement . 1)) (EXCEPTION . (block_statement . 1)) (END . (block_statement . 1)) (LESS_LESS . (block_statement . 1)) (IDENTIFIER . (block_statement . 1)) (STRING_LITERAL . (block_statement . 1)) (CHARACTER_LITERAL . (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)) (ELSE . (block_statement . 1)) (ELSIF . (block_statement . 1))) - ((default . error) (CASE . 1192)) + ((default . error) (CASE . 1202)) ((default . error) (WHEN . (case_statement_alternative_list . 1)) (END . (case_statement_alternative_list . 1))) - ((default . error) (BAR . 275) (EQUAL_GREATER . 1191)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) + ((default . error) (BAR . 282) (EQUAL_GREATER . 1201)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) ((default . error) (OR . (exit_statement . 0)) (THEN . (exit_statement . 0)) (WHEN . (exit_statement . 0)) (EXCEPTION . (exit_statement . 0)) (END . (exit_statement . 0)) (LESS_LESS . (exit_statement . 0)) (IDENTIFIER . (exit_statement . 0)) (STRING_LITERAL . (exit_statement . 0)) (CHARACTER_LITERAL . (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)) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (THEN . (expression_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IF . 1187)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (THEN . (expression_opt . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IF . 1197)) ((default . error) (END . (elsif_statement_list . 0)) (ELSE . (elsif_statement_list . 0)) (ELSIF . (elsif_statement_list . 0))) - ((default . error) (END . 1185) (ELSE . 1184) (ELSIF . 1147)) - ((default . error) (SEMICOLON . 1183)) + ((default . error) (END . 1195) (ELSE . 1194) (ELSIF . 1157)) + ((default . error) (SEMICOLON . 1193)) ((default . error) (OR . (raise_statement . 1)) (THEN . (raise_statement . 1)) (WHEN . (raise_statement . 1)) (EXCEPTION . (raise_statement . 1)) (END . (raise_statement . 1)) (LESS_LESS . (raise_statement . 1)) (IDENTIFIER . (raise_statement . 1)) (STRING_LITERAL . (raise_statement . 1)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (requeue_statement . 0)) (IDENTIFIER . (requeue_statement . 0)) (STRING_LITERAL . (requeue_statement . 0)) (CHARACTER_LITERAL . (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)) (ELSE . (requeue_statement . 0)) (ELSIF . (requeue_statement . 0))) - ((default . error) (RETURN . 1182)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 862)) - ((default . error) (END . 1178)) - ((default . error) (SELECT . 1177)) + ((default . error) (RETURN . 1192)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (ACCESS . (null_exclusion_opt . 0)) (NOT . 878)) + ((default . error) (END . 1188)) + ((default . error) (SELECT . 1187)) ((default . error) (OR . (selective_accept . 1)) (THEN . (selective_accept . 1)) (WHEN . (selective_accept . 1)) (EXCEPTION . (selective_accept . 1)) (END . (selective_accept . 1)) (LESS_LESS . (selective_accept . 1)) (IDENTIFIER . (selective_accept . 1)) (STRING_LITERAL . (selective_accept . 1)) (CHARACTER_LITERAL . (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)) (ELSE . (selective_accept . 1)) (ELSIF . (selective_accept . 1))) - ((default . error) (SELECT . 1176)) + ((default . error) (SELECT . 1186)) ((default . error) (END . (delay_alternative . 0)) (OR . (delay_alternative . 0)) (ELSE . (delay_alternative . 0))) - ((default . error) (SELECT . 1175)) - ((default . error) (SEMICOLON . 1174)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((default . error) (SELECT . 1185)) + ((default . error) (SEMICOLON . 1184)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((default . error) (END . (select_alternative . 2)) (OR . (select_alternative . 2)) (ELSE . (select_alternative . 2))) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (OTHERS . 936) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (OTHERS . 936) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) - ((default . error) (BAR . 1166) (EQUAL_GREATER . 1272)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (OTHERS . 946) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (OTHERS . 946) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49)) + ((default . error) (BAR . 1176) (EQUAL_GREATER . 1282)) ((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 . 1271)) + ((default . error) (SEMICOLON . 1281)) ((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 . 1270)) - ((default . error) (SEMICOLON . 1269)) - ((default . error) (SEMICOLON . 1268)) - ((default . error) (SELECT . 1267)) + ((default . error) (SEMICOLON . 1280)) + ((default . error) (SEMICOLON . 1279)) + ((default . error) (SEMICOLON . 1278)) + ((default . error) (SELECT . 1277)) ((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 . 1266)) + ((default . error) (DO . (extended_return_object_declaration . 1)) (SEMICOLON . (extended_return_object_declaration . 1)) (COLON_EQUAL . 1276)) ((default . error) (DO . (return_subtype_indication . 0)) (SEMICOLON . (return_subtype_indication . 0)) (COLON_EQUAL . (return_subtype_indication . 0))) - ((default . error) (SEMICOLON . 1265)) + ((default . error) (SEMICOLON . 1275)) ((default . error) (WHEN . (loop_statement . 1)) (THEN . (loop_statement . 1)) (OR . (loop_statement . 1)) (ELSIF . (loop_statement . 1)) (ELSE . (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)) (CHARACTER_LITERAL . (loop_statement . 1)) (STRING_LITERAL . (loop_statement . 1)) (IDENTIFIER . (loop_statement . 1)) (LESS_LESS . (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (IF . 1263)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (IF . 1273)) ((default . error) (ELSIF . (elsif_statement_list . 1)) (ELSE . (elsif_statement_list . 1)) (END . (elsif_statement_list . 1))) - ((default . error) (SEMICOLON . 1262)) - ((default . error) (THEN . 1261)) - ((default . error) (END . 1260)) - ((default . error) (SEMICOLON . 1259)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (SEMICOLON . 1257)) - ((default . error) (END . 1256)) - ((default . error) (END . 1255)) - ((default . error) (FOR . 1254) (IDENTIFIER . 72)) - ((default . error) (WHEN . 1253)) + ((default . error) (SEMICOLON . 1272)) + ((default . error) (THEN . 1271)) + ((default . error) (END . 1270)) + ((default . error) (SEMICOLON . 1269)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (SEMICOLON . 1267)) + ((default . error) (END . 1266)) + ((default . error) (END . 1265)) + ((default . error) (FOR . 1264) (IDENTIFIER . 72)) + ((default . error) (WHEN . 1263)) ((default . error) (WHEN . (entry_body_formal_part . 1))) - ((default . error) (SEMICOLON . 1252)) - ((default . error) (ELSE . (elsif_expression_item . 0)) (ELSIF . (elsif_expression_item . 0)) (RIGHT_PAREN . (elsif_expression_item . 0))) + ((default . error) (SEMICOLON . 1262)) ((default . error) (DOT . 87) (TICK . 88) (LOOP . (iterator_specification . 2)) (EQUAL_GREATER . (iterator_specification . 2)) (LEFT_PAREN . 106)) - ((default . error) (SEMICOLON . 1251)) - ((default . error) (SEMICOLON . 1250)) - ((default . error) (SEMICOLON . 1249)) - ((default . error) (SEMICOLON . 1248)) + ((default . error) (SEMICOLON . 1261)) + ((default . error) (SEMICOLON . 1260)) + ((default . error) (SEMICOLON . 1259)) + ((default . error) (SEMICOLON . 1258)) ((default . error) (BEGIN . (private_type_declaration . 0)) (IDENTIFIER . (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)) (PRIVATE . (private_type_declaration . 0)) (END . (private_type_declaration . 0))) - ((default . error) (WITH . 1247)) + ((default . error) (WITH . 1257)) ((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 . 1246)) - ((default . error) (WHEN . 1243)) + ((default . error) (WITH . 1256)) + ((default . error) (WHEN . 1253)) ((default . error) (SEMICOLON . (record_definition . 0)) (WITH . (record_definition . 0))) - ((default . error) (COLON_EQUAL . 1241) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) + ((default . error) (COLON_EQUAL . 1251) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((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 . 1240)) - ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1101)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (SEMICOLON . 1237)) + ((default . error) (DOT_DOT . 1250)) + ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE . 1114)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (SEMICOLON . 1247)) ((default . error) (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)) (IDENTIFIER . (task_type_declaration . 1)) (BEGIN . (task_type_declaration . 1)) (END . (task_type_declaration . 1)) (PRIVATE . (task_type_declaration . 1))) - ((default . error) (AND . 1061) (WITH . 1236)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (SEMICOLON . 1234)) + ((default . error) (AND . 1065) (WITH . 1246)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (SEMICOLON . 1244)) ((default . error) (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)) (IDENTIFIER . (protected_type_declaration . 1)) (BEGIN . (protected_type_declaration . 1)) (END . (protected_type_declaration . 1)) (PRIVATE . (protected_type_declaration . 1))) - ((default . error) (AND . 1061) (WITH . 1233)) - ((default . error) (RANGE . 1232)) + ((default . error) (AND . 1065) (WITH . 1243)) + ((default . error) (RANGE . 1242)) ((default . error) (SEMICOLON . (record_rep . 0))) ((default . error) (IDENTIFIER . (mod_clause_opt . 1))) ((default . error) (BEGIN . (object_renaming_declaration . 0)) (IDENTIFIER . (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)) (PRIVATE . (object_renaming_declaration . 0)) (END . (object_renaming_declaration . 0))) ((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 . 87) (TICK . 88) (BAR . (discrete_choice . 1)) (EQUAL_GREATER . (discrete_choice . 1)) (RANGE . 833) (LEFT_PAREN . 803)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) + ((default . error) (RIGHT_PAREN . (subtype_indication . 1)) (COMMA . (subtype_indication . 1)) (DOT . 87) (TICK . 88) (BAR . (discrete_choice . 1)) (EQUAL_GREATER . (discrete_choice . 1)) (RANGE . 849) (LEFT_PAREN . 819)) + ((default . error) (ELSE . (elsif_expression_item . 0)) (ELSIF . (elsif_expression_item . 0)) (RIGHT_PAREN . (elsif_expression_item . 0))) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) ((default . error) (END . (single_protected_declaration . 0)) (PRIVATE . (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)) (IDENTIFIER . (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 . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) + ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) ((default . error) (END . (single_task_declaration . 0)) (PRIVATE . (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)) (IDENTIFIER . (single_task_declaration . 0)) (BEGIN . (single_task_declaration . 0))) ((default . error) (SEMICOLON . (task_definition . 0))) ((default . error) (WITH . (type_definition . 5)) (SEMICOLON . (type_definition . 5))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 1289)) - ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 172) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 171) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) - ((default . error) (END . 1286) (WHEN . 1243)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1299)) + ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS . 175) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 174) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) + ((default . error) (END . 1296) (WHEN . 1253)) ((default . error) (END . (variant_list . 0)) (WHEN . (variant_list . 0))) - ((default . error) (PRIVATE . 1285)) - ((default . error) (RECORD . 848) (NULL . 846)) + ((default . error) (PRIVATE . 1295)) + ((default . error) (RECORD . 864) (NULL . 862)) ((default . error) (PRIVATE . (object_declaration . 2)) (END . (object_declaration . 2)) (BEGIN . (object_declaration . 2)) (IDENTIFIER . (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))) ((default . error) (PRIVATE . (object_declaration . 4)) (END . (object_declaration . 4)) (BEGIN . (object_declaration . 4)) (IDENTIFIER . (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))) ((default . error) (PRIVATE . (object_declaration . 0)) (END . (object_declaration . 0)) (BEGIN . (object_declaration . 0)) (IDENTIFIER . (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))) ((default . error) (PRIVATE . (entry_declaration . 0)) (END . (entry_declaration . 0)) (BEGIN . (entry_declaration . 0)) (IDENTIFIER . (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))) ((default . error) (PRIVATE . (protected_body . 0)) (END . (protected_body . 0)) (BEGIN . (protected_body . 0)) (IDENTIFIER . (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)) ($EOI . (protected_body . 0)) (LIMITED . (protected_body . 0)) (SEPARATE . (protected_body . 0)) (WITH . (protected_body . 0))) - ((default . error) (IS . (expression_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (IDENTIFIER . 1282)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) + ((default . error) (IS . (expression_opt . 0)) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (IDENTIFIER . 1292)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) ((default . error) (OR . (case_statement . 0)) (THEN . (case_statement . 0)) (WHEN . (case_statement . 0)) (EXCEPTION . (case_statement . 0)) (END . (case_statement . 0)) (LESS_LESS . (case_statement . 0)) (IDENTIFIER . (case_statement . 0)) (STRING_LITERAL . (case_statement . 0)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (block_statement . 0)) (IDENTIFIER . (block_statement . 0)) (STRING_LITERAL . (block_statement . 0)) (CHARACTER_LITERAL . (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)) (ELSE . (block_statement . 0)) (ELSIF . (block_statement . 0))) - ((default . error) (IF . 1279)) - ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((default . error) (IF . 1289)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((default . error) (OR . (if_statement . 3)) (THEN . (if_statement . 3)) (WHEN . (if_statement . 3)) (EXCEPTION . (if_statement . 3)) (END . (if_statement . 3)) (LESS_LESS . (if_statement . 3)) (IDENTIFIER . (if_statement . 3)) (STRING_LITERAL . (if_statement . 3)) (CHARACTER_LITERAL . (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)) (ELSE . (if_statement . 3)) (ELSIF . (if_statement . 3))) - ((default . error) (SEMICOLON . 1277)) - ((default . error) (END . 1276)) + ((default . error) (SEMICOLON . 1287)) + ((default . error) (END . 1286)) ((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)) (LESS_LESS . (extended_return_statement . 0)) (IDENTIFIER . (extended_return_statement . 0)) (STRING_LITERAL . (extended_return_statement . 0)) (CHARACTER_LITERAL . (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)) (ELSE . (extended_return_statement . 0)) (ELSIF . (extended_return_statement . 0))) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) - ((default . error) (SEMICOLON . 1274)) + ((default . error) (RAISE . 152) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 148)) + ((default . error) (SEMICOLON . 1284)) ((default . error) (OR . (selective_accept . 0)) (THEN . (selective_accept . 0)) (WHEN . (selective_accept . 0)) (EXCEPTION . (selective_accept . 0)) (END . (selective_accept . 0)) (LESS_LESS . (selective_accept . 0)) (IDENTIFIER . (selective_accept . 0)) (STRING_LITERAL . (selective_accept . 0)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (conditional_entry_call . 0)) (IDENTIFIER . (conditional_entry_call . 0)) (STRING_LITERAL . (conditional_entry_call . 0)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (timed_entry_call . 0)) (IDENTIFIER . (timed_entry_call . 0)) (STRING_LITERAL . (timed_entry_call . 0)) (CHARACTER_LITERAL . (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)) (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)) (LESS_LESS . (loop_statement . 0)) (IDENTIFIER . (loop_statement . 0)) (STRING_LITERAL . (loop_statement . 0)) (CHARACTER_LITERAL . (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)) (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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) ((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)) (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)) (CHARACTER_LITERAL . (asynchronous_select . 0)) (STRING_LITERAL . (asynchronous_select . 0)) (IDENTIFIER . (asynchronous_select . 0)) (LESS_LESS . (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 . 1307)) + ((default . error) (IF . 1317)) ((default . error) (WHEN . (if_statement . 1)) (THEN . (if_statement . 1)) (OR . (if_statement . 1)) (ELSIF . (if_statement . 1)) (ELSE . (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)) (CHARACTER_LITERAL . (if_statement . 1)) (STRING_LITERAL . (if_statement . 1)) (IDENTIFIER . (if_statement . 1)) (LESS_LESS . (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 . 1306)) - ((default . error) (SEMICOLON . 1305)) - ((default . error) (SEMICOLON . 1304)) - ((default . error) (IN . 1303)) - ((default . error) (IS . 1302)) + ((default . error) (SEMICOLON . 1316)) + ((default . error) (SEMICOLON . 1315)) + ((default . error) (SEMICOLON . 1314)) + ((default . error) (IN . 1313)) + ((default . error) (IS . 1312)) ((default . error) (WITH . (derived_type_definition . 0)) (SEMICOLON . (derived_type_definition . 0))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) - ((default . error) (CASE . 1300)) + ((default . error) (CASE . 1310)) ((default . error) (WHEN . (variant_list . 1)) (END . (variant_list . 1))) - ((default . error) (BAR . 275) (EQUAL_GREATER . 1299)) + ((default . error) (BAR . 282) (EQUAL_GREATER . 1309)) ((default . error) (WHEN . (component_declaration . 1)) (END . (component_declaration . 1)) (CASE . (component_declaration . 1)) (IDENTIFIER . (component_declaration . 1)) (FOR . (component_declaration . 1))) ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108)) ((default . error) (SEMICOLON . (real_range_specification_opt . 1)) (WITH . (real_range_specification_opt . 1))) - ((default . error) (SEMICOLON . 1297)) - ((default . error) (SEMICOLON . 1296)) - ((default . error) (DOT_DOT . 1295)) - ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (LEFT_PAREN . 147)) + ((default . error) (SEMICOLON . 1307)) + ((default . error) (SEMICOLON . 1306)) + ((default . error) (DOT_DOT . 1305)) + ((default . error) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 150) (NUMERIC_LITERAL . 145) (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)) (IDENTIFIER . (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))) ((default . error) (PRIVATE . (task_type_declaration . 0)) (END . (task_type_declaration . 0)) (BEGIN . (task_type_declaration . 0)) (IDENTIFIER . (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))) - ((default . error) (SEMICOLON . 1314)) - ((default . error) (END . (component_list_opt . 0)) (WHEN . (component_list_opt . 0)) (NULL . 1009) (CASE . 1008) (IDENTIFIER . 72) (FOR . 289)) - ((default . error) (SEMICOLON . 1312)) - ((default . error) (SEMICOLON . 1311)) - ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 292) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 289) (IDENTIFIER . 288) (TYPE . 294) (GENERIC . 2) (PROTECTED . 291) (TASK . 293) (PACKAGE . 290)) - ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 757) (NULL . 150) (NEW . 148) (LEFT_PAREN . 147)) + ((default . error) (SEMICOLON . 1324)) + ((default . error) (END . (component_list_opt . 0)) (WHEN . (component_list_opt . 0)) (NULL . 1013) (CASE . 1012) (IDENTIFIER . 72) (FOR . 296)) + ((default . error) (SEMICOLON . 1322)) + ((default . error) (SEMICOLON . 1321)) + ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE . 11) (SUBTYPE . 299) (PRAGMA . 7) (NOT . 4) (OVERRIDING . 5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR . 296) (IDENTIFIER . 295) (TYPE . 301) (GENERIC . 2) (PROTECTED . 298) (TASK . 300) (PACKAGE . 297)) + ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 147) (NOT . 763) (NUMERIC_LITERAL . 145) (NULL . 151) (NEW . 149) (LEFT_PAREN . 148)) ((default . error) (PRIVATE . (task_body . 0)) (END . (task_body . 0)) (BEGIN . (task_body . 0)) (IDENTIFIER . (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)) ($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)) (LESS_LESS . (accept_statement . 0)) (IDENTIFIER . (accept_statement . 0)) (STRING_LITERAL . (accept_statement . 0)) (CHARACTER_LITERAL . (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))) ((default . error) (OR . (if_statement . 2)) (THEN . (if_statement . 2)) (WHEN . (if_statement . 2)) (EXCEPTION . (if_statement . 2)) (END . (if_statement . 2)) (LESS_LESS . (if_statement . 2)) (IDENTIFIER . (if_statement . 2)) (STRING_LITERAL . (if_statement . 2)) (CHARACTER_LITERAL . (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)) (ELSE . (if_statement . 2)) (ELSIF . (if_statement . 2))) - ((default . error) (SEMICOLON . 1308)) + ((default . error) (SEMICOLON . 1318)) ((default . error) (WHEN . (if_statement . 0)) (THEN . (if_statement . 0)) (OR . (if_statement . 0)) (ELSIF . (if_statement . 0)) (ELSE . (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)) (CHARACTER_LITERAL . (if_statement . 0)) (STRING_LITERAL . (if_statement . 0)) (IDENTIFIER . (if_statement . 0)) (LESS_LESS . (if_statement . 0)) (END . (if_statement . 0)) (EXCEPTION . (if_statement . 0))) - ((default . error) (RIGHT_PAREN . 1318)) - ((default . error) (BEGIN . 1317)) + ((default . error) (RIGHT_PAREN . 1328)) + ((default . error) (BEGIN . 1327)) ((default . error) (BEGIN . (private_extension_declaration . 0)) (IDENTIFIER . (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)) (PRIVATE . (private_extension_declaration . 0)) (END . (private_extension_declaration . 0))) ((default . error) (WHEN . (variant_part . 0)) (END . (variant_part . 0)) (CASE . (variant_part . 0)) (IDENTIFIER . (variant_part . 0)) (FOR . (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)) (IDENTIFIER . (component_declaration . 0)) (FOR . (component_declaration . 0))) - ((default . error) (SEMICOLON . 1316)) + ((default . error) (SEMICOLON . 1326)) ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 610) (IDENTIFIER . ((label_opt . 0) 611))) - ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 781)) + ((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)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (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)) (LESS_LESS . 619) (IDENTIFIER . ((label_opt . 0) 620))) + ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN . 787)) ((default . error) (WHEN . (entry_body_formal_part . 0))) - ((default . error) (END . 1321)) - ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 694)) - ((default . error) (SEMICOLON . 1323)) + ((default . error) (END . 1331)) + ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 703)) + ((default . error) (SEMICOLON . 1333)) ((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 . 86)(qualified_expression . 54)(selected_component . 55)) @@ -3149,31 +3217,31 @@ nil ((actual_parameter_part . 91)(formal_part . 92)(parameter_and_result_profile . 93)) nil - ((aggregate . 222)(attribute_reference . 51)(attribute_designator . 223)(name . 224)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(association_opt . 173)(association_list . 190)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 184)(expression_opt . 185)(factor . 153)(identifier_list . 214)(name . 186)(parameter_specification . 215)(parameter_specification_list . 216)(primary . 157)(qualified_expression . 54)(range . 191)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((access_definition . 209)(attribute_reference . 51)(name . 210)(name_opt . 211)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 225)(attribute_reference . 51)(attribute_designator . 226)(name . 227)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(association_opt . 176)(association_list . 193)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 187)(expression_opt . 188)(factor . 155)(identifier_list . 217)(name . 189)(parameter_specification . 218)(parameter_specification_list . 219)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 194)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((access_definition . 212)(attribute_reference . 51)(name . 213)(name_opt . 214)(null_exclusion_opt . 215)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((mode_opt . 206)) + ((mode_opt . 209)) nil nil - ((attribute_reference . 51)(name . 202)(qualified_expression . 54)(selected_component . 55)) - ((aspect_specification_opt . 201)) - ((discriminant_part_opt . 199)) + ((attribute_reference . 51)(name . 205)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 204)) + ((discriminant_part_opt . 202)) ((actual_parameter_part . 91)) ((actual_parameter_part . 91)) ((actual_parameter_part . 91)) nil - ((attribute_reference . 51)(name_list . 193)(name . 53)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name_list . 196)(name . 53)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 151)(association_opt . 173)(association_list . 190)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 184)(expression_opt . 185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 191)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 189)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(association_opt . 173)(association_list . 174)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 184)(expression_opt . 185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(association_opt . 176)(association_list . 193)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 187)(expression_opt . 188)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 194)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 192)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(association_opt . 176)(association_list . 177)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 187)(expression_opt . 188)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 190)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((actual_parameter_part . 91)(aspect_specification_opt . 168)) + ((actual_parameter_part . 91)(aspect_specification_opt . 171)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 152)(factor . 153)(name . 154)(pragma_argument_association . 155)(pragma_argument_association_list . 156)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 154)(factor . 155)(name . 156)(pragma_argument_association . 157)(pragma_argument_association_list . 158)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) ((aspect_specification_opt . 142)) nil ((actual_parameter_part . 91)(aspect_specification_opt . 109)) @@ -3195,23 +3263,25 @@ nil nil nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 382)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) - ((actual_parameter_part . 91)(aspect_specification_opt . 381)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 388)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) + ((actual_parameter_part . 91)(aspect_specification_opt . 387)) nil nil nil ((actual_parameter_part . 91)) - ((function_specification . 16)(overriding_indicator_opt . 378)(package_body . 317)(procedure_specification . 32)(proper_body . 379)(protected_body . 325)(subprogram_body . 332)(task_body . 337)) + ((function_specification . 16)(overriding_indicator_opt . 384)(package_body . 324)(procedure_specification . 32)(proper_body . 385)(protected_body . 332)(subprogram_body . 339)(task_body . 344)) + nil nil nil nil nil nil - ((aggregate . 151)(attribute_reference . 51)(name . 154)(primary . 372)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(association_opt . 173)(association_list . 230)(attribute_reference . 51)(case_expression . 369)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 231)(expression_opt . 185)(factor . 153)(if_expression . 370)(name . 186)(primary . 157)(qualified_expression . 54)(quantified_expression . 371)(range . 187)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 365)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(attribute_reference . 51)(name . 154)(primary . 286)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(name . 156)(primary . 378)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(association_opt . 176)(association_list . 235)(attribute_reference . 51)(case_expression . 375)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 237)(expression_opt . 188)(factor . 155)(if_expression . 376)(name . 189)(primary . 159)(qualified_expression . 54)(quantified_expression . 377)(raise_expression . 160)(range . 190)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 373)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(name . 156)(primary . 293)(qualified_expression . 54)(selected_component . 55)) nil + ((attribute_reference . 51)(name . 372)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -3225,14 +3295,15 @@ nil nil nil - ((relational_operator . 353)) - ((multiplying_operator . 352)) - ((binary_adding_operator . 347)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(term . 165)(term_list . 343)) nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 302)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((relational_operator . 360)) + ((multiplying_operator . 359)) + ((binary_adding_operator . 354)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(term . 168)(term_list . 350)) nil - ((aggregate . 151)(attribute_reference . 51)(name . 154)(primary . 286)(qualified_expression . 54)(selected_component . 55)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 309)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) + nil + ((aggregate . 153)(attribute_reference . 51)(name . 156)(primary . 293)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -3249,26 +3320,26 @@ nil ((actual_parameter_part . 91)) nil - ((relational_operator . 273)) - ((actual_parameter_part . 91)(aspect_specification_opt . 263)) + ((relational_operator . 280)) + ((actual_parameter_part . 91)(aspect_specification_opt . 270)) nil nil - ((attribute_reference . 51)(name . 259)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 266)(qualified_expression . 54)(selected_component . 55)) nil nil - ((attribute_reference . 51)(name . 257)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 256)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 255)(qualified_expression . 54)(selected_component . 55)) - ((discriminant_specification_opt . 252)(discriminant_specification_list . 253)(identifier_list . 254)) - ((aspect_specification_opt . 250)) - ((attribute_reference . 51)(name . 247)(qualified_expression . 54)(selected_component . 55)(subprogram_default . 248)) + ((attribute_reference . 51)(name . 264)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 263)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 262)(qualified_expression . 54)(selected_component . 55)) + ((discriminant_specification_opt . 259)(discriminant_specification_list . 260)(identifier_list . 261)) + ((aspect_specification_opt . 257)) + ((attribute_reference . 51)(name . 254)(qualified_expression . 54)(selected_component . 55)(subprogram_default . 255)) nil ((actual_parameter_part . 91)) nil nil nil - ((access_definition . 239)(null_exclusion_opt . 240)) - ((access_definition . 237)(null_exclusion_opt . 238)) + ((access_definition . 246)(null_exclusion_opt . 247)) + ((access_definition . 244)(null_exclusion_opt . 245)) nil nil ((actual_parameter_part . 91)) @@ -3281,7 +3352,7 @@ nil nil nil - ((aggregate . 151)(association_opt . 173)(association_list . 230)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 231)(expression_opt . 185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(association_opt . 176)(association_list . 235)(attribute_reference . 51)(case_expression . 236)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 237)(expression_opt . 188)(factor . 155)(if_expression . 238)(name . 189)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 190)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil @@ -3290,67 +3361,71 @@ nil nil nil + ((aggregate . 153)(attribute_reference . 51)(expression . 526)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(expression . 525)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + nil + nil nil nil nil - ((identifier_list . 214)(parameter_specification . 514)) + ((identifier_list . 217)(parameter_specification . 519)) nil - ((aliased_opt . 513)) - ((general_access_modifier_opt . 510)(protected_opt . 511)) + ((aliased_opt . 518)) + ((general_access_modifier_opt . 515)(protected_opt . 516)) nil nil - ((attribute_reference . 51)(name . 210)(name_opt . 506)(qualified_expression . 54)(selected_component . 55)) - ((aspect_specification_opt . 505)) - ((attribute_reference . 51)(name . 503)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 213)(name_opt . 511)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 510)) + ((attribute_reference . 51)(name . 508)(qualified_expression . 54)(selected_component . 55)) nil nil nil nil - ((aspect_specification_opt . 500)(attribute_reference . 51)(name . 247)(qualified_expression . 54)(selected_component . 55)(subprogram_default . 501)) + ((aspect_specification_opt . 505)(attribute_reference . 51)(name . 254)(qualified_expression . 54)(selected_component . 55)(subprogram_default . 506)) nil ((actual_parameter_part . 91)) - ((aspect_specification_opt . 499)) - ((abstract_limited_synchronized_opt . 492)(abstract_tagged_limited_opt . 493)(access_definition . 494)(array_type_definition . 495)(formal_type_definition . 496)(formal_derived_type_definition . 497)(interface_type_definition . 498)(null_exclusion_opt . 212)) + ((aspect_specification_opt . 504)) + ((abstract_limited_synchronized_opt . 497)(abstract_tagged_limited_opt . 498)(access_definition . 499)(array_type_definition . 500)(formal_type_definition . 501)(formal_derived_type_definition . 502)(interface_type_definition . 503)(null_exclusion_opt . 215)) nil nil nil nil nil - ((actual_parameter_part . 91)(aspect_specification_opt . 473)) - ((actual_parameter_part . 91)(aspect_specification_opt . 472)) - ((actual_parameter_part . 91)(aspect_specification_opt . 471)) + ((actual_parameter_part . 91)(aspect_specification_opt . 478)) + ((actual_parameter_part . 91)(aspect_specification_opt . 477)) + ((actual_parameter_part . 91)(aspect_specification_opt . 476)) nil - ((actual_parameter_part . 91)(aspect_specification_opt . 470)) + ((actual_parameter_part . 91)(aspect_specification_opt . 475)) nil - ((aggregate . 151)(association_opt . 469)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 184)(expression_opt . 185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(association_opt . 474)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 187)(expression_opt . 188)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 190)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 467)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 472)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(membership_choice_list . 463)(membership_choice . 464)(name . 186)(primary . 157)(qualified_expression . 54)(range . 465)(selected_component . 55)(simple_expression . 466)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(membership_choice_list . 468)(membership_choice . 469)(name . 189)(primary . 159)(qualified_expression . 54)(range . 470)(selected_component . 55)(simple_expression . 471)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 461)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 222)(attribute_reference . 51)(attribute_designator . 223)(name . 224)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 458)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(expression . 457)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 455)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 453)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 451)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 466)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 225)(attribute_reference . 51)(attribute_designator . 226)(name . 227)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 463)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(range . 190)(selected_component . 55)(simple_expression . 464)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(expression . 462)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 460)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 458)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 456)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 448)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 447)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 445)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 444)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 453)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 452)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 450)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 449)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 443)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 448)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((attribute_reference . 438)(direct_name . 439)(name . 440)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 443)(direct_name . 444)(name . 445)(qualified_expression . 54)(selected_component . 55)) ((attribute_reference . 51)(name . 68)(qualified_expression . 54)(selected_component . 55)) nil nil @@ -3362,7 +3437,7 @@ nil nil nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 426)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 431)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil nil nil @@ -3377,7 +3452,7 @@ nil nil nil - ((function_specification . 420)(procedure_specification . 421)(subprogram_specification . 422)) + ((function_specification . 425)(procedure_specification . 426)(subprogram_specification . 427)) nil nil nil @@ -3403,56 +3478,53 @@ nil nil nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 418)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) - ((binary_adding_operator . 347)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 423)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) + ((binary_adding_operator . 354)) nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(term . 417)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(term . 422)) nil nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 416)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 415)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 414)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 412)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 410)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 409)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 421)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 420)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 419)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 417)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 415)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 414)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 407)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 412)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 405)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(name . 154)(primary . 404)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(attribute_reference . 51)(expression . 152)(factor . 153)(name . 154)(pragma_argument_association . 403)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 410)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(name . 156)(primary . 409)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(expression . 154)(factor . 155)(name . 156)(pragma_argument_association . 408)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil ((actual_parameter_part . 91)) - ((aggregate . 151)(attribute_reference . 51)(expression . 401)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((quantifier . 400)) - ((aggregate . 151)(attribute_reference . 51)(expression . 397)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - nil - nil + ((actual_parameter_part . 91)) + ((quantifier . 405)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 393)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil nil + ((aggregate . 153)(attribute_reference . 51)(expression . 399)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 389)) nil nil + ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 395)) nil nil - ((attribute_reference . 51)(name . 386)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 385)(qualified_expression . 54)(selected_component . 55)) - ((actual_parameter_part . 91)(aspect_specification_opt . 656)) - ((actual_parameter_part . 91)(aspect_specification_opt . 655)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 638)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) nil - ((aspect_specification_opt . 609)) nil + ((attribute_reference . 51)(name . 392)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 391)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 91)(aspect_specification_opt . 665)) + ((actual_parameter_part . 91)(aspect_specification_opt . 664)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 647)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil + ((aspect_specification_opt . 618)) nil nil nil @@ -3461,69 +3533,72 @@ nil nil nil - ((iterator_specification . 604)) nil + ((iterator_specification . 614)) + ((aggregate . 153)(attribute_reference . 51)(expression . 612)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 601)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 611)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 600)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 610)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 599)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 609)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation . 598)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation . 608)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil - ((multiplying_operator . 352)) + ((multiplying_operator . 359)) nil nil nil nil ((aspect_specification_opt . 128)) - ((aliased_opt . 591)) - ((attribute_reference . 51)(name . 588)(qualified_expression . 54)(selected_component . 55)) - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 587)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((aliased_opt . 601)) + ((attribute_reference . 51)(name . 598)(qualified_expression . 54)(selected_component . 55)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 597)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil - ((discriminant_part_opt . 586)) - ((aspect_specification_opt . 584)) + ((discriminant_part_opt . 596)) + ((aspect_specification_opt . 595)) nil nil nil - ((aspect_specification_opt . 580)) + ((aspect_specification_opt . 591)) nil nil - ((attribute_reference . 51)(name . 577)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 588)(qualified_expression . 54)(selected_component . 55)) nil nil nil nil ((actual_parameter_part . 91)) - ((access_definition . 572)(null_exclusion_opt . 573)) + ((access_definition . 583)(null_exclusion_opt . 584)) nil nil ((actual_parameter_part . 91)) nil - ((relational_operator . 566)) + ((relational_operator . 577)) + nil + nil + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 581)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 580)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 579)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 570)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 569)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(choice_relation . 578)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 451)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 568)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil - ((aggregate . 151)(attribute_reference . 51)(choice_relation . 567)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 446)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil nil + ((relational_operator . 577)) nil nil - ((relational_operator . 566)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(membership_choice_list . 575)(membership_choice . 469)(name . 189)(primary . 159)(qualified_expression . 54)(range . 470)(selected_component . 55)(simple_expression . 471)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(membership_choice_list . 564)(membership_choice . 464)(name . 186)(primary . 157)(qualified_expression . 54)(range . 465)(selected_component . 55)(simple_expression . 466)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil nil nil @@ -3533,10 +3608,10 @@ nil nil nil + ((access_definition . 566)(attribute_reference . 51)(name . 567)(null_exclusion_opt . 215)(null_exclusion_opt_name_type . 568)(qualified_expression . 54)(selected_component . 569)) + ((discriminant_specification_opt . 563)(identifier_list . 261)) nil nil - ((access_definition . 555)(attribute_reference . 51)(name . 556)(null_exclusion_opt . 212)(null_exclusion_opt_name . 557)(qualified_expression . 54)(selected_component . 558)) - ((discriminant_specification_opt . 552)(identifier_list . 254)) nil nil nil @@ -3549,55 +3624,59 @@ nil nil nil + ((aspect_specification_opt . 550)) nil nil - ((aspect_specification_opt . 539)) nil nil nil + ((aspect_specification_opt . 545)) nil nil - ((aspect_specification_opt . 534)) nil nil + ((aspect_specification_opt . 542)) + ((attribute_reference . 51)(name . 541)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 91)(aspect_specification_opt . 540)) + ((aggregate . 153)(attribute_reference . 51)(expression . 538)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((aspect_specification_opt . 531)) - ((attribute_reference . 51)(name . 530)(qualified_expression . 54)(selected_component . 55)) - ((actual_parameter_part . 91)(aspect_specification_opt . 529)) - ((aggregate . 151)(attribute_reference . 51)(expression . 527)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil nil nil + ((attribute_reference . 51)(name . 536)(qualified_expression . 54)(selected_component . 55)) nil nil - ((attribute_reference . 51)(name . 525)(qualified_expression . 54)(selected_component . 55)) + ((access_definition . 532)(mode_opt . 533)(null_exclusion_opt . 215)) nil nil - ((access_definition . 521)(mode_opt . 522)(null_exclusion_opt . 212)) + ((aggregate . 153)(association_opt . 176)(association_list . 531)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 187)(expression_opt . 188)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 190)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(association_opt . 173)(association_list . 520)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 184)(expression_opt . 185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil nil nil nil + ((case_expression_alternative . 796)(case_expression_alternative_list . 797)) + ((aggregate . 153)(attribute_reference . 51)(expression . 794)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((null_exclusion_opt . 784)) - ((formal_part . 92)(parameter_and_result_profile . 783)) - ((formal_part . 116)(parameter_profile_opt . 782)) + nil + nil + ((null_exclusion_opt . 790)) + ((formal_part . 92)(parameter_and_result_profile . 789)) + ((formal_part . 116)(parameter_profile_opt . 788)) ((actual_parameter_part . 91)) nil - ((aspect_specification_opt . 780)) - ((aggregate . 151)(attribute_reference . 51)(expression . 779)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aspect_specification_opt . 786)) + ((aggregate . 153)(attribute_reference . 51)(expression . 785)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((actual_parameter_part . 91)(formal_package_actual_part . 777)) + ((actual_parameter_part . 91)(formal_package_actual_part . 783)) nil nil nil nil nil - ((attribute_reference . 51)(name . 773)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 779)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -3609,7 +3688,7 @@ nil nil nil - ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 758)(discrete_subtype_definition_list . 759)(factor . 153)(index_subtype_definition . 760)(index_subtype_definition_list . 761)(name . 762)(primary . 157)(qualified_expression . 54)(range . 763)(selected_component . 55)(simple_expression . 764)(subtype_indication . 765)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(discrete_subtype_definition . 764)(discrete_subtype_definition_list . 765)(factor . 155)(index_subtype_definition . 766)(index_subtype_definition_list . 767)(name . 768)(primary . 159)(qualified_expression . 54)(range . 769)(selected_component . 55)(simple_expression . 770)(subtype_indication . 771)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil @@ -3624,73 +3703,70 @@ nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(membership_choice . 752)(name . 186)(primary . 157)(qualified_expression . 54)(range . 465)(selected_component . 55)(simple_expression . 466)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(membership_choice . 758)(name . 189)(primary . 159)(qualified_expression . 54)(range . 470)(selected_component . 55)(simple_expression . 471)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 751)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 750)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 757)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 756)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil nil nil nil - ((attribute_reference . 51)(name . 747)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 745)(record_rep . 746)) + ((attribute_reference . 51)(name . 753)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 751)(record_rep . 752)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 742)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((actual_parameter_part . 91)(aspect_specification_opt . 168)) - ((discriminant_part_opt . 740)) - ((aspect_specification_opt . 706)) - nil - ((attribute_reference . 51)(name . 736)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 737)) - ((discriminant_part_opt . 734)) - ((aspect_specification_opt . 705)) + ((aggregate . 153)(attribute_reference . 51)(expression . 748)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((actual_parameter_part . 91)(aspect_specification_opt . 171)) + ((discriminant_part_opt . 746)) + ((aspect_specification_opt . 715)) nil + ((attribute_reference . 51)(name . 742)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 743)) + ((discriminant_part_opt . 740)) + ((aspect_specification_opt . 714)) nil nil nil ((actual_parameter_part . 91)) nil nil - ((constant_opt . 726)) + ((constant_opt . 731)) nil nil - ((paren_expression . 721)) - ((formal_part . 116)(parameter_profile_opt . 719)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 717)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((attribute_reference . 51)(name . 210)(name_opt . 716)(qualified_expression . 54)(selected_component . 55)) + ((paren_expression . 726)) + ((formal_part . 116)(parameter_profile_opt . 724)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 722)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((attribute_reference . 51)(name . 213)(name_opt . 721)(qualified_expression . 54)(selected_component . 55)) nil nil nil nil - ((case_expression_alternative . 714)(case_expression_alternative_list . 715)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 708)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(expression . 707)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aspect_specification_opt . 706)) - ((aspect_specification_opt . 705)) nil + ((aggregate . 153)(attribute_reference . 51)(expression . 716)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aspect_specification_opt . 715)) + ((aspect_specification_opt . 714)) nil nil nil - ((attribute_reference . 51)(name . 701)(qualified_expression . 54)(selected_component . 55)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 700)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 699)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 698)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) - ((aggregate . 151)(attribute_reference . 51)(expression . 697)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((identifier_opt . 695)) - ((iterator_specification . 692)(iterator_specification_opt . 693)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 690)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 689)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((attribute_reference . 51)(name . 710)(qualified_expression . 54)(selected_component . 55)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 709)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((aggregate . 153)(attribute_reference . 51)(expression . 187)(expression_opt . 708)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 707)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) + ((aggregate . 153)(attribute_reference . 51)(expression . 706)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((identifier_opt . 704)) + ((iterator_specification . 701)(iterator_specification_opt . 702)) nil - ((attribute_reference . 51)(name . 687)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 685)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(attribute_reference . 51)(expression . 682)(extended_return_object_declaration . 683)(extended_return_object_declaration_opt . 684)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((accept_statement . 670)(attribute_reference . 51)(delay_alternative . 671)(delay_statement . 672)(entry_call_alternative . 673)(name . 674)(procedure_call_statement . 675)(qualified_expression . 54)(selected_component . 55)(select_alternative . 676)(select_alternative_list . 677)(select_alternative_list_opt . 678)(triggering_alternative . 679)) - ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 667)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 187)(expression_opt . 699)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 698)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil + ((attribute_reference . 51)(name . 696)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 694)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(expression . 691)(extended_return_object_declaration . 692)(extended_return_object_declaration_opt . 693)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((accept_statement . 679)(attribute_reference . 51)(delay_alternative . 680)(delay_statement . 681)(entry_call_alternative . 682)(name . 683)(procedure_call_statement . 684)(qualified_expression . 54)(selected_component . 55)(select_alternative . 685)(select_alternative_list . 686)(select_alternative_list_opt . 687)(triggering_alternative . 688)) + ((aggregate . 153)(attribute_reference . 51)(expression . 187)(expression_opt . 676)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil @@ -3702,7 +3778,8 @@ nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(compound_statement . 663)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(simple_return_statement . 652)(simple_statement . 664)(timed_entry_call . 654)) + nil + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(compound_statement . 672)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(simple_return_statement . 661)(simple_statement . 673)(timed_entry_call . 663)) nil ((actual_parameter_part . 91)) nil @@ -3711,7 +3788,7 @@ nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(simple_return_statement . 652)(statement . 660)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(simple_return_statement . 661)(statement . 669)(timed_entry_call . 663)) nil nil nil @@ -3720,23 +3797,23 @@ nil nil nil - ((exception_handler . 931)(exception_handler_list . 932)(exception_handler_list_opt . 933)) + ((exception_handler . 941)(exception_handler_list . 942)(exception_handler_list_opt . 943)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 929)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 939)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 928)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((attribute_reference . 51)(name . 210)(name_opt . 927)(qualified_expression . 54)(selected_component . 55)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 938)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((attribute_reference . 51)(name . 213)(name_opt . 937)(qualified_expression . 54)(selected_component . 55)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 925)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 924)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((aggregate . 153)(attribute_reference . 51)(expression . 935)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 934)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 923)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 933)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil - ((accept_statement . 629)(actual_parameter_part . 91)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 920)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 919)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(actual_parameter_part . 91)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 930)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 929)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil @@ -3757,98 +3834,105 @@ nil nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 901)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 911)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil nil ((actual_parameter_part . 91)) - ((actual_parameter_part . 894)(actual_parameter_part_opt . 895)) - nil + ((actual_parameter_part . 904)(actual_parameter_part_opt . 905)) nil nil nil nil - ((elsif_expression_item . 888)(elsif_expression_list . 889)) - ((aggregate . 151)(attribute_reference . 51)(expression . 885)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 736)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 884)) - ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 883)(factor . 153)(name . 875)(primary . 157)(qualified_expression . 54)(range . 763)(selected_component . 55)(simple_expression . 764)(subtype_indication . 765)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 881)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 879)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil + ((aggregate . 153)(attribute_reference . 51)(expression . 899)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 742)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 898)) + ((aggregate . 153)(attribute_reference . 51)(discrete_subtype_definition . 897)(factor . 155)(name . 891)(primary . 159)(qualified_expression . 54)(range . 769)(selected_component . 55)(simple_expression . 770)(subtype_indication . 771)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 895)(qualified_expression . 54)(selected_component . 55)) nil nil + ((aggregate . 153)(attribute_reference . 51)(discrete_subtype_definition . 890)(factor . 155)(identifier_list . 217)(name . 891)(parameter_specification . 218)(parameter_specification_list . 219)(primary . 159)(qualified_expression . 54)(range . 769)(selected_component . 55)(simple_expression . 770)(subtype_indication . 771)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aspect_specification_opt . 889)) + ((aggregate . 153)(attribute_reference . 51)(case_expression . 886)(expression . 887)(factor . 155)(if_expression . 888)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aspect_specification_opt . 885)) + ((aspect_specification_opt . 884)) + ((aspect_specification_opt . 883)) + ((aspect_specification_opt . 882)) nil - ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 874)(factor . 153)(identifier_list . 214)(name . 875)(parameter_specification . 215)(parameter_specification_list . 216)(primary . 157)(qualified_expression . 54)(range . 763)(selected_component . 55)(simple_expression . 764)(subtype_indication . 765)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aspect_specification_opt . 873)) - ((aggregate . 151)(attribute_reference . 51)(case_expression . 870)(expression . 871)(factor . 153)(if_expression . 872)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aspect_specification_opt . 869)) - ((aspect_specification_opt . 868)) - ((aspect_specification_opt . 867)) - ((aspect_specification_opt . 866)) + ((access_definition . 879)(array_type_definition . 880)(attribute_reference . 51)(name . 742)(null_exclusion_opt . 215)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 881)) nil - ((access_definition . 863)(array_type_definition . 864)(attribute_reference . 51)(name . 736)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 865)) + ((aggregate . 153)(attribute_reference . 51)(expression . 877)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 213)(name_opt . 876)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 861)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 210)(name_opt . 860)(qualified_expression . 54)(selected_component . 55)) - ((abstract_limited_synchronized_opt . 850)(abstract_limited_opt . 851)(abstract_tagged_limited_opt . 852)(access_definition . 853)(array_type_definition . 854)(derived_type_definition . 855)(enumeration_type_definition . 856)(interface_type_definition . 857)(null_exclusion_opt . 212)(record_type_definition . 858)(type_definition . 859)) + ((abstract_limited_synchronized_opt . 866)(abstract_limited_opt . 867)(abstract_tagged_limited_opt . 868)(access_definition . 869)(array_type_definition . 870)(derived_type_definition . 871)(enumeration_type_definition . 872)(interface_type_definition . 873)(null_exclusion_opt . 215)(record_type_definition . 874)(type_definition . 875)) nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 839)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 854)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_definition . 855)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil - ((aspect_specification_opt . 835)) + ((aspect_specification_opt . 851)) nil - ((actual_parameter_part . 91)(constraint . 805)(index_constraint . 806)) - ((aspect_specification_opt . 832)) - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 831)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((actual_parameter_part . 91)(constraint . 821)(index_constraint . 822)) + ((aspect_specification_opt . 848)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 846)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_definition . 847)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil - ((aspect_specification_opt . 827)) + ((aspect_specification_opt . 843)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 824)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((mod_clause_opt . 823)) + ((aggregate . 153)(attribute_reference . 51)(expression . 840)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((mod_clause_opt . 839)) nil nil ((actual_parameter_part . 91)) - ((attribute_reference . 51)(name . 818)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 817)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 834)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 833)(qualified_expression . 54)(selected_component . 55)) + nil + nil + nil + ((aggregate . 153)(attribute_reference . 51)(expression . 831)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(expression . 830)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 567)(qualified_expression . 54)(selected_component . 829)) nil + ((aggregate . 153)(attribute_reference . 51)(name . 156)(primary . 293)(qualified_expression . 54)(selected_component . 55)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 815)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(expression . 814)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 556)(qualified_expression . 54)(selected_component . 813)) nil - ((aggregate . 151)(attribute_reference . 51)(name . 154)(primary . 286)(qualified_expression . 54)(selected_component . 55)) nil + ((actual_parameter_part . 91)(constraint . 821)(index_constraint . 822)) nil nil nil - ((actual_parameter_part . 91)(constraint . 805)(index_constraint . 806)) nil nil + ((attribute_reference . 51)(interface_list . 817)(name . 814)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(interface_list . 816)(name . 814)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(interface_list . 815)(name . 814)(qualified_expression . 54)(selected_component . 55)) nil + ((attribute_reference . 51)(interface_list . 813)(name . 814)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 91)(and_interface_list_opt . 812)) nil nil - ((attribute_reference . 51)(interface_list . 801)(name . 798)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(interface_list . 800)(name . 798)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(interface_list . 799)(name . 798)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(association_opt . 176)(association_list . 193)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 187)(expression_opt . 188)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 194)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aspect_specification_opt . 809)) nil - ((attribute_reference . 51)(interface_list . 797)(name . 798)(qualified_expression . 54)(selected_component . 55)) - ((actual_parameter_part . 91)(and_interface_list_opt . 796)) + ((aspect_specification_opt . 808)) nil + ((identifier_list . 217)(parameter_specification . 218)(parameter_specification_list . 219)) nil - ((aggregate . 151)(association_opt . 173)(association_list . 190)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 184)(expression_opt . 185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 191)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aspect_specification_opt . 793)) nil - ((aspect_specification_opt . 792)) + ((attribute_reference . 51)(name . 806)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(expression . 805)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((identifier_list . 214)(parameter_specification . 215)(parameter_specification_list . 216)) nil + ((elsif_expression_item . 802)(elsif_expression_list . 803)) + ((aggregate . 153)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 799)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(range . 190)(selected_component . 55)(simple_expression . 464)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((attribute_reference . 51)(name . 790)(qualified_expression . 54)(selected_component . 55)) - ((aggregate . 151)(attribute_reference . 51)(expression . 789)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil + ((case_expression_alternative . 1077)) nil + ((aggregate . 153)(attribute_reference . 51)(expression . 1075)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1074)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + nil + ((elsif_expression_item . 1073)) nil nil ((actual_parameter_part . 91)) @@ -3856,7 +3940,7 @@ nil nil nil - ((attribute_reference . 51)(interface_list . 1063)(name . 798)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(interface_list . 1067)(name . 814)(qualified_expression . 54)(selected_component . 55)) nil nil ((actual_parameter_part . 91)) @@ -3864,70 +3948,69 @@ nil nil nil - ((aggregate . 151)(association_opt . 173)(association_list . 190)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(discrete_subtype_definition . 758)(discrete_subtype_definition_list . 1059)(expression . 184)(expression_opt . 185)(factor . 153)(name . 875)(primary . 157)(qualified_expression . 54)(range . 1060)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(subtype_indication . 765)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 1035)(selected_component . 55)(simple_expression . 764)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(association_opt . 176)(association_list . 193)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(discrete_subtype_definition . 764)(discrete_subtype_definition_list . 1063)(expression . 187)(expression_opt . 188)(factor . 155)(name . 891)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 1064)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(subtype_indication . 771)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(range . 1039)(selected_component . 55)(simple_expression . 770)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((attribute_reference . 51)(index_subtype_definition . 1055)(name . 1056)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(index_subtype_definition . 1059)(name . 1060)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 1053)(factor . 153)(name . 875)(primary . 157)(qualified_expression . 54)(range . 763)(selected_component . 55)(simple_expression . 764)(subtype_indication . 765)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(discrete_subtype_definition . 1057)(factor . 155)(name . 891)(primary . 159)(qualified_expression . 54)(range . 769)(selected_component . 55)(simple_expression . 770)(subtype_indication . 771)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((attribute_reference . 51)(name . 1034)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 1038)(qualified_expression . 54)(selected_component . 55)) nil nil nil nil nil - ((actual_parameter_part . 91)(aspect_specification_opt . 1051)) - ((actual_parameter_part . 91)(aspect_specification_opt . 1050)) - ((attribute_reference . 51)(name . 1049)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 91)(aspect_specification_opt . 1055)) + ((actual_parameter_part . 91)(aspect_specification_opt . 1054)) + ((attribute_reference . 51)(name . 1053)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((component_clause . 1046)(component_clause_list . 1047)) + ((component_clause . 1050)(component_clause_list . 1051)) nil nil - ((aspect_specification_opt . 1043)) + ((aspect_specification_opt . 1047)) nil - ((aspect_specification_opt . 1041)) - ((attribute_reference . 51)(interface_list . 1040)(name . 798)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 1045)) + ((attribute_reference . 51)(interface_list . 1044)(name . 814)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 1035)(selected_component . 55)(simple_expression . 764)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((attribute_reference . 51)(name . 1034)(qualified_expression . 54)(selected_component . 55)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(range . 1039)(selected_component . 55)(simple_expression . 770)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((attribute_reference . 51)(name . 1038)(qualified_expression . 54)(selected_component . 55)) nil - ((aspect_specification_opt . 1031)) - ((attribute_reference . 51)(interface_list . 1030)(name . 798)(qualified_expression . 54)(selected_component . 55)) + ((aspect_specification_opt . 1035)) + ((attribute_reference . 51)(interface_list . 1034)(name . 814)(qualified_expression . 54)(selected_component . 55)) nil nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1025)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(expression . 1024)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((enumeration_literal . 1022)(enumeration_literal_list . 1023)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1029)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1028)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((enumeration_literal . 1026)(enumeration_literal_list . 1027)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1019)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1023)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1017)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aspect_clause . 1010)(at_clause . 297)(component_declaration . 1011)(component_item . 1012)(component_list . 1013)(component_list_opt . 1014)(enumeration_representation_clause . 304)(identifier_list . 1015)(record_representation_clause . 328)(variant_part . 1016)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1021)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aspect_clause . 1014)(at_clause . 304)(component_declaration . 1015)(component_item . 1016)(component_list . 1017)(component_list_opt . 1018)(enumeration_representation_clause . 311)(identifier_list . 1019)(record_representation_clause . 335)(variant_part . 1020)) nil nil nil - ((record_definition . 1004)) + ((record_definition . 1008)) nil nil nil nil nil nil - ((aspect_specification_opt . 1002)) + ((aspect_specification_opt . 1006)) nil nil nil + ((aspect_specification_opt . 1003)) + ((aspect_specification_opt . 1001)) ((aspect_specification_opt . 999)) - ((aspect_specification_opt . 997)) - ((aspect_specification_opt . 995)) - nil nil nil nil @@ -3936,54 +4019,49 @@ nil nil nil - ((actual_parameter_part . 91)(constraint . 805)(index_constraint . 806)) - ((attribute_reference . 51)(name . 210)(name_opt . 984)(qualified_expression . 54)(selected_component . 55)) nil - ((case_expression_alternative . 983)) + ((actual_parameter_part . 91)(constraint . 821)(index_constraint . 822)) + ((attribute_reference . 51)(name . 213)(name_opt . 988)(qualified_expression . 54)(selected_component . 55)) nil - ((attribute_reference . 51)(name . 981)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 987)(qualified_expression . 54)(selected_component . 55)) ((actual_parameter_part . 91)) - ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 980)(factor . 153)(name . 875)(primary . 157)(qualified_expression . 54)(range . 763)(selected_component . 55)(simple_expression . 764)(subtype_indication . 765)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - nil + ((aggregate . 153)(attribute_reference . 51)(discrete_subtype_definition . 986)(factor . 155)(name . 891)(primary . 159)(qualified_expression . 54)(range . 769)(selected_component . 55)(simple_expression . 770)(subtype_indication . 771)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 978)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(expression . 977)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil - ((elsif_expression_item . 976)) - ((aspect_clause . 967)(at_clause . 297)(entry_body . 968)(enumeration_representation_clause . 304)(function_specification . 16)(overriding_indicator_opt . 969)(procedure_specification . 32)(protected_operation_item . 970)(protected_operation_item_list . 971)(protected_operation_item_list_opt . 972)(record_representation_clause . 328)(subprogram_body . 973)(subprogram_declaration . 974)) - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 965)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((aspect_clause . 977)(at_clause . 304)(entry_body . 978)(enumeration_representation_clause . 311)(function_specification . 16)(overriding_indicator_opt . 979)(procedure_specification . 32)(protected_operation_item . 980)(protected_operation_item_list . 981)(protected_operation_item_list_opt . 982)(record_representation_clause . 335)(subprogram_body . 983)(subprogram_declaration . 984)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 975)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil - ((aggregate . 151)(association_opt . 173)(association_list . 190)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 183)(expression . 184)(expression_opt . 185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 188)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(association_opt . 176)(association_list . 193)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 186)(expression . 187)(expression_opt . 188)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(range . 190)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 191)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((formal_part . 116)(parameter_profile_opt . 964)) + ((formal_part . 116)(parameter_profile_opt . 974)) nil - ((identifier_opt . 963)) - ((case_statement_alternative . 961)(case_statement_alternative_list . 962)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 959)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((identifier_opt . 973)) + ((case_statement_alternative . 971)(case_statement_alternative_list . 972)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 969)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 957)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 187)(expression_opt . 967)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 956)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 966)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 954)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 964)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 952)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 962)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil - ((aliased_opt . 951)) + ((aliased_opt . 961)) nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 949)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 959)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil - ((accept_statement . 670)(delay_alternative . 671)(delay_statement . 945)(select_alternative . 947)) + ((accept_statement . 679)(delay_alternative . 680)(delay_statement . 955)(select_alternative . 957)) nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 946)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((delay_alternative . 944)(delay_statement . 945)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 956)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((delay_alternative . 954)(delay_statement . 955)) nil nil nil @@ -3991,9 +4069,9 @@ nil nil nil - ((attribute_reference . 51)(exception_choice . 937)(exception_choice_list . 938)(name . 939)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(exception_choice . 947)(exception_choice_list . 948)(name . 949)(qualified_expression . 54)(selected_component . 55)) nil - ((exception_handler . 934)) + ((exception_handler . 944)) nil nil nil @@ -4004,140 +4082,141 @@ nil nil nil - ((accept_statement . 1163)(delay_alternative . 1164)(delay_statement . 945)) + ((accept_statement . 1173)(delay_alternative . 1174)(delay_statement . 955)) nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1160)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1170)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1156)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((constant_opt . 1155)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1166)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((constant_opt . 1165)) nil nil nil - ((identifier_opt . 1151)) - ((elsif_statement_item . 1149)(elsif_statement_list . 1150)) + ((identifier_opt . 1161)) + ((elsif_statement_item . 1159)(elsif_statement_list . 1160)) nil nil nil - ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 1143)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 1153)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(range . 190)(selected_component . 55)(simple_expression . 464)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((case_statement_alternative . 1142)) + ((case_statement_alternative . 1152)) nil nil nil nil nil nil - ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 1135)) + ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 1145)) nil - ((aspect_clause . 967)(at_clause . 297)(entry_body . 968)(enumeration_representation_clause . 304)(function_specification . 16)(overriding_indicator_opt . 969)(procedure_specification . 32)(protected_operation_item . 1134)(record_representation_clause . 328)(subprogram_body . 973)(subprogram_declaration . 974)) + ((aspect_clause . 977)(at_clause . 304)(entry_body . 978)(enumeration_representation_clause . 311)(function_specification . 16)(overriding_indicator_opt . 979)(procedure_specification . 32)(protected_operation_item . 1144)(record_representation_clause . 335)(subprogram_body . 983)(subprogram_declaration . 984)) nil nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1132)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((attribute_reference . 51)(name . 1142)(qualified_expression . 54)(selected_component . 55)) nil + ((actual_parameter_part . 91)) nil + ((formal_part . 116)(parameter_profile_opt . 1139)) nil - ((attribute_reference . 51)(name . 1130)(qualified_expression . 54)(selected_component . 55)) nil - ((actual_parameter_part . 91)) - ((aggregate . 151)(attribute_reference . 51)(expression . 1128)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil nil - ((formal_part . 116)(parameter_profile_opt . 1126)) nil nil nil nil + ((aggregate . 153)(attribute_reference . 51)(expression . 1138)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil + ((aggregate . 153)(attribute_reference . 51)(expression . 1136)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil + ((aggregate . 153)(attribute_reference . 51)(expression . 1134)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil + ((attribute_reference . 51)(name . 1038)(qualified_expression . 54)(selected_component . 55)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1125)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1123)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aspect_specification_opt . 1131)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1121)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((attribute_reference . 51)(name . 1130)(qualified_expression . 54)(selected_component . 55)) + ((attribute_reference . 51)(name . 742)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1129)) nil - ((attribute_reference . 51)(name . 1034)(qualified_expression . 54)(selected_component . 55)) + ((direct_name . 1127)(direct_name_opt . 1128)) nil nil - ((aspect_specification_opt . 1118)) nil - ((attribute_reference . 51)(name . 1117)(qualified_expression . 54)(selected_component . 55)) - ((attribute_reference . 51)(name . 736)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1116)) nil - ((direct_name . 1114)(direct_name_opt . 1115)) + ((aspect_clause . 1014)(at_clause . 304)(component_declaration . 1015)(component_item . 1122)(enumeration_representation_clause . 311)(identifier_list . 1019)(record_representation_clause . 335)(variant_part . 1123)) nil nil nil nil - ((aspect_clause . 1010)(at_clause . 297)(component_declaration . 1011)(component_item . 1109)(enumeration_representation_clause . 304)(identifier_list . 1015)(record_representation_clause . 328)(variant_part . 1110)) nil nil nil nil nil nil + ((real_range_specification_opt . 1116)) + ((real_range_specification_opt . 1115)) nil nil + ((identifier_opt . 1112)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 1111)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil nil - ((real_range_specification_opt . 1103)) - ((real_range_specification_opt . 1102)) nil + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 854)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_definition . 1108)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) + ((actual_parameter_part . 91)(constraint . 1106)(index_constraint . 822)) nil - ((identifier_opt . 1099)) - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 1098)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) nil nil + ((identifier_opt . 1105)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 1104)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 1095)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) - ((actual_parameter_part . 91)(constraint . 1093)(index_constraint . 806)) nil + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 846)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_definition . 1101)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil nil - ((identifier_opt . 1092)) - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 1091)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) nil nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 1088)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((component_clause . 1097)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1095)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((actual_parameter_part . 91)(aspect_specification_opt . 1094)) nil nil + ((access_definition . 1088)(attribute_reference . 51)(component_definition . 1091)(name . 742)(null_exclusion_opt . 215)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1090)) nil + ((access_definition . 1088)(attribute_reference . 51)(component_definition . 1089)(name . 742)(null_exclusion_opt . 215)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1090)) nil - ((component_clause . 1084)) - ((aggregate . 151)(attribute_reference . 51)(expression . 1082)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((actual_parameter_part . 91)(aspect_specification_opt . 1081)) + ((actual_parameter_part . 91)) nil + ((aggregate . 153)(attribute_reference . 51)(name . 156)(primary . 293)(qualified_expression . 54)(selected_component . 55)) nil - ((access_definition . 1075)(attribute_reference . 51)(component_definition . 1078)(name . 736)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1077)) nil - ((access_definition . 1075)(attribute_reference . 51)(component_definition . 1076)(name . 736)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1077)) + ((attribute_reference . 51)(name . 1083)(qualified_expression . 54)(selected_component . 55)) nil - ((actual_parameter_part . 91)) nil - ((aggregate . 151)(attribute_reference . 51)(name . 154)(primary . 286)(qualified_expression . 54)(selected_component . 55)) nil nil - ((attribute_reference . 51)(name . 1070)(qualified_expression . 54)(selected_component . 55)) nil + ((aggregate . 153)(attribute_reference . 51)(expression . 1081)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1080)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil + ((aggregate . 153)(attribute_reference . 51)(expression . 1078)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1068)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil + ((aggregate . 153)(attribute_reference . 51)(expression . 1241)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((actual_parameter_part . 91)) nil - ((attribute_reference . 51)(name . 1231)(qualified_expression . 54)(selected_component . 55)) nil - ((access_definition . 1229)(attribute_reference . 51)(name . 736)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1230)) + ((actual_parameter_part . 91)) nil + ((attribute_reference . 51)(name . 1240)(qualified_expression . 54)(selected_component . 55)) nil + ((access_definition . 1238)(attribute_reference . 51)(name . 742)(null_exclusion_opt . 215)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1239)) nil nil nil @@ -4146,77 +4225,76 @@ nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1225)(term . 165)(term_list . 166)(unary_adding_operator . 167)) nil - ((attribute_reference . 51)(interface_list . 1224)(name . 798)(qualified_expression . 54)(selected_component . 55)) nil + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1234)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 1222)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((attribute_reference . 51)(interface_list . 1233)(name . 814)(qualified_expression . 54)(selected_component . 55)) nil nil + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 846)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_definition . 1231)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil - ((attribute_reference . 51)(interface_list . 1220)(name . 798)(qualified_expression . 54)(selected_component . 55)) nil nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 1218)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((attribute_reference . 51)(interface_list . 1229)(name . 814)(qualified_expression . 54)(selected_component . 55)) nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1216)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1215)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 854)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_definition . 1227)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil nil - ((enumeration_literal . 1214)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1225)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1224)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1213)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((access_definition . 1075)(attribute_reference . 51)(component_definition . 1212)(name . 736)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1077)) nil + ((enumeration_literal . 1223)) nil + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1222)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((access_definition . 1088)(attribute_reference . 51)(component_definition . 1221)(name . 742)(null_exclusion_opt . 215)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1090)) nil nil nil nil nil nil - ((and_interface_list_opt . 1209)) - ((actual_parameter_part . 91)(and_interface_list_opt . 1206)(constraint . 1207)(constraint_opt . 1208)(index_constraint . 806)) nil nil + ((and_interface_list_opt . 1218)) + ((actual_parameter_part . 91)(and_interface_list_opt . 1215)(constraint . 1216)(constraint_opt . 1217)(index_constraint . 822)) nil - ((aspect_specification_opt . 1204)) nil - ((aspect_specification_opt . 1203)) nil - ((aspect_specification_opt . 1202)) - ((aspect_specification_opt . 1201)) + ((aspect_specification_opt . 1213)) nil + ((aspect_specification_opt . 1212)) nil - ((attribute_reference . 51)(name . 1200)(qualified_expression . 54)(selected_component . 55)) - ((actual_parameter_part . 91)) - ((aggregate . 151)(attribute_reference . 51)(expression . 1199)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aspect_specification_opt . 1211)) + ((aspect_specification_opt . 1210)) nil - ((identifier_opt . 1198)) + ((attribute_reference . 51)(name . 1209)(qualified_expression . 54)(selected_component . 55)) + ((actual_parameter_part . 91)) + ((identifier_opt . 1208)) nil ((aspect_specification_opt . 128)) - ((entry_body_formal_part . 1196)(formal_part . 116)(parameter_profile_opt . 1197)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 1194)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((entry_body_formal_part . 1206)(formal_part . 116)(parameter_profile_opt . 1207)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 1204)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 1193)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 1203)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil nil - ((identifier_opt . 1190)) + ((identifier_opt . 1200)) nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1189)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 1188)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1199)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((aggregate . 153)(attribute_reference . 51)(expression . 187)(expression_opt . 1198)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil - ((elsif_statement_item . 1186)) + ((elsif_statement_item . 1196)) nil nil nil nil - ((access_definition . 1179)(attribute_reference . 51)(name . 736)(null_exclusion_opt . 212)(qualified_expression . 54)(return_subtype_indication . 1180)(selected_component . 55)(subtype_indication . 1181)) + ((access_definition . 1189)(attribute_reference . 51)(name . 742)(null_exclusion_opt . 215)(qualified_expression . 54)(return_subtype_indication . 1190)(selected_component . 55)(subtype_indication . 1191)) nil nil nil @@ -4224,12 +4302,12 @@ nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1173)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1183)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil - ((identifier_opt . 1172)) - ((attribute_reference . 51)(exception_choice . 1171)(name . 939)(qualified_expression . 54)(selected_component . 55)) - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1170)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((attribute_reference . 51)(exception_choice . 937)(exception_choice_list . 1169)(name . 939)(qualified_expression . 54)(selected_component . 55)) + ((identifier_opt . 1182)) + ((attribute_reference . 51)(exception_choice . 1181)(name . 949)(qualified_expression . 54)(selected_component . 55)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1180)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((attribute_reference . 51)(exception_choice . 947)(exception_choice_list . 1179)(name . 949)(qualified_expression . 54)(selected_component . 55)) nil nil nil @@ -4245,19 +4323,18 @@ nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1264)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1274)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1258)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1268)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil - ((identifier_list . 214)(parameter_specification . 215)(parameter_specification_list . 216)) - nil + ((identifier_list . 217)(parameter_specification . 218)(parameter_specification_list . 219)) nil nil nil @@ -4271,18 +4348,19 @@ nil nil nil - ((variant_list . 1244)(variant . 1245)) + ((variant_list . 1254)(variant . 1255)) + nil + ((aspect_specification_opt . 1252)) nil - ((aspect_specification_opt . 1242)) nil nil + ((real_range_specification_opt . 1249)) + ((identifier_opt . 1248)) nil - ((real_range_specification_opt . 1239)) - ((identifier_opt . 1238)) nil nil + ((identifier_opt . 1245)) nil - ((identifier_opt . 1235)) nil nil nil @@ -4291,49 +4369,49 @@ nil nil nil + ((actual_parameter_part . 91)(constraint . 1106)(index_constraint . 822)) nil - ((actual_parameter_part . 91)(constraint . 1093)(index_constraint . 806)) - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1294)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 1293)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1304)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 846)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_definition . 1303)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 1292)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 854)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_definition . 1302)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1291)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((aggregate . 151)(attribute_reference . 51)(expression . 1290)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1301)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1300)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 1288)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167)) - ((variant . 1287)) + ((aggregate . 153)(attribute_reference . 51)(choice_expression . 178)(choice_relation_and_list . 179)(choice_relation_or_list . 180)(choice_relation_xor_list . 181)(choice_relation_and_then_list . 182)(choice_relation_or_else_list . 183)(choice_relation . 184)(discrete_choice . 185)(discrete_choice_list . 1298)(factor . 155)(name . 189)(primary . 159)(qualified_expression . 54)(range . 190)(selected_component . 55)(simple_expression . 464)(term . 168)(term_list . 169)(unary_adding_operator . 170)) + ((variant . 1297)) nil nil - ((record_definition . 1284)) + ((record_definition . 1294)) nil nil nil nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 1283)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 187)(expression_opt . 1293)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil - ((identifier_opt . 1281)) - ((identifier_opt . 1280)) + ((identifier_opt . 1291)) + ((identifier_opt . 1290)) nil nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1278)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1288)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil nil - ((aggregate . 151)(attribute_reference . 51)(expression . 1275)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(expression . 1285)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(raise_expression . 160)(relation_and_list . 161)(relation_and_then_list . 162)(relation_or_list . 163)(relation_or_else_list . 164)(relation_xor_list . 165)(relation . 166)(selected_component . 55)(simple_expression . 167)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 1273)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 1283)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) nil nil nil @@ -4346,25 +4424,25 @@ nil nil nil - ((aspect_specification_opt . 1301)) + ((aspect_specification_opt . 1311)) nil nil nil nil - ((aspect_specification_opt . 1298)) + ((aspect_specification_opt . 1308)) nil nil nil nil - ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1315)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((aggregate . 153)(attribute_reference . 51)(factor . 155)(name . 156)(primary . 159)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1325)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil - ((aspect_clause . 1010)(at_clause . 297)(component_declaration . 1011)(component_item . 1012)(component_list . 1013)(component_list_opt . 1313)(enumeration_representation_clause . 304)(identifier_list . 1015)(record_representation_clause . 328)(variant_part . 1016)) + ((aspect_clause . 1014)(at_clause . 304)(component_declaration . 1015)(component_item . 1016)(component_list . 1017)(component_list_opt . 1323)(enumeration_representation_clause . 311)(identifier_list . 1019)(record_representation_clause . 335)(variant_part . 1020)) nil nil - ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 1310)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341)) - ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 1309)(factor . 153)(name . 875)(primary . 157)(qualified_expression . 54)(range . 763)(selected_component . 55)(simple_expression . 764)(subtype_indication . 765)(term . 165)(term_list . 166)(unary_adding_operator . 167)) + ((abstract_subprogram_declaration . 302)(aspect_clause . 303)(at_clause . 304)(body . 305)(body_stub . 306)(declaration . 307)(declarations . 308)(declarative_part_opt . 1320)(entry_declaration . 310)(enumeration_representation_clause . 311)(exception_declaration . 312)(expression_function_declaration . 313)(full_type_declaration . 314)(function_specification . 16)(generic_declaration . 315)(generic_formal_part . 18)(generic_instantiation . 316)(generic_package_declaration . 20)(generic_renaming_declaration . 317)(generic_subprogram_declaration . 22)(identifier_list . 318)(incomplete_type_declaration . 319)(null_procedure_declaration . 320)(object_declaration . 321)(object_renaming_declaration . 322)(overriding_indicator_opt . 323)(package_body . 324)(package_body_stub . 325)(package_declaration . 326)(package_renaming_declaration . 327)(package_specification . 30)(pragma . 328)(private_extension_declaration . 329)(private_type_declaration . 330)(procedure_specification . 32)(proper_body . 331)(protected_body . 332)(protected_body_stub . 333)(protected_type_declaration . 334)(record_representation_clause . 335)(renaming_declaration . 336)(single_protected_declaration . 337)(single_task_declaration . 338)(subprogram_body . 339)(subprogram_body_stub . 340)(subprogram_declaration . 341)(subprogram_renaming_declaration . 342)(subtype_declaration . 343)(task_body . 344)(task_body_stub . 345)(task_type_declaration . 346)(type_declaration . 347)(use_clause . 348)) + ((aggregate . 153)(attribute_reference . 51)(discrete_subtype_definition . 1319)(factor . 155)(name . 891)(primary . 159)(qualified_expression . 54)(range . 769)(selected_component . 55)(simple_expression . 770)(subtype_indication . 771)(term . 168)(term_list . 169)(unary_adding_operator . 170)) nil nil nil @@ -4378,11 +4456,11 @@ nil nil nil - ((accept_statement . 629)(assignment_statement . 630)(asynchronous_select . 631)(attribute_reference . 51)(block_statement . 632)(case_statement . 633)(conditional_entry_call . 634)(delay_statement . 635)(exit_statement . 636)(extended_return_statement . 637)(handled_sequence_of_statements . 1320)(if_statement . 639)(iteration_scheme . 640)(label_opt . 641)(loop_statement . 642)(name . 643)(pragma . 644)(procedure_call_statement . 645)(qualified_expression . 54)(raise_statement . 646)(requeue_statement . 647)(selected_component . 55)(selective_accept . 648)(select_statement . 649)(sequence_of_statements . 650)(sequence_of_statements_opt . 651)(simple_return_statement . 652)(statement . 653)(timed_entry_call . 654)) - ((formal_part . 116)(parameter_profile_opt . 1319)) + ((accept_statement . 638)(assignment_statement . 639)(asynchronous_select . 640)(attribute_reference . 51)(block_statement . 641)(case_statement . 642)(conditional_entry_call . 643)(delay_statement . 644)(exit_statement . 645)(extended_return_statement . 646)(handled_sequence_of_statements . 1330)(if_statement . 648)(iteration_scheme . 649)(label_opt . 650)(loop_statement . 651)(name . 652)(pragma . 653)(procedure_call_statement . 654)(qualified_expression . 54)(raise_statement . 655)(requeue_statement . 656)(selected_component . 55)(selective_accept . 657)(select_statement . 658)(sequence_of_statements . 659)(sequence_of_statements_opt . 660)(simple_return_statement . 661)(statement . 662)(timed_entry_call . 663)) + ((formal_part . 116)(parameter_profile_opt . 1329)) nil nil - ((identifier_opt . 1322)) + ((identifier_opt . 1332)) nil nil])) "Parser table.") diff --git a/packages/ada-mode/ada-mode.el b/packages/ada-mode/ada-mode.el index cd9460a23..c67a3eac5 100644 --- a/packages/ada-mode/ada-mode.el +++ b/packages/ada-mode/ada-mode.el @@ -6,8 +6,8 @@ ;; Maintainer: Stephen Leake ;; Keywords: languages ;; ada -;; Version: 5.1.6 -;; package-requires: ((wisi "1.0.6") (cl-lib "0.4") (emacs "24.2")) +;; Version: 5.1.7 +;; package-requires: ((wisi "1.1.0") (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.6")) + (let ((version-string "5.1.7")) ;; must match: ;; ada-mode.texi ;; README @@ -485,7 +485,7 @@ point is where the mouse button was clicked." (interactive "*") ;; point may be in the middle of a word, so insert newline first, ;; then go back and indent. - (newline) + (insert "\n") (forward-char -1) (funcall indent-line-function) (forward-char 1) @@ -628,8 +628,7 @@ Function is called with no arguments.") (ada-goto-open-paren) (funcall indent-line-function); so new list is indented properly - (let* ((inhibit-modification-hooks t) - (begin (point)) + (let* ((begin (point)) (delend (progn (forward-sexp) (point))); just after matching closing paren (end (progn (backward-char) (forward-comment (- (point))) (point))); end of last parameter-declaration (multi-line (> end (save-excursion (goto-char begin) (line-end-position)))) @@ -1061,6 +1060,7 @@ User is prompted to choose a file from project variable casing if it is a list." (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 (looking-back "\\([0-9]+#[0-9a-fA-F_]+\\)")) (defvar ada-keywords nil @@ -1087,8 +1087,7 @@ User is prompted to choose a file from project variable casing if it is a list." (copy-marker (1+ end)))) ;; upcase first char - (insert-char (upcase (following-char)) 1) - (delete-char 1) + (upcase-region (point) (1+ (point))) (goto-char next) (if (< (point) end) @@ -1146,7 +1145,7 @@ Uses `ada-case-identifier', with exceptions defined in "Adjust the case of the word before point. When invoked interactively, TYPED-CHAR must be `last-command-event', and it must not have been inserted yet. -If IN-COMMENT is non-nil, adjust case of words in comments." +If IN-COMMENT is non-nil, adjust case of words in comments and strings as code." (when (not (bobp)) (when (save-excursion (forward-char -1); back to last character in word @@ -1192,16 +1191,25 @@ If IN-COMMENT is non-nil, adjust case of words in comments." (defun ada-case-adjust-at-point (&optional in-comment) "Adjust case of word at point, move to end of word. -With prefix arg, adjust case even if in comment." +With prefix arg, adjust case as code even if in comment; +otherwise, capitalize words in comments." (interactive "P") - (when - (and (not (eobp)) - ;; we use '(syntax-after (point))' here, not '(char-syntax - ;; (char-after))', because the latter does not respect - ;; ada-syntax-propertize. - (memq (syntax-class (syntax-after (point))) '(2 3))) - (skip-syntax-forward "w_")) - (ada-case-adjust nil in-comment)) + (cond + ((and (not in-comment) + (ada-in-string-or-comment-p)) + (skip-syntax-backward "w_") + (capitalize-word 1)) + + (t + (when + (and (not (eobp)) + ;; we use '(syntax-after (point))' here, not '(char-syntax + ;; (char-after))', because the latter does not respect + ;; ada-syntax-propertize. + (memq (syntax-class (syntax-after (point))) '(2 3))) + (skip-syntax-forward "w_")) + (ada-case-adjust nil in-comment)) + )) (defun ada-case-adjust-region (begin end) "Adjust case of all words in region BEGIN END." @@ -1329,8 +1337,9 @@ Indexed by ada-xref-tool. Called with one argument; the default project properties list. Function should add to the properties list and return it.") -(defun ada-prj-default () +(defun ada-prj-default (&optional src-dir) "Return the default project properties list. +If SRC-DIR is non-nil, use it as the default for src_dir. Include properties set via `ada-prj-default-compiler-alist', `ada-prj-default-xref-alist'." @@ -1349,7 +1358,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 ".") + 'src_dir (list (if src-dir src-dir ".")) 'xref_tool ada-xref-tool )) @@ -1379,6 +1388,7 @@ 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 (let ((project (ada-prj-default)) (parser (cdr (assoc (file-name-extension prj-file) ada-prj-parser-alist)))) @@ -1609,6 +1619,19 @@ Indexed by project variable xref_tool.") ;; return 't', for decent display in message buffer when called interactively t) +(defun ada-create-select-default-prj (&optional directory) + "Create a default project with src_dir set to DIRECTORY (default current directory), select it." + (let* ((dir (or directory default-directory)) + (prj-file (expand-file-name "default_.adp" dir)) + (project (ada-prj-default dir))) + + (if (assoc prj-file ada-prj-alist) + (setcdr (assoc prj-file ada-prj-alist) project) + (add-to-list 'ada-prj-alist (cons prj-file project))) + + (ada-select-prj-file prj-file) + )) + (defun ada-prj-select () "Select the current project file from the list of currently available project files." (interactive) @@ -1656,7 +1679,7 @@ Indexed by project variable xref_tool.") (modify-syntax-entry ?\" "\"" table) ;; punctuation; operators etc - (modify-syntax-entry ?# "w" table); based number - word syntax, since we don't need the number + (modify-syntax-entry ?# "." table); based number - ada-wisi-number-literal-p requires this syntax (modify-syntax-entry ?& "." table) (modify-syntax-entry ?* "." table) (modify-syntax-entry ?+ "." table) @@ -1818,26 +1841,6 @@ unit name; it should return the Ada name that should be found in FILE-NAME.") ada-spec-suffixes) (error "parent '%s' not found; set project file?" ff-function-name)))) -(defun ada-ff-special-extract-separate () - ;; match-string contains "separate (parent_name)" - (let ((package-name (match-string 1))) - (save-excursion - (goto-char (match-end 0)) - (when (eolp) (forward-char 1)) - (skip-syntax-forward " ") - (looking-at - (concat "\\(function\\|package body\\|procedure\\|protected body\\|task body\\)\\s +" - ada-name-regexp)) - (setq ff-function-name (match-string 0)) - ) - (file-name-nondirectory - (or - (ff-get-file-name - compilation-search-path - (ada-file-name-from-ada-name package-name) - ada-body-suffixes) - (error "package '%s' not found; set project file?" package-name))))) - (defun ada-ff-special-with () (let ((package-name (match-string 1))) (setq ff-function-name (concat "^package\\s-+" package-name "\\([^_]\\|$\\)")) @@ -1865,10 +1868,6 @@ unit name; it should return the Ada name that should be found in FILE-NAME.") ada-parent-name-regexp "\\(?:;\\|[ \t]+\\|$\\)") 'ada-ff-special-extract-parent) - ;; A "separate" clause. - (cons (concat "^separate[ \t\n]*(" ada-name-regexp ")") - 'ada-ff-special-extract-separate) - ;; A "with" clause. Note that it may refer to a procedure body, as well as a spec (cons (concat "^\\(?:limited[ \t]+\\)?\\(?:private[ \t]+\\)?with[ \t]+" ada-name-regexp) 'ada-ff-special-with) @@ -1991,12 +1990,12 @@ don't move to corresponding declaration." subprogram declaration, position point on the corresponding parent package specification. -- If point is in the start line of a separate body, - position point on the corresponding separate stub declaration. - - If point is in a context clause line, position point on the first package declaration that is mentioned. +- If point is in a separate body, position point on the + corresponding specification. + - If point is in a subprogram body or specification, position point on the corresponding specification or body. @@ -2038,6 +2037,17 @@ the other file." (ff-find-other-file other-window))) ) +(defun ada-find-file (filename) + ;; we assume compliation-search-path is set, either by an + ;; ada-mode project, or by some other means. + ;; FIXME: option to filter with ada-*-suffixes? + (interactive (list (completing-read "File: " + (apply-partially + 'locate-file-completion-table + compilation-search-path nil)))) + (find-file (locate-file filename compilation-search-path)) + ) + (defvar ada-operator-re "\\+\\|-\\|/\\|\\*\\*\\|\\*\\|=\\|&\\|abs\\|mod\\|rem\\|and\\|not\\|or\\|xor\\|<=\\|<\\|>=\\|>" "Regexp matching Ada operator_symbol.") @@ -2441,6 +2451,8 @@ Called with no parameters.") "See `ada-next-statement-keyword' variable." (interactive) (when ada-next-statement-keyword + (unless (region-active-p) + (push-mark)) (funcall ada-next-statement-keyword))) (defvar ada-prev-statement-keyword nil @@ -2454,6 +2466,8 @@ keyword in the previous statement or containing statement.") "See `ada-prev-statement-keyword' variable." (interactive) (when ada-prev-statement-keyword + (unless (region-active-p) + (push-mark)) (funcall ada-prev-statement-keyword))) ;;;; code creation @@ -2583,7 +2597,13 @@ The paragraph is indented on the first line." (forward-line)) )) - (goto-char opos))) + (goto-char opos) + + ;; 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)) + )) ;;;; support for font-lock.el @@ -2613,142 +2633,10 @@ The paragraph is indented on the first line." (defun ada-font-lock-keywords () "Return Ada mode value for `font-lock-keywords', depending on `ada-language-version'." + ;; Grammar actions set `font-lock-face' property for all + ;; non-keyword tokens that need it. (list - - ;; keywords followed by a name that should be in function-name-face. - (list - (apply - 'concat - (append - '("\\<\\(" - "accept\\|" - "entry\\|" - "function\\|" - "package[ \t]+body\\|" - "package\\|" - "pragma\\|" - "procedure\\|" - "task[ \t]+body\\|" - "task[ \t]+type\\|" - "task\\|" - ) - (when (member ada-language-version '(ada95 ada2005 ada2012)) - '("\\|" - "protected[ \t]+body\\|" - "protected[ \t]+function\\|" - "protected[ \t]+procedure\\|" - "protected[ \t]+type\\|" - "protected" - )) - (list - "\\)\\>[ \t]*" - ada-name-regexp "?"))) - '(1 font-lock-keyword-face) '(2 font-lock-function-name-face nil t)) - - ;; keywords followed by a name that should be in type-face. - (list (concat - "\\<\\(" - "access[ \t]+all\\|" - "access[ \t]+constant\\|" - "access\\|" - "constant\\|" - "in[ \t]+reverse\\|"; loop iterator - "in[ \t]+not[ \t]+null[ \t]+access\\|" - "in[ \t]+not[ \t]+null\\|" - "in[ \t]+out[ \t]+not[ \t]+null[ \t]+access\\|" - "in[ \t]+out[ \t]+not[ \t]+null\\|" - "in[ \t]+out\\|" - "in\\|" - ;; "return" can't distinguish between 'function ... return ;' and 'return ...;' - ;; "new" can't distinguish between generic instantiation - ;; package foo is new bar (...) - ;; and allocation - ;; a := new baz (...) - ;; A parsing indentation engine can, so rules for these are added there - "not[ \t]+null[ \t]access[ \t]all\\|" - "not[ \t]+null[ \t]access[ \t]constant\\|" - "not[ \t]+null[ \t]access\\|" - "not[ \t]+null\\|" - ;; "of" can't distinguish between array and iterable_name - "out\\|" - "subtype\\|" - "type" - "\\)\\>[ \t]*" - ada-name-regexp "?") - '(1 font-lock-keyword-face nil t) '(2 font-lock-type-face nil t)) - - ;; Keywords not treated elsewhere. After above so it doesn't - ;; override fontication of second or third word in those patterns. - (list (concat - "\\<" - (regexp-opt - (append - '("abort" "abs" "accept" "all" - ;; "and" requires parser for types in interface_lists - "array" "at" "begin" "case" "declare" "delay" "delta" - "digits" "do" "else" "elsif" "entry" "exception" "exit" "for" - "generic" "if" "in" "limited" "loop" "mod" "not" - "null" "or" "others" "private" "raise" - "range" "record" "rem" "reverse" - "select" "separate" "task" "terminate" - "then" "when" "while" "xor") - (when (member ada-language-version '(ada95 ada2005 ada2012)) - ;; "aliased" can't distinguish between object declaration and paramlist - '("abstract" "requeue" "tagged" "until")) - (when (member ada-language-version '(ada2005 ada2012)) - '("interface" "overriding" "synchronized")) - (when (member ada-language-version '(ada2012)) - '("some")) - ) - t) - "\\>") - '(0 font-lock-keyword-face)) - - ;; after the above to handle 'is begin' in blocks - (list (concat - "\\<\\(is\\)\\>[ \t]*" - ada-name-regexp "?") - '(1 font-lock-keyword-face) '(2 font-lock-type-face nil t)) - - ;; object and parameter declarations; word after ":" should be in - ;; type-face if not already fontified or an exception. - (list (concat - ":[ \t]*" - ada-name-regexp - "[ \t]*\\(=>\\)?") - '(1 (if (match-beginning 2) - 'default - font-lock-type-face) - nil t)) - - ;; keywords followed by a name that should be in function-name-face if not already fontified - (list (concat - "\\<\\(end\\)\\>[ \t]*" - ada-name-regexp "?") - '(1 font-lock-keyword-face) '(2 font-lock-function-name-face nil t)) - - ;; Keywords followed by a comma separated list of names which - ;; should be in constant-face, unless already fontified. Ada mode 4.01 used this. - (list (concat - "\\<\\(" - "goto\\|" - "use\\|" - ;; don't need "limited" "private" here; they are matched separately - "with"; context clause - "\\)\\>[ \t]*" - "\\(\\(?:\\sw\\|[_., \t]\\)+\\>\\)?"; ada-name-regexp, plus ", \t" - ) - '(1 font-lock-keyword-face) '(2 font-lock-constant-face nil t)) - - ;; statement labels - '("<<\\(\\sw+\\)>>" 1 font-lock-constant-face) - - ;; based numberic literals - (list "\\([0-9]+#[0-9a-fA-F_]+#\\)" '(1 font-lock-constant-face t)) - - ;; numeric literals - (list "\\W\\([-+]?[0-9._]+\\)\\>" '(1 font-lock-constant-face)) - + (list (concat "\\<" (regexp-opt ada-keywords t) "\\>") '(0 font-lock-keyword-face)) )) ;;;; ada-mode @@ -2860,10 +2748,11 @@ The paragraph is indented on the first line." ;; This means to fully set ada-mode interactively, user must ;; do M-x ada-mode M-; (hack-local-variables) - (when global-font-lock-mode - ;; This calls ada-font-lock-keywords, which depends on - ;; ada-language-version - (font-lock-refresh-defaults)) + ;; fill-region-as-paragraph in ada-fill-comment-paragraph does not + ;; call syntax-propertize, so set comment syntax on + ;; ada-fill-comment-prefix. In post-local because user may want to + ;; set it per-file. + (put-text-property 0 2 'syntax-table '(11 . nil) ada-fill-comment-prefix) (cl-case ada-language-version (ada83 @@ -2886,6 +2775,11 @@ The paragraph is indented on the first line." ada-2005-keywords ada-2012-keywords)))) + (when global-font-lock-mode + ;; This calls ada-font-lock-keywords, which depends on + ;; ada-keywords + (font-lock-refresh-defaults)) + (when ada-goto-declaration-start (set (make-local-variable 'beginning-of-defun-function) ada-goto-declaration-start)) @@ -2906,9 +2800,8 @@ The paragraph is indented on the first line." (unless (featurep 'ada-xref-tool) (cl-case ada-xref-tool - ((nil gnat) (require 'ada-gnat-xref)) - (gnat_inspect (require 'gnat-inspect)) - (gpr_query (require 'gpr-query)) + ((nil 'gnat) (require 'ada-gnat-xref)) + ('gpr_query (require 'gpr-query)) )) (unless (featurep 'ada-compiler) diff --git a/packages/ada-mode/ada-mode.info b/packages/ada-mode/ada-mode.info index 78b9799c4..e2c10f95b 100644 --- a/packages/ada-mode/ada-mode.info +++ b/packages/ada-mode/ada-mode.info @@ -119,12 +119,11 @@ ada-mode-version'. * Menu: * Ada Reference Manual:: -* gnatinspect:: * gpr_query:: * Upgrading::  -File: ada-mode.info, Node: Ada Reference Manual, Next: gnatinspect, Up: Installation +File: ada-mode.info, Node: Ada Reference Manual, Next: gpr_query, Prev: Installation, Up: Installation 2.1 Ada Reference Manual ======================== @@ -133,51 +132,40 @@ The ELPA package ada-ref-man includes the Ada Reference Manual and Annotated Ada Reference Manual in info format.  -File: ada-mode.info, Node: gnatinspect, Next: gpr_query, Prev: Installation, Up: Installation +File: ada-mode.info, Node: gpr_query, Next: Upgrading, Prev: Ada Reference Manual, Up: Installation -2.2 gnatinspect -=============== +2.2 gpr_query +============= -Ada mode has experimental support for the new AdaCore cross reference -tool 'gnatinspect', which supports Ada, C, C++, and any other language -for which gcc provices the '-fdump-xref'. +Ada mode has support for an external cross reference tool 'gpr_query', +which supports Ada, C, C++, and any other language for which AdaCore gcc +provices the '-fdump-xref' ('-fdump-xref' is an AdaCore extension). - 'gnatinspect' is distributed as part of 'gnatcoll'. Ada mode -requires the very latest version, in 'gnatcoll 1.7w' distributed with + 'gpr_query' requires the 'gnatcoll' library provided by AdaCore. Ada +mode requires the very latest version 'gnatcoll 1.7w' distributed with GNAT GPL 2014. - To build 'gnatinspect', assuming GNAT GPL 2014 is installed in + To build 'gpr_query', assuming GNAT GPL 2014 is installed in '/usr/gnat-gpl-2014', and '/usr/gnat-gpl-2014/bin' is in PATH: tar xf ~/Downloads/gnatcoll-1.7x-src.tgz cd gnatcoll-1.7w-src ./configure --prefix=/usr/gnat-gpl-2014 - make Gnatcoll_Build=Debug - sudo make Gnatcoll_Build=Debug install + make + sudo make install + cd ~/.emacs.d/elpa/ada-mode-5.xx/build + make install-gpr_query To build an sqlite3 executable that is compatible with the database -created by gnatinspect: +created by 'gpr_query': cd gnatcoll-1.7w-src/src/sqlite/amalgamation/ gcc -O2 -o sqlite3 shell.c sqlite3.c -ldl -lpthread - -File: ada-mode.info, Node: gpr_query, Next: Upgrading, Prev: gnatinspect, Up: Installation - -2.3 gpr_query -============= - -'gpr_query' is similar to 'gnatinspect', but customized for Emacs -ada-mode use. To install it, install 'gnatinspect' as above (*note -gnatinspect::), then: - - cd ~/.emacs.d/elpa/ada-mode-5.xx/build - make install-gpr_query -  File: ada-mode.info, Node: Upgrading, Prev: gpr_query, Up: Installation -2.4 Upgrading from previous versions +2.3 Upgrading from previous versions ==================================== See the file NEWS for more details; here we summarize only important @@ -286,10 +274,9 @@ cross-reference-tool-specific functions for corresponding Ada mode operations. The default cross-reference tool is 'gnatxref', provided by the file -'ada-gnat-xref.el'. Two other tools are supported: 'gnat_inspect' and -'gpr_query'. To use these, add one of the following to '~/.emacs': +'ada-gnat-xref.el'. One other tool is supported: 'gpr_query'. To use +it, add the following to '~/.emacs': - (require 'gnat-inspect) (require 'gpr-query) To use 'gpr_query', the Ada code 'gpr_query.adb' must be compiled; @@ -299,8 +286,7 @@ see *note Installation::. Emacs lisp code that provides the interface to the compiler, and set 'ada-xref-tool' and the indirection variables. - See 'ada-gnat-xref.el', 'gnat-inspect.el', 'gpr-query.el' for -examples. + See 'ada-gnat-xref.el' and 'gpr-query.el' for examples.  File: ada-mode.info, Node: Other customization, Prev: Other cross-reference, Up: Customization @@ -341,18 +327,21 @@ the syntax to set a variable is the following: defaults to 'ada-skel-expand', is bound to (*note Statement skeletons::). 'imenu' + Navigate to subprograms and types by name, from a minibuffer menu. +'speedbar' + Navigate to subprograms and types by name, from a list in a + dedicated window. 'which-func' 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 just before a buffer is written to disk. Also, the order is important; -ada-mode does not set up the Ada-specific features of imenu and -which-func unless they are loaded first. +ada-mode does not set up the Ada-specific features of imenu and speedbar +unless imenu is loaded first. (setq-default indent-tabs-mode nil) (electric-pair-mode 1) - (require 'imenu) - (require 'which-func) + (require 'imenu) ;; also enables speedbar (require 'ada-mode) (add-to-list 'hippie-expand-try-functions-list 'ada-skel-hippie-try) (define-key ada-mode-map "\C-e" 'hippie-expand) @@ -1855,19 +1844,17 @@ File: ada-mode.info, Node: GNAT core, Next: Wisi, Prev: gpr mode, Up: Packag 'gnat-core.el' is a start at a language-agnostic interface to the GNAT tools. It was first factored out from 'ada-gnat.el' and - 'ada-mode.el' to support the multi-language 'gnat-inspect.el', - which is still experimental. + 'ada-mode.el' to support the multi-language 'gpr_query.el'. More code currently in 'ada-mode.el' could be migrated to 'gnat-core.el', in particular the project file support. -'gnat-inspect.el' - Provides an experimental interface to the experimental - multi-language cross-reference tool 'gnatinspect' from AdaCore, - which will supercede 'gnatxref'. +'gpr-query.el' + Provides an interface to the external multi-language + cross-reference tool 'gpr_query'. Implements the Ada mode cross-reference functions for the - 'gnatinspect' backend, and a minor mode providing similar functions + 'gpr_query' backend, and a minor mode providing similar functions for C++.  @@ -2452,46 +2439,45 @@ Tag Table: Node: Top945 Node: Overview2576 Node: Installation3787 -Node: Ada Reference Manual4769 -Node: gnatinspect5026 -Node: gpr_query6023 -Node: Upgrading6380 -Node: Customization6952 -Node: Non-standard file names7434 -Node: Other compiler9275 -Node: Other cross-reference9854 -Node: Other customization10865 -Node: Compiling Executing13335 -Node: Compile commands14070 -Node: Compiling Examples16808 -Node: No project files17640 -Node: Set compiler options23006 -Node: Set source search path24968 -Node: Use GNAT project file27421 -Node: Use multiple GNAT project files30195 -Node: Use a Makefile32915 -Node: Compiler errors34230 -Node: Project files35047 -Node: Project file overview36074 -Node: Project file variables37602 -Node: Moving Through Ada Code41232 -Node: Identifier completion43931 -Node: Indentation44893 -Node: Statement skeletons48945 -Node: Aligning code50730 -Node: Automatic casing51675 -Node: Comment Handling54379 -Node: Key summary54898 -Node: Developer overview57525 -Node: Directory structure57865 -Node: Package organization61351 -Node: Ada mode61586 -Node: gpr mode63782 -Node: GNAT core64065 -Node: Wisi65011 -Node: OpenToken65978 -Node: ELPA66580 -Node: GNU Free Documentation License67190 -Node: Index92351 +Node: Ada Reference Manual4753 +Node: gpr_query5029 +Node: Upgrading6094 +Node: Customization6666 +Node: Non-standard file names7148 +Node: Other compiler8989 +Node: Other cross-reference9568 +Node: Other customization10503 +Node: Compiling Executing13140 +Node: Compile commands13875 +Node: Compiling Examples16613 +Node: No project files17445 +Node: Set compiler options22811 +Node: Set source search path24773 +Node: Use GNAT project file27226 +Node: Use multiple GNAT project files30000 +Node: Use a Makefile32720 +Node: Compiler errors34035 +Node: Project files34852 +Node: Project file overview35879 +Node: Project file variables37407 +Node: Moving Through Ada Code41037 +Node: Identifier completion43736 +Node: Indentation44698 +Node: Statement skeletons48750 +Node: Aligning code50535 +Node: Automatic casing51480 +Node: Comment Handling54184 +Node: Key summary54703 +Node: Developer overview57330 +Node: Directory structure57670 +Node: Package organization61156 +Node: Ada mode61391 +Node: gpr mode63587 +Node: GNAT core63870 +Node: Wisi64704 +Node: OpenToken65671 +Node: ELPA66273 +Node: GNU Free Documentation License66883 +Node: Index92044  End Tag Table diff --git a/packages/ada-mode/ada-mode.texi b/packages/ada-mode/ada-mode.texi index 730b06ae5..96b261055 100644 --- a/packages/ada-mode/ada-mode.texi +++ b/packages/ada-mode/ada-mode.texi @@ -26,7 +26,7 @@ developing GNU and promoting software freedom.'' @titlepage @sp 10 -@title Ada Mode Version 5.1.6 +@title Ada Mode Version 5.1.7 @page @vskip 0pt plus 1filll @insertcopying @@ -121,27 +121,27 @@ You may also want to install additional utilities: @menu * Ada Reference Manual:: -* gnatinspect:: * gpr_query:: * Upgrading:: @end menu -@node Ada Reference Manual +@node Ada Reference Manual, gpr_query, Installation, Installation @section Ada Reference Manual The ELPA package ada-ref-man includes the Ada Reference Manual and Annotated Ada Reference Manual in info format. -@node gnatinspect, gpr_query, Installation, Installation -@section gnatinspect -Ada mode has experimental support for the new AdaCore cross reference -tool @code{gnatinspect}, which supports Ada, C, C++, and any other -language for which gcc provices the @code{-fdump-xref}. +@node gpr_query, Upgrading, Ada Reference Manual, Installation +@section gpr_query +Ada mode has support for an external cross reference +tool @code{gpr_query}, which supports Ada, C, C++, and any other +language for which AdaCore gcc provices the @code{-fdump-xref} +(@code{-fdump-xref} is an AdaCore extension). -@code{gnatinspect} is distributed as part of @code{gnatcoll}. Ada mode -requires the very latest version, in @code{gnatcoll 1.7w} distributed -with GNAT GPL 2014. +@code{gpr_query} requires the @code{gnatcoll} library provided by +AdaCore. Ada mode requires the very latest version @code{gnatcoll +1.7w} distributed with GNAT GPL 2014. -To build @code{gnatinspect}, assuming GNAT GPL 2014 is installed in +To build @code{gpr_query}, assuming GNAT GPL 2014 is installed in @file{/usr/gnat-gpl-2014}, and @file{/usr/gnat-gpl-2014/bin} is in PATH: @@ -149,29 +149,22 @@ PATH: tar xf ~/Downloads/gnatcoll-1.7x-src.tgz cd gnatcoll-1.7w-src ./configure --prefix=/usr/gnat-gpl-2014 -make Gnatcoll_Build=Debug -sudo make Gnatcoll_Build=Debug install +@c make Gnatcoll_Build=Debug +@c sudo make Gnatcoll_Build=Debug install +make +sudo make install +cd ~/.emacs.d/elpa/ada-mode-5.xx/build +make install-gpr_query @end example To build an sqlite3 executable that is compatible with the database -created by gnatinspect: +created by @code{gpr_query}: @example cd gnatcoll-1.7w-src/src/sqlite/amalgamation/ gcc -O2 -o sqlite3 shell.c sqlite3.c -ldl -lpthread @end example -@node gpr_query, Upgrading, gnatinspect, Installation -@section gpr_query -@file{gpr_query} is similar to @file{gnatinspect}, but customized for -Emacs ada-mode use. To install it, install @file{gnatinspect} as above -(@ref{gnatinspect}), then: - -@example -cd ~/.emacs.d/elpa/ada-mode-5.xx/build -make install-gpr_query -@end example - @node Upgrading, , gpr_query, Installation @section Upgrading from previous versions @@ -277,12 +270,10 @@ the cross-reference-tool-specific functions for corresponding Ada mode operations. The default cross-reference tool is @file{gnatxref}, provided by the -file @file{ada-gnat-xref.el}. Two other tools are supported: -@file{gnat_inspect} and @file{gpr_query}. To use these, add one of the -following to @file{~/.emacs}: +file @file{ada-gnat-xref.el}. One other tool is supported: +@file{gpr_query}. To use it, add the following to @file{~/.emacs}: @example -(require 'gnat-inspect) (require 'gpr-query) @end example @@ -293,8 +284,7 @@ To use a cross reference tool other than the above, you must write Emacs lisp code that provides the interface to the compiler, and set @code{ada-xref-tool} and the indirection variables. -See @file{ada-gnat-xref.el}, @file{gnat-inspect.el}, -@file{gpr-query.el} for examples. +See @file{ada-gnat-xref.el} and @file{gpr-query.el} for examples. @node Other customization, , Other cross-reference, Customization @section Other customization @@ -335,6 +325,9 @@ words from current buffer, other buffers, file names, etc; see which defaults to @code{ada-skel-expand}, is bound to @key{C-c C-e} (@pxref{Statement skeletons}). @item imenu +Navigate to subprograms and types by name, from a minibuffer menu. +@item speedbar +Navigate to subprograms and types by name, from a list in a dedicated window. @item which-func @end table @@ -342,14 +335,13 @@ The above can all be set by the following code in your @file{~/.emacs}. Note that some are functions are added to @code{before-save-hook}; they run just before a buffer is written to disk. Also, the order is important; ada-mode does not set up the -Ada-specific features of imenu and which-func unless they are loaded +Ada-specific features of imenu and speedbar unless imenu is loaded first. @example (setq-default indent-tabs-mode nil) (electric-pair-mode 1) -(require 'imenu) -(require 'which-func) +(require 'imenu) ;; also enables speedbar (require 'ada-mode) (add-to-list 'hippie-expand-try-functions-list 'ada-skel-hippie-try) (define-key ada-mode-map "\C-e" 'hippie-expand) @@ -391,7 +383,6 @@ In multi-file projects, there must be one file that is the main program. That is given by the @code{main} project file variable; it defaults to the current file if not yet set, but is also set by the ``set main and build'' command. -@c IMPROVEME: get main from gpr via gnatinspect? not in gnatcoll 1.6w @table @code @@ -1945,19 +1936,17 @@ multi-language gcc. @file{gnat-core.el} is a start at a language-agnostic interface to the GNAT tools. It was first factored out from @file{ada-gnat.el} and -@file{ada-mode.el} to support the multi-language -@file{gnat-inspect.el}, which is still experimental. +@file{ada-mode.el} to support the multi-language @file{gpr_query.el}. More code currently in @file{ada-mode.el} could be migrated to @file{gnat-core.el}, in particular the project file support. -@item gnat-inspect.el -Provides an experimental interface to the experimental multi-language -cross-reference tool @file{gnatinspect} from AdaCore, which will -supercede @file{gnatxref}. +@item gpr-query.el +Provides an interface to the external multi-language cross-reference +tool @file{gpr_query}. Implements the Ada mode cross-reference functions for the -@file{gnatinspect} backend, and a minor mode providing similar +@file{gpr_query} backend, and a minor mode providing similar functions for C++. @end table diff --git a/packages/ada-mode/ada-ref-man.el b/packages/ada-mode/ada-ref-man.el index 6344056c4..53f60c743 100755 --- a/packages/ada-mode/ada-ref-man.el +++ b/packages/ada-mode/ada-ref-man.el @@ -6,7 +6,8 @@ ;; Maintainer: Stephen Leake ;; Keywords: languages ;; ada +;; Package-Type: multi ;; Version: 2012.0 ;; url: http://stephe-leake.org/ada/arm.html -;; -;; (Gnu ELPA requires single digits between dots in versions) + +;;; ada-ref-man.el ends here diff --git a/packages/ada-mode/ada-skel.el b/packages/ada-mode/ada-skel.el index dcd21c422..95442226e 100644 --- a/packages/ada-mode/ada-skel.el +++ b/packages/ada-mode/ada-skel.el @@ -109,6 +109,10 @@ This could end in a token recognized by `ada-skel-expand'." ) +;; override ada-mode 4.01 autoloaded functions +(define-obsolete-function-alias 'ada-header 'ada-skel-header "24.4" + "Insert a descriptive header at the top of the file.") + ;;;;; Ada skeletons (alphabetical) (define-skeleton ada-skel-accept diff --git a/packages/ada-mode/ada-wisi-opentoken.el b/packages/ada-mode/ada-wisi-opentoken.el index 651dbceae..7b7ad0b44 100644 --- a/packages/ada-mode/ada-wisi-opentoken.el +++ b/packages/ada-mode/ada-wisi-opentoken.el @@ -43,14 +43,14 @@ ;; included in package specs that exist solely to define OpenToken ;; grammar fragments. (save-excursion - (let ((token-text (nth 1 (wisi-backward-token)))) + (let ((token-text (wisi-token-text (wisi-backward-token)))) (cond ((equal token-text "<=") (back-to-indentation) (+ (current-column) ada-indent-broken)) ((member token-text '("+" "&")) - (while (not (equal "<=" (nth 1 (wisi-backward-token))))) + (while (not (equal "<=" (wisi-token-text (wisi-backward-token))))) (back-to-indentation) (+ (current-column) ada-indent-broken)) )))) diff --git a/packages/ada-mode/ada-wisi.el b/packages/ada-mode/ada-wisi.el index 1a5815ff1..e939ce785 100644 --- a/packages/ada-mode/ada-wisi.el +++ b/packages/ada-mode/ada-wisi.el @@ -33,19 +33,12 @@ (require 'cl-lib) (require 'wisi) -(defcustom ada-wisi-font-lock-size-threshold 100000 - "Max size (in characters) for using wisi parser results for syntax highlighting." - :type 'integer - :group 'ada-indentation - :safe 'integerp) - (defconst ada-wisi-class-list '( block-end block-middle ;; not start of statement block-start ;; start of block is start of statement close-paren - keyword ;; cached only for face; not used in indentation list-break name name-paren ;; anything that looks like a procedure call, since the grammar can't distinguish most of them @@ -192,7 +185,7 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." (containing (wisi-goto-containing cache))) (cl-ecase (wisi-cache-token containing) (LEFT_PAREN - (if (equal break-point (cl-caddr prev-token)) + (if (equal break-point (cadr prev-token)) ;; we are indenting the first token after the list-break; not hanging. ;; ;; test/parent.adb @@ -269,7 +262,7 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." ;; ;; type Limited_Derived_Type_1d is ;; abstract limited new Private_Type_1 with - ;; record + ;; record ;; indenting 'record' ;; ;; for Record_Type_1 use @@ -310,39 +303,52 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." nil) (name - (cl-case (wisi-cache-nonterm cache) - ((function_specification procedure_specification) - ;; test/ada_mode-nominal.ads - ;; not - ;; overriding - ;; procedure - ;; Procedure_1c (Item : in out Parent_Type_1); - ;; indenting 'Procedure_1c' - ;; - ;; not overriding function - ;; Function_2e (Param : in Parent_Type_1) return Float; - ;; indenting 'Function_2e' - (ada-wisi-indent-containing ada-indent-broken cache t)) + (cond + ((let ((temp (save-excursion (wisi-goto-containing cache)))) + (and temp + (memq (wisi-cache-nonterm temp) '(subprogram_body subprogram_declaration)))) + ;; test/ada_mode-nominal.ads + ;; not + ;; overriding + ;; procedure + ;; Procedure_1c (Item : in out Parent_Type_1); + ;; indenting 'Procedure_1c' + ;; + ;; not overriding function + ;; Function_2e (Param : in Parent_Type_1) return Float; + ;; indenting 'Function_2e' + (ada-wisi-indent-containing ada-indent-broken cache t)) - (t - ;; defer to ada-wisi-after-cache, for consistency - nil) - )) + (t + ;; defer to ada-wisi-after-cache, for consistency + nil) + )) (name-paren ;; defer to ada-wisi-after-cache, for consistency nil) (open-paren - (let ((containing (wisi-goto-containing cache))) + (let* ((containing (wisi-goto-containing cache)) + (containing-pos (point))) (cl-case (wisi-cache-token containing) (COMMA ;; test/ada_mode-parens.adb ;; A : Matrix_Type := ;; ((1, 2, 3), ;; (4, 5, 6), - ;; indenting (4 - (ada-wisi-indent-containing 0 containing)) + ;; indenting (4; containing is '),' ; 0 + ;; + ;; test/ada_mode-parens.adb + ;; Local_14 : Local_14_Type := + ;; ("123", + ;; "456" & + ;; ("789")); + ;; indenting ("4"; contaning is '3",' ; ada-indent-broken + + (ada-wisi-indent-containing + (if (= (nth 1 prev-token) containing-pos) 0 ada-indent-broken) + containing)) (EQUAL_GREATER (setq containing (wisi-goto-containing containing)) @@ -367,6 +373,12 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." ;; (if J > 42 ;; indenting '(if'; containing is '=>' (+ (current-column) -1 ada-indent)) + (WITH + ;; test/aspects.ads + ;; function Wuff return Boolean with Pre => + ;; (for all x in U => + ;; indenting '(for'; containing is '=>', 'with', 'function' + (ada-wisi-indent-cache (1- ada-indent) containing)) )) ((FUNCTION PROCEDURE) @@ -471,226 +483,241 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." (ada-wisi-indent-containing ada-indent-broken cache t)) (statement-other - (let ((containing (wisi-goto-containing cache nil))) - (cl-case (wisi-cache-token cache) - (EQUAL_GREATER - (+ (current-column) ada-indent-broken)) - - (ELSIF - ;; test/g-comlin.adb - ;; elsif Current_Argument < CL.Argument_Count then - (ada-wisi-indent-cache 0 containing)) - - (RENAMES - (cl-ecase (wisi-cache-nonterm containing) - ((generic_renaming_declaration subprogram_renaming_declaration) - (wisi-forward-find-token '(FUNCTION PROCEDURE) pos-0) - (let ((pos-subprogram (point)) - (has-params - ;; this is wrong for one return access - ;; function case: overriding function Foo - ;; return access Bar (...) renames ...; - (wisi-forward-find-token 'LEFT_PAREN pos-0 t))) - (if has-params - (if (<= ada-indent-renames 0) - ;; indent relative to paren - (+ (current-column) (- ada-indent-renames)) - ;; else relative to line containing keyword + (save-excursion + (let ((containing (wisi-goto-containing cache nil))) + (while (not (wisi-cache-nonterm containing)) + (setq containing (wisi-goto-containing containing))) + + (cond + ;; cases to defer to after-cache + ((and + (eq (wisi-cache-nonterm cache) 'qualified_expression) + ;; test/ada_mode-parens.adb Local_13 Integer' + (not (eq (wisi-cache-token containing) 'COLON_EQUAL))) + ;; _not_ test/indent.ads CSCL_Type' + nil) + + ;; handled here + (t + (cl-case (wisi-cache-token cache) + (EQUAL_GREATER + (+ (current-column) ada-indent-broken)) + + (ELSIF + ;; test/g-comlin.adb + ;; elsif Current_Argument < CL.Argument_Count then + (ada-wisi-indent-cache 0 containing)) + + (RENAMES + (cl-ecase (wisi-cache-nonterm containing) + ((generic_renaming_declaration subprogram_renaming_declaration) + (wisi-forward-find-token '(FUNCTION PROCEDURE) pos-0) + (let ((pos-subprogram (point)) + (has-params + ;; this is wrong for one return access + ;; function case: overriding function Foo + ;; return access Bar (...) renames ...; + (wisi-forward-find-token 'LEFT_PAREN pos-0 t))) + (if has-params + (if (<= ada-indent-renames 0) + ;; indent relative to paren + (+ (current-column) (- ada-indent-renames)) + ;; else relative to line containing keyword + (goto-char pos-subprogram) + (+ (current-indentation) ada-indent-renames)) + + ;; no params (goto-char pos-subprogram) - (+ (current-indentation) ada-indent-renames)) + (+ (current-indentation) ada-indent-broken)) + )) - ;; no params - (goto-char pos-subprogram) + (object_renaming_declaration (+ (current-indentation) ada-indent-broken)) - )) - - (object_renaming_declaration - (+ (current-indentation) ada-indent-broken)) - )) - - (t - (while (not (wisi-cache-nonterm containing)) - (setq containing (wisi-goto-containing containing))) - - (cl-ecase (wisi-cache-nonterm containing) - (aggregate - ;; indenting 'with' - (+ (current-column) 1)) - - (association_list - ;; test/ada_mode-parens.adb - ;; Local_13 : Local_11_Type - ;; := (Integer'(1), - ;; Integer'(2)); - (ada-wisi-indent-cache 0 containing)) - - (association_opt - ;; test/indent.ads - ;; 1 => -- Used to be aligned on "CSCL_Type'" - ;; -- aligned with previous comment. - ;; IO_CPU_Control_State_S_Pkg.CPU2_Fault_Status_Type' - (ada-wisi-indent-cache ada-indent-broken containing)) - - (asynchronous_select - ;; indenting 'abort' - (+ (current-column) ada-indent-broken)) - - (component_declaration - ;; test/ada_mode-nominal.ads record_type_3 - (+ (current-column) ada-indent-broken)) - - (entry_body - ;; indenting 'when' - (+ (current-column) ada-indent-broken)) - - (formal_package_declaration - ;; test/ada_mode-generic_package.ads - ;; with package A_Package_7 is - ;; new Ada.Text_IO.Integer_IO (Num => Formal_Signed_Integer_Type); - ;; indenting 'new' - (+ (current-column) ada-indent-broken)) - - (full_type_declaration - ;; test/ada_mode-nominal.ads - ;; type Unconstrained_Array_Type_3 is array (Integer range <>, Standard.Character range <>) - ;; of Object_Access_Type_1; - ;; indenting 'of' - ;; - ;; type Object_Access_Type_7 - ;; is access all Integer; - ;; indenting 'is' - ;; - ;; type Limited_Derived_Type_1 is abstract limited new Private_Type_1 with - ;; record - ;; indenting 'record' - ;; - ;; type Limited_Derived_Type_3 is abstract limited new Private_Type_1 - ;; with null record; - ;; indenting 'with' - ;; - ;; type Limited_Derived_Type_2a is abstract limited new Private_Type_1 - ;; with record - ;; indenting 'with record' - ;; - ;; test/access_in_record.ads - ;; type A - ;; is new Ada.Streams.Root_Stream_Type with record - ;; FIXME: line with 'record' use ada-indent-record-rel-type - - (while (not (eq 'TYPE (wisi-cache-token containing))) - (setq containing (wisi-goto-containing containing))) - - (cond - ((eq (wisi-cache-token cache) 'RECORD) - (+ (current-column) ada-indent-record-rel-type)) - - ((eq (wisi-cache-token cache) 'WITH) - (let ((type-col (current-column))) - (wisi-goto-end-1 cache) - (if (eq 'WITH (wisi-cache-token (wisi-backward-cache))) - ;; 'with null record;' or 'with private;' - (+ type-col ada-indent-broken) - (+ type-col ada-indent-record-rel-type)))) - - (t - (+ (current-column) ada-indent-broken)) - )) - - (generic_instantiation - ;; test/ada_mode-generic_instantiation.ads - ;; procedure Procedure_7 is - ;; new Instance.Generic_Procedure (Integer, Function_1); - ;; indenting 'new' - (+ (current-column) ada-indent-broken)) - - (generic_renaming_declaration - ;; indenting keyword following 'generic' - (current-column)) - - (object_declaration - (cl-ecase (wisi-cache-token containing) - (COLON - ;; test/ada_mode-nominal.ads - ;; Anon_Array_3 : array (1 .. 10) - ;; of Integer; - ;; indenting 'of' - (+ (current-indentation) ada-indent-broken)) - - (COLON_EQUAL - ;; test/indent.ads - ;; C_S_Controls : constant - ;; CSCL_Type := - ;; CSCL_Type' - ;; indenting 'CSCL_Type' - (+ (current-indentation) ada-indent-broken)) - - (identifier_list - ;; test/ada_mode-nominal.adb - ;; Local_2 : constant Float - ;; := Local_1; - (+ (current-indentation) ada-indent-broken)) - )) - - (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)) - - (private_type_declaration - ;; test/aspects.ads - ;; type Vector is tagged private - ;; with - ;; indenting 'with' - (current-indentation)) - - (qualified_expression - ;; test/ada_mode-nominal-child.ads - ;; Child_Obj_5 : constant Child_Type_1 := - ;; (Parent_Type_1' - ;; (Parent_Element_1 => 1, - (ada-wisi-indent-cache ada-indent-broken containing)) - - (statement - (cl-case (wisi-cache-token containing) - (label_opt - (- (current-column) ada-indent-label)) - - (t - ;; test/ada_mode-nominal.adb - ;; select - ;; delay 1.0; - ;; then - ;; -- ... - ;; abort - (ada-wisi-indent-cache ada-indent-broken cache)) - )) - - ((subprogram_body subprogram_declaration subprogram_specification null_procedure_declaration) - (cl-ecase (wisi-cache-token cache) - (OVERRIDING - ;; indenting 'overriding' following 'not' - (current-column)) - - ((PROCEDURE FUNCTION) - ;; indenting 'procedure' or 'function following 'overriding' - (current-column)) - - (WITH - ;; indenting aspect specification on subprogram declaration - ;; test/aspects.ads - ;; procedure Foo (X : Integer; - ;; Y : out Integer) - ;; with Pre => X > 10 and - ;; indenting 'with' - (current-column)) - )) + )) - (subtype_declaration - ;; test/adacore_9717_001.ads A_Long_Name - (+ (current-column) ada-indent-broken)) + (t + (cl-ecase (wisi-cache-nonterm containing) + (aggregate + ;; test/ada_mode-nominal-child.adb + ;; return (Parent_Type_1 + ;; with 1, 0.0, False); + ;; indenting 'with'; containing is '(' + (+ (current-column) 1)) + + (component_declaration + ;; test/ada_mode-nominal.ads Record_Type_3 ':' + (+ (current-column) ada-indent-broken)) + + (entry_body + ;; test/ada_mode-nominal.adb + ;; entry E2 + ;; (X : Integer) + ;; when Local_1 = 0 and not + ;; indenting 'when'; containing is 'entry' + (+ (current-column) ada-indent-broken)) + + (formal_package_declaration + ;; test/ada_mode-generic_package.ads + ;; with package A_Package_7 is + ;; new Ada.Text_IO.Integer_IO (Num => Formal_Signed_Integer_Type); + ;; indenting 'new'; containing is 'with' + (+ (current-column) ada-indent-broken)) + + ((full_type_declaration subtype_declaration) + (while (not (memq (wisi-cache-token containing) '(TYPE SUBTYPE))) + (setq containing (wisi-goto-containing containing))) + + (cond + ((eq (wisi-cache-token cache) 'WITH) + (let ((type-col (current-column)) + (null_private (save-excursion (wisi-goto-end-1 cache) + (eq 'WITH (wisi-cache-token (wisi-backward-cache)))))) + (cond + ((eq 'aspect_specification_opt (wisi-cache-nonterm cache)) + ;; test/aspects.ads + ;; subtype Integer_String is String + ;; with Dynamic_Predicate => Integer'Value (Integer_String) in Integer + ;; indenting 'with' + type-col) + + (null_private + ;; 'with null record;' or 'with private;' + ;; test/ada_mode-nominal.ads + ;; type Limited_Derived_Type_3 is abstract limited new Private_Type_1 + ;; with null record; + ;; indenting 'with'; containing is 'is' + (+ type-col ada-indent-broken)) + + (t + ;; test/ada_mode-nominal.ads + ;; type Unconstrained_Array_Type_3 is array (Integer range <>, Standard.Character range <>) + ;; of Object_Access_Type_1; + ;; indenting 'of'; containing is 'is' + ;; + ;; type Object_Access_Type_7 + ;; is access all Integer; + ;; indenting 'is'; containing is 'type' + (+ type-col ada-indent-record-rel-type))))) + + (t + ;; test/ada_mode-nominal.ads + ;; type Limited_Derived_Type_2a is abstract limited new Private_Type_1 + ;; with record + ;; indenting 'with record' + ;; + ;; test/access_in_record.ads + ;; type A + ;; is new Ada.Streams.Root_Stream_Type with record + ;; + ;; test/adacore_9717_001.ads A_Long_Name + ;; subtype A_Long_Name + ;; is Ada.Text_Io.Count; + ;; indenting 'is' + (+ (current-column) ada-indent-broken)) + )) + + (generic_instantiation + ;; test/ada_mode-generic_instantiation.ads + ;; procedure Procedure_7 is + ;; new Instance.Generic_Procedure (Integer, Function_1); + ;; indenting 'new' + (+ (current-column) ada-indent-broken)) + + (generic_renaming_declaration + ;; indenting keyword following 'generic' + (current-column)) + + (object_declaration + (cl-ecase (wisi-cache-token containing) + (COLON + ;; test/ada_mode-nominal.ads + ;; Anon_Array_3 : array (1 .. 10) + ;; of Integer; + ;; indenting 'of' + (+ (current-indentation) ada-indent-broken)) + + (COLON_EQUAL + ;; test/indent.ads + ;; C_S_Controls : constant + ;; CSCL_Type := + ;; CSCL_Type' + ;; indenting 'CSCL_Type' + (+ (current-indentation) ada-indent-broken)) + + (identifier_list + ;; test/ada_mode-nominal.adb + ;; Local_2 : constant Float + ;; := Local_1; + (+ (current-indentation) ada-indent-broken)) + )) + + (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)) - ))))) ;; end statement-other + (private_type_declaration + ;; test/aspects.ads + ;; type Vector is tagged private + ;; with + ;; indenting 'with' + (current-indentation)) + + (qualified_expression + ;; test/ada_mode-nominal-child.ads + ;; Child_Obj_5 : constant Child_Type_1 := + ;; (Parent_Type_1' + ;; (Parent_Element_1 => 1, + (ada-wisi-indent-cache ada-indent-broken containing)) + + (statement + (cl-case (wisi-cache-token containing) + (label_opt + (- (current-column) ada-indent-label)) + + (t + ;; test/ada_mode-nominal.adb + ;; select + ;; delay 1.0; + ;; then + ;; -- ... + ;; abort + (ada-wisi-indent-cache ada-indent-broken cache)) + )) + + ((subprogram_body subprogram_declaration subprogram_specification null_procedure_declaration) + (cl-ecase (wisi-cache-token cache) + (IS + ;; test/ada_mode-nominal.ads + ;; procedure Procedure_1d + ;; (Item : in out Parent_Type_1; + ;; Item_1 : in Character; + ;; Item_2 : out Character) + ;; is null; + ;; indenting 'is' + (+ (current-column) ada-indent-broken)) + + (OVERRIDING + ;; indenting 'overriding' following 'not' + (current-column)) + + ((PROCEDURE FUNCTION) + ;; indenting 'procedure' or 'function following 'overriding' + (current-column)) + + (WITH + ;; indenting aspect specification on subprogram declaration + ;; test/aspects.ads + ;; procedure Foo (X : Integer; + ;; Y : out Integer) + ;; with Pre => X > 10 and + ;; indenting 'with' + (current-column)) + )) + + )))) + )))) ;; end statement-other (statement-start (cond @@ -728,398 +755,437 @@ point must be on CACHE. PREV-TOKEN is the token before the one being indented." (defun ada-wisi-after-cache () "Point is at indentation, not before a cached token. Find previous cached token, return new indentation for point." - (let ((start (point)) - (prev-token (save-excursion (wisi-backward-token))) - (cache (wisi-backward-cache))) + (save-excursion + (let ((start (point)) + (prev-token (save-excursion (wisi-backward-token))) + (cache (wisi-backward-cache))) - (cond - ((not cache) ;; bob + (cond + ((not cache) ;; bob 0) - (t - (while (memq (wisi-cache-class cache) '(keyword name name-paren type)) - ;; not useful for indenting - (setq cache (wisi-backward-cache))) - - (cl-ecase (wisi-cache-class cache) - (block-end - ;; indenting block/subprogram name after 'end' - (wisi-indent-current ada-indent-broken)) + (t + (while (memq (wisi-cache-class cache) '(keyword name name-paren type)) + ;; not useful for indenting + (setq cache (wisi-backward-cache))) - (block-middle - (cl-case (wisi-cache-token cache) - (IS - (cl-case (wisi-cache-nonterm cache) - (case_statement - ;; between 'case .. is' and first 'when'; most likely a comment - (ada-wisi-indent-containing 0 cache t)) + (cl-ecase (wisi-cache-class cache) + (block-end + ;; indenting block/subprogram name after 'end' + (wisi-indent-current ada-indent-broken)) - (t - (+ (ada-wisi-indent-containing ada-indent cache t))) - )) + (block-middle + (cl-case (wisi-cache-token cache) + (IS + (cl-case (wisi-cache-nonterm cache) + (case_statement + ;; between 'case .. is' and first 'when'; most likely a comment + (ada-wisi-indent-containing 0 cache t)) - ((THEN ELSE) - (let ((indent - (cl-ecase (wisi-cache-nonterm (wisi-get-containing-cache cache)) - ((statement if_statement elsif_statement_item) ada-indent) - ((if_expression elsif_expression_item) ada-indent-broken)))) - (ada-wisi-indent-containing indent cache t))) + (t + (+ (ada-wisi-indent-containing ada-indent cache t))) + )) - (WHEN - ;; between 'when' and '=>' - (+ (current-column) ada-indent-broken)) + ((THEN ELSE) + ;; + ;; test/ada_mode-conditional_expressions.adb + ;; K3 : Integer := (if + ;; J > 42 + ;; then + ;; -1 + ;; else + ;; +1); + ;; indenting -1, +1 + (let ((indent + (cl-ecase (wisi-cache-nonterm (wisi-get-containing-cache cache)) + ((statement if_statement elsif_statement_item) ada-indent) + ((if_expression elsif_expression_item) ada-indent-broken)))) + (ada-wisi-indent-containing indent cache t))) - (t - ;; block-middle keyword may not be on separate line: - ;; function Create (Model : in Integer; - ;; Context : in String) return String is - (ada-wisi-indent-containing ada-indent cache nil)) - )) + (WHEN + ;; between 'when' and '=>' + (+ (current-column) ada-indent-broken)) - (block-start - (cl-case (wisi-cache-nonterm cache) - (exception_handler - ;; between 'when' and '=>' - (+ (current-column) ada-indent-broken)) + (t + ;; block-middle keyword may not be on separate line: + ;; function Create (Model : in Integer; + ;; Context : in String) return String is + (ada-wisi-indent-containing ada-indent cache nil)) + )) - (if_expression - (ada-wisi-indent-containing ada-indent-broken cache nil)) + (block-start + (cl-case (wisi-cache-nonterm cache) + (exception_handler + ;; between 'when' and '=>' + (+ (current-column) ada-indent-broken)) - (select_alternative - (ada-wisi-indent-containing (+ ada-indent-when ada-indent-broken) cache nil)) + (if_expression + (ada-wisi-indent-containing ada-indent-broken cache nil)) - (t ;; other; normal block statement - (ada-wisi-indent-cache ada-indent cache)) - )) + (select_alternative + (ada-wisi-indent-containing (+ ada-indent-when ada-indent-broken) cache nil)) - (close-paren - ;; actual_parameter_part: test/ada_mode-nominal.adb - ;; return 1.0 + - ;; Foo (Bar) + -- multi-line expression that happens to have a cache at a line start - ;; 12; - ;; indenting '12'; don't indent relative to containing function name - ;; - ;; attribute_designator: test/ada_mode-nominal.adb - ;; raise Constraint_Error with Count'Image (Line (File)) & - ;; "foo"; - ;; indenting '"foo"'; relative to raise - ;; - ;; test/ada_mode-slices.adb - ;; Put_Line(Day'Image(D1) & " - " & Day'Image(D2) & " = " & - ;; Integer'Image(N)); - ;; indenting 'Integer' - (when (memq (wisi-cache-nonterm cache) - '(actual_parameter_part attribute_designator)) - (setq cache (wisi-goto-containing cache))) - (ada-wisi-indent-containing ada-indent-broken cache nil)) - - (list-break - (ada-wisi-indent-list-break cache prev-token)) + (t ;; other; normal block statement + (ada-wisi-indent-cache ada-indent cache)) + )) - (open-paren - ;; 1) A parenthesized expression, or the first item in an aggregate: - ;; - ;; (foo + - ;; bar) - ;; (foo => - ;; bar) - ;; - ;; we are indenting 'bar' - ;; - ;; 2) A parenthesized expression, or the first item in an - ;; aggregate, and there is whitespace between - ;; ( and the first token: - ;; - ;; test/ada_mode-parens.adb - ;; Local_9 : String := ( - ;; "123" - ;; - ;; 3) A parenthesized expression, or the first item in an - ;; aggregate, and there is a comment between - ;; ( and the first token: - ;; - ;; test/ada_mode-nominal.adb - ;; A := - ;; ( - ;; -- a comment between paren and first association - ;; 1 => - ;; - ;; test/ada_mode-parens.adb - ;; return Float ( - ;; Integer'Value - ;; indenting 'Integer' - (let ((paren-column (current-column)) - (start-is-comment (save-excursion (goto-char start) (looking-at comment-start-skip)))) - (wisi-forward-token t); point is now after paren - (if start-is-comment - (skip-syntax-forward " >"); point is now on comment - (forward-comment (point-max)); point is now on first token - ) - (if (= (point) start) - ;; case 2) or 3) - (1+ paren-column) - ;; 1) - (+ paren-column 1 ada-indent-broken)))) - - ((return-1 return-2) - ;; test/ada_mode-nominal.adb - ;; function Function_Access_1 - ;; (A_Param : in Float) - ;; return - ;; Standard.Float - ;; indenting 'Standard.Float' - ;; - ;; test/ada_mode-expression_functions.ads - ;; function Square (A : in Float) return Float - ;; is (A * A); - ;; indenting 'is' - ;; - ;; test/ada_mode-nominal.ads - ;; function Function_2g - ;; (Param : in Private_Type_1) - ;; return Float - ;; is abstract; - ;; indenting 'is' - (back-to-indentation) - (+ (current-column) ada-indent-broken)) + (close-paren + ;; actual_parameter_part: test/ada_mode-nominal.adb + ;; return 1.0 + + ;; Foo (Bar) + -- multi-line expression that happens to have a cache at a line start + ;; 12; + ;; indenting '12'; don't indent relative to containing function name + ;; + ;; attribute_designator: test/ada_mode-nominal.adb + ;; raise Constraint_Error with Count'Image (Line (File)) & + ;; "foo"; + ;; indenting '"foo"'; relative to raise + ;; + ;; test/ada_mode-slices.adb + ;; Put_Line(Day'Image(D1) & " - " & Day'Image(D2) & " = " & + ;; Integer'Image(N)); + ;; indenting 'Integer' + (when (memq (wisi-cache-nonterm cache) + '(actual_parameter_part attribute_designator)) + (setq cache (wisi-goto-containing cache))) + (ada-wisi-indent-containing ada-indent-broken cache nil)) + + (list-break + (ada-wisi-indent-list-break cache prev-token)) + + (open-paren + ;; 1) A parenthesized expression, or the first item in an aggregate: + ;; + ;; (foo + + ;; bar) + ;; (foo => + ;; bar) + ;; + ;; we are indenting 'bar' + ;; + ;; 2) A parenthesized expression, or the first item in an + ;; aggregate, and there is whitespace between + ;; ( and the first token: + ;; + ;; test/ada_mode-parens.adb + ;; Local_9 : String := ( + ;; "123" + ;; + ;; 3) A parenthesized expression, or the first item in an + ;; aggregate, and there is a comment between + ;; ( and the first token: + ;; + ;; test/ada_mode-nominal.adb + ;; A := + ;; ( + ;; -- a comment between paren and first association + ;; 1 => + ;; + ;; test/ada_mode-parens.adb + ;; return Float ( + ;; Integer'Value + ;; indenting 'Integer' + (let ((paren-column (current-column)) + (start-is-comment (save-excursion (goto-char start) (looking-at comment-start-skip)))) + (wisi-forward-token); point is now after paren + (if start-is-comment + (skip-syntax-forward " >"); point is now on comment + (forward-comment (point-max)); point is now on first token + ) + (if (= (point) start) + ;; case 2) or 3) + (1+ paren-column) + ;; 1) + (+ paren-column 1 ada-indent-broken)))) + + ((return-1 return-2) + ;; test/ada_mode-nominal.adb + ;; function Function_Access_1 + ;; (A_Param : in Float) + ;; return + ;; Standard.Float + ;; indenting 'Standard.Float' + ;; + ;; test/ada_mode-expression_functions.ads + ;; function Square (A : in Float) return Float + ;; is (A * A); + ;; indenting 'is' + ;; + ;; test/ada_mode-nominal.ads + ;; function Function_2g + ;; (Param : in Private_Type_1) + ;; return Float + ;; is abstract; + ;; indenting 'is' + (back-to-indentation) + (+ (current-column) ada-indent-broken)) + + (statement-end + (ada-wisi-indent-containing 0 cache nil)) + + (statement-other + (cl-ecase (wisi-cache-token cache) + (ABORT + ;; select + ;; Please_Abort; + ;; then + ;; abort + ;; -- 'abort' indented with ada-indent-broken, since this is part + ;; Titi; + (ada-wisi-indent-containing ada-indent cache)) + + ;; test/subdir/ada_mode-separate_task_body.adb + ((COLON COLON_EQUAL) + ;; Local_3 : constant Float := + ;; Local_2; + ;; + ;; test/ada_mode-nominal.ads + ;; type Record_Type_3 (Discriminant_1 : access Integer) is tagged record + ;; Component_1 : Integer; -- end 2 + ;; Component_2 : + ;; Integer; + ;; indenting 'Integer'; containing is ';' + (ada-wisi-indent-cache ada-indent-broken cache)) - (statement-end - (ada-wisi-indent-containing 0 cache nil)) + (COMMA + (cl-ecase (wisi-cache-nonterm cache) + (name_list + (cl-ecase (wisi-cache-nonterm (wisi-get-containing-cache cache)) + (use_clause + ;; test/with_use1.adb + (ada-wisi-indent-containing ada-indent-use cache)) + + (with_clause + ;; test/ada_mode-nominal.ads + ;; limited private with Ada.Strings.Bounded, + ;; --EMACSCMD:(test-face "Ada.Containers" 'default) + ;; Ada.Containers; + ;; + ;; test/with_use1.adb + (ada-wisi-indent-containing ada-indent-with cache)) + )) + )) - (statement-other - (cl-ecase (wisi-cache-token cache) - (ABORT - ;; select - ;; Please_Abort; - ;; then - ;; abort - ;; -- 'abort' indented with ada-indent-broken, since this is part - ;; Titi; - (ada-wisi-indent-containing ada-indent cache)) - - ;; test/subdir/ada_mode-separate_task_body.adb - ((COLON COLON_EQUAL) - ;; Local_3 : constant Float := - ;; Local_2; - (ada-wisi-indent-cache ada-indent-broken cache)) - - (COMMA - (cl-ecase (wisi-cache-nonterm cache) - (name_list - (cl-ecase (wisi-cache-nonterm (wisi-get-containing-cache cache)) - (use_clause - ;; test/with_use1.adb - (ada-wisi-indent-containing ada-indent-use cache)) - - (with_clause - ;; test/ada_mode-nominal.ads - ;; limited private with Ada.Strings.Bounded, - ;; --EMACSCMD:(test-face "Ada.Containers" 'default) - ;; Ada.Containers; - ;; - ;; test/with_use1.adb - (ada-wisi-indent-containing ada-indent-with cache)) - )) - )) - - (ELSIF - ;; test/g-comlin.adb - ;; elsif Index_Switches + Max_Length <= Switches'Last - ;; and then Switches (Index_Switches + Max_Length) = '?' - (ada-wisi-indent-cache ada-indent-broken cache)) - - (EQUAL_GREATER - (let ((cache-col (current-column)) - (cache-pos (point)) - (line-end-pos (line-end-position)) - (containing (wisi-goto-containing cache nil))) - (while (eq (wisi-cache-nonterm containing) 'association_list) - (setq containing (wisi-goto-containing containing nil))) - - (cl-ecase (wisi-cache-nonterm containing) - ((actual_parameter_part aggregate) - ;; ada_mode-generic_package.ads - ;; with package A_Package_2 is new Ada.Text_IO.Integer_IO (Num => - ;; Formal_Signed_Integer_Type); - ;; indenting 'Formal_Signed_...', point on '(Num' - ;; - ;; test/ada_mode-parens.adb - ;; (1 => - ;; 1, - ;; 2 => - ;; 1 + 2 * 3, - ;; indenting '1,' or '1 +'; point on '(1' - (+ (current-column) 1 ada-indent-broken)) + (ELSIF + ;; test/g-comlin.adb + ;; elsif Index_Switches + Max_Length <= Switches'Last + ;; and then Switches (Index_Switches + Max_Length) = '?' + (ada-wisi-indent-cache ada-indent-broken cache)) - (aspect_specification_opt - ;; test/aspects.ads - ;; with Pre => X > 10 and - ;; X < 50 and - ;; F (X), - ;; Post => - ;; Y >= X and - ;; indenting 'X < 50' or 'Y >= X'; cache is '=>', point is on '=>' - ;; or indenting 'Post =>'; cache is ',', point is on 'with' - (cl-ecase (wisi-cache-token cache) - (COMMA - (+ (current-indentation) ada-indent-broken)) - - (EQUAL_GREATER - (if (= (+ 2 cache-pos) line-end-pos) - ;; Post => - ;; Y >= X and - (progn - (goto-char cache-pos) - (+ (current-indentation) ada-indent-broken)) - ;; with Pre => X > 10 and - ;; X < 50 and - (+ 3 cache-col))) - )) + (EQUAL_GREATER + (let ((cache-col (current-column)) + (cache-pos (point)) + (line-end-pos (line-end-position)) + (containing (wisi-goto-containing cache nil))) + (while (eq (wisi-cache-nonterm containing) 'association_list) + (setq containing (wisi-goto-containing containing nil))) + + (cl-ecase (wisi-cache-nonterm containing) + ((actual_parameter_part aggregate) + ;; ada_mode-generic_package.ads + ;; with package A_Package_2 is new Ada.Text_IO.Integer_IO (Num => + ;; Formal_Signed_Integer_Type); + ;; indenting 'Formal_Signed_...', point on '(Num' + ;; + ;; test/ada_mode-parens.adb + ;; (1 => + ;; 1, + ;; 2 => + ;; 1 + 2 * 3, + ;; indenting '1,' or '1 +'; point on '(1' + ;; + ;; test/ada_mode-parens.adb + ;; Local_13 : Local_11_Type + ;; := (Integer'(1), + ;; Integer'(2)); + ;; indenting 'Integer'; point on '(Integer' + (+ (current-column) 1 ada-indent-broken)) + + (aspect_specification_opt + ;; test/aspects.ads + ;; with Pre => X > 10 and + ;; X < 50 and + ;; F (X), + ;; Post => + ;; Y >= X and + ;; indenting 'X < 50' or 'Y >= X'; cache is '=>', point is on '=>' + ;; or indenting 'Post =>'; cache is ',', point is on 'with' + (cl-ecase (wisi-cache-token cache) + (COMMA + (+ (current-indentation) ada-indent-broken)) + + (EQUAL_GREATER + (if (= (+ 2 cache-pos) line-end-pos) + ;; Post => + ;; Y >= X and + (progn + (goto-char cache-pos) + (+ (current-indentation) ada-indent-broken)) + ;; with Pre => X > 10 and + ;; X < 50 and + (+ 3 cache-col))) + )) + + (association_list + (cl-ecase (save-excursion (wisi-cache-token (wisi-goto-containing cache nil))) + (COMMA + (ada-wisi-indent-containing (* 2 ada-indent-broken) cache)) + )) + + ((case_expression_alternative case_statement_alternative exception_handler) + ;; containing is 'when' + (+ (current-column) ada-indent)) + + (generic_renaming_declaration + ;; not indenting keyword following 'generic' + (+ (current-column) ada-indent-broken)) - (association_list - (cl-ecase (save-excursion (wisi-cache-token (wisi-goto-containing cache nil))) - (COMMA - (ada-wisi-indent-containing (* 2 ada-indent-broken) cache)) - )) + (primary + ;; test/ada_mode-quantified_expressions.adb + ;; if (for some J in 1 .. 10 => + ;; J/2 = 0) + (ada-wisi-indent-containing ada-indent-broken cache)) + + + (select_alternative + ;; test/ada_mode-nominal.adb + ;; or when Started + ;; => + ;; accept Finish; + ;; indenting 'accept'; point is on 'when' + (+ (current-column) ada-indent)) + + (variant + ;; test/generic_param.adb + ;; case Item_Type is + ;; when Fix | Airport => + ;; null; + ;; indenting 'null' + (+ (current-column) ada-indent)) + + ))) + + (IS + (setq cache (wisi-goto-containing cache)) + (cl-ecase (wisi-cache-nonterm cache) + (full_type_declaration + ;; ada_mode/nominal.ads + ;; type Limited_Derived_Type_1a is abstract limited new + ;; Private_Type_1 with record + ;; Component_1 : Integer; + ;; indenting 'Private_Type_1'; look for 'record' + (let ((type-column (current-column))) + (goto-char start) + (if (wisi-forward-find-token 'RECORD (line-end-position) t) + ;; 'record' on line being indented + (+ type-column ada-indent-record-rel-type) + ;; 'record' on later line + (+ type-column ada-indent-broken)))) + + ((formal_type_declaration + ;; test/ada_mode-generic_package.ads + ;; 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; - ((case_expression_alternative case_statement_alternative exception_handler) - ;; containing is 'when' - (+ (current-column) ada-indent)) + (+ (current-column) ada-indent-broken)) - (generic_renaming_declaration - ;; not indenting keyword following 'generic' + (null_procedure_declaration + ;; ada_mode-nominal.ads + ;; procedure Procedure_3b is + ;; null; + ;; indenting null (+ (current-column) ada-indent-broken)) - (primary - ;; test/ada_mode-quantified_expressions.adb - ;; if (for some J in 1 .. 10 => - ;; J/2 = 0) - (ada-wisi-indent-containing ada-indent-broken cache)) + )) + (LEFT_PAREN + ;; test/indent.ads + ;; C_S_Controls : constant + ;; CSCL_Type := + ;; CSCL_Type' + ;; ( + ;; 1 => + (+ (current-column) 1)) + + (NEW + ;; ada_mode-nominal.ads + ;; type Limited_Derived_Type_2 is abstract limited new Private_Type_1 with + ;; private; + ;; + ;; test/ada_mode-generic_instantiation.ads + ;; procedure Procedure_6 is new + ;; Instance.Generic_Procedure (Integer, Function_1); + ;; indenting 'Instance'; containing is 'new' + (ada-wisi-indent-containing ada-indent-broken cache)) + + (OF + ;; ada_mode-nominal.ads + ;; Anon_Array_2 : array (1 .. 10) of + ;; Integer; + (ada-wisi-indent-containing ada-indent-broken cache)) - (select_alternative - ;; test/ada_mode-nominal.adb - ;; or when Started - ;; => - ;; accept Finish; - ;; indenting 'accept'; point is on 'when' - (+ (current-column) ada-indent)) - - (variant - ;; test/generic_param.adb - ;; case Item_Type is - ;; when Fix | Airport => - ;; null; - ;; indenting 'null' - (+ (current-column) ada-indent)) - - ))) - - (IS - (setq cache (wisi-goto-containing cache)) - (cl-ecase (wisi-cache-nonterm cache) - (full_type_declaration - ;; ada_mode/nominal.ads - ;; type Limited_Derived_Type_1a is abstract limited new - ;; Private_Type_1 with record - ;; Component_1 : Integer; - ;; indenting 'Private_Type_1'; look for 'record' - (let ((type-column (current-column))) - (goto-char start) - (if (wisi-forward-find-token 'RECORD (line-end-position) t) - ;; 'record' on line being indented - (+ type-column ada-indent-record-rel-type) - ;; 'record' on later line - (+ type-column ada-indent-broken)))) - - ((formal_type_declaration - ;; test/ada_mode-generic_package.ads - ;; 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; - - (+ (current-column) ada-indent-broken)) - )) - - (LEFT_PAREN - ;; test/indent.ads - ;; C_S_Controls : constant - ;; CSCL_Type := - ;; CSCL_Type' - ;; ( - ;; 1 => - (+ (current-column) 1)) - - (NEW - ;; ada_mode-nominal.ads - ;; type Limited_Derived_Type_2 is abstract limited new Private_Type_1 with - ;; private; - ;; - ;; test/ada_mode-generic_instantiation.ads - ;; procedure Procedure_6 is new - ;; Instance.Generic_Procedure (Integer, Function_1); - ;; indenting 'Instance'; containing is 'new' - (ada-wisi-indent-containing ada-indent-broken cache)) - - (OF - ;; ada_mode-nominal.ads - ;; Anon_Array_2 : array (1 .. 10) of - ;; Integer; - (ada-wisi-indent-containing ada-indent-broken cache)) + (WHEN + ;; test/ada_mode-parens.adb + ;; exit when A.all + ;; or else B.all + (ada-wisi-indent-containing ada-indent-broken cache)) - (WHEN - ;; test/ada_mode-parens.adb - ;; exit when A.all - ;; or else B.all - (ada-wisi-indent-containing ada-indent-broken cache)) - - (WITH - (cl-case (wisi-cache-nonterm cache) - (aggregate - ;; test/ada_mode-nominal-child.ads - ;; (Default_Parent with - ;; 10, 12.0, True); - ;; indenting '10'; containing is '(' - (ada-wisi-indent-containing 0 cache nil)) - - (aspect_specification_opt - ;; test/aspects.ads - ;; type Vector is tagged private - ;; with - ;; Constant_Indexing => Constant_Reference, - ;; indenting 'Constant_Indexing'; point is on 'with' - (+ (current-indentation) ada-indent-broken)) - )) - - ;; otherwise just hanging - ((ACCEPT FUNCTION PROCEDURE RENAMES) - (back-to-indentation) - (+ (current-column) ada-indent-broken)) + (WITH + (cl-case (wisi-cache-nonterm cache) + (aggregate + ;; test/ada_mode-nominal-child.ads + ;; (Default_Parent with + ;; 10, 12.0, True); + ;; indenting '10'; containing is '(' + (ada-wisi-indent-containing 0 cache nil)) - )) + (aspect_specification_opt + ;; test/aspects.ads + ;; type Vector is tagged private + ;; with + ;; Constant_Indexing => Constant_Reference, + ;; indenting 'Constant_Indexing'; point is on 'with' + (+ (current-indentation) ada-indent-broken)) + )) - (statement-start - (cl-case (wisi-cache-token cache) - (WITH ;; with_clause - (+ (current-column) ada-indent-with)) + ;; otherwise just hanging + ((ACCEPT FUNCTION PROCEDURE RENAMES) + (back-to-indentation) + (+ (current-column) ada-indent-broken)) + + )) - (label_opt - ;; comment after label - (+ (current-column) (- ada-indent-label))) + (statement-start + (cl-case (wisi-cache-token cache) + (WITH ;; with_clause + (+ (current-column) ada-indent-with)) - (t - ;; procedure Procedure_8 - ;; is new Instance.Generic_Procedure (Integer, Function_1); - ;; indenting 'is'; hanging - ;; (+ (current-column) ada-indent-broken)) - (ada-wisi-indent-cache ada-indent-broken cache)) - )) - ))) - )) + (label_opt + ;; comment after label + (+ (current-column) (- ada-indent-label))) + + (t + ;; procedure Procedure_8 + ;; is new Instance.Generic_Procedure (Integer, Function_1); + ;; indenting 'is'; hanging + ;; + ;; test/ada_mode-conditional_expressions.adb + ;; K3 : Integer := (if + ;; J > 42 + ;; then + ;; -1 + ;; else + ;; +1); + ;; indenting J + (ada-wisi-indent-cache ada-indent-broken cache)) + )) + ))) + ))) (defun ada-wisi-comment () "Compute indentation of a comment. For `wisi-indent-calculate-functions'." @@ -1212,37 +1278,45 @@ cached token, return new indentation for point." (defun ada-wisi-goto-subunit-name () "For `ada-goto-subunit-name'." (wisi-validate-cache (point-max)) - (let ((end nil) - cache - (name-pos nil)) - (save-excursion - ;; move to top declaration - (goto-char (point-min)) - (setq cache (or (wisi-get-cache (point)) - (wisi-forward-cache))) - (while (not end) - (cl-case (wisi-cache-nonterm cache) - ((pragma use_clause with_clause) - (wisi-goto-end-1 cache) - (setq cache (wisi-forward-cache))) - (t - ;; start of compilation unit - (setq end t)) - )) - (when (eq (wisi-cache-nonterm cache) 'subunit) - (wisi-forward-find-token '(IDENTIFIER name selected_component) (point-max)) ;; parent name - (wisi-forward-token) - (wisi-forward-find-token '(IDENTIFIER name selected_component) (point-max)) ;; subunit name - (setq name-pos (point))) - ) - (when name-pos - (goto-char name-pos)) - )) + (if (not (> wisi-cache-max (point))) + (progn + (message "parse failed; can't goto subunit name") + nil) + + (let ((end nil) + cache + (name-pos nil)) + (save-excursion + ;; move to top declaration + (goto-char (point-min)) + (setq cache (or (wisi-get-cache (point)) + (wisi-forward-cache))) + (while (not end) + (cl-case (wisi-cache-nonterm cache) + ((pragma use_clause with_clause) + (wisi-goto-end-1 cache) + (setq cache (wisi-forward-cache))) + (t + ;; start of compilation unit + (setq end t)) + )) + (when (eq (wisi-cache-nonterm cache) 'subunit) + (wisi-forward-find-class 'name (point-max)) ;; parent name + (wisi-forward-token) + (wisi-forward-find-class 'name (point-max)) ;; subunit name + (setq name-pos (point))) + ) + (when name-pos + (goto-char name-pos)) + ))) (defun ada-wisi-goto-declaration-start () "For `ada-goto-declaration-start', which see. Also return cache at start." (wisi-validate-cache (point)) + (unless (> wisi-cache-max (point)) + (error "parse failed; can't goto declarative-region-start")) + (let ((cache (wisi-get-cache (point))) (done nil)) (unless cache @@ -1284,6 +1358,9 @@ Also return cache at start." (defun ada-wisi-goto-declarative-region-start () "For `ada-goto-declarative-region-start', which see." (wisi-validate-cache (point)) + (unless (> wisi-cache-max (point)) + (error "parse failed; can't goto declarative-region-start")) + (let ((done nil) (first t) (cache @@ -1299,7 +1376,7 @@ Also return cache at start." (while (not done) (if (ada-wisi-declarative-region-start-p cache) (progn - (wisi-forward-token t) + (wisi-forward-token) (setq done t)) (cl-case (wisi-cache-class cache) ((block-middle block-end) @@ -1382,6 +1459,9 @@ Also return cache at start." (defun ada-wisi-scan-paramlist (begin end) "For `ada-scan-paramlist'." (wisi-validate-cache end) + (when (< wisi-cache-max end) + (error "parse failed; can't scan paramlist")) + (goto-char begin) (let (token text @@ -1404,7 +1484,7 @@ Also return cache at start." (while (not done) (let ((token-text (wisi-forward-token))) (setq token (nth 0 token-text)) - (setq text (nth 1 token-text))) + (setq text (wisi-token-text token-text))) (cond ((equal token 'COMMA) nil);; multiple identifiers @@ -1493,9 +1573,9 @@ Also return cache at start." (wisi-validate-cache (point)) (save-excursion (let ((result nil) - (cache (ada-wisi-goto-declaration-start))) + (cache (condition-case nil (ada-wisi-goto-declaration-start) (error nil)))) (if (null cache) - ;; bob + ;; bob or failed parse (setq result "") (cl-case (wisi-cache-nonterm cache) @@ -1549,6 +1629,91 @@ Also return cache at start." (define-key ada-mode-map "\M-k" 'wisi-show-token) ) +(defun ada-wisi-number-p (token-text) + "Return t if TOKEN-TEXT plus text after point matches the +syntax for a real literal; otherwise nil. point is after +TOKEN-TEXT; move point to just past token." + ;; test in test/wisi/ada-number-literal.input + ;; + ;; starts with a simple integer + (let ((end (point))) + ;; this first test must be very fast; it is executed for every token + (when (and (memq (aref token-text 0) '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9)) + (string-match "^[0-9]+" token-text)) + (cond + ((= (char-after) ?#) + ;; based number + (forward-char 1) + (if (not (looking-at "[0-9a-fA-F]+")) + (progn (goto-char end) nil) + + (goto-char (match-end 0)) + (cond + ((= (char-after) ?#) + ;; based integer + (forward-char 1) + t) + + ((= (char-after) ?.) + ;; based real? + (forward-char 1) + (if (not (looking-at "[0-9a-fA-F]+")) + (progn (goto-char end) nil) + + (goto-char (match-end 0)) + + (if (not (= (char-after) ?#)) + (progn (goto-char end) nil) + + (forward-char 1) + (setq end (point)) + + (if (not (memq (char-after) '(?e ?E))) + ;; based real, no exponent + t + + ;; exponent? + (forward-char 1) + (if (not (looking-at "[+-]?[0-9]+")) + (progn (goto-char end) t) + + (goto-char (match-end 0)) + t + ))))) + + (t + ;; missing trailing # + (goto-char end) nil) + ))) + + ((= (char-after) ?.) + ;; decimal real number? + (forward-char 1) + (if (not (looking-at "[0-9]+")) + ;; decimal integer + (progn (goto-char end) t) + + (setq end (goto-char (match-end 0))) + + (if (not (memq (char-after) '(?e ?E))) + ;; decimal real, no exponent + t + + ;; exponent? + (forward-char 1) + (if (not (looking-at "[+-]?[0-9]+")) + (progn (goto-char end) t) + + (goto-char (match-end 0)) + t + )))) + + (t + ;; just an integer + t) + )) + )) + (defun ada-wisi-setup () "Set up a buffer for parsing Ada files with wisi." (wisi-setup '(ada-wisi-comment @@ -1564,64 +1729,6 @@ Also return cache at start." (setq wisi-string-quote-escape-doubled t) (set (make-local-variable 'comment-indent-function) 'wisi-comment-indent) - - (add-hook 'hack-local-variables-hook 'ada-wisi-post-local-vars nil t) - ) - -(defun ada-wisi-face () - "Return face for token in match-data 2" - (let (cache) - (when (< (point-max) ada-wisi-font-lock-size-threshold) - (wisi-validate-cache (line-end-position))) - - (if (setq cache (wisi-get-cache (match-beginning 2))) - (wisi-cache-face cache) - 'default) - )) - -(defun ada-wisi-post-local-vars () - ;; run after file local variables are read because font-lock-add-keywords - ;; evaluates font-lock-defaults, which depends on ada-language-version. - ;; - ;; use parse results to distinguish difficult cases, but don't - ;; require parse just for font-lock - ;; - ;; name is not found if on next line - (font-lock-add-keywords nil - (list - (list - "\\<\\(of[ \t]+reverse\\)\\>" ;; following word is object - '(1 font-lock-keyword-face) - ) - (list - (concat - "\\<\\(" - "aliased[ \t]+not[ \t]+null[ \t]+access\\|" - "aliased[ \t]+not[ \t]+null\\|" - "return[ \t]+access[ \t]+constant\\|" - "return[ \t]+access" - "\\)\\>[ \t]*" - ada-name-regexp "?") - '(1 font-lock-keyword-face) - '(2 font-lock-type-face nil t) - ) - (list - (concat - "\\<\\(" - "aliased\\|" - "and\\|" - "of\\|" - "new\\|" - "renames\\|" - "return" - "\\)\\>[ \t]*" - ada-name-regexp "?") - '(1 font-lock-keyword-face) - '(2 (ada-wisi-face) nil t) - )) - nil ;; add at start of list, so these have precedence - ) - ) (add-hook 'ada-mode-hook 'ada-wisi-setup) diff --git a/packages/ada-mode/gnat-core.el b/packages/ada-mode/gnat-core.el index a9d79ea8b..287bad48e 100644 --- a/packages/ada-mode/gnat-core.el +++ b/packages/ada-mode/gnat-core.el @@ -128,14 +128,14 @@ Uses 'gnat list'. Returns new (SRC-DIRS PRJ-DIRS)." (forward-line 1) (while (not (looking-at "^$")) ; terminate on blank line (back-to-indentation) ; skip whitespace forward - (cl-pushnew (if (looking-at "") - (directory-file-name default-directory) - (expand-file-name ; Canonicalize path part. - (directory-file-name - (buffer-substring-no-properties - (point) (point-at-eol))))) - src-dirs - :test #'equal) + (cl-pushnew + (if (looking-at "") + (directory-file-name default-directory) + (expand-file-name ; Canonicalize path part. + (directory-file-name + (buffer-substring-no-properties (point) (point-at-eol))))) + src-dirs + :test #'equal) (forward-line 1)) ;; Project path @@ -149,8 +149,7 @@ Uses 'gnat list'. Returns new (SRC-DIRS PRJ-DIRS)." (if (looking-at "") (cl-pushnew "." prj-dirs :test #'equal) (let ((f (expand-file-name - (buffer-substring-no-properties - (point) (point-at-eol))))) + (buffer-substring-no-properties (point) (point-at-eol))))) (cl-pushnew f prj-dirs :test #'equal) (cl-pushnew f src-dirs :test #'equal))) (forward-line 1)) @@ -173,7 +172,7 @@ Uses 'gnat list'. Returns new (SRC-DIRS PRJ-DIRS)." ;; known". ;; Using 'require' at top level gives the wrong default ada-xref-tool (cl-ecase (ada-prj-get 'xref_tool project) - ((gnat gnat_inspect) + (gnat (let ((res (gnat-get-paths-1 src-dirs prj-dirs))) (setq src-dirs (car res)) (setq prj-dirs (cadr res)))) diff --git a/packages/ada-mode/gpr-grammar-wy.el b/packages/ada-mode/gpr-grammar-wy.el index 3cefbb192..cd6c4d678 100644 --- a/packages/ada-mode/gpr-grammar-wy.el +++ b/packages/ada-mode/gpr-grammar-wy.el @@ -77,16 +77,16 @@ ((aggregate ((LEFT_PAREN string_list RIGHT_PAREN ) (progn - (wisi-statement-action 1 'open-paren 3 'close-paren) + (wisi-statement-action [1 open-paren 3 close-paren]) (wisi-containing-action 1 2)))) (attribute_declaration ((FOR IDENTIFIER USE expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'statement-other 5 'statement-end) + (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-statement-action [1 statement-start 3 open-paren 5 close-paren 6 statement-other 8 statement-end]) (wisi-containing-action 6 7)))) (attribute_prefix ((PROJECT )) @@ -94,16 +94,16 @@ (attribute_reference ((attribute_prefix QUOTE IDENTIFIER )) ((attribute_prefix QUOTE IDENTIFIER LEFT_PAREN STRING_LITERAL RIGHT_PAREN ) - (wisi-statement-action 4 'open-paren 6 'close-paren))) + (wisi-statement-action [4 open-paren 6 close-paren]))) (case_statement ((CASE name IS case_items END CASE SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-start 5 'block-end 7 'statement-end) + (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 ) (progn - (wisi-statement-action 1 'block-middle 3 'block-start) + (wisi-statement-action [1 block-middle 3 block-start]) (wisi-containing-action 3 4)))) (case_items (()) @@ -152,7 +152,7 @@ (package_spec ((PACKAGE identifier_opt IS simple_declarative_items END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-start 5 'block-end 7 'statement-end) + (wisi-statement-action [1 statement-start 3 block-start 5 block-end 7 statement-end]) (wisi-containing-action 3 4)))) (project_qualifier_opt (()) @@ -165,16 +165,16 @@ (simple_declarative_item ((IDENTIFIER COLON_EQUALS expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 4 'statement-end) + (wisi-statement-action [1 statement-start 4 statement-end]) (wisi-containing-action 1 3))) ((IDENTIFIER COLON IDENTIFIER COLON_EQUALS expression SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 6 'statement-end) + (wisi-statement-action [1 statement-start 6 statement-end]) (wisi-containing-action 1 5))) ((attribute_declaration )) ((case_statement )) ((NULL SEMICOLON ) - (wisi-statement-action 1 'statement-start 2 'statement-end))) + (wisi-statement-action [1 statement-start 2 statement-end]))) (simple_declarative_items (()) ((simple_declarative_item )) @@ -182,7 +182,7 @@ (simple_project_declaration ((PROJECT identifier_opt IS declarative_items END identifier_opt SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 3 'block-start 5 'block-end 7 'statement-end) + (wisi-statement-action [1 statement-start 3 block-start 5 block-end 7 statement-end]) (wisi-containing-action 3 4)))) (string_expression ((string_primary ))) @@ -195,7 +195,7 @@ ((expression )) ((string_list COMMA expression ) (progn - (wisi-statement-action 2 'list-break) + (wisi-statement-action [2 list-break]) (wisi-containing-action 2 3)))) (term ((string_expression )) @@ -204,7 +204,7 @@ (typed_string_declaration ((TYPE IDENTIFIER IS aggregate SEMICOLON ) (progn - (wisi-statement-action 1 'statement-start 5 'statement-end) + (wisi-statement-action [1 statement-start 5 statement-end]) (wisi-containing-action 1 4)))) (with_clause ((WITH string_list SEMICOLON )))) diff --git a/packages/ada-mode/gpr-mode.el b/packages/ada-mode/gpr-mode.el index 1bf11c841..798964a6d 100644 --- a/packages/ada-mode/gpr-mode.el +++ b/packages/ada-mode/gpr-mode.el @@ -215,7 +215,6 @@ of the package or project point is in or just after, or nil.") ;; FIXME: need dispatching kill single session (cl-ecase ada-xref-tool (gnat_xref nil) - (gnat_inspect (gnat-inspect-kill-all-sessions)) (gpr_query (gpr-query-kill-all-sessions)) ) (ada-parse-prj-file (or file (buffer-file-name))) diff --git a/packages/ada-mode/gpr-query.el b/packages/ada-mode/gpr-query.el index 2ec07717a..be03ca82c 100644 --- a/packages/ada-mode/gpr-query.el +++ b/packages/ada-mode/gpr-query.el @@ -1,6 +1,5 @@ ;;; gpr-query.el --- minor-mode for navigating sources using the -;;; custom gpr_query tool, based on AdaCore cross reference tool -;;; gnatinspect. +;;; custom gpr_query tool. ;;; ;;; gpr-query supports Ada and any gcc language that supports the ;;; AdaCore -fdump-xref switch (which includes C, C++). @@ -246,7 +245,6 @@ set compilation-mode with compilation-error-regexp-alist set to COMP-ERR." (let ((cmd-1 (format "%s %s:%s:%d:%d" cmd identifier file line col)) (result-count 0) file line column) - ;; FIXME: Code duplication with gnat-inspect-compilation! (with-current-buffer (gpr-query--session-buffer (gpr-query-cached-session)) (compilation-mode) (setq buffer-read-only nil) @@ -259,7 +257,7 @@ set compilation-mode with compilation-error-regexp-alist set to COMP-ERR." (font-lock-ensure) (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 + ;; 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!) @@ -275,7 +273,7 @@ set compilation-mode with compilation-error-regexp-alist set to COMP-ERR." ;; 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! + ;; 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))) @@ -377,7 +375,7 @@ buffer in another window." ;; FIXME: (define-key map "\C-c\M-d" 'gpr-query-parents) ;; FIXME: overriding map - ) "Local keymap used for GNAT inspect minor mode.") + ) "Local keymap used for gpr query minor mode.") (defvar gpr-query-menu (make-sparse-keymap "gpr-query")) (easy-menu-define gpr-query-menu gpr-query-map "Menu keymap for gpr-query minor mode" @@ -627,7 +625,7 @@ Enable mode if ARG is positive" (font-lock-add-keywords 'ada-mode ;; gnatprep preprocessor line - (list (list "^[ \t]*\\(#.*\n\\)" '(1 font-lock-type-face t)))) + (list (list "^[ \t]*\\(#.*\n\\)" '(1 font-lock-preprocessor-face t)))) ) (provide 'gpr-query) diff --git a/packages/ada-mode/gpr-wisi.el b/packages/ada-mode/gpr-wisi.el index 48f552397..07360949e 100644 --- a/packages/ada-mode/gpr-wisi.el +++ b/packages/ada-mode/gpr-wisi.el @@ -169,7 +169,7 @@ or containing ancestor of CACHE that is at a line beginning." (setq cache (wisi-goto-containing cache))) (when cache (wisi-forward-token); package | project - (wisi-forward-token t); name + (wisi-token-text (wisi-forward-token)); name ))) ;;; debugging diff --git a/packages/ada-ref-man/ada-ref-man.el b/packages/ada-ref-man/ada-ref-man.el index 6cdb85b4c..53f60c743 100644 --- a/packages/ada-ref-man/ada-ref-man.el +++ b/packages/ada-ref-man/ada-ref-man.el @@ -4,11 +4,10 @@ ;; ;; Author: Stephen Leake ;; Maintainer: Stephen Leake -;; Keywords: languages ada +;; Keywords: languages +;; ada ;; Package-Type: multi ;; Version: 2012.0 ;; url: http://stephe-leake.org/ada/arm.html -;; -;; (Gnu ELPA requires single digits between dots in versions) ;;; ada-ref-man.el ends here diff --git a/packages/wisi/NEWS b/packages/wisi/NEWS index 9aa593854..3385ac6df 100755 --- a/packages/wisi/NEWS +++ b/packages/wisi/NEWS @@ -7,6 +7,33 @@ 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.0 +18 Nov 2014 + +** change wisi-forward-token to not return text; simpler, faster + +** remove face from wisi-cache; set font-lock-face property directly. + +** add support for numeric literal tokens. + +** change wisi-*-action to take a vector of arguments; faster for + external parser, catches more errors. + +* wisi 1.0.6 +28 Sep 2014 + +** add face to wisi-cache + +** wisi-before/after-change : improve checks for invalidate-cache + +** wisi-motion-action takes class with each token-id + +** new parse actions: wisi-extend-action, wisi-face-action + +** new functions: wisi-goto-statement-start, -end. + +** fix misc bugs + * wisi 1.0.5 12 Jul 2014 diff --git a/packages/wisi/README b/packages/wisi/README index cbf97c95d..72380ae9b 100755 --- a/packages/wisi/README +++ b/packages/wisi/README @@ -1,4 +1,4 @@ -Emacs wisi package 1.0.6 +Emacs wisi package 1.1.0 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-parse.el b/packages/wisi/wisi-parse.el index e3b3da6a3..852ecdc59 100755 --- a/packages/wisi/wisi-parse.el +++ b/packages/wisi/wisi-parse.el @@ -95,6 +95,12 @@ point at which that max was spawned.") (defvar-local wisi-cache-max 0 "Maximimum position in buffer where wisi-cache text properties are valid.") +(defun wisi-token-text (token) + "Return buffer text from token range." + (let ((region (cdr token))) + (and region + (buffer-substring-no-properties (car region) (cdr region))))) + (defun wisi-parse (automaton lexer) "Parse current buffer from bob using the automaton specified in AUTOMATON. @@ -188,7 +194,7 @@ point at which that max was spawned.") (signal 'wisi-parse-error (wisi-error-msg "syntax error in grammar state %d; unexpected %s, expecting one of %s" state - (nth 1 token) + (wisi-token-text token) (mapcar 'car (aref actions state)))) )) (t @@ -205,7 +211,7 @@ point at which that max was spawned.") (wisi-error-msg "syntax error in grammar state %d; unexpected %s, expecting one of %s" state - (nth 1 token) + (wisi-token-text token) (mapcar 'car (aref actions state))))) ))) (signal 'wisi-parse-error msg))) @@ -213,11 +219,11 @@ point at which that max was spawned.") (1 (setf (wisi-parser-state-active parser-state) nil); Don't save error for later. - (wisi-execute-pending (wisi-parser-state-pending - (aref parser-states (wisi-active-parser parser-states)))) - (setf (wisi-parser-state-pending - (aref parser-states (wisi-active-parser parser-states))) - nil)) + (let ((parser-state (aref parser-states (wisi-active-parser parser-states)))) + (wisi-execute-pending (wisi-parser-state-label parser-state) + (wisi-parser-state-pending parser-state)) + (setf (wisi-parser-state-pending parser-state) nil) + )) (t ;; We were in a parallel parse, and this parser ;; failed; mark it inactive, don't save error for @@ -340,7 +346,7 @@ nil, 'shift, or 'accept." (dotimes (stack-i (wisi-parser-state-sp (aref parser-states parser-i))) (setq compare - (and compare + (and compare ;; bypass expensive 'arefs' after first stack item compare fail (equal (aref (wisi-parser-state-stack (aref parser-states parser-i)) stack-i) (aref (wisi-parser-state-stack (aref parser-states (+ parser-i parser-j 1))) stack-i))))) (when compare @@ -349,19 +355,18 @@ nil, 'shift, or 'accept." (when (> wisi-debug 1) (message "terminate identical parser %d (%d active)" (+ parser-i parser-j 1) active-parser-count)) + (setf (wisi-parser-state-active (aref parser-states (+ parser-i parser-j 1))) nil) (when (= active-parser-count 1) ;; the actions for the two parsers are not ;; identical, but either is good enough for - ;; indentation and navigation, so we just do one. - (when (> wisi-debug 1) (message "executing actions for %d" (+ parser-i parser-j 1))) - (wisi-execute-pending (wisi-parser-state-pending (aref parser-states (+ parser-i parser-j 1)))) - (setf (wisi-parser-state-pending (aref parser-states (+ parser-i parser-j 1))) nil) - - ;; clear pending of other parser so it can be reused - (setf (wisi-parser-state-pending (aref parser-states parser-i)) nil)) - - (setf (wisi-parser-state-active (aref parser-states (+ parser-i parser-j 1))) nil)) - ))) + ;; indentation and navigation, so we just do the + ;; actions for the one that is not terminating. + (let ((parser-state (aref parser-states parser-i))) + (wisi-execute-pending (wisi-parser-state-label parser-state) + (wisi-parser-state-pending parser-state)) + (setf (wisi-parser-state-pending parser-state) nil) + )) + )))) ))) active-parser-count) @@ -370,8 +375,8 @@ nil, 'shift, or 'accept." (let ((result (if tokens 0 (point)))) (mapc (lambda (token) - (when (cl-cdddr token) - (setq result (max (cl-cdddr token) result)))) + (when (cddr token) + (setq result (max (cddr token) result)))) tokens) result) ) @@ -381,15 +386,23 @@ nil, 'shift, or 'accept." ;; We don't execute actions if all tokens are before wisi-cache-max, ;; because later actions can update existing caches, and if the ;; parse fails that won't happen. It also saves time. - (if (>= (wisi-parse-max-pos tokens) wisi-cache-max) + ;; + ;; Also skip if no tokens; nothing to do. This can happen when all + ;; tokens in a grammar statement are optional. + (if (< 0 (length tokens)) + (if (>= (wisi-parse-max-pos tokens) wisi-cache-max) + + (funcall func tokens) - (funcall func tokens) + (when (> wisi-debug 1) + (message "... action skipped; before wisi-cache-max %d" wisi-cache-max))) (when (> wisi-debug 1) - (message "... action skipped")) + (message "... action skipped; no tokens")) )) -(defun wisi-execute-pending (pending) +(defun wisi-execute-pending (parser-label pending) + (when (> wisi-debug 1) (message "%d: pending actions:" parser-label)) (while pending (when (> wisi-debug 1) (message "%s" (car pending))) @@ -475,18 +488,18 @@ Return nil." "Return a pair (START . END), the buffer region for a nonterminal. STACK is the parser stack. I and J are the indices in STACK of the first and last tokens of the nonterminal." - (let ((start (cl-caddr (aref stack i))) - (end (cl-cdddr (aref stack j)))) + (let ((start (cadr (aref stack i))) + (end (cddr (aref stack j)))) (while (and (or (not start) (not end)) (/= i j)) (cond ((not start) ;; item i is an empty production - (setq start (cl-caddr (aref stack (setq i (+ i 2)))))) + (setq start (cadr (aref stack (setq i (+ i 2)))))) ((not end) ;; item j is an empty production - (setq end (cl-cdddr (aref stack (setq j (- j 2)))))) + (setq end (cddr (aref stack (setq j (- j 2)))))) (t (setq i j)))) (and start end (cons start end)))) @@ -501,17 +514,19 @@ the first and last tokens of the nonterminal." (wisi-nonterm-bounds stack (- sp (* 2 (1- token-count)) 1) (1- sp)))) (post-reduce-state (aref stack (- sp (* 2 token-count)))) (new-state (cdr (assoc nonterm (aref gotos post-reduce-state)))) - tokens) + (tokens (make-vector token-count nil))) + (when (not new-state) (error "no goto for %s %d" nonterm post-reduce-state)) - (if (= 1 token-count) - (setq tokens (list (aref stack (1- sp)))) - (dotimes (i token-count) - (push (aref stack (- sp (* 2 i) 1)) tokens))) + + (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 (cons nil nonterm-region))) + (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) (setf (wisi-parser-state-pending parser-state) diff --git a/packages/wisi/wisi.el b/packages/wisi/wisi.el index 509e6baac..6f06f549c 100755 --- a/packages/wisi/wisi.el +++ b/packages/wisi/wisi.el @@ -7,7 +7,7 @@ ;; Keywords: parser ;; indentation ;; navigation -;; Version: 1.0.6 +;; Version: 1.1.0 ;; package-requires: ((cl-lib "0.4") (emacs "24.2")) ;; URL: http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html ;; @@ -71,6 +71,21 @@ ;; the edit point if the change involves anything other than ;; whitespace. ;; +;;; Handling parse errors: +;; +;; When a parse fails, the cache information before the failure point +;; is only partly correct, and there is no cache informaiton after the +;; failure point. +;; +;; However, in the case where a parse previously succeeded, and the +;; current parse fails due to editing, we keep the preceding cache +;; information by setting wisi-cache-max to the edit point in +;; wisi-before change; the parser does not apply actions before that +;; point. +;; +;; This allows navigation and indentation in the text preceding the +;; edit point, and saves some time. +;; ;;;; comparison to the SMIE parser ;; ;; The central problem to be solved in building the SMIE parser is @@ -164,6 +179,13 @@ (require 'wisi-compat-24.2) ;;) +(defcustom wisi-font-lock-size-threshold 100000 + "Max size (in characters) for using wisi parser results for syntax highlighting." + :type 'integer + :group 'wisi + :safe 'integerp) +(make-variable-buffer-local 'wisi-font-lock-size-threshold) + ;;;; lexer (defvar-local wisi-class-list nil) @@ -177,18 +199,38 @@ "Cons '(delim . character) where 'character' escapes quotes in strings delimited by 'delim'.") (defvar-local wisi-string-single-term nil) ;; string delimited by single quotes (defvar-local wisi-symbol-term nil) +(defvar-local wisi-number-term nil) +(defvar-local wisi-number-p nil) + +(defun wisi-number-p (token-text) + "Return t if TOKEN-TEXT plus text after point matches the +syntax for a real literal; otherwise nil. point is after +TOKEN-TEXT; move point to just past token." + ;; typical literals: + ;; 1234 + ;; 1234.5678 + ;; 1234.5678e+99 + ;; + (let ((end (point))) + ;; starts with a simple integer + (when (string-match "^[0-9]+" token-text) + (when (looking-at "\\.[0-9]+") + ;; real number + (goto-char (setq end (match-end 0))) + (when (looking-at "[Ee][+-][0-9]+") + ;; exponent + (goto-char (setq end (match-end 0))))) + + t + ))) -(defun wisi-forward-token (&optional text-only) +(defun wisi-forward-token () "Move point forward across one token, skipping leading whitespace and comments. -Return the corresponding token, in a format determined by TEXT-ONLY: -TEXT-ONLY t: text -TEXT-ONLY nil: (token text start . end) -where: +Return the corresponding token, in format: (token start . end) where: + `token' is a token symbol (not string) from `wisi-punctuation-table', `wisi-keyword-table', `wisi-string-double-term', `wisi-string-double-term' or `wisi-symbol-term'. -`text' is the token text from the buffer - `start, end' are the character positions in the buffer of the start and end of the token text. @@ -202,7 +244,6 @@ If at end of buffer, returns `wisent-eoi-term'." token-id token-text) (cond ((eobp) - (setq token-text "") (setq token-id wisent-eoi-term)) ((eq syntax 1) @@ -214,8 +255,7 @@ If at end of buffer, returns `wisent-eoi-term'." (setq temp-text (buffer-substring-no-properties start (point))) (setq temp-id (car (rassoc temp-text wisi-punctuation-table))) (when temp-id - (setq token-text temp-text - token-id temp-id + (setq token-id temp-id next-point (point))) (if (or (eobp) @@ -246,7 +286,6 @@ If at end of buffer, returns `wisent-eoi-term'." (and (eq delim (car wisi-string-quote-escape)) (eq (char-before (1- (point))) (cdr wisi-string-quote-escape)))) (forward-sexp)) - (setq token-text (buffer-substring-no-properties start (point))) (setq token-id (if (= delim ?\") wisi-string-double-term wisi-string-single-term))) (scan-error ;; Something screwed up; we should not get here if @@ -259,21 +298,24 @@ If at end of buffer, returns `wisent-eoi-term'." (setq token-text (buffer-substring-no-properties start (point))) (setq token-id (or (symbol-value (intern-soft (downcase token-text) wisi-keyword-table)) - wisi-symbol-term))) + (and (functionp wisi-number-p) + (funcall wisi-number-p token-text) + (setq token-text (buffer-substring-no-properties start (point))) + wisi-number-term) + wisi-symbol-term)) + ) );; cond (unless token-id (signal 'wisi-parse-error (wisi-error-msg "unrecognized token '%s'" (buffer-substring-no-properties start (point))))) - (if text-only - token-text - (cons token-id (cons token-text (cons start (point))))) + (cons token-id (cons start (point))) )) (defun wisi-backward-token () "Move point backward across one token, skipping whitespace and comments. -Return (nil text start . end) - same structure as +Return (nil start . end) - same structure as wisi-forward-token, but does not look up symbol." (forward-comment (- (point))) ;; skips leading whitespace, comment, trailing whitespace. @@ -296,7 +338,7 @@ wisi-forward-token, but does not look up symbol." (if (zerop (skip-syntax-backward ".")) (skip-syntax-backward "w_'"))) ) - (cons nil (cons (buffer-substring-no-properties (point) end) (cons (point) end))) + (cons nil (cons (point) end)) )) ;;;; token info cache @@ -341,7 +383,6 @@ wisi-forward-token, but does not look up symbol." prev ;; marker at previous motion token in statement; nil if none next ;; marker at next motion token in statement; nil if none end ;; marker at token at end of current statement - face ;; for font-lock. only set when regexp font-lock can't handle it ) (defvar-local wisi-parse-table nil) @@ -359,9 +400,16 @@ Used in before/after change functions.") (defvar-local wisi-end-caches nil "List of buffer positions of caches in current statement that need wisi-cache-end set.") +(defun wisi-delete-cache (after) + (with-silent-modifications + (remove-text-properties after (point-max) '(wisi-cache nil)) + ;; We don't remove 'font-lock-face; that's annoying to the user, + ;; since they won't be restored until a parse for some other + ;; reason, and they are likely to be right anyway. + )) + (defun wisi-invalidate-cache(&optional after) - "Invalidate parsing caches for the current buffer from AFTER to end of buffer. -Caches are the Emacs syntax cache, the wisi token cache, and the wisi parser cache." + "Invalidate parsing caches for the current buffer from AFTER to end of buffer." (interactive) (if (not after) (setq after (point-min)) @@ -373,8 +421,8 @@ Caches are the Emacs syntax cache, the wisi token cache, and the wisi parser cac (setq wisi-cache-max after) (setq wisi-parse-try t) (syntax-ppss-flush-cache after) - (with-silent-modifications - (remove-text-properties after (point-max) '(wisi-cache nil)))) + (wisi-delete-cache after) + ) (defun wisi-before-change (begin end) "For `before-change-functions'." @@ -394,111 +442,180 @@ Caches are the Emacs syntax cache, the wisi token cache, and the wisi parser cac (setq wisi-change-need-invalidate nil) - (when (and (> end begin) - (>= wisi-cache-max begin)) - - (when wisi-parse-failed - ;; The parse was failing, probably due to bad syntax; this change - ;; may have fixed it, so try reparse. - (setq wisi-parse-try t)) - + (when (> end begin) (save-excursion - ;; don't invalidate parse for whitespace, string, or comment changes - (let (;; (info "(elisp)Parser State") - (state (syntax-ppss begin))) - ;; syntax-ppss has moved point to "begin". - (cond - ((or - (nth 3 state); in string - (nth 4 state)); in comment - ;; FIXME: check that entire range is in comment or string - ) - - ((progn - (skip-syntax-forward " " end);; does not skip newline - (eq (point) end))) + ;; (info "(elisp)Parser State") + (let* ((begin-state (syntax-ppss begin)) + (end-state (syntax-ppss end)) + ;; syntax-ppss has moved point to "end". + (word-end (progn (skip-syntax-forward "w_")(point)))) + + ;; Remove grammar face from word(s) containing change region; + ;; might be changing to/from a keyword. See + ;; test/ada_mode-interactive_common.adb Obj_1 + (goto-char begin) + (skip-syntax-backward "w_") + (with-silent-modifications + (remove-text-properties (point) word-end '(font-lock-face nil fontified nil))) + + (if (<= wisi-cache-max begin) + ;; Change is in unvalidated region; either the parse was + ;; failing, or there is more than one top-level grammar + ;; symbol in buffer. + (when wisi-parse-failed + ;; The parse was failing, probably due to bad syntax; this + ;; change may have fixed it, so try reparse. + (setq wisi-parse-try t)) + + ;; else change is in validated region + ;; + ;; don't invalidate parse for whitespace, string, or comment changes + (cond + ((and + (nth 3 begin-state); in string + (nth 3 end-state))) + ;; no easy way to tell if there is intervening non-string + + ((and + (nth 4 begin-state); in comment + (nth 4 end-state)) + ;; too hard to detect case where there is intervening + ;; code; no easy way to go to end of comment if not + ;; newline + ) + + ;; Deleting whitespace generally does not require parse, but + ;; deleting all whitespace between two words does; check that + ;; there is whitespace on at least one side of the deleted + ;; text. + ;; + ;; We are not in a comment (checked above), so treat + ;; comment end as whitespace in case it is newline, except + ;; deleting a comment end at begin means commenting the + ;; current line; requires parse. + ((and + (eq (car (syntax-after begin)) 0) ; whitespace + (memq (car (syntax-after (1- end))) '(0 12)) ; whitespace, comment end + (or + (memq (car (syntax-after (1- begin))) '(0 12)) + (memq (car (syntax-after end)) '(0 12))) + (progn + (goto-char begin) + (skip-syntax-forward " >" end) + (eq (point) end)))) - (t - (setq wisi-change-need-invalidate - (progn - (wisi-goto-statement-start) - (point)))) - )))) + (t + (setq wisi-change-need-invalidate + (progn + ;; note that because of the checks above, this never + ;; triggers a parse, so it's fast + (goto-char begin) + (wisi-goto-statement-start) + (point)))) + ))) + )) ) (defun wisi-after-change (begin end length) "For `after-change-functions'." - ;; begin . end is range of text being inserted (empty if equal) + ;; begin . end is range of text being inserted (empty if equal); + ;; length is the size of the deleted text. ;; (syntax-ppss-flush-cache begin) is in before-change-functions (syntax-propertize end) ;; see comments above on "lexer" re syntax-propertize - ;; The parse was failing, probably due to bad syntax; this change - ;; may have fixed it, so try reparse. - (setq wisi-parse-try t) + ;; Remove caches on inserted text, which could have caches from + ;; before the failed parse (or another buffer), and are in any case + ;; invalid. No point in removing 'fontified; that's handled by + ;; jit-lock. - ;; remove 'wisi-cache on inserted text, which could have caches - ;; from before the failed parse (or another buffer), and are in - ;; any case invalid. (with-silent-modifications - (remove-text-properties begin end '(wisi-cache))) + (remove-text-properties begin end '(wisi-cache nil font-lock-face nil))) - (cond - ((>= wisi-cache-max begin) - ;; The parse had succeeded past the start of the inserted - ;; text. - (save-excursion - (let (need-invalidate - ;; (info "(elisp)Parser State") - (state (syntax-ppss begin))) - ;; syntax-ppss has moved point to "begin". + ;; Also remove grammar face from word(s) containing change region; + ;; might be changing to/from a keyword. See + ;; test/ada_mode-interactive_common.adb Obj_1 + (save-excursion + ;; (info "(elisp)Parser State") + (let ((need-invalidate wisi-change-need-invalidate) + begin-state end-state word-end) + (when (> end begin) + (setq begin-state (syntax-ppss begin)) + (setq end-state (syntax-ppss end)) + ;; syntax-ppss has moved point to "end". + (skip-syntax-forward "w_") + (setq word-end (point)) + (goto-char begin) + (skip-syntax-backward "w_") + (with-silent-modifications + (remove-text-properties (point) word-end '(font-lock-face nil fontified nil)))) + + (if (<= wisi-cache-max begin) + ;; Change is in unvalidated region + (when wisi-parse-failed + ;; The parse was failing, probably due to bad syntax; this + ;; change may have fixed it, so try reparse. + (setq wisi-parse-try t)) + + ;; Change is in validated region (cond (wisi-change-need-invalidate ;; wisi-before change determined the removed text alters the ;; parse - (setq need-invalidate wisi-change-need-invalidate)) + ) ((= end begin) (setq need-invalidate nil)) + ((and + (nth 3 begin-state); in string + (nth 3 end-state)) + ;; no easy way to tell if there is intervening non-string + (setq need-invalidate nil)) + ((or - (nth 3 state); in string - (nth 4 state)); in comment - ;; FIXME: insert newline in comment to create non-comment!? - ;; or paste a chunk of code - ;; => check that all of change region is comment or string + (nth 4 begin-state) + (nth 4 end-state)); in comment + ;; no easy way to detect intervening code (setq need-invalidate nil) ;; no caches to remove ) - ((progn - (skip-syntax-forward " " end);; does not skip newlines - (eq (point) end)) + ;; Adding whitespace generally does not require parse, but in + ;; the middle of word it does; check that there was + ;; whitespace on at least one side of the inserted text. + ;; + ;; We are not in a comment (checked above), so treat + ;; comment end as whitespace in case it is newline + ((and + (or + (memq (car (syntax-after (1- begin))) '(0 12)); whitespace, comment end + (memq (car (syntax-after end)) '(0 12))) + (progn + (goto-char begin) + (skip-syntax-forward " >" end) + (eq (point) end))) (setq need-invalidate nil)) (t - (setq need-invalidate begin)) + (setq need-invalidate + (progn + (goto-char begin) + ;; note that because of the checks above, this never + ;; triggers a parse, so it's fast + (wisi-goto-statement-start) + (point)))) ) (if need-invalidate - ;; The inserted or deleted text could alter the parse; - ;; wisi-invalidate-cache removes all 'wisi-cache. (wisi-invalidate-cache need-invalidate) ;; else move cache-max by the net change length. (setq wisi-cache-max - (+ wisi-cache-max (- end begin length)))) - ) - )) - - (t - ;; parse never attempted, or only done to before BEGIN. Just - ;; remove caches - (with-silent-modifications - (remove-text-properties begin end '(wisi-cache))) - ) - )) + (+ wisi-cache-max (- end begin length))) ) + )) + )) (defun wisi-get-cache (pos) "Return `wisi-cache' struct from the `wisi-cache' text property at POS. @@ -512,6 +629,7 @@ If accessing cache at a marker for a token as set by `wisi-cache-tokens', POS mu (when (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) (goto-char (point-min)) (forward-line (1- line)) (forward-char col)))) @@ -521,8 +639,8 @@ If accessing cache at a marker for a token as set by `wisi-cache-tokens', POS mu (interactive) (cond (wisi-parse-failed - (message wisi-parse-error-msg) - (wisi-goto-error)) + (wisi-goto-error) + (message wisi-parse-error-msg)) (wisi-parse-try (message "need parse")) @@ -546,28 +664,31 @@ If accessing cache at a marker for a token as set by `wisi-cache-tokens', POS mu (setq wisi-parse-error-msg nil) (setq wisi-end-caches nil) - (save-excursion - (if (> wisi-debug 1) - ;; let debugger stop in wisi-parse - (progn + (if (> wisi-debug 1) + ;; let debugger stop in wisi-parse + (progn + (save-excursion (wisi-parse wisi-parse-table 'wisi-forward-token) (setq wisi-cache-max (point)) - (setq wisi-parse-failed nil) - (run-hooks 'wisi-post-parse-succeed-hook)) + (setq wisi-parse-failed nil)) + (run-hooks 'wisi-post-parse-succeed-hook)) - ;; else capture errors from bad syntax, so higher level - ;; functions can try to continue and/or we don't bother the - ;; user. - (condition-case err - (progn + ;; else capture errors from bad syntax, so higher level + ;; functions can try to continue and/or we don't bother the + ;; user. + (condition-case err + (progn + (save-excursion (wisi-parse wisi-parse-table 'wisi-forward-token) (setq wisi-cache-max (point)) - (setq wisi-parse-failed nil) - (run-hooks 'wisi-post-parse-succeed-hook)) - (wisi-parse-error - (setq wisi-parse-failed t) - (setq wisi-parse-error-msg (cdr err))) - ))) + (setq wisi-parse-failed nil)) + (run-hooks 'wisi-post-parse-succeed-hook)) + (wisi-parse-error + ;; delete caches past wisi-cache-max added by failed parse + (wisi-delete-cache wisi-cache-max) + (setq wisi-parse-failed t) + (setq wisi-parse-error-msg (cdr err))) + )) (if wisi-parse-error-msg ;; error (when (> wisi-debug 0) @@ -579,6 +700,11 @@ If accessing cache at a marker for a token as set by `wisi-cache-tokens', POS mu (message "%s done" msg))) ))) +(defun wisi-fontify-region (begin end) + "For `jit-lock-functions'." + (when (< (point-max) wisi-font-lock-size-threshold) + (wisi-validate-cache end))) + (defun wisi-get-containing-cache (cache) "Return cache from (wisi-cache-containing CACHE)." (let ((containing (wisi-cache-containing cache))) @@ -620,29 +746,33 @@ delete from `wisi-end-caches'." ;; keep byte-compiler happy; `wisi-tokens' is bound in action created ;; by wisi-semantic-action -(defun wisi-statement-action (&rest pairs) +(defun wisi-statement-action (pairs) "Cache information in text properties of tokens. Intended as a grammar non-terminal action. -PAIRS is of the form [TOKEN-NUMBER CLASS] ... where TOKEN-NUMBER -is the (1 indexed) token number in the production, CLASS is the wisi class of -that token. Use in a grammar action as: - (wisi-statement-action 1 'statement-start 7 'statement-end)" +PAIRS is a vector of the form [TOKEN-NUMBER CLASS TOKEN-NUMBER +CLASS ...] where TOKEN-NUMBER is the (1 indexed) token number in +the production, CLASS is the wisi class of that token. Use in a +grammar action as: + (wisi-statement-action [1 'statement-start 7 'statement-end])" (save-excursion (let ((first-item t) first-keyword-mark - (override-start nil)) - (while pairs - (let* ((number (1- (pop pairs))) - (region (cddr (nth number wisi-tokens)));; wisi-tokens is let-bound in wisi-parse-reduce - (token (car (nth number wisi-tokens))) - (class (pop pairs)) + (override-start nil) + (i 0)) + (while (< i (length pairs)) + (let* ((number (1- (aref pairs i))) + (region (cdr (aref wisi-tokens number)));; wisi-tokens is let-bound in wisi-parse-reduce + (token (car (aref wisi-tokens number))) + (class (aref pairs (setq i (1+ i)))) (mark ;; Marker one char into token, so indent-line-to ;; inserts space before the mark, not after (when region (copy-marker (1+ (car region))))) cache) + (setq i (1+ i)) + (unless (memq class wisi-class-list) (error "%s not in wisi-class-list" class)) @@ -728,25 +858,25 @@ that token. Use in a grammar action as: "Set containing marks in all tokens in CONTAINED-TOKEN with null containing mark to marker pointing to CONTAINING-TOKEN. If CONTAINING-TOKEN is empty, the next token number is used." ;; wisi-tokens is is bound in action created by wisi-semantic-action - (let* ((containing-region (cddr (nth (1- containing-token) wisi-tokens))) - (contained-region (cddr (nth (1- contained-token) wisi-tokens)))) + (let* ((containing-region (cdr (aref wisi-tokens (1- containing-token)))) + (contained-region (cdr (aref wisi-tokens (1- contained-token))))) (unless containing-region ;; (signal 'wisi-parse-error (wisi-error-msg "wisi-containing-action: containing-region '%s' is empty. grammar error; bad action" - (nth 1 (nth (1- containing-token) wisi-tokens))))) + (wisi-token-text (aref wisi-tokens (1- containing-token)))))) (unless (or (not contained-region) ;; contained-token is empty (wisi-get-cache (car containing-region))) (signal 'wisi-parse-error (wisi-error-msg "wisi-containing-action: containing-token '%s' has no cache. grammar error; missing action" - (nth 1 (nth (1- containing-token) wisi-tokens))))) + (wisi-token-text (aref wisi-tokens (1- containing-token)))))) (while (not containing-region) ;; containing-token is empty; use next - (setq containing-region (cddr (nth containing-token wisi-tokens)))) + (setq containing-region (cdr (aref wisi-tokens containing-token)))) (when contained-region ;; nil when empty production, may not contain any caches @@ -773,27 +903,48 @@ If CONTAINING-TOKEN is empty, the next token number is used." (setq cache (wisi-backward-cache))) )))))) -(defun wisi-motion-action (&rest token-numbers) +(defun wisi-match-class-token (cache class-tokens) + "Return t if CACHE matches CLASS-TOKENS. +CLASS-TOKENS is a vector [number class token_id class token_id ...]. +number is ignored." + (let ((i 1) + (done nil) + (result nil) + class token) + (while (and (not done) + (< i (length class-tokens))) + (setq class (aref class-tokens i)) + (setq token (aref class-tokens (setq i (1+ i)))) + (setq i (1+ i)) + (when (and (eq class (wisi-cache-class cache)) + (eq token (wisi-cache-token cache))) + (setq result t + done t)) + ) + result)) + +(defun wisi-motion-action (token-numbers) "Set prev/next marks in all tokens given by TOKEN-NUMBERS. -Each TOKEN-NUMBERS is one of: +TOKEN-NUMBERS is a vector with each element one of: number: the token number; mark that token -list (number class token_id): -list (number class token_id class token_id ...): +vector [number class token_id]: +vector [number class token_id class token_id ...]: mark all tokens in number nonterminal matching (class token_id) with nil prev/next." (save-excursion (let (prev-keyword-mark prev-cache cache - mark) - (while token-numbers - (let ((token-number (pop token-numbers)) - class-tokens target-class target-token + mark + (i 0)) + (while (< i (length token-numbers)) + (let ((token-number (aref token-numbers i)) region) + (setq i (1+ i)) (cond ((numberp token-number) - (setq region (cddr (nth (1- token-number) wisi-tokens))) + (setq region (cdr (aref wisi-tokens (1- token-number)))) (when region (setq cache (wisi-get-cache (car region))) (setq mark (copy-marker (1+ (car region)))) @@ -808,31 +959,29 @@ list (number class token_id class token_id ...): (setq prev-cache cache) )) - ((listp token-number) + ((vectorp token-number) ;; token-number may contain 0, 1, or more 'class token_id' pairs ;; the corresponding region may be empty ;; there must have been a prev keyword - (setq class-tokens (cdr token-number)) - (setq token-number (car token-number)) - (setq region (cddr (nth (1- token-number) wisi-tokens))) + (setq region (cdr (aref wisi-tokens (1- (aref token-number 0))))) (when region ;; not an empty token - (while class-tokens - (setq target-class (pop class-tokens)) - (setq target-token (list (pop class-tokens))) - (goto-char (car region)) - (while (setq cache (wisi-forward-find-token target-token (cdr region) t)) - (when (eq target-class (wisi-cache-class cache)) - (when (null (wisi-cache-prev cache)) - (setf (wisi-cache-prev cache) prev-keyword-mark)) - (when (null (wisi-cache-next cache)) - (setq mark (copy-marker (1+ (point)))) - (setf (wisi-cache-next prev-cache) mark) - (setq prev-keyword-mark mark) - (setq prev-cache cache))) - - (wisi-forward-token);; don't find same token again - )) - )) + ;; We must search for all targets at the same time, to + ;; get the motion order right. + (goto-char (car region)) + (setq cache (or (wisi-get-cache (point)) + (wisi-forward-cache))) + (while (< (point) (cdr region)) + (when (wisi-match-class-token cache token-number) + (when (null (wisi-cache-prev cache)) + (setf (wisi-cache-prev cache) prev-keyword-mark)) + (when (null (wisi-cache-next cache)) + (setq mark (copy-marker (1+ (point)))) + (setf (wisi-cache-next prev-cache) mark) + (setq prev-keyword-mark mark) + (setq prev-cache cache))) + + (setq cache (wisi-forward-cache)) + ))) (t (error "unexpected token-number %s" token-number)) @@ -844,9 +993,9 @@ list (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 (nth (1- number) wisi-tokens));; wisi-tokens is let-bound in wisi-parse-reduce + (let* ((token-region (aref wisi-tokens (1- number)));; wisi-tokens is let-bound in wisi-parse-reduce (token (car token-region)) - (region (cddr token-region)) + (region (cdr token-region)) cache) (when region @@ -856,24 +1005,125 @@ Also override token with new token." ) )) -(defun wisi-face-action (&rest pairs) +(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." + (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). + ;; + ;; 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'" + (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)))) + ))) + +(defun wisi-face-action (pairs &optional no-override) + "Cache face information in text properties of tokens. +Intended as a grammar non-terminal action. + +PAIRS is a vector of the form [token-number face token-number face ...] +token-number may be an integer, or a vector [integer token_id token_id ...] + +For an integer token-number, apply face to the first cached token +in the range covered by wisi-tokens[token-number]. If there are +no cached tokens, apply face to entire wisi-tokens[token-number] +region. + +For a vector token-number, apply face to the first cached token +in the range matching one of token_id covered by +wisi-tokens[token-number]. + +If NO-OVERRIDE is non-nil, don't override existing face." + (let (number region face (tokens nil) cache (i 0) (j 1)) + (while (< i (length pairs)) + (setq number (aref pairs i)) + (setq face (aref pairs (setq i (1+ i)))) + (cond + ((integerp number) + (setq region (cdr (aref wisi-tokens (1- number))));; wisi-tokens is let-bound in wisi-parse-reduce + (when region + (save-excursion + (goto-char (car region)) + (setq cache (or (wisi-get-cache (point)) + (wisi-forward-cache))) + (if (< (point) (cdr region)) + (when cache + (wisi-face-action-1 face (wisi-cache-region cache) no-override)) + + ;; no caches in region; just apply face to region + (wisi-face-action-1 face region no-override)) + ))) + + ((vectorp number) + (setq region (cdr (aref wisi-tokens (1- (aref number 0))))) + (when region + (while (< j (length number)) + (setq tokens (cons (aref number j) tokens)) + (setq j (1+ j))) + (save-excursion + (goto-char (car region)) + (setq cache (wisi-forward-find-token tokens (cdr region) t)) + ;; might be looking for IDENTIFIER in name, but only have "*". + (when cache + (wisi-face-action-1 face (wisi-cache-region cache) no-override)) + ))) + ) + (setq i (1+ i)) + + ))) + +(defun wisi-face-list-action (pairs &optional no-override) "Cache face information in text properties of tokens. Intended as a grammar non-terminal action. -PAIRS is of the form [TOKEN-NUMBER fase] ..." - (while pairs - (let* ((number (1- (pop pairs))) - (region (cddr (nth number wisi-tokens)));; wisi-tokens is let-bound in wisi-parse-reduce - (face (pop pairs)) - cache) +PAIRS is a vector of the form [token-number face token-number face ...] +token-number is an integer. Apply face to all cached tokens +in the range covered by wisi-tokens[token-number]. +If NO-OVERRIDE is non-nil, don't override existing face." + (let (number region face cache (i 0)) + (while (< i (length pairs)) + (setq number (aref pairs i)) + (setq face (aref pairs (setq i (1+ i)))) + (setq region (cdr (aref wisi-tokens (1- number))));; wisi-tokens is let-bound in wisi-parse-reduce (when region - (setq cache (wisi-get-cache (car region))) - (unless cache - (error "wisi-face-action on non-cache")) - (setf (wisi-cache-face cache) face) - (when (boundp 'jit-lock-mode) - (jit-lock-refontify (car region) (cdr region)))) + (save-excursion + (goto-char (car region)) + (setq cache (or (wisi-get-cache (point)) + (wisi-forward-cache))) + (while (<= (point) (cdr region)) + (when cache + (wisi-face-action-1 face (wisi-cache-region cache) no-override)) + (setq cache (wisi-forward-cache)) + ))) + + (setq i (1+ i)) + ))) ;;;; motion @@ -1042,7 +1292,7 @@ Return cache for paren, or nil if no containing paren." "Move point to containing ancestor of CACHE that has class block-start or statement-start. Return start cache." (when - ;; cache nil at bob + ;; cache nil at bob, or on cache in partially parsed statement (while (and cache (not (memq (wisi-cache-class cache) '(block-start statement-start)))) (setq cache (wisi-goto-containing cache))) @@ -1163,14 +1413,11 @@ correct. Must leave point at indentation of current line.") (back-to-indentation) (when (>= (point) savep) (setq savep nil)) - (when (> (point) wisi-cache-max) - (wisi-validate-cache (point)) - (when (and (not wisi-parse-failed) - wisi-indent-failed) - (setq wisi-indent-failed nil) - (run-hooks 'wisi-post-parse-fail-hook))) + (when (>= (point) wisi-cache-max) + (wisi-validate-cache (line-end-position))) ;; include at lease the first token on this line (if (> (point) wisi-cache-max) + ;; parse failed (progn ;; no indent info at point. Assume user is ;; editing; indent to previous line, fix it @@ -1180,10 +1427,20 @@ correct. Must leave point at indentation of current line.") (back-to-indentation) (setq indent (current-column))) + ;; parse succeeded + (when wisi-indent-failed + ;; previous parse failed + (setq wisi-indent-failed nil) + (run-hooks 'wisi-post-parse-fail-hook)) + + (when (> (point) wisi-cache-max) + (error "wisi-post-parse-fail-hook invalidated parse.")) + (setq indent (with-demoted-errors - (or (run-hook-with-args-until-success 'wisi-indent-calculate-functions) 0)) - ))) + (or (run-hook-with-args-until-success 'wisi-indent-calculate-functions) 0)) + ) + )) (if savep ;; point was inside line text; leave it there @@ -1218,6 +1475,11 @@ correct. Must leave point at indentation of current line.") (message "previous %s" (wisi-backward-cache))) )) +(defun wisi-show-cache-max () + (interactive) + (push-mark) + (goto-char wisi-cache-max)) + ;;;;; setup (defun wisi-setup (indent-calculate post-parse-fail class-list keyword-table token-table parse-table) @@ -1227,6 +1489,10 @@ correct. Must leave point at indentation of current line.") (setq wisi-string-single-term (car (symbol-value (intern-soft "string-single" token-table)))) (setq wisi-symbol-term (car (symbol-value (intern-soft "symbol" token-table)))) + (let ((numbers (cadr (symbol-value (intern-soft "number" token-table))))) + (setq wisi-number-term (car numbers)) + (setq wisi-number-p (cdr numbers))) + (setq wisi-punctuation-table (symbol-value (intern-soft "punctuation" token-table))) (setq wisi-punctuation-table-max-length 0) (let (fail) @@ -1259,6 +1525,9 @@ correct. Must leave point at indentation of current line.") (add-hook 'before-change-functions 'wisi-before-change nil t) (add-hook 'after-change-functions 'wisi-after-change nil t) + (when (functionp 'jit-lock-register) + (jit-lock-register 'wisi-fontify-region)) + ;; see comments on "lexer" above re syntax-propertize (syntax-propertize (point-max))