/* 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 error 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 assemblied, 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 the all the PEList
** and PElem objects are deallocated and the generate 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, like:
**
**      Abc:  Abc + (0.5cm, 0)
**
** These generate a new "noop" object at the specified place and with
** the specified 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

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 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_C      0   /* Center of the object.  (Always PElem.ptAt) */
#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

/* Heading angles corresponding to compass points */
static const PNum pik_hdg_angle[] = {
  /* C  */    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,
};

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

/* 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 then, equal to
** or greater than 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 contraint
** errors. */
#define A_WIDTH         0x000001
#define A_HEIGHT        0x000002
#define A_RADIUS        0x000004
#define A_THICKNESS     0x000008
#define A_DASHED        0x000010 /* Includes "dotted" */
#define A_FILL          0x000020
#define A_COLOR         0x000040
#define A_ARROW         0x000080
#define A_TOP           0x000100
#define A_BOTTOM        0x000200
#define A_LEFT          0x000400
#define A_RIGHT         0x000800
#define A_CORNER        0x001000
#define A_FROM          0x002000
#define A_CW            0x004000
#define A_AT            0x008000


/* 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 */
  PNum h;                  /* height */
  PNum rad;                /* radius */
  PNum sw;                 /* stroke width ("thinkness") */
  PNum dotted;             /* dotted:  <=0.0 for off */
  PNum dashed;             /* dashed:  <=0.0 for off */
  PNum fill;               /* fill color.  Negative for off */
  PNum color;              /* Stroke color */
  PNum top;                /* Top edge */
  PNum bottom;             /* Bottom edge */
  PNum left;               /* Left edge */
  PNum right;              /* Right edge */
  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 */
  char rarrow;             /* Arrow at end */
  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 */
  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 */
  int bLayoutVars;             /* True if cache is valid */
  char thenFlag;           /* True if "then" seen */
  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 it 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 */
  PPoint (*xChop)(PElem*,PPoint*);       /* Chopper */
  PPoint (*xOffset)(Pik*,PElem*,int);    /* Offset from center 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*);
static void pik_append_txt(Pik*,PElem*, PBox*);
static void pik_draw_arrowhead(Pik*,PPoint*pFrom,PPoint*pTo,PElem*);
static void pik_chop(Pik*,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(Pik*,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*,PNum,PNum);
static void pik_set_dashed(Pik*,PToken*,PNum*);
static void pik_then(Pik*,PToken*,PElem*);
static void pik_add_direction(Pik*,PToken*,PNum*,int);
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(Pik*,int,PToken*);
static PNum pik_property_of(Pik*,PElem*,PToken*);
static PNum pik_func(Pik*,PToken*,PNum,PNum);
static PPoint pik_position_between(Pik *p, PNum x, PPoint p1, PPoint p2);
static PPoint pik_position_at_angle(Pik *p, PNum dist, PNum r, PPoint pt);
static PPoint pik_position_at_hdg(Pik *p, PNum dist, PToken *pD, PPoint pt);
static void pik_same(Pik *p, PElem*, PToken*);
static PPoint pik_nth_vertex(Pik *p, PToken *pNth, PToken *pErr, PElem *pElem);
static PToken pik_next_semantic_token(Pik *p, PToken *pThis);
static void pik_compute_layout_settings(Pik*);


#line 454 "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_FILL                           14
#define T_COLOR                          15
#define T_THICKNESS                      16
#define T_PRINT                          17
#define T_STRING                         18
#define T_COMMA                          19
#define T_CLASSNAME                      20
#define T_LB                             21
#define T_RB                             22
#define T_UP                             23
#define T_DOWN                           24
#define T_LEFT                           25
#define T_RIGHT                          26
#define T_CLOSE                          27
#define T_CHOP                           28
#define T_FROM                           29
#define T_TO                             30
#define T_THEN                           31
#define T_AT                             32
#define T_WITH                           33
#define T_SAME                           34
#define T_AS                             35
#define T_FIT                            36
#define T_UNTIL                          37
#define T_EVEN                           38
#define T_AND                            39
#define T_DOT_E                          40
#define T_HEIGHT                         41
#define T_WIDTH                          42
#define T_RADIUS                         43
#define T_DIAMETER                       44
#define T_DOTTED                         45
#define T_DASHED                         46
#define T_CW                             47
#define T_CCW                            48
#define T_LARROW                         49
#define T_RARROW                         50
#define T_LRARROW                        51
#define T_INVIS                          52
#define T_THICK                          53
#define T_THIN                           54
#define T_CENTER                         55
#define T_LJUST                          56
#define T_RJUST                          57
#define T_ABOVE                          58
#define T_BELOW                          59
#define T_ITALIC                         60
#define T_BOLD                           61
#define T_ALIGNED                        62
#define T_BIG                            63
#define T_SMALL                          64
#define T_LP                             65
#define T_RP                             66
#define T_HEADING                        67
#define T_WAY                            68
#define T_BETWEEN                        69
#define T_THE                            70
#define T_DOT_L                          71
#define T_START                          72
#define T_END                            73
#define T_NTH                            74
#define T_VERTEX                         75
#define T_IN                             76
#define T_DOT_U                          77
#define T_LAST                           78
#define T_NUMBER                         79
#define T_FUNC1                          80
#define T_FUNC2                          81
#define T_X                              82
#define T_Y                              83
#define T_TOP                            84
#define T_BOTTOM                         85
#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 119
#define YYACTIONTYPE unsigned short int
#define pik_parserTOKENTYPE PToken
typedef union {
  int yyinit;
  pik_parserTOKENTYPE yy0;
  PElem* yy26;
  int yy60;
  PEList* yy120;
  PPoint yy131;
  PNum yy191;
} 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             153
#define YYNRULE              148
#define YYNRULE_WITH_ACTION  112
#define YYNTOKEN             86
#define YY_MAX_SHIFT         152
#define YY_MIN_SHIFTREDUCE   270
#define YY_MAX_SHIFTREDUCE   417
#define YY_ERROR_ACTION      418
#define YY_ACCEPT_ACTION     419
#define YY_NO_ACTION         420
#define YY_MIN_REDUCE        421
#define YY_MAX_REDUCE        568
/************* 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 (859)
static const YYACTIONTYPE yy_action[] = {
 /*     0 */    64,  137,  129,   19,  139,  135,  141,   99,  101,  100,
 /*    10 */   151,  109,   38,   35,  405,  406,  315,  522,   72,  113,
 /*    20 */   523,  524,  521,  390,  391,  392,  393,  303,  304,   10,
 /*    30 */     9,  307,    8,   51,  111,  132,  312,   50,   49,   48,
 /*    40 */    47,  315,  315,  315,  315,  403,  404,  316,  317,  318,
 /*    50 */   319,  320,  321,  322,  323,  367,  413,  142,   45,   46,
 /*    60 */   352,  148,  405,  406,  315,   25,  350,   62,  405,  406,
 /*    70 */   315,  286,  427,   26,   65,   12,  129,  290,  112,  416,
 /*    80 */   417,  428,  101,  100,  151,  109,  413,   24,  112,  315,
 /*    90 */   315,  315,  315,  403,  404,  315,  315,  315,  315,  403,
 /*   100 */   404,  367,  114,  114,   45,   46,  461,  151,  109,  416,
 /*   110 */   417,   22,  350,  553,  405,  406,  315,   73,  108,    1,
 /*   120 */   342,  343,  332,   74,   66,   67,  131,  130,   89,   52,
 /*   130 */   412,  412,  107,  366,  144,  143,  412,  412,  414,  415,
 /*   140 */    62,  315,  315,  315,  315,  403,  404,  367,  413,    6,
 /*   150 */    45,   46,   50,   49,   48,   47,   30,    7,  350,   50,
 /*   160 */    49,   48,   47,   68,   71,    5,  288,   70,  414,  415,
 /*   170 */    63,  416,  417,  400,   94,  374,  375,   13,  107,  366,
 /*   180 */   144,  143,  412,  412,  367,  413,  421,   45,   46,   41,
 /*   190 */   399,   27,   40,   28,   31,  350,   25,  325,  325,  325,
 /*   200 */   325,  325,  325,  325,  325,  325,  325,  116,  416,  417,
 /*   210 */    11,    1,  547,  547,   50,   49,   48,   47,  131,  130,
 /*   220 */    89,  330,   48,   47,  107,  366,  144,  143,   77,   33,
 /*   230 */   414,  415,  367,  354,  147,   45,   46,  103,  151,  109,
 /*   240 */   331,   95,  410,   96,  120,  281,  282,  283,    1,  285,
 /*   250 */   103,  151,  109,  408,  435,  131,  130,   89,  121,   69,
 /*   260 */    69,  107,  366,  144,  143,   14,  382,  414,  415,   15,
 /*   270 */   124,  122,   50,   49,   48,   47,  365,  133,   16,  383,
 /*   280 */   384,  385,  387,   71,   53,  288,   70,   39,  390,  391,
 /*   290 */   392,  393,  106,  126,  125,   54,    5,  124,  122,   50,
 /*   300 */    49,   48,   47,  350,  367,   94,  102,   45,   46,  107,
 /*   310 */   366,  144,  143,    2,   39,  350,   50,   49,   48,   47,
 /*   320 */   126,  125,  380,  381,  353,  149,   18,   17,   55,  405,
 /*   330 */   406,  315,   56,  379,  365,   32,  123,  409,   95,  367,
 /*   340 */   117,  115,   45,   46,  378,  377,   57,  103,  151,  109,
 /*   350 */   350,  449,   58,   18,   17,   59,  315,  315,  315,  315,
 /*   360 */   403,  404,   32,  123,  409,   97,   60,  376,    5,  107,
 /*   370 */    43,  501,  110,  422,  429,   26,   44,   94,  329,  425,
 /*   380 */    61,  107,  366,  144,  143,  367,  358,  356,   45,   46,
 /*   390 */   152,  357,  419,   21,  150,  351,   96,  412,  412,   29,
 /*   400 */    75,  137,  501,    5,  139,  135,  141,  420,  501,  103,
 /*   410 */   151,  109,   94,  352,  148,  420,  107,  366,  144,  143,
 /*   420 */   367,  420,  420,   45,   46,  420,  420,   98,  422,  429,
 /*   430 */    26,  350,   76,  137,  425,  420,  139,  135,  141,  420,
 /*   440 */   420,  103,  151,  109,  420,  152,  420,  420,   21,    5,
 /*   450 */    88,  137,  420,  420,  139,  135,  141,  420,   94,  103,
 /*   460 */   151,  109,  107,  366,  144,  143,  367,  420,  128,   45,
 /*   470 */    46,  108,   65,  420,  129,  420,   95,  350,  420,  465,
 /*   480 */   101,  100,  151,  109,    3,  103,  151,  109,  420,  435,
 /*   490 */   127,  151,  109,   94,   65,  540,  129,  107,  366,  144,
 /*   500 */   143,  464,  101,  100,  151,  109,  420,   65,  420,  129,
 /*   510 */    82,  497,  151,  109,  459,  101,  100,  151,  109,  103,
 /*   520 */   151,  109,  420,  420,   65,   20,  129,   78,  420,  420,
 /*   530 */     4,  457,  101,  100,  151,  109,  103,  151,  109,   94,
 /*   540 */    65,  420,  129,  107,  366,  144,  143,  456,  101,  100,
 /*   550 */   151,  109,   65,  420,  129,  496,  151,  109,  420,  484,
 /*   560 */   101,  100,  151,  109,  420,   65,  420,  129,  420,  420,
 /*   570 */    95,  420,  119,  101,  100,  151,  109,  420,   84,  103,
 /*   580 */   151,  109,  420,  426,   65,  420,  129,  103,  151,  109,
 /*   590 */   420,  490,  101,  100,  151,  109,   65,  420,  129,  438,
 /*   600 */   420,   23,  420,  489,  101,  100,  151,  109,   65,  420,
 /*   610 */   129,   50,   49,   48,   47,  488,  101,  100,  151,  109,
 /*   620 */   420,   65,  420,  129,  420,  420,   36,  420,  487,  101,
 /*   630 */   100,  151,  109,   65,  420,  129,  420,  420,  413,  420,
 /*   640 */   486,  101,  100,  151,  109,   65,  420,  129,   50,   49,
 /*   650 */    48,   47,  485,  101,  100,  151,  109,  420,   65,  420,
 /*   660 */   129,  416,  417,   34,  420,  118,  101,  100,  151,  109,
 /*   670 */   495,  151,  109,  365,  420,   65,  420,  129,   50,   49,
 /*   680 */    48,   47,  453,  101,  100,  151,  109,   50,   49,   48,
 /*   690 */    47,  423,  429,   26,  134,  151,  109,  425,   50,   49,
 /*   700 */    48,   47,   37,   50,   49,   48,   47,  420,  152,  420,
 /*   710 */   420,   21,  420,   50,   49,   48,   47,  299,  420,  420,
 /*   720 */   414,  415,   50,   49,   48,   47,  294,   50,   49,   48,
 /*   730 */    47,  293,   50,   49,   48,   47,  420,  352,  148,   90,
 /*   740 */   369,  420,   79,  420,  420,   80,  420,   42,  103,  151,
 /*   750 */   109,  103,  151,  109,  103,  151,  109,   91,  420,  420,
 /*   760 */   368,  136,  151,  109,  420,  365,  103,  151,  109,   81,
 /*   770 */   420,  420,   92,  420,  420,   93,  420,  420,  103,  151,
 /*   780 */   109,  103,  151,  109,  103,  151,  109,  420,   83,  420,
 /*   790 */   420,   85,  146,  420,   86,  108,  420,  103,  151,  109,
 /*   800 */   103,  151,  109,  103,  151,  109,   87,  420,  420,  420,
 /*   810 */   420,  515,  420,  420,  514,  103,  151,  109,  420,  513,
 /*   820 */   103,  151,  109,  103,  151,  109,  512,  420,  103,  151,
 /*   830 */   109,  104,  138,  151,  109,  103,  151,  109,  105,  420,
 /*   840 */   103,  151,  109,  420,  420,  420,  420,  103,  151,  109,
 /*   850 */   140,  151,  109,  145,  151,  109,  500,  151,  109,
};
static const YYCODETYPE yy_lookahead[] = {
 /*     0 */    90,   91,   92,  118,   94,   95,   96,   97,   98,   99,
 /*    10 */   100,  101,    4,    5,   14,   15,   16,   91,   18,   92,
 /*    20 */    94,   95,   96,   23,   24,   25,   26,   27,   28,   29,
 /*    30 */    30,   31,   32,   33,   34,   92,   36,    4,    5,    6,
 /*    40 */     7,   41,   42,   43,   44,   45,   46,   47,   48,   49,
 /*    50 */    50,   51,   52,   53,   54,    1,    2,   92,    4,    5,
 /*    60 */    20,   21,   14,   15,   16,   10,   12,    3,   14,   15,
 /*    70 */    16,   19,   88,   89,   90,   19,   92,   22,   92,   25,
 /*    80 */    26,   97,   98,   99,  100,  101,    2,  110,   92,   41,
 /*    90 */    42,   43,   44,   45,   46,   41,   42,   43,   44,   45,
 /*   100 */    46,    1,  116,  117,    4,    5,   99,  100,  101,   25,
 /*   110 */    26,  112,   12,  117,   14,   15,   16,  102,   78,   65,
 /*   120 */    72,   73,   66,  102,   40,   40,   72,   73,   74,   35,
 /*   130 */    82,   83,   78,   79,   80,   81,   82,   83,   84,   85,
 /*   140 */    76,   41,   42,   43,   44,   45,   46,    1,    2,   32,
 /*   150 */     4,    5,    4,    5,    6,    7,   71,   32,   12,    4,
 /*   160 */     5,    6,    7,   40,   18,   65,   20,   21,   84,   85,
 /*   170 */    39,   25,   26,   33,   74,   82,   83,   29,   78,   79,
 /*   180 */    80,   81,   82,   83,    1,    2,    0,    4,    5,   91,
 /*   190 */    33,   93,   94,   95,   71,   12,   10,   55,   56,   57,
 /*   200 */    58,   59,   60,   61,   62,   63,   64,   38,   25,   26,
 /*   210 */    39,   65,  114,  115,    4,    5,    6,    7,   72,   73,
 /*   220 */    74,   66,    6,    7,   78,   79,   80,   81,   90,   19,
 /*   230 */    84,   85,    1,   20,   21,    4,    5,   99,  100,  101,
 /*   240 */    66,   90,   69,   12,   68,   14,   15,   16,   65,   18,
 /*   250 */    99,  100,  101,   69,  103,   72,   73,   74,   70,  108,
 /*   260 */   109,   78,   79,   80,   81,    3,    1,   84,   85,    3,
 /*   270 */     2,    3,    4,    5,    6,    7,   66,   12,    3,   14,
 /*   280 */    15,   16,   17,   18,    3,   20,   21,   19,   23,   24,
 /*   290 */    25,   26,   71,   25,   26,    3,   65,    2,    3,    4,
 /*   300 */     5,    6,    7,   12,    1,   74,   71,    4,    5,   78,
 /*   310 */    79,   80,   81,   13,   19,   12,    4,    5,    6,    7,
 /*   320 */    25,   26,   82,   83,   20,   21,   58,   59,    3,   14,
 /*   330 */    15,   16,    3,   66,   66,   67,   68,   69,   90,    1,
 /*   340 */    37,   38,    4,    5,   66,   66,    3,   99,  100,  101,
 /*   350 */    12,  103,    3,   58,   59,    3,   41,   42,   43,   44,
 /*   360 */    45,   46,   67,   68,   69,   74,    3,   66,   65,   78,
 /*   370 */    65,   40,   86,   87,   88,   89,   65,   74,   66,   93,
 /*   380 */     3,   78,   79,   80,   81,    1,   22,   22,    4,    5,
 /*   390 */   104,   22,  106,  107,   77,   12,   12,   82,   83,   11,
 /*   400 */    90,   91,   71,   65,   94,   95,   96,  119,   77,   99,
 /*   410 */   100,  101,   74,   20,   21,  119,   78,   79,   80,   81,
 /*   420 */     1,  119,  119,    4,    5,  119,  119,   86,   87,   88,
 /*   430 */    89,   12,   90,   91,   93,  119,   94,   95,   96,  119,
 /*   440 */   119,   99,  100,  101,  119,  104,  119,  119,  107,   65,
 /*   450 */    90,   91,  119,  119,   94,   95,   96,  119,   74,   99,
 /*   460 */   100,  101,   78,   79,   80,   81,    1,  119,   75,    4,
 /*   470 */     5,   78,   90,  119,   92,  119,   90,   12,  119,   97,
 /*   480 */    98,   99,  100,  101,   65,   99,  100,  101,  119,  103,
 /*   490 */    99,  100,  101,   74,   90,  109,   92,   78,   79,   80,
 /*   500 */    81,   97,   98,   99,  100,  101,  119,   90,  119,   92,
 /*   510 */    90,   99,  100,  101,   97,   98,   99,  100,  101,   99,
 /*   520 */   100,  101,  119,  119,   90,  105,   92,   90,  119,  119,
 /*   530 */    65,   97,   98,   99,  100,  101,   99,  100,  101,   74,
 /*   540 */    90,  119,   92,   78,   79,   80,   81,   97,   98,   99,
 /*   550 */   100,  101,   90,  119,   92,   99,  100,  101,  119,   97,
 /*   560 */    98,   99,  100,  101,  119,   90,  119,   92,  119,  119,
 /*   570 */    90,  119,   97,   98,   99,  100,  101,  119,   90,   99,
 /*   580 */   100,  101,  119,  103,   90,  119,   92,   99,  100,  101,
 /*   590 */   119,   97,   98,   99,  100,  101,   90,  119,   92,  111,
 /*   600 */   119,  113,  119,   97,   98,   99,  100,  101,   90,  119,
 /*   610 */    92,    4,    5,    6,    7,   97,   98,   99,  100,  101,
 /*   620 */   119,   90,  119,   92,  119,  119,   19,  119,   97,   98,
 /*   630 */    99,  100,  101,   90,  119,   92,  119,  119,    2,  119,
 /*   640 */    97,   98,   99,  100,  101,   90,  119,   92,    4,    5,
 /*   650 */     6,    7,   97,   98,   99,  100,  101,  119,   90,  119,
 /*   660 */    92,   25,   26,   19,  119,   97,   98,   99,  100,  101,
 /*   670 */    99,  100,  101,   66,  119,   90,  119,   92,    4,    5,
 /*   680 */     6,    7,   97,   98,   99,  100,  101,    4,    5,    6,
 /*   690 */     7,   87,   88,   89,   99,  100,  101,   93,    4,    5,
 /*   700 */     6,    7,   19,    4,    5,    6,    7,  119,  104,  119,
 /*   710 */   119,  107,  119,    4,    5,    6,    7,    8,  119,  119,
 /*   720 */    84,   85,    4,    5,    6,    7,    8,    4,    5,    6,
 /*   730 */     7,    8,    4,    5,    6,    7,  119,   20,   21,   90,
 /*   740 */    66,  119,   90,  119,  119,   90,  119,   19,   99,  100,
 /*   750 */   101,   99,  100,  101,   99,  100,  101,   90,  119,  119,
 /*   760 */    66,   99,  100,  101,  119,   66,   99,  100,  101,   90,
 /*   770 */   119,  119,   90,  119,  119,   90,  119,  119,   99,  100,
 /*   780 */   101,   99,  100,  101,   99,  100,  101,  119,   90,  119,
 /*   790 */   119,   90,   75,  119,   90,   78,  119,   99,  100,  101,
 /*   800 */    99,  100,  101,   99,  100,  101,   90,  119,  119,  119,
 /*   810 */   119,   90,  119,  119,   90,   99,  100,  101,  119,   90,
 /*   820 */    99,  100,  101,   99,  100,  101,   90,  119,   99,  100,
 /*   830 */   101,   90,   99,  100,  101,   99,  100,  101,   90,  119,
 /*   840 */    99,  100,  101,  119,  119,  119,  119,   99,  100,  101,
 /*   850 */    99,  100,  101,   99,  100,  101,   99,  100,  101,   86,
 /*   860 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   870 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   880 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   890 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   900 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   910 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   920 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   930 */    86,   86,   86,   86,   86,   86,   86,   86,   86,   86,
 /*   940 */    86,   86,   86,   86,   86,
};
#define YY_SHIFT_COUNT    (152)
#define YY_SHIFT_MIN      (0)
#define YY_SHIFT_MAX      (728)
static const unsigned short int yy_shift_ofst[] = {
 /*     0 */   265,   54,  146,  100,  100,  100,  183,  183,  183,  183,
 /*    10 */   183,  183,  183,  183,  183,  183,  183,  183,  183,  183,
 /*    20 */   183,  231,  265,    0,  231,  265,  338,  303,  384,  384,
 /*    30 */    48,  315,  338,  338,  338,  419,  338,  338,  465,  338,
 /*    40 */   338,  338,  338,  338,  338,  338,  338,  338,  338,  338,
 /*    50 */   338,   84,  291,  291,  291,  291,  291,  291,  291,  291,
 /*    60 */   291,  291,  291,   84,  268,  295,  636,  636,  636,   52,
 /*    70 */   859,  859,  859,  142,  142,  210,  607,  148,  155,  644,
 /*    80 */   312,  683,  709,  718,  723,  674,  728,  694,  699,  393,
 /*    90 */    33,   33,   33,   33,  717,   33,  331,   40,   55,   56,
 /*   100 */    85,    8,   93,  123,  216,  216,  240,  213,  304,   64,
 /*   110 */   186,   94,  117,  125,  131,  140,  157,  169,  171,  174,
 /*   120 */   173,  176,  188,  184,  262,  266,  275,  221,  281,  292,
 /*   130 */   325,  329,  235,  300,  267,  343,  278,  349,  279,  352,
 /*   140 */   301,  363,  235,  305,  311,  221,  377,  364,  365,  369,
 /*   150 */   383,  317,  388,
};
#define YY_REDUCE_COUNT (72)
#define YY_REDUCE_MIN   (-115)
#define YY_REDUCE_MAX   (757)
static const short yy_reduce_ofst[] = {
 /*     0 */   286,  -90,  -16,  310,  342,  360,  382,  404,  417,  434,
 /*    10 */   450,  462,  475,  494,  506,  518,  531,  543,  555,  568,
 /*    20 */   585,  151,  341,   98,  386,  604,  488,  420,  248,  480,
 /*    30 */   -74,  -74,  138,  437,  649,  652,  655,  667,  679,  682,
 /*    40 */   685,  698,  701,  704,  716,  721,  724,  729,  736,  741,
 /*    50 */   748,  -14,    7,  391,  412,  456,  571,  595,  662,  733,
 /*    60 */   751,  754,  757,   -4, -115, -115,  -73,  -57,  -35,  -23,
 /*    70 */    -1,   15,   21,
};
static const YYACTIONTYPE yy_default[] = {
 /*     0 */   424,  418,  418,  418,  418,  418,  418,  418,  418,  418,
 /*    10 */   418,  418,  418,  418,  418,  418,  418,  418,  418,  418,
 /*    20 */   418,  418,  424,  545,  418,  424,  546,  452,  418,  418,
 /*    30 */   418,  418,  418,  418,  418,  418,  418,  418,  418,  418,
 /*    40 */   448,  418,  418,  418,  418,  418,  418,  418,  418,  418,
 /*    50 */   418,  418,  418,  418,  418,  418,  418,  418,  418,  418,
 /*    60 */   418,  418,  418,  418,  418,  418,  418,  418,  418,  430,
 /*    70 */   442,  475,  475,  440,  462,  418,  418,  418,  418,  418,
 /*    80 */   418,  418,  451,  446,  443,  418,  418,  418,  418,  418,
 /*    90 */   479,  478,  477,  447,  418,  537,  431,  418,  418,  418,
 /*   100 */   491,  558,  418,  418,  511,  510,  418,  506,  418,  499,
 /*   110 */   418,  460,  418,  418,  549,  418,  418,  418,  418,  418,
 /*   120 */   418,  418,  418,  418,  418,  418,  418,  498,  418,  418,
 /*   130 */   418,  418,  492,  418,  418,  418,  418,  418,  418,  418,
 /*   140 */   418,  418,  418,  418,  418,  418,  418,  418,  418,  418,
 /*   150 */   418,  562,  418,
};
/********** 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,  /*       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,  /*         AT => nothing */
    0,  /*       WITH => nothing */
    0,  /*       SAME => nothing */
    0,  /*         AS => nothing */
    0,  /*        FIT => nothing */
    0,  /*      UNTIL => nothing */
    0,  /*       EVEN => nothing */
    0,  /*        AND => 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,  /*         LP => nothing */
    0,  /*         RP => nothing */
    0,  /*    HEADING => nothing */
    0,  /*        WAY => nothing */
    0,  /*    BETWEEN => nothing */
    0,  /*        THE => nothing */
    0,  /*      DOT_L => nothing */
    0,  /*      START => nothing */
    0,  /*        END => nothing */
    0,  /*        NTH => nothing */
    0,  /*     VERTEX => nothing */
    0,  /*         IN => nothing */
    0,  /*      DOT_U => nothing */
    0,  /*       LAST => nothing */
    0,  /*     NUMBER => nothing */
    0,  /*      FUNC1 => nothing */
    0,  /*      FUNC2 => nothing */
    0,  /*          X => nothing */
    0,  /*          Y => nothing */
    0,  /*        TOP => nothing */
    0,  /*     BOTTOM => 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 */ "FILL",
  /*   15 */ "COLOR",
  /*   16 */ "THICKNESS",
  /*   17 */ "PRINT",
  /*   18 */ "STRING",
  /*   19 */ "COMMA",
  /*   20 */ "CLASSNAME",
  /*   21 */ "LB",
  /*   22 */ "RB",
  /*   23 */ "UP",
  /*   24 */ "DOWN",
  /*   25 */ "LEFT",
  /*   26 */ "RIGHT",
  /*   27 */ "CLOSE",
  /*   28 */ "CHOP",
  /*   29 */ "FROM",
  /*   30 */ "TO",
  /*   31 */ "THEN",
  /*   32 */ "AT",
  /*   33 */ "WITH",
  /*   34 */ "SAME",
  /*   35 */ "AS",
  /*   36 */ "FIT",
  /*   37 */ "UNTIL",
  /*   38 */ "EVEN",
  /*   39 */ "AND",
  /*   40 */ "DOT_E",
  /*   41 */ "HEIGHT",
  /*   42 */ "WIDTH",
  /*   43 */ "RADIUS",
  /*   44 */ "DIAMETER",
  /*   45 */ "DOTTED",
  /*   46 */ "DASHED",
  /*   47 */ "CW",
  /*   48 */ "CCW",
  /*   49 */ "LARROW",
  /*   50 */ "RARROW",
  /*   51 */ "LRARROW",
  /*   52 */ "INVIS",
  /*   53 */ "THICK",
  /*   54 */ "THIN",
  /*   55 */ "CENTER",
  /*   56 */ "LJUST",
  /*   57 */ "RJUST",
  /*   58 */ "ABOVE",
  /*   59 */ "BELOW",
  /*   60 */ "ITALIC",
  /*   61 */ "BOLD",
  /*   62 */ "ALIGNED",
  /*   63 */ "BIG",
  /*   64 */ "SMALL",
  /*   65 */ "LP",
  /*   66 */ "RP",
  /*   67 */ "HEADING",
  /*   68 */ "WAY",
  /*   69 */ "BETWEEN",
  /*   70 */ "THE",
  /*   71 */ "DOT_L",
  /*   72 */ "START",
  /*   73 */ "END",
  /*   74 */ "NTH",
  /*   75 */ "VERTEX",
  /*   76 */ "IN",
  /*   77 */ "DOT_U",
  /*   78 */ "LAST",
  /*   79 */ "NUMBER",
  /*   80 */ "FUNC1",
  /*   81 */ "FUNC2",
  /*   82 */ "X",
  /*   83 */ "Y",
  /*   84 */ "TOP",
  /*   85 */ "BOTTOM",
  /*   86 */ "element_list",
  /*   87 */ "element",
  /*   88 */ "unnamed_element",
  /*   89 */ "basetype",
  /*   90 */ "expr",
  /*   91 */ "numproperty",
  /*   92 */ "edge",
  /*   93 */ "direction",
  /*   94 */ "dashproperty",
  /*   95 */ "colorproperty",
  /*   96 */ "locproperty",
  /*   97 */ "position",
  /*   98 */ "place",
  /*   99 */ "object",
  /*  100 */ "objectname",
  /*  101 */ "nth",
  /*  102 */ "textposition",
  /*  103 */ "rvalue",
  /*  104 */ "lvalue",
  /*  105 */ "even",
  /*  106 */ "document",
  /*  107 */ "print",
  /*  108 */ "prlist",
  /*  109 */ "pritem",
  /*  110 */ "prsep",
  /*  111 */ "attribute_list",
  /*  112 */ "savelist",
  /*  113 */ "alist",
  /*  114 */ "attribute",
  /*  115 */ "boolproperty",
  /*  116 */ "withclause",
  /*  117 */ "with",
  /*  118 */ "between",
};
#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 */ "rvalue ::= PLACENAME",
 /*  11 */ "pritem ::= FILL",
 /*  12 */ "pritem ::= COLOR",
 /*  13 */ "pritem ::= THICKNESS",
 /*  14 */ "pritem ::= rvalue",
 /*  15 */ "pritem ::= STRING",
 /*  16 */ "prsep ::= COMMA",
 /*  17 */ "unnamed_element ::= basetype attribute_list",
 /*  18 */ "basetype ::= CLASSNAME",
 /*  19 */ "basetype ::= STRING textposition",
 /*  20 */ "basetype ::= LB savelist element_list RB",
 /*  21 */ "savelist ::=",
 /*  22 */ "attribute_list ::= expr",
 /*  23 */ "attribute_list ::= expr PERCENT",
 /*  24 */ "attribute ::= numproperty expr PERCENT",
 /*  25 */ "attribute ::= numproperty expr",
 /*  26 */ "attribute ::= dashproperty expr",
 /*  27 */ "attribute ::= dashproperty",
 /*  28 */ "attribute ::= colorproperty rvalue",
 /*  29 */ "attribute ::= direction expr PERCENT",
 /*  30 */ "attribute ::= direction expr",
 /*  31 */ "attribute ::= direction",
 /*  32 */ "attribute ::= direction even position",
 /*  33 */ "attribute ::= CLOSE",
 /*  34 */ "attribute ::= CHOP",
 /*  35 */ "attribute ::= FROM position",
 /*  36 */ "attribute ::= TO position",
 /*  37 */ "attribute ::= THEN",
 /*  38 */ "attribute ::= AT position",
 /*  39 */ "attribute ::= SAME",
 /*  40 */ "attribute ::= SAME AS object",
 /*  41 */ "attribute ::= STRING textposition",
 /*  42 */ "attribute ::= FIT",
 /*  43 */ "with ::= DOT_E edge AT position",
 /*  44 */ "with ::= edge AT position",
 /*  45 */ "numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS",
 /*  46 */ "boolproperty ::= CW",
 /*  47 */ "boolproperty ::= CCW",
 /*  48 */ "boolproperty ::= LARROW",
 /*  49 */ "boolproperty ::= RARROW",
 /*  50 */ "boolproperty ::= LRARROW",
 /*  51 */ "boolproperty ::= INVIS",
 /*  52 */ "boolproperty ::= THICK",
 /*  53 */ "boolproperty ::= THIN",
 /*  54 */ "textposition ::=",
 /*  55 */ "textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL",
 /*  56 */ "position ::= expr COMMA expr",
 /*  57 */ "position ::= place PLUS expr COMMA expr",
 /*  58 */ "position ::= place MINUS expr COMMA expr",
 /*  59 */ "position ::= place PLUS LP expr COMMA expr RP",
 /*  60 */ "position ::= place MINUS LP expr COMMA expr RP",
 /*  61 */ "position ::= LP position COMMA position RP",
 /*  62 */ "position ::= LP position RP",
 /*  63 */ "position ::= expr between position AND position",
 /*  64 */ "position ::= expr ABOVE position",
 /*  65 */ "position ::= expr BELOW position",
 /*  66 */ "position ::= expr LEFT OF position",
 /*  67 */ "position ::= expr RIGHT OF position",
 /*  68 */ "position ::= expr EDGEPT OF position",
 /*  69 */ "position ::= expr HEADING expr FROM position",
 /*  70 */ "place ::= object",
 /*  71 */ "place ::= object DOT_E edge",
 /*  72 */ "place ::= object DOT_L START",
 /*  73 */ "place ::= object DOT_L END",
 /*  74 */ "place ::= START OF object",
 /*  75 */ "place ::= END OF object",
 /*  76 */ "place ::= edge OF object",
 /*  77 */ "place ::= NTH VERTEX OF object",
 /*  78 */ "object ::= nth",
 /*  79 */ "object ::= nth OF|IN object",
 /*  80 */ "objectname ::= PLACENAME",
 /*  81 */ "objectname ::= objectname DOT_U PLACENAME",
 /*  82 */ "nth ::= NTH CLASSNAME",
 /*  83 */ "nth ::= NTH LAST CLASSNAME",
 /*  84 */ "nth ::= LAST CLASSNAME",
 /*  85 */ "nth ::= LAST",
 /*  86 */ "nth ::= NTH LB RB",
 /*  87 */ "nth ::= NTH LAST LB RB",
 /*  88 */ "nth ::= LAST LB RB",
 /*  89 */ "expr ::= expr PLUS expr",
 /*  90 */ "expr ::= expr MINUS expr",
 /*  91 */ "expr ::= expr STAR expr",
 /*  92 */ "expr ::= expr SLASH expr",
 /*  93 */ "expr ::= MINUS expr",
 /*  94 */ "expr ::= PLUS expr",
 /*  95 */ "expr ::= LP expr RP",
 /*  96 */ "expr ::= NUMBER",
 /*  97 */ "expr ::= ID",
 /*  98 */ "expr ::= FUNC1 LP expr RP",
 /*  99 */ "expr ::= FUNC2 LP expr COMMA expr RP",
 /* 100 */ "expr ::= object DOT_L locproperty",
 /* 101 */ "expr ::= object DOT_L numproperty",
 /* 102 */ "expr ::= object DOT_L dashproperty",
 /* 103 */ "expr ::= object DOT_L colorproperty",
 /* 104 */ "expr ::= object DOT_E edge DOT_L X",
 /* 105 */ "expr ::= object DOT_E edge DOT_L Y",
 /* 106 */ "expr ::= LP locproperty OF object RP",
 /* 107 */ "expr ::= LP dashproperty OF object RP",
 /* 108 */ "expr ::= LP numproperty OF object RP",
 /* 109 */ "expr ::= LP colorproperty OF object RP",
 /* 110 */ "expr ::= NTH VERTEX OF object DOT_L X",
 /* 111 */ "expr ::= NTH VERTEX OF object DOT_L Y",
 /* 112 */ "lvalue ::= ID",
 /* 113 */ "lvalue ::= FILL",
 /* 114 */ "lvalue ::= COLOR",
 /* 115 */ "lvalue ::= THICKNESS",
 /* 116 */ "rvalue ::= expr",
 /* 117 */ "print ::= PRINT",
 /* 118 */ "prlist ::= pritem",
 /* 119 */ "prlist ::= prlist prsep pritem",
 /* 120 */ "direction ::= UP",
 /* 121 */ "direction ::= DOWN",
 /* 122 */ "direction ::= LEFT",
 /* 123 */ "direction ::= RIGHT",
 /* 124 */ "attribute_list ::= alist",
 /* 125 */ "alist ::=",
 /* 126 */ "alist ::= alist attribute",
 /* 127 */ "attribute ::= boolproperty",
 /* 128 */ "attribute ::= WITH withclause",
 /* 129 */ "even ::= UNTIL EVEN WITH",
 /* 130 */ "even ::= EVEN WITH",
 /* 131 */ "withclause ::= with",
 /* 132 */ "withclause ::= withclause AND with",
 /* 133 */ "dashproperty ::= DOTTED",
 /* 134 */ "dashproperty ::= DASHED",
 /* 135 */ "colorproperty ::= FILL",
 /* 136 */ "colorproperty ::= COLOR",
 /* 137 */ "position ::= place",
 /* 138 */ "between ::= WAY BETWEEN",
 /* 139 */ "between ::= BETWEEN",
 /* 140 */ "between ::= OF THE WAY BETWEEN",
 /* 141 */ "object ::= objectname",
 /* 142 */ "locproperty ::= X|Y",
 /* 143 */ "edge ::= EDGEPT",
 /* 144 */ "edge ::= TOP",
 /* 145 */ "edge ::= BOTTOM",
 /* 146 */ "edge ::= LEFT",
 /* 147 */ "edge ::= RIGHT",
};
#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 86: /* element_list */
{
#line 443 "pikchr.y"
pik_elist_free(p,(yypminor->yy120));
#line 1539 "pikchr.c"
}
      break;
    case 87: /* element */
    case 88: /* unnamed_element */
    case 89: /* basetype */
{
#line 445 "pikchr.y"
pik_elem_free(p,(yypminor->yy26));
#line 1548 "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<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 474 "pikchr.y"

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

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

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;
#ifndef NDEBUG
  if( yyTraceFILE && yyruleno<(int)(sizeof(yyRuleName)/sizeof(yyRuleName[0])) ){
    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 478 "pikchr.y"
{pik_render(p,yymsp[0].minor.yy120);}
#line 2234 "pikchr.c"
        break;
      case 1: /* element_list ::= element */
#line 481 "pikchr.y"
{ yylhsminor.yy120 = pik_elist_append(p,0,yymsp[0].minor.yy26); }
#line 2239 "pikchr.c"
  yymsp[0].minor.yy120 = yylhsminor.yy120;
        break;
      case 2: /* element_list ::= element_list EOL element */
#line 483 "pikchr.y"
{ yylhsminor.yy120 = pik_elist_append(p,yymsp[-2].minor.yy120,yymsp[0].minor.yy26); }
#line 2245 "pikchr.c"
  yymsp[-2].minor.yy120 = yylhsminor.yy120;
        break;
      case 3: /* element ::= */
#line 486 "pikchr.y"
{ yymsp[1].minor.yy26 = 0; }
#line 2251 "pikchr.c"
        break;
      case 4: /* element ::= direction */
#line 487 "pikchr.y"
{ pik_set_direction(p,yymsp[0].minor.yy0.eCode);  yylhsminor.yy26=0; }
#line 2256 "pikchr.c"
  yymsp[0].minor.yy26 = yylhsminor.yy26;
        break;
      case 5: /* element ::= lvalue ASSIGN rvalue */
#line 488 "pikchr.y"
{pik_set_var(p,&yymsp[-2].minor.yy0,yymsp[0].minor.yy191,&yymsp[-1].minor.yy0); yylhsminor.yy26=0;}
#line 2262 "pikchr.c"
  yymsp[-2].minor.yy26 = yylhsminor.yy26;
        break;
      case 6: /* element ::= PLACENAME COLON unnamed_element */
#line 490 "pikchr.y"
{ yylhsminor.yy26 = yymsp[0].minor.yy26;  pik_elem_setname(p,yymsp[0].minor.yy26,&yymsp[-2].minor.yy0); }
#line 2268 "pikchr.c"
  yymsp[-2].minor.yy26 = yylhsminor.yy26;
        break;
      case 7: /* element ::= PLACENAME COLON position */
#line 492 "pikchr.y"
{ yylhsminor.yy26 = pik_elem_new(p,0,0,0);
                 if(yylhsminor.yy26){ yylhsminor.yy26->ptAt = yymsp[0].minor.yy131; pik_elem_setname(p,yylhsminor.yy26,&yymsp[-2].minor.yy0); }}
#line 2275 "pikchr.c"
  yymsp[-2].minor.yy26 = yylhsminor.yy26;
        break;
      case 8: /* element ::= unnamed_element */
#line 494 "pikchr.y"
{yylhsminor.yy26 = yymsp[0].minor.yy26;}
#line 2281 "pikchr.c"
  yymsp[0].minor.yy26 = yylhsminor.yy26;
        break;
      case 9: /* element ::= print prlist */
#line 495 "pikchr.y"
{pik_append(p,"<br>\n",5); yymsp[-1].minor.yy26=0;}
#line 2287 "pikchr.c"
        break;
      case 10: /* rvalue ::= PLACENAME */
#line 506 "pikchr.y"
{yylhsminor.yy191 = pik_lookup_color(p,&yymsp[0].minor.yy0);}
#line 2292 "pikchr.c"
  yymsp[0].minor.yy191 = yylhsminor.yy191;
        break;
      case 11: /* pritem ::= FILL */
      case 12: /* pritem ::= COLOR */ yytestcase(yyruleno==12);
      case 13: /* pritem ::= THICKNESS */ yytestcase(yyruleno==13);
#line 511 "pikchr.y"
{pik_append_num(p,"",pik_value(p,yymsp[0].minor.yy0.z,yymsp[0].minor.yy0.n,0));}
#line 2300 "pikchr.c"
        break;
      case 14: /* pritem ::= rvalue */
#line 514 "pikchr.y"
{pik_append_num(p,"",yymsp[0].minor.yy191);}
#line 2305 "pikchr.c"
        break;
      case 15: /* pritem ::= STRING */
#line 515 "pikchr.y"
{pik_append_text(p,yymsp[0].minor.yy0.z+1,yymsp[0].minor.yy0.n-2,0);}
#line 2310 "pikchr.c"
        break;
      case 16: /* prsep ::= COMMA */
#line 516 "pikchr.y"
{pik_append(p, " ", 1);}
#line 2315 "pikchr.c"
        break;
      case 17: /* unnamed_element ::= basetype attribute_list */
#line 519 "pikchr.y"
{yylhsminor.yy26 = yymsp[-1].minor.yy26; pik_after_adding_attributes(p,yylhsminor.yy26);}
#line 2320 "pikchr.c"
  yymsp[-1].minor.yy26 = yylhsminor.yy26;
        break;
      case 18: /* basetype ::= CLASSNAME */
#line 521 "pikchr.y"
{yylhsminor.yy26 = pik_elem_new(p,&yymsp[0].minor.yy0,0,0); }
#line 2326 "pikchr.c"
  yymsp[0].minor.yy26 = yylhsminor.yy26;
        break;
      case 19: /* basetype ::= STRING textposition */
#line 523 "pikchr.y"
{yymsp[-1].minor.yy0.eCode = yymsp[0].minor.yy60; yylhsminor.yy26 = pik_elem_new(p,0,&yymsp[-1].minor.yy0,0); }
#line 2332 "pikchr.c"
  yymsp[-1].minor.yy26 = yylhsminor.yy26;
        break;
      case 20: /* basetype ::= LB savelist element_list RB */
#line 525 "pikchr.y"
{ p->list = yymsp[-2].minor.yy120; yymsp[-3].minor.yy26 = pik_elem_new(p,0,0,yymsp[-1].minor.yy120); if(yymsp[-3].minor.yy26) yymsp[-3].minor.yy26->errTok = yymsp[0].minor.yy0; }
#line 2338 "pikchr.c"
        break;
      case 21: /* savelist ::= */
#line 530 "pikchr.y"
{yymsp[1].minor.yy120 = p->list; p->list = 0;}
#line 2343 "pikchr.c"
        break;
      case 22: /* attribute_list ::= expr */
#line 537 "pikchr.y"
{ pik_add_direction(p,0,&yymsp[0].minor.yy191,0);}
#line 2348 "pikchr.c"
        break;
      case 23: /* attribute_list ::= expr PERCENT */
#line 538 "pikchr.y"
{ pik_add_direction(p,0,&yymsp[-1].minor.yy191,1);}
#line 2353 "pikchr.c"
        break;
      case 24: /* attribute ::= numproperty expr PERCENT */
#line 543 "pikchr.y"
{ pik_set_numprop(p,&yymsp[-2].minor.yy0,0.0,yymsp[-1].minor.yy191/100.0); }
#line 2358 "pikchr.c"
        break;
      case 25: /* attribute ::= numproperty expr */
      case 28: /* attribute ::= colorproperty rvalue */ yytestcase(yyruleno==28);
#line 544 "pikchr.y"
{ pik_set_numprop(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy191,0.0); }
#line 2364 "pikchr.c"
        break;
      case 26: /* attribute ::= dashproperty expr */
#line 545 "pikchr.y"
{ pik_set_dashed(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy191); }
#line 2369 "pikchr.c"
        break;
      case 27: /* attribute ::= dashproperty */
#line 546 "pikchr.y"
{ pik_set_dashed(p,&yymsp[0].minor.yy0,0);  }
#line 2374 "pikchr.c"
        break;
      case 29: /* attribute ::= direction expr PERCENT */
#line 549 "pikchr.y"
{ pik_add_direction(p,&yymsp[-2].minor.yy0,&yymsp[-1].minor.yy191,1);}
#line 2379 "pikchr.c"
        break;
      case 30: /* attribute ::= direction expr */
#line 550 "pikchr.y"
{ pik_add_direction(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy191,0);}
#line 2384 "pikchr.c"
        break;
      case 31: /* attribute ::= direction */
#line 551 "pikchr.y"
{ pik_add_direction(p,&yymsp[0].minor.yy0,0,0); }
#line 2389 "pikchr.c"
        break;
      case 32: /* attribute ::= direction even position */
#line 552 "pikchr.y"
{pik_evenwith(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy131);}
#line 2394 "pikchr.c"
        break;
      case 33: /* attribute ::= CLOSE */
#line 553 "pikchr.y"
{ pik_close_path(p,&yymsp[0].minor.yy0); }
#line 2399 "pikchr.c"
        break;
      case 34: /* attribute ::= CHOP */
#line 554 "pikchr.y"
{ p->cur->bChop = 1; }
#line 2404 "pikchr.c"
        break;
      case 35: /* attribute ::= FROM position */
#line 555 "pikchr.y"
{ pik_set_from(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy131); }
#line 2409 "pikchr.c"
        break;
      case 36: /* attribute ::= TO position */
#line 556 "pikchr.y"
{ pik_add_to(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy131); }
#line 2414 "pikchr.c"
        break;
      case 37: /* attribute ::= THEN */
#line 557 "pikchr.y"
{ pik_then(p, &yymsp[0].minor.yy0, p->cur); }
#line 2419 "pikchr.c"
        break;
      case 38: /* attribute ::= AT position */
#line 559 "pikchr.y"
{ pik_set_at(p,0,&yymsp[0].minor.yy131,&yymsp[-1].minor.yy0); }
#line 2424 "pikchr.c"
        break;
      case 39: /* attribute ::= SAME */
#line 561 "pikchr.y"
{pik_same(p,0,&yymsp[0].minor.yy0);}
#line 2429 "pikchr.c"
        break;
      case 40: /* attribute ::= SAME AS object */
#line 562 "pikchr.y"
{pik_same(p,yymsp[0].minor.yy26,&yymsp[-2].minor.yy0);}
#line 2434 "pikchr.c"
        break;
      case 41: /* attribute ::= STRING textposition */
#line 563 "pikchr.y"
{pik_add_txt(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy60);}
#line 2439 "pikchr.c"
        break;
      case 42: /* attribute ::= FIT */
#line 564 "pikchr.y"
{pik_size_to_fit(p,&yymsp[0].minor.yy0); }
#line 2444 "pikchr.c"
        break;
      case 43: /* with ::= DOT_E edge AT position */
      case 44: /* with ::= edge AT position */ yytestcase(yyruleno==44);
#line 571 "pikchr.y"
{ pik_set_at(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy131,&yymsp[-1].minor.yy0); }
#line 2450 "pikchr.c"
        break;
      case 45: /* numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
#line 575 "pikchr.y"
{yylhsminor.yy0 = yymsp[0].minor.yy0;}
#line 2455 "pikchr.c"
  yymsp[0].minor.yy0 = yylhsminor.yy0;
        break;
      case 46: /* boolproperty ::= CW */
#line 586 "pikchr.y"
{p->cur->cw = 1;}
#line 2461 "pikchr.c"
        break;
      case 47: /* boolproperty ::= CCW */
#line 587 "pikchr.y"
{p->cur->cw = 0;}
#line 2466 "pikchr.c"
        break;
      case 48: /* boolproperty ::= LARROW */
#line 588 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=0; }
#line 2471 "pikchr.c"
        break;
      case 49: /* boolproperty ::= RARROW */
#line 589 "pikchr.y"
{p->cur->larrow=0; p->cur->rarrow=1; }
#line 2476 "pikchr.c"
        break;
      case 50: /* boolproperty ::= LRARROW */
#line 590 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=1; }
#line 2481 "pikchr.c"
        break;
      case 51: /* boolproperty ::= INVIS */
#line 591 "pikchr.y"
{p->cur->sw = 0.0;}
#line 2486 "pikchr.c"
        break;
      case 52: /* boolproperty ::= THICK */
#line 592 "pikchr.y"
{p->cur->sw *= 1.5;}
#line 2491 "pikchr.c"
        break;
      case 53: /* boolproperty ::= THIN */
#line 593 "pikchr.y"
{p->cur->sw *= 0.67;}
#line 2496 "pikchr.c"
        break;
      case 54: /* textposition ::= */
#line 595 "pikchr.y"
{yymsp[1].minor.yy60 = 0;}
#line 2501 "pikchr.c"
        break;
      case 55: /* textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
#line 598 "pikchr.y"
{yylhsminor.yy60 = pik_text_position(p,yymsp[-1].minor.yy60,&yymsp[0].minor.yy0);}
#line 2506 "pikchr.c"
  yymsp[-1].minor.yy60 = yylhsminor.yy60;
        break;
      case 56: /* position ::= expr COMMA expr */
#line 601 "pikchr.y"
{yylhsminor.yy131.x=yymsp[-2].minor.yy191; yylhsminor.yy131.y=yymsp[0].minor.yy191;}
#line 2512 "pikchr.c"
  yymsp[-2].minor.yy131 = yylhsminor.yy131;
        break;
      case 57: /* position ::= place PLUS expr COMMA expr */
#line 603 "pikchr.y"
{yylhsminor.yy131.x=yymsp[-4].minor.yy131.x+yymsp[-2].minor.yy191; yylhsminor.yy131.y=yymsp[-4].minor.yy131.y+yymsp[0].minor.yy191;}
#line 2518 "pikchr.c"
  yymsp[-4].minor.yy131 = yylhsminor.yy131;
        break;
      case 58: /* position ::= place MINUS expr COMMA expr */
#line 604 "pikchr.y"
{yylhsminor.yy131.x=yymsp[-4].minor.yy131.x-yymsp[-2].minor.yy191; yylhsminor.yy131.y=yymsp[-4].minor.yy131.y-yymsp[0].minor.yy191;}
#line 2524 "pikchr.c"
  yymsp[-4].minor.yy131 = yylhsminor.yy131;
        break;
      case 59: /* position ::= place PLUS LP expr COMMA expr RP */
#line 606 "pikchr.y"
{yylhsminor.yy131.x=yymsp[-6].minor.yy131.x+yymsp[-3].minor.yy191; yylhsminor.yy131.y=yymsp[-6].minor.yy131.y+yymsp[-1].minor.yy191;}
#line 2530 "pikchr.c"
  yymsp[-6].minor.yy131 = yylhsminor.yy131;
        break;
      case 60: /* position ::= place MINUS LP expr COMMA expr RP */
#line 608 "pikchr.y"
{yylhsminor.yy131.x=yymsp[-6].minor.yy131.x-yymsp[-3].minor.yy191; yylhsminor.yy131.y=yymsp[-6].minor.yy131.y-yymsp[-1].minor.yy191;}
#line 2536 "pikchr.c"
  yymsp[-6].minor.yy131 = yylhsminor.yy131;
        break;
      case 61: /* position ::= LP position COMMA position RP */
#line 609 "pikchr.y"
{yymsp[-4].minor.yy131.x=yymsp[-3].minor.yy131.x; yymsp[-4].minor.yy131.y=yymsp[-1].minor.yy131.y;}
#line 2542 "pikchr.c"
        break;
      case 62: /* position ::= LP position RP */
#line 610 "pikchr.y"
{yymsp[-2].minor.yy131=yymsp[-1].minor.yy131;}
#line 2547 "pikchr.c"
        break;
      case 63: /* position ::= expr between position AND position */
#line 612 "pikchr.y"
{yylhsminor.yy131 = pik_position_between(p,yymsp[-4].minor.yy191,yymsp[-2].minor.yy131,yymsp[0].minor.yy131);}
#line 2552 "pikchr.c"
  yymsp[-4].minor.yy131 = yylhsminor.yy131;
        break;
      case 64: /* position ::= expr ABOVE position */
#line 613 "pikchr.y"
{yylhsminor.yy131=yymsp[0].minor.yy131; yylhsminor.yy131.y += yymsp[-2].minor.yy191;}
#line 2558 "pikchr.c"
  yymsp[-2].minor.yy131 = yylhsminor.yy131;
        break;
      case 65: /* position ::= expr BELOW position */
#line 614 "pikchr.y"
{yylhsminor.yy131=yymsp[0].minor.yy131; yylhsminor.yy131.y -= yymsp[-2].minor.yy191;}
#line 2564 "pikchr.c"
  yymsp[-2].minor.yy131 = yylhsminor.yy131;
        break;
      case 66: /* position ::= expr LEFT OF position */
#line 615 "pikchr.y"
{yylhsminor.yy131=yymsp[0].minor.yy131; yylhsminor.yy131.x -= yymsp[-3].minor.yy191;}
#line 2570 "pikchr.c"
  yymsp[-3].minor.yy131 = yylhsminor.yy131;
        break;
      case 67: /* position ::= expr RIGHT OF position */
#line 616 "pikchr.y"
{yylhsminor.yy131=yymsp[0].minor.yy131; yylhsminor.yy131.x += yymsp[-3].minor.yy191;}
#line 2576 "pikchr.c"
  yymsp[-3].minor.yy131 = yylhsminor.yy131;
        break;
      case 68: /* position ::= expr EDGEPT OF position */
#line 618 "pikchr.y"
{yylhsminor.yy131 = pik_position_at_hdg(p,yymsp[-3].minor.yy191,&yymsp[-2].minor.yy0,yymsp[0].minor.yy131);}
#line 2582 "pikchr.c"
  yymsp[-3].minor.yy131 = yylhsminor.yy131;
        break;
      case 69: /* position ::= expr HEADING expr FROM position */
#line 620 "pikchr.y"
{yylhsminor.yy131 = pik_position_at_angle(p,yymsp[-4].minor.yy191,yymsp[-2].minor.yy191,yymsp[0].minor.yy131);}
#line 2588 "pikchr.c"
  yymsp[-4].minor.yy131 = yylhsminor.yy131;
        break;
      case 70: /* place ::= object */
#line 626 "pikchr.y"
{yylhsminor.yy131 = pik_place_of_elem(p,yymsp[0].minor.yy26,0);}
#line 2594 "pikchr.c"
  yymsp[0].minor.yy131 = yylhsminor.yy131;
        break;
      case 71: /* place ::= object DOT_E edge */
      case 72: /* place ::= object DOT_L START */ yytestcase(yyruleno==72);
      case 73: /* place ::= object DOT_L END */ yytestcase(yyruleno==73);
#line 627 "pikchr.y"
{yylhsminor.yy131 = pik_place_of_elem(p,yymsp[-2].minor.yy26,&yymsp[0].minor.yy0);}
#line 2602 "pikchr.c"
  yymsp[-2].minor.yy131 = yylhsminor.yy131;
        break;
      case 74: /* place ::= START OF object */
      case 75: /* place ::= END OF object */ yytestcase(yyruleno==75);
      case 76: /* place ::= edge OF object */ yytestcase(yyruleno==76);
#line 630 "pikchr.y"
{yylhsminor.yy131 = pik_place_of_elem(p,yymsp[0].minor.yy26,&yymsp[-2].minor.yy0);}
#line 2610 "pikchr.c"
  yymsp[-2].minor.yy131 = yylhsminor.yy131;
        break;
      case 77: /* place ::= NTH VERTEX OF object */
#line 633 "pikchr.y"
{yylhsminor.yy131 = pik_nth_vertex(p,&yymsp[-3].minor.yy0,&yymsp[-2].minor.yy0,yymsp[0].minor.yy26);}
#line 2616 "pikchr.c"
  yymsp[-3].minor.yy131 = yylhsminor.yy131;
        break;
      case 78: /* object ::= nth */
#line 636 "pikchr.y"
{yylhsminor.yy26 = pik_find_nth(p,0,&yymsp[0].minor.yy0);}
#line 2622 "pikchr.c"
  yymsp[0].minor.yy26 = yylhsminor.yy26;
        break;
      case 79: /* object ::= nth OF|IN object */
#line 637 "pikchr.y"
{yylhsminor.yy26 = pik_find_nth(p,yymsp[0].minor.yy26,&yymsp[-2].minor.yy0);}
#line 2628 "pikchr.c"
  yymsp[-2].minor.yy26 = yylhsminor.yy26;
        break;
      case 80: /* objectname ::= PLACENAME */
#line 639 "pikchr.y"
{yylhsminor.yy26 = pik_find_byname(p,0,&yymsp[0].minor.yy0);}
#line 2634 "pikchr.c"
  yymsp[0].minor.yy26 = yylhsminor.yy26;
        break;
      case 81: /* objectname ::= objectname DOT_U PLACENAME */
#line 641 "pikchr.y"
{yylhsminor.yy26 = pik_find_byname(p,yymsp[-2].minor.yy26,&yymsp[0].minor.yy0);}
#line 2640 "pikchr.c"
  yymsp[-2].minor.yy26 = yylhsminor.yy26;
        break;
      case 82: /* nth ::= NTH CLASSNAME */
#line 643 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-1].minor.yy0); }
#line 2646 "pikchr.c"
  yymsp[-1].minor.yy0 = yylhsminor.yy0;
        break;
      case 83: /* nth ::= NTH LAST CLASSNAME */
#line 644 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-2].minor.yy0); }
#line 2652 "pikchr.c"
  yymsp[-2].minor.yy0 = yylhsminor.yy0;
        break;
      case 84: /* nth ::= LAST CLASSNAME */
#line 645 "pikchr.y"
{yymsp[-1].minor.yy0=yymsp[0].minor.yy0; yymsp[-1].minor.yy0.eCode = -1;}
#line 2658 "pikchr.c"
        break;
      case 85: /* nth ::= LAST */
#line 646 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -1;}
#line 2663 "pikchr.c"
  yymsp[0].minor.yy0 = yylhsminor.yy0;
        break;
      case 86: /* nth ::= NTH LB RB */
#line 647 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-2].minor.yy0);}
#line 2669 "pikchr.c"
  yymsp[-2].minor.yy0 = yylhsminor.yy0;
        break;
      case 87: /* nth ::= NTH LAST LB RB */
#line 648 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-3].minor.yy0);}
#line 2675 "pikchr.c"
  yymsp[-3].minor.yy0 = yylhsminor.yy0;
        break;
      case 88: /* nth ::= LAST LB RB */
#line 649 "pikchr.y"
{yymsp[-2].minor.yy0=yymsp[-1].minor.yy0; yymsp[-2].minor.yy0.eCode = -1; }
#line 2681 "pikchr.c"
        break;
      case 89: /* expr ::= expr PLUS expr */
#line 651 "pikchr.y"
{yylhsminor.yy191=yymsp[-2].minor.yy191+yymsp[0].minor.yy191;}
#line 2686 "pikchr.c"
  yymsp[-2].minor.yy191 = yylhsminor.yy191;
        break;
      case 90: /* expr ::= expr MINUS expr */
#line 652 "pikchr.y"
{yylhsminor.yy191=yymsp[-2].minor.yy191-yymsp[0].minor.yy191;}
#line 2692 "pikchr.c"
  yymsp[-2].minor.yy191 = yylhsminor.yy191;
        break;
      case 91: /* expr ::= expr STAR expr */
#line 653 "pikchr.y"
{yylhsminor.yy191=yymsp[-2].minor.yy191*yymsp[0].minor.yy191;}
#line 2698 "pikchr.c"
  yymsp[-2].minor.yy191 = yylhsminor.yy191;
        break;
      case 92: /* expr ::= expr SLASH expr */
#line 654 "pikchr.y"
{
  if( yymsp[0].minor.yy191==0.0 ){ pik_error(p, &yymsp[-1].minor.yy0, "division by zero"); yylhsminor.yy191 = 0.0; }
  else{ yylhsminor.yy191 = yymsp[-2].minor.yy191/yymsp[0].minor.yy191; }
}
#line 2707 "pikchr.c"
  yymsp[-2].minor.yy191 = yylhsminor.yy191;
        break;
      case 93: /* expr ::= MINUS expr */
#line 658 "pikchr.y"
{yymsp[-1].minor.yy191=-yymsp[0].minor.yy191;}
#line 2713 "pikchr.c"
        break;
      case 94: /* expr ::= PLUS expr */
#line 659 "pikchr.y"
{yymsp[-1].minor.yy191=yymsp[0].minor.yy191;}
#line 2718 "pikchr.c"
        break;
      case 95: /* expr ::= LP expr RP */
#line 660 "pikchr.y"
{yymsp[-2].minor.yy191=yymsp[-1].minor.yy191;}
#line 2723 "pikchr.c"
        break;
      case 96: /* expr ::= NUMBER */
#line 661 "pikchr.y"
{yylhsminor.yy191=pik_atof(p,&yymsp[0].minor.yy0);}
#line 2728 "pikchr.c"
  yymsp[0].minor.yy191 = yylhsminor.yy191;
        break;
      case 97: /* expr ::= ID */
#line 662 "pikchr.y"
{yylhsminor.yy191=pik_get_var(p,&yymsp[0].minor.yy0);}
#line 2734 "pikchr.c"
  yymsp[0].minor.yy191 = yylhsminor.yy191;
        break;
      case 98: /* expr ::= FUNC1 LP expr RP */
#line 663 "pikchr.y"
{yylhsminor.yy191 = pik_func(p,&yymsp[-3].minor.yy0,yymsp[-1].minor.yy191,0.0);}
#line 2740 "pikchr.c"
  yymsp[-3].minor.yy191 = yylhsminor.yy191;
        break;
      case 99: /* expr ::= FUNC2 LP expr COMMA expr RP */
#line 664 "pikchr.y"
{yylhsminor.yy191 = pik_func(p,&yymsp[-5].minor.yy0,yymsp[-3].minor.yy191,yymsp[-1].minor.yy191);}
#line 2746 "pikchr.c"
  yymsp[-5].minor.yy191 = yylhsminor.yy191;
        break;
      case 100: /* expr ::= object DOT_L locproperty */
      case 101: /* expr ::= object DOT_L numproperty */ yytestcase(yyruleno==101);
      case 102: /* expr ::= object DOT_L dashproperty */ yytestcase(yyruleno==102);
      case 103: /* expr ::= object DOT_L colorproperty */ yytestcase(yyruleno==103);
#line 666 "pikchr.y"
{yylhsminor.yy191=pik_property_of(p,yymsp[-2].minor.yy26,&yymsp[0].minor.yy0);}
#line 2755 "pikchr.c"
  yymsp[-2].minor.yy191 = yylhsminor.yy191;
        break;
      case 104: /* expr ::= object DOT_E edge DOT_L X */
#line 670 "pikchr.y"
{yylhsminor.yy191=pik_place_of_elem(p,yymsp[-4].minor.yy26,&yymsp[-2].minor.yy0).x;}
#line 2761 "pikchr.c"
  yymsp[-4].minor.yy191 = yylhsminor.yy191;
        break;
      case 105: /* expr ::= object DOT_E edge DOT_L Y */
#line 671 "pikchr.y"
{yylhsminor.yy191=pik_place_of_elem(p,yymsp[-4].minor.yy26,&yymsp[-2].minor.yy0).y;}
#line 2767 "pikchr.c"
  yymsp[-4].minor.yy191 = yylhsminor.yy191;
        break;
      case 106: /* expr ::= LP locproperty OF object RP */
      case 107: /* expr ::= LP dashproperty OF object RP */ yytestcase(yyruleno==107);
      case 108: /* expr ::= LP numproperty OF object RP */ yytestcase(yyruleno==108);
      case 109: /* expr ::= LP colorproperty OF object RP */ yytestcase(yyruleno==109);
#line 672 "pikchr.y"
{yymsp[-4].minor.yy191=pik_property_of(p,yymsp[-1].minor.yy26,&yymsp[-3].minor.yy0);}
#line 2776 "pikchr.c"
        break;
      case 110: /* expr ::= NTH VERTEX OF object DOT_L X */
#line 678 "pikchr.y"
{yylhsminor.yy191 = pik_nth_vertex(p,&yymsp[-5].minor.yy0,&yymsp[-4].minor.yy0,yymsp[-2].minor.yy26).x;}
#line 2781 "pikchr.c"
  yymsp[-5].minor.yy191 = yylhsminor.yy191;
        break;
      case 111: /* expr ::= NTH VERTEX OF object DOT_L Y */
#line 680 "pikchr.y"
{yylhsminor.yy191 = pik_nth_vertex(p,&yymsp[-5].minor.yy0,&yymsp[-4].minor.yy0,yymsp[-2].minor.yy26).y;}
#line 2787 "pikchr.c"
  yymsp[-5].minor.yy191 = yylhsminor.yy191;
        break;
      default:
      /* (112) lvalue ::= ID */ yytestcase(yyruleno==112);
      /* (113) lvalue ::= FILL */ yytestcase(yyruleno==113);
      /* (114) lvalue ::= COLOR */ yytestcase(yyruleno==114);
      /* (115) lvalue ::= THICKNESS */ yytestcase(yyruleno==115);
      /* (116) rvalue ::= expr */ yytestcase(yyruleno==116);
      /* (117) print ::= PRINT */ yytestcase(yyruleno==117);
      /* (118) prlist ::= pritem (OPTIMIZED OUT) */ assert(yyruleno!=118);
      /* (119) prlist ::= prlist prsep pritem */ yytestcase(yyruleno==119);
      /* (120) direction ::= UP */ yytestcase(yyruleno==120);
      /* (121) direction ::= DOWN */ yytestcase(yyruleno==121);
      /* (122) direction ::= LEFT */ yytestcase(yyruleno==122);
      /* (123) direction ::= RIGHT */ yytestcase(yyruleno==123);
      /* (124) attribute_list ::= alist */ yytestcase(yyruleno==124);
      /* (125) alist ::= */ yytestcase(yyruleno==125);
      /* (126) alist ::= alist attribute */ yytestcase(yyruleno==126);
      /* (127) attribute ::= boolproperty (OPTIMIZED OUT) */ assert(yyruleno!=127);
      /* (128) attribute ::= WITH withclause */ yytestcase(yyruleno==128);
      /* (129) even ::= UNTIL EVEN WITH */ yytestcase(yyruleno==129);
      /* (130) even ::= EVEN WITH */ yytestcase(yyruleno==130);
      /* (131) withclause ::= with (OPTIMIZED OUT) */ assert(yyruleno!=131);
      /* (132) withclause ::= withclause AND with */ yytestcase(yyruleno==132);
      /* (133) dashproperty ::= DOTTED */ yytestcase(yyruleno==133);
      /* (134) dashproperty ::= DASHED */ yytestcase(yyruleno==134);
      /* (135) colorproperty ::= FILL */ yytestcase(yyruleno==135);
      /* (136) colorproperty ::= COLOR */ yytestcase(yyruleno==136);
      /* (137) position ::= place */ yytestcase(yyruleno==137);
      /* (138) between ::= WAY BETWEEN */ yytestcase(yyruleno==138);
      /* (139) between ::= BETWEEN */ yytestcase(yyruleno==139);
      /* (140) between ::= OF THE WAY BETWEEN */ yytestcase(yyruleno==140);
      /* (141) object ::= objectname */ yytestcase(yyruleno==141);
      /* (142) locproperty ::= X|Y */ yytestcase(yyruleno==142);
      /* (143) edge ::= EDGEPT */ yytestcase(yyruleno==143);
      /* (144) edge ::= TOP */ yytestcase(yyruleno==144);
      /* (145) edge ::= BOTTOM */ yytestcase(yyruleno==145);
      /* (146) edge ::= LEFT */ yytestcase(yyruleno==146);
      /* (147) edge ::= RIGHT */ yytestcase(yyruleno==147);
        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 467 "pikchr.y"

  if( TOKEN.z && TOKEN.z[0] ){
    pik_error(p, &TOKEN, "syntax error");
  }else{
    pik_error(p, 0, "syntax error");
  }
#line 2893 "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 690 "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 void arcRender(Pik *p, PElem *pElem){
  PNum dx, dy;
  PPoint f, m, t;
  if( pElem->nPath<2 ) return;
  if( pElem->sw<=0.0 ) return;
  f = pElem->aPath[0];
  t = pElem->aPath[1];
  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( pElem->cw ){
    m.x -= 0.4*dy;
    m.y += 0.4*dx;
  }else{
    m.x += 0.4*dy;
    m.y -= 0.4*dx;
  }
  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);
  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;
  }
  return pt;
}
static PPoint boxChop(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(0,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;
}
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);
    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;
  }
}
static PPoint circleChop(PElem *pElem, PPoint *pPt){
  PPoint chop;
  PNum dx = pPt->x - pElem->ptAt.x;
  PNum dy = pPt->y - pElem->ptAt.y;
  PNum dist = sqrt(dx*dx + dy*dy);
  if( dist<pElem->rad ) return pElem->ptAt;
  chop.x = pElem->ptAt.x + dx*pElem->rad/dist;
  chop.y = pElem->ptAt.y + dy*pElem->rad/dist;
  return chop;
}
static void circleFit(Pik *p, PElem *pElem, PNum w, PNum h){
  PNum mx = 0.0;
  if( w>0 ) mx = w;
  if( h>mx ) mx = h;
  if( (w*w + h*h) > mx*mx ){
    mx = sqrt(w*w + h*h);
  }
  if( mx>0.0 ){
    pElem->rad = 0.5*mx;
    pElem->w = pElem->h = mx;
  }
}

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);
    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 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);
    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;
  }
  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;
  }
}
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);
    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(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 = sqrt(dq*dq + dy*dy);
  if( dist<pElem->h ) return pElem->ptAt;
  chop.x = pElem->ptAt.x + 0.5*dq*pElem->h/(dist*s);
  chop.y = pElem->ptAt.y + 0.5*dy*pElem->h/dist;
  return chop;
}
static PPoint ellipseOffset(Pik *p, PElem *pElem, int cp){
  PPoint pt;
  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;
  }
  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);
    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 box 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;
  }
  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;
}
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);
    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);
    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 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);
    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 */
}

