"Better" XML parsing for the very sad Penlight, and now I'm sad. We're all sad. People, don't use XML files for anything ever. Just don't...

Author: ReFreezed

bin/libexpat.dll

@@ -0,0 +1,19 @@
+Copyright � 2003-2007 The Kepler Project.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

bin/lxp-license.txt

@@ -0,0 +1,60 @@
+-- See Copyright Notice in license.html
+-- $Id: lom.lua,v 1.6 2005/06/09 19:18:40 tuler Exp $
+
+require "lxp"
+
+local tinsert, tremove, getn = table.insert, table.remove, table.getn
+local assert, type, print = assert, type, print
+local lxp = lxp
+
+module ("lxp.lom")
+
+local function starttag (p, tag, attr)
+  local stack = p:getcallbacks().stack
+  local newelement = {tag = tag, attr = attr}
+  tinsert(stack, newelement)
+end
+
+local function endtag (p, tag)
+  local stack = p:getcallbacks().stack
+  local element = tremove(stack)
+  assert(element.tag == tag)
+  local level = getn(stack)
+  tinsert(stack[level], element)
+end
+
+local function text (p, txt)
+  local stack = p:getcallbacks().stack
+  local element = stack[getn(stack)]
+  local n = getn(element)
+  if type(element[n]) == "string" then
+    element[n] = element[n] .. txt
+  else
+    tinsert(element, txt)
+  end
+end
+
+function  parse (o)
+  local c = { StartElement = starttag,
+              EndElement = endtag,
+              CharacterData = text,
+              _nonstrict = true,
+              stack = {{}}
+            }
+  local p = lxp.new(c)
+  local status, err
+  if type(o) == "string" then
+    status, err = p:parse(o)
+    if not status then return nil, err end
+  else
+    for l in o do
+      status, err = p:parse(l)
+      if not status then return nil, err end
+    end
+  end
+  status, err = p:parse()
+  if not status then return nil, err end
+  p:close()
+  return c.stack[1][1]
+end
+

bin/lxp.dll

@@ -0,0 +1,19 @@
+----------------------------------------------------------------------------
+-- $Id: md5.lua,v 1.4 2006/08/21 19:24:21 carregal Exp $
+----------------------------------------------------------------------------
+
+local core = require"md5.core"
+local string = require"string"
+
+module ("md5")
+
+----------------------------------------------------------------------------
+-- @param k String with original message.
+-- @return String with the md5 hash value converted to hexadecimal digits
+
+function sumhexa (k)
+  k = core.sum(k)
+  return (string.gsub(k, ".", function (c)
+           return string.format("%02x", string.byte(c))
+         end))
+end

bin/md5/core.dll

@@ -29,6 +29,12 @@ require"functions"
 io.stdout:setvbuf("no")
 io.stderr:setvbuf("no")
 
+!if DEV and 1==0 then
+	-- Test XML parsing.
+	print(xmlLib.parse('<?xml version="1.0" encoding="UTF-8"?>\n<xml>foo<![CDATA[bar]]></xml>', false))
+	os.exit(2)
+!end
+
 local ok, err = xpcall(
 	function()
 		require"app"