/* This file is automatically generated by Lemon from input grammar
** source file "pikchr.y". */
/*
** Zero-Clause BSD license:
**
** Copyright (C) 2020-09-01 by D. Richard Hipp <drh@sqlite.org>
**
** Permission to use, copy, modify, and/or distribute this software for
** any purpose with or without fee is hereby granted.
**
****************************************************************************
**
** This software translates a PIC-inspired diagram language into SVG.
**
** PIKCHR (pronounced like "picture") is *mostly* backwards compatible
** with legacy PIC, though some features of legacy PIC are removed 
** (for example, the "sh" command is removed for security) and
** many enhancements are added.
**
** PIKCHR is designed for use in an internet facing web environment.
** In particular, PIKCHR is designed to safely generate benign SVG from
** source text that provided by a hostile agent. 
**
** This code was originally written by D. Richard Hipp using documentation
** from prior PIC implementations but without reference to prior code.
** All of the code in this project is original.
**
** This file implements a C-language subroutine that accepts a string
** of PIKCHR language text and generates a second string of SVG output that
** renders the drawing defined by the input.  Space to hold the returned
** string is obtained from malloc() and should be freed by the caller.
** NULL might be returned if there is a memory allocation error.
**
** If there are errors in the PIKCHR input, the output will consist of an
** error message and the original PIKCHR input text (inside of <pre>...</pre>).
**
** The subroutine implemented by this file is intended to be stand-alone.
** It uses no external routines other than routines commonly found in
** the standard C library.
**
****************************************************************************
** COMPILING:
**
** The original source text is a mixture of C99 and "Lemon"
** (See https://sqlite.org/src/file/doc/lemon.html).  Lemon is an LALR(1)
** parser generator program, similar to Yacc.  The grammar of the
** input language is specified in Lemon.  C-code is attached.  Lemon
** runs to generate a single output file ("pikchr.c") which is then
** compiled to generate the Pikchr library.  This header comment is
** preserved in the Lemon output, so you might be reading this in either
** the generated "pikchr.c" file that is output by Lemon, or in the
** "pikchr.y" source file that is input into Lemon.  If you make changes,
** you should change the input source file "pikchr.y", not the
** Lemon-generated output file.
**
** Basic compilation steps:
**
**      lemon pikchr.y
**      cc pikchr.c -o pikchr.o
**
** Add -DPIKCHR_SHELL to add a main() routine that reads input files
** and sends them through Pikchr, for testing.  Add -DPIKCHR_FUZZ for
** -fsanitizer=fuzzer testing.
** 
****************************************************************************
** IMPLEMENTATION NOTES (for people who want to understand the internal
** operation of this software, perhaps to extend the code or to fix bugs):
**
** Each call to pikchr() uses a single instance of the Pik structure to
** track its internal state.  The Pik structure lives for the duration
** of the pikchr() call.
**
** The input is a sequence of objects or "elements".  Each element is
** parsed into a PElem object.  These are stored on an extensible array
** called PEList.  All parameters to each PElem are computed as the
** object is parsed.  (Hence, the parameters to a PElem may only refer
** to prior elements.) Once the PElem is completely assembled, it is
** added to the end of a PEList and never changes thereafter - except,
** PElem objects that are part of a "[...]" block might have their
** absolute position shifted when the outer [...] block is positioned.
** But apart from this repositioning, PElem objects are unchanged once
** they are added to the list. The order of elements on a PEList does
** not change.
**
** After all input has been parsed, the top-level PEList is walked to
** generate output.  Sub-lists resulting from [...] blocks are scanned
** as they are encountered.  All input must be collected and parsed ahead
** of output generation because the size and position of elements must be
** known in order to compute a bounding box on the output.
**
** Each PElem is on a "layer".  (The common case is that all PElem's are
** on a single layer, but multiple layers are possible.)  A separate pass
** is made through the list for each layer.
**
** After all output is generated, the Pik object and all the PEList
** and PElem objects are deallocated and the generated output string is
** returned.  Upon any error, the Pik.nErr flag is set, processing quickly
** stops, and the stack unwinds.  No attempt is made to continue reading
** input after an error.
**
** Most elements begin with a class name like "box" or "arrow" or "move".
** There is a class named "text" which is used for elements that begin
** with a string literal.  You can also specify the "text" class.
** A Sublist ("[...]") is a single object that contains a pointer to
** its subelements, all gathered onto a separate PEList object.
**
** Variables go into PVar objects that form a linked list.
**
** Each PElem has zero or one names.  Input constructs that attempt
** to assign a new name from an older name, for example:
**
**      Abc:  Abc + (0.5cm, 0)
**
** Statements like these generate a new "noop" object at the specified
** place and with the given name. As place-names are searched by scanning
** the list in reverse order, this has the effect of overriding the "Abc"
** name when referenced by subsequent objects.
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <math.h>
#include <assert.h>
#define count(X) (sizeof(X)/sizeof(X[0]))
#ifndef M_PI
# define M_PI 3.1415926535897932385
#endif

/* Tag intentionally unused parameters with this macro to prevent
** compiler warnings with -Wextra */
#define UNUSED_PARAMETER(X)  (void)(X)

typedef struct Pik Pik;          /* Complete parsing context */
typedef struct PToken PToken;    /* A single token */
typedef struct PElem PElem;      /* A single diagram object or "element" */
typedef struct PEList PEList;    /* A list of elements */
typedef struct PClass PClass;    /* Description of elements types */
typedef double PNum;             /* Numeric value */
typedef struct PRel PRel;        /* Absolute or percentage value */
typedef struct PPoint PPoint;    /* A position in 2-D space */
typedef struct PVar PVar;        /* script-defined variable */
typedef struct PBox PBox;        /* A bounding box */

/* Compass points */
#define CP_N      1
#define CP_NE     2
#define CP_E      3
#define CP_SE     4
#define CP_S      5
#define CP_SW     6
#define CP_W      7
#define CP_NW     8
#define CP_C      9   /* .center or .c */
#define CP_END   10   /* .end */
#define CP_START 11   /* .start */

/* Heading angles corresponding to compass points */
static const PNum pik_hdg_angle[] = {
/* none  */   0.0,
  /* N  */    0.0,
  /* NE */   45.0,
  /* E  */   90.0,
  /* SE */  135.0,
  /* S  */  180.0,
  /* SW */  225.0,
  /* W  */  270.0,
  /* NW */  315.0,
  /* C  */    0.0,
};

/* Built-in functions */
#define FN_ABS    0
#define FN_COS    1
#define FN_INT    2
#define FN_MAX    3
#define FN_MIN    4
#define FN_SIN    5
#define FN_SQRT   6

/* Text position and style flags.  Stored in PToken.eCode so limited
** to 15 bits. */
#define TP_LJUST   0x0001  /* left justify......          */
#define TP_RJUST   0x0002  /*            ...Right justify */
#define TP_JMASK   0x0003  /* Mask for justification bits */
#define TP_ABOVE2  0x0004  /* Position text way above PElem.ptAt */
#define TP_ABOVE   0x0008  /* Position text above PElem.ptAt */
#define TP_CENTER  0x0010  /* On the line */
#define TP_BELOW   0x0020  /* Position text below PElem.ptAt */
#define TP_BELOW2  0x0040  /* Position text way below PElem.ptAt */
#define TP_VMASK   0x007c  /* Mask for text positioning flags */
#define TP_BIG     0x0100  /* Larger font */
#define TP_SMALL   0x0200  /* Smaller font */
#define TP_XTRA    0x0400  /* Amplify TP_BIG or TP_SMALL */
#define TP_SZMASK  0x0700  /* Font size mask */
#define TP_ITALIC  0x1000  /* Italic font */
#define TP_BOLD    0x2000  /* Bold font */
#define TP_FMASK   0x3000  /* Mask for font style */
#define TP_ALIGN   0x4000  /* Rotate to align with the line */

/* An object to hold a position in 2-D space */
struct PPoint {
  PNum x, y;             /* X and Y coordinates */
};

/* A bounding box */
struct PBox {
  PPoint sw, ne;         /* Lower-left and top-right corners */
};

/* An Absolute or a relative distance.  The absolute distance
** is stored in rAbs and the relative distance is stored in rRel.
** Usually, one or the other will be 0.0.  When using a PRel to
** update an existing value, the computation is usually something
** like this:
**
**          value = PRel.rAbs + value*PRel.rRel
**
*/
struct PRel {
  PNum rAbs;            /* Absolute value */
  PNum rRel;            /* Value relative to current value */
};

/* A variable created by the ID = EXPR construct of the PIKCHR script 
**
** PIKCHR (and PIC) scripts do not use many varaibles, so it is reasonable
** to store them all on a linked list.
*/
struct PVar {
  const char *zName;       /* Name of the variable */
  PNum val;                /* Value of the variable */
  PVar *pNext;             /* Next variable in a list of them all */
};

/* A single token in the parser input stream
*/
struct PToken {
  const char *z;             /* Pointer to the token text */
  unsigned int n;            /* Length of the token in bytes */
  short int eCode;           /* Auxiliary code */
  unsigned char eType;       /* The numeric parser code */
  unsigned char eEdge;       /* Corner value for corner keywords */
};

/* Return negative, zero, or positive if pToken is less than, equal to
** or greater than the zero-terminated string z[]
*/
static int pik_token_eq(PToken *pToken, const char *z){
  int c = strncmp(pToken->z,z,pToken->n);
  if( c==0 && z[pToken->n]!=0 ) c = -1;
  return c;
}

/* Extra token types not generated by LEMON but needed by the
** tokenizer
*/
#define T_WHITESPACE 254     /* Whitespace of comments */
#define T_ERROR      255     /* Any text that is not a valid token */

/* Directions of movement */
#define DIR_RIGHT     0
#define DIR_DOWN      1
#define DIR_LEFT      2
#define DIR_UP        3
#define ValidDir(X)     ((X)>=0 && (X)<=3)
#define IsUpDown(X)     (((X)&1)==1)
#define IsLeftRight(X)  (((X)&1)==0)

/* Bitmask for the various attributes for PElem.  These bits are
** collected in PElem.mProp and PElem.mCalc to check for constraint
** errors. */
#define A_WIDTH         0x0001
#define A_HEIGHT        0x0002
#define A_RADIUS        0x0004
#define A_THICKNESS     0x0008
#define A_DASHED        0x0010 /* Includes "dotted" */
#define A_FILL          0x0020
#define A_COLOR         0x0040
#define A_ARROW         0x0080
#define A_FROM          0x0100
#define A_CW            0x0200
#define A_AT            0x0400
#define A_TO            0x0800 /* one or more movement attributes */


/* A single element */
struct PElem {
  const PClass *type;      /* Element type */
  PToken errTok;           /* Reference token for error messages */
  PPoint ptAt;             /* Reference point for the object */
  PPoint ptEnter, ptExit;  /* Entry and exit points */
  PEList *pSublist;        /* Substructure for [...] elements */
  char *zName;             /* Name assigned to this element */
  PNum w;                  /* "width" property */
  PNum h;                  /* "height" property */
  PNum rad;                /* "radius" property */
  PNum sw;                 /* "thickness" property. (Mnemonic: "stroke width")*/
  PNum dotted;             /* "dotted" property.   <=0.0 for off */
  PNum dashed;             /* "dashed" property.   <=0.0 for off */
  PNum fill;               /* "fill" property.  Negative for off */
  PNum color;              /* "color" property */
  PPoint with;             /* Position constraint from WITH clause */
  char eWith;              /* Type of heading point on WITH clause */
  char cw;                 /* True for clockwise arc */
  char larrow;             /* Arrow at beginning (<- or <->) */
  char rarrow;             /* Arrow at end  (-> or <->) */
  char bClose;             /* True if "close" is seen */
  char bChop;              /* True if "chop" is seen */
  unsigned char nTxt;      /* Number of text values */
  unsigned mProp;          /* Masks of properties set so far */
  unsigned mCalc;          /* Values computed from other constraints */
  PToken aTxt[5];          /* Text with .eCode holding TP flags */
  int iLayer;              /* Rendering order */
  int inDir, outDir;       /* Entry and exit directions */
  int nPath;               /* Number of path points */
  PPoint *aPath;           /* Array of path points */
  PBox bbox;               /* Bounding box */
};

/* A list of elements */
struct PEList {
  int n;          /* Number of elements in the list */
  int nAlloc;     /* Allocated slots in a[] */
  PElem **a;      /* Pointers to individual elements */
};

/* Each call to the pikchr() subroutine uses an instance of the following
** object to pass around context to all of its subroutines.
*/
struct Pik {
  unsigned nErr;           /* Number of errors seen */
  const char *zIn;         /* Input PIKCHR-language text.  zero-terminated */
  unsigned int nIn;        /* Number of bytes in zIn */
  char *zOut;              /* Result accumulates here */
  unsigned int nOut;       /* Bytes written to zOut[] so far */
  unsigned int nOutAlloc;  /* Space allocated to zOut[] */
  unsigned char eDir;      /* Current direction */
  unsigned int mFlags;     /* Flags passed to pikchr() */
  PElem *cur;              /* Element under construction */
  PEList *list;            /* Element list under construction */
  PVar *pVar;              /* Application-defined variables */
  PBox bbox;               /* Bounding box around all elements */
                           /* Cache of layout values.  <=0.0 for unknown... */
  PNum rScale;                 /* Multiply to convert inches to pixels */
  PNum fontScale;              /* Scale fonts by this percent */
  PNum charWidth;              /* Character width */
  PNum charHeight;             /* Character height */
  PNum wArrow;                 /* Width of arrowhead at the fat end */
  PNum hArrow;                 /* Ht of arrowhead - dist from tip to fat end */
  char bLayoutVars;            /* True if cache is valid */
  char thenFlag;           /* True if "then" seen */
  char samePath;           /* aTPath copied by "same" */
  const char *zClass;      /* Class name for the <svg> */
  int wSVG, hSVG;          /* Width and height of the <svg> */
  /* Paths for lines are constructed here first, then transferred into
  ** the PElem object at the end: */
  int nTPath;              /* Number of entries on aTPath[] */
  int mTPath;              /* For last entry, 1: x set,  2: y set */
  PPoint aTPath[1000];     /* Path under construction */
};


/*
** The behavior of an object class is defined by an instance of
** this structure. This is the "virtual method" table.
*/
struct PClass {
  const char *zName;                     /* Name of class */
  char isLine;                           /* True if a line class */
  char eJust;                            /* Use box-style text justification */
  void (*xInit)(Pik*,PElem*);              /* Initializer */
  void (*xNumProp)(Pik*,PElem*,PToken*);   /* Value change notification */
  void (*xCheck)(Pik*,PElem*);             /* Checks to after parsing */
  PPoint (*xChop)(Pik*,PElem*,PPoint*);    /* Chopper */
  PPoint (*xOffset)(Pik*,PElem*,int);      /* Offset from .c to edge point */
  void (*xFit)(Pik*,PElem*,PNum w,PNum h); /* Size to fit text */
  void (*xRender)(Pik*,PElem*);            /* Render */
};


