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 53 51 4c 69 74 65 20 70 72 6f **.** SQLite pro
0290: 63 65 73 73 65 73 20 61 6c 6c 20 74 69 6d 65 73 cesses all times
02a0: 20 61 6e 64 20 64 61 74 65 73 20 61 73 20 6a 75 and dates as ju
02b0: 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 73 lian day numbers
02c0: 2e 20 20 54 68 65 0a 2a 2a 20 64 61 74 65 73 20 . The.** dates
02d0: 61 6e 64 20 74 69 6d 65 73 20 61 72 65 20 73 74 and times are st
02e0: 6f 72 65 64 20 61 73 20 74 68 65 20 6e 75 6d 62 ored as the numb
02f0: 65 72 20 6f 66 20 64 61 79 73 20 73 69 6e 63 65 er of days since
0300: 20 6e 6f 6f 6e 0a 2a 2a 20 69 6e 20 47 72 65 65 noon.** in Gree
0310: 6e 77 69 63 68 20 6f 6e 20 4e 6f 76 65 6d 62 65 nwich on Novembe
0320: 72 20 32 34 2c 20 34 37 31 34 20 42 2e 43 2e 20 r 24, 4714 B.C.
0330: 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 according to the
0340: 20 47 72 65 67 6f 72 69 61 6e 0a 2a 2a 20 63 61 Gregorian.** ca
0350: 6c 65 6e 64 61 72 20 73 79 73 74 65 6d 2e 20 0a lendar system. .
0360: 2a 2a 0a 2a 2a 20 31 39 37 30 2d 30 31 2d 30 31 **.** 1970-01-01
0370: 20 30 30 3a 30 30 3a 30 30 20 69 73 20 4a 44 20 00:00:00 is JD
0380: 32 34 34 30 35 38 37 2e 35 0a 2a 2a 20 32 30 30 2440587.5.** 200
0390: 30 2d 30 31 2d 30 31 20 30 30 3a 30 30 3a 30 30 0-01-01 00:00:00
03a0: 20 69 73 20 4a 44 20 32 34 35 31 35 34 34 2e 35 is JD 2451544.5
03b0: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 69 6d 70 6c .**.** This impl
03c0: 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 71 75 69 ementation requi
03d0: 72 65 73 20 79 65 61 72 73 20 74 6f 20 62 65 20 res years to be
03e0: 65 78 70 72 65 73 73 65 64 20 61 73 20 61 20 34 expressed as a 4
03f0: 2d 64 69 67 69 74 20 6e 75 6d 62 65 72 0a 2a 2a -digit number.**
0400: 20 77 68 69 63 68 20 6d 65 61 6e 73 20 74 68 61 which means tha
0410: 74 20 6f 6e 6c 79 20 64 61 74 65 73 20 62 65 74 t only dates bet
0420: 77 65 65 6e 20 30 30 30 30 2d 30 31 2d 30 31 20 ween 0000-01-01
0430: 61 6e 64 20 39 39 39 39 2d 31 32 2d 33 31 20 63 and 9999-12-31 c
0440: 61 6e 0a 2a 2a 20 62 65 20 72 65 70 72 65 73 65 an.** be represe
0450: 6e 74 65 64 2c 20 65 76 65 6e 20 74 68 6f 75 67 nted, even thoug
0460: 68 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d h julian day num
0470: 62 65 72 73 20 61 6c 6c 6f 77 20 61 20 6d 75 63 bers allow a muc
0480: 68 20 77 69 64 65 72 0a 2a 2a 20 72 61 6e 67 65 h wider.** range
0490: 20 6f 66 20 64 61 74 65 73 2e 0a 2a 2a 0a 2a 2a of dates..**.**
04a0: 20 54 68 65 20 47 72 65 67 6f 72 69 61 6e 20 63 The Gregorian c
04b0: 61 6c 65 6e 64 61 72 20 73 79 73 74 65 6d 20 69 alendar system i
04c0: 73 20 75 73 65 64 20 66 6f 72 20 61 6c 6c 20 64 s used for all d
04d0: 61 74 65 73 20 61 6e 64 20 74 69 6d 65 73 2c 0a ates and times,.
04e0: 2a 2a 20 65 76 65 6e 20 74 68 6f 73 65 20 74 68 ** even those th
04f0: 61 74 20 70 72 65 64 61 74 65 20 74 68 65 20 47 at predate the G
0500: 72 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e 64 61 regorian calenda
0510: 72 2e 20 20 48 69 73 74 6f 72 69 61 6e 73 20 75 r. Historians u
0520: 73 75 61 6c 6c 79 0a 2a 2a 20 75 73 65 20 74 68 sually.** use th
0530: 65 20 6a 75 6c 69 61 6e 20 63 61 6c 65 6e 64 61 e julian calenda
0540: 72 20 66 6f 72 20 64 61 74 65 73 20 70 72 69 6f r for dates prio
0550: 72 20 74 6f 20 31 35 38 32 2d 31 30 2d 31 35 20 r to 1582-10-15
0560: 61 6e 64 20 66 6f 72 20 73 6f 6d 65 0a 2a 2a 20 and for some.**
0570: 64 61 74 65 73 20 61 66 74 65 72 77 61 72 64 73 dates afterwards
0580: 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 6c , depending on l
0590: 6f 63 61 6c 65 2e 20 20 42 65 77 61 72 65 20 6f ocale. Beware o
05a0: 66 20 74 68 69 73 20 64 69 66 66 65 72 65 6e 63 f this differenc
05b0: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e e..**.** The con
05c0: 76 65 72 73 69 6f 6e 20 61 6c 67 6f 72 69 74 68 version algorith
05d0: 6d 73 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 ms are implement
05e0: 65 64 20 62 61 73 65 64 20 6f 6e 20 64 65 73 63 ed based on desc
05f0: 72 69 70 74 69 6f 6e 73 0a 2a 2a 20 69 6e 20 74 riptions.** in t
0600: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 65 78 he following tex
0610: 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 4a 65 t:.**.** Je
0620: 61 6e 20 4d 65 65 75 73 0a 2a 2a 20 20 20 20 20 an Meeus.**
0630: 20 41 73 74 72 6f 6e 6f 6d 69 63 61 6c 20 41 6c Astronomical Al
0640: 67 6f 72 69 74 68 6d 73 2c 20 32 6e 64 20 45 64 gorithms, 2nd Ed
0650: 69 74 69 6f 6e 2c 20 31 39 39 38 0a 2a 2a 20 20 ition, 1998.**
0660: 20 20 20 20 49 53 42 4d 20 30 2d 39 34 33 33 39 ISBM 0-94339
0670: 36 2d 36 31 2d 31 0a 2a 2a 20 20 20 20 20 20 57 6-61-1.** W
0680: 69 6c 6c 6d 61 6e 6e 2d 42 65 6c 6c 2c 20 49 6e illmann-Bell, In
0690: 63 0a 2a 2a 20 20 20 20 20 20 52 69 63 68 6d 6f c.** Richmo
06a0: 6e 64 2c 20 56 69 72 67 69 6e 69 61 20 28 55 53 nd, Virginia (US
06b0: 41 29 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 A).*/.#include "
06c0: 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e sqliteInt.h".#in
06d0: 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e clude <stdlib.h>
06e0: 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 .#include <asser
06f0: 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 74 t.h>.#include <t
0700: 69 6d 65 2e 68 3e 0a 0a 23 69 66 6e 64 65 66 20 ime.h>..#ifndef
0710: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 41 54 45 SQLITE_OMIT_DATE
0720: 54 49 4d 45 5f 46 55 4e 43 53 0a 0a 0a 2f 2a 0a TIME_FUNCS.../*.
0730: 2a 2a 20 41 20 73 74 72 75 63 74 75 72 65 20 66 ** A structure f
0740: 6f 72 20 68 6f 6c 64 69 6e 67 20 61 20 73 69 6e or holding a sin
0750: 67 6c 65 20 64 61 74 65 20 61 6e 64 20 74 69 6d gle date and tim
0760: 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 e..*/.typedef st
0770: 72 75 63 74 20 44 61 74 65 54 69 6d 65 20 44 61 ruct DateTime Da
0780: 74 65 54 69 6d 65 3b 0a 73 74 72 75 63 74 20 44 teTime;.struct D
0790: 61 74 65 54 69 6d 65 20 7b 0a 20 20 73 71 6c 69 ateTime {. sqli
07a0: 74 65 33 5f 69 6e 74 36 34 20 69 4a 44 3b 20 2f te3_int64 iJD; /
07b0: 2a 20 54 68 65 20 6a 75 6c 69 61 6e 20 64 61 79 * The julian day
07c0: 20 6e 75 6d 62 65 72 20 74 69 6d 65 73 20 38 36 number times 86
07d0: 34 30 30 30 30 30 20 2a 2f 0a 20 20 69 6e 74 20 400000 */. int
07e0: 59 2c 20 4d 2c 20 44 3b 20 20 20 20 20 20 20 2f Y, M, D; /
07f0: 2a 20 59 65 61 72 2c 20 6d 6f 6e 74 68 2c 20 61 * Year, month, a
0800: 6e 64 20 64 61 79 20 2a 2f 0a 20 20 69 6e 74 20 nd day */. int
0810: 68 2c 20 6d 3b 20 20 20 20 20 20 20 20 20 20 2f h, m; /
0820: 2a 20 48 6f 75 72 20 61 6e 64 20 6d 69 6e 75 74 * Hour and minut
0830: 65 73 20 2a 2f 0a 20 20 69 6e 74 20 74 7a 3b 20 es */. int tz;
0840: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 69 /* Ti
0850: 6d 65 7a 6f 6e 65 20 6f 66 66 73 65 74 20 69 6e mezone offset in
0860: 20 6d 69 6e 75 74 65 73 20 2a 2f 0a 20 20 64 6f minutes */. do
0870: 75 62 6c 65 20 73 3b 20 20 20 20 20 20 20 20 20 uble s;
0880: 20 2f 2a 20 53 65 63 6f 6e 64 73 20 2a 2f 0a 20 /* Seconds */.
0890: 20 63 68 61 72 20 76 61 6c 69 64 59 4d 44 3b 20 char validYMD;
08a0: 20 20 20 20 2f 2a 20 54 72 75 65 20 28 31 29 20 /* True (1)
08b0: 69 66 20 59 2c 4d 2c 44 20 61 72 65 20 76 61 6c if Y,M,D are val
08c0: 69 64 20 2a 2f 0a 20 20 63 68 61 72 20 76 61 6c id */. char val
08d0: 69 64 48 4d 53 3b 20 20 20 20 20 2f 2a 20 54 72 idHMS; /* Tr
08e0: 75 65 20 28 31 29 20 69 66 20 68 2c 6d 2c 73 20 ue (1) if h,m,s
08f0: 61 72 65 20 76 61 6c 69 64 20 2a 2f 0a 20 20 63 are valid */. c
0900: 68 61 72 20 76 61 6c 69 64 4a 44 3b 20 20 20 20 har validJD;
0910: 20 20 2f 2a 20 54 72 75 65 20 28 31 29 20 69 66 /* True (1) if
0920: 20 69 4a 44 20 69 73 20 76 61 6c 69 64 20 2a 2f iJD is valid */
0930: 0a 20 20 63 68 61 72 20 76 61 6c 69 64 54 5a 3b . char validTZ;
0940: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 28 31 /* True (1
0950: 29 20 69 66 20 74 7a 20 69 73 20 76 61 6c 69 64 ) if tz is valid
0960: 20 2a 2f 0a 20 20 63 68 61 72 20 74 7a 53 65 74 */. char tzSet
0970: 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 69 6d 65 ; /* Time
0980: 7a 6f 6e 65 20 77 61 73 20 73 65 74 20 65 78 70 zone was set exp
0990: 6c 69 63 69 74 6c 79 20 2a 2f 0a 7d 3b 0a 0a 0a licitly */.};...
09a0: 2f 2a 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 7a 44 /*.** Convert zD
09b0: 61 74 65 20 69 6e 74 6f 20 6f 6e 65 20 6f 72 20 ate into one or
09c0: 6d 6f 72 65 20 69 6e 74 65 67 65 72 73 20 61 63 more integers ac
09d0: 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 63 cording to the c
09e0: 6f 6e 76 65 72 73 69 6f 6e 0a 2a 2a 20 73 70 65 onversion.** spe
09f0: 63 69 66 69 65 72 20 7a 46 6f 72 6d 61 74 2e 0a cifier zFormat..
0a00: 2a 2a 0a 2a 2a 20 7a 46 6f 72 6d 61 74 5b 5d 20 **.** zFormat[]
0a10: 63 6f 6e 74 61 69 6e 73 20 34 20 63 68 61 72 61 contains 4 chara
0a20: 63 74 65 72 73 20 66 6f 72 20 65 61 63 68 20 69 cters for each i
0a30: 6e 74 65 67 65 72 20 63 6f 6e 76 65 72 74 65 64 nteger converted
0a40: 2c 20 65 78 63 65 70 74 20 66 6f 72 0a 2a 2a 20 , except for.**
0a50: 74 68 65 20 6c 61 73 74 20 69 6e 74 65 67 65 72 the last integer
0a60: 20 77 68 69 63 68 20 69 73 20 73 70 65 63 69 66 which is specif
0a70: 69 65 64 20 62 79 20 74 68 72 65 65 20 63 68 61 ied by three cha
0a80: 72 61 63 74 65 72 73 2e 20 20 54 68 65 20 6d 65 racters. The me
0a90: 61 6e 69 6e 67 0a 2a 2a 20 6f 66 20 61 20 66 6f aning.** of a fo
0aa0: 75 72 2d 63 68 61 72 61 63 74 65 72 20 66 6f 72 ur-character for
0ab0: 6d 61 74 20 73 70 65 63 69 66 69 65 72 73 20 41 mat specifiers A
0ac0: 42 43 44 20 69 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 BCD is:.**.**
0ad0: 20 41 3a 20 20 20 6e 75 6d 62 65 72 20 6f 66 20 A: number of
0ae0: 64 69 67 69 74 73 20 74 6f 20 63 6f 6e 76 65 72 digits to conver
0af0: 74 2e 20 20 41 6c 77 61 79 73 20 22 32 22 20 6f t. Always "2" o
0b00: 72 20 22 34 22 2e 0a 2a 2a 20 20 20 20 42 3a 20 r "4"..** B:
0b10: 20 20 6d 69 6e 69 6d 75 6d 20 76 61 6c 75 65 2e minimum value.
0b20: 20 20 41 6c 77 61 79 73 20 22 30 22 20 6f 72 20 Always "0" or
0b30: 22 31 22 2e 0a 2a 2a 20 20 20 20 43 3a 20 20 20 "1"..** C:
0b40: 6d 61 78 69 6d 75 6d 20 76 61 6c 75 65 2c 20 64 maximum value, d
0b50: 65 63 6f 64 65 64 20 61 73 3a 0a 2a 2a 20 20 20 ecoded as:.**
0b60: 20 20 20 20 20 20 20 20 61 3a 20 20 31 32 0a 2a a: 12.*
0b70: 2a 20 20 20 20 20 20 20 20 20 20 20 62 3a 20 20 * b:
0b80: 31 34 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 14.**
0b90: 63 3a 20 20 32 34 0a 2a 2a 20 20 20 20 20 20 20 c: 24.**
0ba0: 20 20 20 20 64 3a 20 20 33 31 0a 2a 2a 20 20 20 d: 31.**
0bb0: 20 20 20 20 20 20 20 20 65 3a 20 20 35 39 0a 2a e: 59.*
0bc0: 2a 20 20 20 20 20 20 20 20 20 20 20 66 3a 20 20 * f:
0bd0: 39 39 39 39 0a 2a 2a 20 20 20 20 44 3a 20 20 20 9999.** D:
0be0: 74 68 65 20 73 65 70 61 72 61 74 6f 72 20 63 68 the separator ch
0bf0: 61 72 61 63 74 65 72 2c 20 6f 72 20 5c 30 30 30 aracter, or \000
0c00: 20 74 6f 20 69 6e 64 69 63 61 74 65 20 74 68 69 to indicate thi
0c10: 73 20 69 73 20 74 68 65 0a 2a 2a 20 20 20 20 20 s is the.**
0c20: 20 20 20 20 6c 61 73 74 20 6e 75 6d 62 65 72 20 last number
0c30: 74 6f 20 63 6f 6e 76 65 72 74 2e 0a 2a 2a 0a 2a to convert..**.*
0c40: 2a 20 45 78 61 6d 70 6c 65 3a 20 20 54 6f 20 74 * Example: To t
0c50: 72 61 6e 73 6c 61 74 65 20 61 6e 20 49 53 4f 2d ranslate an ISO-
0c60: 38 36 30 31 20 64 61 74 65 20 59 59 59 59 2d 4d 8601 date YYYY-M
0c70: 4d 2d 44 44 2c 20 74 68 65 20 66 6f 72 6d 61 74 M-DD, the format
0c80: 20 77 6f 75 6c 64 0a 2a 2a 20 62 65 20 22 34 30 would.** be "40
0c90: 66 2d 32 31 61 2d 32 30 63 22 2e 20 20 54 68 65 f-21a-20c". The
0ca0: 20 22 34 30 66 2d 22 20 69 6e 64 69 63 61 74 65 "40f-" indicate
0cb0: 73 20 74 68 65 20 34 2d 64 69 67 69 74 20 79 65 s the 4-digit ye
0cc0: 61 72 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 22 ar followed by "
0cd0: 2d 22 2e 0a 2a 2a 20 54 68 65 20 22 32 31 61 2d -"..** The "21a-
0ce0: 22 20 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 " indicates the
0cf0: 32 2d 64 69 67 69 74 20 6d 6f 6e 74 68 20 66 6f 2-digit month fo
0d00: 6c 6c 6f 77 65 64 20 62 79 20 22 2d 22 2e 20 20 llowed by "-".
0d10: 54 68 65 20 22 32 30 63 22 20 69 6e 64 69 63 61 The "20c" indica
0d20: 74 65 73 0a 2a 2a 20 74 68 65 20 32 2d 64 69 67 tes.** the 2-dig
0d30: 69 74 20 64 61 79 20 77 68 69 63 68 20 69 73 20 it day which is
0d40: 74 68 65 20 6c 61 73 74 20 69 6e 74 65 67 65 72 the last integer
0d50: 20 69 6e 20 74 68 65 20 73 65 74 2e 0a 2a 2a 0a in the set..**.
0d60: 2a 2a 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 ** The function
0d70: 72 65 74 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 returns the numb
0d80: 65 72 20 6f 66 20 73 75 63 63 65 73 73 66 75 6c er of successful
0d90: 20 63 6f 6e 76 65 72 73 69 6f 6e 73 2e 0a 2a 2f conversions..*/
0da0: 0a 73 74 61 74 69 63 20 69 6e 74 20 67 65 74 44 .static int getD
0db0: 69 67 69 74 73 28 63 6f 6e 73 74 20 63 68 61 72 igits(const char
0dc0: 20 2a 7a 44 61 74 65 2c 20 63 6f 6e 73 74 20 63 *zDate, const c
0dd0: 68 61 72 20 2a 7a 46 6f 72 6d 61 74 2c 20 2e 2e har *zFormat, ..
0de0: 2e 29 7b 0a 20 20 2f 2a 20 54 68 65 20 61 4d 78 .){. /* The aMx
0df0: 5b 5d 20 61 72 72 61 79 20 74 72 61 6e 73 6c 61 [] array transla
0e00: 74 65 73 20 74 68 65 20 33 72 64 20 63 68 61 72 tes the 3rd char
0e10: 61 63 74 65 72 20 6f 66 20 65 61 63 68 20 66 6f acter of each fo
0e20: 72 6d 61 74 0a 20 20 2a 2a 20 73 70 65 63 20 69 rmat. ** spec i
0e30: 6e 74 6f 20 61 20 6d 61 78 20 73 69 7a 65 3a 20 nto a max size:
0e40: 20 20 20 61 20 20 20 62 20 20 20 63 20 20 20 64 a b c d
0e50: 20 20 20 65 20 20 20 20 20 66 20 2a 2f 0a 20 20 e f */.
0e60: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 75 31 36 static const u16
0e70: 20 61 4d 78 5b 5d 20 3d 20 7b 20 31 32 2c 20 31 aMx[] = { 12, 1
0e80: 34 2c 20 32 34 2c 20 33 31 2c 20 35 39 2c 20 39 4, 24, 31, 59, 9
0e90: 39 39 39 20 7d 3b 0a 20 20 76 61 5f 6c 69 73 74 999 };. va_list
0ea0: 20 61 70 3b 0a 20 20 69 6e 74 20 63 6e 74 20 3d ap;. int cnt =
0eb0: 20 30 3b 0a 20 20 63 68 61 72 20 6e 65 78 74 43 0;. char nextC
0ec0: 3b 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c ;. va_start(ap,
0ed0: 20 7a 46 6f 72 6d 61 74 29 3b 0a 20 20 64 6f 7b zFormat);. do{
0ee0: 0a 20 20 20 20 63 68 61 72 20 4e 20 3d 20 7a 46 . char N = zF
0ef0: 6f 72 6d 61 74 5b 30 5d 20 2d 20 27 30 27 3b 0a ormat[0] - '0';.
0f00: 20 20 20 20 63 68 61 72 20 6d 69 6e 20 3d 20 7a char min = z
0f10: 46 6f 72 6d 61 74 5b 31 5d 20 2d 20 27 30 27 3b Format[1] - '0';
0f20: 0a 20 20 20 20 69 6e 74 20 76 61 6c 20 3d 20 30 . int val = 0
0f30: 3b 0a 20 20 20 20 75 31 36 20 6d 61 78 3b 0a 0a ;. u16 max;..
0f40: 20 20 20 20 61 73 73 65 72 74 28 20 7a 46 6f 72 assert( zFor
0f50: 6d 61 74 5b 32 5d 3e 3d 27 61 27 20 26 26 20 7a mat[2]>='a' && z
0f60: 46 6f 72 6d 61 74 5b 32 5d 3c 3d 27 66 27 20 29 Format[2]<='f' )
0f70: 3b 0a 20 20 20 20 6d 61 78 20 3d 20 61 4d 78 5b ;. max = aMx[
0f80: 7a 46 6f 72 6d 61 74 5b 32 5d 20 2d 20 27 61 27 zFormat[2] - 'a'
0f90: 5d 3b 0a 20 20 20 20 6e 65 78 74 43 20 3d 20 7a ];. nextC = z
0fa0: 46 6f 72 6d 61 74 5b 33 5d 3b 0a 20 20 20 20 76 Format[3];. v
0fb0: 61 6c 20 3d 20 30 3b 0a 20 20 20 20 77 68 69 6c al = 0;. whil
0fc0: 65 28 20 4e 2d 2d 20 29 7b 0a 20 20 20 20 20 20 e( N-- ){.
0fd0: 69 66 28 20 21 73 71 6c 69 74 65 33 49 73 64 69 if( !sqlite3Isdi
0fe0: 67 69 74 28 2a 7a 44 61 74 65 29 20 29 7b 0a 20 git(*zDate) ){.
0ff0: 20 20 20 20 20 20 20 67 6f 74 6f 20 65 6e 64 5f goto end_
1000: 67 65 74 44 69 67 69 74 73 3b 0a 20 20 20 20 20 getDigits;.
1010: 20 7d 0a 20 20 20 20 20 20 76 61 6c 20 3d 20 76 }. val = v
1020: 61 6c 2a 31 30 20 2b 20 2a 7a 44 61 74 65 20 2d al*10 + *zDate -
1030: 20 27 30 27 3b 0a 20 20 20 20 20 20 7a 44 61 74 '0';. zDat
1040: 65 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 e++;. }. i
1050: 66 28 20 76 61 6c 3c 28 69 6e 74 29 6d 69 6e 20 f( val<(int)min
1060: 7c 7c 20 76 61 6c 3e 28 69 6e 74 29 6d 61 78 20 || val>(int)max
1070: 7c 7c 20 28 6e 65 78 74 43 21 3d 30 20 26 26 20 || (nextC!=0 &&
1080: 6e 65 78 74 43 21 3d 2a 7a 44 61 74 65 29 20 29 nextC!=*zDate) )
1090: 7b 0a 20 20 20 20 20 20 67 6f 74 6f 20 65 6e 64 {. goto end
10a0: 5f 67 65 74 44 69 67 69 74 73 3b 0a 20 20 20 20 _getDigits;.
10b0: 7d 0a 20 20 20 20 2a 76 61 5f 61 72 67 28 61 70 }. *va_arg(ap
10c0: 2c 69 6e 74 2a 29 20 3d 20 76 61 6c 3b 0a 20 20 ,int*) = val;.
10d0: 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20 20 63 zDate++;. c
10e0: 6e 74 2b 2b 3b 0a 20 20 20 20 7a 46 6f 72 6d 61 nt++;. zForma
10f0: 74 20 2b 3d 20 34 3b 0a 20 20 7d 77 68 69 6c 65 t += 4;. }while
1100: 28 20 6e 65 78 74 43 20 29 3b 0a 65 6e 64 5f 67 ( nextC );.end_g
1110: 65 74 44 69 67 69 74 73 3a 0a 20 20 76 61 5f 65 etDigits:. va_e
1120: 6e 64 28 61 70 29 3b 0a 20 20 72 65 74 75 72 6e nd(ap);. return
1130: 20 63 6e 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 cnt;.}../*.** P
1140: 61 72 73 65 20 61 20 74 69 6d 65 7a 6f 6e 65 20 arse a timezone
1150: 65 78 74 65 6e 73 69 6f 6e 20 6f 6e 20 74 68 65 extension on the
1160: 20 65 6e 64 20 6f 66 20 61 20 64 61 74 65 2d 74 end of a date-t
1170: 69 6d 65 2e 0a 2a 2a 20 54 68 65 20 65 78 74 65 ime..** The exte
1180: 6e 73 69 6f 6e 20 69 73 20 6f 66 20 74 68 65 20 nsion is of the
1190: 66 6f 72 6d 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 form:.**.**
11a0: 20 20 20 28 2b 2f 2d 29 48 48 3a 4d 4d 0a 2a 2a (+/-)HH:MM.**
11b0: 0a 2a 2a 20 4f 72 20 74 68 65 20 22 7a 75 6c 75 .** Or the "zulu
11c0: 22 20 6e 6f 74 61 74 69 6f 6e 3a 0a 2a 2a 0a 2a " notation:.**.*
11d0: 2a 20 20 20 20 20 20 20 20 5a 0a 2a 2a 0a 2a 2a * Z.**.**
11e0: 20 49 66 20 74 68 65 20 70 61 72 73 65 20 69 73 If the parse is
11f0: 20 73 75 63 63 65 73 73 66 75 6c 2c 20 77 72 69 successful, wri
1200: 74 65 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 te the number of
1210: 20 6d 69 6e 75 74 65 73 0a 2a 2a 20 6f 66 20 63 minutes.** of c
1220: 68 61 6e 67 65 20 69 6e 20 70 2d 3e 74 7a 20 61 hange in p->tz a
1230: 6e 64 20 72 65 74 75 72 6e 20 30 2e 20 20 49 66 nd return 0. If
1240: 20 61 20 70 61 72 73 65 72 20 65 72 72 6f 72 20 a parser error
1250: 6f 63 63 75 72 73 2c 0a 2a 2a 20 72 65 74 75 72 occurs,.** retur
1260: 6e 20 6e 6f 6e 2d 7a 65 72 6f 2e 0a 2a 2a 0a 2a n non-zero..**.*
1270: 2a 20 41 20 6d 69 73 73 69 6e 67 20 73 70 65 63 * A missing spec
1280: 69 66 69 65 72 20 69 73 20 6e 6f 74 20 63 6f 6e ifier is not con
1290: 73 69 64 65 72 65 64 20 61 6e 20 65 72 72 6f 72 sidered an error
12a0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
12b0: 70 61 72 73 65 54 69 6d 65 7a 6f 6e 65 28 63 6f parseTimezone(co
12c0: 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 65 2c nst char *zDate,
12d0: 20 44 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 DateTime *p){.
12e0: 20 69 6e 74 20 73 67 6e 20 3d 20 30 3b 0a 20 20 int sgn = 0;.
12f0: 69 6e 74 20 6e 48 72 2c 20 6e 4d 6e 3b 0a 20 20 int nHr, nMn;.
1300: 69 6e 74 20 63 3b 0a 20 20 77 68 69 6c 65 28 20 int c;. while(
1310: 73 71 6c 69 74 65 33 49 73 73 70 61 63 65 28 2a sqlite3Isspace(*
1320: 7a 44 61 74 65 29 20 29 7b 20 7a 44 61 74 65 2b zDate) ){ zDate+
1330: 2b 3b 20 7d 0a 20 20 70 2d 3e 74 7a 20 3d 20 30 +; }. p->tz = 0
1340: 3b 0a 20 20 63 20 3d 20 2a 7a 44 61 74 65 3b 0a ;. c = *zDate;.
1350: 20 20 69 66 28 20 63 3d 3d 27 2d 27 20 29 7b 0a if( c=='-' ){.
1360: 20 20 20 20 73 67 6e 20 3d 20 2d 31 3b 0a 20 20 sgn = -1;.
1370: 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 27 2b 27 }else if( c=='+'
1380: 20 29 7b 0a 20 20 20 20 73 67 6e 20 3d 20 2b 31 ){. sgn = +1
1390: 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 63 3d ;. }else if( c=
13a0: 3d 27 5a 27 20 7c 7c 20 63 3d 3d 27 7a 27 20 29 ='Z' || c=='z' )
13b0: 7b 0a 20 20 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 {. zDate++;.
13c0: 20 20 20 67 6f 74 6f 20 7a 75 6c 75 5f 74 69 6d goto zulu_tim
13d0: 65 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 e;. }else{.
13e0: 72 65 74 75 72 6e 20 63 21 3d 30 3b 0a 20 20 7d return c!=0;. }
13f0: 0a 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 69 66 . zDate++;. if
1400: 28 20 67 65 74 44 69 67 69 74 73 28 7a 44 61 74 ( getDigits(zDat
1410: 65 2c 20 22 32 30 62 3a 32 30 65 22 2c 20 26 6e e, "20b:20e", &n
1420: 48 72 2c 20 26 6e 4d 6e 29 21 3d 32 20 29 7b 0a Hr, &nMn)!=2 ){.
1430: 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 return 1;.
1440: 7d 0a 20 20 7a 44 61 74 65 20 2b 3d 20 35 3b 0a }. zDate += 5;.
1450: 20 20 70 2d 3e 74 7a 20 3d 20 73 67 6e 2a 28 6e p->tz = sgn*(n
1460: 4d 6e 20 2b 20 6e 48 72 2a 36 30 29 3b 0a 7a 75 Mn + nHr*60);.zu
1470: 6c 75 5f 74 69 6d 65 3a 0a 20 20 77 68 69 6c 65 lu_time:. while
1480: 28 20 73 71 6c 69 74 65 33 49 73 73 70 61 63 65 ( sqlite3Isspace
1490: 28 2a 7a 44 61 74 65 29 20 29 7b 20 7a 44 61 74 (*zDate) ){ zDat
14a0: 65 2b 2b 3b 20 7d 0a 20 20 70 2d 3e 74 7a 53 65 e++; }. p->tzSe
14b0: 74 20 3d 20 31 3b 0a 20 20 72 65 74 75 72 6e 20 t = 1;. return
14c0: 2a 7a 44 61 74 65 21 3d 30 3b 0a 7d 0a 0a 2f 2a *zDate!=0;.}../*
14d0: 0a 2a 2a 20 50 61 72 73 65 20 74 69 6d 65 73 20 .** Parse times
14e0: 6f 66 20 74 68 65 20 66 6f 72 6d 20 48 48 3a 4d of the form HH:M
14f0: 4d 20 6f 72 20 48 48 3a 4d 4d 3a 53 53 20 6f 72 M or HH:MM:SS or
1500: 20 48 48 3a 4d 4d 3a 53 53 2e 46 46 46 46 2e 0a HH:MM:SS.FFFF..
1510: 2a 2a 20 54 68 65 20 48 48 2c 20 4d 4d 2c 20 61 ** The HH, MM, a
1520: 6e 64 20 53 53 20 6d 75 73 74 20 65 61 63 68 20 nd SS must each
1530: 62 65 20 65 78 61 63 74 6c 79 20 32 20 64 69 67 be exactly 2 dig
1540: 69 74 73 2e 20 20 54 68 65 0a 2a 2a 20 66 72 61 its. The.** fra
1550: 63 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 73 20 ctional seconds
1560: 46 46 46 46 20 63 61 6e 20 62 65 20 6f 6e 65 20 FFFF can be one
1570: 6f 72 20 6d 6f 72 65 20 64 69 67 69 74 73 2e 0a or more digits..
1580: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 31 20 69 **.** Return 1 i
1590: 66 20 74 68 65 72 65 20 69 73 20 61 20 70 61 72 f there is a par
15a0: 73 69 6e 67 20 65 72 72 6f 72 20 61 6e 64 20 30 sing error and 0
15b0: 20 6f 6e 20 73 75 63 63 65 73 73 2e 0a 2a 2f 0a on success..*/.
15c0: 73 74 61 74 69 63 20 69 6e 74 20 70 61 72 73 65 static int parse
15d0: 48 68 4d 6d 53 73 28 63 6f 6e 73 74 20 63 68 61 HhMmSs(const cha
15e0: 72 20 2a 7a 44 61 74 65 2c 20 44 61 74 65 54 69 r *zDate, DateTi
15f0: 6d 65 20 2a 70 29 7b 0a 20 20 69 6e 74 20 68 2c me *p){. int h,
1600: 20 6d 2c 20 73 3b 0a 20 20 64 6f 75 62 6c 65 20 m, s;. double
1610: 6d 73 20 3d 20 30 2e 30 3b 0a 20 20 69 66 28 20 ms = 0.0;. if(
1620: 67 65 74 44 69 67 69 74 73 28 7a 44 61 74 65 2c getDigits(zDate,
1630: 20 22 32 30 63 3a 32 30 65 22 2c 20 26 68 2c 20 "20c:20e", &h,
1640: 26 6d 29 21 3d 32 20 29 7b 0a 20 20 20 20 72 65 &m)!=2 ){. re
1650: 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 7a 44 turn 1;. }. zD
1660: 61 74 65 20 2b 3d 20 35 3b 0a 20 20 69 66 28 20 ate += 5;. if(
1670: 2a 7a 44 61 74 65 3d 3d 27 3a 27 20 29 7b 0a 20 *zDate==':' ){.
1680: 20 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20 20 zDate++;.
1690: 69 66 28 20 67 65 74 44 69 67 69 74 73 28 7a 44 if( getDigits(zD
16a0: 61 74 65 2c 20 22 32 30 65 22 2c 20 26 73 29 21 ate, "20e", &s)!
16b0: 3d 31 20 29 7b 0a 20 20 20 20 20 20 72 65 74 75 =1 ){. retu
16c0: 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 rn 1;. }.
16d0: 7a 44 61 74 65 20 2b 3d 20 32 3b 0a 20 20 20 20 zDate += 2;.
16e0: 69 66 28 20 2a 7a 44 61 74 65 3d 3d 27 2e 27 20 if( *zDate=='.'
16f0: 26 26 20 73 71 6c 69 74 65 33 49 73 64 69 67 69 && sqlite3Isdigi
1700: 74 28 7a 44 61 74 65 5b 31 5d 29 20 29 7b 0a 20 t(zDate[1]) ){.
1710: 20 20 20 20 20 64 6f 75 62 6c 65 20 72 53 63 61 double rSca
1720: 6c 65 20 3d 20 31 2e 30 3b 0a 20 20 20 20 20 20 le = 1.0;.
1730: 7a 44 61 74 65 2b 2b 3b 0a 20 20 20 20 20 20 77 zDate++;. w
1740: 68 69 6c 65 28 20 73 71 6c 69 74 65 33 49 73 64 hile( sqlite3Isd
1750: 69 67 69 74 28 2a 7a 44 61 74 65 29 20 29 7b 0a igit(*zDate) ){.
1760: 20 20 20 20 20 20 20 20 6d 73 20 3d 20 6d 73 2a ms = ms*
1770: 31 30 2e 30 20 2b 20 2a 7a 44 61 74 65 20 2d 20 10.0 + *zDate -
1780: 27 30 27 3b 0a 20 20 20 20 20 20 20 20 72 53 63 '0';. rSc
1790: 61 6c 65 20 2a 3d 20 31 30 2e 30 3b 0a 20 20 20 ale *= 10.0;.
17a0: 20 20 20 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 zDate++;.
17b0: 20 20 20 20 7d 0a 20 20 20 20 20 20 6d 73 20 2f }. ms /
17c0: 3d 20 72 53 63 61 6c 65 3b 0a 20 20 20 20 7d 0a = rScale;. }.
17d0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 20 3d }else{. s =
17e0: 20 30 3b 0a 20 20 7d 0a 20 20 70 2d 3e 76 61 6c 0;. }. p->val
17f0: 69 64 4a 44 20 3d 20 30 3b 0a 20 20 70 2d 3e 76 idJD = 0;. p->v
1800: 61 6c 69 64 48 4d 53 20 3d 20 31 3b 0a 20 20 70 alidHMS = 1;. p
1810: 2d 3e 68 20 3d 20 68 3b 0a 20 20 70 2d 3e 6d 20 ->h = h;. p->m
1820: 3d 20 6d 3b 0a 20 20 70 2d 3e 73 20 3d 20 73 20 = m;. p->s = s
1830: 2b 20 6d 73 3b 0a 20 20 69 66 28 20 70 61 72 73 + ms;. if( pars
1840: 65 54 69 6d 65 7a 6f 6e 65 28 7a 44 61 74 65 2c eTimezone(zDate,
1850: 20 70 29 20 29 20 72 65 74 75 72 6e 20 31 3b 0a p) ) return 1;.
1860: 20 20 70 2d 3e 76 61 6c 69 64 54 5a 20 3d 20 28 p->validTZ = (
1870: 70 2d 3e 74 7a 21 3d 30 29 3f 31 3a 30 3b 0a 20 p->tz!=0)?1:0;.
1880: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
1890: 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 66 72 6f 6d .** Convert from
18a0: 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d YYYY-MM-DD HH:M
18b0: 4d 3a 53 53 20 74 6f 20 6a 75 6c 69 61 6e 20 64 M:SS to julian d
18c0: 61 79 2e 20 20 57 65 20 61 6c 77 61 79 73 20 61 ay. We always a
18d0: 73 73 75 6d 65 0a 2a 2a 20 74 68 61 74 20 74 68 ssume.** that th
18e0: 65 20 59 59 59 59 2d 4d 4d 2d 44 44 20 69 73 20 e YYYY-MM-DD is
18f0: 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 according to the
1900: 20 47 72 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e Gregorian calen
1910: 64 61 72 2e 0a 2a 2a 0a 2a 2a 20 52 65 66 65 72 dar..**.** Refer
1920: 65 6e 63 65 3a 20 20 4d 65 65 75 73 20 70 61 67 ence: Meeus pag
1930: 65 20 36 31 0a 2a 2f 0a 73 74 61 74 69 63 20 76 e 61.*/.static v
1940: 6f 69 64 20 63 6f 6d 70 75 74 65 4a 44 28 44 61 oid computeJD(Da
1950: 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e teTime *p){. in
1960: 74 20 59 2c 20 4d 2c 20 44 2c 20 41 2c 20 42 2c t Y, M, D, A, B,
1970: 20 58 31 2c 20 58 32 3b 0a 0a 20 20 69 66 28 20 X1, X2;.. if(
1980: 70 2d 3e 76 61 6c 69 64 4a 44 20 29 20 72 65 74 p->validJD ) ret
1990: 75 72 6e 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61 urn;. if( p->va
19a0: 6c 69 64 59 4d 44 20 29 7b 0a 20 20 20 20 59 20 lidYMD ){. Y
19b0: 3d 20 70 2d 3e 59 3b 0a 20 20 20 20 4d 20 3d 20 = p->Y;. M =
19c0: 70 2d 3e 4d 3b 0a 20 20 20 20 44 20 3d 20 70 2d p->M;. D = p-
19d0: 3e 44 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 >D;. }else{.
19e0: 20 59 20 3d 20 32 30 30 30 3b 20 20 2f 2a 20 49 Y = 2000; /* I
19f0: 66 20 6e 6f 20 59 4d 44 20 73 70 65 63 69 66 69 f no YMD specifi
1a00: 65 64 2c 20 61 73 73 75 6d 65 20 32 30 30 30 2d ed, assume 2000-
1a10: 4a 61 6e 2d 30 31 20 2a 2f 0a 20 20 20 20 4d 20 Jan-01 */. M
1a20: 3d 20 31 3b 0a 20 20 20 20 44 20 3d 20 31 3b 0a = 1;. D = 1;.
1a30: 20 20 7d 0a 20 20 69 66 28 20 4d 3c 3d 32 20 29 }. if( M<=2 )
1a40: 7b 0a 20 20 20 20 59 2d 2d 3b 0a 20 20 20 20 4d {. Y--;. M
1a50: 20 2b 3d 20 31 32 3b 0a 20 20 7d 0a 20 20 41 20 += 12;. }. A
1a60: 3d 20 59 2f 31 30 30 3b 0a 20 20 42 20 3d 20 32 = Y/100;. B = 2
1a70: 20 2d 20 41 20 2b 20 28 41 2f 34 29 3b 0a 20 20 - A + (A/4);.
1a80: 58 31 20 3d 20 33 36 35 32 35 2a 28 59 2b 34 37 X1 = 36525*(Y+47
1a90: 31 36 29 2f 31 30 30 3b 0a 20 20 58 32 20 3d 20 16)/100;. X2 =
1aa0: 33 30 36 30 30 31 2a 28 4d 2b 31 29 2f 31 30 30 306001*(M+1)/100
1ab0: 30 30 3b 0a 20 20 70 2d 3e 69 4a 44 20 3d 20 28 00;. p->iJD = (
1ac0: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 28 28 sqlite3_int64)((
1ad0: 58 31 20 2b 20 58 32 20 2b 20 44 20 2b 20 42 20 X1 + X2 + D + B
1ae0: 2d 20 31 35 32 34 2e 35 20 29 20 2a 20 38 36 34 - 1524.5 ) * 864
1af0: 30 30 30 30 30 29 3b 0a 20 20 70 2d 3e 76 61 6c 00000);. p->val
1b00: 69 64 4a 44 20 3d 20 31 3b 0a 20 20 69 66 28 20 idJD = 1;. if(
1b10: 70 2d 3e 76 61 6c 69 64 48 4d 53 20 29 7b 0a 20 p->validHMS ){.
1b20: 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 70 2d 3e p->iJD += p->
1b30: 68 2a 33 36 30 30 30 30 30 20 2b 20 70 2d 3e 6d h*3600000 + p->m
1b40: 2a 36 30 30 30 30 20 2b 20 28 73 71 6c 69 74 65 *60000 + (sqlite
1b50: 33 5f 69 6e 74 36 34 29 28 70 2d 3e 73 2a 31 30 3_int64)(p->s*10
1b60: 30 30 29 3b 0a 20 20 20 20 69 66 28 20 70 2d 3e 00);. if( p->
1b70: 76 61 6c 69 64 54 5a 20 29 7b 0a 20 20 20 20 20 validTZ ){.
1b80: 20 70 2d 3e 69 4a 44 20 2d 3d 20 70 2d 3e 74 7a p->iJD -= p->tz
1b90: 2a 36 30 30 30 30 3b 0a 20 20 20 20 20 20 70 2d *60000;. p-
1ba0: 3e 76 61 6c 69 64 59 4d 44 20 3d 20 30 3b 0a 20 >validYMD = 0;.
1bb0: 20 20 20 20 20 70 2d 3e 76 61 6c 69 64 48 4d 53 p->validHMS
1bc0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 2d 3e 76 = 0;. p->v
1bd0: 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 20 20 20 20 alidTZ = 0;.
1be0: 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 }. }.}../*.** P
1bf0: 61 72 73 65 20 64 61 74 65 73 20 6f 66 20 74 68 arse dates of th
1c00: 65 20 66 6f 72 6d 0a 2a 2a 0a 2a 2a 20 20 20 20 e form.**.**
1c10: 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d YYYY-MM-DD HH:M
1c20: 4d 3a 53 53 2e 46 46 46 0a 2a 2a 20 20 20 20 20 M:SS.FFF.**
1c30: 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d YYYY-MM-DD HH:MM
1c40: 3a 53 53 0a 2a 2a 20 20 20 20 20 59 59 59 59 2d :SS.** YYYY-
1c50: 4d 4d 2d 44 44 20 48 48 3a 4d 4d 0a 2a 2a 20 20 MM-DD HH:MM.**
1c60: 20 20 20 59 59 59 59 2d 4d 4d 2d 44 44 0a 2a 2a YYYY-MM-DD.**
1c70: 0a 2a 2a 20 57 72 69 74 65 20 74 68 65 20 72 65 .** Write the re
1c80: 73 75 6c 74 20 69 6e 74 6f 20 74 68 65 20 44 61 sult into the Da
1c90: 74 65 54 69 6d 65 20 73 74 72 75 63 74 75 72 65 teTime structure
1ca0: 20 61 6e 64 20 72 65 74 75 72 6e 20 30 0a 2a 2a and return 0.**
1cb0: 20 6f 6e 20 73 75 63 63 65 73 73 20 61 6e 64 20 on success and
1cc0: 31 20 69 66 20 74 68 65 20 69 6e 70 75 74 20 73 1 if the input s
1cd0: 74 72 69 6e 67 20 69 73 20 6e 6f 74 20 61 20 77 tring is not a w
1ce0: 65 6c 6c 2d 66 6f 72 6d 65 64 0a 2a 2a 20 64 61 ell-formed.** da
1cf0: 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e te..*/.static in
1d00: 74 20 70 61 72 73 65 59 79 79 79 4d 6d 44 64 28 t parseYyyyMmDd(
1d10: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 const char *zDat
1d20: 65 2c 20 44 61 74 65 54 69 6d 65 20 2a 70 29 7b e, DateTime *p){
1d30: 0a 20 20 69 6e 74 20 59 2c 20 4d 2c 20 44 2c 20 . int Y, M, D,
1d40: 6e 65 67 3b 0a 0a 20 20 69 66 28 20 7a 44 61 74 neg;.. if( zDat
1d50: 65 5b 30 5d 3d 3d 27 2d 27 20 29 7b 0a 20 20 20 e[0]=='-' ){.
1d60: 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20 20 6e 65 zDate++;. ne
1d70: 67 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a g = 1;. }else{.
1d80: 20 20 20 20 6e 65 67 20 3d 20 30 3b 0a 20 20 7d neg = 0;. }
1d90: 0a 20 20 69 66 28 20 67 65 74 44 69 67 69 74 73 . if( getDigits
1da0: 28 7a 44 61 74 65 2c 20 22 34 30 66 2d 32 31 61 (zDate, "40f-21a
1db0: 2d 32 31 64 22 2c 20 26 59 2c 20 26 4d 2c 20 26 -21d", &Y, &M, &
1dc0: 44 29 21 3d 33 20 29 7b 0a 20 20 20 20 72 65 74 D)!=3 ){. ret
1dd0: 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 7a 44 61 urn 1;. }. zDa
1de0: 74 65 20 2b 3d 20 31 30 3b 0a 20 20 77 68 69 6c te += 10;. whil
1df0: 65 28 20 73 71 6c 69 74 65 33 49 73 73 70 61 63 e( sqlite3Isspac
1e00: 65 28 2a 7a 44 61 74 65 29 20 7c 7c 20 27 54 27 e(*zDate) || 'T'
1e10: 3d 3d 2a 28 75 38 2a 29 7a 44 61 74 65 20 29 7b ==*(u8*)zDate ){
1e20: 20 7a 44 61 74 65 2b 2b 3b 20 7d 0a 20 20 69 66 zDate++; }. if
1e30: 28 20 70 61 72 73 65 48 68 4d 6d 53 73 28 7a 44 ( parseHhMmSs(zD
1e40: 61 74 65 2c 20 70 29 3d 3d 30 20 29 7b 0a 20 20 ate, p)==0 ){.
1e50: 20 20 2f 2a 20 57 65 20 67 6f 74 20 74 68 65 20 /* We got the
1e60: 74 69 6d 65 20 2a 2f 0a 20 20 7d 65 6c 73 65 20 time */. }else
1e70: 69 66 28 20 2a 7a 44 61 74 65 3d 3d 30 20 29 7b if( *zDate==0 ){
1e80: 0a 20 20 20 20 70 2d 3e 76 61 6c 69 64 48 4d 53 . p->validHMS
1e90: 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 = 0;. }else{.
1ea0: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d return 1;. }
1eb0: 0a 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 . p->validJD =
1ec0: 30 3b 0a 20 20 70 2d 3e 76 61 6c 69 64 59 4d 44 0;. p->validYMD
1ed0: 20 3d 20 31 3b 0a 20 20 70 2d 3e 59 20 3d 20 6e = 1;. p->Y = n
1ee0: 65 67 20 3f 20 2d 59 20 3a 20 59 3b 0a 20 20 70 eg ? -Y : Y;. p
1ef0: 2d 3e 4d 20 3d 20 4d 3b 0a 20 20 70 2d 3e 44 20 ->M = M;. p->D
1f00: 3d 20 44 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61 = D;. if( p->va
1f10: 6c 69 64 54 5a 20 29 7b 0a 20 20 20 20 63 6f 6d lidTZ ){. com
1f20: 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 7d 0a 20 puteJD(p);. }.
1f30: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
1f40: 0a 2a 2a 20 53 65 74 20 74 68 65 20 74 69 6d 65 .** Set the time
1f50: 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 to the current
1f60: 74 69 6d 65 20 72 65 70 6f 72 74 65 64 20 62 79 time reported by
1f70: 20 74 68 65 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 the VFS..**.**
1f80: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
1f90: 72 20 6f 66 20 65 72 72 6f 72 73 2e 0a 2a 2f 0a r of errors..*/.
1fa0: 73 74 61 74 69 63 20 69 6e 74 20 73 65 74 44 61 static int setDa
1fb0: 74 65 54 69 6d 65 54 6f 43 75 72 72 65 6e 74 28 teTimeToCurrent(
1fc0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 sqlite3_context
1fd0: 2a 63 6f 6e 74 65 78 74 2c 20 44 61 74 65 54 69 *context, DateTi
1fe0: 6d 65 20 2a 70 29 7b 0a 20 20 70 2d 3e 69 4a 44 me *p){. p->iJD
1ff0: 20 3d 20 73 71 6c 69 74 65 33 53 74 6d 74 43 75 = sqlite3StmtCu
2000: 72 72 65 6e 74 54 69 6d 65 28 63 6f 6e 74 65 78 rrentTime(contex
2010: 74 29 3b 0a 20 20 69 66 28 20 70 2d 3e 69 4a 44 t);. if( p->iJD
2020: 3e 30 20 29 7b 0a 20 20 20 20 70 2d 3e 76 61 6c >0 ){. p->val
2030: 69 64 4a 44 20 3d 20 31 3b 0a 20 20 20 20 72 65 idJD = 1;. re
2040: 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c 73 65 7b turn 0;. }else{
2050: 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 . return 1;.
2060: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 }.}../*.** Atte
2070: 6d 70 74 20 74 6f 20 70 61 72 73 65 20 74 68 65 mpt to parse the
2080: 20 67 69 76 65 6e 20 73 74 72 69 6e 67 20 69 6e given string in
2090: 74 6f 20 61 20 6a 75 6c 69 61 6e 20 64 61 79 20 to a julian day
20a0: 6e 75 6d 62 65 72 2e 20 20 52 65 74 75 72 6e 0a number. Return.
20b0: 2a 2a 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 ** the number of
20c0: 20 65 72 72 6f 72 73 2e 0a 2a 2a 0a 2a 2a 20 54 errors..**.** T
20d0: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65 he following are
20e0: 20 61 63 63 65 70 74 61 62 6c 65 20 66 6f 72 6d acceptable form
20f0: 73 20 66 6f 72 20 74 68 65 20 69 6e 70 75 74 20 s for the input
2100: 73 74 72 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 string:.**.**
2110: 20 20 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 YYYY-MM-DD HH
2120: 3a 4d 4d 3a 53 53 2e 46 46 46 20 20 2b 2f 2d 48 :MM:SS.FFF +/-H
2130: 48 3a 4d 4d 0a 2a 2a 20 20 20 20 20 20 44 44 44 H:MM.** DDD
2140: 44 2e 44 44 20 0a 2a 2a 20 20 20 20 20 20 6e 6f D.DD .** no
2150: 77 0a 2a 2a 0a 2a 2a 20 49 6e 20 74 68 65 20 66 w.**.** In the f
2160: 69 72 73 74 20 66 6f 72 6d 2c 20 74 68 65 20 2b irst form, the +
2170: 2f 2d 48 48 3a 4d 4d 20 69 73 20 61 6c 77 61 79 /-HH:MM is alway
2180: 73 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 54 68 65 s optional. The
2190: 20 66 72 61 63 74 69 6f 6e 61 6c 0a 2a 2a 20 73 fractional.** s
21a0: 65 63 6f 6e 64 73 20 65 78 74 65 6e 73 69 6f 6e econds extension
21b0: 20 28 74 68 65 20 22 2e 46 46 46 22 29 20 69 73 (the ".FFF") is
21c0: 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 54 68 65 20 optional. The
21d0: 73 65 63 6f 6e 64 73 20 70 6f 72 74 69 6f 6e 0a seconds portion.
21e0: 2a 2a 20 28 22 3a 53 53 2e 46 46 46 22 29 20 69 ** (":SS.FFF") i
21f0: 73 20 6f 70 74 69 6f 6e 2e 20 20 54 68 65 20 79 s option. The y
2200: 65 61 72 20 61 6e 64 20 64 61 74 65 20 63 61 6e ear and date can
2210: 20 62 65 20 6f 6d 69 74 74 65 64 20 61 73 20 6c be omitted as l
2220: 6f 6e 67 0a 2a 2a 20 61 73 20 74 68 65 72 65 20 ong.** as there
2230: 69 73 20 61 20 74 69 6d 65 20 73 74 72 69 6e 67 is a time string
2240: 2e 20 20 54 68 65 20 74 69 6d 65 20 73 74 72 69 . The time stri
2250: 6e 67 20 63 61 6e 20 62 65 20 6f 6d 69 74 74 65 ng can be omitte
2260: 64 20 61 73 20 6c 6f 6e 67 0a 2a 2a 20 61 73 20 d as long.** as
2270: 74 68 65 72 65 20 69 73 20 61 20 79 65 61 72 20 there is a year
2280: 61 6e 64 20 64 61 74 65 2e 0a 2a 2f 0a 73 74 61 and date..*/.sta
2290: 74 69 63 20 69 6e 74 20 70 61 72 73 65 44 61 74 tic int parseDat
22a0: 65 4f 72 54 69 6d 65 28 0a 20 20 73 71 6c 69 74 eOrTime(. sqlit
22b0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 e3_context *cont
22c0: 65 78 74 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 ext, . const ch
22d0: 61 72 20 2a 7a 44 61 74 65 2c 20 0a 20 20 44 61 ar *zDate, . Da
22e0: 74 65 54 69 6d 65 20 2a 70 0a 29 7b 0a 20 20 64 teTime *p.){. d
22f0: 6f 75 62 6c 65 20 72 3b 0a 20 20 69 66 28 20 70 ouble r;. if( p
2300: 61 72 73 65 59 79 79 79 4d 6d 44 64 28 7a 44 61 arseYyyyMmDd(zDa
2310: 74 65 2c 70 29 3d 3d 30 20 29 7b 0a 20 20 20 20 te,p)==0 ){.
2320: 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c 73 return 0;. }els
2330: 65 20 69 66 28 20 70 61 72 73 65 48 68 4d 6d 53 e if( parseHhMmS
2340: 73 28 7a 44 61 74 65 2c 20 70 29 3d 3d 30 20 29 s(zDate, p)==0 )
2350: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a {. return 0;.
2360: 20 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 }else if( sqli
2370: 74 65 33 53 74 72 49 43 6d 70 28 7a 44 61 74 65 te3StrICmp(zDate
2380: 2c 22 6e 6f 77 22 29 3d 3d 30 29 7b 0a 20 20 20 ,"now")==0){.
2390: 20 72 65 74 75 72 6e 20 73 65 74 44 61 74 65 54 return setDateT
23a0: 69 6d 65 54 6f 43 75 72 72 65 6e 74 28 63 6f 6e imeToCurrent(con
23b0: 74 65 78 74 2c 20 70 29 3b 0a 20 20 7d 65 6c 73 text, p);. }els
23c0: 65 20 69 66 28 20 73 71 6c 69 74 65 33 41 74 6f e if( sqlite3Ato
23d0: 46 28 7a 44 61 74 65 2c 20 26 72 2c 20 73 71 6c F(zDate, &r, sql
23e0: 69 74 65 33 53 74 72 6c 65 6e 33 30 28 7a 44 61 ite3Strlen30(zDa
23f0: 74 65 29 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 te), SQLITE_UTF8
2400: 29 20 29 7b 0a 20 20 20 20 70 2d 3e 69 4a 44 20 ) ){. p->iJD
2410: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 = (sqlite3_int64
2420: 29 28 72 2a 38 36 34 30 30 30 30 30 2e 30 20 2b )(r*86400000.0 +
2430: 20 30 2e 35 29 3b 0a 20 20 20 20 70 2d 3e 76 61 0.5);. p->va
2440: 6c 69 64 4a 44 20 3d 20 31 3b 0a 20 20 20 20 72 lidJD = 1;. r
2450: 65 74 75 72 6e 20 30 3b 0a 20 20 7d 0a 20 20 72 eturn 0;. }. r
2460: 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a eturn 1;.}../*.*
2470: 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20 59 65 * Compute the Ye
2480: 61 72 2c 20 4d 6f 6e 74 68 2c 20 61 6e 64 20 44 ar, Month, and D
2490: 61 79 20 66 72 6f 6d 20 74 68 65 20 6a 75 6c 69 ay from the juli
24a0: 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 2e 0a 2a an day number..*
24b0: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f /.static void co
24c0: 6d 70 75 74 65 59 4d 44 28 44 61 74 65 54 69 6d mputeYMD(DateTim
24d0: 65 20 2a 70 29 7b 0a 20 20 69 6e 74 20 5a 2c 20 e *p){. int Z,
24e0: 41 2c 20 42 2c 20 43 2c 20 44 2c 20 45 2c 20 58 A, B, C, D, E, X
24f0: 31 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61 6c 69 1;. if( p->vali
2500: 64 59 4d 44 20 29 20 72 65 74 75 72 6e 3b 0a 20 dYMD ) return;.
2510: 20 69 66 28 20 21 70 2d 3e 76 61 6c 69 64 4a 44 if( !p->validJD
2520: 20 29 7b 0a 20 20 20 20 70 2d 3e 59 20 3d 20 32 ){. p->Y = 2
2530: 30 30 30 3b 0a 20 20 20 20 70 2d 3e 4d 20 3d 20 000;. p->M =
2540: 31 3b 0a 20 20 20 20 70 2d 3e 44 20 3d 20 31 3b 1;. p->D = 1;
2550: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 5a 20 . }else{. Z
2560: 3d 20 28 69 6e 74 29 28 28 70 2d 3e 69 4a 44 20 = (int)((p->iJD
2570: 2b 20 34 33 32 30 30 30 30 30 29 2f 38 36 34 30 + 43200000)/8640
2580: 30 30 30 30 29 3b 0a 20 20 20 20 41 20 3d 20 28 0000);. A = (
2590: 69 6e 74 29 28 28 5a 20 2d 20 31 38 36 37 32 31 int)((Z - 186721
25a0: 36 2e 32 35 29 2f 33 36 35 32 34 2e 32 35 29 3b 6.25)/36524.25);
25b0: 0a 20 20 20 20 41 20 3d 20 5a 20 2b 20 31 20 2b . A = Z + 1 +
25c0: 20 41 20 2d 20 28 41 2f 34 29 3b 0a 20 20 20 20 A - (A/4);.
25d0: 42 20 3d 20 41 20 2b 20 31 35 32 34 3b 0a 20 20 B = A + 1524;.
25e0: 20 20 43 20 3d 20 28 69 6e 74 29 28 28 42 20 2d C = (int)((B -
25f0: 20 31 32 32 2e 31 29 2f 33 36 35 2e 32 35 29 3b 122.1)/365.25);
2600: 0a 20 20 20 20 44 20 3d 20 28 33 36 35 32 35 2a . D = (36525*
2610: 28 43 26 33 32 37 36 37 29 29 2f 31 30 30 3b 0a (C&32767))/100;.
2620: 20 20 20 20 45 20 3d 20 28 69 6e 74 29 28 28 42 E = (int)((B
2630: 2d 44 29 2f 33 30 2e 36 30 30 31 29 3b 0a 20 20 -D)/30.6001);.
2640: 20 20 58 31 20 3d 20 28 69 6e 74 29 28 33 30 2e X1 = (int)(30.
2650: 36 30 30 31 2a 45 29 3b 0a 20 20 20 20 70 2d 3e 6001*E);. p->
2660: 44 20 3d 20 42 20 2d 20 44 20 2d 20 58 31 3b 0a D = B - D - X1;.
2670: 20 20 20 20 70 2d 3e 4d 20 3d 20 45 3c 31 34 20 p->M = E<14
2680: 3f 20 45 2d 31 20 3a 20 45 2d 31 33 3b 0a 20 20 ? E-1 : E-13;.
2690: 20 20 70 2d 3e 59 20 3d 20 70 2d 3e 4d 3e 32 20 p->Y = p->M>2
26a0: 3f 20 43 20 2d 20 34 37 31 36 20 3a 20 43 20 2d ? C - 4716 : C -
26b0: 20 34 37 31 35 3b 0a 20 20 7d 0a 20 20 70 2d 3e 4715;. }. p->
26c0: 76 61 6c 69 64 59 4d 44 20 3d 20 31 3b 0a 7d 0a validYMD = 1;.}.
26d0: 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 ./*.** Compute t
26e0: 68 65 20 48 6f 75 72 2c 20 4d 69 6e 75 74 65 2c he Hour, Minute,
26f0: 20 61 6e 64 20 53 65 63 6f 6e 64 73 20 66 72 6f and Seconds fro
2700: 6d 20 74 68 65 20 6a 75 6c 69 61 6e 20 64 61 79 m the julian day
2710: 20 6e 75 6d 62 65 72 2e 0a 2a 2f 0a 73 74 61 74 number..*/.stat
2720: 69 63 20 76 6f 69 64 20 63 6f 6d 70 75 74 65 48 ic void computeH
2730: 4d 53 28 44 61 74 65 54 69 6d 65 20 2a 70 29 7b MS(DateTime *p){
2740: 0a 20 20 69 6e 74 20 73 3b 0a 20 20 69 66 28 20 . int s;. if(
2750: 70 2d 3e 76 61 6c 69 64 48 4d 53 20 29 20 72 65 p->validHMS ) re
2760: 74 75 72 6e 3b 0a 20 20 63 6f 6d 70 75 74 65 4a turn;. computeJ
2770: 44 28 70 29 3b 0a 20 20 73 20 3d 20 28 69 6e 74 D(p);. s = (int
2780: 29 28 28 70 2d 3e 69 4a 44 20 2b 20 34 33 32 30 )((p->iJD + 4320
2790: 30 30 30 30 29 20 25 20 38 36 34 30 30 30 30 30 0000) % 86400000
27a0: 29 3b 0a 20 20 70 2d 3e 73 20 3d 20 73 2f 31 30 );. p->s = s/10
27b0: 30 30 2e 30 3b 0a 20 20 73 20 3d 20 28 69 6e 74 00.0;. s = (int
27c0: 29 70 2d 3e 73 3b 0a 20 20 70 2d 3e 73 20 2d 3d )p->s;. p->s -=
27d0: 20 73 3b 0a 20 20 70 2d 3e 68 20 3d 20 73 2f 33 s;. p->h = s/3
27e0: 36 30 30 3b 0a 20 20 73 20 2d 3d 20 70 2d 3e 68 600;. s -= p->h
27f0: 2a 33 36 30 30 3b 0a 20 20 70 2d 3e 6d 20 3d 20 *3600;. p->m =
2800: 73 2f 36 30 3b 0a 20 20 70 2d 3e 73 20 2b 3d 20 s/60;. p->s +=
2810: 73 20 2d 20 70 2d 3e 6d 2a 36 30 3b 0a 20 20 70 s - p->m*60;. p
2820: 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20 31 3b 0a ->validHMS = 1;.
2830: 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 }../*.** Compute
2840: 20 62 6f 74 68 20 59 4d 44 20 61 6e 64 20 48 4d both YMD and HM
2850: 53 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 S.*/.static void
2860: 20 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28 computeYMD_HMS(
2870: 44 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 DateTime *p){.
2880: 63 6f 6d 70 75 74 65 59 4d 44 28 70 29 3b 0a 20 computeYMD(p);.
2890: 20 63 6f 6d 70 75 74 65 48 4d 53 28 70 29 3b 0a computeHMS(p);.
28a0: 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6c 65 61 72 20 74 }../*.** Clear t
28b0: 68 65 20 59 4d 44 20 61 6e 64 20 48 4d 53 20 61 he YMD and HMS a
28c0: 6e 64 20 74 68 65 20 54 5a 0a 2a 2f 0a 73 74 61 nd the TZ.*/.sta
28d0: 74 69 63 20 76 6f 69 64 20 63 6c 65 61 72 59 4d tic void clearYM
28e0: 44 5f 48 4d 53 5f 54 5a 28 44 61 74 65 54 69 6d D_HMS_TZ(DateTim
28f0: 65 20 2a 70 29 7b 0a 20 20 70 2d 3e 76 61 6c 69 e *p){. p->vali
2900: 64 59 4d 44 20 3d 20 30 3b 0a 20 20 70 2d 3e 76 dYMD = 0;. p->v
2910: 61 6c 69 64 48 4d 53 20 3d 20 30 3b 0a 20 20 70 alidHMS = 0;. p
2920: 2d 3e 76 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 7d ->validTZ = 0;.}
2930: 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 ..#ifndef SQLITE
2940: 5f 4f 4d 49 54 5f 4c 4f 43 41 4c 54 49 4d 45 0a _OMIT_LOCALTIME.
2950: 2f 2a 0a 2a 2a 20 4f 6e 20 72 65 63 65 6e 74 20 /*.** On recent
2960: 57 69 6e 64 6f 77 73 20 70 6c 61 74 66 6f 72 6d Windows platform
2970: 73 2c 20 74 68 65 20 6c 6f 63 61 6c 74 69 6d 65 s, the localtime
2980: 5f 73 28 29 20 66 75 6e 63 74 69 6f 6e 20 69 73 _s() function is
2990: 20 61 76 61 69 6c 61 62 6c 65 0a 2a 2a 20 61 73 available.** as
29a0: 20 70 61 72 74 20 6f 66 20 74 68 65 20 22 53 65 part of the "Se
29b0: 63 75 72 65 20 43 52 54 22 2e 20 49 74 20 69 73 cure CRT". It is
29c0: 20 65 73 73 65 6e 74 69 61 6c 6c 79 20 65 71 75 essentially equ
29d0: 69 76 61 6c 65 6e 74 20 74 6f 20 0a 2a 2a 20 6c ivalent to .** l
29e0: 6f 63 61 6c 74 69 6d 65 5f 72 28 29 20 61 76 61 ocaltime_r() ava
29f0: 69 6c 61 62 6c 65 20 75 6e 64 65 72 20 6d 6f 73 ilable under mos
2a00: 74 20 50 4f 53 49 58 20 70 6c 61 74 66 6f 72 6d t POSIX platform
2a10: 73 2c 20 65 78 63 65 70 74 20 74 68 61 74 20 74 s, except that t
2a20: 68 65 20 0a 2a 2a 20 6f 72 64 65 72 20 6f 66 20 he .** order of
2a30: 74 68 65 20 70 61 72 61 6d 65 74 65 72 73 20 69 the parameters i
2a40: 73 20 72 65 76 65 72 73 65 64 2e 0a 2a 2a 0a 2a s reversed..**.*
2a50: 2a 20 53 65 65 20 68 74 74 70 3a 2f 2f 6d 73 64 * See http://msd
2a60: 6e 2e 6d 69 63 72 6f 73 6f 66 74 2e 63 6f 6d 2f n.microsoft.com/
2a70: 65 6e 2d 75 73 2f 6c 69 62 72 61 72 79 2f 61 34 en-us/library/a4
2a80: 34 32 78 33 79 65 28 56 53 2e 38 30 29 2e 61 73 42x3ye(VS.80).as
2a90: 70 78 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 px..**.** If the
2aa0: 20 75 73 65 72 20 68 61 73 20 6e 6f 74 20 69 6e user has not in
2ab0: 64 69 63 61 74 65 64 20 74 6f 20 75 73 65 20 6c dicated to use l
2ac0: 6f 63 61 6c 74 69 6d 65 5f 72 28 29 20 6f 72 20 ocaltime_r() or
2ad0: 6c 6f 63 61 6c 74 69 6d 65 5f 73 28 29 0a 2a 2a localtime_s().**
2ae0: 20 61 6c 72 65 61 64 79 2c 20 63 68 65 63 6b 20 already, check
2af0: 66 6f 72 20 61 6e 20 4d 53 56 43 20 62 75 69 6c for an MSVC buil
2b00: 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 74 68 d environment th
2b10: 61 74 20 70 72 6f 76 69 64 65 73 20 0a 2a 2a 20 at provides .**
2b20: 6c 6f 63 61 6c 74 69 6d 65 5f 73 28 29 2e 0a 2a localtime_s()..*
2b30: 2f 0a 23 69 66 20 21 48 41 56 45 5f 4c 4f 43 41 /.#if !HAVE_LOCA
2b40: 4c 54 49 4d 45 5f 52 20 26 26 20 21 48 41 56 45 LTIME_R && !HAVE
2b50: 5f 4c 4f 43 41 4c 54 49 4d 45 5f 53 20 5c 0a 20 _LOCALTIME_S \.
2b60: 20 20 20 26 26 20 64 65 66 69 6e 65 64 28 5f 4d && defined(_M
2b70: 53 43 5f 56 45 52 29 20 26 26 20 64 65 66 69 6e SC_VER) && defin
2b80: 65 64 28 5f 43 52 54 5f 49 4e 53 45 43 55 52 45 ed(_CRT_INSECURE
2b90: 5f 44 45 50 52 45 43 41 54 45 29 0a 23 75 6e 64 _DEPRECATE).#und
2ba0: 65 66 20 20 48 41 56 45 5f 4c 4f 43 41 4c 54 49 ef HAVE_LOCALTI
2bb0: 4d 45 5f 53 0a 23 64 65 66 69 6e 65 20 48 41 56 ME_S.#define HAV
2bc0: 45 5f 4c 4f 43 41 4c 54 49 4d 45 5f 53 20 31 0a E_LOCALTIME_S 1.
2bd0: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 #endif../*.** Th
2be0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74 e following rout
2bf0: 69 6e 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 ine implements t
2c00: 68 65 20 72 6f 75 67 68 20 65 71 75 69 76 61 6c he rough equival
2c10: 65 6e 74 20 6f 66 20 6c 6f 63 61 6c 74 69 6d 65 ent of localtime
2c20: 5f 72 28 29 0a 2a 2a 20 75 73 69 6e 67 20 77 68 _r().** using wh
2c30: 61 74 65 76 65 72 20 6f 70 65 72 61 74 69 6e 67 atever operating
2c40: 2d 73 79 73 74 65 6d 20 73 70 65 63 69 66 69 63 -system specific
2c50: 20 6c 6f 63 61 6c 74 69 6d 65 20 66 61 63 69 6c localtime facil
2c60: 69 74 79 20 74 68 61 74 0a 2a 2a 20 69 73 20 61 ity that.** is a
2c70: 76 61 69 6c 61 62 6c 65 2e 20 20 54 68 69 73 20 vailable. This
2c80: 72 6f 75 74 69 6e 65 20 72 65 74 75 72 6e 73 20 routine returns
2c90: 30 20 6f 6e 20 73 75 63 63 65 73 73 20 61 6e 64 0 on success and
2ca0: 0a 2a 2a 20 6e 6f 6e 2d 7a 65 72 6f 20 6f 6e 20 .** non-zero on
2cb0: 61 6e 79 20 6b 69 6e 64 20 6f 66 20 65 72 72 6f any kind of erro
2cc0: 72 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 r..**.** If the
2cd0: 73 71 6c 69 74 65 33 47 6c 6f 62 61 6c 43 6f 6e sqlite3GlobalCon
2ce0: 66 69 67 2e 62 4c 6f 63 61 6c 74 69 6d 65 46 61 fig.bLocaltimeFa
2cf0: 75 6c 74 20 76 61 72 69 61 62 6c 65 20 69 73 20 ult variable is
2d00: 74 72 75 65 20 74 68 65 6e 20 74 68 69 73 0a 2a true then this.*
2d10: 2a 20 72 6f 75 74 69 6e 65 20 77 69 6c 6c 20 61 * routine will a
2d20: 6c 77 61 79 73 20 66 61 69 6c 2e 0a 2a 2a 0a 2a lways fail..**.*
2d30: 2a 20 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 * EVIDENCE-OF: R
2d40: 2d 36 32 31 37 32 2d 30 30 30 33 36 20 49 6e 20 -62172-00036 In
2d50: 74 68 69 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 this implementat
2d60: 69 6f 6e 2c 20 74 68 65 20 73 74 61 6e 64 61 72 ion, the standar
2d70: 64 20 43 0a 2a 2a 20 6c 69 62 72 61 72 79 20 66 d C.** library f
2d80: 75 6e 63 74 69 6f 6e 20 6c 6f 63 61 6c 74 69 6d unction localtim
2d90: 65 5f 72 28 29 20 69 73 20 75 73 65 64 20 74 6f e_r() is used to
2da0: 20 61 73 73 69 73 74 20 69 6e 20 74 68 65 20 63 assist in the c
2db0: 61 6c 63 75 6c 61 74 69 6f 6e 20 6f 66 0a 2a 2a alculation of.**
2dc0: 20 6c 6f 63 61 6c 20 74 69 6d 65 2e 0a 2a 2f 0a local time..*/.
2dd0: 73 74 61 74 69 63 20 69 6e 74 20 6f 73 4c 6f 63 static int osLoc
2de0: 61 6c 74 69 6d 65 28 74 69 6d 65 5f 74 20 2a 74 altime(time_t *t
2df0: 2c 20 73 74 72 75 63 74 20 74 6d 20 2a 70 54 6d , struct tm *pTm
2e00: 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 23 69 66 ){. int rc;.#if
2e10: 20 21 48 41 56 45 5f 4c 4f 43 41 4c 54 49 4d 45 !HAVE_LOCALTIME
2e20: 5f 52 20 26 26 20 21 48 41 56 45 5f 4c 4f 43 41 _R && !HAVE_LOCA
2e30: 4c 54 49 4d 45 5f 53 0a 20 20 73 74 72 75 63 74 LTIME_S. struct
2e40: 20 74 6d 20 2a 70 58 3b 0a 23 69 66 20 53 51 4c tm *pX;.#if SQL
2e50: 49 54 45 5f 54 48 52 45 41 44 53 41 46 45 3e 30 ITE_THREADSAFE>0
2e60: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 . sqlite3_mutex
2e70: 20 2a 6d 75 74 65 78 20 3d 20 73 71 6c 69 74 65 *mutex = sqlite
2e80: 33 4d 75 74 65 78 41 6c 6c 6f 63 28 53 51 4c 49 3MutexAlloc(SQLI
2e90: 54 45 5f 4d 55 54 45 58 5f 53 54 41 54 49 43 5f TE_MUTEX_STATIC_
2ea0: 4d 41 53 54 45 52 29 3b 0a 23 65 6e 64 69 66 0a MASTER);.#endif.
2eb0: 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f sqlite3_mutex_
2ec0: 65 6e 74 65 72 28 6d 75 74 65 78 29 3b 0a 20 20 enter(mutex);.
2ed0: 70 58 20 3d 20 6c 6f 63 61 6c 74 69 6d 65 28 74 pX = localtime(t
2ee0: 29 3b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 );.#ifndef SQLIT
2ef0: 45 5f 4f 4d 49 54 5f 42 55 49 4c 54 49 4e 5f 54 E_OMIT_BUILTIN_T
2f00: 45 53 54 0a 20 20 69 66 28 20 73 71 6c 69 74 65 EST. if( sqlite
2f10: 33 47 6c 6f 62 61 6c 43 6f 6e 66 69 67 2e 62 4c 3GlobalConfig.bL
2f20: 6f 63 61 6c 74 69 6d 65 46 61 75 6c 74 20 29 20 ocaltimeFault )
2f30: 70 58 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 20 pX = 0;.#endif.
2f40: 20 69 66 28 20 70 58 20 29 20 2a 70 54 6d 20 3d if( pX ) *pTm =
2f50: 20 2a 70 58 3b 0a 20 20 73 71 6c 69 74 65 33 5f *pX;. sqlite3_
2f60: 6d 75 74 65 78 5f 6c 65 61 76 65 28 6d 75 74 65 mutex_leave(mute
2f70: 78 29 3b 0a 20 20 72 63 20 3d 20 70 58 3d 3d 30 x);. rc = pX==0
2f80: 3b 0a 23 65 6c 73 65 0a 23 69 66 6e 64 65 66 20 ;.#else.#ifndef
2f90: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 42 55 49 4c SQLITE_OMIT_BUIL
2fa0: 54 49 4e 5f 54 45 53 54 0a 20 20 69 66 28 20 73 TIN_TEST. if( s
2fb0: 71 6c 69 74 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 qlite3GlobalConf
2fc0: 69 67 2e 62 4c 6f 63 61 6c 74 69 6d 65 46 61 75 ig.bLocaltimeFau
2fd0: 6c 74 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 23 lt ) return 1;.#
2fe0: 65 6e 64 69 66 0a 23 69 66 20 48 41 56 45 5f 4c endif.#if HAVE_L
2ff0: 4f 43 41 4c 54 49 4d 45 5f 52 0a 20 20 72 63 20 OCALTIME_R. rc
3000: 3d 20 6c 6f 63 61 6c 74 69 6d 65 5f 72 28 74 2c = localtime_r(t,
3010: 20 70 54 6d 29 3d 3d 30 3b 0a 23 65 6c 73 65 0a pTm)==0;.#else.
3020: 20 20 72 63 20 3d 20 6c 6f 63 61 6c 74 69 6d 65 rc = localtime
3030: 5f 73 28 70 54 6d 2c 20 74 29 3b 0a 23 65 6e 64 _s(pTm, t);.#end
3040: 69 66 20 2f 2a 20 48 41 56 45 5f 4c 4f 43 41 4c if /* HAVE_LOCAL
3050: 54 49 4d 45 5f 52 20 2a 2f 0a 23 65 6e 64 69 66 TIME_R */.#endif
3060: 20 2f 2a 20 48 41 56 45 5f 4c 4f 43 41 4c 54 49 /* HAVE_LOCALTI
3070: 4d 45 5f 52 20 7c 7c 20 48 41 56 45 5f 4c 4f 43 ME_R || HAVE_LOC
3080: 41 4c 54 49 4d 45 5f 53 20 2a 2f 0a 20 20 72 65 ALTIME_S */. re
3090: 74 75 72 6e 20 72 63 3b 0a 7d 0a 23 65 6e 64 69 turn rc;.}.#endi
30a0: 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 f /* SQLITE_OMIT
30b0: 5f 4c 4f 43 41 4c 54 49 4d 45 20 2a 2f 0a 0a 0a _LOCALTIME */...
30c0: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
30d0: 4d 49 54 5f 4c 4f 43 41 4c 54 49 4d 45 0a 2f 2a MIT_LOCALTIME./*
30e0: 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20 .** Compute the
30f0: 64 69 66 66 65 72 65 6e 63 65 20 28 69 6e 20 6d difference (in m
3100: 69 6c 6c 69 73 65 63 6f 6e 64 73 29 20 62 65 74 illiseconds) bet
3110: 77 65 65 6e 20 6c 6f 63 61 6c 74 69 6d 65 20 61 ween localtime a
3120: 6e 64 20 55 54 43 0a 2a 2a 20 28 61 2e 6b 2e 61 nd UTC.** (a.k.a
3130: 2e 20 47 4d 54 29 20 66 6f 72 20 74 68 65 20 74 . GMT) for the t
3140: 69 6d 65 20 76 61 6c 75 65 20 70 20 77 68 65 72 ime value p wher
3150: 65 20 70 20 69 73 20 69 6e 20 55 54 43 2e 20 49 e p is in UTC. I
3160: 66 20 6e 6f 20 65 72 72 6f 72 20 6f 63 63 75 72 f no error occur
3170: 73 2c 0a 2a 2a 20 72 65 74 75 72 6e 20 74 68 69 s,.** return thi
3180: 73 20 76 61 6c 75 65 20 61 6e 64 20 73 65 74 20 s value and set
3190: 2a 70 52 63 20 74 6f 20 53 51 4c 49 54 45 5f 4f *pRc to SQLITE_O
31a0: 4b 2e 20 0a 2a 2a 0a 2a 2a 20 4f 72 2c 20 69 66 K. .**.** Or, if
31b0: 20 61 6e 20 65 72 72 6f 72 20 64 6f 65 73 20 6f an error does o
31c0: 63 63 75 72 2c 20 73 65 74 20 2a 70 52 63 20 74 ccur, set *pRc t
31d0: 6f 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 2e 20 o SQLITE_ERROR.
31e0: 54 68 65 20 72 65 74 75 72 6e 65 64 20 76 61 6c The returned val
31f0: 75 65 0a 2a 2a 20 69 73 20 75 6e 64 65 66 69 6e ue.** is undefin
3200: 65 64 20 69 6e 20 74 68 69 73 20 63 61 73 65 2e ed in this case.
3210: 0a 2a 2f 0a 73 74 61 74 69 63 20 73 71 6c 69 74 .*/.static sqlit
3220: 65 33 5f 69 6e 74 36 34 20 6c 6f 63 61 6c 74 69 e3_int64 localti
3230: 6d 65 4f 66 66 73 65 74 28 0a 20 20 44 61 74 65 meOffset(. Date
3240: 54 69 6d 65 20 2a 70 2c 20 20 20 20 20 20 20 20 Time *p,
3250: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 44 /* D
3260: 61 74 65 20 61 74 20 77 68 69 63 68 20 74 6f 20 ate at which to
3270: 63 61 6c 63 75 6c 61 74 65 20 6f 66 66 73 65 74 calculate offset
3280: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f */. sqlite3_co
3290: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 20 20 20 ntext *pCtx,
32a0: 20 20 20 20 20 20 2f 2a 20 57 72 69 74 65 20 65 /* Write e
32b0: 72 72 6f 72 20 68 65 72 65 20 69 66 20 6f 6e 65 rror here if one
32c0: 20 6f 63 63 75 72 73 20 2a 2f 0a 20 20 69 6e 74 occurs */. int
32d0: 20 2a 70 52 63 20 20 20 20 20 20 20 20 20 20 20 *pRc
32e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 /*
32f0: 4f 55 54 3a 20 45 72 72 6f 72 20 63 6f 64 65 2e OUT: Error code.
3300: 20 53 51 4c 49 54 45 5f 4f 4b 20 6f 72 20 45 52 SQLITE_OK or ER
3310: 52 4f 52 20 2a 2f 0a 29 7b 0a 20 20 44 61 74 65 ROR */.){. Date
3320: 54 69 6d 65 20 78 2c 20 79 3b 0a 20 20 74 69 6d Time x, y;. tim
3330: 65 5f 74 20 74 3b 0a 20 20 73 74 72 75 63 74 20 e_t t;. struct
3340: 74 6d 20 73 4c 6f 63 61 6c 3b 0a 0a 20 20 2f 2a tm sLocal;.. /*
3350: 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 Initialize the
3360: 63 6f 6e 74 65 6e 74 73 20 6f 66 20 73 4c 6f 63 contents of sLoc
3370: 61 6c 20 74 6f 20 61 76 6f 69 64 20 61 20 63 6f al to avoid a co
3380: 6d 70 69 6c 65 72 20 77 61 72 6e 69 6e 67 2e 20 mpiler warning.
3390: 2a 2f 0a 20 20 6d 65 6d 73 65 74 28 26 73 4c 6f */. memset(&sLo
33a0: 63 61 6c 2c 20 30 2c 20 73 69 7a 65 6f 66 28 73 cal, 0, sizeof(s
33b0: 4c 6f 63 61 6c 29 29 3b 0a 0a 20 20 78 20 3d 20 Local));.. x =
33c0: 2a 70 3b 0a 20 20 63 6f 6d 70 75 74 65 59 4d 44 *p;. computeYMD
33d0: 5f 48 4d 53 28 26 78 29 3b 0a 20 20 69 66 28 20 _HMS(&x);. if(
33e0: 78 2e 59 3c 31 39 37 31 20 7c 7c 20 78 2e 59 3e x.Y<1971 || x.Y>
33f0: 3d 32 30 33 38 20 29 7b 0a 20 20 20 20 2f 2a 20 =2038 ){. /*
3400: 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 35 EVIDENCE-OF: R-5
3410: 35 32 36 39 2d 32 39 35 39 38 20 54 68 65 20 6c 5269-29598 The l
3420: 6f 63 61 6c 74 69 6d 65 5f 72 28 29 20 43 20 66 ocaltime_r() C f
3430: 75 6e 63 74 69 6f 6e 20 6e 6f 72 6d 61 6c 6c 79 unction normally
3440: 20 6f 6e 6c 79 0a 20 20 20 20 2a 2a 20 77 6f 72 only. ** wor
3450: 6b 73 20 66 6f 72 20 79 65 61 72 73 20 62 65 74 ks for years bet
3460: 77 65 65 6e 20 31 39 37 30 20 61 6e 64 20 32 30 ween 1970 and 20
3470: 33 37 2e 20 46 6f 72 20 64 61 74 65 73 20 6f 75 37. For dates ou
3480: 74 73 69 64 65 20 74 68 69 73 20 72 61 6e 67 65 tside this range
3490: 2c 0a 20 20 20 20 2a 2a 20 53 51 4c 69 74 65 20 ,. ** SQLite
34a0: 61 74 74 65 6d 70 74 73 20 74 6f 20 6d 61 70 20 attempts to map
34b0: 74 68 65 20 79 65 61 72 20 69 6e 74 6f 20 61 6e the year into an
34c0: 20 65 71 75 69 76 61 6c 65 6e 74 20 79 65 61 72 equivalent year
34d0: 20 77 69 74 68 69 6e 20 74 68 69 73 0a 20 20 20 within this.
34e0: 20 2a 2a 20 72 61 6e 67 65 2c 20 64 6f 20 74 68 ** range, do th
34f0: 65 20 63 61 6c 63 75 6c 61 74 69 6f 6e 2c 20 74 e calculation, t
3500: 68 65 6e 20 6d 61 70 20 74 68 65 20 79 65 61 72 hen map the year
3510: 20 62 61 63 6b 2e 0a 20 20 20 20 2a 2f 0a 20 20 back.. */.
3520: 20 20 78 2e 59 20 3d 20 32 30 30 30 3b 0a 20 20 x.Y = 2000;.
3530: 20 20 78 2e 4d 20 3d 20 31 3b 0a 20 20 20 20 78 x.M = 1;. x
3540: 2e 44 20 3d 20 31 3b 0a 20 20 20 20 78 2e 68 20 .D = 1;. x.h
3550: 3d 20 30 3b 0a 20 20 20 20 78 2e 6d 20 3d 20 30 = 0;. x.m = 0
3560: 3b 0a 20 20 20 20 78 2e 73 20 3d 20 30 2e 30 3b ;. x.s = 0.0;
3570: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 . } else {.
3580: 69 6e 74 20 73 20 3d 20 28 69 6e 74 29 28 78 2e int s = (int)(x.
3590: 73 20 2b 20 30 2e 35 29 3b 0a 20 20 20 20 78 2e s + 0.5);. x.
35a0: 73 20 3d 20 73 3b 0a 20 20 7d 0a 20 20 78 2e 74 s = s;. }. x.t
35b0: 7a 20 3d 20 30 3b 0a 20 20 78 2e 76 61 6c 69 64 z = 0;. x.valid
35c0: 4a 44 20 3d 20 30 3b 0a 20 20 63 6f 6d 70 75 74 JD = 0;. comput
35d0: 65 4a 44 28 26 78 29 3b 0a 20 20 74 20 3d 20 28 eJD(&x);. t = (
35e0: 74 69 6d 65 5f 74 29 28 78 2e 69 4a 44 2f 31 30 time_t)(x.iJD/10
35f0: 30 30 20 2d 20 32 31 30 38 36 36 37 36 2a 28 69 00 - 21086676*(i
3600: 36 34 29 31 30 30 30 30 29 3b 0a 20 20 69 66 28 64)10000);. if(
3610: 20 6f 73 4c 6f 63 61 6c 74 69 6d 65 28 26 74 2c osLocaltime(&t,
3620: 20 26 73 4c 6f 63 61 6c 29 20 29 7b 0a 20 20 20 &sLocal) ){.
3630: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f sqlite3_result_
3640: 65 72 72 6f 72 28 70 43 74 78 2c 20 22 6c 6f 63 error(pCtx, "loc
3650: 61 6c 20 74 69 6d 65 20 75 6e 61 76 61 69 6c 61 al time unavaila
3660: 62 6c 65 22 2c 20 2d 31 29 3b 0a 20 20 20 20 2a ble", -1);. *
3670: 70 52 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 pRc = SQLITE_ERR
3680: 4f 52 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 OR;. return 0
3690: 3b 0a 20 20 7d 0a 20 20 79 2e 59 20 3d 20 73 4c ;. }. y.Y = sL
36a0: 6f 63 61 6c 2e 74 6d 5f 79 65 61 72 20 2b 20 31 ocal.tm_year + 1
36b0: 39 30 30 3b 0a 20 20 79 2e 4d 20 3d 20 73 4c 6f 900;. y.M = sLo
36c0: 63 61 6c 2e 74 6d 5f 6d 6f 6e 20 2b 20 31 3b 0a cal.tm_mon + 1;.
36d0: 20 20 79 2e 44 20 3d 20 73 4c 6f 63 61 6c 2e 74 y.D = sLocal.t
36e0: 6d 5f 6d 64 61 79 3b 0a 20 20 79 2e 68 20 3d 20 m_mday;. y.h =
36f0: 73 4c 6f 63 61 6c 2e 74 6d 5f 68 6f 75 72 3b 0a sLocal.tm_hour;.
3700: 20 20 79 2e 6d 20 3d 20 73 4c 6f 63 61 6c 2e 74 y.m = sLocal.t
3710: 6d 5f 6d 69 6e 3b 0a 20 20 79 2e 73 20 3d 20 73 m_min;. y.s = s
3720: 4c 6f 63 61 6c 2e 74 6d 5f 73 65 63 3b 0a 20 20 Local.tm_sec;.
3730: 79 2e 76 61 6c 69 64 59 4d 44 20 3d 20 31 3b 0a y.validYMD = 1;.
3740: 20 20 79 2e 76 61 6c 69 64 48 4d 53 20 3d 20 31 y.validHMS = 1
3750: 3b 0a 20 20 79 2e 76 61 6c 69 64 4a 44 20 3d 20 ;. y.validJD =
3760: 30 3b 0a 20 20 79 2e 76 61 6c 69 64 54 5a 20 3d 0;. y.validTZ =
3770: 20 30 3b 0a 20 20 63 6f 6d 70 75 74 65 4a 44 28 0;. computeJD(
3780: 26 79 29 3b 0a 20 20 2a 70 52 63 20 3d 20 53 51 &y);. *pRc = SQ
3790: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 72 65 74 75 72 LITE_OK;. retur
37a0: 6e 20 79 2e 69 4a 44 20 2d 20 78 2e 69 4a 44 3b n y.iJD - x.iJD;
37b0: 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c .}.#endif /* SQL
37c0: 49 54 45 5f 4f 4d 49 54 5f 4c 4f 43 41 4c 54 49 ITE_OMIT_LOCALTI
37d0: 4d 45 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50 72 6f ME */../*.** Pro
37e0: 63 65 73 73 20 61 20 6d 6f 64 69 66 69 65 72 20 cess a modifier
37f0: 74 6f 20 61 20 64 61 74 65 2d 74 69 6d 65 20 73 to a date-time s
3800: 74 61 6d 70 2e 20 20 54 68 65 20 6d 6f 64 69 66 tamp. The modif
3810: 69 65 72 73 20 61 72 65 0a 2a 2a 20 61 73 20 66 iers are.** as f
3820: 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 ollows:.**.**
3830: 20 20 4e 4e 4e 20 64 61 79 73 0a 2a 2a 20 20 20 NNN days.**
3840: 20 20 4e 4e 4e 20 68 6f 75 72 73 0a 2a 2a 20 20 NNN hours.**
3850: 20 20 20 4e 4e 4e 20 6d 69 6e 75 74 65 73 0a 2a NNN minutes.*
3860: 2a 20 20 20 20 20 4e 4e 4e 2e 4e 4e 4e 4e 20 73 * NNN.NNNN s
3870: 65 63 6f 6e 64 73 0a 2a 2a 20 20 20 20 20 4e 4e econds.** NN
3880: 4e 20 6d 6f 6e 74 68 73 0a 2a 2a 20 20 20 20 20 N months.**
3890: 4e 4e 4e 20 79 65 61 72 73 0a 2a 2a 20 20 20 20 NNN years.**
38a0: 20 73 74 61 72 74 20 6f 66 20 6d 6f 6e 74 68 0a start of month.
38b0: 2a 2a 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 ** start of
38c0: 79 65 61 72 0a 2a 2a 20 20 20 20 20 73 74 61 72 year.** star
38d0: 74 20 6f 66 20 77 65 65 6b 0a 2a 2a 20 20 20 20 t of week.**
38e0: 20 73 74 61 72 74 20 6f 66 20 64 61 79 0a 2a 2a start of day.**
38f0: 20 20 20 20 20 77 65 65 6b 64 61 79 20 4e 0a 2a weekday N.*
3900: 2a 20 20 20 20 20 75 6e 69 78 65 70 6f 63 68 0a * unixepoch.
3910: 2a 2a 20 20 20 20 20 6c 6f 63 61 6c 74 69 6d 65 ** localtime
3920: 0a 2a 2a 20 20 20 20 20 75 74 63 0a 2a 2a 0a 2a .** utc.**.*
3930: 2a 20 52 65 74 75 72 6e 20 30 20 6f 6e 20 73 75 * Return 0 on su
3940: 63 63 65 73 73 20 61 6e 64 20 31 20 69 66 20 74 ccess and 1 if t
3950: 68 65 72 65 20 69 73 20 61 6e 79 20 6b 69 6e 64 here is any kind
3960: 20 6f 66 20 65 72 72 6f 72 2e 20 49 66 20 74 68 of error. If th
3970: 65 20 65 72 72 6f 72 0a 2a 2a 20 69 73 20 69 6e e error.** is in
3980: 20 61 20 73 79 73 74 65 6d 20 63 61 6c 6c 20 28 a system call (
3990: 69 2e 65 2e 20 6c 6f 63 61 6c 74 69 6d 65 28 29 i.e. localtime()
39a0: 29 2c 20 74 68 65 6e 20 61 6e 20 65 72 72 6f 72 ), then an error
39b0: 20 6d 65 73 73 61 67 65 20 69 73 20 77 72 69 74 message is writ
39c0: 74 65 6e 0a 2a 2a 20 74 6f 20 63 6f 6e 74 65 78 ten.** to contex
39d0: 74 20 70 43 74 78 2e 20 49 66 20 74 68 65 20 65 t pCtx. If the e
39e0: 72 72 6f 72 20 69 73 20 61 6e 20 75 6e 72 65 63 rror is an unrec
39f0: 6f 67 6e 69 7a 65 64 20 6d 6f 64 69 66 69 65 72 ognized modifier
3a00: 2c 20 6e 6f 20 65 72 72 6f 72 20 69 73 0a 2a 2a , no error is.**
3a10: 20 77 72 69 74 74 65 6e 20 74 6f 20 70 43 74 78 written to pCtx
3a20: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 ..*/.static int
3a30: 70 61 72 73 65 4d 6f 64 69 66 69 65 72 28 73 71 parseModifier(sq
3a40: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 lite3_context *p
3a50: 43 74 78 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 Ctx, const char
3a60: 2a 7a 4d 6f 64 2c 20 44 61 74 65 54 69 6d 65 20 *zMod, DateTime
3a70: 2a 70 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 *p){. int rc =
3a80: 31 3b 0a 20 20 69 6e 74 20 6e 3b 0a 20 20 64 6f 1;. int n;. do
3a90: 75 62 6c 65 20 72 3b 0a 20 20 63 68 61 72 20 2a uble r;. char *
3aa0: 7a 2c 20 7a 42 75 66 5b 33 30 5d 3b 0a 20 20 7a z, zBuf[30];. z
3ab0: 20 3d 20 7a 42 75 66 3b 0a 20 20 66 6f 72 28 6e = zBuf;. for(n
3ac0: 3d 30 3b 20 6e 3c 41 72 72 61 79 53 69 7a 65 28 =0; n<ArraySize(
3ad0: 7a 42 75 66 29 2d 31 20 26 26 20 7a 4d 6f 64 5b zBuf)-1 && zMod[
3ae0: 6e 5d 3b 20 6e 2b 2b 29 7b 0a 20 20 20 20 7a 5b n]; n++){. z[
3af0: 6e 5d 20 3d 20 28 63 68 61 72 29 73 71 6c 69 74 n] = (char)sqlit
3b00: 65 33 55 70 70 65 72 54 6f 4c 6f 77 65 72 5b 28 e3UpperToLower[(
3b10: 75 38 29 7a 4d 6f 64 5b 6e 5d 5d 3b 0a 20 20 7d u8)zMod[n]];. }
3b20: 0a 20 20 7a 5b 6e 5d 20 3d 20 30 3b 0a 20 20 73 . z[n] = 0;. s
3b30: 77 69 74 63 68 28 20 7a 5b 30 5d 20 29 7b 0a 23 witch( z[0] ){.#
3b40: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d ifndef SQLITE_OM
3b50: 49 54 5f 4c 4f 43 41 4c 54 49 4d 45 0a 20 20 20 IT_LOCALTIME.
3b60: 20 63 61 73 65 20 27 6c 27 3a 20 7b 0a 20 20 20 case 'l': {.
3b70: 20 20 20 2f 2a 20 20 20 20 6c 6f 63 61 6c 74 69 /* localti
3b80: 6d 65 0a 20 20 20 20 20 20 2a 2a 0a 20 20 20 20 me. **.
3b90: 20 20 2a 2a 20 41 73 73 75 6d 69 6e 67 20 74 68 ** Assuming th
3ba0: 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 76 e current time v
3bb0: 61 6c 75 65 20 69 73 20 55 54 43 20 28 61 2e 6b alue is UTC (a.k
3bc0: 2e 61 2e 20 47 4d 54 29 2c 20 73 68 69 66 74 20 .a. GMT), shift
3bd0: 69 74 20 74 6f 0a 20 20 20 20 20 20 2a 2a 20 73 it to. ** s
3be0: 68 6f 77 20 6c 6f 63 61 6c 20 74 69 6d 65 2e 0a how local time..
3bf0: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 69 */. i
3c00: 66 28 20 73 74 72 63 6d 70 28 7a 2c 20 22 6c 6f f( strcmp(z, "lo
3c10: 63 61 6c 74 69 6d 65 22 29 3d 3d 30 20 29 7b 0a caltime")==0 ){.
3c20: 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74 65 4a computeJ
3c30: 44 28 70 29 3b 0a 20 20 20 20 20 20 20 20 70 2d D(p);. p-
3c40: 3e 69 4a 44 20 2b 3d 20 6c 6f 63 61 6c 74 69 6d >iJD += localtim
3c50: 65 4f 66 66 73 65 74 28 70 2c 20 70 43 74 78 2c eOffset(p, pCtx,
3c60: 20 26 72 63 29 3b 0a 20 20 20 20 20 20 20 20 63 &rc);. c
3c70: 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a 28 70 learYMD_HMS_TZ(p
3c80: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 );. }.
3c90: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 23 65 break;. }.#e
3ca0: 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 27 75 ndif. case 'u
3cb0: 27 3a 20 7b 0a 20 20 20 20 20 20 2f 2a 0a 20 20 ': {. /*.
3cc0: 20 20 20 20 2a 2a 20 20 20 20 75 6e 69 78 65 70 ** unixep
3cd0: 6f 63 68 0a 20 20 20 20 20 20 2a 2a 0a 20 20 20 och. **.
3ce0: 20 20 20 2a 2a 20 54 72 65 61 74 20 74 68 65 20 ** Treat the
3cf0: 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f 66 current value of
3d00: 20 70 2d 3e 69 4a 44 20 61 73 20 74 68 65 20 6e p->iJD as the n
3d10: 75 6d 62 65 72 20 6f 66 0a 20 20 20 20 20 20 2a umber of. *
3d20: 2a 20 73 65 63 6f 6e 64 73 20 73 69 6e 63 65 20 * seconds since
3d30: 31 39 37 30 2e 20 20 43 6f 6e 76 65 72 74 20 74 1970. Convert t
3d40: 6f 20 61 20 72 65 61 6c 20 6a 75 6c 69 61 6e 20 o a real julian
3d50: 64 61 79 20 6e 75 6d 62 65 72 2e 0a 20 20 20 20 day number..
3d60: 20 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 73 */. if( s
3d70: 74 72 63 6d 70 28 7a 2c 20 22 75 6e 69 78 65 70 trcmp(z, "unixep
3d80: 6f 63 68 22 29 3d 3d 30 20 26 26 20 70 2d 3e 76 och")==0 && p->v
3d90: 61 6c 69 64 4a 44 20 29 7b 0a 20 20 20 20 20 20 alidJD ){.
3da0: 20 20 70 2d 3e 69 4a 44 20 3d 20 28 70 2d 3e 69 p->iJD = (p->i
3db0: 4a 44 20 2b 20 34 33 32 30 30 29 2f 38 36 34 30 JD + 43200)/8640
3dc0: 30 20 2b 20 32 31 30 38 36 36 37 36 2a 28 69 36 0 + 21086676*(i6
3dd0: 34 29 31 30 30 30 30 30 30 30 3b 0a 20 20 20 20 4)10000000;.
3de0: 20 20 20 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 clearYMD_HMS
3df0: 5f 54 5a 28 70 29 3b 0a 20 20 20 20 20 20 20 20 _TZ(p);.
3e00: 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a rc = 0;. }.
3e10: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f #ifndef SQLITE_O
3e20: 4d 49 54 5f 4c 4f 43 41 4c 54 49 4d 45 0a 20 20 MIT_LOCALTIME.
3e30: 20 20 20 20 65 6c 73 65 20 69 66 28 20 73 74 72 else if( str
3e40: 63 6d 70 28 7a 2c 20 22 75 74 63 22 29 3d 3d 30 cmp(z, "utc")==0
3e50: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 ){. if(
3e60: 70 2d 3e 74 7a 53 65 74 3d 3d 30 20 29 7b 0a 20 p->tzSet==0 ){.
3e70: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 sqlite3
3e80: 5f 69 6e 74 36 34 20 63 31 3b 0a 20 20 20 20 20 _int64 c1;.
3e90: 20 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 computeJD(p
3ea0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 63 31 20 );. c1
3eb0: 3d 20 6c 6f 63 61 6c 74 69 6d 65 4f 66 66 73 65 = localtimeOffse
3ec0: 74 28 70 2c 20 70 43 74 78 2c 20 26 72 63 29 3b t(p, pCtx, &rc);
3ed0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 72 . if( r
3ee0: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a c==SQLITE_OK ){.
3ef0: 20 20 20 20 20 20 20 20 20 20 20 20 70 2d 3e 69 p->i
3f00: 4a 44 20 2d 3d 20 63 31 3b 0a 20 20 20 20 20 20 JD -= c1;.
3f10: 20 20 20 20 20 20 63 6c 65 61 72 59 4d 44 5f 48 clearYMD_H
3f20: 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 20 20 20 20 MS_TZ(p);.
3f30: 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 p->iJD +=
3f40: 63 31 20 2d 20 6c 6f 63 61 6c 74 69 6d 65 4f 66 c1 - localtimeOf
3f50: 66 73 65 74 28 70 2c 20 70 43 74 78 2c 20 26 72 fset(p, pCtx, &r
3f60: 63 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a c);. }.
3f70: 20 20 20 20 20 20 20 20 20 20 70 2d 3e 74 7a 53 p->tzS
3f80: 65 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 et = 1;.
3f90: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 }else{.
3fa0: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b rc = SQLITE_OK;
3fb0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
3fc0: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 }.#endif.
3fd0: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 break;. }.
3fe0: 20 63 61 73 65 20 27 77 27 3a 20 7b 0a 20 20 20 case 'w': {.
3ff0: 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 2a 20 20 /*. **
4000: 20 20 77 65 65 6b 64 61 79 20 4e 0a 20 20 20 20 weekday N.
4010: 20 20 2a 2a 0a 20 20 20 20 20 20 2a 2a 20 4d 6f **. ** Mo
4020: 76 65 20 74 68 65 20 64 61 74 65 20 74 6f 20 74 ve the date to t
4030: 68 65 20 73 61 6d 65 20 74 69 6d 65 20 6f 6e 20 he same time on
4040: 74 68 65 20 6e 65 78 74 20 6f 63 63 75 72 72 65 the next occurre
4050: 6e 63 65 20 6f 66 0a 20 20 20 20 20 20 2a 2a 20 nce of. **
4060: 77 65 65 6b 64 61 79 20 4e 20 77 68 65 72 65 20 weekday N where
4070: 30 3d 3d 53 75 6e 64 61 79 2c 20 31 3d 3d 4d 6f 0==Sunday, 1==Mo
4080: 6e 64 61 79 2c 20 61 6e 64 20 73 6f 20 66 6f 72 nday, and so for
4090: 74 68 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 th. If the.
40a0: 20 20 2a 2a 20 64 61 74 65 20 69 73 20 61 6c 72 ** date is alr
40b0: 65 61 64 79 20 6f 6e 20 74 68 65 20 61 70 70 72 eady on the appr
40c0: 6f 70 72 69 61 74 65 20 77 65 65 6b 64 61 79 2c opriate weekday,
40d0: 20 74 68 69 73 20 69 73 20 61 20 6e 6f 2d 6f 70 this is a no-op
40e0: 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 .. */.
40f0: 20 69 66 28 20 73 74 72 6e 63 6d 70 28 7a 2c 20 if( strncmp(z,
4100: 22 77 65 65 6b 64 61 79 20 22 2c 20 38 29 3d 3d "weekday ", 8)==
4110: 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0.
4120: 20 26 26 20 73 71 6c 69 74 65 33 41 74 6f 46 28 && sqlite3AtoF(
4130: 26 7a 5b 38 5d 2c 20 26 72 2c 20 73 71 6c 69 74 &z[8], &r, sqlit
4140: 65 33 53 74 72 6c 65 6e 33 30 28 26 7a 5b 38 5d e3Strlen30(&z[8]
4150: 29 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 29 0a ), SQLITE_UTF8).
4160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 &
4170: 26 20 28 6e 3d 28 69 6e 74 29 72 29 3d 3d 72 20 & (n=(int)r)==r
4180: 26 26 20 6e 3e 3d 30 20 26 26 20 72 3c 37 20 29 && n>=0 && r<7 )
4190: 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 {. sqlite
41a0: 33 5f 69 6e 74 36 34 20 5a 3b 0a 20 20 20 20 20 3_int64 Z;.
41b0: 20 20 20 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d computeYMD_HM
41c0: 53 28 70 29 3b 0a 20 20 20 20 20 20 20 20 70 2d S(p);. p-
41d0: 3e 76 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 20 20 >validTZ = 0;.
41e0: 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 64 4a 44 p->validJD
41f0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 63 6f = 0;. co
4200: 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 mputeJD(p);.
4210: 20 20 20 20 5a 20 3d 20 28 28 70 2d 3e 69 4a 44 Z = ((p->iJD
4220: 20 2b 20 31 32 39 36 30 30 30 30 30 29 2f 38 36 + 129600000)/86
4230: 34 30 30 30 30 30 29 20 25 20 37 3b 0a 20 20 20 400000) % 7;.
4240: 20 20 20 20 20 69 66 28 20 5a 3e 6e 20 29 20 5a if( Z>n ) Z
4250: 20 2d 3d 20 37 3b 0a 20 20 20 20 20 20 20 20 70 -= 7;. p
4260: 2d 3e 69 4a 44 20 2b 3d 20 28 6e 20 2d 20 5a 29 ->iJD += (n - Z)
4270: 2a 38 36 34 30 30 30 30 30 3b 0a 20 20 20 20 20 *86400000;.
4280: 20 20 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f clearYMD_HMS_
4290: 54 5a 28 70 29 3b 0a 20 20 20 20 20 20 20 20 72 TZ(p);. r
42a0: 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 c = 0;. }.
42b0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
42c0: 7d 0a 20 20 20 20 63 61 73 65 20 27 73 27 3a 20 }. case 's':
42d0: 7b 0a 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 {. /*.
42e0: 20 2a 2a 20 20 20 20 73 74 61 72 74 20 6f 66 20 ** start of
42f0: 54 54 54 54 54 0a 20 20 20 20 20 20 2a 2a 0a 20 TTTTT. **.
4300: 20 20 20 20 20 2a 2a 20 4d 6f 76 65 20 74 68 65 ** Move the
4310: 20 64 61 74 65 20 62 61 63 6b 77 61 72 64 73 20 date backwards
4320: 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 to the beginning
4330: 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 of the current
4340: 64 61 79 2c 0a 20 20 20 20 20 20 2a 2a 20 6f 72 day,. ** or
4350: 20 6d 6f 6e 74 68 20 6f 72 20 79 65 61 72 2e 0a month or year..
4360: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 69 */. i
4370: 66 28 20 73 74 72 6e 63 6d 70 28 7a 2c 20 22 73 f( strncmp(z, "s
4380: 74 61 72 74 20 6f 66 20 22 2c 20 39 29 21 3d 30 tart of ", 9)!=0
4390: 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 ) break;.
43a0: 7a 20 2b 3d 20 39 3b 0a 20 20 20 20 20 20 63 6f z += 9;. co
43b0: 6d 70 75 74 65 59 4d 44 28 70 29 3b 0a 20 20 20 mputeYMD(p);.
43c0: 20 20 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d p->validHMS =
43d0: 20 31 3b 0a 20 20 20 20 20 20 70 2d 3e 68 20 3d 1;. p->h =
43e0: 20 70 2d 3e 6d 20 3d 20 30 3b 0a 20 20 20 20 20 p->m = 0;.
43f0: 20 70 2d 3e 73 20 3d 20 30 2e 30 3b 0a 20 20 20 p->s = 0.0;.
4400: 20 20 20 70 2d 3e 76 61 6c 69 64 54 5a 20 3d 20 p->validTZ =
4410: 30 3b 0a 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 0;. p->vali
4420: 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20 20 20 69 dJD = 0;. i
4430: 66 28 20 73 74 72 63 6d 70 28 7a 2c 22 6d 6f 6e f( strcmp(z,"mon
4440: 74 68 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 th")==0 ){.
4450: 20 20 20 70 2d 3e 44 20 3d 20 31 3b 0a 20 20 20 p->D = 1;.
4460: 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 rc = 0;.
4470: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 74 72 }else if( str
4480: 63 6d 70 28 7a 2c 22 79 65 61 72 22 29 3d 3d 30 cmp(z,"year")==0
4490: 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 ){. comp
44a0: 75 74 65 59 4d 44 28 70 29 3b 0a 20 20 20 20 20 uteYMD(p);.
44b0: 20 20 20 70 2d 3e 4d 20 3d 20 31 3b 0a 20 20 20 p->M = 1;.
44c0: 20 20 20 20 20 70 2d 3e 44 20 3d 20 31 3b 0a 20 p->D = 1;.
44d0: 20 20 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20 rc = 0;.
44e0: 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 73 }else if( s
44f0: 74 72 63 6d 70 28 7a 2c 22 64 61 79 22 29 3d 3d trcmp(z,"day")==
4500: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 72 63 20 0 ){. rc
4510: 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 = 0;. }.
4520: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a break;. }.
4530: 20 20 20 20 63 61 73 65 20 27 2b 27 3a 0a 20 20 case '+':.
4540: 20 20 63 61 73 65 20 27 2d 27 3a 0a 20 20 20 20 case '-':.
4550: 63 61 73 65 20 27 30 27 3a 0a 20 20 20 20 63 61 case '0':. ca
4560: 73 65 20 27 31 27 3a 0a 20 20 20 20 63 61 73 65 se '1':. case
4570: 20 27 32 27 3a 0a 20 20 20 20 63 61 73 65 20 27 '2':. case '
4580: 33 27 3a 0a 20 20 20 20 63 61 73 65 20 27 34 27 3':. case '4'
4590: 3a 0a 20 20 20 20 63 61 73 65 20 27 35 27 3a 0a :. case '5':.
45a0: 20 20 20 20 63 61 73 65 20 27 36 27 3a 0a 20 20 case '6':.
45b0: 20 20 63 61 73 65 20 27 37 27 3a 0a 20 20 20 20 case '7':.
45c0: 63 61 73 65 20 27 38 27 3a 0a 20 20 20 20 63 61 case '8':. ca
45d0: 73 65 20 27 39 27 3a 20 7b 0a 20 20 20 20 20 20 se '9': {.
45e0: 64 6f 75 62 6c 65 20 72 52 6f 75 6e 64 65 72 3b double rRounder;
45f0: 0a 20 20 20 20 20 20 66 6f 72 28 6e 3d 31 3b 20 . for(n=1;
4600: 7a 5b 6e 5d 20 26 26 20 7a 5b 6e 5d 21 3d 27 3a z[n] && z[n]!=':
4610: 27 20 26 26 20 21 73 71 6c 69 74 65 33 49 73 73 ' && !sqlite3Iss
4620: 70 61 63 65 28 7a 5b 6e 5d 29 3b 20 6e 2b 2b 29 pace(z[n]); n++)
4630: 7b 7d 0a 20 20 20 20 20 20 69 66 28 20 21 73 71 {}. if( !sq
4640: 6c 69 74 65 33 41 74 6f 46 28 7a 2c 20 26 72 2c lite3AtoF(z, &r,
4650: 20 6e 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 29 n, SQLITE_UTF8)
4660: 20 29 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d ){. rc =
4670: 20 31 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 1;. brea
4680: 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 k;. }.
4690: 20 69 66 28 20 7a 5b 6e 5d 3d 3d 27 3a 27 20 29 if( z[n]==':' )
46a0: 7b 0a 20 20 20 20 20 20 20 20 2f 2a 20 41 20 6d {. /* A m
46b0: 6f 64 69 66 69 65 72 20 6f 66 20 74 68 65 20 66 odifier of the f
46c0: 6f 72 6d 20 28 2b 7c 2d 29 48 48 3a 4d 4d 3a 53 orm (+|-)HH:MM:S
46d0: 53 2e 46 46 46 20 61 64 64 73 20 28 6f 72 20 73 S.FFF adds (or s
46e0: 75 62 74 72 61 63 74 73 29 20 74 68 65 0a 20 20 ubtracts) the.
46f0: 20 20 20 20 20 20 2a 2a 20 73 70 65 63 69 66 69 ** specifi
4700: 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 68 6f 75 ed number of hou
4710: 72 73 2c 20 6d 69 6e 75 74 65 73 2c 20 73 65 63 rs, minutes, sec
4720: 6f 6e 64 73 2c 20 61 6e 64 20 66 72 61 63 74 69 onds, and fracti
4730: 6f 6e 61 6c 20 73 65 63 6f 6e 64 73 0a 20 20 20 onal seconds.
4740: 20 20 20 20 20 2a 2a 20 74 6f 20 74 68 65 20 74 ** to the t
4750: 69 6d 65 2e 20 20 54 68 65 20 22 2e 46 46 46 22 ime. The ".FFF"
4760: 20 6d 61 79 20 62 65 20 6f 6d 69 74 74 65 64 2e may be omitted.
4770: 20 20 54 68 65 20 22 3a 53 53 2e 46 46 46 22 20 The ":SS.FFF"
4780: 6d 61 79 20 62 65 0a 20 20 20 20 20 20 20 20 2a may be. *
4790: 2a 20 6f 6d 69 74 74 65 64 2e 0a 20 20 20 20 20 * omitted..
47a0: 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 63 6f */. co
47b0: 6e 73 74 20 63 68 61 72 20 2a 7a 32 20 3d 20 7a nst char *z2 = z
47c0: 3b 0a 20 20 20 20 20 20 20 20 44 61 74 65 54 69 ;. DateTi
47d0: 6d 65 20 74 78 3b 0a 20 20 20 20 20 20 20 20 73 me tx;. s
47e0: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 64 61 79 qlite3_int64 day
47f0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 21 73 ;. if( !s
4800: 71 6c 69 74 65 33 49 73 64 69 67 69 74 28 2a 7a qlite3Isdigit(*z
4810: 32 29 20 29 20 7a 32 2b 2b 3b 0a 20 20 20 20 20 2) ) z2++;.
4820: 20 20 20 6d 65 6d 73 65 74 28 26 74 78 2c 20 30 memset(&tx, 0
4830: 2c 20 73 69 7a 65 6f 66 28 74 78 29 29 3b 0a 20 , sizeof(tx));.
4840: 20 20 20 20 20 20 20 69 66 28 20 70 61 72 73 65 if( parse
4850: 48 68 4d 6d 53 73 28 7a 32 2c 20 26 74 78 29 20 HhMmSs(z2, &tx)
4860: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 ) break;.
4870: 20 63 6f 6d 70 75 74 65 4a 44 28 26 74 78 29 3b computeJD(&tx);
4880: 0a 20 20 20 20 20 20 20 20 74 78 2e 69 4a 44 20 . tx.iJD
4890: 2d 3d 20 34 33 32 30 30 30 30 30 3b 0a 20 20 20 -= 43200000;.
48a0: 20 20 20 20 20 64 61 79 20 3d 20 74 78 2e 69 4a day = tx.iJ
48b0: 44 2f 38 36 34 30 30 30 30 30 3b 0a 20 20 20 20 D/86400000;.
48c0: 20 20 20 20 74 78 2e 69 4a 44 20 2d 3d 20 64 61 tx.iJD -= da
48d0: 79 2a 38 36 34 30 30 30 30 30 3b 0a 20 20 20 20 y*86400000;.
48e0: 20 20 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 2d if( z[0]=='-
48f0: 27 20 29 20 74 78 2e 69 4a 44 20 3d 20 2d 74 78 ' ) tx.iJD = -tx
4900: 2e 69 4a 44 3b 0a 20 20 20 20 20 20 20 20 63 6f .iJD;. co
4910: 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 mputeJD(p);.
4920: 20 20 20 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 clearYMD_HMS
4930: 5f 54 5a 28 70 29 3b 0a 20 20 20 20 20 20 20 20 _TZ(p);.
4940: 70 2d 3e 69 4a 44 20 2b 3d 20 74 78 2e 69 4a 44 p->iJD += tx.iJD
4950: 3b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 30 ;. rc = 0
4960: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b ;. break;
4970: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7a . }. z
4980: 20 2b 3d 20 6e 3b 0a 20 20 20 20 20 20 77 68 69 += n;. whi
4990: 6c 65 28 20 73 71 6c 69 74 65 33 49 73 73 70 61 le( sqlite3Isspa
49a0: 63 65 28 2a 7a 29 20 29 20 7a 2b 2b 3b 0a 20 20 ce(*z) ) z++;.
49b0: 20 20 20 20 6e 20 3d 20 73 71 6c 69 74 65 33 53 n = sqlite3S
49c0: 74 72 6c 65 6e 33 30 28 7a 29 3b 0a 20 20 20 20 trlen30(z);.
49d0: 20 20 69 66 28 20 6e 3e 31 30 20 7c 7c 20 6e 3c if( n>10 || n<
49e0: 33 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 3 ) break;.
49f0: 20 69 66 28 20 7a 5b 6e 2d 31 5d 3d 3d 27 73 27 if( z[n-1]=='s'
4a00: 20 29 7b 20 7a 5b 6e 2d 31 5d 20 3d 20 30 3b 20 ){ z[n-1] = 0;
4a10: 6e 2d 2d 3b 20 7d 0a 20 20 20 20 20 20 63 6f 6d n--; }. com
4a20: 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 20 puteJD(p);.
4a30: 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 72 rc = 0;. r
4a40: 52 6f 75 6e 64 65 72 20 3d 20 72 3c 30 20 3f 20 Rounder = r<0 ?
4a50: 2d 30 2e 35 20 3a 20 2b 30 2e 35 3b 0a 20 20 20 -0.5 : +0.5;.
4a60: 20 20 20 69 66 28 20 6e 3d 3d 33 20 26 26 20 73 if( n==3 && s
4a70: 74 72 63 6d 70 28 7a 2c 22 64 61 79 22 29 3d 3d trcmp(z,"day")==
4a80: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 0 ){. p->
4a90: 69 4a 44 20 2b 3d 20 28 73 71 6c 69 74 65 33 5f iJD += (sqlite3_
4aa0: 69 6e 74 36 34 29 28 72 2a 38 36 34 30 30 30 30 int64)(r*8640000
4ab0: 30 2e 30 20 2b 20 72 52 6f 75 6e 64 65 72 29 3b 0.0 + rRounder);
4ac0: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 . }else if(
4ad0: 20 6e 3d 3d 34 20 26 26 20 73 74 72 63 6d 70 28 n==4 && strcmp(
4ae0: 7a 2c 22 68 6f 75 72 22 29 3d 3d 30 20 29 7b 0a z,"hour")==0 ){.
4af0: 20 20 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 2b p->iJD +
4b00: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 = (sqlite3_int64
4b10: 29 28 72 2a 28 38 36 34 30 30 30 30 30 2e 30 2f )(r*(86400000.0/
4b20: 32 34 2e 30 29 20 2b 20 72 52 6f 75 6e 64 65 72 24.0) + rRounder
4b30: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 );. }else i
4b40: 66 28 20 6e 3d 3d 36 20 26 26 20 73 74 72 63 6d f( n==6 && strcm
4b50: 70 28 7a 2c 22 6d 69 6e 75 74 65 22 29 3d 3d 30 p(z,"minute")==0
4b60: 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 ){. p->i
4b70: 4a 44 20 2b 3d 20 28 73 71 6c 69 74 65 33 5f 69 JD += (sqlite3_i
4b80: 6e 74 36 34 29 28 72 2a 28 38 36 34 30 30 30 30 nt64)(r*(8640000
4b90: 30 2e 30 2f 28 32 34 2e 30 2a 36 30 2e 30 29 29 0.0/(24.0*60.0))
4ba0: 20 2b 20 72 52 6f 75 6e 64 65 72 29 3b 0a 20 20 + rRounder);.
4bb0: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 6e 3d }else if( n=
4bc0: 3d 36 20 26 26 20 73 74 72 63 6d 70 28 7a 2c 22 =6 && strcmp(z,"
4bd0: 73 65 63 6f 6e 64 22 29 3d 3d 30 20 29 7b 0a 20 second")==0 ){.
4be0: 20 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d p->iJD +=
4bf0: 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 (sqlite3_int64)
4c00: 28 72 2a 28 38 36 34 30 30 30 30 30 2e 30 2f 28 (r*(86400000.0/(
4c10: 32 34 2e 30 2a 36 30 2e 30 2a 36 30 2e 30 29 29 24.0*60.0*60.0))
4c20: 20 2b 20 72 52 6f 75 6e 64 65 72 29 3b 0a 20 20 + rRounder);.
4c30: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 6e 3d }else if( n=
4c40: 3d 35 20 26 26 20 73 74 72 63 6d 70 28 7a 2c 22 =5 && strcmp(z,"
4c50: 6d 6f 6e 74 68 22 29 3d 3d 30 20 29 7b 0a 20 20 month")==0 ){.
4c60: 20 20 20 20 20 20 69 6e 74 20 78 2c 20 79 3b 0a int x, y;.
4c70: 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74 65 59 computeY
4c80: 4d 44 5f 48 4d 53 28 70 29 3b 0a 20 20 20 20 20 MD_HMS(p);.
4c90: 20 20 20 70 2d 3e 4d 20 2b 3d 20 28 69 6e 74 29 p->M += (int)
4ca0: 72 3b 0a 20 20 20 20 20 20 20 20 78 20 3d 20 70 r;. x = p
4cb0: 2d 3e 4d 3e 30 20 3f 20 28 70 2d 3e 4d 2d 31 29 ->M>0 ? (p->M-1)
4cc0: 2f 31 32 20 3a 20 28 70 2d 3e 4d 2d 31 32 29 2f /12 : (p->M-12)/
4cd0: 31 32 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 59 12;. p->Y
4ce0: 20 2b 3d 20 78 3b 0a 20 20 20 20 20 20 20 20 70 += x;. p
4cf0: 2d 3e 4d 20 2d 3d 20 78 2a 31 32 3b 0a 20 20 20 ->M -= x*12;.
4d00: 20 20 20 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 p->validJD
4d10: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d = 0;. com
4d20: 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 20 puteJD(p);.
4d30: 20 20 20 79 20 3d 20 28 69 6e 74 29 72 3b 0a 20 y = (int)r;.
4d40: 20 20 20 20 20 20 20 69 66 28 20 79 21 3d 72 20 if( y!=r
4d50: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e ){. p->
4d60: 69 4a 44 20 2b 3d 20 28 73 71 6c 69 74 65 33 5f iJD += (sqlite3_
4d70: 69 6e 74 36 34 29 28 28 72 20 2d 20 79 29 2a 33 int64)((r - y)*3
4d80: 30 2e 30 2a 38 36 34 30 30 30 30 30 2e 30 20 2b 0.0*86400000.0 +
4d90: 20 72 52 6f 75 6e 64 65 72 29 3b 0a 20 20 20 20 rRounder);.
4da0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73 }. }els
4db0: 65 20 69 66 28 20 6e 3d 3d 34 20 26 26 20 73 74 e if( n==4 && st
4dc0: 72 63 6d 70 28 7a 2c 22 79 65 61 72 22 29 3d 3d rcmp(z,"year")==
4dd0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 0 ){. int
4de0: 20 79 20 3d 20 28 69 6e 74 29 72 3b 0a 20 20 20 y = (int)r;.
4df0: 20 20 20 20 20 63 6f 6d 70 75 74 65 59 4d 44 5f computeYMD_
4e00: 48 4d 53 28 70 29 3b 0a 20 20 20 20 20 20 20 20 HMS(p);.
4e10: 70 2d 3e 59 20 2b 3d 20 79 3b 0a 20 20 20 20 20 p->Y += y;.
4e20: 20 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 p->validJD =
4e30: 30 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 75 0;. compu
4e40: 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 20 20 20 teJD(p);.
4e50: 20 69 66 28 20 79 21 3d 72 20 29 7b 0a 20 20 20 if( y!=r ){.
4e60: 20 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d p->iJD +=
4e70: 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 (sqlite3_int64)
4e80: 28 28 72 20 2d 20 79 29 2a 33 36 35 2e 30 2a 38 ((r - y)*365.0*8
4e90: 36 34 30 30 30 30 30 2e 30 20 2b 20 72 52 6f 75 6400000.0 + rRou
4ea0: 6e 64 65 72 29 3b 0a 20 20 20 20 20 20 20 20 7d nder);. }
4eb0: 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 . }else{.
4ec0: 20 20 20 20 20 20 72 63 20 3d 20 31 3b 0a 20 20 rc = 1;.
4ed0: 20 20 20 20 7d 0a 20 20 20 20 20 20 63 6c 65 61 }. clea
4ee0: 72 59 4d 44 5f 48 4d 53 5f 54 5a 28 70 29 3b 0a rYMD_HMS_TZ(p);.
4ef0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
4f00: 20 7d 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 20 }. default:
4f10: 7b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 {. break;.
4f20: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 }. }. retur
4f30: 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 n rc;.}../*.** P
4f40: 72 6f 63 65 73 73 20 74 69 6d 65 20 66 75 6e 63 rocess time func
4f50: 74 69 6f 6e 20 61 72 67 75 6d 65 6e 74 73 2e 20 tion arguments.
4f60: 20 61 72 67 76 5b 30 5d 20 69 73 20 61 20 64 61 argv[0] is a da
4f70: 74 65 2d 74 69 6d 65 20 73 74 61 6d 70 2e 0a 2a te-time stamp..*
4f80: 2a 20 61 72 67 76 5b 31 5d 20 61 6e 64 20 66 6f * argv[1] and fo
4f90: 6c 6c 6f 77 69 6e 67 20 61 72 65 20 6d 6f 64 69 llowing are modi
4fa0: 66 69 65 72 73 2e 20 20 50 61 72 73 65 20 74 68 fiers. Parse th
4fb0: 65 6d 20 61 6c 6c 20 61 6e 64 20 77 72 69 74 65 em all and write
4fc0: 0a 2a 2a 20 74 68 65 20 72 65 73 75 6c 74 69 6e .** the resultin
4fd0: 67 20 74 69 6d 65 20 69 6e 74 6f 20 74 68 65 20 g time into the
4fe0: 44 61 74 65 54 69 6d 65 20 73 74 72 75 63 74 75 DateTime structu
4ff0: 72 65 20 70 2e 20 20 52 65 74 75 72 6e 20 30 0a re p. Return 0.
5000: 2a 2a 20 6f 6e 20 73 75 63 63 65 73 73 20 61 6e ** on success an
5010: 64 20 31 20 69 66 20 74 68 65 72 65 20 61 72 65 d 1 if there are
5020: 20 61 6e 79 20 65 72 72 6f 72 73 2e 0a 2a 2a 0a any errors..**.
5030: 2a 2a 20 49 66 20 74 68 65 72 65 20 61 72 65 20 ** If there are
5040: 7a 65 72 6f 20 70 61 72 61 6d 65 74 65 72 73 20 zero parameters
5050: 28 69 66 20 65 76 65 6e 20 61 72 67 76 5b 30 5d (if even argv[0]
5060: 20 69 73 20 75 6e 64 65 66 69 6e 65 64 29 0a 2a is undefined).*
5070: 2a 20 74 68 65 6e 20 61 73 73 75 6d 65 20 61 20 * then assume a
5080: 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 default value of
5090: 20 22 6e 6f 77 22 20 66 6f 72 20 61 72 67 76 5b "now" for argv[
50a0: 30 5d 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 0]..*/.static in
50b0: 74 20 69 73 44 61 74 65 28 0a 20 20 73 71 6c 69 t isDate(. sqli
50c0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e te3_context *con
50d0: 74 65 78 74 2c 20 0a 20 20 69 6e 74 20 61 72 67 text, . int arg
50e0: 63 2c 20 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 c, . sqlite3_va
50f0: 6c 75 65 20 2a 2a 61 72 67 76 2c 20 0a 20 20 44 lue **argv, . D
5100: 61 74 65 54 69 6d 65 20 2a 70 0a 29 7b 0a 20 20 ateTime *p.){.
5110: 69 6e 74 20 69 3b 0a 20 20 63 6f 6e 73 74 20 75 int i;. const u
5120: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 3b nsigned char *z;
5130: 0a 20 20 69 6e 74 20 65 54 79 70 65 3b 0a 20 20 . int eType;.
5140: 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 73 69 7a memset(p, 0, siz
5150: 65 6f 66 28 2a 70 29 29 3b 0a 20 20 69 66 28 20 eof(*p));. if(
5160: 61 72 67 63 3d 3d 30 20 29 7b 0a 20 20 20 20 72 argc==0 ){. r
5170: 65 74 75 72 6e 20 73 65 74 44 61 74 65 54 69 6d eturn setDateTim
5180: 65 54 6f 43 75 72 72 65 6e 74 28 63 6f 6e 74 65 eToCurrent(conte
5190: 78 74 2c 20 70 29 3b 0a 20 20 7d 0a 20 20 69 66 xt, p);. }. if
51a0: 28 20 28 65 54 79 70 65 20 3d 20 73 71 6c 69 74 ( (eType = sqlit
51b0: 65 33 5f 76 61 6c 75 65 5f 74 79 70 65 28 61 72 e3_value_type(ar
51c0: 67 76 5b 30 5d 29 29 3d 3d 53 51 4c 49 54 45 5f gv[0]))==SQLITE_
51d0: 46 4c 4f 41 54 0a 20 20 20 20 20 20 20 20 20 20 FLOAT.
51e0: 20 20 20 20 20 20 20 20 20 7c 7c 20 65 54 79 70 || eTyp
51f0: 65 3d 3d 53 51 4c 49 54 45 5f 49 4e 54 45 47 45 e==SQLITE_INTEGE
5200: 52 20 29 7b 0a 20 20 20 20 70 2d 3e 69 4a 44 20 R ){. p->iJD
5210: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 = (sqlite3_int64
5220: 29 28 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f )(sqlite3_value_
5230: 64 6f 75 62 6c 65 28 61 72 67 76 5b 30 5d 29 2a double(argv[0])*
5240: 38 36 34 30 30 30 30 30 2e 30 20 2b 20 30 2e 35 86400000.0 + 0.5
5250: 29 3b 0a 20 20 20 20 70 2d 3e 76 61 6c 69 64 4a );. p->validJ
5260: 44 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a D = 1;. }else{.
5270: 20 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f z = sqlite3_
5280: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b value_text(argv[
5290: 30 5d 29 3b 0a 20 20 20 20 69 66 28 20 21 7a 20 0]);. if( !z
52a0: 7c 7c 20 70 61 72 73 65 44 61 74 65 4f 72 54 69 || parseDateOrTi
52b0: 6d 65 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 me(context, (cha
52c0: 72 2a 29 7a 2c 20 70 29 20 29 7b 0a 20 20 20 20 r*)z, p) ){.
52d0: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 return 1;.
52e0: 7d 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 31 3b }. }. for(i=1;
52f0: 20 69 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 i<argc; i++){.
5300: 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 z = sqlite3_v
5310: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69 alue_text(argv[i
5320: 5d 29 3b 0a 20 20 20 20 69 66 28 20 7a 3d 3d 30 ]);. if( z==0
5330: 20 7c 7c 20 70 61 72 73 65 4d 6f 64 69 66 69 65 || parseModifie
5340: 72 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 r(context, (char
5350: 2a 29 7a 2c 20 70 29 20 29 20 72 65 74 75 72 6e *)z, p) ) return
5360: 20 31 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 1;. }. return
5370: 20 30 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 0;.}.../*.** Th
5380: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74 e following rout
5390: 69 6e 65 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74 ines implement t
53a0: 68 65 20 76 61 72 69 6f 75 73 20 64 61 74 65 20 he various date
53b0: 61 6e 64 20 74 69 6d 65 20 66 75 6e 63 74 69 6f and time functio
53c0: 6e 73 0a 2a 2a 20 6f 66 20 53 51 4c 69 74 65 2e ns.** of SQLite.
53d0: 0a 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 6a 75 .*/../*.** ju
53e0: 6c 69 61 6e 64 61 79 28 20 54 49 4d 45 53 54 52 lianday( TIMESTR
53f0: 49 4e 47 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e ING, MOD, MOD, .
5400: 2e 2e 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e ..).**.** Return
5410: 20 74 68 65 20 6a 75 6c 69 61 6e 20 64 61 79 20 the julian day
5420: 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 64 61 number of the da
5430: 74 65 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 te specified in
5440: 74 68 65 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2f the arguments.*/
5450: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 6a 75 6c .static void jul
5460: 69 61 6e 64 61 79 46 75 6e 63 28 0a 20 20 73 71 iandayFunc(. sq
5470: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
5480: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 ontext,. int ar
5490: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 gc,. sqlite3_va
54a0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 lue **argv.){.
54b0: 44 61 74 65 54 69 6d 65 20 78 3b 0a 20 20 69 66 DateTime x;. if
54c0: 28 20 69 73 44 61 74 65 28 63 6f 6e 74 65 78 74 ( isDate(context
54d0: 2c 20 61 72 67 63 2c 20 61 72 67 76 2c 20 26 78 , argc, argv, &x
54e0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 63 6f 6d 70 )==0 ){. comp
54f0: 75 74 65 4a 44 28 26 78 29 3b 0a 20 20 20 20 73 uteJD(&x);. s
5500: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f qlite3_result_do
5510: 75 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 78 2e uble(context, x.
5520: 69 4a 44 2f 38 36 34 30 30 30 30 30 2e 30 29 3b iJD/86400000.0);
5530: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 . }.}../*.**
5540: 20 64 61 74 65 74 69 6d 65 28 20 54 49 4d 45 53 datetime( TIMES
5550: 54 52 49 4e 47 2c 20 4d 4f 44 2c 20 4d 4f 44 2c TRING, MOD, MOD,
5560: 20 2e 2e 2e 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75 ...).**.** Retu
5570: 72 6e 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 rn YYYY-MM-DD HH
5580: 3a 4d 4d 3a 53 53 0a 2a 2f 0a 73 74 61 74 69 63 :MM:SS.*/.static
5590: 20 76 6f 69 64 20 64 61 74 65 74 69 6d 65 46 75 void datetimeFu
55a0: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
55b0: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a ntext *context,.
55c0: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 int argc,. sq
55d0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
55e0: 67 76 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 gv.){. DateTime
55f0: 20 78 3b 0a 20 20 69 66 28 20 69 73 44 61 74 65 x;. if( isDate
5600: 28 63 6f 6e 74 65 78 74 2c 20 61 72 67 63 2c 20 (context, argc,
5610: 61 72 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a argv, &x)==0 ){.
5620: 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 char zBuf[10
5630: 30 5d 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 59 0];. computeY
5640: 4d 44 5f 48 4d 53 28 26 78 29 3b 0a 20 20 20 20 MD_HMS(&x);.
5650: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
5660: 28 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a (sizeof(zBuf), z
5670: 42 75 66 2c 20 22 25 30 34 64 2d 25 30 32 64 2d Buf, "%04d-%02d-
5680: 25 30 32 64 20 25 30 32 64 3a 25 30 32 64 3a 25 %02d %02d:%02d:%
5690: 30 32 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 02d",.
56a0: 20 20 20 20 20 20 20 20 20 20 20 78 2e 59 2c 20 x.Y,
56b0: 78 2e 4d 2c 20 78 2e 44 2c 20 78 2e 68 2c 20 78 x.M, x.D, x.h, x
56c0: 2e 6d 2c 20 28 69 6e 74 29 28 78 2e 73 29 29 3b .m, (int)(x.s));
56d0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
56e0: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 ult_text(context
56f0: 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 , zBuf, -1, SQLI
5700: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 TE_TRANSIENT);.
5710: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 74 }.}../*.** t
5720: 69 6d 65 28 20 54 49 4d 45 53 54 52 49 4e 47 2c ime( TIMESTRING,
5730: 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a MOD, MOD, ...).
5740: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 48 48 3a **.** Return HH:
5750: 4d 4d 3a 53 53 0a 2a 2f 0a 73 74 61 74 69 63 20 MM:SS.*/.static
5760: 76 6f 69 64 20 74 69 6d 65 46 75 6e 63 28 0a 20 void timeFunc(.
5770: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 sqlite3_context
5780: 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 *context,. int
5790: 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 argc,. sqlite3
57a0: 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b _value **argv.){
57b0: 0a 20 20 44 61 74 65 54 69 6d 65 20 78 3b 0a 20 . DateTime x;.
57c0: 20 69 66 28 20 69 73 44 61 74 65 28 63 6f 6e 74 if( isDate(cont
57d0: 65 78 74 2c 20 61 72 67 63 2c 20 61 72 67 76 2c ext, argc, argv,
57e0: 20 26 78 29 3d 3d 30 20 29 7b 0a 20 20 20 20 63 &x)==0 ){. c
57f0: 68 61 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 har zBuf[100];.
5800: 20 20 20 63 6f 6d 70 75 74 65 48 4d 53 28 26 78 computeHMS(&x
5810: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 );. sqlite3_s
5820: 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a nprintf(sizeof(z
5830: 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 30 32 Buf), zBuf, "%02
5840: 64 3a 25 30 32 64 3a 25 30 32 64 22 2c 20 78 2e d:%02d:%02d", x.
5850: 68 2c 20 78 2e 6d 2c 20 28 69 6e 74 29 78 2e 73 h, x.m, (int)x.s
5860: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 );. sqlite3_r
5870: 65 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 esult_text(conte
5880: 78 74 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 xt, zBuf, -1, SQ
5890: 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b LITE_TRANSIENT);
58a0: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 . }.}../*.**
58b0: 20 64 61 74 65 28 20 54 49 4d 45 53 54 52 49 4e date( TIMESTRIN
58c0: 47 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e G, MOD, MOD, ...
58d0: 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 59 ).**.** Return Y
58e0: 59 59 59 2d 4d 4d 2d 44 44 0a 2a 2f 0a 73 74 61 YYY-MM-DD.*/.sta
58f0: 74 69 63 20 76 6f 69 64 20 64 61 74 65 46 75 6e tic void dateFun
5900: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
5910: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
5920: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c int argc,. sql
5930: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 ite3_value **arg
5940: 76 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 v.){. DateTime
5950: 78 3b 0a 20 20 69 66 28 20 69 73 44 61 74 65 28 x;. if( isDate(
5960: 63 6f 6e 74 65 78 74 2c 20 61 72 67 63 2c 20 61 context, argc, a
5970: 72 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a 20 rgv, &x)==0 ){.
5980: 20 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 char zBuf[100
5990: 5d 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 59 4d ];. computeYM
59a0: 44 28 26 78 29 3b 0a 20 20 20 20 73 71 6c 69 74 D(&x);. sqlit
59b0: 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 e3_snprintf(size
59c0: 6f 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 of(zBuf), zBuf,
59d0: 22 25 30 34 64 2d 25 30 32 64 2d 25 30 32 64 22 "%04d-%02d-%02d"
59e0: 2c 20 78 2e 59 2c 20 78 2e 4d 2c 20 78 2e 44 29 , x.Y, x.M, x.D)
59f0: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 ;. sqlite3_re
5a00: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 sult_text(contex
5a10: 74 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c t, zBuf, -1, SQL
5a20: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a ITE_TRANSIENT);.
5a30: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 }.}../*.**
5a40: 73 74 72 66 74 69 6d 65 28 20 46 4f 52 4d 41 54 strftime( FORMAT
5a50: 2c 20 54 49 4d 45 53 54 52 49 4e 47 2c 20 4d 4f , TIMESTRING, MO
5a60: 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a 2a 0a D, MOD, ...).**.
5a70: 2a 2a 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 ** Return a stri
5a80: 6e 67 20 64 65 73 63 72 69 62 65 64 20 62 79 20 ng described by
5a90: 46 4f 52 4d 41 54 2e 20 20 43 6f 6e 76 65 72 73 FORMAT. Convers
5aa0: 69 6f 6e 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a ions as follows:
5ab0: 0a 2a 2a 0a 2a 2a 20 20 20 25 64 20 20 64 61 79 .**.** %d day
5ac0: 20 6f 66 20 6d 6f 6e 74 68 0a 2a 2a 20 20 20 25 of month.** %
5ad0: 66 20 20 2a 2a 20 66 72 61 63 74 69 6f 6e 61 6c f ** fractional
5ae0: 20 73 65 63 6f 6e 64 73 20 20 53 53 2e 53 53 53 seconds SS.SSS
5af0: 0a 2a 2a 20 20 20 25 48 20 20 68 6f 75 72 20 30 .** %H hour 0
5b00: 30 2d 32 34 0a 2a 2a 20 20 20 25 6a 20 20 64 61 0-24.** %j da
5b10: 79 20 6f 66 20 79 65 61 72 20 30 30 30 2d 33 36 y of year 000-36
5b20: 36 0a 2a 2a 20 20 20 25 4a 20 20 2a 2a 20 6a 75 6.** %J ** ju
5b30: 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 0a lian day number.
5b40: 2a 2a 20 20 20 25 6d 20 20 6d 6f 6e 74 68 20 30 ** %m month 0
5b50: 31 2d 31 32 0a 2a 2a 20 20 20 25 4d 20 20 6d 69 1-12.** %M mi
5b60: 6e 75 74 65 20 30 30 2d 35 39 0a 2a 2a 20 20 20 nute 00-59.**
5b70: 25 73 20 20 73 65 63 6f 6e 64 73 20 73 69 6e 63 %s seconds sinc
5b80: 65 20 31 39 37 30 2d 30 31 2d 30 31 0a 2a 2a 20 e 1970-01-01.**
5b90: 20 20 25 53 20 20 73 65 63 6f 6e 64 73 20 30 30 %S seconds 00
5ba0: 2d 35 39 0a 2a 2a 20 20 20 25 77 20 20 64 61 79 -59.** %w day
5bb0: 20 6f 66 20 77 65 65 6b 20 30 2d 36 20 20 73 75 of week 0-6 su
5bc0: 6e 64 61 79 3d 3d 30 0a 2a 2a 20 20 20 25 57 20 nday==0.** %W
5bd0: 20 77 65 65 6b 20 6f 66 20 79 65 61 72 20 30 30 week of year 00
5be0: 2d 35 33 0a 2a 2a 20 20 20 25 59 20 20 79 65 61 -53.** %Y yea
5bf0: 72 20 30 30 30 30 2d 39 39 39 39 0a 2a 2a 20 20 r 0000-9999.**
5c00: 20 25 25 20 20 25 0a 2a 2f 0a 73 74 61 74 69 63 %% %.*/.static
5c10: 20 76 6f 69 64 20 73 74 72 66 74 69 6d 65 46 75 void strftimeFu
5c20: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f nc(. sqlite3_co
5c30: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a ntext *context,.
5c40: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 int argc,. sq
5c50: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 lite3_value **ar
5c60: 67 76 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 gv.){. DateTime
5c70: 20 78 3b 0a 20 20 75 36 34 20 6e 3b 0a 20 20 73 x;. u64 n;. s
5c80: 69 7a 65 5f 74 20 69 2c 6a 3b 0a 20 20 63 68 61 ize_t i,j;. cha
5c90: 72 20 2a 7a 3b 0a 20 20 73 71 6c 69 74 65 33 20 r *z;. sqlite3
5ca0: 2a 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 *db;. const cha
5cb0: 72 20 2a 7a 46 6d 74 3b 0a 20 20 63 68 61 72 20 r *zFmt;. char
5cc0: 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 69 66 28 zBuf[100];. if(
5cd0: 20 61 72 67 63 3d 3d 30 20 29 20 72 65 74 75 72 argc==0 ) retur
5ce0: 6e 3b 0a 20 20 7a 46 6d 74 20 3d 20 28 63 6f 6e n;. zFmt = (con
5cf0: 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 st char*)sqlite3
5d00: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 _value_text(argv
5d10: 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a 46 6d 74 [0]);. if( zFmt
5d20: 3d 3d 30 20 7c 7c 20 69 73 44 61 74 65 28 63 6f ==0 || isDate(co
5d30: 6e 74 65 78 74 2c 20 61 72 67 63 2d 31 2c 20 61 ntext, argc-1, a
5d40: 72 67 76 2b 31 2c 20 26 78 29 20 29 20 72 65 74 rgv+1, &x) ) ret
5d50: 75 72 6e 3b 0a 20 20 64 62 20 3d 20 73 71 6c 69 urn;. db = sqli
5d60: 74 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 te3_context_db_h
5d70: 61 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a andle(context);.
5d80: 20 20 66 6f 72 28 69 3d 30 2c 20 6e 3d 31 3b 20 for(i=0, n=1;
5d90: 7a 46 6d 74 5b 69 5d 3b 20 69 2b 2b 2c 20 6e 2b zFmt[i]; i++, n+
5da0: 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a 46 6d 74 +){. if( zFmt
5db0: 5b 69 5d 3d 3d 27 25 27 20 29 7b 0a 20 20 20 20 [i]=='%' ){.
5dc0: 20 20 73 77 69 74 63 68 28 20 7a 46 6d 74 5b 69 switch( zFmt[i
5dd0: 2b 31 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 63 +1] ){. c
5de0: 61 73 65 20 27 64 27 3a 0a 20 20 20 20 20 20 20 ase 'd':.
5df0: 20 63 61 73 65 20 27 48 27 3a 0a 20 20 20 20 20 case 'H':.
5e00: 20 20 20 63 61 73 65 20 27 6d 27 3a 0a 20 20 20 case 'm':.
5e10: 20 20 20 20 20 63 61 73 65 20 27 4d 27 3a 0a 20 case 'M':.
5e20: 20 20 20 20 20 20 20 63 61 73 65 20 27 53 27 3a case 'S':
5e30: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 57 . case 'W
5e40: 27 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 2b 2b ':. n++
5e50: 3b 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66 ;. /* f
5e60: 61 6c 6c 20 74 68 72 75 20 2a 2f 0a 20 20 20 20 all thru */.
5e70: 20 20 20 20 63 61 73 65 20 27 77 27 3a 0a 20 20 case 'w':.
5e80: 20 20 20 20 20 20 63 61 73 65 20 27 25 27 3a 0a case '%':.
5e90: 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b break;
5ea0: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 66 . case 'f
5eb0: 27 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 20 2b ':. n +
5ec0: 3d 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 62 = 8;. b
5ed0: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 reak;. ca
5ee0: 73 65 20 27 6a 27 3a 0a 20 20 20 20 20 20 20 20 se 'j':.
5ef0: 20 20 6e 20 2b 3d 20 33 3b 0a 20 20 20 20 20 20 n += 3;.
5f00: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
5f10: 20 20 20 63 61 73 65 20 27 59 27 3a 0a 20 20 20 case 'Y':.
5f20: 20 20 20 20 20 20 20 6e 20 2b 3d 20 38 3b 0a 20 n += 8;.
5f30: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a break;.
5f40: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 73 27 case 's'
5f50: 3a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 :. case '
5f60: 4a 27 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 20 J':. n
5f70: 2b 3d 20 35 30 3b 0a 20 20 20 20 20 20 20 20 20 += 50;.
5f80: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 break;.
5f90: 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 default:.
5fa0: 20 20 20 72 65 74 75 72 6e 3b 20 20 2f 2a 20 45 return; /* E
5fb0: 52 52 4f 52 2e 20 20 72 65 74 75 72 6e 20 61 20 RROR. return a
5fc0: 4e 55 4c 4c 20 2a 2f 0a 20 20 20 20 20 20 7d 0a NULL */. }.
5fd0: 20 20 20 20 20 20 69 2b 2b 3b 0a 20 20 20 20 7d i++;. }
5fe0: 0a 20 20 7d 0a 20 20 74 65 73 74 63 61 73 65 28 . }. testcase(
5ff0: 20 6e 3d 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 n==sizeof(zBuf)
6000: 2d 31 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 -1 );. testcase
6010: 28 20 6e 3d 3d 73 69 7a 65 6f 66 28 7a 42 75 66 ( n==sizeof(zBuf
6020: 29 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 ) );. testcase(
6030: 20 6e 3d 3d 28 75 36 34 29 64 62 2d 3e 61 4c 69 n==(u64)db->aLi
6040: 6d 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 mit[SQLITE_LIMIT
6050: 5f 4c 45 4e 47 54 48 5d 2b 31 20 29 3b 0a 20 20 _LENGTH]+1 );.
6060: 74 65 73 74 63 61 73 65 28 20 6e 3d 3d 28 75 36 testcase( n==(u6
6070: 34 29 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 4)db->aLimit[SQL
6080: 49 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 ITE_LIMIT_LENGTH
6090: 5d 20 29 3b 0a 20 20 69 66 28 20 6e 3c 73 69 7a ] );. if( n<siz
60a0: 65 6f 66 28 7a 42 75 66 29 20 29 7b 0a 20 20 20 eof(zBuf) ){.
60b0: 20 7a 20 3d 20 7a 42 75 66 3b 0a 20 20 7d 65 6c z = zBuf;. }el
60c0: 73 65 20 69 66 28 20 6e 3e 28 75 36 34 29 64 62 se if( n>(u64)db
60d0: 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f ->aLimit[SQLITE_
60e0: 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 7b LIMIT_LENGTH] ){
60f0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 . sqlite3_res
6100: 75 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 ult_error_toobig
6110: 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 72 (context);. r
6120: 65 74 75 72 6e 3b 0a 20 20 7d 65 6c 73 65 7b 0a eturn;. }else{.
6130: 20 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 44 z = sqlite3D
6140: 62 4d 61 6c 6c 6f 63 52 61 77 4e 4e 28 64 62 2c bMallocRawNN(db,
6150: 20 28 69 6e 74 29 6e 29 3b 0a 20 20 20 20 69 66 (int)n);. if
6160: 28 20 7a 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 ( z==0 ){.
6170: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 sqlite3_result_e
6180: 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 rror_nomem(conte
6190: 78 74 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 xt);. retur
61a0: 6e 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 63 n;. }. }. c
61b0: 6f 6d 70 75 74 65 4a 44 28 26 78 29 3b 0a 20 20 omputeJD(&x);.
61c0: 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28 26 computeYMD_HMS(&
61d0: 78 29 3b 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b x);. for(i=j=0;
61e0: 20 7a 46 6d 74 5b 69 5d 3b 20 69 2b 2b 29 7b 0a zFmt[i]; i++){.
61f0: 20 20 20 20 69 66 28 20 7a 46 6d 74 5b 69 5d 21 if( zFmt[i]!
6200: 3d 27 25 27 20 29 7b 0a 20 20 20 20 20 20 7a 5b ='%' ){. z[
6210: 6a 2b 2b 5d 20 3d 20 7a 46 6d 74 5b 69 5d 3b 0a j++] = zFmt[i];.
6220: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
6230: 20 69 2b 2b 3b 0a 20 20 20 20 20 20 73 77 69 74 i++;. swit
6240: 63 68 28 20 7a 46 6d 74 5b 69 5d 20 29 7b 0a 20 ch( zFmt[i] ){.
6250: 20 20 20 20 20 20 20 63 61 73 65 20 27 64 27 3a case 'd':
6260: 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e sqlite3_snprin
6270: 74 66 28 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 tf(3, &z[j],"%02
6280: 64 22 2c 78 2e 44 29 3b 20 6a 2b 3d 32 3b 20 62 d",x.D); j+=2; b
6290: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 reak;. ca
62a0: 73 65 20 27 66 27 3a 20 7b 0a 20 20 20 20 20 20 se 'f': {.
62b0: 20 20 20 20 64 6f 75 62 6c 65 20 73 20 3d 20 78 double s = x
62c0: 2e 73 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 .s;. if
62d0: 28 20 73 3e 35 39 2e 39 39 39 20 29 20 73 20 3d ( s>59.999 ) s =
62e0: 20 35 39 2e 39 39 39 3b 0a 20 20 20 20 20 20 20 59.999;.
62f0: 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 sqlite3_snpri
6300: 6e 74 66 28 37 2c 20 26 7a 5b 6a 5d 2c 22 25 30 ntf(7, &z[j],"%0
6310: 36 2e 33 66 22 2c 20 73 29 3b 0a 20 20 20 20 20 6.3f", s);.
6320: 20 20 20 20 20 6a 20 2b 3d 20 73 71 6c 69 74 65 j += sqlite
6330: 33 53 74 72 6c 65 6e 33 30 28 26 7a 5b 6a 5d 29 3Strlen30(&z[j])
6340: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61 ;. brea
6350: 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 k;. }.
6360: 20 20 20 20 20 63 61 73 65 20 27 48 27 3a 20 20 case 'H':
6370: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 sqlite3_snprintf
6380: 28 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 (3, &z[j],"%02d"
6390: 2c 78 2e 68 29 3b 20 6a 2b 3d 32 3b 20 62 72 65 ,x.h); j+=2; bre
63a0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 ak;. case
63b0: 20 27 57 27 3a 20 2f 2a 20 46 61 6c 6c 20 74 68 'W': /* Fall th
63c0: 72 75 20 2a 2f 0a 20 20 20 20 20 20 20 20 63 61 ru */. ca
63d0: 73 65 20 27 6a 27 3a 20 7b 0a 20 20 20 20 20 20 se 'j': {.
63e0: 20 20 20 20 69 6e 74 20 6e 44 61 79 3b 20 20 20 int nDay;
63f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
6400: 62 65 72 20 6f 66 20 64 61 79 73 20 73 69 6e 63 ber of days sinc
6410: 65 20 31 73 74 20 64 61 79 20 6f 66 20 79 65 61 e 1st day of yea
6420: 72 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 44 r */. D
6430: 61 74 65 54 69 6d 65 20 79 20 3d 20 78 3b 0a 20 ateTime y = x;.
6440: 20 20 20 20 20 20 20 20 20 79 2e 76 61 6c 69 64 y.valid
6450: 4a 44 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 JD = 0;.
6460: 20 20 79 2e 4d 20 3d 20 31 3b 0a 20 20 20 20 20 y.M = 1;.
6470: 20 20 20 20 20 79 2e 44 20 3d 20 31 3b 0a 20 20 y.D = 1;.
6480: 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74 65 4a computeJ
6490: 44 28 26 79 29 3b 0a 20 20 20 20 20 20 20 20 20 D(&y);.
64a0: 20 6e 44 61 79 20 3d 20 28 69 6e 74 29 28 28 78 nDay = (int)((x
64b0: 2e 69 4a 44 2d 79 2e 69 4a 44 2b 34 33 32 30 30 .iJD-y.iJD+43200
64c0: 30 30 30 29 2f 38 36 34 30 30 30 30 30 29 3b 0a 000)/86400000);.
64d0: 20 20 20 20 20 20 20 20 20 20 69 66 28 20 7a 46 if( zF
64e0: 6d 74 5b 69 5d 3d 3d 27 57 27 20 29 7b 0a 20 20 mt[i]=='W' ){.
64f0: 20 20 20 20 20 20 20 20 20 20 69 6e 74 20 77 64 int wd
6500: 3b 20 20 20 2f 2a 20 30 3d 4d 6f 6e 64 61 79 2c ; /* 0=Monday,
6510: 20 31 3d 54 75 65 73 64 61 79 2c 20 2e 2e 2e 20 1=Tuesday, ...
6520: 36 3d 53 75 6e 64 61 79 20 2a 2f 0a 20 20 20 20 6=Sunday */.
6530: 20 20 20 20 20 20 20 20 77 64 20 3d 20 28 69 6e wd = (in
6540: 74 29 28 28 28 78 2e 69 4a 44 2b 34 33 32 30 30 t)(((x.iJD+43200
6550: 30 30 30 29 2f 38 36 34 30 30 30 30 30 29 25 37 000)/86400000)%7
6560: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 );. s
6570: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 qlite3_snprintf(
6580: 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 3, &z[j],"%02d",
6590: 28 6e 44 61 79 2b 37 2d 77 64 29 2f 37 29 3b 0a (nDay+7-wd)/7);.
65a0: 20 20 20 20 20 20 20 20 20 20 20 20 6a 20 2b 3d j +=
65b0: 20 32 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 2;. }e
65c0: 6c 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 lse{.
65d0: 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 sqlite3_snprint
65e0: 66 28 34 2c 20 26 7a 5b 6a 5d 2c 22 25 30 33 64 f(4, &z[j],"%03d
65f0: 22 2c 6e 44 61 79 2b 31 29 3b 0a 20 20 20 20 20 ",nDay+1);.
6600: 20 20 20 20 20 20 20 6a 20 2b 3d 20 33 3b 0a 20 j += 3;.
6610: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
6620: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
6630: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63 61 }. ca
6640: 73 65 20 27 4a 27 3a 20 7b 0a 20 20 20 20 20 20 se 'J': {.
6650: 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 sqlite3_snpr
6660: 69 6e 74 66 28 32 30 2c 20 26 7a 5b 6a 5d 2c 22 intf(20, &z[j],"
6670: 25 2e 31 36 67 22 2c 78 2e 69 4a 44 2f 38 36 34 %.16g",x.iJD/864
6680: 30 30 30 30 30 2e 30 29 3b 0a 20 20 20 20 20 20 00000.0);.
6690: 20 20 20 20 6a 2b 3d 73 71 6c 69 74 65 33 53 74 j+=sqlite3St
66a0: 72 6c 65 6e 33 30 28 26 7a 5b 6a 5d 29 3b 0a 20 rlen30(&z[j]);.
66b0: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a break;.
66c0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
66d0: 20 20 63 61 73 65 20 27 6d 27 3a 20 20 73 71 6c case 'm': sql
66e0: 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 33 2c ite3_snprintf(3,
66f0: 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 78 2e &z[j],"%02d",x.
6700: 4d 29 3b 20 6a 2b 3d 32 3b 20 62 72 65 61 6b 3b M); j+=2; break;
6710: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 4d . case 'M
6720: 27 3a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 ': sqlite3_snpr
6730: 69 6e 74 66 28 33 2c 20 26 7a 5b 6a 5d 2c 22 25 intf(3, &z[j],"%
6740: 30 32 64 22 2c 78 2e 6d 29 3b 20 6a 2b 3d 32 3b 02d",x.m); j+=2;
6750: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 break;.
6760: 63 61 73 65 20 27 73 27 3a 20 7b 0a 20 20 20 20 case 's': {.
6770: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e sqlite3_sn
6780: 70 72 69 6e 74 66 28 33 30 2c 26 7a 5b 6a 5d 2c printf(30,&z[j],
6790: 22 25 6c 6c 64 22 2c 0a 20 20 20 20 20 20 20 20 "%lld",.
67a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
67b0: 20 20 20 28 69 36 34 29 28 78 2e 69 4a 44 2f 31 (i64)(x.iJD/1
67c0: 30 30 30 20 2d 20 32 31 30 38 36 36 37 36 2a 28 000 - 21086676*(
67d0: 69 36 34 29 31 30 30 30 30 29 29 3b 0a 20 20 20 i64)10000));.
67e0: 20 20 20 20 20 20 20 6a 20 2b 3d 20 73 71 6c 69 j += sqli
67f0: 74 65 33 53 74 72 6c 65 6e 33 30 28 26 7a 5b 6a te3Strlen30(&z[j
6800: 5d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 ]);. br
6810: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 eak;. }.
6820: 20 20 20 20 20 20 20 63 61 73 65 20 27 53 27 3a case 'S':
6830: 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e sqlite3_snprin
6840: 74 66 28 33 2c 26 7a 5b 6a 5d 2c 22 25 30 32 64 tf(3,&z[j],"%02d
6850: 22 2c 28 69 6e 74 29 78 2e 73 29 3b 20 6a 2b 3d ",(int)x.s); j+=
6860: 32 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 2; break;.
6870: 20 20 63 61 73 65 20 27 77 27 3a 20 7b 0a 20 20 case 'w': {.
6880: 20 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d z[j++] =
6890: 20 28 63 68 61 72 29 28 28 28 78 2e 69 4a 44 2b (char)(((x.iJD+
68a0: 31 32 39 36 30 30 30 30 30 29 2f 38 36 34 30 30 129600000)/86400
68b0: 30 30 30 29 20 25 20 37 29 20 2b 20 27 30 27 3b 000) % 7) + '0';
68c0: 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b . break
68d0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
68e0: 20 20 20 20 63 61 73 65 20 27 59 27 3a 20 7b 0a case 'Y': {.
68f0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 sqlite
6900: 33 5f 73 6e 70 72 69 6e 74 66 28 35 2c 26 7a 5b 3_snprintf(5,&z[
6910: 6a 5d 2c 22 25 30 34 64 22 2c 78 2e 59 29 3b 20 j],"%04d",x.Y);
6920: 6a 2b 3d 73 71 6c 69 74 65 33 53 74 72 6c 65 6e j+=sqlite3Strlen
6930: 33 30 28 26 7a 5b 6a 5d 29 3b 0a 20 20 20 20 20 30(&z[j]);.
6940: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
6950: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 64 65 }. de
6960: 66 61 75 6c 74 3a 20 20 20 7a 5b 6a 2b 2b 5d 20 fault: z[j++]
6970: 3d 20 27 25 27 3b 20 62 72 65 61 6b 3b 0a 20 20 = '%'; break;.
6980: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a }. }. }.
6990: 20 20 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 20 73 71 z[j] = 0;. sq
69a0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 lite3_result_tex
69b0: 74 28 63 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 t(context, z, -1
69c0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
69d0: 20 20 20 20 20 20 20 20 7a 3d 3d 7a 42 75 66 20 z==zBuf
69e0: 3f 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 ? SQLITE_TRANSIE
69f0: 4e 54 20 3a 20 53 51 4c 49 54 45 5f 44 59 4e 41 NT : SQLITE_DYNA
6a00: 4d 49 43 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 63 MIC);.}../*.** c
6a10: 75 72 72 65 6e 74 5f 74 69 6d 65 28 29 0a 2a 2a urrent_time().**
6a20: 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f .** This functio
6a30: 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 61 n returns the sa
6a40: 6d 65 20 76 61 6c 75 65 20 61 73 20 74 69 6d 65 me value as time
6a50: 28 27 6e 6f 77 27 29 2e 0a 2a 2f 0a 73 74 61 74 ('now')..*/.stat
6a60: 69 63 20 76 6f 69 64 20 63 74 69 6d 65 46 75 6e ic void ctimeFun
6a70: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
6a80: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
6a90: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 int NotUsed,.
6aa0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
6ab0: 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e NotUsed2.){. UN
6ac0: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 USED_PARAMETER2(
6ad0: 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 NotUsed, NotUsed
6ae0: 32 29 3b 0a 20 20 74 69 6d 65 46 75 6e 63 28 63 2);. timeFunc(c
6af0: 6f 6e 74 65 78 74 2c 20 30 2c 20 30 29 3b 0a 7d ontext, 0, 0);.}
6b00: 0a 0a 2f 2a 0a 2a 2a 20 63 75 72 72 65 6e 74 5f ../*.** current_
6b10: 64 61 74 65 28 29 0a 2a 2a 0a 2a 2a 20 54 68 69 date().**.** Thi
6b20: 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 s function retur
6b30: 6e 73 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 ns the same valu
6b40: 65 20 61 73 20 64 61 74 65 28 27 6e 6f 77 27 29 e as date('now')
6b50: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 ..*/.static void
6b60: 20 63 64 61 74 65 46 75 6e 63 28 0a 20 20 73 71 cdateFunc(. sq
6b70: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 lite3_context *c
6b80: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f ontext,. int No
6b90: 74 55 73 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 tUsed,. sqlite3
6ba0: 5f 76 61 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 _value **NotUsed
6bb0: 32 0a 29 7b 0a 20 20 55 4e 55 53 45 44 5f 50 41 2.){. UNUSED_PA
6bc0: 52 41 4d 45 54 45 52 32 28 4e 6f 74 55 73 65 64 RAMETER2(NotUsed
6bd0: 2c 20 4e 6f 74 55 73 65 64 32 29 3b 0a 20 20 64 , NotUsed2);. d
6be0: 61 74 65 46 75 6e 63 28 63 6f 6e 74 65 78 74 2c ateFunc(context,
6bf0: 20 30 2c 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 0, 0);.}../*.**
6c00: 20 63 75 72 72 65 6e 74 5f 74 69 6d 65 73 74 61 current_timesta
6c10: 6d 70 28 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 mp().**.** This
6c20: 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 function returns
6c30: 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 20 the same value
6c40: 61 73 20 64 61 74 65 74 69 6d 65 28 27 6e 6f 77 as datetime('now
6c50: 27 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f ')..*/.static vo
6c60: 69 64 20 63 74 69 6d 65 73 74 61 6d 70 46 75 6e id ctimestampFun
6c70: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e c(. sqlite3_con
6c80: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 text *context,.
6c90: 20 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 int NotUsed,.
6ca0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a sqlite3_value **
6cb0: 4e 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e NotUsed2.){. UN
6cc0: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 USED_PARAMETER2(
6cd0: 4e 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 NotUsed, NotUsed
6ce0: 32 29 3b 0a 20 20 64 61 74 65 74 69 6d 65 46 75 2);. datetimeFu
6cf0: 6e 63 28 63 6f 6e 74 65 78 74 2c 20 30 2c 20 30 nc(context, 0, 0
6d00: 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 21 );.}.#endif /* !
6d10: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f defined(SQLITE_O
6d20: 4d 49 54 5f 44 41 54 45 54 49 4d 45 5f 46 55 4e MIT_DATETIME_FUN
6d30: 43 53 29 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 CS) */..#ifdef S
6d40: 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 41 54 45 54 QLITE_OMIT_DATET
6d50: 49 4d 45 5f 46 55 4e 43 53 0a 2f 2a 0a 2a 2a 20 IME_FUNCS./*.**
6d60: 49 66 20 74 68 65 20 6c 69 62 72 61 72 79 20 69 If the library i
6d70: 73 20 63 6f 6d 70 69 6c 65 64 20 74 6f 20 6f 6d s compiled to om
6d80: 69 74 20 74 68 65 20 66 75 6c 6c 2d 73 63 61 6c it the full-scal
6d90: 65 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 0a e date and time.
6da0: 2a 2a 20 68 61 6e 64 6c 69 6e 67 20 28 74 6f 20 ** handling (to
6db0: 67 65 74 20 61 20 73 6d 61 6c 6c 65 72 20 62 69 get a smaller bi
6dc0: 6e 61 72 79 29 2c 20 74 68 65 20 66 6f 6c 6c 6f nary), the follo
6dd0: 77 69 6e 67 20 6d 69 6e 69 6d 61 6c 20 76 65 72 wing minimal ver
6de0: 73 69 6f 6e 0a 2a 2a 20 6f 66 20 74 68 65 20 66 sion.** of the f
6df0: 75 6e 63 74 69 6f 6e 73 20 63 75 72 72 65 6e 74 unctions current
6e00: 5f 74 69 6d 65 28 29 2c 20 63 75 72 72 65 6e 74 _time(), current
6e10: 5f 64 61 74 65 28 29 20 61 6e 64 20 63 75 72 72 _date() and curr
6e20: 65 6e 74 5f 74 69 6d 65 73 74 61 6d 70 28 29 0a ent_timestamp().
6e30: 2a 2a 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20 ** are included
6e40: 69 6e 73 74 65 61 64 2e 20 54 68 69 73 20 69 73 instead. This is
6e50: 20 74 6f 20 73 75 70 70 6f 72 74 20 63 6f 6c 75 to support colu
6e60: 6d 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 mn declarations
6e70: 74 68 61 74 0a 2a 2a 20 69 6e 63 6c 75 64 65 20 that.** include
6e80: 22 44 45 46 41 55 4c 54 20 43 55 52 52 45 4e 54 "DEFAULT CURRENT
6e90: 5f 54 49 4d 45 22 20 65 74 63 2e 0a 2a 2a 0a 2a _TIME" etc..**.*
6ea0: 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 * This function
6eb0: 75 73 65 73 20 74 68 65 20 43 2d 6c 69 62 72 61 uses the C-libra
6ec0: 72 79 20 66 75 6e 63 74 69 6f 6e 73 20 74 69 6d ry functions tim
6ed0: 65 28 29 2c 20 67 6d 74 69 6d 65 28 29 0a 2a 2a e(), gmtime().**
6ee0: 20 61 6e 64 20 73 74 72 66 74 69 6d 65 28 29 2e and strftime().
6ef0: 20 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 The format stri
6f00: 6e 67 20 74 6f 20 70 61 73 73 20 74 6f 20 73 74 ng to pass to st
6f10: 72 66 74 69 6d 65 28 29 20 69 73 20 73 75 70 70 rftime() is supp
6f20: 6c 69 65 64 0a 2a 2a 20 61 73 20 74 68 65 20 75 lied.** as the u
6f30: 73 65 72 2d 64 61 74 61 20 66 6f 72 20 74 68 65 ser-data for the
6f40: 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 function..*/.st
6f50: 61 74 69 63 20 76 6f 69 64 20 63 75 72 72 65 6e atic void curren
6f60: 74 54 69 6d 65 46 75 6e 63 28 0a 20 20 73 71 6c tTimeFunc(. sql
6f70: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f ite3_context *co
6f80: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 ntext,. int arg
6f90: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c c,. sqlite3_val
6fa0: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 74 ue **argv.){. t
6fb0: 69 6d 65 5f 74 20 74 3b 0a 20 20 63 68 61 72 20 ime_t t;. char
6fc0: 2a 7a 46 6f 72 6d 61 74 20 3d 20 28 63 68 61 72 *zFormat = (char
6fd0: 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f *)sqlite3_user_
6fe0: 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 data(context);.
6ff0: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 sqlite3 *db;.
7000: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 54 sqlite3_int64 iT
7010: 3b 0a 20 20 73 74 72 75 63 74 20 74 6d 20 2a 70 ;. struct tm *p
7020: 54 6d 3b 0a 20 20 73 74 72 75 63 74 20 74 6d 20 Tm;. struct tm
7030: 73 4e 6f 77 3b 0a 20 20 63 68 61 72 20 7a 42 75 sNow;. char zBu
7040: 66 5b 32 30 5d 3b 0a 0a 20 20 55 4e 55 53 45 44 f[20];.. UNUSED
7050: 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29 _PARAMETER(argc)
7060: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d ;. UNUSED_PARAM
7070: 45 54 45 52 28 61 72 67 76 29 3b 0a 0a 20 20 69 ETER(argv);.. i
7080: 54 20 3d 20 73 71 6c 69 74 65 33 53 74 6d 74 43 T = sqlite3StmtC
7090: 75 72 72 65 6e 74 54 69 6d 65 28 63 6f 6e 74 65 urrentTime(conte
70a0: 78 74 29 3b 0a 20 20 69 66 28 20 69 54 3c 3d 30 xt);. if( iT<=0
70b0: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 74 20 3d ) return;. t =
70c0: 20 69 54 2f 31 30 30 30 20 2d 20 31 30 30 30 30 iT/1000 - 10000
70d0: 2a 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 *(sqlite3_int64)
70e0: 32 31 30 38 36 36 37 36 3b 0a 23 69 66 20 48 41 21086676;.#if HA
70f0: 56 45 5f 47 4d 54 49 4d 45 5f 52 0a 20 20 70 54 VE_GMTIME_R. pT
7100: 6d 20 3d 20 67 6d 74 69 6d 65 5f 72 28 26 74 2c m = gmtime_r(&t,
7110: 20 26 73 4e 6f 77 29 3b 0a 23 65 6c 73 65 0a 20 &sNow);.#else.
7120: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 sqlite3_mutex_e
7130: 6e 74 65 72 28 73 71 6c 69 74 65 33 4d 75 74 65 nter(sqlite3Mute
7140: 78 41 6c 6c 6f 63 28 53 51 4c 49 54 45 5f 4d 55 xAlloc(SQLITE_MU
7150: 54 45 58 5f 53 54 41 54 49 43 5f 4d 41 53 54 45 TEX_STATIC_MASTE
7160: 52 29 29 3b 0a 20 20 70 54 6d 20 3d 20 67 6d 74 R));. pTm = gmt
7170: 69 6d 65 28 26 74 29 3b 0a 20 20 69 66 28 20 70 ime(&t);. if( p
7180: 54 6d 20 29 20 6d 65 6d 63 70 79 28 26 73 4e 6f Tm ) memcpy(&sNo
7190: 77 2c 20 70 54 6d 2c 20 73 69 7a 65 6f 66 28 73 w, pTm, sizeof(s
71a0: 4e 6f 77 29 29 3b 0a 20 20 73 71 6c 69 74 65 33 Now));. sqlite3
71b0: 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 73 71 6c _mutex_leave(sql
71c0: 69 74 65 33 4d 75 74 65 78 41 6c 6c 6f 63 28 53 ite3MutexAlloc(S
71d0: 51 4c 49 54 45 5f 4d 55 54 45 58 5f 53 54 41 54 QLITE_MUTEX_STAT
71e0: 49 43 5f 4d 41 53 54 45 52 29 29 3b 0a 23 65 6e IC_MASTER));.#en
71f0: 64 69 66 0a 20 20 69 66 28 20 70 54 6d 20 29 7b dif. if( pTm ){
7200: 0a 20 20 20 20 73 74 72 66 74 69 6d 65 28 7a 42 . strftime(zB
7210: 75 66 2c 20 32 30 2c 20 7a 46 6f 72 6d 61 74 2c uf, 20, zFormat,
7220: 20 26 73 4e 6f 77 29 3b 0a 20 20 20 20 73 71 6c &sNow);. sql
7230: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 ite3_result_text
7240: 28 63 6f 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20 (context, zBuf,
7250: 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 -1, SQLITE_TRANS
7260: 49 45 4e 54 29 3b 0a 20 20 7d 0a 7d 0a 23 65 6e IENT);. }.}.#en
7270: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 dif../*.** This
7280: 66 75 6e 63 74 69 6f 6e 20 72 65 67 69 73 74 65 function registe
7290: 72 65 64 20 61 6c 6c 20 6f 66 20 74 68 65 20 61 red all of the a
72a0: 62 6f 76 65 20 43 20 66 75 6e 63 74 69 6f 6e 73 bove C functions
72b0: 20 61 73 20 53 51 4c 0a 2a 2a 20 66 75 6e 63 74 as SQL.** funct
72c0: 69 6f 6e 73 2e 20 20 54 68 69 73 20 73 68 6f 75 ions. This shou
72d0: 6c 64 20 62 65 20 74 68 65 20 6f 6e 6c 79 20 72 ld be the only r
72e0: 6f 75 74 69 6e 65 20 69 6e 20 74 68 69 73 20 66 outine in this f
72f0: 69 6c 65 20 77 69 74 68 0a 2a 2a 20 65 78 74 65 ile with.** exte
7300: 72 6e 61 6c 20 6c 69 6e 6b 61 67 65 2e 0a 2a 2f rnal linkage..*/
7310: 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67 .void sqlite3Reg
7320: 69 73 74 65 72 44 61 74 65 54 69 6d 65 46 75 6e isterDateTimeFun
7330: 63 74 69 6f 6e 73 28 76 6f 69 64 29 7b 0a 20 20 ctions(void){.
7340: 73 74 61 74 69 63 20 46 75 6e 63 44 65 66 20 61 static FuncDef a
7350: 44 61 74 65 54 69 6d 65 46 75 6e 63 73 5b 5d 20 DateTimeFuncs[]
7360: 3d 20 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 = {.#ifndef SQLI
7370: 54 45 5f 4f 4d 49 54 5f 44 41 54 45 54 49 4d 45 TE_OMIT_DATETIME
7380: 5f 46 55 4e 43 53 0a 20 20 20 20 44 46 55 4e 43 _FUNCS. DFUNC
7390: 54 49 4f 4e 28 6a 75 6c 69 61 6e 64 61 79 2c 20 TION(julianday,
73a0: 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30 2c -1, 0, 0,
73b0: 20 6a 75 6c 69 61 6e 64 61 79 46 75 6e 63 20 29 juliandayFunc )
73c0: 2c 0a 20 20 20 20 44 46 55 4e 43 54 49 4f 4e 28 ,. DFUNCTION(
73d0: 64 61 74 65 2c 20 20 20 20 20 20 20 20 20 20 20 date,
73e0: 20 20 2d 31 2c 20 30 2c 20 30 2c 20 64 61 74 65 -1, 0, 0, date
73f0: 46 75 6e 63 20 20 20 20 20 20 29 2c 0a 20 20 20 Func ),.
7400: 20 44 46 55 4e 43 54 49 4f 4e 28 74 69 6d 65 2c DFUNCTION(time,
7410: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c -1,
7420: 20 30 2c 20 30 2c 20 74 69 6d 65 46 75 6e 63 20 0, 0, timeFunc
7430: 20 20 20 20 20 29 2c 0a 20 20 20 20 44 46 55 4e ),. DFUN
7440: 43 54 49 4f 4e 28 64 61 74 65 74 69 6d 65 2c 20 CTION(datetime,
7450: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30 -1, 0, 0
7460: 2c 20 64 61 74 65 74 69 6d 65 46 75 6e 63 20 20 , datetimeFunc
7470: 29 2c 0a 20 20 20 20 44 46 55 4e 43 54 49 4f 4e ),. DFUNCTION
7480: 28 73 74 72 66 74 69 6d 65 2c 20 20 20 20 20 20 (strftime,
7490: 20 20 20 2d 31 2c 20 30 2c 20 30 2c 20 73 74 72 -1, 0, 0, str
74a0: 66 74 69 6d 65 46 75 6e 63 20 20 29 2c 0a 20 20 ftimeFunc ),.
74b0: 20 20 44 46 55 4e 43 54 49 4f 4e 28 63 75 72 72 DFUNCTION(curr
74c0: 65 6e 74 5f 74 69 6d 65 2c 20 20 20 20 20 20 30 ent_time, 0
74d0: 2c 20 30 2c 20 30 2c 20 63 74 69 6d 65 46 75 6e , 0, 0, ctimeFun
74e0: 63 20 20 20 20 20 29 2c 0a 20 20 20 20 44 46 55 c ),. DFU
74f0: 4e 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f 74 NCTION(current_t
7500: 69 6d 65 73 74 61 6d 70 2c 20 30 2c 20 30 2c 20 imestamp, 0, 0,
7510: 30 2c 20 63 74 69 6d 65 73 74 61 6d 70 46 75 6e 0, ctimestampFun
7520: 63 29 2c 0a 20 20 20 20 44 46 55 4e 43 54 49 4f c),. DFUNCTIO
7530: 4e 28 63 75 72 72 65 6e 74 5f 64 61 74 65 2c 20 N(current_date,
7540: 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 63 64 0, 0, 0, cd
7550: 61 74 65 46 75 6e 63 20 20 20 20 20 29 2c 0a 23 ateFunc ),.#
7560: 65 6c 73 65 0a 20 20 20 20 53 54 52 5f 46 55 4e else. STR_FUN
7570: 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f 74 69 CTION(current_ti
7580: 6d 65 2c 20 20 20 20 20 20 30 2c 20 22 25 48 3a me, 0, "%H:
7590: 25 4d 3a 25 53 22 2c 20 20 20 20 20 20 20 20 20 %M:%S",
75a0: 20 30 2c 20 63 75 72 72 65 6e 74 54 69 6d 65 46 0, currentTimeF
75b0: 75 6e 63 29 2c 0a 20 20 20 20 53 54 52 5f 46 55 unc),. STR_FU
75c0: 4e 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f 64 NCTION(current_d
75d0: 61 74 65 2c 20 20 20 20 20 20 30 2c 20 22 25 59 ate, 0, "%Y
75e0: 2d 25 6d 2d 25 64 22 2c 20 20 20 20 20 20 20 20 -%m-%d",
75f0: 20 20 30 2c 20 63 75 72 72 65 6e 74 54 69 6d 65 0, currentTime
7600: 46 75 6e 63 29 2c 0a 20 20 20 20 53 54 52 5f 46 Func),. STR_F
7610: 55 4e 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f UNCTION(current_
7620: 74 69 6d 65 73 74 61 6d 70 2c 20 30 2c 20 22 25 timestamp, 0, "%
7630: 59 2d 25 6d 2d 25 64 20 25 48 3a 25 4d 3a 25 53 Y-%m-%d %H:%M:%S
7640: 22 2c 20 30 2c 20 63 75 72 72 65 6e 74 54 69 6d ", 0, currentTim
7650: 65 46 75 6e 63 29 2c 0a 23 65 6e 64 69 66 0a 20 eFunc),.#endif.
7660: 20 7d 3b 0a 20 20 73 71 6c 69 74 65 33 49 6e 73 };. sqlite3Ins
7670: 65 72 74 42 75 69 6c 74 69 6e 46 75 6e 63 73 28 ertBuiltinFuncs(
7680: 61 44 61 74 65 54 69 6d 65 46 75 6e 63 73 2c 20 aDateTimeFuncs,
7690: 41 72 72 61 79 53 69 7a 65 28 61 44 61 74 65 54 ArraySize(aDateT
76a0: 69 6d 65 46 75 6e 63 73 29 29 3b 0a 7d 0a imeFuncs));.}.