Legacy-CC/sPhone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update config.lua

Browse source
This commit is contained in:
Ale32bit 2016-11-02 21:02:27 +01:00 committed by GitHub
parent 3f821c3c7b
commit 6bbcf55c39
1 changed files with 49 additions and 132 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

181
src/apis/config.lua
View file

@ -1,141 +1,58 @@
--Config API from LMNetOS
function write(file,config,value)
local data = {}
if fs.isDir(file) then
return false
end
if fs.exists(file) then
local f = fs.open(file,"r")
local con = f.readAll()
f.close()
con = textutils.unserialize(con)
if not con then
return false
end
data = con
end
data[config] = value
local f = fs.open(file,"w")
f.write(textutils.serialize(data))
f.close()
return true
end
function read(cfgfile, cfg)
local rtn
local ok, err = pcall(function()
local path
if not cfgfile then
path = "/.lmnet/sys.conf"
else
path = cfgfile
end
local file = fs.open(path, "r")
if not file then
function read(file,config)
local data = {}
if fs.isDir(file) then
return nil
end
if fs.exists(file) then
local f = fs.open(file,"r")
local con = f.readAll()
f.close()
con = textutils.unserialize(con)
if not con then
return nil
end
local lines = {}
local line = ""
while line ~= nil do
line = file.readLine()
if line then
table.insert(lines, line)
end
end
file.close()
local config = {}
for _, v in pairs(lines) do
local tmp
local tmp2 = ""
for match in string.gmatch(v, "[^\=]+") do
if tmp then
tmp2 = tmp2..match
else
tmp = match
end
end
config[tmp] = textutils.unserialize(tostring(tmp2))
end
for i, v in pairs(config) do
if i == cfg then
rtn = v
return
end
end
end)
if not ok then
return false, err
data = con
end
return rtn
return data[config]
end
function write(cfgfile, cfg, value)
local rtn = false
local ok, err = pcall(function()
local path
if not cfgfile then
path = "/.lmnet/sys.conf"
else
path = cfgfile
end
if fs.exists(path) and fs.isDir(path) then
error(path.." is a directory", 0)
end
local readfile = fs.open(path, "r")
local readlines = {}
if readfile then
local readline = ""
while readline ~= nil do
readline = readfile.readLine()
if readline then
table.insert(readlines, readline)
end
end
readfile.close()
end
local config = {}
if fs.exists(path) and not fs.isDir(path) then
for _, v in pairs(readlines) do
local tmp
local tmp2 = ""
for match in string.gmatch(v, "[^\=]+") do
if tmp then
tmp2 = tmp2..match
else
tmp = match
end
end
config[tmp] = textutils.unserialize(tostring(tmp2))
end
end
local writefile = fs.open(path, "w")
config[cfg] = value
table.sort(config)
for i, v in pairs(config) do
writefile.writeLine(i.."="..textutils.serialize(v))
end
writefile.close()
rtn = true
end)
return rtn
end
function list(cfgfile)
local rtn
local ok, err = pcall(function()
local path
if not cfgfile then
path = "/.lmnet/sys.conf"
else
path = cfgfile
end
local file = fs.open(path, "r")
if not file then
function list(file)
local data = {}
if fs.isDir(file) then
return nil
end
if fs.exists(file) then
local f = fs.open(file,"r")
local con = f.readAll()
f.close()
con = textutils.unserialize(con)
if not con then
return nil
end
local lines = {}
local line = ""
while line ~= nil do
line = file.readLine()
if line then
table.insert(lines, line)
end
end
file.close()
local config = {}
for _, v in pairs(lines) do
local tmp
local tmp2 = ""
for match in string.gmatch(v, "[^\=]+") do
if tmp then
tmp2 = tmp2..match
else
tmp = match
end
end
config[tmp] = textutils.unserialize(tostring(tmp2))
end
rtn = config
end)
if not ok then
return false, err
data = con
end
return rtn
return data
end