Mercurial > ~dholland > hg > ag > index.cgi

comparison anagram/agcore/q1glbl.cpp @ 0:13d2b8934445

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import AnaGram (near-)release tree into Mercurial.
author David A. Holland
date Sat, 22 Dec 2007 17:52:45 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:13d2b8934445
1 /*
2 * AnaGram, A System for Syntax Directed Programming
3 * Copyright 1993-2002 Parsifal Software. All Rights Reserved.
4 * See the file COPYING for license and usage terms.
5 *
6 * q1glbl.cpp
7 */
8
9 #include <stddef.h>
10 #include "port.h"
11
12 #include "q1glbl.h"
13
14
15 item_map *map_item = NULL;
16 state_number_map *map_state_number = NULL;
17
18 completed_form_map *map_completed_form = NULL;
19 tuple_dict *completed_form_dict = NULL;
20
21 tsd *bnf_table = NULL; /* {tkn#,form#} backus normal form */
22 tsd *ibnf_table = NULL; /* {form#, token#} inverse bnf */
23
24 int parse_table_length;
25
26 int *ibnfs = NULL;
27 int *ibnfb = NULL;
28 int *ibnfn = NULL;
29
30 int *tut = NULL;
31 int *token_perm = NULL; /* token sort permutation base */
32 unsigned perm_index; /* length of sorted token list */
33 tsd *srt = NULL; /* summary return table for current is */
34 tsd *sgt = NULL; /* summary goto table for current is */
35 unsigned *items = NULL; /* {itemset#, item#, index} itemset table */
36 int lits; /* length of item set */
37 int ncssa;
38 list_dict *isht_dict = NULL;
39 unsigned kits; /* itemset under investigation */
40 unsigned nits; /* number of item sets */
41 unsigned nforms; /* number of forms */
42 unsigned nforms_base;
43 unsigned nitems; /* number of items */
44 unsigned ntkns; /* number of tokens */
45 unsigned frs; /* forms to reduce */
46 unsigned kfrs; /* count of forms to reduce */
47