marty 0.5.12

data/app/components/marty/script_tester.rb

@@ -0,0 +1,114 @@
+class Marty::ScriptTester < Marty::Form
+  include Marty::Extras::Layout
+
+  def configure(c)
+    super
+
+    c.items =
+      [
+       fieldset(I18n.t("script_tester.attributes"),
+                {
+                  name:         "attrs",
+                  attr_type:    :text,
+                  value:        "",
+                  hide_label:   true,
+                  min_height:   125,
+                },
+                {},
+                ),
+       fieldset(I18n.t("script_tester.parameters"),
+                {
+                  name:         "params",
+                  attr_type:    :text,
+                  value:        "",
+                  hide_label:   true,
+                  min_height:   125,
+                },
+                {},
+                ),
+       :result,
+      ]
+  end
+
+  js_configure do |c|
+    c.set_result = <<-JS
+    function(html) {
+       var result = this.netzkeGetComponent('result');
+       result.updateBodyHtml(html);
+    }
+    JS
+
+  end
+
+  def new_engine
+    return unless root_sess[:selected_script_name]
+
+    Marty::ScriptSet.new(root_sess[:selected_tag_id]).
+      get_engine(root_sess[:selected_script_name])
+  end
+
+  endpoint :netzke_submit do |params, this|
+    data = ActiveSupport::JSON.decode(params[:data])
+
+    attrs = data["attrs"].split(';').map(&:strip).reject(&:empty?)
+
+    pjson = data["params"].split("\n").map(&:strip).reject(&:empty?).map {
+      |s| s.sub(/^([a-z0-9_]*)\s*=/, '"\1": ')
+    }.join(',')
+
+    begin
+      phash = ActiveSupport::JSON.decode("{ #{pjson} }")
+    rescue MultiJson::DecodeError
+      this.netzke_feedback "Malformed input parameters"
+      return
+    end
+
+    engine = new_engine
+
+    begin
+      result = attrs.map { |a|
+        node, attr = a.split('.')
+        raise "bad attribute: '#{a}'" if !attr
+        # Need to clone phash since it's modified by eval.  It can
+        # be reused for a given node but not across nodes.
+        res = engine.evaluate(node, attr, phash.clone)
+        q = CGI::escapeHTML(res.to_json)
+        "#{a} = #{q}"
+      }
+
+      this.netzke_feedback "done"
+      this.set_result result.join("<br/>")
+
+    rescue SystemStackError
+      return this.netzke_feedback "System Stack Error"
+
+    rescue => exc
+      res = Delorean::Engine.grok_runtime_exception(exc)
+
+      result = ["Error: #{res['error']}", "Backtrace:"] +
+        res["backtrace"].map {|m, line, fn| "#{m}:#{line} #{fn}"}
+
+      this.netzke_feedback "failed"
+      this.set_result '<font color="red">' + result.join("<br/>") + "</font>"
+    end
+  end
+
+  action :apply do |a|
+    a.text     = I18n.t("script_tester.compute")
+    a.tooltip  = I18n.t("script_tester.compute")
+    a.icon     = :script_go
+    a.disabled = false
+  end
+
+  component :result do |c|
+    c.klass       = Marty::Panel
+    c.title       = I18n.t("script_tester.results")
+    c.html        = ""
+    c.flex        = 1
+    c.min_height  = 250
+    c.auto_scroll = true
+  end
+
+end
+
+ScriptTester = Marty::ScriptTester

data/app/components/marty/script_tester.rb~

