diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 20:42:30 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-14 20:42:30 (GMT) |
commit | dbe5cbeeb8acd95acc3db6ce30132a248fca4e63 (patch) | |
tree | 792b6a0360cb7e92691b2de5570c08f881858b0d /ds9/parsers/webparser.tac | |
parent | 5f2e59a9516c29a4c92eadbdbdf73398f73f5214 (diff) | |
download | blt-dbe5cbeeb8acd95acc3db6ce30132a248fca4e63.zip blt-dbe5cbeeb8acd95acc3db6ce30132a248fca4e63.tar.gz blt-dbe5cbeeb8acd95acc3db6ce30132a248fca4e63.tar.bz2 |
add ds9 web parser
Diffstat (limited to 'ds9/parsers/webparser.tac')
-rw-r--r-- | ds9/parsers/webparser.tac | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/ds9/parsers/webparser.tac b/ds9/parsers/webparser.tac new file mode 100644 index 0000000..d3298db --- /dev/null +++ b/ds9/parsers/webparser.tac @@ -0,0 +1,55 @@ +%{ +%} + +#include numeric.tin +#include string.tin + +%start command + +%token BACK_ +%token CLEAR_ +%token CLICK_ +%token CLOSE_ +%token FORWARD_ +%token NEW_ +%token RELOAD_ +%token STOP_ + +%% + +#include numeric.trl + +command : web + | web {yyclearin; YYACCEPT} STRING_ + ; + +web : {WebCmdNew {}} + | STRING_ {WebCmdNew $1} + | NEW_ STRING_ {WebCmdNew $2} + | NEW_ STRING_ STRING_ {WebCmdNew $3 $2} + + | {WebCmdCheck} webCmd + | STRING_ {WebCmdRef $1} webCmd + ; + +webCmd : CLICK_ click + | CLEAR_ {global cvarname; HVClearCmd $cvarname} + | CLOSE_ {global cvarname; HVDestroy $cvarname} + ; + +click : BACK_ {global cvarname; HVBackCmd $cvarname} + | FORWARD_ {global cvarname; HVForwardCmd $cvarname} + | STOP_ {global cvarname; HVStopCmd $cvarname} + | RELOAD_ {global cvarname; HVReloadCmd $cvarname} + | INT_ {WebCmdClick $1} + ; + +%% + +proc web::yyerror {msg} { + variable yycnt + variable yy_current_buffer + variable index_ + + ParserError $msg $yycnt $yy_current_buffer $index_ +} |