racc 1.4.6

data/tasks/doc.rb

@@ -0,0 +1,12 @@
+require 'rake/rdoctask'
+
+Rake::RDocTask.new(:docs) do |rd|
+  rd.main = "README.en.rdoc"
+  rd.rdoc_files.include(SPEC.files.find_all { |file_name|
+    file_name =~ /^(bin|lib|ext)/ || file_name !~ /\//
+  })
+
+  title = "#{SPEC.name}-#{SPEC.version} Documentation"
+
+  rd.options << "-t #{title}"
+end

data/tasks/email.rb

@@ -0,0 +1,55 @@
+class EmailTask
+  def initialize language, readme, changelog
+    @language   = language
+    @readme     = readme
+    @changelog  = changelog
+    @languages = {
+      :en => {
+        :release  => 'release',
+        :released => 'has been released',
+      },
+      :ja => {
+        :release  => 'リリース',
+        :released => 'はリリースしました',
+      }
+    }
+    define_tasks
+  end
+
+  private
+  def define_tasks
+    namespace :email do
+      task @language do
+        subject = "#{SPEC.name} #{SPEC.version} #{@languages[@language][:release]}"
+        title = "#{SPEC.name} #{SPEC.version} #{@languages[@language][:released]}!"
+        readme = Hash[*(File.read(@readme).split(/^(=+ .*)$/)[1..-1])]
+        description = readme[readme.keys.find { |x| x =~ /description/i }]
+        description = description.split(/\n\n+/).find { |x|
+          x.length > 0
+        }.gsub(/^\s*/, '')
+        urls = readme[readme.keys.find { |x| x =~ /#{SPEC.name}/i }]
+        urls = urls.strip.gsub(/\*\s/, '').split(/\n/).map { |s| "* <#{s}>" }
+        File.open("email.#{@language}.txt", "wb") { |file|
+          file.puts(<<-eomail)
+Subject: [ANN] #{subject}
+
+#{title}
+
+#{urls.join("\n")}
+
+#{description}
+
+Changes:
+
+#{File.read(@changelog).split(/^(===.*)/)[1..2].join.strip.gsub(/=/, '#')}
+
+#{urls.join("\n")}
+eomail
+        }
+      end
+    end
+  end
+end
+
+EmailTask.new(:en, 'README.en.rdoc', 'doc/en/NEWS.en.rdoc')
+EmailTask.new(:ja, 'README.ja.rdoc', 'doc/ja/NEWS.ja.rdoc')

data/tasks/file.rb

@@ -0,0 +1,37 @@
+kind = Config::CONFIG['DLEXT']
+
+EXT = "ext/racc/cparse/cparse.#{kind}"
+[
+  EXT,
+  'lib/racc/parser-text.rb',
+  'ext/racc/cparse/Makefile',
+  'ext/racc/cparse/*.o',
+].each { |f| Dir[f].each { |file| CLEAN << file } }
+
+file 'lib/racc/parser.rb'
+
+file 'lib/racc/parser-text.rb' => ['lib/racc/parser.rb'] do |t|
+  File.open(t.name, 'wb') { |file|
+    file.write(<<-eorb)
+module Racc
+  PARSER_TEXT = <<'__end_of_file__'
+  #{File.read(t.prerequisites.first)}
+__end_of_file__
+end
+    eorb
+  }
+end
+
+task 'ext/racc/cparse/Makefile' do
+  Dir.chdir('ext/racc/cparse') do
+    ruby "extconf.rb"
+  end
+end
+
+task EXT => 'ext/racc/cparse/Makefile' do
+  Dir.chdir('ext/racc/cparse') do
+    sh 'make'
+  end
+end
+
+task :build => ['lib/racc/parser-text.rb', EXT]

data/tasks/gem.rb

@@ -0,0 +1,37 @@
+SPEC = Gem::Specification.new do |s|
+  s.platform      = Gem::Platform::RUBY
+  s.summary       = "Racc is a LALR(1) parser generator."
+  s.name          = 'racc'
+  s.authors       << 'Aoki Minero'
+  s.authors       << 'Aaron Patterson'
+  s.email         = 'aaronp@rubyforge.org'
+  s.version       = Racc::Parser::Racc_Runtime_Version
+  s.require_paths = Dir['{lib,ext}']
+  s.extensions    = ['ext/racc/cparse/extconf.rb']
+  s.files         = `git ls-files`.split("\n") + ['lib/racc/parser-text.rb']
+  s.homepage      = 'http://racc.rubyforge.org/'
+  s.rdoc_options  = ['--main', 'README.en.rdoc']
+  s.has_rdoc      = true
+  s.rubyforge_project = s.name
+  s.executables   = s.files.grep(/^bin/) { |f| File.basename(f) }
+  s.bindir        = "bin"
+  s.description = <<EOF
+Racc is a LALR(1) parser generator.
+It is written in Ruby itself, and generates Ruby program.
+EOF
+end
+
+namespace :gem do
+  namespace :dev do
+    task :spec => SPEC.files do
+      File.open("#{SPEC.name}.gemspec", 'w') do |f|
+        SPEC.version = "#{SPEC.version}.#{Time.now.strftime("%Y%m%d%H%M%S")}"
+        f.write(SPEC.to_ruby)
+      end
+    end
+  end
+end
+
+Rake::GemPackageTask.new(SPEC) do |pkg|
+  pkg.need_tar = true
+end

data/tasks/test.rb

@@ -0,0 +1,16 @@
+namespace :test do
+  task :multi do
+    sh 'multiruby -S rake clean test'
+  end
+end
+
+Rake::TestTask.new do |t|
+  %w[ ext lib ].each do |dir|
+    t.libs << dir
+  end
+
+  t.test_files = FileList['test/test_*.rb']
+  t.verbose = true
+end
+
+Rake::Task[:test].prerequisites << :build

data/test/assets/chk.y

@@ -0,0 +1,126 @@
+#
+# racc tester
+#
+
+class Calcp
+
+  prechigh
+    left '*' '/'
+    left '+' '-'
+  preclow
+
+  convert
+    NUMBER 'Number'
+  end
+
+rule
+
+  target : exp | /* none */ { result = 0 } ;
+
+  exp    : exp '+' exp { result += val[2]; @plus = 'plus' }
+         | exp '-' exp { result -= val[2]; @str = "string test" }
+         | exp '*' exp { result *= val[2] }
+         | exp '/' exp { result /= val[2] }
+         | '(' { $emb = true } exp ')'
+             {
+               raise 'must not happen' unless $emb
+               result = val[2]
+             }
+         | '-' NUMBER  { result = -val[1] }
+         | NUMBER
+         ;
+
+end
+
+----header
+
+class Number; end
+
+----inner
+
+  def parse( src )
+    $emb = false
+    @plus = nil
+    @str = nil
+    @src = src
+    result = do_parse
+    if @plus
+      raise 'string parse failed' unless @plus == 'plus'
+    end
+    if @str
+      raise 'string parse failed' unless @str == 'string test'
+    end
+    result
+  end
+
+  def next_token
+    @src.shift
+  end
+
+  def initialize
+    @yydebug = true
+  end
+
+----footer
+
+$parser = Calcp.new
+$test_number = 1
+
+def chk( src, ans )
+  result = $parser.parse(src)
+  raise "test #{$test_number} fail" unless result == ans
+  $test_number += 1
+end
+
+chk(
+  [ [Number, 9],
+    [false, false],
+    [false, false] ], 9
+)
+
+chk(
+  [ [Number, 5],
+    ['*', nil],
+    [Number, 1],
+    ['-', nil],
+    [Number, 1],
+    ['*', nil],
+    [Number, 8],
+    [false, false],
+    [false, false] ], -3
+)
+
+chk(
+  [ [Number, 5],
+    ['+', nil],
+    [Number, 2],
+    ['-', nil],
+    [Number, 5],
+    ['+', nil],
+    [Number, 2],
+    ['-', nil],
+    [Number, 5],
+    [false, false],
+    [false, false] ], -1
+)
+
+chk(
+  [ ['-', nil],
+    [Number, 4],
+    [false, false],
+    [false, false] ], -4
+)
+
+chk(
+  [ [Number, 7],
+    ['*', nil],
+    ['(', nil],
+    [Number, 4],
+    ['+', nil],
+    [Number, 3],
+    [')', nil],
+    ['-', nil],
+    [Number, 9],
+    [false, false],
+    [false, false] ], 40
+)

data/test/assets/conf.y

@@ -0,0 +1,16 @@
+
+class A
+rule
+
+a: A c C expr;
+
+b: A B;  # useless
+
+c: A;
+c: A;
+
+expr: expr '+' expr
+expr: expr '-' expr
+expr: NUMBER
+
+end

data/test/assets/digraph.y

@@ -0,0 +1,29 @@
+# ? detect digraph bug
+
+class P
+  token A B C D
+rule
+  target : a b c d
+  a      : A
+         |
+  b      : B
+         |
+  c      : C
+         |
+  d      : D
+         |
+end
+
+---- inner
+
+  def parse
+    do_parse
+  end
+
+  def next_token
+    [false, '$']
+  end
+
+---- footer
+
+P.new.parse

data/test/assets/echk.y

@@ -0,0 +1,118 @@
+#
+# racc tester
+#
+
+class Calcp
+
+  prechigh
+    left '*' '/'
+    left '+' '-'
+  preclow
+
+  convert
+    NUMBER 'Number'
+  end
+
+rule
+
+  target : exp | /* none */ { result = 0 } ;
+
+  exp    : exp '+' exp { result += val[2]; a = 'plus' }
+         | exp '-' exp { result -= val[2]; "string test" }
+         | exp '*' exp { result *= val[2] }
+         | exp '/' exp { result /= val[2] }
+         | '(' { $emb = true } exp ')'
+             {
+               raise 'must not happen' unless $emb
+               result = val[2]
+             }
+         | '-' NUMBER  { result = -val[1] }
+         | NUMBER
+         ;
+
+end
+
+----header
+
+class Number ; end
+
+----inner
+
+  def parse( src )
+    @src = src
+    do_parse
+  end
+
+  def next_token
+    @src.shift
+  end
+
+  def initialize
+    @yydebug = true
+  end
+
+----footer
+
+$parser = Calcp.new
+$tidx = 1
+
+def chk( src, ans )
+  ret = $parser.parse( src )
+  unless ret == ans then
+    bug! "test #{$tidx} fail"
+  end
+  $tidx += 1
+end
+
+chk(
+  [ [Number, 9],
+    [false, false],
+    [false, false] ], 9
+)
+
+chk(
+  [ [Number, 5],
+    ['*', nil],
+    [Number, 1],
+    ['-', nil],
+    [Number, 1],
+    ['*', nil],
+    [Number, 8],
+    [false, false],
+    [false, false] ], -3
+)
+
+chk(
+  [ [Number, 5],
+    ['+', nil],
+    [Number, 2],
+    ['-', nil],
+    [Number, 5],
+    ['+', nil],
+    [Number, 2],
+    ['-', nil],
+    [Number, 5],
+    [false, false],
+    [false, false] ], -1
+)
+
+chk(
+  [ ['-', nil],
+    [Number, 4],
+    [false, false],
+    [false, false] ], -4
+)
+
+chk(
+  [ [Number, 7],
+    ['*', nil],
+    ['(', nil],
+    [Number, 4],
+    ['+', nil],
+    [Number, 3],
+    [')', nil],
+    ['-', nil],
+    [Number, 9],
+    [false, false],
+    [false, false] ], 40
+)