0000: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
0010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 2a 20 41 44 *********.. * AD
0040: 4f 2e 4e 45 54 20 32 2e 30 20 44 61 74 61 20 50 O.NET 2.0 Data P
0050: 72 6f 76 69 64 65 72 20 66 6f 72 20 53 51 4c 69 rovider for SQLi
0060: 74 65 20 56 65 72 73 69 6f 6e 20 33 2e 58 0d 0a te Version 3.X..
0070: 20 2a 20 57 72 69 74 74 65 6e 20 62 79 20 52 6f * Written by Ro
0080: 62 65 72 74 20 53 69 6d 70 73 6f 6e 20 28 72 6f bert Simpson (ro
0090: 62 65 72 74 40 62 6c 61 63 6b 63 61 73 74 6c 65 bert@blackcastle
00a0: 73 6f 66 74 2e 63 6f 6d 29 0d 0a 20 2a 0d 0a 20 soft.com).. *..
00b0: 2a 20 52 65 6c 65 61 73 65 64 20 74 6f 20 74 68 * Released to th
00c0: 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2c e public domain,
00d0: 20 75 73 65 20 61 74 20 79 6f 75 72 20 6f 77 6e use at your own
00e0: 20 72 69 73 6b 21 0d 0a 20 2a 2a 2a 2a 2a 2a 2a risk!.. *******
00f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0100: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0110: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0120: 2a 2f 0d 0a 0d 0a 23 64 65 66 69 6e 65 20 53 51 */....#define SQ
0130: 4c 49 54 45 5f 41 50 49 20 5f 5f 64 65 63 6c 73 LITE_API __decls
0140: 70 65 63 28 64 6c 6c 65 78 70 6f 72 74 29 0d 0a pec(dllexport)..
0150: 0d 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 63 ..#include "../c
0160: 6f 72 65 2f 73 71 6c 69 74 65 33 2e 63 22 0d 0a ore/sqlite3.c"..
0170: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
0180: 54 45 52 4f 50 5f 49 4e 43 4c 55 44 45 5f 45 58 TEROP_INCLUDE_EX
0190: 54 52 41 29 0d 0a 23 69 6e 63 6c 75 64 65 20 22 TRA)..#include "
01a0: 2e 2e 2f 65 78 74 2f 65 78 74 72 61 2e 63 22 0d ../ext/extra.c".
01b0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 .#endif....#if d
01c0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 49 efined(INTEROP_I
01d0: 4e 43 4c 55 44 45 5f 43 45 52 4f 44 29 0d 0a 23 NCLUDE_CEROD)..#
01e0: 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f include "../ext/
01f0: 63 65 72 6f 64 2e 63 22 0d 0a 23 65 6e 64 69 66 cerod.c"..#endif
0200: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
0210: 49 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 45 5f INTEROP_INCLUDE_
0220: 53 45 45 29 0d 0a 23 69 6e 63 6c 75 64 65 20 22 SEE)..#include "
0230: 2e 2e 2f 65 78 74 2f 73 65 65 2e 63 22 0d 0a 23 ../ext/see.c"..#
0240: 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 endif....#if def
0250: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 49 4e 43 ined(INTEROP_INC
0260: 4c 55 44 45 5f 5a 49 50 56 46 53 29 0d 0a 23 69 LUDE_ZIPVFS)..#i
0270: 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f 7a nclude "../ext/z
0280: 69 70 76 66 73 2e 63 22 0d 0a 23 69 6e 63 6c 75 ipvfs.c"..#inclu
0290: 64 65 20 22 2e 2e 2f 65 78 74 2f 61 6c 67 6f 72 de "../ext/algor
02a0: 69 74 68 6d 73 2e 63 22 0d 0a 23 65 6e 64 69 66 ithms.c"..#endif
02b0: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
02c0: 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f INTEROP_EXTENSIO
02d0: 4e 5f 46 55 4e 43 54 49 4f 4e 53 29 0d 0a 23 75 N_FUNCTIONS)..#u
02e0: 6e 64 65 66 20 43 4f 4d 50 49 4c 45 5f 53 51 4c ndef COMPILE_SQL
02f0: 49 54 45 5f 45 58 54 45 4e 53 49 4f 4e 53 5f 41 ITE_EXTENSIONS_A
0300: 53 5f 4c 4f 41 44 41 42 4c 45 5f 4d 4f 44 55 4c S_LOADABLE_MODUL
0310: 45 0d 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f E..#include "../
0320: 63 6f 6e 74 72 69 62 2f 65 78 74 65 6e 73 69 6f contrib/extensio
0330: 6e 2d 66 75 6e 63 74 69 6f 6e 73 2e 63 22 0d 0a n-functions.c"..
0340: 65 78 74 65 72 6e 20 69 6e 74 20 52 65 67 69 73 extern int Regis
0350: 74 65 72 45 78 74 65 6e 73 69 6f 6e 46 75 6e 63 terExtensionFunc
0360: 74 69 6f 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 tions(sqlite3 *d
0370: 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 b);..#endif....#
0380: 69 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 if defined(SQLIT
0390: 45 5f 4f 53 5f 57 49 4e 29 0d 0a 23 69 66 20 64 E_OS_WIN)..#if d
03a0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 43 efined(INTEROP_C
03b0: 4f 44 45 43 29 20 26 26 20 21 64 65 66 69 6e 65 ODEC) && !define
03c0: 64 28 49 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 d(INTEROP_INCLUD
03d0: 45 5f 53 45 45 29 0d 0a 23 69 6e 63 6c 75 64 65 E_SEE)..#include
03e0: 20 22 63 72 79 70 74 2e 63 22 0d 0a 23 65 6e 64 "crypt.c"..#end
03f0: 69 66 0d 0a 0d 0a 23 69 6e 63 6c 75 64 65 20 22 if....#include "
0400: 69 6e 74 65 72 6f 70 2e 68 22 0d 0a 0d 0a 23 64 interop.h"....#d
0410: 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 efine INTEROP_DE
0420: 42 55 47 5f 4e 4f 4e 45 20 20 20 20 20 20 20 20 BUG_NONE
0430: 20 20 20 28 30 78 30 30 30 30 29 0d 0a 23 64 65 (0x0000)..#de
0440: 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 fine INTEROP_DEB
0450: 55 47 5f 43 4c 4f 53 45 20 20 20 20 20 20 20 20 UG_CLOSE
0460: 20 20 28 30 78 30 30 30 31 29 0d 0a 23 64 65 66 (0x0001)..#def
0470: 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 ine INTEROP_DEBU
0480: 47 5f 46 49 4e 41 4c 49 5a 45 20 20 20 20 20 20 G_FINALIZE
0490: 20 28 30 78 30 30 30 32 29 0d 0a 23 64 65 66 69 (0x0002)..#defi
04a0: 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ne INTEROP_DEBUG
04b0: 5f 42 41 43 4b 55 50 5f 46 49 4e 49 53 48 20 20 _BACKUP_FINISH
04c0: 28 30 78 30 30 30 34 29 0d 0a 23 64 65 66 69 6e (0x0004)..#defin
04d0: 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f e INTEROP_DEBUG_
04e0: 4f 50 45 4e 20 20 20 20 20 20 20 20 20 20 20 28 OPEN (
04f0: 30 78 30 30 30 38 29 0d 0a 23 64 65 66 69 6e 65 0x0008)..#define
0500: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 4f INTEROP_DEBUG_O
0510: 50 45 4e 31 36 20 20 20 20 20 20 20 20 20 28 30 PEN16 (0
0520: 78 30 30 31 30 29 0d 0a 23 64 65 66 69 6e 65 20 x0010)..#define
0530: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 INTEROP_DEBUG_PR
0540: 45 50 41 52 45 20 20 20 20 20 20 20 20 28 30 78 EPARE (0x
0550: 30 30 32 30 29 0d 0a 23 64 65 66 69 6e 65 20 49 0020)..#define I
0560: 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 NTEROP_DEBUG_PRE
0570: 50 41 52 45 31 36 20 20 20 20 20 20 28 30 78 30 PARE16 (0x0
0580: 30 34 30 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 040)..#define IN
0590: 54 45 52 4f 50 5f 44 45 42 55 47 5f 52 45 53 45 TEROP_DEBUG_RESE
05a0: 54 20 20 20 20 20 20 20 20 20 20 28 30 78 30 30 T (0x00
05b0: 38 30 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 80)..#define INT
05c0: 45 52 4f 50 5f 44 45 42 55 47 5f 43 48 41 4e 47 EROP_DEBUG_CHANG
05d0: 45 53 20 20 20 20 20 20 20 20 28 30 78 30 31 30 ES (0x010
05e0: 30 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 0)..#define INTE
05f0: 52 4f 50 5f 44 45 42 55 47 5f 42 52 45 41 4b 20 ROP_DEBUG_BREAK
0600: 20 20 20 20 20 20 20 20 20 28 30 78 30 32 30 30 (0x0200
0610: 29 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 )....#if defined
0620: 28 5f 4d 53 43 5f 56 45 52 29 20 26 26 20 64 65 (_MSC_VER) && de
0630: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
0640: 42 55 47 29 20 26 26 20 5c 0d 0a 20 20 20 20 28 BUG) && \.. (
0650: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 INTEROP_DEBUG &
0660: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 42 52 INTEROP_DEBUG_BR
0670: 45 41 4b 29 0d 0a 23 64 65 66 69 6e 65 20 73 71 EAK)..#define sq
0680: 6c 69 74 65 33 49 6e 74 65 72 6f 70 42 72 65 61 lite3InteropBrea
0690: 6b 28 61 29 20 7b 20 73 71 6c 69 74 65 33 49 6e k(a) { sqlite3In
06a0: 74 65 72 6f 70 44 65 62 75 67 28 22 25 73 5c 6e teropDebug("%s\n
06b0: 22 2c 20 28 61 29 29 3b 20 5f 5f 64 65 62 75 67 ", (a)); __debug
06c0: 62 72 65 61 6b 28 29 3b 20 7d 0d 0a 23 65 6c 73 break(); }..#els
06d0: 65 0d 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74 e..#define sqlit
06e0: 65 33 49 6e 74 65 72 6f 70 42 72 65 61 6b 28 61 e3InteropBreak(a
06f0: 29 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 74 79 70 )..#endif....typ
0700: 65 64 65 66 20 76 6f 69 64 20 28 2a 53 51 4c 49 edef void (*SQLI
0710: 54 45 55 53 45 52 46 55 4e 43 29 28 73 71 6c 69 TEUSERFUNC)(sqli
0720: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 2c 20 69 te3_context *, i
0730: 6e 74 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 nt, sqlite3_valu
0740: 65 20 2a 2a 29 3b 0d 0a 74 79 70 65 64 65 66 20 e **);..typedef
0750: 76 6f 69 64 20 28 2a 53 51 4c 49 54 45 46 55 4e void (*SQLITEFUN
0760: 43 46 49 4e 41 4c 29 28 73 71 6c 69 74 65 33 5f CFINAL)(sqlite3_
0770: 63 6f 6e 74 65 78 74 20 2a 29 3b 0d 0a 0d 0a 2f context *);..../
0780: 2a 0d 0a 2a 2a 20 41 6e 20 61 72 72 61 79 20 6f *..** An array o
0790: 66 20 6e 61 6d 65 73 20 6f 66 20 61 6c 6c 20 63 f names of all c
07a0: 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 ompile-time opti
07b0: 6f 6e 73 2e 20 20 54 68 69 73 20 61 72 72 61 79 ons. This array
07c0: 20 73 68 6f 75 6c 64 0d 0a 2a 2a 20 62 65 20 73 should..** be s
07d0: 6f 72 74 65 64 20 41 2d 5a 2e 0d 0a 2a 2a 0d 0a orted A-Z...**..
07e0: 2a 2a 20 54 68 69 73 20 61 72 72 61 79 20 6c 6f ** This array lo
07f0: 6f 6b 73 20 6c 61 72 67 65 2c 20 62 75 74 20 69 oks large, but i
0800: 6e 20 61 20 74 79 70 69 63 61 6c 20 69 6e 73 74 n a typical inst
0810: 61 6c 6c 61 74 69 6f 6e 20 61 63 74 75 61 6c 6c allation actuall
0820: 79 20 75 73 65 73 0d 0a 2a 2a 20 6f 6e 6c 79 20 y uses..** only
0830: 61 20 68 61 6e 64 66 75 6c 20 6f 66 20 63 6f 6d a handful of com
0840: 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e pile-time option
0850: 73 2c 20 73 6f 20 6d 6f 73 74 20 74 69 6d 65 73 s, so most times
0860: 20 74 68 69 73 20 61 72 72 61 79 20 69 73 20 75 this array is u
0870: 73 75 61 6c 6c 79 0d 0a 2a 2a 20 72 61 74 68 65 sually..** rathe
0880: 72 20 73 68 6f 72 74 20 61 6e 64 20 75 73 65 73 r short and uses
0890: 20 6c 69 74 74 6c 65 20 6d 65 6d 6f 72 79 20 73 little memory s
08a0: 70 61 63 65 2e 0d 0a 2a 2f 0d 0a 73 74 61 74 69 pace...*/..stati
08b0: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 63 c const char * c
08c0: 6f 6e 73 74 20 61 7a 49 6e 74 65 72 6f 70 43 6f onst azInteropCo
08d0: 6d 70 69 6c 65 4f 70 74 5b 5d 20 3d 20 7b 0d 0a mpileOpt[] = {..
08e0: 0d 0a 2f 2a 20 54 68 65 73 65 20 6d 61 63 72 6f ../* These macro
08f0: 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 74 s are provided t
0900: 6f 20 22 73 74 72 69 6e 67 69 66 79 22 20 74 68 o "stringify" th
0910: 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 64 e value of the d
0920: 65 66 69 6e 65 0d 0a 2a 2a 20 66 6f 72 20 74 68 efine..** for th
0930: 6f 73 65 20 6f 70 74 69 6f 6e 73 20 69 6e 20 77 ose options in w
0940: 68 69 63 68 20 74 68 65 20 76 61 6c 75 65 20 69 hich the value i
0950: 73 20 6d 65 61 6e 69 6e 67 66 75 6c 2e 20 2a 2f s meaningful. */
0960: 0d 0a 23 69 66 6e 64 65 66 20 43 54 49 4d 45 4f ..#ifndef CTIMEO
0970: 50 54 5f 56 41 4c 5f 0d 0a 23 64 65 66 69 6e 65 PT_VAL_..#define
0980: 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c 5f 28 6f CTIMEOPT_VAL_(o
0990: 70 74 29 20 23 6f 70 74 0d 0a 23 65 6e 64 69 66 pt) #opt..#endif
09a0: 0d 0a 0d 0a 23 69 66 6e 64 65 66 20 43 54 49 4d ....#ifndef CTIM
09b0: 45 4f 50 54 5f 56 41 4c 0d 0a 23 64 65 66 69 6e EOPT_VAL..#defin
09c0: 65 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c 28 6f e CTIMEOPT_VAL(o
09d0: 70 74 29 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c pt) CTIMEOPT_VAL
09e0: 5f 28 6f 70 74 29 0d 0a 23 65 6e 64 69 66 0d 0a _(opt)..#endif..
09f0: 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f 50 ..#ifdef INTEROP
0a00: 5f 43 4f 44 45 43 0d 0a 20 20 22 43 4f 44 45 43 _CODEC.. "CODEC
0a10: 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 ",..#endif..#ifd
0a20: 65 66 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ef INTEROP_DEBUG
0a30: 0d 0a 20 20 22 44 45 42 55 47 3d 22 20 43 54 49 .. "DEBUG=" CTI
0a40: 4d 45 4f 50 54 5f 56 41 4c 28 49 4e 54 45 52 4f MEOPT_VAL(INTERO
0a50: 50 5f 44 45 42 55 47 29 2c 0d 0a 23 65 6e 64 69 P_DEBUG),..#endi
0a60: 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f f..#ifdef INTERO
0a70: 50 5f 45 58 54 45 4e 53 49 4f 4e 5f 46 55 4e 43 P_EXTENSION_FUNC
0a80: 54 49 4f 4e 53 0d 0a 20 20 22 45 58 54 45 4e 53 TIONS.. "EXTENS
0a90: 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 22 2c 0d ION_FUNCTIONS",.
0aa0: 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 .#endif..#ifdef
0ab0: 49 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 45 5f INTEROP_INCLUDE_
0ac0: 43 45 52 4f 44 0d 0a 20 20 22 49 4e 43 4c 55 44 CEROD.. "INCLUD
0ad0: 45 5f 43 45 52 4f 44 22 2c 0d 0a 23 65 6e 64 69 E_CEROD",..#endi
0ae0: 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f f..#ifdef INTERO
0af0: 50 5f 49 4e 43 4c 55 44 45 5f 45 58 54 52 41 0d P_INCLUDE_EXTRA.
0b00: 0a 20 20 22 49 4e 43 4c 55 44 45 5f 45 58 54 52 . "INCLUDE_EXTR
0b10: 41 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 A",..#endif..#if
0b20: 64 65 66 20 49 4e 54 45 52 4f 50 5f 49 4e 43 4c def INTEROP_INCL
0b30: 55 44 45 5f 53 45 45 0d 0a 20 20 22 49 4e 43 4c UDE_SEE.. "INCL
0b40: 55 44 45 5f 53 45 45 22 2c 0d 0a 23 65 6e 64 69 UDE_SEE",..#endi
0b50: 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f f..#ifdef INTERO
0b60: 50 5f 49 4e 43 4c 55 44 45 5f 5a 49 50 56 46 53 P_INCLUDE_ZIPVFS
0b70: 0d 0a 20 20 22 49 4e 43 4c 55 44 45 5f 5a 49 50 .. "INCLUDE_ZIP
0b80: 56 46 53 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 VFS",..#endif..#
0b90: 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 4a 53 ifdef INTEROP_JS
0ba0: 4f 4e 31 5f 45 58 54 45 4e 53 49 4f 4e 0d 0a 20 ON1_EXTENSION..
0bb0: 20 22 4a 53 4f 4e 31 5f 45 58 54 45 4e 53 49 4f "JSON1_EXTENSIO
0bc0: 4e 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 N",..#endif..#if
0bd0: 64 65 66 20 49 4e 54 45 52 4f 50 5f 4c 45 47 41 def INTEROP_LEGA
0be0: 43 59 5f 43 4c 4f 53 45 0d 0a 20 20 22 4c 45 47 CY_CLOSE.. "LEG
0bf0: 41 43 59 5f 43 4c 4f 53 45 22 2c 0d 0a 23 65 6e ACY_CLOSE",..#en
0c00: 64 69 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 dif..#ifdef INTE
0c10: 52 4f 50 5f 4c 4f 47 0d 0a 20 20 22 4c 4f 47 22 ROP_LOG.. "LOG"
0c20: 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 ,..#endif..#ifde
0c30: 66 20 49 4e 54 45 52 4f 50 5f 50 45 52 43 45 4e f INTEROP_PERCEN
0c40: 54 49 4c 45 5f 45 58 54 45 4e 53 49 4f 4e 0d 0a TILE_EXTENSION..
0c50: 20 20 22 50 45 52 43 45 4e 54 49 4c 45 5f 45 58 "PERCENTILE_EX
0c60: 54 45 4e 53 49 4f 4e 22 2c 0d 0a 23 65 6e 64 69 TENSION",..#endi
0c70: 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f f..#ifdef INTERO
0c80: 50 5f 52 45 47 45 58 50 5f 45 58 54 45 4e 53 49 P_REGEXP_EXTENSI
0c90: 4f 4e 0d 0a 20 20 22 52 45 47 45 58 50 5f 45 58 ON.. "REGEXP_EX
0ca0: 54 45 4e 53 49 4f 4e 22 2c 0d 0a 23 65 6e 64 69 TENSION",..#endi
0cb0: 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f f..#ifdef INTERO
0cc0: 50 5f 54 45 53 54 5f 45 58 54 45 4e 53 49 4f 4e P_TEST_EXTENSION
0cd0: 0d 0a 20 20 22 54 45 53 54 5f 45 58 54 45 4e 53 .. "TEST_EXTENS
0ce0: 49 4f 4e 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 ION",..#endif..#
0cf0: 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 54 4f ifdef INTEROP_TO
0d00: 54 59 50 45 5f 45 58 54 45 4e 53 49 4f 4e 0d 0a TYPE_EXTENSION..
0d10: 20 20 22 54 4f 54 59 50 45 5f 45 58 54 45 4e 53 "TOTYPE_EXTENS
0d20: 49 4f 4e 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 ION",..#endif..#
0d30: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 56 45 52 ifdef SQLITE_VER
0d40: 53 49 4f 4e 5f 4e 55 4d 42 45 52 0d 0a 20 20 22 SION_NUMBER.. "
0d50: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 3d 22 VERSION_NUMBER="
0d60: 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c 28 53 51 CTIMEOPT_VAL(SQ
0d70: 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d LITE_VERSION_NUM
0d80: 42 45 52 29 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 BER),..#endif..#
0d90: 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 56 49 ifdef INTEROP_VI
0da0: 52 54 55 41 4c 5f 54 41 42 4c 45 0d 0a 20 20 22 RTUAL_TABLE.. "
0db0: 56 49 52 54 55 41 4c 5f 54 41 42 4c 45 22 2c 0d VIRTUAL_TABLE",.
0dc0: 0a 23 65 6e 64 69 66 0d 0a 7d 3b 0d 0a 0d 0a 2f .#endif..};..../
0dd0: 2a 0d 0a 2a 2a 20 47 69 76 65 6e 20 74 68 65 20 *..** Given the
0de0: 6e 61 6d 65 20 6f 66 20 61 20 63 6f 6d 70 69 6c name of a compil
0df0: 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e 2c 20 72 e-time option, r
0e00: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 eturn true if th
0e10: 61 74 20 6f 70 74 69 6f 6e 0d 0a 2a 2a 20 77 61 at option..** wa
0e20: 73 20 75 73 65 64 20 61 6e 64 20 66 61 6c 73 65 s used and false
0e30: 20 69 66 20 6e 6f 74 2e 0d 0a 2a 2a 0d 0a 2a 2a if not...**..**
0e40: 20 54 68 65 20 6e 61 6d 65 20 63 61 6e 20 6f 70 The name can op
0e50: 74 69 6f 6e 61 6c 6c 79 20 62 65 67 69 6e 20 77 tionally begin w
0e60: 69 74 68 20 22 53 51 4c 49 54 45 5f 22 20 6f 72 ith "SQLITE_" or
0e70: 20 22 49 4e 54 45 52 4f 50 5f 22 20 62 75 74 20 "INTEROP_" but
0e80: 74 68 6f 73 65 0d 0a 2a 2a 20 70 72 65 66 69 78 those..** prefix
0e90: 65 73 20 61 72 65 20 6e 6f 74 20 72 65 71 75 69 es are not requi
0ea0: 72 65 64 20 66 6f 72 20 61 20 6d 61 74 63 68 2e red for a match.
0eb0: 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 41 50 49 ..*/..SQLITE_API
0ec0: 20 69 6e 74 20 57 49 4e 41 50 49 20 69 6e 74 65 int WINAPI inte
0ed0: 72 6f 70 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f rop_compileoptio
0ee0: 6e 5f 75 73 65 64 28 63 6f 6e 73 74 20 63 68 61 n_used(const cha
0ef0: 72 20 2a 7a 4f 70 74 4e 61 6d 65 29 7b 0d 0a 20 r *zOptName){..
0f00: 20 69 6e 74 20 69 2c 20 6e 3b 0d 0a 20 20 69 66 int i, n;.. if
0f10: 28 20 73 71 6c 69 74 65 33 53 74 72 4e 49 43 6d ( sqlite3StrNICm
0f20: 70 28 7a 4f 70 74 4e 61 6d 65 2c 20 22 53 51 4c p(zOptName, "SQL
0f30: 49 54 45 5f 22 2c 20 37 29 3d 3d 30 20 29 20 7a ITE_", 7)==0 ) z
0f40: 4f 70 74 4e 61 6d 65 20 2b 3d 20 37 3b 0d 0a 20 OptName += 7;..
0f50: 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 4e if( sqlite3StrN
0f60: 49 43 6d 70 28 7a 4f 70 74 4e 61 6d 65 2c 20 22 ICmp(zOptName, "
0f70: 49 4e 54 45 52 4f 50 5f 22 2c 20 38 29 3d 3d 30 INTEROP_", 8)==0
0f80: 20 29 20 7a 4f 70 74 4e 61 6d 65 20 2b 3d 20 38 ) zOptName += 8
0f90: 3b 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 ;.. n = sqlite3
0fa0: 53 74 72 6c 65 6e 33 30 28 7a 4f 70 74 4e 61 6d Strlen30(zOptNam
0fb0: 65 29 3b 0d 0a 0d 0a 20 20 2f 2a 20 53 69 6e 63 e);.... /* Sinc
0fc0: 65 20 41 72 72 61 79 53 69 7a 65 28 61 7a 49 6e e ArraySize(azIn
0fd0: 74 65 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 29 teropCompileOpt)
0fe0: 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 69 6e 20 is normally in
0ff0: 73 69 6e 67 6c 65 20 64 69 67 69 74 73 2c 20 61 single digits, a
1000: 0d 0a 20 20 2a 2a 20 6c 69 6e 65 61 72 20 73 65 .. ** linear se
1010: 61 72 63 68 20 69 73 20 61 64 65 71 75 61 74 65 arch is adequate
1020: 2e 20 20 4e 6f 20 6e 65 65 64 20 66 6f 72 20 61 . No need for a
1030: 20 62 69 6e 61 72 79 20 73 65 61 72 63 68 2e 20 binary search.
1040: 2a 2f 0d 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 */.. for(i=0; i
1050: 3c 41 72 72 61 79 53 69 7a 65 28 61 7a 49 6e 74 <ArraySize(azInt
1060: 65 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 29 3b eropCompileOpt);
1070: 20 69 2b 2b 29 7b 0d 0a 20 20 20 20 69 66 28 20 i++){.. if(
1080: 73 71 6c 69 74 65 33 53 74 72 4e 49 43 6d 70 28 sqlite3StrNICmp(
1090: 7a 4f 70 74 4e 61 6d 65 2c 20 61 7a 49 6e 74 65 zOptName, azInte
10a0: 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 5b 69 5d ropCompileOpt[i]
10b0: 2c 20 6e 29 3d 3d 30 0d 0a 20 20 20 20 20 26 26 , n)==0.. &&
10c0: 20 73 71 6c 69 74 65 33 43 74 79 70 65 4d 61 70 sqlite3CtypeMap
10d0: 5b 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 [(unsigned char)
10e0: 61 7a 49 6e 74 65 72 6f 70 43 6f 6d 70 69 6c 65 azInteropCompile
10f0: 4f 70 74 5b 69 5d 5b 6e 5d 5d 3d 3d 30 0d 0a 20 Opt[i][n]]==0..
1100: 20 20 20 29 7b 0d 0a 20 20 20 20 20 20 72 65 74 ){.. ret
1110: 75 72 6e 20 31 3b 0d 0a 20 20 20 20 7d 0d 0a 20 urn 1;.. }..
1120: 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0d }.. return 0;.
1130: 0a 7d 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 52 65 74 .}..../*..** Ret
1140: 75 72 6e 20 74 68 65 20 4e 2d 74 68 20 63 6f 6d urn the N-th com
1150: 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e pile-time option
1160: 20 73 74 72 69 6e 67 2e 20 20 49 66 20 4e 20 69 string. If N i
1170: 73 20 6f 75 74 20 6f 66 20 72 61 6e 67 65 2c 0d s out of range,.
1180: 0a 2a 2a 20 72 65 74 75 72 6e 20 61 20 4e 55 4c .** return a NUL
1190: 4c 20 70 6f 69 6e 74 65 72 2e 0d 0a 2a 2f 0d 0a L pointer...*/..
11a0: 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 SQLITE_API const
11b0: 20 63 68 61 72 20 2a 57 49 4e 41 50 49 20 69 6e char *WINAPI in
11c0: 74 65 72 6f 70 5f 63 6f 6d 70 69 6c 65 6f 70 74 terop_compileopt
11d0: 69 6f 6e 5f 67 65 74 28 69 6e 74 20 4e 29 7b 0d ion_get(int N){.
11e0: 0a 20 20 69 66 28 20 4e 3e 3d 30 20 26 26 20 4e . if( N>=0 && N
11f0: 3c 41 72 72 61 79 53 69 7a 65 28 61 7a 49 6e 74 <ArraySize(azInt
1200: 65 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 29 20 eropCompileOpt)
1210: 29 7b 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 61 ){.. return a
1220: 7a 49 6e 74 65 72 6f 70 43 6f 6d 70 69 6c 65 4f zInteropCompileO
1230: 70 74 5b 4e 5d 3b 0d 0a 20 20 7d 0d 0a 20 20 72 pt[N];.. }.. r
1240: 65 74 75 72 6e 20 30 3b 0d 0a 7d 0d 0a 0d 0a 23 eturn 0;..}....#
1250: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
1260: 4f 50 5f 44 45 42 55 47 29 20 7c 7c 20 64 65 66 OP_DEBUG) || def
1270: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 4c 4f 47 ined(INTEROP_LOG
1280: 29 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 41 54 )..SQLITE_PRIVAT
1290: 45 20 76 6f 69 64 20 73 71 6c 69 74 65 33 49 6e E void sqlite3In
12a0: 74 65 72 6f 70 44 65 62 75 67 28 63 6f 6e 73 74 teropDebug(const
12b0: 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 char *zFormat,
12c0: 2e 2e 2e 29 7b 0d 0a 20 20 76 61 5f 6c 69 73 74 ...){.. va_list
12d0: 20 61 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 ap;
12e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
12f0: 56 61 72 61 72 67 20 6c 69 73 74 20 2a 2f 0d 0a Vararg list */..
1300: 20 20 53 74 72 41 63 63 75 6d 20 61 63 63 3b 20 StrAccum acc;
1310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1320: 20 20 20 20 20 20 2f 2a 20 53 74 72 69 6e 67 20 /* String
1330: 61 63 63 75 6d 75 6c 61 74 6f 72 20 2a 2f 0d 0a accumulator */..
1340: 20 20 63 68 61 72 20 7a 4d 73 67 5b 53 51 4c 49 char zMsg[SQLI
1350: 54 45 5f 50 52 49 4e 54 5f 42 55 46 5f 53 49 5a TE_PRINT_BUF_SIZ
1360: 45 2a 33 5d 3b 20 2f 2a 20 43 6f 6d 70 6c 65 74 E*3]; /* Complet
1370: 65 20 6c 6f 67 20 6d 65 73 73 61 67 65 20 2a 2f e log message */
1380: 0d 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c .. va_start(ap,
1390: 20 7a 46 6f 72 6d 61 74 29 3b 0d 0a 23 69 66 20 zFormat);..#if
13a0: 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e SQLITE_VERSION_N
13b0: 55 4d 42 45 52 20 3e 3d 20 33 30 30 38 30 31 30 UMBER >= 3008010
13c0: 0d 0a 20 20 73 71 6c 69 74 65 33 53 74 72 41 63 .. sqlite3StrAc
13d0: 63 75 6d 49 6e 69 74 28 26 61 63 63 2c 20 30 2c cumInit(&acc, 0,
13e0: 20 7a 4d 73 67 2c 20 73 69 7a 65 6f 66 28 7a 4d zMsg, sizeof(zM
13f0: 73 67 29 2c 20 30 29 3b 0d 0a 23 65 6c 73 65 0d sg), 0);..#else.
1400: 0a 20 20 73 71 6c 69 74 65 33 53 74 72 41 63 63 . sqlite3StrAcc
1410: 75 6d 49 6e 69 74 28 26 61 63 63 2c 20 7a 4d 73 umInit(&acc, zMs
1420: 67 2c 20 73 69 7a 65 6f 66 28 7a 4d 73 67 29 2c g, sizeof(zMsg),
1430: 20 30 29 3b 0d 0a 20 20 61 63 63 2e 75 73 65 4d 0);.. acc.useM
1440: 61 6c 6c 6f 63 20 3d 20 30 3b 0d 0a 23 65 6e 64 alloc = 0;..#end
1450: 69 66 0d 0a 20 20 73 71 6c 69 74 65 33 56 58 50 if.. sqlite3VXP
1460: 72 69 6e 74 66 28 26 61 63 63 2c 20 30 2c 20 7a rintf(&acc, 0, z
1470: 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0d 0a 20 20 Format, ap);..
1480: 76 61 5f 65 6e 64 28 61 70 29 3b 0d 0a 23 69 66 va_end(ap);..#if
1490: 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f SQLITE_VERSION_
14a0: 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 37 30 31 NUMBER >= 300701
14b0: 33 0d 0a 20 20 73 71 6c 69 74 65 33 5f 77 69 6e 3.. sqlite3_win
14c0: 33 32 5f 77 72 69 74 65 5f 64 65 62 75 67 28 73 32_write_debug(s
14d0: 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 69 qlite3StrAccumFi
14e0: 6e 69 73 68 28 26 61 63 63 29 2c 20 2d 31 29 3b nish(&acc), -1);
14f0: 0d 0a 23 65 6c 69 66 20 64 65 66 69 6e 65 64 28 ..#elif defined(
1500: 53 51 4c 49 54 45 5f 57 49 4e 33 32 5f 48 41 53 SQLITE_WIN32_HAS
1510: 5f 41 4e 53 49 29 0d 0a 20 20 4f 75 74 70 75 74 _ANSI).. Output
1520: 44 65 62 75 67 53 74 72 69 6e 67 41 28 73 71 6c DebugStringA(sql
1530: 69 74 65 33 53 74 72 41 63 63 75 6d 46 69 6e 69 ite3StrAccumFini
1540: 73 68 28 26 61 63 63 29 29 3b 0d 0a 23 65 6c 69 sh(&acc));..#eli
1550: 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 f defined(SQLITE
1560: 5f 57 49 4e 33 32 5f 48 41 53 5f 57 49 44 45 29 _WIN32_HAS_WIDE)
1570: 0d 0a 20 20 7b 0d 0a 20 20 20 20 4c 50 57 53 54 .. {.. LPWST
1580: 52 20 7a 57 69 64 65 4d 73 67 20 3d 20 75 74 66 R zWideMsg = utf
1590: 38 54 6f 55 6e 69 63 6f 64 65 28 73 71 6c 69 74 8ToUnicode(sqlit
15a0: 65 33 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68 e3StrAccumFinish
15b0: 28 26 61 63 63 29 29 3b 0d 0a 20 20 20 20 69 66 (&acc));.. if
15c0: 28 20 7a 57 69 64 65 4d 73 67 20 29 7b 0d 0a 20 ( zWideMsg ){..
15d0: 20 20 20 20 20 4f 75 74 70 75 74 44 65 62 75 67 OutputDebug
15e0: 53 74 72 69 6e 67 57 28 7a 57 69 64 65 4d 73 67 StringW(zWideMsg
15f0: 29 3b 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 );.. sqlite
1600: 33 5f 66 72 65 65 28 7a 57 69 64 65 4d 73 67 29 3_free(zWideMsg)
1610: 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 23 ;.. }.. }..#
1620: 65 6c 73 65 0d 0a 20 20 66 70 72 69 6e 74 66 28 else.. fprintf(
1630: 73 74 64 65 72 72 2c 20 22 25 73 22 2c 20 73 71 stderr, "%s", sq
1640: 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 69 6e lite3StrAccumFin
1650: 69 73 68 28 26 61 63 63 29 29 3b 0d 0a 23 65 6e ish(&acc));..#en
1660: 64 69 66 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a dif..}..#endif..
1670: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
1680: 54 45 52 4f 50 5f 4c 4f 47 29 0d 0a 53 51 4c 49 TEROP_LOG)..SQLI
1690: 54 45 5f 50 52 49 56 41 54 45 20 69 6e 74 20 6c TE_PRIVATE int l
16a0: 6f 67 43 6f 6e 66 69 67 75 72 65 64 20 3d 20 30 ogConfigured = 0
16b0: 3b 0d 0a 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 ;....SQLITE_PRIV
16c0: 41 54 45 20 76 6f 69 64 20 73 71 6c 69 74 65 33 ATE void sqlite3
16d0: 49 6e 74 65 72 6f 70 4c 6f 67 43 61 6c 6c 62 61 InteropLogCallba
16e0: 63 6b 28 76 6f 69 64 20 2a 70 41 72 67 2c 20 69 ck(void *pArg, i
16f0: 6e 74 20 69 43 6f 64 65 2c 20 63 6f 6e 73 74 20 nt iCode, const
1700: 63 68 61 72 20 2a 7a 4d 73 67 29 7b 0d 0a 20 20 char *zMsg){..
1710: 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 sqlite3InteropDe
1720: 62 75 67 28 22 49 4e 54 45 52 4f 50 5f 4c 4f 47 bug("INTEROP_LOG
1730: 20 28 25 64 29 20 25 73 5c 6e 22 2c 20 69 43 6f (%d) %s\n", iCo
1740: 64 65 2c 20 7a 4d 73 67 29 3b 0d 0a 7d 0d 0a 23 de, zMsg);..}..#
1750: 65 6e 64 69 66 0d 0a 0d 0a 53 51 4c 49 54 45 5f endif....SQLITE_
1760: 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 API int WINAPI s
1770: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 5f 73 69 qlite3_malloc_si
1780: 7a 65 5f 69 6e 74 65 72 6f 70 28 76 6f 69 64 20 ze_interop(void
1790: 2a 70 29 7b 0d 0a 20 20 72 65 74 75 72 6e 20 73 *p){.. return s
17a0: 71 6c 69 74 65 33 4d 61 6c 6c 6f 63 53 69 7a 65 qlite3MallocSize
17b0: 28 70 29 3b 0d 0a 7d 0d 0a 0d 0a 23 69 66 20 64 (p);..}....#if d
17c0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 4c efined(INTEROP_L
17d0: 45 47 41 43 59 5f 43 4c 4f 53 45 29 20 7c 7c 20 EGACY_CLOSE) ||
17e0: 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e SQLITE_VERSION_N
17f0: 55 4d 42 45 52 20 3c 20 33 30 30 37 30 31 34 0d UMBER < 3007014.
1800: 0a 53 51 4c 49 54 45 5f 50 52 49 56 41 54 45 20 .SQLITE_PRIVATE
1810: 76 6f 69 64 20 2a 20 73 71 6c 69 74 65 33 44 62 void * sqlite3Db
1820: 4d 61 6c 6c 6f 63 5a 65 72 6f 5f 69 6e 74 65 72 MallocZero_inter
1830: 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 op(sqlite3 *db,
1840: 69 6e 74 20 6e 29 0d 0a 7b 0d 0a 20 20 76 6f 69 int n)..{.. voi
1850: 64 20 2a 70 3b 0d 0a 20 20 69 66 20 28 64 62 29 d *p;.. if (db)
1860: 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f {.. sqlite3_
1870: 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e mutex_enter(db->
1880: 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a 20 20 mutex);.. }..
1890: 70 20 3d 20 73 71 6c 69 74 65 33 44 62 4d 61 6c p = sqlite3DbMal
18a0: 6c 6f 63 5a 65 72 6f 28 64 62 2c 6e 29 3b 0d 0a locZero(db,n);..
18b0: 20 20 69 66 20 28 64 62 29 20 7b 0d 0a 20 20 20 if (db) {..
18c0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
18d0: 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
18e0: 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 .. }.. return
18f0: 70 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f p;..}....SQLITE_
1900: 50 52 49 56 41 54 45 20 76 6f 69 64 20 73 71 6c PRIVATE void sql
1910: 69 74 65 33 44 62 46 72 65 65 5f 69 6e 74 65 72 ite3DbFree_inter
1920: 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 op(sqlite3 *db,
1930: 76 6f 69 64 20 2a 70 29 0d 0a 7b 0d 0a 20 20 69 void *p)..{.. i
1940: 66 20 28 64 62 29 20 7b 0d 0a 20 20 20 20 73 71 f (db) {.. sq
1950: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
1960: 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 r(db->mutex);..
1970: 20 7d 0d 0a 20 20 69 66 20 28 70 29 20 7b 0d 0a }.. if (p) {..
1980: 20 20 20 20 73 71 6c 69 74 65 33 4d 65 6d 64 65 sqlite3Memde
1990: 62 75 67 53 65 74 54 79 70 65 28 70 2c 20 4d 45 bugSetType(p, ME
19a0: 4d 54 59 50 45 5f 44 42 7c 4d 45 4d 54 59 50 45 MTYPE_DB|MEMTYPE
19b0: 5f 48 45 41 50 29 3b 0d 0a 20 20 7d 0d 0a 20 20 _HEAP);.. }..
19c0: 73 71 6c 69 74 65 33 44 62 46 72 65 65 28 64 62 sqlite3DbFree(db
19d0: 2c 70 29 3b 0d 0a 20 20 69 66 20 28 64 62 29 20 ,p);.. if (db)
19e0: 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d {.. sqlite3_m
19f0: 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d utex_leave(db->m
1a00: 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a 7d 0d 0a utex);.. }..}..
1a10: 23 65 6e 64 69 66 0d 0a 0d 0a 2f 2a 0d 0a 20 20 #endif..../*..
1a20: 20 20 54 68 65 20 67 6f 61 6c 20 6f 66 20 74 68 The goal of th
1a30: 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 63 6c is version of cl
1a40: 6f 73 65 20 69 73 20 64 69 66 66 65 72 65 6e 74 ose is different
1a50: 20 74 68 61 6e 20 74 68 61 74 20 6f 66 20 73 71 than that of sq
1a60: 6c 69 74 65 33 5f 63 6c 6f 73 65 28 29 2c 20 61 lite3_close(), a
1a70: 6e 64 20 69 73 20 64 65 73 69 67 6e 65 64 20 74 nd is designed t
1a80: 6f 20 6c 65 6e 64 20 69 74 73 65 6c 66 20 62 65 o lend itself be
1a90: 74 74 65 72 20 74 6f 20 2e 4e 45 54 27 73 20 6e tter to .NET's n
1aa0: 6f 6e 2d 64 65 74 65 72 6d 69 6e 69 73 74 69 63 on-deterministic
1ab0: 20 66 69 6e 61 6c 69 7a 65 72 73 20 61 6e 64 0d finalizers and.
1ac0: 0a 20 20 20 20 74 68 65 20 47 43 20 74 68 72 65 . the GC thre
1ad0: 61 64 2e 20 20 53 51 4c 69 74 65 20 77 69 6c 6c ad. SQLite will
1ae0: 20 6e 6f 74 20 63 6c 6f 73 65 20 61 20 64 61 74 not close a dat
1af0: 61 62 61 73 65 20 69 66 20 73 74 61 74 65 6d 65 abase if stateme
1b00: 6e 74 73 20 61 72 65 20 6f 70 65 6e 20 6f 6e 20 nts are open on
1b10: 69 74 20 2d 2d 20 62 75 74 20 66 6f 72 20 6f 75 it -- but for ou
1b20: 72 20 70 75 72 70 6f 73 65 73 2c 20 77 65 27 64 r purposes, we'd
1b30: 20 72 61 74 68 65 72 20 66 69 6e 61 6c 69 7a 65 rather finalize
1b40: 20 61 6c 6c 20 61 63 74 69 76 65 20 73 74 61 74 all active stat
1b50: 65 6d 65 6e 74 73 0d 0a 20 20 20 20 61 6e 64 20 ements.. and
1b60: 66 6f 72 63 69 62 6c 79 20 63 6c 6f 73 65 20 74 forcibly close t
1b70: 68 65 20 64 61 74 61 62 61 73 65 2e 20 20 54 68 he database. Th
1b80: 65 20 72 65 61 73 6f 6e 20 69 73 20 73 69 6d 70 e reason is simp
1b90: 6c 65 20 2d 2d 20 61 20 6c 6f 74 20 6f 66 20 70 le -- a lot of p
1ba0: 65 6f 70 6c 65 20 64 6f 6e 27 74 20 44 69 73 70 eople don't Disp
1bb0: 6f 73 65 28 29 20 6f 66 20 74 68 65 69 72 20 6f ose() of their o
1bc0: 62 6a 65 63 74 73 20 63 6f 72 72 65 63 74 6c 79 bjects correctly
1bd0: 20 61 6e 64 20 6c 65 74 20 74 68 65 20 67 61 72 and let the gar
1be0: 62 61 67 65 20 63 6f 6c 6c 65 63 74 6f 72 0d 0a bage collector..
1bf0: 20 20 20 20 64 6f 20 69 74 2e 20 20 54 68 69 73 do it. This
1c00: 20 6c 65 61 64 73 20 74 6f 20 75 6e 65 78 70 65 leads to unexpe
1c10: 63 74 65 64 20 62 65 68 61 76 69 6f 72 20 77 68 cted behavior wh
1c20: 65 6e 20 61 20 75 73 65 72 20 74 68 69 6e 6b 73 en a user thinks
1c30: 20 74 68 65 79 27 76 65 20 63 6c 6f 73 65 64 20 they've closed
1c40: 61 20 64 61 74 61 62 61 73 65 2c 20 62 75 74 20 a database, but
1c50: 69 74 27 73 20 73 74 69 6c 6c 20 6f 70 65 6e 20 it's still open
1c60: 62 65 63 61 75 73 65 20 6e 6f 74 20 61 6c 6c 20 because not all
1c70: 74 68 65 20 73 74 61 74 65 6d 65 6e 74 73 20 68 the statements h
1c80: 61 76 65 0d 0a 20 20 20 20 68 69 74 20 74 68 65 ave.. hit the
1c90: 20 47 43 20 79 65 74 2e 0d 0a 0d 0a 20 20 20 20 GC yet.....
1ca0: 53 6f 2c 20 68 65 72 65 20 77 65 20 68 61 76 65 So, here we have
1cb0: 20 61 20 70 72 6f 62 6c 65 6d 20 2e 2e 2e 20 2e a problem ... .
1cc0: 4e 45 54 20 68 61 73 20 61 20 70 6f 69 6e 74 65 NET has a pointe
1cd0: 72 20 74 6f 20 61 6e 79 20 6e 75 6d 62 65 72 20 r to any number
1ce0: 6f 66 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 of sqlite3_stmt
1cf0: 6f 62 6a 65 63 74 73 2e 20 20 57 65 20 63 61 6e objects. We can
1d00: 27 74 20 63 61 6c 6c 20 73 71 6c 69 74 65 33 5f 't call sqlite3_
1d10: 66 69 6e 61 6c 69 7a 65 28 29 20 6f 6e 20 74 68 finalize() on th
1d20: 65 73 65 20 62 65 63 61 75 73 65 0d 0a 20 20 20 ese because..
1d30: 20 74 68 65 69 72 20 6d 65 6d 6f 72 79 20 69 73 their memory is
1d40: 20 66 72 65 65 64 20 61 6e 64 20 63 61 6e 20 62 freed and can b
1d50: 65 20 75 73 65 64 20 66 6f 72 20 73 6f 6d 65 74 e used for somet
1d60: 68 69 6e 67 20 65 6c 73 65 2e 20 20 54 68 65 20 hing else. The
1d70: 47 43 20 74 68 72 65 61 64 20 63 6f 75 6c 64 20 GC thread could
1d80: 70 6f 74 65 6e 74 69 61 6c 6c 79 20 74 72 79 20 potentially try
1d90: 61 6e 64 20 63 61 6c 6c 20 66 69 6e 61 6c 69 7a and call finaliz
1da0: 65 20 61 67 61 69 6e 20 6f 6e 20 74 68 65 20 73 e again on the s
1db0: 74 61 74 65 6d 65 6e 74 20 61 66 74 65 72 0d 0a tatement after..
1dc0: 20 20 20 20 74 68 61 74 20 6d 65 6d 6f 72 79 20 that memory
1dd0: 77 61 73 20 64 65 61 6c 6c 6f 63 61 74 65 64 2e was deallocated.
1de0: 20 20 42 41 44 2e 20 20 53 6f 2c 20 77 68 61 74 BAD. So, what
1df0: 20 77 65 20 6e 65 65 64 20 74 6f 20 64 6f 20 69 we need to do i
1e00: 73 20 6d 61 6b 65 20 61 20 63 6f 70 79 20 6f 66 s make a copy of
1e10: 20 65 61 63 68 20 73 74 61 74 65 6d 65 6e 74 2c each statement,
1e20: 20 61 6e 64 20 63 61 6c 6c 20 66 69 6e 61 6c 69 and call finali
1e30: 7a 65 28 29 20 6f 6e 20 74 68 65 20 63 6f 70 79 ze() on the copy
1e40: 20 2d 2d 20 73 6f 20 74 68 61 74 20 74 68 65 20 -- so that the
1e50: 6f 72 69 67 69 6e 61 6c 0d 0a 20 20 20 20 73 74 original.. st
1e60: 61 74 65 6d 65 6e 74 27 73 20 6d 65 6d 6f 72 79 atement's memory
1e70: 20 69 73 20 70 72 65 73 65 72 76 65 64 2c 20 61 is preserved, a
1e80: 6e 64 20 6d 61 72 6b 65 64 20 61 73 20 42 41 44 nd marked as BAD
1e90: 2c 20 62 75 74 20 77 65 20 63 61 6e 20 73 74 69 , but we can sti
1ea0: 6c 6c 20 6d 61 6e 61 67 65 20 74 6f 20 66 69 6e ll manage to fin
1eb0: 61 6c 69 7a 65 20 65 76 65 72 79 74 68 69 6e 67 alize everything
1ec0: 20 61 6e 64 20 66 6f 72 63 69 62 6c 79 20 63 6c and forcibly cl
1ed0: 6f 73 65 20 74 68 65 20 64 61 74 61 62 61 73 65 ose the database
1ee0: 2e 20 20 4c 61 74 65 72 20 77 68 65 6e 20 74 68 . Later when th
1ef0: 65 0d 0a 20 20 20 20 47 43 20 67 65 74 73 20 61 e.. GC gets a
1f00: 72 6f 75 6e 64 20 74 6f 20 63 61 6c 6c 69 6e 67 round to calling
1f10: 20 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 65 72 6f finalize_intero
1f20: 70 28 29 20 6f 6e 20 74 68 65 20 22 62 61 64 22 p() on the "bad"
1f30: 20 73 74 61 74 65 6d 65 6e 74 2c 20 77 65 20 64 statement, we d
1f40: 65 74 65 63 74 20 74 68 61 74 20 61 6e 64 20 66 etect that and f
1f50: 69 6e 69 73 68 20 64 65 61 6c 6c 6f 63 61 74 69 inish deallocati
1f60: 6e 67 20 74 68 65 20 70 6f 69 6e 74 65 72 2e 0d ng the pointer..
1f70: 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 .*/..SQLITE_API
1f80: 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 int WINAPI sqlit
1f90: 65 33 5f 63 6c 6f 73 65 5f 69 6e 74 65 72 6f 70 e3_close_interop
1fa0: 28 73 71 6c 69 74 65 33 20 2a 64 62 29 0d 0a 7b (sqlite3 *db)..{
1fb0: 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d 0a 23 69 .. int ret;..#i
1fc0: 66 20 21 64 65 66 69 6e 65 64 28 49 4e 54 45 52 f !defined(INTER
1fd0: 4f 50 5f 4c 45 47 41 43 59 5f 43 4c 4f 53 45 29 OP_LEGACY_CLOSE)
1fe0: 20 26 26 20 53 51 4c 49 54 45 5f 56 45 52 53 49 && SQLITE_VERSI
1ff0: 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 ON_NUMBER >= 300
2000: 37 30 31 34 0d 0a 0d 0a 23 69 66 20 64 65 66 69 7014....#if defi
2010: 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 ned(INTEROP_DEBU
2020: 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 G) && (INTEROP_D
2030: 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 EBUG & INTEROP_D
2040: 45 42 55 47 5f 43 4c 4f 53 45 29 0d 0a 20 20 73 EBUG_CLOSE).. s
2050: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 qlite3InteropDeb
2060: 75 67 28 22 73 71 6c 69 74 65 33 5f 63 6c 6f 73 ug("sqlite3_clos
2070: 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c e_interop(): cal
2080: 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 63 6c 6f ling sqlite3_clo
2090: 73 65 5f 76 32 28 25 70 29 2e 2e 2e 5c 6e 22 2c se_v2(%p)...\n",
20a0: 20 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d db);..#endif...
20b0: 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 . ret = sqlite3
20c0: 5f 63 6c 6f 73 65 5f 76 32 28 64 62 29 3b 0d 0a _close_v2(db);..
20d0: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
20e0: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
20f0: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 (INTEROP_DEBUG &
2100: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 43 INTEROP_DEBUG_C
2110: 4c 4f 53 45 29 0d 0a 20 20 73 71 6c 69 74 65 33 LOSE).. sqlite3
2120: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 InteropDebug("sq
2130: 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 69 6e 74 65 lite3_close_inte
2140: 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 63 rop(): sqlite3_c
2150: 6c 6f 73 65 5f 76 32 28 25 70 29 20 72 65 74 75 lose_v2(%p) retu
2160: 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 64 62 2c rned %d.\n", db,
2170: 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a ret);..#endif..
2180: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
2190: 0a 23 65 6c 73 65 0d 0a 20 20 72 65 74 20 3d 20 .#else.. ret =
21a0: 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 64 62 sqlite3_close(db
21b0: 29 3b 0d 0a 0d 0a 20 20 69 66 20 28 72 65 74 20 );.... if (ret
21c0: 3d 3d 20 53 51 4c 49 54 45 5f 42 55 53 59 29 0d == SQLITE_BUSY).
21d0: 0a 20 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 . {.. sqlite
21e0: 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 3_mutex_enter(db
21f0: 2d 3e 6d 75 74 65 78 29 3b 0d 0a 0d 0a 20 20 20 ->mutex);....
2200: 20 69 66 20 28 21 64 62 2d 3e 70 56 64 62 65 29 if (!db->pVdbe)
2210: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 73 .. {.. s
2220: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 qlite3_mutex_lea
2230: 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a ve(db->mutex);..
2240: 20 20 20 20 20 20 72 65 74 75 72 6e 20 72 65 74 return ret
2250: 3b 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 ;.. }....
2260: 77 68 69 6c 65 20 28 64 62 2d 3e 70 56 64 62 65 while (db->pVdbe
2270: 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 ).. {..
2280: 2f 2a 20 4d 61 6b 65 20 61 20 63 6f 70 79 20 6f /* Make a copy o
2290: 66 20 74 68 65 20 66 69 72 73 74 20 70 72 65 70 f the first prep
22a0: 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 20 2a ared statement *
22b0: 2f 0d 0a 20 20 20 20 20 20 56 64 62 65 20 2a 70 /.. Vdbe *p
22c0: 20 3d 20 28 56 64 62 65 20 2a 29 73 71 6c 69 74 = (Vdbe *)sqlit
22d0: 65 33 44 62 4d 61 6c 6c 6f 63 5a 65 72 6f 5f 69 e3DbMallocZero_i
22e0: 6e 74 65 72 6f 70 28 64 62 2c 20 73 69 7a 65 6f nterop(db, sizeo
22f0: 66 28 56 64 62 65 29 29 3b 0d 0a 20 20 20 20 20 f(Vdbe));..
2300: 20 56 64 62 65 20 2a 70 6f 20 3d 20 64 62 2d 3e Vdbe *po = db->
2310: 70 56 64 62 65 3b 0d 0a 0d 0a 20 20 20 20 20 20 pVdbe;....
2320: 69 66 20 28 21 70 29 0d 0a 20 20 20 20 20 20 7b if (!p).. {
2330: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 20 3d 20 .. ret =
2340: 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0d 0a 20 SQLITE_NOMEM;..
2350: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 break;..
2360: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
2370: 43 6f 70 79 4d 65 6d 6f 72 79 28 70 2c 20 70 6f CopyMemory(p, po
2380: 2c 20 73 69 7a 65 6f 66 28 56 64 62 65 29 29 3b , sizeof(Vdbe));
2390: 0d 0a 0d 0a 20 20 20 20 20 20 2f 2a 20 50 75 74 .... /* Put
23a0: 20 69 74 20 6f 6e 20 74 68 65 20 63 68 61 69 6e it on the chain
23b0: 20 73 6f 20 77 65 20 63 61 6e 20 66 72 65 65 20 so we can free
23c0: 69 74 20 2a 2f 0d 0a 20 20 20 20 20 20 64 62 2d it */.. db-
23d0: 3e 70 56 64 62 65 20 3d 20 70 3b 0d 0a 20 20 20 >pVdbe = p;..
23e0: 20 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 ret = sqlite3
23f0: 5f 66 69 6e 61 6c 69 7a 65 28 28 73 71 6c 69 74 _finalize((sqlit
2400: 65 33 5f 73 74 6d 74 20 2a 29 70 29 3b 20 2f 2a e3_stmt *)p); /*
2410: 20 54 68 69 73 20 77 69 6c 6c 20 61 6c 73 6f 20 This will also
2420: 66 72 65 65 20 74 68 65 20 63 6f 70 79 27 73 20 free the copy's
2430: 6d 65 6d 6f 72 79 20 2a 2f 0d 0a 20 20 20 20 20 memory */..
2440: 20 69 66 20 28 72 65 74 29 0d 0a 20 20 20 20 20 if (ret)..
2450: 20 7b 0d 0a 20 20 20 20 20 20 20 20 2f 2a 20 66 {.. /* f
2460: 69 6e 61 6c 69 7a 65 20 66 61 69 6c 65 64 20 2d inalize failed -
2470: 2d 20 73 6f 20 77 65 20 6d 75 73 74 20 70 75 74 - so we must put
2480: 20 62 61 63 6b 20 61 6e 79 74 68 69 6e 67 20 77 back anything w
2490: 65 20 6d 75 6e 67 65 64 20 2a 2f 0d 0a 20 20 20 e munged */..
24a0: 20 20 20 20 20 43 6f 70 79 4d 65 6d 6f 72 79 28 CopyMemory(
24b0: 70 6f 2c 20 70 2c 20 73 69 7a 65 6f 66 28 56 64 po, p, sizeof(Vd
24c0: 62 65 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 64 be));.. d
24d0: 62 2d 3e 70 56 64 62 65 20 3d 20 70 6f 3b 0d 0a b->pVdbe = po;..
24e0: 0d 0a 20 20 20 20 20 20 20 20 2f 2a 0d 0a 20 20 .. /*..
24f0: 20 20 20 20 20 20 2a 2a 20 4e 4f 54 45 3a 20 4f ** NOTE: O
2500: 6b 2c 20 77 65 20 6d 75 73 74 20 66 72 65 65 20 k, we must free
2510: 74 68 69 73 20 62 6c 6f 63 6b 20 74 68 61 74 20 this block that
2520: 2a 77 65 2a 20 61 6c 6c 6f 63 61 74 65 64 20 28 *we* allocated (
2530: 61 62 6f 76 65 29 20 73 69 6e 63 65 0d 0a 20 20 above) since..
2540: 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 20 66 ** f
2550: 69 6e 61 6c 69 7a 65 20 64 69 64 20 6e 6f 74 20 inalize did not
2560: 64 6f 20 73 6f 2e 0d 0a 20 20 20 20 20 20 20 20 do so...
2570: 2a 2f 0d 0a 20 20 20 20 20 20 20 20 73 71 6c 69 */.. sqli
2580: 74 65 33 44 62 46 72 65 65 5f 69 6e 74 65 72 6f te3DbFree_intero
2590: 70 28 64 62 2c 20 70 29 3b 0d 0a 20 20 20 20 20 p(db, p);..
25a0: 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 20 break;..
25b0: 20 7d 0d 0a 20 20 20 20 20 20 65 6c 73 65 0d 0a }.. else..
25c0: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 {..
25d0: 20 5a 65 72 6f 4d 65 6d 6f 72 79 28 70 6f 2c 20 ZeroMemory(po,
25e0: 73 69 7a 65 6f 66 28 56 64 62 65 29 29 3b 0d 0a sizeof(Vdbe));..
25f0: 20 20 20 20 20 20 20 20 70 6f 2d 3e 6d 61 67 69 po->magi
2600: 63 20 3d 20 56 44 42 45 5f 4d 41 47 49 43 5f 44 c = VDBE_MAGIC_D
2610: 45 41 44 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 EAD;.. }..
2620: 20 20 20 7d 0d 0a 20 20 20 20 73 71 6c 69 74 65 }.. sqlite
2630: 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 3_mutex_leave(db
2640: 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 20 20 72 ->mutex);.. r
2650: 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 63 6c 6f et = sqlite3_clo
2660: 73 65 28 64 62 29 3b 0d 0a 20 20 7d 0d 0a 20 20 se(db);.. }..
2670: 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 65 6e return ret;..#en
2680: 64 69 66 0d 0a 7d 0d 0a 0d 0a 23 69 66 20 64 65 dif..}....#if de
2690: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 4c 4f fined(INTEROP_LO
26a0: 47 29 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 G)..SQLITE_API i
26b0: 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 nt WINAPI sqlite
26c0: 33 5f 63 6f 6e 66 69 67 5f 6c 6f 67 5f 69 6e 74 3_config_log_int
26d0: 65 72 6f 70 28 29 0d 0a 7b 0d 0a 20 20 69 6e 74 erop()..{.. int
26e0: 20 72 65 74 3b 0d 0a 20 20 69 66 28 20 21 6c 6f ret;.. if( !lo
26f0: 67 43 6f 6e 66 69 67 75 72 65 64 20 29 7b 0d 0a gConfigured ){..
2700: 20 20 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 ret = sqlite
2710: 33 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 3_config(SQLITE_
2720: 43 4f 4e 46 49 47 5f 4c 4f 47 2c 20 73 71 6c 69 CONFIG_LOG, sqli
2730: 74 65 33 49 6e 74 65 72 6f 70 4c 6f 67 43 61 6c te3InteropLogCal
2740: 6c 62 61 63 6b 2c 20 30 29 3b 0d 0a 20 20 20 20 lback, 0);..
2750: 69 66 28 20 72 65 74 3d 3d 53 51 4c 49 54 45 5f if( ret==SQLITE_
2760: 4f 4b 20 29 7b 0d 0a 20 20 20 20 20 20 6c 6f 67 OK ){.. log
2770: 43 6f 6e 66 69 67 75 72 65 64 20 3d 20 31 3b 0d Configured = 1;.
2780: 0a 20 20 20 20 7d 65 6c 73 65 7b 0d 0a 20 20 20 . }else{..
2790: 20 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f sqlite3Intero
27a0: 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f pDebug("sqlite3_
27b0: 63 6f 6e 66 69 67 5f 6c 6f 67 5f 69 6e 74 65 72 config_log_inter
27c0: 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 63 6f op(): sqlite3_co
27d0: 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e 46 nfig(SQLITE_CONF
27e0: 49 47 5f 4c 4f 47 29 20 72 65 74 75 72 6e 65 64 IG_LOG) returned
27f0: 20 25 64 2e 5c 6e 22 2c 20 72 65 74 29 3b 0d 0a %d.\n", ret);..
2800: 20 20 20 20 7d 0d 0a 20 20 7d 65 6c 73 65 7b 0d }.. }else{.
2810: 0a 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 54 . ret = SQLIT
2820: 45 5f 4f 4b 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 E_OK;.. }.. re
2830: 74 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 23 65 turn ret;..}..#e
2840: 6e 64 69 66 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ndif....SQLITE_A
2850: 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 57 PI const char *W
2860: 49 4e 41 50 49 20 69 6e 74 65 72 6f 70 5f 6c 69 INAPI interop_li
2870: 62 76 65 72 73 69 6f 6e 28 76 6f 69 64 29 0d 0a bversion(void)..
2880: 7b 0d 0a 20 20 72 65 74 75 72 6e 20 49 4e 54 45 {.. return INTE
2890: 52 4f 50 5f 56 45 52 53 49 4f 4e 3b 0d 0a 7d 0d ROP_VERSION;..}.
28a0: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f ...SQLITE_API co
28b0: 6e 73 74 20 63 68 61 72 20 2a 57 49 4e 41 50 49 nst char *WINAPI
28c0: 20 69 6e 74 65 72 6f 70 5f 73 6f 75 72 63 65 69 interop_sourcei
28d0: 64 28 76 6f 69 64 29 0d 0a 7b 0d 0a 20 20 72 65 d(void)..{.. re
28e0: 74 75 72 6e 20 49 4e 54 45 52 4f 50 5f 53 4f 55 turn INTEROP_SOU
28f0: 52 43 45 5f 49 44 20 22 20 22 20 49 4e 54 45 52 RCE_ID " " INTER
2900: 4f 50 5f 53 4f 55 52 43 45 5f 54 49 4d 45 53 54 OP_SOURCE_TIMEST
2910: 41 4d 50 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 AMP;..}....SQLIT
2920: 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 E_API int WINAPI
2930: 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 6e sqlite3_open_in
2940: 74 65 72 6f 70 28 63 6f 6e 73 74 20 63 68 61 72 terop(const char
2950: 20 2a 66 69 6c 65 6e 61 6d 65 2c 20 63 6f 6e 73 *filename, cons
2960: 74 20 63 68 61 72 20 2a 76 66 73 4e 61 6d 65 2c t char *vfsName,
2970: 20 69 6e 74 20 66 6c 61 67 73 2c 20 69 6e 74 20 int flags, int
2980: 65 78 74 46 75 6e 63 73 2c 20 73 71 6c 69 74 65 extFuncs, sqlite
2990: 33 20 2a 2a 70 70 64 62 29 0d 0a 7b 0d 0a 20 20 3 **ppdb)..{..
29a0: 69 6e 74 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 int ret;....#if
29b0: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
29c0: 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 DEBUG) && (INTER
29d0: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
29e0: 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 29 0d 0a OP_DEBUG_OPEN)..
29f0: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
2a00: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f Debug("sqlite3_o
2a10: 70 65 6e 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 pen_interop(): c
2a20: 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 6f alling sqlite3_o
2a30: 70 65 6e 5f 76 32 28 5c 22 25 73 5c 22 2c 20 5c pen_v2(\"%s\", \
2a40: 22 25 73 5c 22 2c 20 25 64 2c 20 25 64 2c 20 25 "%s\", %d, %d, %
2a50: 70 29 2e 2e 2e 5c 6e 22 2c 20 66 69 6c 65 6e 61 p)...\n", filena
2a60: 6d 65 2c 20 76 66 73 4e 61 6d 65 2c 20 66 6c 61 me, vfsName, fla
2a70: 67 73 2c 20 65 78 74 46 75 6e 63 73 2c 20 70 70 gs, extFuncs, pp
2a80: 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a db);..#endif....
2a90: 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 5f ret = sqlite3_
2aa0: 6f 70 65 6e 5f 76 32 28 66 69 6c 65 6e 61 6d 65 open_v2(filename
2ab0: 2c 20 70 70 64 62 2c 20 66 6c 61 67 73 2c 20 76 , ppdb, flags, v
2ac0: 66 73 4e 61 6d 65 29 3b 0d 0a 0d 0a 23 69 66 20 fsName);....#if
2ad0: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
2ae0: 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 DEBUG) && (INTER
2af0: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
2b00: 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 29 0d 0a OP_DEBUG_OPEN)..
2b10: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
2b20: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f Debug("sqlite3_o
2b30: 70 65 6e 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 pen_interop(): s
2b40: 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 76 32 28 5c qlite3_open_v2(\
2b50: 22 25 73 5c 22 2c 20 5c 22 25 73 5c 22 2c 20 25 "%s\", \"%s\", %
2b60: 64 2c 20 25 64 2c 20 25 70 29 20 72 65 74 75 72 d, %d, %p) retur
2b70: 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 66 69 6c 65 ned %d.\n", file
2b80: 6e 61 6d 65 2c 20 76 66 73 4e 61 6d 65 2c 20 66 name, vfsName, f
2b90: 6c 61 67 73 2c 20 65 78 74 46 75 6e 63 73 2c 20 lags, extFuncs,
2ba0: 70 70 64 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e ppdb, ret);..#en
2bb0: 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e dif....#if defin
2bc0: 65 64 28 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e ed(INTEROP_EXTEN
2bd0: 53 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 29 0d SION_FUNCTIONS).
2be0: 0a 20 20 69 66 20 28 28 72 65 74 20 3d 3d 20 53 . if ((ret == S
2bf0: 51 4c 49 54 45 5f 4f 4b 29 20 26 26 20 70 70 64 QLITE_OK) && ppd
2c00: 62 20 26 26 20 65 78 74 46 75 6e 63 73 29 0d 0a b && extFuncs)..
2c10: 20 20 20 20 52 65 67 69 73 74 65 72 45 78 74 65 RegisterExte
2c20: 6e 73 69 6f 6e 46 75 6e 63 74 69 6f 6e 73 28 2a nsionFunctions(*
2c30: 70 70 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a ppdb);..#endif..
2c40: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
2c50: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
2c60: 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 int WINAPI sqli
2c70: 74 65 33 5f 6f 70 65 6e 31 36 5f 69 6e 74 65 72 te3_open16_inter
2c80: 6f 70 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 op(const char *f
2c90: 69 6c 65 6e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 ilename, const c
2ca0: 68 61 72 20 2a 76 66 73 4e 61 6d 65 2c 20 69 6e har *vfsName, in
2cb0: 74 20 66 6c 61 67 73 2c 20 69 6e 74 20 65 78 74 t flags, int ext
2cc0: 46 75 6e 63 73 2c 20 73 71 6c 69 74 65 33 20 2a Funcs, sqlite3 *
2cd0: 2a 70 70 64 62 29 0d 0a 7b 0d 0a 20 20 69 6e 74 *ppdb)..{.. int
2ce0: 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 ret;....#if def
2cf0: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 ined(INTEROP_DEB
2d00: 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f UG) && (INTEROP_
2d10: 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f DEBUG & INTEROP_
2d20: 44 45 42 55 47 5f 4f 50 45 4e 31 36 29 0d 0a 20 DEBUG_OPEN16)..
2d30: 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 sqlite3InteropD
2d40: 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f 70 ebug("sqlite3_op
2d50: 65 6e 31 36 5f 69 6e 74 65 72 6f 70 28 29 3a 20 en16_interop():
2d60: 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f calling sqlite3_
2d70: 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 28 5c 22 25 open_interop(\"%
2d80: 73 5c 22 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c s\", \"%s\", %d,
2d90: 20 25 64 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 %d, %p)...\n",
2da0: 66 69 6c 65 6e 61 6d 65 2c 20 76 66 73 4e 61 6d filename, vfsNam
2db0: 65 2c 20 66 6c 61 67 73 2c 20 65 78 74 46 75 6e e, flags, extFun
2dc0: 63 73 2c 20 70 70 64 62 29 3b 0d 0a 23 65 6e 64 cs, ppdb);..#end
2dd0: 69 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 if.... ret = sq
2de0: 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 6e 74 65 72 lite3_open_inter
2df0: 6f 70 28 66 69 6c 65 6e 61 6d 65 2c 20 76 66 73 op(filename, vfs
2e00: 4e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 65 78 74 Name, flags, ext
2e10: 46 75 6e 63 73 2c 20 70 70 64 62 29 3b 0d 0a 0d Funcs, ppdb);...
2e20: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 .#if defined(INT
2e30: 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 EROP_DEBUG) && (
2e40: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 INTEROP_DEBUG &
2e50: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 4f 50 INTEROP_DEBUG_OP
2e60: 45 4e 31 36 29 0d 0a 20 20 73 71 6c 69 74 65 33 EN16).. sqlite3
2e70: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 InteropDebug("sq
2e80: 6c 69 74 65 33 5f 6f 70 65 6e 31 36 5f 69 6e 74 lite3_open16_int
2e90: 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f erop(): sqlite3_
2ea0: 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 28 5c 22 25 open_interop(\"%
2eb0: 73 5c 22 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c s\", \"%s\", %d,
2ec0: 20 25 64 2c 20 25 70 29 20 72 65 74 75 72 6e 65 %d, %p) returne
2ed0: 64 20 25 64 2e 5c 6e 22 2c 20 66 69 6c 65 6e 61 d %d.\n", filena
2ee0: 6d 65 2c 20 76 66 73 4e 61 6d 65 2c 20 66 6c 61 me, vfsName, fla
2ef0: 67 73 2c 20 65 78 74 46 75 6e 63 73 2c 20 70 70 gs, extFuncs, pp
2f00: 64 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 db, ret);..#endi
2f10: 66 0d 0a 0d 0a 20 20 69 66 20 28 28 72 65 74 20 f.... if ((ret
2f20: 3d 3d 20 53 51 4c 49 54 45 5f 4f 4b 29 20 26 26 == SQLITE_OK) &&
2f30: 20 70 70 64 62 20 26 26 20 21 44 62 48 61 73 50 ppdb && !DbHasP
2f40: 72 6f 70 65 72 74 79 28 2a 70 70 64 62 2c 20 30 roperty(*ppdb, 0
2f50: 2c 20 44 42 5f 53 63 68 65 6d 61 4c 6f 61 64 65 , DB_SchemaLoade
2f60: 64 29 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 45 4e d)).. {.. EN
2f70: 43 28 2a 70 70 64 62 29 20 3d 20 53 51 4c 49 54 C(*ppdb) = SQLIT
2f80: 45 5f 55 54 46 31 36 4e 41 54 49 56 45 3b 0d 0a E_UTF16NATIVE;..
2f90: 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 ..#if SQLITE_VER
2fa0: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 SION_NUMBER >= 3
2fb0: 30 30 38 30 30 38 0d 0a 20 20 20 20 2f 2f 0d 0a 008008.. //..
2fc0: 20 20 20 20 2f 2f 20 42 55 47 46 49 58 3a 20 53 // BUGFIX: S
2fd0: 65 65 20 74 69 63 6b 65 74 20 5b 37 63 31 35 31 ee ticket [7c151
2fe0: 61 32 66 30 65 32 32 38 30 34 63 5d 2e 0d 0a 20 a2f0e22804c]...
2ff0: 20 20 20 2f 2f 0d 0a 20 20 20 20 53 43 48 45 4d //.. SCHEM
3000: 41 5f 45 4e 43 28 2a 70 70 64 62 29 20 3d 20 53 A_ENC(*ppdb) = S
3010: 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56 QLITE_UTF16NATIV
3020: 45 3b 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 7d 0d E;..#endif.. }.
3030: 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b ... return ret;
3040: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
3050: 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 57 49 I const char *WI
3060: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 65 72 72 NAPI sqlite3_err
3070: 6d 73 67 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 msg_interop(sqli
3080: 74 65 33 20 2a 64 62 2c 20 69 6e 74 20 2a 70 6c te3 *db, int *pl
3090: 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 en)..{.. const
30a0: 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c char *pval = sql
30b0: 69 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 3b ite3_errmsg(db);
30c0: 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 .. if (plen) *p
30d0: 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 len = pval ? str
30e0: 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a len(pval) : 0;..
30f0: 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a return pval;..
3100: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
3110: 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 int WINAPI sqlit
3120: 65 33 5f 63 68 61 6e 67 65 73 5f 69 6e 74 65 72 e3_changes_inter
3130: 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 29 0d op(sqlite3 *db).
3140: 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 73 75 6c 74 .{.. int result
3150: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
3160: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
3170: 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 && (INTEROP_DEBU
3180: 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 G & INTEROP_DEBU
3190: 47 5f 43 48 41 4e 47 45 53 29 0d 0a 20 20 73 71 G_CHANGES).. sq
31a0: 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 lite3InteropDebu
31b0: 67 28 22 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 g("sqlite3_chang
31c0: 65 73 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 es_interop(): ca
31d0: 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 63 68 lling sqlite3_ch
31e0: 61 6e 67 65 73 28 25 70 29 2e 2e 2e 5c 6e 22 2c anges(%p)...\n",
31f0: 20 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d db);..#endif...
3200: 0a 23 69 66 6e 64 65 66 20 4e 44 45 42 55 47 0d .#ifndef NDEBUG.
3210: 0a 20 20 69 66 20 28 21 64 62 29 0d 0a 20 20 20 . if (!db)..
3220: 20 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f sqlite3Intero
3230: 70 42 72 65 61 6b 28 22 6e 75 6c 6c 20 64 61 74 pBreak("null dat
3240: 61 62 61 73 65 20 68 61 6e 64 6c 65 20 66 6f 72 abase handle for
3250: 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 sqlite3_changes
3260: 28 29 22 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d ()");..#endif...
3270: 0a 20 20 72 65 73 75 6c 74 20 3d 20 73 71 6c 69 . result = sqli
3280: 74 65 33 5f 63 68 61 6e 67 65 73 28 64 62 29 3b te3_changes(db);
3290: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
32a0: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 INTEROP_DEBUG) &
32b0: 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 & (INTEROP_DEBUG
32c0: 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 & INTEROP_DEBUG
32d0: 5f 43 48 41 4e 47 45 53 29 0d 0a 20 20 73 71 6c _CHANGES).. sql
32e0: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
32f0: 28 22 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 ("sqlite3_change
3300: 73 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c s_interop(): sql
3310: 69 74 65 33 5f 63 68 61 6e 67 65 73 28 25 70 29 ite3_changes(%p)
3320: 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 returned %d.\n"
3330: 2c 20 64 62 2c 20 72 65 73 75 6c 74 29 3b 0d 0a , db, result);..
3340: 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 75 #endif.... retu
3350: 72 6e 20 72 65 73 75 6c 74 3b 0d 0a 7d 0d 0a 0d rn result;..}...
3360: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
3370: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 70 WINAPI sqlite3_p
3380: 72 65 70 61 72 65 5f 69 6e 74 65 72 6f 70 28 73 repare_interop(s
3390: 71 6c 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 qlite3 *db, cons
33a0: 74 20 63 68 61 72 20 2a 73 71 6c 2c 20 69 6e 74 t char *sql, int
33b0: 20 6e 62 79 74 65 73 2c 20 73 71 6c 69 74 65 33 nbytes, sqlite3
33c0: 5f 73 74 6d 74 20 2a 2a 70 70 73 74 6d 74 2c 20 _stmt **ppstmt,
33d0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 2a 70 7a 74 const char **pzt
33e0: 61 69 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d ail, int *plen).
33f0: 0a 7b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a .{.. int n;....
3400: 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 #if defined(INTE
3410: 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 ROP_DEBUG) && (I
3420: 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 NTEROP_DEBUG & I
3430: 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 NTEROP_DEBUG_PRE
3440: 50 41 52 45 29 0d 0a 20 20 73 71 6c 69 74 65 33 PARE).. sqlite3
3450: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 InteropDebug("sq
3460: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f 69 6e lite3_prepare_in
3470: 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 terop(): calling
3480: 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 sqlite3_prepare
3490: 28 25 70 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c (%p, \"%s\", %d,
34a0: 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 64 62 2c 20 %p)...\n", db,
34b0: 73 71 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 73 sql, nbytes, pps
34c0: 74 6d 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d tmt);..#endif...
34d0: 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 .#if SQLITE_VERS
34e0: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 ION_NUMBER >= 30
34f0: 30 33 30 30 39 0d 0a 20 20 6e 20 3d 20 73 71 6c 03009.. n = sql
3500: 69 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 ite3_prepare_v2(
3510: 64 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 73 2c db, sql, nbytes,
3520: 20 70 70 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 ppstmt, pztail)
3530: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 6e 20 3d 20 ;..#else.. n =
3540: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 28 sqlite3_prepare(
3550: 64 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 73 2c db, sql, nbytes,
3560: 20 70 70 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 ppstmt, pztail)
3570: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 ;..#endif....#if
3580: 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 defined(INTEROP
3590: 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 _DEBUG) && (INTE
35a0: 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 ROP_DEBUG & INTE
35b0: 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 41 52 ROP_DEBUG_PREPAR
35c0: 45 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 E).. sqlite3Int
35d0: 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 eropDebug("sqlit
35e0: 65 33 5f 70 72 65 70 61 72 65 5f 69 6e 74 65 72 e3_prepare_inter
35f0: 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 70 72 op(): sqlite3_pr
3600: 65 70 61 72 65 28 25 70 2c 20 5c 22 25 73 5c 22 epare(%p, \"%s\"
3610: 2c 20 25 64 2c 20 25 70 29 20 72 65 74 75 72 6e , %d, %p) return
3620: 65 64 20 25 64 2e 5c 6e 22 2c 20 64 62 2c 20 73 ed %d.\n", db, s
3630: 71 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 73 74 ql, nbytes, ppst
3640: 6d 74 2c 20 6e 29 3b 0d 0a 23 65 6e 64 69 66 0d mt, n);..#endif.
3650: 0a 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a ... if (plen) *
3660: 70 6c 65 6e 20 3d 20 28 70 7a 74 61 69 6c 20 26 plen = (pztail &
3670: 26 20 2a 70 7a 74 61 69 6c 29 20 3f 20 73 74 72 & *pztail) ? str
3680: 6c 65 6e 28 2a 70 7a 74 61 69 6c 29 20 3a 20 30 len(*pztail) : 0
3690: 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 6e 3b ;.... return n;
36a0: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
36b0: 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c I int WINAPI sql
36c0: 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 5f 69 ite3_prepare16_i
36d0: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a nterop(sqlite3 *
36e0: 64 62 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a db, const void *
36f0: 73 71 6c 2c 20 69 6e 74 20 6e 63 68 61 72 73 2c sql, int nchars,
3700: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 2a sqlite3_stmt **
3710: 70 70 73 74 6d 74 2c 20 63 6f 6e 73 74 20 76 6f ppstmt, const vo
3720: 69 64 20 2a 2a 70 7a 74 61 69 6c 2c 20 69 6e 74 id **pztail, int
3730: 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 69 6e *plen)..{.. in
3740: 74 20 6e 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 t n;....#if defi
3750: 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 ned(INTEROP_DEBU
3760: 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 G) && (INTEROP_D
3770: 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 EBUG & INTEROP_D
3780: 45 42 55 47 5f 50 52 45 50 41 52 45 31 36 29 0d EBUG_PREPARE16).
3790: 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f . sqlite3Intero
37a0: 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f pDebug("sqlite3_
37b0: 70 72 65 70 61 72 65 5f 69 6e 74 65 72 6f 70 28 prepare_interop(
37c0: 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 ): calling sqlit
37d0: 65 33 5f 70 72 65 70 61 72 65 31 36 28 25 70 2c e3_prepare16(%p,
37e0: 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 \"%s\", %d, %p)
37f0: 2e 2e 2e 5c 6e 22 2c 20 64 62 2c 20 73 71 6c 2c ...\n", db, sql,
3800: 20 6e 63 68 61 72 73 2c 20 70 70 73 74 6d 74 29 nchars, ppstmt)
3810: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 ;..#endif....#if
3820: 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f SQLITE_VERSION_
3830: 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 33 30 30 NUMBER >= 300300
3840: 39 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 9.. n = sqlite3
3850: 5f 70 72 65 70 61 72 65 31 36 5f 76 32 28 64 62 _prepare16_v2(db
3860: 2c 20 73 71 6c 2c 20 6e 63 68 61 72 73 20 2a 20 , sql, nchars *
3870: 73 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 2c sizeof(wchar_t),
3880: 20 70 70 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 ppstmt, pztail)
3890: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 6e 20 3d 20 ;..#else.. n =
38a0: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 sqlite3_prepare1
38b0: 36 28 64 62 2c 20 73 71 6c 2c 20 6e 63 68 61 72 6(db, sql, nchar
38c0: 73 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 s * sizeof(wchar
38d0: 5f 74 29 2c 20 70 70 73 74 6d 74 2c 20 70 7a 74 _t), ppstmt, pzt
38e0: 61 69 6c 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d ail);..#endif...
38f0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 .#if defined(INT
3900: 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 EROP_DEBUG) && (
3910: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 INTEROP_DEBUG &
3920: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 INTEROP_DEBUG_PR
3930: 45 50 41 52 45 31 36 29 0d 0a 20 20 73 71 6c 69 EPARE16).. sqli
3940: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
3950: 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 "sqlite3_prepare
3960: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 _interop(): sqli
3970: 74 65 33 5f 70 72 65 70 61 72 65 31 36 28 25 70 te3_prepare16(%p
3980: 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 , \"%s\", %d, %p
3990: 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e ) returned %d.\n
39a0: 22 2c 20 64 62 2c 20 73 71 6c 2c 20 6e 63 68 61 ", db, sql, ncha
39b0: 72 73 2c 20 70 70 73 74 6d 74 2c 20 6e 29 3b 0d rs, ppstmt, n);.
39c0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 69 66 20 .#endif.... if
39d0: 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 28 (plen) *plen = (
39e0: 70 7a 74 61 69 6c 20 26 26 20 2a 70 7a 74 61 69 pztail && *pztai
39f0: 6c 29 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 l) ? wcslen((wch
3a00: 61 72 5f 74 20 2a 29 2a 70 7a 74 61 69 6c 29 20 ar_t *)*pztail)
3a10: 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 * sizeof(wchar_t
3a20: 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 74 75 ) : 0;.... retu
3a30: 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 23 69 66 20 rn n;..}....#if
3a40: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
3a50: 56 49 52 54 55 41 4c 5f 54 41 42 4c 45 29 20 26 VIRTUAL_TABLE) &
3a60: 26 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e & SQLITE_VERSION
3a70: 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 34 30 _NUMBER >= 30040
3a80: 30 31 0d 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 01..#ifdef _WIN3
3a90: 32 0a 5f 5f 64 65 63 6c 73 70 65 63 28 64 6c 6c 2.__declspec(dll
3aa0: 65 78 70 6f 72 74 29 0a 23 65 6e 64 69 66 0a 76 export).#endif.v
3ab0: 6f 69 64 20 2a 73 71 6c 69 74 65 33 5f 63 72 65 oid *sqlite3_cre
3ac0: 61 74 65 5f 64 69 73 70 6f 73 61 62 6c 65 5f 6d ate_disposable_m
3ad0: 6f 64 75 6c 65 28 0d 0a 20 20 73 71 6c 69 74 65 odule(.. sqlite
3ae0: 33 20 2a 64 62 2c 0d 0a 20 20 63 6f 6e 73 74 20 3 *db,.. const
3af0: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 0d 0a 20 20 char *zName,..
3b00: 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 5f 6d 6f const sqlite3_mo
3b10: 64 75 6c 65 20 2a 70 2c 0d 0a 20 20 76 6f 69 64 dule *p,.. void
3b20: 20 2a 70 43 6c 69 65 6e 74 44 61 74 61 2c 0d 0a *pClientData,..
3b30: 20 20 76 6f 69 64 28 2a 78 44 65 73 74 72 6f 79 void(*xDestroy
3b40: 29 28 76 6f 69 64 2a 29 0d 0a 29 3b 20 2f 2a 20 )(void*)..); /*
3b50: 64 65 66 69 6e 65 64 20 69 6e 20 22 73 72 63 2f defined in "src/
3b60: 65 78 74 2f 76 74 73 68 69 6d 2e 63 22 20 28 69 ext/vtshim.c" (i
3b70: 6e 63 6c 75 64 65 64 20 62 65 6c 6f 77 29 20 2a ncluded below) *
3b80: 2f 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 /....SQLITE_API
3b90: 76 6f 69 64 20 2a 57 49 4e 41 50 49 20 73 71 6c void *WINAPI sql
3ba0: 69 74 65 33 5f 63 72 65 61 74 65 5f 64 69 73 70 ite3_create_disp
3bb0: 6f 73 61 62 6c 65 5f 6d 6f 64 75 6c 65 5f 69 6e osable_module_in
3bc0: 74 65 72 6f 70 28 0d 0a 20 20 73 71 6c 69 74 65 terop(.. sqlite
3bd0: 33 20 2a 64 62 2c 0d 0a 20 20 63 6f 6e 73 74 20 3 *db,.. const
3be0: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 0d 0a 20 20 char *zName,..
3bf0: 73 71 6c 69 74 65 33 5f 6d 6f 64 75 6c 65 20 2a sqlite3_module *
3c00: 70 4d 6f 64 75 6c 65 2c 0d 0a 20 20 69 6e 74 20 pModule,.. int
3c10: 69 56 65 72 73 69 6f 6e 2c 0d 0a 20 20 69 6e 74 iVersion,.. int
3c20: 20 28 2a 78 43 72 65 61 74 65 29 28 73 71 6c 69 (*xCreate)(sqli
3c30: 74 65 33 2a 2c 20 76 6f 69 64 20 2a 2c 20 69 6e te3*, void *, in
3c40: 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 t, const char *c
3c50: 6f 6e 73 74 2a 2c 20 73 71 6c 69 74 65 33 5f 76 onst*, sqlite3_v
3c60: 74 61 62 20 2a 2a 2c 20 63 68 61 72 2a 2a 29 2c tab **, char**),
3c70: 0d 0a 20 20 69 6e 74 20 28 2a 78 43 6f 6e 6e 65 .. int (*xConne
3c80: 63 74 29 28 73 71 6c 69 74 65 33 2a 2c 20 76 6f ct)(sqlite3*, vo
3c90: 69 64 20 2a 2c 20 69 6e 74 2c 20 63 6f 6e 73 74 id *, int, const
3ca0: 20 63 68 61 72 20 2a 63 6f 6e 73 74 2a 2c 20 73 char *const*, s
3cb0: 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 2a 2c 20 qlite3_vtab **,
3cc0: 63 68 61 72 2a 2a 29 2c 0d 0a 20 20 69 6e 74 20 char**),.. int
3cd0: 28 2a 78 42 65 73 74 49 6e 64 65 78 29 28 73 71 (*xBestIndex)(sq
3ce0: 6c 69 74 65 33 5f 76 74 61 62 20 2a 2c 20 73 71 lite3_vtab *, sq
3cf0: 6c 69 74 65 33 5f 69 6e 64 65 78 5f 69 6e 66 6f lite3_index_info
3d00: 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 44 69 *),.. int (*xDi
3d10: 73 63 6f 6e 6e 65 63 74 29 28 73 71 6c 69 74 65 sconnect)(sqlite
3d20: 33 5f 76 74 61 62 20 2a 29 2c 0d 0a 20 20 69 6e 3_vtab *),.. in
3d30: 74 20 28 2a 78 44 65 73 74 72 6f 79 29 28 73 71 t (*xDestroy)(sq
3d40: 6c 69 74 65 33 5f 76 74 61 62 20 2a 29 2c 0d 0a lite3_vtab *),..
3d50: 20 20 69 6e 74 20 28 2a 78 4f 70 65 6e 29 28 73 int (*xOpen)(s
3d60: 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 2c 20 73 qlite3_vtab *, s
3d70: 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 qlite3_vtab_curs
3d80: 6f 72 20 2a 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 or **),.. int (
3d90: 2a 78 43 6c 6f 73 65 29 28 73 71 6c 69 74 65 33 *xClose)(sqlite3
3da0: 5f 76 74 61 62 5f 63 75 72 73 6f 72 2a 29 2c 0d _vtab_cursor*),.
3db0: 0a 20 20 69 6e 74 20 28 2a 78 46 69 6c 74 65 72 . int (*xFilter
3dc0: 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 )(sqlite3_vtab_c
3dd0: 75 72 73 6f 72 2a 2c 20 69 6e 74 2c 20 63 6f 6e ursor*, int, con
3de0: 73 74 20 63 68 61 72 20 2a 2c 20 69 6e 74 2c 20 st char *, int,
3df0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
3e00: 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 4e 65 78 ),.. int (*xNex
3e10: 74 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f t)(sqlite3_vtab_
3e20: 63 75 72 73 6f 72 2a 29 2c 0d 0a 20 20 69 6e 74 cursor*),.. int
3e30: 20 28 2a 78 45 6f 66 29 28 73 71 6c 69 74 65 33 (*xEof)(sqlite3
3e40: 5f 76 74 61 62 5f 63 75 72 73 6f 72 2a 29 2c 0d _vtab_cursor*),.
3e50: 0a 20 20 69 6e 74 20 28 2a 78 43 6f 6c 75 6d 6e . int (*xColumn
3e60: 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 )(sqlite3_vtab_c
3e70: 75 72 73 6f 72 2a 2c 20 73 71 6c 69 74 65 33 5f ursor*, sqlite3_
3e80: 63 6f 6e 74 65 78 74 2a 2c 20 69 6e 74 29 2c 0d context*, int),.
3e90: 0a 20 20 69 6e 74 20 28 2a 78 52 6f 77 69 64 29 . int (*xRowid)
3ea0: 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 (sqlite3_vtab_cu
3eb0: 72 73 6f 72 2a 2c 20 73 71 6c 69 74 65 33 5f 69 rsor*, sqlite3_i
3ec0: 6e 74 36 34 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 nt64 *),.. int
3ed0: 28 2a 78 55 70 64 61 74 65 29 28 73 71 6c 69 74 (*xUpdate)(sqlit
3ee0: 65 33 5f 76 74 61 62 20 2a 2c 20 69 6e 74 2c 20 e3_vtab *, int,
3ef0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
3f00: 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 , sqlite3_int64
3f10: 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 42 65 *),.. int (*xBe
3f20: 67 69 6e 29 28 73 71 6c 69 74 65 33 5f 76 74 61 gin)(sqlite3_vta
3f30: 62 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 b *),.. int (*x
3f40: 53 79 6e 63 29 28 73 71 6c 69 74 65 33 5f 76 74 Sync)(sqlite3_vt
3f50: 61 62 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a ab *),.. int (*
3f60: 78 43 6f 6d 6d 69 74 29 28 73 71 6c 69 74 65 33 xCommit)(sqlite3
3f70: 5f 76 74 61 62 20 2a 29 2c 0d 0a 20 20 69 6e 74 _vtab *),.. int
3f80: 20 28 2a 78 52 6f 6c 6c 62 61 63 6b 29 28 73 71 (*xRollback)(sq
3f90: 6c 69 74 65 33 5f 76 74 61 62 20 2a 29 2c 0d 0a lite3_vtab *),..
3fa0: 20 20 69 6e 74 20 28 2a 78 46 69 6e 64 46 75 6e int (*xFindFun
3fb0: 63 74 69 6f 6e 29 28 73 71 6c 69 74 65 33 5f 76 ction)(sqlite3_v
3fc0: 74 61 62 20 2a 2c 20 69 6e 74 2c 20 63 6f 6e 73 tab *, int, cons
3fd0: 74 20 63 68 61 72 20 2a 2c 20 76 6f 69 64 20 28 t char *, void (
3fe0: 2a 2a 70 78 46 75 6e 63 29 28 73 71 6c 69 74 65 **pxFunc)(sqlite
3ff0: 33 5f 63 6f 6e 74 65 78 74 2a 2c 20 69 6e 74 2c 3_context*, int,
4000: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 2a 2a sqlite3_value**
4010: 29 2c 20 76 6f 69 64 20 2a 2a 70 70 41 72 67 29 ), void **ppArg)
4020: 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 52 65 6e 61 ,.. int (*xRena
4030: 6d 65 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 me)(sqlite3_vtab
4040: 20 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a *, const char *
4050: 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 53 61 76 ),.. int (*xSav
4060: 65 70 6f 69 6e 74 29 28 73 71 6c 69 74 65 33 5f epoint)(sqlite3_
4070: 76 74 61 62 20 2a 2c 20 69 6e 74 29 2c 0d 0a 20 vtab *, int),..
4080: 20 69 6e 74 20 28 2a 78 52 65 6c 65 61 73 65 29 int (*xRelease)
4090: 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 2c (sqlite3_vtab *,
40a0: 20 69 6e 74 29 2c 0d 0a 20 20 69 6e 74 20 28 2a int),.. int (*
40b0: 78 52 6f 6c 6c 62 61 63 6b 54 6f 29 28 73 71 6c xRollbackTo)(sql
40c0: 69 74 65 33 5f 76 74 61 62 20 2a 2c 20 69 6e 74 ite3_vtab *, int
40d0: 29 2c 0d 0a 20 20 76 6f 69 64 20 2a 70 43 6c 69 ),.. void *pCli
40e0: 65 6e 74 44 61 74 61 2c 0d 0a 20 20 76 6f 69 64 entData,.. void
40f0: 28 2a 78 44 65 73 74 72 6f 79 4d 6f 64 75 6c 65 (*xDestroyModule
4100: 29 28 76 6f 69 64 2a 29 0d 0a 29 7b 0d 0a 20 20 )(void*)..){..
4110: 69 66 20 28 21 70 4d 6f 64 75 6c 65 29 20 72 65 if (!pModule) re
4120: 74 75 72 6e 20 30 3b 0d 0a 20 20 6d 65 6d 73 65 turn 0;.. memse
4130: 74 28 70 4d 6f 64 75 6c 65 2c 20 30 2c 20 73 69 t(pModule, 0, si
4140: 7a 65 6f 66 28 2a 70 4d 6f 64 75 6c 65 29 29 3b zeof(*pModule));
4150: 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 69 56 65 .. pModule->iVe
4160: 72 73 69 6f 6e 20 3d 20 69 56 65 72 73 69 6f 6e rsion = iVersion
4170: 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 43 ;.. pModule->xC
4180: 72 65 61 74 65 20 3d 20 78 43 72 65 61 74 65 3b reate = xCreate;
4190: 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 43 6f .. pModule->xCo
41a0: 6e 6e 65 63 74 20 3d 20 78 43 6f 6e 6e 65 63 74 nnect = xConnect
41b0: 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 42 ;.. pModule->xB
41c0: 65 73 74 49 6e 64 65 78 20 3d 20 78 42 65 73 74 estIndex = xBest
41d0: 49 6e 64 65 78 3b 0d 0a 20 20 70 4d 6f 64 75 6c Index;.. pModul
41e0: 65 2d 3e 78 44 69 73 63 6f 6e 6e 65 63 74 20 3d e->xDisconnect =
41f0: 20 78 44 69 73 63 6f 6e 6e 65 63 74 3b 0d 0a 20 xDisconnect;..
4200: 20 70 4d 6f 64 75 6c 65 2d 3e 78 44 65 73 74 72 pModule->xDestr
4210: 6f 79 20 3d 20 78 44 65 73 74 72 6f 79 3b 0d 0a oy = xDestroy;..
4220: 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 4f 70 65 6e pModule->xOpen
4230: 20 3d 20 78 4f 70 65 6e 3b 0d 0a 20 20 70 4d 6f = xOpen;.. pMo
4240: 64 75 6c 65 2d 3e 78 43 6c 6f 73 65 20 3d 20 78 dule->xClose = x
4250: 43 6c 6f 73 65 3b 0d 0a 20 20 70 4d 6f 64 75 6c Close;.. pModul
4260: 65 2d 3e 78 46 69 6c 74 65 72 20 3d 20 78 46 69 e->xFilter = xFi
4270: 6c 74 65 72 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 lter;.. pModule
4280: 2d 3e 78 4e 65 78 74 20 3d 20 78 4e 65 78 74 3b ->xNext = xNext;
4290: 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 45 6f .. pModule->xEo
42a0: 66 20 3d 20 78 45 6f 66 3b 0d 0a 20 20 70 4d 6f f = xEof;.. pMo
42b0: 64 75 6c 65 2d 3e 78 43 6f 6c 75 6d 6e 20 3d 20 dule->xColumn =
42c0: 78 43 6f 6c 75 6d 6e 3b 0d 0a 20 20 70 4d 6f 64 xColumn;.. pMod
42d0: 75 6c 65 2d 3e 78 52 6f 77 69 64 20 3d 20 78 52 ule->xRowid = xR
42e0: 6f 77 69 64 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 owid;.. pModule
42f0: 2d 3e 78 55 70 64 61 74 65 20 3d 20 78 55 70 64 ->xUpdate = xUpd
4300: 61 74 65 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d ate;.. pModule-
4310: 3e 78 42 65 67 69 6e 20 3d 20 78 42 65 67 69 6e >xBegin = xBegin
4320: 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 53 ;.. pModule->xS
4330: 79 6e 63 20 3d 20 78 53 79 6e 63 3b 0d 0a 20 20 ync = xSync;..
4340: 70 4d 6f 64 75 6c 65 2d 3e 78 43 6f 6d 6d 69 74 pModule->xCommit
4350: 20 3d 20 78 43 6f 6d 6d 69 74 3b 0d 0a 20 20 70 = xCommit;.. p
4360: 4d 6f 64 75 6c 65 2d 3e 78 52 6f 6c 6c 62 61 63 Module->xRollbac
4370: 6b 20 3d 20 78 52 6f 6c 6c 62 61 63 6b 3b 0d 0a k = xRollback;..
4380: 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 46 69 6e 64 pModule->xFind
4390: 46 75 6e 63 74 69 6f 6e 20 3d 20 78 46 69 6e 64 Function = xFind
43a0: 46 75 6e 63 74 69 6f 6e 3b 0d 0a 20 20 70 4d 6f Function;.. pMo
43b0: 64 75 6c 65 2d 3e 78 52 65 6e 61 6d 65 20 3d 20 dule->xRename =
43c0: 78 52 65 6e 61 6d 65 3b 0d 0a 20 20 70 4d 6f 64 xRename;.. pMod
43d0: 75 6c 65 2d 3e 78 53 61 76 65 70 6f 69 6e 74 20 ule->xSavepoint
43e0: 3d 20 78 53 61 76 65 70 6f 69 6e 74 3b 0d 0a 20 = xSavepoint;..
43f0: 20 70 4d 6f 64 75 6c 65 2d 3e 78 52 65 6c 65 61 pModule->xRelea
4400: 73 65 20 3d 20 78 52 65 6c 65 61 73 65 3b 0d 0a se = xRelease;..
4410: 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 52 6f 6c 6c pModule->xRoll
4420: 62 61 63 6b 54 6f 20 3d 20 78 52 6f 6c 6c 62 61 backTo = xRollba
4430: 63 6b 54 6f 3b 0d 0a 20 20 72 65 74 75 72 6e 20 ckTo;.. return
4440: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 64 sqlite3_create_d
4450: 69 73 70 6f 73 61 62 6c 65 5f 6d 6f 64 75 6c 65 isposable_module
4460: 28 64 62 2c 20 7a 4e 61 6d 65 2c 20 70 4d 6f 64 (db, zName, pMod
4470: 75 6c 65 2c 20 70 43 6c 69 65 6e 74 44 61 74 61 ule, pClientData
4480: 2c 20 78 44 65 73 74 72 6f 79 4d 6f 64 75 6c 65 , xDestroyModule
4490: 29 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a 0d );..}..#endif...
44a0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
44b0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 62 WINAPI sqlite3_b
44c0: 69 6e 64 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 72 ind_double_inter
44d0: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
44e0: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
44f0: 20 64 6f 75 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b double *val)..{
4500: 0d 0a 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 .. if (!val) re
4510: 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f turn SQLITE_ERRO
4520: 52 3b 0d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c R;.. return sql
4530: 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 ite3_bind_double
4540: 28 73 74 6d 74 2c 69 43 6f 6c 2c 2a 76 61 6c 29 (stmt,iCol,*val)
4550: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
4560: 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 PI int WINAPI sq
4570: 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 34 lite3_bind_int64
4580: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
4590: 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 _stmt *stmt, int
45a0: 20 69 43 6f 6c 2c 20 73 71 6c 69 74 65 5f 69 6e iCol, sqlite_in
45b0: 74 36 34 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 t64 *val)..{..
45c0: 69 66 20 28 21 76 61 6c 29 20 72 65 74 75 72 6e if (!val) return
45d0: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a SQLITE_ERROR;..
45e0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 return sqlite3
45f0: 5f 62 69 6e 64 5f 69 6e 74 36 34 28 73 74 6d 74 _bind_int64(stmt
4600: 2c 69 43 6f 6c 2c 2a 76 61 6c 29 3b 0d 0a 7d 0d ,iCol,*val);..}.
4610: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f ...SQLITE_API co
4620: 6e 73 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 nst char * WINAP
4630: 49 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 I sqlite3_bind_p
4640: 61 72 61 6d 65 74 65 72 5f 6e 61 6d 65 5f 69 6e arameter_name_in
4650: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 terop(sqlite3_st
4660: 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 mt *stmt, int iC
4670: 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a ol, int *plen)..
4680: 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 {.. const char
4690: 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f *pval = sqlite3_
46a0: 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e bind_parameter_n
46b0: 61 6d 65 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b ame(stmt, iCol);
46c0: 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 .. if (plen) *p
46d0: 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 len = pval ? str
46e0: 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a len(pval) : 0;..
46f0: 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a return pval;..
4700: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
4710: 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 57 49 4e const char * WIN
4720: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 API sqlite3_colu
4730: 6d 6e 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 mn_name_interop(
4740: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
4750: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
4760: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
4770: 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 onst char *pval
4780: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
4790: 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 69 43 6f 6c _name(stmt, iCol
47a0: 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 );.. if (plen)
47b0: 2a 70 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 *plen = pval ? s
47c0: 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b trlen(pval) : 0;
47d0: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
47e0: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
47f0: 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 I const void * W
4800: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f INAPI sqlite3_co
4810: 6c 75 6d 6e 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 lumn_name16_inte
4820: 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 rop(sqlite3_stmt
4830: 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c *stmt, int iCol
4840: 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d , int *plen)..{.
4850: 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 . const void *p
4860: 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f val = sqlite3_co
4870: 6c 75 6d 6e 5f 6e 61 6d 65 31 36 28 73 74 6d 74 lumn_name16(stmt
4880: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 , iCol);.. if (
4890: 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 plen) *plen = pv
48a0: 61 6c 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 al ? wcslen((wch
48b0: 61 72 5f 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 ar_t *)pval) * s
48c0: 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 20 3a izeof(wchar_t) :
48d0: 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 0;.. return pv
48e0: 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 al;..}....SQLITE
48f0: 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 _API const char
4900: 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 * WINAPI sqlite3
4910: 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 _column_decltype
4920: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
4930: 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 _stmt *stmt, int
4940: 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e iCol, int *plen
4950: 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 )..{.. const ch
4960: 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 ar *pval = sqlit
4970: 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 e3_column_declty
4980: 70 65 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d pe(stmt, iCol);.
4990: 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c . if (plen) *pl
49a0: 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 6c en = pval ? strl
49b0: 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 en(pval) : 0;..
49c0: 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d return pval;..}
49d0: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 ....SQLITE_API c
49e0: 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 4e 41 onst void * WINA
49f0: 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d PI sqlite3_colum
4a00: 6e 5f 64 65 63 6c 74 79 70 65 31 36 5f 69 6e 74 n_decltype16_int
4a10: 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d erop(sqlite3_stm
4a20: 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f t *stmt, int iCo
4a30: 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b l, int *plen)..{
4a40: 0d 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a .. const void *
4a50: 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 pval = sqlite3_c
4a60: 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 31 36 olumn_decltype16
4a70: 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 (stmt, iCol);..
4a80: 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e if (plen) *plen
4a90: 20 3d 20 70 76 61 6c 20 3f 20 77 63 73 6c 65 6e = pval ? wcslen
4aa0: 28 28 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c ((wchar_t *)pval
4ab0: 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 ) * sizeof(wchar
4ac0: 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 _t) : 0;.. retu
4ad0: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
4ae0: 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 57 QLITE_API void W
4af0: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f INAPI sqlite3_co
4b00: 6c 75 6d 6e 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 lumn_double_inte
4b10: 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 rop(sqlite3_stmt
4b20: 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c *stmt, int iCol
4b30: 2c 20 64 6f 75 62 6c 65 20 2a 76 61 6c 29 0d 0a , double *val)..
4b40: 7b 0d 0a 20 20 69 66 20 28 21 76 61 6c 29 20 72 {.. if (!val) r
4b50: 65 74 75 72 6e 3b 0d 0a 20 20 2a 76 61 6c 20 3d eturn;.. *val =
4b60: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
4b70: 64 6f 75 62 6c 65 28 73 74 6d 74 2c 69 43 6f 6c double(stmt,iCol
4b80: 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f );..}....SQLITE_
4b90: 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 API void WINAPI
4ba0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 sqlite3_column_i
4bb0: 6e 74 36 34 5f 69 6e 74 65 72 6f 70 28 73 71 6c nt64_interop(sql
4bc0: 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c ite3_stmt *stmt,
4bd0: 20 69 6e 74 20 69 43 6f 6c 2c 20 73 71 6c 69 74 int iCol, sqlit
4be0: 65 5f 69 6e 74 36 34 20 2a 76 61 6c 29 0d 0a 7b e_int64 *val)..{
4bf0: 0d 0a 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 .. if (!val) re
4c00: 74 75 72 6e 3b 0d 0a 20 20 2a 76 61 6c 20 3d 20 turn;.. *val =
4c10: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 sqlite3_column_i
4c20: 6e 74 36 34 28 73 74 6d 74 2c 69 43 6f 6c 29 3b nt64(stmt,iCol);
4c30: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
4c40: 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 I void WINAPI sq
4c50: 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 lite3_last_inser
4c60: 74 5f 72 6f 77 69 64 5f 69 6e 74 65 72 6f 70 28 t_rowid_interop(
4c70: 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 73 71 6c sqlite3 *db, sql
4c80: 69 74 65 5f 69 6e 74 36 34 20 2a 72 6f 77 49 64 ite_int64 *rowId
4c90: 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 21 72 6f 77 )..{.. if (!row
4ca0: 49 64 29 20 72 65 74 75 72 6e 3b 0d 0a 20 20 2a Id) return;.. *
4cb0: 72 6f 77 49 64 20 3d 20 73 71 6c 69 74 65 33 5f rowId = sqlite3_
4cc0: 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 last_insert_rowi
4cd0: 64 28 64 62 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c d(db);..}....SQL
4ce0: 49 54 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e ITE_API void WIN
4cf0: 41 50 49 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f API sqlite3_memo
4d00: 72 79 5f 75 73 65 64 5f 69 6e 74 65 72 6f 70 28 ry_used_interop(
4d10: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 6e 42 sqlite_int64 *nB
4d20: 79 74 65 73 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 ytes)..{.. if (
4d30: 21 6e 42 79 74 65 73 29 20 72 65 74 75 72 6e 3b !nBytes) return;
4d40: 0d 0a 20 20 2a 6e 42 79 74 65 73 20 3d 20 73 71 .. *nBytes = sq
4d50: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 lite3_memory_use
4d60: 64 28 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 d();..}....SQLIT
4d70: 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 E_API void WINAP
4d80: 49 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 I sqlite3_memory
4d90: 5f 68 69 67 68 77 61 74 65 72 5f 69 6e 74 65 72 _highwater_inter
4da0: 6f 70 28 69 6e 74 20 72 65 73 65 74 46 6c 61 67 op(int resetFlag
4db0: 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a , sqlite_int64 *
4dc0: 6e 42 79 74 65 73 29 0d 0a 7b 0d 0a 20 20 69 66 nBytes)..{.. if
4dd0: 20 28 21 6e 42 79 74 65 73 29 20 72 65 74 75 72 (!nBytes) retur
4de0: 6e 3b 0d 0a 20 20 2a 6e 42 79 74 65 73 20 3d 20 n;.. *nBytes =
4df0: 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 sqlite3_memory_h
4e00: 69 67 68 77 61 74 65 72 28 72 65 73 65 74 46 6c ighwater(resetFl
4e10: 61 67 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 ag);..}....SQLIT
4e20: 45 5f 41 50 49 20 63 6f 6e 73 74 20 75 6e 73 69 E_API const unsi
4e30: 67 6e 65 64 20 63 68 61 72 20 2a 20 57 49 4e 41 gned char * WINA
4e40: 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d PI sqlite3_colum
4e50: 6e 5f 74 65 78 74 5f 69 6e 74 65 72 6f 70 28 73 n_text_interop(s
4e60: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d qlite3_stmt *stm
4e70: 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 t, int iCol, int
4e80: 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f *plen)..{.. co
4e90: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
4ea0: 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 r *pval = sqlite
4eb0: 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 28 73 74 3_column_text(st
4ec0: 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 mt, iCol);.. if
4ed0: 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 (plen) *plen =
4ee0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 sqlite3_column_b
4ef0: 79 74 65 73 28 73 74 6d 74 2c 20 69 43 6f 6c 29 ytes(stmt, iCol)
4f00: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
4f10: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
4f20: 50 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 PI const void *
4f30: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
4f40: 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 5f 69 6e 74 olumn_text16_int
4f50: 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d erop(sqlite3_stm
4f60: 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f t *stmt, int iCo
4f70: 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b l, int *plen)..{
4f80: 0d 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a .. const void *
4f90: 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 pval = sqlite3_c
4fa0: 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 28 73 74 6d olumn_text16(stm
4fb0: 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 t, iCol);.. if
4fc0: 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 73 (plen) *plen = s
4fd0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 qlite3_column_by
4fe0: 74 65 73 31 36 28 73 74 6d 74 2c 20 69 43 6f 6c tes16(stmt, iCol
4ff0: 29 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 );.. return pva
5000: 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f l;..}....SQLITE_
5010: 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 API int WINAPI s
5020: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 5f qlite3_finalize_
5030: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f interop(sqlite3_
5040: 73 74 6d 74 20 2a 73 74 6d 74 29 0d 0a 7b 0d 0a stmt *stmt)..{..
5050: 20 20 69 6e 74 20 72 65 74 3b 0d 0a 23 69 66 20 int ret;..#if
5060: 21 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 !defined(INTEROP
5070: 5f 4c 45 47 41 43 59 5f 43 4c 4f 53 45 29 20 26 _LEGACY_CLOSE) &
5080: 26 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e & SQLITE_VERSION
5090: 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 37 30 _NUMBER >= 30070
50a0: 31 34 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 14....#if define
50b0: 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 d(INTEROP_DEBUG)
50c0: 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 && (INTEROP_DEB
50d0: 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 UG & INTEROP_DEB
50e0: 55 47 5f 46 49 4e 41 4c 49 5a 45 29 0d 0a 20 20 UG_FINALIZE)..
50f0: 56 64 62 65 20 2a 70 20 3d 20 28 56 64 62 65 20 Vdbe *p = (Vdbe
5100: 2a 29 73 74 6d 74 3b 0d 0a 20 20 73 71 6c 69 74 *)stmt;.. sqlit
5110: 65 33 20 2a 64 62 20 3d 20 70 20 3f 20 70 2d 3e e3 *db = p ? p->
5120: 64 62 20 3a 20 30 3b 0d 0a 20 20 73 71 6c 69 74 db : 0;.. sqlit
5130: 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 e3InteropDebug("
5140: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 sqlite3_finalize
5150: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c _interop(): call
5160: 69 6e 67 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 ing sqlite3_fina
5170: 6c 69 7a 65 28 25 70 2c 20 25 70 29 2e 2e 2e 5c lize(%p, %p)...\
5180: 6e 22 2c 20 64 62 2c 20 73 74 6d 74 29 3b 0d 0a n", db, stmt);..
5190: 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 20 #endif.... ret
51a0: 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 = sqlite3_finali
51b0: 7a 65 28 73 74 6d 74 29 3b 0d 0a 0d 0a 23 69 66 ze(stmt);....#if
51c0: 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 defined(INTEROP
51d0: 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 _DEBUG) && (INTE
51e0: 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 ROP_DEBUG & INTE
51f0: 52 4f 50 5f 44 45 42 55 47 5f 46 49 4e 41 4c 49 ROP_DEBUG_FINALI
5200: 5a 45 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e ZE).. sqlite3In
5210: 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 teropDebug("sqli
5220: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 te3_finalize_int
5230: 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f erop(): sqlite3_
5240: 66 69 6e 61 6c 69 7a 65 28 25 70 2c 20 25 70 29 finalize(%p, %p)
5250: 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 returned %d.\n"
5260: 2c 20 64 62 2c 20 73 74 6d 74 2c 20 72 65 74 29 , db, stmt, ret)
5270: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 ;..#endif.... r
5280: 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 65 6c 73 eturn ret;..#els
5290: 65 0d 0a 20 20 56 64 62 65 20 2a 70 3b 0d 0a 20 e.. Vdbe *p;..
52a0: 20 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 4f 4b ret = SQLITE_OK
52b0: 3b 0d 0a 0d 0a 20 20 70 20 3d 20 28 56 64 62 65 ;.... p = (Vdbe
52c0: 20 2a 29 73 74 6d 74 3b 0d 0a 20 20 69 66 20 28 *)stmt;.. if (
52d0: 70 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 73 71 6c p).. {.. sql
52e0: 69 74 65 33 20 2a 64 62 20 3d 20 70 2d 3e 64 62 ite3 *db = p->db
52f0: 3b 0d 0a 0d 0a 20 20 20 20 69 66 20 28 64 62 20 ;.... if (db
5300: 21 3d 20 4e 55 4c 4c 29 0d 0a 20 20 20 20 20 20 != NULL)..
5310: 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e sqlite3_mutex_en
5320: 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d ter(db->mutex);.
5330: 0a 0d 0a 20 20 20 20 69 66 20 28 28 70 2d 3e 6d ... if ((p->m
5340: 61 67 69 63 20 3d 3d 20 56 44 42 45 5f 4d 41 47 agic == VDBE_MAG
5350: 49 43 5f 44 45 41 44 29 20 26 26 20 28 64 62 20 IC_DEAD) && (db
5360: 3d 3d 20 4e 55 4c 4c 29 29 0d 0a 20 20 20 20 7b == NULL)).. {
5370: 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 44 .. sqlite3D
5380: 62 46 72 65 65 5f 69 6e 74 65 72 6f 70 28 64 62 bFree_interop(db
5390: 2c 20 70 29 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 , p);.. }..
53a0: 20 20 65 6c 73 65 0d 0a 20 20 20 20 7b 0d 0a 20 else.. {..
53b0: 20 20 20 20 20 72 65 74 20 3d 20 73 71 6c 69 74 ret = sqlit
53c0: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 73 74 6d 74 e3_finalize(stmt
53d0: 29 3b 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 );.. }....
53e0: 20 69 66 20 28 64 62 20 21 3d 20 4e 55 4c 4c 29 if (db != NULL)
53f0: 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f .. sqlite3_
5400: 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e mutex_leave(db->
5410: 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a 0d 0a mutex);.. }....
5420: 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 return ret;..#
5430: 65 6e 64 69 66 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 endif..}....SQLI
5440: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
5450: 49 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 I sqlite3_backup
5460: 5f 66 69 6e 69 73 68 5f 69 6e 74 65 72 6f 70 28 _finish_interop(
5470: 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 20 2a sqlite3_backup *
5480: 70 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 p)..{.. int ret
5490: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
54a0: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
54b0: 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 && (INTEROP_DEBU
54c0: 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 G & INTEROP_DEBU
54d0: 47 5f 42 41 43 4b 55 50 5f 46 49 4e 49 53 48 29 G_BACKUP_FINISH)
54e0: 0d 0a 20 20 73 71 6c 69 74 65 33 2a 20 70 44 65 .. sqlite3* pDe
54f0: 73 74 44 62 20 3d 20 70 20 3f 20 70 2d 3e 70 44 stDb = p ? p->pD
5500: 65 73 74 44 62 20 3a 20 30 3b 0d 0a 20 20 73 71 estDb : 0;.. sq
5510: 6c 69 74 65 33 2a 20 70 53 72 63 44 62 20 3d 20 lite3* pSrcDb =
5520: 70 20 3f 20 70 2d 3e 70 53 72 63 44 62 20 3a 20 p ? p->pSrcDb :
5530: 30 3b 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 0;.. sqlite3Int
5540: 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 eropDebug("sqlit
5550: 65 33 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 e3_backup_finish
5560: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c _interop(): call
5570: 69 6e 67 20 73 71 6c 69 74 65 33 5f 62 61 63 6b ing sqlite3_back
5580: 75 70 5f 66 69 6e 69 73 68 28 25 70 2c 20 25 70 up_finish(%p, %p
5590: 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 70 44 65 , %p)...\n", pDe
55a0: 73 74 44 62 2c 20 70 53 72 63 44 62 2c 20 70 29 stDb, pSrcDb, p)
55b0: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 ;..#endif.... r
55c0: 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 62 61 63 et = sqlite3_bac
55d0: 6b 75 70 5f 66 69 6e 69 73 68 28 70 29 3b 0d 0a kup_finish(p);..
55e0: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
55f0: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
5600: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 (INTEROP_DEBUG &
5610: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 42 INTEROP_DEBUG_B
5620: 41 43 4b 55 50 5f 46 49 4e 49 53 48 29 0d 0a 20 ACKUP_FINISH)..
5630: 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 sqlite3InteropD
5640: 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 62 61 ebug("sqlite3_ba
5650: 63 6b 75 70 5f 66 69 6e 69 73 68 5f 69 6e 74 65 ckup_finish_inte
5660: 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 62 rop(): sqlite3_b
5670: 61 63 6b 75 70 5f 66 69 6e 69 73 68 28 25 70 2c ackup_finish(%p,
5680: 20 25 70 2c 20 25 70 29 20 72 65 74 75 72 6e 65 %p, %p) returne
5690: 64 20 25 64 2e 5c 6e 22 2c 20 70 44 65 73 74 44 d %d.\n", pDestD
56a0: 62 2c 20 70 53 72 63 44 62 2c 20 70 2c 20 72 65 b, pSrcDb, p, re
56b0: 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 t);..#endif....
56c0: 20 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d return ret;..}.
56d0: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e ...SQLITE_API in
56e0: 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 t WINAPI sqlite3
56f0: 5f 72 65 73 65 74 5f 69 6e 74 65 72 6f 70 28 73 _reset_interop(s
5700: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d qlite3_stmt *stm
5710: 74 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 t)..{.. int ret
5720: 3b 0d 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 ;..#if !defined(
5730: 49 4e 54 45 52 4f 50 5f 4c 45 47 41 43 59 5f 43 INTEROP_LEGACY_C
5740: 4c 4f 53 45 29 20 26 26 20 53 51 4c 49 54 45 5f LOSE) && SQLITE_
5750: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
5760: 3d 20 33 30 30 37 30 31 34 0d 0a 0d 0a 23 69 66 = 3007014....#if
5770: 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 defined(INTEROP
5780: 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 _DEBUG) && (INTE
5790: 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 ROP_DEBUG & INTE
57a0: 52 4f 50 5f 44 45 42 55 47 5f 52 45 53 45 54 29 ROP_DEBUG_RESET)
57b0: 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 .. sqlite3Inter
57c0: 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 opDebug("sqlite3
57d0: 5f 72 65 73 65 74 5f 69 6e 74 65 72 6f 70 28 29 _reset_interop()
57e0: 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 : calling sqlite
57f0: 33 5f 72 65 73 65 74 28 25 70 29 2e 2e 2e 5c 6e 3_reset(%p)...\n
5800: 22 2c 20 73 74 6d 74 29 3b 0d 0a 23 65 6e 64 69 ", stmt);..#endi
5810: 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c f.... ret = sql
5820: 69 74 65 33 5f 72 65 73 65 74 28 73 74 6d 74 29 ite3_reset(stmt)
5830: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
5840: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
5850: 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 && (INTEROP_DEBU
5860: 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 G & INTEROP_DEBU
5870: 47 5f 52 45 53 45 54 29 0d 0a 20 20 73 71 6c 69 G_RESET).. sqli
5880: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
5890: 22 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f 69 "sqlite3_reset_i
58a0: 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 nterop(): sqlite
58b0: 33 5f 72 65 73 65 74 28 25 70 29 20 72 65 74 75 3_reset(%p) retu
58c0: 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 73 74 6d rned %d.\n", stm
58d0: 74 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 t, ret);..#endif
58e0: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 .... return ret
58f0: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 69 66 20 28 ;..#else.. if (
5900: 73 74 6d 74 20 26 26 20 28 28 56 64 62 65 20 2a stmt && ((Vdbe *
5910: 29 73 74 6d 74 29 2d 3e 6d 61 67 69 63 20 3d 3d )stmt)->magic ==
5920: 20 56 44 42 45 5f 4d 41 47 49 43 5f 44 45 41 44 VDBE_MAGIC_DEAD
5930: 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f ) return SQLITE_
5940: 53 43 48 45 4d 41 3b 0d 0a 20 20 72 65 74 20 3d SCHEMA;.. ret =
5950: 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 28 73 sqlite3_reset(s
5960: 74 6d 74 29 3b 0d 0a 20 20 72 65 74 75 72 6e 20 tmt);.. return
5970: 72 65 74 3b 0d 0a 23 65 6e 64 69 66 0d 0a 7d 0d ret;..#endif..}.
5980: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e ...SQLITE_API in
5990: 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 t WINAPI sqlite3
59a0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
59b0: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
59c0: 20 2a 70 73 71 6c 2c 20 63 6f 6e 73 74 20 63 68 *psql, const ch
59d0: 61 72 20 2a 7a 46 75 6e 63 74 69 6f 6e 4e 61 6d ar *zFunctionNam
59e0: 65 2c 20 69 6e 74 20 6e 41 72 67 2c 20 69 6e 74 e, int nArg, int
59f0: 20 65 54 65 78 74 52 65 70 2c 20 76 6f 69 64 20 eTextRep, void
5a00: 2a 70 76 55 73 65 72 2c 20 53 51 4c 49 54 45 55 *pvUser, SQLITEU
5a10: 53 45 52 46 55 4e 43 20 66 75 6e 63 2c 20 53 51 SERFUNC func, SQ
5a20: 4c 49 54 45 55 53 45 52 46 55 4e 43 20 66 75 6e LITEUSERFUNC fun
5a30: 63 73 74 65 70 2c 20 53 51 4c 49 54 45 46 55 4e cstep, SQLITEFUN
5a40: 43 46 49 4e 41 4c 20 66 75 6e 63 66 69 6e 61 6c CFINAL funcfinal
5a50: 2c 20 69 6e 74 20 6e 65 65 64 43 6f 6c 6c 53 65 , int needCollSe
5a60: 71 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 6e 3b 0d q)..{.. int n;.
5a70: 0a 0d 0a 20 20 69 66 20 28 65 54 65 78 74 52 65 ... if (eTextRe
5a80: 70 20 3d 3d 20 53 51 4c 49 54 45 5f 55 54 46 31 p == SQLITE_UTF1
5a90: 36 29 0d 0a 20 20 20 20 65 54 65 78 74 52 65 70 6).. eTextRep
5aa0: 20 3d 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4e = SQLITE_UTF16N
5ab0: 41 54 49 56 45 3b 0d 0a 0d 0a 20 20 6e 20 3d 20 ATIVE;.... n =
5ac0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
5ad0: 75 6e 63 74 69 6f 6e 28 70 73 71 6c 2c 20 7a 46 unction(psql, zF
5ae0: 75 6e 63 74 69 6f 6e 4e 61 6d 65 2c 20 6e 41 72 unctionName, nAr
5af0: 67 2c 20 65 54 65 78 74 52 65 70 2c 20 70 76 55 g, eTextRep, pvU
5b00: 73 65 72 2c 20 66 75 6e 63 2c 20 66 75 6e 63 73 ser, func, funcs
5b10: 74 65 70 2c 20 66 75 6e 63 66 69 6e 61 6c 29 3b tep, funcfinal);
5b20: 0d 0a 20 20 69 66 20 28 6e 20 3d 3d 20 53 51 4c .. if (n == SQL
5b30: 49 54 45 5f 4f 4b 29 0d 0a 20 20 7b 0d 0a 20 20 ITE_OK).. {..
5b40: 20 20 69 66 20 28 6e 65 65 64 43 6f 6c 6c 53 65 if (needCollSe
5b50: 71 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 q).. {..
5b60: 20 46 75 6e 63 44 65 66 20 2a 70 46 75 6e 63 20 FuncDef *pFunc
5b70: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e = sqlite3FindFun
5b80: 63 74 69 6f 6e 28 70 73 71 6c 2c 20 7a 46 75 6e ction(psql, zFun
5b90: 63 74 69 6f 6e 4e 61 6d 65 2c 20 73 74 72 6c 65 ctionName, strle
5ba0: 6e 28 7a 46 75 6e 63 74 69 6f 6e 4e 61 6d 65 29 n(zFunctionName)
5bb0: 2c 20 6e 41 72 67 2c 20 65 54 65 78 74 52 65 70 , nArg, eTextRep
5bc0: 2c 20 30 29 3b 0d 0a 20 20 20 20 20 20 69 66 28 , 0);.. if(
5bd0: 20 70 46 75 6e 63 20 29 0d 0a 20 20 20 20 20 20 pFunc )..
5be0: 7b 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 {..#if SQLITE_VE
5bf0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 RSION_NUMBER >=
5c00: 33 30 30 38 30 30 31 0d 0a 20 20 20 20 20 20 20 3008001..
5c10: 20 70 46 75 6e 63 2d 3e 66 75 6e 63 46 6c 61 67 pFunc->funcFlag
5c20: 73 20 7c 3d 20 53 51 4c 49 54 45 5f 46 55 4e 43 s |= SQLITE_FUNC
5c30: 5f 4e 45 45 44 43 4f 4c 4c 3b 0d 0a 23 65 6c 73 _NEEDCOLL;..#els
5c40: 65 0d 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 e.. pFunc
5c50: 2d 3e 66 6c 61 67 73 20 7c 3d 20 53 51 4c 49 54 ->flags |= SQLIT
5c60: 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f 4c 4c 3b E_FUNC_NEEDCOLL;
5c70: 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 20 20 20 20 ..#endif..
5c80: 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d }.. }.. }...
5c90: 0a 20 20 72 65 74 75 72 6e 20 6e 3b 0d 0a 7d 0d . return n;..}.
5ca0: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f ...SQLITE_API vo
5cb0: 69 64 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 id WINAPI sqlite
5cc0: 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 5f 69 3_value_double_i
5cd0: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 76 nterop(sqlite3_v
5ce0: 61 6c 75 65 20 2a 70 76 61 6c 2c 20 64 6f 75 62 alue *pval, doub
5cf0: 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 le *val)..{.. i
5d00: 66 20 28 21 76 61 6c 29 20 72 65 74 75 72 6e 3b f (!val) return;
5d10: 0d 0a 20 20 2a 76 61 6c 20 3d 20 73 71 6c 69 74 .. *val = sqlit
5d20: 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 e3_value_double(
5d30: 70 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval);..}....SQL
5d40: 49 54 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e ITE_API void WIN
5d50: 41 50 49 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 API sqlite3_valu
5d60: 65 5f 69 6e 74 36 34 5f 69 6e 74 65 72 6f 70 28 e_int64_interop(
5d70: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 sqlite3_value *p
5d80: 76 61 6c 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 val, sqlite_int6
5d90: 34 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 4 *val)..{.. if
5da0: 20 28 21 76 61 6c 29 20 72 65 74 75 72 6e 3b 0d (!val) return;.
5db0: 0a 20 20 2a 76 61 6c 20 3d 20 73 71 6c 69 74 65 . *val = sqlite
5dc0: 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 70 76 3_value_int64(pv
5dd0: 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 al);..}....SQLIT
5de0: 45 5f 41 50 49 20 63 6f 6e 73 74 20 75 6e 73 69 E_API const unsi
5df0: 67 6e 65 64 20 63 68 61 72 20 2a 20 57 49 4e 41 gned char * WINA
5e00: 50 49 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 PI sqlite3_value
5e10: 5f 74 65 78 74 5f 69 6e 74 65 72 6f 70 28 73 71 _text_interop(sq
5e20: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 76 61 6c lite3_value *val
5e30: 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d , int *plen)..{.
5e40: 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 . const unsigne
5e50: 64 20 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 d char *pval = s
5e60: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
5e70: 74 28 76 61 6c 29 3b 0d 0a 20 20 69 66 20 28 70 t(val);.. if (p
5e80: 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 73 71 6c len) *plen = sql
5e90: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 ite3_value_bytes
5ea0: 28 76 61 6c 29 3b 0d 0a 20 20 72 65 74 75 72 6e (val);.. return
5eb0: 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval;..}....SQL
5ec0: 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f ITE_API const vo
5ed0: 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 id * WINAPI sqli
5ee0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 te3_value_text16
5ef0: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
5f00: 5f 76 61 6c 75 65 20 2a 76 61 6c 2c 20 69 6e 74 _value *val, int
5f10: 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f *plen)..{.. co
5f20: 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 3d nst void *pval =
5f30: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
5f40: 65 78 74 31 36 28 76 61 6c 29 3b 0d 0a 20 20 69 ext16(val);.. i
5f50: 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d f (plen) *plen =
5f60: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 sqlite3_value_b
5f70: 79 74 65 73 31 36 28 76 61 6c 29 3b 0d 0a 20 20 ytes16(val);..
5f80: 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d return pval;..}.
5f90: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f ...SQLITE_API vo
5fa0: 69 64 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 id WINAPI sqlite
5fb0: 33 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 5f 3_result_double_
5fc0: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f interop(sqlite3_
5fd0: 63 6f 6e 74 65 78 74 20 2a 70 63 74 78 2c 20 64 context *pctx, d
5fe0: 6f 75 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a ouble *val)..{..
5ff0: 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 74 75 if (!val) retu
6000: 72 6e 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f 72 rn;.. sqlite3_r
6010: 65 73 75 6c 74 5f 64 6f 75 62 6c 65 28 70 63 74 esult_double(pct
6020: 78 2c 20 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a x, *val);..}....
6030: 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 SQLITE_API void
6040: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 72 WINAPI sqlite3_r
6050: 65 73 75 6c 74 5f 69 6e 74 36 34 5f 69 6e 74 65 esult_int64_inte
6060: 72 6f 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 rop(sqlite3_cont
6070: 65 78 74 20 2a 70 63 74 78 2c 20 73 71 6c 69 74 ext *pctx, sqlit
6080: 65 5f 69 6e 74 36 34 20 2a 76 61 6c 29 0d 0a 7b e_int64 *val)..{
6090: 0d 0a 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 .. if (!val) re
60a0: 74 75 72 6e 3b 0d 0a 20 20 73 71 6c 69 74 65 33 turn;.. sqlite3
60b0: 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 70 63 _result_int64(pc
60c0: 74 78 2c 20 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d tx, *val);..}...
60d0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
60e0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
60f0: 6f 6e 74 65 78 74 5f 63 6f 6c 6c 63 6f 6d 70 61 ontext_collcompa
6100: 72 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 re_interop(sqlit
6110: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c e3_context *ctx,
6120: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 31 2c const void *p1,
6130: 20 69 6e 74 20 70 31 6c 65 6e 2c 20 63 6f 6e 73 int p1len, cons
6140: 74 20 76 6f 69 64 20 2a 70 32 2c 20 69 6e 74 20 t void *p2, int
6150: 70 32 6c 65 6e 29 0d 0a 7b 0d 0a 23 69 66 20 53 p2len)..{..#if S
6160: 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 QLITE_VERSION_NU
6170: 4d 42 45 52 20 3e 3d 20 33 30 30 38 30 30 37 0d MBER >= 3008007.
6180: 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c . CollSeq *pCol
6190: 6c 20 3d 20 63 74 78 20 3f 20 73 71 6c 69 74 65 l = ctx ? sqlite
61a0: 33 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 3GetFuncCollSeq(
61b0: 63 74 78 29 20 3a 20 30 3b 0d 0a 23 65 6c 73 65 ctx) : 0;..#else
61c0: 0d 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f .. CollSeq *pCo
61d0: 6c 6c 20 3d 20 63 74 78 20 3f 20 63 74 78 2d 3e ll = ctx ? ctx->
61e0: 70 43 6f 6c 6c 20 3a 20 30 3b 0d 0a 23 65 6e 64 pColl : 0;..#end
61f0: 69 66 0d 0a 20 20 69 66 20 28 21 63 74 78 20 7c if.. if (!ctx |
6200: 7c 20 21 63 74 78 2d 3e 70 46 75 6e 63 29 20 72 | !ctx->pFunc) r
6210: 65 74 75 72 6e 20 34 3b 20 2f 2a 20 45 52 52 4f eturn 4; /* ERRO
6220: 52 20 2a 2f 0d 0a 20 20 69 66 20 28 21 70 43 6f R */.. if (!pCo
6230: 6c 6c 20 7c 7c 20 21 70 43 6f 6c 6c 2d 3e 78 43 ll || !pColl->xC
6240: 6d 70 29 20 72 65 74 75 72 6e 20 33 3b 20 2f 2a mp) return 3; /*
6250: 20 45 52 52 4f 52 20 2a 2f 0d 0a 23 69 66 20 53 ERROR */..#if S
6260: 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 QLITE_VERSION_NU
6270: 4d 42 45 52 20 3e 3d 20 33 30 30 38 30 30 31 0d MBER >= 3008001.
6280: 0a 20 20 69 66 20 28 28 63 74 78 2d 3e 70 46 75 . if ((ctx->pFu
6290: 6e 63 2d 3e 66 75 6e 63 46 6c 61 67 73 20 26 20 nc->funcFlags &
62a0: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 SQLITE_FUNC_NEED
62b0: 43 4f 4c 4c 29 20 3d 3d 20 30 29 20 72 65 74 75 COLL) == 0) retu
62c0: 72 6e 20 32 3b 20 2f 2a 20 45 52 52 4f 52 20 2a rn 2; /* ERROR *
62d0: 2f 0d 0a 23 65 6c 73 65 0d 0a 20 20 69 66 20 28 /..#else.. if (
62e0: 28 63 74 78 2d 3e 70 46 75 6e 63 2d 3e 66 6c 61 (ctx->pFunc->fla
62f0: 67 73 20 26 20 53 51 4c 49 54 45 5f 46 55 4e 43 gs & SQLITE_FUNC
6300: 5f 4e 45 45 44 43 4f 4c 4c 29 20 3d 3d 20 30 29 _NEEDCOLL) == 0)
6310: 20 72 65 74 75 72 6e 20 32 3b 20 2f 2a 20 45 52 return 2; /* ER
6320: 52 4f 52 20 2a 2f 0d 0a 23 65 6e 64 69 66 0d 0a ROR */..#endif..
6330: 20 20 72 65 74 75 72 6e 20 70 43 6f 6c 6c 2d 3e return pColl->
6340: 78 43 6d 70 28 70 43 6f 6c 6c 2d 3e 70 55 73 65 xCmp(pColl->pUse
6350: 72 2c 20 70 31 6c 65 6e 2c 20 70 31 2c 20 70 32 r, p1len, p1, p2
6360: 6c 65 6e 2c 20 70 32 29 3b 0d 0a 7d 0d 0a 0d 0a len, p2);..}....
6370: 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 SQLITE_API const
6380: 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 char * WINAPI s
6390: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 63 qlite3_context_c
63a0: 6f 6c 6c 73 65 71 5f 69 6e 74 65 72 6f 70 28 73 ollseq_interop(s
63b0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
63c0: 63 74 78 2c 20 69 6e 74 20 2a 70 74 79 70 65 2c ctx, int *ptype,
63d0: 20 69 6e 74 20 2a 65 6e 63 2c 20 69 6e 74 20 2a int *enc, int *
63e0: 70 6c 65 6e 29 0d 0a 7b 0d 0a 23 69 66 20 53 51 plen)..{..#if SQ
63f0: 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d LITE_VERSION_NUM
6400: 42 45 52 20 3e 3d 20 33 30 30 38 30 30 37 0d 0a BER >= 3008007..
6410: 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c CollSeq *pColl
6420: 20 3d 20 63 74 78 20 3f 20 73 71 6c 69 74 65 33 = ctx ? sqlite3
6430: 47 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 GetFuncCollSeq(c
6440: 74 78 29 20 3a 20 30 3b 0d 0a 23 65 6c 73 65 0d tx) : 0;..#else.
6450: 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c . CollSeq *pCol
6460: 6c 20 3d 20 63 74 78 20 3f 20 63 74 78 2d 3e 70 l = ctx ? ctx->p
6470: 43 6f 6c 6c 20 3a 20 30 3b 0d 0a 23 65 6e 64 69 Coll : 0;..#endi
6480: 66 0d 0a 20 20 69 66 20 28 70 74 79 70 65 29 20 f.. if (ptype)
6490: 2a 70 74 79 70 65 20 3d 20 30 3b 0d 0a 20 20 69 *ptype = 0;.. i
64a0: 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d f (plen) *plen =
64b0: 20 30 3b 0d 0a 20 20 69 66 20 28 65 6e 63 29 20 0;.. if (enc)
64c0: 2a 65 6e 63 20 3d 20 30 3b 0d 0a 0d 0a 20 20 69 *enc = 0;.... i
64d0: 66 20 28 21 63 74 78 20 7c 7c 20 21 63 74 78 2d f (!ctx || !ctx-
64e0: 3e 70 46 75 6e 63 29 20 72 65 74 75 72 6e 20 4e >pFunc) return N
64f0: 55 4c 4c 3b 0d 0a 23 69 66 20 53 51 4c 49 54 45 ULL;..#if SQLITE
6500: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
6510: 3e 3d 20 33 30 30 38 30 30 31 0d 0a 20 20 69 66 >= 3008001.. if
6520: 20 28 28 63 74 78 2d 3e 70 46 75 6e 63 2d 3e 66 ((ctx->pFunc->f
6530: 75 6e 63 46 6c 61 67 73 20 26 20 53 51 4c 49 54 uncFlags & SQLIT
6540: 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f 4c 4c 29 E_FUNC_NEEDCOLL)
6550: 20 3d 3d 20 30 29 20 72 65 74 75 72 6e 20 4e 55 == 0) return NU
6560: 4c 4c 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 69 66 LL;..#else.. if
6570: 20 28 28 63 74 78 2d 3e 70 46 75 6e 63 2d 3e 66 ((ctx->pFunc->f
6580: 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 46 55 lags & SQLITE_FU
6590: 4e 43 5f 4e 45 45 44 43 4f 4c 4c 29 20 3d 3d 20 NC_NEEDCOLL) ==
65a0: 30 29 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0d 0) return NULL;.
65b0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 69 66 20 .#endif.... if
65c0: 28 70 43 6f 6c 6c 29 0d 0a 20 20 7b 0d 0a 20 20 (pColl).. {..
65d0: 20 20 69 66 20 28 65 6e 63 29 20 2a 65 6e 63 20 if (enc) *enc
65e0: 3d 20 70 43 6f 6c 6c 2d 3e 65 6e 63 3b 0d 0a 23 = pColl->enc;..#
65f0: 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f if SQLITE_VERSIO
6600: 4e 5f 4e 55 4d 42 45 52 20 3c 20 33 30 30 37 30 N_NUMBER < 30070
6610: 31 30 0d 0a 20 20 20 20 69 66 20 28 70 74 79 70 10.. if (ptyp
6620: 65 29 20 2a 70 74 79 70 65 20 3d 20 70 43 6f 6c e) *ptype = pCol
6630: 6c 2d 3e 74 79 70 65 3b 0d 0a 23 65 6e 64 69 66 l->type;..#endif
6640: 0d 0a 20 20 20 20 69 66 20 28 70 6c 65 6e 29 20 .. if (plen)
6650: 2a 70 6c 65 6e 20 3d 20 70 43 6f 6c 6c 2d 3e 7a *plen = pColl->z
6660: 4e 61 6d 65 20 3f 20 73 74 72 6c 65 6e 28 70 43 Name ? strlen(pC
6670: 6f 6c 6c 2d 3e 7a 4e 61 6d 65 29 20 3a 20 30 3b oll->zName) : 0;
6680: 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 70 .... return p
6690: 43 6f 6c 6c 2d 3e 7a 4e 61 6d 65 3b 0d 0a 20 20 Coll->zName;..
66a0: 7d 0d 0a 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c }.. return NULL
66b0: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
66c0: 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 PI const char *
66d0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
66e0: 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e olumn_database_n
66f0: 61 6d 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 ame_interop(sqli
6700: 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 te3_stmt *stmt,
6710: 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 int iCol, int *p
6720: 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 len)..{.. const
6730: 20 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 char *pval = sq
6740: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 lite3_column_dat
6750: 61 62 61 73 65 5f 6e 61 6d 65 28 73 74 6d 74 2c abase_name(stmt,
6760: 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 iCol);.. if (p
6770: 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 61 len) *plen = pva
6780: 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c 29 l ? strlen(pval)
6790: 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 : 0;.. return
67a0: 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 pval;..}....SQLI
67b0: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f 69 TE_API const voi
67c0: 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 d * WINAPI sqlit
67d0: 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 e3_column_databa
67e0: 73 65 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f se_name16_intero
67f0: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
6800: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
6810: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
6820: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 const void *pva
6830: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
6840: 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 mn_database_name
6850: 31 36 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 16(stmt, iCol);.
6860: 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c . if (plen) *pl
6870: 65 6e 20 3d 20 70 76 61 6c 20 3f 20 77 63 73 6c en = pval ? wcsl
6880: 65 6e 28 28 77 63 68 61 72 5f 74 20 2a 29 70 76 en((wchar_t *)pv
6890: 61 6c 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 al) * sizeof(wch
68a0: 61 72 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 ar_t) : 0;.. re
68b0: 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d turn pval;..}...
68c0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 .SQLITE_API cons
68d0: 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 t char * WINAPI
68e0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
68f0: 61 62 6c 65 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f able_name_intero
6900: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
6910: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
6920: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
6930: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 const char *pva
6940: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
6950: 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d 65 28 73 74 mn_table_name(st
6960: 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 mt, iCol);.. if
6970: 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 (plen) *plen =
6980: 70 76 61 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 pval ? strlen(pv
6990: 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 al) : 0;.. retu
69a0: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
69b0: 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 QLITE_API const
69c0: 76 6f 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 void * WINAPI sq
69d0: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 lite3_column_tab
69e0: 6c 65 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f le_name16_intero
69f0: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
6a00: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
6a10: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
6a20: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 const void *pva
6a30: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
6a40: 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d 65 31 36 28 mn_table_name16(
6a50: 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 stmt, iCol);..
6a60: 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 if (plen) *plen
6a70: 3d 20 70 76 61 6c 20 3f 20 77 63 73 6c 65 6e 28 = pval ? wcslen(
6a80: 28 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c 29 (wchar_t *)pval)
6a90: 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f * sizeof(wchar_
6aa0: 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 t) : 0;.. retur
6ab0: 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 n pval;..}....SQ
6ac0: 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 LITE_API const c
6ad0: 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c har * WINAPI sql
6ae0: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 ite3_column_orig
6af0: 69 6e 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 in_name_interop(
6b00: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
6b10: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
6b20: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
6b30: 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 onst char *pval
6b40: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
6b50: 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 28 73 74 6d _origin_name(stm
6b60: 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 t, iCol);.. if
6b70: 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 (plen) *plen = p
6b80: 76 61 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 val ? strlen(pva
6b90: 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 l) : 0;.. retur
6ba0: 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 n pval;..}....SQ
6bb0: 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 LITE_API const v
6bc0: 6f 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c oid * WINAPI sql
6bd0: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 ite3_column_orig
6be0: 69 6e 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f in_name16_intero
6bf0: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
6c00: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
6c10: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
6c20: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 const void *pva
6c30: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
6c40: 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 31 36 mn_origin_name16
6c50: 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 (stmt, iCol);..
6c60: 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e if (plen) *plen
6c70: 20 3d 20 70 76 61 6c 20 3f 20 77 63 73 6c 65 6e = pval ? wcslen
6c80: 28 28 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c ((wchar_t *)pval
6c90: 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 ) * sizeof(wchar
6ca0: 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 _t) : 0;.. retu
6cb0: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
6cc0: 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 QLITE_API int WI
6cd0: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 74 61 62 NAPI sqlite3_tab
6ce0: 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 le_column_metada
6cf0: 74 61 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 ta_interop(sqlit
6d00: 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 e3 *db, const ch
6d10: 61 72 20 2a 7a 44 62 4e 61 6d 65 2c 20 63 6f 6e ar *zDbName, con
6d20: 73 74 20 63 68 61 72 20 2a 7a 54 61 62 6c 65 4e st char *zTableN
6d30: 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 ame, const char
6d40: 2a 7a 43 6f 6c 75 6d 6e 4e 61 6d 65 2c 20 63 68 *zColumnName, ch
6d50: 61 72 20 2a 2a 70 7a 44 61 74 61 54 79 70 65 2c ar **pzDataType,
6d60: 20 63 68 61 72 20 2a 2a 70 7a 43 6f 6c 6c 53 65 char **pzCollSe
6d70: 71 2c 20 69 6e 74 20 2a 70 4e 6f 74 4e 75 6c 6c q, int *pNotNull
6d80: 2c 20 69 6e 74 20 2a 70 50 72 69 6d 61 72 79 4b , int *pPrimaryK
6d90: 65 79 2c 20 69 6e 74 20 2a 70 41 75 74 6f 69 6e ey, int *pAutoin
6da0: 63 2c 20 69 6e 74 20 2a 70 64 74 4c 65 6e 2c 20 c, int *pdtLen,
6db0: 69 6e 74 20 2a 70 63 73 4c 65 6e 29 0d 0a 7b 0d int *pcsLen)..{.
6dc0: 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 20 6e . int n;.... n
6dd0: 20 3d 20 73 71 6c 69 74 65 33 5f 74 61 62 6c 65 = sqlite3_table
6de0: 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 61 _column_metadata
6df0: 28 64 62 2c 20 7a 44 62 4e 61 6d 65 2c 20 7a 54 (db, zDbName, zT
6e00: 61 62 6c 65 4e 61 6d 65 2c 20 7a 43 6f 6c 75 6d ableName, zColum
6e10: 6e 4e 61 6d 65 2c 20 70 7a 44 61 74 61 54 79 70 nName, pzDataTyp
6e20: 65 2c 20 70 7a 43 6f 6c 6c 53 65 71 2c 20 70 4e e, pzCollSeq, pN
6e30: 6f 74 4e 75 6c 6c 2c 20 70 50 72 69 6d 61 72 79 otNull, pPrimary
6e40: 4b 65 79 2c 20 70 41 75 74 6f 69 6e 63 29 3b 0d Key, pAutoinc);.
6e50: 0a 0d 0a 20 20 69 66 20 28 70 64 74 4c 65 6e 29 ... if (pdtLen)
6e60: 20 2a 70 64 74 4c 65 6e 20 3d 20 28 70 7a 44 61 *pdtLen = (pzDa
6e70: 74 61 54 79 70 65 20 26 26 20 2a 70 7a 44 61 74 taType && *pzDat
6e80: 61 54 79 70 65 29 20 3f 20 73 74 72 6c 65 6e 28 aType) ? strlen(
6e90: 2a 70 7a 44 61 74 61 54 79 70 65 29 20 3a 20 30 *pzDataType) : 0
6ea0: 3b 0d 0a 20 20 69 66 20 28 70 63 73 4c 65 6e 29 ;.. if (pcsLen)
6eb0: 20 2a 70 63 73 4c 65 6e 20 3d 20 28 70 7a 43 6f *pcsLen = (pzCo
6ec0: 6c 6c 53 65 71 20 26 26 20 2a 70 7a 43 6f 6c 6c llSeq && *pzColl
6ed0: 53 65 71 29 20 3f 20 73 74 72 6c 65 6e 28 2a 70 Seq) ? strlen(*p
6ee0: 7a 43 6f 6c 6c 53 65 71 29 20 3a 20 30 3b 0d 0a zCollSeq) : 0;..
6ef0: 0d 0a 20 20 72 65 74 75 72 6e 20 6e 3b 0d 0a 7d .. return n;..}
6f00: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 ....SQLITE_API i
6f10: 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 nt WINAPI sqlite
6f20: 33 5f 69 6e 64 65 78 5f 63 6f 6c 75 6d 6e 5f 69 3_index_column_i
6f30: 6e 66 6f 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 nfo_interop(sqli
6f40: 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 te3 *db, const c
6f50: 68 61 72 20 2a 7a 44 62 2c 20 63 6f 6e 73 74 20 har *zDb, const
6f60: 63 68 61 72 20 2a 7a 49 6e 64 65 78 4e 61 6d 65 char *zIndexName
6f70: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 , const char *zC
6f80: 6f 6c 75 6d 6e 4e 61 6d 65 2c 20 69 6e 74 20 2a olumnName, int *
6f90: 73 6f 72 74 4f 72 64 65 72 2c 20 69 6e 74 20 2a sortOrder, int *
6fa0: 6f 6e 45 72 72 6f 72 2c 20 63 68 61 72 20 2a 2a onError, char **
6fb0: 70 7a 43 6f 6c 6c 2c 20 69 6e 74 20 2a 70 6c 65 pzColl, int *ple
6fc0: 6e 29 0d 0a 7b 0d 0a 20 20 49 6e 64 65 78 20 2a n)..{.. Index *
6fd0: 70 49 64 78 3b 0d 0a 20 20 54 61 62 6c 65 20 2a pIdx;.. Table *
6fe0: 70 54 61 62 3b 0d 0a 20 20 69 6e 74 20 6e 3b 0d pTab;.. int n;.
6ff0: 0a 0d 0a 20 20 69 66 20 28 21 64 62 29 20 72 65 ... if (!db) re
7000: 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f turn SQLITE_ERRO
7010: 52 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 R;.. sqlite3_mu
7020: 74 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 tex_enter(db->mu
7030: 74 65 78 29 3b 0d 0a 20 20 73 71 6c 69 74 65 33 tex);.. sqlite3
7040: 42 74 72 65 65 45 6e 74 65 72 41 6c 6c 28 64 62 BtreeEnterAll(db
7050: 29 3b 0d 0a 0d 0a 20 20 70 49 64 78 20 3d 20 73 );.... pIdx = s
7060: 71 6c 69 74 65 33 46 69 6e 64 49 6e 64 65 78 28 qlite3FindIndex(
7070: 64 62 2c 20 7a 49 6e 64 65 78 4e 61 6d 65 2c 20 db, zIndexName,
7080: 7a 44 62 29 3b 0d 0a 0d 0a 20 20 73 71 6c 69 74 zDb);.... sqlit
7090: 65 33 42 74 72 65 65 4c 65 61 76 65 41 6c 6c 28 e3BtreeLeaveAll(
70a0: 64 62 29 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f db);.. sqlite3_
70b0: 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e mutex_leave(db->
70c0: 6d 75 74 65 78 29 3b 0d 0a 0d 0a 20 20 69 66 20 mutex);.... if
70d0: 28 21 70 49 64 78 29 20 72 65 74 75 72 6e 20 53 (!pIdx) return S
70e0: 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 0d 0a QLITE_ERROR;....
70f0: 20 20 70 54 61 62 20 3d 20 70 49 64 78 2d 3e 70 pTab = pIdx->p
7100: 54 61 62 6c 65 3b 0d 0a 20 20 66 6f 72 20 28 6e Table;.. for (n
7110: 20 3d 20 30 3b 20 6e 20 3c 20 70 49 64 78 2d 3e = 0; n < pIdx->
7120: 6e 43 6f 6c 75 6d 6e 3b 20 6e 2b 2b 29 0d 0a 20 nColumn; n++)..
7130: 20 7b 0d 0a 20 20 20 20 69 6e 74 20 63 6e 75 6d {.. int cnum
7140: 20 3d 20 70 49 64 78 2d 3e 61 69 43 6f 6c 75 6d = pIdx->aiColum
7150: 6e 5b 6e 5d 3b 0d 0a 20 20 20 20 69 66 20 28 73 n[n];.. if (s
7160: 71 6c 69 74 65 33 53 74 72 49 43 6d 70 28 70 54 qlite3StrICmp(pT
7170: 61 62 2d 3e 61 43 6f 6c 5b 63 6e 75 6d 5d 2e 7a ab->aCol[cnum].z
7180: 4e 61 6d 65 2c 20 7a 43 6f 6c 75 6d 6e 4e 61 6d Name, zColumnNam
7190: 65 29 20 3d 3d 20 30 29 0d 0a 20 20 20 20 7b 0d e) == 0).. {.
71a0: 0a 20 20 20 20 20 20 69 66 20 28 20 73 6f 72 74 . if ( sort
71b0: 4f 72 64 65 72 20 29 20 2a 73 6f 72 74 4f 72 64 Order ) *sortOrd
71c0: 65 72 20 3d 20 70 49 64 78 2d 3e 61 53 6f 72 74 er = pIdx->aSort
71d0: 4f 72 64 65 72 5b 6e 5d 3b 0d 0a 20 20 20 20 20 Order[n];..
71e0: 20 69 66 20 28 20 70 7a 43 6f 6c 6c 20 29 20 2a if ( pzColl ) *
71f0: 70 7a 43 6f 6c 6c 20 3d 20 70 49 64 78 2d 3e 61 pzColl = pIdx->a
7200: 7a 43 6f 6c 6c 5b 6e 5d 3b 0d 0a 20 20 20 20 20 zColl[n];..
7210: 20 69 66 20 28 20 70 6c 65 6e 20 29 20 2a 70 6c if ( plen ) *pl
7220: 65 6e 20 3d 20 73 74 72 6c 65 6e 28 2a 70 7a 43 en = strlen(*pzC
7230: 6f 6c 6c 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 oll);.. if
7240: 28 20 6f 6e 45 72 72 6f 72 20 29 20 2a 6f 6e 45 ( onError ) *onE
7250: 72 72 6f 72 20 3d 20 70 49 64 78 2d 3e 6f 6e 45 rror = pIdx->onE
7260: 72 72 6f 72 3b 0d 0a 0d 0a 20 20 20 20 20 20 72 rror;.... r
7270: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b eturn SQLITE_OK;
7280: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 20 20 .. }.. }..
7290: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 return SQLITE_ER
72a0: 52 4f 52 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 ROR;..}....SQLIT
72b0: 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 E_API int WINAPI
72c0: 20 73 71 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 sqlite3_table_c
72d0: 75 72 73 6f 72 5f 69 6e 74 65 72 6f 70 28 73 71 ursor_interop(sq
72e0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 73 74 6d lite3_stmt *pstm
72f0: 74 2c 20 69 6e 74 20 69 44 62 2c 20 50 67 6e 6f t, int iDb, Pgno
7300: 20 74 61 62 6c 65 52 6f 6f 74 50 61 67 65 29 0d tableRootPage).
7310: 0a 7b 0d 0a 20 20 56 64 62 65 20 2a 70 20 3d 20 .{.. Vdbe *p =
7320: 28 56 64 62 65 20 2a 29 70 73 74 6d 74 3b 0d 0a (Vdbe *)pstmt;..
7330: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 sqlite3 *db =
7340: 28 70 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 4e 55 (p == NULL) ? NU
7350: 4c 4c 20 3a 20 70 2d 3e 64 62 3b 0d 0a 20 20 69 LL : p->db;.. i
7360: 6e 74 20 6e 3b 0d 0a 20 20 69 6e 74 20 72 65 74 nt n;.. int ret
7370: 20 3d 20 2d 31 3b 20 2f 2a 20 4e 4f 54 20 46 4f = -1; /* NOT FO
7380: 55 4e 44 20 2a 2f 0d 0a 0d 0a 20 20 69 66 20 28 UND */.... if (
7390: 21 70 20 7c 7c 20 21 64 62 29 20 72 65 74 75 72 !p || !db) retur
73a0: 6e 20 72 65 74 3b 0d 0a 20 20 73 71 6c 69 74 65 n ret;.. sqlite
73b0: 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 3_mutex_enter(db
73c0: 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 66 6f 72 ->mutex);.. for
73d0: 20 28 6e 20 3d 20 30 3b 20 6e 20 3c 20 70 2d 3e (n = 0; n < p->
73e0: 6e 43 75 72 73 6f 72 20 26 26 20 70 2d 3e 61 70 nCursor && p->ap
73f0: 43 73 72 5b 6e 5d 20 21 3d 20 4e 55 4c 4c 3b 20 Csr[n] != NULL;
7400: 6e 2b 2b 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 n++).. {.. i
7410: 66 20 28 70 2d 3e 61 70 43 73 72 5b 6e 5d 2d 3e f (p->apCsr[n]->
7420: 69 73 54 61 62 6c 65 20 3d 3d 20 46 41 4c 53 45 isTable == FALSE
7430: 29 20 63 6f 6e 74 69 6e 75 65 3b 0d 0a 20 20 20 ) continue;..
7440: 20 69 66 20 28 70 2d 3e 61 70 43 73 72 5b 6e 5d if (p->apCsr[n]
7450: 2d 3e 69 44 62 20 21 3d 20 69 44 62 29 20 63 6f ->iDb != iDb) co
7460: 6e 74 69 6e 75 65 3b 0d 0a 20 20 20 20 69 66 20 ntinue;.. if
7470: 28 70 2d 3e 61 70 43 73 72 5b 6e 5d 2d 3e 70 43 (p->apCsr[n]->pC
7480: 75 72 73 6f 72 2d 3e 70 67 6e 6f 52 6f 6f 74 20 ursor->pgnoRoot
7490: 3d 3d 20 74 61 62 6c 65 52 6f 6f 74 50 61 67 65 == tableRootPage
74a0: 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 ).. {..
74b0: 72 65 74 20 3d 20 6e 3b 0d 0a 20 20 20 20 20 20 ret = n;..
74c0: 62 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 break;.. }..
74d0: 20 7d 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 }.. sqlite3_mu
74e0: 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 tex_leave(db->mu
74f0: 74 65 78 29 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 tex);.... retur
7500: 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c n ret;..}....SQL
7510: 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 ITE_API int WINA
7520: 50 49 20 73 71 6c 69 74 65 33 5f 63 75 72 73 6f PI sqlite3_curso
7530: 72 5f 72 6f 77 69 64 5f 69 6e 74 65 72 6f 70 28 r_rowid_interop(
7540: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 73 sqlite3_stmt *ps
7550: 74 6d 74 2c 20 69 6e 74 20 63 75 72 73 6f 72 2c tmt, int cursor,
7560: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70 sqlite_int64 *p
7570: 72 6f 77 69 64 29 0d 0a 7b 0d 0a 20 20 56 64 62 rowid)..{.. Vdb
7580: 65 20 2a 70 20 3d 20 28 56 64 62 65 20 2a 29 70 e *p = (Vdbe *)p
7590: 73 74 6d 74 3b 0d 0a 20 20 73 71 6c 69 74 65 33 stmt;.. sqlite3
75a0: 20 2a 64 62 20 3d 20 28 70 20 3d 3d 20 4e 55 4c *db = (p == NUL
75b0: 4c 29 20 3f 20 4e 55 4c 4c 20 3a 20 70 2d 3e 64 L) ? NULL : p->d
75c0: 62 3b 0d 0a 20 20 56 64 62 65 43 75 72 73 6f 72 b;.. VdbeCursor
75d0: 20 2a 70 43 3b 0d 0a 20 20 69 6e 74 20 72 65 74 *pC;.. int ret
75e0: 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 0d = SQLITE_OK;...
75f0: 0a 20 20 69 66 20 28 21 70 20 7c 7c 20 21 64 62 . if (!p || !db
7600: 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f ) return SQLITE_
7610: 45 52 52 4f 52 3b 0d 0a 20 20 73 71 6c 69 74 65 ERROR;.. sqlite
7620: 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 3_mutex_enter(db
7630: 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 77 68 69 ->mutex);.. whi
7640: 6c 65 20 28 31 29 0d 0a 20 20 7b 0d 0a 20 20 20 le (1).. {..
7650: 20 69 66 20 28 63 75 72 73 6f 72 20 3c 20 30 20 if (cursor < 0
7660: 7c 7c 20 63 75 72 73 6f 72 20 3e 3d 20 70 2d 3e || cursor >= p->
7670: 6e 43 75 72 73 6f 72 29 0d 0a 20 20 20 20 7b 0d nCursor).. {.
7680: 0a 20 20 20 20 20 20 72 65 74 20 3d 20 53 51 4c . ret = SQL
7690: 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 ITE_ERROR;..
76a0: 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d break;.. }.
76b0: 0a 20 20 20 20 69 66 20 28 70 2d 3e 61 70 43 73 . if (p->apCs
76c0: 72 5b 63 75 72 73 6f 72 5d 20 3d 3d 20 4e 55 4c r[cursor] == NUL
76d0: 4c 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 L).. {..
76e0: 20 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 ret = SQLITE_ER
76f0: 52 4f 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 61 ROR;.. brea
7700: 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 k;.. }....
7710: 20 70 43 20 3d 20 70 2d 3e 61 70 43 73 72 5b 63 pC = p->apCsr[c
7720: 75 72 73 6f 72 5d 3b 0d 0a 0d 0a 20 20 20 20 72 ursor];.... r
7730: 65 74 20 3d 20 73 71 6c 69 74 65 33 56 64 62 65 et = sqlite3Vdbe
7740: 43 75 72 73 6f 72 4d 6f 76 65 74 6f 28 70 43 29 CursorMoveto(pC)
7750: 3b 0d 0a 20 20 20 20 69 66 28 72 65 74 29 0d 0a ;.. if(ret)..
7760: 20 20 20 20 20 20 62 72 65 61 6b 3b 0d 0a 0d 0a break;....
7770: 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 #if SQLITE_VERSI
7780: 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 33 30 30 38 ON_NUMBER < 3008
7790: 30 30 37 0d 0a 20 20 20 20 69 66 28 70 43 2d 3e 007.. if(pC->
77a0: 72 6f 77 69 64 49 73 56 61 6c 69 64 29 0d 0a 20 rowidIsValid)..
77b0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 28 {.. if (
77c0: 70 72 6f 77 69 64 29 20 2a 70 72 6f 77 69 64 20 prowid) *prowid
77d0: 3d 20 70 43 2d 3e 6c 61 73 74 52 6f 77 69 64 3b = pC->lastRowid;
77e0: 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 65 6c 73 .. }.. els
77f0: 65 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 20 20 69 e..#endif.. i
7800: 66 28 70 43 2d 3e 70 73 65 75 64 6f 54 61 62 6c f(pC->pseudoTabl
7810: 65 52 65 67 20 3e 20 30 29 0d 0a 20 20 20 20 7b eReg > 0).. {
7820: 0d 0a 20 20 20 20 20 20 72 65 74 20 3d 20 53 51 .. ret = SQ
7830: 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 LITE_ERROR;..
7840: 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 7d break;.. }
7850: 0d 0a 20 20 20 20 65 6c 73 65 20 69 66 28 70 43 .. else if(pC
7860: 2d 3e 6e 75 6c 6c 52 6f 77 20 7c 7c 20 70 43 2d ->nullRow || pC-
7870: 3e 70 43 75 72 73 6f 72 3d 3d 30 29 0d 0a 20 20 >pCursor==0)..
7880: 20 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 20 3d {.. ret =
7890: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a SQLITE_ERROR;..
78a0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 break;..
78b0: 20 20 7d 0d 0a 20 20 20 20 65 6c 73 65 0d 0a 20 }.. else..
78c0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 28 {.. if (
78d0: 70 43 2d 3e 70 43 75 72 73 6f 72 20 3d 3d 20 4e pC->pCursor == N
78e0: 55 4c 4c 29 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 ULL).. {..
78f0: 20 20 20 20 20 20 20 72 65 74 20 3d 20 53 51 4c ret = SQL
7900: 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 ITE_ERROR;..
7910: 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 break;..
7920: 20 20 7d 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 }.. sqlit
7930: 65 33 42 74 72 65 65 4b 65 79 53 69 7a 65 28 70 e3BtreeKeySize(p
7940: 43 2d 3e 70 43 75 72 73 6f 72 2c 20 70 72 6f 77 C->pCursor, prow
7950: 69 64 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 28 id);.. if (
7960: 70 72 6f 77 69 64 29 20 2a 70 72 6f 77 69 64 20 prowid) *prowid
7970: 3d 20 2a 70 72 6f 77 69 64 3b 0d 0a 20 20 20 20 = *prowid;..
7980: 7d 0d 0a 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 }.. break;..
7990: 20 7d 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 }.. sqlite3_mu
79a0: 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 tex_leave(db->mu
79b0: 74 65 78 29 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 tex);.... retur
79c0: 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 n ret;..}..#endi
79d0: 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 53 5f 57 f /* SQLITE_OS_W
79e0: 49 4e 20 2a 2f 0d 0a 0d 0a 2f 2a 2a 2a 2a 2a 2a IN */..../******
79f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7a00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7a10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7a20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7a30: 2a 2a 2a 2a 2a 2a 2a 2f 0d 0a 0d 0a 23 69 66 20 *******/....#if
7a40: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 43 defined(SQLITE_C
7a50: 4f 52 45 29 0d 0a 23 75 6e 64 65 66 20 53 51 4c ORE)..#undef SQL
7a60: 49 54 45 5f 43 4f 52 45 0d 0a 23 65 6e 64 69 66 ITE_CORE..#endif
7a70: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
7a80: 49 4e 54 45 52 4f 50 5f 56 49 52 54 55 41 4c 5f INTEROP_VIRTUAL_
7a90: 54 41 42 4c 45 29 20 26 26 20 53 51 4c 49 54 45 TABLE) && SQLITE
7aa0: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
7ab0: 3e 3d 20 33 30 30 34 30 30 31 0d 0a 23 69 6e 63 >= 3004001..#inc
7ac0: 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f 76 74 73 lude "../ext/vts
7ad0: 68 69 6d 2e 63 22 0d 0a 23 65 6e 64 69 66 0d 0a him.c"..#endif..
7ae0: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
7af0: 54 45 52 4f 50 5f 46 54 53 35 5f 45 58 54 45 4e TEROP_FTS5_EXTEN
7b00: 53 49 4f 4e 29 0d 0a 23 69 6e 63 6c 75 64 65 20 SION)..#include
7b10: 22 2e 2e 2f 65 78 74 2f 66 74 73 35 2e 63 22 0d "../ext/fts5.c".
7b20: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 .#endif....#if d
7b30: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 4a efined(INTEROP_J
7b40: 53 4f 4e 31 5f 45 58 54 45 4e 53 49 4f 4e 29 0d SON1_EXTENSION).
7b50: 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 .#include "../ex
7b60: 74 2f 6a 73 6f 6e 31 2e 63 22 0d 0a 23 65 6e 64 t/json1.c"..#end
7b70: 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 if....#if define
7b80: 64 28 49 4e 54 45 52 4f 50 5f 50 45 52 43 45 4e d(INTEROP_PERCEN
7b90: 54 49 4c 45 5f 45 58 54 45 4e 53 49 4f 4e 29 0d TILE_EXTENSION).
7ba0: 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 .#include "../ex
7bb0: 74 2f 70 65 72 63 65 6e 74 69 6c 65 2e 63 22 0d t/percentile.c".
7bc0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 .#endif....#if d
7bd0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 52 efined(INTEROP_R
7be0: 45 47 45 58 50 5f 45 58 54 45 4e 53 49 4f 4e 29 EGEXP_EXTENSION)
7bf0: 0d 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 ..#include "../e
7c00: 78 74 2f 72 65 67 65 78 70 2e 63 22 0d 0a 23 65 xt/regexp.c"..#e
7c10: 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 ndif....#if defi
7c20: 6e 65 64 28 49 4e 54 45 52 4f 50 5f 54 4f 54 59 ned(INTEROP_TOTY
7c30: 50 45 5f 45 58 54 45 4e 53 49 4f 4e 29 0d 0a 23 PE_EXTENSION)..#
7c40: 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f include "../ext/
7c50: 74 6f 74 79 70 65 2e 63 22 0d 0a 23 65 6e 64 69 totype.c"..#endi
7c60: 66 0d 0a 0d 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a f..../**********
7c70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7c80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7c90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7ca0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7cb0: 2a 2a 2a 2f 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 54 ***/..../*..** T
7cc0: 68 65 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f he INTEROP_TEST_
7cd0: 45 58 54 45 4e 53 49 4f 4e 20 62 6c 6f 63 6b 20 EXTENSION block
7ce0: 6d 75 73 74 20 62 65 20 61 74 20 74 68 65 20 65 must be at the e
7cf0: 6e 64 20 6f 66 20 74 68 69 73 20 73 6f 75 72 63 nd of this sourc
7d00: 65 20 66 69 6c 65 0d 0a 2a 2a 20 62 65 63 61 75 e file..** becau
7d10: 73 65 20 69 74 20 69 6e 63 6c 75 64 65 73 20 74 se it includes t
7d20: 68 65 20 22 73 71 6c 69 74 65 33 65 78 74 2e 68 he "sqlite3ext.h
7d30: 22 20 66 69 6c 65 2c 20 77 68 69 63 68 20 64 65 " file, which de
7d40: 66 69 6e 65 73 20 74 68 65 20 73 71 6c 69 74 65 fines the sqlite
7d50: 33 0d 0a 2a 2a 20 70 75 62 6c 69 63 20 41 50 49 3..** public API
7d60: 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 function names
7d70: 74 6f 20 62 65 20 6d 61 63 72 6f 73 20 61 6e 64 to be macros and
7d80: 20 74 68 61 74 20 77 6f 75 6c 64 20 63 61 75 73 that would caus
7d90: 65 20 74 68 65 20 63 6f 64 65 0d 0a 2a 2a 20 61 e the code..** a
7da0: 62 6f 76 65 20 74 68 69 73 20 70 6f 69 6e 74 20 bove this point
7db0: 74 6f 20 6d 61 6c 66 75 6e 63 74 69 6f 6e 2e 0d to malfunction..
7dc0: 0a 2a 2f 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 .*/..#if defined
7dd0: 28 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 58 (INTEROP_TEST_EX
7de0: 54 45 4e 53 49 4f 4e 29 0d 0a 23 69 6e 63 6c 75 TENSION)..#inclu
7df0: 64 65 20 22 2e 2e 2f 63 6f 72 65 2f 73 71 6c 69 de "../core/sqli
7e00: 74 65 33 65 78 74 2e 68 22 0d 0a 53 51 4c 49 54 te3ext.h"..SQLIT
7e10: 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 E_EXTENSION_INIT
7e20: 31 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 54 68 65 20 1..../*..** The
7e30: 69 6e 74 65 72 6f 70 54 65 73 74 28 29 20 53 51 interopTest() SQ
7e40: 4c 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 L function retur
7e50: 6e 73 20 69 74 73 20 66 69 72 73 74 20 61 72 67 ns its first arg
7e60: 75 6d 65 6e 74 20 6f 72 20 72 61 69 73 65 73 20 ument or raises
7e70: 61 6e 0d 0a 2a 2a 20 65 72 72 6f 72 20 69 66 20 an..** error if
7e80: 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e there are not en
7e90: 6f 75 67 68 20 61 72 67 75 6d 65 6e 74 73 2e 0d ough arguments..
7ea0: 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 .*/..SQLITE_PRIV
7eb0: 41 54 45 20 76 6f 69 64 20 69 6e 74 65 72 6f 70 ATE void interop
7ec0: 54 65 73 74 46 75 6e 63 28 0d 0a 20 20 73 71 6c TestFunc(.. sql
7ed0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
7ee0: 6e 74 65 78 74 2c 0d 0a 20 20 69 6e 74 20 61 72 ntext,.. int ar
7ef0: 67 63 2c 0d 0a 20 20 73 71 6c 69 74 65 33 5f 76 gc,.. sqlite3_v
7f00: 61 6c 75 65 20 2a 2a 61 72 67 76 0d 0a 29 7b 0d alue **argv..){.
7f10: 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 . const unsigne
7f20: 64 20 63 68 61 72 20 2a 7a 3b 0d 0a 20 20 69 66 d char *z;.. if
7f30: 28 20 61 72 67 63 21 3d 31 20 29 7b 0d 0a 20 20 ( argc!=1 ){..
7f40: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
7f50: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 _error(context,
7f60: 22 6e 65 65 64 20 65 78 61 63 74 6c 79 20 6f 6e "need exactly on
7f70: 65 20 61 72 67 75 6d 65 6e 74 22 2c 20 2d 31 29 e argument", -1)
7f80: 3b 0d 0a 20 20 20 20 72 65 74 75 72 6e 3b 0d 0a ;.. return;..
7f90: 20 20 7d 0d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 }.. z = sqlit
7fa0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 e3_value_text(ar
7fb0: 67 76 5b 30 5d 29 3b 0d 0a 20 20 69 66 28 20 7a gv[0]);.. if( z
7fc0: 20 29 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 ){.. sqlite3
7fd0: 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e _result_text(con
7fe0: 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a 2c 20 text, (char*)z,
7ff0: 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 -1, SQLITE_STATI
8000: 43 29 3b 0d 0a 20 20 7d 65 6c 73 65 7b 0d 0a 20 C);.. }else{..
8010: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c sqlite3_resul
8020: 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b t_null(context);
8030: 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0d 0a 2f 2a 0d 0a .. }..}..../*..
8040: 2a 2a 20 54 68 65 20 69 6e 74 65 72 6f 70 53 6c ** The interopSl
8050: 65 65 70 28 29 20 53 51 4c 20 66 75 6e 63 74 69 eep() SQL functi
8060: 6f 6e 20 77 61 69 74 73 20 74 68 65 20 73 70 65 on waits the spe
8070: 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 cified number of
8080: 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 0d 0a 2a milliseconds..*
8090: 2a 20 6f 72 20 72 61 69 73 65 73 20 61 6e 20 65 * or raises an e
80a0: 72 72 6f 72 20 69 66 20 74 68 65 72 65 20 61 72 rror if there ar
80b0: 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 61 72 67 e not enough arg
80c0: 75 6d 65 6e 74 73 2e 0d 0a 2a 2f 0d 0a 53 51 4c uments...*/..SQL
80d0: 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f 69 64 ITE_PRIVATE void
80e0: 20 69 6e 74 65 72 6f 70 53 6c 65 65 70 46 75 6e interopSleepFun
80f0: 63 28 0d 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f c(.. sqlite3_co
8100: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0d ntext *context,.
8110: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0d 0a 20 20 . int argc,..
8120: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
8130: 61 72 67 76 0d 0a 29 7b 0d 0a 20 20 69 6e 74 20 argv..){.. int
8140: 6d 3b 0d 0a 20 20 69 66 28 20 61 72 67 63 21 3d m;.. if( argc!=
8150: 31 20 29 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 1 ){.. sqlite
8160: 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 3_result_error(c
8170: 6f 6e 74 65 78 74 2c 20 22 6e 65 65 64 20 65 78 ontext, "need ex
8180: 61 63 74 6c 79 20 6f 6e 65 20 61 72 67 75 6d 65 actly one argume
8190: 6e 74 22 2c 20 2d 31 29 3b 0d 0a 20 20 20 20 72 nt", -1);.. r
81a0: 65 74 75 72 6e 3b 0d 0a 20 20 7d 0d 0a 20 20 6d eturn;.. }.. m
81b0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
81c0: 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b 0d 0a _int(argv[0]);..
81d0: 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 #if SQLITE_OS_WI
81e0: 4e 43 45 0d 0a 20 20 53 6c 65 65 70 28 6d 29 3b NCE.. Sleep(m);
81f0: 0d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 .. sqlite3_resu
8200: 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 lt_int(context,
8210: 57 41 49 54 5f 4f 42 4a 45 43 54 5f 30 29 3b 0d WAIT_OBJECT_0);.
8220: 0a 23 65 6c 73 65 0d 0a 20 20 73 71 6c 69 74 65 .#else.. sqlite
8230: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 3_result_int(con
8240: 74 65 78 74 2c 20 53 6c 65 65 70 45 78 28 6d 2c text, SleepEx(m,
8250: 20 54 52 55 45 29 29 3b 0d 0a 23 65 6e 64 69 66 TRUE));..#endif
8260: 0d 0a 7d 0d 0a 0d 0a 2f 2a 20 53 51 4c 69 74 65 ..}..../* SQLite
8270: 20 69 6e 76 6f 6b 65 73 20 74 68 69 73 20 72 6f invokes this ro
8280: 75 74 69 6e 65 20 6f 6e 63 65 20 77 68 65 6e 20 utine once when
8290: 69 74 20 6c 6f 61 64 73 20 74 68 65 20 65 78 74 it loads the ext
82a0: 65 6e 73 69 6f 6e 2e 0d 0a 2a 2a 20 43 72 65 61 ension...** Crea
82b0: 74 65 20 6e 65 77 20 66 75 6e 63 74 69 6f 6e 73 te new functions
82c0: 2c 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 , collating sequ
82d0: 65 6e 63 65 73 2c 20 61 6e 64 20 76 69 72 74 75 ences, and virtu
82e0: 61 6c 20 74 61 62 6c 65 0d 0a 2a 2a 20 6d 6f 64 al table..** mod
82f0: 75 6c 65 73 20 68 65 72 65 2e 20 20 54 68 69 73 ules here. This
8300: 20 69 73 20 75 73 75 61 6c 6c 79 20 74 68 65 20 is usually the
8310: 6f 6e 6c 79 20 65 78 70 6f 72 74 65 64 20 73 79 only exported sy
8320: 6d 62 6f 6c 20 69 6e 0d 0a 2a 2a 20 74 68 65 20 mbol in..** the
8330: 73 68 61 72 65 64 20 6c 69 62 72 61 72 79 2e 0d shared library..
8340: 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 .*/..SQLITE_API
8350: 69 6e 74 20 69 6e 74 65 72 6f 70 5f 74 65 73 74 int interop_test
8360: 5f 65 78 74 65 6e 73 69 6f 6e 5f 69 6e 69 74 28 _extension_init(
8370: 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 2c .. sqlite3 *db,
8380: 0d 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 72 72 .. char **pzErr
8390: 4d 73 67 2c 0d 0a 20 20 63 6f 6e 73 74 20 73 71 Msg,.. const sq
83a0: 6c 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e lite3_api_routin
83b0: 65 73 20 2a 70 41 70 69 0d 0a 29 7b 0d 0a 20 20 es *pApi..){..
83c0: 69 6e 74 20 72 63 3b 0d 0a 20 20 53 51 4c 49 54 int rc;.. SQLIT
83d0: 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 E_EXTENSION_INIT
83e0: 32 28 70 41 70 69 29 0d 0a 20 20 72 63 20 3d 20 2(pApi).. rc =
83f0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 sqlite3_create_f
8400: 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 69 6e 74 unction(db, "int
8410: 65 72 6f 70 54 65 73 74 22 2c 20 2d 31 2c 20 53 eropTest", -1, S
8420: 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 0d 0a 20 QLITE_ANY, 0,..
8430: 20 20 20 20 20 69 6e 74 65 72 6f 70 54 65 73 74 interopTest
8440: 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0d 0a 20 20 Func, 0, 0);..
8450: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f if( rc==SQLITE_O
8460: 4b 20 29 7b 0d 0a 20 20 20 20 72 63 20 3d 20 73 K ){.. rc = s
8470: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 qlite3_create_fu
8480: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 69 6e 74 65 nction(db, "inte
8490: 72 6f 70 53 6c 65 65 70 22 2c 20 31 2c 20 53 51 ropSleep", 1, SQ
84a0: 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 0d 0a 20 20 LITE_ANY, 0,..
84b0: 20 20 20 20 20 20 69 6e 74 65 72 6f 70 53 6c 65 interopSle
84c0: 65 70 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0d 0a epFunc, 0, 0);..
84d0: 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 72 63 }.. return rc
84e0: 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 20 2f 2a 20 ;..}..#endif /*
84f0: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f defined(SQLITE_O
8500: 53 5f 57 49 4e 29 20 2a 2f 0d 0a S_WIN) */..