0000: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
0010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 2a 20 41 44 *********.. * AD
0040: 4f 2e 4e 45 54 20 32 2e 30 20 44 61 74 61 20 50 O.NET 2.0 Data P
0050: 72 6f 76 69 64 65 72 20 66 6f 72 20 53 51 4c 69 rovider for SQLi
0060: 74 65 20 56 65 72 73 69 6f 6e 20 33 2e 58 0d 0a te Version 3.X..
0070: 20 2a 20 57 72 69 74 74 65 6e 20 62 79 20 52 6f * Written by Ro
0080: 62 65 72 74 20 53 69 6d 70 73 6f 6e 20 28 72 6f bert Simpson (ro
0090: 62 65 72 74 40 62 6c 61 63 6b 63 61 73 74 6c 65 bert@blackcastle
00a0: 73 6f 66 74 2e 63 6f 6d 29 0d 0a 20 2a 0d 0a 20 soft.com).. *..
00b0: 2a 20 52 65 6c 65 61 73 65 64 20 74 6f 20 74 68 * Released to th
00c0: 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2c e public domain,
00d0: 20 75 73 65 20 61 74 20 79 6f 75 72 20 6f 77 6e use at your own
00e0: 20 72 69 73 6b 21 0d 0a 20 2a 2a 2a 2a 2a 2a 2a risk!.. *******
00f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0100: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0110: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0120: 2a 2f 0d 0a 0d 0a 23 64 65 66 69 6e 65 20 53 51 */....#define SQ
0130: 4c 49 54 45 5f 41 50 49 20 5f 5f 64 65 63 6c 73 LITE_API __decls
0140: 70 65 63 28 64 6c 6c 65 78 70 6f 72 74 29 0d 0a pec(dllexport)..
0150: 0d 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 63 ..#include "../c
0160: 6f 72 65 2f 73 71 6c 69 74 65 33 2e 63 22 0d 0a ore/sqlite3.c"..
0170: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
0180: 54 45 52 4f 50 5f 49 4e 43 4c 55 44 45 5f 45 58 TEROP_INCLUDE_EX
0190: 54 52 41 29 0d 0a 23 69 6e 63 6c 75 64 65 20 22 TRA)..#include "
01a0: 2e 2e 2f 65 78 74 2f 65 78 74 72 61 2e 63 22 0d ../ext/extra.c".
01b0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 .#endif....#if d
01c0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 49 efined(INTEROP_I
01d0: 4e 43 4c 55 44 45 5f 43 45 52 4f 44 29 0d 0a 23 NCLUDE_CEROD)..#
01e0: 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 74 2f include "../ext/
01f0: 63 65 72 6f 64 2e 63 22 0d 0a 23 65 6e 64 69 66 cerod.c"..#endif
0200: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
0210: 49 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 45 5f INTEROP_INCLUDE_
0220: 53 45 45 29 0d 0a 23 69 6e 63 6c 75 64 65 20 22 SEE)..#include "
0230: 2e 2e 2f 65 78 74 2f 73 65 65 2e 63 22 0d 0a 23 ../ext/see.c"..#
0240: 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 endif....#if def
0250: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 56 49 52 ined(INTEROP_VIR
0260: 54 55 41 4c 5f 54 41 42 4c 45 29 20 26 26 20 53 TUAL_TABLE) && S
0270: 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 QLITE_VERSION_NU
0280: 4d 42 45 52 20 3e 3d 20 33 30 30 34 30 30 31 0d MBER >= 3004001.
0290: 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 .#include "../ex
02a0: 74 2f 76 74 73 68 69 6d 2e 63 22 0d 0a 23 65 6e t/vtshim.c"..#en
02b0: 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e dif....#if defin
02c0: 65 64 28 49 4e 54 45 52 4f 50 5f 50 45 52 43 45 ed(INTEROP_PERCE
02d0: 4e 54 49 4c 45 5f 45 58 54 45 4e 53 49 4f 4e 29 NTILE_EXTENSION)
02e0: 0d 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 ..#include "../e
02f0: 78 74 2f 70 65 72 63 65 6e 74 69 6c 65 2e 63 22 xt/percentile.c"
0300: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 ..#endif....#if
0310: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
0320: 54 4f 54 59 50 45 5f 45 58 54 45 4e 53 49 4f 4e TOTYPE_EXTENSION
0330: 29 0d 0a 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f )..#include "../
0340: 65 78 74 2f 74 6f 74 79 70 65 2e 63 22 0d 0a 23 ext/totype.c"..#
0350: 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 endif....#if def
0360: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 52 45 47 ined(INTEROP_REG
0370: 45 58 50 5f 45 58 54 45 4e 53 49 4f 4e 29 0d 0a EXP_EXTENSION)..
0380: 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 65 78 74 #include "../ext
0390: 2f 72 65 67 65 78 70 2e 63 22 0d 0a 23 65 6e 64 /regexp.c"..#end
03a0: 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 if....#if define
03b0: 64 28 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 d(INTEROP_EXTENS
03c0: 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 29 0d 0a ION_FUNCTIONS)..
03d0: 23 69 6e 63 6c 75 64 65 20 22 2e 2e 2f 63 6f 6e #include "../con
03e0: 74 72 69 62 2f 65 78 74 65 6e 73 69 6f 6e 2d 66 trib/extension-f
03f0: 75 6e 63 74 69 6f 6e 73 2e 63 22 0d 0a 65 78 74 unctions.c"..ext
0400: 65 72 6e 20 69 6e 74 20 52 65 67 69 73 74 65 72 ern int Register
0410: 45 78 74 65 6e 73 69 6f 6e 46 75 6e 63 74 69 6f ExtensionFunctio
0420: 6e 73 28 73 71 6c 69 74 65 33 20 2a 64 62 29 3b ns(sqlite3 *db);
0430: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 ..#endif....#if
0440: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f defined(SQLITE_O
0450: 53 5f 57 49 4e 29 0d 0a 23 69 66 20 64 65 66 69 S_WIN)..#if defi
0460: 6e 65 64 28 49 4e 54 45 52 4f 50 5f 43 4f 44 45 ned(INTEROP_CODE
0470: 43 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 49 C) && !defined(I
0480: 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 45 5f 53 NTEROP_INCLUDE_S
0490: 45 45 29 0d 0a 23 69 6e 63 6c 75 64 65 20 22 63 EE)..#include "c
04a0: 72 79 70 74 2e 63 22 0d 0a 23 65 6e 64 69 66 0d rypt.c"..#endif.
04b0: 0a 0d 0a 23 69 6e 63 6c 75 64 65 20 22 69 6e 74 ...#include "int
04c0: 65 72 6f 70 2e 68 22 0d 0a 0d 0a 23 64 65 66 69 erop.h"....#defi
04d0: 6e 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ne INTEROP_DEBUG
04e0: 5f 4e 4f 4e 45 20 20 20 20 20 20 20 20 20 20 20 _NONE
04f0: 28 30 78 30 30 30 30 29 0d 0a 23 64 65 66 69 6e (0x0000)..#defin
0500: 65 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f e INTEROP_DEBUG_
0510: 43 4c 4f 53 45 20 20 20 20 20 20 20 20 20 20 28 CLOSE (
0520: 30 78 30 30 30 31 29 0d 0a 23 64 65 66 69 6e 65 0x0001)..#define
0530: 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 46 INTEROP_DEBUG_F
0540: 49 4e 41 4c 49 5a 45 20 20 20 20 20 20 20 28 30 INALIZE (0
0550: 78 30 30 30 32 29 0d 0a 23 64 65 66 69 6e 65 20 x0002)..#define
0560: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 42 41 INTEROP_DEBUG_BA
0570: 43 4b 55 50 5f 46 49 4e 49 53 48 20 20 28 30 78 CKUP_FINISH (0x
0580: 30 30 30 34 29 0d 0a 23 64 65 66 69 6e 65 20 49 0004)..#define I
0590: 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 4f 50 45 NTEROP_DEBUG_OPE
05a0: 4e 20 20 20 20 20 20 20 20 20 20 20 28 30 78 30 N (0x0
05b0: 30 30 38 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 008)..#define IN
05c0: 54 45 52 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e TEROP_DEBUG_OPEN
05d0: 31 36 20 20 20 20 20 20 20 20 20 28 30 78 30 30 16 (0x00
05e0: 31 30 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 10)..#define INT
05f0: 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 41 EROP_DEBUG_PREPA
0600: 52 45 20 20 20 20 20 20 20 20 28 30 78 30 30 32 RE (0x002
0610: 30 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 0)..#define INTE
0620: 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 41 52 ROP_DEBUG_PREPAR
0630: 45 31 36 20 20 20 20 20 20 28 30 78 30 30 34 30 E16 (0x0040
0640: 29 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 )..#define INTER
0650: 4f 50 5f 44 45 42 55 47 5f 52 45 53 45 54 20 20 OP_DEBUG_RESET
0660: 20 20 20 20 20 20 20 20 28 30 78 30 30 38 30 29 (0x0080)
0670: 0d 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f ..#define INTERO
0680: 50 5f 44 45 42 55 47 5f 43 48 41 4e 47 45 53 20 P_DEBUG_CHANGES
0690: 20 20 20 20 20 20 20 28 30 78 30 31 30 30 29 0d (0x0100).
06a0: 0a 23 64 65 66 69 6e 65 20 49 4e 54 45 52 4f 50 .#define INTEROP
06b0: 5f 44 45 42 55 47 5f 42 52 45 41 4b 20 20 20 20 _DEBUG_BREAK
06c0: 20 20 20 20 20 20 28 30 78 30 32 30 30 29 0d 0a (0x0200)..
06d0: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 4d ..#if defined(_M
06e0: 53 43 5f 56 45 52 29 20 26 26 20 64 65 66 69 6e SC_VER) && defin
06f0: 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ed(INTEROP_DEBUG
0700: 29 20 26 26 20 5c 0d 0a 20 20 20 20 28 49 4e 54 ) && \.. (INT
0710: 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 EROP_DEBUG & INT
0720: 45 52 4f 50 5f 44 45 42 55 47 5f 42 52 45 41 4b EROP_DEBUG_BREAK
0730: 29 0d 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74 )..#define sqlit
0740: 65 33 49 6e 74 65 72 6f 70 42 72 65 61 6b 28 61 e3InteropBreak(a
0750: 29 20 7b 20 73 71 6c 69 74 65 33 49 6e 74 65 72 ) { sqlite3Inter
0760: 6f 70 44 65 62 75 67 28 22 25 73 5c 6e 22 2c 20 opDebug("%s\n",
0770: 28 61 29 29 3b 20 5f 5f 64 65 62 75 67 62 72 65 (a)); __debugbre
0780: 61 6b 28 29 3b 20 7d 0d 0a 23 65 6c 73 65 0d 0a ak(); }..#else..
0790: 23 64 65 66 69 6e 65 20 73 71 6c 69 74 65 33 49 #define sqlite3I
07a0: 6e 74 65 72 6f 70 42 72 65 61 6b 28 61 29 0d 0a nteropBreak(a)..
07b0: 23 65 6e 64 69 66 0d 0a 0d 0a 74 79 70 65 64 65 #endif....typede
07c0: 66 20 76 6f 69 64 20 28 2a 53 51 4c 49 54 45 55 f void (*SQLITEU
07d0: 53 45 52 46 55 4e 43 29 28 73 71 6c 69 74 65 33 SERFUNC)(sqlite3
07e0: 5f 63 6f 6e 74 65 78 74 20 2a 2c 20 69 6e 74 2c _context *, int,
07f0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a sqlite3_value *
0800: 2a 29 3b 0d 0a 74 79 70 65 64 65 66 20 76 6f 69 *);..typedef voi
0810: 64 20 28 2a 53 51 4c 49 54 45 46 55 4e 43 46 49 d (*SQLITEFUNCFI
0820: 4e 41 4c 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e NAL)(sqlite3_con
0830: 74 65 78 74 20 2a 29 3b 0d 0a 0d 0a 2f 2a 0d 0a text *);..../*..
0840: 2a 2a 20 41 6e 20 61 72 72 61 79 20 6f 66 20 6e ** An array of n
0850: 61 6d 65 73 20 6f 66 20 61 6c 6c 20 63 6f 6d 70 ames of all comp
0860: 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e 73 ile-time options
0870: 2e 20 20 54 68 69 73 20 61 72 72 61 79 20 73 68 . This array sh
0880: 6f 75 6c 64 0d 0a 2a 2a 20 62 65 20 73 6f 72 74 ould..** be sort
0890: 65 64 20 41 2d 5a 2e 0d 0a 2a 2a 0d 0a 2a 2a 20 ed A-Z...**..**
08a0: 54 68 69 73 20 61 72 72 61 79 20 6c 6f 6f 6b 73 This array looks
08b0: 20 6c 61 72 67 65 2c 20 62 75 74 20 69 6e 20 61 large, but in a
08c0: 20 74 79 70 69 63 61 6c 20 69 6e 73 74 61 6c 6c typical install
08d0: 61 74 69 6f 6e 20 61 63 74 75 61 6c 6c 79 20 75 ation actually u
08e0: 73 65 73 0d 0a 2a 2a 20 6f 6e 6c 79 20 61 20 68 ses..** only a h
08f0: 61 6e 64 66 75 6c 20 6f 66 20 63 6f 6d 70 69 6c andful of compil
0900: 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e 73 2c 20 e-time options,
0910: 73 6f 20 6d 6f 73 74 20 74 69 6d 65 73 20 74 68 so most times th
0920: 69 73 20 61 72 72 61 79 20 69 73 20 75 73 75 61 is array is usua
0930: 6c 6c 79 0d 0a 2a 2a 20 72 61 74 68 65 72 20 73 lly..** rather s
0940: 68 6f 72 74 20 61 6e 64 20 75 73 65 73 20 6c 69 hort and uses li
0950: 74 74 6c 65 20 6d 65 6d 6f 72 79 20 73 70 61 63 ttle memory spac
0960: 65 2e 0d 0a 2a 2f 0d 0a 73 74 61 74 69 63 20 63 e...*/..static c
0970: 6f 6e 73 74 20 63 68 61 72 20 2a 20 63 6f 6e 73 onst char * cons
0980: 74 20 61 7a 49 6e 74 65 72 6f 70 43 6f 6d 70 69 t azInteropCompi
0990: 6c 65 4f 70 74 5b 5d 20 3d 20 7b 0d 0a 0d 0a 2f leOpt[] = {..../
09a0: 2a 20 54 68 65 73 65 20 6d 61 63 72 6f 73 20 61 * These macros a
09b0: 72 65 20 70 72 6f 76 69 64 65 64 20 74 6f 20 22 re provided to "
09c0: 73 74 72 69 6e 67 69 66 79 22 20 74 68 65 20 76 stringify" the v
09d0: 61 6c 75 65 20 6f 66 20 74 68 65 20 64 65 66 69 alue of the defi
09e0: 6e 65 0d 0a 2a 2a 20 66 6f 72 20 74 68 6f 73 65 ne..** for those
09f0: 20 6f 70 74 69 6f 6e 73 20 69 6e 20 77 68 69 63 options in whic
0a00: 68 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 6d h the value is m
0a10: 65 61 6e 69 6e 67 66 75 6c 2e 20 2a 2f 0d 0a 23 eaningful. */..#
0a20: 69 66 6e 64 65 66 20 43 54 49 4d 45 4f 50 54 5f ifndef CTIMEOPT_
0a30: 56 41 4c 5f 0d 0a 23 64 65 66 69 6e 65 20 43 54 VAL_..#define CT
0a40: 49 4d 45 4f 50 54 5f 56 41 4c 5f 28 6f 70 74 29 IMEOPT_VAL_(opt)
0a50: 20 23 6f 70 74 0d 0a 23 65 6e 64 69 66 0d 0a 0d #opt..#endif...
0a60: 0a 23 69 66 6e 64 65 66 20 43 54 49 4d 45 4f 50 .#ifndef CTIMEOP
0a70: 54 5f 56 41 4c 0d 0a 23 64 65 66 69 6e 65 20 43 T_VAL..#define C
0a80: 54 49 4d 45 4f 50 54 5f 56 41 4c 28 6f 70 74 29 TIMEOPT_VAL(opt)
0a90: 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c 5f 28 6f CTIMEOPT_VAL_(o
0aa0: 70 74 29 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 pt)..#endif....#
0ab0: 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 43 4f ifdef INTEROP_CO
0ac0: 44 45 43 0d 0a 20 20 22 43 4f 44 45 43 22 2c 0d DEC.. "CODEC",.
0ad0: 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 .#endif..#ifdef
0ae0: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 0d 0a 20 INTEROP_DEBUG..
0af0: 20 22 44 45 42 55 47 3d 22 20 43 54 49 4d 45 4f "DEBUG=" CTIMEO
0b00: 50 54 5f 56 41 4c 28 49 4e 54 45 52 4f 50 5f 44 PT_VAL(INTEROP_D
0b10: 45 42 55 47 29 2c 0d 0a 23 65 6e 64 69 66 0d 0a EBUG),..#endif..
0b20: 23 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 45 #ifdef INTEROP_E
0b30: 58 54 45 4e 53 49 4f 4e 5f 46 55 4e 43 54 49 4f XTENSION_FUNCTIO
0b40: 4e 53 0d 0a 20 20 22 45 58 54 45 4e 53 49 4f 4e NS.. "EXTENSION
0b50: 5f 46 55 4e 43 54 49 4f 4e 53 22 2c 0d 0a 23 65 _FUNCTIONS",..#e
0b60: 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 ndif..#ifdef INT
0b70: 45 52 4f 50 5f 49 4e 43 4c 55 44 45 5f 43 45 52 EROP_INCLUDE_CER
0b80: 4f 44 0d 0a 20 20 22 49 4e 43 4c 55 44 45 5f 43 OD.. "INCLUDE_C
0b90: 45 52 4f 44 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a EROD",..#endif..
0ba0: 23 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 49 #ifdef INTEROP_I
0bb0: 4e 43 4c 55 44 45 5f 45 58 54 52 41 0d 0a 20 20 NCLUDE_EXTRA..
0bc0: 22 49 4e 43 4c 55 44 45 5f 45 58 54 52 41 22 2c "INCLUDE_EXTRA",
0bd0: 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 ..#endif..#ifdef
0be0: 20 49 4e 54 45 52 4f 50 5f 49 4e 43 4c 55 44 45 INTEROP_INCLUDE
0bf0: 5f 53 45 45 0d 0a 20 20 22 49 4e 43 4c 55 44 45 _SEE.. "INCLUDE
0c00: 5f 53 45 45 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a _SEE",..#endif..
0c10: 23 69 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 4c #ifdef INTEROP_L
0c20: 45 47 41 43 59 5f 43 4c 4f 53 45 0d 0a 20 20 22 EGACY_CLOSE.. "
0c30: 4c 45 47 41 43 59 5f 43 4c 4f 53 45 22 2c 0d 0a LEGACY_CLOSE",..
0c40: 23 65 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 49 #endif..#ifdef I
0c50: 4e 54 45 52 4f 50 5f 4c 4f 47 0d 0a 20 20 22 4c NTEROP_LOG.. "L
0c60: 4f 47 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 23 69 OG",..#endif..#i
0c70: 66 64 65 66 20 49 4e 54 45 52 4f 50 5f 50 45 52 fdef INTEROP_PER
0c80: 43 45 4e 54 49 4c 45 5f 45 58 54 45 4e 53 49 4f CENTILE_EXTENSIO
0c90: 4e 0d 0a 20 20 22 50 45 52 43 45 4e 54 49 4c 45 N.. "PERCENTILE
0ca0: 5f 45 58 54 45 4e 53 49 4f 4e 22 2c 0d 0a 23 65 _EXTENSION",..#e
0cb0: 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 ndif..#ifdef INT
0cc0: 45 52 4f 50 5f 52 45 47 45 58 50 5f 45 58 54 45 EROP_REGEXP_EXTE
0cd0: 4e 53 49 4f 4e 0d 0a 20 20 22 52 45 47 45 58 50 NSION.. "REGEXP
0ce0: 5f 45 58 54 45 4e 53 49 4f 4e 22 2c 0d 0a 23 65 _EXTENSION",..#e
0cf0: 6e 64 69 66 0d 0a 23 69 66 64 65 66 20 49 4e 54 ndif..#ifdef INT
0d00: 45 52 4f 50 5f 54 45 53 54 5f 45 58 54 45 4e 53 EROP_TEST_EXTENS
0d10: 49 4f 4e 0d 0a 20 20 22 54 45 53 54 5f 45 58 54 ION.. "TEST_EXT
0d20: 45 4e 53 49 4f 4e 22 2c 0d 0a 23 65 6e 64 69 66 ENSION",..#endif
0d30: 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f 50 ..#ifdef INTEROP
0d40: 5f 54 4f 54 59 50 45 5f 45 58 54 45 4e 53 49 4f _TOTYPE_EXTENSIO
0d50: 4e 0d 0a 20 20 22 54 4f 54 59 50 45 5f 45 58 54 N.. "TOTYPE_EXT
0d60: 45 4e 53 49 4f 4e 22 2c 0d 0a 23 65 6e 64 69 66 ENSION",..#endif
0d70: 0d 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ..#ifdef SQLITE_
0d80: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 0d 0a VERSION_NUMBER..
0d90: 20 20 22 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 "VERSION_NUMBE
0da0: 52 3d 22 20 43 54 49 4d 45 4f 50 54 5f 56 41 4c R=" CTIMEOPT_VAL
0db0: 28 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f (SQLITE_VERSION_
0dc0: 4e 55 4d 42 45 52 29 2c 0d 0a 23 65 6e 64 69 66 NUMBER),..#endif
0dd0: 0d 0a 23 69 66 64 65 66 20 49 4e 54 45 52 4f 50 ..#ifdef INTEROP
0de0: 5f 56 49 52 54 55 41 4c 5f 54 41 42 4c 45 0d 0a _VIRTUAL_TABLE..
0df0: 20 20 22 56 49 52 54 55 41 4c 5f 54 41 42 4c 45 "VIRTUAL_TABLE
0e00: 22 2c 0d 0a 23 65 6e 64 69 66 0d 0a 7d 3b 0d 0a ",..#endif..};..
0e10: 0d 0a 2f 2a 0d 0a 2a 2a 20 47 69 76 65 6e 20 74 ../*..** Given t
0e20: 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 63 6f 6d he name of a com
0e30: 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 69 6f 6e pile-time option
0e40: 2c 20 72 65 74 75 72 6e 20 74 72 75 65 20 69 66 , return true if
0e50: 20 74 68 61 74 20 6f 70 74 69 6f 6e 0d 0a 2a 2a that option..**
0e60: 20 77 61 73 20 75 73 65 64 20 61 6e 64 20 66 61 was used and fa
0e70: 6c 73 65 20 69 66 20 6e 6f 74 2e 0d 0a 2a 2a 0d lse if not...**.
0e80: 0a 2a 2a 20 54 68 65 20 6e 61 6d 65 20 63 61 6e .** The name can
0e90: 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 62 65 67 69 optionally begi
0ea0: 6e 20 77 69 74 68 20 22 53 51 4c 49 54 45 5f 22 n with "SQLITE_"
0eb0: 20 6f 72 20 22 49 4e 54 45 52 4f 50 5f 22 20 62 or "INTEROP_" b
0ec0: 75 74 20 74 68 6f 73 65 0d 0a 2a 2a 20 70 72 65 ut those..** pre
0ed0: 66 69 78 65 73 20 61 72 65 20 6e 6f 74 20 72 65 fixes are not re
0ee0: 71 75 69 72 65 64 20 66 6f 72 20 61 20 6d 61 74 quired for a mat
0ef0: 63 68 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f ch...*/..SQLITE_
0f00: 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 69 API int WINAPI i
0f10: 6e 74 65 72 6f 70 5f 63 6f 6d 70 69 6c 65 6f 70 nterop_compileop
0f20: 74 69 6f 6e 5f 75 73 65 64 28 63 6f 6e 73 74 20 tion_used(const
0f30: 63 68 61 72 20 2a 7a 4f 70 74 4e 61 6d 65 29 7b char *zOptName){
0f40: 0d 0a 20 20 69 6e 74 20 69 2c 20 6e 3b 0d 0a 20 .. int i, n;..
0f50: 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 4e if( sqlite3StrN
0f60: 49 43 6d 70 28 7a 4f 70 74 4e 61 6d 65 2c 20 22 ICmp(zOptName, "
0f70: 53 51 4c 49 54 45 5f 22 2c 20 37 29 3d 3d 30 20 SQLITE_", 7)==0
0f80: 29 20 7a 4f 70 74 4e 61 6d 65 20 2b 3d 20 37 3b ) zOptName += 7;
0f90: 0d 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 53 .. if( sqlite3S
0fa0: 74 72 4e 49 43 6d 70 28 7a 4f 70 74 4e 61 6d 65 trNICmp(zOptName
0fb0: 2c 20 22 49 4e 54 45 52 4f 50 5f 22 2c 20 38 29 , "INTEROP_", 8)
0fc0: 3d 3d 30 20 29 20 7a 4f 70 74 4e 61 6d 65 20 2b ==0 ) zOptName +
0fd0: 3d 20 38 3b 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 = 8;.. n = sqli
0fe0: 74 65 33 53 74 72 6c 65 6e 33 30 28 7a 4f 70 74 te3Strlen30(zOpt
0ff0: 4e 61 6d 65 29 3b 0d 0a 0d 0a 20 20 2f 2a 20 53 Name);.... /* S
1000: 69 6e 63 65 20 41 72 72 61 79 53 69 7a 65 28 61 ince ArraySize(a
1010: 7a 49 6e 74 65 72 6f 70 43 6f 6d 70 69 6c 65 4f zInteropCompileO
1020: 70 74 29 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 pt) is normally
1030: 69 6e 20 73 69 6e 67 6c 65 20 64 69 67 69 74 73 in single digits
1040: 2c 20 61 0d 0a 20 20 2a 2a 20 6c 69 6e 65 61 72 , a.. ** linear
1050: 20 73 65 61 72 63 68 20 69 73 20 61 64 65 71 75 search is adequ
1060: 61 74 65 2e 20 20 4e 6f 20 6e 65 65 64 20 66 6f ate. No need fo
1070: 72 20 61 20 62 69 6e 61 72 79 20 73 65 61 72 63 r a binary searc
1080: 68 2e 20 2a 2f 0d 0a 20 20 66 6f 72 28 69 3d 30 h. */.. for(i=0
1090: 3b 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61 7a ; i<ArraySize(az
10a0: 49 6e 74 65 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 InteropCompileOp
10b0: 74 29 3b 20 69 2b 2b 29 7b 0d 0a 20 20 20 20 69 t); i++){.. i
10c0: 66 28 20 73 71 6c 69 74 65 33 53 74 72 4e 49 43 f( sqlite3StrNIC
10d0: 6d 70 28 7a 4f 70 74 4e 61 6d 65 2c 20 61 7a 49 mp(zOptName, azI
10e0: 6e 74 65 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 74 nteropCompileOpt
10f0: 5b 69 5d 2c 20 6e 29 3d 3d 30 0d 0a 20 20 20 20 [i], n)==0..
1100: 20 26 26 20 73 71 6c 69 74 65 33 43 74 79 70 65 && sqlite3Ctype
1110: 4d 61 70 5b 28 75 6e 73 69 67 6e 65 64 20 63 68 Map[(unsigned ch
1120: 61 72 29 61 7a 49 6e 74 65 72 6f 70 43 6f 6d 70 ar)azInteropComp
1130: 69 6c 65 4f 70 74 5b 69 5d 5b 6e 5d 5d 3d 3d 30 ileOpt[i][n]]==0
1140: 0d 0a 20 20 20 20 29 7b 0d 0a 20 20 20 20 20 20 .. ){..
1150: 72 65 74 75 72 6e 20 31 3b 0d 0a 20 20 20 20 7d return 1;.. }
1160: 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 .. }.. return
1170: 30 3b 0d 0a 7d 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 0;..}..../*..**
1180: 52 65 74 75 72 6e 20 74 68 65 20 4e 2d 74 68 20 Return the N-th
1190: 63 6f 6d 70 69 6c 65 2d 74 69 6d 65 20 6f 70 74 compile-time opt
11a0: 69 6f 6e 20 73 74 72 69 6e 67 2e 20 20 49 66 20 ion string. If
11b0: 4e 20 69 73 20 6f 75 74 20 6f 66 20 72 61 6e 67 N is out of rang
11c0: 65 2c 0d 0a 2a 2a 20 72 65 74 75 72 6e 20 61 20 e,..** return a
11d0: 4e 55 4c 4c 20 70 6f 69 6e 74 65 72 2e 0d 0a 2a NULL pointer...*
11e0: 2f 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f /..SQLITE_API co
11f0: 6e 73 74 20 63 68 61 72 20 2a 57 49 4e 41 50 49 nst char *WINAPI
1200: 20 69 6e 74 65 72 6f 70 5f 63 6f 6d 70 69 6c 65 interop_compile
1210: 6f 70 74 69 6f 6e 5f 67 65 74 28 69 6e 74 20 4e option_get(int N
1220: 29 7b 0d 0a 20 20 69 66 28 20 4e 3e 3d 30 20 26 ){.. if( N>=0 &
1230: 26 20 4e 3c 41 72 72 61 79 53 69 7a 65 28 61 7a & N<ArraySize(az
1240: 49 6e 74 65 72 6f 70 43 6f 6d 70 69 6c 65 4f 70 InteropCompileOp
1250: 74 29 20 29 7b 0d 0a 20 20 20 20 72 65 74 75 72 t) ){.. retur
1260: 6e 20 61 7a 49 6e 74 65 72 6f 70 43 6f 6d 70 69 n azInteropCompi
1270: 6c 65 4f 70 74 5b 4e 5d 3b 0d 0a 20 20 7d 0d 0a leOpt[N];.. }..
1280: 20 20 72 65 74 75 72 6e 20 30 3b 0d 0a 7d 0d 0a return 0;..}..
1290: 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e ..#if defined(IN
12a0: 54 45 52 4f 50 5f 44 45 42 55 47 29 20 7c 7c 20 TEROP_DEBUG) ||
12b0: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
12c0: 4c 4f 47 29 0d 0a 53 51 4c 49 54 45 5f 50 52 49 LOG)..SQLITE_PRI
12d0: 56 41 54 45 20 76 6f 69 64 20 73 71 6c 69 74 65 VATE void sqlite
12e0: 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 63 6f 3InteropDebug(co
12f0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 6d 61 nst char *zForma
1300: 74 2c 20 2e 2e 2e 29 7b 0d 0a 20 20 76 61 5f 6c t, ...){.. va_l
1310: 69 73 74 20 61 70 3b 20 20 20 20 20 20 20 20 20 ist ap;
1320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1330: 2f 2a 20 56 61 72 61 72 67 20 6c 69 73 74 20 2a /* Vararg list *
1340: 2f 0d 0a 20 20 53 74 72 41 63 63 75 6d 20 61 63 /.. StrAccum ac
1350: 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c;
1360: 20 20 20 20 20 20 20 20 20 2f 2a 20 53 74 72 69 /* Stri
1370: 6e 67 20 61 63 63 75 6d 75 6c 61 74 6f 72 20 2a ng accumulator *
1380: 2f 0d 0a 20 20 63 68 61 72 20 7a 4d 73 67 5b 53 /.. char zMsg[S
1390: 51 4c 49 54 45 5f 50 52 49 4e 54 5f 42 55 46 5f QLITE_PRINT_BUF_
13a0: 53 49 5a 45 2a 33 5d 3b 20 2f 2a 20 43 6f 6d 70 SIZE*3]; /* Comp
13b0: 6c 65 74 65 20 6c 6f 67 20 6d 65 73 73 61 67 65 lete log message
13c0: 20 2a 2f 0d 0a 20 20 76 61 5f 73 74 61 72 74 28 */.. va_start(
13d0: 61 70 2c 20 7a 46 6f 72 6d 61 74 29 3b 0d 0a 23 ap, zFormat);..#
13e0: 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f if SQLITE_VERSIO
13f0: 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 38 N_NUMBER >= 3008
1400: 30 31 30 0d 0a 20 20 73 71 6c 69 74 65 33 53 74 010.. sqlite3St
1410: 72 41 63 63 75 6d 49 6e 69 74 28 26 61 63 63 2c rAccumInit(&acc,
1420: 20 30 2c 20 7a 4d 73 67 2c 20 73 69 7a 65 6f 66 0, zMsg, sizeof
1430: 28 7a 4d 73 67 29 2c 20 30 29 3b 0d 0a 23 65 6c (zMsg), 0);..#el
1440: 73 65 0d 0a 20 20 73 71 6c 69 74 65 33 53 74 72 se.. sqlite3Str
1450: 41 63 63 75 6d 49 6e 69 74 28 26 61 63 63 2c 20 AccumInit(&acc,
1460: 7a 4d 73 67 2c 20 73 69 7a 65 6f 66 28 7a 4d 73 zMsg, sizeof(zMs
1470: 67 29 2c 20 30 29 3b 0d 0a 20 20 61 63 63 2e 75 g), 0);.. acc.u
1480: 73 65 4d 61 6c 6c 6f 63 20 3d 20 30 3b 0d 0a 23 seMalloc = 0;..#
1490: 65 6e 64 69 66 0d 0a 20 20 73 71 6c 69 74 65 33 endif.. sqlite3
14a0: 56 58 50 72 69 6e 74 66 28 26 61 63 63 2c 20 30 VXPrintf(&acc, 0
14b0: 2c 20 7a 46 6f 72 6d 61 74 2c 20 61 70 29 3b 0d , zFormat, ap);.
14c0: 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0d 0a . va_end(ap);..
14d0: 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 #if SQLITE_VERSI
14e0: 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 ON_NUMBER >= 300
14f0: 37 30 31 33 0d 0a 20 20 73 71 6c 69 74 65 33 5f 7013.. sqlite3_
1500: 77 69 6e 33 32 5f 77 72 69 74 65 5f 64 65 62 75 win32_write_debu
1510: 67 28 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 g(sqlite3StrAccu
1520: 6d 46 69 6e 69 73 68 28 26 61 63 63 29 2c 20 2d mFinish(&acc), -
1530: 31 29 3b 0d 0a 23 65 6c 69 66 20 64 65 66 69 6e 1);..#elif defin
1540: 65 64 28 53 51 4c 49 54 45 5f 57 49 4e 33 32 5f ed(SQLITE_WIN32_
1550: 48 41 53 5f 41 4e 53 49 29 0d 0a 20 20 4f 75 74 HAS_ANSI).. Out
1560: 70 75 74 44 65 62 75 67 53 74 72 69 6e 67 41 28 putDebugStringA(
1570: 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 sqlite3StrAccumF
1580: 69 6e 69 73 68 28 26 61 63 63 29 29 3b 0d 0a 23 inish(&acc));..#
1590: 65 6c 69 66 20 64 65 66 69 6e 65 64 28 53 51 4c elif defined(SQL
15a0: 49 54 45 5f 57 49 4e 33 32 5f 48 41 53 5f 57 49 ITE_WIN32_HAS_WI
15b0: 44 45 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 4c 50 DE).. {.. LP
15c0: 57 53 54 52 20 7a 57 69 64 65 4d 73 67 20 3d 20 WSTR zWideMsg =
15d0: 75 74 66 38 54 6f 55 6e 69 63 6f 64 65 28 73 71 utf8ToUnicode(sq
15e0: 6c 69 74 65 33 53 74 72 41 63 63 75 6d 46 69 6e lite3StrAccumFin
15f0: 69 73 68 28 26 61 63 63 29 29 3b 0d 0a 20 20 20 ish(&acc));..
1600: 20 69 66 28 20 7a 57 69 64 65 4d 73 67 20 29 7b if( zWideMsg ){
1610: 0d 0a 20 20 20 20 20 20 4f 75 74 70 75 74 44 65 .. OutputDe
1620: 62 75 67 53 74 72 69 6e 67 57 28 7a 57 69 64 65 bugStringW(zWide
1630: 4d 73 67 29 3b 0d 0a 20 20 20 20 20 20 73 71 6c Msg);.. sql
1640: 69 74 65 33 5f 66 72 65 65 28 7a 57 69 64 65 4d ite3_free(zWideM
1650: 73 67 29 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d sg);.. }.. }
1660: 0d 0a 23 65 6c 73 65 0d 0a 20 20 66 70 72 69 6e ..#else.. fprin
1670: 74 66 28 73 74 64 65 72 72 2c 20 22 25 73 22 2c tf(stderr, "%s",
1680: 20 73 71 6c 69 74 65 33 53 74 72 41 63 63 75 6d sqlite3StrAccum
1690: 46 69 6e 69 73 68 28 26 61 63 63 29 29 3b 0d 0a Finish(&acc));..
16a0: 23 65 6e 64 69 66 0d 0a 7d 0d 0a 23 65 6e 64 69 #endif..}..#endi
16b0: 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 f....#if defined
16c0: 28 49 4e 54 45 52 4f 50 5f 4c 4f 47 29 0d 0a 53 (INTEROP_LOG)..S
16d0: 51 4c 49 54 45 5f 50 52 49 56 41 54 45 20 69 6e QLITE_PRIVATE in
16e0: 74 20 6c 6f 67 43 6f 6e 66 69 67 75 72 65 64 20 t logConfigured
16f0: 3d 20 30 3b 0d 0a 0d 0a 53 51 4c 49 54 45 5f 50 = 0;....SQLITE_P
1700: 52 49 56 41 54 45 20 76 6f 69 64 20 73 71 6c 69 RIVATE void sqli
1710: 74 65 33 49 6e 74 65 72 6f 70 4c 6f 67 43 61 6c te3InteropLogCal
1720: 6c 62 61 63 6b 28 76 6f 69 64 20 2a 70 41 72 67 lback(void *pArg
1730: 2c 20 69 6e 74 20 69 43 6f 64 65 2c 20 63 6f 6e , int iCode, con
1740: 73 74 20 63 68 61 72 20 2a 7a 4d 73 67 29 7b 0d st char *zMsg){.
1750: 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f . sqlite3Intero
1760: 70 44 65 62 75 67 28 22 49 4e 54 45 52 4f 50 5f pDebug("INTEROP_
1770: 4c 4f 47 20 28 25 64 29 20 25 73 5c 6e 22 2c 20 LOG (%d) %s\n",
1780: 69 43 6f 64 65 2c 20 7a 4d 73 67 29 3b 0d 0a 7d iCode, zMsg);..}
1790: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 53 51 4c 49 ..#endif....SQLI
17a0: 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 TE_API int WINAP
17b0: 49 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 I sqlite3_malloc
17c0: 5f 73 69 7a 65 5f 69 6e 74 65 72 6f 70 28 76 6f _size_interop(vo
17d0: 69 64 20 2a 70 29 7b 0d 0a 20 20 72 65 74 75 72 id *p){.. retur
17e0: 6e 20 73 71 6c 69 74 65 33 4d 61 6c 6c 6f 63 53 n sqlite3MallocS
17f0: 69 7a 65 28 70 29 3b 0d 0a 7d 0d 0a 0d 0a 23 69 ize(p);..}....#i
1800: 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f f defined(INTERO
1810: 50 5f 4c 45 47 41 43 59 5f 43 4c 4f 53 45 29 20 P_LEGACY_CLOSE)
1820: 7c 7c 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f || SQLITE_VERSIO
1830: 4e 5f 4e 55 4d 42 45 52 20 3c 20 33 30 30 37 30 N_NUMBER < 30070
1840: 31 34 0d 0a 53 51 4c 49 54 45 5f 50 52 49 56 41 14..SQLITE_PRIVA
1850: 54 45 20 76 6f 69 64 20 2a 20 73 71 6c 69 74 65 TE void * sqlite
1860: 33 44 62 4d 61 6c 6c 6f 63 5a 65 72 6f 5f 69 6e 3DbMallocZero_in
1870: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 terop(sqlite3 *d
1880: 62 2c 20 69 6e 74 20 6e 29 0d 0a 7b 0d 0a 20 20 b, int n)..{..
1890: 76 6f 69 64 20 2a 70 3b 0d 0a 20 20 69 66 20 28 void *p;.. if (
18a0: 64 62 29 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 db) {.. sqlit
18b0: 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 e3_mutex_enter(d
18c0: 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d b->mutex);.. }.
18d0: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 44 62 . p = sqlite3Db
18e0: 4d 61 6c 6c 6f 63 5a 65 72 6f 28 64 62 2c 6e 29 MallocZero(db,n)
18f0: 3b 0d 0a 20 20 69 66 20 28 64 62 29 20 7b 0d 0a ;.. if (db) {..
1900: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
1910: 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
1920: 78 29 3b 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 x);.. }.. retu
1930: 72 6e 20 70 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 rn p;..}....SQLI
1940: 54 45 5f 50 52 49 56 41 54 45 20 76 6f 69 64 20 TE_PRIVATE void
1950: 73 71 6c 69 74 65 33 44 62 46 72 65 65 5f 69 6e sqlite3DbFree_in
1960: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 terop(sqlite3 *d
1970: 62 2c 20 76 6f 69 64 20 2a 70 29 0d 0a 7b 0d 0a b, void *p)..{..
1980: 20 20 69 66 20 28 64 62 29 20 7b 0d 0a 20 20 20 if (db) {..
1990: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 sqlite3_mutex_e
19a0: 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b nter(db->mutex);
19b0: 0d 0a 20 20 7d 0d 0a 20 20 69 66 20 28 70 29 20 .. }.. if (p)
19c0: 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 33 4d 65 {.. sqlite3Me
19d0: 6d 64 65 62 75 67 53 65 74 54 79 70 65 28 70 2c mdebugSetType(p,
19e0: 20 4d 45 4d 54 59 50 45 5f 44 42 7c 4d 45 4d 54 MEMTYPE_DB|MEMT
19f0: 59 50 45 5f 48 45 41 50 29 3b 0d 0a 20 20 7d 0d YPE_HEAP);.. }.
1a00: 0a 20 20 73 71 6c 69 74 65 33 44 62 46 72 65 65 . sqlite3DbFree
1a10: 28 64 62 2c 70 29 3b 0d 0a 20 20 69 66 20 28 64 (db,p);.. if (d
1a20: 62 29 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 65 b) {.. sqlite
1a30: 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 64 62 3_mutex_leave(db
1a40: 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a ->mutex);.. }..
1a50: 7d 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 2f 2a 0d }..#endif..../*.
1a60: 0a 20 20 20 20 54 68 65 20 67 6f 61 6c 20 6f 66 . The goal of
1a70: 20 74 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 this version of
1a80: 20 63 6c 6f 73 65 20 69 73 20 64 69 66 66 65 72 close is differ
1a90: 65 6e 74 20 74 68 61 6e 20 74 68 61 74 20 6f 66 ent than that of
1aa0: 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 29 sqlite3_close()
1ab0: 2c 20 61 6e 64 20 69 73 20 64 65 73 69 67 6e 65 , and is designe
1ac0: 64 20 74 6f 20 6c 65 6e 64 20 69 74 73 65 6c 66 d to lend itself
1ad0: 20 62 65 74 74 65 72 20 74 6f 20 2e 4e 45 54 27 better to .NET'
1ae0: 73 20 6e 6f 6e 2d 64 65 74 65 72 6d 69 6e 69 73 s non-determinis
1af0: 74 69 63 20 66 69 6e 61 6c 69 7a 65 72 73 20 61 tic finalizers a
1b00: 6e 64 0d 0a 20 20 20 20 74 68 65 20 47 43 20 74 nd.. the GC t
1b10: 68 72 65 61 64 2e 20 20 53 51 4c 69 74 65 20 77 hread. SQLite w
1b20: 69 6c 6c 20 6e 6f 74 20 63 6c 6f 73 65 20 61 20 ill not close a
1b30: 64 61 74 61 62 61 73 65 20 69 66 20 73 74 61 74 database if stat
1b40: 65 6d 65 6e 74 73 20 61 72 65 20 6f 70 65 6e 20 ements are open
1b50: 6f 6e 20 69 74 20 2d 2d 20 62 75 74 20 66 6f 72 on it -- but for
1b60: 20 6f 75 72 20 70 75 72 70 6f 73 65 73 2c 20 77 our purposes, w
1b70: 65 27 64 20 72 61 74 68 65 72 20 66 69 6e 61 6c e'd rather final
1b80: 69 7a 65 20 61 6c 6c 20 61 63 74 69 76 65 20 73 ize all active s
1b90: 74 61 74 65 6d 65 6e 74 73 0d 0a 20 20 20 20 61 tatements.. a
1ba0: 6e 64 20 66 6f 72 63 69 62 6c 79 20 63 6c 6f 73 nd forcibly clos
1bb0: 65 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 e the database.
1bc0: 20 54 68 65 20 72 65 61 73 6f 6e 20 69 73 20 73 The reason is s
1bd0: 69 6d 70 6c 65 20 2d 2d 20 61 20 6c 6f 74 20 6f imple -- a lot o
1be0: 66 20 70 65 6f 70 6c 65 20 64 6f 6e 27 74 20 44 f people don't D
1bf0: 69 73 70 6f 73 65 28 29 20 6f 66 20 74 68 65 69 ispose() of thei
1c00: 72 20 6f 62 6a 65 63 74 73 20 63 6f 72 72 65 63 r objects correc
1c10: 74 6c 79 20 61 6e 64 20 6c 65 74 20 74 68 65 20 tly and let the
1c20: 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 6f garbage collecto
1c30: 72 0d 0a 20 20 20 20 64 6f 20 69 74 2e 20 20 54 r.. do it. T
1c40: 68 69 73 20 6c 65 61 64 73 20 74 6f 20 75 6e 65 his leads to une
1c50: 78 70 65 63 74 65 64 20 62 65 68 61 76 69 6f 72 xpected behavior
1c60: 20 77 68 65 6e 20 61 20 75 73 65 72 20 74 68 69 when a user thi
1c70: 6e 6b 73 20 74 68 65 79 27 76 65 20 63 6c 6f 73 nks they've clos
1c80: 65 64 20 61 20 64 61 74 61 62 61 73 65 2c 20 62 ed a database, b
1c90: 75 74 20 69 74 27 73 20 73 74 69 6c 6c 20 6f 70 ut it's still op
1ca0: 65 6e 20 62 65 63 61 75 73 65 20 6e 6f 74 20 61 en because not a
1cb0: 6c 6c 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 ll the statement
1cc0: 73 20 68 61 76 65 0d 0a 20 20 20 20 68 69 74 20 s have.. hit
1cd0: 74 68 65 20 47 43 20 79 65 74 2e 0d 0a 0d 0a 20 the GC yet.....
1ce0: 20 20 20 53 6f 2c 20 68 65 72 65 20 77 65 20 68 So, here we h
1cf0: 61 76 65 20 61 20 70 72 6f 62 6c 65 6d 20 2e 2e ave a problem ..
1d00: 2e 20 2e 4e 45 54 20 68 61 73 20 61 20 70 6f 69 . .NET has a poi
1d10: 6e 74 65 72 20 74 6f 20 61 6e 79 20 6e 75 6d 62 nter to any numb
1d20: 65 72 20 6f 66 20 73 71 6c 69 74 65 33 5f 73 74 er of sqlite3_st
1d30: 6d 74 20 6f 62 6a 65 63 74 73 2e 20 20 57 65 20 mt objects. We
1d40: 63 61 6e 27 74 20 63 61 6c 6c 20 73 71 6c 69 74 can't call sqlit
1d50: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 29 20 6f 6e e3_finalize() on
1d60: 20 74 68 65 73 65 20 62 65 63 61 75 73 65 0d 0a these because..
1d70: 20 20 20 20 74 68 65 69 72 20 6d 65 6d 6f 72 79 their memory
1d80: 20 69 73 20 66 72 65 65 64 20 61 6e 64 20 63 61 is freed and ca
1d90: 6e 20 62 65 20 75 73 65 64 20 66 6f 72 20 73 6f n be used for so
1da0: 6d 65 74 68 69 6e 67 20 65 6c 73 65 2e 20 20 54 mething else. T
1db0: 68 65 20 47 43 20 74 68 72 65 61 64 20 63 6f 75 he GC thread cou
1dc0: 6c 64 20 70 6f 74 65 6e 74 69 61 6c 6c 79 20 74 ld potentially t
1dd0: 72 79 20 61 6e 64 20 63 61 6c 6c 20 66 69 6e 61 ry and call fina
1de0: 6c 69 7a 65 20 61 67 61 69 6e 20 6f 6e 20 74 68 lize again on th
1df0: 65 20 73 74 61 74 65 6d 65 6e 74 20 61 66 74 65 e statement afte
1e00: 72 0d 0a 20 20 20 20 74 68 61 74 20 6d 65 6d 6f r.. that memo
1e10: 72 79 20 77 61 73 20 64 65 61 6c 6c 6f 63 61 74 ry was deallocat
1e20: 65 64 2e 20 20 42 41 44 2e 20 20 53 6f 2c 20 77 ed. BAD. So, w
1e30: 68 61 74 20 77 65 20 6e 65 65 64 20 74 6f 20 64 hat we need to d
1e40: 6f 20 69 73 20 6d 61 6b 65 20 61 20 63 6f 70 79 o is make a copy
1e50: 20 6f 66 20 65 61 63 68 20 73 74 61 74 65 6d 65 of each stateme
1e60: 6e 74 2c 20 61 6e 64 20 63 61 6c 6c 20 66 69 6e nt, and call fin
1e70: 61 6c 69 7a 65 28 29 20 6f 6e 20 74 68 65 20 63 alize() on the c
1e80: 6f 70 79 20 2d 2d 20 73 6f 20 74 68 61 74 20 74 opy -- so that t
1e90: 68 65 20 6f 72 69 67 69 6e 61 6c 0d 0a 20 20 20 he original..
1ea0: 20 73 74 61 74 65 6d 65 6e 74 27 73 20 6d 65 6d statement's mem
1eb0: 6f 72 79 20 69 73 20 70 72 65 73 65 72 76 65 64 ory is preserved
1ec0: 2c 20 61 6e 64 20 6d 61 72 6b 65 64 20 61 73 20 , and marked as
1ed0: 42 41 44 2c 20 62 75 74 20 77 65 20 63 61 6e 20 BAD, but we can
1ee0: 73 74 69 6c 6c 20 6d 61 6e 61 67 65 20 74 6f 20 still manage to
1ef0: 66 69 6e 61 6c 69 7a 65 20 65 76 65 72 79 74 68 finalize everyth
1f00: 69 6e 67 20 61 6e 64 20 66 6f 72 63 69 62 6c 79 ing and forcibly
1f10: 20 63 6c 6f 73 65 20 74 68 65 20 64 61 74 61 62 close the datab
1f20: 61 73 65 2e 20 20 4c 61 74 65 72 20 77 68 65 6e ase. Later when
1f30: 20 74 68 65 0d 0a 20 20 20 20 47 43 20 67 65 74 the.. GC get
1f40: 73 20 61 72 6f 75 6e 64 20 74 6f 20 63 61 6c 6c s around to call
1f50: 69 6e 67 20 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 ing finalize_int
1f60: 65 72 6f 70 28 29 20 6f 6e 20 74 68 65 20 22 62 erop() on the "b
1f70: 61 64 22 20 73 74 61 74 65 6d 65 6e 74 2c 20 77 ad" statement, w
1f80: 65 20 64 65 74 65 63 74 20 74 68 61 74 20 61 6e e detect that an
1f90: 64 20 66 69 6e 69 73 68 20 64 65 61 6c 6c 6f 63 d finish dealloc
1fa0: 61 74 69 6e 67 20 74 68 65 20 70 6f 69 6e 74 65 ating the pointe
1fb0: 72 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 41 r...*/..SQLITE_A
1fc0: 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 PI int WINAPI sq
1fd0: 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 69 6e 74 65 lite3_close_inte
1fe0: 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 62 29 rop(sqlite3 *db)
1ff0: 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d ..{.. int ret;.
2000: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 49 4e .#if !defined(IN
2010: 54 45 52 4f 50 5f 4c 45 47 41 43 59 5f 43 4c 4f TEROP_LEGACY_CLO
2020: 53 45 29 20 26 26 20 53 51 4c 49 54 45 5f 56 45 SE) && SQLITE_VE
2030: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 RSION_NUMBER >=
2040: 33 30 30 37 30 31 34 0d 0a 0d 0a 23 69 66 20 64 3007014....#if d
2050: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 efined(INTEROP_D
2060: 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f EBUG) && (INTERO
2070: 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f P_DEBUG & INTERO
2080: 50 5f 44 45 42 55 47 5f 43 4c 4f 53 45 29 0d 0a P_DEBUG_CLOSE)..
2090: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
20a0: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 63 Debug("sqlite3_c
20b0: 6c 6f 73 65 5f 69 6e 74 65 72 6f 70 28 29 3a 20 lose_interop():
20c0: 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f calling sqlite3_
20d0: 63 6c 6f 73 65 5f 76 32 28 25 70 29 2e 2e 2e 5c close_v2(%p)...\
20e0: 6e 22 2c 20 64 62 29 3b 0d 0a 23 65 6e 64 69 66 n", db);..#endif
20f0: 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 .... ret = sqli
2100: 74 65 33 5f 63 6c 6f 73 65 5f 76 32 28 64 62 29 te3_close_v2(db)
2110: 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 ;....#if defined
2120: 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 (INTEROP_DEBUG)
2130: 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 && (INTEROP_DEBU
2140: 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 G & INTEROP_DEBU
2150: 47 5f 43 4c 4f 53 45 29 0d 0a 20 20 73 71 6c 69 G_CLOSE).. sqli
2160: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
2170: 22 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 5f 69 "sqlite3_close_i
2180: 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 nterop(): sqlite
2190: 33 5f 63 6c 6f 73 65 5f 76 32 28 25 70 29 20 72 3_close_v2(%p) r
21a0: 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 eturned %d.\n",
21b0: 64 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 db, ret);..#endi
21c0: 66 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 f.... return re
21d0: 74 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 72 65 74 t;..#else.. ret
21e0: 20 3d 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 = sqlite3_close
21f0: 28 64 62 29 3b 0d 0a 0d 0a 20 20 69 66 20 28 72 (db);.... if (r
2200: 65 74 20 3d 3d 20 53 51 4c 49 54 45 5f 42 55 53 et == SQLITE_BUS
2210: 59 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 73 71 6c Y).. {.. sql
2220: 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 ite3_mutex_enter
2230: 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 0d 0a (db->mutex);....
2240: 20 20 20 20 69 66 20 28 21 64 62 2d 3e 70 56 64 if (!db->pVd
2250: 62 65 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 be).. {..
2260: 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f sqlite3_mutex_
2270: 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 78 29 leave(db->mutex)
2280: 3b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ;.. return
2290: 72 65 74 3b 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 ret;.. }....
22a0: 20 20 20 77 68 69 6c 65 20 28 64 62 2d 3e 70 56 while (db->pV
22b0: 64 62 65 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 dbe).. {..
22c0: 20 20 20 2f 2a 20 4d 61 6b 65 20 61 20 63 6f 70 /* Make a cop
22d0: 79 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 70 y of the first p
22e0: 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e repared statemen
22f0: 74 20 2a 2f 0d 0a 20 20 20 20 20 20 56 64 62 65 t */.. Vdbe
2300: 20 2a 70 20 3d 20 28 56 64 62 65 20 2a 29 73 71 *p = (Vdbe *)sq
2310: 6c 69 74 65 33 44 62 4d 61 6c 6c 6f 63 5a 65 72 lite3DbMallocZer
2320: 6f 5f 69 6e 74 65 72 6f 70 28 64 62 2c 20 73 69 o_interop(db, si
2330: 7a 65 6f 66 28 56 64 62 65 29 29 3b 0d 0a 20 20 zeof(Vdbe));..
2340: 20 20 20 20 56 64 62 65 20 2a 70 6f 20 3d 20 64 Vdbe *po = d
2350: 62 2d 3e 70 56 64 62 65 3b 0d 0a 0d 0a 20 20 20 b->pVdbe;....
2360: 20 20 20 69 66 20 28 21 70 29 0d 0a 20 20 20 20 if (!p)..
2370: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 {.. ret
2380: 20 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b = SQLITE_NOMEM;
2390: 0d 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b .. break;
23a0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
23b0: 20 20 20 43 6f 70 79 4d 65 6d 6f 72 79 28 70 2c CopyMemory(p,
23c0: 20 70 6f 2c 20 73 69 7a 65 6f 66 28 56 64 62 65 po, sizeof(Vdbe
23d0: 29 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 2f 2a 20 ));.... /*
23e0: 50 75 74 20 69 74 20 6f 6e 20 74 68 65 20 63 68 Put it on the ch
23f0: 61 69 6e 20 73 6f 20 77 65 20 63 61 6e 20 66 72 ain so we can fr
2400: 65 65 20 69 74 20 2a 2f 0d 0a 20 20 20 20 20 20 ee it */..
2410: 64 62 2d 3e 70 56 64 62 65 20 3d 20 70 3b 0d 0a db->pVdbe = p;..
2420: 20 20 20 20 20 20 72 65 74 20 3d 20 73 71 6c 69 ret = sqli
2430: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 28 73 71 te3_finalize((sq
2440: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 29 70 29 3b lite3_stmt *)p);
2450: 20 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 61 6c /* This will al
2460: 73 6f 20 66 72 65 65 20 74 68 65 20 63 6f 70 79 so free the copy
2470: 27 73 20 6d 65 6d 6f 72 79 20 2a 2f 0d 0a 20 20 's memory */..
2480: 20 20 20 20 69 66 20 28 72 65 74 29 0d 0a 20 20 if (ret)..
2490: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 2f {.. /
24a0: 2a 20 66 69 6e 61 6c 69 7a 65 20 66 61 69 6c 65 * finalize faile
24b0: 64 20 2d 2d 20 73 6f 20 77 65 20 6d 75 73 74 20 d -- so we must
24c0: 70 75 74 20 62 61 63 6b 20 61 6e 79 74 68 69 6e put back anythin
24d0: 67 20 77 65 20 6d 75 6e 67 65 64 20 2a 2f 0d 0a g we munged */..
24e0: 20 20 20 20 20 20 20 20 43 6f 70 79 4d 65 6d 6f CopyMemo
24f0: 72 79 28 70 6f 2c 20 70 2c 20 73 69 7a 65 6f 66 ry(po, p, sizeof
2500: 28 56 64 62 65 29 29 3b 0d 0a 20 20 20 20 20 20 (Vdbe));..
2510: 20 20 64 62 2d 3e 70 56 64 62 65 20 3d 20 70 6f db->pVdbe = po
2520: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 2f 2a 0d ;.... /*.
2530: 0a 20 20 20 20 20 20 20 20 2a 2a 20 4e 4f 54 45 . ** NOTE
2540: 3a 20 4f 6b 2c 20 77 65 20 6d 75 73 74 20 66 72 : Ok, we must fr
2550: 65 65 20 74 68 69 73 20 62 6c 6f 63 6b 20 74 68 ee this block th
2560: 61 74 20 2a 77 65 2a 20 61 6c 6c 6f 63 61 74 65 at *we* allocate
2570: 64 20 28 61 62 6f 76 65 29 20 73 69 6e 63 65 0d d (above) since.
2580: 0a 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 . **
2590: 20 20 66 69 6e 61 6c 69 7a 65 20 64 69 64 20 6e finalize did n
25a0: 6f 74 20 64 6f 20 73 6f 2e 0d 0a 20 20 20 20 20 ot do so...
25b0: 20 20 20 2a 2f 0d 0a 20 20 20 20 20 20 20 20 73 */.. s
25c0: 71 6c 69 74 65 33 44 62 46 72 65 65 5f 69 6e 74 qlite3DbFree_int
25d0: 65 72 6f 70 28 64 62 2c 20 70 29 3b 0d 0a 20 20 erop(db, p);..
25e0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 break;..
25f0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 65 6c 73 }.. els
2600: 65 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 e.. {..
2610: 20 20 20 20 5a 65 72 6f 4d 65 6d 6f 72 79 28 70 ZeroMemory(p
2620: 6f 2c 20 73 69 7a 65 6f 66 28 56 64 62 65 29 29 o, sizeof(Vdbe))
2630: 3b 0d 0a 20 20 20 20 20 20 20 20 70 6f 2d 3e 6d ;.. po->m
2640: 61 67 69 63 20 3d 20 56 44 42 45 5f 4d 41 47 49 agic = VDBE_MAGI
2650: 43 5f 44 45 41 44 3b 0d 0a 20 20 20 20 20 20 7d C_DEAD;.. }
2660: 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 73 71 6c .. }.. sql
2670: 69 74 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 ite3_mutex_leave
2680: 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 20 20 (db->mutex);..
2690: 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 5f ret = sqlite3_
26a0: 63 6c 6f 73 65 28 64 62 29 3b 0d 0a 20 20 7d 0d close(db);.. }.
26b0: 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a . return ret;..
26c0: 23 65 6e 64 69 66 0d 0a 7d 0d 0a 0d 0a 23 69 66 #endif..}....#if
26d0: 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 defined(INTEROP
26e0: 5f 4c 4f 47 29 0d 0a 53 51 4c 49 54 45 5f 41 50 _LOG)..SQLITE_AP
26f0: 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c I int WINAPI sql
2700: 69 74 65 33 5f 63 6f 6e 66 69 67 5f 6c 6f 67 5f ite3_config_log_
2710: 69 6e 74 65 72 6f 70 28 29 0d 0a 7b 0d 0a 20 20 interop()..{..
2720: 69 6e 74 20 72 65 74 3b 0d 0a 20 20 69 66 28 20 int ret;.. if(
2730: 21 6c 6f 67 43 6f 6e 66 69 67 75 72 65 64 20 29 !logConfigured )
2740: 7b 0d 0a 20 20 20 20 72 65 74 20 3d 20 73 71 6c {.. ret = sql
2750: 69 74 65 33 5f 63 6f 6e 66 69 67 28 53 51 4c 49 ite3_config(SQLI
2760: 54 45 5f 43 4f 4e 46 49 47 5f 4c 4f 47 2c 20 73 TE_CONFIG_LOG, s
2770: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 4c 6f 67 qlite3InteropLog
2780: 43 61 6c 6c 62 61 63 6b 2c 20 30 29 3b 0d 0a 20 Callback, 0);..
2790: 20 20 20 69 66 28 20 72 65 74 3d 3d 53 51 4c 49 if( ret==SQLI
27a0: 54 45 5f 4f 4b 20 29 7b 0d 0a 20 20 20 20 20 20 TE_OK ){..
27b0: 6c 6f 67 43 6f 6e 66 69 67 75 72 65 64 20 3d 20 logConfigured =
27c0: 31 3b 0d 0a 20 20 20 20 7d 65 6c 73 65 7b 0d 0a 1;.. }else{..
27d0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 49 6e 74 sqlite3Int
27e0: 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 eropDebug("sqlit
27f0: 65 33 5f 63 6f 6e 66 69 67 5f 6c 6f 67 5f 69 6e e3_config_log_in
2800: 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 terop(): sqlite3
2810: 5f 63 6f 6e 66 69 67 28 53 51 4c 49 54 45 5f 43 _config(SQLITE_C
2820: 4f 4e 46 49 47 5f 4c 4f 47 29 20 72 65 74 75 72 ONFIG_LOG) retur
2830: 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 72 65 74 29 ned %d.\n", ret)
2840: 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 65 6c 73 ;.. }.. }els
2850: 65 7b 0d 0a 20 20 20 20 72 65 74 20 3d 20 53 51 e{.. ret = SQ
2860: 4c 49 54 45 5f 4f 4b 3b 0d 0a 20 20 7d 0d 0a 20 LITE_OK;.. }..
2870: 20 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d return ret;..}.
2880: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 53 51 4c 49 54 .#endif....SQLIT
2890: 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 72 E_API const char
28a0: 20 2a 57 49 4e 41 50 49 20 69 6e 74 65 72 6f 70 *WINAPI interop
28b0: 5f 6c 69 62 76 65 72 73 69 6f 6e 28 76 6f 69 64 _libversion(void
28c0: 29 0d 0a 7b 0d 0a 20 20 72 65 74 75 72 6e 20 49 )..{.. return I
28d0: 4e 54 45 52 4f 50 5f 56 45 52 53 49 4f 4e 3b 0d NTEROP_VERSION;.
28e0: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
28f0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 57 49 4e const char *WIN
2900: 41 50 49 20 69 6e 74 65 72 6f 70 5f 73 6f 75 72 API interop_sour
2910: 63 65 69 64 28 76 6f 69 64 29 0d 0a 7b 0d 0a 20 ceid(void)..{..
2920: 20 72 65 74 75 72 6e 20 49 4e 54 45 52 4f 50 5f return INTEROP_
2930: 53 4f 55 52 43 45 5f 49 44 20 22 20 22 20 49 4e SOURCE_ID " " IN
2940: 54 45 52 4f 50 5f 53 4f 55 52 43 45 5f 54 49 4d TEROP_SOURCE_TIM
2950: 45 53 54 41 4d 50 3b 0d 0a 7d 0d 0a 0d 0a 53 51 ESTAMP;..}....SQ
2960: 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e LITE_API int WIN
2970: 41 50 49 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e API sqlite3_open
2980: 5f 69 6e 74 65 72 6f 70 28 63 6f 6e 73 74 20 63 _interop(const c
2990: 68 61 72 20 2a 66 69 6c 65 6e 61 6d 65 2c 20 69 har *filename, i
29a0: 6e 74 20 66 6c 61 67 73 2c 20 73 71 6c 69 74 65 nt flags, sqlite
29b0: 33 20 2a 2a 70 70 64 62 29 0d 0a 7b 0d 0a 20 20 3 **ppdb)..{..
29c0: 69 6e 74 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 int ret;....#if
29d0: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
29e0: 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 DEBUG) && (INTER
29f0: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
2a00: 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e 29 0d 0a OP_DEBUG_OPEN)..
2a10: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
2a20: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f Debug("sqlite3_o
2a30: 70 65 6e 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 pen_interop(): c
2a40: 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 6f alling sqlite3_o
2a50: 70 65 6e 5f 76 32 28 5c 22 25 73 5c 22 2c 20 25 pen_v2(\"%s\", %
2a60: 64 2c 20 25 70 29 2e 2e 2e 5c 6e 22 2c 20 66 69 d, %p)...\n", fi
2a70: 6c 65 6e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 70 lename, flags, p
2a80: 70 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d pdb);..#endif...
2a90: 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 . ret = sqlite3
2aa0: 5f 6f 70 65 6e 5f 76 32 28 66 69 6c 65 6e 61 6d _open_v2(filenam
2ab0: 65 2c 20 70 70 64 62 2c 20 66 6c 61 67 73 2c 20 e, ppdb, flags,
2ac0: 4e 55 4c 4c 29 3b 0d 0a 0d 0a 23 69 66 20 64 65 NULL);....#if de
2ad0: 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 fined(INTEROP_DE
2ae0: 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 BUG) && (INTEROP
2af0: 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 _DEBUG & INTEROP
2b00: 5f 44 45 42 55 47 5f 4f 50 45 4e 29 0d 0a 20 20 _DEBUG_OPEN)..
2b10: 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 sqlite3InteropDe
2b20: 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f 70 65 bug("sqlite3_ope
2b30: 6e 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c n_interop(): sql
2b40: 69 74 65 33 5f 6f 70 65 6e 5f 76 32 28 5c 22 25 ite3_open_v2(\"%
2b50: 73 5c 22 2c 20 25 64 2c 20 25 70 29 20 72 65 74 s\", %d, %p) ret
2b60: 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 66 69 urned %d.\n", fi
2b70: 6c 65 6e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 70 lename, flags, p
2b80: 70 64 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 pdb, ret);..#end
2b90: 69 66 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 if....#if define
2ba0: 64 28 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53 d(INTEROP_EXTENS
2bb0: 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 29 0d 0a ION_FUNCTIONS)..
2bc0: 20 20 69 66 20 28 28 72 65 74 20 3d 3d 20 53 51 if ((ret == SQ
2bd0: 4c 49 54 45 5f 4f 4b 29 20 26 26 20 70 70 64 62 LITE_OK) && ppdb
2be0: 29 0d 0a 20 20 20 20 52 65 67 69 73 74 65 72 45 ).. RegisterE
2bf0: 78 74 65 6e 73 69 6f 6e 46 75 6e 63 74 69 6f 6e xtensionFunction
2c00: 73 28 2a 70 70 64 62 29 3b 0d 0a 23 65 6e 64 69 s(*ppdb);..#endi
2c10: 66 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 f.... return re
2c20: 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f t;..}....SQLITE_
2c30: 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 API int WINAPI s
2c40: 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 5f 69 6e qlite3_open16_in
2c50: 74 65 72 6f 70 28 63 6f 6e 73 74 20 63 68 61 72 terop(const char
2c60: 20 2a 66 69 6c 65 6e 61 6d 65 2c 20 69 6e 74 20 *filename, int
2c70: 66 6c 61 67 73 2c 20 73 71 6c 69 74 65 33 20 2a flags, sqlite3 *
2c80: 2a 70 70 64 62 29 0d 0a 7b 0d 0a 20 20 69 6e 74 *ppdb)..{.. int
2c90: 20 72 65 74 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 ret;....#if def
2ca0: 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 ined(INTEROP_DEB
2cb0: 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f UG) && (INTEROP_
2cc0: 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f DEBUG & INTEROP_
2cd0: 44 45 42 55 47 5f 4f 50 45 4e 31 36 29 0d 0a 20 DEBUG_OPEN16)..
2ce0: 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 sqlite3InteropD
2cf0: 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 6f 70 ebug("sqlite3_op
2d00: 65 6e 31 36 5f 69 6e 74 65 72 6f 70 28 29 3a 20 en16_interop():
2d10: 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f calling sqlite3_
2d20: 6f 70 65 6e 5f 69 6e 74 65 72 6f 70 28 5c 22 25 open_interop(\"%
2d30: 73 5c 22 2c 20 25 64 2c 20 25 70 29 2e 2e 2e 5c s\", %d, %p)...\
2d40: 6e 22 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 66 6c n", filename, fl
2d50: 61 67 73 2c 20 70 70 64 62 29 3b 0d 0a 23 65 6e ags, ppdb);..#en
2d60: 64 69 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 73 dif.... ret = s
2d70: 71 6c 69 74 65 33 5f 6f 70 65 6e 5f 69 6e 74 65 qlite3_open_inte
2d80: 72 6f 70 28 66 69 6c 65 6e 61 6d 65 2c 20 66 6c rop(filename, fl
2d90: 61 67 73 2c 20 70 70 64 62 29 3b 0d 0a 0d 0a 23 ags, ppdb);....#
2da0: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
2db0: 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e OP_DEBUG) && (IN
2dc0: 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e TEROP_DEBUG & IN
2dd0: 54 45 52 4f 50 5f 44 45 42 55 47 5f 4f 50 45 4e TEROP_DEBUG_OPEN
2de0: 31 36 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 16).. sqlite3In
2df0: 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 teropDebug("sqli
2e00: 74 65 33 5f 6f 70 65 6e 31 36 5f 69 6e 74 65 72 te3_open16_inter
2e10: 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 6f 70 op(): sqlite3_op
2e20: 65 6e 5f 69 6e 74 65 72 6f 70 28 5c 22 25 73 5c en_interop(\"%s\
2e30: 22 2c 20 25 64 2c 20 25 70 29 20 72 65 74 75 72 ", %d, %p) retur
2e40: 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 66 69 6c 65 ned %d.\n", file
2e50: 6e 61 6d 65 2c 20 66 6c 61 67 73 2c 20 70 70 64 name, flags, ppd
2e60: 62 2c 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 b, ret);..#endif
2e70: 0d 0a 0d 0a 20 20 69 66 20 28 28 72 65 74 20 3d .... if ((ret =
2e80: 3d 20 53 51 4c 49 54 45 5f 4f 4b 29 20 26 26 20 = SQLITE_OK) &&
2e90: 70 70 64 62 20 26 26 20 21 44 62 48 61 73 50 72 ppdb && !DbHasPr
2ea0: 6f 70 65 72 74 79 28 2a 70 70 64 62 2c 20 30 2c operty(*ppdb, 0,
2eb0: 20 44 42 5f 53 63 68 65 6d 61 4c 6f 61 64 65 64 DB_SchemaLoaded
2ec0: 29 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 45 4e 43 )).. {.. ENC
2ed0: 28 2a 70 70 64 62 29 20 3d 20 53 51 4c 49 54 45 (*ppdb) = SQLITE
2ee0: 5f 55 54 46 31 36 4e 41 54 49 56 45 3b 0d 0a 0d _UTF16NATIVE;...
2ef0: 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 .#if SQLITE_VERS
2f00: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 ION_NUMBER >= 30
2f10: 30 38 30 30 38 0d 0a 20 20 20 20 2f 2f 0d 0a 20 08008.. //..
2f20: 20 20 20 2f 2f 20 42 55 47 46 49 58 3a 20 53 65 // BUGFIX: Se
2f30: 65 20 74 69 63 6b 65 74 20 5b 37 63 31 35 31 61 e ticket [7c151a
2f40: 32 66 30 65 32 32 38 30 34 63 5d 2e 0d 0a 20 20 2f0e22804c]...
2f50: 20 20 2f 2f 0d 0a 20 20 20 20 53 43 48 45 4d 41 //.. SCHEMA
2f60: 5f 45 4e 43 28 2a 70 70 64 62 29 20 3d 20 53 51 _ENC(*ppdb) = SQ
2f70: 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 49 56 45 LITE_UTF16NATIVE
2f80: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 7d 0d 0a ;..#endif.. }..
2f90: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
2fa0: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
2fb0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 57 49 4e const char *WIN
2fc0: 41 50 49 20 73 71 6c 69 74 65 33 5f 65 72 72 6d API sqlite3_errm
2fd0: 73 67 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 sg_interop(sqlit
2fe0: 65 33 20 2a 64 62 2c 20 69 6e 74 20 2a 70 6c 65 e3 *db, int *ple
2ff0: 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 n)..{.. const c
3000: 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 har *pval = sqli
3010: 74 65 33 5f 65 72 72 6d 73 67 28 64 62 29 3b 0d te3_errmsg(db);.
3020: 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c . if (plen) *pl
3030: 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 6c en = pval ? strl
3040: 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 en(pval) : 0;..
3050: 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d return pval;..}
3060: 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 ....SQLITE_API i
3070: 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 nt WINAPI sqlite
3080: 33 5f 63 68 61 6e 67 65 73 5f 69 6e 74 65 72 6f 3_changes_intero
3090: 70 28 73 71 6c 69 74 65 33 20 2a 64 62 29 0d 0a p(sqlite3 *db)..
30a0: 7b 0d 0a 20 20 69 6e 74 20 72 65 73 75 6c 74 3b {.. int result;
30b0: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
30c0: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 INTEROP_DEBUG) &
30d0: 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 & (INTEROP_DEBUG
30e0: 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 & INTEROP_DEBUG
30f0: 5f 43 48 41 4e 47 45 53 29 0d 0a 20 20 73 71 6c _CHANGES).. sql
3100: 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 ite3InteropDebug
3110: 28 22 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 ("sqlite3_change
3120: 73 5f 69 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c s_interop(): cal
3130: 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f 63 68 61 ling sqlite3_cha
3140: 6e 67 65 73 28 25 70 29 2e 2e 2e 5c 6e 22 2c 20 nges(%p)...\n",
3150: 64 62 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a db);..#endif....
3160: 23 69 66 6e 64 65 66 20 4e 44 45 42 55 47 0d 0a #ifndef NDEBUG..
3170: 20 20 69 66 20 28 21 64 62 29 0d 0a 20 20 20 20 if (!db)..
3180: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
3190: 42 72 65 61 6b 28 22 6e 75 6c 6c 20 64 61 74 61 Break("null data
31a0: 62 61 73 65 20 68 61 6e 64 6c 65 20 66 6f 72 20 base handle for
31b0: 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 28 sqlite3_changes(
31c0: 29 22 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a )");..#endif....
31d0: 20 20 72 65 73 75 6c 74 20 3d 20 73 71 6c 69 74 result = sqlit
31e0: 65 33 5f 63 68 61 6e 67 65 73 28 64 62 29 3b 0d e3_changes(db);.
31f0: 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 ...#if defined(I
3200: 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 NTEROP_DEBUG) &&
3210: 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 (INTEROP_DEBUG
3220: 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f & INTEROP_DEBUG_
3230: 43 48 41 4e 47 45 53 29 0d 0a 20 20 73 71 6c 69 CHANGES).. sqli
3240: 74 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 te3InteropDebug(
3250: 22 73 71 6c 69 74 65 33 5f 63 68 61 6e 67 65 73 "sqlite3_changes
3260: 5f 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 _interop(): sqli
3270: 74 65 33 5f 63 68 61 6e 67 65 73 28 25 70 29 20 te3_changes(%p)
3280: 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c returned %d.\n",
3290: 20 64 62 2c 20 72 65 73 75 6c 74 29 3b 0d 0a 23 db, result);..#
32a0: 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 75 72 endif.... retur
32b0: 6e 20 72 65 73 75 6c 74 3b 0d 0a 7d 0d 0a 0d 0a n result;..}....
32c0: 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 SQLITE_API int W
32d0: 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 70 72 INAPI sqlite3_pr
32e0: 65 70 61 72 65 5f 69 6e 74 65 72 6f 70 28 73 71 epare_interop(sq
32f0: 6c 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 lite3 *db, const
3300: 20 63 68 61 72 20 2a 73 71 6c 2c 20 69 6e 74 20 char *sql, int
3310: 6e 62 79 74 65 73 2c 20 73 71 6c 69 74 65 33 5f nbytes, sqlite3_
3320: 73 74 6d 74 20 2a 2a 70 70 73 74 6d 74 2c 20 63 stmt **ppstmt, c
3330: 6f 6e 73 74 20 63 68 61 72 20 2a 2a 70 7a 74 61 onst char **pzta
3340: 69 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a il, int *plen)..
3350: 7b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 23 {.. int n;....#
3360: 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 52 if defined(INTER
3370: 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 4e OP_DEBUG) && (IN
3380: 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 4e TEROP_DEBUG & IN
3390: 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 TEROP_DEBUG_PREP
33a0: 41 52 45 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 ARE).. sqlite3I
33b0: 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 6c nteropDebug("sql
33c0: 69 74 65 33 5f 70 72 65 70 61 72 65 5f 69 6e 74 ite3_prepare_int
33d0: 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e 67 20 erop(): calling
33e0: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 28 sqlite3_prepare(
33f0: 25 70 2c 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 %p, \"%s\", %d,
3400: 25 70 29 2e 2e 2e 5c 6e 22 2c 20 64 62 2c 20 73 %p)...\n", db, s
3410: 71 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 73 74 ql, nbytes, ppst
3420: 6d 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a mt);..#endif....
3430: 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 #if SQLITE_VERSI
3440: 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 ON_NUMBER >= 300
3450: 33 30 30 39 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 3009.. n = sqli
3460: 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 64 te3_prepare_v2(d
3470: 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 73 2c 20 b, sql, nbytes,
3480: 70 70 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b ppstmt, pztail);
3490: 0d 0a 23 65 6c 73 65 0d 0a 20 20 6e 20 3d 20 73 ..#else.. n = s
34a0: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 28 64 qlite3_prepare(d
34b0: 62 2c 20 73 71 6c 2c 20 6e 62 79 74 65 73 2c 20 b, sql, nbytes,
34c0: 70 70 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b ppstmt, pztail);
34d0: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 ..#endif....#if
34e0: 64 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f defined(INTEROP_
34f0: 44 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 DEBUG) && (INTER
3500: 4f 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 OP_DEBUG & INTER
3510: 4f 50 5f 44 45 42 55 47 5f 50 52 45 50 41 52 45 OP_DEBUG_PREPARE
3520: 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 ).. sqlite3Inte
3530: 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 ropDebug("sqlite
3540: 33 5f 70 72 65 70 61 72 65 5f 69 6e 74 65 72 6f 3_prepare_intero
3550: 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 70 72 65 p(): sqlite3_pre
3560: 70 61 72 65 28 25 70 2c 20 5c 22 25 73 5c 22 2c pare(%p, \"%s\",
3570: 20 25 64 2c 20 25 70 29 20 72 65 74 75 72 6e 65 %d, %p) returne
3580: 64 20 25 64 2e 5c 6e 22 2c 20 64 62 2c 20 73 71 d %d.\n", db, sq
3590: 6c 2c 20 6e 62 79 74 65 73 2c 20 70 70 73 74 6d l, nbytes, ppstm
35a0: 74 2c 20 6e 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a t, n);..#endif..
35b0: 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 .. if (plen) *p
35c0: 6c 65 6e 20 3d 20 28 70 7a 74 61 69 6c 20 26 26 len = (pztail &&
35d0: 20 2a 70 7a 74 61 69 6c 29 20 3f 20 73 74 72 6c *pztail) ? strl
35e0: 65 6e 28 2a 70 7a 74 61 69 6c 29 20 3a 20 30 3b en(*pztail) : 0;
35f0: 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 6e 3b 0d .... return n;.
3600: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
3610: 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 int WINAPI sqli
3620: 74 65 33 5f 70 72 65 70 61 72 65 31 36 5f 69 6e te3_prepare16_in
3630: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a 64 terop(sqlite3 *d
3640: 62 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 73 b, const void *s
3650: 71 6c 2c 20 69 6e 74 20 6e 63 68 61 72 73 2c 20 ql, int nchars,
3660: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 2a 70 sqlite3_stmt **p
3670: 70 73 74 6d 74 2c 20 63 6f 6e 73 74 20 76 6f 69 pstmt, const voi
3680: 64 20 2a 2a 70 7a 74 61 69 6c 2c 20 69 6e 74 20 d **pztail, int
3690: 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 69 6e 74 *plen)..{.. int
36a0: 20 6e 3b 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e n;....#if defin
36b0: 65 64 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 ed(INTEROP_DEBUG
36c0: 29 20 26 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 ) && (INTEROP_DE
36d0: 42 55 47 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 BUG & INTEROP_DE
36e0: 42 55 47 5f 50 52 45 50 41 52 45 31 36 29 0d 0a BUG_PREPARE16)..
36f0: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
3700: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 70 Debug("sqlite3_p
3710: 72 65 70 61 72 65 5f 69 6e 74 65 72 6f 70 28 29 repare_interop()
3720: 3a 20 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 : calling sqlite
3730: 33 5f 70 72 65 70 61 72 65 31 36 28 25 70 2c 20 3_prepare16(%p,
3740: 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 2e \"%s\", %d, %p).
3750: 2e 2e 5c 6e 22 2c 20 64 62 2c 20 73 71 6c 2c 20 ..\n", db, sql,
3760: 6e 63 68 61 72 73 2c 20 70 70 73 74 6d 74 29 3b nchars, ppstmt);
3770: 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 23 69 66 20 ..#endif....#if
3780: 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e SQLITE_VERSION_N
3790: 55 4d 42 45 52 20 3e 3d 20 33 30 30 33 30 30 39 UMBER >= 3003009
37a0: 0d 0a 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 5f .. n = sqlite3_
37b0: 70 72 65 70 61 72 65 31 36 5f 76 32 28 64 62 2c prepare16_v2(db,
37c0: 20 73 71 6c 2c 20 6e 63 68 61 72 73 20 2a 20 73 sql, nchars * s
37d0: 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 2c 20 izeof(wchar_t),
37e0: 70 70 73 74 6d 74 2c 20 70 7a 74 61 69 6c 29 3b ppstmt, pztail);
37f0: 0d 0a 23 65 6c 73 65 0d 0a 20 20 6e 20 3d 20 73 ..#else.. n = s
3800: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 qlite3_prepare16
3810: 28 64 62 2c 20 73 71 6c 2c 20 6e 63 68 61 72 73 (db, sql, nchars
3820: 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f * sizeof(wchar_
3830: 74 29 2c 20 70 70 73 74 6d 74 2c 20 70 7a 74 61 t), ppstmt, pzta
3840: 69 6c 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a il);..#endif....
3850: 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 #if defined(INTE
3860: 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 ROP_DEBUG) && (I
3870: 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 NTEROP_DEBUG & I
3880: 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 50 52 45 NTEROP_DEBUG_PRE
3890: 50 41 52 45 31 36 29 0d 0a 20 20 73 71 6c 69 74 PARE16).. sqlit
38a0: 65 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 e3InteropDebug("
38b0: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 5f sqlite3_prepare_
38c0: 69 6e 74 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 interop(): sqlit
38d0: 65 33 5f 70 72 65 70 61 72 65 31 36 28 25 70 2c e3_prepare16(%p,
38e0: 20 5c 22 25 73 5c 22 2c 20 25 64 2c 20 25 70 29 \"%s\", %d, %p)
38f0: 20 72 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 returned %d.\n"
3900: 2c 20 64 62 2c 20 73 71 6c 2c 20 6e 63 68 61 72 , db, sql, nchar
3910: 73 2c 20 70 70 73 74 6d 74 2c 20 6e 29 3b 0d 0a s, ppstmt, n);..
3920: 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 69 66 20 28 #endif.... if (
3930: 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 28 70 plen) *plen = (p
3940: 7a 74 61 69 6c 20 26 26 20 2a 70 7a 74 61 69 6c ztail && *pztail
3950: 29 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 ) ? wcslen((wcha
3960: 72 5f 74 20 2a 29 2a 70 7a 74 61 69 6c 29 20 2a r_t *)*pztail) *
3970: 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 sizeof(wchar_t)
3980: 20 3a 20 30 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 : 0;.... retur
3990: 6e 20 6e 3b 0d 0a 7d 0d 0a 0d 0a 23 69 66 20 64 n n;..}....#if d
39a0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 56 efined(INTEROP_V
39b0: 49 52 54 55 41 4c 5f 54 41 42 4c 45 29 20 26 26 IRTUAL_TABLE) &&
39c0: 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f SQLITE_VERSION_
39d0: 4e 55 4d 42 45 52 20 3e 3d 20 33 30 30 34 30 30 NUMBER >= 300400
39e0: 31 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 1..SQLITE_API vo
39f0: 69 64 20 2a 57 49 4e 41 50 49 20 73 71 6c 69 74 id *WINAPI sqlit
3a00: 65 33 5f 63 72 65 61 74 65 5f 64 69 73 70 6f 73 e3_create_dispos
3a10: 61 62 6c 65 5f 6d 6f 64 75 6c 65 5f 69 6e 74 65 able_module_inte
3a20: 72 6f 70 28 0d 0a 20 20 73 71 6c 69 74 65 33 20 rop(.. sqlite3
3a30: 2a 64 62 2c 0d 0a 20 20 63 6f 6e 73 74 20 63 68 *db,.. const ch
3a40: 61 72 20 2a 7a 4e 61 6d 65 2c 0d 0a 20 20 73 71 ar *zName,.. sq
3a50: 6c 69 74 65 33 5f 6d 6f 64 75 6c 65 20 2a 70 4d lite3_module *pM
3a60: 6f 64 75 6c 65 2c 0d 0a 20 20 69 6e 74 20 69 56 odule,.. int iV
3a70: 65 72 73 69 6f 6e 2c 0d 0a 20 20 69 6e 74 20 28 ersion,.. int (
3a80: 2a 78 43 72 65 61 74 65 29 28 73 71 6c 69 74 65 *xCreate)(sqlite
3a90: 33 2a 2c 20 76 6f 69 64 20 2a 2c 20 69 6e 74 2c 3*, void *, int,
3aa0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 6f 6e const char *con
3ab0: 73 74 2a 2c 20 73 71 6c 69 74 65 33 5f 76 74 61 st*, sqlite3_vta
3ac0: 62 20 2a 2a 2c 20 63 68 61 72 2a 2a 29 2c 0d 0a b **, char**),..
3ad0: 20 20 69 6e 74 20 28 2a 78 43 6f 6e 6e 65 63 74 int (*xConnect
3ae0: 29 28 73 71 6c 69 74 65 33 2a 2c 20 76 6f 69 64 )(sqlite3*, void
3af0: 20 2a 2c 20 69 6e 74 2c 20 63 6f 6e 73 74 20 63 *, int, const c
3b00: 68 61 72 20 2a 63 6f 6e 73 74 2a 2c 20 73 71 6c har *const*, sql
3b10: 69 74 65 33 5f 76 74 61 62 20 2a 2a 2c 20 63 68 ite3_vtab **, ch
3b20: 61 72 2a 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a ar**),.. int (*
3b30: 78 42 65 73 74 49 6e 64 65 78 29 28 73 71 6c 69 xBestIndex)(sqli
3b40: 74 65 33 5f 76 74 61 62 20 2a 2c 20 73 71 6c 69 te3_vtab *, sqli
3b50: 74 65 33 5f 69 6e 64 65 78 5f 69 6e 66 6f 2a 29 te3_index_info*)
3b60: 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 44 69 73 63 ,.. int (*xDisc
3b70: 6f 6e 6e 65 63 74 29 28 73 71 6c 69 74 65 33 5f onnect)(sqlite3_
3b80: 76 74 61 62 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 vtab *),.. int
3b90: 28 2a 78 44 65 73 74 72 6f 79 29 28 73 71 6c 69 (*xDestroy)(sqli
3ba0: 74 65 33 5f 76 74 61 62 20 2a 29 2c 0d 0a 20 20 te3_vtab *),..
3bb0: 69 6e 74 20 28 2a 78 4f 70 65 6e 29 28 73 71 6c int (*xOpen)(sql
3bc0: 69 74 65 33 5f 76 74 61 62 20 2a 2c 20 73 71 6c ite3_vtab *, sql
3bd0: 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 ite3_vtab_cursor
3be0: 20 2a 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 **),.. int (*x
3bf0: 43 6c 6f 73 65 29 28 73 71 6c 69 74 65 33 5f 76 Close)(sqlite3_v
3c00: 74 61 62 5f 63 75 72 73 6f 72 2a 29 2c 0d 0a 20 tab_cursor*),..
3c10: 20 69 6e 74 20 28 2a 78 46 69 6c 74 65 72 29 28 int (*xFilter)(
3c20: 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 sqlite3_vtab_cur
3c30: 73 6f 72 2a 2c 20 69 6e 74 2c 20 63 6f 6e 73 74 sor*, int, const
3c40: 20 63 68 61 72 20 2a 2c 20 69 6e 74 2c 20 73 71 char *, int, sq
3c50: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 29 2c lite3_value **),
3c60: 0d 0a 20 20 69 6e 74 20 28 2a 78 4e 65 78 74 29 .. int (*xNext)
3c70: 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 (sqlite3_vtab_cu
3c80: 72 73 6f 72 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 rsor*),.. int (
3c90: 2a 78 45 6f 66 29 28 73 71 6c 69 74 65 33 5f 76 *xEof)(sqlite3_v
3ca0: 74 61 62 5f 63 75 72 73 6f 72 2a 29 2c 0d 0a 20 tab_cursor*),..
3cb0: 20 69 6e 74 20 28 2a 78 43 6f 6c 75 6d 6e 29 28 int (*xColumn)(
3cc0: 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 sqlite3_vtab_cur
3cd0: 73 6f 72 2a 2c 20 73 71 6c 69 74 65 33 5f 63 6f sor*, sqlite3_co
3ce0: 6e 74 65 78 74 2a 2c 20 69 6e 74 29 2c 0d 0a 20 ntext*, int),..
3cf0: 20 69 6e 74 20 28 2a 78 52 6f 77 69 64 29 28 73 int (*xRowid)(s
3d00: 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 qlite3_vtab_curs
3d10: 6f 72 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74 or*, sqlite3_int
3d20: 36 34 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 64 *),.. int (*
3d30: 78 55 70 64 61 74 65 29 28 73 71 6c 69 74 65 33 xUpdate)(sqlite3
3d40: 5f 76 74 61 62 20 2a 2c 20 69 6e 74 2c 20 73 71 _vtab *, int, sq
3d50: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 2c 20 lite3_value **,
3d60: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 2a 29 sqlite3_int64 *)
3d70: 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 42 65 67 69 ,.. int (*xBegi
3d80: 6e 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 n)(sqlite3_vtab
3d90: 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 53 79 *),.. int (*xSy
3da0: 6e 63 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 nc)(sqlite3_vtab
3db0: 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 43 *),.. int (*xC
3dc0: 6f 6d 6d 69 74 29 28 73 71 6c 69 74 65 33 5f 76 ommit)(sqlite3_v
3dd0: 74 61 62 20 2a 29 2c 0d 0a 20 20 69 6e 74 20 28 tab *),.. int (
3de0: 2a 78 52 6f 6c 6c 62 61 63 6b 29 28 73 71 6c 69 *xRollback)(sqli
3df0: 74 65 33 5f 76 74 61 62 20 2a 29 2c 0d 0a 20 20 te3_vtab *),..
3e00: 69 6e 74 20 28 2a 78 46 69 6e 64 46 75 6e 63 74 int (*xFindFunct
3e10: 69 6f 6e 29 28 73 71 6c 69 74 65 33 5f 76 74 61 ion)(sqlite3_vta
3e20: 62 20 2a 2c 20 69 6e 74 2c 20 63 6f 6e 73 74 20 b *, int, const
3e30: 63 68 61 72 20 2a 2c 20 76 6f 69 64 20 28 2a 2a char *, void (**
3e40: 70 78 46 75 6e 63 29 28 73 71 6c 69 74 65 33 5f pxFunc)(sqlite3_
3e50: 63 6f 6e 74 65 78 74 2a 2c 20 69 6e 74 2c 20 73 context*, int, s
3e60: 71 6c 69 74 65 33 5f 76 61 6c 75 65 2a 2a 29 2c qlite3_value**),
3e70: 20 76 6f 69 64 20 2a 2a 70 70 41 72 67 29 2c 0d void **ppArg),.
3e80: 0a 20 20 69 6e 74 20 28 2a 78 52 65 6e 61 6d 65 . int (*xRename
3e90: 29 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a )(sqlite3_vtab *
3ea0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 2c , const char *),
3eb0: 0d 0a 20 20 69 6e 74 20 28 2a 78 53 61 76 65 70 .. int (*xSavep
3ec0: 6f 69 6e 74 29 28 73 71 6c 69 74 65 33 5f 76 74 oint)(sqlite3_vt
3ed0: 61 62 20 2a 2c 20 69 6e 74 29 2c 0d 0a 20 20 69 ab *, int),.. i
3ee0: 6e 74 20 28 2a 78 52 65 6c 65 61 73 65 29 28 73 nt (*xRelease)(s
3ef0: 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 2c 20 69 qlite3_vtab *, i
3f00: 6e 74 29 2c 0d 0a 20 20 69 6e 74 20 28 2a 78 52 nt),.. int (*xR
3f10: 6f 6c 6c 62 61 63 6b 54 6f 29 28 73 71 6c 69 74 ollbackTo)(sqlit
3f20: 65 33 5f 76 74 61 62 20 2a 2c 20 69 6e 74 29 2c e3_vtab *, int),
3f30: 0d 0a 20 20 76 6f 69 64 20 2a 70 43 6c 69 65 6e .. void *pClien
3f40: 74 44 61 74 61 2c 0d 0a 20 20 76 6f 69 64 28 2a tData,.. void(*
3f50: 78 44 65 73 74 72 6f 79 4d 6f 64 75 6c 65 29 28 xDestroyModule)(
3f60: 76 6f 69 64 2a 29 0d 0a 29 7b 0d 0a 20 20 69 66 void*)..){.. if
3f70: 20 28 21 70 4d 6f 64 75 6c 65 29 20 72 65 74 75 (!pModule) retu
3f80: 72 6e 20 30 3b 0d 0a 20 20 6d 65 6d 73 65 74 28 rn 0;.. memset(
3f90: 70 4d 6f 64 75 6c 65 2c 20 30 2c 20 73 69 7a 65 pModule, 0, size
3fa0: 6f 66 28 2a 70 4d 6f 64 75 6c 65 29 29 3b 0d 0a of(*pModule));..
3fb0: 20 20 70 4d 6f 64 75 6c 65 2d 3e 69 56 65 72 73 pModule->iVers
3fc0: 69 6f 6e 20 3d 20 69 56 65 72 73 69 6f 6e 3b 0d ion = iVersion;.
3fd0: 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 43 72 65 . pModule->xCre
3fe0: 61 74 65 20 3d 20 78 43 72 65 61 74 65 3b 0d 0a ate = xCreate;..
3ff0: 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 43 6f 6e 6e pModule->xConn
4000: 65 63 74 20 3d 20 78 43 6f 6e 6e 65 63 74 3b 0d ect = xConnect;.
4010: 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 42 65 73 . pModule->xBes
4020: 74 49 6e 64 65 78 20 3d 20 78 42 65 73 74 49 6e tIndex = xBestIn
4030: 64 65 78 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d dex;.. pModule-
4040: 3e 78 44 69 73 63 6f 6e 6e 65 63 74 20 3d 20 78 >xDisconnect = x
4050: 44 69 73 63 6f 6e 6e 65 63 74 3b 0d 0a 20 20 70 Disconnect;.. p
4060: 4d 6f 64 75 6c 65 2d 3e 78 44 65 73 74 72 6f 79 Module->xDestroy
4070: 20 3d 20 78 44 65 73 74 72 6f 79 3b 0d 0a 20 20 = xDestroy;..
4080: 70 4d 6f 64 75 6c 65 2d 3e 78 4f 70 65 6e 20 3d pModule->xOpen =
4090: 20 78 4f 70 65 6e 3b 0d 0a 20 20 70 4d 6f 64 75 xOpen;.. pModu
40a0: 6c 65 2d 3e 78 43 6c 6f 73 65 20 3d 20 78 43 6c le->xClose = xCl
40b0: 6f 73 65 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d ose;.. pModule-
40c0: 3e 78 46 69 6c 74 65 72 20 3d 20 78 46 69 6c 74 >xFilter = xFilt
40d0: 65 72 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e er;.. pModule->
40e0: 78 4e 65 78 74 20 3d 20 78 4e 65 78 74 3b 0d 0a xNext = xNext;..
40f0: 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 45 6f 66 20 pModule->xEof
4100: 3d 20 78 45 6f 66 3b 0d 0a 20 20 70 4d 6f 64 75 = xEof;.. pModu
4110: 6c 65 2d 3e 78 43 6f 6c 75 6d 6e 20 3d 20 78 43 le->xColumn = xC
4120: 6f 6c 75 6d 6e 3b 0d 0a 20 20 70 4d 6f 64 75 6c olumn;.. pModul
4130: 65 2d 3e 78 52 6f 77 69 64 20 3d 20 78 52 6f 77 e->xRowid = xRow
4140: 69 64 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e id;.. pModule->
4150: 78 55 70 64 61 74 65 20 3d 20 78 55 70 64 61 74 xUpdate = xUpdat
4160: 65 3b 0d 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 e;.. pModule->x
4170: 42 65 67 69 6e 20 3d 20 78 42 65 67 69 6e 3b 0d Begin = xBegin;.
4180: 0a 20 20 70 4d 6f 64 75 6c 65 2d 3e 78 53 79 6e . pModule->xSyn
4190: 63 20 3d 20 78 53 79 6e 63 3b 0d 0a 20 20 70 4d c = xSync;.. pM
41a0: 6f 64 75 6c 65 2d 3e 78 43 6f 6d 6d 69 74 20 3d odule->xCommit =
41b0: 20 78 43 6f 6d 6d 69 74 3b 0d 0a 20 20 70 4d 6f xCommit;.. pMo
41c0: 64 75 6c 65 2d 3e 78 52 6f 6c 6c 62 61 63 6b 20 dule->xRollback
41d0: 3d 20 78 52 6f 6c 6c 62 61 63 6b 3b 0d 0a 20 20 = xRollback;..
41e0: 70 4d 6f 64 75 6c 65 2d 3e 78 46 69 6e 64 46 75 pModule->xFindFu
41f0: 6e 63 74 69 6f 6e 20 3d 20 78 46 69 6e 64 46 75 nction = xFindFu
4200: 6e 63 74 69 6f 6e 3b 0d 0a 20 20 70 4d 6f 64 75 nction;.. pModu
4210: 6c 65 2d 3e 78 52 65 6e 61 6d 65 20 3d 20 78 52 le->xRename = xR
4220: 65 6e 61 6d 65 3b 0d 0a 20 20 70 4d 6f 64 75 6c ename;.. pModul
4230: 65 2d 3e 78 53 61 76 65 70 6f 69 6e 74 20 3d 20 e->xSavepoint =
4240: 78 53 61 76 65 70 6f 69 6e 74 3b 0d 0a 20 20 70 xSavepoint;.. p
4250: 4d 6f 64 75 6c 65 2d 3e 78 52 65 6c 65 61 73 65 Module->xRelease
4260: 20 3d 20 78 52 65 6c 65 61 73 65 3b 0d 0a 20 20 = xRelease;..
4270: 70 4d 6f 64 75 6c 65 2d 3e 78 52 6f 6c 6c 62 61 pModule->xRollba
4280: 63 6b 54 6f 20 3d 20 78 52 6f 6c 6c 62 61 63 6b ckTo = xRollback
4290: 54 6f 3b 0d 0a 20 20 72 65 74 75 72 6e 20 73 71 To;.. return sq
42a0: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 64 69 73 lite3_create_dis
42b0: 70 6f 73 61 62 6c 65 5f 6d 6f 64 75 6c 65 28 64 posable_module(d
42c0: 62 2c 20 7a 4e 61 6d 65 2c 20 70 4d 6f 64 75 6c b, zName, pModul
42d0: 65 2c 20 70 43 6c 69 65 6e 74 44 61 74 61 2c 20 e, pClientData,
42e0: 78 44 65 73 74 72 6f 79 4d 6f 64 75 6c 65 29 3b xDestroyModule);
42f0: 0d 0a 7d 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 53 ..}..#endif....S
4300: 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 QLITE_API int WI
4310: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 62 69 6e NAPI sqlite3_bin
4320: 64 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 72 6f 70 d_double_interop
4330: 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 (sqlite3_stmt *s
4340: 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 64 tmt, int iCol, d
4350: 6f 75 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a ouble *val)..{..
4360: 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 74 75 if (!val) retu
4370: 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b rn SQLITE_ERROR;
4380: 0d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 .. return sqlit
4390: 65 33 5f 62 69 6e 64 5f 64 6f 75 62 6c 65 28 73 e3_bind_double(s
43a0: 74 6d 74 2c 69 43 6f 6c 2c 2a 76 61 6c 29 3b 0d tmt,iCol,*val);.
43b0: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
43c0: 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c 69 int WINAPI sqli
43d0: 74 65 33 5f 62 69 6e 64 5f 69 6e 74 36 34 5f 69 te3_bind_int64_i
43e0: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 nterop(sqlite3_s
43f0: 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 tmt *stmt, int i
4400: 43 6f 6c 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 Col, sqlite_int6
4410: 34 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 4 *val)..{.. if
4420: 20 28 21 76 61 6c 29 20 72 65 74 75 72 6e 20 53 (!val) return S
4430: 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 QLITE_ERROR;..
4440: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 5f 62 return sqlite3_b
4450: 69 6e 64 5f 69 6e 74 36 34 28 73 74 6d 74 2c 69 ind_int64(stmt,i
4460: 43 6f 6c 2c 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d Col,*val);..}...
4470: 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 .SQLITE_API cons
4480: 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 t char * WINAPI
4490: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 70 61 72 sqlite3_bind_par
44a0: 61 6d 65 74 65 72 5f 6e 61 6d 65 5f 69 6e 74 65 ameter_name_inte
44b0: 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 rop(sqlite3_stmt
44c0: 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c *stmt, int iCol
44d0: 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d , int *plen)..{.
44e0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 . const char *p
44f0: 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 62 69 val = sqlite3_bi
4500: 6e 64 5f 70 61 72 61 6d 65 74 65 72 5f 6e 61 6d nd_parameter_nam
4510: 65 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a e(stmt, iCol);..
4520: 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 if (plen) *ple
4530: 6e 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 6c 65 n = pval ? strle
4540: 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 n(pval) : 0;..
4550: 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d return pval;..}.
4560: 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f ...SQLITE_API co
4570: 6e 73 74 20 63 68 61 72 20 2a 20 57 49 4e 41 50 nst char * WINAP
4580: 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e I sqlite3_column
4590: 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 73 71 _name_interop(sq
45a0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 lite3_stmt *stmt
45b0: 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 , int iCol, int
45c0: 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e *plen)..{.. con
45d0: 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 st char *pval =
45e0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6e sqlite3_column_n
45f0: 61 6d 65 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b ame(stmt, iCol);
4600: 0d 0a 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 .. if (plen) *p
4610: 6c 65 6e 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 len = pval ? str
4620: 6c 65 6e 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a len(pval) : 0;..
4630: 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a return pval;..
4640: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
4650: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 4e const void * WIN
4660: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 API sqlite3_colu
4670: 6d 6e 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f mn_name16_intero
4680: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
4690: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
46a0: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
46b0: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 const void *pva
46c0: 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 l = sqlite3_colu
46d0: 6d 6e 5f 6e 61 6d 65 31 36 28 73 74 6d 74 2c 20 mn_name16(stmt,
46e0: 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c iCol);.. if (pl
46f0: 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 61 6c en) *plen = pval
4700: 20 3f 20 77 63 73 6c 65 6e 28 28 77 63 68 61 72 ? wcslen((wchar
4710: 5f 74 20 2a 29 70 76 61 6c 29 20 2a 20 73 69 7a _t *)pval) * siz
4720: 65 6f 66 28 77 63 68 61 72 5f 74 29 20 3a 20 30 eof(wchar_t) : 0
4730: 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c ;.. return pval
4740: 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 ;..}....SQLITE_A
4750: 50 49 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 PI const char *
4760: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
4770: 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 5f 69 olumn_decltype_i
4780: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 nterop(sqlite3_s
4790: 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 74 20 69 tmt *stmt, int i
47a0: 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 0d Col, int *plen).
47b0: 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 .{.. const char
47c0: 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 *pval = sqlite3
47d0: 5f 63 6f 6c 75 6d 6e 5f 64 65 63 6c 74 79 70 65 _column_decltype
47e0: 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 (stmt, iCol);..
47f0: 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e if (plen) *plen
4800: 20 3d 20 70 76 61 6c 20 3f 20 73 74 72 6c 65 6e = pval ? strlen
4810: 28 70 76 61 6c 29 20 3a 20 30 3b 0d 0a 20 20 72 (pval) : 0;.. r
4820: 65 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a eturn pval;..}..
4830: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e ..SQLITE_API con
4840: 73 74 20 76 6f 69 64 20 2a 20 57 49 4e 41 50 49 st void * WINAPI
4850: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
4860: 64 65 63 6c 74 79 70 65 31 36 5f 69 6e 74 65 72 decltype16_inter
4870: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
4880: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
4890: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
48a0: 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 const void *pv
48b0: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
48c0: 75 6d 6e 5f 64 65 63 6c 74 79 70 65 31 36 28 73 umn_decltype16(s
48d0: 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 tmt, iCol);.. i
48e0: 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d f (plen) *plen =
48f0: 20 70 76 61 6c 20 3f 20 77 63 73 6c 65 6e 28 28 pval ? wcslen((
4900: 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c 29 20 wchar_t *)pval)
4910: 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 * sizeof(wchar_t
4920: 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e ) : 0;.. return
4930: 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval;..}....SQL
4940: 49 54 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e ITE_API void WIN
4950: 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 API sqlite3_colu
4960: 6d 6e 5f 64 6f 75 62 6c 65 5f 69 6e 74 65 72 6f mn_double_intero
4970: 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a p(sqlite3_stmt *
4980: 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 stmt, int iCol,
4990: 64 6f 75 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d double *val)..{.
49a0: 0a 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 74 . if (!val) ret
49b0: 75 72 6e 3b 0d 0a 20 20 2a 76 61 6c 20 3d 20 73 urn;.. *val = s
49c0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 6f qlite3_column_do
49d0: 75 62 6c 65 28 73 74 6d 74 2c 69 43 6f 6c 29 3b uble(stmt,iCol);
49e0: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
49f0: 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 I void WINAPI sq
4a00: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 lite3_column_int
4a10: 36 34 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 64_interop(sqlit
4a20: 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 e3_stmt *stmt, i
4a30: 6e 74 20 69 43 6f 6c 2c 20 73 71 6c 69 74 65 5f nt iCol, sqlite_
4a40: 69 6e 74 36 34 20 2a 76 61 6c 29 0d 0a 7b 0d 0a int64 *val)..{..
4a50: 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 74 75 if (!val) retu
4a60: 72 6e 3b 0d 0a 20 20 2a 76 61 6c 20 3d 20 73 71 rn;.. *val = sq
4a70: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 lite3_column_int
4a80: 36 34 28 73 74 6d 74 2c 69 43 6f 6c 29 3b 0d 0a 64(stmt,iCol);..
4a90: 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 }....SQLITE_API
4aa0: 76 6f 69 64 20 57 49 4e 41 50 49 20 73 71 6c 69 void WINAPI sqli
4ab0: 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72 74 5f te3_last_insert_
4ac0: 72 6f 77 69 64 5f 69 6e 74 65 72 6f 70 28 73 71 rowid_interop(sq
4ad0: 6c 69 74 65 33 20 2a 64 62 2c 20 73 71 6c 69 74 lite3 *db, sqlit
4ae0: 65 5f 69 6e 74 36 34 20 2a 72 6f 77 49 64 29 0d e_int64 *rowId).
4af0: 0a 7b 0d 0a 20 20 69 66 20 28 21 72 6f 77 49 64 .{.. if (!rowId
4b00: 29 20 72 65 74 75 72 6e 3b 0d 0a 20 20 2a 72 6f ) return;.. *ro
4b10: 77 49 64 20 3d 20 73 71 6c 69 74 65 33 5f 6c 61 wId = sqlite3_la
4b20: 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 64 28 st_insert_rowid(
4b30: 64 62 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 db);..}....SQLIT
4b40: 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 E_API void WINAP
4b50: 49 20 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 I sqlite3_memory
4b60: 5f 75 73 65 64 5f 69 6e 74 65 72 6f 70 28 73 71 _used_interop(sq
4b70: 6c 69 74 65 5f 69 6e 74 36 34 20 2a 6e 42 79 74 lite_int64 *nByt
4b80: 65 73 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 21 6e es)..{.. if (!n
4b90: 42 79 74 65 73 29 20 72 65 74 75 72 6e 3b 0d 0a Bytes) return;..
4ba0: 20 20 2a 6e 42 79 74 65 73 20 3d 20 73 71 6c 69 *nBytes = sqli
4bb0: 74 65 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 28 te3_memory_used(
4bc0: 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f );..}....SQLITE_
4bd0: 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 49 20 API void WINAPI
4be0: 73 71 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 sqlite3_memory_h
4bf0: 69 67 68 77 61 74 65 72 5f 69 6e 74 65 72 6f 70 ighwater_interop
4c00: 28 69 6e 74 20 72 65 73 65 74 46 6c 61 67 2c 20 (int resetFlag,
4c10: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 6e 42 sqlite_int64 *nB
4c20: 79 74 65 73 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 ytes)..{.. if (
4c30: 21 6e 42 79 74 65 73 29 20 72 65 74 75 72 6e 3b !nBytes) return;
4c40: 0d 0a 20 20 2a 6e 42 79 74 65 73 20 3d 20 73 71 .. *nBytes = sq
4c50: 6c 69 74 65 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 lite3_memory_hig
4c60: 68 77 61 74 65 72 28 72 65 73 65 74 46 6c 61 67 hwater(resetFlag
4c70: 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f );..}....SQLITE_
4c80: 41 50 49 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e API const unsign
4c90: 65 64 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 ed char * WINAPI
4ca0: 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f sqlite3_column_
4cb0: 74 65 78 74 5f 69 6e 74 65 72 6f 70 28 73 71 6c text_interop(sql
4cc0: 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c ite3_stmt *stmt,
4cd0: 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a int iCol, int *
4ce0: 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 plen)..{.. cons
4cf0: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 t unsigned char
4d00: 2a 70 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f *pval = sqlite3_
4d10: 63 6f 6c 75 6d 6e 5f 74 65 78 74 28 73 74 6d 74 column_text(stmt
4d20: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 , iCol);.. if (
4d30: 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 73 71 plen) *plen = sq
4d40: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 lite3_column_byt
4d50: 65 73 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d es(stmt, iCol);.
4d60: 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b 0d . return pval;.
4d70: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
4d80: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 20 57 49 const void * WI
4d90: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c NAPI sqlite3_col
4da0: 75 6d 6e 5f 74 65 78 74 31 36 5f 69 6e 74 65 72 umn_text16_inter
4db0: 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 op(sqlite3_stmt
4dc0: 2a 73 74 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c *stmt, int iCol,
4dd0: 20 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a int *plen)..{..
4de0: 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 const void *pv
4df0: 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c al = sqlite3_col
4e00: 75 6d 6e 5f 74 65 78 74 31 36 28 73 74 6d 74 2c umn_text16(stmt,
4e10: 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 iCol);.. if (p
4e20: 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 73 71 6c len) *plen = sql
4e30: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65 ite3_column_byte
4e40: 73 31 36 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b s16(stmt, iCol);
4e50: 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 61 6c 3b .. return pval;
4e60: 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 ..}....SQLITE_AP
4e70: 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 71 6c I int WINAPI sql
4e80: 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 5f 69 6e ite3_finalize_in
4e90: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 73 74 terop(sqlite3_st
4ea0: 6d 74 20 2a 73 74 6d 74 29 0d 0a 7b 0d 0a 20 20 mt *stmt)..{..
4eb0: 69 6e 74 20 72 65 74 3b 0d 0a 23 69 66 20 21 64 int ret;..#if !d
4ec0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 4c efined(INTEROP_L
4ed0: 45 47 41 43 59 5f 43 4c 4f 53 45 29 20 26 26 20 EGACY_CLOSE) &&
4ee0: 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e SQLITE_VERSION_N
4ef0: 55 4d 42 45 52 20 3e 3d 20 33 30 30 37 30 31 34 UMBER >= 3007014
4f00: 0d 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 ....#if defined(
4f10: 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 INTEROP_DEBUG) &
4f20: 26 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 & (INTEROP_DEBUG
4f30: 20 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 & INTEROP_DEBUG
4f40: 5f 46 49 4e 41 4c 49 5a 45 29 0d 0a 20 20 56 64 _FINALIZE).. Vd
4f50: 62 65 20 2a 70 20 3d 20 28 56 64 62 65 20 2a 29 be *p = (Vdbe *)
4f60: 73 74 6d 74 3b 0d 0a 20 20 73 71 6c 69 74 65 33 stmt;.. sqlite3
4f70: 20 2a 64 62 20 3d 20 70 20 3f 20 70 2d 3e 64 62 *db = p ? p->db
4f80: 20 3a 20 30 3b 0d 0a 20 20 73 71 6c 69 74 65 33 : 0;.. sqlite3
4f90: 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 71 InteropDebug("sq
4fa0: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 5f 69 lite3_finalize_i
4fb0: 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e nterop(): callin
4fc0: 67 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 g sqlite3_finali
4fd0: 7a 65 28 25 70 2c 20 25 70 29 2e 2e 2e 5c 6e 22 ze(%p, %p)...\n"
4fe0: 2c 20 64 62 2c 20 73 74 6d 74 29 3b 0d 0a 23 65 , db, stmt);..#e
4ff0: 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 20 3d 20 ndif.... ret =
5000: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 sqlite3_finalize
5010: 28 73 74 6d 74 29 3b 0d 0a 0d 0a 23 69 66 20 64 (stmt);....#if d
5020: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 efined(INTEROP_D
5030: 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f EBUG) && (INTERO
5040: 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f P_DEBUG & INTERO
5050: 50 5f 44 45 42 55 47 5f 46 49 4e 41 4c 49 5a 45 P_DEBUG_FINALIZE
5060: 29 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 ).. sqlite3Inte
5070: 72 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 ropDebug("sqlite
5080: 33 5f 66 69 6e 61 6c 69 7a 65 5f 69 6e 74 65 72 3_finalize_inter
5090: 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 66 69 op(): sqlite3_fi
50a0: 6e 61 6c 69 7a 65 28 25 70 2c 20 25 70 29 20 72 nalize(%p, %p) r
50b0: 65 74 75 72 6e 65 64 20 25 64 2e 5c 6e 22 2c 20 eturned %d.\n",
50c0: 64 62 2c 20 73 74 6d 74 2c 20 72 65 74 29 3b 0d db, stmt, ret);.
50d0: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 .#endif.... ret
50e0: 75 72 6e 20 72 65 74 3b 0d 0a 23 65 6c 73 65 0d urn ret;..#else.
50f0: 0a 20 20 56 64 62 65 20 2a 70 3b 0d 0a 20 20 72 . Vdbe *p;.. r
5100: 65 74 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d et = SQLITE_OK;.
5110: 0a 0d 0a 20 20 70 20 3d 20 28 56 64 62 65 20 2a ... p = (Vdbe *
5120: 29 73 74 6d 74 3b 0d 0a 20 20 69 66 20 28 70 29 )stmt;.. if (p)
5130: 0d 0a 20 20 7b 0d 0a 20 20 20 20 73 71 6c 69 74 .. {.. sqlit
5140: 65 33 20 2a 64 62 20 3d 20 70 2d 3e 64 62 3b 0d e3 *db = p->db;.
5150: 0a 0d 0a 20 20 20 20 69 66 20 28 64 62 20 21 3d ... if (db !=
5160: 20 4e 55 4c 4c 29 0d 0a 20 20 20 20 20 20 73 71 NULL).. sq
5170: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
5180: 72 28 64 62 2d 3e 6d 75 74 65 78 29 3b 0d 0a 0d r(db->mutex);...
5190: 0a 20 20 20 20 69 66 20 28 28 70 2d 3e 6d 61 67 . if ((p->mag
51a0: 69 63 20 3d 3d 20 56 44 42 45 5f 4d 41 47 49 43 ic == VDBE_MAGIC
51b0: 5f 44 45 41 44 29 20 26 26 20 28 64 62 20 3d 3d _DEAD) && (db ==
51c0: 20 4e 55 4c 4c 29 29 0d 0a 20 20 20 20 7b 0d 0a NULL)).. {..
51d0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 44 62 46 sqlite3DbF
51e0: 72 65 65 5f 69 6e 74 65 72 6f 70 28 64 62 2c 20 ree_interop(db,
51f0: 70 29 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 20 p);.. }..
5200: 65 6c 73 65 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 else.. {..
5210: 20 20 20 72 65 74 20 3d 20 73 71 6c 69 74 65 33 ret = sqlite3
5220: 5f 66 69 6e 61 6c 69 7a 65 28 73 74 6d 74 29 3b _finalize(stmt);
5230: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 .. }.... i
5240: 66 20 28 64 62 20 21 3d 20 4e 55 4c 4c 29 0d 0a f (db != NULL)..
5250: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 sqlite3_mu
5260: 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 tex_leave(db->mu
5270: 74 65 78 29 3b 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 tex);.. }....
5280: 72 65 74 75 72 6e 20 72 65 74 3b 0d 0a 23 65 6e return ret;..#en
5290: 64 69 66 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 dif..}....SQLITE
52a0: 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 _API int WINAPI
52b0: 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 66 sqlite3_backup_f
52c0: 69 6e 69 73 68 5f 69 6e 74 65 72 6f 70 28 73 71 inish_interop(sq
52d0: 6c 69 74 65 33 5f 62 61 63 6b 75 70 20 2a 70 29 lite3_backup *p)
52e0: 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d ..{.. int ret;.
52f0: 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 ...#if defined(I
5300: 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 NTEROP_DEBUG) &&
5310: 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 (INTEROP_DEBUG
5320: 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f & INTEROP_DEBUG_
5330: 42 41 43 4b 55 50 5f 46 49 4e 49 53 48 29 0d 0a BACKUP_FINISH)..
5340: 20 20 73 71 6c 69 74 65 33 2a 20 70 44 65 73 74 sqlite3* pDest
5350: 44 62 20 3d 20 70 20 3f 20 70 2d 3e 70 44 65 73 Db = p ? p->pDes
5360: 74 44 62 20 3a 20 30 3b 0d 0a 20 20 73 71 6c 69 tDb : 0;.. sqli
5370: 74 65 33 2a 20 70 53 72 63 44 62 20 3d 20 70 20 te3* pSrcDb = p
5380: 3f 20 70 2d 3e 70 53 72 63 44 62 20 3a 20 30 3b ? p->pSrcDb : 0;
5390: 0d 0a 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 .. sqlite3Inter
53a0: 6f 70 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 opDebug("sqlite3
53b0: 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 5f 69 _backup_finish_i
53c0: 6e 74 65 72 6f 70 28 29 3a 20 63 61 6c 6c 69 6e nterop(): callin
53d0: 67 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 g sqlite3_backup
53e0: 5f 66 69 6e 69 73 68 28 25 70 2c 20 25 70 2c 20 _finish(%p, %p,
53f0: 25 70 29 2e 2e 2e 5c 6e 22 2c 20 70 44 65 73 74 %p)...\n", pDest
5400: 44 62 2c 20 70 53 72 63 44 62 2c 20 70 29 3b 0d Db, pSrcDb, p);.
5410: 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 65 74 .#endif.... ret
5420: 20 3d 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 = sqlite3_backu
5430: 70 5f 66 69 6e 69 73 68 28 70 29 3b 0d 0a 0d 0a p_finish(p);....
5440: 23 69 66 20 64 65 66 69 6e 65 64 28 49 4e 54 45 #if defined(INTE
5450: 52 4f 50 5f 44 45 42 55 47 29 20 26 26 20 28 49 ROP_DEBUG) && (I
5460: 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 26 20 49 NTEROP_DEBUG & I
5470: 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f 42 41 43 NTEROP_DEBUG_BAC
5480: 4b 55 50 5f 46 49 4e 49 53 48 29 0d 0a 20 20 73 KUP_FINISH).. s
5490: 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 44 65 62 qlite3InteropDeb
54a0: 75 67 28 22 73 71 6c 69 74 65 33 5f 62 61 63 6b ug("sqlite3_back
54b0: 75 70 5f 66 69 6e 69 73 68 5f 69 6e 74 65 72 6f up_finish_intero
54c0: 70 28 29 3a 20 73 71 6c 69 74 65 33 5f 62 61 63 p(): sqlite3_bac
54d0: 6b 75 70 5f 66 69 6e 69 73 68 28 25 70 2c 20 25 kup_finish(%p, %
54e0: 70 2c 20 25 70 29 20 72 65 74 75 72 6e 65 64 20 p, %p) returned
54f0: 25 64 2e 5c 6e 22 2c 20 70 44 65 73 74 44 62 2c %d.\n", pDestDb,
5500: 20 70 53 72 63 44 62 2c 20 70 2c 20 72 65 74 29 pSrcDb, p, ret)
5510: 3b 0d 0a 23 65 6e 64 69 66 0d 0a 0d 0a 20 20 72 ;..#endif.... r
5520: 65 74 75 72 6e 20 72 65 74 3b 0d 0a 7d 0d 0a 0d eturn ret;..}...
5530: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
5540: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 72 WINAPI sqlite3_r
5550: 65 73 65 74 5f 69 6e 74 65 72 6f 70 28 73 71 6c eset_interop(sql
5560: 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 29 ite3_stmt *stmt)
5570: 0d 0a 7b 0d 0a 20 20 69 6e 74 20 72 65 74 3b 0d ..{.. int ret;.
5580: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 49 4e .#if !defined(IN
5590: 54 45 52 4f 50 5f 4c 45 47 41 43 59 5f 43 4c 4f TEROP_LEGACY_CLO
55a0: 53 45 29 20 26 26 20 53 51 4c 49 54 45 5f 56 45 SE) && SQLITE_VE
55b0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 RSION_NUMBER >=
55c0: 33 30 30 37 30 31 34 0d 0a 0d 0a 23 69 66 20 64 3007014....#if d
55d0: 65 66 69 6e 65 64 28 49 4e 54 45 52 4f 50 5f 44 efined(INTEROP_D
55e0: 45 42 55 47 29 20 26 26 20 28 49 4e 54 45 52 4f EBUG) && (INTERO
55f0: 50 5f 44 45 42 55 47 20 26 20 49 4e 54 45 52 4f P_DEBUG & INTERO
5600: 50 5f 44 45 42 55 47 5f 52 45 53 45 54 29 0d 0a P_DEBUG_RESET)..
5610: 20 20 73 71 6c 69 74 65 33 49 6e 74 65 72 6f 70 sqlite3Interop
5620: 44 65 62 75 67 28 22 73 71 6c 69 74 65 33 5f 72 Debug("sqlite3_r
5630: 65 73 65 74 5f 69 6e 74 65 72 6f 70 28 29 3a 20 eset_interop():
5640: 63 61 6c 6c 69 6e 67 20 73 71 6c 69 74 65 33 5f calling sqlite3_
5650: 72 65 73 65 74 28 25 70 29 2e 2e 2e 5c 6e 22 2c reset(%p)...\n",
5660: 20 73 74 6d 74 29 3b 0d 0a 23 65 6e 64 69 66 0d stmt);..#endif.
5670: 0a 0d 0a 20 20 72 65 74 20 3d 20 73 71 6c 69 74 ... ret = sqlit
5680: 65 33 5f 72 65 73 65 74 28 73 74 6d 74 29 3b 0d e3_reset(stmt);.
5690: 0a 0d 0a 23 69 66 20 64 65 66 69 6e 65 64 28 49 ...#if defined(I
56a0: 4e 54 45 52 4f 50 5f 44 45 42 55 47 29 20 26 26 NTEROP_DEBUG) &&
56b0: 20 28 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 20 (INTEROP_DEBUG
56c0: 26 20 49 4e 54 45 52 4f 50 5f 44 45 42 55 47 5f & INTEROP_DEBUG_
56d0: 52 45 53 45 54 29 0d 0a 20 20 73 71 6c 69 74 65 RESET).. sqlite
56e0: 33 49 6e 74 65 72 6f 70 44 65 62 75 67 28 22 73 3InteropDebug("s
56f0: 71 6c 69 74 65 33 5f 72 65 73 65 74 5f 69 6e 74 qlite3_reset_int
5700: 65 72 6f 70 28 29 3a 20 73 71 6c 69 74 65 33 5f erop(): sqlite3_
5710: 72 65 73 65 74 28 25 70 29 20 72 65 74 75 72 6e reset(%p) return
5720: 65 64 20 25 64 2e 5c 6e 22 2c 20 73 74 6d 74 2c ed %d.\n", stmt,
5730: 20 72 65 74 29 3b 0d 0a 23 65 6e 64 69 66 0d 0a ret);..#endif..
5740: 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0d .. return ret;.
5750: 0a 23 65 6c 73 65 0d 0a 20 20 69 66 20 28 73 74 .#else.. if (st
5760: 6d 74 20 26 26 20 28 28 56 64 62 65 20 2a 29 73 mt && ((Vdbe *)s
5770: 74 6d 74 29 2d 3e 6d 61 67 69 63 20 3d 3d 20 56 tmt)->magic == V
5780: 44 42 45 5f 4d 41 47 49 43 5f 44 45 41 44 29 20 DBE_MAGIC_DEAD)
5790: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 53 43 return SQLITE_SC
57a0: 48 45 4d 41 3b 0d 0a 20 20 72 65 74 20 3d 20 73 HEMA;.. ret = s
57b0: 71 6c 69 74 65 33 5f 72 65 73 65 74 28 73 74 6d qlite3_reset(stm
57c0: 74 29 3b 0d 0a 20 20 72 65 74 75 72 6e 20 72 65 t);.. return re
57d0: 74 3b 0d 0a 23 65 6e 64 69 66 0d 0a 7d 0d 0a 0d t;..#endif..}...
57e0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 .SQLITE_API int
57f0: 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 WINAPI sqlite3_c
5800: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 5f 69 reate_function_i
5810: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 20 2a nterop(sqlite3 *
5820: 70 73 71 6c 2c 20 63 6f 6e 73 74 20 63 68 61 72 psql, const char
5830: 20 2a 7a 46 75 6e 63 74 69 6f 6e 4e 61 6d 65 2c *zFunctionName,
5840: 20 69 6e 74 20 6e 41 72 67 2c 20 69 6e 74 20 65 int nArg, int e
5850: 54 65 78 74 52 65 70 2c 20 76 6f 69 64 20 2a 70 TextRep, void *p
5860: 76 55 73 65 72 2c 20 53 51 4c 49 54 45 55 53 45 vUser, SQLITEUSE
5870: 52 46 55 4e 43 20 66 75 6e 63 2c 20 53 51 4c 49 RFUNC func, SQLI
5880: 54 45 55 53 45 52 46 55 4e 43 20 66 75 6e 63 73 TEUSERFUNC funcs
5890: 74 65 70 2c 20 53 51 4c 49 54 45 46 55 4e 43 46 tep, SQLITEFUNCF
58a0: 49 4e 41 4c 20 66 75 6e 63 66 69 6e 61 6c 2c 20 INAL funcfinal,
58b0: 69 6e 74 20 6e 65 65 64 43 6f 6c 6c 53 65 71 29 int needCollSeq)
58c0: 0d 0a 7b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d ..{.. int n;...
58d0: 0a 20 20 69 66 20 28 65 54 65 78 74 52 65 70 20 . if (eTextRep
58e0: 3d 3d 20 53 51 4c 49 54 45 5f 55 54 46 31 36 29 == SQLITE_UTF16)
58f0: 0d 0a 20 20 20 20 65 54 65 78 74 52 65 70 20 3d .. eTextRep =
5900: 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4e 41 54 SQLITE_UTF16NAT
5910: 49 56 45 3b 0d 0a 0d 0a 20 20 6e 20 3d 20 73 71 IVE;.... n = sq
5920: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e lite3_create_fun
5930: 63 74 69 6f 6e 28 70 73 71 6c 2c 20 7a 46 75 6e ction(psql, zFun
5940: 63 74 69 6f 6e 4e 61 6d 65 2c 20 6e 41 72 67 2c ctionName, nArg,
5950: 20 65 54 65 78 74 52 65 70 2c 20 70 76 55 73 65 eTextRep, pvUse
5960: 72 2c 20 66 75 6e 63 2c 20 66 75 6e 63 73 74 65 r, func, funcste
5970: 70 2c 20 66 75 6e 63 66 69 6e 61 6c 29 3b 0d 0a p, funcfinal);..
5980: 20 20 69 66 20 28 6e 20 3d 3d 20 53 51 4c 49 54 if (n == SQLIT
5990: 45 5f 4f 4b 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 E_OK).. {..
59a0: 69 66 20 28 6e 65 65 64 43 6f 6c 6c 53 65 71 29 if (needCollSeq)
59b0: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 46 .. {.. F
59c0: 75 6e 63 44 65 66 20 2a 70 46 75 6e 63 20 3d 20 uncDef *pFunc =
59d0: 73 71 6c 69 74 65 33 46 69 6e 64 46 75 6e 63 74 sqlite3FindFunct
59e0: 69 6f 6e 28 70 73 71 6c 2c 20 7a 46 75 6e 63 74 ion(psql, zFunct
59f0: 69 6f 6e 4e 61 6d 65 2c 20 73 74 72 6c 65 6e 28 ionName, strlen(
5a00: 7a 46 75 6e 63 74 69 6f 6e 4e 61 6d 65 29 2c 20 zFunctionName),
5a10: 6e 41 72 67 2c 20 65 54 65 78 74 52 65 70 2c 20 nArg, eTextRep,
5a20: 30 29 3b 0d 0a 20 20 20 20 20 20 69 66 28 20 70 0);.. if( p
5a30: 46 75 6e 63 20 29 0d 0a 20 20 20 20 20 20 7b 0d Func ).. {.
5a40: 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 45 52 53 .#if SQLITE_VERS
5a50: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 33 30 ION_NUMBER >= 30
5a60: 30 38 30 30 31 0d 0a 20 20 20 20 20 20 20 20 70 08001.. p
5a70: 46 75 6e 63 2d 3e 66 75 6e 63 46 6c 61 67 73 20 Func->funcFlags
5a80: 7c 3d 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4e |= SQLITE_FUNC_N
5a90: 45 45 44 43 4f 4c 4c 3b 0d 0a 23 65 6c 73 65 0d EEDCOLL;..#else.
5aa0: 0a 20 20 20 20 20 20 20 20 70 46 75 6e 63 2d 3e . pFunc->
5ab0: 66 6c 61 67 73 20 7c 3d 20 53 51 4c 49 54 45 5f flags |= SQLITE_
5ac0: 46 55 4e 43 5f 4e 45 45 44 43 4f 4c 4c 3b 0d 0a FUNC_NEEDCOLL;..
5ad0: 23 65 6e 64 69 66 0d 0a 20 20 20 20 20 20 7d 0d #endif.. }.
5ae0: 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 . }.. }....
5af0: 20 72 65 74 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a 0d return n;..}...
5b00: 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 .SQLITE_API void
5b10: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
5b20: 76 61 6c 75 65 5f 64 6f 75 62 6c 65 5f 69 6e 74 value_double_int
5b30: 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 76 61 6c erop(sqlite3_val
5b40: 75 65 20 2a 70 76 61 6c 2c 20 64 6f 75 62 6c 65 ue *pval, double
5b50: 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 20 *val)..{.. if
5b60: 28 21 76 61 6c 29 20 72 65 74 75 72 6e 3b 0d 0a (!val) return;..
5b70: 20 20 2a 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 *val = sqlite3
5b80: 5f 76 61 6c 75 65 5f 64 6f 75 62 6c 65 28 70 76 _value_double(pv
5b90: 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 al);..}....SQLIT
5ba0: 45 5f 41 50 49 20 76 6f 69 64 20 57 49 4e 41 50 E_API void WINAP
5bb0: 49 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f I sqlite3_value_
5bc0: 69 6e 74 36 34 5f 69 6e 74 65 72 6f 70 28 73 71 int64_interop(sq
5bd0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 76 61 lite3_value *pva
5be0: 6c 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 l, sqlite_int64
5bf0: 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 69 66 20 28 *val)..{.. if (
5c00: 21 76 61 6c 29 20 72 65 74 75 72 6e 3b 0d 0a 20 !val) return;..
5c10: 20 2a 76 61 6c 20 3d 20 73 71 6c 69 74 65 33 5f *val = sqlite3_
5c20: 76 61 6c 75 65 5f 69 6e 74 36 34 28 70 76 61 6c value_int64(pval
5c30: 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f );..}....SQLITE_
5c40: 41 50 49 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e API const unsign
5c50: 65 64 20 63 68 61 72 20 2a 20 57 49 4e 41 50 49 ed char * WINAPI
5c60: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 sqlite3_value_t
5c70: 65 78 74 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 ext_interop(sqli
5c80: 74 65 33 5f 76 61 6c 75 65 20 2a 76 61 6c 2c 20 te3_value *val,
5c90: 69 6e 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 int *plen)..{..
5ca0: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
5cb0: 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c char *pval = sql
5cc0: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
5cd0: 76 61 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 val);.. if (ple
5ce0: 6e 29 20 2a 70 6c 65 6e 20 3d 20 73 71 6c 69 74 n) *plen = sqlit
5cf0: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 76 e3_value_bytes(v
5d00: 61 6c 29 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 al);.. return p
5d10: 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 val;..}....SQLIT
5d20: 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f 69 64 E_API const void
5d30: 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 * WINAPI sqlite
5d40: 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 5f 69 3_value_text16_i
5d50: 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 76 nterop(sqlite3_v
5d60: 61 6c 75 65 20 2a 76 61 6c 2c 20 69 6e 74 20 2a alue *val, int *
5d70: 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 plen)..{.. cons
5d80: 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 3d 20 73 t void *pval = s
5d90: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 qlite3_value_tex
5da0: 74 31 36 28 76 61 6c 29 3b 0d 0a 20 20 69 66 20 t16(val);.. if
5db0: 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 73 (plen) *plen = s
5dc0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 qlite3_value_byt
5dd0: 65 73 31 36 28 76 61 6c 29 3b 0d 0a 20 20 72 65 es16(val);.. re
5de0: 74 75 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d turn pval;..}...
5df0: 0a 53 51 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 .SQLITE_API void
5e00: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
5e10: 72 65 73 75 6c 74 5f 64 6f 75 62 6c 65 5f 69 6e result_double_in
5e20: 74 65 72 6f 70 28 73 71 6c 69 74 65 33 5f 63 6f terop(sqlite3_co
5e30: 6e 74 65 78 74 20 2a 70 63 74 78 2c 20 64 6f 75 ntext *pctx, dou
5e40: 62 6c 65 20 2a 76 61 6c 29 0d 0a 7b 0d 0a 20 20 ble *val)..{..
5e50: 69 66 20 28 21 76 61 6c 29 20 72 65 74 75 72 6e if (!val) return
5e60: 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 ;.. sqlite3_res
5e70: 75 6c 74 5f 64 6f 75 62 6c 65 28 70 63 74 78 2c ult_double(pctx,
5e80: 20 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 *val);..}....SQ
5e90: 4c 49 54 45 5f 41 50 49 20 76 6f 69 64 20 57 49 LITE_API void WI
5ea0: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 72 65 73 NAPI sqlite3_res
5eb0: 75 6c 74 5f 69 6e 74 36 34 5f 69 6e 74 65 72 6f ult_int64_intero
5ec0: 70 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 p(sqlite3_contex
5ed0: 74 20 2a 70 63 74 78 2c 20 73 71 6c 69 74 65 5f t *pctx, sqlite_
5ee0: 69 6e 74 36 34 20 2a 76 61 6c 29 0d 0a 7b 0d 0a int64 *val)..{..
5ef0: 20 20 69 66 20 28 21 76 61 6c 29 20 72 65 74 75 if (!val) retu
5f00: 72 6e 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f 72 rn;.. sqlite3_r
5f10: 65 73 75 6c 74 5f 69 6e 74 36 34 28 70 63 74 78 esult_int64(pctx
5f20: 2c 20 2a 76 61 6c 29 3b 0d 0a 7d 0d 0a 0d 0a 53 , *val);..}....S
5f30: 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 QLITE_API int WI
5f40: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6e NAPI sqlite3_con
5f50: 74 65 78 74 5f 63 6f 6c 6c 63 6f 6d 70 61 72 65 text_collcompare
5f60: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
5f70: 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 63 _context *ctx, c
5f80: 6f 6e 73 74 20 76 6f 69 64 20 2a 70 31 2c 20 69 onst void *p1, i
5f90: 6e 74 20 70 31 6c 65 6e 2c 20 63 6f 6e 73 74 20 nt p1len, const
5fa0: 76 6f 69 64 20 2a 70 32 2c 20 69 6e 74 20 70 32 void *p2, int p2
5fb0: 6c 65 6e 29 0d 0a 7b 0d 0a 23 69 66 20 53 51 4c len)..{..#if SQL
5fc0: 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 ITE_VERSION_NUMB
5fd0: 45 52 20 3e 3d 20 33 30 30 38 30 30 37 0d 0a 20 ER >= 3008007..
5fe0: 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 CollSeq *pColl
5ff0: 3d 20 63 74 78 20 3f 20 73 71 6c 69 74 65 33 47 = ctx ? sqlite3G
6000: 65 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 74 etFuncCollSeq(ct
6010: 78 29 20 3a 20 30 3b 0d 0a 23 65 6c 73 65 0d 0a x) : 0;..#else..
6020: 20 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c CollSeq *pColl
6030: 20 3d 20 63 74 78 20 3f 20 63 74 78 2d 3e 70 43 = ctx ? ctx->pC
6040: 6f 6c 6c 20 3a 20 30 3b 0d 0a 23 65 6e 64 69 66 oll : 0;..#endif
6050: 0d 0a 20 20 69 66 20 28 21 63 74 78 20 7c 7c 20 .. if (!ctx ||
6060: 21 63 74 78 2d 3e 70 46 75 6e 63 29 20 72 65 74 !ctx->pFunc) ret
6070: 75 72 6e 20 34 3b 20 2f 2a 20 45 52 52 4f 52 20 urn 4; /* ERROR
6080: 2a 2f 0d 0a 20 20 69 66 20 28 21 70 43 6f 6c 6c */.. if (!pColl
6090: 20 7c 7c 20 21 70 43 6f 6c 6c 2d 3e 78 43 6d 70 || !pColl->xCmp
60a0: 29 20 72 65 74 75 72 6e 20 33 3b 20 2f 2a 20 45 ) return 3; /* E
60b0: 52 52 4f 52 20 2a 2f 0d 0a 23 69 66 20 53 51 4c RROR */..#if SQL
60c0: 49 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 ITE_VERSION_NUMB
60d0: 45 52 20 3e 3d 20 33 30 30 38 30 30 31 0d 0a 20 ER >= 3008001..
60e0: 20 69 66 20 28 28 63 74 78 2d 3e 70 46 75 6e 63 if ((ctx->pFunc
60f0: 2d 3e 66 75 6e 63 46 6c 61 67 73 20 26 20 53 51 ->funcFlags & SQ
6100: 4c 49 54 45 5f 46 55 4e 43 5f 4e 45 45 44 43 4f LITE_FUNC_NEEDCO
6110: 4c 4c 29 20 3d 3d 20 30 29 20 72 65 74 75 72 6e LL) == 0) return
6120: 20 32 3b 20 2f 2a 20 45 52 52 4f 52 20 2a 2f 0d 2; /* ERROR */.
6130: 0a 23 65 6c 73 65 0d 0a 20 20 69 66 20 28 28 63 .#else.. if ((c
6140: 74 78 2d 3e 70 46 75 6e 63 2d 3e 66 6c 61 67 73 tx->pFunc->flags
6150: 20 26 20 53 51 4c 49 54 45 5f 46 55 4e 43 5f 4e & SQLITE_FUNC_N
6160: 45 45 44 43 4f 4c 4c 29 20 3d 3d 20 30 29 20 72 EEDCOLL) == 0) r
6170: 65 74 75 72 6e 20 32 3b 20 2f 2a 20 45 52 52 4f eturn 2; /* ERRO
6180: 52 20 2a 2f 0d 0a 23 65 6e 64 69 66 0d 0a 20 20 R */..#endif..
6190: 72 65 74 75 72 6e 20 70 43 6f 6c 6c 2d 3e 78 43 return pColl->xC
61a0: 6d 70 28 70 43 6f 6c 6c 2d 3e 70 55 73 65 72 2c mp(pColl->pUser,
61b0: 20 70 31 6c 65 6e 2c 20 70 31 2c 20 70 32 6c 65 p1len, p1, p2le
61c0: 6e 2c 20 70 32 29 3b 0d 0a 7d 0d 0a 0d 0a 53 51 n, p2);..}....SQ
61d0: 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 LITE_API const c
61e0: 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c har * WINAPI sql
61f0: 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 63 6f 6c ite3_context_col
6200: 6c 73 65 71 5f 69 6e 74 65 72 6f 70 28 73 71 6c lseq_interop(sql
6210: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 ite3_context *ct
6220: 78 2c 20 69 6e 74 20 2a 70 74 79 70 65 2c 20 69 x, int *ptype, i
6230: 6e 74 20 2a 65 6e 63 2c 20 69 6e 74 20 2a 70 6c nt *enc, int *pl
6240: 65 6e 29 0d 0a 7b 0d 0a 23 69 66 20 53 51 4c 49 en)..{..#if SQLI
6250: 54 45 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 TE_VERSION_NUMBE
6260: 52 20 3e 3d 20 33 30 30 38 30 30 37 0d 0a 20 20 R >= 3008007..
6270: 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 3d CollSeq *pColl =
6280: 20 63 74 78 20 3f 20 73 71 6c 69 74 65 33 47 65 ctx ? sqlite3Ge
6290: 74 46 75 6e 63 43 6f 6c 6c 53 65 71 28 63 74 78 tFuncCollSeq(ctx
62a0: 29 20 3a 20 30 3b 0d 0a 23 65 6c 73 65 0d 0a 20 ) : 0;..#else..
62b0: 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c 20 CollSeq *pColl
62c0: 3d 20 63 74 78 20 3f 20 63 74 78 2d 3e 70 43 6f = ctx ? ctx->pCo
62d0: 6c 6c 20 3a 20 30 3b 0d 0a 23 65 6e 64 69 66 0d ll : 0;..#endif.
62e0: 0a 20 20 69 66 20 28 70 74 79 70 65 29 20 2a 70 . if (ptype) *p
62f0: 74 79 70 65 20 3d 20 30 3b 0d 0a 20 20 69 66 20 type = 0;.. if
6300: 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 30 (plen) *plen = 0
6310: 3b 0d 0a 20 20 69 66 20 28 65 6e 63 29 20 2a 65 ;.. if (enc) *e
6320: 6e 63 20 3d 20 30 3b 0d 0a 0d 0a 20 20 69 66 20 nc = 0;.... if
6330: 28 21 63 74 78 20 7c 7c 20 21 63 74 78 2d 3e 70 (!ctx || !ctx->p
6340: 46 75 6e 63 29 20 72 65 74 75 72 6e 20 4e 55 4c Func) return NUL
6350: 4c 3b 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 56 L;..#if SQLITE_V
6360: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d ERSION_NUMBER >=
6370: 20 33 30 30 38 30 30 31 0d 0a 20 20 69 66 20 28 3008001.. if (
6380: 28 63 74 78 2d 3e 70 46 75 6e 63 2d 3e 66 75 6e (ctx->pFunc->fun
6390: 63 46 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f cFlags & SQLITE_
63a0: 46 55 4e 43 5f 4e 45 45 44 43 4f 4c 4c 29 20 3d FUNC_NEEDCOLL) =
63b0: 3d 20 30 29 20 72 65 74 75 72 6e 20 4e 55 4c 4c = 0) return NULL
63c0: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 69 66 20 28 ;..#else.. if (
63d0: 28 63 74 78 2d 3e 70 46 75 6e 63 2d 3e 66 6c 61 (ctx->pFunc->fla
63e0: 67 73 20 26 20 53 51 4c 49 54 45 5f 46 55 4e 43 gs & SQLITE_FUNC
63f0: 5f 4e 45 45 44 43 4f 4c 4c 29 20 3d 3d 20 30 29 _NEEDCOLL) == 0)
6400: 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0d 0a 23 return NULL;..#
6410: 65 6e 64 69 66 0d 0a 0d 0a 20 20 69 66 20 28 70 endif.... if (p
6420: 43 6f 6c 6c 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 Coll).. {..
6430: 69 66 20 28 65 6e 63 29 20 2a 65 6e 63 20 3d 20 if (enc) *enc =
6440: 70 43 6f 6c 6c 2d 3e 65 6e 63 3b 0d 0a 23 69 66 pColl->enc;..#if
6450: 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e 5f SQLITE_VERSION_
6460: 4e 55 4d 42 45 52 20 3c 20 33 30 30 37 30 31 30 NUMBER < 3007010
6470: 0d 0a 20 20 20 20 69 66 20 28 70 74 79 70 65 29 .. if (ptype)
6480: 20 2a 70 74 79 70 65 20 3d 20 70 43 6f 6c 6c 2d *ptype = pColl-
6490: 3e 74 79 70 65 3b 0d 0a 23 65 6e 64 69 66 0d 0a >type;..#endif..
64a0: 20 20 20 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 if (plen) *p
64b0: 6c 65 6e 20 3d 20 70 43 6f 6c 6c 2d 3e 7a 4e 61 len = pColl->zNa
64c0: 6d 65 20 3f 20 73 74 72 6c 65 6e 28 70 43 6f 6c me ? strlen(pCol
64d0: 6c 2d 3e 7a 4e 61 6d 65 29 20 3a 20 30 3b 0d 0a l->zName) : 0;..
64e0: 0d 0a 20 20 20 20 72 65 74 75 72 6e 20 70 43 6f .. return pCo
64f0: 6c 6c 2d 3e 7a 4e 61 6d 65 3b 0d 0a 20 20 7d 0d ll->zName;.. }.
6500: 0a 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0d . return NULL;.
6510: 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f 41 50 49 .}....SQLITE_API
6520: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 57 49 const char * WI
6530: 4e 41 50 49 20 73 71 6c 69 74 65 33 5f 63 6f 6c NAPI sqlite3_col
6540: 75 6d 6e 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d umn_database_nam
6550: 65 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 e_interop(sqlite
6560: 33 5f 73 74 6d 74 20 2a 73 74 6d 74 2c 20 69 6e 3_stmt *stmt, in
6570: 74 20 69 43 6f 6c 2c 20 69 6e 74 20 2a 70 6c 65 t iCol, int *ple
6580: 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e 73 74 20 63 n)..{.. const c
6590: 68 61 72 20 2a 70 76 61 6c 20 3d 20 73 71 6c 69 har *pval = sqli
65a0: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 te3_column_datab
65b0: 61 73 65 5f 6e 61 6d 65 28 73 74 6d 74 2c 20 69 ase_name(stmt, i
65c0: 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 6c 65 Col);.. if (ple
65d0: 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 61 6c 20 n) *plen = pval
65e0: 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c 29 20 3a ? strlen(pval) :
65f0: 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 70 76 0;.. return pv
6600: 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 al;..}....SQLITE
6610: 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f 69 64 20 _API const void
6620: 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 * WINAPI sqlite3
6630: 5f 63 6f 6c 75 6d 6e 5f 64 61 74 61 62 61 73 65 _column_database
6640: 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f 70 28 _name16_interop(
6650: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
6660: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
6670: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
6680: 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 onst void *pval
6690: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
66a0: 5f 64 61 74 61 62 61 73 65 5f 6e 61 6d 65 31 36 _database_name16
66b0: 28 73 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 (stmt, iCol);..
66c0: 20 69 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e if (plen) *plen
66d0: 20 3d 20 70 76 61 6c 20 3f 20 77 63 73 6c 65 6e = pval ? wcslen
66e0: 28 28 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c ((wchar_t *)pval
66f0: 29 20 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 ) * sizeof(wchar
6700: 5f 74 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 _t) : 0;.. retu
6710: 72 6e 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 rn pval;..}....S
6720: 51 4c 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 QLITE_API const
6730: 63 68 61 72 20 2a 20 57 49 4e 41 50 49 20 73 71 char * WINAPI sq
6740: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 lite3_column_tab
6750: 6c 65 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 le_name_interop(
6760: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
6770: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
6780: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
6790: 6f 6e 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 onst char *pval
67a0: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
67b0: 5f 74 61 62 6c 65 5f 6e 61 6d 65 28 73 74 6d 74 _table_name(stmt
67c0: 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 , iCol);.. if (
67d0: 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 plen) *plen = pv
67e0: 61 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c al ? strlen(pval
67f0: 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e ) : 0;.. return
6800: 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval;..}....SQL
6810: 49 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f ITE_API const vo
6820: 69 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 id * WINAPI sqli
6830: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 61 62 6c 65 te3_column_table
6840: 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f 70 28 _name16_interop(
6850: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
6860: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
6870: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
6880: 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 onst void *pval
6890: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
68a0: 5f 74 61 62 6c 65 5f 6e 61 6d 65 31 36 28 73 74 _table_name16(st
68b0: 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 mt, iCol);.. if
68c0: 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 (plen) *plen =
68d0: 70 76 61 6c 20 3f 20 77 63 73 6c 65 6e 28 28 77 pval ? wcslen((w
68e0: 63 68 61 72 5f 74 20 2a 29 70 76 61 6c 29 20 2a char_t *)pval) *
68f0: 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 29 sizeof(wchar_t)
6900: 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 : 0;.. return
6910: 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 pval;..}....SQLI
6920: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 63 68 61 TE_API const cha
6930: 72 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 r * WINAPI sqlit
6940: 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e e3_column_origin
6950: 5f 6e 61 6d 65 5f 69 6e 74 65 72 6f 70 28 73 71 _name_interop(sq
6960: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 6d 74 lite3_stmt *stmt
6970: 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e 74 20 , int iCol, int
6980: 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 6f 6e *plen)..{.. con
6990: 73 74 20 63 68 61 72 20 2a 70 76 61 6c 20 3d 20 st char *pval =
69a0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 6f sqlite3_column_o
69b0: 72 69 67 69 6e 5f 6e 61 6d 65 28 73 74 6d 74 2c rigin_name(stmt,
69c0: 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 66 20 28 70 iCol);.. if (p
69d0: 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d 20 70 76 61 len) *plen = pva
69e0: 6c 20 3f 20 73 74 72 6c 65 6e 28 70 76 61 6c 29 l ? strlen(pval)
69f0: 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e 20 : 0;.. return
6a00: 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 pval;..}....SQLI
6a10: 54 45 5f 41 50 49 20 63 6f 6e 73 74 20 76 6f 69 TE_API const voi
6a20: 64 20 2a 20 57 49 4e 41 50 49 20 73 71 6c 69 74 d * WINAPI sqlit
6a30: 65 33 5f 63 6f 6c 75 6d 6e 5f 6f 72 69 67 69 6e e3_column_origin
6a40: 5f 6e 61 6d 65 31 36 5f 69 6e 74 65 72 6f 70 28 _name16_interop(
6a50: 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 73 74 sqlite3_stmt *st
6a60: 6d 74 2c 20 69 6e 74 20 69 43 6f 6c 2c 20 69 6e mt, int iCol, in
6a70: 74 20 2a 70 6c 65 6e 29 0d 0a 7b 0d 0a 20 20 63 t *plen)..{.. c
6a80: 6f 6e 73 74 20 76 6f 69 64 20 2a 70 76 61 6c 20 onst void *pval
6a90: 3d 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e = sqlite3_column
6aa0: 5f 6f 72 69 67 69 6e 5f 6e 61 6d 65 31 36 28 73 _origin_name16(s
6ab0: 74 6d 74 2c 20 69 43 6f 6c 29 3b 0d 0a 20 20 69 tmt, iCol);.. i
6ac0: 66 20 28 70 6c 65 6e 29 20 2a 70 6c 65 6e 20 3d f (plen) *plen =
6ad0: 20 70 76 61 6c 20 3f 20 77 63 73 6c 65 6e 28 28 pval ? wcslen((
6ae0: 77 63 68 61 72 5f 74 20 2a 29 70 76 61 6c 29 20 wchar_t *)pval)
6af0: 2a 20 73 69 7a 65 6f 66 28 77 63 68 61 72 5f 74 * sizeof(wchar_t
6b00: 29 20 3a 20 30 3b 0d 0a 20 20 72 65 74 75 72 6e ) : 0;.. return
6b10: 20 70 76 61 6c 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c pval;..}....SQL
6b20: 49 54 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 ITE_API int WINA
6b30: 50 49 20 73 71 6c 69 74 65 33 5f 74 61 62 6c 65 PI sqlite3_table
6b40: 5f 63 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 61 _column_metadata
6b50: 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 33 _interop(sqlite3
6b60: 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 *db, const char
6b70: 20 2a 7a 44 62 4e 61 6d 65 2c 20 63 6f 6e 73 74 *zDbName, const
6b80: 20 63 68 61 72 20 2a 7a 54 61 62 6c 65 4e 61 6d char *zTableNam
6b90: 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a e, const char *z
6ba0: 43 6f 6c 75 6d 6e 4e 61 6d 65 2c 20 63 68 61 72 ColumnName, char
6bb0: 20 2a 2a 70 7a 44 61 74 61 54 79 70 65 2c 20 63 **pzDataType, c
6bc0: 68 61 72 20 2a 2a 70 7a 43 6f 6c 6c 53 65 71 2c har **pzCollSeq,
6bd0: 20 69 6e 74 20 2a 70 4e 6f 74 4e 75 6c 6c 2c 20 int *pNotNull,
6be0: 69 6e 74 20 2a 70 50 72 69 6d 61 72 79 4b 65 79 int *pPrimaryKey
6bf0: 2c 20 69 6e 74 20 2a 70 41 75 74 6f 69 6e 63 2c , int *pAutoinc,
6c00: 20 69 6e 74 20 2a 70 64 74 4c 65 6e 2c 20 69 6e int *pdtLen, in
6c10: 74 20 2a 70 63 73 4c 65 6e 29 0d 0a 7b 0d 0a 20 t *pcsLen)..{..
6c20: 20 69 6e 74 20 6e 3b 0d 0a 0d 0a 20 20 6e 20 3d int n;.... n =
6c30: 20 73 71 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 sqlite3_table_c
6c40: 6f 6c 75 6d 6e 5f 6d 65 74 61 64 61 74 61 28 64 olumn_metadata(d
6c50: 62 2c 20 7a 44 62 4e 61 6d 65 2c 20 7a 54 61 62 b, zDbName, zTab
6c60: 6c 65 4e 61 6d 65 2c 20 7a 43 6f 6c 75 6d 6e 4e leName, zColumnN
6c70: 61 6d 65 2c 20 70 7a 44 61 74 61 54 79 70 65 2c ame, pzDataType,
6c80: 20 70 7a 43 6f 6c 6c 53 65 71 2c 20 70 4e 6f 74 pzCollSeq, pNot
6c90: 4e 75 6c 6c 2c 20 70 50 72 69 6d 61 72 79 4b 65 Null, pPrimaryKe
6ca0: 79 2c 20 70 41 75 74 6f 69 6e 63 29 3b 0d 0a 0d y, pAutoinc);...
6cb0: 0a 20 20 69 66 20 28 70 64 74 4c 65 6e 29 20 2a . if (pdtLen) *
6cc0: 70 64 74 4c 65 6e 20 3d 20 28 70 7a 44 61 74 61 pdtLen = (pzData
6cd0: 54 79 70 65 20 26 26 20 2a 70 7a 44 61 74 61 54 Type && *pzDataT
6ce0: 79 70 65 29 20 3f 20 73 74 72 6c 65 6e 28 2a 70 ype) ? strlen(*p
6cf0: 7a 44 61 74 61 54 79 70 65 29 20 3a 20 30 3b 0d zDataType) : 0;.
6d00: 0a 20 20 69 66 20 28 70 63 73 4c 65 6e 29 20 2a . if (pcsLen) *
6d10: 70 63 73 4c 65 6e 20 3d 20 28 70 7a 43 6f 6c 6c pcsLen = (pzColl
6d20: 53 65 71 20 26 26 20 2a 70 7a 43 6f 6c 6c 53 65 Seq && *pzCollSe
6d30: 71 29 20 3f 20 73 74 72 6c 65 6e 28 2a 70 7a 43 q) ? strlen(*pzC
6d40: 6f 6c 6c 53 65 71 29 20 3a 20 30 3b 0d 0a 0d 0a ollSeq) : 0;....
6d50: 20 20 72 65 74 75 72 6e 20 6e 3b 0d 0a 7d 0d 0a return n;..}..
6d60: 0d 0a 53 51 4c 49 54 45 5f 41 50 49 20 69 6e 74 ..SQLITE_API int
6d70: 20 57 49 4e 41 50 49 20 73 71 6c 69 74 65 33 5f WINAPI sqlite3_
6d80: 69 6e 64 65 78 5f 63 6f 6c 75 6d 6e 5f 69 6e 66 index_column_inf
6d90: 6f 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 74 65 o_interop(sqlite
6da0: 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 61 3 *db, const cha
6db0: 72 20 2a 7a 44 62 2c 20 63 6f 6e 73 74 20 63 68 r *zDb, const ch
6dc0: 61 72 20 2a 7a 49 6e 64 65 78 4e 61 6d 65 2c 20 ar *zIndexName,
6dd0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 6c const char *zCol
6de0: 75 6d 6e 4e 61 6d 65 2c 20 69 6e 74 20 2a 73 6f umnName, int *so
6df0: 72 74 4f 72 64 65 72 2c 20 69 6e 74 20 2a 6f 6e rtOrder, int *on
6e00: 45 72 72 6f 72 2c 20 63 68 61 72 20 2a 2a 70 7a Error, char **pz
6e10: 43 6f 6c 6c 2c 20 69 6e 74 20 2a 70 6c 65 6e 29 Coll, int *plen)
6e20: 0d 0a 7b 0d 0a 20 20 49 6e 64 65 78 20 2a 70 49 ..{.. Index *pI
6e30: 64 78 3b 0d 0a 20 20 54 61 62 6c 65 20 2a 70 54 dx;.. Table *pT
6e40: 61 62 3b 0d 0a 20 20 69 6e 74 20 6e 3b 0d 0a 0d ab;.. int n;...
6e50: 0a 20 20 69 66 20 28 21 64 62 29 20 72 65 74 75 . if (!db) retu
6e60: 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b rn SQLITE_ERROR;
6e70: 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 .. sqlite3_mute
6e80: 78 5f 65 6e 74 65 72 28 64 62 2d 3e 6d 75 74 65 x_enter(db->mute
6e90: 78 29 3b 0d 0a 20 20 73 71 6c 69 74 65 33 42 74 x);.. sqlite3Bt
6ea0: 72 65 65 45 6e 74 65 72 41 6c 6c 28 64 62 29 3b reeEnterAll(db);
6eb0: 0d 0a 0d 0a 20 20 70 49 64 78 20 3d 20 73 71 6c .... pIdx = sql
6ec0: 69 74 65 33 46 69 6e 64 49 6e 64 65 78 28 64 62 ite3FindIndex(db
6ed0: 2c 20 7a 49 6e 64 65 78 4e 61 6d 65 2c 20 7a 44 , zIndexName, zD
6ee0: 62 29 3b 0d 0a 0d 0a 20 20 73 71 6c 69 74 65 33 b);.... sqlite3
6ef0: 42 74 72 65 65 4c 65 61 76 65 41 6c 6c 28 64 62 BtreeLeaveAll(db
6f00: 29 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 );.. sqlite3_mu
6f10: 74 65 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 tex_leave(db->mu
6f20: 74 65 78 29 3b 0d 0a 0d 0a 20 20 69 66 20 28 21 tex);.... if (!
6f30: 70 49 64 78 29 20 72 65 74 75 72 6e 20 53 51 4c pIdx) return SQL
6f40: 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 0d 0a 20 20 ITE_ERROR;....
6f50: 70 54 61 62 20 3d 20 70 49 64 78 2d 3e 70 54 61 pTab = pIdx->pTa
6f60: 62 6c 65 3b 0d 0a 20 20 66 6f 72 20 28 6e 20 3d ble;.. for (n =
6f70: 20 30 3b 20 6e 20 3c 20 70 49 64 78 2d 3e 6e 43 0; n < pIdx->nC
6f80: 6f 6c 75 6d 6e 3b 20 6e 2b 2b 29 0d 0a 20 20 7b olumn; n++).. {
6f90: 0d 0a 20 20 20 20 69 6e 74 20 63 6e 75 6d 20 3d .. int cnum =
6fa0: 20 70 49 64 78 2d 3e 61 69 43 6f 6c 75 6d 6e 5b pIdx->aiColumn[
6fb0: 6e 5d 3b 0d 0a 20 20 20 20 69 66 20 28 73 71 6c n];.. if (sql
6fc0: 69 74 65 33 53 74 72 49 43 6d 70 28 70 54 61 62 ite3StrICmp(pTab
6fd0: 2d 3e 61 43 6f 6c 5b 63 6e 75 6d 5d 2e 7a 4e 61 ->aCol[cnum].zNa
6fe0: 6d 65 2c 20 7a 43 6f 6c 75 6d 6e 4e 61 6d 65 29 me, zColumnName)
6ff0: 20 3d 3d 20 30 29 0d 0a 20 20 20 20 7b 0d 0a 20 == 0).. {..
7000: 20 20 20 20 20 69 66 20 28 20 73 6f 72 74 4f 72 if ( sortOr
7010: 64 65 72 20 29 20 2a 73 6f 72 74 4f 72 64 65 72 der ) *sortOrder
7020: 20 3d 20 70 49 64 78 2d 3e 61 53 6f 72 74 4f 72 = pIdx->aSortOr
7030: 64 65 72 5b 6e 5d 3b 0d 0a 20 20 20 20 20 20 69 der[n];.. i
7040: 66 20 28 20 70 7a 43 6f 6c 6c 20 29 20 2a 70 7a f ( pzColl ) *pz
7050: 43 6f 6c 6c 20 3d 20 70 49 64 78 2d 3e 61 7a 43 Coll = pIdx->azC
7060: 6f 6c 6c 5b 6e 5d 3b 0d 0a 20 20 20 20 20 20 69 oll[n];.. i
7070: 66 20 28 20 70 6c 65 6e 20 29 20 2a 70 6c 65 6e f ( plen ) *plen
7080: 20 3d 20 73 74 72 6c 65 6e 28 2a 70 7a 43 6f 6c = strlen(*pzCol
7090: 6c 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 28 20 l);.. if (
70a0: 6f 6e 45 72 72 6f 72 20 29 20 2a 6f 6e 45 72 72 onError ) *onErr
70b0: 6f 72 20 3d 20 70 49 64 78 2d 3e 6f 6e 45 72 72 or = pIdx->onErr
70c0: 6f 72 3b 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 or;.... ret
70d0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a urn SQLITE_OK;..
70e0: 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 20 20 72 65 }.. }.. re
70f0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f turn SQLITE_ERRO
7100: 52 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 45 5f R;..}....SQLITE_
7110: 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 20 73 API int WINAPI s
7120: 71 6c 69 74 65 33 5f 74 61 62 6c 65 5f 63 75 72 qlite3_table_cur
7130: 73 6f 72 5f 69 6e 74 65 72 6f 70 28 73 71 6c 69 sor_interop(sqli
7140: 74 65 33 5f 73 74 6d 74 20 2a 70 73 74 6d 74 2c te3_stmt *pstmt,
7150: 20 69 6e 74 20 69 44 62 2c 20 50 67 6e 6f 20 74 int iDb, Pgno t
7160: 61 62 6c 65 52 6f 6f 74 50 61 67 65 29 0d 0a 7b ableRootPage)..{
7170: 0d 0a 20 20 56 64 62 65 20 2a 70 20 3d 20 28 56 .. Vdbe *p = (V
7180: 64 62 65 20 2a 29 70 73 74 6d 74 3b 0d 0a 20 20 dbe *)pstmt;..
7190: 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 28 70 sqlite3 *db = (p
71a0: 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 4e 55 4c 4c == NULL) ? NULL
71b0: 20 3a 20 70 2d 3e 64 62 3b 0d 0a 20 20 69 6e 74 : p->db;.. int
71c0: 20 6e 3b 0d 0a 20 20 69 6e 74 20 72 65 74 20 3d n;.. int ret =
71d0: 20 2d 31 3b 20 2f 2a 20 4e 4f 54 20 46 4f 55 4e -1; /* NOT FOUN
71e0: 44 20 2a 2f 0d 0a 0d 0a 20 20 69 66 20 28 21 70 D */.... if (!p
71f0: 20 7c 7c 20 21 64 62 29 20 72 65 74 75 72 6e 20 || !db) return
7200: 72 65 74 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f ret;.. sqlite3_
7210: 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e mutex_enter(db->
7220: 6d 75 74 65 78 29 3b 0d 0a 20 20 66 6f 72 20 28 mutex);.. for (
7230: 6e 20 3d 20 30 3b 20 6e 20 3c 20 70 2d 3e 6e 43 n = 0; n < p->nC
7240: 75 72 73 6f 72 20 26 26 20 70 2d 3e 61 70 43 73 ursor && p->apCs
7250: 72 5b 6e 5d 20 21 3d 20 4e 55 4c 4c 3b 20 6e 2b r[n] != NULL; n+
7260: 2b 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 66 20 +).. {.. if
7270: 28 70 2d 3e 61 70 43 73 72 5b 6e 5d 2d 3e 69 73 (p->apCsr[n]->is
7280: 54 61 62 6c 65 20 3d 3d 20 46 41 4c 53 45 29 20 Table == FALSE)
7290: 63 6f 6e 74 69 6e 75 65 3b 0d 0a 20 20 20 20 69 continue;.. i
72a0: 66 20 28 70 2d 3e 61 70 43 73 72 5b 6e 5d 2d 3e f (p->apCsr[n]->
72b0: 69 44 62 20 21 3d 20 69 44 62 29 20 63 6f 6e 74 iDb != iDb) cont
72c0: 69 6e 75 65 3b 0d 0a 20 20 20 20 69 66 20 28 70 inue;.. if (p
72d0: 2d 3e 61 70 43 73 72 5b 6e 5d 2d 3e 70 43 75 72 ->apCsr[n]->pCur
72e0: 73 6f 72 2d 3e 70 67 6e 6f 52 6f 6f 74 20 3d 3d sor->pgnoRoot ==
72f0: 20 74 61 62 6c 65 52 6f 6f 74 50 61 67 65 29 0d tableRootPage).
7300: 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 65 . {.. re
7310: 74 20 3d 20 6e 3b 0d 0a 20 20 20 20 20 20 62 72 t = n;.. br
7320: 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d eak;.. }.. }
7330: 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 .. sqlite3_mute
7340: 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
7350: 78 29 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 x);.... return
7360: 72 65 74 3b 0d 0a 7d 0d 0a 0d 0a 53 51 4c 49 54 ret;..}....SQLIT
7370: 45 5f 41 50 49 20 69 6e 74 20 57 49 4e 41 50 49 E_API int WINAPI
7380: 20 73 71 6c 69 74 65 33 5f 63 75 72 73 6f 72 5f sqlite3_cursor_
7390: 72 6f 77 69 64 5f 69 6e 74 65 72 6f 70 28 73 71 rowid_interop(sq
73a0: 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 73 74 6d lite3_stmt *pstm
73b0: 74 2c 20 69 6e 74 20 63 75 72 73 6f 72 2c 20 73 t, int cursor, s
73c0: 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70 72 6f qlite_int64 *pro
73d0: 77 69 64 29 0d 0a 7b 0d 0a 20 20 56 64 62 65 20 wid)..{.. Vdbe
73e0: 2a 70 20 3d 20 28 56 64 62 65 20 2a 29 70 73 74 *p = (Vdbe *)pst
73f0: 6d 74 3b 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a mt;.. sqlite3 *
7400: 64 62 20 3d 20 28 70 20 3d 3d 20 4e 55 4c 4c 29 db = (p == NULL)
7410: 20 3f 20 4e 55 4c 4c 20 3a 20 70 2d 3e 64 62 3b ? NULL : p->db;
7420: 0d 0a 20 20 56 64 62 65 43 75 72 73 6f 72 20 2a .. VdbeCursor *
7430: 70 43 3b 0d 0a 20 20 69 6e 74 20 72 65 74 20 3d pC;.. int ret =
7440: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0d 0a 0d 0a 20 SQLITE_OK;....
7450: 20 69 66 20 28 21 70 20 7c 7c 20 21 64 62 29 20 if (!p || !db)
7460: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 return SQLITE_ER
7470: 52 4f 52 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f ROR;.. sqlite3_
7480: 6d 75 74 65 78 5f 65 6e 74 65 72 28 64 62 2d 3e mutex_enter(db->
7490: 6d 75 74 65 78 29 3b 0d 0a 20 20 77 68 69 6c 65 mutex);.. while
74a0: 20 28 31 29 0d 0a 20 20 7b 0d 0a 20 20 20 20 69 (1).. {.. i
74b0: 66 20 28 63 75 72 73 6f 72 20 3c 20 30 20 7c 7c f (cursor < 0 ||
74c0: 20 63 75 72 73 6f 72 20 3e 3d 20 70 2d 3e 6e 43 cursor >= p->nC
74d0: 75 72 73 6f 72 29 0d 0a 20 20 20 20 7b 0d 0a 20 ursor).. {..
74e0: 20 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 54 ret = SQLIT
74f0: 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 20 20 E_ERROR;..
7500: 62 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a 20 break;.. }..
7510: 20 20 20 69 66 20 28 70 2d 3e 61 70 43 73 72 5b if (p->apCsr[
7520: 63 75 72 73 6f 72 5d 20 3d 3d 20 4e 55 4c 4c 29 cursor] == NULL)
7530: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 72 .. {.. r
7540: 65 74 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f et = SQLITE_ERRO
7550: 52 3b 0d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b R;.. break;
7560: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 70 .. }.... p
7570: 43 20 3d 20 70 2d 3e 61 70 43 73 72 5b 63 75 72 C = p->apCsr[cur
7580: 73 6f 72 5d 3b 0d 0a 0d 0a 20 20 20 20 72 65 74 sor];.... ret
7590: 20 3d 20 73 71 6c 69 74 65 33 56 64 62 65 43 75 = sqlite3VdbeCu
75a0: 72 73 6f 72 4d 6f 76 65 74 6f 28 70 43 29 3b 0d rsorMoveto(pC);.
75b0: 0a 20 20 20 20 69 66 28 72 65 74 29 0d 0a 20 20 . if(ret)..
75c0: 20 20 20 20 62 72 65 61 6b 3b 0d 0a 0d 0a 23 69 break;....#i
75d0: 66 20 53 51 4c 49 54 45 5f 56 45 52 53 49 4f 4e f SQLITE_VERSION
75e0: 5f 4e 55 4d 42 45 52 20 3c 20 33 30 30 38 30 30 _NUMBER < 300800
75f0: 37 0d 0a 20 20 20 20 69 66 28 70 43 2d 3e 72 6f 7.. if(pC->ro
7600: 77 69 64 49 73 56 61 6c 69 64 29 0d 0a 20 20 20 widIsValid)..
7610: 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 28 70 72 {.. if (pr
7620: 6f 77 69 64 29 20 2a 70 72 6f 77 69 64 20 3d 20 owid) *prowid =
7630: 70 43 2d 3e 6c 61 73 74 52 6f 77 69 64 3b 0d 0a pC->lastRowid;..
7640: 20 20 20 20 7d 0d 0a 20 20 20 20 65 6c 73 65 0d }.. else.
7650: 0a 23 65 6e 64 69 66 0d 0a 20 20 20 20 69 66 28 .#endif.. if(
7660: 70 43 2d 3e 70 73 65 75 64 6f 54 61 62 6c 65 52 pC->pseudoTableR
7670: 65 67 20 3e 20 30 29 0d 0a 20 20 20 20 7b 0d 0a eg > 0).. {..
7680: 20 20 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 ret = SQLI
7690: 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 20 TE_ERROR;..
76a0: 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 7d 0d 0a break;.. }..
76b0: 20 20 20 20 65 6c 73 65 20 69 66 28 70 43 2d 3e else if(pC->
76c0: 6e 75 6c 6c 52 6f 77 20 7c 7c 20 70 43 2d 3e 70 nullRow || pC->p
76d0: 43 75 72 73 6f 72 3d 3d 30 29 0d 0a 20 20 20 20 Cursor==0)..
76e0: 7b 0d 0a 20 20 20 20 20 20 72 65 74 20 3d 20 53 {.. ret = S
76f0: 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 QLITE_ERROR;..
7700: 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 break;..
7710: 7d 0d 0a 20 20 20 20 65 6c 73 65 0d 0a 20 20 20 }.. else..
7720: 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 28 70 43 {.. if (pC
7730: 2d 3e 70 43 75 72 73 6f 72 20 3d 3d 20 4e 55 4c ->pCursor == NUL
7740: 4c 29 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 L).. {..
7750: 20 20 20 20 20 72 65 74 20 3d 20 53 51 4c 49 54 ret = SQLIT
7760: 45 5f 45 52 52 4f 52 3b 0d 0a 20 20 20 20 20 20 E_ERROR;..
7770: 20 20 62 72 65 61 6b 3b 0d 0a 20 20 20 20 20 20 break;..
7780: 7d 0d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 }.. sqlite3
7790: 42 74 72 65 65 4b 65 79 53 69 7a 65 28 70 43 2d BtreeKeySize(pC-
77a0: 3e 70 43 75 72 73 6f 72 2c 20 70 72 6f 77 69 64 >pCursor, prowid
77b0: 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 28 70 72 );.. if (pr
77c0: 6f 77 69 64 29 20 2a 70 72 6f 77 69 64 20 3d 20 owid) *prowid =
77d0: 2a 70 72 6f 77 69 64 3b 0d 0a 20 20 20 20 7d 0d *prowid;.. }.
77e0: 0a 20 20 20 20 62 72 65 61 6b 3b 0d 0a 20 20 7d . break;.. }
77f0: 0d 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 .. sqlite3_mute
7800: 78 5f 6c 65 61 76 65 28 64 62 2d 3e 6d 75 74 65 x_leave(db->mute
7810: 78 29 3b 0d 0a 0d 0a 20 20 72 65 74 75 72 6e 20 x);.... return
7820: 72 65 74 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 20 ret;..}..#endif
7830: 2f 2a 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e /* SQLITE_OS_WIN
7840: 20 2a 2f 0d 0a 0d 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a */..../********
7850: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7860: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7870: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7880: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7890: 2a 2a 2a 2a 2a 2f 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a *****/..../*..**
78a0: 20 54 68 65 20 49 4e 54 45 52 4f 50 5f 54 45 53 The INTEROP_TES
78b0: 54 5f 45 58 54 45 4e 53 49 4f 4e 20 62 6c 6f 63 T_EXTENSION bloc
78c0: 6b 20 6d 75 73 74 20 62 65 20 61 74 20 74 68 65 k must be at the
78d0: 20 65 6e 64 20 6f 66 20 74 68 69 73 20 73 6f 75 end of this sou
78e0: 72 63 65 20 66 69 6c 65 0d 0a 2a 2a 20 62 65 63 rce file..** bec
78f0: 61 75 73 65 20 69 74 20 69 6e 63 6c 75 64 65 73 ause it includes
7900: 20 74 68 65 20 22 73 71 6c 69 74 65 33 65 78 74 the "sqlite3ext
7910: 2e 68 22 20 66 69 6c 65 2c 20 77 68 69 63 68 20 .h" file, which
7920: 64 65 66 69 6e 65 73 20 74 68 65 20 73 71 6c 69 defines the sqli
7930: 74 65 33 0d 0a 2a 2a 20 70 75 62 6c 69 63 20 41 te3..** public A
7940: 50 49 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 PI function name
7950: 73 20 74 6f 20 62 65 20 6d 61 63 72 6f 73 20 61 s to be macros a
7960: 6e 64 20 74 68 61 74 20 77 6f 75 6c 64 20 63 61 nd that would ca
7970: 75 73 65 20 74 68 65 20 63 6f 64 65 0d 0a 2a 2a use the code..**
7980: 20 61 62 6f 76 65 20 74 68 69 73 20 70 6f 69 6e above this poin
7990: 74 20 74 6f 20 6d 61 6c 66 75 6e 63 74 69 6f 6e t to malfunction
79a0: 2e 0d 0a 2a 2f 0d 0a 23 69 66 20 64 65 66 69 6e ...*/..#if defin
79b0: 65 64 28 49 4e 54 45 52 4f 50 5f 54 45 53 54 5f ed(INTEROP_TEST_
79c0: 45 58 54 45 4e 53 49 4f 4e 29 0d 0a 23 69 6e 63 EXTENSION)..#inc
79d0: 6c 75 64 65 20 22 2e 2e 2f 63 6f 72 65 2f 73 71 lude "../core/sq
79e0: 6c 69 74 65 33 65 78 74 2e 68 22 0d 0a 53 51 4c lite3ext.h"..SQL
79f0: 49 54 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e ITE_EXTENSION_IN
7a00: 49 54 31 0d 0a 0d 0a 2f 2a 0d 0a 2a 2a 20 54 68 IT1..../*..** Th
7a10: 65 20 69 6e 74 65 72 6f 70 54 65 73 74 28 29 20 e interopTest()
7a20: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 SQL function ret
7a30: 75 72 6e 73 20 69 74 73 20 66 69 72 73 74 20 61 urns its first a
7a40: 72 67 75 6d 65 6e 74 20 6f 72 20 72 61 69 73 65 rgument or raise
7a50: 73 20 61 6e 0d 0a 2a 2a 20 65 72 72 6f 72 20 69 s an..** error i
7a60: 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 74 20 f there are not
7a70: 65 6e 6f 75 67 68 20 61 72 67 75 6d 65 6e 74 73 enough arguments
7a80: 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 50 52 ...*/..SQLITE_PR
7a90: 49 56 41 54 45 20 76 6f 69 64 20 69 6e 74 65 72 IVATE void inter
7aa0: 6f 70 54 65 73 74 46 75 6e 63 28 0d 0a 20 20 73 opTestFunc(.. s
7ab0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a qlite3_context *
7ac0: 63 6f 6e 74 65 78 74 2c 0d 0a 20 20 69 6e 74 20 context,.. int
7ad0: 61 72 67 63 2c 0d 0a 20 20 73 71 6c 69 74 65 33 argc,.. sqlite3
7ae0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0d 0a 29 _value **argv..)
7af0: 7b 0d 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 {.. const unsig
7b00: 6e 65 64 20 63 68 61 72 20 2a 7a 3b 0d 0a 20 20 ned char *z;..
7b10: 69 66 28 20 61 72 67 63 21 3d 31 20 29 7b 0d 0a if( argc!=1 ){..
7b20: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
7b30: 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 lt_error(context
7b40: 2c 20 22 6e 65 65 64 20 65 78 61 63 74 6c 79 20 , "need exactly
7b50: 6f 6e 65 20 61 72 67 75 6d 65 6e 74 22 2c 20 2d one argument", -
7b60: 31 29 3b 0d 0a 20 20 20 20 72 65 74 75 72 6e 3b 1);.. return;
7b70: 0d 0a 20 20 7d 0d 0a 20 20 7a 20 3d 20 73 71 6c .. }.. z = sql
7b80: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 ite3_value_text(
7b90: 61 72 67 76 5b 30 5d 29 3b 0d 0a 20 20 69 66 28 argv[0]);.. if(
7ba0: 20 7a 20 29 7b 0d 0a 20 20 20 20 73 71 6c 69 74 z ){.. sqlit
7bb0: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
7bc0: 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a 29 7a ontext, (char*)z
7bd0: 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54 41 , -1, SQLITE_STA
7be0: 54 49 43 29 3b 0d 0a 20 20 7d 65 6c 73 65 7b 0d TIC);.. }else{.
7bf0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
7c00: 75 6c 74 5f 6e 75 6c 6c 28 63 6f 6e 74 65 78 74 ult_null(context
7c10: 29 3b 0d 0a 20 20 7d 0d 0a 7d 0d 0a 0d 0a 2f 2a );.. }..}..../*
7c20: 0d 0a 2a 2a 20 54 68 65 20 69 6e 74 65 72 6f 70 ..** The interop
7c30: 53 6c 65 65 70 28 29 20 53 51 4c 20 66 75 6e 63 Sleep() SQL func
7c40: 74 69 6f 6e 20 77 61 69 74 73 20 74 68 65 20 73 tion waits the s
7c50: 70 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 pecified number
7c60: 6f 66 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 0d of milliseconds.
7c70: 0a 2a 2a 20 6f 72 20 72 61 69 73 65 73 20 61 6e .** or raises an
7c80: 20 65 72 72 6f 72 20 69 66 20 74 68 65 72 65 20 error if there
7c90: 61 72 65 20 6e 6f 74 20 65 6e 6f 75 67 68 20 61 are not enough a
7ca0: 72 67 75 6d 65 6e 74 73 2e 0d 0a 2a 2f 0d 0a 53 rguments...*/..S
7cb0: 51 4c 49 54 45 5f 50 52 49 56 41 54 45 20 76 6f QLITE_PRIVATE vo
7cc0: 69 64 20 69 6e 74 65 72 6f 70 53 6c 65 65 70 46 id interopSleepF
7cd0: 75 6e 63 28 0d 0a 20 20 73 71 6c 69 74 65 33 5f unc(.. sqlite3_
7ce0: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 context *context
7cf0: 2c 0d 0a 20 20 69 6e 74 20 61 72 67 63 2c 0d 0a ,.. int argc,..
7d00: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
7d10: 2a 2a 61 72 67 76 0d 0a 29 7b 0d 0a 20 20 69 6e **argv..){.. in
7d20: 74 20 6d 3b 0d 0a 20 20 69 66 28 20 61 72 67 63 t m;.. if( argc
7d30: 21 3d 31 20 29 7b 0d 0a 20 20 20 20 73 71 6c 69 !=1 ){.. sqli
7d40: 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 te3_result_error
7d50: 28 63 6f 6e 74 65 78 74 2c 20 22 6e 65 65 64 20 (context, "need
7d60: 65 78 61 63 74 6c 79 20 6f 6e 65 20 61 72 67 75 exactly one argu
7d70: 6d 65 6e 74 22 2c 20 2d 31 29 3b 0d 0a 20 20 20 ment", -1);..
7d80: 20 72 65 74 75 72 6e 3b 0d 0a 20 20 7d 0d 0a 20 return;.. }..
7d90: 20 6d 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c m = sqlite3_val
7da0: 75 65 5f 69 6e 74 28 61 72 67 76 5b 30 5d 29 3b ue_int(argv[0]);
7db0: 0d 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f ..#if SQLITE_OS_
7dc0: 57 49 4e 43 45 0d 0a 20 20 53 6c 65 65 70 28 6d WINCE.. Sleep(m
7dd0: 29 3b 0d 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 );.. sqlite3_re
7de0: 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65 78 74 sult_int(context
7df0: 2c 20 57 41 49 54 5f 4f 42 4a 45 43 54 5f 30 29 , WAIT_OBJECT_0)
7e00: 3b 0d 0a 23 65 6c 73 65 0d 0a 20 20 73 71 6c 69 ;..#else.. sqli
7e10: 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 te3_result_int(c
7e20: 6f 6e 74 65 78 74 2c 20 53 6c 65 65 70 45 78 28 ontext, SleepEx(
7e30: 6d 2c 20 54 52 55 45 29 29 3b 0d 0a 23 65 6e 64 m, TRUE));..#end
7e40: 69 66 0d 0a 7d 0d 0a 0d 0a 2f 2a 20 53 51 4c 69 if..}..../* SQLi
7e50: 74 65 20 69 6e 76 6f 6b 65 73 20 74 68 69 73 20 te invokes this
7e60: 72 6f 75 74 69 6e 65 20 6f 6e 63 65 20 77 68 65 routine once whe
7e70: 6e 20 69 74 20 6c 6f 61 64 73 20 74 68 65 20 65 n it loads the e
7e80: 78 74 65 6e 73 69 6f 6e 2e 0d 0a 2a 2a 20 43 72 xtension...** Cr
7e90: 65 61 74 65 20 6e 65 77 20 66 75 6e 63 74 69 6f eate new functio
7ea0: 6e 73 2c 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 ns, collating se
7eb0: 71 75 65 6e 63 65 73 2c 20 61 6e 64 20 76 69 72 quences, and vir
7ec0: 74 75 61 6c 20 74 61 62 6c 65 0d 0a 2a 2a 20 6d tual table..** m
7ed0: 6f 64 75 6c 65 73 20 68 65 72 65 2e 20 20 54 68 odules here. Th
7ee0: 69 73 20 69 73 20 75 73 75 61 6c 6c 79 20 74 68 is is usually th
7ef0: 65 20 6f 6e 6c 79 20 65 78 70 6f 72 74 65 64 20 e only exported
7f00: 73 79 6d 62 6f 6c 20 69 6e 0d 0a 2a 2a 20 74 68 symbol in..** th
7f10: 65 20 73 68 61 72 65 64 20 6c 69 62 72 61 72 79 e shared library
7f20: 2e 0d 0a 2a 2f 0d 0a 53 51 4c 49 54 45 5f 41 50 ...*/..SQLITE_AP
7f30: 49 20 69 6e 74 20 69 6e 74 65 72 6f 70 5f 74 65 I int interop_te
7f40: 73 74 5f 65 78 74 65 6e 73 69 6f 6e 5f 69 6e 69 st_extension_ini
7f50: 74 28 0d 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 t(.. sqlite3 *d
7f60: 62 2c 0d 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 b,.. char **pzE
7f70: 72 72 4d 73 67 2c 0d 0a 20 20 63 6f 6e 73 74 20 rrMsg,.. const
7f80: 73 71 6c 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 sqlite3_api_rout
7f90: 69 6e 65 73 20 2a 70 41 70 69 0d 0a 29 7b 0d 0a ines *pApi..){..
7fa0: 20 20 69 6e 74 20 72 63 3b 0d 0a 20 20 53 51 4c int rc;.. SQL
7fb0: 49 54 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e ITE_EXTENSION_IN
7fc0: 49 54 32 28 70 41 70 69 29 0d 0a 20 20 72 63 20 IT2(pApi).. rc
7fd0: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 = sqlite3_create
7fe0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 69 _function(db, "i
7ff0: 6e 74 65 72 6f 70 54 65 73 74 22 2c 20 2d 31 2c nteropTest", -1,
8000: 20 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 0d SQLITE_ANY, 0,.
8010: 0a 20 20 20 20 20 20 69 6e 74 65 72 6f 70 54 65 . interopTe
8020: 73 74 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0d 0a stFunc, 0, 0);..
8030: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 if( rc==SQLITE
8040: 5f 4f 4b 20 29 7b 0d 0a 20 20 20 20 72 63 20 3d _OK ){.. rc =
8050: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f sqlite3_create_
8060: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 69 6e function(db, "in
8070: 74 65 72 6f 70 53 6c 65 65 70 22 2c 20 31 2c 20 teropSleep", 1,
8080: 53 51 4c 49 54 45 5f 41 4e 59 2c 20 30 2c 0d 0a SQLITE_ANY, 0,..
8090: 20 20 20 20 20 20 20 20 69 6e 74 65 72 6f 70 53 interopS
80a0: 6c 65 65 70 46 75 6e 63 2c 20 30 2c 20 30 29 3b leepFunc, 0, 0);
80b0: 0d 0a 20 20 7d 0d 0a 20 20 72 65 74 75 72 6e 20 .. }.. return
80c0: 72 63 3b 0d 0a 7d 0d 0a 23 65 6e 64 69 66 20 2f rc;..}..#endif /
80d0: 2a 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 * defined(SQLITE
80e0: 5f 4f 53 5f 57 49 4e 29 20 2a 2f 0d 0a _OS_WIN) */..