/ Hex Artifact Content
Login

Artifact cd412cb2adb0c3a60e085107864931e508f45ad8:


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