rockit 0.7.1

data/tests/acceptance/rockit/dparser/atest_samples_minibasic.rb

@@ -0,0 +1,20 @@
+require 'test/unit'
+require 'rockit/dparser'
+
+require 'minibasic/minibasic_grammar'
+
+class ATestSamplesMinibasic < Test::Unit::TestCase
+  # Test the String regexp by itself since it is special
+  StringTermGrammar = Rockit::DParser::Grammar.new do
+    start :S, [["PRINT", :String, value(1)]]
+    term :String, /"[^"]*"/
+  end
+
+  def test_01_string_term
+    parser = StringTermGrammar.new_parser
+    value = parser.parse 'PRINT "a"'
+    assert_equal('"a"', value)
+  end
+
+  MiniBasicParser = Samples::MiniBasicGrammar.new_parser
+end

data/tests/acceptance/rockit/dparser/atest_samples_multifunccalculator.rb

@@ -0,0 +1,36 @@
+require 'test/unit'
+require 'rockit/dparser'
+require 'calculator/multifunc_calculator'
+
+require File.join(File.dirname(__FILE__), "calc_tests_common")
+
+class ATestSamplesMultiFuncCalc < Test::Unit::TestCase
+  include CalcTestsCommon
+
+  def setup
+    @grammar = Samples::MultiFuncCalcGrammar
+    @calculator = Samples::MultiFuncCalculator.new
+  end
+
+  def test_10_eval
+    assert_calc(8, "2^3")
+
+    # The calculator is the same between successive calls to assert_calc so
+    # the variables should retain their values
+    assert_calc(1, "a = 1")
+    assert_calc(-2, "b=-2")
+    assert_calc(-1, "a+b")
+    assert_calc(-97, "c = (3 - 100)")
+    assert_calc(-2*-97+(4*1), "(b*c)+(4*a)")
+
+    assert_calc(Math.log(2), "ln(2)")
+  end
+
+  def test_11_exponentiation_is_right_associative
+    assert_calc(2**(3**3), "2^3^3")
+  end
+
+  def test_12_precedence_and_associativity
+    assert_calc(15, "1+2*3^2-4")
+  end
+end

data/tests/acceptance/rockit/dparser/atest_simple_grammar.rb

@@ -0,0 +1,34 @@
+require 'test/unit'
+require 'rockit/dparser'
+
+class ATestSimpleGrammar < Test::Unit::TestCase
+  SimpleTestGrammar = Rockit::DParser::Grammar.new do
+    start :Str, [[:A, :B, :A, :C, ast(:Str, 0, 1, 3)]]
+    term :A, ["a"]
+    term :B, ["b"]
+    term :C, ["c"]
+  end
+
+  def test_01_creation_of_grammar
+    assert_kind_of(Rockit::DParser::Grammar, SimpleTestGrammar)
+    assert_equal(1, SimpleTestGrammar.rules.length)
+    assert_equal(3, SimpleTestGrammar.terms.values.length)
+    assert_equal(:Str, SimpleTestGrammar.start_symbol)
+  end
+
+  def test_02_creation_of_parser
+    parser = SimpleTestGrammar.new_parser
+    assert_kind_of(Rockit::DParser::Parser, parser)
+  end
+
+  def test_03_use_parser
+    parser = SimpleTestGrammar.new_parser
+    ast = parser.parse "ab a\tc"
+    assert_equal("Str", ast.name)
+    assert_kind_of(parser.astclass_of_name(:Str), ast)
+    assert_equal(3, ast.num_children)
+    assert_equal("a", ast[0])
+    assert_equal("b", ast[1])
+    assert_equal("c", ast[2])
+  end
+end

data/tests/acceptance/rockit/dparser/atest_speculative_code_action.rb

