Fossil

static PPoint pik_position_between(Pik *p, PNum x, PPoint p1, PPoint p2);
static PPoint pik_position_at_angle(Pik *p, PNum dist, PNum r, PPoint pt);
static PPoint pik_position_at_hdg(Pik *p, PNum dist, PToken *pD, PPoint pt);
static void pik_same(Pik *p, PElem*, PToken*);
static PPoint pik_nth_vertex(Pik *p, PToken *pNth, PToken *pErr, PElem *pElem);
static PToken pik_next_semantic_token(Pik *p, PToken *pThis);
static void pik_compute_layout_settings(Pik*);
static void pik_behind(Pik*,PElem*);


#line 456 "pikchr.c"
/**************** End of %include directives **********************************/
/* These constants specify the various numeric values for terminal symbols.
***************** Begin token definitions *************************************/
#ifndef T_ID
#define T_ID                              1
#define T_EDGEPT                          2
#define T_OF                              3

#define T_HEADING                        32
#define T_GO                             33
#define T_AT                             34
#define T_WITH                           35
#define T_SAME                           36
#define T_AS                             37
#define T_FIT                            38
#define T_BEHIND                         39
#define T_UNTIL                          40
#define T_EVEN                           41

#define T_DOT_E                          42
#define T_HEIGHT                         43
#define T_WIDTH                          44
#define T_RADIUS                         45
#define T_DIAMETER                       46
#define T_DOTTED                         47
#define T_DASHED                         48

#define T_ITALIC                         62
#define T_BOLD                           63
#define T_ALIGNED                        64
#define T_BIG                            65
#define T_SMALL                          66
#define T_LP                             67
#define T_RP                             68
#define T_AND                            69
#define T_LT                             70
#define T_GT                             71
#define T_WAY                            72
#define T_BETWEEN                        73
#define T_THE                            74
#define T_DOT_L                          75
#define T_START                          76
#define T_END                            77
#define T_NTH                            78
#define T_VERTEX                         79
#define T_IN                             80
#define T_DOT_U                          81
#define T_LAST                           82
#define T_NUMBER                         83
#define T_FUNC1                          84
#define T_FUNC2                          85
#define T_X                              86
#define T_Y                              87
#define T_TOP                            88
#define T_BOTTOM                         89
#endif
/**************** End token definitions ***************************************/

/* The next sections is a series of control #defines.
** various aspects of the generated parser.
**    YYCODETYPE         is the data type used to store the integer codes
**                       that represent terminal and non-terminal symbols.

**    YY_MAX_REDUCE      Maximum value for reduce actions
*/
#ifndef INTERFACE
# define INTERFACE 1
#endif
/************* Begin control #defines *****************************************/
#define YYCODETYPE unsigned char
#define YYNOCODE 123
#define YYACTIONTYPE unsigned short int
#define pik_parserTOKENTYPE PToken
typedef union {
  int yyinit;
  pik_parserTOKENTYPE yy0;
  int yy34;
  PEList* yy80;
  PNum yy147;
  PElem* yy174;
  PPoint yy211;

} YYMINORTYPE;
#ifndef YYSTACKDEPTH
#define YYSTACKDEPTH 100
#endif
#define pik_parserARG_SDECL
#define pik_parserARG_PDECL
#define pik_parserARG_PARAM
#define pik_parserARG_FETCH
#define pik_parserARG_STORE
#define pik_parserCTX_SDECL Pik *p;
#define pik_parserCTX_PDECL ,Pik *p
#define pik_parserCTX_PARAM ,p
#define pik_parserCTX_FETCH Pik *p=yypParser->p;
#define pik_parserCTX_STORE yypParser->p=p;
#define YYFALLBACK 1
#define YYNSTATE             169
#define YYNRULE              158
#define YYNRULE_WITH_ACTION  122
#define YYNTOKEN             90
#define YY_MAX_SHIFT         168
#define YY_MIN_SHIFTREDUCE   290
#define YY_MAX_SHIFTREDUCE   447
#define YY_ERROR_ACTION      448
#define YY_ACCEPT_ACTION     449
#define YY_NO_ACTION         450
#define YY_MIN_REDUCE        451
#define YY_MAX_REDUCE        608
/************* End control #defines *******************************************/
#define YY_NLOOKAHEAD ((int)(sizeof(yy_lookahead)/sizeof(yy_lookahead[0])))

