racc 1.5.2 → 1.6.0

data/test/assets/opt.y

@@ -1,123 +0,0 @@
-#
-# check options working
-#
-
-class Calcp
-
-  prechigh
-    left '*' '/'
-    left '+' '-'
-  preclow
-
-  convert
-    NUMBER 'Number'
-  end
-
-  options no_omit_action_call no_result_var
-
-rule
-
-  target : exp | /* none */ { 0 } ;
-
-  exp    : exp '+' exp { chk(val[0] + val[2]) }
-         | exp '-' exp { chk(val[0] - val[2]) }
-         | exp '*' exp { chk(val[0] * val[2]) }
-         | exp '/' exp { chk(val[0] / val[2]) }
-         | '(' { $emb = true } exp ')'
-             {
-               raise 'must not happen' unless $emb
-               val[2]
-             }
-         | '-' NUMBER  { -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
-
-  def chk( i )
-    # p i
-    i
-  end
-
-----footer
-
-$parser = Calcp.new
-$test_number = 1
-
-def chk( src, ans )
-  result = $parser.parse(src)
-  raise "test #{$test_number} failed" 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/percent.y

@@ -1,35 +0,0 @@
-class ScannerChecker
-rule
-  target: A
-      {
-        i = 7
-        i %= 4
-	raise 'assert failed' unless i == 3
-        tmp = %-This is percent string.-
-	raise 'assert failed' unless tmp == 'This is percent string.'
-        a = 5; b = 3
-        assert_equal(2,(a%b))    #A
-      # assert_equal(2,(a %b))   # is %-string
-        assert_equal(2,(a% b))   #B
-        assert_equal(2,(a % b))  #C
-      }
-end
-
----- inner ----
-
-  def parse
-    @q = [[:A, 'A'], [false, '$']]
-    do_parse
-  end
-
-  def next_token
-    @q.shift
-  end
-
-  def assert_equal( expect, real )
-    raise "expect #{expect.inspect} but #{real.inspect}" unless expect == real
-  end
-
----- footer ----
-
-parser = ScannerChecker.new.parse

data/test/assets/php_serialization.y

@@ -1,98 +0,0 @@
-# MIT License
-# See https://github.com/divoxx/ruby-php-serialization/blob/master/LICENSE.txt
-
-class PhpSerialization::Unserializer
-rule
-
-  data            : null    ';'  { @object = val[0] }
-                  | bool    ';'  { @object = val[0] }
-                  | integer ';'  { @object = val[0] }
-                  | double  ';'  { @object = val[0] }
-                  | string  ';'  { @object = val[0] }
-                  | assoc_array  { @object = val[0] }
-                  | object       { @object = val[0] }
-                  ;
-
-  null            : 'N' { result = nil }
-                  ;
-
-  bool            : 'b' ':' NUMBER { result = Integer(val[2]) > 0 }
-                  ;
-
-  integer         : 'i' ':' NUMBER { result = Integer(val[2]) }
-                  ;
-
-  double          : 'd' ':' NUMBER { result = Float(val[2]) }
-                  ;
-
-  string          : 's' ':' NUMBER ':' STRING { result = val[4] }
-                  ;
-
-  object          : 'O' ':' NUMBER ':' STRING ':' NUMBER ':' '{' attribute_list '}'
-                    {
-                      if eval("defined?(#{val[4]})")
-                        result = Object.const_get(val[4]).new
-
-                        val[9].each do |(attr_name, value)|
-                          # Protected and private attributes will have a \0..\0 prefix
-                          attr_name = attr_name.gsub(/\A\\0[^\\]+\\0/, '')
-                          result.instance_variable_set("@#{attr_name}", value)
-                        end
-                      else
-                        klass_name = val[4].gsub(/^Struct::/, '')
-                        attr_names, values = [], []
-
-                        val[9].each do |(attr_name, value)|
-                          # Protected and private attributes will have a \0..\0 prefix
-                          attr_names << attr_name.gsub(/\A\\0[^\\]+\\0/, '')
-                          values << value
-                        end
-
-                        result = Struct.new(klass_name, *attr_names).new(*values)
-                        result.instance_variable_set("@_php_class", klass_name)
-                      end
-                    }
-                  ;
-
-  attribute_list  : attribute_list attribute { result = val[0] << val[1] }
-                  |                          { result = [] }
-                  ;
-
-  attribute       : data data { result = val }
-                  ;
-
-  assoc_array     : 'a' ':' NUMBER ':' '{' attribute_list '}'
-                    {
-                      # Checks if the keys are a sequence of integers
-                      idx = -1
-                      arr = val[5].all? { |(k,v)| k == (idx += 1) }
-
-                      if arr
-                        result = val[5].map { |(k,v)| v }
-                      else
-                        result = Hash[val[5]]
-                      end
-                    }
-                  ;
-
-end
-
----- header ----
-require 'php_serialization/tokenizer'
-
----- inner ----
-  def initialize(tokenizer_klass = Tokenizer)
-    @tokenizer_klass = tokenizer_klass
-  end
-
-  def run(string)
-    @tokenizer = @tokenizer_klass.new(string)
-    yyparse(@tokenizer, :each)
-    return @object
-  ensure
-    @tokenizer = nil
-  end
-
-  def next_token
-    @tokenizer.next_token
-  end

data/test/assets/recv.y

@@ -1,97 +0,0 @@
-# s/r 5, r/r 10
-class A
-rule
-
-  content: RecvH         received
-    ;
-
-  datetime: day
-    ;
-
-  msgid: '<' spec '>';
-
-  day:
-    | ATOM ','
-    ;
-
-  received: recvitem_list recvdatetime
-    ;
-
-  recvitem_list:
-    | recvitem_list recvitem
-    ;
-
-  recvitem: by | via | with | for ;
-
-  by:
-    | BY domain
-    ;
-
-  via:
-    | VIA ATOM
-    ;
-
-  with: WITH ATOM
-    ;
-
-  for:
-    | FOR addr
-    ;
-
-  recvdatetime:
-    | ';' datetime
-    ;
-
-  addr: mbox | group ;
-
-  mboxes: mbox
-    | mboxes ',' mbox
-    ;
-
-  mbox: spec
-    | routeaddr
-    | phrase routeaddr
-    ;
-
-  group: phrase ':' mboxes ';'
-    ;
-
-  routeaddr: '<' route spec '>'
-    | '<' spec '>'
-    ;
-
-  route: at_domains ':' ;
-
-  at_domains: '@' domain
-    | at_domains ',' '@' domain
-    ;
-
-  spec: local '@' domain
-    | local
-    ;
-
-  local: word
-    | local '.' word
-    ;
-
-  domain: domword
-    | domain '.' domword
-    ;
-
-  domword: atom
-    | DOMLIT
-    | DIGIT
-    ;
-
-  phrase: word
-    | phrase word
-    ;
-
-  word: atom
-    | QUOTED
-    | DIGIT
-    ;
-
-  atom: ATOM | FROM | BY | VIA | WITH | ID | FOR ;
-
-end