Signed-off-by: Jose E. Marchesi <[email protected]>
gcc/ChangeLog
* algol68/a68-parser-attrs.def: New file.
---
gcc/algol68/a68-parser-attrs.def | 362 +++++++++++++++++++++++++++++++
1 file changed, 362 insertions(+)
create mode 100644 gcc/algol68/a68-parser-attrs.def
diff --git a/gcc/algol68/a68-parser-attrs.def b/gcc/algol68/a68-parser-attrs.def
new file mode 100644
index 00000000000..6ccade45a57
--- /dev/null
+++ b/gcc/algol68/a68-parser-attrs.def
@@ -0,0 +1,362 @@
+/* This file contains the definitions and documentation for all the different
+ kind/attributes of Algol 68 parse tree nodes.
+ Copyright (C) 2025 Jose E. Marchesi.
+
+ GCC is free software; you can redistribute it and/or modify it under the
+ terms of the GNU General Public License as published by the Free Software
+ Foundation; either version 3, or (at your option) any later version.
+
+ GCC is distributed in the hope that it will be useful, but WITHOUT ANY
+ WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ details.
+
+ You should have received a copy of the GNU General Public License along with
+ GCC; see the file COPYING3. If not see <http://www.gnu.org/licenses/>. */
+
+/* Please keep the entries in this file sorted alphabetically. */
+
+A68_ATTR(A68_PATTERN)
+A68_ATTR(ACTUAL_DECLARER_MARK)
+A68_ATTR(ALT_DO_PART)
+A68_ATTR(ALT_DO_SYMBOL)
+A68_ATTR(ALT_EQUALS_SYMBOL)
+A68_ATTR(ALT_FORMAL_BOUNDS_LIST)
+A68_ATTR(ANDF_SYMBOL)
+A68_ATTR(AND_FUNCTION)
+A68_ATTR(ANONYMOUS)
+A68_ATTR(ARGUMENT)
+A68_ATTR(ARGUMENT_LIST)
+A68_ATTR(ASSERTION)
+A68_ATTR(ASSERT_SYMBOL)
+A68_ATTR(ASSIGNATION)
+A68_ATTR(ASSIGN_SYMBOL)
+A68_ATTR(ASSIGN_TO_SYMBOL)
+A68_ATTR(AT_SYMBOL)
+A68_ATTR(BEGIN_SYMBOL)
+A68_ATTR(BITS_C_PATTERN)
+A68_ATTR(BITS_DENOTATION)
+A68_ATTR(BITS_PATTERN)
+A68_ATTR(BITS_SYMBOL)
+A68_ATTR(BOLD_COMMENT_SYMBOL)
+A68_ATTR(BOLD_COMMENT_BEGIN_SYMBOL)
+A68_ATTR(BOLD_COMMENT_END_SYMBOL)
+A68_ATTR(BOLD_PRAGMAT_SYMBOL)
+A68_ATTR(BOLD_TAG)
+A68_ATTR(BOOLEAN_PATTERN)
+A68_ATTR(BOOL_SYMBOL)
+A68_ATTR(BOUND)
+A68_ATTR(BOUNDS)
+A68_ATTR(BOUNDS_LIST)
+A68_ATTR(BRIEF_COMMENT_BEGIN_SYMBOL)
+A68_ATTR(BRIEF_COMMENT_END_SYMBOL)
+A68_ATTR(BRIEF_OUSE_PART)
+A68_ATTR(BRIEF_CONFORMITY_OUSE_PART)
+A68_ATTR(BRIEF_ELIF_PART)
+A68_ATTR(BRIEF_OPERATOR_DECLARATION)
+A68_ATTR(BUS_SYMBOL)
+A68_ATTR(BYTES_SYMBOL)
+A68_ATTR(BY_PART)
+A68_ATTR(BY_SYMBOL)
+A68_ATTR(CALL)
+A68_ATTR(CASE_CHOICE_CLAUSE)
+A68_ATTR(CASE_CLAUSE)
+A68_ATTR(CASE_IN_PART)
+A68_ATTR(CASE_OUSE_PART)
+A68_ATTR(CASE_PART)
+A68_ATTR(CASE_SYMBOL)
+A68_ATTR(CAST)
+A68_ATTR(CHANNEL_SYMBOL)
+A68_ATTR(CHAR_C_PATTERN)
+A68_ATTR(CHAR_SYMBOL)
+A68_ATTR(CHOICE)
+A68_ATTR(CHOICE_PATTERN)
+A68_ATTR(CLOSED_CLAUSE)
+A68_ATTR(CLOSE_SYMBOL)
+A68_ATTR(COLLATERAL_CLAUSE)
+A68_ATTR(COLLECTION)
+A68_ATTR(COLON_SYMBOL)
+A68_ATTR(COMMA_SYMBOL)
+A68_ATTR(COMPLEX_PATTERN)
+A68_ATTR(COMPLEX_SYMBOL)
+A68_ATTR(COMPL_SYMBOL)
+A68_ATTR(CONDITIONAL_CLAUSE)
+A68_ATTR(CONFORMITY_CHOICE)
+A68_ATTR(CONFORMITY_CLAUSE)
+A68_ATTR(CONFORMITY_IN_PART)
+A68_ATTR(CONFORMITY_OUSE_PART)
+A68_ATTR(CONSTRUCT)
+A68_ATTR(DECLARATION_LIST)
+A68_ATTR(DECLARER)
+A68_ATTR(DEFINING_IDENTIFIER)
+A68_ATTR(DEFINING_INDICANT)
+A68_ATTR(DEFINING_OPERATOR)
+A68_ATTR(DENOTATION)
+A68_ATTR(DEPROCEDURING)
+A68_ATTR(DEREFERENCING)
+A68_ATTR(DO_PART)
+A68_ATTR(DO_SYMBOL)
+A68_ATTR(DYNAMIC_REPLICATOR)
+A68_ATTR(ELIF_IF_PART)
+A68_ATTR(ELIF_PART)
+A68_ATTR(ELIF_SYMBOL)
+A68_ATTR(ELSE_BAR_SYMBOL)
+A68_ATTR(ELSE_OPEN_PART)
+A68_ATTR(ELSE_PART)
+A68_ATTR(ELSE_SYMBOL)
+A68_ATTR(EMPTY_SYMBOL)
+A68_ATTR(ENCLOSED_CLAUSE)
+A68_ATTR(END_SYMBOL)
+A68_ATTR(ENQUIRY_CLAUSE)
+A68_ATTR(EQUALS_SYMBOL)
+A68_ATTR(ERROR)
+A68_ATTR(ERROR_IDENTIFIER)
+A68_ATTR(ESAC_SYMBOL)
+A68_ATTR(EXIT_SYMBOL)
+A68_ATTR(EXPONENT_FRAME)
+A68_ATTR(FALSE_SYMBOL)
+A68_ATTR(FIELD)
+A68_ATTR(FIELD_IDENTIFIER)
+A68_ATTR(FILE_SYMBOL)
+A68_ATTR(FIRM)
+A68_ATTR(FIXED_C_PATTERN)
+A68_ATTR(FI_SYMBOL)
+A68_ATTR(FLEX_SYMBOL)
+A68_ATTR(FLOAT_C_PATTERN)
+A68_ATTR(FORMAL_BOUNDS)
+A68_ATTR(FORMAL_BOUNDS_LIST)
+A68_ATTR(FORMAL_DECLARERS)
+A68_ATTR(FORMAL_DECLARERS_LIST)
+A68_ATTR(FORMAL_DECLARER_MARK)
+A68_ATTR(FORMULA)
+A68_ATTR(FOR_PART)
+A68_ATTR(FOR_SYMBOL)
+A68_ATTR(FORMAT_CLOSE_SYMBOL)
+A68_ATTR(FORMAT_DELIMITER_SYMBOL)
+A68_ATTR(FORMAT_IDENTIFIER)
+A68_ATTR(FORMAT_A_FRAME)
+A68_ATTR(FORMAT_D_FRAME)
+A68_ATTR(FORMAT_E_FRAME)
+A68_ATTR(FORMAT_I_FRAME)
+A68_ATTR(FORMAT_ITEM_A)
+A68_ATTR(FORMAT_ITEM_B)
+A68_ATTR(FORMAT_ITEM_C)
+A68_ATTR(FORMAT_ITEM_D)
+A68_ATTR(FORMAT_ITEM_E)
+A68_ATTR(FORMAT_ITEM_F)
+A68_ATTR(FORMAT_ITEM_G)
+A68_ATTR(FORMAT_ITEM_H)
+A68_ATTR(FORMAT_ITEM_I)
+A68_ATTR(FORMAT_ITEM_J)
+A68_ATTR(FORMAT_ITEM_K)
+A68_ATTR(FORMAT_ITEM_L)
+A68_ATTR(FORMAT_ITEM_M)
+A68_ATTR(FORMAT_ITEM_N)
+A68_ATTR(FORMAT_ITEM_O)
+A68_ATTR(FORMAT_ITEM_P)
+A68_ATTR(FORMAT_ITEM_Q)
+A68_ATTR(FORMAT_ITEM_R)
+A68_ATTR(FORMAT_ITEM_S)
+A68_ATTR(FORMAT_ITEM_T)
+A68_ATTR(FORMAT_ITEM_U)
+A68_ATTR(FORMAT_ITEM_V)
+A68_ATTR(FORMAT_ITEM_W)
+A68_ATTR(FORMAT_ITEM_X)
+A68_ATTR(FORMAT_ITEM_Y)
+A68_ATTR(FORMAT_ITEM_Z)
+A68_ATTR(FORMAT_ITEM_ESCAPE)
+A68_ATTR(FORMAT_ITEM_MINUS)
+A68_ATTR(FORMAT_ITEM_PLUS)
+A68_ATTR(FORMAT_ITEM_POINT)
+A68_ATTR(FORMAT_OPEN_SYMBOL)
+A68_ATTR(FORMAT_PATTERN)
+A68_ATTR(FORMAT_POINT_FRAME)
+A68_ATTR(FORMAT_SYMBOL)
+A68_ATTR(FORMAT_TEXT)
+A68_ATTR(FORMAT_Z_FRAME)
+A68_ATTR(FROM_PART)
+A68_ATTR(FROM_SYMBOL)
+A68_ATTR(GENERAL_C_PATTERN)
+A68_ATTR(GENERAL_PATTERN)
+A68_ATTR(GENERATOR)
+A68_ATTR(GENERIC_ARGUMENT)
+A68_ATTR(GENERIC_ARGUMENT_LIST)
+A68_ATTR(GOTO_SYMBOL)
+A68_ATTR(GO_SYMBOL)
+A68_ATTR(GUARDED_CONDITIONAL_CLAUSE)
+A68_ATTR(GUARDED_LOOP_CLAUSE)
+A68_ATTR(HEAP_SYMBOL)
+A68_ATTR(IDENTIFIER)
+A68_ATTR(IDENTIFIER_WITH_UNDERSCORES)
+A68_ATTR(IDENTITY_DECLARATION)
+A68_ATTR(IDENTITY_RELATION)
+A68_ATTR(IF_PART)
+A68_ATTR(IF_SYMBOL)
+A68_ATTR(INDICANT)
+A68_ATTR(INITIALISER_SERIES)
+A68_ATTR(INSERTION)
+A68_ATTR(INTEGRAL_C_PATTERN)
+A68_ATTR(INTEGRAL_MOULD)
+A68_ATTR(INTEGRAL_PATTERN)
+A68_ATTR(INT_DENOTATION)
+A68_ATTR(INT_SYMBOL)
+A68_ATTR(IN_SYMBOL)
+A68_ATTR(IN_TYPE_MODE)
+A68_ATTR(ISNT_SYMBOL)
+A68_ATTR(IS_SYMBOL)
+A68_ATTR(JUMP)
+A68_ATTR(KEYWORD)
+A68_ATTR(LABEL)
+A68_ATTR(LABELED_UNIT)
+A68_ATTR(LABEL_IDENTIFIER)
+A68_ATTR(LABEL_SEQUENCE)
+A68_ATTR(LITERAL)
+A68_ATTR(LOCAL_LABEL)
+A68_ATTR(LOC_SYMBOL)
+A68_ATTR(LONGETY)
+A68_ATTR(LONG_SYMBOL)
+A68_ATTR(LOOP_CLAUSE)
+A68_ATTR(LOOP_IDENTIFIER)
+A68_ATTR(MAIN_SYMBOL)
+A68_ATTR(MEEK)
+A68_ATTR(MODE_BITS)
+A68_ATTR(MODE_BOOL)
+A68_ATTR(MODE_BYTES)
+A68_ATTR(MODE_CHAR)
+A68_ATTR(MODE_COMPLEX)
+A68_ATTR(MODE_DECLARATION)
+A68_ATTR(MODE_FILE)
+A68_ATTR(MODE_FORMAT)
+A68_ATTR(A68_MODE_INT)
+A68_ATTR(MODE_LONG_LONG_BITS)
+A68_ATTR(MODE_LONG_LONG_COMPLEX)
+A68_ATTR(MODE_LONG_LONG_INT)
+A68_ATTR(MODE_LONG_LONG_REAL)
+A68_ATTR(MODE_LONG_BITS)
+A68_ATTR(MODE_LONG_BYTES)
+A68_ATTR(MODE_LONG_COMPLEX)
+A68_ATTR(MODE_LONG_INT)
+A68_ATTR(MODE_LONG_REAL)
+A68_ATTR(MODE_NO_CHECK)
+A68_ATTR(MODE_REAL)
+A68_ATTR(MODE_SYMBOL)
+A68_ATTR(MONADIC_FORMULA)
+A68_ATTR(MONAD_SEQUENCE)
+A68_ATTR(NIHIL)
+A68_ATTR(NIL_SYMBOL)
+A68_ATTR(NORMAL_IDENTIFIER)
+A68_ATTR(NO_SORT)
+A68_ATTR(OD_SYMBOL)
+A68_ATTR(OF_SYMBOL)
+A68_ATTR(OPEN_PART)
+A68_ATTR(OPEN_SYMBOL)
+A68_ATTR(OPERATOR)
+A68_ATTR(OPERATOR_DECLARATION)
+A68_ATTR(OPERATOR_PLAN)
+A68_ATTR(OP_SYMBOL)
+A68_ATTR(ORF_SYMBOL)
+A68_ATTR(OR_FUNCTION)
+A68_ATTR(OUSE_PART)
+A68_ATTR(OUSE_SYMBOL)
+A68_ATTR(OUT_PART)
+A68_ATTR(OUT_SYMBOL)
+A68_ATTR(OUT_TYPE_MODE)
+A68_ATTR(PARALLEL_CLAUSE)
+A68_ATTR(PARAMETER)
+A68_ATTR(PARAMETER_IDENTIFIER)
+A68_ATTR(PARAMETER_LIST)
+A68_ATTR(PARAMETER_PACK)
+A68_ATTR(PARTICULAR_PROGRAM)
+A68_ATTR(PAR_SYMBOL)
+A68_ATTR(PICTURE)
+A68_ATTR(PICTURE_LIST)
+A68_ATTR(PIPE_SYMBOL)
+A68_ATTR(POINT_SYMBOL)
+A68_ATTR(PRIMARY)
+A68_ATTR(PRIORITY)
+A68_ATTR(PRIORITY_DECLARATION)
+A68_ATTR(PRIO_SYMBOL)
+A68_ATTR(PROCEDURE_DECLARATION)
+A68_ATTR(PROCEDURE_VARIABLE_DECLARATION)
+A68_ATTR(PROCEDURING)
+A68_ATTR(PROC_SYMBOL)
+A68_ATTR(QUALIFIER)
+A68_ATTR(RADIX_FRAME)
+A68_ATTR(REAL_DENOTATION)
+A68_ATTR(REAL_PATTERN)
+A68_ATTR(REAL_SYMBOL)
+A68_ATTR(REF_SYMBOL)
+A68_ATTR(REPLICATOR)
+A68_ATTR(ROUTINE_TEXT)
+A68_ATTR(ROUTINE_UNIT)
+A68_ATTR(ROWING)
+A68_ATTR(ROWS_SYMBOL)
+A68_ATTR(ROW_CHAR_DENOTATION)
+A68_ATTR(ROW_SYMBOL)
+A68_ATTR(SECONDARY)
+A68_ATTR(SELECTION)
+A68_ATTR(SELECTOR)
+A68_ATTR(SEMA_SYMBOL)
+A68_ATTR(SEMI_SYMBOL)
+A68_ATTR(SERIAL_CLAUSE)
+A68_ATTR(SERIES_MODE)
+A68_ATTR(SHORTETY)
+A68_ATTR(SHORT_SYMBOL)
+A68_ATTR(SIGN_MOULD)
+A68_ATTR(SKIP)
+A68_ATTR(SKIP_SYMBOL)
+A68_ATTR(SLICE)
+A68_ATTR(SOFT)
+A68_ATTR(SOME_CLAUSE)
+A68_ATTR(SPECIFICATION)
+A68_ATTR(SPECIFIED_UNIT)
+A68_ATTR(SPECIFIED_UNIT_LIST)
+A68_ATTR(SPECIFIED_UNIT_UNIT)
+A68_ATTR(SPECIFIER)
+A68_ATTR(SPECIFIER_IDENTIFIER)
+A68_ATTR(STANDARD)
+A68_ATTR(STATIC_REPLICATOR)
+A68_ATTR(STOWED_MODE)
+A68_ATTR(STRING_C_PATTERN)
+A68_ATTR(STRING_PATTERN)
+A68_ATTR(STRING_SYMBOL)
+A68_ATTR(STRONG)
+A68_ATTR(STRUCTURED_FIELD)
+A68_ATTR(STRUCTURED_FIELD_LIST)
+A68_ATTR(STRUCTURE_PACK)
+A68_ATTR(STRUCT_SYMBOL)
+A68_ATTR(STYLE_II_COMMENT_SYMBOL)
+A68_ATTR(STYLE_I_COMMENT_SYMBOL)
+A68_ATTR(STYLE_I_PRAGMAT_SYMBOL)
+A68_ATTR(SUB_SYMBOL)
+A68_ATTR(SUB_UNIT)
+A68_ATTR(TERTIARY)
+A68_ATTR(THEN_BAR_SYMBOL)
+A68_ATTR(THEN_PART)
+A68_ATTR(THEN_SYMBOL)
+A68_ATTR(TO_PART)
+A68_ATTR(TO_SYMBOL)
+A68_ATTR(TRIMMER)
+A68_ATTR(TRUE_SYMBOL)
+A68_ATTR(UNION_DECLARER_LIST)
+A68_ATTR(UNION_PACK)
+A68_ATTR(UNION_SYMBOL)
+A68_ATTR(UNIT)
+A68_ATTR(UNITING)
+A68_ATTR(UNIT_LIST)
+A68_ATTR(UNIT_SERIES)
+A68_ATTR(VARIABLE_DECLARATION)
+A68_ATTR(VIRTUAL_DECLARER_MARK)
+A68_ATTR(VOIDING)
+A68_ATTR(VOID_SYMBOL)
+A68_ATTR(WEAK)
+A68_ATTR(WHILE_PART)
+A68_ATTR(WHILE_SYMBOL)
+A68_ATTR(WIDENING)
+A68_ATTR(WILDCARD)
+
+/*
+Local variables:
+mode:c
+End:
+*/
--
2.30.2
