setup tcl parser

1 files changed, 3 insertions, 340 deletions

diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl
index 54f0cb8..625aaca 100644
--- a/ds9/library/lex.fcl
+++ b/ds9/library/lex.fcl
@@ -16,339 +16,14 @@ 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_}
+-foo	    {return $::FOOCMD_}
 
-# 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_}
+in	    {return $::IN_}
 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_}
+to	    {return $::TO_}
 
 # INT
 [+-]?{D}+ {set ::yylval $yytext; return $::INT_}
@@ -357,18 +32,6 @@ zscale	    {return $::ZSCALE_}
 [+-]?{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_}