proc processFlags {} {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/processFlags,v 1.1 1998/07/15 22:01:00 de Exp $

	global Lang Tile Stretch Rota Flags Grow
	global NumPath Quiet Describe Footer Page
#
# 	 Layout logic (oof).
#	returns a block of text to be placed in the body of the digraph def
#	
# check for override flags:
# L landscape 
# T tiled 
# C compressed (not tiled) 
# A force letter
# B force 11x17
# H force ranks to grow horizontally 
# X force HPGL
# D show description in box as well as agent name  (default off)
# N show Mpath numbers (default off)
# Q quiet: don't show anything but meme name (default off)
# F print footer (title) on plot (default off)
# 
# 
if {$Flags != ""} {
foreach f [split $Flags {}] {
	case $f in {
	{L} {set Rota 1}
	{C} {set Tile 0}
	{T} {set Tile 1}
	{F} {
	    set Footer 1
	}
	{H} {set Grow H}
	{X} {
		set Lang hpgl
		set Tile 0
		set Rota 1
	}
	{A} {set Page A}
	{B} {set Page B}
	{N} {set NumPath 1}
	{Q} {set Quiet 1}
	{D} {set Describe 1}
	{default} {
		puts stderr "Unrecognized flag $Flags"
	}
	}
}
}
#
}
