blob: 14dc83dd769ebe5784feebf5a2239e58b2de5b41 (
plain)
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
|
%{
%}
#include def.tin
#include yesno.tin
#include int.tin
#include string.tin
%start command
%token AUTOMATIC_
%token COLUMN_
%token DIRECTION_
%token GAP_
%token GRID_
%token LAYOUT_
%token MANUAL_
%token MODE_
%token ROW_
%%
#include yes-no.trl
command : tile
| tile {global ds9; if {!$ds9(init)} {YYERROR} else {yyclearin; YYACCEPT}} STRING_
;
tile: {ProcessCmdSet current display tile DisplayMode}
| yes {ProcessCmdSet current display tile DisplayMode}
| no {ProcessCmdSet current display single DisplayMode}
| MODE_ tileMode {ProcessCmdSet tile mode $2 DisplayMode}
| GRID_ tileGrid
| COLUMN_ {ProcessCmdSet tile mode column DisplayMode}
| ROW_ {ProcessCmdSet tile mode row DisplayMode}
;
tileMode : GRID_ {set _ grid}
| COLUMN_ {set _ column}
| ROW_ {set _ row}
;
tileGrid : {ProcessCmdSet tile mode grid DisplayMode}
| MODE_ tileGridMode {ProcessCmdSet tile grid,mode $2 DisplayMode}
| DIRECTION_ tileGridDir {ProcessCmdSet tile grid,dir $2 DisplayMode}
| LAYOUT_ INT_ INT_ {ProcessCmdSet tile grid,col $2; ProcessCmdSet tile grid,row $3; ProcessCmdSet tile grid,mode manual DisplayMode}
| GAP_ INT_ {ProcessCmdSet tile grid,gap $2 DisplayMode}
;
tileGridMode : AUTOMATIC_ {set _ automatic}
| MANUAL_ {set _ manual}
;
tileGridDir : 'x' {set _ x}
| 'X' {set _ x}
| 'y' {set _ y}
| 'Y' {set _ y}
;
%%
proc tile::yyerror {msg} {
variable yycnt
variable yy_current_buffer
variable index_
ParserError $msg $yycnt $yy_current_buffer $index_
}
|
