* Reworked host-Target for global Makefile

* Fixed dispatcher to correctly support fastindex

diff --git a/Makefile b/Makefile
index 32ef02d4e5c043409120b01cd0d8a9b49c460e82..5dd89c0bbf7c6ad3accdf93e4954666ca53122fe 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -15,8 +15,9 @@ clean:
        for i in $(MODULES); do make -C$$i clean; done
 
 host: build
-       mkdir -p host/luci
-       for i in $(MODULES); do cp $$i/dist$(LUCI_INSTALLDIR) host/ -R 2>/dev/null || true; done
+       mkdir -p host
+       for i in $(MODULES); do cp $$i/dist/* host/ -R 2>/dev/null || true; done
+       ln -sf .$(LUCI_INSTALLDIR) host/luci
        
 hostclean: clean
        rm host -rf

diff --git a/applications/sgi-haserl/root/www/cgi-bin/luci b/applications/sgi-haserl/root/www/cgi-bin/luci
index 8b06527a0b5223dbd8e8371c4d5d4b46e23ca842..13fec754e3708b1b6e7a149ce71f0d9c5218cf98 100755 (executable)
--- a/applications/sgi-haserl/root/www/cgi-bin/luci
+++ b/applications/sgi-haserl/root/www/cgi-bin/luci
@@ -1,3 +1,2 @@
 #!/usr/bin/haserl --shell=luac
-require("luci.dispatcher").createindex()
-luci.dispatcher.httpdispatch()
\ No newline at end of file
+require("luci.dispatcher").httpdispatch()
\ No newline at end of file

diff --git a/build/module.mk b/build/module.mk
index 52c0e52682d92c645cbcbb9ed8b951379687dac1..9c17df18ce8302a578e7b1d668928c58bc557846 100644 (file)
--- a/build/module.mk
+++ b/build/module.mk
@@ -9,7 +9,7 @@ source:
        for i in $$(find dist -name .svn); do rm $$i -rf; done  
        
 compile: source
-       for i in $$(find dist -name *.lua); do $(LUAC) $(LUAC_OPTIONS) -o $$i $$i; done
+       for i in $$(find dist -name *.lua -not -name debug.lua); do $(LUAC) $(LUAC_OPTIONS) -o $$i $$i; done
        
 clean:
        rm dist -rf

diff --git a/core/src/dispatcher.lua b/core/src/dispatcher.lua
index d69045c0245d06365de579bb24ecf9be3384f7f2..103260c48503876c98b908caf5f4f51ff744e6c3 100644 (file)
--- a/core/src/dispatcher.lua
+++ b/core/src/dispatcher.lua
@@ -31,12 +31,19 @@ require("luci.fs")
 -- Local dispatch database
 local tree = {nodes={}}
 
+-- Index table
+local index = {}
+
 -- Global request object
 request = {}
 
 -- Active dispatched node
 dispatched = nil
 
+-- Status fields
+built_index = false
+built_tree  = false
+
 
 -- Builds a URL
 function build_url(...)
@@ -68,7 +75,7 @@ function error500(message)
        return false
 end
 
--- Dispatches a request depending on the PATH_INFO variable
+-- Creates a request object for dispatching
 function httpdispatch()
        local pathinfo = luci.http.env.PATH_INFO or ""
        local c = tree
@@ -80,7 +87,12 @@ function httpdispatch()
        dispatch()
 end
 
+-- Dispatches a request
 function dispatch()
+       if not built_tree then
+               createtree()
+       end
+
        local c = tree
        local track = {}
 
@@ -131,6 +143,7 @@ end
 
 -- Generates the dispatching tree
 function createindex()
+       index = {}
        local path = luci.sys.libpath() .. "/controller/"
        local suff = ".lua"
        
@@ -139,6 +152,8 @@ function createindex()
        else
                createindex_plain(path, suff)
        end
+       
+       built_index = true
 end
 
 -- Uses fastindex to create the dispatching tree
@@ -149,10 +164,7 @@ function createindex_fastindex(path, suffix)
        fi.scan()
        
        for k, v in pairs(fi.indexes) do
-               local stat, mod = pcall(require, v[2])
-               
-               luci.util.updfenv(v[1], luci.dispatcher)
-               pcall(v[1])
+               index[v[2]] = v[1]
        end
 end
 
@@ -168,12 +180,31 @@ function createindex_plain(path, suffix)
                stat, mod = pcall(require, c)
 
                if stat and mod and type(mod.index) == "function" then
-                       luci.util.updfenv(mod.index, luci.dispatcher)
-                       pcall(mod.index)
+                       index[c] = mod.index
                end
        end
 end
 
+-- Creates the dispatching tree from the index
+function createtree()
+       if not built_index then
+               createindex()
+       end
+
+       for k, v in pairs(index) do
+               luci.util.updfenv(v, _M)
+               
+               local stat, mod = pcall(require, k)
+               if stat then            
+                       luci.util.updfenv(v, mod)
+               end
+               
+               pcall(v)
+       end
+       
+       built_tree = true
+end
+
 -- Shortcut for creating a dispatching node
 function entry(path, target, title, order, add)
        add = add or {}