#!/bin/sh
# Beispiel für das opt-Package
# \
exec tclsh $0 $@
package require opt
tcl::OptProc main {
{notwendig -string "Dateiname"}
{-flag}
{-int 2 }
{-real 1.0 "Flag, default 1.0"}
{-bool -boolean false "Boolflag, Default false"}
{-choice -choice {1 2 3} "Auswahl, 1, 2 oder 3"}
{-list -list {} "Liste, Default {}"}
{?nochMehr? -string "" "Ungeparster Rest"}
} {
foreach v [list notwendig flag int real bool choice list nochMehr] {
puts stdout [format "%14s : %s" $v [set $v]]
}
}
if {[catch {eval main $argv} err]} {
puts stderr $err
exit
}