New parser, written in C
authorH.G. Muller <h.g.muller@hccnet.nl>
Wed, 2 Mar 2011 21:14:57 +0000 (22:14 +0100)
committerArun Persaud <apersaud@lbl.gov>
Fri, 4 Mar 2011 05:12:47 +0000 (21:12 -0800)
A new parser was written to replace the flex-generated one. Immediate
improvements are that it understand double-digit rank numbers, and Shogi
coordinates. No changes were made in the Makefile yet to reflect the
new, flexless building procedure.

parser.c

index a87313f..407b92e 100644 (file)
--- a/parser.c
+++ b/parser.c
-
-#line 3 "parser.c"
-
-#define  YY_INT_ALIGNED short int
-
-/* A lexical scanner generated by flex */
-
-#define FLEX_SCANNER
-#define YY_FLEX_MAJOR_VERSION 2
-#define YY_FLEX_MINOR_VERSION 5
-#define YY_FLEX_SUBMINOR_VERSION 35
-#if YY_FLEX_SUBMINOR_VERSION > 0
-#define FLEX_BETA
-#endif
-
-/* First, we deal with  platform-specific or compiler-specific issues. */
-
-/* begin standard C headers. */
-#include <stdio.h>
-#include <string.h>
-#include <errno.h>
-#include <stdlib.h>
-
-/* end standard C headers. */
-
-/* flex integer type definitions */
-
-#ifndef FLEXINT_H
-#define FLEXINT_H
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-
-#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- * if you want the limit (max/min) macros for int types. 
- */
-#ifndef __STDC_LIMIT_MACROS
-#define __STDC_LIMIT_MACROS 1
-#endif
-
-#include <inttypes.h>
-typedef int8_t flex_int8_t;
-typedef uint8_t flex_uint8_t;
-typedef int16_t flex_int16_t;
-typedef uint16_t flex_uint16_t;
-typedef int32_t flex_int32_t;
-typedef uint32_t flex_uint32_t;
-#else
-typedef signed char flex_int8_t;
-typedef short int flex_int16_t;
-typedef int flex_int32_t;
-typedef unsigned char flex_uint8_t; 
-typedef unsigned short int flex_uint16_t;
-typedef unsigned int flex_uint32_t;
-#endif /* ! C99 */
-
-/* Limits of integral types. */
-#ifndef INT8_MIN
-#define INT8_MIN               (-128)
-#endif
-#ifndef INT16_MIN
-#define INT16_MIN              (-32767-1)
-#endif
-#ifndef INT32_MIN
-#define INT32_MIN              (-2147483647-1)
-#endif
-#ifndef INT8_MAX
-#define INT8_MAX               (127)
-#endif
-#ifndef INT16_MAX
-#define INT16_MAX              (32767)
-#endif
-#ifndef INT32_MAX
-#define INT32_MAX              (2147483647)
-#endif
-#ifndef UINT8_MAX
-#define UINT8_MAX              (255U)
-#endif
-#ifndef UINT16_MAX
-#define UINT16_MAX             (65535U)
-#endif
-#ifndef UINT32_MAX
-#define UINT32_MAX             (4294967295U)
-#endif
-
-#endif /* ! FLEXINT_H */
-
-#ifdef __cplusplus
-
-/* The "const" storage-class-modifier is valid. */
-#define YY_USE_CONST
-
-#else  /* ! __cplusplus */
-
-/* C99 requires __STDC__ to be defined as 1. */
-#if defined (__STDC__)
-
-#define YY_USE_CONST
-
-#endif /* defined (__STDC__) */
-#endif /* ! __cplusplus */
-
-#ifdef YY_USE_CONST
-#define yyconst const
-#else
-#define yyconst
-#endif
-
-/* Returned upon end-of-file. */
-#define YY_NULL 0
-
-/* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index.  If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-
-/* Enter a start condition.  This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
-#define BEGIN (yy_start) = 1 + 2 *
-
-/* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state.  The YYSTATE alias is for lex
- * compatibility.
- */
-#define YY_START (((yy_start) - 1) / 2)
-#define YYSTATE YY_START
-
-/* Action number for EOF rule of a given start state. */
-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-
-/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE yyrestart(yyin  )
-
-#define YY_END_OF_BUFFER_CHAR 0
-
-/* Size of default input buffer. */
-#ifndef YY_BUF_SIZE
-#define YY_BUF_SIZE 16384
-#endif
-
-/* The state buf must be large enough to hold one state per character in the main buffer.
- */
-#define YY_STATE_BUF_SIZE   ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-
-#ifndef YY_TYPEDEF_YY_BUFFER_STATE
-#define YY_TYPEDEF_YY_BUFFER_STATE
-typedef struct yy_buffer_state *YY_BUFFER_STATE;
-#endif
-
-extern int yyleng;
-
-extern FILE *yyin, *yyout;
-
-#define EOB_ACT_CONTINUE_SCAN 0
-#define EOB_ACT_END_OF_FILE 1
-#define EOB_ACT_LAST_MATCH 2
-
-    #define YY_LESS_LINENO(n)
-    
-/* Return all but the first "n" matched characters back to the input stream. */
-#define yyless(n) \
-       do \
-               { \
-               /* Undo effects of setting up yytext. */ \
-        int yyless_macro_arg = (n); \
-        YY_LESS_LINENO(yyless_macro_arg);\
-               *yy_cp = (yy_hold_char); \
-               YY_RESTORE_YY_MORE_OFFSET \
-               (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
-               YY_DO_BEFORE_ACTION; /* set up yytext again */ \
-               } \
-       while ( 0 )
-
-#define unput(c) yyunput( c, (yytext_ptr)  )
-
-#ifndef YY_TYPEDEF_YY_SIZE_T
-#define YY_TYPEDEF_YY_SIZE_T
-typedef size_t yy_size_t;
-#endif
-
-#ifndef YY_STRUCT_YY_BUFFER_STATE
-#define YY_STRUCT_YY_BUFFER_STATE
-struct yy_buffer_state
-       {
-       FILE *yy_input_file;
-
-       char *yy_ch_buf;                /* input buffer */
-       char *yy_buf_pos;               /* current position in input buffer */
-
-       /* Size of input buffer in bytes, not including room for EOB
-        * characters.
-        */
-       yy_size_t yy_buf_size;
-
-       /* Number of characters read into yy_ch_buf, not including EOB
-        * characters.
-        */
-       int yy_n_chars;
-
-       /* Whether we "own" the buffer - i.e., we know we created it,
-        * and can realloc() it to grow it, and should free() it to
-        * delete it.
-        */
-       int yy_is_our_buffer;
-
-       /* Whether this is an "interactive" input source; if so, and
-        * if we're using stdio for input, then we want to use getc()
-        * instead of fread(), to make sure we stop fetching input after
-        * each newline.
-        */
-       int yy_is_interactive;
-
-       /* Whether we're considered to be at the beginning of a line.
-        * If so, '^' rules will be active on the next match, otherwise
-        * not.
-        */
-       int yy_at_bol;
-
-    int yy_bs_lineno; /**< The line count. */
-    int yy_bs_column; /**< The column count. */
-    
-       /* Whether to try to fill the input buffer when we reach the
-        * end of it.
-        */
-       int yy_fill_buffer;
-
-       int yy_buffer_status;
-
-#define YY_BUFFER_NEW 0
-#define YY_BUFFER_NORMAL 1
-       /* When an EOF's been seen but there's still some text to process
-        * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-        * shouldn't try reading from the input source any more.  We might
-        * still have a bunch of tokens to match, though, because of
-        * possible backing-up.
-        *
-        * When we actually see the EOF, we change the status to "new"
-        * (via yyrestart()), so that the user can continue scanning by
-        * just pointing yyin at a new input file.
-        */
-#define YY_BUFFER_EOF_PENDING 2
-
-       };
-#endif /* !YY_STRUCT_YY_BUFFER_STATE */
-
-/* Stack of input buffers. */
-static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
-
-/* We provide macros for accessing buffer states in case in the
- * future we want to put the buffer states in a more general
- * "scanner state".
- *
- * Returns the top of the stack, or NULL.
- */
-#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
-                          ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
-                          : NULL)
-
-/* Same as previous macro, but useful when we know that the buffer stack is not
- * NULL or when we need an lvalue. For internal use only.
- */
-#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-
-/* yy_hold_char holds the character lost when yytext is formed. */
-static char yy_hold_char;
-static int yy_n_chars;         /* number of characters read into yy_ch_buf */
-int yyleng;
-
-/* Points to current character in buffer. */
-static char *yy_c_buf_p = (char *) 0;
-static int yy_init = 0;                /* whether we need to initialize */
-static int yy_start = 0;       /* start state number */
-
-/* Flag which is used to allow yywrap()'s to do buffer switches
- * instead of setting up a fresh yyin.  A bit of a hack ...
- */
-static int yy_did_buffer_switch_on_eof;
-
-void yyrestart (FILE *input_file  );
-void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer  );
-YY_BUFFER_STATE yy_create_buffer (FILE *file,int size  );
-void yy_delete_buffer (YY_BUFFER_STATE b  );
-void yy_flush_buffer (YY_BUFFER_STATE b  );
-void yypush_buffer_state (YY_BUFFER_STATE new_buffer  );
-void yypop_buffer_state (void );
-
-static void yyensure_buffer_stack (void );
-static void yy_load_buffer_state (void );
-static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file  );
-
-#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
-
-YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size  );
-YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str  );
-YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len  );
-
-void *yyalloc (yy_size_t  );
-void *yyrealloc (void *,yy_size_t  );
-void yyfree (void *  );
-
-#define yy_new_buffer yy_create_buffer
-
-#define yy_set_interactive(is_interactive) \
-       { \
-       if ( ! YY_CURRENT_BUFFER ){ \
-        yyensure_buffer_stack (); \
-               YY_CURRENT_BUFFER_LVALUE =    \
-            yy_create_buffer(yyin,YY_BUF_SIZE ); \
-       } \
-       YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
-       }
-
-#define yy_set_bol(at_bol) \
-       { \
-       if ( ! YY_CURRENT_BUFFER ){\
-        yyensure_buffer_stack (); \
-               YY_CURRENT_BUFFER_LVALUE =    \
-            yy_create_buffer(yyin,YY_BUF_SIZE ); \
-       } \
-       YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
-       }
-
-#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-
-/* Begin user sect3 */
-
-typedef unsigned char YY_CHAR;
-
-FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
-
-typedef int yy_state_type;
-
-extern int yylineno;
-
-int yylineno = 1;
-
-extern char *yytext;
-#define yytext_ptr yytext
-
-static yy_state_type yy_get_previous_state (void );
-static yy_state_type yy_try_NUL_trans (yy_state_type current_state  );
-static int yy_get_next_buffer (void );
-static void yy_fatal_error (yyconst char msg[]  );
-
-/* Done after the current pattern has been matched and before the
- * corresponding action - sets up yytext.
- */
-#define YY_DO_BEFORE_ACTION \
-       (yytext_ptr) = yy_bp; \
-       yyleng = (size_t) (yy_cp - yy_bp); \
-       (yy_hold_char) = *yy_cp; \
-       *yy_cp = '\0'; \
-       (yy_c_buf_p) = yy_cp;
-
-#define YY_NUM_RULES 43
-#define YY_END_OF_BUFFER 44
-/* This struct is not used in this scanner,
-   but its presence is necessary. */
-struct yy_trans_info
-       {
-       flex_int32_t yy_verify;
-       flex_int32_t yy_nxt;
-       };
-static yyconst flex_int16_t yy_acclist[643] =
-    {   0,
-       44,   42,   43,   42,   43,   42,   43,   41,   42,   43,
-       38,   42,   43,   39,   42,   43,   26,   42,   43,   42,
-       43,   41,   42,   43,   41,   42,   43,16411,   41,   42,
-       43,16411,   42,   43,   41,   42,   43,   41,   42,   43,
-       41,   42,   43,   41,   42,   43,   41,   42,   43,   41,
-       42,   43,   41,   42,   43,   41,   42,   43,   41,   42,
-       43,   41,   42,   43,   41,   42,   43,   42,   43,   41,
-       42,   43,   41,   42,   43,   41,   42,   43,   41,   42,
-       43,   41,   42,   43,   41,   42,   43,   41,   42,   43,
-       41,   42,   43,   41,   42,   43,   41,   42,   43,   41,
-
-       42,   43,   41,   42,   43,   41,   42,   43,   41,   42,
-       43,   41,   42,   43,   41,   42,   43,   41,   42,   43,
-       41,   42,   43,   42,   43,   42,   43,   41,   42,   43,
-       41,   42,   43,   41,   42,   43,16411,   41,   42,   43,
-    16411,   42,   43,   41,   42,   43,   41,   42,   43,   41,
-       42,   43,   41,   42,   43,   41,   42,   43,   41,   42,
-       43,   41,   42,   43,   41,   42,   43,   41,   42,   43,
-       41,   42,   43,   41,   42,   43,   41,   42,   43,   41,
-       42,   43,   41,   42,   43,   41,   42,   43,   41,   42,
-       43,   41,   42,   43,   41,   42,   43,   41,   42,   43,
-
-       41,   42,   43,   41,   42,   43,   41,   42,   43,   41,
-       42,   43,   41,   42,   43,   41,   42,   43,   41,   42,
-       43,   41,   42,   43,   41,   42,   43,   41,   42,   43,
-       42,   43,   34,   41,   18,   41,   10,   41, 8219,   41,
-       41,16411, 8219,   41,   36,   41,   41,   41,   41,   41,
-       41,   41,   41,   41,   41,   41,   10,   41,   41,   41,
-       41,   37,   41,    4,   41,   41,    5,   41,   41,   41,
-       41,   41,   41,   10,   41,   41,   41,   35,   41,   41,
-       10,   41,   41,   41,16411, 8219,   41,   41,   41,   41,
-       41,   41,   41,   41,   41,   41,   41,   41,   10,   41,
-
-       41,   41,   41,   41,    4,   41,   41,    5,   41,   41,
-       41,   41,   41,   41,   10,   41,   41,   41,   16,   10,
-       41,   24,   41,   24,    9,   41,   23,   41,   23,   25,
-       41,   41,   41,   41,   41,    7,   41,   41,   41,   41,
-       41,   41,   10,   41,   41,   41,   41,    5,   41,    4,
-       41,    4,    4,   41,    4,   41,    4,   41,    5,    6,
-       41,    5,    5,   41,   41,   41,   41,   10,   41,   41,
-       40,   10,   41,   24,   41,    9,   41,   23,   41,   36,
-       41,   41,   41,   41,   41,    7,   41,   41,   41,   41,
-       41,   41,   10,   41,   41,   41,   41,    5,   41,   41,
-
-        4,   41,    4,   41,    4,   41,    6,   41,    5,   41,
-       41,   41,   41,   10,   41,   41,   26,   26,    7,   41,
-       11,    7,   41,    3,   41,    8,   41,    7,    7,   41,
-        7,    7,   41,    7,   41,   41,   41,   41,   20,   41,
-       41,   17,   41,   41,   41,   41,   41,   37,    4,   41,
-        2,   41,    6,    5,    6,    6,    6,   41,   41,    5,
-        5,   41,   41,   26,   40,   41,    7,   41,    3,   41,
-        8,   41,   41,    7,   41,    7,   41,   41,   41,   41,
-       20,   41,   41,   17,   41,   41,   41,   41,   41,   41,
-        2,   41,    6,   41,   41,    5,   41,   41,    8,    7,
-
-        7,    3,    8,    8,    8,   41,    1,   41,   21,   41,
-       41,   20,   41,   41,   41,   41,   41,   41,   31,   37,
-        2,    2,    2,    2,   41,    6,    6,   41,   40,    8,
-       41,    1,   41,   41,   41,   20,   41,   41,   41,   41,
-       41,   41,    2,   41,    6,   41,   28,    8,    1,   24,
-       24,   23,   23,   25,   25,    1,    1,    1,   41,   22,
-       21,   41,   41,   41,   12,   41,   41,   29,   37,   31,
-        2,   28,   35,   40,   40,    1,   41,   41,   41,   41,
-       12,   41,   41,   19,    1,   25,   22,   20,   41,   41,
-       41,   12,   41,   41,   41,   41,   41,   12,   41,   41,
-
-       13,   41,   41,   41,   41,   13,   41,   41,   15,   41,
-       41,   41,   15,   41,   41,   41,   40,   41,   41,   41,
-       41,   40,   40,   41,   41,   32,   41,   40,   40,   32,
-       41,   14,   32,   33,   33,   36,   40,   40,   32,   40,
-       35,   30
-    } ;
-
-static yyconst flex_int16_t yy_accept[695] =
-    {   0,
-        1,    1,    1,    2,    4,    6,    8,   11,   14,   17,
-       20,   22,   25,   29,   33,   35,   38,   41,   44,   47,
-       50,   53,   56,   59,   62,   65,   68,   70,   73,   76,
-       79,   82,   85,   88,   91,   94,   97,  100,  103,  106,
-      109,  112,  115,  118,  121,  124,  126,  128,  131,  134,
-      138,  142,  144,  147,  150,  153,  156,  159,  162,  165,
-      168,  171,  174,  177,  180,  183,  186,  189,  192,  195,
-      198,  201,  204,  207,  210,  213,  216,  219,  222,  225,
-      228,  231,  233,  233,  234,  235,  235,  235,  236,  236,
-      236,  236,  237,  237,  239,  239,  239,  239,  240,  241,
-
-      241,  241,  243,  243,  245,  245,  246,  246,  247,  247,
-      248,  248,  249,  249,  250,  251,  252,  253,  254,  255,
-      256,  257,  259,  260,  261,  262,  262,  262,  262,  262,
-      263,  264,  266,  266,  267,  269,  270,  271,  272,  273,
-      274,  276,  277,  278,  278,  278,  279,  279,  280,  280,
-      281,  283,  283,  284,  286,  286,  288,  288,  289,  290,
-      290,  291,  292,  293,  294,  295,  296,  297,  298,  299,
-      301,  302,  303,  304,  305,  307,  307,  308,  310,  311,
-      312,  313,  314,  315,  317,  318,  319,  319,  319,  319,
-      319,  319,  320,  320,  320,  320,  320,  320,  322,  324,
-
-      325,  327,  327,  327,  327,  329,  330,  331,  331,  332,
-      332,  333,  333,  334,  335,  335,  336,  338,  338,  338,
-      338,  338,  338,  338,  338,  339,  340,  341,  342,  343,
-      345,  346,  347,  348,  348,  348,  348,  348,  350,  350,
-      351,  352,  352,  353,  355,  357,  359,  360,  360,  362,
-      363,  365,  366,  367,  368,  370,  371,  371,  371,  371,
-      371,  372,  374,  376,  378,  380,  380,  381,  381,  382,
-      383,  383,  384,  385,  386,  388,  388,  389,  390,  391,
-      392,  393,  395,  396,  397,  398,  400,  401,  401,  403,
-      405,  407,  409,  411,  412,  413,  414,  416,  417,  417,
-
-      417,  417,  417,  418,  418,  419,  419,  420,  420,  420,
-      420,  421,  421,  421,  421,  421,  421,  421,  421,  422,
-      424,  424,  424,  426,  428,  429,  429,  430,  431,  431,
-      431,  432,  434,  436,  437,  437,  437,  437,  437,  437,
-      437,  438,  439,  441,  441,  442,  444,  445,  446,  447,
-      448,  448,  448,  448,  448,  449,  450,  451,  451,  453,
-      454,  455,  455,  455,  456,  457,  459,  460,  461,  461,
-      463,  464,  464,  465,  465,  465,  465,  465,  466,  466,
-      467,  467,  467,  469,  471,  473,  474,  474,  476,  478,
-      479,  480,  481,  483,  484,  486,  487,  488,  489,  490,
-
-      491,  493,  495,  496,  498,  499,  499,  499,  499,  500,
-      501,  502,  502,  502,  502,  502,  502,  502,  502,  502,
-      502,  503,  503,  504,  504,  505,  507,  509,  509,  509,
-      509,  509,  509,  510,  511,  512,  512,  514,  514,  515,
-      516,  517,  518,  519,  519,  519,  521,  521,  521,  522,
-      522,  523,  523,  524,  526,  527,  527,  527,  529,  529,
-      529,  529,  529,  529,  529,  529,  530,  530,  530,  532,
-      534,  535,  536,  538,  539,  540,  541,  542,  543,  545,
-      547,  547,  547,  548,  548,  549,  550,  550,  551,  551,
-      552,  552,  553,  553,  554,  554,  555,  555,  556,  556,
-
-      556,  556,  557,  557,  558,  560,  560,  560,  561,  561,
-      561,  562,  563,  563,  563,  563,  563,  563,  564,  565,
-      567,  568,  570,  570,  571,  572,  572,  572,  574,  574,
-      574,  575,  576,  576,  576,  578,  579,  580,  581,  583,
-      584,  584,  585,  585,  585,  586,  586,  587,  587,  587,
-      588,  588,  588,  589,  589,  589,  589,  589,  590,  591,
-      592,  594,  595,  595,  595,  595,  595,  595,  596,  597,
-      598,  600,  601,  601,  601,  601,  601,  601,  601,  602,
-      602,  602,  602,  602,  603,  604,  604,  604,  604,  604,
-      605,  606,  606,  606,  606,  606,  607,  607,  607,  607,
-
-      608,  609,  611,  611,  611,  611,  611,  612,  612,  613,
-      615,  615,  615,  615,  615,  616,  617,  617,  617,  617,
-      617,  618,  619,  620,  620,  620,  620,  620,  620,  621,
-      622,  622,  622,  622,  622,  623,  624,  625,  626,  626,
-      626,  626,  626,  626,  628,  628,  628,  628,  628,  629,
-      630,  632,  632,  632,  633,  633,  634,  634,  635,  635,
-      635,  637,  637,  638,  639,  639,  639,  639,  639,  641,
-      641,  641,  641,  641,  641,  641,  641,  641,  641,  641,
-      641,  641,  641,  641,  641,  641,  641,  641,  641,  641,
-      641,  642,  643,  643
-
-    } ;
-
-static yyconst flex_int32_t yy_ec[256] =
-    {   0,
-        1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    4,    1,    5,    6,    7,    8,    1,    9,   10,
-       11,   12,   13,    1,   14,   15,   16,   17,   18,   19,
-       20,   20,   20,   20,   20,   20,   20,   21,   22,    1,
-       23,    1,    1,   24,   25,   26,   27,   28,   29,   30,
-       31,   32,   33,   33,   33,   34,   35,   36,   37,   38,
-       38,   39,   40,   38,   41,   38,   42,   43,   38,   38,
-       44,    1,   45,    1,   46,    1,   47,   48,   49,   50,
-
-       51,   52,   53,   54,   55,   56,   57,   58,   59,   60,
-       61,   62,   63,   64,   65,   66,   67,   68,   69,   70,
-       71,   68,   72,    1,   73,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1
-    } ;
-
-static yyconst flex_int32_t yy_meta[74] =
-    {   0,
-        1,    2,    3,    2,    1,    1,    1,    1,    4,    5,
-        1,    1,    6,    7,    8,    9,   10,   10,   10,   10,
-       11,    1,    5,    1,   12,   12,   12,   12,   12,   12,
-       12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
-       12,   12,   13,    1,    1,    1,   14,   14,   14,   14,
-       15,   14,   14,   14,   14,   14,   14,   14,   16,   17,
-       17,   17,   17,   17,   16,   16,   16,   16,   16,   18,
-       16,    1,    1
-    } ;
-
-static yyconst flex_int16_t yy_base[756] =
-    {   0,
-        0,   73, 3125, 3806,  122,  131,    0,  135, 3806, 3104,
-      143,  154,  174,  244, 3087,  304,  155, 2960, 2945,  124,
-      162,  144,  182,  186,  203,  212,  374,  434,  168,  161,
-      223,  204,  228,  241,  237,  180,  249,  279,  282,  295,
-      161,  379,  174,  326,  390,  326, 3004,  203,  396,  503,
-      573,  162,  636,  210, 2953, 2942,  242,  389,  314,  408,
-      350,  412,  439,  693,  411,  388,  415,  420,  447,  478,
-      318,  454,  480,  486,  376,  536,  537,  542,  586,  543,
-      592,  600, 2952,  456,    0,  604,  228, 3806, 2990,  750,
-      564,  232, 2984, 2969, 2955,  537,  660, 3806, 2955,  624,
-
-      422,    0, 2953,    0, 2966, 3806,    0,  774,    0,  824,
-        0,  882,  925, 2853, 2843, 2846, 2851, 2824,  616, 2815,
-     2842, 2841, 2811, 2828, 2816, 2825,  994,  253, 1067, 3806,
-     1094, 1144,    0, 1169, 1218,  648,  652,  678, 2803, 2807,
-     2806, 2801, 2810, 2791,  683,  279, 2859,  395, 2858,  699,
-      494,  345,  591, 1268,  282,  440,  493, 1331, 1381, 2857,
-     1439, 2813, 2808,  706,  538,  544,  704, 2792, 2820,  638,
-     2791,  710, 2800, 1463, 1513, 2850, 1538, 1588,  756,  763,
-      895,  769,  888,  889,  640,  896,  407, 2788,  715, 2840,
-     2777, 3806,  716, 1010, 2845, 2844, 2843, 2829, 2838, 2837,
-
-        0, 2836, 2835, 2834, 2833, 2832,  775,  794,  798,  901,
-     1635, 1669,  924,  951,  961, 1016, 1719,  942, 2780, 2773,
-     2772, 2785, 2779,  544,  973, 1015, 2760,  602, 2777, 2813,
-     2771, 2767, 1037,  303, 1056,  162, 1790, 1854,    0, 3806,
-     1859,    0, 2810, 2808, 2807, 1075, 1087, 1104, 1908, 2807,
-     2803,  349, 2754, 2749, 2783, 2730, 1115,  743, 2791,  732,
-     2791,  825,  902,  717,  953,  627, 2789,  958, 1099, 1951,
-     2788, 1281, 1286, 1283, 2001, 2787, 1311, 1344,  945, 1270,
-     1064, 1116, 1081,  967, 1337, 2064, 2107, 2786, 1221, 2778,
-     1452, 2156, 1254, 1794, 1453, 1455, 1259, 1255,  666, 2737,
-
-     1305, 2776, 2775, 2712, 2711, 1324, 2198, 2765, 2764, 2763,
-     2762,  605, 2761,  735, 2760,  715, 1803,  791, 3806, 2259,
-     1802, 1330,    0, 2293, 1381, 1809, 3806, 2290, 2766, 1806,
-     2765, 2763, 2759, 1349, 2704, 2704, 2702, 2700, 2700, 2704,
-     2706, 2705,  598,  820,  816,    0, 2724, 2707, 2708, 2706,
-      536,  774,  673, 1423, 2751, 2744, 1353, 1357, 1834,  935,
-     2742,  911, 1808, 3806, 2742, 2736,  957, 3806, 2684,    0,
-     2684, 1657, 2740, 1463, 1825, 2689, 2669, 2722,  920, 1787,
-      171,  904, 2339, 1042, 2381, 2378, 2720, 1817, 2712, 1849,
-     1821, 1911, 1952, 1943, 1075, 1257, 1078, 1457, 1852, 2100,
-
-     2428, 1944, 2067, 1147, 2113,  854, 2671,  747, 2114, 2710,
-     2709, 1481, 2708, 2645, 2706, 2643, 2704, 2641, 2695, 1521,
-     3806, 2122, 3806, 2702, 2696, 2693, 2442, 2652, 2645, 1923,
-     2645, 2639, 2628, 2688,  978, 2103, 2687, 1208, 2660, 2637,
-     2626, 2622, 2676, 1007, 1555, 3806, 2674, 1668, 2123, 2190,
-     3806, 2247, 2248, 2663, 2662, 1047, 2610,    0, 2642, 1008,
-     2630, 1690, 2630, 2586, 2577, 1503, 1675, 1033, 2132, 2476,
-     2201, 2511, 2258, 2102, 1945, 2257, 2159, 2379, 2342, 1722,
-      914, 1346, 3806, 1690, 2626, 2376, 2607, 2605, 2542, 2541,
-     2599, 2595, 2527, 2522, 2573, 2564, 2501, 2496, 2549, 2543,
-
-     2440, 3806, 2547, 2541, 2537, 2482, 2491, 2150, 1063, 2488,
-     3806, 2490, 2520, 2478, 2426, 2462, 2439, 2447, 2401, 1294,
-     2417, 3806, 1922, 3806, 2451, 2388, 1973,  788, 2351, 2346,
-     2384, 1630, 1452, 1480, 2384, 1948, 2131, 2105, 2479, 2512,
-     1086, 3806, 2334, 2293, 2350, 2356, 2355, 2298, 2302, 3806,
-     2296, 2339, 2304, 2252, 2304, 2243, 2209, 2204, 2177, 2170,
-        0, 2143, 2476, 2200, 2111,  833, 1123, 2513, 2375, 2514,
-     1949, 2515, 1219, 2084, 2106, 1221, 2052, 2044, 1809, 2032,
-     1287, 2037, 1982, 2581, 1943, 1910, 1875, 1187, 1709, 2654,
-     2256, 1451, 1861, 1847, 1760, 3806, 1699, 1265, 1710, 2727,
-
-     1808,    0, 1650, 1620, 1868, 1804, 2800, 2494, 1875, 2004,
-     1826, 1630, 1618, 2514, 1577, 1542, 1541, 1425,  526, 1926,
-     2523, 1440, 1395, 1890, 1326, 1201, 2408, 2119, 1205, 1178,
-     1115, 1156, 1477, 1600, 2524, 2525, 1100, 1014, 1914, 2208,
-      971, 2055, 2507,    0,  979,  895,  905, 2302, 2576, 2577,
-        0, 2002,  790, 3806,  667, 1992,  679, 3806,  542,  510,
-     3806, 1916, 2537, 2568, 2203,  281,  250, 2144, 2570, 2384,
-      146, 1478, 1607, 2075, 2076, 2549, 2595, 2610, 2614, 2617,
-     2629, 2630, 2632, 2635, 2636, 2637, 2638, 2668, 2681, 2170,
-     1711, 2442, 3806, 2870, 2883, 2895, 2913, 2931, 2949, 2964,
-
-     2981, 2998, 1822, 1887, 2066, 3015, 3033, 2161, 3051, 3069,
-     3087, 3105, 3117, 3135, 3153, 3171, 3189, 3196, 2266, 3210,
-     3225, 3243, 3261, 3279, 3297, 3315, 3327, 3341, 3354, 3372,
-     3390, 3408, 3423, 3437, 3452, 3470, 3485, 3499, 3512, 3530,
-     3548, 3566, 3584, 3602, 3616, 3634, 3648, 3661, 3679, 3697,
-     3715, 3733, 3751, 3769, 3787
-    } ;
-
-static yyconst flex_int16_t yy_def[756] =
-    {   0,
-      693,  693,  693,  693,  693,  693,  694,  693,  693,  693,
-      695,  694,  696,  696,  697,  694,   16,   16,   16,   16,
-       16,   16,   16,   16,   16,   16,  698,   16,   28,   28,
-       28,   28,   28,   28,   28,   28,   28,   28,   28,  694,
-      694,  694,  694,  694,  694,  699,  693,  700,  700,  701,
-      701,  697,  700,   53,   53,   53,   53,   53,   53,   53,
-       53,   53,   53,   53,   64,   64,   64,   64,   64,   64,
-       64,   64,   64,   64,   64,  700,  700,  700,  700,  700,
-      700,  699,  693,  693,  694,  693,  693,  693,  693,  693,
-      693,  694,  693,  694,  693,  702,  702,  693,  694,  702,
-
-      693,   14,  693,  694,  697,  693,  703,  694,  704,  693,
-      705,  694,  693,  112,  112,  694,  694,  694,  112,  112,
-      108,  694,  112,  694,  112,  706,  698,  706,  707,  693,
-      694,  693,  708,  694,  694,  694,  694,  694,  694,  694,
-      694,  694,  694,  699,  699,  693,  709,  700,  693,  700,
-      700,  693,  700,  701,  693,  700,  710,  700,  693,  705,
-      158,  161,  161,  700,  700,  700,  161,  161,  158,  700,
-      161,  700,  161,  158,  693,  708,  158,  693,  700,  700,
-      700,  700,  700,  700,  700,  700,  699,  693,  693,  711,
-      712,  693,  713,  713,  693,  693,  693,  694,  694,  693,
-
-      694,  693,  693,  693,  694,  693,  693,  693,  694,  693,
-      694,  693,  694,  694,  693,  211,  693,  713,  693,  693,
-      693,  693,  693,  693,  694,  694,  694,  694,  694,  694,
-      694,  694,  694,  714,  715,  716,  717,  694,  718,  693,
-      694,  719,  718,  694,  241,  694,  720,  720,  694,  248,
-      694,  694,  694,  694,  694,  694,  699,  693,  721,  693,
-      722,  700,  700,  700,  700,  723,  721,  724,  700,  700,
-      212,  700,  700,  270,  693,  218,  700,  700,  700,  700,
-      700,  700,  700,  700,  700,  700,  700,  719,  700,  287,
-      700,  286,  700,  700,  700,  700,  700,  700,  699,  693,
-
-      693,  725,  725,  726,  726,  693,  693,  693,  693,  693,
-      694,  693,  693,  693,  693,  693,  693,  693,  693,  694,
-      727,  693,  694,  694,  728,  728,  693,  694,  326,  727,
-      326,  694,  328,  694,  693,  693,  693,  693,  693,  693,
-      694,  694,  694,  693,  694,  694,  694,  694,  694,  694,
-      729,  729,  730,  731,  732,  693,  694,  693,  733,  734,
-      693,  693,  734,  693,  363,  694,  694,  693,  693,  694,
-      694,  699,  693,  693,  693,  693,  693,  735,  693,  700,
-      736,  736,  286,  700,  383,  287,  330,  700,  386,  700,
-      700,  700,  700,  700,  700,  700,  700,  700,  700,  700,
-
-      737,  700,  700,  700,  700,  699,  693,  693,  738,  693,
-      330,  693,  739,  740,  741,  742,  743,  744,  693,  693,
-      693,  738,  693,  422,  422,  694,  694,  693,  693,  693,
-      693,  693,  693,  694,  694,  693,  694,  693,  694,  694,
-      694,  694,  694,  729,  731,  693,  732,  693,  745,  745,
-      693,  745,  745,  694,  693,  693,  693,  694,  693,  699,
-      693,  693,  693,  693,  693,  746,  736,  736,  700,  383,
-      700,  700,  700,  700,  700,  700,  700,  700,  700,  700,
-      699,  693,  693,  693,  693,  747,  739,  739,  740,  740,
-      741,  741,  742,  742,  743,  743,  744,  744,  693,  693,
-
-      747,  693,  501,  501,  694,  693,  693,  693,  693,  693,
-      693,  694,  748,  693,  693,  693,  693,  694,  694,  694,
-      694,  693,  693,  693,  693,  693,  699,  693,  693,  693,
-      746,  746,  736,  736,  700,  700,  700,  700,  700,  700,
-      699,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  748,  748,  693,  693,  693,  693,  694,  694,  694,
-      694,  694,  699,  693,  693,  736,  736,  700,  700,  700,
-      700,  700,  699,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  749,  694,  693,  693,  736,  736,  750,
-      700,  699,  693,  693,  693,  693,  693,  751,  751,  749,
-
-      600,  694,  693,  693,  736,  736,  750,  751,  607,  700,
-      699,  693,  693,  751,  600,  600,  693,  693,  736,  736,
-      752,  607,  607,  699,  693,  693,  751,  751,  600,  600,
-      693,  693,  736,  736,  752,  752,  607,  607,  699,  693,
-      693,  751,  751,  600,  753,  693,  754,  736,  752,  752,
-      607,  699,  693,  693,  693,  751,  753,  693,  693,  754,
-      693,  736,  752,  752,  699,  693,  693,  736,  752,  699,
-      693,  736,  699,  755,  755,  755,  755,  755,  755,  755,
-      755,  755,  755,  755,  755,  755,  755,  755,  755,  755,
-      693,  693,    0,  693,  693,  693,  693,  693,  693,  693,
-
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693
-    } ;
-
-static yyconst flex_int16_t yy_nxt[3880] =
-    {   0,
-        4,    4,    4,    5,    4,    4,    6,    4,    7,    8,
-        9,   10,   11,    7,    4,    4,   12,   13,   14,   14,
-        4,   15,    4,    4,   16,   17,   18,   19,   16,   16,
-       20,   16,   16,   16,   21,   22,   23,   22,   24,   25,
-       22,   26,   22,   27,    4,    4,   28,   29,   30,   31,
-       32,   33,   34,   35,   36,   37,   38,   39,   40,   41,
-       42,   41,   41,   43,   44,   41,   41,   41,   45,   41,
-       41,   46,    4,    4,    4,    4,    5,    4,   47,    6,
-       47,    7,    8,    9,   10,   11,   48,    4,    4,   49,
-       50,   51,   51,    4,   52,    4,    4,   53,   54,   55,
-
-       56,   53,   53,   57,   53,   53,   53,   58,   59,   60,
-       59,   61,   62,   59,   63,   59,   27,    4,    4,   64,
-       65,   66,   67,   68,   69,   70,   71,   72,   73,   74,
-       75,   76,   77,   78,   77,   77,   79,   80,   77,   77,
-       77,   81,   77,   77,   82,    4,   83,   84,   84,   84,
-       84,   86,   86,   86,   86,   88,   89,   91,  113,  117,
-      119,  119,  119,  119,  106,  157,  354,   92,   83,   93,
-       94,  113,  107,  106,   95,   96,   96,   97,  119,  119,
-      119,  119,   85,  118,  107,  107,   98,   99,  100,  101,
-      102,  102,  102,  102,  103,  121,  645,  107,  119,  119,
-
-      119,  119,  119,  119,  119,  119,  355,  136,  120,  135,
-      135,   85,  114,  113,  138,  113,  135,  467,  122,  119,
-      119,  119,  119,  149,  142,  137,  136,  136,  119,  119,
-      119,  119,   85,  135,  135,  135,  123,  190,   85,   85,
-       85,   85,   85,   85,   85,   96,   96,   96,  198,  199,
-      136,  136,   85,  135,  135,  135,   98,   85,  100,  693,
-      102,  102,  102,  102,  693,  125,  234,  162,  124,  136,
-      136,  135,  135,  135,  136,  136,  117,  165,  135,  135,
-      135,  258,  258,  136,  136,  261,  116,  136,  136,  135,
-      135,  135,  135,  135,  135,  136,  136,  130,  206,  191,
-
-      118,  166,   85,  135,  135,  135,  107,  671,   85,   85,
-       85,   85,   85,   85,   85,  107,  352,  108,  107,  109,
-      110,  110,  110,  110,  111,  136,  136,  107,  136,  136,
-      167,  167,  167,  167,  135,  135,  135,  107,  135,  135,
-      542,  139,  145,  145,  145,  145,  108,  130,  261,  107,
-      112,  112,  112,  112,  112,  112,  112,  112,  112,  112,
-      112,  112,  200,  369,  179,  179,  167,  167,  167,  167,
-      178,  178,  178,  108,  126,  127,  127,  127,  126,  126,
-      126,  126,  126,  126,  126,  126,  126,  128,  126,  126,
-      107,  124,  140,  113,  126,  126,  126,  126,  146,   91,
-
-      171,  107,  107,   85,   85,  167,  167,  167,  167,  150,
-      370,   93,  151,  107,  113,  149,  152,  126,  130,  126,
-      299,  169,  179,  179,  167,  167,  167,  167,  167,  167,
-      167,  167,  178,  178,  179,  168,  178,  178,  206,  141,
-      207,  181,  113,  143,  170,  126,  126,  131,   85,  693,
-      132,  132,  132,  132,  133,  167,  167,  167,  167,  178,
-      149,  179,  179,  178,  178,  178,  179,  179,  180,  178,
-      178,  178,   84,   84,   84,   84,  134,  172,  164,  146,
-      135,  135,  136,  136,  136,  136,  136,  136,  136,  136,
-      136,  136,  173,  179,  179,  267,  268,  178,  178,  178,
-
-      179,  179,   85,  134,   96,   96,   97,  178,  178,  178,
-      264,   85,  661,  165,  149,   98,  153,  100,  101,  154,
-      154,  154,  154,  155,  179,  179,  179,  179,  106,  178,
-      178,  178,  179,  179,  178,  178,  178,  166,   96,   96,
-       96,  178,  178,  178,   85,   85,   85,  107,  107,  352,
-       85,   85,   85,  107,  107,  183,  149,  149,  149,  107,
-      107,  148,  149,  149,  149,  107,  107,  148,  148,  148,
-      148,  148,  148,  148,   96,   96,   96,  195,  280,  196,
-      130,   85,  182,  633,  197,   98,  148,  100,  693,  154,
-      154,  154,  154,  149,   85,  113,  667,  107,  340,   85,
-
-       85,  436,  184,  107,  340,  344,  149,  265,  172,  107,
-      280,  149,  149,  187,  413,  107,  145,  145,  145,  145,
-       86,   86,   86,   86,  189,   96,   96,   96,  345,  267,
-      268,  148,   85,   85,   85,   85,  185,  148,  148,  148,
-      148,  148,  148,  148,   85,  186,   85,  107,   85,  158,
-      345,  109,  159,  159,  159,  159,  160,  437,  149,  107,
-      149,   96,   96,   96,  249,  249,  249,  249,  249,  249,
-      249,  249,  146,  202,  264,  203,  414,  354,  158,  406,
-      204,  658,  161,  161,  161,  161,  161,  161,  161,  161,
-      161,  161,  161,  161,  249,  249,  249,  249,  253,  145,
-
-      145,  145,  145,  257,  283,  158,  174,   85,  693,  175,
-      175,  175,  175,  176,   85,  262,  263,  355,   85,  149,
-      148,  148,  148,  148,  415,   85,  149,  666,  254,  218,
-      149,  301,  301,  301,  301,  177,  218,  149,  146,  178,
-      178,  179,  179,  179,  179,  179,  179,  179,  179,  179,
-      179,  206,  279,  207,  373,  146,  284,  483,  218,  374,
-      375,  484,  177,  111,   85,  109,  193,  193,  193,  193,
-      111,   85,  292,  292,  292,  292,  149,   85,  317,  292,
-      292,  292,  292,  149,  376,  218,  416,  444,  318,  149,
-      258,  258,  111,  377,  419,  318,  194,  194,  194,  194,
-
-      194,  194,  194,  194,  194,  194,  194,  194,  420,  295,
-      319,  319,  319,  319,  320,  320,  320,  320,  130,  111,
-      209,  209,  209,  209,  209,  209,  209,  209,  209,  209,
-      209,  209,   85,   85,  281,  106,  588,  211,  380,  654,
-       85,   85,   85,   85,  212,  149,  438,  439,  213,  213,
-      213,  213,  213,  213,  213,  213,  213,  213,   85,   85,
-       85,   85,   85,   85,   85,   85,  211,  481,  438,  440,
-      214,  214,  214,  214,  214,  214,  214,  214,  214,  214,
-      214,  214,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,   85,   85,  211,   85,  216,   85,   85,  217,  217,
-
-      217,  217,  218,   85,   85,  312,  106,  661,  149,  149,
-       85,  292,  292,  292,  292,  149,  149,  321,  321,  321,
-      321,  466,  149,  466,  216,  369,  146,  541,  214,  214,
-      214,  214,  214,  214,  214,  214,  214,  214,  214,  214,
-      323,  323,  323,  323,  363,  296,  659,  364,  297,  264,
-      298,  216,  219,   85,  220,  693,  316,  365,  221,  222,
-      106,   85,  693,  223,  468,  149,  224,  324,  324,  324,
-      324,  457,  368,  149,  219,   85,  220,  325,  325,  325,
-      325,  658,  221,  222,  693,  456,  146,  149,  223,  324,
-      324,  324,  324,  224,  126,  127,  127,  127,  126,  126,
-
-      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
-      381,  693,  512,  393,  126,  126,  126,  126,  458,  382,
-      444,  341,  527,  218,  398,  655,  307,  307,  307,  307,
-      218,  324,  324,  324,  324,  106,  512,  126,  130,  126,
-       85,   85,   85,   85,   85,   85,   85,   85,   85,   85,
-       85,  522,  218,  324,  324,  324,  324,  235,  235,  235,
-      236,  457,  149,  342,  651,  126,  126,  126,  235,  235,
-      235,  236,   85,  126,  126,  126,  126,  126,  126,  218,
-      528,  126,  126,   85,  149,  240,   85,  126,  126,   85,
-      126,  359,  359,  359,  359,  149,  248,  534,  149,  573,
-
-      130,  149,  350,  360,  360,  360,  360,   85,  364,  250,
-      126,  130,  550,  693,  395,  383,  383,  383,  383,  149,
-      693,  693,  693,  693,   85,  106,  693,  511,  651,  396,
-      476,  372,  372,  372,  372,  397,  149,  362,  126,  126,
-      238,  238,  238,  238,  238,  238,  238,  238,  238,  238,
-      238,  238,   85,  239,  693,   85,  240,  241,  146,  646,
-       85,   85,   85,   85,  242,  645,  243,  149,  244,  244,
-      244,  244,  244,  244,  244,  244,  244,  244,  244,  244,
-      244,  244,  244,  244,  244,  244,  245,  146,  589,  106,
-      246,  246,  246,  246,  246,  246,  246,  246,  246,  246,
-
-      246,  246,  244,  244,  244,  244,  244,  244,  244,  244,
-      244,  244,  244,  245,  244,  135,  135,  135,  135,  135,
-      135,  135,  135,  135,  135,  135,  135,  248,  644,   85,
-      417,  240,  592,  644,  249,  249,  249,  249,  605,  516,
-      250,  149,  251,  251,  251,  251,  251,  251,  251,  251,
-      251,  251,  251,  251,  251,  251,  251,  251,  251,  251,
-      251,  517,   85,   85,  368,   85,  641,   85,  252,   96,
-       96,   96,  405,  344,  149,  149,   85,  149,   85,  149,
-       98,  148,  100,  693,  154,  154,  154,  154,  149,   85,
-      149,  146,  418,  264,   85,  614,  394,  384,  384,  384,
-
-      384,  149,  385,  385,  385,  385,  149,  148,  148,  148,
-      148,  148,  148,  148,  148,  148,  148,  614,  394,   85,
-      399,  408,  408,  408,  408,  514,  148,  385,  385,  385,
-      385,  149,  148,  148,  148,  148,  148,  148,  148,   85,
-      409,  409,  409,  409,  560,   85,  421,  421,  421,  421,
-      514,  149,   85,  385,  385,  385,  385,  149,  561,  391,
-      385,  385,  385,  385,  149,  427,  427,  427,  427,  359,
-      359,  359,  359,  449,  449,  449,  449,  269,  269,  269,
-      269,  269,  269,  269,  269,  269,  269,  269,  269,   85,
-      326,  640,  392,  327,  270,  542,  329,  148,  148,  148,
-
-      148,  271,  399,  331,  543,  272,  272,  272,  272,  272,
-      272,  272,  272,  272,  272,  148,  148,  148,  148,  148,
-      148,  148,  148,  270,  445,  445,  445,  273,  273,  273,
-      273,  273,  273,  273,  273,  273,  273,  273,  273,  148,
-      148,  148,  148,  148,  148,  148,  148,  148,  148,  148,
-      270,  148,  274,  638,  106,  275,  275,  275,  275,  276,
-       85,   85,  240,   85,  611,   85,   91,  446,  401,  401,
-      401,  401,  149,  149,  637,  149,  461,  149,   93,  106,
-      106,  274,  106,   95,  632,  273,  273,  273,  273,  273,
-      273,  273,  273,  273,  273,  273,  273,  486,  486,  486,
-
-      486,  391,  566,  392,  532,  379,  532,  477,  274,  286,
-      286,  286,  286,  286,  286,  286,  286,  286,  286,  286,
-      286,   85,  239,  146,  499,  240,  287,  647,  647,  148,
-      148,  148,  148,  288,  567,  243,  500,  289,  289,  289,
-      289,  289,  289,  289,  289,  289,  289,  289,  289,  289,
-      289,  289,  289,  289,  289,  290,  445,  445,  445,  291,
-      291,  291,  291,  291,  291,  291,  291,  291,  291,  291,
-      291,  289,  289,  289,  289,  289,  289,  289,  289,  289,
-      289,  289,  290,  289,  178,  178,  178,  178,  178,  178,
-      178,  178,  178,  178,  178,  178,   85,  248,  631,  446,
-
-      630,  148,  106,  648,  292,  292,  292,  292,  149,  674,
-      250,  629,  293,  293,  293,  293,  293,  293,  293,  293,
-      293,  293,  293,  293,  293,  293,  293,  293,  293,  293,
-      293,  532,  379,  532,  148,  148,  148,  148,  294,  148,
-      148,  148,  148,  148,  148,  148,  148,  148,  148,  148,
-      148,  148,  148,  148,  148,  148,  148,  148,  148,  213,
-      213,  213,  213,  213,  213,  213,  213,  213,  213,  523,
-      523,  523,  626,  460,  460,  460,  460,  106,  625,  146,
-      618,  214,  214,  214,  214,  214,  214,  214,  214,  214,
-      214,  214,  214,  322,  322,  322,  322,  322,  322,  322,
-
-      322,  322,  322,  202,  617,  203,  544,  544,  544,  544,
-      204,  106,  524,  692,  258,  306,  306,  306,  306,  306,
-      306,  306,  306,  306,  306,  306,  306,   85,  326,  146,
-       85,  327,  328,  533,  329,   85,   85,   85,   85,  330,
-      614,  331,  149,  332,  332,  332,  332,  332,  332,  332,
-      332,  332,  332,  332,  332,  332,  332,  332,  332,  332,
-      332,  333,  614,  606,  613,  334,  334,  334,  334,  334,
-      334,  334,  334,  334,  334,  334,  334,   85,   85,   85,
-       85,   85,   85,   85,   85,   85,   85,   85,  328,   85,
-      126,  235,  235,  235,  236,   85,  126,  126,  126,  126,
-
-      126,  126,   85,  264,  126,  126,  106,  149,  369,  596,
-      126,  126,  417,  126,  149,  330,  318,  693,  693,  693,
-      693,  693,  330,  318,  693,   85,  693,  327,  462,   85,
-      693,  693,  615,  126,  130,  208,  208,  149,  463,  624,
-      101,  149,   85,  450,  330,  103,  451,   85,  693,  452,
-       85,   85,   85,   85,  616,  404,  453,   85,  693,  595,
-       85,  126,  126,  248,  620,  470,  470,  470,  470,  149,
-      106,  330,  149,  596,  418,  693,  250,  471,  251,  251,
-      251,  251,  251,  251,  251,  251,  251,  251,  251,  251,
-      251,  251,  251,  251,  251,  251,  251,  612,  146,  622,
-
-      210,  210,  478,  639,  252,  357,  357,  357,  357,  357,
-      357,  357,  357,  357,  357,  357,  357,  363,  106,   85,
-      364,  623,  619,  523,  523,  523,  542,  652,  106,  604,
-      365,  149,  366,  366,  366,  366,  366,  366,  366,  366,
-      366,  366,  366,  366,  366,  366,  366,  366,  366,  366,
-      366,   85,   85,   85,  364,  436,   85,   85,  367,   85,
-       85,  603,  146,  149,  149,  149,  524,  472,  149,  149,
-      668,  149,  149,  508,  474,  272,  272,  272,  272,  272,
-      272,  272,  272,  272,  272,  634,  146,  508,  508,  563,
-      563,  563,  563,  602,  182,  538,  475,  273,  273,  273,
-
-      273,  273,  273,  273,  273,  273,  273,  273,  273,   85,
-      326,  473,   85,  327,  386,  665,  329,  148,  148,  148,
-      148,  387,  614,  331,  149,  388,  388,  388,  388,  388,
-      388,  388,  388,  388,  388,  388,  388,  388,  388,  388,
-      388,  388,  388,  389,  614,  146,  598,  390,  390,  390,
-      390,  390,  390,  390,  390,  390,  390,  390,  390,  148,
-      148,  148,  148,  148,  148,  148,  148,  148,  148,  148,
-      386,  148,   85,  248,  146,   85,  598,  676,  676,  215,
-      215,  457,  597,  656,  149,  614,  250,  149,  293,  293,
-      293,  293,  293,  293,  293,  293,  293,  293,  293,  293,
-
-      293,  293,  293,  293,  293,  293,  293,  614,   85,  579,
-       85,  594,  513,   85,  294,   85,  401,  401,  401,  401,
-      149,   85,  149,  422,  547,  149,  423,  149,  480,  424,
-      537,  693,  450,  149,  693,  451,  425,  693,  452,   85,
-       85,  514,  423,  593,  693,  453,  106,  146,  146,  614,
-      515,  149,  149,  400,  400,  400,  400,  400,  400,  400,
-      400,  400,  400,  400,  400,  363,  514,   85,  364,  569,
-      568,  614,  676,  264,  247,  247,  587,  643,  365,  149,
-      402,  402,  402,  402,  402,  402,  402,  402,  402,  402,
-      402,  402,  402,  402,  402,  402,  402,  402,  402,  693,
-
-      508,  672,  693,  586,  113,  693,  403,  326,  585,   85,
-      327,  330,  693,  329,  508,  508,  670,  540,  330,  561,
-      331,  149,  410,  410,  410,  410,  410,  410,  410,  410,
-      410,  410,  410,  410,  410,  410,  410,  410,  410,  410,
-      411,  584,  691,  584,  412,  412,  412,  412,  412,  412,
-      412,  412,  412,  412,  412,  412,  450,  450,  653,  693,
-      693,  436,  693,  693,   85,   85,   85,  330,  326,  693,
-      693,  327,  654,  583,  329,  146,  149,  149,  149,  358,
-      358,  331,  582,  332,  332,  332,  332,  332,  332,  332,
-      332,  332,  332,  332,  332,  332,  332,  332,  332,  332,
-
-      332,  332,  422,  483,  106,  423,  610,  581,  424,  544,
-      544,  544,  544,  580,  553,  425,  539,  426,  426,  426,
-      426,  426,  426,  426,  426,  426,  426,  426,  426,  426,
-      426,  426,  426,  426,  426,  426,  334,  334,  334,  334,
-      334,  334,  334,  334,  334,  334,  334,  334,  326,  553,
-       85,  327,  451,  662,  329,  579,  578,  577,  576,  575,
-      502,  331,  149,  388,  388,  388,  388,  388,  388,  388,
-      388,  388,  388,  388,  388,  388,  388,  388,  388,  388,
-      388,  388,  113,   85,  574,  501,  379,   85,  502,  148,
-      422,  503,   85,  423,  502,  149,  424,  673,  504,  149,
-
-      565,  564,  364,  425,  149,  469,  469,  469,  469,  469,
-      469,  469,  469,  469,  469,  469,  469,  469,  469,  469,
-      469,  469,  469,  469,  390,  390,  390,  390,  390,  390,
-      390,  390,  390,  390,  390,  390,   85,  450,  614,  590,
-      451,  148,  642,  452,  148,  148,  148,  148,  149,  693,
-      453,  501,  693,  373,  502,  693,  146,  503,  374,  375,
-      614,  451,  693,  562,  504,  559,  505,  505,  505,  505,
-      505,  505,  505,  505,  505,  505,  505,  505,  505,  505,
-      505,  505,  505,  505,  505,  501,  558,   85,  502,  557,
-      556,  503,  563,  563,  563,  563,  555,  621,  504,  149,
-
-      535,  535,  535,  535,  535,  535,  535,  535,  535,  535,
-      535,  535,  535,  535,  535,  535,  535,  535,  535,   85,
-       85,   85,   85,   85,  614,  379,  379,  379,  554,  570,
-      553,  149,  149,  149,  149,  149,  139,  614,  627,  379,
-      551,  549,  548,  571,  614,  536,  614,  502,  528,  649,
-      501,  676,  590,  636,  636,  636,  501,  656,  572,  614,
-      628,  547,  677,  571,  546,  669,  614,  636,  498,  536,
-      379,  650,  379,  498,  496,  636,  636,  636,  379,  379,
-      591,  599,  599,  496,  599,  599,  599,  599,  599,  636,
-      599,  599,  599,  599,  494,  599,  599,  676,  636,  494,
-
-      636,  599,  599,  599,  599,  492,  636,  636,  678,  492,
-      663,  601,  676,  490,  490,  488,  676,  488,  669,  676,
-      636,  146,  636,  679,  599,  599,  599,  680,  636,  636,
-      681,  676,  676,  601,  676,  664,  423,  676,  676,  676,
-      676,  530,  682,  683,  529,  684,  206,  200,  685,  686,
-      687,  688,  599,  599,  599,  599,  368,  599,  599,  599,
-      599,  599,  600,  599,  599,  599,  599,  146,  599,  599,
-      676,  526,  364,  451,  608,  599,  599,  599,  448,  113,
-      521,  689,  146,  676,  609,  520,  146,  519,  518,  146,
-      436,  113,  511,  510,  690,  509,  507,  599,  599,  599,
-
-      506,  146,  146,  423,  146,  422,  609,  146,  146,  146,
-      146,  422,  420,  498,  496,  494,  492,  490,  488,  327,
-      327,  482,  327,  261,  379,  599,  599,  599,  599,  465,
-      599,  599,  599,  599,  599,  464,  599,  599,  599,  599,
-      146,  599,  599,   87,  201,  459,  364,  599,  599,  599,
-      599,  363,  368,  146,  240,  448,  443,  601,  442,  441,
-      201,  435,  434,  433,  432,  431,  430,  429,  428,  327,
-      599,  599,  599,  327,  326,  326,  206,  206,  201,  601,
-      200,  200,  200,  305,  305,  303,  303,  407,  240,  261,
-      261,  261,  260,  379,  260,  350,  371,  342,  599,  599,
-
-      599,  599,  341,  599,  599,  599,  599,  599,  600,  599,
-      599,  599,  599,  368,  599,  599,  248,  240,  240,  239,
-      608,  599,  599,  599,  349,  348,  347,  346,  343,  339,
-      609,  338,  337,  336,  335,  316,  316,  315,  314,  313,
-      312,  312,  311,  599,  599,  599,  310,  309,  308,  305,
-      303,  300,  609,  261,  285,  283,  282,  281,  278,  277,
-      261,  261,  260,  146,  256,  231,  201,  255,  229,  130,
-      233,  599,  599,   85,  232,  231,   85,  201,  230,   85,
-      229,   85,   85,   85,   85,   85,   85,   85,   90,   90,
-      228,  228,  227,  226,   90,   90,  104,  104,  104,  225,
-
-      104,  104,  104,  104,  104,  104,  104,  104,  104,  104,
-      104,  104,  104,  105,  105,  105,  105,  105,  105,  105,
-      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
-      105,  129,  129,  129,  129,  129,  129,  129,  129,  129,
-      129,  129,  129,  129,  129,  129,  129,  129,  129,  144,
-      144,  144,  144,  144,  144,  144,  144,  144,  144,  144,
-      144,  144,  144,  144,  144,  144,  144,  148,  106,  206,
-      148,  205,  200,  148,  148,  148,  148,  148,  148,  148,
-      148,  148,  156,  156,  156,  201,  156,  156,  156,  156,
-      156,  156,  156,  156,  156,  156,  156,  156,  156,   98,
-
-       98,  200,  192,   98,  188,  164,  163,  147,  116,   98,
-       98,   98,   98,  115,   98,  126,  126,  126,  126,  126,
-      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
-      126,  126,  126,  237,  237,  237,  237,  237,  237,  237,
-      237,  237,  237,  237,  237,  237,  237,  237,  237,  237,
-      237,  259,  259,  259,  259,  259,  259,  259,  259,  259,
-      259,  259,  259,  259,  259,  259,  259,  259,  259,  266,
-      266,  266,  266,  266,  266,  266,  266,  266,  266,  266,
-      266,  266,  266,  266,  266,  266,  266,  302,  302,  106,
-      302,  302,  302,  302,  302,  302,  302,  302,  302,  302,
-
-      302,  302,  302,  302,  302,  304,  304,   87,  304,  304,
-      304,  304,  304,  304,  304,  304,  304,  304,  304,  304,
-      304,  304,  304,  306,  693,  693,  693,  306,  693,  306,
-      306,  306,  693,  693,  306,  351,  351,  351,  351,  351,
-      351,  351,  351,  351,  351,  351,  351,  351,  351,  351,
-      351,  351,  351,  126,  126,  126,  126,  126,  126,  126,
-      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
-      126,  353,  353,  353,  353,  353,  353,  353,  353,  353,
-      353,  353,  353,  353,  353,  353,  353,  353,  353,  237,
-      237,  237,  237,  237,  237,  237,  237,  237,  237,  237,
-
-      237,  237,  237,  237,  237,  237,  237,  356,  356,  356,
-      356,  356,  356,  356,  361,  693,  693,  693,  693,  361,
-      693,  361,  361,  693,  361,  259,  259,  259,  259,  259,
-      259,  259,  259,  259,  259,  259,  259,  259,  259,  259,
-      259,  259,  259,  378,  378,  378,  378,  378,  378,  378,
-      378,  378,  378,  378,  378,  378,  378,  378,  378,  378,
-      378,  266,  266,  266,  266,  266,  266,  266,  266,  266,
-      266,  266,  266,  266,  266,  266,  266,  266,  266,  105,
-      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
-      105,  105,  105,  105,  105,  105,  105,  302,  302,  693,
-
-      302,  302,  302,  302,  302,  302,  302,  302,  302,  302,
-      302,  302,  302,  302,  302,  304,  304,  693,  304,  304,
-      304,  304,  304,  304,  304,  304,  304,  304,  304,  304,
-      304,  304,  304,  412,  693,  693,  693,  412,  693,  412,
-      412,  412,  693,  693,  412,  410,  410,  693,  693,  410,
-      693,  693,  410,  410,  351,  351,  351,  351,  351,  351,
-      351,  351,  351,  351,  351,  351,  351,  351,  351,  351,
-      351,  351,  353,  353,  353,  353,  353,  353,  353,  353,
-      353,  353,  353,  353,  353,  353,  353,  353,  353,  353,
-      126,  126,  126,  126,  126,  126,  126,  126,  126,  126,
-
-      126,  126,  126,  126,  126,  126,  126,  126,  447,  447,
-      447,  447,  447,  447,  447,  447,  447,  447,  447,  447,
-      447,  447,  447,  447,  447,  447,  454,  454,  454,  454,
-      693,  454,  454,  693,  454,  454,  454,  454,  454,  454,
-      454,  455,  455,  693,  693,  693,  693,  693,  455,  455,
-      693,  455,  378,  378,  378,  378,  378,  378,  378,  378,
-      378,  378,  378,  378,  378,  378,  378,  378,  378,  378,
-      105,  105,  105,  105,  105,  105,  105,  105,  105,  105,
-      105,  105,  105,  105,  105,  105,  105,  105,  479,  479,
-      479,  479,  693,  479,  479,  479,  479,  479,  479,  479,
-
-      479,  479,  479,  485,  485,  693,  693,  485,  693,  693,
-      485,  485,  487,  487,  693,  487,  487,  487,  487,  487,
-      487,  487,  487,  487,  487,  487,  487,  487,  487,  487,
-      489,  489,  693,  489,  489,  489,  489,  489,  489,  489,
-      489,  489,  489,  489,  489,  489,  489,  489,  491,  491,
-      693,  491,  491,  491,  491,  491,  491,  491,  491,  491,
-      491,  491,  491,  491,  491,  491,  493,  493,  693,  493,
-      493,  493,  493,  493,  493,  493,  493,  493,  493,  493,
-      493,  493,  493,  493,  495,  495,  693,  495,  495,  495,
-      495,  495,  495,  495,  495,  495,  495,  495,  495,  495,
-
-      495,  495,  497,  497,  693,  497,  497,  497,  497,  497,
-      497,  497,  497,  497,  497,  497,  497,  497,  497,  497,
-      525,  525,  693,  693,  525,  693,  693,  525,  525,  525,
-      525,  525,  525,  525,  531,  531,  531,  531,  531,  531,
-      531,  531,  531,  531,  531,  531,  531,  531,  531,  531,
-      531,  531,  545,  545,  693,  693,  545,  693,  693,  545,
-      545,  552,  552,  693,  552,  552,  552,  552,  552,  552,
-      552,  552,  552,  552,  552,  552,  552,  552,  552,  600,
-      600,  693,  600,  600,  600,  600,  600,  600,  600,  600,
-      600,  600,  600,  600,  600,  600,  600,  607,  607,  693,
-
-      607,  607,  607,  607,  607,  607,  607,  607,  607,  607,
-      607,  607,  607,  607,  607,  599,  599,  693,  599,  599,
-      599,  599,  599,  599,  599,  599,  599,  599,  599,  599,
-      599,  599,  599,  635,  635,  635,  635,  635,  635,  635,
-      635,  635,  635,  635,  635,  635,  635,  635,  635,  635,
-      635,  657,  657,  657,  657,  657,  657,  657,  657,  657,
-      657,  657,  657,  657,  657,  657,  657,  657,  657,  660,
-      660,  660,  660,  660,  660,  660,  660,  660,  660,  660,
-      660,  660,  660,  660,  660,  660,  660,  675,  675,  675,
-      675,  675,  675,  675,  675,  675,  675,  675,  675,  675,
-
-      675,  675,  675,  675,  675,    3,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693
-    } ;
-
-static yyconst flex_int16_t yy_chk[3880] =
-    {   0,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    5,    6,    6,    6,
-        6,    8,    8,    8,    8,   11,   11,   12,   17,   20,
-       22,   22,   22,   22,   52,   52,  236,   12,    5,   12,
-       12,   29,   41,  381,   12,   13,   13,   13,   21,   21,
-       21,   21,   13,   20,   41,   43,   13,   13,   13,   13,
-       13,   13,   13,   13,   13,   23,  671,   43,   23,   23,
-
-       23,   23,   24,   24,   24,   24,  236,   30,   21,   30,
-       30,   48,   17,   54,   30,   26,   29,  381,   23,   25,
-       25,   25,   25,   48,   43,   29,   36,   36,   26,   26,
-       26,   26,   13,   36,   36,   36,   24,   87,   13,   13,
-       13,   13,   13,   13,   13,   14,   14,   14,   92,   92,
-       32,   32,   14,   32,   32,   32,   14,   14,   14,   14,
-       14,   14,   14,   14,   14,   26,  128,   54,   25,   31,
-       31,   31,   31,   31,   33,   33,   34,   57,   33,   33,
-       33,  146,  146,   35,   35,  155,   31,   34,   34,   35,
-       35,   35,   34,   34,   34,   37,   37,  128,  155,   87,
-
-       34,   57,   14,   37,   37,   37,   40,  667,   14,   14,
-       14,   14,   14,   14,   14,   16,  234,   16,   40,   16,
-       16,   16,   16,   16,   16,   38,   38,   16,   39,   39,
-       59,   59,   59,   59,   38,   38,   38,   44,   39,   39,
-      666,   40,   46,   46,   46,   46,   16,  234,  152,   44,
-       16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
-       16,   16,  152,  252,   71,   71,   61,   61,   61,   61,
-       71,   71,   71,   16,   27,   27,   27,   27,   27,   27,
-       27,   27,   27,   27,   27,   27,   27,   27,   27,   27,
-       42,   44,   42,   45,   27,   27,   27,   27,   46,   49,
-
-       61,   45,   42,  148,   49,   58,   58,   58,   58,   49,
-      252,   49,   49,   45,   65,  148,   49,   27,   27,   27,
-      187,   60,   75,   75,   60,   60,   60,   60,   62,   62,
-       62,   62,   75,   75,   66,   58,   66,   66,  101,   42,
-      101,   66,   63,   45,   60,   27,   27,   28,  156,   28,
-       28,   28,   28,   28,   28,   63,   63,   63,   63,   65,
-      156,   67,   67,   67,   67,   67,   68,   68,   65,   68,
-       68,   68,   84,   84,   84,   84,   28,   62,   67,  187,
-       28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
-       28,   28,   63,   69,   69,  157,  157,   69,   69,   69,
-
-       72,   72,  151,   28,   50,   50,   50,   72,   72,   72,
-      151,   50,  660,   70,  151,   50,   50,   50,   50,   50,
-       50,   50,   50,   50,   70,   70,   73,   73,  619,   70,
-       70,   70,   74,   74,   73,   73,   73,   70,   96,   96,
-       96,   74,   74,   74,   76,   77,  165,   76,   77,  351,
-       78,   80,  166,   78,   80,   78,   76,   77,  165,   76,
-       77,   50,   78,   80,  166,   78,   80,   50,   50,   50,
-       50,   50,   50,   50,   51,   51,   51,   91,  165,   91,
-      351,   51,   76,  619,   91,   51,   51,   51,   51,   51,
-       51,   51,   51,   51,   79,   81,  659,   79,  224,  153,
-
-       81,  343,   78,   81,  224,  228,   79,  153,   80,   79,
-      166,  153,   81,   82,  312,   81,   82,   82,   82,   82,
-       86,   86,   86,   86,   86,  100,  100,  100,  228,  266,
-      266,   51,  119,  119,  119,  119,   79,   51,   51,   51,
-       51,   51,   51,   51,   53,   81,  170,   53,  185,   53,
-      228,   53,   53,   53,   53,   53,   53,  343,  170,   53,
-      185,   97,   97,   97,  136,  136,  136,  136,  137,  137,
-      137,  137,   82,   97,  170,   97,  312,  353,   53,  299,
-       97,  657,   53,   53,   53,   53,   53,   53,   53,   53,
-       53,   53,   53,   53,  138,  138,  138,  138,  137,  145,
-
-      145,  145,  145,  145,  185,   53,   64,  150,   64,   64,
-       64,   64,   64,   64,  164,  150,  150,  353,  172,  150,
-      167,  167,  167,  167,  316,  264,  164,  655,  138,  193,
-      172,  189,  189,  189,  189,   64,  193,  264,  299,   64,
-       64,   64,   64,   64,   64,   64,   64,   64,   64,   64,
-       64,  314,  164,  314,  258,  145,  172,  408,  193,  258,
-      258,  408,   64,   90,  179,   90,   90,   90,   90,   90,
-       90,  180,  179,  179,  179,  179,  179,  182,  207,  180,
-      180,  180,  180,  180,  260,  193,  316,  352,  207,  182,
-      528,  528,   90,  260,  318,  207,   90,   90,   90,   90,
-
-       90,   90,   90,   90,   90,   90,   90,   90,  318,  180,
-      208,  208,  208,  208,  209,  209,  209,  209,  352,   90,
-      108,  108,  108,  108,  108,  108,  108,  108,  108,  108,
-      108,  108,  110,  262,  182,  566,  566,  110,  262,  653,
-      110,  110,  110,  110,  110,  262,  344,  345,  110,  110,
-      110,  110,  110,  110,  110,  110,  110,  110,  110,  110,
-      110,  110,  110,  110,  110,  110,  110,  406,  344,  345,
-      110,  110,  110,  110,  110,  110,  110,  110,  110,  110,
-      110,  110,  110,  110,  110,  110,  110,  110,  110,  110,
-      110,  110,  110,  110,  110,  112,  183,  184,  112,  112,
-
-      112,  112,  112,  181,  186,  263,  382,  647,  183,  184,
-      263,  181,  181,  181,  181,  181,  186,  210,  210,  210,
-      210,  379,  263,  379,  112,  362,  406,  481,  112,  112,
-      112,  112,  112,  112,  112,  112,  112,  112,  112,  112,
-      213,  213,  213,  213,  360,  181,  646,  360,  183,  184,
-      186,  112,  113,  279,  113,  218,  265,  360,  113,  113,
-      268,  265,  218,  113,  382,  279,  113,  214,  214,  214,
-      214,  367,  362,  265,  113,  284,  113,  215,  215,  215,
-      215,  645,  113,  113,  218,  360,  481,  284,  113,  225,
-      225,  225,  225,  113,  127,  127,  127,  127,  127,  127,
-
-      127,  127,  127,  127,  127,  127,  127,  127,  127,  127,
-      268,  218,  435,  279,  127,  127,  127,  127,  367,  268,
-      444,  225,  460,  194,  284,  641,  194,  194,  194,  194,
-      194,  226,  226,  226,  226,  468,  435,  127,  127,  127,
-      216,  216,  216,  216,  216,  216,  216,  216,  216,  216,
-      384,  444,  194,  233,  233,  233,  233,  235,  235,  235,
-      235,  456,  384,  226,  638,  127,  127,  129,  129,  129,
-      129,  129,  281,  129,  129,  129,  129,  129,  129,  194,
-      460,  129,  129,  395,  281,  246,  397,  129,  129,  283,
-      129,  246,  246,  246,  246,  395,  247,  468,  397,  541,
-
-      235,  283,  233,  247,  247,  247,  247,  269,  456,  247,
-      129,  129,  509,  248,  281,  269,  269,  269,  269,  269,
-      248,  248,  248,  248,  282,  567,  248,  509,  637,  282,
-      397,  257,  257,  257,  257,  283,  282,  247,  129,  129,
-      131,  131,  131,  131,  131,  131,  131,  131,  131,  131,
-      131,  131,  132,  132,  248,  404,  132,  132,  541,  632,
-      132,  132,  132,  132,  132,  631,  132,  404,  132,  132,
-      132,  132,  132,  132,  132,  132,  132,  132,  132,  132,
-      132,  132,  132,  132,  132,  132,  132,  257,  567,  588,
-      132,  132,  132,  132,  132,  132,  132,  132,  132,  132,
-
-      132,  132,  132,  132,  132,  132,  132,  132,  132,  132,
-      132,  132,  132,  132,  132,  134,  134,  134,  134,  134,
-      134,  134,  134,  134,  134,  134,  134,  135,  630,  289,
-      576,  289,  573,  629,  135,  135,  135,  135,  588,  438,
-      135,  289,  135,  135,  135,  135,  135,  135,  135,  135,
-      135,  135,  135,  135,  135,  135,  135,  135,  135,  135,
-      135,  438,  293,  298,  293,  396,  626,  297,  135,  154,
-      154,  154,  297,  280,  293,  298,  154,  396,  280,  297,
-      154,  154,  154,  154,  154,  154,  154,  154,  154,  272,
-      280,  573,  576,  396,  273,  598,  280,  272,  272,  272,
-
-      272,  272,  273,  273,  273,  273,  273,  274,  274,  274,
-      274,  274,  274,  274,  274,  274,  274,  598,  280,  277,
-      298,  301,  301,  301,  301,  581,  154,  277,  277,  277,
-      277,  277,  154,  154,  154,  154,  154,  154,  154,  158,
-      306,  306,  306,  306,  520,  285,  322,  322,  322,  322,
-      581,  158,  278,  285,  285,  285,  285,  285,  520,  277,
-      278,  278,  278,  278,  278,  334,  334,  334,  334,  357,
-      357,  357,  357,  358,  358,  358,  358,  158,  158,  158,
-      158,  158,  158,  158,  158,  158,  158,  158,  158,  159,
-      325,  625,  278,  325,  159,  482,  325,  159,  159,  159,
-
-      159,  159,  285,  325,  482,  159,  159,  159,  159,  159,
-      159,  159,  159,  159,  159,  159,  159,  159,  159,  159,
-      159,  159,  159,  159,  354,  354,  354,  159,  159,  159,
-      159,  159,  159,  159,  159,  159,  159,  159,  159,  159,
-      159,  159,  159,  159,  159,  159,  159,  159,  159,  159,
-      159,  159,  161,  623,  533,  161,  161,  161,  161,  161,
-      291,  295,  291,  296,  592,  398,  374,  354,  291,  291,
-      291,  291,  291,  295,  622,  296,  374,  398,  374,  633,
-      672,  161,  534,  374,  618,  161,  161,  161,  161,  161,
-      161,  161,  161,  161,  161,  161,  161,  412,  412,  412,
-
-      412,  295,  533,  296,  466,  466,  466,  398,  161,  174,
-      174,  174,  174,  174,  174,  174,  174,  174,  174,  174,
-      174,  175,  175,  592,  420,  175,  175,  633,  672,  175,
-      175,  175,  175,  175,  534,  175,  420,  175,  175,  175,
-      175,  175,  175,  175,  175,  175,  175,  175,  175,  175,
-      175,  175,  175,  175,  175,  175,  445,  445,  445,  175,
-      175,  175,  175,  175,  175,  175,  175,  175,  175,  175,
-      175,  175,  175,  175,  175,  175,  175,  175,  175,  175,
-      175,  175,  175,  175,  177,  177,  177,  177,  177,  177,
-      177,  177,  177,  177,  177,  177,  178,  178,  617,  445,
-
-      616,  178,  634,  634,  178,  178,  178,  178,  178,  673,
-      178,  615,  178,  178,  178,  178,  178,  178,  178,  178,
-      178,  178,  178,  178,  178,  178,  178,  178,  178,  178,
-      178,  532,  532,  532,  178,  178,  178,  178,  178,  178,
-      178,  178,  178,  178,  178,  178,  178,  178,  178,  178,
-      178,  178,  178,  178,  178,  178,  178,  178,  178,  211,
-      211,  211,  211,  211,  211,  211,  211,  211,  211,  448,
-      448,  448,  613,  372,  372,  372,  372,  467,  612,  673,
-      604,  211,  211,  211,  211,  211,  211,  211,  211,  211,
-      211,  211,  211,  212,  212,  212,  212,  212,  212,  212,
-
-      212,  212,  212,  462,  603,  462,  484,  484,  484,  484,
-      462,  589,  448,  691,  691,  212,  212,  212,  212,  212,
-      212,  212,  212,  212,  212,  212,  212,  217,  217,  372,
-      480,  217,  217,  467,  217,  217,  217,  217,  217,  217,
-      599,  217,  480,  217,  217,  217,  217,  217,  217,  217,
-      217,  217,  217,  217,  217,  217,  217,  217,  217,  217,
-      217,  217,  599,  589,  597,  217,  217,  217,  217,  217,
-      217,  217,  217,  217,  217,  217,  217,  217,  217,  217,
-      217,  217,  217,  217,  217,  217,  217,  217,  217,  217,
-      237,  237,  237,  237,  237,  380,  237,  237,  237,  237,
-
-      237,  237,  294,  380,  237,  237,  606,  380,  294,  595,
-      237,  237,  317,  237,  294,  321,  317,  363,  326,  330,
-      363,  326,  321,  317,  326,  388,  330,  388,  375,  391,
-      363,  326,  601,  237,  237,  703,  703,  388,  375,  611,
-      375,  391,  359,  359,  321,  375,  359,  359,  330,  359,
-      359,  359,  359,  359,  601,  294,  359,  390,  363,  579,
-      399,  237,  237,  238,  606,  390,  390,  390,  390,  390,
-      605,  321,  399,  579,  317,  330,  238,  391,  238,  238,
-      238,  238,  238,  238,  238,  238,  238,  238,  238,  238,
-      238,  238,  238,  238,  238,  238,  238,  594,  611,  609,
-
-      704,  704,  399,  624,  238,  241,  241,  241,  241,  241,
-      241,  241,  241,  241,  241,  241,  241,  249,  662,  392,
-      249,  609,  605,  523,  523,  523,  593,  639,  620,  587,
-      249,  392,  249,  249,  249,  249,  249,  249,  249,  249,
-      249,  249,  249,  249,  249,  249,  249,  249,  249,  249,
-      249,  394,  402,  475,  402,  393,  536,  571,  249,  270,
-      393,  586,  624,  394,  402,  475,  523,  392,  536,  571,
-      662,  270,  393,  430,  394,  270,  270,  270,  270,  270,
-      270,  270,  270,  270,  270,  620,  639,  430,  430,  527,
-      527,  527,  527,  585,  536,  475,  394,  270,  270,  270,
-
-      270,  270,  270,  270,  270,  270,  270,  270,  270,  275,
-      275,  393,  610,  275,  275,  652,  275,  275,  275,  275,
-      275,  275,  656,  275,  610,  275,  275,  275,  275,  275,
-      275,  275,  275,  275,  275,  275,  275,  275,  275,  275,
-      275,  275,  275,  275,  656,  527,  583,  275,  275,  275,
-      275,  275,  275,  275,  275,  275,  275,  275,  275,  275,
-      275,  275,  275,  275,  275,  275,  275,  275,  275,  275,
-      275,  275,  286,  286,  652,  403,  582,  674,  675,  705,
-      705,  403,  580,  642,  286,  642,  286,  403,  286,  286,
-      286,  286,  286,  286,  286,  286,  286,  286,  286,  286,
-
-      286,  286,  286,  286,  286,  286,  286,  642,  400,  578,
-      474,  577,  436,  538,  286,  287,  400,  400,  400,  400,
-      400,  405,  474,  409,  575,  538,  409,  287,  403,  409,
-      474,  422,  449,  405,  422,  449,  409,  422,  449,  537,
-      469,  436,  469,  574,  422,  449,  668,  674,  675,  628,
-      436,  537,  469,  287,  287,  287,  287,  287,  287,  287,
-      287,  287,  287,  287,  287,  292,  436,  477,  292,  538,
-      537,  628,  690,  405,  708,  708,  565,  628,  292,  477,
-      292,  292,  292,  292,  292,  292,  292,  292,  292,  292,
-      292,  292,  292,  292,  292,  292,  292,  292,  292,  450,
-
-      508,  668,  450,  564,  471,  450,  292,  307,  562,  471,
-      307,  307,  450,  307,  508,  508,  665,  477,  307,  560,
-      307,  471,  307,  307,  307,  307,  307,  307,  307,  307,
-      307,  307,  307,  307,  307,  307,  307,  307,  307,  307,
-      307,  559,  690,  558,  307,  307,  307,  307,  307,  307,
-      307,  307,  307,  307,  307,  307,  452,  453,  640,  452,
-      453,  473,  452,  453,  591,  476,  473,  307,  320,  452,
-      453,  320,  640,  557,  320,  665,  591,  476,  473,  719,
-      719,  320,  556,  320,  320,  320,  320,  320,  320,  320,
-      320,  320,  320,  320,  320,  320,  320,  320,  320,  320,
-
-      320,  320,  324,  544,  648,  324,  591,  555,  324,  544,
-      544,  544,  544,  554,  553,  324,  476,  324,  324,  324,
-      324,  324,  324,  324,  324,  324,  324,  324,  324,  324,
-      324,  324,  324,  324,  324,  324,  328,  328,  328,  328,
-      328,  328,  328,  328,  328,  328,  328,  328,  383,  552,
-      479,  383,  479,  648,  383,  551,  549,  548,  547,  546,
-      545,  383,  479,  383,  383,  383,  383,  383,  383,  383,
-      383,  383,  383,  383,  383,  383,  383,  383,  383,  383,
-      383,  383,  478,  569,  543,  486,  531,  478,  486,  383,
-      385,  486,  535,  385,  535,  569,  385,  670,  486,  478,
-
-      530,  529,  526,  385,  535,  385,  385,  385,  385,  385,
-      385,  385,  385,  385,  385,  385,  385,  385,  385,  385,
-      385,  385,  385,  385,  386,  386,  386,  386,  386,  386,
-      386,  386,  386,  386,  386,  386,  401,  401,  627,  569,
-      401,  401,  627,  401,  401,  401,  401,  401,  401,  501,
-      401,  427,  501,  692,  427,  501,  670,  427,  692,  692,
-      627,  525,  501,  521,  427,  519,  427,  427,  427,  427,
-      427,  427,  427,  427,  427,  427,  427,  427,  427,  427,
-      427,  427,  427,  427,  427,  470,  518,  539,  470,  517,
-      516,  470,  563,  563,  563,  563,  515,  608,  470,  539,
-
-      470,  470,  470,  470,  470,  470,  470,  470,  470,  470,
-      470,  470,  470,  470,  470,  470,  470,  470,  470,  472,
-      540,  568,  570,  572,  608,  621,  635,  636,  514,  539,
-      513,  472,  540,  568,  570,  572,  512,  643,  614,  663,
-      510,  507,  506,  539,  614,  472,  608,  505,  563,  636,
-      504,  676,  568,  621,  635,  636,  503,  643,  540,  643,
-      614,  500,  676,  570,  499,  663,  614,  663,  498,  472,
-      664,  636,  669,  497,  496,  621,  635,  636,  649,  650,
-      572,  584,  584,  495,  584,  584,  584,  584,  584,  663,
-      584,  584,  584,  584,  494,  584,  584,  677,  664,  493,
-
-      669,  584,  584,  584,  584,  492,  649,  650,  677,  491,
-      649,  584,  678,  490,  489,  488,  679,  487,  664,  680,
-      664,  676,  669,  678,  584,  584,  584,  679,  649,  650,
-      680,  681,  682,  584,  683,  650,  485,  684,  685,  686,
-      687,  465,  681,  682,  464,  683,  463,  461,  684,  685,
-      686,  687,  584,  584,  590,  590,  459,  590,  590,  590,
-      590,  590,  590,  590,  590,  590,  590,  677,  590,  590,
-      688,  457,  455,  454,  590,  590,  590,  590,  447,  443,
-      442,  688,  678,  689,  590,  441,  679,  440,  439,  680,
-      437,  434,  433,  432,  689,  431,  429,  590,  590,  590,
-
-      428,  681,  682,  426,  683,  425,  590,  684,  685,  686,
-      687,  424,  419,  418,  417,  416,  415,  414,  413,  411,
-      410,  407,  389,  387,  378,  590,  590,  600,  600,  377,
-      600,  600,  600,  600,  600,  376,  600,  600,  600,  600,
-      688,  600,  600,  373,  371,  369,  366,  600,  600,  600,
-      600,  365,  361,  689,  356,  355,  350,  600,  349,  348,
-      347,  342,  341,  340,  339,  338,  337,  336,  335,  333,
-      600,  600,  600,  332,  331,  329,  315,  313,  311,  600,
-      310,  309,  308,  305,  304,  303,  302,  300,  290,  288,
-      276,  271,  267,  261,  259,  256,  255,  254,  600,  600,
-
-      607,  607,  253,  607,  607,  607,  607,  607,  607,  607,
-      607,  607,  607,  251,  607,  607,  250,  245,  244,  243,
-      607,  607,  607,  607,  232,  231,  230,  229,  227,  223,
-      607,  222,  221,  220,  219,  206,  205,  204,  203,  202,
-      200,  199,  198,  607,  607,  607,  197,  196,  195,  191,
-      190,  188,  607,  176,  173,  171,  169,  168,  163,  162,
-      160,  149,  147,  144,  143,  142,  141,  140,  139,  126,
-      125,  607,  607,  694,  124,  123,  694,  122,  121,  694,
-      120,  694,  694,  694,  694,  694,  694,  694,  695,  695,
-      118,  117,  116,  115,  695,  695,  696,  696,  696,  114,
-
-      696,  696,  696,  696,  696,  696,  696,  696,  696,  696,
-      696,  696,  696,  697,  697,  697,  697,  697,  697,  697,
-      697,  697,  697,  697,  697,  697,  697,  697,  697,  697,
-      697,  698,  698,  698,  698,  698,  698,  698,  698,  698,
-      698,  698,  698,  698,  698,  698,  698,  698,  698,  699,
-      699,  699,  699,  699,  699,  699,  699,  699,  699,  699,
-      699,  699,  699,  699,  699,  699,  699,  700,  105,  103,
-      700,   99,   95,  700,  700,  700,  700,  700,  700,  700,
-      700,  700,  701,  701,  701,   94,  701,  701,  701,  701,
-      701,  701,  701,  701,  701,  701,  701,  701,  701,  702,
-
-      702,   93,   89,  702,   83,   56,   55,   47,   19,  702,
-      702,  702,  702,   18,  702,  706,  706,  706,  706,  706,
-      706,  706,  706,  706,  706,  706,  706,  706,  706,  706,
-      706,  706,  706,  707,  707,  707,  707,  707,  707,  707,
-      707,  707,  707,  707,  707,  707,  707,  707,  707,  707,
-      707,  709,  709,  709,  709,  709,  709,  709,  709,  709,
-      709,  709,  709,  709,  709,  709,  709,  709,  709,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  711,  711,   15,
-      711,  711,  711,  711,  711,  711,  711,  711,  711,  711,
-
-      711,  711,  711,  711,  711,  712,  712,   10,  712,  712,
-      712,  712,  712,  712,  712,  712,  712,  712,  712,  712,
-      712,  712,  712,  713,    3,    0,    0,  713,    0,  713,
-      713,  713,    0,    0,  713,  714,  714,  714,  714,  714,
-      714,  714,  714,  714,  714,  714,  714,  714,  714,  714,
-      714,  714,  714,  715,  715,  715,  715,  715,  715,  715,
-      715,  715,  715,  715,  715,  715,  715,  715,  715,  715,
-      715,  716,  716,  716,  716,  716,  716,  716,  716,  716,
-      716,  716,  716,  716,  716,  716,  716,  716,  716,  717,
-      717,  717,  717,  717,  717,  717,  717,  717,  717,  717,
-
-      717,  717,  717,  717,  717,  717,  717,  718,  718,  718,
-      718,  718,  718,  718,  720,    0,    0,    0,    0,  720,
-        0,  720,  720,    0,  720,  721,  721,  721,  721,  721,
-      721,  721,  721,  721,  721,  721,  721,  721,  721,  721,
-      721,  721,  721,  722,  722,  722,  722,  722,  722,  722,
-      722,  722,  722,  722,  722,  722,  722,  722,  722,  722,
-      722,  723,  723,  723,  723,  723,  723,  723,  723,  723,
-      723,  723,  723,  723,  723,  723,  723,  723,  723,  724,
-      724,  724,  724,  724,  724,  724,  724,  724,  724,  724,
-      724,  724,  724,  724,  724,  724,  724,  725,  725,    0,
-
-      725,  725,  725,  725,  725,  725,  725,  725,  725,  725,
-      725,  725,  725,  725,  725,  726,  726,    0,  726,  726,
-      726,  726,  726,  726,  726,  726,  726,  726,  726,  726,
-      726,  726,  726,  727,    0,    0,    0,  727,    0,  727,
-      727,  727,    0,    0,  727,  728,  728,    0,    0,  728,
-        0,    0,  728,  728,  729,  729,  729,  729,  729,  729,
-      729,  729,  729,  729,  729,  729,  729,  729,  729,  729,
-      729,  729,  730,  730,  730,  730,  730,  730,  730,  730,
-      730,  730,  730,  730,  730,  730,  730,  730,  730,  730,
-      731,  731,  731,  731,  731,  731,  731,  731,  731,  731,
-
-      731,  731,  731,  731,  731,  731,  731,  731,  732,  732,
-      732,  732,  732,  732,  732,  732,  732,  732,  732,  732,
-      732,  732,  732,  732,  732,  732,  733,  733,  733,  733,
-        0,  733,  733,    0,  733,  733,  733,  733,  733,  733,
-      733,  734,  734,    0,    0,    0,    0,    0,  734,  734,
-        0,  734,  735,  735,  735,  735,  735,  735,  735,  735,
-      735,  735,  735,  735,  735,  735,  735,  735,  735,  735,
-      736,  736,  736,  736,  736,  736,  736,  736,  736,  736,
-      736,  736,  736,  736,  736,  736,  736,  736,  737,  737,
-      737,  737,    0,  737,  737,  737,  737,  737,  737,  737,
-
-      737,  737,  737,  738,  738,    0,    0,  738,    0,    0,
-      738,  738,  739,  739,    0,  739,  739,  739,  739,  739,
-      739,  739,  739,  739,  739,  739,  739,  739,  739,  739,
-      740,  740,    0,  740,  740,  740,  740,  740,  740,  740,
-      740,  740,  740,  740,  740,  740,  740,  740,  741,  741,
-        0,  741,  741,  741,  741,  741,  741,  741,  741,  741,
-      741,  741,  741,  741,  741,  741,  742,  742,    0,  742,
-      742,  742,  742,  742,  742,  742,  742,  742,  742,  742,
-      742,  742,  742,  742,  743,  743,    0,  743,  743,  743,
-      743,  743,  743,  743,  743,  743,  743,  743,  743,  743,
-
-      743,  743,  744,  744,    0,  744,  744,  744,  744,  744,
-      744,  744,  744,  744,  744,  744,  744,  744,  744,  744,
-      745,  745,    0,    0,  745,    0,    0,  745,  745,  745,
-      745,  745,  745,  745,  746,  746,  746,  746,  746,  746,
-      746,  746,  746,  746,  746,  746,  746,  746,  746,  746,
-      746,  746,  747,  747,    0,    0,  747,    0,    0,  747,
-      747,  748,  748,    0,  748,  748,  748,  748,  748,  748,
-      748,  748,  748,  748,  748,  748,  748,  748,  748,  749,
-      749,    0,  749,  749,  749,  749,  749,  749,  749,  749,
-      749,  749,  749,  749,  749,  749,  749,  750,  750,    0,
-
-      750,  750,  750,  750,  750,  750,  750,  750,  750,  750,
-      750,  750,  750,  750,  750,  751,  751,    0,  751,  751,
-      751,  751,  751,  751,  751,  751,  751,  751,  751,  751,
-      751,  751,  751,  752,  752,  752,  752,  752,  752,  752,
-      752,  752,  752,  752,  752,  752,  752,  752,  752,  752,
-      752,  753,  753,  753,  753,  753,  753,  753,  753,  753,
-      753,  753,  753,  753,  753,  753,  753,  753,  753,  754,
-      754,  754,  754,  754,  754,  754,  754,  754,  754,  754,
-      754,  754,  754,  754,  754,  754,  754,  755,  755,  755,
-      755,  755,  755,  755,  755,  755,  755,  755,  755,  755,
-
-      755,  755,  755,  755,  755,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693
-    } ;
-
-extern int yy_flex_debug;
-int yy_flex_debug = 0;
-
-static yy_state_type *yy_state_buf=0, *yy_state_ptr=0;
-static char *yy_full_match;
-static int yy_lp;
-static int yy_looking_for_trail_begin = 0;
-static int yy_full_lp;
-static int *yy_full_state;
-#define YY_TRAILING_MASK 0x2000
-#define YY_TRAILING_HEAD_MASK 0x4000
-#define REJECT \
-{ \
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ \
-yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
-(yy_lp) = (yy_full_lp); /* restore orig. accepting pos. */ \
-(yy_state_ptr) = (yy_full_state); /* restore orig. state */ \
-yy_current_state = *(yy_state_ptr); /* restore curr. state */ \
-++(yy_lp); \
-goto find_rule; \
-}
-
-#define yymore() yymore_used_but_not_detected
-#define YY_MORE_ADJ 0
-#define YY_RESTORE_YY_MORE_OFFSET
-char *yytext;
-#line 1 "parser.l"
-#line 8 "parser.l"
-/*
- * parser.l -- lex parser of algebraic chess moves for XBoard
- *
- * Copyright 1991 by Digital Equipment Corporation, Maynard,
- * Massachusetts.
- *
- * Enhancements Copyright 1992-2001, 2002, 2003, 2004, 2005,
- * 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
- *
- * The following terms apply to Digital Equipment Corporation's copyright
- * interest in XBoard:
- * ------------------------------------------------------------------------
- * All Rights Reserved
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notice appear in all copies and that
- * both that copyright notice and this permission notice appear in
- * supporting documentation, and that the name of Digital not be
- * used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission.
- *
- * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- * ------------------------------------------------------------------------
- *
- * The following terms apply to the enhanced version of XBoard
- * distributed by the Free Software Foundation:
- * ------------------------------------------------------------------------
- *
- * GNU XBoard is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or (at
- * your option) any later version.
- *
- * GNU XBoard is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see http://www.gnu.org/licenses/.  
- *
- *------------------------------------------------------------------------
- ** See the file ChangeLog for a revision history.  */
-
-/* This parser handles all forms of promotion.
- * The parser resolves ambiguous moves by searching and check-testing.
- * It also parses comments of the form [anything] or (anything).
- *
- * [HGM] Parser extensively modified for bigger boards, Shogi-like syntax,
- * and unknow pieces. All pieces are now mandatory upper case, but can be
- * any letter A-Z. Files must be lower case (as before), but can run upto 'l'.
- * Ranks can be 0-9. The parser returns 0 for off-board files and ranks.
- * For an unknown piece (as mover or promotion piece) it returns
- * IllegalMove, like it does when the piece doesn't match.
- * Promotions can now also be appended Shogi-style, a bare '=' or '+',
- * and this is then returned as promotion character. The piece indicator
- * can be prefixed by a '+' to indicate it is a promoted piece.
- */
-
-#include "config.h"
-
-#define NO_CONSTRAINT  -1
-#undef YYLMAX
-#define YYLMAX                 4096
-#define UNPUT_BUF_SIZE         YYLMAX
-
-#ifdef FLEX_SCANNER
-/* yytext is probably a char*, but could be a char[].  yy_text is set
-   in YY_DECL below, because if yytext is a char*, its value is not
-   constant. */
-char *yy_text;
-#else /*!FLEX_SCANNER*/
-/* yytext is definitely a char[], so yy_text can be set here, statically. */
-char *yy_text = (char *) yytext;
-#endif
-
-#ifdef FLEX_SCANNER
-/* This is flex */
-/* [AP] use prototypes in function declarations */
-#define YY_USE_PROTOS
-
-#ifdef YY_USE_PROTOS
-#define YY_PROTO(proto) proto
-#else
-#define YY_PROTO(proto) ()
-#endif
-/* end of [AP] fix */
-
-#undef YY_INPUT
-#define YY_INPUT(buf, result, max_size) my_yy_input(buf, &result, max_size)
-#undef YY_DECL
-#define YY_DECL                     \
-    int _yylex YY_PROTO((void));    \
-    int yylex YY_PROTO((void))      \
-    {                               \
-       int result = _yylex();      \
-       yy_text = (char *) yytext;  \
-       return(result);             \
-    }                               \
-    int _yylex YY_PROTO((void))
-#else
-/* This is lex */
-#undef input
-#undef output
-#undef unput
-#endif
-
-/* The includes must be here, below the #undef input */
-
-#include <ctype.h>
-
-#if STDC_HEADERS
-# include <stdlib.h>
-# include <string.h>
-#else /* not STDC_HEADERS */
-# if HAVE_STRING_H
-#  include <string.h>
-# else /* not HAVE_STRING_H */
-#  include <strings.h>
-# endif /* not HAVE_STRING_H */
-#endif /* not STDC_HEADERS */
-
-#if HAVE_UNISTD_H
-# include <unistd.h>
-#endif
-
-#if defined(_amigados)
-# include <errno.h>
-# if HAVE_FCNTL_H
-#  include <fcntl.h>    /*  isatty() prototype  */
-# endif /*  HAVE_FCNTL_H        */
-#endif  /*  defined(_amigados)  */
-
-#include "common.h"
-#include "backend.h"
-#include "frontend.h"
-#include "parser.h"
-#include "moves.h"
-
-extern int PosFlags P((int));
-
-extern Board   boards[MAX_MOVES];
-int            yyboardindex;
-int             yyskipmoves = FALSE;
-char           currentMoveString[YYLMAX];
-#ifndef FLEX_SCANNER
-char           unputBuffer[UNPUT_BUF_SIZE];
-int            unputCount = 0;
-#endif
-
-#ifdef FLEX_SCANNER
-void my_yy_input P((char *buf, int *result, int max_size));
-#else /*!FLEX_SCANNER*/
-static int input P((void));
-static void output P((int ch));
-static void unput P((int ch));
-int yylook P((void));
-int yyback P((int *, int));
-#endif
-#undef yywrap
-int yywrap P((void));
-extern void CopyBoard P((Board to, Board from));
-
-#line 1804 "parser.c"
-
-#define INITIAL 0
-
-#ifndef YY_NO_UNISTD_H
-/* Special case for "unistd.h", since it is non-ANSI. We include it way
- * down here because we want the user's section 1 to have been scanned first.
- * The user has a chance to override it with an option.
- */
-#include <unistd.h>
-#endif
-
-#ifndef YY_EXTRA_TYPE
-#define YY_EXTRA_TYPE void *
-#endif
-
-static int yy_init_globals (void );
-
-/* Accessor methods to globals.
-   These are made visible to non-reentrant scanners for convenience. */
-
-int yylex_destroy (void );
-
-int yyget_debug (void );
-
-void yyset_debug (int debug_flag  );
-
-YY_EXTRA_TYPE yyget_extra (void );
-
-void yyset_extra (YY_EXTRA_TYPE user_defined  );
-
-FILE *yyget_in (void );
-
-void yyset_in  (FILE * in_str  );
-
-FILE *yyget_out (void );
-
-void yyset_out  (FILE * out_str  );
-
-int yyget_leng (void );
-
-char *yyget_text (void );
-
-int yyget_lineno (void );
-
-void yyset_lineno (int line_number  );
-
-/* Macros after this point can all be overridden by user definitions in
- * section 1.
- */
-
-#ifndef YY_SKIP_YYWRAP
-#ifdef __cplusplus
-extern "C" int yywrap (void );
-#else
-extern int yywrap (void );
-#endif
-#endif
-
-    static void yyunput (int c,char *buf_ptr  );
-    
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char *,yyconst char *,int );
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * );
-#endif
-
-#ifndef YY_NO_INPUT
-
-#ifdef __cplusplus
-static int yyinput (void );
-#else
-static int input (void );
-#endif
-
-#endif
-
-/* Amount of stuff to slurp up with each read. */
-#ifndef YY_READ_BUF_SIZE
-#define YY_READ_BUF_SIZE 8192
-#endif
-
-/* Copy whatever the last rule matched to the standard output. */
-#ifndef ECHO
-/* This used to be an fputs(), but since the string might contain NUL's,
- * we now use fwrite().
- */
-#define ECHO fwrite( yytext, yyleng, 1, yyout )
-#endif
-
-/* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
- * is returned in "result".
- */
-#ifndef YY_INPUT
-#define YY_INPUT(buf,result,max_size) \
-       if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
-               { \
-               int c = '*'; \
-               int n; \
-               for ( n = 0; n < max_size && \
-                            (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
-                       buf[n] = (char) c; \
-               if ( c == '\n' ) \
-                       buf[n++] = (char) c; \
-               if ( c == EOF && ferror( yyin ) ) \
-                       YY_FATAL_ERROR( "input in flex scanner failed" ); \
-               result = n; \
-               } \
-       else \
-               { \
-               errno=0; \
-               while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
-                       { \
-                       if( errno != EINTR) \
-                               { \
-                               YY_FATAL_ERROR( "input in flex scanner failed" ); \
-                               break; \
-                               } \
-                       errno=0; \
-                       clearerr(yyin); \
-                       } \
-               }\
-\
-
-#endif
-
-/* No semi-colon after return; correct usage is to write "yyterminate();" -
- * we don't want an extra ';' after the "return" because that will cause
- * some compilers to complain about unreachable statements.
- */
-#ifndef yyterminate
-#define yyterminate() return YY_NULL
-#endif
-
-/* Number of entries by which start-condition stack grows. */
-#ifndef YY_START_STACK_INCR
-#define YY_START_STACK_INCR 25
-#endif
-
-/* Report a fatal error. */
-#ifndef YY_FATAL_ERROR
-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-#endif
-
-/* end tables serialization structures and prototypes */
-
-/* Default declaration of generated scanner - a define so the user can
- * easily add parameters.
- */
-#ifndef YY_DECL
-#define YY_DECL_IS_OURS 1
-
-extern int yylex (void);
-
-#define YY_DECL int yylex (void)
-#endif /* !YY_DECL */
-
-/* Code executed at the beginning of each rule, after yytext and yyleng
- * have been set up.
- */
-#ifndef YY_USER_ACTION
-#define YY_USER_ACTION
-#endif
-
-/* Code executed at the end of each rule. */
-#ifndef YY_BREAK
-#define YY_BREAK break;
-#endif
-
-#define YY_RULE_SETUP \
-       if ( yyleng > 0 ) \
-               YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
-                               (yytext[yyleng - 1] == '\n'); \
-       YY_USER_ACTION
-
-/** The main scanner function which does all the work.
- */
-YY_DECL
-{
-       register yy_state_type yy_current_state;
-       register char *yy_cp, *yy_bp;
-       register int yy_act;
-    
-#line 179 "parser.l"
-
-
-#line 1992 "parser.c"
-
-       if ( !(yy_init) )
-               {
-               (yy_init) = 1;
-
-#ifdef YY_USER_INIT
-               YY_USER_INIT;
-#endif
-
-        /* Create the reject buffer large enough to save one state per allowed character. */
-        if ( ! (yy_state_buf) )
-            (yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE  );
-            if ( ! (yy_state_buf) )
-                YY_FATAL_ERROR( "out of dynamic memory in yylex()" );
-
-               if ( ! (yy_start) )
-                       (yy_start) = 1; /* first start state */
-
-               if ( ! yyin )
-                       yyin = stdin;
-
-               if ( ! yyout )
-                       yyout = stdout;
-
-               if ( ! YY_CURRENT_BUFFER ) {
-                       yyensure_buffer_stack ();
-                       YY_CURRENT_BUFFER_LVALUE =
-                               yy_create_buffer(yyin,YY_BUF_SIZE );
-               }
-
-               yy_load_buffer_state( );
-               }
-
-       while ( 1 )             /* loops until end-of-file is reached */
-               {
-               yy_cp = (yy_c_buf_p);
-
-               /* Support of yytext. */
-               *yy_cp = (yy_hold_char);
-
-               /* yy_bp points to the position in yy_ch_buf of the start of
-                * the current run.
-                */
-               yy_bp = yy_cp;
-
-               yy_current_state = (yy_start);
-               yy_current_state += YY_AT_BOL();
-
-               (yy_state_ptr) = (yy_state_buf);
-               *(yy_state_ptr)++ = yy_current_state;
-
-yy_match:
-               do
-                       {
-                       register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-                       while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-                               {
-                               yy_current_state = (int) yy_def[yy_current_state];
-                               if ( yy_current_state >= 694 )
-                                       yy_c = yy_meta[(unsigned int) yy_c];
-                               }
-                       yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-                       *(yy_state_ptr)++ = yy_current_state;
-                       ++yy_cp;
-                       }
-               while ( yy_base[yy_current_state] != 3806 );
-
-yy_find_action:
-               yy_current_state = *--(yy_state_ptr);
-               (yy_lp) = yy_accept[yy_current_state];
-find_rule: /* we branch to this label when backing up */
-               for ( ; ; ) /* until we find what rule we matched */
-                       {
-                       if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
-                               {
-                               yy_act = yy_acclist[(yy_lp)];
-                               if ( yy_act & YY_TRAILING_HEAD_MASK ||
-                                    (yy_looking_for_trail_begin) )
-                                       {
-                                       if ( yy_act == (yy_looking_for_trail_begin) )
-                                               {
-                                               (yy_looking_for_trail_begin) = 0;
-                                               yy_act &= ~YY_TRAILING_HEAD_MASK;
-                                               break;
-                                               }
-                                       }
-                               else if ( yy_act & YY_TRAILING_MASK )
-                                       {
-                                       (yy_looking_for_trail_begin) = yy_act & ~YY_TRAILING_MASK;
-                                       (yy_looking_for_trail_begin) |= YY_TRAILING_HEAD_MASK;
-                                       }
-                               else
-                                       {
-                                       (yy_full_match) = yy_cp;
-                                       (yy_full_state) = (yy_state_ptr);
-                                       (yy_full_lp) = (yy_lp);
-                                       break;
-                                       }
-                               ++(yy_lp);
-                               goto find_rule;
-                               }
-                       --yy_cp;
-                       yy_current_state = *--(yy_state_ptr);
-                       (yy_lp) = yy_accept[yy_current_state];
-                       }
-
-               YY_DO_BEFORE_ACTION;
-
-do_action:     /* This label is used only to access EOF actions. */
-
-               switch ( yy_act )
-       { /* beginning of action switch */
-case 1:
-YY_RULE_SETUP
-#line 181 "parser.l"
-{
-    /*
-     * Fully-qualified algebraic move, possibly with promotion
-     */
-    int skip1 = 0, skip2 = 0, skip3 = 0, promoted = 0;
-    ChessSquare piece;
-    ChessMove result;
-    char c;
-    
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    if (yytext[0] == '+') skip1 = skip3 = promoted = 1; /* [HGM] Shogi promoted */
-
-    /* remove the / */
-    if (yytext[1+skip1] == '/')  skip1++; 
-    
-    /* remove the [xX:-] */
-    if ((yytext[3+skip1] == 'x') || (yytext[3+skip1] == 'X') ||
-        (yytext[3+skip1] == '-') || (yytext[3+skip1] == ':')) skip2 = 1;
-    
-    currentMoveString[0] = yytext[1+skip1];
-    currentMoveString[1] = yytext[2+skip1];
-    currentMoveString[2] = yytext[3+skip1+skip2];
-    currentMoveString[3] = yytext[4+skip1+skip2];
-    currentMoveString[4] = NULLCHAR;
-    
-    if (appData.debugMode) {
-        fprintf(debugFP, "Parser Qa1b2: yyleng=%d\n",
-        yyleng);
-    }
-
-    if (yyleng-skip1-skip2 > 5) { char c;
-        if (yytext[yyleng-1] == ')') {
-            c = currentMoveString[4] = ToLower(yytext[yyleng-2]);
-       } else {
-            c = currentMoveString[4] = ToLower(yytext[yyleng-1]);
-       }
-        if(c == '+' && gameInfo.variant != VariantShogi) c = currentMoveString[4] = NULLCHAR; // + means check outside Shogi
-       currentMoveString[5] = NULLCHAR;
-    }
-
-    if (appData.debugMode) {
-        fprintf(debugFP, "parser: %s\n", currentMoveString);
-    }
-    /* [HGM] do not allow values beyond board size */
-    if(currentMoveString[1] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[1] - ONE <  0            ||
-       currentMoveString[0] - AAA >= BOARD_RGHT   ||
-       currentMoveString[3] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[3] - ONE <  0            ||
-       currentMoveString[2] - AAA >= BOARD_RGHT   ||
-       currentMoveString[0] - AAA <  BOARD_LEFT   ||
-       currentMoveString[2] - AAA <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    piece = boards[yyboardindex]
-      [currentMoveString[1] - ONE][currentMoveString[0] - AAA];
-    if(PieceToChar(piece) == '+' && appData.icsActive) promoted = 1, yytext[skip3] = PieceToChar(DEMOTED piece); // trust ICS
-    if(promoted) piece = (ChessSquare) (DEMOTED piece);
-    c = PieceToChar(piece);
-    if(c == '~') c = PieceToChar((ChessSquare) (DEMOTED piece));
-    if (ToLower(yytext[skip3]) != ToLower(c))
-      return (int) IllegalMove;
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: might think we can e.p.!
-                          currentMoveString[1] - ONE,
-                          currentMoveString[0] - AAA,
-                          currentMoveString[3] - ONE,
-                          currentMoveString[2] - AAA,
-                         currentMoveString[4]);
-
-    if (currentMoveString[4] == NULLCHAR) {
-      if(result == WhitePromotion  || result == BlackPromotion) {
-        if(gameInfo.variant == VariantCourier || gameInfo.variant == VariantShatranj)
-            currentMoveString[4] = PieceToChar(BlackFerz);
-        else if(gameInfo.variant == VariantGreat)
-            currentMoveString[4] = PieceToChar(BlackMan);
-        else if(gameInfo.variant == VariantShogi)
-            currentMoveString[4] = '+';
-        else
-            currentMoveString[4] = PieceToChar(BlackQueen);
-      } else if(result == WhiteNonPromotion  || result == BlackNonPromotion)
-            currentMoveString[4] = '=';
-      currentMoveString[5] = NULLCHAR;
-    }
-
-    return (int) result;
-}
-       YY_BREAK
-case 2:
-YY_RULE_SETUP
-#line 271 "parser.l"
-{
-    /*
-     * Simple algebraic move, possibly with promotion
-     * [HGM] Engine moves are received in this format, with lower-case promoChar!
-     */
-    int skip = 0;
-    ChessMove result;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove the [xX:-] */
-    if ((yytext[2] == 'x') || (yytext[2] == 'X') ||
-       (yytext[2] == '-') || (yytext[2] == ':')) skip = 1;
-
-    currentMoveString[0] = yytext[0];
-    currentMoveString[1] = yytext[1];
-    currentMoveString[2] = yytext[2+skip];
-    currentMoveString[3] = yytext[3+skip];
-    currentMoveString[4] = NULLCHAR;
-
-    if (yyleng-skip > 4) { char c;
-       if (yytext[yyleng-1] == ')') {
-            c = currentMoveString[4] = ToLower(yytext[yyleng-2]);
-       } else {
-            c = currentMoveString[4] = ToLower(yytext[yyleng-1]);
-       }
-        if(c == '+' && gameInfo.variant != VariantShogi) currentMoveString[4] = NULLCHAR; // + means check outside Shogi
-       currentMoveString[5] = NULLCHAR;
-    }
-
-    /* [HGM] do not allow values beyond board size */
-    if(currentMoveString[1] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[1] - ONE <  0            ||
-       currentMoveString[0] - AAA >= BOARD_RGHT   ||
-       currentMoveString[3] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[3] - ONE <  0            ||
-       currentMoveString[2] - AAA >= BOARD_RGHT   ||
-       currentMoveString[0] - AAA <  BOARD_LEFT   ||
-       currentMoveString[2] - AAA <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: might think we can e.p.!
-                          currentMoveString[1] - ONE,
-                          currentMoveString[0] - AAA,
-                          currentMoveString[3] - ONE,
-                          currentMoveString[2] - AAA,
-                         currentMoveString[4]);
-
-    if (currentMoveString[4] == NULLCHAR) {
-      if(result == WhitePromotion  || result == BlackPromotion) {
-        if(gameInfo.variant == VariantShatranj || gameInfo.variant == VariantCourier || gameInfo.variant == VariantMakruk)
-            currentMoveString[4] = PieceToChar(BlackFerz);
-        else if(gameInfo.variant == VariantGreat)
-            currentMoveString[4] = PieceToChar(BlackMan);
-        else if(gameInfo.variant == VariantShogi)
-            currentMoveString[4] = '+'; // Queen might not be defined in mini variants!
-        else
-            currentMoveString[4] = PieceToChar(BlackQueen);
-      } else if(result == WhiteNonPromotion  || result == BlackNonPromotion)
-            currentMoveString[4] = '=';
-      currentMoveString[5] = NULLCHAR;
-    } else if(appData.testLegality && gameInfo.variant != VariantSChess && // strip off unnecessary and false promo characters
-       !(result == WhitePromotion  || result == BlackPromotion ||
-         result == WhiteNonPromotion || result == BlackNonPromotion)) currentMoveString[4] = NULLCHAR;
-
-    return (int) result;
-}
-       YY_BREAK
-case 3:
-YY_RULE_SETUP
-#line 340 "parser.l"
-{
-    /*
-     * Simple algebraic move, in capitals
-     * [HGM] Some Xiangqi engines use this format ('ICCS notation'). So no promotions!
-     */
-    int skip = 0;
-    ChessMove result;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove the [xX:-] */
-    if ((yytext[2] == 'x') || (yytext[2] == 'X') ||
-       (yytext[2] == '-') || (yytext[2] == ':')) skip = 1;
-
-    currentMoveString[0] = yytext[0]+32;
-    currentMoveString[1] = yytext[1];
-    currentMoveString[2] = yytext[2+skip]+32;
-    currentMoveString[3] = yytext[3+skip];
-    currentMoveString[4] = NULLCHAR;
-
-    /* [HGM] do not allow values beyond board size */
-    if(currentMoveString[1] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[1] - ONE <  0            ||
-       currentMoveString[0] - AAA >= BOARD_RGHT   ||
-       currentMoveString[3] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[3] - ONE <  0            ||
-       currentMoveString[2] - AAA >= BOARD_RGHT   ||
-       currentMoveString[0] - AAA <  BOARD_LEFT   ||
-       currentMoveString[2] - AAA <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: might think we can e.p.!
-                          currentMoveString[1] - ONE,
-                          currentMoveString[0] - AAA,
-                          currentMoveString[3] - ONE,
-                          currentMoveString[2] - AAA,
-                         currentMoveString[4]);
-
-    return (int) result;
-}
-       YY_BREAK
-case 4:
-YY_RULE_SETUP
-#line 382 "parser.l"
-{
-    /*
-     * Pawn move, possibly with promotion
-     */
-    DisambiguateClosure cl;
-    int skip = 0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove the =() */
-    if (yytext[2] == '=' && yytext[3] != NULLCHAR) skip++;
-    if (yytext[2+skip] == '(') skip++;
-
-    cl.pieceIn = WhiteOnMove(yyboardindex) ? WhitePawn : BlackPawn;
-    cl.rfIn = -1;
-    cl.ffIn = yytext[0] - AAA;
-    cl.rtIn = yytext[1] - ONE;
-    cl.ftIn = yytext[0] - AAA;
-    cl.promoCharIn = ToLower(yytext[2+skip]);
-    if(cl.promoCharIn == '+' && gameInfo.variant != VariantShogi) cl.promoCharIn = NULLCHAR; // + means check outside Shogi
-
-    /* [HGM] do not allow values beyond board size */
-    if(cl.rtIn >= BOARD_HEIGHT ||
-       cl.rtIn <  0            ||
-       cl.ffIn >= BOARD_RGHT   ||
-       cl.ftIn <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);
-
-    currentMoveString[0] = cl.ff + AAA;
-    currentMoveString[1] = cl.rf + ONE;
-    currentMoveString[2] = cl.ft + AAA;
-    currentMoveString[3] = cl.rt + ONE;
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
-}
-       YY_BREAK
-case 5:
-YY_RULE_SETUP
-#line 423 "parser.l"
-{
-    /*
-     * Pawn capture, possibly with promotion, possibly ambiguous
-     */
-    DisambiguateClosure cl;
-    int skip1 = 0, skip2 = 0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove trailing ep or e.p. (nonstandard PGN) */
-    if (yytext[yyleng-1] == 'p') {
-      yyleng -= 2;
-      yytext[yyleng] = NULLCHAR;
-    } else if (yytext[yyleng-1] == '.') {
-      yyleng -= 4;
-      yytext[yyleng] = NULLCHAR;
-    }
-
-    /* remove the [xX:-] and =() */
-    if ((yytext[1] == 'x') || (yytext[1] == 'X')
-       || (yytext[1] == ':') || (yytext[1] == '-')) skip1 = 1;
-    if (yytext[2+skip1] == '=' && yytext[3+skip1] != NULLCHAR) skip2++;
-    if (yytext[2+skip1+skip2] == '(') skip2++;
-
-    cl.pieceIn = WhiteOnMove(yyboardindex) ? WhitePawn : BlackPawn;
-    cl.rfIn = -1;
-    cl.ffIn = yytext[0] - AAA;
-    cl.rtIn = -1;
-    cl.ftIn = yytext[1+skip1] - AAA;
-    cl.promoCharIn = yytext[2+skip1+skip2];
-    if(cl.promoCharIn == '+' && gameInfo.variant != VariantShogi) cl.promoCharIn = NULLCHAR; // + means check outside Shogi
-
-    /* [HGM] do not allow values beyond board size */
-    if(cl.ffIn >= BOARD_RGHT  ||
-       cl.ffIn <  BOARD_LEFT  ||
-       cl.ftIn >= BOARD_RGHT  ||
-       cl.ftIn <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);
-
-    currentMoveString[0] = cl.ff + AAA;
-    currentMoveString[1] = cl.rf + ONE;
-    currentMoveString[2] = cl.ft + AAA;
-    currentMoveString[3] = cl.rt + ONE;
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
-}
-       YY_BREAK
-case 6:
-YY_RULE_SETUP
-#line 474 "parser.l"
-{
-    /*
-     * unambiguously abbreviated Pawn capture, possibly with promotion
-     */
-    int skip = 0;
-    ChessMove result; char c;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove trailing ep or e.p. (nonstandard PGN) */
-    if (yytext[yyleng-1] == 'p') {
-      yyleng -= 2;
-      yytext[yyleng] = NULLCHAR;
-    } else if (yytext[yyleng-1] == '.') {
-      yyleng -= 4;
-      yytext[yyleng] = NULLCHAR;
-    }
-
-    /* remove the [xX:-] */
-    if ((yytext[1] == 'x') || (yytext[1] == 'X')
-       || (yytext[1] == ':') || (yytext[1] == '-')) skip = 1;
-
-    currentMoveString[0] = yytext[0];
-    currentMoveString[2] = yytext[1+skip];
-    currentMoveString[3] = yytext[2+skip];
-
-    /* [HGM] do not allow values beyond board size */
-    if(currentMoveString[0] - AAA >= BOARD_RGHT   ||
-       currentMoveString[3] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[3] - ONE <  0            ||
-       currentMoveString[2] - AAA >= BOARD_RGHT   ||
-       currentMoveString[0] - AAA <  BOARD_LEFT   ||
-       currentMoveString[2] - AAA <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    if (gameInfo.variant == VariantXiangqi && /* [HGM] In Xiangqi rank stays same */
-         currentMoveString[0] != currentMoveString[2] ) {
-        currentMoveString[1] = yytext[2+skip];
-    } else 
-    if (WhiteOnMove(yyboardindex)) {
-        if (yytext[2+skip] == ONE) return (int) ImpossibleMove;
-       currentMoveString[1] = yytext[2+skip] - 1;
-       if(boards[yyboardindex][currentMoveString[1]-ONE][currentMoveString[0]-AAA] != WhitePawn) 
-               return ImpossibleMove;
-    } else {
-        currentMoveString[1] = currentMoveString[3] + 1;
-        if (currentMoveString[3] == ONE+BOARD_HEIGHT-1) return (int) ImpossibleMove;
-       if(boards[yyboardindex][currentMoveString[1]-ONE][currentMoveString[0]-AAA] != BlackPawn) 
-               return ImpossibleMove;
-    }
-    if (yyleng-skip > 3) {
-       if (yytext[yyleng-1] == ')')
-          c = currentMoveString[4] = ToLower(yytext[yyleng-2]);
-       else
-          c = currentMoveString[4] = ToLower(yytext[yyleng-1]);
-       currentMoveString[5] = NULLCHAR;
-        if(c == '+' && gameInfo.variant != VariantShogi) c = currentMoveString[4] = NULLCHAR; // + means check outside Shogi
-    } else {
-       currentMoveString[4] = NULLCHAR;
-    }
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: might think we can e.p.!
-                          currentMoveString[1] - ONE,
-                          currentMoveString[0] - AAA,
-                          currentMoveString[3] - ONE,
-                          currentMoveString[2] - AAA,
-                         currentMoveString[4]);
-
-    if (currentMoveString[4] == NULLCHAR) {
-      if(result == WhitePromotion  || result == BlackPromotion) {
-        currentMoveString[4] = PieceToChar(BlackQueen);
-       // [HGM] shatranj: take care of variants without Queen
-       if(gameInfo.variant == VariantShatranj || gameInfo.variant == VariantCourier || gameInfo.variant == VariantMakruk)
-            currentMoveString[4] = PieceToChar(BlackFerz);
-       if(gameInfo.variant == VariantGreat)
-            currentMoveString[4] = PieceToChar(BlackMan);
-       if(gameInfo.variant == VariantShogi)
-            currentMoveString[4] = '+';
-      } else if(result == WhiteNonPromotion  || result == BlackNonPromotion)
-            currentMoveString[4] = '=';
-      currentMoveString[5] = NULLCHAR;
-    }
-
-    if (result != IllegalMove) return (int) result;
-
-    /* Special case: improperly written en passant capture */
-    if (WhiteOnMove(yyboardindex)) {
-       if (currentMoveString[3] == '5') {
-           currentMoveString[1] = '5';
-           currentMoveString[3] = '6';
-       } else {
-           return (int) IllegalMove;
-       }
-    } else {
-       if (currentMoveString[3] == '4') {
-           currentMoveString[1] = '4';
-           currentMoveString[3] = '3';
-       } else {
-           return (int) IllegalMove;
-       }
-    }
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: might think we can e.p.!
-                          currentMoveString[1] - ONE,
-                          currentMoveString[0] - AAA,
-                          currentMoveString[3] - ONE,
-                          currentMoveString[2] - AAA,
-                         currentMoveString[4]);
-
-    if (result == WhiteCapturesEnPassant || result == BlackCapturesEnPassant)
-      return (int) result;
-    else { // [HGM] all very nice, but this messed up the input move that we might want to accept with legality testing off...
-      if (WhiteOnMove(yyboardindex)) // undo the damage
-            currentMoveString[1]--,  currentMoveString[3]--;
-       else currentMoveString[1]++,  currentMoveString[3]++;
-      return (int) IllegalMove;
-    }
-}
-       YY_BREAK
-case 7:
-YY_RULE_SETUP
-#line 595 "parser.l"
-{
-    /*
-     * piece move, possibly ambiguous
-     */
-    DisambiguateClosure cl;
-    int skip = 0, skip2 = 0, promoted = 0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    if(yytext[0] == '+') promoted = skip = skip2 = 1;
-
-    /* remove the [xX:-] */
-    if ((yytext[1+skip] == 'x') || (yytext[1+skip] == 'X')
-        || (yytext[1+skip] == ':') || (yytext[1+skip] == '-')) skip++;
-
-    if (WhiteOnMove(yyboardindex)) {
-        cl.pieceIn = CharToPiece(ToUpper(yytext[skip2]));
-    } else {
-        cl.pieceIn = CharToPiece(ToLower(yytext[skip2]));
-    }
-    if(promoted) cl.pieceIn = (ChessSquare) (PROMOTED cl.pieceIn);
-
-    cl.rfIn = -1;
-    cl.ffIn = -1;
-    cl.rtIn = yytext[2+skip] - ONE;
-    cl.ftIn = yytext[1+skip] - AAA;
-    cl.promoCharIn = NULLCHAR;
-
-    if(yyleng-skip > 3) /* [HGM] in some variants pieces promote */
-        cl.promoCharIn = yytext[yyleng-1-(yytext[yyleng-1]==')')];
-    if(cl.promoCharIn == '+' && gameInfo.variant != VariantShogi) cl.promoCharIn = NULLCHAR; // + means check outside Shogi
-
-    if (appData.debugMode) {
-        fprintf(debugFP, "Parser Qa1: yyleng=%d,  %d(%d,%d)-(%d,%d) = %d (%c)\n",
-        yyleng,
-        cl.pieceIn,cl.ffIn,cl.rfIn,cl.ftIn,cl.rtIn,cl.promoCharIn,cl.promoCharIn?cl.promoCharIn:' ');
-    }
-
-    /* [HGM] but do not allow values beyond board size */
-    if(cl.rtIn >= BOARD_HEIGHT ||
-       cl.rtIn <  0            ||
-       cl.ftIn >= BOARD_RGHT   ||
-       cl.ftIn <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);
-
-    currentMoveString[0] = cl.ff + AAA;
-    currentMoveString[1] = cl.rf + ONE;
-    currentMoveString[2] = cl.ft + AAA;
-    currentMoveString[3] = cl.rt + ONE;
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
-}
-       YY_BREAK
-case 8:
-YY_RULE_SETUP
-#line 652 "parser.l"
-{
-    /*
-     * piece move with rank or file disambiguator
-     */
-    DisambiguateClosure cl;
-    int skip = 0, skip2 = 0; int promoted=0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    if(yytext[0]=='+') promoted = skip = skip2 = 1;
-
-    /* remove the [xX:-] */
-    if ((yytext[2+skip] == 'x') || (yytext[2+skip] == 'X')
-        || (yytext[2+skip] == ':') || (yytext[2+skip] == '-')) skip++;
-
-    if (WhiteOnMove(yyboardindex)) {
-        cl.pieceIn = CharToPiece(ToUpper(yytext[skip2]));
-    } else {
-        cl.pieceIn = CharToPiece(ToLower(yytext[skip2]));
-    }
-    if(promoted) cl.pieceIn = (ChessSquare) (PROMOTED cl.pieceIn);
-
-    if (isalpha(yytext[1+skip2])) {
-       cl.rfIn = -1;
-        cl.ffIn = yytext[1+skip2] - AAA;
-       
-        if(cl.ffIn >= BOARD_RGHT ||
-           cl.ffIn <  BOARD_LEFT   ) return 0;
-    } else {
-        cl.rfIn = yytext[1+skip2] - ONE;
-       cl.ffIn = -1;
-        if(cl.rfIn >= BOARD_HEIGHT ||
-           cl.rfIn <  0) return 0;
-    }
-    cl.rtIn = yytext[3+skip] - ONE;
-    cl.ftIn = yytext[2+skip] - AAA;
-    cl.promoCharIn = NULLCHAR;
-
-    if(yyleng-skip > 4) /* [HGM] in some variants pieces promote */
-        cl.promoCharIn = yytext[yyleng-1-(yytext[yyleng-1]==')')];
-    if(cl.promoCharIn == '+' && gameInfo.variant != VariantShogi) cl.promoCharIn = NULLCHAR; // + means check outside Shogi
-
-    /* [HGM] do not allow values beyond board size */
-    if(cl.rtIn >= BOARD_HEIGHT ||
-       cl.rtIn <  0            ||
-       cl.ftIn >= BOARD_RGHT   ||
-       cl.ftIn <  BOARD_LEFT     )
-      return ImpossibleMove;
-
-    Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);
-
-    currentMoveString[0] = cl.ff + AAA;
-    currentMoveString[1] = cl.rf + ONE;
-    currentMoveString[2] = cl.ft + AAA;
-    currentMoveString[3] = cl.rt + ONE;
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
-}
-       YY_BREAK
-case 9:
-YY_RULE_SETUP
-#line 713 "parser.l"
-{
-    int rf, ff, rt, ft;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* [HGM] all squares referenced to board edges in stead of absolute */
-    if (WhiteOnMove(yyboardindex)) {
-        if (boards[yyboardindex][0][(BOARD_WIDTH-1)>>1] == WhiteKing) {
-           /* ICS wild castling */
-           rf = 0;
-            ff = (BOARD_WIDTH-1)>>1;
-           rt = 0;
-            ft = BOARD_RGHT-3;
-       } else {
-           rf = 0;
-            ff = BOARD_WIDTH>>1;
-           rt = 0;
-            ft = BOARD_LEFT+2;
-       }
-    } else{ 
-        if (boards[yyboardindex][BOARD_HEIGHT-1][(BOARD_WIDTH-1)>>1] == BlackKing) {
-           /* ICS wild castling */
-            rf = BOARD_HEIGHT-1;
-            ff = (BOARD_WIDTH-1)>>1;
-            rt = BOARD_HEIGHT-1;
-            ft = BOARD_RGHT-3;
-       } else {
-            rf = BOARD_HEIGHT-1;
-            ff = BOARD_WIDTH>>1;
-            rt = BOARD_HEIGHT-1;
-            ft = BOARD_LEFT+2;
-       }
-    }
-    if(PosFlags(0) & F_FRC_TYPE_CASTLING) {
-
-        if (WhiteOnMove(yyboardindex)) {
-            ff = initialRights[2];
-            ft = initialRights[1];
-        } else {
-            ff = initialRights[5];
-            ft = initialRights[4];
-        }
-        if (appData.debugMode) 
-        {
-          fprintf(debugFP, "Parser FRC long %d %d\n", ff, ft);
-        };
-        if(ff < 0 || ft < 0) return 0;
-    }
-    sprintf(currentMoveString, "%c%c%c%c",ff+AAA,rf+ONE,ft+AAA,rt+ONE);
-    if (appData.debugMode) {
-        fprintf(debugFP, "long castling %d %d\n", ff, ft);
-    }
-    return (int) LegalityTest(boards[yyboardindex],
-                             PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: e.p.!
-                             rf, ff, rt, ft, NULLCHAR);
-}
-       YY_BREAK
-case 10:
-YY_RULE_SETUP
-#line 770 "parser.l"
-{
-    int rf, ff, rt, ft;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    if (WhiteOnMove(yyboardindex)) {
-        if (boards[yyboardindex][0][(BOARD_WIDTH-1)>>1] == WhiteKing) {
-           /* ICS wild castling */
-           rf = 0;
-            ff = (BOARD_WIDTH-1)>>1;
-           rt = 0;
-            ft = BOARD_LEFT+1;
-       } else {
-           rf = 0;
-            ff = BOARD_WIDTH>>1;
-           rt = 0;
-            ft = BOARD_RGHT-2;
-       }
-    } else {
-        if (boards[yyboardindex][BOARD_HEIGHT-1][(BOARD_WIDTH-1)>>1] == BlackKing) {
-           /* ICS wild castling */
-            rf = BOARD_HEIGHT-1;
-            ff = (BOARD_WIDTH-1)>>1;
-            rt = BOARD_HEIGHT-1;
-            ft = BOARD_LEFT+1;
-       } else {
-            rf = BOARD_HEIGHT-1;
-            ff = BOARD_WIDTH>>1;
-            rt = BOARD_HEIGHT-1;
-            ft = BOARD_RGHT-2;
-       }
-    }
-    if(PosFlags(0) & F_FRC_TYPE_CASTLING) {
-        if (WhiteOnMove(yyboardindex)) {
-            ff = initialRights[2];
-            ft = initialRights[0];
-        } else {
-            ff = initialRights[5];
-            ft = initialRights[3];
-        }
-    if (appData.debugMode) {
-        fprintf(debugFP, "Parser FRC short %d %d\n", ff, ft);
-    }
-        if(ff < 0 || ft < 0) return 0;
-    }
-    sprintf(currentMoveString, "%c%c%c%c",ff+AAA,rf+ONE,ft+AAA,rt+ONE);
-    if (appData.debugMode) {
-        fprintf(debugFP, "short castling %d %d\n", ff, ft);
-    }
-
-    return (int) LegalityTest(boards[yyboardindex],
-                             PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: e.p.!
-                             rf, ff, rt, ft, NULLCHAR);
-}
-       YY_BREAK
-case 11:
-YY_RULE_SETUP
-#line 825 "parser.l"
-{
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* Bughouse piece drop. */
-    currentMoveString[1] = '@';
-    currentMoveString[2] = yytext[2];
-    currentMoveString[3] = yytext[3];
-    currentMoveString[4] = NULLCHAR;
-
-    if (appData.debugMode) {
-        fprintf(debugFP, "Drop: %s\n", currentMoveString);
-    }
-    /* [HGM] do not allow values beyond board size */
-    if(currentMoveString[3] - ONE >= BOARD_HEIGHT ||
-       currentMoveString[2] - AAA >= BOARD_WIDTH     )
-      return ImpossibleMove;
-
-    if (WhiteOnMove(yyboardindex)) {
-       currentMoveString[0] = ToUpper(yytext[0]);
-    } else {
-       currentMoveString[0] = ToLower(yytext[0]);
-    }
-    if(CharToPiece(currentMoveString[0]) == EmptySquare) return ImpossibleMove; // Unknown piece;
-
-    return LegalityTest(boards[yyboardindex], PosFlags(yyboardindex), DROP_RANK, // [HGM] does drops now too
-                        CharToPiece(currentMoveString[0]), currentMoveString[3] - ONE, currentMoveString[2] - AAA, NULLCHAR);
-}
-       YY_BREAK
-case 12:
-YY_RULE_SETUP
-#line 854 "parser.l"
-{
-    if (WhiteOnMove(yyboardindex))
-      return (int) BlackWins;
-    else
-      return (int) WhiteWins;
-}
-       YY_BREAK
-case 13:
-YY_RULE_SETUP
-#line 861 "parser.l"
-{
-    return (int) (ToUpper(yytext[0]) == 'W' ? BlackWins : WhiteWins);
-}
-       YY_BREAK
-case 14:
-YY_RULE_SETUP
-#line 865 "parser.l"
-{
-    return (int) GameUnfinished;
-}
-       YY_BREAK
-case 15:
-YY_RULE_SETUP
-#line 869 "parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 16:
-YY_RULE_SETUP
-#line 873 "parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 17:
-YY_RULE_SETUP
-#line 877 "parser.l"
-{
-    if (WhiteOnMove(yyboardindex))
-      return (int) BlackWins;
-    else
-      return (int) WhiteWins;
-}
-       YY_BREAK
-case 18:
-YY_RULE_SETUP
-#line 884 "parser.l"
-{
-    if (WhiteOnMove(yyboardindex))
-      return (int) BlackWins;
-    else
-      return (int) WhiteWins;
-}
-       YY_BREAK
-case 19:
-YY_RULE_SETUP
-#line 891 "parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 20:
-YY_RULE_SETUP
-#line 895 "parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 21:
-YY_RULE_SETUP
-#line 899 "parser.l"
-{ 
-    return (int) (ToUpper(yytext[0]) == 'W' ? WhiteWins : BlackWins);
-}
-       YY_BREAK
-case 22:
-YY_RULE_SETUP
-#line 903 "parser.l"
-{ 
-    return (int) (ToUpper(yytext[0]) == 'W' ? BlackWins : WhiteWins);
-}
-       YY_BREAK
-case 23:
-/* rule 23 can match eol */
-YY_RULE_SETUP
-#line 907 "parser.l"
-{ 
-    return (int) WhiteWins;
-}
-       YY_BREAK
-case 24:
-/* rule 24 can match eol */
-YY_RULE_SETUP
-#line 911 "parser.l"
-{ 
-    return (int) BlackWins;
-}
-       YY_BREAK
-case 25:
-/* rule 25 can match eol */
-YY_RULE_SETUP
-#line 915 "parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 26:
-/* rule 26 can match eol */
-YY_RULE_SETUP
-#line 919 "parser.l"
-{
-    return (int) GameUnfinished;
-}
-       YY_BREAK
-case 27:
-/* rule 27 can match eol */
-YY_RULE_SETUP
-#line 923 "parser.l"
-{
-    /* move numbers */
-    if ((yyleng == 1) && (yytext[0] == '1'))
-      return (int) MoveNumberOne;
-    else return (int) Nothing; // [HGM] make sure something is returned, for gathering parsed text
-}
-       YY_BREAK
-case 28:
-YY_RULE_SETUP
-#line 930 "parser.l"
-{
-    /* elapsed time indication, e.g. (0:12) or {10:21.071} */ 
-    return (int) ElapsedTime;
-}
-       YY_BREAK
-case 29:
-/* rule 29 can match eol */
-YY_RULE_SETUP
-#line 935 "parser.l"
-{
-    /* position diagram enclosed in [-- --] */
-    return (int) PositionDiagram;
-}
-       YY_BREAK
-case 30:
-/* rule 30 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 940 "parser.l"
-{
-    /* position diagram enclosed in {-- --} */
-    return (int) PositionDiagram;
-}
-       YY_BREAK
-case 31:
-/* rule 31 can match eol */
-YY_RULE_SETUP
-#line 945 "parser.l"
-{
-    return (int) PGNTag;
-}    
-       YY_BREAK
-case 32:
-YY_RULE_SETUP
-#line 949 "parser.l"
-{
-    return (int) GNUChessGame;
-}
-       YY_BREAK
-case 33:
-/* rule 33 can match eol */
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 953 "parser.l"
-{
-    return (int) XBoardGame;
-}
-       YY_BREAK
-case 34:
-YY_RULE_SETUP
-#line 957 "parser.l"
-{                              /* numeric annotation glyph */
-    return (int) NAG;
-}
-       YY_BREAK
-case 35:
-/* rule 35 can match eol */
-YY_RULE_SETUP
-#line 961 "parser.l"
-{                              /* anything in {} */
-    return (int) Comment; 
-}
-       YY_BREAK
-case 36:
-*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 965 "parser.l"
-{                                          /* ; to end of line */
-    return (int) Comment;
-}
-       YY_BREAK
-case 37:
-/* rule 37 can match eol */
-YY_RULE_SETUP
-#line 969 "parser.l"
-{                              /* anything in [] */
-    return (int) Comment; 
-}
-       YY_BREAK
-case 38:
-YY_RULE_SETUP
-#line 973 "parser.l"
-{                               /* Opening parentheses */
-    return (int) Open; 
-}
-       YY_BREAK
-case 39:
-YY_RULE_SETUP
-#line 977 "parser.l"
-{                                    /* closing parentheses */
-    return (int) Close; 
-}       
-       YY_BREAK
-case 40:
-/* rule 40 can match eol */
-YY_RULE_SETUP
-#line 981 "parser.l"
-{
-    return (int) Nothing;                 /* Skip mail headers */
-}
-       YY_BREAK
-case 41:
-YY_RULE_SETUP
-#line 985 "parser.l"
-{
-    return (int) Nothing;                 /* Skip random words */
-}
-       YY_BREAK
-case 42:
-/* rule 42 can match eol */
-YY_RULE_SETUP
-#line 989 "parser.l"
-{
-    return (int) Nothing;                 /* Skip everything else */
-}
-       YY_BREAK
-case 43:
-YY_RULE_SETUP
-#line 993 "parser.l"
-ECHO;
-       YY_BREAK
-#line 3069 "parser.c"
-                       case YY_STATE_EOF(INITIAL):
-                               yyterminate();
-
-       case YY_END_OF_BUFFER:
-               {
-               /* Amount of text matched not including the EOB char. */
-               int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-
-               /* Undo the effects of YY_DO_BEFORE_ACTION. */
-               *yy_cp = (yy_hold_char);
-               YY_RESTORE_YY_MORE_OFFSET
-
-               if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
-                       {
-                       /* We're scanning a new file or input source.  It's
-                        * possible that this happened because the user
-                        * just pointed yyin at a new source and called
-                        * yylex().  If so, then we have to assure
-                        * consistency between YY_CURRENT_BUFFER and our
-                        * globals.  Here is the right place to do so, because
-                        * this is the first action (other than possibly a
-                        * back-up) that will match for the new input source.
-                        */
-                       (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-                       YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
-                       YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
-                       }
-
-               /* Note that here we test for yy_c_buf_p "<=" to the position
-                * of the first EOB in the buffer, since yy_c_buf_p will
-                * already have been incremented past the NUL character
-                * (since all states make transitions on EOB to the
-                * end-of-buffer state).  Contrast this with the test
-                * in input().
-                */
-               if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-                       { /* This was really a NUL. */
-                       yy_state_type yy_next_state;
-
-                       (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-
-                       yy_current_state = yy_get_previous_state(  );
-
-                       /* Okay, we're now positioned to make the NUL
-                        * transition.  We couldn't have
-                        * yy_get_previous_state() go ahead and do it
-                        * for us because it doesn't know how to deal
-                        * with the possibility of jamming (and we don't
-                        * want to build jamming into it because then it
-                        * will run more slowly).
-                        */
-
-                       yy_next_state = yy_try_NUL_trans( yy_current_state );
-
-                       yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-
-                       if ( yy_next_state )
-                               {
-                               /* Consume the NUL. */
-                               yy_cp = ++(yy_c_buf_p);
-                               yy_current_state = yy_next_state;
-                               goto yy_match;
-                               }
-
-                       else
-                               {
-                               yy_cp = (yy_c_buf_p);
-                               goto yy_find_action;
-                               }
-                       }
-
-               else switch ( yy_get_next_buffer(  ) )
-                       {
-                       case EOB_ACT_END_OF_FILE:
-                               {
-                               (yy_did_buffer_switch_on_eof) = 0;
-
-                               if ( yywrap( ) )
-                                       {
-                                       /* Note: because we've taken care in
-                                        * yy_get_next_buffer() to have set up
-                                        * yytext, we can now set up
-                                        * yy_c_buf_p so that if some total
-                                        * hoser (like flex itself) wants to
-                                        * call the scanner after we return the
-                                        * YY_NULL, it'll still work - another
-                                        * YY_NULL will get returned.
-                                        */
-                                       (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-
-                                       yy_act = YY_STATE_EOF(YY_START);
-                                       goto do_action;
-                                       }
-
-                               else
-                                       {
-                                       if ( ! (yy_did_buffer_switch_on_eof) )
-                                               YY_NEW_FILE;
-                                       }
-                               break;
-                               }
-
-                       case EOB_ACT_CONTINUE_SCAN:
-                               (yy_c_buf_p) =
-                                       (yytext_ptr) + yy_amount_of_matched_text;
-
-                               yy_current_state = yy_get_previous_state(  );
-
-                               yy_cp = (yy_c_buf_p);
-                               yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-                               goto yy_match;
-
-                       case EOB_ACT_LAST_MATCH:
-                               (yy_c_buf_p) =
-                               &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-
-                               yy_current_state = yy_get_previous_state(  );
-
-                               yy_cp = (yy_c_buf_p);
-                               yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-                               goto yy_find_action;
-                       }
-               break;
-               }
-
-       default:
-               YY_FATAL_ERROR(
-                       "fatal flex scanner internal error--no action found" );
-       } /* end of action switch */
-               } /* end of scanning one token */
-} /* end of yylex */
-
-/* yy_get_next_buffer - try to read in a new buffer
- *
- * Returns a code representing an action:
- *     EOB_ACT_LAST_MATCH -
- *     EOB_ACT_CONTINUE_SCAN - continue scanning from current position
- *     EOB_ACT_END_OF_FILE - end of file
- */
-static int yy_get_next_buffer (void)
-{
-       register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
-       register char *source = (yytext_ptr);
-       register int number_to_move, i;
-       int ret_val;
-
-       if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
-               YY_FATAL_ERROR(
-               "fatal flex scanner internal error--end of buffer missed" );
-
-       if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
-               { /* Don't try to fill the buffer, so this is an EOF. */
-               if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
-                       {
-                       /* We matched a single character, the EOB, so
-                        * treat this as a final EOF.
-                        */
-                       return EOB_ACT_END_OF_FILE;
-                       }
-
-               else
-                       {
-                       /* We matched some text prior to the EOB, first
-                        * process it.
-                        */
-                       return EOB_ACT_LAST_MATCH;
-                       }
-               }
-
-       /* Try to read more data. */
-
-       /* First move last chars to start of buffer. */
-       number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-
-       for ( i = 0; i < number_to_move; ++i )
-               *(dest++) = *(source++);
-
-       if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
-               /* don't do the read, it's not guaranteed to return an EOF,
-                * just force an EOF
-                */
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-
-       else
-               {
-                       int num_to_read =
-                       YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-
-               while ( num_to_read <= 0 )
-                       { /* Not enough room in the buffer - grow it. */
-
-                       YY_FATAL_ERROR(
-"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
-
-                       }
-
-               if ( num_to_read > YY_READ_BUF_SIZE )
-                       num_to_read = YY_READ_BUF_SIZE;
-
-               /* Read in more data. */
-               YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
-                       (yy_n_chars), (size_t) num_to_read );
-
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-               }
-
-       if ( (yy_n_chars) == 0 )
-               {
-               if ( number_to_move == YY_MORE_ADJ )
-                       {
-                       ret_val = EOB_ACT_END_OF_FILE;
-                       yyrestart(yyin  );
-                       }
-
-               else
-                       {
-                       ret_val = EOB_ACT_LAST_MATCH;
-                       YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
-                               YY_BUFFER_EOF_PENDING;
-                       }
-               }
-
-       else
-               ret_val = EOB_ACT_CONTINUE_SCAN;
-
-       if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
-               /* Extend the array by 50%, plus the number we really need. */
-               yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
-               YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size  );
-               if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-                       YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
-       }
-
-       (yy_n_chars) += number_to_move;
-       YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
-       YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-
-       (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-
-       return ret_val;
-}
-
-/* yy_get_previous_state - get the state just before the EOB char was reached */
-
-    static yy_state_type yy_get_previous_state (void)
-{
-       register yy_state_type yy_current_state;
-       register char *yy_cp;
-    
-       yy_current_state = (yy_start);
-       yy_current_state += YY_AT_BOL();
-
-       (yy_state_ptr) = (yy_state_buf);
-       *(yy_state_ptr)++ = yy_current_state;
-
-       for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
-               {
-               register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-               while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-                       {
-                       yy_current_state = (int) yy_def[yy_current_state];
-                       if ( yy_current_state >= 694 )
-                               yy_c = yy_meta[(unsigned int) yy_c];
-                       }
-               yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-               *(yy_state_ptr)++ = yy_current_state;
-               }
-
-       return yy_current_state;
-}
-
-/* yy_try_NUL_trans - try to make a transition on the NUL character
- *
- * synopsis
- *     next_state = yy_try_NUL_trans( current_state );
- */
-    static yy_state_type yy_try_NUL_trans  (yy_state_type yy_current_state )
-{
-       register int yy_is_jam;
-    
-       register YY_CHAR yy_c = 1;
-       while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-               {
-               yy_current_state = (int) yy_def[yy_current_state];
-               if ( yy_current_state >= 694 )
-                       yy_c = yy_meta[(unsigned int) yy_c];
-               }
-       yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-       yy_is_jam = (yy_current_state == 693);
-       if ( ! yy_is_jam )
-               *(yy_state_ptr)++ = yy_current_state;
-
-       return yy_is_jam ? 0 : yy_current_state;
-}
-
-    static void yyunput (int c, register char * yy_bp )
-{
-       register char *yy_cp;
-    
-    yy_cp = (yy_c_buf_p);
-
-       /* undo effects of setting up yytext */
-       *yy_cp = (yy_hold_char);
-
-       if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-               { /* need to shift things up to make room */
-               /* +2 for EOB chars. */
-               register int number_to_move = (yy_n_chars) + 2;
-               register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
-                                       YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
-               register char *source =
-                               &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-
-               while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-                       *--dest = *--source;
-
-               yy_cp += (int) (dest - source);
-               yy_bp += (int) (dest - source);
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
-                       (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-
-               if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-                       YY_FATAL_ERROR( "flex scanner push-back overflow" );
-               }
-
-       *--yy_cp = (char) c;
-
-       (yytext_ptr) = yy_bp;
-       (yy_hold_char) = *yy_cp;
-       (yy_c_buf_p) = yy_cp;
-}
-
-#ifndef YY_NO_INPUT
-#ifdef __cplusplus
-    static int yyinput (void)
-#else
-    static int input  (void)
-#endif
-
-{
-       int c;
-    
-       *(yy_c_buf_p) = (yy_hold_char);
-
-       if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
-               {
-               /* yy_c_buf_p now points to the character we want to return.
-                * If this occurs *before* the EOB characters, then it's a
-                * valid NUL; if not, then we've hit the end of the buffer.
-                */
-               if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-                       /* This was really a NUL. */
-                       *(yy_c_buf_p) = '\0';
-
-               else
-                       { /* need more input */
-                       int offset = (yy_c_buf_p) - (yytext_ptr);
-                       ++(yy_c_buf_p);
-
-                       switch ( yy_get_next_buffer(  ) )
-                               {
-                               case EOB_ACT_LAST_MATCH:
-                                       /* This happens because yy_g_n_b()
-                                        * sees that we've accumulated a
-                                        * token and flags that we need to
-                                        * try matching the token before
-                                        * proceeding.  But for input(),
-                                        * there's no matching to consider.
-                                        * So convert the EOB_ACT_LAST_MATCH
-                                        * to EOB_ACT_END_OF_FILE.
-                                        */
-
-                                       /* Reset buffer status. */
-                                       yyrestart(yyin );
-
-                                       /*FALLTHROUGH*/
-
-                               case EOB_ACT_END_OF_FILE:
-                                       {
-                                       if ( yywrap( ) )
-                                               return EOF;
-
-                                       if ( ! (yy_did_buffer_switch_on_eof) )
-                                               YY_NEW_FILE;
-#ifdef __cplusplus
-                                       return yyinput();
-#else
-                                       return input();
-#endif
-                                       }
-
-                               case EOB_ACT_CONTINUE_SCAN:
-                                       (yy_c_buf_p) = (yytext_ptr) + offset;
-                                       break;
-                               }
-                       }
-               }
-
-       c = *(unsigned char *) (yy_c_buf_p);    /* cast for 8-bit char's */
-       *(yy_c_buf_p) = '\0';   /* preserve yytext */
-       (yy_hold_char) = *++(yy_c_buf_p);
-
-       YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
-
-       return c;
-}
-#endif /* ifndef YY_NO_INPUT */
-
-/** Immediately switch to a different input stream.
- * @param input_file A readable stream.
- * 
- * @note This function does not reset the start condition to @c INITIAL .
- */
-    void yyrestart  (FILE * input_file )
-{
-    
-       if ( ! YY_CURRENT_BUFFER ){
-        yyensure_buffer_stack ();
-               YY_CURRENT_BUFFER_LVALUE =
-            yy_create_buffer(yyin,YY_BUF_SIZE );
-       }
-
-       yy_init_buffer(YY_CURRENT_BUFFER,input_file );
-       yy_load_buffer_state( );
-}
-
-/** Switch to a different input buffer.
- * @param new_buffer The new input buffer.
- * 
- */
-    void yy_switch_to_buffer  (YY_BUFFER_STATE  new_buffer )
-{
-    
-       /* TODO. We should be able to replace this entire function body
-        * with
-        *              yypop_buffer_state();
-        *              yypush_buffer_state(new_buffer);
-     */
-       yyensure_buffer_stack ();
-       if ( YY_CURRENT_BUFFER == new_buffer )
-               return;
-
-       if ( YY_CURRENT_BUFFER )
-               {
-               /* Flush out information for old buffer. */
-               *(yy_c_buf_p) = (yy_hold_char);
-               YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-               }
-
-       YY_CURRENT_BUFFER_LVALUE = new_buffer;
-       yy_load_buffer_state( );
-
-       /* We don't actually know whether we did this switch during
-        * EOF (yywrap()) processing, but the only time this flag
-        * is looked at is after yywrap() is called, so it's safe
-        * to go ahead and always set it.
-        */
-       (yy_did_buffer_switch_on_eof) = 1;
-}
-
-static void yy_load_buffer_state  (void)
-{
-       (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-       (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
-       yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
-       (yy_hold_char) = *(yy_c_buf_p);
-}
-
-/** Allocate and initialize an input buffer state.
- * @param file A readable stream.
- * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
- * 
- * @return the allocated buffer state.
- */
-    YY_BUFFER_STATE yy_create_buffer  (FILE * file, int  size )
-{
-       YY_BUFFER_STATE b;
-    
-       b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state )  );
-       if ( ! b )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
-       b->yy_buf_size = size;
-
-       /* yy_ch_buf has to be 2 characters longer than the size given because
-        * we need to put in 2 end-of-buffer characters.
-        */
-       b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2  );
-       if ( ! b->yy_ch_buf )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
-       b->yy_is_our_buffer = 1;
-
-       yy_init_buffer(b,file );
-
-       return b;
-}
-
-/** Destroy the buffer.
- * @param b a buffer created with yy_create_buffer()
- * 
- */
-    void yy_delete_buffer (YY_BUFFER_STATE  b )
-{
-    
-       if ( ! b )
-               return;
-
-       if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
-               YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-
-       if ( b->yy_is_our_buffer )
-               yyfree((void *) b->yy_ch_buf  );
-
-       yyfree((void *) b  );
-}
-
-#ifndef __cplusplus
-extern int isatty (int );
-#endif /* __cplusplus */
-    
-/* Initializes or reinitializes a buffer.
- * This function is sometimes called more than once on the same buffer,
- * such as during a yyrestart() or at EOF.
- */
-    static void yy_init_buffer  (YY_BUFFER_STATE  b, FILE * file )
-
-{
-       int oerrno = errno;
-    
-       yy_flush_buffer(b );
-
-       b->yy_input_file = file;
-       b->yy_fill_buffer = 1;
-
-    /* If b is the current buffer, then yy_init_buffer was _probably_
-     * called from yyrestart() or through yy_get_next_buffer.
-     * In that case, we don't want to reset the lineno or column.
-     */
-    if (b != YY_CURRENT_BUFFER){
-        b->yy_bs_lineno = 1;
-        b->yy_bs_column = 0;
-    }
-
-        b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-    
-       errno = oerrno;
-}
-
-/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
- * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
- * 
- */
-    void yy_flush_buffer (YY_BUFFER_STATE  b )
-{
-       if ( ! b )
-               return;
-
-       b->yy_n_chars = 0;
-
-       /* We always need two end-of-buffer characters.  The first causes
-        * a transition to the end-of-buffer state.  The second causes
-        * a jam in that state.
-        */
-       b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
-       b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-
-       b->yy_buf_pos = &b->yy_ch_buf[0];
-
-       b->yy_at_bol = 1;
-       b->yy_buffer_status = YY_BUFFER_NEW;
-
-       if ( b == YY_CURRENT_BUFFER )
-               yy_load_buffer_state( );
-}
-
-/** Pushes the new state onto the stack. The new state becomes
- *  the current state. This function will allocate the stack
- *  if necessary.
- *  @param new_buffer The new state.
- *  
- */
-void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
-{
-       if (new_buffer == NULL)
-               return;
-
-       yyensure_buffer_stack();
-
-       /* This block is copied from yy_switch_to_buffer. */
-       if ( YY_CURRENT_BUFFER )
-               {
-               /* Flush out information for old buffer. */
-               *(yy_c_buf_p) = (yy_hold_char);
-               YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-               YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-               }
-
-       /* Only push if top exists. Otherwise, replace top. */
-       if (YY_CURRENT_BUFFER)
-               (yy_buffer_stack_top)++;
-       YY_CURRENT_BUFFER_LVALUE = new_buffer;
-
-       /* copied from yy_switch_to_buffer. */
-       yy_load_buffer_state( );
-       (yy_did_buffer_switch_on_eof) = 1;
-}
-
-/** Removes and deletes the top of the stack, if present.
- *  The next element becomes the new top.
- *  
- */
-void yypop_buffer_state (void)
-{
-       if (!YY_CURRENT_BUFFER)
-               return;
-
-       yy_delete_buffer(YY_CURRENT_BUFFER );
-       YY_CURRENT_BUFFER_LVALUE = NULL;
-       if ((yy_buffer_stack_top) > 0)
-               --(yy_buffer_stack_top);
-
-       if (YY_CURRENT_BUFFER) {
-               yy_load_buffer_state( );
-               (yy_did_buffer_switch_on_eof) = 1;
-       }
-}
-
-/* Allocates the stack if it does not exist.
- *  Guarantees space for at least one push.
- */
-static void yyensure_buffer_stack (void)
-{
-       int num_to_alloc;
-    
-       if (!(yy_buffer_stack)) {
-
-               /* First allocation is just for 2 elements, since we don't know if this
-                * scanner will even need a stack. We use 2 instead of 1 to avoid an
-                * immediate realloc on the next call.
-         */
-               num_to_alloc = 1;
-               (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
-                                                               (num_to_alloc * sizeof(struct yy_buffer_state*)
-                                                               );
-               if ( ! (yy_buffer_stack) )
-                       YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-                                                                 
-               memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-                               
-               (yy_buffer_stack_max) = num_to_alloc;
-               (yy_buffer_stack_top) = 0;
-               return;
-       }
-
-       if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-
-               /* Increase the buffer to prepare for a possible push. */
-               int grow_size = 8 /* arbitrary grow size */;
-
-               num_to_alloc = (yy_buffer_stack_max) + grow_size;
-               (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
-                                                               ((yy_buffer_stack),
-                                                               num_to_alloc * sizeof(struct yy_buffer_state*)
-                                                               );
-               if ( ! (yy_buffer_stack) )
-                       YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-
-               /* zero only the new slots.*/
-               memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
-               (yy_buffer_stack_max) = num_to_alloc;
-       }
-}
-
-/** Setup the input buffer state to scan directly from a user-specified character buffer.
- * @param base the character buffer
- * @param size the size in bytes of the character buffer
- * 
- * @return the newly allocated buffer state object. 
- */
-YY_BUFFER_STATE yy_scan_buffer  (char * base, yy_size_t  size )
-{
-       YY_BUFFER_STATE b;
-    
-       if ( size < 2 ||
-            base[size-2] != YY_END_OF_BUFFER_CHAR ||
-            base[size-1] != YY_END_OF_BUFFER_CHAR )
-               /* They forgot to leave room for the EOB's. */
-               return 0;
-
-       b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state )  );
-       if ( ! b )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
-
-       b->yy_buf_size = size - 2;      /* "- 2" to take care of EOB's */
-       b->yy_buf_pos = b->yy_ch_buf = base;
-       b->yy_is_our_buffer = 0;
-       b->yy_input_file = 0;
-       b->yy_n_chars = b->yy_buf_size;
-       b->yy_is_interactive = 0;
-       b->yy_at_bol = 1;
-       b->yy_fill_buffer = 0;
-       b->yy_buffer_status = YY_BUFFER_NEW;
-
-       yy_switch_to_buffer(b  );
-
-       return b;
-}
-
-/** Setup the input buffer state to scan a string. The next call to yylex() will
- * scan from a @e copy of @a str.
- * @param yystr a NUL-terminated string to scan
- * 
- * @return the newly allocated buffer state object.
- * @note If you want to scan bytes that may contain NUL values, then use
- *       yy_scan_bytes() instead.
- */
-YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
-{
-    
-       return yy_scan_bytes(yystr,strlen(yystr) );
-}
-
-/** Setup the input buffer state to scan the given bytes. The next call to yylex() will
- * scan from a @e copy of @a bytes.
- * @param bytes the byte buffer to scan
- * @param len the number of bytes in the buffer pointed to by @a bytes.
- * 
- * @return the newly allocated buffer state object.
- */
-YY_BUFFER_STATE yy_scan_bytes  (yyconst char * yybytes, int  _yybytes_len )
-{
-       YY_BUFFER_STATE b;
-       char *buf;
-       yy_size_t n;
-       int i;
-    
-       /* Get memory for full buffer, including space for trailing EOB's. */
-       n = _yybytes_len + 2;
-       buf = (char *) yyalloc(n  );
-       if ( ! buf )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
-
-       for ( i = 0; i < _yybytes_len; ++i )
-               buf[i] = yybytes[i];
-
-       buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
-
-       b = yy_scan_buffer(buf,n );
-       if ( ! b )
-               YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
-
-       /* It's okay to grow etc. this buffer, and we should throw it
-        * away when we're done.
-        */
-       b->yy_is_our_buffer = 1;
-
-       return b;
-}
-
-#ifndef YY_EXIT_FAILURE
-#define YY_EXIT_FAILURE 2
-#endif
-
-static void yy_fatal_error (yyconst char* msg )
-{
-       (void) fprintf( stderr, "%s\n", msg );
-       exit( YY_EXIT_FAILURE );
-}
-
-/* Redefine yyless() so it works in section 3 code. */
-
-#undef yyless
-#define yyless(n) \
-       do \
-               { \
-               /* Undo effects of setting up yytext. */ \
-        int yyless_macro_arg = (n); \
-        YY_LESS_LINENO(yyless_macro_arg);\
-               yytext[yyleng] = (yy_hold_char); \
-               (yy_c_buf_p) = yytext + yyless_macro_arg; \
-               (yy_hold_char) = *(yy_c_buf_p); \
-               *(yy_c_buf_p) = '\0'; \
-               yyleng = yyless_macro_arg; \
-               } \
-       while ( 0 )
-
-/* Accessor  methods (get/set functions) to struct members. */
-
-/** Get the current line number.
- * 
- */
-int yyget_lineno  (void)
-{
-        
-    return yylineno;
-}
-
-/** Get the input stream.
- * 
- */
-FILE *yyget_in  (void)
-{
-        return yyin;
-}
-
-/** Get the output stream.
- * 
- */
-FILE *yyget_out  (void)
-{
-        return yyout;
-}
-
-/** Get the length of the current token.
- * 
- */
-int yyget_leng  (void)
-{
-        return yyleng;
-}
-
-/** Get the current token.
- * 
- */
-
-char *yyget_text  (void)
-{
-        return yytext;
-}
-
-/** Set the current line number.
- * @param line_number
- * 
- */
-void yyset_lineno (int  line_number )
-{
-    
-    yylineno = line_number;
-}
-
-/** Set the input stream. This does not discard the current
- * input buffer.
- * @param in_str A readable stream.
- * 
- * @see yy_switch_to_buffer
- */
-void yyset_in (FILE *  in_str )
-{
-        yyin = in_str ;
-}
-
-void yyset_out (FILE *  out_str )
-{
-        yyout = out_str ;
-}
-
-int yyget_debug  (void)
-{
-        return yy_flex_debug;
-}
-
-void yyset_debug (int  bdebug )
-{
-        yy_flex_debug = bdebug ;
-}
-
-static int yy_init_globals (void)
-{
-        /* Initialization is the same as for the non-reentrant scanner.
-     * This function is called from yylex_destroy(), so don't allocate here.
-     */
-
-    (yy_buffer_stack) = 0;
-    (yy_buffer_stack_top) = 0;
-    (yy_buffer_stack_max) = 0;
-    (yy_c_buf_p) = (char *) 0;
-    (yy_init) = 0;
-    (yy_start) = 0;
-
-    (yy_state_buf) = 0;
-    (yy_state_ptr) = 0;
-    (yy_full_match) = 0;
-    (yy_lp) = 0;
-
-/* Defined in main.c */
-#ifdef YY_STDINIT
-    yyin = stdin;
-    yyout = stdout;
-#else
-    yyin = (FILE *) 0;
-    yyout = (FILE *) 0;
-#endif
-
-    /* For future reference: Set errno on error, since we are called by
-     * yylex_init()
-     */
-    return 0;
-}
-
-/* yylex_destroy is for both reentrant and non-reentrant scanners. */
-int yylex_destroy  (void)
-{
-    
-    /* Pop the buffer stack, destroying each element. */
-       while(YY_CURRENT_BUFFER){
-               yy_delete_buffer(YY_CURRENT_BUFFER  );
-               YY_CURRENT_BUFFER_LVALUE = NULL;
-               yypop_buffer_state();
-       }
-
-       /* Destroy the stack itself. */
-       yyfree((yy_buffer_stack) );
-       (yy_buffer_stack) = NULL;
-
-    yyfree ( (yy_state_buf) );
-    (yy_state_buf)  = NULL;
-
-    /* Reset the globals. This is important in a non-reentrant scanner so the next time
-     * yylex() is called, initialization will occur. */
-    yy_init_globals( );
-
-    return 0;
-}
-
-/*
- * Internal utility routines.
- */
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-{
-       register int i;
-       for ( i = 0; i < n; ++i )
-               s1[i] = s2[i];
-}
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen (yyconst char * s )
-{
-       register int n;
-       for ( n = 0; s[n]; ++n )
-               ;
-
-       return n;
-}
-#endif
-
-void *yyalloc (yy_size_t  size )
-{
-       return (void *) malloc( size );
-}
-
-void *yyrealloc  (void * ptr, yy_size_t  size )
-{
-       /* The cast to (char *) in the following accommodates both
-        * implementations that use char* generic pointers, and those
-        * that use void* generic pointers.  It works with the latter
-        * because both ANSI C and C++ allow castless assignment from
-        * any pointer type to void*, and deal with argument conversions
-        * as though doing an assignment.
-        */
-       return (void *) realloc( (char *) ptr, size );
-}
-
-void yyfree (void * ptr )
-{
-       free( (char *) ptr );   /* see yyrealloc() for (char *) cast */
-}
-
-#define YYTABLES_NAME "yytables"
-
-#line 993 "parser.l"
-
-
-
-
-static char *StringToLex;
-
-#ifndef FLEX_SCANNER
-static FILE *lexFP;
-
-static int input()
-{
-    int ret;
-    
-    if (StringToLex != NULL) {
-       ret = *StringToLex;
-       if (ret == NULLCHAR)
-         ret = EOF;
-       else
-         StringToLex++;
-    } else if (unputCount > 0) {
-       ret = unputBuffer[--unputCount];
-    } else {
-       ret = fgetc(lexFP);
-    }    
-
-    if (ret == EOF) 
-      return 0;
-    else
-      return ret;
-}
-
-/*
- * Return offset of next pattern within current file
- */
-int yyoffset()
-{
-    int offset = ftell(lexFP) - unputCount;
-
-    if (offset < 0) {
-       offset = 0;
-    }
-    return(offset);
-}
-static void output(ch)
-     int ch;
-{
-    if(appData.debugMode) fprintf(debugFP, "PARSER BUG: unmatched character '%c' (0%o)\n",
-           ch, ch);
-}
-
-static void unput(ch)
-     int ch;
-{
-    if (ch == 0) return;
-    if (StringToLex != NULL) {
-       StringToLex--;
-    } else {
-       if (unputCount >= UNPUT_BUF_SIZE)
-         if(appData.debugMode) fprintf(debugFP, "PARSER BUG: unput buffer overflow '%c' (0%o)\n",
-                 ch, ch);
-       unputBuffer[unputCount++] = ch;
-    }
-}
-
-/* Get ready to lex from a new file.  Kludge below sticks
-   an artificial newline at the front of the file, which the
-   above grammar ignores, but which makes ^ at start of pattern
-   match at the real start of the file.
-*/
-void yynewfile(f)
-     FILE *f;
-{
-    lexFP = f;
-    StringToLex = NULL;
-    unputCount = 0;
-    unput('\n'); /* kludge */
-}
-
-/* Get ready to lex from a string.  ^ at start of pattern WON'T
-   match at the start of the string!
-*/
-void yynewstr(s)
-     char *s;
-{
-    lexFP = NULL;
-    StringToLex = s;
-    unputCount = 0;
-}
-#endif /*!FLEX_SCANNER*/
-
-#ifdef FLEX_SCANNER
-void my_yy_input(buf, result, max_size)
-     char *buf;
-     int *result;
-     int max_size;
-{
-    int count;
-
-    if (StringToLex != NULL) {
-       count = 0;
-       while (*StringToLex != NULLCHAR) {
-           *buf++ = *StringToLex++;
-           count++;
-       }
-       *result = count;
-       return;
-    } else {
-       count = fread(buf, 1, max_size, yyin);
-       if (count == 0) {
-           *result = YY_NULL;
-       } else {
-           *result = count;
-       }
-       return;
-    }    
-}
-
-static YY_BUFFER_STATE my_file_buffer = NULL;
-
-/*
-    Return offset of next pattern in the current file.
-*/
-int yyoffset()
-{
-    int pos = yy_c_buf_p - YY_CURRENT_BUFFER->yy_ch_buf;
-
-    return(ftell(YY_CURRENT_BUFFER->yy_input_file) -
-         yy_n_chars + pos);
-}
-
-
-void yynewstr(s)
-     char *s;
-{
-    if (my_file_buffer != NULL)
-      yy_delete_buffer(my_file_buffer);
-    StringToLex = s;
-    my_file_buffer = yy_create_buffer(stdin,YY_BUF_SIZE);
-    yy_switch_to_buffer(my_file_buffer);
-}
-
-void yynewfile(f)
-     FILE *f;
-{
-    if (my_file_buffer != NULL)
-      yy_delete_buffer(my_file_buffer);
-    StringToLex = NULL;
-    my_file_buffer = yy_create_buffer(f,YY_BUF_SIZE);
-    yy_switch_to_buffer(my_file_buffer);
-}
-#endif /*FLEX_SCANNER*/
-
-int yywrap()
-{
-    return TRUE;
-}
-
-/* Parse a move from the given string s */
-/* ^ at start of pattern WON'T work here unless using flex */
-ChessMove yylexstr(boardIndex, s, text, len)
-     int boardIndex, len;
-     char *s, *text;
-{
-    ChessMove ret;
-    char *oldStringToLex;
-#ifdef FLEX_SCANNER
-    YY_BUFFER_STATE buffer, oldBuffer;
-#endif
-    
-    yyboardindex = boardIndex;
-    oldStringToLex = StringToLex;
-    StringToLex = s;
-#ifdef FLEX_SCANNER
-    buffer = yy_create_buffer(stdin,YY_BUF_SIZE);
-    oldBuffer = YY_CURRENT_BUFFER;
-    yy_switch_to_buffer(buffer);
-#endif /*FLEX_SCANNER*/
-
-    ret = (ChessMove) Myylex();
-     strncpy(text, yy_text, len-1); // [HGM] vari: yy_text is not available to caller after buffer switch ?!?
-     text[len-1] = NULLCHAR;
-
-#ifdef FLEX_SCANNER
-    if (oldBuffer != NULL) 
-      yy_switch_to_buffer(oldBuffer);
-    yy_delete_buffer(buffer);
-#endif /*FLEX_SCANNER*/
-    StringToLex = oldStringToLex;
-
-    return ret;
-}
-
-int Myylex()
-{   // [HGM] wrapper for yylex, which treats nesting of parentheses
-    int symbol, nestingLevel = 0, i=0;
-    char *p;
-    static char buf[256*MSG_SIZ];
-    buf[0] = NULLCHAR;
-    do { // eat away anything not at level 0
-        symbol = yylex();
-        if(symbol == Open) nestingLevel++;
-        if(nestingLevel) { // save all parsed text between (and including) the ()
-            for(p=yytext; *p && i<256*MSG_SIZ-2;) buf[i++] = *p++;
-            buf[i] = NULLCHAR;
-        }
-        if(symbol == 0) break; // ran into EOF
-        if(symbol == Close) symbol = Comment, nestingLevel--;
-    } while(nestingLevel || symbol == Nothing);
-    yy_text = buf[0] ? buf : (char*)yytext;
-    return symbol;
-}
-
+// New PGN parser by by HGM. I was dissatisfied with the old flex-generated parser for several reasons:\r
+// 1) It required flex to build\r
+// 2) It was not possible to use variant-dependent syntax, which gave trouble for '+' as Sogi promoChar vs check symbol\r
+// 3) It could not handle double-digit rank numbers\r
+// 4) It could not handle PSN moves, with (alpha rank and file digit)\r
+// 5) Having more than 12 ranks would require extension of the rules anyway\r
+// 6) It was cumbersome to maintain, which much code duplication that had to be kept in sync when changing something\r
+// 7) It needed special handling for packaging, because we wanted to include parser.c for people who had no flex\r
+// 8) It was quite large because of the table-driven flex algorithm.\r
+// This new parser suffers from none of that. It might even accomodate traditional Xiangqi notation at some future time.\r
+\r
+#include "config.h"\r
+#include <stdio.h>\r
+#include <ctype.h>\r
+#include <string.h>\r
+#include "common.h"\r
+#include "backend.h"\r
+#include "frontend.h"\r
+#include "parser.h"\r
+#include "moves.h"\r
+\r
+\r
+extern Board   boards[MAX_MOVES];\r
+extern int     PosFlags(int nr);\r
+int            yyboardindex;\r
+int             yyskipmoves = FALSE;\r
+char           currentMoveString[4096]; // a bit ridiculous size?\r
+char *yy_text;\r
+\r
+#define PARSEBUFSIZE 10000\r
+\r
+static FILE *inputFile;\r
+static char *inPtr, *parsePtr, *parseStart;\r
+static char inputBuf[PARSEBUFSIZE];\r
+static char yytext[PARSEBUFSIZE];\r
+static char fromString = 0, lastChar = '\n';\r
+\r
+#define NOTHING 0\r
+#define NUMERIC 1\r
+#define ALPHABETIC 2\r
+#define BADNUMBER (-2000000000)\r
+\r
+int ReadLine()\r
+{   // Read one line from the input file, and append to the buffer\r
+    char c, *start = inPtr;\r
+    if(fromString) return 0; // parsing string, so the end is a hard end\r
+    while((c = fgetc(inputFile)) != EOF) {\r
+       *inPtr++ = c;\r
+       if(c == '\n') { *inPtr = NULLCHAR; return 1; }\r
+       if(inPtr - inputBuf > PARSEBUFSIZE-2) inPtr--; //prevent crash on overflow\r
+    }\r
+    if(inPtr == start) return 0;\r
+    *inPtr++ = '\n', *inPtr = NULLCHAR; // repair missing linefeed at EOF\r
+    return 1;\r
+}\r
+\r
+int Scan(char c, char **p)\r
+{   // line-spanning skip to mentioned character or EOF\r
+    do {\r
+       while(**p) if(*(*p)++ == c) return 0;\r
+    } while(ReadLine());\r
+    // no closing bracket; force match for entire rest of file.\r
+    return 1;\r
+}\r
+\r
+int SkipWhite(char **p)\r
+{   // skip spaces tabs and newlines; return 1 if anything was skipped\r
+    char *start = *p;\r
+    do{\r
+       while(**p == ' ' || **p == '\t' || **p == '\n' || **p == '\r') (*p)++;\r
+    } while(**p == NULLCHAR && ReadLine()); // continue as long as ReadLine reads something\r
+    return *p != start;\r
+}\r
+\r
+int Match(char *pattern, char **ptr)\r
+{\r
+    char *p = pattern, *s = *ptr;\r
+    while(*p && (*p == *s++ || s[-1] == '\r' && *p--)) p++;\r
+    if(*p == 0) {\r
+       *ptr = s;\r
+       return 1;\r
+    }\r
+    return 0; // no match, no ptr update\r
+}\r
+\r
+int Word(char *pattern, char **p)\r
+{\r
+    if(Match(pattern, p)) return 1;\r
+    if(*pattern >= 'a' && *pattern <= 'z' && *pattern - **p == 'a' - 'A') { // capitalized\r
+       (*p)++;\r
+       if(Match(pattern + 1, p)) return 1;\r
+       (*p)--;\r
+    }\r
+    return 0;\r
+}\r
+\r
+int Verb(char *pattern, char **p)\r
+{\r
+    int res = Word(pattern, p);\r
+    if(res && !Match("s", p)) Match("ed", p); // eat conjugation suffix, if any\r
+    return res;\r
+}\r
+\r
+\r
+int Number(char **p)\r
+{\r
+    int val = 0;\r
+    if(**p < '0' || **p > '9') return BADNUMBER;\r
+    while(**p >= '0' && **p <= '9') {\r
+       val = 10*val + *(*p)++ - '0';\r
+    }\r
+    return val;\r
+}\r
+\r
+int RdTime(char c, char **p)\r
+{\r
+    char *start = ++(*p), *sec; // increment *p, as it was pointing to the opening ( or {\r
+    if(Number(p) == BADNUMBER) return 0;\r
+    sec = *p;\r
+    if(Match(":", p) && Number(p) != BADNUMBER && *p - sec == 3) { // well formed\r
+       sec = *p;\r
+       if(Match(".", p) && Number(p) != BADNUMBER && *(*p)++ == c) return 1; // well-formed fraction\r
+       *p = sec;\r
+       if(*(*p)++ == c) return 1; // matching bracket without fraction\r
+    }\r
+    *p = start; // failure\r
+    return 0;\r
+}\r
+\r
+char PromoSuffix(char **p)\r
+{\r
+    char *start = *p;\r
+    if(**p == 'e' && (Match("ep", p) || Match("e.p.", p))) { *p = start; return NULLCHAR; } // non-compliant e.p. suffix is no promoChar!\r
+    if(**p == '+' && gameInfo.variant == VariantShogi) { (*p)++; return '+'; } \r
+    if(**p == '=') (*p)++; //optional =\r
+    if(**p == '(' && (*p)[2] == ')' && isalpha( (*p)[1] )) { (*p) += 3; return (*p)[-2]; }\r
+    if(isalpha(**p)) return *(*p)++;\r
+    if(*p != start) return '='; // must be the optional =\r
+    return NULLCHAR; // no suffix detected\r
+}\r
+\r
+int NextUnit(char **p)\r
+{      // Main parser routine\r
+       int coord[4], n, result, piece, i;\r
+       char type[4], promoted, separator, slash, *oldp, *commentEnd, c;\r
+        int wom = WhiteOnMove(yyboardindex);\r
+\r
+       // ********* try white first, because it is so common **************************\r
+       if(**p == ' ' || **p == '\n' || **p == '\t') { parseStart = (*p)++; return Nothing; }\r
+\r
+\r
+       if(**p == NULLCHAR) { // make sure there is something to parse\r
+           if(fromString) return 0; // we are parsing string, so the end is really the end\r
+           *p = inPtr = inputBuf;\r
+           if(!ReadLine()) return 0; // EOF\r
+       }\r
+       parseStart = oldp = *p; // remember where we begin\r
+\r
+       // Next we do some common symbols where the first character commits us to things that cannot possibly be a move\r
+       // (but not {} comments, as those force time-consuming matching of PGN results immediately after it)\r
+\r
+       // ********* PGN tags ******************************************\r
+       if(**p == '[') {\r
+           oldp = ++(*p);\r
+           if(Match("--", p)) { // "[--" could be start of position diagram\r
+               if(!Scan(']', p) && (*p)[-3] == '-' && (*p)[-2] == '-') return PositionDiagram; \r
+               *p = oldp;\r
+           }\r
+           SkipWhite(p);\r
+           if(isdigit(**p) || isalpha(**p)) {\r
+               do (*p)++; while(isdigit(**p) || isalpha(**p) || **p == '+' ||\r
+                               **p == '-' || **p == '=' || **p == '_' || **p == '#');\r
+               SkipWhite(p);\r
+               if(*(*p)++ == '"') {\r
+                   while(**p != '\n' && (*(*p)++ != '"'|| (*p)[-2] == '\\')); // look for unescaped quote\r
+                   if((*p)[-1] !='"') { *p = oldp; Scan(']', p); return Comment; } // string closing delimiter missing\r
+                   SkipWhite(p); if(*(*p)++ == ']') return PGNTag;\r
+               }\r
+           }\r
+           Scan(']', p); return Comment;\r
+       }\r
+\r
+\r
+       // ********* variations (nesting) ******************************\r
+       if(**p =='(') {\r
+           if(RdTime(')', p)) return ElapsedTime;\r
+           return Open;\r
+       }\r
+       if(**p ==')') { (*p)++; return Close; }\r
+       if(**p == ';') { while(**p != '\n') (*p)++; return Comment; }\r
+\r
+\r
+       // ********* attempt to recognize a SAN move in the leading non-blank text *****\r
+       piece = separator = promoted = slash = n = 0;\r
+       for(i=0; i<4; i++) coord[i] = -1, type[i] = NOTHING;\r
+       if(**p == '+') (*p)++, promoted++;\r
+       if(**p >= 'A' && **p <= 'Z') {\r
+            piece = *(*p)++; // Note we could test for 2-byte non-ascii names here\r
+            if(**p == '/') slash = *(*p)++;\r
+       }\r
+        while(n < 4) {\r
+           if(**p >= 'a' && **p < 'x') coord[n] = *(*p)++ - 'a', type[n++] = ALPHABETIC;\r
+           else if((i = Number(p)) != BADNUMBER) coord[n] = i, type[n++] = NUMERIC;\r
+           else break;\r
+           if(n == 2 && type[0] == type[1]) { // if two identical types, the opposite type in between must have been missing\r
+               type[2] = type[1]; coord[2] = coord[1];\r
+               type[1] = NOTHING; coord[1] = -1; n++;\r
+           }\r
+       }\r
+       // we always get here, and might have read a +, a piece, and upto 4 potential coordinates\r
+       if(n <= 2) { // could be from-square or disambiguator, when -:xX follow, or drop with @ directly after piece, but also to-square\r
+            if(**p == '-' || **p == ':' || **p == 'x' || **p == 'X' || // these cannot be move suffix, so to-square must follow\r
+                (**p == '@' || **p == '*') && n == 0 && !promoted && piece) { // P@ must also be followed by to-square\r
+               separator = *(*p)++;\r
+               if(n == 1) coord[1] = coord[0]; // must be disambiguator, but we do not know which yet\r
+               n = 2;\r
+               while(n < 4) { // attempt to read to-square\r
+                   if(**p >= 'a' && **p < 'x') coord[n] = *(*p)++ - 'a', type[n++] = ALPHABETIC;\r
+                   else if((i = Number(p)) != BADNUMBER) coord[n] = i, type[n++] = NUMERIC;\r
+                   else break;\r
+               }\r
+           } else if((**p == '+' || **p == '=') && n == 1 && piece && type[0] == NUMERIC) { // can be traditional Xiangqi notation\r
+               separator = *(*p)++;\r
+               n = 2;\r
+               if((i = Number(p)) != BADNUMBER) coord[n] = i, type[n++] = NUMERIC;\r
+           } else if(n == 2) { // only one square mentioned, must be to-square\r
+               while(n < 4) { coord[n] = coord[n-2], type[n] = type[n-2], coord[n-2] = -1, type[n-2] = NOTHING; n++; }\r
+           }\r
+       } else if(n == 3 && type[1] != NOTHING) { // must be hyphenless disambiguator + to-square\r
+           for(i=3; i>0; i--) coord[i] = coord[i-1], type[i] = type[i-1]; // move to-square to where it belongs\r
+           type[1] = NOTHING; // disambiguator goes in first two positions\r
+           n = 4;\r
+       }\r
+if(appData.debugMode)fprintf(debugFP, "trial %d,%d,%d,%d  type %d%d%d%d\n", coord[0], coord[1], coord[2], coord[3], type[0], type[1], type[2], type[3]);\r
+       // we always get here; move must be completely read now, with to-square coord(s) at end\r
+       if(n == 3) { // incomplete to-square. Could be Xiangqi traditional, or stuff like fxg\r
+           if(piece && type[1] == NOTHING && type[0] == NUMERIC && type[2] == NUMERIC && \r
+               (separator == '+' || separator == '=' || separator == '-')) {\r
+                    // Xiangqi traditional\r
+\r
+               return ImpossibleMove; // for now treat as invalid\r
+           }\r
+           // fxg stuff, but also things like 0-0, 0-1 and 1-0\r
+           if(!piece && type[1] == NOTHING && type[0] == ALPHABETIC && type[2] == ALPHABETIC) {\r
+               piece = 'P'; n = 4; // kludge alert: fake full to-square\r
+           }\r
+       }\r
+       if(n == 4 && type[2] != type[3] && // we have a valid to-square (kludge: type[3] can be NOTHING on fxg type move)\r
+                    (piece || !promoted) && // promoted indicator only valid on named piece type\r
+                    (type[2] == ALPHABETIC || gameInfo.variant == VariantShogi)) { // in Shogi also allow alphabetic rank\r
+           DisambiguateClosure cl;\r
+           int fromX, fromY, toX, toY;\r
+\r
+           if(slash && (!piece || type[1] == NOTHING)) goto badMove; // slash after piece only in ICS long format\r
+           if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */\r
+\r
+           if(type[2] == NUMERIC) { // alpha-rank\r
+               coord[2] = BOARD_RGHT - BOARD_LEFT - coord[2];\r
+               coord[3] = BOARD_HEIGHT - coord[3];\r
+               if(coord[0] >= 0) coord[0] = BOARD_RGHT - BOARD_LEFT - coord[0];\r
+               if(coord[1] >= 0) coord[1] = BOARD_HEIGHT - coord[1];\r
+           }\r
+           toX = cl.ftIn = (currentMoveString[2] = coord[2] + 'a') - AAA;\r
+           toY = cl.rtIn = (currentMoveString[3] = coord[3] + '0') - ONE;\r
+           if(type[3] == NOTHING) cl.rtIn = -1; // for fxg type moves ask for toY disambiguation\r
+           else if(toY >= BOARD_HEIGHT || toY < 0)   return ImpossibleMove; // vert off-board to-square\r
+           if(toX < BOARD_LEFT || toX >= BOARD_RGHT) return ImpossibleMove;\r
+           if(piece) {\r
+               cl.pieceIn = CharToPiece(wom ? piece : ToLower(piece));\r
+               if(cl.pieceIn == EmptySquare) return ImpossibleMove; // non-existent piece\r
+               if(promoted) cl.pieceIn = (ChessSquare) (PROMOTED cl.pieceIn);\r
+           } else cl.pieceIn = EmptySquare;\r
+           if(separator == '@' || separator == '*') { // drop move. We only get here without from-square or promoted piece\r
+               fromY = DROP_RANK; fromX = cl.pieceIn;\r
+               currentMoveString[0] = piece;\r
+               currentMoveString[1] = '@';\r
+               return LegalityTest(boards[yyboardindex], PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, fromY, fromX, toY, toX, NULLCHAR);\r
+           }\r
+           if(type[1] == NOTHING && type[0] != NOTHING) { // there is a disambiguator\r
+               if(type[0] != type[2]) coord[0] = -1, type[1] = type[0], type[0] = NOTHING; // it was a rank-disambiguator\r
+           }\r
+           if(  type[1] != type[2] && // means fromY is of opposite type as ToX, or NOTHING\r
+               (type[0] == NOTHING || type[0] == type[2]) ) { // well formed\r
+\r
+               fromX = (currentMoveString[0] = coord[0] + 'a') - AAA;\r
+               fromY = (currentMoveString[1] = coord[1] + '0') - ONE;\r
+               currentMoveString[4] = cl.promoCharIn = PromoSuffix(p);\r
+               currentMoveString[5] = NULLCHAR;\r
+               if(type[0] != NOTHING && type[1] != NOTHING && type[3] != NOTHING) { // fully specified.\r
+                   // Note that Disambiguate does not work for illegal moves, but flags them as impossible\r
+                   if(piece) { // check if correct piece indicated\r
+                       ChessSquare realPiece = boards[yyboardindex][fromY][fromX];\r
+                       if(PieceToChar(realPiece) == '~') realPiece = (ChessSquare) (DEMOTED realPiece);\r
+                       if(!(appData.icsActive && PieceToChar(realPiece) == '+') && // trust ICS if it moves promoted pieces\r
+                          piece && realPiece != cl.pieceIn) return ImpossibleMove;\r
+                   }\r
+                   result = LegalityTest(boards[yyboardindex], PosFlags(yyboardindex), fromY, fromX, toY, toX, cl.promoCharIn);\r
+                   if (currentMoveString[4] == NULLCHAR) { // suppy missing mandatory promotion character\r
+                     if(result == WhitePromotion  || result == BlackPromotion) {\r
+                       switch(gameInfo.variant) {\r
+                         case VariantCourier:\r
+                         case VariantShatranj: currentMoveString[4] = PieceToChar(BlackFerz); break;\r
+                         case VariantGreat:    currentMoveString[4] = PieceToChar(BlackMan); break;\r
+                         case VariantShogi:    currentMoveString[4] = '+'; break;\r
+                         default:              currentMoveString[4] = PieceToChar(BlackQueen);\r
+                       }\r
+                     } else if(result == WhiteNonPromotion  || result == BlackNonPromotion) {\r
+                                               currentMoveString[4] = '=';\r
+                     }\r
+                   } else if(appData.testLegality && gameInfo.variant != VariantSChess && // strip off unnecessary and false promo characters\r
+                      !(result == WhitePromotion  || result == BlackPromotion ||\r
+                        result == WhiteNonPromotion || result == BlackNonPromotion)) currentMoveString[4] = NULLCHAR;\r
+                   return result;\r
+               } else if(cl.pieceIn == EmptySquare) cl.pieceIn = wom ? WhitePawn : BlackPawn;\r
+               cl.ffIn = type[0] == NOTHING ? -1 : coord[0] + 'a' - AAA;\r
+               cl.rfIn = type[1] == NOTHING ? -1 : coord[1] + '0' - ONE;\r
+\r
+               Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);\r
+\r
+               if(cl.kind == ImpossibleMove && !piece && type[1] == NOTHING // fxg5 type\r
+                       && toY == (wom ? 4 : 3)) { // could be improperly written e.p.\r
+                   cl.rtIn += wom ? 1 : -1; // shift target square to e.p. square\r
+                   Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);\r
+                   if((cl.kind != WhiteCapturesEnPassant && cl.kind != BlackCapturesEnPassant))\r
+                       return ImpossibleMove; // nice try, but no cigar\r
+               }\r
+\r
+               currentMoveString[0] = cl.ff + AAA;\r
+               currentMoveString[1] = cl.rf + ONE;\r
+               currentMoveString[3] = cl.rt + ONE;\r
+               currentMoveString[4] = cl.promoChar;\r
+\r
+               if((cl.kind == WhiteCapturesEnPassant || cl.kind == BlackCapturesEnPassant) && (Match("ep", p) || Match("e.p.", p)));\r
+\r
+               return (int) cl.kind;\r
+           }\r
+       }\r
+badMove:// we failed to find algebraic move\r
+\r
+\r
+       // ********* SAN Castings *************************************\r
+       *p = oldp;\r
+       if(**p == 'O' || **p == 'o' || **p == '0') {\r
+           int castlingType = 0;\r
+           if(Match("O-O-O", p) || Match("o-o-o", p) || Match("0-0-0", p) || \r
+              Match("OOO", p) || Match("ooo", p) || Match("000", p)) castlingType = 2;\r
+           else if(Match("O-O", p) || Match("o-o", p) || Match("0-0", p) ||\r
+                   Match("OO", p) || Match("oo", p) || Match("00", p)) castlingType = 1;\r
+           if(castlingType) { //code from old parser, collapsed for both castling types, and streamlined a bit\r
+               int rf, ff, rt, ft; ChessSquare king;\r
+\r
+               if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */\r
+\r
+               if (wom) {\r
+                   rf = 0;\r
+                   rt = 0;\r
+                   king = WhiteKing;\r
+               } else {\r
+                   rf = BOARD_HEIGHT-1;\r
+                   rt = BOARD_HEIGHT-1;\r
+                   king = BlackKing;\r
+               }\r
+               ff = (BOARD_WIDTH-1)>>1; // this would be d-file\r
+               if (boards[yyboardindex][rf][ff] == king) {\r
+                   /* ICS wild castling */\r
+                   ft = castlingType == 1 ? BOARD_LEFT+1 : BOARD_RGHT-3;\r
+               } else {\r
+                   ff = BOARD_WIDTH>>1; // e-file\r
+                   ft = castlingType == 1 ? BOARD_RGHT-2 : BOARD_LEFT+2;\r
+               }\r
+               if(PosFlags(0) & F_FRC_TYPE_CASTLING) {\r
+                   if (wom) {\r
+                       ff = initialRights[2];\r
+                       ft = initialRights[castlingType-1];\r
+                   } else {\r
+                       ff = initialRights[5];\r
+                       ft = initialRights[castlingType+2];\r
+                   }\r
+                   if (appData.debugMode) fprintf(debugFP, "Parser FRC (type=%d) %d %d\n", castlingType, ff, ft);\r
+                   if(ff == NoRights || ft == NoRights) return ImpossibleMove;\r
+               }\r
+               sprintf(currentMoveString, "%c%c%c%c",ff+AAA,rf+ONE,ft+AAA,rt+ONE);\r
+               if (appData.debugMode) fprintf(debugFP, "(%d-type) castling %d %d\n", castlingType, ff, ft);\r
+\r
+               return (int) LegalityTest(boards[yyboardindex],\r
+                             PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: e.p.!\r
+                             rf, ff, rt, ft, NULLCHAR);\r
+           }\r
+       }\r
+\r
+\r
+       // ********* Comments and result messages **********************\r
+       *p = oldp; commentEnd = NULL; result = 0;\r
+       if(**p == '{') {\r
+           if(RdTime('}', p)) return ElapsedTime;\r
+           if(lastChar == '\n' && Match("--------------\n", p)) {\r
+               char *q;\r
+               i = Scan ('}', p); q = *p - 16;\r
+               if(Match("\n--------------}\n", &q)) return PositionDiagram;\r
+           } else i = Scan('}', p);\r
+           commentEnd = *p; if(i) return Comment; // return comment that runs to EOF immediately\r
+       }\r
+        if(commentEnd) SkipWhite(p);\r
+       if(Match("*", p)) result = GameUnfinished;\r
+       else if(**p == '0') {\r
+           if( Match("0-1", p) || Match("0/1", p) || Match("0:1", p) ||\r
+               Match("0 - 1", p) || Match("0 / 1", p) || Match("0 : 1", p)) result = BlackWins;\r
+       } else if(**p == '1') {\r
+           if( Match("1-0", p) || Match("1/0", p) || Match("1:0", p) ||\r
+               Match("1 - 0", p) || Match("1 / 0", p) || Match("1 : 0", p)) result = WhiteWins;\r
+           else if(Match("1/2 - 1/2", p) || Match("1/2:1/2", p) || Match("1/2 : 1/2", p) || Match("1 / 2 - 1 / 2", p) ||\r
+                   Match("1 / 2 : 1 / 2", p) || Match("1/2", p) || Match("1 / 2", p)) result = GameIsDrawn;\r
+       }\r
+       if(result) {\r
+           if(Match(" (", p) && !Scan(')', p) || Match(" {", p) && !Scan('}', p)) { // there is a comment after the PGN result!\r
+               if(commentEnd) { *p = commentEnd; return Comment; } // so comment before it is normal comment; return that first\r
+           }\r
+           return result; // this returns a possible preceeding comment as result details\r
+       }\r
+       if(commentEnd) { *p = commentEnd; return Comment; } // there was no PGN result following, so return as normal comment\r
+\r
+\r
+       // ********* Move numbers (after castlings or PGN results!) ***********\r
+       if((i = Number(p)) != BADNUMBER) { // a single number was read as part of our attempt to read a move\r
+           char *numEnd = *p;\r
+           if(**p == '.') (*p)++; SkipWhite(p);\r
+           if(**p == '+' || isalpha(**p) || gameInfo.variant == VariantShogi && *p != numEnd && isdigit(**p)) {\r
+               *p = numEnd;\r
+               return i == 1 ? MoveNumberOne : Nothing;\r
+           }\r
+           *p = numEnd; return Nothing;\r
+       }\r
+\r
+\r
+       // ********* non-compliant game-result indicators *********************\r
+       if(Match("+-+", p) || Word("stalemate", p)) return GameIsDrawn;\r
+       if(Match("++", p) || Verb("resign", p) || (Word("check", p) || 1) && Word("mate", p) )\r
+           return (wom ? BlackWins : WhiteWins);\r
+       c = ToUpper(**p);\r
+       if(Word("w", p) && (Match("hite", p) || 1) || Word("b", p) && (Match("lack", p) || 1) ) {\r
+           if(**p != ' ') return Nothing;\r
+           ++*p;\r
+           if(Verb("disconnect", p)) return GameUnfinished;\r
+           if(Verb("resign", p) || Verb("forfeit", p) || Word("mated", p) || Word("lost", p) || Word("loses", p))\r
+               return (c == 'W' ? BlackWins : WhiteWins);\r
+           if(Word("mates", p) || Word("wins", p) || Word("won", p))\r
+               return (c != 'W' ? BlackWins : WhiteWins);\r
+           return Nothing;\r
+       }\r
+       if(Word("draw", p)) {\r
+           if(**p == 'n') (*p)++;\r
+           if(**p != ' ') return GameIsDrawn;\r
+           oldp = ++*p;\r
+           if(Word("agreed", p)) return GameIsDrawn;\r
+           if(Match("by ", p) && (Word("repetition", p) || Word("agreement", p)) ) return GameIsDrawn;\r
+           *p = oldp;\r
+           if(*(*p)++ == '(') {\r
+               while(**p != '\n') if(*(*p)++ == ')') break;\r
+               if((*p)[-1] == ')')  return GameIsDrawn;\r
+           }\r
+           *p = oldp - 1; return GameIsDrawn;\r
+       }\r
+\r
+\r
+       // ********* Numeric annotation glyph **********************************\r
+       if(**p == '$') { (*p)++; if(Number(p) != BADNUMBER) return NAG; return Nothing; }\r
+\r
+\r
+       // ********** by now we are getting down to the silly stuff ************\r
+       if(Word("gnu", p) || Match("GNU", p)) {\r
+           if(**p == ' ') (*p)++;\r
+           if(Word("chess", p) || Match("CHESS", p)) {\r
+               char *q;\r
+               if((q = strstr(*p, "game")) || (q = strstr(*p, "GAME")) || (q = strstr(*p, "Game"))) {\r
+                   (*p) = q + 4; return GNUChessGame;\r
+               }\r
+           }\r
+           return Nothing;\r
+       }\r
+       if(lastChar == '\n' && (Match("# ", p) || Match("; ", p) || Match("% ", p))) {\r
+           while(**p != '\n' && **p != ' ') (*p)++;\r
+           if(**p == ' ' && (Match(" game file", p) || Match(" position file", p))) {\r
+               while(**p != '\n') (*p)++; // skip to EOLN\r
+               return XBoardGame;\r
+           }\r
+           *p = oldp; // we might need to re-match the skipped stuff\r
+       }\r
+\r
+\r
+       // ********* Efficient skipping of (mostly) alphabetic chatter **********\r
+       while(isdigit(**p) || isalpha(**p) || **p == '-') (*p)++;\r
+       if(*p != oldp) {\r
+           if(**p == '\'') {\r
+               while(isdigit(**p) || isalpha(**p) || **p == '-' || **p == '\'') (*p)++;\r
+               return Nothing; // random word\r
+           }\r
+           if(lastChar == '\n' && Match(": ", p)) { // mail header, skip indented lines\r
+               do {\r
+                   while(**p != '\n') (*p)++;\r
+                   if(!ReadLine()) return Nothing; // append next line if not EOF\r
+               } while(Match("\n ", p) || Match("\n\t", p));\r
+           }\r
+           return Nothing;\r
+       }\r
+\r
+\r
+       // ********* Could not match to anything. Return offending character ****\r
+       (*p)++;\r
+       return Nothing;\r
+}\r
+\r
+/*\r
+    Return offset of next pattern in the current file.\r
+*/\r
+int yyoffset()\r
+{\r
+    return ftell(inputFile) - (inPtr - parsePtr); // subtract what is read but not yet parsed\r
+}\r
+\r
+void yynewfile (FILE *f)\r
+{   // prepare parse buffer for reading file\r
+    inputFile = f;\r
+    inPtr = parsePtr = inputBuf;\r
+    lastChar = '\n';\r
+    *inPtr = NULLCHAR; // make sure we will start by reading a line\r
+}\r
+\r
+void yynewstr P((char *s))\r
+{\r
+}\r
+\r
+int yylex()\r
+{   // this replaces the flex-generated parser\r
+    int result = NextUnit(&parsePtr);\r
+    char *p = parseStart, *q = yytext;\r
+    while(p < parsePtr) *q++ = *p++; // copy the matched text to yytext[]\r
+    *q = NULLCHAR;\r
+    lastChar = q[-1];\r
+    return result;\r
+}\r
+\r
+int Myylex()\r
+{   // [HGM] wrapper for yylex, which treats nesting of parentheses\r
+    int symbol, nestingLevel = 0, i=0;\r
+    char *p;\r
+    static char buf[256*MSG_SIZ];\r
+    buf[0] = NULLCHAR;\r
+    do { // eat away anything not at level 0\r
+        symbol = yylex();\r
+        if(symbol == Open) nestingLevel++;\r
+        if(nestingLevel) { // save all parsed text between (and including) the ()\r
+            for(p=yytext; *p && i<256*MSG_SIZ-2;) buf[i++] = *p++;\r
+            buf[i] = NULLCHAR;\r
+        }\r
+        if(symbol == 0) break; // ran into EOF\r
+        if(symbol == Close) symbol = Comment, nestingLevel--;\r
+    } while(nestingLevel || symbol == Nothing);\r
+    yy_text = buf[0] ? buf : (char*)yytext;\r
+    return symbol;\r
+}\r
+\r
+ChessMove yylexstr(int boardIndex, char *s, char *buf, int buflen)\r
+{\r
+    ChessMove ret;\r
+    char *savPP = parsePtr;\r
+    fromString = 1;\r
+    yyboardindex = boardIndex;\r
+    parsePtr = s;\r
+    ret = (ChessMove) Myylex();\r
+    strncpy(buf, yy_text, buflen-1);\r
+    buf[buflen-1] = NULLCHAR;\r
+    parsePtr = savPP;\r
+    fromString = 0;\r
+    return ret;\r
+}\r