/* Define the yytestcase() macro to be a no-op if is not already defined
** otherwise.
**
** Applications can choose to define yytestcase() in the %include section

**  yy_shift_ofst[]    For each state, the offset into yy_action for
**                     shifting terminals.
**  yy_reduce_ofst[]   For each state, the offset into yy_action for
**                     shifting non-terminals after a reduce.
**  yy_default[]       Default action for each state.
**
*********** Begin parsing tables **********************************************/
#define YY_ACTTAB_COUNT (957)
static const YYACTIONTYPE yy_action[] = {
 /*     0 */   585,  502,  167,  124,   21,  125,  452,  459,   28,  451,
 /*    10 */   585,   70,  455,  128,  435,  436,  344,   49,   81,   27,
 /*    20 */    48,   30,  585,  168,  146,  449,   23,  323,  324,   10,
 /*    30 */     9,   34,  158,   33,    8,   71,  126,   29,  340,   59,
 /*    40 */   587,   77,  587,  344,  344,  344,  344,  433,  434,  345,
 /*    50 */   346,  347,  348,  349,  350,  351,  352,  397,  443,  562,
 /*    60 */    53,   54,  563,  564,  561,  457,   28,   73,  380,  143,
 /*    70 */   435,  436,  344,   27,  458,  116,  115,  167,  124,  306,
 /*    80 */    93,  446,  447,  397,   26,  310,   53,   54,   70,  118,
 /*    90 */   167,  124,  127,  380,  380,   22,  435,  436,  344,  344,
 /*   100 */   344,  344,  344,  433,  434,   72,  153,  143,   24,  155,
 /*   110 */   151,  157,  114,  116,  115,  167,  124,  589,   58,   57,
 /*   120 */    56,   55,   82,    1,   83,  344,  344,  344,  344,  433,
 /*   130 */   434,   60,  145,  144,  104,   12,    6,  110,  122,  396,
 /*   140 */   160,  159,  442,  442,  444,  445,  118,  167,  124,    5,
 /*   150 */   465,  397,  443,  541,   53,   54,  580,   46,   43,  112,
 /*   160 */   109,    7,  380,  122,  122,  396,  160,  159,  442,  442,
 /*   170 */   397,  443,  432,   53,   54,  446,  447,  431,  499,  167,
 /*   180 */   124,  380,  359,  360,  361,  130,  541,   80,   11,  308,
 /*   190 */    79,  412,  541,  440,  446,  447,  134,  420,  421,  422,
 /*   200 */   423,  438,  149,  135,  413,  414,  415,  417,   80,   75,
 /*   210 */   308,   79,   14,  420,  421,  422,  423,    1,  382,  164,
 /*   220 */   138,  136,   58,   57,   56,   55,  145,  144,  104,  141,
 /*   230 */   167,  124,  122,  396,  160,  159,    1,   47,  444,  445,
 /*   240 */   404,  405,   32,  140,  139,  145,  144,  104,   76,   15,
 /*   250 */    40,  122,  396,  160,  159,  110,  397,  444,  445,   53,
 /*   260 */    54,   16,   56,   55,  118,  167,  124,  111,  479,  301,
 /*   270 */   302,  303,  121,  305,   61,  435,  436,  344,   18,   17,
 /*   280 */   123,   35,  113,  452,  459,   28,  395,   62,   20,  455,
 /*   290 */   137,  439,   63,  138,  136,   58,   57,   56,   55,   64,
 /*   300 */   168,  410,  411,   23,  344,  344,  344,  344,  433,  434,
 /*   310 */    47,  117,  435,  436,  344,  397,  140,  139,   53,   54,
 /*   320 */   363,  110,    5,   40,  397,   19,  380,   53,   54,    2,
 /*   330 */   118,  167,  124,  109,  456,  380,  409,  122,  396,  160,
 /*   340 */   159,  344,  344,  344,  344,  433,  434,  442,  442,  384,
 /*   350 */   163,   18,   17,   65,  131,  129,  397,  335,  408,   53,
 /*   360 */    54,   20,   66,  137,  439,  383,  165,  380,   95,  397,
 /*   370 */   331,  407,   53,   54,  372,  373,   67,  118,  167,  124,
 /*   380 */   380,    5,   68,  406,  442,  442,   51,   36,   52,  468,
 /*   390 */     5,   25,  109,   84,  443,  381,  122,  396,  160,  159,
 /*   400 */    38,  109,  118,  167,  124,  122,  396,  160,  159,  397,
 /*   410 */   382,  164,   53,   54,   85,   69,  388,  446,  447,   73,
 /*   420 */   111,  143,    5,  118,  167,  124,  504,  116,  115,  167,
 /*   430 */   124,  386,  387,  109,   73,    5,  143,  122,  396,  160,
 /*   440 */   159,  503,  116,  115,  167,  124,  109,  382,  164,  450,
 /*   450 */   122,  396,  160,  159,  397,  166,   31,   53,   54,  537,
 /*   460 */   167,  124,  453,  459,   28,  380,  450,  397,  455,  142,
 /*   470 */    53,   54,  123,  450,  100,    5,  450,  450,  380,  168,
 /*   480 */   444,  445,   23,  118,  167,  124,  109,  450,  450,  450,
 /*   490 */   122,  396,  160,  159,  450,  354,  354,  354,  354,  354,
 /*   500 */   354,  354,  354,  354,  354,  450,  162,   86,  153,  123,
 /*   510 */   450,  155,  151,  157,  450,  450,  118,  167,  124,  450,
 /*   520 */     3,  450,   58,   57,   56,   55,  450,   58,   57,   56,
 /*   530 */    55,  109,  450,    4,  450,  122,  396,  160,  159,  536,
 /*   540 */   167,  124,   42,  450,  109,  450,  450,   13,  122,  396,
 /*   550 */   160,  159,   87,  153,  450,  450,  155,  151,  157,  450,
 /*   560 */   450,  118,  167,  124,  450,   99,  153,  450,  450,  155,
 /*   570 */   151,  157,  450,  450,  118,  167,  124,  450,  535,  167,
 /*   580 */   124,   73,  450,  143,  150,  167,  124,  101,  497,  116,
 /*   590 */   115,  167,  124,   73,  450,  143,  118,  167,  124,  450,
 /*   600 */   487,  116,  115,  167,  124,  450,   73,  450,  143,  450,
 /*   610 */   450,  110,  450,  486,  116,  115,  167,  124,  450,  450,
 /*   620 */   118,  167,  124,  450,  465,  450,   73,  450,  143,   78,
 /*   630 */    78,  450,  450,  523,  116,  115,  167,  124,  450,   73,
 /*   640 */   334,  143,   58,   57,   56,   55,  133,  116,  115,  167,
 /*   650 */   124,   73,  330,  143,   58,   57,   56,   55,  530,  116,
 /*   660 */   115,  167,  124,  450,   73,  450,  143,  152,  167,  124,
 /*   670 */    37,  529,  116,  115,  167,  124,   73,  450,  143,  154,
 /*   680 */   167,  124,   39,  528,  116,  115,  167,  124,   73,  450,
 /*   690 */   143,   58,   57,   56,   55,  527,  116,  115,  167,  124,
 /*   700 */   450,   73,  450,  143,  450,  450,   45,  450,  526,  116,
 /*   710 */   115,  167,  124,   58,   57,   56,   55,  319,  156,  167,
 /*   720 */   124,   73,  450,  143,  161,  167,  124,  450,  525,  116,
 /*   730 */   115,  167,  124,  450,   73,  450,  143,   58,   57,   56,
 /*   740 */    55,  147,  116,  115,  167,  124,   73,  450,  143,  450,
 /*   750 */   450,  443,   41,  148,  116,  115,  167,  124,  450,   73,
 /*   760 */   450,  143,   58,   57,   56,   55,  132,  116,  115,  167,
 /*   770 */   124,   73,  450,  143,  446,  447,  450,   44,  483,  116,
 /*   780 */   115,  167,  124,   58,   57,   56,   55,   58,   57,   56,
 /*   790 */    55,   74,   58,   57,   56,   55,   58,   57,   56,   55,
 /*   800 */   314,  395,   58,   57,   56,   55,  313,   50,   58,   57,
 /*   810 */    56,   55,   58,   57,   56,   55,  450,  450,  102,   58,
 /*   820 */    57,   56,   55,  103,  450,  450,  395,  118,  167,  124,
 /*   830 */   450,   88,  118,  167,  124,   89,  450,  444,  445,  105,
 /*   840 */   118,  167,  124,  450,  118,  167,  124,  358,  118,  167,
 /*   850 */   124,  399,  450,  450,   90,  450,  450,   91,  450,  450,
 /*   860 */   106,  450,  450,  118,  167,  124,  118,  167,  124,  118,
 /*   870 */   167,  124,  398,  450,   92,  450,  395,  450,  107,  450,
 /*   880 */   450,  108,  450,  118,  167,  124,  450,  118,  167,  124,
 /*   890 */   118,  167,  124,   94,  450,  450,   96,  450,  450,   97,
 /*   900 */   450,  450,  118,  167,  124,  118,  167,  124,  118,  167,
 /*   910 */   124,  450,  450,   98,  540,  167,  124,  450,  555,  450,
 /*   920 */   450,  554,  118,  167,  124,  450,  553,  118,  167,  124,
 /*   930 */   118,  167,  124,  552,  450,  118,  167,  124,  450,  119,
 /*   940 */   450,  450,  118,  167,  124,  120,  450,  450,  118,  167,
 /*   950 */   124,  450,  450,  450,  118,  167,  124,
};
static const YYCODETYPE yy_lookahead[] = {
 /*     0 */     0,  103,  104,  105,  122,   90,   91,   92,   93,    0,
 /*    10 */    10,    3,   97,   96,   14,   15,   16,   95,   18,   10,
 /*    20 */    98,   99,   22,  108,   96,  110,  111,   27,   28,   29,
 /*    30 */    30,   31,   96,   33,   34,   35,   36,   97,   38,   39,
 /*    40 */   118,  119,  120,   43,   44,   45,   46,   47,   48,   49,
 /*    50 */    50,   51,   52,   53,   54,   55,   56,    1,    2,   95,
 /*    60 */     4,    5,   98,   99,  100,   92,   93,   94,   12,   96,
 /*    70 */    14,   15,   16,   10,  101,  102,  103,  104,  105,   19,
 /*    80 */    94,   25,   26,    1,  114,   22,    4,    5,   80,  103,
 /*    90 */   104,  105,   96,   12,   12,  109,   14,   15,   16,   43,
 /*   100 */    44,   45,   46,   47,   48,   94,   95,   96,  116,   98,
 /*   110 */    99,  100,  101,  102,  103,  104,  105,  121,    4,    5,
 /*   120 */     6,    7,  106,   67,  106,   43,   44,   45,   46,   47,
 /*   130 */    48,   37,   76,   77,   78,   19,   34,   94,   82,   83,
 /*   140 */    84,   85,   86,   87,   88,   89,  103,  104,  105,   67,
 /*   150 */   107,    1,    2,   42,    4,    5,  113,    4,    5,   78,
 /*   160 */    78,   34,   12,   82,   82,   83,   84,   85,   86,   87,
 /*   170 */     1,    2,   35,    4,    5,   25,   26,   35,  103,  104,
 /*   180 */   105,   12,   68,   68,   68,   41,   75,   18,   69,   20,
 /*   190 */    21,    1,   81,   73,   25,   26,   72,   23,   24,   25,
 /*   200 */    26,   73,   12,   74,   14,   15,   16,   17,   18,   42,
 /*   210 */    20,   21,    3,   23,   24,   25,   26,   67,   20,   21,
 /*   220 */     2,    3,    4,    5,    6,    7,   76,   77,   78,  103,
 /*   230 */   104,  105,   82,   83,   84,   85,   67,   19,   88,   89,
 /*   240 */    86,   87,   75,   25,   26,   76,   77,   78,   42,    3,
 /*   250 */    32,   82,   83,   84,   85,   94,    1,   88,   89,    4,
 /*   260 */     5,    3,    6,    7,  103,  104,  105,   12,  107,   14,
 /*   270 */    15,   16,   75,   18,    3,   14,   15,   16,   60,   61,


 /*   280 */    82,   75,   90,   91,   92,   93,   68,    3,   70,   97,
 /*   290 */    72,   73,    3,    2,    3,    4,    5,    6,    7,    3,
 /*   300 */   108,   86,   87,  111,   43,   44,   45,   46,   47,   48,
 /*   310 */    19,   75,   14,   15,   16,    1,   25,   26,    4,    5,
 /*   320 */    71,   94,   67,   32,    1,   19,   12,    4,    5,   13,
 /*   330 */   103,  104,  105,   78,  107,   12,   68,   82,   83,   84,

 /*   340 */    85,   43,   44,   45,   46,   47,   48,   86,   87,   20,
 /*   350 */    21,   60,   61,    3,   40,   41,    1,    2,   68,    4,
 /*   360 */     5,   70,    3,   72,   73,   20,   21,   12,   94,    1,
 /*   370 */     2,   68,    4,    5,   76,   77,    3,  103,  104,  105,
 /*   380 */    12,   67,    3,   68,   86,   87,   67,   32,   67,  115,
 /*   390 */    67,  117,   78,   94,    2,   12,   82,   83,   84,   85,
 /*   400 */    32,   78,  103,  104,  105,   82,   83,   84,   85,    1,
 /*   410 */    20,   21,    4,    5,   94,    3,   22,   25,   26,   94,
 /*   420 */    12,   96,   67,  103,  104,  105,  101,  102,  103,  104,
 /*   430 */   105,   22,   22,   78,   94,   67,   96,   82,   83,   84,
 /*   440 */    85,  101,  102,  103,  104,  105,   78,   20,   21,  123,
 /*   450 */    82,   83,   84,   85,    1,   81,   11,    4,    5,  103,
 /*   460 */   104,  105,   91,   92,   93,   12,  123,    1,   97,   79,
 /*   470 */     4,    5,   82,  123,   94,   67,  123,  123,   12,  108,
 /*   480 */    88,   89,  111,  103,  104,  105,   78,  123,  123,  123,
 /*   490 */    82,   83,   84,   85,  123,   57,   58,   59,   60,   61,
 /*   500 */    62,   63,   64,   65,   66,  123,   79,   94,   95,   82,
 /*   510 */   123,   98,   99,  100,  123,  123,  103,  104,  105,  123,
 /*   520 */    67,  123,    4,    5,    6,    7,  123,    4,    5,    6,


 /*   530 */     7,   78,  123,   67,  123,   82,   83,   84,   85,  103,
 /*   540 */   104,  105,   19,  123,   78,  123,  123,   29,   82,   83,
 /*   550 */    84,   85,   94,   95,  123,  123,   98,   99,  100,  123,
 /*   560 */   123,  103,  104,  105,  123,   94,   95,  123,  123,   98,
 /*   570 */    99,  100,  123,  123,  103,  104,  105,  123,  103,  104,
 /*   580 */   105,   94,  123,   96,  103,  104,  105,   94,  101,  102,
 /*   590 */   103,  104,  105,   94,  123,   96,  103,  104,  105,  123,
 /*   600 */   101,  102,  103,  104,  105,  123,   94,  123,   96,  123,
 /*   610 */   123,   94,  123,  101,  102,  103,  104,  105,  123,  123,
 /*   620 */   103,  104,  105,  123,  107,  123,   94,  123,   96,  112,
 /*   630 */   113,  123,  123,  101,  102,  103,  104,  105,  123,   94,
 /*   640 */     2,   96,    4,    5,    6,    7,  101,  102,  103,  104,
 /*   650 */   105,   94,    2,   96,    4,    5,    6,    7,  101,  102,
 /*   660 */   103,  104,  105,  123,   94,  123,   96,  103,  104,  105,
 /*   670 */    32,  101,  102,  103,  104,  105,   94,  123,   96,  103,
 /*   680 */   104,  105,   32,  101,  102,  103,  104,  105,   94,  123,
 /*   690 */    96,    4,    5,    6,    7,  101,  102,  103,  104,  105,
 /*   700 */   123,   94,  123,   96,  123,  123,   19,  123,  101,  102,
 /*   710 */   103,  104,  105,    4,    5,    6,    7,    8,  103,  104,
 /*   720 */   105,   94,  123,   96,  103,  104,  105,  123,  101,  102,
 /*   730 */   103,  104,  105,  123,   94,  123,   96,    4,    5,    6,
 /*   740 */     7,  101,  102,  103,  104,  105,   94,  123,   96,  123,
 /*   750 */   123,    2,   19,  101,  102,  103,  104,  105,  123,   94,
 /*   760 */   123,   96,    4,    5,    6,    7,  101,  102,  103,  104,
 /*   770 */   105,   94,  123,   96,   25,   26,  123,   19,  101,  102,
 /*   780 */   103,  104,  105,    4,    5,    6,    7,    4,    5,    6,


 /*   790 */     7,   42,    4,    5,    6,    7,    4,    5,    6,    7,
 /*   800 */     8,   68,    4,    5,    6,    7,    8,   19,    4,    5,
 /*   810 */     6,    7,    4,    5,    6,    7,  123,  123,   94,    4,
 /*   820 */     5,    6,    7,   94,  123,  123,   68,  103,  104,  105,
 /*   830 */   123,   94,  103,  104,  105,   94,  123,   88,   89,   94,
 /*   840 */   103,  104,  105,  123,  103,  104,  105,   68,  103,  104,
 /*   850 */   105,   68,  123,  123,   94,  123,  123,   94,  123,  123,
 /*   860 */    94,  123,  123,  103,  104,  105,  103,  104,  105,  103,
 /*   870 */   104,  105,   68,  123,   94,  123,   68,  123,   94,  123,
 /*   880 */   123,   94,  123,  103,  104,  105,  123,  103,  104,  105,
 /*   890 */   103,  104,  105,   94,  123,  123,   94,  123,  123,   94,
 /*   900 */   123,  123,  103,  104,  105,  103,  104,  105,  103,  104,
 /*   910 */   105,  123,  123,   94,  103,  104,  105,  123,   94,  123,
 /*   920 */   123,   94,  103,  104,  105,  123,   94,  103,  104,  105,
 /*   930 */   103,  104,  105,   94,  123,  103,  104,  105,  123,   94,
 /*   940 */   123,  123,  103,  104,  105,   94,  123,  123,  103,  104,
 /*   950 */   105,  123,  123,  123,  103,  104,  105,   90,   90,   90,
 /*   960 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*   970 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*   980 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*   990 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*  1000 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*  1010 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*  1020 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*  1030 */    90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
 /*  1040 */    90,   90,   90,   90,   90,   90,   90,
};
#define YY_SHIFT_COUNT    (168)
#define YY_SHIFT_MIN      (0)
#define YY_SHIFT_MAX      (815)
static const unsigned short int yy_shift_ofst[] = {
 /*     0 */   190,   56,  169,   82,   82,   82,  150,  150,  150,  150,
 /*    10 */   150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
 /*    20 */   150,  150,  150,  255,  190,    0,  255,  190,  323,  314,
 /*    30 */   408,  408,  298,  355,  368,  261,  323,  323,  323,  323,
 /*    40 */   323,  323,  323,  453,  323,  323,  466,  323,  323,  323,
 /*    50 */   323,  323,  323,  323,  323,  323,  323,  323,  323,   81,
 /*    60 */    81,   81,   81,   81,   81,   81,   81,   81,   81,   81,
 /*    70 */    81,  749,  218,  291,  392,  392,  392,  174,   60,  957,
 /*    80 */   957,  957,  438,  438,  638,  650,  733,  758,  518,  114,
 /*    90 */   523,  779,  687,  709,  792,  798,  783,  788,  804,  808,
 /*   100 */   815,  815,  815,  815,  390,  815,  815,  815,  815,  427,
 /*   110 */   815,  111,  198,   63,  116,  167,  153,  154,  206,  256,
 /*   120 */   256,  215,  329,  345,    8,    9,   94,  102,  127,  137,
 /*   130 */   142,  144,  119,  115,  120,  124,  129,  128,  209,  246,
 /*   140 */   258,  197,  271,  284,  289,  296,  236,  249,  306,  316,
 /*   150 */   268,  350,  290,  359,  303,  373,  315,  379,  236,  319,
 /*   160 */   321,  197,  412,  394,  409,  410,  383,  374,  445,
};
#define YY_REDUCE_COUNT (81)
#define YY_REDUCE_MIN   (-118)
#define YY_REDUCE_MAX   (851)
static const short yy_reduce_ofst[] = {
 /*     0 */   -85,   11,  -27,  413,  458,  471,  325,  340,  487,  499,
 /*    10 */   512,  532,  545,  557,  570,  582,  594,  607,  627,  640,
 /*    20 */   652,  665,  677,  517,  192,  -78,   43,  371,  274,  -14,
 /*    30 */   161,  227,  -36,  299,  320,  -36,  380,  493,  724,  729,
 /*    40 */   737,  741,  745,  760,  763,  766,  780,  784,  787,  799,
 /*    50 */   802,  805,  819,  824,  827,  832,  839,  845,  851, -102,
 /*    60 */    75,  126,  356,  436,  475,  481,  564,  576,  615,  621,
 /*    70 */   811,   -4, -118, -118,  -83,  -72,  -64,  -60,  -30,   -8,
 /*    80 */    16,   18,
};
static const YYACTIONTYPE yy_default[] = {
 /*     0 */   454,  448,  448,  448,  448,  448,  448,  448,  448,  448,
 /*    10 */   448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
 /*    20 */   448,  448,  448,  448,  454,  591,  448,  454,  586,  482,
 /*    30 */   448,  448,  448,  590,  488,  448,  448,  448,  448,  448,
 /*    40 */   448,  448,  448,  448,  448,  448,  448,  448,  478,  448,
 /*    50 */   448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
 /*    60 */   448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
 /*    70 */   448,  448,  448,  448,  448,  448,  448,  448,  460,  472,
 /*    80 */   514,  514,  470,  500,  448,  448,  448,  448,  448,  448,
 /*    90 */   448,  448,  448,  481,  476,  473,  448,  448,  448,  448,
 /*   100 */   494,  493,  490,  489,  448,  518,  517,  516,  477,  448,
 /*   110 */   577,  461,  448,  448,  448,  531,  598,  448,  448,  551,
 /*   120 */   550,  448,  546,  448,  539,  448,  498,  448,  448,  448,
 /*   130 */   448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
 /*   140 */   448,  538,  448,  448,  448,  448,  532,  448,  448,  448,
 /*   150 */   448,  448,  448,  448,  448,  448,  448,  448,  448,  448,
 /*   160 */   448,  448,  448,  448,  448,  448,  448,  602,  448,
};
/********** End of lemon-generated parsing tables *****************************/

