mirror of
https://github.com/mamedev/mame.git
synced 2024-11-16 07:48:32 +01:00
b5475eb38b
Compile Lua as C++. When Lua is compiled as C, it uses setjmp/longjmp for error handling, resulting in failure to unwind intermediate stack frames. Trying to ensure no objects with non-trivial destructors are in scope when raising a Lua error is error-prone. In particular, converting an exception to a Lua error becomes convoluted, and raising a Lua error from a constructor is effectively impossible. Updated Lua to 5.4.4 - this includes a brand-new garbage collector implementation with better performance. The main thing removed is the deprecated bitlib. Updated sol2 to version 3.3.0 - this adds support for Lua 5.4 and fixes a number of issues, including not correctly handling errors when Lua is built as C++. Updated LuaFileSystem to version 1.8.0 - this adds support for symbolic links on Windows, as well as Lua 5.4 compatibility. Updated LuaSQLite3 to version 0.9.5 - this fixes issues in multi-threaded environments, as well as Lua 5.4 compatibility. Fixed double-free after attempting to construct a debugger expression from Lua with an invalid string, and exposed expression error to Lua in a better way. Added warning level print function to Lua. Fixed saving cheats with shift operators in expressions, although this code isn't actually used as there's no cheat editor.
153 lines
3.7 KiB
Lua
153 lines
3.7 KiB
Lua
local sqlite3 = require("lsqlite3")
|
|
|
|
local width = 78
|
|
local function line(pref, suff)
|
|
pref = pref or ''
|
|
suff = suff or ''
|
|
local len = width - 2 - string.len(pref) - string.len(suff)
|
|
print(pref .. string.rep('-', len) .. suff)
|
|
end
|
|
|
|
local db, vm
|
|
local assert_, assert = assert, function (test)
|
|
if (not test) then
|
|
error(db:errmsg(), 2)
|
|
end
|
|
end
|
|
|
|
line(sqlite3.version())
|
|
|
|
os.remove('test.db')
|
|
db = sqlite3.open('test.db')
|
|
|
|
line(nil, 'db:exec')
|
|
db:exec('CREATE TABLE t(a, b)')
|
|
|
|
line(nil, 'prepare')
|
|
vm = db:prepare('insert into t values(?, :bork)')
|
|
assert(vm, db:errmsg())
|
|
assert(vm:bind_parameter_count() == 2)
|
|
assert(vm:bind_values(2, 4) == sqlite3.OK)
|
|
assert(vm:step() == sqlite3.DONE)
|
|
assert(vm:reset() == sqlite3.OK)
|
|
assert(vm:bind_names{ 'pork', bork = 'nono' } == sqlite3.OK)
|
|
assert(vm:step() == sqlite3.DONE)
|
|
assert(vm:reset() == sqlite3.OK)
|
|
assert(vm:bind_names{ bork = 'sisi' } == sqlite3.OK)
|
|
assert(vm:step() == sqlite3.DONE)
|
|
assert(vm:reset() == sqlite3.OK)
|
|
assert(vm:bind_names{ 1 } == sqlite3.OK)
|
|
assert(vm:step() == sqlite3.DONE)
|
|
assert(vm:finalize() == sqlite3.OK)
|
|
|
|
line("select * from t", 'db:exec')
|
|
|
|
assert(db:exec('select * from t', function (ud, ncols, values, names)
|
|
--table.setn(values, 2)
|
|
print((unpack or table.unpack)(values))
|
|
return sqlite3.OK
|
|
end) == sqlite3.OK)
|
|
|
|
line("select * from t", 'db:prepare')
|
|
|
|
vm = db:prepare('select * from t')
|
|
assert(vm, db:errmsg())
|
|
print(vm:get_unames())
|
|
while (vm:step() == sqlite3.ROW) do
|
|
print(vm:get_uvalues())
|
|
end
|
|
assert(vm:finalize() == sqlite3.OK)
|
|
|
|
|
|
|
|
line('udf', 'scalar')
|
|
|
|
local function do_query(sql)
|
|
local r
|
|
local vm = db:prepare(sql)
|
|
assert(vm, db:errmsg())
|
|
print('====================================')
|
|
print(vm:get_unames())
|
|
print('------------------------------------')
|
|
r = vm:step()
|
|
while (r == sqlite3.ROW) do
|
|
print(vm:get_uvalues())
|
|
r = vm:step()
|
|
end
|
|
assert(r == sqlite3.DONE)
|
|
assert(vm:finalize() == sqlite3.OK)
|
|
print('====================================')
|
|
end
|
|
|
|
local function udf1_scalar(ctx, v)
|
|
local ud = ctx:user_data()
|
|
ud.r = (ud.r or '') .. tostring(v)
|
|
ctx:result_text(ud.r)
|
|
end
|
|
|
|
db:create_function('udf1', 1, udf1_scalar, { })
|
|
do_query('select udf1(a) from t')
|
|
|
|
|
|
line('udf', 'aggregate')
|
|
|
|
local function udf2_aggregate(ctx, ...)
|
|
local ud = ctx:get_aggregate_data()
|
|
if (not ud) then
|
|
ud = {}
|
|
ctx:set_aggregate_data(ud)
|
|
end
|
|
ud.r = (ud.r or 0) + 2
|
|
end
|
|
|
|
local function udf2_aggregate_finalize(ctx, v)
|
|
local ud = ctx:get_aggregate_data()
|
|
ctx:result_number(ud and ud.r or 0)
|
|
end
|
|
|
|
db:create_aggregate('udf2', 1, udf2_aggregate, udf2_aggregate_finalize, { })
|
|
do_query('select udf2(a) from t')
|
|
|
|
if (true) then
|
|
line(nil, '100 insert exec')
|
|
db:exec('delete from t')
|
|
local t = os.time()
|
|
for i = 1, 100 do
|
|
db:exec('insert into t values('..i..', '..(i * 2 * -1^i)..')')
|
|
end
|
|
print('elapsed: '..(os.time() - t))
|
|
do_query('select count(*) from t')
|
|
|
|
line(nil, '100000 insert exec T')
|
|
db:exec('delete from t')
|
|
local t = os.time()
|
|
db:exec('begin')
|
|
for i = 1, 100000 do
|
|
db:exec('insert into t values('..i..', '..(i * 2 * -1^i)..')')
|
|
end
|
|
db:exec('commit')
|
|
print('elapsed: '..(os.time() - t))
|
|
do_query('select count(*) from t')
|
|
|
|
line(nil, '100000 insert prepare/bind T')
|
|
db:exec('delete from t')
|
|
local t = os.time()
|
|
local vm = db:prepare('insert into t values(?, ?)')
|
|
db:exec('begin')
|
|
for i = 1, 100000 do
|
|
vm:bind_values(i, i * 2 * -1^i)
|
|
vm:step()
|
|
vm:reset()
|
|
end
|
|
vm:finalize()
|
|
db:exec('commit')
|
|
print('elapsed: '..(os.time() - t))
|
|
do_query('select count(*) from t')
|
|
|
|
end
|
|
|
|
line(nil, "db:close")
|
|
|
|
assert(db:close() == sqlite3.OK)
|
|
|
|
line(sqlite3.version())
|