milo cleanup + shop

swshop/r.lua

@@ -0,0 +1,63 @@
+local jua = nil
+local idPatt = "#R%d+"
+
+callbackRegistry = {}
+
+local function gfind(str, patt)
+  local t = {}
+  for found in str:gmatch(patt) do
+    table.insert(t, found)
+  end
+
+  if #t > 0 then
+    return t
+  else
+    return nil
+  end
+end
+
+local function findID(url)
+  local found = gfind(url, idPatt)
+  return tonumber(found[#found]:sub(found[#found]:find("%d+")))
+end
+
+local function newID()
+  return #callbackRegistry + 1
+end
+
+local function trimID(url)
+  local found = gfind(url, idPatt)
+  local s, e = url:find(found[#found])
+  return url:sub(1, s-1)
+end
+
+function request(callback, url, headers, postData)
+  local id = newID()
+  local newUrl = url .. "#R" .. id
+  http.request(newUrl, postData, headers)
+  callbackRegistry[id] = callback
+end
+
+function init(jua)
+  jua = jua
+  jua.on("http_success", function(event, url, handle)
+    local id = findID(url)
+    if callbackRegistry[id] then
+      callbackRegistry[id](true, trimID(url), handle)
+      table.remove(callbackRegistry, id)
+    end
+  end)
+
+  jua.on("http_failure", function(event, url, handle)
+    local id = findID(url)
+    if callbackRegistry[id] then
+      callbackRegistry[id](false, trimID(url), handle)
+      table.remove(callbackRegistry, id)
+    end
+  end)
+end
+
+return {
+  request = request,
+  init = init
+}