1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#
# parseargs.rb - parse arguments
# $Release Version: $
# $Revision: 1.3 $
# $Date: 1994/02/15 05:16:21 $
# by Yasuo OHBA(STAFS Development Room)
#
# --
# 引数の解析をし, $OPT_?? に値をセットします.
# 正常終了した場合は, セットされたオプションの数を返します.
#
# parseArgs(argc, single_opts, *opts)
#
# ex. sample [options] filename
# options ...
# -f -x --version --geometry 100x200 -d unix:0.0
# ↓
# parseArgs(1, nil, "fx", "version", "geometry:", "d:")
#
# 第一引数:
# オプション以外の最低引数の数
# 第二引数:
# オプションの必要性…必ず必要なら %TRUE そうでなければ %FALSE.
# 第三引数:
# -f や -x (= -fx) の様な一文字のオプションの指定をします.
# ここで引数がないときは nil の指定が必要です.
# 第四引数以降:
# ロングネームのオプションや, 引数の伴うオプションの指定をします.
# --version や, --geometry 300x400 や, -d host:0.0 等です.
# 引数を伴う指定は ":" を必ず付けてください.
#
# オプションの指定があった場合, 変数 $OPT_?? に non-nil もしくは, そのオ
# プションの引数がセットされます.
# -f -> $OPT_f = %TRUE
# --geometry 300x400 -> $OPT_geometry = 300x400
#
# usage を使いたい場合は, $USAGE に usage() を指定します.
# def usage()
# …
# end
# $USAGE = 'usage'
# usage は, --help が指定された時, 間違った指定をした時に表示します.
#
# - もしくは -- は, それ以降, 全てオプションの解析をしません.
#
$RCS_ID="$Header: /var/ohba/RCS/parseargs.rb,v 1.3 1994/02/15 05:16:21 ohba Exp ohba $"
load("getopts.rb")
def printUsageAndExit()
if $USAGE
apply($USAGE)
end
exit()
end
def parseArgs(argc, nopt, single_opts, *opts)
if ((noOptions = getopts(single_opts, *opts)) == nil)
printUsageAndExit()
end
if (nopt && noOptions == 0)
printUsageAndExit()
end
if ($ARGV.length < argc)
printUsageAndExit()
end
return noOptions
end
|