зеркало из https://github.com/github/ruby.git
52 строки
1011 B
Ruby
52 строки
1011 B
Ruby
#
|
|
# racc scanner tester
|
|
#
|
|
|
|
require 'racc/raccs'
|
|
|
|
|
|
class ScanError < StandardError; end
|
|
|
|
def testdata( dir, argv )
|
|
if argv.empty? then
|
|
Dir.glob( dir + '/*' ) -
|
|
Dir.glob( dir + '/*.swp' ) -
|
|
[ dir + '/CVS' ]
|
|
else
|
|
argv.collect {|i| dir + '/' + i }
|
|
end
|
|
end
|
|
|
|
|
|
if ARGV.delete '--print' then
|
|
$raccs_print_type = true
|
|
printonly = true
|
|
else
|
|
printonly = false
|
|
end
|
|
|
|
testdata( File.dirname($0) + '/scandata', ARGV ).each do |file|
|
|
$stderr.print File.basename(file) + ': '
|
|
begin
|
|
ok = File.read(file)
|
|
s = Racc::GrammarFileScanner.new( ok )
|
|
sym, (val, _lineno) = s.scan
|
|
if printonly then
|
|
$stderr.puts
|
|
$stderr.puts val
|
|
next
|
|
end
|
|
|
|
val = '{' + val + "}\n"
|
|
sym == :ACTION or raise ScanError, 'is not action!'
|
|
val == ok or raise ScanError, "\n>>>\n#{ok}----\n#{val}<<<"
|
|
|
|
$stderr.puts 'ok'
|
|
rescue => err
|
|
$stderr.puts 'fail (' + err.type.to_s + ')'
|
|
$stderr.puts err.message
|
|
$stderr.puts err.backtrace
|
|
$stderr.puts
|
|
end
|
|
end
|