/* Forward declarations */
static void pik_append(Pik*, const char*,int);
static void pik_append_text(Pik*,const char*,int,int);
static void pik_append_num(Pik*,const char*,PNum);
static void pik_append_point(Pik*,const char*,PPoint*);
static void pik_append_x(Pik*,const char*,PNum,const char*);
static void pik_append_y(Pik*,const char*,PNum,const char*);
static void pik_append_xy(Pik*,const char*,PNum,PNum);
static void pik_append_dis(Pik*,const char*,PNum,const char*);
static void pik_append_arc(Pik*,PNum,PNum,PNum,PNum);
static void pik_append_clr(Pik*,const char*,PNum,const char*);
static void pik_append_style(Pik*,PElem*,int);
static void pik_append_txt(Pik*,PElem*, PBox*);
static void pik_draw_arrowhead(Pik*,PPoint*pFrom,PPoint*pTo,PElem*);
static void pik_chop(PPoint*pFrom,PPoint*pTo,PNum);
static void pik_error(Pik*,PToken*,const char*);
static void pik_elist_free(Pik*,PEList*);
static void pik_elem_free(Pik*,PElem*);
static void pik_render(Pik*,PEList*);
static PEList *pik_elist_append(Pik*,PEList*,PElem*);
static PElem *pik_elem_new(Pik*,PToken*,PToken*,PEList*);
static void pik_set_direction(Pik*,int);
static void pik_elem_setname(Pik*,PElem*,PToken*);
static void pik_set_var(Pik*,PToken*,PNum,PToken*);
static PNum pik_value(Pik*,const char*,int,int*);
static PNum pik_lookup_color(Pik*,PToken*);
static PNum pik_get_var(Pik*,PToken*);
static PNum pik_atof(PToken*);
static void pik_after_adding_attributes(Pik*,PElem*);
static void pik_elem_move(PElem*,PNum dx, PNum dy);
static void pik_elist_move(PEList*,PNum dx, PNum dy);
static void pik_set_numprop(Pik*,PToken*,PRel*);
static void pik_set_clrprop(Pik*,PToken*,PNum);
static void pik_set_dashed(Pik*,PToken*,PNum*);
static void pik_then(Pik*,PToken*,PElem*);
static void pik_add_direction(Pik*,PToken*,PRel*);
static void pik_move_hdg(Pik*,PRel*,PToken*,PNum,PToken*,PToken*);
static void pik_evenwith(Pik*,PToken*,PPoint*);
static void pik_set_from(Pik*,PElem*,PToken*,PPoint*);
static void pik_add_to(Pik*,PElem*,PToken*,PPoint*);
static void pik_close_path(Pik*,PToken*);
static void pik_set_at(Pik*,PToken*,PPoint*,PToken*);
static short int pik_nth_value(Pik*,PToken*);
static PElem *pik_find_nth(Pik*,PElem*,PToken*);
static PElem *pik_find_byname(Pik*,PElem*,PToken*);
static PPoint pik_place_of_elem(Pik*,PElem*,PToken*);
static int pik_bbox_isempty(PBox*);
static void pik_bbox_init(PBox*);
static void pik_bbox_addbox(PBox*,PBox*);
static void pik_bbox_add_xy(PBox*,PNum,PNum);
static void pik_bbox_addellipse(PBox*,PNum x,PNum y,PNum rx,PNum ry);
static void pik_add_txt(Pik*,PToken*,int);
static int pik_text_length(const PToken *pToken);
static void pik_size_to_fit(Pik*,PToken*);
static int pik_text_position(int,PToken*);
static PNum pik_property_of(PElem*,PToken*);
static PNum pik_func(Pik*,PToken*,PNum,PNum);
static PPoint pik_position_between(PNum x, PPoint p1, PPoint p2);
static PPoint pik_position_at_angle(PNum dist, PNum r, PPoint pt);
static PPoint pik_position_at_hdg(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(PToken *pThis);
static void pik_compute_layout_settings(Pik*);
static void pik_behind(Pik*,PElem*);
static PElem *pik_assert(Pik*,PNum,PToken*,PNum);
static PElem *pik_position_assert(Pik*,PPoint*,PToken*,PPoint*);
static PNum pik_dist(PPoint*,PPoint*);


#line 478 "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_PLUS                            4
#define T_MINUS                           5
#define T_STAR                            6
#define T_SLASH                           7
#define T_PERCENT                         8
#define T_UMINUS                          9
#define T_EOL                            10
#define T_ASSIGN                         11
#define T_PLACENAME                      12
#define T_COLON                          13
#define T_ASSERT                         14
#define T_LP                             15
#define T_EQ                             16
#define T_RP                             17
#define T_FILL                           18
#define T_COLOR                          19
#define T_THICKNESS                      20
#define T_PRINT                          21
#define T_STRING                         22
#define T_COMMA                          23
#define T_CLASSNAME                      24
#define T_LB                             25
#define T_RB                             26
#define T_UP                             27
#define T_DOWN                           28
#define T_LEFT                           29
#define T_RIGHT                          30
#define T_CLOSE                          31
#define T_CHOP                           32
#define T_FROM                           33
#define T_TO                             34
#define T_THEN                           35
#define T_HEADING                        36
#define T_GO                             37
#define T_AT                             38
#define T_WITH                           39
#define T_SAME                           40
#define T_AS                             41
#define T_FIT                            42
#define T_BEHIND                         43
#define T_UNTIL                          44
#define T_EVEN                           45
#define T_DOT_E                          46
#define T_HEIGHT                         47
#define T_WIDTH                          48
#define T_RADIUS                         49
#define T_DIAMETER                       50
#define T_DOTTED                         51
#define T_DASHED                         52
#define T_CW                             53
#define T_CCW                            54
#define T_LARROW                         55
#define T_RARROW                         56
#define T_LRARROW                        57
#define T_INVIS                          58
#define T_THICK                          59
#define T_THIN                           60
#define T_CENTER                         61
#define T_LJUST                          62
#define T_RJUST                          63
#define T_ABOVE                          64
#define T_BELOW                          65
#define T_ITALIC                         66
#define T_BOLD                           67
#define T_ALIGNED                        68
#define T_BIG                            69
#define T_SMALL                          70
#define T_AND                            71
#define T_LT                             72
#define T_GT                             73
#define T_ON                             74
#define T_WAY                            75
#define T_BETWEEN                        76
#define T_THE                            77
#define T_NTH                            78
#define T_VERTEX                         79
#define T_TOP                            80
#define T_BOTTOM                         81
#define T_START                          82
#define T_END                            83
#define T_IN                             84
#define T_DOT_U                          85
#define T_LAST                           86
#define T_NUMBER                         87
#define T_FUNC1                          88
#define T_FUNC2                          89
#define T_DIST                           90
#define T_DOT_XY                         91
#define T_X                              92
#define T_Y                              93
#define T_DOT_L                          94
#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.
**                       "unsigned char" is used if there are fewer than
**                       256 symbols.  Larger types otherwise.
**    YYNOCODE           is a number of type YYCODETYPE that is not used for
**                       any terminal or nonterminal symbol.
**    YYFALLBACK         If defined, this indicates that one or more tokens
**                       (also known as: "terminal symbols") have fall-back
**                       values which should be used if the original symbol
**                       would not parse.  This permits keywords to sometimes
**                       be used as identifiers, for example.
**    YYACTIONTYPE       is the data type used for "action codes" - numbers
**                       that indicate what to do in response to the next
**                       token.
**    pik_parserTOKENTYPE     is the data type used for minor type for terminal
**                       symbols.  Background: A "minor type" is a semantic
**                       value associated with a terminal or non-terminal
**                       symbols.  For example, for an "ID" terminal symbol,
**                       the minor type might be the name of the identifier.
**                       Each non-terminal can have a different minor type.
**                       Terminal symbols all have the same minor type, though.
**                       This macros defines the minor type for terminal 
**                       symbols.
**    YYMINORTYPE        is the data type used for all minor types.
**                       This is typically a union of many types, one of
**                       which is pik_parserTOKENTYPE.  The entry in the union
**                       for terminal symbols is called "yy0".
**    YYSTACKDEPTH       is the maximum depth of the parser's stack.  If
**                       zero the stack is dynamically sized using realloc()
**    pik_parserARG_SDECL     A static variable declaration for the %extra_argument
**    pik_parserARG_PDECL     A parameter declaration for the %extra_argument
**    pik_parserARG_PARAM     Code to pass %extra_argument as a subroutine parameter
**    pik_parserARG_STORE     Code to store %extra_argument into yypParser
**    pik_parserARG_FETCH     Code to extract %extra_argument from yypParser
**    pik_parserCTX_*         As pik_parserARG_ except for %extra_context
**    YYERRORSYMBOL      is the code number of the error symbol.  If not
**                       defined, then do no error processing.
**    YYNSTATE           the combined number of states.
**    YYNRULE            the number of rules in the grammar
**    YYNTOKEN           Number of terminal symbols
**    YY_MAX_SHIFT       Maximum value for shift actions
**    YY_MIN_SHIFTREDUCE Minimum value for shift-reduce actions
**    YY_MAX_SHIFTREDUCE Maximum value for shift-reduce actions
**    YY_ERROR_ACTION    The yy_action[] code for syntax error
**    YY_ACCEPT_ACTION   The yy_action[] code for accept
**    YY_NO_ACTION       The yy_action[] code for no-op
**    YY_MIN_REDUCE      Minimum value for reduce actions
**    YY_MAX_REDUCE      Maximum value for reduce actions
*/
#ifndef INTERFACE
# define INTERFACE 1
#endif
/************* Begin control #defines *****************************************/
#define YYCODETYPE unsigned char
#define YYNOCODE 131
#define YYACTIONTYPE unsigned short int
#define pik_parserTOKENTYPE PToken
typedef union {
  int yyinit;
  pik_parserTOKENTYPE yy0;
  PEList* yy56;
  int yy116;
  PRel yy164;
  PPoint yy175;
  PElem* yy226;
  PNum yy257;
} 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             162
#define YYNRULE              153
#define YYNRULE_WITH_ACTION  113
#define YYNTOKEN             95
#define YY_MAX_SHIFT         161
#define YY_MIN_SHIFTREDUCE   282
#define YY_MAX_SHIFTREDUCE   434
#define YY_ERROR_ACTION      435
#define YY_ACCEPT_ACTION     436
#define YY_NO_ACTION         437
#define YY_MIN_REDUCE        438
#define YY_MAX_REDUCE        590
/************* 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
** to a macro that can assist in verifying code coverage.  For production
** code the yytestcase() macro should be turned off.  But it is useful
** for testing.
*/
#ifndef yytestcase
# define yytestcase(X)
#endif


/* Next are the tables used to determine what action to take based on the
** current state and lookahead token.  These tables are used to implement
** functions that take a state number and lookahead value and return an
** action integer.  
**
** Suppose the action integer is N.  Then the action is determined as
** follows
**
**   0 <= N <= YY_MAX_SHIFT             Shift N.  That is, push the lookahead
**                                      token onto the stack and goto state N.
**
**   N between YY_MIN_SHIFTREDUCE       Shift to an arbitrary state then
**     and YY_MAX_SHIFTREDUCE           reduce by rule N-YY_MIN_SHIFTREDUCE.
**
**   N == YY_ERROR_ACTION               A syntax error has occurred.
**
**   N == YY_ACCEPT_ACTION              The parser accepts its input.
**
**   N == YY_NO_ACTION                  No such action.  Denotes unused
**                                      slots in the yy_action[] table.
**
**   N between YY_MIN_REDUCE            Reduce by rule N-YY_MIN_REDUCE
**     and YY_MAX_REDUCE
**
** The action table is constructed as a single large table named yy_action[].
** Given state S and lookahead X, the action is computed as either:
**
**    (A)   N = yy_action[ yy_shift_ofst[S] + X ]
**    (B)   N = yy_default[S]
**
** The (A) formula is preferred.  The B formula is used instead if
** yy_lookahead[yy_shift_ofst[S]+X] is not equal to X.
**
** The formulas above are for computing the action when the lookahead is
** a terminal symbol.  If the lookahead is a non-terminal (as occurs after
** a reduce action) then the yy_reduce_ofst[] array is used in place of
** the yy_shift_ofst[] array.
**
** The following are the tables generated in this section:
**
**  yy_action[]        A single table containing all actions.
**  yy_lookahead[]     A table containing the lookahead for each entry in
**                     yy_action.  Used to detect hash collisions.
**  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 (1244)
static const YYACTIONTYPE yy_action[] = {
 /*     0 */   564,  438,   25,  444,   29,   74,  127,  146,   54,   51,
 /*    10 */   564,   36,  445,  113,  120,  159,  119,  126,  419,  420,
 /*    20 */   333,  548,   81,  520,  549,  550,  564,   64,   63,   62,
 /*    30 */    61,  316,  317,    9,    8,   33,  147,   32,    7,   71,
 /*    40 */   125,   28,  329,   66,  568,  300,   50,  333,  333,  333,
 /*    50 */   333,  417,  418,  334,  335,  336,  337,  338,  339,  340,
 /*    60 */   341,  465,   64,   63,   62,   61,  121,  439,  446,   29,
 /*    70 */    36,  465,   30,  442,  368,  292,  486,  159,  119,  419,
 /*    80 */   420,  333,   31,   81,  161,  350,  304,  465,  436,   27,
 /*    90 */   324,   13,  316,  317,    9,    8,   33,   69,   32,    7,
 /*   100 */    71,  125,   83,  329,   66,  483,  159,  119,  333,  333,
 /*   110 */   333,  333,  417,  418,  334,  335,  336,  337,  338,  339,
 /*   120 */   340,  341,  386,  427,   46,   59,   60,   64,   63,   62,
 /*   130 */    61,  307,   84,  368,  322,   35,    2,  293,  386,  427,
 /*   140 */   108,   59,   60,   80,    4,  302,   79,    3,  117,  368,
 /*   150 */   433,  432,    2,   62,   61,  154,  154,  154,  386,  390,
 /*   160 */   391,   59,   60,  518,  159,  119,  433,  432,   47,  102,
 /*   170 */    38,   67,   42,   48,   37,  295,  296,  297,   69,  299,
 /*   180 */   372,  155,  426,  343,  343,  343,  343,  343,  343,  343,
 /*   190 */   343,  343,  343,  371,  157,  566,   77,  566,  426,  106,
 /*   200 */    76,  428,  429,  430,  431,    5,    6,  117,  385,  153,
 /*   210 */   152,  151,  523,  159,  119,  106,  416,  428,  429,  430,
 /*   220 */   431,  415,  427,  117,  385,  153,  152,  151,  386,  427,
 /*   230 */   129,   59,   60,  389,    1,  106,  521,  159,  119,  368,
 /*   240 */    11,   12,    2,  117,  385,  153,  152,  151,   65,  433,
 /*   250 */   432,   64,   63,   62,   61,  349,  433,  432,  136,  140,
 /*   260 */   138,   64,   63,   62,   61,  386,   75,  427,   59,   60,
 /*   270 */    53,  424,  422,   45,  137,   14,  368,   16,   18,   42,
 /*   280 */    55,  426,  154,  154,  154,   44,  145,  144,  426,   64,
 /*   290 */    63,   62,   61,   43,  433,  432,   64,   63,   62,   61,
 /*   300 */   428,  429,  430,  431,   19,  106,  114,  428,  429,  430,
 /*   310 */   431,   20,   68,  117,  385,  153,  152,  151,   15,  352,
 /*   320 */    23,   22,   21,  384,  376,   17,  426,  370,  156,   24,
 /*   330 */    26,  143,  139,  423,  140,  138,   64,   63,   62,   61,
 /*   340 */   374,   57,  106,   58,  375,  428,  429,  430,  431,  383,
 /*   350 */   117,  385,  153,  152,  151,   55,   64,   63,   62,   61,
 /*   360 */   369,  145,  144,  403,  404,  405,  406,  158,   43,  348,
 /*   370 */    70,  140,  138,   64,   63,   62,   61,  386,  464,   39,
 /*   380 */    59,   60,   64,   63,   62,   61,  437,  437,  368,  118,
 /*   390 */   437,   42,   55,  437,  437,  383,   22,   21,  145,  144,
 /*   400 */   395,   49,  437,  524,   24,   43,  143,  139,  423,  437,
 /*   410 */   437,  131,  464,  124,  437,  437,  437,  396,  397,  398,
 /*   420 */   400,   80,  437,  302,   79,  437,  403,  404,  405,  406,
 /*   430 */   440,  446,   29,   22,   21,  386,  442,  437,   59,   60,
 /*   440 */   437,   24,  524,  143,  139,  423,  368,  161,  524,   42,
 /*   450 */   437,  524,   27,  437,  106,  437,  386,  141,  437,   59,
 /*   460 */    60,  437,  117,  385,  153,  152,  151,  368,  437,  437,
 /*   470 */    42,  437,  386,  142,  437,   59,   60,  386,  130,  128,
 /*   480 */    59,   60,  437,  368,  370,  156,   42,  437,  368,  437,
 /*   490 */   386,   42,  437,   59,   60,  386,  437,  437,   59,   60,
 /*   500 */   437,  102,  437,  437,   42,  437,  368,  437,  437,   40,
 /*   510 */   437,  437,  106,  437,  386,  437,  437,   59,   60,  437,
 /*   520 */   117,  385,  153,  152,  151,  368,  437,  437,   41,   64,
 /*   530 */    63,   62,   61,  106,   64,   63,   62,   61,  437,  160,
 /*   540 */   437,  117,  385,  153,  152,  151,  118,  387,   56,  106,
 /*   550 */   437,  437,  437,  437,  106,  437,  437,  117,  385,  153,
 /*   560 */   152,  151,  117,  385,  153,  152,  151,  106,   64,   63,
 /*   570 */    62,   61,  106,  437,  437,  117,  385,  153,  152,  151,
 /*   580 */   117,  385,  153,  152,  151,  419,  420,  333,  437,  437,
 /*   590 */   437,  106,  437,  437,  437,   88,  437,  437,  437,  117,
 /*   600 */   385,  153,  152,  151,  120,  159,  119,  437,  437,  437,
 /*   610 */    10,  470,  470,  437,  333,  333,  333,  333,  417,  418,
 /*   620 */    73,  437,  146,  437,  437,  437,  150,  112,  113,  120,
 /*   630 */   159,  119,  437,   74,  437,  146,   64,   63,   62,   61,
 /*   640 */   122,  113,  120,  159,  119,   72,  437,  146,  437,  347,
 /*   650 */   437,  147,  123,  113,  120,  159,  119,  437,   74,  437,
 /*   660 */   146,  437,  437,  437,  147,  488,  113,  120,  159,  119,
 /*   670 */   437,  437,   74,  437,  146,  437,  147,  437,  437,  487,
 /*   680 */   113,  120,  159,  119,   74,  437,  146,  437,  437,  147,
 /*   690 */   437,  481,  113,  120,  159,  119,  437,  437,  437,   74,
 /*   700 */   437,  146,   88,  147,  437,  437,  475,  113,  120,  159,
 /*   710 */   119,  120,  159,  119,   74,  147,  146,  437,  110,  110,
 /*   720 */   437,  474,  113,  120,  159,  119,  437,   74,  437,  146,
 /*   730 */   147,  437,  437,  150,  471,  113,  120,  159,  119,  437,
 /*   740 */    74,  437,  146,  437,  437,  147,  437,  132,  113,  120,
 /*   750 */   159,  119,   74,  437,  146,  437,  437,  437,  147,  507,
 /*   760 */   113,  120,  159,  119,  437,   74,  437,  146,  437,  437,
 /*   770 */   437,  147,  135,  113,  120,  159,  119,  437,  437,   74,
 /*   780 */   437,  146,  437,  147,  437,  437,  515,  113,  120,  159,
 /*   790 */   119,   74,  437,  146,  437,  437,  147,  437,  517,  113,
 /*   800 */   120,  159,  119,  437,  437,  437,   74,  437,  146,   88,
 /*   810 */   147,  437,  437,  514,  113,  120,  159,  119,  120,  159,
 /*   820 */   119,   74,  147,  146,  437,  111,  111,  437,  516,  113,
 /*   830 */   120,  159,  119,  437,   74,  437,  146,  147,  437,  437,
 /*   840 */   150,  513,  113,  120,  159,  119,  437,   74,  437,  146,
 /*   850 */   437,  437,  147,  437,  512,  113,  120,  159,  119,   74,
 /*   860 */   437,  146,  437,  437,  437,  147,  511,  113,  120,  159,
 /*   870 */   119,  437,   74,  437,  146,  437,  437,  437,  147,  510,
 /*   880 */   113,  120,  159,  119,  437,  437,   74,  437,  146,  437,
 /*   890 */   147,  437,  437,  509,  113,  120,  159,  119,   74,  437,
 /*   900 */   146,  107,  437,  147,  437,  148,  113,  120,  159,  119,
 /*   910 */   120,  159,  119,   74,  469,  146,   85,  147,  437,  437,
 /*   920 */   149,  113,  120,  159,  119,  120,  159,  119,   74,  147,
 /*   930 */   146,  437,  150,  437,  437,  134,  113,  120,  159,  119,
 /*   940 */   437,   74,  437,  146,  147,  107,  437,  150,  133,  113,
 /*   950 */   120,  159,  119,  437,  120,  159,  119,  437,  454,  147,
 /*   960 */   437,   64,   63,   62,   61,   78,   78,  437,   88,  437,
 /*   970 */   437,  437,  147,  437,  383,  437,  150,  120,  159,  119,
 /*   980 */    52,  437,  437,  437,   82,  437,   88,  437,  437,  437,
 /*   990 */   437,  457,  437,   34,  107,  120,  159,  119,  437,  150,
 /*  1000 */   437,  437,  466,  120,  159,  119,  437,  454,  437,  109,
 /*  1010 */   439,  446,   29,  437,  437,  558,  442,  150,  437,  437,
 /*  1020 */   107,   64,   63,   62,   61,  150,   86,  161,  437,  120,
 /*  1030 */   159,  119,   27,  443,  388,  120,  159,  119,   98,  437,
 /*  1040 */   437,  437,  437,   89,  437,  437,  437,  120,  159,  119,
 /*  1050 */    90,  150,  120,  159,  119,   87,  437,  150,  437,  120,
 /*  1060 */   159,  119,   99,  437,  120,  159,  119,  437,  100,  150,
 /*  1070 */   437,  120,  159,  119,  150,  437,  437,  120,  159,  119,
 /*  1080 */   101,  150,   64,   63,   62,   61,  150,  437,  437,  120,
 /*  1090 */   159,  119,  437,  150,   91,  383,  437,  103,  437,  150,
 /*  1100 */   437,  437,  437,  120,  159,  119,  120,  159,  119,   92,
 /*  1110 */   437,  150,   93,  437,  437,  437,  437,  437,  120,  159,
 /*  1120 */   119,  120,  159,  119,  437,  150,  104,  437,  150,  437,
 /*  1130 */   437,  437,  437,  437,  437,  120,  159,  119,   94,  437,
 /*  1140 */   150,  437,  437,  150,  437,  437,  437,  120,  159,  119,
 /*  1150 */   105,  437,  437,   95,  437,  437,  437,  150,  437,  120,
 /*  1160 */   159,  119,  120,  159,  119,   96,  437,  437,   97,  150,
 /*  1170 */   437,  437,  437,  437,  120,  159,  119,  120,  159,  119,
 /*  1180 */   538,  150,  437,  437,  150,  437,  437,  437,  437,  120,
 /*  1190 */   159,  119,  437,  537,  437,  437,  150,  536,  437,  150,
 /*  1200 */   437,  437,  120,  159,  119,  535,  120,  159,  119,  115,
 /*  1210 */   437,  150,  116,  437,  120,  159,  119,  437,  120,  159,
 /*  1220 */   119,  120,  159,  119,  150,  437,  437,  437,  150,  437,
 /*  1230 */   437,  437,  437,  437,  437,  437,  150,  437,  437,  437,
 /*  1240 */   150,  437,  437,  150,
};
static const YYCODETYPE yy_lookahead[] = {
 /*     0 */     0,    0,  129,   97,   98,   99,  101,  101,    4,    5,
 /*    10 */    10,   10,  106,  107,  108,  109,  110,  101,   18,   19,
 /*    20 */    20,  100,   22,  101,  103,  104,   26,    4,    5,    6,
 /*    30 */     7,   31,   32,   33,   34,   35,  130,   37,   38,   39,
 /*    40 */    40,  102,   42,   43,  128,   23,   23,   47,   48,   49,
 /*    50 */    50,   51,   52,   53,   54,   55,   56,   57,   58,   59,
 /*    60 */    60,    0,    4,    5,    6,    7,   95,   96,   97,   98,
 /*    70 */    10,   10,  121,  102,   12,   17,  108,  109,  110,   18,
 /*    80 */    19,   20,  123,   22,  113,   17,   26,   26,  117,  118,
 /*    90 */     2,   23,   31,   32,   33,   34,   35,    3,   37,   38,
 /*   100 */    39,   40,  111,   42,   43,  108,  109,  110,   47,   48,
 /*   110 */    49,   50,   51,   52,   53,   54,   55,   56,   57,   58,
 /*   120 */    59,   60,    1,    2,   36,    4,    5,    4,    5,    6,
 /*   130 */     7,    8,  111,   12,    2,  124,   15,   17,    1,    2,
 /*   140 */    78,    4,    5,   22,   15,   24,   25,   16,   86,   12,
 /*   150 */    29,   30,   15,    6,    7,   18,   19,   20,    1,   92,
 /*   160 */    93,    4,    5,  108,  109,  110,   29,   30,   36,   12,
 /*   170 */   100,   41,   15,  103,  104,   18,   19,   20,   84,   22,
 /*   180 */    24,   25,   61,   61,   62,   63,   64,   65,   66,   67,
 /*   190 */    68,   69,   70,   24,   25,  125,  126,  127,   61,   78,
 /*   200 */    46,   80,   81,   82,   83,   38,   38,   86,   87,   88,
 /*   210 */    89,   90,  108,  109,  110,   78,   39,   80,   81,   82,
 /*   220 */    83,   39,    2,   86,   87,   88,   89,   90,    1,    2,
 /*   230 */    45,    4,    5,   17,   13,   78,  108,  109,  110,   12,
 /*   240 */    23,   71,   15,   86,   87,   88,   89,   90,   94,   29,
 /*   250 */    30,    4,    5,    6,    7,   17,   29,   30,   75,    2,
 /*   260 */     3,    4,    5,    6,    7,    1,   46,    2,    4,    5,
 /*   270 */    23,   76,   76,   16,   77,    3,   12,    3,    3,   15,
 /*   280 */    23,   61,   18,   19,   20,   36,   29,   30,   61,    4,
 /*   290 */     5,    6,    7,   36,   29,   30,    4,    5,    6,    7,
 /*   300 */    80,   81,   82,   83,    3,   78,   91,   80,   81,   82,
 /*   310 */    83,    3,    3,   86,   87,   88,   89,   90,   33,   73,
 /*   320 */    23,   64,   65,   17,   26,   33,   61,   24,   25,   72,
 /*   330 */    15,   74,   75,   76,    2,    3,    4,    5,    6,    7,
 /*   340 */    26,   15,   78,   15,   26,   80,   81,   82,   83,   17,
 /*   350 */    86,   87,   88,   89,   90,   23,    4,    5,    6,    7,
 /*   360 */    12,   29,   30,   27,   28,   29,   30,   85,   36,   17,
 /*   370 */     3,    2,    3,    4,    5,    6,    7,    1,    2,   11,
 /*   380 */     4,    5,    4,    5,    6,    7,  131,  131,   12,   86,
 /*   390 */   131,   15,   23,  131,  131,   17,   64,   65,   29,   30,
 /*   400 */     1,   23,  131,   46,   72,   36,   74,   75,   76,  131,
 /*   410 */   131,   12,   36,   14,  131,  131,  131,   18,   19,   20,
 /*   420 */    21,   22,  131,   24,   25,  131,   27,   28,   29,   30,
 /*   430 */    96,   97,   98,   64,   65,    1,  102,  131,    4,    5,
 /*   440 */   131,   72,   85,   74,   75,   76,   12,  113,   91,   15,
 /*   450 */   131,   94,  118,  131,   78,  131,    1,    2,  131,    4,
 /*   460 */     5,  131,   86,   87,   88,   89,   90,   12,  131,  131,
 /*   470 */    15,  131,    1,    2,  131,    4,    5,    1,   44,   45,
 /*   480 */     4,    5,  131,   12,   24,   25,   15,  131,   12,  131,
 /*   490 */     1,   15,  131,    4,    5,    1,  131,  131,    4,    5,
 /*   500 */   131,   12,  131,  131,   15,  131,   12,  131,  131,   15,
 /*   510 */   131,  131,   78,  131,    1,  131,  131,    4,    5,  131,
 /*   520 */    86,   87,   88,   89,   90,   12,  131,  131,   15,    4,
 /*   530 */     5,    6,    7,   78,    4,    5,    6,    7,  131,   79,
 /*   540 */   131,   86,   87,   88,   89,   90,   86,   17,   23,   78,
 /*   550 */   131,  131,  131,  131,   78,  131,  131,   86,   87,   88,
 /*   560 */    89,   90,   86,   87,   88,   89,   90,   78,    4,    5,
 /*   570 */     6,    7,   78,  131,  131,   86,   87,   88,   89,   90,
 /*   580 */    86,   87,   88,   89,   90,   18,   19,   20,  131,  131,
 /*   590 */   131,   78,  131,  131,  131,   99,  131,  131,  131,   86,
 /*   600 */    87,   88,   89,   90,  108,  109,  110,  131,  131,  131,
 /*   610 */   114,  115,  116,  131,   47,   48,   49,   50,   51,   52,
 /*   620 */    99,  131,  101,  131,  131,  131,  130,  106,  107,  108,
 /*   630 */   109,  110,  131,   99,  131,  101,    4,    5,    6,    7,
 /*   640 */   106,  107,  108,  109,  110,   99,  131,  101,  131,   17,
 /*   650 */   131,  130,  106,  107,  108,  109,  110,  131,   99,  131,
 /*   660 */   101,  131,  131,  131,  130,  106,  107,  108,  109,  110,
 /*   670 */   131,  131,   99,  131,  101,  131,  130,  131,  131,  106,
 /*   680 */   107,  108,  109,  110,   99,  131,  101,  131,  131,  130,
 /*   690 */   131,  106,  107,  108,  109,  110,  131,  131,  131,   99,
 /*   700 */   131,  101,   99,  130,  131,  131,  106,  107,  108,  109,
 /*   710 */   110,  108,  109,  110,   99,  130,  101,  131,  115,  116,
 /*   720 */   131,  106,  107,  108,  109,  110,  131,   99,  131,  101,
 /*   730 */   130,  131,  131,  130,  106,  107,  108,  109,  110,  131,
 /*   740 */    99,  131,  101,  131,  131,  130,  131,  106,  107,  108,
 /*   750 */   109,  110,   99,  131,  101,  131,  131,  131,  130,  106,
 /*   760 */   107,  108,  109,  110,  131,   99,  131,  101,  131,  131,
 /*   770 */   131,  130,  106,  107,  108,  109,  110,  131,  131,   99,
 /*   780 */   131,  101,  131,  130,  131,  131,  106,  107,  108,  109,
 /*   790 */   110,   99,  131,  101,  131,  131,  130,  131,  106,  107,
 /*   800 */   108,  109,  110,  131,  131,  131,   99,  131,  101,   99,
 /*   810 */   130,  131,  131,  106,  107,  108,  109,  110,  108,  109,
 /*   820 */   110,   99,  130,  101,  131,  115,  116,  131,  106,  107,
 /*   830 */   108,  109,  110,  131,   99,  131,  101,  130,  131,  131,
 /*   840 */   130,  106,  107,  108,  109,  110,  131,   99,  131,  101,
 /*   850 */   131,  131,  130,  131,  106,  107,  108,  109,  110,   99,
 /*   860 */   131,  101,  131,  131,  131,  130,  106,  107,  108,  109,
 /*   870 */   110,  131,   99,  131,  101,  131,  131,  131,  130,  106,
 /*   880 */   107,  108,  109,  110,  131,  131,   99,  131,  101,  131,
 /*   890 */   130,  131,  131,  106,  107,  108,  109,  110,   99,  131,
 /*   900 */   101,   99,  131,  130,  131,  106,  107,  108,  109,  110,
 /*   910 */   108,  109,  110,   99,  112,  101,   99,  130,  131,  131,
 /*   920 */   106,  107,  108,  109,  110,  108,  109,  110,   99,  130,
 /*   930 */   101,  131,  130,  131,  131,  106,  107,  108,  109,  110,
 /*   940 */   131,   99,  131,  101,  130,   99,  131,  130,  106,  107,
 /*   950 */   108,  109,  110,  131,  108,  109,  110,  131,  112,  130,
 /*   960 */   131,    4,    5,    6,    7,  119,  120,  131,   99,  131,
 /*   970 */   131,  131,  130,  131,   17,  131,  130,  108,  109,  110,
 /*   980 */    23,  131,  131,  131,  115,  131,   99,  131,  131,  131,
 /*   990 */   131,  122,  131,  124,   99,  108,  109,  110,  131,  130,
 /*  1000 */   131,  131,  115,  108,  109,  110,  131,  112,  131,   95,
 /*  1010 */    96,   97,   98,  131,  131,  120,  102,  130,  131,  131,
 /*  1020 */    99,    4,    5,    6,    7,  130,   99,  113,  131,  108,
 /*  1030 */   109,  110,  118,  112,   17,  108,  109,  110,   99,  131,
 /*  1040 */   131,  131,  131,   99,  131,  131,  131,  108,  109,  110,
 /*  1050 */    99,  130,  108,  109,  110,   99,  131,  130,  131,  108,
 /*  1060 */   109,  110,   99,  131,  108,  109,  110,  131,   99,  130,
 /*  1070 */   131,  108,  109,  110,  130,  131,  131,  108,  109,  110,
 /*  1080 */    99,  130,    4,    5,    6,    7,  130,  131,  131,  108,
 /*  1090 */   109,  110,  131,  130,   99,   17,  131,   99,  131,  130,
 /*  1100 */   131,  131,  131,  108,  109,  110,  108,  109,  110,   99,
 /*  1110 */   131,  130,   99,  131,  131,  131,  131,  131,  108,  109,
 /*  1120 */   110,  108,  109,  110,  131,  130,   99,  131,  130,  131,
 /*  1130 */   131,  131,  131,  131,  131,  108,  109,  110,   99,  131,
 /*  1140 */   130,  131,  131,  130,  131,  131,  131,  108,  109,  110,
 /*  1150 */    99,  131,  131,   99,  131,  131,  131,  130,  131,  108,
 /*  1160 */   109,  110,  108,  109,  110,   99,  131,  131,   99,  130,
 /*  1170 */   131,  131,  131,  131,  108,  109,  110,  108,  109,  110,
 /*  1180 */    99,  130,  131,  131,  130,  131,  131,  131,  131,  108,
 /*  1190 */   109,  110,  131,   99,  131,  131,  130,   99,  131,  130,
 /*  1200 */   131,  131,  108,  109,  110,   99,  108,  109,  110,   99,
 /*  1210 */   131,  130,   99,  131,  108,  109,  110,  131,  108,  109,
 /*  1220 */   110,  108,  109,  110,  130,  131,  131,  131,  130,  131,
 /*  1230 */   131,  131,  131,  131,  131,  131,  130,  131,  131,  131,
 /*  1240 */   130,  131,  131,  130,   95,   95,   95,   95,   95,   95,
 /*  1250 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1260 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1270 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1280 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1290 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1300 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1310 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1320 */    95,   95,   95,   95,   95,   95,   95,   95,   95,   95,
 /*  1330 */    95,   95,   95,   95,   95,   95,   95,   95,   95,
};
#define YY_SHIFT_COUNT    (161)
#define YY_SHIFT_MIN      (0)
#define YY_SHIFT_MAX      (1078)
static const unsigned short int yy_shift_ofst[] = {
 /*     0 */   399,  121,  137,  227,  227,  227,  227,  227,  227,  227,
 /*    10 */   227,  227,  227,  227,  227,  227,  227,  227,  227,  227,
 /*    20 */   227,  227,  227,  227,  227,  227,  227,  157,  434,  476,
 /*    30 */   157,  399,  376,  376,    0,   61,  399,  489,  476,  489,
 /*    40 */   264,  264,  264,  455,  471,  476,  476,  476,  476,  476,
 /*    50 */   476,  494,  476,  476,  513,  476,  476,  476,  476,  476,
 /*    60 */   476,  476,  476,  476,  476,  567,   62,   62,   62,   62,
 /*    70 */    62,  220,  257,  332,  369,  265,  265,  336,   22, 1244,
 /*    80 */  1244, 1244, 1244,  122,  122,  378,  957,   58,  123,  285,
 /*    90 */   292,  352,   23,  632,  247, 1017,  525,  530, 1078,  564,
 /*   100 */   564,  564,  357,  564,  564,  564,  460,  564,  303,   60,
 /*   110 */    88,  132,   68,    4,   67,  147,  147,  156,  169,   94,
 /*   120 */   154,    1,  120,  131,  129,  130,  167,  168,  177,  182,
 /*   130 */   185,  221,  216,  217,  170,  238,  195,  183,  197,  196,
 /*   140 */   272,  274,  275,  249,  301,  308,  309,  215,  246,  297,
 /*   150 */   215,  315,  326,  328,  306,  298,  314,  318,  348,  282,
 /*   160 */   367,  368,
};
#define YY_REDUCE_COUNT (82)
#define YY_REDUCE_MIN   (-127)
#define YY_REDUCE_MAX   (1113)
static const short yy_reduce_ofst[] = {
 /*     0 */   -29,  -94,  521,  534,  546,  559,  573,  585,  600,  615,
 /*    10 */   628,  641,  653,  666,  680,  692,  707,  722,  735,  748,
 /*    20 */   760,  773,  787,  799,  814,  829,  842,  846,  496,  869,
 /*    30 */   895,  914,  603,  710,   70,   70,  334,  802,  887,  921,
 /*    40 */   817,  927,  939,  944,  951,  956,  963,  969,  981,  995,
 /*    50 */   998, 1010, 1013, 1027, 1039, 1051, 1054, 1066, 1069, 1081,
 /*    60 */  1094, 1098, 1106, 1110, 1113,  -79,  -32,   -3,   55,  104,
 /*    70 */   128,  -84, -127, -127, -127,  -95,  -78,  -61,  -49,  -41,
 /*    80 */    -9,   21,   11,
};
static const YYACTIONTYPE yy_default[] = {
 /*     0 */   441,  435,  435,  435,  435,  435,  435,  435,  435,  435,
 /*    10 */   435,  435,  435,  435,  435,  435,  435,  435,  435,  435,
 /*    20 */   435,  435,  435,  435,  435,  435,  435,  435,  464,  565,
 /*    30 */   435,  441,  569,  476,  570,  570,  441,  435,  435,  435,
 /*    40 */   435,  435,  435,  435,  435,  435,  435,  435,  468,  435,
 /*    50 */   435,  435,  435,  435,  435,  435,  435,  435,  435,  435,
 /*    60 */   435,  435,  435,  435,  435,  435,  435,  435,  435,  435,
 /*    70 */   435,  435,  435,  435,  435,  435,  435,  435,  447,  461,
 /*    80 */   498,  498,  565,  459,  484,  435,  435,  435,  462,  435,
 /*    90 */   435,  435,  435,  435,  435,  435,  435,  435,  435,  479,
 /*   100 */   477,  467,  450,  502,  501,  500,  435,  555,  435,  435,
 /*   110 */   435,  435,  435,  577,  435,  534,  533,  529,  435,  522,
 /*   120 */   519,  435,  435,  435,  435,  482,  435,  435,  435,  435,
 /*   130 */   435,  435,  435,  435,  435,  435,  435,  435,  435,  435,
 /*   140 */   435,  435,  435,  435,  435,  435,  435,  581,  435,  435,
 /*   150 */   435,  435,  435,  435,  435,  435,  435,  435,  435,  590,
 /*   160 */   435,  435,
};
/********** 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.
**
** appears in the grammar, then ID becomes a fallback token for X, Y,
** and Z.  Whenever one of the tokens X, Y, or Z is input to the parser
** but it does not parse, the type of the token is changed to ID and
** the parse is retried before an error is thrown.
**
** This feature can be used, for example, to cause some keywords in a language
** to revert to identifiers if they keyword does not apply in the context where
** it appears.
*/
#ifdef YYFALLBACK
static const YYCODETYPE yyFallback[] = {
    0,  /*          $ => nothing */
    0,  /*         ID => nothing */
    1,  /*     EDGEPT => ID */
    0,  /*         OF => nothing */
    0,  /*       PLUS => nothing */
    0,  /*      MINUS => nothing */
    0,  /*       STAR => nothing */
    0,  /*      SLASH => nothing */
    0,  /*    PERCENT => nothing */
    0,  /*     UMINUS => nothing */
    0,  /*        EOL => nothing */
    0,  /*     ASSIGN => nothing */
    0,  /*  PLACENAME => nothing */
    0,  /*      COLON => nothing */
    0,  /*     ASSERT => nothing */
    0,  /*         LP => nothing */
    0,  /*         EQ => nothing */
    0,  /*         RP => nothing */
    0,  /*       FILL => nothing */
    0,  /*      COLOR => nothing */
    0,  /*  THICKNESS => nothing */
    0,  /*      PRINT => nothing */
    0,  /*     STRING => nothing */
    0,  /*      COMMA => nothing */
    0,  /*  CLASSNAME => nothing */
    0,  /*         LB => nothing */
    0,  /*         RB => nothing */
    0,  /*         UP => nothing */
    0,  /*       DOWN => nothing */
    0,  /*       LEFT => nothing */
    0,  /*      RIGHT => nothing */
    0,  /*      CLOSE => nothing */
    0,  /*       CHOP => nothing */
    0,  /*       FROM => nothing */
    0,  /*         TO => nothing */
    0,  /*       THEN => nothing */
    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,  /*         CW => nothing */
    0,  /*        CCW => nothing */
    0,  /*     LARROW => nothing */
    0,  /*     RARROW => nothing */
    0,  /*    LRARROW => nothing */
    0,  /*      INVIS => nothing */
    0,  /*      THICK => nothing */
    0,  /*       THIN => nothing */
    0,  /*     CENTER => nothing */
    0,  /*      LJUST => nothing */
    0,  /*      RJUST => nothing */
    0,  /*      ABOVE => nothing */
    0,  /*      BELOW => nothing */
    0,  /*     ITALIC => nothing */
    0,  /*       BOLD => nothing */
    0,  /*    ALIGNED => nothing */
    0,  /*        BIG => nothing */
    0,  /*      SMALL => nothing */
    0,  /*        AND => nothing */
    0,  /*         LT => nothing */
    0,  /*         GT => nothing */
    0,  /*         ON => nothing */
    0,  /*        WAY => nothing */
    0,  /*    BETWEEN => nothing */
    0,  /*        THE => nothing */
    0,  /*        NTH => nothing */
    0,  /*     VERTEX => nothing */
    0,  /*        TOP => nothing */
    0,  /*     BOTTOM => nothing */
    0,  /*      START => nothing */
    0,  /*        END => nothing */
    0,  /*         IN => nothing */
    0,  /*      DOT_U => nothing */
    0,  /*       LAST => nothing */
    0,  /*     NUMBER => nothing */
    0,  /*      FUNC1 => nothing */
    0,  /*      FUNC2 => nothing */
    0,  /*       DIST => nothing */
    0,  /*     DOT_XY => nothing */
    0,  /*          X => nothing */
    0,  /*          Y => nothing */
    0,  /*      DOT_L => nothing */
};
#endif /* YYFALLBACK */

/* The following structure represents a single element of the
** parser's stack.  Information stored includes:
**
**   +  The state number for the parser at this level of the stack.
**
**   +  The value of the token stored at this level of the stack.
**      (In other words, the "major" token.)
**
**   +  The semantic value stored at this level of the stack.  This is
**      the information used by the action routines in the grammar.
**      It is sometimes called the "minor" token.
**
** After the "shift" half of a SHIFTREDUCE action, the stateno field
** actually contains the reduce action for the second half of the
** SHIFTREDUCE.
*/
struct yyStackEntry {
  YYACTIONTYPE stateno;  /* The state-number, or reduce action in SHIFTREDUCE */
  YYCODETYPE major;      /* The major token value.  This is the code
                         ** number for the token at this stack level */
  YYMINORTYPE minor;     /* The user-supplied minor token value.  This
                         ** is the value of the token  */
};
typedef struct yyStackEntry yyStackEntry;

/* The state of the parser is completely contained in an instance of
** the following structure */
struct yyParser {
  yyStackEntry *yytos;          /* Pointer to top element of the stack */
#ifdef YYTRACKMAXSTACKDEPTH
  int yyhwm;                    /* High-water mark of the stack */
#endif
#ifndef YYNOERRORRECOVERY
  int yyerrcnt;                 /* Shifts left before out of the error */
#endif
  pik_parserARG_SDECL                /* A place to hold %extra_argument */
  pik_parserCTX_SDECL                /* A place to hold %extra_context */
#if YYSTACKDEPTH<=0
  int yystksz;                  /* Current side of the stack */
  yyStackEntry *yystack;        /* The parser's stack */
  yyStackEntry yystk0;          /* First stack entry */
#else
  yyStackEntry yystack[YYSTACKDEPTH];  /* The parser's stack */
  yyStackEntry *yystackEnd;            /* Last entry in the stack */
#endif
};
typedef struct yyParser yyParser;

#ifndef NDEBUG
#include <stdio.h>
#include <assert.h>
static FILE *yyTraceFILE = 0;
static char *yyTracePrompt = 0;
#endif /* NDEBUG */

#ifndef NDEBUG
/* 
** Turn parser tracing on by giving a stream to which to write the trace
** and a prompt to preface each trace message.  Tracing is turned off
** by making either argument NULL 
**
** Inputs:
** <ul>
** <li> A FILE* to which trace output should be written.
**      If NULL, then tracing is turned off.
** <li> A prefix string written at the beginning of every
**      line of trace output.  If NULL, then tracing is
**      turned off.
** </ul>
**
** Outputs:
** None.
*/
void pik_parserTrace(FILE *TraceFILE, char *zTracePrompt){
  yyTraceFILE = TraceFILE;
  yyTracePrompt = zTracePrompt;
  if( yyTraceFILE==0 ) yyTracePrompt = 0;
  else if( yyTracePrompt==0 ) yyTraceFILE = 0;
}
#endif /* NDEBUG */

#if defined(YYCOVERAGE) || !defined(NDEBUG)
/* For tracing shifts, the names of all terminals and nonterminals
** are required.  The following table supplies these names */
static const char *const yyTokenName[] = { 
  /*    0 */ "$",
  /*    1 */ "ID",
  /*    2 */ "EDGEPT",
  /*    3 */ "OF",
  /*    4 */ "PLUS",
  /*    5 */ "MINUS",
  /*    6 */ "STAR",
  /*    7 */ "SLASH",
  /*    8 */ "PERCENT",
  /*    9 */ "UMINUS",
  /*   10 */ "EOL",
  /*   11 */ "ASSIGN",
  /*   12 */ "PLACENAME",
  /*   13 */ "COLON",
  /*   14 */ "ASSERT",
  /*   15 */ "LP",
  /*   16 */ "EQ",
  /*   17 */ "RP",
  /*   18 */ "FILL",
  /*   19 */ "COLOR",
  /*   20 */ "THICKNESS",
  /*   21 */ "PRINT",
  /*   22 */ "STRING",
  /*   23 */ "COMMA",
  /*   24 */ "CLASSNAME",
  /*   25 */ "LB",
  /*   26 */ "RB",
  /*   27 */ "UP",
  /*   28 */ "DOWN",
  /*   29 */ "LEFT",
  /*   30 */ "RIGHT",
  /*   31 */ "CLOSE",
  /*   32 */ "CHOP",
  /*   33 */ "FROM",
  /*   34 */ "TO",
  /*   35 */ "THEN",
  /*   36 */ "HEADING",
  /*   37 */ "GO",
  /*   38 */ "AT",
  /*   39 */ "WITH",
  /*   40 */ "SAME",
  /*   41 */ "AS",
  /*   42 */ "FIT",
  /*   43 */ "BEHIND",
  /*   44 */ "UNTIL",
  /*   45 */ "EVEN",
  /*   46 */ "DOT_E",
  /*   47 */ "HEIGHT",
  /*   48 */ "WIDTH",
  /*   49 */ "RADIUS",
  /*   50 */ "DIAMETER",
  /*   51 */ "DOTTED",
  /*   52 */ "DASHED",
  /*   53 */ "CW",
  /*   54 */ "CCW",
  /*   55 */ "LARROW",
  /*   56 */ "RARROW",
  /*   57 */ "LRARROW",
  /*   58 */ "INVIS",
  /*   59 */ "THICK",
  /*   60 */ "THIN",
  /*   61 */ "CENTER",
  /*   62 */ "LJUST",
  /*   63 */ "RJUST",
  /*   64 */ "ABOVE",
  /*   65 */ "BELOW",
  /*   66 */ "ITALIC",
  /*   67 */ "BOLD",
  /*   68 */ "ALIGNED",
  /*   69 */ "BIG",
  /*   70 */ "SMALL",
  /*   71 */ "AND",
  /*   72 */ "LT",
  /*   73 */ "GT",
  /*   74 */ "ON",
  /*   75 */ "WAY",
  /*   76 */ "BETWEEN",
  /*   77 */ "THE",
  /*   78 */ "NTH",
  /*   79 */ "VERTEX",
  /*   80 */ "TOP",
  /*   81 */ "BOTTOM",
  /*   82 */ "START",
  /*   83 */ "END",
  /*   84 */ "IN",
  /*   85 */ "DOT_U",
  /*   86 */ "LAST",
  /*   87 */ "NUMBER",
  /*   88 */ "FUNC1",
  /*   89 */ "FUNC2",
  /*   90 */ "DIST",
  /*   91 */ "DOT_XY",
  /*   92 */ "X",
  /*   93 */ "Y",
  /*   94 */ "DOT_L",
  /*   95 */ "element_list",
  /*   96 */ "element",
  /*   97 */ "unnamed_element",
  /*   98 */ "basetype",
  /*   99 */ "expr",
  /*  100 */ "numproperty",
  /*  101 */ "edge",
  /*  102 */ "direction",
  /*  103 */ "dashproperty",
  /*  104 */ "colorproperty",
  /*  105 */ "locproperty",
  /*  106 */ "position",
  /*  107 */ "place",
  /*  108 */ "object",
  /*  109 */ "objectname",
  /*  110 */ "nth",
  /*  111 */ "textposition",
  /*  112 */ "rvalue",
  /*  113 */ "lvalue",
  /*  114 */ "even",
  /*  115 */ "relexpr",
  /*  116 */ "optrelexpr",
  /*  117 */ "document",
  /*  118 */ "print",
  /*  119 */ "prlist",
  /*  120 */ "pritem",
  /*  121 */ "prsep",
  /*  122 */ "attribute_list",
  /*  123 */ "savelist",
  /*  124 */ "alist",
  /*  125 */ "attribute",
  /*  126 */ "go",
  /*  127 */ "boolproperty",
  /*  128 */ "withclause",
  /*  129 */ "between",
  /*  130 */ "place2",
};
#endif /* defined(YYCOVERAGE) || !defined(NDEBUG) */

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


#if YYSTACKDEPTH<=0
/*
** Try to increase the size of the parser stack.  Return the number
** of errors.  Return 0 on success.
*/
static int yyGrowStack(yyParser *p){
  int newSize;
  int idx;
  yyStackEntry *pNew;

  newSize = p->yystksz*2 + 100;
  idx = p->yytos ? (int)(p->yytos - p->yystack) : 0;
  if( p->yystack==&p->yystk0 ){
    pNew = malloc(newSize*sizeof(pNew[0]));
    if( pNew ) pNew[0] = p->yystk0;
  }else{
    pNew = realloc(p->yystack, newSize*sizeof(pNew[0]));
  }
  if( pNew ){
    p->yystack = pNew;
    p->yytos = &p->yystack[idx];
#ifndef NDEBUG
    if( yyTraceFILE ){
      fprintf(yyTraceFILE,"%sStack grows from %d to %d entries.\n",
              yyTracePrompt, p->yystksz, newSize);
    }
#endif
    p->yystksz = newSize;
  }
  return pNew==0; 
}
#endif

/* Datatype of the argument to the memory allocated passed as the
** second argument to pik_parserAlloc() below.  This can be changed by
** putting an appropriate #define in the %include section of the input
** grammar.
*/
#ifndef YYMALLOCARGTYPE
# define YYMALLOCARGTYPE size_t
#endif

