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
|
require 'optparse'
$0 = File.basename($0)
# keywords
CODES = %w[iso-2022-jp shift_jis euc-jp utf8 binary]
CODE_ALIASES = {"jis" => "iso-2022-jp", "sjis" => "shift_jis"}
POSSIBLE_CODES = "(#{(CODES+CODE_ALIASES.keys).join(',')})"
vars = {}
ARGV.options do
|opts|
opts.banner = "Usage: #{$0} [options] argv...\n"
# separater
opts.on_tail
opts.on_tail("common options:")
# no argument, shows at tail
opts.on_tail("--help", "show this message") {puts opts; exit}
# mandatory argument
opts.on("-r", "--require=LIBRARY", String,
"require the LIBRARY, before",
"executing your script") {|vars[:library]|}
# optional argument
opts.on("-i", "--inplace=[EXTENSION]",
"edit ARGV files in place", # multiline description
"(make backup if EXTENSION supplied)") {|vars[:inplace]| vars[:inplace] ||= ''}
opts.on("-N=[NUM]", Integer) {|vars[:number]|}
# additional class
# opts.on("-t", "--time=TIME", Time, "it's the time") {|vars[:time]|}
# limit argument syntax
opts.on("-[0-7]", "-F", "--irs=[OCTAL]", OptionParser::OctalInteger,
"specify record separator", "(\\0, if no argument)") {|vars[:irs]|}
# boolean switch(default true)
vars[:exec] = true
opts.on("-n", "--no-exec", "not really execute") {|vars[:exec]|}
# array
opts.on("-a", "--list[=LIST,LIST]", Array, "list") {|vars[:list]|}
# fixed size array
opts.on("--pair[=car,cdr]", Array, "pair") {|vars[:x], vars[:y]|}
# keyword completion
opts.on("--code=CODE", CODES, CODE_ALIASES, "select coding system", POSSIBLE_CODES) {|vars[:code]|}
# optional argument with keyword completion
opts.on("--type[=TYPE]", [:text, :binary], "select type(text, binary)") {|vars[:type]|}
# boolean switch with optional argument(default false)
opts.on("-v", "--[no-]verbose=[FLAG]", "run verbosely") {|vars[:verbose]|}
# easy way, set local variable
opts.on("-q", "--quit", "quit when ARGV is empty") {|vars[:quit]|}
# adding on the fly
opts.on("--add=SWITCH=[ARG]", "add option on the fly", /\A(\w+)(?:=.+)?\Z/) do
|opt, var|
opts.on("--#{opt}", "added in runtime", &eval("proc {|vars[:#{var}]|}"))
end
opts.on_head("specific optins:")
# no argument
opts.on_tail("--version", "show version") do
puts OptionParser::Version.join('.')
exit
end
opts.parse!
end
if (Fixnum === :-)
class << vars
def inspect
"{" + collect {|k,v| ":#{k.id2name}=>#{v.inspect}"}.join(", ") + "}"
end
end
end
p vars
(puts ARGV.options; exit) if vars[:quit]
ARGV.options = nil # no more parse
puts "ARGV = #{ARGV.join(' ')}" if !ARGV.empty?
#opts.variable.each {|sym| puts "#{sym} = #{opts.send(sym).inspect}"}
|
