Added the ini library, from the original µLua

uCompat/ini.lua

@@ -0,0 +1,178 @@
+--[[  
+    Copyright 2008-2013 Risike, Reylak, geeker (Firew0lf), MicroLua's developers
+    
+    This file is part of MicroLua.
+
+    MicroLua is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    MicroLua is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with MicroLua.  If not, see <http://www.gnu.org/licenses/>.
+]]
+
+-- Trim a string
+function stringTrim(s)
+ assert(type(s) == "string", "bar argument #1 to 'stringTrim' (string expected, got " .. type(s) .. ")")
+ local toret = (string.gsub(s, "^%s*(.-)%s*$", "%1"))
+ local i = #toret
+ while string.sub(toret, i, i) == " " and i > 0 do --remove end spaces
+  toret = string.sub(toret, 0, -2)
+  i = i - 1
+ end
+ i = nil
+ return toret
+end
+
+INI = {}
+
+-- Save a table into an INI file
+-- path: path of the file to write
+-- tab: table to save
+INI.save = function(path, tab)
+ assert(type(path) == "string", "bad argument #1 to 'INI.save' (string expected, got " .. type(path) .. ")")
+ assert(type(tab) == "table", "bad argument #2 to 'INI.save' (table expected, got " .. type(tab) .. ")")
+ local f = io.open(path, "w")
+ local i = 0
+ local structure
+ for key, value in pairs(tab) do
+  if i ~= 0 then
+   f:write("\n")
+  end
+  --if value is a table
+  if type(value) == "table" then
+   structure = (structure or "table")
+   assert(structure == "table", "'INI.save' cannot save mixed table structure")
+   f:write("["..key.."]".."\n")
+   for key2, value2 in pairs(tab[key]) do
+    key2 = stringTrim(key2)
+    value2 = stringTrim(value2)
+    key2 = key2:gsub(";", "\\;")
+    key2 = key2:gsub("=", "\\=")
+    value2 = value2:gsub(";", "\\;")
+    value2 = value2:gsub("=", "\\=")   
+    f:write(key2.."="..value2.."\n")
+   end
+  --if value is an other value (what ???)
+  else
+   structure = (structure or "simple")
+   assert(structure == "simple", "'INI.save' cannot save mixed table structure")
+   key, value = stringTrim(key), stringTrim(tostring(value))
+   f:write(key.."="..value)
+  end
+  --increment
+  i = i + 1
+ end
+ f:close()
+end
+
+-- Load an INI file
+-- path: path of the file to read
+-- simpleStruct (boolean): use simple INI structure
+INI.load = function(path, simpleStruct)
+ assert(type(path) == "string", "bad argument #1 to 'INI.load' (string expected, got " .. type(path) .. ")")
+ local f = io.open(path, "r")
+ if not f then return nil end
+ local tab = {}
+ local line = ""
+ local newLine
+ local pos = 0
+ --default loading mode
+ if not simpleStruct then
+  local i
+  local currentTag = nil
+  local found = false
+  while line ~= nil do
+   found = false      
+   line = line:gsub("\\;", "#_!36!_#") -- to keep \;
+   line = line:gsub("\\=", "#_!71!_#") -- to keep \=
+   if line ~= "" then
+    -- Delete comments
+    newLine = line
+    line = ""
+    for i=1, string.len(newLine) do            
+     if string.sub(newLine, i, i) ~= ";" then
+      line = line..newLine:sub(i, i)                  
+     else            
+      break
+     end
+    end
+    line = stringTrim(line)
+    -- Find tag         
+    if line:sub(1, 1) == "[" and line:sub(line:len(), line:len()) == "]" then
+     currentTag = stringTrim(line:sub(2, line:len()-1))
+     tab[currentTag] = {}
+     found = true                     
+    end
+    -- Find key and values
+    if not found and line ~= "" then            
+     pos = line:find("=")            
+     assert(pos, "bad INI file structure")
+     line = line:gsub("#_!36!_#", ";")
+     line = line:gsub("#_!71!_#", "=")
+     tab[currentTag][stringTrim(line:sub(1, pos-1))] = stringTrim(line:sub(pos+1, line:len()))
+     found = true         
+    end         
+   end
+   line = f:read("*line")      
+  end
+ --simple mode
+ else
+  while line do
+   line = f:read("*l")
+   if not line then break end
+   --remove comments
+   newline = line
+   line = ""
+   for i = 1, #newline do
+    if newline:sub(i, i) == ";" then
+	 break
+	else
+	 line = (line..newline:sub(i, i))
+	end
+   end
+   --get the value
+   if string.gsub(line, " ", "") ~= "" then
+    pos = string.find(line, "=")
+	assert(pos, "bad simple INI file structure")
+	tab[line:sub(1, pos-1)] = line:sub(pos+1, -1)
+   end
+   --
+  end
+ end
+ --
+ f:close()
+ return tab
+end
+
+-- crypt a table
+-- tab: table to crypt
+-- key: number to use
+function table.crypt(tab, key)
+ assert(type(tab) == "table", "bad argument #1 to 'table.script' (table expected, got " .. type(tab) .. ")")
+ assert(type(key) == "number", "bad argument #2 to 'table.crypt' (number expected, got " .. type(key) .. ")")
+ local tcrypt = {}
+ for k, v in pairs(tab) do
+  if type(v) == "table" then
+   tcrypt[k] = {}
+   for k2, v2 in pairs(v) do
+    v2 = tostring(v2)
+    k2 = tostring(k2)
+    k2 = string.reverse(string.sub(k2, key, -1)..string.sub(k2, 0, key-1))
+    tcrypt[k][k2] = string.reverse(string.sub(v2, key, -1)..string.sub(v2, 0, key-1))
+   end
+  else
+   v = tostring(v)
+   k = tostring(k)
+   k = string.reverse(string.sub(k, key, -1)..string.sub(k, 0, key-1))
+   tcrypt[k] = string.reverse(string.sub(v, key, -1)..string.sub(v, 0, key-1))
+  end
+ end
+ return tcrypt
+end

uCompat/init.lua

@@ -24,3 +24,4 @@ require("uCompat.Motion")
 require("uCompat.Rumble")
 require("uCompat.dsUser")
 require("uCompat.System")
+require("uCompat.ini")