/* Initialize a new parser that has already been allocated.
*/
void pik_parserInit(void *yypRawParser pik_parserCTX_PDECL){
  yyParser *yypParser = (yyParser*)yypRawParser;
  pik_parserCTX_STORE
#ifdef YYTRACKMAXSTACKDEPTH
  yypParser->yyhwm = 0;
#endif
#if YYSTACKDEPTH<=0
  yypParser->yytos = NULL;
  yypParser->yystack = NULL;
  yypParser->yystksz = 0;
  if( yyGrowStack(yypParser) ){
    yypParser->yystack = &yypParser->yystk0;
    yypParser->yystksz = 1;
  }
#endif
#ifndef YYNOERRORRECOVERY
  yypParser->yyerrcnt = -1;
#endif
  yypParser->yytos = yypParser->yystack;
  yypParser->yystack[0].stateno = 0;
  yypParser->yystack[0].major = 0;
#if YYSTACKDEPTH>0
  yypParser->yystackEnd = &yypParser->yystack[YYSTACKDEPTH-1];
#endif
}

#ifndef pik_parser_ENGINEALWAYSONSTACK
/* 
** This function allocates a new parser.
** The only argument is a pointer to a function which works like
** malloc.
**
** Inputs:
** A pointer to the function used to allocate memory.
**
** Outputs:
** A pointer to a parser.  This pointer is used in subsequent calls
** to pik_parser and pik_parserFree.
*/
void *pik_parserAlloc(void *(*mallocProc)(YYMALLOCARGTYPE) pik_parserCTX_PDECL){
  yyParser *yypParser;
  yypParser = (yyParser*)(*mallocProc)( (YYMALLOCARGTYPE)sizeof(yyParser) );
  if( yypParser ){
    pik_parserCTX_STORE
    pik_parserInit(yypParser pik_parserCTX_PARAM);
  }
  return (void*)yypParser;
}
#endif /* pik_parser_ENGINEALWAYSONSTACK */


/* The following function deletes the "minor type" or semantic value
** associated with a symbol.  The symbol can be either a terminal
** or nonterminal. "yymajor" is the symbol code, and "yypminor" is
** a pointer to the value to be deleted.  The code used to do the 
** deletions is derived from the %destructor and/or %token_destructor
** directives of the input grammar.
*/
static void yy_destructor(
  yyParser *yypParser,    /* The parser */
  YYCODETYPE yymajor,     /* Type code for object to destroy */
  YYMINORTYPE *yypminor   /* The object to be destroyed */
){
  pik_parserARG_FETCH
  pik_parserCTX_FETCH
  switch( yymajor ){
    /* Here is inserted the actions which take place when a
    ** terminal or non-terminal is destroyed.  This can happen
    ** when the symbol is popped from the stack during a
    ** reduce or during error processing or when a parser is 
    ** 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 95: /* element_list */
{
#line 467 "pikchr.y"
pik_elist_free(p,(yypminor->yy56));
#line 1680 "pikchr.c"
}
      break;
    case 96: /* element */
    case 97: /* unnamed_element */
    case 98: /* basetype */
{
#line 469 "pikchr.y"
pik_elem_free(p,(yypminor->yy226));
#line 1689 "pikchr.c"
}
      break;
/********* End destructor definitions *****************************************/
    default:  break;   /* If no destructor action specified: do nothing */
  }
}

/*
** Pop the parser's stack once.
**
** If there is a destructor routine associated with the token which
** is popped from the stack, then call it.
*/
static void yy_pop_parser_stack(yyParser *pParser){
  yyStackEntry *yytos;
  assert( pParser->yytos!=0 );
  assert( pParser->yytos > pParser->yystack );
  yytos = pParser->yytos--;
#ifndef NDEBUG
  if( yyTraceFILE ){
    fprintf(yyTraceFILE,"%sPopping %s\n",
      yyTracePrompt,
      yyTokenName[yytos->major]);
  }
#endif
  yy_destructor(pParser, yytos->major, &yytos->minor);
}

/*
** Clear all secondary memory allocations from the parser
*/
void pik_parserFinalize(void *p){
  yyParser *pParser = (yyParser*)p;
  while( pParser->yytos>pParser->yystack ) yy_pop_parser_stack(pParser);
#if YYSTACKDEPTH<=0
  if( pParser->yystack!=&pParser->yystk0 ) free(pParser->yystack);
#endif
}

#ifndef pik_parser_ENGINEALWAYSONSTACK
/* 
** Deallocate and destroy a parser.  Destructors are called for
** all stack elements before shutting the parser down.
**
** If the YYPARSEFREENEVERNULL macro exists (for example because it
** is defined in a %include section of the input grammar) then it is
** assumed that the input pointer is never NULL.
*/
void pik_parserFree(
  void *p,                    /* The parser to be deleted */
  void (*freeProc)(void*)     /* Function used to reclaim memory */
){
#ifndef YYPARSEFREENEVERNULL
  if( p==0 ) return;
#endif
  pik_parserFinalize(p);
  (*freeProc)(p);
}
#endif /* pik_parser_ENGINEALWAYSONSTACK */

/*
** Return the peak depth of the stack for a parser.
*/
#ifdef YYTRACKMAXSTACKDEPTH
int pik_parserStackPeak(void *p){
  yyParser *pParser = (yyParser*)p;
  return pParser->yyhwm;
}
#endif

/* This array of booleans keeps track of the parser statement
** coverage.  The element yycoverage[X][Y] is set when the parser
** is in state X and has a lookahead token Y.  In a well-tested
** systems, every element of this matrix should end up being set.
*/
#if defined(YYCOVERAGE)
static unsigned char yycoverage[YYNSTATE][YYNTOKEN];
#endif

/*
** Write into out a description of every state/lookahead combination that
**
**   (1)  has not been used by the parser, and
**   (2)  is not a syntax error.
**
** Return the number of missed state/lookahead combinations.
*/
#if defined(YYCOVERAGE)
int pik_parserCoverage(FILE *out){
  int stateno, iLookAhead, i;
  int nMissed = 0;
  for(stateno=0; stateno<YYNSTATE; stateno++){
    i = yy_shift_ofst[stateno];
    for(iLookAhead=0; iLookAhead<YYNTOKEN; iLookAhead++){
      if( yy_lookahead[i+iLookAhead]!=iLookAhead ) continue;
      if( yycoverage[stateno][iLookAhead]==0 ) nMissed++;
      if( out ){
        fprintf(out,"State %d lookahead %s %s\n", stateno,
                yyTokenName[iLookAhead],
                yycoverage[stateno][iLookAhead] ? "ok" : "missed");
      }
    }
  }
  return nMissed;
}
#endif

/*
** Find the appropriate action for a parser given the terminal
** look-ahead token iLookAhead.
*/
static YYACTIONTYPE yy_find_shift_action(
  YYCODETYPE iLookAhead,    /* The look-ahead token */
  YYACTIONTYPE stateno      /* Current state number */
){
  int i;

  if( stateno>YY_MAX_SHIFT ) return stateno;
  assert( stateno <= YY_SHIFT_COUNT );
#if defined(YYCOVERAGE)
  yycoverage[stateno][iLookAhead] = 1;
#endif
  do{
    i = yy_shift_ofst[stateno];
    assert( i>=0 );
    assert( i<=YY_ACTTAB_COUNT );
    assert( i+YYNTOKEN<=(int)YY_NLOOKAHEAD );
    assert( iLookAhead!=YYNOCODE );
    assert( iLookAhead < YYNTOKEN );
    i += iLookAhead;
    assert( i<(int)YY_NLOOKAHEAD );
    if( yy_lookahead[i]!=iLookAhead ){
#ifdef YYFALLBACK
      YYCODETYPE iFallback;            /* Fallback token */
      assert( iLookAhead<sizeof(yyFallback)/sizeof(yyFallback[0]) );
      iFallback = yyFallback[iLookAhead];
      if( iFallback!=0 ){
#ifndef NDEBUG
        if( yyTraceFILE ){
          fprintf(yyTraceFILE, "%sFALLBACK %s => %s\n",
             yyTracePrompt, yyTokenName[iLookAhead], yyTokenName[iFallback]);
        }
#endif
        assert( yyFallback[iFallback]==0 ); /* Fallback loop must terminate */
        iLookAhead = iFallback;
        continue;
      }
#endif
#ifdef YYWILDCARD
      {
        int j = i - iLookAhead + YYWILDCARD;
        assert( j<(int)(sizeof(yy_lookahead)/sizeof(yy_lookahead[0])) );
        if( yy_lookahead[j]==YYWILDCARD && iLookAhead>0 ){
#ifndef NDEBUG
          if( yyTraceFILE ){
            fprintf(yyTraceFILE, "%sWILDCARD %s => %s\n",
               yyTracePrompt, yyTokenName[iLookAhead],
               yyTokenName[YYWILDCARD]);
          }
#endif /* NDEBUG */
          return yy_action[j];
        }
      }
#endif /* YYWILDCARD */
      return yy_default[stateno];
    }else{
      assert( i>=0 && i<(int)(sizeof(yy_action)/sizeof(yy_action[0])) );
      return yy_action[i];
    }
  }while(1);
}

/*
** Find the appropriate action for a parser given the non-terminal
** look-ahead token iLookAhead.
*/
static YYACTIONTYPE yy_find_reduce_action(
  YYACTIONTYPE stateno,     /* Current state number */
  YYCODETYPE iLookAhead     /* The look-ahead token */
){
  int i;
#ifdef YYERRORSYMBOL
  if( stateno>YY_REDUCE_COUNT ){
    return yy_default[stateno];
  }
#else
  assert( stateno<=YY_REDUCE_COUNT );
#endif
  i = yy_reduce_ofst[stateno];
  assert( iLookAhead!=YYNOCODE );
  i += iLookAhead;
#ifdef YYERRORSYMBOL
  if( i<0 || i>=YY_ACTTAB_COUNT || yy_lookahead[i]!=iLookAhead ){
    return yy_default[stateno];
  }
#else
  assert( i>=0 && i<YY_ACTTAB_COUNT );
  assert( yy_lookahead[i]==iLookAhead );
#endif
  return yy_action[i];
}

