/ Hex Artifact Content
Login

Artifact d327ec7bb2f64b08d32b1035de82b9ba8675de91:


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