#!/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
}