/*
** The following routine is called if the stack overflows.
*/
static void yyStackOverflow(yyParser *yypParser){
   pik_parserARG_FETCH
   pik_parserCTX_FETCH
#ifndef NDEBUG
   if( yyTraceFILE ){
     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 501 "pikchr.y"

  pik_error(p, 0, "parser stack overflow");
#line 1910 "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
*/
#ifndef NDEBUG
static void yyTraceShift(yyParser *yypParser, int yyNewState, const char *zTag){
  if( yyTraceFILE ){
    if( yyNewState<YYNSTATE ){
      fprintf(yyTraceFILE,"%s%s '%s', go to state %d\n",
         yyTracePrompt, zTag, yyTokenName[yypParser->yytos->major],
         yyNewState);
    }else{
      fprintf(yyTraceFILE,"%s%s '%s', pending reduce %d\n",
         yyTracePrompt, zTag, yyTokenName[yypParser->yytos->major],
         yyNewState - YY_MIN_REDUCE);
    }
  }
}
#else
# define yyTraceShift(X,Y,Z)
#endif

/*
** Perform a shift action.
*/
static void yy_shift(
  yyParser *yypParser,          /* The parser to be shifted */
  YYACTIONTYPE yyNewState,      /* The new state to shift in */
  YYCODETYPE yyMajor,           /* The major token to shift in */
  pik_parserTOKENTYPE yyMinor        /* The minor token to shift in */
){
  yyStackEntry *yytos;
  yypParser->yytos++;
#ifdef YYTRACKMAXSTACKDEPTH
  if( (int)(yypParser->yytos - yypParser->yystack)>yypParser->yyhwm ){
    yypParser->yyhwm++;
    assert( yypParser->yyhwm == (int)(yypParser->yytos - yypParser->yystack) );
  }
#endif
#if YYSTACKDEPTH>0 
  if( yypParser->yytos>yypParser->yystackEnd ){
    yypParser->yytos--;
    yyStackOverflow(yypParser);
    return;
  }
#else
  if( yypParser->yytos>=&yypParser->yystack[yypParser->yystksz] ){
    if( yyGrowStack(yypParser) ){
      yypParser->yytos--;
      yyStackOverflow(yypParser);
      return;
    }
  }
#endif
  if( yyNewState > YY_MAX_SHIFT ){
    yyNewState += YY_MIN_REDUCE - YY_MIN_SHIFTREDUCE;
  }
  yytos = yypParser->yytos;
  yytos->stateno = yyNewState;
  yytos->major = yyMajor;
  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[] = {
   117,  /* (0) document ::= element_list */
    95,  /* (1) element_list ::= element */
    95,  /* (2) element_list ::= element_list EOL element */
    96,  /* (3) element ::= */
    96,  /* (4) element ::= direction */
    96,  /* (5) element ::= lvalue ASSIGN rvalue */
    96,  /* (6) element ::= PLACENAME COLON unnamed_element */
    96,  /* (7) element ::= PLACENAME COLON position */
    96,  /* (8) element ::= unnamed_element */
    96,  /* (9) element ::= print prlist */
    96,  /* (10) element ::= ASSERT LP expr EQ expr RP */
    96,  /* (11) element ::= ASSERT LP position EQ position RP */
   112,  /* (12) rvalue ::= PLACENAME */
   120,  /* (13) pritem ::= FILL */
   120,  /* (14) pritem ::= COLOR */
   120,  /* (15) pritem ::= THICKNESS */
   120,  /* (16) pritem ::= rvalue */
   120,  /* (17) pritem ::= STRING */
   121,  /* (18) prsep ::= COMMA */
    97,  /* (19) unnamed_element ::= basetype attribute_list */
    98,  /* (20) basetype ::= CLASSNAME */
    98,  /* (21) basetype ::= STRING textposition */
    98,  /* (22) basetype ::= LB savelist element_list RB */
   123,  /* (23) savelist ::= */
   115,  /* (24) relexpr ::= expr */
   115,  /* (25) relexpr ::= expr PERCENT */
   116,  /* (26) optrelexpr ::= */
   122,  /* (27) attribute_list ::= relexpr alist */
   125,  /* (28) attribute ::= numproperty relexpr */
   125,  /* (29) attribute ::= dashproperty expr */
   125,  /* (30) attribute ::= dashproperty */
   125,  /* (31) attribute ::= colorproperty rvalue */
   125,  /* (32) attribute ::= go direction optrelexpr */
   125,  /* (33) attribute ::= go direction even position */
   125,  /* (34) attribute ::= CLOSE */
   125,  /* (35) attribute ::= CHOP */
   125,  /* (36) attribute ::= FROM position */
   125,  /* (37) attribute ::= TO position */
   125,  /* (38) attribute ::= THEN */
   125,  /* (39) attribute ::= THEN optrelexpr HEADING expr */
   125,  /* (40) attribute ::= THEN optrelexpr EDGEPT */
   125,  /* (41) attribute ::= GO optrelexpr HEADING expr */
   125,  /* (42) attribute ::= GO optrelexpr EDGEPT */
   125,  /* (43) attribute ::= AT position */
   125,  /* (44) attribute ::= SAME */
   125,  /* (45) attribute ::= SAME AS object */
   125,  /* (46) attribute ::= STRING textposition */
   125,  /* (47) attribute ::= FIT */
   125,  /* (48) attribute ::= BEHIND object */
   128,  /* (49) withclause ::= DOT_E edge AT position */
   128,  /* (50) withclause ::= edge AT position */
   100,  /* (51) numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
   127,  /* (52) boolproperty ::= CW */
   127,  /* (53) boolproperty ::= CCW */
   127,  /* (54) boolproperty ::= LARROW */
   127,  /* (55) boolproperty ::= RARROW */
   127,  /* (56) boolproperty ::= LRARROW */
   127,  /* (57) boolproperty ::= INVIS */
   127,  /* (58) boolproperty ::= THICK */
   127,  /* (59) boolproperty ::= THIN */
   111,  /* (60) textposition ::= */
   111,  /* (61) textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
   106,  /* (62) position ::= expr COMMA expr */
   106,  /* (63) position ::= place PLUS expr COMMA expr */
   106,  /* (64) position ::= place MINUS expr COMMA expr */
   106,  /* (65) position ::= place PLUS LP expr COMMA expr RP */
   106,  /* (66) position ::= place MINUS LP expr COMMA expr RP */
   106,  /* (67) position ::= LP position COMMA position RP */
   106,  /* (68) position ::= LP position RP */
   106,  /* (69) position ::= expr between position AND position */
   106,  /* (70) position ::= expr LT position COMMA position GT */
   106,  /* (71) position ::= expr ABOVE position */
   106,  /* (72) position ::= expr BELOW position */
   106,  /* (73) position ::= expr LEFT OF position */
   106,  /* (74) position ::= expr RIGHT OF position */
   106,  /* (75) position ::= expr ON HEADING EDGEPT OF position */
   106,  /* (76) position ::= expr HEADING EDGEPT OF position */
   106,  /* (77) position ::= expr EDGEPT OF position */
   106,  /* (78) position ::= expr ON HEADING expr FROM position */
   106,  /* (79) position ::= expr HEADING expr FROM position */
   107,  /* (80) place ::= edge OF object */
   130,  /* (81) place2 ::= object */
   130,  /* (82) place2 ::= object DOT_E edge */
   130,  /* (83) place2 ::= NTH VERTEX OF object */
   108,  /* (84) object ::= nth */
   108,  /* (85) object ::= nth OF|IN object */
   109,  /* (86) objectname ::= PLACENAME */
   109,  /* (87) objectname ::= objectname DOT_U PLACENAME */
   110,  /* (88) nth ::= NTH CLASSNAME */
   110,  /* (89) nth ::= NTH LAST CLASSNAME */
   110,  /* (90) nth ::= LAST CLASSNAME */
   110,  /* (91) nth ::= LAST */
   110,  /* (92) nth ::= NTH LB RB */
   110,  /* (93) nth ::= NTH LAST LB RB */
   110,  /* (94) nth ::= LAST LB RB */
    99,  /* (95) expr ::= expr PLUS expr */
    99,  /* (96) expr ::= expr MINUS expr */
    99,  /* (97) expr ::= expr STAR expr */
    99,  /* (98) expr ::= expr SLASH expr */
    99,  /* (99) expr ::= MINUS expr */
    99,  /* (100) expr ::= PLUS expr */
    99,  /* (101) expr ::= LP expr RP */
    99,  /* (102) expr ::= LP FILL|COLOR|THICKNESS RP */
    99,  /* (103) expr ::= NUMBER */
    99,  /* (104) expr ::= ID */
    99,  /* (105) expr ::= FUNC1 LP expr RP */
    99,  /* (106) expr ::= FUNC2 LP expr COMMA expr RP */
    99,  /* (107) expr ::= DIST LP position COMMA position RP */
    99,  /* (108) expr ::= place2 DOT_XY X */
    99,  /* (109) expr ::= place2 DOT_XY Y */
    99,  /* (110) expr ::= object DOT_L numproperty */
    99,  /* (111) expr ::= object DOT_L dashproperty */
    99,  /* (112) expr ::= object DOT_L colorproperty */
   113,  /* (113) lvalue ::= ID */
   113,  /* (114) lvalue ::= FILL */
   113,  /* (115) lvalue ::= COLOR */
   113,  /* (116) lvalue ::= THICKNESS */
   112,  /* (117) rvalue ::= expr */
   118,  /* (118) print ::= PRINT */
   119,  /* (119) prlist ::= pritem */
   119,  /* (120) prlist ::= prlist prsep pritem */
   102,  /* (121) direction ::= UP */
   102,  /* (122) direction ::= DOWN */
   102,  /* (123) direction ::= LEFT */
   102,  /* (124) direction ::= RIGHT */
   116,  /* (125) optrelexpr ::= relexpr */
   122,  /* (126) attribute_list ::= alist */
   124,  /* (127) alist ::= */
   124,  /* (128) alist ::= alist attribute */
   125,  /* (129) attribute ::= boolproperty */
   125,  /* (130) attribute ::= WITH withclause */
   126,  /* (131) go ::= GO */
   126,  /* (132) go ::= */
   114,  /* (133) even ::= UNTIL EVEN WITH */
   114,  /* (134) even ::= EVEN WITH */
   103,  /* (135) dashproperty ::= DOTTED */
   103,  /* (136) dashproperty ::= DASHED */
   104,  /* (137) colorproperty ::= FILL */
   104,  /* (138) colorproperty ::= COLOR */
   106,  /* (139) position ::= place */
   129,  /* (140) between ::= WAY BETWEEN */
   129,  /* (141) between ::= BETWEEN */
   129,  /* (142) between ::= OF THE WAY BETWEEN */
   107,  /* (143) place ::= place2 */
   101,  /* (144) edge ::= CENTER */
   101,  /* (145) edge ::= EDGEPT */
   101,  /* (146) edge ::= TOP */
   101,  /* (147) edge ::= BOTTOM */
   101,  /* (148) edge ::= START */
   101,  /* (149) edge ::= END */
   101,  /* (150) edge ::= RIGHT */
   101,  /* (151) edge ::= LEFT */
   108,  /* (152) object ::= objectname */
};

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

static void yy_accept(yyParser*);  /* Forward Declaration */

/*
** Perform a reduce action and the shift that must immediately
** follow the reduce.
**
** The yyLookahead and yyLookaheadToken parameters provide reduce actions
** access to the lookahead token (if any).  The yyLookahead will be YYNOCODE
** if the lookahead token has already been consumed.  As this procedure is
** only called from one place, optimizing compilers will in-line it, which
** means that the extra parameters have no performance impact.
*/
static YYACTIONTYPE yy_reduce(
  yyParser *yypParser,         /* The parser */
  unsigned int yyruleno,       /* Number of the rule by which to reduce */
  int yyLookahead,             /* Lookahead token, or YYNOCODE if none */
  pik_parserTOKENTYPE yyLookaheadToken  /* Value of the lookahead token */
  pik_parserCTX_PDECL                   /* %extra_context */
){
  int yygoto;                     /* The next state */
  YYACTIONTYPE yyact;             /* The next action */
  yyStackEntry *yymsp;            /* The top of the parser's stack */
  int yysize;                     /* Amount to pop the stack */
  pik_parserARG_FETCH
  (void)yyLookahead;
  (void)yyLookaheadToken;
  yymsp = yypParser->yytos;
  assert( yyruleno<(int)(sizeof(yyRuleName)/sizeof(yyRuleName[0])) );
#ifndef NDEBUG
  if( yyTraceFILE ){
    yysize = yyRuleInfoNRhs[yyruleno];
    if( yysize ){
      fprintf(yyTraceFILE, "%sReduce %d [%s]%s, pop back to state %d.\n",
        yyTracePrompt,
        yyruleno, yyRuleName[yyruleno],
        yyruleno<YYNRULE_WITH_ACTION ? "" : " without external action",
        yymsp[yysize].stateno);
    }else{
      fprintf(yyTraceFILE, "%sReduce %d [%s]%s.\n",
        yyTracePrompt, yyruleno, yyRuleName[yyruleno],
        yyruleno<YYNRULE_WITH_ACTION ? "" : " without external action");
    }
  }
#endif /* NDEBUG */

  /* Check that the stack is large enough to grow by a single entry
  ** if the RHS of the rule is empty.  This ensures that there is room
  ** enough on the stack to push the LHS value */
  if( yyRuleInfoNRhs[yyruleno]==0 ){
#ifdef YYTRACKMAXSTACKDEPTH
    if( (int)(yypParser->yytos - yypParser->yystack)>yypParser->yyhwm ){
      yypParser->yyhwm++;
      assert( yypParser->yyhwm == (int)(yypParser->yytos - yypParser->yystack));
    }
#endif
#if YYSTACKDEPTH>0 
    if( yypParser->yytos>=yypParser->yystackEnd ){
      yyStackOverflow(yypParser);
      /* The call to yyStackOverflow() above pops the stack until it is
      ** empty, causing the main parser loop to exit.  So the return value
      ** is never used and does not matter. */
      return 0;
    }
#else
    if( yypParser->yytos>=&yypParser->yystack[yypParser->yystksz-1] ){
      if( yyGrowStack(yypParser) ){
        yyStackOverflow(yypParser);
        /* The call to yyStackOverflow() above pops the stack until it is
        ** empty, causing the main parser loop to exit.  So the return value
        ** is never used and does not matter. */
        return 0;
      }
      yymsp = yypParser->yytos;
    }
#endif
  }

  switch( yyruleno ){
  /* Beginning here are the reduction cases.  A typical example
  ** follows:
  **   case 0:
  **  #line <lineno> <grammarfile>
  **     { ... }           // User supplied code
  **  #line <lineno> <thisfile>
  **     break;
  */
/********** Begin reduce actions **********************************************/
        YYMINORTYPE yylhsminor;
      case 0: /* document ::= element_list */
#line 505 "pikchr.y"
{pik_render(p,yymsp[0].minor.yy56);}
#line 2386 "pikchr.c"
        break;
      case 1: /* element_list ::= element */
#line 508 "pikchr.y"
{ yylhsminor.yy56 = pik_elist_append(p,0,yymsp[0].minor.yy226); }
#line 2391 "pikchr.c"
  yymsp[0].minor.yy56 = yylhsminor.yy56;
        break;
      case 2: /* element_list ::= element_list EOL element */
#line 510 "pikchr.y"
{ yylhsminor.yy56 = pik_elist_append(p,yymsp[-2].minor.yy56,yymsp[0].minor.yy226); }
#line 2397 "pikchr.c"
  yymsp[-2].minor.yy56 = yylhsminor.yy56;
        break;
      case 3: /* element ::= */
#line 513 "pikchr.y"
{ yymsp[1].minor.yy226 = 0; }
#line 2403 "pikchr.c"
        break;
      case 4: /* element ::= direction */
#line 514 "pikchr.y"
{ pik_set_direction(p,yymsp[0].minor.yy0.eCode);  yylhsminor.yy226=0; }
#line 2408 "pikchr.c"
  yymsp[0].minor.yy226 = yylhsminor.yy226;
        break;
      case 5: /* element ::= lvalue ASSIGN rvalue */
#line 515 "pikchr.y"
{pik_set_var(p,&yymsp[-2].minor.yy0,yymsp[0].minor.yy257,&yymsp[-1].minor.yy0); yylhsminor.yy226=0;}
#line 2414 "pikchr.c"
  yymsp[-2].minor.yy226 = yylhsminor.yy226;
        break;
      case 6: /* element ::= PLACENAME COLON unnamed_element */
#line 517 "pikchr.y"
{ yylhsminor.yy226 = yymsp[0].minor.yy226;  pik_elem_setname(p,yymsp[0].minor.yy226,&yymsp[-2].minor.yy0); }
#line 2420 "pikchr.c"
  yymsp[-2].minor.yy226 = yylhsminor.yy226;
        break;
      case 7: /* element ::= PLACENAME COLON position */
#line 519 "pikchr.y"
{ yylhsminor.yy226 = pik_elem_new(p,0,0,0);
                 if(yylhsminor.yy226){ yylhsminor.yy226->ptAt = yymsp[0].minor.yy175; pik_elem_setname(p,yylhsminor.yy226,&yymsp[-2].minor.yy0); }}
#line 2427 "pikchr.c"
  yymsp[-2].minor.yy226 = yylhsminor.yy226;
        break;
      case 8: /* element ::= unnamed_element */
#line 521 "pikchr.y"
{yylhsminor.yy226 = yymsp[0].minor.yy226;}
#line 2433 "pikchr.c"
  yymsp[0].minor.yy226 = yylhsminor.yy226;
        break;
      case 9: /* element ::= print prlist */
#line 522 "pikchr.y"
{pik_append(p,"<br>\n",5); yymsp[-1].minor.yy226=0;}
#line 2439 "pikchr.c"
        break;
      case 10: /* element ::= ASSERT LP expr EQ expr RP */
#line 527 "pikchr.y"
{yymsp[-5].minor.yy226=pik_assert(p,yymsp[-3].minor.yy257,&yymsp[-2].minor.yy0,yymsp[-1].minor.yy257);}
#line 2444 "pikchr.c"
        break;
      case 11: /* element ::= ASSERT LP position EQ position RP */
#line 529 "pikchr.y"
{yymsp[-5].minor.yy226=pik_position_assert(p,&yymsp[-3].minor.yy175,&yymsp[-2].minor.yy0,&yymsp[-1].minor.yy175);}
#line 2449 "pikchr.c"
        break;
      case 12: /* rvalue ::= PLACENAME */
#line 540 "pikchr.y"
{yylhsminor.yy257 = pik_lookup_color(p,&yymsp[0].minor.yy0);}
#line 2454 "pikchr.c"
  yymsp[0].minor.yy257 = yylhsminor.yy257;
        break;
      case 13: /* pritem ::= FILL */
      case 14: /* pritem ::= COLOR */ yytestcase(yyruleno==14);
      case 15: /* pritem ::= THICKNESS */ yytestcase(yyruleno==15);
#line 545 "pikchr.y"
{pik_append_num(p,"",pik_value(p,yymsp[0].minor.yy0.z,yymsp[0].minor.yy0.n,0));}
#line 2462 "pikchr.c"
        break;
      case 16: /* pritem ::= rvalue */
#line 548 "pikchr.y"
{pik_append_num(p,"",yymsp[0].minor.yy257);}
#line 2467 "pikchr.c"
        break;
      case 17: /* pritem ::= STRING */
#line 549 "pikchr.y"
{pik_append_text(p,yymsp[0].minor.yy0.z+1,yymsp[0].minor.yy0.n-2,0);}
#line 2472 "pikchr.c"
        break;
      case 18: /* prsep ::= COMMA */
#line 550 "pikchr.y"
{pik_append(p, " ", 1);}
#line 2477 "pikchr.c"
        break;
      case 19: /* unnamed_element ::= basetype attribute_list */
#line 553 "pikchr.y"
{yylhsminor.yy226 = yymsp[-1].minor.yy226; pik_after_adding_attributes(p,yylhsminor.yy226);}
#line 2482 "pikchr.c"
  yymsp[-1].minor.yy226 = yylhsminor.yy226;
        break;
      case 20: /* basetype ::= CLASSNAME */
#line 555 "pikchr.y"
{yylhsminor.yy226 = pik_elem_new(p,&yymsp[0].minor.yy0,0,0); }
#line 2488 "pikchr.c"
  yymsp[0].minor.yy226 = yylhsminor.yy226;
        break;
      case 21: /* basetype ::= STRING textposition */
#line 557 "pikchr.y"
{yymsp[-1].minor.yy0.eCode = yymsp[0].minor.yy116; yylhsminor.yy226 = pik_elem_new(p,0,&yymsp[-1].minor.yy0,0); }
#line 2494 "pikchr.c"
  yymsp[-1].minor.yy226 = yylhsminor.yy226;
        break;
      case 22: /* basetype ::= LB savelist element_list RB */
#line 559 "pikchr.y"
{ p->list = yymsp[-2].minor.yy56; yymsp[-3].minor.yy226 = pik_elem_new(p,0,0,yymsp[-1].minor.yy56); if(yymsp[-3].minor.yy226) yymsp[-3].minor.yy226->errTok = yymsp[0].minor.yy0; }
#line 2500 "pikchr.c"
        break;
      case 23: /* savelist ::= */
#line 564 "pikchr.y"
{yymsp[1].minor.yy56 = p->list; p->list = 0;}
#line 2505 "pikchr.c"
        break;
      case 24: /* relexpr ::= expr */
#line 571 "pikchr.y"
{yylhsminor.yy164.rAbs = yymsp[0].minor.yy257; yylhsminor.yy164.rRel = 0;}
#line 2510 "pikchr.c"
  yymsp[0].minor.yy164 = yylhsminor.yy164;
        break;
      case 25: /* relexpr ::= expr PERCENT */
#line 572 "pikchr.y"
{yylhsminor.yy164.rAbs = 0; yylhsminor.yy164.rRel = yymsp[-1].minor.yy257/100;}
#line 2516 "pikchr.c"
  yymsp[-1].minor.yy164 = yylhsminor.yy164;
        break;
      case 26: /* optrelexpr ::= */
#line 574 "pikchr.y"
{yymsp[1].minor.yy164.rAbs = 0; yymsp[1].minor.yy164.rRel = 1.0;}
#line 2522 "pikchr.c"
        break;
      case 27: /* attribute_list ::= relexpr alist */
#line 576 "pikchr.y"
{pik_add_direction(p,0,&yymsp[-1].minor.yy164);}
#line 2527 "pikchr.c"
        break;
      case 28: /* attribute ::= numproperty relexpr */
#line 580 "pikchr.y"
{ pik_set_numprop(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy164); }
#line 2532 "pikchr.c"
        break;
      case 29: /* attribute ::= dashproperty expr */
#line 581 "pikchr.y"
{ pik_set_dashed(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy257); }
#line 2537 "pikchr.c"
        break;
      case 30: /* attribute ::= dashproperty */
#line 582 "pikchr.y"
{ pik_set_dashed(p,&yymsp[0].minor.yy0,0);  }
#line 2542 "pikchr.c"
        break;
      case 31: /* attribute ::= colorproperty rvalue */
#line 583 "pikchr.y"
{ pik_set_clrprop(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy257); }
#line 2547 "pikchr.c"
        break;
      case 32: /* attribute ::= go direction optrelexpr */
#line 584 "pikchr.y"
{ pik_add_direction(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy164);}
#line 2552 "pikchr.c"
        break;
      case 33: /* attribute ::= go direction even position */
#line 585 "pikchr.y"
{pik_evenwith(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy175);}
#line 2557 "pikchr.c"
        break;
      case 34: /* attribute ::= CLOSE */
#line 586 "pikchr.y"
{ pik_close_path(p,&yymsp[0].minor.yy0); }
#line 2562 "pikchr.c"
        break;
      case 35: /* attribute ::= CHOP */
#line 587 "pikchr.y"
{ p->cur->bChop = 1; }
#line 2567 "pikchr.c"
        break;
      case 36: /* attribute ::= FROM position */
#line 588 "pikchr.y"
{ pik_set_from(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy175); }
#line 2572 "pikchr.c"
        break;
      case 37: /* attribute ::= TO position */
#line 589 "pikchr.y"
{ pik_add_to(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy175); }
#line 2577 "pikchr.c"
        break;
      case 38: /* attribute ::= THEN */
#line 590 "pikchr.y"
{ pik_then(p, &yymsp[0].minor.yy0, p->cur); }
#line 2582 "pikchr.c"
        break;
      case 39: /* attribute ::= THEN optrelexpr HEADING expr */
      case 41: /* attribute ::= GO optrelexpr HEADING expr */ yytestcase(yyruleno==41);
#line 592 "pikchr.y"
{pik_move_hdg(p,&yymsp[-2].minor.yy164,&yymsp[-1].minor.yy0,yymsp[0].minor.yy257,0,&yymsp[-3].minor.yy0);}
#line 2588 "pikchr.c"
        break;
      case 40: /* attribute ::= THEN optrelexpr EDGEPT */
      case 42: /* attribute ::= GO optrelexpr EDGEPT */ yytestcase(yyruleno==42);
#line 593 "pikchr.y"
{pik_move_hdg(p,&yymsp[-1].minor.yy164,0,0,&yymsp[0].minor.yy0,&yymsp[-2].minor.yy0);}
#line 2594 "pikchr.c"
        break;
      case 43: /* attribute ::= AT position */
#line 598 "pikchr.y"
{ pik_set_at(p,0,&yymsp[0].minor.yy175,&yymsp[-1].minor.yy0); }
#line 2599 "pikchr.c"
        break;
      case 44: /* attribute ::= SAME */
#line 600 "pikchr.y"
{pik_same(p,0,&yymsp[0].minor.yy0);}
#line 2604 "pikchr.c"
        break;
      case 45: /* attribute ::= SAME AS object */
#line 601 "pikchr.y"
{pik_same(p,yymsp[0].minor.yy226,&yymsp[-2].minor.yy0);}
#line 2609 "pikchr.c"
        break;
      case 46: /* attribute ::= STRING textposition */
#line 602 "pikchr.y"
{pik_add_txt(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy116);}
#line 2614 "pikchr.c"
        break;
      case 47: /* attribute ::= FIT */
#line 603 "pikchr.y"
{pik_size_to_fit(p,&yymsp[0].minor.yy0); }
#line 2619 "pikchr.c"
        break;
      case 48: /* attribute ::= BEHIND object */
#line 604 "pikchr.y"
{pik_behind(p,yymsp[0].minor.yy226);}
#line 2624 "pikchr.c"
        break;
      case 49: /* withclause ::= DOT_E edge AT position */
      case 50: /* withclause ::= edge AT position */ yytestcase(yyruleno==50);
#line 612 "pikchr.y"
{ pik_set_at(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy175,&yymsp[-1].minor.yy0); }
#line 2630 "pikchr.c"
        break;
      case 51: /* numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
#line 616 "pikchr.y"
{yylhsminor.yy0 = yymsp[0].minor.yy0;}
#line 2635 "pikchr.c"
  yymsp[0].minor.yy0 = yylhsminor.yy0;
        break;
      case 52: /* boolproperty ::= CW */
#line 627 "pikchr.y"
{p->cur->cw = 1;}
#line 2641 "pikchr.c"
        break;
      case 53: /* boolproperty ::= CCW */
#line 628 "pikchr.y"
{p->cur->cw = 0;}
#line 2646 "pikchr.c"
        break;
      case 54: /* boolproperty ::= LARROW */
#line 629 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=0; }
#line 2651 "pikchr.c"
        break;
      case 55: /* boolproperty ::= RARROW */
#line 630 "pikchr.y"
{p->cur->larrow=0; p->cur->rarrow=1; }
#line 2656 "pikchr.c"
        break;
      case 56: /* boolproperty ::= LRARROW */
#line 631 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=1; }
#line 2661 "pikchr.c"
        break;
      case 57: /* boolproperty ::= INVIS */
#line 632 "pikchr.y"
{p->cur->sw = 0.0;}
#line 2666 "pikchr.c"
        break;
      case 58: /* boolproperty ::= THICK */
#line 633 "pikchr.y"
{p->cur->sw *= 1.5;}
#line 2671 "pikchr.c"
        break;
      case 59: /* boolproperty ::= THIN */
#line 634 "pikchr.y"
{p->cur->sw *= 0.67;}
#line 2676 "pikchr.c"
        break;
      case 60: /* textposition ::= */
#line 636 "pikchr.y"
{yymsp[1].minor.yy116 = 0;}
#line 2681 "pikchr.c"
        break;
      case 61: /* textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
#line 639 "pikchr.y"
{yylhsminor.yy116 = pik_text_position(yymsp[-1].minor.yy116,&yymsp[0].minor.yy0);}
#line 2686 "pikchr.c"
  yymsp[-1].minor.yy116 = yylhsminor.yy116;
        break;
      case 62: /* position ::= expr COMMA expr */
#line 642 "pikchr.y"
{yylhsminor.yy175.x=yymsp[-2].minor.yy257; yylhsminor.yy175.y=yymsp[0].minor.yy257;}
#line 2692 "pikchr.c"
  yymsp[-2].minor.yy175 = yylhsminor.yy175;
        break;
      case 63: /* position ::= place PLUS expr COMMA expr */
#line 644 "pikchr.y"
{yylhsminor.yy175.x=yymsp[-4].minor.yy175.x+yymsp[-2].minor.yy257; yylhsminor.yy175.y=yymsp[-4].minor.yy175.y+yymsp[0].minor.yy257;}
#line 2698 "pikchr.c"
  yymsp[-4].minor.yy175 = yylhsminor.yy175;
        break;
      case 64: /* position ::= place MINUS expr COMMA expr */
#line 645 "pikchr.y"
{yylhsminor.yy175.x=yymsp[-4].minor.yy175.x-yymsp[-2].minor.yy257; yylhsminor.yy175.y=yymsp[-4].minor.yy175.y-yymsp[0].minor.yy257;}
#line 2704 "pikchr.c"
  yymsp[-4].minor.yy175 = yylhsminor.yy175;
        break;
      case 65: /* position ::= place PLUS LP expr COMMA expr RP */
#line 647 "pikchr.y"
{yylhsminor.yy175.x=yymsp[-6].minor.yy175.x+yymsp[-3].minor.yy257; yylhsminor.yy175.y=yymsp[-6].minor.yy175.y+yymsp[-1].minor.yy257;}
#line 2710 "pikchr.c"
  yymsp[-6].minor.yy175 = yylhsminor.yy175;
        break;
      case 66: /* position ::= place MINUS LP expr COMMA expr RP */
#line 649 "pikchr.y"
{yylhsminor.yy175.x=yymsp[-6].minor.yy175.x-yymsp[-3].minor.yy257; yylhsminor.yy175.y=yymsp[-6].minor.yy175.y-yymsp[-1].minor.yy257;}
#line 2716 "pikchr.c"
  yymsp[-6].minor.yy175 = yylhsminor.yy175;
        break;
      case 67: /* position ::= LP position COMMA position RP */
#line 650 "pikchr.y"
{yymsp[-4].minor.yy175.x=yymsp[-3].minor.yy175.x; yymsp[-4].minor.yy175.y=yymsp[-1].minor.yy175.y;}
#line 2722 "pikchr.c"
        break;
      case 68: /* position ::= LP position RP */
#line 651 "pikchr.y"
{yymsp[-2].minor.yy175=yymsp[-1].minor.yy175;}
#line 2727 "pikchr.c"
        break;
      case 69: /* position ::= expr between position AND position */
#line 653 "pikchr.y"
{yylhsminor.yy175 = pik_position_between(yymsp[-4].minor.yy257,yymsp[-2].minor.yy175,yymsp[0].minor.yy175);}
#line 2732 "pikchr.c"
  yymsp[-4].minor.yy175 = yylhsminor.yy175;
        break;
      case 70: /* position ::= expr LT position COMMA position GT */
#line 655 "pikchr.y"
{yylhsminor.yy175 = pik_position_between(yymsp[-5].minor.yy257,yymsp[-3].minor.yy175,yymsp[-1].minor.yy175);}
#line 2738 "pikchr.c"
  yymsp[-5].minor.yy175 = yylhsminor.yy175;
        break;
      case 71: /* position ::= expr ABOVE position */
#line 656 "pikchr.y"
{yylhsminor.yy175=yymsp[0].minor.yy175; yylhsminor.yy175.y += yymsp[-2].minor.yy257;}
#line 2744 "pikchr.c"
  yymsp[-2].minor.yy175 = yylhsminor.yy175;
        break;
      case 72: /* position ::= expr BELOW position */
#line 657 "pikchr.y"
{yylhsminor.yy175=yymsp[0].minor.yy175; yylhsminor.yy175.y -= yymsp[-2].minor.yy257;}
#line 2750 "pikchr.c"
  yymsp[-2].minor.yy175 = yylhsminor.yy175;
        break;
      case 73: /* position ::= expr LEFT OF position */
#line 658 "pikchr.y"
{yylhsminor.yy175=yymsp[0].minor.yy175; yylhsminor.yy175.x -= yymsp[-3].minor.yy257;}
#line 2756 "pikchr.c"
  yymsp[-3].minor.yy175 = yylhsminor.yy175;
        break;
      case 74: /* position ::= expr RIGHT OF position */
#line 659 "pikchr.y"
{yylhsminor.yy175=yymsp[0].minor.yy175; yylhsminor.yy175.x += yymsp[-3].minor.yy257;}
#line 2762 "pikchr.c"
  yymsp[-3].minor.yy175 = yylhsminor.yy175;
        break;
      case 75: /* position ::= expr ON HEADING EDGEPT OF position */
#line 661 "pikchr.y"
{yylhsminor.yy175 = pik_position_at_hdg(yymsp[-5].minor.yy257,&yymsp[-2].minor.yy0,yymsp[0].minor.yy175);}
#line 2768 "pikchr.c"
  yymsp[-5].minor.yy175 = yylhsminor.yy175;
        break;
      case 76: /* position ::= expr HEADING EDGEPT OF position */
#line 663 "pikchr.y"
{yylhsminor.yy175 = pik_position_at_hdg(yymsp[-4].minor.yy257,&yymsp[-2].minor.yy0,yymsp[0].minor.yy175);}
#line 2774 "pikchr.c"
  yymsp[-4].minor.yy175 = yylhsminor.yy175;
        break;
      case 77: /* position ::= expr EDGEPT OF position */
#line 665 "pikchr.y"
{yylhsminor.yy175 = pik_position_at_hdg(yymsp[-3].minor.yy257,&yymsp[-2].minor.yy0,yymsp[0].minor.yy175);}
#line 2780 "pikchr.c"
  yymsp[-3].minor.yy175 = yylhsminor.yy175;
        break;
      case 78: /* position ::= expr ON HEADING expr FROM position */
#line 667 "pikchr.y"
{yylhsminor.yy175 = pik_position_at_angle(yymsp[-5].minor.yy257,yymsp[-2].minor.yy257,yymsp[0].minor.yy175);}
#line 2786 "pikchr.c"
  yymsp[-5].minor.yy175 = yylhsminor.yy175;
        break;
      case 79: /* position ::= expr HEADING expr FROM position */
#line 669 "pikchr.y"
{yylhsminor.yy175 = pik_position_at_angle(yymsp[-4].minor.yy257,yymsp[-2].minor.yy257,yymsp[0].minor.yy175);}
#line 2792 "pikchr.c"
  yymsp[-4].minor.yy175 = yylhsminor.yy175;
        break;
      case 80: /* place ::= edge OF object */
#line 681 "pikchr.y"
{yylhsminor.yy175 = pik_place_of_elem(p,yymsp[0].minor.yy226,&yymsp[-2].minor.yy0);}
#line 2798 "pikchr.c"
  yymsp[-2].minor.yy175 = yylhsminor.yy175;
        break;
      case 81: /* place2 ::= object */
#line 682 "pikchr.y"
{yylhsminor.yy175 = pik_place_of_elem(p,yymsp[0].minor.yy226,0);}
#line 2804 "pikchr.c"
  yymsp[0].minor.yy175 = yylhsminor.yy175;
        break;
      case 82: /* place2 ::= object DOT_E edge */
#line 683 "pikchr.y"
{yylhsminor.yy175 = pik_place_of_elem(p,yymsp[-2].minor.yy226,&yymsp[0].minor.yy0);}
#line 2810 "pikchr.c"
  yymsp[-2].minor.yy175 = yylhsminor.yy175;
        break;
      case 83: /* place2 ::= NTH VERTEX OF object */
#line 684 "pikchr.y"
{yylhsminor.yy175 = pik_nth_vertex(p,&yymsp[-3].minor.yy0,&yymsp[-2].minor.yy0,yymsp[0].minor.yy226);}
#line 2816 "pikchr.c"
  yymsp[-3].minor.yy175 = yylhsminor.yy175;
        break;
      case 84: /* object ::= nth */
#line 696 "pikchr.y"
{yylhsminor.yy226 = pik_find_nth(p,0,&yymsp[0].minor.yy0);}
#line 2822 "pikchr.c"
  yymsp[0].minor.yy226 = yylhsminor.yy226;
        break;
      case 85: /* object ::= nth OF|IN object */
#line 697 "pikchr.y"
{yylhsminor.yy226 = pik_find_nth(p,yymsp[0].minor.yy226,&yymsp[-2].minor.yy0);}
#line 2828 "pikchr.c"
  yymsp[-2].minor.yy226 = yylhsminor.yy226;
        break;
      case 86: /* objectname ::= PLACENAME */
#line 699 "pikchr.y"
{yylhsminor.yy226 = pik_find_byname(p,0,&yymsp[0].minor.yy0);}
#line 2834 "pikchr.c"
  yymsp[0].minor.yy226 = yylhsminor.yy226;
        break;
      case 87: /* objectname ::= objectname DOT_U PLACENAME */
#line 701 "pikchr.y"
{yylhsminor.yy226 = pik_find_byname(p,yymsp[-2].minor.yy226,&yymsp[0].minor.yy0);}
#line 2840 "pikchr.c"
  yymsp[-2].minor.yy226 = yylhsminor.yy226;
        break;
      case 88: /* nth ::= NTH CLASSNAME */
#line 703 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-1].minor.yy0); }
#line 2846 "pikchr.c"
  yymsp[-1].minor.yy0 = yylhsminor.yy0;
        break;
      case 89: /* nth ::= NTH LAST CLASSNAME */
#line 704 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-2].minor.yy0); }
#line 2852 "pikchr.c"
  yymsp[-2].minor.yy0 = yylhsminor.yy0;
        break;
      case 90: /* nth ::= LAST CLASSNAME */
#line 705 "pikchr.y"
{yymsp[-1].minor.yy0=yymsp[0].minor.yy0; yymsp[-1].minor.yy0.eCode = -1;}
#line 2858 "pikchr.c"
        break;
      case 91: /* nth ::= LAST */
#line 706 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -1;}
#line 2863 "pikchr.c"
  yymsp[0].minor.yy0 = yylhsminor.yy0;
        break;
      case 92: /* nth ::= NTH LB RB */
#line 707 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-2].minor.yy0);}
#line 2869 "pikchr.c"
  yymsp[-2].minor.yy0 = yylhsminor.yy0;
        break;
      case 93: /* nth ::= NTH LAST LB RB */
#line 708 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-3].minor.yy0);}
#line 2875 "pikchr.c"
  yymsp[-3].minor.yy0 = yylhsminor.yy0;
        break;
      case 94: /* nth ::= LAST LB RB */
#line 709 "pikchr.y"
{yymsp[-2].minor.yy0=yymsp[-1].minor.yy0; yymsp[-2].minor.yy0.eCode = -1; }
#line 2881 "pikchr.c"
        break;
      case 95: /* expr ::= expr PLUS expr */
#line 711 "pikchr.y"
{yylhsminor.yy257=yymsp[-2].minor.yy257+yymsp[0].minor.yy257;}
#line 2886 "pikchr.c"
  yymsp[-2].minor.yy257 = yylhsminor.yy257;
        break;
      case 96: /* expr ::= expr MINUS expr */
#line 712 "pikchr.y"
{yylhsminor.yy257=yymsp[-2].minor.yy257-yymsp[0].minor.yy257;}
#line 2892 "pikchr.c"
  yymsp[-2].minor.yy257 = yylhsminor.yy257;
        break;
      case 97: /* expr ::= expr STAR expr */
#line 713 "pikchr.y"
{yylhsminor.yy257=yymsp[-2].minor.yy257*yymsp[0].minor.yy257;}
#line 2898 "pikchr.c"
  yymsp[-2].minor.yy257 = yylhsminor.yy257;
        break;
      case 98: /* expr ::= expr SLASH expr */
#line 714 "pikchr.y"
{
  if( yymsp[0].minor.yy257==0.0 ){ pik_error(p, &yymsp[-1].minor.yy0, "division by zero"); yylhsminor.yy257 = 0.0; }
  else{ yylhsminor.yy257 = yymsp[-2].minor.yy257/yymsp[0].minor.yy257; }
}
#line 2907 "pikchr.c"
  yymsp[-2].minor.yy257 = yylhsminor.yy257;
        break;
      case 99: /* expr ::= MINUS expr */
#line 718 "pikchr.y"
{yymsp[-1].minor.yy257=-yymsp[0].minor.yy257;}
#line 2913 "pikchr.c"
        break;
      case 100: /* expr ::= PLUS expr */
#line 719 "pikchr.y"
{yymsp[-1].minor.yy257=yymsp[0].minor.yy257;}
#line 2918 "pikchr.c"
        break;
      case 101: /* expr ::= LP expr RP */
#line 720 "pikchr.y"
{yymsp[-2].minor.yy257=yymsp[-1].minor.yy257;}
#line 2923 "pikchr.c"
        break;
      case 102: /* expr ::= LP FILL|COLOR|THICKNESS RP */
#line 721 "pikchr.y"
{yymsp[-2].minor.yy257=pik_get_var(p,&yymsp[-1].minor.yy0);}
#line 2928 "pikchr.c"
        break;
      case 103: /* expr ::= NUMBER */
#line 722 "pikchr.y"
{yylhsminor.yy257=pik_atof(&yymsp[0].minor.yy0);}
#line 2933 "pikchr.c"
  yymsp[0].minor.yy257 = yylhsminor.yy257;
        break;
      case 104: /* expr ::= ID */
#line 723 "pikchr.y"
{yylhsminor.yy257=pik_get_var(p,&yymsp[0].minor.yy0);}
#line 2939 "pikchr.c"
  yymsp[0].minor.yy257 = yylhsminor.yy257;
        break;
      case 105: /* expr ::= FUNC1 LP expr RP */
#line 724 "pikchr.y"
{yylhsminor.yy257 = pik_func(p,&yymsp[-3].minor.yy0,yymsp[-1].minor.yy257,0.0);}
#line 2945 "pikchr.c"
  yymsp[-3].minor.yy257 = yylhsminor.yy257;
        break;
      case 106: /* expr ::= FUNC2 LP expr COMMA expr RP */
#line 725 "pikchr.y"
{yylhsminor.yy257 = pik_func(p,&yymsp[-5].minor.yy0,yymsp[-3].minor.yy257,yymsp[-1].minor.yy257);}
#line 2951 "pikchr.c"
  yymsp[-5].minor.yy257 = yylhsminor.yy257;
        break;
      case 107: /* expr ::= DIST LP position COMMA position RP */
#line 726 "pikchr.y"
{yymsp[-5].minor.yy257 = pik_dist(&yymsp[-3].minor.yy175,&yymsp[-1].minor.yy175);}
#line 2957 "pikchr.c"
        break;
      case 108: /* expr ::= place2 DOT_XY X */
#line 727 "pikchr.y"
{yylhsminor.yy257 = yymsp[-2].minor.yy175.x;}
#line 2962 "pikchr.c"
  yymsp[-2].minor.yy257 = yylhsminor.yy257;
        break;
      case 109: /* expr ::= place2 DOT_XY Y */
#line 728 "pikchr.y"
{yylhsminor.yy257 = yymsp[-2].minor.yy175.y;}
#line 2968 "pikchr.c"
  yymsp[-2].minor.yy257 = yylhsminor.yy257;
        break;
      case 110: /* expr ::= object DOT_L numproperty */
      case 111: /* expr ::= object DOT_L dashproperty */ yytestcase(yyruleno==111);
      case 112: /* expr ::= object DOT_L colorproperty */ yytestcase(yyruleno==112);
#line 729 "pikchr.y"
{yylhsminor.yy257=pik_property_of(yymsp[-2].minor.yy226,&yymsp[0].minor.yy0);}
#line 2976 "pikchr.c"
  yymsp[-2].minor.yy257 = yylhsminor.yy257;
        break;
      default:
      /* (113) lvalue ::= ID */ yytestcase(yyruleno==113);
      /* (114) lvalue ::= FILL */ yytestcase(yyruleno==114);
      /* (115) lvalue ::= COLOR */ yytestcase(yyruleno==115);
      /* (116) lvalue ::= THICKNESS */ yytestcase(yyruleno==116);
      /* (117) rvalue ::= expr */ yytestcase(yyruleno==117);
      /* (118) print ::= PRINT */ yytestcase(yyruleno==118);
      /* (119) prlist ::= pritem (OPTIMIZED OUT) */ assert(yyruleno!=119);
      /* (120) prlist ::= prlist prsep pritem */ yytestcase(yyruleno==120);
      /* (121) direction ::= UP */ yytestcase(yyruleno==121);
      /* (122) direction ::= DOWN */ yytestcase(yyruleno==122);
      /* (123) direction ::= LEFT */ yytestcase(yyruleno==123);
      /* (124) direction ::= RIGHT */ yytestcase(yyruleno==124);
      /* (125) optrelexpr ::= relexpr (OPTIMIZED OUT) */ assert(yyruleno!=125);
      /* (126) attribute_list ::= alist */ yytestcase(yyruleno==126);
      /* (127) alist ::= */ yytestcase(yyruleno==127);
      /* (128) alist ::= alist attribute */ yytestcase(yyruleno==128);
      /* (129) attribute ::= boolproperty (OPTIMIZED OUT) */ assert(yyruleno!=129);
      /* (130) attribute ::= WITH withclause */ yytestcase(yyruleno==130);
      /* (131) go ::= GO */ yytestcase(yyruleno==131);
      /* (132) go ::= */ yytestcase(yyruleno==132);
      /* (133) even ::= UNTIL EVEN WITH */ yytestcase(yyruleno==133);
      /* (134) even ::= EVEN WITH */ yytestcase(yyruleno==134);
      /* (135) dashproperty ::= DOTTED */ yytestcase(yyruleno==135);
      /* (136) dashproperty ::= DASHED */ yytestcase(yyruleno==136);
      /* (137) colorproperty ::= FILL */ yytestcase(yyruleno==137);
      /* (138) colorproperty ::= COLOR */ yytestcase(yyruleno==138);
      /* (139) position ::= place */ yytestcase(yyruleno==139);
      /* (140) between ::= WAY BETWEEN */ yytestcase(yyruleno==140);
      /* (141) between ::= BETWEEN */ yytestcase(yyruleno==141);
      /* (142) between ::= OF THE WAY BETWEEN */ yytestcase(yyruleno==142);
      /* (143) place ::= place2 */ yytestcase(yyruleno==143);
      /* (144) edge ::= CENTER */ yytestcase(yyruleno==144);
      /* (145) edge ::= EDGEPT */ yytestcase(yyruleno==145);
      /* (146) edge ::= TOP */ yytestcase(yyruleno==146);
      /* (147) edge ::= BOTTOM */ yytestcase(yyruleno==147);
      /* (148) edge ::= START */ yytestcase(yyruleno==148);
      /* (149) edge ::= END */ yytestcase(yyruleno==149);
      /* (150) edge ::= RIGHT */ yytestcase(yyruleno==150);
      /* (151) edge ::= LEFT */ yytestcase(yyruleno==151);
      /* (152) object ::= objectname */ yytestcase(yyruleno==152);
        break;
/********** End reduce actions ************************************************/
  };
  assert( yyruleno<sizeof(yyRuleInfoLhs)/sizeof(yyRuleInfoLhs[0]) );
  yygoto = yyRuleInfoLhs[yyruleno];
  yysize = yyRuleInfoNRhs[yyruleno];
  yyact = yy_find_reduce_action(yymsp[yysize].stateno,(YYCODETYPE)yygoto);

  /* There are no SHIFTREDUCE actions on nonterminals because the table
  ** generator has simplified them to pure REDUCE actions. */
  assert( !(yyact>YY_MAX_SHIFT && yyact<=YY_MAX_SHIFTREDUCE) );

  /* It is not possible for a REDUCE to be followed by an error */
  assert( yyact!=YY_ERROR_ACTION );

  yymsp += yysize+1;
  yypParser->yytos = yymsp;
  yymsp->stateno = (YYACTIONTYPE)yyact;
  yymsp->major = (YYCODETYPE)yygoto;
  yyTraceShift(yypParser, yyact, "... then shift");
  return yyact;
}

/*
** The following code executes when the parse fails
*/
#ifndef YYNOERRORRECOVERY
static void yy_parse_failed(
  yyParser *yypParser           /* The parser */
){
  pik_parserARG_FETCH
  pik_parserCTX_FETCH
#ifndef NDEBUG
  if( yyTraceFILE ){
    fprintf(yyTraceFILE,"%sFail!\n",yyTracePrompt);
  }
#endif
  while( yypParser->yytos>yypParser->yystack ) yy_pop_parser_stack(yypParser);
  /* Here code is inserted which will be executed whenever the
  ** parser fails */
/************ Begin %parse_failure code ***************************************/
/************ End %parse_failure code *****************************************/
  pik_parserARG_STORE /* Suppress warning about unused %extra_argument variable */
  pik_parserCTX_STORE
}
#endif /* YYNOERRORRECOVERY */

/*
** The following code executes when a syntax error first occurs.
*/
static void yy_syntax_error(
  yyParser *yypParser,           /* The parser */
  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 493 "pikchr.y"

  if( TOKEN.z && TOKEN.z[0] ){
    pik_error(p, &TOKEN, "syntax error");
  }else{
    pik_error(p, 0, "syntax error");
  }
  UNUSED_PARAMETER(yymajor);
#line 3087 "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
*/
static void yy_accept(
  yyParser *yypParser           /* The parser */
){
  pik_parserARG_FETCH
  pik_parserCTX_FETCH
#ifndef NDEBUG
  if( yyTraceFILE ){
    fprintf(yyTraceFILE,"%sAccept!\n",yyTracePrompt);
  }
#endif
#ifndef YYNOERRORRECOVERY
  yypParser->yyerrcnt = -1;
#endif
  assert( yypParser->yytos==yypParser->yystack );
  /* Here code is inserted which will be executed whenever the
  ** parser accepts */
/*********** Begin %parse_accept code *****************************************/
/*********** End %parse_accept code *******************************************/
  pik_parserARG_STORE /* Suppress warning about unused %extra_argument variable */
  pik_parserCTX_STORE
}

/* The main parser program.
** The first argument is a pointer to a structure obtained from
** "pik_parserAlloc" which describes the current state of the parser.
** The second argument is the major token number.  The third is
** the minor token.  The fourth optional argument is whatever the
** user wants (and specified in the grammar) and is available for
** use by the action routines.
**
** Inputs:
** <ul>
** <li> A pointer to the parser (an opaque structure.)
** <li> The major token number.
** <li> The minor token number.
** <li> An option argument of a grammar-specified type.
** </ul>
**
** Outputs:
** None.
*/
void pik_parser(
  void *yyp,                   /* The parser */
  int yymajor,                 /* The major token code number */
  pik_parserTOKENTYPE yyminor       /* The value for the token */
  pik_parserARG_PDECL               /* Optional %extra_argument parameter */
){
  YYMINORTYPE yyminorunion;
  YYACTIONTYPE yyact;   /* The parser action. */
#if !defined(YYERRORSYMBOL) && !defined(YYNOERRORRECOVERY)
  int yyendofinput;     /* True if we are at the end of input */
#endif
#ifdef YYERRORSYMBOL
  int yyerrorhit = 0;   /* True if yymajor has invoked an error */
#endif
  yyParser *yypParser = (yyParser*)yyp;  /* The parser */
  pik_parserCTX_FETCH
  pik_parserARG_STORE

  assert( yypParser->yytos!=0 );
#if !defined(YYERRORSYMBOL) && !defined(YYNOERRORRECOVERY)
  yyendofinput = (yymajor==0);
#endif

  yyact = yypParser->yytos->stateno;
#ifndef NDEBUG
  if( yyTraceFILE ){
    if( yyact < YY_MIN_REDUCE ){
      fprintf(yyTraceFILE,"%sInput '%s' in state %d\n",
              yyTracePrompt,yyTokenName[yymajor],yyact);
    }else{
      fprintf(yyTraceFILE,"%sInput '%s' with pending reduce %d\n",
              yyTracePrompt,yyTokenName[yymajor],yyact-YY_MIN_REDUCE);
    }
  }
#endif

  do{
    assert( yyact==yypParser->yytos->stateno );
    yyact = yy_find_shift_action((YYCODETYPE)yymajor,yyact);
    if( yyact >= YY_MIN_REDUCE ){
      yyact = yy_reduce(yypParser,yyact-YY_MIN_REDUCE,yymajor,
                        yyminor pik_parserCTX_PARAM);
    }else if( yyact <= YY_MAX_SHIFTREDUCE ){
      yy_shift(yypParser,yyact,(YYCODETYPE)yymajor,yyminor);
#ifndef YYNOERRORRECOVERY
      yypParser->yyerrcnt--;
#endif
      break;
    }else if( yyact==YY_ACCEPT_ACTION ){
      yypParser->yytos--;
      yy_accept(yypParser);
      return;
    }else{
      assert( yyact == YY_ERROR_ACTION );
      yyminorunion.yy0 = yyminor;
#ifdef YYERRORSYMBOL
      int yymx;
#endif
#ifndef NDEBUG
      if( yyTraceFILE ){
        fprintf(yyTraceFILE,"%sSyntax Error!\n",yyTracePrompt);
      }
#endif
#ifdef YYERRORSYMBOL
      /* A syntax error has occurred.
      ** The response to an error depends upon whether or not the
      ** grammar defines an error token "ERROR".  
      **
      ** This is what we do if the grammar does define ERROR:
      **
      **  * Call the %syntax_error function.
      **
      **  * Begin popping the stack until we enter a state where
      **    it is legal to shift the error symbol, then shift
      **    the error symbol.
      **
      **  * Set the error count to three.
      **
      **  * Begin accepting and shifting new tokens.  No new error
      **    processing will occur until three tokens have been
      **    shifted successfully.
      **
      */
      if( yypParser->yyerrcnt<0 ){
        yy_syntax_error(yypParser,yymajor,yyminor);
      }
      yymx = yypParser->yytos->major;
      if( yymx==YYERRORSYMBOL || yyerrorhit ){
#ifndef NDEBUG
        if( yyTraceFILE ){
          fprintf(yyTraceFILE,"%sDiscard input token %s\n",
             yyTracePrompt,yyTokenName[yymajor]);
        }
#endif
        yy_destructor(yypParser, (YYCODETYPE)yymajor, &yyminorunion);
        yymajor = YYNOCODE;
      }else{
        while( yypParser->yytos >= yypParser->yystack
            && (yyact = yy_find_reduce_action(
                        yypParser->yytos->stateno,
                        YYERRORSYMBOL)) > YY_MAX_SHIFTREDUCE
        ){
          yy_pop_parser_stack(yypParser);
        }
        if( yypParser->yytos < yypParser->yystack || yymajor==0 ){
          yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
          yy_parse_failed(yypParser);
#ifndef YYNOERRORRECOVERY
          yypParser->yyerrcnt = -1;
#endif
          yymajor = YYNOCODE;
        }else if( yymx!=YYERRORSYMBOL ){
          yy_shift(yypParser,yyact,YYERRORSYMBOL,yyminor);
        }
      }
      yypParser->yyerrcnt = 3;
      yyerrorhit = 1;
      if( yymajor==YYNOCODE ) break;
      yyact = yypParser->yytos->stateno;
#elif defined(YYNOERRORRECOVERY)
      /* If the YYNOERRORRECOVERY macro is defined, then do not attempt to
      ** do any kind of error recovery.  Instead, simply invoke the syntax
      ** error routine and continue going as if nothing had happened.
      **
      ** Applications can set this macro (for example inside %include) if
      ** they intend to abandon the parse upon the first syntax error seen.
      */
      yy_syntax_error(yypParser,yymajor, yyminor);
      yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
      break;
#else  /* YYERRORSYMBOL is not defined */
      /* This is what we do if the grammar does not define ERROR:
      **
      **  * Report an error message, and throw away the input token.
      **
      **  * If the input token is $, then fail the parse.
      **
      ** As before, subsequent error messages are suppressed until
      ** three input tokens have been successfully shifted.
      */
      if( yypParser->yyerrcnt<=0 ){
        yy_syntax_error(yypParser,yymajor, yyminor);
      }
      yypParser->yyerrcnt = 3;
      yy_destructor(yypParser,(YYCODETYPE)yymajor,&yyminorunion);
      if( yyendofinput ){
        yy_parse_failed(yypParser);
#ifndef YYNOERRORRECOVERY
        yypParser->yyerrcnt = -1;
#endif
      }
      break;
#endif
    }
  }while( yypParser->yytos>yypParser->yystack );
#ifndef NDEBUG
  if( yyTraceFILE ){
    yyStackEntry *i;
    char cDiv = '[';
    fprintf(yyTraceFILE,"%sReturn. Stack=",yyTracePrompt);
    for(i=&yypParser->yystack[1]; i<=yypParser->yytos; i++){
      fprintf(yyTraceFILE,"%c%s", cDiv, yyTokenName[i->major]);
      cDiv = ' ';
    }
    fprintf(yyTraceFILE,"]\n");
  }
#endif
  return;
}

/*
** Return the fallback token corresponding to canonical token iToken, or
** 0 if iToken has no fallback.
*/
int pik_parserFallback(int iToken){
#ifdef YYFALLBACK
  assert( iToken<(int)(sizeof(yyFallback)/sizeof(yyFallback[0])) );
  return yyFallback[iToken];
#else
  (void)iToken;
  return 0;
#endif
}
#line 734 "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
** of -1.
*/
static const struct {
  const char *zName;  /* Name of the color */
  int val;            /* RGB value */
} aColor[] = {
  { "AliceBlue",                   0xf0f8ff },
  { "AntiqueWhite",                0xfaebd7 },
  { "Aqua",                        0x00ffff },
  { "AquaMarine",                  0x7fffd4 },
  { "Azure",                       0xf0ffff },
  { "Beige",                       0xf5f5dc },
  { "Bisque",                      0xffe4c4 },
  { "Black",                       0x000000 },
  { "BlanchedAlmond",              0xffebcd },
  { "Blue",                        0x0000ff },
  { "BlueViolet",                  0x8a2be2 },
  { "Brown",                       0xa52a2a },
  { "BurlyWood",                   0xdeb887 },
  { "CadetBlue",                   0x5f9ea0 },
  { "Chartreuse",                  0x7fff00 },
  { "Chocolate",                   0xd2691e },
  { "Coral",                       0xff7f50 },
  { "CornFlowerBlue",              0x6495ed },
  { "Cornsilk",                    0xfff8dc },
  { "Crimson",                     0xdc143c },
  { "Cyan",                        0x00ffff },
  { "DarkBlue",                    0x00008b },
  { "DarkCyan",                    0x008b8b },
  { "DarkGoldenRod",               0xb8860b },
  { "DarkGray",                    0xa9a9a9 },
  { "DarkGreen",                   0x006400 },
  { "DarkKhaki",                   0xbdb76b },
  { "DarkMagenta",                 0x8b008b },
  { "DarkOliveGreen",              0x556b2f },
  { "DarkOrange",                  0xff8c00 },
  { "DarkOrchid",                  0x9932cc },
  { "DarkRed",                     0x8b0000 },
  { "DarkSalmon",                  0xe9967a },
  { "DarkSeaGreen",                0x8fbc8f },
  { "DarkSlateBlue",               0x483d8b },
  { "DarkSlateGray",               0x2f4f4f },
  { "DarkTurquoise",               0x00ced1 },
  { "DarkViolet",                  0x9400d3 },
  { "DeepPink",                    0xff1493 },
  { "DeepSkyBlue",                 0x00bfff },
  { "DimGray",                     0x696969 },
  { "DodgerBlue",                  0x1e90ff },
  { "FireBrick",                   0xb22222 },
  { "FloralWhite",                 0xfffaf0 },
  { "ForestGreen",                 0x228b22 },
  { "Fuchsia",                     0xff00ff },
  { "Gainsboro",                   0xdcdcdc },
  { "GhostWhite",                  0xf8f8ff },
  { "Gold",                        0xffd700 },
  { "GoldenRod",                   0xdaa520 },
  { "Gray",                        0x808080 },
  { "Green",                       0x008000 },
  { "GreenYellow",                 0xadff2f },
  { "HoneyDew",                    0xf0fff0 },
  { "HotPink",                     0xff69b4 },
  { "IndianRed",                   0xcd5c5c },
  { "Indigo",                      0x4b0082 },
  { "Ivory",                       0xfffff0 },
  { "Khaki",                       0xf0e68c },
  { "Lavender",                    0xe6e6fa },
  { "LavenderBlush",               0xfff0f5 },
  { "LawnGreen",                   0x7cfc00 },
  { "LemonChiffon",                0xfffacd },
  { "LightBlue",                   0xadd8e6 },
  { "LightCoral",                  0xf08080 },
  { "LightCyan",                   0xe0ffff },
  { "LightGoldenrodYellow",        0xfafad2 },
  { "LightGray",                   0xd3d3d3 },
  { "LightGreen",                  0x90ee90 },
  { "LightPink",                   0xffb6c1 },
  { "LightSalmon",                 0xffa07a },
  { "LightSeaGreen",               0x20b2aa },
  { "LightSkyBlue",                0x87cefa },
  { "LightSlateGray",              0x778899 },
  { "LightSteelBlue",              0xb0c4de },
  { "LightYellow",                 0xffffe0 },
  { "Lime",                        0x00ff00 },
  { "LimeGreen",                   0x32cd32 },
  { "Linen",                       0xfaf0e6 },
  { "Magenta",                     0xff00ff },
  { "Maroon",                      0x800000 },
  { "MediumAquaMarine",            0x66cdaa },
  { "MediumBlue",                  0x0000cd },
  { "MediumOrchid",                0xba55d3 },
  { "MediumPurple",                0x9370d8 },
  { "MediumSeaGreen",              0x3cb371 },
  { "MediumSlateBlue",             0x7b68ee },
  { "MediumSpringGreen",           0x00fa9a },
  { "MediumTurquoise",             0x48d1cc },
  { "MediumVioletRed",             0xc71585 },
  { "MidnightBlue",                0x191970 },
  { "MintCream",                   0xf5fffa },
  { "MistyRose",                   0xffe4e1 },
  { "Moccasin",                    0xffe4b5 },
  { "NavajoWhite",                 0xffdead },
  { "Navy",                        0x000080 },
  { "None",                              -1 },  /* Non-standard addition */
  { "Off",                               -1 },  /* Non-standard addition */
  { "OldLace",                     0xfdf5e6 },
  { "Olive",                       0x808000 },
  { "OliveDrab",                   0x6b8e23 },
  { "Orange",                      0xffa500 },
  { "OrangeRed",                   0xff4500 },
  { "Orchid",                      0xda70d6 },
  { "PaleGoldenRod",               0xeee8aa },
  { "PaleGreen",                   0x98fb98 },
  { "PaleTurquoise",               0xafeeee },
  { "PaleVioletRed",               0xdb7093 },
  { "PapayaWhip",                  0xffefd5 },
  { "PeachPuff",                   0xffdab9 },
  { "Peru",                        0xcd853f },
  { "Pink",                        0xffc0cb },
  { "Plum",                        0xdda0dd },
  { "PowderBlue",                  0xb0e0e6 },
  { "Purple",                      0x800080 },
  { "Red",                         0xff0000 },
  { "RosyBrown",                   0xbc8f8f },
  { "RoyalBlue",                   0x4169e1 },
  { "SaddleBrown",                 0x8b4513 },
  { "Salmon",                      0xfa8072 },
  { "SandyBrown",                  0xf4a460 },
  { "SeaGreen",                    0x2e8b57 },
  { "SeaShell",                    0xfff5ee },
  { "Sienna",                      0xa0522d },
  { "Silver",                      0xc0c0c0 },
  { "SkyBlue",                     0x87ceeb },
  { "SlateBlue",                   0x6a5acd },
  { "SlateGray",                   0x708090 },
  { "Snow",                        0xfffafa },
  { "SpringGreen",                 0x00ff7f },
  { "SteelBlue",                   0x4682b4 },
  { "Tan",                         0xd2b48c },
  { "Teal",                        0x008080 },
  { "Thistle",                     0xd8bfd8 },
  { "Tomato",                      0xff6347 },
  { "Turquoise",                   0x40e0d0 },
  { "Violet",                      0xee82ee },
  { "Wheat",                       0xf5deb3 },
  { "White",                       0xffffff },
  { "WhiteSmoke",                  0xf5f5f5 },
  { "Yellow",                      0xffff00 },
  { "YellowGreen",                 0x9acd32 },
};

/* Built-in variable names.
**
** This array is constant.  When a script changes the value of one of
** these built-ins, a new PVar record is added at the head of
** the Pik.pVar list, which is searched first.  Thus the new PVar entry
** will override this default value.
**
** Units are in inches, except for "color" and "fill" which are 
** interpreted as 24-bit RGB values.
**
** Binary search used.  Must be kept in sorted order.
*/
static const struct { const char *zName; PNum val; } aBuiltin[] = {
  { "arcrad",      0.25  },
  { "arrowhead",   2.0   },
  { "arrowht",     0.08  },
  { "arrowwid",    0.06  },
  { "boxht",       0.5   },
  { "boxrad",      0.0   },
  { "boxwid",      0.75  },
  { "charht",      0.14  },
  { "charwid",     0.08  },
  { "circlerad",   0.25  },
  { "color",       0.0   },
  { "cylht",       0.5   },
  { "cylrad",      0.075 },
  { "cylwid",      0.75  },
  { "dashwid",     0.05  },
  { "dotrad",      0.015 },
  { "ellipseht",   0.5   },
  { "ellipsewid",  0.75  },
  { "fileht",      0.75  },
  { "filerad",     0.15  },
  { "filewid",     0.5   },
  { "fill",        -1.0  },
  { "lineht",      0.5   },
  { "linewid",     0.5   },
  { "movewid",     0.5   },
  { "ovalht",      0.5   },
  { "ovalwid",     1.0   },
  { "scale",       1.0   },
  { "textht",      0.5   },
  { "textwid",     0.75  },
  { "thickness",   0.015 },
};


/* Methods for the "arc" class */
static void arcInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "arcrad",6,0);
  pElem->h = pElem->w;
}
/* Hack: Arcs are here rendered as quadratic Bezier curves rather
** than true arcs.  Multiple reasons: (1) the legacy-PIC parameters
** that control arcs are obscure and I could not figure out what they
** mean based on available documentation.  (2) Arcs are rarely used,
** and so do not seem that important.
*/
static PPoint arcControlPoint(int cw, PPoint f, PPoint t, PNum rScale){
  PPoint m;
  PNum dx, dy;
  m.x = 0.5*(f.x+t.x);
  m.y = 0.5*(f.y+t.y);
  dx = t.x - f.x;
  dy = t.y - f.y;
  if( cw ){
    m.x -= 0.5*rScale*dy;
    m.y += 0.5*rScale*dx;
  }else{
    m.x += 0.5*rScale*dy;
    m.y -= 0.5*rScale*dx;
  }
  return m;
}
static void arcCheck(Pik *p, PElem *pElem){
  PPoint m;
  if( p->nTPath>2 ){
    pik_error(p, &pElem->errTok, "arc geometry error");
    return;
  }
  m = arcControlPoint(pElem->cw, p->aTPath[0], p->aTPath[1], 0.5);
  pik_bbox_add_xy(&pElem->bbox, m.x, m.y);
}
static void arcRender(Pik *p, PElem *pElem){
  PPoint f, m, t;
  if( pElem->nPath<2 ) return;
  if( pElem->sw<=0.0 ) return;
  f = pElem->aPath[0];
  t = pElem->aPath[1];
  m = arcControlPoint(pElem->cw,f,t,1.0);
  if( pElem->larrow ){
    pik_draw_arrowhead(p,&m,&f,pElem);
  }
  if( pElem->rarrow ){
    pik_draw_arrowhead(p,&m,&t,pElem);
  }
  pik_append_xy(p,"<path d=\"M", f.x, f.y);
  pik_append_xy(p,"Q", m.x, m.y);
  pik_append_xy(p," ", t.x, t.y);
  pik_append(p,"\" ",2);
  pik_append_style(p,pElem,0);
  pik_append(p,"\" />\n", -1);

  pik_append_txt(p, pElem, 0);
}


/* Methods for the "arrow" class */
static void arrowInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "linewid",7,0);
  pElem->h = pik_value(p, "lineht",6,0);
  pElem->rad = pik_value(p, "linerad",7,0);
  pElem->fill = -1.0;
  pElem->rarrow = 1;
}

