pyper 1.0.1 → 2.0.0

data/lib/pyper/postfix_machine/argument_source.rb

@@ -0,0 +1,205 @@
+class Pyper::PostfixMachine
+  # Compile-time argument source stack. To explain, the default source of
+  # arguments in compiled Pyper methods is 'args' local variable, containing
+  # all the arguments supplied to the method (as in +method(*args)+ call).
+  # However, this default argument source can be changed to something else.
+  # For this purpose, compil-time argument source stack is maintained, showing
+  # where the next argument will come from. It is implemented as a struct with
+  # two arrays: +source+ and +grab_method+. The source shows where the argument
+  # comes from, and grab method shows how is it obtained. There are 3 possible
+  # ways to obtain an argument from a source:
+  #
+  # * :ref -- by reference (ie. by simply taking it)
+  # * :dup -- by duplication (calling #dup method on the source)
+  # * :shift -- by shifting (calling #shift method on the source)
+  # 
+  # As for the sources, there may be the following ones in a compiled method:
+  # 
+  # * :args -- whole argument array
+  # * :args_counted -- args referenced with compile time counter -- default
+  # * :alpha -- primary pipeline
+  # * :beta -- secondary pipeline
+  # * :delta -- in-block pipeline
+  # * :epsilon -- block argument 0
+  # * :zeta -- block argument 1
+  # * :psi -- penultimate element in the args array; penultimate argument
+  # * :omega -- last element in the args array; last argument
+  # 
+  # We can se that +:args_counted+ source comes as if with its own special
+  # grabbing method. At compile time, +PostfixMachine+ maintains @args_count
+  # attribute, an index to the +args+ array, and increments it each time
+  # an argument is taken. Other argument sources do not have counters and
+  # if they contain arrays, they can only be grabbed by the standard three
+  # methods.
+  # 
+  class ArgumentSource < Struct.new( :source, :grab_method )
+    class << self
+      # Initially, argument stack has a single layer with +:args_counted+ as
+      # the source, and +:ref+ as grab method.
+      # 
+      def new
+        self[ [:args_counted], [:ref] ]
+      end
+    end
+
+    # Resets the stack back to the initial condition.
+    # 
+    def std!
+      self.source = [:args_counted]
+      self.grab_method = [:ref]
+    end
+
+    # Modifies the topmost grab method on the stack to +:shift+.
+    # 
+    def shift!
+      grab_method[-1] = :shift
+    end
+
+    # Modifies the topmost grab method on the stack to +:ref+.
+    # 
+    def ref!
+      grab_method[-1] = :ref
+    end
+
+    # Modifies the topmost grab method on the stack to +:dup+.
+    # 
+    def dup!
+      grab_method[-1] = :dup
+    end
+
+    # Pushes +:args_counted+ source and +:ref+ grab method on the stack.
+    # 
+    def args_counted
+      source.push :args_counted
+      grab_method.push :ref
+    end
+
+    # Modifies the topmost source on the stack to +:args_counted+, leaving grab
+    # method unchanged.
+    # 
+    def args_counted!
+      source[-1] = :args_counted
+    end
+
+    # Pushes +:args+ source and +:shift+ grab method on the stack.
+    # 
+    def args
+      source.push :args
+      grab_method.push :shift
+    end
+
+    # Modifies the topmost source on the stack to +:args+, and grab method to
+    # +:shift+.
+    # 
+    def args!
+      source[-1] = :args
+      shift!
+    end
+
+    # Pushes on the stack a given variable name as the source, and +:ref+ as the
+    # grab method.
+    # 
+    def var variable
+      source.push variable
+      grab_method.push :ref
+    end
+
+    # Modifies the topmost source on the stack to the given variable name,
+    # leaving the grab method unchanged.
+    # 
+    def var! variable
+      source[-1] = variable
+    end
+
+    # Pushes +:alpha+ source and +:ref+ grab method on the stack.
+    # 
+    def alpha
+      var :alpha
+    end
+
+    # Modifies the topmost source on the stack to +:alpha+, leaving the grab
+    # method unchanged.
+    # 
+    def alpha!
+      var! :alpha
+    end
+
+    # Pushes +:beta+ source and +:ref+ grab method on the stack.
+    # 
+    def beta
+      var :beta
+    end
+
+    # Modifies the topmost source on the stack to +:beta+, leaving the grab
+    # method unchanged.
+    # 
+    def beta!
+      var! :beta
+    end
+
+    # Pushes +:delta+ source and +:ref+ grab method on the stack.
+    # 
+    def delta
+      var :delta
+    end
+
+    # Modifies the topmost source on the stack to +:delta+, leaving the grab
+    # method unchanged.
+    # 
+    def delta!
+      var! :delta
+    end
+
+    # Pushes +:epsilon+ source and +:ref+ grab method on the stack.
+    # 
+    def epsilon
+      var :epsilon
+    end
+
+    # Modifies the topmost source on the stack to +:epsilon+, leaving the grab
+    # method unchanged.
+    # 
+    def epsilon!
+      var! :epsilon
+    end
+
+    # Pushes +:zeta+ source and +:ref+ grab method on the stack.
+    # 
+    def zeta
+      var :zeta
+    end
+
+    # Modifies the topmost source on the stack to +:zeta+, leaving the grab
+    # method unchanged.
+    # 
+    def zeta!
+      var! :zeta
+    end
+
+    # Pushes +:psi+ source and +:ref+ grab method on the stack.
+    # 
+    def psi
+      var :psi
+    end
+
+    # Modifies the topmost source on the stack to +:psi+, leaving the grab
+    # method unchanged.
+    # 
+    def psi!
+      var! :psi
+    end
+
+    # Pushes +:omega+ source and +:ref+ grab method on the stack.
+    # 
+    def omega
+      var :omega
+    end
+
+    # Modifies the topmost source on the stack to +:omega+, leaving the grab
+    # method unchanged.
+    # 
+    def omega!
+      var! :omega
+    end
+  end
+end # class Pyper::PostfixMachine::ArgumentSource

