73 lines
1.7 KiB
Ruby
73 lines
1.7 KiB
Ruby
require_relative "classes_view"
|
|
|
|
class SwitchView < ListView
|
|
def initialize interpreter
|
|
super([ SelectView.new(interpreter) , ClassesView.new(interpreter) ])
|
|
end
|
|
|
|
def draw
|
|
super(".classes")
|
|
end
|
|
end
|
|
# opal eval seems to get the scope wrong and evals in object (not where its called)
|
|
include AST::Sexp
|
|
|
|
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"))
|
|
get_codes unless @codes
|
|
@element << div("br")
|
|
@element << div("br")
|
|
end
|
|
|
|
def get_codes
|
|
promise = Browser::HTTP.get "/codes.json"
|
|
promise.then do |response|
|
|
@codes = response.text.split("----")
|
|
add_selection
|
|
end
|
|
end
|
|
|
|
def add_selection
|
|
list = div "ul"
|
|
@codes << @codes.first if @codes.length == 1
|
|
@codes.each do |c|
|
|
code = div("li") << div("a" , c )
|
|
code.on("click"){ select(c) }
|
|
list << code
|
|
end
|
|
select(@codes.first)
|
|
@element.at_css(".code_list") << list
|
|
end
|
|
|
|
def decode code
|
|
begin
|
|
return Kernel.eval(code)
|
|
rescue => e
|
|
@element.at_css(".selected").text = "error, #{e}"
|
|
puts e
|
|
end
|
|
s(:statements, s(:class, :Foo, s(:derives, nil), s(:statements, s(:class_field, :Integer, :x))))
|
|
end
|
|
|
|
def select code
|
|
@interpreter.set_state :stopped
|
|
@element.at_css(".selected").text = code
|
|
promise = Browser::HTTP.get "/#{code}.json"
|
|
promise.then do |response|
|
|
code = decode( response.text)
|
|
machine = Register.machine.boot
|
|
Soml.compile( code )
|
|
machine.collect
|
|
@interpreter.start machine.init
|
|
end
|
|
end
|
|
end
|