diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-24 21:21:50 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-24 21:21:50 (GMT) |
| commit | 5e19831aabcf8c7e349240e3eb0a1e325c6ded60 (patch) | |
| tree | a501c12147256b832d579c05c46a75e54bea6ea6 /ds9/library/lex.fcl | |
| parent | ed1849e48706599d03035008c863f7a3784a2ca6 (diff) | |
| download | blt-5e19831aabcf8c7e349240e3eb0a1e325c6ded60.zip blt-5e19831aabcf8c7e349240e3eb0a1e325c6ded60.tar.gz blt-5e19831aabcf8c7e349240e3eb0a1e325c6ded60.tar.bz2 | |
zoom parser
Diffstat (limited to 'ds9/library/lex.fcl')
| -rw-r--r-- | ds9/library/lex.fcl | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl deleted file mode 100644 index 8d1d10b..0000000 --- a/ds9/library/lex.fcl +++ /dev/null @@ -1,49 +0,0 @@ -%{ -source $ds9(root)/library/parser.tab.tcl -%} - -%option noyywrap -%option caseless -%option nodefault -%option nointeractive -#%option stack -%option yylineno -#%option debug - -D [0-9] -E [Ee][+-]?{D}+ - -%% - -close {return $zoom::CLOSE_} -in {return $zoom::IN_} -fit {return $zoom::FIT_} -open {return $zoom::OPEN_} -out {return $zoom::OUT_} -to {return $zoom::TO_} - -# INT -[+-]?{D}+ {set zoom::yylval $yytext; return $zoom::INT_} - -# REAL -[+-]?{D}+"."?({E})? | -[+-]?{D}*"."{D}+({E})? {set zoom::yylval $yytext; return $zoom::REAL_} - -# Quoted STRING -\"[^\"]*\" {set zoom::yylval [string range $yytext 1 end-1]; return $zoom::STRING_} - -# Quoted STRING -\'[^\']*\' {set zoom::yylval [string range $yytext 1 end-1]; return $zoom::STRING_} - -# Quoted STRING -\{[^\}]*\} {set zoom::yylval [string range $yytext 1 end-1]; return $zoom::STRING_} - -# STRING -\S+\S+ {set zoom::yylval $yytext; return $zoom::STRING_} - -\s # ignore whitespace - -. {set zoom::yylval $yytext; return $zoom::yylval} - -%% - |