data/lib/pyper/version.rb

@@ -1,4 +1,4 @@
 module Pyper
-  VERSION = "1.0.1"
-  DEBUG = false
+  VERSION = "2.0.0"
+  DEBUG = 0 # debug level
 end

data/test/pyper_test.rb

@@ -6,9 +6,7 @@ require 'shoulda'
 require_relative './../lib/pyper'
 # require 'pyper'
 
-include Pyper
-
-class YPiperTest < ::Test::Unit::TestCase
+class PyperTest < ::Test::Unit::TestCase
   should "define basic methods" do
 
     assert_equal 1, [1, 2, 3].car
@@ -25,7 +23,7 @@ class YPiperTest < ::Test::Unit::TestCase
     assert_equal [*(4..10)], [*(1..10)].τfτ
     
     assert_equal [:a, :b, :c], [[:a, 1], [:b, 2], [:c, 3]].τmaτ
-    assert_equal ["a", "b", "c"], [[:a, 1], [:b, 2], [:c, 3]].τmaςτ
+    assert_equal ["a", "b", "c"], [[:a, 1], [:b, 2], [:c, 3]].τmatsτ
     
     assert_equal [*(1..7)], [*(1..10)].τuτ
     assert_equal [*(1..8)], [*(1..10)].τvτ
@@ -35,25 +33,25 @@ class YPiperTest < ::Test::Unit::TestCase
     assert_equal 10, [*(1..10)].τzτ
 
 
-    assert_equal 7, 7.τCτ
-    assert_equal 7, 7.τχτ( 8 )
+    assert_equal 7, 7.π.τCτ
+    assert_equal 7, 7.π.τXτ( 8 )
     assert_equal 8, [7, 8].χCτ
-    assert_equal 8, 7.τ«τ( 8 )
+    assert_equal 8, 7.τgτ( 8 )
     
-    assert_equal [0, 1, 6, 9], [:x.τ∅₀τ, 0.τ∅₁τ, Object.new.τ∅₆τ, "a".τ∅₉τ]
+    assert_equal [0, 1, 6, 9], [:x.π.τl0τ, 0.π.τl1τ, Object.new.π.τl6τ, "a".π.τl9τ]
     
-    assert_equal [:hello], :hello.τAτ
+    assert_equal [:hello], :hello.π.τAτ
     assert_equal [[:a, 1], [:b, 2]], ( {a: 1, b: 2}.τAτ )
     assert_equal [1, 2], [1, 2].τAτ
     
-    assert_equal 1, "+1.000000".τ›iτ
-    assert_equal "hello", [:h, ?e, :l, :l, :o].τjτ
+    assert_equal 1, "+1.000000".τtftiτ
+    assert_equal "hello", [:h, ?e, :l, :l, :o].τijτ
     
