From 3681b4b5d79f10d615781d27f2963e68fd8669f8 Mon Sep 17 00:00:00 2001
From: Torsten Ruger <torsten@villataika.fi>
Date: Mon, 9 Nov 2015 00:01:44 +0200
Subject: [PATCH] load parfait code over the net too

some very painful promise debugging solved weird string issue
---
 lib/views/switch_view.rb | 28 +++++++++++++++++++++++++---
 1 file changed, 25 insertions(+), 3 deletions(-)

diff --git a/lib/views/switch_view.rb b/lib/views/switch_view.rb
index a582fc1..f80d9be 100644
--- a/lib/views/switch_view.rb
+++ b/lib/views/switch_view.rb
@@ -22,6 +22,7 @@ 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")
@@ -35,6 +36,13 @@ class SelectView < ElementView
     end
   end
 
+  def get_parfait
+    promise = Browser::HTTP.get "/parfait.json"
+    promise.then do |response|
+      @parfait = decode response.text
+    end
+  end
+
   def add_selection
     list = div "ul"
     @codes << @codes.first if @codes.length == 1
@@ -49,10 +57,11 @@ class SelectView < ElementView
 
   def decode code
     begin
-      return Kernel.eval(code)
+      val =  Kernel.eval(code)
+      return val
     rescue => e
       @element.at_css(".selected").text = "error, #{e}"
-      puts e
+      puts e.backtrace
     end
     s(:statements, s(:class, :Foo, s(:derives, nil), s(:statements, s(:class_field, :Integer, :x))))
   end
@@ -64,8 +73,21 @@ class SelectView < ElementView
     promise.then do |response|
       code = decode( response.text)
       machine = Register.machine.boot
-      Soml.compile( code  )
+      @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
   end