diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-13 19:16:22 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-13 19:16:22 (GMT) |
commit | e45668650f77e2401ec3495ae6b93b564bf1882e (patch) | |
tree | 24b2890e7c82c633085ce2f53a31a317711eb7b0 | |
parent | c035c9899e98dd4963f4e26948c4a5159f294f56 (diff) | |
download | blt-e45668650f77e2401ec3495ae6b93b564bf1882e.zip blt-e45668650f77e2401ec3495ae6b93b564bf1882e.tar.gz blt-e45668650f77e2401ec3495ae6b93b564bf1882e.tar.bz2 |
rm ds9 cd parser
-rw-r--r-- | ds9/library/source.tcl | 2 | ||||
-rw-r--r-- | ds9/library/util.tcl | 9 | ||||
-rw-r--r-- | ds9/parsers/alignlex.fcl | 13 | ||||
-rw-r--r-- | ds9/parsers/nanlex.fcl | 12 |
4 files changed, 25 insertions, 11 deletions
diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 904c6a2..0dee8b4 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -206,8 +206,6 @@ source $ds9(root)/library/blockparser.tcl source $ds9(root)/library/blocklex.tcl source $ds9(root)/library/catparser.tcl source $ds9(root)/library/catlex.tcl -source $ds9(root)/library/cdparser.tcl -source $ds9(root)/library/cdlex.tcl source $ds9(root)/library/cmapparser.tcl source $ds9(root)/library/cmaplex.tcl source $ds9(root)/library/colorbarparser.tcl diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index dd4933d..683047e 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1355,17 +1355,8 @@ proc ProcessCDCmd {varname iname} { upvar $varname var upvar $iname i - global debug - if {$debug(tcl,parser)} { - cd::YY_FLUSH_BUFFER - cd::yy_scan_string [lrange $var $i end] - cd::yyparse - incr i [expr $cd::yycnt-1] - } else { - cd [lindex $var $i] } -} proc ProcessSendCDCmd {proc id param} { $proc $id "[pwd]\n" diff --git a/ds9/parsers/alignlex.fcl b/ds9/parsers/alignlex.fcl new file mode 100644 index 0000000..3bda66c --- /dev/null +++ b/ds9/parsers/alignlex.fcl @@ -0,0 +1,13 @@ +#tab alignparser.tab.tcl + +%{ +%} + +#include defs.fin + +%% + +#include yesno.fin +#include string.fin + +%% diff --git a/ds9/parsers/nanlex.fcl b/ds9/parsers/nanlex.fcl new file mode 100644 index 0000000..3691a07 --- /dev/null +++ b/ds9/parsers/nanlex.fcl @@ -0,0 +1,12 @@ +#tab nanparser.tab.tcl + +%{ +%} + +#include defs.fin + +%% + +#include string.fin + +%% |