@@ -0,0 +1,128 @@
+require 'test/unit'
+require 'rockit/dparser'
+require 'rockit/symbol_table'
+
+class ATestSpeculativeCodeAction < Test::Unit::TestCase
+  TestGrammar = Rockit::DParser::Grammar.new do
+    start :S, [[:Id, ast(:S, 0)]]
+    rule :Id, [[:AIdent]]
+
+    rule :AIdent, [
+      [:Ident, 
+	# Speculative code that rejects match unless the ident starts with "A"
+	speculative do |parser|
+	  parser.reject if parser.get_value_of_child(0)[0,1] != "A"
+	end,
+	# Final code
+	ast(:A, 0),
+      ]      
+    ]
+
+    term :Ident, /[A-Za-z]+/
+  end
+
+  def test_01_no_reject
+    parser = TestGrammar.new_parser
+    ast = parser.parse "ABBA"
+    assert_equal("S", ast.name)
+    assert_kind_of(parser.astclass_of_name(:S), ast)
+    assert_equal(1, ast.num_children)
+    assert_kind_of(parser.astclass_of_name(:A), ast[0])
+    assert_equal(1, ast[0].num_children)
+    assert_equal("ABBA", ast[0][0])
+  end
+
+  def test_02_reject
+    parser = TestGrammar.new_parser
+    # Make sure "CDE" is not a valid parse even though it matches Ident
+    # since it should be rejected by the speculative action code
+    assert_raises(RuntimeError) {ast = parser.parse "CDE"}
+    assert_raises(RuntimeError) {ast = parser.parse "B"}
+    assert_raises(RuntimeError) {ast = parser.parse "D"}
+    assert_raises(RuntimeError) {ast = parser.parse "G"}
+  end
+
+  # This example is a more realistic one with a SymbolTable that saves
+  # symbols and indicates that they are type names.
+  SymbolTableTestGrammar = Rockit::DParser::Grammar.new do
+    parser_include Rockit::ParserSymbolTable
+
+    start :TranslationUnit, [
+      [mult(:Declaration), plus(:Assignment)],
+    ], ast(:TU, 0, 1)
+
+    rule :Assignment, [
+      [:Identifier, "=", :Identifier, ast(:Assign, 0, 2)],
+    ]
+
+    rule :Declaration, [
+      [plus(:StorageClassSpecifier), :Identifier, ";", 
+
+        # Speculative code that inserts identifier into symbol table
+        # if it is a typedef.
+	speculative do |parser|
+          e0, e1 = parser.get_value_of_child(0), parser.get_value_of_child(1)
+	  if e0.include?("typedef") && e1.name == "Identifier"
+	    parser.symbol_table.add_typename(e1[0])
+	  end
+	end,
+
+	ast(:Declaration, 0, 1),
+      ],
+    ]
+
+    rule :StorageClassSpecifier, [
+      ['auto'], ['register'], ['static'], ['extern'], ['typedef'],
+    ]
+
+    rule :Identifier, [
+      [:Ident, 
+
+	# Speculative code here that rejects the ident if it is in the 
+	# symbol table and is a type name
+	speculative do |parser|
+	  e0 = parser.get_value_of_child(0)
+	  parser.reject if parser.symbol_table.typename?(e0)
+	end,
+
+	ast(:Identifier, 0)
+      ]
+    ]
+
+    term :Ident, /[A-Za-z]+/
+  end  
+
+  def test_03_valid_with_symbol_table_but_without_typedef
+    parser = SymbolTableTestGrammar.new_parser
+    ast = parser.parse "A = B"
+    assert_equal("TU", ast.name)
+    assert_kind_of(parser.astclass_of_name(:TU), ast)
+    assert_equal(2, ast.num_children)
+    assert_equal(0, ast[0].length)
+    assert_equal(1, ast[1].length)
+    assert_equal("Assign", ast[1][0].name)    
+    assert_equal("A", ast[1][0][0][0])
+    assert_equal("B", ast[1][0][1][0])
+  end
+
+  def test_03_valid_with_symbol_table_and_typedef
+    parser = SymbolTableTestGrammar.new_parser
+    ast = parser.parse "typedef C; A = B"
+    assert_equal("TU", ast.name)
+    assert_kind_of(parser.astclass_of_name(:TU), ast)
+    assert_equal(2, ast.num_children)
+    assert_equal(1, ast[0].length)
+    assert_equal("Declaration", ast[0][0].name)    
+    assert_equal("C", ast[0][0][1][0])
+    assert_equal(1, ast[1].length)
+    assert_equal("Assign", ast[1][0].name)    
+  end
+
+  def test_04_invalid_with_typedef_and_symbol_table
+    parser = SymbolTableTestGrammar.new_parser
+    # Should not parse ok since the typedef means the A cannot later be an
+    # identifier.
+    assert_raises(RuntimeError) {ast = parser.parse "typedef A; A = B"}
+    assert_raises(RuntimeError) {ast = parser.parse "typedef B; A = B"}
+  end
+end

