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 28 30 78 30 30 29 ONE (0x00)
0280: 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f ..#define INTERO
0290: 50 5f 44 45 42 55 47 5f 43 4c 4f 53 45 20 20 20 P_DEBUG_CLOSE
02a0: 20 20 20 28 30 78 30 31 29 0d 0a 23 64 65 66 69 (0x01)..#defi
02b0: 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ne INTEROP_DEBUG
02c0: 5f 46 49 4e 41 4c 49 5a 45 20 20 20 28 30 78 30 _FINALIZE (0x0
02d0: 32 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 2)..#define INTE
02e0: 52 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 20 20 ROP_DEBUG_OPEN
02f0: 20 20 20 20 20 28 30 78 30 34 29 0d 0a 23 64 65 (0x04)..#de
0300: 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 fine INTEROP_DEB
0310: 55 47 5f 4f 50 45 4e 31 36 20 20 20 20 20 28 30 UG_OPEN16 (0
0320: 78 30 38 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e x08)..#define IN
0330: 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 TEROP_DEBUG_PREP
0340: 41 52 45 20 20 20 20 28 30 78 31 30 29 0d 0a 23 ARE (0x10)..#
0350: 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 5f 44 define INTEROP_D
0360: 45 42 55 47 5f 50 52 45 50 41 52 45 31 36 20 20 EBUG_PREPARE16
0370: 28 30 78 32 30 29 0d 0a 23 64 65 66 69 6e 65 20 (0x20)..#define
0380: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 52 45 INTEROP_DEBUG_RE
0390: 53 45 54 20 20 20 20 20 20 28 30 78 34 30 29 0d SET (0x40).
03a0: 0a 0d 0a 74 79 70 65 64 65 66 20 76 6f 69 64 20 ...typedef void
03b0: 28 2a 53 51 4c 49 54 45 55 53 45 52 46 55 4e 43 (*SQLITEUSERFUNC
03c0: 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 )(sqlite3_contex
03d0: 74 20 2a 2c 20 69 6e 74 2c 20 73 71 6c 69 74 65 t *, int, sqlite
03e0: 33 5f 76 61 6c 75 65 20 2a 2a 29 3b 0d 0a 74 79 3_value **);..ty
03f0: 70 65 64 65 66 20 76 6f 69 64 20 28 2a 53 51 4c pedef void (*SQL
0400: 49 54 45 46 55 4e 43 46 49 4e 41 4c 29 28 73 71 ITEFUNCFINAL)(sq
0410: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 29 lite3_context *)
0420: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
0430: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 0d (INTEROP_DEBUG).
0440: 0a 53 51 4c 49 54 45 5f 50 52 49 56 41 54 45 20 .SQLITE_PRIVATE
0450: 76 6f 69 64 20 73 71 6c 69 74 65 33 49 6e 74 65 void sqlite3Inte
0460: 72 6f 70 44 65 62 75 67 28 63 6f 6e 73 74 20 63 ropDebug(const c
0470: 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e har *zFormat, ..
0480: 2e 29 7b 0d 0a 20 20 76 61 5f 6c 69 73 74 20 61 .){.. va_list a
0490: 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 p;
04a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 56 61 /* Va
04b0: 72 61 72 67 20 6c 69 73 74 20 2a 2f 0d 0a 20 20 rarg list */..
04c0: 53 74 72 41 63 63 75 6d 20 61 63 63 3b 20 20 20 StrAccum acc;
04d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04e0: 20 20 20 20 2f 2a 20 53 74 72 69 6e 67 20 61 63 /* String ac
04f0: 63 75 6d 75 6c 61 74 6f 72 20 2a 2f 0a 20 20 63 cumulator */. c
0500: 68 61 72 20 7a 4d 73 67 5b 53 51 4c 49 54 45 5f har zMsg[SQLITE_
0510: 50 52 49 4e 54 5f 42 55 46 5f 53 49 5a 45 2a 33 PRINT_BUF_SIZE*3
0520: 5d 3b 20 2f 2a 20 43 6f 6d 70 6c 65 74 65 20 6c ]; /* Complete l
0530: 6f 67 20 6d 65 73 73 61 67 65 20 2a 2f 0d 0a 20 og message */..
0540: 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 va_start(ap, zF
0550: 6f 72 6d 61 74 29 3b 0a 20 20 73 71 6c 69 74 65 ormat);. sqlite
0560: 33 53 74 72 41 63 63 75 6d 49 6e 69 74 28 26 61 3StrAccumInit(&a
0570: 63 63 2c 20 7a 4d 73 67 2c 20 73 69 7a 65 6f 66 cc, zMsg, sizeof
0580: 28 7a 4d 73 67 29 2c 20 30 29 3b 0a 20 20 61 63 (zMsg), 0);. ac
0590: 63 2e 75 73 65 4d 61 6c 6c 6f 63 20 3d 20 30 3b c.useMalloc = 0;
05a0: 0a 20 20 73 71 6c 69 74 65 33 56 58 50 72 69 6e . sqlite3VXPrin
05b0: 74 66 28 26 61 63 63 2c 20 30 2c 20 7a 46 6f 72 tf(&acc, 0, zFor
05c0: 6d 61 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 mat, ap);. va_e
05d0: 6e 64 28 61 70 29 3b 0a 23 69 66 20 53 51 4c 49 nd(ap);.#if SQLI
05e0: 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 TE_VERSION_NUMBE
05f0: 52 20 3e 3d 20 33 30 30 37 30 31 33 0a 20 20 73 R >= 3007013. s
0600: 71 6c 69 74 65 33 5f 77 69 6e 33 32 5f 77 72 69 qlite3_win32_wri
0610: 74 65 5f 64 65 62 75 67 28 73 71 6c 69 74 65 33 te_debug(sqlite3
0620: 53 74 72 41 63 63 75 6d 46 69 6e 69 73 68 28 26 StrAccumFinish(&
0630: 61 63 63 29 2c 20 2d 31 29 3b 0a 23 65 6c 69 66 acc), -1);.#elif
0640: 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f defined(SQLITE_
0650: 57 49 4e 33 32 5f 48 41 53 5f 41 4e 53 49 29 0a WIN32_HAS_ANSI).
0660: 20 20 4f 75 74 70 75 74 44 65 62 75 67 53 74 72 OutputDebugStr
0670: 69 6e 67 41 28 73 71 6c 69 74 65 33 53 74 72 41 ingA(sqlite3StrA
0680: 63 63 75 6d 46 69 6e 69 73 68 28 26 61 63 63 29 ccumFinish(&acc)
0690: 29 3b 0a 23 65 6c 69 66 20 64 65 66 69 6e 65 64 );.#elif defined
06a0: 28 53 51 4c 49 54 45 5f 57 49 4e 33 32 5f 48 41 (SQLITE_WIN32_HA
06b0: 53 5f 57 49 44 45 29 0a 20 20 7b 0a 20 20 20 20 S_WIDE). {.
06c0: 4c 50 57 53 54 52 20 7a 57 69 64 65 4d 73 67 20 LPWSTR zWideMsg
06d0: 3d 20 75 74 66 38 54 6f 55 6e 69 63 6f 64 65 28 = utf8ToUnicode(
06e0: 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 sqlite3StrAccumF
06f0: 69 6e 69 73 68 28 26 61 63 63 29 29 3b 0a 20 20 inish(&acc));.
0700: 20 20 69 66 28 20 7a 57 69 64 65 4d 73 67 20 29 if( zWideMsg )
0710: 7b 0a 20 20 20 20 20 20 4f 75 74 70 75 74 44 65 {. OutputDe
0720: 62 75 67 53 74 72 69 6e 67 57 28 7a 57 69 64 65 bugStringW(zWide
0730: 4d 73 67 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 Msg);. sqli
0740: 74 65 33 5f 66 72 65 65 28 7a 57 69 64 65 4d 73 te3_free(zWideMs
0750: 67 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 23 65 g);. }. }.#e
0760: 6c 73 65 0a 20 20 66 70 72 69 6e 74 66 28 73 74 lse. fprintf(st
0770: 64 65 72 72 2c 20 22 25 73 22 2c 20 73 71 6c 69 derr, "%s", sqli
0780: 74 65 33 53 74 72 41 63 63 75 6d 46 69 6e 69 73 te3StrAccumFinis
0790: 68 28 26 61 63 63 29 29 3b 0a 23 65 6e 64 69 66 h(&acc));.#endif
07a0: 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 .}..#endif....#i
07b0: 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e f SQLITE_VERSION
07c0: 5f 4e 55 4d 42 45 52 20 3c 20 33 30 30 37 30 31 _NUMBER < 300701
07d0: 34 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 41 54 4..SQLITE_PRIVAT
07e0: 45 20 76 6f 69 64 20 2a 20 73 71 6c 69 74 65 33 E void * sqlite3
07f0: 44 62 4d 61 6c 6c 6f 63 5a 65 72 6f 5f 69 6e 74 DbMallocZero_int
0800: 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 erop(sqlite3 *db
0810: 2c 20 69 6e 74 20 6e 29 0d 0a 7b 0d 0a 20 20 76 , int n)..{.. v
0820: 6f 69 64 20 2a 70 3b 0d 0a 20 20 69 66 20 28 64 oid *p;.. if (d
0830: 62 29 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 b) {.. sqlite
0840: 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 3_mutex_enter(db
0850: 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a ->mutex);.. }..
0860: 20 20 70 20 3d 20 73 71 6c 69 74 65 33 44 62 4d p = sqlite3DbM
0870: 61 6c 6c 6f 63 5a 65 72 6f 28 64 62 2c 6e 29 3b allocZero(db,n);
0880: 0d 0a 20 20 69 66 20 28 64 62 29 20 7b 0d 0a 20 .. if (db) {..
0890: 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 sqlite3_mutex
08a0: 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 _leave(db->mutex
08b0: 29 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 );.. }.. retur
08c0: 6e 20 70 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 n p;..}....SQLIT
08d0: 45 5f 50 52 49 56 41 54 45 20 76 6f 69 64 20 73 E_PRIVATE void s
08e0: 71 6c 69 74 65 33 44 62 46 72 65 65 5f 69 6e 74 qlite3DbFree_int
08f0: 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 erop(sqlite3 *db
0900: 2c 20 76 6f 69 64 20 2a 70 29 0d 0a 7b 0d 0a 20 , void *p)..{..
0910: 20 69 66 20 28 64 62 29 20 7b 0d 0a 20 20 20 20 if (db) {..
0920: 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e sqlite3_mutex_en
0930: 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d ter(db->mutex);.
0940: 0a 20 20 7d 0d 0a 20 20 69 66 20 28 70 29 20 7b . }.. if (p) {
0950: 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 4d 65 6d .. sqlite3Mem
0960: 64 65 62 75 67 53 65 74 54 79 70 65 28 70 2c 20 debugSetType(p,
0970: 4d 45 4d 54 59 50 45 5f 44 42 7c 4d 45 4d 54 59 MEMTYPE_DB|MEMTY
0980: 50 45 5f 48 45 41 50 29 3b 0d 0a 20 20 7d 0d 0a PE_HEAP);.. }..
0990: 20 20 73 71 6c 69 74 65 33 44 62 46 72 65 65 28 sqlite3DbFree(
09a0: 64 62 2c 70 29 3b 0d 0a 20 20 69 66 20 28 64 62 db,p);.. if (db
09b0: 29 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 ) {.. sqlite3
09c0: 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 2d _mutex_leave(db-
09d0: 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a 7d >mutex);.. }..}
09e0: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 2f 2a 0d 0a ..#endif..../*..
09f0: 20 20 20 20 54 68 65 20 67 6f 61 6c 20 6f 66 20 The goal of
0a00: 74 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 this version of
0a10: 63 6c 6f 73 65 20 69 73 20 64 69 66 66 65 72 65 close is differe
0a20: 6e 74 20 74 68 61 6e 20 74 68 61 74 20 6f 66 20 nt than that of
0a30: 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 29 2c sqlite3_close(),
0a40: 20 61 6e 64 20 69 73 20 64 65 73 69 67 6e 65 64 and is designed
0a50: 20 74 6f 20 6c 65 6e 64 20 69 74 73 65 6c 66 20 to lend itself
0a60: 62 65 74 74 65 72 20 74 6f 20 2e 4e 45 54 27 73 better to .NET's
0a70: 20 6e 6f 6e 2d 64 65 74 65 72 6d 69 6e 69 73 74 non-determinist
0a80: 69 63 20 66 69 6e 61 6c 69 7a 65 72 73 20 61 6e ic finalizers an
0a90: 64 0d 0a 20 20 20 20 74 68 65 20 47 43 20 74 68 d.. the GC th
0aa0: 72 65 61 64 2e 20 20 53 51 4c 69 74 65 20 77 69 read. SQLite wi
0ab0: 6c 6c 20 6e 6f 74 20 63 6c 6f 73 65 20 61 20 64 ll not close a d
0ac0: 61 74 61 62 61 73 65 20 69 66 20 73 74 61 74 65 atabase if state
0ad0: 6d 65 6e 74 73 20 61 72 65 20 6f 70 65 6e 20 6f ments are open o
0ae0: 6e 20 69 74 20 2d 2d 20 62 75 74 20 66 6f 72 20 n it -- but for
0af0: 6f 75 72 20 70 75 72 70 6f 73 65 73 2c 20 77 65 our purposes, we
0b00: 27 64 20 72 61 74 68 65 72 20 66 69 6e 61 6c 69 'd rather finali
0b10: 7a 65 20 61 6c 6c 20 61 63 74 69 76 65 20 73 74 ze all active st
0b20: 61 74 65 6d 65 6e 74 73 0d 0a 20 20 20 20 61 6e atements.. an
0b30: 64 20 66 6f 72 63 69 62 6c 79 20 63 6c 6f 73 65 d forcibly close
0b40: 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 20 the database.
0b50: 54 68 65 20 72 65 61 73 6f 6e 20 69 73 20 73 69 The reason is si
0b60: 6d 70 6c 65 20 2d 2d 20 61 20 6c 6f 74 20 6f 66 mple -- a lot of
0b70: 20 70 65 6f 70 6c 65 20 64 6f 6e 27 74 20 44 69 people don't Di
0b80: 73 70 6f 73 65 28 29 20 6f 66 20 74 68 65 69 72 spose() of their
0b90: 20 6f 62 6a 65 63 74 73 20 63 6f 72 72 65 63 74 objects correct
0ba0: 6c 79 20 61 6e 64 20 6c 65 74 20 74 68 65 20 67 ly and let the g
0bb0: 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 6f 72 arbage collector
0bc0: 0d 0a 20 20 20 20 64 6f 20 69 74 2e 20 20 54 68 .. do it. Th
0bd0: 69 73 20 6c 65 61 64 73 20 74 6f 20 75 6e 65 78 is leads to unex
0be0: 70 65 63 74 65 64 20 62 65 68 61 76 69 6f 72 20 pected behavior
0bf0: 77 68 65 6e 20 61 20 75 73 65 72 20 74 68 69 6e when a user thin
0c00: 6b 73 20 74 68 65 79 27 76 65 20 63 6c 6f 73 65 ks they've close
0c10: 64 20 61 20 64 61 74 61 62 61 73 65 2c 20 62 75 d a database, bu
0c20: 74 20 69 74 27 73 20 73 74 69 6c 6c 20 6f 70 65 t it's still ope
0c30: 6e 20 62 65 63 61 75 73 65 20 6e 6f 74 20 61 6c n because not al
0c40: 6c 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 73 l the statements
0c50: 20 68 61 76 65 0d 0a 20 20 20 20 68 69 74 20 74 have.. hit t
0c60: 68 65 20 47 43 20 79 65 74 2e 0d 0a 0d 0a 20 20 he GC yet.....
0c70: 20 20 53 6f 2c 20 68 65 72 65 20 77 65 20 68 61 So, here we ha
0c80: 76 65 20 61 20 70 72 6f 62 6c 65 6d 20 2e 2e 2e ve a problem ...
0c90: 20 2e 4e 45 54 20 68 61 73 20 61 20 70 6f 69 6e .NET has a poin
0ca0: 74 65 72 20 74 6f 20 61 6e 79 20 6e 75 6d 62 65 ter to any numbe
0cb0: 72 20 6f 66 20 73 71 6c 69 74 65 33 5f 73 74 6d r of sqlite3_stm
0cc0: 74 20 6f 62 6a 65 63 74 73 2e 20 20 57 65 20 63 t objects. We c
0cd0: 61 6e 27 74 20 63 61 6c 6c 20 73 71 6c 69 74 65 an't call sqlite
0ce0: 33 5f 66 69 6e 61 6c 69 7a 65 28 29 20 6f 6e 20 3_finalize() on
0cf0: 74 68 65 73 65 20 62 65 63 61 75 73 65 0d 0a 20 these because..
0d00: 20 20 20 74 68 65 69 72 20 6d 65 6d 6f 72 79 20 their memory
0d10: 69 73 20 66 72 65 65 64 20 61 6e 64 20 63 61 6e is freed and can
0d20: 20 62 65 20 75 73 65 64 20 66 6f 72 20 73 6f 6d be used for som
0d30: 65 74 68 69 6e 67 20 65 6c 73 65 2e 20 20 54 68 ething else. Th
0d40: 65 20 47 43 20 74 68 72 65 61 64 20 63 6f 75 6c e GC thread coul
0d50: 64 20 70 6f 74 65 6e 74 69 61 6c 6c 79 20 74 72 d potentially tr
0d60: 79 20 61 6e 64 20 63 61 6c 6c 20 66 69 6e 61 6c y and call final
0d70: 69 7a 65 20 61 67 61 69 6e 20 6f 6e 20 74 68 65 ize again on the
0d80: 20 73 74 61 74 65 6d 65 6e 74 20 61 66 74 65 72 statement after
0d90: 0d 0a 20 20 20 20 74 68 61 74 20 6d 65 6d 6f 72 .. that memor
0da0: 79 20 77 61 73 20 64 65 61 6c 6c 6f 63 61 74 65 y was deallocate
0db0: 64 2e 20 20 42 41 44 2e 20 20 53 6f 2c 20 77 68 d. BAD. So, wh
0dc0: 61 74 20 77 65 20 6e 65 65 64 20 74 6f 20 64 6f at we need to do
0dd0: 20 69 73 20 6d 61 6b 65 20 61 20 63 6f 70 79 20 is make a copy
0de0: 6f 66 20 65 61 63 68 20 73 74 61 74 65 6d 65 6e of each statemen
0df0: 74 2c 20 61 6e 64 20 63 61 6c 6c 20 66 69 6e 61 t, and call fina
0e00: 6c 69 7a 65 28 29 20 6f 6e 20 74 68 65 20 63 6f lize() on the co
0e10: 70 79 20 2d 2d 20 73 6f 20 74 68 61 74 20 74 68 py -- so that th
0e20: 65 20 6f 72 69 67 69 6e 61 6c 0d 0a 20 20 20 20 e original..
0e30: 73 74 61 74 65 6d 65 6e 74 27 73 20 6d 65 6d 6f statement's memo
0e40: 72 79 20 69 73 20 70 72 65 73 65 72 76 65 64 2c ry is preserved,
0e50: 20 61 6e 64 20 6d 61 72 6b 65 64 20 61 73 20 42 and marked as B
0e60: 41 44 2c 20 62 75 74 20 77 65 20 63 61 6e 20 73 AD, but we can s
0e70: 74 69 6c 6c 20 6d 61 6e 61 67 65 20 74 6f 20 66 till manage to f
0e80: 69 6e 61 6c 69 7a 65 20 65 76 65 72 79 74 68 69 inalize everythi
0e90: 6e 67 20 61 6e 64 20 66 6f 72 63 69 62 6c 79 20 ng and forcibly
0ea0: 63 6c 6f 73 65 20 74 68 65 20 64 61 74 61 62 61 close the databa
0eb0: 73 65 2e 20 20 4c 61 74 65 72 20 77 68 65 6e 20 se. Later when
0ec0: 74 68 65 20 0d 0a 20 20 20 20 47 43 20 67 65 74 the .. GC get
0ed0: 73 20 61 72 6f 75 6e 64 20 74 6f 20 63 61 6c 6c s around to call
0ee0: 69 6e 67 20 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 ing finalize_int
0ef0: 65 72 6f 70 28 29 20 6f 6e 20 74 68 65 20 22 62 erop() on the "b
0f00: 61 64 22 20 73 74 61 74 65 6d 65 6e 74 2c 20 77 ad" statement, w
0f10: 65 20 64 65 74 65 63 74 20 74 68 61 74 20 61 6e e detect that an
0f20: 64 20 66 69 6e 69 73 68 20 64 65 61 6c 6c 6f 63 d finish dealloc
0f30: 61 74 69 6e 67 20 74 68 65 20 70 6f 69 6e 74 65 ating the pointe
0f40: 72 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 41 r...*/..SQLITE_A
0f50: 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 PI int WINAPI sq
0f60: 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 69 6e 74 65 lite3_close_inte
0f70: 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 29 rop(sqlite3 *db)
0f80: 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d ..{.. int ret;.
0f90: 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 .#if SQLITE_VERS
0fa0: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 ION_NUMBER >= 30
0fb0: 30 37 30 31 34 0d 0a 0d 0a 23 69 66 20 64 65 66 07014....#if def
0fc0: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 ined(INTEROP_DEB
0fd0: 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f UG) && (INTEROP_
0fe0: 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f DEBUG & INTEROP_
0ff0: 44 45 42 55 47 5f 43 4c 4f 53 45 29 0d 0a 20 20 DEBUG_CLOSE)..
1000: 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 sqlite3InteropDe
1010: 62 75 67 28 22 73 71 6c 69 74 65 33 5f 63 6c 6f bug("sqlite3_clo
1020: 73 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 se_interop(): ca
1030: 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 63 6c lling sqlite3_cl
1040: 6f 73 65 5f 76 32 28 25 70 29 2e 2e 2e 5c 6e 22 ose_v2(%p)...\n"
1050: 2c 20 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a , db);..#endif..
1060: 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 .. ret = sqlite
1070: 33 5f 63 6c 6f 73 65 5f 76 32 28 64 62 29 3b 0d 3_close_v2(db);.
1080: 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 ...#if defined(I
1090: 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 NTEROP_DEBUG) &&
10a0: 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 (INTEROP_DEBUG
10b0: 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f & INTEROP_DEBUG_
10c0: 43 4c 4f 53 45 29 0d 0a 20 20 73 71 6c 69 74 65 CLOSE).. sqlite
10d0: 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 3InteropDebug("s
10e0: 71 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 69 6e 74 qlite3_close_int
10f0: 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f erop(): sqlite3_
1100: 63 6c 6f 73 65 5f 76 32 28 25 70 29 20 72 65 74 close_v2(%p) ret
1110: 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 64 62 urned %d.\n", db
1120: 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 0d , ret);..#endif.
1130: 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b ... return ret;
1140: 0d 0a 23 65 6c 73 65 0d 0a 20 20 72 65 74 20 3d ..#else.. ret =
1150: 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 64 sqlite3_close(d
1160: 62 29 3b 0d 0a 0d 0a 20 20 69 66 20 28 72 65 74 b);.... if (ret
1170: 20 3d 3d 20 53 51 4c 49 54 45 5f 42 55 53 59 29 == SQLITE_BUSY)
1180: 0d 0a 20 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 .. {.. sqlit
1190: 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 e3_mutex_enter(d
11a0: 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 0d 0a 20 20 b->mutex);....
11b0: 20 20 69 66 20 28 21 64 62 2d 3e 70 56 64 62 65 if (!db->pVdbe
11c0: 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 ).. {..
11d0: 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 sqlite3_mutex_le
11e0: 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d ave(db->mutex);.
11f0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 72 65 . return re
1200: 74 3b 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 t;.. }....
1210: 20 77 68 69 6c 65 20 28 64 62 2d 3e 70 56 64 62 while (db->pVdb
1220: 65 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 e).. {..
1230: 20 2f 2a 20 4d 61 6b 65 20 61 20 63 6f 70 79 20 /* Make a copy
1240: 6f 66 20 74 68 65 20 66 69 72 73 74 20 70 72 65 of the first pre
1250: 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e 74 20 pared statement
1260: 2a 2f 0d 0a 20 20 20 20 20 20 56 64 62 65 20 2a */.. Vdbe *
1270: 70 20 3d 20 28 56 64 62 65 20 2a 29 73 71 6c 69 p = (Vdbe *)sqli
1280: 74 65 33 44 62 4d 61 6c 6c 6f 63 5a 65 72 6f 5f te3DbMallocZero_
1290: 69 6e 74 65 72 6f 70 28 64 62 2c 20 73 69 7a 65 interop(db, size
12a0: 6f 66 28 56 64 62 65 29 29 3b 0d 0a 20 20 20 20 of(Vdbe));..
12b0: 20 20 56 64 62 65 20 2a 70 6f 20 3d 20 64 62 2d Vdbe *po = db-
12c0: 3e 70 56 64 62 65 3b 0d 0a 0d 0a 20 20 20 20 20 >pVdbe;....
12d0: 20 69 66 20 28 21 70 29 20 0d 0a 20 20 20 20 20 if (!p) ..
12e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 20 {.. ret
12f0: 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0d = SQLITE_NOMEM;.
1300: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0d . break;.
1310: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
1320: 20 20 43 6f 70 79 4d 65 6d 6f 72 79 28 70 2c 20 CopyMemory(p,
1330: 70 6f 2c 20 73 69 7a 65 6f 66 28 56 64 62 65 29 po, sizeof(Vdbe)
1340: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 2f 2a 20 50 );.... /* P
1350: 75 74 20 69 74 20 6f 6e 20 74 68 65 20 63 68 61 ut it on the cha
1360: 69 6e 20 73 6f 20 77 65 20 63 61 6e 20 66 72 65 in so we can fre
1370: 65 20 69 74 20 2a 2f 0d 0a 20 20 20 20 20 20 64 e it */.. d
1380: 62 2d 3e 70 56 64 62 65 20 3d 20 70 3b 0d 0a 20 b->pVdbe = p;..
1390: 20 20 20 20 20 72 65 74 20 3d 20 73 71 6c 69 74 ret = sqlit
13a0: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 28 73 71 6c e3_finalize((sql
13b0: 69 74 65 33 5f 73 74 6d 74 20 2a 29 70 29 3b 20 ite3_stmt *)p);
13c0: 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 61 6c 73 /* This will als
13d0: 6f 20 66 72 65 65 20 74 68 65 20 63 6f 70 79 27 o free the copy'
13e0: 73 20 6d 65 6d 6f 72 79 20 2a 2f 0d 0a 20 20 20 s memory */..
13f0: 20 20 20 69 66 20 28 72 65 74 29 0d 0a 20 20 20 if (ret)..
1400: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 2f 2a {.. /*
1410: 20 66 69 6e 61 6c 69 7a 65 20 66 61 69 6c 65 64 finalize failed
1420: 20 2d 2d 20 73 6f 20 77 65 20 6d 75 73 74 20 70 -- so we must p
1430: 75 74 20 62 61 63 6b 20 61 6e 79 74 68 69 6e 67 ut back anything
1440: 20 77 65 20 6d 75 6e 67 65 64 20 2a 2f 0d 0a 20 we munged */..
1450: 20 20 20 20 20 20 20 43 6f 70 79 4d 65 6d 6f 72 CopyMemor
1460: 79 28 70 6f 2c 20 70 2c 20 73 69 7a 65 6f 66 28 y(po, p, sizeof(
1470: 56 64 62 65 29 29 3b 0d 0a 20 20 20 20 20 20 20 Vdbe));..
1480: 20 64 62 2d 3e 70 56 64 62 65 20 3d 20 70 6f 3b db->pVdbe = po;
1490: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 2f 2a 0d 0a .... /*..
14a0: 20 20 20 20 20 20 20 20 2a 2a 20 4e 4f 54 45 3a ** NOTE:
14b0: 20 4f 6b 2c 20 77 65 20 6d 75 73 74 20 66 72 65 Ok, we must fre
14c0: 65 20 74 68 69 73 20 62 6c 6f 63 6b 20 74 68 61 e this block tha
14d0: 74 20 2a 77 65 2a 20 61 6c 6c 6f 63 61 74 65 64 t *we* allocated
14e0: 20 28 61 62 6f 76 65 29 20 73 69 6e 63 65 0d 0a (above) since..
14f0: 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 **
1500: 20 66 69 6e 61 6c 69 7a 65 20 64 69 64 20 6e 6f finalize did no
1510: 74 20 64 6f 20 73 6f 2e 0d 0a 20 20 20 20 20 20 t do so...
1520: 20 20 2a 2f 0d 0a 20 20 20 20 20 20 20 20 73 71 */.. sq
1530: 6c 69 74 65 33 44 62 46 72 65 65 5f 69 6e 74 65 lite3DbFree_inte
1540: 72 6f 70 28 64 62 2c 20 70 29 3b 0d 0a 20 20 20 rop(db, p);..
1550: 20 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 break;..
1560: 20 20 20 7d 0d 0a 20 20 20 20 20 20 65 6c 73 65 }.. else
1570: 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 .. {..
1580: 20 20 20 5a 65 72 6f 4d 65 6d 6f 72 79 28 70 6f ZeroMemory(po
1590: 2c 20 73 69 7a 65 6f 66 28 56 64 62 65 29 29 3b , sizeof(Vdbe));
15a0: 0d 0a 20 20 20 20 20 20 20 20 70 6f 2d 3e 6d 61 .. po->ma
15b0: 67 69 63 20 3d 20 56 44 42 45 5f 4d 41 47 49 43 gic = VDBE_MAGIC
15c0: 5f 44 45 41 44 3b 0d 0a 20 20 20 20 20 20 7d 0d _DEAD;.. }.
15d0: 0a 20 20 20 20 7d 0d 0a 20 20 20 20 73 71 6c 69 . }.. sqli
15e0: 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 te3_mutex_leave(
15f0: 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 20 db->mutex);..
1600: 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 63 ret = sqlite3_c
1610: 6c 6f 73 65 28 64 62 29 3b 0d 0a 20 20 7d 0d 0a lose(db);.. }..
1620: 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 return ret;..#
1630: 65 6e 64 69 66 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 endif..}....SQLI
1640: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
1650: 49 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 I sqlite3_open_i
1660: 6e 74 65 72 6f 70 28 63 6f 6e 73 74 20 63 68 61 nterop(const cha
1670: 72 2a 66 69 6c 65 6e 61 6d 65 2c 20 69 6e 74 20 r*filename, int
1680: 66 6c 61 67 73 2c 20 73 71 6c 69 74 65 33 20 2a flags, sqlite3 *
1690: 2a 70 70 64 62 29 0d 0a 7b 0d 0a 20 20 69 6e 74 *ppdb)..{.. int
16a0: 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 ret;....#if def
16b0: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 ined(INTEROP_DEB
16c0: 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f UG) && (INTEROP_
16d0: 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f DEBUG & INTEROP_
16e0: 44 45 42 55 47 5f 4f 50 45 4e 29 0d 0a 20 20 73 DEBUG_OPEN).. s
16f0: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 qlite3InteropDeb
1700: 75 67 28 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e ug("sqlite3_open
1710: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c _interop(): call
1720: 69 6e 67 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e ing sqlite3_open
1730: 5f 76 32 28 5c 22 25 73 5c 22 2c 20 25 64 2c 20 _v2(\"%s\", %d,
1740: 25 70 29 2e 2e 2e 5c 6e 22 2c 20 66 69 6c 65 6e %p)...\n", filen
1750: 61 6d 65 2c 20 66 6c 61 67 73 2c 20 70 70 64 62 ame, flags, ppdb
1760: 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 );..#endif....
1770: 72 65 74 20 3d 20 73 71 6c 69 74 65 33 5f 6f 70 ret = sqlite3_op
1780: 65 6e 5f 76 32 28 66 69 6c 65 6e 61 6d 65 2c 20 en_v2(filename,
1790: 70 70 64 62 2c 20 66 6c 61 67 73 2c 20 4e 55 4c ppdb, flags, NUL
17a0: 4c 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e L);....#if defin
17b0: 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ed(INTEROP_DEBUG
17c0: 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 ) && (INTEROP_DE
17d0: 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 BUG & INTEROP_DE
17e0: 42 55 47 5f 4f 50 45 4e 29 0d 0a 20 20 73 71 6c BUG_OPEN).. sql
17f0: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
1800: 28 22 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 ("sqlite3_open_i
1810: 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 nterop(): sqlite
1820: 33 5f 6f 70 65 6e 5f 76 32 28 5c 22 25 73 5c 22 3_open_v2(\"%s\"
1830: 2c 20 25 64 2c 20 25 70 29 20 72 65 74 75 72 6e , %d, %p) return
1840: 65 64 20 25 64 2e 5c 6e 22 2c 20 66 69 6c 65 6e ed %d.\n", filen
1850: 61 6d 65 2c 20 66 6c 61 67 73 2c 20 70 70 64 62 ame, flags, ppdb
1860: 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 0d , ret);..#endif.
1870: 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 ...#if defined(I
1880: 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 49 4f 4e NTEROP_EXTENSION
1890: 5f 46 55 4e 43 54 49 4f 4e 53 29 0d 0a 20 20 69 _FUNCTIONS).. i
18a0: 66 20 28 72 65 74 20 3d 3d 20 53 51 4c 49 54 45 f (ret == SQLITE
18b0: 5f 4f 4b 29 0d 0a 20 20 20 20 52 65 67 69 73 74 _OK).. Regist
18c0: 65 72 45 78 74 65 6e 73 69 6f 6e 46 75 6e 63 74 erExtensionFunct
18d0: 69 6f 6e 73 28 2a 70 70 64 62 29 3b 0d 0a 23 65 ions(*ppdb);..#e
18e0: 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 75 72 6e ndif.... return
18f0: 20 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 ret;..}....SQLI
1900: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
1910: 49 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 I sqlite3_open16
1920: 5f 69 6e 74 65 72 6f 70 28 63 6f 6e 73 74 20 63 _interop(const c
1930: 68 61 72 20 2a 66 69 6c 65 6e 61 6d 65 2c 20 69 har *filename, i
1940: 6e 74 20 66 6c 61 67 73 2c 20 73 71 6c 69 74 65 nt flags, sqlite
1950: 33 20 2a 2a 70 70 64 62 29 0d 0a 7b 0d 0a 20 20 3 **ppdb)..{..
1960: 69 6e 74 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 int ret;....#if
1970: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
1980: 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 DEBUG) && (INTER
1990: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
19a0: 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 31 36 29 OP_DEBUG_OPEN16)
19b0: 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 .. sqlite3Inter
19c0: 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 opDebug("sqlite3
19d0: 5f 6f 70 65 6e 31 36 5f 69 6e 74 65 72 6f 70 28 _open16_interop(
19e0: 29 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 ): calling sqlit
19f0: 65 33 5f 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 28 e3_open_interop(
1a00: 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 2e \"%s\", %d, %p).
1a10: 2e 2e 5c 6e 22 2c 20 66 69 6c 65 6e 61 6d 65 2c ..\n", filename,
1a20: 20 66 6c 61 67 73 2c 20 70 70 64 62 29 3b 0d 0a flags, ppdb);..
1a30: 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 20 #endif.... ret
1a40: 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 = sqlite3_open_i
1a50: 6e 74 65 72 6f 70 28 66 69 6c 65 6e 61 6d 65 2c nterop(filename,
1a60: 20 66 6c 61 67 73 2c 20 70 70 64 62 29 3b 0d 0a flags, ppdb);..
1a70: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
1a80: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
1a90: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 (INTEROP_DEBUG &
1aa0: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 4f INTEROP_DEBUG_O
1ab0: 50 45 4e 31 36 29 0d 0a 20 20 73 71 6c 69 74 65 PEN16).. sqlite
1ac0: 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 3InteropDebug("s
1ad0: 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 5f 69 6e qlite3_open16_in
1ae0: 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 terop(): sqlite3
1af0: 5f 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 28 5c 22 _open_interop(\"
1b00: 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 20 72 65 %s\", %d, %p) re
1b10: 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 66 turned %d.\n", f
1b20: 69 6c 65 6e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 ilename, flags,
1b30: 70 70 64 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e ppdb, ret);..#en
1b40: 64 69 66 0d 0a 0d 0a 20 20 69 66 20 28 28 72 65 dif.... if ((re
1b50: 74 20 3d 3d 20 53 51 4c 49 54 45 5f 4f 4b 29 20 t == SQLITE_OK)
1b60: 26 26 20 21 44 62 48 61 73 50 72 6f 70 65 72 74 && !DbHasPropert
1b70: 79 28 2a 70 70 64 62 2c 20 30 2c 20 44 42 5f 53 y(*ppdb, 0, DB_S
1b80: 63 68 65 6d 61 4c 6f 61 64 65 64 29 29 0d 0a 20 chemaLoaded))..
1b90: 20 20 20 45 4e 43 28 2a 70 70 64 62 29 20 3d 20 ENC(*ppdb) =
1ba0: 53 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 SQLITE_UTF16NATI
1bb0: 56 45 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 VE;.... return
1bc0: 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 ret;..}....SQLIT
1bd0: 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 E_API const char
1be0: 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 * WINAPI sqlite
1bf0: 33 5f 65 72 72 6d 73 67 5f 69 6e 74 65 72 6f 70 3_errmsg_interop
1c00: 28 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 69 6e (sqlite3 *db, in
1c10: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
1c20: 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 onst char *pval
1c30: 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 = sqlite3_errmsg
1c40: 28 64 62 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d (db);.. *plen =
1c50: 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 73 (pval != 0) ? s
1c60: 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b trlen(pval) : 0;
1c70: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
1c80: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
1c90: 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c I int WINAPI sql
1ca0: 69 74 65 33 5f 70 72 65 70 61 72 65 5f 69 6e 74 ite3_prepare_int
1cb0: 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 erop(sqlite3 *db
1cc0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71 , const char *sq
1cd0: 6c 2c 20 69 6e 74 20 6e 62 79 74 65 73 2c 20 73 l, int nbytes, s
1ce0: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 2a 70 70 qlite3_stmt **pp
1cf0: 73 74 6d 74 2c 20 63 6f 6e 73 74 20 63 68 61 72 stmt, const char
1d00: 20 2a 2a 70 7a 74 61 69 6c 2c 20 69 6e 74 20 2a **pztail, int *
1d10: 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 plen)..{.. int
1d20: 6e 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 n;....#if define
1d30: 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 d(INTEROP_DEBUG)
1d40: 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 && (INTEROP_DEB
1d50: 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 UG & INTEROP_DEB
1d60: 55 47 5f 50 52 45 50 41 52 45 29 0d 0a 20 20 73 UG_PREPARE).. s
1d70: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 qlite3InteropDeb
1d80: 75 67 28 22 73 71 6c 69 74 65 33 5f 70 72 65 70 ug("sqlite3_prep
1d90: 61 72 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 are_interop(): c
1da0: 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 70 alling sqlite3_p
1db0: 72 65 70 61 72 65 28 25 70 2c 20 5c 22 25 73 5c repare(%p, \"%s\
1dc0: 22 2c 20 25 64 2c 20 25 70 29 2e 2e 2e 5c 6e 22 ", %d, %p)...\n"
1dd0: 2c 20 64 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 , db, sql, nbyte
1de0: 73 2c 20 70 70 73 74 6d 74 29 3b 0d 0a 23 65 6e s, ppstmt);..#en
1df0: 64 69 66 0d 0a 0d 0a 20 20 6e 20 3d 20 73 71 6c dif.... n = sql
1e00: 69 74 65 33 5f 70 72 65 70 61 72 65 28 64 62 2c ite3_prepare(db,
1e10: 20 73 71 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 sql, nbytes, pp
1e20: 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b 0d 0a stmt, pztail);..
1e30: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
1e40: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
1e50: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 (INTEROP_DEBUG &
1e60: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 INTEROP_DEBUG_P
1e70: 52 45 50 41 52 45 29 0d 0a 20 20 73 71 6c 69 74 REPARE).. sqlit
1e80: 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 e3InteropDebug("
1e90: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f sqlite3_prepare_
1ea0: 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 interop(): sqlit
1eb0: 65 33 5f 70 72 65 70 61 72 65 28 25 70 2c 20 5c e3_prepare(%p, \
1ec0: 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 20 72 "%s\", %d, %p) r
1ed0: 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 eturned %d.\n",
1ee0: 64 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 73 2c db, sql, nbytes,
1ef0: 20 70 70 73 74 6d 74 2c 20 6e 29 3b 0d 0a 23 65 ppstmt, n);..#e
1f00: 6e 64 69 66 0d 0a 0d 0a 20 20 2a 70 6c 65 6e 20 ndif.... *plen
1f10: 3d 20 28 2a 70 7a 74 61 69 6c 20 21 3d 20 30 29 = (*pztail != 0)
1f20: 20 3f 20 73 74 72 6c 65 6e 28 2a 70 7a 74 61 69 ? strlen(*pztai
1f30: 6c 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 74 l) : 0;.... ret
1f40: 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c urn n;..}....SQL
1f50: 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 ITE_API int WINA
1f60: 50 49 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 PI sqlite3_prepa
1f70: 72 65 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c re16_interop(sql
1f80: 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 ite3 *db, const
1f90: 76 6f 69 64 20 2a 73 71 6c 2c 20 69 6e 74 20 6e void *sql, int n
1fa0: 63 68 61 72 73 2c 20 73 71 6c 69 74 65 33 5f 73 chars, sqlite3_s
1fb0: 74 6d 74 20 2a 2a 70 70 73 74 6d 74 2c 20 63 6f tmt **ppstmt, co
1fc0: 6e 73 74 20 76 6f 69 64 20 2a 2a 70 7a 74 61 69 nst void **pztai
1fd0: 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b l, int *plen)..{
1fe0: 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 23 69 .. int n;....#i
1ff0: 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f f defined(INTERO
2000: 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 P_DEBUG) && (INT
2010: 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 EROP_DEBUG & INT
2020: 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 41 EROP_DEBUG_PREPA
2030: 52 45 31 36 29 0d 0a 20 20 73 71 6c 69 74 65 33 RE16).. sqlite3
2040: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 InteropDebug("sq
2050: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f 69 6e lite3_prepare_in
2060: 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 terop(): calling
2070: 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 sqlite3_prepare
2080: 31 36 28 25 70 2c 20 5c 22 25 73 5c 22 2c 20 25 16(%p, \"%s\", %
2090: 64 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 64 62 d, %p)...\n", db
20a0: 2c 20 73 71 6c 2c 20 6e 63 68 61 72 73 2c 20 70 , sql, nchars, p
20b0: 70 73 74 6d 74 29 3b 0d 0a 23 65 6e 64 69 66 0d pstmt);..#endif.
20c0: 0a 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 ... n = sqlite3
20d0: 5f 70 72 65 70 61 72 65 31 36 28 64 62 2c 20 73 _prepare16(db, s
20e0: 71 6c 2c 20 6e 63 68 61 72 73 20 2a 20 73 69 7a ql, nchars * siz
20f0: 65 6f 66 28 77 63 68 61 72 5f 74 29 2c 20 70 70 eof(wchar_t), pp
2100: 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b 0d 0a stmt, pztail);..
2110: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
2120: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 TEROP_DEBUG) &&
2130: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 (INTEROP_DEBUG &
2140: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 INTEROP_DEBUG_P
2150: 52 45 50 41 52 45 31 36 29 0d 0a 20 20 73 71 6c REPARE16).. sql
2160: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
2170: 28 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 ("sqlite3_prepar
2180: 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c e_interop(): sql
2190: 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 28 25 ite3_prepare16(%
21a0: 70 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 p, \"%s\", %d, %
21b0: 70 29 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c p) returned %d.\
21c0: 6e 22 2c 20 64 62 2c 20 73 71 6c 2c 20 6e 63 68 n", db, sql, nch
21d0: 61 72 73 2c 20 70 70 73 74 6d 74 2c 20 6e 29 3b ars, ppstmt, n);
21e0: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 2a 70 ..#endif.... *p
21f0: 6c 65 6e 20 3d 20 28 2a 70 7a 74 61 69 6c 20 21 len = (*pztail !
2200: 3d 20 30 29 20 3f 20 77 63 73 6c 65 6e 28 28 77 = 0) ? wcslen((w
2210: 63 68 61 72 5f 74 20 2a 29 2a 70 7a 74 61 69 6c char_t *)*pztail
2220: 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 ) * sizeof(wchar
2230: 5f 74 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 _t) : 0;.... re
2240: 74 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 turn n;..}....SQ
2250: 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e LITE_API int WIN
2260: 41 50 49 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 API sqlite3_bind
2270: 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 72 6f 70 28 _double_interop(
2280: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
2290: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 64 6f mt, int iCol, do
22a0: 75 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 09 uble *val)..{...
22b0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 5f 62 return sqlite3_b
22c0: 69 6e 64 5f 64 6f 75 62 6c 65 28 73 74 6d 74 2c ind_double(stmt,
22d0: 69 43 6f 6c 2c 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a iCol,*val);..}..
22e0: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 ..SQLITE_API int
22f0: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
2300: 62 69 6e 64 5f 69 6e 74 36 34 5f 69 6e 74 65 72 bind_int64_inter
2310: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
2320: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
2330: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 76 sqlite_int64 *v
2340: 61 6c 29 0d 0a 7b 0d 0a 09 72 65 74 75 72 6e 20 al)..{...return
2350: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74 sqlite3_bind_int
2360: 36 34 28 73 74 6d 74 2c 69 43 6f 6c 2c 2a 76 61 64(stmt,iCol,*va
2370: 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 l);..}....SQLITE
2380: 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 _API const char
2390: 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 * WINAPI sqlite3
23a0: 5f 62 69 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f _bind_parameter_
23b0: 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c name_interop(sql
23c0: 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c ite3_stmt *stmt,
23d0: 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a int iCol, int *
23e0: 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 plen)..{.. cons
23f0: 74 20 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 t char *pval = s
2400: 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 61 qlite3_bind_para
2410: 6d 65 74 65 72 5f 6e 61 6d 65 28 73 74 6d 74 2c meter_name(stmt,
2420: 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e iCol);.. *plen
2430: 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f = (pval != 0) ?
2440: 20 73 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 strlen(pval) :
2450: 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 0;.. return pva
2460: 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f l;..}....SQLITE_
2470: 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a API const char *
2480: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
2490: 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 5f 69 6e 74 65 column_name_inte
24a0: 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 rop(sqlite3_stmt
24b0: 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c *stmt, int iCol
24c0: 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d , int *plen)..{.
24d0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 . const char *p
24e0: 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f val = sqlite3_co
24f0: 6c 75 6d 6e 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 lumn_name(stmt,
2500: 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 iCol);.. *plen
2510: 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f 20 = (pval != 0) ?
2520: 73 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 strlen(pval) : 0
2530: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
2540: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
2550: 50 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 PI const void *
2560: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
2570: 6f 6c 75 6d 6e 5f 6e 61 6d 65 31 36 5f 69 6e 74 olumn_name16_int
2580: 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d erop(sqlite3_stm
2590: 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f t *stmt, int iCo
25a0: 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b l, int *plen)..{
25b0: 0d 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a .. const void *
25c0: 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 pval = sqlite3_c
25d0: 6f 6c 75 6d 6e 5f 6e 61 6d 65 31 36 28 73 74 6d olumn_name16(stm
25e0: 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c t, iCol);.. *pl
25f0: 65 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 en = (pval != 0)
2600: 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 ? wcslen((wchar
2610: 5f 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a _t *)pval) * siz
2620: 65 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 eof(wchar_t) : 0
2630: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
2640: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
2650: 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 PI const char *
2660: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
2670: 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 5f 69 olumn_decltype_i
2680: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 nterop(sqlite3_s
2690: 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 tmt *stmt, int i
26a0: 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d Col, int *plen).
26b0: 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 .{.. const char
26c0: 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 *pval = sqlite3
26d0: 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 _column_decltype
26e0: 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 (stmt, iCol);..
26f0: 20 2a 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 *plen = (pval !
2700: 3d 20 30 29 20 3f 20 73 74 72 6c 65 6e 28 70 76 = 0) ? strlen(pv
2710: 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 al) : 0;.. retu
2720: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
2730: 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 QLITE_API const
2740: 76 6f 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 void * WINAPI sq
2750: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 65 63 lite3_column_dec
2760: 6c 74 79 70 65 31 36 5f 69 6e 74 65 72 6f 70 28 ltype16_interop(
2770: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
2780: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
2790: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
27a0: 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 onst void *pval
27b0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
27c0: 5f 64 65 63 6c 74 79 70 65 31 36 28 73 74 6d 74 _decltype16(stmt
27d0: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 , iCol);.. *ple
27e0: 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 n = (pval != 0)
27f0: 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 5f ? wcslen((wchar_
2800: 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a 65 t *)pval) * size
2810: 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 3b of(wchar_t) : 0;
2820: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
2830: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
2840: 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 I void WINAPI sq
2850: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f 75 lite3_column_dou
2860: 62 6c 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 ble_interop(sqli
2870: 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 te3_stmt *stmt,
2880: 69 6e 74 20 69 43 6f 6c 2c 20 64 6f 75 62 6c 65 int iCol, double
2890: 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 09 2a 76 61 6c *val)..{...*val
28a0: 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d = sqlite3_colum
28b0: 6e 5f 64 6f 75 62 6c 65 28 73 74 6d 74 2c 69 43 n_double(stmt,iC
28c0: 6f 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 ol);..}....SQLIT
28d0: 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 E_API void WINAP
28e0: 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e I sqlite3_column
28f0: 5f 69 6e 74 36 34 5f 69 6e 74 65 72 6f 70 28 73 _int64_interop(s
2900: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d qlite3_stmt *stm
2910: 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 73 71 6c t, int iCol, sql
2920: 69 74 65 5f 69 6e 74 36 34 20 2a 76 61 6c 29 0d ite_int64 *val).
2930: 0a 7b 0d 0a 09 2a 76 61 6c 20 3d 20 73 71 6c 69 .{...*val = sqli
2940: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 36 34 te3_column_int64
2950: 28 73 74 6d 74 2c 69 43 6f 6c 29 3b 0d 0a 7d 0d (stmt,iCol);..}.
2960: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f ...SQLITE_API co
2970: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
2980: 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 r * WINAPI sqlit
2990: 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 5f 69 e3_column_text_i
29a0: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 nterop(sqlite3_s
29b0: 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 tmt *stmt, int i
29c0: 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d Col, int *plen).
29d0: 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 .{.. const unsi
29e0: 67 6e 65 64 20 63 68 61 72 20 2a 70 76 61 6c 20 gned char *pval
29f0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
2a00: 5f 74 65 78 74 28 73 74 6d 74 2c 20 69 43 6f 6c _text(stmt, iCol
2a10: 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 28 70 );.. *plen = (p
2a20: 76 61 6c 20 21 3d 20 30 29 20 3f 20 73 74 72 6c val != 0) ? strl
2a30: 65 6e 28 28 63 68 61 72 20 2a 29 70 76 61 6c 29 en((char *)pval)
2a40: 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 : 0;.. return
2a50: 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 pval;..}....SQLI
2a60: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f 69 TE_API const voi
2a70: 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 d * WINAPI sqlit
2a80: 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 e3_column_text16
2a90: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
2aa0: 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 _stmt *stmt, int
2ab0: 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e iCol, int *plen
2ac0: 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 76 6f )..{.. const vo
2ad0: 69 64 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 id *pval = sqlit
2ae0: 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 e3_column_text16
2af0: 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 (stmt, iCol);..
2b00: 20 2a 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 *plen = (pval !
2b10: 3d 20 30 29 20 3f 20 77 63 73 6c 65 6e 28 28 77 = 0) ? wcslen((w
2b20: 63 68 61 72 5f 74 20 2a 29 70 76 61 6c 29 20 2a char_t *)pval) *
2b30: 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 sizeof(wchar_t)
2b40: 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 : 0;.. return p
2b50: 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 val;..}....SQLIT
2b60: 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 E_API int WINAPI
2b70: 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a sqlite3_finaliz
2b80: 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 e_interop(sqlite
2b90: 33 5f 73 74 6d 74 20 2a 73 74 6d 74 29 0d 0a 7b 3_stmt *stmt)..{
2ba0: 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d 0a 23 69 .. int ret;..#i
2bb0: 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e f SQLITE_VERSION
2bc0: 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 37 30 _NUMBER >= 30070
2bd0: 31 34 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 14....#if define
2be0: 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 d(INTEROP_DEBUG)
2bf0: 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 && (INTEROP_DEB
2c00: 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 UG & INTEROP_DEB
2c10: 55 47 5f 46 49 4e 41 4c 49 5a 45 29 0d 0a 20 20 UG_FINALIZE)..
2c20: 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 sqlite3InteropDe
2c30: 62 75 67 28 22 73 71 6c 69 74 65 33 5f 66 69 6e bug("sqlite3_fin
2c40: 61 6c 69 7a 65 5f 69 6e 74 65 72 6f 70 28 29 3a alize_interop():
2c50: 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 calling sqlite3
2c60: 5f 66 69 6e 61 6c 69 7a 65 28 25 70 29 2e 2e 2e _finalize(%p)...
2c70: 5c 6e 22 2c 20 73 74 6d 74 29 3b 0d 0a 23 65 6e \n", stmt);..#en
2c80: 64 69 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 dif.... ret = s
2c90: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 qlite3_finalize(
2ca0: 73 74 6d 74 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 stmt);....#if de
2cb0: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
2cc0: 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 BUG) && (INTEROP
2cd0: 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 _DEBUG & INTEROP
2ce0: 5f 44 45 42 55 47 5f 46 49 4e 41 4c 49 5a 45 29 _DEBUG_FINALIZE)
2cf0: 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 .. sqlite3Inter
2d00: 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 opDebug("sqlite3
2d10: 5f 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 65 72 6f _finalize_intero
2d20: 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 66 69 6e p(): sqlite3_fin
2d30: 61 6c 69 7a 65 28 25 70 29 20 72 65 74 75 72 6e alize(%p) return
2d40: 65 64 20 25 64 2e 5c 6e 22 2c 20 73 74 6d 74 2c ed %d.\n", stmt,
2d50: 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a ret);..#endif..
2d60: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
2d70: 0a 23 65 6c 73 65 0d 0a 20 20 56 64 62 65 20 2a .#else.. Vdbe *
2d80: 70 3b 0d 0a 20 20 69 6e 74 20 72 65 74 20 3d 20 p;.. int ret =
2d90: 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 0d 0a 20 20 SQLITE_OK;....
2da0: 70 20 3d 20 28 56 64 62 65 20 2a 29 73 74 6d 74 p = (Vdbe *)stmt
2db0: 3b 0d 0a 20 20 69 66 20 28 70 29 0d 0a 20 20 7b ;.. if (p).. {
2dc0: 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 20 2a 64 .. sqlite3 *d
2dd0: 62 20 3d 20 70 2d 3e 64 62 3b 0d 0a 0d 0a 20 20 b = p->db;....
2de0: 20 20 69 66 20 28 64 62 20 21 3d 20 4e 55 4c 4c if (db != NULL
2df0: 29 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 ).. sqlite3
2e00: 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d _mutex_enter(db-
2e10: 3e 6d 75 74 65 78 29 3b 0d 0a 0d 0a 20 20 20 20 >mutex);....
2e20: 69 66 20 28 28 70 2d 3e 6d 61 67 69 63 20 3d 3d if ((p->magic ==
2e30: 20 56 44 42 45 5f 4d 41 47 49 43 5f 44 45 41 44 VDBE_MAGIC_DEAD
2e40: 29 20 26 26 20 28 64 62 20 3d 3d 20 4e 55 4c 4c ) && (db == NULL
2e50: 29 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 )).. {..
2e60: 20 73 71 6c 69 74 65 33 44 62 46 72 65 65 5f 69 sqlite3DbFree_i
2e70: 6e 74 65 72 6f 70 28 64 62 2c 20 70 29 3b 0d 0a nterop(db, p);..
2e80: 20 20 20 20 7d 0d 0a 20 20 20 20 65 6c 73 65 0d }.. else.
2e90: 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 65 . {.. re
2ea0: 74 20 3d 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 t = sqlite3_fina
2eb0: 6c 69 7a 65 28 73 74 6d 74 29 3b 0d 0a 20 20 20 lize(stmt);..
2ec0: 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 28 64 62 }.... if (db
2ed0: 20 21 3d 20 4e 55 4c 4c 29 0d 0a 20 20 20 20 20 != NULL)..
2ee0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
2ef0: 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
2f00: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 72 65 74 75 72 .. }.... retur
2f10: 6e 20 72 65 74 3b 0d 0a 23 65 6e 64 69 66 0d 0a n ret;..#endif..
2f20: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
2f30: 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 int WINAPI sqlit
2f40: 65 33 5f 72 65 73 65 74 5f 69 6e 74 65 72 6f 70 e3_reset_interop
2f50: 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 (sqlite3_stmt *s
2f60: 74 6d 74 29 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 tmt)..{.. int r
2f70: 65 74 3b 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f et;..#if SQLITE_
2f80: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
2f90: 3d 20 33 30 30 37 30 31 34 0d 0a 0d 0a 23 69 66 = 3007014....#if
2fa0: 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 defined(INTEROP
2fb0: 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 _DEBUG) && (INTE
2fc0: 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 ROP_DEBUG & INTE
2fd0: 52 4f 50 5f 44 45 42 55 47 5f 52 45 53 45 54 29 ROP_DEBUG_RESET)
2fe0: 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 .. sqlite3Inter
2ff0: 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 opDebug("sqlite3
3000: 5f 72 65 73 65 74 5f 69 6e 74 65 72 6f 70 28 29 _reset_interop()
3010: 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 : calling sqlite
3020: 33 5f 72 65 73 65 74 28 25 70 29 2e 2e 2e 5c 6e 3_reset(%p)...\n
3030: 22 2c 20 73 74 6d 74 29 3b 0d 0a 23 65 6e 64 69 ", stmt);..#endi
3040: 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c f.... ret = sql
3050: 69 74 65 33 5f 72 65 73 65 74 28 73 74 6d 74 29 ite3_reset(stmt)
3060: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
3070: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
3080: 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 && (INTEROP_DEBU
3090: 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 G & INTEROP_DEBU
30a0: 47 5f 52 45 53 45 54 29 0d 0a 20 20 73 71 6c 69 G_RESET).. sqli
30b0: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
30c0: 22 73 71 6c 69 74 65 33 5f 72 65 73 65 74 5f 69 "sqlite3_reset_i
30d0: 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 nterop(): sqlite
30e0: 33 5f 72 65 73 65 74 28 25 70 29 20 72 65 74 75 3_reset(%p) retu
30f0: 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 73 74 6d rned %d.\n", stm
3100: 74 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 t, ret);..#endif
3110: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 .... return ret
3120: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 69 66 20 28 ;..#else.. if (
3130: 28 28 56 64 62 65 20 2a 29 73 74 6d 74 29 2d 3e ((Vdbe *)stmt)->
3140: 6d 61 67 69 63 20 3d 3d 20 56 44 42 45 5f 4d 41 magic == VDBE_MA
3150: 47 49 43 5f 44 45 41 44 29 20 72 65 74 75 72 6e GIC_DEAD) return
3160: 20 53 51 4c 49 54 45 5f 53 43 48 45 4d 41 3b 0d SQLITE_SCHEMA;.
3170: 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 . ret = sqlite3
3180: 5f 72 65 73 65 74 28 73 74 6d 74 29 3b 0d 0a 20 _reset(stmt);..
3190: 20 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 65 return ret;..#e
31a0: 6e 64 69 66 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 ndif..}....SQLIT
31b0: 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 E_API int WINAPI
31c0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
31d0: 66 75 6e 63 74 69 6f 6e 5f 69 6e 74 65 72 6f 70 function_interop
31e0: 28 73 71 6c 69 74 65 33 20 2a 70 73 71 6c 2c 20 (sqlite3 *psql,
31f0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 75 6e const char *zFun
3200: 63 74 69 6f 6e 4e 61 6d 65 2c 20 69 6e 74 20 6e ctionName, int n
3210: 41 72 67 2c 20 69 6e 74 20 65 54 65 78 74 52 65 Arg, int eTextRe
3220: 70 2c 20 76 6f 69 64 20 2a 70 76 55 73 65 72 2c p, void *pvUser,
3230: 20 53 51 4c 49 54 45 55 53 45 52 46 55 4e 43 20 SQLITEUSERFUNC
3240: 66 75 6e 63 2c 20 53 51 4c 49 54 45 55 53 45 52 func, SQLITEUSER
3250: 46 55 4e 43 20 66 75 6e 63 73 74 65 70 2c 20 53 FUNC funcstep, S
3260: 51 4c 49 54 45 46 55 4e 43 46 49 4e 41 4c 20 66 QLITEFUNCFINAL f
3270: 75 6e 63 66 69 6e 61 6c 2c 20 69 6e 74 20 6e 65 uncfinal, int ne
3280: 65 64 43 6f 6c 6c 53 65 71 29 0d 0a 7b 0d 0a 20 edCollSeq)..{..
3290: 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 20 69 66 20 int n;.... if
32a0: 28 65 54 65 78 74 52 65 70 20 3d 3d 20 53 51 4c (eTextRep == SQL
32b0: 49 54 45 5f 55 54 46 31 36 29 0d 0a 20 20 20 20 ITE_UTF16)..
32c0: 65 54 65 78 74 52 65 70 20 3d 20 53 51 4c 49 54 eTextRep = SQLIT
32d0: 45 5f 55 54 46 31 36 4e 41 54 49 56 45 3b 0d 0a E_UTF16NATIVE;..
32e0: 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f .. n = sqlite3_
32f0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 create_function(
3300: 70 73 71 6c 2c 20 7a 46 75 6e 63 74 69 6f 6e 4e psql, zFunctionN
3310: 61 6d 65 2c 20 6e 41 72 67 2c 20 65 54 65 78 74 ame, nArg, eText
3320: 52 65 70 2c 20 30 2c 20 66 75 6e 63 2c 20 66 75 Rep, 0, func, fu
3330: 6e 63 73 74 65 70 2c 20 66 75 6e 63 66 69 6e 61 ncstep, funcfina
3340: 6c 29 3b 0d 0a 20 20 69 66 20 28 6e 20 3d 3d 20 l);.. if (n ==
3350: 53 51 4c 49 54 45 5f 4f 4b 29 0d 0a 20 20 7b 0d SQLITE_OK).. {.
3360: 0a 20 20 20 20 69 66 20 28 6e 65 65 64 43 6f 6c . if (needCol
3370: 6c 53 65 71 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 lSeq).. {..
3380: 20 20 20 20 46 75 6e 63 44 65 66 20 2a 70 46 75 FuncDef *pFu
3390: 6e 63 20 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 nc = sqlite3Find
33a0: 46 75 6e 63 74 69 6f 6e 28 70 73 71 6c 2c 20 7a Function(psql, z
33b0: 46 75 6e 63 74 69 6f 6e 4e 61 6d 65 2c 20 73 74 FunctionName, st
33c0: 72 6c 65 6e 28 7a 46 75 6e 63 74 69 6f 6e 4e 61 rlen(zFunctionNa
33d0: 6d 65 29 2c 20 6e 41 72 67 2c 20 65 54 65 78 74 me), nArg, eText
33e0: 52 65 70 2c 20 30 29 3b 0d 0a 20 20 20 20 20 20 Rep, 0);..
33f0: 69 66 28 20 70 46 75 6e 63 20 29 0d 0a 20 20 20 if( pFunc )..
3400: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 46 {.. pF
3410: 75 6e 63 2d 3e 66 6c 61 67 73 20 7c 3d 20 53 51 unc->flags |= SQ
3420: 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f LITE_FUNC_NEEDCO
3430: 4c 4c 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 LL;.. }..
3440: 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 72 65 }.. }.... re
3450: 74 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 turn n;..}....SQ
3460: 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 57 49 LITE_API void WI
3470: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 76 61 6c NAPI sqlite3_val
3480: 75 65 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 72 6f ue_double_intero
3490: 70 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 p(sqlite3_value
34a0: 2a 70 76 61 6c 2c 20 64 6f 75 62 6c 65 20 2a 76 *pval, double *v
34b0: 61 6c 29 0d 0a 7b 0d 0a 20 20 2a 76 61 6c 20 3d al)..{.. *val =
34c0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 sqlite3_value_d
34d0: 6f 75 62 6c 65 28 70 76 61 6c 29 3b 0d 0a 7d 0d ouble(pval);..}.
34e0: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f ...SQLITE_API vo
34f0: 69 64 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 id WINAPI sqlite
3500: 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 5f 69 6e 3_value_int64_in
3510: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 76 61 terop(sqlite3_va
3520: 6c 75 65 20 2a 70 76 61 6c 2c 20 73 71 6c 69 74 lue *pval, sqlit
3530: 65 5f 69 6e 74 36 34 20 2a 76 61 6c 29 0d 0a 7b e_int64 *val)..{
3540: 0d 0a 20 20 2a 76 61 6c 20 3d 20 73 71 6c 69 74 .. *val = sqlit
3550: 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 70 e3_value_int64(p
3560: 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 val);..}....SQLI
3570: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 75 6e 73 TE_API const uns
3580: 69 67 6e 65 64 20 63 68 61 72 20 2a 20 57 49 4e igned char * WIN
3590: 41 50 49 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 API sqlite3_valu
35a0: 65 5f 74 65 78 74 5f 69 6e 74 65 72 6f 70 28 73 e_text_interop(s
35b0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 76 61 qlite3_value *va
35c0: 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b l, int *plen)..{
35d0: 0d 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e .. const unsign
35e0: 65 64 20 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 ed char *pval =
35f0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 sqlite3_value_te
3600: 78 74 28 76 61 6c 29 3b 0d 0a 20 20 2a 70 6c 65 xt(val);.. *ple
3610: 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 n = (pval != 0)
3620: 3f 20 73 74 72 6c 65 6e 28 28 63 68 61 72 20 2a ? strlen((char *
3630: 29 70 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 )pval) : 0;.. r
3640: 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a eturn pval;..}..
3650: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e ..SQLITE_API con
3660: 73 74 20 76 6f 69 64 20 2a 20 57 49 4e 41 50 49 st void * WINAPI
3670: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
3680: 65 78 74 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 ext16_interop(sq
3690: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 76 61 6c lite3_value *val
36a0: 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d , int *plen)..{.
36b0: 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 . const void *p
36c0: 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 val = sqlite3_va
36d0: 6c 75 65 5f 74 65 78 74 31 36 28 76 61 6c 29 3b lue_text16(val);
36e0: 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 28 70 76 61 .. *plen = (pva
36f0: 6c 20 21 3d 20 30 29 20 3f 20 77 63 73 6c 65 6e l != 0) ? wcslen
3700: 28 28 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c ((wchar_t *)pval
3710: 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 ) * sizeof(wchar
3720: 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 _t) : 0;.. retu
3730: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
3740: 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 57 QLITE_API void W
3750: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 72 65 INAPI sqlite3_re
3760: 73 75 6c 74 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 sult_double_inte
3770: 72 6f 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 rop(sqlite3_cont
3780: 65 78 74 20 2a 70 63 74 78 2c 20 64 6f 75 62 6c ext *pctx, doubl
3790: 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 73 71 e *val)..{.. sq
37a0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
37b0: 62 6c 65 28 70 63 74 78 2c 20 2a 76 61 6c 29 3b ble(pctx, *val);
37c0: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
37d0: 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 I void WINAPI sq
37e0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 lite3_result_int
37f0: 36 34 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 64_interop(sqlit
3800: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 63 74 78 e3_context *pctx
3810: 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a , sqlite_int64 *
3820: 76 61 6c 29 0d 0a 7b 0d 0a 20 20 73 71 6c 69 74 val)..{.. sqlit
3830: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 e3_result_int64(
3840: 70 63 74 78 2c 20 2a 76 61 6c 29 3b 0d 0a 7d 0d pctx, *val);..}.
3850: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e ...SQLITE_API in
3860: 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 t WINAPI sqlite3
3870: 5f 63 6f 6e 74 65 78 74 5f 63 6f 6c 6c 63 6f 6d _context_collcom
3880: 70 61 72 65 28 73 71 6c 69 74 65 33 5f 63 6f 6e pare(sqlite3_con
3890: 74 65 78 74 20 2a 63 74 78 2c 20 63 6f 6e 73 74 text *ctx, const
38a0: 20 76 6f 69 64 20 2a 70 31 2c 20 69 6e 74 20 70 void *p1, int p
38b0: 31 6c 65 6e 2c 20 63 6f 6e 73 74 20 76 6f 69 64 1len, const void
38c0: 20 2a 70 32 2c 20 69 6e 74 20 70 32 6c 65 6e 29 *p2, int p2len)
38d0: 0d 0a 7b 0d 0a 20 20 69 66 20 28 28 63 74 78 2d ..{.. if ((ctx-
38e0: 3e 70 46 75 6e 63 2d 3e 66 6c 61 67 73 20 26 20 >pFunc->flags &
38f0: 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 SQLITE_FUNC_NEED
3900: 43 4f 4c 4c 29 20 3d 3d 20 30 29 20 72 65 74 75 COLL) == 0) retu
3910: 72 6e 20 32 3b 0d 0a 20 20 72 65 74 75 72 6e 20 rn 2;.. return
3920: 63 74 78 2d 3e 70 43 6f 6c 6c 2d 3e 78 43 6d 70 ctx->pColl->xCmp
3930: 28 63 74 78 2d 3e 70 43 6f 6c 6c 2d 3e 70 55 73 (ctx->pColl->pUs
3940: 65 72 2c 20 70 31 6c 65 6e 2c 20 70 31 2c 20 70 er, p1len, p1, p
3950: 32 6c 65 6e 2c 20 70 32 29 3b 0d 0a 7d 0d 0a 0d 2len, p2);..}...
3960: 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 .SQLITE_API cons
3970: 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 t char * WINAPI
3980: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f sqlite3_context_
3990: 63 6f 6c 6c 73 65 71 28 73 71 6c 69 74 65 33 5f collseq(sqlite3_
39a0: 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 69 6e context *ctx, in
39b0: 74 20 2a 70 74 79 70 65 2c 20 69 6e 74 20 2a 65 t *ptype, int *e
39c0: 6e 63 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a nc, int *plen)..
39d0: 7b 0d 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43 {.. CollSeq *pC
39e0: 6f 6c 6c 20 3d 20 63 74 78 2d 3e 70 43 6f 6c 6c oll = ctx->pColl
39f0: 3b 0d 0a 20 20 2a 70 74 79 70 65 20 3d 20 30 3b ;.. *ptype = 0;
3a00: 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 30 3b 0d 0a .. *plen = 0;..
3a10: 20 20 2a 65 6e 63 20 3d 20 30 3b 0d 0a 0d 0a 20 *enc = 0;....
3a20: 20 69 66 20 28 28 63 74 78 2d 3e 70 46 75 6e 63 if ((ctx->pFunc
3a30: 2d 3e 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45 ->flags & SQLITE
3a40: 5f 46 55 4e 43 5f 4e 45 45 44 43 4f 4c 4c 29 20 _FUNC_NEEDCOLL)
3a50: 3d 3d 20 30 29 20 72 65 74 75 72 6e 20 4e 55 4c == 0) return NUL
3a60: 4c 3b 0d 0a 0d 0a 20 20 69 66 20 28 70 43 6f 6c L;.... if (pCol
3a70: 6c 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 2a 65 6e l).. {.. *en
3a80: 63 20 3d 20 70 43 6f 6c 6c 2d 3e 65 6e 63 3b 0d c = pColl->enc;.
3a90: 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 .#if SQLITE_VERS
3aa0: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 33 30 30 ION_NUMBER < 300
3ab0: 37 30 31 30 0d 0a 20 20 20 20 2a 70 74 79 70 65 7010.. *ptype
3ac0: 20 3d 20 70 43 6f 6c 6c 2d 3e 74 79 70 65 3b 0d = pColl->type;.
3ad0: 0a 23 65 6e 64 69 66 0d 0a 20 20 20 20 2a 70 6c .#endif.. *pl
3ae0: 65 6e 20 3d 20 28 70 43 6f 6c 6c 2d 3e 7a 4e 61 en = (pColl->zNa
3af0: 6d 65 20 21 3d 20 30 29 20 3f 20 73 74 72 6c 65 me != 0) ? strle
3b00: 6e 28 70 43 6f 6c 6c 2d 3e 7a 4e 61 6d 65 29 20 n(pColl->zName)
3b10: 3a 20 30 3b 0d 0a 0d 0a 20 20 20 20 72 65 74 75 : 0;.... retu
3b20: 72 6e 20 70 43 6f 6c 6c 2d 3e 7a 4e 61 6d 65 3b rn pColl->zName;
3b30: 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 .. }.. return
3b40: 4e 55 4c 4c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 NULL;..}....SQLI
3b50: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 TE_API const cha
3b60: 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 r * WINAPI sqlit
3b70: 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 e3_column_databa
3b80: 73 65 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 se_name_interop(
3b90: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
3ba0: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
3bb0: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
3bc0: 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 onst char *pval
3bd0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
3be0: 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 28 73 _database_name(s
3bf0: 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a tmt, iCol);.. *
3c00: 70 6c 65 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 plen = (pval !=
3c10: 30 29 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c 0) ? strlen(pval
3c20: 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e ) : 0;.. return
3c30: 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval;..}....SQL
3c40: 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f ITE_API const vo
3c50: 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 id * WINAPI sqli
3c60: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 te3_column_datab
3c70: 61 73 65 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 ase_name16_inter
3c80: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
3c90: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
3ca0: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
3cb0: 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 const void *pv
3cc0: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
3cd0: 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d umn_database_nam
3ce0: 65 31 36 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b e16(stmt, iCol);
3cf0: 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 28 70 76 61 .. *plen = (pva
3d00: 6c 20 21 3d 20 30 29 20 3f 20 77 63 73 6c 65 6e l != 0) ? wcslen
3d10: 28 28 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c ((wchar_t *)pval
3d20: 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 ) * sizeof(wchar
3d30: 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 _t) : 0;.. retu
3d40: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
3d50: 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 QLITE_API const
3d60: 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 char * WINAPI sq
3d70: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 lite3_column_tab
3d80: 6c 65 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 le_name_interop(
3d90: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
3da0: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
3db0: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
3dc0: 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 onst char *pval
3dd0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
3de0: 5f 74 61 62 6c 65 5f 6e 61 6d 65 28 73 74 6d 74 _table_name(stmt
3df0: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 , iCol);.. *ple
3e00: 6e 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 n = (pval != 0)
3e10: 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a ? strlen(pval) :
3e20: 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 0;.. return pv
3e30: 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 al;..}....SQLITE
3e40: 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 _API const void
3e50: 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 * WINAPI sqlite3
3e60: 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 5f 6e 61 _column_table_na
3e70: 6d 65 31 36 5f 69 6e 74 65 72 6f 70 28 73 71 6c me16_interop(sql
3e80: 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c ite3_stmt *stmt,
3e90: 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a int iCol, int *
3ea0: 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 plen)..{.. cons
3eb0: 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 73 t void *pval = s
3ec0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 qlite3_column_ta
3ed0: 62 6c 65 5f 6e 61 6d 65 31 36 28 73 74 6d 74 2c ble_name16(stmt,
3ee0: 20 69 43 6f 6c 29 3b 0d 0a 20 20 2a 70 6c 65 6e iCol);.. *plen
3ef0: 20 3d 20 28 70 76 61 6c 20 21 3d 20 30 29 20 3f = (pval != 0) ?
3f00: 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 5f 74 wcslen((wchar_t
3f10: 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a 65 6f *)pval) * sizeo
3f20: 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 3b 0d f(wchar_t) : 0;.
3f30: 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d . return pval;.
3f40: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
3f50: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 57 49 const char * WI
3f60: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c NAPI sqlite3_col
3f70: 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 5f umn_origin_name_
3f80: 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f interop(sqlite3_
3f90: 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 stmt *stmt, int
3fa0: 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 iCol, int *plen)
3fb0: 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 61 ..{.. const cha
3fc0: 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 r *pval = sqlite
3fd0: 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 3_column_origin_
3fe0: 6e 61 6d 65 28 73 74 6d 74 2c 20 69 43 6f 6c 29 name(stmt, iCol)
3ff0: 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 28 70 76 ;.. *plen = (pv
4000: 61 6c 20 21 3d 20 30 29 20 3f 20 73 74 72 6c 65 al != 0) ? strle
4010: 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 n(pval) : 0;..
4020: 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d return pval;..}.
4030: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f ...SQLITE_API co
4040: 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 4e 41 50 nst void * WINAP
4050: 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e I sqlite3_column
4060: 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 31 36 5f 69 _origin_name16_i
4070: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 nterop(sqlite3_s
4080: 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 tmt *stmt, int i
4090: 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d Col, int *plen).
40a0: 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 .{.. const void
40b0: 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 *pval = sqlite3
40c0: 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e 5f 6e _column_origin_n
40d0: 61 6d 65 31 36 28 73 74 6d 74 2c 20 69 43 6f 6c ame16(stmt, iCol
40e0: 29 3b 0d 0a 20 20 2a 70 6c 65 6e 20 3d 20 28 70 );.. *plen = (p
40f0: 76 61 6c 20 21 3d 20 30 29 20 3f 20 77 63 73 6c val != 0) ? wcsl
4100: 65 6e 28 28 77 63 68 61 72 5f 74 20 2a 29 70 76 en((wchar_t *)pv
4110: 61 6c 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 al) * sizeof(wch
4120: 61 72 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 ar_t) : 0;.. re
4130: 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d turn pval;..}...
4140: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
4150: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 74 WINAPI sqlite3_t
4160: 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 able_column_meta
4170: 64 61 74 61 5f 69 6e 74 65 72 6f 70 28 73 71 6c data_interop(sql
4180: 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 ite3 *db, const
4190: 63 68 61 72 20 2a 7a 44 62 4e 61 6d 65 2c 20 63 char *zDbName, c
41a0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 61 62 6c onst char *zTabl
41b0: 65 4e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 eName, const cha
41c0: 72 20 2a 7a 43 6f 6c 75 6d 6e 4e 61 6d 65 2c 20 r *zColumnName,
41d0: 63 68 61 72 20 2a 2a 70 7a 44 61 74 61 54 79 70 char **pzDataTyp
41e0: 65 2c 20 63 68 61 72 20 2a 2a 70 7a 43 6f 6c 6c e, char **pzColl
41f0: 53 65 71 2c 20 69 6e 74 20 2a 70 4e 6f 74 4e 75 Seq, int *pNotNu
4200: 6c 6c 2c 20 69 6e 74 20 2a 70 50 72 69 6d 61 72 ll, int *pPrimar
4210: 79 4b 65 79 2c 20 69 6e 74 20 2a 70 41 75 74 6f yKey, int *pAuto
4220: 69 6e 63 2c 20 69 6e 74 20 2a 70 64 74 4c 65 6e inc, int *pdtLen
4230: 2c 20 69 6e 74 20 2a 70 63 73 4c 65 6e 29 0d 0a , int *pcsLen)..
4240: 7b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 20 20 0d {.. int n;.. .
4250: 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f 74 . n = sqlite3_t
4260: 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 able_column_meta
4270: 64 61 74 61 28 64 62 2c 20 7a 44 62 4e 61 6d 65 data(db, zDbName
4280: 2c 20 7a 54 61 62 6c 65 4e 61 6d 65 2c 20 7a 43 , zTableName, zC
4290: 6f 6c 75 6d 6e 4e 61 6d 65 2c 20 70 7a 44 61 74 olumnName, pzDat
42a0: 61 54 79 70 65 2c 20 70 7a 43 6f 6c 6c 53 65 71 aType, pzCollSeq
42b0: 2c 20 70 4e 6f 74 4e 75 6c 6c 2c 20 70 50 72 69 , pNotNull, pPri
42c0: 6d 61 72 79 4b 65 79 2c 20 70 41 75 74 6f 69 6e maryKey, pAutoin
42d0: 63 29 3b 0d 0a 20 20 2a 70 64 74 4c 65 6e 20 3d c);.. *pdtLen =
42e0: 20 28 2a 70 7a 44 61 74 61 54 79 70 65 20 21 3d (*pzDataType !=
42f0: 20 30 29 20 3f 20 73 74 72 6c 65 6e 28 2a 70 7a 0) ? strlen(*pz
4300: 44 61 74 61 54 79 70 65 29 20 3a 20 30 3b 0d 0a DataType) : 0;..
4310: 20 20 2a 70 63 73 4c 65 6e 20 3d 20 28 2a 70 7a *pcsLen = (*pz
4320: 43 6f 6c 6c 53 65 71 20 21 3d 20 30 29 20 3f 20 CollSeq != 0) ?
4330: 73 74 72 6c 65 6e 28 2a 70 7a 43 6f 6c 6c 53 65 strlen(*pzCollSe
4340: 71 29 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 74 q) : 0;.... ret
4350: 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c urn n;..}....SQL
4360: 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 ITE_API int WINA
4370: 50 49 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 PI sqlite3_index
4380: 5f 63 6f 6c 75 6d 6e 5f 69 6e 66 6f 5f 69 6e 74 _column_info_int
4390: 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 erop(sqlite3 *db
43a0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 , const char *zD
43b0: 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a b, const char *z
43c0: 49 6e 64 65 78 4e 61 6d 65 2c 20 63 6f 6e 73 74 IndexName, const
43d0: 20 63 68 61 72 20 2a 7a 43 6f 6c 75 6d 6e 4e 61 char *zColumnNa
43e0: 6d 65 2c 20 69 6e 74 20 2a 73 6f 72 74 4f 72 64 me, int *sortOrd
43f0: 65 72 2c 20 69 6e 74 20 2a 6f 6e 45 72 72 6f 72 er, int *onError
4400: 2c 20 63 68 61 72 20 2a 2a 70 7a 43 6f 6c 6c 2c , char **pzColl,
4410: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
4420: 20 20 49 6e 64 65 78 20 2a 70 49 64 78 3b 0d 0a Index *pIdx;..
4430: 20 20 54 61 62 6c 65 20 2a 70 54 61 62 3b 0d 0a Table *pTab;..
4440: 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 20 73 71 int n;.... sq
4450: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
4460: 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 20 20 r(db->mutex);.
4470: 73 71 6c 69 74 65 33 42 74 72 65 65 45 6e 74 65 sqlite3BtreeEnte
4480: 72 41 6c 6c 28 64 62 29 3b 0a 0d 0a 20 20 70 49 rAll(db);... pI
4490: 64 78 20 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 dx = sqlite3Find
44a0: 49 6e 64 65 78 28 64 62 2c 20 7a 49 6e 64 65 78 Index(db, zIndex
44b0: 4e 61 6d 65 2c 20 7a 44 62 29 3b 0d 0a 0d 0a 20 Name, zDb);....
44c0: 20 73 71 6c 69 74 65 33 42 74 72 65 65 4c 65 61 sqlite3BtreeLea
44d0: 76 65 41 6c 6c 28 64 62 29 3b 0a 20 20 73 71 6c veAll(db);. sql
44e0: 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 ite3_mutex_leave
44f0: 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0a 0d 0a 20 (db->mutex);...
4500: 20 69 66 20 28 21 70 49 64 78 29 20 72 65 74 75 if (!pIdx) retu
4510: 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b rn SQLITE_ERROR;
4520: 0d 0a 0d 0a 20 20 70 54 61 62 20 3d 20 70 49 64 .... pTab = pId
4530: 78 2d 3e 70 54 61 62 6c 65 3b 0d 0a 20 20 66 6f x->pTable;.. fo
4540: 72 20 28 6e 20 3d 20 30 3b 20 6e 20 3c 20 70 49 r (n = 0; n < pI
4550: 64 78 2d 3e 6e 43 6f 6c 75 6d 6e 3b 20 6e 2b 2b dx->nColumn; n++
4560: 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 6e 74 20 ).. {.. int
4570: 63 6e 75 6d 20 3d 20 70 49 64 78 2d 3e 61 69 43 cnum = pIdx->aiC
4580: 6f 6c 75 6d 6e 5b 6e 5d 3b 0d 0a 20 20 20 20 69 olumn[n];.. i
4590: 66 20 28 73 71 6c 69 74 65 33 53 74 72 49 43 6d f (sqlite3StrICm
45a0: 70 28 70 54 61 62 2d 3e 61 43 6f 6c 5b 63 6e 75 p(pTab->aCol[cnu
45b0: 6d 5d 2e 7a 4e 61 6d 65 2c 20 7a 43 6f 6c 75 6d m].zName, zColum
45c0: 6e 4e 61 6d 65 29 20 3d 3d 20 30 29 0d 0a 20 20 nName) == 0)..
45d0: 20 20 7b 0d 0a 20 20 20 20 20 20 2a 73 6f 72 74 {.. *sort
45e0: 4f 72 64 65 72 20 3d 20 70 49 64 78 2d 3e 61 53 Order = pIdx->aS
45f0: 6f 72 74 4f 72 64 65 72 5b 6e 5d 3b 0d 0a 20 20 ortOrder[n];..
4600: 20 20 20 20 2a 70 7a 43 6f 6c 6c 20 3d 20 70 49 *pzColl = pI
4610: 64 78 2d 3e 61 7a 43 6f 6c 6c 5b 6e 5d 3b 0d 0a dx->azColl[n];..
4620: 20 20 20 20 20 20 2a 70 6c 65 6e 20 3d 20 73 74 *plen = st
4630: 72 6c 65 6e 28 2a 70 7a 43 6f 6c 6c 29 3b 0d 0a rlen(*pzColl);..
4640: 20 20 20 20 20 20 2a 6f 6e 45 72 72 6f 72 20 3d *onError =
4650: 20 70 49 64 78 2d 3e 6f 6e 45 72 72 6f 72 3b 0d pIdx->onError;.
4660: 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ... return
4670: 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 20 20 20 20 SQLITE_OK;..
4680: 7d 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e }.. }.. return
4690: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a SQLITE_ERROR;..
46a0: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
46b0: 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 int WINAPI sqlit
46c0: 65 33 5f 74 61 62 6c 65 5f 63 75 72 73 6f 72 28 e3_table_cursor(
46d0: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 73 sqlite3_stmt *ps
46e0: 74 6d 74 2c 20 69 6e 74 20 69 44 62 2c 20 50 67 tmt, int iDb, Pg
46f0: 6e 6f 20 74 61 62 6c 65 52 6f 6f 74 50 61 67 65 no tableRootPage
4700: 29 0d 0a 7b 0d 0a 20 20 56 64 62 65 20 2a 70 20 )..{.. Vdbe *p
4710: 3d 20 28 56 64 62 65 20 2a 29 70 73 74 6d 74 3b = (Vdbe *)pstmt;
4720: 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 .. sqlite3 *db
4730: 3d 20 28 70 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 = (p == NULL) ?
4740: 4e 55 4c 4c 20 3a 20 70 2d 3e 64 62 3b 0d 0a 20 NULL : p->db;..
4750: 20 69 6e 74 20 6e 3b 0d 0a 20 20 69 6e 74 20 72 int n;.. int r
4760: 65 74 20 3d 20 2d 31 3b 0d 0a 0d 0a 20 20 73 71 et = -1;.... sq
4770: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
4780: 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 r(db->mutex);..
4790: 20 66 6f 72 20 28 6e 20 3d 20 30 3b 20 6e 20 3c for (n = 0; n <
47a0: 20 70 2d 3e 6e 43 75 72 73 6f 72 20 26 26 20 70 p->nCursor && p
47b0: 2d 3e 61 70 43 73 72 5b 6e 5d 20 21 3d 20 4e 55 ->apCsr[n] != NU
47c0: 4c 4c 3b 20 6e 2b 2b 29 0d 0a 20 20 7b 0d 0a 20 LL; n++).. {..
47d0: 20 20 20 69 66 20 28 70 2d 3e 61 70 43 73 72 5b if (p->apCsr[
47e0: 6e 5d 2d 3e 69 73 54 61 62 6c 65 20 3d 3d 20 46 n]->isTable == F
47f0: 41 4c 53 45 29 20 63 6f 6e 74 69 6e 75 65 3b 0d ALSE) continue;.
4800: 0a 20 20 20 20 69 66 20 28 70 2d 3e 61 70 43 73 . if (p->apCs
4810: 72 5b 6e 5d 2d 3e 69 44 62 20 21 3d 20 69 44 62 r[n]->iDb != iDb
4820: 29 20 63 6f 6e 74 69 6e 75 65 3b 0d 0a 20 20 20 ) continue;..
4830: 20 69 66 20 28 70 2d 3e 61 70 43 73 72 5b 6e 5d if (p->apCsr[n]
4840: 2d 3e 70 43 75 72 73 6f 72 2d 3e 70 67 6e 6f 52 ->pCursor->pgnoR
4850: 6f 6f 74 20 3d 3d 20 74 61 62 6c 65 52 6f 6f 74 oot == tableRoot
4860: 50 61 67 65 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 Page).. {..
4870: 20 20 20 20 72 65 74 20 3d 20 6e 3b 0d 0a 20 20 ret = n;..
4880: 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 break;..
4890: 7d 0d 0a 20 20 7d 0d 0a 20 20 73 71 6c 69 74 65 }.. }.. sqlite
48a0: 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 3_mutex_leave(db
48b0: 2d 3e 6d 75 74 65 78 29 3b 0d 0a 0d 0a 20 20 72 ->mutex);.... r
48c0: 65 74 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 0d eturn ret;..}...
48d0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
48e0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
48f0: 75 72 73 6f 72 5f 72 6f 77 69 64 28 73 71 6c 69 ursor_rowid(sqli
4900: 74 65 33 5f 73 74 6d 74 20 2a 70 73 74 6d 74 2c te3_stmt *pstmt,
4910: 20 69 6e 74 20 63 75 72 73 6f 72 2c 20 73 71 6c int cursor, sql
4920: 69 74 65 5f 69 6e 74 36 34 20 2a 70 72 6f 77 69 ite_int64 *prowi
4930: 64 29 0d 0a 7b 0d 0a 20 20 56 64 62 65 20 2a 70 d)..{.. Vdbe *p
4940: 20 3d 20 28 56 64 62 65 20 2a 29 70 73 74 6d 74 = (Vdbe *)pstmt
4950: 3b 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 ;.. sqlite3 *db
4960: 20 3d 20 28 70 20 3d 3d 20 4e 55 4c 4c 29 20 3f = (p == NULL) ?
4970: 20 4e 55 4c 4c 20 3a 20 70 2d 3e 64 62 3b 0d 0a NULL : p->db;..
4980: 20 20 56 64 62 65 43 75 72 73 6f 72 20 2a 70 43 VdbeCursor *pC
4990: 3b 0d 0a 20 20 69 6e 74 20 72 65 74 20 3d 20 53 ;.. int ret = S
49a0: 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 0d 0a 20 20 73 QLITE_OK;.... s
49b0: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 qlite3_mutex_ent
49c0: 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a er(db->mutex);..
49d0: 20 20 77 68 69 6c 65 20 28 31 29 0d 0a 20 20 7b while (1).. {
49e0: 0d 0a 20 20 20 20 69 66 20 28 63 75 72 73 6f 72 .. if (cursor
49f0: 20 3c 20 30 20 7c 7c 20 63 75 72 73 6f 72 20 3e < 0 || cursor >
4a00: 3d 20 70 2d 3e 6e 43 75 72 73 6f 72 29 0d 0a 20 = p->nCursor)..
4a10: 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 20 {.. ret
4a20: 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d = SQLITE_ERROR;.
4a30: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 . break;..
4a40: 20 20 20 7d 0d 0a 20 20 20 20 69 66 20 28 70 2d }.. if (p-
4a50: 3e 61 70 43 73 72 5b 63 75 72 73 6f 72 5d 20 3d >apCsr[cursor] =
4a60: 3d 20 4e 55 4c 4c 29 0d 0a 20 20 20 20 7b 0d 0a = NULL).. {..
4a70: 20 20 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 ret = SQLI
4a80: 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 20 TE_ERROR;..
4a90: 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a break;.. }..
4aa0: 0d 0a 20 20 20 20 70 43 20 3d 20 70 2d 3e 61 70 .. pC = p->ap
4ab0: 43 73 72 5b 63 75 72 73 6f 72 5d 3b 0d 0a 0d 0a Csr[cursor];....
4ac0: 20 20 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 ret = sqlite
4ad0: 33 56 64 62 65 43 75 72 73 6f 72 4d 6f 76 65 74 3VdbeCursorMovet
4ae0: 6f 28 70 43 29 3b 0d 0a 20 20 20 20 69 66 28 72 o(pC);.. if(r
4af0: 65 74 29 0d 0a 20 20 20 20 20 20 62 72 65 61 6b et).. break
4b00: 3b 0d 0a 0d 0a 20 20 20 20 69 66 28 70 43 2d 3e ;.... if(pC->
4b10: 72 6f 77 69 64 49 73 56 61 6c 69 64 29 0d 0a 20 rowidIsValid)..
4b20: 20 20 20 7b 0d 0a 20 20 20 20 20 20 2a 70 72 6f {.. *pro
4b30: 77 69 64 20 3d 20 70 43 2d 3e 6c 61 73 74 52 6f wid = pC->lastRo
4b40: 77 69 64 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 wid;.. }..
4b50: 20 65 6c 73 65 20 69 66 28 70 43 2d 3e 70 73 65 else if(pC->pse
4b60: 75 64 6f 54 61 62 6c 65 52 65 67 20 3e 20 30 29 udoTableReg > 0)
4b70: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 .. {.. r
4b80: 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f et = SQLITE_ERRO
4b90: 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b R;.. break;
4ba0: 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 65 6c 73 .. }.. els
4bb0: 65 20 69 66 28 70 43 2d 3e 6e 75 6c 6c 52 6f 77 e if(pC->nullRow
4bc0: 20 7c 7c 20 70 43 2d 3e 70 43 75 72 73 6f 72 3d || pC->pCursor=
4bd0: 3d 30 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 =0).. {..
4be0: 20 20 72 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 ret = SQLITE_E
4bf0: 52 52 4f 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 RROR;.. bre
4c00: 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 ak;.. }..
4c10: 65 6c 73 65 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 else.. {..
4c20: 20 20 20 69 66 20 28 70 43 2d 3e 70 43 75 72 73 if (pC->pCurs
4c30: 6f 72 20 3d 3d 20 4e 55 4c 4c 29 0d 0a 20 20 20 or == NULL)..
4c40: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 {.. re
4c50: 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 t = SQLITE_ERROR
4c60: 3b 0d 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b ;.. break
4c70: 3b 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 ;.. }..
4c80: 20 20 73 71 6c 69 74 65 33 42 74 72 65 65 4b 65 sqlite3BtreeKe
4c90: 79 53 69 7a 65 28 70 43 2d 3e 70 43 75 72 73 6f ySize(pC->pCurso
4ca0: 72 2c 20 70 72 6f 77 69 64 29 3b 0d 0a 20 20 20 r, prowid);..
4cb0: 20 20 20 2a 70 72 6f 77 69 64 20 3d 20 2a 70 72 *prowid = *pr
4cc0: 6f 77 69 64 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 owid;.. }..
4cd0: 20 20 62 72 65 61 6b 3b 0d 0a 20 20 7d 0d 0a 20 break;.. }..
4ce0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 6c sqlite3_mutex_l
4cf0: 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 3b eave(db->mutex);
4d00: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 .... return ret
4d10: 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 20 2f 2a 20 ;..}..#endif /*
4d20: 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 20 2a 2f SQLITE_OS_WIN */
4d30: 0d 0a 0d 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ..../***********
4d40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4d50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4d60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4d70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4d80: 2a 2a 2f 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 54 68 **/..../*..** Th
4d90: 65 20 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 e INTEROP_TEST_E
4da0: 58 54 45 4e 53 49 4f 4e 20 62 6c 6f 63 6b 20 6d XTENSION block m
4db0: 75 73 74 20 62 65 20 61 74 20 74 68 65 20 65 6e ust be at the en
4dc0: 64 20 6f 66 20 74 68 69 73 20 73 6f 75 72 63 65 d of this source
4dd0: 20 66 69 6c 65 0d 0a 2a 2a 20 62 65 63 61 75 73 file..** becaus
4de0: 65 20 69 74 20 69 6e 63 6c 75 64 65 73 20 74 68 e it includes th
4df0: 65 20 22 73 71 6c 69 74 65 33 65 78 74 2e 68 22 e "sqlite3ext.h"
4e00: 20 66 69 6c 65 2c 20 77 68 69 63 68 20 64 65 66 file, which def
4e10: 69 6e 65 73 20 74 68 65 20 73 71 6c 69 74 65 33 ines the sqlite3
4e20: 0d 0a 2a 2a 20 70 75 62 6c 69 63 20 41 50 49 20 ..** public API
4e30: 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 20 74 function names t
4e40: 6f 20 62 65 20 6d 61 63 72 6f 73 20 61 6e 64 20 o be macros and
4e50: 74 68 61 74 20 77 6f 75 6c 64 20 63 61 75 73 65 that would cause
4e60: 20 74 68 65 20 63 6f 64 65 0d 0a 2a 2a 20 61 62 the code..** ab
4e70: 6f 76 65 20 74 68 69 73 20 70 6f 69 6e 74 20 74 ove this point t
4e80: 6f 20 6d 61 6c 66 75 6e 63 74 69 6f 6e 2e 0d 0a o malfunction...
4e90: 2a 2f 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 */..#if defined(
4ea0: 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f 45 58 54 INTEROP_TEST_EXT
4eb0: 45 4e 53 49 4f 4e 29 0d 0a 23 69 6e 63 6c 75 64 ENSION)..#includ
4ec0: 65 20 22 2e 2e 2f 63 6f 72 65 2f 73 71 6c 69 74 e "../core/sqlit
4ed0: 65 33 65 78 74 2e 68 22 0d 0a 53 51 4c 49 54 45 e3ext.h"..SQLITE
4ee0: 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 31 _EXTENSION_INIT1
4ef0: 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 54 68 65 20 69 ..../*..** The i
4f00: 6e 74 65 72 6f 70 54 65 73 74 28 29 20 53 51 4c nteropTest() SQL
4f10: 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e function return
4f20: 73 20 69 74 73 20 66 69 72 73 74 20 61 72 67 75 s its first argu
4f30: 6d 65 6e 74 20 6f 72 20 72 61 69 73 65 73 20 61 ment or raises a
4f40: 6e 0d 0a 2a 2a 20 65 72 72 6f 72 20 69 66 20 74 n..** error if t
4f50: 68 65 72 65 20 61 72 65 20 6e 6f 74 20 65 6e 6f here are not eno
4f60: 75 67 68 20 61 72 67 75 6d 65 6e 74 73 2e 0d 0a ugh arguments...
4f70: 2a 2f 0d 0a 73 74 61 74 69 63 20 76 6f 69 64 20 */..static void
4f80: 69 6e 74 65 72 6f 70 54 65 73 74 46 75 6e 63 28 interopTestFunc(
4f90: 0d 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 .. sqlite3_cont
4fa0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0d 0a 20 ext *context,..
4fb0: 20 69 6e 74 20 61 72 67 63 2c 0d 0a 20 20 73 71 int argc,.. sq
4fc0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
4fd0: 67 76 0d 0a 29 7b 0d 0a 20 20 63 6f 6e 73 74 20 gv..){.. const
4fe0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a unsigned char *z
4ff0: 3b 0d 0a 20 20 69 66 28 20 61 72 67 63 21 3d 31 ;.. if( argc!=1
5000: 20 29 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 ){.. sqlite3
5010: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f _result_error(co
5020: 6e 74 65 78 74 2c 20 22 6e 65 65 64 20 65 78 61 ntext, "need exa
5030: 63 74 6c 79 20 6f 6e 65 20 61 72 67 75 6d 65 6e ctly one argumen
5040: 74 22 2c 20 2d 31 29 3b 0d 0a 20 20 20 20 72 65 t", -1);.. re
5050: 74 75 72 6e 3b 0d 0a 20 20 7d 0d 0a 20 20 7a 20 turn;.. }.. z
5060: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f = sqlite3_value_
5070: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0d 0a text(argv[0]);..
5080: 20 20 69 66 28 20 7a 20 29 7b 0d 0a 20 20 20 20 if( z ){..
5090: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 sqlite3_result_t
50a0: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 ext(context, (ch
50b0: 61 72 2a 29 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 ar*)z, -1, SQLIT
50c0: 45 5f 53 54 41 54 49 43 29 3b 0d 0a 20 20 7d 65 E_STATIC);.. }e
50d0: 6c 73 65 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 lse{.. sqlite
50e0: 33 5f 72 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 6f 3_result_null(co
50f0: 6e 74 65 78 74 29 3b 0d 0a 20 20 7d 0d 0a 7d 0d ntext);.. }..}.
5100: 0a 0d 0a 2f 2a 20 53 51 4c 69 74 65 20 69 6e 76 .../* SQLite inv
5110: 6f 6b 65 73 20 74 68 69 73 20 72 6f 75 74 69 6e okes this routin
5120: 65 20 6f 6e 63 65 20 77 68 65 6e 20 69 74 20 6c e once when it l
5130: 6f 61 64 73 20 74 68 65 20 65 78 74 65 6e 73 69 oads the extensi
5140: 6f 6e 2e 0d 0a 2a 2a 20 43 72 65 61 74 65 20 6e on...** Create n
5150: 65 77 20 66 75 6e 63 74 69 6f 6e 73 2c 20 63 6f ew functions, co
5160: 6c 6c 61 74 69 6e 67 20 73 65 71 75 65 6e 63 65 llating sequence
5170: 73 2c 20 61 6e 64 20 76 69 72 74 75 61 6c 20 74 s, and virtual t
5180: 61 62 6c 65 0d 0a 2a 2a 20 6d 6f 64 75 6c 65 73 able..** modules
5190: 20 68 65 72 65 2e 20 20 54 68 69 73 20 69 73 20 here. This is
51a0: 75 73 75 61 6c 6c 79 20 74 68 65 20 6f 6e 6c 79 usually the only
51b0: 20 65 78 70 6f 72 74 65 64 20 73 79 6d 62 6f 6c exported symbol
51c0: 20 69 6e 0d 0a 2a 2a 20 74 68 65 20 73 68 61 72 in..** the shar
51d0: 65 64 20 6c 69 62 72 61 72 79 2e 0d 0a 2a 2f 0d ed library...*/.
51e0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
51f0: 69 6e 74 65 72 6f 70 5f 74 65 73 74 5f 65 78 74 interop_test_ext
5200: 65 6e 73 69 6f 6e 5f 69 6e 69 74 28 0d 0a 20 20 ension_init(..
5210: 73 71 6c 69 74 65 33 20 2a 64 62 2c 0d 0a 20 20 sqlite3 *db,..
5220: 63 68 61 72 20 2a 2a 70 7a 45 72 72 4d 73 67 2c char **pzErrMsg,
5230: 0d 0a 20 20 63 6f 6e 73 74 20 73 71 6c 69 74 65 .. const sqlite
5240: 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 20 2a 3_api_routines *
5250: 70 41 70 69 0d 0a 29 7b 0d 0a 20 20 53 51 4c 49 pApi..){.. SQLI
5260: 54 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 TE_EXTENSION_INI
5270: 54 32 28 70 41 70 69 29 0d 0a 20 20 72 65 74 75 T2(pApi).. retu
5280: 72 6e 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 rn sqlite3_creat
5290: 65 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 e_function(db, "
52a0: 69 6e 74 65 72 6f 70 54 65 73 74 22 2c 20 2d 31 interopTest", -1
52b0: 2c 20 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c , SQLITE_ANY, 0,
52c0: 0d 0a 20 20 20 20 20 20 69 6e 74 65 72 6f 70 54 .. interopT
52d0: 65 73 74 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0d estFunc, 0, 0);.
52e0: 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a .}..#endif..