diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-06-30 17:52:12 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-06-30 17:52:12 (GMT) |
commit | 5fc34000456f7eb440a00e32717d4a8d1f7b37d7 (patch) | |
tree | de168f4130a7bb324a2e30d6470bd13e42319898 /ds9/library/lex.fcl | |
parent | 60b9ec152dea8708a5aa249dfa32ffb17f0abf12 (diff) | |
download | blt-5fc34000456f7eb440a00e32717d4a8d1f7b37d7.zip blt-5fc34000456f7eb440a00e32717d4a8d1f7b37d7.tar.gz blt-5fc34000456f7eb440a00e32717d4a8d1f7b37d7.tar.bz2 |
update parser 2mass
Diffstat (limited to 'ds9/library/lex.fcl')
-rw-r--r-- | ds9/library/lex.fcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/ds9/library/lex.fcl b/ds9/library/lex.fcl index 36418a4..58d6009 100644 --- a/ds9/library/lex.fcl +++ b/ds9/library/lex.fcl @@ -62,6 +62,19 @@ yes {return $::YES_} [+-]?{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 +# at least 2 printable chars +[!-~][!-~]+ {set ::yylval $yytext; return $::STRING_} + \n # ignore return \s # ignore whitespace . {set ::yylval $yytext; return $yytext} |