/* Methods for the "box" class */
static void boxInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "boxwid",6,0);
  pElem->h = pik_value(p, "boxht",5,0);
  pElem->rad = pik_value(p, "boxrad",6,0);
}
/* Return offset from the center of the box to the compass point 
** given by parameter cp */
static PPoint boxOffset(Pik *p, PElem *pElem, int cp){
  PPoint pt;
  PNum w2 = 0.5*pElem->w;
  PNum h2 = 0.5*pElem->h;
  PNum rad = pElem->rad;
  PNum rx;
  if( rad<=0.0 ){
    rx = 0.0;
  }else{
    if( rad>w2 ) rad = w2;
    if( rad>h2 ) rad = h2;
    rx = 0.29289321881345252392*rad;
  }
  pt.x = pt.y = 0.0;
  switch( cp ){
    case CP_C:   pt.x = 0.0;      pt.y = 0.0;    break;
    case CP_N:   pt.x = 0.0;      pt.y = h2;     break;
    case CP_NE:  pt.x = w2-rx;    pt.y = h2-rx;  break;
    case CP_E:   pt.x = w2;       pt.y = 0.0;    break;
    case CP_SE:  pt.x = w2-rx;    pt.y = rx-h2;  break;
    case CP_S:   pt.x = 0.0;      pt.y = -h2;    break;
    case CP_SW:  pt.x = rx-w2;    pt.y = rx-h2;  break;
    case CP_W:   pt.x = -w2;      pt.y = 0.0;    break;
    case CP_NW:  pt.x = rx-w2;    pt.y = h2-rx;  break;
  }
  UNUSED_PARAMETER(p);
  return pt;
}
static PPoint boxChop(Pik *p, PElem *pElem, PPoint *pPt){
  PNum dx, dy;
  int cp = CP_C;
  PPoint chop = pElem->ptAt;
  if( pElem->w<=0.0 ) return chop;
  if( pElem->h<=0.0 ) return chop;
  dx = (pPt->x - pElem->ptAt.x)*pElem->h/pElem->w;
  dy = (pPt->y - pElem->ptAt.y);
  if( dx>0.0 ){
    if( dy>=2.414*dx ){
      cp = CP_N;
    }else if( dy>=0.414*dx ){
      cp = CP_NE;
    }else if( dy>=-0.414*dx ){
      cp = CP_E;
    }else if( dy>-2.414*dx ){
      cp = CP_SE;
    }else{
      cp = CP_S;
    }
  }else{
    if( dy>=-2.414*dx ){
      cp = CP_N;
    }else if( dy>=-0.414*dx ){
      cp = CP_NW;
    }else if( dy>=0.414*dx ){
      cp = CP_W;
    }else if( dy>2.414*dx ){
      cp = CP_SW;
    }else{
      cp = CP_S;
    }
  }
  chop = pElem->type->xOffset(p,pElem,cp);
  chop.x += pElem->ptAt.x;
  chop.y += pElem->ptAt.y;
  return chop;
}
static void boxFit(Pik *p, PElem *pElem, PNum w, PNum h){
  if( w>0 ) pElem->w = w;
  if( h>0 ) pElem->h = h;
  UNUSED_PARAMETER(p);
}
static void boxRender(Pik *p, PElem *pElem){
  PNum w2 = 0.5*pElem->w;
  PNum h2 = 0.5*pElem->h;
  PNum rad = pElem->rad;
  PPoint pt = pElem->ptAt;
  if( pElem->sw>0.0 ){
    if( rad<=0.0 ){
      pik_append_xy(p,"<path d=\"M", pt.x-w2,pt.y-h2);
      pik_append_xy(p,"L", pt.x+w2,pt.y-h2);
      pik_append_xy(p,"L", pt.x+w2,pt.y+h2);
      pik_append_xy(p,"L", pt.x-w2,pt.y+h2);
      pik_append(p,"Z\" ",-1);
    }else{
      /*
      **         ----       - y3
      **        /    \
      **       /      \     _ y2
      **      |        |    
      **      |        |    _ y1
      **       \      /
      **        \    /
      **         ----       _ y0
      **
      **      '  '  '  '
      **     x0 x1 x2 x3
      */
      PNum x0,x1,x2,x3,y0,y1,y2,y3;
      if( rad>w2 ) rad = w2;
      if( rad>h2 ) rad = h2;
      x0 = pt.x - w2;
      x1 = x0 + rad;
      x3 = pt.x + w2;
      x2 = x3 - rad;
      y0 = pt.y - h2;
      y1 = y0 + rad;
      y3 = pt.y + h2;
      y2 = y3 - rad;
      pik_append_xy(p,"<path d=\"M", x1, y0);
      if( x2>x1 ) pik_append_xy(p, "L", x2, y0);
      pik_append_arc(p, rad, rad, x3, y1);
      if( y2>y1 ) pik_append_xy(p, "L", x3, y2);
      pik_append_arc(p, rad, rad, x2, y3);
      if( x2>x1 ) pik_append_xy(p, "L", x1, y3);
      pik_append_arc(p, rad, rad, x0, y2);
      if( y2>y1 ) pik_append_xy(p, "L", x0, y1);
      pik_append_arc(p, rad, rad, x1, y0);
      pik_append(p,"Z\" ",-1);
    }
    pik_append_style(p,pElem,1);
    pik_append(p,"\" />\n", -1);
  }
  pik_append_txt(p, pElem, 0);
}

/* Methods for the "circle" class */
static void circleInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "circlerad",9,0)*2;
  pElem->h = pElem->w;
  pElem->rad = 0.5*pElem->w;
}
static void circleNumProp(Pik *p, PElem *pElem, PToken *pId){
  /* For a circle, the width must equal the height and both must
  ** be twice the radius.  Enforce those constraints. */
  switch( pId->eType ){
    case T_RADIUS:
      pElem->w = pElem->h = 2.0*pElem->rad;
      break;
    case T_WIDTH:
      pElem->h = pElem->w;
      pElem->rad = 0.5*pElem->w;
      break;
    case T_HEIGHT:
      pElem->w = pElem->h;
      pElem->rad = 0.5*pElem->w;
      break;
  }
  UNUSED_PARAMETER(p);
}
static PPoint circleChop(Pik *p, 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;
  UNUSED_PARAMETER(p);
  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;
  }
  UNUSED_PARAMETER(p);
}

static void circleRender(Pik *p, PElem *pElem){
  PNum r = pElem->rad;
  PPoint pt = pElem->ptAt;
  if( pElem->sw>0.0 ){
    pik_append_x(p,"<circle cx=\"", pt.x, "\"");
    pik_append_y(p," cy=\"", pt.y, "\"");
    pik_append_dis(p," r=\"", r, "\" ");
    pik_append_style(p,pElem,1);
    pik_append(p,"\" />\n", -1);
  }
  pik_append_txt(p, pElem, 0);
}

/* Methods for the "cylinder" class */
static void cylinderInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "cylwid",6,0);
  pElem->h = pik_value(p, "cylht",5,0);
  pElem->rad = pik_value(p, "cylrad",6,0); /* Minor radius of ellipses */
}
static void cylinderFit(Pik *p, PElem *pElem, PNum w, PNum h){
  if( w>0 ) pElem->w = w;
  if( h>0 ) pElem->h = h + 4*pElem->rad + pElem->sw;
  UNUSED_PARAMETER(p);
}
static void cylinderRender(Pik *p, PElem *pElem){
  PNum w2 = 0.5*pElem->w;
  PNum h2 = 0.5*pElem->h;
  PNum rad = pElem->rad;
  PPoint pt = pElem->ptAt;
  if( pElem->sw>0.0 ){
    pik_append_xy(p,"<path d=\"M", pt.x-w2,pt.y+h2-rad);
    pik_append_xy(p,"L", pt.x-w2,pt.y-h2+rad);
    pik_append_arc(p,w2,rad,pt.x+w2,pt.y-h2+rad);
    pik_append_xy(p,"L", pt.x+w2,pt.y+h2-rad);
    pik_append_arc(p,w2,rad,pt.x-w2,pt.y+h2-rad);
    pik_append_arc(p,w2,rad,pt.x+w2,pt.y+h2-rad);
    pik_append(p,"\" ",-1);
    pik_append_style(p,pElem,1);
    pik_append(p,"\" />\n", -1);
  }
  pik_append_txt(p, pElem, 0);
}
static PPoint cylinderOffset(Pik *p, PElem *pElem, int cp){
  PPoint pt;
  PNum w2 = pElem->w*0.5;
  PNum h1 = pElem->h*0.5;
  PNum h2 = h1 - pElem->rad;
  switch( cp ){
    case CP_C:   pt.x = 0.0;   pt.y = 0.0;    break;
    case CP_N:   pt.x = 0.0;   pt.y = h1;     break;
    case CP_NE:  pt.x = w2;    pt.y = h2;     break;
    case CP_E:   pt.x = w2;    pt.y = 0.0;    break;
    case CP_SE:  pt.x = w2;    pt.y = -h2;    break;
    case CP_S:   pt.x = 0.0;   pt.y = -h1;    break;
    case CP_SW:  pt.x = -w2;   pt.y = -h2;    break;
    case CP_W:   pt.x = -w2;   pt.y = 0.0;    break;
    case CP_NW:  pt.x = -w2;   pt.y = h2;     break;
  }
  UNUSED_PARAMETER(p);
  return pt;
}

/* Methods for the "dot" class */
static void dotInit(Pik *p, PElem *pElem){
  pElem->rad = pik_value(p, "dotrad",6,0);
  pElem->h = pElem->w = pElem->rad*6;
  pElem->fill = pElem->color;
}
static void dotNumProp(Pik *p, PElem *pElem, PToken *pId){
  switch( pId->eType ){
    case T_COLOR:
      pElem->fill = pElem->color;
      break;
    case T_FILL:
      pElem->color = pElem->fill;
      break;
  }
  UNUSED_PARAMETER(p);
}
static void dotCheck(Pik *p, PElem *pElem){
  pElem->w = pElem->h = 0;
  pik_bbox_addellipse(&pElem->bbox, pElem->ptAt.x, pElem->ptAt.y,
                       pElem->rad, pElem->rad);
  UNUSED_PARAMETER(p);
}
static PPoint dotOffset(Pik *p, PElem *pElem, int cp){
  PPoint zero;
  zero.x = zero.y = 0;
  UNUSED_PARAMETER(p);
  UNUSED_PARAMETER(pElem);
  UNUSED_PARAMETER(cp);
  return zero;
}
static void dotRender(Pik *p, PElem *pElem){
  PNum r = pElem->rad;
  PPoint pt = pElem->ptAt;
  if( pElem->sw>0.0 ){
    pik_append_x(p,"<circle cx=\"", pt.x, "\"");
    pik_append_y(p," cy=\"", pt.y, "\"");
    pik_append_dis(p," r=\"", r, "\"");
    pik_append_style(p,pElem,1);
    pik_append(p,"\" />\n", -1);
  }
  pik_append_txt(p, pElem, 0);
}



/* Methods for the "ellipse" class */
static void ellipseInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "ellipsewid",10,0);
  pElem->h = pik_value(p, "ellipseht",9,0);
}
static PPoint ellipseChop(Pik *p, PElem *pElem, PPoint *pPt){
  PPoint chop;
  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;
  UNUSED_PARAMETER(p);
  return chop;
}
static PPoint ellipseOffset(Pik *p, PElem *pElem, int cp){
  PPoint pt;
  PNum w = pElem->w*0.5;
  PNum w2 = w*0.70710678118654747608;
  PNum h = pElem->h*0.5;
  PNum h2 = h*0.70710678118654747608;
  switch( cp ){
    case CP_C:   pt.x = 0.0;   pt.y = 0.0;    break;
    case CP_N:   pt.x = 0.0;   pt.y = h;      break;
    case CP_NE:  pt.x = w2;    pt.y = h2;     break;
    case CP_E:   pt.x = w;     pt.y = 0.0;    break;
    case CP_SE:  pt.x = w2;    pt.y = -h2;    break;
    case CP_S:   pt.x = 0.0;   pt.y = -h;     break;
    case CP_SW:  pt.x = -w2;   pt.y = -h2;    break;
    case CP_W:   pt.x = -w;    pt.y = 0.0;    break;
    case CP_NW:  pt.x = -w2;   pt.y = h2;     break;
  }
  UNUSED_PARAMETER(p);
  return pt;
}
static void ellipseRender(Pik *p, PElem *pElem){
  PNum w = pElem->w;
  PNum h = pElem->h;
  PPoint pt = pElem->ptAt;
  if( pElem->sw>0.0 ){
    pik_append_x(p,"<ellipse cx=\"", pt.x, "\"");
    pik_append_y(p," cy=\"", pt.y, "\"");
    pik_append_dis(p," rx=\"", w/2.0, "\"");
    pik_append_dis(p," ry=\"", h/2.0, "\" ");
    pik_append_style(p,pElem,1);
    pik_append(p,"\" />\n", -1);
  }
  pik_append_txt(p, pElem, 0);
}

/* Methods for the "file" object */
static void fileInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "filewid",7,0);
  pElem->h = pik_value(p, "fileht",6,0);
  pElem->rad = pik_value(p, "filerad",7,0);
}
/* Return offset from the center of the file to the compass point 
** given by parameter cp */
static PPoint fileOffset(Pik *p, PElem *pElem, int cp){
  PPoint pt;
  PNum w2 = 0.5*pElem->w;
  PNum h2 = 0.5*pElem->h;
  PNum rx = pElem->rad;
  PNum mn = w2<h2 ? w2 : h2;
  if( rx>mn ) rx = mn;
  if( rx<mn*0.25 ) rx = mn*0.25;
  pt.x = pt.y = 0.0;
  rx *= 0.5;
  switch( cp ){
    case CP_C:   pt.x = 0.0;      pt.y = 0.0;    break;
    case CP_N:   pt.x = 0.0;      pt.y = h2;     break;
    case CP_NE:  pt.x = w2-rx;    pt.y = h2-rx;  break;
    case CP_E:   pt.x = w2;       pt.y = 0.0;    break;
    case CP_SE:  pt.x = w2;       pt.y = -h2;    break;
    case CP_S:   pt.x = 0.0;      pt.y = -h2;    break;
    case CP_SW:  pt.x = -w2;      pt.y = -h2;    break;
    case CP_W:   pt.x = -w2;      pt.y = 0.0;    break;
    case CP_NW:  pt.x = -w2;      pt.y = h2;     break;
  }
  UNUSED_PARAMETER(p);
  return pt;
}
static void fileFit(Pik *p, PElem *pElem, PNum w, PNum h){
  if( w>0 ) pElem->w = w;
  if( h>0 ) pElem->h = h + 2*pElem->rad;
  UNUSED_PARAMETER(p);
}
static void fileRender(Pik *p, PElem *pElem){
  PNum w2 = 0.5*pElem->w;
  PNum h2 = 0.5*pElem->h;
  PNum rad = pElem->rad;
  PPoint pt = pElem->ptAt;
  PNum mn = w2<h2 ? w2 : h2;
  if( rad>mn ) rad = mn;
  if( rad<mn*0.25 ) rad = mn*0.25;
  if( pElem->sw>0.0 ){
    pik_append_xy(p,"<path d=\"M", pt.x-w2,pt.y-h2);
    pik_append_xy(p,"L", pt.x+w2,pt.y-h2);
    pik_append_xy(p,"L", pt.x+w2,pt.y+(h2-rad));
    pik_append_xy(p,"L", pt.x+(w2-rad),pt.y+h2);
    pik_append_xy(p,"L", pt.x-w2,pt.y+h2);
    pik_append(p,"Z\" ",-1);
    pik_append_style(p,pElem,1);
    pik_append(p,"\" />\n",-1);
    pik_append_xy(p,"<path d=\"M", pt.x+(w2-rad), pt.y+h2);
    pik_append_xy(p,"L", pt.x+(w2-rad),pt.y+(h2-rad));
    pik_append_xy(p,"L", pt.x+w2, pt.y+(h2-rad));
    pik_append(p,"\" ",-1);
    pik_append_style(p,pElem,0);
    pik_append(p,"\" />\n",-1);
  }
  pik_append_txt(p, pElem, 0);
}


/* Methods for the "line" class */
static void lineInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "linewid",7,0);
  pElem->h = pik_value(p, "lineht",6,0);
  pElem->rad = pik_value(p, "linerad",7,0);
  pElem->fill = -1.0;
}
static PPoint lineOffset(Pik *p, PElem *pElem, int cp){
#if 0
  /* In legacy PIC, the .center of an unclosed line is half way between
  ** its .start and .end. */
  if( cp==CP_C && !pElem->bClose ){
    PPoint out;
    out.x = 0.5*(pElem->ptEnter.x + pElem->ptExit.x) - pElem->ptAt.x;
    out.y = 0.5*(pElem->ptEnter.x + pElem->ptExit.y) - pElem->ptAt.y;
    return out;
  }
#endif
  return boxOffset(p,pElem,cp);
}
static void lineRender(Pik *p, PElem *pElem){
  int i;
  if( pElem->sw>0.0 ){
    const char *z = "<path d=\"M";
    int n = pElem->nPath;
    if( pElem->larrow ){
      pik_draw_arrowhead(p,&pElem->aPath[1],&pElem->aPath[0],pElem);
    }
    if( pElem->rarrow ){
      pik_draw_arrowhead(p,&pElem->aPath[n-2],&pElem->aPath[n-1],pElem);
    }
    for(i=0; i<pElem->nPath; i++){
      pik_append_xy(p,z,pElem->aPath[i].x,pElem->aPath[i].y);
      z = "L";
    }
    if( pElem->bClose ){
      pik_append(p,"Z",1);
    }else{
      pElem->fill = -1.0;
    }
    pik_append(p,"\" ",-1);
    pik_append_style(p,pElem,pElem->bClose);
    pik_append(p,"\" />\n", -1);
  }
  pik_append_txt(p, pElem, 0);
}

/* Methods for the "move" class */
static void moveInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "movewid",7,0);
  pElem->h = pElem->w;
  pElem->fill = -1.0;
  pElem->color = -1.0;
  pElem->sw = -1.0;
}
static void moveRender(Pik *p, PElem *pElem){
  /* No-op */
  UNUSED_PARAMETER(p);
  UNUSED_PARAMETER(pElem);
}

/* Methods for the "oval" class */
static void ovalInit(Pik *p, PElem *pElem){
  pElem->h = pik_value(p, "ovalht",6,0);
  pElem->w = pik_value(p, "ovalwid",7,0);
  pElem->rad = 0.5*(pElem->h<pElem->w?pElem->h:pElem->w);
}
static void ovalNumProp(Pik *p, PElem *pElem, PToken *pId){
  UNUSED_PARAMETER(p);
  UNUSED_PARAMETER(pId);
  /* Always adjust the radius to be half of the smaller of
  ** the width and height. */
  pElem->rad = 0.5*(pElem->h<pElem->w?pElem->h:pElem->w);
}
static void ovalFit(Pik *p, PElem *pElem, PNum w, PNum h){
  UNUSED_PARAMETER(p);
  if( w>0 ) pElem->w = w;
  if( h>0 ) pElem->h = h;
  if( pElem->w<pElem->h ) pElem->w = pElem->h;
}



/* Methods for the "spline" class */
static void splineInit(Pik *p, PElem *pElem){
  pElem->w = pik_value(p, "linewid",7,0);
  pElem->h = pik_value(p, "lineht",6,0);
  pElem->rad = 1000;
  pElem->fill = -1.0;  /* Disable fill by default */
}
/* Return a point along the path from "f" to "t" that is r units
** prior to reaching "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;
  }else{
    *pbMid = 0;
  }
  m.x = t.x - r*dx;
  m.y = t.y - r*dy;
  return m;
}
static void radiusPath(Pik *p, PElem *pElem, PNum r){
  int i;
  int n = pElem->nPath;
  const PPoint *a = pElem->aPath;
  PPoint m;
  int isMid = 0;

  pik_append_xy(p,"<path d=\"M", a[0].x, a[0].y);
  m = radiusMidpoint(a[0], a[1], r, &isMid);
  pik_append_xy(p," L ",m.x,m.y);
  for(i=1; i<n-1; i++){
    m = radiusMidpoint(a[i+1],a[i],r, &isMid);
    pik_append_xy(p," Q ",a[i].x,a[i].y);
    pik_append_xy(p," ",m.x,m.y);
    if( !isMid ){
      m = radiusMidpoint(a[i],a[i+1],r, &isMid);
      pik_append_xy(p," L ",m.x,m.y);
    }
  }
  pik_append_xy(p," L ",a[i].x,a[i].y);
  pik_append(p,"\" ",-1);
  pik_append_style(p,pElem,0);
  pik_append(p,"\" />\n", -1);
}
static void splineRender(Pik *p, PElem *pElem){
  if( pElem->sw>0.0 ){
    int n = pElem->nPath;
    PNum r = pElem->rad;
    if( n<3 || r<=0.0 ){
      lineRender(p,pElem);
      return;
    }
    if( pElem->larrow ){
      pik_draw_arrowhead(p,&pElem->aPath[1],&pElem->aPath[0],pElem);
    }
    if( pElem->rarrow ){
      pik_draw_arrowhead(p,&pElem->aPath[n-2],&pElem->aPath[n-1],pElem);
    }
    radiusPath(p,pElem,pElem->rad);
  }
  pik_append_txt(p, pElem, 0);
}


/* Methods for the "text" class */
static void textInit(Pik *p, PElem *pElem){
  pik_value(p, "textwid",7,0);
  pik_value(p, "textht",6,0);
  pElem->sw = 0.0;
}
static PPoint textOffset(Pik *p, PElem *pElem, int cp){
  /* Automatically slim-down the width and height of text
  ** elements so that the bounding box tightly encloses the text,
  ** then get boxOffset() to do the offset computation.
  */
  pik_size_to_fit(p, &pElem->errTok);
  return boxOffset(p, pElem, cp);
}

/* Methods for the "sublist" class */
static void sublistInit(Pik *p, PElem *pElem){
  PEList *pList = pElem->pSublist;
  int i;
  UNUSED_PARAMETER(p);
  pik_bbox_init(&pElem->bbox);
  for(i=0; i<pList->n; i++){
    pik_bbox_addbox(&pElem->bbox, &pList->a[i]->bbox);
  }
  pElem->w = pElem->bbox.ne.x - pElem->bbox.sw.x;
  pElem->h = pElem->bbox.ne.y - pElem->bbox.sw.y;
  pElem->ptAt.x = 0.5*(pElem->bbox.ne.x + pElem->bbox.sw.x);
  pElem->ptAt.y = 0.5*(pElem->bbox.ne.y + pElem->bbox.sw.y);
  pElem->mCalc |= A_WIDTH|A_HEIGHT|A_RADIUS;
}


