asmrb 0.0.1 → 0.0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: f5d80226d2355b8c59bf660946b4f8816f9f1ac5
-  data.tar.gz: 13ccf93f0c6b25fa2210655e1775cb029f75962a
+  metadata.gz: 4d8918ef5cf8db67f71ead50fbe2f1d21573fd41
+  data.tar.gz: cbc7c9a2fe7fe641910ad92ea511bcf1bbaed323
 SHA512:
-  metadata.gz: cec648aee673029d8d6a7e352b90ffcddf059fffb4e0c02ec6bd4123dbb5a58f090a37c83868f4f401aeb344d81b2d6a1fc52a416a512b2cb46da3d0129a1fd5
-  data.tar.gz: 4734d339606327f816db3d3fe429396967194342055882181a181973c2ecabbb39ae721af9a7c6ddc13e7bb9da10049e4d699fa1681f213ba71480a919b24c1d
+  metadata.gz: a2737586b1ad6e86ee190a2395b9ba3c95ea0cea7d9cb70487e8625862e97706fd930c9dada8f1ce9fd3ca4f8ae5b0963da4952c24c6073e02e037f2e46054a7
+  data.tar.gz: f5f84ac83bec2eb3bb232856c1d5393f5dce5d92f628953e7fecf98ed707b3be0b1aa350da6c98fc659878e9d3c04450bf710c910e25c2ca06d74b68b951d64a

data/lib/asmrb.rb

@@ -1,16 +1,20 @@
+require 'benchmark'
 require 'colorize'
 require 'pry'
 
 class Asm
-  attr_reader :variables, :function, :stack, :name
+  attr_reader :variables, :stack, :name, :is_debug, :result
+  attr_writer :is_debug
 
-  def initialize
-    @@function = []
+  def initialize(&block)
     @variables = { }
     @program = []
     @labels = {}
     @stack = []
+    @result = nil
+    @is_debug = false
     @name = "undefined"
+    assemble &block
   end
 
   def new_var(dest)
@@ -83,6 +87,7 @@ class Asm
 
     "jmp" => lambda { |name|
                 @@pc = @labels[name]
+                new_title "[#{name}]" #if @@pc != @program.length-1
               },
 
     "pop"  => lambda {|val|
@@ -96,8 +101,8 @@ class Asm
               },
 
     "arg" => lambda { |*args|
-                if @stack.length != args.length
-                  raise Exception.new "require: #{args}"
+                if @stack.length < args.length
+                  raise Exception.new "require (#{args.join(', ')}) on stack: #{@stack}"
                 else
                   args.reverse.each do | arg |
                     @variables[arg] = @stack.pop
@@ -110,13 +115,21 @@ class Asm
               },
 
     "dbg" => lambda {
-                puts @stack
+                puts "#{@stack} > #{@program[@@pc][0]}".light_green
+                binding.pry
               },
 
     "func"  => lambda {|&block|
                 @stack.push block
               },
 
