From e384095085218f8181d2a8f9492fafcefe1b33d0 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Wed, 20 Jun 2018 16:06:13 -0400
Subject: update parsers

---
 ds9/library/plotprocess.tcl | 532 --------------------------------------------
 1 file changed, 532 deletions(-)

diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl
index bc1b8bd..7575013 100644
--- a/ds9/library/plotprocess.tcl
+++ b/ds9/library/plotprocess.tcl
@@ -287,538 +287,6 @@ proc PlotCmdFontStyle {which value} {
     $cvar(proc,updategraph) $cvarname
 }
 
-# File Menu
-proc ProcessPlotPrint {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    global ps
-    global current
-
-    switch -- [string tolower [lindex $xar $i]] {
-	destination {incr i; set ps(dest) [lindex $xar $i]}
-	command {incr i; set ps(cmd) [lindex $xar $i]}
-	filename {incr i; set ps(filename) [lindex $xar $i] }
-	palette -
-	color {incr i; set ps(color) [lindex $xar $i] }
-
-	{} {PlotPostScript $varname}
-	default {incr i -1; PlotPostScript $varname}
-    }
-}
-
-proc ProcessPlotPageSetup {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    global ps
-
-    switch -- [string tolower [lindex $xar $i]] {
-	orientation -
-	orient {incr i; set ps(orient) [lindex $xar $i]}
-	pagesize -
-	size {incr i; set ps(size) [lindex $xar $i] }
-    }
-}
-
-# Graph Menu
-proc ProcessPlotAxis {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	x {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		grid {incr i; set var(axis,x,grid) [FromYesNo [lindex $xar $i]]}
-		log {incr i; set var(axis,x,log) [FromYesNo [lindex $xar $i]]}
-		flip {incr i; set var(axis,x,flip) [FromYesNo [lindex $xar $i]]}
-		auto {incr i; set var(axis,x,auto) [FromYesNo [lindex $xar $i]]}
-		min {incr i; set var(axis,x,min) [lindex $xar $i]}
-		max {incr i; set var(axis,x,max) [lindex $xar $i]}
-		format {incr i; set var(axis,x,format) [lindex $xar $i]}
-	    }
-	}
-	y {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		grid {incr i; set var(axis,y,grid) [FromYesNo [lindex $xar $i]]}
-		log {incr i; set var(axis,y,log) [FromYesNo [lindex $xar $i]]}
-		flip {incr i; set var(axis,y,flip) [FromYesNo [lindex $xar $i]]}
-		auto {incr i; set var(axis,y,auto) [FromYesNo [lindex $xar $i]]}
-		min {incr i; set var(axis,y,min) [lindex $xar $i]}
-		max {incr i; set var(axis,y,max) [lindex $xar $i]}
-		format {incr i; set var(axis,y,format) [lindex $xar $i]}
-	    }
-	}
-    }
-
-    $var(proc,updategraph) $varname
-}
-
-proc ProcessPlotLegend  {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	position {incr i; set var(legend,position) [lindex $xar $i]}
-	default {set var(legend) [FromYesNo [lindex $xar $i]]}
-    }
-
-    $var(proc,updategraph) $varname
-}
-
-proc ProcessPlotFont  {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	title {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		family -
-		font {incr i; set var(graph,title,family) [lindex $xar $i]}
-		size {incr i; set var(graph,title,size) [lindex $xar $i]}
-		weight {incr i; set var(graph,title,weight) [lindex $xar $i]}
-		slant {incr i; set var(graph,title,slant) [lindex $xar $i]}
-		style {
-		    # backward compatibility
-		    incr i
-		    switch [string tolower [lindex $xar $i]] {
-			normal {
-			    set var(graph,title,weight) normal
-			    set var(graph,title,slant) roman
-			}
-			bold {
-			    set var(graph,title,weight) bold
-			    set var(graph,title,slant) roman
-			}
-			italic {
-			    set var(graph,title,weight) normal
-			    set var(graph,title,slant) italic
-			}
-		    }
-		}
-	    }
-	}
-	axestitle -
-	labels {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		family -
-		font {incr i; set var(axis,title,family) [lindex $xar $i]}
-		size {incr i; set var(axis,title,size) [lindex $xar $i]}
-		weight {incr i; set var(axis,title,weight) [lindex $xar $i]}
-		slant {incr i; set var(axis,title,slant) [lindex $xar $i]}
-		style {
-		    # backward compatibility
-		    incr i
-		    switch [string tolower [lindex $xar $i]] {
-			normal {
-			    set var(axis,title,weight) normal
-			    set var(axis,title,slant) roman
-			}
-			bold {
-			    set var(axis,title,weight) bold
-			    set var(axis,title,slant) roman
-			}
-			italic {
-			    set var(axis,title,weight) normal
-			    set var(axis,title,slant) italic
-			}
-		    }
-		}
-	    }
-	}
-	axesnumbers -
-	numbers {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		family -
-		font {incr i; set var(axis,font,family) [lindex $xar $i]}
-		size {incr i; set var(axis,font,size) [lindex $xar $i]}
-		weight {incr i; set var(axis,font,weight) [lindex $xar $i]}
-		slant {incr i; set var(axis,font,slant) [lindex $xar $i]}
-		style {
-		    # backward compatibility
-		    incr i
-		    switch [string tolower [lindex $xar $i]] {
-			normal {
-			    set var(axis,font,weight) normal
-			    set var(axis,font,slant) roman
-			}
-			bold {
-			    set var(axis,font,weight) bold
-			    set var(axis,font,slant) roman
-			}
-			italic {
-			    set var(axis,font,weight) normal
-			    set var(axis,font,slant) italic
-			}
-		    }
-		}
-	    }
-	}
-	legendtitle {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		family -
-		font {incr i; set var(legend,title,family) [lindex $xar $i]}
-		size {incr i; set var(legend,title,size) [lindex $xar $i]}
-		weight {incr i; set var(legend,title,weight) [lindex $xar $i]}
-		slant {incr i; set var(legend,title,slant) [lindex $xar $i]}
-		style {
-		    # backward compatibility
-		    incr i
-		    switch [string tolower [lindex $xar $i]] {
-			normal {
-			    set var(legend,title,weight) normal
-			    set var(legend,title,slant) roman
-			}
-			bold {
-			    set var(legend,title,weight) bold
-			    set var(legend,title,slant) roman
-			}
-			italic {
-			    set var(legend,title,weight) normal
-			    set var(legend,title,slant) italic
-			}
-		    }
-		}
-	    }
-	}
-	legend {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		family -
-		font {incr i; set var(legend,font,family) [lindex $xar $i]}
-		size {incr i; set var(legend,font,size) [lindex $xar $i]}
-		weight {incr i; set var(legend,font,weight) [lindex $xar $i]}
-		slant {incr i; set var(legend,font,slant) [lindex $xar $i]}
-		style {
-		    # backward compatibility
-		    incr i
-		    switch [string tolower [lindex $xar $i]] {
-			normal {
-			    set var(legend,font,weight) normal
-			    set var(legend,font,slant) roman
-			}
-			bold {
-			    set var(legend,font,weight) bold
-			    set var(legend,font,slant) roman
-			}
-			italic {
-			    set var(legend,font,weight) normal
-			    set var(legend,font,slant) italic
-			}
-		    }
-		}
-	    }
-	}
-    }
-
-    $var(proc,updategraph) $varname
-}
-
-proc ProcessPlotTitle {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	x -
-	xaxis {incr i; set var(axis,x,title) [lindex $xar $i]}
-	y -
-	yaxis {incr i; set var(axis,y,title) [lindex $xar $i]}
-	legend {incr i; set var(legend,title) [lindex $xar $i]}
-	default {set var(graph,title) [lindex $xar $i]}
-    }
-
-    $var(proc,updategraph) $varname
-}
-
-proc ProcessPlotErrorBar {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	cap {incr i; set var(error,cap) [FromYesNo [lindex $xar $i]]}
-	color {incr i; set var(error,color) [lindex $xar $i]}
-	width {incr i; set var(error,width) [lindex $xar $i]}
-	default {set var(error) [FromYesNo [lindex $xar $i]]}
-    }
-
-    $var(proc,updateelement) $varname
-}
-
-# Dataset Menu
-proc ProcessPlotShape {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	fill {incr i; set var(shape,fill) [FromYesNo [lindex $xar $i]]}
-	color {incr i; set var(shape,color) [lindex $xar $i]}
-	default {set var(shape,symbol) [lindex $xar $i]}
-    }
-
-    $var(proc,updateelement) $varname
-}
-
-proc ProcessPlotColor  {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	discrete -
-	line -
-	linear -
-	step -
-	quadratic -
-	bar {
-	    # backward compatibility
-	    incr i
-	    set var(color) [lindex $xar $i]
-	}
-	error -
-	errorbar {
-	    # backward compatibility
-	    incr i
-	    set var(error,color) [lindex $xar $i]
-	}
-	default {
-	    # Dataset Menu
-	    set var(color) [lindex $xar $i]
-	}
-    }
-
-    $var(proc,updateelement) $varname
-}
-
-# backward compatibility
-proc ProcessPlotGraph  {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	grid {
-	    incr i; 
-	    switch -- [string tolower [lindex $xar $i]] {
-		x {incr i; set var(axis,x,grid) [FromYesNo [lindex $xar $i]]}
-		y {incr i; set var(axis,y,grid) [FromYesNo [lindex $xar $i]]}
-		default {
-		    # backward compatibility
-		    set var(axis,y,grid) [FromYesNo [lindex $xar $i]]
-		    set var(axis,x,grid) [FromYesNo [lindex $xar $i]]
-		}
-	    }
-	}
-	log {
-	    incr i; 
-	    switch -- [string tolower [lindex $xar $i]] {
-		x {incr i; set var(axis,x,log) [FromYesNo [lindex $xar $i]]}
-		y {incr i; set var(axis,y,log) [FromYesNo [lindex $xar $i]]}
-	    }
-	}
-	flip {
-	    incr i; 
-	    switch -- [string tolower [lindex $xar $i]] {
-		x {incr i; set var(axis,x,flip) [FromYesNo [lindex $xar $i]]}
-		y {incr i; set var(axis,y,flip) [FromYesNo [lindex $xar $i]]}
-	    }
-	}
-	format {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		x {incr i; set var(axis,x,format) [lindex $xar $i]}
-		y {incr i; set var(axis,y,format) [lindex $xar $i]}
-	    }
-	}
-	range {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		x {
-		    incr i
-		    switch -- [string tolower [lindex $xar $i]] {
-			auto {
-			    incr i
-			    set var(axis,x,auto) [FromYesNo [lindex $xar $i]]
-			}
-			min {incr i; set var(axis,x,min) [lindex $xar $i]}
-			max {incr i; set var(axis,x,max) [lindex $xar $i]}
-		    }
-		}
-		y {
-		    incr i
-		    switch -- [string tolower [lindex $xar $i]] {
-			auto {
-			    incr i
-			    set var(axis,y,auto) [FromYesNo [lindex $xar $i]]
-			}
-			min {incr i; set var(axis,y,min) [lindex $xar $i]}
-			max {incr i; set var(axis,y,max) [lindex $xar $i]}
-		    }
-		}
-	    }
-	}
-	labels {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		title {incr i; set var(graph,title) [lindex $xar $i]}
-		xaxis {incr i; set var(axis,x,title) [lindex $xar $i]}
-		yaxis {incr i; set var(axis,y,title) [lindex $xar $i]}
-		legend {incr i; set var(legend,title) [lindex $xar $i]}
-	    }
-	}
-	type {
-	    # backward compatibility
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		line -
-		bar {}
-	    }
-	}
-	scale {
-	    # backward compatibility
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		linearlinear {
-		    set var(axis,x,log) 0
-		    set var(axis,y,log) 0
-		}
-		linearlog {
-		    set var(axis,x,log) 0
-		    set var(axis,y,log) 1
-		}
-		loglinear {
-		    set var(axis,x,log) 1
-		    set var(axis,y,log) 0
-		}
-		loglog {
-		    set var(axis,x,log) 1
-		    set var(axis,y,log) 1
-		}
-	    }
-	}
-    }
-
-    $var(proc,updategraph) $varname
-}
-
-# backward compatibility
-proc ProcessPlotView  {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	discrete {
-	    incr i
-	    set var(show) [FromYesNo [lindex $xar $i]]
-	}
-	line -
-	linear {
-	    incr i
-	    if {[FromYesNo [lindex $xar $i]]} {
-		set var(show) 1
-		set var(smooth) linear
-	    }
-	}
-	step {
-	    incr i
-	    if {[FromYesNo [lindex $xar $i]]} {
-		set var(show) 1
-		set var(smooth) step
-	    }
-	}
-	quadratic {
-	    incr i
-	    if {[FromYesNo [lindex $xar $i]]} {
-		set var(show) 1
-		set var(smooth) quadratic
-	    }
-	}
-	error -
-	errorbar {
-	    incr i
-	    set var(error) [FromYesNo [lindex $xar $i]]
-	}
-    }
-
-    $var(proc,updateelement) $varname
-}
-
-# backward compatibility
-proc ProcessPlotLine  {varname xarname iname} {
-    upvar #0 $varname var
-    global $varname
-
-    upvar 2 $xarname xar
-    upvar 2 $iname i
-
-    switch -- [string tolower [lindex $xar $i]] {
-	discrete {
-	    incr i
-	    set var(shape,symbol) [lindex $xar $i]
-	}
-	line -
-	linear -
-	step -
-	quadratic -
-	error -
-	errorbar {
-	    incr i
-	    switch -- [string tolower [lindex $xar $i]] {
-		width {
-		    incr i
-		    set var(width) [lindex $xar $i]
-		}
-		dash {
-		    incr i
-		    set var(dash) [FromYesNo [lindex $xar $i]]
-		}
-		style {
-		    incr i
-		    set var(error) 1
-		}
-	    }
-	}
-    }
-
-    $var(proc,updateelement) $varname
-}
-
 proc ProcessSendPlotCmd {proc id param {sock {}} {fn {}}} {
     global iap
     global parse
-- 
cgit v0.12