/*
** The following array holds all the different kinds of named
** elements.  The special STRING and [] elements are separate.
*/
static const PClass aClass[] = {
   {  /* name */          "arc",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         arcInit,
      /* xNumProp */      0,
      /* xCheck */        arcCheck,
      /* xChop */         0,
      /* xOffset */       boxOffset,
      /* xFit */          0,
      /* xRender */       arcRender
   },
   {  /* name */          "arrow",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         arrowInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         0,
      /* xOffset */       lineOffset,
      /* xFit */          0,
      /* xRender */       splineRender 
   },
   {  /* name */          "box",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         boxInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         boxChop,
      /* xOffset */       boxOffset,
      /* xFit */          boxFit,
      /* xRender */       boxRender 
   },
   {  /* name */          "circle",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         circleInit,
      /* xNumProp */      circleNumProp,
      /* xCheck */        0,
      /* xChop */         circleChop,
      /* xOffset */       ellipseOffset,
      /* xFit */          circleFit,
      /* xRender */       circleRender 
   },
   {  /* name */          "cylinder",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         cylinderInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         boxChop,
      /* xOffset */       cylinderOffset,
      /* xFit */          cylinderFit,
      /* xRender */       cylinderRender
   },
   {  /* name */          "dot",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         dotInit,
      /* xNumProp */      dotNumProp,
      /* xCheck */        dotCheck,
      /* xChop */         circleChop,
      /* xOffset */       dotOffset,
      /* xFit */          0,
      /* xRender */       dotRender 
   },
   {  /* name */          "ellipse",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         ellipseInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         ellipseChop,
      /* xOffset */       ellipseOffset,
      /* xFit */          0,
      /* xRender */       ellipseRender
   },
   {  /* name */          "file",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         fileInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         boxChop,
      /* xOffset */       fileOffset,
      /* xFit */          fileFit,
      /* xRender */       fileRender 
   },
   {  /* name */          "line",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         lineInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         0,
      /* xOffset */       lineOffset,
      /* xFit */          0,
      /* xRender */       splineRender
   },
   {  /* name */          "move",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         moveInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         0,
      /* xOffset */       boxOffset,
      /* xFit */          0,
      /* xRender */       moveRender
   },
   {  /* name */          "oval",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         ovalInit,
      /* xNumProp */      ovalNumProp,
      /* xCheck */        0,
      /* xChop */         boxChop,
      /* xOffset */       boxOffset,
      /* xFit */          ovalFit,
      /* xRender */       boxRender
   },
   {  /* name */          "spline",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         splineInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         0,
      /* xOffset */       lineOffset,
      /* xFit */          0,
      /* xRender */       splineRender
   },
   {  /* name */          "text",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         textInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         boxChop,
      /* xOffset */       textOffset,
      /* xFit */          boxFit,
      /* xRender */       boxRender 
   },
};
static const PClass sublistClass = 
   {  /* name */          "[]",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         sublistInit,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         0,
      /* xOffset */       boxOffset,
      /* xFit */          0,
      /* xRender */       0 
   };
static const PClass noopClass = 
   {  /* name */          "noop",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         0,
      /* xNumProp */      0,
      /* xCheck */        0,
      /* xChop */         0,
      /* xOffset */       boxOffset,
      /* xFit */          0,
      /* xRender */       0
   };


/*
** Reduce the length of the line segment by amt (if possible) by
** modifying the location of *t.
*/
static void pik_chop(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 */
  dx /= dist;
  dy /= dist;
  e1 = dist - h;
  if( e1<0.0 ){
    e1 = 0.0;
    h = dist;
  }
  ddx = -w*dy;
  ddy = w*dx;
  bx = f->x + e1*dx;
  by = f->y + e1*dy;
  pik_append_xy(p,"<polygon points=\"", t->x, t->y);
  pik_append_xy(p," ",bx-ddx, by-ddy);
  pik_append_xy(p," ",bx+ddx, by+ddy);
  pik_append_clr(p,"\" style=\"fill:",pElem->color,"\"/>\n");
  pik_chop(f,t,h/2);
}

/*
** Compute the relative offset to an edge location from the reference for a
** an element.
*/
static PPoint pik_elem_offset(Pik *p, PElem *pElem, int cp){
  return pElem->type->xOffset(p, pElem, cp);
}


/*
** Append raw text to zOut
*/
static void pik_append(Pik *p, const char *zText, int n){
  if( n<0 ) n = (int)strlen(zText);
  if( p->nOut+n>=p->nOutAlloc ){
    int nNew = (p->nOut+n)*2 + 1;
    char *z = realloc(p->zOut, nNew);
    if( z==0 ){
      pik_error(p, 0, 0);
      return;
    }
    p->zOut = z;
    p->nOutAlloc = n;
  }
  memcpy(p->zOut+p->nOut, zText, n);
  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 &nbsp; as that is an HTML-ism and is not valid in XML.
**
**   *  The "&" character is changed into "&amp;" if mFlags has 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){
  int i;
  char c;
  int bQSpace = mFlags & 1;
  int bQAmp = mFlags & 2;
  if( n<0 ) n = (int)strlen(zText);
  while( n>0 ){
    for(i=0; i<n; i++){
      c = zText[i];
      if( c=='<' || c=='>' ) break;
      if( c==' ' && bQSpace ) break;
      if( c=='&' && bQAmp ) break;
    }
    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;
  }
}

/* Append a PNum value
*/
static void pik_append_num(Pik *p, const char *z,PNum v){
  char buf[100];
  snprintf(buf, sizeof(buf)-1, "%.10g", (double)v);
  buf[sizeof(buf)-1] = 0;
  pik_append(p, z, -1);
  pik_append(p, buf, -1);
}

/* Append a PPoint value  (Used for debugging only)
*/
static void pik_append_point(Pik *p, const char *z, PPoint *pPt){
  char buf[100];
  snprintf(buf, sizeof(buf)-1, "%.10g,%.10g", 
          (double)pPt->x, (double)pPt->y);
  buf[sizeof(buf)-1] = 0;
  pik_append(p, z, -1);
  pik_append(p, buf, -1);
}

/* Append a PNum value surrounded by text.  Do coordinate transformations
** on the value.
*/
static void pik_append_x(Pik *p, const char *z1, PNum v, const char *z2){
  char buf[200];
  v -= p->bbox.sw.x;
  snprintf(buf, sizeof(buf)-1, "%s%d%s", z1, (int)(p->rScale*v), z2);
  buf[sizeof(buf)-1] = 0;
  pik_append(p, buf, -1);
}
static void pik_append_y(Pik *p, const char *z1, PNum v, const char *z2){
  char buf[200];
  v = p->bbox.ne.y - v;
  snprintf(buf, sizeof(buf)-1, "%s%d%s", z1, (int)(p->rScale*v), z2);
  buf[sizeof(buf)-1] = 0;
  pik_append(p, buf, -1);
}
static void pik_append_xy(Pik *p, const char *z1, PNum x, PNum y){
  char buf[200];
  x = x - p->bbox.sw.x;
  y = p->bbox.ne.y - y;
  snprintf(buf, sizeof(buf)-1, "%s%d,%d", z1,
       (int)(p->rScale*x), (int)(p->rScale*y));
  buf[sizeof(buf)-1] = 0;
  pik_append(p, buf, -1);
}
static void pik_append_dis(Pik *p, const char *z1, PNum v, const char *z2){
  char buf[200];
  snprintf(buf, sizeof(buf)-1, "%s%g%s", z1, p->rScale*v, z2);
  buf[sizeof(buf)-1] = 0;
  pik_append(p, buf, -1);
}
static void pik_append_clr(Pik *p, const char *z1, PNum v, const char *z2){
  char buf[200];
  int x = (int)v;
  int r = (x>>16) & 0xff;
  int g = (x>>8) & 0xff;
  int b = x & 0xff;
  snprintf(buf, sizeof(buf)-1, "%srgb(%d,%d,%d)%s", z1, r, g, b, z2);
  buf[sizeof(buf)-1] = 0;
  pik_append(p, buf, -1);
}

/* Append an SVG path A record:
**
**    A r1 r2 0 0 0 x y
*/
static void pik_append_arc(Pik *p, PNum r1, PNum r2, PNum x, PNum y){
  char buf[200];
  x = x - p->bbox.sw.x;
  y = p->bbox.ne.y - y;
  snprintf(buf, sizeof(buf)-1, "A%d %d 0 0 0 %d %d", 
     (int)(p->rScale*r1), (int)(p->rScale*r2),
     (int)(p->rScale*x), (int)(p->rScale*y));
  buf[sizeof(buf)-1] = 0;
  pik_append(p, buf, -1);
}

/* Append a style="..." text.  But, leave the quote unterminated, in case
** the caller wants to add some more.
*/
static void pik_append_style(Pik *p, PElem *pElem, int bFill){
  pik_append(p, " style=\"", -1);
  if( pElem->fill>=0 && bFill ){
    pik_append_clr(p, "fill:", pElem->fill, ";");
  }else{
    pik_append(p,"fill:none;",-1);
  }
  if( pElem->sw>0.0 && pElem->color>=0.0 ){
    PNum sw = pElem->sw;
    pik_append_dis(p, "stroke-width:", sw, ";");
    if( pElem->nPath>2 && pElem->rad<=pElem->sw ){
      pik_append(p, "stroke-linejoin:round;", -1);
    }
    pik_append_clr(p, "stroke:",pElem->color,";");
    if( pElem->dotted>0.0 ){
      PNum v = pElem->dotted;
      if( sw<2.1/p->rScale ) sw = 2.1/p->rScale;
      pik_append_dis(p,"stroke-dasharray:",sw,"");
      pik_append_dis(p,",",v,";");
    }else if( pElem->dashed>0.0 ){
      PNum v = pElem->dashed;
      pik_append_dis(p,"stroke-dasharray:",v,"");
      pik_append_dis(p,",",v,";");
    }
  }
}

/*
** Compute the vertical locations for all text items in the
** element pElem.  In other words, set every pElem->aTxt[*].eCode
** value to contain exactly one of: TP_ABOVE2, TP_ABOVE, TP_CENTER,
** TP_BELOW, or TP_BELOW2 is set.
*/
static void pik_txt_vertical_layout(PElem *pElem){
  int n, i;
  PToken *aTxt;
  n = pElem->nTxt;
  if( n==0 ) return;
  aTxt = pElem->aTxt;
  if( n==1 ){
    if( (aTxt[0].eCode & TP_VMASK)==0 ){
      aTxt[0].eCode |= TP_CENTER;
    }
  }else{
    int allSlots = 0;
    int aFree[5];
    int iSlot;
    int j, mJust;
    /* If there is more than one TP_ABOVE, change the first to TP_ABOVE2. */
    for(j=mJust=0, i=n-1; i>=0; i--){
      if( aTxt[i].eCode & TP_ABOVE ){
        if( j==0 ){
          j++;
          mJust = aTxt[i].eCode & TP_JMASK;
        }else if( j==1 && mJust!=0 && (aTxt[i].eCode & mJust)==0 ){
          j++;
        }else{
          aTxt[i].eCode = (aTxt[i].eCode & ~TP_VMASK) | TP_ABOVE2;
          break;
        }
      }
    }
    /* If there is more than one TP_BELOW, change the last to TP_BELOW2 */
    for(j=mJust=0, i=0; i<n; i++){
      if( aTxt[i].eCode & TP_BELOW ){
        if( j==0 ){
          j++;
          mJust = aTxt[i].eCode & TP_JMASK;
        }else if( j==1 && mJust!=0 && (aTxt[i].eCode & mJust)==0 ){
          j++;
        }else{
          aTxt[i].eCode = (aTxt[i].eCode & ~TP_VMASK) | TP_BELOW2;
          break;
        }
      }
    }
    /* Compute a mask of all slots used */
    for(i=0; i<n; i++) allSlots |= aTxt[i].eCode & TP_VMASK;
    /* Set of an array of available slots */
    if( n==2
     && ((aTxt[0].eCode|aTxt[1].eCode)&TP_JMASK)==(TP_LJUST|TP_RJUST)
    ){
      /* Special case of two texts that have opposite justification:
      ** Allow them both to float to center. */
      iSlot = 2;
      aFree[0] = aFree[1] = TP_CENTER;
    }else{
      /* Set up the arrow so that available slots are filled from top to
      ** bottom */
      iSlot = 0;
      if( n>=4 && (allSlots & TP_ABOVE2)==0 ) aFree[iSlot++] = TP_ABOVE2;
      if( (allSlots & TP_ABOVE)==0 ) aFree[iSlot++] = TP_ABOVE;
      if( (n&1)!=0 ) aFree[iSlot++] = TP_CENTER;
      if( (allSlots & TP_BELOW)==0 ) aFree[iSlot++] = TP_BELOW;
      if( n>=4 && (allSlots & TP_BELOW2)==0 ) aFree[iSlot++] = TP_BELOW2;
    }
    /* Set the VMASK for all unassigned texts */
    for(i=iSlot=0; i<n; i++){
      if( (aTxt[i].eCode & TP_VMASK)==0 ){
        aTxt[i].eCode |= aFree[iSlot++];
      }
    }
  }
}

/* Append multiple <text> SVG element for the text fields of the PElem.
** Parameters:
**
**    p          The Pik object into which we are rendering
**
**    pElem      Object containing the text to be rendered
**
**    pBox       If not NULL, do no rendering at all.  Instead
**               expand the box object so that it will include all
**               of the text.
*/
static void pik_append_txt(Pik *p, PElem *pElem, PBox *pBox){
  PNum dy;          /* Half the height of a single line of text */
  PNum dy2;         /* Extra vertical space around the center */
  PNum jw;          /* Justification margin relative to center */
  int n, i, nz;
  PNum x, y, orig_y;
  const char *z;
  PToken *aTxt;
  int hasCenter = 0;

  if( p->nErr ) return;
  if( pElem->nTxt==0 ) return;
  aTxt = pElem->aTxt;
  dy = 0.5*p->charHeight;
  n = pElem->nTxt;
  pik_txt_vertical_layout(pElem);
  x = pElem->ptAt.x;
  for(i=0; i<n; i++){
    if( (pElem->aTxt[i].eCode & TP_CENTER)!=0 ) hasCenter = 1;
  }
  if( hasCenter ){
    dy2 = dy;
  }else if( pElem->type->isLine ){
    dy2 = pElem->sw;
  }else{
    dy2 = 0.0;
  }
  if( pElem->type->eJust==1 ){
    jw = 0.5*(pElem->w - 0.5*(p->charWidth + pElem->sw));
  }else{
    jw = 0.0;
  }
  for(i=0; i<n; i++){
    PToken *t = &aTxt[i];
    PNum xtraFontScale = 1.0;
    orig_y = pElem->ptAt.y;
    PNum nx = 0;
    y = 0;
    if( t->eCode & TP_ABOVE2 ) y += dy2 + 3*dy;
    if( t->eCode & TP_ABOVE  ) y += dy2 + dy;
    if( t->eCode & TP_BELOW  ) y -= dy2 + dy;
    if( t->eCode & TP_BELOW2 ) y -= dy2 + 3*dy;
    if( t->eCode & TP_BIG    ) xtraFontScale *= 1.25;
    if( t->eCode & TP_SMALL  ) xtraFontScale *= 0.8;
    if( t->eCode & TP_XTRA   ) xtraFontScale *= xtraFontScale;
    if( t->eCode & TP_LJUST  ) nx -= jw;
    if( t->eCode & TP_RJUST  ) nx += jw;

    if( pBox!=0 ){
      /* If pBox is not NULL, do not draw any <text>.  Instead, just expand
      ** pBox to include the text */
      PNum cw = pik_text_length(t)*p->charWidth*xtraFontScale*0.01;
      PNum ch = p->charHeight*0.5*xtraFontScale;
      PNum x0, y0, x1, y1;  /* Boundary of text relative to pElem->ptAt */
      if( t->eCode & TP_BOLD ) cw *= 1.1;
      if( t->eCode & TP_RJUST ){
        x0 = nx;
        y0 = y-ch;
        x1 = nx-cw;
        y1 = y+ch;
      }else if( t->eCode & TP_LJUST ){
        x0 = nx;
        y0 = y-ch;
        x1 = nx+cw;
        y1 = y+ch;
      }else{
        x0 = nx+cw/2;
        y0 = y+ch;
        x1 = nx-cw/2;
        y1 = y-ch;
      }
      if( (t->eCode & TP_ALIGN)!=0 && pElem->nPath>=2 ){
        int n = pElem->nPath;
        PNum dx = pElem->aPath[n-1].x - pElem->aPath[0].x;
        PNum dy = pElem->aPath[n-1].y - pElem->aPath[0].y;
        if( dx!=0 || dy!=0 ){
          PNum dist = hypot(dx,dy);
          PNum t;
          dx /= dist;
          dy /= dist;
          t = dx*x0 - dy*y0;
          y0 = dy*x0 - dx*y0;
          x0 = t;
          t = dx*x1 - dy*y1;
          y1 = dy*x1 - dx*y1;
          x1 = t;
        }
      }
      pik_bbox_add_xy(pBox, x+x0, orig_y+y0);
      pik_bbox_add_xy(pBox, x+x1, orig_y+y1);
      continue;
    }
    nx += x;
    y += orig_y;

    pik_append_x(p, "<text x=\"", nx, "\"");
    pik_append_y(p, " y=\"", y, "\"");
    if( t->eCode & TP_RJUST ){
      pik_append(p, " text-anchor=\"end\"", -1);
    }else if( t->eCode & TP_LJUST ){
      pik_append(p, " text-anchor=\"start\"", -1);
    }else{
      pik_append(p, " text-anchor=\"middle\"", -1);
    }
    if( t->eCode & TP_ITALIC ){
      pik_append(p, " font-style=\"italic\"", -1);
    }
    if( t->eCode & TP_BOLD ){
      pik_append(p, " font-weight=\"bold\"", -1);
    }
    if( pElem->color>=0.0 ){
      pik_append_clr(p, " fill=\"", pElem->color, "\"");
    }
    xtraFontScale *= p->fontScale;
    if( xtraFontScale<=0.99 || xtraFontScale>=1.01 ){
      pik_append_num(p, " font-size=\"", xtraFontScale*100.0);
      pik_append(p, "%\"", 2);
    }
    if( (t->eCode & TP_ALIGN)!=0 && pElem->nPath>=2 ){
      int n = pElem->nPath;
      PNum dx = pElem->aPath[n-1].x - pElem->aPath[0].x;
      PNum dy = pElem->aPath[n-1].y - pElem->aPath[0].y;
      if( dx!=0 || dy!=0 ){
        PNum ang = atan2(dy,dx)*-180/M_PI;
        pik_append_num(p, " transform=\"rotate(", ang);
        pik_append_xy(p, " ", x, orig_y);
        pik_append(p,")\"",2);
      }
    }
    pik_append(p," dominant-baseline=\"central\">",-1);
    z = t->z+1;
    nz = t->n-2;
    while( nz>0 ){
      int j;
      for(j=0; j<nz && z[j]!='\\'; j++){}
      if( j ) pik_append_text(p, z, j, 1);
      nz -= j+1;
      z += j+1;
    }
    pik_append(p, "</text>\n", -1);
  }
}


/*
** Generate an error message for the output.  pErr is the token at which
** the error should point.  zMsg is the text of the error message. If
** either pErr or zMsg is NULL, generate an out-of-memory error message.
**
** This routine is a no-op if there has already been an error reported.
*/
static void pik_error(Pik *p, PToken *pErr, const char *zMsg){
  int i, j;
  int iCol;
  int nExtra;
  char c;
  if( p==0 ) return;
  if( p->nErr ) return;
  p->nErr++;
  if( zMsg==0 ){
    pik_append(p, "\n<div><p>Out of memory</p></div>\n", -1);
    return;
  }
  if( pErr==0 ){
    pik_append(p, "\n", 1);
    pik_append_text(p, zMsg, -1, 0);
    return;
  }
  i = (int)(pErr->z - p->zIn);
  for(j=i; j>0 && p->zIn[j-1]!='\n'; j--){}
  iCol = i - j;
  for(nExtra=0; (c = p->zIn[i+nExtra])!=0 && c!='\n'; nExtra++){}
  pik_append(p, "<div><pre>\n", -1);
  pik_append_text(p, p->zIn, i+nExtra, 3);
  pik_append(p, "\n", 1);
  for(i=0; i<iCol; i++){ pik_append(p, " ", 1); }
  for(i=0; i<(int)pErr->n; i++) pik_append(p, "^", 1);
  pik_append(p, "\nERROR: ", -1);
  pik_append_text(p, zMsg, -1, 0);
  pik_append(p, "\n", 1);
  pik_append(p, "\n</pre></div>\n", -1);
}

/*
** Process an "assert( e1 == e2 )" statement.  Always return NULL.
*/
static PElem *pik_assert(Pik *p, PNum e1, PToken *pEq, PNum e2){
  char zE1[100], zE2[100], zMsg[300];

  /* Convert the numbers to strings using %g for comparison.  This
  ** limits the precision of the comparison to account for rounding error. */
  snprintf(zE1, sizeof(zE1), "%g", e1); zE1[sizeof(zE1)-1] = 0;
  snprintf(zE2, sizeof(zE2), "%g", e2); zE1[sizeof(zE2)-1] = 0;
  if( strcmp(zE1,zE2)!=0 ){
    snprintf(zMsg, sizeof(zMsg), "%.50s != %.50s", zE1, zE2);
    pik_error(p, pEq, zMsg);
  }
  return 0;
}

/*
** Process an "assert( place1 == place2 )" statement.  Always return NULL.
*/
static PElem *pik_position_assert(Pik *p, PPoint *e1, PToken *pEq, PPoint *e2){
  char zE1[100], zE2[100], zMsg[210];

  /* Convert the numbers to strings using %g for comparison.  This
  ** limits the precision of the comparison to account for rounding error. */
  snprintf(zE1, sizeof(zE1), "(%g,%g)", e1->x, e1->y); zE1[sizeof(zE1)-1] = 0;
  snprintf(zE2, sizeof(zE2), "(%g,%g)", e2->x, e2->y); zE1[sizeof(zE2)-1] = 0;
  if( strcmp(zE1,zE2)!=0 ){
    snprintf(zMsg, sizeof(zMsg), "%s != %s", zE1, zE2);
    pik_error(p, pEq, zMsg);
  }
  return 0;
}

/* Free a complete list of elements */
static void pik_elist_free(Pik *p, PEList *pEList){
  int i;
  if( pEList==0 ) return;
  for(i=0; i<pEList->n; i++){
    pik_elem_free(p, pEList->a[i]);
  }
  free(pEList->a);
  free(pEList);
  return;
}

/* Free a single element, and its substructure */
static void pik_elem_free(Pik *p, PElem *pElem){
  if( pElem==0 ) return;
  free(pElem->zName);
  pik_elist_free(p, pElem->pSublist);
  free(pElem->aPath);
  free(pElem);
}

/* Convert a numeric literal into a number.  Return that number.
** There is no error handling because the tokenizer has already
** assured us that the numeric literal is valid.
**
** Allowed number forms:
**
**   (1)    Floating point literal
**   (2)    Same as (1) but followed by a unit: "cm", "mm", "in",
**          "px", "pt", or "pc".
**   (3)    Hex integers: 0x000000
**
** This routine returns the result in inches.  If a different unit
** is specified, the conversion happens automatically.
*/
PNum pik_atof(PToken *num){
  char *endptr;
  PNum ans;
  if( num->n>=3 && num->z[0]=='0' && (num->z[1]=='x'||num->z[1]=='X') ){
    return (PNum)strtol(num->z+2, 0, 16);
  }
  ans = strtod(num->z, &endptr);
  if( (int)(endptr - num->z)==(int)num->n-2 ){
    char c1 = endptr[0];
    char c2 = endptr[1];
    if( c1=='c' && c2=='m' ){
      ans /= 2.54;
    }else if( c1=='m' && c2=='m' ){
      ans /= 25.4;
    }else if( c1=='p' && c2=='x' ){
      ans /= 96;
    }else if( c1=='p' && c2=='t' ){
      ans /= 72;
    }else if( c1=='p' && c2=='c' ){
      ans /= 6;
    }
  }
  return ans;
}

/*
** Compute the distance between two points
*/
static PNum pik_dist(PPoint *pA, PPoint *pB){
  PNum dx, dy;
  dx = pB->x - pA->x;
  dy = pB->y - pA->y;
  return hypot(dx,dy);
}

/* Return true if a bounding box is empty.
*/
static int pik_bbox_isempty(PBox *p){
  return p->sw.x>p->ne.x;
}

/* Initialize a bounding box to an empty container
*/
static void pik_bbox_init(PBox *p){
  p->sw.x = 1.0;
  p->sw.y = 1.0;
  p->ne.x = 0.0;
  p->ne.y = 0.0;
}

/* Enlarge the PBox of the first argument so that it fully
** covers the second PBox
*/
static void pik_bbox_addbox(PBox *pA, PBox *pB){
  if( pik_bbox_isempty(pA) ){
    *pA = *pB;
  }
  if( pik_bbox_isempty(pB) ) return;
  if( pA->sw.x>pB->sw.x ) pA->sw.x = pB->sw.x;
  if( pA->sw.y>pB->sw.y ) pA->sw.y = pB->sw.y;
  if( pA->ne.x<pB->ne.x ) pA->ne.x = pB->ne.x;
  if( pA->ne.y<pB->ne.y ) pA->ne.y = pB->ne.y;
}

/* Enlarge the PBox of the first argument, if necessary, so that
** it contains the point described by the 2nd and 3rd arguments.
*/
static void pik_bbox_add_xy(PBox *pA, PNum x, PNum y){
  if( pik_bbox_isempty(pA) ){
    pA->ne.x = x;
    pA->ne.y = y;
    pA->sw.x = x;
    pA->sw.y = y;
    return;
  }
  if( pA->sw.x>x ) pA->sw.x = x;
  if( pA->sw.y>y ) pA->sw.y = y;
  if( pA->ne.x<x ) pA->ne.x = x;
  if( pA->ne.y<y ) pA->ne.y = y;
}

/* Enlarge the PBox so that it is able to contain an ellipse
** centered at x,y and with radiuses rx and ry.
*/
static void pik_bbox_addellipse(PBox *pA, PNum x, PNum y, PNum rx, PNum ry){
  if( pik_bbox_isempty(pA) ){
    pA->ne.x = x+rx;
    pA->ne.y = y+ry;
    pA->sw.x = x-rx;
    pA->sw.y = y-ry;
    return;
  }
  if( pA->sw.x>x-rx ) pA->sw.x = x-rx;
  if( pA->sw.y>y-ry ) pA->sw.y = y-ry;
  if( pA->ne.x<x+rx ) pA->ne.x = x+rx;
  if( pA->ne.y<y+ry ) pA->ne.y = y+ry;
}



/* Append a new element onto the end of an element_list.  The
** element_list is created if it does not already exist.  Return
** the new element list.
*/
static PEList *pik_elist_append(Pik *p, PEList *pEList, PElem *pElem){
  if( pElem==0 ) return pEList;
  if( pEList==0 ){
    pEList = malloc(sizeof(*pEList));
    if( pEList==0 ){
      pik_error(p, 0, 0);
      pik_elem_free(p, pElem);
      return 0;
    }
    memset(pEList, 0, sizeof(*pEList));
  }
  if( pEList->n>=pEList->nAlloc ){
    int nNew = (pEList->n+5)*2;
    PElem **pNew = realloc(pEList->a, sizeof(PElem*)*nNew);
    if( pNew==0 ){
      pik_error(p, 0, 0);
      pik_elem_free(p, pElem);
      return pEList;
    }
    pEList->nAlloc = nNew;
    pEList->a = pNew;
  }
  pEList->a[pEList->n++] = pElem;
  p->list = pEList;
  return pEList;
}

/* Convert an element class name into a PClass pointer
*/
static const PClass *pik_find_class(PToken *pId){
  int first = 0;
  int last = count(aClass) - 1;
  do{
    int mid = (first+last)/2;
    int c = strncmp(aClass[mid].zName, pId->z, pId->n);
    if( c==0 ){
      c = aClass[mid].zName[pId->n]!=0;
      if( c==0 ) return &aClass[mid];
    }
    if( c<0 ){
      first = mid + 1;
    }else{
      last = mid - 1;
    }
  }while( first<=last );
  return 0;
}

/* Allocate and return a new PElem object.
**
** If pId!=0 then pId is an identifier that defines the element class.
** If pStr!=0 then it is a STRING literal that defines a text object.
** If pSublist!=0 then this is a [...] object. If all three parameters
** are NULL then this is a no-op object used to define a PLACENAME.
*/
static PElem *pik_elem_new(Pik *p, PToken *pId, PToken *pStr,PEList *pSublist){
  PElem *pNew;
  int miss = 0;

  if( p->nErr ) return 0;
  pNew = malloc( sizeof(*pNew) );
  if( pNew==0 ){
    pik_error(p,0,0);
    pik_elist_free(p, pSublist);
    return 0;
  }
  memset(pNew, 0, sizeof(*pNew));
  p->cur = pNew;
  p->nTPath = 1;
  p->thenFlag = 0;
  if( p->list==0 || p->list->n==0 ){
    pNew->ptAt.x = pNew->ptAt.y = 0.0;
  }else{
    PElem *pPrior = p->list->a[p->list->n-1];
    pNew->ptAt = pPrior->ptExit;
    switch( p->eDir ){
      default:         pNew->eWith = CP_W;   break;
      case DIR_LEFT:   pNew->eWith = CP_E;   break;
      case DIR_UP:     pNew->eWith = CP_S;   break;
      case DIR_DOWN:   pNew->eWith = CP_N;   break;
    }
  }
  p->aTPath[0] = pNew->ptAt;
  pNew->with = pNew->ptAt;
  pNew->outDir = pNew->inDir = p->eDir;
  pNew->iLayer = (int)pik_value(p, "layer", 5, &miss);
  if( miss ) pNew->iLayer = 1000;
  if( pNew->iLayer<0 ) pNew->iLayer = 0;
  if( pSublist ){
    pNew->type = &sublistClass;
    pNew->pSublist = pSublist;
    sublistClass.xInit(p,pNew);
    return pNew;
  }
  if( pStr ){
    PToken n;
    n.z = "text";
    n.n = 4;
    pNew->type = pik_find_class(&n);
    assert( pNew->type!=0 );
    pNew->errTok = *pStr;
    pNew->type->xInit(p, pNew);
    pik_add_txt(p, pStr, pStr->eCode);
    return pNew;
  }
  if( pId ){
    pNew->errTok = *pId;
    const PClass *pClass = pik_find_class(pId);
    if( pClass ){
      pNew->type = pClass;
      pNew->sw = pik_value(p, "thickness",9,0);
      pNew->fill = pik_value(p, "fill",4,0);
      pNew->color = pik_value(p, "color",5,0);
      pClass->xInit(p, pNew);
      return pNew;
    }
    pik_error(p, pId, "unknown element type");
    pik_elem_free(p, pNew);
    return 0;
  }
  pNew->type = &noopClass;
  pNew->ptExit = pNew->ptEnter = pNew->ptAt;
  return pNew;
}

/*
** Set the output direction and exit point for an element.
*/
static void pik_elem_set_exit(PElem *pElem, int eDir){
  assert( ValidDir(eDir) );
  pElem->outDir = eDir;
  if( !pElem->type->isLine || pElem->bClose ){
    pElem->ptExit = pElem->ptAt;
    switch( pElem->outDir ){
      default:         pElem->ptExit.x += pElem->w*0.5;  break;
      case DIR_LEFT:   pElem->ptExit.x -= pElem->w*0.5;  break;
      case DIR_UP:     pElem->ptExit.y += pElem->h*0.5;  break;
      case DIR_DOWN:   pElem->ptExit.y -= pElem->h*0.5;  break;
    }
  }
}

/* Change the layout direction.
*/
static void pik_set_direction(Pik *p, int eDir){
  assert( ValidDir(eDir) );
  p->eDir = eDir;

  /* It seems to make sense to reach back into the last object and
  ** change its exit point (its ".end") to correspond to the new
  ** direction.  Things just seem to work better this way.  However,
  ** legacy PIC does *not* do this.
  **
  ** The difference can be seen in a script like this:
  **
  **      arrow; circle; down; arrow
  **
  ** You can make pikchr render the above exactly like PIC
  ** by deleting the following three lines.  But I (drh) think
  ** it works better with those lines in place.
  */
  if( p->list && p->list->n ){
    pik_elem_set_exit(p->list->a[p->list->n-1], eDir);
  }
}

/* Move all coordinates contained within an element (and within its
** substructure) by dx, dy
*/
static void pik_elem_move(PElem *pElem, PNum dx, PNum dy){
  int i;
  pElem->ptAt.x += dx;
  pElem->ptAt.y += dy;
  pElem->ptEnter.x += dx;
  pElem->ptEnter.y += dy;
  pElem->ptExit.x += dx;
  pElem->ptExit.y += dy;
  pElem->bbox.ne.x += dx;
  pElem->bbox.ne.y += dy;
  pElem->bbox.sw.x += dx;
  pElem->bbox.sw.y += dy;
  for(i=0; i<pElem->nPath; i++){
    pElem->aPath[i].x += dx;
    pElem->aPath[i].y += dy;
  }
  if( pElem->pSublist ){
    pik_elist_move(pElem->pSublist, dx, dy);
  }
}
static void pik_elist_move(PEList *pList, PNum dx, PNum dy){
  int i;
  for(i=0; i<pList->n; i++){
    pik_elem_move(pList->a[i], dx, dy);
  }
}

/*
** Check to see if it is ok to set the value of paraemeter mThis.
** Return 0 if it is ok. If it not ok, generate an appropriate
** error message and return non-zero.
**
** Flags are set in pElem so that the same element or conflicting
** elements may not be set again.
**
** To be ok, bit mThis must be clear and no more than one of
** the bits identified by mBlockers may be set.
*/
static int pik_param_ok(
  Pik *p,             /* For storing the error message (if any) */
  PElem *pElem,       /* The element under construction */
  PToken *pId,        /* Make the error point to this token */
  int mThis           /* Value we are trying to set */
){
  if( pElem->mProp & mThis ){
    pik_error(p, pId, "value is already set");
    return 1;
  }
  if( pElem->mCalc & mThis ){
    pik_error(p, pId, "value already fixed by prior constraints");
    return 1;
  }
  pElem->mProp |= mThis;
  return 0;
}


