Enhance web tools with Lua execute

Author: javalikescript

extensions/web-tools/manifest.json

@@ -3,5 +3,5 @@
   "description": "Expose additional web tools",
   "dependencies": ["web-base"],
   "version": "1.0",
-  "script": "../web-base/web-ext.lua"
+  "script": "web-tools.lua"
 }

extensions/web-tools/web-tools.js

@@ -1,9 +1,24 @@
 define(['./web-tools.xml'], function(toolsTemplate) {
 
+  function insertTab(e) {
+    if (e.key == 'Tab') {
+      e.preventDefault();
+      var start = this.selectionStart;
+      var end = this.selectionEnd;
+      this.value = this.value.substring(0, start) + '\t' + this.value.substring(end);
+      this.selectionStart = this.selectionEnd = start + 1;
+    }
+  }
+
   var toolsVue = new Vue({
     template: toolsTemplate,
     data: {
-      logLevel: ''
+      logLevel: '',
+      lua: '',
+      out: ''
+    },
+    mounted: function() {
+      this.$refs.lua.addEventListener('keydown', insertTab);
     },
     methods: {
       onShow: function() {
@@ -22,6 +37,15 @@ define(['./web-tools.xml'], function(toolsTemplate) {
           });
         }
       },
+      execute: function() {
+        var page = this;
+        page.out = '';
+        fetch('/engine/tools/execute', {method: 'POST', body: this.lua}).then(function(response) {
+          return response.text();
+        }).then(function(out) {
+          page.out = out;
+        });
+      },
       clearCache: function() {
         app.clearCache();
       },

extensions/web-tools/web-tools.lua

@@ -0,0 +1,104 @@
+local extension = ...
+
+local StringBuffer = require('jls.lang.StringBuffer') 
+local RestHttpHandler = require('jls.net.http.handler.RestHttpHandler')
+
+local contexts = {}
+
+local function cleanup(server)
+  for _, context in ipairs(contexts) do
+    server:removeContext(context)
+  end
+  contexts = {}
+end
+
+local function addContext(server, ...)
+  local context = server:createContext(...)
+  table.insert(contexts, context)
+end
+
+--[[
+local function os(cmd)
+ local f, err = io.popen(cmd)
+ if f then
+  local r = f:read('a')
+  f:close()
+  return r
+ end
+ return err
+end
+os('uname -a')
+
+local m = {}
+for _, v in pairs(debug.getregistry()) do
+ local t = type(v)
+ if t == 'userdata' then
+  local ut = tostring(v)
+  ut = string.match(ut, '^([^:]+):.*')
+  if ut then
+   t = t..':'..ut
+  end
+ end
+ m[t] = (m[t] or 0) + 1
+end
+for t, c in pairs(m) do
+ print(t, c)
+end
+
+local c = 0
+for cl, ex in pairs(engine:getHTTPServer().pendings) do
+  c = c + 1
+end
+print('pending clients', c)
+
+local luv = require('luv')
+print('uname', luv.os_uname())
+print('hostname', luv.os_gethostname())
+print('pid', luv.os_getpid() >> 0)
+print('printing active handles on stdout'); luv.print_active_handles()
+
+require('jls.util.memprof').printReport(function(data)
+  print('report', data)
+end, false, false, 'csv')
+]]
+extension:subscribeEvent('startup', function()
+  local engine = extension:getEngine()
+  local server = engine:getHTTPServer()
+  cleanup(server)
+  addContext(server, '/engine/tools/(.*)', RestHttpHandler:new({
+    ['execute?method=POST'] = function(exchange)
+      local script = exchange:getRequest():getBody()
+      local fn, err = load(table.concat({
+        'local b, engine = ...',
+        'print = function(v, ...)',
+          'b:append(v)',
+          'if ... then',
+            'for _, w in ipairs({...}) do',
+              'b:append("\\t"):append(w)',
+            'end',
+          'end',
+          'b:append("\\n")',
+        'end',
+        script
+      }, '\n'), 'tools/execute', 't')
+      local b = StringBuffer:new()
+      if fn then
+        fn(b, engine)
+        return b:toString()
+      end
+      return err or 'Error'
+    end
+  }))
+  engine:onExtension('web-base', function(webBaseExtension)
+    webBaseExtension:registerAddonExtension(extension, true)
+  end)
+end)
+
+extension:subscribeEvent('shutdown', function()
+  local engine = extension:getEngine()
+  local server = engine:getHTTPServer()
+  engine:onExtension('web-base', function(webBaseExtension)
+    webBaseExtension:unregisterAddonExtension(extension)
+  end)
+  cleanup(server)
+end)

extensions/web-tools/web-tools.xml

@@ -23,5 +23,9 @@
     <button v-on:click="reloadExtensions"><i class="fas fa-redo"></i>&nbsp;Reload the Extensions</button>
     <button v-on:click="reloadScripts"><i class="fas fa-redo"></i>&nbsp;Reload the Scripts</button>
     <button v-on:click="saveConfig"><i class="far fa-save"></i>&nbsp;Dump Configuration</button>
+    <p>Lua</p>
+    <textarea ref="lua" v-model="lua" spellcheck="false" rows="12" wrap="off" style="width: 100%; resize: none;" placeholder="Enter your Lua code here"></textarea>
+    <button v-on:click="execute"><i class="fas fa-redo"></i>&nbsp;Execute</button>
+    <textarea v-model="out" spellcheck="false" rows="12" wrap="off" style="width: 100%; resize: none;" placeholder="Output" readonly></textarea>
   </page-article>
 </app-page>