/* 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){
  /* 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){
  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 reach "t", except if the path is less than 2*r total,
** return the midpoint.
*/
static PPoint radiusMidpoint(PPoint f, PPoint t, PNum r, int *pbMid){
  PNum dx = t.x - f.x;
  PNum dy = t.y - f.y;
  PNum dist = sqrt(dx*dx+dy*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);
  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;
}

/* Methods for the "sublist" class */
static void sublistInit(Pik *p, PElem *pElem){
  PEList *pList = pElem->pSublist;
  int i;
  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;
}


/*
** 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,
      /* xChop */         0,
      /* xOffset */       0,
      /* xFit */          0,
      /* xRender */       arcRender
   },
   {  /* name */          "arrow",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         arrowInit,
      /* xNumProp */      0,
      /* xChop */         0,
      /* xOffset */       0,
      /* xFit */          0,
      /* xRender */       splineRender 
   },
   {  /* name */          "box",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         boxInit,
      /* xNumProp */      0,
      /* xChop */         boxChop,
      /* xOffset */       boxOffset,
      /* xFit */          boxFit,
      /* xRender */       boxRender 
   },
   {  /* name */          "circle",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         circleInit,
      /* xNumProp */      circleNumProp,
      /* xChop */         circleChop,
      /* xOffset */       ellipseOffset,
      /* xFit */          circleFit,
      /* xRender */       circleRender 
   },
   {  /* name */          "cylinder",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         cylinderInit,
      /* xNumProp */      0,
      /* xChop */         boxChop,
      /* xOffset */       cylinderOffset,
      /* xFit */          0,
      /* xRender */       cylinderRender
   },
   {  /* name */          "dot",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         dotInit,
      /* xNumProp */      dotNumProp,
      /* xChop */         circleChop,
      /* xOffset */       ellipseOffset,
      /* xFit */          0,
      /* xRender */       dotRender 
   },
   {  /* name */          "ellipse",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         ellipseInit,
      /* xNumProp */      0,
      /* xChop */         ellipseChop,
      /* xOffset */       ellipseOffset,
      /* xFit */          0,
      /* xRender */       ellipseRender
   },
   {  /* name */          "file",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         fileInit,
      /* xNumProp */      0,
      /* xChop */         boxChop,
      /* xOffset */       fileOffset,
      /* xFit */          fileFit,
      /* xRender */       fileRender 
   },
   {  /* name */          "line",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         lineInit,
      /* xNumProp */      0,
      /* xChop */         0,
      /* xOffset */       0,
      /* xFit */          0,
      /* xRender */       splineRender
   },
   {  /* name */          "move",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         moveInit,
      /* xNumProp */      0,
      /* xChop */         0,
      /* xOffset */       0,
      /* xFit */          0,
      /* xRender */       moveRender
   },
   {  /* name */          "oval",
      /* isline */        0,
      /* eJust */         1,
      /* xInit */         ovalInit,
      /* xNumProp */      ovalNumProp,
      /* xChop */         boxChop,
      /* xOffset */       boxOffset,
      /* xFit */          ovalFit,
      /* xRender */       boxRender
   },
   {  /* name */          "spline",
      /* isline */        1,
      /* eJust */         0,
      /* xInit */         splineInit,
      /* xNumProp */      0,
      /* xChop */         0,
      /* xOffset */       0,
      /* xFit */          0,
      /* xRender */       splineRender
   },
   {  /* name */          "text",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         textInit,
      /* xNumProp */      0,
      /* xChop */         boxChop,
      /* xOffset */       boxOffset,
      /* xFit */          boxFit,
      /* xRender */       boxRender 
   },
};
static const PClass sublistClass = 
   {  /* name */          "[]",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         sublistInit,
      /* xNumProp */      0,
      /* xChop */         0,
      /* xOffset */       0,
      /* xFit */          0,
      /* xRender */       0 
   };