/*
** Set a numeric property like "width 7" or "radius 200%".
**
** The rAbs term is an absolute value to add in.  rRel is
** a relative value by which to change the current value.
*/
void pik_set_numprop(Pik *p, PToken *pId, PRel *pVal){
  PElem *pElem = p->cur;
  switch( pId->eType ){
    case T_HEIGHT:
      if( pik_param_ok(p, pElem, pId, A_HEIGHT) ) return;
      pElem->h = pElem->h*pVal->rRel + pVal->rAbs;
      break;
    case T_WIDTH:
      if( pik_param_ok(p, pElem, pId, A_WIDTH) ) return;
      pElem->w = pElem->w*pVal->rRel + pVal->rAbs;
      break;
    case T_RADIUS:
      if( pik_param_ok(p, pElem, pId, A_RADIUS) ) return;
      pElem->rad = pElem->rad*pVal->rRel + pVal->rAbs;
      break;
    case T_DIAMETER:
      if( pik_param_ok(p, pElem, pId, A_RADIUS) ) return;
      pElem->rad = pElem->rad*pVal->rRel + 0.5*pVal->rAbs; /* diam it 2x rad */
      break;
    case T_THICKNESS:
      if( pik_param_ok(p, pElem, pId, A_THICKNESS) ) return;
      pElem->sw = pElem->sw*pVal->rRel + pVal->rAbs;
      break;
  }
  if( pElem->type->xNumProp ){
    pElem->type->xNumProp(p, pElem, pId);
  }
  return;
}

/*
** Set a color property.  The argument is an RGB value.
*/
void pik_set_clrprop(Pik *p, PToken *pId, PNum rClr){
  PElem *pElem = p->cur;
  switch( pId->eType ){
    case T_FILL:
      if( pik_param_ok(p, pElem, pId, A_FILL) ) return;
      pElem->fill = rClr;
      break;
    case T_COLOR:
      if( pik_param_ok(p, pElem, pId, A_COLOR) ) return;
      pElem->color = rClr;
      break;
  }
  if( pElem->type->xNumProp ){
    pElem->type->xNumProp(p, pElem, pId);
  }
  return;
}

/*
** Set a "dashed" property like "dash 0.05"
**
** Use the value supplied by pVal if available.  If pVal==0, use
** a default.
*/
void pik_set_dashed(Pik *p, PToken *pId, PNum *pVal){
  PElem *pElem = p->cur;
  PNum v;
  switch( pId->eType ){
    case T_DOTTED:  {
      v = pVal==0 ? pik_value(p,"dashwid",7,0) : *pVal;
      pElem->dotted = v;
      pElem->dashed = 0.0;
      break;
    }
    case T_DASHED:  {
      v = pVal==0 ? pik_value(p,"dashwid",7,0) : *pVal;
      pElem->dashed = v;
      pElem->dotted = 0.0;
      break;
    }
  }
}

/*
** If the current path information came from a "same" or "same as"
** reset it.
*/
static void pik_reset_samepath(Pik *p){
  if( p->samePath ){
    p->samePath = 0;
    p->nTPath = 1;
  }
}


/* Add a new term to the path for a line-oriented object by transferring
** the information in the ptTo field over onto the path and into ptFrom
** resetting the ptTo.
*/
static void pik_then(Pik *p, PToken *pToken, PElem *pElem){
  int n;
  if( !pElem->type->isLine ){
    pik_error(p, pToken, "use with line-oriented objects only");
    return;
  }
  n = p->nTPath - 1;
  if( n<1 && (pElem->mProp & A_FROM)==0 ){
    pik_error(p, pToken, "no prior path points");
    return;
  }
  p->thenFlag = 1;
}

/* Advance to the next entry in p->aTPath.  Return its index.
*/
static int pik_next_rpath(Pik *p, PToken *pErr){
  int n = p->nTPath - 1;
  if( n+1>=(int)count(p->aTPath) ){
    pik_error(0, pErr, "too many path elements");
    return n;
  }
  n++;
  p->nTPath++;
  p->aTPath[n] = p->aTPath[n-1];
  p->mTPath = 0;
  return n;
}

/* Add a direction term to an element.  "up 0.5", or "left 3", or "down"
** or "down 50%".
*/
static void pik_add_direction(Pik *p, PToken *pDir, PRel *pVal){
  PElem *pElem = p->cur;
  int n;
  int dir;
  if( !pElem->type->isLine ){
    if( pDir ){
      pik_error(p, pDir, "use with line-oriented objects only");
    }else{
      PToken x = pik_next_semantic_token(&pElem->errTok);
      pik_error(p, &x, "syntax error");
    }
    return;
  }
  pik_reset_samepath(p);
  n = p->nTPath - 1;
  if( p->thenFlag || p->mTPath==3 || n==0 ){
    n = pik_next_rpath(p, pDir);
    p->thenFlag = 0;
  }
  dir = pDir ? pDir->eCode : p->eDir;
  switch( dir ){
    case DIR_UP:
       if( p->mTPath & 2 ) n = pik_next_rpath(p, pDir);
       p->aTPath[n].y += pVal->rAbs + pElem->h*pVal->rRel;
       p->mTPath |= 2;
       break;
    case DIR_DOWN:
       if( p->mTPath & 2 ) n = pik_next_rpath(p, pDir);
       p->aTPath[n].y -= pVal->rAbs + pElem->h*pVal->rRel;
       p->mTPath |= 2;
       break;
    case DIR_RIGHT:
       if( p->mTPath & 1 ) n = pik_next_rpath(p, pDir);
       p->aTPath[n].x += pVal->rAbs + pElem->w*pVal->rRel;
       p->mTPath |= 1;
       break;
    case DIR_LEFT:
       if( p->mTPath & 1 ) n = pik_next_rpath(p, pDir);
       p->aTPath[n].x -= pVal->rAbs + pElem->w*pVal->rRel;
       p->mTPath |= 1;
       break;
  }
  pElem->outDir = dir;
}

/* Process a movement attribute of one of these forms:
**
**         pDist   pHdgKW  rHdg    pEdgept
**     GO distance HEADING angle
**     GO distance               compasspoint
*/
static void pik_move_hdg(
  Pik *p,              /* The Pikchr context */
  PRel *pDist,         /* Distance to move */
  PToken *pHeading,    /* "heading" keyword if present */
  PNum rHdg,           /* Angle argument to "heading" keyword */
  PToken *pEdgept,     /* EDGEPT keyword "ne", "sw", etc... */
  PToken *pErr         /* Token to use for error messages */
){
  PElem *pElem = p->cur;
  int n;
  PNum rDist = pDist->rAbs + pik_value(p,"linewid",7,0)*pDist->rRel;
  if( !pElem->type->isLine ){
    pik_error(p, pErr, "use with line-oriented objects only");
    return;
  }
  pik_reset_samepath(p);
  do{
    n = pik_next_rpath(p, pErr);
  }while( n<1 );
  if( pHeading ){
    if( rHdg<0.0 || rHdg>360.0 ){
      pik_error(p, pHeading, "headings should be between 0 and 360");
      return;
    }
  }else if( pEdgept->eEdge==CP_C ){
    pik_error(p, pEdgept, "syntax error");
    return;
  }else{
    rHdg = pik_hdg_angle[pEdgept->eEdge];
  }
  if( rHdg<=45.0 ){
    pElem->outDir = DIR_UP;
  }else if( rHdg<=135.0 ){
    pElem->outDir = DIR_RIGHT;
  }else if( rHdg<=225.0 ){
    pElem->outDir = DIR_DOWN;
  }else if( rHdg<=315.0 ){
    pElem->outDir = DIR_LEFT;
  }else{
    pElem->outDir = DIR_UP;
  }
  rHdg *= 0.017453292519943295769;  /* degrees to radians */
  p->aTPath[n].x += rDist*sin(rHdg);
  p->aTPath[n].y += rDist*cos(rHdg);
  p->mTPath = 2;
}


/* Process a movement attribute of the form "right until even with ..."
**
** pDir is the first keyword, "right" or "left" or "up" or "down".
** The movement is in that direction until its closest approach to
** the point specified by pPoint.
*/
static void pik_evenwith(Pik *p, PToken *pDir, PPoint *pPlace){
  PElem *pElem = p->cur;
  int n;
  if( !pElem->type->isLine ){
    pik_error(p, pDir, "use with line-oriented objects only");
    return;
  }
  pik_reset_samepath(p);
  n = p->nTPath - 1;
  if( p->thenFlag || p->mTPath==3 || n==0 ){
    n = pik_next_rpath(p, pDir);
    p->thenFlag = 0;
  }
  switch( pDir->eCode ){
    case DIR_DOWN:
    case DIR_UP:
       if( p->mTPath & 2 ) n = pik_next_rpath(p, pDir);
       p->aTPath[n].y = pPlace->y;
       p->mTPath |= 2;
       break;
    case DIR_RIGHT:
    case DIR_LEFT:
       if( p->mTPath & 1 ) n = pik_next_rpath(p, pDir);
       p->aTPath[n].x = pPlace->x;
       p->mTPath |= 1;
       break;
  }
  pElem->outDir = pDir->eCode;
}

/* Set the "from" of an element
*/
static void pik_set_from(Pik *p, PElem *pElem, PToken *pTk, PPoint *pPt){
  if( !pElem->type->isLine ){
    pik_error(p, pTk, "use \"at\" to position this object");
    return;
  }
  if( pElem->mProp & A_FROM ){
    pik_error(p, pTk, "line start location already fixed");
    return;
  }
  if( pElem->bClose ){
    pik_error(p, pTk, "polygon is closed");
    return;
  }
  if( p->nTPath>1 ){
    PNum dx = pPt->x - p->aTPath[0].x;
    PNum dy = pPt->y - p->aTPath[0].y;
    int i;
    for(i=1; i<p->nTPath; i++){
      p->aTPath[i].x += dx;
      p->aTPath[i].y += dy;
    }
  }
  p->aTPath[0] = *pPt;
  p->mTPath = 3;
  pElem->mProp |= A_FROM;
}

/* Set the "to" of an element
*/
static void pik_add_to(Pik *p, PElem *pElem, PToken *pTk, PPoint *pPt){
  int n = p->nTPath-1;
  if( !pElem->type->isLine ){
    pik_error(p, pTk, "use \"at\" to position this object");
    return;
  }
  if( pElem->bClose ){
    pik_error(p, pTk, "polygon is closed");
    return;
  }
  if( n==0 || p->mTPath==3 || p->thenFlag ){
    n = pik_next_rpath(p, pTk);
  }
  p->aTPath[n] = *pPt;
  p->mTPath = 3;
}

static void pik_close_path(Pik *p, PToken *pErr){
  PElem *pElem = p->cur;
  if( p->nTPath<3 ){
    pik_error(p, pErr,
      "need at least 3 vertexes in order to close the polygon");
    return;
  }
  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( p->nErr==0 && 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;

  if( pElem->type->isLine ){
    pik_error(p, pErrTok, "use \"from\" and \"to\" to position this object");
    return;
  }
  if( pElem->mProp & A_AT ){
    pik_error(p, pErrTok, "location fixed by prior \"at\"");
    return;
  }
  pElem->mProp |= A_AT;
  pElem->eWith = pEdge ? pEdge->eEdge : CP_C;
  pElem->with = *pAt;
}

/*
** Try to add a text attribute to an element
*/
static void pik_add_txt(Pik *p, PToken *pTxt, int iPos){
  PElem *pElem = p->cur;
  PToken *pT;
  if( pElem->nTxt >= count(pElem->aTxt) ){
    pik_error(p, pTxt, "too many text terms");
    return;
  }
  pT = &pElem->aTxt[pElem->nTxt++];
  *pT = *pTxt;
  pT->eCode = iPos;
}

/* Merge "text-position" flags
*/
static int pik_text_position(int iPrev, PToken *pFlag){
  int iRes = iPrev;
  switch( pFlag->eType ){
    case T_LJUST:    iRes = (iRes&~TP_JMASK) | TP_LJUST;  break;
    case T_RJUST:    iRes = (iRes&~TP_JMASK) | TP_RJUST;  break;
    case T_ABOVE:    iRes = (iRes&~TP_VMASK) | TP_ABOVE;  break;
    case T_CENTER:   iRes = (iRes&~TP_VMASK) | TP_CENTER; break;
    case T_BELOW:    iRes = (iRes&~TP_VMASK) | TP_BELOW;  break;
    case T_ITALIC:   iRes |= TP_ITALIC;                   break; 
    case T_BOLD:     iRes |= TP_BOLD;                     break; 
    case T_ALIGNED:  iRes |= TP_ALIGN;                    break;
    case T_BIG:      if( iRes & TP_BIG ) iRes |= TP_XTRA;
                     else iRes = (iRes &~TP_SZMASK)|TP_BIG;   break;
    case T_SMALL:    if( iRes & TP_SMALL ) iRes |= TP_XTRA;
                     else iRes = (iRes &~TP_SZMASK)|TP_SMALL; break;
  }
  return iRes;
}

/*
** Table of scale-factor estimates for variable-width characters.
** Actual character widths vary by font.  These numbers are only
** guesses.  And this table only provides data for ASCII.
**
** 100 means normal width.
*/
static const unsigned char awChar[] = {
  /* Skip initial 32 control characters */
  /* ' ' */  45,
  /* '!' */  55,
  /* '"' */  62,
  /* '#' */  115,
  /* '$' */  90,
  /* '%' */  132,
  /* '&' */  125,
  /* '\''*/  40,

  /* '(' */  55,
  /* ')' */  55,
  /* '*' */  71,
  /* '+' */  115,
  /* ',' */  45,
  /* '-' */  48,
  /* '.' */  45,
  /* '/' */  50,

  /* '0' */  91,
  /* '1' */  91,
  /* '2' */  91,
  /* '3' */  91,
  /* '4' */  91,
  /* '5' */  91,
  /* '6' */  91,
  /* '7' */  91,

  /* '8' */  91,
  /* '9' */  91,
  /* ':' */  50,
  /* ';' */  50,
  /* '<' */ 120,
  /* '=' */ 120,
  /* '>' */ 120,
  /* '?' */  78,

  /* '@' */ 142,
  /* 'A' */ 102,
  /* 'B' */ 105,
  /* 'C' */ 110,
  /* 'D' */ 115,
  /* 'E' */ 105,
  /* 'F' */  98,
  /* 'G' */ 105,

  /* 'H' */ 125,
  /* 'I' */  58,
  /* 'J' */  58,
  /* 'K' */ 107,
  /* 'L' */  95,
  /* 'M' */ 145,
  /* 'N' */ 125,
  /* 'O' */ 115,

  /* 'P' */  95,
  /* 'Q' */ 115,
  /* 'R' */ 107,
  /* 'S' */  95,
  /* 'T' */  97,
  /* 'U' */ 118,
  /* 'V' */ 102,
  /* 'W' */ 150,

  /* 'X' */ 100,
  /* 'Y' */  93,
  /* 'Z' */ 100,
  /* '[' */  58,
  /* '\\'*/  50,
  /* ']' */  58,
  /* '^' */ 119,
  /* '_' */  72,

  /* '`' */  72,
  /* 'a' */  86,
  /* 'b' */  92,
  /* 'c' */  80,
  /* 'd' */  92,
  /* 'e' */  85,
  /* 'f' */  52,
  /* 'g' */  92,

  /* 'h' */  92,
  /* 'i' */  47,
  /* 'j' */  47,
  /* 'k' */  88,
  /* 'l' */  48,
  /* 'm' */ 135,
  /* 'n' */  92,
  /* 'o' */  86,

  /* 'p' */  92,
  /* 'q' */  92,
  /* 'r' */  69,
  /* 's' */  75,
  /* 't' */  58,
  /* 'u' */  92,
  /* 'v' */  80,
  /* 'w' */ 121,

  /* 'x' */  81,
  /* 'y' */  80,
  /* 'z' */  76,
  /* '{' */  91,
  /* '|'*/   49,
  /* '}' */  91,
  /* '~' */ 118,
};

/* Return an estimate of the width of the displayed characters
** in a character string.  The returned value is 100 times the
** average character width.
**
** Omit "\" used to escape characters.  And count entities like
** "&lt;" as a single character.  Multi-byte UTF8 characters count
** as a single character.
**
** Attempt to scale the answer by the actual characters seen.  Wide
** characters count more than narrow characters.  But the widths are
** only guesses.
*/
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++){
    char c = z[j];
    if( c=='\\' && z[j+1]!='&' ){
      c = z[++j];
    }else if( c=='&' ){
      int k;
      for(k=j+1; k<j+7 && z[k]!=0 && z[k]!=';'; k++){}
      if( z[k]==';' ) j = k;
      cnt += 150;
      continue;
    }
    if( (c & 0xc0)==0xc0 ){
      while( j+1<n-1 && (z[j+1]&0xc0)==0x80 ){ j++; }
      cnt += 100;
      continue;
    }
    if( c>=0x20 && c<=0x7e ){
      cnt += awChar[c-0x20];
    }else{
      cnt += 100;
    }
  }
  return cnt;
}

/* Adjust the width, height, and/or radius of the object so that
** it fits around the text that has been added so far.
**
**    (1) Only text specified prior to this attribute is considered.
**    (2) The text size is estimated based on the charht and charwid
**        variable settings.
**    (3) The fitted attributes can be changed again after this
**        attribute, for example using "width 110%" if this auto-fit
**        underestimates the text size.
**    (4) Previously set attributes will not be altered.  In other words,
**        "width 1in fit" might cause the height to change, but the
**        width is now set.
**    (5) This only works for attributes that have an xFit method.
*/
static void pik_size_to_fit(Pik *p, PToken *pFit){
  PElem *pElem;
  PNum w, h;
  PBox bbox;
  if( p->nErr ) return;
  pElem = p->cur;

  if( pElem->nTxt==0 ){
    pik_error(0, pFit, "no text to fit to");
    return;
  }
  if( pElem->type->xFit==0 ) return;
  pik_bbox_init(&bbox);
  pik_compute_layout_settings(p);
  pik_append_txt(p, pElem, &bbox);
  w = (bbox.ne.x - bbox.sw.x) + p->charWidth;
  h = (bbox.ne.y - bbox.sw.y) + 0.5*p->charHeight;
  pElem->type->xFit(p, pElem, w, h);
}

/* Set a local variable name to "val".
**
** The name might be a built-in variable or a color name.  In either case,
** a new application-defined variable is set.  Since app-defined variables
** are searched first, this will override any built-in variables.
*/
static void pik_set_var(Pik *p, PToken *pId, PNum val, PToken *pOp){
  PVar *pVar = p->pVar;
  while( pVar ){
    if( pik_token_eq(pId,pVar->zName)==0 ) break;
    pVar = pVar->pNext;
  }
  if( pVar==0 ){
    char *z;
    pVar = malloc( pId->n+1 + sizeof(*pVar) );
    if( pVar==0 ){
      pik_error(p, 0, 0);
      return;
    }
    pVar->zName = z = (char*)&pVar[1];
    memcpy(z, pId->z, pId->n);
    z[pId->n] = 0;
    pVar->pNext = p->pVar;
    pVar->val = pik_value(p, pId->z, pId->n, 0);
    p->pVar = pVar;
  }
  switch( pOp->eCode ){
    case T_PLUS:  pVar->val += val; break;
    case T_STAR:  pVar->val *= val; break;
    case T_MINUS: pVar->val -= val; break;
    case T_SLASH:
      if( val==0.0 ){
        pik_error(p, pOp, "division by zero");
      }else{
        pVar->val /= val;
      }
      break;
    default:      pVar->val = val; break;
  }
  p->bLayoutVars = 0;  /* Clear the layout setting cache */
}

/*
** Search for the variable named z[0..n-1] in:
**
**   * Application defined variables
**   * Built-in variables
**
** Return the value of the variable if found.  If not found
** return 0.0.  Also if pMiss is not NULL, then set it to 1
** if not found.
**
** This routine is a subroutine to pik_get_var().  But it is also
** used by object implementations to look up (possibly overwritten)
** values for built-in variables like "boxwid".
*/
static PNum pik_value(Pik *p, const char *z, int n, int *pMiss){
  PVar *pVar;
  int first, last, mid, c;
  for(pVar=p->pVar; pVar; pVar=pVar->pNext){
    if( strncmp(pVar->zName,z,n)==0 && pVar->zName[n]==0 ){
      return pVar->val;
    }
  }
  first = 0;
  last = count(aBuiltin)-1;
  while( first<=last ){
    mid = (first+last)/2;
    c = strncmp(z,aBuiltin[mid].zName,n);
    if( c==0 && aBuiltin[mid].zName[n] ) c = 1;
    if( c==0 ) return aBuiltin[mid].val;
    if( c>0 ){
      first = mid+1;
    }else{
      last = mid-1;
    }
  }
  if( pMiss ) *pMiss = 1;
  return 0.0;
}

/*
** Look up a color-name.  Unlike other names in this program, the
** color-names are not case sensitive.  So "DarkBlue" and "darkblue"
** and "DARKBLUE" all find the same value (139).
**
** If not found, return -1.0.  Also post an error if p!=NULL.
**
** Special color names "None" and "Off" return -1.0 without causing
** an error.
*/
static PNum pik_lookup_color(Pik *p, PToken *pId){
  int first, last, mid, c = 0;
  first = 0;
  last = count(aColor)-1;
  while( first<=last ){
    const char *zClr;
    int c1, c2;
    unsigned int i;
    mid = (first+last)/2;
    zClr = aColor[mid].zName;
    for(i=0; i<pId->n; i++){
      c1 = zClr[i]&0x7f;
      if( isupper(c1) ) c1 = tolower(c1);
      c2 = pId->z[i]&0x7f;
      if( isupper(c2) ) c2 = tolower(c2);
      c = c2 - c1;
      if( c ) break;
    }
    if( c==0 && aColor[mid].zName[pId->n] ) c = -1;
    if( c==0 ) return (double)aColor[mid].val;
    if( c>0 ){
      first = mid+1;
    }else{
      last = mid-1;
    }
  }
  if( p ) pik_error(p, pId, "not a known color name");
  return -1.0;
}

/* Get the value of a variable.
**
** Search in order:
**
**    *  Application defined variables
**    *  Built-in variables
**    *  Color names
**
** If no such variable is found, throw an error.
*/
static PNum pik_get_var(Pik *p, PToken *pId){
  int miss = 0;
  PNum v = pik_value(p, pId->z, pId->n, &miss);
  if( miss==0 ) return v;
  v = pik_lookup_color(0, pId);
  if( v>=0.0 ) return v;
  pik_error(p,pId,"no such variable");
  return 0.0;
}

/* Convert a T_NTH token (ex: "2nd", "5th"} into a numeric value and
** return that value.  Throw an error if the value is too big.
*/
static short int pik_nth_value(Pik *p, PToken *pNth){
  int i = atoi(pNth->z);
  if( i>1000 ){
    pik_error(p, pNth, "value too big - max '1000th'");
    i = 1;
  }
  if( i==0 && pik_token_eq(pNth,"first")==0 ) i = 1;
  return i;
}

/* Search for the NTH element.
**
** If pBasis is not NULL then it should be a [] element.  Use the
** sublist of that [] element for the search.  If pBasis is not a []
** element, then throw an error.
**
** The pNth token describes the N-th search.  The pNth->eCode value
** is one more than the number of items to skip.  It is negative
** to search backwards.  If pNth->eType==T_ID, then it is the name
** of a class to search for.  If pNth->eType==T_LB, then
** search for a [] object.  If pNth->eType==T_LAST, then search for
** any type.
**
** Raise an error if the item is not found.
*/
static PElem *pik_find_nth(Pik *p, PElem *pBasis, PToken *pNth){
  PEList *pList;
  int i, n;
  const PClass *pClass;
  if( pBasis==0 ){
    pList = p->list;
  }else{
    pList = pBasis->pSublist;
  }
  if( pList==0 ){
    pik_error(p, pNth, "no such object");
    return 0;
  }
  if( pNth->eType==T_LAST ){
    pClass = 0;
  }else if( pNth->eType==T_LB ){
    pClass = &sublistClass;
  }else{
    pClass = pik_find_class(pNth);
    if( pClass==0 ){
      pik_error(0, pNth, "no such object type");
      return 0;
    }
  }
  n = pNth->eCode;
  if( n<0 ){
    for(i=pList->n-1; i>=0; i--){
      PElem *pElem = pList->a[i];
      if( pClass && pElem->type!=pClass ) continue;
      n++;
      if( n==0 ){ return pElem; }
    }
  }else{
    for(i=0; i<pList->n; i++){
      PElem *pElem = pList->a[i];
      if( pClass && pElem->type!=pClass ) continue;
      n--;
      if( n==0 ){ return pElem; }
    }
  }
  pik_error(p, pNth, "no such object");
  return 0;
}

/* Search for an element by name.
**
** Search in pBasis->pSublist if pBasis is not NULL.  If pBasis is NULL
** then search in p->list.
*/
static PElem *pik_find_byname(Pik *p, PElem *pBasis, PToken *pName){
  PEList *pList;
  int i, j;
  if( pBasis==0 ){
    pList = p->list;
  }else{
    pList = pBasis->pSublist;
  }
  if( pList==0 ){
    pik_error(p, pName, "no such object");
    return 0;
  }
  /* First look explicitly tagged objects */
  for(i=pList->n-1; i>=0; i--){
    PElem *pElem = pList->a[i];
    if( pElem->zName && pik_token_eq(pName,pElem->zName)==0 ){
      return pElem;
    }
  }
  /* If not found, do a second pass looking for any object containing
  ** text which exactly matches pName */
  for(i=pList->n-1; i>=0; i--){
    PElem *pElem = pList->a[i];
    for(j=0; j<pElem->nTxt; j++){
      if( pElem->aTxt[j].n==pName->n+2
       && memcmp(pElem->aTxt[j].z+1,pName->z,pName->n)==0 ){
        return pElem;
      }
    }
  }
  pik_error(p, pName, "no such object");
  return 0;
}

/* Change most of the settings for the current object to be the
** same as the pOther object, or the most recent element of the same
** type if pOther is NULL.
*/
static void pik_same(Pik *p, PElem *pOther, PToken *pErrTok){
  PElem *pElem = p->cur;
  if( p->nErr ) return;
  if( pOther==0 ){
    int i;
    for(i=(p->list ? p->list->n : 0)-1; i>=0; i--){
      pOther = p->list->a[i];
      if( pOther->type==pElem->type ) break;
    }
    if( i<0 ){
      pik_error(p, pErrTok, "no prior objects of the same type");
      return;
    }
  }
  if( pOther->nPath && pElem->type->isLine ){
    PNum dx, dy;
    int i;
    dx = p->aTPath[0].x - pOther->aPath[0].x;
    dy = p->aTPath[0].y - pOther->aPath[0].y;
    for(i=1; i<pOther->nPath; i++){
      p->aTPath[i].x = pOther->aPath[i].x + dx;
      p->aTPath[i].y = pOther->aPath[i].y + dy;
    }
    p->nTPath = pOther->nPath;
    p->mTPath = 3;
    p->samePath = 1;
  }
  if( !pElem->type->isLine ){
    pElem->w = pOther->w;
    pElem->h = pOther->h;
  }
  pElem->rad = pOther->rad;
  pElem->sw = pOther->sw;
  pElem->dashed = pOther->dashed;
  pElem->dotted = pOther->dotted;
  pElem->fill = pOther->fill;
  pElem->color = pOther->color;
  pElem->cw = pOther->cw;
  pElem->larrow = pOther->larrow;
  pElem->rarrow = pOther->rarrow;
  pElem->bClose = pOther->bClose;
  pElem->bChop = pOther->bChop;
  pElem->inDir = pOther->inDir;
  pElem->outDir = pOther->outDir;
  pElem->iLayer = pOther->iLayer;
}


/* Return a "Place" associated with element pElem.  If pEdge is NULL
** return the center of the object.  Otherwise, return the corner
** described by pEdge.
*/
static PPoint pik_place_of_elem(Pik *p, PElem *pElem, PToken *pEdge){
  PPoint pt;
  const PClass *pClass;
  pt.x = 0.0;
  pt.y = 0.0;
  if( pElem==0 ) return pt;
  if( pEdge==0 ){
    return pElem->ptAt;
  }
  pClass = pElem->type;
  if( pEdge->eType==T_EDGEPT || (pEdge->eEdge>0 && pEdge->eEdge<CP_END) ){
    pt = pClass->xOffset(p, pElem, pEdge->eEdge);
    pt.x += pElem->ptAt.x;
    pt.y += pElem->ptAt.y;
    return pt;
  }
  if( pEdge->eType==T_START ){
    return pElem->ptEnter;
  }else{
    return pElem->ptExit;
  }
}

/* Do a linear interpolation of two positions.
*/
static PPoint pik_position_between(PNum x, PPoint p1, PPoint p2){
  PPoint out;
  if( x<0.0 ) x = 0.0;
  if( x>1.0 ) x = 1.0;
  out.x = p2.x*x + p1.x*(1.0 - x);
  out.y = p2.y*x + p1.y*(1.0 - x);
  return out;
}

/* Compute the position that is dist away from pt at an heading angle of r
**
** The angle is a compass heading in degrees.  North is 0 (or 360).
** East is 90.  South is 180.  West is 270.  And so forth.
*/
static PPoint pik_position_at_angle(PNum dist, PNum r, PPoint pt){
  r *= 0.017453292519943295769;  /* degrees to radians */
  pt.x += dist*sin(r);
  pt.y += dist*cos(r);
  return pt;
}

/* Compute the position that is dist away at a compass point
*/
static PPoint pik_position_at_hdg(PNum dist, PToken *pD, PPoint pt){
  return pik_position_at_angle(dist, pik_hdg_angle[pD->eEdge], pt);
}

/* Return the coordinates for the n-th vertex of a line.
*/
static PPoint pik_nth_vertex(Pik *p, PToken *pNth, PToken *pErr, PElem *pObj){
  static const PPoint zero;
  int n;
  if( p->nErr || pObj==0 ) return p->aTPath[0];
  if( !pObj->type->isLine ){
    pik_error(p, pErr, "object is not a line");
    return zero;
  }
  n = atoi(pNth->z);
  if( n<1 || n>pObj->nPath ){
    pik_error(p, pNth, "no such vertex");
    return zero;
  }
  return pObj->aPath[n-1];
}

/* Return the value of a property of an object.
*/
static PNum pik_property_of(PElem *pElem, PToken *pProp){
  PNum v = 0.0;
  switch( pProp->eType ){
    case T_HEIGHT:    v = pElem->h;            break;
    case T_WIDTH:     v = pElem->w;            break;
    case T_RADIUS:    v = pElem->rad;          break;
    case T_DIAMETER:  v = pElem->rad*2.0;      break;
    case T_THICKNESS: v = pElem->sw;           break;
    case T_DASHED:    v = pElem->dashed;       break;
    case T_DOTTED:    v = pElem->dotted;       break;
    case T_FILL:      v = pElem->fill;         break;
    case T_COLOR:     v = pElem->color;        break;
    case T_X:         v = pElem->ptAt.x;       break;
    case T_Y:         v = pElem->ptAt.y;       break;
    case T_TOP:       v = pElem->bbox.ne.y;    break;
    case T_BOTTOM:    v = pElem->bbox.sw.y;    break;
    case T_LEFT:      v = pElem->bbox.sw.x;    break;
    case T_RIGHT:     v = pElem->bbox.ne.x;    break;
  }
  return v;
}

/* Compute one of the built-in functions
*/
static PNum pik_func(Pik *p, PToken *pFunc, PNum x, PNum y){
  PNum v = 0.0;
  switch( pFunc->eCode ){
    case FN_ABS:  v = v<0.0 ? -v : v;  break;
    case FN_COS:  v = cos(x);          break;
    case FN_INT:  v = rint(x);         break;
    case FN_SIN:  v = sin(x);          break;
    case FN_SQRT:
      if( x<0.0 ){
        pik_error(p, pFunc, "sqrt of negative value");
        v = 0.0;
      }else{
        v = sqrt(x);
      }
      break;
    case FN_MAX:  v = x>y ? x : y;   break;
    case FN_MIN:  v = x<y ? x : y;   break;
    default:      v = 0.0;
  }
  return v;
}

/* Attach a name to an element
*/
static void pik_elem_setname(Pik *p, PElem *pElem, PToken *pName){
  if( pElem==0 ) return;
  if( pName==0 ) return;
  free(pElem->zName);
  pElem->zName = malloc(pName->n+1);
  if( pElem->zName==0 ){
    pik_error(p,0,0);
  }else{
    memcpy(pElem->zName,pName->z,pName->n);
    pElem->zName[pName->n] = 0;
  }
  return;
}

/*
** Search for object located at *pCenter that has an xChop method.
** Return a pointer to the object, or NULL if not found.
*/
static PElem *pik_find_chopper(PEList *pList, PPoint *pCenter){
  int i;
  if( pList==0 ) return 0;
  for(i=pList->n-1; i>=0; i--){
    PElem *pElem = pList->a[i];
    if( pElem->type->xChop!=0
     && pElem->ptAt.x==pCenter->x
     && pElem->ptAt.y==pCenter->y
    ){
      return pElem;
    }else if( pElem->pSublist ){
      pElem = pik_find_chopper(pElem->pSublist,pCenter);
      if( pElem ) return pElem;
    }
  }
  return 0;
}

/*
** There is a line traveling from pFrom to pTo.
**
** If point pTo is the exact enter of a choppable object,
** then adjust pTo by the appropriate amount in the direction
** of pFrom.
*/
static void pik_autochop(Pik *p, PPoint *pFrom, PPoint *pTo){
  PElem *pElem = pik_find_chopper(p->list, pTo);
  if( pElem ){
    *pTo = pElem->type->xChop(p, pElem, pFrom);
  }
}

