Algol 68 Genie

a68g-parser.h

     
   1  //! @file a68g-parser.h
   2  //! @author J. Marcel van der Veer
   3  
   4  //! @section Copyright
   5  //!
   6  //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
   7  //! Copyright 2001-2024 J. Marcel van der Veer [algol68g@xs4all.nl].
   8  
   9  //! @section License
  10  //!
  11  //! This program is free software; you can redistribute it and/or modify it 
  12  //! under the terms of the GNU General Public License as published by the 
  13  //! Free Software Foundation; either version 3 of the License, or 
  14  //! (at your option) any later version.
  15  //!
  16  //! This program is distributed in the hope that it will be useful, but 
  17  //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
  18  //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 
  19  //! more details. You should have received a copy of the GNU General Public 
  20  //! License along with this program. If not, see [http://www.gnu.org/licenses/].
  21  
  22  //! @section Synopsis
  23  //!
  24  //! Definitions related to the parser.
  25  
  26  #if !defined (__A68G_PARSER_H__)
  27  #define __A68G_PARSER_H__
  28  
  29  #define STOP_CHAR 127
  30  
  31  BOOL_T dont_mark_here (NODE_T *);
  32  BOOL_T is_coercion (NODE_T *);
  33  BOOL_T is_firm (MOID_T *, MOID_T *);
  34  BOOL_T is_firm (MOID_T *, MOID_T *);
  35  BOOL_T is_formal_bounds (NODE_T *);
  36  BOOL_T is_loop_keyword (NODE_T *);
  37  BOOL_T are_modes_equivalent (MOID_T *, MOID_T *);
  38  BOOL_T is_new_lexical_level (NODE_T *);
  39  BOOL_T is_one_of (NODE_T * p, ...);
  40  BOOL_T is_ref_refety_flex (MOID_T *);
  41  BOOL_T is_semicolon_less (NODE_T *);
  42  BOOL_T is_subset (MOID_T *, MOID_T *, int);
  43  BOOL_T is_unitable (MOID_T *, MOID_T *, int);
  44  BOOL_T is_unit_terminator (NODE_T *);
  45  BOOL_T lexical_analyser (void);
  46  BOOL_T match_string (char *, char *, char);
  47  BOOL_T prove_moid_equivalence (MOID_T *, MOID_T *);
  48  BOOL_T whether (NODE_T * p, ...);
  49  char *phrase_to_text (NODE_T *, NODE_T **);
  50  GINFO_T *new_genie_info (void);
  51  int count_formal_bounds (NODE_T *);
  52  int count_operands (NODE_T *);
  53  int count_pack_members (PACK_T *);
  54  int first_tag_global (TABLE_T *, char *);
  55  int get_good_attribute (NODE_T *);
  56  int is_identifier_or_label_global (TABLE_T *, char *);
  57  KEYWORD_T *find_keyword_from_attribute (KEYWORD_T *, int);
  58  KEYWORD_T *find_keyword (KEYWORD_T *, char *);
  59  LINE_T *new_source_line (void);
  60  MOID_T *add_mode (MOID_T **, int, int, NODE_T *, MOID_T *, PACK_T *);
  61  MOID_T *depref_completely (MOID_T *);
  62  MOID_T *get_mode_from_declarer (NODE_T *);
  63  MOID_T *new_moid (void);
  64  MOID_T *register_extra_mode (MOID_T **, MOID_T *);
  65  MOID_T *unites_to (MOID_T *, MOID_T *);
  66  NODE_INFO_T *new_node_info (void);
  67  NODE_T *get_next_format_pattern (NODE_T *, A68_REF, BOOL_T);
  68  NODE_T *new_node (void);
  69  NODE_T *reduce_dyadic (NODE_T *, int u);
  70  NODE_T *some_node (char *);
  71  NODE_T *top_down_loop (NODE_T *);
  72  NODE_T *top_down_skip_unit (NODE_T *);
  73  PACK_T *absorb_union_pack (PACK_T *);
  74  PACK_T *new_pack (void);
  75  TABLE_T *find_level (NODE_T *, int);
  76  TABLE_T *new_symbol_table (TABLE_T *);
  77  TAG_T *add_tag (TABLE_T *, int, NODE_T *, MOID_T *, int);
  78  TAG_T *find_tag_global (TABLE_T *, int, char *);
  79  TAG_T *find_tag_local (TABLE_T *, int, const char *);
  80  TAG_T *new_tag (void);
  81  TOKEN_T *add_token (TOKEN_T **, char *);
  82  void a68_parser (void);
  83  void add_mode_to_pack_end (PACK_T **, MOID_T *, char *, NODE_T *);
  84  void add_mode_to_pack (PACK_T **, MOID_T *, char *, NODE_T *);
  85  void append_source_line (char *, LINE_T **, int *, char *);
  86  void assign_offsets (NODE_T *);
  87  void assign_offsets_packs (MOID_T *);
  88  void assign_offsets_table (TABLE_T *);
  89  void bind_format_tags_to_tree (NODE_T *);
  90  void bind_routine_tags_to_tree (NODE_T *);
  91  void bottom_up_error_check (NODE_T *);
  92  void bottom_up_parser (NODE_T *);
  93  void check_parenthesis (NODE_T *);
  94  void coercion_inserter (NODE_T *);
  95  void coercion_inserter (NODE_T *);
  96  void collect_taxes (NODE_T *);
  97  void contract_union (MOID_T *);
  98  void count_pictures (NODE_T *, int *);
  99  void elaborate_bold_tags (NODE_T *);
 100  void extract_declarations (NODE_T *);
 101  void extract_declarations (NODE_T *);
 102  void extract_identities (NODE_T *);
 103  void extract_indicants (NODE_T *);
 104  void extract_labels (NODE_T *, int);
 105  void extract_operators (NODE_T *);
 106  void extract_priorities (NODE_T *);
 107  void extract_proc_identities (NODE_T *);
 108  void extract_proc_variables (NODE_T *);
 109  void extract_variables (NODE_T *);
 110  void fill_symbol_table_outer (NODE_T *, TABLE_T *);
 111  void finalise_symbol_table_setup (NODE_T *, int);
 112  void free_genie_heap (NODE_T *);
 113  void get_max_simplout_size (NODE_T *);
 114  void get_refinements (void);
 115  void ignore_superfluous_semicolons (NODE_T *);
 116  void init_before_tokeniser (void);
 117  void init_parser (void);
 118  void jumps_from_procs (NODE_T * p);
 119  void make_moid_list (MODULE_T *);
 120  void make_special_mode (MOID_T **, int);
 121  void make_standard_environ (void);
 122  void make_sub (NODE_T *, NODE_T *, int);
 123  void mark_auxilliary (NODE_T *);
 124  void mark_jump_in_par (NODE_T *, BOOL_T);
 125  void mark_moids (NODE_T *);
 126  void mode_checker (NODE_T *);
 127  void mode_checker (NODE_T *);
 128  void portcheck (NODE_T *);
 129  void preliminary_symbol_table_setup (NODE_T *);
 130  void prune_echoes (OPTION_LIST_T *);
 131  void put_refinements (void);
 132  void rearrange_goto_less_jumps (NODE_T *);
 133  void recover_from_error (NODE_T *, int, BOOL_T);
 134  void reduce_arguments (NODE_T *);
 135  void reduce_basic_declarations (NODE_T *);
 136  void reduce_bounds (NODE_T *);
 137  void reduce_branch (NODE_T *, int);
 138  void reduce_collateral_clauses (NODE_T *);
 139  void reduce_declaration_lists (NODE_T *);
 140  void reduce_declarers (NODE_T *, int);
 141  void reduce_enclosed_clauses (NODE_T *, int);
 142  void reduce_enquiry_clauses (NODE_T *);
 143  void reduce_erroneous_units (NODE_T *);
 144  void reduce_format_texts (NODE_T *);
 145  void reduce_formulae (NODE_T *);
 146  void reduce_generic_arguments (NODE_T *);
 147  void reduce (NODE_T *, void (*)(NODE_T *), BOOL_T *, ...);
 148  void reduce_primaries (NODE_T *, int);
 149  void reduce_primary_parts (NODE_T *, int);
 150  void reduce_right_to_left_constructs (NODE_T * q);
 151  void reduce_secondaries (NODE_T *);
 152  void reduce_serial_clauses (NODE_T *);
 153  void reduce_tertiaries (NODE_T *);
 154  void reduce_units (NODE_T *);
 155  void register_nodes (NODE_T *);
 156  void renumber_moids (MOID_T *, int);
 157  void renumber_nodes (NODE_T *, int *);
 158  void reset_symbol_table_nest_count (NODE_T *);
 159  void scope_checker (NODE_T *);
 160  void scope_checker (NODE_T *);
 161  void set_moid_sizes (MOID_T *);
 162  void set_nest (NODE_T *, NODE_T *);
 163  void set_proc_level (NODE_T *, int);
 164  void set_up_tables (void);
 165  void substitute_brackets (NODE_T *);
 166  void tie_label_to_serial (NODE_T *);
 167  void tie_label_to_unit (NODE_T *);
 168  void top_down_parser (NODE_T *);
 169  void verbosity (void);
 170  void victal_checker (NODE_T *);
 171  void warn_for_unused_tags (NODE_T *);
 172  void widen_denotation (NODE_T *);
 173  
 174  #endif
Deze website is gearchiveerd door de KB, nationale bibliotheek.

This website is archived by the National Library of the Netherlands.