From 4c207f1c314757d812eb7a80628f242ee96e6f96 Mon Sep 17 00:00:00 2001
From: dg <dg@51575b47-30f0-44d4-a5cc-537603b46e54>
Date: Wed, 30 Dec 2009 12:02:32 +0000
Subject: [PATCH] threaded downloading of module list
git-svn-id: http://svn.net-core.org/repos/t-engine4@166 51575b47-30f0-44d4-a5cc-537603b46e54
---
game/engine/Module.lua | 43 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 43 insertions(+)
diff --git a/game/engine/Module.lua b/game/engine/Module.lua
index 6471893858..1c5b9568a2 100644
--- a/game/engine/Module.lua
+++ b/game/engine/Module.lua
@@ -1,4 +1,5 @@
require "engine.class"
+local lanes = require "lanes"
--- Handles dialog windows
module(..., package.seeall, class.make)
@@ -105,3 +106,45 @@ function _M:loadSavefileDescription(dir)
return ls
end
end
+
+--- Loads a list of modules from te4.org/modules.lualist
+-- Calling this function starts a background thread, which can be waited on by the returned lina object
+-- @param src the url to load the list from, if nil it will default to te4.org
+-- @return a linda object (see lua lanes documentation) which should be waited upon like this <code>local mylist = l:receive("moduleslist")</code>. Also returns a thread handle
+function _M:loadRemoteList(src)
+ local l = lanes.linda()
+
+ function list_handler(src)
+ require "socketed"
+ local http = require "socket.http"
+ local ltn12 = require "ltn12"
+
+ local t = {}
+ http.request{url = src, sink = ltn12.sink.table(t)}
+ local f, err = loadstring(table.concat(t))
+ if err then
+ print("Could not load modules list from ", src, ":", err)
+ l:send("moduleslist", {})
+ return
+ end
+
+ local list = {}
+ local dmods = {}
+ dmods.installableModule = function (t)
+ local ok = true
+
+ if not t.name or not t.long_name or not t.short_name or not t.author then ok = false end
+
+ if ok then
+ list[#list+1] = t
+ end
+ end
+ setfenv(f, dmods)
+ f()
+
+ l:send("moduleslist", list)
+ end
+
+ local h = lanes.gen("*", list_handler)(src or "http://te4.org/modules.lualist")
+ return l, h
+end
--
GitLab