update to use s-tree, not soml

lib/views/switch_view.rb

@@ -22,25 +22,14 @@ class SelectView < ElementView
   def draw
     @element =  div("h4", "Code") << (list = div("ul.nav!"))
     list << (div("li.code_list") << div("a.selected" , "none selected"))
-    get_parfait unless @parfait
     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 get_parfait
-    promise = Browser::HTTP.get "/parfait.json"
-    promise.then do |response|
-      @parfait = decode response.text
-    end
+    @codes = ["1", "2"]
+    add_selection
   end
 
   def add_selection
@@ -51,44 +40,23 @@ class SelectView < ElementView
       code.on("click"){ select(c) }
       list <<  code
     end
-    select(@codes.first)
+    Promise.new.then{
+      select(@codes.first)      
+    }
     @element.at_css(".code_list") <<  list
   end
 
-  def decode code
-    begin
-      val =  Kernel.eval(code)
-      return val
-    rescue => e
-      @element.at_css(".selected").text = "error, #{e}"
-      puts e.backtrace
-    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
-      @parfait.each do |part|
-        begin
-          Soml.compile( part )
-        rescue => e
-          puts e.backtrace
-        end
-      end
-      begin
-        Soml.compile( code  )
-      rescue => e
-        puts e.backtrace
-        raise e
-      end
-      machine.collect
-      puts "starting"
-      @interpreter.start machine.init
-    end
+    input = s(:statements, s(:return, s(:operator_value, :+, s(:int, 5), s(:int, 7))))
+
+    machine = Register.machine.boot
+    #do_clean_compile
+    Typed.compile( input )
+    machine.collect
+
+    puts "starting"
+    @interpreter.start machine.init
   end
 end