%{
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
#include "grap.h"
#define RAND_MAX 32767 /* if your rand() returns bigger, change this too */
extern int yylex(void);
extern int yyparse(void);
%}
%token <i> FRAME TICKS GRID LABEL COORD
%token <i> LINE ARROW CIRCLE DRAW NEW PLOT NEXT
%token <p> PIC
%token <i> COPY THRU UNTIL
%token <i> FOR FROM TO BY AT WITH
%token <i> IF
%token <p> GRAPH THEN ELSE DOSTR
%token <i> DOT DASH INVIS SOLID
%token <i> TEXT JUST SIZE
%token <i> LOG EXP SIN COS ATAN2 SQRT RAND MAX MIN INT PRINT SPRINTF
%token <i> X Y SIDE IN OUT OFF UP DOWN ACROSS
%token <i> HEIGHT WIDTH RADIUS
%token <f> NUMBER
%token <op> NAME VARNAME DEFNAME
%token <p> STRING
%token <i> ST '(' ')' ','
%right <f> '='
%left <f> OR
%left <f> AND
%nonassoc <f> GT LT LE GE EQ NE
%left <f> '+' '-'
%left <f> '*' '/' '%'
%right <f> UMINUS NOT
%right <f> '^'
%type <f> expr optexpr if_expr number assign
%type <i> optop
%type <p> optstring if
%type <op> optname iterator name
%type <pt> point
%type <i> side optside numlist comma linetype drawtype
%type <ap> linedesc optdesc stringlist string stringattr sattrlist exprlist
%type <i> frameitem framelist coordlog
%type <f> string_expr
%%
top:
graphseq { if (codegen && !synerr) graph((char *) 0); }
| /* empty */ { codegen = 0; }
| error { codegen = 0; ERROR "syntax error" WARNING; }
;
graphseq:
statlist
| graph statlist
| graphseq graph statlist
;
graph:
GRAPH { graph($1); endstat(); }
;
statlist:
ST
| stat ST { endstat(); }
| statlist stat ST { endstat(); }
;
stat:
FRAME framelist { codegen = 1; }
| ticks { codegen = 1; }
| grid { codegen = 1; }
| label { codegen = 1; }
| coord
| plot { codegen = 1; }
| line { codegen = 1; }
| circle { codegen = 1; }
| draw
| next { codegen = 1; }
| PIC { codegen = 1; pic($1); }
| for
| if
| copy
| numlist { codegen = 1; numlist(); }
| assign
| PRINT expr { fprintf(stderr, "\t%g\n", $2); }
| PRINT string { fprintf(stderr, "\t%s\n", $2->sval); freeattr($2); }
| /* empty */
;
numlist:
number { savenum(0, $1); $$ = 1; }
| numlist number { savenum($1, $2); $$ = $1+1; }
| numlist comma number { savenum($1, $3); $$ = $1+1; }
;
number:
NUMBER
| '-' NUMBER %prec UMINUS { $$ = -$2; }
| '+' NUMBER %prec UMINUS { $$ = $2; }
;
label:
LABEL optside stringlist lablist { label($2, $3); }
;
lablist:
labattr
| lablist labattr
| /* empty */
;
labattr:
UP expr { labelmove($1, $2); }
| DOWN expr { labelmove($1, $2); }
| SIDE expr { labelmove($1, $2); /* LEFT or RIGHT only */ }
| WIDTH expr { labelwid($2); }
;
framelist:
framelist frameitem
| /* empty */ { $$ = 0; }
;
frameitem:
HEIGHT expr { frameht($2); }
| WIDTH expr { framewid($2); }
| side linedesc { frameside($1, $2); }
| linedesc { frameside(0, $1); }
;
side:
SIDE
;
optside:
side
| /* empty */ { $$ = 0; }
;
linedesc:
linetype optexpr { $$ = makeattr($1, $2, (char *) 0, 0, 0); }
;
linetype:
DOT | DASH | SOLID | INVIS
;
optdesc:
linedesc
| /* empty */ { $$ = makeattr(0, 0.0, (char *) 0, 0, 0); }
;
ticks:
TICKS tickdesc { ticks(); }
;
tickdesc:
tickattr
| tickdesc tickattr
;
tickattr:
side { tickside($1); }
| IN expr { tickdir(IN, $2, 1); }
| OUT expr { tickdir(OUT, $2, 1); }
| IN { tickdir(IN, 0.0, 0); }
| OUT { tickdir(OUT, 0.0, 0); }
| AT optname ticklist { setlist(); ticklist($2, AT); }
| iterator { setlist(); ticklist($1, AT); }
| side OFF { tickoff($1); }
| OFF { tickoff(LEFT|RIGHT|TOP|BOT); }
| labattr
;
ticklist:
tickpoint
| ticklist comma tickpoint
;
tickpoint:
expr { savetick($1, (char *) 0); }
| expr string { savetick($1, $2->sval); }
;
iterator:
FROM optname expr TO optname expr BY optop expr optstring
{ iterator($3, $6, $8, $9, $10); $$ = $2; }
| FROM optname expr TO optname expr optstring
{ iterator($3, $6, '+', 1.0, $7); $$ = $2; }
;
optop:
'+' { $$ = '+'; }
| '-' { $$ = '-'; }
| '*' { $$ = '*'; }
| '/' { $$ = '/'; }
| /* empty */ { $$ = ' '; }
;
optstring:
string { $$ = $1->sval; }
| /* empty */ { $$ = (char *) 0; }
;
grid:
GRID griddesc { ticks(); }
;
griddesc:
gridattr
| griddesc gridattr
;
gridattr:
side { tickside($1); }
| X { tickside(BOT); }
| Y { tickside(LEFT); }
| linedesc { griddesc($1); }
| AT optname ticklist { setlist(); gridlist($2); }
| iterator { setlist(); gridlist($1); }
| TICKS OFF { gridtickoff(); }
| OFF { gridtickoff(); }
| labattr
;
line:
LINE FROM point TO point optdesc { line($1, $3, $5, $6); }
| LINE optdesc FROM point TO point { line($1, $4, $6, $2); }
;
circle:
CIRCLE RADIUS expr AT point { circle($3, $5); }
| CIRCLE AT point RADIUS expr { circle($5, $3); }
| CIRCLE AT point { circle(0.0, $3); }
;
stringlist:
string
| stringlist string { $$ = addattr($1, $2); }
;
string:
STRING sattrlist { $$ = makesattr($1); }
| SPRINTF '(' STRING ')' sattrlist
{ $$ = makesattr(sprntf($3, (Attr*) 0)); }
| SPRINTF '(' STRING ',' exprlist ')' sattrlist
{ $$ = makesattr(sprntf($3, $5)); }
;
exprlist:
expr { $$ = makefattr(NUMBER, $1); }
| exprlist ',' expr { $$ = addattr($1, makefattr(NUMBER, $3)); }
;
sattrlist:
stringattr
| sattrlist stringattr
| /* empty */ { $$ = (Attr *) 0; }
;
stringattr:
JUST { setjust($1); }
| SIZE optop expr { setsize($2, $3); }
;
coord:
COORD optname coordlist { coord($2); }
| COORD optname { resetcoord($2); }
;
coordlist:
coorditem
| coordlist coorditem
;
coorditem:
coordlog { coordlog($1); }
| X point { coord_x($2); }
| Y point { coord_y($2); }
| X optname expr TO expr { coord_x(makepoint($2, $3, $5)); }
| Y optname expr TO expr { coord_y(makepoint($2, $3, $5)); }
| X FROM optname expr TO expr { coord_x(makepoint($3, $4, $6)); }
| Y FROM optname expr TO expr { coord_y(makepoint($3, $4, $6)); }
;
coordlog:
LOG X { $$ = XFLAG; }
| LOG Y { $$ = YFLAG; }
| LOG X LOG Y { $$ = XFLAG|YFLAG; }
| LOG Y LOG X { $$ = XFLAG|YFLAG; }
| LOG LOG { $$ = XFLAG|YFLAG; }
;
plot:
stringlist AT point { plot($1, $3); }
| PLOT stringlist AT point { plot($2, $4); }
| PLOT expr optstring AT point { plotnum($2, $3, $5); }
;
draw:
drawtype optname linedesc { drawdesc($1, $2, $3, (char *) 0); }
| drawtype optname optdesc string { drawdesc($1, $2, $3, $4->sval); }
| drawtype optname string optdesc { drawdesc($1, $2, $4, $3->sval); }
;
drawtype:
DRAW
| NEW
;
next:
NEXT optname AT point optdesc { next($2, $4, $5); }
copy:
COPY copylist { copy(); }
;
copylist:
copyattr
| copylist copyattr
;
copyattr:
string { copyfile($1->sval); }
| THRU DEFNAME { copydef($2); }
| UNTIL string { copyuntil($2->sval); }
;
for:
FOR name FROM expr TO expr BY optop expr DOSTR
{ forloop($2, $4, $6, $8, $9, $10); }
| FOR name FROM expr TO expr DOSTR
{ forloop($2, $4, $6, '+', 1.0, $7); }
| FOR name '=' expr TO expr BY optop expr DOSTR
{ forloop($2, $4, $6, $8, $9, $10); }
| FOR name '=' expr TO expr DOSTR
{ forloop($2, $4, $6, '+', 1.0, $7); }
;
if:
IF if_expr THEN ELSE { $$ = ifstat($2, $3, $4); }
| IF if_expr THEN { $$ = ifstat($2, $3, (char *) 0); }
;
if_expr:
expr
| string_expr
| if_expr AND string_expr { $$ = $1 && $3; }
| if_expr OR string_expr { $$ = $1 || $3; }
;
string_expr:
STRING EQ STRING { $$ = strcmp($1,$3) == 0; free($1); free($3); }
| STRING NE STRING { $$ = strcmp($1,$3) != 0; free($1); free($3); }
;
point:
optname expr comma expr { $$ = makepoint($1, $2, $4); }
| optname '(' expr comma expr ')' { $$ = makepoint($1, $3, $5); }
;
comma:
',' { $$ = ','; }
;
optname:
NAME { $$ = $1; }
| /* empty */ { $$ = lookup(curr_coord, 1); }
;
expr:
NUMBER
| assign
| '(' string_expr ')' { $$ = $2; }
| VARNAME { $$ = getvar($1); }
| expr '+' expr { $$ = $1 + $3; }
| expr '-' expr { $$ = $1 - $3; }
| expr '*' expr { $$ = $1 * $3; }
| expr '/' expr { if ($3 == 0.0) {
ERROR "division by 0" WARNING; $3 = 1; }
$$ = $1 / $3; }
| expr '%' expr { if ((long)$3 == 0) {
ERROR "mod division by 0" WARNING; $3 = 1; }
$$ = (long)$1 % (long)$3; }
| '-' expr %prec UMINUS { $$ = -$2; }
| '+' expr %prec UMINUS { $$ = $2; }
| '(' expr ')' { $$ = $2; }
| LOG '(' expr ')' { $$ = Log10($3); }
| EXP '(' expr ')' { $$ = Exp($3 * log(10.0)); }
| expr '^' expr { $$ = pow($1, $3); }
| SIN '(' expr ')' { $$ = sin($3); }
| COS '(' expr ')' { $$ = cos($3); }
| ATAN2 '(' expr ',' expr ')' { $$ = atan2($3, $5); }
| SQRT '(' expr ')' { $$ = Sqrt($3); }
| RAND '(' ')' { $$ = (double)rand() / (double)RAND_MAX; }
| MAX '(' expr ',' expr ')' { $$ = $3 >= $5 ? $3 : $5; }
| MIN '(' expr ',' expr ')' { $$ = $3 <= $5 ? $3 : $5; }
| INT '(' expr ')' { $$ = (long) $3; }
| expr GT expr { $$ = $1 > $3; }
| expr LT expr { $$ = $1 < $3; }
| expr LE expr { $$ = $1 <= $3; }
| expr GE expr { $$ = $1 >= $3; }
| expr EQ expr { $$ = $1 == $3; }
| expr NE expr { $$ = $1 != $3; }
| expr AND expr { $$ = $1 && $3; }
| expr OR expr { $$ = $1 || $3; }
| NOT expr { $$ = !($2); }
;
assign:
name '=' expr { $$ = setvar($1, $3); }
;
name:
NAME
| VARNAME
;
optexpr:
expr
| /* empty */ { $$ = 0.0; }
;
|
