racc 1.4.9-java

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/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
+)

data/test/assets/err.y

@@ -0,0 +1,60 @@
+
+class ErrTestp
+
+rule
+
+target: lines
+      ;
+
+lines: line
+     | lines line
+     ;
+
+line: A B C D E
+    | error E
+    ;
+
+end
+
+---- inner
+
+def initialize
+  @yydebug = false
+  @q = [
+    [:A, 'a'],
+    # [:B, 'b'],
+    [:C, 'c'],
+    [:D, 'd'],
+    [:E, 'e'],
+
+    [:A, 'a'],
+    [:B, 'b'],
+    [:C, 'c'],
+    [:D, 'd'],
+    [:E, 'e'],
+
+    [:A, 'a'],
+    [:B, 'b'],
+    # [:C, 'c'],
+    [:D, 'd'],
+    [:E, 'e'],
+    [false, nil]
+  ]
+end
+
+def next_token
+  @q.shift
+end
+
+def on_error( t, val, values )
+  $stderr.puts "error on token '#{val}'(#{t})"
+end
+
+def parse
+  do_parse
+end
+
+---- footer
+
+p = ErrTestp.new
+p.parse

data/test/assets/expect.y

@@ -0,0 +1,7 @@
+class E
+  expect 1
+rule
+  list: inlist inlist
+  inlist:
+        | A
+end

data/test/assets/firstline.y

@@ -0,0 +1,4 @@
+class T
+rule
+  a: A B C
+end

data/test/assets/ichk.y

@@ -0,0 +1,102 @@
+class Calculator
+
+  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]; a = "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
+
+----header
+
+class Number
+end
+
+----inner
+
+  def initialize
+    @racc_debug_out = $stdout
+    @yydebug = false
+  end
+
+  def validate(expected, src)
+    result = parse(src)
+    unless result == expected
+      raise "test #{@test_number} fail"
+    end
+    @test_number += 1
+  end
+
+  def parse(src)
+    @src = src
+    @test_number = 1
+    yyparse self, :scan
+  end
+
+  def scan(&block)
+    @src.each(&block)
+  end
+
+----footer
+
+calc = Calculator.new
+
+calc.validate(9, [[Number, 9], nil])
+
+calc.validate(-3,
+    [[Number, 5],
+     ['*',   '*'],
+     [Number, 1],
+     ['-',   '*'],
+     [Number, 1],
+     ['*',   '*'],
+     [Number, 8],
+     nil])
+
+calc.validate(-1,
+    [[Number, 5],
+     ['+',   '+'],
+     [Number, 2],
+     ['-',   '-'],
+     [Number, 5],
+     ['+',   '+'],
+     [Number, 2],
+     ['-',   '-'],
+     [Number, 5],
+     nil])
+
+calc.validate(-4,
+    [['-',    'UMINUS'],
+     [Number, 4],
+     nil])
+
+calc.validate(40,
+    [[Number, 7],
+     ['*',   '*'],
+     ['(',   '('],
+     [Number, 4],
+     ['+',   '+'],
+     [Number, 3],
+     [')',   ')'],
+     ['-',   '-'],
+     [Number, 9],
+     nil])