view anagram/agcore/q1glbl.cpp @ 14:a02e9434072e

Fix friend declaration for gcc10. XXX: did not check it against the IBM compiler, might end up needing XXX: to be conditional.
author David A. Holland
date Tue, 31 May 2022 00:59:42 -0400
parents 13d2b8934445
children
line wrap: on
line source

/*
 * AnaGram, A System for Syntax Directed Programming
 * Copyright 1993-2002 Parsifal Software. All Rights Reserved.
 * See the file COPYING for license and usage terms.
 *
 * q1glbl.cpp
 */

#include <stddef.h>
#include "port.h"

#include "q1glbl.h"


item_map *map_item = NULL;
state_number_map *map_state_number = NULL;

completed_form_map *map_completed_form = NULL;
tuple_dict *completed_form_dict = NULL;

tsd  *bnf_table = NULL;         /*      {tkn#,form#} backus normal form */
tsd  *ibnf_table = NULL;        /*      {form#, token#} inverse bnf */

int parse_table_length;

int  *ibnfs = NULL;
int  *ibnfb = NULL;
int  *ibnfn = NULL;

int  *tut = NULL;
int  *token_perm = NULL;  /*      token sort permutation base */
unsigned   perm_index;    /*      length of sorted token list */
tsd  *srt = NULL;         /*      summary return table for current is */
tsd  *sgt = NULL;         /*      summary goto table for current is */
unsigned *items = NULL;   /*      {itemset#, item#, index}  itemset table */
int   lits;               /*      length of item set */
int   ncssa;
list_dict *isht_dict = NULL;
unsigned   kits;        /*      itemset under investigation */
unsigned   nits;        /*      number of item sets                */
unsigned   nforms;      /*      number of forms */
unsigned   nforms_base;
unsigned   nitems;      /*      number of items */
unsigned   ntkns;       /*      number of tokens */
unsigned   frs;         /*      forms to reduce */
unsigned   kfrs;        /*      count of forms to reduce */