[Sguil-cvs] sguil/client sguil.tk,1.153,1.154

[Bamm V. <ba...@us...>]

Update of /cvsroot/sguil/sguil/client
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19592/client

Modified Files:
	sguil.tk 
Log Message:
Added -d <DEBUG> to the client too.


Index: sguil.tk
===================================================================
RCS file: /cvsroot/sguil/sguil/client/sguil.tk,v
retrieving revision 1.153
retrieving revision 1.154
diff -C2 -d -r1.153 -r1.154
*** sguil.tk	4 Nov 2004 20:36:02 -0000	1.153
--- sguil.tk	12 Nov 2004 21:57:22 -0000	1.154
***************
*** 1238,1242 ****
  }
  proc DisplayUsage { cmdName } {
!   puts "Usage: $cmdName -- -c <filename>"
    puts "  where <filename> is the PATH to the sguil config file"
    exit 1
--- 1238,1242 ----
  }
  proc DisplayUsage { cmdName } {
!   puts "Usage: $cmdName -- \[-c <filename>\] \[-d <DEBUG level>\]"
    puts "  where <filename> is the PATH to the sguil config file"
    exit 1
***************
*** 1575,1582 ****
--- 1575,1584 ----
        switch -glob -- $arg {
          -c { set state conf }
+         -d { set state debug_level }
          default { DisplayUsage $argv0 }
        }
      }
      conf { set CONF_FILE $arg; set state flag }
+     debug_level { set DEBUG_OVERRIDE 1; set DEBUG $arg; set DEBUG_LEVEL $arg }
      default { DisplayUsage $argv0 }
    }
***************
*** 1624,1627 ****
--- 1626,1634 ----
  }
  
+ # If DEBUG was specified on the cmd line, we override the conf file here
+ if { [info exists DEBUG_OVERRIDE] && [info exists DEBUG_LEVEL] } {
+     set DEBUG $DEBUG_LEVEL
+ }
+ 
  # Load user fonts
  if { [file exists $FONTFILE] } {