#! /usr/bin/ruby
# Test for optparse.  This comes from ((<URL:sample/getopts.rb>)) in
# distribution.

=begin 
= (({optparse}))ץ
ΥץȤ(({optparse}))ΥץѤˡ
(({Ruby}))ɸäƤ"(({sample/getopts.rb}))"¤ΤǤ
=end

RCSID = %w$Id: getopts.test,v 0.5 2001/04/10 09:43:24 nobu Exp $[1..-1].each {|s| s.freeze}.freeze
=begin undocumented
== Х
: (({Version}))
  ɬܤǤϤޤ󤬡Ƥ(({--version}))Ȥץ󤬻Ȥ褦ˤʤޤ
=end
Version = RCSID[1].split('.').collect {|s| s.to_i}.freeze

=begin 
== 
ޤɤޤ
=end

require './optparse'

=begin 
== ǥե
ץΥǥեͤꤷƤޤ

֥åǸѿΥפϥ֥å˸¤ƤޤΤǡ
˽Ƥɬפޤ

뤤ϡХѿ󥹥ѿˤХ֥å˸ꤵʤΤǡ
ɬפϤޤ󤬡ϤǥեȤϤäǤ礦
((- Ruby ܤǤ(({nil}))ǤפȴƤ뤳ȤǤ-))
=end
debug = version = false
f = g = nil
x, y = 800, 600

=begin 
== ץ̾
åɽ륹ץ̾١̾ˤƤޤ
դϼ̣Ǥ礦
=end
$0 = File.basename($0)

=begin 
== ץ֥å
(({ARGV.options}))˥֥åꤹȡ
ꤵƤ(({OptionParser}))󥹥󥹤(ɬפʤä)ϤƤޤ
֤ͤϥ֥å֤ͤǤ

ޤΥ֥åǤ(({OptionParser::ParseError}))(({rescue}))
顼å(({STDERR}))ɽޤΤȤ(({nil}))֤ޤ
=end
ARGV.options {|q|
=begin 
=== Хʡ
إץåκǽɽʸǤ
ñˤΤޤ޻Ȥޤ
=end
  q.banner = "Usage: #{$0} -d [options] [string ...]\n"

=begin 
=== Ȥʤץ
--- -d --debug debug message
    (({-})) ǻϤޤʸϡûΥץ󥹥å
    (({--})) ǻϤޤʸϡĹΥץ󥹥åꤷޤ
    ʳϡإץåɽǤ
    ĹԤʬ䤹뵡ǽϤޤ󤬡ʣꤹаԤɽޤΤĹʬƤƤ
    
    ΥץϰȤޤ
    ξ ((|debug|)) ˤ (({true})) åȤޤ
    
    ֥åˤϡѿǤʤȤǽʤΤʤ鲿ǤפʤΤǡ
    Хѿ䳰ѿ󥹥ѿʤɤȤޤ
=end
  q.on('-d', '--debug', 'debug message') {|debug|}

=begin 
=== ɬܤʥץȰμưѴ
--- --x
--- --y
    åλ '=' ޤޤƤȡɬפʥץˤʤޤ
    ޤƱ(({Class}))ꤷƤȡ
    ϼưŪ˳륪֥(ξ(({Integer})))Ѵƥ֥åϤޤ
    ʤȤ˥ޥåʤȤ㳰ˤʤޤ
    
    ѴǤ륯饹(ǥեȤǤ)ʲΤΤޤ
    * Object	  Ǥդʸ(ǥե)
    * String	  Ǥʤʸ
    * Integer	  
    * Float	  ¿
    * Numeric	  (({Integer}))(({Float}))
    * TrueClass	  (ꤵƤ(({true})))
    * FalseClass  (ꤵƤ(({false})))
=end
  q.on('--x=X', 'x coordinate', Integer) {|x|}
  q.on('--y=Y', 'y coordinate', Integer) {|y|}

=begin 
=== άǽʥץ
--- -f
    λ (({[]})) ǰϤäƤȡϾάǽȤߤʤޤ
    ά줿Ȥˤϡ(({nil}))Ϥޤ
=end
  q.on('-f[=FLAG]', 'just a flag', TrueClass){|f|}

=begin 
=== Ѵλ
--- --geometry
    (({on}))(({Regexp}))((({match}))äƤ륪֥) Ϥȡ
    פʤФʤʤѥȤߤʤޤ
    
    match ˤϥץФͿ줿ʸϤޤ
    η̤(({nil}))(({false}))ξʰȤ㳰ˤʤޤ
    
    ֥åˤ(({match}))η̤(({to_a}))ΤϤޤ
    (({Regexp}))ꤷƥޥåʬʸ֥åǻȤȤΤǤŵŪʻȤǤ礦
    ξ硢ʸΤޤϤΤѴɬפˤʤ뤳Ȥ⤢ޤ
=end
  q.on('--geometry=GEOM', 'geometry XxY', /(\d+)x(\d+)/) {|geom, x, y|
    x, y = x.to_i, y.to_i
  }
=begin alternative
    ʬ򤵤줿ʸ٥ѡʤˡ⤢ޤ
      q.on('--geometry=GEOM', 'geometry XxY', /(\d+)x(\d+)/) {|geom, x, y|
        q.parse('--x', x, '--y', y)
      }
    ޤ
      q.on('--geometry=GEOM', 'geometry XxY', /(\d+)x(\d+)/) {|geom, x, y|
        ARGV[0, 0] = ['--x', x, '--y', y]
      }
    ˤäʣΥץǻꤹޤȤƻǤ륪ץޤ
=end

=begin 
== ѡ
Ǽºݤ˥ޥɥ饤ѡޤ
=end
  q.parse!

=begin 
== ץΥå
Ǿɬפʥץ󤬻ꤵƤ뤫ɤåƤޤ
֥åκǸμʤΤǤη̤(({ARGV.options}))η̤ˤʤޤ

뤤
ץʳΰοäƤʤäåɽƽλȤ
  ARGV.empty?
Ȥ
  ARGV.size == 2
Ȥޤ
((-ƱˤϻǤʤץȹ礻ʤɤϡơΥϥɥǥå뤳ȤǤޤ-))
=end
  debug and (x or y)		# option check

} or (puts ARGV.options; exit 1)
=begin 
ץ˥顼äꡢɬפʥץ󤬻ꤵƤʤä硢
ǥإץåɽƽλƤޤ

(({ARGV.options}))Υ֥å(({parse!}))硢
顼åɽǥץȼΤλ((**))
=end

=begin 
== ¾
ץϤη̤ɽƤޤ
=end
if debug
  puts "version #{Version.join '.'}"
  puts "x = #{x.inspect}"
  puts "y = #{y.inspect}"
  puts "f = #{f.inspect}"
  puts "g = #{g}" if g
end

ARGV.each {|arg| print "other = ", arg, "\n"}

__END__
# $Log: getopts.test,v $
# Revision 0.5  2001/04/10 09:43:24  nobu
# * /usr/bin/ruby
#
# Revision 0.4  2000/05/03 14:48:24  nobu
# * adding documents
#
# Revision 0.3  2000-04-29 09:51:35+09  nobu
# Forgotten argument check(^^;
#
# Revision 0.2  2000-04-28 14:49:24+09  nobu
# Shows (({f})) and (({g})) themselves.
#
# Revision 0.1  2000-04-24 23:57:17+09  nobu
# Initial revision
#