AnaGram interim repo (temporary): tests/agcl/ffcalc/good/ffc-rp.c 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 /* FOUR FUNCTION CALCULATOR: FFCALC.SYN */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	2 /*
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	3 * AnaGram, A System for Syntax Directed Programming
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	4 * File generated by: ...
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 * AnaGram Parsing Engine
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	7 * Copyright 1993-2002 Parsifal Software. All Rights Reserved.
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 * 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	10 * 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	11 * arising from the use of this software.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	12 *
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	13 * 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	14 * including commercial applications, and to alter it and redistribute it
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	15 * freely, subject to the following restrictions:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	16 *
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	17 * 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	18 * 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	19 * 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	20 * appreciated but is not required.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	21 * 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	22 * misrepresented as being the original software.
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	23 * 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	24 */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	25
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	26 #ifndef FFC-RP_H
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	27 #include "ffc-rp.h"
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	28 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	29
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	30 #ifndef FFC-RP_H
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	31 #error Mismatched header file
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	32 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	33
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	34 #include <ctype.h>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	35 #include <stdio.h>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	36
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	37 #define RULE_CONTEXT (&((PCB).cs[(PCB).ssx]))
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	38 #define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx])
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	39 #define CONTEXT ((PCB).cs[(PCB).ssx])
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	40
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	41
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	42 #ifndef PCB_TYPE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	43 #define PCB_TYPE ffc-rp_pcb_type
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	44 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	45
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	46
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	47 #define PCB (*pcb_pointer)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	48 #define PCB_DECL PCB_TYPE *pcb_pointer
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	49 #define PCB_POINTER pcb_pointer
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 /* Line -, ffc-rp.syn */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	52 /* -- EMBEDDED C ---------------------------------- */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	53 #include <stdio.h>
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	54
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	55 double value[64]; /* registers */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	56 int main(int argc, char *argv[]) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	57 FILE *input;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	58 long length;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	59 char *buf;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	60 ffcalcp_pcb_type pcb;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	61 if (argc < 2) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	62 printf("Usage: ffcalcp <file name>\n");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	63 return 1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	64 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	65 input = fopen(argv[1], "r");
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	66 if (input == 0) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	67 printf("Cannot open %s\n", argv[1]);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	68 return 2;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	69 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	70 fseek(input, 0, SEEK_END);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	71 length = ftell(input);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	72 fseek(input, 0, SEEK_SET);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	73 buf = malloc(length+1);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	74 length = fread(buf, 1, length, input);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	75 buf[length] = 0;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	76 pcb.pointer = (unsigned char *) buf;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	77 ffcalcp(&pcb);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	78 return 0;
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 #ifndef CONVERT_CASE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	82 #define CONVERT_CASE(c) (c)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	83 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	84 #ifndef TAB_SPACING
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	85 #define TAB_SPACING 8
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	86 #endif
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 #define ag_rp_1(PCB_POINTER, x) (printf("%g\n",x))
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 static void ag_rp_2(PCB_DECL, int n, double x) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	91 /* Line -, ffc-rp.syn */
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	92 printf("%c = %g\n",n+'A',value[n]=x);
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 #define ag_rp_3(PCB_POINTER, x, t) (x+t)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	96
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	97 #define ag_rp_4(PCB_POINTER, x, t) (x-t)
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 #define ag_rp_5(PCB_POINTER, t, f) (t*f)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	100
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	101 #define ag_rp_6(PCB_POINTER, t, f) (t/f)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	102
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	103 #define ag_rp_7(PCB_POINTER, n) (value[n])
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	104
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	105 #define ag_rp_8(PCB_POINTER, x) (x)
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 #define ag_rp_9(PCB_POINTER, f) (-f)
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 #define ag_rp_10(PCB_POINTER, c) (c-'A')
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	110
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	111 #define ag_rp_11(PCB_POINTER, i, f) (i+f)
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 #define ag_rp_12(PCB_POINTER, f) (f)
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 #define ag_rp_13(PCB_POINTER, d) (d-'0')
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	116
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	117 #define ag_rp_14(PCB_POINTER, x, d) (10*x + d-'0')
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	118
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	119 #define ag_rp_15(PCB_POINTER, d) ((d-'0')/10.)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	120
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	121 #define ag_rp_16(PCB_POINTER, d, f) ((d-'0' + f)/10.)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	122
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	123
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	124 #define READ_COUNTS
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	125 #define WRITE_COUNTS
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	126 #undef V
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	127 #define V(i,t) (*t (&(PCB).vs[(PCB).ssx + i]))
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	128 #undef VS
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	129 #define VS(i) (PCB).vs[(PCB).ssx + i]
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 #ifndef GET_CONTEXT
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	132 #define GET_CONTEXT CONTEXT = (PCB).input_context
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	133 #endif
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 typedef enum {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	136 ag_action_1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	137 ag_action_2,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	138 ag_action_3,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	139 ag_action_4,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	140 ag_action_5,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	141 ag_action_6,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	142 ag_action_7,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	143 ag_action_8,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	144 ag_action_9,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	145 ag_action_10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	146 ag_action_11,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	147 ag_action_12
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	148 } ag_parser_action;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	149
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 #ifndef NULL_VALUE_INITIALIZER
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	152 #define NULL_VALUE_INITIALIZER = { 0 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	153 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	154
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	155 static ffc-rp_vs_type const ag_null_value NULL_VALUE_INITIALIZER;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	156
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	157 static const unsigned char ag_rpx[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	158 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 3, 4, 0, 5, 6,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	159 7, 0, 8, 9, 0, 0, 0, 0, 0, 0, 10, 11, 0, 0, 0, 12, 13, 14,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	160 15, 16
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 static const unsigned char ag_key_itt[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	164 0
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 static const unsigned short ag_key_pt[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	168 0
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	169 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	170
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	171 static const unsigned char ag_key_ch[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	172 0, 47,255, 42,255
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 static const unsigned char ag_key_act[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	176 0,3,4,3,4
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 static const unsigned char ag_key_parm[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	180 0, 24, 0, 28, 0
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 static const unsigned char ag_key_jmp[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	184 0, 0, 0, 2, 0
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	185 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	186
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	187 static const unsigned char ag_key_index[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	188 1, 3, 1, 0, 3, 3, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	189 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	190 0
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
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	193 static const unsigned char ag_key_ends[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	194 42,0, 47,0,
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 #define AG_TCV(x) ag_tcv[(x)]
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	198
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	199 static const unsigned char ag_tcv[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	200 10, 35, 35, 35, 35, 35, 35, 35, 35, 23, 38, 23, 23, 23, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	201 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 23, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	202 35, 35, 35, 35, 46, 45, 42, 40, 35, 41, 31, 43, 34, 34, 34, 34, 34, 34,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	203 34, 34, 34, 34, 35, 35, 35, 39, 35, 35, 35, 47, 47, 47, 47, 47, 47, 47,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	204 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	205 47, 35, 35, 35, 35, 35, 35, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	206 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	207 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	208 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	209 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	210 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	211 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	212 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	213 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	214 35, 35, 35, 35
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	215 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	216
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	217 #ifndef SYNTAX_ERROR
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	218 #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	219 (PCB).error_message, (PCB).line, (PCB).column)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	220 #endif
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 #ifndef FIRST_LINE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	223 #define FIRST_LINE 1
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	224 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	225
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	226 #ifndef FIRST_COLUMN
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	227 #define FIRST_COLUMN 1
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	228 #endif
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 #ifndef PARSER_STACK_OVERFLOW
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	231 #define PARSER_STACK_OVERFLOW {fprintf(stderr, \
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	232 "\nParser stack overflow, line %d, column %d\n",\
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	233 (PCB).line, (PCB).column);}
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	234 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	235
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	236 #ifndef REDUCTION_TOKEN_ERROR
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	237 #define REDUCTION_TOKEN_ERROR {fprintf(stderr, \
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	238 "\nReduction token error, line %d, column %d\n", \
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	239 (PCB).line, (PCB).column);}
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	240 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	241
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	242
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	243 #ifndef INPUT_CODE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	244 #define INPUT_CODE(T) (T)
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	245 #endif
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 typedef enum
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	248 {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	249 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	250
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	251 static void ag_get_key_word(PCB_DECL, int ag_k) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	252 int ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	253 const unsigned char *ag_p;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	254 int ag_ch;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	255 while (1) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	256 switch (ag_key_act[ag_k]) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	257 case ag_cf_end_key: {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	258 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	259 do {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	260 if ((ag_ch = *sp++) == 0) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	261 int ag_k1 = ag_key_parm[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	262 int ag_k2 = ag_key_pt[ag_k1];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	263 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	264 (PCB).token_number = (ffc-rp_token_type) ag_key_pt[ag_k1 + 1];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	265 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	266 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	267 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	268 goto ag_fail;
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 case ag_end_key: {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	271 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	272 do {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	273 if ((ag_ch = *sp++) == 0) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	274 (PCB).token_number = (ffc-rp_token_type) ag_key_parm[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	275 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	276 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	277 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	278 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	279 case ag_no_match_key:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	280 ag_fail:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	281 (PCB).la_ptr = (PCB).pointer + ag_save;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	282 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	283 case ag_cf_set_key: {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	284 int ag_k1 = ag_key_parm[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	285 int ag_k2 = ag_key_pt[ag_k1];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	286 ag_k = ag_key_jmp[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	287 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	288 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	289 (PCB).token_number = (ffc-rp_token_type) ag_key_pt[ag_k1+1];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	290 break;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	291 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	292 case ag_set_key:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	293 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	294 (PCB).token_number = (ffc-rp_token_type) ag_key_parm[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	295 case ag_jmp_key:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	296 ag_k = ag_key_jmp[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	297 break;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	298 case ag_accept_key:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	299 (PCB).token_number = (ffc-rp_token_type) ag_key_parm[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	300 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	301 case ag_cf_accept_key: {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	302 int ag_k1 = ag_key_parm[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	303 int ag_k2 = ag_key_pt[ag_k1];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	304 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	305 (PCB).la_ptr = (PCB).pointer + ag_save;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	306 else (PCB).token_number = (ffc-rp_token_type) ag_key_pt[ag_k1+1];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	307 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	308 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	309 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	310 ag_ch = CONVERT_CASE(*(PCB).la_ptr++);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	311 ag_p = &ag_key_ch[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	312 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	313 if (ag_ch > 255 \|\| *ag_p != ag_ch) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	314 (PCB).la_ptr = (PCB).pointer + ag_save;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	315 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	316 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	317 ag_k = (int) (ag_p - ag_key_ch);
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 }
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
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	322 #ifndef AG_NEWLINE
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	323 #define AG_NEWLINE 10
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	324 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	325
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	326 #ifndef AG_RETURN
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	327 #define AG_RETURN 13
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	328 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	329
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	330 #ifndef AG_FORMFEED
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	331 #define AG_FORMFEED 12
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	332 #endif
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	333
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	334 #ifndef AG_TABCHAR
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	335 #define AG_TABCHAR 9
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	336 #endif
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 static void ag_track(PCB_DECL) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	339 int ag_k = (int) ((PCB).la_ptr - (PCB).pointer);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	340 while (ag_k--) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	341 switch (*(PCB).pointer++) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	342 case AG_NEWLINE:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	343 (PCB).column = 1, (PCB).line++;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	344 case AG_RETURN:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	345 case AG_FORMFEED:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	346 break;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	347 case AG_TABCHAR:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	348 (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING);
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	349 break;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	350 default:
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	351 (PCB).column++;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	352 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	353 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	354 }
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_prot(PCB_DECL) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	358 int ag_k;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	359 ag_k = 128 - ++(PCB).btsx;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	360 if (ag_k <= (PCB).ssx) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	361 (PCB).exit_flag = AG_STACK_ERROR_CODE;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	362 PARSER_STACK_OVERFLOW;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	363 return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	364 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	365 (PCB).bts[(PCB).btsx] = (PCB).sn;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	366 (PCB).bts[ag_k] = (PCB).ssx;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	367 (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	368 (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	369 }
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	370
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	371 static void ag_undo(PCB_DECL) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	372 if ((PCB).drt == -1) return;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	373 while ((PCB).btsx) {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	374 int ag_k = 128 - (PCB).btsx;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	375 (PCB).sn = (PCB).bts[(PCB).btsx--];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	376 (PCB).ssx = (PCB).bts[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	377 (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k];
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	378 (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k];
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 (PCB).token_number = (ffc-rp_token_type) (PCB).drt;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	381 (PCB).ssx = (PCB).dssx;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	382 (PCB).sn = (PCB).dsn;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	383 (PCB).drt = -1;
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	384 }
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 const unsigned char ag_tstt[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	388 47,46,41,38,34,31,24,23,10,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	389 47,46,45,43,42,41,40,39,38,35,34,31,28,23,0,26,27,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	390 24,23,0,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	391 47,46,41,38,34,31,14,10,0,2,3,4,5,7,8,9,11,12,15,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	392 47,46,45,43,42,41,40,39,38,35,34,31,23,0,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	393 28,0,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	394 34,0,32,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	395 45,43,42,41,40,38,34,31,24,23,0,33,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	396 47,46,41,34,31,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	397 47,46,41,34,31,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	398 45,43,42,41,40,38,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	399 47,46,41,34,31,0,2,12,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	400 47,46,41,34,31,0,2,11,12,15,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	401 45,43,42,41,40,39,38,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	402 43,42,0,19,20,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	403 43,42,41,40,39,38,0,13,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	404 41,40,38,0,16,17,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	405 38,0,6,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	406 47,46,41,38,34,31,14,10,0,2,4,5,7,11,12,15,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	407 10,0,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	408 45,43,42,41,40,38,34,24,23,0,32,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	409 34,0,32,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	410 45,41,40,0,16,17,22,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	411 47,46,41,34,31,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	412 47,46,41,34,31,0,2,12,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	413 47,46,41,34,31,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	414 47,46,41,34,31,0,2,12,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	415 47,46,41,34,31,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	416 47,46,41,34,31,0,2,11,12,15,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	417 47,46,41,34,31,0,2,12,15,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	418 47,46,41,34,31,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	419 47,46,41,34,31,0,2,12,15,17,18,21,29,30,44,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	420 47,46,41,38,34,31,24,23,10,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	421 45,43,42,41,40,38,24,23,0,1,36,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	422 41,40,38,0,16,17,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	423 45,43,42,41,40,38,0,19,20,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	424 45,43,42,41,40,38,0,19,20,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	425
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	426 };
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 unsigned const char ag_astt[401] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	430 8,8,8,8,8,8,1,1,8,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,1,7,1,1,1,9,5,3,1,1,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	431 8,2,1,1,8,7,1,0,1,1,1,1,1,1,1,1,1,1,1,2,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	432 7,1,7,2,5,5,5,5,5,5,10,1,5,5,7,3,5,5,5,5,5,1,1,7,1,1,3,5,5,5,5,5,1,1,7,1,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	433 3,5,5,5,5,5,5,1,1,7,1,1,3,1,1,1,2,1,7,2,2,1,2,1,2,1,1,1,1,1,2,1,7,1,1,2,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	434 1,1,1,2,1,1,5,5,5,5,5,5,5,1,1,7,1,1,3,1,1,5,1,1,4,4,4,4,1,4,7,1,1,1,4,7,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	435 1,1,7,3,1,1,1,8,2,1,1,5,7,1,1,1,3,1,1,1,1,1,1,2,1,1,3,7,4,4,4,4,4,4,1,4,4,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	436 7,2,1,5,2,1,1,1,7,1,1,2,5,5,5,5,5,1,1,7,1,1,3,1,1,1,2,1,7,2,2,1,2,1,2,1,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	437 5,5,5,5,5,1,1,7,1,1,3,1,1,1,2,1,7,2,2,1,2,1,2,1,1,5,5,5,5,5,1,1,7,1,1,3,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	438 1,1,2,1,7,1,1,2,1,1,1,1,2,1,1,1,1,1,2,1,7,1,2,1,1,1,1,2,1,1,5,5,5,5,5,1,1,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	439 7,1,1,3,1,1,1,2,1,7,1,2,1,1,1,1,2,1,1,5,5,5,5,5,5,1,1,5,7,1,1,3,5,5,5,5,5,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	440 5,1,1,7,1,1,3,1,1,4,7,1,1,4,1,1,4,4,4,7,1,1,4,1,1,4,4,4,7,1,1
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	441 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	442
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	443
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	444 static const unsigned char ag_pstt[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	445 3,3,3,3,3,3,1,2,3,0,2,2,3,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	446 4,4,4,4,4,4,4,4,4,4,4,4,5,4,1,4,5,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	447 1,52,54,52,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	448 13,9,8,17,34,6,17,19,3,14,0,17,17,18,18,19,16,15,14,11,14,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	449 24,24,24,24,24,24,24,24,24,24,24,24,24,26,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	450 27,5,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	451 20,6,33,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	452 30,30,30,30,30,30,35,21,30,30,7,32,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	453 53,53,53,53,53,1,2,8,2,2,58,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	454 53,53,53,53,53,1,2,9,2,2,63,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	455 53,53,53,53,53,53,1,2,10,2,2,61,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	456 13,9,8,34,6,11,21,18,11,21,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	457 13,9,8,34,6,12,14,22,18,14,11,14,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	458 53,53,53,53,53,53,53,1,2,13,2,2,64,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	459 23,25,12,26,24,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	460 18,18,18,18,27,18,15,28,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	461 8,30,9,16,31,29,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	462 32,17,3,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	463 13,9,8,17,34,6,17,7,18,14,17,17,5,16,15,14,11,14,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	464 8,19,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	465 36,36,36,36,36,36,20,36,36,20,37,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	466 20,31,29,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	467 33,8,30,22,31,29,20,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	468 53,53,53,53,53,1,2,23,2,2,60,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	469 13,9,8,34,6,24,17,18,11,17,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	470 53,53,53,53,53,1,2,25,2,2,59,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	471 13,9,8,34,6,26,16,18,11,16,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	472 53,53,53,53,53,1,2,27,2,2,56,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	473 13,9,8,34,6,28,14,34,18,14,11,14,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	474 13,9,8,34,6,29,35,18,35,11,35,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	475 53,53,53,53,53,1,2,30,2,2,57,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	476 13,9,8,34,6,31,36,18,36,11,36,12,28,7,10,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	477 53,53,53,53,53,53,1,2,53,32,2,2,55,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	478 53,53,53,53,53,53,1,2,33,2,2,62,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	479 8,30,10,34,31,29,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	480 14,23,25,14,14,14,35,26,24,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	481 13,23,25,13,13,13,36,26,24,
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 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	484
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	485
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	486 static const unsigned short ag_sbt[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	487 0, 13, 30, 34, 59, 73, 75, 78, 90, 101, 112, 124, 138, 154,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	488 167, 172, 180, 186, 189, 211, 213, 224, 227, 234, 245, 259, 270, 284,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	489 295, 311, 326, 337, 352, 365, 377, 383, 392, 401
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	490 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	491
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	492
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	493 static const unsigned short ag_sbe[] = {
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	494 9, 27, 32, 42, 72, 74, 76, 88, 97, 108, 120, 129, 143, 163,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	495 169, 178, 183, 187, 197, 212, 222, 225, 230, 241, 250, 266, 275, 291,
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	496 300, 316, 333, 342, 361, 373, 380, 389, 398, 401
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	497 };
13d2b8934445 Import AnaGram (near-)release tree into Mercurial. David A. Holland parents: diff changeset	498
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 static const unsigned char ag_fl[] = {

0

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

David A. Holland

parents:

diff changeset

1 /* FOUR FUNCTION CALCULATOR: FFCALC.SYN */

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

David A. Holland

parents:

diff changeset

2 /*

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

David A. Holland

parents:

diff changeset

3 * AnaGram, A System for Syntax Directed Programming

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

David A. Holland

parents:

diff changeset

4 * File generated by: ...

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 * 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

8 *

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

David A. Holland

parents:

diff changeset

9 * 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

10 * 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

11 * arising from the use of this software.

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

David A. Holland

parents:

diff changeset

12 *

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

David A. Holland

parents:

diff changeset

13 * 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

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

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

David A. Holland

parents:

diff changeset

15 * freely, subject to the following restrictions:

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

David A. Holland

parents:

diff changeset

16 *

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

David A. Holland

parents:

diff changeset

17 * 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

18 * 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

19 * 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

20 * appreciated but is not required.

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

David A. Holland

parents:

diff changeset

21 * 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

22 * misrepresented as being the original software.

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

David A. Holland

parents:

diff changeset

23 * 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

24 */

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

David A. Holland

parents:

diff changeset

25

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

David A. Holland

parents:

diff changeset

26 #ifndef FFC-RP_H

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

David A. Holland

parents:

diff changeset

27 #include "ffc-rp.h"

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

David A. Holland

parents:

diff changeset

28 #endif

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

David A. Holland

parents:

diff changeset

29

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

David A. Holland

parents:

diff changeset

30 #ifndef FFC-RP_H

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

David A. Holland

parents:

diff changeset

31 #error Mismatched header file

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

David A. Holland

parents:

diff changeset

32 #endif

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

David A. Holland

parents:

diff changeset

33

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

David A. Holland

parents:

diff changeset

34 #include <ctype.h>

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

David A. Holland

parents:

diff changeset

35 #include <stdio.h>

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

David A. Holland

parents:

diff changeset

36

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

David A. Holland

parents:

diff changeset

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

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

David A. Holland

parents:

diff changeset

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

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

David A. Holland

parents:

diff changeset

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

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

David A. Holland

parents:

diff changeset

40

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

David A. Holland

parents:

diff changeset

41

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

David A. Holland

parents:

diff changeset

42 #ifndef PCB_TYPE

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

David A. Holland

parents:

diff changeset

43 #define PCB_TYPE ffc-rp_pcb_type

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

David A. Holland

parents:

diff changeset

44 #endif

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

David A. Holland

parents:

diff changeset

45

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

David A. Holland

parents:

diff changeset

46

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

David A. Holland

parents:

diff changeset

47 #define PCB (*pcb_pointer)

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

David A. Holland

parents:

diff changeset

48 #define PCB_DECL PCB_TYPE *pcb_pointer

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

David A. Holland

parents:

diff changeset

49 #define PCB_POINTER pcb_pointer

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 /* Line -, ffc-rp.syn */

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

David A. Holland

parents:

diff changeset

52 /* -- EMBEDDED C ---------------------------------- */

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

David A. Holland

parents:

diff changeset

53 #include <stdio.h>

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

David A. Holland

parents:

diff changeset

54

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

David A. Holland

parents:

diff changeset

55 double value[64]; /* registers */

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

David A. Holland

parents:

diff changeset

56 int main(int argc, char *argv[]) {

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

David A. Holland

parents:

diff changeset

57 FILE *input;

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

David A. Holland

parents:

diff changeset

58 long length;

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

David A. Holland

parents:

diff changeset

59 char *buf;

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

David A. Holland

parents:

diff changeset

60 ffcalcp_pcb_type pcb;

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

David A. Holland

parents:

diff changeset

61 if (argc < 2) {

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

David A. Holland

parents:

diff changeset

62 printf("Usage: ffcalcp <file name>\n");

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

David A. Holland

parents:

diff changeset

63 return 1;

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

David A. Holland

parents:

diff changeset

64 }

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

David A. Holland

parents:

diff changeset

65 input = fopen(argv[1], "r");

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

David A. Holland

parents:

diff changeset

66 if (input == 0) {

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

David A. Holland

parents:

diff changeset

67 printf("Cannot open %s\n", argv[1]);

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

David A. Holland

parents:

diff changeset

68 return 2;

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

David A. Holland

parents:

diff changeset

69 }

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

David A. Holland

parents:

diff changeset

70 fseek(input, 0, SEEK_END);

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

David A. Holland

parents:

diff changeset

71 length = ftell(input);

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

David A. Holland

parents:

diff changeset

72 fseek(input, 0, SEEK_SET);

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

David A. Holland

parents:

diff changeset

73 buf = malloc(length+1);

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

David A. Holland

parents:

diff changeset

74 length = fread(buf, 1, length, input);

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

David A. Holland

parents:

diff changeset

75 buf[length] = 0;

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

David A. Holland

parents:

diff changeset

76 pcb.pointer = (unsigned char *) buf;

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

David A. Holland

parents:

diff changeset

77 ffcalcp(&pcb);

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

David A. Holland

parents:

diff changeset

78 return 0;

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 #ifndef CONVERT_CASE

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

David A. Holland

parents:

diff changeset

82 #define CONVERT_CASE(c) (c)

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

David A. Holland

parents:

diff changeset

83 #endif

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

David A. Holland

parents:

diff changeset

84 #ifndef TAB_SPACING

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

David A. Holland

parents:

diff changeset

85 #define TAB_SPACING 8

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

David A. Holland

parents:

diff changeset

86 #endif

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 #define ag_rp_1(PCB_POINTER, x) (printf("%g\n",x))

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 static void ag_rp_2(PCB_DECL, int n, double x) {

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

David A. Holland

parents:

diff changeset

91 /* Line -, ffc-rp.syn */

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

David A. Holland

parents:

diff changeset

92 printf("%c = %g\n",n+'A',value[n]=x);

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 #define ag_rp_3(PCB_POINTER, x, t) (x+t)

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

David A. Holland

parents:

diff changeset

96

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

David A. Holland

parents:

diff changeset

97 #define ag_rp_4(PCB_POINTER, x, t) (x-t)

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 #define ag_rp_5(PCB_POINTER, t, f) (t*f)

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

David A. Holland

parents:

diff changeset

100

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

David A. Holland

parents:

diff changeset

101 #define ag_rp_6(PCB_POINTER, t, f) (t/f)

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

David A. Holland

parents:

diff changeset

102

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

David A. Holland

parents:

diff changeset

103 #define ag_rp_7(PCB_POINTER, n) (value[n])

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

David A. Holland

parents:

diff changeset

104

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

David A. Holland

parents:

diff changeset

105 #define ag_rp_8(PCB_POINTER, x) (x)

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 #define ag_rp_9(PCB_POINTER, f) (-f)

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 #define ag_rp_10(PCB_POINTER, c) (c-'A')

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

David A. Holland

parents:

diff changeset

110

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

David A. Holland

parents:

diff changeset

111 #define ag_rp_11(PCB_POINTER, i, f) (i+f)

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 #define ag_rp_12(PCB_POINTER, f) (f)

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 #define ag_rp_13(PCB_POINTER, d) (d-'0')

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

David A. Holland

parents:

diff changeset

116

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

David A. Holland

parents:

diff changeset

117 #define ag_rp_14(PCB_POINTER, x, d) (10*x + d-'0')

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

David A. Holland

parents:

diff changeset

118

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

David A. Holland

parents:

diff changeset

119 #define ag_rp_15(PCB_POINTER, d) ((d-'0')/10.)

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

David A. Holland

parents:

diff changeset

120

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

David A. Holland

parents:

diff changeset

121 #define ag_rp_16(PCB_POINTER, d, f) ((d-'0' + f)/10.)

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

David A. Holland

parents:

diff changeset

122

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

David A. Holland

parents:

diff changeset

123

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

David A. Holland

parents:

diff changeset

124 #define READ_COUNTS

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

David A. Holland

parents:

diff changeset

125 #define WRITE_COUNTS

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

David A. Holland

parents:

diff changeset

126 #undef V

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

David A. Holland

parents:

diff changeset

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

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

David A. Holland

parents:

diff changeset

128 #undef VS

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

David A. Holland

parents:

diff changeset

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

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 #ifndef GET_CONTEXT

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

David A. Holland

parents:

diff changeset

132 #define GET_CONTEXT CONTEXT = (PCB).input_context

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

David A. Holland

parents:

diff changeset

133 #endif

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 typedef enum {

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

David A. Holland

parents:

diff changeset

136 ag_action_1,

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

David A. Holland

parents:

diff changeset

137 ag_action_2,

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

David A. Holland

parents:

diff changeset

138 ag_action_3,

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

David A. Holland

parents:

diff changeset

139 ag_action_4,

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

David A. Holland

parents:

diff changeset

140 ag_action_5,

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

David A. Holland

parents:

diff changeset

141 ag_action_6,

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

David A. Holland

parents:

diff changeset

142 ag_action_7,

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

David A. Holland

parents:

diff changeset

143 ag_action_8,

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

David A. Holland

parents:

diff changeset

144 ag_action_9,

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

David A. Holland

parents:

diff changeset

145 ag_action_10,

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

David A. Holland

parents:

diff changeset

146 ag_action_11,

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

David A. Holland

parents:

diff changeset

147 ag_action_12

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

David A. Holland

parents:

diff changeset

148 } ag_parser_action;

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

David A. Holland

parents:

diff changeset

149

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 #ifndef NULL_VALUE_INITIALIZER

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

David A. Holland

parents:

diff changeset

152 #define NULL_VALUE_INITIALIZER = { 0 }

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

David A. Holland

parents:

diff changeset

153 #endif

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

David A. Holland

parents:

diff changeset

154

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

David A. Holland

parents:

diff changeset

155 static ffc-rp_vs_type const ag_null_value NULL_VALUE_INITIALIZER;

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

David A. Holland

parents:

diff changeset

156

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

David A. Holland

parents:

diff changeset

157 static const unsigned char ag_rpx[] = {

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

David A. Holland

parents:

diff changeset

158 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 3, 4, 0, 5, 6,

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

David A. Holland

parents:

diff changeset

159 7, 0, 8, 9, 0, 0, 0, 0, 0, 0, 10, 11, 0, 0, 0, 12, 13, 14,

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

David A. Holland

parents:

diff changeset

160 15, 16

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 static const unsigned char ag_key_itt[] = {

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

David A. Holland

parents:

diff changeset

164 0

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 static const unsigned short ag_key_pt[] = {

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

David A. Holland

parents:

diff changeset

168 0

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

David A. Holland

parents:

diff changeset

169 };

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

David A. Holland

parents:

diff changeset

170

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

David A. Holland

parents:

diff changeset

171 static const unsigned char ag_key_ch[] = {

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

David A. Holland

parents:

diff changeset

172 0, 47,255, 42,255

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 static const unsigned char ag_key_act[] = {

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

David A. Holland

parents:

diff changeset

176 0,3,4,3,4

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 static const unsigned char ag_key_parm[] = {

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

David A. Holland

parents:

diff changeset

180 0, 24, 0, 28, 0

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 static const unsigned char ag_key_jmp[] = {

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

David A. Holland

parents:

diff changeset

184 0, 0, 0, 2, 0

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

David A. Holland

parents:

diff changeset

185 };

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

David A. Holland

parents:

diff changeset

186

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

David A. Holland

parents:

diff changeset

187 static const unsigned char ag_key_index[] = {

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

David A. Holland

parents:

diff changeset

188 1, 3, 1, 0, 3, 3, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0,

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

David A. Holland

parents:

diff changeset

189 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0,

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

David A. Holland

parents:

diff changeset

190 0

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

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

David A. Holland

parents:

diff changeset

193 static const unsigned char ag_key_ends[] = {

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

David A. Holland

parents:

diff changeset

194 42,0, 47,0,

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 #define AG_TCV(x) ag_tcv[(x)]

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

David A. Holland

parents:

diff changeset

198

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

David A. Holland

parents:

diff changeset

199 static const unsigned char ag_tcv[] = {

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

David A. Holland

parents:

diff changeset

200 10, 35, 35, 35, 35, 35, 35, 35, 35, 23, 38, 23, 23, 23, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

201 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 23, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

202 35, 35, 35, 35, 46, 45, 42, 40, 35, 41, 31, 43, 34, 34, 34, 34, 34, 34,

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

David A. Holland

parents:

diff changeset

203 34, 34, 34, 34, 35, 35, 35, 39, 35, 35, 35, 47, 47, 47, 47, 47, 47, 47,

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

David A. Holland

parents:

diff changeset

204 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47,

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

David A. Holland

parents:

diff changeset

205 47, 35, 35, 35, 35, 35, 35, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47,

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

David A. Holland

parents:

diff changeset

206 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 47, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

207 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

208 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

209 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

210 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

211 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

212 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

213 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35,

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

David A. Holland

parents:

diff changeset

214 35, 35, 35, 35

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

David A. Holland

parents:

diff changeset

215 };

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

David A. Holland

parents:

diff changeset

216

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

David A. Holland

parents:

diff changeset

217 #ifndef SYNTAX_ERROR

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

David A. Holland

parents:

diff changeset

218 #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

219 (PCB).error_message, (PCB).line, (PCB).column)

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

David A. Holland

parents:

diff changeset

220 #endif

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 #ifndef FIRST_LINE

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

David A. Holland

parents:

diff changeset

223 #define FIRST_LINE 1

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

David A. Holland

parents:

diff changeset

224 #endif

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

David A. Holland

parents:

diff changeset

225

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

David A. Holland

parents:

diff changeset

226 #ifndef FIRST_COLUMN

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

David A. Holland

parents:

diff changeset

227 #define FIRST_COLUMN 1

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

David A. Holland

parents:

diff changeset

228 #endif

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 #ifndef PARSER_STACK_OVERFLOW

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

David A. Holland

parents:

diff changeset

231 #define PARSER_STACK_OVERFLOW {fprintf(stderr, \

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

David A. Holland

parents:

diff changeset

232 "\nParser stack overflow, line %d, column %d\n",\

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

David A. Holland

parents:

diff changeset

233 (PCB).line, (PCB).column);}

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

David A. Holland

parents:

diff changeset

234 #endif

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

David A. Holland

parents:

diff changeset

235

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

David A. Holland

parents:

diff changeset

236 #ifndef REDUCTION_TOKEN_ERROR

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

David A. Holland

parents:

diff changeset

237 #define REDUCTION_TOKEN_ERROR {fprintf(stderr, \

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

David A. Holland

parents:

diff changeset

238 "\nReduction token error, line %d, column %d\n", \

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

David A. Holland

parents:

diff changeset

239 (PCB).line, (PCB).column);}

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

David A. Holland

parents:

diff changeset

240 #endif

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

David A. Holland

parents:

diff changeset

241

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

David A. Holland

parents:

diff changeset

242

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

David A. Holland

parents:

diff changeset

243 #ifndef INPUT_CODE

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

David A. Holland

parents:

diff changeset

244 #define INPUT_CODE(T) (T)

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

David A. Holland

parents:

diff changeset

245 #endif

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 typedef enum

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

David A. Holland

parents:

diff changeset

248 {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

249 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

250

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

David A. Holland

parents:

diff changeset

251 static void ag_get_key_word(PCB_DECL, int ag_k) {

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

David A. Holland

parents:

diff changeset

252 int ag_save = (int) ((PCB).la_ptr - (PCB).pointer);

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

David A. Holland

parents:

diff changeset

253 const unsigned char *ag_p;

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

David A. Holland

parents:

diff changeset

254 int ag_ch;

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

David A. Holland

parents:

diff changeset

255 while (1) {

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

David A. Holland

parents:

diff changeset

256 switch (ag_key_act[ag_k]) {

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

David A. Holland

parents:

diff changeset

257 case ag_cf_end_key: {

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

David A. Holland

parents:

diff changeset

258 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

259 do {

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

David A. Holland

parents:

diff changeset

260 if ((ag_ch = *sp++) == 0) {

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

David A. Holland

parents:

diff changeset

261 int ag_k1 = ag_key_parm[ag_k];

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

David A. Holland

parents:

diff changeset

262 int ag_k2 = ag_key_pt[ag_k1];

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

David A. Holland

parents:

diff changeset

263 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

264 (PCB).token_number = (ffc-rp_token_type) ag_key_pt[ag_k1 + 1];

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

David A. Holland

parents:

diff changeset

265 return;

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

David A. Holland

parents:

diff changeset

266 }

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

David A. Holland

parents:

diff changeset

267 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);

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

David A. Holland

parents:

diff changeset

268 goto ag_fail;

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 case ag_end_key: {

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

David A. Holland

parents:

diff changeset

271 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

272 do {

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

David A. Holland

parents:

diff changeset

273 if ((ag_ch = *sp++) == 0) {

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

David A. Holland

parents:

diff changeset

274 (PCB).token_number = (ffc-rp_token_type) ag_key_parm[ag_k];

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

David A. Holland

parents:

diff changeset

275 return;

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

David A. Holland

parents:

diff changeset

276 }

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

David A. Holland

parents:

diff changeset

277 } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);

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

David A. Holland

parents:

diff changeset

278 }

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

David A. Holland

parents:

diff changeset

279 case ag_no_match_key:

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

David A. Holland

parents:

diff changeset

280 ag_fail:

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

David A. Holland

parents:

diff changeset

281 (PCB).la_ptr = (PCB).pointer + ag_save;

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

David A. Holland

parents:

diff changeset

282 return;

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

David A. Holland

parents:

diff changeset

283 case ag_cf_set_key: {

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

David A. Holland

parents:

diff changeset

284 int ag_k1 = ag_key_parm[ag_k];

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

David A. Holland

parents:

diff changeset

285 int ag_k2 = ag_key_pt[ag_k1];

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

David A. Holland

parents:

diff changeset

286 ag_k = ag_key_jmp[ag_k];

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

David A. Holland

parents:

diff changeset

287 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

288 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);

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

David A. Holland

parents:

diff changeset

289 (PCB).token_number = (ffc-rp_token_type) ag_key_pt[ag_k1+1];

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

David A. Holland

parents:

diff changeset

290 break;

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

David A. Holland

parents:

diff changeset

291 }

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

David A. Holland

parents:

diff changeset

292 case ag_set_key:

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

David A. Holland

parents:

diff changeset

293 ag_save = (int) ((PCB).la_ptr - (PCB).pointer);

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

David A. Holland

parents:

diff changeset

294 (PCB).token_number = (ffc-rp_token_type) ag_key_parm[ag_k];

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

David A. Holland

parents:

diff changeset

295 case ag_jmp_key:

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

David A. Holland

parents:

diff changeset

296 ag_k = ag_key_jmp[ag_k];

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

David A. Holland

parents:

diff changeset

297 break;

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

David A. Holland

parents:

diff changeset

298 case ag_accept_key:

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

David A. Holland

parents:

diff changeset

299 (PCB).token_number = (ffc-rp_token_type) ag_key_parm[ag_k];

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

David A. Holland

parents:

diff changeset

300 return;

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

David A. Holland

parents:

diff changeset

301 case ag_cf_accept_key: {

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

David A. Holland

parents:

diff changeset

302 int ag_k1 = ag_key_parm[ag_k];

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

David A. Holland

parents:

diff changeset

303 int ag_k2 = ag_key_pt[ag_k1];

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

David A. Holland

parents:

diff changeset

304 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

305 (PCB).la_ptr = (PCB).pointer + ag_save;

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

David A. Holland

parents:

diff changeset

306 else (PCB).token_number = (ffc-rp_token_type) ag_key_pt[ag_k1+1];

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

David A. Holland

parents:

diff changeset

307 return;

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

David A. Holland

parents:

diff changeset

308 }

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

David A. Holland

parents:

diff changeset

309 }

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

David A. Holland

parents:

diff changeset

310 ag_ch = CONVERT_CASE(*(PCB).la_ptr++);

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

David A. Holland

parents:

diff changeset

311 ag_p = &ag_key_ch[ag_k];

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

David A. Holland

parents:

diff changeset

312 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

313 if (ag_ch > 255 || *ag_p != ag_ch) {

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

David A. Holland

parents:

diff changeset

314 (PCB).la_ptr = (PCB).pointer + ag_save;

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

David A. Holland

parents:

diff changeset

315 return;

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

David A. Holland

parents:

diff changeset

316 }

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

David A. Holland

parents:

diff changeset

317 ag_k = (int) (ag_p - ag_key_ch);

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 }

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

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

David A. Holland

parents:

diff changeset

322 #ifndef AG_NEWLINE

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

David A. Holland

parents:

diff changeset

323 #define AG_NEWLINE 10

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

David A. Holland

parents:

diff changeset

324 #endif

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

David A. Holland

parents:

diff changeset

325

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

David A. Holland

parents:

diff changeset

326 #ifndef AG_RETURN

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

David A. Holland

parents:

diff changeset

327 #define AG_RETURN 13

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

David A. Holland

parents:

diff changeset

328 #endif

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

David A. Holland

parents:

diff changeset

329

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

David A. Holland

parents:

diff changeset

330 #ifndef AG_FORMFEED

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

David A. Holland

parents:

diff changeset

331 #define AG_FORMFEED 12

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

David A. Holland

parents:

diff changeset

332 #endif

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

David A. Holland

parents:

diff changeset

333

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

David A. Holland

parents:

diff changeset

334 #ifndef AG_TABCHAR

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

David A. Holland

parents:

diff changeset

335 #define AG_TABCHAR 9

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

David A. Holland

parents:

diff changeset

336 #endif

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 static void ag_track(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

339 int ag_k = (int) ((PCB).la_ptr - (PCB).pointer);

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

David A. Holland

parents:

diff changeset

340 while (ag_k--) {

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

David A. Holland

parents:

diff changeset

341 switch (*(PCB).pointer++) {

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

David A. Holland

parents:

diff changeset

342 case AG_NEWLINE:

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

David A. Holland

parents:

diff changeset

343 (PCB).column = 1, (PCB).line++;

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

David A. Holland

parents:

diff changeset

344 case AG_RETURN:

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

David A. Holland

parents:

diff changeset

345 case AG_FORMFEED:

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

David A. Holland

parents:

diff changeset

346 break;

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

David A. Holland

parents:

diff changeset

347 case AG_TABCHAR:

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

David A. Holland

parents:

diff changeset

348 (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING);

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

David A. Holland

parents:

diff changeset

349 break;

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

David A. Holland

parents:

diff changeset

350 default:

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

David A. Holland

parents:

diff changeset

351 (PCB).column++;

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

David A. Holland

parents:

diff changeset

352 }

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

David A. Holland

parents:

diff changeset

353 }

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

David A. Holland

parents:

diff changeset

354 }

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_prot(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

358 int ag_k;

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

David A. Holland

parents:

diff changeset

359 ag_k = 128 - ++(PCB).btsx;

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

David A. Holland

parents:

diff changeset

360 if (ag_k <= (PCB).ssx) {

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

David A. Holland

parents:

diff changeset

361 (PCB).exit_flag = AG_STACK_ERROR_CODE;

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

David A. Holland

parents:

diff changeset

362 PARSER_STACK_OVERFLOW;

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

David A. Holland

parents:

diff changeset

363 return;

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

David A. Holland

parents:

diff changeset

364 }

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

David A. Holland

parents:

diff changeset

365 (PCB).bts[(PCB).btsx] = (PCB).sn;

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

David A. Holland

parents:

diff changeset

366 (PCB).bts[ag_k] = (PCB).ssx;

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

David A. Holland

parents:

diff changeset

367 (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx];

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

David A. Holland

parents:

diff changeset

368 (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx];

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

David A. Holland

parents:

diff changeset

369 }

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

David A. Holland

parents:

diff changeset

370

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

David A. Holland

parents:

diff changeset

371 static void ag_undo(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

372 if ((PCB).drt == -1) return;

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

David A. Holland

parents:

diff changeset

373 while ((PCB).btsx) {

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

David A. Holland

parents:

diff changeset

374 int ag_k = 128 - (PCB).btsx;

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

David A. Holland

parents:

diff changeset

375 (PCB).sn = (PCB).bts[(PCB).btsx--];

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

David A. Holland

parents:

diff changeset

376 (PCB).ssx = (PCB).bts[ag_k];

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

David A. Holland

parents:

diff changeset

377 (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k];

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

David A. Holland

parents:

diff changeset

378 (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k];

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 (PCB).token_number = (ffc-rp_token_type) (PCB).drt;

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

David A. Holland

parents:

diff changeset

381 (PCB).ssx = (PCB).dssx;

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

David A. Holland

parents:

diff changeset

382 (PCB).sn = (PCB).dsn;

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

David A. Holland

parents:

diff changeset

383 (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

384 }

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 const unsigned char ag_tstt[] = {

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

David A. Holland

parents:

diff changeset

388 47,46,41,38,34,31,24,23,10,0,1,36,37,

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

David A. Holland

parents:

diff changeset

389 47,46,45,43,42,41,40,39,38,35,34,31,28,23,0,26,27,

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

David A. Holland

parents:

diff changeset

390 24,23,0,1,

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

David A. Holland

parents:

diff changeset

391 47,46,41,38,34,31,14,10,0,2,3,4,5,7,8,9,11,12,15,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

392 47,46,45,43,42,41,40,39,38,35,34,31,23,0,

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

David A. Holland

parents:

diff changeset

393 28,0,

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

David A. Holland

parents:

diff changeset

394 34,0,32,

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

David A. Holland

parents:

diff changeset

395 45,43,42,41,40,38,34,31,24,23,0,33,

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

David A. Holland

parents:

diff changeset

396 47,46,41,34,31,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

397 47,46,41,34,31,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

398 45,43,42,41,40,38,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

399 47,46,41,34,31,0,2,12,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

400 47,46,41,34,31,0,2,11,12,15,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

401 45,43,42,41,40,39,38,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

402 43,42,0,19,20,

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

David A. Holland

parents:

diff changeset

403 43,42,41,40,39,38,0,13,

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

David A. Holland

parents:

diff changeset

404 41,40,38,0,16,17,

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

David A. Holland

parents:

diff changeset

405 38,0,6,

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

David A. Holland

parents:

diff changeset

406 47,46,41,38,34,31,14,10,0,2,4,5,7,11,12,15,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

407 10,0,

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

David A. Holland

parents:

diff changeset

408 45,43,42,41,40,38,34,24,23,0,32,

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

David A. Holland

parents:

diff changeset

409 34,0,32,

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

David A. Holland

parents:

diff changeset

410 45,41,40,0,16,17,22,

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

David A. Holland

parents:

diff changeset

411 47,46,41,34,31,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

412 47,46,41,34,31,0,2,12,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

413 47,46,41,34,31,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

414 47,46,41,34,31,0,2,12,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

415 47,46,41,34,31,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

416 47,46,41,34,31,0,2,11,12,15,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

417 47,46,41,34,31,0,2,12,15,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

418 47,46,41,34,31,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

419 47,46,41,34,31,0,2,12,15,17,18,21,29,30,44,

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

David A. Holland

parents:

diff changeset

420 47,46,41,38,34,31,24,23,10,0,1,36,37,

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

David A. Holland

parents:

diff changeset

421 45,43,42,41,40,38,24,23,0,1,36,37,

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

David A. Holland

parents:

diff changeset

422 41,40,38,0,16,17,

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

David A. Holland

parents:

diff changeset

423 45,43,42,41,40,38,0,19,20,

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

David A. Holland

parents:

diff changeset

424 45,43,42,41,40,38,0,19,20,

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

David A. Holland

parents:

diff changeset

425

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

David A. Holland

parents:

diff changeset

426 };

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 unsigned const char ag_astt[401] = {

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

David A. Holland

parents:

diff changeset

430 8,8,8,8,8,8,1,1,8,7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,8,1,7,1,1,1,9,5,3,1,1,1,

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

David A. Holland

parents:

diff changeset

431 8,2,1,1,8,7,1,0,1,1,1,1,1,1,1,1,1,1,1,2,1,1,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,

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

David A. Holland

parents:

diff changeset

432 7,1,7,2,5,5,5,5,5,5,10,1,5,5,7,3,5,5,5,5,5,1,1,7,1,1,3,5,5,5,5,5,1,1,7,1,1,

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

David A. Holland

parents:

diff changeset

433 3,5,5,5,5,5,5,1,1,7,1,1,3,1,1,1,2,1,7,2,2,1,2,1,2,1,1,1,1,1,2,1,7,1,1,2,1,

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

David A. Holland

parents:

diff changeset

434 1,1,1,2,1,1,5,5,5,5,5,5,5,1,1,7,1,1,3,1,1,5,1,1,4,4,4,4,1,4,7,1,1,1,4,7,1,

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

David A. Holland

parents:

diff changeset

435 1,1,7,3,1,1,1,8,2,1,1,5,7,1,1,1,3,1,1,1,1,1,1,2,1,1,3,7,4,4,4,4,4,4,1,4,4,

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

David A. Holland

parents:

diff changeset

436 7,2,1,5,2,1,1,1,7,1,1,2,5,5,5,5,5,1,1,7,1,1,3,1,1,1,2,1,7,2,2,1,2,1,2,1,1,

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

David A. Holland

parents:

diff changeset

437 5,5,5,5,5,1,1,7,1,1,3,1,1,1,2,1,7,2,2,1,2,1,2,1,1,5,5,5,5,5,1,1,7,1,1,3,1,

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

David A. Holland

parents:

diff changeset

438 1,1,2,1,7,1,1,2,1,1,1,1,2,1,1,1,1,1,2,1,7,1,2,1,1,1,1,2,1,1,5,5,5,5,5,1,1,

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

David A. Holland

parents:

diff changeset

439 7,1,1,3,1,1,1,2,1,7,1,2,1,1,1,1,2,1,1,5,5,5,5,5,5,1,1,5,7,1,1,3,5,5,5,5,5,

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

David A. Holland

parents:

diff changeset

440 5,1,1,7,1,1,3,1,1,4,7,1,1,4,1,1,4,4,4,7,1,1,4,1,1,4,4,4,7,1,1

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

David A. Holland

parents:

diff changeset

441 };

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

David A. Holland

parents:

diff changeset

442

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

David A. Holland

parents:

diff changeset

443

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

David A. Holland

parents:

diff changeset

444 static const unsigned char ag_pstt[] = {

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

David A. Holland

parents:

diff changeset

445 3,3,3,3,3,3,1,2,3,0,2,2,3,

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

David A. Holland

parents:

diff changeset

446 4,4,4,4,4,4,4,4,4,4,4,4,5,4,1,4,5,

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

David A. Holland

parents:

diff changeset

447 1,52,54,52,

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

David A. Holland

parents:

diff changeset

448 13,9,8,17,34,6,17,19,3,14,0,17,17,18,18,19,16,15,14,11,14,12,28,7,10,

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

David A. Holland

parents:

diff changeset

449 24,24,24,24,24,24,24,24,24,24,24,24,24,26,

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

David A. Holland

parents:

diff changeset

450 27,5,

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

David A. Holland

parents:

diff changeset

451 20,6,33,

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

David A. Holland

parents:

diff changeset

452 30,30,30,30,30,30,35,21,30,30,7,32,

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

David A. Holland

parents:

diff changeset

453 53,53,53,53,53,1,2,8,2,2,58,

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

David A. Holland

parents:

diff changeset

454 53,53,53,53,53,1,2,9,2,2,63,

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

David A. Holland

parents:

diff changeset

455 53,53,53,53,53,53,1,2,10,2,2,61,

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

David A. Holland

parents:

diff changeset

456 13,9,8,34,6,11,21,18,11,21,12,28,7,10,

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

David A. Holland

parents:

diff changeset

457 13,9,8,34,6,12,14,22,18,14,11,14,12,28,7,10,

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

David A. Holland

parents:

diff changeset

458 53,53,53,53,53,53,53,1,2,13,2,2,64,

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

David A. Holland

parents:

diff changeset

459 23,25,12,26,24,

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

David A. Holland

parents:

diff changeset

460 18,18,18,18,27,18,15,28,

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

David A. Holland

parents:

diff changeset

461 8,30,9,16,31,29,

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

David A. Holland

parents:

diff changeset

462 32,17,3,

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

David A. Holland

parents:

diff changeset

463 13,9,8,17,34,6,17,7,18,14,17,17,5,16,15,14,11,14,12,28,7,10,

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

David A. Holland

parents:

diff changeset

464 8,19,

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

David A. Holland

parents:

diff changeset

465 36,36,36,36,36,36,20,36,36,20,37,

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

David A. Holland

parents:

diff changeset

466 20,31,29,

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

David A. Holland

parents:

diff changeset

467 33,8,30,22,31,29,20,

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

David A. Holland

parents:

diff changeset

468 53,53,53,53,53,1,2,23,2,2,60,

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

David A. Holland

parents:

diff changeset

469 13,9,8,34,6,24,17,18,11,17,12,28,7,10,

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

David A. Holland

parents:

diff changeset

470 53,53,53,53,53,1,2,25,2,2,59,

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

David A. Holland

parents:

diff changeset

471 13,9,8,34,6,26,16,18,11,16,12,28,7,10,

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

David A. Holland

parents:

diff changeset

472 53,53,53,53,53,1,2,27,2,2,56,

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

David A. Holland

parents:

diff changeset

473 13,9,8,34,6,28,14,34,18,14,11,14,12,28,7,10,

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

David A. Holland

parents:

diff changeset

474 13,9,8,34,6,29,35,18,35,11,35,12,28,7,10,

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

David A. Holland

parents:

diff changeset

475 53,53,53,53,53,1,2,30,2,2,57,

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

David A. Holland

parents:

diff changeset

476 13,9,8,34,6,31,36,18,36,11,36,12,28,7,10,

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

David A. Holland

parents:

diff changeset

477 53,53,53,53,53,53,1,2,53,32,2,2,55,

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

David A. Holland

parents:

diff changeset

478 53,53,53,53,53,53,1,2,33,2,2,62,

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

David A. Holland

parents:

diff changeset

479 8,30,10,34,31,29,

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

David A. Holland

parents:

diff changeset

480 14,23,25,14,14,14,35,26,24,

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

David A. Holland

parents:

diff changeset

481 13,23,25,13,13,13,36,26,24,

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 };

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

David A. Holland

parents:

diff changeset

484

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

David A. Holland

parents:

diff changeset

485

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

David A. Holland

parents:

diff changeset

486 static const unsigned short ag_sbt[] = {

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

David A. Holland

parents:

diff changeset

487 0, 13, 30, 34, 59, 73, 75, 78, 90, 101, 112, 124, 138, 154,

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

David A. Holland

parents:

diff changeset

488 167, 172, 180, 186, 189, 211, 213, 224, 227, 234, 245, 259, 270, 284,

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

David A. Holland

parents:

diff changeset

489 295, 311, 326, 337, 352, 365, 377, 383, 392, 401

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

David A. Holland

parents:

diff changeset

490 };

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

David A. Holland

parents:

diff changeset

491

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

David A. Holland

parents:

diff changeset

492

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

David A. Holland

parents:

diff changeset

493 static const unsigned short ag_sbe[] = {

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

David A. Holland

parents:

diff changeset

494 9, 27, 32, 42, 72, 74, 76, 88, 97, 108, 120, 129, 143, 163,

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

David A. Holland

parents:

diff changeset

495 169, 178, 183, 187, 197, 212, 222, 225, 230, 241, 250, 266, 275, 291,

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

David A. Holland

parents:

diff changeset

496 300, 316, 333, 342, 361, 373, 380, 389, 398, 401

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

David A. Holland

parents:

diff changeset

497 };

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

David A. Holland

parents:

diff changeset

498

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 static const unsigned char ag_fl[] = {

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

David A. Holland

parents:

diff changeset

501 2,0,1,2,1,2,0,1,2,1,3,1,1,3,3,1,3,3,1,1,3,2,1,1,2,0,1,3,1,3,0,1,2,2,1,

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

David A. Holland

parents:

diff changeset

502 2,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,1,2,2,2,2,2,2,2,2,2,2

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

David A. Holland

parents:

diff changeset

503 };

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

David A. Holland

parents:

diff changeset

504

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

David A. Holland

parents:

diff changeset

505 static const unsigned char ag_ptt[] = {

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

David A. Holland

parents:

diff changeset

506 0, 5, 5, 7, 8, 8, 9, 9, 3, 4, 4, 4, 11, 11, 11, 15, 15, 15,

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

David A. Holland

parents:

diff changeset

507 18, 18, 18, 18, 1, 26, 26, 27, 27, 1, 12, 44, 33, 33, 44, 44, 30, 30,

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

David A. Holland

parents:

diff changeset

508 32, 32, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 36, 36, 37,

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

David A. Holland

parents:

diff changeset

509 37, 6, 13, 16, 17, 19, 20, 2, 22, 21, 29

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

David A. Holland

parents:

diff changeset

510 };

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 void ag_ra(PCB_DECL)

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

David A. Holland

parents:

diff changeset

514 {

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

David A. Holland

parents:

diff changeset

515 switch(ag_rpx[(PCB).ag_ap]) {

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

David A. Holland

parents:

diff changeset

516 case 1: ag_rp_1(PCB_POINTER, V(0,(double *))); break;

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

David A. Holland

parents:

diff changeset

517 case 2: ag_rp_2(PCB_POINTER, V(0,(int *)), V(2,(double *))); break;

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

David A. Holland

parents:

diff changeset

518 case 3: V(0,(double *)) = ag_rp_3(PCB_POINTER, V(0,(double *)), V(2,(double *))); break;

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

David A. Holland

parents:

diff changeset

519 case 4: V(0,(double *)) = ag_rp_4(PCB_POINTER, V(0,(double *)), V(2,(double *))); break;

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

David A. Holland

parents:

diff changeset

520 case 5: V(0,(double *)) = ag_rp_5(PCB_POINTER, V(0,(double *)), V(2,(double *))); break;

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

David A. Holland

parents:

diff changeset

521 case 6: V(0,(double *)) = ag_rp_6(PCB_POINTER, V(0,(double *)), V(2,(double *))); break;

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

David A. Holland

parents:

diff changeset

522 case 7: V(0,(double *)) = ag_rp_7(PCB_POINTER, V(0,(int *))); break;

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

David A. Holland

parents:

diff changeset

523 case 8: V(0,(double *)) = ag_rp_8(PCB_POINTER, V(1,(double *))); break;

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

David A. Holland

parents:

diff changeset

524 case 9: V(0,(double *)) = ag_rp_9(PCB_POINTER, V(1,(double *))); break;

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

David A. Holland

parents:

diff changeset

525 case 10: V(0,(int *)) = ag_rp_10(PCB_POINTER, V(0,(int *))); break;

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

David A. Holland

parents:

diff changeset

526 case 11: V(0,(double *)) = ag_rp_11(PCB_POINTER, V(0,(double *)), V(2,(double *))); break;

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

David A. Holland

parents:

diff changeset

527 case 12: V(0,(double *)) = ag_rp_12(PCB_POINTER, V(1,(double *))); break;

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

David A. Holland

parents:

diff changeset

528 case 13: V(0,(double *)) = ag_rp_13(PCB_POINTER, V(0,(int *))); break;

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

David A. Holland

parents:

diff changeset

529 case 14: V(0,(double *)) = ag_rp_14(PCB_POINTER, V(0,(double *)), V(1,(int *))); break;

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

David A. Holland

parents:

diff changeset

530 case 15: V(0,(double *)) = ag_rp_15(PCB_POINTER, V(0,(int *))); break;

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

David A. Holland

parents:

diff changeset

531 case 16: V(0,(double *)) = ag_rp_16(PCB_POINTER, V(0,(int *)), V(1,(double *))); break;

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

David A. Holland

parents:

diff changeset

532 }

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

David A. Holland

parents:

diff changeset

533 (PCB).la_ptr = (PCB).pointer;

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

David A. Holland

parents:

diff changeset

534 }

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 #define TOKEN_NAMES ffc-rp_token_names

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

David A. Holland

parents:

diff changeset

537 const char *const ffc-rp_token_names[48] = {

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

David A. Holland

parents:

diff changeset

538 "calculator",

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

David A. Holland

parents:

diff changeset

539 "white space",

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

David A. Holland

parents:

diff changeset

540 "real",

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

David A. Holland

parents:

diff changeset

541 "calculator",

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

David A. Holland

parents:

diff changeset

542 "calculation",

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

David A. Holland

parents:

diff changeset

543 "",

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

David A. Holland

parents:

diff changeset

544 "'\\n'",

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

David A. Holland

parents:

diff changeset

545 "",

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

David A. Holland

parents:

diff changeset

546 "",

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 "eof",

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

David A. Holland

parents:

diff changeset

549 "expression",

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

David A. Holland

parents:

diff changeset

550 "name",

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

David A. Holland

parents:

diff changeset

551 "'='",

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

David A. Holland

parents:

diff changeset

552 "error",

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

David A. Holland

parents:

diff changeset

553 "term",

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 "'-'",

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

David A. Holland

parents:

diff changeset

556 "factor",

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

David A. Holland

parents:

diff changeset

557 "'*'",

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

David A. Holland

parents:

diff changeset

558 "'/'",

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 "",

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

David A. Holland

parents:

diff changeset

562 "\"/*\"",

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

David A. Holland

parents:

diff changeset

563 "",

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

David A. Holland

parents:

diff changeset

564 "",

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 "",

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

David A. Holland

parents:

diff changeset

568 "integer part",

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

David A. Holland

parents:

diff changeset

569 "'.'",

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

David A. Holland

parents:

diff changeset

570 "fraction part",

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 "digit",

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

David A. Holland

parents:

diff changeset

573 "",

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

David A. Holland

parents:

diff changeset

574 "",

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

David A. Holland

parents:

diff changeset

575 "",

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

David A. Holland

parents:

diff changeset

576 "'\\n'",

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 "'-'",

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

David A. Holland

parents:

diff changeset

580 "'*'",

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

David A. Holland

parents:

diff changeset

581 "'/'",

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

David A. Holland

parents:

diff changeset

582 "real",

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 "",

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

David A. Holland

parents:

diff changeset

586

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

David A. Holland

parents:

diff changeset

587 };

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

David A. Holland

parents:

diff changeset

588

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

David A. Holland

parents:

diff changeset

589 #ifndef MISSING_FORMAT

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

David A. Holland

parents:

diff changeset

590 #define MISSING_FORMAT "Missing %s"

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

David A. Holland

parents:

diff changeset

591 #endif

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

David A. Holland

parents:

diff changeset

592 #ifndef UNEXPECTED_FORMAT

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

David A. Holland

parents:

diff changeset

593 #define UNEXPECTED_FORMAT "Unexpected %s"

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

David A. Holland

parents:

diff changeset

594 #endif

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

David A. Holland

parents:

diff changeset

595 #ifndef UNNAMED_TOKEN

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

David A. Holland

parents:

diff changeset

596 #define UNNAMED_TOKEN "input"

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

David A. Holland

parents:

diff changeset

597 #endif

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

David A. Holland

parents:

diff changeset

598

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

David A. Holland

parents:

diff changeset

599

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

David A. Holland

parents:

diff changeset

600 static void ag_diagnose(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

601 int ag_snd = (PCB).sn;

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

David A. Holland

parents:

diff changeset

602 int ag_k = ag_sbt[ag_snd];

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

David A. Holland

parents:

diff changeset

603

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

David A. Holland

parents:

diff changeset

604 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

605 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

606 }

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

David A. Holland

parents:

diff changeset

607 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

608 && (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

609 && *TOKEN_NAMES[ag_tstt[ag_k]]) {

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

David A. Holland

parents:

diff changeset

610 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

611 }

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

David A. Holland

parents:

diff changeset

612 else if ((PCB).token_number && *TOKEN_NAMES[(PCB).token_number]) {

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

David A. Holland

parents:

diff changeset

613 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

614 }

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

David A. Holland

parents:

diff changeset

615 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

616 char buf[20];

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

David A. Holland

parents:

diff changeset

617 sprintf(buf, "\'%c\'", (char) INPUT_CODE((*(PCB).pointer)));

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

David A. Holland

parents:

diff changeset

618 sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf);

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 else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN);

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

David A. Holland

parents:

diff changeset

621 (PCB).error_message = (PCB).ag_msg;

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

David A. Holland

parents:

diff changeset

622

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

David A. Holland

parents:

diff changeset

623

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

David A. Holland

parents:

diff changeset

624 }

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

David A. Holland

parents:

diff changeset

625 static int ag_action_1_r_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

626 static int ag_action_2_r_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

627 static int ag_action_3_r_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

628 static int ag_action_4_r_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

629 static int ag_action_1_s_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

630 static int ag_action_3_s_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

631 static int ag_action_1_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

632 static int ag_action_2_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

633 static int ag_action_3_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

634 static int ag_action_4_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

635 static int ag_action_5_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

636 static int ag_action_6_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

637 static int ag_action_7_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

638 static int ag_action_8_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

639 static int ag_action_9_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

640 static int ag_action_10_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

641 static int ag_action_11_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

642 static int ag_action_8_proc(PCB_DECL);

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 int (*const ag_r_procs_scan[])(PCB_DECL) = {

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

David A. Holland

parents:

diff changeset

646 ag_action_1_r_proc,

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

David A. Holland

parents:

diff changeset

647 ag_action_2_r_proc,

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

David A. Holland

parents:

diff changeset

648 ag_action_3_r_proc,

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

David A. Holland

parents:

diff changeset

649 ag_action_4_r_proc

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

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

David A. Holland

parents:

diff changeset

652 static int (*const ag_s_procs_scan[])(PCB_DECL) = {

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

David A. Holland

parents:

diff changeset

653 ag_action_1_s_proc,

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

David A. Holland

parents:

diff changeset

654 ag_action_2_r_proc,

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

David A. Holland

parents:

diff changeset

655 ag_action_3_s_proc,

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

David A. Holland

parents:

diff changeset

656 ag_action_4_r_proc

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

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

David A. Holland

parents:

diff changeset

659 static int (*const ag_gt_procs_scan[])(PCB_DECL) = {

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

David A. Holland

parents:

diff changeset

660 ag_action_1_proc,

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

David A. Holland

parents:

diff changeset

661 ag_action_2_proc,

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

David A. Holland

parents:

diff changeset

662 ag_action_3_proc,

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

David A. Holland

parents:

diff changeset

663 ag_action_4_proc,

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

David A. Holland

parents:

diff changeset

664 ag_action_5_proc,

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

David A. Holland

parents:

diff changeset

665 ag_action_6_proc,

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

David A. Holland

parents:

diff changeset

666 ag_action_7_proc,

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

David A. Holland

parents:

diff changeset

667 ag_action_8_proc,

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

David A. Holland

parents:

diff changeset

668 ag_action_9_proc,

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

David A. Holland

parents:

diff changeset

669 ag_action_10_proc,

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

David A. Holland

parents:

diff changeset

670 ag_action_11_proc,

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

David A. Holland

parents:

diff changeset

671 ag_action_8_proc

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

David A. Holland

parents:

diff changeset

672 };

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

David A. Holland

parents:

diff changeset

673

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

David A. Holland

parents:

diff changeset

674

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

David A. Holland

parents:

diff changeset

675 static int ag_action_1_er_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

676 static int ag_action_2_er_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

677 static int ag_action_3_er_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

678 static int ag_action_4_er_proc(PCB_DECL);

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

David A. Holland

parents:

diff changeset

679

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

David A. Holland

parents:

diff changeset

680 static int (*const ag_er_procs_scan[])(PCB_DECL) = {

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

David A. Holland

parents:

diff changeset

681 ag_action_1_er_proc,

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

David A. Holland

parents:

diff changeset

682 ag_action_2_er_proc,

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

David A. Holland

parents:

diff changeset

683 ag_action_3_er_proc,

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

David A. Holland

parents:

diff changeset

684 ag_action_4_er_proc

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

David A. Holland

parents:

diff changeset

685 };

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

David A. Holland

parents:

diff changeset

686

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

David A. Holland

parents:

diff changeset

687

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

David A. Holland

parents:

diff changeset

688 static void ag_error_resynch(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

689 int ag_k;

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

David A. Holland

parents:

diff changeset

690 int ag_ssx = (PCB).ssx;

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

David A. Holland

parents:

diff changeset

691

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

David A. Holland

parents:

diff changeset

692 ag_diagnose(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

693 SYNTAX_ERROR;

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

David A. Holland

parents:

diff changeset

694 if ((PCB).exit_flag != AG_RUNNING_CODE) return;

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

David A. Holland

parents:

diff changeset

695 while (1) {

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

David A. Holland

parents:

diff changeset

696 ag_k = ag_sbt[(PCB).sn];

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

David A. Holland

parents:

diff changeset

697 while (ag_tstt[ag_k] != 14 && ag_tstt[ag_k]) ag_k++;

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

David A. Holland

parents:

diff changeset

698 if (ag_tstt[ag_k] || (PCB).ssx == 0) break;

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

David A. Holland

parents:

diff changeset

699 (PCB).sn = (PCB).ss[--(PCB).ssx];

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 if (ag_tstt[ag_k] == 0) {

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

David A. Holland

parents:

diff changeset

702 (PCB).sn = PCB.ss[(PCB).ssx = ag_ssx];

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

David A. Holland

parents:

diff changeset

703 (PCB).exit_flag = AG_SYNTAX_ERROR_CODE;

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

David A. Holland

parents:

diff changeset

704 return;

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

David A. Holland

parents:

diff changeset

705 }

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

David A. Holland

parents:

diff changeset

706 ag_k = ag_sbt[(PCB).sn];

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

David A. Holland

parents:

diff changeset

707 while (ag_tstt[ag_k] != 14 && ag_tstt[ag_k]) ag_k++;

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

David A. Holland

parents:

diff changeset

708 (PCB).ag_ap = ag_pstt[ag_k];

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

David A. Holland

parents:

diff changeset

709 (ag_er_procs_scan[ag_astt[ag_k]])(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

710 while (1) {

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

David A. Holland

parents:

diff changeset

711 ag_k = ag_sbt[(PCB).sn];

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

David A. Holland

parents:

diff changeset

712 while (ag_tstt[ag_k] != (unsigned char) (PCB).token_number && ag_tstt[ag_k])

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

David A. Holland

parents:

diff changeset

713 ag_k++;

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

David A. Holland

parents:

diff changeset

714 if (ag_tstt[ag_k] && ag_astt[ag_k] != ag_action_10) break;

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

David A. Holland

parents:

diff changeset

715 if ((PCB).token_number == 10)

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

David A. Holland

parents:

diff changeset

716 {(PCB).exit_flag = AG_SYNTAX_ERROR_CODE; return;}

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

David A. Holland

parents:

diff changeset

717 {(PCB).la_ptr = (PCB).pointer + 1; ag_track(PCB_POINTER);}

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

David A. Holland

parents:

diff changeset

718 (PCB).token_number = (ffc-rp_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

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

David A. Holland

parents:

diff changeset

719 (PCB).la_ptr++;

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

David A. Holland

parents:

diff changeset

720 if (ag_key_index[(PCB).sn]) {

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

David A. Holland

parents:

diff changeset

721 unsigned ag_k = ag_key_index[(PCB).sn];

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

David A. Holland

parents:

diff changeset

722 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

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

David A. Holland

parents:

diff changeset

723 if (ag_ch <= 255) {

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

David A. Holland

parents:

diff changeset

724 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

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

David A. Holland

parents:

diff changeset

725 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word((PCB_TYPE *)PCB_POINTER, ag_k);

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

David A. Holland

parents:

diff changeset

726 }

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

David A. Holland

parents:

diff changeset

727 }

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

David A. Holland

parents:

diff changeset

728 }

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

David A. Holland

parents:

diff changeset

729 (PCB).la_ptr = (PCB).pointer;

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

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

David A. Holland

parents:

diff changeset

733 static int ag_action_10_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

734 int ag_t = (PCB).token_number;

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

David A. Holland

parents:

diff changeset

735 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

736 do {

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

David A. Holland

parents:

diff changeset

737 ag_track(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

738 (PCB).token_number = (ffc-rp_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

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

David A. Holland

parents:

diff changeset

739 (PCB).la_ptr++;

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

David A. Holland

parents:

diff changeset

740 if (ag_key_index[(PCB).sn]) {

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

David A. Holland

parents:

diff changeset

741 unsigned ag_k = ag_key_index[(PCB).sn];

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

David A. Holland

parents:

diff changeset

742 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

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

David A. Holland

parents:

diff changeset

743 if (ag_ch <= 255) {

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

David A. Holland

parents:

diff changeset

744 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

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

David A. Holland

parents:

diff changeset

745 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word((PCB_TYPE *)PCB_POINTER, ag_k);

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

David A. Holland

parents:

diff changeset

746 }

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

David A. Holland

parents:

diff changeset

747 }

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

David A. Holland

parents:

diff changeset

748 } while ((PCB).token_number == (ffc-rp_token_type) ag_t);

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

David A. Holland

parents:

diff changeset

749 (PCB).la_ptr = (PCB).pointer;

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

David A. Holland

parents:

diff changeset

750 return 1;

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

David A. Holland

parents:

diff changeset

751 }

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

David A. Holland

parents:

diff changeset

752

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

David A. Holland

parents:

diff changeset

753 static int ag_action_11_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

754 int ag_t = (PCB).token_number;

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

David A. Holland

parents:

diff changeset

755

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

David A. Holland

parents:

diff changeset

756 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

757 do {

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

David A. Holland

parents:

diff changeset

758 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;

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

David A. Holland

parents:

diff changeset

759 (PCB).ssx--;

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

David A. Holland

parents:

diff changeset

760 ag_track(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

761 ag_ra(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

762 if ((PCB).exit_flag != AG_RUNNING_CODE) return 0;

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

David A. Holland

parents:

diff changeset

763 (PCB).ssx++;

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

David A. Holland

parents:

diff changeset

764 (PCB).token_number = (ffc-rp_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

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

David A. Holland

parents:

diff changeset

765 (PCB).la_ptr++;

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

David A. Holland

parents:

diff changeset

766 if (ag_key_index[(PCB).sn]) {

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

David A. Holland

parents:

diff changeset

767 unsigned ag_k = ag_key_index[(PCB).sn];

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

David A. Holland

parents:

diff changeset

768 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

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

David A. Holland

parents:

diff changeset

769 if (ag_ch <= 255) {

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

David A. Holland

parents:

diff changeset

770 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

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

David A. Holland

parents:

diff changeset

771 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word((PCB_TYPE *)PCB_POINTER, ag_k);

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

David A. Holland

parents:

diff changeset

772 }

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

David A. Holland

parents:

diff changeset

773 }

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 while ((PCB).token_number == (ffc-rp_token_type) ag_t);

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

David A. Holland

parents:

diff changeset

776 (PCB).la_ptr = (PCB).pointer;

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

David A. Holland

parents:

diff changeset

777 return 1;

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

David A. Holland

parents:

diff changeset

778 }

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

David A. Holland

parents:

diff changeset

779

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

David A. Holland

parents:

diff changeset

780 static int ag_action_3_r_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

781 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

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

David A. Holland

parents:

diff changeset

782 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

783 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

784 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

785 ag_ra(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

786 return (PCB).exit_flag == AG_RUNNING_CODE;

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

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

David A. Holland

parents:

diff changeset

789 static int ag_action_3_s_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

790 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

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

David A. Holland

parents:

diff changeset

791 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

792 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

793 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

794 ag_ra(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

795 return (PCB).exit_flag == AG_RUNNING_CODE;

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

David A. Holland

parents:

diff changeset

796 }

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

David A. Holland

parents:

diff changeset

797

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

David A. Holland

parents:

diff changeset

798 static int ag_action_4_r_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

799 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

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

David A. Holland

parents:

diff changeset

800 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

801 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

802 return 1;

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

David A. Holland

parents:

diff changeset

803 }

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

David A. Holland

parents:

diff changeset

804

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

David A. Holland

parents:

diff changeset

805 static int ag_action_2_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

806 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

807 if ((PCB).ssx >= 128) {

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

David A. Holland

parents:

diff changeset

808 (PCB).exit_flag = AG_STACK_ERROR_CODE;

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

David A. Holland

parents:

diff changeset

809 PARSER_STACK_OVERFLOW;

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

David A. Holland

parents:

diff changeset

810 }

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

David A. Holland

parents:

diff changeset

811 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;

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

David A. Holland

parents:

diff changeset

812 (PCB).ss[(PCB).ssx] = (PCB).sn;

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

David A. Holland

parents:

diff changeset

813 (PCB).ssx++;

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

David A. Holland

parents:

diff changeset

814 (PCB).sn = (PCB).ag_ap;

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

David A. Holland

parents:

diff changeset

815 ag_track(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

816 return 0;

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

David A. Holland

parents:

diff changeset

817 }

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

David A. Holland

parents:

diff changeset

818

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

David A. Holland

parents:

diff changeset

819 static int ag_action_9_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

820 if ((PCB).drt == -1) {

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

David A. Holland

parents:

diff changeset

821 (PCB).drt=(PCB).token_number;

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

David A. Holland

parents:

diff changeset

822 (PCB).dssx=(PCB).ssx;

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

David A. Holland

parents:

diff changeset

823 (PCB).dsn=(PCB).sn;

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

David A. Holland

parents:

diff changeset

824 }

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

David A. Holland

parents:

diff changeset

825 ag_prot(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

826 (PCB).vs[(PCB).ssx] = ag_null_value;

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

David A. Holland

parents:

diff changeset

827 (PCB).ss[(PCB).ssx] = (PCB).sn;

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

David A. Holland

parents:

diff changeset

828 (PCB).ssx++;

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

David A. Holland

parents:

diff changeset

829 (PCB).sn = (PCB).ag_ap;

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

David A. Holland

parents:

diff changeset

830 (PCB).la_ptr = (PCB).pointer;

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

David A. Holland

parents:

diff changeset

831 return (PCB).exit_flag == AG_RUNNING_CODE;

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

David A. Holland

parents:

diff changeset

832 }

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

David A. Holland

parents:

diff changeset

833

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

David A. Holland

parents:

diff changeset

834 static int ag_action_2_r_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

835 (PCB).ssx++;

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

David A. Holland

parents:

diff changeset

836 (PCB).sn = (PCB).ag_ap;

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

David A. Holland

parents:

diff changeset

837 return 0;

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

David A. Holland

parents:

diff changeset

838 }

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

David A. Holland

parents:

diff changeset

839

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

David A. Holland

parents:

diff changeset

840 static int ag_action_7_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

841 --(PCB).ssx;

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

David A. Holland

parents:

diff changeset

842 (PCB).la_ptr = (PCB).pointer;

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

David A. Holland

parents:

diff changeset

843 (PCB).exit_flag = AG_SUCCESS_CODE;

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

David A. Holland

parents:

diff changeset

844 return 0;

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

David A. Holland

parents:

diff changeset

845 }

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

David A. Holland

parents:

diff changeset

846

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

David A. Holland

parents:

diff changeset

847 static int ag_action_1_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

848 ag_track(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

849 (PCB).exit_flag = AG_SUCCESS_CODE;

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

David A. Holland

parents:

diff changeset

850 return 0;

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

David A. Holland

parents:

diff changeset

851 }

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

David A. Holland

parents:

diff changeset

852

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

David A. Holland

parents:

diff changeset

853 static int ag_action_1_r_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

854 (PCB).exit_flag = AG_SUCCESS_CODE;

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

David A. Holland

parents:

diff changeset

855 return 0;

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

David A. Holland

parents:

diff changeset

856 }

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

David A. Holland

parents:

diff changeset

857

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

David A. Holland

parents:

diff changeset

858 static int ag_action_1_s_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

859 (PCB).exit_flag = AG_SUCCESS_CODE;

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

David A. Holland

parents:

diff changeset

860 return 0;

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

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

David A. Holland

parents:

diff changeset

863 static int ag_action_4_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

864 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

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

David A. Holland

parents:

diff changeset

865 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

866 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

867 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;

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

David A. Holland

parents:

diff changeset

868 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

869 else (PCB).ss[(PCB).ssx] = (PCB).sn;

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

David A. Holland

parents:

diff changeset

870 ag_track(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

871 while ((PCB).exit_flag == AG_RUNNING_CODE) {

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

David A. Holland

parents:

diff changeset

872 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

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

David A. Holland

parents:

diff changeset

873 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

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

David A. Holland

parents:

diff changeset

874 do {

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

David A. Holland

parents:

diff changeset

875 unsigned ag_tx = (ag_t1 + ag_t2)/2;

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

David A. Holland

parents:

diff changeset

876 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

877 else ag_t2 = ag_tx;

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

David A. Holland

parents:

diff changeset

878 } while (ag_t1 < ag_t2);

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

David A. Holland

parents:

diff changeset

879 (PCB).ag_ap = ag_pstt[ag_t1];

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

David A. Holland

parents:

diff changeset

880 if ((ag_s_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break;

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

David A. Holland

parents:

diff changeset

881 }

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

David A. Holland

parents:

diff changeset

882 return 0;

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

David A. Holland

parents:

diff changeset

883 }

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

David A. Holland

parents:

diff changeset

884

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

David A. Holland

parents:

diff changeset

885 static int ag_action_3_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

886 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

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

David A. Holland

parents:

diff changeset

887 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

888 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;

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

David A. Holland

parents:

diff changeset

889 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

890 else (PCB).ss[(PCB).ssx] = (PCB).sn;

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

David A. Holland

parents:

diff changeset

891 ag_track(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

892 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

893 ag_ra(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

894 while ((PCB).exit_flag == AG_RUNNING_CODE) {

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

David A. Holland

parents:

diff changeset

895 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

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

David A. Holland

parents:

diff changeset

896 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

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

David A. Holland

parents:

diff changeset

897 do {

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

David A. Holland

parents:

diff changeset

898 unsigned ag_tx = (ag_t1 + ag_t2)/2;

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

David A. Holland

parents:

diff changeset

899 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

900 else ag_t2 = ag_tx;

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

David A. Holland

parents:

diff changeset

901 } while (ag_t1 < ag_t2);

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

David A. Holland

parents:

diff changeset

902 (PCB).ag_ap = ag_pstt[ag_t1];

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

David A. Holland

parents:

diff changeset

903 if ((ag_s_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break;

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

David A. Holland

parents:

diff changeset

904 }

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

David A. Holland

parents:

diff changeset

905 return 0;

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

David A. Holland

parents:

diff changeset

906 }

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

David A. Holland

parents:

diff changeset

907

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

David A. Holland

parents:

diff changeset

908 static int ag_action_8_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

909 int ag_k = ag_sbt[(PCB).sn];

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

David A. Holland

parents:

diff changeset

910 while (ag_tstt[ag_k] != 14 && ag_tstt[ag_k]) ag_k++;

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

David A. Holland

parents:

diff changeset

911 if (ag_tstt[ag_k] == 0) ag_undo(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

912 (PCB).la_ptr = (PCB).pointer;

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

David A. Holland

parents:

diff changeset

913 ag_error_resynch(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

914 return (PCB).exit_flag == AG_RUNNING_CODE;

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 int ag_action_5_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

918 int ag_sd = ag_fl[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

919 (PCB).btsx = 0, (PCB).drt = -1;

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

David A. Holland

parents:

diff changeset

920 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

921 else {

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

David A. Holland

parents:

diff changeset

922 (PCB).ss[(PCB).ssx] = (PCB).sn;

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

David A. Holland

parents:

diff changeset

923 }

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

David A. Holland

parents:

diff changeset

924 (PCB).la_ptr = (PCB).pointer;

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

David A. Holland

parents:

diff changeset

925 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

926 ag_ra(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

927 while ((PCB).exit_flag == AG_RUNNING_CODE) {

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

David A. Holland

parents:

diff changeset

928 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

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

David A. Holland

parents:

diff changeset

929 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

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

David A. Holland

parents:

diff changeset

930 do {

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

David A. Holland

parents:

diff changeset

931 unsigned ag_tx = (ag_t1 + ag_t2)/2;

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

David A. Holland

parents:

diff changeset

932 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

933 else ag_t2 = ag_tx;

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

David A. Holland

parents:

diff changeset

934 } while (ag_t1 < ag_t2);

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

David A. Holland

parents:

diff changeset

935 (PCB).ag_ap = ag_pstt[ag_t1];

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

David A. Holland

parents:

diff changeset

936 if ((ag_r_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break;

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 return (PCB).exit_flag == AG_RUNNING_CODE;

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

David A. Holland

parents:

diff changeset

939 }

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

David A. Holland

parents:

diff changeset

940

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

David A. Holland

parents:

diff changeset

941 static int ag_action_6_proc(PCB_DECL) {

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

David A. Holland

parents:

diff changeset

942 int ag_sd = ag_fl[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

943 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

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

David A. Holland

parents:

diff changeset

944 if ((PCB).drt == -1) {

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

David A. Holland

parents:

diff changeset

945 (PCB).drt=(PCB).token_number;

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

David A. Holland

parents:

diff changeset

946 (PCB).dssx=(PCB).ssx;

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

David A. Holland

parents:

diff changeset

947 (PCB).dsn=(PCB).sn;

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

David A. Holland

parents:

diff changeset

948 }

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

David A. Holland

parents:

diff changeset

949 if (ag_sd) {

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

David A. Holland

parents:

diff changeset

950 (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];

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

David A. Holland

parents:

diff changeset

951 }

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

David A. Holland

parents:

diff changeset

952 else {

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

David A. Holland

parents:

diff changeset

953 ag_prot(PCB_POINTER);

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

David A. Holland

parents:

diff changeset

954 (PCB).vs[(PCB).ssx] = ag_null_value;

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

David A. Holland

parents:

diff changeset

955 (PCB).ss[(PCB).ssx] = (PCB).sn;

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

David A. Holland

parents:

diff changeset

956 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

957 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

958 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

959 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

960 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

961 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

962 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

963 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

964 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

965 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

966 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

967 if ((ag_r_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

968 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

969 return (PCB).exit_flag == AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

970 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

971

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

972

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

973 static int ag_action_2_er_proc(PCB_DECL) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

974 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

975 (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

976 (PCB).ssx++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

977 (PCB).sn = (PCB).ag_ap;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

978 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

979 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

980

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

981 static int ag_action_1_er_proc(PCB_DECL) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

982 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

983 (PCB).exit_flag = AG_SUCCESS_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

984 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

985 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

986

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

987 static int ag_action_4_er_proc(PCB_DECL) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

988 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

989 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

990 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

991 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

992 else (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

993 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

994 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

995 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

996 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

997 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

998 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

999 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1000 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1001 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1002 if ((ag_s_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1003 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1004 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1005 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1006

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1007 static int ag_action_3_er_proc(PCB_DECL) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1008 int ag_sd = ag_fl[(PCB).ag_ap] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1009 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1010 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

1011 else (PCB).ss[(PCB).ssx] = (PCB).sn;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1012 (PCB).reduction_token = (ffc-rp_token_type) ag_ptt[(PCB).ag_ap];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1013 ag_ra(PCB_POINTER);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1014 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1015 unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1016 unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1017 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1018 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1019 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

1020 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1021 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1022 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1023 if ((ag_s_procs_scan[ag_astt[ag_t1]])(PCB_POINTER) == 0) break;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1024 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1025 return 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1026 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1027

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1028

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1029 void init_ffc-rp(ffc-rp_pcb_type *PCB_POINTER) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1030 (PCB).la_ptr = (PCB).pointer;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1031 (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1032 (PCB).exit_flag = AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1033 (PCB).line = FIRST_LINE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1034 (PCB).column = FIRST_COLUMN;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1035 (PCB).btsx = 0, (PCB).drt = -1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1036 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1037

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1038 void ffc-rp(ffc-rp_pcb_type *PCB_POINTER) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1039 init_ffc-rp(PCB_POINTER);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1040 (PCB).exit_flag = AG_RUNNING_CODE;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1041 while ((PCB).exit_flag == AG_RUNNING_CODE) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1042 unsigned ag_t1 = ag_sbt[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1043 if (ag_tstt[ag_t1]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1044 unsigned ag_t2 = ag_sbe[(PCB).sn] - 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1045 (PCB).token_number = (ffc-rp_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1046 (PCB).la_ptr++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1047 if (ag_key_index[(PCB).sn]) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1048 unsigned ag_k = ag_key_index[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1049 int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1050 if (ag_ch <= 255) {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1051 while (ag_key_ch[ag_k] < ag_ch) ag_k++;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1052 if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word((PCB_TYPE *)PCB_POINTER, ag_k);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1053 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1054 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1055 do {

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1056 unsigned ag_tx = (ag_t1 + ag_t2)/2;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1057 if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1058 ag_t1 = ag_tx + 1;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1059 else ag_t2 = ag_tx;

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1060 } while (ag_t1 < ag_t2);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1061 if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number)

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1062 ag_t1 = ag_sbe[(PCB).sn];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1063 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1064 (PCB).ag_ap = ag_pstt[ag_t1];

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1065 (ag_gt_procs_scan[ag_astt[ag_t1]])((PCB_TYPE *)PCB_POINTER);

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1066 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1067 }

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1068

13d2b8934445 Import AnaGram (near-)release tree into Mercurial.

David A. Holland

parents:

diff changeset

1069

Mercurial > ~dholland > hg > ag > index.cgi

annotate tests/agcl/ffcalc/good/ffc-rp.c @ 0:13d2b8934445