You are here

argp 0.2

admin의 아바타

홈페이지: http://www.chevreux.org/projects_tcl.html

The argp package allows simple and flexible using and parsing optional arguments in tcl procs (like arguments given to Tk widgets) or commandline arguments given to a tcl script. The argp package allows implicit checking for argument types and argument values if needed.

gnu의 getopt 와 같은 아규먼트 처리 확장 패키지입니다.

#!/bin/sh
# \
exec tclsh "$0" "$@"


# This demo shows how to parse commandline arguments with argp

#  (a possibility)

set auto_path [linsert $auto_path 0 ..]
package require argp 0.1

argp::registerArgs "" {
    {-name   string  tclsh {tclsh tcl wish wishx}                }
    {-number integer 10    { { - -20 } { 5 100 } { 200 +} }      }
    {-%cpu   double  90    { 50.0 50.1 50.3  { 90 100 } }        }        
    {-alive  boolean 1     { 1 }                                 }
}

# this is important: copy argv to args, as argp::parseArgs expects

#  its optional argument in a variable named args
set args $argv

# now parse

argp::parseArgs opts

# and show the values (given or set by default)

foreach {k v} [array get opts] {
    puts "option $k has value $v"
}

첨부 파일파일 크기
Binary Data tclargp.tar.gz6.1 KB