[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ada-mode 45fad69 11/48: publish ada-mode 5.1.6, wisi 1.
|
From: |
Stefan Monnier |
|
Subject: |
[elpa] externals/ada-mode 45fad69 11/48: publish ada-mode 5.1.6, wisi 1.0.6, new package ada-ref-man |
|
Date: |
Mon, 30 Nov 2020 17:20:37 -0500 (EST) |
branch: externals/ada-mode
commit 45fad699cdbc65aab93ab748d511d9a1ea8b6829
Author: Stephen Leake <stephen_leake@stephe-leake.org>
Commit: Stephen Leake <stephen_leake@stephe-leake.org>
publish ada-mode 5.1.6, wisi 1.0.6, new package ada-ref-man
* admin/archive-contents.el (archive--metadata): include 'dir' in files,
for doc-only packages
(archive--metadata): fix typo in error message
* packages/ada-mode/ada-ref-man.el: New file.
* packages/ada-mode/*: version 5.1.6
* packages/ada-ref-man/: New directory.
* packages/wisi/*: version 1.0.6
* packages/wisi/README: New file.
---
NEWS | 13 +
README | 36 +-
ada-fix-error.el | 9 +-
ada-gnat-compile.el | 25 +-
ada-gnat-xref.el | 2 -
ada-grammar-wy.el | 978 +++++++++++++++++++++++++++-------------------------
ada-mode.el | 350 ++++++++++++-------
ada-mode.info | 134 ++++---
ada-mode.texi | 54 ++-
ada-ref-man.el | 12 +
ada-skel.el | 13 +-
ada-wisi.el | 229 ++++++++----
gnat-core.el | 12 +
gnat-inspect.el | 2 -
gpr-grammar-wy.el | 238 ++++++-------
gpr-mode.el | 14 +-
gpr-mode.info | 398 +++++++++++----------
gpr-mode.texi | 2 +-
gpr-query.el | 34 +-
gpr-skel.el | 4 +-
gpr-wisi.el | 18 +-
21 files changed, 1475 insertions(+), 1102 deletions(-)
diff --git a/NEWS b/NEWS
index 22daeb3..cc457d9 100755
--- a/NEWS
+++ b/NEWS
@@ -7,7 +7,20 @@ 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.6
+
+** improve syntax highlighting of names after 'of', 'new', 'renames'
+
+** fix ada-format-paramlist to handle 'aliased' keyword (new in Ada
+ 2012), and 'not null' without 'access'.
+
+** fix ada-find-other-file in separate bodies; now navigates to the
+ spec.
+
+** restore ada-indent-newline-indent for [return]
+
* Ada mode 5.1.5
+12 Jul 2014
** add C-c <, C-c >; goto-declaration-start, -end
diff --git a/README b/README
index 56bf740..66c4f34 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Emacs Ada mode version 5.1.5
+Emacs Ada mode version 5.1.6
Ada mode requires Emacs 24.2 or greater
@@ -34,37 +34,7 @@ matching extension (default *.ads, *.adb).
By default ada-mode uses gnat find for cross-reference functions.
-There is experimental support for an alternative, gnatinspect. You can
-select that by adding:
-
-(require 'gnat-inspect)
-
-in your ~/.emacs, before anything that loads ada-mode
-
-to build gnatinspect:
- (gds-lynx-5)
- cd ~/Projects
- tar xf ~/Downloads/gnatcoll...
- cd gnatcoll...
- case:
- when linux:
- ./configure --prefix=/usr/gnat-7.1.2 --enable-gpl
- when windows:
- in cygwin bash, with gnat-7.1.2 in path:
- ./configure --prefix=/Apps/GNAT-7.1.2 --enable-gpl
- end case
-
- make Gnatcoll_Build=Debug
- sudo make Gnatcoll_Build=Debug install
-
-
-gnatinspect references:
- gnatcoll-1.6-src/docs/xref.rst
- gnatcoll-1.6-src/src/tools/gnatinspect.adb
-
-debugging gnatinspect:
- verbosity in .gnatdebug:
- -- Projects
- -- ENTITIES.PARSING
+There is experimental support for two alternatives: gnat_inspect and
+gpr_query. See ada-mode.texi section Installation for more.
(end of file)
diff --git a/ada-fix-error.el b/ada-fix-error.el
index e8115fa..33d202f 100644
--- a/ada-fix-error.el
+++ b/ada-fix-error.el
@@ -36,10 +36,11 @@
:group 'ada)
(defvar ada-fix-context-clause nil
- "Function to return the region containing the context clause for the current
buffer.
-Called with no arguments; return (BEGIN . END). BEGIN and
-END must be at beginning of line. If there is no context
-clause, BEGIN = END, at start of compilation unit.")
+ "Function to return the region containing the context clause for the current
buffer,
+excluding leading pragmas. Called with no arguments;
+return (BEGIN . END). BEGIN and END must be at beginning of line.
+If there is no context clause, BEGIN = END, at start of
+compilation unit.")
(defun ada-fix-context-clause ()
(when ada-fix-context-clause
diff --git a/ada-gnat-compile.el b/ada-gnat-compile.el
index 8036f80..b17ebe9 100644
--- a/ada-gnat-compile.el
+++ b/ada-gnat-compile.el
@@ -330,6 +330,19 @@ Prompt user if more than one."
(insert expected-name))
t)
+ ((looking-at (concat "\"end loop " ada-name-regexp ";\" expected"))
+ (let ((expected-name (match-string 1)))
+ (pop-to-buffer source-buffer)
+ (if (looking-at (concat "end loop " ada-name-regexp ";"))
+ (progn
+ (goto-char (match-end 1)) ; just before ';'
+ (delete-region (match-beginning 1) (match-end 1)))
+ ;; else we have just 'end loop;'
+ (forward-word 2)
+ (insert " "))
+ (insert expected-name))
+ t)
+
((looking-at "expected an access type")
(progn
(set-buffer source-buffer)
@@ -490,7 +503,8 @@ Prompt user if more than one."
((looking-at (concat "warning: variable " ada-gnat-quoted-name-regexp
" is assigned but never read"))
(let ((param (match-string 1)))
(pop-to-buffer source-buffer)
- (ada-goto-end)
+ (ada-goto-end) ;; leaves point before semicolon
+ (forward-char 1)
(newline-and-indent)
(insert "pragma Unreferenced (" param ");"))
t)
@@ -571,7 +585,12 @@ Prompt user if more than one."
(defun ada-gnat-compile-select-prj ()
(setq ada-fix-error-hook 'ada-gnat-fix-error-hook)
+ (setq ada-prj-show-path 'gnat-prj-show-path)
(add-to-list 'completion-ignored-extensions ".ali") ;; gnat library files
+ (add-hook 'ada-syntax-propertize-hook 'ada-gnat-syntax-propertize)
+
+ ;; find error locations in .gpr files
+ (setq compilation-search-path (append compilation-search-path (ada-prj-get
'prj_dir)))
(add-hook 'compilation-filter-hook 'ada-gnat-compilation-filter)
@@ -583,6 +602,10 @@ Prompt user if more than one."
(defun ada-gnat-compile-deselect-prj ()
(setq ada-fix-error-hook nil)
(setq completion-ignored-extensions (delete ".ali"
completion-ignored-extensions))
+ (setq ada-syntax-propertize-hook (delq 'ada-gnat-syntax-propertize
ada-syntax-propertize-hook))
+
+ ;; don't need to delete from compilation-search-path; completely rewritten
in ada-select-prj-file
+
(setq compilation-filter-hook (delete 'ada-gnat-compilation-filter
compilation-filter-hook))
(setq compilation-error-regexp-alist (delete 'gnat
compilation-error-regexp-alist))
)
diff --git a/ada-gnat-xref.el b/ada-gnat-xref.el
index 9accba2..0aefe1e 100644
--- a/ada-gnat-xref.el
+++ b/ada-gnat-xref.el
@@ -175,7 +175,6 @@
(setq ada-make-package-body 'ada-gnat-make-package-body)
(add-hook 'ada-syntax-propertize-hook 'gnatprep-syntax-propertize)
- (add-hook 'ada-syntax-propertize-hook 'ada-gnat-syntax-propertize)
;; must be after indentation engine setup, because that resets the
;; indent function list.
@@ -201,7 +200,6 @@
(setq ada-make-package-body nil)
(setq ada-syntax-propertize-hook (delq 'gnatprep-syntax-propertize
ada-syntax-propertize-hook))
- (setq ada-syntax-propertize-hook (delq 'ada-gnat-syntax-propertize
ada-syntax-propertize-hook))
(setq ada-mode-hook (delq 'ada-gnat-xref-setup ada-mode-hook))
(setq ada-xref-other-function nil)
diff --git a/ada-grammar-wy.el b/ada-grammar-wy.el
index ef0ece1..a349179 100644
--- a/ada-grammar-wy.el
+++ b/ada-grammar-wy.el
@@ -175,7 +175,7 @@
(wisi-containing-action 2 3)
(wisi-containing-action 2 4)
(wisi-containing-action 5 6)
- (wisi-motion-action 1 5 '(6 EXCEPTION))))
+ (wisi-motion-action 1 5 '(6 block-middle EXCEPTION block-middle
WHEN))))
((ACCEPT IDENTIFIER actual_parameter_part_opt parameter_profile_opt
SEMICOLON )
(progn
(wisi-statement-action 1 'statement-start 2 'name-paren 5
'statement-end)
@@ -183,16 +183,20 @@
(wisi-containing-action 2 4))))
(access_definition
((null_exclusion_opt ACCESS general_access_modifier_opt name )
- (wisi-statement-action 4 'type))
+ (progn
+ (wisi-statement-action 2 'keyword)
+ (wisi-face-action 2 'font-lock-keyword-face 4 'font-lock-type-face)))
((null_exclusion_opt ACCESS protected_opt PROCEDURE
parameter_profile_opt )
(progn
- (wisi-statement-action 4 'name-paren)
- (wisi-containing-action 4 5)))
+ (wisi-statement-action 2 'keyword 4 'name-paren)
+ (wisi-containing-action 4 5)
+ (wisi-face-action 2 'font-lock-keyword-face)))
((null_exclusion_opt ACCESS protected_opt FUNCTION
parameter_and_result_profile )
(progn
- (wisi-statement-action 4 'name-paren)
+ (wisi-statement-action 2 'keyword 4 'name-paren)
(wisi-containing-action 4 5)
- (wisi-motion-action 4 '(5 RETURN)))))
+ (wisi-motion-action 4 '(5 return-1 RETURN return-2 RETURN))
+ (wisi-face-action 2 'font-lock-keyword-face))))
(actual_parameter_part
((LEFT_PAREN association_list RIGHT_PAREN )
(progn
@@ -228,14 +232,16 @@
(array_type_definition
((ARRAY LEFT_PAREN index_subtype_definition_list RIGHT_PAREN OF
component_definition )
(progn
- (wisi-statement-action 2 'open-paren 4 'close-paren 5 'statement-other)
+ (wisi-statement-action 1 'keyword 2 'open-paren 4 'close-paren 5
'statement-other)
(wisi-containing-action 2 3)
- (wisi-containing-action 5 6)))
+ (wisi-containing-action 5 6)
+ (wisi-face-action 1 'font-lock-keyword-face)))
((ARRAY LEFT_PAREN discrete_subtype_definition_list RIGHT_PAREN OF
component_definition )
(progn
- (wisi-statement-action 2 'open-paren 4 'close-paren 5 'statement-other)
+ (wisi-statement-action 1 'keyword 2 'open-paren 4 'close-paren 5
'statement-other)
(wisi-containing-action 2 3)
- (wisi-containing-action 5 6))))
+ (wisi-containing-action 5 6)
+ (wisi-face-action 1 'font-lock-keyword-face))))
(aspect_clause
((FOR attribute_reference USE expression SEMICOLON )
(progn
@@ -303,12 +309,12 @@
(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 EXCEPTION) 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-containing-action 1 2)
- (wisi-motion-action 1 '(2 EXCEPTION) 3))))
+ (wisi-motion-action 1 '(2 block-middle EXCEPTION block-middle WHEN)
3))))
(body
((proper_body ))
((body_stub )))
@@ -340,7 +346,7 @@
(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 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
@@ -438,7 +444,10 @@
(wisi-containing-action 3 4))))
(constant_opt
(())
- ((CONSTANT )))
+ ((CONSTANT )
+ (progn
+ (wisi-statement-action 1 'keyword)
+ (wisi-face-action 1 'font-lock-keyword-face))))
(constraint
((RANGE range ))
((index_constraint )))
@@ -490,8 +499,11 @@
(wisi-containing-action 1 2))))
(derived_type_definition
((abstract_limited_opt NEW name and_interface_list_opt WITH
record_definition )
- (wisi-statement-action 5 'statement-other))
- ((abstract_limited_opt NEW name constraint_opt )))
+ (progn
+ (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)))
(direct_name
((IDENTIFIER ))
((STRING_LITERAL )))
@@ -663,7 +675,8 @@
((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-containing-action 3 4)))
+ (wisi-containing-action 3 4)
+ (wisi-motion-action 1 3 5)))
((RETURN extended_return_object_declaration SEMICOLON )
(wisi-statement-action 1 'statement-start 3 'statement-end)))
(factor
@@ -746,10 +759,10 @@
((access_definition ))
((interface_type_definition )))
(formal_derived_type_definition
- ((abstract_limited_synchronized_opt NEW name AND interface_list WITH
PRIVATE ))
- ((abstract_limited_synchronized_opt NEW name WITH PRIVATE ))
- ((abstract_limited_synchronized_opt NEW name AND interface_list ))
- ((abstract_limited_synchronized_opt NEW name )))
+ ((abstract_limited_synchronized_opt NEW name and_interface_list_opt
WITH PRIVATE )
+ (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)))
(formal_package_declaration
((WITH PACKAGE name IS NEW name formal_package_actual_part
aspect_specification_opt SEMICOLON )
(progn
@@ -757,7 +770,8 @@
(wisi-containing-action 1 3)
(wisi-containing-action 5 6)
(wisi-containing-action 6 7)
- (wisi-containing-action 6 8))))
+ (wisi-containing-action 6 8)
+ (wisi-face-action 6 'font-lock-function-name-face))))
(formal_package_actual_part
((LEFT_PAREN BOX RIGHT_PAREN ))
(()))
@@ -776,7 +790,7 @@
(wisi-statement-action 1 'statement-other 2 'name)
(wisi-containing-action 1 2)
(wisi-containing-action 1 3)
- (wisi-motion-action 1 '(3 RETURN)))))
+ (wisi-motion-action 1 '(3 return-1 RETURN return-2 RETURN)))))
(general_access_modifier_opt
(())
((ALL ))
@@ -805,17 +819,20 @@
(progn
(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-containing-action 5 6)
+ (wisi-face-action 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-containing-action 5 6)
- (wisi-containing-action 6 7)))
+ (wisi-containing-action 6 7)
+ (wisi-face-action 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-containing-action 5 6)
- (wisi-containing-action 6 7))))
+ (wisi-containing-action 6 7)
+ (wisi-face-action 6 'font-lock-function-name-face))))
(generic_package_declaration
((generic_formal_part package_specification SEMICOLON )
(progn
@@ -826,17 +843,20 @@
(progn
(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-containing-action 3 6)
+ (wisi-face-action 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-containing-action 2 3)
- (wisi-containing-action 3 6)))
+ (wisi-containing-action 3 6)
+ (wisi-face-action 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-containing-action 2 3)
- (wisi-containing-action 3 6))))
+ (wisi-containing-action 3 6)
+ (wisi-face-action 5 'font-lock-function-name-face))))
(generic_subprogram_declaration
((generic_formal_part subprogram_specification aspect_specification_opt
SEMICOLON )
(progn
@@ -847,8 +867,7 @@
((sequence_of_statements_opt EXCEPTION exception_handler_list_opt )
(progn
(wisi-statement-action 2 'block-middle)
- (wisi-containing-action 2 3)
- (wisi-motion-action 2 '(3 WHEN))))
+ (wisi-containing-action 2 3)))
((sequence_of_statements_opt )))
(identifier_list
((IDENTIFIER ))
@@ -864,14 +883,14 @@
(wisi-containing-action 3 4)
(wisi-containing-action 3 5)
(wisi-containing-action 6 7)
- (wisi-motion-action 1 3 '(5 (ELSIF 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-containing-action 1 2)
(wisi-containing-action 3 4)
(wisi-containing-action 3 5)
- (wisi-motion-action 1 3 '(5 (ELSIF 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)
@@ -893,14 +912,14 @@
(wisi-containing-action 3 4)
(wisi-containing-action 3 5)
(wisi-containing-action 6 7)
- (wisi-motion-action 1 3 '(5 (ELSIF 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-containing-action 1 2)
(wisi-containing-action 3 4)
(wisi-containing-action 3 5)
- (wisi-motion-action 1 3 '(5 (ELSIF 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)
@@ -935,8 +954,10 @@
(wisi-statement-action 2 'list-break)
(wisi-containing-action 2 3))))
(interface_list
- ((name ))
- ((interface_list AND name )))
+ ((name )
+ (wisi-face-action 1 'font-lock-type-face))
+ ((interface_list AND name )
+ (wisi-face-action 3 'font-lock-type-face)))
(interface_type_definition
((LIMITED INTERFACE AND interface_list ))
((TASK INTERFACE AND interface_list ))
@@ -1007,9 +1028,18 @@
((AT MOD expression SEMICOLON )))
(mode_opt
(())
- ((IN ))
- ((IN OUT ))
- ((OUT )))
+ ((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))))
(multiplying_operator
((STAR ))
((SLASH ))
@@ -1022,14 +1052,16 @@
(wisi-statement-action 2 'statement-other)
(wisi-containing-action 2 3))))
(name
- ((IDENTIFIER ))
+ ((IDENTIFIER )
+ (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-containing-action 1 2)
(wisi-containing-action 2 3)))
- ((selected_component ))
+ ((selected_component )
+ (wisi-extend-action 1))
((attribute_reference ))
((name actual_parameter_part )
(progn
@@ -1042,7 +1074,10 @@
((name )))
(null_exclusion_opt
(())
- ((NOT NULL )))
+ ((NOT NULL )
+ (progn
+ (wisi-statement-action 1 'keyword)
+ (wisi-face-action 1 'font-lock-keyword-face))))
(null_exclusion_opt_name
((IDENTIFIER ))
((selected_component ))
@@ -1122,7 +1157,7 @@
(wisi-containing-action 3 4)
(wisi-containing-action 5 6)
(wisi-containing-action 7 8)
- (wisi-motion-action 1 5 7 '(8 EXCEPTION) 9)))
+ (wisi-motion-action 1 5 7 '(8 block-middle EXCEPTION block-middle
WHEN) 9)))
((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)
@@ -1144,7 +1179,8 @@
(progn
(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-containing-action 3 5)
+ (wisi-face-action 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
@@ -1164,12 +1200,13 @@
(parameter_and_result_profile
((formal_part RETURN null_exclusion_opt name_opt )
(progn
- (wisi-statement-action
- 2 'return-1
- 4 'type)
- (wisi-containing-action 2 4)))
+ (wisi-statement-action 2 'return-1)
+ (wisi-containing-action 2 4)
+ (wisi-face-action 4 'font-lock-type-face)))
((RETURN name_opt )
- (wisi-statement-action 1 'return-2 2 'type))
+ (progn
+ (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)
@@ -1182,10 +1219,12 @@
(())
((formal_part )))
(parameter_specification
- ((identifier_list COLON aliased_opt mode_opt null_exclusion_opt name
COLON_EQUAL expression ))
- ((identifier_list COLON aliased_opt mode_opt null_exclusion_opt name ))
- ((identifier_list COLON access_definition COLON_EQUAL expression ))
- ((identifier_list COLON access_definition )))
+ ((identifier_list COLON aliased_opt mode_opt null_exclusion_opt name
COLON_EQUAL expression )
+ (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))
+ ((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 )
@@ -1223,7 +1262,8 @@
((NULL ))
((aggregate ))
((name ))
- ((NEW name ))
+ ((NEW name )
+ (wisi-face-action 2 'font-lock-type-face))
((LEFT_PAREN if_expression RIGHT_PAREN )
(progn
(wisi-statement-action 1 'open-paren 3 'close-paren)
@@ -1243,7 +1283,8 @@
(wisi-containing-action 1 3)
(wisi-containing-action 6 7)
(wisi-containing-action 6 8)
- (wisi-containing-action 2 11))))
+ (wisi-containing-action 2 11)
+ (wisi-face-action 7 'font-lock-type-face))))
(private_type_declaration
((TYPE IDENTIFIER discriminant_part_opt IS abstract_tagged_limited_opt
PRIVATE aspect_specification_opt SEMICOLON )
(progn
@@ -1416,12 +1457,12 @@
(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 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-containing-action 1 2)
- (wisi-motion-action 1 '(2 OR) 3))))
+ (wisi-motion-action 1 '(2 block-middle OR) 3))))
(select_alternative
((WHEN expression EQUAL_GREATER accept_statement
sequence_of_statements_opt )
(progn
@@ -1547,7 +1588,8 @@
((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-containing-action 2 5))))
+ (wisi-containing-action 2 5)
+ (wisi-face-action 4 'font-lock-function-name-face))))
(subprogram_specification
((procedure_specification ))
((function_specification )))
@@ -1561,18 +1603,24 @@
(subtype_indication
((NOT NULL name constraint )
(progn
- (wisi-statement-action 3 'name)
- (wisi-containing-action 3 4)))
- ((NOT NULL name ))
+ (wisi-statement-action 1 'keyword)
+ (wisi-containing-action 3 4)
+ (wisi-face-action 1 'font-lock-keyword-face 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)))
((name constraint )
(progn
- (wisi-statement-action 1 'name)
- (wisi-containing-action 1 2)))
- ((name )))
+ (wisi-containing-action 1 2)
+ (wisi-face-action 1 'font-lock-type-face)))
+ ((name )
+ (wisi-face-action 1 'font-lock-type-face)))
(subunit
((SEPARATE LEFT_PAREN name RIGHT_PAREN proper_body )
(progn
- (wisi-statement-action 2 'open-paren 4 'close-paren)
+ (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 )
@@ -1918,12 +1966,12 @@
((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)) (GREATE [...]
((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)) (GREATE [...]
((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)) (GREATE [...]
- ((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)) (STA [...]
- ((default . error) (COMMA . 261) (RIGHT_PAREN . 517))
- ((default . error) (RIGHT_PAREN . (expression_opt . 1)) (COMMA .
(expression_opt . 1)) (WITH . 516))
+ ((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)) (STA [...]
+ ((default . error) (COMMA . 261) (RIGHT_PAREN . 516))
+ ((default . error) (RIGHT_PAREN . (expression_opt . 1)) (COMMA .
(expression_opt . 1)) (WITH . 515))
((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) (IN . (aliased_opt . 0)) (OUT . (aliased_opt . 0))
(IDENTIFIER . (aliased_opt . 0)) (STRING_LITERAL . (aliased_opt . 0))
(CHARACTER_LITERAL . (aliased_opt . 0)) (ALIASED . 512) (ACCESS .
(null_exclusion_opt . 0)) (NOT . ((aliased_opt . 0) 208)))
+ ((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) (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)))
@@ -2076,21 +2124,21 @@
((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 . [...]
+ ((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 . [...]
((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_d [...]
((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 108))
- ((default . error) (IDENTIFIER . 609))
((default . error) (IDENTIFIER . 608))
- ((default . error) (EQUAL_GREATER . 607))
+ ((default . error) (IDENTIFIER . 607))
+ ((default . error) (EQUAL_GREATER . 606))
((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 [...]
((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 [...]
((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 [...]
- ((default . error) (THEN . 606))
+ ((default . error) (THEN . 605))
((default . error) (IDENTIFIER . (quantifier . 0)))
((default . error) (IDENTIFIER . (quantifier . 1)))
- ((default . error) (IDENTIFIER . 604))
- ((default . error) (IS . 603))
+ ((default . error) (IDENTIFIER . 603))
+ ((default . error) (IS . 602))
((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_LIT [...]
((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)) (GREAT [...]
@@ -2107,30 +2155,30 @@
((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 . (t [...]
((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 . [...]
- ((default . error) (BEGIN . 597) (END . 598))
- ((default . error) (IDENTIFIER . 596))
- ((default . error) (IS . ( 595 (subprogram_specification . 1))) (WITH .
(subprogram_specification . 1)) (SEMICOLON . (subprogram_specification . 1))
(RENAMES . (subprogram_specification . 1)))
- ((default . error) (IS . ( 594 (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 . ( 593 (aspect_specification_opt . 0)))
(WITH . 108))
- ((default . error) (EXCEPTION . 591) (CONSTANT . ( 590 (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) (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) (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) (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 . (de [...]
- ((default . error) (SEMICOLON . 586) (IS . (discriminant_part_opt . 0))
(LEFT_PAREN . 198))
+ ((default . error) (SEMICOLON . 585) (IS . (discriminant_part_opt . 0))
(LEFT_PAREN . 198))
((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS .
(aspect_specification_opt . 0)) (WITH . 108))
- ((default . error) (IDENTIFIER . 584))
((default . error) (IDENTIFIER . 583))
- ((default . error) (IS . 582))
+ ((default . error) (IDENTIFIER . 582))
+ ((default . error) (IS . 581))
((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 108))
- ((default . error) (IDENTIFIER . 580))
((default . error) (IDENTIFIER . 579))
+ ((default . error) (IDENTIFIER . 578))
((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 . ( 577 (name . 4))) (LEFT_PAREN . (name . 4))
(DOT . (name . 4)) (TICK . (name . 4)))
- ((default . error) (USE . 576))
- ((default . error) (DOT . 87) (TICK . 88) (USE . 575) (LEFT_PAREN .
106))
- ((default . error) (EXCEPTION . 572) (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 . ( 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) (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))
@@ -2149,175 +2197,174 @@
((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 .
566))
+ ((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) (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 . 564) (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) (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) (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_choic [...]
((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 . (membersh [...]
((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)) [...]
((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 . (packa [...]
((default . error) (SEMICOLON . (association_list . 1)) (IS .
(association_list . 1)) (COMMA . (association_list . 1)) (RIGHT_PAREN .
(association_list . 1)))
- ((default . error) (SEMICOLON . 563))
((default . error) (SEMICOLON . 562))
((default . error) (SEMICOLON . 561))
((default . error) (SEMICOLON . 560))
- ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 555)
(IDENTIFIER . 554) (CHARACTER_LITERAL . 50) (STRING_LITERAL . 49))
+ ((default . error) (SEMICOLON . 559))
+ ((default . error) (ACCESS . (null_exclusion_opt . 0)) (NOT . 554)
(IDENTIFIER . 553) (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 . 552) (NEW .
(abstract_limited_synchronized_opt . 3)) (SYNCHRONIZED . 551) (LIMITED . 550))
- ((default . error) (LEFT_PAREN . 549))
- ((default . error) (BOX . 548))
+ ((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) (SEMICOLON . (interface_type_definition . 8)) (WITH .
(interface_type_definition . 8)))
((default . error) (BOX . 546))
- ((default . error) (INTERFACE . 545) (PRIVATE .
(abstract_tagged_limited_opt . 5)) (NEW . (abstract_limited_synchronized_opt .
4)))
- ((default . error) (BOX . 544))
- ((default . error) (INTERFACE . 543))
- ((default . error) (BOX . 542))
- ((default . error) (INTERFACE . 541) (NEW .
(abstract_limited_synchronized_opt . 5)))
- ((default . error) (PRIVATE . (abstract_tagged_limited_opt . 4))
(LIMITED . 539) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108))
- ((default . error) (INTERFACE . 538))
- ((default . error) (NEW . 537))
- ((default . error) (PRIVATE . 536))
+ ((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) (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 . 534))
((default . error) (SEMICOLON . 533))
+ ((default . error) (SEMICOLON . 532))
((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 . 529)
(LEFT_PAREN . 106) (SEMICOLON . (aspect_specification_opt . 0)) (WITH . 108))
+ ((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 . 527))
+ ((default . error) (SEMICOLON . 526))
((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 . 524) (PROCEDURE . 525))
+ ((default . error) (FUNCTION . 523) (PROCEDURE . 524))
((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) (SEMICOLON . (parameter_specification . 3))
(RIGHT_PAREN . (parameter_specification . 3)) (COLON_EQUAL . 523))
- ((default . error) (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 . (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) (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 . 520) (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 . 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 . 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)) (A [...]
- ((default . error) (RIGHT_PAREN . 519))
+ ((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)) (RA [...]
- ((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 . ( [...]
- ((default . error) (COMMA . 261) (RIGHT_PAREN . 787))
+ ((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 . ( [...]
+ ((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) (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) (RETURN . 90) (LEFT_PAREN . 782))
- ((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 . 782))
+ ((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) (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 . 779))
- ((default . error) (DOT . 87) (TICK . 88) (WITH .
(formal_package_actual_part . 1)) (SEMICOLON . (formal_package_actual_part .
1)) (LEFT_PAREN . 777))
- ((default . error) (SEMICOLON . 776))
+ ((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) (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 . 775))
+ ((default . error) (SEMICOLON . 774))
((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 . 773) (WITH . (interface_type_definition . 5))
(SEMICOLON . (interface_type_definition . 5)))
+ ((default . error) (AND . 772) (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 . 772))
- ((default . error) (AND . 771) (WITH . (interface_type_definition . 7))
(SEMICOLON . (interface_type_definition . 7)))
+ ((default . error) (SEMICOLON . 771))
+ ((default . error) (AND . 770) (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 . 770) (WITH . (interface_type_definition . 6))
(SEMICOLON . (interface_type_definition . 6)))
+ ((default . error) (AND . 769) (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 . 769) (WITH . (interface_type_definition . 4))
(SEMICOLON . (interface_type_definition . 4)))
- ((default . error) (RIGHT_PAREN . 768))
+ ((default . error) (AND . 768) (WITH . (interface_type_definition . 4))
(SEMICOLON . (interface_type_definition . 4)))
+ ((default . error) (RIGHT_PAREN . 767))
((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 . 767))
- ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50)
(STRING_LITERAL . 49) (PLUS . 144) (MINUS . 143) (ABS . 146) (NOT . 758)
(NULL . 150) (NEW . 148) (LEFT_PAREN . 147))
+ ((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) (NEW . (abstract_limited_synchronized_opt . 1)))
((default . error) (NEW . (abstract_limited_synchronized_opt . 2)))
- ((default . error) (LIMITED . 757) (RECORD .
(abstract_tagged_limited_opt . 2)) (NULL . (abstract_tagged_limited_opt . 2))
(PRIVATE . (abstract_tagged_limited_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) (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 . 756))
- ((default . error) (SEMICOLON . (discriminant_specification_opt . 4))
(RIGHT_PAREN . (discriminant_specification_opt . 4)) (COLON_EQUAL . 755))
+ ((default . error) (NULL . 755))
+ ((default . error) (SEMICOLON . (discriminant_specification_opt . 4))
(RIGHT_PAREN . (discriminant_specification_opt . 4)) (COLON_EQUAL . 754))
((default . error) (DOT . 87) (TICK . 88) (LEFT_PAREN . 106))
- ((default . error) (SEMICOLON . (discriminant_specification_opt . 2))
(RIGHT_PAREN . (discriminant_specification_opt . 2)) (COLON_EQUAL . 754))
+ ((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) ($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 . (ge [...]
((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 . (ge [...]
((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 . (ge [...]
((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)) (L [...]
((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 . 564) (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) (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) (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 . 750))
((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 . 745))
- ((default . error) (AT . 744))
+ ((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 . ( 742
(aspect_specification_opt . 0))) (WITH . 108) (LEFT_PAREN . 106))
+ ((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) (IS . ( 740 (aspect_specification_opt . 0))) (WITH .
108))
- ((default . error) (IS . 739))
- ((default . error) (NOT . 736) (IDENTIFIER . 48) (CHARACTER_LITERAL .
50) (STRING_LITERAL . 49))
+ ((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 . ( 734 (aspect_specification_opt . 0))) (WITH .
108))
- ((default . error) (SEMICOLON . 732) (IS . 733))
+ ((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 . (inc [...]
- ((default . error) (IS . 731))
- ((default . error) (END . 730))
+ ((default . error) (IS . 730))
+ ((default . error) (END . 729))
((default . error) (DOT . 87) (TICK . 88) (SEMICOLON .
(package_specification . 1)) (LEFT_PAREN . 106))
- ((default . error) (COLON_EQUAL . 729))
- ((default . error) (SEMICOLON . 728))
- ((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 . 726))
- ((default . error) (SEPARATE . 725) (ABSTRACT . 724))
- ((default . error) (NULL . 723))
- ((default . error) (LEFT_PAREN . 721))
- ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON .
(parameter_profile_opt . 0)) (LEFT_PAREN . 719))
- ((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 . [...]
+ ((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 . [...]
((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_li [...]
((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)) (ELS [...]
((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)) (ELS [...]
((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_li [...]
- ((default . error) (WHEN . 714))
- ((default . error) (OF . 713) (COLON . 711) (IN . 712))
- ((default . error) (EQUAL_GREATER . 710))
+ ((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) (IS . (aspect_specification_opt . 0)) (WITH . 108))
((default . error) (IS . (aspect_specification_opt . 0)) (WITH . 108))
((default . error) (IS . 134))
- ((default . error) (IDENTIFIER . 705))
- ((default . error) (COLON . 704))
- ((default . error) (IDENTIFIER . 703))
+ ((default . error) (IDENTIFIER . 704))
+ ((default . error) (COLON . 703))
+ ((default . error) (IDENTIFIER . 702))
((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 . [...]
+ ((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 . [...]
((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 . 697) (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 . 695))
- ((default . error) (LOOP . (iterator_specification_opt . 0)) (IDENTIFIER
. 604))
- ((default . error) (IDENTIFIER . 692))
+ ((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 [...]
- ((default . error) (SEMICOLON . 689))
- ((default . error) (SEMICOLON . 687) (IDENTIFIER . 48)
(CHARACTER_LITERAL . 50) (STRING_LITERAL . 49))
+ ((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 [...]
+ ((default . error) (SEMICOLON . 688))
+ ((default . error) (SEMICOLON . 686) (IDENTIFIER . 48)
(CHARACTER_LITERAL . 50) (STRING_LITERAL . 49))
((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50)
(STRING_LITERAL . 49))
- ((default . error) (SEMICOLON . 681) (DO .
(extended_return_object_declaration_opt . 0)) (PLUS . 144) (MINUS . 143) (ABS
. 146) (NOT . 149) (NULL . 150) (NEW . 148) (IDENTIFIER . 682)
(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 . 618) (WHEN . 670) (TERMINATE . 669) (ACCEPT
. 613))
+ ((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) (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_s [...]
((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 . [...]
@@ -2328,25 +2375,25 @@
((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 . [...]
((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 . [...]
((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_s [...]
- ((default . error) (END . 667))
+ ((default . error) (END . 666))
((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_s [...]
- ((default . error) (LOOP . 666))
- ((default . error) (NULL . 624) (GOTO . 621) (ABORT . 614) (ACCEPT .
613) (DECLARE . 617) (BEGIN . 615) (LOOP . 623) (CASE . 616) (IF . 622)
(PRAGMA . 7) (RAISE . 625) (DELAY . 618) (REQUEUE . 626) (RETURN . 627)
(EXIT . 619) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50) (STRING_LITERAL .
49) (WHILE . 629) (FOR . 620) (SELECT . 628))
+ ((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) (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_s [...]
- ((default . error) (DOT . 87) (SEMICOLON . 663) (TICK . 88)
(COLON_EQUAL . 662) (LEFT_PAREN . 106))
+ ((default . error) (DOT . 87) (SEMICOLON . 662) (TICK . 88)
(COLON_EQUAL . 661) (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) [...]
((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 . [...]
((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 . [...]
((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 . [...]
((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 . [...]
((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_s [...]
- ((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_op [...]
- ((default . error) (END . (handled_sequence_of_statements . 1))
(EXCEPTION . 660))
+ ((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_op [...]
+ ((default . error) (END . (handled_sequence_of_statements . 1))
(EXCEPTION . 659))
((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 . [...]
((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 . (s [...]
((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 . [...]
- ((default . error) (SEMICOLON . 659))
((default . error) (SEMICOLON . 658))
+ ((default . error) (SEMICOLON . 657))
((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)) (PROCE [...]
((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)) (PROCE [...]
((default . error) (END . (exception_handler_list_opt . 0)) (WHEN .
930))
@@ -2355,17 +2402,17 @@
((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 . (procedur [...]
((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)) [...]
((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)) [...]
- ((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 [...]
+ ((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 [...]
((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 . (lab [...]
+ ((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 . (lab [...]
((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)) (CHARACTE [...]
+ ((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)) (CHARACTE [...]
((default . error) (ELSE . 921) (OR . 922))
- ((default . error) (DOT . 87) (SEMICOLON . 663) (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 . (la [...]
- ((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 . (la [...]
+ ((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 . (la [...]
+ ((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 . (la [...]
((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))
@@ -2400,15 +2447,15 @@
((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 . 736) (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 . 758) (NULL . 150) (NEW . 148) (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 . 758)
(NULL . 150) (NEW . 148) (LEFT_PAREN . 147))
+ ((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) (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) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .
108))
@@ -2463,7 +2510,7 @@
((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) (SEMICOLON . (formal_derived_type_definition . 3))
(WITH . ((formal_derived_type_definition . 3) 796)) (DOT . 87) (TICK . 88)
(AND . 795) (LEFT_PAREN . 106))
+ ((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) (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))
@@ -2474,18 +2521,19 @@
((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) (SEMICOLON . (parameter_specification . 2))
(RIGHT_PAREN . (parameter_specification . 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) (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)) (A [...]
- ((default . error) (RIGHT_PAREN . 789))
+ ((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)) (RA [...]
+ ((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) (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) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50)
(STRING_LITERAL . 49))
- ((default . error) (PRIVATE . 1062))
+ ((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) (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)))
@@ -2498,7 +2546,7 @@
((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 . 758)
(NULL . 150) (NEW . 148) (LEFT_PAREN . 147))
+ ((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)))
@@ -2529,16 +2577,16 @@
((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50)
(STRING_LITERAL . 49))
((default . error) (END . 1028) (PRIVATE . 1029))
((default . error) (SEMICOLON . 1027))
- ((default . error) (SYNCHRONIZED . 551) (TAGGED . 552) (NEW .
((abstract_limited_synchronized_opt . 3) (abstract_limited_opt . 3))) (LIMITED
. 1026))
+ ((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 . 545) (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) (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 . 539))
+ ((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))
@@ -2567,11 +2615,11 @@
((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 [...]
((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_ [...]
- ((default . error) (WHEN . 714))
+ ((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 . 758)
(NULL . 150) (NEW . 148) (LEFT_PAREN . 147))
+ ((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) (LOOP . (iterator_specification . 1)) (EQUAL_GREATER
. (iterator_specification . 1)))
((default . error) (OF . 979))
((default . error) (RIGHT_PAREN . (quantified_expression . 0)))
@@ -2584,34 +2632,34 @@
((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)) (NU [...]
((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) (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 . 782))
+ ((default . error) (DO . (parameter_profile_opt . 0)) (SEMICOLON .
(parameter_profile_opt . 0)) (LEFT_PAREN . 781))
((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 . [...]
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
+ ((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 . [...]
+ ((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 . [...]
((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_statemen [...]
((default . error) (SEMICOLON . 958))
((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)) (DEL [...]
((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) (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 . [...]
- ((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 . ( [...]
+ ((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 . ( [...]
((default . error) (LOOP . 955))
((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_statem [...]
((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 . (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) [...]
((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 . [...]
+ ((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 . [...]
((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_ [...]
((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)) [...]
((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 [...]
+ ((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 [...]
((default . error) (SELECT . 948))
- ((default . error) (WHEN . 670) (TERMINATE . 669) (ACCEPT . 613)
(DELAY . 618))
+ ((default . error) (WHEN . 669) (TERMINATE . 668) (ACCEPT . 612)
(DELAY . 617))
((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 [...]
- ((default . error) (DELAY . 618))
+ ((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 [...]
+ ((default . error) (DELAY . 617))
((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))
@@ -2632,19 +2680,19 @@
((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_state [...]
((default . error) (LOOP . 1165))
((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)) (OVERRIDIN [...]
- ((default . error) (TERMINATE . 1162) (ACCEPT . 613) (DELAY . 618))
+ ((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 . (lab [...]
+ ((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 . (lab [...]
((default . error) (END . 1159))
((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 [...]
- ((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 . 726))
+ ((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 [...]
+ ((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 .
695))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
((default . error) (ELSE . 1146) (END . 1148) (ELSIF . 1147))
((default . error) (SEMICOLON . 1145))
((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_stat [...]
@@ -2674,7 +2722,7 @@
((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 . 782))
+ ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON .
(parameter_profile_opt . 0)) (LEFT_PAREN . 781))
((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 . ( [...]
((default . error) (WITH . (paren_expression . 2)) (SEMICOLON .
(paren_expression . 2)))
((default . error) (WITH . (paren_expression . 0)) (SEMICOLON .
(paren_expression . 0)))
@@ -2695,7 +2743,7 @@
((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 . 736) (IDENTIFIER . 48) (CHARACTER_LITERAL .
50) (STRING_LITERAL . 49))
+ ((default . error) (NOT . 735) (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 . [...]
((default . error) (IS . (direct_name_opt . 0)) (IDENTIFIER . 1112)
(STRING_LITERAL . 1113))
((default . error) (SEMICOLON . 1111))
@@ -2717,7 +2765,7 @@
((default . error) (DIGITS . 1100) (WITH .
(real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt
. 0)) (RANGE . 1101))
((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)) (PROTECTE [...]
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
+ ((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))
@@ -2727,7 +2775,7 @@
((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_de [...]
((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)) (PR [...]
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
+ ((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))
@@ -2751,14 +2799,14 @@
((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) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50)
(STRING_LITERAL . 49))
- ((default . error) (SEMICOLON . (formal_derived_type_definition . 1))
(WITH . (formal_derived_type_definition . 1)))
- ((default . error) (SEMICOLON . (formal_derived_type_definition . 2))
(AND . 1061) (WITH . ((formal_derived_type_definition . 2) 1069)))
+ ((default . error) (PRIVATE . 1069))
+ ((default . error) (AND . 1061) (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) (RIGHT_PAREN . (parameter_specification . 0))
(SEMICOLON . (parameter_specification . 0)))
- ((default . error) (PRIVATE . 1233))
+ ((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_EQ [...]
@@ -2770,24 +2818,24 @@
((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 . (obj [...]
((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 . (obj [...]
- ((default . error) (SEMICOLON . 1229))
((default . error) (SEMICOLON . 1228))
- ((default . error) (RECORD . 1227))
+ ((default . error) (SEMICOLON . 1227))
+ ((default . error) (RECORD . 1226))
((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) (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)) (PROTEC [...]
((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50)
(STRING_LITERAL . 49))
- ((default . error) (SEMICOLON . 1224))
+ ((default . error) (SEMICOLON . 1223))
((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 . (protect [...]
((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 . 1222))
+ ((default . error) (END . 1221))
((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 . 1220))
+ ((default . error) (SEMICOLON . 1219))
((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 . [...]
((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 . 1218))
+ ((default . error) (END . 1217))
((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))
@@ -2797,16 +2845,16 @@
((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 . 1212))
+ ((default . error) (RECORD . 1211))
((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 . 1211))
- ((default . error) (WITH . (and_interface_list_opt . 0)) (AND . 1206))
- ((default . error) (DOT . 87) (TICK . 88) (AND . 1206) (WITH .
((and_interface_list_opt . 0) (constraint_opt . 0))) (SEMICOLON .
(constraint_opt . 0)) (RANGE . 833) (LEFT_PAREN . 803))
+ ((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) (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)) [...]
((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 [...]
@@ -2822,20 +2870,20 @@
((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 .
695))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
((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 . [...]
+ ((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 . [...]
((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 . (a [...]
- ((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 . [...]
+ ((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 . [...]
((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_statem [...]
((default . error) (CASE . 1192))
((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 .
695))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
((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)) (DEL [...]
- ((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 [...]
+ ((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 [...]
((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 . (elsif_statement_list . 0)) (ELSE .
(elsif_statement_list . 0)) (ELSIF . (elsif_statement_list . 0)))
@@ -2852,77 +2900,75 @@
((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 . (lab [...]
+ ((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 . (lab [...]
((default . error) (END . (select_alternative . 2)) (OR .
(select_alternative . 2)) (ELSE . (select_alternative . 2)))
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
+ ((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)) ( [...]
+ ((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)) ( [...]
((default . error) (OTHERS . 936) (IDENTIFIER . 48) (CHARACTER_LITERAL
. 50) (STRING_LITERAL . 49))
- ((default . error) (BAR . 1166) (EQUAL_GREATER . 1275))
+ ((default . error) (BAR . 1166) (EQUAL_GREATER . 1272))
((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 . 1274))
+ ((default . error) (SEMICOLON . 1271))
((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 . 1273))
- ((default . error) (SEMICOLON . 1272))
- ((default . error) (SEMICOLON . 1271))
- ((default . error) (SELECT . 1270))
+ ((default . error) (SEMICOLON . 1270))
+ ((default . error) (SEMICOLON . 1269))
+ ((default . error) (SEMICOLON . 1268))
+ ((default . error) (SELECT . 1267))
((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 . 1269))
+ ((default . error) (DO . (extended_return_object_declaration . 1))
(SEMICOLON . (extended_return_object_declaration . 1)) (COLON_EQUAL . 1266))
((default . error) (DO . (return_subtype_indication . 0)) (SEMICOLON .
(return_subtype_indication . 0)) (COLON_EQUAL . (return_subtype_indication .
0)))
- ((default . error) (SEMICOLON . 1268))
+ ((default . error) (SEMICOLON . 1265))
((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 . (l [...]
- ((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 [...]
- ((default . error) (IF . 1266))
+ ((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 [...]
+ ((default . error) (IF . 1263))
((default . error) (ELSIF . (elsif_statement_list . 1)) (ELSE .
(elsif_statement_list . 1)) (END . (elsif_statement_list . 1)))
- ((default . error) (SEMICOLON . 1265))
- ((default . error) (THEN . 1264))
- ((default . error) (END . 1263))
((default . error) (SEMICOLON . 1262))
- ((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)) ( [...]
- ((default . error) (SEMICOLON . 1260))
- ((default . error) (END . 1259))
- ((default . error) (END . 1258))
- ((default . error) (FOR . 1257) (IDENTIFIER . 72))
- ((default . error) (WHEN . 1256))
+ ((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)) ( [...]
+ ((default . error) (SEMICOLON . 1257))
+ ((default . error) (END . 1256))
+ ((default . error) (END . 1255))
+ ((default . error) (FOR . 1254) (IDENTIFIER . 72))
+ ((default . error) (WHEN . 1253))
((default . error) (WHEN . (entry_body_formal_part . 1)))
- ((default . error) (SEMICOLON . 1255))
+ ((default . error) (SEMICOLON . 1252))
((default . error) (ELSE . (elsif_expression_item . 0)) (ELSIF .
(elsif_expression_item . 0)) (RIGHT_PAREN . (elsif_expression_item . 0)))
((default . error) (DOT . 87) (TICK . 88) (LOOP .
(iterator_specification . 2)) (EQUAL_GREATER . (iterator_specification . 2))
(LEFT_PAREN . 106))
- ((default . error) (SEMICOLON . 1254))
- ((default . error) (SEMICOLON . 1253))
- ((default . error) (SEMICOLON . 1252))
((default . error) (SEMICOLON . 1251))
+ ((default . error) (SEMICOLON . 1250))
+ ((default . error) (SEMICOLON . 1249))
+ ((default . error) (SEMICOLON . 1248))
((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) [...]
- ((default . error) (IDENTIFIER . 48) (CHARACTER_LITERAL . 50)
(STRING_LITERAL . 49))
- ((default . error) (WITH . 1249))
+ ((default . error) (WITH . 1247))
((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 . 1248))
- ((default . error) (WHEN . 1245))
+ ((default . error) (WITH . 1246))
+ ((default . error) (WHEN . 1243))
((default . error) (SEMICOLON . (record_definition . 0)) (WITH .
(record_definition . 0)))
- ((default . error) (COLON_EQUAL . 1243) (SEMICOLON .
(aspect_specification_opt . 0)) (WITH . 108))
+ ((default . error) (COLON_EQUAL . 1241) (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 . 1242))
+ ((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 .
695))
- ((default . error) (SEMICOLON . 1239))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
+ ((default . error) (SEMICOLON . 1237))
((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 [...]
- ((default . error) (AND . 1061) (WITH . 1238))
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
- ((default . error) (SEMICOLON . 1236))
+ ((default . error) (AND . 1061) (WITH . 1236))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
+ ((default . error) (SEMICOLON . 1234))
((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_typ [...]
- ((default . error) (AND . 1061) (WITH . 1235))
- ((default . error) (RANGE . 1234))
+ ((default . error) (AND . 1061) (WITH . 1233))
+ ((default . error) (RANGE . 1232))
((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 . [...]
((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) (SEMICOLON . (formal_derived_type_definition . 0))
(WITH . (formal_derived_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) (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 . (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)) (OVERRID [...]
@@ -2933,88 +2979,87 @@
((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 . 1292))
+ ((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 . 1289) (WHEN . 1245))
+ ((default . error) (END . 1286) (WHEN . 1243))
((default . error) (END . (variant_list . 0)) (WHEN . (variant_list .
0)))
- ((default . error) (PRIVATE . 1288))
+ ((default . error) (PRIVATE . 1285))
((default . error) (RECORD . 848) (NULL . 846))
- ((default . error) (AND . 1061) (WITH . (and_interface_list_opt . 1)))
((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 [...]
((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 [...]
((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 [...]
((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)) (PROTEC [...]
((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 . [...]
((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 . 1285))
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
+ ((default . error) (IDENTIFIER . 1282))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
((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)) (DEL [...]
((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_statem [...]
- ((default . error) (IF . 1282))
- ((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 . ( [...]
+ ((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 . ( [...]
((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)) (EX [...]
- ((default . error) (SEMICOLON . 1280))
- ((default . error) (END . 1279))
+ ((default . error) (SEMICOLON . 1277))
+ ((default . error) (END . 1276))
((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_ [...]
((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 . 1277))
+ ((default . error) (SEMICOLON . 1274))
((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 . [...]
((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 . ( [...]
((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 . [...]
((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)) (DEL [...]
- ((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)) ( [...]
+ ((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)) ( [...]
((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)) (I [...]
((default . error) (DO . (extended_return_object_declaration . 0))
(SEMICOLON . (extended_return_object_declaration . 0)))
- ((default . error) (IF . 1310))
+ ((default . error) (IF . 1307))
((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_ [...]
((default . error) (ELSE . (elsif_statement_item . 0)) (ELSIF .
(elsif_statement_item . 0)) (END . (elsif_statement_item . 0)))
- ((default . error) (SEMICOLON . 1309))
- ((default . error) (SEMICOLON . 1308))
- ((default . error) (SEMICOLON . 1307))
- ((default . error) (IN . 1306))
- ((default . error) (IS . 1305))
+ ((default . error) (SEMICOLON . 1306))
+ ((default . error) (SEMICOLON . 1305))
+ ((default . error) (SEMICOLON . 1304))
+ ((default . error) (IN . 1303))
+ ((default . error) (IS . 1302))
((default . error) (WITH . (derived_type_definition . 0)) (SEMICOLON .
(derived_type_definition . 0)))
((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .
108))
- ((default . error) (CASE . 1303))
+ ((default . error) (CASE . 1300))
((default . error) (WHEN . (variant_list . 1)) (END . (variant_list .
1)))
- ((default . error) (BAR . 275) (EQUAL_GREATER . 1302))
+ ((default . error) (BAR . 275) (EQUAL_GREATER . 1299))
((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 . 1300))
- ((default . error) (SEMICOLON . 1299))
- ((default . error) (DOT_DOT . 1298))
+ ((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) (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 [...]
((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 [...]
- ((default . error) (SEMICOLON . 1317))
- ((default . error) (END . (component_list_opt . 0)) (WHEN .
(component_list_opt . 0)) (NULL . 1009) (CASE . 1008) (IDENTIFIER . 72) (FOR
. 289))
- ((default . error) (SEMICOLON . 1315))
((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 . 758)
(NULL . 150) (NEW . 148) (LEFT_PAREN . 147))
+ ((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) (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)) (US [...]
((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 . (a [...]
((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)) (EX [...]
- ((default . error) (SEMICOLON . 1311))
+ ((default . error) (SEMICOLON . 1308))
((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_ [...]
- ((default . error) (RIGHT_PAREN . 1321))
- ((default . error) (BEGIN . 1320))
+ ((default . error) (RIGHT_PAREN . 1318))
+ ((default . error) (BEGIN . 1317))
((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
[...]
((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 . 1319))
+ ((default . error) (SEMICOLON . 1316))
((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 . [...]
- ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN .
782))
+ ((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 . [...]
+ ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN .
781))
((default . error) (WHEN . (entry_body_formal_part . 0)))
- ((default . error) (END . 1324))
- ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
695))
- ((default . error) (SEMICOLON . 1326))
+ ((default . error) (END . 1321))
+ ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .
694))
+ ((default . error) (SEMICOLON . 1323))
((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 [...]
((attribute_reference . 51)(name . 86)(qualified_expression .
54)(selected_component . 55))
@@ -3248,9 +3293,9 @@
nil
nil
nil
- ((identifier_list . 214)(parameter_specification . 515))
+ ((identifier_list . 214)(parameter_specification . 514))
nil
- ((access_definition . 513)(aliased_opt . 514)(null_exclusion_opt . 212))
+ ((aliased_opt . 513))
((general_access_modifier_opt . 510)(protected_opt . 511))
nil
nil
@@ -3401,12 +3446,11 @@
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 . 657))
((actual_parameter_part . 91)(aspect_specification_opt . 656))
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 639)(if_statement . 640)(iteration_scheme
. 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma .
645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement
. 64 [...]
- nil
- ((aspect_specification_opt . 610))
+ ((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
. 64 [...]
nil
+ ((aspect_specification_opt . 609))
nil
nil
nil
@@ -3416,21 +3460,22 @@
nil
nil
nil
- ((iterator_specification . 605))
nil
+ ((iterator_specification . 604))
nil
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name .
154)(primary . 157)(qualified_expression . 54)(relation .
602)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list .
166)(unary_adding_operator . 167))
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))
nil
- 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))
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))
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))
+ nil
nil
nil
((multiplying_operator . 352))
@@ -3439,46 +3484,46 @@
nil
nil
((aspect_specification_opt . 128))
- ((aliased_opt . 592))
- ((attribute_reference . 51)(name . 589)(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 . 588)(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)(gen [...]
+ ((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)(gen [...]
nil
- ((discriminant_part_opt . 587))
- ((aspect_specification_opt . 585))
+ ((discriminant_part_opt . 586))
+ ((aspect_specification_opt . 584))
nil
nil
nil
- ((aspect_specification_opt . 581))
+ ((aspect_specification_opt . 580))
nil
nil
- ((attribute_reference . 51)(name . 578)(qualified_expression .
54)(selected_component . 55))
+ ((attribute_reference . 51)(name . 577)(qualified_expression .
54)(selected_component . 55))
nil
nil
nil
nil
((actual_parameter_part . 91))
- ((access_definition . 573)(null_exclusion_opt . 574))
+ ((access_definition . 572)(null_exclusion_opt . 573))
nil
nil
((actual_parameter_part . 91))
nil
- ((relational_operator . 567))
+ ((relational_operator . 566))
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(choice_relation .
571)(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 .
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))
- nil
((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))
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
nil
nil
- ((relational_operator . 567))
+ ((relational_operator . 566))
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(factor .
153)(membership_choice_list . 565)(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 . 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
@@ -3490,8 +3535,8 @@
nil
nil
nil
- ((access_definition . 556)(attribute_reference . 51)(name .
557)(null_exclusion_opt . 212)(null_exclusion_opt_name .
558)(qualified_expression . 54)(selected_component . 559))
- ((discriminant_specification_opt . 553)(identifier_list . 254))
+ ((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
@@ -3506,54 +3551,53 @@
nil
nil
nil
- ((aspect_specification_opt . 540))
+ ((aspect_specification_opt . 539))
nil
nil
nil
nil
nil
- ((aspect_specification_opt . 535))
+ ((aspect_specification_opt . 534))
nil
nil
nil
nil
- ((aspect_specification_opt . 532))
- ((attribute_reference . 51)(name . 531)(qualified_expression .
54)(selected_component . 55))
- ((actual_parameter_part . 91)(aspect_specification_opt . 530))
- ((aggregate . 151)(attribute_reference . 51)(expression . 528)(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 . 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
nil
nil
- ((attribute_reference . 51)(name . 526)(qualified_expression .
54)(selected_component . 55))
+ ((attribute_reference . 51)(name . 525)(qualified_expression .
54)(selected_component . 55))
nil
nil
+ ((access_definition . 521)(mode_opt . 522)(null_exclusion_opt . 212))
nil
- ((mode_opt . 522))
+ ((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)(relati [...]
nil
- ((aggregate . 151)(association_opt . 173)(association_list .
521)(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)(relati [...]
nil
nil
nil
nil
nil
- ((null_exclusion_opt . 786))
- ((aggregate . 151)(attribute_reference . 51)(expression . 785)(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))
- ((formal_part . 92)(parameter_and_result_profile . 784))
- ((formal_part . 116)(parameter_profile_opt . 783))
+ ((null_exclusion_opt . 784))
+ ((formal_part . 92)(parameter_and_result_profile . 783))
+ ((formal_part . 116)(parameter_profile_opt . 782))
((actual_parameter_part . 91))
nil
- ((aspect_specification_opt . 781))
- ((aggregate . 151)(attribute_reference . 51)(expression . 780)(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 . 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))
nil
- ((actual_parameter_part . 91)(formal_package_actual_part . 778))
+ ((actual_parameter_part . 91)(formal_package_actual_part . 777))
nil
nil
nil
nil
nil
- ((attribute_reference . 51)(name . 774)(qualified_expression .
54)(selected_component . 55))
+ ((attribute_reference . 51)(name . 773)(qualified_expression .
54)(selected_component . 55))
nil
nil
nil
@@ -3565,7 +3609,7 @@
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition
. 759)(discrete_subtype_definition_list . 760)(factor .
153)(index_subtype_definition . 761)(index_subtype_definition_list . 762)(name
. 763)(primary . 157)(qualified_expression . 54)(range .
764)(selected_component . 55)(simple_expression . 765)(subtype_indication .
766)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+ ((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))
nil
nil
nil
@@ -3580,72 +3624,72 @@
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(factor .
153)(membership_choice . 753)(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 . 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))
nil
- ((aggregate . 151)(attribute_reference . 51)(expression . 752)(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 . 751)(term . 165)(term_list . 166)(unary_adding_operator
. 167))
+ ((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))
nil
nil
nil
nil
nil
nil
- ((attribute_reference . 51)(name . 748)(qualified_expression .
54)(selected_component . 55))
- ((aggregate . 746)(record_rep . 747))
+ ((attribute_reference . 51)(name . 747)(qualified_expression .
54)(selected_component . 55))
+ ((aggregate . 745)(record_rep . 746))
nil
- ((aggregate . 151)(attribute_reference . 51)(expression . 743)(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 . 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 . 741))
- ((aspect_specification_opt . 707))
- nil
- ((attribute_reference . 51)(name . 737)(qualified_expression .
54)(selected_component . 55)(subtype_indication . 738))
- ((discriminant_part_opt . 735))
+ ((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))
+ nil
nil
nil
nil
((actual_parameter_part . 91))
nil
nil
- ((constant_opt . 727))
+ ((constant_opt . 726))
nil
nil
- ((paren_expression . 722))
- ((formal_part . 116)(parameter_profile_opt . 720))
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 718)(if_statement . 640)(iteration_scheme
. 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma .
645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement
. 64 [...]
- ((attribute_reference . 51)(name . 210)(name_opt .
717)(qualified_expression . 54)(selected_component . 55))
+ ((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
. 64 [...]
+ ((attribute_reference . 51)(name . 210)(name_opt .
716)(qualified_expression . 54)(selected_component . 55))
nil
nil
nil
nil
- ((case_expression_alternative . 715)(case_expression_alternative_list .
716))
+ ((case_expression_alternative . 714)(case_expression_alternative_list .
715))
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(expression . 709)(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 . 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))
- ((aspect_specification_opt . 707))
+ ((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
nil
nil
nil
- ((attribute_reference . 51)(name . 702)(qualified_expression .
54)(selected_component . 55))
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 701)(if_statement . 640)(iteration_scheme
. 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma .
645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement
. 64 [...]
- ((aggregate . 151)(attribute_reference . 51)(expression .
184)(expression_opt . 700)(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 . 699)(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)(gen [...]
- ((aggregate . 151)(attribute_reference . 51)(expression . 698)(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 . 696))
- ((iterator_specification . 693)(iterator_specification_opt . 694))
+ ((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
. 64 [...]
+ ((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)(gen [...]
+ ((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 . 691)(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 . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
- ((attribute_reference . 51)(name . 688)(qualified_expression .
54)(selected_component . 55))
- ((attribute_reference . 51)(name . 686)(qualified_expression .
54)(selected_component . 55))
- ((aggregate . 151)(attribute_reference . 51)(expression .
683)(extended_return_object_declaration .
684)(extended_return_object_declaration_opt . 685)(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 . 671)(attribute_reference . 51)(delay_alternative .
672)(delay_statement . 673)(entry_call_alternative . 674)(name .
675)(procedure_call_statement . 676)(qualified_expression .
54)(selected_component . 55)(select_alternative . 677)(select_alternative_list
. 678)(select_alternative_list_opt . 679)(triggering_alternative . 680))
- ((aggregate . 151)(attribute_reference . 51)(expression .
184)(expression_opt . 668)(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 . 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))
nil
nil
nil
@@ -3658,7 +3702,7 @@
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(compound_statement . 664)(conditional_entry_call .
635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement .
638)(if_statement . 640)(iteration_scheme . 641)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(s [...]
+ ((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)(s [...]
nil
((actual_parameter_part . 91))
nil
@@ -3667,7 +3711,7 @@
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
nil
nil
@@ -3682,17 +3726,17 @@
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
((attribute_reference . 51)(name . 210)(name_opt .
927)(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 . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
- ((accept_statement . 630)(actual_parameter_part .
91)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference
. 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call .
635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement .
638)(if_statement . 640)(iteration_scheme . 641)(label_opt .
642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement .
646)(qualified_expression . 54)(raise_statement . 647)(requeue [...]
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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 [...]
+ ((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_c [...]
nil
nil
nil
@@ -3727,15 +3771,15 @@
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 . 737)(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 . 764)(selected_component . 55)(simple_expression .
765)(subtype_indication . 766)(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_o [...]
nil
nil
nil
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 . 764)(selected_component . 55)(simple_expression .
765)(subtype_indication . 766)(term . 165)(term_list .
166)(unary_adding_operator . 167))
+ ((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))
@@ -3743,7 +3787,7 @@
((aspect_specification_opt . 867))
((aspect_specification_opt . 866))
nil
- ((access_definition . 863)(array_type_definition .
864)(attribute_reference . 51)(name . 737)(null_exclusion_opt .
212)(qualified_expression . 54)(selected_component . 55)(subtype_indication .
865))
+ ((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))
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))
@@ -3772,7 +3816,7 @@
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 . 557)(qualified_expression .
54)(selected_component . 813))
+ ((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
@@ -3790,7 +3834,7 @@
((attribute_reference . 51)(interface_list . 799)(name .
798)(qualified_expression . 54)(selected_component . 55))
nil
((attribute_reference . 51)(interface_list . 797)(name .
798)(qualified_expression . 54)(selected_component . 55))
- ((actual_parameter_part . 91))
+ ((actual_parameter_part . 91)(and_interface_list_opt . 796))
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)(expression . 184)(expression_opt .
185)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range
. 191)(relati [...]
@@ -3801,8 +3845,9 @@
((identifier_list . 214)(parameter_specification .
215)(parameter_specification_list . 216))
nil
nil
- 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
nil
nil
nil
@@ -3819,13 +3864,13 @@
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 .
759)(discrete_subtype_definition_list . 1059)(expression . 184)(expression_opt
. 185)(factor . 15 [...]
- ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name .
186)(primary . 157)(qualified_expression . 54)(range . 1035)(selected_component
. 55)(simple_expression . 765)(term . 165)(term_list .
166)(unary_adding_operator . 167))
+ ((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 . 15 [...]
+ ((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))
nil
nil
((attribute_reference . 51)(index_subtype_definition . 1055)(name .
1056)(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 . 764)(selected_component . 55)(simple_expression .
765)(subtype_indication . 766)(term . 165)(term_list .
166)(unary_adding_operator . 167))
+ ((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))
nil
((attribute_reference . 51)(name . 1034)(qualified_expression .
54)(selected_component . 55))
nil
@@ -3849,7 +3894,7 @@
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name .
186)(primary . 157)(qualified_expression . 54)(range . 1035)(selected_component
. 55)(simple_expression . 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))
((attribute_reference . 51)(name . 1034)(qualified_expression .
54)(selected_component . 55))
nil
((aspect_specification_opt . 1031))
@@ -3898,7 +3943,7 @@
nil
((attribute_reference . 51)(name . 981)(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 . 764)(selected_component . 55)(simple_expression .
765)(subtype_indication . 766)(term . 165)(term_list .
166)(unary_adding_operator . 167))
+ ((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
nil
nil
@@ -3915,29 +3960,29 @@
nil
((identifier_opt . 963))
((case_statement_alternative . 961)(case_statement_alternative_list .
962))
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 959)(if_statement . 640)(iteration_scheme
. 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma .
645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement
. 64 [...]
+ ((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
. 64 [...]
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))
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
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))
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 952)(if_statement . 640)(iteration_scheme
. 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma .
645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement
. 64 [...]
+ ((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
. 64 [...]
nil
nil
((aliased_opt . 951))
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
- ((accept_statement . 671)(delay_alternative . 672)(delay_statement .
945)(select_alternative . 947))
+ ((accept_statement . 670)(delay_alternative . 671)(delay_statement .
945)(select_alternative . 947))
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
((delay_alternative . 944)(delay_statement . 945))
nil
nil
@@ -3961,12 +4006,12 @@
nil
((accept_statement . 1163)(delay_alternative . 1164)(delay_statement .
945))
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
((constant_opt . 1155))
nil
nil
@@ -4022,7 +4067,7 @@
((aspect_specification_opt . 1118))
nil
((attribute_reference . 51)(name . 1117)(qualified_expression .
54)(selected_component . 55))
- ((attribute_reference . 51)(name . 737)(qualified_expression .
54)(selected_component . 55)(subtype_indication . 1116))
+ ((attribute_reference . 51)(name . 736)(qualified_expression .
54)(selected_component . 55)(subtype_indication . 1116))
nil
((direct_name . 1114)(direct_name_opt . 1115))
nil
@@ -4068,9 +4113,9 @@
((actual_parameter_part . 91)(aspect_specification_opt . 1081))
nil
nil
- ((access_definition . 1075)(attribute_reference .
51)(component_definition . 1078)(name . 737)(null_exclusion_opt .
212)(qualified_expression . 54)(selected_component . 55)(subtype_indication .
1077))
+ ((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 . 737)(null_exclusion_opt .
212)(qualified_expression . 54)(selected_component . 55)(subtype_indication .
1077))
+ ((access_definition . 1075)(attribute_reference .
51)(component_definition . 1076)(name . 736)(null_exclusion_opt .
212)(qualified_expression . 54)(selected_component . 55)(subtype_indication .
1077))
nil
((actual_parameter_part . 91))
nil
@@ -4088,9 +4133,9 @@
nil
((actual_parameter_part . 91))
nil
- ((attribute_reference . 51)(name . 1232)(qualified_expression .
54)(selected_component . 55))
+ ((attribute_reference . 51)(name . 1231)(qualified_expression .
54)(selected_component . 55))
nil
- ((access_definition . 1230)(attribute_reference . 51)(name .
737)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component .
55)(subtype_indication . 1231))
+ ((access_definition . 1229)(attribute_reference . 51)(name .
736)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component .
55)(subtype_indication . 1230))
nil
nil
nil
@@ -4101,29 +4146,29 @@
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name .
154)(primary . 157)(qualified_expression . 54)(selected_component .
55)(simple_expression . 1226)(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 . 1225)(term . 165)(term_list .
166)(unary_adding_operator . 167))
nil
- ((attribute_reference . 51)(interface_list . 1225)(name .
798)(qualified_expression . 54)(selected_component . 55))
+ ((attribute_reference . 51)(interface_list . 1224)(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 . 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)(gen [...]
+ ((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)(gen [...]
nil
nil
nil
- ((attribute_reference . 51)(interface_list . 1221)(name .
798)(qualified_expression . 54)(selected_component . 55))
+ ((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)(gen [...]
+ ((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)(gen [...]
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(expression . 1217)(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 . 1216)(term . 165)(term_list .
166)(unary_adding_operator . 167))
+ ((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))
nil
nil
- ((enumeration_literal . 1215))
+ ((enumeration_literal . 1214))
nil
- ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name .
154)(primary . 157)(qualified_expression . 54)(selected_component .
55)(simple_expression . 1214)(term . 165)(term_list .
166)(unary_adding_operator . 167))
- ((access_definition . 1075)(attribute_reference .
51)(component_definition . 1213)(name . 737)(null_exclusion_opt .
212)(qualified_expression . 54)(selected_component . 55)(subtype_indication .
1077))
+ ((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
nil
nil
@@ -4132,8 +4177,8 @@
nil
nil
nil
- ((and_interface_list_opt . 1210))
- ((actual_parameter_part . 91)(and_interface_list_opt . 1207)(constraint
. 1208)(constraint_opt . 1209)(index_constraint . 806))
+ ((and_interface_list_opt . 1209))
+ ((actual_parameter_part . 91)(and_interface_list_opt . 1206)(constraint
. 1207)(constraint_opt . 1208)(index_constraint . 806))
nil
nil
nil
@@ -4153,16 +4198,16 @@
nil
((aspect_specification_opt . 128))
((entry_body_formal_part . 1196)(formal_part .
116)(parameter_profile_opt . 1197))
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 1194)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 6 [...]
+ ((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 . 6 [...]
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 1193)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 6 [...]
+ ((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 . 6 [...]
nil
nil
nil
nil
((identifier_opt . 1190))
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
((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))
nil
nil
@@ -4171,7 +4216,7 @@
nil
nil
nil
- ((access_definition . 1179)(attribute_reference . 51)(name .
737)(null_exclusion_opt . 212)(qualified_expression .
54)(return_subtype_indication . 1180)(selected_component .
55)(subtype_indication . 1181))
+ ((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))
nil
nil
nil
@@ -4179,11 +4224,11 @@
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
((identifier_opt . 1172))
((attribute_reference . 51)(exception_choice . 1171)(name .
939)(qualified_expression . 54)(selected_component . 55))
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
((attribute_reference . 51)(exception_choice .
937)(exception_choice_list . 1169)(name . 939)(qualified_expression .
54)(selected_component . 55))
nil
nil
@@ -4200,14 +4245,14 @@
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
nil
nil
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
nil
nil
@@ -4222,23 +4267,22 @@
nil
nil
nil
- ((attribute_reference . 51)(interface_list . 1250)(name .
798)(qualified_expression . 54)(selected_component . 55))
nil
nil
nil
nil
- ((variant_list . 1246)(variant . 1247))
+ ((variant_list . 1244)(variant . 1245))
nil
- ((aspect_specification_opt . 1244))
+ ((aspect_specification_opt . 1242))
nil
nil
nil
- ((real_range_specification_opt . 1241))
- ((identifier_opt . 1240))
+ ((real_range_specification_opt . 1239))
+ ((identifier_opt . 1238))
nil
nil
nil
- ((identifier_opt . 1237))
+ ((identifier_opt . 1235))
nil
nil
nil
@@ -4249,49 +4293,47 @@
nil
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)(gen [...]
nil
- ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name .
154)(primary . 157)(qualified_expression . 54)(selected_component .
55)(simple_expression . 1297)(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)(gen [...]
- 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)(gen [...]
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)(gen [...]
nil
nil
- ((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))
- ((aggregate . 151)(attribute_reference . 51)(expression . 1293)(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)(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 . 1291)(factor . 153)(name . 186)(primary .
157)(qualified_expression . 54)(range . 187)(selected_component .
55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_ [...]
- ((variant . 1290))
+ ((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))
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_ [...]
+ ((variant . 1287))
nil
- ((record_definition . 1287))
nil
+ ((record_definition . 1284))
nil
nil
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(expression .
184)(expression_opt . 1286)(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 .
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))
nil
- ((identifier_opt . 1284))
- ((identifier_opt . 1283))
+ ((identifier_opt . 1281))
+ ((identifier_opt . 1280))
nil
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(expression . 1278)(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 . 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))
nil
nil
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement . 638)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 647)(requeue_statement . 648)(selected_c [...]
+ ((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_c [...]
nil
nil
nil
@@ -4304,25 +4346,25 @@
nil
nil
nil
- ((aspect_specification_opt . 1304))
+ ((aspect_specification_opt . 1301))
nil
nil
nil
nil
- ((aspect_specification_opt . 1301))
+ ((aspect_specification_opt . 1298))
nil
nil
nil
nil
- ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name .
154)(primary . 157)(qualified_expression . 54)(selected_component .
55)(simple_expression . 1318)(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 . 1315)(term . 165)(term_list .
166)(unary_adding_operator . 167))
nil
nil
nil
- ((aspect_clause . 1010)(at_clause . 297)(component_declaration .
1011)(component_item . 1012)(component_list . 1013)(component_list_opt .
1316)(enumeration_representation_clause . 304)(identifier_list .
1015)(record_representation_clause . 328)(variant_part . 1016))
+ ((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))
nil
nil
- ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause
. 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations .
301)(declarative_part_opt . 1313)(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)(ge [...]
- ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition
. 1312)(factor . 153)(name . 875)(primary . 157)(qualified_expression .
54)(range . 764)(selected_component . 55)(simple_expression .
765)(subtype_indication . 766)(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 . 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)(ge [...]
+ ((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))
nil
nil
nil
@@ -4336,11 +4378,11 @@
nil
nil
nil
- ((accept_statement . 630)(assignment_statement .
631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement .
633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement .
636)(exit_statement . 637)(extended_return_statement .
638)(handled_sequence_of_statements . 1323)(if_statement .
640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name .
644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression .
54)(raise_statement . 6 [...]
- ((formal_part . 116)(parameter_profile_opt . 1322))
+ ((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 . 6 [...]
+ ((formal_part . 116)(parameter_profile_opt . 1319))
nil
nil
- ((identifier_opt . 1325))
+ ((identifier_opt . 1322))
nil
nil]))
"Parser table.")
diff --git a/ada-mode.el b/ada-mode.el
index 8f76749..3248e13 100644
--- a/ada-mode.el
+++ b/ada-mode.el
@@ -4,9 +4,10 @@
;;
;; Author: Stephen Leake <stephen_leake@member.fsf.org>
;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
-;; Keywords FIXME: languages, ada ELPA broken for multiple keywords
-;; Version: 5.1.5
-;; package-requires: ((wisi "1.0.5") (cl-lib "0.4") (emacs "24.2"))
+;; Keywords: languages
+;; ada
+;; Version: 5.1.6
+;; package-requires: ((wisi "1.0.6") (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)
@@ -167,7 +168,7 @@
(defun ada-mode-version ()
"Return Ada mode version."
(interactive)
- (let ((version-string "5.1.5"))
+ (let ((version-string "5.1.6"))
;; must match:
;; ada-mode.texi
;; README
@@ -304,31 +305,20 @@ Values defined by cross reference packages.")
;;;; keymap and menus
-(defvar ada-ret-binding nil)
-(defvar ada-lfd-binding nil)
+(defvar ada-ret-binding 'ada-indent-newline-indent)
+(defvar ada-lfd-binding 'newline-and-indent)
-(defun ada-case-activate-keys ()
+(defun ada-case-activate-keys (map)
"Modify the key bindings for all the keys that should adjust casing."
- (interactive)
- ;; We can't use post-self-insert-hook for \n, \r, because they are
- ;; not self-insert.
-
- ;; The 'or ...' is there to be sure that the value will not be
- ;; changed again when this is called more than once, since we
- ;; are rebinding the keys.
- (or ada-ret-binding (setq ada-ret-binding (key-binding "\C-M")))
- (or ada-lfd-binding (setq ada-lfd-binding (key-binding "\C-j")))
-
+ ;; we could just put these in the keymap below, but this is easier.
(mapc (function
(lambda(key)
(define-key
- ada-mode-map
+ map
(char-to-string key)
'ada-case-adjust-interactive)))
'( ?_ ?% ?& ?* ?( ?) ?- ?= ?+
?| ?\; ?: ?' ?\" ?< ?, ?. ?> ?/ ?\n 32 ?\r ))
-
- (define-key ada-mode-map [return] 'ada-case-adjust-interactive)
)
(defvar ada-mode-map
@@ -336,7 +326,7 @@ Values defined by cross reference packages.")
;; C-c <letter> are reserved for users
;; global-map has C-x ` 'next-error
- (define-key map [return] 'ada-indent-newline-indent)
+ (define-key map [return] 'ada-case-adjust-interactive)
(define-key map "\C-c`" 'ada-show-secondary-error)
(define-key map "\C-c;" (lambda () (error "use M-; instead"))) ;
comment-dwim
(define-key map "\C-c<" 'ada-goto-declaration-start)
@@ -352,9 +342,11 @@ Values defined by cross reference packages.")
(define-key map "\C-c\C-i" 'ada-indent-statement)
(define-key map "\C-c\C-m" 'ada-build-set-make)
(define-key map "\C-c\C-n" 'ada-next-statement-keyword)
+ (define-key map "\C-c\M-n" 'ada-next-placeholder)
(define-key map "\C-c\C-o" 'ada-find-other-file)
(define-key map "\C-c\M-o" 'ada-find-other-file-noset)
(define-key map "\C-c\C-p" 'ada-prev-statement-keyword)
+ (define-key map "\C-c\M-p" 'ada-prev-placeholder)
(define-key map "\C-c\C-q" 'ada-xref-refresh)
(define-key map "\C-c\C-r" 'ada-show-references)
(define-key map "\C-c\M-r" 'ada-build-run)
@@ -367,6 +359,8 @@ Values defined by cross reference packages.")
(define-key map "\C-c\M-y" 'ada-case-create-partial-exception)
(define-key map [C-down-mouse-3] 'ada-popup-menu)
+ (ada-case-activate-keys map)
+
map
) "Local keymap used for Ada mode.")
@@ -383,6 +377,7 @@ Values defined by cross reference packages.")
["Find and select project ..." ada-build-prompt-select-prj-file t]
["Select project ..." ada-prj-select t]
["Show project" ada-prj-show t]
+ ["Show project search path" ada-prj-show-path t]
)
("Build"
["Next compilation error" next-error t]
@@ -407,6 +402,8 @@ Values defined by cross reference packages.")
["Show overriding" ada-show-overriding t]
["Show overridden" ada-show-overridden t]
["Goto prev position" ada-goto-previous-pos t]
+ ["Next placeholder" ada-next-placeholder t]
+ ["Previous placeholder" ada-prev-placeholder t]
)
("Edit"
["Expand skeleton" ada-expand t]
@@ -426,6 +423,7 @@ Values defined by cross reference packages.")
["Adjust case at point" ada-case-adjust-at-point t]
["Adjust case region" ada-case-adjust-region t]
["Adjust case buffer" ada-case-adjust-buffer t]
+ ["Show casing files list" ada-case-show-files t]
)
("Misc"
["Show last parse error" ada-show-parse-error t]
@@ -433,7 +431,6 @@ Values defined by cross reference packages.")
["Refresh cross reference cache" ada-xref-refresh t]
["Reset parser" ada-reset-parser t]
)))
-(ada-case-activate-keys)
;; This doesn't need to be buffer-local because there can be only one
;; popup menu at a time.
@@ -515,6 +512,28 @@ Function is called with no arguments.")
(when ada-expand
(funcall ada-expand)))
+(defvar ada-next-placeholder nil
+ ;; skeleton function
+ "Function to call to goto next placeholder.")
+
+(defun ada-next-placeholder ()
+ "Goto next placeholder.
+Placeholders are defined by the skeleton backend."
+ (interactive)
+ (when ada-next-placeholder
+ (funcall ada-next-placeholder)))
+
+(defvar ada-prev-placeholder nil
+ ;; skeleton function
+ "Function to call to goto previous placeholder.")
+
+(defun ada-prev-placeholder ()
+ "Goto previous placeholder.
+Placeholders are defined by the skeleton backend."
+ (interactive)
+ (when ada-prev-placeholder
+ (funcall ada-prev-placeholder)))
+
;;;; abbrev, align
(defvar ada-mode-abbrev-table nil
@@ -632,9 +651,9 @@ Function is called with no arguments.")
"Function to scan a region, return a list of subprogram parameter
declarations (in inverse declaration order).
Function is called with two args BEGIN END (the region).
Each parameter declaration is represented by a list
-'((identifier ...) in-p out-p not-null-p access-p constant-p protected-p type
default)."
- ;; mode is 'in | out | in out | [not null] access [constant | protected]'
- ;; IMPROVEME: handle single-line trailing comments, or longer comments, in
paramlist?
+'((identifier ...) aliased-p in-p out-p not-null-p access-p constant-p
protected-p type default)."
+ ;; Summary of Ada syntax for a parameter specification:
+ ;; ... : [aliased] {[in] | out | in out | [null_exclusion] access [constant
| protected]} ...
)
(defun ada-scan-paramlist (begin end)
@@ -649,12 +668,14 @@ Each parameter declaration is represented by a list
len
(ident-len 0)
(type-len 0)
+ (aliased-p nil)
(in-p nil)
(out-p nil)
(not-null-p nil)
(access-p nil)
ident-col
colon-col
+ in-col
out-col
type-col
default-col)
@@ -676,18 +697,19 @@ Each parameter declaration is represented by a list
;; we align the defaults after the types that have defaults, not after
all types.
;; "constant", "protected" are treated as part of 'type'
- (when (nth 8 param)
+ (when (nth 9 param)
(setq type-len
(max type-len
- (+ (length (nth 7 param))
- (if (nth 5 param) 10 0); "constant "
- (if (nth 6 param) 10 0); protected
+ (+ (length (nth 8 param))
+ (if (nth 6 param) 10 0); "constant "
+ (if (nth 7 param) 10 0); protected
))))
- (setq in-p (or in-p (nth 1 param)))
- (setq out-p (or out-p (nth 2 param)))
- (setq not-null-p (or not-null-p (nth 3 param)))
- (setq access-p (or access-p (nth 4 param)))
+ (setq aliased-p (or aliased-p (nth 1 param)))
+ (setq in-p (or in-p (nth 2 param)))
+ (setq out-p (or out-p (nth 3 param)))
+ (setq not-null-p (or not-null-p (nth 4 param)))
+ (setq access-p (or access-p (nth 5 param)))
)
(let ((space-before-p (save-excursion (skip-chars-backward " \t") (not
(bolp))))
@@ -710,16 +732,19 @@ Each parameter declaration is represented by a list
;; compute columns.
(setq ident-col (current-column))
(setq colon-col (+ ident-col ident-len 1))
- (setq out-col (+ colon-col (if in-p 5 0))); ": in "
+ (setq in-col
+ (+ colon-col (if aliased-p 10 2))); ": aliased ..."
+ (setq out-col (+ in-col (if in-p 3 0))); ": [aliased] in "
(setq type-col
- (+ colon-col
+ (+ in-col
(cond
- (not-null-p 18); ": not null access "
- (access-p 9); ": access"
- ((and in-p out-p) 9); ": in out "
- (out-p 6); ": out "
- (in-p 5); ": in "
- (t 2)))); ": "
+ ;; 'not null' without access is part of the type
+ ((and not-null-p access-p) 16); ": [aliased] not null access "
+ (access-p 7); ": [aliased] access "
+ ((and in-p out-p) 7); ": [aliased] in out "
+ (in-p 3); ": [aliased] in "
+ (out-p 4); ": [aliased] out "
+ (t 0)))); ": [aliased] "
(setq default-col (+ 1 type-col type-len))
@@ -738,29 +763,42 @@ Each parameter declaration is represented by a list
(insert ": ")
(when (nth 1 param)
- (insert "in "))
+ (insert "aliased "))
+ (indent-to in-col)
(when (nth 2 param)
+ (insert "in "))
+
+ (when (nth 3 param)
(indent-to out-col)
(insert "out "))
- (when (nth 3 param)
- (insert "not null "))
+ (when (and (nth 4 param) ;; not null
+ (nth 5 param)) ;; access
+ (insert "not null access"))
- (when (nth 4 param)
- (insert "access "))
+ (when (and (not (nth 4 param)) ;; not null
+ (nth 5 param)) ;; access
+ (insert "access"))
(indent-to type-col)
- (when (nth 5 param)
- (insert "constant "))
+
+ (when (and (nth 4 param) ;; not null
+ (not (nth 5 param))) ;; access
+ (insert "not null "))
+
(when (nth 6 param)
+ (insert "constant "))
+
+ (when (nth 7 param)
(insert "protected "))
- (insert (nth 7 param)); type
- (when (nth 8 param); default
+ (insert (nth 8 param)); type
+
+ (when (nth 9 param); default
(indent-to default-col)
(insert ":= ")
- (insert (nth 8 param)))
+ (insert (nth 9 param)))
(if (zerop i)
(insert ")")
@@ -795,26 +833,29 @@ Each parameter declaration is represented by a list
(insert " : ")
(when (nth 1 param)
- (insert "in "))
+ (insert "aliased "))
(when (nth 2 param)
- (insert "out "))
+ (insert "in "))
(when (nth 3 param)
- (insert "not null "))
+ (insert "out "))
(when (nth 4 param)
- (insert "access "))
+ (insert "not null "))
(when (nth 5 param)
- (insert "constant "))
+ (insert "access "))
+
(when (nth 6 param)
+ (insert "constant "))
+ (when (nth 7 param)
(insert "protected "))
- (insert (nth 7 param)); type
+ (insert (nth 8 param)); type
- (when (nth 8 param); default
+ (when (nth 9 param); default
(insert " := ")
- (insert (nth 8 param)))
+ (insert (nth 9 param)))
(if (zerop i)
(if (= (char-after) ?\;)
@@ -848,14 +889,26 @@ Each parameter declaration is represented by a list
(defvar ada-case-full-exceptions '()
"Alist of words (entities) that have special casing, built from
-`ada-case-exception-file' full word exceptions. Indexed by
+project file casing file list full word exceptions. Indexed by
properly cased word; value is t.")
(defvar ada-case-partial-exceptions '()
"Alist of partial words that have special casing, built from
-`ada-case-exception-file' partial word exceptions. Indexed by
+project casing files list partial word exceptions. Indexed by
properly cased word; value is t.")
+(defun ada-case-show-files ()
+ "Show current casing files list."
+ (interactive)
+ (if (ada-prj-get 'casing)
+ (progn
+ (pop-to-buffer (get-buffer-create "*casing files*"))
+ (erase-buffer)
+ (dolist (file (ada-prj-get 'casing))
+ (insert (format "%s\n" file))))
+ (message "no casing files")
+ ))
+
(defun ada-case-save-exceptions (full-exceptions partial-exceptions file-name)
"Save FULL-EXCEPTIONS, PARTIAL-EXCEPTIONS to the file FILE-NAME."
(with-temp-file (expand-file-name file-name)
@@ -896,7 +949,7 @@ Return (cons full-exceptions partial-exceptions)."
(cons full-exceptions partial-exceptions))
;; else file not readable; might be a new project with no
- ;; exceptions yet, so just warn user, return empty pair
+ ;; exceptions yet, so just return empty pair
(message "'%s' is not a readable file." file-name)
'(nil . nil)
))
@@ -915,7 +968,7 @@ An item in both lists has the RESULT value."
(setq ada-case-partial-exceptions (ada-case-merge-exceptions
ada-case-partial-exceptions (cdr exceptions))))
(defun ada-case-read-all-exceptions ()
- "Read case exceptions from all files in `ada-case-exception-file',
+ "Read case exceptions from all files in project casing files,
replacing current values of `ada-case-full-exceptions',
`ada-case-partial-exceptions'."
(interactive)
(setq ada-case-full-exceptions '()
@@ -1232,7 +1285,7 @@ Optional PLIST defaults to `ada-prj-current-project'."
;; no project, just use default vars
;; must match code in ada-prj-default
- (cl-case plist
+ (cl-case prop
(ada_compiler ada-compiler)
(auto_case ada-auto-case)
(case_keyword ada-case-keyword)
@@ -1499,9 +1552,6 @@ Return new value of PROJECT."
project
))
-(defvar ada-project-search-path nil
- "Search path for finding Ada project files")
-
(defvar ada-select-prj-compiler nil
"Alist of functions to call for compiler specific project file selection.
Indexed by project variable ada_compiler.")
@@ -1549,7 +1599,6 @@ Indexed by project variable xref_tool.")
(ada-case-read-all-exceptions)
(setq compilation-search-path (ada-prj-get 'src_dir))
- (setq ada-project-search-path (ada-prj-get 'prj_dir))
(let ((func (cdr (assq (ada-prj-get 'ada_compiler)
ada-select-prj-compiler))))
(when func (funcall func)))
@@ -1571,6 +1620,16 @@ Indexed by project variable xref_tool.")
(interactive)
(message "current Emacs Ada mode project file: %s" ada-prj-current-file))
+(defvar ada-prj-show-path nil
+ ;; Supplied by compiler
+ "Function to show project search path used by compiler (and possibly xref
tool)."
+ )
+
+(defun ada-prj-show-path ()
+ (interactive)
+ (when ada-prj-show-path
+ (funcall ada-prj-show-path)))
+
(defvar ada-show-xref-tool-buffer nil
;; Supplied by xref tool
"Function to show process buffer used by xref tool."
@@ -1656,10 +1715,10 @@ In particular, character constants are set to have
string syntax."
"\\|\\(--\\)"; 4: comment start
)
end t)
- ;; The help for syntax-propertize-extend-region-functions
- ;; implies that 'start end' will always include whole lines, in
- ;; which case we don't need
- ;; syntax-propertize-extend-region-functions
+ ;; syntax-propertize-extend-region-functions is set to
+ ;; syntax-propertize-wholelines by default. We assume no
+ ;; coding standard will permit a character literal at the
+ ;; start of a line (not preceded by whitespace).
(cond
((match-beginning 1)
(put-text-property
@@ -1740,7 +1799,7 @@ found.")
(funcall ada-file-name-from-ada-name ada-name))
(defvar ada-ada-name-from-file-name nil
- ;; depends on ada-compiler, per-project
+ ;; supplied by compiler
"Function called with one parameter FILE-NAME, which is a library
unit name; it should return the Ada name that should be found in FILE-NAME.")
@@ -1760,6 +1819,7 @@ unit name; it should return the Ada name that should be
found in FILE-NAME.")
(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))
@@ -1832,6 +1892,30 @@ other file.")
(when ada-which-function
(funcall ada-which-function)))
+(defvar ada-on-context-clause nil
+ ;; supplied by indentation engine
+ "Function called with no parameters; it should return non-nil
+ if point is on a context clause.")
+
+(defun ada-on-context-clause ()
+ "See `ada-on-context-clause' variable."
+ (interactive)
+ (when ada-on-context-clause
+ (funcall ada-on-context-clause)))
+
+(defvar ada-goto-subunit-name nil
+ ;; supplied by indentation engine
+ "Function called with no parameters; if the current buffer
+ contains a subunit, move point to the subunit name (for
+ `ada-goto-declaration'), return t; otherwise leave point alone,
+ return nil.")
+
+(defun ada-goto-subunit-name ()
+ "See `ada-goto-subunit-name' variable."
+ (interactive)
+ (when ada-goto-subunit-name
+ (funcall ada-goto-subunit-name)))
+
(defun ada-add-log-current-function ()
"For `add-log-current-defun-function'; uses `ada-which-function'."
;; add-log-current-defun is typically called with point at the start
@@ -1936,18 +2020,23 @@ the other file."
(interactive "P")
(ada-check-current-project (buffer-file-name))
- (if mark-active
- (progn
- (setq ff-function-name (buffer-substring-no-properties (point) (mark)))
- (ff-get-file
- compilation-search-path
- (ada-file-name-from-ada-name ff-function-name)
- ada-spec-suffixes
- other-window)
- (deactivate-mark))
-
- ;; else use name at point
+ (cond
+ (mark-active
+ (setq ff-function-name (buffer-substring-no-properties (point) (mark)))
+ (ff-get-file
+ compilation-search-path
+ (ada-file-name-from-ada-name ff-function-name)
+ ada-spec-suffixes
+ other-window)
+ (deactivate-mark))
+
+ ((and (not (ada-on-context-clause))
+ (ada-goto-subunit-name))
+ (ada-goto-declaration other-window))
+
+ (t
(ff-find-other-file other-window)))
+ )
(defvar ada-operator-re
"\\+\\|-\\|/\\|\\*\\*\\|\\*\\|=\\|&\\|abs\\|mod\\|rem\\|and\\|not\\|or\\|xor\\|<=\\|<\\|>=\\|>"
@@ -1955,7 +2044,7 @@ the other file."
(defun ada-identifier-at-point ()
"Return the identifier around point, move point to start of
-identifier. May be an Ada identifier or operator function name."
+identifier. May be an Ada identifier or operator."
(when (ada-in-comment-p)
(error "Inside comment"))
@@ -1964,7 +2053,8 @@ identifier. May be an Ada identifier or operator
function name."
(skip-chars-backward "a-zA-Z0-9_<>=+\\-\\*/&")
- ;; Just in front of, or inside, a string => we could have an operator
+ ;; Just in front of, or inside, a string => we could have an
+ ;; operator function declaration.
(cond
((ada-in-string-p)
(cond
@@ -1983,7 +2073,7 @@ identifier. May be an Ada identifier or operator
function name."
(looking-at (concat "\"\\(" ada-operator-re "\\)\"")))
(setq identifier (concat "\"" (match-string-no-properties 1) "\"")))
- ((looking-at "[a-zA-Z0-9_]+")
+ ((looking-at "[a-zA-Z0-9_]+\\|[+\\-*/&=<>]")
(setq identifier (match-string-no-properties 0)))
(t
@@ -2095,18 +2185,18 @@ buffer in another window."
(when (null ada-xref-other-function)
(error "no cross reference information available"))
- (let ((target
- (funcall ada-xref-other-function
- (ada-identifier-at-point)
- (buffer-file-name)
- (line-number-at-pos)
- (1+ (current-column))
- )))
-
- (ada-goto-source (nth 0 target)
- (nth 1 target)
- (nth 2 target)
- other-window)
+ (let ((target
+ (funcall ada-xref-other-function
+ (ada-identifier-at-point)
+ (buffer-file-name)
+ (line-number-at-pos)
+ (1+ (current-column))
+ )))
+
+ (ada-goto-source (nth 0 target)
+ (nth 1 target)
+ (nth 2 target)
+ other-window)
))
(defvar ada-xref-parent-function nil
@@ -2426,7 +2516,8 @@ The paragraph is indented on the first line."
(not (looking-at "[ \t]*--")))
(error "Not inside comment"))
- (let* (indent from to
+ (let* ((inhibit-modification-hooks t) ;; don't run parser for font-lock;
comment text is exposed
+ indent from to
(opos (point-marker))
;; we bind `fill-prefix' here rather than in ada-mode because
;; setting it in ada-mode causes indent-region to use it for
@@ -2562,14 +2653,23 @@ The paragraph is indented on the first line."
"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
<type>;' and 'return ...;'
- ;; An indentation engine can, so a rule for this is added there
- "of[ \t]+reverse\\|"
- "of\\|"
+ ;; "return" can't distinguish between 'function ... return <type>;'
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"
@@ -2584,15 +2684,17 @@ The paragraph is indented on the first line."
(regexp-opt
(append
'("abort" "abs" "accept" "all"
- "and" "array" "at" "begin" "case" "declare" "delay" "delta"
+ ;; "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" "renames" "reverse"
+ "range" "record" "rem" "reverse"
"select" "separate" "task" "terminate"
"then" "when" "while" "xor")
(when (member ada-language-version '(ada95 ada2005 ada2012))
- '("abstract" "aliased" "requeue" "tagged" "until"))
+ ;; "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))
@@ -2602,6 +2704,12 @@ The paragraph is indented on the first line."
"\\>")
'(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
@@ -2615,33 +2723,10 @@ The paragraph is indented on the first line."
;; keywords followed by a name that should be in function-name-face if not
already fontified
(list (concat
- "\\<\\("
- "end"
- "\\)\\>[ \t]*"
+ "\\<\\(end\\)\\>[ \t]*"
ada-name-regexp "?")
'(1 font-lock-keyword-face) '(2 font-lock-function-name-face nil t))
- ;; Keywords followed by a name that could be a type or a function (generic
instantiation).
- (list (concat
- "\\<\\("
- "new"
- "\\)\\>[ \t]*"
- ada-name-regexp "?[ \t]*\\((\\)?")
- '(1 font-lock-keyword-face)
- '(2 (if (match-beginning 3)
- font-lock-function-name-face
- font-lock-type-face)
- nil t))
-
- ;; keywords followed by a name that should be in type-face if not already
fontified (for subtypes)
- ;; after "new" to handle "is new"
- (list (concat
- "\\<\\("
- "is"
- "\\)\\>[ \t]*"
- ada-name-regexp "?")
- '(1 font-lock-keyword-face) '(2 font-lock-type-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
@@ -2708,6 +2793,7 @@ The paragraph is indented on the first line."
(set (make-local-variable 'require-final-newline) t)
+ ;; 'font-lock-defaults' is a confusing name; it's buffer local
(setq font-lock-defaults
'(ada-font-lock-keywords
nil t
@@ -2751,6 +2837,8 @@ The paragraph is indented on the first line."
(easy-menu-add ada-mode-menu ada-mode-map)
+ (setq ada-case-strict (ada-prj-get 'case_strict))
+
(run-mode-hooks 'ada-mode-hook)
;; If global-font-lock is not enabled, ada-syntax-propertize is
diff --git a/ada-mode.info b/ada-mode.info
index 6e06826..78b9799 100644
--- a/ada-mode.info
+++ b/ada-mode.info
@@ -114,15 +114,28 @@ the distribution.
To see what version of Ada mode you have installed, invoke 'M-x
ada-mode-version'.
+ You may also want to install additional utilities:
+
* Menu:
+* Ada Reference Manual::
* gnatinspect::
+* gpr_query::
* Upgrading::
-File: ada-mode.info, Node: gnatinspect, Next: Upgrading, Prev:
Installation, Up: Installation
+File: ada-mode.info, Node: Ada Reference Manual, Next: gnatinspect, Up:
Installation
+
+2.1 Ada Reference Manual
+========================
+
+The ELPA package ada-ref-man includes the Ada Reference Manual and
+Annotated Ada Reference Manual in info format.
-2.1 gnatinspect
+
+File: ada-mode.info, Node: gnatinspect, Next: gpr_query, Prev:
Installation, Up: Installation
+
+2.2 gnatinspect
===============
Ada mode has experimental support for the new AdaCore cross reference
@@ -149,9 +162,22 @@ created by gnatinspect:
gcc -O2 -o sqlite3 shell.c sqlite3.c -ldl -lpthread
-File: ada-mode.info, Node: Upgrading, Prev: gnatinspect, Up: Installation
+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.2 Upgrading from previous versions
+2.4 Upgrading from previous versions
====================================
See the file NEWS for more details; here we summarize only important
@@ -259,12 +285,22 @@ is used to index several variables that point to the
cross-reference-tool-specific functions for corresponding Ada mode
operations.
- To use a cross reference tool other than gnatxref, you must write
+ 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':
+
+ (require 'gnat-inspect)
+ (require 'gpr-query)
+
+ To use 'gpr_query', the Ada code 'gpr_query.adb' must be compiled;
+see *note Installation::.
+
+ 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
-'ada-xref-tool' and the indirection variables. This has already been
-done for 'gnatinspect'; set 'ada-xref-tool' to ''gnat_inspect'.
+'ada-xref-tool' and the indirection variables.
- See 'ada-gnat-xref.el' and 'gnat-inspect.el' for examples.
+ See 'ada-gnat-xref.el', 'gnat-inspect.el', 'gpr-query.el' for
+examples.
File: ada-mode.info, Node: Other customization, Prev: Other cross-reference,
Up: Customization
@@ -1452,7 +1488,7 @@ specifies the casing of one word or word fragment. If an
exception is
defined in multiple files, the first occurrence is used.
If the word starts with an asterisk ('*'), it defines the casing of a
-word fragemnt (or "substring"); part of a word between two underscores
+word fragment (or "substring"); part of a word between two underscores
or word boundary.
For example:
@@ -2416,44 +2452,46 @@ Tag Table:
Node: Top945
Node: Overview2576
Node: Installation3787
-Node: gnatinspect4675
-Node: Upgrading5672
-Node: Customization6246
-Node: Non-standard file names6728
-Node: Other compiler8569
-Node: Other cross-reference9148
-Node: Other customization9867
-Node: Compiling Executing12337
-Node: Compile commands13072
-Node: Compiling Examples15810
-Node: No project files16642
-Node: Set compiler options22008
-Node: Set source search path23970
-Node: Use GNAT project file26423
-Node: Use multiple GNAT project files29197
-Node: Use a Makefile31917
-Node: Compiler errors33232
-Node: Project files34049
-Node: Project file overview35076
-Node: Project file variables36604
-Node: Moving Through Ada Code40234
-Node: Identifier completion42933
-Node: Indentation43895
-Node: Statement skeletons47947
-Node: Aligning code49732
-Node: Automatic casing50677
-Node: Comment Handling53381
-Node: Key summary53900
-Node: Developer overview56527
-Node: Directory structure56867
-Node: Package organization60353
-Node: Ada mode60588
-Node: gpr mode62784
-Node: GNAT core63067
-Node: Wisi64013
-Node: OpenToken64980
-Node: ELPA65582
-Node: GNU Free Documentation License66192
-Node: Index91353
+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
End Tag Table
diff --git a/ada-mode.texi b/ada-mode.texi
index 06e0d41..730b06a 100644
--- a/ada-mode.texi
+++ b/ada-mode.texi
@@ -26,11 +26,7 @@ developing GNU and promoting software freedom.''
@titlepage
@sp 10
-@title Ada Mode
-@sp 2
-@subtitle An Emacs major mode for programming in Ada
-@subtitle Ada Mode Version 5.1.5
-@sp 2
+@title Ada Mode Version 5.1.6
@page
@vskip 0pt plus 1filll
@insertcopying
@@ -121,12 +117,21 @@ in the distribution.
To see what version of Ada mode you have installed, invoke @kbd{M-x
ada-mode-version}.
+You may also want to install additional utilities:
+
@menu
+* Ada Reference Manual::
* gnatinspect::
+* gpr_query::
* Upgrading::
@end menu
-@node gnatinspect, Upgrading, Installation, Installation
+@node Ada Reference Manual
+@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
@@ -156,7 +161,18 @@ cd gnatcoll-1.7w-src/src/sqlite/amalgamation/
gcc -O2 -o sqlite3 shell.c sqlite3.c -ldl -lpthread
@end example
-@node Upgrading, , gnatinspect, Installation
+@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
See the file NEWS for more details; here we summarize only important
@@ -260,13 +276,25 @@ The project variable @code{ada_xref} (default elisp
variable
the cross-reference-tool-specific functions for corresponding Ada mode
operations.
-To use a cross reference tool other than gnatxref, you must write
+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}:
+
+@example
+(require 'gnat-inspect)
+(require 'gpr-query)
+@end example
+
+To use @file{gpr_query}, the Ada code @file{gpr_query.adb} must be
+compiled; see @ref{Installation}.
+
+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. This has already
-been done for @code{gnatinspect}; set @code{ada-xref-tool} to
-@code{'gnat_inspect}.
+@code{ada-xref-tool} and the indirection variables.
-See @file{ada-gnat-xref.el} and @file{gnat-inspect.el} for examples.
+See @file{ada-gnat-xref.el}, @file{gnat-inspect.el},
+@file{gpr-query.el} for examples.
@node Other customization, , Other cross-reference, Customization
@section Other customization
@@ -1543,7 +1571,7 @@ file specifies the casing of one word or word fragment.
If an
exception is defined in multiple files, the first occurrence is used.
If the word starts with an asterisk (@code{*}), it defines the casing
-of a word fragemnt (or ``substring''); part of a word between two
+of a word fragment (or ``substring''); part of a word between two
underscores or word boundary.
For example:
diff --git a/ada-ref-man.el b/ada-ref-man.el
new file mode 100755
index 0000000..6344056
--- /dev/null
+++ b/ada-ref-man.el
@@ -0,0 +1,12 @@
+;;; ada-ref-man.el --- Ada Reference Manual 2012
+;;
+;;; Copyright (C) 2014 Free Software Foundation, Inc.
+;;
+;; Author: Stephen Leake <stephen_leake@member.fsf.org>
+;; Maintainer: Stephen Leake <stephen_leake@member.fsf.org>
+;; Keywords: languages
+;; ada
+;; Version: 2012.0
+;; url: http://stephe-leake.org/ada/arm.html
+;;
+;; (Gnu ELPA requires single digits between dots in versions)
diff --git a/ada-skel.el b/ada-skel.el
index a6216c1..48e6b32 100644
--- a/ada-skel.el
+++ b/ada-skel.el
@@ -145,7 +145,7 @@ This could end in a token recognized by `ada-skel-expand'."
(define-skeleton ada-skel-for
"Insert a for loop statement with an optional name (from `str')."
()
- str & ":\n"
+ str & " :\n"
"for " _ " loop\n"
"end loop " str | -1 ";")
@@ -429,6 +429,15 @@ it is a name, and use the word before that as the token."
(goto-char pos)
nil)))))
+(defun ada-skel-next-placeholder ()
+ "Move point to after next placeholder."
+ (skip-syntax-forward "^!")
+ (skip-syntax-forward "w!"))
+
+(defun ada-skel-prev-placeholder ()
+ "Move point to after previous placeholder."
+ (skip-syntax-backward "^!"))
+
(defun ada-skel-setup ()
"Setup a buffer for ada-skel."
(add-hook 'skeleton-end-hook 'ada-indent-statement nil t)
@@ -441,6 +450,8 @@ it is a name, and use the word before that as the token."
(provide 'ada-skel)
(setq ada-expand 'ada-skel-expand)
+(setq ada-next-placeholder 'ada-skel-next-placeholder)
+(setq ada-prev-placeholder 'ada-skel-prev-placeholder)
(add-hook 'ada-mode-hook 'ada-skel-setup)
diff --git a/ada-wisi.el b/ada-wisi.el
index d86e93a..443ad66 100644
--- a/ada-wisi.el
+++ b/ada-wisi.el
@@ -33,12 +33,19 @@
(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
@@ -49,24 +56,27 @@
statement-end
statement-other
statement-start
- type
))
;;;; indentation
(defun ada-wisi-current-indentation ()
- "Return indentation of current line, incremented by 1 if starts with
open-paren."
+ "Return indentation appropriate for point on current line:
+if not in paren, beginning of line
+if in paren, pos following paren."
(if (not (ada-in-paren-p))
(current-indentation)
- (save-excursion
- (back-to-indentation)
- (let ((cache (wisi-get-cache (point))))
- (if (and cache
- (eq 'open-paren (wisi-cache-class cache)))
- (1+ (current-column))
- (current-column))
- ))))
+ (or
+ (save-excursion
+ (let ((line (line-number-at-pos)))
+ (ada-goto-open-paren 1)
+ (when (= line (line-number-at-pos))
+ (current-column))))
+ (save-excursion
+ (back-to-indentation)
+ (current-column)))
+ ))
(defun ada-wisi-indent-cache (offset cache)
"Return indentation of OFFSET plus indentation of line containing point.
Point must be at CACHE."
@@ -295,6 +305,10 @@ point must be on CACHE. PREV-TOKEN is the token before the
one being indented."
(close-paren (wisi-indent-paren 0))
+ (keyword
+ ;; defer to after-cache)
+ nil)
+
(name
(cl-case (wisi-cache-nonterm cache)
((function_specification procedure_specification)
@@ -388,7 +402,7 @@ point must be on CACHE. PREV-TOKEN is the token before the
one being indented."
;; (Local_2 = 1)
(+ (ada-wisi-current-indentation) ada-indent-broken))
- (name
+ ((IDENTIFIER selected_component name)
;; test/indent.ads
;; CSCL_Type'
;; (
@@ -408,6 +422,12 @@ point must be on CACHE. PREV-TOKEN is the token before the
one being indented."
;; (1.0),
;; B => Integer
;; (2.0));
+ ;;
+ ;; test/ada_mode-parens.adb
+ ;; Local_12 : Local_11_Type
+ ;; := Local_11_Type'(A => Integer
+ ;; (1.0),
+ ;; indenting (1.0)
(+ (ada-wisi-current-indentation) ada-indent-broken))
(t
@@ -497,6 +517,13 @@ point must be on CACHE. PREV-TOKEN is the token before the
one being indented."
;; 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'"
@@ -544,6 +571,12 @@ point must be on CACHE. PREV-TOKEN is the token before the
one being indented."
;; 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)))
@@ -598,6 +631,12 @@ point must be on CACHE. PREV-TOKEN is the token before the
one being indented."
(+ (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
@@ -683,9 +722,6 @@ point must be on CACHE. PREV-TOKEN is the token before the
one being indented."
nil)
))))
))
-
- (type
- (ada-wisi-indent-containing ada-indent-broken cache t))
))
))
@@ -701,7 +737,7 @@ cached token, return new indentation for point."
0)
(t
- (while (memq (wisi-cache-class cache) '(name name-paren type))
+ (while (memq (wisi-cache-class cache) '(keyword name name-paren type))
;; not useful for indenting
(setq cache (wisi-backward-cache)))
@@ -826,8 +862,24 @@ cached token, return new indentation for point."
(+ paren-column 1 ada-indent-broken))))
((return-1 return-2)
- ;; hanging. Intent relative to line containing matching 'function'
- (ada-prev-statement-keyword)
+ ;; 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))
@@ -1135,11 +1187,12 @@ cached token, return new indentation for point."
(while (not end)
(setq cache (wisi-forward-cache))
(cl-case (wisi-cache-nonterm cache)
- (pragma nil)
- (use_clause nil)
+ (pragma (wisi-goto-end-1 cache))
+ (use_clause (wisi-goto-end-1 cache))
(with_clause
(when (not begin)
- (setq begin (point-at-bol))))
+ (setq begin (point-at-bol)))
+ (wisi-goto-end-1 cache))
(t
;; start of compilation unit
(setq end (point-at-bol))
@@ -1149,6 +1202,43 @@ cached token, return new indentation for point."
(cons begin end)
)))
+(defun ada-wisi-on-context-clause ()
+ "For `ada-on-context-clause'."
+
+ (save-excursion
+ (and (wisi-goto-statement-start)
+ (memq (wisi-cache-nonterm (wisi-goto-statement-start)) '(use_clause
with_clause)))))
+
+(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))
+ ))
+
(defun ada-wisi-goto-declaration-start ()
"For `ada-goto-declaration-start', which see.
Also return cache at start."
@@ -1296,6 +1386,7 @@ Also return cache at start."
(let (token
text
identifiers
+ (aliased-p nil)
(in-p nil)
(out-p nil)
(not-null-p nil)
@@ -1322,10 +1413,11 @@ Also return cache at start."
(skip-syntax-forward " ")
(setq type-begin (point))
(save-excursion
- (while (member (car (wisi-forward-token)) '(IN OUT NOT NULL ACCESS
CONSTANT PROTECTED))
+ (while (member (car (wisi-forward-token)) '(ALIASED IN OUT NOT NULL
ACCESS CONSTANT PROTECTED))
(skip-syntax-forward " ")
(setq type-begin (point)))))
+ ((equal token 'ALIASED) (setq aliased-p t))
((equal token 'IN) (setq in-p t))
((equal token 'OUT) (setq out-p t))
((and (not type-end)
@@ -1343,26 +1435,25 @@ Also return cache at start."
(wisi-forward-find-token 'SEMICOLON end t))
((member token '(SEMICOLON RIGHT_PAREN))
- (if (equal token 'RIGHT_PAREN)
- ;; all done
- (progn
- (setq done t)
- (when (not type-end) (setq type-end (1- (point))))
- (when default-begin (setq default (buffer-substring-no-properties
default-begin (1- (point)))))
- )
- ;; else semicolon - one param done
- (when (not type-end) (setq type-end (1- (point))))
- (when default-begin (setq default (buffer-substring-no-properties
default-begin (1- (point)))))
- )
+ (when (not type-end)
+ (setq type-end (save-excursion (backward-char 1)
(skip-syntax-backward " ") (point))))
(setq type (buffer-substring-no-properties type-begin type-end))
+
+ (when default-begin
+ (setq default (buffer-substring-no-properties default-begin (1-
(point)))))
+
+ (when (equal token 'RIGHT_PAREN)
+ (setq done t))
+
(setq param (list (reverse identifiers)
- in-p out-p not-null-p access-p constant-p protected-p
+ aliased-p in-p out-p not-null-p access-p constant-p
protected-p
type default))
(if paramlist
(add-to-list 'paramlist param)
(setq paramlist (list param)))
(setq identifiers nil
+ aliased-p nil
in-p nil
out-p nil
not-null-p nil
@@ -1434,7 +1525,7 @@ Also return cache at start."
(setq result (ada-wisi-which-function-1 "protected" t)))
((subprogram_declaration
- subprogram_specification ;; after 'generic'
+ generic_subprogram_declaration ;; after 'generic'
null_procedure_declaration)
(setq result (ada-wisi-which-function-1
(wisi-cache-text (wisi-forward-find-token '(FUNCTION
PROCEDURE) (point-max)))
@@ -1457,7 +1548,7 @@ Also return cache at start."
(interactive)
(define-key ada-mode-map "\M-e" 'wisi-show-parse-error)
(define-key ada-mode-map "\M-h" 'wisi-show-containing-or-previous-cache)
- (define-key ada-mode-map "\M-i" 'wisi-goto-end)
+ (define-key ada-mode-map "\M-i" 'wisi-goto-statement-end)
(define-key ada-mode-map "\M-j" 'wisi-show-cache)
(define-key ada-mode-map "\M-k" 'wisi-show-token)
)
@@ -1476,58 +1567,80 @@ Also return cache at start."
;; Handle escaped quotes in strings
(setq wisi-string-quote-escape-doubled t)
- ;; Handle bracket notation for non-ascii characters in strings. This
- ;; is actually more forgiving than that; it will treat
- ;; '"foo["bar"]baz" as a single string. But that will be caught by
- ;; the compiler, so it's ok for us.
- (setq wisi-string-quote-escape '(?\" . ?\[ ))
-
(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.
- (font-lock-add-keywords 'ada-mode
- ;; use keyword cache to distinguish between 'function ... return <type>;'
and 'return ...;'
+ ;;
+ ;; 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\\|"
+ "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 (if (eq (when (not (ada-in-string-or-comment-p))
- (wisi-validate-cache (match-end 2))
- (and (wisi-get-cache (match-beginning 2))
- (wisi-cache-class (wisi-get-cache (match-beginning
2)))))
- 'type)
- font-lock-type-face
- 'default)
- nil t)
- )))
+ '(2 (ada-wisi-face) nil t)
+ ))
+ nil ;; add at start of list, so these have precedence
+ )
- (when global-font-lock-mode
- ;; ensure the modified keywords are applied
- (font-lock-refresh-defaults))
)
(add-hook 'ada-mode-hook 'ada-wisi-setup)
(setq ada-fix-context-clause 'ada-wisi-context-clause)
-(setq ada-goto-declaration-start 'ada-wisi-goto-declaration-start)
(setq ada-goto-declaration-end 'ada-wisi-goto-declaration-end)
+(setq ada-goto-declaration-start 'ada-wisi-goto-declaration-start)
(setq ada-goto-declarative-region-start
'ada-wisi-goto-declarative-region-start)
-(setq ada-goto-end 'wisi-goto-end)
+(setq ada-goto-end 'wisi-goto-statement-end)
+(setq ada-goto-subunit-name 'ada-wisi-goto-subunit-name)
(setq ada-in-paramlist-p 'ada-wisi-in-paramlist-p)
(setq ada-indent-statement 'wisi-indent-statement)
(setq ada-make-subprogram-body 'ada-wisi-make-subprogram-body)
(setq ada-next-statement-keyword 'wisi-forward-statement-keyword)
+(setq ada-on-context-clause 'ada-wisi-on-context-clause)
(setq ada-prev-statement-keyword 'wisi-backward-statement-keyword)
(setq ada-reset-parser 'wisi-invalidate-cache)
(setq ada-scan-paramlist 'ada-wisi-scan-paramlist)
diff --git a/gnat-core.el b/gnat-core.el
index dad377a..b0449ee 100644
--- a/gnat-core.el
+++ b/gnat-core.el
@@ -56,6 +56,18 @@
project))
+(defun gnat-prj-show-path ()
+ "For `ada-prj-show-path'."
+ (interactive)
+ (if (ada-prj-get 'prj_dir)
+ (progn
+ (pop-to-buffer (get-buffer-create "*GNAT project search path*"))
+ (erase-buffer)
+ (dolist (file (ada-prj-get 'prj_dir))
+ (insert (format "%s\n" file))))
+ (message "no GNAT project search path files")
+ ))
+
(defun gnat-prj-parse-emacs-one (name value project)
"Handle gnat-specific Emacs Ada project file settings.
Return new PROJECT if NAME recognized, nil otherwise.
diff --git a/gnat-inspect.el b/gnat-inspect.el
index 1c05fa8..8017879 100644
--- a/gnat-inspect.el
+++ b/gnat-inspect.el
@@ -495,7 +495,6 @@ Enable mode if ARG is positive"
(setq ada-make-package-body 'ada-gnat-make-package-body)
(add-hook 'ada-syntax-propertize-hook 'gnatprep-syntax-propertize)
- (add-hook 'ada-syntax-propertize-hook 'ada-gnat-syntax-propertize)
;; must be after indentation engine setup, because that resets the
;; indent function list.
@@ -519,7 +518,6 @@ Enable mode if ARG is positive"
(setq ada-make-package-body nil)
(setq ada-syntax-propertize-hook (delq 'gnatprep-syntax-propertize
ada-syntax-propertize-hook))
- (setq ada-syntax-propertize-hook (delq 'ada-gnat-syntax-propertize
ada-syntax-propertize-hook))
(setq ada-mode-hook (delq 'ada-gnat-inspect-setup ada-mode-hook))
(setq ada-xref-other-function nil)
diff --git a/gpr-grammar-wy.el b/gpr-grammar-wy.el
index d5e00cd..3cefbb1 100644
--- a/gpr-grammar-wy.el
+++ b/gpr-grammar-wy.el
@@ -74,7 +74,12 @@
(defconst gpr-grammar-wy--parse-table
(wisi-compile-grammar
'((AMPERSAND COLON COLON_EQUALS COMMA DOT EQUAL_GREATER QUOTE SEMICOLON
VERTICAL_BAR IDENTIFIER STRING_LITERAL ABSTRACT AGGREGATE CASE CONFIGURATION
END EXTERNAL EXTERNAL_AS_LIST FOR IS LEFT_PAREN LIBRARY NULL OTHERS PACKAGE
PROJECT RIGHT_PAREN STANDARD TYPE USE WHEN WITH )
- ((attribute_declaration
+ ((aggregate
+ ((LEFT_PAREN string_list RIGHT_PAREN )
+ (progn
+ (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)
@@ -131,10 +136,8 @@
((term ))
((expression AMPERSAND term )))
(external_value
- ((EXTERNAL LEFT_PAREN string_list RIGHT_PAREN )
- (wisi-statement-action 2 'open-paren 4 'close-paren))
- ((EXTERNAL_AS_LIST LEFT_PAREN string_list RIGHT_PAREN )
- (wisi-statement-action 2 'open-paren 4 'close-paren)))
+ ((EXTERNAL aggregate ))
+ ((EXTERNAL_AS_LIST aggregate )))
(identifier_opt
(())
((IDENTIFIER )))
@@ -182,36 +185,37 @@
(wisi-statement-action 1 'statement-start 3 'block-start 5 'block-end
7 'statement-end)
(wisi-containing-action 3 4))))
(string_expression
- ((string_primary ))
- ((string_expression AMPERSAND string_primary )))
+ ((string_primary )))
(string_primary
((STRING_LITERAL ))
((name ))
((external_value ))
((attribute_reference )))
(string_list
- ((string_expression ))
- ((string_list COMMA string_expression )))
+ ((expression ))
+ ((string_list COMMA expression )
+ (progn
+ (wisi-statement-action 2 'list-break)
+ (wisi-containing-action 2 3))))
(term
((string_expression ))
((LEFT_PAREN RIGHT_PAREN ))
- ((LEFT_PAREN string_list RIGHT_PAREN )
- (wisi-statement-action
- 1 'open-paren
- 3 'close-paren)))
+ ((aggregate )))
(typed_string_declaration
- ((TYPE IDENTIFIER IS LEFT_PAREN string_list RIGHT_PAREN SEMICOLON )
- (wisi-statement-action 1 'statement-start 4 'open-paren 6 'close-paren
7 'statement-end)))
+ ((TYPE IDENTIFIER IS aggregate SEMICOLON )
+ (progn
+ (wisi-statement-action 1 'statement-start 5 'statement-end)
+ (wisi-containing-action 1 4))))
(with_clause
((WITH string_list SEMICOLON ))))
[((default . error) (ABSTRACT . (context_clause_opt . 0)) (AGGREGATE .
(context_clause_opt . 0)) (CONFIGURATION . (context_clause_opt . 0)) (LIBRARY .
(context_clause_opt . 0)) (STANDARD . (context_clause_opt . 0)) (PROJECT .
(context_clause_opt . 0)) ($EOI . (context_clause_opt . 0)) (WITH . 7))
((default . error) ($EOI . (project_qualifier_opt . 1)) (PROJECT .
(project_qualifier_opt . 1)))
- ((default . error) (LIBRARY . 30) ($EOI . (project_qualifier_opt . 3))
(PROJECT . (project_qualifier_opt . 3)))
+ ((default . error) (LIBRARY . 34) ($EOI . (project_qualifier_opt . 3))
(PROJECT . (project_qualifier_opt . 3)))
((default . error) ($EOI . (project_qualifier_opt . 6)) (PROJECT .
(project_qualifier_opt . 6)))
((default . error) ($EOI . (project_qualifier_opt . 5)) (PROJECT .
(project_qualifier_opt . 5)))
((default . error) (IS . (identifier_opt . 0)) (IDENTIFIER . 16))
((default . error) ($EOI . (project_qualifier_opt . 2)) (PROJECT .
(project_qualifier_opt . 2)))
- ((default . error) (STRING_LITERAL . 17) (EXTERNAL . 18)
(EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 20))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 21))
((default . error) ($EOI . 15))
((default . error) (ABSTRACT . (context_clause_opt . 1)) (AGGREGATE .
(context_clause_opt . 1)) (CONFIGURATION . (context_clause_opt . 1)) (LIBRARY .
(context_clause_opt . 1)) (STANDARD . (context_clause_opt . 1)) (PROJECT .
(context_clause_opt . 1)) ($EOI . (context_clause_opt . 1)) (WITH . 7))
((default . error) (PROJECT . (project_qualifier_opt . 0)) ($EOI .
(project_qualifier_opt . 0)) (ABSTRACT . 1) (STANDARD . 6) (AGGREGATE . 2)
(LIBRARY . 4) (CONFIGURATION . 3))
@@ -220,141 +224,132 @@
((default . error) ($EOI . (project_declaration_opt . 0)) (PROJECT . 5))
((default . error) (WITH . (context_clause . 1)) (ABSTRACT .
(context_clause . 1)) (AGGREGATE . (context_clause . 1)) (CONFIGURATION .
(context_clause . 1)) (LIBRARY . (context_clause . 1)) (STANDARD .
(context_clause . 1)) (PROJECT . (context_clause . 1)) ($EOI . (context_clause
. 1)))
((default . error) ($EOI . accept) (WITH . accept) (WHEN . accept) (USE
. accept) (TYPE . accept) (STANDARD . accept) (RIGHT_PAREN . accept) (PROJECT .
accept) (PACKAGE . accept) (OTHERS . accept) (NULL . accept) (LIBRARY . accept)
(LEFT_PAREN . accept) (IS . accept) (FOR . accept) (EXTERNAL_AS_LIST . accept)
(EXTERNAL . accept) (END . accept) (CONFIGURATION . accept) (CASE . accept)
(AGGREGATE . accept) (ABSTRACT . accept) (STRING_LITERAL . accept) (IDENTIFIER
. accept) (VERTICAL_ [...]
- ((default . error) (IS . (identifier_opt . 1)) (RIGHT_PAREN .
(identifier_opt . 1)) (COMMA . (identifier_opt . 1)) (DOT . (identifier_opt .
1)) (AMPERSAND . (identifier_opt . 1)) (SEMICOLON . (identifier_opt . 1))
(QUOTE . (identifier_opt . 1)))
+ ((default . error) (RIGHT_PAREN . (identifier_opt . 1)) (COMMA .
(identifier_opt . 1)) (IS . (identifier_opt . 1)) (DOT . (identifier_opt . 1))
(AMPERSAND . (identifier_opt . 1)) (SEMICOLON . (identifier_opt . 1)) (QUOTE .
(identifier_opt . 1)))
((default . error) (RIGHT_PAREN . (string_primary . 0)) (COMMA .
(string_primary . 0)) (AMPERSAND . (string_primary . 0)) (SEMICOLON .
(string_primary . 0)))
- ((default . error) (LEFT_PAREN . 38))
- ((default . error) (LEFT_PAREN . 37))
+ ((default . error) (LEFT_PAREN . 43))
+ ((default . error) (LEFT_PAREN . 43))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . ( 41 (identifier_opt . 0))) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 21))
((default . error) (QUOTE . (attribute_prefix . 0)))
- ((default . error) (QUOTE . 36))
+ ((default . error) (RIGHT_PAREN . (term . 2)) (COMMA . (term . 2))
(AMPERSAND . (term . 2)) (SEMICOLON . (term . 2)))
+ ((default . error) (QUOTE . 40))
((default . error) (RIGHT_PAREN . (string_primary . 3)) (COMMA .
(string_primary . 3)) (AMPERSAND . (string_primary . 3)) (SEMICOLON .
(string_primary . 3)))
+ ((default . error) (SEMICOLON . (string_list . 0)) (RIGHT_PAREN .
(string_list . 0)) (COMMA . (string_list . 0)) (AMPERSAND . 39))
((default . error) (RIGHT_PAREN . (string_primary . 2)) (COMMA .
(string_primary . 2)) (AMPERSAND . (string_primary . 2)) (SEMICOLON .
(string_primary . 2)))
- ((default . error) (IS . (name . 0)) (COMMA . (name . 0)) (RIGHT_PAREN .
(name . 0)) (SEMICOLON . (name . 0)) (AMPERSAND . (name . 0)) (DOT . (name .
0)) (QUOTE . (name . 0)))
- ((default . error) (RIGHT_PAREN . (string_primary . 1)) (COMMA .
(string_primary . 1)) (AMPERSAND . (string_primary . 1)) (SEMICOLON .
(string_primary . 1)) (DOT . 35) (QUOTE . (attribute_prefix . 1)))
- ((default . error) (SEMICOLON . (string_list . 0)) (RIGHT_PAREN .
(string_list . 0)) (COMMA . (string_list . 0)) (AMPERSAND . 34))
+ ((default . error) (COMMA . (name . 0)) (RIGHT_PAREN . (name . 0)) (IS .
(name . 0)) (SEMICOLON . (name . 0)) (AMPERSAND . (name . 0)) (DOT . (name .
0)) (QUOTE . (name . 0)))
+ ((default . error) (RIGHT_PAREN . (string_primary . 1)) (COMMA .
(string_primary . 1)) (AMPERSAND . (string_primary . 1)) (SEMICOLON .
(string_primary . 1)) (DOT . 38) (QUOTE . (attribute_prefix . 1)))
+ ((default . error) (RIGHT_PAREN . (term . 0)) (COMMA . (term . 0))
(AMPERSAND . (term . 0)) (SEMICOLON . (term . 0)))
((default . error) (COMMA . (string_expression . 0)) (RIGHT_PAREN .
(string_expression . 0)) (SEMICOLON . (string_expression . 0)) (AMPERSAND .
(string_expression . 0)))
- ((default . error) (COMMA . 32) (SEMICOLON . 33))
- ((default . error) (IS . 31))
+ ((default . error) (COMMA . 36) (SEMICOLON . 37))
+ ((default . error) (COMMA . (expression . 0)) (RIGHT_PAREN . (expression
. 0)) (SEMICOLON . (expression . 0)) (AMPERSAND . (expression . 0)))
+ ((default . error) (IS . 35))
((default . error) ($EOI . (project_qualifier_opt . 4)) (PROJECT .
(project_qualifier_opt . 4)))
- ((default . error) (END . (declarative_items . 0)) (TYPE .
((declarative_items . 0) 51)) (IDENTIFIER . ((declarative_items . 0) 46))
(NULL . ((declarative_items . 0) 49)) (CASE . ((declarative_items . 0) 47))
(FOR . ((declarative_items . 0) 48)) (PACKAGE . ((declarative_items . 0) 50)))
- ((default . error) (STRING_LITERAL . 17) (EXTERNAL . 18)
(EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 20))
+ ((default . error) (END . (declarative_items . 0)) (TYPE .
((declarative_items . 0) 57)) (IDENTIFIER . ((declarative_items . 0) 52))
(NULL . ((declarative_items . 0) 55)) (CASE . ((declarative_items . 0) 53))
(FOR . ((declarative_items . 0) 54)) (PACKAGE . ((declarative_items . 0) 56)))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 21))
((default . error) (WITH . (with_clause . 0)) (ABSTRACT . (with_clause .
0)) (AGGREGATE . (with_clause . 0)) (CONFIGURATION . (with_clause . 0))
(LIBRARY . (with_clause . 0)) (STANDARD . (with_clause . 0)) (PROJECT .
(with_clause . 0)) ($EOI . (with_clause . 0)))
- ((default . error) (STRING_LITERAL . 17) (EXTERNAL . 18)
(EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (SEMICOLON .
(identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (RIGHT_PAREN .
(identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 20))
- ((default . error) (IDENTIFIER . 43))
- ((default . error) (IDENTIFIER . 42))
- ((default . error) (STRING_LITERAL . 17) (EXTERNAL . 18)
(EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 20))
- ((default . error) (STRING_LITERAL . 17) (EXTERNAL . 18)
(EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 20))
+ ((default . error) (IDENTIFIER . 50))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (SEMICOLON .
(identifier_opt . 0)) (COMMA . (identifier_opt . 0)) (RIGHT_PAREN .
(identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 21))
+ ((default . error) (IDENTIFIER . 48))
+ ((default . error) (SEMICOLON . (term . 1)) (AMPERSAND . (term . 1))
(COMMA . (term . 1)) (RIGHT_PAREN . (term . 1)))
+ ((default . error) (COMMA . 36) (RIGHT_PAREN . 47))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 21))
+ ((default . error) (AMPERSAND . (external_value . 1)) (SEMICOLON .
(external_value . 1)) (RIGHT_PAREN . (external_value . 1)) (COMMA .
(external_value . 1)))
+ ((default . error) (AMPERSAND . (external_value . 0)) (SEMICOLON .
(external_value . 0)) (RIGHT_PAREN . (external_value . 0)) (COMMA .
(external_value . 0)))
((default . error) ($EOI . (compilation_unit . 0)))
- ((default . error) (COMMA . 32) (RIGHT_PAREN . 71))
- ((default . error) (COMMA . 32) (RIGHT_PAREN . 70))
- ((default . error) (LEFT_PAREN . 69) (COMMA . (attribute_reference .
0)) (RIGHT_PAREN . (attribute_reference . 0)) (SEMICOLON . (attribute_reference
. 0)) (AMPERSAND . (attribute_reference . 0)))
+ ((default . error) (COMMA . (aggregate . 0)) (RIGHT_PAREN . (aggregate .
0)) (SEMICOLON . (aggregate . 0)) (AMPERSAND . (aggregate . 0)))
+ ((default . error) (LEFT_PAREN . 75) (COMMA . (attribute_reference .
0)) (RIGHT_PAREN . (attribute_reference . 0)) (SEMICOLON . (attribute_reference
. 0)) (AMPERSAND . (attribute_reference . 0)))
+ ((default . error) (SEMICOLON . (expression . 1)) (COMMA . (expression .
1)) (RIGHT_PAREN . (expression . 1)) (AMPERSAND . (expression . 1)))
((default . error) (IS . (name . 1)) (COMMA . (name . 1)) (RIGHT_PAREN .
(name . 1)) (SEMICOLON . (name . 1)) (AMPERSAND . (name . 1)) (DOT . (name .
1)) (QUOTE . (name . 1)))
- ((default . error) (SEMICOLON . (string_expression . 1)) (COMMA .
(string_expression . 1)) (RIGHT_PAREN . (string_expression . 1)) (AMPERSAND .
(string_expression . 1)))
- ((default . error) (AMPERSAND . 34) (RIGHT_PAREN . (string_list . 1))
(SEMICOLON . (string_list . 1)) (COMMA . (string_list . 1)))
- ((default . error) (COLON . 67) (COLON_EQUALS . 68))
+ ((default . error) (AMPERSAND . 39) (RIGHT_PAREN . (string_list . 1))
(SEMICOLON . (string_list . 1)) (COMMA . (string_list . 1)))
+ ((default . error) (COLON . 73) (COLON_EQUALS . 74))
((default . error) (DOT . (identifier_opt . 0)) (IS . (identifier_opt .
0)) (IDENTIFIER . 16))
- ((default . error) (IDENTIFIER . 65))
- ((default . error) (SEMICOLON . 64))
+ ((default . error) (IDENTIFIER . 71))
+ ((default . error) (SEMICOLON . 70))
((default . error) (IS . (identifier_opt . 0)) (IDENTIFIER . 16))
- ((default . error) (IDENTIFIER . 62))
+ ((default . error) (IDENTIFIER . 68))
((default . error) (WHEN . (simple_declarative_item . 2)) (END .
(simple_declarative_item . 2)) (IDENTIFIER . (simple_declarative_item . 2))
(CASE . (simple_declarative_item . 2)) (FOR . (simple_declarative_item . 2))
(NULL . (simple_declarative_item . 2)) (PACKAGE . (simple_declarative_item .
2)) (TYPE . (simple_declarative_item . 2)))
((default . error) (WHEN . (simple_declarative_item . 3)) (END .
(simple_declarative_item . 3)) (IDENTIFIER . (simple_declarative_item . 3))
(CASE . (simple_declarative_item . 3)) (FOR . (simple_declarative_item . 3))
(NULL . (simple_declarative_item . 3)) (PACKAGE . (simple_declarative_item .
3)) (TYPE . (simple_declarative_item . 3)))
((default . error) (WHEN . (declarative_items . 1)) (END .
(declarative_items . 1)) (IDENTIFIER . (declarative_items . 1)) (CASE .
(declarative_items . 1)) (FOR . (declarative_items . 1)) (NULL .
(declarative_items . 1)) (PACKAGE . (declarative_items . 1)) (TYPE .
(declarative_items . 1)))
- ((default . error) (END . 60) (TYPE . 51) (IDENTIFIER . 46) (NULL .
49) (CASE . 47) (FOR . 48) (PACKAGE . 50))
+ ((default . error) (END . 66) (TYPE . 57) (IDENTIFIER . 52) (NULL .
55) (CASE . 53) (FOR . 54) (PACKAGE . 56))
((default . error) (WHEN . (declarative_item . 2)) (END .
(declarative_item . 2)) (TYPE . (declarative_item . 2)) (PACKAGE .
(declarative_item . 2)) (NULL . (declarative_item . 2)) (FOR .
(declarative_item . 2)) (CASE . (declarative_item . 2)) (IDENTIFIER .
(declarative_item . 2)))
((default . error) (WHEN . (package_declaration . 0)) (END .
(package_declaration . 0)) (IDENTIFIER . (package_declaration . 0)) (CASE .
(package_declaration . 0)) (FOR . (package_declaration . 0)) (NULL .
(package_declaration . 0)) (PACKAGE . (package_declaration . 0)) (TYPE .
(package_declaration . 0)))
((default . error) (WHEN . (declarative_item . 0)) (END .
(declarative_item . 0)) (TYPE . (declarative_item . 0)) (PACKAGE .
(declarative_item . 0)) (NULL . (declarative_item . 0)) (FOR .
(declarative_item . 0)) (CASE . (declarative_item . 0)) (IDENTIFIER .
(declarative_item . 0)))
((default . error) (WHEN . (declarative_item . 1)) (END .
(declarative_item . 1)) (TYPE . (declarative_item . 1)) (PACKAGE .
(declarative_item . 1)) (NULL . (declarative_item . 1)) (FOR .
(declarative_item . 1)) (CASE . (declarative_item . 1)) (IDENTIFIER .
(declarative_item . 1)))
((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 16))
((default . error) (WHEN . (declarative_items . 2)) (TYPE .
(declarative_items . 2)) (PACKAGE . (declarative_items . 2)) (NULL .
(declarative_items . 2)) (FOR . (declarative_items . 2)) (CASE .
(declarative_items . 2)) (IDENTIFIER . (declarative_items . 2)) (END .
(declarative_items . 2)))
+ ((default . error) (IS . 83))
((default . error) (IS . 82))
- ((default . error) (IS . 81))
((default . error) (WHEN . (simple_declarative_item . 4)) (TYPE .
(simple_declarative_item . 4)) (PACKAGE . (simple_declarative_item . 4)) (NULL
. (simple_declarative_item . 4)) (FOR . (simple_declarative_item . 4)) (CASE .
(simple_declarative_item . 4)) (IDENTIFIER . (simple_declarative_item . 4))
(END . (simple_declarative_item . 4)))
- ((default . error) (USE . 80) (LEFT_PAREN . 79))
- ((default . error) (DOT . 35) (IS . 78))
- ((default . error) (IDENTIFIER . 77))
- ((default . error) (LEFT_PAREN . 73) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 20))
- ((default . error) (STRING_LITERAL . 72))
- ((default . error) (AMPERSAND . (external_value . 1)) (SEMICOLON .
(external_value . 1)) (RIGHT_PAREN . (external_value . 1)) (COMMA .
(external_value . 1)))
- ((default . error) (AMPERSAND . (external_value . 0)) (SEMICOLON .
(external_value . 0)) (RIGHT_PAREN . (external_value . 0)) (COMMA .
(external_value . 0)))
- ((default . error) (RIGHT_PAREN . 98))
- ((default . error) (STRING_LITERAL . 17) (EXTERNAL . 18)
(EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . ( 96 (identifier_opt . 0))) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 20))
- ((default . error) (AMPERSAND . 94) (SEMICOLON . 95))
- ((default . error) (SEMICOLON . (term . 0)) (AMPERSAND . ((term . 0)
34)))
- ((default . error) (SEMICOLON . (expression . 0)) (AMPERSAND .
(expression . 0)))
- ((default . error) (COLON_EQUALS . 93))
- ((default . error) (END . (case_items . 0)) (WHEN . ((case_items . 0)
90)))
- ((default . error) (STRING_LITERAL . 89))
- ((default . error) (LEFT_PAREN . 73) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 20))
- ((default . error) (END . (simple_declarative_items . 0)) (IDENTIFIER .
((simple_declarative_items . 0) 46)) (NULL . ((simple_declarative_items . 0)
49)) (CASE . ((simple_declarative_items . 0) 47)) (FOR .
((simple_declarative_items . 0) 48)))
- ((default . error) (LEFT_PAREN . 85))
- ((default . error) (SEMICOLON . 84))
+ ((default . error) (USE . 81) (LEFT_PAREN . 80))
+ ((default . error) (DOT . 38) (IS . 79))
+ ((default . error) (IDENTIFIER . 78))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 21))
+ ((default . error) (STRING_LITERAL . 76))
+ ((default . error) (RIGHT_PAREN . 96))
+ ((default . error) (AMPERSAND . 39) (SEMICOLON . 95))
+ ((default . error) (COLON_EQUALS . 94))
+ ((default . error) (END . (case_items . 0)) (WHEN . ((case_items . 0)
91)))
+ ((default . error) (STRING_LITERAL . 90))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 21))
+ ((default . error) (END . (simple_declarative_items . 0)) (IDENTIFIER .
((simple_declarative_items . 0) 52)) (NULL . ((simple_declarative_items . 0)
55)) (CASE . ((simple_declarative_items . 0) 53)) (FOR .
((simple_declarative_items . 0) 54)))
+ ((default . error) (LEFT_PAREN . 43))
+ ((default . error) (SEMICOLON . 85))
((default . error) ($EOI . (simple_project_declaration . 0)))
- ((default . error) (STRING_LITERAL . 17) (EXTERNAL . 18)
(EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (RIGHT_PAREN . (identifier_opt . 0)) (COMMA .
(identifier_opt . 0)) (QUOTE . (identifier_opt . 0)) (IDENTIFIER . 16)
(PROJECT . 20))
+ ((default . error) (SEMICOLON . 108))
((default . error) (END . (simple_declarative_items . 1)) (IDENTIFIER .
(simple_declarative_items . 1)) (CASE . (simple_declarative_items . 1)) (FOR .
(simple_declarative_items . 1)) (NULL . (simple_declarative_items . 1)))
- ((default . error) (END . 110) (IDENTIFIER . 46) (NULL . 49) (CASE .
47) (FOR . 48))
- ((default . error) (AMPERSAND . 94) (SEMICOLON . 109))
- ((default . error) (RIGHT_PAREN . 108))
- ((default . error) (VERTICAL_BAR . (discrete_choice . 0)) (EQUAL_GREATER
. (discrete_choice . 0)) (STRING_LITERAL . 104) (OTHERS . 105))
+ ((default . error) (END . 106) (IDENTIFIER . 52) (NULL . 55) (CASE .
53) (FOR . 54))
+ ((default . error) (AMPERSAND . 39) (SEMICOLON . 105))
+ ((default . error) (RIGHT_PAREN . 104))
+ ((default . error) (VERTICAL_BAR . (discrete_choice . 0)) (EQUAL_GREATER
. (discrete_choice . 0)) (STRING_LITERAL . 100) (OTHERS . 101))
((default . error) (END . (case_items . 1)) (WHEN . (case_items . 1)))
- ((default . error) (END . 102) (WHEN . 90))
- ((default . error) (LEFT_PAREN . 73) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 20))
- ((default . error) (LEFT_PAREN . 73) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (SEMICOLON .
(identifier_opt . 0)) (AMPERSAND . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 20))
+ ((default . error) (END . 98) (WHEN . 91))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 21))
((default . error) (WHEN . (simple_declarative_item . 0)) (TYPE .
(simple_declarative_item . 0)) (PACKAGE . (simple_declarative_item . 0)) (NULL
. (simple_declarative_item . 0)) (FOR . (simple_declarative_item . 0)) (CASE .
(simple_declarative_item . 0)) (IDENTIFIER . (simple_declarative_item . 0))
(END . (simple_declarative_item . 0)))
- ((default . error) (SEMICOLON . (term . 1)) (AMPERSAND . (term . 1)))
- ((default . error) (COMMA . 32) (RIGHT_PAREN . 99))
((default . error) (AMPERSAND . (attribute_reference . 1)) (SEMICOLON .
(attribute_reference . 1)) (RIGHT_PAREN . (attribute_reference . 1)) (COMMA .
(attribute_reference . 1)))
- ((default . error) (AMPERSAND . (term . 2)) (SEMICOLON . (term . 2)))
- ((default . error) (SEMICOLON . (expression . 1)) (AMPERSAND .
(expression . 1)))
- ((default . error) (AMPERSAND . 94) (SEMICOLON . 119))
- ((default . error) (CASE . 118))
+ ((default . error) (AMPERSAND . 39) (SEMICOLON . 114))
+ ((default . error) (CASE . 113))
((default . error) (WHEN . (case_items . 2)) (END . (case_items . 2)))
((default . error) (VERTICAL_BAR . (discrete_choice . 1)) (EQUAL_GREATER
. (discrete_choice . 1)))
((default . error) (VERTICAL_BAR . (discrete_choice . 2)) (EQUAL_GREATER
. (discrete_choice . 2)))
((default . error) (EQUAL_GREATER . (discrete_choice_list . 0))
(VERTICAL_BAR . (discrete_choice_list . 0)))
- ((default . error) (VERTICAL_BAR . 117) (EQUAL_GREATER . 116))
- ((default . error) (USE . 115))
+ ((default . error) (VERTICAL_BAR . 112) (EQUAL_GREATER . 111))
+ ((default . error) (USE . 110))
((default . error) (WHEN . (attribute_declaration . 0)) (END .
(attribute_declaration . 0)) (TYPE . (attribute_declaration . 0)) (PACKAGE .
(attribute_declaration . 0)) (NULL . (attribute_declaration . 0)) (FOR .
(attribute_declaration . 0)) (CASE . (attribute_declaration . 0)) (IDENTIFIER .
(attribute_declaration . 0)))
((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER . 16))
((default . error) (NULL . (simple_declarative_items . 2)) (FOR .
(simple_declarative_items . 2)) (CASE . (simple_declarative_items . 2))
(IDENTIFIER . (simple_declarative_items . 2)) (END . (simple_declarative_items
. 2)))
- ((default . error) (COMMA . 32) (RIGHT_PAREN . 113))
- ((default . error) (SEMICOLON . 125))
- ((default . error) (SEMICOLON . 124))
- ((default . error) (LEFT_PAREN . 73) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 20))
- ((default . error) (END . (declarative_items . 0)) (WHEN .
(declarative_items . 0)) (TYPE . ((declarative_items . 0) 51)) (IDENTIFIER .
((declarative_items . 0) 46)) (NULL . ((declarative_items . 0) 49)) (CASE .
((declarative_items . 0) 47)) (FOR . ((declarative_items . 0) 48)) (PACKAGE .
((declarative_items . 0) 50)))
- ((default . error) (EQUAL_GREATER . (discrete_choice . 0)) (VERTICAL_BAR
. (discrete_choice . 0)) (STRING_LITERAL . 104) (OTHERS . 105))
- ((default . error) (SEMICOLON . 120))
+ ((default . error) (WHEN . (typed_string_declaration . 0)) (END .
(typed_string_declaration . 0)) (IDENTIFIER . (typed_string_declaration . 0))
(CASE . (typed_string_declaration . 0)) (FOR . (typed_string_declaration . 0))
(NULL . (typed_string_declaration . 0)) (PACKAGE . (typed_string_declaration .
0)) (TYPE . (typed_string_declaration . 0)))
+ ((default . error) (SEMICOLON . 119))
+ ((default . error) (LEFT_PAREN . 20) (STRING_LITERAL . 17) (EXTERNAL .
18) (EXTERNAL_AS_LIST . 19) (DOT . (identifier_opt . 0)) (AMPERSAND .
(identifier_opt . 0)) (SEMICOLON . (identifier_opt . 0)) (QUOTE .
(identifier_opt . 0)) (IDENTIFIER . 16) (PROJECT . 21))
+ ((default . error) (END . (declarative_items . 0)) (WHEN .
(declarative_items . 0)) (TYPE . ((declarative_items . 0) 57)) (IDENTIFIER .
((declarative_items . 0) 52)) (NULL . ((declarative_items . 0) 55)) (CASE .
((declarative_items . 0) 53)) (FOR . ((declarative_items . 0) 54)) (PACKAGE .
((declarative_items . 0) 56)))
+ ((default . error) (EQUAL_GREATER . (discrete_choice . 0)) (VERTICAL_BAR
. (discrete_choice . 0)) (STRING_LITERAL . 100) (OTHERS . 101))
+ ((default . error) (SEMICOLON . 115))
((default . error) (WHEN . (simple_declarative_item . 1)) (TYPE .
(simple_declarative_item . 1)) (PACKAGE . (simple_declarative_item . 1)) (NULL
. (simple_declarative_item . 1)) (FOR . (simple_declarative_item . 1)) (CASE .
(simple_declarative_item . 1)) (IDENTIFIER . (simple_declarative_item . 1))
(END . (simple_declarative_item . 1)))
((default . error) (WHEN . (case_statement . 0)) (END . (case_statement
. 0)) (TYPE . (case_statement . 0)) (PACKAGE . (case_statement . 0)) (NULL .
(case_statement . 0)) (FOR . (case_statement . 0)) (CASE . (case_statement .
0)) (IDENTIFIER . (case_statement . 0)))
((default . error) (EQUAL_GREATER . (discrete_choice_list . 1))
(VERTICAL_BAR . (discrete_choice_list . 1)))
- ((default . error) (END . (case_item . 0)) (WHEN . (case_item . 0))
(TYPE . 51) (IDENTIFIER . 46) (NULL . 49) (CASE . 47) (FOR . 48) (PACKAGE
. 50))
- ((default . error) (AMPERSAND . 94) (SEMICOLON . 126))
+ ((default . error) (END . (case_item . 0)) (WHEN . (case_item . 0))
(TYPE . 57) (IDENTIFIER . 52) (NULL . 55) (CASE . 53) (FOR . 54) (PACKAGE
. 56))
+ ((default . error) (AMPERSAND . 39) (SEMICOLON . 120))
((default . error) (WHEN . (package_spec . 0)) (END . (package_spec .
0)) (TYPE . (package_spec . 0)) (PACKAGE . (package_spec . 0)) (NULL .
(package_spec . 0)) (FOR . (package_spec . 0)) (CASE . (package_spec . 0))
(IDENTIFIER . (package_spec . 0)))
- ((default . error) (WHEN . (typed_string_declaration . 0)) (END .
(typed_string_declaration . 0)) (IDENTIFIER . (typed_string_declaration . 0))
(CASE . (typed_string_declaration . 0)) (FOR . (typed_string_declaration . 0))
(NULL . (typed_string_declaration . 0)) (PACKAGE . (typed_string_declaration .
0)) (TYPE . (typed_string_declaration . 0)))
((default . error) (WHEN . (attribute_declaration . 1)) (IDENTIFIER .
(attribute_declaration . 1)) (CASE . (attribute_declaration . 1)) (FOR .
(attribute_declaration . 1)) (NULL . (attribute_declaration . 1)) (PACKAGE .
(attribute_declaration . 1)) (TYPE . (attribute_declaration . 1)) (END .
(attribute_declaration . 1)))]
[((compilation_unit . 8)(context_clause . 9)(context_clause_opt .
10)(simple_project_declaration . 11)(with_clause . 12))
nil
nil
nil
nil
- ((identifier_opt . 29))
+ ((identifier_opt . 33))
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_expression . 26)(string_primary .
27)(string_list . 28))
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 25)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(string_list . 31)(term . 32))
nil
((with_clause . 14))
((project_qualifier_opt . 13))
nil
nil
- ((project_declaration_opt . 39)(simple_project_declaration . 11))
- nil
- nil
- nil
- nil
- nil
- nil
+ ((project_declaration_opt . 46)(simple_project_declaration . 11))
nil
nil
nil
nil
+ ((aggregate . 45))
+ ((aggregate . 44))
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 25)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(string_list . 42)(term . 32))
nil
nil
nil
@@ -362,76 +357,73 @@
nil
nil
nil
- ((attribute_declaration . 52)(case_statement . 53)(declarative_item .
54)(declarative_items . 55)(package_declaration . 56)(package_spec .
57)(simple_declarative_item . 58)(typed_string_declaration . 59))
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_expression . 45)(string_primary .
27))
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_primary . 44))
nil
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_expression . 26)(string_primary .
27)(string_list . 41))
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_expression . 26)(string_primary .
27)(string_list . 40))
nil
nil
nil
nil
+ ((attribute_declaration . 58)(case_statement . 59)(declarative_item .
60)(declarative_items . 61)(package_declaration . 62)(package_spec .
63)(simple_declarative_item . 64)(typed_string_declaration . 65))
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 51)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(term . 32))
nil
nil
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(external_value . 26)(identifier_opt . 27)(name . 28)(string_expression .
29)(string_primary . 30)(term . 49))
nil
nil
- ((identifier_opt . 24)(name . 66))
nil
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 25)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(string_list . 42)(term . 32))
nil
- ((identifier_opt . 63))
nil
nil
nil
nil
- ((attribute_declaration . 52)(case_statement . 53)(declarative_item .
61)(package_declaration . 56)(package_spec . 57)(simple_declarative_item .
58)(typed_string_declaration . 59))
nil
nil
nil
nil
- ((identifier_opt . 83))
+ ((identifier_opt . 27)(name . 72))
nil
nil
+ ((identifier_opt . 69))
nil
nil
nil
nil
+ ((attribute_declaration . 58)(case_statement . 59)(declarative_item .
67)(package_declaration . 62)(package_spec . 63)(simple_declarative_item .
64)(typed_string_declaration . 65))
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(expression .
74)(external_value . 23)(identifier_opt . 24)(name . 25)(string_expression .
75)(string_primary . 27)(term . 76))
nil
nil
nil
+ ((identifier_opt . 84))
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_expression . 26)(string_primary .
27)(string_list . 97))
nil
nil
nil
nil
- ((case_item . 91)(case_items . 92))
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(expression .
88)(external_value . 23)(identifier_opt . 24)(name . 25)(string_expression .
75)(string_primary . 27)(term . 76))
- ((attribute_declaration . 52)(case_statement .
53)(simple_declarative_item . 86)(simple_declarative_items . 87))
nil
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 77)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(term . 32))
nil
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_expression . 26)(string_primary .
27)(string_list . 112))
nil
- ((attribute_declaration . 52)(case_statement .
53)(simple_declarative_item . 111))
nil
+ ((case_item . 92)(case_items . 93))
nil
- ((discrete_choice . 106)(discrete_choice_list . 107))
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 89)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(term . 32))
+ ((attribute_declaration . 58)(case_statement .
59)(simple_declarative_item . 87)(simple_declarative_items . 88))
+ ((aggregate . 86))
nil
- ((case_item . 103))
- ((attribute_prefix . 21)(attribute_reference . 22)(expression .
101)(external_value . 23)(identifier_opt . 24)(name . 25)(string_expression .
75)(string_primary . 27)(term . 76))
- ((attribute_prefix . 21)(attribute_reference . 22)(external_value .
23)(identifier_opt . 24)(name . 25)(string_expression . 75)(string_primary .
27)(term . 100))
nil
nil
nil
+ ((attribute_declaration . 58)(case_statement .
59)(simple_declarative_item . 107))
nil
nil
+ ((discrete_choice . 102)(discrete_choice_list . 103))
nil
+ ((case_item . 99))
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 97)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(term . 32))
nil
nil
nil
@@ -441,20 +433,20 @@
nil
nil
nil
- ((identifier_opt . 114))
nil
nil
+ ((identifier_opt . 109))
nil
nil
- ((attribute_prefix . 21)(attribute_reference . 22)(expression .
123)(external_value . 23)(identifier_opt . 24)(name . 25)(string_expression .
75)(string_primary . 27)(term . 76))
- ((attribute_declaration . 52)(case_statement . 53)(declarative_item .
54)(declarative_items . 122)(package_declaration . 56)(package_spec .
57)(simple_declarative_item . 58)(typed_string_declaration . 59))
- ((discrete_choice . 121))
nil
+ ((aggregate . 22)(attribute_prefix . 23)(attribute_reference .
24)(expression . 118)(external_value . 26)(identifier_opt . 27)(name .
28)(string_expression . 29)(string_primary . 30)(term . 32))
+ ((attribute_declaration . 58)(case_statement . 59)(declarative_item .
60)(declarative_items . 117)(package_declaration . 62)(package_spec .
63)(simple_declarative_item . 64)(typed_string_declaration . 65))
+ ((discrete_choice . 116))
nil
nil
nil
- ((attribute_declaration . 52)(case_statement . 53)(declarative_item .
61)(package_declaration . 56)(package_spec . 57)(simple_declarative_item .
58)(typed_string_declaration . 59))
nil
+ ((attribute_declaration . 58)(case_statement . 59)(declarative_item .
67)(package_declaration . 62)(package_spec . 63)(simple_declarative_item .
64)(typed_string_declaration . 65))
nil
nil
nil]))
diff --git a/gpr-mode.el b/gpr-mode.el
index cd9ddd6..1bf11c8 100644
--- a/gpr-mode.el
+++ b/gpr-mode.el
@@ -36,6 +36,7 @@
;; we reuse several ada-mode functions
(require 'ada-mode)
+(require 'cl-lib)
(defvar gpr-mode-map
(let ((map (make-sparse-keymap)))
@@ -77,8 +78,9 @@
["------" nil nil]
["Find and select project ..." ada-build-prompt-select-prj-file t]
["Select project ..." ada-prj-select t]
- ["Set as current project" gpr-set-as-project t]
+ ["Parse and select current file" gpr-set-as-project t]
["Show current project" ada-prj-show t]
+ ["Show project search path" ada-prj-show-path t]
["Next compilation error" next-error t]
["Show secondary error" ada-show-secondary-error t]
["Show last parse error" gpr-show-parse-error t]
@@ -208,6 +210,14 @@ of the package or project point is in or just after, or
nil.")
(defun gpr-set-as-project (&optional file)
"Set FILE (default current buffer file) as Emacs project file."
(interactive)
+ (save-some-buffers t)
+ ;; Kill sessions to catch changed env vars
+ ;; 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)))
(ada-select-prj-file (or file (buffer-file-name))))
@@ -237,7 +247,7 @@ of the package or project point is in or just after, or
nil.")
((?\_ . "w"))))
(gpr-set-ff-special-constructs)
- (setq ff-search-directories 'ada-project-search-path)
+ (setq ff-search-directories 'compilation-search-path);; includes project
search path
(set (make-local-variable 'add-log-current-defun-function)
'gpr-add-log-current-function)
diff --git a/gpr-mode.info b/gpr-mode.info
index 8313779..a001029 100644
--- a/gpr-mode.info
+++ b/gpr-mode.info
@@ -1,7 +1,7 @@
-This is ../gpr-mode.info, produced by makeinfo version 4.13 from
-../gpr-mode.texi.
+This is gpr-mode.info, produced by makeinfo version 5.2 from
+gpr-mode.texi.
-Copyright (C) 2013 Free Software Foundation, Inc.
+Copyright (C) 2013 Free Software Foundation, Inc.
Permission is granted to copy, distribute and/or modify this
document under the terms of the GNU Free Documentation License,
@@ -14,7 +14,6 @@ Copyright (C) 2013 Free Software Foundation, Inc.
(a) The FSF's Back-Cover Text is: "You have the freedom to copy and
modify this GNU manual. Buying copies from the FSF supports it in
developing GNU and promoting software freedom."
-
INFO-DIR-SECTION Emacs editing modes
START-INFO-DIR-ENTRY
* gpr mode: (gpr-mode). Emacs mode for editing and navigating gpr
files (gnat project files).
@@ -23,7 +22,7 @@ END-INFO-DIR-ENTRY
File: gpr-mode.info, Node: Top, Next: Overview, Prev: (dir), Up: (dir)
- Copyright (C) 2013 Free Software Foundation, Inc.
+Copyright (C) 2013 Free Software Foundation, Inc.
Permission is granted to copy, distribute and/or modify this
document under the terms of the GNU Free Documentation License,
@@ -55,8 +54,8 @@ File: gpr-mode.info, Node: Overview, Next: Installation,
Prev: Top, Up: Top
1 Overview
**********
-gpr files are the project files used by the GNAT compiler and
-associated tools. They describe search paths, compiler options, etc.
+gpr files are the project files used by the GNAT compiler and associated
+tools. They describe search paths, compiler options, etc.
*Note GNAT Project Manager: (gnat_ugn)GNAT Project Manager, for
general information on gpr files.
@@ -64,7 +63,7 @@ general information on gpr files.
The Emacs mode for gpr files helps the user in reading existing code
and facilitates writing new code.
- When you open a file with a file extension of `.gpr', Emacs will
+ When you open a file with a file extension of '.gpr', Emacs will
automatically load and activate gpr mode.
@@ -74,20 +73,20 @@ File: gpr-mode.info, Node: Installation, Next:
Customization, Prev: Overview,
**************
gpr mode is distributed in the Gnu ELPA package archive, bundled with
-Ada mode; it can be installed via `M-x list-packages' (*note Packages:
-(emacs)Packages.).
+Ada mode; it can be installed via 'M-x list-packages' (*note
+(emacs)Packages::).
gpr mode is also available as a separate distribution bundled with
Ada mode, from the Emacs Ada mode website
-`http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html'. The
+<http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html>. The
separate distribution may be more recent.
- For installing the separate distribution, see the `README' file in
+ For installing the separate distribution, see the 'README' file in
the distribution.
gpr mode does not have a separate version; it uses the Ada mode
-version number. To see what version of Ada mode you have installed, do
-`M-x ada-mode-version'.
+version number. To see what version of Ada mode you have installed, do
+'M-x ada-mode-version'.
File: gpr-mode.info, Node: Customization, Next: Moving Through Gpr Code,
Prev: Installation, Up: Top
@@ -96,36 +95,33 @@ File: gpr-mode.info, Node: Customization, Next: Moving
Through Gpr Code, Prev
***************
gpr mode uses the Ada mode indentation variables; they can be set via
-the menu `Ada | Customize' from an Ada mode buffer. Click on the
-`Help' button there for help on using customize.
+the menu 'Ada | Customize' from an Ada mode buffer. Click on the 'Help'
+button there for help on using customize.
To modify a specific variable, you can directly call the function
-`customize-variable'; just type `M-x customize-variable <RET>
+'customize-variable'; just type 'M-x customize-variable <RET>
VARIABLE-NAME <RET>').
Alternately, you can specify variable settings in the Emacs
-configuration file, `~/.emacs'. This file is coded in Emacs lisp, and
+configuration file, '~/.emacs'. This file is coded in Emacs lisp, and
the syntax to set a variable is the following:
(setq variable-name value)
Some general Emacs settings that are useful for gpr files:
-`delete-trailing-whitespace'
+'delete-trailing-whitespace'
Deletes space, tab at end of line and blank lines at end of buffer.
-
-`untabify'
+'untabify'
Deletes tab characters that have crept into the file.
-
-`indent-tabs-mode'
+'indent-tabs-mode'
Don't insert tab characters when indenting.
-
-`hippie-expand'
- Bind `hippie-expand' to a key; it expands the word before point,
+'hippie-expand'
+ Bind 'hippie-expand' to a key; it expands the word before point,
using words from current buffer, other buffers, file names, etc;
- see `hippie-expand-try-functions-list'. You can also add
- `skeleton-hippie-try' to that list (*note Statement skeletons::).
+ see 'hippie-expand-try-functions-list'. You can also add
+ 'skeleton-hippie-try' to that list (*note Statement skeletons::).
- 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
+ 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.
(setq-default indent-tabs-mode nil)
(require 'gpr-mode)
@@ -144,39 +140,38 @@ File: gpr-mode.info, Node: Moving Through Gpr Code,
Next: Identifier completio
4 Moving Through Gpr Code
*************************
-These commands navigate through gpr code. All these functions are
+These commands navigate through gpr code. All these functions are
available through the gpr menu and keybindings.
-`C-c C-o'
- If point is on a `with' clause, position point on the
- corresponding package declaration.
+'C-c C-o'
+ If point is on a 'with' clause, position point on the corresponding
+ package declaration.
-`C-u SPACE'
+'C-u SPACE'
Jump back to the previous location.
-
File: gpr-mode.info, Node: Identifier completion, Next: Indentation, Prev:
Moving Through Gpr Code, Up: Top
5 Identifier completion
***********************
-Emacs provides a general way of completing identifiers: `M-/' (bound to
-`dabbrev-expand'). This is an easy way to type faster: you just have to
+Emacs provides a general way of completing identifiers: 'M-/' (bound to
+'dabbrev-expand'). This is an easy way to type faster: you just have to
type the first few letters of an identifier, and then loop through all
the possible completions.
- `M-/' works by parsing all open gpr files for possible completions.
+ 'M-/' works by parsing all open gpr files for possible completions.
- For instance, if the words `my_identifier' and `my_subprogram' are
-the only words starting with `my' in any of the open gpr files, then
-you will have this scenario:
+ For instance, if the words 'my_identifier' and 'my_subprogram' are
+the only words starting with 'my' in any of the open gpr files, then you
+will have this scenario:
You type: myM-/
- Emacs inserts: `my_identifier'
- If you press M-/ once again, Emacs replaces `my_identifier' with
- `my_subprogram'.
- Pressing M-/ once more will bring you back to `my_identifier'.
+ Emacs inserts: 'my_identifier'
+ If you press M-/ once again, Emacs replaces 'my_identifier' with
+ 'my_subprogram'.
+ Pressing M-/ once more will bring you back to 'my_identifier'.
This is a very fast way to do completion, and the casing of words
will also be respected.
@@ -187,42 +182,41 @@ File: gpr-mode.info, Node: Indentation, Next: Statement
skeletons, Prev: Iden
6 Indentation
*************
-gpr mode comes with a full set of rules for automatic indentation. You
+gpr mode comes with a full set of rules for automatic indentation. You
can also configure the indentation, via the following variables:
-`ada-indent' (default value: 3)
+'ada-indent' (default value: 3)
Number of columns for default indentation.
-`ada-indent-broken' (default value: 2)
+'ada-indent-broken' (default value: 2)
Number of columns to indent the continuation of a broken line.
-`ada-indent-when' (default value: 3)
- Indentation for `when' relative to `exception', `case', or `or' in
- `select'.
-
-`ada-indent-with' (default value: ada-indent-broken)
- Indentation for the lines in a `with' context clause.
+'ada-indent-when' (default value: 3)
+ Indentation for 'when' relative to 'exception', 'case', or 'or' in
+ 'select'.
+'ada-indent-with' (default value: ada-indent-broken)
+ Indentation for the lines in a 'with' context clause.
The following keys indent portions of the text:
-`RET'
+
+'RET'
Insert and indent a new line.
-`TAB'
+'TAB'
Indent the current line, or the current region.
-`C-c TAB'
+'C-c TAB'
Indent the current declaration.
-
The indentation algorithm relies on a grammar parser to identify the
-syntactic role for keywords and other words in the code. If the code is
+syntactic role for keywords and other words in the code. If the code is
accepted by the parser, the indentation is done according to the rules
in the indentation engine.
If the code is not accepted (because it is partially complete during
editing), the indentation engine falls back to the trivial algorithm of
-indenting each new line the same as the previous line. Once enough new
+indenting each new line the same as the previous line. Once enough new
text has been entered to make the code acceptable to the parser, the
declaration is properly indented.
@@ -232,13 +226,13 @@ declaration is properly indented.
("../../1553/test",
"../../system/test");
- when you type `RET (', `(' is indented to the same column as `for',
-because the parser does not find `);'. Then when you type the final `;'
-followed by <TAB>, all three lines are indented, putting `(' where it
+ when you type 'RET (', '(' is indented to the same column as 'for',
+because the parser does not find ');'. Then when you type the final ';'
+followed by <TAB>, all three lines are indented, putting '(' where it
belongs.
To be more user friendly, the parser accepts a superset of the gpr
-grammer. For example, the parser accepts this code for a `case'
+grammer. For example, the parser accepts this code for a 'case'
statement:
case is
@@ -251,7 +245,7 @@ omitted.
Statement skeletons::.
In rare cases, the parser gets confused; it can be reset by invoking
-menu <gpr | Misc | Reset parser>. Please report such cases as a bug.
+menu <gpr | Misc | Reset parser>. Please report such cases as a bug.
File: gpr-mode.info, Node: Statement skeletons, Next: GNU Free Documentation
License, Prev: Indentation, Up: Top
@@ -259,8 +253,8 @@ File: gpr-mode.info, Node: Statement skeletons, Next: GNU
Free Documentation L
7 Statement skeletons
*********************
-`C-c C-e' expands the previous one or two words into a statment
-skeleton. For example, `c a s e C-c C-e' expands to:
+'C-c C-e' expands the previous one or two words into a statment
+skeleton. For example, 'c a s e C-c C-e' expands to:
case is
when =>
@@ -269,8 +263,8 @@ skeleton. For example, `c a s e C-c C-e' expands to:
All skeleton expansions are accepted by the indentation parser, so
this is a convenient way to insert statements with correct indentation.
- For named packages, the name is taken from the word before point,
-and the package keyword from the word before that:
+ For named packages, the name is taken from the word before point, and
+the package keyword from the word before that:
package A_Package
@@ -291,7 +285,7 @@ Appendix A GNU Free Documentation License
Version 1.3, 3 November 2008
Copyright (C) 2000, 2001, 2002, 2007, 2008, 2009 Free Software
Foundation, Inc.
- `http://fsf.org/'
+ <http://fsf.org/>
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -316,21 +310,21 @@ Appendix A GNU Free Documentation License
free program should come with manuals providing the same freedoms
that the software does. But this License is not limited to
software manuals; it can be used for any textual work, regardless
- of subject matter or whether it is published as a printed book.
- We recommend this License principally for works whose purpose is
+ of subject matter or whether it is published as a printed book. We
+ recommend this License principally for works whose purpose is
instruction or reference.
1. APPLICABILITY AND DEFINITIONS
This License applies to any manual or other work, in any medium,
- that contains a notice placed by the copyright holder saying it
- can be distributed under the terms of this License. Such a notice
+ that contains a notice placed by the copyright holder saying it can
+ be distributed under the terms of this License. Such a notice
grants a world-wide, royalty-free license, unlimited in duration,
to use that work under the conditions stated herein. The
"Document", below, refers to any such manual or work. Any member
- of the public is a licensee, and is addressed as "you". You
- accept the license if you copy, modify or distribute the work in a
- way requiring permission under copyright law.
+ of the public is a licensee, and is addressed as "you". You accept
+ the license if you copy, modify or distribute the work in a way
+ requiring permission under copyright law.
A "Modified Version" of the Document means any work containing the
Document or a portion of it, either copied verbatim, or with
@@ -348,12 +342,12 @@ Appendix A GNU Free Documentation License
regarding them.
The "Invariant Sections" are certain Secondary Sections whose
- titles are designated, as being those of Invariant Sections, in
- the notice that says that the Document is released under this
- License. If a section does not fit the above definition of
- Secondary then it is not allowed to be designated as Invariant.
- The Document may contain zero Invariant Sections. If the Document
- does not identify any Invariant Sections then there are none.
+ titles are designated, as being those of Invariant Sections, in the
+ notice that says that the Document is released under this License.
+ If a section does not fit the above definition of Secondary then it
+ is not allowed to be designated as Invariant. The Document may
+ contain zero Invariant Sections. If the Document does not identify
+ any Invariant Sections then there are none.
The "Cover Texts" are certain short passages of text that are
listed, as Front-Cover Texts or Back-Cover Texts, in the notice
@@ -364,27 +358,27 @@ Appendix A GNU Free Documentation License
A "Transparent" copy of the Document means a machine-readable copy,
represented in a format whose specification is available to the
general public, that is suitable for revising the document
- straightforwardly with generic text editors or (for images
- composed of pixels) generic paint programs or (for drawings) some
- widely available drawing editor, and that is suitable for input to
- text formatters or for automatic translation to a variety of
- formats suitable for input to text formatters. A copy made in an
- otherwise Transparent file format whose markup, or absence of
- markup, has been arranged to thwart or discourage subsequent
- modification by readers is not Transparent. An image format is
- not Transparent if used for any substantial amount of text. A
- copy that is not "Transparent" is called "Opaque".
+ straightforwardly with generic text editors or (for images composed
+ of pixels) generic paint programs or (for drawings) some widely
+ available drawing editor, and that is suitable for input to text
+ formatters or for automatic translation to a variety of formats
+ suitable for input to text formatters. A copy made in an otherwise
+ Transparent file format whose markup, or absence of markup, has
+ been arranged to thwart or discourage subsequent modification by
+ readers is not Transparent. An image format is not Transparent if
+ used for any substantial amount of text. A copy that is not
+ "Transparent" is called "Opaque".
Examples of suitable formats for Transparent copies include plain
ASCII without markup, Texinfo input format, LaTeX input format,
- SGML or XML using a publicly available DTD, and
- standard-conforming simple HTML, PostScript or PDF designed for
- human modification. Examples of transparent image formats include
- PNG, XCF and JPG. Opaque formats include proprietary formats that
- can be read and edited only by proprietary word processors, SGML or
- XML for which the DTD and/or processing tools are not generally
- available, and the machine-generated HTML, PostScript or PDF
- produced by some word processors for output purposes only.
+ SGML or XML using a publicly available DTD, and standard-conforming
+ simple HTML, PostScript or PDF designed for human modification.
+ Examples of transparent image formats include PNG, XCF and JPG.
+ Opaque formats include proprietary formats that can be read and
+ edited only by proprietary word processors, SGML or XML for which
+ the DTD and/or processing tools are not generally available, and
+ the machine-generated HTML, PostScript or PDF produced by some word
+ processors for output purposes only.
The "Title Page" means, for a printed book, the title page itself,
plus such following pages as are needed to hold, legibly, the
@@ -422,8 +416,8 @@ Appendix A GNU Free Documentation License
may not use technical measures to obstruct or control the reading
or further copying of the copies you make or distribute. However,
you may accept compensation in exchange for copies. If you
- distribute a large enough number of copies you must also follow
- the conditions in section 3.
+ distribute a large enough number of copies you must also follow the
+ conditions in section 3.
You may also lend copies, under the same conditions stated above,
and you may publicly display copies.
@@ -437,12 +431,11 @@ Appendix A GNU Free Documentation License
these Cover Texts: Front-Cover Texts on the front cover, and
Back-Cover Texts on the back cover. Both covers must also clearly
and legibly identify you as the publisher of these copies. The
- front cover must present the full title with all words of the
- title equally prominent and visible. You may add other material
- on the covers in addition. Copying with changes limited to the
- covers, as long as they preserve the title of the Document and
- satisfy these conditions, can be treated as verbatim copying in
- other respects.
+ front cover must present the full title with all words of the title
+ equally prominent and visible. You may add other material on the
+ covers in addition. Copying with changes limited to the covers, as
+ long as they preserve the title of the Document and satisfy these
+ conditions, can be treated as verbatim copying in other respects.
If the required texts for either cover are too voluminous to fit
legibly, you should put the first ones listed (as many as fit
@@ -450,40 +443,39 @@ Appendix A GNU Free Documentation License
adjacent pages.
If you publish or distribute Opaque copies of the Document
- numbering more than 100, you must either include a
- machine-readable Transparent copy along with each Opaque copy, or
- state in or with each Opaque copy a computer-network location from
- which the general network-using public has access to download
- using public-standard network protocols a complete Transparent
- copy of the Document, free of added material. If you use the
- latter option, you must take reasonably prudent steps, when you
- begin distribution of Opaque copies in quantity, to ensure that
- this Transparent copy will remain thus accessible at the stated
- location until at least one year after the last time you
- distribute an Opaque copy (directly or through your agents or
- retailers) of that edition to the public.
+ numbering more than 100, you must either include a machine-readable
+ Transparent copy along with each Opaque copy, or state in or with
+ each Opaque copy a computer-network location from which the general
+ network-using public has access to download using public-standard
+ network protocols a complete Transparent copy of the Document, free
+ of added material. If you use the latter option, you must take
+ reasonably prudent steps, when you begin distribution of Opaque
+ copies in quantity, to ensure that this Transparent copy will
+ remain thus accessible at the stated location until at least one
+ year after the last time you distribute an Opaque copy (directly or
+ through your agents or retailers) of that edition to the public.
It is requested, but not required, that you contact the authors of
- the Document well before redistributing any large number of
- copies, to give them a chance to provide you with an updated
- version of the Document.
+ the Document well before redistributing any large number of copies,
+ to give them a chance to provide you with an updated version of the
+ Document.
4. MODIFICATIONS
You may copy and distribute a Modified Version of the Document
under the conditions of sections 2 and 3 above, provided that you
- release the Modified Version under precisely this License, with
- the Modified Version filling the role of the Document, thus
- licensing distribution and modification of the Modified Version to
- whoever possesses a copy of it. In addition, you must do these
- things in the Modified Version:
+ release the Modified Version under precisely this License, with the
+ Modified Version filling the role of the Document, thus licensing
+ distribution and modification of the Modified Version to whoever
+ possesses a copy of it. In addition, you must do these things in
+ the Modified Version:
A. Use in the Title Page (and on the covers, if any) a title
- distinct from that of the Document, and from those of
- previous versions (which should, if there were any, be listed
- in the History section of the Document). You may use the
- same title as a previous version if the original publisher of
- that version gives permission.
+ distinct from that of the Document, and from those of previous
+ versions (which should, if there were any, be listed in the
+ History section of the Document). You may use the same title
+ as a previous version if the original publisher of that
+ version gives permission.
B. List on the Title Page, as authors, one or more persons or
entities responsible for authorship of the modifications in
@@ -513,31 +505,30 @@ Appendix A GNU Free Documentation License
I. Preserve the section Entitled "History", Preserve its Title,
and add to it an item stating at least the title, year, new
- authors, and publisher of the Modified Version as given on
- the Title Page. If there is no section Entitled "History" in
- the Document, create one stating the title, year, authors,
- and publisher of the Document as given on its Title Page,
- then add an item describing the Modified Version as stated in
- the previous sentence.
+ authors, and publisher of the Modified Version as given on the
+ Title Page. If there is no section Entitled "History" in the
+ Document, create one stating the title, year, authors, and
+ publisher of the Document as given on its Title Page, then add
+ an item describing the Modified Version as stated in the
+ previous sentence.
J. Preserve the network location, if any, given in the Document
for public access to a Transparent copy of the Document, and
likewise the network locations given in the Document for
- previous versions it was based on. These may be placed in
- the "History" section. You may omit a network location for a
- work that was published at least four years before the
- Document itself, or if the original publisher of the version
- it refers to gives permission.
+ previous versions it was based on. These may be placed in the
+ "History" section. You may omit a network location for a work
+ that was published at least four years before the Document
+ itself, or if the original publisher of the version it refers
+ to gives permission.
K. For any section Entitled "Acknowledgements" or "Dedications",
- Preserve the Title of the section, and preserve in the
- section all the substance and tone of each of the contributor
+ Preserve the Title of the section, and preserve in the section
+ all the substance and tone of each of the contributor
acknowledgements and/or dedications given therein.
- L. Preserve all the Invariant Sections of the Document,
- unaltered in their text and in their titles. Section numbers
- or the equivalent are not considered part of the section
- titles.
+ L. Preserve all the Invariant Sections of the Document, unaltered
+ in their text and in their titles. Section numbers or the
+ equivalent are not considered part of the section titles.
M. Delete any section Entitled "Endorsements". Such a section
may not be included in the Modified Version.
@@ -550,11 +541,11 @@ Appendix A GNU Free Documentation License
If the Modified Version includes new front-matter sections or
appendices that qualify as Secondary Sections and contain no
- material copied from the Document, you may at your option
- designate some or all of these sections as invariant. To do this,
- add their titles to the list of Invariant Sections in the Modified
- Version's license notice. These titles must be distinct from any
- other section titles.
+ material copied from the Document, you may at your option designate
+ some or all of these sections as invariant. To do this, add their
+ titles to the list of Invariant Sections in the Modified Version's
+ license notice. These titles must be distinct from any other
+ section titles.
You may add a section Entitled "Endorsements", provided it contains
nothing but endorsements of your Modified Version by various
@@ -563,15 +554,15 @@ Appendix A GNU Free Documentation License
definition of a standard.
You may add a passage of up to five words as a Front-Cover Text,
- and a passage of up to 25 words as a Back-Cover Text, to the end
- of the list of Cover Texts in the Modified Version. Only one
- passage of Front-Cover Text and one of Back-Cover Text may be
- added by (or through arrangements made by) any one entity. If the
- Document already includes a cover text for the same cover,
- previously added by you or by arrangement made by the same entity
- you are acting on behalf of, you may not add another; but you may
- replace the old one, on explicit permission from the previous
- publisher that added the old one.
+ and a passage of up to 25 words as a Back-Cover Text, to the end of
+ the list of Cover Texts in the Modified Version. Only one passage
+ of Front-Cover Text and one of Back-Cover Text may be added by (or
+ through arrangements made by) any one entity. If the Document
+ already includes a cover text for the same cover, previously added
+ by you or by arrangement made by the same entity you are acting on
+ behalf of, you may not add another; but you may replace the old
+ one, on explicit permission from the previous publisher that added
+ the old one.
The author(s) and publisher(s) of the Document do not by this
License give permission to use their names for publicity for or to
@@ -581,8 +572,8 @@ Appendix A GNU Free Documentation License
You may combine the Document with other documents released under
this License, under the terms defined in section 4 above for
- modified versions, provided that you include in the combination
- all of the Invariant Sections of all of the original documents,
+ modified versions, provided that you include in the combination all
+ of the Invariant Sections of all of the original documents,
unmodified, and list them all as Invariant Sections of your
combined work in its license notice, and that you preserve all
their Warranty Disclaimers.
@@ -609,20 +600,20 @@ Appendix A GNU Free Documentation License
documents released under this License, and replace the individual
copies of this License in the various documents with a single copy
that is included in the collection, provided that you follow the
- rules of this License for verbatim copying of each of the
- documents in all other respects.
+ rules of this License for verbatim copying of each of the documents
+ in all other respects.
You may extract a single document from such a collection, and
distribute it individually under this License, provided you insert
- a copy of this License into the extracted document, and follow
- this License in all other respects regarding verbatim copying of
- that document.
+ a copy of this License into the extracted document, and follow this
+ License in all other respects regarding verbatim copying of that
+ document.
7. AGGREGATION WITH INDEPENDENT WORKS
A compilation of the Document or its derivatives with other
- separate and independent documents or works, in or on a volume of
- a storage or distribution medium, is called an "aggregate" if the
+ separate and independent documents or works, in or on a volume of a
+ storage or distribution medium, is called an "aggregate" if the
copyright resulting from the compilation is not used to limit the
legal rights of the compilation's users beyond what the individual
works permit. When the Document is included in an aggregate, this
@@ -667,8 +658,8 @@ Appendix A GNU Free Documentation License
However, if you cease all violation of this License, then your
license from a particular copyright holder is reinstated (a)
- provisionally, unless and until the copyright holder explicitly
- and finally terminates your license, and (b) permanently, if the
+ provisionally, unless and until the copyright holder explicitly and
+ finally terminates your license, and (b) permanently, if the
copyright holder fails to notify you of the violation by some
reasonable means prior to 60 days after the cessation.
@@ -680,33 +671,33 @@ Appendix A GNU Free Documentation License
after your receipt of the notice.
Termination of your rights under this section does not terminate
- the licenses of parties who have received copies or rights from
- you under this License. If your rights have been terminated and
- not permanently reinstated, receipt of a copy of some or all of
- the same material does not give you any rights to use it.
+ the licenses of parties who have received copies or rights from you
+ under this License. If your rights have been terminated and not
+ permanently reinstated, receipt of a copy of some or all of the
+ same material does not give you any rights to use it.
- 10. FUTURE REVISIONS OF THIS LICENSE
+ 10. FUTURE REVISIONS OF THIS LICENSE
The Free Software Foundation may publish new, revised versions of
the GNU Free Documentation License from time to time. Such new
versions will be similar in spirit to the present version, but may
differ in detail to address new problems or concerns. See
- `http://www.gnu.org/copyleft/'.
+ <http://www.gnu.org/copyleft/>.
Each version of the License is given a distinguishing version
number. If the Document specifies that a particular numbered
version of this License "or any later version" applies to it, you
have the option of following the terms and conditions either of
that specified version or of any later version that has been
- published (not as a draft) by the Free Software Foundation. If
- the Document does not specify a version number of this License,
- you may choose any version ever published (not as a draft) by the
- Free Software Foundation. If the Document specifies that a proxy
- can decide which future versions of this License can be used, that
+ published (not as a draft) by the Free Software Foundation. If the
+ Document does not specify a version number of this License, you may
+ choose any version ever published (not as a draft) by the Free
+ Software Foundation. If the Document specifies that a proxy can
+ decide which future versions of this License can be used, that
proxy's public statement of acceptance of a version permanently
authorizes you to choose that version for the Document.
- 11. RELICENSING
+ 11. RELICENSING
"Massive Multiauthor Collaboration Site" (or "MMC Site") means any
World Wide Web server that publishes copyrightable works and also
@@ -736,7 +727,6 @@ Appendix A GNU Free Documentation License
site under CC-BY-SA on the same site at any time before August 1,
2009, provided the MMC is eligible for relicensing.
-
ADDENDUM: How to use this License for your documents
====================================================
@@ -753,7 +743,7 @@ notices just after the title page:
Free Documentation License''.
If you have Invariant Sections, Front-Cover Texts and Back-Cover
-Texts, replace the "with...Texts." line with this:
+Texts, replace the "with...Texts." line with this:
with the Invariant Sections being LIST THEIR TITLES, with
the Front-Cover Texts being LIST, and with the Back-Cover Texts
@@ -764,9 +754,9 @@ combination of the three, merge those two alternatives to
suit the
situation.
If your document contains nontrivial examples of program code, we
-recommend releasing these examples in parallel under your choice of
-free software license, such as the GNU General Public License, to
-permit their use in free software.
+recommend releasing these examples in parallel under your choice of free
+software license, such as the GNU General Public License, to permit
+their use in free software.
File: gpr-mode.info, Node: Index, Prev: GNU Free Documentation License, Up:
Top
@@ -783,15 +773,15 @@ Index
Tag Table:
-Node: Top969
-Node: Overview1952
-Node: Installation2510
-Node: Customization3268
-Node: Moving Through Gpr Code5191
-Node: Identifier completion5641
-Node: Indentation6602
-Node: Statement skeletons8978
-Node: GNU Free Documentation License9733
-Node: Index34914
+Node: Top960
+Node: Overview1939
+Node: Installation2498
+Node: Customization3249
+Node: Moving Through Gpr Code5171
+Node: Identifier completion5621
+Node: Indentation6583
+Node: Statement skeletons8913
+Node: GNU Free Documentation License9669
+Node: Index34831
End Tag Table
diff --git a/gpr-mode.texi b/gpr-mode.texi
index def6797..a293793 100644
--- a/gpr-mode.texi
+++ b/gpr-mode.texi
@@ -26,7 +26,7 @@ developing GNU and promoting software freedom.''
@titlepage
@sp 10
-@title{gpr Mode}
+@title gpr Mode
@sp 2
@subtitle An Emacs major mode for editing and navigating gpr files
@sp 2
diff --git a/gpr-query.el b/gpr-query.el
index 71761c3..ae4ed8e 100644
--- a/gpr-query.el
+++ b/gpr-query.el
@@ -47,9 +47,7 @@
(cl-defstruct (gpr-query--session)
(process nil) ;; running gpr_query
- (buffer nil) ;; receives output of gpr_query
- (sent-kill-p nil)
- (closed-p nil))
+ (buffer nil)) ;; receives output of gpr_query
(defconst gpr-query-buffer-name-prefix " *gpr_query-")
@@ -162,6 +160,14 @@ Return buffer that holds output."
(current-buffer)
)))
+(defun gpr-query-kill-session (session)
+ (let ((process (gpr-query--session-process session)))
+ (when (process-live-p process)
+ (process-send-string (gpr-query--session-process session) "exit\n")
+ (while (process-live-p process)
+ (accept-process-output process 1.0)))
+ ))
+
(defun gpr-query-kill-all-sessions ()
(interactive)
(let ((count 0))
@@ -397,7 +403,10 @@ Enable mode if ARG is positive"
(defun gpr-query-refresh ()
"For `ada-xref-refresh-function', using gpr_query."
(interactive)
- (with-current-buffer (gpr-query-session-send "refresh" t)))
+ ;; need to kill session to get changed env vars etc
+ (let ((session (gpr-query-cached-session)))
+ (gpr-query-kill-session session)
+ (gpr-query--start-process session)))
(defun gpr-query-other (identifier file line col)
"For `ada-xref-other-function', using gpr_query."
@@ -407,6 +416,11 @@ Enable mode if ARG is positive"
(setq identifier (substring identifier 1 (1- (length identifier))))
)
+ (when (eq system-type 'windows-nt)
+ ;; Since Windows file system is case insensitive, GNAT and Emacs
+ ;; can disagree on the case, so convert all to lowercase.
+ (setq file (downcase file)))
+
(let ((cmd (format "refs %s:%s:%d:%d" identifier (file-name-nondirectory
file) line col))
(decl-loc nil)
(body-loc nil)
@@ -445,14 +459,20 @@ Enable mode if ARG is positive"
(cond
((looking-at gpr-query-ident-file-type-regexp)
;; process line
- ;; 'expand-file-name' converts Windows directory separators to normal
Emacs
- (let* ((found-file (expand-file-name (match-string 1)))
+ (let* ((found-file (match-string 1))
(found-line (string-to-number (match-string 2)))
(found-col (string-to-number (match-string 3)))
(found-type (match-string 4))
(dist (gpr-query-dist found-line line found-col col))
)
+ (when (eq system-type 'windows-nt)
+ ;; 'expand-file-name' converts Windows directory
+ ;; separators to normal Emacs. Since Windows file
+ ;; system is case insensitive, GNAT and Emacs can
+ ;; disagree on the case, so convert all to lowercase.
+ (setq found-file (downcase (expand-file-name found-file))))
+
(when (string-equal found-type "declaration")
(setq decl-loc (list found-file found-line (1- found-col))))
@@ -550,7 +570,6 @@ Enable mode if ARG is positive"
(setq ada-make-package-body 'ada-gnat-make-package-body)
(add-hook 'ada-syntax-propertize-hook 'gnatprep-syntax-propertize)
- (add-hook 'ada-syntax-propertize-hook 'ada-gnat-syntax-propertize)
;; must be after indentation engine setup, because that resets the
;; indent function list.
@@ -574,7 +593,6 @@ Enable mode if ARG is positive"
(setq ada-make-package-body nil)
(setq ada-syntax-propertize-hook (delq 'gnatprep-syntax-propertize
ada-syntax-propertize-hook))
- (setq ada-syntax-propertize-hook (delq 'ada-gnat-syntax-propertize
ada-syntax-propertize-hook))
(setq ada-mode-hook (delq 'ada-gpr-query-setup ada-mode-hook))
(setq ada-xref-other-function nil)
diff --git a/gpr-skel.el b/gpr-skel.el
index 2ddc5d1..eef3b76 100644
--- a/gpr-skel.el
+++ b/gpr-skel.el
@@ -213,7 +213,7 @@ it is a name, and use the word before that as the token."
;; hippie is asking us to try the "next" completion; we don't have one
nil
(let ((pos (point))
- (undo-len (length pending-undo-list)))
+ (undo-len (if (sequencep pending-undo-list) (length
pending-undo-list) 0)))
(undo-boundary)
(condition-case nil
(progn
@@ -221,7 +221,7 @@ it is a name, and use the word before that as the token."
t)
('error
;; undo hook action if any
- (unless (= undo-len (length pending-undo-list))
+ (unless (= undo-len (if (sequencep pending-undo-list) (length
pending-undo-list) 0))
(undo))
;; undo motion
diff --git a/gpr-wisi.el b/gpr-wisi.el
index bb4dd63..48f5523 100644
--- a/gpr-wisi.el
+++ b/gpr-wisi.el
@@ -44,6 +44,7 @@
block-middle
block-end
close-paren
+ list-break
open-paren
statement-end
statement-other
@@ -51,7 +52,8 @@
))
(defun gpr-wisi-indent-cache (offset cache)
- "Return indentation of OFFSET relative to CACHE or containing ancestor of
CACHE that is at a line beginning."
+ "Return indentation of OFFSET relative to indentation of line containing
CACHE
+or containing ancestor of CACHE that is at a line beginning."
(let ((indent (current-indentation)))
(while (and cache
(not (= (current-column) indent)))
@@ -113,6 +115,20 @@
(gpr-wisi-indent-cache ada-indent cache))
))
+ (list-break
+ ;; test/gpr/simple.gpr
+ ;; type GNAT_Version_Type
+ ;; is ("7.0.1",
+ ;; "6.2.2", "6.2.1",
+ ;; "GPL-2012", "GPL-2011");
+ ;;
+ ;; for Source_Dirs use
+ ;; ("../auto",
+ ;; External ("GNAT_VERSION") & "/foo",
+ ;; "../../1553");
+ (wisi-goto-containing cache)
+ (1+ (current-column)))
+
(open-paren
(1+ (current-column)))
- [elpa] externals/ada-mode 7bc1eb0 15/48: update ada-mode, wisi, (continued)
- [elpa] externals/ada-mode 7bc1eb0 15/48: update ada-mode, wisi, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 35e9946 23/48: Release wisi 1.1.4, ada-mode 5.2.1, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 89747cb 12/48: * packages/ada-mode: Miscellaneous cleanups., Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 6d77bd0 19/48: * packages/gnome-c-style/gnome-c-tests.el: Add copyright blurb, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 2d17566 21/48: Fix some quoting problems in doc strings, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 7b6bcf3 22/48: Release: ada-mode: version 5.2.0. wisi: version 1.1.3, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 64afd45 08/48: release ada-mode 5.1.4, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 1b4fb26 09/48: * packages/ada-mode/* : version 5.1.5, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 5118a86 10/48: remove bogus execute priv, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 0a42145 16/48: * packages/ada-mode: Miscellaneous tweaks to fix warnings, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 45fad69 11/48: publish ada-mode 5.1.6, wisi 1.0.6, new package ada-ref-man,
Stefan Monnier <=
- [elpa] externals/ada-mode b27dd06 17/48: * ada-mode: Use lexical-binding since it requires Emacs-24.2 anyway, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode cc65bfe 18/48: Update ada-mode, wisi, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode ce778fa 24/48: Clear executable bit for Emacs Lisp files., Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 7e7262b 25/48: * ada-mode/ada-mode.el (ada-case-activate-keys): Fix compiler warning., Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 2db72b9 26/48: Update ada-mode to version 5.2.2, wisi to version 1.1.5, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode e4a40ea 28/48: Warn about transfer.fsckObjects, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 75a4c9f 14/48: release ada-mode 5.1.7, wisi 1.1.0; minor format changes in ada-ref-man (take 2), Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode f292e14 20/48: fix executable bits, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode a3be258 27/48: Release Ada mode 5.3.1, wisi 1.1.6, Stefan Monnier, 2020/11/30
- [elpa] externals/ada-mode 04ed297 29/48: * packages/ada-mode/ada-mode.el (ada-mode): emacs 26 vs hack-local-variables, Stefan Monnier, 2020/11/30