data/tests/acceptance/rockit/dparser/calc_tests_common.rb

@@ -0,0 +1,103 @@
+# Tests common to several calculators
+module CalcTestsCommon
+  def parser
+    @parser ||= @grammar.new_parser
+  end
+
+  def test_01_grammar
+    assert_kind_of(Rockit::DParser::Grammar, @grammar)
+  end
+
+  def test_02_creation_of_parser
+    assert_kind_of(Rockit::DParser::Parser, parser)
+  end
+
+  def test_03_constant
+    ast = parser.parse "1234567890"
+    assert_equal("Constant", ast.name)
+    assert_kind_of(parser.astclass_of_name(:Constant), ast)
+    assert_equal(1, ast.num_children)
+    assert_equal("1234567890", ast[0])
+    assert_equal("1234567890", ast.num)
+  end
+
+  Ops = [["+", :Plus], ["-", :Minus], ["*", :Mul], ["/", :Div]] 
+
+  def test_04_operators
+    Ops.each do |op, n|
+      num1, num2 = rand(10).to_s, rand(10).to_s
+      str = num1 + op + num2
+      ast = parser.parse str
+      assert_equal(n.to_s, ast.name)
+      assert_kind_of(parser.astclass_of_name(n), ast)
+      assert_equal(2, ast.num_children)
+
+      assert_kind_of(parser.astclass_of_name(:Constant), ast[0])
+      assert_equal(num1, ast[0].num)
+      assert_kind_of(parser.astclass_of_name(:Constant), ast.left)
+      assert_equal(num1, ast.left.num)
+
+      assert_kind_of(parser.astclass_of_name(:Constant), ast[1])
+      assert_equal(num2, ast[1].num)
+      assert_kind_of(parser.astclass_of_name(:Constant), ast.right)
+      assert_equal(num2, ast.right.num)
+    end
+  end
+
+  def test_05_paren
+    ast = parser.parse "2 * (4 + 67)"
+    assert_kind_of(parser.astclass_of_name(:Mul), ast)
+    assert_equal(2, ast.num_children)
+
+    assert_kind_of(parser.astclass_of_name(:Constant), ast.left)
+    assert_equal("2", ast.left.num)
+
+    assert_kind_of(parser.astclass_of_name(:Plus), ast.right)
+
+    assert_kind_of(parser.astclass_of_name(:Constant), ast.right.left)
+    assert_equal("4", ast.right.left.num)
+
+    assert_kind_of(parser.astclass_of_name(:Constant), ast.right.right)
+    assert_equal("67", ast.right.right.num)
+
+    assert_equal('Mul[Constant["2"], Plus[Constant["4"], Constant["67"]]]',
+		 ast.inspect)
+  end
+
+  def assert_calc(expected, str)
+    assert_equal(expected, @calculator.eval(parser.parse(str)))
+  end
+
+  def test_06_left_associative_operators
+    Ops.each do |op, name|
+      ast = parser.parse "1 #{op} 2 #{op} 3"
+      assert_kind_of(parser.astclass_of_name(name), ast)
+
+      assert_kind_of(parser.astclass_of_name(name), ast.left)
+      assert_equal("1", ast.left.left.num)
+      assert_equal("2", ast.left.right.num)
+
+      assert_kind_of(parser.astclass_of_name(:Constant), ast.right)
+      assert_equal("3", ast.right.num)
+    end
+  end
+
+  def test_07_mul_higher_precedence_than_plus
+    ast = parser.parse "1 + 2 * 3"
+    assert_kind_of(parser.astclass_of_name(:Plus), ast)
+
+    assert_kind_of(parser.astclass_of_name(:Constant), ast.left)
+    assert_equal("1", ast.left.num)
+
+    assert_kind_of(parser.astclass_of_name(:Mul), ast.right)
+    assert_equal("2", ast.right.left.num)
+    assert_equal("3", ast.right.right.num)
+  end
+
+  def test_08_eval
+    assert_calc(2, "2")
+    assert_calc(2 * (4+67), "2 * (4 + 67)")
+    assert_calc(987 * (456+671), "987*(456+671)")
+    assert_calc((9-5) * (100/10), "(9-5) * (100/10)")
+  end
+end

