mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 08:09:33 +02:00
+ initial import
This commit is contained in:
michael
parent
3c48f7a75f
commit
b9769c78ee
1397
packages/base/sqlite/Makefile
Normal file
1397
packages/base/sqlite/Makefile
Normal file
File diff suppressed because it is too large
Load Diff
18
packages/base/sqlite/Makefile.fpc
Normal file
18
packages/base/sqlite/Makefile.fpc
Normal file
@ -0,0 +1,18 @@
|
||||
#
|
||||
# Makefile.fpc for sqlite implementation
|
||||
#
|
||||
|
||||
[package]
|
||||
name=sqlite
|
||||
version=1.0.8
|
||||
|
||||
[target]
|
||||
units=sqlite
|
||||
|
||||
[require]
|
||||
|
||||
[install]
|
||||
fpcpackage=y
|
||||
|
||||
[default]
|
||||
fpcdir=../../..
|
||||
166
packages/base/sqlite/sqlite.pp
Normal file
166
packages/base/sqlite/sqlite.pp
Normal file
@ -0,0 +1,166 @@
|
||||
{$mode objfpc}
|
||||
unit sqlite;
|
||||
interface
|
||||
|
||||
{
|
||||
Automatically converted by H2Pas 0.99.15 from sqlite.h
|
||||
The following command line parameters were used:
|
||||
-S
|
||||
-D
|
||||
-p
|
||||
-l
|
||||
sqlite
|
||||
sqlite.h
|
||||
}
|
||||
|
||||
const
|
||||
External_library='sqlite'; {Setup as you need}
|
||||
|
||||
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
|
||||
Type
|
||||
PLongint = ^Longint;
|
||||
PSmallInt = ^SmallInt;
|
||||
PByte = ^Byte;
|
||||
PWord = ^Word;
|
||||
PDWord = ^DWord;
|
||||
PDouble = ^Double;
|
||||
PPPchar = ^ppchar;
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
const
|
||||
_SQLITE_VERSION = '2.8.3';
|
||||
SQLITE_ISO8859 = 1;
|
||||
|
||||
var
|
||||
sqlite_version : pchar;cvar;external;
|
||||
sqlite_encoding : pchar;cvar;external;
|
||||
|
||||
const
|
||||
SQLITE_OK = 0;
|
||||
SQLITE_ERROR = 1;
|
||||
SQLITE_INTERNAL = 2;
|
||||
SQLITE_PERM = 3;
|
||||
SQLITE_ABORT = 4;
|
||||
SQLITE_BUSY = 5;
|
||||
SQLITE_LOCKED = 6;
|
||||
SQLITE_NOMEM = 7;
|
||||
SQLITE_READONLY = 8;
|
||||
SQLITE_INTERRUPT = 9;
|
||||
SQLITE_IOERR = 10;
|
||||
SQLITE_CORRUPT = 11;
|
||||
SQLITE_NOTFOUND = 12;
|
||||
SQLITE_FULL = 13;
|
||||
SQLITE_CANTOPEN = 14;
|
||||
SQLITE_PROTOCOL = 15;
|
||||
SQLITE_EMPTY = 16;
|
||||
SQLITE_SCHEMA = 17;
|
||||
SQLITE_TOOBIG = 18;
|
||||
SQLITE_CONSTRAINT = 19;
|
||||
SQLITE_MISMATCH = 20;
|
||||
SQLITE_MISUSE = 21;
|
||||
SQLITE_NOLFS = 22;
|
||||
SQLITE_AUTH = 23;
|
||||
SQLITE_FORMAT = 24;
|
||||
SQLITE_ROW = 100;
|
||||
SQLITE_DONE = 101;
|
||||
|
||||
|
||||
SQLITE_COPY = 0;
|
||||
SQLITE_CREATE_INDEX = 1;
|
||||
SQLITE_CREATE_TABLE = 2;
|
||||
SQLITE_CREATE_TEMP_INDEX = 3;
|
||||
SQLITE_CREATE_TEMP_TABLE = 4;
|
||||
SQLITE_CREATE_TEMP_TRIGGER = 5;
|
||||
SQLITE_CREATE_TEMP_VIEW = 6;
|
||||
SQLITE_CREATE_TRIGGER = 7;
|
||||
SQLITE_CREATE_VIEW = 8;
|
||||
SQLITE_DELETE = 9;
|
||||
SQLITE_DROP_INDEX = 10;
|
||||
SQLITE_DROP_TABLE = 11;
|
||||
SQLITE_DROP_TEMP_INDEX = 12;
|
||||
SQLITE_DROP_TEMP_TABLE = 13;
|
||||
SQLITE_DROP_TEMP_TRIGGER = 14;
|
||||
SQLITE_DROP_TEMP_VIEW = 15;
|
||||
SQLITE_DROP_TRIGGER = 16;
|
||||
SQLITE_DROP_VIEW = 17;
|
||||
SQLITE_INSERT = 18;
|
||||
SQLITE_PRAGMA = 19;
|
||||
SQLITE_READ = 20;
|
||||
SQLITE_SELECT = 21;
|
||||
SQLITE_TRANSACTION = 22;
|
||||
SQLITE_UPDATE = 23;
|
||||
SQLITE_DENY = 1;
|
||||
SQLITE_IGNORE = 2;
|
||||
|
||||
SQLITE_NUMERIC = -1;
|
||||
SQLITE_TEXT = -2;
|
||||
SQLITE_ARGS = -3;
|
||||
|
||||
|
||||
Type
|
||||
Psqlite = Pointer;
|
||||
Psqlite_vm = Pointer;
|
||||
PPsqlite_vm = ^Psqlite_vm;
|
||||
Psqlite_func = Pointer;
|
||||
|
||||
// Procedural types used in functions.
|
||||
|
||||
sqlite_callback = function (_para1:pointer; _para2:longint; _para3:PPchar; _para4:PPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};
|
||||
sqlite_trace_func = procedure (_para1:pointer; _para2:Pchar);{$ifdef win32}stdcall{$else}cdecl{$endif};
|
||||
sqlite_create_func = procedure (_para1:Psqlite_func; _para2:longint; _para3:PPchar);{$ifdef win32}stdcall{$else}cdecl{$endif};
|
||||
sqlite_handler = function (_para1:pointer; _para2:Pchar; _para3:longint):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};
|
||||
sqlite_step_func = procedure (_para1:Psqlite_func; _para2:longint; _para3:PPchar) ;{$ifdef win32}stdcall{$else}cdecl{$endif};
|
||||
sqlite_finalize_func = procedure (_para1:Psqlite_func);{$ifdef win32}stdcall{$else}cdecl{$endif};
|
||||
sqlite_authorize_func = function (_para1:pointer; _para2:longint; _para3, _para4,_para5,_para6:Pchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};
|
||||
|
||||
function sqlite_create_function(_para1:Psqlite; zName:Pchar; nArg:longint; xFunc:sqlite_create_func; pUserData:pointer):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_create_function';
|
||||
function sqlite_open(filename:Pchar; mode:longint; errmsg:PPchar):Psqlite;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_open';
|
||||
procedure sqlite_close(_para1:Psqlite);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_close';
|
||||
function sqlite_exec(_para1:Psqlite; sql:Pchar; _para3:sqlite_callback; _para4:pointer; errmsg:PPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_exec';
|
||||
function sqlite_last_insert_rowid(_para1:Psqlite):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_last_insert_rowid';
|
||||
function sqlite_changes(_para1:Psqlite):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_changes';
|
||||
function sqlite_error_string(_para1:longint):Pchar;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_error_string';
|
||||
procedure do_sqlite_interrupt(_para1:Psqlite);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_interrupt';
|
||||
function sqlite_complete(sql:Pchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_complete';
|
||||
procedure sqlite_busy_handler(_para1:Psqlite; _para2:sqlite_handler; _para3:pointer);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_busy_handler';
|
||||
procedure sqlite_busy_timeout(_para1:Psqlite; ms:longint);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_busy_timeout';
|
||||
function sqlite_get_table(_para1:Psqlite; sql:Pchar; resultp:PPPchar; nrow:Plongint; ncolumn:Plongint;
|
||||
errmsg:PPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_get_table';
|
||||
procedure sqlite_free_table(result:PPchar);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_free_table';
|
||||
function sqlite_exec_printf(_para1:Psqlite; sqlFormat:Pchar; _para3:sqlite_callback; _para4:pointer; errmsg:PPchar;
|
||||
args:array of const):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_exec_printf';
|
||||
function sqlite_exec_printf(_para1:Psqlite; sqlFormat:Pchar; _para3:sqlite_callback; _para4:pointer; errmsg:PPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_exec_printf';
|
||||
function sqlite_exec_vprintf(_para1:Psqlite; sqlFormat:Pchar; _para3:sqlite_callback; _para4:pointer; errmsg:PPchar;
|
||||
ap:array of const):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_exec_vprintf';
|
||||
function sqlite_get_table_printf(_para1:Psqlite; sqlFormat:Pchar; resultp:PPPchar; nrow:Plongint; ncolumn:Plongint;
|
||||
errmsg:PPchar; args:array of const):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_get_table_printf';
|
||||
function sqlite_get_table_printf(_para1:Psqlite; sqlFormat:Pchar; resultp:PPPchar; nrow:Plongint; ncolumn:Plongint;
|
||||
errmsg:PPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_get_table_printf';
|
||||
function sqlite_get_table_vprintf(_para1:Psqlite; sqlFormat:Pchar; resultp:PPPchar; nrow:Plongint; ncolumn:Plongint;
|
||||
errmsg:PPchar; ap:array of const):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_get_table_vprintf';
|
||||
function sqlite_mprintf(_para1:Pchar; args:array of const):Pchar;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_mprintf';
|
||||
function sqlite_mprintf(_para1:Pchar):Pchar;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_mprintf';
|
||||
procedure sqlite_freemem(p:pointer);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_freemem';
|
||||
function sqlite_libversion:Pchar;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_libversion';
|
||||
function sqlite_libencoding:Pchar;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_libencoding';
|
||||
function sqlite_create_aggregate(_para1:Psqlite; zName:Pchar; nArg:longint; xStep:sqlite_step_func ; xFinalize:sqlite_finalize_func;
|
||||
pUserData:pointer):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_create_aggregate';
|
||||
function sqlite_function_type(db:Psqlite; zName:Pchar; datatype:longint):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_function_type';
|
||||
function sqlite_set_result_string(_para1:Psqlite_func; _para2:Pchar; _para3:longint):Pchar;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_set_result_string';
|
||||
procedure sqlite_set_result_int(_para1:Psqlite_func; _para2:longint);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_set_result_int';
|
||||
procedure sqlite_set_result_double(_para1:Psqlite_func; _para2:double);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_set_result_double';
|
||||
procedure sqlite_set_result_error(_para1:Psqlite_func; _para2:Pchar; _para3:longint);{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_set_result_error';
|
||||
function sqlite_user_data(_para1:Psqlite_func):pointer;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_user_data';
|
||||
function sqlite_aggregate_context(_para1:Psqlite_func; nBytes:longint):pointer;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_aggregate_context';
|
||||
function sqlite_aggregate_count(_para1:Psqlite_func):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_aggregate_count';
|
||||
function sqlite_set_authorizer(_para1:Psqlite; xAuth:sqlite_authorize_func ; pUserData:pointer):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_set_authorizer';
|
||||
function sqlite_trace(_para1:Psqlite; xTrace:sqlite_trace_func; _para3:pointer):pointer;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_trace';
|
||||
function sqlite_compile(db:Psqlite; zSql:Pchar; pzTail:PPchar; ppVm:PPsqlite_vm; pzErrmsg:PPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_compile';
|
||||
function sqlite_step(pVm:Psqlite_vm; pN:Plongint; pazValue:PPPchar; pazColName:PPPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_step';
|
||||
function sqlite_finalize(_para1:Psqlite_vm; pzErrMsg:PPchar):longint;{$ifdef win32}stdcall{$else}cdecl{$endif};external External_library name 'sqlite_finalize';
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user