static const PClass noopClass = 
   {  /* name */          "noop",
      /* isline */        0,
      /* eJust */         0,
      /* xInit */         0,
      /* xNumProp */      0,
      /* xChop */         0,
      /* xOffset */       0,
      /* 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(Pik *p, PPoint *f, PPoint *t, PNum amt){
  PNum dx = t->x - f->x;
  PNum dy = t->y - f->y;
  PNum dist = sqrt(dx*dx + dy*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 = sqrt(dx*dx + dy*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(p,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){
  if( pElem->type->xOffset==0 ){
    return boxOffset(p, pElem, cp);
  }else{
    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 "&nbsp;" if mFlags as the
**      0x01 bit set.  This is needed when outputting text to preserve
**      leading and trailing whitespace.
**
**   *  The "&" character is changed into "&amp;" if mFlags as the
**      0x02 bit set.  This is needed when generating error message text.
**
**   *  Except for the above, only "<" and ">" are escaped.
*/
static void pik_append_text(Pik *p, const char *zText, int n, int mFlags){
  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, "&nbsp;", 6);  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){
  pik_append(p, "style=\"", -1);
  if( pElem->fill>=0 ){
    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, ";");
    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(Pik *p, 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 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> SGV 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
**
**    jw         LJUST text is shifted to the left by this amount.
**               RJUST text is shifted to the right.
**
**    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(p, 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 = y = pElem->ptAt.y;
    PNum nx = x;
    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;
      PNum ch = p->charHeight*0.5*xtraFontScale;
      if( t->eCode & TP_RJUST ){
        pik_bbox_add_xy(pBox, nx, y-ch);
        pik_bbox_add_xy(pBox, nx-cw, y+ch);
      }else if( t->eCode & TP_LJUST ){
        pik_bbox_add_xy(pBox, nx, y-ch);
        pik_bbox_add_xy(pBox, nx+cw, y+ch);
      }else{
        pik_bbox_add_xy(pBox, nx+cw/2, y+ch);
        pik_bbox_add_xy(pBox, nx-cw/2, y-ch);
      }
      continue;
    }

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

/* 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(Pik *p, 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)==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;
}

/* 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 PPoint in the second argument
*/
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(Pik *p, 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 direction of travel
*/
static void pik_set_direction(Pik *p, int eDir){
  assert( ValidDir(eDir) );
  p->eDir = eDir;
  if( p->list && p->list->n ){
    pik_elem_set_exit(p, 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 */
  int mBlockers       /* Other value that might block this one */
){
  int m;
  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;
  }
  m = pElem->mProp & mBlockers;
  if( m ){
    pElem->mCalc |= mThis|mBlockers;
  }
  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, PNum rAbs, PNum rRel){
  PElem *pElem = p->cur;
  switch( pId->eType ){
    case T_HEIGHT:
      if( pik_param_ok(p, pElem, pId, A_HEIGHT, A_BOTTOM|A_TOP|A_AT) ) return;
      pElem->h = pElem->h*rRel + rAbs;
      break;
    case T_TOP:
      if( pik_param_ok(p, pElem, pId, A_TOP, A_BOTTOM|A_WIDTH|A_AT) ) return;
      pElem->top = rAbs;
      break;
    case T_BOTTOM:
      if( pik_param_ok(p, pElem, pId, A_BOTTOM, A_TOP|A_WIDTH|A_AT) ) return;
      pElem->bottom = rAbs;
      break;
    case T_WIDTH:
      if( pik_param_ok(p, pElem, pId, A_WIDTH, A_RIGHT|A_LEFT|A_AT) ) return;
      pElem->w = pElem->w*rRel + rAbs;
      break;
    case T_RIGHT:
      if( pik_param_ok(p, pElem, pId, A_RIGHT, A_WIDTH|A_LEFT|A_AT) ) return;
      pElem->right = rAbs;
      break;
    case T_LEFT:
      if( pik_param_ok(p, pElem, pId, A_LEFT, A_WIDTH|A_RIGHT|A_AT) ) return;
      pElem->left = rAbs;
      break;
    case T_RADIUS:
      if( pik_param_ok(p, pElem, pId, A_RADIUS, 0) ) return;
      pElem->rad = pElem->rad*rRel + rAbs;
      break;
    case T_DIAMETER:
      if( pik_param_ok(p, pElem, pId, A_RADIUS, 0) ) return;
      pElem->rad = pElem->rad*rRel + 0.5*rAbs; /* diam it 2x radius */
      break;
    case T_THICKNESS:
      if( pik_param_ok(p, pElem, pId, A_THICKNESS, 0) ) return;
      pElem->sw = pElem->sw*rRel + rAbs;
      break;
    case T_FILL:
      if( pik_param_ok(p, pElem, pId, A_FILL, 0) ) return;
      pElem->fill = rAbs;
      break;
    case T_COLOR:
      if( pik_param_ok(p, pElem, pId, A_COLOR, 0) ) return;
      pElem->color = rAbs;
      break;
  }
  if( pElem->type->xNumProp ){
    pElem->type->xNumProp(p, pElem, pId);
  }
  return;
}

/*
** Set a "dashed" property like "dash 0.05" or "chop"
**
** 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;
    }
  }
}


/* 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 elements only");
    return;
  }
  n = p->nTPath - 1;
  if( n<1 ){
    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>=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 to 1.3".  Specific processing depends on parameters:
**
**   pVal==0   Add the default width or height to the coordinate.
**             Used to implement "down" and similar.
**
**   rel==0    Add or subtract *pVal to the path coordinate.  Used to
**             implement "up 0.5" and similar.
**
**   rel==1    Multiple 0.01*pVal with the width or height (as appropriate)
**             and add that to the coordinate.  Used for "left 50%" and
**             similar.
**
**   rel==2    Make the coordinate exactly equal to *pVal.  Used to
**             implement things like "down to 1.3".
*/
static void pik_add_direction(Pik *p, PToken *pDir, PNum *pVal, int rel){
  PElem *pElem = p->cur;
  int n;
  int dir;
  PNum scale = 1.0;
  if( !pElem->type->isLine ){
    if( pDir ){
      pik_error(p, pDir, "use with line-oriented elements only");
    }else{
      PToken x = pik_next_semantic_token(p, &pElem->errTok);
      pik_error(p, &x, "syntax error");
    }
    return;
  }
  if( pVal && rel==1 ){
    scale = *pVal/100;
    pVal = 0;
  }
  if( rel==2 ){
    pElem->mProp |= A_FROM;
  }
  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);
       if( rel==2 ) p->aTPath[n].y = 0;
       p->aTPath[n].y += (pVal ? *pVal : pElem->h*scale);
       p->mTPath |= 2;
       break;
    case DIR_DOWN:
       if( p->mTPath & 2 ) n = pik_next_rpath(p, pDir);
       if( rel==2 ) p->aTPath[n].y = 0;
       p->aTPath[n].y -= (pVal ? *pVal : pElem->h*scale);
       p->mTPath |= 2;
       break;
    case DIR_RIGHT:
       if( p->mTPath & 1 ) n = pik_next_rpath(p, pDir);
       if( rel==2 ) p->aTPath[n].x = 0;
       p->aTPath[n].x += (pVal ? *pVal : pElem->w*scale);
       p->mTPath |= 1;
       break;
    case DIR_LEFT:
       if( p->mTPath & 1 ) n = pik_next_rpath(p, pDir);
       if( rel==2 ) p->aTPath[n].x = 0;
       p->aTPath[n].x -= (pVal ? *pVal : pElem->w*scale);
       p->mTPath |= 1;
       break;
  }
  pElem->outDir = dir;
}

/* 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
** 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 elements only");
    return;
  }
  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( p->mTPath || p->mTPath ){
    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;
}


/* 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;
  }
  if( pElem->mCalc & A_AT ){
    pik_error(p, pErrTok, "location fixed by prior constraints");
    return;
  }
  if( pElem->mProp & (A_WIDTH|A_LEFT|A_RIGHT) ){
    pElem->mCalc |= (A_WIDTH|A_LEFT|A_RIGHT|A_AT);
  }
  if( pElem->mProp & (A_HEIGHT|A_TOP|A_BOTTOM) ){
    pElem->mCalc |= (A_HEIGHT|A_TOP|A_BOTTOM|A_AT);
  }
  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(Pik *p, 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;
}

/* Return an estimate of the actually number of displayed characters
** in a character string.
**
** Omit "\" used to escape characters.  And count entities like
** "&lt;" as a single character.
*/
static int pik_text_length(const PToken *pToken){
  int n = pToken->n;
  const char *z = pToken->z;
  int cnt, j;
  for(j=1, cnt=0; j<n-1; j++){
    cnt++;
    if( z[j]=='\\' && z[j+1]!='&' ){
      j++;
    }else if( z[j]=='&' ){
      int k;
      for(k=j+1; k<j+7 && z[k]!=';'; k++){}
      if( z[k]==';' ) j = k;
    }
  }
  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;
  int w = 0, h = 0;
  int i;
  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;
  if( (pElem->mProp & A_HEIGHT)==0 ){
    int hasCenter = 0;
    int hasSingleStack = 0;
    int hasDoubleStack = 0;
    pik_txt_vertical_layout(p, pElem);
    for(i=0; i<pElem->nTxt; i++){
      if( pElem->aTxt[i].eCode & TP_CENTER ){
        hasCenter = 1;
      }else if( pElem->aTxt[i].eCode & (TP_ABOVE2|TP_BELOW2) ){
        hasDoubleStack = 1;
      }else if( pElem->aTxt[i].eCode & (TP_ABOVE|TP_BELOW) ){
        hasSingleStack = 1;
      }
    }
    h = hasCenter + hasSingleStack*2 + hasDoubleStack*2;
  }
  if( (pElem->mProp & A_WIDTH)==0 ){
    for(i=0; i<pElem->nTxt; i++){
      int cnt = pik_text_length(&pElem->aTxt[i]);
      if( pElem->type->eJust==0 
       && (pElem->aTxt[i].eCode & TP_JMASK)!=0
      ){
         cnt *= 2;
      }
      if( cnt>w ) w = cnt;
    }
  }
  if( h>0 || w>0 ){
    pik_compute_layout_settings(p);
    pElem->type->xFit(p, pElem, w*p->charWidth, h*p->charHeight);
  }
}

/* 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, 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 pElem object, or the most recent element of the same
** type if pElem 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;
  }
  pElem->w = pOther->w;
  pElem->h = pOther->h;
  pElem->rad = pOther->rad;
  pElem->sw = pOther->sw;
  pElem->dashed = pOther->dashed;
  pElem->dotted = pOther->dashed;
  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;
}


/* 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 ){
    if( pClass->isLine ){
      pik_error(0, pEdge,
          "line objects have only \"start\" and \"end\" points");
      return pt;
    }
    if( pClass->xOffset==0 ){
      pt = boxOffset(p, pElem, pEdge->eEdge);
    }else{
      pt = pClass->xOffset(p, pElem, pEdge->eEdge);
    }
    pt.x += pElem->ptAt.x;
    pt.y += pElem->ptAt.y;
    return pt;
  }
  if( !pClass->isLine ){
    pik_error(0, pEdge,
          "only line objects have \"start\" and \"end\" points");
    return pt;
  }
  if( pEdge->eType==T_START ){
    return pElem->aPath[0];
  }else{
    return pElem->aPath[pElem->nPath-1];
  }
}

/* Do a linear interpolation of two positions.
*/
static PPoint pik_position_between(Pik *p, 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 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(Pik *p, 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(Pik *p, PNum dist, PToken *pD, PPoint pt){
  return pik_position_at_angle(p, 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(Pik *p, 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(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;
  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( strcmp(pElem->type->zName,"arc")==0 ){
      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;
      }
    }
  }

  /* Run "fit" on the text type automatically */
  if( pElem->type->xInit==textInit && pElem->nTxt ){
    pik_size_to_fit(p, &pElem->errTok);
  }

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

    /* "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 = p->aTPath[0];
    pElem->ptExit = p->aTPath[p->nTPath-1];

    /* Compute the center of the line based on the bounding box over
    ** the vertexes */
    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 ){
      pik_elem_set_exit(p, 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;
    }
    pElem->bbox.sw.x = pElem->ptAt.x - w2;
    pElem->bbox.sw.y = pElem->ptAt.y - h2;
    pElem->bbox.ne.x = pElem->ptAt.x + w2;
    pElem->bbox.ne.y = 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->rScale = 144.0*pik_value(p,"scale",5,0);
  if( p->rScale<5.0 ) p->rScale = 5.0;
  p->fontScale = pik_value(p,"fontscale",9,0);
  if( p->fontScale<=0.0 ) p->fontScale = 1.0;
  p->fontScale *= 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 leftmargin; /* Extra bounding box area on the left */
    PNum w, h;       /* Drawing width and height */
    PNum wArrow;

    /* 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;
    leftmargin = pik_value(p,"leftmargin",10,0);
    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;
    p->bbox.ne.y += margin;
    p->bbox.sw.x -= margin + leftmargin;
    p->bbox.sw.y -= margin;

    /* 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);
    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       },
  { "at",         2,   T_AT,        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,         0       },
  { "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       },
  { "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,         0       },
  { "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       },
  { "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,         0       },
  { "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.  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;
}


/*
** 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=='\\' ){ 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;
      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++){}
        if( z[i]!=0 ) 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_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_ERROR;
         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->eType==T_EDGEPT || pFound->eEdge>0) ){
            pToken->eType = T_DOT_E;
          }else{
            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=3; (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 = z[i+1];
        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(Pik *p, 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 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;
  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)
/* Texting 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;
  printf(
    "<!DOCTYPE html>\n"
    "<html lang=\"en-US\">\n"
    "<head>\n<title>PIKCHR Test</title>\n"
    "<meta charset=\"utf-8\">\n"
    "</head>\n"
    "<body>\n"
  );
  for(i=1; i<argc; i++){
    FILE *in;
    size_t sz;
    char *zIn;
    char *zOut;
    char *z, c;
    int j;
    int w, h;

    printf("<h1>File %s</h1>\n", argv[i]);
    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;
    printf("<p>Source text:</p>\n<blockquote><pre>\n");
    z = zIn;
    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;
      }
    }
    printf("</pre></blockquote>\n");
    zOut = pikchr(zIn, "pikchr", 0, &w, &h);
    free(zIn);
    if( zOut ){
      if( w<0 ){
        printf("<p>ERROR:</p>\n");
      }else{
        printf("<p>Output size: %d by %d</p>\n", w, h);
      }
      printf("<div style='border:2px solid gray;max-width:%dpx'>\n%s</div>\n",
             w, zOut);
      free(zOut);
    }
  }
  printf("</body></html>\n");
  return 0; 
}
#endif /* PIKCHR_SHELL */

#line 6693 "pikchr.c"
