+ Developer tools/Find in scripts...

Author: fferri

Find in scripts.lua

@@ -0,0 +1,90 @@
+sim = require 'sim'
+
+function sysCall_info()
+    return {autoStart = false, menu = 'Developer tools\nFind in scripts...'}
+end
+
+function sysCall_addOnScriptSuspend()
+    return {cmd = 'cleanup'}
+end
+
+function sysCall_init()
+    simUI = require 'simUI'
+    showDlg()
+end
+
+function sysCall_nonSimulation()
+    if leaveNow then return {cmd = 'cleanup'} end
+end
+
+function sysCall_beforeSimulation()
+    hideDlg()
+end
+
+function sysCall_afterSimulation()
+    showDlg()
+end
+
+function sysCall_cleanup()
+    hideDlg()
+end
+
+function sysCall_beforeInstanceSwitch()
+    hideDlg()
+end
+
+function showDlg()
+    if not ui then
+        local pos = 'placement="center"'
+        if uiPos then
+            pos = 'position="' .. uiPos[1] .. ',' .. uiPos[2] .. '" placement="absolute"'
+        end
+        local xml = [[
+        <ui title="Find in scripts" activate="true" closeable="true" on-close="close_callback" ]] .. pos .. [[>
+            <group layout="form" flat="true">
+                <label text="Search string:"/>
+                <edit value="" id="1" />
+            </group>
+            <button text="Find" on-click="find_callback" id="3"/>
+        </ui>
+        ]]
+        ui = simUI.create(xml)
+    end
+end
+
+function hideDlg()
+    if ui then
+        uiPos = {}
+        uiPos[1], uiPos[2] = simUI.getPosition(ui)
+        simUI.destroy(ui)
+        ui = nil
+    end
+end
+
+function find_callback(ui, id, v)
+    local searchString = simUI.getEditValue(ui, 1)
+    if #searchString > 0 then
+        for i, handle in ipairs(sim.getObjectsInTree(sim.handle_scene, sim.object_script_type)) do
+            local alias = sim.getObjectAlias(handle, 2)
+            local code = sim.getProperty(handle, 'code')
+            grep(code, searchString, alias)
+        end
+    end
+end
+
+function close_callback()
+    leaveNow = true
+end
+
+function grep(text, searchText, prefix)
+    local lines = {}
+    for line in text:gmatch("[^\r\n]+") do
+        table.insert(lines, line)
+    end
+
+    for lineNumber, line in ipairs(lines) do
+        if line:find(searchText) then
+            print(string.format("%s:%d: %s", prefix, lineNumber, line))
+        end
+    end
+end