File: parseargs1.tcl

package info (click to toggle)
blt 3.0~1%2B08570046%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 45,556 kB
  • sloc: ansic: 278,852; tcl: 96,434; sh: 3,410; makefile: 2,026; cpp: 374
file content (16 lines) | stat: -rw-r--r-- 489 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 

package require BLT

set args [blt::parseargs create]
puts stderr [$args configure]
$args add "debug" -short "-d" -long "-debug" -type int \
	-default 0 -min 0 -max 10 
$args add "verbose" -short "-v" -long "-verbose" -type boolean -default 0 \
    -action store_true -nargs 0
$args set "verbose" "true"
$args set "debug" "9"
puts stderr extra=[$args parse "fred barney -v -debug 10" optArr]
foreach name [$args names] { 
    puts stderr $name=[$args arg configure $name]
}
parray optArr