-    assert_equal "la", :la.τςτ
+    assert_equal "la", :la.τtsτ
     
-    assert_equal :hello, "hello".τßτ
+    assert_equal :hello, "hello".τtSτ
 
-    assert_equal [[1, 2]], [1, 2].τ›Aτ
+    assert_equal [[1, 2]], [1, 2].τtAτ
 
     assert_equal [1], [*(1..10)].τ0τ
     assert_equal [1, 2], [*(1..10)].τ1τ
@@ -71,52 +69,52 @@ class YPiperTest < ::Test::Unit::TestCase
 
     assert_equal 7, 4.τ₊τ( 3 )
     assert_equal 15, 3.τ★τ( 5 )
-    assert_equal 2, 17.τ﹪τ( 5 )
+    assert_equal 2, 17.τoMτ( 5 )
     assert_equal 17 / 5, 17.τ÷τ( 5 )
-    assert_equal true, 7.τᴇτ( 7 )
+    assert_equal true, 7.τEτ( 7 )
     assert_equal [true, false, false], [-1, 0, 1].τm﹤τ( 0, 0, 0 )
     assert_equal [false, false, true], [-1, 0, 1].τm﹥τ( 0, 0, 0 )
-    assert_equal [true, true, false], [-1, 0, 1].τm≤τ( 0, 0, 0 )
-    assert_equal [false, true, true], [-1, 0, 1].τm≥τ( 0, 0, 0 )
-    assert_equal [5, 10, 15], (1..3).τm★τ( 5 )
-    assert_equal [1, 4, 9], [*(1..3)].τ»Dσm★τ
-    assert_equal [1, 4, 9], (1..3).τm﹡﹡τ( 2 )
-    assert_equal [1, 4, 9], (1..3).τM★τ
-    assert_equal [?a, nil, ?a, nil], (1..4).τm﹪ᴇτ( 2, 1 ).τm⁇τ( ?a, nil )
-    assert_equal ["a", nil, "a", nil], (1..4).τm﹪ᴇ⁇τ( 2, 1, ?a, nil )
-    assert_equal [nil, "b", "b", nil], nil.τ«mᴇ⁇τ( [0, 1, 1, 0], 1, ?b, nil )
+    assert_equal [true, true, false], [-1, 0, 1].τmιSτ( 0, 0, 0 )
+    assert_equal [false, true, true], [-1, 0, 1].τmιGτ( 0, 0, 0 )
+    assert_equal [5, 10, 15], (1..3).τmomτ( 5 )
+    assert_equal [1, 4, 9], [*(1..3)].τGDσmomτ
+    assert_equal [1, 4, 9], (1..3).τmopτ( 2 )
+    assert_equal [1, 4, 9], (1..3).τMomτ
+    assert_equal [?a, nil, ?a, nil], (1..4).τmoMEτ( 2, 1 ).τmTτ( ?a, nil )
+    assert_equal ["a", nil, "a", nil], (1..4).τmoMETτ( 2, 1, ?a, nil )
+    assert_equal [nil, "b", "b", nil], nil.π.τgmETτ( [0, 1, 1, 0], 1, ?b, nil )
     assert_equal [["a", nil], [nil, "b"], ["a", "b"], [nil, nil]],
-                 (1..4).τm﹪ᴇ⁇χ( 2, 1, ?a, nil ).π«mᴇ⁇π( [0, 1, 1, 0], 1, ?b, nil ).χγZτ
-    assert_equal true, [:a, :b, :c].τ¿iτ( :b )
-    assert_equal( [[:c], [:a]], [[:b, :c, :d], [:a, :b, :d]].
-                  χ»βm«ε¿i‹﹗ε⁈﹕n_●χm«ε¿i‹﹗ε⁈﹕n_●π )
+                 (1..4).τmoMETχ( 2, 1, ?a, nil ).πgmETπ( [0, 1, 1, 0], 1, ?b, nil ).χrZτ
+    assert_equal true, [:a, :b, :c].τoiτ( :b )
+    assert_equal [[:c], [:a]], [[:b, :c, :d], [:a, :b, :d]].πβoIXo8γosmAτ
+                  # χGβmgεoiiEεT_iCχmgεoiiEεT_π( nil, nil ) )
     assert_equal( "d yada yada, a, c blah blah",
                   "%s yada yada, %s blah blah" %
-                  [[:d], [:a, :c]].χJχJπ( ", " ) )
-    assert_equal "fizzbuzz", (1..100).τm﹪ᴇ⁇χ( 3, 0, "fizz", nil ).πm﹪ᴇ⁇χ( 5, 0, "buzz", nil ).πZmjτ[14]
+                  [[:d], [:a, :c]].χJXJπ( ", " ) )
+    assert_equal "foobar", (1..100).τmoMETχ( 3, 0, "foo", nil ).πmoMETχ( 5, 0, "bar", nil ).πZmijτ[14]
     assert_equal ["ax", "bx"], ["a", "b"].τmτ { |o| o + "x" }
     assert_equal ["ax", "bx"], ["a", "b"].τBmτ { |o| o + "x" }
