diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 21:03:01 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-22 21:03:01 (GMT) |
| commit | 64443ae4af0357574ac3108258ac0f315e2a3bc9 (patch) | |
| tree | 4ef9a36e76bc596aec60cb1f17b1df4ac104ac34 /ds9/library/lex.fcl | |
| parent | ea5e6ca2e6523f0b2a585112b5fd5f18e9fcf969 (diff) | |
| download | blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.zip blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.tar.gz blt-64443ae4af0357574ac3108258ac0f315e2a3bc9.tar.bz2 | |
add namespace
Diffstat (limited to 'ds9/library/lex.fcl')
| -rw-r--r-- | ds9/library/lex.fcl | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl index 2e9e2c2..f5d25a3 100644 --- a/ds9/library/lex.fcl +++ b/ds9/library/lex.fcl @@ -15,35 +15,32 @@ E [Ee][+-]?{D}+ %% -foo {return $yy::FOOCMD_} --exit {return $yy::EXITCMD_} +-bar {return $yy::BARCMD_} -close {return $yy::CLOSE_} -fit {return $yy::FIT_} -open {return $yy::OPEN_} to {return $yy::TO_} # INT -[+-]?{D}+ {set ::yylval $yytext; return $yy::INT_} +[+-]?{D}+ {set yy::yylval $yytext; return $yy::INT_} # REAL [+-]?{D}+"."?({E})? | -[+-]?{D}*"."{D}+({E})? {set ::yylval $yytext; return $yy::REAL_} +[+-]?{D}*"."{D}+({E})? {set yy::yylval $yytext; return $yy::REAL_} # Quoted STRING -\"[^\"]*\" {set ::yylval [string range $yytext 1 end-1]; return $yy::STRING_} +\"[^\"]*\" {set yy::yylval [string range $yytext 1 end-1]; return $yy::STRING_} # Quoted STRING -\'[^\']*\' {set ::yylval [string range $yytext 1 end-1]; return $yy::STRING_} +\'[^\']*\' {set yy::yylval [string range $yytext 1 end-1]; return $yy::STRING_} # Quoted STRING -\{[^\}]*\} {set ::yylval [string range $yytext 1 end-1]; return $yy::STRING_} +\{[^\}]*\} {set yy::yylval [string range $yytext 1 end-1]; return $yy::STRING_} # STRING -\S+\S+ {set ::yylval $yytext; return $yy::STRING_} +\S+\S+ {set yy::yylval $yytext; return $yy::STRING_} \s # ignore whitespace -. {set ::yylval $yytext; return $::yylval} +. {set yy::yylval $yytext; return $yy::yylval} %% |