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