myco 0.1.9 → 0.1.10

data/lib/myco/code_tools/parser/pegleromyces/lib/pegleromyces.my.rb

@@ -1,15 +1,59 @@
 
 ::Myco::Component.new([::Myco::FileToplevel], ::Myco.cscope.for_method_definition, __FILE__, __LINE__)
 .tap { |__c__| __c__.__last__ = __c__.component_eval {(
-  declare_meme(:"pegleromyces/Common.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/Capture.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/Composite.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/String.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/Stream.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/Grammar.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/BytecodeHelpers.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/Common/Parser.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/String/Parser.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/Stream/Parser.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
-  declare_meme(:"pegleromyces/Processor.my", [[:import, []]], nil, ::Myco.cscope.dup) { |*| nil}
+  declare_meme(
+    :"pegleromyces/Common.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/Capture.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/Composite.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/String.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/Stream.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/Grammar.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/BytecodeHelpers.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/Common/Parser.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/String/Parser.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/Stream/Parser.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
+  declare_meme(
+    :"pegleromyces/Processor.my",
+    [:import],
+    ::Object::Proc.new { |*| nil}
+  )
 )}}.instance

data/lib/myco/code_tools/parser/pegleromyces/lib/pegleromyces/BytecodeHelpers.my.rb

@@ -2,218 +2,334 @@
 ::Myco::Component.new([::Myco::FileToplevel], ::Myco.cscope.for_method_definition, __FILE__, __LINE__)
 .tap { |__c__| __c__.__last__ = __c__.component_eval {(::Myco.cscope.for_method_definition::BytecodeHelpers = ::Myco::Component.new([::Myco.find_constant(:BasicDecorators)], ::Myco.cscope.for_method_definition, __FILE__, __LINE__)
 .tap { |__c__| __c__.__last__ = __c__.component_eval {(
-  declare_meme(:debug_mode, [[:var, []]], nil, ::Myco.cscope.dup) { |*| (false)}
-  declare_meme(:overall_fail, [[:var, []]], nil, ::Myco.cscope.dup) { |*| (self.new_label)}
-  declare_meme(:g, [], nil, ::Myco.cscope.dup) { |*| (self)}
-  declare_meme(:puts_string, [], nil, ::Myco.cscope.dup) { |string| (
-    self.g.push_rubinius
-    self.g.push_literal(string)
-    self.g.send(
-      :puts,
-      1,
-      true
-    )
-    self.g.pop
-  )}
-  declare_meme(:inspect_top, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.dup_top
-    self.g.push_rubinius
-    self.g.swap
-    self.g.send(
-      :p,
-      1,
-      true
-    )
-    self.g.pop
-  )}
-  declare_meme(:set_subject, [], nil, ::Myco.cscope.dup) { |*| (self.g.set_local(0))}
-  declare_meme(:push_subject, [], nil, ::Myco.cscope.dup) { |*| (self.g.push_local(0))}
-  declare_meme(:set_idx, [], nil, ::Myco.cscope.dup) { |*| (self.g.set_local(1))}
-  declare_meme(:push_idx, [], nil, ::Myco.cscope.dup) { |*| (self.g.push_local(1))}
-  declare_meme(:set_captures, [], nil, ::Myco.cscope.dup) { |*| (self.g.set_ivar(:@captures))}
-  declare_meme(:push_captures, [], nil, ::Myco.cscope.dup) { |*| (self.g.push_ivar(:@captures))}
-  declare_meme(:set_memo_for, [], nil, ::Myco.cscope.dup) { |name| (self.g.set_ivar(:"@memo_for_#{name}"))}
-  declare_meme(:push_memo_for, [], nil, ::Myco.cscope.dup) { |name| (self.g.push_ivar(:"@memo_for_#{name}"))}
-  declare_meme(:pop_to_set_idx, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.set_idx
-    self.g.pop
-  )}
-  declare_meme(:push_temp_captures, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.push_captures
-    self.g.make_array(0)
-    self.g.set_captures
-    self.g.pop
-  )}
-  declare_meme(:pop_to_reject_captures, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.set_captures
-    self.g.pop
-  )}
-  declare_meme(:pop_to_accept_captures, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.push_captures
-    self.g.send(
-      :concat,
-      1
-    )
-    self.g.set_captures
-    self.g.pop
-  )}
-  declare_meme(:push_subject_at_idx, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.push_subject
-    self.g.push_idx
-    self.g.send(
-      :at,
-      1
-    )
-  )}
-  declare_meme(:push_subject_chr_at_idx, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.push_subject
-    self.g.push_idx
-    self.g.send(
-      :chr_at,
-      1
-    )
-  )}
-  declare_meme(:push_new_table, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.push_rubinius
-    self.g.find_const(:LookupTable)
-    self.g.send(
-      :new,
-      0
-    )
-  )}
-  declare_meme(:memo_or_eq_new_hash, [], nil, ::Myco.cscope.dup) { |name| (
-    memo_exists_label = self.g.new_label
-    self.g.push_memo_for(name)
-    self.g.goto_if_true(memo_exists_label)
-    self.g.push_new_table
-    self.g.set_memo_for(name)
-    self.g.pop
-    memo_exists_label.__send__(:set!)
-  )}
-  declare_meme(:copy_result_to_memo, [], nil, ::Myco.cscope.dup) { |name| (
-    self.g.dup_top
-    self.g.push_captures
-    self.g.make_array(2)
-    self.g.push_memo_for(name)
-    self.g.swap
-    self.g.push_idx
-    self.g.swap
-    self.g.send(
-      :[]=,
-      2
-    )
-    self.g.pop
-  )}
-  declare_meme(:goto_if_memo_for_idx, [], nil, ::Myco.cscope.dup) { |name, label| (
-    skip_label = self.g.new_label
-    self.g.push_memo_for(name)
-    self.g.push_idx
-    self.g.send(
-      :[],
-      1
-    )
-    self.g.dup_top
-    self.g.goto_if_nil(skip_label)
-    self.g.shift_array
-    self.g.swap
-    self.g.shift_array
-    self.g.set_captures
-    self.g.pop
-    self.g.pop
-    self.g.goto(label)
-    skip_label.__send__(:set!)
-    self.g.pop
-  )}
-  declare_meme(:increment_idx, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.push_idx
-    self.g.send(
-      :+,
-      1
-    )
-    self.g.set_idx
-    self.g.dup_top
-    self.g.push_ivar(:@highest_idx)
-    self.g.send(
-      :>,
-      1
-    )
-    not_highest_idx_label = self.g.new_label
-    self.g.goto_if_false(not_highest_idx_label)
-    self.g.set_ivar(:@highest_idx)
-    not_highest_idx_label.__send__(:set!)
-    self.g.pop
-  )}
-  declare_meme(:rule_start, [], nil, ::Myco.cscope.dup) { |*| (
-    self.g.__send__(
-      :required_args=,
-      2
-    )
-    self.g.__send__(
-      :total_args=,
-      2
-    )
-    self.g.__send__(
-      :splat_index=,
-      nil
-    )
-    self.g.__send__(
-      :local_count=,
-      2
-    )
-    self.g.__send__(
-      :local_names=,
-      [
-        :subject,
-        :idx
-      ]
-    )
-    ::Myco.branch_op(:"&&", self.g.debug_mode) {(
+  declare_meme(
+    :debug_mode,
+    [:var],
+    ::Object::Proc.new { |*| (false)}
+  )
+  declare_meme(
+    :overall_fail,
+    [:var],
+    ::Object::Proc.new { |*| (self.new_label)}
+  )
+  declare_meme(
+    :g,
+    [],
+    ::Object::Proc.new { |*| (self)}
+  )
+  declare_meme(
+    :puts_string,
+    [],
+    ::Object::Proc.new { |string| (
+      self.g.push_rubinius
+      self.g.push_literal(string)
+      self.g.send(
+        :puts,
+        1,
+        true
+      )
+      self.g.pop
+    )}
+  )
+  declare_meme(
+    :inspect_top,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.dup_top
+      self.g.push_rubinius
+      self.g.swap
+      self.g.send(
+        :p,
+        1,
+        true
+      )
+      self.g.pop
+    )}
+  )
+  declare_meme(
+    :set_subject,
+    [],
+    ::Object::Proc.new { |*| (self.g.set_local(0))}
+  )
+  declare_meme(
+    :push_subject,
+    [],
+    ::Object::Proc.new { |*| (self.g.push_local(0))}
+  )
+  declare_meme(
+    :set_idx,
+    [],
+    ::Object::Proc.new { |*| (self.g.set_local(1))}
+  )
+  declare_meme(
+    :push_idx,
+    [],
+    ::Object::Proc.new { |*| (self.g.push_local(1))}
+  )
+  declare_meme(
+    :set_captures,
+    [],
+    ::Object::Proc.new { |*| (self.g.set_ivar(:@captures))}
+  )
+  declare_meme(
+    :push_captures,
+    [],
+    ::Object::Proc.new { |*| (self.g.push_ivar(:@captures))}
+  )
+  declare_meme(
+    :set_memo_for,
+    [],
+    ::Object::Proc.new { |name| (self.g.set_ivar(:"@memo_for_#{name}"))}
+  )
+  declare_meme(
+    :push_memo_for,
+    [],
+    ::Object::Proc.new { |name| (self.g.push_ivar(:"@memo_for_#{name}"))}
+  )
+  declare_meme(
+    :pop_to_set_idx,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.set_idx
+      self.g.pop
+    )}
+  )
+  declare_meme(
+    :push_temp_captures,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.push_captures
+      self.g.make_array(0)
+      self.g.set_captures
+      self.g.pop
+    )}
+  )
+  declare_meme(
+    :pop_to_reject_captures,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.set_captures
+      self.g.pop
+    )}
+  )
+  declare_meme(
+    :pop_to_accept_captures,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.push_captures
+      self.g.send(
+        :concat,
+        1
+      )
+      self.g.set_captures
+      self.g.pop
+    )}
+  )
+  declare_meme(
+    :push_subject_at_idx,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.push_subject
       self.g.push_idx
-      self.g.inspect_top
+      self.g.send(
+        :at,
+        1
+      )
+    )}
+  )
+  declare_meme(
+    :push_subject_chr_at_idx,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.push_subject
+      self.g.push_idx
+      self.g.send(
+        :chr_at,
+        1
+      )
+    )}
+  )
+  declare_meme(
+    :push_new_table,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.push_rubinius
+      self.g.find_const(:LookupTable)
+      self.g.send(
+        :new,
+        0
+      )
+    )}
+  )
+  declare_meme(
+    :memo_or_eq_new_hash,
+    [],
+    ::Object::Proc.new { |name| (
+      memo_exists_label = self.g.new_label
+      self.g.push_memo_for(name)
+      self.g.goto_if_true(memo_exists_label)
+      self.g.push_new_table
+      self.g.set_memo_for(name)
+      self.g.pop
+      memo_exists_label.__send__(:set!)
+    )}
+  )
+  declare_meme(
+    :copy_result_to_memo,
+    [],
+    ::Object::Proc.new { |name| (
+      self.g.dup_top
+      self.g.push_captures
+      self.g.make_array(2)
+      self.g.push_memo_for(name)
+      self.g.swap
+      self.g.push_idx
+      self.g.swap
+      self.g.send(
+        :[]=,
+        2
+      )
+      self.g.pop
+    )}
+  )
+  declare_meme(
+    :goto_if_memo_for_idx,
+    [],
+    ::Object::Proc.new { |name, label| (
+      skip_label = self.g.new_label
+      self.g.push_memo_for(name)
+      self.g.push_idx
+      self.g.send(
+        :[],
+        1
+      )
+      self.g.dup_top
+      self.g.goto_if_nil(skip_label)
+      self.g.shift_array
+      self.g.swap
+      self.g.shift_array
+      self.g.set_captures
+      self.g.pop
+      self.g.pop
+      self.g.goto(label)
+      skip_label.__send__(:set!)
       self.g.pop
-      self.g.puts_string("trying.. #{self.g.name}")
     )}
-  )}
-  declare_meme(:rule_finish, [], nil, ::Myco.cscope.dup) { |*| (
-    overall_done = self.g.new_label
-    self.g.push_idx
-    ::Myco.branch_op(:"&&", self.g.debug_mode) {(
+  )
+  declare_meme(
+    :increment_idx,
+    [],
+    ::Object::Proc.new { |*| (
       self.g.push_idx
-      self.g.inspect_top
+      self.g.send(
+        :+,
+        1
+      )
+      self.g.set_idx
+      self.g.dup_top
+      self.g.push_ivar(:@highest_idx)
+      self.g.send(
+        :>,
+        1
+      )
+      not_highest_idx_label = self.g.new_label
+      self.g.goto_if_false(not_highest_idx_label)
+      self.g.set_ivar(:@highest_idx)
+      not_highest_idx_label.__send__(:set!)
       self.g.pop
-      self.g.puts_string("SUCCESS! #{self.g.name}")
     )}
-    self.g.goto(overall_done)
-    self.g.overall_fail.__send__(:set!)
-    self.g.push_nil
-    ::Myco.branch_op(:"&&", self.g.debug_mode) {(
+  )
+  declare_meme(
+    :rule_start,
+    [],
+    ::Object::Proc.new { |*| (
+      self.g.__send__(
+        :required_args=,
+        2
+      )
+      self.g.__send__(
+        :total_args=,
+        2
+      )
+      self.g.__send__(
+        :splat_index=,
+        nil
+      )
+      self.g.__send__(
+        :local_count=,
+        2
+      )
+      self.g.__send__(
+        :local_names=,
+        [
+          :subject,
+          :idx
+        ]
+      )
+      ::Myco.branch_op(:"&&", self.g.debug_mode) {(
+        self.g.push_idx
+        self.g.inspect_top
+        self.g.pop
+        self.g.puts_string("trying.. #{self.g.name}")
+      )}
+    )}
+  )
+  declare_meme(
+    :rule_finish,
+    [],
+    ::Object::Proc.new { |*| (
+      overall_done = self.g.new_label
       self.g.push_idx
-      self.g.inspect_top
+      ::Myco.branch_op(:"&&", self.g.debug_mode) {(
+        self.g.push_idx
+        self.g.inspect_top
+        self.g.pop
+        self.g.puts_string("SUCCESS! #{self.g.name}")
+      )}
+      self.g.goto(overall_done)
+      self.g.overall_fail.__send__(:set!)
+      self.g.push_nil
+      ::Myco.branch_op(:"&&", self.g.debug_mode) {(
+        self.g.push_idx
+        self.g.inspect_top
+        self.g.pop
+        self.g.puts_string("failure: #{self.g.name}")
+      )}
+      overall_done.__send__(:set!)
+      self.g.ret
+      self.g.close
+    )}
+  )
+  declare_meme(
+    :push_literal_array,
+    [],
+    ::Object::Proc.new { |ary| (
+      ary.each { |lit| (self.g.push_literal_or_array(lit))}
+      self.make_array(ary.size)
+    )}
+  )
+  declare_meme(
+    :push_literal_or_array,
+    [],
+    ::Object::Proc.new { |item| (::Myco.branch_op(:"??", ::Myco.branch_op(:"&?", item.__send__(
+      :is_a?,
+      ::Myco.find_constant(:Array)
+    )) {self.push_literal_array(item)}) {self.push_literal(item)})}
+  )
+  declare_meme(
+    :capture,
+    [],
+    ::Object::Proc.new { |*metadata| (
+      self.g.push_captures
+      self.g.push_idx
+      self.g.push_literal_array(metadata)
+      self.g.make_array(2)
+      self.g.send(
+        :push,
+        1
+      )
       self.g.pop
-      self.g.puts_string("failure: #{self.g.name}")
-    )}
-    overall_done.__send__(:set!)
-    self.g.ret
-    self.g.close
-  )}
-  declare_meme(:push_literal_array, [], nil, ::Myco.cscope.dup) { |ary| (
-    ary.each { |lit| (self.g.push_literal_or_array(lit))}
-    self.make_array(ary.size)
-  )}
-  declare_meme(:push_literal_or_array, [], nil, ::Myco.cscope.dup) { |item| (::Myco.branch_op(:"??", ::Myco.branch_op(:"&?", item.__send__(
-    :is_a?,
-    ::Myco.find_constant(:Array)
-  )) {self.push_literal_array(item)}) {self.push_literal(item)})}
-  declare_meme(:capture, [], nil, ::Myco.cscope.dup) { |*metadata| (
-    self.g.push_captures
-    self.g.push_idx
-    self.g.push_literal_array(metadata)
-    self.g.make_array(2)
-    self.g.send(
-      :push,
-      1
-    )
-    self.g.pop
-  )}
+    )}
+  )
 )}}
 .tap { |__c__| __c__.__name__ = :BytecodeHelpers })}}.instance