blob: 3717839051d5d9d0b6f43df7b56cd73cb70a5d1d (
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
|
%{
%}
#include coordsys.tin
#include wcssys.tin
#include skyframe.tin
#include def.tin
%start contoursend
%token COLOR_
%token DASH_
%token EXP_
%token LEVELS_
%token LIMITS_
%token LOG_
%token METHOD_
%token MODE_
%token NLEVELS_
%token SCALE_
%token SCOPE_
%token SMOOTH_
%token WIDTH_
%%
#include coordsys.trl
#include wcssys.trl
#include skyframe.trl
contoursend : {ProcessSendCmdYesNo contour view}
| COLOR_ {ProcessSendCmdGet contour color}
| WIDTH_ {ProcessSendCmdGet contour width}
| DASH_ {ProcessSendCmdYesNo contour dash}
| SMOOTH_ {ProcessSendCmdGet contour smooth}
| METHOD_ {ProcessSendCmdGet contour method}
| NLEVELS_ {ProcessSendCmdGet contour numlevel}
| SCALE_ {ProcessSendCmdGet contour scale}
| LOG_ EXP_ {ProcessSendCmdGet contour log}
# backward compatibility
| LOG_ {ProcessSendCmdGet contour log}
| MODE_ {ProcessSendCmdGet contour mode}
| SCOPE_ {ProcessSendCmdGet contour scope}
| LIMITS_ {ContourSendCmdLimits}
| LEVELS_ {ContourSendCmdLevels}
| coordsys {ProcessSendCmdSend {.ctr} "get contour $1 fk5"}
| wcssys {ProcessSendCmdSend {.ctr} "get contour $1 fk5"}
| skyframe {ProcessSendCmdSend {.ctr} "get contour wcs $1"}
| wcssys skyframe {ProcessSendCmdSend {.ctr} "get contour $1 $2"}
;
%%
proc contoursend::yyerror {msg} {
variable yycnt
variable yy_current_buffer
variable index_
ParserError $msg $yycnt $yy_current_buffer $index_
}
|