+    "ivok" => lambda { |obj, f |
+                req_args "ivok",1 # obj.send(:func, args)
+                args = @stack.pop  # should be [ 1, 2, 3 ]
+                result = @variables[obj].send(f, args)
+                @stack.push result
+              },
+
     "call" => lambda {|fname|
                 _method = method(fname)
                 if _method.parameters.length > 0
@@ -141,6 +154,7 @@ class Asm
 
   def create_label(lbl)
     @labels[lbl] = @program.length-1
+    #binding.pry
   end
 
   def method_missing(name, *args)
@@ -150,10 +164,6 @@ class Asm
     if OPS.keys.include?(sname)
       @program << [sname, args]
 
-      # TESTING FEATURE:
-    elsif @@function.include?(name)
-      @program << [sname, @@function[name].execute]
-
     else
 
       case sname
@@ -177,43 +187,71 @@ class Asm
   end
 
   def execute(debug=false)
-    puts "function: #{@name}".white
+    new_line
+    puts "#{@stack} > #{@name}".yellow  if debug
     begin
       @@pc = 0
       until(@@pc == @program.length)
         # get instruction:
         instr = @program[@@pc]
-        puts "#{instr}".light_green if debug
+        puts "#{@@pc}: #{instr[0]} #{instr[1]}".light_green if debug
         # execute proc:
         self.instance_exec(*instr[1], &OPS[instr[0]])
         #binding.pry if debug
         @@pc += 1
       end
-      @stack.last
+      @result = @stack.last
+      clear
     rescue Exception => e
       debug e, instr
     end
+    new_line
+    @result
+  end
+
+  def fast_execute(*args)
+    arguments args
+    @@pc = 0
+    until(@@pc == @program.length)
+      # execute proc:
+      self.instance_exec(*@program[@@pc][1],
+                         &OPS[@program[@@pc][0]])
+      @@pc += 1
+    end
+    @result = @stack.last
+    clear
+    return @result
+  end
+
+  def new_title(title)
+    puts "\n::#{title}"   if is_debug
+  end
+
+  def new_line
+    puts "\n----------------------"   if is_debug
   end
 
   def debug(e,instr)
+    puts "\n--------[BUG]---------"
+
     # error scope:
     debug_start = @@pc >= 1 ? @@pc - 1 : 0
-    debug_end = @@pc <= @program.length - 2 ?
-        @@pc + 2
-        : @program.length < 4 ? @program.length : @@pc + 4
+
+    debug_end = @@pc <= (@program.length - 2) ?
+                @@pc + 1  : @@pc
 
     # ranging...
     (debug_start..debug_end).each do | i |
-      line = " #{i+1}: #{@program[i]}"
-      color = i != @@pc ? :light_green : :magenta
-      puts line.colorize color
+
+      instr = @program[i]
+      color = i != @@pc ?  :light_green : :magenta
+      puts "#{i}: #{instr[0]} #{instr[1]}".colorize color #if !instr.nil?
     end
 
-    puts "\nline #{@@pc+1}: #{ops_info(instr[0])}: #{e.message}".colorize(:magenta)
-    #puts e.backtrace
+    puts "\nat line #{@@pc}: #{ops_info(@program[@@pc][0])} has #{e.message}".colorize(:magenta)
 
     # test via pry:
-    binding.pry
+    binding.pry if is_debug
   end
 
   def ops_info(name)
@@ -228,9 +266,9 @@ class Asm
    end
   end
 
-  def invoke(args=[],debug=false)
+  def invoke(*args)
     arguments args
-    execute debug
+    execute is_debug
   end
 
   def clear
@@ -238,14 +276,52 @@ class Asm
     @stack = []
   end
 
-  def self.assemble (&block)
-    Asm.new.assemble &block
-  end
-
   def assemble(&block)
     load_program(&block)
-    self.dup
+    eval "$#{@name} = self.dup"
+    eval "$#{@name}"
   end
-end
 
+#primitive fac: that will overflow
+  def self.fac(acc, n)
+    if(n > 0)
+      fac(
+        (acc * n),
+        (n - 1))
+    else
+      acc
+    end
+  end
+
+  def self.compare_speed
+    # recursive fac:
+    Asm.assemble do
+      defn :factorial
+      arg  acc, n
+      push 1
+      push n
+
+      jge  :cont
+      push acc
+      jmp  :exit
 
+      label :cont
+      mul  acc, n
+      sub  n,   1
+      jmp  :factorial
+
+      label :exit
+
+      #dbg
+    end
+
+    $factorial.is_debug = false
+
+    puts "Asm version vs primitive factorial (both recursive):".light_green
+    Benchmark.bm do |x|
+      x.report { $factorial.invoke 1, 8000 }
+      x.report { fac 1, 8000 }
+    end
+    puts "Run: 1 -> 8710, which is primitive version limitation".light_green
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: asmrb
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors:
 - The Trung