%{
source $ds9(root)/library/parser.tab.tcl
%}

%option noyywrap
%option caseless
%option nodefault
%option nointeractive
%option stack
%option debug

%s CMD

D   [0-9]
E   [Ee][+-]?{D}+

%%

-?	    {return $::HELPCMD_}
-2mass	    {return $::2MASSCMD_}
-3d	    {return $::3DCMD_}
-align	    {return $::ALIGNCMD_}
-asinh	    {return $::ASINHCMD_}
-bin	    {return $::BINCMD_}
-bg	    {return $::BGCMD_}
-background {return $::BGCMD_}
-blink	    {return $::BLINKCMD_}
-block	    {return $::BLOCKCMD_}
-blue	    {return $::BLUECMD_}
-cat	    {return $::CATALOGCMD_}
-catalog    {return $::CATALOGCMD_}
-cd	    {return $::CDCMD_}
-cmap	    {return $::CMAPCMD_}
-console    {return $::CONSOLECMD_}
-crop	    {return $::CROPCMD_}
-crosshair  {return $::CROSSHAIRCMD_}
-cube	    {return $::CUBECMD_}
-cursor	    {return $::CURSORCMD_}
-exit	    {return $::QUITCMD_}
-fits	    {return $::FITSCMD_}
-frame	    {return $::FRAMECMD_}
-green	    {return $::GREENCMD_}
-height	    {return $::HEIGHTCMD_}
-help	    {return $::HELPCMD_}
-histequ    {return $::HISTEQUCMD_}
-iconify    {return $::ICONIFYCMD_}
-invert	    {return $::INVERTCMD_}
-irafalign  {return $::IRAFALIGNCMD_}
-linear	    {return $::LINEARCMD_}
-log	    {return $::LOGCMD_}
-lower	    {return $::LOWERCMD_}
-minmax	    {return $::MINMAXCMD_}
-mode	    {return $::MODECMD_}
-nan	    {return $::NANCMD_}
-orient	    {return $::ORIENTCMD_}
-pan	    {return $::PANCMD_}
-pixeltable {return $::PIXELTABLECMD_}
-prefs	    {return $::PREFSCMD_}
-private    {return $::PRIVATECMD_}
-pow	    {return $::POWCMD_}
-quit	    {return $::QUITCMD_}
-raise	    {return $::RAISECMD_}
-red	    {return $::REDCMD_}
-rgb	    {return $::RGBCMD_}
-rotate	    {return $::ROTATECMD_}
-scale	    {return $::SCALECMD_}
-single	    {return $::SINGLECMD_}
-sinh	    {return $::SINHCMD_}
-sleep	    {return $::SLEEPCMD_}
-source	    {return $::SOURCECMD_}
-squared    {return $::SQUAREDCMD_}
-sqrt	    {return $::SQRTCMD_}
-theme	    {return $::THREMECMD_}
-threads    {return $::THREADSCMD_}
-tile	    {return $::TILECMD_}
-wcs	    {return $::WCSCMD_}
-width	    {return $::WIDTHCMD_}
-zmax	    {return $::ZMAXCMD_}
-zoom	    {return $::ZOOMCMD_}
-zscale	    {return $::ZSCALECMD_}

# integers which are also tokens
123	    {return $::123_}
132	    {return $::132_}
213	    {return $::213_}
231	    {return $::231_}
312	    {return $::312_}
321	    {return $::321_}

