X-Git-Url: http://git.openwrt.org/?a=blobdiff_plain;f=contrib%2Fluadoc%2Flua%2Fluadoc%2Flp.lua;fp=contrib%2Fluadoc%2Flua%2Fluadoc%2Flp.lua;h=0000000000000000000000000000000000000000;hb=8464b98bb440fabdb4e7fdca12f7a79915d137be;hp=adf84f9f0ec51f00adb63608caf625946ace473e;hpb=c669c01cea36ce09b64a53dc0e597d27411e9c88;p=project%2Fluci.git

diff --git a/contrib/luadoc/lua/luadoc/lp.lua b/contrib/luadoc/lua/luadoc/lp.lua
deleted file mode 100644
index adf84f9f0e..0000000000
--- a/contrib/luadoc/lua/luadoc/lp.lua
+++ /dev/null
@@ -1,130 +0,0 @@
-----------------------------------------------------------------------------
--- Lua Pages Template Preprocessor.
---
--- @release $Id: lp.lua,v 1.7 2007/04/18 14:28:39 tomas Exp $
-----------------------------------------------------------------------------
-
-local assert, error, getfenv, loadstring, setfenv = assert, error, getfenv, loadstring, setfenv
-local find, format, gsub, strsub = string.find, string.format, string.gsub, string.sub
-local concat, tinsert = table.concat, table.insert
-local open = io.open
-
-module (...)
-
-----------------------------------------------------------------------------
--- function to do output
-local outfunc = "io.write"
--- accepts the old expression field: `$| <Lua expression> |$'
-local compatmode = true
-
---
--- Builds a piece of Lua code which outputs the (part of the) given string.
--- @param s String.
--- @param i Number with the initial position in the string.
--- @param f Number with the final position in the string (default == -1).
--- @return String with the correspondent Lua code which outputs the part of the string.
---
-local function out (s, i, f)
-	s = strsub(s, i, f or -1)
-	if s == "" then return s end
-	-- we could use `%q' here, but this way we have better control
-	s = gsub(s, "([\\\n\'])", "\\%1")
-	-- substitute '\r' by '\'+'r' and let `loadstring' reconstruct it
-	s = gsub(s, "\r", "\\r")
-	return format(" %s('%s'); ", outfunc, s)
-end
-
-
-----------------------------------------------------------------------------
--- Translate the template to Lua code.
--- @param s String to translate.
--- @return String with translated code.
-----------------------------------------------------------------------------
-function translate (s)
-	if compatmode then
-		s = gsub(s, "$|(.-)|%$", "<?lua = %1 ?>")
-		s = gsub(s, "<!%-%-$$(.-)$$%-%->", "<?lua %1 ?>")
-	end
-	s = gsub(s, "<%%(.-)%%>", "<?lua %1 ?>")
-	local res = {}
-	local start = 1   -- start of untranslated part in `s'
-	while true do
-		local ip, fp, target, exp, code = find(s, "<%?(%w*)[ \t]*(=?)(.-)%?>", start)
-		if not ip then break end
-		tinsert(res, out(s, start, ip-1))
-		if target ~= "" and target ~= "lua" then
-			-- not for Lua; pass whole instruction to the output
-			tinsert(res, out(s, ip, fp))
-		else
-			if exp == "=" then   -- expression?
-				tinsert(res, format(" %s(%s);", outfunc, code))
-			else  -- command
-				tinsert(res, format(" %s ", code))
-			end
-		end
-		start = fp + 1
-	end
-	tinsert(res, out(s, start))
-	return concat(res)
-end
-
-
-----------------------------------------------------------------------------
--- Defines the name of the output function.
--- @param f String with the name of the function which produces output.
-
-function setoutfunc (f)
-	outfunc = f
-end
-
-----------------------------------------------------------------------------
--- Turns on or off the compatibility with old CGILua 3.X behavior.
--- @param c Boolean indicating if the compatibility mode should be used.
-
-function setcompatmode (c)
-	compatmode = c
-end
-
-----------------------------------------------------------------------------
--- Internal compilation cache.
-
-local cache = {}
-
-----------------------------------------------------------------------------
--- Translates a template into a Lua function.
--- Does NOT execute the resulting function.
--- Uses a cache of templates.
--- @param string String with the template to be translated.
--- @param chunkname String with the name of the chunk, for debugging purposes.
--- @return Function with the resulting translation.
-
-function compile (string, chunkname)
-	local f, err = cache[string]
-	if f then return f end
-	f, err = loadstring (translate (string), chunkname)
-	if not f then error (err, 3) end
-	cache[string] = f
-	return f
-end
-
-----------------------------------------------------------------------------
--- Translates and executes a template in a given file.
--- The translation creates a Lua function which will be executed in an
--- optionally given environment.
--- @param filename String with the name of the file containing the template.
--- @param env Table with the environment to run the resulting function.
-
-function include (filename, env)
-	-- read the whole contents of the file
-	local fh = assert (open (filename))
-	local src = fh:read("*a")
-	fh:close()
-	-- translates the file into a function
-	local prog = compile (src, '@'..filename)
-	local _env
-	if env then
-		_env = getfenv (prog)
-		setfenv (prog, env)
-	end
-	prog ()
-end