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 20 0d 0a soft.com).. * ..
00b0: 20 2a 20 52 65 6c 65 61 73 65 64 20 74 6f 20 74 * Released to t
00c0: 68 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e he public domain
00d0: 2c 20 75 73 65 20 61 74 20 79 6f 75 72 20 6f 77 , use at your ow
00e0: 6e 20 72 69 73 6b 21 0d 0a 20 2a 2a 2a 2a 2a 2a n 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 2a 2f 0d 0a 0d 0a 23 64 65 66 69 6e 65 20 53 **/....#define S
0130: 51 4c 49 54 45 5f 41 50 49 20 5f 5f 64 65 63 6c QLITE_API __decl
0140: 73 70 65 63 28 64 6c 6c 65 78 70 6f 72 74 29 0d spec(dllexport).
0150: 0a 0d 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f ...#include "../
0160: 63 6f 72 65 2f 73 71 6c 69 74 65 33 2e 63 22 0d core/sqlite3.c".
0170: 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 ...#if defined(I
0180: 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f 4e NTEROP_EXTENSION
0190: 5f 46 55 4e 43 54 49 4f 4e 53 29 0d 0a 23 69 6e _FUNCTIONS)..#in
01a0: 63 6c 75 64 65 20 22 2e 2e 2f 63 6f 6e 74 72 69 clude "../contri
01b0: 62 2f 65 78 74 65 6e 73 69 6f 6e 2d 66 75 6e 63 b/extension-func
01c0: 74 69 6f 6e 73 2e 63 22 0d 0a 65 78 74 65 72 6e tions.c"..extern
01d0: 20 69 6e 74 20 52 65 67 69 73 74 65 72 45 78 74 int RegisterExt
01e0: 65 6e 73 69 6f 6e 46 75 6e 63 74 69 6f 6e 73 28 ensionFunctions(
01f0: 73 71 6c 69 74 65 33 20 2a 64 62 29 3b 0d 0a 23 sqlite3 *db);..#
0200: 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 64 65 66 20 endif....#ifdef
0210: 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0d 0a 23 SQLITE_OS_WIN..#
0220: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
0230: 4f 50 5f 43 4f 44 45 43 29 0d 0a 23 69 6e 63 6c OP_CODEC)..#incl
0240: 75 64 65 20 22 63 72 79 70 74 2e 63 22 0d 0a 23 ude "crypt.c"..#
0250: 65 6e 64 69 66 0d 0a 0d 0a 23 64 65 66 69 6e 65 endif....#define
0260: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 4e INTEROP_DEBUG_N
0270: 4f 4e 45 20 20 20 20 20 20 20 20 20 20 20 28 30 ONE (0
0280: 78 30 30 30 30 29 0d 0a 23 64 65 66 69 6e 65 20 x0000)..#define
0290: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 43 4c INTEROP_DEBUG_CL
02a0: 4f 53 45 20 20 20 20 20 20 20 20 20 20 28 30 78 OSE (0x
02b0: 30 30 30 31 29 0d 0a 23 64 65 66 69 6e 65 20 49 0001)..#define I
02c0: 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 46 49 4e NTEROP_DEBUG_FIN
02d0: 41 4c 49 5a 45 20 20 20 20 20 20 20 28 30 78 30 ALIZE (0x0
02e0: 30 30 32 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 002)..#define IN
02f0: 54 45 52 4f 50 5f 44 45 42 55 47 5f 42 41 43 4b TEROP_DEBUG_BACK
0300: 55 50 5f 46 49 4e 49 53 48 20 20 28 30 78 30 30 UP_FINISH (0x00
0310: 30 34 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 04)..#define INT
0320: 45 52 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 20 EROP_DEBUG_OPEN
0330: 20 20 20 20 20 20 20 20 20 20 28 30 78 30 30 30 (0x000
0340: 38 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 8)..#define INTE
0350: 52 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 31 36 ROP_DEBUG_OPEN16
0360: 20 20 20 20 20 20 20 20 20 28 30 78 30 30 31 30 (0x0010
0370: 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 )..#define INTER
0380: 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 41 52 45 OP_DEBUG_PREPARE
0390: 20 20 20 20 20 20 20 20 28 30 78 30 30 32 30 29 (0x0020)
03a0: 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f ..#define INTERO
03b0: 50 5f 44 45 42 55 47 5f 50 52 45 50 41 52 45 31 P_DEBUG_PREPARE1
03c0: 36 20 20 20 20 20 20 28 30 78 30 30 34 30 29 0d 6 (0x0040).
03d0: 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 .#define INTEROP
03e0: 5f 44 45 42 55 47 5f 52 45 53 45 54 20 20 20 20 _DEBUG_RESET
03f0: 20 20 20 20 20 20 28 30 78 30 30 38 30 29 0d 0a (0x0080)..
0400: 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f #define INTEROP_
0410: 44 45 42 55 47 5f 43 48 41 4e 47 45 53 20 20 20 DEBUG_CHANGES
0420: 20 20 20 20 20 28 30 78 30 31 30 30 29 0d 0a 23 (0x0100)..#
0430: 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 define INTEROP_D
0440: 45 42 55 47 5f 42 52 45 41 4b 20 20 20 20 20 20 EBUG_BREAK
0450: 20 20 20 20 28 30 78 30 32 30 30 29 0d 0a 0d 0a (0x0200)....
0460: 23 69 66 20 64 65 66 69 6e 65 64 28 5f 4d 53 43 #if defined(_MSC
0470: 5f 56 45 52 29 20 26 26 20 64 65 66 69 6e 65 64 _VER) && defined
0480: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
0490: 26 26 20 5c 0d 0a 20 20 20 20 28 49 4e 54 45 52 && \.. (INTER
04a0: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
04b0: 4f 50 5f 44 45 42 55 47 5f 42 52 45 41 4b 29 0d OP_DEBUG_BREAK).
04c0: 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74 65 33 .#define sqlite3
04d0: 49 6e 74 65 72 6f 70 42 72 65 61 6b 28 61 29 20 InteropBreak(a)
04e0: 7b 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 { sqlite3Interop
04f0: 44 65 62 75 67 28 22 25 73 5c 6e 22 2c 20 28 61 Debug("%s\n", (a
0500: 29 29 3b 20 5f 5f 64 65 62 75 67 62 72 65 61 6b )); __debugbreak
0510: 28 29 3b 20 7d 0d 0a 23 65 6c 73 65 0d 0a 23 64 (); }..#else..#d
0520: 65 66 69 6e 65 20 73 71 6c 69 74 65 33 49 6e 74 efine sqlite3Int
0530: 65 72 6f 70 42 72 65 61 6b 28 61 29 0d 0a 23 65 eropBreak(a)..#e
0540: 6e 64 69 66 0d 0a 0d 0a 74 79 70 65 64 65 66 20 ndif....typedef
0550: 76 6f 69 64 20 28 2a 53 51 4c 49 54 45 55 53 45 void (*SQLITEUSE
0560: 52 46 55 4e 43 29 28 73 71 6c 69 74 65 33 5f 63 RFUNC)(sqlite3_c
0570: 6f 6e 74 65 78 74 20 2a 2c 20 69 6e 74 2c 20 73 ontext *, int, s
0580: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 29 qlite3_value **)
0590: 3b 0d 0a 74 79 70 65 64 65 66 20 76 6f 69 64 20 ;..typedef void
05a0: 28 2a 53 51 4c 49 54 45 46 55 4e 43 46 49 4e 41 (*SQLITEFUNCFINA
05b0: 4c 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 L)(sqlite3_conte
05c0: 78 74 20 2a 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 xt *);....#if de
05d0: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
05e0: 42 55 47 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 BUG) || defined(
05f0: 49 4e 54 45 52 4f 50 5f 4c 4f 47 29 0d 0a 53 51 INTEROP_LOG)..SQ
0600: 4c 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f 69 LITE_PRIVATE voi
0610: 64 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 d sqlite3Interop
0620: 44 65 62 75 67 28 63 6f 6e 73 74 20 63 68 61 72 Debug(const char
0630: 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b *zFormat, ...){
0640: 0d 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 20 .. va_list ap;
0650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0660: 20 20 20 20 20 20 20 20 2f 2a 20 56 61 72 61 72 /* Varar
0670: 67 20 6c 69 73 74 20 2a 2f 0d 0a 20 20 53 74 72 g list */.. Str
0680: 41 63 63 75 6d 20 61 63 63 3b 20 20 20 20 20 20 Accum acc;
0690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
06a0: 20 2f 2a 20 53 74 72 69 6e 67 20 61 63 63 75 6d /* String accum
06b0: 75 6c 61 74 6f 72 20 2a 2f 0a 20 20 63 68 61 72 ulator */. char
06c0: 20 7a 4d 73 67 5b 53 51 4c 49 54 45 5f 50 52 49 zMsg[SQLITE_PRI
06d0: 4e 54 5f 42 55 46 5f 53 49 5a 45 2a 33 5d 3b 20 NT_BUF_SIZE*3];
06e0: 2f 2a 20 43 6f 6d 70 6c 65 74 65 20 6c 6f 67 20 /* Complete log
06f0: 6d 65 73 73 61 67 65 20 2a 2f 0d 0a 20 20 76 61 message */.. va
0700: 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d _start(ap, zForm
0710: 61 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 53 74 at);. sqlite3St
0720: 72 41 63 63 75 6d 49 6e 69 74 28 26 61 63 63 2c rAccumInit(&acc,
0730: 20 7a 4d 73 67 2c 20 73 69 7a 65 6f 66 28 7a 4d zMsg, sizeof(zM
0740: 73 67 29 2c 20 30 29 3b 0a 20 20 61 63 63 2e 75 sg), 0);. acc.u
0750: 73 65 4d 61 6c 6c 6f 63 20 3d 20 30 3b 0a 20 20 seMalloc = 0;.
0760: 73 71 6c 69 74 65 33 56 58 50 72 69 6e 74 66 28 sqlite3VXPrintf(
0770: 26 61 63 63 2c 20 30 2c 20 7a 46 6f 72 6d 61 74 &acc, 0, zFormat
0780: 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 , ap);. va_end(
0790: 61 70 29 3b 0a 23 69 66 20 53 51 4c 49 54 45 5f ap);.#if SQLITE_
07a0: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
07b0: 3d 20 33 30 30 37 30 31 33 0a 20 20 73 71 6c 69 = 3007013. sqli
07c0: 74 65 33 5f 77 69 6e 33 32 5f 77 72 69 74 65 5f te3_win32_write_
07d0: 64 65 62 75 67 28 73 71 6c 69 74 65 33 53 74 72 debug(sqlite3Str
07e0: 41 63 63 75 6d 46 69 6e 69 73 68 28 26 61 63 63 AccumFinish(&acc
07f0: 29 2c 20 2d 31 29 3b 0a 23 65 6c 69 66 20 64 65 ), -1);.#elif de
0800: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 57 49 4e fined(SQLITE_WIN
0810: 33 32 5f 48 41 53 5f 41 4e 53 49 29 0a 20 20 4f 32_HAS_ANSI). O
0820: 75 74 70 75 74 44 65 62 75 67 53 74 72 69 6e 67 utputDebugString
0830: 41 28 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 A(sqlite3StrAccu
0840: 6d 46 69 6e 69 73 68 28 26 61 63 63 29 29 3b 0a mFinish(&acc));.
0850: 23 65 6c 69 66 20 64 65 66 69 6e 65 64 28 53 51 #elif defined(SQ
0860: 4c 49 54 45 5f 57 49 4e 33 32 5f 48 41 53 5f 57 LITE_WIN32_HAS_W
0870: 49 44 45 29 0a 20 20 7b 0a 20 20 20 20 4c 50 57 IDE). {. LPW
0880: 53 54 52 20 7a 57 69 64 65 4d 73 67 20 3d 20 75 STR zWideMsg = u
0890: 74 66 38 54 6f 55 6e 69 63 6f 64 65 28 73 71 6c tf8ToUnicode(sql
08a0: 69 74 65 33 53 74 72 41 63 63 75 6d 46 69 6e 69 ite3StrAccumFini
08b0: 73 68 28 26 61 63 63 29 29 3b 0a 20 20 20 20 69 sh(&acc));. i
08c0: 66 28 20 7a 57 69 64 65 4d 73 67 20 29 7b 0a 20 f( zWideMsg ){.
08d0: 20 20 20 20 20 4f 75 74 70 75 74 44 65 62 75 67 OutputDebug
08e0: 53 74 72 69 6e 67 57 28 7a 57 69 64 65 4d 73 67 StringW(zWideMsg
08f0: 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 );. sqlite3
0900: 5f 66 72 65 65 28 7a 57 69 64 65 4d 73 67 29 3b _free(zWideMsg);
0910: 0a 20 20 20 20 7d 0a 20 20 7d 0a 23 65 6c 73 65 . }. }.#else
0920: 0a 20 20 66 70 72 69 6e 74 66 28 73 74 64 65 72 . fprintf(stder
0930: 72 2c 20 22 25 73 22 2c 20 73 71 6c 69 74 65 33 r, "%s", sqlite3
0940: 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68 28 26 StrAccumFinish(&
0950: 61 63 63 29 29 3b 0a 23 65 6e 64 69 66 0a 7d 0d acc));.#endif.}.
0960: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 .#endif....#if d
0970: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 4c efined(INTEROP_L
0980: 4f 47 29 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 OG)..SQLITE_PRIV
0990: 41 54 45 20 69 6e 74 20 6c 6f 67 43 6f 6e 66 69 ATE int logConfi
09a0: 67 75 72 65 64 20 3d 20 30 3b 0d 0a 0d 0a 53 51 gured = 0;....SQ
09b0: 4c 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f 69 LITE_PRIVATE voi
09c0: 64 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 d sqlite3Interop
09d0: 4c 6f 67 43 61 6c 6c 62 61 63 6b 28 76 6f 69 64 LogCallback(void
09e0: 20 2a 70 41 72 67 2c 20 69 6e 74 20 69 43 6f 64 *pArg, int iCod
09f0: 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a e, const char *z
0a00: 4d 73 67 29 7b 0d 0a 20 20 73 71 6c 69 74 65 33 Msg){.. sqlite3
0a10: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 49 4e InteropDebug("IN
0a20: 54 45 52 4f 50 5f 4c 4f 47 20 28 25 64 29 20 25 TEROP_LOG (%d) %
0a30: 73 5c 6e 22 2c 20 69 43 6f 64 65 2c 20 7a 4d 73 s\n", iCode, zMs
0a40: 67 29 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a g);..}..#endif..
0a50: 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 ..#if SQLITE_VER
0a60: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 33 30 SION_NUMBER < 30
0a70: 30 37 30 31 34 0d 0a 53 51 4c 49 54 45 5f 50 52 07014..SQLITE_PR
0a80: 49 56 41 54 45 20 76 6f 69 64 20 2a 20 73 71 6c IVATE void * sql
0a90: 69 74 65 33 44 62 4d 61 6c 6c 6f 63 5a 65 72 6f ite3DbMallocZero
0aa0: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
0ab0: 20 2a 64 62 2c 20 69 6e 74 20 6e 29 0d 0a 7b 0d *db, int n)..{.
0ac0: 0a 20 20 76 6f 69 64 20 2a 70 3b 0d 0a 20 20 69 . void *p;.. i
0ad0: 66 20 28 64 62 29 20 7b 0d 0a 20 20 20 20 73 71 f (db) {.. sq
0ae0: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
0af0: 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 r(db->mutex);..
0b00: 20 7d 0d 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 }.. p = sqlite
0b10: 33 44 62 4d 61 6c 6c 6f 63 5a 65 72 6f 28 64 62 3DbMallocZero(db
0b20: 2c 6e 29 3b 0d 0a 20 20 69 66 20 28 64 62 29 20 ,n);.. if (db)
0b30: 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d {.. sqlite3_m
0b40: 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d utex_leave(db->m
0b50: 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a 20 20 72 utex);.. }.. r
0b60: 65 74 75 72 6e 20 70 3b 0d 0a 7d 0d 0a 0d 0a 53 eturn p;..}....S
0b70: 51 4c 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f QLITE_PRIVATE vo
0b80: 69 64 20 73 71 6c 69 74 65 33 44 62 46 72 65 65 id sqlite3DbFree
0b90: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
0ba0: 20 2a 64 62 2c 20 76 6f 69 64 20 2a 70 29 0d 0a *db, void *p)..
0bb0: 7b 0d 0a 20 20 69 66 20 28 64 62 29 20 7b 0d 0a {.. if (db) {..
0bc0: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
0bd0: 78 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 x_enter(db->mute
0be0: 78 29 3b 0d 0a 20 20 7d 0d 0a 20 20 69 66 20 28 x);.. }.. if (
0bf0: 70 29 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 p) {.. sqlite
0c00: 33 4d 65 6d 64 65 62 75 67 53 65 74 54 79 70 65 3MemdebugSetType
0c10: 28 70 2c 20 4d 45 4d 54 59 50 45 5f 44 42 7c 4d (p, MEMTYPE_DB|M
0c20: 45 4d 54 59 50 45 5f 48 45 41 50 29 3b 0d 0a 20 EMTYPE_HEAP);..
0c30: 20 7d 0d 0a 20 20 73 71 6c 69 74 65 33 44 62 46 }.. sqlite3DbF
0c40: 72 65 65 28 64 62 2c 70 29 3b 0d 0a 20 20 69 66 ree(db,p);.. if
0c50: 20 28 64 62 29 20 7b 0d 0a 20 20 20 20 73 71 6c (db) {.. sql
0c60: 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 ite3_mutex_leave
0c70: 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 (db->mutex);..
0c80: 7d 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a }..}..#endif....
0c90: 2f 2a 0d 0a 20 20 20 20 54 68 65 20 67 6f 61 6c /*.. The goal
0ca0: 20 6f 66 20 74 68 69 73 20 76 65 72 73 69 6f 6e of this version
0cb0: 20 6f 66 20 63 6c 6f 73 65 20 69 73 20 64 69 66 of close is dif
0cc0: 66 65 72 65 6e 74 20 74 68 61 6e 20 74 68 61 74 ferent than that
0cd0: 20 6f 66 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 of sqlite3_clos
0ce0: 65 28 29 2c 20 61 6e 64 20 69 73 20 64 65 73 69 e(), and is desi
0cf0: 67 6e 65 64 20 74 6f 20 6c 65 6e 64 20 69 74 73 gned to lend its
0d00: 65 6c 66 20 62 65 74 74 65 72 20 74 6f 20 2e 4e elf better to .N
0d10: 45 54 27 73 20 6e 6f 6e 2d 64 65 74 65 72 6d 69 ET's non-determi
0d20: 6e 69 73 74 69 63 20 66 69 6e 61 6c 69 7a 65 72 nistic finalizer
0d30: 73 20 61 6e 64 0d 0a 20 20 20 20 74 68 65 20 47 s and.. the G
0d40: 43 20 74 68 72 65 61 64 2e 20 20 53 51 4c 69 74 C thread. SQLit
0d50: 65 20 77 69 6c 6c 20 6e 6f 74 20 63 6c 6f 73 65 e will not close
0d60: 20 61 20 64 61 74 61 62 61 73 65 20 69 66 20 73 a database if s
0d70: 74 61 74 65 6d 65 6e 74 73 20 61 72 65 20 6f 70 tatements are op
0d80: 65 6e 20 6f 6e 20 69 74 20 2d 2d 20 62 75 74 20 en on it -- but
0d90: 66 6f 72 20 6f 75 72 20 70 75 72 70 6f 73 65 73 for our purposes
0da0: 2c 20 77 65 27 64 20 72 61 74 68 65 72 20 66 69 , we'd rather fi
0db0: 6e 61 6c 69 7a 65 20 61 6c 6c 20 61 63 74 69 76 nalize all activ
0dc0: 65 20 73 74 61 74 65 6d 65 6e 74 73 0d 0a 20 20 e statements..
0dd0: 20 20 61 6e 64 20 66 6f 72 63 69 62 6c 79 20 63 and forcibly c
0de0: 6c 6f 73 65 20 74 68 65 20 64 61 74 61 62 61 73 lose the databas
0df0: 65 2e 20 20 54 68 65 20 72 65 61 73 6f 6e 20 69 e. The reason i
0e00: 73 20 73 69 6d 70 6c 65 20 2d 2d 20 61 20 6c 6f s simple -- a lo
0e10: 74 20 6f 66 20 70 65 6f 70 6c 65 20 64 6f 6e 27 t of people don'
0e20: 74 20 44 69 73 70 6f 73 65 28 29 20 6f 66 20 74 t Dispose() of t
0e30: 68 65 69 72 20 6f 62 6a 65 63 74 73 20 63 6f 72 heir objects cor
0e40: 72 65 63 74 6c 79 20 61 6e 64 20 6c 65 74 20 74 rectly and let t
0e50: 68 65 20 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 he garbage colle
0e60: 63 74 6f 72 0d 0a 20 20 20 20 64 6f 20 69 74 2e ctor.. do it.
0e70: 20 20 54 68 69 73 20 6c 65 61 64 73 20 74 6f 20 This leads to
0e80: 75 6e 65 78 70 65 63 74 65 64 20 62 65 68 61 76 unexpected behav
0e90: 69 6f 72 20 77 68 65 6e 20 61 20 75 73 65 72 20 ior when a user
0ea0: 74 68 69 6e 6b 73 20 74 68 65 79 27 76 65 20 63 thinks they've c
0eb0: 6c 6f 73 65 64 20 61 20 64 61 74 61 62 61 73 65 losed a database
0ec0: 2c 20 62 75 74 20 69 74 27 73 20 73 74 69 6c 6c , but it's still
0ed0: 20 6f 70 65 6e 20 62 65 63 61 75 73 65 20 6e 6f open because no
0ee0: 74 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 6d t all the statem
0ef0: 65 6e 74 73 20 68 61 76 65 0d 0a 20 20 20 20 68 ents have.. h
0f00: 69 74 20 74 68 65 20 47 43 20 79 65 74 2e 0d 0a it the GC yet...
0f10: 0d 0a 20 20 20 20 53 6f 2c 20 68 65 72 65 20 77 .. So, here w
0f20: 65 20 68 61 76 65 20 61 20 70 72 6f 62 6c 65 6d e have a problem
0f30: 20 2e 2e 2e 20 2e 4e 45 54 20 68 61 73 20 61 20 ... .NET has a
0f40: 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 79 20 6e pointer to any n
0f50: 75 6d 62 65 72 20 6f 66 20 73 71 6c 69 74 65 33 umber of sqlite3
0f60: 5f 73 74 6d 74 20 6f 62 6a 65 63 74 73 2e 20 20 _stmt objects.
0f70: 57 65 20 63 61 6e 27 74 20 63 61 6c 6c 20 73 71 We can't call sq
0f80: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 29 lite3_finalize()
0f90: 20 6f 6e 20 74 68 65 73 65 20 62 65 63 61 75 73 on these becaus
0fa0: 65 0d 0a 20 20 20 20 74 68 65 69 72 20 6d 65 6d e.. their mem
0fb0: 6f 72 79 20 69 73 20 66 72 65 65 64 20 61 6e 64 ory is freed and
0fc0: 20 63 61 6e 20 62 65 20 75 73 65 64 20 66 6f 72 can be used for
0fd0: 20 73 6f 6d 65 74 68 69 6e 67 20 65 6c 73 65 2e something else.
0fe0: 20 20 54 68 65 20 47 43 20 74 68 72 65 61 64 20 The GC thread
0ff0: 63 6f 75 6c 64 20 70 6f 74 65 6e 74 69 61 6c 6c could potentiall
1000: 79 20 74 72 79 20 61 6e 64 20 63 61 6c 6c 20 66 y try and call f
1010: 69 6e 61 6c 69 7a 65 20 61 67 61 69 6e 20 6f 6e inalize again on
1020: 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 61 the statement a
1030: 66 74 65 72 0d 0a 20 20 20 20 74 68 61 74 20 6d fter.. that m
1040: 65 6d 6f 72 79 20 77 61 73 20 64 65 61 6c 6c 6f emory was deallo
1050: 63 61 74 65 64 2e 20 20 42 41 44 2e 20 20 53 6f cated. BAD. So
1060: 2c 20 77 68 61 74 20 77 65 20 6e 65 65 64 20 74 , what we need t
1070: 6f 20 64 6f 20 69 73 20 6d 61 6b 65 20 61 20 63 o do is make a c
1080: 6f 70 79 20 6f 66 20 65 61 63 68 20 73 74 61 74 opy of each stat
1090: 65 6d 65 6e 74 2c 20 61 6e 64 20 63 61 6c 6c 20 ement, and call
10a0: 66 69 6e 61 6c 69 7a 65 28 29 20 6f 6e 20 74 68 finalize() on th
10b0: 65 20 63 6f 70 79 20 2d 2d 20 73 6f 20 74 68 61 e copy -- so tha
10c0: 74 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0d 0a t the original..
10d0: 20 20 20 20 73 74 61 74 65 6d 65 6e 74 27 73 20 statement's
10e0: 6d 65 6d 6f 72 79 20 69 73 20 70 72 65 73 65 72 memory is preser
10f0: 76 65 64 2c 20 61 6e 64 20 6d 61 72 6b 65 64 20 ved, and marked
1100: 61 73 20 42 41 44 2c 20 62 75 74 20 77 65 20 63 as BAD, but we c
1110: 61 6e 20 73 74 69 6c 6c 20 6d 61 6e 61 67 65 20 an still manage
1120: 74 6f 20 66 69 6e 61 6c 69 7a 65 20 65 76 65 72 to finalize ever
1130: 79 74 68 69 6e 67 20 61 6e 64 20 66 6f 72 63 69 ything and forci
1140: 62 6c 79 20 63 6c 6f 73 65 20 74 68 65 20 64 61 bly close the da
1150: 74 61 62 61 73 65 2e 20 20 4c 61 74 65 72 20 77 tabase. Later w
1160: 68 65 6e 20 74 68 65 20 0d 0a 20 20 20 20 47 43 hen the .. GC
1170: 20 67 65 74 73 20 61 72 6f 75 6e 64 20 74 6f 20 gets around to
1180: 63 61 6c 6c 69 6e 67 20 66 69 6e 61 6c 69 7a 65 calling finalize
1190: 5f 69 6e 74 65 72 6f 70 28 29 20 6f 6e 20 74 68 _interop() on th
11a0: 65 20 22 62 61 64 22 20 73 74 61 74 65 6d 65 6e e "bad" statemen
11b0: 74 2c 20 77 65 20 64 65 74 65 63 74 20 74 68 61 t, we detect tha
11c0: 74 20 61 6e 64 20 66 69 6e 69 73 68 20 64 65 61 t and finish dea
11d0: 6c 6c 6f 63 61 74 69 6e 67 20 74 68 65 20 70 6f llocating the po
11e0: 69 6e 74 65 72 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 inter...*/..SQLI
11f0: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
1200: 49 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 5f I sqlite3_close_
1210: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 interop(sqlite3
1220: 2a 64 62 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 *db)..{.. int r
1230: 65 74 3b 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f et;..#if SQLITE_
1240: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
1250: 3d 20 33 30 30 37 30 31 34 0d 0a 0d 0a 23 69 66 = 3007014....#if
1260: 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 defined(INTEROP
1270: 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 _DEBUG) && (INTE
1280: 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 ROP_DEBUG & INTE
1290: 52 4f 50 5f 44 45 42 55 47 5f 43 4c 4f 53 45 29 ROP_DEBUG_CLOSE)
12a0: 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 .. sqlite3Inter
12b0: 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 opDebug("sqlite3
12c0: 5f 63 6c 6f 73 65 5f 69 6e 74 65 72 6f 70 28 29 _close_interop()
12d0: 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 : calling sqlite
12e0: 33 5f 63 6c 6f 73 65 5f 76 32 28 25 70 29 2e 2e 3_close_v2(%p)..
12f0: 2e 5c 6e 22 2c 20 64 62 29 3b 0d 0a 23 65 6e 64 .\n", db);..#end
1300: 69 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 if.... ret = sq
1310: 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 76 32 28 64 lite3_close_v2(d
1320: 62 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e b);....#if defin
1330: 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ed(INTEROP_DEBUG
1340: 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 ) && (INTEROP_DE
1350: 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 BUG & INTEROP_DE
1360: 42 55 47 5f 43 4c 4f 53 45 29 0d 0a 20 20 73 71 BUG_CLOSE).. sq
1370: 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 lite3InteropDebu
1380: 67 28 22 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 g("sqlite3_close
1390: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 _interop(): sqli
13a0: 74 65 33 5f 63 6c 6f 73 65 5f 76 32 28 25 70 29 te3_close_v2(%p)
13b0: 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 returned %d.\n"
13c0: 2c 20 64 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e , db, ret);..#en
13d0: 64 69 66 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 dif.... return
13e0: 72 65 74 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 72 ret;..#else.. r
13f0: 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 63 6c 6f et = sqlite3_clo
1400: 73 65 28 64 62 29 3b 0d 0a 0d 0a 20 20 69 66 20 se(db);.... if
1410: 28 72 65 74 20 3d 3d 20 53 51 4c 49 54 45 5f 42 (ret == SQLITE_B
1420: 55 53 59 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 73 USY).. {.. s
1430: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 qlite3_mutex_ent
1440: 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a er(db->mutex);..
1450: 0d 0a 20 20 20 20 69 66 20 28 21 64 62 2d 3e 70 .. if (!db->p
1460: 56 64 62 65 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 Vdbe).. {..
1470: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
1480: 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
1490: 78 29 3b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 x);.. retur
14a0: 6e 20 72 65 74 3b 0d 0a 20 20 20 20 7d 0d 0a 0d n ret;.. }...
14b0: 0a 20 20 20 20 77 68 69 6c 65 20 28 64 62 2d 3e . while (db->
14c0: 70 56 64 62 65 29 0d 0a 20 20 20 20 7b 0d 0a 20 pVdbe).. {..
14d0: 20 20 20 20 20 2f 2a 20 4d 61 6b 65 20 61 20 63 /* Make a c
14e0: 6f 70 79 20 6f 66 20 74 68 65 20 66 69 72 73 74 opy of the first
14f0: 20 70 72 65 70 61 72 65 64 20 73 74 61 74 65 6d prepared statem
1500: 65 6e 74 20 2a 2f 0d 0a 20 20 20 20 20 20 56 64 ent */.. Vd
1510: 62 65 20 2a 70 20 3d 20 28 56 64 62 65 20 2a 29 be *p = (Vdbe *)
1520: 73 71 6c 69 74 65 33 44 62 4d 61 6c 6c 6f 63 5a sqlite3DbMallocZ
1530: 65 72 6f 5f 69 6e 74 65 72 6f 70 28 64 62 2c 20 ero_interop(db,
1540: 73 69 7a 65 6f 66 28 56 64 62 65 29 29 3b 0d 0a sizeof(Vdbe));..
1550: 20 20 20 20 20 20 56 64 62 65 20 2a 70 6f 20 3d Vdbe *po =
1560: 20 64 62 2d 3e 70 56 64 62 65 3b 0d 0a 0d 0a 20 db->pVdbe;....
1570: 20 20 20 20 20 69 66 20 28 21 70 29 20 0d 0a 20 if (!p) ..
1580: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 {..
1590: 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d ret = SQLITE_NOM
15a0: 45 4d 3b 0d 0a 20 20 20 20 20 20 20 20 62 72 65 EM;.. bre
15b0: 61 6b 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a ak;.. }....
15c0: 20 20 20 20 20 20 43 6f 70 79 4d 65 6d 6f 72 79 CopyMemory
15d0: 28 70 2c 20 70 6f 2c 20 73 69 7a 65 6f 66 28 56 (p, po, sizeof(V
15e0: 64 62 65 29 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 dbe));....
15f0: 2f 2a 20 50 75 74 20 69 74 20 6f 6e 20 74 68 65 /* Put it on the
1600: 20 63 68 61 69 6e 20 73 6f 20 77 65 20 63 61 6e chain so we can
1610: 20 66 72 65 65 20 69 74 20 2a 2f 0d 0a 20 20 20 free it */..
1620: 20 20 20 64 62 2d 3e 70 56 64 62 65 20 3d 20 70 db->pVdbe = p
1630: 3b 0d 0a 20 20 20 20 20 20 72 65 74 20 3d 20 73 ;.. ret = s
1640: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 qlite3_finalize(
1650: 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 29 (sqlite3_stmt *)
1660: 70 29 3b 20 2f 2a 20 54 68 69 73 20 77 69 6c 6c p); /* This will
1670: 20 61 6c 73 6f 20 66 72 65 65 20 74 68 65 20 63 also free the c
1680: 6f 70 79 27 73 20 6d 65 6d 6f 72 79 20 2a 2f 0d opy's memory */.
1690: 0a 20 20 20 20 20 20 69 66 20 28 72 65 74 29 0d . if (ret).
16a0: 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 . {..
16b0: 20 20 2f 2a 20 66 69 6e 61 6c 69 7a 65 20 66 61 /* finalize fa
16c0: 69 6c 65 64 20 2d 2d 20 73 6f 20 77 65 20 6d 75 iled -- so we mu
16d0: 73 74 20 70 75 74 20 62 61 63 6b 20 61 6e 79 74 st put back anyt
16e0: 68 69 6e 67 20 77 65 20 6d 75 6e 67 65 64 20 2a hing we munged *
16f0: 2f 0d 0a 20 20 20 20 20 20 20 20 43 6f 70 79 4d /.. CopyM
1700: 65 6d 6f 72 79 28 70 6f 2c 20 70 2c 20 73 69 7a emory(po, p, siz
1710: 65 6f 66 28 56 64 62 65 29 29 3b 0d 0a 20 20 20 eof(Vdbe));..
1720: 20 20 20 20 20 64 62 2d 3e 70 56 64 62 65 20 3d db->pVdbe =
1730: 20 70 6f 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 po;....
1740: 2f 2a 0d 0a 20 20 20 20 20 20 20 20 2a 2a 20 4e /*.. ** N
1750: 4f 54 45 3a 20 4f 6b 2c 20 77 65 20 6d 75 73 74 OTE: Ok, we must
1760: 20 66 72 65 65 20 74 68 69 73 20 62 6c 6f 63 6b free this block
1770: 20 74 68 61 74 20 2a 77 65 2a 20 61 6c 6c 6f 63 that *we* alloc
1780: 61 74 65 64 20 28 61 62 6f 76 65 29 20 73 69 6e ated (above) sin
1790: 63 65 0d 0a 20 20 20 20 20 20 20 20 2a 2a 20 20 ce.. **
17a0: 20 20 20 20 20 66 69 6e 61 6c 69 7a 65 20 64 69 finalize di
17b0: 64 20 6e 6f 74 20 64 6f 20 73 6f 2e 0d 0a 20 20 d not do so...
17c0: 20 20 20 20 20 20 2a 2f 0d 0a 20 20 20 20 20 20 */..
17d0: 20 20 73 71 6c 69 74 65 33 44 62 46 72 65 65 5f sqlite3DbFree_
17e0: 69 6e 74 65 72 6f 70 28 64 62 2c 20 70 29 3b 0d interop(db, p);.
17f0: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0d . break;.
1800: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 . }..
1810: 65 6c 73 65 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 else.. {..
1820: 20 20 20 20 20 20 20 5a 65 72 6f 4d 65 6d 6f 72 ZeroMemor
1830: 79 28 70 6f 2c 20 73 69 7a 65 6f 66 28 56 64 62 y(po, sizeof(Vdb
1840: 65 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 70 6f e));.. po
1850: 2d 3e 6d 61 67 69 63 20 3d 20 56 44 42 45 5f 4d ->magic = VDBE_M
1860: 41 47 49 43 5f 44 45 41 44 3b 0d 0a 20 20 20 20 AGIC_DEAD;..
1870: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 }.. }..
1880: 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 sqlite3_mutex_le
1890: 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d ave(db->mutex);.
18a0: 0a 20 20 20 20 72 65 74 20 3d 20 73 71 6c 69 74 . ret = sqlit
18b0: 65 33 5f 63 6c 6f 73 65 28 64 62 29 3b 0d 0a 20 e3_close(db);..
18c0: 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 }.. return ret
18d0: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 7d 0d 0a 0d 0a ;..#endif..}....
18e0: 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 #if defined(INTE
18f0: 52 4f 50 5f 4c 4f 47 29 0d 0a 53 51 4c 49 54 45 ROP_LOG)..SQLITE
1900: 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 _API int WINAPI
1910: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6c sqlite3_config_l
1920: 6f 67 5f 69 6e 74 65 72 6f 70 28 29 0d 0a 7b 0d og_interop()..{.
1930: 0a 20 20 69 6e 74 20 72 65 74 3b 0d 0a 20 20 69 . int ret;.. i
1940: 66 28 20 21 6c 6f 67 43 6f 6e 66 69 67 75 72 65 f( !logConfigure
1950: 64 20 29 7b 0d 0a 20 20 20 20 72 65 74 20 3d 20 d ){.. ret =
1960: 73 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 28 53 sqlite3_config(S
1970: 51 4c 49 54 45 5f 43 4f 4e 46 49 47 5f 4c 4f 47 QLITE_CONFIG_LOG
1980: 2c 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 , sqlite3Interop
1990: 4c 6f 67 43 61 6c 6c 62 61 63 6b 2c 20 30 29 3b LogCallback, 0);
19a0: 0d 0a 20 20 20 20 69 66 28 20 72 65 74 3d 3d 53 .. if( ret==S
19b0: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0d 0a 20 20 20 QLITE_OK ){..
19c0: 20 20 20 6c 6f 67 43 6f 6e 66 69 67 75 72 65 64 logConfigured
19d0: 20 3d 20 31 3b 0d 0a 20 20 20 20 7d 65 6c 73 65 = 1;.. }else
19e0: 7b 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 {.. sqlite3
19f0: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 InteropDebug("sq
1a00: 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6c 6f 67 lite3_config_log
1a10: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 _interop(): sqli
1a20: 74 65 33 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 te3_config(SQLIT
1a30: 45 5f 43 4f 4e 46 49 47 5f 4c 4f 47 29 20 72 65 E_CONFIG_LOG) re
1a40: 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 72 turned %d.\n", r
1a50: 65 74 29 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d et);.. }.. }
1a60: 65 6c 73 65 7b 0d 0a 20 20 20 20 72 65 74 20 3d else{.. ret =
1a70: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 20 20 7d SQLITE_OK;.. }
1a80: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
1a90: 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 53 51 .}..#endif....SQ
1aa0: 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e LITE_API int WIN
1ab0: 41 50 49 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e API sqlite3_open
1ac0: 5f 69 6e 74 65 72 6f 70 28 63 6f 6e 73 74 20 63 _interop(const c
1ad0: 68 61 72 20 2a 66 69 6c 65 6e 61 6d 65 2c 20 69 har *filename, i
1ae0: 6e 74 20 66 6c 61 67 73 2c 20 73 71 6c 69 74 65 nt flags, sqlite
1af0: 33 20 2a 2a 70 70 64 62 29 0d 0a 7b 0d 0a 20 20 3 **ppdb)..{..
1b00: 69 6e 74 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 int ret;....#if
1b10: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
1b20: 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 DEBUG) && (INTER
1b30: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
1b40: 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 29 0d 0a OP_DEBUG_OPEN)..
1b50: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
1b60: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f Debug("sqlite3_o
1b70: 70 65 6e 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 pen_interop(): c
1b80: 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 6f alling sqlite3_o
1b90: 70 65 6e 5f 76 32 28 5c 22 25 73 5c 22 2c 20 25 pen_v2(\"%s\", %
1ba0: 64 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 66 69 d, %p)...\n", fi
1bb0: 6c 65 6e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 70 lename, flags, p
1bc0: 70 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d pdb);..#endif...
1bd0: 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 . ret = sqlite3
1be0: 5f 6f 70 65 6e 5f 76 32 28 66 69 6c 65 6e 61 6d _open_v2(filenam
1bf0: 65 2c 20 70 70 64 62 2c 20 66 6c 61 67 73 2c 20 e, ppdb, flags,
1c00: 4e 55 4c 4c 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 NULL);....#if de
1c10: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
1c20: 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 BUG) && (INTEROP
1c30: 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 _DEBUG & INTEROP
1c40: 5f 44 45 42 55 47 5f 4f 50 45 4e 29 0d 0a 20 20 _DEBUG_OPEN)..
1c50: 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 sqlite3InteropDe
1c60: 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f 70 65 bug("sqlite3_ope
1c70: 6e 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c n_interop(): sql
1c80: 69 74 65 33 5f 6f 70 65 6e 5f 76 32 28 5c 22 25 ite3_open_v2(\"%
1c90: 73 5c 22 2c 20 25 64 2c 20 25 70 29 20 72 65 74 s\", %d, %p) ret
1ca0: 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 66 69 urned %d.\n", fi
1cb0: 6c 65 6e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 70 lename, flags, p
1cc0: 70 64 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 pdb, ret);..#end
1cd0: 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 if....#if define
1ce0: 64 28 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 d(INTEROP_EXTENS
1cf0: 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 29 0d 0a ION_FUNCTIONS)..
1d00: 20 20 69 66 20 28 72 65 74 20 3d 3d 20 53 51 4c if (ret == SQL
1d10: 49 54 45 5f 4f 4b 29 0d 0a 20 20 20 20 52 65 67 ITE_OK).. Reg
1d20: 69 73 74 65 72 45 78 74 65 6e 73 69 6f 6e 46 75 isterExtensionFu
1d30: 6e 63 74 69 6f 6e 73 28 2a 70 70 64 62 29 3b 0d nctions(*ppdb);.
1d40: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 .#endif.... ret
1d50: 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 urn ret;..}....S
1d60: 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 QLITE_API int WI
1d70: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 6f 70 65 NAPI sqlite3_ope
1d80: 6e 31 36 5f 69 6e 74 65 72 6f 70 28 63 6f 6e 73 n16_interop(cons
1d90: 74 20 63 68 61 72 20 2a 66 69 6c 65 6e 61 6d 65 t char *filename
1da0: 2c 20 69 6e 74 20 66 6c 61 67 73 2c 20 73 71 6c , int flags, sql
1db0: 69 74 65 33 20 2a 2a 70 70 64 62 29 0d 0a 7b 0d ite3 **ppdb)..{.
1dc0: 0a 20 20 69 6e 74 20 72 65 74 3b 0d 0a 0d 0a 23 . int ret;....#
1dd0: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
1de0: 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e OP_DEBUG) && (IN
1df0: 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e TEROP_DEBUG & IN
1e00: 54 45 52 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e TEROP_DEBUG_OPEN
1e10: 31 36 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 16).. sqlite3In
1e20: 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 teropDebug("sqli
1e30: 74 65 33 5f 6f 70 65 6e 31 36 5f 69 6e 74 65 72 te3_open16_inter
1e40: 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 op(): calling sq
1e50: 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 6e 74 65 72 lite3_open_inter
1e60: 6f 70 28 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 op(\"%s\", %d, %
1e70: 70 29 2e 2e 2e 5c 6e 22 2c 20 66 69 6c 65 6e 61 p)...\n", filena
1e80: 6d 65 2c 20 66 6c 61 67 73 2c 20 70 70 64 62 29 me, flags, ppdb)
1e90: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 ;..#endif.... r
1ea0: 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 et = sqlite3_ope
1eb0: 6e 5f 69 6e 74 65 72 6f 70 28 66 69 6c 65 6e 61 n_interop(filena
1ec0: 6d 65 2c 20 66 6c 61 67 73 2c 20 70 70 64 62 29 me, flags, ppdb)
1ed0: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
1ee0: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
1ef0: 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 && (INTEROP_DEBU
1f00: 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 G & INTEROP_DEBU
1f10: 47 5f 4f 50 45 4e 31 36 29 0d 0a 20 20 73 71 6c G_OPEN16).. sql
1f20: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
1f30: 28 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 ("sqlite3_open16
1f40: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 _interop(): sqli
1f50: 74 65 33 5f 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 te3_open_interop
1f60: 28 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 (\"%s\", %d, %p)
1f70: 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 returned %d.\n"
1f80: 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 66 6c 61 67 , filename, flag
1f90: 73 2c 20 70 70 64 62 2c 20 72 65 74 29 3b 0d 0a s, ppdb, ret);..
1fa0: 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 69 66 20 28 #endif.... if (
1fb0: 28 72 65 74 20 3d 3d 20 53 51 4c 49 54 45 5f 4f (ret == SQLITE_O
1fc0: 4b 29 20 26 26 20 21 44 62 48 61 73 50 72 6f 70 K) && !DbHasProp
1fd0: 65 72 74 79 28 2a 70 70 64 62 2c 20 30 2c 20 44 erty(*ppdb, 0, D
1fe0: 42 5f 53 63 68 65 6d 61 4c 6f 61 64 65 64 29 29 B_SchemaLoaded))
1ff0: 0d 0a 20 20 20 20 45 4e 43 28 2a 70 70 64 62 29 .. ENC(*ppdb)
2000: 20 3d 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4e = SQLITE_UTF16N
2010: 41 54 49 56 45 3b 0d 0a 0d 0a 20 20 72 65 74 75 ATIVE;.... retu
2020: 72 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 rn ret;..}....SQ
2030: 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 LITE_API const c
2040: 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c har * WINAPI sql
2050: 69 74 65 33 5f 65 72 72 6d 73 67 5f 69 6e 74 65 ite3_errmsg_inte
2060: 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 2c rop(sqlite3 *db,
2070: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
2080: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 const char *pv
2090: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 al = sqlite3_err
20a0: 6d 73 67 28 64 62 29 3b 0d 0a 20 20 2a 70 6c 65 msg(db);.. *ple
20b0: 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 n = (pval != 0)
20c0: 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a ? strlen(pval) :
20d0: 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 0;.. return pv
20e0: 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 al;..}....SQLITE
20f0: 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 _API int WINAPI
2100: 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 5f sqlite3_changes_
2110: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 interop(sqlite3
2120: 2a 64 62 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 *db)..{.. int r
2130: 65 73 75 6c 74 3b 0d 0a 0d 0a 23 69 66 20 64 65 esult;....#if de
2140: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
2150: 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 BUG) && (INTEROP
2160: 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 _DEBUG & INTEROP
2170: 5f 44 45 42 55 47 5f 43 48 41 4e 47 45 53 29 0d _DEBUG_CHANGES).
2180: 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f . sqlite3Intero
2190: 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f pDebug("sqlite3_
21a0: 63 68 61 6e 67 65 73 5f 69 6e 74 65 72 6f 70 28 changes_interop(
21b0: 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 ): calling sqlit
21c0: 65 33 5f 63 68 61 6e 67 65 73 28 25 70 29 2e 2e e3_changes(%p)..
21d0: 2e 5c 6e 22 2c 20 64 62 29 3b 0d 0a 23 65 6e 64 .\n", db);..#end
21e0: 69 66 0d 0a 0d 0a 23 69 66 6e 64 65 66 20 4e 44 if....#ifndef ND
21f0: 45 42 55 47 0d 0a 20 20 69 66 20 28 21 64 62 29 EBUG.. if (!db)
2200: 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 49 .. sqlite3I
2210: 6e 74 65 72 6f 70 42 72 65 61 6b 28 22 6e 75 6c nteropBreak("nul
2220: 6c 20 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c l database handl
2230: 65 20 66 6f 72 20 73 71 6c 69 74 65 33 5f 63 68 e for sqlite3_ch
2240: 61 6e 67 65 73 28 29 22 29 3b 0d 0a 23 65 6e 64 anges()");..#end
2250: 69 66 0d 0a 0d 0a 20 20 72 65 73 75 6c 74 20 3d if.... result =
2260: 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 sqlite3_changes
2270: 28 64 62 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 (db);....#if def
2280: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 ined(INTEROP_DEB
2290: 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f UG) && (INTEROP_
22a0: 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f DEBUG & INTEROP_
22b0: 44 45 42 55 47 5f 43 48 41 4e 47 45 53 29 0d 0a DEBUG_CHANGES)..
22c0: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
22d0: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 63 Debug("sqlite3_c
22e0: 68 61 6e 67 65 73 5f 69 6e 74 65 72 6f 70 28 29 hanges_interop()
22f0: 3a 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 : sqlite3_change
2300: 73 28 25 70 29 20 72 65 74 75 72 6e 65 64 20 25 s(%p) returned %
2310: 64 2e 5c 6e 22 2c 20 64 62 2c 20 72 65 73 75 6c d.\n", db, resul
2320: 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 t);..#endif....
2330: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 3b 0d return result;.
2340: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
2350: 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 int WINAPI sqli
2360: 74 65 33 5f 70 72 65 70 61 72 65 5f 69 6e 74 65 te3_prepare_inte
2370: 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 2c rop(sqlite3 *db,
2380: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 6c const char *sql
2390: 2c 20 69 6e 74 20 6e 62 79 74 65 73 2c 20 73 71 , int nbytes, sq
23a0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 2a 70 70 73 lite3_stmt **pps
23b0: 74 6d 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 tmt, const char
23c0: 2a 2a 70 7a 74 61 69 6c 2c 20 69 6e 74 20 2a 70 **pztail, int *p
23d0: 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 6e len)..{.. int n
23e0: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
23f0: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
2400: 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 && (INTEROP_DEBU
2410: 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 G & INTEROP_DEBU
2420: 47 5f 50 52 45 50 41 52 45 29 0d 0a 20 20 73 71 G_PREPARE).. sq
2430: 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 lite3InteropDebu
2440: 67 28 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 g("sqlite3_prepa
2450: 72 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 re_interop(): ca
2460: 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 70 72 lling sqlite3_pr
2470: 65 70 61 72 65 28 25 70 2c 20 5c 22 25 73 5c 22 epare(%p, \"%s\"
2480: 2c 20 25 64 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c , %d, %p)...\n",
2490: 20 64 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 73 db, sql, nbytes
24a0: 2c 20 70 70 73 74 6d 74 29 3b 0d 0a 23 65 6e 64 , ppstmt);..#end
24b0: 69 66 0d 0a 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 if.... n = sqli
24c0: 74 65 33 5f 70 72 65 70 61 72 65 28 64 62 2c 20 te3_prepare(db,
24d0: 73 71 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 73 sql, nbytes, pps
24e0: 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b 0d 0a 0d tmt, pztail);...
24f0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 .#if defined(INT
2500: 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 EROP_DEBUG) && (
2510: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 INTEROP_DEBUG &
2520: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 INTEROP_DEBUG_PR
2530: 45 50 41 52 45 29 0d 0a 20 20 73 71 6c 69 74 65 EPARE).. sqlite
2540: 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 3InteropDebug("s
2550: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f 69 qlite3_prepare_i
2560: 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 nterop(): sqlite
2570: 33 5f 70 72 65 70 61 72 65 28 25 70 2c 20 5c 22 3_prepare(%p, \"
2580: 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 20 72 65 %s\", %d, %p) re
2590: 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 64 turned %d.\n", d
25a0: 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 73 2c 20 b, sql, nbytes,
25b0: 70 70 73 74 6d 74 2c 20 6e 29 3b 0d 0a 23 65 6e ppstmt, n);..#en
25c0: 64 69 66 0d 0a 0d 0a 20 20 2a 70 6c 65 6e 20 3d dif.... *plen =
25d0: 20 28 2a 70 7a 74 61 69 6c 20 21 3d 20 30 29 20 (*pztail != 0)
25e0: 3f 20 73 74 72 6c 65 6e 28 2a 70 7a 74 61 69 6c ? strlen(*pztail
25f0: 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 74 75 ) : 0;.... retu
2600: 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 rn n;..}....SQLI
2610: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
2620: 49 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 I sqlite3_prepar
2630: 65 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 e16_interop(sqli
2640: 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 76 te3 *db, const v
2650: 6f 69 64 20 2a 73 71 6c 2c 20 69 6e 74 20 6e 63 oid *sql, int nc
2660: 68 61 72 73 2c 20 73 71 6c 69 74 65 33 5f 73 74 hars, sqlite3_st
2670: 6d 74 20 2a 2a 70 70 73 74 6d 74 2c 20 63 6f 6e mt **ppstmt, con
2680: 73 74 20 76 6f 69 64 20 2a 2a 70 7a 74 61 69 6c st void **pztail
2690: 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d , int *plen)..{.
26a0: 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 23 69 66 . int n;....#if
26b0: 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 defined(INTEROP
26c0: 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 _DEBUG) && (INTE
26d0: 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 ROP_DEBUG & INTE
26e0: 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 41 52 ROP_DEBUG_PREPAR
26f0: 45 31 36 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 E16).. sqlite3I
2700: 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c nteropDebug("sql
2710: 69 74 65 33 5f 70 72 65 70 61 72 65 5f 69 6e 74 ite3_prepare_int
2720: 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 erop(): calling
2730: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 sqlite3_prepare1
2740: 36 28 25 70 2c 20 5c 22 25 73 5c 22 2c 20 25 64 6(%p, \"%s\", %d
2750: 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 64 62 2c , %p)...\n", db,
2760: 20 73 71 6c 2c 20 6e 63 68 61 72 73 2c 20 70 70 sql, nchars, pp
2770: 73 74 6d 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a stmt);..#endif..
2780: 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f .. n = sqlite3_
2790: 70 72 65 70 61 72 65 31 36 28 64 62 2c 20 73 71 prepare16(db, sq
27a0: 6c 2c 20 6e 63 68 61 72 73 20 2a 20 73 69 7a 65 l, nchars * size
27b0: 6f 66 28 77 63 68 61 72 5f 74 29 2c 20 70 70 73 of(wchar_t), pps
27c0: 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b 0d 0a 0d tmt, pztail);...
27d0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 .#if defined(INT
27e0: 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 EROP_DEBUG) && (
27f0: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 INTEROP_DEBUG &
2800: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 INTEROP_DEBUG_PR
2810: 45 50 41 52 45 31 36 29 0d 0a 20 20 73 71 6c 69 EPARE16).. sqli
2820: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
2830: 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 "sqlite3_prepare
2840: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 _interop(): sqli
2850: 74 65 33 5f 70 72 65 70 61 72 65 31 36 28 25 70 te3_prepare16(%p
2860: 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 , \"%s\", %d, %p
2870: 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e ) returned %d.\n
2880: 22 2c 20 64 62 2c 20 73 71 6c 2c 20 6e 63 68 61 ", db, sql, ncha
2890: 72 73 2c 20 70 70 73 74 6d 74 2c 20 6e 29 3b 0d rs, ppstmt, n);.
28a0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 2a 70 6c .#endif.... *pl
28b0: 65 6e 20 3d 20 28 2a 70 7a 74 61 69 6c 20 21 3d en = (*pztail !=
28c0: 20 30 29 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 0) ? wcslen((wc
28d0: 68 61 72 5f 74 20 2a 29 2a 70 7a 74 61 69 6c 29 har_t *)*pztail)
28e0: 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f * sizeof(wchar_
28f0: 74 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 74 t) : 0;.... ret
2900: 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c urn n;..}....SQL
2910: 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 ITE_API int WINA
2920: 50 49 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f PI sqlite3_bind_
2930: 64 6f 75 62 6c 65 5f 69 6e 74 65 72 6f 70 28 73 double_interop(s
2940: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d qlite3_stmt *stm
2950: 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 64 6f 75 t, int iCol, dou
2960: 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 09 72 ble *val)..{...r
2970: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 5f 62 69 eturn sqlite3_bi
2980: 6e 64 5f 64 6f 75 62 6c 65 28 73 74 6d 74 2c 69 nd_double(stmt,i
2990: 43 6f 6c 2c 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d Col,*val);..}...
29a0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
29b0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 62 WINAPI sqlite3_b
29c0: 69 6e 64 5f 69 6e 74 36 34 5f 69 6e 74 65 72 6f ind_int64_intero
29d0: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
29e0: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
29f0: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 76 61 sqlite_int64 *va
2a00: 6c 29 0d 0a 7b 0d 0a 09 72 65 74 75 72 6e 20 73 l)..{...return s
2a10: 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 qlite3_bind_int6
2a20: 34 28 73 74 6d 74 2c 69 43 6f 6c 2c 2a 76 61 6c 4(stmt,iCol,*val
2a30: 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f );..}....SQLITE_
2a40: 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a API const char *
2a50: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
2a60: 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e bind_parameter_n
2a70: 61 6d 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 ame_interop(sqli
2a80: 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 te3_stmt *stmt,
2a90: 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 int iCol, int *p
2aa0: 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 len)..{.. const
2ab0: 20 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 char *pval = sq
2ac0: 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 6d lite3_bind_param
2ad0: 65 74 65 72 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 eter_name(stmt,
2ae0: 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 iCol);.. *plen
2af0: 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 = (pval != 0) ?
2b00: 73 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 strlen(pval) : 0
2b10: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
2b20: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
2b30: 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 PI const char *
2b40: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
2b50: 6f 6c 75 6d 6e 5f 6e 61 6d 65 5f 69 6e 74 65 72 olumn_name_inter
2b60: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
2b70: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
2b80: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
2b90: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 const char *pv
2ba0: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
2bb0: 75 6d 6e 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 69 umn_name(stmt, i
2bc0: 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d Col);.. *plen =
2bd0: 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 73 (pval != 0) ? s
2be0: 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b trlen(pval) : 0;
2bf0: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
2c00: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
2c10: 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 I const void * W
2c20: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f INAPI sqlite3_co
2c30: 6c 75 6d 6e 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 lumn_name16_inte
2c40: 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 rop(sqlite3_stmt
2c50: 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c *stmt, int iCol
2c60: 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d , int *plen)..{.
2c70: 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 . const void *p
2c80: 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f val = sqlite3_co
2c90: 6c 75 6d 6e 5f 6e 61 6d 65 31 36 28 73 74 6d 74 lumn_name16(stmt
2ca0: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 , iCol);.. *ple
2cb0: 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 n = (pval != 0)
2cc0: 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 5f ? wcslen((wchar_
2cd0: 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a 65 t *)pval) * size
2ce0: 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 3b of(wchar_t) : 0;
2cf0: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
2d00: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
2d10: 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 57 I const char * W
2d20: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f INAPI sqlite3_co
2d30: 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 5f 69 6e lumn_decltype_in
2d40: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 terop(sqlite3_st
2d50: 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 mt *stmt, int iC
2d60: 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a ol, int *plen)..
2d70: 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 {.. const char
2d80: 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f *pval = sqlite3_
2d90: 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 28 column_decltype(
2da0: 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 stmt, iCol);..
2db0: 2a 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 3d *plen = (pval !=
2dc0: 20 30 29 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 0) ? strlen(pva
2dd0: 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 l) : 0;.. retur
2de0: 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 n pval;..}....SQ
2df0: 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 LITE_API const v
2e00: 6f 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c oid * WINAPI sql
2e10: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c ite3_column_decl
2e20: 74 79 70 65 31 36 5f 69 6e 74 65 72 6f 70 28 73 type16_interop(s
2e30: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d qlite3_stmt *stm
2e40: 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 t, int iCol, int
2e50: 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f *plen)..{.. co
2e60: 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 3d nst void *pval =
2e70: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
2e80: 64 65 63 6c 74 79 70 65 31 36 28 73 74 6d 74 2c decltype16(stmt,
2e90: 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e iCol);.. *plen
2ea0: 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f = (pval != 0) ?
2eb0: 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 5f 74 wcslen((wchar_t
2ec0: 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a 65 6f *)pval) * sizeo
2ed0: 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 3b 0d f(wchar_t) : 0;.
2ee0: 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d . return pval;.
2ef0: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
2f00: 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 6c void WINAPI sql
2f10: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 62 ite3_column_doub
2f20: 6c 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 le_interop(sqlit
2f30: 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 e3_stmt *stmt, i
2f40: 6e 74 20 69 43 6f 6c 2c 20 64 6f 75 62 6c 65 20 nt iCol, double
2f50: 2a 76 61 6c 29 0d 0a 7b 0d 0a 09 2a 76 61 6c 20 *val)..{...*val
2f60: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
2f70: 5f 64 6f 75 62 6c 65 28 73 74 6d 74 2c 69 43 6f _double(stmt,iCo
2f80: 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 l);..}....SQLITE
2f90: 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 49 _API void WINAPI
2fa0: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
2fb0: 69 6e 74 36 34 5f 69 6e 74 65 72 6f 70 28 73 71 int64_interop(sq
2fc0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 lite3_stmt *stmt
2fd0: 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 73 71 6c 69 , int iCol, sqli
2fe0: 74 65 5f 69 6e 74 36 34 20 2a 76 61 6c 29 0d 0a te_int64 *val)..
2ff0: 7b 0d 0a 09 2a 76 61 6c 20 3d 20 73 71 6c 69 74 {...*val = sqlit
3000: 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 28 e3_column_int64(
3010: 73 74 6d 74 2c 69 43 6f 6c 29 3b 0d 0a 7d 0d 0a stmt,iCol);..}..
3020: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 ..SQLITE_API voi
3030: 64 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 d WINAPI sqlite3
3040: 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 _last_insert_row
3050: 69 64 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 id_interop(sqlit
3060: 65 33 20 2a 64 62 2c 20 73 71 6c 69 74 65 5f 69 e3 *db, sqlite_i
3070: 6e 74 36 34 20 2a 72 6f 77 49 64 29 0d 0a 7b 0d nt64 *rowId)..{.
3080: 0a 09 2a 72 6f 77 49 64 20 3d 20 73 71 6c 69 74 ..*rowId = sqlit
3090: 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 e3_last_insert_r
30a0: 6f 77 69 64 28 64 62 29 3b 0d 0a 7d 0d 0a 0d 0a owid(db);..}....
30b0: 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 SQLITE_API void
30c0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 6d WINAPI sqlite3_m
30d0: 65 6d 6f 72 79 5f 75 73 65 64 5f 69 6e 74 65 72 emory_used_inter
30e0: 6f 70 28 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 op(sqlite_int64
30f0: 2a 6e 42 79 74 65 73 29 0d 0a 7b 0d 0a 09 2a 6e *nBytes)..{...*n
3100: 42 79 74 65 73 20 3d 20 73 71 6c 69 74 65 33 5f Bytes = sqlite3_
3110: 6d 65 6d 6f 72 79 5f 75 73 65 64 28 29 3b 0d 0a memory_used();..
3120: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
3130: 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 6c 69 void WINAPI sqli
3140: 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 te3_memory_highw
3150: 61 74 65 72 5f 69 6e 74 65 72 6f 70 28 69 6e 74 ater_interop(int
3160: 20 72 65 73 65 74 46 6c 61 67 2c 20 73 71 6c 69 resetFlag, sqli
3170: 74 65 5f 69 6e 74 36 34 20 2a 6e 42 79 74 65 73 te_int64 *nBytes
3180: 29 0d 0a 7b 0d 0a 09 2a 6e 42 79 74 65 73 20 3d )..{...*nBytes =
3190: 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f sqlite3_memory_
31a0: 68 69 67 68 77 61 74 65 72 28 72 65 73 65 74 46 highwater(resetF
31b0: 6c 61 67 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 lag);..}....SQLI
31c0: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 75 6e 73 TE_API const uns
31d0: 69 67 6e 65 64 20 63 68 61 72 20 2a 20 57 49 4e igned char * WIN
31e0: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 API sqlite3_colu
31f0: 6d 6e 5f 74 65 78 74 5f 69 6e 74 65 72 6f 70 28 mn_text_interop(
3200: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
3210: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
3220: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
3230: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
3240: 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 ar *pval = sqlit
3250: 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 28 73 e3_column_text(s
3260: 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a tmt, iCol);.. *
3270: 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 plen = (pval !=
3280: 30 29 20 3f 20 73 74 72 6c 65 6e 28 28 63 68 61 0) ? strlen((cha
3290: 72 20 2a 29 70 76 61 6c 29 20 3a 20 30 3b 0d 0a r *)pval) : 0;..
32a0: 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a return pval;..
32b0: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
32c0: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 4e const void * WIN
32d0: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 API sqlite3_colu
32e0: 6d 6e 5f 74 65 78 74 31 36 5f 69 6e 74 65 72 6f mn_text16_intero
32f0: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
3300: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
3310: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
3320: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 const void *pva
3330: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
3340: 6d 6e 5f 74 65 78 74 31 36 28 73 74 6d 74 2c 20 mn_text16(stmt,
3350: 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 iCol);.. *plen
3360: 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 = (pval != 0) ?
3370: 77 63 73 6c 65 6e 28 28 77 63 68 61 72 5f 74 20 wcslen((wchar_t
3380: 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a 65 6f 66 *)pval) * sizeof
3390: 28 77 63 68 61 72 5f 74 29 3a 20 30 3b 0d 0a 20 (wchar_t): 0;..
33a0: 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d return pval;..}
33b0: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 ....SQLITE_API i
33c0: 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 nt WINAPI sqlite
33d0: 33 5f 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 65 72 3_finalize_inter
33e0: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
33f0: 2a 73 74 6d 74 29 0d 0a 7b 0d 0a 20 20 69 6e 74 *stmt)..{.. int
3400: 20 72 65 74 3b 0d 0a 23 69 66 20 53 51 4c 49 54 ret;..#if SQLIT
3410: 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 E_VERSION_NUMBER
3420: 20 3e 3d 20 33 30 30 37 30 31 34 0d 0a 0d 0a 23 >= 3007014....#
3430: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
3440: 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e OP_DEBUG) && (IN
3450: 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e TEROP_DEBUG & IN
3460: 54 45 52 4f 50 5f 44 45 42 55 47 5f 46 49 4e 41 TEROP_DEBUG_FINA
3470: 4c 49 5a 45 29 0d 0a 20 20 56 64 62 65 20 2a 70 LIZE).. Vdbe *p
3480: 20 3d 20 28 56 64 62 65 20 2a 29 73 74 6d 74 3b = (Vdbe *)stmt;
3490: 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 .. sqlite3 *db
34a0: 3d 20 70 2d 3e 64 62 3b 0d 0a 20 20 73 71 6c 69 = p->db;.. sqli
34b0: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
34c0: 22 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a "sqlite3_finaliz
34d0: 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c e_interop(): cal
34e0: 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 66 69 6e ling sqlite3_fin
34f0: 61 6c 69 7a 65 28 25 70 2c 20 25 70 29 2e 2e 2e alize(%p, %p)...
3500: 5c 6e 22 2c 20 64 62 2c 20 73 74 6d 74 29 3b 0d \n", db, stmt);.
3510: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 .#endif.... ret
3520: 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c = sqlite3_final
3530: 69 7a 65 28 73 74 6d 74 29 3b 0d 0a 0d 0a 23 69 ize(stmt);....#i
3540: 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f f defined(INTERO
3550: 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 P_DEBUG) && (INT
3560: 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 EROP_DEBUG & INT
3570: 45 52 4f 50 5f 44 45 42 55 47 5f 46 49 4e 41 4c EROP_DEBUG_FINAL
3580: 49 5a 45 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 IZE).. sqlite3I
3590: 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c nteropDebug("sql
35a0: 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 5f 69 6e ite3_finalize_in
35b0: 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 terop(): sqlite3
35c0: 5f 66 69 6e 61 6c 69 7a 65 28 25 70 2c 20 25 70 _finalize(%p, %p
35d0: 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e ) returned %d.\n
35e0: 22 2c 20 64 62 2c 20 73 74 6d 74 2c 20 72 65 74 ", db, stmt, ret
35f0: 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 );..#endif....
3600: 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 65 6c return ret;..#el
3610: 73 65 0d 0a 20 20 56 64 62 65 20 2a 70 3b 0d 0a se.. Vdbe *p;..
3620: 20 20 69 6e 74 20 72 65 74 20 3d 20 53 51 4c 49 int ret = SQLI
3630: 54 45 5f 4f 4b 3b 0d 0a 0d 0a 20 20 70 20 3d 20 TE_OK;.... p =
3640: 28 56 64 62 65 20 2a 29 73 74 6d 74 3b 0d 0a 20 (Vdbe *)stmt;..
3650: 20 69 66 20 28 70 29 0d 0a 20 20 7b 0d 0a 20 20 if (p).. {..
3660: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 sqlite3 *db =
3670: 70 2d 3e 64 62 3b 0d 0a 0d 0a 20 20 20 20 69 66 p->db;.... if
3680: 20 28 64 62 20 21 3d 20 4e 55 4c 4c 29 0d 0a 20 (db != NULL)..
3690: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 sqlite3_mut
36a0: 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 ex_enter(db->mut
36b0: 65 78 29 3b 0d 0a 0d 0a 20 20 20 20 69 66 20 28 ex);.... if (
36c0: 28 70 2d 3e 6d 61 67 69 63 20 3d 3d 20 56 44 42 (p->magic == VDB
36d0: 45 5f 4d 41 47 49 43 5f 44 45 41 44 29 20 26 26 E_MAGIC_DEAD) &&
36e0: 20 28 64 62 20 3d 3d 20 4e 55 4c 4c 29 29 0d 0a (db == NULL))..
36f0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 73 71 6c {.. sql
3700: 69 74 65 33 44 62 46 72 65 65 5f 69 6e 74 65 72 ite3DbFree_inter
3710: 6f 70 28 64 62 2c 20 70 29 3b 0d 0a 20 20 20 20 op(db, p);..
3720: 7d 0d 0a 20 20 20 20 65 6c 73 65 0d 0a 20 20 20 }.. else..
3730: 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 20 3d 20 {.. ret =
3740: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 sqlite3_finalize
3750: 28 73 74 6d 74 29 3b 0d 0a 20 20 20 20 7d 0d 0a (stmt);.. }..
3760: 0d 0a 20 20 20 20 69 66 20 28 64 62 20 21 3d 20 .. if (db !=
3770: 4e 55 4c 4c 29 0d 0a 20 20 20 20 20 20 73 71 6c NULL).. sql
3780: 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 ite3_mutex_leave
3790: 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 (db->mutex);..
37a0: 7d 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 }.... return re
37b0: 74 3b 0d 0a 23 65 6e 64 69 66 0d 0a 7d 0d 0a 0d t;..#endif..}...
37c0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
37d0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 62 WINAPI sqlite3_b
37e0: 61 63 6b 75 70 5f 66 69 6e 69 73 68 5f 69 6e 74 ackup_finish_int
37f0: 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 62 61 63 erop(sqlite3_bac
3800: 6b 75 70 20 2a 70 29 0d 0a 7b 0d 0a 20 20 69 6e kup *p)..{.. in
3810: 74 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 64 65 t ret;....#if de
3820: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
3830: 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 BUG) && (INTEROP
3840: 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 _DEBUG & INTEROP
3850: 5f 44 45 42 55 47 5f 42 41 43 4b 55 50 5f 46 49 _DEBUG_BACKUP_FI
3860: 4e 49 53 48 29 0d 0a 20 20 73 71 6c 69 74 65 33 NISH).. sqlite3
3870: 2a 20 70 44 65 73 74 44 62 20 3d 20 70 2d 3e 70 * pDestDb = p->p
3880: 44 65 73 74 44 62 3b 0d 0a 20 20 73 71 6c 69 74 DestDb;.. sqlit
3890: 65 33 2a 20 70 53 72 63 44 62 20 3d 20 70 2d 3e e3* pSrcDb = p->
38a0: 70 53 72 63 44 62 3b 0d 0a 20 20 73 71 6c 69 74 pSrcDb;.. sqlit
38b0: 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 e3InteropDebug("
38c0: 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 66 sqlite3_backup_f
38d0: 69 6e 69 73 68 5f 69 6e 74 65 72 6f 70 28 29 3a inish_interop():
38e0: 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 calling sqlite3
38f0: 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 28 25 _backup_finish(%
3900: 70 2c 20 25 70 2c 20 25 70 29 2e 2e 2e 5c 6e 22 p, %p, %p)...\n"
3910: 2c 20 70 44 65 73 74 44 62 2c 20 70 53 72 63 44 , pDestDb, pSrcD
3920: 62 2c 20 70 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a b, p);..#endif..
3930: 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 .. ret = sqlite
3940: 33 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 28 3_backup_finish(
3950: 70 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e p);....#if defin
3960: 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ed(INTEROP_DEBUG
3970: 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 ) && (INTEROP_DE
3980: 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 BUG & INTEROP_DE
3990: 42 55 47 5f 42 41 43 4b 55 50 5f 46 49 4e 49 53 BUG_BACKUP_FINIS
39a0: 48 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 H).. sqlite3Int
39b0: 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 eropDebug("sqlit
39c0: 65 33 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 e3_backup_finish
39d0: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 _interop(): sqli
39e0: 74 65 33 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 te3_backup_finis
39f0: 68 28 25 70 2c 20 25 70 2c 20 25 70 29 20 72 65 h(%p, %p, %p) re
3a00: 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 70 turned %d.\n", p
3a10: 44 65 73 74 44 62 2c 20 70 53 72 63 44 62 2c 20 DestDb, pSrcDb,
3a20: 70 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 p, ret);..#endif
3a30: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 .... return ret
3a40: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
3a50: 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 PI int WINAPI sq
3a60: 6c 69 74 65 33 5f 72 65 73 65 74 5f 69 6e 74 65 lite3_reset_inte
3a70: 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 rop(sqlite3_stmt
3a80: 20 2a 73 74 6d 74 29 0d 0a 7b 0d 0a 20 20 69 6e *stmt)..{.. in
3a90: 74 20 72 65 74 3b 0d 0a 23 69 66 20 53 51 4c 49 t ret;..#if SQLI
3aa0: 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 TE_VERSION_NUMBE
3ab0: 52 20 3e 3d 20 33 30 30 37 30 31 34 0d 0a 0d 0a R >= 3007014....
3ac0: 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 #if defined(INTE
3ad0: 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 ROP_DEBUG) && (I
3ae0: 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 NTEROP_DEBUG & I
3af0: 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 52 45 53 NTEROP_DEBUG_RES
3b00: 45 54 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e ET).. sqlite3In
3b10: 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 teropDebug("sqli
3b20: 74 65 33 5f 72 65 73 65 74 5f 69 6e 74 65 72 6f te3_reset_intero
3b30: 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c p(): calling sql
3b40: 69 74 65 33 5f 72 65 73 65 74 28 25 70 29 2e 2e ite3_reset(%p)..
3b50: 2e 5c 6e 22 2c 20 73 74 6d 74 29 3b 0d 0a 23 65 .\n", stmt);..#e
3b60: 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 ndif.... ret =
3b70: 73 71 6c 69 74 65 33 5f 72 65 73 65 74 28 73 74 sqlite3_reset(st
3b80: 6d 74 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 mt);....#if defi
3b90: 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 ned(INTEROP_DEBU
3ba0: 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 G) && (INTEROP_D
3bb0: 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 EBUG & INTEROP_D
3bc0: 45 42 55 47 5f 52 45 53 45 54 29 0d 0a 20 20 73 EBUG_RESET).. s
3bd0: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 qlite3InteropDeb
3be0: 75 67 28 22 73 71 6c 69 74 65 33 5f 72 65 73 65 ug("sqlite3_rese
3bf0: 74 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c t_interop(): sql
3c00: 69 74 65 33 5f 72 65 73 65 74 28 25 70 29 20 72 ite3_reset(%p) r
3c10: 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 eturned %d.\n",
3c20: 73 74 6d 74 2c 20 72 65 74 29 3b 0d 0a 23 65 6e stmt, ret);..#en
3c30: 64 69 66 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 dif.... return
3c40: 72 65 74 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 69 ret;..#else.. i
3c50: 66 20 28 28 28 56 64 62 65 20 2a 29 73 74 6d 74 f (((Vdbe *)stmt
3c60: 29 2d 3e 6d 61 67 69 63 20 3d 3d 20 56 44 42 45 )->magic == VDBE
3c70: 5f 4d 41 47 49 43 5f 44 45 41 44 29 20 72 65 74 _MAGIC_DEAD) ret
3c80: 75 72 6e 20 53 51 4c 49 54 45 5f 53 43 48 45 4d urn SQLITE_SCHEM
3c90: 41 3b 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 A;.. ret = sqli
3ca0: 74 65 33 5f 72 65 73 65 74 28 73 74 6d 74 29 3b te3_reset(stmt);
3cb0: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
3cc0: 0a 23 65 6e 64 69 66 0d 0a 7d 0d 0a 0d 0a 53 51 .#endif..}....SQ
3cd0: 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e LITE_API int WIN
3ce0: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 72 65 61 API sqlite3_crea
3cf0: 74 65 5f 66 75 6e 63 74 69 6f 6e 5f 69 6e 74 65 te_function_inte
3d00: 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 70 73 71 rop(sqlite3 *psq
3d10: 6c 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a l, const char *z
3d20: 46 75 6e 63 74 69 6f 6e 4e 61 6d 65 2c 20 69 6e FunctionName, in
3d30: 74 20 6e 41 72 67 2c 20 69 6e 74 20 65 54 65 78 t nArg, int eTex
3d40: 74 52 65 70 2c 20 76 6f 69 64 20 2a 70 76 55 73 tRep, void *pvUs
3d50: 65 72 2c 20 53 51 4c 49 54 45 55 53 45 52 46 55 er, SQLITEUSERFU
3d60: 4e 43 20 66 75 6e 63 2c 20 53 51 4c 49 54 45 55 NC func, SQLITEU
3d70: 53 45 52 46 55 4e 43 20 66 75 6e 63 73 74 65 70 SERFUNC funcstep
3d80: 2c 20 53 51 4c 49 54 45 46 55 4e 43 46 49 4e 41 , SQLITEFUNCFINA
3d90: 4c 20 66 75 6e 63 66 69 6e 61 6c 2c 20 69 6e 74 L funcfinal, int
3da0: 20 6e 65 65 64 43 6f 6c 6c 53 65 71 29 0d 0a 7b needCollSeq)..{
3db0: 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 20 .. int n;....
3dc0: 69 66 20 28 65 54 65 78 74 52 65 70 20 3d 3d 20 if (eTextRep ==
3dd0: 53 51 4c 49 54 45 5f 55 54 46 31 36 29 0d 0a 20 SQLITE_UTF16)..
3de0: 20 20 20 65 54 65 78 74 52 65 70 20 3d 20 53 51 eTextRep = SQ
3df0: 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56 45 LITE_UTF16NATIVE
3e00: 3b 0d 0a 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 ;.... n = sqlit
3e10: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 e3_create_functi
3e20: 6f 6e 28 70 73 71 6c 2c 20 7a 46 75 6e 63 74 69 on(psql, zFuncti
3e30: 6f 6e 4e 61 6d 65 2c 20 6e 41 72 67 2c 20 65 54 onName, nArg, eT
3e40: 65 78 74 52 65 70 2c 20 30 2c 20 66 75 6e 63 2c extRep, 0, func,
3e50: 20 66 75 6e 63 73 74 65 70 2c 20 66 75 6e 63 66 funcstep, funcf
3e60: 69 6e 61 6c 29 3b 0d 0a 20 20 69 66 20 28 6e 20 inal);.. if (n
3e70: 3d 3d 20 53 51 4c 49 54 45 5f 4f 4b 29 0d 0a 20 == SQLITE_OK)..
3e80: 20 7b 0d 0a 20 20 20 20 69 66 20 28 6e 65 65 64 {.. if (need
3e90: 43 6f 6c 6c 53 65 71 29 0d 0a 20 20 20 20 7b 0d CollSeq).. {.
3ea0: 0a 20 20 20 20 20 20 46 75 6e 63 44 65 66 20 2a . FuncDef *
3eb0: 70 46 75 6e 63 20 3d 20 73 71 6c 69 74 65 33 46 pFunc = sqlite3F
3ec0: 69 6e 64 46 75 6e 63 74 69 6f 6e 28 70 73 71 6c indFunction(psql
3ed0: 2c 20 7a 46 75 6e 63 74 69 6f 6e 4e 61 6d 65 2c , zFunctionName,
3ee0: 20 73 74 72 6c 65 6e 28 7a 46 75 6e 63 74 69 6f strlen(zFunctio
3ef0: 6e 4e 61 6d 65 29 2c 20 6e 41 72 67 2c 20 65 54 nName), nArg, eT
3f00: 65 78 74 52 65 70 2c 20 30 29 3b 0d 0a 20 20 20 extRep, 0);..
3f10: 20 20 20 69 66 28 20 70 46 75 6e 63 20 29 0d 0a if( pFunc )..
3f20: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 {..
3f30: 20 70 46 75 6e 63 2d 3e 66 6c 61 67 73 20 7c 3d pFunc->flags |=
3f40: 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 SQLITE_FUNC_NEE
3f50: 44 43 4f 4c 4c 3b 0d 0a 20 20 20 20 20 20 7d 0d DCOLL;.. }.
3f60: 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 . }.. }....
3f70: 20 72 65 74 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d return n;..}...
3f80: 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 .SQLITE_API void
3f90: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
3fa0: 76 61 6c 75 65 5f 64 6f 75 62 6c 65 5f 69 6e 74 value_double_int
3fb0: 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 76 61 6c erop(sqlite3_val
3fc0: 75 65 20 2a 70 76 61 6c 2c 20 64 6f 75 62 6c 65 ue *pval, double
3fd0: 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 2a 76 61 *val)..{.. *va
3fe0: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 l = sqlite3_valu
3ff0: 65 5f 64 6f 75 62 6c 65 28 70 76 61 6c 29 3b 0d e_double(pval);.
4000: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
4010: 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 6c void WINAPI sql
4020: 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 ite3_value_int64
4030: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
4040: 5f 76 61 6c 75 65 20 2a 70 76 61 6c 2c 20 73 71 _value *pval, sq
4050: 6c 69 74 65 5f 69 6e 74 36 34 20 2a 76 61 6c 29 lite_int64 *val)
4060: 0d 0a 7b 0d 0a 20 20 2a 76 61 6c 20 3d 20 73 71 ..{.. *val = sq
4070: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 lite3_value_int6
4080: 34 28 70 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 4(pval);..}....S
4090: 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 QLITE_API const
40a0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 20 unsigned char *
40b0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 76 WINAPI sqlite3_v
40c0: 61 6c 75 65 5f 74 65 78 74 5f 69 6e 74 65 72 6f alue_text_intero
40d0: 70 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 p(sqlite3_value
40e0: 2a 76 61 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 *val, int *plen)
40f0: 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 75 6e 73 ..{.. const uns
4100: 69 67 6e 65 64 20 63 68 61 72 20 2a 70 76 61 6c igned char *pval
4110: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 = sqlite3_value
4120: 5f 74 65 78 74 28 76 61 6c 29 3b 0d 0a 20 20 2a _text(val);.. *
4130: 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 plen = (pval !=
4140: 30 29 20 3f 20 73 74 72 6c 65 6e 28 28 63 68 61 0) ? strlen((cha
4150: 72 20 2a 29 70 76 61 6c 29 20 3a 20 30 3b 0d 0a r *)pval) : 0;..
4160: 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a return pval;..
4170: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
4180: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 4e const void * WIN
4190: 41 50 49 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 API sqlite3_valu
41a0: 65 5f 74 65 78 74 31 36 5f 69 6e 74 65 72 6f 70 e_text16_interop
41b0: 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a (sqlite3_value *
41c0: 76 61 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d val, int *plen).
41d0: 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 .{.. const void
41e0: 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 *pval = sqlite3
41f0: 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 76 61 _value_text16(va
4200: 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 28 l);.. *plen = (
4210: 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 77 63 73 pval != 0) ? wcs
4220: 6c 65 6e 28 28 77 63 68 61 72 5f 74 20 2a 29 70 len((wchar_t *)p
4230: 76 61 6c 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 val) * sizeof(wc
4240: 68 61 72 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 har_t) : 0;.. r
4250: 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a eturn pval;..}..
4260: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 ..SQLITE_API voi
4270: 64 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 d WINAPI sqlite3
4280: 5f 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 5f 69 _result_double_i
4290: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 63 nterop(sqlite3_c
42a0: 6f 6e 74 65 78 74 20 2a 70 63 74 78 2c 20 64 6f ontext *pctx, do
42b0: 75 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 uble *val)..{..
42c0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
42d0: 64 6f 75 62 6c 65 28 70 63 74 78 2c 20 2a 76 61 double(pctx, *va
42e0: 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 l);..}....SQLITE
42f0: 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 49 _API void WINAPI
4300: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
4310: 69 6e 74 36 34 5f 69 6e 74 65 72 6f 70 28 73 71 int64_interop(sq
4320: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
4330: 63 74 78 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 ctx, sqlite_int6
4340: 34 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 73 71 4 *val)..{.. sq
4350: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
4360: 36 34 28 70 63 74 78 2c 20 2a 76 61 6c 29 3b 0d 64(pctx, *val);.
4370: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
4380: 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 int WINAPI sqli
4390: 74 65 33 5f 63 6f 6e 74 65 78 74 5f 63 6f 6c 6c te3_context_coll
43a0: 63 6f 6d 70 61 72 65 5f 69 6e 74 65 72 6f 70 28 compare_interop(
43b0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
43c0: 2a 63 74 78 2c 20 63 6f 6e 73 74 20 76 6f 69 64 *ctx, const void
43d0: 20 2a 70 31 2c 20 69 6e 74 20 70 31 6c 65 6e 2c *p1, int p1len,
43e0: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 32 2c const void *p2,
43f0: 20 69 6e 74 20 70 32 6c 65 6e 29 0d 0a 7b 0d 0a int p2len)..{..
4400: 20 20 69 66 20 28 28 63 74 78 2d 3e 70 46 75 6e if ((ctx->pFun
4410: 63 2d 3e 66 6c 61 67 73 20 26 20 53 51 4c 49 54 c->flags & SQLIT
4420: 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f 4c 4c 29 E_FUNC_NEEDCOLL)
4430: 20 3d 3d 20 30 29 20 72 65 74 75 72 6e 20 32 3b == 0) return 2;
4440: 0d 0a 20 20 72 65 74 75 72 6e 20 63 74 78 2d 3e .. return ctx->
4450: 70 43 6f 6c 6c 2d 3e 78 43 6d 70 28 63 74 78 2d pColl->xCmp(ctx-
4460: 3e 70 43 6f 6c 6c 2d 3e 70 55 73 65 72 2c 20 70 >pColl->pUser, p
4470: 31 6c 65 6e 2c 20 70 31 2c 20 70 32 6c 65 6e 2c 1len, p1, p2len,
4480: 20 70 32 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 p2);..}....SQLI
4490: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 TE_API const cha
44a0: 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 r * WINAPI sqlit
44b0: 65 33 5f 63 6f 6e 74 65 78 74 5f 63 6f 6c 6c 73 e3_context_colls
44c0: 65 71 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 eq_interop(sqlit
44d0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c e3_context *ctx,
44e0: 20 69 6e 74 20 2a 70 74 79 70 65 2c 20 69 6e 74 int *ptype, int
44f0: 20 2a 65 6e 63 2c 20 69 6e 74 20 2a 70 6c 65 6e *enc, int *plen
4500: 29 0d 0a 7b 0d 0a 20 20 43 6f 6c 6c 53 65 71 20 )..{.. CollSeq
4510: 2a 70 43 6f 6c 6c 20 3d 20 63 74 78 2d 3e 70 43 *pColl = ctx->pC
4520: 6f 6c 6c 3b 0d 0a 20 20 2a 70 74 79 70 65 20 3d oll;.. *ptype =
4530: 20 30 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 30 0;.. *plen = 0
4540: 3b 0d 0a 20 20 2a 65 6e 63 20 3d 20 30 3b 0d 0a ;.. *enc = 0;..
4550: 0d 0a 20 20 69 66 20 28 28 63 74 78 2d 3e 70 46 .. if ((ctx->pF
4560: 75 6e 63 2d 3e 66 6c 61 67 73 20 26 20 53 51 4c unc->flags & SQL
4570: 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f 4c ITE_FUNC_NEEDCOL
4580: 4c 29 20 3d 3d 20 30 29 20 72 65 74 75 72 6e 20 L) == 0) return
4590: 4e 55 4c 4c 3b 0d 0a 0d 0a 20 20 69 66 20 28 70 NULL;.... if (p
45a0: 43 6f 6c 6c 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 Coll).. {..
45b0: 2a 65 6e 63 20 3d 20 70 43 6f 6c 6c 2d 3e 65 6e *enc = pColl->en
45c0: 63 3b 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 c;..#if SQLITE_V
45d0: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 ERSION_NUMBER <
45e0: 33 30 30 37 30 31 30 0d 0a 20 20 20 20 2a 70 74 3007010.. *pt
45f0: 79 70 65 20 3d 20 70 43 6f 6c 6c 2d 3e 74 79 70 ype = pColl->typ
4600: 65 3b 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 20 20 e;..#endif..
4610: 2a 70 6c 65 6e 20 3d 20 28 70 43 6f 6c 6c 2d 3e *plen = (pColl->
4620: 7a 4e 61 6d 65 20 21 3d 20 30 29 20 3f 20 73 74 zName != 0) ? st
4630: 72 6c 65 6e 28 70 43 6f 6c 6c 2d 3e 7a 4e 61 6d rlen(pColl->zNam
4640: 65 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 20 20 72 e) : 0;.... r
4650: 65 74 75 72 6e 20 70 43 6f 6c 6c 2d 3e 7a 4e 61 eturn pColl->zNa
4660: 6d 65 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 me;.. }.. retu
4670: 72 6e 20 4e 55 4c 4c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn NULL;..}....S
4680: 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 QLITE_API const
4690: 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 char * WINAPI sq
46a0: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 lite3_column_dat
46b0: 61 62 61 73 65 5f 6e 61 6d 65 5f 69 6e 74 65 72 abase_name_inter
46c0: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
46d0: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
46e0: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
46f0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 const char *pv
4700: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
4710: 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d umn_database_nam
4720: 65 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a e(stmt, iCol);..
4730: 20 20 2a 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 *plen = (pval
4740: 21 3d 20 30 29 20 3f 20 73 74 72 6c 65 6e 28 70 != 0) ? strlen(p
4750: 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 val) : 0;.. ret
4760: 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a urn pval;..}....
4770: 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 SQLITE_API const
4780: 20 76 6f 69 64 20 2a 20 57 49 4e 41 50 49 20 73 void * WINAPI s
4790: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 qlite3_column_da
47a0: 74 61 62 61 73 65 5f 6e 61 6d 65 31 36 5f 69 6e tabase_name16_in
47b0: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 terop(sqlite3_st
47c0: 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 mt *stmt, int iC
47d0: 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a ol, int *plen)..
47e0: 7b 0d 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 {.. const void
47f0: 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f *pval = sqlite3_
4800: 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f column_database_
4810: 6e 61 6d 65 31 36 28 73 74 6d 74 2c 20 69 43 6f name16(stmt, iCo
4820: 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 28 l);.. *plen = (
4830: 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 77 63 73 pval != 0) ? wcs
4840: 6c 65 6e 28 28 77 63 68 61 72 5f 74 20 2a 29 70 len((wchar_t *)p
4850: 76 61 6c 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 val) * sizeof(wc
4860: 68 61 72 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 har_t) : 0;.. r
4870: 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a eturn pval;..}..
4880: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e ..SQLITE_API con
4890: 73 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 st char * WINAPI
48a0: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
48b0: 74 61 62 6c 65 5f 6e 61 6d 65 5f 69 6e 74 65 72 table_name_inter
48c0: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
48d0: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
48e0: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
48f0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 const char *pv
4900: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
4910: 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 6d 65 28 73 umn_table_name(s
4920: 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a tmt, iCol);.. *
4930: 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 plen = (pval !=
4940: 30 29 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c 0) ? strlen(pval
4950: 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e ) : 0;.. return
4960: 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval;..}....SQL
4970: 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f ITE_API const vo
4980: 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 id * WINAPI sqli
4990: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 te3_column_table
49a0: 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f 70 28 _name16_interop(
49b0: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
49c0: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
49d0: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
49e0: 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 onst void *pval
49f0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
4a00: 5f 74 61 62 6c 65 5f 6e 61 6d 65 31 36 28 73 74 _table_name16(st
4a10: 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 mt, iCol);.. *p
4a20: 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 len = (pval != 0
4a30: 29 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 ) ? wcslen((wcha
4a40: 72 5f 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 r_t *)pval) * si
4a50: 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 zeof(wchar_t) :
4a60: 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 0;.. return pva
4a70: 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f l;..}....SQLITE_
4a80: 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a API const char *
4a90: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
4aa0: 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 column_origin_na
4ab0: 6d 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 me_interop(sqlit
4ac0: 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 e3_stmt *stmt, i
4ad0: 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c nt iCol, int *pl
4ae0: 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 en)..{.. const
4af0: 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c char *pval = sql
4b00: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 ite3_column_orig
4b10: 69 6e 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 69 43 in_name(stmt, iC
4b20: 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 ol);.. *plen =
4b30: 28 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 73 74 (pval != 0) ? st
4b40: 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d rlen(pval) : 0;.
4b50: 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d . return pval;.
4b60: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
4b70: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 const void * WI
4b80: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c NAPI sqlite3_col
4b90: 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 31 umn_origin_name1
4ba0: 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 6_interop(sqlite
4bb0: 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 3_stmt *stmt, in
4bc0: 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 t iCol, int *ple
4bd0: 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 76 n)..{.. const v
4be0: 6f 69 64 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 oid *pval = sqli
4bf0: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 te3_column_origi
4c00: 6e 5f 6e 61 6d 65 31 36 28 73 74 6d 74 2c 20 69 n_name16(stmt, i
4c10: 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d Col);.. *plen =
4c20: 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 77 (pval != 0) ? w
4c30: 63 73 6c 65 6e 28 28 77 63 68 61 72 5f 74 20 2a cslen((wchar_t *
4c40: 29 70 76 61 6c 29 20 2a 20 73 69 7a 65 6f 66 28 )pval) * sizeof(
4c50: 77 63 68 61 72 5f 74 29 20 3a 20 30 3b 0d 0a 20 wchar_t) : 0;..
4c60: 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d return pval;..}
4c70: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 ....SQLITE_API i
4c80: 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 nt WINAPI sqlite
4c90: 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 3_table_column_m
4ca0: 65 74 61 64 61 74 61 5f 69 6e 74 65 72 6f 70 28 etadata_interop(
4cb0: 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e sqlite3 *db, con
4cc0: 73 74 20 63 68 61 72 20 2a 7a 44 62 4e 61 6d 65 st char *zDbName
4cd0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 , const char *zT
4ce0: 61 62 6c 65 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 ableName, const
4cf0: 63 68 61 72 20 2a 7a 43 6f 6c 75 6d 6e 4e 61 6d char *zColumnNam
4d00: 65 2c 20 63 68 61 72 20 2a 2a 70 7a 44 61 74 61 e, char **pzData
4d10: 54 79 70 65 2c 20 63 68 61 72 20 2a 2a 70 7a 43 Type, char **pzC
4d20: 6f 6c 6c 53 65 71 2c 20 69 6e 74 20 2a 70 4e 6f ollSeq, int *pNo
4d30: 74 4e 75 6c 6c 2c 20 69 6e 74 20 2a 70 50 72 69 tNull, int *pPri
4d40: 6d 61 72 79 4b 65 79 2c 20 69 6e 74 20 2a 70 41 maryKey, int *pA
4d50: 75 74 6f 69 6e 63 2c 20 69 6e 74 20 2a 70 64 74 utoinc, int *pdt
4d60: 4c 65 6e 2c 20 69 6e 74 20 2a 70 63 73 4c 65 6e Len, int *pcsLen
4d70: 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a )..{.. int n;..
4d80: 20 20 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 .. n = sqlite
4d90: 33 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 3_table_column_m
4da0: 65 74 61 64 61 74 61 28 64 62 2c 20 7a 44 62 4e etadata(db, zDbN
4db0: 61 6d 65 2c 20 7a 54 61 62 6c 65 4e 61 6d 65 2c ame, zTableName,
4dc0: 20 7a 43 6f 6c 75 6d 6e 4e 61 6d 65 2c 20 70 7a zColumnName, pz
4dd0: 44 61 74 61 54 79 70 65 2c 20 70 7a 43 6f 6c 6c DataType, pzColl
4de0: 53 65 71 2c 20 70 4e 6f 74 4e 75 6c 6c 2c 20 70 Seq, pNotNull, p
4df0: 50 72 69 6d 61 72 79 4b 65 79 2c 20 70 41 75 74 PrimaryKey, pAut
4e00: 6f 69 6e 63 29 3b 0d 0a 20 20 2a 70 64 74 4c 65 oinc);.. *pdtLe
4e10: 6e 20 3d 20 28 2a 70 7a 44 61 74 61 54 79 70 65 n = (*pzDataType
4e20: 20 21 3d 20 30 29 20 3f 20 73 74 72 6c 65 6e 28 != 0) ? strlen(
4e30: 2a 70 7a 44 61 74 61 54 79 70 65 29 20 3a 20 30 *pzDataType) : 0
4e40: 3b 0d 0a 20 20 2a 70 63 73 4c 65 6e 20 3d 20 28 ;.. *pcsLen = (
4e50: 2a 70 7a 43 6f 6c 6c 53 65 71 20 21 3d 20 30 29 *pzCollSeq != 0)
4e60: 20 3f 20 73 74 72 6c 65 6e 28 2a 70 7a 43 6f 6c ? strlen(*pzCol
4e70: 6c 53 65 71 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 lSeq) : 0;....
4e80: 72 65 74 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a return n;..}....
4e90: 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 SQLITE_API int W
4ea0: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 69 6e INAPI sqlite3_in
4eb0: 64 65 78 5f 63 6f 6c 75 6d 6e 5f 69 6e 66 6f 5f dex_column_info_
4ec0: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 interop(sqlite3
4ed0: 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 *db, const char
4ee0: 2a 7a 44 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 *zDb, const char
4ef0: 20 2a 7a 49 6e 64 65 78 4e 61 6d 65 2c 20 63 6f *zIndexName, co
4f00: 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c 75 6d nst char *zColum
4f10: 6e 4e 61 6d 65 2c 20 69 6e 74 20 2a 73 6f 72 74 nName, int *sort
4f20: 4f 72 64 65 72 2c 20 69 6e 74 20 2a 6f 6e 45 72 Order, int *onEr
4f30: 72 6f 72 2c 20 63 68 61 72 20 2a 2a 70 7a 43 6f ror, char **pzCo
4f40: 6c 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a ll, int *plen)..
4f50: 7b 0d 0a 20 20 49 6e 64 65 78 20 2a 70 49 64 78 {.. Index *pIdx
4f60: 3b 0d 0a 20 20 54 61 62 6c 65 20 2a 70 54 61 62 ;.. Table *pTab
4f70: 3b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 ;.. int n;....
4f80: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 sqlite3_mutex_e
4f90: 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b nter(db->mutex);
4fa0: 0a 20 20 73 71 6c 69 74 65 33 42 74 72 65 65 45 . sqlite3BtreeE
4fb0: 6e 74 65 72 41 6c 6c 28 64 62 29 3b 0a 0d 0a 20 nterAll(db);...
4fc0: 20 70 49 64 78 20 3d 20 73 71 6c 69 74 65 33 46 pIdx = sqlite3F
4fd0: 69 6e 64 49 6e 64 65 78 28 64 62 2c 20 7a 49 6e indIndex(db, zIn
4fe0: 64 65 78 4e 61 6d 65 2c 20 7a 44 62 29 3b 0d 0a dexName, zDb);..
4ff0: 0d 0a 20 20 73 71 6c 69 74 65 33 42 74 72 65 65 .. sqlite3Btree
5000: 4c 65 61 76 65 41 6c 6c 28 64 62 29 3b 0a 20 20 LeaveAll(db);.
5010: 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 sqlite3_mutex_le
5020: 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a ave(db->mutex);.
5030: 0d 0a 20 20 69 66 20 28 21 70 49 64 78 29 20 72 .. if (!pIdx) r
5040: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 eturn SQLITE_ERR
5050: 4f 52 3b 0d 0a 0d 0a 20 20 70 54 61 62 20 3d 20 OR;.... pTab =
5060: 70 49 64 78 2d 3e 70 54 61 62 6c 65 3b 0d 0a 20 pIdx->pTable;..
5070: 20 66 6f 72 20 28 6e 20 3d 20 30 3b 20 6e 20 3c for (n = 0; n <
5080: 20 70 49 64 78 2d 3e 6e 43 6f 6c 75 6d 6e 3b 20 pIdx->nColumn;
5090: 6e 2b 2b 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 n++).. {.. i
50a0: 6e 74 20 63 6e 75 6d 20 3d 20 70 49 64 78 2d 3e nt cnum = pIdx->
50b0: 61 69 43 6f 6c 75 6d 6e 5b 6e 5d 3b 0d 0a 20 20 aiColumn[n];..
50c0: 20 20 69 66 20 28 73 71 6c 69 74 65 33 53 74 72 if (sqlite3Str
50d0: 49 43 6d 70 28 70 54 61 62 2d 3e 61 43 6f 6c 5b ICmp(pTab->aCol[
50e0: 63 6e 75 6d 5d 2e 7a 4e 61 6d 65 2c 20 7a 43 6f cnum].zName, zCo
50f0: 6c 75 6d 6e 4e 61 6d 65 29 20 3d 3d 20 30 29 0d lumnName) == 0).
5100: 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 2a 73 . {.. *s
5110: 6f 72 74 4f 72 64 65 72 20 3d 20 70 49 64 78 2d ortOrder = pIdx-
5120: 3e 61 53 6f 72 74 4f 72 64 65 72 5b 6e 5d 3b 0d >aSortOrder[n];.
5130: 0a 20 20 20 20 20 20 2a 70 7a 43 6f 6c 6c 20 3d . *pzColl =
5140: 20 70 49 64 78 2d 3e 61 7a 43 6f 6c 6c 5b 6e 5d pIdx->azColl[n]
5150: 3b 0d 0a 20 20 20 20 20 20 2a 70 6c 65 6e 20 3d ;.. *plen =
5160: 20 73 74 72 6c 65 6e 28 2a 70 7a 43 6f 6c 6c 29 strlen(*pzColl)
5170: 3b 0d 0a 20 20 20 20 20 20 2a 6f 6e 45 72 72 6f ;.. *onErro
5180: 72 20 3d 20 70 49 64 78 2d 3e 6f 6e 45 72 72 6f r = pIdx->onErro
5190: 72 3b 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 r;.... retu
51a0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 20 rn SQLITE_OK;..
51b0: 20 20 20 7d 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 }.. }.. ret
51c0: 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 urn SQLITE_ERROR
51d0: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
51e0: 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 PI int WINAPI sq
51f0: 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 75 72 73 lite3_table_curs
5200: 6f 72 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 or_interop(sqlit
5210: 65 33 5f 73 74 6d 74 20 2a 70 73 74 6d 74 2c 20 e3_stmt *pstmt,
5220: 69 6e 74 20 69 44 62 2c 20 50 67 6e 6f 20 74 61 int iDb, Pgno ta
5230: 62 6c 65 52 6f 6f 74 50 61 67 65 29 0d 0a 7b 0d bleRootPage)..{.
5240: 0a 20 20 56 64 62 65 20 2a 70 20 3d 20 28 56 64 . Vdbe *p = (Vd
5250: 62 65 20 2a 29 70 73 74 6d 74 3b 0d 0a 20 20 73 be *)pstmt;.. s
5260: 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 28 70 20 qlite3 *db = (p
5270: 3d 3d 20 4e 55 4c 4c 29 20 3f 20 4e 55 4c 4c 20 == NULL) ? NULL
5280: 3a 20 70 2d 3e 64 62 3b 0d 0a 20 20 69 6e 74 20 : p->db;.. int
5290: 6e 3b 0d 0a 20 20 69 6e 74 20 72 65 74 20 3d 20 n;.. int ret =
52a0: 2d 31 3b 0d 0a 0d 0a 20 20 73 71 6c 69 74 65 33 -1;.... sqlite3
52b0: 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d _mutex_enter(db-
52c0: 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 66 6f 72 20 >mutex);.. for
52d0: 28 6e 20 3d 20 30 3b 20 6e 20 3c 20 70 2d 3e 6e (n = 0; n < p->n
52e0: 43 75 72 73 6f 72 20 26 26 20 70 2d 3e 61 70 43 Cursor && p->apC
52f0: 73 72 5b 6e 5d 20 21 3d 20 4e 55 4c 4c 3b 20 6e sr[n] != NULL; n
5300: 2b 2b 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 66 ++).. {.. if
5310: 20 28 70 2d 3e 61 70 43 73 72 5b 6e 5d 2d 3e 69 (p->apCsr[n]->i
5320: 73 54 61 62 6c 65 20 3d 3d 20 46 41 4c 53 45 29 sTable == FALSE)
5330: 20 63 6f 6e 74 69 6e 75 65 3b 0d 0a 20 20 20 20 continue;..
5340: 69 66 20 28 70 2d 3e 61 70 43 73 72 5b 6e 5d 2d if (p->apCsr[n]-
5350: 3e 69 44 62 20 21 3d 20 69 44 62 29 20 63 6f 6e >iDb != iDb) con
5360: 74 69 6e 75 65 3b 0d 0a 20 20 20 20 69 66 20 28 tinue;.. if (
5370: 70 2d 3e 61 70 43 73 72 5b 6e 5d 2d 3e 70 43 75 p->apCsr[n]->pCu
5380: 72 73 6f 72 2d 3e 70 67 6e 6f 52 6f 6f 74 20 3d rsor->pgnoRoot =
5390: 3d 20 74 61 62 6c 65 52 6f 6f 74 50 61 67 65 29 = tableRootPage)
53a0: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 .. {.. r
53b0: 65 74 20 3d 20 6e 3b 0d 0a 20 20 20 20 20 20 62 et = n;.. b
53c0: 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 reak;.. }..
53d0: 7d 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 }.. sqlite3_mut
53e0: 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 ex_leave(db->mut
53f0: 65 78 29 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 6e ex);.... return
5400: 20 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 ret;..}....SQLI
5410: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
5420: 49 20 73 71 6c 69 74 65 33 5f 63 75 72 73 6f 72 I sqlite3_cursor
5430: 5f 72 6f 77 69 64 5f 69 6e 74 65 72 6f 70 28 73 _rowid_interop(s
5440: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 73 74 qlite3_stmt *pst
5450: 6d 74 2c 20 69 6e 74 20 63 75 72 73 6f 72 2c 20 mt, int cursor,
5460: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70 72 sqlite_int64 *pr
5470: 6f 77 69 64 29 0d 0a 7b 0d 0a 20 20 56 64 62 65 owid)..{.. Vdbe
5480: 20 2a 70 20 3d 20 28 56 64 62 65 20 2a 29 70 73 *p = (Vdbe *)ps
5490: 74 6d 74 3b 0d 0a 20 20 73 71 6c 69 74 65 33 20 tmt;.. sqlite3
54a0: 2a 64 62 20 3d 20 28 70 20 3d 3d 20 4e 55 4c 4c *db = (p == NULL
54b0: 29 20 3f 20 4e 55 4c 4c 20 3a 20 70 2d 3e 64 62 ) ? NULL : p->db
54c0: 3b 0d 0a 20 20 56 64 62 65 43 75 72 73 6f 72 20 ;.. VdbeCursor
54d0: 2a 70 43 3b 0d 0a 20 20 69 6e 74 20 72 65 74 20 *pC;.. int ret
54e0: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 0d 0a = SQLITE_OK;....
54f0: 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f sqlite3_mutex_
5500: 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 enter(db->mutex)
5510: 3b 0d 0a 20 20 77 68 69 6c 65 20 28 31 29 0d 0a ;.. while (1)..
5520: 20 20 7b 0d 0a 20 20 20 20 69 66 20 28 63 75 72 {.. if (cur
5530: 73 6f 72 20 3c 20 30 20 7c 7c 20 63 75 72 73 6f sor < 0 || curso
5540: 72 20 3e 3d 20 70 2d 3e 6e 43 75 72 73 6f 72 29 r >= p->nCursor)
5550: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 .. {.. r
5560: 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f et = SQLITE_ERRO
5570: 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b R;.. break;
5580: 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 69 66 20 .. }.. if
5590: 28 70 2d 3e 61 70 43 73 72 5b 63 75 72 73 6f 72 (p->apCsr[cursor
55a0: 5d 20 3d 3d 20 4e 55 4c 4c 29 0d 0a 20 20 20 20 ] == NULL)..
55b0: 7b 0d 0a 20 20 20 20 20 20 72 65 74 20 3d 20 53 {.. ret = S
55c0: 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 QLITE_ERROR;..
55d0: 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 break;..
55e0: 7d 0d 0a 0d 0a 20 20 20 20 70 43 20 3d 20 70 2d }.... pC = p-
55f0: 3e 61 70 43 73 72 5b 63 75 72 73 6f 72 5d 3b 0d >apCsr[cursor];.
5600: 0a 0d 0a 20 20 20 20 72 65 74 20 3d 20 73 71 6c ... ret = sql
5610: 69 74 65 33 56 64 62 65 43 75 72 73 6f 72 4d 6f ite3VdbeCursorMo
5620: 76 65 74 6f 28 70 43 29 3b 0d 0a 20 20 20 20 69 veto(pC);.. i
5630: 66 28 72 65 74 29 0d 0a 20 20 20 20 20 20 62 72 f(ret).. br
5640: 65 61 6b 3b 0d 0a 0d 0a 20 20 20 20 69 66 28 70 eak;.... if(p
5650: 43 2d 3e 72 6f 77 69 64 49 73 56 61 6c 69 64 29 C->rowidIsValid)
5660: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 2a .. {.. *
5670: 70 72 6f 77 69 64 20 3d 20 70 43 2d 3e 6c 61 73 prowid = pC->las
5680: 74 52 6f 77 69 64 3b 0d 0a 20 20 20 20 7d 0d 0a tRowid;.. }..
5690: 20 20 20 20 65 6c 73 65 20 69 66 28 70 43 2d 3e else if(pC->
56a0: 70 73 65 75 64 6f 54 61 62 6c 65 52 65 67 20 3e pseudoTableReg >
56b0: 20 30 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 0).. {..
56c0: 20 20 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 ret = SQLITE_E
56d0: 52 52 4f 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 RROR;.. bre
56e0: 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 ak;.. }..
56f0: 65 6c 73 65 20 69 66 28 70 43 2d 3e 6e 75 6c 6c else if(pC->null
5700: 52 6f 77 20 7c 7c 20 70 43 2d 3e 70 43 75 72 73 Row || pC->pCurs
5710: 6f 72 3d 3d 30 29 0d 0a 20 20 20 20 7b 0d 0a 20 or==0).. {..
5720: 20 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 54 ret = SQLIT
5730: 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 20 20 E_ERROR;..
5740: 62 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 break;.. }..
5750: 20 20 20 65 6c 73 65 0d 0a 20 20 20 20 7b 0d 0a else.. {..
5760: 20 20 20 20 20 20 69 66 20 28 70 43 2d 3e 70 43 if (pC->pC
5770: 75 72 73 6f 72 20 3d 3d 20 4e 55 4c 4c 29 0d 0a ursor == NULL)..
5780: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 {..
5790: 20 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 ret = SQLITE_ER
57a0: 52 4f 52 3b 0d 0a 20 20 20 20 20 20 20 20 62 72 ROR;.. br
57b0: 65 61 6b 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 eak;.. }..
57c0: 20 20 20 20 20 73 71 6c 69 74 65 33 42 74 72 65 sqlite3Btre
57d0: 65 4b 65 79 53 69 7a 65 28 70 43 2d 3e 70 43 75 eKeySize(pC->pCu
57e0: 72 73 6f 72 2c 20 70 72 6f 77 69 64 29 3b 0d 0a rsor, prowid);..
57f0: 20 20 20 20 20 20 2a 70 72 6f 77 69 64 20 3d 20 *prowid =
5800: 2a 70 72 6f 77 69 64 3b 0d 0a 20 20 20 20 7d 0d *prowid;.. }.
5810: 0a 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 7d . break;.. }
5820: 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 .. sqlite3_mute
5830: 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
5840: 78 29 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 x);.... return
5850: 72 65 74 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 20 ret;..}..#endif
5860: 2f 2a 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e /* SQLITE_OS_WIN
5870: 20 2a 2f 0d 0a 0d 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a */..../********
5880: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5890: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
58a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
58b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
58c0: 2a 2a 2a 2a 2a 2f 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a *****/..../*..**
58d0: 20 54 68 65 20 49 4e 54 45 52 4f 50 5f 54 45 53 The INTEROP_TES
58e0: 54 5f 45 58 54 45 4e 53 49 4f 4e 20 62 6c 6f 63 T_EXTENSION bloc
58f0: 6b 20 6d 75 73 74 20 62 65 20 61 74 20 74 68 65 k must be at the
5900: 20 65 6e 64 20 6f 66 20 74 68 69 73 20 73 6f 75 end of this sou
5910: 72 63 65 20 66 69 6c 65 0d 0a 2a 2a 20 62 65 63 rce file..** bec
5920: 61 75 73 65 20 69 74 20 69 6e 63 6c 75 64 65 73 ause it includes
5930: 20 74 68 65 20 22 73 71 6c 69 74 65 33 65 78 74 the "sqlite3ext
5940: 2e 68 22 20 66 69 6c 65 2c 20 77 68 69 63 68 20 .h" file, which
5950: 64 65 66 69 6e 65 73 20 74 68 65 20 73 71 6c 69 defines the sqli
5960: 74 65 33 0d 0a 2a 2a 20 70 75 62 6c 69 63 20 41 te3..** public A
5970: 50 49 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 PI function name
5980: 73 20 74 6f 20 62 65 20 6d 61 63 72 6f 73 20 61 s to be macros a
5990: 6e 64 20 74 68 61 74 20 77 6f 75 6c 64 20 63 61 nd that would ca
59a0: 75 73 65 20 74 68 65 20 63 6f 64 65 0d 0a 2a 2a use the code..**
59b0: 20 61 62 6f 76 65 20 74 68 69 73 20 70 6f 69 6e above this poin
59c0: 74 20 74 6f 20 6d 61 6c 66 75 6e 63 74 69 6f 6e t to malfunction
59d0: 2e 0d 0a 2a 2f 0d 0a 23 69 66 20 64 65 66 69 6e ...*/..#if defin
59e0: 65 64 28 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f ed(INTEROP_TEST_
59f0: 45 58 54 45 4e 53 49 4f 4e 29 0d 0a 23 69 6e 63 EXTENSION)..#inc
5a00: 6c 75 64 65 20 22 2e 2e 2f 63 6f 72 65 2f 73 71 lude "../core/sq
5a10: 6c 69 74 65 33 65 78 74 2e 68 22 0d 0a 53 51 4c lite3ext.h"..SQL
5a20: 49 54 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e ITE_EXTENSION_IN
5a30: 49 54 31 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 54 68 IT1..../*..** Th
5a40: 65 20 69 6e 74 65 72 6f 70 54 65 73 74 28 29 20 e interopTest()
5a50: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 SQL function ret
5a60: 75 72 6e 73 20 69 74 73 20 66 69 72 73 74 20 61 urns its first a
5a70: 72 67 75 6d 65 6e 74 20 6f 72 20 72 61 69 73 65 rgument or raise
5a80: 73 20 61 6e 0d 0a 2a 2a 20 65 72 72 6f 72 20 69 s an..** error i
5a90: 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 f there are not
5aa0: 65 6e 6f 75 67 68 20 61 72 67 75 6d 65 6e 74 73 enough arguments
5ab0: 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 50 52 ...*/..SQLITE_PR
5ac0: 49 56 41 54 45 20 76 6f 69 64 20 69 6e 74 65 72 IVATE void inter
5ad0: 6f 70 54 65 73 74 46 75 6e 63 28 0d 0a 20 20 73 opTestFunc(.. s
5ae0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
5af0: 63 6f 6e 74 65 78 74 2c 0d 0a 20 20 69 6e 74 20 context,.. int
5b00: 61 72 67 63 2c 0d 0a 20 20 73 71 6c 69 74 65 33 argc,.. sqlite3
5b10: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0d 0a 29 _value **argv..)
5b20: 7b 0d 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 {.. const unsig
5b30: 6e 65 64 20 63 68 61 72 20 2a 7a 3b 0d 0a 20 20 ned char *z;..
5b40: 69 66 28 20 61 72 67 63 21 3d 31 20 29 7b 0d 0a if( argc!=1 ){..
5b50: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
5b60: 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 lt_error(context
5b70: 2c 20 22 6e 65 65 64 20 65 78 61 63 74 6c 79 20 , "need exactly
5b80: 6f 6e 65 20 61 72 67 75 6d 65 6e 74 22 2c 20 2d one argument", -
5b90: 31 29 3b 0d 0a 20 20 20 20 72 65 74 75 72 6e 3b 1);.. return;
5ba0: 0d 0a 20 20 7d 0d 0a 20 20 7a 20 3d 20 73 71 6c .. }.. z = sql
5bb0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
5bc0: 61 72 67 76 5b 30 5d 29 3b 0d 0a 20 20 69 66 28 argv[0]);.. if(
5bd0: 20 7a 20 29 7b 0d 0a 20 20 20 20 73 71 6c 69 74 z ){.. sqlit
5be0: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
5bf0: 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a ontext, (char*)z
5c00: 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 , -1, SQLITE_STA
5c10: 54 49 43 29 3b 0d 0a 20 20 7d 65 6c 73 65 7b 0d TIC);.. }else{.
5c20: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
5c30: 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 ult_null(context
5c40: 29 3b 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0d 0a 2f 2a );.. }..}..../*
5c50: 0d 0a 2a 2a 20 54 68 65 20 69 6e 74 65 72 6f 70 ..** The interop
5c60: 53 6c 65 65 70 28 29 20 53 51 4c 20 66 75 6e 63 Sleep() SQL func
5c70: 74 69 6f 6e 20 77 61 69 74 73 20 74 68 65 20 73 tion waits the s
5c80: 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 pecified number
5c90: 6f 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 0d of milliseconds.
5ca0: 0a 2a 2a 20 6f 72 20 72 61 69 73 65 73 20 61 6e .** or raises an
5cb0: 20 65 72 72 6f 72 20 69 66 20 74 68 65 72 65 20 error if there
5cc0: 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 61 are not enough a
5cd0: 72 67 75 6d 65 6e 74 73 2e 0d 0a 2a 2f 0d 0a 53 rguments...*/..S
5ce0: 51 4c 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f QLITE_PRIVATE vo
5cf0: 69 64 20 69 6e 74 65 72 6f 70 53 6c 65 65 70 46 id interopSleepF
5d00: 75 6e 63 28 0d 0a 20 20 73 71 6c 69 74 65 33 5f unc(.. sqlite3_
5d10: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
5d20: 2c 0d 0a 20 20 69 6e 74 20 61 72 67 63 2c 0d 0a ,.. int argc,..
5d30: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
5d40: 2a 2a 61 72 67 76 0d 0a 29 7b 0d 0a 20 20 69 6e **argv..){.. in
5d50: 74 20 6d 3b 0d 0a 20 20 69 66 28 20 61 72 67 63 t m;.. if( argc
5d60: 21 3d 31 20 29 7b 0d 0a 20 20 20 20 73 71 6c 69 !=1 ){.. sqli
5d70: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
5d80: 28 63 6f 6e 74 65 78 74 2c 20 22 6e 65 65 64 20 (context, "need
5d90: 65 78 61 63 74 6c 79 20 6f 6e 65 20 61 72 67 75 exactly one argu
5da0: 6d 65 6e 74 22 2c 20 2d 31 29 3b 0d 0a 20 20 20 ment", -1);..
5db0: 20 72 65 74 75 72 6e 3b 0d 0a 20 20 7d 0d 0a 20 return;.. }..
5dc0: 20 6d 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c m = sqlite3_val
5dd0: 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b ue_int(argv[0]);
5de0: 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f ..#if SQLITE_OS_
5df0: 57 49 4e 43 45 0d 0a 20 20 53 6c 65 65 70 28 6d WINCE.. Sleep(m
5e00: 29 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 );.. sqlite3_re
5e10: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 sult_int(context
5e20: 2c 20 57 41 49 54 5f 4f 42 4a 45 43 54 5f 30 29 , WAIT_OBJECT_0)
5e30: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 73 71 6c 69 ;..#else.. sqli
5e40: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 te3_result_int(c
5e50: 6f 6e 74 65 78 74 2c 20 53 6c 65 65 70 45 78 28 ontext, SleepEx(
5e60: 6d 2c 20 54 52 55 45 29 29 3b 0d 0a 23 65 6e 64 m, TRUE));..#end
5e70: 69 66 0d 0a 7d 0d 0a 0d 0a 2f 2a 20 53 51 4c 69 if..}..../* SQLi
5e80: 74 65 20 69 6e 76 6f 6b 65 73 20 74 68 69 73 20 te invokes this
5e90: 72 6f 75 74 69 6e 65 20 6f 6e 63 65 20 77 68 65 routine once whe
5ea0: 6e 20 69 74 20 6c 6f 61 64 73 20 74 68 65 20 65 n it loads the e
5eb0: 78 74 65 6e 73 69 6f 6e 2e 0d 0a 2a 2a 20 43 72 xtension...** Cr
5ec0: 65 61 74 65 20 6e 65 77 20 66 75 6e 63 74 69 6f eate new functio
5ed0: 6e 73 2c 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 ns, collating se
5ee0: 71 75 65 6e 63 65 73 2c 20 61 6e 64 20 76 69 72 quences, and vir
5ef0: 74 75 61 6c 20 74 61 62 6c 65 0d 0a 2a 2a 20 6d tual table..** m
5f00: 6f 64 75 6c 65 73 20 68 65 72 65 2e 20 20 54 68 odules here. Th
5f10: 69 73 20 69 73 20 75 73 75 61 6c 6c 79 20 74 68 is is usually th
5f20: 65 20 6f 6e 6c 79 20 65 78 70 6f 72 74 65 64 20 e only exported
5f30: 73 79 6d 62 6f 6c 20 69 6e 0d 0a 2a 2a 20 74 68 symbol in..** th
5f40: 65 20 73 68 61 72 65 64 20 6c 69 62 72 61 72 79 e shared library
5f50: 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 41 50 ...*/..SQLITE_AP
5f60: 49 20 69 6e 74 20 69 6e 74 65 72 6f 70 5f 74 65 I int interop_te
5f70: 73 74 5f 65 78 74 65 6e 73 69 6f 6e 5f 69 6e 69 st_extension_ini
5f80: 74 28 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 t(.. sqlite3 *d
5f90: 62 2c 0d 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 b,.. char **pzE
5fa0: 72 72 4d 73 67 2c 0d 0a 20 20 63 6f 6e 73 74 20 rrMsg,.. const
5fb0: 73 71 6c 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 sqlite3_api_rout
5fc0: 69 6e 65 73 20 2a 70 41 70 69 0d 0a 29 7b 0d 0a ines *pApi..){..
5fd0: 20 20 69 6e 74 20 72 63 3b 0d 0a 20 20 53 51 4c int rc;.. SQL
5fe0: 49 54 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e ITE_EXTENSION_IN
5ff0: 49 54 32 28 70 41 70 69 29 0d 0a 20 20 72 63 20 IT2(pApi).. rc
6000: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
6010: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 69 _function(db, "i
6020: 6e 74 65 72 6f 70 54 65 73 74 22 2c 20 2d 31 2c nteropTest", -1,
6030: 20 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 0d SQLITE_ANY, 0,.
6040: 0a 20 20 20 20 20 20 69 6e 74 65 72 6f 70 54 65 . interopTe
6050: 73 74 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0d 0a stFunc, 0, 0);..
6060: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 if( rc==SQLITE
6070: 5f 4f 4b 20 29 7b 0d 0a 20 20 20 20 72 63 20 3d _OK ){.. rc =
6080: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
6090: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 69 6e function(db, "in
60a0: 74 65 72 6f 70 53 6c 65 65 70 22 2c 20 31 2c 20 teropSleep", 1,
60b0: 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 0d 0a SQLITE_ANY, 0,..
60c0: 20 20 20 20 20 20 20 20 69 6e 74 65 72 6f 70 53 interopS
60d0: 6c 65 65 70 46 75 6e 63 2c 20 30 2c 20 30 29 3b leepFunc, 0, 0);
60e0: 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 .. }.. return
60f0: 72 63 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a rc;..}..#endif..