tclGetOpts 1.1

홈페이지 : http://www.waxandwane.com/toolbox/tclGetOpts/getopt.html

tclGetOpts contains the Tcl package GetOpts which includes two procedures for parsing command-line options in a Tcl script.

 

tclGetOpts에는 Tcl 스크립트에서 커맨드 라인의 옵션 구문을 분석하는 두 가지 프로시저를 제공하는 Tcl 패키지 입니다.

   #!/usr/local/bin/tclsh

     set opts(a) 0
     set opts(b) 0
     set opts(o) ""

     proc usage {} {
       puts stderr "Usage: $argv0 [ -a | -b ] [ -o <string> ]"
       exit 22
     }

     while { [ set err [ getopt $argv "abo:" opt arg ]] } {
       if { $err < 0 } then {
         puts stderr "$argv0: $arg"
         usage
       } else {
         switch -exact $opt {
           a {
             if { $found(b) } then {
               puts stderr "$argv0: Only one of -a and -b may be specified!"
               usage
             } else {
               set found(a) 1
             }
           }
           b {
             if { $found(a) } then {
               puts stderr "$argv0: Only one of -a and -b may be specified!"
               usage
             } else {
               set found(b) 1
             }
           }
           o {
             set found(o) $optarg
           }
         }
       }
     }

     set argv [ lrange $argv $optind end ]

     if { $found(a) } then {
       puts stdout "Found option -a"
     }

     if { $found(b) } then {
       puts stdout "Found option -b"
     }

     if { [ string length $found(o) ] } then {
       puts stdout "Found option -o:
     }

     puts -nonewline stdout "The rest of the arguments are: "
     set prefix ""
     foreach arg $argv {
       puts -nonewline stdout "$prefix
       set prefix ", "
     }
     puts stdout ""

 

tclGetOpts1.1.tar.gz

0.01MB