AnaGram interim repo (temporary): tests/agcl/oldagsrc/good/cf.cpp annotate

author	David A. Holland
date	Sat, 22 Dec 2007 17:52:45 -0500
parents
children

rev	line source
0 13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	1 /*
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	2 AnaGram Syntax Analyzer.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	3 Copyright (c) Parsifal Software, 1993-1999.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	4 All Rights Reserved.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	5
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	6 Configuration file module
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	7 */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	8
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	9 //#define INCLUDE_LOGGING
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	10
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	11 #include "arrays.h" //ARRAYS
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	12 #include "assert.h" //ASSERT
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	13 #include "cint.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	14 #include "config.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	15 #include "data.h" //DATA
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	16 #include "error.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	17 #include "log.hpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	18 #include "myalloc.h" //MYALLOC
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	19 #include "pf.h" //PF
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	20 #include "tfile.h" //TFILE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	21 #include <ctype.h> //CTYPE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	22 #include <stdlib.h> //STDLIB
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	23 #include <string.h> //STRING
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	24
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	25 #undef MODULE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	26 #define MODULE 50
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	27
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	28 /*
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	29 * AnaGram, A System for Syntax Directed Programming
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	30 * File generated by: ...
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	31 *
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	32 * AnaGram Parsing Engine
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	33 * Copyright 1993-2002 Parsifal Software. All Rights Reserved.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	34 *
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	35 * This software is provided 'as-is', without any express or implied
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	36 * warranty. In no event will the authors be held liable for any damages
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	37 * arising from the use of this software.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	38 *
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	39 * Permission is granted to anyone to use this software for any purpose,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	40 * including commercial applications, and to alter it and redistribute it
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	41 * freely, subject to the following restrictions:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	42 *
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	43 * 1. The origin of this software must not be misrepresented; you must not
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	44 * claim that you wrote the original software. If you use this software
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	45 * in a product, an acknowledgment in the product documentation would be
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	46 * appreciated but is not required.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	47 * 2. Altered source versions must be plainly marked as such, and must not be
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	48 * misrepresented as being the original software.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	49 * 3. This notice may not be removed or altered from any source distribution.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	50 */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	51
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	52 #ifndef CF_H
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	53 #include "cf.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	54 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	55
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	56 #ifndef CF_H
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	57 #error Mismatched header file
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	58 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	59
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	60 #include <ctype.h>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	61 #include <stdio.h>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	62
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	63 #define RULE_CONTEXT (&((PCB).cs[(PCB).ssx]))
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	64 #define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx])
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	65 #define CONTEXT ((PCB).cs[(PCB).ssx])
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	66
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	67
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	68 #define CHANGE_REDUCTION(x) cf_change_reduction(cf_##x##_token)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	69 int cf_change_reduction(cf_token_type);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	70
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	71
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	72 int cf_value(void);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	73
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	74 #define TOKEN_NAMES cf_token_names
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	75 const char *const cf_token_names[104] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	76 "config file",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	77 "config file",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	78 "equals",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	79 "'='",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	80 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	81 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	82 "minus",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	83 "'-'",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	84 "plus",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	85 "'+'",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	86 "tilde",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	87 "'~'",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	88 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	89 "'('",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	90 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	91 "')'",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	92 "blank",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	93 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	94 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	95 "global parameter",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	96 "end of line",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	97 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	98 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	99 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	100 "eof",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	101 "name",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	102 "data type",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	103 "keyword string",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	104 "number",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	105 "abstract declarator",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	106 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	107 "direct abstract declarator",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	108 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	109 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	110 "star",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	111 "'*'",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	112 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	113 "letter",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	114 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	115 "blank char",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	116 "c comment",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	117 "continuation",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	118 "comment",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	119 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	120 "carriage return",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	121 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	122 "newline",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	123 "white",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	124 "vertical space",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	125 "\"//\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	126 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	127 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	128 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	129 "decimal number",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	130 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	131 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	132 "octal number",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	133 "'0'",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	134 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	135 "hex number",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	136 "\"0x\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	137 "\"0X\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	138 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	139 "simple number",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	140 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	141 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	142 "keyword string head",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	143 "string",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	144 "double quote",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	145 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	146 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	147 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	148 "string char",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	149 "simple string char",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	150 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	151 "\"\\\\a\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	152 "\"\\\\b\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	153 "\"\\\\f\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	154 "\"\\\\n\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	155 "\"\\\\r\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	156 "\"\\\\t\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	157 "\"\\\\v\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	158 "\"\\\\\\\\\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	159 "\"\\\\?\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	160 "\"\\\\\\'\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	161 "\"\\\\\\\"\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	162 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	163 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	164 "backslash",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	165 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	166 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	167 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	168 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	169 "\"\\\\x\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	170 "any digit",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	171 "nonoctal digit",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	172 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	173 "\"*/\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	174 "\"/*\"",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	175 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	176 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	177 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	178 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	179 "",
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	180
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	181 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	182
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	183
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	184 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	185 #define PARSER_STACK_OVERFLOW assert(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	186 #define REDUCTION_TOKEN_ERROR assert(0)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	187 #define SYNTAX_ERROR cf_syn_error()
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	188 #define GET_CONTEXT CONTEXT.x = PCB.column, CONTEXT.y = PCB.line
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	189
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	190 static void cf_error(const char *);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	191
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	192 class CfErrorHandler : public ConfigParam::ErrorHandler {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	193 void badParam(const char *s){cf_error(s);}
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	194 } cfErrorHandler;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	195
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	196
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	197
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	198 static cf_pcb_type cfcb;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	199 #define PCB cfcb
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	200
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	201 extern unsigned char *input_base;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	202
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	203 static AgString config_file;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	204
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	205 void read_config(const AgString path) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	206 LOGSECTION("read_config");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	207 LOGV(path);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	208 config_file = path.lastCut(PATH_DELIMITER).leftI().concat("AnaGram.cfg");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	209 text_file tf(config_file);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	210 cfcb.pointer = input_base = (unsigned char *) tf;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	211 if (input_base) cf();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	212 config_file = "AnaGram.cfg";
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	213 tf = text_file(config_file);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	214 cfcb.pointer = input_base = (unsigned char *) tf;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	215 LOGS("Starting parse");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	216 if (input_base) cf();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	217 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	218
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	219 static void cf_error(const char *msg) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	220 errorList.push(Error(config_file, msg, 1));
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	221 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	222
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	223 Error::Error(AgString f, AgString msg, int contextFlag)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	224 : file(f),
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	225 line(contextFlag? ERROR_CONTEXT.y : PCB.line),
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	226 column(contextFlag? ERROR_CONTEXT.y :PCB.column),
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	227 key(warn),
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	228 message(msg)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	229 {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	230 // Nothing here
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	231 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	232
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	233
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	234 static void cf_syn_error(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	235 reset_stk();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	236 cf_error(PCB.error_message);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	237 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	238
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	239
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	240 int allow_macros = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	241 int auto_init = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	242 int auto_resynch = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	243 int backtrack = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	244 int bottom_margin = 3;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	245 int bright_background = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	246
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	247 int case_sensitive = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	248 AgString compile_command("");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	249 int const_data = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	250 AgString context_type;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	251 AgString coverage_file_name("#.nrc");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	252
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	253 int declare_pcb = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	254 int default_input_type;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	255 int default_token_type;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	256 int default_reductions = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	257 int diagnose_errors = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	258 int distinguish_lexemes = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	259
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	260 AgString edit_command("ed #.syn");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	261 int enable_mouse = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	262 AgString enum_constant_name("$_%_token");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	263 int error_frame = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	264 int error_trace = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	265 int escape_backslashes = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	266 int event_driven = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	267
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	268 int far_tables = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	269
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	270 int grammar_token = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	271 AgString header_file_name("#.h");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	272 int input_values = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	273 int iso_latin_1 = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	274
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	275 int line_length = 80;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	276 int line_numbers = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	277 AgString line_numbers_path;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	278 int lines_and_columns = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	279
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	280 int main_program = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	281 int max_conflicts = 50;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	282 //AgString mutex_type;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	283
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	284 int near_functions = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	285 int nest_comments = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	286
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	287 int old_style = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	288
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	289 int page_length = 66;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	290 AgString parser_file_name("#.c");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	291 AgString parser_name("#");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	292 int parser_stack_alignment;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	293 int parser_stack_size = 32;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	294 int pointer_input = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	295 AgString pointer_type("unsigned char *");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	296 AgString print_file_name("LPT1");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	297
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	298 int quick_reference = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	299
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	300 int reduction_choices =0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	301 int reentrant_parser = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	302 int rule_coverage = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	303
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	304 int tab_spacing = 8;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	305 int test_file_binary = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	306 AgString test_file_mask(".");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	307 int test_range = 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	308 int token_names = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	309 int top_margin = 3;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	310 int traditional_engine = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	311
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	312 int video_mode = -1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	313
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	314 int trial_copy_code = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	315
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	316 int error_token;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	317 int eof_token = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	318
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	319 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	320
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	321 #ifndef CONVERT_CASE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	322 #define CONVERT_CASE(c) (c)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	323 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	324 #ifndef TAB_SPACING
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	325 #define TAB_SPACING 8
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	326 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	327 int cf_value(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	328 int returnValue;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	329 returnValue = (PCB).vs[(PCB).ssx];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	330 return returnValue;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	331 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	332
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	333 static void ag_rp_1(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	334 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	335 ConfigParam::set(1, cfErrorHandler);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	336 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	337 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	338
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	339 static void ag_rp_2(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	340 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	341 ConfigParam::set(0, cfErrorHandler);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	342 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	343 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	344
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	345 static void ag_rp_3(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	346 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	347 ConfigParam::set(cfErrorHandler);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	348 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	349 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	350
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	351 static void ag_rp_4(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	352 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	353 ConfigParam::set(cfErrorHandler);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	354 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	355 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	356
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	357 static void ag_rp_5(int n) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	358 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	359 ConfigParam::set(cfErrorHandler);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	360 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	361 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	362
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	363 static void ag_rp_6(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	364 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	365 concat_string();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	366 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	367 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	368
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	369 static void ag_rp_7(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	370 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	371 concat_string();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	372 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	373 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	374
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	375 static int ag_rp_8(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	376 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	377 return scs('('),0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	378 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	379 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	380
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	381 static void ag_rp_9(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	382 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	383 concat_string(), acs(')');
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	384 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	385 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	386
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	387 static void ag_rp_10(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	388 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	389 concat_string();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	390 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	391 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	392
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	393 static void ag_rp_11(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	394 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	395 sss(" *");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	396 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	397 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	398
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	399 static void ag_rp_12(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	400 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	401 concat_string();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	402 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	403 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	404
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	405 static void ag_rp_13(int a) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	406 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	407 scs(a);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	408 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	409 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	410
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	411 static void ag_rp_14(int a) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	412 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	413 acs(a);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	414 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	415 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	416
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	417 static void ag_rp_15(int a) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	418 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	419 acs(' '), acs(a);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	420 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	421 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	422
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	423 static int ag_rp_16(int d) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	424 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	425 return d - '0';
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	426 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	427 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	428
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	429 static int ag_rp_17(int n, int d) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	430 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	431 return 10*n + d - '0';
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	432 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	433 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	434
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	435 static int ag_rp_18(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	436 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	437 return 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	438 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	439 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	440
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	441 static int ag_rp_19(int n, int d) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	442 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	443 return 8*n + d - '0';
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	444 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	445 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	446
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	447 static int ag_rp_20(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	448 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	449 return 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	450 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	451 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	452
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	453 static int ag_rp_21(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	454 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	455 return 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	456 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	457 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	458
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	459 static int ag_rp_22(int n, int d) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	460 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	461 return 16*n + d - '0';
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	462 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	463 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	464
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	465 static int ag_rp_23(int n, int d) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	466 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	467 return 16*n + (d&7) + 9;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	468 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	469 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	470
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	471 static int ag_rp_24(int s, int n) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	472 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	473 return s*n;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	474 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	475 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	476
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	477 static int ag_rp_25(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	478 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	479 return 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	480 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	481 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	482
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	483 static int ag_rp_26(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	484 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	485 return -1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	486 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	487 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	488
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	489 static void ag_rp_27(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	490 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	491 ics();
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	492 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	493 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	494
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	495 static int ag_rp_28(void) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	496 #line - "cf.syn"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	497 return '\a';
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	498 #line - "cf.cpp"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	499 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	500

0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1 /*

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

2 AnaGram Syntax Analyzer.

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

3 Copyright (c) Parsifal Software, 1993-1999.

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

5

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

6 Configuration file module

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

7 */

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

8

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

9 //#define INCLUDE_LOGGING

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

10

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

11 #include "arrays.h" //ARRAYS

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

12 #include "assert.h" //ASSERT

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

13 #include "cint.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

14 #include "config.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

15 #include "data.h" //DATA

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

16 #include "error.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

17 #include "log.hpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

18 #include "myalloc.h" //MYALLOC

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

19 #include "pf.h" //PF

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

20 #include "tfile.h" //TFILE

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

21 #include <ctype.h> //CTYPE

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

22 #include <stdlib.h> //STDLIB

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

23 #include <string.h> //STRING

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

24

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

25 #undef MODULE

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

26 #define MODULE 50

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

27

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

28 /*

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

29 * AnaGram, A System for Syntax Directed Programming

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

30 * File generated by: ...

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

31 *

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

32 * AnaGram Parsing Engine

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

34 *

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

35 * This software is provided 'as-is', without any express or implied

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

36 * warranty. In no event will the authors be held liable for any damages

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

37 * arising from the use of this software.

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

38 *

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

39 * Permission is granted to anyone to use this software for any purpose,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

40 * including commercial applications, and to alter it and redistribute it

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

41 * freely, subject to the following restrictions:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

42 *

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

43 * 1. The origin of this software must not be misrepresented; you must not

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

44 * claim that you wrote the original software. If you use this software

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

45 * in a product, an acknowledgment in the product documentation would be

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

46 * appreciated but is not required.

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

47 * 2. Altered source versions must be plainly marked as such, and must not be

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

48 * misrepresented as being the original software.

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

49 * 3. This notice may not be removed or altered from any source distribution.

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

50 */

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

51

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

52 #ifndef CF_H

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

53 #include "cf.h"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

54 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

55

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

56 #ifndef CF_H

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

57 #error Mismatched header file

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

58 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

59

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

60 #include <ctype.h>

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

61 #include <stdio.h>

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

62

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

63 #define RULE_CONTEXT (&((PCB).cs[(PCB).ssx]))

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

64 #define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx])

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

65 #define CONTEXT ((PCB).cs[(PCB).ssx])

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

66

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

67

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

68 #define CHANGE_REDUCTION(x) cf_change_reduction(cf_##x##_token)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

69 int cf_change_reduction(cf_token_type);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

70

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

71

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

72 int cf_value(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

73

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

74 #define TOKEN_NAMES cf_token_names

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

75 const char *const cf_token_names[104] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

76 "config file",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

77 "config file",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

78 "equals",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

79 "'='",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

80 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

81 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

82 "minus",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

83 "'-'",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

84 "plus",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

85 "'+'",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

86 "tilde",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

87 "'~'",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

88 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

89 "'('",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

90 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

91 "')'",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

92 "blank",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

93 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

94 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

95 "global parameter",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

96 "end of line",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

97 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

98 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

99 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

100 "eof",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

101 "name",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

102 "data type",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

103 "keyword string",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

104 "number",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

105 "abstract declarator",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

106 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

107 "direct abstract declarator",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

108 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

109 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

110 "star",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

111 "'*'",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

112 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

113 "letter",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

114 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

115 "blank char",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

116 "c comment",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

117 "continuation",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

118 "comment",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

119 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

120 "carriage return",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

121 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

122 "newline",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

123 "white",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

124 "vertical space",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

125 "\"//\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

126 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

127 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

128 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

129 "decimal number",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

130 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

131 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

132 "octal number",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

133 "'0'",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

134 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

135 "hex number",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

136 "\"0x\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

137 "\"0X\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

138 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

139 "simple number",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

140 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

141 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

142 "keyword string head",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

143 "string",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

144 "double quote",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

145 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

146 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

147 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

148 "string char",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

149 "simple string char",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

150 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

151 "\"\\\\a\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

152 "\"\\\\b\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

153 "\"\\\\f\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

154 "\"\\\\n\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

155 "\"\\\\r\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

156 "\"\\\\t\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

157 "\"\\\\v\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

158 "\"\\\\\\\\\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

159 "\"\\\\?\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

160 "\"\\\\\\'\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

161 "\"\\\\\\\"\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

162 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

163 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

164 "backslash",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

165 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

166 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

167 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

168 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

169 "\"\\\\x\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

170 "any digit",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

171 "nonoctal digit",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

172 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

173 "\"*/\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

174 "\"/*\"",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

175 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

176 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

177 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

178 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

179 "",

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

180

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

181 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

182

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

183

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

184 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

185 #define PARSER_STACK_OVERFLOW assert(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

186 #define REDUCTION_TOKEN_ERROR assert(0)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

187 #define SYNTAX_ERROR cf_syn_error()

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

188 #define GET_CONTEXT CONTEXT.x = PCB.column, CONTEXT.y = PCB.line

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

189

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

190 static void cf_error(const char *);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

191

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

192 class CfErrorHandler : public ConfigParam::ErrorHandler {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

193 void badParam(const char *s){cf_error(s);}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

194 } cfErrorHandler;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

195

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

196

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

197

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

198 static cf_pcb_type cfcb;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

199 #define PCB cfcb

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

200

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

201 extern unsigned char *input_base;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

202

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

203 static AgString config_file;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

204

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

205 void read_config(const AgString path) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

206 LOGSECTION("read_config");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

207 LOGV(path);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

208 config_file = path.lastCut(PATH_DELIMITER).leftI().concat("AnaGram.cfg");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

209 text_file tf(config_file);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

210 cfcb.pointer = input_base = (unsigned char *) tf;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

211 if (input_base) cf();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

212 config_file = "AnaGram.cfg";

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

213 tf = text_file(config_file);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

214 cfcb.pointer = input_base = (unsigned char *) tf;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

215 LOGS("Starting parse");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

216 if (input_base) cf();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

217 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

218

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

219 static void cf_error(const char *msg) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

220 errorList.push(Error(config_file, msg, 1));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

221 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

222

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

223 Error::Error(AgString f, AgString msg, int contextFlag)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

224 : file(f),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

225 line(contextFlag? ERROR_CONTEXT.y : PCB.line),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

226 column(contextFlag? ERROR_CONTEXT.y :PCB.column),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

227 key(warn),

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

228 message(msg)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

229 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

230 // Nothing here

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

231 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

232

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

233

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

234 static void cf_syn_error(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

235 reset_stk();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

236 cf_error(PCB.error_message);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

237 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

238

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

239

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

240 int allow_macros = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

241 int auto_init = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

242 int auto_resynch = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

243 int backtrack = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

244 int bottom_margin = 3;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

245 int bright_background = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

246

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

247 int case_sensitive = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

248 AgString compile_command("");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

249 int const_data = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

250 AgString context_type;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

251 AgString coverage_file_name("#.nrc");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

252

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

253 int declare_pcb = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

254 int default_input_type;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

255 int default_token_type;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

256 int default_reductions = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

257 int diagnose_errors = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

258 int distinguish_lexemes = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

259

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

260 AgString edit_command("ed #.syn");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

261 int enable_mouse = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

262 AgString enum_constant_name("$_%_token");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

263 int error_frame = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

264 int error_trace = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

265 int escape_backslashes = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

266 int event_driven = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

267

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

268 int far_tables = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

269

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

270 int grammar_token = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

271 AgString header_file_name("#.h");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

272 int input_values = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

273 int iso_latin_1 = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

274

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

275 int line_length = 80;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

276 int line_numbers = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

277 AgString line_numbers_path;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

278 int lines_and_columns = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

279

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

280 int main_program = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

281 int max_conflicts = 50;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

282 //AgString mutex_type;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

283

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

284 int near_functions = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

285 int nest_comments = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

286

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

287 int old_style = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

288

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

289 int page_length = 66;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

290 AgString parser_file_name("#.c");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

291 AgString parser_name("#");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

292 int parser_stack_alignment;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

293 int parser_stack_size = 32;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

294 int pointer_input = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

295 AgString pointer_type("unsigned char *");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

296 AgString print_file_name("LPT1");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

297

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

298 int quick_reference = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

299

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

300 int reduction_choices =0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

301 int reentrant_parser = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

302 int rule_coverage = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

303

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

304 int tab_spacing = 8;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

305 int test_file_binary = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

306 AgString test_file_mask("*.*");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

307 int test_range = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

308 int token_names = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

309 int top_margin = 3;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

310 int traditional_engine = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

311

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

312 int video_mode = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

313

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

314 int trial_copy_code = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

315

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

316 int error_token;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

317 int eof_token = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

318

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

319 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

320

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

321 #ifndef CONVERT_CASE

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

322 #define CONVERT_CASE(c) (c)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

323 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

324 #ifndef TAB_SPACING

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

325 #define TAB_SPACING 8

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

326 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

327 int cf_value(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

328 int returnValue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

329 returnValue = (PCB).vs[(PCB).ssx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

330 return returnValue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

331 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

332

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

333 static void ag_rp_1(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

334 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

335 ConfigParam::set(1, cfErrorHandler);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

336 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

337 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

338

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

339 static void ag_rp_2(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

340 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

341 ConfigParam::set(0, cfErrorHandler);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

342 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

343 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

344

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

345 static void ag_rp_3(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

346 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

347 ConfigParam::set(cfErrorHandler);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

348 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

349 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

350

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

351 static void ag_rp_4(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

352 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

353 ConfigParam::set(cfErrorHandler);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

354 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

355 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

356

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

357 static void ag_rp_5(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

358 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

359 ConfigParam::set(cfErrorHandler);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

360 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

361 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

362

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

363 static void ag_rp_6(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

364 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

365 concat_string();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

366 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

367 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

368

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

369 static void ag_rp_7(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

370 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

371 concat_string();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

372 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

373 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

374

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

375 static int ag_rp_8(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

376 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

377 return scs('('),0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

378 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

379 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

380

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

381 static void ag_rp_9(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

382 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

383 concat_string(), acs(')');

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

384 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

385 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

386

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

387 static void ag_rp_10(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

388 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

389 concat_string();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

390 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

391 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

392

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

393 static void ag_rp_11(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

394 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

395 sss(" *");

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

396 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

397 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

398

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

399 static void ag_rp_12(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

400 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

401 concat_string();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

402 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

403 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

404

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

405 static void ag_rp_13(int a) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

406 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

407 scs(a);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

408 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

409 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

410

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

411 static void ag_rp_14(int a) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

412 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

413 acs(a);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

414 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

415 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

416

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

417 static void ag_rp_15(int a) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

418 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

419 acs(' '), acs(a);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

420 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

421 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

422

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

423 static int ag_rp_16(int d) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

424 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

425 return d - '0';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

426 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

427 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

428

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

429 static int ag_rp_17(int n, int d) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

430 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

431 return 10*n + d - '0';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

432 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

433 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

434

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

435 static int ag_rp_18(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

436 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

437 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

438 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

439 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

440

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

441 static int ag_rp_19(int n, int d) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

442 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

443 return 8*n + d - '0';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

444 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

445 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

446

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

447 static int ag_rp_20(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

448 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

449 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

450 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

451 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

452

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

453 static int ag_rp_21(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

454 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

455 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

456 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

457 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

458

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

459 static int ag_rp_22(int n, int d) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

460 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

461 return 16*n + d - '0';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

462 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

463 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

464

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

465 static int ag_rp_23(int n, int d) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

466 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

467 return 16*n + (d&7) + 9;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

468 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

469 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

470

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

471 static int ag_rp_24(int s, int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

472 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

473 return s*n;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

474 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

475 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

476

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

477 static int ag_rp_25(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

478 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

479 return 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

480 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

481 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

482

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

483 static int ag_rp_26(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

484 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

485 return -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

486 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

487 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

488

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

489 static void ag_rp_27(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

490 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

491 ics();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

492 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

493 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

494

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

495 static int ag_rp_28(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

496 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

497 return '\a';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

498 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

499 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

500

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

501 static int ag_rp_29(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

502 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

503 return '\b';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

504 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

505 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

506

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

507 static int ag_rp_30(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

508 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

509 return '\f';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

510 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

511 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

512

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

513 static int ag_rp_31(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

514 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

515 return '\n';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

516 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

517 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

518

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

519 static int ag_rp_32(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

520 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

521 return '\r';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

522 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

523 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

524

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

525 static int ag_rp_33(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

526 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

527 return '\t';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

528 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

529 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

530

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

531 static int ag_rp_34(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

532 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

533 return '\v';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

534 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

535 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

536

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

537 static int ag_rp_35(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

538 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

539 return '\\';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

540 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

541 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

542

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

543 static int ag_rp_36(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

544 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

545 return '\?';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

546 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

547 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

548

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

549 static int ag_rp_37(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

550 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

551 return '\'';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

552 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

553 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

554

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

555 static int ag_rp_38(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

556 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

557 return '"';

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

558 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

559 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

560

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

561 static int ag_rp_39(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

562 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

563 return n==0?cf_error("Null character in string"),0 : n;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

564 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

565 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

566

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

567 static int ag_rp_40(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

568 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

569 return n&7;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

570 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

571 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

572

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

573 static int ag_rp_41(int n, int d) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

574 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

575 return n*8 + (d&7);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

576 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

577 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

578

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

579 static int ag_rp_42(int n, int d) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

580 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

581 return n*8 + (d&7);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

582 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

583 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

584

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

585 static int ag_rp_43(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

586 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

587 return n==0?cf_error("Null character in string"),0 : n;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

588 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

589 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

590

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

591 static int ag_rp_44(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

592 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

593 return n;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

594 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

595 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

596

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

597 static void ag_rp_45(int c) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

598 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

599 acs(c);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

600 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

601 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

602

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

603 static void ag_rp_46(int c) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

604 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

605 acs(c);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

606 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

607 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

608

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

609 static void ag_rp_47(int c) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

610 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

611 acs(c);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

612 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

613 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

614

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

615 static void ag_rp_48(int c) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

616 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

617 acs(c);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

618 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

619 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

620

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

621 static void ag_rp_49(int c) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

622 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

623 acs(c);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

624 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

625 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

626

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

627 static void ag_rp_50(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

628 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

629 acs(n);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

630 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

631 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

632

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

633 static void ag_rp_51(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

634 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

635 acs(n);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

636 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

637 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

638

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

639 static void ag_rp_52(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

640 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

641 acs(n);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

642 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

643 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

644

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

645 static void ag_rp_53(int n) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

646 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

647 acs(n);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

648 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

649 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

650

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

651 static void ag_rp_54(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

652 #line - "cf.syn"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

653 if (nest_comments) PCB.reduction_token = cf_c_comment_text_token;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

654 #line - "cf.cpp"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

655 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

656

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

657

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

658 #define READ_COUNTS

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

659 #define WRITE_COUNTS

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

660 #undef V

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

661 #define V(i,t) (*t (&(PCB).vs[(PCB).ssx + i]))

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

662 #undef VS

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

663 #define VS(i) (PCB).vs[(PCB).ssx + i]

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

664

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

665 #ifndef GET_CONTEXT

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

666 #define GET_CONTEXT CONTEXT = (PCB).input_context

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

667 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

668

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

669 typedef enum {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

670 ag_action_1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

671 ag_action_2,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

672 ag_action_3,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

673 ag_action_4,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

674 ag_action_5,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

675 ag_action_6,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

676 ag_action_7,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

677 ag_action_8,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

678 ag_action_9,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

679 ag_action_10,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

680 ag_action_11,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

681 ag_action_12

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

682 } ag_parser_action;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

683

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

684

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

685 #ifndef NULL_VALUE_INITIALIZER

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

686 #define NULL_VALUE_INITIALIZER = 0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

687 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

688

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

689 static int const ag_null_value NULL_VALUE_INITIALIZER;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

690

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

691 static const unsigned char ag_rpx[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

692 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

693 0, 0, 0, 1, 2, 3, 4, 5, 0, 6, 0, 0, 7, 8, 9, 0, 10, 11,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

694 0, 12, 13, 14, 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

695 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 16, 17, 18, 19, 20, 21, 22,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

696 23, 0, 0, 0, 24, 0, 0, 25, 26, 0, 0, 0, 0, 27, 0, 0, 28, 29,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

697 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 0, 0, 43, 44, 45,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

698 46, 47, 48, 49, 50, 51, 52, 53, 0, 0, 0, 54

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

699 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

700

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

701 static const unsigned char ag_key_itt[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

702 0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

703 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

704

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

705 static const unsigned short ag_key_pt[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

706 0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

707 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

708

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

709 static const unsigned char ag_key_ch[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

710 0, 42, 47,255, 47,255, 42, 47,255, 47,255, 42, 47,255, 88,120,255, 47,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

711 48,255, 88,120,255, 48,255, 88,120,255, 47, 48,255, 34, 39, 63, 92, 97,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

712 98,102,110,114,116,118,120,255, 92,255

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

713 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

714

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

715 static const unsigned char ag_key_act[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

716 0,0,0,4,2,4,3,3,4,3,4,0,0,4,0,0,4,2,2,4,0,0,4,2,4,0,0,4,3,2,4,0,0,0,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

717 0,0,0,0,0,0,0,0,4,2,4

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

718 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

719

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

720 static const unsigned char ag_key_parm[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

721 0, 98, 49, 0, 0, 0, 97, 98, 0, 49, 0, 98, 49, 0, 61, 60, 0, 0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

722 0, 0, 61, 60, 0, 0, 0, 61, 60, 0, 98, 0, 0, 85, 84, 83, 82, 75,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

723 76, 77, 78, 79, 80, 81, 93, 0, 0, 0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

724 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

725

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

726 static const unsigned char ag_key_jmp[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

727 0, 0, 0, 0, 1, 0, 0, 2, 0, 4, 0, 0, 0, 0, 0, 0, 0, 11,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

728 14, 0, 0, 0, 0, 20, 0, 0, 0, 0, 6, 25, 0, 0, 0, 0, 0, 0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

729 0, 0, 0, 0, 0, 0, 0, 0, 31, 0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

730 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

731

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

732 static const unsigned char ag_key_index[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

733 4, 6, 4, 9, 0, 4, 4, 0, 0, 0, 9, 4, 0, 9, 0, 0, 0, 0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

734 17, 4, 0, 17, 23, 0, 0, 4, 28, 17, 17, 23, 44, 9, 0, 28, 4, 4,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

735 4, 4, 0, 44, 44, 23, 44, 44, 44, 4, 4, 9, 0, 9, 44, 4, 0, 4

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

736 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

737

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

738 static const unsigned char ag_key_ends[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

739 47,0, 42,0, 47,0, 42,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

740 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

741

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

742 #define AG_TCV(x) ag_tcv[(x)]

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

743

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

744 static const unsigned char ag_tcv[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

745 24,103,103,103,103,103,103,103,103, 39, 46, 48, 48, 44,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

746 103,103,103,103,103,103,103,103, 24,103,103,103,103,103, 39,103, 68,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

747 103,103,103,103, 13, 15, 35, 9,103, 7,103,103, 57,101,101,101,101,101,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

748 101,101,102,102,103,103,103, 3,103,103,103, 62, 62, 62, 62, 62, 62,100,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

749 100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

750 100,103, 88,103,103,100,103, 62, 62, 62, 62, 62, 62,100,100,100,100,100,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

751 100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

752 11,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

753 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

754 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

755 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

756 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

757 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

758 103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

759 103,103,103,103

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

760 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

761

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

762 #ifndef SYNTAX_ERROR

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

763 #define SYNTAX_ERROR fprintf(stderr,"%s, line %d, column %d\n", \

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

764 (PCB).error_message, (PCB).line, (PCB).column)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

765 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

766

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

767 #ifndef FIRST_LINE

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

768 #define FIRST_LINE 1

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

769 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

770

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

771 #ifndef FIRST_COLUMN

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

772 #define FIRST_COLUMN 1

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

773 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

774

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

775 #ifndef PARSER_STACK_OVERFLOW

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

776 #define PARSER_STACK_OVERFLOW {fprintf(stderr, \

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

777 "\nParser stack overflow, line %d, column %d\n",\

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

778 (PCB).line, (PCB).column);}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

779 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

780

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

781 #ifndef REDUCTION_TOKEN_ERROR

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

782 #define REDUCTION_TOKEN_ERROR {fprintf(stderr, \

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

783 "\nReduction token error, line %d, column %d\n", \

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

784 (PCB).line, (PCB).column);}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

785 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

786

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

787

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

788 #ifndef INPUT_CODE

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

789 #define INPUT_CODE(T) (T)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

790 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

791

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

792 typedef enum

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

793 {ag_accept_key, ag_set_key, ag_jmp_key, ag_end_key, ag_no_match_key,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

794 ag_cf_accept_key, ag_cf_set_key, ag_cf_end_key} key_words;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

795

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

796 static void ag_get_key_word(int ag_k) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

797 int ag_save = (int) ((PCB).la_ptr - (PCB).pointer);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

798 const unsigned char *ag_p;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

799 int ag_ch;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

800 while (1) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

801 switch (ag_key_act[ag_k]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

802 case ag_cf_end_key: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

803 const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

804 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

805 if ((ag_ch = *sp++) == 0) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

806 int ag_k1 = ag_key_parm[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

807 int ag_k2 = ag_key_pt[ag_k1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

808 if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) goto ag_fail;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

809 (PCB).token_number = (cf_token_type) ag_key_pt[ag_k1 + 1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

810 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

811 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

812 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

813 goto ag_fail;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

814 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

815 case ag_end_key: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

816 const unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

817 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

818 if ((ag_ch = *sp++) == 0) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

819 (PCB).token_number = (cf_token_type) ag_key_parm[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

820 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

821 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

822 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

823 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

824 case ag_no_match_key:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

825 ag_fail:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

826 (PCB).la_ptr = (PCB).pointer + ag_save;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

827 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

828 case ag_cf_set_key: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

829 int ag_k1 = ag_key_parm[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

830 int ag_k2 = ag_key_pt[ag_k1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

831 ag_k = ag_key_jmp[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

832 if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

833 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

834 (PCB).token_number = (cf_token_type) ag_key_pt[ag_k1+1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

835 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

836 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

837 case ag_set_key:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

838 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

839 (PCB).token_number = (cf_token_type) ag_key_parm[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

840 case ag_jmp_key:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

841 ag_k = ag_key_jmp[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

842 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

843 case ag_accept_key:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

844 (PCB).token_number = (cf_token_type) ag_key_parm[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

845 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

846 case ag_cf_accept_key: {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

847 int ag_k1 = ag_key_parm[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

848 int ag_k2 = ag_key_pt[ag_k1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

849 if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)])

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

850 (PCB).la_ptr = (PCB).pointer + ag_save;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

851 else (PCB).token_number = (cf_token_type) ag_key_pt[ag_k1+1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

852 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

853 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

854 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

855 ag_ch = CONVERT_CASE(*(PCB).la_ptr++);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

856 ag_p = &ag_key_ch[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

857 if (ag_ch <= 255) while (*ag_p < ag_ch) ag_p++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

858 if (ag_ch > 255 || *ag_p != ag_ch) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

859 (PCB).la_ptr = (PCB).pointer + ag_save;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

860 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

861 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

862 ag_k = (int) (ag_p - ag_key_ch);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

863 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

864 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

865

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

866

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

867 #ifndef AG_NEWLINE

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

868 #define AG_NEWLINE 10

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

869 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

870

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

871 #ifndef AG_RETURN

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

872 #define AG_RETURN 13

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

873 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

874

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

875 #ifndef AG_FORMFEED

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

876 #define AG_FORMFEED 12

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

877 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

878

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

879 #ifndef AG_TABCHAR

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

880 #define AG_TABCHAR 9

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

881 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

882

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

883 static void ag_track(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

884 int ag_k = (int) ((PCB).la_ptr - (PCB).pointer);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

885 while (ag_k--) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

886 switch (*(PCB).pointer++) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

887 case AG_NEWLINE:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

888 (PCB).column = 1, (PCB).line++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

889 case AG_RETURN:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

890 case AG_FORMFEED:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

891 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

892 case AG_TABCHAR:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

893 (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

894 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

895 default:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

896 (PCB).column++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

897 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

898 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

899 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

900

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

901

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

902 static void ag_prot(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

903 int ag_k;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

904 ag_k = 128 - ++(PCB).btsx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

905 if (ag_k <= (PCB).ssx) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

906 (PCB).exit_flag = AG_STACK_ERROR_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

907 PARSER_STACK_OVERFLOW;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

908 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

909 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

910 (PCB).bts[(PCB).btsx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

911 (PCB).bts[ag_k] = (PCB).ssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

912 (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

913 (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

914 (PCB).cs[ag_k] = (PCB).cs[(PCB).ssx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

915 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

916

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

917 static void ag_undo(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

918 if ((PCB).drt == -1) return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

919 while ((PCB).btsx) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

920 int ag_k = 128 - (PCB).btsx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

921 (PCB).sn = (PCB).bts[(PCB).btsx--];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

922 (PCB).ssx = (PCB).bts[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

923 (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

924 (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

925 (PCB).cs[(PCB).ssx] = (PCB).cs[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

926 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

927 (PCB).token_number = (cf_token_type) (PCB).drt;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

928 (PCB).ssx = (PCB).dssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

929 (PCB).sn = (PCB).dsn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

930 (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

931 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

932

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

933

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

934

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

935 static const int ag_rtt[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

936 40, 96, 0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

937 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

938

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

939 static const unsigned char ag_tstt[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

940 100,98,62,49,46,44,39,24,11,0,1,16,17,18,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

941 103,102,101,100,98,97,88,68,62,57,48,46,44,39,35,15,13,11,9,7,3,0,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

942 98,39,0,16,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

943 100,62,49,46,44,24,11,0,10,19,20,21,22,23,25,36,42,45,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

944 103,102,101,100,88,68,62,57,48,46,44,39,35,15,13,11,9,7,3,0,51,52,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

945 100,98,62,49,46,44,39,0,4,5,16,17,40,41,42,43,45,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

946 102,101,100,98,62,57,49,46,44,39,35,24,15,13,3,0,16,17,18,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

947 46,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

948 46,44,0,45,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

949 100,62,0,25,36,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

950 3,0,2,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

951 100,98,62,49,48,46,44,39,24,11,0,16,40,42,45,47,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

952 100,62,11,0,10,19,25,36,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

953 49,46,44,24,0,20,42,45,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

954 24,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

955 103,102,101,100,88,68,62,57,48,39,35,15,13,11,9,7,3,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

956 46,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

957 46,44,0,43,45,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

958 102,101,100,98,68,62,61,60,57,49,46,44,39,35,13,9,7,0,16,40,41,42,43,45,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

959 102,101,100,98,62,57,39,0,16,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

960 46,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

961 102,101,100,98,68,62,61,60,57,49,46,44,39,9,7,0,4,5,16,17,40,41,42,43,45,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

962 102,101,100,68,62,61,60,57,9,7,0,6,8,25,26,27,28,36,64,65,66,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

963 46,44,0,45,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

964 46,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

965 100,98,62,49,48,46,44,39,24,11,0,16,40,42,45,47,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

966 98,39,0,16,17,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

967 102,101,98,61,60,57,49,46,44,39,0,4,5,16,17,40,41,42,43,45,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

968 102,101,98,61,60,57,49,46,44,39,0,4,5,16,17,40,41,42,43,45,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

969 102,101,61,60,57,0,53,56,59,63,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

970 103,102,101,100,93,88,85,84,83,82,81,80,79,78,77,76,75,62,57,48,39,35,15,13,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

971 11,9,7,3,0,67,69,70,71,72,74,86,87,89,90,91,92,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

972 35,13,0,12,29,30,31,32,33,34,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

973 46,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

974 98,39,0,16,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

975 102,101,62,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

976 101,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

977 102,101,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

978 98,49,46,44,39,24,0,16,17,18,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

979 101,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

980 101,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

981 101,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

982 61,60,0,59,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

983 102,62,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

984 102,101,62,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

985 103,100,93,88,85,84,83,82,81,80,79,78,77,76,75,68,48,39,35,15,13,11,9,7,3,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

986 72,74,86,87,89,90,91,92,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

987 98,49,46,44,39,35,13,0,4,5,16,17,40,41,42,43,45,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

988 100,98,62,49,46,44,39,35,24,15,13,0,16,17,18,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

989 100,62,0,25,36,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

990 35,13,0,12,29,30,31,32,33,34,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

991 35,13,0,12,31,32,33,34,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

992 102,101,62,57,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

993 98,49,46,44,39,24,0,16,17,18,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

994 15,0,14,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

995 98,49,46,44,39,24,15,0,16,17,18,40,96,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

996

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

997 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

998

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

999

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1000 static unsigned const char ag_astt[595] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1001 8,1,8,8,8,8,1,5,8,7,0,1,1,1,1,1,3,3,3,3,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1002 7,2,1,1,9,5,3,3,1,2,2,1,8,1,8,1,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1003 5,1,1,1,1,1,1,1,1,7,1,3,5,1,5,1,8,1,1,7,3,3,1,1,1,3,1,3,1,1,10,10,10,1,10,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1004 10,5,5,5,1,5,5,5,5,5,7,1,1,3,1,1,3,7,8,1,7,1,2,2,7,2,1,1,4,1,5,1,5,1,9,8,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1005 9,5,5,7,3,3,1,1,3,1,2,2,1,5,1,3,1,1,1,8,1,5,7,1,1,1,3,7,9,9,9,9,9,9,9,9,9,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1006 9,9,9,9,9,9,9,9,5,1,7,8,1,7,3,1,5,5,5,1,5,5,5,5,5,1,8,1,9,5,5,5,5,7,3,3,3,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1007 1,3,1,1,2,2,2,1,2,2,9,5,3,3,1,3,7,5,5,5,1,5,5,5,5,5,1,8,1,1,5,5,7,3,3,1,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1008 1,3,1,3,1,1,5,5,2,2,2,5,5,5,1,1,7,2,2,1,2,2,2,1,1,2,1,8,1,7,1,3,7,5,1,5,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1009 9,8,1,9,5,5,7,3,3,1,1,3,1,1,1,5,1,1,1,1,5,5,1,5,5,5,1,8,1,1,7,3,3,1,1,1,3,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1010 1,3,1,1,5,5,1,5,5,5,1,8,1,1,7,3,3,1,1,1,3,1,3,1,1,2,2,2,2,2,7,1,1,1,1,2,2,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1011 2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,7,1,1,1,1,2,2,2,1,1,2,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1012 2,2,1,1,5,2,2,1,2,1,1,1,3,7,1,9,5,3,3,1,10,10,10,10,5,10,10,5,10,10,10,5,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1013 5,5,5,1,5,7,1,1,2,1,1,2,2,7,2,2,5,2,2,5,2,2,7,1,2,2,5,10,10,10,10,5,2,2,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1014 1,2,2,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,2,7,2,2,2,1,1,2,2,2,1,1,8,1,1,5,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1015 5,7,3,3,1,1,1,3,1,3,1,1,5,1,5,5,5,5,1,5,5,5,5,7,1,1,2,1,1,2,2,5,2,1,1,1,7,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1016 2,1,1,1,1,1,1,1,1,5,2,2,1,2,1,10,10,10,10,4,1,5,5,5,1,5,7,1,1,3,1,1,1,7,2,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1017 1,5,5,5,1,5,5,7,1,1,3,1,1

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1018 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1019

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1020

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1021 static const unsigned char ag_pstt[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1022 3,1,3,3,3,3,2,10,3,0,0,2,2,3,2,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1023 118,118,118,118,1,116,118,118,118,118,118,118,118,118,118,118,118,118,118,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1024 118,118,1,119,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1025 1,9,11,9,9,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1026 38,38,4,7,7,14,5,3,9,13,11,13,12,14,10,6,8,7,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1027 15,15,15,15,15,15,15,15,15,62,62,15,15,15,15,15,15,15,15,4,15,64,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1028 1,1,1,4,16,16,18,5,6,6,18,18,18,6,17,6,16,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1029 39,39,39,1,39,39,10,10,10,19,10,10,10,10,10,6,19,19,41,19,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1030 57,7,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1031 20,20,8,20,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1032 38,38,9,22,6,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1033 21,21,22,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1034 16,1,16,4,59,24,24,58,16,16,11,58,58,23,24,58,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1035 38,38,5,19,9,14,10,6,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1036 4,7,7,18,13,25,8,7,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1037 20,14,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1038 61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,61,63,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1039 26,16,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1040 16,16,17,47,16,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1041 44,44,44,1,44,44,44,44,44,4,16,16,9,44,44,44,44,18,9,9,45,17,45,16,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1042 40,40,40,1,40,40,9,11,9,9,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1043 56,20,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1044 1,1,1,1,1,1,1,1,1,4,16,16,18,1,1,21,3,3,18,18,18,3,17,3,16,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1045 77,77,38,85,38,77,77,77,27,28,22,80,79,31,23,24,25,6,29,79,30,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1046 32,32,23,32,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1047 54,24,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1048 15,1,15,4,59,24,24,58,15,15,25,58,58,23,24,58,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1049 1,33,51,33,33,33,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1050 1,1,1,1,1,1,4,16,16,18,27,5,5,18,18,18,5,17,5,16,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1051 1,1,1,1,1,1,4,16,16,18,28,4,4,18,18,18,4,17,4,16,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1052 65,65,70,69,67,29,36,35,34,37,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1053 107,108,108,107,41,38,98,97,96,95,94,93,92,91,90,89,88,108,108,107,107,107,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1054 107,107,107,107,107,107,30,44,43,42,44,107,107,99,40,39,112,105,114,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1055 46,45,26,31,27,49,27,48,49,47,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1056 55,32,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1057 1,9,52,9,9,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1058 71,71,72,71,75,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1059 68,68,74,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1060 66,66,66,73,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1061 1,10,10,10,2,10,37,2,2,76,2,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1062 100,100,38,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1063 102,102,104,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1064 101,101,103,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1065 70,69,41,50,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1066 111,111,83,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1067 110,110,110,110,82,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1068 109,109,41,38,98,97,96,95,94,93,92,91,90,89,88,51,109,109,109,109,109,109,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1069 109,109,109,44,109,109,99,40,39,113,105,115,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1070 1,4,16,16,18,1,1,45,7,7,18,18,18,7,17,7,16,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1071 10,1,10,10,10,10,2,10,10,10,10,46,2,2,35,2,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1072 38,38,33,34,6,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1073 46,45,48,31,52,49,52,48,49,47,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1074 46,45,28,31,30,48,37,47,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1075 71,71,72,71,106,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1076 1,10,10,10,2,10,51,2,2,81,2,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1077 53,52,32,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1078 1,10,10,10,2,10,10,53,2,2,12,2,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1079

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1080 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1081

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1082

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1083 static const unsigned short ag_sbt[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1084 0, 16, 40, 46, 64, 86, 104, 125, 127, 131, 136, 139, 156, 164,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1085 172, 174, 192, 194, 199, 224, 235, 237, 263, 284, 288, 290, 307, 314,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1086 335, 356, 366, 407, 417, 419, 425, 430, 433, 437, 449, 452, 455, 458,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1087 462, 465, 470, 504, 522, 539, 544, 554, 562, 567, 579, 582, 595

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1088 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1089

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1090

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1091 static const unsigned short ag_sbe[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1092 9, 37, 42, 53, 83, 93, 119, 126, 129, 133, 137, 149, 159, 168,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1093 173, 191, 193, 196, 216, 231, 236, 252, 273, 286, 289, 300, 309, 324,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1094 345, 361, 394, 409, 418, 421, 429, 432, 436, 443, 451, 454, 457, 460,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1095 464, 469, 495, 511, 533, 541, 546, 556, 566, 573, 580, 589, 595

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1096 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1097

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1098

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1099 static const unsigned char ag_fl[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1100 1,0,1,2,2,2,2,2,1,2,0,1,2,1,2,2,1,0,1,1,3,1,2,3,3,3,1,2,1,1,2,1,3,1,2,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1101 2,1,2,1,2,3,2,1,1,1,2,1,2,1,0,1,2,3,1,2,3,3,2,2,2,1,2,0,1,2,1,2,1,2,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1102 1,2,2,1,1,1,3,0,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1103 1,2,1,1,2,2,2,1,2,1,2,2,1,2,2

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1104 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1105

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1106 static const unsigned char ag_ptt[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1107 0, 5, 5, 2, 6, 8, 10, 12, 17, 17, 18, 18, 14, 21, 21, 22, 22, 23,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1108 23, 23, 1, 19, 19, 19, 19, 19, 26, 26, 29, 29, 29, 32, 31, 33, 33, 34,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1109 30, 30, 36, 36, 36, 25, 16, 16, 4, 4, 4, 41, 41, 45, 45, 43, 43, 47,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1110 47, 47, 20, 20, 20, 20, 51, 51, 52, 52, 42, 53, 53, 56, 56, 59, 59, 59,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1111 59, 63, 63, 63, 28, 65, 65, 64, 64, 27, 67, 67, 67, 66, 72, 72, 74, 74,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1112 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, 87, 89, 86, 91, 91, 90, 92, 69,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1113 69, 69, 69, 69, 70, 70, 71, 71, 40, 96, 96, 40

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1114 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1115

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1116 static const unsigned char *ag_valid(int ag_k) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1117 const unsigned char *ag_tp = &ag_tstt[ag_sbt[(PCB).sn+1]];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1118 while (*--ag_tp != (unsigned char) ag_k) if (*ag_tp == 0) return NULL;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1119 return ag_tp;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1120 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1121

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1122 int cf_change_reduction(cf_token_type ag_k) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1123 if (!ag_valid(ag_k)) return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1124 (PCB).reduction_token = ag_k;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1125 return 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1126 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1127

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1128 static void ag_default(const int *ag_tp) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1129 (PCB).ag_dsn = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1130 (PCB).ag_dtl = ag_tp;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1131 while (!ag_valid((cf_token_type) *ag_tp)) ag_tp++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1132 (PCB).reduction_token = (cf_token_type) *ag_tp;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1133 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1134

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1135

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1136

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1137 static void ag_ra(void)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1138 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1139 switch(ag_rpx[(PCB).ag_ap]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1140 case 1: ag_rp_1(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1141 case 2: ag_rp_2(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1142 case 3: ag_rp_3(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1143 case 4: ag_rp_4(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1144 case 5: ag_rp_5(VS(2)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1145 case 6: ag_rp_6(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1146 case 7: ag_rp_7(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1147 case 8: VS(0) = ag_rp_8(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1148 case 9: ag_rp_9(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1149 case 10: ag_rp_10(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1150 case 11: ag_rp_11(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1151 case 12: ag_rp_12(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1152 case 13: ag_rp_13(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1153 case 14: ag_rp_14(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1154 case 15: ag_rp_15(VS(2)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1155 case 16: VS(0) = ag_rp_16(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1156 case 17: VS(0) = ag_rp_17(VS(0), VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1157 case 18: VS(0) = ag_rp_18(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1158 case 19: VS(0) = ag_rp_19(VS(0), VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1159 case 20: VS(0) = ag_rp_20(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1160 case 21: VS(0) = ag_rp_21(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1161 case 22: VS(0) = ag_rp_22(VS(0), VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1162 case 23: VS(0) = ag_rp_23(VS(0), VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1163 case 24: VS(0) = ag_rp_24(VS(0), VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1164 case 25: VS(0) = ag_rp_25(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1165 case 26: VS(0) = ag_rp_26(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1166 case 27: ag_rp_27(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1167 case 28: VS(0) = ag_rp_28(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1168 case 29: VS(0) = ag_rp_29(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1169 case 30: VS(0) = ag_rp_30(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1170 case 31: VS(0) = ag_rp_31(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1171 case 32: VS(0) = ag_rp_32(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1172 case 33: VS(0) = ag_rp_33(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1173 case 34: VS(0) = ag_rp_34(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1174 case 35: VS(0) = ag_rp_35(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1175 case 36: VS(0) = ag_rp_36(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1176 case 37: VS(0) = ag_rp_37(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1177 case 38: VS(0) = ag_rp_38(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1178 case 39: VS(0) = ag_rp_39(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1179 case 40: VS(0) = ag_rp_40(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1180 case 41: VS(0) = ag_rp_41(VS(0), VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1181 case 42: VS(0) = ag_rp_42(VS(0), VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1182 case 43: VS(0) = ag_rp_43(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1183 case 44: VS(0) = ag_rp_44(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1184 case 45: ag_rp_45(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1185 case 46: ag_rp_46(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1186 case 47: ag_rp_47(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1187 case 48: ag_rp_48(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1188 case 49: ag_rp_49(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1189 case 50: ag_rp_50(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1190 case 51: ag_rp_51(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1191 case 52: ag_rp_52(VS(0)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1192 case 53: ag_rp_53(VS(1)); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1193 case 54: ag_default(&ag_rtt[0]); ag_rp_54(); break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1194 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1195 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1196 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1197

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1198

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1199 static const unsigned char ag_ctn[] = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1200 0,0, 40,1, 0,0, 0,0, 42,1, 10,1, 25,1, 20,1, 20,1, 19,1, 19,1, 20,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1201 22,1, 22,1, 0,0, 0,0, 0,0, 41,1, 0,0, 0,0, 20,2, 2,1, 19,2, 47,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1202 47,1, 20,1, 0,0, 8,1, 6,1, 28,1, 27,1, 26,1, 47,2, 0,0, 59,1, 56,1,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1203 53,1, 28,2, 72,1, 72,1, 72,1, 0,0, 67,1, 67,1, 67,1, 31,1, 34,1, 0,0,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1204 31,1, 29,1, 59,1, 27,3, 31,2, 0,0

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1205 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1206

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1207 #ifndef MISSING_FORMAT

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1208 #define MISSING_FORMAT "Missing %s"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1209 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1210 #ifndef UNEXPECTED_FORMAT

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1211 #define UNEXPECTED_FORMAT "Unexpected %s"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1212 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1213 #ifndef UNNAMED_TOKEN

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1214 #define UNNAMED_TOKEN "input"

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1215 #endif

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1216

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1217

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1218 static void ag_diagnose(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1219 int ag_snd = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1220 int ag_k = ag_sbt[ag_snd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1221

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1222 if (*TOKEN_NAMES[ag_tstt[ag_k]] && ag_astt[ag_k + 1] == ag_action_8) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1223 sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1224 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1225 else if (ag_astt[ag_sbe[(PCB).sn]] == ag_action_8

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1226 && (ag_k = (int) ag_sbe[(PCB).sn] + 1) == (int) ag_sbt[(PCB).sn+1] - 1

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1227 && *TOKEN_NAMES[ag_tstt[ag_k]]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1228 sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1229 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1230 else if ((PCB).token_number && *TOKEN_NAMES[(PCB).token_number]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1231 sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, TOKEN_NAMES[(PCB).token_number]);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1232 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1233 else if (isprint(INPUT_CODE((*(PCB).pointer))) && INPUT_CODE((*(PCB).pointer)) != '\\') {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1234 char buf[20];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1235 sprintf(buf, "\'%c\'", (char) INPUT_CODE((*(PCB).pointer)));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1236 sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1237 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1238 else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1239 (PCB).error_message = (PCB).ag_msg;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1240

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1241

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1242 {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1243 int ag_sx, ag_t;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1244

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1245 ag_sx = (PCB).ssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1246 (PCB).ss[ag_sx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1247 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1248 while (ag_sx && ag_ctn[2*(ag_snd = (PCB).ss[ag_sx])] == 0) ag_sx--;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1249 if (ag_sx) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1250 ag_t = ag_ctn[2*ag_snd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1251 ag_sx -= ag_ctn[2*ag_snd +1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1252 ag_snd = (PCB).ss[ag_sx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1253 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1254 else {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1255 ag_snd = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1256 ag_t = ag_ptt[0];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1257 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1258 } while (ag_sx && *TOKEN_NAMES[ag_t]==0);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1259 if (*TOKEN_NAMES[ag_t] == 0) ag_t = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1260 (PCB).error_frame_ssx = ag_sx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1261 (PCB).error_frame_token = (cf_token_type) ag_t;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1262 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1263

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1264

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1265 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1266 static int ag_action_1_r_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1267 static int ag_action_2_r_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1268 static int ag_action_3_r_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1269 static int ag_action_4_r_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1270 static int ag_action_1_s_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1271 static int ag_action_3_s_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1272 static int ag_action_1_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1273 static int ag_action_2_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1274 static int ag_action_3_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1275 static int ag_action_4_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1276 static int ag_action_5_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1277 static int ag_action_6_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1278 static int ag_action_7_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1279 static int ag_action_8_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1280 static int ag_action_9_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1281 static int ag_action_10_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1282 static int ag_action_11_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1283 static int ag_action_8_proc(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1284

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1285

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1286 static int (*const ag_r_procs_scan[])(void) = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1287 ag_action_1_r_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1288 ag_action_2_r_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1289 ag_action_3_r_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1290 ag_action_4_r_proc

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1291 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1292

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1293 static int (*const ag_s_procs_scan[])(void) = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1294 ag_action_1_s_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1295 ag_action_2_r_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1296 ag_action_3_s_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1297 ag_action_4_r_proc

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1298 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1299

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1300 static int (*const ag_gt_procs_scan[])(void) = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1301 ag_action_1_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1302 ag_action_2_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1303 ag_action_3_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1304 ag_action_4_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1305 ag_action_5_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1306 ag_action_6_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1307 ag_action_7_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1308 ag_action_8_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1309 ag_action_9_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1310 ag_action_10_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1311 ag_action_11_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1312 ag_action_8_proc

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1313 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1314

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1315

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1316 static int ag_rns(int ag_t, int *ag_sx, int ag_snd) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1317 while (1) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1318 int ag_act, ag_k = ag_sbt[ag_snd], ag_lim = ag_sbt[ag_snd+1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1319 int ag_p;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1320

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1321 while (ag_k < ag_lim && ag_tstt[ag_k] != ag_t) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1322 if (ag_k == ag_lim) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1323 ag_act = ag_astt[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1324 ag_p = ag_pstt[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1325 if (ag_act == ag_action_2) return ag_p;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1326 if (ag_act == ag_action_10 || ag_act == ag_action_11) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1327 (*ag_sx)--;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1328 return ag_snd;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1329 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1330 if (ag_act != ag_action_3 &&

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1331 ag_act != ag_action_4) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1332 *ag_sx -= (ag_fl[ag_p] - 1);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1333 ag_snd = (PCB).ss[*ag_sx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1334 ag_t = ag_ptt[ag_p];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1335 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1336 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1337 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1338

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1339 static int ag_jns(int ag_t) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1340 int ag_k;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1341

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1342 ag_k = ag_sbt[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1343 while (ag_tstt[ag_k] != ag_t && ag_tstt[ag_k]) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1344 while (1) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1345 int ag_p = ag_pstt[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1346 int ag_sd;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1347

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1348 switch (ag_astt[ag_k]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1349 case ag_action_2:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1350 GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1351 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1352 return ag_p;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1353 case ag_action_10:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1354 case ag_action_11:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1355 return (PCB).ss[(PCB).ssx--];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1356 case ag_action_9:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1357 GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1358 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1359 (PCB).ssx++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1360 (PCB).sn = ag_p;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1361 ag_k = ag_sbt[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1362 while (ag_tstt[ag_k] != ag_t && ag_tstt[ag_k]) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1363 continue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1364 case ag_action_3:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1365 case ag_action_4:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1366 ag_sd = ag_fl[ag_p] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1367 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1368 else GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1369 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1370 ag_t = ag_ptt[ag_p];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1371 ag_k = ag_sbt[(PCB).sn+1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1372 while (ag_tstt[--ag_k] != ag_t);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1373 continue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1374 case ag_action_5:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1375 case ag_action_6:

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1376 if (ag_fl[ag_p]) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1377 (PCB).sn = ag_rns(ag_ptt[ag_p],&(PCB).ssx, (PCB).sn);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1378 (PCB).ss[++(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1379 ag_k = ag_sbt[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1380 while (ag_tstt[ag_k] != ag_t && ag_tstt[ag_k]) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1381 continue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1382 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1383 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1384 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1385 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1386 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1387

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1388

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1389 static int ag_atx(int ag_t, int *ag_sx, int ag_snd) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1390 int ag_k, ag_f;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1391 int ag_save_btsx = (PCB).btsx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1392 int ag_flag = 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1393

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1394 while (1) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1395 int ag_a;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1396

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1397 (PCB).bts[128 - ++(PCB).btsx] = *ag_sx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1398 (PCB).ss[128 - (PCB).btsx] = (PCB).ss[*ag_sx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1399 (PCB).ss[*ag_sx] = ag_snd;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1400 ag_k = ag_sbt[ag_snd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1401 while (ag_tstt[ag_k] != ag_t && ag_tstt[ag_k]) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1402 ag_a = ag_astt[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1403 if (ag_a == ag_action_2 ||

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1404 ag_a == ag_action_3 ||

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1405 ag_a == ag_action_10 ||

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1406 ag_a == ag_action_11 ||

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1407 ag_a == ag_action_1 ||

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1408 ag_a == ag_action_4) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1409 if ((ag_a == ag_action_5 ||

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1410 ag_a == ag_action_6) &&

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1411 (ag_k = ag_fl[ag_f = ag_pstt[ag_k]]) == 0) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1412 ag_snd = ag_rns(ag_ptt[ag_f],ag_sx, (PCB).ss[*ag_sx]);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1413 (*ag_sx)++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1414 continue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1415 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1416 if (ag_a == ag_action_9) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1417 ag_snd = ag_pstt[ag_k];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1418 (*ag_sx)++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1419 continue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1420 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1421 ag_flag = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1422 break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1423 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1424 while ((PCB).btsx > ag_save_btsx) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1425 *ag_sx = (PCB).bts[128 - (PCB).btsx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1426 (PCB).ss[*ag_sx] = (PCB).ss[128 - (PCB).btsx--];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1427 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1428 return ag_flag;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1429 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1430

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1431

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1432 static int ag_tst_tkn(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1433 int ag_rk, ag_sx, ag_snd = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1434

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1435 (PCB).token_number = (cf_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1436 (PCB).la_ptr++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1437 if (ag_key_index[(PCB).sn]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1438 unsigned ag_k = ag_key_index[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1439 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1440 if (ag_ch <= 255) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1441 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1442 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1443 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1444 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1445 for (ag_rk = 0; ag_rk < (PCB).ag_lrss; ag_rk += 2) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1446 ag_sx = (PCB).ag_rss[ag_rk];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1447 if (ag_sx > (PCB).ssx || ag_sx > (PCB).ag_min_depth) continue;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1448 (PCB).sn = (PCB).ag_rss[ag_rk + 1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1449 if (ag_atx((PCB).token_number, &ag_sx, (PCB).sn)) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1450 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1451 (PCB).sn = ag_snd;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1452 return ag_rk;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1453 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1454

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1455 static void ag_set_error_procs(void);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1456

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1457 static void ag_auto_resynch(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1458 int ag_sx, ag_rk;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1459 int ag_rk1, ag_rk2, ag_tk1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1460 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1461 if ((PCB).ag_error_depth && (PCB).ag_min_depth >= (PCB).ag_error_depth) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1462 (PCB).ssx = (PCB).ag_error_depth;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1463 (PCB).sn = (PCB).ss[(PCB).ssx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1464 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1465 else {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1466 ag_diagnose();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1467 SYNTAX_ERROR;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1468 if ((PCB).exit_flag != AG_RUNNING_CODE) return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1469 (PCB).ag_error_depth = (PCB).ag_min_depth = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1470 (PCB).ag_lrss = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1471 (PCB).ss[ag_sx = (PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1472 (PCB).ag_min_depth = (PCB).ag_rss[(PCB).ag_lrss++] = ag_sx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1473 (PCB).ag_rss[(PCB).ag_lrss++] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1474 while (ag_sx && (PCB).ag_lrss < 2*128) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1475 int ag_t = 0, ag_x, ag_s, ag_sxs = ag_sx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1476

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1477 while (ag_sx && (ag_t = ag_ctn[2*(PCB).sn]) == 0) (PCB).sn = (PCB).ss[--ag_sx];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1478 if (ag_t) (PCB).sn = (PCB).ss[ag_sx -= ag_ctn[2*(PCB).sn +1]];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1479 else {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1480 if (ag_sx == 0) (PCB).sn = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1481 ag_t = ag_ptt[0];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1482 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1483 if ((ag_s = ag_rns(ag_t, &ag_sx, (PCB).sn)) == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1484 for (ag_x = 0; ag_x < (PCB).ag_lrss; ag_x += 2)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1485 if ((PCB).ag_rss[ag_x] == ag_sx + 1 && (PCB).ag_rss[ag_x+1] == ag_s) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1486 if (ag_x == (PCB).ag_lrss) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1487 (PCB).ag_rss[(PCB).ag_lrss++] = ++ag_sx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1488 (PCB).ag_rss[(PCB).ag_lrss++] = (PCB).sn = ag_s;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1489 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1490 else if (ag_sx >= ag_sxs) ag_sx--;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1491 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1492 ag_set_error_procs();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1493 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1494 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1495 if ((PCB).ssx > (PCB).ag_min_depth) (PCB).ag_min_depth = (PCB).ssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1496 while (1) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1497 ag_rk1 = ag_tst_tkn();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1498 if ((PCB).token_number == 24)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1499 {(PCB).exit_flag = AG_SYNTAX_ERROR_CODE; return;}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1500 if (ag_rk1 < (PCB).ag_lrss) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1501 {(PCB).la_ptr = (PCB).pointer + 1; ag_track();}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1502 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1503 ag_tk1 = (PCB).token_number;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1504 ag_track();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1505 ag_rk2 = ag_tst_tkn();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1506 if (ag_rk2 < ag_rk1) {ag_rk = ag_rk2; ag_track();}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1507 else {ag_rk = ag_rk1; (PCB).token_number = (cf_token_type) ag_tk1; (PCB).la_ptr = (PCB).pointer;}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1508 (PCB).ag_min_depth = (PCB).ssx = (PCB).ag_rss[ag_rk++];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1509 (PCB).sn = (PCB).ss[(PCB).ssx] = (PCB).ag_rss[ag_rk];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1510 (PCB).sn = ag_jns((PCB).token_number);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1511 if ((PCB).ag_error_depth == 0 || (PCB).ag_error_depth > (PCB).ssx)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1512 (PCB).ag_error_depth = (PCB).ssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1513 if (++(PCB).ssx >= 128) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1514 (PCB).exit_flag = AG_STACK_ERROR_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1515 PARSER_STACK_OVERFLOW;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1516 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1517 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1518 GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1519 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1520 (PCB).ag_tmp_depth = (PCB).ag_min_depth;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1521 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1522 return;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1523 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1524

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1525

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1526 static int ag_action_10_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1527 int ag_t = (PCB).token_number;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1528 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1529 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1530 ag_track();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1531 (PCB).token_number = (cf_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1532 (PCB).la_ptr++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1533 if (ag_key_index[(PCB).sn]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1534 unsigned ag_k = ag_key_index[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1535 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1536 if (ag_ch <= 255) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1537 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1538 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1539 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1540 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1541 } while ((PCB).token_number == (cf_token_type) ag_t);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1542 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1543 return 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1544 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1545

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1546 static int ag_action_11_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1547 int ag_t = (PCB).token_number;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1548

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1549 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1550 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1551 (PCB).vs[(PCB).ssx] = *(PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1552 (PCB).ssx--;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1553 ag_track();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1554 ag_ra();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1555 if ((PCB).exit_flag != AG_RUNNING_CODE) return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1556 (PCB).ssx++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1557 (PCB).token_number = (cf_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1558 (PCB).la_ptr++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1559 if (ag_key_index[(PCB).sn]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1560 unsigned ag_k = ag_key_index[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1561 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1562 if (ag_ch <= 255) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1563 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1564 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1565 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1566 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1567 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1568 while ((PCB).token_number == (cf_token_type) ag_t);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1569 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1570 return 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1571 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1572

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1573 static int ag_action_3_r_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1574 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1575 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1576 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1577 (PCB).reduction_token = (cf_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1578 ag_ra();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1579 return (PCB).exit_flag == AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1580 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1581

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1582 static int ag_action_3_s_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1583 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1584 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1585 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1586 (PCB).reduction_token = (cf_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1587 ag_ra();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1588 return (PCB).exit_flag == AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1589 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1590

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1591 static int ag_action_4_r_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1592 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1593 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1594 (PCB).reduction_token = (cf_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1595 return 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1596 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1597

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1598 static int ag_action_2_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1599 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1600 if ((PCB).ssx >= 128) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1601 (PCB).exit_flag = AG_STACK_ERROR_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1602 PARSER_STACK_OVERFLOW;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1603 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1604 (PCB).vs[(PCB).ssx] = *(PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1605 GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1606 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1607 (PCB).ssx++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1608 (PCB).sn = (PCB).ag_ap;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1609 ag_track();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1610 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1611 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1612

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1613 static int ag_action_9_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1614 if ((PCB).drt == -1) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1615 (PCB).drt=(PCB).token_number;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1616 (PCB).dssx=(PCB).ssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1617 (PCB).dsn=(PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1618 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1619 ag_prot();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1620 (PCB).vs[(PCB).ssx] = ag_null_value;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1621 GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1622 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1623 (PCB).ssx++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1624 (PCB).sn = (PCB).ag_ap;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1625 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1626 return (PCB).exit_flag == AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1627 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1628

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1629 static int ag_action_2_r_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1630 (PCB).ssx++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1631 (PCB).sn = (PCB).ag_ap;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1632 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1633 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1634

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1635 static int ag_action_7_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1636 --(PCB).ssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1637 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1638 (PCB).exit_flag = AG_SUCCESS_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1639 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1640 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1641

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1642 static int ag_action_1_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1643 ag_track();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1644 (PCB).exit_flag = AG_SUCCESS_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1645 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1646 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1647

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1648 static int ag_action_1_r_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1649 (PCB).exit_flag = AG_SUCCESS_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1650 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1651 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1652

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1653 static int ag_action_1_s_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1654 (PCB).exit_flag = AG_SUCCESS_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1655 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1656 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1657

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1658 static int ag_action_4_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1659 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1660 (PCB).reduction_token = (cf_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1661 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1662 (PCB).vs[(PCB).ssx] = *(PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1663 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1664 else GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1665 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1666 ag_track();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1667 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1668 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1669 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1670 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1671 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1672 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1673 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1674 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1675 if (ag_tstt[ag_t1] != (PCB).reduction_token) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1676 (PCB).exit_flag = AG_REDUCTION_ERROR_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1677 REDUCTION_TOKEN_ERROR; break;}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1678 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1679 if ((*(PCB).s_procs[ag_astt[ag_t1]])() == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1680 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1681 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1682 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1683

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1684 static int ag_action_3_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1685 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1686 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1687 (PCB).vs[(PCB).ssx] = *(PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1688 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1689 else GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1690 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1691 ag_track();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1692 (PCB).reduction_token = (cf_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1693 ag_ra();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1694 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1695 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1696 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1697 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1698 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1699 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1700 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1701 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1702 if (ag_tstt[ag_t1] != (PCB).reduction_token) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1703 (PCB).exit_flag = AG_REDUCTION_ERROR_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1704 REDUCTION_TOKEN_ERROR; break;}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1705 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1706 if ((*(PCB).s_procs[ag_astt[ag_t1]])() == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1707 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1708 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1709 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1710

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1711 static int ag_action_8_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1712 ag_undo();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1713 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1714 ag_auto_resynch();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1715 return (PCB).exit_flag == AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1716 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1717

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1718 static int ag_action_5_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1719 int ag_sd = ag_fl[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1720 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1721 if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1722 else {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1723 GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1724 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1725 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1726 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1727 (PCB).reduction_token = (cf_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1728 ag_ra();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1729 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1730 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1731 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1732 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1733 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1734 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1735 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1736 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1737 if (ag_tstt[ag_t1] != (PCB).reduction_token) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1738 (PCB).exit_flag = AG_REDUCTION_ERROR_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1739 REDUCTION_TOKEN_ERROR; break;}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1740 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1741 if ((*(PCB).r_procs[ag_astt[ag_t1]])() == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1742 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1743 return (PCB).exit_flag == AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1744 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1745

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1746 static int ag_action_6_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1747 int ag_sd = ag_fl[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1748 (PCB).reduction_token = (cf_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1749 if ((PCB).drt == -1) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1750 (PCB).drt=(PCB).token_number;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1751 (PCB).dssx=(PCB).ssx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1752 (PCB).dsn=(PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1753 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1754 if (ag_sd) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1755 (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1756 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1757 else {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1758 ag_prot();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1759 (PCB).vs[(PCB).ssx] = ag_null_value;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1760 GET_CONTEXT;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1761 (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1762 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1763 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1764 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1765 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1766 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1767 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1768 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1769 if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1770 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1771 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1772 if (ag_tstt[ag_t1] != (PCB).reduction_token) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1773 (PCB).exit_flag = AG_REDUCTION_ERROR_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1774 REDUCTION_TOKEN_ERROR; break;}

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1775 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1776 if ((*(PCB).r_procs[ag_astt[ag_t1]])() == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1777 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1778 return (PCB).exit_flag == AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1779 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1780

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1781

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1782 static void ag_check_depth(int ag_fl) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1783 int ag_sx = (PCB).ssx - ag_fl;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1784 if ((PCB).ag_error_depth && ag_sx < (PCB).ag_tmp_depth) (PCB).ag_tmp_depth = ag_sx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1785 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1786

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1787 static int ag_action_3_er_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1788 ag_check_depth(ag_fl[(PCB).ag_ap] - 1);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1789 return ag_action_4_r_proc();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1790 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1791

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1792 static int ag_action_2_e_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1793 ag_action_2_proc();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1794 (PCB).ag_min_depth = (PCB).ag_tmp_depth;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1795 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1796 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1797

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1798 static int ag_action_4_e_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1799 ag_check_depth(ag_fl[(PCB).ag_ap] - 1);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1800 (PCB).ag_min_depth = (PCB).ag_tmp_depth;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1801 return ag_action_4_proc();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1802 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1803

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1804 static int ag_action_6_e_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1805 ag_check_depth(ag_fl[(PCB).ag_ap]);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1806 return ag_action_6_proc();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1807 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1808

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1809 static int ag_action_11_e_proc(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1810 return ag_action_10_proc();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1811 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1812

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1813 static int (*ag_r_procs_error[])(void) = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1814 ag_action_1_r_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1815 ag_action_2_r_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1816 ag_action_3_er_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1817 ag_action_3_er_proc

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1818 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1819

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1820 static int (*ag_s_procs_error[])(void) = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1821 ag_action_1_s_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1822 ag_action_2_r_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1823 ag_action_3_er_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1824 ag_action_3_er_proc

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1825 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1826

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1827 static int (*ag_gt_procs_error[])(void) = {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1828 ag_action_1_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1829 ag_action_2_e_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1830 ag_action_4_e_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1831 ag_action_4_e_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1832 ag_action_6_e_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1833 ag_action_6_e_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1834 ag_action_7_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1835 ag_action_8_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1836 ag_action_9_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1837 ag_action_10_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1838 ag_action_11_e_proc,

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1839 ag_action_8_proc

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1840 };

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1841

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1842 static void ag_set_error_procs(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1843 (PCB).gt_procs = ag_gt_procs_error;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1844 (PCB).r_procs = ag_r_procs_error;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1845 (PCB).s_procs = ag_s_procs_error;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1846 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1847

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1848

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1849 void init_cf(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1850 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1851 (PCB).gt_procs = ag_gt_procs_scan;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1852 (PCB).r_procs = ag_r_procs_scan;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1853 (PCB).s_procs = ag_s_procs_scan;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1854 (PCB).ag_error_depth = (PCB).ag_min_depth = (PCB).ag_tmp_depth = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1855 (PCB).ag_resynch_active = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1856 (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1857 (PCB).exit_flag = AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1858 (PCB).line = FIRST_LINE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1859 (PCB).column = FIRST_COLUMN;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1860 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1861 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1862

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1863 void cf(void) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1864 init_cf();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1865 (PCB).exit_flag = AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1866 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1867 unsigned ag_t1 = ag_sbt[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1868 if (ag_tstt[ag_t1]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1869 unsigned ag_t2 = ag_sbe[(PCB).sn] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1870 (PCB).token_number = (cf_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1871 (PCB).la_ptr++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1872 if (ag_key_index[(PCB).sn]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1873 unsigned ag_k = ag_key_index[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1874 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1875 if (ag_ch <= 255) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1876 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1877 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1878 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1879 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1880 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1881 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1882 if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1883 ag_t1 = ag_tx + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1884 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1885 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1886 if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1887 ag_t1 = ag_sbe[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1888 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1889 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1890 (*(PCB).gt_procs[ag_astt[ag_t1]])();

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1891 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1892 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1893

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1894

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

annotate tests/agcl/oldagsrc/good/cf.cpp @ 0:13d2b8934445