0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65 /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68 mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 ms copyright to
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a . In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d sing:.**.** M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 nd not evil..**
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 May you find
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 forgiveness for
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 give others..**
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 aking more than
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a you give..**.***
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0170: 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 55 74 69 6c 69 74 ******.** Utilit
0180: 79 20 66 75 6e 63 74 69 6f 6e 73 20 75 73 65 64 y functions used
0190: 20 74 68 72 6f 75 67 68 6f 75 74 20 73 71 6c 69 throughout sqli
01a0: 74 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 te..**.** This f
01b0: 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 66 75 6e ile contains fun
01c0: 63 74 69 6f 6e 73 20 66 6f 72 20 61 6c 6c 6f 63 ctions for alloc
01d0: 61 74 69 6e 67 20 6d 65 6d 6f 72 79 2c 20 63 6f ating memory, co
01e0: 6d 70 61 72 69 6e 67 0a 2a 2a 20 73 74 72 69 6e mparing.** strin
01f0: 67 73 2c 20 61 6e 64 20 73 74 75 66 66 20 6c 69 gs, and stuff li
0200: 6b 65 20 74 68 61 74 2e 0a 2a 2a 0a 2a 2f 0a 23 ke that..**.*/.#
0210: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 include "sqliteI
0220: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c nt.h".#include <
0230: 73 74 64 61 72 67 2e 68 3e 0a 23 69 66 64 65 66 stdarg.h>.#ifdef
0240: 20 53 51 4c 49 54 45 5f 48 41 56 45 5f 49 53 4e SQLITE_HAVE_ISN
0250: 41 4e 0a 23 20 69 6e 63 6c 75 64 65 20 3c 6d 61 AN.# include <ma
0260: 74 68 2e 68 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a th.h>.#endif../*
0270: 0a 2a 2a 20 52 6f 75 74 69 6e 65 20 6e 65 65 64 .** Routine need
0280: 65 64 20 74 6f 20 73 75 70 70 6f 72 74 20 74 68 ed to support th
0290: 65 20 74 65 73 74 63 61 73 65 28 29 20 6d 61 63 e testcase() mac
02a0: 72 6f 2e 0a 2a 2f 0a 23 69 66 64 65 66 20 53 51 ro..*/.#ifdef SQ
02b0: 4c 49 54 45 5f 43 4f 56 45 52 41 47 45 5f 54 45 LITE_COVERAGE_TE
02c0: 53 54 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 43 ST.void sqlite3C
02d0: 6f 76 65 72 61 67 65 28 69 6e 74 20 78 29 7b 0a overage(int x){.
02e0: 20 20 73 74 61 74 69 63 20 69 6e 74 20 64 75 6d static int dum
02f0: 6d 79 20 3d 20 30 3b 0a 20 20 64 75 6d 6d 79 20 my = 0;. dummy
0300: 2b 3d 20 78 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a += x;.}.#endif..
0310: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
0320: 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f 49 MIT_FLOATING_POI
0330: 4e 54 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 NT./*.** Return
0340: 74 72 75 65 20 69 66 20 74 68 65 20 66 6c 6f 61 true if the floa
0350: 74 69 6e 67 20 70 6f 69 6e 74 20 76 61 6c 75 65 ting point value
0360: 20 69 73 20 4e 6f 74 20 61 20 4e 75 6d 62 65 72 is Not a Number
0370: 20 28 4e 61 4e 29 2e 0a 2a 2a 0a 2a 2a 20 55 73 (NaN)..**.** Us
0380: 65 20 74 68 65 20 6d 61 74 68 20 6c 69 62 72 61 e the math libra
0390: 72 79 20 69 73 6e 61 6e 28 29 20 66 75 6e 63 74 ry isnan() funct
03a0: 69 6f 6e 20 69 66 20 63 6f 6d 70 69 6c 65 64 20 ion if compiled
03b0: 77 69 74 68 20 53 51 4c 49 54 45 5f 48 41 56 45 with SQLITE_HAVE
03c0: 5f 49 53 4e 41 4e 2e 0a 2a 2a 20 4f 74 68 65 72 _ISNAN..** Other
03d0: 77 69 73 65 2c 20 77 65 20 68 61 76 65 20 6f 75 wise, we have ou
03e0: 72 20 6f 77 6e 20 69 6d 70 6c 65 6d 65 6e 74 61 r own implementa
03f0: 74 69 6f 6e 20 74 68 61 74 20 77 6f 72 6b 73 20 tion that works
0400: 6f 6e 20 6d 6f 73 74 20 73 79 73 74 65 6d 73 2e on most systems.
0410: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 49 .*/.int sqlite3I
0420: 73 4e 61 4e 28 64 6f 75 62 6c 65 20 78 29 7b 0a sNaN(double x){.
0430: 20 20 69 6e 74 20 72 63 3b 20 20 20 2f 2a 20 54 int rc; /* T
0440: 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 20 he value return
0450: 2a 2f 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 */.#if !defined(
0460: 53 51 4c 49 54 45 5f 48 41 56 45 5f 49 53 4e 41 SQLITE_HAVE_ISNA
0470: 4e 29 0a 20 20 2f 2a 0a 20 20 2a 2a 20 53 79 73 N). /*. ** Sys
0480: 74 65 6d 73 20 74 68 61 74 20 73 75 70 70 6f 72 tems that suppor
0490: 74 20 74 68 65 20 69 73 6e 61 6e 28 29 20 6c 69 t the isnan() li
04a0: 62 72 61 72 79 20 66 75 6e 63 74 69 6f 6e 20 73 brary function s
04b0: 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 0a 20 hould probably.
04c0: 20 2a 2a 20 6d 61 6b 65 20 75 73 65 20 6f 66 20 ** make use of
04d0: 69 74 20 62 79 20 63 6f 6d 70 69 6c 69 6e 67 20 it by compiling
04e0: 77 69 74 68 20 2d 44 53 51 4c 49 54 45 5f 48 41 with -DSQLITE_HA
04f0: 56 45 5f 49 53 4e 41 4e 2e 20 20 42 75 74 20 77 VE_ISNAN. But w
0500: 65 20 68 61 76 65 0a 20 20 2a 2a 20 66 6f 75 6e e have. ** foun
0510: 64 20 74 68 61 74 20 6d 61 6e 79 20 73 79 73 74 d that many syst
0520: 65 6d 73 20 64 6f 20 6e 6f 74 20 68 61 76 65 20 ems do not have
0530: 61 20 77 6f 72 6b 69 6e 67 20 69 73 6e 61 6e 28 a working isnan(
0540: 29 20 66 75 6e 63 74 69 6f 6e 20 73 6f 0a 20 20 ) function so.
0550: 2a 2a 20 74 68 69 73 20 69 6d 70 6c 65 6d 65 6e ** this implemen
0560: 74 61 74 69 6f 6e 20 69 73 20 70 72 6f 76 69 64 tation is provid
0570: 65 64 20 61 73 20 61 6e 20 61 6c 74 65 72 6e 61 ed as an alterna
0580: 74 69 76 65 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 tive.. **. **
0590: 54 68 69 73 20 4e 61 4e 20 74 65 73 74 20 73 6f This NaN test so
05a0: 6d 65 74 69 6d 65 73 20 66 61 69 6c 73 20 69 66 metimes fails if
05b0: 20 63 6f 6d 70 69 6c 65 64 20 6f 6e 20 47 43 43 compiled on GCC
05c0: 20 77 69 74 68 20 2d 66 66 61 73 74 2d 6d 61 74 with -ffast-mat
05d0: 68 2e 0a 20 20 2a 2a 20 4f 6e 20 74 68 65 20 6f h.. ** On the o
05e0: 74 68 65 72 20 68 61 6e 64 2c 20 74 68 65 20 75 ther hand, the u
05f0: 73 65 20 6f 66 20 2d 66 66 61 73 74 2d 6d 61 74 se of -ffast-mat
0600: 68 20 63 6f 6d 65 73 20 77 69 74 68 20 74 68 65 h comes with the
0610: 20 66 6f 6c 6c 6f 77 69 6e 67 0a 20 20 2a 2a 20 following. **
0620: 77 61 72 6e 69 6e 67 3a 0a 20 20 2a 2a 0a 20 20 warning:. **.
0630: 2a 2a 20 20 20 20 20 20 54 68 69 73 20 6f 70 74 ** This opt
0640: 69 6f 6e 20 5b 2d 66 66 61 73 74 2d 6d 61 74 68 ion [-ffast-math
0650: 5d 20 73 68 6f 75 6c 64 20 6e 65 76 65 72 20 62 ] should never b
0660: 65 20 74 75 72 6e 65 64 20 6f 6e 20 62 79 20 61 e turned on by a
0670: 6e 79 0a 20 20 2a 2a 20 20 20 20 20 20 2d 4f 20 ny. ** -O
0680: 6f 70 74 69 6f 6e 20 73 69 6e 63 65 20 69 74 20 option since it
0690: 63 61 6e 20 72 65 73 75 6c 74 20 69 6e 20 69 6e can result in in
06a0: 63 6f 72 72 65 63 74 20 6f 75 74 70 75 74 20 66 correct output f
06b0: 6f 72 20 70 72 6f 67 72 61 6d 73 0a 20 20 2a 2a or programs. **
06c0: 20 20 20 20 20 20 77 68 69 63 68 20 64 65 70 65 which depe
06d0: 6e 64 20 6f 6e 20 61 6e 20 65 78 61 63 74 20 69 nd on an exact i
06e0: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 mplementation of
06f0: 20 49 45 45 45 20 6f 72 20 49 53 4f 20 0a 20 20 IEEE or ISO .
0700: 2a 2a 20 20 20 20 20 20 72 75 6c 65 73 2f 73 70 ** rules/sp
0710: 65 63 69 66 69 63 61 74 69 6f 6e 73 20 66 6f 72 ecifications for
0720: 20 6d 61 74 68 20 66 75 6e 63 74 69 6f 6e 73 2e math functions.
0730: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 55 6e 64 65 72 . **. ** Under
0740: 20 4d 53 56 43 2c 20 74 68 69 73 20 4e 61 4e 20 MSVC, this NaN
0750: 74 65 73 74 20 6d 61 79 20 66 61 69 6c 20 69 66 test may fail if
0760: 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 61 compiled with a
0770: 20 66 6c 6f 61 74 69 6e 67 2d 0a 20 20 2a 2a 20 floating-. **
0780: 70 6f 69 6e 74 20 70 72 65 63 69 73 69 6f 6e 20 point precision
0790: 6d 6f 64 65 20 6f 74 68 65 72 20 74 68 61 6e 20 mode other than
07a0: 2f 66 70 3a 70 72 65 63 69 73 65 2e 20 20 46 72 /fp:precise. Fr
07b0: 6f 6d 20 74 68 65 20 4d 53 44 4e 20 0a 20 20 2a om the MSDN . *
07c0: 2a 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 3a * documentation:
07d0: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20 20 20 20 20 . **. **
07e0: 54 68 65 20 63 6f 6d 70 69 6c 65 72 20 5b 77 69 The compiler [wi
07f0: 74 68 20 2f 66 70 3a 70 72 65 63 69 73 65 5d 20 th /fp:precise]
0800: 77 69 6c 6c 20 70 72 6f 70 65 72 6c 79 20 68 61 will properly ha
0810: 6e 64 6c 65 20 63 6f 6d 70 61 72 69 73 6f 6e 73 ndle comparisons
0820: 20 0a 20 20 2a 2a 20 20 20 20 20 20 69 6e 76 6f . ** invo
0830: 6c 76 69 6e 67 20 4e 61 4e 2e 20 46 6f 72 20 65 lving NaN. For e
0840: 78 61 6d 70 6c 65 2c 20 78 20 21 3d 20 78 20 65 xample, x != x e
0850: 76 61 6c 75 61 74 65 73 20 74 6f 20 74 72 75 65 valuates to true
0860: 20 69 66 20 78 20 69 73 20 4e 61 4e 20 0a 20 20 if x is NaN .
0870: 2a 2a 20 20 20 20 20 20 2e 2e 2e 0a 20 20 2a 2f ** .... */
0880: 0a 23 69 66 64 65 66 20 5f 5f 46 41 53 54 5f 4d .#ifdef __FAST_M
0890: 41 54 48 5f 5f 0a 23 20 65 72 72 6f 72 20 53 51 ATH__.# error SQ
08a0: 4c 69 74 65 20 77 69 6c 6c 20 6e 6f 74 20 77 6f Lite will not wo
08b0: 72 6b 20 63 6f 72 72 65 63 74 6c 79 20 77 69 74 rk correctly wit
08c0: 68 20 74 68 65 20 2d 66 66 61 73 74 2d 6d 61 74 h the -ffast-mat
08d0: 68 20 6f 70 74 69 6f 6e 20 6f 66 20 47 43 43 2e h option of GCC.
08e0: 0a 23 65 6e 64 69 66 0a 20 20 76 6f 6c 61 74 69 .#endif. volati
08f0: 6c 65 20 64 6f 75 62 6c 65 20 79 20 3d 20 78 3b le double y = x;
0900: 0a 20 20 76 6f 6c 61 74 69 6c 65 20 64 6f 75 62 . volatile doub
0910: 6c 65 20 7a 20 3d 20 79 3b 0a 20 20 72 63 20 3d le z = y;. rc =
0920: 20 28 79 21 3d 7a 29 3b 0a 23 65 6c 73 65 20 20 (y!=z);.#else
0930: 2f 2a 20 69 66 20 64 65 66 69 6e 65 64 28 53 51 /* if defined(SQ
0940: 4c 49 54 45 5f 48 41 56 45 5f 49 53 4e 41 4e 29 LITE_HAVE_ISNAN)
0950: 20 2a 2f 0a 20 20 72 63 20 3d 20 69 73 6e 61 6e */. rc = isnan
0960: 28 78 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 (x);.#endif /* S
0970: 51 4c 49 54 45 5f 48 41 56 45 5f 49 53 4e 41 4e QLITE_HAVE_ISNAN
0980: 20 2a 2f 0a 20 20 74 65 73 74 63 61 73 65 28 20 */. testcase(
0990: 72 63 20 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 rc );. return r
09a0: 63 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 c;.}.#endif /* S
09b0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 QLITE_OMIT_FLOAT
09c0: 49 4e 47 5f 50 4f 49 4e 54 20 2a 2f 0a 0a 2f 2a ING_POINT */../*
09d0: 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 61 20 73 74 .** Compute a st
09e0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 74 68 61 74 ring length that
09f0: 20 69 73 20 6c 69 6d 69 74 65 64 20 74 6f 20 77 is limited to w
0a00: 68 61 74 20 63 61 6e 20 62 65 20 73 74 6f 72 65 hat can be store
0a10: 64 20 69 6e 0a 2a 2a 20 6c 6f 77 65 72 20 33 30 d in.** lower 30
0a20: 20 62 69 74 73 20 6f 66 20 61 20 33 32 2d 62 69 bits of a 32-bi
0a30: 74 20 73 69 67 6e 65 64 20 69 6e 74 65 67 65 72 t signed integer
0a40: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 76 61 6c 75 ..**.** The valu
0a50: 65 20 72 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 e returned will
0a60: 6e 65 76 65 72 20 62 65 20 6e 65 67 61 74 69 76 never be negativ
0a70: 65 2e 20 20 4e 6f 72 20 77 69 6c 6c 20 69 74 20 e. Nor will it
0a80: 65 76 65 72 20 62 65 20 67 72 65 61 74 65 72 0a ever be greater.
0a90: 2a 2a 20 74 68 61 6e 20 74 68 65 20 61 63 74 75 ** than the actu
0aa0: 61 6c 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 al length of the
0ab0: 20 73 74 72 69 6e 67 2e 20 20 46 6f 72 20 76 65 string. For ve
0ac0: 72 79 20 6c 6f 6e 67 20 73 74 72 69 6e 67 73 20 ry long strings
0ad0: 28 67 72 65 61 74 65 72 0a 2a 2a 20 74 68 61 6e (greater.** than
0ae0: 20 31 47 69 42 29 20 74 68 65 20 76 61 6c 75 65 1GiB) the value
0af0: 20 72 65 74 75 72 6e 65 64 20 6d 69 67 68 74 20 returned might
0b00: 62 65 20 6c 65 73 73 20 74 68 61 6e 20 74 68 65 be less than the
0b10: 20 74 72 75 65 20 73 74 72 69 6e 67 20 6c 65 6e true string len
0b20: 67 74 68 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 gth..*/.int sqli
0b30: 74 65 33 53 74 72 6c 65 6e 33 30 28 63 6f 6e 73 te3Strlen30(cons
0b40: 74 20 63 68 61 72 20 2a 7a 29 7b 0a 20 20 63 6f t char *z){. co
0b50: 6e 73 74 20 63 68 61 72 20 2a 7a 32 20 3d 20 7a nst char *z2 = z
0b60: 3b 0a 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 72 ;. if( z==0 ) r
0b70: 65 74 75 72 6e 20 30 3b 0a 20 20 77 68 69 6c 65 eturn 0;. while
0b80: 28 20 2a 7a 32 20 29 7b 20 7a 32 2b 2b 3b 20 7d ( *z2 ){ z2++; }
0b90: 0a 20 20 72 65 74 75 72 6e 20 30 78 33 66 66 66 . return 0x3fff
0ba0: 66 66 66 66 20 26 20 28 69 6e 74 29 28 7a 32 20 ffff & (int)(z2
0bb0: 2d 20 7a 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 - z);.}../*.** S
0bc0: 65 74 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 et the most rece
0bd0: 6e 74 20 65 72 72 6f 72 20 63 6f 64 65 20 61 6e nt error code an
0be0: 64 20 65 72 72 6f 72 20 73 74 72 69 6e 67 20 66 d error string f
0bf0: 6f 72 20 74 68 65 20 73 71 6c 69 74 65 0a 2a 2a or the sqlite.**
0c00: 20 68 61 6e 64 6c 65 20 22 64 62 22 2e 20 54 68 handle "db". Th
0c10: 65 20 65 72 72 6f 72 20 63 6f 64 65 20 69 73 20 e error code is
0c20: 73 65 74 20 74 6f 20 22 65 72 72 5f 63 6f 64 65 set to "err_code
0c30: 22 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 69 74 20 69 "..**.** If it i
0c40: 73 20 6e 6f 74 20 4e 55 4c 4c 2c 20 73 74 72 69 s not NULL, stri
0c50: 6e 67 20 7a 46 6f 72 6d 61 74 20 73 70 65 63 69 ng zFormat speci
0c60: 66 69 65 73 20 74 68 65 20 66 6f 72 6d 61 74 20 fies the format
0c70: 6f 66 20 74 68 65 0a 2a 2a 20 65 72 72 6f 72 20 of the.** error
0c80: 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 73 74 string in the st
0c90: 79 6c 65 20 6f 66 20 74 68 65 20 70 72 69 6e 74 yle of the print
0ca0: 66 20 66 75 6e 63 74 69 6f 6e 73 3a 20 54 68 65 f functions: The
0cb0: 20 66 6f 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 66 6f following.** fo
0cc0: 72 6d 61 74 20 63 68 61 72 61 63 74 65 72 73 20 rmat characters
0cd0: 61 72 65 20 61 6c 6c 6f 77 65 64 3a 0a 2a 2a 0a are allowed:.**.
0ce0: 2a 2a 20 20 20 20 20 20 25 73 20 20 20 20 20 20 ** %s
0cf0: 49 6e 73 65 72 74 20 61 20 73 74 72 69 6e 67 0a Insert a string.
0d00: 2a 2a 20 20 20 20 20 20 25 7a 20 20 20 20 20 20 ** %z
0d10: 41 20 73 74 72 69 6e 67 20 74 68 61 74 20 73 68 A string that sh
0d20: 6f 75 6c 64 20 62 65 20 66 72 65 65 64 20 61 66 ould be freed af
0d30: 74 65 72 20 75 73 65 0a 2a 2a 20 20 20 20 20 20 ter use.**
0d40: 25 64 20 20 20 20 20 20 49 6e 73 65 72 74 20 61 %d Insert a
0d50: 6e 20 69 6e 74 65 67 65 72 0a 2a 2a 20 20 20 20 n integer.**
0d60: 20 20 25 54 20 20 20 20 20 20 49 6e 73 65 72 74 %T Insert
0d70: 20 61 20 74 6f 6b 65 6e 0a 2a 2a 20 20 20 20 20 a token.**
0d80: 20 25 53 20 20 20 20 20 20 49 6e 73 65 72 74 20 %S Insert
0d90: 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e the first elemen
0da0: 74 20 6f 66 20 61 20 53 72 63 4c 69 73 74 0a 2a t of a SrcList.*
0db0: 2a 0a 2a 2a 20 7a 46 6f 72 6d 61 74 20 61 6e 64 *.** zFormat and
0dc0: 20 61 6e 79 20 73 74 72 69 6e 67 20 74 6f 6b 65 any string toke
0dd0: 6e 73 20 74 68 61 74 20 66 6f 6c 6c 6f 77 20 69 ns that follow i
0de0: 74 20 61 72 65 20 61 73 73 75 6d 65 64 20 74 6f t are assumed to
0df0: 20 62 65 0a 2a 2a 20 65 6e 63 6f 64 65 64 20 69 be.** encoded i
0e00: 6e 20 55 54 46 2d 38 2e 0a 2a 2a 0a 2a 2a 20 54 n UTF-8..**.** T
0e10: 6f 20 63 6c 65 61 72 20 74 68 65 20 6d 6f 73 74 o clear the most
0e20: 20 72 65 63 65 6e 74 20 65 72 72 6f 72 20 66 6f recent error fo
0e30: 72 20 73 71 6c 69 74 65 20 68 61 6e 64 6c 65 20 r sqlite handle
0e40: 22 64 62 22 2c 20 73 71 6c 69 74 65 33 45 72 72 "db", sqlite3Err
0e50: 6f 72 0a 2a 2a 20 73 68 6f 75 6c 64 20 62 65 20 or.** should be
0e60: 63 61 6c 6c 65 64 20 77 69 74 68 20 65 72 72 5f called with err_
0e70: 63 6f 64 65 20 73 65 74 20 74 6f 20 53 51 4c 49 code set to SQLI
0e80: 54 45 5f 4f 4b 20 61 6e 64 20 7a 46 6f 72 6d 61 TE_OK and zForma
0e90: 74 20 73 65 74 0a 2a 2a 20 74 6f 20 4e 55 4c 4c t set.** to NULL
0ea0: 2e 0a 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 ..*/.void sqlite
0eb0: 33 45 72 72 6f 72 28 73 71 6c 69 74 65 33 20 2a 3Error(sqlite3 *
0ec0: 64 62 2c 20 69 6e 74 20 65 72 72 5f 63 6f 64 65 db, int err_code
0ed0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 , const char *zF
0ee0: 6f 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 69 ormat, ...){. i
0ef0: 66 28 20 64 62 20 26 26 20 28 64 62 2d 3e 70 45 f( db && (db->pE
0f00: 72 72 20 7c 7c 20 28 64 62 2d 3e 70 45 72 72 20 rr || (db->pErr
0f10: 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 = sqlite3ValueNe
0f20: 77 28 64 62 29 29 21 3d 30 29 20 29 7b 0a 20 20 w(db))!=0) ){.
0f30: 20 20 64 62 2d 3e 65 72 72 43 6f 64 65 20 3d 20 db->errCode =
0f40: 65 72 72 5f 63 6f 64 65 3b 0a 20 20 20 20 69 66 err_code;. if
0f50: 28 20 7a 46 6f 72 6d 61 74 20 29 7b 0a 20 20 20 ( zFormat ){.
0f60: 20 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 20 20 char *z;.
0f70: 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 va_list ap;.
0f80: 20 20 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c va_start(ap,
0f90: 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 20 20 20 zFormat);.
0fa0: 20 7a 20 3d 20 73 71 6c 69 74 65 33 56 4d 50 72 z = sqlite3VMPr
0fb0: 69 6e 74 66 28 64 62 2c 20 7a 46 6f 72 6d 61 74 intf(db, zFormat
0fc0: 2c 20 61 70 29 3b 0a 20 20 20 20 20 20 76 61 5f , ap);. va_
0fd0: 65 6e 64 28 61 70 29 3b 0a 20 20 20 20 20 20 73 end(ap);. s
0fe0: 71 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53 74 qlite3ValueSetSt
0ff0: 72 28 64 62 2d 3e 70 45 72 72 2c 20 2d 31 2c 20 r(db->pErr, -1,
1000: 7a 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 z, SQLITE_UTF8,
1010: 53 51 4c 49 54 45 5f 44 59 4e 41 4d 49 43 29 3b SQLITE_DYNAMIC);
1020: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 . }else{.
1030: 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65 sqlite3ValueSe
1040: 74 53 74 72 28 64 62 2d 3e 70 45 72 72 2c 20 30 tStr(db->pErr, 0
1050: 2c 20 30 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 , 0, SQLITE_UTF8
1060: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 , SQLITE_STATIC)
1070: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f ;. }. }.}../
1080: 2a 0a 2a 2a 20 41 64 64 20 61 6e 20 65 72 72 6f *.** Add an erro
1090: 72 20 6d 65 73 73 61 67 65 20 74 6f 20 70 50 61 r message to pPa
10a0: 72 73 65 2d 3e 7a 45 72 72 4d 73 67 20 61 6e 64 rse->zErrMsg and
10b0: 20 69 6e 63 72 65 6d 65 6e 74 20 70 50 61 72 73 increment pPars
10c0: 65 2d 3e 6e 45 72 72 2e 0a 2a 2a 20 54 68 65 20 e->nErr..** The
10d0: 66 6f 6c 6c 6f 77 69 6e 67 20 66 6f 72 6d 61 74 following format
10e0: 74 69 6e 67 20 63 68 61 72 61 63 74 65 72 73 20 ting characters
10f0: 61 72 65 20 61 6c 6c 6f 77 65 64 3a 0a 2a 2a 0a are allowed:.**.
1100: 2a 2a 20 20 20 20 20 20 25 73 20 20 20 20 20 20 ** %s
1110: 49 6e 73 65 72 74 20 61 20 73 74 72 69 6e 67 0a Insert a string.
1120: 2a 2a 20 20 20 20 20 20 25 7a 20 20 20 20 20 20 ** %z
1130: 41 20 73 74 72 69 6e 67 20 74 68 61 74 20 73 68 A string that sh
1140: 6f 75 6c 64 20 62 65 20 66 72 65 65 64 20 61 66 ould be freed af
1150: 74 65 72 20 75 73 65 0a 2a 2a 20 20 20 20 20 20 ter use.**
1160: 25 64 20 20 20 20 20 20 49 6e 73 65 72 74 20 61 %d Insert a
1170: 6e 20 69 6e 74 65 67 65 72 0a 2a 2a 20 20 20 20 n integer.**
1180: 20 20 25 54 20 20 20 20 20 20 49 6e 73 65 72 74 %T Insert
1190: 20 61 20 74 6f 6b 65 6e 0a 2a 2a 20 20 20 20 20 a token.**
11a0: 20 25 53 20 20 20 20 20 20 49 6e 73 65 72 74 20 %S Insert
11b0: 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e the first elemen
11c0: 74 20 6f 66 20 61 20 53 72 63 4c 69 73 74 0a 2a t of a SrcList.*
11d0: 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 *.** This functi
11e0: 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 75 73 65 on should be use
11f0: 64 20 74 6f 20 72 65 70 6f 72 74 20 61 6e 79 20 d to report any
1200: 65 72 72 6f 72 20 74 68 61 74 20 6f 63 63 75 72 error that occur
1210: 73 20 77 68 69 6c 73 74 0a 2a 2a 20 63 6f 6d 70 s whilst.** comp
1220: 69 6c 69 6e 67 20 61 6e 20 53 51 4c 20 73 74 61 iling an SQL sta
1230: 74 65 6d 65 6e 74 20 28 69 2e 65 2e 20 77 69 74 tement (i.e. wit
1240: 68 69 6e 20 73 71 6c 69 74 65 33 5f 70 72 65 70 hin sqlite3_prep
1250: 61 72 65 28 29 29 2e 20 54 68 65 0a 2a 2a 20 6c are()). The.** l
1260: 61 73 74 20 74 68 69 6e 67 20 74 68 65 20 73 71 ast thing the sq
1270: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 28 29 20 lite3_prepare()
1280: 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 69 73 function does is
1290: 20 63 6f 70 79 20 74 68 65 20 65 72 72 6f 72 0a copy the error.
12a0: 2a 2a 20 73 74 6f 72 65 64 20 62 79 20 74 68 69 ** stored by thi
12b0: 73 20 66 75 6e 63 74 69 6f 6e 20 69 6e 74 6f 20 s function into
12c0: 74 68 65 20 64 61 74 61 62 61 73 65 20 68 61 6e the database han
12d0: 64 6c 65 20 75 73 69 6e 67 20 73 71 6c 69 74 65 dle using sqlite
12e0: 33 45 72 72 6f 72 28 29 2e 0a 2a 2a 20 46 75 6e 3Error()..** Fun
12f0: 63 74 69 6f 6e 20 73 71 6c 69 74 65 33 45 72 72 ction sqlite3Err
1300: 6f 72 28 29 20 73 68 6f 75 6c 64 20 62 65 20 75 or() should be u
1310: 73 65 64 20 64 75 72 69 6e 67 20 73 74 61 74 65 sed during state
1320: 6d 65 6e 74 20 65 78 65 63 75 74 69 6f 6e 0a 2a ment execution.*
1330: 2a 20 28 73 71 6c 69 74 65 33 5f 73 74 65 70 28 * (sqlite3_step(
1340: 29 20 65 74 63 2e 29 2e 0a 2a 2f 0a 76 6f 69 64 ) etc.)..*/.void
1350: 20 73 71 6c 69 74 65 33 45 72 72 6f 72 4d 73 67 sqlite3ErrorMsg
1360: 28 50 61 72 73 65 20 2a 70 50 61 72 73 65 2c 20 (Parse *pParse,
1370: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f 72 const char *zFor
1380: 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 63 68 61 mat, ...){. cha
1390: 72 20 2a 7a 4d 73 67 3b 0a 20 20 76 61 5f 6c 69 r *zMsg;. va_li
13a0: 73 74 20 61 70 3b 0a 20 20 73 71 6c 69 74 65 33 st ap;. sqlite3
13b0: 20 2a 64 62 20 3d 20 70 50 61 72 73 65 2d 3e 64 *db = pParse->d
13c0: 62 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 b;. va_start(ap
13d0: 2c 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 7a 4d , zFormat);. zM
13e0: 73 67 20 3d 20 73 71 6c 69 74 65 33 56 4d 50 72 sg = sqlite3VMPr
13f0: 69 6e 74 66 28 64 62 2c 20 7a 46 6f 72 6d 61 74 intf(db, zFormat
1400: 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65 6e 64 28 , ap);. va_end(
1410: 61 70 29 3b 0a 20 20 69 66 28 20 64 62 2d 3e 73 ap);. if( db->s
1420: 75 70 70 72 65 73 73 45 72 72 20 29 7b 0a 20 20 uppressErr ){.
1430: 20 20 73 71 6c 69 74 65 33 44 62 46 72 65 65 28 sqlite3DbFree(
1440: 64 62 2c 20 7a 4d 73 67 29 3b 0a 20 20 7d 65 6c db, zMsg);. }el
1450: 73 65 7b 0a 20 20 20 20 70 50 61 72 73 65 2d 3e se{. pParse->
1460: 6e 45 72 72 2b 2b 3b 0a 20 20 20 20 73 71 6c 69 nErr++;. sqli
1470: 74 65 33 44 62 46 72 65 65 28 64 62 2c 20 70 50 te3DbFree(db, pP
1480: 61 72 73 65 2d 3e 7a 45 72 72 4d 73 67 29 3b 0a arse->zErrMsg);.
1490: 20 20 20 20 70 50 61 72 73 65 2d 3e 7a 45 72 72 pParse->zErr
14a0: 4d 73 67 20 3d 20 7a 4d 73 67 3b 0a 20 20 20 20 Msg = zMsg;.
14b0: 70 50 61 72 73 65 2d 3e 72 63 20 3d 20 53 51 4c pParse->rc = SQL
14c0: 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 7d ITE_ERROR;. }.}
14d0: 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 ../*.** Convert
14e0: 61 6e 20 53 51 4c 2d 73 74 79 6c 65 20 71 75 6f an SQL-style quo
14f0: 74 65 64 20 73 74 72 69 6e 67 20 69 6e 74 6f 20 ted string into
1500: 61 20 6e 6f 72 6d 61 6c 20 73 74 72 69 6e 67 20 a normal string
1510: 62 79 20 72 65 6d 6f 76 69 6e 67 0a 2a 2a 20 74 by removing.** t
1520: 68 65 20 71 75 6f 74 65 20 63 68 61 72 61 63 74 he quote charact
1530: 65 72 73 2e 20 20 54 68 65 20 63 6f 6e 76 65 72 ers. The conver
1540: 73 69 6f 6e 20 69 73 20 64 6f 6e 65 20 69 6e 2d sion is done in-
1550: 70 6c 61 63 65 2e 20 20 49 66 20 74 68 65 0a 2a place. If the.*
1560: 2a 20 69 6e 70 75 74 20 64 6f 65 73 20 6e 6f 74 * input does not
1570: 20 62 65 67 69 6e 20 77 69 74 68 20 61 20 71 75 begin with a qu
1580: 6f 74 65 20 63 68 61 72 61 63 74 65 72 2c 20 74 ote character, t
1590: 68 65 6e 20 74 68 69 73 20 72 6f 75 74 69 6e 65 hen this routine
15a0: 0a 2a 2a 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a .** is a no-op..
15b0: 2a 2a 0a 2a 2a 20 54 68 65 20 69 6e 70 75 74 20 **.** The input
15c0: 73 74 72 69 6e 67 20 6d 75 73 74 20 62 65 20 7a string must be z
15d0: 65 72 6f 2d 74 65 72 6d 69 6e 61 74 65 64 2e 20 ero-terminated.
15e0: 20 41 20 6e 65 77 20 7a 65 72 6f 2d 74 65 72 6d A new zero-term
15f0: 69 6e 61 74 6f 72 0a 2a 2a 20 69 73 20 61 64 64 inator.** is add
1600: 65 64 20 74 6f 20 74 68 65 20 64 65 71 75 6f 74 ed to the dequot
1610: 65 64 20 73 74 72 69 6e 67 2e 0a 2a 2a 0a 2a 2a ed string..**.**
1620: 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 The return valu
1630: 65 20 69 73 20 2d 31 20 69 66 20 6e 6f 20 64 65 e is -1 if no de
1640: 71 75 6f 74 69 6e 67 20 6f 63 63 75 72 73 20 6f quoting occurs o
1650: 72 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 r the length of
1660: 74 68 65 0a 2a 2a 20 64 65 71 75 6f 74 65 64 20 the.** dequoted
1670: 73 74 72 69 6e 67 2c 20 65 78 63 6c 75 73 69 76 string, exclusiv
1680: 65 20 6f 66 20 74 68 65 20 7a 65 72 6f 20 74 65 e of the zero te
1690: 72 6d 69 6e 61 74 6f 72 2c 20 69 66 20 64 65 71 rminator, if deq
16a0: 75 6f 74 69 6e 67 20 64 6f 65 73 0a 2a 2a 20 6f uoting does.** o
16b0: 63 63 75 72 2e 0a 2a 2a 0a 2a 2a 20 32 30 30 32 ccur..**.** 2002
16c0: 2d 46 65 62 2d 31 34 3a 20 54 68 69 73 20 72 6f -Feb-14: This ro
16d0: 75 74 69 6e 65 20 69 73 20 65 78 74 65 6e 64 65 utine is extende
16e0: 64 20 74 6f 20 72 65 6d 6f 76 65 20 4d 53 2d 41 d to remove MS-A
16f0: 63 63 65 73 73 20 73 74 79 6c 65 0a 2a 2a 20 62 ccess style.** b
1700: 72 61 63 6b 65 74 73 20 66 72 6f 6d 20 61 72 6f rackets from aro
1710: 75 6e 64 20 69 64 65 6e 74 69 66 65 72 73 2e 20 und identifers.
1720: 20 46 6f 72 20 65 78 61 6d 70 6c 65 3a 20 20 22 For example: "
1730: 5b 61 2d 62 2d 63 5d 22 20 62 65 63 6f 6d 65 73 [a-b-c]" becomes
1740: 0a 2a 2a 20 22 61 2d 62 2d 63 22 2e 0a 2a 2f 0a .** "a-b-c"..*/.
1750: 69 6e 74 20 73 71 6c 69 74 65 33 44 65 71 75 6f int sqlite3Dequo
1760: 74 65 28 63 68 61 72 20 2a 7a 29 7b 0a 20 20 63 te(char *z){. c
1770: 68 61 72 20 71 75 6f 74 65 3b 0a 20 20 69 6e 74 har quote;. int
1780: 20 69 2c 20 6a 3b 0a 20 20 69 66 28 20 7a 3d 3d i, j;. if( z==
1790: 30 20 29 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 0 ) return -1;.
17a0: 20 71 75 6f 74 65 20 3d 20 7a 5b 30 5d 3b 0a 20 quote = z[0];.
17b0: 20 73 77 69 74 63 68 28 20 71 75 6f 74 65 20 29 switch( quote )
17c0: 7b 0a 20 20 20 20 63 61 73 65 20 27 5c 27 27 3a {. case '\'':
17d0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 break;. cas
17e0: 65 20 27 22 27 3a 20 20 20 62 72 65 61 6b 3b 0a e '"': break;.
17f0: 20 20 20 20 63 61 73 65 20 27 60 27 3a 20 20 20 case '`':
1800: 62 72 65 61 6b 3b 20 20 20 20 20 20 20 20 20 20 break;
1810: 20 20 20 20 20 20 2f 2a 20 46 6f 72 20 4d 79 53 /* For MyS
1820: 51 4c 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 QL compatibility
1830: 20 2a 2f 0a 20 20 20 20 63 61 73 65 20 27 5b 27 */. case '['
1840: 3a 20 20 20 71 75 6f 74 65 20 3d 20 27 5d 27 3b : quote = ']';
1850: 20 20 62 72 65 61 6b 3b 20 20 2f 2a 20 46 6f 72 break; /* For
1860: 20 4d 53 20 53 71 6c 53 65 72 76 65 72 20 63 6f MS SqlServer co
1870: 6d 70 61 74 69 62 69 6c 69 74 79 20 2a 2f 0a 20 mpatibility */.
1880: 20 20 20 64 65 66 61 75 6c 74 3a 20 20 20 20 72 default: r
1890: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 7d 0a 20 20 eturn -1;. }.
18a0: 66 6f 72 28 69 3d 31 2c 20 6a 3d 30 3b 20 41 4c for(i=1, j=0; AL
18b0: 57 41 59 53 28 7a 5b 69 5d 29 3b 20 69 2b 2b 29 WAYS(z[i]); i++)
18c0: 7b 0a 20 20 20 20 69 66 28 20 7a 5b 69 5d 3d 3d {. if( z[i]==
18d0: 71 75 6f 74 65 20 29 7b 0a 20 20 20 20 20 20 69 quote ){. i
18e0: 66 28 20 7a 5b 69 2b 31 5d 3d 3d 71 75 6f 74 65 f( z[i+1]==quote
18f0: 20 29 7b 0a 20 20 20 20 20 20 20 20 7a 5b 6a 2b ){. z[j+
1900: 2b 5d 20 3d 20 71 75 6f 74 65 3b 0a 20 20 20 20 +] = quote;.
1910: 20 20 20 20 69 2b 2b 3b 0a 20 20 20 20 20 20 7d i++;. }
1920: 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 62 72 else{. br
1930: 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 eak;. }.
1940: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 7a 5b }else{. z[
1950: 6a 2b 2b 5d 20 3d 20 7a 5b 69 5d 3b 0a 20 20 20 j++] = z[i];.
1960: 20 7d 0a 20 20 7d 0a 20 20 7a 5b 6a 5d 20 3d 20 }. }. z[j] =
1970: 30 3b 0a 20 20 72 65 74 75 72 6e 20 6a 3b 0a 7d 0;. return j;.}
1980: 0a 0a 2f 2a 20 43 6f 6e 76 65 6e 69 65 6e 74 20 ../* Convenient
1990: 73 68 6f 72 74 2d 68 61 6e 64 20 2a 2f 0a 23 64 short-hand */.#d
19a0: 65 66 69 6e 65 20 55 70 70 65 72 54 6f 4c 6f 77 efine UpperToLow
19b0: 65 72 20 73 71 6c 69 74 65 33 55 70 70 65 72 54 er sqlite3UpperT
19c0: 6f 4c 6f 77 65 72 0a 0a 2f 2a 0a 2a 2a 20 53 6f oLower../*.** So
19d0: 6d 65 20 73 79 73 74 65 6d 73 20 68 61 76 65 20 me systems have
19e0: 73 74 72 69 63 6d 70 28 29 2e 20 20 4f 74 68 65 stricmp(). Othe
19f0: 72 73 20 68 61 76 65 20 73 74 72 63 61 73 65 63 rs have strcasec
1a00: 6d 70 28 29 2e 20 20 42 65 63 61 75 73 65 0a 2a mp(). Because.*
1a10: 2a 20 74 68 65 72 65 20 69 73 20 6e 6f 20 63 6f * there is no co
1a20: 6e 73 69 73 74 65 6e 63 79 2c 20 77 65 20 77 69 nsistency, we wi
1a30: 6c 6c 20 64 65 66 69 6e 65 20 6f 75 72 20 6f 77 ll define our ow
1a40: 6e 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 n..*/.int sqlite
1a50: 33 53 74 72 49 43 6d 70 28 63 6f 6e 73 74 20 63 3StrICmp(const c
1a60: 68 61 72 20 2a 7a 4c 65 66 74 2c 20 63 6f 6e 73 har *zLeft, cons
1a70: 74 20 63 68 61 72 20 2a 7a 52 69 67 68 74 29 7b t char *zRight){
1a80: 0a 20 20 72 65 67 69 73 74 65 72 20 75 6e 73 69 . register unsi
1a90: 67 6e 65 64 20 63 68 61 72 20 2a 61 2c 20 2a 62 gned char *a, *b
1aa0: 3b 0a 20 20 61 20 3d 20 28 75 6e 73 69 67 6e 65 ;. a = (unsigne
1ab0: 64 20 63 68 61 72 20 2a 29 7a 4c 65 66 74 3b 0a d char *)zLeft;.
1ac0: 20 20 62 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 b = (unsigned
1ad0: 63 68 61 72 20 2a 29 7a 52 69 67 68 74 3b 0a 20 char *)zRight;.
1ae0: 20 77 68 69 6c 65 28 20 2a 61 21 3d 30 20 26 26 while( *a!=0 &&
1af0: 20 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 2a 61 UpperToLower[*a
1b00: 5d 3d 3d 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b ]==UpperToLower[
1b10: 2a 62 5d 29 7b 20 61 2b 2b 3b 20 62 2b 2b 3b 20 *b]){ a++; b++;
1b20: 7d 0a 20 20 72 65 74 75 72 6e 20 55 70 70 65 72 }. return Upper
1b30: 54 6f 4c 6f 77 65 72 5b 2a 61 5d 20 2d 20 55 70 ToLower[*a] - Up
1b40: 70 65 72 54 6f 4c 6f 77 65 72 5b 2a 62 5d 3b 0a perToLower[*b];.
1b50: 7d 0a 69 6e 74 20 73 71 6c 69 74 65 33 5f 73 74 }.int sqlite3_st
1b60: 72 6e 69 63 6d 70 28 63 6f 6e 73 74 20 63 68 61 rnicmp(const cha
1b70: 72 20 2a 7a 4c 65 66 74 2c 20 63 6f 6e 73 74 20 r *zLeft, const
1b80: 63 68 61 72 20 2a 7a 52 69 67 68 74 2c 20 69 6e char *zRight, in
1b90: 74 20 4e 29 7b 0a 20 20 72 65 67 69 73 74 65 72 t N){. register
1ba0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
1bb0: 61 2c 20 2a 62 3b 0a 20 20 61 20 3d 20 28 75 6e a, *b;. a = (un
1bc0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 7a 4c signed char *)zL
1bd0: 65 66 74 3b 0a 20 20 62 20 3d 20 28 75 6e 73 69 eft;. b = (unsi
1be0: 67 6e 65 64 20 63 68 61 72 20 2a 29 7a 52 69 67 gned char *)zRig
1bf0: 68 74 3b 0a 20 20 77 68 69 6c 65 28 20 4e 2d 2d ht;. while( N--
1c00: 20 3e 20 30 20 26 26 20 2a 61 21 3d 30 20 26 26 > 0 && *a!=0 &&
1c10: 20 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 2a 61 UpperToLower[*a
1c20: 5d 3d 3d 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b ]==UpperToLower[
1c30: 2a 62 5d 29 7b 20 61 2b 2b 3b 20 62 2b 2b 3b 20 *b]){ a++; b++;
1c40: 7d 0a 20 20 72 65 74 75 72 6e 20 4e 3c 30 20 3f }. return N<0 ?
1c50: 20 30 20 3a 20 55 70 70 65 72 54 6f 4c 6f 77 65 0 : UpperToLowe
1c60: 72 5b 2a 61 5d 20 2d 20 55 70 70 65 72 54 6f 4c r[*a] - UpperToL
1c70: 6f 77 65 72 5b 2a 62 5d 3b 0a 7d 0a 0a 2f 2a 0a ower[*b];.}../*.
1c80: 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45 20 69 ** Return TRUE i
1c90: 66 20 7a 20 69 73 20 61 20 70 75 72 65 20 6e 75 f z is a pure nu
1ca0: 6d 65 72 69 63 20 73 74 72 69 6e 67 2e 20 20 52 meric string. R
1cb0: 65 74 75 72 6e 20 46 41 4c 53 45 20 61 6e 64 20 eturn FALSE and
1cc0: 6c 65 61 76 65 0a 2a 2a 20 2a 72 65 61 6c 6e 75 leave.** *realnu
1cd0: 6d 20 75 6e 63 68 61 6e 67 65 64 20 69 66 20 74 m unchanged if t
1ce0: 68 65 20 73 74 72 69 6e 67 20 63 6f 6e 74 61 69 he string contai
1cf0: 6e 73 20 61 6e 79 20 63 68 61 72 61 63 74 65 72 ns any character
1d00: 20 77 68 69 63 68 20 69 73 20 6e 6f 74 0a 2a 2a which is not.**
1d10: 20 70 61 72 74 20 6f 66 20 61 20 6e 75 6d 62 65 part of a numbe
1d20: 72 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 r..**.** If the
1d30: 73 74 72 69 6e 67 20 69 73 20 70 75 72 65 20 6e string is pure n
1d40: 75 6d 65 72 69 63 2c 20 73 65 74 20 2a 72 65 61 umeric, set *rea
1d50: 6c 6e 75 6d 20 74 6f 20 54 52 55 45 20 69 66 20 lnum to TRUE if
1d60: 74 68 65 20 73 74 72 69 6e 67 0a 2a 2a 20 63 6f the string.** co
1d70: 6e 74 61 69 6e 73 20 74 68 65 20 27 2e 27 20 63 ntains the '.' c
1d80: 68 61 72 61 63 74 65 72 20 6f 72 20 61 6e 20 22 haracter or an "
1d90: 45 2b 30 30 30 22 20 73 74 79 6c 65 20 65 78 70 E+000" style exp
1da0: 6f 6e 65 6e 74 69 61 74 69 6f 6e 20 73 75 66 66 onentiation suff
1db0: 69 78 2e 0a 2a 2a 20 4f 74 68 65 72 77 69 73 65 ix..** Otherwise
1dc0: 20 73 65 74 20 2a 72 65 61 6c 6e 75 6d 20 74 6f set *realnum to
1dd0: 20 46 41 4c 53 45 2e 20 20 4e 6f 74 65 20 74 68 FALSE. Note th
1de0: 61 74 20 6a 75 73 74 20 62 65 63 61 75 65 20 2a at just becaue *
1df0: 72 65 61 6c 6e 75 6d 20 69 73 0a 2a 2a 20 66 61 realnum is.** fa
1e00: 6c 73 65 20 64 6f 65 73 20 6e 6f 74 20 6d 65 61 lse does not mea
1e10: 6e 20 74 68 61 74 20 74 68 65 20 6e 75 6d 62 65 n that the numbe
1e20: 72 20 63 61 6e 20 62 65 20 73 75 63 63 65 73 73 r can be success
1e30: 66 75 6c 6c 79 20 63 6f 6e 76 65 72 74 65 64 20 fully converted
1e40: 69 6e 74 6f 0a 2a 2a 20 61 6e 20 69 6e 74 65 67 into.** an integ
1e50: 65 72 20 2d 20 69 74 20 6d 69 67 68 74 20 62 65 er - it might be
1e60: 20 74 6f 6f 20 62 69 67 2e 0a 2a 2a 0a 2a 2a 20 too big..**.**
1e70: 41 6e 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 An empty string
1e80: 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 6e 6f is considered no
1e90: 6e 2d 6e 75 6d 65 72 69 63 2e 0a 2a 2f 0a 69 6e n-numeric..*/.in
1ea0: 74 20 73 71 6c 69 74 65 33 49 73 4e 75 6d 62 65 t sqlite3IsNumbe
1eb0: 72 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 2c r(const char *z,
1ec0: 20 69 6e 74 20 2a 72 65 61 6c 6e 75 6d 2c 20 75 int *realnum, u
1ed0: 38 20 65 6e 63 29 7b 0a 20 20 69 6e 74 20 69 6e 8 enc){. int in
1ee0: 63 72 20 3d 20 28 65 6e 63 3d 3d 53 51 4c 49 54 cr = (enc==SQLIT
1ef0: 45 5f 55 54 46 38 3f 31 3a 32 29 3b 0a 20 20 69 E_UTF8?1:2);. i
1f00: 66 28 20 65 6e 63 3d 3d 53 51 4c 49 54 45 5f 55 f( enc==SQLITE_U
1f10: 54 46 31 36 42 45 20 29 20 7a 2b 2b 3b 0a 20 20 TF16BE ) z++;.
1f20: 69 66 28 20 2a 7a 3d 3d 27 2d 27 20 7c 7c 20 2a if( *z=='-' || *
1f30: 7a 3d 3d 27 2b 27 20 29 20 7a 20 2b 3d 20 69 6e z=='+' ) z += in
1f40: 63 72 3b 0a 20 20 69 66 28 20 21 73 71 6c 69 74 cr;. if( !sqlit
1f50: 65 33 49 73 64 69 67 69 74 28 2a 7a 29 20 29 7b e3Isdigit(*z) ){
1f60: 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 . return 0;.
1f70: 20 7d 0a 20 20 7a 20 2b 3d 20 69 6e 63 72 3b 0a }. z += incr;.
1f80: 20 20 2a 72 65 61 6c 6e 75 6d 20 3d 20 30 3b 0a *realnum = 0;.
1f90: 20 20 77 68 69 6c 65 28 20 73 71 6c 69 74 65 33 while( sqlite3
1fa0: 49 73 64 69 67 69 74 28 2a 7a 29 20 29 7b 20 7a Isdigit(*z) ){ z
1fb0: 20 2b 3d 20 69 6e 63 72 3b 20 7d 0a 23 69 66 6e += incr; }.#ifn
1fc0: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
1fd0: 46 4c 4f 41 54 49 4e 47 5f 50 4f 49 4e 54 0a 20 FLOATING_POINT.
1fe0: 20 69 66 28 20 2a 7a 3d 3d 27 2e 27 20 29 7b 0a if( *z=='.' ){.
1ff0: 20 20 20 20 7a 20 2b 3d 20 69 6e 63 72 3b 0a 20 z += incr;.
2000: 20 20 20 69 66 28 20 21 73 71 6c 69 74 65 33 49 if( !sqlite3I
2010: 73 64 69 67 69 74 28 2a 7a 29 20 29 20 72 65 74 sdigit(*z) ) ret
2020: 75 72 6e 20 30 3b 0a 20 20 20 20 77 68 69 6c 65 urn 0;. while
2030: 28 20 73 71 6c 69 74 65 33 49 73 64 69 67 69 74 ( sqlite3Isdigit
2040: 28 2a 7a 29 20 29 7b 20 7a 20 2b 3d 20 69 6e 63 (*z) ){ z += inc
2050: 72 3b 20 7d 0a 20 20 20 20 2a 72 65 61 6c 6e 75 r; }. *realnu
2060: 6d 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 28 m = 1;. }. if(
2070: 20 2a 7a 3d 3d 27 65 27 20 7c 7c 20 2a 7a 3d 3d *z=='e' || *z==
2080: 27 45 27 20 29 7b 0a 20 20 20 20 7a 20 2b 3d 20 'E' ){. z +=
2090: 69 6e 63 72 3b 0a 20 20 20 20 69 66 28 20 2a 7a incr;. if( *z
20a0: 3d 3d 27 2b 27 20 7c 7c 20 2a 7a 3d 3d 27 2d 27 =='+' || *z=='-'
20b0: 20 29 20 7a 20 2b 3d 20 69 6e 63 72 3b 0a 20 20 ) z += incr;.
20c0: 20 20 69 66 28 20 21 73 71 6c 69 74 65 33 49 73 if( !sqlite3Is
20d0: 64 69 67 69 74 28 2a 7a 29 20 29 20 72 65 74 75 digit(*z) ) retu
20e0: 72 6e 20 30 3b 0a 20 20 20 20 77 68 69 6c 65 28 rn 0;. while(
20f0: 20 73 71 6c 69 74 65 33 49 73 64 69 67 69 74 28 sqlite3Isdigit(
2100: 2a 7a 29 20 29 7b 20 7a 20 2b 3d 20 69 6e 63 72 *z) ){ z += incr
2110: 3b 20 7d 0a 20 20 20 20 2a 72 65 61 6c 6e 75 6d ; }. *realnum
2120: 20 3d 20 31 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 = 1;. }.#endif
2130: 0a 20 20 72 65 74 75 72 6e 20 2a 7a 3d 3d 30 3b . return *z==0;
2140: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 73 74 .}../*.** The st
2150: 72 69 6e 67 20 7a 5b 5d 20 69 73 20 61 6e 20 41 ring z[] is an A
2160: 53 43 49 49 20 72 65 70 72 65 73 65 6e 74 61 74 SCII representat
2170: 69 6f 6e 20 6f 66 20 61 20 72 65 61 6c 20 6e 75 ion of a real nu
2180: 6d 62 65 72 2e 0a 2a 2a 20 43 6f 6e 76 65 72 74 mber..** Convert
2190: 20 74 68 69 73 20 73 74 72 69 6e 67 20 74 6f 20 this string to
21a0: 61 20 64 6f 75 62 6c 65 2e 0a 2a 2a 0a 2a 2a 20 a double..**.**
21b0: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 61 73 73 This routine ass
21c0: 75 6d 65 73 20 74 68 61 74 20 7a 5b 5d 20 72 65 umes that z[] re
21d0: 61 6c 6c 79 20 69 73 20 61 20 76 61 6c 69 64 20 ally is a valid
21e0: 6e 75 6d 62 65 72 2e 20 20 49 66 20 69 74 0a 2a number. If it.*
21f0: 2a 20 69 73 20 6e 6f 74 2c 20 74 68 65 20 72 65 * is not, the re
2200: 73 75 6c 74 20 69 73 20 75 6e 64 65 66 69 6e 65 sult is undefine
2210: 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f d..**.** This ro
2220: 75 74 69 6e 65 20 69 73 20 75 73 65 64 20 69 6e utine is used in
2230: 73 74 65 61 64 20 6f 66 20 74 68 65 20 6c 69 62 stead of the lib
2240: 72 61 72 79 20 61 74 6f 66 28 29 20 66 75 6e 63 rary atof() func
2250: 74 69 6f 6e 20 62 65 63 61 75 73 65 0a 2a 2a 20 tion because.**
2260: 74 68 65 20 6c 69 62 72 61 72 79 20 61 74 6f 66 the library atof
2270: 28 29 20 6d 69 67 68 74 20 77 61 6e 74 20 74 6f () might want to
2280: 20 75 73 65 20 22 2c 22 20 61 73 20 74 68 65 20 use "," as the
2290: 64 65 63 69 6d 61 6c 20 70 6f 69 6e 74 20 69 6e decimal point in
22a0: 73 74 65 61 64 0a 2a 2a 20 6f 66 20 22 2e 22 20 stead.** of "."
22b0: 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 68 6f 77 depending on how
22c0: 20 6c 6f 63 61 6c 65 20 69 73 20 73 65 74 2e 20 locale is set.
22d0: 20 42 75 74 20 74 68 61 74 20 77 6f 75 6c 64 20 But that would
22e0: 63 61 75 73 65 20 70 72 6f 62 6c 65 6d 73 0a 2a cause problems.*
22f0: 2a 20 66 6f 72 20 53 51 4c 2e 20 20 53 6f 20 74 * for SQL. So t
2300: 68 69 73 20 72 6f 75 74 69 6e 65 20 61 6c 77 61 his routine alwa
2310: 79 73 20 75 73 65 73 20 22 2e 22 20 72 65 67 61 ys uses "." rega
2320: 72 64 6c 65 73 73 20 6f 66 20 6c 6f 63 61 6c 65 rdless of locale
2330: 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 ..*/.int sqlite3
2340: 41 74 6f 46 28 63 6f 6e 73 74 20 63 68 61 72 20 AtoF(const char
2350: 2a 7a 2c 20 64 6f 75 62 6c 65 20 2a 70 52 65 73 *z, double *pRes
2360: 75 6c 74 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 ult){.#ifndef SQ
2370: 4c 49 54 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49 LITE_OMIT_FLOATI
2380: 4e 47 5f 50 4f 49 4e 54 0a 20 20 63 6f 6e 73 74 NG_POINT. const
2390: 20 63 68 61 72 20 2a 7a 42 65 67 69 6e 20 3d 20 char *zBegin =
23a0: 7a 3b 0a 20 20 2f 2a 20 73 69 67 6e 20 2a 20 73 z;. /* sign * s
23b0: 69 67 6e 69 66 69 63 61 6e 64 20 2a 20 28 31 30 ignificand * (10
23c0: 20 5e 20 28 65 73 69 67 6e 20 2a 20 65 78 70 6f ^ (esign * expo
23d0: 6e 65 6e 74 29 29 20 2a 2f 0a 20 20 69 6e 74 20 nent)) */. int
23e0: 73 69 67 6e 20 3d 20 31 3b 20 20 20 2f 2a 20 73 sign = 1; /* s
23f0: 69 67 6e 20 6f 66 20 73 69 67 6e 69 66 69 63 61 ign of significa
2400: 6e 64 20 2a 2f 0a 20 20 69 36 34 20 73 20 3d 20 nd */. i64 s =
2410: 30 3b 20 20 20 20 20 20 2f 2a 20 73 69 67 6e 69 0; /* signi
2420: 66 69 63 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 ficand */. int
2430: 64 20 3d 20 30 3b 20 20 20 20 20 20 2f 2a 20 61 d = 0; /* a
2440: 64 6a 75 73 74 20 65 78 70 6f 6e 65 6e 74 20 66 djust exponent f
2450: 6f 72 20 73 68 69 66 74 69 6e 67 20 64 65 63 69 or shifting deci
2460: 6d 61 6c 20 70 6f 69 6e 74 20 2a 2f 0a 20 20 69 mal point */. i
2470: 6e 74 20 65 73 69 67 6e 20 3d 20 31 3b 20 20 2f nt esign = 1; /
2480: 2a 20 73 69 67 6e 20 6f 66 20 65 78 70 6f 6e 65 * sign of expone
2490: 6e 74 20 2a 2f 0a 20 20 69 6e 74 20 65 20 3d 20 nt */. int e =
24a0: 30 3b 20 20 20 20 20 20 2f 2a 20 65 78 70 6f 6e 0; /* expon
24b0: 65 6e 74 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 ent */. double
24c0: 72 65 73 75 6c 74 3b 0a 20 20 69 6e 74 20 6e 44 result;. int nD
24d0: 69 67 69 74 73 20 3d 20 30 3b 0a 0a 20 20 2f 2a igits = 0;.. /*
24e0: 20 73 6b 69 70 20 6c 65 61 64 69 6e 67 20 73 70 skip leading sp
24f0: 61 63 65 73 20 2a 2f 0a 20 20 77 68 69 6c 65 28 aces */. while(
2500: 20 73 71 6c 69 74 65 33 49 73 73 70 61 63 65 28 sqlite3Isspace(
2510: 2a 7a 29 20 29 20 7a 2b 2b 3b 0a 20 20 2f 2a 20 *z) ) z++;. /*
2520: 67 65 74 20 73 69 67 6e 20 6f 66 20 73 69 67 6e get sign of sign
2530: 69 66 69 63 61 6e 64 20 2a 2f 0a 20 20 69 66 28 ificand */. if(
2540: 20 2a 7a 3d 3d 27 2d 27 20 29 7b 0a 20 20 20 20 *z=='-' ){.
2550: 73 69 67 6e 20 3d 20 2d 31 3b 0a 20 20 20 20 7a sign = -1;. z
2560: 2b 2b 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 ++;. }else if(
2570: 2a 7a 3d 3d 27 2b 27 20 29 7b 0a 20 20 20 20 7a *z=='+' ){. z
2580: 2b 2b 3b 0a 20 20 7d 0a 20 20 2f 2a 20 73 6b 69 ++;. }. /* ski
2590: 70 20 6c 65 61 64 69 6e 67 20 7a 65 72 6f 65 73 p leading zeroes
25a0: 20 2a 2f 0a 20 20 77 68 69 6c 65 28 20 7a 5b 30 */. while( z[0
25b0: 5d 3d 3d 27 30 27 20 29 20 7a 2b 2b 2c 20 6e 44 ]=='0' ) z++, nD
25c0: 69 67 69 74 73 2b 2b 3b 0a 0a 20 20 2f 2a 20 63 igits++;.. /* c
25d0: 6f 70 79 20 6d 61 78 20 73 69 67 6e 69 66 69 63 opy max signific
25e0: 61 6e 74 20 64 69 67 69 74 73 20 74 6f 20 73 69 ant digits to si
25f0: 67 6e 69 66 69 63 61 6e 64 20 2a 2f 0a 20 20 77 gnificand */. w
2600: 68 69 6c 65 28 20 73 71 6c 69 74 65 33 49 73 64 hile( sqlite3Isd
2610: 69 67 69 74 28 2a 7a 29 20 26 26 20 73 3c 28 28 igit(*z) && s<((
2620: 4c 41 52 47 45 53 54 5f 49 4e 54 36 34 2d 39 29 LARGEST_INT64-9)
2630: 2f 31 30 29 20 29 7b 0a 20 20 20 20 73 20 3d 20 /10) ){. s =
2640: 73 2a 31 30 20 2b 20 28 2a 7a 20 2d 20 27 30 27 s*10 + (*z - '0'
2650: 29 3b 0a 20 20 20 20 7a 2b 2b 2c 20 6e 44 69 67 );. z++, nDig
2660: 69 74 73 2b 2b 3b 0a 20 20 7d 0a 20 20 2f 2a 20 its++;. }. /*
2670: 73 6b 69 70 20 6e 6f 6e 2d 73 69 67 6e 69 66 69 skip non-signifi
2680: 63 61 6e 74 20 73 69 67 6e 69 66 69 63 61 6e 64 cant significand
2690: 20 64 69 67 69 74 73 0a 20 20 2a 2a 20 28 69 6e digits. ** (in
26a0: 63 72 65 61 73 65 20 65 78 70 6f 6e 65 6e 74 20 crease exponent
26b0: 62 79 20 64 20 74 6f 20 73 68 69 66 74 20 64 65 by d to shift de
26c0: 63 69 6d 61 6c 20 6c 65 66 74 29 20 2a 2f 0a 20 cimal left) */.
26d0: 20 77 68 69 6c 65 28 20 73 71 6c 69 74 65 33 49 while( sqlite3I
26e0: 73 64 69 67 69 74 28 2a 7a 29 20 29 20 7a 2b 2b sdigit(*z) ) z++
26f0: 2c 20 6e 44 69 67 69 74 73 2b 2b 2c 20 64 2b 2b , nDigits++, d++
2700: 3b 0a 0a 20 20 2f 2a 20 69 66 20 64 65 63 69 6d ;.. /* if decim
2710: 61 6c 20 70 6f 69 6e 74 20 69 73 20 70 72 65 73 al point is pres
2720: 65 6e 74 20 2a 2f 0a 20 20 69 66 28 20 2a 7a 3d ent */. if( *z=
2730: 3d 27 2e 27 20 29 7b 0a 20 20 20 20 7a 2b 2b 3b ='.' ){. z++;
2740: 0a 20 20 20 20 2f 2a 20 63 6f 70 79 20 64 69 67 . /* copy dig
2750: 69 74 73 20 66 72 6f 6d 20 61 66 74 65 72 20 64 its from after d
2760: 65 63 69 6d 61 6c 20 74 6f 20 73 69 67 6e 69 66 ecimal to signif
2770: 69 63 61 6e 64 0a 20 20 20 20 2a 2a 20 28 64 65 icand. ** (de
2780: 63 72 65 61 73 65 20 65 78 70 6f 6e 65 6e 74 20 crease exponent
2790: 62 79 20 64 20 74 6f 20 73 68 69 66 74 20 64 65 by d to shift de
27a0: 63 69 6d 61 6c 20 72 69 67 68 74 29 20 2a 2f 0a cimal right) */.
27b0: 20 20 20 20 77 68 69 6c 65 28 20 73 71 6c 69 74 while( sqlit
27c0: 65 33 49 73 64 69 67 69 74 28 2a 7a 29 20 26 26 e3Isdigit(*z) &&
27d0: 20 73 3c 28 28 4c 41 52 47 45 53 54 5f 49 4e 54 s<((LARGEST_INT
27e0: 36 34 2d 39 29 2f 31 30 29 20 29 7b 0a 20 20 20 64-9)/10) ){.
27f0: 20 20 20 73 20 3d 20 73 2a 31 30 20 2b 20 28 2a s = s*10 + (*
2800: 7a 20 2d 20 27 30 27 29 3b 0a 20 20 20 20 20 20 z - '0');.
2810: 7a 2b 2b 2c 20 6e 44 69 67 69 74 73 2b 2b 2c 20 z++, nDigits++,
2820: 64 2d 2d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f d--;. }. /
2830: 2a 20 73 6b 69 70 20 6e 6f 6e 2d 73 69 67 6e 69 * skip non-signi
2840: 66 69 63 61 6e 74 20 64 69 67 69 74 73 20 2a 2f ficant digits */
2850: 0a 20 20 20 20 77 68 69 6c 65 28 20 73 71 6c 69 . while( sqli
2860: 74 65 33 49 73 64 69 67 69 74 28 2a 7a 29 20 29 te3Isdigit(*z) )
2870: 20 7a 2b 2b 2c 20 6e 44 69 67 69 74 73 2b 2b 3b z++, nDigits++;
2880: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 69 66 20 65 78 . }.. /* if ex
2890: 70 6f 6e 65 6e 74 20 69 73 20 70 72 65 73 65 6e ponent is presen
28a0: 74 20 2a 2f 0a 20 20 69 66 28 20 2a 7a 3d 3d 27 t */. if( *z=='
28b0: 65 27 20 7c 7c 20 2a 7a 3d 3d 27 45 27 20 29 7b e' || *z=='E' ){
28c0: 0a 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 2f 2a . z++;. /*
28d0: 20 67 65 74 20 73 69 67 6e 20 6f 66 20 65 78 70 get sign of exp
28e0: 6f 6e 65 6e 74 20 2a 2f 0a 20 20 20 20 69 66 28 onent */. if(
28f0: 20 2a 7a 3d 3d 27 2d 27 20 29 7b 0a 20 20 20 20 *z=='-' ){.
2900: 20 20 65 73 69 67 6e 20 3d 20 2d 31 3b 0a 20 20 esign = -1;.
2910: 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 7d 65 6c z++;. }el
2920: 73 65 20 69 66 28 20 2a 7a 3d 3d 27 2b 27 20 29 se if( *z=='+' )
2930: 7b 0a 20 20 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 {. z++;.
2940: 20 7d 0a 20 20 20 20 2f 2a 20 63 6f 70 79 20 64 }. /* copy d
2950: 69 67 69 74 73 20 74 6f 20 65 78 70 6f 6e 65 6e igits to exponen
2960: 74 20 2a 2f 0a 20 20 20 20 77 68 69 6c 65 28 20 t */. while(
2970: 73 71 6c 69 74 65 33 49 73 64 69 67 69 74 28 2a sqlite3Isdigit(*
2980: 7a 29 20 29 7b 0a 20 20 20 20 20 20 65 20 3d 20 z) ){. e =
2990: 65 2a 31 30 20 2b 20 28 2a 7a 20 2d 20 27 30 27 e*10 + (*z - '0'
29a0: 29 3b 0a 20 20 20 20 20 20 7a 2b 2b 3b 0a 20 20 );. z++;.
29b0: 20 20 7d 0a 20 20 7d 0a 0a 20 20 2f 2a 20 61 64 }. }.. /* ad
29c0: 6a 75 73 74 20 65 78 70 6f 6e 65 6e 74 20 62 79 just exponent by
29d0: 20 64 2c 20 61 6e 64 20 75 70 64 61 74 65 20 73 d, and update s
29e0: 69 67 6e 20 2a 2f 0a 20 20 65 20 3d 20 28 65 2a ign */. e = (e*
29f0: 65 73 69 67 6e 29 20 2b 20 64 3b 0a 20 20 69 66 esign) + d;. if
2a00: 28 20 65 3c 30 20 29 20 7b 0a 20 20 20 20 65 73 ( e<0 ) {. es
2a10: 69 67 6e 20 3d 20 2d 31 3b 0a 20 20 20 20 65 20 ign = -1;. e
2a20: 2a 3d 20 2d 31 3b 0a 20 20 7d 20 65 6c 73 65 20 *= -1;. } else
2a30: 7b 0a 20 20 20 20 65 73 69 67 6e 20 3d 20 31 3b {. esign = 1;
2a40: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 69 66 20 30 20 . }.. /* if 0
2a50: 73 69 67 6e 69 66 69 63 61 6e 64 20 2a 2f 0a 20 significand */.
2a60: 20 69 66 28 20 21 73 20 29 20 7b 0a 20 20 20 20 if( !s ) {.
2a70: 2f 2a 20 49 6e 20 74 68 65 20 49 45 45 45 20 37 /* In the IEEE 7
2a80: 35 34 20 73 74 61 6e 64 61 72 64 2c 20 7a 65 72 54 standard, zer
2a90: 6f 20 69 73 20 73 69 67 6e 65 64 2e 0a 20 20 20 o is signed..
2aa0: 20 2a 2a 20 41 64 64 20 74 68 65 20 73 69 67 6e ** Add the sign
2ab0: 20 69 66 20 77 65 27 76 65 20 73 65 65 6e 20 61 if we've seen a
2ac0: 74 20 6c 65 61 73 74 20 6f 6e 65 20 64 69 67 69 t least one digi
2ad0: 74 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 20 t */. result
2ae0: 3d 20 28 73 69 67 6e 3c 30 20 26 26 20 6e 44 69 = (sign<0 && nDi
2af0: 67 69 74 73 29 20 3f 20 2d 28 64 6f 75 62 6c 65 gits) ? -(double
2b00: 29 30 20 3a 20 28 64 6f 75 62 6c 65 29 30 3b 0a )0 : (double)0;.
2b10: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 2f } else {. /
2b20: 2a 20 61 74 74 65 6d 70 74 20 74 6f 20 72 65 64 * attempt to red
2b30: 75 63 65 20 65 78 70 6f 6e 65 6e 74 20 2a 2f 0a uce exponent */.
2b40: 20 20 20 20 69 66 28 20 65 73 69 67 6e 3e 30 20 if( esign>0
2b50: 29 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 ){. while(
2b60: 73 3c 28 4c 41 52 47 45 53 54 5f 49 4e 54 36 34 s<(LARGEST_INT64
2b70: 2f 31 30 29 20 26 26 20 65 3e 30 20 29 20 65 2d /10) && e>0 ) e-
2b80: 2d 2c 73 2a 3d 31 30 3b 0a 20 20 20 20 7d 65 6c -,s*=10;. }el
2b90: 73 65 7b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 se{. while(
2ba0: 20 21 28 73 25 31 30 29 20 26 26 20 65 3e 30 20 !(s%10) && e>0
2bb0: 29 20 65 2d 2d 2c 73 2f 3d 31 30 3b 0a 20 20 20 ) e--,s/=10;.
2bc0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 61 64 6a 75 73 }.. /* adjus
2bd0: 74 20 74 68 65 20 73 69 67 6e 20 6f 66 20 73 69 t the sign of si
2be0: 67 6e 69 66 69 63 61 6e 64 20 2a 2f 0a 20 20 20 gnificand */.
2bf0: 20 73 20 3d 20 73 69 67 6e 3c 30 20 3f 20 2d 73 s = sign<0 ? -s
2c00: 20 3a 20 73 3b 0a 0a 20 20 20 20 2f 2a 20 69 66 : s;.. /* if
2c10: 20 65 78 70 6f 6e 65 6e 74 2c 20 73 63 61 6c 65 exponent, scale
2c20: 20 73 69 67 6e 69 66 69 63 61 6e 64 20 61 73 20 significand as
2c30: 61 70 70 72 6f 70 72 69 61 74 65 0a 20 20 20 20 appropriate.
2c40: 2a 2a 20 61 6e 64 20 73 74 6f 72 65 20 69 6e 20 ** and store in
2c50: 72 65 73 75 6c 74 2e 20 2a 2f 0a 20 20 20 20 69 result. */. i
2c60: 66 28 20 65 20 29 7b 0a 20 20 20 20 20 20 64 6f f( e ){. do
2c70: 75 62 6c 65 20 73 63 61 6c 65 20 3d 20 31 2e 30 uble scale = 1.0
2c80: 3b 0a 20 20 20 20 20 20 2f 2a 20 61 74 74 65 6d ;. /* attem
2c90: 70 74 20 74 6f 20 68 61 6e 64 6c 65 20 65 78 74 pt to handle ext
2ca0: 72 65 6d 65 6c 79 20 73 6d 61 6c 6c 2f 6c 61 72 remely small/lar
2cb0: 67 65 20 6e 75 6d 62 65 72 73 20 62 65 74 74 65 ge numbers bette
2cc0: 72 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 65 r */. if( e
2cd0: 3e 33 30 37 20 26 26 20 65 3c 33 34 32 20 29 7b >307 && e<342 ){
2ce0: 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 . while(
2cf0: 65 25 33 30 38 20 29 20 7b 20 73 63 61 6c 65 20 e%308 ) { scale
2d00: 2a 3d 20 31 2e 30 65 2b 31 3b 20 65 20 2d 3d 20 *= 1.0e+1; e -=
2d10: 31 3b 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 1; }. if(
2d20: 20 65 73 69 67 6e 3c 30 20 29 7b 0a 20 20 20 20 esign<0 ){.
2d30: 20 20 20 20 20 20 72 65 73 75 6c 74 20 3d 20 73 result = s
2d40: 20 2f 20 73 63 61 6c 65 3b 0a 20 20 20 20 20 20 / scale;.
2d50: 20 20 20 20 72 65 73 75 6c 74 20 2f 3d 20 31 2e result /= 1.
2d60: 30 65 2b 33 30 38 3b 0a 20 20 20 20 20 20 20 20 0e+308;.
2d70: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
2d80: 20 72 65 73 75 6c 74 20 3d 20 73 20 2a 20 73 63 result = s * sc
2d90: 61 6c 65 3b 0a 20 20 20 20 20 20 20 20 20 20 72 ale;. r
2da0: 65 73 75 6c 74 20 2a 3d 20 31 2e 30 65 2b 33 30 esult *= 1.0e+30
2db0: 38 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 8;. }.
2dc0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 }else{.
2dd0: 20 20 2f 2a 20 31 2e 30 65 2b 32 32 20 69 73 20 /* 1.0e+22 is
2de0: 74 68 65 20 6c 61 72 67 65 73 74 20 70 6f 77 65 the largest powe
2df0: 72 20 6f 66 20 31 30 20 74 68 61 6e 20 63 61 6e r of 10 than can
2e00: 20 62 65 20 0a 20 20 20 20 20 20 20 20 2a 2a 20 be . **
2e10: 72 65 70 72 65 73 65 6e 74 65 64 20 65 78 61 63 represented exac
2e20: 74 6c 79 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 tly. */.
2e30: 77 68 69 6c 65 28 20 65 25 32 32 20 29 20 7b 20 while( e%22 ) {
2e40: 73 63 61 6c 65 20 2a 3d 20 31 2e 30 65 2b 31 3b scale *= 1.0e+1;
2e50: 20 65 20 2d 3d 20 31 3b 20 7d 0a 20 20 20 20 20 e -= 1; }.
2e60: 20 20 20 77 68 69 6c 65 28 20 65 3e 30 20 29 20 while( e>0 )
2e70: 7b 20 73 63 61 6c 65 20 2a 3d 20 31 2e 30 65 2b { scale *= 1.0e+
2e80: 32 32 3b 20 65 20 2d 3d 20 32 32 3b 20 7d 0a 20 22; e -= 22; }.
2e90: 20 20 20 20 20 20 20 69 66 28 20 65 73 69 67 6e if( esign
2ea0: 3c 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 <0 ){.
2eb0: 72 65 73 75 6c 74 20 3d 20 73 20 2f 20 73 63 61 result = s / sca
2ec0: 6c 65 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 le;. }els
2ed0: 65 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 73 e{. res
2ee0: 75 6c 74 20 3d 20 73 20 2a 20 73 63 61 6c 65 3b ult = s * scale;
2ef0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
2f00: 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a }. } else {.
2f10: 20 20 20 20 20 20 72 65 73 75 6c 74 20 3d 20 28 result = (
2f20: 64 6f 75 62 6c 65 29 73 3b 0a 20 20 20 20 7d 0a double)s;. }.
2f30: 20 20 7d 0a 0a 20 20 2f 2a 20 73 74 6f 72 65 20 }.. /* store
2f40: 74 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 the result */.
2f50: 2a 70 52 65 73 75 6c 74 20 3d 20 72 65 73 75 6c *pResult = resul
2f60: 74 3b 0a 0a 20 20 2f 2a 20 72 65 74 75 72 6e 20 t;.. /* return
2f70: 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 number of charac
2f80: 74 65 72 73 20 75 73 65 64 20 2a 2f 0a 20 20 72 ters used */. r
2f90: 65 74 75 72 6e 20 28 69 6e 74 29 28 7a 20 2d 20 eturn (int)(z -
2fa0: 7a 42 65 67 69 6e 29 3b 0a 23 65 6c 73 65 0a 20 zBegin);.#else.
2fb0: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 41 return sqlite3A
2fc0: 74 6f 69 36 34 28 7a 2c 20 70 52 65 73 75 6c 74 toi64(z, pResult
2fd0: 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c );.#endif /* SQL
2fe0: 49 54 45 5f 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e ITE_OMIT_FLOATIN
2ff0: 47 5f 50 4f 49 4e 54 20 2a 2f 0a 7d 0a 0a 2f 2a G_POINT */.}../*
3000: 0a 2a 2a 20 43 6f 6d 70 61 72 65 20 74 68 65 20 .** Compare the
3010: 31 39 2d 63 68 61 72 61 63 74 65 72 20 73 74 72 19-character str
3020: 69 6e 67 20 7a 4e 75 6d 20 61 67 61 69 6e 73 74 ing zNum against
3030: 20 74 68 65 20 74 65 78 74 20 72 65 70 72 65 73 the text repres
3040: 65 6e 74 61 74 69 6f 6e 0a 2a 2a 20 76 61 6c 75 entation.** valu
3050: 65 20 32 5e 36 33 3a 20 20 39 32 32 33 33 37 32 e 2^63: 9223372
3060: 30 33 36 38 35 34 37 37 35 38 30 38 2e 20 20 52 036854775808. R
3070: 65 74 75 72 6e 20 6e 65 67 61 74 69 76 65 2c 20 eturn negative,
3080: 7a 65 72 6f 2c 20 6f 72 20 70 6f 73 69 74 69 76 zero, or positiv
3090: 65 0a 2a 2a 20 69 66 20 7a 4e 75 6d 20 69 73 20 e.** if zNum is
30a0: 6c 65 73 73 20 74 68 61 6e 2c 20 65 71 75 61 6c less than, equal
30b0: 20 74 6f 2c 20 6f 72 20 67 72 65 61 74 65 72 20 to, or greater
30c0: 74 68 61 6e 20 74 68 65 20 73 74 72 69 6e 67 2e than the string.
30d0: 0a 2a 2a 0a 2a 2a 20 55 6e 6c 69 6b 65 20 6d 65 .**.** Unlike me
30e0: 6d 63 6d 70 28 29 20 74 68 69 73 20 72 6f 75 74 mcmp() this rout
30f0: 69 6e 65 20 69 73 20 67 75 61 72 61 6e 74 65 65 ine is guarantee
3100: 64 20 74 6f 20 72 65 74 75 72 6e 20 74 68 65 20 d to return the
3110: 64 69 66 66 65 72 65 6e 63 65 0a 2a 2a 20 69 6e difference.** in
3120: 20 74 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 the values of t
3130: 68 65 20 6c 61 73 74 20 64 69 67 69 74 20 69 66 he last digit if
3140: 20 74 68 65 20 6f 6e 6c 79 20 64 69 66 66 65 72 the only differ
3150: 65 6e 63 65 20 69 73 20 69 6e 20 74 68 65 0a 2a ence is in the.*
3160: 2a 20 6c 61 73 74 20 64 69 67 69 74 2e 20 20 53 * last digit. S
3170: 6f 2c 20 66 6f 72 20 65 78 61 6d 70 6c 65 2c 0a o, for example,.
3180: 2a 2a 0a 2a 2a 20 20 20 20 20 20 63 6f 6d 70 61 **.** compa
3190: 72 65 32 70 6f 77 36 33 28 22 39 32 32 33 33 37 re2pow63("922337
31a0: 32 30 33 36 38 35 34 37 37 35 38 30 30 22 29 0a 2036854775800").
31b0: 2a 2a 0a 2a 2a 20 77 69 6c 6c 20 72 65 74 75 72 **.** will retur
31c0: 6e 20 2d 38 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 n -8..*/.static
31d0: 69 6e 74 20 63 6f 6d 70 61 72 65 32 70 6f 77 36 int compare2pow6
31e0: 33 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 3(const char *zN
31f0: 75 6d 29 7b 0a 20 20 69 6e 74 20 63 3b 0a 20 20 um){. int c;.
3200: 63 20 3d 20 6d 65 6d 63 6d 70 28 7a 4e 75 6d 2c c = memcmp(zNum,
3210: 22 39 32 32 33 33 37 32 30 33 36 38 35 34 37 37 "922337203685477
3220: 35 38 30 22 2c 31 38 29 2a 31 30 3b 0a 20 20 69 580",18)*10;. i
3230: 66 28 20 63 3d 3d 30 20 29 7b 0a 20 20 20 20 63 f( c==0 ){. c
3240: 20 3d 20 7a 4e 75 6d 5b 31 38 5d 20 2d 20 27 38 = zNum[18] - '8
3250: 27 3b 0a 20 20 20 20 74 65 73 74 63 61 73 65 28 ';. testcase(
3260: 20 63 3d 3d 28 2d 31 29 20 29 3b 0a 20 20 20 20 c==(-1) );.
3270: 74 65 73 74 63 61 73 65 28 20 63 3d 3d 30 20 29 testcase( c==0 )
3280: 3b 0a 20 20 20 20 74 65 73 74 63 61 73 65 28 20 ;. testcase(
3290: 63 3d 3d 28 2b 31 29 20 29 3b 0a 20 20 7d 0a 20 c==(+1) );. }.
32a0: 20 72 65 74 75 72 6e 20 63 3b 0a 7d 0a 0a 0a 2f return c;.}.../
32b0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45 *.** Return TRUE
32c0: 20 69 66 20 7a 4e 75 6d 20 69 73 20 61 20 36 34 if zNum is a 64
32d0: 2d 62 69 74 20 73 69 67 6e 65 64 20 69 6e 74 65 -bit signed inte
32e0: 67 65 72 20 61 6e 64 20 77 72 69 74 65 0a 2a 2a ger and write.**
32f0: 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 the value of th
3300: 65 20 69 6e 74 65 67 65 72 20 69 6e 74 6f 20 2a e integer into *
3310: 70 4e 75 6d 2e 20 20 49 66 20 7a 4e 75 6d 20 69 pNum. If zNum i
3320: 73 20 6e 6f 74 20 61 6e 20 69 6e 74 65 67 65 72 s not an integer
3330: 0a 2a 2a 20 6f 72 20 69 73 20 61 6e 20 69 6e 74 .** or is an int
3340: 65 67 65 72 20 74 68 61 74 20 69 73 20 74 6f 6f eger that is too
3350: 20 6c 61 72 67 65 20 74 6f 20 62 65 20 65 78 70 large to be exp
3360: 72 65 73 73 65 64 20 77 69 74 68 20 36 34 20 62 ressed with 64 b
3370: 69 74 73 2c 0a 2a 2a 20 74 68 65 6e 20 72 65 74 its,.** then ret
3380: 75 72 6e 20 66 61 6c 73 65 2e 0a 2a 2a 0a 2a 2a urn false..**.**
3390: 20 57 68 65 6e 20 74 68 69 73 20 72 6f 75 74 69 When this routi
33a0: 6e 65 20 77 61 73 20 6f 72 69 67 69 6e 61 6c 6c ne was originall
33b0: 79 20 77 72 69 74 74 65 6e 20 69 74 20 64 65 61 y written it dea
33c0: 6c 74 20 77 69 74 68 20 6f 6e 6c 79 0a 2a 2a 20 lt with only.**
33d0: 33 32 2d 62 69 74 20 6e 75 6d 62 65 72 73 2e 20 32-bit numbers.
33e0: 20 41 74 20 74 68 61 74 20 74 69 6d 65 2c 20 69 At that time, i
33f0: 74 20 77 61 73 20 6d 75 63 68 20 66 61 73 74 65 t was much faste
3400: 72 20 74 68 61 6e 20 74 68 65 0a 2a 2a 20 61 74 r than the.** at
3410: 6f 69 28 29 20 6c 69 62 72 61 72 79 20 72 6f 75 oi() library rou
3420: 74 69 6e 65 20 69 6e 20 52 65 64 48 61 74 20 37 tine in RedHat 7
3430: 2e 32 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 .2..*/.int sqlit
3440: 65 33 41 74 6f 69 36 34 28 63 6f 6e 73 74 20 63 e3Atoi64(const c
3450: 68 61 72 20 2a 7a 4e 75 6d 2c 20 69 36 34 20 2a har *zNum, i64 *
3460: 70 4e 75 6d 29 7b 0a 20 20 69 36 34 20 76 20 3d pNum){. i64 v =
3470: 20 30 3b 0a 20 20 69 6e 74 20 6e 65 67 3b 0a 20 0;. int neg;.
3480: 20 69 6e 74 20 69 2c 20 63 3b 0a 20 20 63 6f 6e int i, c;. con
3490: 73 74 20 63 68 61 72 20 2a 7a 53 74 61 72 74 3b st char *zStart;
34a0: 0a 20 20 77 68 69 6c 65 28 20 73 71 6c 69 74 65 . while( sqlite
34b0: 33 49 73 73 70 61 63 65 28 2a 7a 4e 75 6d 29 20 3Isspace(*zNum)
34c0: 29 20 7a 4e 75 6d 2b 2b 3b 0a 20 20 69 66 28 20 ) zNum++;. if(
34d0: 2a 7a 4e 75 6d 3d 3d 27 2d 27 20 29 7b 0a 20 20 *zNum=='-' ){.
34e0: 20 20 6e 65 67 20 3d 20 31 3b 0a 20 20 20 20 7a neg = 1;. z
34f0: 4e 75 6d 2b 2b 3b 0a 20 20 7d 65 6c 73 65 20 69 Num++;. }else i
3500: 66 28 20 2a 7a 4e 75 6d 3d 3d 27 2b 27 20 29 7b f( *zNum=='+' ){
3510: 0a 20 20 20 20 6e 65 67 20 3d 20 30 3b 0a 20 20 . neg = 0;.
3520: 20 20 7a 4e 75 6d 2b 2b 3b 0a 20 20 7d 65 6c 73 zNum++;. }els
3530: 65 7b 0a 20 20 20 20 6e 65 67 20 3d 20 30 3b 0a e{. neg = 0;.
3540: 20 20 7d 0a 20 20 7a 53 74 61 72 74 20 3d 20 7a }. zStart = z
3550: 4e 75 6d 3b 0a 20 20 77 68 69 6c 65 28 20 7a 4e Num;. while( zN
3560: 75 6d 5b 30 5d 3d 3d 27 30 27 20 29 7b 20 7a 4e um[0]=='0' ){ zN
3570: 75 6d 2b 2b 3b 20 7d 20 2f 2a 20 53 6b 69 70 20 um++; } /* Skip
3580: 6f 76 65 72 20 6c 65 61 64 69 6e 67 20 7a 65 72 over leading zer
3590: 6f 73 2e 20 54 69 63 6b 65 74 20 23 32 34 35 34 os. Ticket #2454
35a0: 20 2a 2f 0a 20 20 66 6f 72 28 69 3d 30 3b 20 28 */. for(i=0; (
35b0: 63 3d 7a 4e 75 6d 5b 69 5d 29 3e 3d 27 30 27 20 c=zNum[i])>='0'
35c0: 26 26 20 63 3c 3d 27 39 27 3b 20 69 2b 2b 29 7b && c<='9'; i++){
35d0: 0a 20 20 20 20 76 20 3d 20 76 2a 31 30 20 2b 20 . v = v*10 +
35e0: 63 20 2d 20 27 30 27 3b 0a 20 20 7d 0a 20 20 2a c - '0';. }. *
35f0: 70 4e 75 6d 20 3d 20 6e 65 67 20 3f 20 2d 76 20 pNum = neg ? -v
3600: 3a 20 76 3b 0a 20 20 74 65 73 74 63 61 73 65 28 : v;. testcase(
3610: 20 69 3d 3d 31 38 20 29 3b 0a 20 20 74 65 73 74 i==18 );. test
3620: 63 61 73 65 28 20 69 3d 3d 31 39 20 29 3b 0a 20 case( i==19 );.
3630: 20 74 65 73 74 63 61 73 65 28 20 69 3d 3d 32 30 testcase( i==20
3640: 20 29 3b 0a 20 20 69 66 28 20 63 21 3d 30 20 7c );. if( c!=0 |
3650: 7c 20 28 69 3d 3d 30 20 26 26 20 7a 53 74 61 72 | (i==0 && zStar
3660: 74 3d 3d 7a 4e 75 6d 29 20 7c 7c 20 69 3e 31 39 t==zNum) || i>19
3670: 20 29 7b 0a 20 20 20 20 2f 2a 20 7a 4e 75 6d 20 ){. /* zNum
3680: 69 73 20 65 6d 70 74 79 20 6f 72 20 63 6f 6e 74 is empty or cont
3690: 61 69 6e 73 20 6e 6f 6e 2d 6e 75 6d 65 72 69 63 ains non-numeric
36a0: 20 74 65 78 74 20 6f 72 20 69 73 20 6c 6f 6e 67 text or is long
36b0: 65 72 0a 20 20 20 20 2a 2a 20 74 68 61 6e 20 31 er. ** than 1
36c0: 39 20 64 69 67 69 74 73 20 28 74 68 75 73 20 67 9 digits (thus g
36d0: 75 61 72 61 6e 74 69 6e 67 20 74 68 61 74 20 69 uaranting that i
36e0: 74 20 69 73 20 74 6f 6f 20 6c 61 72 67 65 29 20 t is too large)
36f0: 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b */. return 0;
3700: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 69 3c 31 . }else if( i<1
3710: 39 20 29 7b 0a 20 20 20 20 2f 2a 20 4c 65 73 73 9 ){. /* Less
3720: 20 74 68 61 6e 20 31 39 20 64 69 67 69 74 73 2c than 19 digits,
3730: 20 73 6f 20 77 65 20 6b 6e 6f 77 20 74 68 61 74 so we know that
3740: 20 69 74 20 66 69 74 73 20 69 6e 20 36 34 20 62 it fits in 64 b
3750: 69 74 73 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 its */. retur
3760: 6e 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 n 1;. }else{.
3770: 20 20 2f 2a 20 31 39 2d 64 69 67 69 74 20 6e 75 /* 19-digit nu
3780: 6d 62 65 72 73 20 6d 75 73 74 20 62 65 20 6e 6f mbers must be no
3790: 20 6c 61 72 67 65 72 20 74 68 61 6e 20 39 32 32 larger than 922
37a0: 33 33 37 32 30 33 36 38 35 34 37 37 35 38 30 37 3372036854775807
37b0: 20 69 66 20 70 6f 73 69 74 69 76 65 0a 20 20 20 if positive.
37c0: 20 2a 2a 20 6f 72 20 39 32 32 33 33 37 32 30 33 ** or 922337203
37d0: 36 38 35 34 37 37 35 38 30 38 20 69 66 20 6e 65 6854775808 if ne
37e0: 67 61 74 69 76 65 2e 20 20 4e 6f 74 65 20 74 68 gative. Note th
37f0: 61 74 20 39 32 32 33 33 37 32 30 33 36 38 35 34 at 9223372036854
3800: 36 36 35 38 30 38 0a 20 20 20 20 2a 2a 20 69 73 665808. ** is
3810: 20 32 5e 36 33 2e 20 2a 2f 0a 20 20 20 20 72 65 2^63. */. re
3820: 74 75 72 6e 20 63 6f 6d 70 61 72 65 32 70 6f 77 turn compare2pow
3830: 36 33 28 7a 4e 75 6d 29 3c 6e 65 67 3b 0a 20 20 63(zNum)<neg;.
3840: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 73 }.}../*.** The s
3850: 74 72 69 6e 67 20 7a 4e 75 6d 20 72 65 70 72 65 tring zNum repre
3860: 73 65 6e 74 73 20 61 6e 20 75 6e 73 69 67 6e 65 sents an unsigne
3870: 64 20 69 6e 74 65 67 65 72 2e 20 20 54 68 65 20 d integer. The
3880: 7a 4e 75 6d 20 73 74 72 69 6e 67 0a 2a 2a 20 63 zNum string.** c
3890: 6f 6e 73 69 73 74 73 20 6f 66 20 6f 6e 65 20 6f onsists of one o
38a0: 72 20 6d 6f 72 65 20 64 69 67 69 74 20 63 68 61 r more digit cha
38b0: 72 61 63 74 65 72 73 20 61 6e 64 20 69 73 20 74 racters and is t
38c0: 65 72 6d 69 6e 61 74 65 64 20 62 79 0a 2a 2a 20 erminated by.**
38d0: 61 20 7a 65 72 6f 20 63 68 61 72 61 63 74 65 72 a zero character
38e0: 2e 20 20 41 6e 79 20 73 74 72 61 79 20 63 68 61 . Any stray cha
38f0: 72 61 63 74 65 72 73 20 69 6e 20 7a 4e 75 6d 20 racters in zNum
3900: 72 65 73 75 6c 74 20 69 6e 20 75 6e 64 65 66 69 result in undefi
3910: 6e 65 64 0a 2a 2a 20 62 65 68 61 76 69 6f 72 2e ned.** behavior.
3920: 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 75 6e .**.** If the un
3930: 73 69 67 6e 65 64 20 69 6e 74 65 67 65 72 20 74 signed integer t
3940: 68 61 74 20 7a 4e 75 6d 20 72 65 70 72 65 73 65 hat zNum represe
3950: 6e 74 73 20 77 69 6c 6c 20 66 69 74 20 69 6e 20 nts will fit in
3960: 61 0a 2a 2a 20 36 34 2d 62 69 74 20 73 69 67 6e a.** 64-bit sign
3970: 65 64 20 69 6e 74 65 67 65 72 2c 20 72 65 74 75 ed integer, retu
3980: 72 6e 20 54 52 55 45 2e 20 20 4f 74 68 65 72 77 rn TRUE. Otherw
3990: 69 73 65 20 72 65 74 75 72 6e 20 46 41 4c 53 45 ise return FALSE
39a0: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 6e ..**.** If the n
39b0: 65 67 46 6c 61 67 20 70 61 72 61 6d 65 74 65 72 egFlag parameter
39c0: 20 69 73 20 74 72 75 65 2c 20 74 68 61 74 20 6d is true, that m
39d0: 65 61 6e 73 20 74 68 61 74 20 7a 4e 75 6d 20 72 eans that zNum r
39e0: 65 61 6c 6c 79 20 72 65 70 72 65 73 65 6e 74 73 eally represents
39f0: 0a 2a 2a 20 61 20 6e 65 67 61 74 69 76 65 20 6e .** a negative n
3a00: 75 6d 62 65 72 2e 20 20 28 54 68 65 20 6c 65 61 umber. (The lea
3a10: 64 69 6e 67 20 22 2d 22 20 69 73 20 6f 6d 69 74 ding "-" is omit
3a20: 74 65 64 20 66 72 6f 6d 20 7a 4e 75 6d 2e 29 20 ted from zNum.)
3a30: 20 54 68 69 73 0a 2a 2a 20 70 61 72 61 6d 65 74 This.** paramet
3a40: 65 72 20 69 73 20 6e 65 65 64 65 64 20 74 6f 20 er is needed to
3a50: 64 65 74 65 72 6d 69 6e 65 20 61 20 62 6f 75 6e determine a boun
3a60: 64 61 72 79 20 63 61 73 65 2e 20 20 41 20 73 74 dary case. A st
3a70: 72 69 6e 67 0a 2a 2a 20 6f 66 20 22 39 32 32 33 ring.** of "9223
3a80: 33 37 33 30 33 36 38 35 34 37 37 35 38 30 38 22 373036854775808"
3a90: 20 72 65 74 75 72 6e 73 20 66 61 6c 73 65 20 69 returns false i
3aa0: 66 20 6e 65 67 46 6c 61 67 20 69 73 20 66 61 6c f negFlag is fal
3ab0: 73 65 20 6f 72 20 74 72 75 65 0a 2a 2a 20 69 66 se or true.** if
3ac0: 20 6e 65 67 46 6c 61 67 20 69 73 20 74 72 75 65 negFlag is true
3ad0: 2e 0a 2a 2a 0a 2a 2a 20 4c 65 61 64 69 6e 67 20 ..**.** Leading
3ae0: 7a 65 72 6f 73 20 61 72 65 20 69 67 6e 6f 72 65 zeros are ignore
3af0: 64 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 d..*/.int sqlite
3b00: 33 46 69 74 73 49 6e 36 34 42 69 74 73 28 63 6f 3FitsIn64Bits(co
3b10: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 75 6d 2c 20 nst char *zNum,
3b20: 69 6e 74 20 6e 65 67 46 6c 61 67 29 7b 0a 20 20 int negFlag){.
3b30: 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6e 65 67 int i;. int neg
3b40: 20 3d 20 30 3b 0a 0a 20 20 61 73 73 65 72 74 28 = 0;.. assert(
3b50: 20 7a 4e 75 6d 5b 30 5d 3e 3d 27 30 27 20 26 26 zNum[0]>='0' &&
3b60: 20 7a 4e 75 6d 5b 30 5d 3c 3d 27 39 27 20 29 3b zNum[0]<='9' );
3b70: 20 2f 2a 20 7a 4e 75 6d 20 69 73 20 61 6e 20 75 /* zNum is an u
3b80: 6e 73 69 67 6e 65 64 20 6e 75 6d 62 65 72 20 2a nsigned number *
3b90: 2f 0a 0a 20 20 69 66 28 20 6e 65 67 46 6c 61 67 /.. if( negFlag
3ba0: 20 29 20 6e 65 67 20 3d 20 31 2d 6e 65 67 3b 0a ) neg = 1-neg;.
3bb0: 20 20 77 68 69 6c 65 28 20 2a 7a 4e 75 6d 3d 3d while( *zNum==
3bc0: 27 30 27 20 29 7b 0a 20 20 20 20 7a 4e 75 6d 2b '0' ){. zNum+
3bd0: 2b 3b 20 20 20 2f 2a 20 53 6b 69 70 20 6c 65 61 +; /* Skip lea
3be0: 64 69 6e 67 20 7a 65 72 6f 73 2e 20 20 54 69 63 ding zeros. Tic
3bf0: 6b 65 74 20 23 32 34 35 34 20 2a 2f 0a 20 20 7d ket #2454 */. }
3c00: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 7a 4e 75 6d . for(i=0; zNum
3c10: 5b 69 5d 3b 20 69 2b 2b 29 7b 20 61 73 73 65 72 [i]; i++){ asser
3c20: 74 28 20 7a 4e 75 6d 5b 69 5d 3e 3d 27 30 27 20 t( zNum[i]>='0'
3c30: 26 26 20 7a 4e 75 6d 5b 69 5d 3c 3d 27 39 27 20 && zNum[i]<='9'
3c40: 29 3b 20 7d 0a 20 20 74 65 73 74 63 61 73 65 28 ); }. testcase(
3c50: 20 69 3d 3d 31 38 20 29 3b 0a 20 20 74 65 73 74 i==18 );. test
3c60: 63 61 73 65 28 20 69 3d 3d 31 39 20 29 3b 0a 20 case( i==19 );.
3c70: 20 74 65 73 74 63 61 73 65 28 20 69 3d 3d 32 30 testcase( i==20
3c80: 20 29 3b 0a 20 20 69 66 28 20 69 3c 31 39 20 29 );. if( i<19 )
3c90: 7b 0a 20 20 20 20 2f 2a 20 47 75 61 72 61 6e 74 {. /* Guarant
3ca0: 65 65 64 20 74 6f 20 66 69 74 20 69 66 20 6c 65 eed to fit if le
3cb0: 73 73 20 74 68 61 6e 20 31 39 20 64 69 67 69 74 ss than 19 digit
3cc0: 73 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 s */. return
3cd0: 31 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 69 1;. }else if( i
3ce0: 3e 31 39 20 29 7b 0a 20 20 20 20 2f 2a 20 47 75 >19 ){. /* Gu
3cf0: 61 72 61 6e 74 65 65 64 20 74 6f 20 62 65 20 74 aranteed to be t
3d00: 6f 6f 20 62 69 67 20 69 66 20 67 72 65 61 74 65 oo big if greate
3d10: 72 20 74 68 61 6e 20 31 39 20 64 69 67 69 74 73 r than 19 digits
3d20: 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 30 */. return 0
3d30: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 2f ;. }else{. /
3d40: 2a 20 43 6f 6d 70 61 72 65 20 61 67 61 69 6e 73 * Compare agains
3d50: 74 20 32 5e 36 33 2e 20 2a 2f 0a 20 20 20 20 72 t 2^63. */. r
3d60: 65 74 75 72 6e 20 63 6f 6d 70 61 72 65 32 70 6f eturn compare2po
3d70: 77 36 33 28 7a 4e 75 6d 29 3c 6e 65 67 3b 0a 20 w63(zNum)<neg;.
3d80: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 20 7a }.}../*.** If z
3d90: 4e 75 6d 20 72 65 70 72 65 73 65 6e 74 73 20 61 Num represents a
3da0: 6e 20 69 6e 74 65 67 65 72 20 74 68 61 74 20 77 n integer that w
3db0: 69 6c 6c 20 66 69 74 20 69 6e 20 33 32 2d 62 69 ill fit in 32-bi
3dc0: 74 73 2c 20 74 68 65 6e 20 73 65 74 0a 2a 2a 20 ts, then set.**
3dd0: 2a 70 56 61 6c 75 65 20 74 6f 20 74 68 61 74 20 *pValue to that
3de0: 69 6e 74 65 67 65 72 20 61 6e 64 20 72 65 74 75 integer and retu
3df0: 72 6e 20 74 72 75 65 2e 20 20 4f 74 68 65 72 77 rn true. Otherw
3e00: 69 73 65 20 72 65 74 75 72 6e 20 66 61 6c 73 65 ise return false
3e10: 2e 0a 2a 2a 0a 2a 2a 20 41 6e 79 20 6e 6f 6e 2d ..**.** Any non-
3e20: 6e 75 6d 65 72 69 63 20 63 68 61 72 61 63 74 65 numeric characte
3e30: 72 73 20 74 68 61 74 20 66 6f 6c 6c 6f 77 69 6e rs that followin
3e40: 67 20 7a 4e 75 6d 20 61 72 65 20 69 67 6e 6f 72 g zNum are ignor
3e50: 65 64 2e 0a 2a 2a 20 54 68 69 73 20 69 73 20 64 ed..** This is d
3e60: 69 66 66 65 72 65 6e 74 20 66 72 6f 6d 20 73 71 ifferent from sq
3e70: 6c 69 74 65 33 41 74 6f 69 36 34 28 29 20 77 68 lite3Atoi64() wh
3e80: 69 63 68 20 72 65 71 75 69 72 65 73 20 74 68 65 ich requires the
3e90: 0a 2a 2a 20 69 6e 70 75 74 20 6e 75 6d 62 65 72 .** input number
3ea0: 20 74 6f 20 62 65 20 7a 65 72 6f 2d 74 65 72 6d to be zero-term
3eb0: 69 6e 61 74 65 64 2e 0a 2a 2f 0a 69 6e 74 20 73 inated..*/.int s
3ec0: 71 6c 69 74 65 33 47 65 74 49 6e 74 33 32 28 63 qlite3GetInt32(c
3ed0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 75 6d 2c onst char *zNum,
3ee0: 20 69 6e 74 20 2a 70 56 61 6c 75 65 29 7b 0a 20 int *pValue){.
3ef0: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 76 20 sqlite_int64 v
3f00: 3d 20 30 3b 0a 20 20 69 6e 74 20 69 2c 20 63 3b = 0;. int i, c;
3f10: 0a 20 20 69 6e 74 20 6e 65 67 20 3d 20 30 3b 0a . int neg = 0;.
3f20: 20 20 69 66 28 20 7a 4e 75 6d 5b 30 5d 3d 3d 27 if( zNum[0]=='
3f30: 2d 27 20 29 7b 0a 20 20 20 20 6e 65 67 20 3d 20 -' ){. neg =
3f40: 31 3b 0a 20 20 20 20 7a 4e 75 6d 2b 2b 3b 0a 20 1;. zNum++;.
3f50: 20 7d 65 6c 73 65 20 69 66 28 20 7a 4e 75 6d 5b }else if( zNum[
3f60: 30 5d 3d 3d 27 2b 27 20 29 7b 0a 20 20 20 20 7a 0]=='+' ){. z
3f70: 4e 75 6d 2b 2b 3b 0a 20 20 7d 0a 20 20 77 68 69 Num++;. }. whi
3f80: 6c 65 28 20 7a 4e 75 6d 5b 30 5d 3d 3d 27 30 27 le( zNum[0]=='0'
3f90: 20 29 20 7a 4e 75 6d 2b 2b 3b 0a 20 20 66 6f 72 ) zNum++;. for
3fa0: 28 69 3d 30 3b 20 69 3c 31 31 20 26 26 20 28 63 (i=0; i<11 && (c
3fb0: 20 3d 20 7a 4e 75 6d 5b 69 5d 20 2d 20 27 30 27 = zNum[i] - '0'
3fc0: 29 3e 3d 30 20 26 26 20 63 3c 3d 39 3b 20 69 2b )>=0 && c<=9; i+
3fd0: 2b 29 7b 0a 20 20 20 20 76 20 3d 20 76 2a 31 30 +){. v = v*10
3fe0: 20 2b 20 63 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 + c;. }.. /*
3ff0: 54 68 65 20 6c 6f 6e 67 65 73 74 20 64 65 63 69 The longest deci
4000: 6d 61 6c 20 72 65 70 72 65 73 65 6e 74 61 74 69 mal representati
4010: 6f 6e 20 6f 66 20 61 20 33 32 20 62 69 74 20 69 on of a 32 bit i
4020: 6e 74 65 67 65 72 20 69 73 20 31 30 20 64 69 67 nteger is 10 dig
4030: 69 74 73 3a 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20 its:. **. **
4040: 20 20 20 20 20 20 20 20 20 20 20 31 32 33 34 35 12345
4050: 36 37 38 39 30 0a 20 20 2a 2a 20 20 20 20 20 32 67890. ** 2
4060: 5e 33 31 20 2d 3e 20 32 31 34 37 34 38 33 36 34 ^31 -> 214748364
4070: 38 0a 20 20 2a 2f 0a 20 20 74 65 73 74 63 61 73 8. */. testcas
4080: 65 28 20 69 3d 3d 31 30 20 29 3b 0a 20 20 69 66 e( i==10 );. if
4090: 28 20 69 3e 31 30 20 29 7b 0a 20 20 20 20 72 65 ( i>10 ){. re
40a0: 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 74 65 turn 0;. }. te
40b0: 73 74 63 61 73 65 28 20 76 2d 6e 65 67 3d 3d 32 stcase( v-neg==2
40c0: 31 34 37 34 38 33 36 34 37 20 29 3b 0a 20 20 69 147483647 );. i
40d0: 66 28 20 76 2d 6e 65 67 3e 32 31 34 37 34 38 33 f( v-neg>2147483
40e0: 36 34 37 20 29 7b 0a 20 20 20 20 72 65 74 75 72 647 ){. retur
40f0: 6e 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6e n 0;. }. if( n
4100: 65 67 20 29 7b 0a 20 20 20 20 76 20 3d 20 2d 76 eg ){. v = -v
4110: 3b 0a 20 20 7d 0a 20 20 2a 70 56 61 6c 75 65 20 ;. }. *pValue
4120: 3d 20 28 69 6e 74 29 76 3b 0a 20 20 72 65 74 75 = (int)v;. retu
4130: 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 rn 1;.}../*.** T
4140: 68 65 20 76 61 72 69 61 62 6c 65 2d 6c 65 6e 67 he variable-leng
4150: 74 68 20 69 6e 74 65 67 65 72 20 65 6e 63 6f 64 th integer encod
4160: 69 6e 67 20 69 73 20 61 73 20 66 6f 6c 6c 6f 77 ing is as follow
4170: 73 3a 0a 2a 2a 0a 2a 2a 20 4b 45 59 3a 0a 2a 2a s:.**.** KEY:.**
4180: 20 20 20 20 20 20 20 20 20 41 20 3d 20 30 78 78 A = 0xx
4190: 78 78 78 78 78 20 20 20 20 37 20 62 69 74 73 20 xxxxx 7 bits
41a0: 6f 66 20 64 61 74 61 20 61 6e 64 20 6f 6e 65 20 of data and one
41b0: 66 6c 61 67 20 62 69 74 0a 2a 2a 20 20 20 20 20 flag bit.**
41c0: 20 20 20 20 42 20 3d 20 31 78 78 78 78 78 78 78 B = 1xxxxxxx
41d0: 20 20 20 20 37 20 62 69 74 73 20 6f 66 20 64 61 7 bits of da
41e0: 74 61 20 61 6e 64 20 6f 6e 65 20 66 6c 61 67 20 ta and one flag
41f0: 62 69 74 0a 2a 2a 20 20 20 20 20 20 20 20 20 43 bit.** C
4200: 20 3d 20 78 78 78 78 78 78 78 78 20 20 20 20 38 = xxxxxxxx 8
4210: 20 62 69 74 73 20 6f 66 20 64 61 74 61 0a 2a 2a bits of data.**
4220: 0a 2a 2a 20 20 37 20 62 69 74 73 20 2d 20 41 0a .** 7 bits - A.
4230: 2a 2a 20 31 34 20 62 69 74 73 20 2d 20 42 41 0a ** 14 bits - BA.
4240: 2a 2a 20 32 31 20 62 69 74 73 20 2d 20 42 42 41 ** 21 bits - BBA
4250: 0a 2a 2a 20 32 38 20 62 69 74 73 20 2d 20 42 42 .** 28 bits - BB
4260: 42 41 0a 2a 2a 20 33 35 20 62 69 74 73 20 2d 20 BA.** 35 bits -
4270: 42 42 42 42 41 0a 2a 2a 20 34 32 20 62 69 74 73 BBBBA.** 42 bits
4280: 20 2d 20 42 42 42 42 42 41 0a 2a 2a 20 34 39 20 - BBBBBA.** 49
4290: 62 69 74 73 20 2d 20 42 42 42 42 42 42 41 0a 2a bits - BBBBBBA.*
42a0: 2a 20 35 36 20 62 69 74 73 20 2d 20 42 42 42 42 * 56 bits - BBBB
42b0: 42 42 42 41 0a 2a 2a 20 36 34 20 62 69 74 73 20 BBBA.** 64 bits
42c0: 2d 20 42 42 42 42 42 42 42 42 43 0a 2a 2f 0a 0a - BBBBBBBBC.*/..
42d0: 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 61 20 36 34 /*.** Write a 64
42e0: 2d 62 69 74 20 76 61 72 69 61 62 6c 65 2d 6c 65 -bit variable-le
42f0: 6e 67 74 68 20 69 6e 74 65 67 65 72 20 74 6f 20 ngth integer to
4300: 6d 65 6d 6f 72 79 20 73 74 61 72 74 69 6e 67 20 memory starting
4310: 61 74 20 70 5b 30 5d 2e 0a 2a 2a 20 54 68 65 20 at p[0]..** The
4320: 6c 65 6e 67 74 68 20 6f 66 20 64 61 74 61 20 77 length of data w
4330: 72 69 74 65 20 77 69 6c 6c 20 62 65 20 62 65 74 rite will be bet
4340: 77 65 65 6e 20 31 20 61 6e 64 20 39 20 62 79 74 ween 1 and 9 byt
4350: 65 73 2e 20 20 54 68 65 20 6e 75 6d 62 65 72 0a es. The number.
4360: 2a 2a 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 ** of bytes writ
4370: 74 65 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2e ten is returned.
4380: 0a 2a 2a 0a 2a 2a 20 41 20 76 61 72 69 61 62 6c .**.** A variabl
4390: 65 2d 6c 65 6e 67 74 68 20 69 6e 74 65 67 65 72 e-length integer
43a0: 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 74 68 65 consists of the
43b0: 20 6c 6f 77 65 72 20 37 20 62 69 74 73 20 6f 66 lower 7 bits of
43c0: 20 65 61 63 68 20 62 79 74 65 0a 2a 2a 20 66 6f each byte.** fo
43d0: 72 20 61 6c 6c 20 62 79 74 65 73 20 74 68 61 74 r all bytes that
43e0: 20 68 61 76 65 20 74 68 65 20 38 74 68 20 62 69 have the 8th bi
43f0: 74 20 73 65 74 20 61 6e 64 20 6f 6e 65 20 62 79 t set and one by
4400: 74 65 20 77 69 74 68 20 74 68 65 20 38 74 68 0a te with the 8th.
4410: 2a 2a 20 62 69 74 20 63 6c 65 61 72 2e 20 20 45 ** bit clear. E
4420: 78 63 65 70 74 2c 20 69 66 20 77 65 20 67 65 74 xcept, if we get
4430: 20 74 6f 20 74 68 65 20 39 74 68 20 62 79 74 65 to the 9th byte
4440: 2c 20 69 74 20 73 74 6f 72 65 73 20 74 68 65 20 , it stores the
4450: 66 75 6c 6c 0a 2a 2a 20 38 20 62 69 74 73 20 61 full.** 8 bits a
4460: 6e 64 20 69 73 20 74 68 65 20 6c 61 73 74 20 62 nd is the last b
4470: 79 74 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 yte..*/.int sqli
4480: 74 65 33 50 75 74 56 61 72 69 6e 74 28 75 6e 73 te3PutVarint(uns
4490: 69 67 6e 65 64 20 63 68 61 72 20 2a 70 2c 20 75 igned char *p, u
44a0: 36 34 20 76 29 7b 0a 20 20 69 6e 74 20 69 2c 20 64 v){. int i,
44b0: 6a 2c 20 6e 3b 0a 20 20 75 38 20 62 75 66 5b 31 j, n;. u8 buf[1
44c0: 30 5d 3b 0a 20 20 69 66 28 20 76 20 26 20 28 28 0];. if( v & ((
44d0: 28 75 36 34 29 30 78 66 66 30 30 30 30 30 30 29 (u64)0xff000000)
44e0: 3c 3c 33 32 29 20 29 7b 0a 20 20 20 20 70 5b 38 <<32) ){. p[8
44f0: 5d 20 3d 20 28 75 38 29 76 3b 0a 20 20 20 20 76 ] = (u8)v;. v
4500: 20 3e 3e 3d 20 38 3b 0a 20 20 20 20 66 6f 72 28 >>= 8;. for(
4510: 69 3d 37 3b 20 69 3e 3d 30 3b 20 69 2d 2d 29 7b i=7; i>=0; i--){
4520: 0a 20 20 20 20 20 20 70 5b 69 5d 20 3d 20 28 75 . p[i] = (u
4530: 38 29 28 28 76 20 26 20 30 78 37 66 29 20 7c 20 8)((v & 0x7f) |
4540: 30 78 38 30 29 3b 0a 20 20 20 20 20 20 76 20 3e 0x80);. v >
4550: 3e 3d 20 37 3b 0a 20 20 20 20 7d 0a 20 20 20 20 >= 7;. }.
4560: 72 65 74 75 72 6e 20 39 3b 0a 20 20 7d 20 20 20 return 9;. }
4570: 20 0a 20 20 6e 20 3d 20 30 3b 0a 20 20 64 6f 7b . n = 0;. do{
4580: 0a 20 20 20 20 62 75 66 5b 6e 2b 2b 5d 20 3d 20 . buf[n++] =
4590: 28 75 38 29 28 28 76 20 26 20 30 78 37 66 29 20 (u8)((v & 0x7f)
45a0: 7c 20 30 78 38 30 29 3b 0a 20 20 20 20 76 20 3e | 0x80);. v >
45b0: 3e 3d 20 37 3b 0a 20 20 7d 77 68 69 6c 65 28 20 >= 7;. }while(
45c0: 76 21 3d 30 20 29 3b 0a 20 20 62 75 66 5b 30 5d v!=0 );. buf[0]
45d0: 20 26 3d 20 30 78 37 66 3b 0a 20 20 61 73 73 65 &= 0x7f;. asse
45e0: 72 74 28 20 6e 3c 3d 39 20 29 3b 0a 20 20 66 6f rt( n<=9 );. fo
45f0: 72 28 69 3d 30 2c 20 6a 3d 6e 2d 31 3b 20 6a 3e r(i=0, j=n-1; j>
4600: 3d 30 3b 20 6a 2d 2d 2c 20 69 2b 2b 29 7b 0a 20 =0; j--, i++){.
4610: 20 20 20 70 5b 69 5d 20 3d 20 62 75 66 5b 6a 5d p[i] = buf[j]
4620: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 6e ;. }. return n
4630: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 ;.}../*.** This
4640: 72 6f 75 74 69 6e 65 20 69 73 20 61 20 66 61 73 routine is a fas
4650: 74 65 72 20 76 65 72 73 69 6f 6e 20 6f 66 20 73 ter version of s
4660: 71 6c 69 74 65 33 50 75 74 56 61 72 69 6e 74 28 qlite3PutVarint(
4670: 29 20 74 68 61 74 20 6f 6e 6c 79 0a 2a 2a 20 77 ) that only.** w
4680: 6f 72 6b 73 20 66 6f 72 20 33 32 2d 62 69 74 20 orks for 32-bit
4690: 70 6f 73 69 74 69 76 65 20 69 6e 74 65 67 65 72 positive integer
46a0: 73 20 61 6e 64 20 77 68 69 63 68 20 69 73 20 6f s and which is o
46b0: 70 74 69 6d 69 7a 65 64 20 66 6f 72 0a 2a 2a 20 ptimized for.**
46c0: 74 68 65 20 63 6f 6d 6d 6f 6e 20 63 61 73 65 20 the common case
46d0: 6f 66 20 73 6d 61 6c 6c 20 69 6e 74 65 67 65 72 of small integer
46e0: 73 2e 20 20 41 20 4d 41 43 52 4f 20 76 65 72 73 s. A MACRO vers
46f0: 69 6f 6e 2c 20 70 75 74 56 61 72 69 6e 74 33 32 ion, putVarint32
4700: 2c 0a 2a 2a 20 69 73 20 70 72 6f 76 69 64 65 64 ,.** is provided
4710: 20 77 68 69 63 68 20 69 6e 6c 69 6e 65 73 20 74 which inlines t
4720: 68 65 20 73 69 6e 67 6c 65 2d 62 79 74 65 20 63 he single-byte c
4730: 61 73 65 2e 20 20 41 6c 6c 20 63 6f 64 65 20 73 ase. All code s
4740: 68 6f 75 6c 64 20 75 73 65 0a 2a 2a 20 74 68 65 hould use.** the
4750: 20 4d 41 43 52 4f 20 76 65 72 73 69 6f 6e 20 61 MACRO version a
4760: 73 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 s this function
4770: 61 73 73 75 6d 65 73 20 74 68 65 20 73 69 6e 67 assumes the sing
4780: 6c 65 2d 62 79 74 65 20 63 61 73 65 20 68 61 73 le-byte case has
4790: 0a 2a 2a 20 61 6c 72 65 61 64 79 20 62 65 65 6e .** already been
47a0: 20 68 61 6e 64 6c 65 64 2e 0a 2a 2f 0a 69 6e 74 handled..*/.int
47b0: 20 73 71 6c 69 74 65 33 50 75 74 56 61 72 69 6e sqlite3PutVarin
47c0: 74 33 32 28 75 6e 73 69 67 6e 65 64 20 63 68 61 t32(unsigned cha
47d0: 72 20 2a 70 2c 20 75 33 32 20 76 29 7b 0a 23 69 r *p, u32 v){.#i
47e0: 66 6e 64 65 66 20 70 75 74 56 61 72 69 6e 74 33 fndef putVarint3
47f0: 32 0a 20 20 69 66 28 20 28 76 20 26 20 7e 30 78 2. if( (v & ~0x
4800: 37 66 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 5b 7f)==0 ){. p[
4810: 30 5d 20 3d 20 76 3b 0a 20 20 20 20 72 65 74 75 0] = v;. retu
4820: 72 6e 20 31 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 rn 1;. }.#endif
4830: 0a 20 20 69 66 28 20 28 76 20 26 20 7e 30 78 33 . if( (v & ~0x3
4840: 66 66 66 29 3d 3d 30 20 29 7b 0a 20 20 20 20 70 fff)==0 ){. p
4850: 5b 30 5d 20 3d 20 28 75 38 29 28 28 76 3e 3e 37 [0] = (u8)((v>>7
4860: 29 20 7c 20 30 78 38 30 29 3b 0a 20 20 20 20 70 ) | 0x80);. p
4870: 5b 31 5d 20 3d 20 28 75 38 29 28 76 20 26 20 30 [1] = (u8)(v & 0
4880: 78 37 66 29 3b 0a 20 20 20 20 72 65 74 75 72 6e x7f);. return
4890: 20 32 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 2;. }. return
48a0: 20 73 71 6c 69 74 65 33 50 75 74 56 61 72 69 6e sqlite3PutVarin
48b0: 74 28 70 2c 20 76 29 3b 0a 7d 0a 0a 2f 2a 0a 2a t(p, v);.}../*.*
48c0: 2a 20 52 65 61 64 20 61 20 36 34 2d 62 69 74 20 * Read a 64-bit
48d0: 76 61 72 69 61 62 6c 65 2d 6c 65 6e 67 74 68 20 variable-length
48e0: 69 6e 74 65 67 65 72 20 66 72 6f 6d 20 6d 65 6d integer from mem
48f0: 6f 72 79 20 73 74 61 72 74 69 6e 67 20 61 74 20 ory starting at
4900: 70 5b 30 5d 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 p[0]..** Return
4910: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 the number of by
4920: 74 65 73 20 72 65 61 64 2e 20 20 54 68 65 20 76 tes read. The v
4930: 61 6c 75 65 20 69 73 20 73 74 6f 72 65 64 20 69 alue is stored i
4940: 6e 20 2a 76 2e 0a 2a 2f 0a 75 38 20 73 71 6c 69 n *v..*/.u8 sqli
4950: 74 65 33 47 65 74 56 61 72 69 6e 74 28 63 6f 6e te3GetVarint(con
4960: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 st unsigned char
4970: 20 2a 70 2c 20 75 36 34 20 2a 76 29 7b 0a 20 20 *p, u64 *v){.
4980: 75 33 32 20 61 2c 62 2c 73 3b 0a 0a 20 20 61 20 u32 a,b,s;.. a
4990: 3d 20 2a 70 3b 0a 20 20 2f 2a 20 61 3a 20 70 30 = *p;. /* a: p0
49a0: 20 28 75 6e 6d 61 73 6b 65 64 29 20 2a 2f 0a 20 (unmasked) */.
49b0: 20 69 66 20 28 21 28 61 26 30 78 38 30 29 29 0a if (!(a&0x80)).
49c0: 20 20 7b 0a 20 20 20 20 2a 76 20 3d 20 61 3b 0a {. *v = a;.
49d0: 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 return 1;.
49e0: 7d 0a 0a 20 20 70 2b 2b 3b 0a 20 20 62 20 3d 20 }.. p++;. b =
49f0: 2a 70 3b 0a 20 20 2f 2a 20 62 3a 20 70 31 20 28 *p;. /* b: p1 (
4a00: 75 6e 6d 61 73 6b 65 64 29 20 2a 2f 0a 20 20 69 unmasked) */. i
4a10: 66 20 28 21 28 62 26 30 78 38 30 29 29 0a 20 20 f (!(b&0x80)).
4a20: 7b 0a 20 20 20 20 61 20 26 3d 20 30 78 37 66 3b {. a &= 0x7f;
4a30: 0a 20 20 20 20 61 20 3d 20 61 3c 3c 37 3b 0a 20 . a = a<<7;.
4a40: 20 20 20 61 20 7c 3d 20 62 3b 0a 20 20 20 20 2a a |= b;. *
4a50: 76 20 3d 20 61 3b 0a 20 20 20 20 72 65 74 75 72 v = a;. retur
4a60: 6e 20 32 3b 0a 20 20 7d 0a 0a 20 20 70 2b 2b 3b n 2;. }.. p++;
4a70: 0a 20 20 61 20 3d 20 61 3c 3c 31 34 3b 0a 20 20 . a = a<<14;.
4a80: 61 20 7c 3d 20 2a 70 3b 0a 20 20 2f 2a 20 61 3a a |= *p;. /* a:
4a90: 20 70 30 3c 3c 31 34 20 7c 20 70 32 20 28 75 6e p0<<14 | p2 (un
4aa0: 6d 61 73 6b 65 64 29 20 2a 2f 0a 20 20 69 66 20 masked) */. if
4ab0: 28 21 28 61 26 30 78 38 30 29 29 0a 20 20 7b 0a (!(a&0x80)). {.
4ac0: 20 20 20 20 61 20 26 3d 20 28 30 78 37 66 3c 3c a &= (0x7f<<
4ad0: 31 34 29 7c 28 30 78 37 66 29 3b 0a 20 20 20 20 14)|(0x7f);.
4ae0: 62 20 26 3d 20 30 78 37 66 3b 0a 20 20 20 20 62 b &= 0x7f;. b
4af0: 20 3d 20 62 3c 3c 37 3b 0a 20 20 20 20 61 20 7c = b<<7;. a |
4b00: 3d 20 62 3b 0a 20 20 20 20 2a 76 20 3d 20 61 3b = b;. *v = a;
4b10: 0a 20 20 20 20 72 65 74 75 72 6e 20 33 3b 0a 20 . return 3;.
4b20: 20 7d 0a 0a 20 20 2f 2a 20 43 53 45 31 20 66 72 }.. /* CSE1 fr
4b30: 6f 6d 20 62 65 6c 6f 77 20 2a 2f 0a 20 20 61 20 om below */. a
4b40: 26 3d 20 28 30 78 37 66 3c 3c 31 34 29 7c 28 30 &= (0x7f<<14)|(0
4b50: 78 37 66 29 3b 0a 20 20 70 2b 2b 3b 0a 20 20 62 x7f);. p++;. b
4b60: 20 3d 20 62 3c 3c 31 34 3b 0a 20 20 62 20 7c 3d = b<<14;. b |=
4b70: 20 2a 70 3b 0a 20 20 2f 2a 20 62 3a 20 70 31 3c *p;. /* b: p1<
4b80: 3c 31 34 20 7c 20 70 33 20 28 75 6e 6d 61 73 6b <14 | p3 (unmask
4b90: 65 64 29 20 2a 2f 0a 20 20 69 66 20 28 21 28 62 ed) */. if (!(b
4ba0: 26 30 78 38 30 29 29 0a 20 20 7b 0a 20 20 20 20 &0x80)). {.
4bb0: 62 20 26 3d 20 28 30 78 37 66 3c 3c 31 34 29 7c b &= (0x7f<<14)|
4bc0: 28 30 78 37 66 29 3b 0a 20 20 20 20 2f 2a 20 6d (0x7f);. /* m
4bd0: 6f 76 65 64 20 43 53 45 31 20 75 70 20 2a 2f 0a oved CSE1 up */.
4be0: 20 20 20 20 2f 2a 20 61 20 26 3d 20 28 30 78 37 /* a &= (0x7
4bf0: 66 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b 20 2a f<<14)|(0x7f); *
4c00: 2f 0a 20 20 20 20 61 20 3d 20 61 3c 3c 37 3b 0a /. a = a<<7;.
4c10: 20 20 20 20 61 20 7c 3d 20 62 3b 0a 20 20 20 20 a |= b;.
4c20: 2a 76 20 3d 20 61 3b 0a 20 20 20 20 72 65 74 75 *v = a;. retu
4c30: 72 6e 20 34 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 rn 4;. }.. /*
4c40: 61 3a 20 70 30 3c 3c 31 34 20 7c 20 70 32 20 28 a: p0<<14 | p2 (
4c50: 6d 61 73 6b 65 64 29 20 2a 2f 0a 20 20 2f 2a 20 masked) */. /*
4c60: 62 3a 20 70 31 3c 3c 31 34 20 7c 20 70 33 20 28 b: p1<<14 | p3 (
4c70: 75 6e 6d 61 73 6b 65 64 29 20 2a 2f 0a 20 20 2f unmasked) */. /
4c80: 2a 20 31 3a 73 61 76 65 20 6f 66 66 20 70 30 3c * 1:save off p0<
4c90: 3c 32 31 20 7c 20 70 31 3c 3c 31 34 20 7c 20 70 <21 | p1<<14 | p
4ca0: 32 3c 3c 37 20 7c 20 70 33 20 28 6d 61 73 6b 65 2<<7 | p3 (maske
4cb0: 64 29 20 2a 2f 0a 20 20 2f 2a 20 6d 6f 76 65 64 d) */. /* moved
4cc0: 20 43 53 45 31 20 75 70 20 2a 2f 0a 20 20 2f 2a CSE1 up */. /*
4cd0: 20 61 20 26 3d 20 28 30 78 37 66 3c 3c 31 34 29 a &= (0x7f<<14)
4ce0: 7c 28 30 78 37 66 29 3b 20 2a 2f 0a 20 20 62 20 |(0x7f); */. b
4cf0: 26 3d 20 28 30 78 37 66 3c 3c 31 34 29 7c 28 30 &= (0x7f<<14)|(0
4d00: 78 37 66 29 3b 0a 20 20 73 20 3d 20 61 3b 0a 20 x7f);. s = a;.
4d10: 20 2f 2a 20 73 3a 20 70 30 3c 3c 31 34 20 7c 20 /* s: p0<<14 |
4d20: 70 32 20 28 6d 61 73 6b 65 64 29 20 2a 2f 0a 0a p2 (masked) */..
4d30: 20 20 70 2b 2b 3b 0a 20 20 61 20 3d 20 61 3c 3c p++;. a = a<<
4d40: 31 34 3b 0a 20 20 61 20 7c 3d 20 2a 70 3b 0a 20 14;. a |= *p;.
4d50: 20 2f 2a 20 61 3a 20 70 30 3c 3c 32 38 20 7c 20 /* a: p0<<28 |
4d60: 70 32 3c 3c 31 34 20 7c 20 70 34 20 28 75 6e 6d p2<<14 | p4 (unm
4d70: 61 73 6b 65 64 29 20 2a 2f 0a 20 20 69 66 20 28 asked) */. if (
4d80: 21 28 61 26 30 78 38 30 29 29 0a 20 20 7b 0a 20 !(a&0x80)). {.
4d90: 20 20 20 2f 2a 20 77 65 20 63 61 6e 20 73 6b 69 /* we can ski
4da0: 70 20 74 68 65 73 65 20 63 61 75 73 65 20 74 68 p these cause th
4db0: 65 79 20 77 65 72 65 20 28 65 66 66 65 63 74 69 ey were (effecti
4dc0: 76 65 6c 79 29 20 64 6f 6e 65 20 61 62 6f 76 65 vely) done above
4dd0: 20 69 6e 20 63 61 6c 63 27 69 6e 67 20 73 20 2a in calc'ing s *
4de0: 2f 0a 20 20 20 20 2f 2a 20 61 20 26 3d 20 28 30 /. /* a &= (0
4df0: 78 37 66 3c 3c 32 38 29 7c 28 30 78 37 66 3c 3c x7f<<28)|(0x7f<<
4e00: 31 34 29 7c 28 30 78 37 66 29 3b 20 2a 2f 0a 20 14)|(0x7f); */.
4e10: 20 20 20 2f 2a 20 62 20 26 3d 20 28 30 78 37 66 /* b &= (0x7f
4e20: 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b 20 2a 2f <<14)|(0x7f); */
4e30: 0a 20 20 20 20 62 20 3d 20 62 3c 3c 37 3b 0a 20 . b = b<<7;.
4e40: 20 20 20 61 20 7c 3d 20 62 3b 0a 20 20 20 20 73 a |= b;. s
4e50: 20 3d 20 73 3e 3e 31 38 3b 0a 20 20 20 20 2a 76 = s>>18;. *v
4e60: 20 3d 20 28 28 75 36 34 29 73 29 3c 3c 33 32 20 = ((u64)s)<<32
4e70: 7c 20 61 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 | a;. return
4e80: 35 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 32 3a 73 5;. }.. /* 2:s
4e90: 61 76 65 20 6f 66 66 20 70 30 3c 3c 32 31 20 7c ave off p0<<21 |
4ea0: 20 70 31 3c 3c 31 34 20 7c 20 70 32 3c 3c 37 20 p1<<14 | p2<<7
4eb0: 7c 20 70 33 20 28 6d 61 73 6b 65 64 29 20 2a 2f | p3 (masked) */
4ec0: 0a 20 20 73 20 3d 20 73 3c 3c 37 3b 0a 20 20 73 . s = s<<7;. s
4ed0: 20 7c 3d 20 62 3b 0a 20 20 2f 2a 20 73 3a 20 70 |= b;. /* s: p
4ee0: 30 3c 3c 32 31 20 7c 20 70 31 3c 3c 31 34 20 7c 0<<21 | p1<<14 |
4ef0: 20 70 32 3c 3c 37 20 7c 20 70 33 20 28 6d 61 73 p2<<7 | p3 (mas
4f00: 6b 65 64 29 20 2a 2f 0a 0a 20 20 70 2b 2b 3b 0a ked) */.. p++;.
4f10: 20 20 62 20 3d 20 62 3c 3c 31 34 3b 0a 20 20 62 b = b<<14;. b
4f20: 20 7c 3d 20 2a 70 3b 0a 20 20 2f 2a 20 62 3a 20 |= *p;. /* b:
4f30: 70 31 3c 3c 32 38 20 7c 20 70 33 3c 3c 31 34 20 p1<<28 | p3<<14
4f40: 7c 20 70 35 20 28 75 6e 6d 61 73 6b 65 64 29 20 | p5 (unmasked)
4f50: 2a 2f 0a 20 20 69 66 20 28 21 28 62 26 30 78 38 */. if (!(b&0x8
4f60: 30 29 29 0a 20 20 7b 0a 20 20 20 20 2f 2a 20 77 0)). {. /* w
4f70: 65 20 63 61 6e 20 73 6b 69 70 20 74 68 69 73 20 e can skip this
4f80: 63 61 75 73 65 20 69 74 20 77 61 73 20 28 65 66 cause it was (ef
4f90: 66 65 63 74 69 76 65 6c 79 29 20 64 6f 6e 65 20 fectively) done
4fa0: 61 62 6f 76 65 20 69 6e 20 63 61 6c 63 27 69 6e above in calc'in
4fb0: 67 20 73 20 2a 2f 0a 20 20 20 20 2f 2a 20 62 20 g s */. /* b
4fc0: 26 3d 20 28 30 78 37 66 3c 3c 32 38 29 7c 28 30 &= (0x7f<<28)|(0
4fd0: 78 37 66 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b x7f<<14)|(0x7f);
4fe0: 20 2a 2f 0a 20 20 20 20 61 20 26 3d 20 28 30 78 */. a &= (0x
4ff0: 37 66 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b 0a 7f<<14)|(0x7f);.
5000: 20 20 20 20 61 20 3d 20 61 3c 3c 37 3b 0a 20 20 a = a<<7;.
5010: 20 20 61 20 7c 3d 20 62 3b 0a 20 20 20 20 73 20 a |= b;. s
5020: 3d 20 73 3e 3e 31 38 3b 0a 20 20 20 20 2a 76 20 = s>>18;. *v
5030: 3d 20 28 28 75 36 34 29 73 29 3c 3c 33 32 20 7c = ((u64)s)<<32 |
5040: 20 61 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 36 a;. return 6
5050: 3b 0a 20 20 7d 0a 0a 20 20 70 2b 2b 3b 0a 20 20 ;. }.. p++;.
5060: 61 20 3d 20 61 3c 3c 31 34 3b 0a 20 20 61 20 7c a = a<<14;. a |
5070: 3d 20 2a 70 3b 0a 20 20 2f 2a 20 61 3a 20 70 32 = *p;. /* a: p2
5080: 3c 3c 32 38 20 7c 20 70 34 3c 3c 31 34 20 7c 20 <<28 | p4<<14 |
5090: 70 36 20 28 75 6e 6d 61 73 6b 65 64 29 20 2a 2f p6 (unmasked) */
50a0: 0a 20 20 69 66 20 28 21 28 61 26 30 78 38 30 29 . if (!(a&0x80)
50b0: 29 0a 20 20 7b 0a 20 20 20 20 61 20 26 3d 20 28 ). {. a &= (
50c0: 30 78 31 66 3c 3c 32 38 29 7c 28 30 78 37 66 3c 0x1f<<28)|(0x7f<
50d0: 3c 31 34 29 7c 28 30 78 37 66 29 3b 0a 20 20 20 <14)|(0x7f);.
50e0: 20 62 20 26 3d 20 28 30 78 37 66 3c 3c 31 34 29 b &= (0x7f<<14)
50f0: 7c 28 30 78 37 66 29 3b 0a 20 20 20 20 62 20 3d |(0x7f);. b =
5100: 20 62 3c 3c 37 3b 0a 20 20 20 20 61 20 7c 3d 20 b<<7;. a |=
5110: 62 3b 0a 20 20 20 20 73 20 3d 20 73 3e 3e 31 31 b;. s = s>>11
5120: 3b 0a 20 20 20 20 2a 76 20 3d 20 28 28 75 36 34 ;. *v = ((u64
5130: 29 73 29 3c 3c 33 32 20 7c 20 61 3b 0a 20 20 20 )s)<<32 | a;.
5140: 20 72 65 74 75 72 6e 20 37 3b 0a 20 20 7d 0a 0a return 7;. }..
5150: 20 20 2f 2a 20 43 53 45 32 20 66 72 6f 6d 20 62 /* CSE2 from b
5160: 65 6c 6f 77 20 2a 2f 0a 20 20 61 20 26 3d 20 28 elow */. a &= (
5170: 30 78 37 66 3c 3c 31 34 29 7c 28 30 78 37 66 29 0x7f<<14)|(0x7f)
5180: 3b 0a 20 20 70 2b 2b 3b 0a 20 20 62 20 3d 20 62 ;. p++;. b = b
5190: 3c 3c 31 34 3b 0a 20 20 62 20 7c 3d 20 2a 70 3b <<14;. b |= *p;
51a0: 0a 20 20 2f 2a 20 62 3a 20 70 33 3c 3c 32 38 20 . /* b: p3<<28
51b0: 7c 20 70 35 3c 3c 31 34 20 7c 20 70 37 20 28 75 | p5<<14 | p7 (u
51c0: 6e 6d 61 73 6b 65 64 29 20 2a 2f 0a 20 20 69 66 nmasked) */. if
51d0: 20 28 21 28 62 26 30 78 38 30 29 29 0a 20 20 7b (!(b&0x80)). {
51e0: 0a 20 20 20 20 62 20 26 3d 20 28 30 78 31 66 3c . b &= (0x1f<
51f0: 3c 32 38 29 7c 28 30 78 37 66 3c 3c 31 34 29 7c <28)|(0x7f<<14)|
5200: 28 30 78 37 66 29 3b 0a 20 20 20 20 2f 2a 20 6d (0x7f);. /* m
5210: 6f 76 65 64 20 43 53 45 32 20 75 70 20 2a 2f 0a oved CSE2 up */.
5220: 20 20 20 20 2f 2a 20 61 20 26 3d 20 28 30 78 37 /* a &= (0x7
5230: 66 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b 20 2a f<<14)|(0x7f); *
5240: 2f 0a 20 20 20 20 61 20 3d 20 61 3c 3c 37 3b 0a /. a = a<<7;.
5250: 20 20 20 20 61 20 7c 3d 20 62 3b 0a 20 20 20 20 a |= b;.
5260: 73 20 3d 20 73 3e 3e 34 3b 0a 20 20 20 20 2a 76 s = s>>4;. *v
5270: 20 3d 20 28 28 75 36 34 29 73 29 3c 3c 33 32 20 = ((u64)s)<<32
5280: 7c 20 61 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 | a;. return
5290: 38 3b 0a 20 20 7d 0a 0a 20 20 70 2b 2b 3b 0a 20 8;. }.. p++;.
52a0: 20 61 20 3d 20 61 3c 3c 31 35 3b 0a 20 20 61 20 a = a<<15;. a
52b0: 7c 3d 20 2a 70 3b 0a 20 20 2f 2a 20 61 3a 20 70 |= *p;. /* a: p
52c0: 34 3c 3c 32 39 20 7c 20 70 36 3c 3c 31 35 20 7c 4<<29 | p6<<15 |
52d0: 20 70 38 20 28 75 6e 6d 61 73 6b 65 64 29 20 2a p8 (unmasked) *
52e0: 2f 0a 0a 20 20 2f 2a 20 6d 6f 76 65 64 20 43 53 /.. /* moved CS
52f0: 45 32 20 75 70 20 2a 2f 0a 20 20 2f 2a 20 61 20 E2 up */. /* a
5300: 26 3d 20 28 30 78 37 66 3c 3c 32 39 29 7c 28 30 &= (0x7f<<29)|(0
5310: 78 37 66 3c 3c 31 35 29 7c 28 30 78 66 66 29 3b x7f<<15)|(0xff);
5320: 20 2a 2f 0a 20 20 62 20 26 3d 20 28 30 78 37 66 */. b &= (0x7f
5330: 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b 0a 20 20 <<14)|(0x7f);.
5340: 62 20 3d 20 62 3c 3c 38 3b 0a 20 20 61 20 7c 3d b = b<<8;. a |=
5350: 20 62 3b 0a 0a 20 20 73 20 3d 20 73 3c 3c 34 3b b;.. s = s<<4;
5360: 0a 20 20 62 20 3d 20 70 5b 2d 34 5d 3b 0a 20 20 . b = p[-4];.
5370: 62 20 26 3d 20 30 78 37 66 3b 0a 20 20 62 20 3d b &= 0x7f;. b =
5380: 20 62 3e 3e 33 3b 0a 20 20 73 20 7c 3d 20 62 3b b>>3;. s |= b;
5390: 0a 0a 20 20 2a 76 20 3d 20 28 28 75 36 34 29 73 .. *v = ((u64)s
53a0: 29 3c 3c 33 32 20 7c 20 61 3b 0a 0a 20 20 72 65 )<<32 | a;.. re
53b0: 74 75 72 6e 20 39 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 9;.}../*.**
53c0: 20 52 65 61 64 20 61 20 33 32 2d 62 69 74 20 76 Read a 32-bit v
53d0: 61 72 69 61 62 6c 65 2d 6c 65 6e 67 74 68 20 69 ariable-length i
53e0: 6e 74 65 67 65 72 20 66 72 6f 6d 20 6d 65 6d 6f nteger from memo
53f0: 72 79 20 73 74 61 72 74 69 6e 67 20 61 74 20 70 ry starting at p
5400: 5b 30 5d 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 [0]..** Return t
5410: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 74 he number of byt
5420: 65 73 20 72 65 61 64 2e 20 20 54 68 65 20 76 61 es read. The va
5430: 6c 75 65 20 69 73 20 73 74 6f 72 65 64 20 69 6e lue is stored in
5440: 20 2a 76 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 *v..**.** If th
5450: 65 20 76 61 72 69 6e 74 20 73 74 6f 72 65 64 20 e varint stored
5460: 69 6e 20 70 5b 30 5d 20 69 73 20 6c 61 72 67 65 in p[0] is large
5470: 72 20 74 68 61 6e 20 63 61 6e 20 66 69 74 20 69 r than can fit i
5480: 6e 20 61 20 33 32 2d 62 69 74 20 75 6e 73 69 67 n a 32-bit unsig
5490: 6e 65 64 0a 2a 2a 20 69 6e 74 65 67 65 72 2c 20 ned.** integer,
54a0: 74 68 65 6e 20 73 65 74 20 2a 76 20 74 6f 20 30 then set *v to 0
54b0: 78 66 66 66 66 66 66 66 66 2e 0a 2a 2a 0a 2a 2a xffffffff..**.**
54c0: 20 41 20 4d 41 43 52 4f 20 76 65 72 73 69 6f 6e A MACRO version
54d0: 2c 20 67 65 74 56 61 72 69 6e 74 33 32 2c 20 69 , getVarint32, i
54e0: 73 20 70 72 6f 76 69 64 65 64 20 77 68 69 63 68 s provided which
54f0: 20 69 6e 6c 69 6e 65 73 20 74 68 65 20 0a 2a 2a inlines the .**
5500: 20 73 69 6e 67 6c 65 2d 62 79 74 65 20 63 61 73 single-byte cas
5510: 65 2e 20 20 41 6c 6c 20 63 6f 64 65 20 73 68 6f e. All code sho
5520: 75 6c 64 20 75 73 65 20 74 68 65 20 4d 41 43 52 uld use the MACR
5530: 4f 20 76 65 72 73 69 6f 6e 20 61 73 20 0a 2a 2a O version as .**
5540: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 61 this function a
5550: 73 73 75 6d 65 73 20 74 68 65 20 73 69 6e 67 6c ssumes the singl
5560: 65 2d 62 79 74 65 20 63 61 73 65 20 68 61 73 20 e-byte case has
5570: 61 6c 72 65 61 64 79 20 62 65 65 6e 20 68 61 6e already been han
5580: 64 6c 65 64 2e 0a 2a 2f 0a 75 38 20 73 71 6c 69 dled..*/.u8 sqli
5590: 74 65 33 47 65 74 56 61 72 69 6e 74 33 32 28 63 te3GetVarint32(c
55a0: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
55b0: 61 72 20 2a 70 2c 20 75 33 32 20 2a 76 29 7b 0a ar *p, u32 *v){.
55c0: 20 20 75 33 32 20 61 2c 62 3b 0a 0a 20 20 2f 2a u32 a,b;.. /*
55d0: 20 54 68 65 20 31 2d 62 79 74 65 20 63 61 73 65 The 1-byte case
55e0: 2e 20 20 4f 76 65 72 77 68 65 6c 6d 69 6e 67 6c . Overwhelmingl
55f0: 79 20 74 68 65 20 6d 6f 73 74 20 63 6f 6d 6d 6f y the most commo
5600: 6e 2e 20 20 48 61 6e 64 6c 65 64 20 69 6e 6c 69 n. Handled inli
5610: 6e 65 0a 20 20 2a 2a 20 62 79 20 74 68 65 20 67 ne. ** by the g
5620: 65 74 56 61 72 69 6e 33 32 28 29 20 6d 61 63 72 etVarin32() macr
5630: 6f 20 2a 2f 0a 20 20 61 20 3d 20 2a 70 3b 0a 20 o */. a = *p;.
5640: 20 2f 2a 20 61 3a 20 70 30 20 28 75 6e 6d 61 73 /* a: p0 (unmas
5650: 6b 65 64 29 20 2a 2f 0a 23 69 66 6e 64 65 66 20 ked) */.#ifndef
5660: 67 65 74 56 61 72 69 6e 74 33 32 0a 20 20 69 66 getVarint32. if
5670: 20 28 21 28 61 26 30 78 38 30 29 29 0a 20 20 7b (!(a&0x80)). {
5680: 0a 20 20 20 20 2f 2a 20 56 61 6c 75 65 73 20 62 . /* Values b
5690: 65 74 77 65 65 6e 20 30 20 61 6e 64 20 31 32 37 etween 0 and 127
56a0: 20 2a 2f 0a 20 20 20 20 2a 76 20 3d 20 61 3b 0a */. *v = a;.
56b0: 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 return 1;.
56c0: 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 2f 2a 20 54 }.#endif.. /* T
56d0: 68 65 20 32 2d 62 79 74 65 20 63 61 73 65 20 2a he 2-byte case *
56e0: 2f 0a 20 20 70 2b 2b 3b 0a 20 20 62 20 3d 20 2a /. p++;. b = *
56f0: 70 3b 0a 20 20 2f 2a 20 62 3a 20 70 31 20 28 75 p;. /* b: p1 (u
5700: 6e 6d 61 73 6b 65 64 29 20 2a 2f 0a 20 20 69 66 nmasked) */. if
5710: 20 28 21 28 62 26 30 78 38 30 29 29 0a 20 20 7b (!(b&0x80)). {
5720: 0a 20 20 20 20 2f 2a 20 56 61 6c 75 65 73 20 62 . /* Values b
5730: 65 74 77 65 65 6e 20 31 32 38 20 61 6e 64 20 31 etween 128 and 1
5740: 36 33 38 33 20 2a 2f 0a 20 20 20 20 61 20 26 3d 6383 */. a &=
5750: 20 30 78 37 66 3b 0a 20 20 20 20 61 20 3d 20 61 0x7f;. a = a
5760: 3c 3c 37 3b 0a 20 20 20 20 2a 76 20 3d 20 61 20 <<7;. *v = a
5770: 7c 20 62 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 | b;. return
5780: 32 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 54 68 65 2;. }.. /* The
5790: 20 33 2d 62 79 74 65 20 63 61 73 65 20 2a 2f 0a 3-byte case */.
57a0: 20 20 70 2b 2b 3b 0a 20 20 61 20 3d 20 61 3c 3c p++;. a = a<<
57b0: 31 34 3b 0a 20 20 61 20 7c 3d 20 2a 70 3b 0a 20 14;. a |= *p;.
57c0: 20 2f 2a 20 61 3a 20 70 30 3c 3c 31 34 20 7c 20 /* a: p0<<14 |
57d0: 70 32 20 28 75 6e 6d 61 73 6b 65 64 29 20 2a 2f p2 (unmasked) */
57e0: 0a 20 20 69 66 20 28 21 28 61 26 30 78 38 30 29 . if (!(a&0x80)
57f0: 29 0a 20 20 7b 0a 20 20 20 20 2f 2a 20 56 61 6c ). {. /* Val
5800: 75 65 73 20 62 65 74 77 65 65 6e 20 31 36 33 38 ues between 1638
5810: 34 20 61 6e 64 20 32 30 39 37 31 35 31 20 2a 2f 4 and 2097151 */
5820: 0a 20 20 20 20 61 20 26 3d 20 28 30 78 37 66 3c . a &= (0x7f<
5830: 3c 31 34 29 7c 28 30 78 37 66 29 3b 0a 20 20 20 <14)|(0x7f);.
5840: 20 62 20 26 3d 20 30 78 37 66 3b 0a 20 20 20 20 b &= 0x7f;.
5850: 62 20 3d 20 62 3c 3c 37 3b 0a 20 20 20 20 2a 76 b = b<<7;. *v
5860: 20 3d 20 61 20 7c 20 62 3b 0a 20 20 20 20 72 65 = a | b;. re
5870: 74 75 72 6e 20 33 3b 0a 20 20 7d 0a 0a 20 20 2f turn 3;. }.. /
5880: 2a 20 41 20 33 32 2d 62 69 74 20 76 61 72 69 6e * A 32-bit varin
5890: 74 20 69 73 20 75 73 65 64 20 74 6f 20 73 74 6f t is used to sto
58a0: 72 65 20 73 69 7a 65 20 69 6e 66 6f 72 6d 61 74 re size informat
58b0: 69 6f 6e 20 69 6e 20 62 74 72 65 65 73 2e 0a 20 ion in btrees..
58c0: 20 2a 2a 20 4f 62 6a 65 63 74 73 20 61 72 65 20 ** Objects are
58d0: 72 61 72 65 6c 79 20 6c 61 72 67 65 72 20 74 68 rarely larger th
58e0: 61 6e 20 32 4d 69 42 20 6c 69 6d 69 74 20 6f 66 an 2MiB limit of
58f0: 20 61 20 33 2d 62 79 74 65 20 76 61 72 69 6e 74 a 3-byte varint
5900: 2e 0a 20 20 2a 2a 20 41 20 33 2d 62 79 74 65 20 .. ** A 3-byte
5910: 76 61 72 69 6e 74 20 69 73 20 73 75 66 66 69 63 varint is suffic
5920: 69 65 6e 74 2c 20 66 6f 72 20 65 78 61 6d 70 6c ient, for exampl
5930: 65 2c 20 74 6f 20 72 65 63 6f 72 64 20 74 68 65 e, to record the
5940: 20 73 69 7a 65 0a 20 20 2a 2a 20 6f 66 20 61 20 size. ** of a
5950: 31 30 34 38 35 36 39 2d 62 79 74 65 20 42 4c 4f 1048569-byte BLO
5960: 42 20 6f 72 20 73 74 72 69 6e 67 2e 0a 20 20 2a B or string.. *
5970: 2a 0a 20 20 2a 2a 20 57 65 20 6f 6e 6c 79 20 75 *. ** We only u
5980: 6e 72 6f 6c 6c 20 74 68 65 20 66 69 72 73 74 20 nroll the first
5990: 31 2d 2c 20 32 2d 2c 20 61 6e 64 20 33 2d 20 62 1-, 2-, and 3- b
59a0: 79 74 65 20 63 61 73 65 73 2e 20 20 54 68 65 20 yte cases. The
59b0: 76 65 72 79 0a 20 20 2a 2a 20 72 61 72 65 20 6c very. ** rare l
59c0: 61 72 67 65 72 20 63 61 73 65 73 20 63 61 6e 20 arger cases can
59d0: 62 65 20 68 61 6e 64 6c 65 64 20 62 79 20 74 68 be handled by th
59e0: 65 20 73 6c 6f 77 65 72 20 36 34 2d 62 69 74 20 e slower 64-bit
59f0: 76 61 72 69 6e 74 0a 20 20 2a 2a 20 72 6f 75 74 varint. ** rout
5a00: 69 6e 65 2e 0a 20 20 2a 2f 0a 23 69 66 20 31 0a ine.. */.#if 1.
5a10: 20 20 7b 0a 20 20 20 20 75 36 34 20 76 36 34 3b {. u64 v64;
5a20: 0a 20 20 20 20 75 38 20 6e 3b 0a 0a 20 20 20 20 . u8 n;..
5a30: 70 20 2d 3d 20 32 3b 0a 20 20 20 20 6e 20 3d 20 p -= 2;. n =
5a40: 73 71 6c 69 74 65 33 47 65 74 56 61 72 69 6e 74 sqlite3GetVarint
5a50: 28 70 2c 20 26 76 36 34 29 3b 0a 20 20 20 20 61 (p, &v64);. a
5a60: 73 73 65 72 74 28 20 6e 3e 33 20 26 26 20 6e 3c ssert( n>3 && n<
5a70: 3d 39 20 29 3b 0a 20 20 20 20 69 66 28 20 28 76 =9 );. if( (v
5a80: 36 34 20 26 20 53 51 4c 49 54 45 5f 4d 41 58 5f 64 & SQLITE_MAX_
5a90: 55 33 32 29 21 3d 76 36 34 20 29 7b 0a 20 20 20 U32)!=v64 ){.
5aa0: 20 20 20 2a 76 20 3d 20 30 78 66 66 66 66 66 66 *v = 0xffffff
5ab0: 66 66 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 ff;. }else{.
5ac0: 20 20 20 20 20 2a 76 20 3d 20 28 75 33 32 29 76 *v = (u32)v
5ad0: 36 34 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 64;. }. re
5ae0: 74 75 72 6e 20 6e 3b 0a 20 20 7d 0a 0a 23 65 6c turn n;. }..#el
5af0: 73 65 0a 20 20 2f 2a 20 46 6f 72 20 66 6f 6c 6c se. /* For foll
5b00: 6f 77 69 6e 67 20 63 6f 64 65 20 28 6b 65 70 74 owing code (kept
5b10: 20 66 6f 72 20 68 69 73 74 6f 72 69 63 61 6c 20 for historical
5b20: 72 65 63 6f 72 64 20 6f 6e 6c 79 29 20 73 68 6f record only) sho
5b30: 77 73 20 61 6e 0a 20 20 2a 2a 20 75 6e 72 6f 6c ws an. ** unrol
5b40: 6c 69 6e 67 20 66 6f 72 20 74 68 65 20 33 2d 20 ling for the 3-
5b50: 61 6e 64 20 34 2d 62 79 74 65 20 76 61 72 69 6e and 4-byte varin
5b60: 74 20 63 61 73 65 73 2e 20 20 54 68 69 73 20 63 t cases. This c
5b70: 6f 64 65 20 69 73 0a 20 20 2a 2a 20 73 6c 69 67 ode is. ** slig
5b80: 68 74 6c 79 20 66 61 73 74 65 72 2c 20 62 75 74 htly faster, but
5b90: 20 69 74 20 69 73 20 61 6c 73 6f 20 6c 61 72 67 it is also larg
5ba0: 65 72 20 61 6e 64 20 6d 75 63 68 20 68 61 72 64 er and much hard
5bb0: 65 72 20 74 6f 20 74 65 73 74 2e 0a 20 20 2a 2f er to test.. */
5bc0: 0a 20 20 70 2b 2b 3b 0a 20 20 62 20 3d 20 62 3c . p++;. b = b<
5bd0: 3c 31 34 3b 0a 20 20 62 20 7c 3d 20 2a 70 3b 0a <14;. b |= *p;.
5be0: 20 20 2f 2a 20 62 3a 20 70 31 3c 3c 31 34 20 7c /* b: p1<<14 |
5bf0: 20 70 33 20 28 75 6e 6d 61 73 6b 65 64 29 20 2a p3 (unmasked) *
5c00: 2f 0a 20 20 69 66 20 28 21 28 62 26 30 78 38 30 /. if (!(b&0x80
5c10: 29 29 0a 20 20 7b 0a 20 20 20 20 2f 2a 20 56 61 )). {. /* Va
5c20: 6c 75 65 73 20 62 65 74 77 65 65 6e 20 32 30 39 lues between 209
5c30: 37 31 35 32 20 61 6e 64 20 32 36 38 34 33 35 34 7152 and 2684354
5c40: 35 35 20 2a 2f 0a 20 20 20 20 62 20 26 3d 20 28 55 */. b &= (
5c50: 30 78 37 66 3c 3c 31 34 29 7c 28 30 78 37 66 29 0x7f<<14)|(0x7f)
5c60: 3b 0a 20 20 20 20 61 20 26 3d 20 28 30 78 37 66 ;. a &= (0x7f
5c70: 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b 0a 20 20 <<14)|(0x7f);.
5c80: 20 20 61 20 3d 20 61 3c 3c 37 3b 0a 20 20 20 20 a = a<<7;.
5c90: 2a 76 20 3d 20 61 20 7c 20 62 3b 0a 20 20 20 20 *v = a | b;.
5ca0: 72 65 74 75 72 6e 20 34 3b 0a 20 20 7d 0a 0a 20 return 4;. }..
5cb0: 20 70 2b 2b 3b 0a 20 20 61 20 3d 20 61 3c 3c 31 p++;. a = a<<1
5cc0: 34 3b 0a 20 20 61 20 7c 3d 20 2a 70 3b 0a 20 20 4;. a |= *p;.
5cd0: 2f 2a 20 61 3a 20 70 30 3c 3c 32 38 20 7c 20 70 /* a: p0<<28 | p
5ce0: 32 3c 3c 31 34 20 7c 20 70 34 20 28 75 6e 6d 61 2<<14 | p4 (unma
5cf0: 73 6b 65 64 29 20 2a 2f 0a 20 20 69 66 20 28 21 sked) */. if (!
5d00: 28 61 26 30 78 38 30 29 29 0a 20 20 7b 0a 20 20 (a&0x80)). {.
5d10: 20 20 2f 2a 20 57 61 6c 75 65 73 20 20 62 65 74 /* Walues bet
5d20: 77 65 65 6e 20 32 36 38 34 33 35 34 35 36 20 61 ween 268435456 a
5d30: 6e 64 20 33 34 33 35 39 37 33 38 33 36 37 20 2a nd 34359738367 *
5d40: 2f 0a 20 20 20 20 61 20 26 3d 20 28 30 78 31 66 /. a &= (0x1f
5d50: 3c 3c 32 38 29 7c 28 30 78 37 66 3c 3c 31 34 29 <<28)|(0x7f<<14)
5d60: 7c 28 30 78 37 66 29 3b 0a 20 20 20 20 62 20 26 |(0x7f);. b &
5d70: 3d 20 28 30 78 31 66 3c 3c 32 38 29 7c 28 30 78 = (0x1f<<28)|(0x
5d80: 37 66 3c 3c 31 34 29 7c 28 30 78 37 66 29 3b 0a 7f<<14)|(0x7f);.
5d90: 20 20 20 20 62 20 3d 20 62 3c 3c 37 3b 0a 20 20 b = b<<7;.
5da0: 20 20 2a 76 20 3d 20 61 20 7c 20 62 3b 0a 20 20 *v = a | b;.
5db0: 20 20 72 65 74 75 72 6e 20 35 3b 0a 20 20 7d 0a return 5;. }.
5dc0: 0a 20 20 2f 2a 20 57 65 20 63 61 6e 20 6f 6e 6c . /* We can onl
5dd0: 79 20 72 65 61 63 68 20 74 68 69 73 20 70 6f 69 y reach this poi
5de0: 6e 74 20 77 68 65 6e 20 72 65 61 64 69 6e 67 20 nt when reading
5df0: 61 20 63 6f 72 72 75 70 74 20 64 61 74 61 62 61 a corrupt databa
5e00: 73 65 0a 20 20 2a 2a 20 66 69 6c 65 2e 20 20 49 se. ** file. I
5e10: 6e 20 74 68 61 74 20 63 61 73 65 20 77 65 20 61 n that case we a
5e20: 72 65 20 6e 6f 74 20 69 6e 20 61 6e 79 20 68 75 re not in any hu
5e30: 72 72 79 2e 20 20 55 73 65 20 74 68 65 20 28 72 rry. Use the (r
5e40: 65 6c 61 74 69 76 65 6c 79 0a 20 20 2a 2a 20 73 elatively. ** s
5e50: 6c 6f 77 29 20 67 65 6e 65 72 61 6c 2d 70 75 72 low) general-pur
5e60: 70 6f 73 65 20 73 71 6c 69 74 65 33 47 65 74 56 pose sqlite3GetV
5e70: 61 72 69 6e 74 28 29 20 72 6f 75 74 69 6e 65 20 arint() routine
5e80: 74 6f 20 65 78 74 72 61 63 74 20 74 68 65 0a 20 to extract the.
5e90: 20 2a 2a 20 76 61 6c 75 65 2e 20 2a 2f 0a 20 20 ** value. */.
5ea0: 7b 0a 20 20 20 20 75 36 34 20 76 36 34 3b 0a 20 {. u64 v64;.
5eb0: 20 20 20 75 38 20 6e 3b 0a 0a 20 20 20 20 70 20 u8 n;.. p
5ec0: 2d 3d 20 34 3b 0a 20 20 20 20 6e 20 3d 20 73 71 -= 4;. n = sq
5ed0: 6c 69 74 65 33 47 65 74 56 61 72 69 6e 74 28 70 lite3GetVarint(p
5ee0: 2c 20 26 76 36 34 29 3b 0a 20 20 20 20 61 73 73 , &v64);. ass
5ef0: 65 72 74 28 20 6e 3e 35 20 26 26 20 6e 3c 3d 39 ert( n>5 && n<=9
5f00: 20 29 3b 0a 20 20 20 20 2a 76 20 3d 20 28 75 33 );. *v = (u3
5f10: 32 29 76 36 34 3b 0a 20 20 20 20 72 65 74 75 72 2)v64;. retur
5f20: 6e 20 6e 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a n n;. }.#endif.
5f30: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 }../*.** Return
5f40: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62 79 the number of by
5f50: 74 65 73 20 74 68 61 74 20 77 69 6c 6c 20 62 65 tes that will be
5f60: 20 6e 65 65 64 65 64 20 74 6f 20 73 74 6f 72 65 needed to store
5f70: 20 74 68 65 20 67 69 76 65 6e 0a 2a 2a 20 36 34 the given.** 64
5f80: 2d 62 69 74 20 69 6e 74 65 67 65 72 2e 0a 2a 2f -bit integer..*/
5f90: 0a 69 6e 74 20 73 71 6c 69 74 65 33 56 61 72 69 .int sqlite3Vari
5fa0: 6e 74 4c 65 6e 28 75 36 34 20 76 29 7b 0a 20 20 ntLen(u64 v){.
5fb0: 69 6e 74 20 69 20 3d 20 30 3b 0a 20 20 64 6f 7b int i = 0;. do{
5fc0: 0a 20 20 20 20 69 2b 2b 3b 0a 20 20 20 20 76 20 . i++;. v
5fd0: 3e 3e 3d 20 37 3b 0a 20 20 7d 77 68 69 6c 65 28 >>= 7;. }while(
5fe0: 20 76 21 3d 30 20 26 26 20 41 4c 57 41 59 53 28 v!=0 && ALWAYS(
5ff0: 69 3c 39 29 20 29 3b 0a 20 20 72 65 74 75 72 6e i<9) );. return
6000: 20 69 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65 i;.}.../*.** Re
6010: 61 64 20 6f 72 20 77 72 69 74 65 20 61 20 66 6f ad or write a fo
6020: 75 72 2d 62 79 74 65 20 62 69 67 2d 65 6e 64 69 ur-byte big-endi
6030: 61 6e 20 69 6e 74 65 67 65 72 20 76 61 6c 75 65 an integer value
6040: 2e 0a 2a 2f 0a 75 33 32 20 73 71 6c 69 74 65 33 ..*/.u32 sqlite3
6050: 47 65 74 34 62 79 74 65 28 63 6f 6e 73 74 20 75 Get4byte(const u
6060: 38 20 2a 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 8 *p){. return
6070: 28 70 5b 30 5d 3c 3c 32 34 29 20 7c 20 28 70 5b (p[0]<<24) | (p[
6080: 31 5d 3c 3c 31 36 29 20 7c 20 28 70 5b 32 5d 3c 1]<<16) | (p[2]<
6090: 3c 38 29 20 7c 20 70 5b 33 5d 3b 0a 7d 0a 76 6f <8) | p[3];.}.vo
60a0: 69 64 20 73 71 6c 69 74 65 33 50 75 74 34 62 79 id sqlite3Put4by
60b0: 74 65 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 te(unsigned char
60c0: 20 2a 70 2c 20 75 33 32 20 76 29 7b 0a 20 20 70 *p, u32 v){. p
60d0: 5b 30 5d 20 3d 20 28 75 38 29 28 76 3e 3e 32 34 [0] = (u8)(v>>24
60e0: 29 3b 0a 20 20 70 5b 31 5d 20 3d 20 28 75 38 29 );. p[1] = (u8)
60f0: 28 76 3e 3e 31 36 29 3b 0a 20 20 70 5b 32 5d 20 (v>>16);. p[2]
6100: 3d 20 28 75 38 29 28 76 3e 3e 38 29 3b 0a 20 20 = (u8)(v>>8);.
6110: 70 5b 33 5d 20 3d 20 28 75 38 29 76 3b 0a 7d 0a p[3] = (u8)v;.}.
6120: 0a 0a 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 ...#if !defined(
6130: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 42 4c 4f 42 SQLITE_OMIT_BLOB
6140: 5f 4c 49 54 45 52 41 4c 29 20 7c 7c 20 64 65 66 _LITERAL) || def
6150: 69 6e 65 64 28 53 51 4c 49 54 45 5f 48 41 53 5f ined(SQLITE_HAS_
6160: 43 4f 44 45 43 29 0a 2f 2a 0a 2a 2a 20 54 72 61 CODEC)./*.** Tra
6170: 6e 73 6c 61 74 65 20 61 20 73 69 6e 67 6c 65 20 nslate a single
6180: 62 79 74 65 20 6f 66 20 48 65 78 20 69 6e 74 6f byte of Hex into
6190: 20 61 6e 20 69 6e 74 65 67 65 72 2e 0a 2a 2a 20 an integer..**
61a0: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 6f 6e 6c This routine onl
61b0: 79 20 77 6f 72 6b 73 20 69 66 20 68 20 72 65 61 y works if h rea
61c0: 6c 6c 79 20 69 73 20 61 20 76 61 6c 69 64 20 68 lly is a valid h
61d0: 65 78 61 64 65 63 69 6d 61 6c 0a 2a 2a 20 63 68 exadecimal.** ch
61e0: 61 72 61 63 74 65 72 3a 20 20 30 2e 2e 39 61 2e aracter: 0..9a.
61f0: 2e 66 41 2e 2e 46 0a 2a 2f 0a 73 74 61 74 69 63 .fA..F.*/.static
6200: 20 75 38 20 68 65 78 54 6f 49 6e 74 28 69 6e 74 u8 hexToInt(int
6210: 20 68 29 7b 0a 20 20 61 73 73 65 72 74 28 20 28 h){. assert( (
6220: 68 3e 3d 27 30 27 20 26 26 20 68 3c 3d 27 39 27 h>='0' && h<='9'
6230: 29 20 7c 7c 20 20 28 68 3e 3d 27 61 27 20 26 26 ) || (h>='a' &&
6240: 20 68 3c 3d 27 66 27 29 20 7c 7c 20 20 28 68 3e h<='f') || (h>
6250: 3d 27 41 27 20 26 26 20 68 3c 3d 27 46 27 29 20 ='A' && h<='F')
6260: 29 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 );.#ifdef SQLITE
6270: 5f 41 53 43 49 49 0a 20 20 68 20 2b 3d 20 39 2a _ASCII. h += 9*
6280: 28 31 26 28 68 3e 3e 36 29 29 3b 0a 23 65 6e 64 (1&(h>>6));.#end
6290: 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 if.#ifdef SQLITE
62a0: 5f 45 42 43 44 49 43 0a 20 20 68 20 2b 3d 20 39 _EBCDIC. h += 9
62b0: 2a 28 31 26 7e 28 68 3e 3e 34 29 29 3b 0a 23 65 *(1&~(h>>4));.#e
62c0: 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 28 75 ndif. return (u
62d0: 38 29 28 68 20 26 20 30 78 66 29 3b 0a 7d 0a 23 8)(h & 0xf);.}.#
62e0: 65 6e 64 69 66 20 2f 2a 20 21 53 51 4c 49 54 45 endif /* !SQLITE
62f0: 5f 4f 4d 49 54 5f 42 4c 4f 42 5f 4c 49 54 45 52 _OMIT_BLOB_LITER
6300: 41 4c 20 7c 7c 20 53 51 4c 49 54 45 5f 48 41 53 AL || SQLITE_HAS
6310: 5f 43 4f 44 45 43 20 2a 2f 0a 0a 23 69 66 20 21 _CODEC */..#if !
6320: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f defined(SQLITE_O
6330: 4d 49 54 5f 42 4c 4f 42 5f 4c 49 54 45 52 41 4c MIT_BLOB_LITERAL
6340: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 53 51 4c ) || defined(SQL
6350: 49 54 45 5f 48 41 53 5f 43 4f 44 45 43 29 0a 2f ITE_HAS_CODEC)./
6360: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 61 20 42 *.** Convert a B
6370: 4c 4f 42 20 6c 69 74 65 72 61 6c 20 6f 66 20 74 LOB literal of t
6380: 68 65 20 66 6f 72 6d 20 22 78 27 68 68 68 68 68 he form "x'hhhhh
6390: 68 27 22 20 69 6e 74 6f 20 69 74 73 20 62 69 6e h'" into its bin
63a0: 61 72 79 0a 2a 2a 20 76 61 6c 75 65 2e 20 20 52 ary.** value. R
63b0: 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 eturn a pointer
63c0: 74 6f 20 69 74 73 20 62 69 6e 61 72 79 20 76 61 to its binary va
63d0: 6c 75 65 2e 20 20 53 70 61 63 65 20 74 6f 20 68 lue. Space to h
63e0: 6f 6c 64 20 74 68 65 0a 2a 2a 20 62 69 6e 61 72 old the.** binar
63f0: 79 20 76 61 6c 75 65 20 68 61 73 20 62 65 65 6e y value has been
6400: 20 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20 6d obtained from m
6410: 61 6c 6c 6f 63 20 61 6e 64 20 6d 75 73 74 20 62 alloc and must b
6420: 65 20 66 72 65 65 64 20 62 79 0a 2a 2a 20 74 68 e freed by.** th
6430: 65 20 63 61 6c 6c 69 6e 67 20 72 6f 75 74 69 6e e calling routin
6440: 65 2e 0a 2a 2f 0a 76 6f 69 64 20 2a 73 71 6c 69 e..*/.void *sqli
6450: 74 65 33 48 65 78 54 6f 42 6c 6f 62 28 73 71 6c te3HexToBlob(sql
6460: 69 74 65 33 20 2a 64 62 2c 20 63 6f 6e 73 74 20 ite3 *db, const
6470: 63 68 61 72 20 2a 7a 2c 20 69 6e 74 20 6e 29 7b char *z, int n){
6480: 0a 20 20 63 68 61 72 20 2a 7a 42 6c 6f 62 3b 0a . char *zBlob;.
6490: 20 20 69 6e 74 20 69 3b 0a 0a 20 20 7a 42 6c 6f int i;.. zBlo
64a0: 62 20 3d 20 28 63 68 61 72 20 2a 29 73 71 6c 69 b = (char *)sqli
64b0: 74 65 33 44 62 4d 61 6c 6c 6f 63 52 61 77 28 64 te3DbMallocRaw(d
64c0: 62 2c 20 6e 2f 32 20 2b 20 31 29 3b 0a 20 20 6e b, n/2 + 1);. n
64d0: 2d 2d 3b 0a 20 20 69 66 28 20 7a 42 6c 6f 62 20 --;. if( zBlob
64e0: 29 7b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 ){. for(i=0;
64f0: 69 3c 6e 3b 20 69 2b 3d 32 29 7b 0a 20 20 20 20 i<n; i+=2){.
6500: 20 20 7a 42 6c 6f 62 5b 69 2f 32 5d 20 3d 20 28 zBlob[i/2] = (
6510: 68 65 78 54 6f 49 6e 74 28 7a 5b 69 5d 29 3c 3c hexToInt(z[i])<<
6520: 34 29 20 7c 20 68 65 78 54 6f 49 6e 74 28 7a 5b 4) | hexToInt(z[
6530: 69 2b 31 5d 29 3b 0a 20 20 20 20 7d 0a 20 20 20 i+1]);. }.
6540: 20 7a 42 6c 6f 62 5b 69 2f 32 5d 20 3d 20 30 3b zBlob[i/2] = 0;
6550: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a 42 . }. return zB
6560: 6c 6f 62 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a lob;.}.#endif /*
6570: 20 21 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 42 4c !SQLITE_OMIT_BL
6580: 4f 42 5f 4c 49 54 45 52 41 4c 20 7c 7c 20 53 51 OB_LITERAL || SQ
6590: 4c 49 54 45 5f 48 41 53 5f 43 4f 44 45 43 20 2a LITE_HAS_CODEC *
65a0: 2f 0a 0a 2f 2a 0a 2a 2a 20 4c 6f 67 20 61 6e 20 /../*.** Log an
65b0: 65 72 72 6f 72 20 74 68 61 74 20 69 73 20 61 6e error that is an
65c0: 20 41 50 49 20 63 61 6c 6c 20 6f 6e 20 61 20 63 API call on a c
65d0: 6f 6e 6e 65 63 74 69 6f 6e 20 70 6f 69 6e 74 65 onnection pointe
65e0: 72 20 74 68 61 74 20 73 68 6f 75 6c 64 0a 2a 2a r that should.**
65f0: 20 6e 6f 74 20 68 61 76 65 20 62 65 65 6e 20 75 not have been u
6600: 73 65 64 2e 20 20 54 68 65 20 22 74 79 70 65 22 sed. The "type"
6610: 20 6f 66 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 of connection p
6620: 6f 69 6e 74 65 72 20 69 73 20 67 69 76 65 6e 20 ointer is given
6630: 61 73 20 74 68 65 0a 2a 2a 20 61 72 67 75 6d 65 as the.** argume
6640: 6e 74 2e 20 20 54 68 65 20 7a 54 79 70 65 20 69 nt. The zType i
6650: 73 20 61 20 77 6f 72 64 20 6c 69 6b 65 20 22 4e s a word like "N
6660: 55 4c 4c 22 20 6f 72 20 22 63 6c 6f 73 65 64 22 ULL" or "closed"
6670: 20 6f 72 20 22 69 6e 76 61 6c 69 64 22 2e 0a 2a or "invalid"..*
6680: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6c 6f /.static void lo
6690: 67 42 61 64 43 6f 6e 6e 65 63 74 69 6f 6e 28 63 gBadConnection(c
66a0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 79 70 65 onst char *zType
66b0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 6c 6f 67 ){. sqlite3_log
66c0: 28 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 2c 20 (SQLITE_MISUSE,
66d0: 0a 20 20 20 20 20 22 41 50 49 20 63 61 6c 6c 20 . "API call
66e0: 77 69 74 68 20 25 73 20 64 61 74 61 62 61 73 65 with %s database
66f0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 6f 69 6e connection poin
6700: 74 65 72 22 2c 0a 20 20 20 20 20 7a 54 79 70 65 ter",. zType
6710: 0a 20 20 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 . );.}../*.** C
6720: 68 65 63 6b 20 74 6f 20 6d 61 6b 65 20 73 75 72 heck to make sur
6730: 65 20 77 65 20 68 61 76 65 20 61 20 76 61 6c 69 e we have a vali
6740: 64 20 64 62 20 70 6f 69 6e 74 65 72 2e 20 20 54 d db pointer. T
6750: 68 69 73 20 74 65 73 74 20 69 73 20 6e 6f 74 0a his test is not.
6760: 2a 2a 20 66 6f 6f 6c 70 72 6f 6f 66 20 62 75 74 ** foolproof but
6770: 20 69 74 20 64 6f 65 73 20 70 72 6f 76 69 64 65 it does provide
6780: 20 73 6f 6d 65 20 6d 65 61 73 75 72 65 20 6f 66 some measure of
6790: 20 70 72 6f 74 65 63 74 69 6f 6e 20 61 67 61 69 protection agai
67a0: 6e 73 74 0a 2a 2a 20 6d 69 73 75 73 65 20 6f 66 nst.** misuse of
67b0: 20 74 68 65 20 69 6e 74 65 72 66 61 63 65 20 73 the interface s
67c0: 75 63 68 20 61 73 20 70 61 73 73 69 6e 67 20 69 uch as passing i
67d0: 6e 20 64 62 20 70 6f 69 6e 74 65 72 73 20 74 68 n db pointers th
67e0: 61 74 20 61 72 65 0a 2a 2a 20 4e 55 4c 4c 20 6f at are.** NULL o
67f0: 72 20 77 68 69 63 68 20 68 61 76 65 20 62 65 65 r which have bee
6800: 6e 20 70 72 65 76 69 6f 75 73 6c 79 20 63 6c 6f n previously clo
6810: 73 65 64 2e 20 20 49 66 20 74 68 69 73 20 72 6f sed. If this ro
6820: 75 74 69 6e 65 20 72 65 74 75 72 6e 73 0a 2a 2a utine returns.**
6830: 20 31 20 69 74 20 6d 65 61 6e 73 20 74 68 61 74 1 it means that
6840: 20 74 68 65 20 64 62 20 70 6f 69 6e 74 65 72 20 the db pointer
6850: 69 73 20 76 61 6c 69 64 20 61 6e 64 20 30 20 69 is valid and 0 i
6860: 66 20 69 74 20 73 68 6f 75 6c 64 20 6e 6f 74 20 f it should not
6870: 62 65 0a 2a 2a 20 64 65 72 65 66 65 72 65 6e 63 be.** dereferenc
6880: 65 64 20 66 6f 72 20 61 6e 79 20 72 65 61 73 6f ed for any reaso
6890: 6e 2e 20 20 54 68 65 20 63 61 6c 6c 69 6e 67 20 n. The calling
68a0: 66 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 function should
68b0: 69 6e 76 6f 6b 65 0a 2a 2a 20 53 51 4c 49 54 45 invoke.** SQLITE
68c0: 5f 4d 49 53 55 53 45 20 69 6d 6d 65 64 69 61 74 _MISUSE immediat
68d0: 65 6c 79 2e 0a 2a 2a 0a 2a 2a 20 73 71 6c 69 74 ely..**.** sqlit
68e0: 65 33 53 61 66 65 74 79 43 68 65 63 6b 4f 6b 28 e3SafetyCheckOk(
68f0: 29 20 72 65 71 75 69 72 65 73 20 74 68 61 74 20 ) requires that
6900: 74 68 65 20 64 62 20 70 6f 69 6e 74 65 72 20 62 the db pointer b
6910: 65 20 76 61 6c 69 64 20 66 6f 72 0a 2a 2a 20 75 e valid for.** u
6920: 73 65 2e 20 20 73 71 6c 69 74 65 33 53 61 66 65 se. sqlite3Safe
6930: 74 79 43 68 65 63 6b 53 69 63 6b 4f 72 4f 6b 28 tyCheckSickOrOk(
6940: 29 20 61 6c 6c 6f 77 73 20 61 20 64 62 20 70 6f ) allows a db po
6950: 69 6e 74 65 72 20 74 68 61 74 20 66 61 69 6c 65 inter that faile
6960: 64 20 74 6f 0a 2a 2a 20 6f 70 65 6e 20 70 72 6f d to.** open pro
6970: 70 65 72 6c 79 20 61 6e 64 20 69 73 20 6e 6f 74 perly and is not
6980: 20 66 69 74 20 66 6f 72 20 67 65 6e 65 72 61 6c fit for general
6990: 20 75 73 65 20 62 75 74 20 77 68 69 63 68 20 63 use but which c
69a0: 61 6e 20 62 65 0a 2a 2a 20 75 73 65 64 20 61 73 an be.** used as
69b0: 20 61 6e 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 an argument to
69c0: 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28 29 sqlite3_errmsg()
69d0: 20 6f 72 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 or sqlite3_clos
69e0: 65 28 29 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 e()..*/.int sqli
69f0: 74 65 33 53 61 66 65 74 79 43 68 65 63 6b 4f 6b te3SafetyCheckOk
6a00: 28 73 71 6c 69 74 65 33 20 2a 64 62 29 7b 0a 20 (sqlite3 *db){.
6a10: 20 75 33 32 20 6d 61 67 69 63 3b 0a 20 20 69 66 u32 magic;. if
6a20: 28 20 64 62 3d 3d 30 20 29 7b 0a 20 20 20 20 6c ( db==0 ){. l
6a30: 6f 67 42 61 64 43 6f 6e 6e 65 63 74 69 6f 6e 28 ogBadConnection(
6a40: 22 4e 55 4c 4c 22 29 3b 0a 20 20 20 20 72 65 74 "NULL");. ret
6a50: 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 6d 61 67 urn 0;. }. mag
6a60: 69 63 20 3d 20 64 62 2d 3e 6d 61 67 69 63 3b 0a ic = db->magic;.
6a70: 20 20 69 66 28 20 6d 61 67 69 63 21 3d 53 51 4c if( magic!=SQL
6a80: 49 54 45 5f 4d 41 47 49 43 5f 4f 50 45 4e 20 29 ITE_MAGIC_OPEN )
6a90: 7b 0a 20 20 20 20 69 66 28 20 21 73 71 6c 69 74 {. if( !sqlit
6aa0: 65 33 53 61 66 65 74 79 43 68 65 63 6b 53 69 63 e3SafetyCheckSic
6ab0: 6b 4f 72 4f 6b 28 64 62 29 20 29 7b 0a 20 20 20 kOrOk(db) ){.
6ac0: 20 20 20 6c 6f 67 42 61 64 43 6f 6e 6e 65 63 74 logBadConnect
6ad0: 69 6f 6e 28 22 75 6e 6f 70 65 6e 65 64 22 29 3b ion("unopened");
6ae0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
6af0: 6e 20 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 n 0;. }else{.
6b00: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a return 1;. }.
6b10: 7d 0a 69 6e 74 20 73 71 6c 69 74 65 33 53 61 66 }.int sqlite3Saf
6b20: 65 74 79 43 68 65 63 6b 53 69 63 6b 4f 72 4f 6b etyCheckSickOrOk
6b30: 28 73 71 6c 69 74 65 33 20 2a 64 62 29 7b 0a 20 (sqlite3 *db){.
6b40: 20 75 33 32 20 6d 61 67 69 63 3b 0a 20 20 6d 61 u32 magic;. ma
6b50: 67 69 63 20 3d 20 64 62 2d 3e 6d 61 67 69 63 3b gic = db->magic;
6b60: 0a 20 20 69 66 28 20 6d 61 67 69 63 21 3d 53 51 . if( magic!=SQ
6b70: 4c 49 54 45 5f 4d 41 47 49 43 5f 53 49 43 4b 20 LITE_MAGIC_SICK
6b80: 26 26 0a 20 20 20 20 20 20 6d 61 67 69 63 21 3d &&. magic!=
6b90: 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 4f 50 45 SQLITE_MAGIC_OPE
6ba0: 4e 20 26 26 0a 20 20 20 20 20 20 6d 61 67 69 63 N &&. magic
6bb0: 21 3d 53 51 4c 49 54 45 5f 4d 41 47 49 43 5f 42 !=SQLITE_MAGIC_B
6bc0: 55 53 59 20 29 7b 0a 20 20 20 20 6c 6f 67 42 61 USY ){. logBa
6bd0: 64 43 6f 6e 6e 65 63 74 69 6f 6e 28 22 69 6e 76 dConnection("inv
6be0: 61 6c 69 64 22 29 3b 0a 20 20 20 20 72 65 74 75 alid");. retu
6bf0: 72 6e 20 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 rn 0;. }else{.
6c00: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d return 1;. }
6c10: 0a 7d 0a .}.