cleanup ProcessCmd code

1 files changed, 4 insertions, 278 deletions

diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl
index 9816168..3333e84 100644
--- a/ds9/library/grid.tcl
+++ b/ds9/library/grid.tcl
@@ -1140,284 +1140,10 @@ proc ProcessGridCmd {varname iname} {
     upvar $varname var
     upvar $iname i
 
-    global debug
-    if {$debug(tcl,parser)} {
-	grid::YY_FLUSH_BUFFER
-	grid::yy_scan_string [lrange $var $i end]
-	grid::yyparse
-	incr i [expr $grid::yycnt-1]
-    } else {
-	
-    global grid
-    switch -- [string tolower [lindex $var $i]] {
-	open {GridDialog}
-	close {GridDestroyDialog}
-	yes -
-	true -
-	on -
-	1 -
-	no -
-	false -
-	off -
-	0 {
-	    set grid(view) [FromYesNo [lindex $var $i]]
-	    GridUpdateCurrent
-	}
-	type {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		axes {
-		    # backward compatible
-		    incr i; set grid(axes,type) [lindex $var $i]
-		}
-		numerics {
-		    # backward compatible
-		    incr i; set grid(numlab,type) [lindex $var $i]
-		}
-		default {set grid(type) [lindex $var $i]}
-	    }
-	    GridUpdateCurrent
-	}
-	system {incr i; set grid(system) [lindex $var $i]; GridUpdateCurrent}
-	sky {incr i
-	    set grid(sky) [string tolower [lindex $var $i]]
-	    GridUpdateCurrent
-	}
-	skyformat {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		deg -
-		degree -
-		degrees {set grid(skyformat) degrees}
-		default {set grid(skyformat) [string tolower [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	grid {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		color {incr i; set grid(grid,color) [lindex $var $i]}
-		width {incr i; set grid(grid,width) [lindex $var $i]}
-		dash {incr i; set grid(grid,style) [FromYesNo [lindex $var $i]]}
-		style {
-		    # backward compatibility
-		    incr i; set grid(grid,style) [lindex $var $i]
-		}
-		gap1 {incr i; set grid(grid,gap1) [lindex $var $i]}
-		gap2 {incr i; set grid(grid,gap2) [lindex $var $i]}
-		gap3 {incr i; set grid(grid,gap3) [lindex $var $i]}
-		default {set grid(grid) [FromYesNo [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	axes {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		color {incr i; set grid(axes,color) [lindex $var $i]}
-		width {incr i; set grid(axes,width) [lindex $var $i]}
-		dash {incr i; set grid(axes,style) [FromYesNo [lindex $var $i]]}
-		style {
-		    # backward compatibility
-		    incr i; set grid(axes,style) [lindex $var $i]
-		}
-		type {incr i; set grid(axes,type) [lindex $var $i]}
-		origin {incr i; set grid(axes,origin) [lindex $var $i]}
-		default {set grid(axes) [FromYesNo [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	format1 {
-	    incr i; set grid(format1) [lindex $var $i]
-	    GridUpdateCurrent
-	}
-	format2 {
-	    incr i; set grid(format2) [lindex $var $i]
-	    GridUpdateCurrent
-	}
-	tickmark -
-	tickmarks -
-	tick {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		color {incr i; set grid(tick,color) [lindex $var $i]}
-		width {incr i; set grid(tick,width) [lindex $var $i]}
-		dash {incr i; set grid(tick,style) [FromYesNo [lindex $var $i]]}
-		style {
-		    # backward compatibility
-		    incr i; set grid(tick,style) [lindex $var $i]
-		}
-		default {set grid(tick) [FromYesNo [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	border {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		color {incr i; set grid(border,color) [lindex $var $i]}
-		width {incr i; set grid(border,width) [lindex $var $i]}
-		dash {incr i; set grid(border,style) [FromYesNo [lindex $var $i]]}
-		style {
-		    # backward compatibility
-		    incr i; set grid(border,style) [lindex $var $i]
-		}
-		default {set grid(border) [FromYesNo [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	numeric -
-	numerics -
-	numlab {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		font {incr i; set grid(numlab,font) [lindex $var $i]}
-		fontsize {incr i; set grid(numlab,size) [lindex $var $i]}
-		fontweight {incr i; set grid(numlab,weight) [lindex $var $i]}
-		fontslant {incr i; set grid(numlab,slant) [lindex $var $i]}
-		fontstyle {
-		    # backward compatibility
-		    incr i
-		    switch [lindex $var $i] {
-			normal {
-			    set grid(numlab,weight) normal
-			    set grid(numlab,slant) roman
-			}
-			bold {
-			    set grid(numlab,weight) bold
-			    set grid(numlab,slant) roman
-			}
-			italic {
-			    set grid(numlab,weight) normal
-			    set grid(numlab,slant) italic
-			}
-		    }
-		}
-		color {incr i; set grid(numlab,color) [lindex $var $i]}
-		gap1 {incr i; set grid(numlab,gap1) [lindex $var $i]}
-		gap2 {incr i; set grid(numlab,gap2) [lindex $var $i]}
-		gap3 {incr i; set grid(numlab,gap3) [lindex $var $i]}
-		type {incr i; set grid(numlab,type) [lindex $var $i]}
-		vertical {incr i; set grid(numlab,vertical) [FromYesNo [lindex $var $i]]}
-		default {set grid(numlab) [FromYesNo [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	title {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		text {incr i; set grid(title,text) [lindex $var $i]}
-		def {incr i; set grid(title,def) [FromYesNo [lindex $var $i]]}
-		gap {incr i; set grid(title,gap) [lindex $var $i]}
-		font {incr i; set grid(title,font) [lindex $var $i]}
-		fontsize {incr i; set grid(title,size) [lindex $var $i]}
-		fontweight {incr i; set grid(title,weight) [lindex $var $i]}
-		fontslant {incr i; set grid(title,slant) [lindex $var $i]}
-		fontstyle {
-		    # backward compatibility
-		    incr i
-		    switch [lindex $var $i] {
-			normal {
-			    set grid(title,weight) normal
-			    set grid(title,slant) roman
-			}
-			bold {
-			    set grid(title,weight) bold
-			    set grid(title,slant) roman
-			}
-			italic {
-			    set grid(title,weight) normal
-			    set grid(title,slant) italic
-			}
-		    }
-		}
-		color {incr i; set grid(title,color) [lindex $var $i]}
-		default {set grid(title) [FromYesNo [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	label -
-	labels -
-	textlab {
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		text1 {incr i; set grid(textlab,text1) [lindex $var $i]}
-		text2 {incr i; set grid(textlab,text2) [lindex $var $i]}
-		def1 {incr i; set grid(textlab,def1) [FromYesNo [lindex $var $i]]}
-		def2 {incr i; set grid(textlab,def2) [FromYesNo [lindex $var $i]]}
-		gap1 {incr i; set grid(textlab,gap1) [lindex $var $i]}
-		gap2 {incr i; set grid(textlab,gap2) [lindex $var $i]}
-		font {incr i; set grid(textlab,font) [lindex $var $i]}
-		fontsize {incr i; set grid(textlab,size) [lindex $var $i]}
-		fontweight {incr i; set grid(textlab,weight) [lindex $var $i]}
-		fontslant {incr i; set grid(textlab,slant) [lindex $var $i]}
-		fontstyle {
-		    # backward compatibility
-		    incr i
-		    switch [lindex $var $i] {
-			normal {
-			    set grid(textlab,weight) normal
-			    set grid(textlab,slant) roman
-			}
-			bold {
-			    set grid(textlab,weight) bold
-			    set grid(textlab,slant) roman
-			}
-			italic {
-			    set grid(textlab,weight) normal
-			    set grid(textlab,slant) italic
-			}
-		    }
-		}
-		color {incr i; set grid(textlab,color) [lindex $var $i]}
-		default {set grid(textlab) [FromYesNo [lindex $var $i]]}
-	    }
-	    GridUpdateCurrent
-	}
-	view {
-	    # backward compatable
-	    incr i
-	    switch -- [string tolower [lindex $var $i]] {
-		grid {incr i; set grid(grid) [FromYesNo [lindex $var $i]]}
-		axes {
-		    incr i
-		    switch -- [string tolower [lindex $var $i]] {
-			numbers {incr i; set grid(numlab) \
-				     [FromYesNo [lindex $var $i]]}
-			tickmarks {incr i; set grid(tick) \
-				       [FromYesNo [lindex $var $i]]}
-			label {incr i; set grid(textlab) \
-				   [FromYesNo [lindex $var $i]]}
-			default {set grid(axes) [FromYesNo [lindex $var $i]]}
-		    }
-		}
-		title {incr i; set grid(title) [FromYesNo [lindex $var $i]]}
-		border {incr i; set grid(border) [FromYesNo [lindex $var $i]]}
-		vertical {
-		    incr i
-		    set grid(numlab,vertical) [FromYesNo [lindex $var $i]]
-		}
-	    }
-	    GridUpdateCurrent
-	}
-	reset {GridResetDialog}
-	load {
-	    incr i
-	    set fn [lindex $var $i]
-	    FileLast gridfbox $fn
-	    GridLoad $fn
-	}
-	save {
-	    incr i
-	    set fn [lindex $var $i]
-	    FileLast gridfbox $fn
-	    GridSave $fn
-	}
-	default {
-	    set grid(view) 1
-	    GridUpdateCurrent
-	    incr i -1
-	}
-    }
-}
+    grid::YY_FLUSH_BUFFER
+    grid::yy_scan_string [lrange $var $i end]
+    grid::yyparse
+    incr i [expr $grid::yycnt-1]
 }
 
 proc GridCmdSet {which value {cmd {}}} {