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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
|
%{
%}
#include yesno.tin
#include fonts.tin
#include coordsys.tin
#include wcssys.tin
#include skyframe.tin
#include skyformat.tin
#include numeric.tin
#include string.tin
%start command
%token ANALYSIS_
%token AXES_
%token BORDER_
%token COLOR_
%token CLOSE_
%token DASH_
%token DEF_
%token DEF1_
%token DEF2_
%token EXTERIOR_
%token FORMAT1_
%token FORMAT2_
%token GAP_
%token GAP1_
%token GAP2_
%token GAP3_
%token GRID_
%token INTERIOR_
%token LABELS_
%token LOAD_
%token NUMBERS_
%token NUMERICS_
%token ORIGIN_
%token OPEN_
%token PUBLICATION_
%token RESET_
%token SAVE_
%token SKYFRAME_
%token SKYFORMAT_
%token STYLE_
%token SYSTEM_
%token TEXT_
%token TEXT1_
%token TEXT2_
%token TICKMARKS_
%token TITLE_
%token TYPE_
%token VERTICAL_
%token VIEW_
%token WIDTH_
%token LLL_
%token LLU_
%token LUL_
%token LUU_
%token ULL_
%token ULU_
%token UUL_
%token UUU_
%%
#include yesno.trl
#include fonts.trl
#include coordsys.trl
#include wcssys.trl
#include skyframe.trl
#include skyformat.trl
#include numeric.trl
command : grid
| grid {yyclearin; YYACCEPT} STRING_
;
typegrid : ANALYSIS_ {set _ analysis}
| PUBLICATION_ {set _ publication}
;
interiortype : INTERIOR_ {set _ interior}
| EXTERIOR_ {set _ exterior}
;
grid : yesno {ProcessCmdSet grid view $1 GridUpdateCurrent}
| OPEN_ {GridDialog}
| CLOSE_ {GridDestroyDialog}
# backward compatible
| TYPE_ type {GridUpdateCurrent}
| SYSTEM_ system {ProcessCmdSet grid system $2 GridUpdateCurrent}
| SKYFRAME_ skyframe {ProcessCmdSet grid sky $2 GridUpdateCurrent}
| SKYFORMAT_ skyformat {ProcessCmdSet grid skyformat $2 GridUpdateCurrent}
| GRID_ gridgrid {GridUpdateCurrent}
| FORMAT1_ STRING_ {ProcessCmdSet grid format1 $2 GridUpdateCurrent}
| FORMAT2_ STRING_ {ProcessCmdSet grid format2 $2 GridUpdateCurrent}
| AXES_ axes {GridUpdateCurrent}
| TICKMARKS_ tickmarks {GridUpdateCurrent}
| BORDER_ border {GridUpdateCurrent}
| NUMERICS_ numerics {GridUpdateCurrent}
| TITLE_ title {GridUpdateCurrent}
| LABELS_ labels {GridUpdateCurrent}
| VIEW_ view {GridUpdateCurrent}
| RESET_ {GridResetDialog}
| LOAD_ STRING_ {FileLast gridfbox $2; GridLoad $2}
| SAVE_ STRING_ {FileLast gridfbox $2; GridSave $2}
;
type : typegrid {ProcessCmdSet grid type $1}
| AXES_ interiortype {ProcessCmdSet grid axes,type $2}
| NUMERICS_ interiortype {ProcessCmdSet grid numlab,type $2}
;
system : coordsys {set _ $1}
| wcssys {set _ $1}
;
gridgrid : yesno {ProcessCmdSet grid grid $1}
| COLOR_ STRING_ {ProcessCmdSet grid grid,color $2}
| WIDTH_ INT_ {ProcessCmdSet grid grid,width $2}
| DASH_ yesno {ProcessCmdSet grid grid,style $2}
# backward compatible
| STYLE_ INT_ {ProcessCmdSet grid grid,style $2}
| GAP1_ numeric {ProcessCmdSet grid grid,gap1 $2}
| GAP2_ numeric {ProcessCmdSet grid grid,gap2 $2}
| GAP3_ numeric {ProcessCmdSet grid grid,gap3 $2}
;
axes : yesno {ProcessCmdSet grid axes $1}
| COLOR_ STRING_ {ProcessCmdSet grid axes,color $2}
| WIDTH_ INT_ {ProcessCmdSet grid axes,width $2}
| DASH_ yesno {ProcessCmdSet grid axes,style $2}
# backward compatible
| STYLE_ INT_ {ProcessCmdSet grid axes,style $2}
| TYPE_ interiortype {ProcessCmdSet grid axes,type $2}
| ORIGIN_ origin {ProcessCmdSet grid axes,origin $2}
;
origin : LLL_ {set _ lll}
| LLU_ {set _ llu}
| LUL_ {set _ lul}
| LUU_ {set _ luu}
| ULL_ {set _ ull}
| ULU_ {set _ ulu}
| UUL_ {set _ uul}
| UUU_ {set _ uuu}
;
tickmarks : yesno {ProcessCmdSet grid tick $1}
| COLOR_ STRING_ {ProcessCmdSet grid tick,color $2}
| WIDTH_ INT_ {ProcessCmdSet grid tick,width $2}
| DASH_ yesno {ProcessCmdSet grid tick,style $2}
# backward compatible
| STYLE_ INT_ {ProcessCmdSet grid tick,style $2}
;
border : yesno {ProcessCmdSet grid border $1}
| COLOR_ STRING_ {ProcessCmdSet grid border,color $2}
| WIDTH_ INT_ {ProcessCmdSet grid border,width $2}
| DASH_ yesno {ProcessCmdSet grid border,style $2}
# backward compatible
| STYLE_ INT_ {ProcessCmdSet grid border,style $2}
;
numerics : yesno {ProcessCmdSet grid numlab $1}
| FONT_ font {ProcessCmdSet grid numlab,font $2}
| FONTSIZE_ INT_ {ProcessCmdSet grid numlab,size $2}
| FONTWEIGHT_ fontWeight {ProcessCmdSet grid numlab,weight $2}
| FONTSLANT_ fontSlant {ProcessCmdSet grid numlab,slant $2}
# backward compatibility
| FONTSTYLE_ fontStyle {ProcessCmdFontStyle grid numlab $2}
| COLOR_ STRING_ {ProcessCmdSet grid numlab,color $2}
| GAP1_ numeric {ProcessCmdSet grid numlab,gap1 $2}
| GAP2_ numeric {ProcessCmdSet grid numlab,gap2 $2}
| GAP3_ numeric {ProcessCmdSet grid numlab,gap3 $2}
| TYPE_ interiortype {ProcessCmdSet grid numlab,type $2}
| VERTICAL_ yesno {ProcessCmdSet grid numlab,vertical $2}
;
title : yesno {ProcessCmdSet grid title $1}
| TEXT_ STRING_ {ProcessCmdSet grid title,text $2}
| DEF_ yesno {ProcessCmdSet grid title,def $2}
| GAP_ numeric {ProcessCmdSet grid title,gap $2}
| FONT_ font {ProcessCmdSet grid title,font $2}
| FONTSIZE_ INT_ {ProcessCmdSet grid title,size $2}
| FONTWEIGHT_ fontWeight {ProcessCmdSet grid title,weight $2}
| FONTSLANT_ fontSlant {ProcessCmdSet grid title,slant $2}
# backward compatibility
| FONTSTYLE_ fontStyle {ProcessCmdFontStyle grid title $2}
| COLOR_ STRING_ {ProcessCmdSet grid title,color $2}
;
labels : yesno {ProcessCmdSet grid textlab $1}
| TEXT1_ STRING_ {ProcessCmdSet grid textlab,text1 $2}
| TEXT2_ STRING_ {ProcessCmdSet grid textlab,text2 $2}
| DEF1_ yesno {ProcessCmdSet grid textlab,def1 $2}
| DEF2_ yesno {ProcessCmdSet grid textlab,def2 $2}
| GAP1_ numeric {ProcessCmdSet grid textlab,gap1 $2}
| GAP2_ numeric {ProcessCmdSet grid textlab,gap2 $2}
| FONT_ font {ProcessCmdSet grid textlab,font $2}
| FONTSIZE_ INT_ {ProcessCmdSet grid textlab,size $2}
| FONTWEIGHT_ fontWeight {ProcessCmdSet grid textlab,weight $2}
| FONTSLANT_ fontSlant {ProcessCmdSet grid textlab,slant $2}
# backward compatibility
| FONTSTYLE_ fontStyle {ProcessCmdFontStyle grid textlab $2}
| COLOR_ STRING_ {ProcessCmdSet grid textlab,color $2}
;
view : GRID_ yesno {ProcessCmdSet grid grid $1}
| AXES_ viewaxes
| TITLE_ yesno {ProcessCmdSet grid title $2}
| BORDER_ yesno {ProcessCmdSet grid border $2}
| VERTICAL_ yesno {ProcessCmdSet grid numlab,vertical $2}
;
viewaxes : yesno {ProcessCmdSet grid axes $1}
| NUMBERS_ yesno {ProcessCmdSet grid numlab $2}
| TICKMARKS_ yesno {ProcessCmdSet grid tick $2}
| LABELS_ yesno {ProcessCmdSet grid textlab $2}
;
%%
proc grid::yyerror {msg} {
variable yycnt
variable yy_current_buffer
variable index_
ParserError $msg $yycnt $yy_current_buffer $index_
}
|