/* The next table maps tokens (terminal symbols) into fallback tokens.  
** If a construct like the following:
** 
**      %fallback ID X Y Z.

    0,  /*    HEADING => nothing */
    0,  /*         GO => nothing */
    0,  /*         AT => nothing */
    0,  /*       WITH => nothing */
    0,  /*       SAME => nothing */
    0,  /*         AS => nothing */
    0,  /*        FIT => nothing */
    0,  /*     BEHIND => nothing */
    0,  /*      UNTIL => nothing */
    0,  /*       EVEN => nothing */

    0,  /*      DOT_E => nothing */
    0,  /*     HEIGHT => nothing */
    0,  /*      WIDTH => nothing */
    0,  /*     RADIUS => nothing */
    0,  /*   DIAMETER => nothing */
    0,  /*     DOTTED => nothing */
    0,  /*     DASHED => nothing */

    0,  /*     ITALIC => nothing */
    0,  /*       BOLD => nothing */
    0,  /*    ALIGNED => nothing */
    0,  /*        BIG => nothing */
    0,  /*      SMALL => nothing */
    0,  /*         LP => nothing */
    0,  /*         RP => nothing */
    0,  /*        AND => nothing */
    0,  /*         LT => nothing */
    0,  /*         GT => nothing */
    0,  /*        WAY => nothing */
    0,  /*    BETWEEN => nothing */
    0,  /*        THE => nothing */
    0,  /*      DOT_L => nothing */
    0,  /*      START => nothing */
    0,  /*        END => nothing */
    0,  /*        NTH => nothing */

  /*   32 */ "HEADING",
  /*   33 */ "GO",
  /*   34 */ "AT",
  /*   35 */ "WITH",
  /*   36 */ "SAME",
  /*   37 */ "AS",
  /*   38 */ "FIT",
  /*   39 */ "BEHIND",
  /*   40 */ "UNTIL",
  /*   41 */ "EVEN",
  /*   42 */ "DOT_E",
  /*   43 */ "HEIGHT",
  /*   44 */ "WIDTH",
  /*   45 */ "RADIUS",
  /*   46 */ "DIAMETER",
  /*   47 */ "DOTTED",
  /*   48 */ "DASHED",

  /*   62 */ "ITALIC",
  /*   63 */ "BOLD",
  /*   64 */ "ALIGNED",
  /*   65 */ "BIG",
  /*   66 */ "SMALL",
  /*   67 */ "LP",
  /*   68 */ "RP",
  /*   69 */ "AND",
  /*   70 */ "LT",
  /*   71 */ "GT",
  /*   72 */ "WAY",
  /*   73 */ "BETWEEN",
  /*   74 */ "THE",
  /*   75 */ "DOT_L",
  /*   76 */ "START",
  /*   77 */ "END",
  /*   78 */ "NTH",
  /*   79 */ "VERTEX",
  /*   80 */ "IN",
  /*   81 */ "DOT_U",
  /*   82 */ "LAST",
  /*   83 */ "NUMBER",
  /*   84 */ "FUNC1",
  /*   85 */ "FUNC2",
  /*   86 */ "X",
  /*   87 */ "Y",
  /*   88 */ "TOP",
  /*   89 */ "BOTTOM",
  /*   90 */ "element_list",
  /*   91 */ "element",
  /*   92 */ "unnamed_element",
  /*   93 */ "basetype",
  /*   94 */ "expr",
  /*   95 */ "numproperty",
  /*   96 */ "edge",
  /*   97 */ "direction",
  /*   98 */ "dashproperty",
  /*   99 */ "colorproperty",
  /*  100 */ "locproperty",
  /*  101 */ "position",
  /*  102 */ "place",
  /*  103 */ "object",
  /*  104 */ "objectname",
  /*  105 */ "nth",
  /*  106 */ "textposition",
  /*  107 */ "rvalue",
  /*  108 */ "lvalue",
  /*  109 */ "even",
  /*  110 */ "document",
  /*  111 */ "print",
  /*  112 */ "prlist",
  /*  113 */ "pritem",
  /*  114 */ "prsep",
  /*  115 */ "attribute_list",
  /*  116 */ "savelist",
  /*  117 */ "alist",
  /*  118 */ "attribute",
  /*  119 */ "go",
  /*  120 */ "boolproperty",
  /*  121 */ "withclause",
  /*  122 */ "between",
};
#endif /* defined(YYCOVERAGE) || !defined(NDEBUG) */

#ifndef NDEBUG
/* For tracing reduce actions, the names of all rules are required.
*/
static const char *const yyRuleName[] = {

 /*  44 */ "attribute ::= GO expr EDGEPT",
 /*  45 */ "attribute ::= GO EDGEPT",
 /*  46 */ "attribute ::= AT position",
 /*  47 */ "attribute ::= SAME",
 /*  48 */ "attribute ::= SAME AS object",
 /*  49 */ "attribute ::= STRING textposition",
 /*  50 */ "attribute ::= FIT",
 /*  51 */ "attribute ::= BEHIND object",
 /*  52 */ "withclause ::= DOT_E edge AT position",
 /*  53 */ "withclause ::= edge AT position",
 /*  54 */ "numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS",

 /*  55 */ "boolproperty ::= CW",
 /*  56 */ "boolproperty ::= CCW",
 /*  57 */ "boolproperty ::= LARROW",
 /*  58 */ "boolproperty ::= RARROW",
 /*  59 */ "boolproperty ::= LRARROW",
 /*  60 */ "boolproperty ::= INVIS",
 /*  61 */ "boolproperty ::= THICK",
 /*  62 */ "boolproperty ::= THIN",
 /*  63 */ "textposition ::=",
 /*  64 */ "textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL",
 /*  65 */ "position ::= expr COMMA expr",
 /*  66 */ "position ::= place PLUS expr COMMA expr",
 /*  67 */ "position ::= place MINUS expr COMMA expr",
 /*  68 */ "position ::= place PLUS LP expr COMMA expr RP",
 /*  69 */ "position ::= place MINUS LP expr COMMA expr RP",

 /*  70 */ "position ::= LP position COMMA position RP",
 /*  71 */ "position ::= LP position RP",
 /*  72 */ "position ::= expr between position AND position",
 /*  73 */ "position ::= expr LT position COMMA position GT",
 /*  74 */ "position ::= expr ABOVE position",
 /*  75 */ "position ::= expr BELOW position",
 /*  76 */ "position ::= expr LEFT OF position",
 /*  77 */ "position ::= expr RIGHT OF position",
 /*  78 */ "position ::= expr EDGEPT OF position",
 /*  79 */ "position ::= expr HEADING expr FROM position",
 /*  80 */ "place ::= object",
 /*  81 */ "place ::= object DOT_E edge",
 /*  82 */ "place ::= object DOT_L START",
 /*  83 */ "place ::= object DOT_L END",
 /*  84 */ "place ::= START OF object",
 /*  85 */ "place ::= END OF object",
 /*  86 */ "place ::= edge OF object",
 /*  87 */ "place ::= NTH VERTEX OF object",
 /*  88 */ "object ::= nth",
 /*  89 */ "object ::= nth OF|IN object",
 /*  90 */ "objectname ::= PLACENAME",
 /*  91 */ "objectname ::= objectname DOT_U PLACENAME",
 /*  92 */ "nth ::= NTH CLASSNAME",
 /*  93 */ "nth ::= NTH LAST CLASSNAME",
 /*  94 */ "nth ::= LAST CLASSNAME",
 /*  95 */ "nth ::= LAST",
 /*  96 */ "nth ::= NTH LB RB",
 /*  97 */ "nth ::= NTH LAST LB RB",
 /*  98 */ "nth ::= LAST LB RB",


 /*  99 */ "expr ::= expr PLUS expr",
 /* 100 */ "expr ::= expr MINUS expr",
 /* 101 */ "expr ::= expr STAR expr",
 /* 102 */ "expr ::= expr SLASH expr",
 /* 103 */ "expr ::= MINUS expr",
 /* 104 */ "expr ::= PLUS expr",
 /* 105 */ "expr ::= LP expr RP",
 /* 106 */ "expr ::= NUMBER",
 /* 107 */ "expr ::= ID",
 /* 108 */ "expr ::= FUNC1 LP expr RP",
 /* 109 */ "expr ::= FUNC2 LP expr COMMA expr RP",
 /* 110 */ "expr ::= object DOT_L locproperty",
 /* 111 */ "expr ::= object DOT_L numproperty",
 /* 112 */ "expr ::= object DOT_L dashproperty",
 /* 113 */ "expr ::= object DOT_L colorproperty",
 /* 114 */ "expr ::= object DOT_E edge DOT_L X",
 /* 115 */ "expr ::= object DOT_E edge DOT_L Y",
 /* 116 */ "expr ::= LP locproperty OF object RP",
 /* 117 */ "expr ::= LP dashproperty OF object RP",
 /* 118 */ "expr ::= LP numproperty OF object RP",
 /* 119 */ "expr ::= LP colorproperty OF object RP",
 /* 120 */ "expr ::= NTH VERTEX OF object DOT_L X",
 /* 121 */ "expr ::= NTH VERTEX OF object DOT_L Y",
 /* 122 */ "lvalue ::= ID",
 /* 123 */ "lvalue ::= FILL",
 /* 124 */ "lvalue ::= COLOR",
 /* 125 */ "lvalue ::= THICKNESS",
 /* 126 */ "rvalue ::= expr",
 /* 127 */ "print ::= PRINT",
 /* 128 */ "prlist ::= pritem",
 /* 129 */ "prlist ::= prlist prsep pritem",
 /* 130 */ "direction ::= UP",
 /* 131 */ "direction ::= DOWN",
 /* 132 */ "direction ::= LEFT",
 /* 133 */ "direction ::= RIGHT",
 /* 134 */ "attribute_list ::= alist",
 /* 135 */ "alist ::=",
 /* 136 */ "alist ::= alist attribute",
 /* 137 */ "attribute ::= boolproperty",
 /* 138 */ "attribute ::= WITH withclause",
 /* 139 */ "go ::= GO",
 /* 140 */ "go ::=",
 /* 141 */ "even ::= UNTIL EVEN WITH",
 /* 142 */ "even ::= EVEN WITH",


 /* 143 */ "dashproperty ::= DOTTED",
 /* 144 */ "dashproperty ::= DASHED",
 /* 145 */ "colorproperty ::= FILL",
 /* 146 */ "colorproperty ::= COLOR",
 /* 147 */ "position ::= place",
 /* 148 */ "between ::= WAY BETWEEN",
 /* 149 */ "between ::= BETWEEN",

    ** being destroyed before it is finished parsing.
    **
    ** Note: during a reduce, the only symbols destroyed are those
    ** which appear on the RHS of the rule, but which are *not* used
    ** inside the C code.
    */
/********* Begin destructor definitions ***************************************/
    case 90: /* element_list */
{
#line 445 "pikchr.y"
pik_elist_free(p,(yypminor->yy80));
#line 1586 "pikchr.c"
}
      break;
    case 91: /* element */
    case 92: /* unnamed_element */
    case 93: /* basetype */
{
#line 447 "pikchr.y"
pik_elem_free(p,(yypminor->yy174));
#line 1595 "pikchr.c"
}
      break;
/********* End destructor definitions *****************************************/
    default:  break;   /* If no destructor action specified: do nothing */
  }
}

     fprintf(yyTraceFILE,"%sStack Overflow!\n",yyTracePrompt);
   }
