first step of switch to opal

lib/debugger.rb

@@ -0,0 +1,8 @@
+
+require "opal"
+
+require "main_view"
+
+Virtual::Machine.boot
+
+MainView.new()

lib/main_view.rb

@@ -0,0 +1,46 @@
+require 'browser'
+require 'native'
+require "salama"
+
+require_relative "registers_view"
+require_relative "object_view"
+require_relative "space_view"
+
+class MainView
+
+  def initialize
+    @canvas = Browser::Canvas.new
+
+    height = `window.innerHeight`
+    width =  `window.innerWidth`
+
+    body = Native(`window.document.body`)
+    # bit of a hack as it assumes index's structure
+    html_con = body.firstElementChild
+    html_con.insertBefore renderer.view , html_con.lastElementChild
+
+    registers = RegisterView.new(height - 150)
+    @canvas.add_child registers
+
+    ParseTask.parse(1).then do |result|
+      is = Ast::Expression.from_basic(result)
+      Virtual::Compiler.compile( is , Virtual.machine.space.get_main )
+      Virtual.machine.run_before Virtual::Machine::FIRST_PASS
+    end.fail do |error|
+      raise "Error: #{error}"
+    end
+    space = SpaceView.new
+    @container.add_child space
+
+    animate = Proc.new do
+      `requestAnimationFrame(animate)`
+      registers.draw_me
+      space.draw_me
+      renderer.render @container
+    end
+    animate.call
+
+  end
+
+  attr_reader :container
+end

lib/object_view.rb

@@ -0,0 +1,38 @@
+
+class ObjectView
+
+  attr_accessor :text , :object , :attributes
+
+  def initialize o
+    super()
+    self.text =  Text.new("no")
+    self.text.position = Point.new( rand(1000) , rand(550))
+    puts "NO O " unless o
+    self.object = o
+    self.text.text = short
+    @attributes = {}
+  end
+
+  def short
+    object.class.name.split("::").last[0 .. 3]
+  end
+
+  def is_parfait
+    object.class.name.split("::").first == "Parfait"
+  end
+  def set name , val
+    @attributes[name] = val
+    self.text.text = short + @attributes.length.to_s
+  end
+  def get(name)
+    @attributes[name]
+  end
+  def position
+    #raise "NONAME" unless self.text
+    self.text.position
+  end
+
+  def distance to
+    self.position - to.position
+  end
+end

lib/registers_view.rb

@@ -0,0 +1,21 @@
+
+class RegisterView
+
+  @@register_names = (0..8).collect {|i| "r#{i}"}
+
+  def initialize at_y
+    super()
+    @registers = {}
+    x = 0
+    @@register_names.each do |name|
+      reg = Text.new( name )
+      reg.position = Point.new x  , at_y
+      x += reg.width + 20
+      @registers[name] = reg
+      self.add_child reg
+    end
+    def draw_me
+
+    end
+  end
+end

lib/space_view.rb

@@ -0,0 +1,159 @@
+
+require "math"
+
+Point.class_eval do
+  alias_native :y=
+
+  def add point
+    self.x += point.x
+    self.x = 0    if self.x  < 0
+    self.x = 1100  if self.x  > 1100
+    self.y += point.y
+    self.y = 0    if self.y  < 0
+    self.y = 550    if self.y  > 550
+  end
+
+  def scale_by num
+    min = 0.001
+    num = min if num <= min
+    self.x = self.x / num
+    self.y = self.y / num
+  end
+end
+
+class SpaceView < Graphics
+  include Sof::Util
+
+  def initialize
+    super()
+    space = Virtual.machine.space
+    # just a way to get the space into a list. objects is an id => occurence mapping.
+    # occurence.object is the object
+    objects = Sof::Members.new(space).objects
+    @objects = objects
+    puts "Objects #{objects.length}"
+    # create a mapping from id to volt models
+    @view_objects = {}
+
+    @objects.each do |i , o|
+      next unless o.object
+      view = ObjectView.new o.object
+      @view_objects[i] = view
+      add_child view.text
+    end
+    fill_attributes
+  end
+
+  # should almost be called draw by now
+  def draw_me
+    update_positions
+    self.clear
+    @view_objects.each do |i , view|
+      self.lineStyle(4, 0xffd900, 2)
+      puts "v" if view.nil?
+      view.attributes.each do |n , v |
+        next if n == :id
+        next unless v.is_a? ObjectView
+        next unless v.is_parfait
+        puts "v2" if view.nil?
+        puts "0" if v.nil?
+        self.moveTo( view.position.x , view.position.y )
+        self.lineTo( v.position.x , v.position.y )
+      end
+    end
+  end
+
+  def force from , to
+    dir_x = from.x - to.x - 100
+    dir_x2 = dir_x * dir_x
+    dir_y = from.y - to.y - 100
+    dir_y2 = dir_y * dir_y
+    if( dir_x2 < 0.1 and dir_y2 < 0.1 )
+      puts "Were close"
+      dir_x = rand(10) - 5
+      dir_y = rand(10) - 5
+    end
+    f = dir_x * dir_x + dir_y * dir_y
+    f = 0.01 if f < 0.01
+    f = f / 100
+    #puts "force #{f}"
+    Point.new( dir_x / f  , dir_y / f)
+  end
+
+  def update_positions
+    @view_objects.each do |i , view|
+      view.attributes.each do |n , v |
+        next if n == :id
+        next unless v.is_a? ObjectView
+        next unless v.is_parfait
+        puts "v2" if view.nil?
+        puts "0" if v.nil?
+        view.position.add force( view.position , v.position )
+      end
+      offset = 0.0
+      view.position.add force( view.position , Point.new(view.position.x , -offset) )
+      view.position.add force( view.position , Point.new(-offset , view.position.y) )
+      view.position.add force( view.position , Point.new(view.position.x , 550 + offset) )
+      view.position.add force( view.position , Point.new(1000 + offset , view.position.y) )
+    end
+  end
+
+  def fill_attributes
+    @view_objects.each do |i , view|
+      ob = view.object
+      next if is_value?(ob)
+      case ob.class.name
+      when "Array" , "Parfait::List"
+        fill_array view
+      when "Hash" , "Parfait::Dictionary"
+        fill_hash view
+      else
+        next if ob.class.name.include?("::") and !ob.class.name.include?("Parfait")
+        next if ob.class.name == "Proc"
+        next if ob.class.name == "String"
+        next if ob.class.name == "Numeric"
+        next if ob.class.name == "Class"
+        #puts "object #{ob.class.name}"
+
+        attributes = attributes_for(ob)
+        attributes.each do |a|
+          next if a == "html_safe"
+          next if a == "constructor"
+          next if a == "toString"
+          next if a == "position"
+          val = get_value( ob , a)
+          if( @view_objects[val.object_id])
+            val = @view_objects[val.object_id]
+          end
+          #puts "set #{a}"
+          view.set(a , val )
+        end
+        superclasses = [ob.class.superclass.name]
+        if superclasses.include?( "Array") or superclasses.include?( "Parfait::List")
+          fill_array view
+        end
+        if superclasses.include?( "Hash") or superclasses.include?( "Parfait::Dictionary")
+          fill_hash view
+        end
+      end
+    end
+  end
+
+  # and hash keys/values
+  def fill_hash hash
+    return
+    hash.each do |a,b|
+      next_level << a
+      next_level << b
+    end
+  end
+  # and array values
+  def fill_array array
+    return
+    array.each do |a|
+      next_level << a
+    end
+  end
+
+
+end