0000: 2f 2a 0a 2a 2a 20 32 30 30 33 20 4f 63 74 6f 62 /*.** 2003 Octob
0010: 65 72 20 33 31 0a 2a 2a 0a 2a 2a 20 54 68 65 20 er 31.**.** The
0020: 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 author disclaims
0030: 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 copyright to th
0040: 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 is source code.
0050: 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 In place of.**
0060: 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 a legal notice,
0070: 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 here is a blessi
0080: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 ng:.**.** May
0090: 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 you do good and
00a0: 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 not evil..**
00b0: 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f May you find fo
00c0: 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f rgiveness for yo
00d0: 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 urself and forgi
00e0: 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 ve others..**
00f0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 May you share f
0100: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b reely, never tak
0110: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f ing more than yo
0120: 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a u 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 0a 2a 2a 20 54 68 69 73 20 66 69 6c ****.** This fil
0180: 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 43 e contains the C
0190: 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 functions that
01a0: 69 6d 70 6c 65 6d 65 6e 74 20 64 61 74 65 20 61 implement date a
01b0: 6e 64 20 74 69 6d 65 0a 2a 2a 20 66 75 6e 63 74 nd time.** funct
01c0: 69 6f 6e 73 20 66 6f 72 20 53 51 4c 69 74 65 2e ions for SQLite.
01d0: 20 20 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20 69 .**.** There i
01e0: 73 20 6f 6e 6c 79 20 6f 6e 65 20 65 78 70 6f 72 s only one expor
01f0: 74 65 64 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 ted symbol in th
0200: 69 73 20 66 69 6c 65 20 2d 20 74 68 65 20 66 75 is file - the fu
0210: 6e 63 74 69 6f 6e 0a 2a 2a 20 73 71 6c 69 74 65 nction.** sqlite
0220: 33 52 65 67 69 73 74 65 72 44 61 74 65 54 69 6d 3RegisterDateTim
0230: 65 46 75 6e 63 74 69 6f 6e 73 28 29 20 66 6f 75 eFunctions() fou
0240: 6e 64 20 61 74 20 74 68 65 20 62 6f 74 74 6f 6d nd at the bottom
0250: 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a 2a 2a of the file..**
0260: 20 41 6c 6c 20 6f 74 68 65 72 20 63 6f 64 65 20 All other code
0270: 68 61 73 20 66 69 6c 65 20 73 63 6f 70 65 2e 0a has file scope..
0280: 2a 2a 0a 2a 2a 20 24 49 64 3a 20 64 61 74 65 2e **.** $Id: date.
0290: 63 2c 76 20 31 2e 31 30 36 20 32 30 30 39 2f 30 c,v 1.106 2009/0
02a0: 34 2f 31 36 20 31 32 3a 35 38 3a 30 33 20 64 72 4/16 12:58:03 dr
02b0: 68 20 45 78 70 20 24 0a 2a 2a 0a 2a 2a 20 53 51 h Exp $.**.** SQ
02c0: 4c 69 74 65 20 70 72 6f 63 65 73 73 65 73 20 61 Lite processes a
02d0: 6c 6c 20 74 69 6d 65 73 20 61 6e 64 20 64 61 74 ll times and dat
02e0: 65 73 20 61 73 20 4a 75 6c 69 61 6e 20 44 61 79 es as Julian Day
02f0: 20 6e 75 6d 62 65 72 73 2e 20 20 54 68 65 0a 2a numbers. The.*
0300: 2a 20 64 61 74 65 73 20 61 6e 64 20 74 69 6d 65 * dates and time
0310: 73 20 61 72 65 20 73 74 6f 72 65 64 20 61 73 20 s are stored as
0320: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 64 61 the number of da
0330: 79 73 20 73 69 6e 63 65 20 6e 6f 6f 6e 0a 2a 2a ys since noon.**
0340: 20 69 6e 20 47 72 65 65 6e 77 69 63 68 20 6f 6e in Greenwich on
0350: 20 4e 6f 76 65 6d 62 65 72 20 32 34 2c 20 34 37 November 24, 47
0360: 31 34 20 42 2e 43 2e 20 61 63 63 6f 72 64 69 6e 14 B.C. accordin
0370: 67 20 74 6f 20 74 68 65 20 47 72 65 67 6f 72 69 g to the Gregori
0380: 61 6e 0a 2a 2a 20 63 61 6c 65 6e 64 61 72 20 73 an.** calendar s
0390: 79 73 74 65 6d 2e 20 0a 2a 2a 0a 2a 2a 20 31 39 ystem. .**.** 19
03a0: 37 30 2d 30 31 2d 30 31 20 30 30 3a 30 30 3a 30 70-01-01 00:00:0
03b0: 30 20 69 73 20 4a 44 20 32 34 34 30 35 38 37 2e 0 is JD 2440587.
03c0: 35 0a 2a 2a 20 32 30 30 30 2d 30 31 2d 30 31 20 5.** 2000-01-01
03d0: 30 30 3a 30 30 3a 30 30 20 69 73 20 4a 44 20 32 00:00:00 is JD 2
03e0: 34 35 31 35 34 34 2e 35 0a 2a 2a 0a 2a 2a 20 54 451544.5.**.** T
03f0: 68 69 73 20 69 6d 70 6c 65 6d 65 6e 74 69 6f 6e his implemention
0400: 20 72 65 71 75 69 72 65 73 20 79 65 61 72 73 20 requires years
0410: 74 6f 20 62 65 20 65 78 70 72 65 73 73 65 64 20 to be expressed
0420: 61 73 20 61 20 34 2d 64 69 67 69 74 20 6e 75 6d as a 4-digit num
0430: 62 65 72 0a 2a 2a 20 77 68 69 63 68 20 6d 65 61 ber.** which mea
0440: 6e 73 20 74 68 61 74 20 6f 6e 6c 79 20 64 61 74 ns that only dat
0450: 65 73 20 62 65 74 77 65 65 6e 20 30 30 30 30 2d es between 0000-
0460: 30 31 2d 30 31 20 61 6e 64 20 39 39 39 39 2d 31 01-01 and 9999-1
0470: 32 2d 33 31 20 63 61 6e 0a 2a 2a 20 62 65 20 72 2-31 can.** be r
0480: 65 70 72 65 73 65 6e 74 65 64 2c 20 65 76 65 6e epresented, even
0490: 20 74 68 6f 75 67 68 20 6a 75 6c 69 61 6e 20 64 though julian d
04a0: 61 79 20 6e 75 6d 62 65 72 73 20 61 6c 6c 6f 77 ay numbers allow
04b0: 20 61 20 6d 75 63 68 20 77 69 64 65 72 0a 2a 2a a much wider.**
04c0: 20 72 61 6e 67 65 20 6f 66 20 64 61 74 65 73 2e range of dates.
04d0: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 47 72 65 67 6f .**.** The Grego
04e0: 72 69 61 6e 20 63 61 6c 65 6e 64 61 72 20 73 79 rian calendar sy
04f0: 73 74 65 6d 20 69 73 20 75 73 65 64 20 66 6f 72 stem is used for
0500: 20 61 6c 6c 20 64 61 74 65 73 20 61 6e 64 20 74 all dates and t
0510: 69 6d 65 73 2c 0a 2a 2a 20 65 76 65 6e 20 74 68 imes,.** even th
0520: 6f 73 65 20 74 68 61 74 20 70 72 65 64 61 74 65 ose that predate
0530: 20 74 68 65 20 47 72 65 67 6f 72 69 61 6e 20 63 the Gregorian c
0540: 61 6c 65 6e 64 61 72 2e 20 20 48 69 73 74 6f 72 alendar. Histor
0550: 69 61 6e 73 20 75 73 75 61 6c 6c 79 0a 2a 2a 20 ians usually.**
0560: 75 73 65 20 74 68 65 20 4a 75 6c 69 61 6e 20 63 use the Julian c
0570: 61 6c 65 6e 64 61 72 20 66 6f 72 20 64 61 74 65 alendar for date
0580: 73 20 70 72 69 6f 72 20 74 6f 20 31 35 38 32 2d s prior to 1582-
0590: 31 30 2d 31 35 20 61 6e 64 20 66 6f 72 20 73 6f 10-15 and for so
05a0: 6d 65 0a 2a 2a 20 64 61 74 65 73 20 61 66 74 65 me.** dates afte
05b0: 72 77 61 72 64 73 2c 20 64 65 70 65 6e 64 69 6e rwards, dependin
05c0: 67 20 6f 6e 20 6c 6f 63 61 6c 65 2e 20 20 42 65 g on locale. Be
05d0: 77 61 72 65 20 6f 66 20 74 68 69 73 20 64 69 66 ware of this dif
05e0: 66 65 72 65 6e 63 65 2e 0a 2a 2a 0a 2a 2a 20 54 ference..**.** T
05f0: 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 61 6c he conversion al
0600: 67 6f 72 69 74 68 6d 73 20 61 72 65 20 69 6d 70 gorithms are imp
0610: 6c 65 6d 65 6e 74 65 64 20 62 61 73 65 64 20 6f lemented based o
0620: 6e 20 64 65 73 63 72 69 70 74 69 6f 6e 73 0a 2a n descriptions.*
0630: 2a 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 * in the followi
0640: 6e 67 20 74 65 78 74 3a 0a 2a 2a 0a 2a 2a 20 20 ng text:.**.**
0650: 20 20 20 20 4a 65 61 6e 20 4d 65 65 75 73 0a 2a Jean Meeus.*
0660: 2a 20 20 20 20 20 20 41 73 74 72 6f 6e 6f 6d 69 * Astronomi
0670: 63 61 6c 20 41 6c 67 6f 72 69 74 68 6d 73 2c 20 cal Algorithms,
0680: 32 6e 64 20 45 64 69 74 69 6f 6e 2c 20 31 39 39 2nd Edition, 199
0690: 38 0a 2a 2a 20 20 20 20 20 20 49 53 42 4d 20 30 8.** ISBM 0
06a0: 2d 39 34 33 33 39 36 2d 36 31 2d 31 0a 2a 2a 20 -943396-61-1.**
06b0: 20 20 20 20 20 57 69 6c 6c 6d 61 6e 6e 2d 42 65 Willmann-Be
06c0: 6c 6c 2c 20 49 6e 63 0a 2a 2a 20 20 20 20 20 20 ll, Inc.**
06d0: 52 69 63 68 6d 6f 6e 64 2c 20 56 69 72 67 69 6e Richmond, Virgin
06e0: 69 61 20 28 55 53 41 29 0a 2a 2f 0a 23 69 6e 63 ia (USA).*/.#inc
06f0: 6c 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e lude "sqliteInt.
0700: 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 h".#include <std
0710: 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 lib.h>.#include
0720: 3c 61 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c <assert.h>.#incl
0730: 75 64 65 20 3c 74 69 6d 65 2e 68 3e 0a 0a 23 69 ude <time.h>..#i
0740: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 fndef SQLITE_OMI
0750: 54 5f 44 41 54 45 54 49 4d 45 5f 46 55 4e 43 53 T_DATETIME_FUNCS
0760: 0a 0a 2f 2a 0a 2a 2a 20 4f 6e 20 72 65 63 65 6e ../*.** On recen
0770: 74 20 57 69 6e 64 6f 77 73 20 70 6c 61 74 66 6f t Windows platfo
0780: 72 6d 73 2c 20 74 68 65 20 6c 6f 63 61 6c 74 69 rms, the localti
0790: 6d 65 5f 73 28 29 20 66 75 6e 63 74 69 6f 6e 20 me_s() function
07a0: 69 73 20 61 76 61 69 6c 61 62 6c 65 0a 2a 2a 20 is available.**
07b0: 61 73 20 70 61 72 74 20 6f 66 20 74 68 65 20 22 as part of the "
07c0: 53 65 63 75 72 65 20 43 52 54 22 2e 20 49 74 20 Secure CRT". It
07d0: 69 73 20 65 73 73 65 6e 74 69 61 6c 6c 79 20 65 is essentially e
07e0: 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 0a 2a 2a quivalent to .**
07f0: 20 6c 6f 63 61 6c 74 69 6d 65 5f 72 28 29 20 61 localtime_r() a
0800: 76 61 69 6c 61 62 6c 65 20 75 6e 64 65 72 20 6d vailable under m
0810: 6f 73 74 20 50 4f 53 49 58 20 70 6c 61 74 66 6f ost POSIX platfo
0820: 72 6d 73 2c 20 65 78 63 65 70 74 20 74 68 61 74 rms, except that
0830: 20 74 68 65 20 0a 2a 2a 20 6f 72 64 65 72 20 6f the .** order o
0840: 66 20 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 f the parameters
0850: 20 69 73 20 72 65 76 65 72 73 65 64 2e 0a 2a 2a is reversed..**
0860: 0a 2a 2a 20 53 65 65 20 68 74 74 70 3a 2f 2f 6d .** See http://m
0870: 73 64 6e 2e 6d 69 63 72 6f 73 6f 66 74 2e 63 6f sdn.microsoft.co
0880: 6d 2f 65 6e 2d 75 73 2f 6c 69 62 72 61 72 79 2f m/en-us/library/
0890: 61 34 34 32 78 33 79 65 28 56 53 2e 38 30 29 2e a442x3ye(VS.80).
08a0: 61 73 70 78 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 aspx..**.** If t
08b0: 68 65 20 75 73 65 72 20 68 61 73 20 6e 6f 74 20 he user has not
08c0: 69 6e 64 69 63 61 74 65 64 20 74 6f 20 75 73 65 indicated to use
08d0: 20 6c 6f 63 61 6c 74 69 6d 65 5f 72 28 29 20 6f localtime_r() o
08e0: 72 20 6c 6f 63 61 6c 74 69 6d 65 5f 73 28 29 0a r localtime_s().
08f0: 2a 2a 20 61 6c 72 65 61 64 79 2c 20 63 68 65 63 ** already, chec
0900: 6b 20 66 6f 72 20 61 6e 20 4d 53 56 43 20 62 75 k for an MSVC bu
0910: 69 6c 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 ild environment
0920: 74 68 61 74 20 70 72 6f 76 69 64 65 73 20 0a 2a that provides .*
0930: 2a 20 6c 6f 63 61 6c 74 69 6d 65 5f 73 28 29 2e * localtime_s().
0940: 0a 2a 2f 0a 23 69 66 20 21 64 65 66 69 6e 65 64 .*/.#if !defined
0950: 28 48 41 56 45 5f 4c 4f 43 41 4c 54 49 4d 45 5f (HAVE_LOCALTIME_
0960: 52 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 48 R) && !defined(H
0970: 41 56 45 5f 4c 4f 43 41 4c 54 49 4d 45 5f 53 29 AVE_LOCALTIME_S)
0980: 20 26 26 20 5c 0a 20 20 20 20 20 64 65 66 69 6e && \. defin
0990: 65 64 28 5f 4d 53 43 5f 56 45 52 29 20 26 26 20 ed(_MSC_VER) &&
09a0: 64 65 66 69 6e 65 64 28 5f 43 52 54 5f 49 4e 53 defined(_CRT_INS
09b0: 45 43 55 52 45 5f 44 45 50 52 45 43 41 54 45 29 ECURE_DEPRECATE)
09c0: 0a 23 64 65 66 69 6e 65 20 48 41 56 45 5f 4c 4f .#define HAVE_LO
09d0: 43 41 4c 54 49 4d 45 5f 53 20 31 0a 23 65 6e 64 CALTIME_S 1.#end
09e0: 69 66 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 74 72 75 if../*.** A stru
09f0: 63 74 75 72 65 20 66 6f 72 20 68 6f 6c 64 69 6e cture for holdin
0a00: 67 20 61 20 73 69 6e 67 6c 65 20 64 61 74 65 20 g a single date
0a10: 61 6e 64 20 74 69 6d 65 2e 0a 2a 2f 0a 74 79 70 and time..*/.typ
0a20: 65 64 65 66 20 73 74 72 75 63 74 20 44 61 74 65 edef struct Date
0a30: 54 69 6d 65 20 44 61 74 65 54 69 6d 65 3b 0a 73 Time DateTime;.s
0a40: 74 72 75 63 74 20 44 61 74 65 54 69 6d 65 20 7b truct DateTime {
0a50: 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 . sqlite3_int64
0a60: 20 69 4a 44 3b 20 2f 2a 20 54 68 65 20 6a 75 6c iJD; /* The jul
0a70: 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 20 74 ian day number t
0a80: 69 6d 65 73 20 38 36 34 30 30 30 30 30 20 2a 2f imes 86400000 */
0a90: 0a 20 20 69 6e 74 20 59 2c 20 4d 2c 20 44 3b 20 . int Y, M, D;
0aa0: 20 20 20 20 20 20 2f 2a 20 59 65 61 72 2c 20 6d /* Year, m
0ab0: 6f 6e 74 68 2c 20 61 6e 64 20 64 61 79 20 2a 2f onth, and day */
0ac0: 0a 20 20 69 6e 74 20 68 2c 20 6d 3b 20 20 20 20 . int h, m;
0ad0: 20 20 20 20 20 20 2f 2a 20 48 6f 75 72 20 61 6e /* Hour an
0ae0: 64 20 6d 69 6e 75 74 65 73 20 2a 2f 0a 20 20 69 d minutes */. i
0af0: 6e 74 20 74 7a 3b 20 20 20 20 20 20 20 20 20 20 nt tz;
0b00: 20 20 2f 2a 20 54 69 6d 65 7a 6f 6e 65 20 6f 66 /* Timezone of
0b10: 66 73 65 74 20 69 6e 20 6d 69 6e 75 74 65 73 20 fset in minutes
0b20: 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 73 3b 20 20 */. double s;
0b30: 20 20 20 20 20 20 20 20 2f 2a 20 53 65 63 6f 6e /* Secon
0b40: 64 73 20 2a 2f 0a 20 20 63 68 61 72 20 76 61 6c ds */. char val
0b50: 69 64 59 4d 44 3b 20 20 20 20 20 2f 2a 20 54 72 idYMD; /* Tr
0b60: 75 65 20 28 31 29 20 69 66 20 59 2c 4d 2c 44 20 ue (1) if Y,M,D
0b70: 61 72 65 20 76 61 6c 69 64 20 2a 2f 0a 20 20 63 are valid */. c
0b80: 68 61 72 20 76 61 6c 69 64 48 4d 53 3b 20 20 20 har validHMS;
0b90: 20 20 2f 2a 20 54 72 75 65 20 28 31 29 20 69 66 /* True (1) if
0ba0: 20 68 2c 6d 2c 73 20 61 72 65 20 76 61 6c 69 64 h,m,s are valid
0bb0: 20 2a 2f 0a 20 20 63 68 61 72 20 76 61 6c 69 64 */. char valid
0bc0: 4a 44 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 JD; /* True
0bd0: 20 28 31 29 20 69 66 20 69 4a 44 20 69 73 20 76 (1) if iJD is v
0be0: 61 6c 69 64 20 2a 2f 0a 20 20 63 68 61 72 20 76 alid */. char v
0bf0: 61 6c 69 64 54 5a 3b 20 20 20 20 20 20 2f 2a 20 alidTZ; /*
0c00: 54 72 75 65 20 28 31 29 20 69 66 20 74 7a 20 69 True (1) if tz i
0c10: 73 20 76 61 6c 69 64 20 2a 2f 0a 7d 3b 0a 0a 0a s valid */.};...
0c20: 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 7a 44 /*.** Convert zD
0c30: 61 74 65 20 69 6e 74 6f 20 6f 6e 65 20 6f 72 20 ate into one or
0c40: 6d 6f 72 65 20 69 6e 74 65 67 65 72 73 2e 20 20 more integers.
0c50: 41 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 75 6d Additional argum
0c60: 65 6e 74 73 0a 2a 2a 20 63 6f 6d 65 20 69 6e 20 ents.** come in
0c70: 67 72 6f 75 70 73 20 6f 66 20 35 20 61 73 20 66 groups of 5 as f
0c80: 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 ollows:.**.**
0c90: 20 20 20 20 4e 20 20 20 20 20 20 20 6e 75 6d 62 N numb
0ca0: 65 72 20 6f 66 20 64 69 67 69 74 73 20 69 6e 20 er of digits in
0cb0: 74 68 65 20 69 6e 74 65 67 65 72 0a 2a 2a 20 20 the integer.**
0cc0: 20 20 20 20 20 6d 69 6e 20 20 20 20 20 6d 69 6e min min
0cd0: 69 6d 75 6d 20 61 6c 6c 6f 77 65 64 20 76 61 6c imum allowed val
0ce0: 75 65 20 6f 66 20 74 68 65 20 69 6e 74 65 67 65 ue of the intege
0cf0: 72 0a 2a 2a 20 20 20 20 20 20 20 6d 61 78 20 20 r.** max
0d00: 20 20 20 6d 61 78 69 6d 75 6d 20 61 6c 6c 6f 77 maximum allow
0d10: 65 64 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 ed value of the
0d20: 69 6e 74 65 67 65 72 0a 2a 2a 20 20 20 20 20 20 integer.**
0d30: 20 6e 65 78 74 43 20 20 20 66 69 72 73 74 20 63 nextC first c
0d40: 68 61 72 61 63 74 65 72 20 61 66 74 65 72 20 74 haracter after t
0d50: 68 65 20 69 6e 74 65 67 65 72 0a 2a 2a 20 20 20 he integer.**
0d60: 20 20 20 20 70 56 61 6c 20 20 20 20 77 68 65 72 pVal wher
0d70: 65 20 74 6f 20 77 72 69 74 65 20 74 68 65 20 69 e to write the i
0d80: 6e 74 65 67 65 72 73 20 76 61 6c 75 65 2e 0a 2a ntegers value..*
0d90: 2a 0a 2a 2a 20 43 6f 6e 76 65 72 73 69 6f 6e 73 *.** Conversions
0da0: 20 63 6f 6e 74 69 6e 75 65 20 75 6e 74 69 6c 20 continue until
0db0: 6f 6e 65 20 77 69 74 68 20 6e 65 78 74 43 3d 3d one with nextC==
0dc0: 30 20 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64 0 is encountered
0dd0: 2e 0a 2a 2a 20 54 68 65 20 66 75 6e 63 74 69 6f ..** The functio
0de0: 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 6e 75 n returns the nu
0df0: 6d 62 65 72 20 6f 66 20 73 75 63 63 65 73 73 66 mber of successf
0e00: 75 6c 20 63 6f 6e 76 65 72 73 69 6f 6e 73 2e 0a ul conversions..
0e10: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 67 65 */.static int ge
0e20: 74 44 69 67 69 74 73 28 63 6f 6e 73 74 20 63 68 tDigits(const ch
0e30: 61 72 20 2a 7a 44 61 74 65 2c 20 2e 2e 2e 29 7b ar *zDate, ...){
0e40: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 . va_list ap;.
0e50: 20 69 6e 74 20 76 61 6c 3b 0a 20 20 69 6e 74 20 int val;. int
0e60: 4e 3b 0a 20 20 69 6e 74 20 6d 69 6e 3b 0a 20 20 N;. int min;.
0e70: 69 6e 74 20 6d 61 78 3b 0a 20 20 69 6e 74 20 6e int max;. int n
0e80: 65 78 74 43 3b 0a 20 20 69 6e 74 20 2a 70 56 61 extC;. int *pVa
0e90: 6c 3b 0a 20 20 69 6e 74 20 63 6e 74 20 3d 20 30 l;. int cnt = 0
0ea0: 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c ;. va_start(ap,
0eb0: 20 7a 44 61 74 65 29 3b 0a 20 20 64 6f 7b 0a 20 zDate);. do{.
0ec0: 20 20 20 4e 20 3d 20 76 61 5f 61 72 67 28 61 70 N = va_arg(ap
0ed0: 2c 20 69 6e 74 29 3b 0a 20 20 20 20 6d 69 6e 20 , int);. min
0ee0: 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 69 6e 74 = va_arg(ap, int
0ef0: 29 3b 0a 20 20 20 20 6d 61 78 20 3d 20 76 61 5f );. max = va_
0f00: 61 72 67 28 61 70 2c 20 69 6e 74 29 3b 0a 20 20 arg(ap, int);.
0f10: 20 20 6e 65 78 74 43 20 3d 20 76 61 5f 61 72 67 nextC = va_arg
0f20: 28 61 70 2c 20 69 6e 74 29 3b 0a 20 20 20 20 70 (ap, int);. p
0f30: 56 61 6c 20 3d 20 76 61 5f 61 72 67 28 61 70 2c Val = va_arg(ap,
0f40: 20 69 6e 74 2a 29 3b 0a 20 20 20 20 76 61 6c 20 int*);. val
0f50: 3d 20 30 3b 0a 20 20 20 20 77 68 69 6c 65 28 20 = 0;. while(
0f60: 4e 2d 2d 20 29 7b 0a 20 20 20 20 20 20 69 66 28 N-- ){. if(
0f70: 20 21 73 71 6c 69 74 65 33 49 73 64 69 67 69 74 !sqlite3Isdigit
0f80: 28 2a 7a 44 61 74 65 29 20 29 7b 0a 20 20 20 20 (*zDate) ){.
0f90: 20 20 20 20 67 6f 74 6f 20 65 6e 64 5f 67 65 74 goto end_get
0fa0: 44 69 67 69 74 73 3b 0a 20 20 20 20 20 20 7d 0a Digits;. }.
0fb0: 20 20 20 20 20 20 76 61 6c 20 3d 20 76 61 6c 2a val = val*
0fc0: 31 30 20 2b 20 2a 7a 44 61 74 65 20 2d 20 27 30 10 + *zDate - '0
0fd0: 27 3b 0a 20 20 20 20 20 20 7a 44 61 74 65 2b 2b ';. zDate++
0fe0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 ;. }. if(
0ff0: 76 61 6c 3c 6d 69 6e 20 7c 7c 20 76 61 6c 3e 6d val<min || val>m
1000: 61 78 20 7c 7c 20 28 6e 65 78 74 43 21 3d 30 20 ax || (nextC!=0
1010: 26 26 20 6e 65 78 74 43 21 3d 2a 7a 44 61 74 65 && nextC!=*zDate
1020: 29 20 29 7b 0a 20 20 20 20 20 20 67 6f 74 6f 20 ) ){. goto
1030: 65 6e 64 5f 67 65 74 44 69 67 69 74 73 3b 0a 20 end_getDigits;.
1040: 20 20 20 7d 0a 20 20 20 20 2a 70 56 61 6c 20 3d }. *pVal =
1050: 20 76 61 6c 3b 0a 20 20 20 20 7a 44 61 74 65 2b val;. zDate+
1060: 2b 3b 0a 20 20 20 20 63 6e 74 2b 2b 3b 0a 20 20 +;. cnt++;.
1070: 7d 77 68 69 6c 65 28 20 6e 65 78 74 43 20 29 3b }while( nextC );
1080: 0a 65 6e 64 5f 67 65 74 44 69 67 69 74 73 3a 0a .end_getDigits:.
1090: 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 20 20 va_end(ap);.
10a0: 72 65 74 75 72 6e 20 63 6e 74 3b 0a 7d 0a 0a 2f return cnt;.}../
10b0: 2a 0a 2a 2a 20 52 65 61 64 20 74 65 78 74 20 66 *.** Read text f
10c0: 72 6f 6d 20 7a 5b 5d 20 61 6e 64 20 63 6f 6e 76 rom z[] and conv
10d0: 65 72 74 20 69 6e 74 6f 20 61 20 66 6c 6f 61 74 ert into a float
10e0: 69 6e 67 20 70 6f 69 6e 74 20 6e 75 6d 62 65 72 ing point number
10f0: 2e 20 20 52 65 74 75 72 6e 0a 2a 2a 20 74 68 65 . Return.** the
1100: 20 6e 75 6d 62 65 72 20 6f 66 20 64 69 67 69 74 number of digit
1110: 73 20 63 6f 6e 76 65 72 74 65 64 2e 0a 2a 2f 0a s converted..*/.
1120: 23 64 65 66 69 6e 65 20 67 65 74 56 61 6c 75 65 #define getValue
1130: 20 73 71 6c 69 74 65 33 41 74 6f 46 0a 0a 2f 2a sqlite3AtoF../*
1140: 0a 2a 2a 20 50 61 72 73 65 20 61 20 74 69 6d 65 .** Parse a time
1150: 7a 6f 6e 65 20 65 78 74 65 6e 73 69 6f 6e 20 6f zone extension o
1160: 6e 20 74 68 65 20 65 6e 64 20 6f 66 20 61 20 64 n the end of a d
1170: 61 74 65 2d 74 69 6d 65 2e 0a 2a 2a 20 54 68 65 ate-time..** The
1180: 20 65 78 74 65 6e 73 69 6f 6e 20 69 73 20 6f 66 extension is of
1190: 20 74 68 65 20 66 6f 72 6d 3a 0a 2a 2a 0a 2a 2a the form:.**.**
11a0: 20 20 20 20 20 20 20 20 28 2b 2f 2d 29 48 48 3a (+/-)HH:
11b0: 4d 4d 0a 2a 2a 0a 2a 2a 20 4f 72 20 74 68 65 20 MM.**.** Or the
11c0: 22 7a 75 6c 75 22 20 6e 6f 74 61 74 69 6f 6e 3a "zulu" notation:
11d0: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 20 5a 0a .**.** Z.
11e0: 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 70 61 72 **.** If the par
11f0: 73 65 20 69 73 20 73 75 63 63 65 73 73 66 75 6c se is successful
1200: 2c 20 77 72 69 74 65 20 74 68 65 20 6e 75 6d 62 , write the numb
1210: 65 72 20 6f 66 20 6d 69 6e 75 74 65 73 0a 2a 2a er of minutes.**
1220: 20 6f 66 20 63 68 61 6e 67 65 20 69 6e 20 70 2d of change in p-
1230: 3e 74 7a 20 61 6e 64 20 72 65 74 75 72 6e 20 30 >tz and return 0
1240: 2e 20 20 49 66 20 61 20 70 61 72 73 65 72 20 65 . If a parser e
1250: 72 72 6f 72 20 6f 63 63 75 72 73 2c 0a 2a 2a 20 rror occurs,.**
1260: 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 72 6f 2e return non-zero.
1270: 0a 2a 2a 0a 2a 2a 20 41 20 6d 69 73 73 69 6e 67 .**.** A missing
1280: 20 73 70 65 63 69 66 69 65 72 20 69 73 20 6e 6f specifier is no
1290: 74 20 63 6f 6e 73 69 64 65 72 65 64 20 61 6e 20 t considered an
12a0: 65 72 72 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 error..*/.static
12b0: 20 69 6e 74 20 70 61 72 73 65 54 69 6d 65 7a 6f int parseTimezo
12c0: 6e 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a ne(const char *z
12d0: 44 61 74 65 2c 20 44 61 74 65 54 69 6d 65 20 2a Date, DateTime *
12e0: 70 29 7b 0a 20 20 69 6e 74 20 73 67 6e 20 3d 20 p){. int sgn =
12f0: 30 3b 0a 20 20 69 6e 74 20 6e 48 72 2c 20 6e 4d 0;. int nHr, nM
1300: 6e 3b 0a 20 20 69 6e 74 20 63 3b 0a 20 20 77 68 n;. int c;. wh
1310: 69 6c 65 28 20 73 71 6c 69 74 65 33 49 73 73 70 ile( sqlite3Issp
1320: 61 63 65 28 2a 7a 44 61 74 65 29 20 29 7b 20 7a ace(*zDate) ){ z
1330: 44 61 74 65 2b 2b 3b 20 7d 0a 20 20 70 2d 3e 74 Date++; }. p->t
1340: 7a 20 3d 20 30 3b 0a 20 20 63 20 3d 20 2a 7a 44 z = 0;. c = *zD
1350: 61 74 65 3b 0a 20 20 69 66 28 20 63 3d 3d 27 2d ate;. if( c=='-
1360: 27 20 29 7b 0a 20 20 20 20 73 67 6e 20 3d 20 2d ' ){. sgn = -
1370: 31 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 63 1;. }else if( c
1380: 3d 3d 27 2b 27 20 29 7b 0a 20 20 20 20 73 67 6e =='+' ){. sgn
1390: 20 3d 20 2b 31 3b 0a 20 20 7d 65 6c 73 65 20 69 = +1;. }else i
13a0: 66 28 20 63 3d 3d 27 5a 27 20 7c 7c 20 63 3d 3d f( c=='Z' || c==
13b0: 27 7a 27 20 29 7b 0a 20 20 20 20 7a 44 61 74 65 'z' ){. zDate
13c0: 2b 2b 3b 0a 20 20 20 20 67 6f 74 6f 20 7a 75 6c ++;. goto zul
13d0: 75 5f 74 69 6d 65 3b 0a 20 20 7d 65 6c 73 65 7b u_time;. }else{
13e0: 0a 20 20 20 20 72 65 74 75 72 6e 20 63 21 3d 30 . return c!=0
13f0: 3b 0a 20 20 7d 0a 20 20 7a 44 61 74 65 2b 2b 3b ;. }. zDate++;
1400: 0a 20 20 69 66 28 20 67 65 74 44 69 67 69 74 73 . if( getDigits
1410: 28 7a 44 61 74 65 2c 20 32 2c 20 30 2c 20 31 34 (zDate, 2, 0, 14
1420: 2c 20 27 3a 27 2c 20 26 6e 48 72 2c 20 32 2c 20 , ':', &nHr, 2,
1430: 30 2c 20 35 39 2c 20 30 2c 20 26 6e 4d 6e 29 21 0, 59, 0, &nMn)!
1440: 3d 32 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e =2 ){. return
1450: 20 31 3b 0a 20 20 7d 0a 20 20 7a 44 61 74 65 20 1;. }. zDate
1460: 2b 3d 20 35 3b 0a 20 20 70 2d 3e 74 7a 20 3d 20 += 5;. p->tz =
1470: 73 67 6e 2a 28 6e 4d 6e 20 2b 20 6e 48 72 2a 36 sgn*(nMn + nHr*6
1480: 30 29 3b 0a 7a 75 6c 75 5f 74 69 6d 65 3a 0a 20 0);.zulu_time:.
1490: 20 77 68 69 6c 65 28 20 73 71 6c 69 74 65 33 49 while( sqlite3I
14a0: 73 73 70 61 63 65 28 2a 7a 44 61 74 65 29 20 29 sspace(*zDate) )
14b0: 7b 20 7a 44 61 74 65 2b 2b 3b 20 7d 0a 20 20 72 { zDate++; }. r
14c0: 65 74 75 72 6e 20 2a 7a 44 61 74 65 21 3d 30 3b eturn *zDate!=0;
14d0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 61 72 73 65 20 .}../*.** Parse
14e0: 74 69 6d 65 73 20 6f 66 20 74 68 65 20 66 6f 72 times of the for
14f0: 6d 20 48 48 3a 4d 4d 20 6f 72 20 48 48 3a 4d 4d m HH:MM or HH:MM
1500: 3a 53 53 20 6f 72 20 48 48 3a 4d 4d 3a 53 53 2e :SS or HH:MM:SS.
1510: 46 46 46 46 2e 0a 2a 2a 20 54 68 65 20 48 48 2c FFFF..** The HH,
1520: 20 4d 4d 2c 20 61 6e 64 20 53 53 20 6d 75 73 74 MM, and SS must
1530: 20 65 61 63 68 20 62 65 20 65 78 61 63 74 6c 79 each be exactly
1540: 20 32 20 64 69 67 69 74 73 2e 20 20 54 68 65 0a 2 digits. The.
1550: 2a 2a 20 66 72 61 63 74 69 6f 6e 61 6c 20 73 65 ** fractional se
1560: 63 6f 6e 64 73 20 46 46 46 46 20 63 61 6e 20 62 conds FFFF can b
1570: 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 64 69 e one or more di
1580: 67 69 74 73 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 gits..**.** Retu
1590: 72 6e 20 31 20 69 66 20 74 68 65 72 65 20 69 73 rn 1 if there is
15a0: 20 61 20 70 61 72 73 69 6e 67 20 65 72 72 6f 72 a parsing error
15b0: 20 61 6e 64 20 30 20 6f 6e 20 73 75 63 63 65 73 and 0 on succes
15c0: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 s..*/.static int
15d0: 20 70 61 72 73 65 48 68 4d 6d 53 73 28 63 6f 6e parseHhMmSs(con
15e0: 73 74 20 63 68 61 72 20 2a 7a 44 61 74 65 2c 20 st char *zDate,
15f0: 44 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 DateTime *p){.
1600: 69 6e 74 20 68 2c 20 6d 2c 20 73 3b 0a 20 20 64 int h, m, s;. d
1610: 6f 75 62 6c 65 20 6d 73 20 3d 20 30 2e 30 3b 0a ouble ms = 0.0;.
1620: 20 20 69 66 28 20 67 65 74 44 69 67 69 74 73 28 if( getDigits(
1630: 7a 44 61 74 65 2c 20 32 2c 20 30 2c 20 32 34 2c zDate, 2, 0, 24,
1640: 20 27 3a 27 2c 20 26 68 2c 20 32 2c 20 30 2c 20 ':', &h, 2, 0,
1650: 35 39 2c 20 30 2c 20 26 6d 29 21 3d 32 20 29 7b 59, 0, &m)!=2 ){
1660: 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 . return 1;.
1670: 20 7d 0a 20 20 7a 44 61 74 65 20 2b 3d 20 35 3b }. zDate += 5;
1680: 0a 20 20 69 66 28 20 2a 7a 44 61 74 65 3d 3d 27 . if( *zDate=='
1690: 3a 27 20 29 7b 0a 20 20 20 20 7a 44 61 74 65 2b :' ){. zDate+
16a0: 2b 3b 0a 20 20 20 20 69 66 28 20 67 65 74 44 69 +;. if( getDi
16b0: 67 69 74 73 28 7a 44 61 74 65 2c 20 32 2c 20 30 gits(zDate, 2, 0
16c0: 2c 20 35 39 2c 20 30 2c 20 26 73 29 21 3d 31 20 , 59, 0, &s)!=1
16d0: 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 ){. return
16e0: 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 44 61 1;. }. zDa
16f0: 74 65 20 2b 3d 20 32 3b 0a 20 20 20 20 69 66 28 te += 2;. if(
1700: 20 2a 7a 44 61 74 65 3d 3d 27 2e 27 20 26 26 20 *zDate=='.' &&
1710: 73 71 6c 69 74 65 33 49 73 64 69 67 69 74 28 7a sqlite3Isdigit(z
1720: 44 61 74 65 5b 31 5d 29 20 29 7b 0a 20 20 20 20 Date[1]) ){.
1730: 20 20 64 6f 75 62 6c 65 20 72 53 63 61 6c 65 20 double rScale
1740: 3d 20 31 2e 30 3b 0a 20 20 20 20 20 20 7a 44 61 = 1.0;. zDa
1750: 74 65 2b 2b 3b 0a 20 20 20 20 20 20 77 68 69 6c te++;. whil
1760: 65 28 20 73 71 6c 69 74 65 33 49 73 64 69 67 69 e( sqlite3Isdigi
1770: 74 28 2a 7a 44 61 74 65 29 20 29 7b 0a 20 20 20 t(*zDate) ){.
1780: 20 20 20 20 20 6d 73 20 3d 20 6d 73 2a 31 30 2e ms = ms*10.
1790: 30 20 2b 20 2a 7a 44 61 74 65 20 2d 20 27 30 27 0 + *zDate - '0'
17a0: 3b 0a 20 20 20 20 20 20 20 20 72 53 63 61 6c 65 ;. rScale
17b0: 20 2a 3d 20 31 30 2e 30 3b 0a 20 20 20 20 20 20 *= 10.0;.
17c0: 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20 20 20 zDate++;.
17d0: 20 7d 0a 20 20 20 20 20 20 6d 73 20 2f 3d 20 72 }. ms /= r
17e0: 53 63 61 6c 65 3b 0a 20 20 20 20 7d 0a 20 20 7d Scale;. }. }
17f0: 65 6c 73 65 7b 0a 20 20 20 20 73 20 3d 20 30 3b else{. s = 0;
1800: 0a 20 20 7d 0a 20 20 70 2d 3e 76 61 6c 69 64 4a . }. p->validJ
1810: 44 20 3d 20 30 3b 0a 20 20 70 2d 3e 76 61 6c 69 D = 0;. p->vali
1820: 64 48 4d 53 20 3d 20 31 3b 0a 20 20 70 2d 3e 68 dHMS = 1;. p->h
1830: 20 3d 20 68 3b 0a 20 20 70 2d 3e 6d 20 3d 20 6d = h;. p->m = m
1840: 3b 0a 20 20 70 2d 3e 73 20 3d 20 73 20 2b 20 6d ;. p->s = s + m
1850: 73 3b 0a 20 20 69 66 28 20 70 61 72 73 65 54 69 s;. if( parseTi
1860: 6d 65 7a 6f 6e 65 28 7a 44 61 74 65 2c 20 70 29 mezone(zDate, p)
1870: 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 70 ) return 1;. p
1880: 2d 3e 76 61 6c 69 64 54 5a 20 3d 20 28 70 2d 3e ->validTZ = (p->
1890: 74 7a 21 3d 30 29 3f 31 3a 30 3b 0a 20 20 72 65 tz!=0)?1:0;. re
18a0: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
18b0: 20 43 6f 6e 76 65 72 74 20 66 72 6f 6d 20 59 59 Convert from YY
18c0: 59 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d 3a 53 YY-MM-DD HH:MM:S
18d0: 53 20 74 6f 20 6a 75 6c 69 61 6e 20 64 61 79 2e S to julian day.
18e0: 20 20 57 65 20 61 6c 77 61 79 73 20 61 73 73 75 We always assu
18f0: 6d 65 0a 2a 2a 20 74 68 61 74 20 74 68 65 20 59 me.** that the Y
1900: 59 59 59 2d 4d 4d 2d 44 44 20 69 73 20 61 63 63 YYY-MM-DD is acc
1910: 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 47 72 ording to the Gr
1920: 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e 64 61 72 egorian calendar
1930: 2e 0a 2a 2a 0a 2a 2a 20 52 65 66 65 72 65 6e 63 ..**.** Referenc
1940: 65 3a 20 20 4d 65 65 75 73 20 70 61 67 65 20 36 e: Meeus page 6
1950: 31 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 1.*/.static void
1960: 20 63 6f 6d 70 75 74 65 4a 44 28 44 61 74 65 54 computeJD(DateT
1970: 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e 74 20 59 ime *p){. int Y
1980: 2c 20 4d 2c 20 44 2c 20 41 2c 20 42 2c 20 58 31 , M, D, A, B, X1
1990: 2c 20 58 32 3b 0a 0a 20 20 69 66 28 20 70 2d 3e , X2;.. if( p->
19a0: 76 61 6c 69 64 4a 44 20 29 20 72 65 74 75 72 6e validJD ) return
19b0: 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61 6c 69 64 ;. if( p->valid
19c0: 59 4d 44 20 29 7b 0a 20 20 20 20 59 20 3d 20 70 YMD ){. Y = p
19d0: 2d 3e 59 3b 0a 20 20 20 20 4d 20 3d 20 70 2d 3e ->Y;. M = p->
19e0: 4d 3b 0a 20 20 20 20 44 20 3d 20 70 2d 3e 44 3b M;. D = p->D;
19f0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 59 20 . }else{. Y
1a00: 3d 20 32 30 30 30 3b 20 20 2f 2a 20 49 66 20 6e = 2000; /* If n
1a10: 6f 20 59 4d 44 20 73 70 65 63 69 66 69 65 64 2c o YMD specified,
1a20: 20 61 73 73 75 6d 65 20 32 30 30 30 2d 4a 61 6e assume 2000-Jan
1a30: 2d 30 31 20 2a 2f 0a 20 20 20 20 4d 20 3d 20 31 -01 */. M = 1
1a40: 3b 0a 20 20 20 20 44 20 3d 20 31 3b 0a 20 20 7d ;. D = 1;. }
1a50: 0a 20 20 69 66 28 20 4d 3c 3d 32 20 29 7b 0a 20 . if( M<=2 ){.
1a60: 20 20 20 59 2d 2d 3b 0a 20 20 20 20 4d 20 2b 3d Y--;. M +=
1a70: 20 31 32 3b 0a 20 20 7d 0a 20 20 41 20 3d 20 59 12;. }. A = Y
1a80: 2f 31 30 30 3b 0a 20 20 42 20 3d 20 32 20 2d 20 /100;. B = 2 -
1a90: 41 20 2b 20 28 41 2f 34 29 3b 0a 20 20 58 31 20 A + (A/4);. X1
1aa0: 3d 20 33 36 35 32 35 2a 28 59 2b 34 37 31 36 29 = 36525*(Y+4716)
1ab0: 2f 31 30 30 3b 0a 20 20 58 32 20 3d 20 33 30 36 /100;. X2 = 306
1ac0: 30 30 31 2a 28 4d 2b 31 29 2f 31 30 30 30 30 3b 001*(M+1)/10000;
1ad0: 0a 20 20 70 2d 3e 69 4a 44 20 3d 20 28 73 71 6c . p->iJD = (sql
1ae0: 69 74 65 33 5f 69 6e 74 36 34 29 28 28 58 31 20 ite3_int64)((X1
1af0: 2b 20 58 32 20 2b 20 44 20 2b 20 42 20 2d 20 31 + X2 + D + B - 1
1b00: 35 32 34 2e 35 20 29 20 2a 20 38 36 34 30 30 30 524.5 ) * 864000
1b10: 30 30 29 3b 0a 20 20 70 2d 3e 76 61 6c 69 64 4a 00);. p->validJ
1b20: 44 20 3d 20 31 3b 0a 20 20 69 66 28 20 70 2d 3e D = 1;. if( p->
1b30: 76 61 6c 69 64 48 4d 53 20 29 7b 0a 20 20 20 20 validHMS ){.
1b40: 70 2d 3e 69 4a 44 20 2b 3d 20 70 2d 3e 68 2a 33 p->iJD += p->h*3
1b50: 36 30 30 30 30 30 20 2b 20 70 2d 3e 6d 2a 36 30 600000 + p->m*60
1b60: 30 30 30 20 2b 20 28 73 71 6c 69 74 65 33 5f 69 000 + (sqlite3_i
1b70: 6e 74 36 34 29 28 70 2d 3e 73 2a 31 30 30 30 29 nt64)(p->s*1000)
1b80: 3b 0a 20 20 20 20 69 66 28 20 70 2d 3e 76 61 6c ;. if( p->val
1b90: 69 64 54 5a 20 29 7b 0a 20 20 20 20 20 20 70 2d idTZ ){. p-
1ba0: 3e 69 4a 44 20 2d 3d 20 70 2d 3e 74 7a 2a 36 30 >iJD -= p->tz*60
1bb0: 30 30 30 3b 0a 20 20 20 20 20 20 70 2d 3e 76 61 000;. p->va
1bc0: 6c 69 64 59 4d 44 20 3d 20 30 3b 0a 20 20 20 20 lidYMD = 0;.
1bd0: 20 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20 p->validHMS =
1be0: 30 3b 0a 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 0;. p->vali
1bf0: 64 54 5a 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 dTZ = 0;. }.
1c00: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 61 72 73 }.}../*.** Pars
1c10: 65 20 64 61 74 65 73 20 6f 66 20 74 68 65 20 66 e dates of the f
1c20: 6f 72 6d 0a 2a 2a 0a 2a 2a 20 20 20 20 20 59 59 orm.**.** YY
1c30: 59 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d 3a 53 YY-MM-DD HH:MM:S
1c40: 53 2e 46 46 46 0a 2a 2a 20 20 20 20 20 59 59 59 S.FFF.** YYY
1c50: 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d 3a 53 53 Y-MM-DD HH:MM:SS
1c60: 0a 2a 2a 20 20 20 20 20 59 59 59 59 2d 4d 4d 2d .** YYYY-MM-
1c70: 44 44 20 48 48 3a 4d 4d 0a 2a 2a 20 20 20 20 20 DD HH:MM.**
1c80: 59 59 59 59 2d 4d 4d 2d 44 44 0a 2a 2a 0a 2a 2a YYYY-MM-DD.**.**
1c90: 20 57 72 69 74 65 20 74 68 65 20 72 65 73 75 6c Write the resul
1ca0: 74 20 69 6e 74 6f 20 74 68 65 20 44 61 74 65 54 t into the DateT
1cb0: 69 6d 65 20 73 74 72 75 63 74 75 72 65 20 61 6e ime structure an
1cc0: 64 20 72 65 74 75 72 6e 20 30 0a 2a 2a 20 6f 6e d return 0.** on
1cd0: 20 73 75 63 63 65 73 73 20 61 6e 64 20 31 20 69 success and 1 i
1ce0: 66 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 f the input stri
1cf0: 6e 67 20 69 73 20 6e 6f 74 20 61 20 77 65 6c 6c ng is not a well
1d00: 2d 66 6f 72 6d 65 64 0a 2a 2a 20 64 61 74 65 2e -formed.** date.
1d10: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70 .*/.static int p
1d20: 61 72 73 65 59 79 79 79 4d 6d 44 64 28 63 6f 6e arseYyyyMmDd(con
1d30: 73 74 20 63 68 61 72 20 2a 7a 44 61 74 65 2c 20 st char *zDate,
1d40: 44 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 DateTime *p){.
1d50: 69 6e 74 20 59 2c 20 4d 2c 20 44 2c 20 6e 65 67 int Y, M, D, neg
1d60: 3b 0a 0a 20 20 69 66 28 20 7a 44 61 74 65 5b 30 ;.. if( zDate[0
1d70: 5d 3d 3d 27 2d 27 20 29 7b 0a 20 20 20 20 7a 44 ]=='-' ){. zD
1d80: 61 74 65 2b 2b 3b 0a 20 20 20 20 6e 65 67 20 3d ate++;. neg =
1d90: 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 1;. }else{.
1da0: 20 6e 65 67 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 neg = 0;. }.
1db0: 69 66 28 20 67 65 74 44 69 67 69 74 73 28 7a 44 if( getDigits(zD
1dc0: 61 74 65 2c 34 2c 30 2c 39 39 39 39 2c 27 2d 27 ate,4,0,9999,'-'
1dd0: 2c 26 59 2c 32 2c 31 2c 31 32 2c 27 2d 27 2c 26 ,&Y,2,1,12,'-',&
1de0: 4d 2c 32 2c 31 2c 33 31 2c 30 2c 26 44 29 21 3d M,2,1,31,0,&D)!=
1df0: 33 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 3 ){. return
1e00: 31 3b 0a 20 20 7d 0a 20 20 7a 44 61 74 65 20 2b 1;. }. zDate +
1e10: 3d 20 31 30 3b 0a 20 20 77 68 69 6c 65 28 20 73 = 10;. while( s
1e20: 71 6c 69 74 65 33 49 73 73 70 61 63 65 28 2a 7a qlite3Isspace(*z
1e30: 44 61 74 65 29 20 7c 7c 20 27 54 27 3d 3d 2a 28 Date) || 'T'==*(
1e40: 75 38 2a 29 7a 44 61 74 65 20 29 7b 20 7a 44 61 u8*)zDate ){ zDa
1e50: 74 65 2b 2b 3b 20 7d 0a 20 20 69 66 28 20 70 61 te++; }. if( pa
1e60: 72 73 65 48 68 4d 6d 53 73 28 7a 44 61 74 65 2c rseHhMmSs(zDate,
1e70: 20 70 29 3d 3d 30 20 29 7b 0a 20 20 20 20 2f 2a p)==0 ){. /*
1e80: 20 57 65 20 67 6f 74 20 74 68 65 20 74 69 6d 65 We got the time
1e90: 20 2a 2f 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 */. }else if(
1ea0: 2a 7a 44 61 74 65 3d 3d 30 20 29 7b 0a 20 20 20 *zDate==0 ){.
1eb0: 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20 30 p->validHMS = 0
1ec0: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 ;. }else{. r
1ed0: 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 70 eturn 1;. }. p
1ee0: 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 ->validJD = 0;.
1ef0: 20 70 2d 3e 76 61 6c 69 64 59 4d 44 20 3d 20 31 p->validYMD = 1
1f00: 3b 0a 20 20 70 2d 3e 59 20 3d 20 6e 65 67 20 3f ;. p->Y = neg ?
1f10: 20 2d 59 20 3a 20 59 3b 0a 20 20 70 2d 3e 4d 20 -Y : Y;. p->M
1f20: 3d 20 4d 3b 0a 20 20 70 2d 3e 44 20 3d 20 44 3b = M;. p->D = D;
1f30: 0a 20 20 69 66 28 20 70 2d 3e 76 61 6c 69 64 54 . if( p->validT
1f40: 5a 20 29 7b 0a 20 20 20 20 63 6f 6d 70 75 74 65 Z ){. compute
1f50: 4a 44 28 70 29 3b 0a 20 20 7d 0a 20 20 72 65 74 JD(p);. }. ret
1f60: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 urn 0;.}../*.**
1f70: 53 65 74 20 74 68 65 20 74 69 6d 65 20 74 6f 20 Set the time to
1f80: 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 the current time
1f90: 20 72 65 70 6f 72 74 65 64 20 62 79 20 74 68 65 reported by the
1fa0: 20 56 46 53 0a 2a 2f 0a 73 74 61 74 69 63 20 76 VFS.*/.static v
1fb0: 6f 69 64 20 73 65 74 44 61 74 65 54 69 6d 65 54 oid setDateTimeT
1fc0: 6f 43 75 72 72 65 6e 74 28 73 71 6c 69 74 65 33 oCurrent(sqlite3
1fd0: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 _context *contex
1fe0: 74 2c 20 44 61 74 65 54 69 6d 65 20 2a 70 29 7b t, DateTime *p){
1ff0: 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 73 . double r;. s
2000: 71 6c 69 74 65 33 20 2a 64 62 20 3d 20 73 71 6c qlite3 *db = sql
2010: 69 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f ite3_context_db_
2020: 68 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b handle(context);
2030: 0a 20 20 73 71 6c 69 74 65 33 4f 73 43 75 72 72 . sqlite3OsCurr
2040: 65 6e 74 54 69 6d 65 28 64 62 2d 3e 70 56 66 73 entTime(db->pVfs
2050: 2c 20 26 72 29 3b 0a 20 20 70 2d 3e 69 4a 44 20 , &r);. p->iJD
2060: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 = (sqlite3_int64
2070: 29 28 72 2a 38 36 34 30 30 30 30 30 2e 30 20 2b )(r*86400000.0 +
2080: 20 30 2e 35 29 3b 0a 20 20 70 2d 3e 76 61 6c 69 0.5);. p->vali
2090: 64 4a 44 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a dJD = 1;.}../*.*
20a0: 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 70 61 72 * Attempt to par
20b0: 73 65 20 74 68 65 20 67 69 76 65 6e 20 73 74 72 se the given str
20c0: 69 6e 67 20 69 6e 74 6f 20 61 20 4a 75 6c 69 61 ing into a Julia
20d0: 6e 20 44 61 79 20 4e 75 6d 62 65 72 2e 20 20 52 n Day Number. R
20e0: 65 74 75 72 6e 0a 2a 2a 20 74 68 65 20 6e 75 6d eturn.** the num
20f0: 62 65 72 20 6f 66 20 65 72 72 6f 72 73 2e 0a 2a ber of errors..*
2100: 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 *.** The followi
2110: 6e 67 20 61 72 65 20 61 63 63 65 70 74 61 62 6c ng are acceptabl
2120: 65 20 66 6f 72 6d 73 20 66 6f 72 20 74 68 65 20 e forms for the
2130: 69 6e 70 75 74 20 73 74 72 69 6e 67 3a 0a 2a 2a input string:.**
2140: 0a 2a 2a 20 20 20 20 20 20 59 59 59 59 2d 4d 4d .** YYYY-MM
2150: 2d 44 44 20 48 48 3a 4d 4d 3a 53 53 2e 46 46 46 -DD HH:MM:SS.FFF
2160: 20 20 2b 2f 2d 48 48 3a 4d 4d 0a 2a 2a 20 20 20 +/-HH:MM.**
2170: 20 20 20 44 44 44 44 2e 44 44 20 0a 2a 2a 20 20 DDDD.DD .**
2180: 20 20 20 20 6e 6f 77 0a 2a 2a 0a 2a 2a 20 49 6e now.**.** In
2190: 20 74 68 65 20 66 69 72 73 74 20 66 6f 72 6d 2c the first form,
21a0: 20 74 68 65 20 2b 2f 2d 48 48 3a 4d 4d 20 69 73 the +/-HH:MM is
21b0: 20 61 6c 77 61 79 73 20 6f 70 74 69 6f 6e 61 6c always optional
21c0: 2e 20 20 54 68 65 20 66 72 61 63 74 69 6f 6e 61 . The fractiona
21d0: 6c 0a 2a 2a 20 73 65 63 6f 6e 64 73 20 65 78 74 l.** seconds ext
21e0: 65 6e 73 69 6f 6e 20 28 74 68 65 20 22 2e 46 46 ension (the ".FF
21f0: 46 22 29 20 69 73 20 6f 70 74 69 6f 6e 61 6c 2e F") is optional.
2200: 20 20 54 68 65 20 73 65 63 6f 6e 64 73 20 70 6f The seconds po
2210: 72 74 69 6f 6e 0a 2a 2a 20 28 22 3a 53 53 2e 46 rtion.** (":SS.F
2220: 46 46 22 29 20 69 73 20 6f 70 74 69 6f 6e 2e 20 FF") is option.
2230: 20 54 68 65 20 79 65 61 72 20 61 6e 64 20 64 61 The year and da
2240: 74 65 20 63 61 6e 20 62 65 20 6f 6d 69 74 74 65 te can be omitte
2250: 64 20 61 73 20 6c 6f 6e 67 0a 2a 2a 20 61 73 20 d as long.** as
2260: 74 68 65 72 65 20 69 73 20 61 20 74 69 6d 65 20 there is a time
2270: 73 74 72 69 6e 67 2e 20 20 54 68 65 20 74 69 6d string. The tim
2280: 65 20 73 74 72 69 6e 67 20 63 61 6e 20 62 65 20 e string can be
2290: 6f 6d 69 74 74 65 64 20 61 73 20 6c 6f 6e 67 0a omitted as long.
22a0: 2a 2a 20 61 73 20 74 68 65 72 65 20 69 73 20 61 ** as there is a
22b0: 20 79 65 61 72 20 61 6e 64 20 64 61 74 65 2e 0a year and date..
22c0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70 61 */.static int pa
22d0: 72 73 65 44 61 74 65 4f 72 54 69 6d 65 28 0a 20 rseDateOrTime(.
22e0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
22f0: 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 63 6f *context, . co
2300: 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 65 2c nst char *zDate,
2310: 20 0a 20 20 44 61 74 65 54 69 6d 65 20 2a 70 0a . DateTime *p.
2320: 29 7b 0a 20 20 69 66 28 20 70 61 72 73 65 59 79 ){. if( parseYy
2330: 79 79 4d 6d 44 64 28 7a 44 61 74 65 2c 70 29 3d yyMmDd(zDate,p)=
2340: 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e =0 ){. return
2350: 20 30 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 0;. }else if(
2360: 70 61 72 73 65 48 68 4d 6d 53 73 28 7a 44 61 74 parseHhMmSs(zDat
2370: 65 2c 20 70 29 3d 3d 30 20 29 7b 0a 20 20 20 20 e, p)==0 ){.
2380: 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c 73 return 0;. }els
2390: 65 20 69 66 28 20 73 71 6c 69 74 65 33 53 74 72 e if( sqlite3Str
23a0: 49 43 6d 70 28 7a 44 61 74 65 2c 22 6e 6f 77 22 ICmp(zDate,"now"
23b0: 29 3d 3d 30 29 7b 0a 20 20 20 20 73 65 74 44 61 )==0){. setDa
23c0: 74 65 54 69 6d 65 54 6f 43 75 72 72 65 6e 74 28 teTimeToCurrent(
23d0: 63 6f 6e 74 65 78 74 2c 20 70 29 3b 0a 20 20 20 context, p);.
23e0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c return 0;. }el
23f0: 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 49 73 se if( sqlite3Is
2400: 4e 75 6d 62 65 72 28 7a 44 61 74 65 2c 20 30 2c Number(zDate, 0,
2410: 20 53 51 4c 49 54 45 5f 55 54 46 38 29 20 29 7b SQLITE_UTF8) ){
2420: 0a 20 20 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20 . double r;.
2430: 20 20 20 67 65 74 56 61 6c 75 65 28 7a 44 61 74 getValue(zDat
2440: 65 2c 20 26 72 29 3b 0a 20 20 20 20 70 2d 3e 69 e, &r);. p->i
2450: 4a 44 20 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e JD = (sqlite3_in
2460: 74 36 34 29 28 72 2a 38 36 34 30 30 30 30 30 2e t64)(r*86400000.
2470: 30 20 2b 20 30 2e 35 29 3b 0a 20 20 20 20 70 2d 0 + 0.5);. p-
2480: 3e 76 61 6c 69 64 4a 44 20 3d 20 31 3b 0a 20 20 >validJD = 1;.
2490: 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a return 0;. }.
24a0: 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f return 1;.}../
24b0: 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 *.** Compute the
24c0: 20 59 65 61 72 2c 20 4d 6f 6e 74 68 2c 20 61 6e Year, Month, an
24d0: 64 20 44 61 79 20 66 72 6f 6d 20 74 68 65 20 6a d Day from the j
24e0: 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 ulian day number
24f0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
2500: 20 63 6f 6d 70 75 74 65 59 4d 44 28 44 61 74 65 computeYMD(Date
2510: 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e 74 20 Time *p){. int
2520: 5a 2c 20 41 2c 20 42 2c 20 43 2c 20 44 2c 20 45 Z, A, B, C, D, E
2530: 2c 20 58 31 3b 0a 20 20 69 66 28 20 70 2d 3e 76 , X1;. if( p->v
2540: 61 6c 69 64 59 4d 44 20 29 20 72 65 74 75 72 6e alidYMD ) return
2550: 3b 0a 20 20 69 66 28 20 21 70 2d 3e 76 61 6c 69 ;. if( !p->vali
2560: 64 4a 44 20 29 7b 0a 20 20 20 20 70 2d 3e 59 20 dJD ){. p->Y
2570: 3d 20 32 30 30 30 3b 0a 20 20 20 20 70 2d 3e 4d = 2000;. p->M
2580: 20 3d 20 31 3b 0a 20 20 20 20 70 2d 3e 44 20 3d = 1;. p->D =
2590: 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 1;. }else{.
25a0: 20 5a 20 3d 20 28 69 6e 74 29 28 28 70 2d 3e 69 Z = (int)((p->i
25b0: 4a 44 20 2b 20 34 33 32 30 30 30 30 30 29 2f 38 JD + 43200000)/8
25c0: 36 34 30 30 30 30 30 29 3b 0a 20 20 20 20 41 20 6400000);. A
25d0: 3d 20 28 69 6e 74 29 28 28 5a 20 2d 20 31 38 36 = (int)((Z - 186
25e0: 37 32 31 36 2e 32 35 29 2f 33 36 35 32 34 2e 32 7216.25)/36524.2
25f0: 35 29 3b 0a 20 20 20 20 41 20 3d 20 5a 20 2b 20 5);. A = Z +
2600: 31 20 2b 20 41 20 2d 20 28 41 2f 34 29 3b 0a 20 1 + A - (A/4);.
2610: 20 20 20 42 20 3d 20 41 20 2b 20 31 35 32 34 3b B = A + 1524;
2620: 0a 20 20 20 20 43 20 3d 20 28 69 6e 74 29 28 28 . C = (int)((
2630: 42 20 2d 20 31 32 32 2e 31 29 2f 33 36 35 2e 32 B - 122.1)/365.2
2640: 35 29 3b 0a 20 20 20 20 44 20 3d 20 28 33 36 35 5);. D = (365
2650: 32 35 2a 43 29 2f 31 30 30 3b 0a 20 20 20 20 45 25*C)/100;. E
2660: 20 3d 20 28 69 6e 74 29 28 28 42 2d 44 29 2f 33 = (int)((B-D)/3
2670: 30 2e 36 30 30 31 29 3b 0a 20 20 20 20 58 31 20 0.6001);. X1
2680: 3d 20 28 69 6e 74 29 28 33 30 2e 36 30 30 31 2a = (int)(30.6001*
2690: 45 29 3b 0a 20 20 20 20 70 2d 3e 44 20 3d 20 42 E);. p->D = B
26a0: 20 2d 20 44 20 2d 20 58 31 3b 0a 20 20 20 20 70 - D - X1;. p
26b0: 2d 3e 4d 20 3d 20 45 3c 31 34 20 3f 20 45 2d 31 ->M = E<14 ? E-1
26c0: 20 3a 20 45 2d 31 33 3b 0a 20 20 20 20 70 2d 3e : E-13;. p->
26d0: 59 20 3d 20 70 2d 3e 4d 3e 32 20 3f 20 43 20 2d Y = p->M>2 ? C -
26e0: 20 34 37 31 36 20 3a 20 43 20 2d 20 34 37 31 35 4716 : C - 4715
26f0: 3b 0a 20 20 7d 0a 20 20 70 2d 3e 76 61 6c 69 64 ;. }. p->valid
2700: 59 4d 44 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a YMD = 1;.}../*.*
2710: 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20 48 6f * Compute the Ho
2720: 75 72 2c 20 4d 69 6e 75 74 65 2c 20 61 6e 64 20 ur, Minute, and
2730: 53 65 63 6f 6e 64 73 20 66 72 6f 6d 20 74 68 65 Seconds from the
2740: 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62 julian day numb
2750: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f er..*/.static vo
2760: 69 64 20 63 6f 6d 70 75 74 65 48 4d 53 28 44 61 id computeHMS(Da
2770: 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e teTime *p){. in
2780: 74 20 73 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61 t s;. if( p->va
2790: 6c 69 64 48 4d 53 20 29 20 72 65 74 75 72 6e 3b lidHMS ) return;
27a0: 0a 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b . computeJD(p);
27b0: 0a 20 20 73 20 3d 20 28 69 6e 74 29 28 28 70 2d . s = (int)((p-
27c0: 3e 69 4a 44 20 2b 20 34 33 32 30 30 30 30 30 29 >iJD + 43200000)
27d0: 20 25 20 38 36 34 30 30 30 30 30 29 3b 0a 20 20 % 86400000);.
27e0: 70 2d 3e 73 20 3d 20 73 2f 31 30 30 30 2e 30 3b p->s = s/1000.0;
27f0: 0a 20 20 73 20 3d 20 28 69 6e 74 29 70 2d 3e 73 . s = (int)p->s
2800: 3b 0a 20 20 70 2d 3e 73 20 2d 3d 20 73 3b 0a 20 ;. p->s -= s;.
2810: 20 70 2d 3e 68 20 3d 20 73 2f 33 36 30 30 3b 0a p->h = s/3600;.
2820: 20 20 73 20 2d 3d 20 70 2d 3e 68 2a 33 36 30 30 s -= p->h*3600
2830: 3b 0a 20 20 70 2d 3e 6d 20 3d 20 73 2f 36 30 3b ;. p->m = s/60;
2840: 0a 20 20 70 2d 3e 73 20 2b 3d 20 73 20 2d 20 70 . p->s += s - p
2850: 2d 3e 6d 2a 36 30 3b 0a 20 20 70 2d 3e 76 61 6c ->m*60;. p->val
2860: 69 64 48 4d 53 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a idHMS = 1;.}../*
2870: 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 62 6f 74 68 .** Compute both
2880: 20 59 4d 44 20 61 6e 64 20 48 4d 53 0a 2a 2f 0a YMD and HMS.*/.
2890: 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 6d 70 static void comp
28a0: 75 74 65 59 4d 44 5f 48 4d 53 28 44 61 74 65 54 uteYMD_HMS(DateT
28b0: 69 6d 65 20 2a 70 29 7b 0a 20 20 63 6f 6d 70 75 ime *p){. compu
28c0: 74 65 59 4d 44 28 70 29 3b 0a 20 20 63 6f 6d 70 teYMD(p);. comp
28d0: 75 74 65 48 4d 53 28 70 29 3b 0a 7d 0a 0a 2f 2a uteHMS(p);.}../*
28e0: 0a 2a 2a 20 43 6c 65 61 72 20 74 68 65 20 59 4d .** Clear the YM
28f0: 44 20 61 6e 64 20 48 4d 53 20 61 6e 64 20 74 68 D and HMS and th
2900: 65 20 54 5a 0a 2a 2f 0a 73 74 61 74 69 63 20 76 e TZ.*/.static v
2910: 6f 69 64 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 oid clearYMD_HMS
2920: 5f 54 5a 28 44 61 74 65 54 69 6d 65 20 2a 70 29 _TZ(DateTime *p)
2930: 7b 0a 20 20 70 2d 3e 76 61 6c 69 64 59 4d 44 20 {. p->validYMD
2940: 3d 20 30 3b 0a 20 20 70 2d 3e 76 61 6c 69 64 48 = 0;. p->validH
2950: 4d 53 20 3d 20 30 3b 0a 20 20 70 2d 3e 76 61 6c MS = 0;. p->val
2960: 69 64 54 5a 20 3d 20 30 3b 0a 7d 0a 0a 23 69 66 idTZ = 0;.}..#if
2970: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 ndef SQLITE_OMIT
2980: 5f 4c 4f 43 41 4c 54 49 4d 45 0a 2f 2a 0a 2a 2a _LOCALTIME./*.**
2990: 20 43 6f 6d 70 75 74 65 20 74 68 65 20 64 69 66 Compute the dif
29a0: 66 65 72 65 6e 63 65 20 28 69 6e 20 6d 69 6c 6c ference (in mill
29b0: 69 73 65 63 6f 6e 64 73 29 0a 2a 2a 20 62 65 74 iseconds).** bet
29c0: 77 65 65 6e 20 6c 6f 63 61 6c 74 69 6d 65 20 61 ween localtime a
29d0: 6e 64 20 55 54 43 20 28 61 2e 6b 2e 61 2e 20 47 nd UTC (a.k.a. G
29e0: 4d 54 29 0a 2a 2a 20 66 6f 72 20 74 68 65 20 74 MT).** for the t
29f0: 69 6d 65 20 76 61 6c 75 65 20 70 20 77 68 65 72 ime value p wher
2a00: 65 20 70 20 69 73 20 69 6e 20 55 54 43 2e 0a 2a e p is in UTC..*
2a10: 2f 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 /.static sqlite3
2a20: 5f 69 6e 74 36 34 20 6c 6f 63 61 6c 74 69 6d 65 _int64 localtime
2a30: 4f 66 66 73 65 74 28 44 61 74 65 54 69 6d 65 20 Offset(DateTime
2a40: 2a 70 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 *p){. DateTime
2a50: 78 2c 20 79 3b 0a 20 20 74 69 6d 65 5f 74 20 74 x, y;. time_t t
2a60: 3b 0a 20 20 78 20 3d 20 2a 70 3b 0a 20 20 63 6f ;. x = *p;. co
2a70: 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28 26 78 29 mputeYMD_HMS(&x)
2a80: 3b 0a 20 20 69 66 28 20 78 2e 59 3c 31 39 37 31 ;. if( x.Y<1971
2a90: 20 7c 7c 20 78 2e 59 3e 3d 32 30 33 38 20 29 7b || x.Y>=2038 ){
2aa0: 0a 20 20 20 20 78 2e 59 20 3d 20 32 30 30 30 3b . x.Y = 2000;
2ab0: 0a 20 20 20 20 78 2e 4d 20 3d 20 31 3b 0a 20 20 . x.M = 1;.
2ac0: 20 20 78 2e 44 20 3d 20 31 3b 0a 20 20 20 20 78 x.D = 1;. x
2ad0: 2e 68 20 3d 20 30 3b 0a 20 20 20 20 78 2e 6d 20 .h = 0;. x.m
2ae0: 3d 20 30 3b 0a 20 20 20 20 78 2e 73 20 3d 20 30 = 0;. x.s = 0
2af0: 2e 30 3b 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 .0;. } else {.
2b00: 20 20 20 69 6e 74 20 73 20 3d 20 28 69 6e 74 29 int s = (int)
2b10: 28 78 2e 73 20 2b 20 30 2e 35 29 3b 0a 20 20 20 (x.s + 0.5);.
2b20: 20 78 2e 73 20 3d 20 73 3b 0a 20 20 7d 0a 20 20 x.s = s;. }.
2b30: 78 2e 74 7a 20 3d 20 30 3b 0a 20 20 78 2e 76 61 x.tz = 0;. x.va
2b40: 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 20 63 6f 6d lidJD = 0;. com
2b50: 70 75 74 65 4a 44 28 26 78 29 3b 0a 20 20 74 20 puteJD(&x);. t
2b60: 3d 20 78 2e 69 4a 44 2f 31 30 30 30 20 2d 20 32 = x.iJD/1000 - 2
2b70: 31 30 38 36 36 37 36 2a 28 69 36 34 29 31 30 30 1086676*(i64)100
2b80: 30 30 3b 0a 23 69 66 64 65 66 20 48 41 56 45 5f 00;.#ifdef HAVE_
2b90: 4c 4f 43 41 4c 54 49 4d 45 5f 52 0a 20 20 7b 0a LOCALTIME_R. {.
2ba0: 20 20 20 20 73 74 72 75 63 74 20 74 6d 20 73 4c struct tm sL
2bb0: 6f 63 61 6c 3b 0a 20 20 20 20 6c 6f 63 61 6c 74 ocal;. localt
2bc0: 69 6d 65 5f 72 28 26 74 2c 20 26 73 4c 6f 63 61 ime_r(&t, &sLoca
2bd0: 6c 29 3b 0a 20 20 20 20 79 2e 59 20 3d 20 73 4c l);. y.Y = sL
2be0: 6f 63 61 6c 2e 74 6d 5f 79 65 61 72 20 2b 20 31 ocal.tm_year + 1
2bf0: 39 30 30 3b 0a 20 20 20 20 79 2e 4d 20 3d 20 73 900;. y.M = s
2c00: 4c 6f 63 61 6c 2e 74 6d 5f 6d 6f 6e 20 2b 20 31 Local.tm_mon + 1
2c10: 3b 0a 20 20 20 20 79 2e 44 20 3d 20 73 4c 6f 63 ;. y.D = sLoc
2c20: 61 6c 2e 74 6d 5f 6d 64 61 79 3b 0a 20 20 20 20 al.tm_mday;.
2c30: 79 2e 68 20 3d 20 73 4c 6f 63 61 6c 2e 74 6d 5f y.h = sLocal.tm_
2c40: 68 6f 75 72 3b 0a 20 20 20 20 79 2e 6d 20 3d 20 hour;. y.m =
2c50: 73 4c 6f 63 61 6c 2e 74 6d 5f 6d 69 6e 3b 0a 20 sLocal.tm_min;.
2c60: 20 20 20 79 2e 73 20 3d 20 73 4c 6f 63 61 6c 2e y.s = sLocal.
2c70: 74 6d 5f 73 65 63 3b 0a 20 20 7d 0a 23 65 6c 69 tm_sec;. }.#eli
2c80: 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 4c f defined(HAVE_L
2c90: 4f 43 41 4c 54 49 4d 45 5f 53 29 0a 20 20 7b 0a OCALTIME_S). {.
2ca0: 20 20 20 20 73 74 72 75 63 74 20 74 6d 20 73 4c struct tm sL
2cb0: 6f 63 61 6c 3b 0a 20 20 20 20 6c 6f 63 61 6c 74 ocal;. localt
2cc0: 69 6d 65 5f 73 28 26 73 4c 6f 63 61 6c 2c 20 26 ime_s(&sLocal, &
2cd0: 74 29 3b 0a 20 20 20 20 79 2e 59 20 3d 20 73 4c t);. y.Y = sL
2ce0: 6f 63 61 6c 2e 74 6d 5f 79 65 61 72 20 2b 20 31 ocal.tm_year + 1
2cf0: 39 30 30 3b 0a 20 20 20 20 79 2e 4d 20 3d 20 73 900;. y.M = s
2d00: 4c 6f 63 61 6c 2e 74 6d 5f 6d 6f 6e 20 2b 20 31 Local.tm_mon + 1
2d10: 3b 0a 20 20 20 20 79 2e 44 20 3d 20 73 4c 6f 63 ;. y.D = sLoc
2d20: 61 6c 2e 74 6d 5f 6d 64 61 79 3b 0a 20 20 20 20 al.tm_mday;.
2d30: 79 2e 68 20 3d 20 73 4c 6f 63 61 6c 2e 74 6d 5f y.h = sLocal.tm_
2d40: 68 6f 75 72 3b 0a 20 20 20 20 79 2e 6d 20 3d 20 hour;. y.m =
2d50: 73 4c 6f 63 61 6c 2e 74 6d 5f 6d 69 6e 3b 0a 20 sLocal.tm_min;.
2d60: 20 20 20 79 2e 73 20 3d 20 73 4c 6f 63 61 6c 2e y.s = sLocal.
2d70: 74 6d 5f 73 65 63 3b 0a 20 20 7d 0a 23 65 6c 73 tm_sec;. }.#els
2d80: 65 0a 20 20 7b 0a 20 20 20 20 73 74 72 75 63 74 e. {. struct
2d90: 20 74 6d 20 2a 70 54 6d 3b 0a 20 20 20 20 73 71 tm *pTm;. sq
2da0: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 lite3_mutex_ente
2db0: 72 28 73 71 6c 69 74 65 33 4d 75 74 65 78 41 6c r(sqlite3MutexAl
2dc0: 6c 6f 63 28 53 51 4c 49 54 45 5f 4d 55 54 45 58 loc(SQLITE_MUTEX
2dd0: 5f 53 54 41 54 49 43 5f 4d 41 53 54 45 52 29 29 _STATIC_MASTER))
2de0: 3b 0a 20 20 20 20 70 54 6d 20 3d 20 6c 6f 63 61 ;. pTm = loca
2df0: 6c 74 69 6d 65 28 26 74 29 3b 0a 20 20 20 20 79 ltime(&t);. y
2e00: 2e 59 20 3d 20 70 54 6d 2d 3e 74 6d 5f 79 65 61 .Y = pTm->tm_yea
2e10: 72 20 2b 20 31 39 30 30 3b 0a 20 20 20 20 79 2e r + 1900;. y.
2e20: 4d 20 3d 20 70 54 6d 2d 3e 74 6d 5f 6d 6f 6e 20 M = pTm->tm_mon
2e30: 2b 20 31 3b 0a 20 20 20 20 79 2e 44 20 3d 20 70 + 1;. y.D = p
2e40: 54 6d 2d 3e 74 6d 5f 6d 64 61 79 3b 0a 20 20 20 Tm->tm_mday;.
2e50: 20 79 2e 68 20 3d 20 70 54 6d 2d 3e 74 6d 5f 68 y.h = pTm->tm_h
2e60: 6f 75 72 3b 0a 20 20 20 20 79 2e 6d 20 3d 20 70 our;. y.m = p
2e70: 54 6d 2d 3e 74 6d 5f 6d 69 6e 3b 0a 20 20 20 20 Tm->tm_min;.
2e80: 79 2e 73 20 3d 20 70 54 6d 2d 3e 74 6d 5f 73 65 y.s = pTm->tm_se
2e90: 63 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 6d c;. sqlite3_m
2ea0: 75 74 65 78 5f 6c 65 61 76 65 28 73 71 6c 69 74 utex_leave(sqlit
2eb0: 65 33 4d 75 74 65 78 41 6c 6c 6f 63 28 53 51 4c e3MutexAlloc(SQL
2ec0: 49 54 45 5f 4d 55 54 45 58 5f 53 54 41 54 49 43 ITE_MUTEX_STATIC
2ed0: 5f 4d 41 53 54 45 52 29 29 3b 0a 20 20 7d 0a 23 _MASTER));. }.#
2ee0: 65 6e 64 69 66 0a 20 20 79 2e 76 61 6c 69 64 59 endif. y.validY
2ef0: 4d 44 20 3d 20 31 3b 0a 20 20 79 2e 76 61 6c 69 MD = 1;. y.vali
2f00: 64 48 4d 53 20 3d 20 31 3b 0a 20 20 79 2e 76 61 dHMS = 1;. y.va
2f10: 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 20 79 2e 76 lidJD = 0;. y.v
2f20: 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 20 20 63 6f alidTZ = 0;. co
2f30: 6d 70 75 74 65 4a 44 28 26 79 29 3b 0a 20 20 72 mputeJD(&y);. r
2f40: 65 74 75 72 6e 20 79 2e 69 4a 44 20 2d 20 78 2e eturn y.iJD - x.
2f50: 69 4a 44 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a iJD;.}.#endif /*
2f60: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 43 SQLITE_OMIT_LOC
2f70: 41 4c 54 49 4d 45 20 2a 2f 0a 0a 2f 2a 0a 2a 2a ALTIME */../*.**
2f80: 20 50 72 6f 63 65 73 73 20 61 20 6d 6f 64 69 66 Process a modif
2f90: 69 65 72 20 74 6f 20 61 20 64 61 74 65 2d 74 69 ier to a date-ti
2fa0: 6d 65 20 73 74 61 6d 70 2e 20 20 54 68 65 20 6d me stamp. The m
2fb0: 6f 64 69 66 69 65 72 73 20 61 72 65 0a 2a 2a 20 odifiers are.**
2fc0: 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a as follows:.**.*
2fd0: 2a 20 20 20 20 20 4e 4e 4e 20 64 61 79 73 0a 2a * NNN days.*
2fe0: 2a 20 20 20 20 20 4e 4e 4e 20 68 6f 75 72 73 0a * NNN hours.
2ff0: 2a 2a 20 20 20 20 20 4e 4e 4e 20 6d 69 6e 75 74 ** NNN minut
3000: 65 73 0a 2a 2a 20 20 20 20 20 4e 4e 4e 2e 4e 4e es.** NNN.NN
3010: 4e 4e 20 73 65 63 6f 6e 64 73 0a 2a 2a 20 20 20 NN seconds.**
3020: 20 20 4e 4e 4e 20 6d 6f 6e 74 68 73 0a 2a 2a 20 NNN months.**
3030: 20 20 20 20 4e 4e 4e 20 79 65 61 72 73 0a 2a 2a NNN years.**
3040: 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 6d 6f start of mo
3050: 6e 74 68 0a 2a 2a 20 20 20 20 20 73 74 61 72 74 nth.** start
3060: 20 6f 66 20 79 65 61 72 0a 2a 2a 20 20 20 20 20 of year.**
3070: 73 74 61 72 74 20 6f 66 20 77 65 65 6b 0a 2a 2a start of week.**
3080: 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 64 61 start of da
3090: 79 0a 2a 2a 20 20 20 20 20 77 65 65 6b 64 61 79 y.** weekday
30a0: 20 4e 0a 2a 2a 20 20 20 20 20 75 6e 69 78 65 70 N.** unixep
30b0: 6f 63 68 0a 2a 2a 20 20 20 20 20 6c 6f 63 61 6c och.** local
30c0: 74 69 6d 65 0a 2a 2a 20 20 20 20 20 75 74 63 0a time.** utc.
30d0: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 30 20 6f **.** Return 0 o
30e0: 6e 20 73 75 63 63 65 73 73 20 61 6e 64 20 31 20 n success and 1
30f0: 69 66 20 74 68 65 72 65 20 69 73 20 61 6e 79 20 if there is any
3100: 6b 69 6e 64 20 6f 66 20 65 72 72 6f 72 2e 0a 2a kind of error..*
3110: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70 61 72 /.static int par
3120: 73 65 4d 6f 64 69 66 69 65 72 28 63 6f 6e 73 74 seModifier(const
3130: 20 63 68 61 72 20 2a 7a 4d 6f 64 2c 20 44 61 74 char *zMod, Dat
3140: 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e 74 eTime *p){. int
3150: 20 72 63 20 3d 20 31 3b 0a 20 20 69 6e 74 20 6e rc = 1;. int n
3160: 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b 0a 20 20 ;. double r;.
3170: 63 68 61 72 20 2a 7a 2c 20 7a 42 75 66 5b 33 30 char *z, zBuf[30
3180: 5d 3b 0a 20 20 7a 20 3d 20 7a 42 75 66 3b 0a 20 ];. z = zBuf;.
3190: 20 66 6f 72 28 6e 3d 30 3b 20 6e 3c 41 72 72 61 for(n=0; n<Arra
31a0: 79 53 69 7a 65 28 7a 42 75 66 29 2d 31 20 26 26 ySize(zBuf)-1 &&
31b0: 20 7a 4d 6f 64 5b 6e 5d 3b 20 6e 2b 2b 29 7b 0a zMod[n]; n++){.
31c0: 20 20 20 20 7a 5b 6e 5d 20 3d 20 28 63 68 61 72 z[n] = (char
31d0: 29 73 71 6c 69 74 65 33 55 70 70 65 72 54 6f 4c )sqlite3UpperToL
31e0: 6f 77 65 72 5b 28 75 38 29 7a 4d 6f 64 5b 6e 5d ower[(u8)zMod[n]
31f0: 5d 3b 0a 20 20 7d 0a 20 20 7a 5b 6e 5d 20 3d 20 ];. }. z[n] =
3200: 30 3b 0a 20 20 73 77 69 74 63 68 28 20 7a 5b 30 0;. switch( z[0
3210: 5d 20 29 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c ] ){.#ifndef SQL
3220: 49 54 45 5f 4f 4d 49 54 5f 4c 4f 43 41 4c 54 49 ITE_OMIT_LOCALTI
3230: 4d 45 0a 20 20 20 20 63 61 73 65 20 27 6c 27 3a ME. case 'l':
3240: 20 7b 0a 20 20 20 20 20 20 2f 2a 20 20 20 20 6c {. /* l
3250: 6f 63 61 6c 74 69 6d 65 0a 20 20 20 20 20 20 2a ocaltime. *
3260: 2a 0a 20 20 20 20 20 20 2a 2a 20 41 73 73 75 6d *. ** Assum
3270: 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 ing the current
3280: 74 69 6d 65 20 76 61 6c 75 65 20 69 73 20 55 54 time value is UT
3290: 43 20 28 61 2e 6b 2e 61 2e 20 47 4d 54 29 2c 20 C (a.k.a. GMT),
32a0: 73 68 69 66 74 20 69 74 20 74 6f 0a 20 20 20 20 shift it to.
32b0: 20 20 2a 2a 20 73 68 6f 77 20 6c 6f 63 61 6c 20 ** show local
32c0: 74 69 6d 65 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 time.. */.
32d0: 20 20 20 20 20 69 66 28 20 73 74 72 63 6d 70 28 if( strcmp(
32e0: 7a 2c 20 22 6c 6f 63 61 6c 74 69 6d 65 22 29 3d z, "localtime")=
32f0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f =0 ){. co
3300: 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 mputeJD(p);.
3310: 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 6c 6f p->iJD += lo
3320: 63 61 6c 74 69 6d 65 4f 66 66 73 65 74 28 70 29 caltimeOffset(p)
3330: 3b 0a 20 20 20 20 20 20 20 20 63 6c 65 61 72 59 ;. clearY
3340: 4d 44 5f 48 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 MD_HMS_TZ(p);.
3350: 20 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 rc = 0;.
3360: 20 20 20 20 7d 0a 20 20 20 20 20 20 62 72 65 61 }. brea
3370: 6b 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a k;. }.#endif.
3380: 20 20 20 20 63 61 73 65 20 27 75 27 3a 20 7b 0a case 'u': {.
3390: 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a /*. *
33a0: 2a 20 20 20 20 75 6e 69 78 65 70 6f 63 68 0a 20 * unixepoch.
33b0: 20 20 20 20 20 2a 2a 0a 20 20 20 20 20 20 2a 2a **. **
33c0: 20 54 72 65 61 74 20 74 68 65 20 63 75 72 72 65 Treat the curre
33d0: 6e 74 20 76 61 6c 75 65 20 6f 66 20 70 2d 3e 69 nt value of p->i
33e0: 4a 44 20 61 73 20 74 68 65 20 6e 75 6d 62 65 72 JD as the number
33f0: 20 6f 66 0a 20 20 20 20 20 20 2a 2a 20 73 65 63 of. ** sec
3400: 6f 6e 64 73 20 73 69 6e 63 65 20 31 39 37 30 2e onds since 1970.
3410: 20 20 43 6f 6e 76 65 72 74 20 74 6f 20 61 20 72 Convert to a r
3420: 65 61 6c 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e eal julian day n
3430: 75 6d 62 65 72 2e 0a 20 20 20 20 20 20 2a 2f 0a umber.. */.
3440: 20 20 20 20 20 20 69 66 28 20 73 74 72 63 6d 70 if( strcmp
3450: 28 7a 2c 20 22 75 6e 69 78 65 70 6f 63 68 22 29 (z, "unixepoch")
3460: 3d 3d 30 20 26 26 20 70 2d 3e 76 61 6c 69 64 4a ==0 && p->validJ
3470: 44 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e D ){. p->
3480: 69 4a 44 20 3d 20 28 70 2d 3e 69 4a 44 20 2b 20 iJD = (p->iJD +
3490: 34 33 32 30 30 29 2f 38 36 34 30 30 20 2b 20 32 43200)/86400 + 2
34a0: 31 30 38 36 36 37 36 2a 28 69 36 34 29 31 30 30 1086676*(i64)100
34b0: 30 30 30 30 30 3b 0a 20 20 20 20 20 20 20 20 63 00000;. c
34c0: 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a 28 70 learYMD_HMS_TZ(p
34d0: 29 3b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 );. rc =
34e0: 30 3b 0a 20 20 20 20 20 20 7d 0a 23 69 66 6e 64 0;. }.#ifnd
34f0: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c ef SQLITE_OMIT_L
3500: 4f 43 41 4c 54 49 4d 45 0a 20 20 20 20 20 20 65 OCALTIME. e
3510: 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a lse if( strcmp(z
3520: 2c 20 22 75 74 63 22 29 3d 3d 30 20 29 7b 0a 20 , "utc")==0 ){.
3530: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 69 sqlite3_i
3540: 6e 74 36 34 20 63 31 3b 0a 20 20 20 20 20 20 20 nt64 c1;.
3550: 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 computeJD(p);.
3560: 20 20 20 20 20 20 20 63 31 20 3d 20 6c 6f 63 61 c1 = loca
3570: 6c 74 69 6d 65 4f 66 66 73 65 74 28 70 29 3b 0a ltimeOffset(p);.
3580: 20 20 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 2d p->iJD -
3590: 3d 20 63 31 3b 0a 20 20 20 20 20 20 20 20 63 6c = c1;. cl
35a0: 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a 28 70 29 earYMD_HMS_TZ(p)
35b0: 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 4a 44 ;. p->iJD
35c0: 20 2b 3d 20 63 31 20 2d 20 6c 6f 63 61 6c 74 69 += c1 - localti
35d0: 6d 65 4f 66 66 73 65 74 28 70 29 3b 0a 20 20 20 meOffset(p);.
35e0: 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 rc = 0;.
35f0: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 }.#endif.
3600: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 break;. }.
3610: 20 20 20 63 61 73 65 20 27 77 27 3a 20 7b 0a 20 case 'w': {.
3620: 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 2a /*. **
3630: 20 20 20 20 77 65 65 6b 64 61 79 20 4e 0a 20 20 weekday N.
3640: 20 20 20 20 2a 2a 0a 20 20 20 20 20 20 2a 2a 20 **. **
3650: 4d 6f 76 65 20 74 68 65 20 64 61 74 65 20 74 6f Move the date to
3660: 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 20 6f the same time o
3670: 6e 20 74 68 65 20 6e 65 78 74 20 6f 63 63 75 72 n the next occur
3680: 72 65 6e 63 65 20 6f 66 0a 20 20 20 20 20 20 2a rence of. *
3690: 2a 20 77 65 65 6b 64 61 79 20 4e 20 77 68 65 72 * weekday N wher
36a0: 65 20 30 3d 3d 53 75 6e 64 61 79 2c 20 31 3d 3d e 0==Sunday, 1==
36b0: 4d 6f 6e 64 61 79 2c 20 61 6e 64 20 73 6f 20 66 Monday, and so f
36c0: 6f 72 74 68 2e 20 20 49 66 20 74 68 65 0a 20 20 orth. If the.
36d0: 20 20 20 20 2a 2a 20 64 61 74 65 20 69 73 20 61 ** date is a
36e0: 6c 72 65 61 64 79 20 6f 6e 20 74 68 65 20 61 70 lready on the ap
36f0: 70 72 6f 70 72 69 61 74 65 20 77 65 65 6b 64 61 propriate weekda
3700: 79 2c 20 74 68 69 73 20 69 73 20 61 20 6e 6f 2d y, this is a no-
3710: 6f 70 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 op.. */.
3720: 20 20 20 69 66 28 20 73 74 72 6e 63 6d 70 28 7a if( strncmp(z
3730: 2c 20 22 77 65 65 6b 64 61 79 20 22 2c 20 38 29 , "weekday ", 8)
3740: 3d 3d 30 20 26 26 20 67 65 74 56 61 6c 75 65 28 ==0 && getValue(
3750: 26 7a 5b 38 5d 2c 26 72 29 3e 30 0a 20 20 20 20 &z[8],&r)>0.
3760: 20 20 20 20 20 20 20 20 20 20 20 20 20 26 26 20 &&
3770: 28 6e 3d 28 69 6e 74 29 72 29 3d 3d 72 20 26 26 (n=(int)r)==r &&
3780: 20 6e 3e 3d 30 20 26 26 20 72 3c 37 20 29 7b 0a n>=0 && r<7 ){.
3790: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f sqlite3_
37a0: 69 6e 74 36 34 20 5a 3b 0a 20 20 20 20 20 20 20 int64 Z;.
37b0: 20 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28 computeYMD_HMS(
37c0: 70 29 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 76 p);. p->v
37d0: 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 20 20 20 20 alidTZ = 0;.
37e0: 20 20 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 3d p->validJD =
37f0: 20 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 0;. comp
3800: 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 20 20 uteJD(p);.
3810: 20 20 5a 20 3d 20 28 28 70 2d 3e 69 4a 44 20 2b Z = ((p->iJD +
3820: 20 31 32 39 36 30 30 30 30 30 29 2f 38 36 34 30 129600000)/8640
3830: 30 30 30 30 29 20 25 20 37 3b 0a 20 20 20 20 20 0000) % 7;.
3840: 20 20 20 69 66 28 20 5a 3e 6e 20 29 20 5a 20 2d if( Z>n ) Z -
3850: 3d 20 37 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e = 7;. p->
3860: 69 4a 44 20 2b 3d 20 28 6e 20 2d 20 5a 29 2a 38 iJD += (n - Z)*8
3870: 36 34 30 30 30 30 30 3b 0a 20 20 20 20 20 20 20 6400000;.
3880: 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a clearYMD_HMS_TZ
3890: 28 70 29 3b 0a 20 20 20 20 20 20 20 20 72 63 20 (p);. rc
38a0: 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 = 0;. }.
38b0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
38c0: 20 20 20 20 63 61 73 65 20 27 73 27 3a 20 7b 0a case 's': {.
38d0: 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a /*. *
38e0: 2a 20 20 20 20 73 74 61 72 74 20 6f 66 20 54 54 * start of TT
38f0: 54 54 54 0a 20 20 20 20 20 20 2a 2a 0a 20 20 20 TTT. **.
3900: 20 20 20 2a 2a 20 4d 6f 76 65 20 74 68 65 20 64 ** Move the d
3910: 61 74 65 20 62 61 63 6b 77 61 72 64 73 20 74 6f ate backwards to
3920: 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f the beginning o
3930: 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 61 f the current da
3940: 79 2c 0a 20 20 20 20 20 20 2a 2a 20 6f 72 20 6d y,. ** or m
3950: 6f 6e 74 68 20 6f 72 20 79 65 61 72 2e 0a 20 20 onth or year..
3960: 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 */. if(
3970: 20 73 74 72 6e 63 6d 70 28 7a 2c 20 22 73 74 61 strncmp(z, "sta
3980: 72 74 20 6f 66 20 22 2c 20 39 29 21 3d 30 20 29 rt of ", 9)!=0 )
3990: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7a 20 break;. z
39a0: 2b 3d 20 39 3b 0a 20 20 20 20 20 20 63 6f 6d 70 += 9;. comp
39b0: 75 74 65 59 4d 44 28 70 29 3b 0a 20 20 20 20 20 uteYMD(p);.
39c0: 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20 31 p->validHMS = 1
39d0: 3b 0a 20 20 20 20 20 20 70 2d 3e 68 20 3d 20 70 ;. p->h = p
39e0: 2d 3e 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 ->m = 0;. p
39f0: 2d 3e 73 20 3d 20 30 2e 30 3b 0a 20 20 20 20 20 ->s = 0.0;.
3a00: 20 70 2d 3e 76 61 6c 69 64 54 5a 20 3d 20 30 3b p->validTZ = 0;
3a10: 0a 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 64 4a . p->validJ
3a20: 44 20 3d 20 30 3b 0a 20 20 20 20 20 20 69 66 28 D = 0;. if(
3a30: 20 73 74 72 63 6d 70 28 7a 2c 22 6d 6f 6e 74 68 strcmp(z,"month
3a40: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ")==0 ){.
3a50: 20 70 2d 3e 44 20 3d 20 31 3b 0a 20 20 20 20 20 p->D = 1;.
3a60: 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 rc = 0;.
3a70: 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d }else if( strcm
3a80: 70 28 7a 2c 22 79 65 61 72 22 29 3d 3d 30 20 29 p(z,"year")==0 )
3a90: 7b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74 {. comput
3aa0: 65 59 4d 44 28 70 29 3b 0a 20 20 20 20 20 20 20 eYMD(p);.
3ab0: 20 70 2d 3e 4d 20 3d 20 31 3b 0a 20 20 20 20 20 p->M = 1;.
3ac0: 20 20 20 70 2d 3e 44 20 3d 20 31 3b 0a 20 20 20 p->D = 1;.
3ad0: 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 rc = 0;.
3ae0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 }else if( str
3af0: 63 6d 70 28 7a 2c 22 64 61 79 22 29 3d 3d 30 20 cmp(z,"day")==0
3b00: 29 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 ){. rc =
3b10: 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 0;. }.
3b20: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 break;. }.
3b30: 20 20 63 61 73 65 20 27 2b 27 3a 0a 20 20 20 20 case '+':.
3b40: 63 61 73 65 20 27 2d 27 3a 0a 20 20 20 20 63 61 case '-':. ca
3b50: 73 65 20 27 30 27 3a 0a 20 20 20 20 63 61 73 65 se '0':. case
3b60: 20 27 31 27 3a 0a 20 20 20 20 63 61 73 65 20 27 '1':. case '
3b70: 32 27 3a 0a 20 20 20 20 63 61 73 65 20 27 33 27 2':. case '3'
3b80: 3a 0a 20 20 20 20 63 61 73 65 20 27 34 27 3a 0a :. case '4':.
3b90: 20 20 20 20 63 61 73 65 20 27 35 27 3a 0a 20 20 case '5':.
3ba0: 20 20 63 61 73 65 20 27 36 27 3a 0a 20 20 20 20 case '6':.
3bb0: 63 61 73 65 20 27 37 27 3a 0a 20 20 20 20 63 61 case '7':. ca
3bc0: 73 65 20 27 38 27 3a 0a 20 20 20 20 63 61 73 65 se '8':. case
3bd0: 20 27 39 27 3a 20 7b 0a 20 20 20 20 20 20 64 6f '9': {. do
3be0: 75 62 6c 65 20 72 52 6f 75 6e 64 65 72 3b 0a 20 uble rRounder;.
3bf0: 20 20 20 20 20 6e 20 3d 20 67 65 74 56 61 6c 75 n = getValu
3c00: 65 28 7a 2c 20 26 72 29 3b 0a 20 20 20 20 20 20 e(z, &r);.
3c10: 61 73 73 65 72 74 28 20 6e 3e 3d 31 20 29 3b 0a assert( n>=1 );.
3c20: 20 20 20 20 20 20 69 66 28 20 7a 5b 6e 5d 3d 3d if( z[n]==
3c30: 27 3a 27 20 29 7b 0a 20 20 20 20 20 20 20 20 2f ':' ){. /
3c40: 2a 20 41 20 6d 6f 64 69 66 69 65 72 20 6f 66 20 * A modifier of
3c50: 74 68 65 20 66 6f 72 6d 20 28 2b 7c 2d 29 48 48 the form (+|-)HH
3c60: 3a 4d 4d 3a 53 53 2e 46 46 46 20 61 64 64 73 20 :MM:SS.FFF adds
3c70: 28 6f 72 20 73 75 62 74 72 61 63 74 73 29 20 74 (or subtracts) t
3c80: 68 65 0a 20 20 20 20 20 20 20 20 2a 2a 20 73 70 he. ** sp
3c90: 65 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f ecified number o
3ca0: 66 20 68 6f 75 72 73 2c 20 6d 69 6e 75 74 65 73 f hours, minutes
3cb0: 2c 20 73 65 63 6f 6e 64 73 2c 20 61 6e 64 20 66 , seconds, and f
3cc0: 72 61 63 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 ractional second
3cd0: 73 0a 20 20 20 20 20 20 20 20 2a 2a 20 74 6f 20 s. ** to
3ce0: 74 68 65 20 74 69 6d 65 2e 20 20 54 68 65 20 22 the time. The "
3cf0: 2e 46 46 46 22 20 6d 61 79 20 62 65 20 6f 6d 69 .FFF" may be omi
3d00: 74 74 65 64 2e 20 20 54 68 65 20 22 3a 53 53 2e tted. The ":SS.
3d10: 46 46 46 22 20 6d 61 79 20 62 65 0a 20 20 20 20 FFF" may be.
3d20: 20 20 20 20 2a 2a 20 6f 6d 69 74 74 65 64 2e 0a ** omitted..
3d30: 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 */.
3d40: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a const char *z
3d50: 32 20 3d 20 7a 3b 0a 20 20 20 20 20 20 20 20 44 2 = z;. D
3d60: 61 74 65 54 69 6d 65 20 74 78 3b 0a 20 20 20 20 ateTime tx;.
3d70: 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 sqlite3_int6
3d80: 34 20 64 61 79 3b 0a 20 20 20 20 20 20 20 20 69 4 day;. i
3d90: 66 28 20 21 73 71 6c 69 74 65 33 49 73 64 69 67 f( !sqlite3Isdig
3da0: 69 74 28 2a 7a 32 29 20 29 20 7a 32 2b 2b 3b 0a it(*z2) ) z2++;.
3db0: 20 20 20 20 20 20 20 20 6d 65 6d 73 65 74 28 26 memset(&
3dc0: 74 78 2c 20 30 2c 20 73 69 7a 65 6f 66 28 74 78 tx, 0, sizeof(tx
3dd0: 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 ));. if(
3de0: 70 61 72 73 65 48 68 4d 6d 53 73 28 7a 32 2c 20 parseHhMmSs(z2,
3df0: 26 74 78 29 20 29 20 62 72 65 61 6b 3b 0a 20 20 &tx) ) break;.
3e00: 20 20 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 computeJD(
3e10: 26 74 78 29 3b 0a 20 20 20 20 20 20 20 20 74 78 &tx);. tx
3e20: 2e 69 4a 44 20 2d 3d 20 34 33 32 30 30 30 30 30 .iJD -= 43200000
3e30: 3b 0a 20 20 20 20 20 20 20 20 64 61 79 20 3d 20 ;. day =
3e40: 74 78 2e 69 4a 44 2f 38 36 34 30 30 30 30 30 3b tx.iJD/86400000;
3e50: 0a 20 20 20 20 20 20 20 20 74 78 2e 69 4a 44 20 . tx.iJD
3e60: 2d 3d 20 64 61 79 2a 38 36 34 30 30 30 30 30 3b -= day*86400000;
3e70: 0a 20 20 20 20 20 20 20 20 69 66 28 20 7a 5b 30 . if( z[0
3e80: 5d 3d 3d 27 2d 27 20 29 20 74 78 2e 69 4a 44 20 ]=='-' ) tx.iJD
3e90: 3d 20 2d 74 78 2e 69 4a 44 3b 0a 20 20 20 20 20 = -tx.iJD;.
3ea0: 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b computeJD(p);
3eb0: 0a 20 20 20 20 20 20 20 20 63 6c 65 61 72 59 4d . clearYM
3ec0: 44 5f 48 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 20 D_HMS_TZ(p);.
3ed0: 20 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 74 p->iJD += t
3ee0: 78 2e 69 4a 44 3b 0a 20 20 20 20 20 20 20 20 72 x.iJD;. r
3ef0: 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 c = 0;. b
3f00: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 reak;. }.
3f10: 20 20 20 20 7a 20 2b 3d 20 6e 3b 0a 20 20 20 20 z += n;.
3f20: 20 20 77 68 69 6c 65 28 20 73 71 6c 69 74 65 33 while( sqlite3
3f30: 49 73 73 70 61 63 65 28 2a 7a 29 20 29 20 7a 2b Isspace(*z) ) z+
3f40: 2b 3b 0a 20 20 20 20 20 20 6e 20 3d 20 73 71 6c +;. n = sql
3f50: 69 74 65 33 53 74 72 6c 65 6e 33 30 28 7a 29 3b ite3Strlen30(z);
3f60: 0a 20 20 20 20 20 20 69 66 28 20 6e 3e 31 30 20 . if( n>10
3f70: 7c 7c 20 6e 3c 33 20 29 20 62 72 65 61 6b 3b 0a || n<3 ) break;.
3f80: 20 20 20 20 20 20 69 66 28 20 7a 5b 6e 2d 31 5d if( z[n-1]
3f90: 3d 3d 27 73 27 20 29 7b 20 7a 5b 6e 2d 31 5d 20 =='s' ){ z[n-1]
3fa0: 3d 20 30 3b 20 6e 2d 2d 3b 20 7d 0a 20 20 20 20 = 0; n--; }.
3fb0: 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a computeJD(p);.
3fc0: 20 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 rc = 0;.
3fd0: 20 20 20 20 72 52 6f 75 6e 64 65 72 20 3d 20 72 rRounder = r
3fe0: 3c 30 20 3f 20 2d 30 2e 35 20 3a 20 2b 30 2e 35 <0 ? -0.5 : +0.5
3ff0: 3b 0a 20 20 20 20 20 20 69 66 28 20 6e 3d 3d 33 ;. if( n==3
4000: 20 26 26 20 73 74 72 63 6d 70 28 7a 2c 22 64 61 && strcmp(z,"da
4010: 79 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 y")==0 ){.
4020: 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 28 73 71 6c p->iJD += (sql
4030: 69 74 65 33 5f 69 6e 74 36 34 29 28 72 2a 38 36 ite3_int64)(r*86
4040: 34 30 30 30 30 30 2e 30 20 2b 20 72 52 6f 75 6e 400000.0 + rRoun
4050: 64 65 72 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 der);. }els
4060: 65 20 69 66 28 20 6e 3d 3d 34 20 26 26 20 73 74 e if( n==4 && st
4070: 72 63 6d 70 28 7a 2c 22 68 6f 75 72 22 29 3d 3d rcmp(z,"hour")==
4080: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 0 ){. p->
4090: 69 4a 44 20 2b 3d 20 28 73 71 6c 69 74 65 33 5f iJD += (sqlite3_
40a0: 69 6e 74 36 34 29 28 72 2a 28 38 36 34 30 30 30 int64)(r*(864000
40b0: 30 30 2e 30 2f 32 34 2e 30 29 20 2b 20 72 52 6f 00.0/24.0) + rRo
40c0: 75 6e 64 65 72 29 3b 0a 20 20 20 20 20 20 7d 65 under);. }e
40d0: 6c 73 65 20 69 66 28 20 6e 3d 3d 36 20 26 26 20 lse if( n==6 &&
40e0: 73 74 72 63 6d 70 28 7a 2c 22 6d 69 6e 75 74 65 strcmp(z,"minute
40f0: 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 ")==0 ){.
4100: 20 70 2d 3e 69 4a 44 20 2b 3d 20 28 73 71 6c 69 p->iJD += (sqli
4110: 74 65 33 5f 69 6e 74 36 34 29 28 72 2a 28 38 36 te3_int64)(r*(86
4120: 34 30 30 30 30 30 2e 30 2f 28 32 34 2e 30 2a 36 400000.0/(24.0*6
4130: 30 2e 30 29 29 20 2b 20 72 52 6f 75 6e 64 65 72 0.0)) + rRounder
4140: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 );. }else i
4150: 66 28 20 6e 3d 3d 36 20 26 26 20 73 74 72 63 6d f( n==6 && strcm
4160: 70 28 7a 2c 22 73 65 63 6f 6e 64 22 29 3d 3d 30 p(z,"second")==0
4170: 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 ){. p->i
4180: 4a 44 20 2b 3d 20 28 73 71 6c 69 74 65 33 5f 69 JD += (sqlite3_i
4190: 6e 74 36 34 29 28 72 2a 28 38 36 34 30 30 30 30 nt64)(r*(8640000
41a0: 30 2e 30 2f 28 32 34 2e 30 2a 36 30 2e 30 2a 36 0.0/(24.0*60.0*6
41b0: 30 2e 30 29 29 20 2b 20 72 52 6f 75 6e 64 65 72 0.0)) + rRounder
41c0: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 );. }else i
41d0: 66 28 20 6e 3d 3d 35 20 26 26 20 73 74 72 63 6d f( n==5 && strcm
41e0: 70 28 7a 2c 22 6d 6f 6e 74 68 22 29 3d 3d 30 20 p(z,"month")==0
41f0: 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 78 ){. int x
4200: 2c 20 79 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d , y;. com
4210: 70 75 74 65 59 4d 44 5f 48 4d 53 28 70 29 3b 0a puteYMD_HMS(p);.
4220: 20 20 20 20 20 20 20 20 70 2d 3e 4d 20 2b 3d 20 p->M +=
4230: 28 69 6e 74 29 72 3b 0a 20 20 20 20 20 20 20 20 (int)r;.
4240: 78 20 3d 20 70 2d 3e 4d 3e 30 20 3f 20 28 70 2d x = p->M>0 ? (p-
4250: 3e 4d 2d 31 29 2f 31 32 20 3a 20 28 70 2d 3e 4d >M-1)/12 : (p->M
4260: 2d 31 32 29 2f 31 32 3b 0a 20 20 20 20 20 20 20 -12)/12;.
4270: 20 70 2d 3e 59 20 2b 3d 20 78 3b 0a 20 20 20 20 p->Y += x;.
4280: 20 20 20 20 70 2d 3e 4d 20 2d 3d 20 78 2a 31 32 p->M -= x*12
4290: 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 76 61 6c ;. p->val
42a0: 69 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20 20 20 idJD = 0;.
42b0: 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a computeJD(p);.
42c0: 20 20 20 20 20 20 20 20 79 20 3d 20 28 69 6e 74 y = (int
42d0: 29 72 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 )r;. if(
42e0: 79 21 3d 72 20 29 7b 0a 20 20 20 20 20 20 20 20 y!=r ){.
42f0: 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 28 73 71 6c p->iJD += (sql
4300: 69 74 65 33 5f 69 6e 74 36 34 29 28 28 72 20 2d ite3_int64)((r -
4310: 20 79 29 2a 33 30 2e 30 2a 38 36 34 30 30 30 30 y)*30.0*8640000
4320: 30 2e 30 20 2b 20 72 52 6f 75 6e 64 65 72 29 3b 0.0 + rRounder);
4330: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
4340: 20 7d 65 6c 73 65 20 69 66 28 20 6e 3d 3d 34 20 }else if( n==4
4350: 26 26 20 73 74 72 63 6d 70 28 7a 2c 22 79 65 61 && strcmp(z,"yea
4360: 72 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 r")==0 ){.
4370: 20 20 69 6e 74 20 79 20 3d 20 28 69 6e 74 29 72 int y = (int)r
4380: 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74 ;. comput
4390: 65 59 4d 44 5f 48 4d 53 28 70 29 3b 0a 20 20 20 eYMD_HMS(p);.
43a0: 20 20 20 20 20 70 2d 3e 59 20 2b 3d 20 79 3b 0a p->Y += y;.
43b0: 20 20 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 64 p->valid
43c0: 4a 44 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 JD = 0;.
43d0: 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 computeJD(p);.
43e0: 20 20 20 20 20 20 69 66 28 20 79 21 3d 72 20 29 if( y!=r )
43f0: 7b 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e 69 {. p->i
4400: 4a 44 20 2b 3d 20 28 73 71 6c 69 74 65 33 5f 69 JD += (sqlite3_i
4410: 6e 74 36 34 29 28 28 72 20 2d 20 79 29 2a 33 36 nt64)((r - y)*36
4420: 35 2e 30 2a 38 36 34 30 30 30 30 30 2e 30 20 2b 5.0*86400000.0 +
4430: 20 72 52 6f 75 6e 64 65 72 29 3b 0a 20 20 20 20 rRounder);.
4440: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73 }. }els
4450: 65 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 e{. rc =
4460: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 1;. }.
4470: 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a clearYMD_HMS_TZ
4480: 28 70 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b (p);. break
4490: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 65 66 61 ;. }. defa
44a0: 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20 62 72 65 ult: {. bre
44b0: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 ak;. }. }.
44c0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a return rc;.}../*
44d0: 0a 2a 2a 20 50 72 6f 63 65 73 73 20 74 69 6d 65 .** Process time
44e0: 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65 function argume
44f0: 6e 74 73 2e 20 20 61 72 67 76 5b 30 5d 20 69 73 nts. argv[0] is
4500: 20 61 20 64 61 74 65 2d 74 69 6d 65 20 73 74 61 a date-time sta
4510: 6d 70 2e 0a 2a 2a 20 61 72 67 76 5b 31 5d 20 61 mp..** argv[1] a
4520: 6e 64 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 nd following are
4530: 20 6d 6f 64 69 66 69 65 72 73 2e 20 20 50 61 72 modifiers. Par
4540: 73 65 20 74 68 65 6d 20 61 6c 6c 20 61 6e 64 20 se them all and
4550: 77 72 69 74 65 0a 2a 2a 20 74 68 65 20 72 65 73 write.** the res
4560: 75 6c 74 69 6e 67 20 74 69 6d 65 20 69 6e 74 6f ulting time into
4570: 20 74 68 65 20 44 61 74 65 54 69 6d 65 20 73 74 the DateTime st
4580: 72 75 63 74 75 72 65 20 70 2e 20 20 52 65 74 75 ructure p. Retu
4590: 72 6e 20 30 0a 2a 2a 20 6f 6e 20 73 75 63 63 65 rn 0.** on succe
45a0: 73 73 20 61 6e 64 20 31 20 69 66 20 74 68 65 72 ss and 1 if ther
45b0: 65 20 61 72 65 20 61 6e 79 20 65 72 72 6f 72 73 e are any errors
45c0: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 72 65 ..**.** If there
45d0: 20 61 72 65 20 7a 65 72 6f 20 70 61 72 61 6d 65 are zero parame
45e0: 74 65 72 73 20 28 69 66 20 65 76 65 6e 20 61 72 ters (if even ar
45f0: 67 76 5b 30 5d 20 69 73 20 75 6e 64 65 66 69 6e gv[0] is undefin
4600: 65 64 29 0a 2a 2a 20 74 68 65 6e 20 61 73 73 75 ed).** then assu
4610: 6d 65 20 61 20 64 65 66 61 75 6c 74 20 76 61 6c me a default val
4620: 75 65 20 6f 66 20 22 6e 6f 77 22 20 66 6f 72 20 ue of "now" for
4630: 61 72 67 76 5b 30 5d 2e 0a 2a 2f 0a 73 74 61 74 argv[0]..*/.stat
4640: 69 63 20 69 6e 74 20 69 73 44 61 74 65 28 0a 20 ic int isDate(.
4650: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
4660: 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e *context, . in
4670: 74 20 61 72 67 63 2c 20 0a 20 20 73 71 6c 69 74 t argc, . sqlit
4680: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 2c e3_value **argv,
4690: 20 0a 20 20 44 61 74 65 54 69 6d 65 20 2a 70 0a . DateTime *p.
46a0: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 63 6f ){. int i;. co
46b0: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
46c0: 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 65 54 79 70 r *z;. int eTyp
46d0: 65 3b 0a 20 20 6d 65 6d 73 65 74 28 70 2c 20 30 e;. memset(p, 0
46e0: 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a 20 , sizeof(*p));.
46f0: 20 69 66 28 20 61 72 67 63 3d 3d 30 20 29 7b 0a if( argc==0 ){.
4700: 20 20 20 20 73 65 74 44 61 74 65 54 69 6d 65 54 setDateTimeT
4710: 6f 43 75 72 72 65 6e 74 28 63 6f 6e 74 65 78 74 oCurrent(context
4720: 2c 20 70 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 , p);. }else if
4730: 28 20 28 65 54 79 70 65 20 3d 20 73 71 6c 69 74 ( (eType = sqlit
4740: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 e3_value_type(ar
4750: 67 76 5b 30 5d 29 29 3d 3d 53 51 4c 49 54 45 5f gv[0]))==SQLITE_
4760: 46 4c 4f 41 54 0a 20 20 20 20 20 20 20 20 20 20 FLOAT.
4770: 20 20 20 20 20 20 20 20 20 7c 7c 20 65 54 79 70 || eTyp
4780: 65 3d 3d 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 e==SQLITE_INTEGE
4790: 52 20 29 7b 0a 20 20 20 20 70 2d 3e 69 4a 44 20 R ){. p->iJD
47a0: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 = (sqlite3_int64
47b0: 29 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f )(sqlite3_value_
47c0: 64 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d 29 2a double(argv[0])*
47d0: 38 36 34 30 30 30 30 30 2e 30 20 2b 20 30 2e 35 86400000.0 + 0.5
47e0: 29 3b 0a 20 20 20 20 70 2d 3e 76 61 6c 69 64 4a );. p->validJ
47f0: 44 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a D = 1;. }else{.
4800: 20 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f z = sqlite3_
4810: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
4820: 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 21 7a 20 0]);. if( !z
4830: 7c 7c 20 70 61 72 73 65 44 61 74 65 4f 72 54 69 || parseDateOrTi
4840: 6d 65 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 me(context, (cha
4850: 72 2a 29 7a 2c 20 70 29 20 29 7b 0a 20 20 20 20 r*)z, p) ){.
4860: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 return 1;.
4870: 7d 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 31 3b }. }. for(i=1;
4880: 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 i<argc; i++){.
4890: 20 20 20 69 66 28 20 28 7a 20 3d 20 73 71 6c 69 if( (z = sqli
48a0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 te3_value_text(a
48b0: 72 67 76 5b 69 5d 29 29 3d 3d 30 20 7c 7c 20 70 rgv[i]))==0 || p
48c0: 61 72 73 65 4d 6f 64 69 66 69 65 72 28 28 63 68 arseModifier((ch
48d0: 61 72 2a 29 7a 2c 20 70 29 20 29 7b 0a 20 20 20 ar*)z, p) ){.
48e0: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 return 1;.
48f0: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 }. }. return
4900: 30 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 0;.}.../*.** The
4910: 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74 69 following routi
4920: 6e 65 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 nes implement th
4930: 65 20 76 61 72 69 6f 75 73 20 64 61 74 65 20 61 e various date a
4940: 6e 64 20 74 69 6d 65 20 66 75 6e 63 74 69 6f 6e nd time function
4950: 73 0a 2a 2a 20 6f 66 20 53 51 4c 69 74 65 2e 0a s.** of SQLite..
4960: 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 6a 75 6c */../*.** jul
4970: 69 61 6e 64 61 79 28 20 54 49 4d 45 53 54 52 49 ianday( TIMESTRI
4980: 4e 47 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e NG, MOD, MOD, ..
4990: 2e 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 .).**.** Return
49a0: 74 68 65 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e the julian day n
49b0: 75 6d 62 65 72 20 6f 66 20 74 68 65 20 64 61 74 umber of the dat
49c0: 65 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 e specified in t
49d0: 68 65 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2f 0a he arguments.*/.
49e0: 73 74 61 74 69 63 20 76 6f 69 64 20 6a 75 6c 69 static void juli
49f0: 61 6e 64 61 79 46 75 6e 63 28 0a 20 20 73 71 6c andayFunc(. sql
4a00: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
4a10: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 ntext,. int arg
4a20: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c c,. sqlite3_val
4a30: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 44 ue **argv.){. D
4a40: 61 74 65 54 69 6d 65 20 78 3b 0a 20 20 69 66 28 ateTime x;. if(
4a50: 20 69 73 44 61 74 65 28 63 6f 6e 74 65 78 74 2c isDate(context,
4a60: 20 61 72 67 63 2c 20 61 72 67 76 2c 20 26 78 29 argc, argv, &x)
4a70: 3d 3d 30 20 29 7b 0a 20 20 20 20 63 6f 6d 70 75 ==0 ){. compu
4a80: 74 65 4a 44 28 26 78 29 3b 0a 20 20 20 20 73 71 teJD(&x);. sq
4a90: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75 lite3_result_dou
4aa0: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 78 2e 69 ble(context, x.i
4ab0: 4a 44 2f 38 36 34 30 30 30 30 30 2e 30 29 3b 0a JD/86400000.0);.
4ac0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 }.}../*.**
4ad0: 64 61 74 65 74 69 6d 65 28 20 54 49 4d 45 53 54 datetime( TIMEST
4ae0: 52 49 4e 47 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 RING, MOD, MOD,
4af0: 2e 2e 2e 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 ...).**.** Retur
4b00: 6e 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 3a n YYYY-MM-DD HH:
4b10: 4d 4d 3a 53 53 0a 2a 2f 0a 73 74 61 74 69 63 20 MM:SS.*/.static
4b20: 76 6f 69 64 20 64 61 74 65 74 69 6d 65 46 75 6e void datetimeFun
4b30: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
4b40: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
4b50: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c int argc,. sql
4b60: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
4b70: 76 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 v.){. DateTime
4b80: 78 3b 0a 20 20 69 66 28 20 69 73 44 61 74 65 28 x;. if( isDate(
4b90: 63 6f 6e 74 65 78 74 2c 20 61 72 67 63 2c 20 61 context, argc, a
4ba0: 72 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a 20 rgv, &x)==0 ){.
4bb0: 20 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 char zBuf[100
4bc0: 5d 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 59 4d ];. computeYM
4bd0: 44 5f 48 4d 53 28 26 78 29 3b 0a 20 20 20 20 73 D_HMS(&x);. s
4be0: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 qlite3_snprintf(
4bf0: 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 42 sizeof(zBuf), zB
4c00: 75 66 2c 20 22 25 30 34 64 2d 25 30 32 64 2d 25 uf, "%04d-%02d-%
4c10: 30 32 64 20 25 30 32 64 3a 25 30 32 64 3a 25 30 02d %02d:%02d:%0
4c20: 32 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 2d",.
4c30: 20 20 20 20 20 20 20 20 20 20 78 2e 59 2c 20 78 x.Y, x
4c40: 2e 4d 2c 20 78 2e 44 2c 20 78 2e 68 2c 20 78 2e .M, x.D, x.h, x.
4c50: 6d 2c 20 28 69 6e 74 29 28 78 2e 73 29 29 3b 0a m, (int)(x.s));.
4c60: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
4c70: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c lt_text(context,
4c80: 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 zBuf, -1, SQLIT
4c90: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 E_TRANSIENT);.
4ca0: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 74 69 }.}../*.** ti
4cb0: 6d 65 28 20 54 49 4d 45 53 54 52 49 4e 47 2c 20 me( TIMESTRING,
4cc0: 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a MOD, MOD, ...).*
4cd0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 48 48 3a 4d *.** Return HH:M
4ce0: 4d 3a 53 53 0a 2a 2f 0a 73 74 61 74 69 63 20 76 M:SS.*/.static v
4cf0: 6f 69 64 20 74 69 6d 65 46 75 6e 63 28 0a 20 20 oid timeFunc(.
4d00: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
4d10: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 *context,. int
4d20: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f argc,. sqlite3_
4d30: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a value **argv.){.
4d40: 20 20 44 61 74 65 54 69 6d 65 20 78 3b 0a 20 20 DateTime x;.
4d50: 69 66 28 20 69 73 44 61 74 65 28 63 6f 6e 74 65 if( isDate(conte
4d60: 78 74 2c 20 61 72 67 63 2c 20 61 72 67 76 2c 20 xt, argc, argv,
4d70: 26 78 29 3d 3d 30 20 29 7b 0a 20 20 20 20 63 68 &x)==0 ){. ch
4d80: 61 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 ar zBuf[100];.
4d90: 20 20 63 6f 6d 70 75 74 65 48 4d 53 28 26 78 29 computeHMS(&x)
4da0: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e ;. sqlite3_sn
4db0: 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42 printf(sizeof(zB
4dc0: 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 30 32 64 uf), zBuf, "%02d
4dd0: 3a 25 30 32 64 3a 25 30 32 64 22 2c 20 78 2e 68 :%02d:%02d", x.h
4de0: 2c 20 78 2e 6d 2c 20 28 69 6e 74 29 78 2e 73 29 , x.m, (int)x.s)
4df0: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 ;. sqlite3_re
4e00: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 sult_text(contex
4e10: 74 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c t, zBuf, -1, SQL
4e20: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
4e30: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 }.}../*.**
4e40: 64 61 74 65 28 20 54 49 4d 45 53 54 52 49 4e 47 date( TIMESTRING
4e50: 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 , MOD, MOD, ...)
4e60: 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 59 59 .**.** Return YY
4e70: 59 59 2d 4d 4d 2d 44 44 0a 2a 2f 0a 73 74 61 74 YY-MM-DD.*/.stat
4e80: 69 63 20 76 6f 69 64 20 64 61 74 65 46 75 6e 63 ic void dateFunc
4e90: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 (. sqlite3_cont
4ea0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 ext *context,.
4eb0: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 int argc,. sqli
4ec0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 te3_value **argv
4ed0: 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 78 .){. DateTime x
4ee0: 3b 0a 20 20 69 66 28 20 69 73 44 61 74 65 28 63 ;. if( isDate(c
4ef0: 6f 6e 74 65 78 74 2c 20 61 72 67 63 2c 20 61 72 ontext, argc, ar
4f00: 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a 20 20 gv, &x)==0 ){.
4f10: 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 5d char zBuf[100]
4f20: 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 59 4d 44 ;. computeYMD
4f30: 28 26 78 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 (&x);. sqlite
4f40: 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 3_snprintf(sizeo
4f50: 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 f(zBuf), zBuf, "
4f60: 25 30 34 64 2d 25 30 32 64 2d 25 30 32 64 22 2c %04d-%02d-%02d",
4f70: 20 78 2e 59 2c 20 78 2e 4d 2c 20 78 2e 44 29 3b x.Y, x.M, x.D);
4f80: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
4f90: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
4fa0: 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 , zBuf, -1, SQLI
4fb0: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 TE_TRANSIENT);.
4fc0: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 73 }.}../*.** s
4fd0: 74 72 66 74 69 6d 65 28 20 46 4f 52 4d 41 54 2c trftime( FORMAT,
4fe0: 20 54 49 4d 45 53 54 52 49 4e 47 2c 20 4d 4f 44 TIMESTRING, MOD
4ff0: 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a 2a 0a 2a , MOD, ...).**.*
5000: 2a 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e * Return a strin
5010: 67 20 64 65 73 63 72 69 62 65 64 20 62 79 20 46 g described by F
5020: 4f 52 4d 41 54 2e 20 20 43 6f 6e 76 65 72 73 69 ORMAT. Conversi
5030: 6f 6e 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a ons as follows:.
5040: 2a 2a 0a 2a 2a 20 20 20 25 64 20 20 64 61 79 20 **.** %d day
5050: 6f 66 20 6d 6f 6e 74 68 0a 2a 2a 20 20 20 25 66 of month.** %f
5060: 20 20 2a 2a 20 66 72 61 63 74 69 6f 6e 61 6c 20 ** fractional
5070: 73 65 63 6f 6e 64 73 20 20 53 53 2e 53 53 53 0a seconds SS.SSS.
5080: 2a 2a 20 20 20 25 48 20 20 68 6f 75 72 20 30 30 ** %H hour 00
5090: 2d 32 34 0a 2a 2a 20 20 20 25 6a 20 20 64 61 79 -24.** %j day
50a0: 20 6f 66 20 79 65 61 72 20 30 30 30 2d 33 36 36 of year 000-366
50b0: 0a 2a 2a 20 20 20 25 4a 20 20 2a 2a 20 4a 75 6c .** %J ** Jul
50c0: 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 0a 2a ian day number.*
50d0: 2a 20 20 20 25 6d 20 20 6d 6f 6e 74 68 20 30 31 * %m month 01
50e0: 2d 31 32 0a 2a 2a 20 20 20 25 4d 20 20 6d 69 6e -12.** %M min
50f0: 75 74 65 20 30 30 2d 35 39 0a 2a 2a 20 20 20 25 ute 00-59.** %
5100: 73 20 20 73 65 63 6f 6e 64 73 20 73 69 6e 63 65 s seconds since
5110: 20 31 39 37 30 2d 30 31 2d 30 31 0a 2a 2a 20 20 1970-01-01.**
5120: 20 25 53 20 20 73 65 63 6f 6e 64 73 20 30 30 2d %S seconds 00-
5130: 35 39 0a 2a 2a 20 20 20 25 77 20 20 64 61 79 20 59.** %w day
5140: 6f 66 20 77 65 65 6b 20 30 2d 36 20 20 73 75 6e of week 0-6 sun
5150: 64 61 79 3d 3d 30 0a 2a 2a 20 20 20 25 57 20 20 day==0.** %W
5160: 77 65 65 6b 20 6f 66 20 79 65 61 72 20 30 30 2d week of year 00-
5170: 35 33 0a 2a 2a 20 20 20 25 59 20 20 79 65 61 72 53.** %Y year
5180: 20 30 30 30 30 2d 39 39 39 39 0a 2a 2a 20 20 20 0000-9999.**
5190: 25 25 20 20 25 0a 2a 2f 0a 73 74 61 74 69 63 20 %% %.*/.static
51a0: 76 6f 69 64 20 73 74 72 66 74 69 6d 65 46 75 6e void strftimeFun
51b0: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
51c0: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
51d0: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c int argc,. sql
51e0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
51f0: 76 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 v.){. DateTime
5200: 78 3b 0a 20 20 75 36 34 20 6e 3b 0a 20 20 73 69 x;. u64 n;. si
5210: 7a 65 5f 74 20 69 2c 6a 3b 0a 20 20 63 68 61 72 ze_t i,j;. char
5220: 20 2a 7a 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a *z;. sqlite3 *
5230: 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 db;. const char
5240: 20 2a 7a 46 6d 74 20 3d 20 28 63 6f 6e 73 74 20 *zFmt = (const
5250: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 char*)sqlite3_va
5260: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d lue_text(argv[0]
5270: 29 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 31 );. char zBuf[1
5280: 30 30 5d 3b 0a 20 20 69 66 28 20 7a 46 6d 74 3d 00];. if( zFmt=
5290: 3d 30 20 7c 7c 20 69 73 44 61 74 65 28 63 6f 6e =0 || isDate(con
52a0: 74 65 78 74 2c 20 61 72 67 63 2d 31 2c 20 61 72 text, argc-1, ar
52b0: 67 76 2b 31 2c 20 26 78 29 20 29 20 72 65 74 75 gv+1, &x) ) retu
52c0: 72 6e 3b 0a 20 20 64 62 20 3d 20 73 71 6c 69 74 rn;. db = sqlit
52d0: 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61 e3_context_db_ha
52e0: 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20 ndle(context);.
52f0: 20 66 6f 72 28 69 3d 30 2c 20 6e 3d 31 3b 20 7a for(i=0, n=1; z
5300: 46 6d 74 5b 69 5d 3b 20 69 2b 2b 2c 20 6e 2b 2b Fmt[i]; i++, n++
5310: 29 7b 0a 20 20 20 20 69 66 28 20 7a 46 6d 74 5b ){. if( zFmt[
5320: 69 5d 3d 3d 27 25 27 20 29 7b 0a 20 20 20 20 20 i]=='%' ){.
5330: 20 73 77 69 74 63 68 28 20 7a 46 6d 74 5b 69 2b switch( zFmt[i+
5340: 31 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 63 61 1] ){. ca
5350: 73 65 20 27 64 27 3a 0a 20 20 20 20 20 20 20 20 se 'd':.
5360: 63 61 73 65 20 27 48 27 3a 0a 20 20 20 20 20 20 case 'H':.
5370: 20 20 63 61 73 65 20 27 6d 27 3a 0a 20 20 20 20 case 'm':.
5380: 20 20 20 20 63 61 73 65 20 27 4d 27 3a 0a 20 20 case 'M':.
5390: 20 20 20 20 20 20 63 61 73 65 20 27 53 27 3a 0a case 'S':.
53a0: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 57 27 case 'W'
53b0: 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 2b 2b 3b :. n++;
53c0: 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66 61 . /* fa
53d0: 6c 6c 20 74 68 72 75 20 2a 2f 0a 20 20 20 20 20 ll thru */.
53e0: 20 20 20 63 61 73 65 20 27 77 27 3a 0a 20 20 20 case 'w':.
53f0: 20 20 20 20 20 63 61 73 65 20 27 25 27 3a 0a 20 case '%':.
5400: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a break;.
5410: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 66 27 case 'f'
5420: 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 20 2b 3d :. n +=
5430: 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 8;. br
5440: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 eak;. cas
5450: 65 20 27 6a 27 3a 0a 20 20 20 20 20 20 20 20 20 e 'j':.
5460: 20 6e 20 2b 3d 20 33 3b 0a 20 20 20 20 20 20 20 n += 3;.
5470: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
5480: 20 20 63 61 73 65 20 27 59 27 3a 0a 20 20 20 20 case 'Y':.
5490: 20 20 20 20 20 20 6e 20 2b 3d 20 38 3b 0a 20 20 n += 8;.
54a0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
54b0: 20 20 20 20 20 20 20 63 61 73 65 20 27 73 27 3a case 's':
54c0: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 4a . case 'J
54d0: 27 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 20 2b ':. n +
54e0: 3d 20 35 30 3b 0a 20 20 20 20 20 20 20 20 20 20 = 50;.
54f0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 64 break;. d
5500: 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 20 efault:.
5510: 20 20 72 65 74 75 72 6e 3b 20 20 2f 2a 20 45 52 return; /* ER
5520: 52 4f 52 2e 20 20 72 65 74 75 72 6e 20 61 20 4e ROR. return a N
5530: 55 4c 4c 20 2a 2f 0a 20 20 20 20 20 20 7d 0a 20 ULL */. }.
5540: 20 20 20 20 20 69 2b 2b 3b 0a 20 20 20 20 7d 0a i++;. }.
5550: 20 20 7d 0a 20 20 74 65 73 74 63 61 73 65 28 20 }. testcase(
5560: 6e 3d 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d n==sizeof(zBuf)-
5570: 31 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 1 );. testcase(
5580: 20 6e 3d 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 n==sizeof(zBuf)
5590: 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20 );. testcase(
55a0: 6e 3d 3d 28 75 36 34 29 64 62 2d 3e 61 4c 69 6d n==(u64)db->aLim
55b0: 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f it[SQLITE_LIMIT_
55c0: 4c 45 4e 47 54 48 5d 2b 31 20 29 3b 0a 20 20 74 LENGTH]+1 );. t
55d0: 65 73 74 63 61 73 65 28 20 6e 3d 3d 28 75 36 34 estcase( n==(u64
55e0: 29 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 )db->aLimit[SQLI
55f0: 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d TE_LIMIT_LENGTH]
5600: 20 29 3b 0a 20 20 69 66 28 20 6e 3c 73 69 7a 65 );. if( n<size
5610: 6f 66 28 7a 42 75 66 29 20 29 7b 0a 20 20 20 20 of(zBuf) ){.
5620: 7a 20 3d 20 7a 42 75 66 3b 0a 20 20 7d 65 6c 73 z = zBuf;. }els
5630: 65 20 69 66 28 20 6e 3e 28 75 36 34 29 64 62 2d e if( n>(u64)db-
5640: 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c >aLimit[SQLITE_L
5650: 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a IMIT_LENGTH] ){.
5660: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 sqlite3_resu
5670: 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28 lt_error_toobig(
5680: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 72 65 context);. re
5690: 74 75 72 6e 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 turn;. }else{.
56a0: 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 44 62 z = sqlite3Db
56b0: 4d 61 6c 6c 6f 63 52 61 77 28 64 62 2c 20 28 69 MallocRaw(db, (i
56c0: 6e 74 29 6e 29 3b 0a 20 20 20 20 69 66 28 20 7a nt)n);. if( z
56d0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c ==0 ){. sql
56e0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f ite3_result_erro
56f0: 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78 74 29 r_nomem(context)
5700: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a ;. return;.
5710: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 63 6f 6d 70 }. }. comp
5720: 75 74 65 4a 44 28 26 78 29 3b 0a 20 20 63 6f 6d uteJD(&x);. com
5730: 70 75 74 65 59 4d 44 5f 48 4d 53 28 26 78 29 3b puteYMD_HMS(&x);
5740: 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20 7a 46 . for(i=j=0; zF
5750: 6d 74 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 mt[i]; i++){.
5760: 20 69 66 28 20 7a 46 6d 74 5b 69 5d 21 3d 27 25 if( zFmt[i]!='%
5770: 27 20 29 7b 0a 20 20 20 20 20 20 7a 5b 6a 2b 2b ' ){. z[j++
5780: 5d 20 3d 20 7a 46 6d 74 5b 69 5d 3b 0a 20 20 20 ] = zFmt[i];.
5790: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 2b }else{. i+
57a0: 2b 3b 0a 20 20 20 20 20 20 73 77 69 74 63 68 28 +;. switch(
57b0: 20 7a 46 6d 74 5b 69 5d 20 29 7b 0a 20 20 20 20 zFmt[i] ){.
57c0: 20 20 20 20 63 61 73 65 20 27 64 27 3a 20 20 73 case 'd': s
57d0: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 qlite3_snprintf(
57e0: 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 3, &z[j],"%02d",
57f0: 78 2e 44 29 3b 20 6a 2b 3d 32 3b 20 62 72 65 61 x.D); j+=2; brea
5800: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 k;. case
5810: 27 66 27 3a 20 7b 0a 20 20 20 20 20 20 20 20 20 'f': {.
5820: 20 64 6f 75 62 6c 65 20 73 20 3d 20 78 2e 73 3b double s = x.s;
5830: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 73 . if( s
5840: 3e 35 39 2e 39 39 39 20 29 20 73 20 3d 20 35 39 >59.999 ) s = 59
5850: 2e 39 39 39 3b 0a 20 20 20 20 20 20 20 20 20 20 .999;.
5860: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
5870: 28 37 2c 20 26 7a 5b 6a 5d 2c 22 25 30 36 2e 33 (7, &z[j],"%06.3
5880: 66 22 2c 20 73 29 3b 0a 20 20 20 20 20 20 20 20 f", s);.
5890: 20 20 6a 20 2b 3d 20 73 71 6c 69 74 65 33 53 74 j += sqlite3St
58a0: 72 6c 65 6e 33 30 28 26 7a 5b 6a 5d 29 3b 0a 20 rlen30(&z[j]);.
58b0: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a break;.
58c0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
58d0: 20 20 63 61 73 65 20 27 48 27 3a 20 20 73 71 6c case 'H': sql
58e0: 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 33 2c ite3_snprintf(3,
58f0: 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 78 2e &z[j],"%02d",x.
5900: 68 29 3b 20 6a 2b 3d 32 3b 20 62 72 65 61 6b 3b h); j+=2; break;
5910: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 57 . case 'W
5920: 27 3a 20 2f 2a 20 46 61 6c 6c 20 74 68 72 75 20 ': /* Fall thru
5930: 2a 2f 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 */. case
5940: 27 6a 27 3a 20 7b 0a 20 20 20 20 20 20 20 20 20 'j': {.
5950: 20 69 6e 74 20 6e 44 61 79 3b 20 20 20 20 20 20 int nDay;
5960: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
5970: 20 6f 66 20 64 61 79 73 20 73 69 6e 63 65 20 31 of days since 1
5980: 73 74 20 64 61 79 20 6f 66 20 79 65 61 72 20 2a st day of year *
5990: 2f 0a 20 20 20 20 20 20 20 20 20 20 44 61 74 65 /. Date
59a0: 54 69 6d 65 20 79 20 3d 20 78 3b 0a 20 20 20 20 Time y = x;.
59b0: 20 20 20 20 20 20 79 2e 76 61 6c 69 64 4a 44 20 y.validJD
59c0: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 79 = 0;. y
59d0: 2e 4d 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 .M = 1;.
59e0: 20 20 79 2e 44 20 3d 20 31 3b 0a 20 20 20 20 20 y.D = 1;.
59f0: 20 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 26 computeJD(&
5a00: 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 44 y);. nD
5a10: 61 79 20 3d 20 28 69 6e 74 29 28 28 78 2e 69 4a ay = (int)((x.iJ
5a20: 44 2d 79 2e 69 4a 44 2b 34 33 32 30 30 30 30 30 D-y.iJD+43200000
5a30: 29 2f 38 36 34 30 30 30 30 30 29 3b 0a 20 20 20 )/86400000);.
5a40: 20 20 20 20 20 20 20 69 66 28 20 7a 46 6d 74 5b if( zFmt[
5a50: 69 5d 3d 3d 27 57 27 20 29 7b 0a 20 20 20 20 20 i]=='W' ){.
5a60: 20 20 20 20 20 20 20 69 6e 74 20 77 64 3b 20 20 int wd;
5a70: 20 2f 2a 20 30 3d 4d 6f 6e 64 61 79 2c 20 31 3d /* 0=Monday, 1=
5a80: 54 75 65 73 64 61 79 2c 20 2e 2e 2e 20 36 3d 53 Tuesday, ... 6=S
5a90: 75 6e 64 61 79 20 2a 2f 0a 20 20 20 20 20 20 20 unday */.
5aa0: 20 20 20 20 20 77 64 20 3d 20 28 69 6e 74 29 28 wd = (int)(
5ab0: 28 28 78 2e 69 4a 44 2b 34 33 32 30 30 30 30 30 ((x.iJD+43200000
5ac0: 29 2f 38 36 34 30 30 30 30 30 29 25 37 29 3b 0a )/86400000)%7);.
5ad0: 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 sqli
5ae0: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 33 2c 20 te3_snprintf(3,
5af0: 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 28 6e 44 &z[j],"%02d",(nD
5b00: 61 79 2b 37 2d 77 64 29 2f 37 29 3b 0a 20 20 20 ay+7-wd)/7);.
5b10: 20 20 20 20 20 20 20 20 20 6a 20 2b 3d 20 32 3b j += 2;
5b20: 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c 73 65 . }else
5b30: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 71 {. sq
5b40: 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 34 lite3_snprintf(4
5b50: 2c 20 26 7a 5b 6a 5d 2c 22 25 30 33 64 22 2c 6e , &z[j],"%03d",n
5b60: 44 61 79 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 Day+1);.
5b70: 20 20 20 20 6a 20 2b 3d 20 33 3b 0a 20 20 20 20 j += 3;.
5b80: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
5b90: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 break;.
5ba0: 20 7d 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 }. case
5bb0: 27 4a 27 3a 20 7b 0a 20 20 20 20 20 20 20 20 20 'J': {.
5bc0: 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 sqlite3_snprint
5bd0: 66 28 32 30 2c 20 26 7a 5b 6a 5d 2c 22 25 2e 31 f(20, &z[j],"%.1
5be0: 36 67 22 2c 78 2e 69 4a 44 2f 38 36 34 30 30 30 6g",x.iJD/864000
5bf0: 30 30 2e 30 29 3b 0a 20 20 20 20 20 20 20 20 20 00.0);.
5c00: 20 6a 2b 3d 73 71 6c 69 74 65 33 53 74 72 6c 65 j+=sqlite3Strle
5c10: 6e 33 30 28 26 7a 5b 6a 5d 29 3b 0a 20 20 20 20 n30(&z[j]);.
5c20: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
5c30: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63 }. c
5c40: 61 73 65 20 27 6d 27 3a 20 20 73 71 6c 69 74 65 ase 'm': sqlite
5c50: 33 5f 73 6e 70 72 69 6e 74 66 28 33 2c 20 26 7a 3_snprintf(3, &z
5c60: 5b 6a 5d 2c 22 25 30 32 64 22 2c 78 2e 4d 29 3b [j],"%02d",x.M);
5c70: 20 6a 2b 3d 32 3b 20 62 72 65 61 6b 3b 0a 20 20 j+=2; break;.
5c80: 20 20 20 20 20 20 63 61 73 65 20 27 4d 27 3a 20 case 'M':
5c90: 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 sqlite3_snprint
5ca0: 66 28 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 f(3, &z[j],"%02d
5cb0: 22 2c 78 2e 6d 29 3b 20 6a 2b 3d 32 3b 20 62 72 ",x.m); j+=2; br
5cc0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 eak;. cas
5cd0: 65 20 27 73 27 3a 20 7b 0a 20 20 20 20 20 20 20 e 's': {.
5ce0: 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 sqlite3_snpri
5cf0: 6e 74 66 28 33 30 2c 26 7a 5b 6a 5d 2c 22 25 6c ntf(30,&z[j],"%l
5d00: 6c 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ld",.
5d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5d20: 28 69 36 34 29 28 78 2e 69 4a 44 2f 31 30 30 30 (i64)(x.iJD/1000
5d30: 20 2d 20 32 31 30 38 36 36 37 36 2a 28 69 36 34 - 21086676*(i64
5d40: 29 31 30 30 30 30 29 29 3b 0a 20 20 20 20 20 20 )10000));.
5d50: 20 20 20 20 6a 20 2b 3d 20 73 71 6c 69 74 65 33 j += sqlite3
5d60: 53 74 72 6c 65 6e 33 30 28 26 7a 5b 6a 5d 29 3b Strlen30(&z[j]);
5d70: 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b . break
5d80: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
5d90: 20 20 20 20 63 61 73 65 20 27 53 27 3a 20 20 73 case 'S': s
5da0: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 qlite3_snprintf(
5db0: 33 2c 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 28 3,&z[j],"%02d",(
5dc0: 69 6e 74 29 78 2e 73 29 3b 20 6a 2b 3d 32 3b 20 int)x.s); j+=2;
5dd0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 break;. c
5de0: 61 73 65 20 27 77 27 3a 20 7b 0a 20 20 20 20 20 ase 'w': {.
5df0: 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 28 63 z[j++] = (c
5e00: 68 61 72 29 28 28 28 78 2e 69 4a 44 2b 31 32 39 har)(((x.iJD+129
5e10: 36 30 30 30 30 30 29 2f 38 36 34 30 30 30 30 30 600000)/86400000
5e20: 29 20 25 20 37 29 20 2b 20 27 30 27 3b 0a 20 20 ) % 7) + '0';.
5e30: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
5e40: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
5e50: 20 63 61 73 65 20 27 59 27 3a 20 7b 0a 20 20 20 case 'Y': {.
5e60: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 sqlite3_s
5e70: 6e 70 72 69 6e 74 66 28 35 2c 26 7a 5b 6a 5d 2c nprintf(5,&z[j],
5e80: 22 25 30 34 64 22 2c 78 2e 59 29 3b 20 6a 2b 3d "%04d",x.Y); j+=
5e90: 73 71 6c 69 74 65 33 53 74 72 6c 65 6e 33 30 28 sqlite3Strlen30(
5ea0: 26 7a 5b 6a 5d 29 3b 0a 20 20 20 20 20 20 20 20 &z[j]);.
5eb0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 break;.
5ec0: 20 7d 0a 20 20 20 20 20 20 20 20 64 65 66 61 75 }. defau
5ed0: 6c 74 3a 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 27 lt: z[j++] = '
5ee0: 25 27 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 %'; break;.
5ef0: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 7a }. }. }. z
5f00: 5b 6a 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 [j] = 0;. sqlit
5f10: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 e3_result_text(c
5f20: 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 2c 0a 20 ontext, z, -1,.
5f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5f40: 20 20 20 20 20 7a 3d 3d 7a 42 75 66 20 3f 20 53 z==zBuf ? S
5f50: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 20 QLITE_TRANSIENT
5f60: 3a 20 53 51 4c 49 54 45 5f 44 59 4e 41 4d 49 43 : SQLITE_DYNAMIC
5f70: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 63 75 72 72 );.}../*.** curr
5f80: 65 6e 74 5f 74 69 6d 65 28 29 0a 2a 2a 0a 2a 2a ent_time().**.**
5f90: 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 This function r
5fa0: 65 74 75 72 6e 73 20 74 68 65 20 73 61 6d 65 20 eturns the same
5fb0: 76 61 6c 75 65 20 61 73 20 74 69 6d 65 28 27 6e value as time('n
5fc0: 6f 77 27 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 ow')..*/.static
5fd0: 76 6f 69 64 20 63 74 69 6d 65 46 75 6e 63 28 0a void ctimeFunc(.
5fe0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
5ff0: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
6000: 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73 71 6c t NotUsed,. sql
6010: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74 ite3_value **Not
6020: 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e 55 53 45 Used2.){. UNUSE
6030: 44 5f 50 41 52 41 4d 45 54 45 52 32 28 4e 6f 74 D_PARAMETER2(Not
6040: 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 32 29 3b Used, NotUsed2);
6050: 0a 20 20 74 69 6d 65 46 75 6e 63 28 63 6f 6e 74 . timeFunc(cont
6060: 65 78 74 2c 20 30 2c 20 30 29 3b 0a 7d 0a 0a 2f ext, 0, 0);.}../
6070: 2a 0a 2a 2a 20 63 75 72 72 65 6e 74 5f 64 61 74 *.** current_dat
6080: 65 28 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 e().**.** This f
6090: 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 unction returns
60a0: 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 20 61 the same value a
60b0: 73 20 64 61 74 65 28 27 6e 6f 77 27 29 2e 0a 2a s date('now')..*
60c0: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 64 /.static void cd
60d0: 61 74 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 ateFunc(. sqlit
60e0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
60f0: 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74 55 73 ext,. int NotUs
6100: 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 ed,. sqlite3_va
6110: 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 32 0a 29 lue **NotUsed2.)
6120: 7b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d {. UNUSED_PARAM
6130: 45 54 45 52 32 28 4e 6f 74 55 73 65 64 2c 20 4e ETER2(NotUsed, N
6140: 6f 74 55 73 65 64 32 29 3b 0a 20 20 64 61 74 65 otUsed2);. date
6150: 46 75 6e 63 28 63 6f 6e 74 65 78 74 2c 20 30 2c Func(context, 0,
6160: 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 63 75 0);.}../*.** cu
6170: 72 72 65 6e 74 5f 74 69 6d 65 73 74 61 6d 70 28 rrent_timestamp(
6180: 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e ).**.** This fun
6190: 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 ction returns th
61a0: 65 20 73 61 6d 65 20 76 61 6c 75 65 20 61 73 20 e same value as
61b0: 64 61 74 65 74 69 6d 65 28 27 6e 6f 77 27 29 2e datetime('now').
61c0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
61d0: 63 74 69 6d 65 73 74 61 6d 70 46 75 6e 63 28 0a ctimestampFunc(.
61e0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 sqlite3_contex
61f0: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e t *context,. in
6200: 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73 71 6c t NotUsed,. sql
6210: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74 ite3_value **Not
6220: 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e 55 53 45 Used2.){. UNUSE
6230: 44 5f 50 41 52 41 4d 45 54 45 52 32 28 4e 6f 74 D_PARAMETER2(Not
6240: 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 32 29 3b Used, NotUsed2);
6250: 0a 20 20 64 61 74 65 74 69 6d 65 46 75 6e 63 28 . datetimeFunc(
6260: 63 6f 6e 74 65 78 74 2c 20 30 2c 20 30 29 3b 0a context, 0, 0);.
6270: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 21 64 65 66 }.#endif /* !def
6280: 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d 49 54 ined(SQLITE_OMIT
6290: 5f 44 41 54 45 54 49 4d 45 5f 46 55 4e 43 53 29 _DATETIME_FUNCS)
62a0: 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 */..#ifdef SQLI
62b0: 54 45 5f 4f 4d 49 54 5f 44 41 54 45 54 49 4d 45 TE_OMIT_DATETIME
62c0: 5f 46 55 4e 43 53 0a 2f 2a 0a 2a 2a 20 49 66 20 _FUNCS./*.** If
62d0: 74 68 65 20 6c 69 62 72 61 72 79 20 69 73 20 63 the library is c
62e0: 6f 6d 70 69 6c 65 64 20 74 6f 20 6f 6d 69 74 20 ompiled to omit
62f0: 74 68 65 20 66 75 6c 6c 2d 73 63 61 6c 65 20 64 the full-scale d
6300: 61 74 65 20 61 6e 64 20 74 69 6d 65 0a 2a 2a 20 ate and time.**
6310: 68 61 6e 64 6c 69 6e 67 20 28 74 6f 20 67 65 74 handling (to get
6320: 20 61 20 73 6d 61 6c 6c 65 72 20 62 69 6e 61 72 a smaller binar
6330: 79 29 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e y), the followin
6340: 67 20 6d 69 6e 69 6d 61 6c 20 76 65 72 73 69 6f g minimal versio
6350: 6e 0a 2a 2a 20 6f 66 20 74 68 65 20 66 75 6e 63 n.** of the func
6360: 74 69 6f 6e 73 20 63 75 72 72 65 6e 74 5f 74 69 tions current_ti
6370: 6d 65 28 29 2c 20 63 75 72 72 65 6e 74 5f 64 61 me(), current_da
6380: 74 65 28 29 20 61 6e 64 20 63 75 72 72 65 6e 74 te() and current
6390: 5f 74 69 6d 65 73 74 61 6d 70 28 29 0a 2a 2a 20 _timestamp().**
63a0: 61 72 65 20 69 6e 63 6c 75 64 65 64 20 69 6e 73 are included ins
63b0: 74 65 61 64 2e 20 54 68 69 73 20 69 73 20 74 6f tead. This is to
63c0: 20 73 75 70 70 6f 72 74 20 63 6f 6c 75 6d 6e 20 support column
63d0: 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 74 68 61 declarations tha
63e0: 74 0a 2a 2a 20 69 6e 63 6c 75 64 65 20 22 44 45 t.** include "DE
63f0: 46 41 55 4c 54 20 43 55 52 52 45 4e 54 5f 54 49 FAULT CURRENT_TI
6400: 4d 45 22 20 65 74 63 2e 0a 2a 2a 0a 2a 2a 20 54 ME" etc..**.** T
6410: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 his function use
6420: 73 20 74 68 65 20 43 2d 6c 69 62 72 61 72 79 20 s the C-library
6430: 66 75 6e 63 74 69 6f 6e 73 20 74 69 6d 65 28 29 functions time()
6440: 2c 20 67 6d 74 69 6d 65 28 29 0a 2a 2a 20 61 6e , gmtime().** an
6450: 64 20 73 74 72 66 74 69 6d 65 28 29 2e 20 54 68 d strftime(). Th
6460: 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 e format string
6470: 74 6f 20 70 61 73 73 20 74 6f 20 73 74 72 66 74 to pass to strft
6480: 69 6d 65 28 29 20 69 73 20 73 75 70 70 6c 69 65 ime() is supplie
6490: 64 0a 2a 2a 20 61 73 20 74 68 65 20 75 73 65 72 d.** as the user
64a0: 2d 64 61 74 61 20 66 6f 72 20 74 68 65 20 66 75 -data for the fu
64b0: 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61 74 69 nction..*/.stati
64c0: 63 20 76 6f 69 64 20 63 75 72 72 65 6e 74 54 69 c void currentTi
64d0: 6d 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 meFunc(. sqlite
64e0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 3_context *conte
64f0: 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a xt,. int argc,.
6500: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 sqlite3_value
6510: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 74 69 6d 65 **argv.){. time
6520: 5f 74 20 74 3b 0a 20 20 63 68 61 72 20 2a 7a 46 _t t;. char *zF
6530: 6f 72 6d 61 74 20 3d 20 28 63 68 61 72 20 2a 29 ormat = (char *)
6540: 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 sqlite3_user_dat
6550: 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 a(context);. sq
6560: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 64 6f 75 lite3 *db;. dou
6570: 62 6c 65 20 72 54 3b 0a 20 20 63 68 61 72 20 7a ble rT;. char z
6580: 42 75 66 5b 32 30 5d 3b 0a 0a 20 20 55 4e 55 53 Buf[20];.. UNUS
6590: 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 ED_PARAMETER(arg
65a0: 63 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 c);. UNUSED_PAR
65b0: 41 4d 45 54 45 52 28 61 72 67 76 29 3b 0a 0a 20 AMETER(argv);..
65c0: 20 64 62 20 3d 20 73 71 6c 69 74 65 33 5f 63 6f db = sqlite3_co
65d0: 6e 74 65 78 74 5f 64 62 5f 68 61 6e 64 6c 65 28 ntext_db_handle(
65e0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 73 71 6c 69 context);. sqli
65f0: 74 65 33 4f 73 43 75 72 72 65 6e 74 54 69 6d 65 te3OsCurrentTime
6600: 28 64 62 2d 3e 70 56 66 73 2c 20 26 72 54 29 3b (db->pVfs, &rT);
6610: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f .#ifndef SQLITE_
6620: 4f 4d 49 54 5f 46 4c 4f 41 54 49 4e 47 5f 50 4f OMIT_FLOATING_PO
6630: 49 4e 54 0a 20 20 74 20 3d 20 38 36 34 30 30 2e INT. t = 86400.
6640: 30 2a 28 72 54 20 2d 20 32 34 34 30 35 38 37 2e 0*(rT - 2440587.
6650: 35 29 20 2b 20 30 2e 35 3b 0a 23 65 6c 73 65 0a 5) + 0.5;.#else.
6660: 20 20 2f 2a 20 77 69 74 68 6f 75 74 20 66 6c 6f /* without flo
6670: 61 74 69 6e 67 20 70 6f 69 6e 74 20 73 75 70 70 ating point supp
6680: 6f 72 74 2c 20 72 54 20 77 69 6c 6c 20 68 61 76 ort, rT will hav
6690: 65 0a 20 20 2a 2a 20 61 6c 72 65 61 64 79 20 6c e. ** already l
66a0: 6f 73 74 20 66 72 61 63 74 69 6f 6e 61 6c 20 64 ost fractional d
66b0: 61 79 20 70 72 65 63 69 73 69 6f 6e 2e 0a 20 20 ay precision..
66c0: 2a 2f 0a 20 20 74 20 3d 20 38 36 34 30 30 20 2a */. t = 86400 *
66d0: 20 28 72 54 20 2d 20 32 34 34 30 35 38 37 29 20 (rT - 2440587)
66e0: 2d 20 34 33 32 30 30 3b 0a 23 65 6e 64 69 66 0a - 43200;.#endif.
66f0: 23 69 66 64 65 66 20 48 41 56 45 5f 47 4d 54 49 #ifdef HAVE_GMTI
6700: 4d 45 5f 52 0a 20 20 7b 0a 20 20 20 20 73 74 72 ME_R. {. str
6710: 75 63 74 20 74 6d 20 73 4e 6f 77 3b 0a 20 20 20 uct tm sNow;.
6720: 20 67 6d 74 69 6d 65 5f 72 28 26 74 2c 20 26 73 gmtime_r(&t, &s
6730: 4e 6f 77 29 3b 0a 20 20 20 20 73 74 72 66 74 69 Now);. strfti
6740: 6d 65 28 7a 42 75 66 2c 20 32 30 2c 20 7a 46 6f me(zBuf, 20, zFo
6750: 72 6d 61 74 2c 20 26 73 4e 6f 77 29 3b 0a 20 20 rmat, &sNow);.
6760: 7d 0a 23 65 6c 73 65 0a 20 20 7b 0a 20 20 20 20 }.#else. {.
6770: 73 74 72 75 63 74 20 74 6d 20 2a 70 54 6d 3b 0a struct tm *pTm;.
6780: 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 sqlite3_mute
6790: 78 5f 65 6e 74 65 72 28 73 71 6c 69 74 65 33 4d x_enter(sqlite3M
67a0: 75 74 65 78 41 6c 6c 6f 63 28 53 51 4c 49 54 45 utexAlloc(SQLITE
67b0: 5f 4d 55 54 45 58 5f 53 54 41 54 49 43 5f 4d 41 _MUTEX_STATIC_MA
67c0: 53 54 45 52 29 29 3b 0a 20 20 20 20 70 54 6d 20 STER));. pTm
67d0: 3d 20 67 6d 74 69 6d 65 28 26 74 29 3b 0a 20 20 = gmtime(&t);.
67e0: 20 20 73 74 72 66 74 69 6d 65 28 7a 42 75 66 2c strftime(zBuf,
67f0: 20 32 30 2c 20 7a 46 6f 72 6d 61 74 2c 20 70 54 20, zFormat, pT
6800: 6d 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f m);. sqlite3_
6810: 6d 75 74 65 78 5f 6c 65 61 76 65 28 73 71 6c 69 mutex_leave(sqli
6820: 74 65 33 4d 75 74 65 78 41 6c 6c 6f 63 28 53 51 te3MutexAlloc(SQ
6830: 4c 49 54 45 5f 4d 55 54 45 58 5f 53 54 41 54 49 LITE_MUTEX_STATI
6840: 43 5f 4d 41 53 54 45 52 29 29 3b 0a 20 20 7d 0a C_MASTER));. }.
6850: 23 65 6e 64 69 66 0a 0a 20 20 73 71 6c 69 74 65 #endif.. sqlite
6860: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 3_result_text(co
6870: 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20 2d 31 2c ntext, zBuf, -1,
6880: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e SQLITE_TRANSIEN
6890: 54 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a T);.}.#endif../*
68a0: 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f .** This functio
68b0: 6e 20 72 65 67 69 73 74 65 72 65 64 20 61 6c 6c n registered all
68c0: 20 6f 66 20 74 68 65 20 61 62 6f 76 65 20 43 20 of the above C
68d0: 66 75 6e 63 74 69 6f 6e 73 20 61 73 20 53 51 4c functions as SQL
68e0: 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e 73 2e 20 20 .** functions.
68f0: 54 68 69 73 20 73 68 6f 75 6c 64 20 62 65 20 74 This should be t
6900: 68 65 20 6f 6e 6c 79 20 72 6f 75 74 69 6e 65 20 he only routine
6910: 69 6e 20 74 68 69 73 20 66 69 6c 65 20 77 69 74 in this file wit
6920: 68 0a 2a 2a 20 65 78 74 65 72 6e 61 6c 20 6c 69 h.** external li
6930: 6e 6b 61 67 65 2e 0a 2a 2f 0a 76 6f 69 64 20 73 nkage..*/.void s
6940: 71 6c 69 74 65 33 52 65 67 69 73 74 65 72 44 61 qlite3RegisterDa
6950: 74 65 54 69 6d 65 46 75 6e 63 74 69 6f 6e 73 28 teTimeFunctions(
6960: 76 6f 69 64 29 7b 0a 20 20 73 74 61 74 69 63 20 void){. static
6970: 53 51 4c 49 54 45 5f 57 53 44 20 46 75 6e 63 44 SQLITE_WSD FuncD
6980: 65 66 20 61 44 61 74 65 54 69 6d 65 46 75 6e 63 ef aDateTimeFunc
6990: 73 5b 5d 20 3d 20 7b 0a 23 69 66 6e 64 65 66 20 s[] = {.#ifndef
69a0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 41 54 45 SQLITE_OMIT_DATE
69b0: 54 49 4d 45 5f 46 55 4e 43 53 0a 20 20 20 20 46 TIME_FUNCS. F
69c0: 55 4e 43 54 49 4f 4e 28 6a 75 6c 69 61 6e 64 61 UNCTION(julianda
69d0: 79 2c 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c y, -1, 0,
69e0: 20 30 2c 20 6a 75 6c 69 61 6e 64 61 79 46 75 6e 0, juliandayFun
69f0: 63 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f c ),. FUNCTIO
6a00: 4e 28 64 61 74 65 2c 20 20 20 20 20 20 20 20 20 N(date,
6a10: 20 20 20 20 2d 31 2c 20 30 2c 20 30 2c 20 64 61 -1, 0, 0, da
6a20: 74 65 46 75 6e 63 20 20 20 20 20 20 29 2c 0a 20 teFunc ),.
6a30: 20 20 20 46 55 4e 43 54 49 4f 4e 28 74 69 6d 65 FUNCTION(time
6a40: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 , -1
6a50: 2c 20 30 2c 20 30 2c 20 74 69 6d 65 46 75 6e 63 , 0, 0, timeFunc
6a60: 20 20 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e ),. FUN
6a70: 43 54 49 4f 4e 28 64 61 74 65 74 69 6d 65 2c 20 CTION(datetime,
6a80: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30 -1, 0, 0
6a90: 2c 20 64 61 74 65 74 69 6d 65 46 75 6e 63 20 20 , datetimeFunc
6aa0: 29 2c 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 ),. FUNCTION(
6ab0: 73 74 72 66 74 69 6d 65 2c 20 20 20 20 20 20 20 strftime,
6ac0: 20 20 2d 31 2c 20 30 2c 20 30 2c 20 73 74 72 66 -1, 0, 0, strf
6ad0: 74 69 6d 65 46 75 6e 63 20 20 29 2c 0a 20 20 20 timeFunc ),.
6ae0: 20 46 55 4e 43 54 49 4f 4e 28 63 75 72 72 65 6e FUNCTION(curren
6af0: 74 5f 74 69 6d 65 2c 20 20 20 20 20 20 30 2c 20 t_time, 0,
6b00: 30 2c 20 30 2c 20 63 74 69 6d 65 46 75 6e 63 20 0, 0, ctimeFunc
6b10: 20 20 20 20 29 2c 0a 20 20 20 20 46 55 4e 43 54 ),. FUNCT
6b20: 49 4f 4e 28 63 75 72 72 65 6e 74 5f 74 69 6d 65 ION(current_time
6b30: 73 74 61 6d 70 2c 20 30 2c 20 30 2c 20 30 2c 20 stamp, 0, 0, 0,
6b40: 63 74 69 6d 65 73 74 61 6d 70 46 75 6e 63 29 2c ctimestampFunc),
6b50: 0a 20 20 20 20 46 55 4e 43 54 49 4f 4e 28 63 75 . FUNCTION(cu
6b60: 72 72 65 6e 74 5f 64 61 74 65 2c 20 20 20 20 20 rrent_date,
6b70: 20 30 2c 20 30 2c 20 30 2c 20 63 64 61 74 65 46 0, 0, 0, cdateF
6b80: 75 6e 63 20 20 20 20 20 29 2c 0a 23 65 6c 73 65 unc ),.#else
6b90: 0a 20 20 20 20 53 54 52 5f 46 55 4e 43 54 49 4f . STR_FUNCTIO
6ba0: 4e 28 63 75 72 72 65 6e 74 5f 74 69 6d 65 2c 20 N(current_time,
6bb0: 20 20 20 20 20 30 2c 20 22 25 48 3a 25 4d 3a 25 0, "%H:%M:%
6bc0: 53 22 2c 20 20 20 20 20 20 20 20 20 20 30 2c 20 S", 0,
6bd0: 63 75 72 72 65 6e 74 54 69 6d 65 46 75 6e 63 29 currentTimeFunc)
6be0: 2c 0a 20 20 20 20 53 54 52 5f 46 55 4e 43 54 49 ,. STR_FUNCTI
6bf0: 4f 4e 28 63 75 72 72 65 6e 74 5f 74 69 6d 65 73 ON(current_times
6c00: 74 61 6d 70 2c 20 30 2c 20 22 25 59 2d 25 6d 2d tamp, 0, "%Y-%m-
6c10: 25 64 22 2c 20 20 20 20 20 20 20 20 20 20 30 2c %d", 0,
6c20: 20 63 75 72 72 65 6e 74 54 69 6d 65 46 75 6e 63 currentTimeFunc
6c30: 29 2c 0a 20 20 20 20 53 54 52 5f 46 55 4e 43 54 ),. STR_FUNCT
6c40: 49 4f 4e 28 63 75 72 72 65 6e 74 5f 64 61 74 65 ION(current_date
6c50: 2c 20 20 20 20 20 20 30 2c 20 22 25 59 2d 25 6d , 0, "%Y-%m
6c60: 2d 25 64 20 25 48 3a 25 4d 3a 25 53 22 2c 20 30 -%d %H:%M:%S", 0
6c70: 2c 20 63 75 72 72 65 6e 74 54 69 6d 65 46 75 6e , currentTimeFun
6c80: 63 29 2c 0a 23 65 6e 64 69 66 0a 20 20 7d 3b 0a c),.#endif. };.
6c90: 20 20 69 6e 74 20 69 3b 0a 20 20 46 75 6e 63 44 int i;. FuncD
6ca0: 65 66 48 61 73 68 20 2a 70 48 61 73 68 20 3d 20 efHash *pHash =
6cb0: 26 47 4c 4f 42 41 4c 28 46 75 6e 63 44 65 66 48 &GLOBAL(FuncDefH
6cc0: 61 73 68 2c 20 73 71 6c 69 74 65 33 47 6c 6f 62 ash, sqlite3Glob
6cd0: 61 6c 46 75 6e 63 74 69 6f 6e 73 29 3b 0a 20 20 alFunctions);.
6ce0: 46 75 6e 63 44 65 66 20 2a 61 46 75 6e 63 20 3d FuncDef *aFunc =
6cf0: 20 28 46 75 6e 63 44 65 66 2a 29 26 47 4c 4f 42 (FuncDef*)&GLOB
6d00: 41 4c 28 46 75 6e 63 44 65 66 2c 20 61 44 61 74 AL(FuncDef, aDat
6d10: 65 54 69 6d 65 46 75 6e 63 73 29 3b 0a 0a 20 20 eTimeFuncs);..
6d20: 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79 for(i=0; i<Array
6d30: 53 69 7a 65 28 61 44 61 74 65 54 69 6d 65 46 75 Size(aDateTimeFu
6d40: 6e 63 73 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 ncs); i++){.
6d50: 73 71 6c 69 74 65 33 46 75 6e 63 44 65 66 49 6e sqlite3FuncDefIn
6d60: 73 65 72 74 28 70 48 61 73 68 2c 20 26 61 46 75 sert(pHash, &aFu
6d70: 6e 63 5b 69 5d 29 3b 0a 20 20 7d 0a 7d 0a nc[i]);. }.}.