/* This routine runs after all attributes have been received
** on an element.
*/
static void pik_after_adding_attributes(Pik *p, PElem *pElem){
  int i;
  PPoint ofst;
  PNum dx, dy;

  if( p->nErr ) return;

  /* Position block elements */
  if( pElem->type->isLine==0 ){
    ofst = pik_elem_offset(p, pElem, pElem->eWith);
    dx = (pElem->with.x - ofst.x) - pElem->ptAt.x;
    dy = (pElem->with.y - ofst.y) - pElem->ptAt.y;
    if( dx!=0 || dy!=0 ){
      pik_elem_move(pElem, dx, dy);
    }
  }

  /* For a line object with no movement specified, a single movement
  ** of the default length in the current direction
  */
  if( pElem->type->isLine && p->nTPath<2 ){
    pik_next_rpath(p, 0);
    assert( p->nTPath==2 );
    switch( pElem->inDir ){
      default:        p->aTPath[1].x += pElem->w; break;
      case DIR_DOWN:  p->aTPath[1].y -= pElem->h; break;
      case DIR_LEFT:  p->aTPath[1].x -= pElem->w; break;
      case DIR_UP:    p->aTPath[1].y += pElem->h; break;
    }
    if( pElem->type->xInit==arcInit ){
      p->eDir = pElem->outDir = (pElem->inDir + (pElem->cw ? 1 : 3))%4;
      switch( pElem->outDir ){
        default:        p->aTPath[1].x += pElem->w; break;
        case DIR_DOWN:  p->aTPath[1].y -= pElem->h; break;
        case DIR_LEFT:  p->aTPath[1].x -= pElem->w; break;
        case DIR_UP:    p->aTPath[1].y += pElem->h; break;
      }
    }
  }

  /* Initialize the bounding box prior to running xCheck */
  pik_bbox_init(&pElem->bbox);

  /* Run object-specific code */
  if( pElem->type->xCheck!=0 ){
    pElem->type->xCheck(p,pElem);
    if( p->nErr ) return;
  }

  /* Compute final bounding box, entry and exit points, center
  ** point (ptAt) and path for the element
  */
  if( pElem->type->isLine ){
    pElem->aPath = malloc( sizeof(PPoint)*p->nTPath );
    if( pElem->aPath==0 ){
      pik_error(p, 0, 0);
      return;
    }else{
      pElem->nPath = p->nTPath;
      for(i=0; i<p->nTPath; i++){
        pElem->aPath[i] = p->aTPath[i];
      }
    }

    /* "chop" processing:
    ** If the line goes to the center of an object with an
    ** xChop method, then use the xChop method to trim the line.
    */
    if( pElem->bChop && pElem->nPath>=2 ){
      int n = pElem->nPath;
      pik_autochop(p, &pElem->aPath[n-2], &pElem->aPath[n-1]);
      pik_autochop(p, &pElem->aPath[1], &pElem->aPath[0]);
    }

    pElem->ptEnter = pElem->aPath[0];
    pElem->ptExit = pElem->aPath[pElem->nPath-1];

    /* Compute the center of the line based on the bounding box over
    ** the vertexes.  This is a difference from PIC.  In Pikchr, the
    ** center of a line is the center of its bounding box. In PIC, the
    ** center of a line is halfway between its .start and .end.  For
    ** straight lines, this is the same point, but for multi-segment
    ** lines the result is usually diferent */
    for(i=0; i<pElem->nPath; i++){
      pik_bbox_add_xy(&pElem->bbox, pElem->aPath[i].x, pElem->aPath[i].y);
    }
    pElem->ptAt.x = (pElem->bbox.ne.x + pElem->bbox.sw.x)/2.0;
    pElem->ptAt.y = (pElem->bbox.ne.y + pElem->bbox.sw.y)/2.0;

    /* Reset the width and height of the object to be the width and height
    ** of the bounding box over vertexes */
    pElem->w = pElem->bbox.ne.x - pElem->bbox.sw.x;
    pElem->h = pElem->bbox.ne.y - pElem->bbox.sw.y;

    /* If this is a polygon (if it has the "close" attribute), then
    ** adjust the exit point */
    if( pElem->bClose ){
      /* For "closed" lines, the .end is one of the .e, .s, .w, or .n
      ** points of the bounding box, as with block objects. */
      pik_elem_set_exit(pElem, pElem->inDir);
    }
  }else{
    PNum w2 = pElem->w/2.0;
    PNum h2 = pElem->h/2.0;
    pElem->ptEnter = pElem->ptAt;
    pElem->ptExit = pElem->ptAt;
    switch( pElem->inDir ){
      default:         pElem->ptEnter.x -= w2;  break;
      case DIR_LEFT:   pElem->ptEnter.x += w2;  break;
      case DIR_UP:     pElem->ptEnter.y -= h2;  break;
      case DIR_DOWN:   pElem->ptEnter.y += h2;  break;
    }
    switch( pElem->outDir ){
      default:         pElem->ptExit.x += w2;  break;
      case DIR_LEFT:   pElem->ptExit.x -= w2;  break;
      case DIR_UP:     pElem->ptExit.y += h2;  break;
      case DIR_DOWN:   pElem->ptExit.y -= h2;  break;
    }
    pik_bbox_add_xy(&pElem->bbox, pElem->ptAt.x - w2, pElem->ptAt.y - h2);
    pik_bbox_add_xy(&pElem->bbox, pElem->ptAt.x + w2, pElem->ptAt.y + h2);
  }
  p->eDir = pElem->outDir;
}

/* Show basic information about each element as a comment in the
** generated HTML.  Used for testing and debugging.  Activated
** by the (undocumented) "debug = 1;"
** command.
*/
static void pik_elem_render(Pik *p, PElem *pElem){
  char *zDir;
  if( pElem==0 ) return;
  pik_append(p,"<!-- ", -1);
  if( pElem->zName ){
    pik_append_text(p, pElem->zName, -1, 0);
    pik_append(p, ": ", 2);
  }
  pik_append_text(p, pElem->type->zName, -1, 0);
  if( pElem->nTxt ){
    pik_append(p, " \"", 2);
    pik_append_text(p, pElem->aTxt[0].z+1, pElem->aTxt[0].n-2, 1);
    pik_append(p, "\"", 1);
  }
  pik_append_num(p, " w=", pElem->w);
  pik_append_num(p, " h=", pElem->h);
  pik_append_point(p, " center=", &pElem->ptAt);
  pik_append_point(p, " enter=", &pElem->ptEnter);
  switch( pElem->outDir ){
    default:        zDir = " right";  break;
    case DIR_LEFT:  zDir = " left";   break;
    case DIR_UP:    zDir = " up";     break;
    case DIR_DOWN:  zDir = " down";   break;
  }
  pik_append_point(p, " exit=", &pElem->ptExit);
  pik_append(p, zDir, -1);
  pik_append(p, " -->\n", -1);
}

/* Render a list of elements
*/
void pik_elist_render(Pik *p, PEList *pEList){
  int i;
  int iNextLayer = 0;
  int iThisLayer;
  int bMoreToDo;
  int mDebug = (int)pik_value(p, "debug", 5, 0);
  do{
    bMoreToDo = 0;
    iThisLayer = iNextLayer;
    iNextLayer = 0x7fffffff;
    for(i=0; i<pEList->n; i++){
      PElem *pElem = pEList->a[i];
      if( pElem->iLayer>iThisLayer ){
        if( pElem->iLayer<iNextLayer ) iNextLayer = pElem->iLayer;
        bMoreToDo = 1;
        continue; /* Defer until another round */
      }else if( pElem->iLayer<iThisLayer ){
        continue;
      }
      void (*xRender)(Pik*,PElem*);
      if( mDebug & 1 ) pik_elem_render(p, pElem);
      xRender = pElem->type->xRender;
      if( xRender ){
        xRender(p, pElem);
      }
      if( pElem->pSublist ){
        pik_elist_render(p, pElem->pSublist);
      }
    }
  }while( bMoreToDo );
}

/* Add all elements of the list pEList to the bounding box
*/
static void pik_bbox_add_elist(Pik *p, PEList *pEList, PNum wArrow){
  int i;
  for(i=0; i<pEList->n; i++){
    PElem *pElem = pEList->a[i];
    if( pElem->sw>0.0 ) pik_bbox_addbox(&p->bbox, &pElem->bbox);
    pik_append_txt(p, pElem, &p->bbox);
    if( pElem->pSublist ) pik_bbox_add_elist(p, pElem->pSublist, wArrow);


    /* Expand the bounding box to account for arrowheads on lines */
    if( pElem->type->isLine && pElem->nPath>0 ){
      if( pElem->larrow ){
        pik_bbox_addellipse(&p->bbox, pElem->aPath[0].x, pElem->aPath[0].y,
                            wArrow, wArrow);
      }
      if( pElem->rarrow ){
        int j = pElem->nPath-1;
        pik_bbox_addellipse(&p->bbox, pElem->aPath[j].x, pElem->aPath[j].y,
                            wArrow, wArrow);
      }
    }
  }
}

/* Recompute key layout parameters from variables. */
static void pik_compute_layout_settings(Pik *p){
  PNum thickness;  /* Line thickness */
  PNum wArrow;     /* Width of arrowheads */

  /* Set up rendering parameters */
  if( p->bLayoutVars ) return;
  thickness = pik_value(p,"thickness",9,0);
  if( thickness<=0.01 ) thickness = 0.01;
  wArrow = 0.5*pik_value(p,"arrowwid",8,0);
  p->wArrow = wArrow/thickness;
  p->hArrow = pik_value(p,"arrowht",7,0)/thickness;
  p->fontScale = pik_value(p,"fontscale",9,0);
  if( p->fontScale<=0.0 ) p->fontScale = 1.0;
  p->rScale = 144.0;
  p->charWidth = pik_value(p,"charwid",7,0)*p->fontScale;
  p->charHeight = pik_value(p,"charht",6,0)*p->fontScale;
  p->bLayoutVars = 1;
}

/* Render a list of elements.  Write the SVG into p->zOut.
** Delete the input element_list before returnning.
*/
static void pik_render(Pik *p, PEList *pEList){
  if( pEList==0 ) return;
  if( p->nErr==0 ){
    PNum thickness;  /* Stroke width */
    PNum margin;     /* Extra bounding box margin */
    PNum w, h;       /* Drawing width and height */
    PNum wArrow;
    PNum pikScale;   /* Value of the "scale" variable */

    /* Set up rendering parameters */
    pik_compute_layout_settings(p);
    thickness = pik_value(p,"thickness",9,0);
    if( thickness<=0.01 ) thickness = 0.01;
    margin = pik_value(p,"margin",6,0);
    margin += thickness;
    wArrow = p->wArrow*thickness;

    /* Compute a bounding box over all objects so that we can know
    ** how big to declare the SVG canvas */
    pik_bbox_init(&p->bbox);
    pik_bbox_add_elist(p, pEList, wArrow);

    /* Expand the bounding box slightly to account for line thickness
    ** and the optional "margin = EXPR" setting. */
    p->bbox.ne.x += margin + pik_value(p,"rightmargin",11,0);
    p->bbox.ne.y += margin + pik_value(p,"topmargin",9,0);
    p->bbox.sw.x -= margin + pik_value(p,"leftmargin",10,0);
    p->bbox.sw.y -= margin + pik_value(p,"bottommargin",12,0);

    /* Output the SVG */
    pik_append(p, "<svg",4);
    if( p->zClass ){
      pik_append(p, " class=\"", -1);
      pik_append(p, p->zClass, -1);
      pik_append(p, "\"", 1);
    }
    w = p->bbox.ne.x - p->bbox.sw.x;
    h = p->bbox.ne.y - p->bbox.sw.y;
    p->wSVG = (int)(p->rScale*w);
    p->hSVG = (int)(p->rScale*h);
    pikScale = pik_value(p,"scale",5,0);
    if( pikScale<0.99 || pikScale>1.01 ){
      p->wSVG *= pikScale;
      p->hSVG *= pikScale;
      pik_append_num(p, " width=\"", p->wSVG);
      pik_append_num(p, "\" height=\"", p->hSVG);
      pik_append(p, "\"", 1);
    }
    pik_append_dis(p, " viewBox=\"0 0 ",w,"");
    pik_append_dis(p, " ",h,"\">\n");
    pik_elist_render(p, pEList);
    pik_append(p,"</svg>\n", -1);
  }else{
    p->wSVG = -1;
    p->hSVG = -1;
  }
  pik_elist_free(p, pEList);
}



/*
** An array of this structure defines a list of keywords.
*/
typedef struct PikWord {
  char *zWord;             /* Text of the keyword */
  unsigned char nChar;     /* Length of keyword text in bytes */
  unsigned char eType;     /* Token code */
  unsigned char eCode;     /* Extra code for the token */
  unsigned char eEdge;     /* CP_* code for corner/edge keywords */
} PikWord;

/*
** Keywords
*/
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        },
  { "assert",     6,   T_ASSERT,    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     },
  { "ccw",        3,   T_CCW,       0,         0        },
  { "center",     6,   T_CENTER,    0,         CP_C     },
  { "chop",       4,   T_CHOP,      0,         0        },
  { "close",      5,   T_CLOSE,     0,         0        },
  { "color",      5,   T_COLOR,     0,         0        },
  { "cos",        3,   T_FUNC1,     FN_COS,    0        },
  { "cw",         2,   T_CW,        0,         0        },
  { "dashed",     6,   T_DASHED,    0,         0        },
  { "diameter",   8,   T_DIAMETER,  0,         0        },
  { "dist",       4,   T_DIST,      0,         0        },
  { "dotted",     6,   T_DOTTED,    0,         0        },
  { "down",       4,   T_DOWN,      DIR_DOWN,  0        },
  { "e",          1,   T_EDGEPT,    0,         CP_E     },
  { "east",       4,   T_EDGEPT,    0,         CP_E     },
  { "end",        3,   T_END,       0,         CP_END   },
  { "even",       4,   T_EVEN,      0,         0        },
  { "fill",       4,   T_FILL,      0,         0        },
  { "first",      5,   T_NTH,       0,         0        },
  { "fit",        3,   T_FIT,       0,         0        },
  { "from",       4,   T_FROM,      0,         0        },
  { "go",         2,   T_GO,        0,         0        },
  { "heading",    7,   T_HEADING,   0,         0        },
  { "height",     6,   T_HEIGHT,    0,         0        },
  { "ht",         2,   T_HEIGHT,    0,         0        },
  { "in",         2,   T_IN,        0,         0        },
  { "int",        3,   T_FUNC1,     FN_INT,    0        },
  { "invis",      5,   T_INVIS,     0,         0        },
  { "invisible",  9,   T_INVIS,     0,         0        },
  { "italic",     6,   T_ITALIC,    0,         0        },
  { "last",       4,   T_LAST,      0,         0        },
  { "left",       4,   T_LEFT,      DIR_LEFT,  CP_W     },
  { "ljust",      5,   T_LJUST,     0,         0        },
  { "max",        3,   T_FUNC2,     FN_MAX,    0        },
  { "min",        3,   T_FUNC2,     FN_MIN,    0        },
  { "n",          1,   T_EDGEPT,    0,         CP_N     },
  { "ne",         2,   T_EDGEPT,    0,         CP_NE    },
  { "north",      5,   T_EDGEPT,    0,         CP_N     },
  { "nw",         2,   T_EDGEPT,    0,         CP_NW    },
  { "of",         2,   T_OF,        0,         0        },
  { "previous",   8,   T_LAST,      0,         0,       },
  { "print",      5,   T_PRINT,     0,         0        },
  { "rad",        3,   T_RADIUS,    0,         0        },
  { "radius",     6,   T_RADIUS,    0,         0        },
  { "right",      5,   T_RIGHT,     DIR_RIGHT, CP_E     },
  { "rjust",      5,   T_RJUST,     0,         0        },
  { "s",          1,   T_EDGEPT,    0,         CP_S     },
  { "same",       4,   T_SAME,      0,         0        },
  { "se",         2,   T_EDGEPT,    0,         CP_SE    },
  { "sin",        3,   T_FUNC1,     FN_SIN,    0        },
  { "small",      5,   T_SMALL,     0,         0        },
  { "south",      5,   T_EDGEPT,    0,         CP_S     },
  { "sqrt",       4,   T_FUNC1,     FN_SQRT,   0        },
  { "start",      5,   T_START,     0,         CP_START },
  { "sw",         2,   T_EDGEPT,    0,         CP_SW    },
  { "t",          1,   T_TOP,       0,         CP_N     },
  { "the",        3,   T_THE,       0,         0        },
  { "then",       4,   T_THEN,      0,         0        },
  { "thick",      5,   T_THICK,     0,         0        },
  { "thickness",  9,   T_THICKNESS, 0,         0        },
  { "thin",       4,   T_THIN,      0,         0        },
  { "to",         2,   T_TO,        0,         0        },
  { "top",        3,   T_TOP,       0,         CP_N     },
  { "until",      5,   T_UNTIL,     0,         0        },
  { "up",         2,   T_UP,        DIR_UP,    0        },
  { "vertex",     6,   T_VERTEX,    0,         0        },
  { "w",          1,   T_EDGEPT,    0,         CP_W     },
  { "way",        3,   T_WAY,       0,         0        },
  { "west",       4,   T_EDGEPT,    0,         CP_W     },
  { "wid",        3,   T_WIDTH,     0,         0        },
  { "width",      5,   T_WIDTH,     0,         0        },
  { "with",       4,   T_WITH,      0,         0        },
  { "x",          1,   T_X,         0,         0        },
  { "y",          1,   T_Y,         0,         0        },
};

/*
** Search a PikWordlist for the given keyword.  Return a pointer to the
** element found.  Or return 0 if not found.
*/
static const PikWord *pik_find_word(
  const char *zIn,              /* Word to search for */
  int n,                        /* Length of zIn */
  const PikWord *aList,         /* List to search */
  int nList                     /* Number of entries in aList */
){
  int first = 0;
  int last = nList-1;
  while( first<=last ){
    int mid = (first + last)/2;
    int sz = aList[mid].nChar;
    int c = strncmp(zIn, aList[mid].zWord, sz<n ? sz : n);
    if( c==0 ){
      c = n - sz;
      if( c==0 ) return &aList[mid];
    }
    if( c<0 ){
      last = mid-1;
    }else{
      first = mid+1;
    }
  }
  return 0;
}

/*
** Set a symbolic debugger breakpoint on this routine to receive a
** breakpoint when the "#breakpoint" token is parsed.
*/
static void pik_breakpoint(const unsigned char *z){
  /* Prevent C compilers from optimizing out this routine. */
  if( z[2]=='X' ) exit(1);
}


/*
** Return the length of next token.  The token starts on
** the pToken->z character.  Fill in other fields of the
** pToken object as appropriate.
*/
static int pik_token_length(PToken *pToken){
  const unsigned char *z = (const unsigned char*)pToken->z;
  int i;
  unsigned char c, c2;
  switch( z[0] ){
    case '\\': {
      pToken->eType = T_WHITESPACE;
      for(i=1; z[i]=='\r' || z[i]==' ' || z[i]=='\t'; i++){}
      if( z[i]=='\n'  ) return i+1;
      pToken->eType = T_ERROR;
      return 1;
    }
    case ';':
    case '\n': {
      pToken->eType = T_EOL;
      return 1;
    }
    case '"': {
      for(i=1; (c = z[i])!=0; i++){
        if( c=='\\' ){ 
          if( z[i+1]==0 ) break;
          i++;
          continue;
        }
        if( c=='"' ){
          pToken->eType = T_STRING;
          return i+1;
        }
      }
      pToken->eType = T_ERROR;
      return i;
    }
    case ' ':
    case '\t':
    case '\f':
    case '\r': {
      for(i=1; (c = z[i])==' ' || c=='\t' || c=='\r' || c=='\t'; i++){}
      pToken->eType = T_WHITESPACE;
      return i;
    }
    case '#': {
      for(i=1; (c = z[i])!=0 && c!='\n'; i++){}
      pToken->eType = T_WHITESPACE;
      /* If the comment is "#breakpoint" then invoke the pik_breakpoint()
      ** routine.  The pik_breakpoint() routie is a no-op that serves as
      ** a convenient place to set a gdb breakpoint when debugging. */
      if( strncmp((const char*)z,"#breakpoint",11)==0 ) pik_breakpoint(z);
      return i;
    }
    case '/': {
      if( z[1]=='*' ){
        for(i=2; z[i]!=0 && (z[i]!='*' || z[i+1]!='/'); i++){}
        if( z[i]=='*' ){
          pToken->eType = T_WHITESPACE;
          return i+2;
        }else{
          pToken->eType = T_ERROR;
          return i;
        }
      }else if( z[1]=='/' ){
        for(i=2; z[i]!=0 && z[i]!='\n'; i++){}
        pToken->eType = T_WHITESPACE;
        return i;
      }else if( z[1]=='=' ){
        pToken->eType = T_ASSIGN;
        pToken->eCode = T_SLASH;
        return 2;
      }else{
        pToken->eType = T_SLASH;
        return 1;
      }
    }
    case '+': {
      if( z[1]=='=' ){
        pToken->eType = T_ASSIGN;
        pToken->eCode = T_PLUS;
        return 2;
      }
      pToken->eType = T_PLUS;
      return 1;
    }
    case '*': {
      if( z[1]=='=' ){
        pToken->eType = T_ASSIGN;
        pToken->eCode = T_STAR;
        return 2;
      }
      pToken->eType = T_STAR;
      return 1;
    }
    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 '=': {
       if( z[1]=='=' ){
         pToken->eType = T_EQ;
         return 2;
       }
       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_ASSIGN;
        pToken->eCode = T_MINUS;
        return 2;
      }else{
        pToken->eType = T_MINUS;
        return 1;
      }
    }
    case '<': { 
      if( z[1]=='-' ){
         if( z[2]=='>' ){
           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) ){
          const PikWord *pFound;
          for(i=2; (c = z[i])>='a' && c<='z'; i++){}
          pFound = pik_find_word((const char*)z+1, i-1,
                                    pik_keywords, count(pik_keywords));
          if( pFound && (pFound->eEdge>0 ||
                         pFound->eType==T_EDGEPT ||
                         pFound->eType==T_START ||
                         pFound->eType==T_END )
          ){
            /* Dot followed by something that is a 2-D place value */
            pToken->eType = T_DOT_E;
          }else if( pFound && (pFound->eType==T_X || pFound->eType==T_Y) ){
            /* Dot followed by "x" or "y" */
            pToken->eType = T_DOT_XY;
          }else{
            /* Any other "dot" */
            pToken->eType = T_DOT_L;
          }
          return 1;
        }else if( isdigit(c1) ){
          i = 0;
          /* no-op.  Fall through to number handling */
        }else if( isupper(c1) ){
          for(i=2; (c = z[i])!=0 && (isalnum(c) || c=='_'); i++){}
          pToken->eType = T_DOT_U;
          return 1;
        }else{
          pToken->eType = T_ERROR;
          return 1;
        }
      }
      if( (c>='0' && c<='9') || c=='.' ){
        int nDigit;
        int isInt = 1;
        if( c!='.' ){
          nDigit = 1;
          for(i=1; (c = z[i])>='0' && c<='9'; i++){ nDigit++; }
          if( i==1 && (c=='x' || c=='X') ){
            for(i=2; (c = z[i])!=0 && isxdigit(c); i++){}
            pToken->eType = T_NUMBER;
            return i;
          }
        }else{
          isInt = 0;
          nDigit = 0;
        }
        if( c=='.' ){
          isInt = 0;
          for(i++; (c = z[i])>='0' && c<='9'; i++){ nDigit++; }
        }
        if( nDigit==0 ){
          pToken->eType = T_ERROR;
          return i;
        }
        if( c=='e' || c=='E' ){
          i++;
          c2 = z[i];
          if( c2=='+' || c2=='-' ){
            i++;
            c2 = z[i];
          }
          if( c2<'0' || c>'9' ){
            /* This is not an exp */
            i -= 2;
          }else{
            i++;
            isInt = 0;
            while( (c = z[i])>='0' && c<='9' ){ i++; }
          }
        }
        c2 = c ? z[i+1] : 0;
        if( isInt ){
          if( (c=='t' && c2=='h')
           || (c=='r' && c2=='d')
           || (c=='n' && c2=='d')
           || (c=='s' && c2=='t')
          ){
            pToken->eType = T_NTH;
            return i+2;
          }
        }
        if( (c=='i' && c2=='n')
         || (c=='c' && c2=='m')
         || (c=='m' && c2=='m')
         || (c=='p' && c2=='t')
         || (c=='p' && c2=='x')
         || (c=='p' && c2=='c')
        ){
          i += 2;
        }
        pToken->eType = T_NUMBER;
        return i;
      }else if( islower(c) || c=='_' || c=='$' || c=='@' ){
        const PikWord *pFound;
        for(i=1; (c =  z[i])!=0 && (isalnum(c) || c=='_'); i++){}
        pFound = pik_find_word((const char*)z, i,
                               pik_keywords, count(pik_keywords));
        if( pFound ){
          pToken->eType = pFound->eType;
          pToken->eCode = pFound->eCode;
          pToken->eEdge = pFound->eEdge;
          return i;
        }
        pToken->n = i;
        if( pik_find_class(pToken)!=0 ){
          pToken->eType = T_CLASSNAME;
        }else{
          pToken->eType = T_ID;
        }
        return i;
      }else if( c>='A' && c<='Z' ){
        for(i=1; (c =  z[i])!=0 && (isalnum(c) || c=='_'); i++){}
        pToken->eType = T_PLACENAME;
        return i;
      }else{
        pToken->eType = T_ERROR;
        return 1;
      }
    }
  }
}

/*
** Return a pointer to the next non-whitespace token after pThis.
** This is used to help form error messages.
*/
static PToken pik_next_semantic_token(PToken *pThis){
  PToken x;
  int sz;
  int i = pThis->n;
  memset(&x, 0, sizeof(x));
  x.z = pThis->z;
  while(1){
    x.z = pThis->z + i;
    sz = pik_token_length(&x);
    if( x.eType!=T_WHITESPACE ){
      x.n = sz;
      return x;
    }
    i += sz;
  }
}

/*
** Parse the PIKCHR script contained in zText[].  Return a rendering.  Or
** if an error is encountered, return the error text.  The error message
** is HTML formatted.  So regardless of what happens, the return text
** is safe to be insertd into an HTML output stream.
**
** If pnWidth and pnHeight are not NULL, then this routine writes the
** width and height of the <SVG> object into the integers that they
** point to.  A value of -1 is written if an error is seen.
**
** If zClass is not NULL, then it is a class name to be included in
** the <SVG> markup.
**
** The returned string is contained in memory obtained from malloc()
** and should be released by the caller.
*/
char *pikchr(
  const char *zText,     /* Input PIKCHR source text.  zero-terminated */
  const char *zClass,    /* Add class="%s" to <svg> markup */
  unsigned int mFlags,   /* Flags used to influence rendering behavior */
  int *pnWidth,          /* Write width of <svg> here, if not NULL */
  int *pnHeight          /* Write height here, if not NULL */
){
  int i;
  int sz;
  PToken token;
  Pik s;
  yyParser sParse;

  memset(&s, 0, sizeof(s));
  s.zIn = zText;
  s.nIn = (unsigned int)strlen(zText);
  s.eDir = DIR_RIGHT;
  s.zClass = zClass;
  s.mFlags = mFlags;
  pik_parserInit(&sParse, &s);
#if 0
  pik_parserTrace(stdout, "parser: ");
#endif
  for(i=0; zText[i] && s.nErr==0; i+=sz){
    token.eCode = 0;
    token.eEdge = 0;
    token.z = zText + i;
    sz = pik_token_length(&token);
    if( token.eType==T_WHITESPACE ){
      /* no-op */
    }else if( sz>1000 ){
      token.n = 1;
      pik_error(&s, &token, "token is too long - max length 1000 bytes");
      break;
    }else if( token.eType==T_ERROR ){
      token.n = (unsigned short)(sz & 0xffff);
      pik_error(&s, &token, "unrecognized token");
      break;
    }else{
#if 0
      printf("******** Token %s (%d): \"%.*s\" **************\n",
             yyTokenName[token.eType], token.eType,
             isspace(token.z[0]) ? 0 : token.n, token.z);
#endif
      token.n = (unsigned short)(sz & 0xffff);
      pik_parser(&sParse, token.eType, token);
    }
  }
  if( s.nErr==0 ){
    memset(&token,0,sizeof(token));
    token.z = zText;
    pik_parser(&sParse, 0, token);
  }
  pik_parserFinalize(&sParse);
  while( s.pVar ){
    PVar *pNext = s.pVar->pNext;
    free(s.pVar);
    s.pVar = pNext;
  }
  if( pnWidth ) *pnWidth = s.nErr ? -1 : s.wSVG;
  if( pnHeight ) *pnHeight = s.nErr ? -1 : s.hSVG;
  if( s.zOut ){
    s.zOut[s.nOut] = 0;
    s.zOut = realloc(s.zOut, s.nOut+1);
  }
  return s.zOut;
}

#if defined(PIKCHR_FUZZ)
#include <stdint.h>
int LLVMFuzzerTestOneInput(const uint8_t *aData, size_t nByte){
  int w,h;
  char *zIn, *zOut;
  zIn = malloc( nByte + 1 );
  if( zIn==0 ) return 0;
  memcpy(zIn, aData, nByte);
  zIn[nByte] = 0;
  zOut = pikchr(zIn, "pikchr", 0, &w, &h);
  free(zIn);
  free(zOut);
  return 0;
}
#endif /* PIKCHR_FUZZ */

#if defined(PIKCHR_SHELL)
/* Print a usage comment for the shell and exit. */
static void usage(const char *argv0){
  fprintf(stderr, "usage: %s [OPTIONS] FILE ...\n", argv0);
  fprintf(stderr,
    "Convert Pikchr input files into SVG.\n"
    "Options:\n"
    "   --dont-stop      Process all files even if earlier files have errors\n"
    "   --svg-only       Omit raw SVG without the HTML wrapper\n"
  );
  exit(1);
}

/* Send text to standard output, but escape HTML markup */
static void print_escape_html(const char *z){
  int j;
  char c;
  while( z[0]!=0 ){
    for(j=0; (c = z[j])!=0 && c!='<' && c!='>' && c!='&'; j++){}
    if( j ) printf("%.*s", j, z);
    z += j+1;
    j = -1;
    if( c=='<' ){
      printf("&lt;");
    }else if( c=='>' ){
      printf("&gt;");
    }else if( c=='&' ){
      printf("&amp;");
    }else if( c==0 ){
      break;
    }
  }
}

/* Testing interface
**
** Generate HTML on standard output that displays both the original
** input text and the rendered SVG for all files named on the command
** line.
*/
int main(int argc, char **argv){
  int i;
  int bSvgOnly = 0;            /* Output SVG only.  No HTML wrapper */
  int bDontStop = 0;           /* Continue in spite of errors */
  const char *zHtmlHdr = 
    "<!DOCTYPE html>\n"
    "<html lang=\"en-US\">\n"
    "<head>\n<title>PIKCHR Test</title>\n"
    "<style>\n"
    "  .hidden {\n"
    "     position: absolute !important;\n"
    "     opacity: 0 !important;\n"
    "     pointer-events: none !important;\n"
    "     display: none !important;\n"
    "  }\n"
    "</style>\n"
    "<script>\n"
    "  function toggleHidden(id){\n"
    "    for(var c of document.getElementById(id).children){\n"
    "      c.classList.toggle('hidden');\n"
    "    }\n"
    "  }\n"
    "</script>\n"
    "<meta charset=\"utf-8\">\n"
    "</head>\n"
    "<body>\n"
  ;
  if( argc<2 ) usage(argv[0]);
  for(i=1; i<argc; i++){
    FILE *in;
    size_t sz;
    char *zIn;
    char *zOut;
    int w, h;

    if( argv[i][0]=='-' ){
      char *z = argv[i];
      z++;
      if( z[0]=='-' ) z++;
      if( strcmp(z,"dont-stop")==0 ){
        bDontStop = 1;
      }else
      if( strcmp(z,"svg-only")==0 ){
        if( zHtmlHdr==0 ){
          fprintf(stderr, "the \"%s\" option must come first\n",argv[i]);
          exit(1);
        }
        bSvgOnly = 1;
      }else
      {
        fprintf(stderr,"unknown option: \"%s\"\n", argv[i]);
        usage(argv[0]);
      }
      continue;
    }
    in = fopen(argv[i], "rb");
    if( in==0 ){
      fprintf(stderr, "cannot open \"%s\" for reading\n", argv[i]);
      continue;
    }
    fseek(in, 0, SEEK_END);
    sz = ftell(in);
    rewind(in);
    zIn = malloc( sz+1 );
    if( zIn==0 ){
      fprintf(stderr, "cannot allocate space for file \"%s\"\n", argv[i]);
      fclose(in);
      continue;
    }
    sz = fread(zIn, 1, sz, in);
    fclose(in);
    zIn[sz] = 0;
    zOut = pikchr(zIn, "pikchr", 0, &w, &h);
    if( zOut==0 ){
      fprintf(stderr, "pikchr() returns NULL.  Out of memory?\n");
      if( !bDontStop ) exit(1);
    }else if( bSvgOnly ){
      printf("%s\n", zOut);
    }else{
      if( zHtmlHdr ){
        printf("%s", zHtmlHdr);
        zHtmlHdr = 0;
      }
      printf("<h1>File %s</h1>\n", argv[i]);
      if( w<0 ){
        printf("<p>ERROR</p>\n%s\n", zOut);
      }else{
        printf("<div id=\"svg-%d\" onclick=\"toggleHidden('svg-%d')\">\n",i,i);
        printf("<div style='border:3px solid lightgray;max-width:%dpx;'>\n",w);
        printf("%s</div>\n", zOut);
        printf("<pre class='hidden'>");
        print_escape_html(zIn);
        printf("</pre>\n</div>\n");
      }
    }
    free(zOut);
    free(zIn);
  }
  if( !bSvgOnly ){
    printf("</body></html>\n");
  }
  return 0; 
}
#endif /* PIKCHR_SHELL */

#line 7315 "pikchr.c"