#endif
   while( yypParser->yytos>yypParser->yystack ) yy_pop_parser_stack(yypParser);
   /* Here code is inserted which will execute if the parser
   ** stack every overflows */
/******** Begin %stack_overflow code ******************************************/
#line 476 "pikchr.y"

  pik_error(p, 0, "parser stack overflow");
#line 1816 "pikchr.c"
/******** End %stack_overflow code ********************************************/
   pik_parserARG_STORE /* Suppress warning about unused %extra_argument var */
   pik_parserCTX_STORE
}

/*
** Print tracing information for a SHIFT action

  yytos->minor.yy0 = yyMinor;
  yyTraceShift(yypParser, yyNewState, "Shift");
}

/* For rule J, yyRuleInfoLhs[J] contains the symbol on the left-hand side
** of that rule */
static const YYCODETYPE yyRuleInfoLhs[] = {
   110,  /* (0) document ::= element_list */
    90,  /* (1) element_list ::= element */
    90,  /* (2) element_list ::= element_list EOL element */
    91,  /* (3) element ::= */
    91,  /* (4) element ::= direction */
    91,  /* (5) element ::= lvalue ASSIGN rvalue */
    91,  /* (6) element ::= PLACENAME COLON unnamed_element */
    91,  /* (7) element ::= PLACENAME COLON position */
    91,  /* (8) element ::= unnamed_element */
    91,  /* (9) element ::= print prlist */
   107,  /* (10) rvalue ::= PLACENAME */
   113,  /* (11) pritem ::= FILL */
   113,  /* (12) pritem ::= COLOR */
   113,  /* (13) pritem ::= THICKNESS */
   113,  /* (14) pritem ::= rvalue */
   113,  /* (15) pritem ::= STRING */
   114,  /* (16) prsep ::= COMMA */
    92,  /* (17) unnamed_element ::= basetype attribute_list */
    93,  /* (18) basetype ::= CLASSNAME */
    93,  /* (19) basetype ::= STRING textposition */
    93,  /* (20) basetype ::= LB savelist element_list RB */
   116,  /* (21) savelist ::= */
   115,  /* (22) attribute_list ::= expr */
   115,  /* (23) attribute_list ::= expr PERCENT */
   118,  /* (24) attribute ::= numproperty expr PERCENT */
   118,  /* (25) attribute ::= numproperty expr */
   118,  /* (26) attribute ::= dashproperty expr */
   118,  /* (27) attribute ::= dashproperty */
   118,  /* (28) attribute ::= colorproperty rvalue */
   118,  /* (29) attribute ::= go direction expr PERCENT */
   118,  /* (30) attribute ::= go direction expr */
   118,  /* (31) attribute ::= go direction */
   118,  /* (32) attribute ::= go direction even position */
   118,  /* (33) attribute ::= CLOSE */
   118,  /* (34) attribute ::= CHOP */
   118,  /* (35) attribute ::= FROM position */
   118,  /* (36) attribute ::= TO position */
   118,  /* (37) attribute ::= THEN */
   118,  /* (38) attribute ::= THEN expr HEADING expr */
   118,  /* (39) attribute ::= THEN HEADING expr */
   118,  /* (40) attribute ::= THEN expr EDGEPT */
   118,  /* (41) attribute ::= THEN EDGEPT */
   118,  /* (42) attribute ::= GO expr HEADING expr */
   118,  /* (43) attribute ::= GO HEADING expr */
   118,  /* (44) attribute ::= GO expr EDGEPT */
   118,  /* (45) attribute ::= GO EDGEPT */
   118,  /* (46) attribute ::= AT position */
   118,  /* (47) attribute ::= SAME */
   118,  /* (48) attribute ::= SAME AS object */
   118,  /* (49) attribute ::= STRING textposition */
   118,  /* (50) attribute ::= FIT */
   118,  /* (51) attribute ::= BEHIND object */
   121,  /* (52) withclause ::= DOT_E edge AT position */
   121,  /* (53) withclause ::= edge AT position */
    95,  /* (54) numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
   120,  /* (55) boolproperty ::= CW */
   120,  /* (56) boolproperty ::= CCW */
   120,  /* (57) boolproperty ::= LARROW */
   120,  /* (58) boolproperty ::= RARROW */
   120,  /* (59) boolproperty ::= LRARROW */
   120,  /* (60) boolproperty ::= INVIS */
   120,  /* (61) boolproperty ::= THICK */
   120,  /* (62) boolproperty ::= THIN */
   106,  /* (63) textposition ::= */
   106,  /* (64) textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
   101,  /* (65) position ::= expr COMMA expr */
   101,  /* (66) position ::= place PLUS expr COMMA expr */
   101,  /* (67) position ::= place MINUS expr COMMA expr */
   101,  /* (68) position ::= place PLUS LP expr COMMA expr RP */
   101,  /* (69) position ::= place MINUS LP expr COMMA expr RP */
   101,  /* (70) position ::= LP position COMMA position RP */
   101,  /* (71) position ::= LP position RP */
   101,  /* (72) position ::= expr between position AND position */
   101,  /* (73) position ::= expr LT position COMMA position GT */
   101,  /* (74) position ::= expr ABOVE position */
   101,  /* (75) position ::= expr BELOW position */
   101,  /* (76) position ::= expr LEFT OF position */
   101,  /* (77) position ::= expr RIGHT OF position */
   101,  /* (78) position ::= expr EDGEPT OF position */
   101,  /* (79) position ::= expr HEADING expr FROM position */
   102,  /* (80) place ::= object */
   102,  /* (81) place ::= object DOT_E edge */
   102,  /* (82) place ::= object DOT_L START */
   102,  /* (83) place ::= object DOT_L END */
   102,  /* (84) place ::= START OF object */
   102,  /* (85) place ::= END OF object */
   102,  /* (86) place ::= edge OF object */
   102,  /* (87) place ::= NTH VERTEX OF object */
   103,  /* (88) object ::= nth */
   103,  /* (89) object ::= nth OF|IN object */
   104,  /* (90) objectname ::= PLACENAME */
   104,  /* (91) objectname ::= objectname DOT_U PLACENAME */
   105,  /* (92) nth ::= NTH CLASSNAME */
   105,  /* (93) nth ::= NTH LAST CLASSNAME */
   105,  /* (94) nth ::= LAST CLASSNAME */
   105,  /* (95) nth ::= LAST */
   105,  /* (96) nth ::= NTH LB RB */
   105,  /* (97) nth ::= NTH LAST LB RB */
   105,  /* (98) nth ::= LAST LB RB */
    94,  /* (99) expr ::= expr PLUS expr */
    94,  /* (100) expr ::= expr MINUS expr */
    94,  /* (101) expr ::= expr STAR expr */
    94,  /* (102) expr ::= expr SLASH expr */
    94,  /* (103) expr ::= MINUS expr */
    94,  /* (104) expr ::= PLUS expr */
    94,  /* (105) expr ::= LP expr RP */
    94,  /* (106) expr ::= NUMBER */
    94,  /* (107) expr ::= ID */
    94,  /* (108) expr ::= FUNC1 LP expr RP */
    94,  /* (109) expr ::= FUNC2 LP expr COMMA expr RP */
    94,  /* (110) expr ::= object DOT_L locproperty */
    94,  /* (111) expr ::= object DOT_L numproperty */
    94,  /* (112) expr ::= object DOT_L dashproperty */
    94,  /* (113) expr ::= object DOT_L colorproperty */
    94,  /* (114) expr ::= object DOT_E edge DOT_L X */
    94,  /* (115) expr ::= object DOT_E edge DOT_L Y */
    94,  /* (116) expr ::= LP locproperty OF object RP */
    94,  /* (117) expr ::= LP dashproperty OF object RP */
    94,  /* (118) expr ::= LP numproperty OF object RP */
    94,  /* (119) expr ::= LP colorproperty OF object RP */
    94,  /* (120) expr ::= NTH VERTEX OF object DOT_L X */
    94,  /* (121) expr ::= NTH VERTEX OF object DOT_L Y */
   108,  /* (122) lvalue ::= ID */
   108,  /* (123) lvalue ::= FILL */
   108,  /* (124) lvalue ::= COLOR */
   108,  /* (125) lvalue ::= THICKNESS */
   107,  /* (126) rvalue ::= expr */
   111,  /* (127) print ::= PRINT */
   112,  /* (128) prlist ::= pritem */
   112,  /* (129) prlist ::= prlist prsep pritem */
    97,  /* (130) direction ::= UP */
    97,  /* (131) direction ::= DOWN */
    97,  /* (132) direction ::= LEFT */
    97,  /* (133) direction ::= RIGHT */
   115,  /* (134) attribute_list ::= alist */
   117,  /* (135) alist ::= */
   117,  /* (136) alist ::= alist attribute */
   118,  /* (137) attribute ::= boolproperty */
   118,  /* (138) attribute ::= WITH withclause */
   119,  /* (139) go ::= GO */
   119,  /* (140) go ::= */
   109,  /* (141) even ::= UNTIL EVEN WITH */
   109,  /* (142) even ::= EVEN WITH */


    98,  /* (143) dashproperty ::= DOTTED */
    98,  /* (144) dashproperty ::= DASHED */
    99,  /* (145) colorproperty ::= FILL */
    99,  /* (146) colorproperty ::= COLOR */
   101,  /* (147) position ::= place */
   122,  /* (148) between ::= WAY BETWEEN */
   122,  /* (149) between ::= BETWEEN */
   122,  /* (150) between ::= OF THE WAY BETWEEN */
   103,  /* (151) object ::= objectname */
   100,  /* (152) locproperty ::= X|Y */
    96,  /* (153) edge ::= EDGEPT */
    96,  /* (154) edge ::= TOP */
    96,  /* (155) edge ::= BOTTOM */
    96,  /* (156) edge ::= LEFT */
    96,  /* (157) edge ::= RIGHT */
};