@@ -0,0 +1,213 @@
+class Marty::ScriptTester < Marty::CmFormPanel
+  include Marty::Extras::Layout
+
+  def configure(c)
+    super
+
+    c.items =
+      [
+       fieldset(I18n.t("script_tester.attributes"),
+                {
+                  xtype:        :netzkeremotecombo,
+                  name:         "nodename",
+                  attr_type:    :string,
+                  virtual:      true,
+                  field_label:  "Node",
+                },
+                {
+                  xtype:        :netzkeremotecombo,
+                  name:         "attrname",
+                  attr_type:    :string,
+                  virtual:      true,
+                  field_label:  "Attribute",
+                },
+                {
+                  name:         "attrs",
+                  attr_type:    :text,
+                  value:        "",
+                  hide_label:   true,
+                  min_height:   150,
+                },
+                {},
+                ),
+       fieldset(I18n.t("script_tester.parameters"),
+                {
+                  xtype:        :netzkeremotecombo,
+                  name:         "paramname",
+                  attr_type:    :string,
+                  virtual:      true,
+                  hide_label:   true,
+                },
+                {
+                  name:         "params",
+                  attr_type:    :text,
+                  value:        "",
+                  hide_label:   true,
+                  min_height:   100,
+                },
+                {},
+                ),
+       :result,
+      ]
+  end
+
+  js_configure do |c|
+    c.select_script = <<-JS
+    function(script_name) {
+       var me = this;
+
+       var form = me.getForm();
+       // reload the attr/param drop downs
+       form.findField('nodename').store.load({params: {}});
+       form.findField('attrname').reset();
+       form.findField('attrname').store.load({params: {}});
+       form.findField('paramname').store.load({params: {}});
+    }
+    JS
+
+    c.init_component = <<-JS
+    function() {
+       var me = this;
+       me.callParent();
+       var form = me.getForm();
+
+       var nodename  = form.findField('nodename');
+       var attrname  = form.findField('attrname');
+       var attrs     = form.findField('attrs');
+       var paramname = form.findField('paramname');
+       var params    = form.findField('params');
+
+       nodename.on('select', function(combo, record) {
+          var data = record[0] && record[0].data;
+          me.selectNode({node: data.text});
+          attrname.reset();
+          attrname.store.load({params: {}});
+       });
+
+       attrname.on('select', function(combo, record) {
+          if (nodename.getValue()) {
+             attrs.setValue(attrs.getValue() +
+                nodename.getDisplayValue() + "." + record[0].data.text + '; ');
+          }
+          combo.select(null);
+       });
+
+       paramname.on('select', function(combo, record) {
+          params.setValue(params.getValue() + record[0].data.text + " = 0\\n");
+          combo.select(null);
+       });
+    }
+    JS
+
+    c.set_result = <<-JS
+    function(html) {
+       var result = this.netzkeGetComponent('result');
+       result.updateBodyHtml(html);
+    }
+    JS
+
+  end
+
+  def new_engine
+    return unless root_sess[:selected_script_name]
+
+    Marty::ScriptSet.new(root_sess[:selected_tag_id]).
+      get_engine(root_sess[:selected_script_name])
+  end
+
+  def node_list
+    engine = new_engine
+    engine ? engine.enumerate_nodes.sort : []
+  end
+
+  def attr_list
+    engine = new_engine
+    node = root_sess[:selected_node]
+    node && engine ? engine.enumerate_attrs_by_node(node).sort : []
+  end
+
+  def param_list
+    engine = new_engine
+    engine ? engine.enumerate_params.sort : []
+  end
+
+  endpoint :netzke_submit do |params, this|
+    data = ActiveSupport::JSON.decode(params[:data])
+
+    attrs = data["attrs"].split(';').map(&:strip).reject(&:empty?)
+
+    pjson = data["params"].split("\n").map(&:strip).reject(&:empty?).map {
+      |s| s.sub(/^([a-z0-9_]*)\s*=/, '"\1": ')
+    }.join(',')
+
+    begin
+      phash = ActiveSupport::JSON.decode("{ #{pjson} }")
+    rescue MultiJson::DecodeError
+      this.netzke_feedback "Malformed input parameters"
+      return
+    end
+
+    engine = new_engine
+
+    begin
+      result = attrs.map { |a|
+        node, attr = a.split('.')
+        raise "bad attribute: '#{a}'" if !attr
+        # Need to clone phash since it's modified by eval.  It can
+        # be reused for a given node but not across nodes.
+        res = engine.evaluate(node, attr, phash.clone)
+        q = CGI::escapeHTML(res.to_json)
+        "#{a} = #{q}"
+      }
+
+      this.netzke_feedback "done"
+      this.set_result result.join("<br/>")
+    rescue => exc
+      res = Delorean::Engine.grok_runtime_exception(exc)
+
+      result = ["Error: #{res['error']}", "Backtrace:"] +
+        res["backtrace"].map {|m, line, fn| "#{m}:#{line} #{fn}"}
+
+      this.netzke_feedback "failed"
+      this.set_result '<font color="red">' + result.join("<br/>") + "</font>"
+    end
+  end
+
+  def combofy(l)
+    l.each_with_index.map {|x, i| [i+1, x]}
+  end
+
+  endpoint :select_node do |params, this|
+    root_sess[:selected_node] = params[:node]
+  end
+
+  endpoint :get_combobox_options do |params, this|
+    this.data = case params["attr"]
+                when "nodename" then
+                  combofy(node_list)
+                when "attrname" then
+                  combofy(attr_list)
+                when "paramname"
+                  combofy(param_list)
+                end
+  end
+
+  action :apply do |a|
+    a.text     = I18n.t("script_tester.compute")
+    a.tooltip  = I18n.t("script_tester.compute")
+    a.icon     = :script_go
+    a.disabled = false
+  end
+
+  component :result do |c|
+    c.klass       = Marty::CmPanel
+    c.title       = I18n.t("script_tester.results")
+    c.html        = ""
+    c.flex        = 1
+    c.min_height  = 150
+    c.auto_scroll = true
+  end
+
+end
+
+ScriptTester = Marty::ScriptTester

