spec/spec_helper.rb in raabro-0.9.0 vs spec/spec_helper.rb in raabro-1.0.0

@@ -3,13 +3,70 @@
 # Specifying rufus-scheduler
 #
 # Sat Sep 19 21:12:35 JST 2015
 #
 
+require 'pp'
+
 require 'raabro'
 
 #
 # parsers
 
 def ta(i); Raabro.str(nil, i, 'ta'); end
 def to(i); Raabro.str(nil, i, 'to'); end
+def tu(i); Raabro.str(nil, i, 'tu'); end
+
+def to_plus(input); Raabro.rep(:tos, input, :to, 1); end
+
+def nta(i); Raabro.str('the-ta', i, 'ta'); end
+
+def cha(i); Raabro.rex(nil, i, /\A[a-z]/); end
+def com(i); Raabro.str(nil, i, ','); end
+
+def lt(i); Raabro.str(nil, i, '<'); end
+def gt(i); Raabro.str(nil, i, '>'); end
+
+def onex(i); Raabro.str(:onex, i, 'x'); end
+def twox(i); Raabro.str(:twox, i, 'xx'); end
+
+
+#
+# test modules
+
+module Sample; end
+
+module Sample::Cal include Raabro
+
+  def sp(i); rex(nil, i, /\s+/); end
+
+  def num(i); rex(:num, i, /-?[0-9]+/); end
+  def op(i); rex(:op, i, /[+\-*\/]/); end
+  def item(i); alt(:item, i, :num, :op); end
+
+  def suite(i); jseq(nil, i, :item, :sp); end
+
+  # entry point
+
+  def parse(input)
+
+    all(nil, Raabro::Input.new(input, :prune => true), :suite)
+  end
+end
+
+module Sample::Arith include Raabro
+
+  def number(i); rex(:number, i, /-?[0-9]+\s*/); end
+  def plus(i); rex(:plus, i, /\+\s*/); end
+  def minus(i); rex(:minus, i, /-\s*/); end
+
+  def addition(i); seq(:addition, i, :number, :plus, :op_or_num); end
+  def substraction(i); seq(:substraction, i, :number, :minus, :op_or_num); end
+
+  def op_or_num(i); alt(nil, i, :addition, :substraction, :number); end
+
+  def parse(input)
+
+    all(nil, Raabro::Input.new(input, prune: true), :op_or_num)
+  end
+end