/* For rule J, yyRuleInfoNRhs[J] contains the negative of the number
** of symbols on the right-hand side of that rule. */
static const signed char yyRuleInfoNRhs[] = {
   -1,  /* (0) document ::= element_list */
   -1,  /* (1) element_list ::= element */

   -3,  /* (44) attribute ::= GO expr EDGEPT */
   -2,  /* (45) attribute ::= GO EDGEPT */
   -2,  /* (46) attribute ::= AT position */
   -1,  /* (47) attribute ::= SAME */
   -3,  /* (48) attribute ::= SAME AS object */
   -2,  /* (49) attribute ::= STRING textposition */
   -1,  /* (50) attribute ::= FIT */
   -2,  /* (51) attribute ::= BEHIND object */
   -4,  /* (52) withclause ::= DOT_E edge AT position */
   -3,  /* (53) withclause ::= edge AT position */
   -1,  /* (54) numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */

   -1,  /* (55) boolproperty ::= CW */
   -1,  /* (56) boolproperty ::= CCW */
   -1,  /* (57) boolproperty ::= LARROW */
   -1,  /* (58) boolproperty ::= RARROW */
   -1,  /* (59) boolproperty ::= LRARROW */
   -1,  /* (60) boolproperty ::= INVIS */
   -1,  /* (61) boolproperty ::= THICK */
   -1,  /* (62) boolproperty ::= THIN */
    0,  /* (63) textposition ::= */
   -2,  /* (64) textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
   -3,  /* (65) position ::= expr COMMA expr */
   -5,  /* (66) position ::= place PLUS expr COMMA expr */
   -5,  /* (67) position ::= place MINUS expr COMMA expr */
   -7,  /* (68) position ::= place PLUS LP expr COMMA expr RP */
   -7,  /* (69) position ::= place MINUS LP expr COMMA expr RP */
   -5,  /* (70) position ::= LP position COMMA position RP */
   -3,  /* (71) position ::= LP position RP */
   -5,  /* (72) position ::= expr between position AND position */
   -6,  /* (73) position ::= expr LT position COMMA position GT */
   -3,  /* (74) position ::= expr ABOVE position */
   -3,  /* (75) position ::= expr BELOW position */
   -4,  /* (76) position ::= expr LEFT OF position */
   -4,  /* (77) position ::= expr RIGHT OF position */
   -4,  /* (78) position ::= expr EDGEPT OF position */
   -5,  /* (79) position ::= expr HEADING expr FROM position */
   -1,  /* (80) place ::= object */
   -3,  /* (81) place ::= object DOT_E edge */
   -3,  /* (82) place ::= object DOT_L START */
   -3,  /* (83) place ::= object DOT_L END */
   -3,  /* (84) place ::= START OF object */
   -3,  /* (85) place ::= END OF object */
   -3,  /* (86) place ::= edge OF object */
   -4,  /* (87) place ::= NTH VERTEX OF object */
   -1,  /* (88) object ::= nth */
   -3,  /* (89) object ::= nth OF|IN object */
   -1,  /* (90) objectname ::= PLACENAME */
   -3,  /* (91) objectname ::= objectname DOT_U PLACENAME */
   -2,  /* (92) nth ::= NTH CLASSNAME */
   -3,  /* (93) nth ::= NTH LAST CLASSNAME */
   -2,  /* (94) nth ::= LAST CLASSNAME */
   -1,  /* (95) nth ::= LAST */
   -3,  /* (96) nth ::= NTH LB RB */
   -4,  /* (97) nth ::= NTH LAST LB RB */
   -3,  /* (98) nth ::= LAST LB RB */
   -3,  /* (99) expr ::= expr PLUS expr */
   -3,  /* (100) expr ::= expr MINUS expr */
   -3,  /* (101) expr ::= expr STAR expr */
   -3,  /* (102) expr ::= expr SLASH expr */
   -2,  /* (103) expr ::= MINUS expr */
   -2,  /* (104) expr ::= PLUS expr */
   -3,  /* (105) expr ::= LP expr RP */
   -1,  /* (106) expr ::= NUMBER */
   -1,  /* (107) expr ::= ID */
   -4,  /* (108) expr ::= FUNC1 LP expr RP */
   -6,  /* (109) expr ::= FUNC2 LP expr COMMA expr RP */
   -3,  /* (110) expr ::= object DOT_L locproperty */
   -3,  /* (111) expr ::= object DOT_L numproperty */
   -3,  /* (112) expr ::= object DOT_L dashproperty */
   -3,  /* (113) expr ::= object DOT_L colorproperty */
   -5,  /* (114) expr ::= object DOT_E edge DOT_L X */
   -5,  /* (115) expr ::= object DOT_E edge DOT_L Y */
   -5,  /* (116) expr ::= LP locproperty OF object RP */
   -5,  /* (117) expr ::= LP dashproperty OF object RP */
   -5,  /* (118) expr ::= LP numproperty OF object RP */
   -5,  /* (119) expr ::= LP colorproperty OF object RP */
   -6,  /* (120) expr ::= NTH VERTEX OF object DOT_L X */
   -6,  /* (121) expr ::= NTH VERTEX OF object DOT_L Y */
   -1,  /* (122) lvalue ::= ID */
   -1,  /* (123) lvalue ::= FILL */
   -1,  /* (124) lvalue ::= COLOR */
   -1,  /* (125) lvalue ::= THICKNESS */
   -1,  /* (126) rvalue ::= expr */
   -1,  /* (127) print ::= PRINT */
   -1,  /* (128) prlist ::= pritem */
   -3,  /* (129) prlist ::= prlist prsep pritem */
   -1,  /* (130) direction ::= UP */
   -1,  /* (131) direction ::= DOWN */
   -1,  /* (132) direction ::= LEFT */
   -1,  /* (133) direction ::= RIGHT */
   -1,  /* (134) attribute_list ::= alist */
    0,  /* (135) alist ::= */
   -2,  /* (136) alist ::= alist attribute */
   -1,  /* (137) attribute ::= boolproperty */
   -2,  /* (138) attribute ::= WITH withclause */
   -1,  /* (139) go ::= GO */
    0,  /* (140) go ::= */
   -3,  /* (141) even ::= UNTIL EVEN WITH */
   -2,  /* (142) even ::= EVEN WITH */


   -1,  /* (143) dashproperty ::= DOTTED */
   -1,  /* (144) dashproperty ::= DASHED */
   -1,  /* (145) colorproperty ::= FILL */
   -1,  /* (146) colorproperty ::= COLOR */
   -1,  /* (147) position ::= place */
   -2,  /* (148) between ::= WAY BETWEEN */
   -1,  /* (149) between ::= BETWEEN */

  **     { ... }           // User supplied code
  **  #line <lineno> <thisfile>
  **     break;
  */
/********** Begin reduce actions **********************************************/
        YYMINORTYPE yylhsminor;
      case 0: /* document ::= element_list */
#line 480 "pikchr.y"
{pik_render(p,yymsp[0].minor.yy80);}
#line 2301 "pikchr.c"
        break;
      case 1: /* element_list ::= element */
#line 483 "pikchr.y"
{ yylhsminor.yy80 = pik_elist_append(p,0,yymsp[0].minor.yy174); }
#line 2306 "pikchr.c"
  yymsp[0].minor.yy80 = yylhsminor.yy80;
        break;
      case 2: /* element_list ::= element_list EOL element */
#line 485 "pikchr.y"
{ yylhsminor.yy80 = pik_elist_append(p,yymsp[-2].minor.yy80,yymsp[0].minor.yy174); }
#line 2312 "pikchr.c"
  yymsp[-2].minor.yy80 = yylhsminor.yy80;
        break;
      case 3: /* element ::= */
#line 488 "pikchr.y"
{ yymsp[1].minor.yy174 = 0; }
#line 2318 "pikchr.c"
        break;
      case 4: /* element ::= direction */
#line 489 "pikchr.y"
{ pik_set_direction(p,yymsp[0].minor.yy0.eCode);  yylhsminor.yy174=0; }
#line 2323 "pikchr.c"
  yymsp[0].minor.yy174 = yylhsminor.yy174;
        break;
      case 5: /* element ::= lvalue ASSIGN rvalue */
#line 490 "pikchr.y"
{pik_set_var(p,&yymsp[-2].minor.yy0,yymsp[0].minor.yy147,&yymsp[-1].minor.yy0); yylhsminor.yy174=0;}
#line 2329 "pikchr.c"
  yymsp[-2].minor.yy174 = yylhsminor.yy174;
        break;
      case 6: /* element ::= PLACENAME COLON unnamed_element */
#line 492 "pikchr.y"
{ yylhsminor.yy174 = yymsp[0].minor.yy174;  pik_elem_setname(p,yymsp[0].minor.yy174,&yymsp[-2].minor.yy0); }
#line 2335 "pikchr.c"
  yymsp[-2].minor.yy174 = yylhsminor.yy174;
        break;
      case 7: /* element ::= PLACENAME COLON position */
#line 494 "pikchr.y"
{ yylhsminor.yy174 = pik_elem_new(p,0,0,0);
                 if(yylhsminor.yy174){ yylhsminor.yy174->ptAt = yymsp[0].minor.yy211; pik_elem_setname(p,yylhsminor.yy174,&yymsp[-2].minor.yy0); }}
#line 2342 "pikchr.c"
  yymsp[-2].minor.yy174 = yylhsminor.yy174;
        break;
      case 8: /* element ::= unnamed_element */
#line 496 "pikchr.y"
{yylhsminor.yy174 = yymsp[0].minor.yy174;}
#line 2348 "pikchr.c"
  yymsp[0].minor.yy174 = yylhsminor.yy174;
        break;
      case 9: /* element ::= print prlist */
#line 497 "pikchr.y"
{pik_append(p,"<br>\n",5); yymsp[-1].minor.yy174=0;}
#line 2354 "pikchr.c"
        break;
      case 10: /* rvalue ::= PLACENAME */
#line 508 "pikchr.y"
{yylhsminor.yy147 = pik_lookup_color(p,&yymsp[0].minor.yy0);}
#line 2359 "pikchr.c"
  yymsp[0].minor.yy147 = yylhsminor.yy147;
        break;
      case 11: /* pritem ::= FILL */
      case 12: /* pritem ::= COLOR */ yytestcase(yyruleno==12);
      case 13: /* pritem ::= THICKNESS */ yytestcase(yyruleno==13);
#line 513 "pikchr.y"
{pik_append_num(p,"",pik_value(p,yymsp[0].minor.yy0.z,yymsp[0].minor.yy0.n,0));}
#line 2367 "pikchr.c"
        break;
      case 14: /* pritem ::= rvalue */
#line 516 "pikchr.y"
{pik_append_num(p,"",yymsp[0].minor.yy147);}
#line 2372 "pikchr.c"
        break;
      case 15: /* pritem ::= STRING */
#line 517 "pikchr.y"
{pik_append_text(p,yymsp[0].minor.yy0.z+1,yymsp[0].minor.yy0.n-2,0);}
#line 2377 "pikchr.c"
        break;
      case 16: /* prsep ::= COMMA */
#line 518 "pikchr.y"
{pik_append(p, " ", 1);}
#line 2382 "pikchr.c"
        break;
      case 17: /* unnamed_element ::= basetype attribute_list */
#line 521 "pikchr.y"
{yylhsminor.yy174 = yymsp[-1].minor.yy174; pik_after_adding_attributes(p,yylhsminor.yy174);}
#line 2387 "pikchr.c"
  yymsp[-1].minor.yy174 = yylhsminor.yy174;
        break;
      case 18: /* basetype ::= CLASSNAME */
#line 523 "pikchr.y"
{yylhsminor.yy174 = pik_elem_new(p,&yymsp[0].minor.yy0,0,0); }
#line 2393 "pikchr.c"
  yymsp[0].minor.yy174 = yylhsminor.yy174;
        break;
      case 19: /* basetype ::= STRING textposition */
#line 525 "pikchr.y"
{yymsp[-1].minor.yy0.eCode = yymsp[0].minor.yy34; yylhsminor.yy174 = pik_elem_new(p,0,&yymsp[-1].minor.yy0,0); }
#line 2399 "pikchr.c"
  yymsp[-1].minor.yy174 = yylhsminor.yy174;
        break;
      case 20: /* basetype ::= LB savelist element_list RB */
#line 527 "pikchr.y"
{ p->list = yymsp[-2].minor.yy80; yymsp[-3].minor.yy174 = pik_elem_new(p,0,0,yymsp[-1].minor.yy80); if(yymsp[-3].minor.yy174) yymsp[-3].minor.yy174->errTok = yymsp[0].minor.yy0; }
#line 2405 "pikchr.c"
        break;
      case 21: /* savelist ::= */
#line 532 "pikchr.y"
{yymsp[1].minor.yy80 = p->list; p->list = 0;}
#line 2410 "pikchr.c"
        break;
      case 22: /* attribute_list ::= expr */
#line 539 "pikchr.y"
{ pik_add_direction(p,0,&yymsp[0].minor.yy147,0);}
#line 2415 "pikchr.c"
        break;
      case 23: /* attribute_list ::= expr PERCENT */
#line 540 "pikchr.y"
{ pik_add_direction(p,0,&yymsp[-1].minor.yy147,1);}
#line 2420 "pikchr.c"
        break;
      case 24: /* attribute ::= numproperty expr PERCENT */
#line 545 "pikchr.y"
{ pik_set_numprop(p,&yymsp[-2].minor.yy0,0.0,yymsp[-1].minor.yy147/100.0); }
#line 2425 "pikchr.c"
        break;
      case 25: /* attribute ::= numproperty expr */
      case 28: /* attribute ::= colorproperty rvalue */ yytestcase(yyruleno==28);
#line 546 "pikchr.y"
{ pik_set_numprop(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy147,0.0); }
#line 2431 "pikchr.c"
        break;
      case 26: /* attribute ::= dashproperty expr */
#line 547 "pikchr.y"
{ pik_set_dashed(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy147); }
#line 2436 "pikchr.c"
        break;
      case 27: /* attribute ::= dashproperty */
#line 548 "pikchr.y"
{ pik_set_dashed(p,&yymsp[0].minor.yy0,0);  }
#line 2441 "pikchr.c"
        break;
      case 29: /* attribute ::= go direction expr PERCENT */
#line 551 "pikchr.y"
{ pik_add_direction(p,&yymsp[-2].minor.yy0,&yymsp[-1].minor.yy147,1);}
#line 2446 "pikchr.c"
        break;
      case 30: /* attribute ::= go direction expr */
#line 552 "pikchr.y"
{ pik_add_direction(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy147,0);}
#line 2451 "pikchr.c"
        break;
      case 31: /* attribute ::= go direction */
#line 553 "pikchr.y"
{ pik_add_direction(p,&yymsp[0].minor.yy0,0,0); }
#line 2456 "pikchr.c"
        break;
      case 32: /* attribute ::= go direction even position */
#line 554 "pikchr.y"
{pik_evenwith(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy211);}
#line 2461 "pikchr.c"
        break;
      case 33: /* attribute ::= CLOSE */
#line 555 "pikchr.y"
{ pik_close_path(p,&yymsp[0].minor.yy0); }
#line 2466 "pikchr.c"
        break;
      case 34: /* attribute ::= CHOP */
#line 556 "pikchr.y"
{ p->cur->bChop = 1; }
#line 2471 "pikchr.c"
        break;
      case 35: /* attribute ::= FROM position */
#line 557 "pikchr.y"
{ pik_set_from(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy211); }
#line 2476 "pikchr.c"
        break;
      case 36: /* attribute ::= TO position */
#line 558 "pikchr.y"
{ pik_add_to(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy211); }
#line 2481 "pikchr.c"
        break;
      case 37: /* attribute ::= THEN */
#line 559 "pikchr.y"
{ pik_then(p, &yymsp[0].minor.yy0, p->cur); }
#line 2486 "pikchr.c"
        break;
      case 38: /* attribute ::= THEN expr HEADING expr */
      case 42: /* attribute ::= GO expr HEADING expr */ yytestcase(yyruleno==42);
#line 561 "pikchr.y"
{pik_move_hdg(p,&yymsp[-2].minor.yy147,&yymsp[-1].minor.yy0,yymsp[0].minor.yy147,0,&yymsp[-3].minor.yy0);}
#line 2492 "pikchr.c"
        break;
      case 39: /* attribute ::= THEN HEADING expr */
      case 43: /* attribute ::= GO HEADING expr */ yytestcase(yyruleno==43);
#line 562 "pikchr.y"
{pik_move_hdg(p,0,&yymsp[-1].minor.yy0,yymsp[0].minor.yy147,0,&yymsp[-2].minor.yy0);}
#line 2498 "pikchr.c"
        break;
      case 40: /* attribute ::= THEN expr EDGEPT */
      case 44: /* attribute ::= GO expr EDGEPT */ yytestcase(yyruleno==44);
#line 563 "pikchr.y"
{pik_move_hdg(p,&yymsp[-1].minor.yy147,0,0,&yymsp[0].minor.yy0,&yymsp[-2].minor.yy0);}
#line 2504 "pikchr.c"
        break;
      case 41: /* attribute ::= THEN EDGEPT */
      case 45: /* attribute ::= GO EDGEPT */ yytestcase(yyruleno==45);
#line 564 "pikchr.y"
{pik_move_hdg(p,0,0,0,&yymsp[0].minor.yy0,&yymsp[-1].minor.yy0);}
#line 2510 "pikchr.c"
        break;
      case 46: /* attribute ::= AT position */
#line 570 "pikchr.y"
{ pik_set_at(p,0,&yymsp[0].minor.yy211,&yymsp[-1].minor.yy0); }
#line 2515 "pikchr.c"
        break;
      case 47: /* attribute ::= SAME */
#line 572 "pikchr.y"
{pik_same(p,0,&yymsp[0].minor.yy0);}
#line 2520 "pikchr.c"
        break;
      case 48: /* attribute ::= SAME AS object */
#line 573 "pikchr.y"
{pik_same(p,yymsp[0].minor.yy174,&yymsp[-2].minor.yy0);}
#line 2525 "pikchr.c"
        break;
      case 49: /* attribute ::= STRING textposition */
#line 574 "pikchr.y"
{pik_add_txt(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy34);}
#line 2530 "pikchr.c"
        break;
      case 50: /* attribute ::= FIT */
#line 575 "pikchr.y"
{pik_size_to_fit(p,&yymsp[0].minor.yy0); }
#line 2535 "pikchr.c"
        break;
      case 51: /* attribute ::= BEHIND object */
#line 576 "pikchr.y"
{pik_behind(p,yymsp[0].minor.yy174);}
#line 2540 "pikchr.c"
        break;
      case 52: /* withclause ::= DOT_E edge AT position */
      case 53: /* withclause ::= edge AT position */ yytestcase(yyruleno==53);
#line 584 "pikchr.y"
{ pik_set_at(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy211,&yymsp[-1].minor.yy0); }
#line 2546 "pikchr.c"
        break;
      case 54: /* numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
#line 588 "pikchr.y"
{yylhsminor.yy0 = yymsp[0].minor.yy0;}
#line 2551 "pikchr.c"
  yymsp[0].minor.yy0 = yylhsminor.yy0;
        break;
      case 55: /* boolproperty ::= CW */
#line 599 "pikchr.y"
{p->cur->cw = 1;}
#line 2557 "pikchr.c"
        break;
      case 56: /* boolproperty ::= CCW */
#line 600 "pikchr.y"
{p->cur->cw = 0;}
#line 2562 "pikchr.c"
        break;
      case 57: /* boolproperty ::= LARROW */
#line 601 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=0; }
#line 2567 "pikchr.c"
        break;
      case 58: /* boolproperty ::= RARROW */
#line 602 "pikchr.y"
{p->cur->larrow=0; p->cur->rarrow=1; }
#line 2572 "pikchr.c"
        break;
      case 59: /* boolproperty ::= LRARROW */
#line 603 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=1; }
#line 2577 "pikchr.c"
        break;
      case 60: /* boolproperty ::= INVIS */
#line 604 "pikchr.y"
{p->cur->sw = 0.0;}
#line 2582 "pikchr.c"
        break;
      case 61: /* boolproperty ::= THICK */
#line 605 "pikchr.y"
{p->cur->sw *= 1.5;}
#line 2587 "pikchr.c"
        break;
      case 62: /* boolproperty ::= THIN */
#line 606 "pikchr.y"
{p->cur->sw *= 0.67;}
#line 2592 "pikchr.c"
        break;
      case 63: /* textposition ::= */
#line 608 "pikchr.y"
{yymsp[1].minor.yy34 = 0;}
#line 2597 "pikchr.c"
        break;
      case 64: /* textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
#line 611 "pikchr.y"
{yylhsminor.yy34 = pik_text_position(p,yymsp[-1].minor.yy34,&yymsp[0].minor.yy0);}
#line 2602 "pikchr.c"
  yymsp[-1].minor.yy34 = yylhsminor.yy34;
        break;
      case 65: /* position ::= expr COMMA expr */
#line 614 "pikchr.y"
{yylhsminor.yy211.x=yymsp[-2].minor.yy147; yylhsminor.yy211.y=yymsp[0].minor.yy147;}
#line 2608 "pikchr.c"
  yymsp[-2].minor.yy211 = yylhsminor.yy211;
        break;
      case 66: /* position ::= place PLUS expr COMMA expr */
#line 616 "pikchr.y"
{yylhsminor.yy211.x=yymsp[-4].minor.yy211.x+yymsp[-2].minor.yy147; yylhsminor.yy211.y=yymsp[-4].minor.yy211.y+yymsp[0].minor.yy147;}
#line 2614 "pikchr.c"
  yymsp[-4].minor.yy211 = yylhsminor.yy211;
        break;
      case 67: /* position ::= place MINUS expr COMMA expr */
#line 617 "pikchr.y"
{yylhsminor.yy211.x=yymsp[-4].minor.yy211.x-yymsp[-2].minor.yy147; yylhsminor.yy211.y=yymsp[-4].minor.yy211.y-yymsp[0].minor.yy147;}
#line 2620 "pikchr.c"
  yymsp[-4].minor.yy211 = yylhsminor.yy211;
        break;
      case 68: /* position ::= place PLUS LP expr COMMA expr RP */
#line 619 "pikchr.y"
{yylhsminor.yy211.x=yymsp[-6].minor.yy211.x+yymsp[-3].minor.yy147; yylhsminor.yy211.y=yymsp[-6].minor.yy211.y+yymsp[-1].minor.yy147;}
#line 2626 "pikchr.c"
  yymsp[-6].minor.yy211 = yylhsminor.yy211;
        break;
      case 69: /* position ::= place MINUS LP expr COMMA expr RP */
#line 621 "pikchr.y"
{yylhsminor.yy211.x=yymsp[-6].minor.yy211.x-yymsp[-3].minor.yy147; yylhsminor.yy211.y=yymsp[-6].minor.yy211.y-yymsp[-1].minor.yy147;}
#line 2632 "pikchr.c"
  yymsp[-6].minor.yy211 = yylhsminor.yy211;
        break;
      case 70: /* position ::= LP position COMMA position RP */
#line 622 "pikchr.y"
{yymsp[-4].minor.yy211.x=yymsp[-3].minor.yy211.x; yymsp[-4].minor.yy211.y=yymsp[-1].minor.yy211.y;}
#line 2638 "pikchr.c"
        break;
      case 71: /* position ::= LP position RP */
#line 623 "pikchr.y"
{yymsp[-2].minor.yy211=yymsp[-1].minor.yy211;}
#line 2643 "pikchr.c"
        break;
      case 72: /* position ::= expr between position AND position */
#line 625 "pikchr.y"
{yylhsminor.yy211 = pik_position_between(p,yymsp[-4].minor.yy147,yymsp[-2].minor.yy211,yymsp[0].minor.yy211);}
#line 2648 "pikchr.c"
  yymsp[-4].minor.yy211 = yylhsminor.yy211;
        break;






      case 73: /* position ::= expr LT position COMMA position GT */
#line 627 "pikchr.y"
{yylhsminor.yy211 = pik_position_between(p,yymsp[-5].minor.yy147,yymsp[-3].minor.yy211,yymsp[-1].minor.yy211);}
#line 2654 "pikchr.c"
  yymsp[-5].minor.yy211 = yylhsminor.yy211;
        break;
      case 74: /* position ::= expr ABOVE position */
#line 628 "pikchr.y"
{yylhsminor.yy211=yymsp[0].minor.yy211; yylhsminor.yy211.y += yymsp[-2].minor.yy147;}
#line 2660 "pikchr.c"
  yymsp[-2].minor.yy211 = yylhsminor.yy211;
        break;
      case 75: /* position ::= expr BELOW position */
#line 629 "pikchr.y"
{yylhsminor.yy211=yymsp[0].minor.yy211; yylhsminor.yy211.y -= yymsp[-2].minor.yy147;}
#line 2666 "pikchr.c"
  yymsp[-2].minor.yy211 = yylhsminor.yy211;
        break;
      case 76: /* position ::= expr LEFT OF position */
#line 630 "pikchr.y"
{yylhsminor.yy211=yymsp[0].minor.yy211; yylhsminor.yy211.x -= yymsp[-3].minor.yy147;}
#line 2672 "pikchr.c"
  yymsp[-3].minor.yy211 = yylhsminor.yy211;
        break;
      case 77: /* position ::= expr RIGHT OF position */
#line 631 "pikchr.y"
{yylhsminor.yy211=yymsp[0].minor.yy211; yylhsminor.yy211.x += yymsp[-3].minor.yy147;}
#line 2678 "pikchr.c"
  yymsp[-3].minor.yy211 = yylhsminor.yy211;
        break;
      case 78: /* position ::= expr EDGEPT OF position */
#line 633 "pikchr.y"
{yylhsminor.yy211 = pik_position_at_hdg(p,yymsp[-3].minor.yy147,&yymsp[-2].minor.yy0,yymsp[0].minor.yy211);}
#line 2684 "pikchr.c"
  yymsp[-3].minor.yy211 = yylhsminor.yy211;
        break;
      case 79: /* position ::= expr HEADING expr FROM position */
#line 635 "pikchr.y"
{yylhsminor.yy211 = pik_position_at_angle(p,yymsp[-4].minor.yy147,yymsp[-2].minor.yy147,yymsp[0].minor.yy211);}
#line 2690 "pikchr.c"
  yymsp[-4].minor.yy211 = yylhsminor.yy211;
        break;

      case 80: /* place ::= object */

#line 641 "pikchr.y"
{yylhsminor.yy211 = pik_place_of_elem(p,yymsp[0].minor.yy174,0);}
#line 2696 "pikchr.c"
  yymsp[0].minor.yy211 = yylhsminor.yy211;
        break;
      case 81: /* place ::= object DOT_E edge */
      case 82: /* place ::= object DOT_L START */ yytestcase(yyruleno==82);
      case 83: /* place ::= object DOT_L END */ yytestcase(yyruleno==83);
#line 642 "pikchr.y"
{yylhsminor.yy211 = pik_place_of_elem(p,yymsp[-2].minor.yy174,&yymsp[0].minor.yy0);}
#line 2704 "pikchr.c"
  yymsp[-2].minor.yy211 = yylhsminor.yy211;
        break;
      case 84: /* place ::= START OF object */
      case 85: /* place ::= END OF object */ yytestcase(yyruleno==85);
      case 86: /* place ::= edge OF object */ yytestcase(yyruleno==86);
#line 645 "pikchr.y"
{yylhsminor.yy211 = pik_place_of_elem(p,yymsp[0].minor.yy174,&yymsp[-2].minor.yy0);}
#line 2712 "pikchr.c"
  yymsp[-2].minor.yy211 = yylhsminor.yy211;
        break;
      case 87: /* place ::= NTH VERTEX OF object */
#line 648 "pikchr.y"
{yylhsminor.yy211 = pik_nth_vertex(p,&yymsp[-3].minor.yy0,&yymsp[-2].minor.yy0,yymsp[0].minor.yy174);}
#line 2718 "pikchr.c"
  yymsp[-3].minor.yy211 = yylhsminor.yy211;
        break;
      case 88: /* object ::= nth */
#line 651 "pikchr.y"
{yylhsminor.yy174 = pik_find_nth(p,0,&yymsp[0].minor.yy0);}
#line 2724 "pikchr.c"
  yymsp[0].minor.yy174 = yylhsminor.yy174;
        break;
      case 89: /* object ::= nth OF|IN object */
#line 652 "pikchr.y"
{yylhsminor.yy174 = pik_find_nth(p,yymsp[0].minor.yy174,&yymsp[-2].minor.yy0);}
#line 2730 "pikchr.c"
  yymsp[-2].minor.yy174 = yylhsminor.yy174;
        break;
      case 90: /* objectname ::= PLACENAME */
#line 654 "pikchr.y"
{yylhsminor.yy174 = pik_find_byname(p,0,&yymsp[0].minor.yy0);}
#line 2736 "pikchr.c"
  yymsp[0].minor.yy174 = yylhsminor.yy174;
        break;
      case 91: /* objectname ::= objectname DOT_U PLACENAME */
#line 656 "pikchr.y"
{yylhsminor.yy174 = pik_find_byname(p,yymsp[-2].minor.yy174,&yymsp[0].minor.yy0);}
#line 2742 "pikchr.c"
  yymsp[-2].minor.yy174 = yylhsminor.yy174;
        break;
      case 92: /* nth ::= NTH CLASSNAME */
#line 658 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-1].minor.yy0); }
#line 2748 "pikchr.c"
  yymsp[-1].minor.yy0 = yylhsminor.yy0;
        break;
      case 93: /* nth ::= NTH LAST CLASSNAME */
#line 659 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-2].minor.yy0); }
#line 2754 "pikchr.c"
  yymsp[-2].minor.yy0 = yylhsminor.yy0;
        break;
      case 94: /* nth ::= LAST CLASSNAME */
#line 660 "pikchr.y"
{yymsp[-1].minor.yy0=yymsp[0].minor.yy0; yymsp[-1].minor.yy0.eCode = -1;}
#line 2760 "pikchr.c"
        break;
      case 95: /* nth ::= LAST */
#line 661 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -1;}
#line 2765 "pikchr.c"
  yymsp[0].minor.yy0 = yylhsminor.yy0;
        break;
      case 96: /* nth ::= NTH LB RB */
#line 662 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-2].minor.yy0);}
#line 2771 "pikchr.c"
  yymsp[-2].minor.yy0 = yylhsminor.yy0;
        break;
      case 97: /* nth ::= NTH LAST LB RB */
#line 663 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-3].minor.yy0);}
#line 2777 "pikchr.c"
  yymsp[-3].minor.yy0 = yylhsminor.yy0;
        break;
      case 98: /* nth ::= LAST LB RB */
#line 664 "pikchr.y"
{yymsp[-2].minor.yy0=yymsp[-1].minor.yy0; yymsp[-2].minor.yy0.eCode = -1; }
#line 2783 "pikchr.c"
        break;
      case 99: /* expr ::= expr PLUS expr */
#line 666 "pikchr.y"
{yylhsminor.yy147=yymsp[-2].minor.yy147+yymsp[0].minor.yy147;}
#line 2788 "pikchr.c"
  yymsp[-2].minor.yy147 = yylhsminor.yy147;
        break;
      case 100: /* expr ::= expr MINUS expr */
#line 667 "pikchr.y"
{yylhsminor.yy147=yymsp[-2].minor.yy147-yymsp[0].minor.yy147;}
#line 2794 "pikchr.c"
  yymsp[-2].minor.yy147 = yylhsminor.yy147;
        break;
      case 101: /* expr ::= expr STAR expr */
#line 668 "pikchr.y"
{yylhsminor.yy147=yymsp[-2].minor.yy147*yymsp[0].minor.yy147;}
#line 2800 "pikchr.c"









  yymsp[-2].minor.yy147 = yylhsminor.yy147;
        break;





      case 102: /* expr ::= expr SLASH expr */
#line 669 "pikchr.y"
{
  if( yymsp[0].minor.yy147==0.0 ){ pik_error(p, &yymsp[-1].minor.yy0, "division by zero"); yylhsminor.yy147 = 0.0; }
  else{ yylhsminor.yy147 = yymsp[-2].minor.yy147/yymsp[0].minor.yy147; }
}
#line 2809 "pikchr.c"
  yymsp[-2].minor.yy147 = yylhsminor.yy147;
        break;
      case 103: /* expr ::= MINUS expr */
#line 673 "pikchr.y"
{yymsp[-1].minor.yy147=-yymsp[0].minor.yy147;}
#line 2815 "pikchr.c"
        break;
      case 104: /* expr ::= PLUS expr */
#line 674 "pikchr.y"
{yymsp[-1].minor.yy147=yymsp[0].minor.yy147;}
#line 2820 "pikchr.c"

        break;
      case 105: /* expr ::= LP expr RP */
#line 675 "pikchr.y"
{yymsp[-2].minor.yy147=yymsp[-1].minor.yy147;}
#line 2825 "pikchr.c"

        break;
      case 106: /* expr ::= NUMBER */
#line 676 "pikchr.y"
{yylhsminor.yy147=pik_atof(p,&yymsp[0].minor.yy0);}
#line 2830 "pikchr.c"
  yymsp[0].minor.yy147 = yylhsminor.yy147;
        break;
      case 107: /* expr ::= ID */
#line 677 "pikchr.y"
{yylhsminor.yy147=pik_get_var(p,&yymsp[0].minor.yy0);}
#line 2836 "pikchr.c"
  yymsp[0].minor.yy147 = yylhsminor.yy147;
        break;
      case 108: /* expr ::= FUNC1 LP expr RP */
#line 678 "pikchr.y"
{yylhsminor.yy147 = pik_func(p,&yymsp[-3].minor.yy0,yymsp[-1].minor.yy147,0.0);}
#line 2842 "pikchr.c"
  yymsp[-3].minor.yy147 = yylhsminor.yy147;
        break;
      case 109: /* expr ::= FUNC2 LP expr COMMA expr RP */


#line 679 "pikchr.y"
{yylhsminor.yy147 = pik_func(p,&yymsp[-5].minor.yy0,yymsp[-3].minor.yy147,yymsp[-1].minor.yy147);}
#line 2848 "pikchr.c"
  yymsp[-5].minor.yy147 = yylhsminor.yy147;
        break;
      case 110: /* expr ::= object DOT_L locproperty */
      case 111: /* expr ::= object DOT_L numproperty */ yytestcase(yyruleno==111);
      case 112: /* expr ::= object DOT_L dashproperty */ yytestcase(yyruleno==112);
      case 113: /* expr ::= object DOT_L colorproperty */ yytestcase(yyruleno==113);
#line 681 "pikchr.y"
{yylhsminor.yy147=pik_property_of(p,yymsp[-2].minor.yy174,&yymsp[0].minor.yy0);}
#line 2857 "pikchr.c"
  yymsp[-2].minor.yy147 = yylhsminor.yy147;
        break;
      case 114: /* expr ::= object DOT_E edge DOT_L X */
#line 685 "pikchr.y"
{yylhsminor.yy147=pik_place_of_elem(p,yymsp[-4].minor.yy174,&yymsp[-2].minor.yy0).x;}
#line 2863 "pikchr.c"
  yymsp[-4].minor.yy147 = yylhsminor.yy147;
        break;
      case 115: /* expr ::= object DOT_E edge DOT_L Y */
#line 686 "pikchr.y"
{yylhsminor.yy147=pik_place_of_elem(p,yymsp[-4].minor.yy174,&yymsp[-2].minor.yy0).y;}
#line 2869 "pikchr.c"
  yymsp[-4].minor.yy147 = yylhsminor.yy147;
        break;
      case 116: /* expr ::= LP locproperty OF object RP */
      case 117: /* expr ::= LP dashproperty OF object RP */ yytestcase(yyruleno==117);
      case 118: /* expr ::= LP numproperty OF object RP */ yytestcase(yyruleno==118);
      case 119: /* expr ::= LP colorproperty OF object RP */ yytestcase(yyruleno==119);
#line 687 "pikchr.y"
{yymsp[-4].minor.yy147=pik_property_of(p,yymsp[-1].minor.yy174,&yymsp[-3].minor.yy0);}
#line 2878 "pikchr.c"
        break;
      case 120: /* expr ::= NTH VERTEX OF object DOT_L X */






#line 693 "pikchr.y"
{yylhsminor.yy147 = pik_nth_vertex(p,&yymsp[-5].minor.yy0,&yymsp[-4].minor.yy0,yymsp[-2].minor.yy174).x;}
#line 2883 "pikchr.c"
  yymsp[-5].minor.yy147 = yylhsminor.yy147;
        break;
      case 121: /* expr ::= NTH VERTEX OF object DOT_L Y */
#line 695 "pikchr.y"
{yylhsminor.yy147 = pik_nth_vertex(p,&yymsp[-5].minor.yy0,&yymsp[-4].minor.yy0,yymsp[-2].minor.yy174).y;}
#line 2889 "pikchr.c"
  yymsp[-5].minor.yy147 = yylhsminor.yy147;
        break;
      default:
      /* (122) lvalue ::= ID */ yytestcase(yyruleno==122);
      /* (123) lvalue ::= FILL */ yytestcase(yyruleno==123);
      /* (124) lvalue ::= COLOR */ yytestcase(yyruleno==124);
      /* (125) lvalue ::= THICKNESS */ yytestcase(yyruleno==125);
      /* (126) rvalue ::= expr */ yytestcase(yyruleno==126);
      /* (127) print ::= PRINT */ yytestcase(yyruleno==127);
      /* (128) prlist ::= pritem (OPTIMIZED OUT) */ assert(yyruleno!=128);
      /* (129) prlist ::= prlist prsep pritem */ yytestcase(yyruleno==129);
      /* (130) direction ::= UP */ yytestcase(yyruleno==130);
      /* (131) direction ::= DOWN */ yytestcase(yyruleno==131);
      /* (132) direction ::= LEFT */ yytestcase(yyruleno==132);
      /* (133) direction ::= RIGHT */ yytestcase(yyruleno==133);
      /* (134) attribute_list ::= alist */ yytestcase(yyruleno==134);
      /* (135) alist ::= */ yytestcase(yyruleno==135);
      /* (136) alist ::= alist attribute */ yytestcase(yyruleno==136);
      /* (137) attribute ::= boolproperty (OPTIMIZED OUT) */ assert(yyruleno!=137);
      /* (138) attribute ::= WITH withclause */ yytestcase(yyruleno==138);
      /* (139) go ::= GO */ yytestcase(yyruleno==139);
      /* (140) go ::= */ yytestcase(yyruleno==140);
      /* (141) even ::= UNTIL EVEN WITH */ yytestcase(yyruleno==141);
      /* (142) even ::= EVEN WITH */ yytestcase(yyruleno==142);


      /* (143) dashproperty ::= DOTTED */ yytestcase(yyruleno==143);
      /* (144) dashproperty ::= DASHED */ yytestcase(yyruleno==144);
      /* (145) colorproperty ::= FILL */ yytestcase(yyruleno==145);
      /* (146) colorproperty ::= COLOR */ yytestcase(yyruleno==146);
      /* (147) position ::= place */ yytestcase(yyruleno==147);
      /* (148) between ::= WAY BETWEEN */ yytestcase(yyruleno==148);
      /* (149) between ::= BETWEEN */ yytestcase(yyruleno==149);

  int yymajor,                   /* The major type of the error token */
  pik_parserTOKENTYPE yyminor         /* The minor type of the error token */
){
  pik_parserARG_FETCH
  pik_parserCTX_FETCH
#define TOKEN yyminor
/************ Begin %syntax_error code ****************************************/
#line 469 "pikchr.y"

  if( TOKEN.z && TOKEN.z[0] ){
    pik_error(p, &TOKEN, "syntax error");
  }else{
    pik_error(p, 0, "syntax error");
  }
#line 2995 "pikchr.c"
/************ End %syntax_error code ******************************************/
  pik_parserARG_STORE /* Suppress warning about unused %extra_argument variable */
  pik_parserCTX_STORE
}

