rubyx-debugger/lib/views/left_view.rb

require_relative "classes_view"

class LeftView < ListView
  def initialize interpreter
    super([ SelectView.new(interpreter) ,
      ObjectView.new( Parfait.object_space , interpreter , 16),
      ClassesView.new(interpreter) ])
  end

  def draw
    super(".classes")
  end
end


class SelectView < ElementView

  def initialize interpreter
    @interpreter = interpreter
    @codes = nil
  end

  def draw
    @element =  div("h4", "Code") << (list = div("ul.nav!"))
    list << (div("li.code_list") << div("a.selected" , "none selected"))
    selection_codes unless @codes
    @element << div("br")
    @element << div("br")
  end

  def selection_codes
    @codes = get_codes.keys
    list = div "ul"
    @codes << @codes.first if @codes.length == 1  #otherwise unselectable
    @codes.each do |c|
      code = div("li") << div("a" , c )
      code.on("click"){ select(c) }
      list <<  code
    end
    @element.at_css(".code_list") <<  list
  end

  def select( code )
    puts "selecting #{code}"
    machine = Risc.machine.boot
    @interpreter.set_state :stopped
    @element.at_css(".selected").text = code
    ruby = get_codes[code]
    Vool::VoolCompiler.ruby_to_vool( as_main(ruby) )
    machine.objects
    puts "starting"
    @interpreter.start machine.risc_init
  end
  def as_main(statements)
    "class Space ;def main(arg) ; #{statements}; end; end"
  end
  def get_codes
    {set_internal_byte: "return 'Hello'.set_internal_byte(1,75)" ,
     called_if: 'if( 10 ); return "then";else;return "else";end' ,
     hello_world: "h = 'Hello World'.putstring;return h",
     dynamic_call: "a = 15 ; return a.div10",
      }
  end

end