-    assert_equal [-1, -2], [[1, 1], [2, 3]].πM₋τ
-    assert_equal [1, 2], [[1, 1], [2, 3]].πW₋τ
+    assert_equal [-1, -2], [[1, 1], [2, 3]].πMosτ
+    assert_equal [1, 2], [[1, 1], [2, 3]].πWosτ
     a, b = [Object.new, Object.new].each { |o| o.define_singleton_method :xxx do "xxx" end }
     hsh = { a => "xxx", b => "xxx" }
-    assert_equal hsh, [a, b].τBmχHτ( &:xxx )
+    assert_equal hsh, [a, b].τBmXthτ( &:xxx )
     assert_equal [:x], 'x'.τABmτ( &:to_sym )
-    assert_equal ['x'], ['x'].τmß_mςτ
-    assert_equal [[['y']]], [[[:y]]].τmmmςτ
-    assert_equal [[:x, :y], [:v, :w]], [[?x, ?y], [?v, ?w]].τmmßτ
+    assert_equal ['x'], ['x'].τmtS_mtsτ
+    assert_equal [[['y']]], [[[:y]]].τmmmtsτ
+    assert_equal [[:x, :y], [:v, :w]], [[?x, ?y], [?v, ?w]].τmmtSτ
     
-    assert_equal [1, 1, 1], "abc".τm∅₁τ
+    assert_equal [1, 1, 1], "abc".τml1τ
     require 'y_support/all'
     @a = ["a", "b", "c"]
-    exp = [[["a"], ["b"], ["c"]],
-           [["a", "b"], ["c"]],
-           [["a"], ["b", "c"]],
-           [["a", "b", "c"]]]
-    rslt = ( 0...2**( @a.size - 1 ) )
-      .τm«_M﹪_mτ( "%0#{@a.size - 1}b", &[:τmᴇ⁇τ, ?0, ?+,  ?,] )
-      .τm→ι←J_m﹪τ( '', "[@a[%s]]", [*0...@a.size] )
-      .τm→←_mτ( '[', ']', &method( :eval ) )
+    exp = [ [["a"], ["b"], ["c"]],
+            [["a", "b"], ["c"]],
+            [["a"], ["b", "c"]],
+            [["a", "b", "c"]] ]
+    n = @a.size - 1
+    rslt = ( 0 ... 2 ** n ).τmg_MoM_mτ( "%0#{n}b", &[:τmETτ, ?0, ?+,  ?,] )
+      .τmpjqJ_moMτ( '', "[@a[%s]]", [ * 0 .. n ] )
+      .τmpq_mτ( '[', ']', & method( :eval ) )
     assert_equal exp.sort, rslt.sort
   end
-end # class
+end # class PyperTest

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: pyper
 version: !ruby/object:Gem::Version
-  version: 1.0.1
+  version: 2.0.0
 platform: ruby
 authors:
 - boris
@@ -37,6 +37,14 @@ files:
 - README.md
 - Rakefile
 - lib/pyper.rb
+- lib/pyper/control_characters.rb
+- lib/pyper/control_characters/cadr_like.rb
+- lib/pyper/control_characters/greek_letters.rb
+- lib/pyper/control_characters/other.rb
+- lib/pyper/control_characters/other_latin_letters.rb
+- lib/pyper/default_includes.rb
+- lib/pyper/postfix_machine.rb
+- lib/pyper/postfix_machine/argument_source.rb
 - lib/pyper/version.rb
 - pyper.gemspec
 - test/pyper_test.rb