/*
** The following is executed when the parser accepts

  assert( iToken<(int)(sizeof(yyFallback)/sizeof(yyFallback[0])) );
  return yyFallback[iToken];
#else
  (void)iToken;
  return 0;
#endif
}
#line 705 "pikchr.y"



/* Chart of the 140 official HTML color names with their
** corresponding RGB value.
**
** Two new names "None" and "Off" are added with a value

      break;
  }
}
static PPoint circleChop(PElem *pElem, PPoint *pPt){
  PPoint chop;
  PNum dx = pPt->x - pElem->ptAt.x;
  PNum dy = pPt->y - pElem->ptAt.y;
  PNum dist = hypot(dx,dy);
  if( dist<pElem->rad ) return pElem->ptAt;
  chop.x = pElem->ptAt.x + dx*pElem->rad/dist;
  chop.y = pElem->ptAt.y + dy*pElem->rad/dist;
  return chop;
}
static void circleFit(Pik *p, PElem *pElem, PNum w, PNum h){
  PNum mx = 0.0;
  if( w>0 ) mx = w;
  if( h>mx ) mx = h;
  if( (w*w + h*h) > mx*mx ){
    mx = hypot(w,h);
  }
  if( mx>0.0 ){
    pElem->rad = 0.5*mx;
    pElem->w = pElem->h = mx;
  }
}

  PNum s, dq, dist;
  PNum dx = pPt->x - pElem->ptAt.x;
  PNum dy = pPt->y - pElem->ptAt.y;
  if( pElem->w<=0.0 ) return pElem->ptAt;
  if( pElem->h<=0.0 ) return pElem->ptAt;
  s = pElem->h/pElem->w;
  dq = dx*s;
  dist = hypot(dq,dy);
  if( dist<pElem->h ) return pElem->ptAt;
  chop.x = pElem->ptAt.x + 0.5*dq*pElem->h/(dist*s);
  chop.y = pElem->ptAt.y + 0.5*dy*pElem->h/dist;
  return chop;
}
static PPoint ellipseOffset(Pik *p, PElem *pElem, int cp){
  PPoint pt;

/* Return a point along the path from "f" to "t" that is r units
** prior to reach "t", except if the path is less than 2*r total,
** return the midpoint.
*/
static PPoint radiusMidpoint(PPoint f, PPoint t, PNum r, int *pbMid){
  PNum dx = t.x - f.x;
  PNum dy = t.y - f.y;
  PNum dist = hypot(dx,dy);
  PPoint m;
  if( dist<=0.0 ) return t;
  dx /= dist;
  dy /= dist;
  if( r > 0.5*dist ){
    r = 0.5*dist;
    *pbMid = 1;

/*
** Reduce the length of the line segment by amt (if possible) by
** modifying the location of *t.
*/
static void pik_chop(Pik *p, PPoint *f, PPoint *t, PNum amt){
  PNum dx = t->x - f->x;
  PNum dy = t->y - f->y;
  PNum dist = hypot(dx,dy);
  PNum r;
  if( dist<=amt ){
    *t = *f;
    return;
  }
  r = 1.0 - amt/dist;
  t->x = f->x + r*dx;
  t->y = f->y + r*dy;
}

/*
** Draw an arrowhead on the end of the line segment from pFrom to pTo.
** Also, shorten the line segment (by changing the value of pTo) so that
** the shaft of the arrow does not extend into the arrowhead.
*/
static void pik_draw_arrowhead(Pik *p, PPoint *f, PPoint *t, PElem *pElem){
  PNum dx = t->x - f->x;
  PNum dy = t->y - f->y;
  PNum dist = hypot(dx,dy);
  PNum h = p->hArrow * pElem->sw;
  PNum w = p->wArrow * pElem->sw;
  PNum e1, ddx, ddy;
  PNum bx, by;
  if( pElem->color<0.0 ) return;
  if( pElem->sw<=0.0 ) return;
  if( dist<=0.0 ) return;  /* Unable */

  p->nOut += n;
  p->zOut[p->nOut] = 0;
}

/*
** Append text to zOut with HTML characters escaped.
**
**   *  The space character is changed into non-breaking space (U+0080)
**      if mFlags has the 0x01 bit set. This is needed when outputting
**      text to preserve leading and trailing whitespace.  Turns out we
**      cannot use   as that is an HTML-ism and is not valid in XML.
**
**   *  The "&" character is changed into "&" if mFlags as the
**      0x02 bit set.  This is needed when generating error message text.
**
**   *  Except for the above, only "<" and ">" are escaped.
*/
static void pik_append_text(Pik *p, const char *zText, int n, int mFlags){

    }
    if( i ) pik_append(p, zText, i);
    if( i==n ) break;
    switch( c ){
      case '<': {  pik_append(p, "&lt;", 4);  break;  }
      case '>': {  pik_append(p, "&gt;", 4);  break;  }
      case '&': {  pik_append(p, "&amp;", 5);  break;  }
      case ' ': {  pik_append(p, "\302\240;", 2);  break;  }
    }
    i++;
    n -= i;
    zText += i;
    i = 0;
  }
}

  if( pElem->bClose ){
    pik_error(p, pErr, "polygon already closed");
    return;
  }
  pElem->bClose = 1;
}

