← Back to branch summary

~ubuntu-branches/ubuntu/hardy/ruby1.8/hardy-updates

« back to all changes in this revision

Viewing changes to lib/getopts.rb

  • Committer: Bazaar Package Importer
  • Author(s): akira yamada
  • Date: 2007-03-13 22:11:58 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070313221158-h3oql37brlaf2go2
Tags: 1.8.6-1
http://bugs.debian.org/410018
* new upstream version, 1.8.6.
* libruby1.8 conflicts with libopenssl-ruby1.8 (< 1.8.6) (closes: #410018)
* changed packaging style to cdbs from dbs.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/getopts.rb
 
1
#
 
2
#               getopts.rb - 
 
3
#                       $Release Version: $
 
4
#                       $Revision: 11708 $
 
5
#                       $Date: 2007-02-13 08:01:19 +0900 (Tue, 13 Feb 2007) $
 
6
#                       by Yasuo OHBA(SHL Japan Inc. Technology Dept.)
 
7
#
 
8
# --
 
9
# this is obsolete; use getoptlong
 
10
#
 
11
# 2000-03-21
 
12
# modified by Minero Aoki <aamine@dp.u-netsurf.ne.jp>
 
13
#
 
14
# 2002-03-05
 
15
# rewritten by Akinori MUSHA <knu@ruby-lang.org>
 
16
#
 
17
 
 
18
warn "Warning:#{caller[0].sub(/:in `.*'\z/, '')}: getopts is deprecated after Ruby 1.8.1; use optparse instead" if caller[0] and $VERBOSE
 
19
 
 
20
$RCS_ID=%q$Header$
 
21
 
 
22
# getopts is obsolete. Use GetoptLong.
 
23
 
 
24
def getopts(single_options, *options)
 
25
  boolopts = {}
 
26
  valopts = {}
 
27
 
 
28
  #
 
29
  # set defaults
 
30
  #
 
31
  single_options.scan(/.:?/) do |opt|
 
32
    if opt.size == 1
 
33
      boolopts[opt] = false
 
34
    else
 
35
      valopts[opt[0, 1]] = nil
 
36
    end
 
37
  end if single_options
 
38
 
 
39
  options.each do |arg|
 
40
    opt, val = arg.split(':', 2)
 
41
 
 
42
    if val
 
43
      valopts[opt] = val.empty? ? nil : val
 
44
    else
 
45
      boolopts[opt] = false
 
46
    end
 
47
  end
 
48
 
 
49
  #
 
50
  # scan
 
51
  #
 
52
  c = 0
 
53
  argv = ARGV
 
54
 
 
55
  while arg = argv.shift
 
56
    case arg
 
57
    when /\A--(.*)/
 
58
      if $1.empty?                      # xinit -- -bpp 24
 
59
        break
 
60
      end
 
61
 
 
62
      opt, val = $1.split('=', 2)
 
63
 
 
64
      if opt.size == 1
 
65
        argv.unshift arg
 
66
        return nil
 
67
      elsif valopts.key? opt            # imclean --src +trash
 
68
        valopts[opt] = val || argv.shift or return nil
 
69
      elsif boolopts.key? opt           # ruby --verbose
 
70
        boolopts[opt] = true
 
71
      else
 
72
        argv.unshift arg
 
73
        return nil
 
74
      end
 
75
 
 
76
      c += 1
 
77
    when /\A-(.+)/
 
78
      opts = $1
 
79
 
 
80
      until opts.empty?
 
81
        opt = opts.slice!(0, 1)
 
82
 
 
83
        if valopts.key? opt
 
84
          val = opts
 
85
 
 
86
          if val.empty?                 # ruby -e 'p $:'
 
87
            valopts[opt] = argv.shift or return nil
 
88
          else                          # cc -ohello ...
 
89
            valopts[opt] = val
 
90
          end
 
91
 
 
92
          c += 1
 
93
          break
 
94
        elsif boolopts.key? opt
 
95
          boolopts[opt] = true          # ruby -h
 
96
          c += 1
 
97
        else
 
98
          argv.unshift arg
 
99
          return nil
 
100
        end
 
101
      end
 
102
    else
 
103
      argv.unshift arg
 
104
      break
 
105
    end
 
106
  end
 
107
 
 
108
  #
 
109
  # set
 
110
  #
 
111
  $OPT = {}
 
112
 
 
113
  boolopts.each do |opt, val|
 
114
    $OPT[opt] = val
 
115
 
 
116
    sopt = opt.gsub(/[^A-Za-z0-9_]/, '_')
 
117
    eval "$OPT_#{sopt} = val"
 
118
  end
 
119
  valopts.each do |opt, val|
 
120
    $OPT[opt] = val
 
121
 
 
122
    sopt = opt.gsub(/[^A-Za-z0-9_]/, '_')
 
123
    eval "$OPT_#{sopt} = val"
 
124
  end
 
125
 
 
126
  c
 
127
end