1and2	    {return $::1AND2_}
1not2	    {return $::1NOT2_}
2not1	    {return $::2NOT1_}
3d    	    {return $::3D_}
about	    {return $::ABOUT_}
add	    {return $::ADD_}
aip    	    {return $::AIP_}
align  	    {return $::ALIGN_}
all    	    {return $::ALL_}
allcols	    {return $::ALLCOLS_}
allrows	    {return $::ALLROWS_}
amplifier	    {return $::AMPLIFIER_}
angle	    {return $::ANGLE_}
append	    {return $::APPEND_}
arrow	    {return $::ARROW_}
arcmin	    {return $::ARCMIN_}
arcsec	    {return $::ARCSEC_}
asinh	    {return $::ASINH_}	
auto	    {return $::AUTO_}
automatic	    {return $::AUTOMATIC_}
average	    {return $::AVERAGE_}
axes	    {return $::AXES_}
axis	    {return $::AXIS_}
azimuth	    {return $::AZ_}
az		    {return $::AZ_}
b1950	    {return $::B1950_}
back	    {return $::BACK_}
background	    {return $::BG_}
bg		    {return $::BG_}
bgcolor	    {return $::BGCOLOR_}
bin	    {return $::BIN_}
block	    {return $::BLOCK_}
blue	    {return $::BLUE_}
bold	    {return $::BOLD_}
border	    {return $::BORDER_}
box	    {return $::BOX_}
boxcircle	    {return $::BOXCIRCLE_}
broadcast	    {return $::BROADCAST_}
buffersize	    {return $::BUFFERSIZE_}
cancel	    {return $::CANCEL_}
catalog	    {return $::CATALOG_}
cds	    {return $::CDS_}
center	    {return $::CENTER_}
channel	    {return $::CHANNEL_}
circle	    {return $::CIRCLE_}
clear	    {return $::CLEAR_}
close	    {return $::CLOSE_}
color	    {return $::COLOR_}
colorbar	    {return $::COLORBAR_}
colormap	    {return $::COLORMAP_}
cols	    {return $::COLS_}
column	    {return $::COLUMN_}
colsz	    {return $::COLSZ_}
compass	    {return $::COMPASS_}
condition	    {return $::CONDITION_}
contrast	    {return $::CONTRAST_}
coord	    {return $::COORD_}
coordinate	    {return $::COORDINATE_}
courier	    {return $::COURIER_}
crop	    {return $::CROP_}
cross	    {return $::CROSS_}
crosshair	    {return $::CROSSHAIR_}
current	    {return $::CURRENT_}
csv	    {return $::CSV_}
datamin	    {return $::DATAMIN_}
datasec	    {return $::DATASEC_}
dec	    {return $::DEC_}
decr	    {return $::DECR_}
delete	    {return $::DELETE_}
depth	    {return $::DEPTH_}
detector	    {return $::DETECTOR_}
degrees	    {return $::DEGREES_}
diamond	    {return $::DIAMOND_}
direction	    {return $::DIRECTION_}
ecliptic	    {return $::ECLIPTIC_}
edit	    {return $::EDIT_}
elevation	    {return $::EL_}
el		    {return $::EL_}
ellipse	    {return $::ELLIPSE_}
error	    {return $::ERROR_}
examine	    {return $::EXAMINE_}
exp	    {return $::EXP_}
export	    {return $::EXPORT_}
fk4	    {return $::FK4_}
fk5	    {return $::FK5_}
factor	    {return $::FACTOR_}
false	    {return $::FALSE_}
file	    {return $::FILE_}
filter	    {return $::FILTER_}
first	    {return $::FIRST_}
fit	    {return $::FIT_}
font	    {return $::FONT_}
fontsize	    {return $::FONTSIZE_}
fontslant	    {return $::FONTSLANT_}
fontweight	    {return $::FONTWEIGHT_}
format	    {return $::FORMAT_}
forward	    {return $::FORWARD_}
frame	    {return $::FRAME_}
frameno	    {return $::FRAMENO_}
function	    {return $::FUNCTION_}
gap	    {return $::GAP_}
galactic	    {return $::GALACTIC_}
global	    {return $::GLOBAL_}
green	    {return $::GREEN_}
grid	    {return $::GRID_}
header	    {return $::HEADER_}
helvetica	    {return $::HELVETICA_}
hide	    {return $::HIDE_}
highlite	    {return $::HIGHLITE_}
histequ	    {return $::HISTEQU_}
icrs	    {return $::ICRS_}
image	    {return $::IMAGE_}
import	    {return $::IMPORT_}
in		    {return $::IN_}
incr	    {return $::INCR_}
interval	    {return $::INTERVAL_}
invert	    {return $::INVERT_}
iraf	    {return $::IRAF_}
irafalign	    {return $::IRAFALIGN_}
irafmin	    {return $::IRAFMIN_}
italic	    {return $::ITALIC_}
j2000	    {return $::J2000_}
last	    {return $::LAST_}
layout	    {return $::LAYOUT_}
limits	    {return $::LIMITS_}
linear	    {return $::LINEAR_}
line	    {return $::LINE_}
load	    {return $::LOAD_}
local	    {return $::LOCAL_}
location	    {return $::LOCATION_}
lock	    {return $::LOCK_}
log	    {return $::LOG_}
manual	    {return $::MANUAL_}
match	    {return $::MATCH_}
maxrows	    {return $::MAXROWS_}
mecube	    {return $::MECUBE_}
method	    {return $::METHOD_}
minmax	    {return $::MINMAX_}
mip	    {return $::MIP_}
mode	    {return $::MODE_}
mosaic	    {return $::MOSAIC_}
mosaicimage    {return $::MOSAICIMAGE_}
move	    {return $::MOVE_}
multiframe	    {return $::MULTIFRAME_}
name	    {return $::NAME_}
nancolor	    {return $::NANCOLOR_}
next	    {return $::NEXT_}
new	    {return $::NEW_}
no		    {return $::NO_}
none	    {return $::NONE_}
normal	    {return $::NORMAL_}
off	    {return $::OFF_}
on		    {return $::ON_}
open	    {return $::OPEN_}
order	    {return $::ORDER_}
out	    {return $::OUT_}
pan	    {return $::PAN_}
panto	    {return $::PANTO_}
physical	    {return $::PHYSICAL_}
play	    {return $::PLAY_}
plot	    {return $::PLOT_}
point	    {return $::POINT_}
pointer	    {return $::POINTER_}
pow	    {return $::POW_}
prev	    {return $::PREV_}
print	    {return $::PRINT_}
psky	    {return $::PSKY_}
psystem	    {return $::PSYSTEM_}
ra		    {return $::RA_}
red	    {return $::RED_}
region	    {return $::REGION_}
regions	    {return $::REGIONS_}
refresh	    {return $::REFRESH_}
replace	    {return $::REPLACE_}
remove	    {return $::REMOVE_}
reset	    {return $::RESET_}
retrieve	    {return $::RETRIEVE_}
return	    {return $::RETURN_}
rgb	    {return $::RGB_}
rgbcube	    {return $::RGBCUBE_}
rgbimage	    {return $::RGBIMAGE_}
romain	    {return $::ROMAN_}
rotate	    {return $::ROTATE_}
row	    {return $::ROW_}
samp	    {return $::SAMP_}
sample	    {return $::SAMPLE_}
save	    {return $::SAVE_}
sb		    {return $::SB_}
scale	    {return $::SCALE_}
scalelimits    {return $::SCALELIMITS_}
scan	    {return $::SCAN_}
scope	    {return $::SCOPE_}
send	    {return $::SEND_}
server	    {return $::SERVER_}
sexagesimal    {return $::SEXAGESIMAL_}
shape	    {return $::SHAPE_}
show	    {return $::SHOW_}
sinh	    {return $::SINH_}
size	    {return $::SIZE_}
size2	    {return $::SIZE2_}
sky	    {return $::SKY_}
skyformat	    {return $::SKYFORMAT_}
slice	    {return $::SLICE_}
smooth	    {return $::SMOOTH_}
sort	    {return $::SORT_}
squared	    {return $::SQUARED_}
sqrt	    {return $::SQRT_}
starbase	    {return $::STARBASE_}
stop	    {return $::STOP_}
sum	    {return $::SUM_}
survey	    {return $::SURVEY_}
symbol	    {return $::SYMBOL_}
system	    {return $::SYSTEM_}
tag	    {return $::TAG_}
text	    {return $::TEXT_}
times	    {return $::TIMES_}
threads	    {return $::THREADS_}
to		    {return $::TO_}
true	    {return $::TRUE_}
tsv	    {return $::TSV_}
unique	    {return $::UNIQUE_}
units	    {return $::UNITS_}
update	    {return $::UPDATE_}
user	    {return $::USER_}
value	    {return $::VALUE_}
view	    {return $::VIEW_}
vot	    {return $::VOT_}
vp    	    {return $::VP_}
wcs	    {return $::WCS_}
wcsa	    {return $::WCSA_}
wcsb	    {return $::WCSB_}
wcsc	    {return $::WCSC_}
wcsd	    {return $::WCSD_}
wcse	    {return $::WCSE_}
wcsf	    {return $::WCSF_}
wcsg	    {return $::WCSG_}
wcsh	    {return $::WCSH_}
wcsi	    {return $::WCSI_}
wcsj	    {return $::WCSJ_}
wcsk	    {return $::WCSK_}
wcsl	    {return $::WCSL_}
wcsm	    {return $::WCSM_}
wcsn	    {return $::WCSN_}
wcso	    {return $::WCSO_}
wcsp	    {return $::WCSP_}
wcsq	    {return $::WCSQ_}
wcsr	    {return $::WCSR_}
wcss	    {return $::WCSS_}
wcst	    {return $::WCST_}
wcsu	    {return $::WCSU_}
wcsv	    {return $::WCSV_}
wcsw	    {return $::WCSW_}
wcsx	    {return $::WCSX_}
wcsy	    {return $::WCSY_}
wcsz	    {return $::WCSZ_}
wfpc2	    {return $::WFP2_}
xml	    {return $::XML_}
xy		    {return $::XY_}
yes	    {return $::YES_}
zmax	    {return $::ZMAX_}
zoom	    {return $::ZOOM_}
zscale	    {return $::ZSCALE_}

