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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
#
# getopts.rb - get options
# $Release Version: $
# $Revision: 1.2 $
# $Date: 1994/02/15 05:17:15 $
# by Yasuo OHBA(STAFS Development Room)
#
# --
# オプションの解析をし, $OPT_?? に値をセットします.
# 指定のないオプションが指定された時は nil を返します.
# 正常終了した場合は, セットされたオプションの数を返します.
#
# getopts(single_opts, *opts)
#
# ex. sample [options] filename
# options ...
# -f -x --version --geometry 100x200 -d unix:0.0
# ↓
# getopts("fx", "version", "geometry:", "d:")
#
# 第一引数:
# -f や -x (= -fx) の様な一文字のオプションの指定をします.
# ここで引数がないときは nil の指定が必要です.
# 第二引数以降:
# ロングネームのオプションや, 引数の伴うオプションの指定をします.
# --version や, --geometry 300x400 や, -d host:0.0 等です.
# 引数を伴う指定は ":" を必ず付けてください.
#
# オプションの指定があった場合, 変数 $OPT_?? に non-nil もしくは, そのオ
# プションの引数がセットされます.
# -f -> $OPT_f = TRUE
# --geometry 300x400 -> $OPT_geometry = 300x400
#
# - もしくは -- は, それ以降, 全てオプションの解析をしません.
#
$RCS_ID="$Header: /var/ohba/RCS/getopts.rb,v 1.2 1994/02/15 05:17:15 ohba Exp ohba $"
def getopts(single_opts, *opts)
if (opts)
single_colon = ""
long_opts = []
sc = 0
for option in opts
if (option.length <= 2)
single_colon[sc, 0] = option[0, 1]
sc += 1
else
long_opts.push(option)
end
end
end
opts = {}
count = 0
while ($ARGV.length != 0)
compare = nil
case $ARGV[0]
when /^--?$/
$ARGV.shift
break
when /^--.*/
compare = $ARGV[0][2, ($ARGV[0].length - 2)]
if (long_opts != "")
for option in long_opts
if (option[(option.length - 1), 1] == ":" &&
option[0, (option.length - 1)] == compare)
if ($ARGV.length <= 1)
return nil
end
eval("$OPT_" + compare + " = " + '$ARGV[1]')
opts[compare] = TRUE
$ARGV.shift
count += 1
break
elsif (option == compare)
eval("$OPT_" + compare + " = TRUE")
opts[compare] = TRUE
count += 1
break
end
end
end
when /^-.*/
for index in 1..($ARGV[0].length - 1)
compare = $ARGV[0][index, 1]
if (single_opts && compare =~ "[" + single_opts + "]")
eval("$OPT_" + compare + " = TRUE")
opts[compare] = TRUE
count += 1
elsif (single_colon != "" && compare =~ "[" + single_colon + "]")
if ($ARGV[0][index..-1].length > 1)
eval("$OPT_" + compare + " = " + '$ARGV[0][(index + 1)..-1]')
opts[compare] = TRUE
count += 1
elsif ($ARGV.length <= 1)
return nil
else
eval("$OPT_" + compare + " = " + '$ARGV[1]')
opts[compare] = TRUE
$ARGV.shift
count = count + 1
end
break
end
end
else
break
end
$ARGV.shift
if (!opts.includes(compare))
return nil
end
end
return count
end
|