data/tests/unit/packrat/test_interpreting_parser.rb

@@ -0,0 +1,296 @@
+require 'test/unit'
+
+require 'packrat/grammar'
+
+class TestInterpretingParser < Test::Unit::TestCase
+  def test_01_grammar_with_single_production_with_single_regexp
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [/a+/]
+    end
+    ip = g.interpreting_parser
+
+    res1 = ip.parse_string("a")
+    assert_equal([:s, "a"], res1)
+
+    res2 = ip.parse_string("aaaa")
+    assert_equal([:s, "aaaa"], res2)
+
+    res3 = ip.parse_string("b")
+    assert_equal(false, res3)
+  end
+
+  def test_02_grammar_with_single_production_with_multiple_regexps
+    g = Packrat::Grammar.new do
+      start_symbol :first
+      prod :first, [/a+/, /b+/, /dc*/]
+    end
+    ip = g.interpreting_parser
+
+    res1 = ip.parse_string("abbd")
+    assert_equal([:first, "a", "bb", "d"], res1)    
+
+    res2 = ip.parse_string("aaabdcc")
+    assert_equal([:first, "aaa", "b", "dcc"], res2)
+
+    res2 = ip.parse_string("aaabdcc")
+    assert_equal([:first, "aaa", "b", "dcc"], res2)
+  end
+
+  def test_03_grammar_with_single_rule_with_multi_prods
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      rule :s, [
+        [/a+/, /b+/, /dc*/],
+        [/a+/, /d+/]
+      ]
+    end
+    ip = g.interpreting_parser
+
+    res1 = ip.parse_string("aaabdcc")
+    assert_equal([:s, "aaa", "b", "dcc"], res1)
+
+    res2 = ip.parse_string("ad")
+    assert_equal([:s, "a", "d"], res2)
+
+    res3 = ip.parse_string("abc")
+    assert_equal(false, res3)
+  end
+
+  def test_04_grammar_with_single_rule_and_ref_to_one_external_prod
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      rule :s, [
+        [:a, /b+/, /dc*/],
+        [:a, /d+/]
+      ]
+      prod :a, [/a+/]
+    end
+    ip = g.interpreting_parser
+
+    res1 = ip.parse_string("aaabdcc")
+    assert_equal([:s, [:a, "aaa"], "b", "dcc"], res1)
+
+    res2 = ip.parse_string("ad")
+    assert_equal([:s, [:a, "a"], "d"], res2)
+
+    res3 = ip.parse_string("abc")
+    assert_equal(false, res3)
+  end
+
+  def test_05_grammar_with_multi_rules
+    g = Packrat::Grammar.new do
+      start_symbol :Constant
+      rule :Constant, [
+        [:DecimalInt], 
+        [:HexInt], 
+        [:OctalInt], 
+      ]
+      rule :DecimalInt, [[/[1-9][0-9]*[uUlL]?/]]
+      rule :HexInt,     [[/(0x|0X)[0-9a-fA-F]+[uUlL]?/]]
+      prod :OctalInt,   [/0[0-7]*[uUlL]?/]
+    end
+    ip = g.interpreting_parser
+
+    res1 = ip.parse_string("123L")
+    assert_equal([:Constant, [:DecimalInt, "123L"]], res1)
+
+    res2 = ip.parse_string("0xad97")
+    assert_equal([:Constant, [:HexInt, "0xad97"]], res2)
+
+    res3 = ip.parse_string("02376")
+    assert_equal([:Constant, [:OctalInt, "02376"]], res3)
+
+    res4 = ip.parse_string("xg")
+    assert_equal(false, res4)
+  end
+
+  def test_06_plus
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [plus(/ab/), /c/]
+    end
+    ip = g.interpreting_parser
+
+    res1 = ip.parse_string("abababc")
+    assert_equal([:s, ["ab", "ab", "ab"], "c"], res1)
+
+    res2 = ip.parse_string("c")
+    assert_equal(false, res2)
+  end
+
+  def test_07_mult
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [mult(/ab/), /c/]
+    end
+    ip = g.interpreting_parser
+
+    res1 = ip.parse_string("abababc")
+    assert_equal([:s, ["ab", "ab", "ab"], "c"], res1)
+
+    res2 = ip.parse_string("c")
+    assert_equal([:s, [], "c"], res2)
+  end
+
+  def test_08_rep
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [rep(2, 4, /ab/), /c/]
+    end
+    ip = g.interpreting_parser
+
+    r = ip.parse_string("ababc")
+    assert_equal([:s, ["ab", "ab"], "c"], r)
+
+    r = ip.parse_string("abababc")
+    assert_equal([:s, ["ab", "ab", "ab"], "c"], r)
+
+    r = ip.parse_string("ababababc")
+    assert_equal([:s, ["ab", "ab", "ab", "ab"], "c"], r)
+
+    r = ip.parse_string("c")
+    assert_equal(false, r)
+
+    r = ip.parse_string("abc")
+    assert_equal(false, r)
+
+    r = ip.parse_string("abababababc")
+    assert_equal(false, r)
+  end
+
+  def test_09_maybe
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [maybe(/ab/), /c/]
+    end
+    ip = g.interpreting_parser
+    
+    r = ip.parse_string("c")
+    assert_equal([:s, nil, "c"], r)
+
+    r = ip.parse_string("abc")
+    assert_equal([:s, "ab", "c"], r)
+  end
+
+  def test_10_string_literal
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, ["a*b+()", /c/]
+    end
+    ip = g.interpreting_parser
+
+    r = ip.parse_string("c")
+    assert_equal(false, r)
+
+    r = ip.parse_string("abbc")
+    assert_equal(false, r)
+
+    r = ip.parse_string("a*b+()c")
+    assert_equal([:s, "a*b+()", "c"], r)
+  end
+
+  def test_11_lift
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [/a+/, /b+/, lift(1)]
+    end
+    ip = g.interpreting_parser
+
+    r = ip.parse_string("abb")
+    assert_equal("bb", r)
+
+    r = ip.parse_string("bb")
+    assert_equal(false, r)
+  end
+
+  def test_12_sexpr
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [/a+/, /b+/, sexpr(:a)]
+    end
+    ip = g.interpreting_parser
+
+    r = ip.parse_string("abb")
+    assert_equal([:a, "a", "bb"], r)
+
+    r = ip.parse_string("bb")
+    assert_equal(false, r)
+  end
+
+  def test_13_any_with_strings
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [/\d+/, any('+', '*', '/'), /\d+/]
+    end
+    ip = g.interpreting_parser
+
+    r = ip.parse_string("12+34")
+    assert_equal([:s, "12", "+", "34"], r)
+
+    r = ip.parse_string("5*6")
+    assert_equal([:s, "5", "*", "6"], r)
+
+    r = ip.parse_string("7/18")
+    assert_equal([:s, "7", "/", "18"], r)
+  end
+
+  def test_13_any_with_prods
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      prod :s, [/\d+/, any(:plus, :mult, "/"), /\d+/]
+      prod :plus, ["+", lift(0)]
+      prod :mult, ["*", lift(0)]
+    end
+    ip = g.interpreting_parser
+
+    r = ip.parse_string("12+34")
+    assert_equal([:s, "12", "+", "34"], r)
+
+    r = ip.parse_string("5*6")
+    assert_equal([:s, "5", "*", "6"], r)
+
+    r = ip.parse_string("7/18")
+    assert_equal([:s, "7", "/", "18"], r)
+  end
+
+  def test_14_ast
+    g = Packrat::Grammar.new do
+      start_symbol :s
+      rule :s, [
+        [:Num, lift(0)],
+        [:Id,  lift(0)],
+      ]
+      prod :Num, [/\d+/, ast(:Num)]
+      prod :Id,  ["ID", :Num, maybe("?"), ast(:Id)]
+    end
+    ip = g.interpreting_parser
+
+    mAst = g::ASTs
+    assert_kind_of(Module, mAst)
+    
+    r = ip.parse_string("1")
+
+    # The AST classes are added during the parse so now we can see
+    # that they are there.
+    assert_kind_of(Class, mAst.const_get("Num"))
+    assert(mAst::Num.ancestors.include?(Packrat::AST))
+
+    as = mAst::Num[]
+    assert_kind_of(mAst::Num, as)
+
+    assert_kind_of(Packrat::AST, r)
+    assert_equal('Num["1"]', r.inspect)
+    assert_equal("1", r[0])
+
+    r = ip.parse_string("ID10")
+    assert_kind_of(Class, mAst.const_get("Id"))
+    assert(mAst::Id.ancestors.include?(Packrat::AST))
+    assert_kind_of(Packrat::AST, r)
+    assert_equal('Id["ID", Num["10"], nil]', r.inspect)
+    assert_equal("ID", r[0])
+    assert_equal("10", r[1][0])
+    assert_equal(nil,  r[2])
+    assert_equal("10", r.num[0])
+  end
+end