/* Lower the layer of the current element so that it is behind the
** given element.
*/
static void pik_behind(Pik *p, PElem *pOther){
  PElem *pElem = p->cur;
  if( pElem->iLayer>=pOther->iLayer ){
    pElem->iLayer = pOther->iLayer - 1;
  }
}


/* Set the "at" of an element
*/
static void pik_set_at(Pik *p, PToken *pEdge, PPoint *pAt, PToken *pErrTok){
  PElem *pElem;
  if( p->nErr ) return;
  pElem = p->cur;

** "<" as a single character.
*/
static int pik_text_length(const PToken *pToken){
  int n = pToken->n;
  const char *z = pToken->z;
  int cnt, j;
  for(j=1, cnt=0; j<n-1; j++){
    if( (z[j] & 0xc0)==0xc0 ) continue;
    cnt++;
    if( z[j]=='\\' && z[j+1]!='&' ){
      j++;
    }else if( z[j]=='&' ){
      int k;
      for(k=j+1; k<j+7 && z[k]!=';'; k++){}
      if( z[k]==';' ) j = k;

static const PikWord pik_keywords[] = {
  { "above",      5,   T_ABOVE,     0,         0       },
  { "abs",        3,   T_FUNC1,     FN_ABS,    0       },
  { "aligned",    7,   T_ALIGNED,   0,         0       },
  { "and",        3,   T_AND,       0,         0       },
  { "as",         2,   T_AS,        0,         0       },
  { "at",         2,   T_AT,        0,         0       },
  { "behind",     6,   T_BEHIND,    0,         0       },
  { "below",      5,   T_BELOW,     0,         0       },
  { "between",    7,   T_BETWEEN,   0,         0       },
  { "big",        3,   T_BIG,       0,         0       },
  { "bold",       4,   T_BOLD,      0,         0       },
  { "bot",        3,   T_EDGEPT,    0,         CP_S    },
  { "bottom",     6,   T_BOTTOM,    0,         CP_S    },
  { "c",          1,   T_EDGEPT,    0,         CP_C    },

    case '%': {   pToken->eType = T_PERCENT; return 1; }
    case '(': {   pToken->eType = T_LP;      return 1; }
    case ')': {   pToken->eType = T_RP;      return 1; }
    case '[': {   pToken->eType = T_LB;      return 1; }
    case ']': {   pToken->eType = T_RB;      return 1; }
    case ',': {   pToken->eType = T_COMMA;   return 1; }
    case ':': {   pToken->eType = T_COLON;   return 1; }
    case '>': {   pToken->eType = T_GT;      return 1; }
    case '=': {   pToken->eType = T_ASSIGN;
                  pToken->eCode = T_ASSIGN;  return 1; }
    case '-': {
      if( z[1]=='>' ){
        pToken->eType = T_RARROW;
        return 2;
      }else if( z[1]=='=' ){

           pToken->eType = T_LRARROW;
           return 3;
         }else{
           pToken->eType = T_LARROW;
           return 2;
         }
      }else{
        pToken->eType = T_LT;
        return 1;
      }
    }
    default: {
      c = z[0];
      if( c=='.' ){
        unsigned char c1 = z[1];
        if( islower(c1) ){

    }
  }
  printf("</body></html>\n");
  return 0; 
}
#endif /* PIKCHR_SHELL */

#line 6865 "pikchr.c"