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 56 49 52 54 55 41 4c 5f INTEROP_VIRTUAL_
02d0: 54 41 42 4c 45 29 20 26 26 20 53 51 4c 49 54 45 TABLE) && SQLITE
02e0: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
02f0: 3e 3d 20 33 30 30 34 30 30 31 0d 0a 23 69 6e 63 >= 3004001..#inc
0300: 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f 76 74 73 lude "../ext/vts
0310: 68 69 6d 2e 63 22 0d 0a 23 65 6e 64 69 66 0d 0a him.c"..#endif..
0320: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
0330: 54 45 52 4f 50 5f 50 45 52 43 45 4e 54 49 4c 45 TEROP_PERCENTILE
0340: 5f 45 58 54 45 4e 53 49 4f 4e 29 0d 0a 23 69 6e _EXTENSION)..#in
0350: 63 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f 70 65 clude "../ext/pe
0360: 72 63 65 6e 74 69 6c 65 2e 63 22 0d 0a 23 65 6e rcentile.c"..#en
0370: 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e dif....#if defin
0380: 65 64 28 49 4e 54 45 52 4f 50 5f 54 4f 54 59 50 ed(INTEROP_TOTYP
0390: 45 5f 45 58 54 45 4e 53 49 4f 4e 29 0d 0a 23 69 E_EXTENSION)..#i
03a0: 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f 74 nclude "../ext/t
03b0: 6f 74 79 70 65 2e 63 22 0d 0a 23 65 6e 64 69 66 otype.c"..#endif
03c0: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
03d0: 49 4e 54 45 52 4f 50 5f 52 45 47 45 58 50 5f 45 INTEROP_REGEXP_E
03e0: 58 54 45 4e 53 49 4f 4e 29 0d 0a 23 69 6e 63 6c XTENSION)..#incl
03f0: 75 64 65 20 22 2e 2e 2f 65 78 74 2f 72 65 67 65 ude "../ext/rege
0400: 78 70 2e 63 22 0d 0a 23 65 6e 64 69 66 0d 0a 0d xp.c"..#endif...
0410: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 .#if defined(INT
0420: 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f 4e 5f 46 EROP_EXTENSION_F
0430: 55 4e 43 54 49 4f 4e 53 29 0d 0a 23 69 6e 63 6c UNCTIONS)..#incl
0440: 75 64 65 20 22 2e 2e 2f 63 6f 6e 74 72 69 62 2f ude "../contrib/
0450: 65 78 74 65 6e 73 69 6f 6e 2d 66 75 6e 63 74 69 extension-functi
0460: 6f 6e 73 2e 63 22 0d 0a 65 78 74 65 72 6e 20 69 ons.c"..extern i
0470: 6e 74 20 52 65 67 69 73 74 65 72 45 78 74 65 6e nt RegisterExten
0480: 73 69 6f 6e 46 75 6e 63 74 69 6f 6e 73 28 73 71 sionFunctions(sq
0490: 6c 69 74 65 33 20 2a 64 62 29 3b 0d 0a 23 65 6e lite3 *db);..#en
04a0: 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e dif....#if defin
04b0: 65 64 28 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e ed(SQLITE_OS_WIN
04c0: 29 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 )..#if defined(I
04d0: 4e 54 45 52 4f 50 5f 43 4f 44 45 43 29 20 26 26 NTEROP_CODEC) &&
04e0: 20 21 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f !defined(INTERO
04f0: 50 5f 49 4e 43 4c 55 44 45 5f 53 45 45 29 0d 0a P_INCLUDE_SEE)..
0500: 23 69 6e 63 6c 75 64 65 20 22 63 72 79 70 74 2e #include "crypt.
0510: 63 22 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 c"..#endif....#i
0520: 6e 63 6c 75 64 65 20 22 69 6e 74 65 72 6f 70 2e nclude "interop.
0530: 68 22 0d 0a 0d 0a 23 64 65 66 69 6e 65 20 49 4e h"....#define IN
0540: 54 45 52 4f 50 5f 44 45 42 55 47 5f 4e 4f 4e 45 TEROP_DEBUG_NONE
0550: 20 20 20 20 20 20 20 20 20 20 20 28 30 78 30 30 (0x00
0560: 30 30 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 00)..#define INT
0570: 45 52 4f 50 5f 44 45 42 55 47 5f 43 4c 4f 53 45 EROP_DEBUG_CLOSE
0580: 20 20 20 20 20 20 20 20 20 20 28 30 78 30 30 30 (0x000
0590: 31 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 1)..#define INTE
05a0: 52 4f 50 5f 44 45 42 55 47 5f 46 49 4e 41 4c 49 ROP_DEBUG_FINALI
05b0: 5a 45 20 20 20 20 20 20 20 28 30 78 30 30 30 32 ZE (0x0002
05c0: 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 )..#define INTER
05d0: 4f 50 5f 44 45 42 55 47 5f 42 41 43 4b 55 50 5f OP_DEBUG_BACKUP_
05e0: 46 49 4e 49 53 48 20 20 28 30 78 30 30 30 34 29 FINISH (0x0004)
05f0: 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f ..#define INTERO
0600: 50 5f 44 45 42 55 47 5f 4f 50 45 4e 20 20 20 20 P_DEBUG_OPEN
0610: 20 20 20 20 20 20 20 28 30 78 30 30 30 38 29 0d (0x0008).
0620: 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 .#define INTEROP
0630: 5f 44 45 42 55 47 5f 4f 50 45 4e 31 36 20 20 20 _DEBUG_OPEN16
0640: 20 20 20 20 20 20 28 30 78 30 30 31 30 29 0d 0a (0x0010)..
0650: 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f #define INTEROP_
0660: 44 45 42 55 47 5f 50 52 45 50 41 52 45 20 20 20 DEBUG_PREPARE
0670: 20 20 20 20 20 28 30 78 30 30 32 30 29 0d 0a 23 (0x0020)..#
0680: 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 define INTEROP_D
0690: 45 42 55 47 5f 50 52 45 50 41 52 45 31 36 20 20 EBUG_PREPARE16
06a0: 20 20 20 20 28 30 78 30 30 34 30 29 0d 0a 23 64 (0x0040)..#d
06b0: 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 efine INTEROP_DE
06c0: 42 55 47 5f 52 45 53 45 54 20 20 20 20 20 20 20 BUG_RESET
06d0: 20 20 20 28 30 78 30 30 38 30 29 0d 0a 23 64 65 (0x0080)..#de
06e0: 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 fine INTEROP_DEB
06f0: 55 47 5f 43 48 41 4e 47 45 53 20 20 20 20 20 20 UG_CHANGES
0700: 20 20 28 30 78 30 31 30 30 29 0d 0a 23 64 65 66 (0x0100)..#def
0710: 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 ine INTEROP_DEBU
0720: 47 5f 42 52 45 41 4b 20 20 20 20 20 20 20 20 20 G_BREAK
0730: 20 28 30 78 30 32 30 30 29 0d 0a 0d 0a 23 69 66 (0x0200)....#if
0740: 20 64 65 66 69 6e 65 64 28 5f 4d 53 43 5f 56 45 defined(_MSC_VE
0750: 52 29 20 26 26 20 64 65 66 69 6e 65 64 28 49 4e R) && defined(IN
0760: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
0770: 5c 0d 0a 20 20 20 20 28 49 4e 54 45 52 4f 50 5f \.. (INTEROP_
0780: 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f DEBUG & INTEROP_
0790: 44 45 42 55 47 5f 42 52 45 41 4b 29 0d 0a 23 64 DEBUG_BREAK)..#d
07a0: 65 66 69 6e 65 20 73 71 6c 69 74 65 33 49 6e 74 efine sqlite3Int
07b0: 65 72 6f 70 42 72 65 61 6b 28 61 29 20 7b 20 73 eropBreak(a) { s
07c0: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 qlite3InteropDeb
07d0: 75 67 28 22 25 73 5c 6e 22 2c 20 28 61 29 29 3b ug("%s\n", (a));
07e0: 20 5f 5f 64 65 62 75 67 62 72 65 61 6b 28 29 3b __debugbreak();
07f0: 20 7d 0d 0a 23 65 6c 73 65 0d 0a 23 64 65 66 69 }..#else..#defi
0800: 6e 65 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f ne sqlite3Intero
0810: 70 42 72 65 61 6b 28 61 29 0d 0a 23 65 6e 64 69 pBreak(a)..#endi
0820: 66 0d 0a 0d 0a 74 79 70 65 64 65 66 20 76 6f 69 f....typedef voi
0830: 64 20 28 2a 53 51 4c 49 54 45 55 53 45 52 46 55 d (*SQLITEUSERFU
0840: 4e 43 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 NC)(sqlite3_cont
0850: 65 78 74 20 2a 2c 20 69 6e 74 2c 20 73 71 6c 69 ext *, int, sqli
0860: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 29 3b 0d 0a te3_value **);..
0870: 74 79 70 65 64 65 66 20 76 6f 69 64 20 28 2a 53 typedef void (*S
0880: 51 4c 49 54 45 46 55 4e 43 46 49 4e 41 4c 29 28 QLITEFUNCFINAL)(
0890: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
08a0: 2a 29 3b 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 41 6e *);..../*..** An
08b0: 20 61 72 72 61 79 20 6f 66 20 6e 61 6d 65 73 20 array of names
08c0: 6f 66 20 61 6c 6c 20 63 6f 6d 70 69 6c 65 2d 74 of all compile-t
08d0: 69 6d 65 20 6f 70 74 69 6f 6e 73 2e 20 20 54 68 ime options. Th
08e0: 69 73 20 61 72 72 61 79 20 73 68 6f 75 6c 64 0d is array should.
08f0: 0a 2a 2a 20 62 65 20 73 6f 72 74 65 64 20 41 2d .** be sorted A-
0900: 5a 2e 0d 0a 2a 2a 0d 0a 2a 2a 20 54 68 69 73 20 Z...**..** This
0910: 61 72 72 61 79 20 6c 6f 6f 6b 73 20 6c 61 72 67 array looks larg
0920: 65 2c 20 62 75 74 20 69 6e 20 61 20 74 79 70 69 e, but in a typi
0930: 63 61 6c 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e cal installation
0940: 20 61 63 74 75 61 6c 6c 79 20 75 73 65 73 0d 0a actually uses..
0950: 2a 2a 20 6f 6e 6c 79 20 61 20 68 61 6e 64 66 75 ** only a handfu
0960: 6c 20 6f 66 20 63 6f 6d 70 69 6c 65 2d 74 69 6d l of compile-tim
0970: 65 20 6f 70 74 69 6f 6e 73 2c 20 73 6f 20 6d 6f e options, so mo
0980: 73 74 20 74 69 6d 65 73 20 74 68 69 73 20 61 72 st times this ar
0990: 72 61 79 20 69 73 20 75 73 75 61 6c 6c 79 0d 0a ray is usually..
09a0: 2a 2a 20 72 61 74 68 65 72 20 73 68 6f 72 74 20 ** rather short
09b0: 61 6e 64 20 75 73 65 73 20 6c 69 74 74 6c 65 20 and uses little
09c0: 6d 65 6d 6f 72 79 20 73 70 61 63 65 2e 0d 0a 2a memory space...*
09d0: 2f 0d 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 /..static const
09e0: 63 68 61 72 20 2a 20 63 6f 6e 73 74 20 61 7a 49 char * const azI
09f0: 6e 74 65 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 nteropCompileOpt
0a00: 5b 5d 20 3d 20 7b 0d 0a 0d 0a 2f 2a 20 54 68 65 [] = {..../* The
0a10: 73 65 20 6d 61 63 72 6f 73 20 61 72 65 20 70 72 se macros are pr
0a20: 6f 76 69 64 65 64 20 74 6f 20 22 73 74 72 69 6e ovided to "strin
0a30: 67 69 66 79 22 20 74 68 65 20 76 61 6c 75 65 20 gify" the value
0a40: 6f 66 20 74 68 65 20 64 65 66 69 6e 65 0d 0a 2a of the define..*
0a50: 2a 20 66 6f 72 20 74 68 6f 73 65 20 6f 70 74 69 * for those opti
0a60: 6f 6e 73 20 69 6e 20 77 68 69 63 68 20 74 68 65 ons in which the
0a70: 20 76 61 6c 75 65 20 69 73 20 6d 65 61 6e 69 6e value is meanin
0a80: 67 66 75 6c 2e 20 2a 2f 0d 0a 23 69 66 6e 64 65 gful. */..#ifnde
0a90: 66 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c 5f 0d f CTIMEOPT_VAL_.
0aa0: 0a 23 64 65 66 69 6e 65 20 43 54 49 4d 45 4f 50 .#define CTIMEOP
0ab0: 54 5f 56 41 4c 5f 28 6f 70 74 29 20 23 6f 70 74 T_VAL_(opt) #opt
0ac0: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 6e ..#endif....#ifn
0ad0: 64 65 66 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c def CTIMEOPT_VAL
0ae0: 0d 0a 23 64 65 66 69 6e 65 20 43 54 49 4d 45 4f ..#define CTIMEO
0af0: 50 54 5f 56 41 4c 28 6f 70 74 29 20 43 54 49 4d PT_VAL(opt) CTIM
0b00: 45 4f 50 54 5f 56 41 4c 5f 28 6f 70 74 29 0d 0a EOPT_VAL_(opt)..
0b10: 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 64 65 66 #endif....#ifdef
0b20: 20 49 4e 54 45 52 4f 50 5f 43 4f 44 45 43 0d 0a INTEROP_CODEC..
0b30: 20 20 22 43 4f 44 45 43 22 2c 0d 0a 23 65 6e 64 "CODEC",..#end
0b40: 69 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 if..#ifdef INTER
0b50: 4f 50 5f 44 45 42 55 47 0d 0a 20 20 22 44 45 42 OP_DEBUG.. "DEB
0b60: 55 47 3d 22 20 43 54 49 4d 45 4f 50 54 5f 56 41 UG=" CTIMEOPT_VA
0b70: 4c 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 L(INTEROP_DEBUG)
0b80: 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 ,..#endif..#ifde
0b90: 66 20 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 f INTEROP_EXTENS
0ba0: 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 0d 0a 20 ION_FUNCTIONS..
0bb0: 20 22 45 58 54 45 4e 53 49 4f 4e 5f 46 55 4e 43 "EXTENSION_FUNC
0bc0: 54 49 4f 4e 53 22 2c 0d 0a 23 65 6e 64 69 66 0d TIONS",..#endif.
0bd0: 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f .#ifdef INTEROP_
0be0: 49 4e 43 4c 55 44 45 5f 43 45 52 4f 44 0d 0a 20 INCLUDE_CEROD..
0bf0: 20 22 49 4e 43 4c 55 44 45 5f 43 45 52 4f 44 22 "INCLUDE_CEROD"
0c00: 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 ,..#endif..#ifde
0c10: 66 20 49 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 f INTEROP_INCLUD
0c20: 45 5f 45 58 54 52 41 0d 0a 20 20 22 49 4e 43 4c E_EXTRA.. "INCL
0c30: 55 44 45 5f 45 58 54 52 41 22 2c 0d 0a 23 65 6e UDE_EXTRA",..#en
0c40: 64 69 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 dif..#ifdef INTE
0c50: 52 4f 50 5f 49 4e 43 4c 55 44 45 5f 53 45 45 0d ROP_INCLUDE_SEE.
0c60: 0a 20 20 22 49 4e 43 4c 55 44 45 5f 53 45 45 22 . "INCLUDE_SEE"
0c70: 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 ,..#endif..#ifde
0c80: 66 20 49 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 f INTEROP_INCLUD
0c90: 45 5f 5a 49 50 56 46 53 0d 0a 20 20 22 49 4e 43 E_ZIPVFS.. "INC
0ca0: 4c 55 44 45 5f 5a 49 50 56 46 53 22 2c 0d 0a 23 LUDE_ZIPVFS",..#
0cb0: 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 49 4e endif..#ifdef IN
0cc0: 54 45 52 4f 50 5f 4c 45 47 41 43 59 5f 43 4c 4f TEROP_LEGACY_CLO
0cd0: 53 45 0d 0a 20 20 22 4c 45 47 41 43 59 5f 43 4c SE.. "LEGACY_CL
0ce0: 4f 53 45 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 OSE",..#endif..#
0cf0: 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 4c 4f ifdef INTEROP_LO
0d00: 47 0d 0a 20 20 22 4c 4f 47 22 2c 0d 0a 23 65 6e G.. "LOG",..#en
0d10: 64 69 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 dif..#ifdef INTE
0d20: 52 4f 50 5f 50 45 52 43 45 4e 54 49 4c 45 5f 45 ROP_PERCENTILE_E
0d30: 58 54 45 4e 53 49 4f 4e 0d 0a 20 20 22 50 45 52 XTENSION.. "PER
0d40: 43 45 4e 54 49 4c 45 5f 45 58 54 45 4e 53 49 4f CENTILE_EXTENSIO
0d50: 4e 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 N",..#endif..#if
0d60: 64 65 66 20 49 4e 54 45 52 4f 50 5f 52 45 47 45 def INTEROP_REGE
0d70: 58 50 5f 45 58 54 45 4e 53 49 4f 4e 0d 0a 20 20 XP_EXTENSION..
0d80: 22 52 45 47 45 58 50 5f 45 58 54 45 4e 53 49 4f "REGEXP_EXTENSIO
0d90: 4e 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 N",..#endif..#if
0da0: 64 65 66 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 def INTEROP_TEST
0db0: 5f 45 58 54 45 4e 53 49 4f 4e 0d 0a 20 20 22 54 _EXTENSION.. "T
0dc0: 45 53 54 5f 45 58 54 45 4e 53 49 4f 4e 22 2c 0d EST_EXTENSION",.
0dd0: 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 .#endif..#ifdef
0de0: 49 4e 54 45 52 4f 50 5f 54 4f 54 59 50 45 5f 45 INTEROP_TOTYPE_E
0df0: 58 54 45 4e 53 49 4f 4e 0d 0a 20 20 22 54 4f 54 XTENSION.. "TOT
0e00: 59 50 45 5f 45 58 54 45 4e 53 49 4f 4e 22 2c 0d YPE_EXTENSION",.
0e10: 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 .#endif..#ifdef
0e20: 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e SQLITE_VERSION_N
0e30: 55 4d 42 45 52 0d 0a 20 20 22 56 45 52 53 49 4f UMBER.. "VERSIO
0e40: 4e 5f 4e 55 4d 42 45 52 3d 22 20 43 54 49 4d 45 N_NUMBER=" CTIME
0e50: 4f 50 54 5f 56 41 4c 28 53 51 4c 49 54 45 5f 56 OPT_VAL(SQLITE_V
0e60: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 29 2c 0d ERSION_NUMBER),.
0e70: 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 .#endif..#ifdef
0e80: 49 4e 54 45 52 4f 50 5f 56 49 52 54 55 41 4c 5f INTEROP_VIRTUAL_
0e90: 54 41 42 4c 45 0d 0a 20 20 22 56 49 52 54 55 41 TABLE.. "VIRTUA
0ea0: 4c 5f 54 41 42 4c 45 22 2c 0d 0a 23 65 6e 64 69 L_TABLE",..#endi
0eb0: 66 0d 0a 7d 3b 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 f..};..../*..**
0ec0: 47 69 76 65 6e 20 74 68 65 20 6e 61 6d 65 20 6f Given the name o
0ed0: 66 20 61 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 f a compile-time
0ee0: 20 6f 70 74 69 6f 6e 2c 20 72 65 74 75 72 6e 20 option, return
0ef0: 74 72 75 65 20 69 66 20 74 68 61 74 20 6f 70 74 true if that opt
0f00: 69 6f 6e 0d 0a 2a 2a 20 77 61 73 20 75 73 65 64 ion..** was used
0f10: 20 61 6e 64 20 66 61 6c 73 65 20 69 66 20 6e 6f and false if no
0f20: 74 2e 0d 0a 2a 2a 0d 0a 2a 2a 20 54 68 65 20 6e t...**..** The n
0f30: 61 6d 65 20 63 61 6e 20 6f 70 74 69 6f 6e 61 6c ame can optional
0f40: 6c 79 20 62 65 67 69 6e 20 77 69 74 68 20 22 53 ly begin with "S
0f50: 51 4c 49 54 45 5f 22 20 6f 72 20 22 49 4e 54 45 QLITE_" or "INTE
0f60: 52 4f 50 5f 22 20 62 75 74 20 74 68 6f 73 65 0d ROP_" but those.
0f70: 0a 2a 2a 20 70 72 65 66 69 78 65 73 20 61 72 65 .** prefixes are
0f80: 20 6e 6f 74 20 72 65 71 75 69 72 65 64 20 66 6f not required fo
0f90: 72 20 61 20 6d 61 74 63 68 2e 0d 0a 2a 2f 0d 0a r a match...*/..
0fa0: 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 SQLITE_API int W
0fb0: 49 4e 41 50 49 20 69 6e 74 65 72 6f 70 5f 63 6f INAPI interop_co
0fc0: 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 mpileoption_used
0fd0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4f 70 (const char *zOp
0fe0: 74 4e 61 6d 65 29 7b 0d 0a 20 20 69 6e 74 20 69 tName){.. int i
0ff0: 2c 20 6e 3b 0d 0a 20 20 69 66 28 20 73 71 6c 69 , n;.. if( sqli
1000: 74 65 33 53 74 72 4e 49 43 6d 70 28 7a 4f 70 74 te3StrNICmp(zOpt
1010: 4e 61 6d 65 2c 20 22 53 51 4c 49 54 45 5f 22 2c Name, "SQLITE_",
1020: 20 37 29 3d 3d 30 20 29 20 7a 4f 70 74 4e 61 6d 7)==0 ) zOptNam
1030: 65 20 2b 3d 20 37 3b 0d 0a 20 20 69 66 28 20 73 e += 7;.. if( s
1040: 71 6c 69 74 65 33 53 74 72 4e 49 43 6d 70 28 7a qlite3StrNICmp(z
1050: 4f 70 74 4e 61 6d 65 2c 20 22 49 4e 54 45 52 4f OptName, "INTERO
1060: 50 5f 22 2c 20 38 29 3d 3d 30 20 29 20 7a 4f 70 P_", 8)==0 ) zOp
1070: 74 4e 61 6d 65 20 2b 3d 20 38 3b 0d 0a 20 20 6e tName += 8;.. n
1080: 20 3d 20 73 71 6c 69 74 65 33 53 74 72 6c 65 6e = sqlite3Strlen
1090: 33 30 28 7a 4f 70 74 4e 61 6d 65 29 3b 0d 0a 0d 30(zOptName);...
10a0: 0a 20 20 2f 2a 20 53 69 6e 63 65 20 41 72 72 61 . /* Since Arra
10b0: 79 53 69 7a 65 28 61 7a 49 6e 74 65 72 6f 70 43 ySize(azInteropC
10c0: 6f 6d 70 69 6c 65 4f 70 74 29 20 69 73 20 6e 6f ompileOpt) is no
10d0: 72 6d 61 6c 6c 79 20 69 6e 20 73 69 6e 67 6c 65 rmally in single
10e0: 20 64 69 67 69 74 73 2c 20 61 0d 0a 20 20 2a 2a digits, a.. **
10f0: 20 6c 69 6e 65 61 72 20 73 65 61 72 63 68 20 69 linear search i
1100: 73 20 61 64 65 71 75 61 74 65 2e 20 20 4e 6f 20 s adequate. No
1110: 6e 65 65 64 20 66 6f 72 20 61 20 62 69 6e 61 72 need for a binar
1120: 79 20 73 65 61 72 63 68 2e 20 2a 2f 0d 0a 20 20 y search. */..
1130: 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79 for(i=0; i<Array
1140: 53 69 7a 65 28 61 7a 49 6e 74 65 72 6f 70 43 6f Size(azInteropCo
1150: 6d 70 69 6c 65 4f 70 74 29 3b 20 69 2b 2b 29 7b mpileOpt); i++){
1160: 0d 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 .. if( sqlite
1170: 33 53 74 72 4e 49 43 6d 70 28 7a 4f 70 74 4e 61 3StrNICmp(zOptNa
1180: 6d 65 2c 20 61 7a 49 6e 74 65 72 6f 70 43 6f 6d me, azInteropCom
1190: 70 69 6c 65 4f 70 74 5b 69 5d 2c 20 6e 29 3d 3d pileOpt[i], n)==
11a0: 30 0d 0a 20 20 20 20 20 26 26 20 73 71 6c 69 74 0.. && sqlit
11b0: 65 33 43 74 79 70 65 4d 61 70 5b 28 75 6e 73 69 e3CtypeMap[(unsi
11c0: 67 6e 65 64 20 63 68 61 72 29 61 7a 49 6e 74 65 gned char)azInte
11d0: 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 5b 69 5d ropCompileOpt[i]
11e0: 5b 6e 5d 5d 3d 3d 30 0d 0a 20 20 20 20 29 7b 0d [n]]==0.. ){.
11f0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b . return 1;
1200: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 20 20 .. }.. }..
1210: 72 65 74 75 72 6e 20 30 3b 0d 0a 7d 0d 0a 0d 0a return 0;..}....
1220: 2f 2a 0d 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 /*..** Return th
1230: 65 20 4e 2d 74 68 20 63 6f 6d 70 69 6c 65 2d 74 e N-th compile-t
1240: 69 6d 65 20 6f 70 74 69 6f 6e 20 73 74 72 69 6e ime option strin
1250: 67 2e 20 20 49 66 20 4e 20 69 73 20 6f 75 74 20 g. If N is out
1260: 6f 66 20 72 61 6e 67 65 2c 0d 0a 2a 2a 20 72 65 of range,..** re
1270: 74 75 72 6e 20 61 20 4e 55 4c 4c 20 70 6f 69 6e turn a NULL poin
1280: 74 65 72 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 ter...*/..SQLITE
1290: 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 _API const char
12a0: 2a 57 49 4e 41 50 49 20 69 6e 74 65 72 6f 70 5f *WINAPI interop_
12b0: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 compileoption_ge
12c0: 74 28 69 6e 74 20 4e 29 7b 0d 0a 20 20 69 66 28 t(int N){.. if(
12d0: 20 4e 3e 3d 30 20 26 26 20 4e 3c 41 72 72 61 79 N>=0 && N<Array
12e0: 53 69 7a 65 28 61 7a 49 6e 74 65 72 6f 70 43 6f Size(azInteropCo
12f0: 6d 70 69 6c 65 4f 70 74 29 20 29 7b 0d 0a 20 20 mpileOpt) ){..
1300: 20 20 72 65 74 75 72 6e 20 61 7a 49 6e 74 65 72 return azInter
1310: 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 5b 4e 5d 3b opCompileOpt[N];
1320: 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 .. }.. return
1330: 30 3b 0d 0a 7d 0d 0a 0d 0a 23 69 66 20 64 65 66 0;..}....#if def
1340: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 ined(INTEROP_DEB
1350: 55 47 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 49 UG) || defined(I
1360: 4e 54 45 52 4f 50 5f 4c 4f 47 29 0d 0a 53 51 4c NTEROP_LOG)..SQL
1370: 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f 69 64 ITE_PRIVATE void
1380: 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 sqlite3InteropD
1390: 65 62 75 67 28 63 6f 6e 73 74 20 63 68 61 72 20 ebug(const char
13a0: 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0d *zFormat, ...){.
13b0: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 20 20 . va_list ap;
13c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
13d0: 20 20 20 20 20 20 20 2f 2a 20 56 61 72 61 72 67 /* Vararg
13e0: 20 6c 69 73 74 20 2a 2f 0d 0a 20 20 53 74 72 41 list */.. StrA
13f0: 63 63 75 6d 20 61 63 63 3b 20 20 20 20 20 20 20 ccum acc;
1400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1410: 2f 2a 20 53 74 72 69 6e 67 20 61 63 63 75 6d 75 /* String accumu
1420: 6c 61 74 6f 72 20 2a 2f 0d 0a 20 20 63 68 61 72 lator */.. char
1430: 20 7a 4d 73 67 5b 53 51 4c 49 54 45 5f 50 52 49 zMsg[SQLITE_PRI
1440: 4e 54 5f 42 55 46 5f 53 49 5a 45 2a 33 5d 3b 20 NT_BUF_SIZE*3];
1450: 2f 2a 20 43 6f 6d 70 6c 65 74 65 20 6c 6f 67 20 /* Complete log
1460: 6d 65 73 73 61 67 65 20 2a 2f 0d 0a 20 20 76 61 message */.. va
1470: 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d _start(ap, zForm
1480: 61 74 29 3b 0d 0a 23 69 66 20 53 51 4c 49 54 45 at);..#if SQLITE
1490: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
14a0: 3e 3d 20 33 30 30 38 30 31 30 0d 0a 20 20 73 71 >= 3008010.. sq
14b0: 6c 69 74 65 33 53 74 72 41 63 63 75 6d 49 6e 69 lite3StrAccumIni
14c0: 74 28 26 61 63 63 2c 20 30 2c 20 7a 4d 73 67 2c t(&acc, 0, zMsg,
14d0: 20 73 69 7a 65 6f 66 28 7a 4d 73 67 29 2c 20 30 sizeof(zMsg), 0
14e0: 29 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 73 71 6c );..#else.. sql
14f0: 69 74 65 33 53 74 72 41 63 63 75 6d 49 6e 69 74 ite3StrAccumInit
1500: 28 26 61 63 63 2c 20 7a 4d 73 67 2c 20 73 69 7a (&acc, zMsg, siz
1510: 65 6f 66 28 7a 4d 73 67 29 2c 20 30 29 3b 0d 0a eof(zMsg), 0);..
1520: 20 20 61 63 63 2e 75 73 65 4d 61 6c 6c 6f 63 20 acc.useMalloc
1530: 3d 20 30 3b 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 = 0;..#endif..
1540: 73 71 6c 69 74 65 33 56 58 50 72 69 6e 74 66 28 sqlite3VXPrintf(
1550: 26 61 63 63 2c 20 30 2c 20 7a 46 6f 72 6d 61 74 &acc, 0, zFormat
1560: 2c 20 61 70 29 3b 0d 0a 20 20 76 61 5f 65 6e 64 , ap);.. va_end
1570: 28 61 70 29 3b 0d 0a 23 69 66 20 53 51 4c 49 54 (ap);..#if SQLIT
1580: 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 E_VERSION_NUMBER
1590: 20 3e 3d 20 33 30 30 37 30 31 33 0d 0a 20 20 73 >= 3007013.. s
15a0: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 77 72 69 qlite3_win32_wri
15b0: 74 65 5f 64 65 62 75 67 28 73 71 6c 69 74 65 33 te_debug(sqlite3
15c0: 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68 28 26 StrAccumFinish(&
15d0: 61 63 63 29 2c 20 2d 31 29 3b 0d 0a 23 65 6c 69 acc), -1);..#eli
15e0: 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 f defined(SQLITE
15f0: 5f 57 49 4e 33 32 5f 48 41 53 5f 41 4e 53 49 29 _WIN32_HAS_ANSI)
1600: 0d 0a 20 20 4f 75 74 70 75 74 44 65 62 75 67 53 .. OutputDebugS
1610: 74 72 69 6e 67 41 28 73 71 6c 69 74 65 33 53 74 tringA(sqlite3St
1620: 72 41 63 63 75 6d 46 69 6e 69 73 68 28 26 61 63 rAccumFinish(&ac
1630: 63 29 29 3b 0d 0a 23 65 6c 69 66 20 64 65 66 69 c));..#elif defi
1640: 6e 65 64 28 53 51 4c 49 54 45 5f 57 49 4e 33 32 ned(SQLITE_WIN32
1650: 5f 48 41 53 5f 57 49 44 45 29 0d 0a 20 20 7b 0d _HAS_WIDE).. {.
1660: 0a 20 20 20 20 4c 50 57 53 54 52 20 7a 57 69 64 . LPWSTR zWid
1670: 65 4d 73 67 20 3d 20 75 74 66 38 54 6f 55 6e 69 eMsg = utf8ToUni
1680: 63 6f 64 65 28 73 71 6c 69 74 65 33 53 74 72 41 code(sqlite3StrA
1690: 63 63 75 6d 46 69 6e 69 73 68 28 26 61 63 63 29 ccumFinish(&acc)
16a0: 29 3b 0d 0a 20 20 20 20 69 66 28 20 7a 57 69 64 );.. if( zWid
16b0: 65 4d 73 67 20 29 7b 0d 0a 20 20 20 20 20 20 4f eMsg ){.. O
16c0: 75 74 70 75 74 44 65 62 75 67 53 74 72 69 6e 67 utputDebugString
16d0: 57 28 7a 57 69 64 65 4d 73 67 29 3b 0d 0a 20 20 W(zWideMsg);..
16e0: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 sqlite3_free
16f0: 28 7a 57 69 64 65 4d 73 67 29 3b 0d 0a 20 20 20 (zWideMsg);..
1700: 20 7d 0d 0a 20 20 7d 0d 0a 23 65 6c 73 65 0d 0a }.. }..#else..
1710: 20 20 66 70 72 69 6e 74 66 28 73 74 64 65 72 72 fprintf(stderr
1720: 2c 20 22 25 73 22 2c 20 73 71 6c 69 74 65 33 53 , "%s", sqlite3S
1730: 74 72 41 63 63 75 6d 46 69 6e 69 73 68 28 26 61 trAccumFinish(&a
1740: 63 63 29 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 7d cc));..#endif..}
1750: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 ..#endif....#if
1760: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
1770: 4c 4f 47 29 0d 0a 53 51 4c 49 54 45 5f 50 52 49 LOG)..SQLITE_PRI
1780: 56 41 54 45 20 69 6e 74 20 6c 6f 67 43 6f 6e 66 VATE int logConf
1790: 69 67 75 72 65 64 20 3d 20 30 3b 0d 0a 0d 0a 53 igured = 0;....S
17a0: 51 4c 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f QLITE_PRIVATE vo
17b0: 69 64 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f id sqlite3Intero
17c0: 70 4c 6f 67 43 61 6c 6c 62 61 63 6b 28 76 6f 69 pLogCallback(voi
17d0: 64 20 2a 70 41 72 67 2c 20 69 6e 74 20 69 43 6f d *pArg, int iCo
17e0: 64 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a de, const char *
17f0: 7a 4d 73 67 29 7b 0d 0a 20 20 73 71 6c 69 74 65 zMsg){.. sqlite
1800: 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 49 3InteropDebug("I
1810: 4e 54 45 52 4f 50 5f 4c 4f 47 20 28 25 64 29 20 NTEROP_LOG (%d)
1820: 25 73 5c 6e 22 2c 20 69 43 6f 64 65 2c 20 7a 4d %s\n", iCode, zM
1830: 73 67 29 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d sg);..}..#endif.
1840: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e ...SQLITE_API in
1850: 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 t WINAPI sqlite3
1860: 5f 6d 61 6c 6c 6f 63 5f 73 69 7a 65 5f 69 6e 74 _malloc_size_int
1870: 65 72 6f 70 28 76 6f 69 64 20 2a 70 29 7b 0d 0a erop(void *p){..
1880: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 return sqlite3
1890: 4d 61 6c 6c 6f 63 53 69 7a 65 28 70 29 3b 0d 0a MallocSize(p);..
18a0: 7d 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 }....#if defined
18b0: 28 49 4e 54 45 52 4f 50 5f 4c 45 47 41 43 59 5f (INTEROP_LEGACY_
18c0: 43 4c 4f 53 45 29 20 7c 7c 20 53 51 4c 49 54 45 CLOSE) || SQLITE
18d0: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
18e0: 3c 20 33 30 30 37 30 31 34 0d 0a 53 51 4c 49 54 < 3007014..SQLIT
18f0: 45 5f 50 52 49 56 41 54 45 20 76 6f 69 64 20 2a E_PRIVATE void *
1900: 20 73 71 6c 69 74 65 33 44 62 4d 61 6c 6c 6f 63 sqlite3DbMalloc
1910: 5a 65 72 6f 5f 69 6e 74 65 72 6f 70 28 73 71 6c Zero_interop(sql
1920: 69 74 65 33 20 2a 64 62 2c 20 69 6e 74 20 6e 29 ite3 *db, int n)
1930: 0d 0a 7b 0d 0a 20 20 76 6f 69 64 20 2a 70 3b 0d ..{.. void *p;.
1940: 0a 20 20 69 66 20 28 64 62 29 20 7b 0d 0a 20 20 . if (db) {..
1950: 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f sqlite3_mutex_
1960: 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 enter(db->mutex)
1970: 3b 0d 0a 20 20 7d 0d 0a 20 20 70 20 3d 20 73 71 ;.. }.. p = sq
1980: 6c 69 74 65 33 44 62 4d 61 6c 6c 6f 63 5a 65 72 lite3DbMallocZer
1990: 6f 28 64 62 2c 6e 29 3b 0d 0a 20 20 69 66 20 28 o(db,n);.. if (
19a0: 64 62 29 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 db) {.. sqlit
19b0: 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 e3_mutex_leave(d
19c0: 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d b->mutex);.. }.
19d0: 0a 20 20 72 65 74 75 72 6e 20 70 3b 0d 0a 7d 0d . return p;..}.
19e0: 0a 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 41 54 ...SQLITE_PRIVAT
19f0: 45 20 76 6f 69 64 20 73 71 6c 69 74 65 33 44 62 E void sqlite3Db
1a00: 46 72 65 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c Free_interop(sql
1a10: 69 74 65 33 20 2a 64 62 2c 20 76 6f 69 64 20 2a ite3 *db, void *
1a20: 70 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 64 62 29 p)..{.. if (db)
1a30: 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f {.. sqlite3_
1a40: 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e mutex_enter(db->
1a50: 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a 20 20 mutex);.. }..
1a60: 69 66 20 28 70 29 20 7b 0d 0a 20 20 20 20 73 71 if (p) {.. sq
1a70: 6c 69 74 65 33 4d 65 6d 64 65 62 75 67 53 65 74 lite3MemdebugSet
1a80: 54 79 70 65 28 70 2c 20 4d 45 4d 54 59 50 45 5f Type(p, MEMTYPE_
1a90: 44 42 7c 4d 45 4d 54 59 50 45 5f 48 45 41 50 29 DB|MEMTYPE_HEAP)
1aa0: 3b 0d 0a 20 20 7d 0d 0a 20 20 73 71 6c 69 74 65 ;.. }.. sqlite
1ab0: 33 44 62 46 72 65 65 28 64 62 2c 70 29 3b 0d 0a 3DbFree(db,p);..
1ac0: 20 20 69 66 20 28 64 62 29 20 7b 0d 0a 20 20 20 if (db) {..
1ad0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
1ae0: 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
1af0: 0d 0a 20 20 7d 0d 0a 7d 0d 0a 23 65 6e 64 69 66 .. }..}..#endif
1b00: 0d 0a 0d 0a 2f 2a 0d 0a 20 20 20 20 54 68 65 20 ..../*.. The
1b10: 67 6f 61 6c 20 6f 66 20 74 68 69 73 20 76 65 72 goal of this ver
1b20: 73 69 6f 6e 20 6f 66 20 63 6c 6f 73 65 20 69 73 sion of close is
1b30: 20 64 69 66 66 65 72 65 6e 74 20 74 68 61 6e 20 different than
1b40: 74 68 61 74 20 6f 66 20 73 71 6c 69 74 65 33 5f that of sqlite3_
1b50: 63 6c 6f 73 65 28 29 2c 20 61 6e 64 20 69 73 20 close(), and is
1b60: 64 65 73 69 67 6e 65 64 20 74 6f 20 6c 65 6e 64 designed to lend
1b70: 20 69 74 73 65 6c 66 20 62 65 74 74 65 72 20 74 itself better t
1b80: 6f 20 2e 4e 45 54 27 73 20 6e 6f 6e 2d 64 65 74 o .NET's non-det
1b90: 65 72 6d 69 6e 69 73 74 69 63 20 66 69 6e 61 6c erministic final
1ba0: 69 7a 65 72 73 20 61 6e 64 0d 0a 20 20 20 20 74 izers and.. t
1bb0: 68 65 20 47 43 20 74 68 72 65 61 64 2e 20 20 53 he GC thread. S
1bc0: 51 4c 69 74 65 20 77 69 6c 6c 20 6e 6f 74 20 63 QLite will not c
1bd0: 6c 6f 73 65 20 61 20 64 61 74 61 62 61 73 65 20 lose a database
1be0: 69 66 20 73 74 61 74 65 6d 65 6e 74 73 20 61 72 if statements ar
1bf0: 65 20 6f 70 65 6e 20 6f 6e 20 69 74 20 2d 2d 20 e open on it --
1c00: 62 75 74 20 66 6f 72 20 6f 75 72 20 70 75 72 70 but for our purp
1c10: 6f 73 65 73 2c 20 77 65 27 64 20 72 61 74 68 65 oses, we'd rathe
1c20: 72 20 66 69 6e 61 6c 69 7a 65 20 61 6c 6c 20 61 r finalize all a
1c30: 63 74 69 76 65 20 73 74 61 74 65 6d 65 6e 74 73 ctive statements
1c40: 0d 0a 20 20 20 20 61 6e 64 20 66 6f 72 63 69 62 .. and forcib
1c50: 6c 79 20 63 6c 6f 73 65 20 74 68 65 20 64 61 74 ly close the dat
1c60: 61 62 61 73 65 2e 20 20 54 68 65 20 72 65 61 73 abase. The reas
1c70: 6f 6e 20 69 73 20 73 69 6d 70 6c 65 20 2d 2d 20 on is simple --
1c80: 61 20 6c 6f 74 20 6f 66 20 70 65 6f 70 6c 65 20 a lot of people
1c90: 64 6f 6e 27 74 20 44 69 73 70 6f 73 65 28 29 20 don't Dispose()
1ca0: 6f 66 20 74 68 65 69 72 20 6f 62 6a 65 63 74 73 of their objects
1cb0: 20 63 6f 72 72 65 63 74 6c 79 20 61 6e 64 20 6c correctly and l
1cc0: 65 74 20 74 68 65 20 67 61 72 62 61 67 65 20 63 et the garbage c
1cd0: 6f 6c 6c 65 63 74 6f 72 0d 0a 20 20 20 20 64 6f ollector.. do
1ce0: 20 69 74 2e 20 20 54 68 69 73 20 6c 65 61 64 73 it. This leads
1cf0: 20 74 6f 20 75 6e 65 78 70 65 63 74 65 64 20 62 to unexpected b
1d00: 65 68 61 76 69 6f 72 20 77 68 65 6e 20 61 20 75 ehavior when a u
1d10: 73 65 72 20 74 68 69 6e 6b 73 20 74 68 65 79 27 ser thinks they'
1d20: 76 65 20 63 6c 6f 73 65 64 20 61 20 64 61 74 61 ve closed a data
1d30: 62 61 73 65 2c 20 62 75 74 20 69 74 27 73 20 73 base, but it's s
1d40: 74 69 6c 6c 20 6f 70 65 6e 20 62 65 63 61 75 73 till open becaus
1d50: 65 20 6e 6f 74 20 61 6c 6c 20 74 68 65 20 73 74 e not all the st
1d60: 61 74 65 6d 65 6e 74 73 20 68 61 76 65 0d 0a 20 atements have..
1d70: 20 20 20 68 69 74 20 74 68 65 20 47 43 20 79 65 hit the GC ye
1d80: 74 2e 0d 0a 0d 0a 20 20 20 20 53 6f 2c 20 68 65 t..... So, he
1d90: 72 65 20 77 65 20 68 61 76 65 20 61 20 70 72 6f re we have a pro
1da0: 62 6c 65 6d 20 2e 2e 2e 20 2e 4e 45 54 20 68 61 blem ... .NET ha
1db0: 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 s a pointer to a
1dc0: 6e 79 20 6e 75 6d 62 65 72 20 6f 66 20 73 71 6c ny number of sql
1dd0: 69 74 65 33 5f 73 74 6d 74 20 6f 62 6a 65 63 74 ite3_stmt object
1de0: 73 2e 20 20 57 65 20 63 61 6e 27 74 20 63 61 6c s. We can't cal
1df0: 6c 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 l sqlite3_finali
1e00: 7a 65 28 29 20 6f 6e 20 74 68 65 73 65 20 62 65 ze() on these be
1e10: 63 61 75 73 65 0d 0a 20 20 20 20 74 68 65 69 72 cause.. their
1e20: 20 6d 65 6d 6f 72 79 20 69 73 20 66 72 65 65 64 memory is freed
1e30: 20 61 6e 64 20 63 61 6e 20 62 65 20 75 73 65 64 and can be used
1e40: 20 66 6f 72 20 73 6f 6d 65 74 68 69 6e 67 20 65 for something e
1e50: 6c 73 65 2e 20 20 54 68 65 20 47 43 20 74 68 72 lse. The GC thr
1e60: 65 61 64 20 63 6f 75 6c 64 20 70 6f 74 65 6e 74 ead could potent
1e70: 69 61 6c 6c 79 20 74 72 79 20 61 6e 64 20 63 61 ially try and ca
1e80: 6c 6c 20 66 69 6e 61 6c 69 7a 65 20 61 67 61 69 ll finalize agai
1e90: 6e 20 6f 6e 20 74 68 65 20 73 74 61 74 65 6d 65 n on the stateme
1ea0: 6e 74 20 61 66 74 65 72 0d 0a 20 20 20 20 74 68 nt after.. th
1eb0: 61 74 20 6d 65 6d 6f 72 79 20 77 61 73 20 64 65 at memory was de
1ec0: 61 6c 6c 6f 63 61 74 65 64 2e 20 20 42 41 44 2e allocated. BAD.
1ed0: 20 20 53 6f 2c 20 77 68 61 74 20 77 65 20 6e 65 So, what we ne
1ee0: 65 64 20 74 6f 20 64 6f 20 69 73 20 6d 61 6b 65 ed to do is make
1ef0: 20 61 20 63 6f 70 79 20 6f 66 20 65 61 63 68 20 a copy of each
1f00: 73 74 61 74 65 6d 65 6e 74 2c 20 61 6e 64 20 63 statement, and c
1f10: 61 6c 6c 20 66 69 6e 61 6c 69 7a 65 28 29 20 6f all finalize() o
1f20: 6e 20 74 68 65 20 63 6f 70 79 20 2d 2d 20 73 6f n the copy -- so
1f30: 20 74 68 61 74 20 74 68 65 20 6f 72 69 67 69 6e that the origin
1f40: 61 6c 0d 0a 20 20 20 20 73 74 61 74 65 6d 65 6e al.. statemen
1f50: 74 27 73 20 6d 65 6d 6f 72 79 20 69 73 20 70 72 t's memory is pr
1f60: 65 73 65 72 76 65 64 2c 20 61 6e 64 20 6d 61 72 eserved, and mar
1f70: 6b 65 64 20 61 73 20 42 41 44 2c 20 62 75 74 20 ked as BAD, but
1f80: 77 65 20 63 61 6e 20 73 74 69 6c 6c 20 6d 61 6e we can still man
1f90: 61 67 65 20 74 6f 20 66 69 6e 61 6c 69 7a 65 20 age to finalize
1fa0: 65 76 65 72 79 74 68 69 6e 67 20 61 6e 64 20 66 everything and f
1fb0: 6f 72 63 69 62 6c 79 20 63 6c 6f 73 65 20 74 68 orcibly close th
1fc0: 65 20 64 61 74 61 62 61 73 65 2e 20 20 4c 61 74 e database. Lat
1fd0: 65 72 20 77 68 65 6e 20 74 68 65 0d 0a 20 20 20 er when the..
1fe0: 20 47 43 20 67 65 74 73 20 61 72 6f 75 6e 64 20 GC gets around
1ff0: 74 6f 20 63 61 6c 6c 69 6e 67 20 66 69 6e 61 6c to calling final
2000: 69 7a 65 5f 69 6e 74 65 72 6f 70 28 29 20 6f 6e ize_interop() on
2010: 20 74 68 65 20 22 62 61 64 22 20 73 74 61 74 65 the "bad" state
2020: 6d 65 6e 74 2c 20 77 65 20 64 65 74 65 63 74 20 ment, we detect
2030: 74 68 61 74 20 61 6e 64 20 66 69 6e 69 73 68 20 that and finish
2040: 64 65 61 6c 6c 6f 63 61 74 69 6e 67 20 74 68 65 deallocating the
2050: 20 70 6f 69 6e 74 65 72 2e 0d 0a 2a 2f 0d 0a 53 pointer...*/..S
2060: 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 QLITE_API int WI
2070: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6c 6f NAPI sqlite3_clo
2080: 73 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 se_interop(sqlit
2090: 65 33 20 2a 64 62 29 0d 0a 7b 0d 0a 20 20 69 6e e3 *db)..{.. in
20a0: 74 20 72 65 74 3b 0d 0a 23 69 66 20 21 64 65 66 t ret;..#if !def
20b0: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 4c 45 47 ined(INTEROP_LEG
20c0: 41 43 59 5f 43 4c 4f 53 45 29 20 26 26 20 53 51 ACY_CLOSE) && SQ
20d0: 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d LITE_VERSION_NUM
20e0: 42 45 52 20 3e 3d 20 33 30 30 37 30 31 34 0d 0a BER >= 3007014..
20f0: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
2100: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
2110: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 (INTEROP_DEBUG &
2120: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 43 INTEROP_DEBUG_C
2130: 4c 4f 53 45 29 0d 0a 20 20 73 71 6c 69 74 65 33 LOSE).. sqlite3
2140: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 InteropDebug("sq
2150: 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 69 6e 74 65 lite3_close_inte
2160: 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 73 rop(): calling s
2170: 71 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 76 32 28 qlite3_close_v2(
2180: 25 70 29 2e 2e 2e 5c 6e 22 2c 20 64 62 29 3b 0d %p)...\n", db);.
2190: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 .#endif.... ret
21a0: 20 3d 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 = sqlite3_close
21b0: 5f 76 32 28 64 62 29 3b 0d 0a 0d 0a 23 69 66 20 _v2(db);....#if
21c0: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
21d0: 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 DEBUG) && (INTER
21e0: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
21f0: 4f 50 5f 44 45 42 55 47 5f 43 4c 4f 53 45 29 0d OP_DEBUG_CLOSE).
2200: 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f . sqlite3Intero
2210: 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f pDebug("sqlite3_
2220: 63 6c 6f 73 65 5f 69 6e 74 65 72 6f 70 28 29 3a close_interop():
2230: 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 76 sqlite3_close_v
2240: 32 28 25 70 29 20 72 65 74 75 72 6e 65 64 20 25 2(%p) returned %
2250: 64 2e 5c 6e 22 2c 20 64 62 2c 20 72 65 74 29 3b d.\n", db, ret);
2260: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 ..#endif.... re
2270: 74 75 72 6e 20 72 65 74 3b 0d 0a 23 65 6c 73 65 turn ret;..#else
2280: 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 .. ret = sqlite
2290: 33 5f 63 6c 6f 73 65 28 64 62 29 3b 0d 0a 0d 0a 3_close(db);....
22a0: 20 20 69 66 20 28 72 65 74 20 3d 3d 20 53 51 4c if (ret == SQL
22b0: 49 54 45 5f 42 55 53 59 29 0d 0a 20 20 7b 0d 0a ITE_BUSY).. {..
22c0: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
22d0: 78 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 x_enter(db->mute
22e0: 78 29 3b 0d 0a 0d 0a 20 20 20 20 69 66 20 28 21 x);.... if (!
22f0: 64 62 2d 3e 70 56 64 62 65 29 0d 0a 20 20 20 20 db->pVdbe)..
2300: 7b 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 {.. sqlite3
2310: 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d _mutex_leave(db-
2320: 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 20 20 20 20 >mutex);..
2330: 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 20 20 20 return ret;..
2340: 20 7d 0d 0a 0d 0a 20 20 20 20 77 68 69 6c 65 20 }.... while
2350: 28 64 62 2d 3e 70 56 64 62 65 29 0d 0a 20 20 20 (db->pVdbe)..
2360: 20 7b 0d 0a 20 20 20 20 20 20 2f 2a 20 4d 61 6b {.. /* Mak
2370: 65 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 e a copy of the
2380: 66 69 72 73 74 20 70 72 65 70 61 72 65 64 20 73 first prepared s
2390: 74 61 74 65 6d 65 6e 74 20 2a 2f 0d 0a 20 20 20 tatement */..
23a0: 20 20 20 56 64 62 65 20 2a 70 20 3d 20 28 56 64 Vdbe *p = (Vd
23b0: 62 65 20 2a 29 73 71 6c 69 74 65 33 44 62 4d 61 be *)sqlite3DbMa
23c0: 6c 6c 6f 63 5a 65 72 6f 5f 69 6e 74 65 72 6f 70 llocZero_interop
23d0: 28 64 62 2c 20 73 69 7a 65 6f 66 28 56 64 62 65 (db, sizeof(Vdbe
23e0: 29 29 3b 0d 0a 20 20 20 20 20 20 56 64 62 65 20 ));.. Vdbe
23f0: 2a 70 6f 20 3d 20 64 62 2d 3e 70 56 64 62 65 3b *po = db->pVdbe;
2400: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 28 21 70 .... if (!p
2410: 29 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 ).. {..
2420: 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 54 45 ret = SQLITE
2430: 5f 4e 4f 4d 45 4d 3b 0d 0a 20 20 20 20 20 20 20 _NOMEM;..
2440: 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 20 20 7d break;.. }
2450: 0d 0a 0d 0a 20 20 20 20 20 20 43 6f 70 79 4d 65 .... CopyMe
2460: 6d 6f 72 79 28 70 2c 20 70 6f 2c 20 73 69 7a 65 mory(p, po, size
2470: 6f 66 28 56 64 62 65 29 29 3b 0d 0a 0d 0a 20 20 of(Vdbe));....
2480: 20 20 20 20 2f 2a 20 50 75 74 20 69 74 20 6f 6e /* Put it on
2490: 20 74 68 65 20 63 68 61 69 6e 20 73 6f 20 77 65 the chain so we
24a0: 20 63 61 6e 20 66 72 65 65 20 69 74 20 2a 2f 0d can free it */.
24b0: 0a 20 20 20 20 20 20 64 62 2d 3e 70 56 64 62 65 . db->pVdbe
24c0: 20 3d 20 70 3b 0d 0a 20 20 20 20 20 20 72 65 74 = p;.. ret
24d0: 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c = sqlite3_final
24e0: 69 7a 65 28 28 73 71 6c 69 74 65 33 5f 73 74 6d ize((sqlite3_stm
24f0: 74 20 2a 29 70 29 3b 20 2f 2a 20 54 68 69 73 20 t *)p); /* This
2500: 77 69 6c 6c 20 61 6c 73 6f 20 66 72 65 65 20 74 will also free t
2510: 68 65 20 63 6f 70 79 27 73 20 6d 65 6d 6f 72 79 he copy's memory
2520: 20 2a 2f 0d 0a 20 20 20 20 20 20 69 66 20 28 72 */.. if (r
2530: 65 74 29 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 et).. {..
2540: 20 20 20 20 20 20 2f 2a 20 66 69 6e 61 6c 69 7a /* finaliz
2550: 65 20 66 61 69 6c 65 64 20 2d 2d 20 73 6f 20 77 e failed -- so w
2560: 65 20 6d 75 73 74 20 70 75 74 20 62 61 63 6b 20 e must put back
2570: 61 6e 79 74 68 69 6e 67 20 77 65 20 6d 75 6e 67 anything we mung
2580: 65 64 20 2a 2f 0d 0a 20 20 20 20 20 20 20 20 43 ed */.. C
2590: 6f 70 79 4d 65 6d 6f 72 79 28 70 6f 2c 20 70 2c opyMemory(po, p,
25a0: 20 73 69 7a 65 6f 66 28 56 64 62 65 29 29 3b 0d sizeof(Vdbe));.
25b0: 0a 20 20 20 20 20 20 20 20 64 62 2d 3e 70 56 64 . db->pVd
25c0: 62 65 20 3d 20 70 6f 3b 0d 0a 0d 0a 20 20 20 20 be = po;....
25d0: 20 20 20 20 2f 2a 0d 0a 20 20 20 20 20 20 20 20 /*..
25e0: 2a 2a 20 4e 4f 54 45 3a 20 4f 6b 2c 20 77 65 20 ** NOTE: Ok, we
25f0: 6d 75 73 74 20 66 72 65 65 20 74 68 69 73 20 62 must free this b
2600: 6c 6f 63 6b 20 74 68 61 74 20 2a 77 65 2a 20 61 lock that *we* a
2610: 6c 6c 6f 63 61 74 65 64 20 28 61 62 6f 76 65 29 llocated (above)
2620: 20 73 69 6e 63 65 0d 0a 20 20 20 20 20 20 20 20 since..
2630: 2a 2a 20 20 20 20 20 20 20 66 69 6e 61 6c 69 7a ** finaliz
2640: 65 20 64 69 64 20 6e 6f 74 20 64 6f 20 73 6f 2e e did not do so.
2650: 0d 0a 20 20 20 20 20 20 20 20 2a 2f 0d 0a 20 20 .. */..
2660: 20 20 20 20 20 20 73 71 6c 69 74 65 33 44 62 46 sqlite3DbF
2670: 72 65 65 5f 69 6e 74 65 72 6f 70 28 64 62 2c 20 ree_interop(db,
2680: 70 29 3b 0d 0a 20 20 20 20 20 20 20 20 62 72 65 p);.. bre
2690: 61 6b 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 ak;.. }..
26a0: 20 20 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 20 else..
26b0: 7b 0d 0a 20 20 20 20 20 20 20 20 5a 65 72 6f 4d {.. ZeroM
26c0: 65 6d 6f 72 79 28 70 6f 2c 20 73 69 7a 65 6f 66 emory(po, sizeof
26d0: 28 56 64 62 65 29 29 3b 0d 0a 20 20 20 20 20 20 (Vdbe));..
26e0: 20 20 70 6f 2d 3e 6d 61 67 69 63 20 3d 20 56 44 po->magic = VD
26f0: 42 45 5f 4d 41 47 49 43 5f 44 45 41 44 3b 0d 0a BE_MAGIC_DEAD;..
2700: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a }.. }..
2710: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
2720: 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
2730: 78 29 3b 0d 0a 20 20 20 20 72 65 74 20 3d 20 73 x);.. ret = s
2740: 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 64 62 29 qlite3_close(db)
2750: 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e ;.. }.. return
2760: 20 72 65 74 3b 0d 0a 23 65 6e 64 69 66 0d 0a 7d ret;..#endif..}
2770: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
2780: 49 4e 54 45 52 4f 50 5f 4c 4f 47 29 0d 0a 53 51 INTEROP_LOG)..SQ
2790: 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e LITE_API int WIN
27a0: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 API sqlite3_conf
27b0: 69 67 5f 6c 6f 67 5f 69 6e 74 65 72 6f 70 28 29 ig_log_interop()
27c0: 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d ..{.. int ret;.
27d0: 0a 20 20 69 66 28 20 21 6c 6f 67 43 6f 6e 66 69 . if( !logConfi
27e0: 67 75 72 65 64 20 29 7b 0d 0a 20 20 20 20 72 65 gured ){.. re
27f0: 74 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6e 66 t = sqlite3_conf
2800: 69 67 28 53 51 4c 49 54 45 5f 43 4f 4e 46 49 47 ig(SQLITE_CONFIG
2810: 5f 4c 4f 47 2c 20 73 71 6c 69 74 65 33 49 6e 74 _LOG, sqlite3Int
2820: 65 72 6f 70 4c 6f 67 43 61 6c 6c 62 61 63 6b 2c eropLogCallback,
2830: 20 30 29 3b 0d 0a 20 20 20 20 69 66 28 20 72 65 0);.. if( re
2840: 74 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0d t==SQLITE_OK ){.
2850: 0a 20 20 20 20 20 20 6c 6f 67 43 6f 6e 66 69 67 . logConfig
2860: 75 72 65 64 20 3d 20 31 3b 0d 0a 20 20 20 20 7d ured = 1;.. }
2870: 65 6c 73 65 7b 0d 0a 20 20 20 20 20 20 73 71 6c else{.. sql
2880: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
2890: 28 22 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 ("sqlite3_config
28a0: 5f 6c 6f 67 5f 69 6e 74 65 72 6f 70 28 29 3a 20 _log_interop():
28b0: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 53 sqlite3_config(S
28c0: 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 4c 4f 47 QLITE_CONFIG_LOG
28d0: 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e ) returned %d.\n
28e0: 22 2c 20 72 65 74 29 3b 0d 0a 20 20 20 20 7d 0d ", ret);.. }.
28f0: 0a 20 20 7d 65 6c 73 65 7b 0d 0a 20 20 20 20 72 . }else{.. r
2900: 65 74 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d et = SQLITE_OK;.
2910: 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 72 . }.. return r
2920: 65 74 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a et;..}..#endif..
2930: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e ..SQLITE_API con
2940: 73 74 20 63 68 61 72 20 2a 57 49 4e 41 50 49 20 st char *WINAPI
2950: 69 6e 74 65 72 6f 70 5f 6c 69 62 76 65 72 73 69 interop_libversi
2960: 6f 6e 28 76 6f 69 64 29 0d 0a 7b 0d 0a 20 20 72 on(void)..{.. r
2970: 65 74 75 72 6e 20 49 4e 54 45 52 4f 50 5f 56 45 eturn INTEROP_VE
2980: 52 53 49 4f 4e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c RSION;..}....SQL
2990: 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 ITE_API const ch
29a0: 61 72 20 2a 57 49 4e 41 50 49 20 69 6e 74 65 72 ar *WINAPI inter
29b0: 6f 70 5f 73 6f 75 72 63 65 69 64 28 76 6f 69 64 op_sourceid(void
29c0: 29 0d 0a 7b 0d 0a 20 20 72 65 74 75 72 6e 20 49 )..{.. return I
29d0: 4e 54 45 52 4f 50 5f 53 4f 55 52 43 45 5f 49 44 NTEROP_SOURCE_ID
29e0: 20 22 20 22 20 49 4e 54 45 52 4f 50 5f 53 4f 55 " " INTEROP_SOU
29f0: 52 43 45 5f 54 49 4d 45 53 54 41 4d 50 3b 0d 0a RCE_TIMESTAMP;..
2a00: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
2a10: 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 int WINAPI sqlit
2a20: 65 33 5f 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 28 e3_open_interop(
2a30: 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 69 6c 65 const char *file
2a40: 6e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 name, const char
2a50: 20 2a 76 66 73 4e 61 6d 65 2c 20 69 6e 74 20 66 *vfsName, int f
2a60: 6c 61 67 73 2c 20 69 6e 74 20 65 78 74 46 75 6e lags, int extFun
2a70: 63 73 2c 20 73 71 6c 69 74 65 33 20 2a 2a 70 70 cs, sqlite3 **pp
2a80: 64 62 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 db)..{.. int re
2a90: 74 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 t;....#if define
2aa0: 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 d(INTEROP_DEBUG)
2ab0: 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 && (INTEROP_DEB
2ac0: 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 UG & INTEROP_DEB
2ad0: 55 47 5f 4f 50 45 4e 29 0d 0a 20 20 73 71 6c 69 UG_OPEN).. sqli
2ae0: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
2af0: 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 6e "sqlite3_open_in
2b00: 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 terop(): calling
2b10: 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 76 32 sqlite3_open_v2
2b20: 28 5c 22 25 73 5c 22 2c 20 5c 22 25 73 5c 22 2c (\"%s\", \"%s\",
2b30: 20 25 64 2c 20 25 64 2c 20 25 70 29 2e 2e 2e 5c %d, %d, %p)...\
2b40: 6e 22 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 76 66 n", filename, vf
2b50: 73 4e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 65 78 sName, flags, ex
2b60: 74 46 75 6e 63 73 2c 20 70 70 64 62 29 3b 0d 0a tFuncs, ppdb);..
2b70: 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 20 #endif.... ret
2b80: 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 76 = sqlite3_open_v
2b90: 32 28 66 69 6c 65 6e 61 6d 65 2c 20 70 70 64 62 2(filename, ppdb
2ba0: 2c 20 66 6c 61 67 73 2c 20 76 66 73 4e 61 6d 65 , flags, vfsName
2bb0: 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 );....#if define
2bc0: 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 d(INTEROP_DEBUG)
2bd0: 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 && (INTEROP_DEB
2be0: 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 UG & INTEROP_DEB
2bf0: 55 47 5f 4f 50 45 4e 29 0d 0a 20 20 73 71 6c 69 UG_OPEN).. sqli
2c00: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
2c10: 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 6e "sqlite3_open_in
2c20: 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 terop(): sqlite3
2c30: 5f 6f 70 65 6e 5f 76 32 28 5c 22 25 73 5c 22 2c _open_v2(\"%s\",
2c40: 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 64 2c \"%s\", %d, %d,
2c50: 20 25 70 29 20 72 65 74 75 72 6e 65 64 20 25 64 %p) returned %d
2c60: 2e 5c 6e 22 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 .\n", filename,
2c70: 76 66 73 4e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 vfsName, flags,
2c80: 65 78 74 46 75 6e 63 73 2c 20 70 70 64 62 2c 20 extFuncs, ppdb,
2c90: 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d ret);..#endif...
2ca0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 .#if defined(INT
2cb0: 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f 4e 5f 46 EROP_EXTENSION_F
2cc0: 55 4e 43 54 49 4f 4e 53 29 0d 0a 20 20 69 66 20 UNCTIONS).. if
2cd0: 28 28 72 65 74 20 3d 3d 20 53 51 4c 49 54 45 5f ((ret == SQLITE_
2ce0: 4f 4b 29 20 26 26 20 70 70 64 62 20 26 26 20 65 OK) && ppdb && e
2cf0: 78 74 46 75 6e 63 73 29 0d 0a 20 20 20 20 52 65 xtFuncs).. Re
2d00: 67 69 73 74 65 72 45 78 74 65 6e 73 69 6f 6e 46 gisterExtensionF
2d10: 75 6e 63 74 69 6f 6e 73 28 2a 70 70 64 62 29 3b unctions(*ppdb);
2d20: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 ..#endif.... re
2d30: 74 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a turn ret;..}....
2d40: 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 SQLITE_API int W
2d50: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 6f 70 INAPI sqlite3_op
2d60: 65 6e 31 36 5f 69 6e 74 65 72 6f 70 28 63 6f 6e en16_interop(con
2d70: 73 74 20 63 68 61 72 20 2a 66 69 6c 65 6e 61 6d st char *filenam
2d80: 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 76 e, const char *v
2d90: 66 73 4e 61 6d 65 2c 20 69 6e 74 20 66 6c 61 67 fsName, int flag
2da0: 73 2c 20 69 6e 74 20 65 78 74 46 75 6e 63 73 2c s, int extFuncs,
2db0: 20 73 71 6c 69 74 65 33 20 2a 2a 70 70 64 62 29 sqlite3 **ppdb)
2dc0: 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d ..{.. int ret;.
2dd0: 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 ...#if defined(I
2de0: 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 NTEROP_DEBUG) &&
2df0: 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 (INTEROP_DEBUG
2e00: 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f & INTEROP_DEBUG_
2e10: 4f 50 45 4e 31 36 29 0d 0a 20 20 73 71 6c 69 74 OPEN16).. sqlit
2e20: 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 e3InteropDebug("
2e30: 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 5f 69 sqlite3_open16_i
2e40: 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e nterop(): callin
2e50: 67 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 g sqlite3_open_i
2e60: 6e 74 65 72 6f 70 28 5c 22 25 73 5c 22 2c 20 5c nterop(\"%s\", \
2e70: 22 25 73 5c 22 2c 20 25 64 2c 20 25 64 2c 20 25 "%s\", %d, %d, %
2e80: 70 29 2e 2e 2e 5c 6e 22 2c 20 66 69 6c 65 6e 61 p)...\n", filena
2e90: 6d 65 2c 20 76 66 73 4e 61 6d 65 2c 20 66 6c 61 me, vfsName, fla
2ea0: 67 73 2c 20 65 78 74 46 75 6e 63 73 2c 20 70 70 gs, extFuncs, pp
2eb0: 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a db);..#endif....
2ec0: 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 5f ret = sqlite3_
2ed0: 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 28 66 69 6c open_interop(fil
2ee0: 65 6e 61 6d 65 2c 20 76 66 73 4e 61 6d 65 2c 20 ename, vfsName,
2ef0: 66 6c 61 67 73 2c 20 65 78 74 46 75 6e 63 73 2c flags, extFuncs,
2f00: 20 70 70 64 62 29 3b 0d 0a 0d 0a 23 69 66 20 64 ppdb);....#if d
2f10: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 efined(INTEROP_D
2f20: 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f EBUG) && (INTERO
2f30: 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f P_DEBUG & INTERO
2f40: 50 5f 44 45 42 55 47 5f 4f 50 45 4e 31 36 29 0d P_DEBUG_OPEN16).
2f50: 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f . sqlite3Intero
2f60: 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f pDebug("sqlite3_
2f70: 6f 70 65 6e 31 36 5f 69 6e 74 65 72 6f 70 28 29 open16_interop()
2f80: 3a 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 : sqlite3_open_i
2f90: 6e 74 65 72 6f 70 28 5c 22 25 73 5c 22 2c 20 5c nterop(\"%s\", \
2fa0: 22 25 73 5c 22 2c 20 25 64 2c 20 25 64 2c 20 25 "%s\", %d, %d, %
2fb0: 70 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c p) returned %d.\
2fc0: 6e 22 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 76 66 n", filename, vf
2fd0: 73 4e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 65 78 sName, flags, ex
2fe0: 74 46 75 6e 63 73 2c 20 70 70 64 62 2c 20 72 65 tFuncs, ppdb, re
2ff0: 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 t);..#endif....
3000: 20 69 66 20 28 28 72 65 74 20 3d 3d 20 53 51 4c if ((ret == SQL
3010: 49 54 45 5f 4f 4b 29 20 26 26 20 70 70 64 62 20 ITE_OK) && ppdb
3020: 26 26 20 21 44 62 48 61 73 50 72 6f 70 65 72 74 && !DbHasPropert
3030: 79 28 2a 70 70 64 62 2c 20 30 2c 20 44 42 5f 53 y(*ppdb, 0, DB_S
3040: 63 68 65 6d 61 4c 6f 61 64 65 64 29 29 0d 0a 20 chemaLoaded))..
3050: 20 7b 0d 0a 20 20 20 20 45 4e 43 28 2a 70 70 64 {.. ENC(*ppd
3060: 62 29 20 3d 20 53 51 4c 49 54 45 5f 55 54 46 31 b) = SQLITE_UTF1
3070: 36 4e 41 54 49 56 45 3b 0d 0a 0d 0a 23 69 66 20 6NATIVE;....#if
3080: 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e SQLITE_VERSION_N
3090: 55 4d 42 45 52 20 3e 3d 20 33 30 30 38 30 30 38 UMBER >= 3008008
30a0: 0d 0a 20 20 20 20 2f 2f 0d 0a 20 20 20 20 2f 2f .. //.. //
30b0: 20 42 55 47 46 49 58 3a 20 53 65 65 20 74 69 63 BUGFIX: See tic
30c0: 6b 65 74 20 5b 37 63 31 35 31 61 32 66 30 65 32 ket [7c151a2f0e2
30d0: 32 38 30 34 63 5d 2e 0d 0a 20 20 20 20 2f 2f 0d 2804c]... //.
30e0: 0a 20 20 20 20 53 43 48 45 4d 41 5f 45 4e 43 28 . SCHEMA_ENC(
30f0: 2a 70 70 64 62 29 20 3d 20 53 51 4c 49 54 45 5f *ppdb) = SQLITE_
3100: 55 54 46 31 36 4e 41 54 49 56 45 3b 0d 0a 23 65 UTF16NATIVE;..#e
3110: 6e 64 69 66 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 72 ndif.. }.... r
3120: 65 74 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 0d eturn ret;..}...
3130: 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 .SQLITE_API cons
3140: 74 20 63 68 61 72 20 2a 57 49 4e 41 50 49 20 73 t char *WINAPI s
3150: 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 5f 69 6e qlite3_errmsg_in
3160: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 terop(sqlite3 *d
3170: 62 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b b, int *plen)..{
3180: 0d 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a .. const char *
3190: 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 65 pval = sqlite3_e
31a0: 72 72 6d 73 67 28 64 62 29 3b 0d 0a 20 20 69 66 rrmsg(db);.. if
31b0: 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 (plen) *plen =
31c0: 70 76 61 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 pval ? strlen(pv
31d0: 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 al) : 0;.. retu
31e0: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
31f0: 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 QLITE_API int WI
3200: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 68 61 NAPI sqlite3_cha
3210: 6e 67 65 73 5f 69 6e 74 65 72 6f 70 28 73 71 6c nges_interop(sql
3220: 69 74 65 33 20 2a 64 62 29 0d 0a 7b 0d 0a 20 20 ite3 *db)..{..
3230: 69 6e 74 20 72 65 73 75 6c 74 3b 0d 0a 0d 0a 23 int result;....#
3240: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
3250: 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e OP_DEBUG) && (IN
3260: 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e TEROP_DEBUG & IN
3270: 54 45 52 4f 50 5f 44 45 42 55 47 5f 43 48 41 4e TEROP_DEBUG_CHAN
3280: 47 45 53 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 GES).. sqlite3I
3290: 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c nteropDebug("sql
32a0: 69 74 65 33 5f 63 68 61 6e 67 65 73 5f 69 6e 74 ite3_changes_int
32b0: 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 erop(): calling
32c0: 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 28 sqlite3_changes(
32d0: 25 70 29 2e 2e 2e 5c 6e 22 2c 20 64 62 29 3b 0d %p)...\n", db);.
32e0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 6e 64 .#endif....#ifnd
32f0: 65 66 20 4e 44 45 42 55 47 0d 0a 20 20 69 66 20 ef NDEBUG.. if
3300: 28 21 64 62 29 0d 0a 20 20 20 20 20 20 73 71 6c (!db).. sql
3310: 69 74 65 33 49 6e 74 65 72 6f 70 42 72 65 61 6b ite3InteropBreak
3320: 28 22 6e 75 6c 6c 20 64 61 74 61 62 61 73 65 20 ("null database
3330: 68 61 6e 64 6c 65 20 66 6f 72 20 73 71 6c 69 74 handle for sqlit
3340: 65 33 5f 63 68 61 6e 67 65 73 28 29 22 29 3b 0d e3_changes()");.
3350: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 73 .#endif.... res
3360: 75 6c 74 20 3d 20 73 71 6c 69 74 65 33 5f 63 68 ult = sqlite3_ch
3370: 61 6e 67 65 73 28 64 62 29 3b 0d 0a 0d 0a 23 69 anges(db);....#i
3380: 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f f defined(INTERO
3390: 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 P_DEBUG) && (INT
33a0: 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 EROP_DEBUG & INT
33b0: 45 52 4f 50 5f 44 45 42 55 47 5f 43 48 41 4e 47 EROP_DEBUG_CHANG
33c0: 45 53 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e ES).. sqlite3In
33d0: 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 teropDebug("sqli
33e0: 74 65 33 5f 63 68 61 6e 67 65 73 5f 69 6e 74 65 te3_changes_inte
33f0: 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 63 rop(): sqlite3_c
3400: 68 61 6e 67 65 73 28 25 70 29 20 72 65 74 75 72 hanges(%p) retur
3410: 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 64 62 2c 20 ned %d.\n", db,
3420: 72 65 73 75 6c 74 29 3b 0d 0a 23 65 6e 64 69 66 result);..#endif
3430: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 73 .... return res
3440: 75 6c 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 ult;..}....SQLIT
3450: 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 E_API int WINAPI
3460: 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 sqlite3_prepare
3470: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
3480: 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 *db, const char
3490: 20 2a 73 71 6c 2c 20 69 6e 74 20 6e 62 79 74 65 *sql, int nbyte
34a0: 73 2c 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 s, sqlite3_stmt
34b0: 2a 2a 70 70 73 74 6d 74 2c 20 63 6f 6e 73 74 20 **ppstmt, const
34c0: 63 68 61 72 20 2a 2a 70 7a 74 61 69 6c 2c 20 69 char **pztail, i
34d0: 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 nt *plen)..{..
34e0: 69 6e 74 20 6e 3b 0d 0a 0d 0a 23 69 66 20 64 65 int n;....#if de
34f0: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
3500: 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 BUG) && (INTEROP
3510: 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 _DEBUG & INTEROP
3520: 5f 44 45 42 55 47 5f 50 52 45 50 41 52 45 29 0d _DEBUG_PREPARE).
3530: 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f . sqlite3Intero
3540: 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f pDebug("sqlite3_
3550: 70 72 65 70 61 72 65 5f 69 6e 74 65 72 6f 70 28 prepare_interop(
3560: 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 ): calling sqlit
3570: 65 33 5f 70 72 65 70 61 72 65 28 25 70 2c 20 5c e3_prepare(%p, \
3580: 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 2e 2e "%s\", %d, %p)..
3590: 2e 5c 6e 22 2c 20 64 62 2c 20 73 71 6c 2c 20 6e .\n", db, sql, n
35a0: 62 79 74 65 73 2c 20 70 70 73 74 6d 74 29 3b 0d bytes, ppstmt);.
35b0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 53 .#endif....#if S
35c0: 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 QLITE_VERSION_NU
35d0: 4d 42 45 52 20 3e 3d 20 33 30 30 33 30 30 39 0d MBER >= 3003009.
35e0: 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 70 . n = sqlite3_p
35f0: 72 65 70 61 72 65 5f 76 32 28 64 62 2c 20 73 71 repare_v2(db, sq
3600: 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 73 74 6d l, nbytes, ppstm
3610: 74 2c 20 70 7a 74 61 69 6c 29 3b 0d 0a 23 65 6c t, pztail);..#el
3620: 73 65 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 se.. n = sqlite
3630: 33 5f 70 72 65 70 61 72 65 28 64 62 2c 20 73 71 3_prepare(db, sq
3640: 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 73 74 6d l, nbytes, ppstm
3650: 74 2c 20 70 7a 74 61 69 6c 29 3b 0d 0a 23 65 6e t, pztail);..#en
3660: 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e dif....#if defin
3670: 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ed(INTEROP_DEBUG
3680: 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 ) && (INTEROP_DE
3690: 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 BUG & INTEROP_DE
36a0: 42 55 47 5f 50 52 45 50 41 52 45 29 0d 0a 20 20 BUG_PREPARE)..
36b0: 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 sqlite3InteropDe
36c0: 62 75 67 28 22 73 71 6c 69 74 65 33 5f 70 72 65 bug("sqlite3_pre
36d0: 70 61 72 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 pare_interop():
36e0: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 28 sqlite3_prepare(
36f0: 25 70 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 %p, \"%s\", %d,
3700: 25 70 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e %p) returned %d.
3710: 5c 6e 22 2c 20 64 62 2c 20 73 71 6c 2c 20 6e 62 \n", db, sql, nb
3720: 79 74 65 73 2c 20 70 70 73 74 6d 74 2c 20 6e 29 ytes, ppstmt, n)
3730: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 69 ;..#endif.... i
3740: 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d f (plen) *plen =
3750: 20 28 70 7a 74 61 69 6c 20 26 26 20 2a 70 7a 74 (pztail && *pzt
3760: 61 69 6c 29 20 3f 20 73 74 72 6c 65 6e 28 2a 70 ail) ? strlen(*p
3770: 7a 74 61 69 6c 29 20 3a 20 30 3b 0d 0a 0d 0a 20 ztail) : 0;....
3780: 20 72 65 74 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d return n;..}...
3790: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
37a0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 70 WINAPI sqlite3_p
37b0: 72 65 70 61 72 65 31 36 5f 69 6e 74 65 72 6f 70 repare16_interop
37c0: 28 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 63 6f (sqlite3 *db, co
37d0: 6e 73 74 20 76 6f 69 64 20 2a 73 71 6c 2c 20 69 nst void *sql, i
37e0: 6e 74 20 6e 63 68 61 72 73 2c 20 73 71 6c 69 74 nt nchars, sqlit
37f0: 65 33 5f 73 74 6d 74 20 2a 2a 70 70 73 74 6d 74 e3_stmt **ppstmt
3800: 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 2a 70 , const void **p
3810: 7a 74 61 69 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e ztail, int *plen
3820: 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a )..{.. int n;..
3830: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
3840: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
3850: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 (INTEROP_DEBUG &
3860: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 INTEROP_DEBUG_P
3870: 52 45 50 41 52 45 31 36 29 0d 0a 20 20 73 71 6c REPARE16).. sql
3880: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
3890: 28 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 ("sqlite3_prepar
38a0: 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c e_interop(): cal
38b0: 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 70 72 65 ling sqlite3_pre
38c0: 70 61 72 65 31 36 28 25 70 2c 20 5c 22 25 73 5c pare16(%p, \"%s\
38d0: 22 2c 20 25 64 2c 20 25 70 29 2e 2e 2e 5c 6e 22 ", %d, %p)...\n"
38e0: 2c 20 64 62 2c 20 73 71 6c 2c 20 6e 63 68 61 72 , db, sql, nchar
38f0: 73 2c 20 70 70 73 74 6d 74 29 3b 0d 0a 23 65 6e s, ppstmt);..#en
3900: 64 69 66 0d 0a 0d 0a 23 69 66 20 53 51 4c 49 54 dif....#if SQLIT
3910: 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 E_VERSION_NUMBER
3920: 20 3e 3d 20 33 30 30 33 30 30 39 0d 0a 20 20 6e >= 3003009.. n
3930: 20 3d 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 = sqlite3_prepa
3940: 72 65 31 36 5f 76 32 28 64 62 2c 20 73 71 6c 2c re16_v2(db, sql,
3950: 20 6e 63 68 61 72 73 20 2a 20 73 69 7a 65 6f 66 nchars * sizeof
3960: 28 77 63 68 61 72 5f 74 29 2c 20 70 70 73 74 6d (wchar_t), ppstm
3970: 74 2c 20 70 7a 74 61 69 6c 29 3b 0d 0a 23 65 6c t, pztail);..#el
3980: 73 65 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 se.. n = sqlite
3990: 33 5f 70 72 65 70 61 72 65 31 36 28 64 62 2c 20 3_prepare16(db,
39a0: 73 71 6c 2c 20 6e 63 68 61 72 73 20 2a 20 73 69 sql, nchars * si
39b0: 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 2c 20 70 zeof(wchar_t), p
39c0: 70 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b 0d pstmt, pztail);.
39d0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 .#endif....#if d
39e0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 efined(INTEROP_D
39f0: 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f EBUG) && (INTERO
3a00: 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f P_DEBUG & INTERO
3a10: 50 5f 44 45 42 55 47 5f 50 52 45 50 41 52 45 31 P_DEBUG_PREPARE1
3a20: 36 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 6).. sqlite3Int
3a30: 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 eropDebug("sqlit
3a40: 65 33 5f 70 72 65 70 61 72 65 5f 69 6e 74 65 72 e3_prepare_inter
3a50: 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 70 72 op(): sqlite3_pr
3a60: 65 70 61 72 65 31 36 28 25 70 2c 20 5c 22 25 73 epare16(%p, \"%s
3a70: 5c 22 2c 20 25 64 2c 20 25 70 29 20 72 65 74 75 \", %d, %p) retu
3a80: 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 64 62 2c rned %d.\n", db,
3a90: 20 73 71 6c 2c 20 6e 63 68 61 72 73 2c 20 70 70 sql, nchars, pp
3aa0: 73 74 6d 74 2c 20 6e 29 3b 0d 0a 23 65 6e 64 69 stmt, n);..#endi
3ab0: 66 0d 0a 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 f.... if (plen)
3ac0: 20 2a 70 6c 65 6e 20 3d 20 28 70 7a 74 61 69 6c *plen = (pztail
3ad0: 20 26 26 20 2a 70 7a 74 61 69 6c 29 20 3f 20 77 && *pztail) ? w
3ae0: 63 73 6c 65 6e 28 28 77 63 68 61 72 5f 74 20 2a cslen((wchar_t *
3af0: 29 2a 70 7a 74 61 69 6c 29 20 2a 20 73 69 7a 65 )*pztail) * size
3b00: 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 3b of(wchar_t) : 0;
3b10: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 6e 3b 0d .... return n;.
3b20: 0a 7d 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 .}....#if define
3b30: 64 28 49 4e 54 45 52 4f 50 5f 56 49 52 54 55 41 d(INTEROP_VIRTUA
3b40: 4c 5f 54 41 42 4c 45 29 20 26 26 20 53 51 4c 49 L_TABLE) && SQLI
3b50: 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 TE_VERSION_NUMBE
3b60: 52 20 3e 3d 20 33 30 30 34 30 30 31 0d 0a 53 51 R >= 3004001..SQ
3b70: 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 2a 57 LITE_API void *W
3b80: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 72 INAPI sqlite3_cr
3b90: 65 61 74 65 5f 64 69 73 70 6f 73 61 62 6c 65 5f eate_disposable_
3ba0: 6d 6f 64 75 6c 65 5f 69 6e 74 65 72 6f 70 28 0d module_interop(.
3bb0: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 2c 0d . sqlite3 *db,.
3bc0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
3bd0: 4e 61 6d 65 2c 0d 0a 20 20 73 71 6c 69 74 65 33 Name,.. sqlite3
3be0: 5f 6d 6f 64 75 6c 65 20 2a 70 4d 6f 64 75 6c 65 _module *pModule
3bf0: 2c 0d 0a 20 20 69 6e 74 20 69 56 65 72 73 69 6f ,.. int iVersio
3c00: 6e 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 43 72 65 n,.. int (*xCre
3c10: 61 74 65 29 28 73 71 6c 69 74 65 33 2a 2c 20 76 ate)(sqlite3*, v
3c20: 6f 69 64 20 2a 2c 20 69 6e 74 2c 20 63 6f 6e 73 oid *, int, cons
3c30: 74 20 63 68 61 72 20 2a 63 6f 6e 73 74 2a 2c 20 t char *const*,
3c40: 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 2a 2c sqlite3_vtab **,
3c50: 20 63 68 61 72 2a 2a 29 2c 0d 0a 20 20 69 6e 74 char**),.. int
3c60: 20 28 2a 78 43 6f 6e 6e 65 63 74 29 28 73 71 6c (*xConnect)(sql
3c70: 69 74 65 33 2a 2c 20 76 6f 69 64 20 2a 2c 20 69 ite3*, void *, i
3c80: 6e 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a nt, const char *
3c90: 63 6f 6e 73 74 2a 2c 20 73 71 6c 69 74 65 33 5f const*, sqlite3_
3ca0: 76 74 61 62 20 2a 2a 2c 20 63 68 61 72 2a 2a 29 vtab **, char**)
3cb0: 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 42 65 73 74 ,.. int (*xBest
3cc0: 49 6e 64 65 78 29 28 73 71 6c 69 74 65 33 5f 76 Index)(sqlite3_v
3cd0: 74 61 62 20 2a 2c 20 73 71 6c 69 74 65 33 5f 69 tab *, sqlite3_i
3ce0: 6e 64 65 78 5f 69 6e 66 6f 2a 29 2c 0d 0a 20 20 ndex_info*),..
3cf0: 69 6e 74 20 28 2a 78 44 69 73 63 6f 6e 6e 65 63 int (*xDisconnec
3d00: 74 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 t)(sqlite3_vtab
3d10: 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 44 65 *),.. int (*xDe
3d20: 73 74 72 6f 79 29 28 73 71 6c 69 74 65 33 5f 76 stroy)(sqlite3_v
3d30: 74 61 62 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 tab *),.. int (
3d40: 2a 78 4f 70 65 6e 29 28 73 71 6c 69 74 65 33 5f *xOpen)(sqlite3_
3d50: 76 74 61 62 20 2a 2c 20 73 71 6c 69 74 65 33 5f vtab *, sqlite3_
3d60: 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 2a 29 2c vtab_cursor **),
3d70: 0d 0a 20 20 69 6e 74 20 28 2a 78 43 6c 6f 73 65 .. int (*xClose
3d80: 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 )(sqlite3_vtab_c
3d90: 75 72 73 6f 72 2a 29 2c 0d 0a 20 20 69 6e 74 20 ursor*),.. int
3da0: 28 2a 78 46 69 6c 74 65 72 29 28 73 71 6c 69 74 (*xFilter)(sqlit
3db0: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 2a 2c e3_vtab_cursor*,
3dc0: 20 69 6e 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 int, const char
3dd0: 20 2a 2c 20 69 6e 74 2c 20 73 71 6c 69 74 65 33 *, int, sqlite3
3de0: 5f 76 61 6c 75 65 20 2a 2a 29 2c 0d 0a 20 20 69 _value **),.. i
3df0: 6e 74 20 28 2a 78 4e 65 78 74 29 28 73 71 6c 69 nt (*xNext)(sqli
3e00: 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 2a te3_vtab_cursor*
3e10: 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 45 6f 66 ),.. int (*xEof
3e20: 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 )(sqlite3_vtab_c
3e30: 75 72 73 6f 72 2a 29 2c 0d 0a 20 20 69 6e 74 20 ursor*),.. int
3e40: 28 2a 78 43 6f 6c 75 6d 6e 29 28 73 71 6c 69 74 (*xColumn)(sqlit
3e50: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 2a 2c e3_vtab_cursor*,
3e60: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
3e70: 2a 2c 20 69 6e 74 29 2c 0d 0a 20 20 69 6e 74 20 *, int),.. int
3e80: 28 2a 78 52 6f 77 69 64 29 28 73 71 6c 69 74 65 (*xRowid)(sqlite
3e90: 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 2a 2c 20 3_vtab_cursor*,
3ea0: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 2a 29 sqlite3_int64 *)
3eb0: 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 55 70 64 61 ,.. int (*xUpda
3ec0: 74 65 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 te)(sqlite3_vtab
3ed0: 20 2a 2c 20 69 6e 74 2c 20 73 71 6c 69 74 65 33 *, int, sqlite3
3ee0: 5f 76 61 6c 75 65 20 2a 2a 2c 20 73 71 6c 69 74 _value **, sqlit
3ef0: 65 33 5f 69 6e 74 36 34 20 2a 29 2c 0d 0a 20 20 e3_int64 *),..
3f00: 69 6e 74 20 28 2a 78 42 65 67 69 6e 29 28 73 71 int (*xBegin)(sq
3f10: 6c 69 74 65 33 5f 76 74 61 62 20 2a 29 2c 0d 0a lite3_vtab *),..
3f20: 20 20 69 6e 74 20 28 2a 78 53 79 6e 63 29 28 73 int (*xSync)(s
3f30: 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 29 2c 0d qlite3_vtab *),.
3f40: 0a 20 20 69 6e 74 20 28 2a 78 43 6f 6d 6d 69 74 . int (*xCommit
3f50: 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a )(sqlite3_vtab *
3f60: 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 52 6f 6c ),.. int (*xRol
3f70: 6c 62 61 63 6b 29 28 73 71 6c 69 74 65 33 5f 76 lback)(sqlite3_v
3f80: 74 61 62 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 tab *),.. int (
3f90: 2a 78 46 69 6e 64 46 75 6e 63 74 69 6f 6e 29 28 *xFindFunction)(
3fa0: 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 2c 20 sqlite3_vtab *,
3fb0: 69 6e 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 int, const char
3fc0: 2a 2c 20 76 6f 69 64 20 28 2a 2a 70 78 46 75 6e *, void (**pxFun
3fd0: 63 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 c)(sqlite3_conte
3fe0: 78 74 2a 2c 20 69 6e 74 2c 20 73 71 6c 69 74 65 xt*, int, sqlite
3ff0: 33 5f 76 61 6c 75 65 2a 2a 29 2c 20 76 6f 69 64 3_value**), void
4000: 20 2a 2a 70 70 41 72 67 29 2c 0d 0a 20 20 69 6e **ppArg),.. in
4010: 74 20 28 2a 78 52 65 6e 61 6d 65 29 28 73 71 6c t (*xRename)(sql
4020: 69 74 65 33 5f 76 74 61 62 20 2a 2c 20 63 6f 6e ite3_vtab *, con
4030: 73 74 20 63 68 61 72 20 2a 29 2c 0d 0a 20 20 69 st char *),.. i
4040: 6e 74 20 28 2a 78 53 61 76 65 70 6f 69 6e 74 29 nt (*xSavepoint)
4050: 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 2c (sqlite3_vtab *,
4060: 20 69 6e 74 29 2c 0d 0a 20 20 69 6e 74 20 28 2a int),.. int (*
4070: 78 52 65 6c 65 61 73 65 29 28 73 71 6c 69 74 65 xRelease)(sqlite
4080: 33 5f 76 74 61 62 20 2a 2c 20 69 6e 74 29 2c 0d 3_vtab *, int),.
4090: 0a 20 20 69 6e 74 20 28 2a 78 52 6f 6c 6c 62 61 . int (*xRollba
40a0: 63 6b 54 6f 29 28 73 71 6c 69 74 65 33 5f 76 74 ckTo)(sqlite3_vt
40b0: 61 62 20 2a 2c 20 69 6e 74 29 2c 0d 0a 20 20 76 ab *, int),.. v
40c0: 6f 69 64 20 2a 70 43 6c 69 65 6e 74 44 61 74 61 oid *pClientData
40d0: 2c 0d 0a 20 20 76 6f 69 64 28 2a 78 44 65 73 74 ,.. void(*xDest
40e0: 72 6f 79 4d 6f 64 75 6c 65 29 28 76 6f 69 64 2a royModule)(void*
40f0: 29 0d 0a 29 7b 0d 0a 20 20 69 66 20 28 21 70 4d )..){.. if (!pM
4100: 6f 64 75 6c 65 29 20 72 65 74 75 72 6e 20 30 3b odule) return 0;
4110: 0d 0a 20 20 6d 65 6d 73 65 74 28 70 4d 6f 64 75 .. memset(pModu
4120: 6c 65 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 le, 0, sizeof(*p
4130: 4d 6f 64 75 6c 65 29 29 3b 0d 0a 20 20 70 4d 6f Module));.. pMo
4140: 64 75 6c 65 2d 3e 69 56 65 72 73 69 6f 6e 20 3d dule->iVersion =
4150: 20 69 56 65 72 73 69 6f 6e 3b 0d 0a 20 20 70 4d iVersion;.. pM
4160: 6f 64 75 6c 65 2d 3e 78 43 72 65 61 74 65 20 3d odule->xCreate =
4170: 20 78 43 72 65 61 74 65 3b 0d 0a 20 20 70 4d 6f xCreate;.. pMo
4180: 64 75 6c 65 2d 3e 78 43 6f 6e 6e 65 63 74 20 3d dule->xConnect =
4190: 20 78 43 6f 6e 6e 65 63 74 3b 0d 0a 20 20 70 4d xConnect;.. pM
41a0: 6f 64 75 6c 65 2d 3e 78 42 65 73 74 49 6e 64 65 odule->xBestInde
41b0: 78 20 3d 20 78 42 65 73 74 49 6e 64 65 78 3b 0d x = xBestIndex;.
41c0: 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 44 69 73 . pModule->xDis
41d0: 63 6f 6e 6e 65 63 74 20 3d 20 78 44 69 73 63 6f connect = xDisco
41e0: 6e 6e 65 63 74 3b 0d 0a 20 20 70 4d 6f 64 75 6c nnect;.. pModul
41f0: 65 2d 3e 78 44 65 73 74 72 6f 79 20 3d 20 78 44 e->xDestroy = xD
4200: 65 73 74 72 6f 79 3b 0d 0a 20 20 70 4d 6f 64 75 estroy;.. pModu
4210: 6c 65 2d 3e 78 4f 70 65 6e 20 3d 20 78 4f 70 65 le->xOpen = xOpe
4220: 6e 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 n;.. pModule->x
4230: 43 6c 6f 73 65 20 3d 20 78 43 6c 6f 73 65 3b 0d Close = xClose;.
4240: 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 46 69 6c . pModule->xFil
4250: 74 65 72 20 3d 20 78 46 69 6c 74 65 72 3b 0d 0a ter = xFilter;..
4260: 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 4e 65 78 74 pModule->xNext
4270: 20 3d 20 78 4e 65 78 74 3b 0d 0a 20 20 70 4d 6f = xNext;.. pMo
4280: 64 75 6c 65 2d 3e 78 45 6f 66 20 3d 20 78 45 6f dule->xEof = xEo
4290: 66 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 f;.. pModule->x
42a0: 43 6f 6c 75 6d 6e 20 3d 20 78 43 6f 6c 75 6d 6e Column = xColumn
42b0: 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 52 ;.. pModule->xR
42c0: 6f 77 69 64 20 3d 20 78 52 6f 77 69 64 3b 0d 0a owid = xRowid;..
42d0: 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 55 70 64 61 pModule->xUpda
42e0: 74 65 20 3d 20 78 55 70 64 61 74 65 3b 0d 0a 20 te = xUpdate;..
42f0: 20 70 4d 6f 64 75 6c 65 2d 3e 78 42 65 67 69 6e pModule->xBegin
4300: 20 3d 20 78 42 65 67 69 6e 3b 0d 0a 20 20 70 4d = xBegin;.. pM
4310: 6f 64 75 6c 65 2d 3e 78 53 79 6e 63 20 3d 20 78 odule->xSync = x
4320: 53 79 6e 63 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 Sync;.. pModule
4330: 2d 3e 78 43 6f 6d 6d 69 74 20 3d 20 78 43 6f 6d ->xCommit = xCom
4340: 6d 69 74 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d mit;.. pModule-
4350: 3e 78 52 6f 6c 6c 62 61 63 6b 20 3d 20 78 52 6f >xRollback = xRo
4360: 6c 6c 62 61 63 6b 3b 0d 0a 20 20 70 4d 6f 64 75 llback;.. pModu
4370: 6c 65 2d 3e 78 46 69 6e 64 46 75 6e 63 74 69 6f le->xFindFunctio
4380: 6e 20 3d 20 78 46 69 6e 64 46 75 6e 63 74 69 6f n = xFindFunctio
4390: 6e 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 n;.. pModule->x
43a0: 52 65 6e 61 6d 65 20 3d 20 78 52 65 6e 61 6d 65 Rename = xRename
43b0: 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 53 ;.. pModule->xS
43c0: 61 76 65 70 6f 69 6e 74 20 3d 20 78 53 61 76 65 avepoint = xSave
43d0: 70 6f 69 6e 74 3b 0d 0a 20 20 70 4d 6f 64 75 6c point;.. pModul
43e0: 65 2d 3e 78 52 65 6c 65 61 73 65 20 3d 20 78 52 e->xRelease = xR
43f0: 65 6c 65 61 73 65 3b 0d 0a 20 20 70 4d 6f 64 75 elease;.. pModu
4400: 6c 65 2d 3e 78 52 6f 6c 6c 62 61 63 6b 54 6f 20 le->xRollbackTo
4410: 3d 20 78 52 6f 6c 6c 62 61 63 6b 54 6f 3b 0d 0a = xRollbackTo;..
4420: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 return sqlite3
4430: 5f 63 72 65 61 74 65 5f 64 69 73 70 6f 73 61 62 _create_disposab
4440: 6c 65 5f 6d 6f 64 75 6c 65 28 64 62 2c 20 7a 4e le_module(db, zN
4450: 61 6d 65 2c 20 70 4d 6f 64 75 6c 65 2c 20 70 43 ame, pModule, pC
4460: 6c 69 65 6e 74 44 61 74 61 2c 20 78 44 65 73 74 lientData, xDest
4470: 72 6f 79 4d 6f 64 75 6c 65 29 3b 0d 0a 7d 0d 0a royModule);..}..
4480: 23 65 6e 64 69 66 0d 0a 0d 0a 53 51 4c 49 54 45 #endif....SQLITE
4490: 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 _API int WINAPI
44a0: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 64 6f 75 sqlite3_bind_dou
44b0: 62 6c 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 ble_interop(sqli
44c0: 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 te3_stmt *stmt,
44d0: 69 6e 74 20 69 43 6f 6c 2c 20 64 6f 75 62 6c 65 int iCol, double
44e0: 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 20 *val)..{.. if
44f0: 28 21 76 61 6c 29 20 72 65 74 75 72 6e 20 53 51 (!val) return SQ
4500: 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 72 LITE_ERROR;.. r
4510: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 5f 62 69 eturn sqlite3_bi
4520: 6e 64 5f 64 6f 75 62 6c 65 28 73 74 6d 74 2c 69 nd_double(stmt,i
4530: 43 6f 6c 2c 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d Col,*val);..}...
4540: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
4550: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 62 WINAPI sqlite3_b
4560: 69 6e 64 5f 69 6e 74 36 34 5f 69 6e 74 65 72 6f ind_int64_intero
4570: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
4580: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
4590: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 76 61 sqlite_int64 *va
45a0: 6c 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 21 76 61 l)..{.. if (!va
45b0: 6c 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 l) return SQLITE
45c0: 5f 45 52 52 4f 52 3b 0d 0a 20 20 72 65 74 75 72 _ERROR;.. retur
45d0: 6e 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 n sqlite3_bind_i
45e0: 6e 74 36 34 28 73 74 6d 74 2c 69 43 6f 6c 2c 2a nt64(stmt,iCol,*
45f0: 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 val);..}....SQLI
4600: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 TE_API const cha
4610: 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 r * WINAPI sqlit
4620: 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 e3_bind_paramete
4630: 72 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 73 r_name_interop(s
4640: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d qlite3_stmt *stm
4650: 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 t, int iCol, int
4660: 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f *plen)..{.. co
4670: 6e 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 3d nst char *pval =
4680: 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 sqlite3_bind_pa
4690: 72 61 6d 65 74 65 72 5f 6e 61 6d 65 28 73 74 6d rameter_name(stm
46a0: 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 t, iCol);.. if
46b0: 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 (plen) *plen = p
46c0: 76 61 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 val ? strlen(pva
46d0: 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 l) : 0;.. retur
46e0: 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 n pval;..}....SQ
46f0: 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 LITE_API const c
4700: 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c har * WINAPI sql
4710: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 ite3_column_name
4720: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
4730: 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 _stmt *stmt, int
4740: 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e iCol, int *plen
4750: 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 )..{.. const ch
4760: 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 ar *pval = sqlit
4770: 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 28 73 e3_column_name(s
4780: 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 tmt, iCol);.. i
4790: 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d f (plen) *plen =
47a0: 20 70 76 61 6c 20 3f 20 73 74 72 6c 65 6e 28 70 pval ? strlen(p
47b0: 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 val) : 0;.. ret
47c0: 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a urn pval;..}....
47d0: 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 SQLITE_API const
47e0: 20 76 6f 69 64 20 2a 20 57 49 4e 41 50 49 20 73 void * WINAPI s
47f0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 qlite3_column_na
4800: 6d 65 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c me16_interop(sql
4810: 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c ite3_stmt *stmt,
4820: 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a int iCol, int *
4830: 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 plen)..{.. cons
4840: 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 73 t void *pval = s
4850: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e 61 qlite3_column_na
4860: 6d 65 31 36 28 73 74 6d 74 2c 20 69 43 6f 6c 29 me16(stmt, iCol)
4870: 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a ;.. if (plen) *
4880: 70 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 77 63 plen = pval ? wc
4890: 73 6c 65 6e 28 28 77 63 68 61 72 5f 74 20 2a 29 slen((wchar_t *)
48a0: 70 76 61 6c 29 20 2a 20 73 69 7a 65 6f 66 28 77 pval) * sizeof(w
48b0: 63 68 61 72 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 char_t) : 0;..
48c0: 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d return pval;..}.
48d0: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f ...SQLITE_API co
48e0: 6e 73 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 nst char * WINAP
48f0: 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e I sqlite3_column
4900: 5f 64 65 63 6c 74 79 70 65 5f 69 6e 74 65 72 6f _decltype_intero
4910: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
4920: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
4930: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
4940: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 const char *pva
4950: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
4960: 6d 6e 5f 64 65 63 6c 74 79 70 65 28 73 74 6d 74 mn_decltype(stmt
4970: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 , iCol);.. if (
4980: 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 plen) *plen = pv
4990: 61 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c al ? strlen(pval
49a0: 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e ) : 0;.. return
49b0: 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval;..}....SQL
49c0: 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f ITE_API const vo
49d0: 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 id * WINAPI sqli
49e0: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 te3_column_declt
49f0: 79 70 65 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 ype16_interop(sq
4a00: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 lite3_stmt *stmt
4a10: 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 , int iCol, int
4a20: 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e *plen)..{.. con
4a30: 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 st void *pval =
4a40: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
4a50: 65 63 6c 74 79 70 65 31 36 28 73 74 6d 74 2c 20 ecltype16(stmt,
4a60: 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c iCol);.. if (pl
4a70: 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 61 6c en) *plen = pval
4a80: 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 ? wcslen((wchar
4a90: 5f 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a _t *)pval) * siz
4aa0: 65 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 eof(wchar_t) : 0
4ab0: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
4ac0: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
4ad0: 50 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 PI void WINAPI s
4ae0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f qlite3_column_do
4af0: 75 62 6c 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c uble_interop(sql
4b00: 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c ite3_stmt *stmt,
4b10: 20 69 6e 74 20 69 43 6f 6c 2c 20 64 6f 75 62 6c int iCol, doubl
4b20: 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 e *val)..{.. if
4b30: 20 28 21 76 61 6c 29 20 72 65 74 75 72 6e 3b 0d (!val) return;.
4b40: 0a 20 20 2a 76 61 6c 20 3d 20 73 71 6c 69 74 65 . *val = sqlite
4b50: 33 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 28 3_column_double(
4b60: 73 74 6d 74 2c 69 43 6f 6c 29 3b 0d 0a 7d 0d 0a stmt,iCol);..}..
4b70: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 ..SQLITE_API voi
4b80: 64 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 d WINAPI sqlite3
4b90: 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 5f 69 6e _column_int64_in
4ba0: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 terop(sqlite3_st
4bb0: 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 mt *stmt, int iC
4bc0: 6f 6c 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 ol, sqlite_int64
4bd0: 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 20 *val)..{.. if
4be0: 28 21 76 61 6c 29 20 72 65 74 75 72 6e 3b 0d 0a (!val) return;..
4bf0: 20 20 2a 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 *val = sqlite3
4c00: 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 28 73 74 _column_int64(st
4c10: 6d 74 2c 69 43 6f 6c 29 3b 0d 0a 7d 0d 0a 0d 0a mt,iCol);..}....
4c20: 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 SQLITE_API void
4c30: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 6c WINAPI sqlite3_l
4c40: 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 ast_insert_rowid
4c50: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
4c60: 20 2a 64 62 2c 20 73 71 6c 69 74 65 5f 69 6e 74 *db, sqlite_int
4c70: 36 34 20 2a 72 6f 77 49 64 29 0d 0a 7b 0d 0a 20 64 *rowId)..{..
4c80: 20 69 66 20 28 21 72 6f 77 49 64 29 20 72 65 74 if (!rowId) ret
4c90: 75 72 6e 3b 0d 0a 20 20 2a 72 6f 77 49 64 20 3d urn;.. *rowId =
4ca0: 20 73 71 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e sqlite3_last_in
4cb0: 73 65 72 74 5f 72 6f 77 69 64 28 64 62 29 3b 0d sert_rowid(db);.
4cc0: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
4cd0: 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 6c void WINAPI sql
4ce0: 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 ite3_memory_used
4cf0: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 5f _interop(sqlite_
4d00: 69 6e 74 36 34 20 2a 6e 42 79 74 65 73 29 0d 0a int64 *nBytes)..
4d10: 7b 0d 0a 20 20 69 66 20 28 21 6e 42 79 74 65 73 {.. if (!nBytes
4d20: 29 20 72 65 74 75 72 6e 3b 0d 0a 20 20 2a 6e 42 ) return;.. *nB
4d30: 79 74 65 73 20 3d 20 73 71 6c 69 74 65 33 5f 6d ytes = sqlite3_m
4d40: 65 6d 6f 72 79 5f 75 73 65 64 28 29 3b 0d 0a 7d emory_used();..}
4d50: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 ....SQLITE_API v
4d60: 6f 69 64 20 57 49 4e 41 50 49 20 73 71 6c 69 74 oid WINAPI sqlit
4d70: 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 e3_memory_highwa
4d80: 74 65 72 5f 69 6e 74 65 72 6f 70 28 69 6e 74 20 ter_interop(int
4d90: 72 65 73 65 74 46 6c 61 67 2c 20 73 71 6c 69 74 resetFlag, sqlit
4da0: 65 5f 69 6e 74 36 34 20 2a 6e 42 79 74 65 73 29 e_int64 *nBytes)
4db0: 0d 0a 7b 0d 0a 20 20 69 66 20 28 21 6e 42 79 74 ..{.. if (!nByt
4dc0: 65 73 29 20 72 65 74 75 72 6e 3b 0d 0a 20 20 2a es) return;.. *
4dd0: 6e 42 79 74 65 73 20 3d 20 73 71 6c 69 74 65 33 nBytes = sqlite3
4de0: 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 65 _memory_highwate
4df0: 72 28 72 65 73 65 74 46 6c 61 67 29 3b 0d 0a 7d r(resetFlag);..}
4e00: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 ....SQLITE_API c
4e10: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
4e20: 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 ar * WINAPI sqli
4e30: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 5f te3_column_text_
4e40: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f interop(sqlite3_
4e50: 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 stmt *stmt, int
4e60: 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 iCol, int *plen)
4e70: 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 75 6e 73 ..{.. const uns
4e80: 69 67 6e 65 64 20 63 68 61 72 20 2a 70 76 61 6c igned char *pval
4e90: 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d = sqlite3_colum
4ea0: 6e 5f 74 65 78 74 28 73 74 6d 74 2c 20 69 43 6f n_text(stmt, iCo
4eb0: 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 l);.. if (plen)
4ec0: 20 2a 70 6c 65 6e 20 3d 20 73 71 6c 69 74 65 33 *plen = sqlite3
4ed0: 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 28 73 74 _column_bytes(st
4ee0: 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 72 65 mt, iCol);.. re
4ef0: 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d turn pval;..}...
4f00: 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 .SQLITE_API cons
4f10: 74 20 76 6f 69 64 20 2a 20 57 49 4e 41 50 49 20 t void * WINAPI
4f20: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
4f30: 65 78 74 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 ext16_interop(sq
4f40: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 lite3_stmt *stmt
4f50: 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 , int iCol, int
4f60: 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e *plen)..{.. con
4f70: 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 st void *pval =
4f80: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 sqlite3_column_t
4f90: 65 78 74 31 36 28 73 74 6d 74 2c 20 69 43 6f 6c ext16(stmt, iCol
4fa0: 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 );.. if (plen)
4fb0: 2a 70 6c 65 6e 20 3d 20 73 71 6c 69 74 65 33 5f *plen = sqlite3_
4fc0: 63 6f 6c 75 6d 6e 5f 62 79 74 65 73 31 36 28 73 column_bytes16(s
4fd0: 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 72 tmt, iCol);.. r
4fe0: 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a eturn pval;..}..
4ff0: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 ..SQLITE_API int
5000: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
5010: 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 65 72 6f 70 finalize_interop
5020: 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 (sqlite3_stmt *s
5030: 74 6d 74 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 tmt)..{.. int r
5040: 65 74 3b 0d 0a 23 69 66 20 21 64 65 66 69 6e 65 et;..#if !define
5050: 64 28 49 4e 54 45 52 4f 50 5f 4c 45 47 41 43 59 d(INTEROP_LEGACY
5060: 5f 43 4c 4f 53 45 29 20 26 26 20 53 51 4c 49 54 _CLOSE) && SQLIT
5070: 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 E_VERSION_NUMBER
5080: 20 3e 3d 20 33 30 30 37 30 31 34 0d 0a 0d 0a 23 >= 3007014....#
5090: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
50a0: 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e OP_DEBUG) && (IN
50b0: 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e TEROP_DEBUG & IN
50c0: 54 45 52 4f 50 5f 44 45 42 55 47 5f 46 49 4e 41 TEROP_DEBUG_FINA
50d0: 4c 49 5a 45 29 0d 0a 20 20 56 64 62 65 20 2a 70 LIZE).. Vdbe *p
50e0: 20 3d 20 28 56 64 62 65 20 2a 29 73 74 6d 74 3b = (Vdbe *)stmt;
50f0: 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 .. sqlite3 *db
5100: 3d 20 70 20 3f 20 70 2d 3e 64 62 20 3a 20 30 3b = p ? p->db : 0;
5110: 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 .. sqlite3Inter
5120: 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 opDebug("sqlite3
5130: 5f 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 65 72 6f _finalize_intero
5140: 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c p(): calling sql
5150: 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 25 70 ite3_finalize(%p
5160: 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 64 62 2c , %p)...\n", db,
5170: 20 73 74 6d 74 29 3b 0d 0a 23 65 6e 64 69 66 0d stmt);..#endif.
5180: 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 ... ret = sqlit
5190: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 73 74 6d 74 e3_finalize(stmt
51a0: 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 );....#if define
51b0: 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 d(INTEROP_DEBUG)
51c0: 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 && (INTEROP_DEB
51d0: 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 UG & INTEROP_DEB
51e0: 55 47 5f 46 49 4e 41 4c 49 5a 45 29 0d 0a 20 20 UG_FINALIZE)..
51f0: 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 sqlite3InteropDe
5200: 62 75 67 28 22 73 71 6c 69 74 65 33 5f 66 69 6e bug("sqlite3_fin
5210: 61 6c 69 7a 65 5f 69 6e 74 65 72 6f 70 28 29 3a alize_interop():
5220: 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a sqlite3_finaliz
5230: 65 28 25 70 2c 20 25 70 29 20 72 65 74 75 72 6e e(%p, %p) return
5240: 65 64 20 25 64 2e 5c 6e 22 2c 20 64 62 2c 20 73 ed %d.\n", db, s
5250: 74 6d 74 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 tmt, ret);..#end
5260: 69 66 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 if.... return r
5270: 65 74 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 56 64 et;..#else.. Vd
5280: 62 65 20 2a 70 3b 0d 0a 20 20 72 65 74 20 3d 20 be *p;.. ret =
5290: 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 0d 0a 20 20 SQLITE_OK;....
52a0: 70 20 3d 20 28 56 64 62 65 20 2a 29 73 74 6d 74 p = (Vdbe *)stmt
52b0: 3b 0d 0a 20 20 69 66 20 28 70 29 0d 0a 20 20 7b ;.. if (p).. {
52c0: 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 20 2a 64 .. sqlite3 *d
52d0: 62 20 3d 20 70 2d 3e 64 62 3b 0d 0a 0d 0a 20 20 b = p->db;....
52e0: 20 20 69 66 20 28 64 62 20 21 3d 20 4e 55 4c 4c if (db != NULL
52f0: 29 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ).. sqlite3
5300: 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d _mutex_enter(db-
5310: 3e 6d 75 74 65 78 29 3b 0d 0a 0d 0a 20 20 20 20 >mutex);....
5320: 69 66 20 28 28 70 2d 3e 6d 61 67 69 63 20 3d 3d if ((p->magic ==
5330: 20 56 44 42 45 5f 4d 41 47 49 43 5f 44 45 41 44 VDBE_MAGIC_DEAD
5340: 29 20 26 26 20 28 64 62 20 3d 3d 20 4e 55 4c 4c ) && (db == NULL
5350: 29 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 )).. {..
5360: 20 73 71 6c 69 74 65 33 44 62 46 72 65 65 5f 69 sqlite3DbFree_i
5370: 6e 74 65 72 6f 70 28 64 62 2c 20 70 29 3b 0d 0a nterop(db, p);..
5380: 20 20 20 20 7d 0d 0a 20 20 20 20 65 6c 73 65 0d }.. else.
5390: 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 65 . {.. re
53a0: 74 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 t = sqlite3_fina
53b0: 6c 69 7a 65 28 73 74 6d 74 29 3b 0d 0a 20 20 20 lize(stmt);..
53c0: 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 28 64 62 }.... if (db
53d0: 20 21 3d 20 4e 55 4c 4c 29 0d 0a 20 20 20 20 20 != NULL)..
53e0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
53f0: 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
5400: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 72 65 74 75 72 .. }.... retur
5410: 6e 20 72 65 74 3b 0d 0a 23 65 6e 64 69 66 0d 0a n ret;..#endif..
5420: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
5430: 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 int WINAPI sqlit
5440: 65 33 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 e3_backup_finish
5450: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
5460: 5f 62 61 63 6b 75 70 20 2a 70 29 0d 0a 7b 0d 0a _backup *p)..{..
5470: 20 20 69 6e 74 20 72 65 74 3b 0d 0a 0d 0a 23 69 int ret;....#i
5480: 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f f defined(INTERO
5490: 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 P_DEBUG) && (INT
54a0: 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 EROP_DEBUG & INT
54b0: 45 52 4f 50 5f 44 45 42 55 47 5f 42 41 43 4b 55 EROP_DEBUG_BACKU
54c0: 50 5f 46 49 4e 49 53 48 29 0d 0a 20 20 73 71 6c P_FINISH).. sql
54d0: 69 74 65 33 2a 20 70 44 65 73 74 44 62 20 3d 20 ite3* pDestDb =
54e0: 70 20 3f 20 70 2d 3e 70 44 65 73 74 44 62 20 3a p ? p->pDestDb :
54f0: 20 30 3b 0d 0a 20 20 73 71 6c 69 74 65 33 2a 20 0;.. sqlite3*
5500: 70 53 72 63 44 62 20 3d 20 70 20 3f 20 70 2d 3e pSrcDb = p ? p->
5510: 70 53 72 63 44 62 20 3a 20 30 3b 0d 0a 20 20 73 pSrcDb : 0;.. s
5520: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 qlite3InteropDeb
5530: 75 67 28 22 73 71 6c 69 74 65 33 5f 62 61 63 6b ug("sqlite3_back
5540: 75 70 5f 66 69 6e 69 73 68 5f 69 6e 74 65 72 6f up_finish_intero
5550: 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c p(): calling sql
5560: 69 74 65 33 5f 62 61 63 6b 75 70 5f 66 69 6e 69 ite3_backup_fini
5570: 73 68 28 25 70 2c 20 25 70 2c 20 25 70 29 2e 2e sh(%p, %p, %p)..
5580: 2e 5c 6e 22 2c 20 70 44 65 73 74 44 62 2c 20 70 .\n", pDestDb, p
5590: 53 72 63 44 62 2c 20 70 29 3b 0d 0a 23 65 6e 64 SrcDb, p);..#end
55a0: 69 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 if.... ret = sq
55b0: 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 66 69 6e lite3_backup_fin
55c0: 69 73 68 28 70 29 3b 0d 0a 0d 0a 23 69 66 20 64 ish(p);....#if d
55d0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 efined(INTEROP_D
55e0: 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f EBUG) && (INTERO
55f0: 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f P_DEBUG & INTERO
5600: 50 5f 44 45 42 55 47 5f 42 41 43 4b 55 50 5f 46 P_DEBUG_BACKUP_F
5610: 49 4e 49 53 48 29 0d 0a 20 20 73 71 6c 69 74 65 INISH).. sqlite
5620: 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 3InteropDebug("s
5630: 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 66 69 qlite3_backup_fi
5640: 6e 69 73 68 5f 69 6e 74 65 72 6f 70 28 29 3a 20 nish_interop():
5650: 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 66 sqlite3_backup_f
5660: 69 6e 69 73 68 28 25 70 2c 20 25 70 2c 20 25 70 inish(%p, %p, %p
5670: 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e ) returned %d.\n
5680: 22 2c 20 70 44 65 73 74 44 62 2c 20 70 53 72 63 ", pDestDb, pSrc
5690: 44 62 2c 20 70 2c 20 72 65 74 29 3b 0d 0a 23 65 Db, p, ret);..#e
56a0: 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 75 72 6e ndif.... return
56b0: 20 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 ret;..}....SQLI
56c0: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
56d0: 49 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f I sqlite3_reset_
56e0: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f interop(sqlite3_
56f0: 73 74 6d 74 20 2a 73 74 6d 74 29 0d 0a 7b 0d 0a stmt *stmt)..{..
5700: 20 20 69 6e 74 20 72 65 74 3b 0d 0a 23 69 66 20 int ret;..#if
5710: 21 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 !defined(INTEROP
5720: 5f 4c 45 47 41 43 59 5f 43 4c 4f 53 45 29 20 26 _LEGACY_CLOSE) &
5730: 26 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e & SQLITE_VERSION
5740: 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 37 30 _NUMBER >= 30070
5750: 31 34 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 14....#if define
5760: 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 d(INTEROP_DEBUG)
5770: 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 && (INTEROP_DEB
5780: 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 UG & INTEROP_DEB
5790: 55 47 5f 52 45 53 45 54 29 0d 0a 20 20 73 71 6c UG_RESET).. sql
57a0: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
57b0: 28 22 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f ("sqlite3_reset_
57c0: 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 interop(): calli
57d0: 6e 67 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 ng sqlite3_reset
57e0: 28 25 70 29 2e 2e 2e 5c 6e 22 2c 20 73 74 6d 74 (%p)...\n", stmt
57f0: 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 );..#endif....
5800: 72 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 72 65 ret = sqlite3_re
5810: 73 65 74 28 73 74 6d 74 29 3b 0d 0a 0d 0a 23 69 set(stmt);....#i
5820: 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f f defined(INTERO
5830: 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 P_DEBUG) && (INT
5840: 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 EROP_DEBUG & INT
5850: 45 52 4f 50 5f 44 45 42 55 47 5f 52 45 53 45 54 EROP_DEBUG_RESET
5860: 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 ).. sqlite3Inte
5870: 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 ropDebug("sqlite
5880: 33 5f 72 65 73 65 74 5f 69 6e 74 65 72 6f 70 28 3_reset_interop(
5890: 29 3a 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 ): sqlite3_reset
58a0: 28 25 70 29 20 72 65 74 75 72 6e 65 64 20 25 64 (%p) returned %d
58b0: 2e 5c 6e 22 2c 20 73 74 6d 74 2c 20 72 65 74 29 .\n", stmt, ret)
58c0: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 ;..#endif.... r
58d0: 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 65 6c 73 eturn ret;..#els
58e0: 65 0d 0a 20 20 69 66 20 28 73 74 6d 74 20 26 26 e.. if (stmt &&
58f0: 20 28 28 56 64 62 65 20 2a 29 73 74 6d 74 29 2d ((Vdbe *)stmt)-
5900: 3e 6d 61 67 69 63 20 3d 3d 20 56 44 42 45 5f 4d >magic == VDBE_M
5910: 41 47 49 43 5f 44 45 41 44 29 20 72 65 74 75 72 AGIC_DEAD) retur
5920: 6e 20 53 51 4c 49 54 45 5f 53 43 48 45 4d 41 3b n SQLITE_SCHEMA;
5930: 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 .. ret = sqlite
5940: 33 5f 72 65 73 65 74 28 73 74 6d 74 29 3b 0d 0a 3_reset(stmt);..
5950: 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 return ret;..#
5960: 65 6e 64 69 66 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 endif..}....SQLI
5970: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
5980: 49 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 I sqlite3_create
5990: 5f 66 75 6e 63 74 69 6f 6e 5f 69 6e 74 65 72 6f _function_intero
59a0: 70 28 73 71 6c 69 74 65 33 20 2a 70 73 71 6c 2c p(sqlite3 *psql,
59b0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 75 const char *zFu
59c0: 6e 63 74 69 6f 6e 4e 61 6d 65 2c 20 69 6e 74 20 nctionName, int
59d0: 6e 41 72 67 2c 20 69 6e 74 20 65 54 65 78 74 52 nArg, int eTextR
59e0: 65 70 2c 20 76 6f 69 64 20 2a 70 76 55 73 65 72 ep, void *pvUser
59f0: 2c 20 53 51 4c 49 54 45 55 53 45 52 46 55 4e 43 , SQLITEUSERFUNC
5a00: 20 66 75 6e 63 2c 20 53 51 4c 49 54 45 55 53 45 func, SQLITEUSE
5a10: 52 46 55 4e 43 20 66 75 6e 63 73 74 65 70 2c 20 RFUNC funcstep,
5a20: 53 51 4c 49 54 45 46 55 4e 43 46 49 4e 41 4c 20 SQLITEFUNCFINAL
5a30: 66 75 6e 63 66 69 6e 61 6c 2c 20 69 6e 74 20 6e funcfinal, int n
5a40: 65 65 64 43 6f 6c 6c 53 65 71 29 0d 0a 7b 0d 0a eedCollSeq)..{..
5a50: 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 20 69 66 int n;.... if
5a60: 20 28 65 54 65 78 74 52 65 70 20 3d 3d 20 53 51 (eTextRep == SQ
5a70: 4c 49 54 45 5f 55 54 46 31 36 29 0d 0a 20 20 20 LITE_UTF16)..
5a80: 20 65 54 65 78 74 52 65 70 20 3d 20 53 51 4c 49 eTextRep = SQLI
5a90: 54 45 5f 55 54 46 31 36 4e 41 54 49 56 45 3b 0d TE_UTF16NATIVE;.
5aa0: 0a 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 ... n = sqlite3
5ab0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e _create_function
5ac0: 28 70 73 71 6c 2c 20 7a 46 75 6e 63 74 69 6f 6e (psql, zFunction
5ad0: 4e 61 6d 65 2c 20 6e 41 72 67 2c 20 65 54 65 78 Name, nArg, eTex
5ae0: 74 52 65 70 2c 20 70 76 55 73 65 72 2c 20 66 75 tRep, pvUser, fu
5af0: 6e 63 2c 20 66 75 6e 63 73 74 65 70 2c 20 66 75 nc, funcstep, fu
5b00: 6e 63 66 69 6e 61 6c 29 3b 0d 0a 20 20 69 66 20 ncfinal);.. if
5b10: 28 6e 20 3d 3d 20 53 51 4c 49 54 45 5f 4f 4b 29 (n == SQLITE_OK)
5b20: 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 66 20 28 6e .. {.. if (n
5b30: 65 65 64 43 6f 6c 6c 53 65 71 29 0d 0a 20 20 20 eedCollSeq)..
5b40: 20 7b 0d 0a 20 20 20 20 20 20 46 75 6e 63 44 65 {.. FuncDe
5b50: 66 20 2a 70 46 75 6e 63 20 3d 20 73 71 6c 69 74 f *pFunc = sqlit
5b60: 65 33 46 69 6e 64 46 75 6e 63 74 69 6f 6e 28 70 e3FindFunction(p
5b70: 73 71 6c 2c 20 7a 46 75 6e 63 74 69 6f 6e 4e 61 sql, zFunctionNa
5b80: 6d 65 2c 20 73 74 72 6c 65 6e 28 7a 46 75 6e 63 me, strlen(zFunc
5b90: 74 69 6f 6e 4e 61 6d 65 29 2c 20 6e 41 72 67 2c tionName), nArg,
5ba0: 20 65 54 65 78 74 52 65 70 2c 20 30 29 3b 0d 0a eTextRep, 0);..
5bb0: 20 20 20 20 20 20 69 66 28 20 70 46 75 6e 63 20 if( pFunc
5bc0: 29 0d 0a 20 20 20 20 20 20 7b 0d 0a 23 69 66 20 ).. {..#if
5bd0: 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e SQLITE_VERSION_N
5be0: 55 4d 42 45 52 20 3e 3d 20 33 30 30 38 30 30 31 UMBER >= 3008001
5bf0: 0d 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 2d .. pFunc-
5c00: 3e 66 75 6e 63 46 6c 61 67 73 20 7c 3d 20 53 51 >funcFlags |= SQ
5c10: 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f LITE_FUNC_NEEDCO
5c20: 4c 4c 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 20 20 LL;..#else..
5c30: 20 20 20 20 70 46 75 6e 63 2d 3e 66 6c 61 67 73 pFunc->flags
5c40: 20 7c 3d 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f |= SQLITE_FUNC_
5c50: 4e 45 45 44 43 4f 4c 4c 3b 0d 0a 23 65 6e 64 69 NEEDCOLL;..#endi
5c60: 66 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 f.. }..
5c70: 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 72 65 74 75 }.. }.... retu
5c80: 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 rn n;..}....SQLI
5c90: 54 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 TE_API void WINA
5ca0: 50 49 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 PI sqlite3_value
5cb0: 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 72 6f 70 28 _double_interop(
5cc0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 sqlite3_value *p
5cd0: 76 61 6c 2c 20 64 6f 75 62 6c 65 20 2a 76 61 6c val, double *val
5ce0: 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 21 76 61 6c )..{.. if (!val
5cf0: 29 20 72 65 74 75 72 6e 3b 0d 0a 20 20 2a 76 61 ) return;.. *va
5d00: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 l = sqlite3_valu
5d10: 65 5f 64 6f 75 62 6c 65 28 70 76 61 6c 29 3b 0d e_double(pval);.
5d20: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
5d30: 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 6c void WINAPI sql
5d40: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 ite3_value_int64
5d50: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
5d60: 5f 76 61 6c 75 65 20 2a 70 76 61 6c 2c 20 73 71 _value *pval, sq
5d70: 6c 69 74 65 5f 69 6e 74 36 34 20 2a 76 61 6c 29 lite_int64 *val)
5d80: 0d 0a 7b 0d 0a 20 20 69 66 20 28 21 76 61 6c 29 ..{.. if (!val)
5d90: 20 72 65 74 75 72 6e 3b 0d 0a 20 20 2a 76 61 6c return;.. *val
5da0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
5db0: 5f 69 6e 74 36 34 28 70 76 61 6c 29 3b 0d 0a 7d _int64(pval);..}
5dc0: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 ....SQLITE_API c
5dd0: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
5de0: 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 ar * WINAPI sqli
5df0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 5f 69 te3_value_text_i
5e00: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 76 nterop(sqlite3_v
5e10: 61 6c 75 65 20 2a 76 61 6c 2c 20 69 6e 74 20 2a alue *val, int *
5e20: 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 plen)..{.. cons
5e30: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 t unsigned char
5e40: 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f *pval = sqlite3_
5e50: 76 61 6c 75 65 5f 74 65 78 74 28 76 61 6c 29 3b value_text(val);
5e60: 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 .. if (plen) *p
5e70: 6c 65 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 len = sqlite3_va
5e80: 6c 75 65 5f 62 79 74 65 73 28 76 61 6c 29 3b 0d lue_bytes(val);.
5e90: 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d . return pval;.
5ea0: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
5eb0: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 const void * WI
5ec0: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 76 61 6c NAPI sqlite3_val
5ed0: 75 65 5f 74 65 78 74 31 36 5f 69 6e 74 65 72 6f ue_text16_intero
5ee0: 70 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 p(sqlite3_value
5ef0: 2a 76 61 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 *val, int *plen)
5f00: 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 76 6f 69 ..{.. const voi
5f10: 64 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 d *pval = sqlite
5f20: 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 76 3_value_text16(v
5f30: 61 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e al);.. if (plen
5f40: 29 20 2a 70 6c 65 6e 20 3d 20 73 71 6c 69 74 65 ) *plen = sqlite
5f50: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 31 36 28 3_value_bytes16(
5f60: 76 61 6c 29 3b 0d 0a 20 20 72 65 74 75 72 6e 20 val);.. return
5f70: 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 pval;..}....SQLI
5f80: 54 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 TE_API void WINA
5f90: 50 49 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c PI sqlite3_resul
5fa0: 74 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 72 6f 70 t_double_interop
5fb0: 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 (sqlite3_context
5fc0: 20 2a 70 63 74 78 2c 20 64 6f 75 62 6c 65 20 2a *pctx, double *
5fd0: 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 21 val)..{.. if (!
5fe0: 76 61 6c 29 20 72 65 74 75 72 6e 3b 0d 0a 20 20 val) return;..
5ff0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 sqlite3_result_d
6000: 6f 75 62 6c 65 28 70 63 74 78 2c 20 2a 76 61 6c ouble(pctx, *val
6010: 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f );..}....SQLITE_
6020: 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 API void WINAPI
6030: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 sqlite3_result_i
6040: 6e 74 36 34 5f 69 6e 74 65 72 6f 70 28 73 71 6c nt64_interop(sql
6050: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 63 ite3_context *pc
6060: 74 78 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 tx, sqlite_int64
6070: 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 20 *val)..{.. if
6080: 28 21 76 61 6c 29 20 72 65 74 75 72 6e 3b 0d 0a (!val) return;..
6090: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 sqlite3_result
60a0: 5f 69 6e 74 36 34 28 70 63 74 78 2c 20 2a 76 61 _int64(pctx, *va
60b0: 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 l);..}....SQLITE
60c0: 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 _API int WINAPI
60d0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f sqlite3_context_
60e0: 63 6f 6c 6c 63 6f 6d 70 61 72 65 5f 69 6e 74 65 collcompare_inte
60f0: 72 6f 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 rop(sqlite3_cont
6100: 65 78 74 20 2a 63 74 78 2c 20 63 6f 6e 73 74 20 ext *ctx, const
6110: 76 6f 69 64 20 2a 70 31 2c 20 69 6e 74 20 70 31 void *p1, int p1
6120: 6c 65 6e 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 len, const void
6130: 2a 70 32 2c 20 69 6e 74 20 70 32 6c 65 6e 29 0d *p2, int p2len).
6140: 0a 7b 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 .{..#if SQLITE_V
6150: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d ERSION_NUMBER >=
6160: 20 33 30 30 38 30 30 37 0d 0a 20 20 43 6f 6c 6c 3008007.. Coll
6170: 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 63 74 78 Seq *pColl = ctx
6180: 20 3f 20 73 71 6c 69 74 65 33 47 65 74 46 75 6e ? sqlite3GetFun
6190: 63 43 6f 6c 6c 53 65 71 28 63 74 78 29 20 3a 20 cCollSeq(ctx) :
61a0: 30 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 43 6f 6c 0;..#else.. Col
61b0: 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 63 74 lSeq *pColl = ct
61c0: 78 20 3f 20 63 74 78 2d 3e 70 43 6f 6c 6c 20 3a x ? ctx->pColl :
61d0: 20 30 3b 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 69 0;..#endif.. i
61e0: 66 20 28 21 63 74 78 20 7c 7c 20 21 63 74 78 2d f (!ctx || !ctx-
61f0: 3e 70 46 75 6e 63 29 20 72 65 74 75 72 6e 20 34 >pFunc) return 4
6200: 3b 20 2f 2a 20 45 52 52 4f 52 20 2a 2f 0d 0a 20 ; /* ERROR */..
6210: 20 69 66 20 28 21 70 43 6f 6c 6c 20 7c 7c 20 21 if (!pColl || !
6220: 70 43 6f 6c 6c 2d 3e 78 43 6d 70 29 20 72 65 74 pColl->xCmp) ret
6230: 75 72 6e 20 33 3b 20 2f 2a 20 45 52 52 4f 52 20 urn 3; /* ERROR
6240: 2a 2f 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 */..#if SQLITE_V
6250: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d ERSION_NUMBER >=
6260: 20 33 30 30 38 30 30 31 0d 0a 20 20 69 66 20 28 3008001.. if (
6270: 28 63 74 78 2d 3e 70 46 75 6e 63 2d 3e 66 75 6e (ctx->pFunc->fun
6280: 63 46 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f cFlags & SQLITE_
6290: 46 55 4e 43 5f 4e 45 45 44 43 4f 4c 4c 29 20 3d FUNC_NEEDCOLL) =
62a0: 3d 20 30 29 20 72 65 74 75 72 6e 20 32 3b 20 2f = 0) return 2; /
62b0: 2a 20 45 52 52 4f 52 20 2a 2f 0d 0a 23 65 6c 73 * ERROR */..#els
62c0: 65 0d 0a 20 20 69 66 20 28 28 63 74 78 2d 3e 70 e.. if ((ctx->p
62d0: 46 75 6e 63 2d 3e 66 6c 61 67 73 20 26 20 53 51 Func->flags & SQ
62e0: 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f LITE_FUNC_NEEDCO
62f0: 4c 4c 29 20 3d 3d 20 30 29 20 72 65 74 75 72 6e LL) == 0) return
6300: 20 32 3b 20 2f 2a 20 45 52 52 4f 52 20 2a 2f 0d 2; /* ERROR */.
6310: 0a 23 65 6e 64 69 66 0d 0a 20 20 72 65 74 75 72 .#endif.. retur
6320: 6e 20 70 43 6f 6c 6c 2d 3e 78 43 6d 70 28 70 43 n pColl->xCmp(pC
6330: 6f 6c 6c 2d 3e 70 55 73 65 72 2c 20 70 31 6c 65 oll->pUser, p1le
6340: 6e 2c 20 70 31 2c 20 70 32 6c 65 6e 2c 20 70 32 n, p1, p2len, p2
6350: 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f );..}....SQLITE_
6360: 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a API const char *
6370: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
6380: 63 6f 6e 74 65 78 74 5f 63 6f 6c 6c 73 65 71 5f context_collseq_
6390: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f interop(sqlite3_
63a0: 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 69 6e context *ctx, in
63b0: 74 20 2a 70 74 79 70 65 2c 20 69 6e 74 20 2a 65 t *ptype, int *e
63c0: 6e 63 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a nc, int *plen)..
63d0: 7b 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 {..#if SQLITE_VE
63e0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 RSION_NUMBER >=
63f0: 33 30 30 38 30 30 37 0d 0a 20 20 43 6f 6c 6c 53 3008007.. CollS
6400: 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 63 74 78 20 eq *pColl = ctx
6410: 3f 20 73 71 6c 69 74 65 33 47 65 74 46 75 6e 63 ? sqlite3GetFunc
6420: 43 6f 6c 6c 53 65 71 28 63 74 78 29 20 3a 20 30 CollSeq(ctx) : 0
6430: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 43 6f 6c 6c ;..#else.. Coll
6440: 53 65 71 20 2a 70 43 6f 6c 6c 20 3d 20 63 74 78 Seq *pColl = ctx
6450: 20 3f 20 63 74 78 2d 3e 70 43 6f 6c 6c 20 3a 20 ? ctx->pColl :
6460: 30 3b 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 69 66 0;..#endif.. if
6470: 20 28 70 74 79 70 65 29 20 2a 70 74 79 70 65 20 (ptype) *ptype
6480: 3d 20 30 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e = 0;.. if (plen
6490: 29 20 2a 70 6c 65 6e 20 3d 20 30 3b 0d 0a 20 20 ) *plen = 0;..
64a0: 69 66 20 28 65 6e 63 29 20 2a 65 6e 63 20 3d 20 if (enc) *enc =
64b0: 30 3b 0d 0a 0d 0a 20 20 69 66 20 28 21 63 74 78 0;.... if (!ctx
64c0: 20 7c 7c 20 21 63 74 78 2d 3e 70 46 75 6e 63 29 || !ctx->pFunc)
64d0: 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0d 0a 23 return NULL;..#
64e0: 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f if SQLITE_VERSIO
64f0: 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 38 N_NUMBER >= 3008
6500: 30 30 31 0d 0a 20 20 69 66 20 28 28 63 74 78 2d 001.. if ((ctx-
6510: 3e 70 46 75 6e 63 2d 3e 66 75 6e 63 46 6c 61 67 >pFunc->funcFlag
6520: 73 20 26 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f s & SQLITE_FUNC_
6530: 4e 45 45 44 43 4f 4c 4c 29 20 3d 3d 20 30 29 20 NEEDCOLL) == 0)
6540: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0d 0a 23 65 return NULL;..#e
6550: 6c 73 65 0d 0a 20 20 69 66 20 28 28 63 74 78 2d lse.. if ((ctx-
6560: 3e 70 46 75 6e 63 2d 3e 66 6c 61 67 73 20 26 20 >pFunc->flags &
6570: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 SQLITE_FUNC_NEED
6580: 43 4f 4c 4c 29 20 3d 3d 20 30 29 20 72 65 74 75 COLL) == 0) retu
6590: 72 6e 20 4e 55 4c 4c 3b 0d 0a 23 65 6e 64 69 66 rn NULL;..#endif
65a0: 0d 0a 0d 0a 20 20 69 66 20 28 70 43 6f 6c 6c 29 .... if (pColl)
65b0: 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 66 20 28 65 .. {.. if (e
65c0: 6e 63 29 20 2a 65 6e 63 20 3d 20 70 43 6f 6c 6c nc) *enc = pColl
65d0: 2d 3e 65 6e 63 3b 0d 0a 23 69 66 20 53 51 4c 49 ->enc;..#if SQLI
65e0: 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 TE_VERSION_NUMBE
65f0: 52 20 3c 20 33 30 30 37 30 31 30 0d 0a 20 20 20 R < 3007010..
6600: 20 69 66 20 28 70 74 79 70 65 29 20 2a 70 74 79 if (ptype) *pty
6610: 70 65 20 3d 20 70 43 6f 6c 6c 2d 3e 74 79 70 65 pe = pColl->type
6620: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 20 20 69 ;..#endif.. i
6630: 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d f (plen) *plen =
6640: 20 70 43 6f 6c 6c 2d 3e 7a 4e 61 6d 65 20 3f 20 pColl->zName ?
6650: 73 74 72 6c 65 6e 28 70 43 6f 6c 6c 2d 3e 7a 4e strlen(pColl->zN
6660: 61 6d 65 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 20 ame) : 0;....
6670: 20 72 65 74 75 72 6e 20 70 43 6f 6c 6c 2d 3e 7a return pColl->z
6680: 4e 61 6d 65 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 Name;.. }.. re
6690: 74 75 72 6e 20 4e 55 4c 4c 3b 0d 0a 7d 0d 0a 0d turn NULL;..}...
66a0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 .SQLITE_API cons
66b0: 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 t char * WINAPI
66c0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 sqlite3_column_d
66d0: 61 74 61 62 61 73 65 5f 6e 61 6d 65 5f 69 6e 74 atabase_name_int
66e0: 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d erop(sqlite3_stm
66f0: 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f t *stmt, int iCo
6700: 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b l, int *plen)..{
6710: 0d 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a .. const char *
6720: 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 pval = sqlite3_c
6730: 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e olumn_database_n
6740: 61 6d 65 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b ame(stmt, iCol);
6750: 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 .. if (plen) *p
6760: 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 len = pval ? str
6770: 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a len(pval) : 0;..
6780: 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a return pval;..
6790: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
67a0: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 4e const void * WIN
67b0: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 API sqlite3_colu
67c0: 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 mn_database_name
67d0: 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 16_interop(sqlit
67e0: 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 e3_stmt *stmt, i
67f0: 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c nt iCol, int *pl
6800: 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 en)..{.. const
6810: 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 73 71 6c void *pval = sql
6820: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 ite3_column_data
6830: 62 61 73 65 5f 6e 61 6d 65 31 36 28 73 74 6d 74 base_name16(stmt
6840: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 , iCol);.. if (
6850: 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 plen) *plen = pv
6860: 61 6c 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 al ? wcslen((wch
6870: 61 72 5f 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 ar_t *)pval) * s
6880: 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 20 3a izeof(wchar_t) :
6890: 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 0;.. return pv
68a0: 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 al;..}....SQLITE
68b0: 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 _API const char
68c0: 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 * WINAPI sqlite3
68d0: 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 _column_table_na
68e0: 6d 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 me_interop(sqlit
68f0: 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 e3_stmt *stmt, i
6900: 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c nt iCol, int *pl
6910: 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 en)..{.. const
6920: 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c char *pval = sql
6930: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c ite3_column_tabl
6940: 65 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 69 43 6f e_name(stmt, iCo
6950: 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 l);.. if (plen)
6960: 20 2a 70 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 *plen = pval ?
6970: 73 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 strlen(pval) : 0
6980: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
6990: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
69a0: 50 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 PI const void *
69b0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
69c0: 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d 65 olumn_table_name
69d0: 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 16_interop(sqlit
69e0: 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 e3_stmt *stmt, i
69f0: 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c nt iCol, int *pl
6a00: 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 en)..{.. const
6a10: 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 73 71 6c void *pval = sql
6a20: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c ite3_column_tabl
6a30: 65 5f 6e 61 6d 65 31 36 28 73 74 6d 74 2c 20 69 e_name16(stmt, i
6a40: 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 Col);.. if (ple
6a50: 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 61 6c 20 n) *plen = pval
6a60: 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 5f ? wcslen((wchar_
6a70: 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a 65 t *)pval) * size
6a80: 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 3b of(wchar_t) : 0;
6a90: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
6aa0: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
6ab0: 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 57 I const char * W
6ac0: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f INAPI sqlite3_co
6ad0: 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 lumn_origin_name
6ae0: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
6af0: 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 _stmt *stmt, int
6b00: 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e iCol, int *plen
6b10: 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 )..{.. const ch
6b20: 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 ar *pval = sqlit
6b30: 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e e3_column_origin
6b40: 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 69 43 6f 6c _name(stmt, iCol
6b50: 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 );.. if (plen)
6b60: 2a 70 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 *plen = pval ? s
6b70: 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b trlen(pval) : 0;
6b80: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
6b90: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
6ba0: 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 I const void * W
6bb0: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f INAPI sqlite3_co
6bc0: 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 lumn_origin_name
6bd0: 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 16_interop(sqlit
6be0: 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 e3_stmt *stmt, i
6bf0: 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c nt iCol, int *pl
6c00: 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 en)..{.. const
6c10: 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 73 71 6c void *pval = sql
6c20: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 ite3_column_orig
6c30: 69 6e 5f 6e 61 6d 65 31 36 28 73 74 6d 74 2c 20 in_name16(stmt,
6c40: 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c iCol);.. if (pl
6c50: 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 61 6c en) *plen = pval
6c60: 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 ? wcslen((wchar
6c70: 5f 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a _t *)pval) * siz
6c80: 65 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 eof(wchar_t) : 0
6c90: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
6ca0: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
6cb0: 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 PI int WINAPI sq
6cc0: 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 lite3_table_colu
6cd0: 6d 6e 5f 6d 65 74 61 64 61 74 61 5f 69 6e 74 65 mn_metadata_inte
6ce0: 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 2c rop(sqlite3 *db,
6cf0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 62 const char *zDb
6d00: 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 Name, const char
6d10: 20 2a 7a 54 61 62 6c 65 4e 61 6d 65 2c 20 63 6f *zTableName, co
6d20: 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c 75 6d nst char *zColum
6d30: 6e 4e 61 6d 65 2c 20 63 68 61 72 20 2a 2a 70 7a nName, char **pz
6d40: 44 61 74 61 54 79 70 65 2c 20 63 68 61 72 20 2a DataType, char *
6d50: 2a 70 7a 43 6f 6c 6c 53 65 71 2c 20 69 6e 74 20 *pzCollSeq, int
6d60: 2a 70 4e 6f 74 4e 75 6c 6c 2c 20 69 6e 74 20 2a *pNotNull, int *
6d70: 70 50 72 69 6d 61 72 79 4b 65 79 2c 20 69 6e 74 pPrimaryKey, int
6d80: 20 2a 70 41 75 74 6f 69 6e 63 2c 20 69 6e 74 20 *pAutoinc, int
6d90: 2a 70 64 74 4c 65 6e 2c 20 69 6e 74 20 2a 70 63 *pdtLen, int *pc
6da0: 73 4c 65 6e 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 sLen)..{.. int
6db0: 6e 3b 0d 0a 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 n;.... n = sqli
6dc0: 74 65 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e te3_table_column
6dd0: 5f 6d 65 74 61 64 61 74 61 28 64 62 2c 20 7a 44 _metadata(db, zD
6de0: 62 4e 61 6d 65 2c 20 7a 54 61 62 6c 65 4e 61 6d bName, zTableNam
6df0: 65 2c 20 7a 43 6f 6c 75 6d 6e 4e 61 6d 65 2c 20 e, zColumnName,
6e00: 70 7a 44 61 74 61 54 79 70 65 2c 20 70 7a 43 6f pzDataType, pzCo
6e10: 6c 6c 53 65 71 2c 20 70 4e 6f 74 4e 75 6c 6c 2c llSeq, pNotNull,
6e20: 20 70 50 72 69 6d 61 72 79 4b 65 79 2c 20 70 41 pPrimaryKey, pA
6e30: 75 74 6f 69 6e 63 29 3b 0d 0a 0d 0a 20 20 69 66 utoinc);.... if
6e40: 20 28 70 64 74 4c 65 6e 29 20 2a 70 64 74 4c 65 (pdtLen) *pdtLe
6e50: 6e 20 3d 20 28 70 7a 44 61 74 61 54 79 70 65 20 n = (pzDataType
6e60: 26 26 20 2a 70 7a 44 61 74 61 54 79 70 65 29 20 && *pzDataType)
6e70: 3f 20 73 74 72 6c 65 6e 28 2a 70 7a 44 61 74 61 ? strlen(*pzData
6e80: 54 79 70 65 29 20 3a 20 30 3b 0d 0a 20 20 69 66 Type) : 0;.. if
6e90: 20 28 70 63 73 4c 65 6e 29 20 2a 70 63 73 4c 65 (pcsLen) *pcsLe
6ea0: 6e 20 3d 20 28 70 7a 43 6f 6c 6c 53 65 71 20 26 n = (pzCollSeq &
6eb0: 26 20 2a 70 7a 43 6f 6c 6c 53 65 71 29 20 3f 20 & *pzCollSeq) ?
6ec0: 73 74 72 6c 65 6e 28 2a 70 7a 43 6f 6c 6c 53 65 strlen(*pzCollSe
6ed0: 71 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 74 q) : 0;.... ret
6ee0: 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c urn n;..}....SQL
6ef0: 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 ITE_API int WINA
6f00: 50 49 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 PI sqlite3_index
6f10: 5f 63 6f 6c 75 6d 6e 5f 69 6e 66 6f 5f 69 6e 74 _column_info_int
6f20: 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 erop(sqlite3 *db
6f30: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 , const char *zD
6f40: 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a b, const char *z
6f50: 49 6e 64 65 78 4e 61 6d 65 2c 20 63 6f 6e 73 74 IndexName, const
6f60: 20 63 68 61 72 20 2a 7a 43 6f 6c 75 6d 6e 4e 61 char *zColumnNa
6f70: 6d 65 2c 20 69 6e 74 20 2a 73 6f 72 74 4f 72 64 me, int *sortOrd
6f80: 65 72 2c 20 69 6e 74 20 2a 6f 6e 45 72 72 6f 72 er, int *onError
6f90: 2c 20 63 68 61 72 20 2a 2a 70 7a 43 6f 6c 6c 2c , char **pzColl,
6fa0: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
6fb0: 20 20 49 6e 64 65 78 20 2a 70 49 64 78 3b 0d 0a Index *pIdx;..
6fc0: 20 20 54 61 62 6c 65 20 2a 70 54 61 62 3b 0d 0a Table *pTab;..
6fd0: 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 20 69 66 int n;.... if
6fe0: 20 28 21 64 62 29 20 72 65 74 75 72 6e 20 53 51 (!db) return SQ
6ff0: 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 73 LITE_ERROR;.. s
7000: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 qlite3_mutex_ent
7010: 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a er(db->mutex);..
7020: 20 20 73 71 6c 69 74 65 33 42 74 72 65 65 45 6e sqlite3BtreeEn
7030: 74 65 72 41 6c 6c 28 64 62 29 3b 0d 0a 0d 0a 20 terAll(db);....
7040: 20 70 49 64 78 20 3d 20 73 71 6c 69 74 65 33 46 pIdx = sqlite3F
7050: 69 6e 64 49 6e 64 65 78 28 64 62 2c 20 7a 49 6e indIndex(db, zIn
7060: 64 65 78 4e 61 6d 65 2c 20 7a 44 62 29 3b 0d 0a dexName, zDb);..
7070: 0d 0a 20 20 73 71 6c 69 74 65 33 42 74 72 65 65 .. sqlite3Btree
7080: 4c 65 61 76 65 41 6c 6c 28 64 62 29 3b 0d 0a 20 LeaveAll(db);..
7090: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
70a0: 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
70b0: 0d 0a 0d 0a 20 20 69 66 20 28 21 70 49 64 78 29 .... if (!pIdx)
70c0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 return SQLITE_E
70d0: 52 52 4f 52 3b 0d 0a 0d 0a 20 20 70 54 61 62 20 RROR;.... pTab
70e0: 3d 20 70 49 64 78 2d 3e 70 54 61 62 6c 65 3b 0d = pIdx->pTable;.
70f0: 0a 20 20 66 6f 72 20 28 6e 20 3d 20 30 3b 20 6e . for (n = 0; n
7100: 20 3c 20 70 49 64 78 2d 3e 6e 43 6f 6c 75 6d 6e < pIdx->nColumn
7110: 3b 20 6e 2b 2b 29 0d 0a 20 20 7b 0d 0a 20 20 20 ; n++).. {..
7120: 20 69 6e 74 20 63 6e 75 6d 20 3d 20 70 49 64 78 int cnum = pIdx
7130: 2d 3e 61 69 43 6f 6c 75 6d 6e 5b 6e 5d 3b 0d 0a ->aiColumn[n];..
7140: 20 20 20 20 69 66 20 28 73 71 6c 69 74 65 33 53 if (sqlite3S
7150: 74 72 49 43 6d 70 28 70 54 61 62 2d 3e 61 43 6f trICmp(pTab->aCo
7160: 6c 5b 63 6e 75 6d 5d 2e 7a 4e 61 6d 65 2c 20 7a l[cnum].zName, z
7170: 43 6f 6c 75 6d 6e 4e 61 6d 65 29 20 3d 3d 20 30 ColumnName) == 0
7180: 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 ).. {..
7190: 69 66 20 28 20 73 6f 72 74 4f 72 64 65 72 20 29 if ( sortOrder )
71a0: 20 2a 73 6f 72 74 4f 72 64 65 72 20 3d 20 70 49 *sortOrder = pI
71b0: 64 78 2d 3e 61 53 6f 72 74 4f 72 64 65 72 5b 6e dx->aSortOrder[n
71c0: 5d 3b 0d 0a 20 20 20 20 20 20 69 66 20 28 20 70 ];.. if ( p
71d0: 7a 43 6f 6c 6c 20 29 20 2a 70 7a 43 6f 6c 6c 20 zColl ) *pzColl
71e0: 3d 20 70 49 64 78 2d 3e 61 7a 43 6f 6c 6c 5b 6e = pIdx->azColl[n
71f0: 5d 3b 0d 0a 20 20 20 20 20 20 69 66 20 28 20 70 ];.. if ( p
7200: 6c 65 6e 20 29 20 2a 70 6c 65 6e 20 3d 20 73 74 len ) *plen = st
7210: 72 6c 65 6e 28 2a 70 7a 43 6f 6c 6c 29 3b 0d 0a rlen(*pzColl);..
7220: 20 20 20 20 20 20 69 66 20 28 20 6f 6e 45 72 72 if ( onErr
7230: 6f 72 20 29 20 2a 6f 6e 45 72 72 6f 72 20 3d 20 or ) *onError =
7240: 70 49 64 78 2d 3e 6f 6e 45 72 72 6f 72 3b 0d 0a pIdx->onError;..
7250: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 .. return S
7260: 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 20 20 20 20 7d QLITE_OK;.. }
7270: 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 .. }.. return
7280: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 7d SQLITE_ERROR;..}
7290: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 ....SQLITE_API i
72a0: 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 nt WINAPI sqlite
72b0: 33 5f 74 61 62 6c 65 5f 63 75 72 73 6f 72 5f 69 3_table_cursor_i
72c0: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 nterop(sqlite3_s
72d0: 74 6d 74 20 2a 70 73 74 6d 74 2c 20 69 6e 74 20 tmt *pstmt, int
72e0: 69 44 62 2c 20 50 67 6e 6f 20 74 61 62 6c 65 52 iDb, Pgno tableR
72f0: 6f 6f 74 50 61 67 65 29 0d 0a 7b 0d 0a 20 20 56 ootPage)..{.. V
7300: 64 62 65 20 2a 70 20 3d 20 28 56 64 62 65 20 2a dbe *p = (Vdbe *
7310: 29 70 73 74 6d 74 3b 0d 0a 20 20 73 71 6c 69 74 )pstmt;.. sqlit
7320: 65 33 20 2a 64 62 20 3d 20 28 70 20 3d 3d 20 4e e3 *db = (p == N
7330: 55 4c 4c 29 20 3f 20 4e 55 4c 4c 20 3a 20 70 2d ULL) ? NULL : p-
7340: 3e 64 62 3b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a >db;.. int n;..
7350: 20 20 69 6e 74 20 72 65 74 20 3d 20 2d 31 3b 20 int ret = -1;
7360: 2f 2a 20 4e 4f 54 20 46 4f 55 4e 44 20 2a 2f 0d /* NOT FOUND */.
7370: 0a 0d 0a 20 20 69 66 20 28 21 70 20 7c 7c 20 21 ... if (!p || !
7380: 64 62 29 20 72 65 74 75 72 6e 20 72 65 74 3b 0d db) return ret;.
7390: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 . sqlite3_mutex
73a0: 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 _enter(db->mutex
73b0: 29 3b 0d 0a 20 20 66 6f 72 20 28 6e 20 3d 20 30 );.. for (n = 0
73c0: 3b 20 6e 20 3c 20 70 2d 3e 6e 43 75 72 73 6f 72 ; n < p->nCursor
73d0: 20 26 26 20 70 2d 3e 61 70 43 73 72 5b 6e 5d 20 && p->apCsr[n]
73e0: 21 3d 20 4e 55 4c 4c 3b 20 6e 2b 2b 29 0d 0a 20 != NULL; n++)..
73f0: 20 7b 0d 0a 20 20 20 20 69 66 20 28 70 2d 3e 61 {.. if (p->a
7400: 70 43 73 72 5b 6e 5d 2d 3e 69 73 54 61 62 6c 65 pCsr[n]->isTable
7410: 20 3d 3d 20 46 41 4c 53 45 29 20 63 6f 6e 74 69 == FALSE) conti
7420: 6e 75 65 3b 0d 0a 20 20 20 20 69 66 20 28 70 2d nue;.. if (p-
7430: 3e 61 70 43 73 72 5b 6e 5d 2d 3e 69 44 62 20 21 >apCsr[n]->iDb !
7440: 3d 20 69 44 62 29 20 63 6f 6e 74 69 6e 75 65 3b = iDb) continue;
7450: 0d 0a 20 20 20 20 69 66 20 28 70 2d 3e 61 70 43 .. if (p->apC
7460: 73 72 5b 6e 5d 2d 3e 70 43 75 72 73 6f 72 2d 3e sr[n]->pCursor->
7470: 70 67 6e 6f 52 6f 6f 74 20 3d 3d 20 74 61 62 6c pgnoRoot == tabl
7480: 65 52 6f 6f 74 50 61 67 65 29 0d 0a 20 20 20 20 eRootPage)..
7490: 7b 0d 0a 20 20 20 20 20 20 72 65 74 20 3d 20 6e {.. ret = n
74a0: 3b 0d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0d ;.. break;.
74b0: 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 20 20 73 . }.. }.. s
74c0: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 qlite3_mutex_lea
74d0: 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a ve(db->mutex);..
74e0: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
74f0: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
7500: 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 int WINAPI sqli
7510: 74 65 33 5f 63 75 72 73 6f 72 5f 72 6f 77 69 64 te3_cursor_rowid
7520: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
7530: 5f 73 74 6d 74 20 2a 70 73 74 6d 74 2c 20 69 6e _stmt *pstmt, in
7540: 74 20 63 75 72 73 6f 72 2c 20 73 71 6c 69 74 65 t cursor, sqlite
7550: 5f 69 6e 74 36 34 20 2a 70 72 6f 77 69 64 29 0d _int64 *prowid).
7560: 0a 7b 0d 0a 20 20 56 64 62 65 20 2a 70 20 3d 20 .{.. Vdbe *p =
7570: 28 56 64 62 65 20 2a 29 70 73 74 6d 74 3b 0d 0a (Vdbe *)pstmt;..
7580: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 sqlite3 *db =
7590: 28 70 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 4e 55 (p == NULL) ? NU
75a0: 4c 4c 20 3a 20 70 2d 3e 64 62 3b 0d 0a 20 20 56 LL : p->db;.. V
75b0: 64 62 65 43 75 72 73 6f 72 20 2a 70 43 3b 0d 0a dbeCursor *pC;..
75c0: 20 20 69 6e 74 20 72 65 74 20 3d 20 53 51 4c 49 int ret = SQLI
75d0: 54 45 5f 4f 4b 3b 0d 0a 0d 0a 20 20 69 66 20 28 TE_OK;.... if (
75e0: 21 70 20 7c 7c 20 21 64 62 29 20 72 65 74 75 72 !p || !db) retur
75f0: 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d n SQLITE_ERROR;.
7600: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 . sqlite3_mutex
7610: 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 _enter(db->mutex
7620: 29 3b 0d 0a 20 20 77 68 69 6c 65 20 28 31 29 0d );.. while (1).
7630: 0a 20 20 7b 0d 0a 20 20 20 20 69 66 20 28 63 75 . {.. if (cu
7640: 72 73 6f 72 20 3c 20 30 20 7c 7c 20 63 75 72 73 rsor < 0 || curs
7650: 6f 72 20 3e 3d 20 70 2d 3e 6e 43 75 72 73 6f 72 or >= p->nCursor
7660: 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 ).. {..
7670: 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 ret = SQLITE_ERR
7680: 4f 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 61 6b OR;.. break
7690: 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 69 66 ;.. }.. if
76a0: 20 28 70 2d 3e 61 70 43 73 72 5b 63 75 72 73 6f (p->apCsr[curso
76b0: 72 5d 20 3d 3d 20 4e 55 4c 4c 29 0d 0a 20 20 20 r] == NULL)..
76c0: 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 20 3d 20 {.. ret =
76d0: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 SQLITE_ERROR;..
76e0: 20 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 break;..
76f0: 20 7d 0d 0a 0d 0a 20 20 20 20 70 43 20 3d 20 70 }.... pC = p
7700: 2d 3e 61 70 43 73 72 5b 63 75 72 73 6f 72 5d 3b ->apCsr[cursor];
7710: 0d 0a 0d 0a 20 20 20 20 72 65 74 20 3d 20 73 71 .... ret = sq
7720: 6c 69 74 65 33 56 64 62 65 43 75 72 73 6f 72 4d lite3VdbeCursorM
7730: 6f 76 65 74 6f 28 70 43 29 3b 0d 0a 20 20 20 20 oveto(pC);..
7740: 69 66 28 72 65 74 29 0d 0a 20 20 20 20 20 20 62 if(ret).. b
7750: 72 65 61 6b 3b 0d 0a 0d 0a 23 69 66 20 53 51 4c reak;....#if SQL
7760: 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 ITE_VERSION_NUMB
7770: 45 52 20 3c 20 33 30 30 38 30 30 37 0d 0a 20 20 ER < 3008007..
7780: 20 20 69 66 28 70 43 2d 3e 72 6f 77 69 64 49 73 if(pC->rowidIs
7790: 56 61 6c 69 64 29 0d 0a 20 20 20 20 7b 0d 0a 20 Valid).. {..
77a0: 20 20 20 20 20 69 66 20 28 70 72 6f 77 69 64 29 if (prowid)
77b0: 20 2a 70 72 6f 77 69 64 20 3d 20 70 43 2d 3e 6c *prowid = pC->l
77c0: 61 73 74 52 6f 77 69 64 3b 0d 0a 20 20 20 20 7d astRowid;.. }
77d0: 0d 0a 20 20 20 20 65 6c 73 65 0d 0a 23 65 6e 64 .. else..#end
77e0: 69 66 0d 0a 20 20 20 20 69 66 28 70 43 2d 3e 70 if.. if(pC->p
77f0: 73 65 75 64 6f 54 61 62 6c 65 52 65 67 20 3e 20 seudoTableReg >
7800: 30 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 0).. {..
7810: 20 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 ret = SQLITE_ER
7820: 52 4f 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 61 ROR;.. brea
7830: 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 65 k;.. }.. e
7840: 6c 73 65 20 69 66 28 70 43 2d 3e 6e 75 6c 6c 52 lse if(pC->nullR
7850: 6f 77 20 7c 7c 20 70 43 2d 3e 70 43 75 72 73 6f ow || pC->pCurso
7860: 72 3d 3d 30 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 r==0).. {..
7870: 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 54 45 ret = SQLITE
7880: 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 20 20 62 _ERROR;.. b
7890: 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 reak;.. }..
78a0: 20 20 65 6c 73 65 0d 0a 20 20 20 20 7b 0d 0a 20 else.. {..
78b0: 20 20 20 20 20 69 66 20 28 70 43 2d 3e 70 43 75 if (pC->pCu
78c0: 72 73 6f 72 20 3d 3d 20 4e 55 4c 4c 29 0d 0a 20 rsor == NULL)..
78d0: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 {..
78e0: 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 ret = SQLITE_ERR
78f0: 4f 52 3b 0d 0a 20 20 20 20 20 20 20 20 62 72 65 OR;.. bre
7900: 61 6b 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 ak;.. }..
7910: 20 20 20 20 73 71 6c 69 74 65 33 42 74 72 65 65 sqlite3Btree
7920: 4b 65 79 53 69 7a 65 28 70 43 2d 3e 70 43 75 72 KeySize(pC->pCur
7930: 73 6f 72 2c 20 70 72 6f 77 69 64 29 3b 0d 0a 20 sor, prowid);..
7940: 20 20 20 20 20 69 66 20 28 70 72 6f 77 69 64 29 if (prowid)
7950: 20 2a 70 72 6f 77 69 64 20 3d 20 2a 70 72 6f 77 *prowid = *prow
7960: 69 64 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 id;.. }..
7970: 62 72 65 61 6b 3b 0d 0a 20 20 7d 0d 0a 20 20 73 break;.. }.. s
7980: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 qlite3_mutex_lea
7990: 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a ve(db->mutex);..
79a0: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
79b0: 0a 7d 0d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 .}..#endif /* SQ
79c0: 4c 49 54 45 5f 4f 53 5f 57 49 4e 20 2a 2f 0d 0a LITE_OS_WIN */..
79d0: 0d 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ../*************
79e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
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: 2f 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 54 68 65 20 /..../*..** The
7a30: 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 58 54 INTEROP_TEST_EXT
7a40: 45 4e 53 49 4f 4e 20 62 6c 6f 63 6b 20 6d 75 73 ENSION block mus
7a50: 74 20 62 65 20 61 74 20 74 68 65 20 65 6e 64 20 t be at the end
7a60: 6f 66 20 74 68 69 73 20 73 6f 75 72 63 65 20 66 of this source f
7a70: 69 6c 65 0d 0a 2a 2a 20 62 65 63 61 75 73 65 20 ile..** because
7a80: 69 74 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 it includes the
7a90: 22 73 71 6c 69 74 65 33 65 78 74 2e 68 22 20 66 "sqlite3ext.h" f
7aa0: 69 6c 65 2c 20 77 68 69 63 68 20 64 65 66 69 6e ile, which defin
7ab0: 65 73 20 74 68 65 20 73 71 6c 69 74 65 33 0d 0a es the sqlite3..
7ac0: 2a 2a 20 70 75 62 6c 69 63 20 41 50 49 20 66 75 ** public API fu
7ad0: 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 74 6f 20 nction names to
7ae0: 62 65 20 6d 61 63 72 6f 73 20 61 6e 64 20 74 68 be macros and th
7af0: 61 74 20 77 6f 75 6c 64 20 63 61 75 73 65 20 74 at would cause t
7b00: 68 65 20 63 6f 64 65 0d 0a 2a 2a 20 61 62 6f 76 he code..** abov
7b10: 65 20 74 68 69 73 20 70 6f 69 6e 74 20 74 6f 20 e this point to
7b20: 6d 61 6c 66 75 6e 63 74 69 6f 6e 2e 0d 0a 2a 2f malfunction...*/
7b30: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
7b40: 54 45 52 4f 50 5f 54 45 53 54 5f 45 58 54 45 4e TEROP_TEST_EXTEN
7b50: 53 49 4f 4e 29 0d 0a 23 69 6e 63 6c 75 64 65 20 SION)..#include
7b60: 22 2e 2e 2f 63 6f 72 65 2f 73 71 6c 69 74 65 33 "../core/sqlite3
7b70: 65 78 74 2e 68 22 0d 0a 53 51 4c 49 54 45 5f 45 ext.h"..SQLITE_E
7b80: 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 31 0d 0a XTENSION_INIT1..
7b90: 0d 0a 2f 2a 0d 0a 2a 2a 20 54 68 65 20 69 6e 74 ../*..** The int
7ba0: 65 72 6f 70 54 65 73 74 28 29 20 53 51 4c 20 66 eropTest() SQL f
7bb0: 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 unction returns
7bc0: 69 74 73 20 66 69 72 73 74 20 61 72 67 75 6d 65 its first argume
7bd0: 6e 74 20 6f 72 20 72 61 69 73 65 73 20 61 6e 0d nt or raises an.
7be0: 0a 2a 2a 20 65 72 72 6f 72 20 69 66 20 74 68 65 .** error if the
7bf0: 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 re are not enoug
7c00: 68 20 61 72 67 75 6d 65 6e 74 73 2e 0d 0a 2a 2f h arguments...*/
7c10: 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 41 54 45 ..SQLITE_PRIVATE
7c20: 20 76 6f 69 64 20 69 6e 74 65 72 6f 70 54 65 73 void interopTes
7c30: 74 46 75 6e 63 28 0d 0a 20 20 73 71 6c 69 74 65 tFunc(.. sqlite
7c40: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
7c50: 78 74 2c 0d 0a 20 20 69 6e 74 20 61 72 67 63 2c xt,.. int argc,
7c60: 0d 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 .. sqlite3_valu
7c70: 65 20 2a 2a 61 72 67 76 0d 0a 29 7b 0d 0a 20 20 e **argv..){..
7c80: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 const unsigned c
7c90: 68 61 72 20 2a 7a 3b 0d 0a 20 20 69 66 28 20 61 har *z;.. if( a
7ca0: 72 67 63 21 3d 31 20 29 7b 0d 0a 20 20 20 20 73 rgc!=1 ){.. s
7cb0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 qlite3_result_er
7cc0: 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 6e 65 ror(context, "ne
7cd0: 65 64 20 65 78 61 63 74 6c 79 20 6f 6e 65 20 61 ed exactly one a
7ce0: 72 67 75 6d 65 6e 74 22 2c 20 2d 31 29 3b 0d 0a rgument", -1);..
7cf0: 20 20 20 20 72 65 74 75 72 6e 3b 0d 0a 20 20 7d return;.. }
7d00: 0d 0a 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f .. z = sqlite3_
7d10: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
7d20: 30 5d 29 3b 0d 0a 20 20 69 66 28 20 7a 20 29 7b 0]);.. if( z ){
7d30: 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 .. sqlite3_re
7d40: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 sult_text(contex
7d50: 74 2c 20 28 63 68 61 72 2a 29 7a 2c 20 2d 31 2c t, (char*)z, -1,
7d60: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b SQLITE_STATIC);
7d70: 0d 0a 20 20 7d 65 6c 73 65 7b 0d 0a 20 20 20 20 .. }else{..
7d80: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 6e sqlite3_result_n
7d90: 75 6c 6c 28 63 6f 6e 74 65 78 74 29 3b 0d 0a 20 ull(context);..
7da0: 20 7d 0d 0a 7d 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 }..}..../*..**
7db0: 54 68 65 20 69 6e 74 65 72 6f 70 53 6c 65 65 70 The interopSleep
7dc0: 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 20 () SQL function
7dd0: 77 61 69 74 73 20 74 68 65 20 73 70 65 63 69 66 waits the specif
7de0: 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69 ied number of mi
7df0: 6c 6c 69 73 65 63 6f 6e 64 73 0d 0a 2a 2a 20 6f lliseconds..** o
7e00: 72 20 72 61 69 73 65 73 20 61 6e 20 65 72 72 6f r raises an erro
7e10: 72 20 69 66 20 74 68 65 72 65 20 61 72 65 20 6e r if there are n
7e20: 6f 74 20 65 6e 6f 75 67 68 20 61 72 67 75 6d 65 ot enough argume
7e30: 6e 74 73 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 nts...*/..SQLITE
7e40: 5f 50 52 49 56 41 54 45 20 76 6f 69 64 20 69 6e _PRIVATE void in
7e50: 74 65 72 6f 70 53 6c 65 65 70 46 75 6e 63 28 0d teropSleepFunc(.
7e60: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 . sqlite3_conte
7e70: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0d 0a 20 20 xt *context,..
7e80: 69 6e 74 20 61 72 67 63 2c 0d 0a 20 20 73 71 6c int argc,.. sql
7e90: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
7ea0: 76 0d 0a 29 7b 0d 0a 20 20 69 6e 74 20 6d 3b 0d v..){.. int m;.
7eb0: 0a 20 20 69 66 28 20 61 72 67 63 21 3d 31 20 29 . if( argc!=1 )
7ec0: 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 {.. sqlite3_r
7ed0: 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 esult_error(cont
7ee0: 65 78 74 2c 20 22 6e 65 65 64 20 65 78 61 63 74 ext, "need exact
7ef0: 6c 79 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 22 ly one argument"
7f00: 2c 20 2d 31 29 3b 0d 0a 20 20 20 20 72 65 74 75 , -1);.. retu
7f10: 72 6e 3b 0d 0a 20 20 7d 0d 0a 20 20 6d 20 3d 20 rn;.. }.. m =
7f20: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e sqlite3_value_in
7f30: 74 28 61 72 67 76 5b 30 5d 29 3b 0d 0a 23 69 66 t(argv[0]);..#if
7f40: 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 43 45 SQLITE_OS_WINCE
7f50: 0d 0a 20 20 53 6c 65 65 70 28 6d 29 3b 0d 0a 20 .. Sleep(m);..
7f60: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
7f70: 69 6e 74 28 63 6f 6e 74 65 78 74 2c 20 57 41 49 int(context, WAI
7f80: 54 5f 4f 42 4a 45 43 54 5f 30 29 3b 0d 0a 23 65 T_OBJECT_0);..#e
7f90: 6c 73 65 0d 0a 20 20 73 71 6c 69 74 65 33 5f 72 lse.. sqlite3_r
7fa0: 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 esult_int(contex
7fb0: 74 2c 20 53 6c 65 65 70 45 78 28 6d 2c 20 54 52 t, SleepEx(m, TR
7fc0: 55 45 29 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 7d UE));..#endif..}
7fd0: 0d 0a 0d 0a 2f 2a 20 53 51 4c 69 74 65 20 69 6e ..../* SQLite in
7fe0: 76 6f 6b 65 73 20 74 68 69 73 20 72 6f 75 74 69 vokes this routi
7ff0: 6e 65 20 6f 6e 63 65 20 77 68 65 6e 20 69 74 20 ne once when it
8000: 6c 6f 61 64 73 20 74 68 65 20 65 78 74 65 6e 73 loads the extens
8010: 69 6f 6e 2e 0d 0a 2a 2a 20 43 72 65 61 74 65 20 ion...** Create
8020: 6e 65 77 20 66 75 6e 63 74 69 6f 6e 73 2c 20 63 new functions, c
8030: 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 6e 63 ollating sequenc
8040: 65 73 2c 20 61 6e 64 20 76 69 72 74 75 61 6c 20 es, and virtual
8050: 74 61 62 6c 65 0d 0a 2a 2a 20 6d 6f 64 75 6c 65 table..** module
8060: 73 20 68 65 72 65 2e 20 20 54 68 69 73 20 69 73 s here. This is
8070: 20 75 73 75 61 6c 6c 79 20 74 68 65 20 6f 6e 6c usually the onl
8080: 79 20 65 78 70 6f 72 74 65 64 20 73 79 6d 62 6f y exported symbo
8090: 6c 20 69 6e 0d 0a 2a 2a 20 74 68 65 20 73 68 61 l in..** the sha
80a0: 72 65 64 20 6c 69 62 72 61 72 79 2e 0d 0a 2a 2f red library...*/
80b0: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 ..SQLITE_API int
80c0: 20 69 6e 74 65 72 6f 70 5f 74 65 73 74 5f 65 78 interop_test_ex
80d0: 74 65 6e 73 69 6f 6e 5f 69 6e 69 74 28 0d 0a 20 tension_init(..
80e0: 20 73 71 6c 69 74 65 33 20 2a 64 62 2c 0d 0a 20 sqlite3 *db,..
80f0: 20 63 68 61 72 20 2a 2a 70 7a 45 72 72 4d 73 67 char **pzErrMsg
8100: 2c 0d 0a 20 20 63 6f 6e 73 74 20 73 71 6c 69 74 ,.. const sqlit
8110: 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 20 e3_api_routines
8120: 2a 70 41 70 69 0d 0a 29 7b 0d 0a 20 20 69 6e 74 *pApi..){.. int
8130: 20 72 63 3b 0d 0a 20 20 53 51 4c 49 54 45 5f 45 rc;.. SQLITE_E
8140: 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 32 28 70 XTENSION_INIT2(p
8150: 41 70 69 29 0d 0a 20 20 72 63 20 3d 20 73 71 6c Api).. rc = sql
8160: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 ite3_create_func
8170: 74 69 6f 6e 28 64 62 2c 20 22 69 6e 74 65 72 6f tion(db, "intero
8180: 70 54 65 73 74 22 2c 20 2d 31 2c 20 53 51 4c 49 pTest", -1, SQLI
8190: 54 45 5f 41 4e 59 2c 20 30 2c 0d 0a 20 20 20 20 TE_ANY, 0,..
81a0: 20 20 69 6e 74 65 72 6f 70 54 65 73 74 46 75 6e interopTestFun
81b0: 63 2c 20 30 2c 20 30 29 3b 0d 0a 20 20 69 66 28 c, 0, 0);.. if(
81c0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 rc==SQLITE_OK )
81d0: 7b 0d 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 {.. rc = sqli
81e0: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 te3_create_funct
81f0: 69 6f 6e 28 64 62 2c 20 22 69 6e 74 65 72 6f 70 ion(db, "interop
8200: 53 6c 65 65 70 22 2c 20 31 2c 20 53 51 4c 49 54 Sleep", 1, SQLIT
8210: 45 5f 41 4e 59 2c 20 30 2c 0d 0a 20 20 20 20 20 E_ANY, 0,..
8220: 20 20 20 69 6e 74 65 72 6f 70 53 6c 65 65 70 46 interopSleepF
8230: 75 6e 63 2c 20 30 2c 20 30 29 3b 0d 0a 20 20 7d unc, 0, 0);.. }
8240: 0d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0d 0a .. return rc;..
8250: 7d 0d 0a 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 }..#endif /* def
8260: 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 53 5f 57 ined(SQLITE_OS_W
8270: 49 4e 29 20 2a 2f 0d 0a IN) */..