Tinker for an observe teddie script

1 files changed, 62 insertions, 0 deletions

diff --git a/src/main/lua/misc/ObserveHashContainers.lua b/src/main/lua/misc/ObserveHashContainers.lua
new file mode 100644
index 0000000..555f22a
--- /dev/null
+++ b/src/main/lua/misc/ObserveHashContainers.lua
@@ -0,0 +1,62 @@
+
+local SL = require("scriptlee")
+local newShellcmd = SL.newShellcmd
+local objectSeal = SL.objectSeal
+local sleep = SL.posix.sleep
+local startOrExecute = SL.reactor.startOrExecute
+SL = nil
+
+local log = io.stderr
+local mod = {}
+
+
+function mod.printHelp()
+    io.stdout:write("\n"
+        .."  TODO write help page\n"
+        .."\n"
+        --.."  Options:\n"
+        --.."\n"
+        .."\n")
+end
+
+
+function mod.parseArgs( app )
+    local iA = 0
+    while true do iA = iA + 1
+        local arg = _ENV.arg[iA]
+        if not arg then
+            break
+        elseif arg == "--help" then
+            mod.printHelp() return -1
+        else
+            log:write("Unexpected arg: "..tostring(arg).."\n") return -1
+        end
+    end
+    return 0
+end
+
+
+function mod.run( app )
+    local cmd = newShellcmd{
+        cmd = "printf 'guguseli\n'",
+    }
+    cmd:start()
+    cmd:closeSnk()
+    while true do
+        local exit, signal = cmd:join(1000)
+        log:write("exit:   "..tostring(exit).."\n")
+        log:write("signal: "..tostring(signal).."\n")
+        sleep(1)
+    end
+    log:write("TODO not impl yet\n")
+end
+
+
+function mod.main()
+    local app = objectSeal{}
+    if mod.parseArgs(app) ~= 0 then os.exit(1) end
+    mod.run(app)
+end
+
+
+startOrExecute(nil, mod.main)