1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
%{
%}
#include def.tin
#include yesno.tin
#include coordsys.tin
#include wcssys.tin
#include string.tin
%start command
%token BLUE_
%token BUTTONS_
%token COLORBAR_
%token COLORBARNUMERICS_
%token FILENAME_
%token FRAME_
%token GRAPH_
%token GREEN_
%token HORIZONTAL_
%token HORZGRAPH_
%token INFO_
%token KEYVALUE_
%token KEYWORD_
%token LAYOUT_
%token LOWHIGH_
%token MAGNIFIER_
%token MINMAX_
%token OBJECT_
%token PANNER_
%token RED_
%token UNITS_
%token VERTICAL_
%token VERTGRAPH_
%%
#include yesno.trl
#include coordsys.trl
#include wcssys.trl
command : view
| view {global ds9; if {!$ds9(init)} {YYERROR} else {yyclearin; YYACCEPT}} STRING_
;
view : layout
| LAYOUT_ layout
| KEYVALUE_ STRING_ {ProcessCmdSet view info,keyvalue $2 UpdateView}
| INFO_ yesno {ProcessCmdSet view info $2 UpdateView}
| PANNER_ yesno {ProcessCmdSet view panner $2 UpdateView}
| MAGNIFIER_ yesno {ProcessCmdSet view magnifier $2 UpdateView}
| BUTTONS_ yesno {ProcessCmdSet view buttons $2 UpdateView}
| COLORBAR_ yesno {ProcessCmdSet view colorbar $2 UpdateView}
# backward compatible
| COLORBARNUMERICS_ yesno {ColorbarCmdSet numerics $2 UpdateView}
| GRAPH_ orient yesno {ProcessCmdSet view graph,$2 $3 UpdateView}
# backward compatible
| HORZGRAPH_ yesno {ProcessCmdSet view graph,horz $2 UpdateView}
| VERTGRAPH_ yesno {ProcessCmdSet view graph,vert $2 UpdateView}
| FILENAME_ yesno {ProcessCmdSet view info,filename $2 UpdateView}
| OBJECT_ yesno {ProcessCmdSet view info,object $2 UpdateView}
| KEYWORD_ yesno {ProcessCmdSet view info,keyword $2 UpdateView}
| MINMAX_ yesno {ProcessCmdSet view info,minmax $2 UpdateView}
| LOWHIGH_ yesno {ProcessCmdSet view info,lowhigh $2 UpdateView}
| UNITS_ yesno {ProcessCmdSet view info,bunit $2 UpdateView}
| coordsys yesno {ProcessCmdSet view info,$1 $2 UpdateView}
| wcssys yesno {ProcessCmdSet view info,$1 $2 UpdateView}
| FRAME_ yesno {ProcessCmdSet view info,frame $2 UpdateView}
| RED_ yesno {ProcessCmdSet rgb red $2 RGBView}
| GREEN_ yesno {ProcessCmdSet rgb green $2 RGBView}
| BLUE_ yesno {ProcessCmdSet rgb blue $2 RGBView}
;
layout : HORIZONTAL_ {ProcessCmdSet view layout horizontal ViewHorzCmd}
| VERTICAL_ {ProcessCmdSet view layout vertical ViewVertCmd}
;
orient : HORIZONTAL_ {set _ horz}
| VERTICAL_ {set _ vert}
;
%%
proc view::yyerror {msg} {
variable yycnt
variable yy_current_buffer
variable index_
ParserError $msg $yycnt $yy_current_buffer $index_
}
|
