mirror of
https://github.com/Egor00f/luasqlite3-kolibrios.git
synced 2025-09-11 14:39:57 +02:00
upload luasqlite3
This commit is contained in:
32
.vscode/c_cpp_properties.json
vendored
Normal file
32
.vscode/c_cpp_properties.json
vendored
Normal file
@@ -0,0 +1,32 @@
|
|||||||
|
{
|
||||||
|
"configurations": [
|
||||||
|
{
|
||||||
|
"name": "Win32",
|
||||||
|
"includePath": [
|
||||||
|
"${workspaceFolder}/../kolibrios/contrib/sdk/sources/newlib/libc/include",
|
||||||
|
"${workspaceFolder}/../kolibrios/contrib/sdk/sources/sqlite3",
|
||||||
|
"${workspaceFolder}/../kolibrios/contrib/C_Layer/INCLUDE",
|
||||||
|
"${workspaceFolder}/../lua-kolibrios/src"
|
||||||
|
],
|
||||||
|
"defines": [],
|
||||||
|
"cStandard": "c11",
|
||||||
|
"cppStandard": "c++11",
|
||||||
|
"compilerPath": "C:/MinGW/msys/1.0/home/autobuild/tools/win32/bin/kos32-gcc.exe",
|
||||||
|
"intelliSenseMode": "gcc-x86"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"name": "Linux",
|
||||||
|
"includePath": [
|
||||||
|
"${workspaceFolder}/../kolibrios/contrib/sdk/sources/newlib/libc/include",
|
||||||
|
"${workspaceFolder}/../kolibrios/contrib/sdk/sources/sqlite3",
|
||||||
|
"${workspaceFolder}/../kolibrios/contrib/C_Layer/INCLUDE",
|
||||||
|
"${workspaceFolder}/../lua-kolibrios/src"
|
||||||
|
],
|
||||||
|
"defines": [],
|
||||||
|
"cStandard": "c11",
|
||||||
|
"cppStandard": "c++11",
|
||||||
|
"compilerPath": "/home/autobuild/tools/win32/bin/kos32-gcc"
|
||||||
|
}
|
||||||
|
],
|
||||||
|
"version": 4
|
||||||
|
}
|
||||||
9
.vscode/extensions.json
vendored
Normal file
9
.vscode/extensions.json
vendored
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
{
|
||||||
|
"recommendations": [
|
||||||
|
"ms-vscode.cpptools",
|
||||||
|
"ms-vscode.cpptools-themes",
|
||||||
|
"streetsidesoftware.code-spell-checker",
|
||||||
|
"usernamehw.errorlens",
|
||||||
|
"github.vscode-github-actions"
|
||||||
|
]
|
||||||
|
}
|
||||||
33
.vscode/settings.json
vendored
Normal file
33
.vscode/settings.json
vendored
Normal file
@@ -0,0 +1,33 @@
|
|||||||
|
{
|
||||||
|
"files.associations": {
|
||||||
|
"kolibri_libini.h": "c",
|
||||||
|
"lua.hpp": "cpp",
|
||||||
|
"ksys.h": "c",
|
||||||
|
"lua.h": "c",
|
||||||
|
"luaconf.h": "c"
|
||||||
|
},
|
||||||
|
"editor.insertSpaces": false,
|
||||||
|
"cSpell.enabled": true,
|
||||||
|
"cSpell.words": [
|
||||||
|
"kolibrios",
|
||||||
|
"libini",
|
||||||
|
"ksys_",
|
||||||
|
"kolibri",
|
||||||
|
"luaL_newlib",
|
||||||
|
"luaL_pushfail",
|
||||||
|
"luaL_checkinteger",
|
||||||
|
"luaL_checkstring",
|
||||||
|
"lua_pushstring",
|
||||||
|
"lua_pushinteger",
|
||||||
|
"lua_pushboolean",
|
||||||
|
"lua_pushnil",
|
||||||
|
"lua_setfield",
|
||||||
|
"lua_gettop",
|
||||||
|
"lua_isfunction",
|
||||||
|
"lua_createtable",
|
||||||
|
"lua_pcall",
|
||||||
|
"LUALIB_API",
|
||||||
|
"luaopen_",
|
||||||
|
"lualibini_"
|
||||||
|
],
|
||||||
|
}
|
||||||
59
.vscode/tasks.json
vendored
Normal file
59
.vscode/tasks.json
vendored
Normal file
@@ -0,0 +1,59 @@
|
|||||||
|
{
|
||||||
|
"tasks": [
|
||||||
|
{
|
||||||
|
"type": "shell",
|
||||||
|
"label": "Rebuild",
|
||||||
|
"command": "-C ${workspaceFolder} rebuild",
|
||||||
|
"group": {
|
||||||
|
"kind": "build",
|
||||||
|
"isDefault": true
|
||||||
|
},
|
||||||
|
"detail": "Rebuild this lib",
|
||||||
|
"problemMatcher": [
|
||||||
|
"$gcc"
|
||||||
|
],
|
||||||
|
"options": {
|
||||||
|
"shell": {
|
||||||
|
"executable": "make",
|
||||||
|
}
|
||||||
|
}
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"type": "shell",
|
||||||
|
"label": "Build",
|
||||||
|
"command": "-C ${workspaceFolder} build",
|
||||||
|
"group": {
|
||||||
|
"kind": "build",
|
||||||
|
"isDefault": false
|
||||||
|
},
|
||||||
|
"detail": "Build this lib",
|
||||||
|
"problemMatcher": [
|
||||||
|
"$gcc"
|
||||||
|
],
|
||||||
|
"options": {
|
||||||
|
"shell": {
|
||||||
|
"executable": "make",
|
||||||
|
}
|
||||||
|
}
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"type": "shell",
|
||||||
|
"label": "Debug Build",
|
||||||
|
"command": "-C ${workspaceFolder} \"MYCFLAGS=-DNDEBUG\" build",
|
||||||
|
"group": {
|
||||||
|
"kind": "build",
|
||||||
|
"isDefault": false
|
||||||
|
},
|
||||||
|
"detail": "Debug build this lib",
|
||||||
|
"problemMatcher": [
|
||||||
|
"$gcc"
|
||||||
|
],
|
||||||
|
"options": {
|
||||||
|
"shell": {
|
||||||
|
"executable": "make",
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
],
|
||||||
|
"version": "2.0.0"
|
||||||
|
}
|
||||||
272
HISTORY
Normal file
272
HISTORY
Normal file
@@ -0,0 +1,272 @@
|
|||||||
|
2025-Januar-07
|
||||||
|
|
||||||
|
Port for KolibriOS
|
||||||
|
|
||||||
|
|
||||||
|
2023-June-06
|
||||||
|
|
||||||
|
Version "0.9.6"
|
||||||
|
|
||||||
|
Added parameterised iterators.
|
||||||
|
Added documentation warning static link issues.
|
||||||
|
Fixed old links in docs.
|
||||||
|
Added support for comercial CEROD feature.
|
||||||
|
|
||||||
|
2018-June-30
|
||||||
|
|
||||||
|
Version "0.9.5"
|
||||||
|
|
||||||
|
Since the "0.9.4-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Lua 5.4 compatibility (backward compatible with Lua 5.3, 5.2, and Lua 5.1.5).
|
||||||
|
|
||||||
|
2016-November-13
|
||||||
|
|
||||||
|
Version "0.9.4"
|
||||||
|
|
||||||
|
Since the "0.9.3-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Add functions db:get_ptr() and sqlite3.open_ptr(db_ptr) to pass a db connection between threads.
|
||||||
|
Add function db:db_filename(name).
|
||||||
|
Update sqlite3_open to sqlite3_open_v2 and add open flags constants.
|
||||||
|
Thanks to Wolfgang Oertl!
|
||||||
|
|
||||||
|
Added second module 'lsqlite3complete' that statically links sqlite.c. Continue to use
|
||||||
|
'lsqlite3' for dynamic linking to 'sqlite3.so' or 'sqlite3.dll'.
|
||||||
|
|
||||||
|
Added Online Backup API
|
||||||
|
|
||||||
|
Added unit tests for NULs in BLOBs and TEXT columns. (Refute defect report.)
|
||||||
|
|
||||||
|
Use lua_createtable() in lieu of lua_newtable() when number of table elements is known.
|
||||||
|
This will improve performance.
|
||||||
|
Thanks to Egil Hjelmeland for the suggestion.
|
||||||
|
|
||||||
|
2015-January-06
|
||||||
|
|
||||||
|
Version "0.9.3"
|
||||||
|
|
||||||
|
Since the "0.9.2-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Added lversion() function to report library version, "0.9.3".
|
||||||
|
|
||||||
|
Added db:load_extension() function to support SQLite extension libraries.
|
||||||
|
|
||||||
|
Added some tests for new funcitons and Lua 5.3 64-bit integers in the database.
|
||||||
|
|
||||||
|
Fixed longstanding bug: if db is no longer live, it is auto-closed by gc, but there may still
|
||||||
|
be live prepared statements. Executing these statements would produce an error. Prepared
|
||||||
|
statements now hold a reference to the db to prevent it from being collected while the prepared
|
||||||
|
statement is live. Manually closing the db will continue to finalize the statements, as before.
|
||||||
|
|
||||||
|
Fixed bug in PUSH_INT64 macro for Lua < 5.3 introduced in version 0.9.2-devel.
|
||||||
|
|
||||||
|
2015-January-04
|
||||||
|
|
||||||
|
Version "0.9.2-devel"
|
||||||
|
|
||||||
|
Since the "0.9.1-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Lua 5.3 compatibility (backward compatible with Lua 5.2 and Lua 5.1.5).
|
||||||
|
|
||||||
|
Finally uses sqlite3_prepare_v2() to preserve detailed error codes in statement stepping
|
||||||
|
|
||||||
|
With Lua 5.3, 64-bit integer database values are supported for reading and writing columns;
|
||||||
|
all other values, e.g., status and counts, are now also returned as integers. The only use of
|
||||||
|
doubles is for values of that type read from or written to columns.
|
||||||
|
|
||||||
|
Added support for stmt:last_insert_rowid() as requested
|
||||||
|
|
||||||
|
2013-April-08
|
||||||
|
|
||||||
|
Version "0.9.1-devel"
|
||||||
|
|
||||||
|
Since the "0.9-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Updated examples and tests from Dmitry Pashkevich.
|
||||||
|
|
||||||
|
2013-March-30
|
||||||
|
|
||||||
|
Version "0.9-devel"
|
||||||
|
|
||||||
|
Since the "0.8-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Updates for Lua 5.2 (backward compatible with Lua 5.1.5).
|
||||||
|
|
||||||
|
Uses lunitx-0.6-1.rockspec for Lua 5.2 compatible testing.
|
||||||
|
|
||||||
|
Added sqlite3.update_hook(), sqlite3.commit_hook() and
|
||||||
|
sqlite3.rollback_hook() at the suggesiton of Dmitry Pashkevich, who
|
||||||
|
also contributed examples and some testing assistance on this release.
|
||||||
|
|
||||||
|
Converted Makefile to depend on luarocks.
|
||||||
|
|
||||||
|
2011-January-10
|
||||||
|
|
||||||
|
Version "0.8-devel"
|
||||||
|
|
||||||
|
Since the "0.7-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Added a missing lua_pop in dbvm_bind_names()
|
||||||
|
Now dbvm_bind_index() binds a boolean as 1 or 0
|
||||||
|
Thanks to Ronny Dierckx
|
||||||
|
|
||||||
|
Since the "0.6-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Made db_exec_callback thread safe.
|
||||||
|
Thanks to Grant Robinson.
|
||||||
|
|
||||||
|
Bug fix in dbvm_bind_index error message.
|
||||||
|
Thanks to Dirk Feytons.
|
||||||
|
|
||||||
|
Added a few casts and changed a few comments to ANSI C style.
|
||||||
|
Thanks to Corey Stup.
|
||||||
|
|
||||||
|
Note that Thomas Lauer has a patch referenced on LuaForge
|
||||||
|
to make collations thread safe(r). This issue is still
|
||||||
|
under investigation: the patch has wide ranging affect
|
||||||
|
and to me it appears unsafe wrt GC. The whole issue of
|
||||||
|
thread references in callbacks deserves thorough review.
|
||||||
|
A new design that places referenced values in the upvalues
|
||||||
|
of the callback function (rather than in the registry of
|
||||||
|
the function defining thread) would be preferable. It may
|
||||||
|
also make sense to keep thread references in a shared
|
||||||
|
environment of the library's functions, and/or require
|
||||||
|
all callbacks to be defined in the main lua state (so
|
||||||
|
they the state is guaranteed to outlive other threads).
|
||||||
|
|
||||||
|
-=-
|
||||||
|
|
||||||
|
2007-August-15 e
|
||||||
|
|
||||||
|
Version "0.6-devel"
|
||||||
|
|
||||||
|
Since the "0.5-devel" release of this Lua library...
|
||||||
|
|
||||||
|
Tested with SQLite 3.4.2
|
||||||
|
|
||||||
|
Added some documentation.
|
||||||
|
|
||||||
|
Thanks to Thomas Lauer...
|
||||||
|
|
||||||
|
Moved line 525 ("luaL_checktype(L, 2, LUA_TTABLE);")
|
||||||
|
below the declarations to eliminate non-gcc compiler errors.
|
||||||
|
|
||||||
|
Added create-collation, and associated test case.
|
||||||
|
|
||||||
|
-=-
|
||||||
|
|
||||||
|
2006-October-02 e
|
||||||
|
|
||||||
|
Since the "0.1-devel" release of this Lua library...
|
||||||
|
- updated for Lua 5.1
|
||||||
|
- provide automatic re-preparation of queries after schema changes
|
||||||
|
- made prepared statements with bindings work with for-loops
|
||||||
|
- added some compatibility names
|
||||||
|
- added many test cases, and ported Mike Roth's tests and examples
|
||||||
|
|
||||||
|
-=-
|
||||||
|
|
||||||
|
Below is a header comment from the 2004 "0.1" version of the library...
|
||||||
|
|
||||||
|
/************************************************************************
|
||||||
|
$Id: lsqlite3.c,v 1.3 2004/09/05 17:50:32 tngd Exp $
|
||||||
|
|
||||||
|
To consider:
|
||||||
|
------------
|
||||||
|
|
||||||
|
EXPERIMENTAL APIs
|
||||||
|
|
||||||
|
* sqlite3_progress_handler (implemented)
|
||||||
|
* sqlite3_commit_hook
|
||||||
|
|
||||||
|
TODO?
|
||||||
|
|
||||||
|
* sqlite3_create_collation
|
||||||
|
|
||||||
|
Changes:
|
||||||
|
04-09-2004
|
||||||
|
----------
|
||||||
|
* changed second return value of db:compile to be the rest of the
|
||||||
|
sql statement that was not processed instead of the number of
|
||||||
|
characters of sql not processed (situation in case of success).
|
||||||
|
* progress callback register function parameter order changed.
|
||||||
|
number of opcodes is given before the callback now.
|
||||||
|
|
||||||
|
29-08-2004 e
|
||||||
|
------------
|
||||||
|
* added version() (now supported in sqlite 3.0.5)
|
||||||
|
* added db:errmsg db:errcode db:total_changes
|
||||||
|
* rename vm:get_column to vm:get_value
|
||||||
|
* merge in Tiago's v1.11 change in dbvm_tostring
|
||||||
|
|
||||||
|
23-06-2004 e
|
||||||
|
------------
|
||||||
|
* heavily revised for SQLite3 C API
|
||||||
|
* row values now returned as native type (not always text)
|
||||||
|
* added db:nrows (named rows)
|
||||||
|
* added vm:bind_blob
|
||||||
|
* added vm:get_column
|
||||||
|
* removed encode_binary decode_binary (no longer needed or supported)
|
||||||
|
* removed version encoding error_string (unsupported in v 3.0.1 -- soon?)
|
||||||
|
|
||||||
|
09-04-2004
|
||||||
|
----------
|
||||||
|
* renamed db:rows to db:urows
|
||||||
|
* renamed db:prows to db:rows
|
||||||
|
|
||||||
|
* added vm:get_unames()
|
||||||
|
* added vm:get_utypes()
|
||||||
|
* added vm:get_uvalues()
|
||||||
|
|
||||||
|
08-04-2004
|
||||||
|
----------
|
||||||
|
* changed db:encoding() and db:version() to use sqlite_libencoding() and
|
||||||
|
sqlite_libversion()
|
||||||
|
|
||||||
|
* added vm:columns()
|
||||||
|
* added vm:get_named_types()
|
||||||
|
* added vm:get_named_values()
|
||||||
|
|
||||||
|
* added db:prows - like db:rows but returns a table with the column values
|
||||||
|
instead of returning multiple columns seperatly on each iteration
|
||||||
|
|
||||||
|
* added compatibility functions idata,iname,itype,data,type
|
||||||
|
|
||||||
|
* added luaopen_sqlite_module. allow the library to be loaded without
|
||||||
|
setting a global variable. does the same as luaopen_sqlite, but does not
|
||||||
|
set the global name "sqlite".
|
||||||
|
|
||||||
|
* vm:bind now also returns an error string in case of error
|
||||||
|
|
||||||
|
31-03-2004 - 01-04-2004
|
||||||
|
-----------------------
|
||||||
|
* changed most of the internals. now using references (luaL_ref) in
|
||||||
|
most of the places
|
||||||
|
|
||||||
|
* make the virtual machine interface seperate from the database
|
||||||
|
handle. db:compile now returns a vm handle
|
||||||
|
|
||||||
|
* added db:rows [for ... in db:rows(...) do ... end]
|
||||||
|
|
||||||
|
* added db:close_vm
|
||||||
|
|
||||||
|
* added sqlite.encode_binary and sqlite.decode_binary
|
||||||
|
|
||||||
|
* attempt to do a strict checking on the return type of the user
|
||||||
|
defined functions returned values
|
||||||
|
|
||||||
|
18-01-2004
|
||||||
|
----------
|
||||||
|
* add check on sql function callback to ensure there is enough stack
|
||||||
|
space to pass column values as parameters
|
||||||
|
|
||||||
|
03-12-2003
|
||||||
|
----------
|
||||||
|
* callback functions now have to return boolean values to abort or
|
||||||
|
continue operation instead of a zero or non-zero value
|
||||||
|
|
||||||
|
06-12-2003
|
||||||
|
----------
|
||||||
|
* make version member of sqlite table a function instead of a string
|
||||||
|
************************************************************************/
|
||||||
98
Makefile
Normal file
98
Makefile
Normal file
@@ -0,0 +1,98 @@
|
|||||||
|
# Makefile for lsqlite3 library for Lua
|
||||||
|
# This file is old and crufty.
|
||||||
|
# manual setup (change these to reflect your Lua installation)
|
||||||
|
|
||||||
|
|
||||||
|
CC=kos32-gcc
|
||||||
|
LD=kos32-ld
|
||||||
|
STRIP=kos32-strip
|
||||||
|
OBJCOPY=kos32-objcopy
|
||||||
|
|
||||||
|
KOLIBRIOS_REPO=../../kolibrios
|
||||||
|
|
||||||
|
C_LAYER_DIR=$(KOLIBRIOS_REPO)/contrib/C_Layer
|
||||||
|
LUA_DIR=../../lua-kolibrios
|
||||||
|
SQLITE3_DIR=$(SDK_DIR)/sources/sqlite3
|
||||||
|
|
||||||
|
SDK_DIR=$(KOLIBRIOS_REPO)/contrib/sdk
|
||||||
|
NewLib_DIR=$(SDK_DIR)/sources/newlib
|
||||||
|
SYSCFLAGS=-fno-ident -fomit-frame-pointer -U__WIN32__ -U_Win32 -U_WIN32 -U__MINGW32__ -UWIN32 -I$(NewLib_DIR)/libc/include -I$(C_LAYER_DIR)/INCLUDE -I$(LUA_DIR)/src
|
||||||
|
SYSLDFLAGS=--image-base 0 -Tapp-dynamic.lds
|
||||||
|
SYSLIBS=-nostdlib -L $(SDK_DIR)/lib -L$(TOOLCHAIN_PATH)/lib -L$(TOOLCHAIN_PATH)/mingw32/lib -lgcc -lc.dll -ldll
|
||||||
|
|
||||||
|
LUAINC= -I$(LUA_DIR)/src
|
||||||
|
LUALIB=$(LUA_DIR)/src/lua54.dll
|
||||||
|
SQLITE3INC= -I$(SQLITE3_DIR)
|
||||||
|
SQLITE3LIB= -L$(SQLITE3_DIR) -lsqlite3.dll
|
||||||
|
# Windows' LUALIB is the same as the Lua executable's directory...
|
||||||
|
# LUALIB= -L$(BASE)/bin -llua51
|
||||||
|
#
|
||||||
|
POD2HTML= perl -x -S doc/pod2html.pl
|
||||||
|
|
||||||
|
TMP=./tmp
|
||||||
|
DISTDIR=./archive
|
||||||
|
|
||||||
|
# OS detection
|
||||||
|
#
|
||||||
|
SHFLAGS=-shared
|
||||||
|
UNAME= $(shell uname)
|
||||||
|
|
||||||
|
_SO=dll
|
||||||
|
|
||||||
|
ifndef _SO
|
||||||
|
$(error $(UNAME))
|
||||||
|
$(error Unknown OS)
|
||||||
|
endif
|
||||||
|
|
||||||
|
# no need to change anything below here - HAH!
|
||||||
|
CFLAGS=$(SYSCFLAGS) $(INCS) $(DEFS) $(WARN) -O2 #$(SHFLAGS)
|
||||||
|
WARN= -Wall #-ansi -pedantic
|
||||||
|
INCS= $(LUAINC) $(SQLITE3INC)
|
||||||
|
LIBS= $(SYSLIBS) $(LUALIB) $(SQLITE3LIB)
|
||||||
|
SOFLAGS=-T dll.lds --entry _DllStartup
|
||||||
|
|
||||||
|
MYNAME= sqlite3
|
||||||
|
MYLIB= l$(MYNAME)
|
||||||
|
|
||||||
|
VER=$(shell svnversion -c . | sed 's/.*://')
|
||||||
|
TARFILE = $(DISTDIR)/$(MYLIB)-$(VER).tar.gz
|
||||||
|
|
||||||
|
OBJS= extras/extension-functions.o $(MYLIB).o
|
||||||
|
T= $(MYLIB).$(_SO)
|
||||||
|
|
||||||
|
all: $(T)
|
||||||
|
|
||||||
|
test: $(T)
|
||||||
|
$(LUAEXE) test.lua
|
||||||
|
$(LUAEXE) tests-sqlite3.lua
|
||||||
|
|
||||||
|
$(T): $(OBJS) $()
|
||||||
|
$(CC) $(SHFLAGS) $(SOFLAGS) -o $@ $(OBJS) $(LIBS)
|
||||||
|
|
||||||
|
install: $(T) $(OBJS) $(SQLITE3_DIR)/libsqlite3.dll.a
|
||||||
|
$(INSTALL) $< `$(INSTALLPATH) $(MYLIB)`
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f $(OBJS) $T core core.* a.out test.db
|
||||||
|
|
||||||
|
html:
|
||||||
|
$(POD2HTML) --title="LuaSQLite 3" --infile=doc/lsqlite3.pod --outfile=doc/lsqlite3.html
|
||||||
|
|
||||||
|
dist: html
|
||||||
|
echo 'Exporting...'
|
||||||
|
mkdir -p $(TMP)
|
||||||
|
mkdir -p $(DISTDIR)
|
||||||
|
svn export . $(TMP)/$(MYLIB)-$(VER)
|
||||||
|
mkdir -p $(TMP)/$(MYLIB)-$(VER)/doc
|
||||||
|
cp -p doc/lsqlite3.html $(TMP)/$(MYLIB)-$(VER)/doc
|
||||||
|
echo 'Compressing...'
|
||||||
|
tar -zcf $(TARFILE) -C $(TMP) $(MYLIB)-$(VER)
|
||||||
|
rm -fr $(TMP)/$(MYLIB)-$(VER)
|
||||||
|
echo 'Done.'
|
||||||
|
|
||||||
|
.PHONY: all test clean dist install
|
||||||
|
|
||||||
|
$(MYLIB).o: lsqlite3.c
|
||||||
|
extras/extension-functions.o: extras/extension-functions.c
|
||||||
|
$(SQLITE3_DIR)/libsqlite3.dll.a:
|
||||||
|
$(MAKE) -C $(SQLITE3_DIR) libsqlite3.dll.a
|
||||||
37
README
Normal file
37
README
Normal file
@@ -0,0 +1,37 @@
|
|||||||
|
|
||||||
|
LuaSQLite3 provides a means to manipulate SQLite3
|
||||||
|
databases directly from lua using Lua 5.
|
||||||
|
|
||||||
|
There are two modules, identical except that one links
|
||||||
|
SQLite3 dynamically, the other statically.
|
||||||
|
|
||||||
|
The module lsqlite3 links SQLite3 dynamically.
|
||||||
|
To use this module you need the SQLite3 library.
|
||||||
|
You can get it from http://www.sqlite.org/
|
||||||
|
|
||||||
|
The module lsqlite3complete links SQLite3 statically.
|
||||||
|
The SQLite3 amalgamation source code is included in
|
||||||
|
the LuaSQLite3 distribution.
|
||||||
|
|
||||||
|
Lua 5 is available from http://www.lua.org/
|
||||||
|
|
||||||
|
|
||||||
|
## Build
|
||||||
|
|
||||||
|
```
|
||||||
|
git clone https://github.com/Egor00f/lua-kolibrios.git
|
||||||
|
git clone https://github.com/KolibriOS/kolibrios.git
|
||||||
|
git clone https://github.com/Egor00f/luasqlite3-kolibrios.git
|
||||||
|
|
||||||
|
cd luasqlite3-kolibrios
|
||||||
|
make all
|
||||||
|
```
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
## Instalation
|
||||||
|
|
||||||
|
1. install lua
|
||||||
|
2. move `lsqlite3.dll` to `/kolibrios/lib/lua`
|
||||||
|
3. rename(or copy) `/kolibrios/lib/sqlite.dll` to `/kolibrios/lib/libsqlite.dll`
|
||||||
|
|
||||||
1207
doc/lsqlite3.wiki
Normal file
1207
doc/lsqlite3.wiki
Normal file
File diff suppressed because it is too large
Load Diff
35
examples/aggregate.lua
Normal file
35
examples/aggregate.lua
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
local db = sqlite3.open_memory()
|
||||||
|
|
||||||
|
assert( db:exec "CREATE TABLE test (col1, col2)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (1, 2)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (2, 4)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (3, 6)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (4, 8)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (5, 10)" )
|
||||||
|
|
||||||
|
do
|
||||||
|
|
||||||
|
local square_error_sum = 0
|
||||||
|
|
||||||
|
local function step(ctx, a, b)
|
||||||
|
local error = a - b
|
||||||
|
local square_error = error * error
|
||||||
|
square_error_sum = square_error_sum + square_error
|
||||||
|
end
|
||||||
|
|
||||||
|
local function final(ctx)
|
||||||
|
ctx:result_number( square_error_sum / ctx:aggregate_count() )
|
||||||
|
end
|
||||||
|
|
||||||
|
assert( db:create_aggregate("my_stats", 2, step, final) )
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
--for a,b in db:urows("SELECT col1, col2 FROM test")
|
||||||
|
--do print("a b: ", a, b) end
|
||||||
|
|
||||||
|
for my_stats in db:urows("SELECT my_stats(col1, col2) FROM test")
|
||||||
|
do print("my_stats:", my_stats) end
|
||||||
21
examples/function.lua
Normal file
21
examples/function.lua
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
|
||||||
|
local db = sqlite3.open_memory()
|
||||||
|
|
||||||
|
assert( db:exec "CREATE TABLE test (col1, col2)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (1, 2)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (2, 4)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (3, 6)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (4, 8)" )
|
||||||
|
assert( db:exec "INSERT INTO test VALUES (5, 10)" )
|
||||||
|
|
||||||
|
assert( db:create_function("my_sum", 2, function(ctx, a, b)
|
||||||
|
ctx:result_number( a + b )
|
||||||
|
end))
|
||||||
|
|
||||||
|
|
||||||
|
for col1, col2, sum in db:urows("SELECT *, my_sum(col1, col2) FROM test") do
|
||||||
|
print(col1, col2, sum)
|
||||||
|
end
|
||||||
349
examples/hooks_advanced.lua
Normal file
349
examples/hooks_advanced.lua
Normal file
@@ -0,0 +1,349 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
local db
|
||||||
|
|
||||||
|
optbl = { [sqlite3.UPDATE] = "UPDATE";
|
||||||
|
[sqlite3.INSERT] = "INSERT";
|
||||||
|
[sqlite3.DELETE] = "DELETE"
|
||||||
|
}
|
||||||
|
setmetatable(optbl,
|
||||||
|
{__index=function(t,n) return string.format("Unknown op %d",n) end})
|
||||||
|
|
||||||
|
|
||||||
|
function update_hook(ud, op, dname, tname, rowid)
|
||||||
|
print("Sqlite Update Hook:", optbl[op], dname, tname, rowid)
|
||||||
|
end
|
||||||
|
|
||||||
|
function commit_hook(ud)
|
||||||
|
print("<Sqlite Commit Hook>")
|
||||||
|
end
|
||||||
|
|
||||||
|
function rollback_hook(ud)
|
||||||
|
print("<Sqlite Rollback Hook>")
|
||||||
|
end
|
||||||
|
|
||||||
|
-- db:exec wrapper with result assertion
|
||||||
|
function db_exec(stmt)
|
||||||
|
if db:exec(stmt) ~= sqlite3.OK then
|
||||||
|
print("Sqlite ERROR: ", db:errmsg())
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- debug output for database table
|
||||||
|
function db_print_tables(...)
|
||||||
|
for i = 1,select('#',...) do
|
||||||
|
name = select(i,...)
|
||||||
|
print(string.format("\n%s contents:", name))
|
||||||
|
for row in db:nrows("SELECT * FROM " .. name) do
|
||||||
|
print(row.id, row.content)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
local tests = {}
|
||||||
|
|
||||||
|
-- runs specified test with all necessary setup
|
||||||
|
-- @param string name
|
||||||
|
function run_test(name)
|
||||||
|
-- banner
|
||||||
|
print(string.format([[
|
||||||
|
|
||||||
|
|
||||||
|
==========================
|
||||||
|
%s
|
||||||
|
==========================
|
||||||
|
]], name))
|
||||||
|
|
||||||
|
-- setup
|
||||||
|
db = sqlite3.open_memory()
|
||||||
|
local udtbl = {0, 0, 0}
|
||||||
|
db:update_hook(update_hook, udtbl)
|
||||||
|
db:commit_hook(commit_hook, udtbl)
|
||||||
|
db:rollback_hook(rollback_hook, udtbl)
|
||||||
|
|
||||||
|
-- run test
|
||||||
|
tests[name]()
|
||||||
|
|
||||||
|
-- destroy
|
||||||
|
db:close()
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
function tests.insert_select()
|
||||||
|
db_exec[[
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Lua');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Sqlite3');
|
||||||
|
|
||||||
|
INSERT INTO T2 SELECT * FROM T1;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.trigger_insert()
|
||||||
|
db_exec[[
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
CREATE TRIGGER after_insert_T1
|
||||||
|
AFTER INSERT ON T1
|
||||||
|
FOR EACH ROW
|
||||||
|
BEGIN
|
||||||
|
INSERT INTO T2 VALUES(NEW.id, NEW.content);
|
||||||
|
END;
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Lua');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Sqlite3');
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.cascade_delete()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY REFERENCES T1 ON DELETE CASCADE, content VARCHAR );
|
||||||
|
CREATE TABLE T3 ( id INTEGER PRIMARY KEY REFERENCES T2 ON DELETE CASCADE, content VARCHAR );
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'c');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'd');
|
||||||
|
|
||||||
|
INSERT INTO T2 SELECT * FROM T1;
|
||||||
|
INSERT INTO T3 SELECT * FROM T2;
|
||||||
|
|
||||||
|
DELETE FROM T1 WHERE id < 3;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2', 'T3')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.cascade_update()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY REFERENCES T1 ON UPDATE CASCADE, content VARCHAR );
|
||||||
|
CREATE TABLE T3 ( id INTEGER PRIMARY KEY REFERENCES T2 ON UPDATE CASCADE, content VARCHAR );
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'c');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'd');
|
||||||
|
|
||||||
|
INSERT INTO T2 SELECT * FROM T1;
|
||||||
|
INSERT INTO T3 SELECT * FROM T2;
|
||||||
|
|
||||||
|
UPDATE T1 SET id = id + 10 WHERE id < 3;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2', 'T3')
|
||||||
|
end
|
||||||
|
|
||||||
|
-- hook "anomaly"
|
||||||
|
-- implicit one-statement transaction rollback demonstration
|
||||||
|
function tests.cascade_update_restrict()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY REFERENCES T1 ON UPDATE RESTRICT, content VARCHAR );
|
||||||
|
CREATE TABLE T3 ( id INTEGER PRIMARY KEY REFERENCES T2 ON UPDATE RESTRICT, content VARCHAR );
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'c');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'd');
|
||||||
|
|
||||||
|
INSERT INTO T2 SELECT * FROM T1;
|
||||||
|
INSERT INTO T3 SELECT * FROM T2;
|
||||||
|
|
||||||
|
-- this update gets reverted but the update_hook with rowid=11 *DOES* get triggered
|
||||||
|
UPDATE T1 SET id = id + 10 WHERE id < 3;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2', 'T3')
|
||||||
|
end
|
||||||
|
|
||||||
|
-- hook "anomaly"
|
||||||
|
-- case is analogous to cascade_update_restrict
|
||||||
|
function tests.cascade_delete_restrict()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY REFERENCES T1 ON DELETE RESTRICT, content VARCHAR );
|
||||||
|
CREATE TABLE T3 ( id INTEGER PRIMARY KEY REFERENCES T2 ON DELETE RESTRICT, content VARCHAR );
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'c');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'd');
|
||||||
|
|
||||||
|
INSERT INTO T2 SELECT * FROM T1;
|
||||||
|
INSERT INTO T3 SELECT * FROM T2;
|
||||||
|
|
||||||
|
DELETE FROM T1 WHERE id < 3;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2', 'T3')
|
||||||
|
end
|
||||||
|
|
||||||
|
-- no anomalies here
|
||||||
|
function tests.fk_violate_insert()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY REFERENCES T1, content VARCHAR);
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
|
||||||
|
INSERT INTO T2 VALUES(99, 'xxx');
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2')
|
||||||
|
end
|
||||||
|
|
||||||
|
-- hook "anomaly"
|
||||||
|
function tests.fk_violate_update()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY REFERENCES T1, content VARCHAR);
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
INSERT INTO T2 VALUES(1, 'a');
|
||||||
|
|
||||||
|
-- update doesn't succeed but we get a hook for tuple with rowid=99 in T2
|
||||||
|
UPDATE T2 SET id = 99 WHERE id = 1;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2')
|
||||||
|
end
|
||||||
|
|
||||||
|
-- like fk_violate_update but wrapped inside an explicit transaction
|
||||||
|
function tests.transaction_fk_violate_update()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY REFERENCES T1, content VARCHAR);
|
||||||
|
|
||||||
|
BEGIN TRANSACTION;
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
INSERT INTO T2 VALUES(1, 'a');
|
||||||
|
|
||||||
|
-- Doesn't trigger rollback hook because the implicit update statement transaction
|
||||||
|
-- is nested inside our explicit transaction. However we *do* get an error.
|
||||||
|
UPDATE T2 SET id = 99 WHERE id = 1;
|
||||||
|
COMMIT;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.cascade_update_setnull()
|
||||||
|
db_exec[[
|
||||||
|
PRAGMA foreign_keys = ON;
|
||||||
|
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
CREATE TABLE T2 ( id INTEGER PRIMARY KEY, content INTEGER REFERENCES T1(id) ON UPDATE SET NULL);
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'a');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'b');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'c');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'd');
|
||||||
|
|
||||||
|
INSERT INTO T2 SELECT NULL, id FROM T1;
|
||||||
|
|
||||||
|
UPDATE T1 SET id = id + 10 WHERE id < 3;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1', 'T2')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.transaction_commit()
|
||||||
|
db_exec[[
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
BEGIN TRANSACTION;
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Lua');
|
||||||
|
COMMIT;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.transaction_rollback()
|
||||||
|
db_exec[[
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
BEGIN TRANSACTION;
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Lua');
|
||||||
|
ROLLBACK;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.savepoint_nested_commit()
|
||||||
|
db_exec[[
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
SAVEPOINT S1;
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Lua');
|
||||||
|
|
||||||
|
SAVEPOINT S2;
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Sqlite3');
|
||||||
|
-- nested commit doesn't trigger commit_hook
|
||||||
|
RELEASE S2;
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello transactions');
|
||||||
|
RELEASE S1;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1')
|
||||||
|
end
|
||||||
|
|
||||||
|
function tests.savepoint_nested_rollback()
|
||||||
|
db_exec[[
|
||||||
|
CREATE TABLE T1 ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
SAVEPOINT S1;
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Lua');
|
||||||
|
|
||||||
|
SAVEPOINT S2;
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello Sqlite3');
|
||||||
|
-- nested rollback doesn't trigger rollback_hook
|
||||||
|
ROLLBACK TO S2;
|
||||||
|
|
||||||
|
INSERT INTO T1 VALUES (NULL, 'Hello transactions');
|
||||||
|
RELEASE S1;
|
||||||
|
]]
|
||||||
|
|
||||||
|
db_print_tables('T1')
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
-- run_test('fk_violate_insert')
|
||||||
|
|
||||||
|
for k,v in pairs(tests) do
|
||||||
|
run_test(k)
|
||||||
|
end
|
||||||
122
examples/order.lua
Normal file
122
examples/order.lua
Normal file
@@ -0,0 +1,122 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
local db = assert( sqlite3:open_memory() )
|
||||||
|
|
||||||
|
assert( db:exec[[
|
||||||
|
|
||||||
|
CREATE TABLE customer (
|
||||||
|
id INTEGER PRIMARY KEY,
|
||||||
|
name VARCHAR(40)
|
||||||
|
);
|
||||||
|
|
||||||
|
CREATE TABLE invoice (
|
||||||
|
id INTEGER PRIMARY KEY,
|
||||||
|
customer INTEGER NOT NULL,
|
||||||
|
title VARCHAR(80) NOT NULL,
|
||||||
|
article1 VARCHAR(40) NOT NULL,
|
||||||
|
price1 REAL NOT NULL,
|
||||||
|
article2 VARCHAR(40),
|
||||||
|
price2 REAL
|
||||||
|
);
|
||||||
|
|
||||||
|
CREATE TABLE invoice_overflow (
|
||||||
|
id INTEGER PRIMARY KEY,
|
||||||
|
invoice INTEGER NOT NULL,
|
||||||
|
article VARCHAR(40) NOT NULL,
|
||||||
|
price REAL NOT NULL
|
||||||
|
);
|
||||||
|
|
||||||
|
INSERT INTO customer VALUES(
|
||||||
|
1, "Michael" );
|
||||||
|
|
||||||
|
INSERT INTO invoice VALUES(
|
||||||
|
1, 1, "Computer parts", "harddisc", 89.90, "floppy", 9.99 );
|
||||||
|
|
||||||
|
INSERT INTO customer VALUES(
|
||||||
|
2, "John" );
|
||||||
|
|
||||||
|
INSERT INTO invoice VALUES(
|
||||||
|
2, 2, "Somme food", "apples", 2.79, "pears", 5.99 );
|
||||||
|
|
||||||
|
INSERT INTO invoice_overflow VALUES(
|
||||||
|
NULL, 2, "grapes", 6.34 );
|
||||||
|
|
||||||
|
INSERT INTO invoice_overflow VALUES(
|
||||||
|
NULL, 2, "strawberries", 4.12 );
|
||||||
|
|
||||||
|
INSERT INTO invoice_overflow VALUES(
|
||||||
|
NULL, 2, "tomatoes", 6.17 );
|
||||||
|
|
||||||
|
INSERT INTO invoice VALUES(
|
||||||
|
3, 2, "A new car", "Cybercar XL-1000", 65000.00, NULL, NULL );
|
||||||
|
|
||||||
|
]] )
|
||||||
|
|
||||||
|
|
||||||
|
local function customer_name(id)
|
||||||
|
local stmt = db:prepare("SELECT name FROM customer WHERE id = ?")
|
||||||
|
stmt:bind_values(id)
|
||||||
|
stmt:step()
|
||||||
|
local r = stmt:get_uvalues()
|
||||||
|
stmt:finalize()
|
||||||
|
return r
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
local function all_invoices()
|
||||||
|
return db:nrows("SELECT id, customer, title FROM invoice")
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
local function all_articles(invoice)
|
||||||
|
|
||||||
|
local function iterator()
|
||||||
|
local stmt, row
|
||||||
|
|
||||||
|
-- Get the articles that are contained in the invoice table itself.
|
||||||
|
stmt = db:prepare("SELECT article1, price1, article2, price2 FROM invoice WHERE id = ?")
|
||||||
|
stmt:bind_values(invoice)
|
||||||
|
stmt:step()
|
||||||
|
row = stmt:get_named_values()
|
||||||
|
|
||||||
|
-- Every Invoice has at least one article.
|
||||||
|
coroutine.yield(row.article1, row.price1)
|
||||||
|
|
||||||
|
-- Maybe the Invoice has a second article?
|
||||||
|
if row.article2 then
|
||||||
|
|
||||||
|
-- Yes, there is a second article, so return it.
|
||||||
|
coroutine.yield(row.article2, row.price2)
|
||||||
|
|
||||||
|
-- When there was an second article, maybe there are even
|
||||||
|
-- more articles in the overflow table? We will see...
|
||||||
|
|
||||||
|
stmt = db:prepare("SELECT article, price FROM invoice_overflow WHERE invoice = ? ORDER BY id")
|
||||||
|
stmt:bind_values(invoice)
|
||||||
|
|
||||||
|
for row in stmt:nrows() do
|
||||||
|
coroutine.yield(row.article, row.price)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
return coroutine.wrap(iterator)
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
for invoice in all_invoices() do
|
||||||
|
local id = invoice.id
|
||||||
|
local name = customer_name(invoice.customer)
|
||||||
|
local title = invoice.title
|
||||||
|
|
||||||
|
print()
|
||||||
|
print("Invoice #"..id..", "..name..": '"..title.."'")
|
||||||
|
print("----------------------------------------")
|
||||||
|
|
||||||
|
for article, price in all_articles(id) do
|
||||||
|
print( string.format("%20s %8.2f", article, price) )
|
||||||
|
end
|
||||||
|
|
||||||
|
print()
|
||||||
|
end
|
||||||
16
examples/simple.lua
Normal file
16
examples/simple.lua
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
local db = sqlite3.open_memory()
|
||||||
|
|
||||||
|
db:exec[[
|
||||||
|
CREATE TABLE test (id INTEGER PRIMARY KEY, content);
|
||||||
|
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello Lua');
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello Sqlite3')
|
||||||
|
]]
|
||||||
|
|
||||||
|
for row in db:nrows("SELECT * FROM test") do
|
||||||
|
print(row.id, row.content)
|
||||||
|
end
|
||||||
22
examples/smart.lua
Normal file
22
examples/smart.lua
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
local db = sqlite3.open_memory()
|
||||||
|
|
||||||
|
db:exec[[ CREATE TABLE test (id INTEGER PRIMARY KEY, content) ]]
|
||||||
|
|
||||||
|
local stmt = db:prepare[[ INSERT INTO test VALUES (:key, :value) ]]
|
||||||
|
|
||||||
|
stmt:bind_names{ key = 1, value = "Hello World" }
|
||||||
|
stmt:step()
|
||||||
|
stmt:reset()
|
||||||
|
stmt:bind_names{ key = 2, value = "Hello Lua" }
|
||||||
|
stmt:step()
|
||||||
|
stmt:reset()
|
||||||
|
stmt:bind_names{ key = 3, value = "Hello Sqlite3" }
|
||||||
|
stmt:step()
|
||||||
|
stmt:finalize()
|
||||||
|
|
||||||
|
for row in db:nrows("SELECT * FROM test") do
|
||||||
|
print(row.id, row.content)
|
||||||
|
end
|
||||||
39
examples/statement.lua
Normal file
39
examples/statement.lua
Normal file
@@ -0,0 +1,39 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
local db = sqlite3.open_memory()
|
||||||
|
|
||||||
|
db:exec[[
|
||||||
|
CREATE TABLE test (
|
||||||
|
id INTEGER PRIMARY KEY,
|
||||||
|
content VARCHAR
|
||||||
|
);
|
||||||
|
]]
|
||||||
|
|
||||||
|
local insert_stmt = assert( db:prepare("INSERT INTO test VALUES (NULL, ?)") )
|
||||||
|
|
||||||
|
local function insert(data)
|
||||||
|
insert_stmt:bind_values(data)
|
||||||
|
insert_stmt:step()
|
||||||
|
insert_stmt:reset()
|
||||||
|
end
|
||||||
|
|
||||||
|
local select_stmt = assert( db:prepare("SELECT * FROM test") )
|
||||||
|
|
||||||
|
local function select()
|
||||||
|
for row in select_stmt:nrows() do
|
||||||
|
print(row.id, row.content)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
insert("Hello World")
|
||||||
|
print("First:")
|
||||||
|
select()
|
||||||
|
|
||||||
|
insert("Hello Lua")
|
||||||
|
print("Second:")
|
||||||
|
select()
|
||||||
|
|
||||||
|
insert("Hello Sqlite3")
|
||||||
|
print("Third:")
|
||||||
|
select()
|
||||||
20
examples/tracing.lua
Normal file
20
examples/tracing.lua
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
local db = sqlite3.open_memory()
|
||||||
|
|
||||||
|
db:trace( function(ud, sql)
|
||||||
|
print("Sqlite Trace:", sql)
|
||||||
|
end )
|
||||||
|
|
||||||
|
db:exec[[
|
||||||
|
CREATE TABLE test ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello Lua');
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello Sqlite3');
|
||||||
|
]]
|
||||||
|
|
||||||
|
for row in db:rows("SELECT * FROM test") do
|
||||||
|
-- NOP
|
||||||
|
end
|
||||||
31
examples/update_hook.lua
Normal file
31
examples/update_hook.lua
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
|
||||||
|
local sqlite3 = require("lsqlite3")
|
||||||
|
|
||||||
|
local db = sqlite3.open_memory()
|
||||||
|
|
||||||
|
optbl = { [sqlite3.UPDATE] = "UPDATE";
|
||||||
|
[sqlite3.INSERT] = "INSERT";
|
||||||
|
[sqlite3.DELETE] = "DELETE"
|
||||||
|
}
|
||||||
|
setmetatable(optbl,
|
||||||
|
{__index=function(t,n) return string.format("Unknown op %d",n) end})
|
||||||
|
|
||||||
|
udtbl = {0, 0, 0}
|
||||||
|
|
||||||
|
db:update_hook( function(ud, op, dname, tname, rowid)
|
||||||
|
print("Sqlite Update Hook:", optbl[op], dname, tname, rowid)
|
||||||
|
end, udtbl)
|
||||||
|
|
||||||
|
db:exec[[
|
||||||
|
CREATE TABLE test ( id INTEGER PRIMARY KEY, content VARCHAR );
|
||||||
|
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello World');
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello Lua');
|
||||||
|
INSERT INTO test VALUES (NULL, 'Hello Sqlite3');
|
||||||
|
UPDATE test SET content = 'Hello Again World' WHERE id = 1;
|
||||||
|
DELETE FROM test WHERE id = 2;
|
||||||
|
]]
|
||||||
|
|
||||||
|
for row in db:nrows("SELECT * FROM test") do
|
||||||
|
print(row.id, row.content)
|
||||||
|
end
|
||||||
1947
extras/extension-functions.c
Normal file
1947
extras/extension-functions.c
Normal file
File diff suppressed because it is too large
Load Diff
14
extras/installpath.lua
Normal file
14
extras/installpath.lua
Normal file
@@ -0,0 +1,14 @@
|
|||||||
|
-- Script to find the install path for a C module. Public domain.
|
||||||
|
|
||||||
|
if not arg or not arg[1] then
|
||||||
|
io.write("Usage: lua installpath.lua modulename\n")
|
||||||
|
os.exit(1)
|
||||||
|
end
|
||||||
|
for p in string.gfind(package.cpath, "[^;]+") do
|
||||||
|
if string.sub(p, 1, 1) ~= "." then
|
||||||
|
local p2 = string.gsub(arg[1], "%.", string.sub(package.config, 1, 1))
|
||||||
|
io.write(string.gsub(p, "%?", p2), "\n")
|
||||||
|
return
|
||||||
|
end
|
||||||
|
end
|
||||||
|
error("no suitable installation path found")
|
||||||
39
lsqlite3-0.9.6-1.rockspec
Normal file
39
lsqlite3-0.9.6-1.rockspec
Normal file
@@ -0,0 +1,39 @@
|
|||||||
|
package = "lsqlite3"
|
||||||
|
version = "0.9.6-1"
|
||||||
|
source = {
|
||||||
|
url = "http://lua.sqlite.org/index.cgi/zip/lsqlite3_v096.zip?uuid=v0.9.6",
|
||||||
|
file = "lsqlite3_v096.zip",
|
||||||
|
}
|
||||||
|
description = {
|
||||||
|
summary = "A binding for Lua to the SQLite3 database library",
|
||||||
|
detailed = [[
|
||||||
|
lsqlite3 is a thin wrapper around the public domain SQLite3 database engine. SQLite3 is
|
||||||
|
dynamically linked to lsqlite3. The statically linked alternative is lsqlite3complete.
|
||||||
|
The lsqlite3 module supports the creation and manipulation of SQLite3 databases.
|
||||||
|
Most sqlite3 functions are called via an object-oriented interface to either
|
||||||
|
database or SQL statement objects.
|
||||||
|
]],
|
||||||
|
license = "MIT",
|
||||||
|
homepage = "http://lua.sqlite.org/",
|
||||||
|
}
|
||||||
|
dependencies = {
|
||||||
|
"lua >= 5.1, < 5.5",
|
||||||
|
}
|
||||||
|
external_dependencies = {
|
||||||
|
SQLITE = {
|
||||||
|
header = "sqlite3.h",
|
||||||
|
},
|
||||||
|
}
|
||||||
|
build = {
|
||||||
|
type = "builtin",
|
||||||
|
modules = {
|
||||||
|
lsqlite3 = {
|
||||||
|
sources = { "lsqlite3.c" },
|
||||||
|
defines = { 'LSQLITE_VERSION="0.9.6"' },
|
||||||
|
libraries = { "sqlite3" },
|
||||||
|
incdirs = { "$(SQLITE_INCDIR)" },
|
||||||
|
libdirs = { "$(SQLITE_LIBDIR)" },
|
||||||
|
},
|
||||||
|
},
|
||||||
|
copy_directories = { 'doc', 'examples' },
|
||||||
|
}
|
||||||
2459
lsqlite3.c
Normal file
2459
lsqlite3.c
Normal file
File diff suppressed because it is too large
Load Diff
40
lsqlite3complete-0.9.6-1.rockspec
Normal file
40
lsqlite3complete-0.9.6-1.rockspec
Normal file
@@ -0,0 +1,40 @@
|
|||||||
|
package = "lsqlite3complete"
|
||||||
|
version = "0.9.6-1"
|
||||||
|
source = {
|
||||||
|
url = "http://lua.sqlite.org/index.cgi/zip/lsqlite3_v096.zip?uuid=v0.9.6",
|
||||||
|
file = "lsqlite3_v096.zip",
|
||||||
|
}
|
||||||
|
description = {
|
||||||
|
summary = "A binding for Lua to the SQLite3 database library",
|
||||||
|
detailed = [[
|
||||||
|
lsqlite3complete is a thin wrapper around the public domain SQLite3 database engine.
|
||||||
|
SQLite3 is included and statically linked. (The dynamically linked alternative is lsqlite3).
|
||||||
|
The lsqlite3complete module supports the creation and manipulation of SQLite3 databases.
|
||||||
|
Most sqlite3 functions are called via an object-oriented interface to either database
|
||||||
|
or SQL statement objects.
|
||||||
|
]],
|
||||||
|
license = "MIT",
|
||||||
|
homepage = "http://lua.sqlite.org/",
|
||||||
|
}
|
||||||
|
dependencies = {
|
||||||
|
"lua >= 5.1, < 5.5",
|
||||||
|
}
|
||||||
|
build = {
|
||||||
|
type = "builtin",
|
||||||
|
modules = {
|
||||||
|
lsqlite3complete = {
|
||||||
|
sources = { "lsqlite3.c", "sqlite3.c" },
|
||||||
|
defines = {'LSQLITE_VERSION="0.9.6"', 'luaopen_lsqlite3=luaopen_lsqlite3complete'},
|
||||||
|
},
|
||||||
|
},
|
||||||
|
platforms = {
|
||||||
|
unix = {
|
||||||
|
modules = {
|
||||||
|
lsqlite3complete = {
|
||||||
|
libraries = { "pthread", "m", "dl" },
|
||||||
|
},
|
||||||
|
},
|
||||||
|
},
|
||||||
|
},
|
||||||
|
copy_directories = { 'doc', 'examples' }
|
||||||
|
}
|
||||||
68
test/test-dyld.lua
Normal file
68
test/test-dyld.lua
Normal file
@@ -0,0 +1,68 @@
|
|||||||
|
--
|
||||||
|
-- test for load_extension
|
||||||
|
--
|
||||||
|
-- before running this script, you must compile extension-functions.c
|
||||||
|
-- e.g., in directory extras:
|
||||||
|
-- gcc -fno-common -dynamiclib extension-functions.c -o libsqlitefunctions.dylib
|
||||||
|
--
|
||||||
|
-- then run this script from the top level directory: lua test/test-dyld.lua
|
||||||
|
|
||||||
|
local sqlite3 = require "lsqlite3"
|
||||||
|
|
||||||
|
local os = os
|
||||||
|
|
||||||
|
local lunit = require "lunitx"
|
||||||
|
|
||||||
|
local tests_sqlite3
|
||||||
|
|
||||||
|
if _VERSION >= 'Lua 5.2' then
|
||||||
|
|
||||||
|
tests_sqlite3 = lunit.module('tests-sqlite3','seeall')
|
||||||
|
_ENV = tests_sqlite3
|
||||||
|
|
||||||
|
else
|
||||||
|
|
||||||
|
module('tests_sqlite3', lunit.testcase, package.seeall)
|
||||||
|
tests_sqlite3 = _M
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
-- compat
|
||||||
|
|
||||||
|
function lunit_wrap (name, fcn)
|
||||||
|
tests_sqlite3['test_o_'..name] = fcn
|
||||||
|
end
|
||||||
|
|
||||||
|
function lunit_TestCase (name)
|
||||||
|
return lunit.module(name,'seeall')
|
||||||
|
end
|
||||||
|
|
||||||
|
local db_dyld = lunit_TestCase("Load Extension")
|
||||||
|
|
||||||
|
function db_dyld.setup()
|
||||||
|
db_dyld.db = assert( sqlite3.open_memory() )
|
||||||
|
assert_equal( sqlite3.OK, db_dyld.db:exec("CREATE TABLE test (id, name)") )
|
||||||
|
assert_equal( sqlite3.OK, db_dyld.db:exec("INSERT INTO test VALUES (1, 'Hello World')") )
|
||||||
|
assert_equal( sqlite3.OK, db_dyld.db:exec("INSERT INTO test VALUES (2, 'Hello Lua')") )
|
||||||
|
assert_equal( sqlite3.OK, db_dyld.db:exec("INSERT INTO test VALUES (3, 'Hello sqlite3')") )
|
||||||
|
end
|
||||||
|
|
||||||
|
function db_dyld.teardown()
|
||||||
|
assert( db_dyld.db:close() )
|
||||||
|
end
|
||||||
|
|
||||||
|
function db_dyld.test()
|
||||||
|
local db = db_dyld.db
|
||||||
|
assert_function( db.load_extension )
|
||||||
|
assert_true( db:load_extension "extras/libsqlitefunctions" )
|
||||||
|
for row in db:nrows("SELECT log10(id) as val FROM test WHERE name='Hello World'") do
|
||||||
|
assert_equal (row.val, 0.0)
|
||||||
|
end
|
||||||
|
for row in db:nrows("SELECT reverse(name) as val FROM test WHERE id = 2") do
|
||||||
|
assert_equal (row.val, 'auL olleH')
|
||||||
|
end
|
||||||
|
for row in db:nrows("SELECT padl(name, 16) as val FROM test WHERE id = 3") do
|
||||||
|
assert_equal (row.val, ' Hello sqlite3')
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
153
test/test.lua
Normal file
153
test/test.lua
Normal file
@@ -0,0 +1,153 @@
|
|||||||
|
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())
|
||||||
1408
test/tests-sqlite3.lua
Normal file
1408
test/tests-sqlite3.lua
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user