data/app/components/marty/scripting.rb

@@ -0,0 +1,132 @@
+class Marty::Scripting < Netzke::Base
+
+  def configure(c)
+    super
+
+    c.items =
+      [
+       :script_form,
+       {
+         xtype: "tabpanel",
+         active_tab: 0,
+         region: :center,
+         split: true,
+         items: [
+                 {
+                   title: I18n.t("script.selection"),
+                   layout: {
+                     type: :vbox,
+                     align: :stretch,
+                   },
+                   items: [
+                           :tag_grid,
+                           :script_grid,
+                          ],
+                 },
+                 :script_tester,
+                ],
+       },
+      ]
+  end
+
+  js_configure do |c|
+
+    c.header = false
+    c.layout = :border
+
+    c.init_component = <<-JS
+    function() {
+       var me = this;
+       me.callParent();
+
+       var tag_grid      = me.netzkeGetComponent('tag_grid').getView();
+       var script_grid   = me.netzkeGetComponent('script_grid').getView();
+       var script_form   = me.netzkeGetComponent('script_form');
+
+       tag_grid.getSelectionModel().on('selectionchange',
+          function(self, records) {
+
+          if(records[0] == null)
+             return;
+
+          var tag_id = records[0].get('id');
+          me.selectTag({tag_id: tag_id});
+          script_grid.getStore().load();
+          var script_name = null;
+          script_form.netzkeLoad({script_name: script_name});
+          }, me);
+
+       script_grid.getSelectionModel().on('selectionchange',
+          function(self, records) {
+
+          if(script_grid.getStore().isLoading() == true)
+             return;
+
+          if(records[0] == null)
+             return;
+
+          var script_name = records[0].get('name');
+          me.selectScript({script_name: script_name});
+          script_form.netzkeLoad({script_name: script_name});
+          }, me);
+    }
+    JS
+
+    c.script_refresh = <<-JS
+    function(script_name) {
+       if (!script_name) {
+          this.selectScript({});
+          this.netzkeReload();
+       }
+       else {
+          this.selectScript({script_name: script_name});
+          this.netzkeGetComponent('tag_grid').getStore().load();
+          this.netzkeGetComponent('script_grid').getStore().load();
+          this.netzkeGetComponent('script_form').netzkeLoad(
+             {script_name: script_name});
+       }
+    }
+    JS
+  end
+
+  endpoint :select_tag do |params, this|
+    root_sess[:selected_tag_id]      = params[:tag_id]
+    root_sess[:selected_script_name] = nil
+  end
+
+  endpoint :select_script do |params, this|
+    root_sess[:selected_script_name] = params[:script_name]
+  end
+
+  component :tag_grid do |c|
+    c.klass            = Marty::TagGrid
+    c.width            = 400
+    c.height           = 300
+    c.load_inline_data = false
+    c.title            = I18n.t("script.selection_history")
+  end
+
+  component :script_grid do |c|
+    c.width            = 400
+    c.klass            = Marty::ScriptGrid
+    c.title            = I18n.t("script.selection_list")
+    c.flex             = 1
+  end
+
+  component :script_form do |c|
+    c.klass            = Marty::ScriptForm
+    c.title            = I18n.t("script.detail")
+    c.flex             = 1
+    c.split            = true
+    c.region           = :west
+  end
+
+  component :script_tester do |c|
+    c.klass            = Marty::ScriptTester
+    c.title            = I18n.t("script.tester")
+    c.flex             = 1
+  end
+
+end
+
+Scripting = Marty::Scripting