/* 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_N 1
#define CP_NE 2
#define CP_E 3
#define CP_SE 4
#define CP_S 5
#define CP_SW 6
#define CP_W 7
#define CP_NW 8
#define CP_C 9 /* .center or .c */
/* Heading angles corresponding to compass points */
static const PNum pik_hdg_angle[] = {
/* none */ 0.0,
/* N */ 0.0,
/* NE */ 45.0,
/* E */ 90.0,
/* SE */ 135.0,
/* S */ 180.0,
/* SW */ 225.0,
/* W */ 270.0,
/* NW */ 315.0,
/* C */ 0.0,
};
/* Built-in functions */
#define FN_ABS 0
#define FN_COS 1
#define FN_INT 2
#define FN_MAX 3
#define FN_MIN 4
#define FN_SIN 5
#define FN_SQRT 6
/* Text position and style flags. Stored in PToken.eCode so limited
** to 15 bits. */
#define TP_LJUST 0x0001 /* left justify...... */
#define TP_RJUST 0x0002 /* ...Right justify */
#define TP_JMASK 0x0003 /* Mask for justification bits */
#define TP_ABOVE2 0x0004 /* Position text way above PElem.ptAt */
#define TP_ABOVE 0x0008 /* Position text above PElem.ptAt */
#define TP_CENTER 0x0010 /* On the line */
#define TP_BELOW 0x0020 /* Position text below PElem.ptAt */
#define TP_BELOW2 0x0040 /* Position text way below PElem.ptAt */
#define TP_VMASK 0x007c /* Mask for text positioning flags */
#define TP_BIG 0x0100 /* Larger font */
#define TP_SMALL 0x0200 /* Smaller font */
#define TP_XTRA 0x0400 /* Amplify TP_BIG or TP_SMALL */
#define TP_SZMASK 0x0700 /* Font size mask */
#define TP_ITALIC 0x1000 /* Italic font */
#define TP_BOLD 0x2000 /* Bold font */
#define TP_FMASK 0x3000 /* Mask for font style */
#define TP_ALIGN 0x4000 /* Rotate to align with the line */
/* An object to hold a position in 2-D space */
struct PPoint {
PNum x, y; /* X and Y coordinates */
};
/* A bounding box */
struct PBox {
PPoint sw, ne; /* Lower-left and top-right corners */
};
/* 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_move_hdg(Pik*,PNum*,PToken*,PNum,PToken*,PToken*);
static void pik_evenwith(Pik*,PToken*,PPoint*);
static void pik_set_from(Pik*,PElem*,PToken*,PPoint*);
static void pik_add_to(Pik*,PElem*,PToken*,PPoint*);
static void pik_close_path(Pik*,PToken*);
static void pik_set_at(Pik*,PToken*,PPoint*,PToken*);
static short int pik_nth_value(Pik*,PToken*);
static PElem *pik_find_nth(Pik*,PElem*,PToken*);
static PElem *pik_find_byname(Pik*,PElem*,PToken*);
static PPoint pik_place_of_elem(Pik*,PElem*,PToken*);
static int pik_bbox_isempty(PBox*);
static void pik_bbox_init(PBox*);
static void pik_bbox_addbox(PBox*,PBox*);
static void pik_bbox_add_xy(PBox*,PNum,PNum);
static void pik_bbox_addellipse(PBox*,PNum x,PNum y,PNum rx,PNum ry);
static void pik_add_txt(Pik*,PToken*,int);
static int pik_text_length(const PToken *pToken);
static void pik_size_to_fit(Pik*,PToken*);
static int pik_text_position(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*);
static void pik_behind(Pik*,PElem*);
static PElem *pik_assert(Pik*,PNum,PToken*,PNum);
static PElem *pik_place_assert(Pik*,PPoint*,PToken*,PPoint*);
#line 459 "pikchr.c"
/**************** End of %include directives **********************************/
/* These constants specify the various numeric values for terminal symbols.
***************** Begin token definitions *************************************/
#ifndef T_ID
#define T_ID 1
#define T_EDGEPT 2
#define T_OF 3
#define T_PLUS 4
#define T_MINUS 5
#define T_STAR 6
#define T_SLASH 7
#define T_PERCENT 8
#define T_UMINUS 9
#define T_EOL 10
#define T_ASSIGN 11
#define T_PLACENAME 12
#define T_COLON 13
#define T_ASSERT 14
#define T_LP 15
#define T_EQ 16
#define T_RP 17
#define T_FILL 18
#define T_COLOR 19
#define T_THICKNESS 20
#define T_PRINT 21
#define T_STRING 22
#define T_COMMA 23
#define T_CLASSNAME 24
#define T_LB 25
#define T_RB 26
#define T_UP 27
#define T_DOWN 28
#define T_LEFT 29
#define T_RIGHT 30
#define T_CLOSE 31
#define T_CHOP 32
#define T_FROM 33
#define T_TO 34
#define T_THEN 35
#define T_HEADING 36
#define T_GO 37
#define T_AT 38
#define T_WITH 39
#define T_SAME 40
#define T_AS 41
#define T_FIT 42
#define T_BEHIND 43
#define T_UNTIL 44
#define T_EVEN 45
#define T_DOT_E 46
#define T_HEIGHT 47
#define T_WIDTH 48
#define T_RADIUS 49
#define T_DIAMETER 50
#define T_DOTTED 51
#define T_DASHED 52
#define T_CW 53
#define T_CCW 54
#define T_LARROW 55
#define T_RARROW 56
#define T_LRARROW 57
#define T_INVIS 58
#define T_THICK 59
#define T_THIN 60
#define T_CENTER 61
#define T_LJUST 62
#define T_RJUST 63
#define T_ABOVE 64
#define T_BELOW 65
#define T_ITALIC 66
#define T_BOLD 67
#define T_ALIGNED 68
#define T_BIG 69
#define T_SMALL 70
#define T_AND 71
#define T_LT 72
#define T_GT 73
#define T_ON 74
#define T_WAY 75
#define T_BETWEEN 76
#define T_THE 77
#define T_NTH 78
#define T_VERTEX 79
#define T_TOP 80
#define T_BOTTOM 81
#define T_START 82
#define T_END 83
#define T_IN 84
#define T_DOT_U 85
#define T_LAST 86
#define T_NUMBER 87
#define T_FUNC1 88
#define T_FUNC2 89
#define T_DOT_XY 90
#define T_X 91
#define T_Y 92
#define T_DOT_L 93
#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 128
#define YYACTIONTYPE unsigned short int
#define pik_parserTOKENTYPE PToken
typedef union {
int yyinit;
pik_parserTOKENTYPE yy0;
PEList* yy52;
PElem* yy58;
int yy92;
PPoint yy95;
PNum yy149;
} 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 164
#define YYNRULE 155
#define YYNRULE_WITH_ACTION 116
#define YYNTOKEN 94
#define YY_MAX_SHIFT 163
#define YY_MIN_SHIFTREDUCE 283
#define YY_MAX_SHIFTREDUCE 437
#define YY_ERROR_ACTION 438
#define YY_ACCEPT_ACTION 439
#define YY_NO_ACTION 440
#define YY_MIN_REDUCE 441
#define YY_MAX_REDUCE 595
/************* 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 (1270)
static const YYACTIONTYPE yy_action[] = {
/* 0 */ 569, 554, 441, 21, 555, 556, 116, 442, 449, 27,
/* 10 */ 569, 132, 31, 445, 65, 64, 63, 62, 422, 423,
/* 20 */ 339, 70, 83, 374, 163, 133, 569, 23, 494, 161,
/* 30 */ 124, 318, 319, 6, 5, 37, 573, 36, 4, 72,
/* 40 */ 131, 55, 335, 67, 54, 34, 430, 339, 339, 339,
/* 50 */ 339, 420, 421, 340, 341, 342, 343, 344, 345, 346,
/* 60 */ 347, 466, 31, 528, 571, 78, 571, 407, 408, 409,
/* 70 */ 410, 466, 30, 436, 435, 491, 161, 124, 305, 422,
/* 80 */ 423, 339, 356, 83, 526, 161, 124, 466, 8, 115,
/* 90 */ 75, 32, 318, 319, 6, 5, 37, 122, 36, 4,
/* 100 */ 72, 131, 70, 335, 67, 429, 52, 48, 339, 339,
/* 110 */ 339, 339, 420, 421, 340, 341, 342, 343, 344, 345,
/* 120 */ 346, 347, 465, 301, 431, 432, 433, 434, 26, 443,
/* 130 */ 449, 27, 465, 25, 329, 445, 65, 64, 63, 62,
/* 140 */ 422, 423, 339, 84, 83, 29, 163, 85, 465, 23,
/* 150 */ 531, 161, 124, 318, 319, 6, 5, 37, 76, 36,
/* 160 */ 4, 72, 131, 76, 335, 67, 394, 395, 42, 339,
/* 170 */ 339, 339, 339, 420, 421, 340, 341, 342, 343, 344,
/* 180 */ 345, 346, 347, 391, 430, 294, 60, 61, 65, 64,
/* 190 */ 63, 62, 82, 33, 374, 63, 62, 20, 24, 391,
/* 200 */ 430, 68, 60, 61, 81, 66, 303, 80, 2, 3,
/* 210 */ 374, 436, 435, 20, 419, 349, 349, 349, 349, 349,
/* 220 */ 349, 349, 349, 349, 349, 114, 418, 436, 435, 399,
/* 230 */ 529, 161, 124, 135, 125, 161, 124, 355, 457, 427,
/* 240 */ 153, 140, 130, 429, 564, 7, 400, 401, 402, 404,
/* 250 */ 81, 139, 303, 80, 154, 407, 408, 409, 410, 429,
/* 260 */ 113, 425, 431, 432, 433, 434, 149, 9, 122, 390,
/* 270 */ 156, 155, 128, 127, 161, 124, 113, 11, 431, 432,
/* 280 */ 433, 434, 378, 157, 122, 390, 156, 155, 391, 430,
/* 290 */ 39, 60, 61, 128, 377, 159, 447, 27, 74, 374,
/* 300 */ 149, 13, 59, 14, 119, 448, 118, 125, 161, 124,
/* 310 */ 15, 126, 442, 449, 27, 69, 436, 435, 445, 143,
/* 320 */ 141, 65, 64, 63, 62, 376, 158, 150, 358, 163,
/* 330 */ 57, 439, 23, 86, 389, 1, 65, 64, 63, 62,
/* 340 */ 53, 18, 125, 161, 124, 58, 148, 147, 429, 389,
/* 350 */ 382, 380, 381, 38, 375, 45, 143, 141, 65, 64,
/* 360 */ 63, 62, 154, 376, 158, 113, 160, 431, 432, 433,
/* 370 */ 434, 440, 71, 122, 390, 156, 155, 53, 35, 440,
/* 380 */ 162, 17, 16, 148, 147, 440, 440, 123, 440, 19,
/* 390 */ 38, 146, 142, 426, 391, 440, 440, 60, 61, 65,
/* 400 */ 64, 63, 62, 314, 440, 112, 532, 440, 59, 440,
/* 410 */ 440, 296, 297, 298, 440, 300, 440, 440, 17, 16,
/* 420 */ 391, 440, 440, 60, 61, 123, 19, 440, 146, 142,
/* 430 */ 426, 374, 391, 330, 59, 60, 61, 391, 326, 440,
/* 440 */ 60, 61, 440, 374, 440, 532, 59, 440, 374, 440,
/* 450 */ 532, 59, 440, 532, 440, 440, 422, 423, 339, 440,
/* 460 */ 440, 440, 440, 136, 134, 440, 87, 41, 440, 440,
/* 470 */ 440, 113, 43, 440, 430, 125, 161, 124, 440, 122,
/* 480 */ 390, 156, 155, 98, 374, 339, 339, 339, 339, 420,
/* 490 */ 421, 440, 125, 161, 124, 154, 440, 113, 22, 440,
/* 500 */ 440, 436, 435, 440, 440, 122, 390, 156, 155, 113,
/* 510 */ 440, 440, 154, 440, 113, 440, 440, 122, 390, 156,
/* 520 */ 155, 440, 122, 390, 156, 155, 391, 144, 440, 60,
/* 530 */ 61, 391, 145, 429, 60, 61, 440, 374, 440, 440,
/* 540 */ 59, 440, 374, 440, 440, 59, 440, 440, 440, 440,
/* 550 */ 113, 440, 431, 432, 433, 434, 391, 440, 122, 60,
/* 560 */ 61, 391, 440, 440, 60, 61, 440, 374, 440, 440,
/* 570 */ 59, 440, 112, 440, 391, 59, 440, 60, 61, 391,
/* 580 */ 440, 440, 60, 61, 440, 374, 114, 440, 46, 440,
/* 590 */ 374, 92, 440, 50, 440, 125, 161, 124, 440, 457,
/* 600 */ 125, 161, 124, 113, 79, 79, 440, 440, 113, 440,
/* 610 */ 440, 122, 390, 156, 155, 154, 122, 390, 156, 155,
/* 620 */ 154, 74, 440, 149, 440, 440, 114, 440, 496, 118,
/* 630 */ 125, 161, 124, 113, 440, 125, 161, 124, 113, 471,
/* 640 */ 440, 122, 390, 156, 155, 430, 122, 390, 156, 155,
/* 650 */ 150, 113, 440, 440, 440, 154, 113, 440, 440, 122,
/* 660 */ 390, 156, 155, 440, 122, 390, 156, 155, 440, 74,
/* 670 */ 440, 149, 436, 435, 440, 440, 495, 118, 125, 161,
/* 680 */ 124, 74, 440, 149, 114, 440, 440, 440, 489, 118,
/* 690 */ 125, 161, 124, 125, 161, 124, 440, 446, 150, 65,
/* 700 */ 64, 63, 62, 440, 429, 440, 440, 74, 440, 149,
/* 710 */ 150, 440, 293, 154, 479, 118, 125, 161, 124, 440,
/* 720 */ 74, 440, 149, 431, 432, 433, 434, 478, 118, 125,
/* 730 */ 161, 124, 74, 440, 149, 440, 150, 440, 440, 515,
/* 740 */ 118, 125, 161, 124, 440, 74, 440, 149, 440, 150,
/* 750 */ 440, 440, 138, 118, 125, 161, 124, 440, 74, 440,
/* 760 */ 149, 150, 440, 440, 440, 523, 118, 125, 161, 124,
/* 770 */ 74, 440, 149, 440, 150, 440, 440, 525, 118, 125,
/* 780 */ 161, 124, 74, 440, 149, 440, 440, 150, 440, 522,
/* 790 */ 118, 125, 161, 124, 93, 65, 64, 63, 62, 150,
/* 800 */ 440, 440, 440, 125, 161, 124, 74, 40, 149, 440,
/* 810 */ 440, 150, 440, 524, 118, 125, 161, 124, 440, 74,
/* 820 */ 440, 149, 440, 154, 440, 440, 521, 118, 125, 161,
/* 830 */ 124, 74, 440, 149, 440, 150, 440, 440, 520, 118,
/* 840 */ 125, 161, 124, 440, 74, 440, 149, 440, 150, 440,
/* 850 */ 440, 519, 118, 125, 161, 124, 440, 74, 440, 149,
/* 860 */ 150, 440, 440, 440, 518, 118, 125, 161, 124, 74,
/* 870 */ 440, 149, 440, 150, 440, 440, 517, 118, 125, 161,
/* 880 */ 124, 74, 440, 149, 440, 440, 150, 440, 151, 118,
/* 890 */ 125, 161, 124, 90, 65, 64, 63, 62, 150, 440,
/* 900 */ 440, 440, 125, 161, 124, 74, 440, 149, 440, 440,
/* 910 */ 150, 440, 152, 118, 125, 161, 124, 440, 73, 440,
/* 920 */ 149, 440, 154, 10, 440, 117, 118, 125, 161, 124,
/* 930 */ 74, 440, 149, 440, 150, 440, 440, 137, 118, 125,
/* 940 */ 161, 124, 440, 74, 440, 149, 440, 150, 440, 440,
/* 950 */ 475, 118, 125, 161, 124, 440, 91, 440, 149, 150,
/* 960 */ 440, 440, 440, 440, 129, 125, 161, 124, 77, 440,
/* 970 */ 440, 325, 150, 65, 64, 63, 62, 125, 161, 124,
/* 980 */ 65, 64, 63, 62, 440, 150, 440, 440, 440, 460,
/* 990 */ 440, 28, 104, 389, 440, 440, 440, 154, 440, 49,
/* 1000 */ 440, 125, 161, 124, 105, 44, 440, 440, 440, 106,
/* 1010 */ 440, 440, 440, 125, 161, 124, 440, 107, 125, 161,
/* 1020 */ 124, 154, 440, 440, 440, 94, 125, 161, 124, 440,
/* 1030 */ 440, 88, 440, 154, 125, 161, 124, 440, 154, 108,
/* 1040 */ 125, 161, 124, 440, 440, 440, 154, 440, 125, 161,
/* 1050 */ 124, 440, 95, 440, 154, 96, 440, 440, 440, 440,
/* 1060 */ 154, 125, 161, 124, 125, 161, 124, 440, 154, 65,
/* 1070 */ 64, 63, 62, 440, 440, 440, 89, 440, 440, 109,
/* 1080 */ 440, 154, 97, 440, 154, 125, 161, 124, 125, 161,
/* 1090 */ 124, 125, 161, 124, 65, 64, 63, 62, 12, 65,
/* 1100 */ 64, 63, 62, 110, 440, 154, 440, 354, 154, 440,
/* 1110 */ 440, 154, 125, 161, 124, 440, 111, 440, 47, 99,
/* 1120 */ 440, 440, 440, 440, 100, 125, 161, 124, 125, 161,
/* 1130 */ 124, 440, 154, 125, 161, 124, 440, 440, 440, 440,
/* 1140 */ 101, 440, 440, 440, 440, 154, 440, 102, 154, 125,
/* 1150 */ 161, 124, 440, 154, 103, 440, 125, 161, 124, 440,
/* 1160 */ 440, 546, 440, 125, 161, 124, 440, 440, 440, 154,
/* 1170 */ 125, 161, 124, 440, 440, 545, 154, 440, 544, 440,
/* 1180 */ 440, 440, 440, 154, 125, 161, 124, 125, 161, 124,
/* 1190 */ 154, 543, 65, 64, 63, 62, 65, 64, 63, 62,
/* 1200 */ 125, 161, 124, 440, 154, 353, 440, 154, 440, 393,
/* 1210 */ 440, 440, 120, 440, 440, 121, 440, 440, 440, 440,
/* 1220 */ 154, 125, 161, 124, 125, 161, 124, 65, 64, 63,
/* 1230 */ 62, 65, 64, 63, 62, 309, 65, 64, 63, 62,
/* 1240 */ 440, 154, 440, 440, 154, 440, 51, 440, 440, 65,
/* 1250 */ 64, 63, 62, 440, 440, 56, 65, 64, 63, 62,
/* 1260 */ 440, 440, 392, 440, 440, 440, 440, 440, 440, 389,
};
static const YYCODETYPE yy_lookahead[] = {
/* 0 */ 0, 99, 0, 126, 102, 103, 94, 95, 96, 97,
/* 10 */ 10, 100, 10, 101, 4, 5, 6, 7, 18, 19,
/* 20 */ 20, 3, 22, 12, 112, 100, 26, 115, 107, 108,
/* 30 */ 109, 31, 32, 33, 34, 35, 125, 37, 38, 39,
/* 40 */ 40, 99, 42, 43, 102, 103, 2, 47, 48, 49,
/* 50 */ 50, 51, 52, 53, 54, 55, 56, 57, 58, 59,
/* 60 */ 60, 0, 10, 100, 122, 123, 124, 27, 28, 29,
/* 70 */ 30, 10, 121, 29, 30, 107, 108, 109, 26, 18,
/* 80 */ 19, 20, 17, 22, 107, 108, 109, 26, 23, 78,
/* 90 */ 46, 101, 31, 32, 33, 34, 35, 86, 37, 38,
/* 100 */ 39, 40, 84, 42, 43, 61, 4, 5, 47, 48,
/* 110 */ 49, 50, 51, 52, 53, 54, 55, 56, 57, 58,
/* 120 */ 59, 60, 0, 23, 80, 81, 82, 83, 120, 95,
/* 130 */ 96, 97, 10, 118, 2, 101, 4, 5, 6, 7,
/* 140 */ 18, 19, 20, 110, 22, 121, 112, 110, 26, 115,
/* 150 */ 107, 108, 109, 31, 32, 33, 34, 35, 46, 37,
/* 160 */ 38, 39, 40, 46, 42, 43, 91, 92, 36, 47,
/* 170 */ 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,
/* 180 */ 58, 59, 60, 1, 2, 17, 4, 5, 4, 5,
/* 190 */ 6, 7, 8, 16, 12, 6, 7, 15, 15, 1,
/* 200 */ 2, 41, 4, 5, 22, 93, 24, 25, 38, 38,
/* 210 */ 12, 29, 30, 15, 39, 61, 62, 63, 64, 65,
/* 220 */ 66, 67, 68, 69, 70, 98, 39, 29, 30, 1,
/* 230 */ 107, 108, 109, 45, 107, 108, 109, 17, 111, 76,
/* 240 */ 12, 77, 14, 61, 117, 71, 18, 19, 20, 21,
/* 250 */ 22, 75, 24, 25, 127, 27, 28, 29, 30, 61,
/* 260 */ 78, 76, 80, 81, 82, 83, 100, 3, 86, 87,
/* 270 */ 88, 89, 106, 107, 108, 109, 78, 3, 80, 81,
/* 280 */ 82, 83, 24, 25, 86, 87, 88, 89, 1, 2,
/* 290 */ 36, 4, 5, 127, 24, 25, 96, 97, 98, 12,
/* 300 */ 100, 3, 15, 3, 90, 105, 106, 107, 108, 109,
/* 310 */ 3, 94, 95, 96, 97, 3, 29, 30, 101, 2,
/* 320 */ 3, 4, 5, 6, 7, 24, 25, 127, 73, 112,
/* 330 */ 15, 114, 115, 98, 17, 13, 4, 5, 6, 7,
/* 340 */ 23, 23, 107, 108, 109, 15, 29, 30, 61, 17,
/* 350 */ 26, 26, 26, 36, 12, 23, 2, 3, 4, 5,
/* 360 */ 6, 7, 127, 24, 25, 78, 85, 80, 81, 82,
/* 370 */ 83, 128, 3, 86, 87, 88, 89, 23, 11, 128,
/* 380 */ 79, 64, 65, 29, 30, 128, 128, 86, 128, 72,
/* 390 */ 36, 74, 75, 76, 1, 128, 128, 4, 5, 4,
/* 400 */ 5, 6, 7, 8, 128, 12, 46, 128, 15, 128,
/* 410 */ 128, 18, 19, 20, 128, 22, 128, 128, 64, 65,
/* 420 */ 1, 128, 128, 4, 5, 86, 72, 128, 74, 75,
/* 430 */ 76, 12, 1, 2, 15, 4, 5, 1, 2, 128,
/* 440 */ 4, 5, 128, 12, 128, 85, 15, 128, 12, 128,
/* 450 */ 90, 15, 128, 93, 128, 128, 18, 19, 20, 128,
/* 460 */ 128, 128, 128, 44, 45, 128, 98, 36, 128, 128,
/* 470 */ 128, 78, 36, 128, 2, 107, 108, 109, 128, 86,
/* 480 */ 87, 88, 89, 98, 12, 47, 48, 49, 50, 51,
/* 490 */ 52, 128, 107, 108, 109, 127, 128, 78, 113, 128,
/* 500 */ 128, 29, 30, 128, 128, 86, 87, 88, 89, 78,
/* 510 */ 128, 128, 127, 128, 78, 128, 128, 86, 87, 88,
/* 520 */ 89, 128, 86, 87, 88, 89, 1, 2, 128, 4,
/* 530 */ 5, 1, 2, 61, 4, 5, 128, 12, 128, 128,
/* 540 */ 15, 128, 12, 128, 128, 15, 128, 128, 128, 128,
/* 550 */ 78, 128, 80, 81, 82, 83, 1, 128, 86, 4,
/* 560 */ 5, 1, 128, 128, 4, 5, 128, 12, 128, 128,
/* 570 */ 15, 128, 12, 128, 1, 15, 128, 4, 5, 1,
/* 580 */ 128, 128, 4, 5, 128, 12, 98, 128, 15, 128,
/* 590 */ 12, 98, 128, 15, 128, 107, 108, 109, 128, 111,
/* 600 */ 107, 108, 109, 78, 116, 117, 128, 128, 78, 128,
/* 610 */ 128, 86, 87, 88, 89, 127, 86, 87, 88, 89,
/* 620 */ 127, 98, 128, 100, 128, 128, 98, 128, 105, 106,
/* 630 */ 107, 108, 109, 78, 128, 107, 108, 109, 78, 111,
/* 640 */ 128, 86, 87, 88, 89, 2, 86, 87, 88, 89,
/* 650 */ 127, 78, 128, 128, 128, 127, 78, 128, 128, 86,
/* 660 */ 87, 88, 89, 128, 86, 87, 88, 89, 128, 98,
/* 670 */ 128, 100, 29, 30, 128, 128, 105, 106, 107, 108,
/* 680 */ 109, 98, 128, 100, 98, 128, 128, 128, 105, 106,
/* 690 */ 107, 108, 109, 107, 108, 109, 128, 111, 127, 4,
/* 700 */ 5, 6, 7, 128, 61, 128, 128, 98, 128, 100,
/* 710 */ 127, 128, 17, 127, 105, 106, 107, 108, 109, 128,
/* 720 */ 98, 128, 100, 80, 81, 82, 83, 105, 106, 107,
/* 730 */ 108, 109, 98, 128, 100, 128, 127, 128, 128, 105,
/* 740 */ 106, 107, 108, 109, 128, 98, 128, 100, 128, 127,
/* 750 */ 128, 128, 105, 106, 107, 108, 109, 128, 98, 128,
/* 760 */ 100, 127, 128, 128, 128, 105, 106, 107, 108, 109,
/* 770 */ 98, 128, 100, 128, 127, 128, 128, 105, 106, 107,
/* 780 */ 108, 109, 98, 128, 100, 128, 128, 127, 128, 105,
/* 790 */ 106, 107, 108, 109, 98, 4, 5, 6, 7, 127,
/* 800 */ 128, 128, 128, 107, 108, 109, 98, 16, 100, 128,
/* 810 */ 128, 127, 128, 105, 106, 107, 108, 109, 128, 98,
/* 820 */ 128, 100, 128, 127, 128, 128, 105, 106, 107, 108,
/* 830 */ 109, 98, 128, 100, 128, 127, 128, 128, 105, 106,
/* 840 */ 107, 108, 109, 128, 98, 128, 100, 128, 127, 128,
/* 850 */ 128, 105, 106, 107, 108, 109, 128, 98, 128, 100,
/* 860 */ 127, 128, 128, 128, 105, 106, 107, 108, 109, 98,
/* 870 */ 128, 100, 128, 127, 128, 128, 105, 106, 107, 108,
/* 880 */ 109, 98, 128, 100, 128, 128, 127, 128, 105, 106,
/* 890 */ 107, 108, 109, 98, 4, 5, 6, 7, 127, 128,
/* 900 */ 128, 128, 107, 108, 109, 98, 128, 100, 128, 128,
/* 910 */ 127, 128, 105, 106, 107, 108, 109, 128, 98, 128,
/* 920 */ 100, 128, 127, 33, 128, 105, 106, 107, 108, 109,
/* 930 */ 98, 128, 100, 128, 127, 128, 128, 105, 106, 107,
/* 940 */ 108, 109, 128, 98, 128, 100, 128, 127, 128, 128,
/* 950 */ 105, 106, 107, 108, 109, 128, 98, 128, 100, 127,
/* 960 */ 128, 128, 128, 128, 106, 107, 108, 109, 98, 128,
/* 970 */ 128, 2, 127, 4, 5, 6, 7, 107, 108, 109,
/* 980 */ 4, 5, 6, 7, 128, 127, 128, 128, 128, 119,
/* 990 */ 128, 121, 98, 17, 128, 128, 128, 127, 128, 23,
/* 1000 */ 128, 107, 108, 109, 98, 36, 128, 128, 128, 98,
/* 1010 */ 128, 128, 128, 107, 108, 109, 128, 98, 107, 108,
/* 1020 */ 109, 127, 128, 128, 128, 98, 107, 108, 109, 128,
/* 1030 */ 128, 98, 128, 127, 107, 108, 109, 128, 127, 98,
/* 1040 */ 107, 108, 109, 128, 128, 128, 127, 128, 107, 108,
/* 1050 */ 109, 128, 98, 128, 127, 98, 128, 128, 128, 128,
/* 1060 */ 127, 107, 108, 109, 107, 108, 109, 128, 127, 4,
/* 1070 */ 5, 6, 7, 128, 128, 128, 98, 128, 128, 98,
/* 1080 */ 128, 127, 98, 128, 127, 107, 108, 109, 107, 108,
/* 1090 */ 109, 107, 108, 109, 4, 5, 6, 7, 33, 4,
/* 1100 */ 5, 6, 7, 98, 128, 127, 128, 17, 127, 128,
/* 1110 */ 128, 127, 107, 108, 109, 128, 98, 128, 23, 98,
/* 1120 */ 128, 128, 128, 128, 98, 107, 108, 109, 107, 108,
/* 1130 */ 109, 128, 127, 107, 108, 109, 128, 128, 128, 128,
/* 1140 */ 98, 128, 128, 128, 128, 127, 128, 98, 127, 107,
/* 1150 */ 108, 109, 128, 127, 98, 128, 107, 108, 109, 128,
/* 1160 */ 128, 98, 128, 107, 108, 109, 128, 128, 128, 127,
/* 1170 */ 107, 108, 109, 128, 128, 98, 127, 128, 98, 128,
/* 1180 */ 128, 128, 128, 127, 107, 108, 109, 107, 108, 109,
/* 1190 */ 127, 98, 4, 5, 6, 7, 4, 5, 6, 7,
/* 1200 */ 107, 108, 109, 128, 127, 17, 128, 127, 128, 17,
/* 1210 */ 128, 128, 98, 128, 128, 98, 128, 128, 128, 128,
/* 1220 */ 127, 107, 108, 109, 107, 108, 109, 4, 5, 6,
/* 1230 */ 7, 4, 5, 6, 7, 8, 4, 5, 6, 7,
/* 1240 */ 128, 127, 128, 128, 127, 128, 23, 128, 128, 4,
/* 1250 */ 5, 6, 7, 128, 128, 23, 4, 5, 6, 7,
/* 1260 */ 128, 128, 17, 128, 128, 128, 128, 128, 128, 17,
/* 1270 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1280 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1290 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1300 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1310 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1320 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1330 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1340 */ 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,
/* 1350 */ 128, 94, 94, 94, 94, 94, 94, 94, 94, 94,
/* 1360 */ 94, 94, 94, 94,
};
#define YY_SHIFT_COUNT (163)
#define YY_SHIFT_MIN (0)
#define YY_SHIFT_MAX (1252)
static const unsigned short int yy_shift_ofst[] = {
/* 0 */ 228, 182, 198, 198, 198, 198, 198, 198, 198, 198,
/* 10 */ 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
/* 20 */ 198, 198, 198, 393, 287, 393, 228, 555, 0, 61,
/* 30 */ 122, 228, 419, 472, 560, 560, 431, 436, 525, 530,
/* 40 */ 555, 555, 555, 555, 555, 555, 555, 555, 573, 555,
/* 50 */ 555, 555, 578, 555, 555, 555, 555, 555, 555, 555,
/* 60 */ 555, 555, 555, 555, 555, 555, 438, 11, 11, 11,
/* 70 */ 11, 11, 44, 317, 354, 643, 643, 184, 40, 100,
/* 80 */ 1270, 1270, 1270, 1270, 154, 154, 132, 969, 332, 976,
/* 90 */ 695, 791, 890, 1065, 1090, 1095, 1188, 1223, 395, 1227,
/* 100 */ 1192, 1232, 1245, 1252, 10, 10, 10, 10, 10, 10,
/* 110 */ 10, 10, 360, 301, 10, 339, 52, 65, 102, 75,
/* 120 */ 189, 189, 258, 270, 18, 112, 2, 117, 168, 177,
/* 130 */ 183, 160, 170, 171, 175, 187, 188, 174, 220, 163,
/* 140 */ 176, 164, 185, 264, 274, 298, 254, 300, 307, 312,
/* 150 */ 214, 255, 318, 322, 214, 315, 330, 324, 325, 326,
/* 160 */ 342, 281, 369, 367,
};
#define YY_REDUCE_COUNT (83)
#define YY_REDUCE_MIN (-123)
#define YY_REDUCE_MAX (1117)
static const short yy_reduce_ofst[] = {
/* 0 */ 217, 200, 523, 571, 583, 609, 622, 634, 647, 660,
/* 10 */ 672, 684, 708, 721, 733, 746, 759, 771, 783, 807,
/* 20 */ 820, 832, 845, 488, 858, 127, -88, 870, -58, -58,
/* 30 */ -58, 34, 385, 166, 528, 586, 235, 368, 493, 696,
/* 40 */ 795, 894, 906, 911, 919, 927, 933, 941, 954, 957,
/* 50 */ 978, 981, 984, 1005, 1018, 1021, 1026, 1042, 1049, 1056,
/* 60 */ 1063, 1077, 1080, 1093, 1114, 1117, -98, -79, -32, -23,
/* 70 */ 43, 123, -89, -123, -123, -75, -37, -49, -10, 15,
/* 80 */ 8, 33, 24, 37,
};
static const YYACTIONTYPE yy_default[] = {
/* 0 */ 444, 438, 438, 438, 438, 438, 438, 438, 438, 438,
/* 10 */ 438, 438, 438, 438, 438, 438, 438, 438, 438, 438,
/* 20 */ 438, 438, 438, 438, 438, 438, 444, 570, 575, 575,
/* 30 */ 575, 444, 474, 438, 438, 438, 574, 480, 438, 438,
/* 40 */ 438, 438, 438, 438, 438, 438, 438, 438, 438, 438,
/* 50 */ 438, 438, 438, 438, 470, 438, 438, 438, 438, 438,
/* 60 */ 438, 438, 438, 438, 438, 438, 438, 438, 438, 438,
/* 70 */ 438, 438, 438, 438, 438, 438, 438, 570, 438, 450,
/* 80 */ 464, 506, 570, 506, 462, 492, 438, 438, 438, 438,
/* 90 */ 438, 438, 438, 438, 438, 438, 438, 438, 473, 468,
/* 100 */ 438, 438, 438, 438, 486, 485, 482, 481, 510, 509,
/* 110 */ 508, 469, 453, 438, 561, 438, 438, 438, 582, 438,
/* 120 */ 542, 541, 537, 438, 530, 527, 438, 527, 438, 438,
/* 130 */ 438, 490, 438, 438, 438, 438, 438, 438, 438, 438,
/* 140 */ 438, 438, 438, 438, 438, 438, 438, 438, 438, 438,
/* 150 */ 586, 438, 438, 438, 438, 438, 438, 438, 438, 438,
/* 160 */ 438, 595, 438, 438,
};
/********** End of lemon-generated parsing tables *****************************/
/* The next table maps tokens (terminal symbols) into fallback tokens.
** If a construct like the following:
**
** %fallback ID X Y Z.
**
** appears in the grammar, then ID becomes a fallback token for X, Y,
** and Z. Whenever one of the tokens X, Y, or Z is input to the parser
** but it does not parse, the type of the token is changed to ID and
** the parse is retried before an error is thrown.
**
** This feature can be used, for example, to cause some keywords in a language
** to revert to identifiers if they keyword does not apply in the context where
** it appears.
*/
#ifdef YYFALLBACK
static const YYCODETYPE yyFallback[] = {
0, /* $ => nothing */
0, /* ID => nothing */
1, /* EDGEPT => ID */
0, /* OF => nothing */
0, /* PLUS => nothing */
0, /* MINUS => nothing */
0, /* STAR => nothing */
0, /* SLASH => nothing */
0, /* PERCENT => nothing */
0, /* UMINUS => nothing */
0, /* EOL => nothing */
0, /* ASSIGN => nothing */
0, /* PLACENAME => nothing */
0, /* COLON => nothing */
0, /* ASSERT => nothing */
0, /* LP => nothing */
0, /* EQ => nothing */
0, /* RP => nothing */
0, /* FILL => nothing */
0, /* COLOR => nothing */
0, /* THICKNESS => nothing */
0, /* PRINT => nothing */
0, /* STRING => nothing */
0, /* COMMA => nothing */
0, /* CLASSNAME => nothing */
0, /* LB => nothing */
0, /* RB => nothing */
0, /* UP => nothing */
0, /* DOWN => nothing */
0, /* LEFT => nothing */
0, /* RIGHT => nothing */
0, /* CLOSE => nothing */
0, /* CHOP => nothing */
0, /* FROM => nothing */
0, /* TO => nothing */
0, /* THEN => nothing */
0, /* HEADING => nothing */
0, /* GO => nothing */
0, /* AT => nothing */
0, /* WITH => nothing */
0, /* SAME => nothing */
0, /* AS => nothing */
0, /* FIT => nothing */
0, /* BEHIND => nothing */
0, /* UNTIL => nothing */
0, /* EVEN => nothing */
0, /* DOT_E => nothing */
0, /* HEIGHT => nothing */
0, /* WIDTH => nothing */
0, /* RADIUS => nothing */
0, /* DIAMETER => nothing */
0, /* DOTTED => nothing */
0, /* DASHED => nothing */
0, /* CW => nothing */
0, /* CCW => nothing */
0, /* LARROW => nothing */
0, /* RARROW => nothing */
0, /* LRARROW => nothing */
0, /* INVIS => nothing */
0, /* THICK => nothing */
0, /* THIN => nothing */
0, /* CENTER => nothing */
0, /* LJUST => nothing */
0, /* RJUST => nothing */
0, /* ABOVE => nothing */
0, /* BELOW => nothing */
0, /* ITALIC => nothing */
0, /* BOLD => nothing */
0, /* ALIGNED => nothing */
0, /* BIG => nothing */
0, /* SMALL => nothing */
0, /* AND => nothing */
0, /* LT => nothing */
0, /* GT => nothing */
0, /* ON => nothing */
0, /* WAY => nothing */
0, /* BETWEEN => nothing */
0, /* THE => nothing */
0, /* NTH => nothing */
0, /* VERTEX => nothing */
0, /* TOP => nothing */
0, /* BOTTOM => nothing */
0, /* START => nothing */
0, /* END => nothing */
0, /* IN => nothing */
0, /* DOT_U => nothing */
0, /* LAST => nothing */
0, /* NUMBER => nothing */
0, /* FUNC1 => nothing */
0, /* FUNC2 => nothing */
0, /* DOT_XY => nothing */
0, /* X => nothing */
0, /* Y => nothing */
0, /* DOT_L => nothing */
};
#endif /* YYFALLBACK */
/* The following structure represents a single element of the
** parser's stack. Information stored includes:
**
** + The state number for the parser at this level of the stack.
**
** + The value of the token stored at this level of the stack.
** (In other words, the "major" token.)
**
** + The semantic value stored at this level of the stack. This is
** the information used by the action routines in the grammar.
** It is sometimes called the "minor" token.
**
** After the "shift" half of a SHIFTREDUCE action, the stateno field
** actually contains the reduce action for the second half of the
** SHIFTREDUCE.
*/
struct yyStackEntry {
YYACTIONTYPE stateno; /* The state-number, or reduce action in SHIFTREDUCE */
YYCODETYPE major; /* The major token value. This is the code
** number for the token at this stack level */
YYMINORTYPE minor; /* The user-supplied minor token value. This
** is the value of the token */
};
typedef struct yyStackEntry yyStackEntry;
/* The state of the parser is completely contained in an instance of
** the following structure */
struct yyParser {
yyStackEntry *yytos; /* Pointer to top element of the stack */
#ifdef YYTRACKMAXSTACKDEPTH
int yyhwm; /* High-water mark of the stack */
#endif
#ifndef YYNOERRORRECOVERY
int yyerrcnt; /* Shifts left before out of the error */
#endif
pik_parserARG_SDECL /* A place to hold %extra_argument */
pik_parserCTX_SDECL /* A place to hold %extra_context */
#if YYSTACKDEPTH<=0
int yystksz; /* Current side of the stack */
yyStackEntry *yystack; /* The parser's stack */
yyStackEntry yystk0; /* First stack entry */
#else
yyStackEntry yystack[YYSTACKDEPTH]; /* The parser's stack */
yyStackEntry *yystackEnd; /* Last entry in the stack */
#endif
};
typedef struct yyParser yyParser;
#ifndef NDEBUG
#include <stdio.h>
#include <assert.h>
static FILE *yyTraceFILE = 0;
static char *yyTracePrompt = 0;
#endif /* NDEBUG */
#ifndef NDEBUG
/*
** Turn parser tracing on by giving a stream to which to write the trace
** and a prompt to preface each trace message. Tracing is turned off
** by making either argument NULL
**
** Inputs:
** <ul>
** <li> A FILE* to which trace output should be written.
** If NULL, then tracing is turned off.
** <li> A prefix string written at the beginning of every
** line of trace output. If NULL, then tracing is
** turned off.
** </ul>
**
** Outputs:
** None.
*/
void pik_parserTrace(FILE *TraceFILE, char *zTracePrompt){
yyTraceFILE = TraceFILE;
yyTracePrompt = zTracePrompt;
if( yyTraceFILE==0 ) yyTracePrompt = 0;
else if( yyTracePrompt==0 ) yyTraceFILE = 0;
}
#endif /* NDEBUG */
#if defined(YYCOVERAGE) || !defined(NDEBUG)
/* For tracing shifts, the names of all terminals and nonterminals
** are required. The following table supplies these names */
static const char *const yyTokenName[] = {
/* 0 */ "$",
/* 1 */ "ID",
/* 2 */ "EDGEPT",
/* 3 */ "OF",
/* 4 */ "PLUS",
/* 5 */ "MINUS",
/* 6 */ "STAR",
/* 7 */ "SLASH",
/* 8 */ "PERCENT",
/* 9 */ "UMINUS",
/* 10 */ "EOL",
/* 11 */ "ASSIGN",
/* 12 */ "PLACENAME",
/* 13 */ "COLON",
/* 14 */ "ASSERT",
/* 15 */ "LP",
/* 16 */ "EQ",
/* 17 */ "RP",
/* 18 */ "FILL",
/* 19 */ "COLOR",
/* 20 */ "THICKNESS",
/* 21 */ "PRINT",
/* 22 */ "STRING",
/* 23 */ "COMMA",
/* 24 */ "CLASSNAME",
/* 25 */ "LB",
/* 26 */ "RB",
/* 27 */ "UP",
/* 28 */ "DOWN",
/* 29 */ "LEFT",
/* 30 */ "RIGHT",
/* 31 */ "CLOSE",
/* 32 */ "CHOP",
/* 33 */ "FROM",
/* 34 */ "TO",
/* 35 */ "THEN",
/* 36 */ "HEADING",
/* 37 */ "GO",
/* 38 */ "AT",
/* 39 */ "WITH",
/* 40 */ "SAME",
/* 41 */ "AS",
/* 42 */ "FIT",
/* 43 */ "BEHIND",
/* 44 */ "UNTIL",
/* 45 */ "EVEN",
/* 46 */ "DOT_E",
/* 47 */ "HEIGHT",
/* 48 */ "WIDTH",
/* 49 */ "RADIUS",
/* 50 */ "DIAMETER",
/* 51 */ "DOTTED",
/* 52 */ "DASHED",
/* 53 */ "CW",
/* 54 */ "CCW",
/* 55 */ "LARROW",
/* 56 */ "RARROW",
/* 57 */ "LRARROW",
/* 58 */ "INVIS",
/* 59 */ "THICK",
/* 60 */ "THIN",
/* 61 */ "CENTER",
/* 62 */ "LJUST",
/* 63 */ "RJUST",
/* 64 */ "ABOVE",
/* 65 */ "BELOW",
/* 66 */ "ITALIC",
/* 67 */ "BOLD",
/* 68 */ "ALIGNED",
/* 69 */ "BIG",
/* 70 */ "SMALL",
/* 71 */ "AND",
/* 72 */ "LT",
/* 73 */ "GT",
/* 74 */ "ON",
/* 75 */ "WAY",
/* 76 */ "BETWEEN",
/* 77 */ "THE",
/* 78 */ "NTH",
/* 79 */ "VERTEX",
/* 80 */ "TOP",
/* 81 */ "BOTTOM",
/* 82 */ "START",
/* 83 */ "END",
/* 84 */ "IN",
/* 85 */ "DOT_U",
/* 86 */ "LAST",
/* 87 */ "NUMBER",
/* 88 */ "FUNC1",
/* 89 */ "FUNC2",
/* 90 */ "DOT_XY",
/* 91 */ "X",
/* 92 */ "Y",
/* 93 */ "DOT_L",
/* 94 */ "element_list",
/* 95 */ "element",
/* 96 */ "unnamed_element",
/* 97 */ "basetype",
/* 98 */ "expr",
/* 99 */ "numproperty",
/* 100 */ "edge",
/* 101 */ "direction",
/* 102 */ "dashproperty",
/* 103 */ "colorproperty",
/* 104 */ "locproperty",
/* 105 */ "position",
/* 106 */ "place",
/* 107 */ "object",
/* 108 */ "objectname",
/* 109 */ "nth",
/* 110 */ "textposition",
/* 111 */ "rvalue",
/* 112 */ "lvalue",
/* 113 */ "even",
/* 114 */ "document",
/* 115 */ "print",
/* 116 */ "prlist",
/* 117 */ "pritem",
/* 118 */ "prsep",
/* 119 */ "attribute_list",
/* 120 */ "savelist",
/* 121 */ "alist",
/* 122 */ "attribute",
/* 123 */ "go",
/* 124 */ "boolproperty",
/* 125 */ "withclause",
/* 126 */ "between",
/* 127 */ "place2",
};
#endif /* defined(YYCOVERAGE) || !defined(NDEBUG) */
#ifndef NDEBUG
/* For tracing reduce actions, the names of all rules are required.
*/
static const char *const yyRuleName[] = {
/* 0 */ "document ::= element_list",
/* 1 */ "element_list ::= element",
/* 2 */ "element_list ::= element_list EOL element",
/* 3 */ "element ::=",
/* 4 */ "element ::= direction",
/* 5 */ "element ::= lvalue ASSIGN rvalue",
/* 6 */ "element ::= PLACENAME COLON unnamed_element",
/* 7 */ "element ::= PLACENAME COLON position",
/* 8 */ "element ::= unnamed_element",
/* 9 */ "element ::= print prlist",
/* 10 */ "element ::= ASSERT LP expr EQ expr RP",
/* 11 */ "element ::= ASSERT LP place EQ place RP",
/* 12 */ "rvalue ::= PLACENAME",
/* 13 */ "pritem ::= FILL",
/* 14 */ "pritem ::= COLOR",
/* 15 */ "pritem ::= THICKNESS",
/* 16 */ "pritem ::= rvalue",
/* 17 */ "pritem ::= STRING",
/* 18 */ "prsep ::= COMMA",
/* 19 */ "unnamed_element ::= basetype attribute_list",
/* 20 */ "basetype ::= CLASSNAME",
/* 21 */ "basetype ::= STRING textposition",
/* 22 */ "basetype ::= LB savelist element_list RB",
/* 23 */ "savelist ::=",
/* 24 */ "attribute_list ::= expr alist",
/* 25 */ "attribute_list ::= expr PERCENT alist",
/* 26 */ "attribute ::= numproperty expr PERCENT",
/* 27 */ "attribute ::= numproperty expr",
/* 28 */ "attribute ::= dashproperty expr",
/* 29 */ "attribute ::= dashproperty",
/* 30 */ "attribute ::= colorproperty rvalue",
/* 31 */ "attribute ::= go direction expr PERCENT",
/* 32 */ "attribute ::= go direction expr",
/* 33 */ "attribute ::= go direction",
/* 34 */ "attribute ::= go direction even position",
/* 35 */ "attribute ::= CLOSE",
/* 36 */ "attribute ::= CHOP",
/* 37 */ "attribute ::= FROM position",
/* 38 */ "attribute ::= TO position",
/* 39 */ "attribute ::= THEN",
/* 40 */ "attribute ::= THEN expr HEADING expr",
/* 41 */ "attribute ::= THEN HEADING expr",
/* 42 */ "attribute ::= THEN expr EDGEPT",
/* 43 */ "attribute ::= THEN EDGEPT",
/* 44 */ "attribute ::= GO expr HEADING expr",
/* 45 */ "attribute ::= GO HEADING expr",
/* 46 */ "attribute ::= GO expr EDGEPT",
/* 47 */ "attribute ::= GO EDGEPT",
/* 48 */ "attribute ::= AT position",
/* 49 */ "attribute ::= SAME",
/* 50 */ "attribute ::= SAME AS object",
/* 51 */ "attribute ::= STRING textposition",
/* 52 */ "attribute ::= FIT",
/* 53 */ "attribute ::= BEHIND object",
/* 54 */ "withclause ::= DOT_E edge AT position",
/* 55 */ "withclause ::= edge AT position",
/* 56 */ "numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS",
/* 57 */ "boolproperty ::= CW",
/* 58 */ "boolproperty ::= CCW",
/* 59 */ "boolproperty ::= LARROW",
/* 60 */ "boolproperty ::= RARROW",
/* 61 */ "boolproperty ::= LRARROW",
/* 62 */ "boolproperty ::= INVIS",
/* 63 */ "boolproperty ::= THICK",
/* 64 */ "boolproperty ::= THIN",
/* 65 */ "textposition ::=",
/* 66 */ "textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL",
/* 67 */ "position ::= expr COMMA expr",
/* 68 */ "position ::= place PLUS expr COMMA expr",
/* 69 */ "position ::= place MINUS expr COMMA expr",
/* 70 */ "position ::= place PLUS LP expr COMMA expr RP",
/* 71 */ "position ::= place MINUS LP expr COMMA expr RP",
/* 72 */ "position ::= LP position COMMA position RP",
/* 73 */ "position ::= LP position RP",
/* 74 */ "position ::= expr between position AND position",
/* 75 */ "position ::= expr LT position COMMA position GT",
/* 76 */ "position ::= expr ABOVE position",
/* 77 */ "position ::= expr BELOW position",
/* 78 */ "position ::= expr LEFT OF position",
/* 79 */ "position ::= expr RIGHT OF position",
/* 80 */ "position ::= expr ON HEADING EDGEPT OF position",
/* 81 */ "position ::= expr HEADING EDGEPT OF position",
/* 82 */ "position ::= expr EDGEPT OF position",
/* 83 */ "position ::= expr ON HEADING expr FROM position",
/* 84 */ "position ::= expr HEADING expr FROM position",
/* 85 */ "place ::= edge OF object",
/* 86 */ "place2 ::= object",
/* 87 */ "place2 ::= object DOT_E edge",
/* 88 */ "place2 ::= NTH VERTEX OF object",
/* 89 */ "object ::= nth",
/* 90 */ "object ::= nth OF|IN object",
/* 91 */ "objectname ::= PLACENAME",
/* 92 */ "objectname ::= objectname DOT_U PLACENAME",
/* 93 */ "nth ::= NTH CLASSNAME",
/* 94 */ "nth ::= NTH LAST CLASSNAME",
/* 95 */ "nth ::= LAST CLASSNAME",
/* 96 */ "nth ::= LAST",
/* 97 */ "nth ::= NTH LB RB",
/* 98 */ "nth ::= NTH LAST LB RB",
/* 99 */ "nth ::= LAST LB RB",
/* 100 */ "expr ::= expr PLUS expr",
/* 101 */ "expr ::= expr MINUS expr",
/* 102 */ "expr ::= expr STAR expr",
/* 103 */ "expr ::= expr SLASH expr",
/* 104 */ "expr ::= MINUS expr",
/* 105 */ "expr ::= PLUS expr",
/* 106 */ "expr ::= LP expr RP",
/* 107 */ "expr ::= NUMBER",
/* 108 */ "expr ::= ID",
/* 109 */ "expr ::= FUNC1 LP expr RP",
/* 110 */ "expr ::= FUNC2 LP expr COMMA expr RP",
/* 111 */ "expr ::= place2 DOT_XY X",
/* 112 */ "expr ::= place2 DOT_XY Y",
/* 113 */ "expr ::= object DOT_L numproperty",
/* 114 */ "expr ::= object DOT_L dashproperty",
/* 115 */ "expr ::= object DOT_L colorproperty",
/* 116 */ "lvalue ::= ID",
/* 117 */ "lvalue ::= FILL",
/* 118 */ "lvalue ::= COLOR",
/* 119 */ "lvalue ::= THICKNESS",
/* 120 */ "rvalue ::= expr",
/* 121 */ "print ::= PRINT",
/* 122 */ "prlist ::= pritem",
/* 123 */ "prlist ::= prlist prsep pritem",
/* 124 */ "direction ::= UP",
/* 125 */ "direction ::= DOWN",
/* 126 */ "direction ::= LEFT",
/* 127 */ "direction ::= RIGHT",
/* 128 */ "attribute_list ::= alist",
/* 129 */ "alist ::=",
/* 130 */ "alist ::= alist attribute",
/* 131 */ "attribute ::= boolproperty",
/* 132 */ "attribute ::= WITH withclause",
/* 133 */ "go ::= GO",
/* 134 */ "go ::=",
/* 135 */ "even ::= UNTIL EVEN WITH",
/* 136 */ "even ::= EVEN WITH",
/* 137 */ "dashproperty ::= DOTTED",
/* 138 */ "dashproperty ::= DASHED",
/* 139 */ "colorproperty ::= FILL",
/* 140 */ "colorproperty ::= COLOR",
/* 141 */ "position ::= place",
/* 142 */ "between ::= WAY BETWEEN",
/* 143 */ "between ::= BETWEEN",
/* 144 */ "between ::= OF THE WAY BETWEEN",
/* 145 */ "place ::= place2",
/* 146 */ "edge ::= CENTER",
/* 147 */ "edge ::= EDGEPT",
/* 148 */ "edge ::= TOP",
/* 149 */ "edge ::= BOTTOM",
/* 150 */ "edge ::= START",
/* 151 */ "edge ::= END",
/* 152 */ "edge ::= RIGHT",
/* 153 */ "edge ::= LEFT",
/* 154 */ "object ::= objectname",
};
#endif /* NDEBUG */
#if YYSTACKDEPTH<=0
/*
** Try to increase the size of the parser stack. Return the number
** of errors. Return 0 on success.
*/
static int yyGrowStack(yyParser *p){
int newSize;
int idx;
yyStackEntry *pNew;
newSize = p->yystksz*2 + 100;
idx = p->yytos ? (int)(p->yytos - p->yystack) : 0;
if( p->yystack==&p->yystk0 ){
pNew = malloc(newSize*sizeof(pNew[0]));
if( pNew ) pNew[0] = p->yystk0;
}else{
pNew = realloc(p->yystack, newSize*sizeof(pNew[0]));
}
if( pNew ){
p->yystack = pNew;
p->yytos = &p->yystack[idx];
#ifndef NDEBUG
if( yyTraceFILE ){
fprintf(yyTraceFILE,"%sStack grows from %d to %d entries.\n",
yyTracePrompt, p->yystksz, newSize);
}
#endif
p->yystksz = newSize;
}
return pNew==0;
}
#endif
/* Datatype of the argument to the memory allocated passed as the
** second argument to pik_parserAlloc() below. This can be changed by
** putting an appropriate #define in the %include section of the input
** grammar.
*/
#ifndef YYMALLOCARGTYPE
# define YYMALLOCARGTYPE size_t
#endif
/* Initialize a new parser that has already been allocated.
*/
void pik_parserInit(void *yypRawParser pik_parserCTX_PDECL){
yyParser *yypParser = (yyParser*)yypRawParser;
pik_parserCTX_STORE
#ifdef YYTRACKMAXSTACKDEPTH
yypParser->yyhwm = 0;
#endif
#if YYSTACKDEPTH<=0
yypParser->yytos = NULL;
yypParser->yystack = NULL;
yypParser->yystksz = 0;
if( yyGrowStack(yypParser) ){
yypParser->yystack = &yypParser->yystk0;
yypParser->yystksz = 1;
}
#endif
#ifndef YYNOERRORRECOVERY
yypParser->yyerrcnt = -1;
#endif
yypParser->yytos = yypParser->yystack;
yypParser->yystack[0].stateno = 0;
yypParser->yystack[0].major = 0;
#if YYSTACKDEPTH>0
yypParser->yystackEnd = &yypParser->yystack[YYSTACKDEPTH-1];
#endif
}
#ifndef pik_parser_ENGINEALWAYSONSTACK
/*
** This function allocates a new parser.
** The only argument is a pointer to a function which works like
** malloc.
**
** Inputs:
** A pointer to the function used to allocate memory.
**
** Outputs:
** A pointer to a parser. This pointer is used in subsequent calls
** to pik_parser and pik_parserFree.
*/
void *pik_parserAlloc(void *(*mallocProc)(YYMALLOCARGTYPE) pik_parserCTX_PDECL){
yyParser *yypParser;
yypParser = (yyParser*)(*mallocProc)( (YYMALLOCARGTYPE)sizeof(yyParser) );
if( yypParser ){
pik_parserCTX_STORE
pik_parserInit(yypParser pik_parserCTX_PARAM);
}
return (void*)yypParser;
}
#endif /* pik_parser_ENGINEALWAYSONSTACK */
/* The following function deletes the "minor type" or semantic value
** associated with a symbol. The symbol can be either a terminal
** or nonterminal. "yymajor" is the symbol code, and "yypminor" is
** a pointer to the value to be deleted. The code used to do the
** deletions is derived from the %destructor and/or %token_destructor
** directives of the input grammar.
*/
static void yy_destructor(
yyParser *yypParser, /* The parser */
YYCODETYPE yymajor, /* Type code for object to destroy */
YYMINORTYPE *yypminor /* The object to be destroyed */
){
pik_parserARG_FETCH
pik_parserCTX_FETCH
switch( yymajor ){
/* Here is inserted the actions which take place when a
** terminal or non-terminal is destroyed. This can happen
** when the symbol is popped from the stack during a
** reduce or during error processing or when a parser is
** being destroyed before it is finished parsing.
**
** Note: during a reduce, the only symbols destroyed are those
** which appear on the RHS of the rule, but which are *not* used
** inside the C code.
*/
/********* Begin destructor definitions ***************************************/
case 94: /* element_list */
{
#line 448 "pikchr.y"
pik_elist_free(p,(yypminor->yy52));
#line 1662 "pikchr.c"
}
break;
case 95: /* element */
case 96: /* unnamed_element */
case 97: /* basetype */
{
#line 450 "pikchr.y"
pik_elem_free(p,(yypminor->yy58));
#line 1671 "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 479 "pikchr.y"
pik_error(p, 0, "parser stack overflow");
#line 1892 "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[] = {
114, /* (0) document ::= element_list */
94, /* (1) element_list ::= element */
94, /* (2) element_list ::= element_list EOL element */
95, /* (3) element ::= */
95, /* (4) element ::= direction */
95, /* (5) element ::= lvalue ASSIGN rvalue */
95, /* (6) element ::= PLACENAME COLON unnamed_element */
95, /* (7) element ::= PLACENAME COLON position */
95, /* (8) element ::= unnamed_element */
95, /* (9) element ::= print prlist */
95, /* (10) element ::= ASSERT LP expr EQ expr RP */
95, /* (11) element ::= ASSERT LP place EQ place RP */
111, /* (12) rvalue ::= PLACENAME */
117, /* (13) pritem ::= FILL */
117, /* (14) pritem ::= COLOR */
117, /* (15) pritem ::= THICKNESS */
117, /* (16) pritem ::= rvalue */
117, /* (17) pritem ::= STRING */
118, /* (18) prsep ::= COMMA */
96, /* (19) unnamed_element ::= basetype attribute_list */
97, /* (20) basetype ::= CLASSNAME */
97, /* (21) basetype ::= STRING textposition */
97, /* (22) basetype ::= LB savelist element_list RB */
120, /* (23) savelist ::= */
119, /* (24) attribute_list ::= expr alist */
119, /* (25) attribute_list ::= expr PERCENT alist */
122, /* (26) attribute ::= numproperty expr PERCENT */
122, /* (27) attribute ::= numproperty expr */
122, /* (28) attribute ::= dashproperty expr */
122, /* (29) attribute ::= dashproperty */
122, /* (30) attribute ::= colorproperty rvalue */
122, /* (31) attribute ::= go direction expr PERCENT */
122, /* (32) attribute ::= go direction expr */
122, /* (33) attribute ::= go direction */
122, /* (34) attribute ::= go direction even position */
122, /* (35) attribute ::= CLOSE */
122, /* (36) attribute ::= CHOP */
122, /* (37) attribute ::= FROM position */
122, /* (38) attribute ::= TO position */
122, /* (39) attribute ::= THEN */
122, /* (40) attribute ::= THEN expr HEADING expr */
122, /* (41) attribute ::= THEN HEADING expr */
122, /* (42) attribute ::= THEN expr EDGEPT */
122, /* (43) attribute ::= THEN EDGEPT */
122, /* (44) attribute ::= GO expr HEADING expr */
122, /* (45) attribute ::= GO HEADING expr */
122, /* (46) attribute ::= GO expr EDGEPT */
122, /* (47) attribute ::= GO EDGEPT */
122, /* (48) attribute ::= AT position */
122, /* (49) attribute ::= SAME */
122, /* (50) attribute ::= SAME AS object */
122, /* (51) attribute ::= STRING textposition */
122, /* (52) attribute ::= FIT */
122, /* (53) attribute ::= BEHIND object */
125, /* (54) withclause ::= DOT_E edge AT position */
125, /* (55) withclause ::= edge AT position */
99, /* (56) numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
124, /* (57) boolproperty ::= CW */
124, /* (58) boolproperty ::= CCW */
124, /* (59) boolproperty ::= LARROW */
124, /* (60) boolproperty ::= RARROW */
124, /* (61) boolproperty ::= LRARROW */
124, /* (62) boolproperty ::= INVIS */
124, /* (63) boolproperty ::= THICK */
124, /* (64) boolproperty ::= THIN */
110, /* (65) textposition ::= */
110, /* (66) textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
105, /* (67) position ::= expr COMMA expr */
105, /* (68) position ::= place PLUS expr COMMA expr */
105, /* (69) position ::= place MINUS expr COMMA expr */
105, /* (70) position ::= place PLUS LP expr COMMA expr RP */
105, /* (71) position ::= place MINUS LP expr COMMA expr RP */
105, /* (72) position ::= LP position COMMA position RP */
105, /* (73) position ::= LP position RP */
105, /* (74) position ::= expr between position AND position */
105, /* (75) position ::= expr LT position COMMA position GT */
105, /* (76) position ::= expr ABOVE position */
105, /* (77) position ::= expr BELOW position */
105, /* (78) position ::= expr LEFT OF position */
105, /* (79) position ::= expr RIGHT OF position */
105, /* (80) position ::= expr ON HEADING EDGEPT OF position */
105, /* (81) position ::= expr HEADING EDGEPT OF position */
105, /* (82) position ::= expr EDGEPT OF position */
105, /* (83) position ::= expr ON HEADING expr FROM position */
105, /* (84) position ::= expr HEADING expr FROM position */
106, /* (85) place ::= edge OF object */
127, /* (86) place2 ::= object */
127, /* (87) place2 ::= object DOT_E edge */
127, /* (88) place2 ::= NTH VERTEX OF object */
107, /* (89) object ::= nth */
107, /* (90) object ::= nth OF|IN object */
108, /* (91) objectname ::= PLACENAME */
108, /* (92) objectname ::= objectname DOT_U PLACENAME */
109, /* (93) nth ::= NTH CLASSNAME */
109, /* (94) nth ::= NTH LAST CLASSNAME */
109, /* (95) nth ::= LAST CLASSNAME */
109, /* (96) nth ::= LAST */
109, /* (97) nth ::= NTH LB RB */
109, /* (98) nth ::= NTH LAST LB RB */
109, /* (99) nth ::= LAST LB RB */
98, /* (100) expr ::= expr PLUS expr */
98, /* (101) expr ::= expr MINUS expr */
98, /* (102) expr ::= expr STAR expr */
98, /* (103) expr ::= expr SLASH expr */
98, /* (104) expr ::= MINUS expr */
98, /* (105) expr ::= PLUS expr */
98, /* (106) expr ::= LP expr RP */
98, /* (107) expr ::= NUMBER */
98, /* (108) expr ::= ID */
98, /* (109) expr ::= FUNC1 LP expr RP */
98, /* (110) expr ::= FUNC2 LP expr COMMA expr RP */
98, /* (111) expr ::= place2 DOT_XY X */
98, /* (112) expr ::= place2 DOT_XY Y */
98, /* (113) expr ::= object DOT_L numproperty */
98, /* (114) expr ::= object DOT_L dashproperty */
98, /* (115) expr ::= object DOT_L colorproperty */
112, /* (116) lvalue ::= ID */
112, /* (117) lvalue ::= FILL */
112, /* (118) lvalue ::= COLOR */
112, /* (119) lvalue ::= THICKNESS */
111, /* (120) rvalue ::= expr */
115, /* (121) print ::= PRINT */
116, /* (122) prlist ::= pritem */
116, /* (123) prlist ::= prlist prsep pritem */
101, /* (124) direction ::= UP */
101, /* (125) direction ::= DOWN */
101, /* (126) direction ::= LEFT */
101, /* (127) direction ::= RIGHT */
119, /* (128) attribute_list ::= alist */
121, /* (129) alist ::= */
121, /* (130) alist ::= alist attribute */
122, /* (131) attribute ::= boolproperty */
122, /* (132) attribute ::= WITH withclause */
123, /* (133) go ::= GO */
123, /* (134) go ::= */
113, /* (135) even ::= UNTIL EVEN WITH */
113, /* (136) even ::= EVEN WITH */
102, /* (137) dashproperty ::= DOTTED */
102, /* (138) dashproperty ::= DASHED */
103, /* (139) colorproperty ::= FILL */
103, /* (140) colorproperty ::= COLOR */
105, /* (141) position ::= place */
126, /* (142) between ::= WAY BETWEEN */
126, /* (143) between ::= BETWEEN */
126, /* (144) between ::= OF THE WAY BETWEEN */
106, /* (145) place ::= place2 */
100, /* (146) edge ::= CENTER */
100, /* (147) edge ::= EDGEPT */
100, /* (148) edge ::= TOP */
100, /* (149) edge ::= BOTTOM */
100, /* (150) edge ::= START */
100, /* (151) edge ::= END */
100, /* (152) edge ::= RIGHT */
100, /* (153) edge ::= LEFT */
107, /* (154) object ::= objectname */
};
/* For rule J, yyRuleInfoNRhs[J] contains the negative of the number
** of symbols on the right-hand side of that rule. */
static const signed char yyRuleInfoNRhs[] = {
-1, /* (0) document ::= element_list */
-1, /* (1) element_list ::= element */
-3, /* (2) element_list ::= element_list EOL element */
0, /* (3) element ::= */
-1, /* (4) element ::= direction */
-3, /* (5) element ::= lvalue ASSIGN rvalue */
-3, /* (6) element ::= PLACENAME COLON unnamed_element */
-3, /* (7) element ::= PLACENAME COLON position */
-1, /* (8) element ::= unnamed_element */
-2, /* (9) element ::= print prlist */
-6, /* (10) element ::= ASSERT LP expr EQ expr RP */
-6, /* (11) element ::= ASSERT LP place EQ place RP */
-1, /* (12) rvalue ::= PLACENAME */
-1, /* (13) pritem ::= FILL */
-1, /* (14) pritem ::= COLOR */
-1, /* (15) pritem ::= THICKNESS */
-1, /* (16) pritem ::= rvalue */
-1, /* (17) pritem ::= STRING */
-1, /* (18) prsep ::= COMMA */
-2, /* (19) unnamed_element ::= basetype attribute_list */
-1, /* (20) basetype ::= CLASSNAME */
-2, /* (21) basetype ::= STRING textposition */
-4, /* (22) basetype ::= LB savelist element_list RB */
0, /* (23) savelist ::= */
-2, /* (24) attribute_list ::= expr alist */
-3, /* (25) attribute_list ::= expr PERCENT alist */
-3, /* (26) attribute ::= numproperty expr PERCENT */
-2, /* (27) attribute ::= numproperty expr */
-2, /* (28) attribute ::= dashproperty expr */
-1, /* (29) attribute ::= dashproperty */
-2, /* (30) attribute ::= colorproperty rvalue */
-4, /* (31) attribute ::= go direction expr PERCENT */
-3, /* (32) attribute ::= go direction expr */
-2, /* (33) attribute ::= go direction */
-4, /* (34) attribute ::= go direction even position */
-1, /* (35) attribute ::= CLOSE */
-1, /* (36) attribute ::= CHOP */
-2, /* (37) attribute ::= FROM position */
-2, /* (38) attribute ::= TO position */
-1, /* (39) attribute ::= THEN */
-4, /* (40) attribute ::= THEN expr HEADING expr */
-3, /* (41) attribute ::= THEN HEADING expr */
-3, /* (42) attribute ::= THEN expr EDGEPT */
-2, /* (43) attribute ::= THEN EDGEPT */
-4, /* (44) attribute ::= GO expr HEADING expr */
-3, /* (45) attribute ::= GO HEADING expr */
-3, /* (46) attribute ::= GO expr EDGEPT */
-2, /* (47) attribute ::= GO EDGEPT */
-2, /* (48) attribute ::= AT position */
-1, /* (49) attribute ::= SAME */
-3, /* (50) attribute ::= SAME AS object */
-2, /* (51) attribute ::= STRING textposition */
-1, /* (52) attribute ::= FIT */
-2, /* (53) attribute ::= BEHIND object */
-4, /* (54) withclause ::= DOT_E edge AT position */
-3, /* (55) withclause ::= edge AT position */
-1, /* (56) numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
-1, /* (57) boolproperty ::= CW */
-1, /* (58) boolproperty ::= CCW */
-1, /* (59) boolproperty ::= LARROW */
-1, /* (60) boolproperty ::= RARROW */
-1, /* (61) boolproperty ::= LRARROW */
-1, /* (62) boolproperty ::= INVIS */
-1, /* (63) boolproperty ::= THICK */
-1, /* (64) boolproperty ::= THIN */
0, /* (65) textposition ::= */
-2, /* (66) textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
-3, /* (67) position ::= expr COMMA expr */
-5, /* (68) position ::= place PLUS expr COMMA expr */
-5, /* (69) position ::= place MINUS expr COMMA expr */
-7, /* (70) position ::= place PLUS LP expr COMMA expr RP */
-7, /* (71) position ::= place MINUS LP expr COMMA expr RP */
-5, /* (72) position ::= LP position COMMA position RP */
-3, /* (73) position ::= LP position RP */
-5, /* (74) position ::= expr between position AND position */
-6, /* (75) position ::= expr LT position COMMA position GT */
-3, /* (76) position ::= expr ABOVE position */
-3, /* (77) position ::= expr BELOW position */
-4, /* (78) position ::= expr LEFT OF position */
-4, /* (79) position ::= expr RIGHT OF position */
-6, /* (80) position ::= expr ON HEADING EDGEPT OF position */
-5, /* (81) position ::= expr HEADING EDGEPT OF position */
-4, /* (82) position ::= expr EDGEPT OF position */
-6, /* (83) position ::= expr ON HEADING expr FROM position */
-5, /* (84) position ::= expr HEADING expr FROM position */
-3, /* (85) place ::= edge OF object */
-1, /* (86) place2 ::= object */
-3, /* (87) place2 ::= object DOT_E edge */
-4, /* (88) place2 ::= NTH VERTEX OF object */
-1, /* (89) object ::= nth */
-3, /* (90) object ::= nth OF|IN object */
-1, /* (91) objectname ::= PLACENAME */
-3, /* (92) objectname ::= objectname DOT_U PLACENAME */
-2, /* (93) nth ::= NTH CLASSNAME */
-3, /* (94) nth ::= NTH LAST CLASSNAME */
-2, /* (95) nth ::= LAST CLASSNAME */
-1, /* (96) nth ::= LAST */
-3, /* (97) nth ::= NTH LB RB */
-4, /* (98) nth ::= NTH LAST LB RB */
-3, /* (99) nth ::= LAST LB RB */
-3, /* (100) expr ::= expr PLUS expr */
-3, /* (101) expr ::= expr MINUS expr */
-3, /* (102) expr ::= expr STAR expr */
-3, /* (103) expr ::= expr SLASH expr */
-2, /* (104) expr ::= MINUS expr */
-2, /* (105) expr ::= PLUS expr */
-3, /* (106) expr ::= LP expr RP */
-1, /* (107) expr ::= NUMBER */
-1, /* (108) expr ::= ID */
-4, /* (109) expr ::= FUNC1 LP expr RP */
-6, /* (110) expr ::= FUNC2 LP expr COMMA expr RP */
-3, /* (111) expr ::= place2 DOT_XY X */
-3, /* (112) expr ::= place2 DOT_XY Y */
-3, /* (113) expr ::= object DOT_L numproperty */
-3, /* (114) expr ::= object DOT_L dashproperty */
-3, /* (115) expr ::= object DOT_L colorproperty */
-1, /* (116) lvalue ::= ID */
-1, /* (117) lvalue ::= FILL */
-1, /* (118) lvalue ::= COLOR */
-1, /* (119) lvalue ::= THICKNESS */
-1, /* (120) rvalue ::= expr */
-1, /* (121) print ::= PRINT */
-1, /* (122) prlist ::= pritem */
-3, /* (123) prlist ::= prlist prsep pritem */
-1, /* (124) direction ::= UP */
-1, /* (125) direction ::= DOWN */
-1, /* (126) direction ::= LEFT */
-1, /* (127) direction ::= RIGHT */
-1, /* (128) attribute_list ::= alist */
0, /* (129) alist ::= */
-2, /* (130) alist ::= alist attribute */
-1, /* (131) attribute ::= boolproperty */
-2, /* (132) attribute ::= WITH withclause */
-1, /* (133) go ::= GO */
0, /* (134) go ::= */
-3, /* (135) even ::= UNTIL EVEN WITH */
-2, /* (136) even ::= EVEN WITH */
-1, /* (137) dashproperty ::= DOTTED */
-1, /* (138) dashproperty ::= DASHED */
-1, /* (139) colorproperty ::= FILL */
-1, /* (140) colorproperty ::= COLOR */
-1, /* (141) position ::= place */
-2, /* (142) between ::= WAY BETWEEN */
-1, /* (143) between ::= BETWEEN */
-4, /* (144) between ::= OF THE WAY BETWEEN */
-1, /* (145) place ::= place2 */
-1, /* (146) edge ::= CENTER */
-1, /* (147) edge ::= EDGEPT */
-1, /* (148) edge ::= TOP */
-1, /* (149) edge ::= BOTTOM */
-1, /* (150) edge ::= START */
-1, /* (151) edge ::= END */
-1, /* (152) edge ::= RIGHT */
-1, /* (153) edge ::= LEFT */
-1, /* (154) object ::= objectname */
};
static void yy_accept(yyParser*); /* Forward Declaration */
/*
** Perform a reduce action and the shift that must immediately
** follow the reduce.
**
** The yyLookahead and yyLookaheadToken parameters provide reduce actions
** access to the lookahead token (if any). The yyLookahead will be YYNOCODE
** if the lookahead token has already been consumed. As this procedure is
** only called from one place, optimizing compilers will in-line it, which
** means that the extra parameters have no performance impact.
*/
static YYACTIONTYPE yy_reduce(
yyParser *yypParser, /* The parser */
unsigned int yyruleno, /* Number of the rule by which to reduce */
int yyLookahead, /* Lookahead token, or YYNOCODE if none */
pik_parserTOKENTYPE yyLookaheadToken /* Value of the lookahead token */
pik_parserCTX_PDECL /* %extra_context */
){
int yygoto; /* The next state */
YYACTIONTYPE yyact; /* The next action */
yyStackEntry *yymsp; /* The top of the parser's stack */
int yysize; /* Amount to pop the stack */
pik_parserARG_FETCH
(void)yyLookahead;
(void)yyLookaheadToken;
yymsp = yypParser->yytos;
#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 483 "pikchr.y"
{pik_render(p,yymsp[0].minor.yy52);}
#line 2371 "pikchr.c"
break;
case 1: /* element_list ::= element */
#line 486 "pikchr.y"
{ yylhsminor.yy52 = pik_elist_append(p,0,yymsp[0].minor.yy58); }
#line 2376 "pikchr.c"
yymsp[0].minor.yy52 = yylhsminor.yy52;
break;
case 2: /* element_list ::= element_list EOL element */
#line 488 "pikchr.y"
{ yylhsminor.yy52 = pik_elist_append(p,yymsp[-2].minor.yy52,yymsp[0].minor.yy58); }
#line 2382 "pikchr.c"
yymsp[-2].minor.yy52 = yylhsminor.yy52;
break;
case 3: /* element ::= */
#line 491 "pikchr.y"
{ yymsp[1].minor.yy58 = 0; }
#line 2388 "pikchr.c"
break;
case 4: /* element ::= direction */
#line 492 "pikchr.y"
{ pik_set_direction(p,yymsp[0].minor.yy0.eCode); yylhsminor.yy58=0; }
#line 2393 "pikchr.c"
yymsp[0].minor.yy58 = yylhsminor.yy58;
break;
case 5: /* element ::= lvalue ASSIGN rvalue */
#line 493 "pikchr.y"
{pik_set_var(p,&yymsp[-2].minor.yy0,yymsp[0].minor.yy149,&yymsp[-1].minor.yy0); yylhsminor.yy58=0;}
#line 2399 "pikchr.c"
yymsp[-2].minor.yy58 = yylhsminor.yy58;
break;
case 6: /* element ::= PLACENAME COLON unnamed_element */
#line 495 "pikchr.y"
{ yylhsminor.yy58 = yymsp[0].minor.yy58; pik_elem_setname(p,yymsp[0].minor.yy58,&yymsp[-2].minor.yy0); }
#line 2405 "pikchr.c"
yymsp[-2].minor.yy58 = yylhsminor.yy58;
break;
case 7: /* element ::= PLACENAME COLON position */
#line 497 "pikchr.y"
{ yylhsminor.yy58 = pik_elem_new(p,0,0,0);
if(yylhsminor.yy58){ yylhsminor.yy58->ptAt = yymsp[0].minor.yy95; pik_elem_setname(p,yylhsminor.yy58,&yymsp[-2].minor.yy0); }}
#line 2412 "pikchr.c"
yymsp[-2].minor.yy58 = yylhsminor.yy58;
break;
case 8: /* element ::= unnamed_element */
#line 499 "pikchr.y"
{yylhsminor.yy58 = yymsp[0].minor.yy58;}
#line 2418 "pikchr.c"
yymsp[0].minor.yy58 = yylhsminor.yy58;
break;
case 9: /* element ::= print prlist */
#line 500 "pikchr.y"
{pik_append(p,"<br>\n",5); yymsp[-1].minor.yy58=0;}
#line 2424 "pikchr.c"
break;
case 10: /* element ::= ASSERT LP expr EQ expr RP */
#line 505 "pikchr.y"
{yymsp[-5].minor.yy58=pik_assert(p,yymsp[-3].minor.yy149,&yymsp[-2].minor.yy0,yymsp[-1].minor.yy149);}
#line 2429 "pikchr.c"
break;
case 11: /* element ::= ASSERT LP place EQ place RP */
#line 507 "pikchr.y"
{yymsp[-5].minor.yy58=pik_place_assert(p,&yymsp[-3].minor.yy95,&yymsp[-2].minor.yy0,&yymsp[-1].minor.yy95);}
#line 2434 "pikchr.c"
break;
case 12: /* rvalue ::= PLACENAME */
#line 518 "pikchr.y"
{yylhsminor.yy149 = pik_lookup_color(p,&yymsp[0].minor.yy0);}
#line 2439 "pikchr.c"
yymsp[0].minor.yy149 = yylhsminor.yy149;
break;
case 13: /* pritem ::= FILL */
case 14: /* pritem ::= COLOR */ yytestcase(yyruleno==14);
case 15: /* pritem ::= THICKNESS */ yytestcase(yyruleno==15);
#line 523 "pikchr.y"
{pik_append_num(p,"",pik_value(p,yymsp[0].minor.yy0.z,yymsp[0].minor.yy0.n,0));}
#line 2447 "pikchr.c"
break;
case 16: /* pritem ::= rvalue */
#line 526 "pikchr.y"
{pik_append_num(p,"",yymsp[0].minor.yy149);}
#line 2452 "pikchr.c"
break;
case 17: /* pritem ::= STRING */
#line 527 "pikchr.y"
{pik_append_text(p,yymsp[0].minor.yy0.z+1,yymsp[0].minor.yy0.n-2,0);}
#line 2457 "pikchr.c"
break;
case 18: /* prsep ::= COMMA */
#line 528 "pikchr.y"
{pik_append(p, " ", 1);}
#line 2462 "pikchr.c"
break;
case 19: /* unnamed_element ::= basetype attribute_list */
#line 531 "pikchr.y"
{yylhsminor.yy58 = yymsp[-1].minor.yy58; pik_after_adding_attributes(p,yylhsminor.yy58);}
#line 2467 "pikchr.c"
yymsp[-1].minor.yy58 = yylhsminor.yy58;
break;
case 20: /* basetype ::= CLASSNAME */
#line 533 "pikchr.y"
{yylhsminor.yy58 = pik_elem_new(p,&yymsp[0].minor.yy0,0,0); }
#line 2473 "pikchr.c"
yymsp[0].minor.yy58 = yylhsminor.yy58;
break;
case 21: /* basetype ::= STRING textposition */
#line 535 "pikchr.y"
{yymsp[-1].minor.yy0.eCode = yymsp[0].minor.yy92; yylhsminor.yy58 = pik_elem_new(p,0,&yymsp[-1].minor.yy0,0); }
#line 2479 "pikchr.c"
yymsp[-1].minor.yy58 = yylhsminor.yy58;
break;
case 22: /* basetype ::= LB savelist element_list RB */
#line 537 "pikchr.y"
{ p->list = yymsp[-2].minor.yy52; yymsp[-3].minor.yy58 = pik_elem_new(p,0,0,yymsp[-1].minor.yy52); if(yymsp[-3].minor.yy58) yymsp[-3].minor.yy58->errTok = yymsp[0].minor.yy0; }
#line 2485 "pikchr.c"
break;
case 23: /* savelist ::= */
#line 542 "pikchr.y"
{yymsp[1].minor.yy52 = p->list; p->list = 0;}
#line 2490 "pikchr.c"
break;
case 24: /* attribute_list ::= expr alist */
#line 549 "pikchr.y"
{ pik_add_direction(p,0,&yymsp[-1].minor.yy149,0);}
#line 2495 "pikchr.c"
break;
case 25: /* attribute_list ::= expr PERCENT alist */
#line 550 "pikchr.y"
{ pik_add_direction(p,0,&yymsp[-2].minor.yy149,1);}
#line 2500 "pikchr.c"
break;
case 26: /* attribute ::= numproperty expr PERCENT */
#line 555 "pikchr.y"
{ pik_set_numprop(p,&yymsp[-2].minor.yy0,0.0,yymsp[-1].minor.yy149/100.0); }
#line 2505 "pikchr.c"
break;
case 27: /* attribute ::= numproperty expr */
case 30: /* attribute ::= colorproperty rvalue */ yytestcase(yyruleno==30);
#line 556 "pikchr.y"
{ pik_set_numprop(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy149,0.0); }
#line 2511 "pikchr.c"
break;
case 28: /* attribute ::= dashproperty expr */
#line 557 "pikchr.y"
{ pik_set_dashed(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy149); }
#line 2516 "pikchr.c"
break;
case 29: /* attribute ::= dashproperty */
#line 558 "pikchr.y"
{ pik_set_dashed(p,&yymsp[0].minor.yy0,0); }
#line 2521 "pikchr.c"
break;
case 31: /* attribute ::= go direction expr PERCENT */
#line 561 "pikchr.y"
{ pik_add_direction(p,&yymsp[-2].minor.yy0,&yymsp[-1].minor.yy149,1);}
#line 2526 "pikchr.c"
break;
case 32: /* attribute ::= go direction expr */
#line 562 "pikchr.y"
{ pik_add_direction(p,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy149,0);}
#line 2531 "pikchr.c"
break;
case 33: /* attribute ::= go direction */
#line 563 "pikchr.y"
{ pik_add_direction(p,&yymsp[0].minor.yy0,0,0); }
#line 2536 "pikchr.c"
break;
case 34: /* attribute ::= go direction even position */
#line 564 "pikchr.y"
{pik_evenwith(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy95);}
#line 2541 "pikchr.c"
break;
case 35: /* attribute ::= CLOSE */
#line 565 "pikchr.y"
{ pik_close_path(p,&yymsp[0].minor.yy0); }
#line 2546 "pikchr.c"
break;
case 36: /* attribute ::= CHOP */
#line 566 "pikchr.y"
{ p->cur->bChop = 1; }
#line 2551 "pikchr.c"
break;
case 37: /* attribute ::= FROM position */
#line 567 "pikchr.y"
{ pik_set_from(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy95); }
#line 2556 "pikchr.c"
break;
case 38: /* attribute ::= TO position */
#line 568 "pikchr.y"
{ pik_add_to(p,p->cur,&yymsp[-1].minor.yy0,&yymsp[0].minor.yy95); }
#line 2561 "pikchr.c"
break;
case 39: /* attribute ::= THEN */
#line 569 "pikchr.y"
{ pik_then(p, &yymsp[0].minor.yy0, p->cur); }
#line 2566 "pikchr.c"
break;
case 40: /* attribute ::= THEN expr HEADING expr */
case 44: /* attribute ::= GO expr HEADING expr */ yytestcase(yyruleno==44);
#line 571 "pikchr.y"
{pik_move_hdg(p,&yymsp[-2].minor.yy149,&yymsp[-1].minor.yy0,yymsp[0].minor.yy149,0,&yymsp[-3].minor.yy0);}
#line 2572 "pikchr.c"
break;
case 41: /* attribute ::= THEN HEADING expr */
case 45: /* attribute ::= GO HEADING expr */ yytestcase(yyruleno==45);
#line 572 "pikchr.y"
{pik_move_hdg(p,0,&yymsp[-1].minor.yy0,yymsp[0].minor.yy149,0,&yymsp[-2].minor.yy0);}
#line 2578 "pikchr.c"
break;
case 42: /* attribute ::= THEN expr EDGEPT */
case 46: /* attribute ::= GO expr EDGEPT */ yytestcase(yyruleno==46);
#line 573 "pikchr.y"
{pik_move_hdg(p,&yymsp[-1].minor.yy149,0,0,&yymsp[0].minor.yy0,&yymsp[-2].minor.yy0);}
#line 2584 "pikchr.c"
break;
case 43: /* attribute ::= THEN EDGEPT */
case 47: /* attribute ::= GO EDGEPT */ yytestcase(yyruleno==47);
#line 574 "pikchr.y"
{pik_move_hdg(p,0,0,0,&yymsp[0].minor.yy0,&yymsp[-1].minor.yy0);}
#line 2590 "pikchr.c"
break;
case 48: /* attribute ::= AT position */
#line 580 "pikchr.y"
{ pik_set_at(p,0,&yymsp[0].minor.yy95,&yymsp[-1].minor.yy0); }
#line 2595 "pikchr.c"
break;
case 49: /* attribute ::= SAME */
#line 582 "pikchr.y"
{pik_same(p,0,&yymsp[0].minor.yy0);}
#line 2600 "pikchr.c"
break;
case 50: /* attribute ::= SAME AS object */
#line 583 "pikchr.y"
{pik_same(p,yymsp[0].minor.yy58,&yymsp[-2].minor.yy0);}
#line 2605 "pikchr.c"
break;
case 51: /* attribute ::= STRING textposition */
#line 584 "pikchr.y"
{pik_add_txt(p,&yymsp[-1].minor.yy0,yymsp[0].minor.yy92);}
#line 2610 "pikchr.c"
break;
case 52: /* attribute ::= FIT */
#line 585 "pikchr.y"
{pik_size_to_fit(p,&yymsp[0].minor.yy0); }
#line 2615 "pikchr.c"
break;
case 53: /* attribute ::= BEHIND object */
#line 586 "pikchr.y"
{pik_behind(p,yymsp[0].minor.yy58);}
#line 2620 "pikchr.c"
break;
case 54: /* withclause ::= DOT_E edge AT position */
case 55: /* withclause ::= edge AT position */ yytestcase(yyruleno==55);
#line 594 "pikchr.y"
{ pik_set_at(p,&yymsp[-2].minor.yy0,&yymsp[0].minor.yy95,&yymsp[-1].minor.yy0); }
#line 2626 "pikchr.c"
break;
case 56: /* numproperty ::= HEIGHT|WIDTH|RADIUS|DIAMETER|THICKNESS */
#line 598 "pikchr.y"
{yylhsminor.yy0 = yymsp[0].minor.yy0;}
#line 2631 "pikchr.c"
yymsp[0].minor.yy0 = yylhsminor.yy0;
break;
case 57: /* boolproperty ::= CW */
#line 609 "pikchr.y"
{p->cur->cw = 1;}
#line 2637 "pikchr.c"
break;
case 58: /* boolproperty ::= CCW */
#line 610 "pikchr.y"
{p->cur->cw = 0;}
#line 2642 "pikchr.c"
break;
case 59: /* boolproperty ::= LARROW */
#line 611 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=0; }
#line 2647 "pikchr.c"
break;
case 60: /* boolproperty ::= RARROW */
#line 612 "pikchr.y"
{p->cur->larrow=0; p->cur->rarrow=1; }
#line 2652 "pikchr.c"
break;
case 61: /* boolproperty ::= LRARROW */
#line 613 "pikchr.y"
{p->cur->larrow=1; p->cur->rarrow=1; }
#line 2657 "pikchr.c"
break;
case 62: /* boolproperty ::= INVIS */
#line 614 "pikchr.y"
{p->cur->sw = 0.0;}
#line 2662 "pikchr.c"
break;
case 63: /* boolproperty ::= THICK */
#line 615 "pikchr.y"
{p->cur->sw *= 1.5;}
#line 2667 "pikchr.c"
break;
case 64: /* boolproperty ::= THIN */
#line 616 "pikchr.y"
{p->cur->sw *= 0.67;}
#line 2672 "pikchr.c"
break;
case 65: /* textposition ::= */
#line 618 "pikchr.y"
{yymsp[1].minor.yy92 = 0;}
#line 2677 "pikchr.c"
break;
case 66: /* textposition ::= textposition CENTER|LJUST|RJUST|ABOVE|BELOW|ITALIC|BOLD|ALIGNED|BIG|SMALL */
#line 621 "pikchr.y"
{yylhsminor.yy92 = pik_text_position(p,yymsp[-1].minor.yy92,&yymsp[0].minor.yy0);}
#line 2682 "pikchr.c"
yymsp[-1].minor.yy92 = yylhsminor.yy92;
break;
case 67: /* position ::= expr COMMA expr */
#line 624 "pikchr.y"
{yylhsminor.yy95.x=yymsp[-2].minor.yy149; yylhsminor.yy95.y=yymsp[0].minor.yy149;}
#line 2688 "pikchr.c"
yymsp[-2].minor.yy95 = yylhsminor.yy95;
break;
case 68: /* position ::= place PLUS expr COMMA expr */
#line 626 "pikchr.y"
{yylhsminor.yy95.x=yymsp[-4].minor.yy95.x+yymsp[-2].minor.yy149; yylhsminor.yy95.y=yymsp[-4].minor.yy95.y+yymsp[0].minor.yy149;}
#line 2694 "pikchr.c"
yymsp[-4].minor.yy95 = yylhsminor.yy95;
break;
case 69: /* position ::= place MINUS expr COMMA expr */
#line 627 "pikchr.y"
{yylhsminor.yy95.x=yymsp[-4].minor.yy95.x-yymsp[-2].minor.yy149; yylhsminor.yy95.y=yymsp[-4].minor.yy95.y-yymsp[0].minor.yy149;}
#line 2700 "pikchr.c"
yymsp[-4].minor.yy95 = yylhsminor.yy95;
break;
case 70: /* position ::= place PLUS LP expr COMMA expr RP */
#line 629 "pikchr.y"
{yylhsminor.yy95.x=yymsp[-6].minor.yy95.x+yymsp[-3].minor.yy149; yylhsminor.yy95.y=yymsp[-6].minor.yy95.y+yymsp[-1].minor.yy149;}
#line 2706 "pikchr.c"
yymsp[-6].minor.yy95 = yylhsminor.yy95;
break;
case 71: /* position ::= place MINUS LP expr COMMA expr RP */
#line 631 "pikchr.y"
{yylhsminor.yy95.x=yymsp[-6].minor.yy95.x-yymsp[-3].minor.yy149; yylhsminor.yy95.y=yymsp[-6].minor.yy95.y-yymsp[-1].minor.yy149;}
#line 2712 "pikchr.c"
yymsp[-6].minor.yy95 = yylhsminor.yy95;
break;
case 72: /* position ::= LP position COMMA position RP */
#line 632 "pikchr.y"
{yymsp[-4].minor.yy95.x=yymsp[-3].minor.yy95.x; yymsp[-4].minor.yy95.y=yymsp[-1].minor.yy95.y;}
#line 2718 "pikchr.c"
break;
case 73: /* position ::= LP position RP */
#line 633 "pikchr.y"
{yymsp[-2].minor.yy95=yymsp[-1].minor.yy95;}
#line 2723 "pikchr.c"
break;
case 74: /* position ::= expr between position AND position */
#line 635 "pikchr.y"
{yylhsminor.yy95 = pik_position_between(p,yymsp[-4].minor.yy149,yymsp[-2].minor.yy95,yymsp[0].minor.yy95);}
#line 2728 "pikchr.c"
yymsp[-4].minor.yy95 = yylhsminor.yy95;
break;
case 75: /* position ::= expr LT position COMMA position GT */
#line 637 "pikchr.y"
{yylhsminor.yy95 = pik_position_between(p,yymsp[-5].minor.yy149,yymsp[-3].minor.yy95,yymsp[-1].minor.yy95);}
#line 2734 "pikchr.c"
yymsp[-5].minor.yy95 = yylhsminor.yy95;
break;
case 76: /* position ::= expr ABOVE position */
#line 638 "pikchr.y"
{yylhsminor.yy95=yymsp[0].minor.yy95; yylhsminor.yy95.y += yymsp[-2].minor.yy149;}
#line 2740 "pikchr.c"
yymsp[-2].minor.yy95 = yylhsminor.yy95;
break;
case 77: /* position ::= expr BELOW position */
#line 639 "pikchr.y"
{yylhsminor.yy95=yymsp[0].minor.yy95; yylhsminor.yy95.y -= yymsp[-2].minor.yy149;}
#line 2746 "pikchr.c"
yymsp[-2].minor.yy95 = yylhsminor.yy95;
break;
case 78: /* position ::= expr LEFT OF position */
#line 640 "pikchr.y"
{yylhsminor.yy95=yymsp[0].minor.yy95; yylhsminor.yy95.x -= yymsp[-3].minor.yy149;}
#line 2752 "pikchr.c"
yymsp[-3].minor.yy95 = yylhsminor.yy95;
break;
case 79: /* position ::= expr RIGHT OF position */
#line 641 "pikchr.y"
{yylhsminor.yy95=yymsp[0].minor.yy95; yylhsminor.yy95.x += yymsp[-3].minor.yy149;}
#line 2758 "pikchr.c"
yymsp[-3].minor.yy95 = yylhsminor.yy95;
break;
case 80: /* position ::= expr ON HEADING EDGEPT OF position */
#line 643 "pikchr.y"
{yylhsminor.yy95 = pik_position_at_hdg(p,yymsp[-5].minor.yy149,&yymsp[-2].minor.yy0,yymsp[0].minor.yy95);}
#line 2764 "pikchr.c"
yymsp[-5].minor.yy95 = yylhsminor.yy95;
break;
case 81: /* position ::= expr HEADING EDGEPT OF position */
#line 645 "pikchr.y"
{yylhsminor.yy95 = pik_position_at_hdg(p,yymsp[-4].minor.yy149,&yymsp[-2].minor.yy0,yymsp[0].minor.yy95);}
#line 2770 "pikchr.c"
yymsp[-4].minor.yy95 = yylhsminor.yy95;
break;
case 82: /* position ::= expr EDGEPT OF position */
#line 647 "pikchr.y"
{yylhsminor.yy95 = pik_position_at_hdg(p,yymsp[-3].minor.yy149,&yymsp[-2].minor.yy0,yymsp[0].minor.yy95);}
#line 2776 "pikchr.c"
yymsp[-3].minor.yy95 = yylhsminor.yy95;
break;
case 83: /* position ::= expr ON HEADING expr FROM position */
#line 649 "pikchr.y"
{yylhsminor.yy95 = pik_position_at_angle(p,yymsp[-5].minor.yy149,yymsp[-2].minor.yy149,yymsp[0].minor.yy95);}
#line 2782 "pikchr.c"
yymsp[-5].minor.yy95 = yylhsminor.yy95;
break;
case 84: /* position ::= expr HEADING expr FROM position */
#line 651 "pikchr.y"
{yylhsminor.yy95 = pik_position_at_angle(p,yymsp[-4].minor.yy149,yymsp[-2].minor.yy149,yymsp[0].minor.yy95);}
#line 2788 "pikchr.c"
yymsp[-4].minor.yy95 = yylhsminor.yy95;
break;
case 85: /* place ::= edge OF object */
#line 663 "pikchr.y"
{yylhsminor.yy95 = pik_place_of_elem(p,yymsp[0].minor.yy58,&yymsp[-2].minor.yy0);}
#line 2794 "pikchr.c"
yymsp[-2].minor.yy95 = yylhsminor.yy95;
break;
case 86: /* place2 ::= object */
#line 664 "pikchr.y"
{yylhsminor.yy95 = pik_place_of_elem(p,yymsp[0].minor.yy58,0);}
#line 2800 "pikchr.c"
yymsp[0].minor.yy95 = yylhsminor.yy95;
break;
case 87: /* place2 ::= object DOT_E edge */
#line 665 "pikchr.y"
{yylhsminor.yy95 = pik_place_of_elem(p,yymsp[-2].minor.yy58,&yymsp[0].minor.yy0);}
#line 2806 "pikchr.c"
yymsp[-2].minor.yy95 = yylhsminor.yy95;
break;
case 88: /* place2 ::= NTH VERTEX OF object */
#line 666 "pikchr.y"
{yylhsminor.yy95 = pik_nth_vertex(p,&yymsp[-3].minor.yy0,&yymsp[-2].minor.yy0,yymsp[0].minor.yy58);}
#line 2812 "pikchr.c"
yymsp[-3].minor.yy95 = yylhsminor.yy95;
break;
case 89: /* object ::= nth */
#line 678 "pikchr.y"
{yylhsminor.yy58 = pik_find_nth(p,0,&yymsp[0].minor.yy0);}
#line 2818 "pikchr.c"
yymsp[0].minor.yy58 = yylhsminor.yy58;
break;
case 90: /* object ::= nth OF|IN object */
#line 679 "pikchr.y"
{yylhsminor.yy58 = pik_find_nth(p,yymsp[0].minor.yy58,&yymsp[-2].minor.yy0);}
#line 2824 "pikchr.c"
yymsp[-2].minor.yy58 = yylhsminor.yy58;
break;
case 91: /* objectname ::= PLACENAME */
#line 681 "pikchr.y"
{yylhsminor.yy58 = pik_find_byname(p,0,&yymsp[0].minor.yy0);}
#line 2830 "pikchr.c"
yymsp[0].minor.yy58 = yylhsminor.yy58;
break;
case 92: /* objectname ::= objectname DOT_U PLACENAME */
#line 683 "pikchr.y"
{yylhsminor.yy58 = pik_find_byname(p,yymsp[-2].minor.yy58,&yymsp[0].minor.yy0);}
#line 2836 "pikchr.c"
yymsp[-2].minor.yy58 = yylhsminor.yy58;
break;
case 93: /* nth ::= NTH CLASSNAME */
#line 685 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-1].minor.yy0); }
#line 2842 "pikchr.c"
yymsp[-1].minor.yy0 = yylhsminor.yy0;
break;
case 94: /* nth ::= NTH LAST CLASSNAME */
#line 686 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-2].minor.yy0); }
#line 2848 "pikchr.c"
yymsp[-2].minor.yy0 = yylhsminor.yy0;
break;
case 95: /* nth ::= LAST CLASSNAME */
#line 687 "pikchr.y"
{yymsp[-1].minor.yy0=yymsp[0].minor.yy0; yymsp[-1].minor.yy0.eCode = -1;}
#line 2854 "pikchr.c"
break;
case 96: /* nth ::= LAST */
#line 688 "pikchr.y"
{yylhsminor.yy0=yymsp[0].minor.yy0; yylhsminor.yy0.eCode = -1;}
#line 2859 "pikchr.c"
yymsp[0].minor.yy0 = yylhsminor.yy0;
break;
case 97: /* nth ::= NTH LB RB */
#line 689 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = pik_nth_value(p,&yymsp[-2].minor.yy0);}
#line 2865 "pikchr.c"
yymsp[-2].minor.yy0 = yylhsminor.yy0;
break;
case 98: /* nth ::= NTH LAST LB RB */
#line 690 "pikchr.y"
{yylhsminor.yy0=yymsp[-1].minor.yy0; yylhsminor.yy0.eCode = -pik_nth_value(p,&yymsp[-3].minor.yy0);}
#line 2871 "pikchr.c"
yymsp[-3].minor.yy0 = yylhsminor.yy0;
break;
case 99: /* nth ::= LAST LB RB */
#line 691 "pikchr.y"
{yymsp[-2].minor.yy0=yymsp[-1].minor.yy0; yymsp[-2].minor.yy0.eCode = -1; }
#line 2877 "pikchr.c"
break;
case 100: /* expr ::= expr PLUS expr */
#line 693 "pikchr.y"
{yylhsminor.yy149=yymsp[-2].minor.yy149+yymsp[0].minor.yy149;}
#line 2882 "pikchr.c"
yymsp[-2].minor.yy149 = yylhsminor.yy149;
break;
case 101: /* expr ::= expr MINUS expr */
#line 694 "pikchr.y"
{yylhsminor.yy149=yymsp[-2].minor.yy149-yymsp[0].minor.yy149;}
#line 2888 "pikchr.c"
yymsp[-2].minor.yy149 = yylhsminor.yy149;
break;
case 102: /* expr ::= expr STAR expr */
#line 695 "pikchr.y"
{yylhsminor.yy149=yymsp[-2].minor.yy149*yymsp[0].minor.yy149;}
#line 2894 "pikchr.c"
yymsp[-2].minor.yy149 = yylhsminor.yy149;
break;
case 103: /* expr ::= expr SLASH expr */
#line 696 "pikchr.y"
{
if( yymsp[0].minor.yy149==0.0 ){ pik_error(p, &yymsp[-1].minor.yy0, "division by zero"); yylhsminor.yy149 = 0.0; }
else{ yylhsminor.yy149 = yymsp[-2].minor.yy149/yymsp[0].minor.yy149; }
}
#line 2903 "pikchr.c"
yymsp[-2].minor.yy149 = yylhsminor.yy149;
break;
case 104: /* expr ::= MINUS expr */
#line 700 "pikchr.y"
{yymsp[-1].minor.yy149=-yymsp[0].minor.yy149;}
#line 2909 "pikchr.c"
break;
case 105: /* expr ::= PLUS expr */
#line 701 "pikchr.y"
{yymsp[-1].minor.yy149=yymsp[0].minor.yy149;}
#line 2914 "pikchr.c"
break;
case 106: /* expr ::= LP expr RP */
#line 702 "pikchr.y"
{yymsp[-2].minor.yy149=yymsp[-1].minor.yy149;}
#line 2919 "pikchr.c"
break;
case 107: /* expr ::= NUMBER */
#line 703 "pikchr.y"
{yylhsminor.yy149=pik_atof(p,&yymsp[0].minor.yy0);}
#line 2924 "pikchr.c"
yymsp[0].minor.yy149 = yylhsminor.yy149;
break;
case 108: /* expr ::= ID */
#line 704 "pikchr.y"
{yylhsminor.yy149=pik_get_var(p,&yymsp[0].minor.yy0);}
#line 2930 "pikchr.c"
yymsp[0].minor.yy149 = yylhsminor.yy149;
break;
case 109: /* expr ::= FUNC1 LP expr RP */
#line 705 "pikchr.y"
{yylhsminor.yy149 = pik_func(p,&yymsp[-3].minor.yy0,yymsp[-1].minor.yy149,0.0);}
#line 2936 "pikchr.c"
yymsp[-3].minor.yy149 = yylhsminor.yy149;
break;
case 110: /* expr ::= FUNC2 LP expr COMMA expr RP */
#line 706 "pikchr.y"
{yylhsminor.yy149 = pik_func(p,&yymsp[-5].minor.yy0,yymsp[-3].minor.yy149,yymsp[-1].minor.yy149);}
#line 2942 "pikchr.c"
yymsp[-5].minor.yy149 = yylhsminor.yy149;
break;
case 111: /* expr ::= place2 DOT_XY X */
#line 707 "pikchr.y"
{yylhsminor.yy149 = yymsp[-2].minor.yy95.x;}
#line 2948 "pikchr.c"
yymsp[-2].minor.yy149 = yylhsminor.yy149;
break;
case 112: /* expr ::= place2 DOT_XY Y */
#line 708 "pikchr.y"
{yylhsminor.yy149 = yymsp[-2].minor.yy95.y;}
#line 2954 "pikchr.c"
yymsp[-2].minor.yy149 = yylhsminor.yy149;
break;
case 113: /* expr ::= object DOT_L numproperty */
case 114: /* expr ::= object DOT_L dashproperty */ yytestcase(yyruleno==114);
case 115: /* expr ::= object DOT_L colorproperty */ yytestcase(yyruleno==115);
#line 709 "pikchr.y"
{yylhsminor.yy149=pik_property_of(p,yymsp[-2].minor.yy58,&yymsp[0].minor.yy0);}
#line 2962 "pikchr.c"
yymsp[-2].minor.yy149 = yylhsminor.yy149;
break;
default:
/* (116) lvalue ::= ID */ yytestcase(yyruleno==116);
/* (117) lvalue ::= FILL */ yytestcase(yyruleno==117);
/* (118) lvalue ::= COLOR */ yytestcase(yyruleno==118);
/* (119) lvalue ::= THICKNESS */ yytestcase(yyruleno==119);
/* (120) rvalue ::= expr */ yytestcase(yyruleno==120);
/* (121) print ::= PRINT */ yytestcase(yyruleno==121);
/* (122) prlist ::= pritem (OPTIMIZED OUT) */ assert(yyruleno!=122);
/* (123) prlist ::= prlist prsep pritem */ yytestcase(yyruleno==123);
/* (124) direction ::= UP */ yytestcase(yyruleno==124);
/* (125) direction ::= DOWN */ yytestcase(yyruleno==125);
/* (126) direction ::= LEFT */ yytestcase(yyruleno==126);
/* (127) direction ::= RIGHT */ yytestcase(yyruleno==127);
/* (128) attribute_list ::= alist */ yytestcase(yyruleno==128);
/* (129) alist ::= */ yytestcase(yyruleno==129);
/* (130) alist ::= alist attribute */ yytestcase(yyruleno==130);
/* (131) attribute ::= boolproperty (OPTIMIZED OUT) */ assert(yyruleno!=131);
/* (132) attribute ::= WITH withclause */ yytestcase(yyruleno==132);
/* (133) go ::= GO */ yytestcase(yyruleno==133);
/* (134) go ::= */ yytestcase(yyruleno==134);
/* (135) even ::= UNTIL EVEN WITH */ yytestcase(yyruleno==135);
/* (136) even ::= EVEN WITH */ yytestcase(yyruleno==136);
/* (137) dashproperty ::= DOTTED */ yytestcase(yyruleno==137);
/* (138) dashproperty ::= DASHED */ yytestcase(yyruleno==138);
/* (139) colorproperty ::= FILL */ yytestcase(yyruleno==139);
/* (140) colorproperty ::= COLOR */ yytestcase(yyruleno==140);
/* (141) position ::= place */ yytestcase(yyruleno==141);
/* (142) between ::= WAY BETWEEN */ yytestcase(yyruleno==142);
/* (143) between ::= BETWEEN */ yytestcase(yyruleno==143);
/* (144) between ::= OF THE WAY BETWEEN */ yytestcase(yyruleno==144);
/* (145) place ::= place2 */ yytestcase(yyruleno==145);
/* (146) edge ::= CENTER */ yytestcase(yyruleno==146);
/* (147) edge ::= EDGEPT */ yytestcase(yyruleno==147);
/* (148) edge ::= TOP */ yytestcase(yyruleno==148);
/* (149) edge ::= BOTTOM */ yytestcase(yyruleno==149);
/* (150) edge ::= START */ yytestcase(yyruleno==150);
/* (151) edge ::= END */ yytestcase(yyruleno==151);
/* (152) edge ::= RIGHT */ yytestcase(yyruleno==152);
/* (153) edge ::= LEFT */ yytestcase(yyruleno==153);
/* (154) object ::= objectname */ yytestcase(yyruleno==154);
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 472 "pikchr.y"
if( TOKEN.z && TOKEN.z[0] ){
pik_error(p, &TOKEN, "syntax error");
}else{
pik_error(p, 0, "syntax error");
}
#line 3071 "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 714 "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 = hypot(dx,dy);
if( dist<pElem->rad ) return pElem->ptAt;
chop.x = pElem->ptAt.x + dx*pElem->rad/dist;
chop.y = pElem->ptAt.y + dy*pElem->rad/dist;
return chop;
}
static void circleFit(Pik *p, PElem *pElem, PNum w, PNum h){
PNum mx = 0.0;
if( w>0 ) mx = w;
if( h>mx ) mx = h;
if( (w*w + h*h) > mx*mx ){
mx = hypot(w,h);
}
if( mx>0.0 ){
pElem->rad = 0.5*mx;
pElem->w = pElem->h = mx;
}
}
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 = hypot(dq,dy);
if( dist<pElem->h ) return pElem->ptAt;
chop.x = pElem->ptAt.x + 0.5*dq*pElem->h/(dist*s);
chop.y = pElem->ptAt.y + 0.5*dy*pElem->h/dist;
return chop;
}
static PPoint ellipseOffset(Pik *p, PElem *pElem, int cp){
PPoint pt;
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 PPoint lineOffset(Pik *p, PElem *pElem, int cp){
#if 0 /* No. Just make .center the geometic center of the line.
** This is different from legacy-PIC and Gnu-PIC, but it seems
** to work better. And the two points are the same in most
** cases anyhow. */
/* The .center of an unclosed line is half way between
** its .start and .end. For everything else, the offset
** is the same as for box */
if( cp==CP_C && !pElem->bClose ){
PPoint out;
out.x = 0.5*(pElem->ptEnter.x + pElem->ptExit.x) - pElem->ptAt.x;
out.y = 0.5*(pElem->ptEnter.x + pElem->ptExit.y) - pElem->ptAt.y;
return out;
}
#endif
return boxOffset(p,pElem,cp);
}
static void lineRender(Pik *p, PElem *pElem){
int i;
if( pElem->sw>0.0 ){
const char *z = "<path d=\"M";
int n = pElem->nPath;
if( pElem->larrow ){
pik_draw_arrowhead(p,&pElem->aPath[1],&pElem->aPath[0],pElem);
}
if( pElem->rarrow ){
pik_draw_arrowhead(p,&pElem->aPath[n-2],&pElem->aPath[n-1],pElem);
}
for(i=0; i<pElem->nPath; i++){
pik_append_xy(p,z,pElem->aPath[i].x,pElem->aPath[i].y);
z = "L";
}
if( pElem->bClose ){
pik_append(p,"Z",1);
}else{
pElem->fill = -1.0;
}
pik_append(p,"\" ",-1);
pik_append_style(p,pElem);
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 = hypot(dx,dy);
PPoint m;
if( dist<=0.0 ) return t;
dx /= dist;
dy /= dist;
if( r > 0.5*dist ){
r = 0.5*dist;
*pbMid = 1;
}else{
*pbMid = 0;
}
m.x = t.x - r*dx;
m.y = t.y - r*dy;
return m;
}
static void radiusPath(Pik *p, PElem *pElem, PNum r){
int i;
int n = pElem->nPath;
const PPoint *a = pElem->aPath;
PPoint m;
int isMid = 0;
pik_append_xy(p,"<path d=\"M", a[0].x, a[0].y);
m = radiusMidpoint(a[0], a[1], r, &isMid);
pik_append_xy(p," L ",m.x,m.y);
for(i=1; i<n-1; i++){
m = radiusMidpoint(a[i+1],a[i],r, &isMid);
pik_append_xy(p," Q ",a[i].x,a[i].y);
pik_append_xy(p," ",m.x,m.y);
if( !isMid ){
m = radiusMidpoint(a[i],a[i+1],r, &isMid);
pik_append_xy(p," L ",m.x,m.y);
}
}
pik_append_xy(p," L ",a[i].x,a[i].y);
pik_append(p,"\" ",-1);
pik_append_style(p,pElem);
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 */ lineOffset,
/* 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 */ lineOffset,
/* 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 */ lineOffset,
/* 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 = hypot(dx,dy);
PNum r;
if( dist<=amt ){
*t = *f;
return;
}
r = 1.0 - amt/dist;
t->x = f->x + r*dx;
t->y = f->y + r*dy;
}
/*
** Draw an arrowhead on the end of the line segment from pFrom to pTo.
** Also, shorten the line segment (by changing the value of pTo) so that
** the shaft of the arrow does not extend into the arrowhead.
*/
static void pik_draw_arrowhead(Pik *p, PPoint *f, PPoint *t, PElem *pElem){
PNum dx = t->x - f->x;
PNum dy = t->y - f->y;
PNum dist = hypot(dx,dy);
PNum h = p->hArrow * pElem->sw;
PNum w = p->wArrow * pElem->sw;
PNum e1, ddx, ddy;
PNum bx, by;
if( pElem->color<0.0 ) return;
if( pElem->sw<=0.0 ) return;
if( dist<=0.0 ) return; /* Unable */
dx /= dist;
dy /= dist;
e1 = dist - h;
if( e1<0.0 ){
e1 = 0.0;
h = dist;
}
ddx = -w*dy;
ddy = w*dx;
bx = f->x + e1*dx;
by = f->y + e1*dy;
pik_append_xy(p,"<polygon points=\"", t->x, t->y);
pik_append_xy(p," ",bx-ddx, by-ddy);
pik_append_xy(p," ",bx+ddx, by+ddy);
pik_append_clr(p,"\" style=\"fill:",pElem->color,"\"/>\n");
pik_chop(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 non-breaking space (U+0080)
** if mFlags has the 0x01 bit set. This is needed when outputting
** text to preserve leading and trailing whitespace. Turns out we
** cannot use as that is an HTML-ism and is not valid in XML.
**
** * The "&" character is changed into "&" if mFlags as the
** 0x02 bit set. This is needed when generating error message text.
**
** * Except for the above, only "<" and ">" are escaped.
*/
static void pik_append_text(Pik *p, const char *zText, int n, int mFlags){
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, "<", 4); break; }
case '>': { pik_append(p, ">", 4); break; }
case '&': { pik_append(p, "&", 5); break; }
case ' ': { pik_append(p, "\302\240;", 2); break; }
}
i++;
n -= i;
zText += i;
i = 0;
}
}
/* Append a PNum value
*/
static void pik_append_num(Pik *p, const char *z,PNum v){
char buf[100];
snprintf(buf, sizeof(buf)-1, "%.10g", (double)v);
buf[sizeof(buf)-1] = 0;
pik_append(p, z, -1);
pik_append(p, buf, -1);
}
/* Append a PPoint value (Used for debugging only)
*/
static void pik_append_point(Pik *p, const char *z, PPoint *pPt){
char buf[100];
snprintf(buf, sizeof(buf)-1, "%.10g,%.10g",
(double)pPt->x, (double)pPt->y);
buf[sizeof(buf)-1] = 0;
pik_append(p, z, -1);
pik_append(p, buf, -1);
}
/* Append a PNum value surrounded by text. Do coordinate transformations
** on the value.
*/
static void pik_append_x(Pik *p, const char *z1, PNum v, const char *z2){
char buf[200];
v -= p->bbox.sw.x;
snprintf(buf, sizeof(buf)-1, "%s%d%s", z1, (int)(p->rScale*v), z2);
buf[sizeof(buf)-1] = 0;
pik_append(p, buf, -1);
}
static void pik_append_y(Pik *p, const char *z1, PNum v, const char *z2){
char buf[200];
v = p->bbox.ne.y - v;
snprintf(buf, sizeof(buf)-1, "%s%d%s", z1, (int)(p->rScale*v), z2);
buf[sizeof(buf)-1] = 0;
pik_append(p, buf, -1);
}
static void pik_append_xy(Pik *p, const char *z1, PNum x, PNum y){
char buf[200];
x = x - p->bbox.sw.x;
y = p->bbox.ne.y - y;
snprintf(buf, sizeof(buf)-1, "%s%d,%d", z1,
(int)(p->rScale*x), (int)(p->rScale*y));
buf[sizeof(buf)-1] = 0;
pik_append(p, buf, -1);
}
static void pik_append_dis(Pik *p, const char *z1, PNum v, const char *z2){
char buf[200];
snprintf(buf, sizeof(buf)-1, "%s%g%s", z1, p->rScale*v, z2);
buf[sizeof(buf)-1] = 0;
pik_append(p, buf, -1);
}
static void pik_append_clr(Pik *p, const char *z1, PNum v, const char *z2){
char buf[200];
int x = (int)v;
int r = (x>>16) & 0xff;
int g = (x>>8) & 0xff;
int b = x & 0xff;
snprintf(buf, sizeof(buf)-1, "%srgb(%d,%d,%d)%s", z1, r, g, b, z2);
buf[sizeof(buf)-1] = 0;
pik_append(p, buf, -1);
}
/* Append an SVG path A record:
**
** A r1 r2 0 0 0 x y
*/
static void pik_append_arc(Pik *p, PNum r1, PNum r2, PNum x, PNum y){
char buf[200];
x = x - p->bbox.sw.x;
y = p->bbox.ne.y - y;
snprintf(buf, sizeof(buf)-1, "A%d %d 0 0 0 %d %d",
(int)(p->rScale*r1), (int)(p->rScale*r2),
(int)(p->rScale*x), (int)(p->rScale*y));
buf[sizeof(buf)-1] = 0;
pik_append(p, buf, -1);
}
/* Append a style="..." text. But, leave the quote unterminated, in case
** the caller wants to add some more.
*/
static void pik_append_style(Pik *p, PElem *pElem){
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);
}
/*
** Process an "assert( e1 == e2 )" statement. Always return NULL.
*/
static PElem *pik_assert(Pik *p, PNum e1, PToken *pEq, PNum e2){
char zE1[100], zE2[100], zMsg[300];
/* Convert the numbers to strings using %g for comparison. This
** limits the precision of the comparison to account for rounding error. */
snprintf(zE1, sizeof(zE1), "%g", e1); zE1[sizeof(zE1)-1] = 0;
snprintf(zE2, sizeof(zE2), "%g", e2); zE1[sizeof(zE2)-1] = 0;
if( strcmp(zE1,zE2)!=0 ){
snprintf(zMsg, sizeof(zMsg), "%.50s != %.50s", zE1, zE2);
pik_error(p, pEq, zMsg);
}
return 0;
}
/*
** Process an "assert( place1 == place2 )" statement. Always return NULL.
*/
static PElem *pik_place_assert(Pik *p, PPoint *e1, PToken *pEq, PPoint *e2){
char zE1[100], zE2[100], zMsg[200];
/* Convert the numbers to strings using %g for comparison. This
** limits the precision of the comparison to account for rounding error. */
snprintf(zE1, sizeof(zE1), "(%g,%g)", e1->x, e1->y); zE1[sizeof(zE1)-1] = 0;
snprintf(zE2, sizeof(zE2), "(%g,%g)", e2->x, e2->y); zE1[sizeof(zE2)-1] = 0;
if( strcmp(zE1,zE2)!=0 ){
snprintf(zMsg, sizeof(zMsg), "%s != %s", zE1, zE2);
pik_error(p, pEq, zMsg);
}
return 0;
}
/* Free a complete list of elements */
static void pik_elist_free(Pik *p, PEList *pEList){
int i;
if( pEList==0 ) return;
for(i=0; i<pEList->n; i++){
pik_elem_free(p, pEList->a[i]);
}
free(pEList->a);
free(pEList);
return;
}
/* Free a single element, and its substructure */
static void pik_elem_free(Pik *p, PElem *pElem){
if( pElem==0 ) return;
free(pElem->zName);
pik_elist_free(p, pElem->pSublist);
free(pElem->aPath);
free(pElem);
}
/* Convert a numeric literal into a number. Return that number.
** There is no error handling because the tokenizer has already
** assured us that the numeric literal is valid.
**
** Allowed number forms:
**
** (1) Floating point literal
** (2) Same as (1) but followed by a unit: "cm", "mm", "in",
** "px", "pt", or "pc".
** (3) Hex integers: 0x000000
**
** This routine returns the result in inches. If a different unit
** is specified, the conversion happens automatically.
*/
PNum pik_atof(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 objects 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 objects 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 one of these forms:
**
** pDist pHdgKW rHdg pEdgept
** GO distance HEADING angle
** GO HEADING angle
** GO distance compasspoint
** GO compasspoint
*/
static void pik_move_hdg(
Pik *p, /* The Pikchr context */
PNum *pDist, /* Distance to move. NULL means standard distance */
PToken *pHeading, /* "heading" keyword if present */
PNum rHdg, /* Angle argument to "heading" keyword */
PToken *pEdgept, /* EDGEPT keyword "ne", "sw", etc... */
PToken *pErr /* Token to use for error messages */
){
PElem *pElem = p->cur;
int n;
PNum rDist;
if( !pElem->type->isLine ){
pik_error(p, pErr, "use with line-oriented objects only");
return;
}
if( pDist ){
rDist = *pDist;
}else{
rDist = pik_value(p, "linewid", 7, 0);
}
do{
n = pik_next_rpath(p, pErr);
}while( n<1 );
if( pHeading ){
if( rHdg<0.0 || rHdg>360.0 ){
pik_error(p, pHeading, "headings should be between 0 and 360");
return;
}
}else if( pEdgept->eEdge==CP_C ){
pik_error(p, pEdgept, "syntax error");
return;
}else{
rHdg = pik_hdg_angle[pEdgept->eEdge];
}
if( rHdg<=45.0 ){
pElem->outDir = DIR_UP;
}else if( rHdg<=135.0 ){
pElem->outDir = DIR_RIGHT;
}else if( rHdg<=225.0 ){
pElem->outDir = DIR_DOWN;
}else if( rHdg<=315.0 ){
pElem->outDir = DIR_LEFT;
}else{
pElem->outDir = DIR_UP;
}
rHdg *= 0.017453292519943295769; /* degrees to radians */
p->aTPath[n].x += rDist*sin(rHdg);
p->aTPath[n].y += rDist*cos(rHdg);
p->mTPath = 2;
}
/* Process a movement attribute of the form "right until even with ..."
**
** pDir is the first keyword, "right" or "left" or "up" or "down".
** The movement is in that direction until its closest approach to
** point specified by pPoint.
*/
static void pik_evenwith(Pik *p, PToken *pDir, PPoint *pPlace){
PElem *pElem = p->cur;
int n;
if( !pElem->type->isLine ){
pik_error(p, pDir, "use with line-oriented objects only");
return;
}
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;
}
/* Lower the layer of the current element so that it is behind the
** given element.
*/
static void pik_behind(Pik *p, PElem *pOther){
PElem *pElem = p->cur;
if( pElem->iLayer>=pOther->iLayer ){
pElem->iLayer = pOther->iLayer - 1;
}
}
/* Set the "at" of an element
*/
static void pik_set_at(Pik *p, PToken *pEdge, PPoint *pAt, PToken *pErrTok){
PElem *pElem;
if( p->nErr ) return;
pElem = p->cur;
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
** "<" as a single character.
*/
static int pik_text_length(const PToken *pToken){
int n = pToken->n;
const char *z = pToken->z;
int cnt, j;
for(j=1, cnt=0; j<n-1; j++){
if( (z[j] & 0xc0)==0xc0 ) continue;
cnt++;
if( z[j]=='\\' && z[j+1]!='&' ){
j++;
}else if( z[j]=='&' ){
int k;
for(k=j+1; k<j+7 && z[k]!=';'; k++){}
if( z[k]==';' ) j = k;
}
}
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->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( pEdge->eType==T_START ){
return pElem->ptEnter;
}else{
return pElem->ptExit;
}
}
/* 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 ){
/* "closed" lines work like block objects */
pik_elem_set_exit(p, pElem, pElem->inDir);
}else{
/* For an open line, the "center" is half way between
** the .start and the .end */
}
}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 },
{ "assert", 6, T_ASSERT, 0, 0 },
{ "at", 2, T_AT, 0, 0 },
{ "behind", 6, T_BEHIND, 0, 0 },
{ "below", 5, T_BELOW, 0, 0 },
{ "between", 7, T_BETWEEN, 0, 0 },
{ "big", 3, T_BIG, 0, 0 },
{ "bold", 4, T_BOLD, 0, 0 },
{ "bot", 3, T_EDGEPT, 0, CP_S },
{ "bottom", 6, T_BOTTOM, 0, CP_S },
{ "c", 1, T_EDGEPT, 0, CP_C },
{ "ccw", 3, T_CCW, 0, 0 },
{ "center", 6, T_CENTER, 0, CP_C },
{ "chop", 4, T_CHOP, 0, 0 },
{ "close", 5, T_CLOSE, 0, 0 },
{ "color", 5, T_COLOR, 0, 0 },
{ "cos", 3, T_FUNC1, FN_COS, 0 },
{ "cw", 2, T_CW, 0, 0 },
{ "dashed", 6, T_DASHED, 0, 0 },
{ "diameter", 8, T_DIAMETER, 0, 0 },
{ "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 },
{ "go", 2, T_GO, 0, 0 },
{ "heading", 7, T_HEADING, 0, 0 },
{ "height", 6, T_HEIGHT, 0, 0 },
{ "ht", 2, T_HEIGHT, 0, 0 },
{ "in", 2, T_IN, 0, 0 },
{ "int", 3, T_FUNC1, FN_INT, 0 },
{ "invis", 5, T_INVIS, 0, 0 },
{ "invisible", 9, T_INVIS, 0, 0 },
{ "italic", 6, T_ITALIC, 0, 0 },
{ "last", 4, T_LAST, 0, 0 },
{ "left", 4, T_LEFT, DIR_LEFT, CP_W },
{ "ljust", 5, T_LJUST, 0, 0 },
{ "max", 3, T_FUNC2, FN_MAX, 0 },
{ "min", 3, T_FUNC2, FN_MIN, 0 },
{ "n", 1, T_EDGEPT, 0, CP_N },
{ "ne", 2, T_EDGEPT, 0, CP_NE },
{ "north", 5, T_EDGEPT, 0, CP_N },
{ "nw", 2, T_EDGEPT, 0, CP_NW },
{ "of", 2, T_OF, 0, 0 },
{ "previous", 8, T_LAST, 0, 0, },
{ "print", 5, T_PRINT, 0, 0 },
{ "rad", 3, T_RADIUS, 0, 0 },
{ "radius", 6, T_RADIUS, 0, 0 },
{ "right", 5, T_RIGHT, DIR_RIGHT, CP_E },
{ "rjust", 5, T_RJUST, 0, 0 },
{ "s", 1, T_EDGEPT, 0, CP_S },
{ "same", 4, T_SAME, 0, 0 },
{ "se", 2, T_EDGEPT, 0, CP_SE },
{ "sin", 3, T_FUNC1, FN_SIN, 0 },
{ "small", 5, T_SMALL, 0, 0 },
{ "south", 5, T_EDGEPT, 0, CP_S },
{ "sqrt", 4, T_FUNC1, FN_SQRT, 0 },
{ "start", 5, T_START, 0, 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++){}
pToken->eType = T_WHITESPACE;
return i;
}else if( z[1]=='=' ){
pToken->eType = T_ASSIGN;
pToken->eCode = T_SLASH;
return 2;
}else{
pToken->eType = T_SLASH;
return 1;
}
}
case '+': {
if( z[1]=='=' ){
pToken->eType = T_ASSIGN;
pToken->eCode = T_PLUS;
return 2;
}
pToken->eType = T_PLUS;
return 1;
}
case '*': {
if( z[1]=='=' ){
pToken->eType = T_ASSIGN;
pToken->eCode = T_STAR;
return 2;
}
pToken->eType = T_STAR;
return 1;
}
case '%': { pToken->eType = T_PERCENT; return 1; }
case '(': { pToken->eType = T_LP; return 1; }
case ')': { pToken->eType = T_RP; return 1; }
case '[': { pToken->eType = T_LB; return 1; }
case ']': { pToken->eType = T_RB; return 1; }
case ',': { pToken->eType = T_COMMA; return 1; }
case ':': { pToken->eType = T_COLON; return 1; }
case '>': { pToken->eType = T_GT; return 1; }
case '=': {
if( z[1]=='=' ){
pToken->eType = T_EQ;
return 2;
}
pToken->eType = T_ASSIGN;
pToken->eCode = T_ASSIGN;
return 1;
}
case '-': {
if( z[1]=='>' ){
pToken->eType = T_RARROW;
return 2;
}else if( z[1]=='=' ){
pToken->eType = T_ASSIGN;
pToken->eCode = T_MINUS;
return 2;
}else{
pToken->eType = T_MINUS;
return 1;
}
}
case '<': {
if( z[1]=='-' ){
if( z[2]=='>' ){
pToken->eType = T_LRARROW;
return 3;
}else{
pToken->eType = T_LARROW;
return 2;
}
}else{
pToken->eType = T_LT;
return 1;
}
}
default: {
c = z[0];
if( c=='.' ){
unsigned char c1 = z[1];
if( islower(c1) ){
const PikWord *pFound;
for(i=2; (c = z[i])>='a' && c<='z'; i++){}
pFound = pik_find_word((const char*)z+1, i-1,
pik_keywords, count(pik_keywords));
if( pFound && (pFound->eEdge>0 ||
pFound->eType==T_EDGEPT ||
pFound->eType==T_START ||
pFound->eType==T_END )
){
/* Dot followed by something that is a 2-D place value */
pToken->eType = T_DOT_E;
}else if( pFound->eType==T_X || pFound->eType==T_Y ){
/* Dot followed by "x" or "y" */
pToken->eType = T_DOT_XY;
}else{
/* Any other "dot" */
pToken->eType = T_DOT_L;
}
return 1;
}else if( isdigit(c1) ){
i = 0;
/* no-op. Fall through to number handling */
}else if( isupper(c1) ){
for(i=2; (c = z[i])!=0 && (isalnum(c) || c=='_'); i++){}
pToken->eType = T_DOT_U;
return 1;
}else{
pToken->eType = T_ERROR;
return 1;
}
}
if( (c>='0' && c<='9') || c=='.' ){
int nDigit;
int isInt = 1;
if( c!='.' ){
nDigit = 1;
for(i=1; (c = z[i])>='0' && c<='9'; i++){ nDigit++; }
if( i==1 && (c=='x' || c=='X') ){
for(i=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;
int bNoEcho = 0; /* Do not the text of the script */
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;
if( argv[i][0]=='-' ){
char *z = argv[i];
z++;
if( z[0]=='-' ) z++;
if( strcmp(z,"no-echo")==0 ){
bNoEcho = 1;
}else
{
fprintf(stderr,"unknown option: \"%s\"\n", argv[i]);
exit(1);
}
continue;
}
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;
if( !bNoEcho ){
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("<");
}else if( c=='>' ){
printf(">");
}else if( c=='&' ){
printf("&");
}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 if( bNoEcho==0 ){
printf("<p>Output size: %d by %d</p>\n", w, h);
}
printf("<div style='border:3px solid lightgray;max-width:%dpx'>\n"
"%s</div>\n",
w, zOut);
free(zOut);
}
}
printf("</body></html>\n");
return 0;
}
#endif /* PIKCHR_SHELL */
#line 7026 "pikchr.c"