# INT
[+-]?{D}+ {set ::yylval $yytext; return $::INT_}

# REAL
[+-]?{D}+"."?({E})? |
[+-]?{D}*"."{D}+({E})? {set ::yylval $yytext; return $::REAL_}

# SEXAGESIMAL
[+-]?{D}+:{D}+:{D}+"."? |
[+-]?{D}+:{D}+:{D}*"."{D}+ {set ::yylval $yytext; return $::SEXSTR_}

# HMS
[+-]?{D}+h{D}+m{D}+"."?s |
[+-]?{D}+h{D}+m{D}*"."{D}+s {set ::yylval $yytext; return $::HMSSTR_}

# DMS
[+-]?{D}+d{D}+m{D}+"."?s |
[+-]?{D}+d{D}+m{D}*"."{D}+s {set ::yylval $yytext; return $::SMSSTR_}

# Quoted STRING
\"[^\"]*\" {set ::yylval [string range $yytext 1 end-1]; return $::STRING_}

# Quoted STRING
\'[^\']*\' {set ::yylval [string range $yytext 1 end-1]; return $::STRING_}

# Quoted STRING
\{[^\}]*\} {set ::yylval [string range $yytext 1 end-1]; return $::STRING_}

# STRING
\S+\S+ {set ::yylval $yytext; return $::STRING_}

\s        # ignore whitespace

.	  {set ::yylval $yytext; return $::yylval}

%%

set ::yy_flex_debug 1