111 lines
2.5 KiB
Plaintext
111 lines
2.5 KiB
Plaintext
|
import Settings from require "models"
|
||
|
|
|
||
|
|
totype = (str) ->
|
||
|
|
if value = tonumber str
|
||
|
|
return value
|
||
|
|
if str == "true"
|
||
|
|
return true
|
||
|
|
if str == "false"
|
||
|
|
return false
|
||
|
|
if str == "nil"
|
||
|
|
return nil
|
||
|
|
return str
|
||
|
|
|
||
|
|
cache = {}
|
||
|
|
|
||
|
|
get = (name, create=true) ->
|
||
|
|
setting = cache[name]
|
||
|
|
unless setting
|
||
|
|
setting = Settings\find :name
|
||
|
|
if (not setting) and create
|
||
|
|
setting = Settings\create :name
|
||
|
|
cache[name] = setting
|
||
|
|
|
||
|
|
if setting
|
||
|
|
return setting
|
||
|
|
else
|
||
|
|
return nil, "failed to load '#{name}' setting"
|
||
|
|
|
||
|
|
local settings
|
||
|
|
settings = {
|
||
|
|
get: (name, skip_index) ->
|
||
|
|
unless name
|
||
|
|
return settings.load!
|
||
|
|
|
||
|
|
unless skip_index -- for metamethods to not loop endlessly
|
||
|
|
return settings[name] if settings[name]
|
||
|
|
|
||
|
|
setting, err = get name
|
||
|
|
if setting
|
||
|
|
value = totype setting.value
|
||
|
|
settings[name] = value
|
||
|
|
return value
|
||
|
|
else
|
||
|
|
return nil, err
|
||
|
|
|
||
|
|
set: (name, value) ->
|
||
|
|
unless name
|
||
|
|
return settings.save!
|
||
|
|
|
||
|
|
setting, err = get name
|
||
|
|
if setting
|
||
|
|
settings[name] = value
|
||
|
|
return setting\update value: tostring value
|
||
|
|
else
|
||
|
|
return nil, err
|
||
|
|
|
||
|
|
save: (name) ->
|
||
|
|
if name
|
||
|
|
setting, err = get name
|
||
|
|
if setting
|
||
|
|
return setting\update value: tostring settings[name]
|
||
|
|
else
|
||
|
|
return nil, err
|
||
|
|
|
||
|
|
else
|
||
|
|
for name, value in pairs settings
|
||
|
|
switch name
|
||
|
|
when "get", "set", "save", "load", "delete"
|
||
|
|
nil
|
||
|
|
else
|
||
|
|
t = type value
|
||
|
|
if t == "function" or t == "table"
|
||
|
|
return nil, "cannot save '#{name}' setting, type '#{t}' not supported"
|
||
|
|
else
|
||
|
|
unless cache[name]
|
||
|
|
cache[name] = Settings\find :name
|
||
|
|
unless cache[name]
|
||
|
|
cache[name] = Settings\create :name
|
||
|
|
|
||
|
|
for name, setting in pairs cache
|
||
|
|
_, err = setting\update value: tostring settings[name]
|
||
|
|
return nil, err if err
|
||
|
|
return true
|
||
|
|
|
||
|
|
load: (name) ->
|
||
|
|
return settings.get name if name
|
||
|
|
|
||
|
|
all_settings = Settings\select "WHERE true"
|
||
|
|
for setting in *all_settings
|
||
|
|
name = setting.name
|
||
|
|
cache[name] = setting
|
||
|
|
settings[name] = totype setting.value
|
||
|
|
return settings
|
||
|
|
|
||
|
|
delete: (name) ->
|
||
|
|
if setting = get name, false
|
||
|
|
if setting\delete!
|
||
|
|
cache[name] = nil
|
||
|
|
settings[name] = nil
|
||
|
|
else
|
||
|
|
return nil, "failed to delete '#{name}' setting"
|
||
|
|
return true
|
||
|
|
}
|
||
|
|
|
||
|
|
return setmetatable settings, {
|
||
|
|
__call: (t, name) ->
|
||
|
|
return settings.get name, true
|
||
|
|
__index: (t, name) ->
|
||
|
|
return settings.get name, true
|
||
|
|
}
|