data/tests/unit/parse/utest_ebnf_grammar.rb

@@ -0,0 +1,50 @@
+require 'test/unit'
+
+require 'parse/ebnf_grammar'
+include Parse::Grammar
+
+class UT_Parse_ebnf_grammar < Test::Unit::TestCase
+  def test_01_Maybe_expansion
+    g = Grammar.new do
+      r :Start, [
+        [maybe(:A), "1"]
+      ]
+      r :A, ["a"]
+    end
+    g.expand!
+    assert_equal(3, g.nonterminals.length)
+  end
+
+  def test_02_Plus_expansion
+    g = Grammar.new do
+      r :Start, [
+        [plus(:A), "1"]
+      ]
+      r :A, ["a"]
+    end
+    g.expand!
+    assert_equal(4, g.nonterminals.length)
+  end
+
+  def test_03_Mult_expansion
+    g = Grammar.new do
+      r :Start, [
+        [mult(:A), "1"]
+      ]
+      r :A, ["a"]
+    end
+    g.expand!
+    assert_equal(3, g.nonterminals.length)
+  end
+
+  def test_04_Group_expansion
+    g = Grammar.new do
+      r :Start, [
+        [group("1", "2"), "3"]
+      ]
+    end
+    g.expand!
+    puts g.inspect
+    assert_equal(2, g.nonterminals.length)
+  end
+end

data/tests/unit/parse/utest_expand_grammar.rb

@@ -0,0 +1,23 @@
+require 'test/unit'
+
+require 'parse/expand_grammar'
+include Parse::Grammar
+
+class UT_Parse_expand_grammar < Test::Unit::TestCase
+  def test_01_internal_nonterm_num
+    g = Grammar.new
+    assert_equal(1, g.next_free_internal_nonterminal_num)
+    assert_equal(2, g.next_free_internal_nonterminal_num)
+    assert_equal(3, g.next_free_internal_nonterminal_num)
+  end
+
+  def test_02_create_fresh_nonterminal
+    g = Grammar.new
+    nt = g.create_fresh_nonterminal
+    assert_kind_of(NonTerminal, nt)
+
+    # The name should start with the prefix
+    re = Regexp.new("^" + Grammar::InternalNontermNamePrefix)
+    assert_match(re, nt.name.to_s)
+  end
+end