Class: Rexical::Cmd

Inherits:
Object
  • Object
show all
Defined in:
lib/rexical/rexcmd.rb

Constant Summary collapse

OPTIONS = 
<<-EOT

o -o --output-file <outfile>  file name of output [<filename>.rb]
o -s --stub             - append stub code for debug
o -i --ignorecase       - ignore char case
o -C --check-only       - syntax check only
o -  --independent      - independent mode
o -  --matcheos         - allow match against end of string
o -d --debug            - print debug information
o -h --help             - print this message and quit
o -  --version          - print version and quit
o -  --copyright        - print copyright and quit

EOT

Instance Method Summary collapse

Constructor Details

#initialize ⇒ Cmd

Returns a new instance of Cmd.



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
 
# File 'lib/rexical/rexcmd.rb', line 64

def initialize
  @status  =  2
  @cmd  =  File.basename($0, ".rb")
  tmp  =  OPTIONS.lines.collect do |line|
      next if /\A\s*\z/ === line
      # disp, sopt, lopt, takearg, doc
      _, sopt, lopt, takearg, _  =  line.strip.split(/\s+/, 5)
      a  =  []
      a.push lopt    unless lopt == '-'
      a.push sopt    unless sopt == '-'
      a.push takearg == '-' ?
             GetoptLong::NO_ARGUMENT : GetoptLong::REQUIRED_ARGUMENT
      a
  end
  getopt  =  GetoptLong.new(*tmp.compact)
  getopt.quiet  =  true

  @opt  =  {}
  begin
    getopt.each do |name, arg|
      raise GetoptLong::InvalidOption,
          "#{@cmd}: #{name} given twice" if @opt.key? name
      @opt[name]  =  arg.empty? ? true : arg
    end
  rescue GetoptLong::AmbigousOption, GetoptLong::InvalidOption,
         GetoptLong::MissingArgument, GetoptLong::NeedlessArgument
    usage $!.message
  end

  usage    if @opt['--help']

  if @opt['--version']
    puts "#{@cmd} version #{Rexical::VERSION}"
    exit 0
  end
  if @opt['--copyright']
    puts "#{@cmd} version #{Rexical::VERSION}"
    puts "#{Rexical::Copyright} <#{Rexical::Mailto}>"
    exit 0
  end
end

Instance Method Details

#run ⇒ Object 



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
 
# File 'lib/rexical/rexcmd.rb', line 33

def run
  @status  =  1
  usage 'no grammar file given'    if ARGV.empty?
  usage 'too many grammar files given'    if ARGV.size > 1
  filename  =  ARGV[0]

  rex  =  Rexical::Generator.new(@opt)
  begin
    rex.grammar_file  =  filename
    rex.read_grammar
    rex.parse
    if @opt['--check-only']
      $stderr.puts "syntax ok"
      return  0
    end
    rex.write_scanner
    @status  =  0

  rescue Rexical::ParseError, Errno::ENOENT
    msg  =  $!.to_s
    unless /\A\d/ === msg
      msg[0,0]  =  ' '
    end
    $stderr.puts "#{@cmd}:#{rex.grammar_file}:#{rex.lineno}:#{msg}"

  ensure
    exit @status

  end
end

#usage(msg = nil) ⇒ Object 



106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
 
# File 'lib/rexical/rexcmd.rb', line 106

def usage( msg=nil )
  f  =  $stderr
  f.puts "#{@cmd}: #{msg}"  if msg
  f.print <<-EOT
Usage: #{@cmd} [options] <grammar file>
Options:
  EOT

  OPTIONS.each_line do |line|
    next if line.strip.empty?
    if /\A\s*\z/ === line
      f.puts
      next
    end

    disp, sopt, lopt, takearg, doc  =  line.strip.split(/\s+/, 5)
    if disp == 'o'
      sopt  =  nil if sopt == '-'
      lopt  =  nil if lopt == '-'
      opt  =  [sopt, lopt].compact.join(',')

      takearg  =  nil if takearg == '-'
      opt  =  [opt, takearg].compact.join(' ')

      f.printf "%-27s %s\n", opt, doc
    end
  end

  exit @status
end