/ Hex Artifact Content
Login

Artifact 5f5850c6b5da68fdc47d124573715ba948c9d8e0:


0000: 2f 2a 0a 2a 2a 20 32 30 30 33 20 4f 63 74 6f 62  /*.** 2003 Octob
0010: 65 72 20 33 31 0a 2a 2a 0a 2a 2a 20 54 68 65 20  er 31.**.** The 
0020: 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73  author disclaims
0030: 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68   copyright to th
0040: 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20  is source code. 
0050: 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20   In place of.** 
0060: 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20  a legal notice, 
0070: 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69  here is a blessi
0080: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79  ng:.**.**    May
0090: 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64   you do good and
00a0: 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20   not evil..**   
00b0: 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f   May you find fo
00c0: 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f  rgiveness for yo
00d0: 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69  urself and forgi
00e0: 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20  ve others..**   
00f0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
0100: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0110: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0120: 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a  u give..**.*****
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c  ****.** This fil
0180: 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 43  e contains the C
0190: 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20   functions that 
01a0: 69 6d 70 6c 65 6d 65 6e 74 20 64 61 74 65 20 61  implement date a
01b0: 6e 64 20 74 69 6d 65 0a 2a 2a 20 66 75 6e 63 74  nd time.** funct
01c0: 69 6f 6e 73 20 66 6f 72 20 53 51 4c 69 74 65 2e  ions for SQLite.
01d0: 20 20 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20 69    .**.** There i
01e0: 73 20 6f 6e 6c 79 20 6f 6e 65 20 65 78 70 6f 72  s only one expor
01f0: 74 65 64 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68  ted symbol in th
0200: 69 73 20 66 69 6c 65 20 2d 20 74 68 65 20 66 75  is file - the fu
0210: 6e 63 74 69 6f 6e 0a 2a 2a 20 73 71 6c 69 74 65  nction.** sqlite
0220: 33 52 65 67 69 73 74 65 72 44 61 74 65 54 69 6d  3RegisterDateTim
0230: 65 46 75 6e 63 74 69 6f 6e 73 28 29 20 66 6f 75  eFunctions() fou
0240: 6e 64 20 61 74 20 74 68 65 20 62 6f 74 74 6f 6d  nd at the bottom
0250: 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a 2a 2a   of the file..**
0260: 20 41 6c 6c 20 6f 74 68 65 72 20 63 6f 64 65 20   All other code 
0270: 68 61 73 20 66 69 6c 65 20 73 63 6f 70 65 2e 0a  has file scope..
0280: 2a 2a 0a 2a 2a 20 24 49 64 3a 20 64 61 74 65 2e  **.** $Id: date.
0290: 63 2c 76 20 31 2e 35 31 20 32 30 30 36 2f 30 31  c,v 1.51 2006/01
02a0: 2f 31 35 20 30 30 3a 31 33 3a 31 36 20 64 72 68  /15 00:13:16 drh
02b0: 20 45 78 70 20 24 0a 2a 2a 0a 2a 2a 20 4e 4f 54   Exp $.**.** NOT
02c0: 45 53 3a 0a 2a 2a 0a 2a 2a 20 53 51 4c 69 74 65  ES:.**.** SQLite
02d0: 20 70 72 6f 63 65 73 73 65 73 20 61 6c 6c 20 74   processes all t
02e0: 69 6d 65 73 20 61 6e 64 20 64 61 74 65 73 20 61  imes and dates a
02f0: 73 20 4a 75 6c 69 61 6e 20 44 61 79 20 6e 75 6d  s Julian Day num
0300: 62 65 72 73 2e 20 20 54 68 65 0a 2a 2a 20 64 61  bers.  The.** da
0310: 74 65 73 20 61 6e 64 20 74 69 6d 65 73 20 61 72  tes and times ar
0320: 65 20 73 74 6f 72 65 64 20 61 73 20 74 68 65 20  e stored as the 
0330: 6e 75 6d 62 65 72 20 6f 66 20 64 61 79 73 20 73  number of days s
0340: 69 6e 63 65 20 6e 6f 6f 6e 0a 2a 2a 20 69 6e 20  ince noon.** in 
0350: 47 72 65 65 6e 77 69 63 68 20 6f 6e 20 4e 6f 76  Greenwich on Nov
0360: 65 6d 62 65 72 20 32 34 2c 20 34 37 31 34 20 42  ember 24, 4714 B
0370: 2e 43 2e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f  .C. according to
0380: 20 74 68 65 20 47 72 65 67 6f 72 69 61 6e 0a 2a   the Gregorian.*
0390: 2a 20 63 61 6c 65 6e 64 61 72 20 73 79 73 74 65  * calendar syste
03a0: 6d 2e 0a 2a 2a 0a 2a 2a 20 31 39 37 30 2d 30 31  m..**.** 1970-01
03b0: 2d 30 31 20 30 30 3a 30 30 3a 30 30 20 69 73 20  -01 00:00:00 is 
03c0: 4a 44 20 32 34 34 30 35 38 37 2e 35 0a 2a 2a 20  JD 2440587.5.** 
03d0: 32 30 30 30 2d 30 31 2d 30 31 20 30 30 3a 30 30  2000-01-01 00:00
03e0: 3a 30 30 20 69 73 20 4a 44 20 32 34 35 31 35 34  :00 is JD 245154
03f0: 34 2e 35 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 69  4.5.**.** This i
0400: 6d 70 6c 65 6d 65 6e 74 69 6f 6e 20 72 65 71 75  mplemention requ
0410: 69 72 65 73 20 79 65 61 72 73 20 74 6f 20 62 65  ires years to be
0420: 20 65 78 70 72 65 73 73 65 64 20 61 73 20 61 20   expressed as a 
0430: 34 2d 64 69 67 69 74 20 6e 75 6d 62 65 72 0a 2a  4-digit number.*
0440: 2a 20 77 68 69 63 68 20 6d 65 61 6e 73 20 74 68  * which means th
0450: 61 74 20 6f 6e 6c 79 20 64 61 74 65 73 20 62 65  at only dates be
0460: 74 77 65 65 6e 20 30 30 30 30 2d 30 31 2d 30 31  tween 0000-01-01
0470: 20 61 6e 64 20 39 39 39 39 2d 31 32 2d 33 31 20   and 9999-12-31 
0480: 63 61 6e 0a 2a 2a 20 62 65 20 72 65 70 72 65 73  can.** be repres
0490: 65 6e 74 65 64 2c 20 65 76 65 6e 20 74 68 6f 75  ented, even thou
04a0: 67 68 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75  gh julian day nu
04b0: 6d 62 65 72 73 20 61 6c 6c 6f 77 20 61 20 6d 75  mbers allow a mu
04c0: 63 68 20 77 69 64 65 72 0a 2a 2a 20 72 61 6e 67  ch wider.** rang
04d0: 65 20 6f 66 20 64 61 74 65 73 2e 0a 2a 2a 0a 2a  e of dates..**.*
04e0: 2a 20 54 68 65 20 47 72 65 67 6f 72 69 61 6e 20  * The Gregorian 
04f0: 63 61 6c 65 6e 64 61 72 20 73 79 73 74 65 6d 20  calendar system 
0500: 69 73 20 75 73 65 64 20 66 6f 72 20 61 6c 6c 20  is used for all 
0510: 64 61 74 65 73 20 61 6e 64 20 74 69 6d 65 73 2c  dates and times,
0520: 0a 2a 2a 20 65 76 65 6e 20 74 68 6f 73 65 20 74  .** even those t
0530: 68 61 74 20 70 72 65 64 61 74 65 20 74 68 65 20  hat predate the 
0540: 47 72 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e 64  Gregorian calend
0550: 61 72 2e 20 20 48 69 73 74 6f 72 69 61 6e 73 20  ar.  Historians 
0560: 75 73 75 61 6c 6c 79 0a 2a 2a 20 75 73 65 20 74  usually.** use t
0570: 68 65 20 4a 75 6c 69 61 6e 20 63 61 6c 65 6e 64  he Julian calend
0580: 61 72 20 66 6f 72 20 64 61 74 65 73 20 70 72 69  ar for dates pri
0590: 6f 72 20 74 6f 20 31 35 38 32 2d 31 30 2d 31 35  or to 1582-10-15
05a0: 20 61 6e 64 20 66 6f 72 20 73 6f 6d 65 0a 2a 2a   and for some.**
05b0: 20 64 61 74 65 73 20 61 66 74 65 72 77 61 72 64   dates afterward
05c0: 73 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20  s, depending on 
05d0: 6c 6f 63 61 6c 65 2e 20 20 42 65 77 61 72 65 20  locale.  Beware 
05e0: 6f 66 20 74 68 69 73 20 64 69 66 66 65 72 65 6e  of this differen
05f0: 63 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f  ce..**.** The co
0600: 6e 76 65 72 73 69 6f 6e 20 61 6c 67 6f 72 69 74  nversion algorit
0610: 68 6d 73 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e  hms are implemen
0620: 74 65 64 20 62 61 73 65 64 20 6f 6e 20 64 65 73  ted based on des
0630: 63 72 69 70 74 69 6f 6e 73 0a 2a 2a 20 69 6e 20  criptions.** in 
0640: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 65  the following te
0650: 78 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 4a  xt:.**.**      J
0660: 65 61 6e 20 4d 65 65 75 73 0a 2a 2a 20 20 20 20  ean Meeus.**    
0670: 20 20 41 73 74 72 6f 6e 6f 6d 69 63 61 6c 20 41    Astronomical A
0680: 6c 67 6f 72 69 74 68 6d 73 2c 20 32 6e 64 20 45  lgorithms, 2nd E
0690: 64 69 74 69 6f 6e 2c 20 31 39 39 38 0a 2a 2a 20  dition, 1998.** 
06a0: 20 20 20 20 20 49 53 42 4d 20 30 2d 39 34 33 33       ISBM 0-9433
06b0: 39 36 2d 36 31 2d 31 0a 2a 2a 20 20 20 20 20 20  96-61-1.**      
06c0: 57 69 6c 6c 6d 61 6e 6e 2d 42 65 6c 6c 2c 20 49  Willmann-Bell, I
06d0: 6e 63 0a 2a 2a 20 20 20 20 20 20 52 69 63 68 6d  nc.**      Richm
06e0: 6f 6e 64 2c 20 56 69 72 67 69 6e 69 61 20 28 55  ond, Virginia (U
06f0: 53 41 29 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20  SA).*/.#include 
0700: 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69  "sqliteInt.h".#i
0710: 6e 63 6c 75 64 65 20 22 6f 73 2e 68 22 0a 23 69  nclude "os.h".#i
0720: 6e 63 6c 75 64 65 20 3c 63 74 79 70 65 2e 68 3e  nclude <ctype.h>
0730: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69  .#include <stdli
0740: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61  b.h>.#include <a
0750: 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75 64  ssert.h>.#includ
0760: 65 20 3c 74 69 6d 65 2e 68 3e 0a 0a 23 69 66 6e  e <time.h>..#ifn
0770: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
0780: 44 41 54 45 54 49 4d 45 5f 46 55 4e 43 53 0a 0a  DATETIME_FUNCS..
0790: 2f 2a 0a 2a 2a 20 41 20 73 74 72 75 63 74 75 72  /*.** A structur
07a0: 65 20 66 6f 72 20 68 6f 6c 64 69 6e 67 20 61 20  e for holding a 
07b0: 73 69 6e 67 6c 65 20 64 61 74 65 20 61 6e 64 20  single date and 
07c0: 74 69 6d 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66  time..*/.typedef
07d0: 20 73 74 72 75 63 74 20 44 61 74 65 54 69 6d 65   struct DateTime
07e0: 20 44 61 74 65 54 69 6d 65 3b 0a 73 74 72 75 63   DateTime;.struc
07f0: 74 20 44 61 74 65 54 69 6d 65 20 7b 0a 20 20 64  t DateTime {.  d
0800: 6f 75 62 6c 65 20 72 4a 44 3b 20 20 20 20 20 20  ouble rJD;      
0810: 2f 2a 20 54 68 65 20 6a 75 6c 69 61 6e 20 64 61  /* The julian da
0820: 79 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 69 6e  y number */.  in
0830: 74 20 59 2c 20 4d 2c 20 44 3b 20 20 20 20 20 2f  t Y, M, D;     /
0840: 2a 20 59 65 61 72 2c 20 6d 6f 6e 74 68 2c 20 61  * Year, month, a
0850: 6e 64 20 64 61 79 20 2a 2f 0a 20 20 69 6e 74 20  nd day */.  int 
0860: 68 2c 20 6d 3b 20 20 20 20 20 20 20 20 2f 2a 20  h, m;        /* 
0870: 48 6f 75 72 20 61 6e 64 20 6d 69 6e 75 74 65 73  Hour and minutes
0880: 20 2a 2f 0a 20 20 69 6e 74 20 74 7a 3b 20 20 20   */.  int tz;   
0890: 20 20 20 20 20 20 20 2f 2a 20 54 69 6d 65 7a 6f         /* Timezo
08a0: 6e 65 20 6f 66 66 73 65 74 20 69 6e 20 6d 69 6e  ne offset in min
08b0: 75 74 65 73 20 2a 2f 0a 20 20 64 6f 75 62 6c 65  utes */.  double
08c0: 20 73 3b 20 20 20 20 20 20 20 20 2f 2a 20 53 65   s;        /* Se
08d0: 63 6f 6e 64 73 20 2a 2f 0a 20 20 63 68 61 72 20  conds */.  char 
08e0: 76 61 6c 69 64 59 4d 44 3b 20 20 20 2f 2a 20 54  validYMD;   /* T
08f0: 72 75 65 20 69 66 20 59 2c 4d 2c 44 20 61 72 65  rue if Y,M,D are
0900: 20 76 61 6c 69 64 20 2a 2f 0a 20 20 63 68 61 72   valid */.  char
0910: 20 76 61 6c 69 64 48 4d 53 3b 20 20 20 2f 2a 20   validHMS;   /* 
0920: 54 72 75 65 20 69 66 20 68 2c 6d 2c 73 20 61 72  True if h,m,s ar
0930: 65 20 76 61 6c 69 64 20 2a 2f 0a 20 20 63 68 61  e valid */.  cha
0940: 72 20 76 61 6c 69 64 4a 44 3b 20 20 20 20 2f 2a  r validJD;    /*
0950: 20 54 72 75 65 20 69 66 20 72 4a 44 20 69 73 20   True if rJD is 
0960: 76 61 6c 69 64 20 2a 2f 0a 20 20 63 68 61 72 20  valid */.  char 
0970: 76 61 6c 69 64 54 5a 3b 20 20 20 20 2f 2a 20 54  validTZ;    /* T
0980: 72 75 65 20 69 66 20 74 7a 20 69 73 20 76 61 6c  rue if tz is val
0990: 69 64 20 2a 2f 0a 7d 3b 0a 0a 0a 2f 2a 0a 2a 2a  id */.};.../*.**
09a0: 20 43 6f 6e 76 65 72 74 20 7a 44 61 74 65 20 69   Convert zDate i
09b0: 6e 74 6f 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20  nto one or more 
09c0: 69 6e 74 65 67 65 72 73 2e 20 20 41 64 64 69 74  integers.  Addit
09d0: 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73 0a  ional arguments.
09e0: 2a 2a 20 63 6f 6d 65 20 69 6e 20 67 72 6f 75 70  ** come in group
09f0: 73 20 6f 66 20 35 20 61 73 20 66 6f 6c 6c 6f 77  s of 5 as follow
0a00: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 4e  s:.**.**       N
0a10: 20 20 20 20 20 20 20 6e 75 6d 62 65 72 20 6f 66         number of
0a20: 20 64 69 67 69 74 73 20 69 6e 20 74 68 65 20 69   digits in the i
0a30: 6e 74 65 67 65 72 0a 2a 2a 20 20 20 20 20 20 20  nteger.**       
0a40: 6d 69 6e 20 20 20 20 20 6d 69 6e 69 6d 75 6d 20  min     minimum 
0a50: 61 6c 6c 6f 77 65 64 20 76 61 6c 75 65 20 6f 66  allowed value of
0a60: 20 74 68 65 20 69 6e 74 65 67 65 72 0a 2a 2a 20   the integer.** 
0a70: 20 20 20 20 20 20 6d 61 78 20 20 20 20 20 6d 61        max     ma
0a80: 78 69 6d 75 6d 20 61 6c 6c 6f 77 65 64 20 76 61  ximum allowed va
0a90: 6c 75 65 20 6f 66 20 74 68 65 20 69 6e 74 65 67  lue of the integ
0aa0: 65 72 0a 2a 2a 20 20 20 20 20 20 20 6e 65 78 74  er.**       next
0ab0: 43 20 20 20 66 69 72 73 74 20 63 68 61 72 61 63  C   first charac
0ac0: 74 65 72 20 61 66 74 65 72 20 74 68 65 20 69 6e  ter after the in
0ad0: 74 65 67 65 72 0a 2a 2a 20 20 20 20 20 20 20 70  teger.**       p
0ae0: 56 61 6c 20 20 20 20 77 68 65 72 65 20 74 6f 20  Val    where to 
0af0: 77 72 69 74 65 20 74 68 65 20 69 6e 74 65 67 65  write the intege
0b00: 72 73 20 76 61 6c 75 65 2e 0a 2a 2a 0a 2a 2a 20  rs value..**.** 
0b10: 43 6f 6e 76 65 72 73 69 6f 6e 73 20 63 6f 6e 74  Conversions cont
0b20: 69 6e 75 65 20 75 6e 74 69 6c 20 6f 6e 65 20 77  inue until one w
0b30: 69 74 68 20 6e 65 78 74 43 3d 3d 30 20 69 73 20  ith nextC==0 is 
0b40: 65 6e 63 6f 75 6e 74 65 72 65 64 2e 0a 2a 2a 20  encountered..** 
0b50: 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74  The function ret
0b60: 75 72 6e 73 20 74 68 65 20 6e 75 6d 62 65 72 20  urns the number 
0b70: 6f 66 20 73 75 63 63 65 73 73 66 75 6c 20 63 6f  of successful co
0b80: 6e 76 65 72 73 69 6f 6e 73 2e 0a 2a 2f 0a 73 74  nversions..*/.st
0b90: 61 74 69 63 20 69 6e 74 20 67 65 74 44 69 67 69  atic int getDigi
0ba0: 74 73 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  ts(const char *z
0bb0: 44 61 74 65 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61  Date, ...){.  va
0bc0: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 69 6e 74 20  _list ap;.  int 
0bd0: 76 61 6c 3b 0a 20 20 69 6e 74 20 4e 3b 0a 20 20  val;.  int N;.  
0be0: 69 6e 74 20 6d 69 6e 3b 0a 20 20 69 6e 74 20 6d  int min;.  int m
0bf0: 61 78 3b 0a 20 20 69 6e 74 20 6e 65 78 74 43 3b  ax;.  int nextC;
0c00: 0a 20 20 69 6e 74 20 2a 70 56 61 6c 3b 0a 20 20  .  int *pVal;.  
0c10: 69 6e 74 20 63 6e 74 20 3d 20 30 3b 0a 20 20 76  int cnt = 0;.  v
0c20: 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 44 61 74  a_start(ap, zDat
0c30: 65 29 3b 0a 20 20 64 6f 7b 0a 20 20 20 20 4e 20  e);.  do{.    N 
0c40: 3d 20 76 61 5f 61 72 67 28 61 70 2c 20 69 6e 74  = va_arg(ap, int
0c50: 29 3b 0a 20 20 20 20 6d 69 6e 20 3d 20 76 61 5f  );.    min = va_
0c60: 61 72 67 28 61 70 2c 20 69 6e 74 29 3b 0a 20 20  arg(ap, int);.  
0c70: 20 20 6d 61 78 20 3d 20 76 61 5f 61 72 67 28 61    max = va_arg(a
0c80: 70 2c 20 69 6e 74 29 3b 0a 20 20 20 20 6e 65 78  p, int);.    nex
0c90: 74 43 20 3d 20 76 61 5f 61 72 67 28 61 70 2c 20  tC = va_arg(ap, 
0ca0: 69 6e 74 29 3b 0a 20 20 20 20 70 56 61 6c 20 3d  int);.    pVal =
0cb0: 20 76 61 5f 61 72 67 28 61 70 2c 20 69 6e 74 2a   va_arg(ap, int*
0cc0: 29 3b 0a 20 20 20 20 76 61 6c 20 3d 20 30 3b 0a  );.    val = 0;.
0cd0: 20 20 20 20 77 68 69 6c 65 28 20 4e 2d 2d 20 29      while( N-- )
0ce0: 7b 0a 20 20 20 20 20 20 69 66 28 20 21 69 73 64  {.      if( !isd
0cf0: 69 67 69 74 28 2a 28 75 38 2a 29 7a 44 61 74 65  igit(*(u8*)zDate
0d00: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 67 6f 74  ) ){.        got
0d10: 6f 20 65 6e 64 5f 67 65 74 44 69 67 69 74 73 3b  o end_getDigits;
0d20: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 76  .      }.      v
0d30: 61 6c 20 3d 20 76 61 6c 2a 31 30 20 2b 20 2a 7a  al = val*10 + *z
0d40: 44 61 74 65 20 2d 20 27 30 27 3b 0a 20 20 20 20  Date - '0';.    
0d50: 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20 20 7d    zDate++;.    }
0d60: 0a 20 20 20 20 69 66 28 20 76 61 6c 3c 6d 69 6e  .    if( val<min
0d70: 20 7c 7c 20 76 61 6c 3e 6d 61 78 20 7c 7c 20 28   || val>max || (
0d80: 6e 65 78 74 43 21 3d 30 20 26 26 20 6e 65 78 74  nextC!=0 && next
0d90: 43 21 3d 2a 7a 44 61 74 65 29 20 29 7b 0a 20 20  C!=*zDate) ){.  
0da0: 20 20 20 20 67 6f 74 6f 20 65 6e 64 5f 67 65 74      goto end_get
0db0: 44 69 67 69 74 73 3b 0a 20 20 20 20 7d 0a 20 20  Digits;.    }.  
0dc0: 20 20 2a 70 56 61 6c 20 3d 20 76 61 6c 3b 0a 20    *pVal = val;. 
0dd0: 20 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20 20     zDate++;.    
0de0: 63 6e 74 2b 2b 3b 0a 20 20 7d 77 68 69 6c 65 28  cnt++;.  }while(
0df0: 20 6e 65 78 74 43 20 29 3b 0a 20 20 76 61 5f 65   nextC );.  va_e
0e00: 6e 64 28 61 70 29 3b 0a 65 6e 64 5f 67 65 74 44  nd(ap);.end_getD
0e10: 69 67 69 74 73 3a 0a 20 20 72 65 74 75 72 6e 20  igits:.  return 
0e20: 63 6e 74 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  cnt;.}../*.** Re
0e30: 61 64 20 74 65 78 74 20 66 72 6f 6d 20 7a 5b 5d  ad text from z[]
0e40: 20 61 6e 64 20 63 6f 6e 76 65 72 74 20 69 6e 74   and convert int
0e50: 6f 20 61 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69  o a floating poi
0e60: 6e 74 20 6e 75 6d 62 65 72 2e 20 20 52 65 74 75  nt number.  Retu
0e70: 72 6e 0a 2a 2a 20 74 68 65 20 6e 75 6d 62 65 72  rn.** the number
0e80: 20 6f 66 20 64 69 67 69 74 73 20 63 6f 6e 76 65   of digits conve
0e90: 72 74 65 64 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65  rted..*/.#define
0ea0: 20 67 65 74 56 61 6c 75 65 20 73 71 6c 69 74 65   getValue sqlite
0eb0: 33 41 74 6f 46 0a 0a 2f 2a 0a 2a 2a 20 50 61 72  3AtoF../*.** Par
0ec0: 73 65 20 61 20 74 69 6d 65 7a 6f 6e 65 20 65 78  se a timezone ex
0ed0: 74 65 6e 73 69 6f 6e 20 6f 6e 20 74 68 65 20 65  tension on the e
0ee0: 6e 64 20 6f 66 20 61 20 64 61 74 65 2d 74 69 6d  nd of a date-tim
0ef0: 65 2e 0a 2a 2a 20 54 68 65 20 65 78 74 65 6e 73  e..** The extens
0f00: 69 6f 6e 20 69 73 20 6f 66 20 74 68 65 20 66 6f  ion is of the fo
0f10: 72 6d 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20  rm:.**.**       
0f20: 20 28 2b 2f 2d 29 48 48 3a 4d 4d 0a 2a 2a 0a 2a   (+/-)HH:MM.**.*
0f30: 2a 20 49 66 20 74 68 65 20 70 61 72 73 65 20 69  * If the parse i
0f40: 73 20 73 75 63 63 65 73 73 66 75 6c 2c 20 77 72  s successful, wr
0f50: 69 74 65 20 74 68 65 20 6e 75 6d 62 65 72 20 6f  ite the number o
0f60: 66 20 6d 69 6e 75 74 65 73 0a 2a 2a 20 6f 66 20  f minutes.** of 
0f70: 63 68 61 6e 67 65 20 69 6e 20 2a 70 6e 4d 69 6e  change in *pnMin
0f80: 20 61 6e 64 20 72 65 74 75 72 6e 20 30 2e 20 20   and return 0.  
0f90: 49 66 20 61 20 70 61 72 73 65 72 20 65 72 72 6f  If a parser erro
0fa0: 72 20 6f 63 63 75 72 73 2c 0a 2a 2a 20 72 65 74  r occurs,.** ret
0fb0: 75 72 6e 20 30 2e 0a 2a 2a 0a 2a 2a 20 41 20 6d  urn 0..**.** A m
0fc0: 69 73 73 69 6e 67 20 73 70 65 63 69 66 69 65 72  issing specifier
0fd0: 20 69 73 20 6e 6f 74 20 63 6f 6e 73 69 64 65 72   is not consider
0fe0: 65 64 20 61 6e 20 65 72 72 6f 72 2e 0a 2a 2f 0a  ed an error..*/.
0ff0: 73 74 61 74 69 63 20 69 6e 74 20 70 61 72 73 65  static int parse
1000: 54 69 6d 65 7a 6f 6e 65 28 63 6f 6e 73 74 20 63  Timezone(const c
1010: 68 61 72 20 2a 7a 44 61 74 65 2c 20 44 61 74 65  har *zDate, Date
1020: 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e 74 20  Time *p){.  int 
1030: 73 67 6e 20 3d 20 30 3b 0a 20 20 69 6e 74 20 6e  sgn = 0;.  int n
1040: 48 72 2c 20 6e 4d 6e 3b 0a 20 20 77 68 69 6c 65  Hr, nMn;.  while
1050: 28 20 69 73 73 70 61 63 65 28 2a 28 75 38 2a 29  ( isspace(*(u8*)
1060: 7a 44 61 74 65 29 20 29 7b 20 7a 44 61 74 65 2b  zDate) ){ zDate+
1070: 2b 3b 20 7d 0a 20 20 70 2d 3e 74 7a 20 3d 20 30  +; }.  p->tz = 0
1080: 3b 0a 20 20 69 66 28 20 2a 7a 44 61 74 65 3d 3d  ;.  if( *zDate==
1090: 27 2d 27 20 29 7b 0a 20 20 20 20 73 67 6e 20 3d  '-' ){.    sgn =
10a0: 20 2d 31 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28   -1;.  }else if(
10b0: 20 2a 7a 44 61 74 65 3d 3d 27 2b 27 20 29 7b 0a   *zDate=='+' ){.
10c0: 20 20 20 20 73 67 6e 20 3d 20 2b 31 3b 0a 20 20      sgn = +1;.  
10d0: 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72  }else{.    retur
10e0: 6e 20 2a 7a 44 61 74 65 21 3d 30 3b 0a 20 20 7d  n *zDate!=0;.  }
10f0: 0a 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 69 66  .  zDate++;.  if
1100: 28 20 67 65 74 44 69 67 69 74 73 28 7a 44 61 74  ( getDigits(zDat
1110: 65 2c 20 32 2c 20 30 2c 20 31 34 2c 20 27 3a 27  e, 2, 0, 14, ':'
1120: 2c 20 26 6e 48 72 2c 20 32 2c 20 30 2c 20 35 39  , &nHr, 2, 0, 59
1130: 2c 20 30 2c 20 26 6e 4d 6e 29 21 3d 32 20 29 7b  , 0, &nMn)!=2 ){
1140: 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20  .    return 1;. 
1150: 20 7d 0a 20 20 7a 44 61 74 65 20 2b 3d 20 35 3b   }.  zDate += 5;
1160: 0a 20 20 70 2d 3e 74 7a 20 3d 20 73 67 6e 2a 28  .  p->tz = sgn*(
1170: 6e 4d 6e 20 2b 20 6e 48 72 2a 36 30 29 3b 0a 20  nMn + nHr*60);. 
1180: 20 77 68 69 6c 65 28 20 69 73 73 70 61 63 65 28   while( isspace(
1190: 2a 28 75 38 2a 29 7a 44 61 74 65 29 20 29 7b 20  *(u8*)zDate) ){ 
11a0: 7a 44 61 74 65 2b 2b 3b 20 7d 0a 20 20 72 65 74  zDate++; }.  ret
11b0: 75 72 6e 20 2a 7a 44 61 74 65 21 3d 30 3b 0a 7d  urn *zDate!=0;.}
11c0: 0a 0a 2f 2a 0a 2a 2a 20 50 61 72 73 65 20 74 69  ../*.** Parse ti
11d0: 6d 65 73 20 6f 66 20 74 68 65 20 66 6f 72 6d 20  mes of the form 
11e0: 48 48 3a 4d 4d 20 6f 72 20 48 48 3a 4d 4d 3a 53  HH:MM or HH:MM:S
11f0: 53 20 6f 72 20 48 48 3a 4d 4d 3a 53 53 2e 46 46  S or HH:MM:SS.FF
1200: 46 46 2e 0a 2a 2a 20 54 68 65 20 48 48 2c 20 4d  FF..** The HH, M
1210: 4d 2c 20 61 6e 64 20 53 53 20 6d 75 73 74 20 65  M, and SS must e
1220: 61 63 68 20 62 65 20 65 78 61 63 74 6c 79 20 32  ach be exactly 2
1230: 20 64 69 67 69 74 73 2e 20 20 54 68 65 0a 2a 2a   digits.  The.**
1240: 20 66 72 61 63 74 69 6f 6e 61 6c 20 73 65 63 6f   fractional seco
1250: 6e 64 73 20 46 46 46 46 20 63 61 6e 20 62 65 20  nds FFFF can be 
1260: 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 64 69 67 69  one or more digi
1270: 74 73 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e  ts..**.** Return
1280: 20 31 20 69 66 20 74 68 65 72 65 20 69 73 20 61   1 if there is a
1290: 20 70 61 72 73 69 6e 67 20 65 72 72 6f 72 20 61   parsing error a
12a0: 6e 64 20 30 20 6f 6e 20 73 75 63 63 65 73 73 2e  nd 0 on success.
12b0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70  .*/.static int p
12c0: 61 72 73 65 48 68 4d 6d 53 73 28 63 6f 6e 73 74  arseHhMmSs(const
12d0: 20 63 68 61 72 20 2a 7a 44 61 74 65 2c 20 44 61   char *zDate, Da
12e0: 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e  teTime *p){.  in
12f0: 74 20 68 2c 20 6d 2c 20 73 3b 0a 20 20 64 6f 75  t h, m, s;.  dou
1300: 62 6c 65 20 6d 73 20 3d 20 30 2e 30 3b 0a 20 20  ble ms = 0.0;.  
1310: 69 66 28 20 67 65 74 44 69 67 69 74 73 28 7a 44  if( getDigits(zD
1320: 61 74 65 2c 20 32 2c 20 30 2c 20 32 34 2c 20 27  ate, 2, 0, 24, '
1330: 3a 27 2c 20 26 68 2c 20 32 2c 20 30 2c 20 35 39  :', &h, 2, 0, 59
1340: 2c 20 30 2c 20 26 6d 29 21 3d 32 20 29 7b 0a 20  , 0, &m)!=2 ){. 
1350: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d     return 1;.  }
1360: 0a 20 20 7a 44 61 74 65 20 2b 3d 20 35 3b 0a 20  .  zDate += 5;. 
1370: 20 69 66 28 20 2a 7a 44 61 74 65 3d 3d 27 3a 27   if( *zDate==':'
1380: 20 29 7b 0a 20 20 20 20 7a 44 61 74 65 2b 2b 3b   ){.    zDate++;
1390: 0a 20 20 20 20 69 66 28 20 67 65 74 44 69 67 69  .    if( getDigi
13a0: 74 73 28 7a 44 61 74 65 2c 20 32 2c 20 30 2c 20  ts(zDate, 2, 0, 
13b0: 35 39 2c 20 30 2c 20 26 73 29 21 3d 31 20 29 7b  59, 0, &s)!=1 ){
13c0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b  .      return 1;
13d0: 0a 20 20 20 20 7d 0a 20 20 20 20 7a 44 61 74 65  .    }.    zDate
13e0: 20 2b 3d 20 32 3b 0a 20 20 20 20 69 66 28 20 2a   += 2;.    if( *
13f0: 7a 44 61 74 65 3d 3d 27 2e 27 20 26 26 20 69 73  zDate=='.' && is
1400: 64 69 67 69 74 28 28 75 38 29 7a 44 61 74 65 5b  digit((u8)zDate[
1410: 31 5d 29 20 29 7b 0a 20 20 20 20 20 20 64 6f 75  1]) ){.      dou
1420: 62 6c 65 20 72 53 63 61 6c 65 20 3d 20 31 2e 30  ble rScale = 1.0
1430: 3b 0a 20 20 20 20 20 20 7a 44 61 74 65 2b 2b 3b  ;.      zDate++;
1440: 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 69 73  .      while( is
1450: 64 69 67 69 74 28 2a 28 75 38 2a 29 7a 44 61 74  digit(*(u8*)zDat
1460: 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20 6d 73  e) ){.        ms
1470: 20 3d 20 6d 73 2a 31 30 2e 30 20 2b 20 2a 7a 44   = ms*10.0 + *zD
1480: 61 74 65 20 2d 20 27 30 27 3b 0a 20 20 20 20 20  ate - '0';.     
1490: 20 20 20 72 53 63 61 6c 65 20 2a 3d 20 31 30 2e     rScale *= 10.
14a0: 30 3b 0a 20 20 20 20 20 20 20 20 7a 44 61 74 65  0;.        zDate
14b0: 2b 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  ++;.      }.    
14c0: 20 20 6d 73 20 2f 3d 20 72 53 63 61 6c 65 3b 0a    ms /= rScale;.
14d0: 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a 20      }.  }else{. 
14e0: 20 20 20 73 20 3d 20 30 3b 0a 20 20 7d 0a 20 20     s = 0;.  }.  
14f0: 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 30 3b 0a  p->validJD = 0;.
1500: 20 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20    p->validHMS = 
1510: 31 3b 0a 20 20 70 2d 3e 68 20 3d 20 68 3b 0a 20  1;.  p->h = h;. 
1520: 20 70 2d 3e 6d 20 3d 20 6d 3b 0a 20 20 70 2d 3e   p->m = m;.  p->
1530: 73 20 3d 20 73 20 2b 20 6d 73 3b 0a 20 20 69 66  s = s + ms;.  if
1540: 28 20 70 61 72 73 65 54 69 6d 65 7a 6f 6e 65 28  ( parseTimezone(
1550: 7a 44 61 74 65 2c 20 70 29 20 29 20 72 65 74 75  zDate, p) ) retu
1560: 72 6e 20 31 3b 0a 20 20 70 2d 3e 76 61 6c 69 64  rn 1;.  p->valid
1570: 54 5a 20 3d 20 70 2d 3e 74 7a 21 3d 30 3b 0a 20  TZ = p->tz!=0;. 
1580: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a   return 0;.}../*
1590: 0a 2a 2a 20 43 6f 6e 76 65 72 74 20 66 72 6f 6d  .** Convert from
15a0: 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d   YYYY-MM-DD HH:M
15b0: 4d 3a 53 53 20 74 6f 20 6a 75 6c 69 61 6e 20 64  M:SS to julian d
15c0: 61 79 2e 20 20 57 65 20 61 6c 77 61 79 73 20 61  ay.  We always a
15d0: 73 73 75 6d 65 0a 2a 2a 20 74 68 61 74 20 74 68  ssume.** that th
15e0: 65 20 59 59 59 59 2d 4d 4d 2d 44 44 20 69 73 20  e YYYY-MM-DD is 
15f0: 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65  according to the
1600: 20 47 72 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e   Gregorian calen
1610: 64 61 72 2e 0a 2a 2a 0a 2a 2a 20 52 65 66 65 72  dar..**.** Refer
1620: 65 6e 63 65 3a 20 20 4d 65 65 75 73 20 70 61 67  ence:  Meeus pag
1630: 65 20 36 31 0a 2a 2f 0a 73 74 61 74 69 63 20 76  e 61.*/.static v
1640: 6f 69 64 20 63 6f 6d 70 75 74 65 4a 44 28 44 61  oid computeJD(Da
1650: 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e  teTime *p){.  in
1660: 74 20 59 2c 20 4d 2c 20 44 2c 20 41 2c 20 42 2c  t Y, M, D, A, B,
1670: 20 58 31 2c 20 58 32 3b 0a 0a 20 20 69 66 28 20   X1, X2;..  if( 
1680: 70 2d 3e 76 61 6c 69 64 4a 44 20 29 20 72 65 74  p->validJD ) ret
1690: 75 72 6e 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61  urn;.  if( p->va
16a0: 6c 69 64 59 4d 44 20 29 7b 0a 20 20 20 20 59 20  lidYMD ){.    Y 
16b0: 3d 20 70 2d 3e 59 3b 0a 20 20 20 20 4d 20 3d 20  = p->Y;.    M = 
16c0: 70 2d 3e 4d 3b 0a 20 20 20 20 44 20 3d 20 70 2d  p->M;.    D = p-
16d0: 3e 44 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  >D;.  }else{.   
16e0: 20 59 20 3d 20 32 30 30 30 3b 20 20 2f 2a 20 49   Y = 2000;  /* I
16f0: 66 20 6e 6f 20 59 4d 44 20 73 70 65 63 69 66 69  f no YMD specifi
1700: 65 64 2c 20 61 73 73 75 6d 65 20 32 30 30 30 2d  ed, assume 2000-
1710: 4a 61 6e 2d 30 31 20 2a 2f 0a 20 20 20 20 4d 20  Jan-01 */.    M 
1720: 3d 20 31 3b 0a 20 20 20 20 44 20 3d 20 31 3b 0a  = 1;.    D = 1;.
1730: 20 20 7d 0a 20 20 69 66 28 20 4d 3c 3d 32 20 29    }.  if( M<=2 )
1740: 7b 0a 20 20 20 20 59 2d 2d 3b 0a 20 20 20 20 4d  {.    Y--;.    M
1750: 20 2b 3d 20 31 32 3b 0a 20 20 7d 0a 20 20 41 20   += 12;.  }.  A 
1760: 3d 20 59 2f 31 30 30 3b 0a 20 20 42 20 3d 20 32  = Y/100;.  B = 2
1770: 20 2d 20 41 20 2b 20 28 41 2f 34 29 3b 0a 20 20   - A + (A/4);.  
1780: 58 31 20 3d 20 33 36 35 2e 32 35 2a 28 59 2b 34  X1 = 365.25*(Y+4
1790: 37 31 36 29 3b 0a 20 20 58 32 20 3d 20 33 30 2e  716);.  X2 = 30.
17a0: 36 30 30 31 2a 28 4d 2b 31 29 3b 0a 20 20 70 2d  6001*(M+1);.  p-
17b0: 3e 72 4a 44 20 3d 20 58 31 20 2b 20 58 32 20 2b  >rJD = X1 + X2 +
17c0: 20 44 20 2b 20 42 20 2d 20 31 35 32 34 2e 35 3b   D + B - 1524.5;
17d0: 0a 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20  .  p->validJD = 
17e0: 31 3b 0a 20 20 70 2d 3e 76 61 6c 69 64 59 4d 44  1;.  p->validYMD
17f0: 20 3d 20 30 3b 0a 20 20 69 66 28 20 70 2d 3e 76   = 0;.  if( p->v
1800: 61 6c 69 64 48 4d 53 20 29 7b 0a 20 20 20 20 70  alidHMS ){.    p
1810: 2d 3e 72 4a 44 20 2b 3d 20 28 70 2d 3e 68 2a 33  ->rJD += (p->h*3
1820: 36 30 30 2e 30 20 2b 20 70 2d 3e 6d 2a 36 30 2e  600.0 + p->m*60.
1830: 30 20 2b 20 70 2d 3e 73 29 2f 38 36 34 30 30 2e  0 + p->s)/86400.
1840: 30 3b 0a 20 20 20 20 69 66 28 20 70 2d 3e 76 61  0;.    if( p->va
1850: 6c 69 64 54 5a 20 29 7b 0a 20 20 20 20 20 20 70  lidTZ ){.      p
1860: 2d 3e 72 4a 44 20 2d 3d 20 70 2d 3e 74 7a 2a 36  ->rJD -= p->tz*6
1870: 30 2f 38 36 34 30 30 2e 30 3b 0a 20 20 20 20 20  0/86400.0;.     
1880: 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20 30   p->validHMS = 0
1890: 3b 0a 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 64  ;.      p->valid
18a0: 54 5a 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20  TZ = 0;.    }.  
18b0: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 61 72 73 65  }.}../*.** Parse
18c0: 20 64 61 74 65 73 20 6f 66 20 74 68 65 20 66 6f   dates of the fo
18d0: 72 6d 0a 2a 2a 0a 2a 2a 20 20 20 20 20 59 59 59  rm.**.**     YYY
18e0: 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d 3a 53 53  Y-MM-DD HH:MM:SS
18f0: 2e 46 46 46 0a 2a 2a 20 20 20 20 20 59 59 59 59  .FFF.**     YYYY
1900: 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d 3a 53 53 0a  -MM-DD HH:MM:SS.
1910: 2a 2a 20 20 20 20 20 59 59 59 59 2d 4d 4d 2d 44  **     YYYY-MM-D
1920: 44 20 48 48 3a 4d 4d 0a 2a 2a 20 20 20 20 20 59  D HH:MM.**     Y
1930: 59 59 59 2d 4d 4d 2d 44 44 0a 2a 2a 0a 2a 2a 20  YYY-MM-DD.**.** 
1940: 57 72 69 74 65 20 74 68 65 20 72 65 73 75 6c 74  Write the result
1950: 20 69 6e 74 6f 20 74 68 65 20 44 61 74 65 54 69   into the DateTi
1960: 6d 65 20 73 74 72 75 63 74 75 72 65 20 61 6e 64  me structure and
1970: 20 72 65 74 75 72 6e 20 30 0a 2a 2a 20 6f 6e 20   return 0.** on 
1980: 73 75 63 63 65 73 73 20 61 6e 64 20 31 20 69 66  success and 1 if
1990: 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e   the input strin
19a0: 67 20 69 73 20 6e 6f 74 20 61 20 77 65 6c 6c 2d  g is not a well-
19b0: 66 6f 72 6d 65 64 0a 2a 2a 20 64 61 74 65 2e 0a  formed.** date..
19c0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 70 61  */.static int pa
19d0: 72 73 65 59 79 79 79 4d 6d 44 64 28 63 6f 6e 73  rseYyyyMmDd(cons
19e0: 74 20 63 68 61 72 20 2a 7a 44 61 74 65 2c 20 44  t char *zDate, D
19f0: 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69  ateTime *p){.  i
1a00: 6e 74 20 59 2c 20 4d 2c 20 44 2c 20 6e 65 67 3b  nt Y, M, D, neg;
1a10: 0a 0a 20 20 69 66 28 20 7a 44 61 74 65 5b 30 5d  ..  if( zDate[0]
1a20: 3d 3d 27 2d 27 20 29 7b 0a 20 20 20 20 7a 44 61  =='-' ){.    zDa
1a30: 74 65 2b 2b 3b 0a 20 20 20 20 6e 65 67 20 3d 20  te++;.    neg = 
1a40: 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  1;.  }else{.    
1a50: 6e 65 67 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69  neg = 0;.  }.  i
1a60: 66 28 20 67 65 74 44 69 67 69 74 73 28 7a 44 61  f( getDigits(zDa
1a70: 74 65 2c 34 2c 30 2c 39 39 39 39 2c 27 2d 27 2c  te,4,0,9999,'-',
1a80: 26 59 2c 32 2c 31 2c 31 32 2c 27 2d 27 2c 26 4d  &Y,2,1,12,'-',&M
1a90: 2c 32 2c 31 2c 33 31 2c 30 2c 26 44 29 21 3d 33  ,2,1,31,0,&D)!=3
1aa0: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 31   ){.    return 1
1ab0: 3b 0a 20 20 7d 0a 20 20 7a 44 61 74 65 20 2b 3d  ;.  }.  zDate +=
1ac0: 20 31 30 3b 0a 20 20 77 68 69 6c 65 28 20 69 73   10;.  while( is
1ad0: 73 70 61 63 65 28 2a 28 75 38 2a 29 7a 44 61 74  space(*(u8*)zDat
1ae0: 65 29 20 7c 7c 20 27 54 27 3d 3d 2a 28 75 38 2a  e) || 'T'==*(u8*
1af0: 29 7a 44 61 74 65 20 29 7b 20 7a 44 61 74 65 2b  )zDate ){ zDate+
1b00: 2b 3b 20 7d 0a 20 20 69 66 28 20 70 61 72 73 65  +; }.  if( parse
1b10: 48 68 4d 6d 53 73 28 7a 44 61 74 65 2c 20 70 29  HhMmSs(zDate, p)
1b20: 3d 3d 30 20 29 7b 0a 20 20 20 20 2f 2a 20 57 65  ==0 ){.    /* We
1b30: 20 67 6f 74 20 74 68 65 20 74 69 6d 65 20 2a 2f   got the time */
1b40: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 2a 7a 44  .  }else if( *zD
1b50: 61 74 65 3d 3d 30 20 29 7b 0a 20 20 20 20 70 2d  ate==0 ){.    p-
1b60: 3e 76 61 6c 69 64 48 4d 53 20 3d 20 30 3b 0a 20  >validHMS = 0;. 
1b70: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75   }else{.    retu
1b80: 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 70 2d 3e 76  rn 1;.  }.  p->v
1b90: 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 20 70 2d  alidJD = 0;.  p-
1ba0: 3e 76 61 6c 69 64 59 4d 44 20 3d 20 31 3b 0a 20  >validYMD = 1;. 
1bb0: 20 70 2d 3e 59 20 3d 20 6e 65 67 20 3f 20 2d 59   p->Y = neg ? -Y
1bc0: 20 3a 20 59 3b 0a 20 20 70 2d 3e 4d 20 3d 20 4d   : Y;.  p->M = M
1bd0: 3b 0a 20 20 70 2d 3e 44 20 3d 20 44 3b 0a 20 20  ;.  p->D = D;.  
1be0: 69 66 28 20 70 2d 3e 76 61 6c 69 64 54 5a 20 29  if( p->validTZ )
1bf0: 7b 0a 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28  {.    computeJD(
1c00: 70 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  p);.  }.  return
1c10: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 74 74   0;.}../*.** Att
1c20: 65 6d 70 74 20 74 6f 20 70 61 72 73 65 20 74 68  empt to parse th
1c30: 65 20 67 69 76 65 6e 20 73 74 72 69 6e 67 20 69  e given string i
1c40: 6e 74 6f 20 61 20 4a 75 6c 69 61 6e 20 44 61 79  nto a Julian Day
1c50: 20 4e 75 6d 62 65 72 2e 20 20 52 65 74 75 72 6e   Number.  Return
1c60: 0a 2a 2a 20 74 68 65 20 6e 75 6d 62 65 72 20 6f  .** the number o
1c70: 66 20 65 72 72 6f 72 73 2e 0a 2a 2a 0a 2a 2a 20  f errors..**.** 
1c80: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72  The following ar
1c90: 65 20 61 63 63 65 70 74 61 62 6c 65 20 66 6f 72  e acceptable for
1ca0: 6d 73 20 66 6f 72 20 74 68 65 20 69 6e 70 75 74  ms for the input
1cb0: 20 73 74 72 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20   string:.**.**  
1cc0: 20 20 20 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48      YYYY-MM-DD H
1cd0: 48 3a 4d 4d 3a 53 53 2e 46 46 46 20 20 2b 2f 2d  H:MM:SS.FFF  +/-
1ce0: 48 48 3a 4d 4d 0a 2a 2a 20 20 20 20 20 20 44 44  HH:MM.**      DD
1cf0: 44 44 2e 44 44 20 0a 2a 2a 20 20 20 20 20 20 6e  DD.DD .**      n
1d00: 6f 77 0a 2a 2a 0a 2a 2a 20 49 6e 20 74 68 65 20  ow.**.** In the 
1d10: 66 69 72 73 74 20 66 6f 72 6d 2c 20 74 68 65 20  first form, the 
1d20: 2b 2f 2d 48 48 3a 4d 4d 20 69 73 20 61 6c 77 61  +/-HH:MM is alwa
1d30: 79 73 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 54 68  ys optional.  Th
1d40: 65 20 66 72 61 63 74 69 6f 6e 61 6c 0a 2a 2a 20  e fractional.** 
1d50: 73 65 63 6f 6e 64 73 20 65 78 74 65 6e 73 69 6f  seconds extensio
1d60: 6e 20 28 74 68 65 20 22 2e 46 46 46 22 29 20 69  n (the ".FFF") i
1d70: 73 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 54 68 65  s optional.  The
1d80: 20 73 65 63 6f 6e 64 73 20 70 6f 72 74 69 6f 6e   seconds portion
1d90: 0a 2a 2a 20 28 22 3a 53 53 2e 46 46 46 22 29 20  .** (":SS.FFF") 
1da0: 69 73 20 6f 70 74 69 6f 6e 2e 20 20 54 68 65 20  is option.  The 
1db0: 79 65 61 72 20 61 6e 64 20 64 61 74 65 20 63 61  year and date ca
1dc0: 6e 20 62 65 20 6f 6d 69 74 74 65 64 20 61 73 20  n be omitted as 
1dd0: 6c 6f 6e 67 0a 2a 2a 20 61 73 20 74 68 65 72 65  long.** as there
1de0: 20 69 73 20 61 20 74 69 6d 65 20 73 74 72 69 6e   is a time strin
1df0: 67 2e 20 20 54 68 65 20 74 69 6d 65 20 73 74 72  g.  The time str
1e00: 69 6e 67 20 63 61 6e 20 62 65 20 6f 6d 69 74 74  ing can be omitt
1e10: 65 64 20 61 73 20 6c 6f 6e 67 0a 2a 2a 20 61 73  ed as long.** as
1e20: 20 74 68 65 72 65 20 69 73 20 61 20 79 65 61 72   there is a year
1e30: 20 61 6e 64 20 64 61 74 65 2e 0a 2a 2f 0a 73 74   and date..*/.st
1e40: 61 74 69 63 20 69 6e 74 20 70 61 72 73 65 44 61  atic int parseDa
1e50: 74 65 4f 72 54 69 6d 65 28 63 6f 6e 73 74 20 63  teOrTime(const c
1e60: 68 61 72 20 2a 7a 44 61 74 65 2c 20 44 61 74 65  har *zDate, Date
1e70: 54 69 6d 65 20 2a 70 29 7b 0a 20 20 6d 65 6d 73  Time *p){.  mems
1e80: 65 74 28 70 2c 20 30 2c 20 73 69 7a 65 6f 66 28  et(p, 0, sizeof(
1e90: 2a 70 29 29 3b 0a 20 20 69 66 28 20 70 61 72 73  *p));.  if( pars
1ea0: 65 59 79 79 79 4d 6d 44 64 28 7a 44 61 74 65 2c  eYyyyMmDd(zDate,
1eb0: 70 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 74  p)==0 ){.    ret
1ec0: 75 72 6e 20 30 3b 0a 20 20 7d 65 6c 73 65 20 69  urn 0;.  }else i
1ed0: 66 28 20 70 61 72 73 65 48 68 4d 6d 53 73 28 7a  f( parseHhMmSs(z
1ee0: 44 61 74 65 2c 20 70 29 3d 3d 30 20 29 7b 0a 20  Date, p)==0 ){. 
1ef0: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d     return 0;.  }
1f00: 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74 65 33  else if( sqlite3
1f10: 53 74 72 49 43 6d 70 28 7a 44 61 74 65 2c 22 6e  StrICmp(zDate,"n
1f20: 6f 77 22 29 3d 3d 30 29 7b 0a 20 20 20 20 64 6f  ow")==0){.    do
1f30: 75 62 6c 65 20 72 3b 0a 20 20 20 20 73 71 6c 69  uble r;.    sqli
1f40: 74 65 33 4f 73 43 75 72 72 65 6e 74 54 69 6d 65  te3OsCurrentTime
1f50: 28 26 72 29 3b 0a 20 20 20 20 70 2d 3e 72 4a 44  (&r);.    p->rJD
1f60: 20 3d 20 72 3b 0a 20 20 20 20 70 2d 3e 76 61 6c   = r;.    p->val
1f70: 69 64 4a 44 20 3d 20 31 3b 0a 20 20 20 20 72 65  idJD = 1;.    re
1f80: 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c 73 65 20  turn 0;.  }else 
1f90: 69 66 28 20 73 71 6c 69 74 65 33 49 73 4e 75 6d  if( sqlite3IsNum
1fa0: 62 65 72 28 7a 44 61 74 65 2c 20 30 2c 20 53 51  ber(zDate, 0, SQ
1fb0: 4c 49 54 45 5f 55 54 46 38 29 20 29 7b 0a 20 20  LITE_UTF8) ){.  
1fc0: 20 20 67 65 74 56 61 6c 75 65 28 7a 44 61 74 65    getValue(zDate
1fd0: 2c 20 26 70 2d 3e 72 4a 44 29 3b 0a 20 20 20 20  , &p->rJD);.    
1fe0: 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 31 3b 0a  p->validJD = 1;.
1ff0: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20      return 0;.  
2000: 7d 0a 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a  }.  return 1;.}.
2010: 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74  ./*.** Compute t
2020: 68 65 20 59 65 61 72 2c 20 4d 6f 6e 74 68 2c 20  he Year, Month, 
2030: 61 6e 64 20 44 61 79 20 66 72 6f 6d 20 74 68 65  and Day from the
2040: 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62   julian day numb
2050: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  er..*/.static vo
2060: 69 64 20 63 6f 6d 70 75 74 65 59 4d 44 28 44 61  id computeYMD(Da
2070: 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e  teTime *p){.  in
2080: 74 20 5a 2c 20 41 2c 20 42 2c 20 43 2c 20 44 2c  t Z, A, B, C, D,
2090: 20 45 2c 20 58 31 3b 0a 20 20 69 66 28 20 70 2d   E, X1;.  if( p-
20a0: 3e 76 61 6c 69 64 59 4d 44 20 29 20 72 65 74 75  >validYMD ) retu
20b0: 72 6e 3b 0a 20 20 69 66 28 20 21 70 2d 3e 76 61  rn;.  if( !p->va
20c0: 6c 69 64 4a 44 20 29 7b 0a 20 20 20 20 70 2d 3e  lidJD ){.    p->
20d0: 59 20 3d 20 32 30 30 30 3b 0a 20 20 20 20 70 2d  Y = 2000;.    p-
20e0: 3e 4d 20 3d 20 31 3b 0a 20 20 20 20 70 2d 3e 44  >M = 1;.    p->D
20f0: 20 3d 20 31 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20   = 1;.  }else{. 
2100: 20 20 20 5a 20 3d 20 70 2d 3e 72 4a 44 20 2b 20     Z = p->rJD + 
2110: 30 2e 35 3b 0a 20 20 20 20 41 20 3d 20 28 5a 20  0.5;.    A = (Z 
2120: 2d 20 31 38 36 37 32 31 36 2e 32 35 29 2f 33 36  - 1867216.25)/36
2130: 35 32 34 2e 32 35 3b 0a 20 20 20 20 41 20 3d 20  524.25;.    A = 
2140: 5a 20 2b 20 31 20 2b 20 41 20 2d 20 28 41 2f 34  Z + 1 + A - (A/4
2150: 29 3b 0a 20 20 20 20 42 20 3d 20 41 20 2b 20 31  );.    B = A + 1
2160: 35 32 34 3b 0a 20 20 20 20 43 20 3d 20 28 42 20  524;.    C = (B 
2170: 2d 20 31 32 32 2e 31 29 2f 33 36 35 2e 32 35 3b  - 122.1)/365.25;
2180: 0a 20 20 20 20 44 20 3d 20 33 36 35 2e 32 35 2a  .    D = 365.25*
2190: 43 3b 0a 20 20 20 20 45 20 3d 20 28 42 2d 44 29  C;.    E = (B-D)
21a0: 2f 33 30 2e 36 30 30 31 3b 0a 20 20 20 20 58 31  /30.6001;.    X1
21b0: 20 3d 20 33 30 2e 36 30 30 31 2a 45 3b 0a 20 20   = 30.6001*E;.  
21c0: 20 20 70 2d 3e 44 20 3d 20 42 20 2d 20 44 20 2d    p->D = B - D -
21d0: 20 58 31 3b 0a 20 20 20 20 70 2d 3e 4d 20 3d 20   X1;.    p->M = 
21e0: 45 3c 31 34 20 3f 20 45 2d 31 20 3a 20 45 2d 31  E<14 ? E-1 : E-1
21f0: 33 3b 0a 20 20 20 20 70 2d 3e 59 20 3d 20 70 2d  3;.    p->Y = p-
2200: 3e 4d 3e 32 20 3f 20 43 20 2d 20 34 37 31 36 20  >M>2 ? C - 4716 
2210: 3a 20 43 20 2d 20 34 37 31 35 3b 0a 20 20 7d 0a  : C - 4715;.  }.
2220: 20 20 70 2d 3e 76 61 6c 69 64 59 4d 44 20 3d 20    p->validYMD = 
2230: 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70  1;.}../*.** Comp
2240: 75 74 65 20 74 68 65 20 48 6f 75 72 2c 20 4d 69  ute the Hour, Mi
2250: 6e 75 74 65 2c 20 61 6e 64 20 53 65 63 6f 6e 64  nute, and Second
2260: 73 20 66 72 6f 6d 20 74 68 65 20 6a 75 6c 69 61  s from the julia
2270: 6e 20 64 61 79 20 6e 75 6d 62 65 72 2e 0a 2a 2f  n day number..*/
2280: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 6d  .static void com
2290: 70 75 74 65 48 4d 53 28 44 61 74 65 54 69 6d 65  puteHMS(DateTime
22a0: 20 2a 70 29 7b 0a 20 20 69 6e 74 20 5a 2c 20 73   *p){.  int Z, s
22b0: 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61 6c 69 64  ;.  if( p->valid
22c0: 48 4d 53 20 29 20 72 65 74 75 72 6e 3b 0a 20 20  HMS ) return;.  
22d0: 5a 20 3d 20 70 2d 3e 72 4a 44 20 2b 20 30 2e 35  Z = p->rJD + 0.5
22e0: 3b 0a 20 20 73 20 3d 20 28 70 2d 3e 72 4a 44 20  ;.  s = (p->rJD 
22f0: 2b 20 30 2e 35 20 2d 20 5a 29 2a 38 36 34 30 30  + 0.5 - Z)*86400
2300: 30 30 30 2e 30 20 2b 20 30 2e 35 3b 0a 20 20 70  000.0 + 0.5;.  p
2310: 2d 3e 73 20 3d 20 30 2e 30 30 31 2a 73 3b 0a 20  ->s = 0.001*s;. 
2320: 20 73 20 3d 20 70 2d 3e 73 3b 0a 20 20 70 2d 3e   s = p->s;.  p->
2330: 73 20 2d 3d 20 73 3b 0a 20 20 70 2d 3e 68 20 3d  s -= s;.  p->h =
2340: 20 73 2f 33 36 30 30 3b 0a 20 20 73 20 2d 3d 20   s/3600;.  s -= 
2350: 70 2d 3e 68 2a 33 36 30 30 3b 0a 20 20 70 2d 3e  p->h*3600;.  p->
2360: 6d 20 3d 20 73 2f 36 30 3b 0a 20 20 70 2d 3e 73  m = s/60;.  p->s
2370: 20 2b 3d 20 73 20 2d 20 70 2d 3e 6d 2a 36 30 3b   += s - p->m*60;
2380: 0a 20 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d  .  p->validHMS =
2390: 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d   1;.}../*.** Com
23a0: 70 75 74 65 20 62 6f 74 68 20 59 4d 44 20 61 6e  pute both YMD an
23b0: 64 20 48 4d 53 0a 2a 2f 0a 73 74 61 74 69 63 20  d HMS.*/.static 
23c0: 76 6f 69 64 20 63 6f 6d 70 75 74 65 59 4d 44 5f  void computeYMD_
23d0: 48 4d 53 28 44 61 74 65 54 69 6d 65 20 2a 70 29  HMS(DateTime *p)
23e0: 7b 0a 20 20 63 6f 6d 70 75 74 65 59 4d 44 28 70  {.  computeYMD(p
23f0: 29 3b 0a 20 20 63 6f 6d 70 75 74 65 48 4d 53 28  );.  computeHMS(
2400: 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6c 65  p);.}../*.** Cle
2410: 61 72 20 74 68 65 20 59 4d 44 20 61 6e 64 20 48  ar the YMD and H
2420: 4d 53 20 61 6e 64 20 74 68 65 20 54 5a 0a 2a 2f  MS and the TZ.*/
2430: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 6c 65  .static void cle
2440: 61 72 59 4d 44 5f 48 4d 53 5f 54 5a 28 44 61 74  arYMD_HMS_TZ(Dat
2450: 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 70 2d 3e  eTime *p){.  p->
2460: 76 61 6c 69 64 59 4d 44 20 3d 20 30 3b 0a 20 20  validYMD = 0;.  
2470: 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20 30 3b  p->validHMS = 0;
2480: 0a 20 20 70 2d 3e 76 61 6c 69 64 54 5a 20 3d 20  .  p->validTZ = 
2490: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6d 70  0;.}../*.** Comp
24a0: 75 74 65 20 74 68 65 20 64 69 66 66 65 72 65 6e  ute the differen
24b0: 63 65 20 28 69 6e 20 64 61 79 73 29 20 62 65 74  ce (in days) bet
24c0: 77 65 65 6e 20 6c 6f 63 61 6c 74 69 6d 65 20 61  ween localtime a
24d0: 6e 64 20 55 54 43 20 28 61 2e 6b 2e 61 2e 20 47  nd UTC (a.k.a. G
24e0: 4d 54 29 0a 2a 2a 20 66 6f 72 20 74 68 65 20 74  MT).** for the t
24f0: 69 6d 65 20 76 61 6c 75 65 20 70 20 77 68 65 72  ime value p wher
2500: 65 20 70 20 69 73 20 69 6e 20 55 54 43 2e 0a 2a  e p is in UTC..*
2510: 2f 0a 73 74 61 74 69 63 20 64 6f 75 62 6c 65 20  /.static double 
2520: 6c 6f 63 61 6c 74 69 6d 65 4f 66 66 73 65 74 28  localtimeOffset(
2530: 44 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20  DateTime *p){.  
2540: 44 61 74 65 54 69 6d 65 20 78 2c 20 79 3b 0a 20  DateTime x, y;. 
2550: 20 74 69 6d 65 5f 74 20 74 3b 0a 20 20 73 74 72   time_t t;.  str
2560: 75 63 74 20 74 6d 20 2a 70 54 6d 3b 0a 20 20 78  uct tm *pTm;.  x
2570: 20 3d 20 2a 70 3b 0a 20 20 63 6f 6d 70 75 74 65   = *p;.  compute
2580: 59 4d 44 5f 48 4d 53 28 26 78 29 3b 0a 20 20 69  YMD_HMS(&x);.  i
2590: 66 28 20 78 2e 59 3c 31 39 37 31 20 7c 7c 20 78  f( x.Y<1971 || x
25a0: 2e 59 3e 3d 32 30 33 38 20 29 7b 0a 20 20 20 20  .Y>=2038 ){.    
25b0: 78 2e 59 20 3d 20 32 30 30 30 3b 0a 20 20 20 20  x.Y = 2000;.    
25c0: 78 2e 4d 20 3d 20 31 3b 0a 20 20 20 20 78 2e 44  x.M = 1;.    x.D
25d0: 20 3d 20 31 3b 0a 20 20 20 20 78 2e 68 20 3d 20   = 1;.    x.h = 
25e0: 30 3b 0a 20 20 20 20 78 2e 6d 20 3d 20 30 3b 0a  0;.    x.m = 0;.
25f0: 20 20 20 20 78 2e 73 20 3d 20 30 2e 30 3b 0a 20      x.s = 0.0;. 
2600: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 69 6e   } else {.    in
2610: 74 20 73 20 3d 20 78 2e 73 20 2b 20 30 2e 35 3b  t s = x.s + 0.5;
2620: 0a 20 20 20 20 78 2e 73 20 3d 20 73 3b 0a 20 20  .    x.s = s;.  
2630: 7d 0a 20 20 78 2e 74 7a 20 3d 20 30 3b 0a 20 20  }.  x.tz = 0;.  
2640: 78 2e 76 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20  x.validJD = 0;. 
2650: 20 63 6f 6d 70 75 74 65 4a 44 28 26 78 29 3b 0a   computeJD(&x);.
2660: 20 20 74 20 3d 20 28 78 2e 72 4a 44 2d 32 34 34    t = (x.rJD-244
2670: 30 35 38 37 2e 35 29 2a 38 36 34 30 30 2e 30 20  0587.5)*86400.0 
2680: 2b 20 30 2e 35 3b 0a 20 20 73 71 6c 69 74 65 33  + 0.5;.  sqlite3
2690: 4f 73 45 6e 74 65 72 4d 75 74 65 78 28 29 3b 0a  OsEnterMutex();.
26a0: 20 20 70 54 6d 20 3d 20 6c 6f 63 61 6c 74 69 6d    pTm = localtim
26b0: 65 28 26 74 29 3b 0a 20 20 79 2e 59 20 3d 20 70  e(&t);.  y.Y = p
26c0: 54 6d 2d 3e 74 6d 5f 79 65 61 72 20 2b 20 31 39  Tm->tm_year + 19
26d0: 30 30 3b 0a 20 20 79 2e 4d 20 3d 20 70 54 6d 2d  00;.  y.M = pTm-
26e0: 3e 74 6d 5f 6d 6f 6e 20 2b 20 31 3b 0a 20 20 79  >tm_mon + 1;.  y
26f0: 2e 44 20 3d 20 70 54 6d 2d 3e 74 6d 5f 6d 64 61  .D = pTm->tm_mda
2700: 79 3b 0a 20 20 79 2e 68 20 3d 20 70 54 6d 2d 3e  y;.  y.h = pTm->
2710: 74 6d 5f 68 6f 75 72 3b 0a 20 20 79 2e 6d 20 3d  tm_hour;.  y.m =
2720: 20 70 54 6d 2d 3e 74 6d 5f 6d 69 6e 3b 0a 20 20   pTm->tm_min;.  
2730: 79 2e 73 20 3d 20 70 54 6d 2d 3e 74 6d 5f 73 65  y.s = pTm->tm_se
2740: 63 3b 0a 20 20 73 71 6c 69 74 65 33 4f 73 4c 65  c;.  sqlite3OsLe
2750: 61 76 65 4d 75 74 65 78 28 29 3b 0a 20 20 79 2e  aveMutex();.  y.
2760: 76 61 6c 69 64 59 4d 44 20 3d 20 31 3b 0a 20 20  validYMD = 1;.  
2770: 79 2e 76 61 6c 69 64 48 4d 53 20 3d 20 31 3b 0a  y.validHMS = 1;.
2780: 20 20 79 2e 76 61 6c 69 64 4a 44 20 3d 20 30 3b    y.validJD = 0;
2790: 0a 20 20 79 2e 76 61 6c 69 64 54 5a 20 3d 20 30  .  y.validTZ = 0
27a0: 3b 0a 20 20 63 6f 6d 70 75 74 65 4a 44 28 26 79  ;.  computeJD(&y
27b0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 79 2e 72 4a  );.  return y.rJ
27c0: 44 20 2d 20 78 2e 72 4a 44 3b 0a 7d 0a 0a 2f 2a  D - x.rJD;.}../*
27d0: 0a 2a 2a 20 50 72 6f 63 65 73 73 20 61 20 6d 6f  .** Process a mo
27e0: 64 69 66 69 65 72 20 74 6f 20 61 20 64 61 74 65  difier to a date
27f0: 2d 74 69 6d 65 20 73 74 61 6d 70 2e 20 20 54 68  -time stamp.  Th
2800: 65 20 6d 6f 64 69 66 69 65 72 73 20 61 72 65 0a  e modifiers are.
2810: 2a 2a 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a  ** as follows:.*
2820: 2a 0a 2a 2a 20 20 20 20 20 4e 4e 4e 20 64 61 79  *.**     NNN day
2830: 73 0a 2a 2a 20 20 20 20 20 4e 4e 4e 20 68 6f 75  s.**     NNN hou
2840: 72 73 0a 2a 2a 20 20 20 20 20 4e 4e 4e 20 6d 69  rs.**     NNN mi
2850: 6e 75 74 65 73 0a 2a 2a 20 20 20 20 20 4e 4e 4e  nutes.**     NNN
2860: 2e 4e 4e 4e 4e 20 73 65 63 6f 6e 64 73 0a 2a 2a  .NNNN seconds.**
2870: 20 20 20 20 20 4e 4e 4e 20 6d 6f 6e 74 68 73 0a       NNN months.
2880: 2a 2a 20 20 20 20 20 4e 4e 4e 20 79 65 61 72 73  **     NNN years
2890: 0a 2a 2a 20 20 20 20 20 73 74 61 72 74 20 6f 66  .**     start of
28a0: 20 6d 6f 6e 74 68 0a 2a 2a 20 20 20 20 20 73 74   month.**     st
28b0: 61 72 74 20 6f 66 20 79 65 61 72 0a 2a 2a 20 20  art of year.**  
28c0: 20 20 20 73 74 61 72 74 20 6f 66 20 77 65 65 6b     start of week
28d0: 0a 2a 2a 20 20 20 20 20 73 74 61 72 74 20 6f 66  .**     start of
28e0: 20 64 61 79 0a 2a 2a 20 20 20 20 20 77 65 65 6b   day.**     week
28f0: 64 61 79 20 4e 0a 2a 2a 20 20 20 20 20 75 6e 69  day N.**     uni
2900: 78 65 70 6f 63 68 0a 2a 2a 20 20 20 20 20 6c 6f  xepoch.**     lo
2910: 63 61 6c 74 69 6d 65 0a 2a 2a 20 20 20 20 20 75  caltime.**     u
2920: 74 63 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  tc.**.** Return 
2930: 30 20 6f 6e 20 73 75 63 63 65 73 73 20 61 6e 64  0 on success and
2940: 20 31 20 69 66 20 74 68 65 72 65 20 69 73 20 61   1 if there is a
2950: 6e 79 20 6b 69 6e 64 20 6f 66 20 65 72 72 6f 72  ny kind of error
2960: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
2970: 70 61 72 73 65 4d 6f 64 69 66 69 65 72 28 63 6f  parseModifier(co
2980: 6e 73 74 20 63 68 61 72 20 2a 7a 4d 6f 64 2c 20  nst char *zMod, 
2990: 44 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20  DateTime *p){.  
29a0: 69 6e 74 20 72 63 20 3d 20 31 3b 0a 20 20 69 6e  int rc = 1;.  in
29b0: 74 20 6e 3b 0a 20 20 64 6f 75 62 6c 65 20 72 3b  t n;.  double r;
29c0: 0a 20 20 63 68 61 72 20 2a 7a 2c 20 7a 42 75 66  .  char *z, zBuf
29d0: 5b 33 30 5d 3b 0a 20 20 7a 20 3d 20 7a 42 75 66  [30];.  z = zBuf
29e0: 3b 0a 20 20 66 6f 72 28 6e 3d 30 3b 20 6e 3c 73  ;.  for(n=0; n<s
29f0: 69 7a 65 6f 66 28 7a 42 75 66 29 2d 31 20 26 26  izeof(zBuf)-1 &&
2a00: 20 7a 4d 6f 64 5b 6e 5d 3b 20 6e 2b 2b 29 7b 0a   zMod[n]; n++){.
2a10: 20 20 20 20 7a 5b 6e 5d 20 3d 20 74 6f 6c 6f 77      z[n] = tolow
2a20: 65 72 28 7a 4d 6f 64 5b 6e 5d 29 3b 0a 20 20 7d  er(zMod[n]);.  }
2a30: 0a 20 20 7a 5b 6e 5d 20 3d 20 30 3b 0a 20 20 73  .  z[n] = 0;.  s
2a40: 77 69 74 63 68 28 20 7a 5b 30 5d 20 29 7b 0a 20  witch( z[0] ){. 
2a50: 20 20 20 63 61 73 65 20 27 6c 27 3a 20 7b 0a 20     case 'l': {. 
2a60: 20 20 20 20 20 2f 2a 20 20 20 20 6c 6f 63 61 6c       /*    local
2a70: 74 69 6d 65 0a 20 20 20 20 20 20 2a 2a 0a 20 20  time.      **.  
2a80: 20 20 20 20 2a 2a 20 41 73 73 75 6d 69 6e 67 20      ** Assuming 
2a90: 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65  the current time
2aa0: 20 76 61 6c 75 65 20 69 73 20 55 54 43 20 28 61   value is UTC (a
2ab0: 2e 6b 2e 61 2e 20 47 4d 54 29 2c 20 73 68 69 66  .k.a. GMT), shif
2ac0: 74 20 69 74 20 74 6f 0a 20 20 20 20 20 20 2a 2a  t it to.      **
2ad0: 20 73 68 6f 77 20 6c 6f 63 61 6c 20 74 69 6d 65   show local time
2ae0: 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20  ..      */.     
2af0: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 2c 20 22   if( strcmp(z, "
2b00: 6c 6f 63 61 6c 74 69 6d 65 22 29 3d 3d 30 20 29  localtime")==0 )
2b10: 7b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74  {.        comput
2b20: 65 4a 44 28 70 29 3b 0a 20 20 20 20 20 20 20 20  eJD(p);.        
2b30: 70 2d 3e 72 4a 44 20 2b 3d 20 6c 6f 63 61 6c 74  p->rJD += localt
2b40: 69 6d 65 4f 66 66 73 65 74 28 70 29 3b 0a 20 20  imeOffset(p);.  
2b50: 20 20 20 20 20 20 63 6c 65 61 72 59 4d 44 5f 48        clearYMD_H
2b60: 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 20 20 20 20  MS_TZ(p);.      
2b70: 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20    rc = 0;.      
2b80: 7d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  }.      break;. 
2b90: 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 27 75     }.    case 'u
2ba0: 27 3a 20 7b 0a 20 20 20 20 20 20 2f 2a 0a 20 20  ': {.      /*.  
2bb0: 20 20 20 20 2a 2a 20 20 20 20 75 6e 69 78 65 70      **    unixep
2bc0: 6f 63 68 0a 20 20 20 20 20 20 2a 2a 0a 20 20 20  och.      **.   
2bd0: 20 20 20 2a 2a 20 54 72 65 61 74 20 74 68 65 20     ** Treat the 
2be0: 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f 66  current value of
2bf0: 20 70 2d 3e 72 4a 44 20 61 73 20 74 68 65 20 6e   p->rJD as the n
2c00: 75 6d 62 65 72 20 6f 66 0a 20 20 20 20 20 20 2a  umber of.      *
2c10: 2a 20 73 65 63 6f 6e 64 73 20 73 69 6e 63 65 20  * seconds since 
2c20: 31 39 37 30 2e 20 20 43 6f 6e 76 65 72 74 20 74  1970.  Convert t
2c30: 6f 20 61 20 72 65 61 6c 20 6a 75 6c 69 61 6e 20  o a real julian 
2c40: 64 61 79 20 6e 75 6d 62 65 72 2e 0a 20 20 20 20  day number..    
2c50: 20 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 73    */.      if( s
2c60: 74 72 63 6d 70 28 7a 2c 20 22 75 6e 69 78 65 70  trcmp(z, "unixep
2c70: 6f 63 68 22 29 3d 3d 30 20 26 26 20 70 2d 3e 76  och")==0 && p->v
2c80: 61 6c 69 64 4a 44 20 29 7b 0a 20 20 20 20 20 20  alidJD ){.      
2c90: 20 20 70 2d 3e 72 4a 44 20 3d 20 70 2d 3e 72 4a    p->rJD = p->rJ
2ca0: 44 2f 38 36 34 30 30 2e 30 20 2b 20 32 34 34 30  D/86400.0 + 2440
2cb0: 35 38 37 2e 35 3b 0a 20 20 20 20 20 20 20 20 63  587.5;.        c
2cc0: 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a 28 70  learYMD_HMS_TZ(p
2cd0: 29 3b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20  );.        rc = 
2ce0: 30 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69  0;.      }else i
2cf0: 66 28 20 73 74 72 63 6d 70 28 7a 2c 20 22 75 74  f( strcmp(z, "ut
2d00: 63 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  c")==0 ){.      
2d10: 20 20 64 6f 75 62 6c 65 20 63 31 3b 0a 20 20 20    double c1;.   
2d20: 20 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 70       computeJD(p
2d30: 29 3b 0a 20 20 20 20 20 20 20 20 63 31 20 3d 20  );.        c1 = 
2d40: 6c 6f 63 61 6c 74 69 6d 65 4f 66 66 73 65 74 28  localtimeOffset(
2d50: 70 29 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 72  p);.        p->r
2d60: 4a 44 20 2d 3d 20 63 31 3b 0a 20 20 20 20 20 20  JD -= c1;.      
2d70: 20 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54    clearYMD_HMS_T
2d80: 5a 28 70 29 3b 0a 20 20 20 20 20 20 20 20 70 2d  Z(p);.        p-
2d90: 3e 72 4a 44 20 2b 3d 20 63 31 20 2d 20 6c 6f 63  >rJD += c1 - loc
2da0: 61 6c 74 69 6d 65 4f 66 66 73 65 74 28 70 29 3b  altimeOffset(p);
2db0: 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 30 3b  .        rc = 0;
2dc0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62  .      }.      b
2dd0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20  reak;.    }.    
2de0: 63 61 73 65 20 27 77 27 3a 20 7b 0a 20 20 20 20  case 'w': {.    
2df0: 20 20 2f 2a 0a 20 20 20 20 20 20 2a 2a 20 20 20    /*.      **   
2e00: 20 77 65 65 6b 64 61 79 20 4e 0a 20 20 20 20 20   weekday N.     
2e10: 20 2a 2a 0a 20 20 20 20 20 20 2a 2a 20 4d 6f 76   **.      ** Mov
2e20: 65 20 74 68 65 20 64 61 74 65 20 74 6f 20 74 68  e the date to th
2e30: 65 20 73 61 6d 65 20 74 69 6d 65 20 6f 6e 20 74  e same time on t
2e40: 68 65 20 6e 65 78 74 20 6f 63 63 75 72 72 65 6e  he next occurren
2e50: 63 65 20 6f 66 0a 20 20 20 20 20 20 2a 2a 20 77  ce of.      ** w
2e60: 65 65 6b 64 61 79 20 4e 20 77 68 65 72 65 20 30  eekday N where 0
2e70: 3d 3d 53 75 6e 64 61 79 2c 20 31 3d 3d 4d 6f 6e  ==Sunday, 1==Mon
2e80: 64 61 79 2c 20 61 6e 64 20 73 6f 20 66 6f 72 74  day, and so fort
2e90: 68 2e 20 20 49 66 20 74 68 65 0a 20 20 20 20 20  h.  If the.     
2ea0: 20 2a 2a 20 64 61 74 65 20 69 73 20 61 6c 72 65   ** date is alre
2eb0: 61 64 79 20 6f 6e 20 74 68 65 20 61 70 70 72 6f  ady on the appro
2ec0: 70 72 69 61 74 65 20 77 65 65 6b 64 61 79 2c 20  priate weekday, 
2ed0: 74 68 69 73 20 69 73 20 61 20 6e 6f 2d 6f 70 2e  this is a no-op.
2ee0: 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20  .      */.      
2ef0: 69 66 28 20 73 74 72 6e 63 6d 70 28 7a 2c 20 22  if( strncmp(z, "
2f00: 77 65 65 6b 64 61 79 20 22 2c 20 38 29 3d 3d 30  weekday ", 8)==0
2f10: 20 26 26 20 67 65 74 56 61 6c 75 65 28 26 7a 5b   && getValue(&z[
2f20: 38 5d 2c 26 72 29 3e 30 0a 20 20 20 20 20 20 20  8],&r)>0.       
2f30: 20 20 20 20 20 20 20 20 20 20 26 26 20 28 6e 3d            && (n=
2f40: 72 29 3d 3d 72 20 26 26 20 6e 3e 3d 30 20 26 26  r)==r && n>=0 &&
2f50: 20 72 3c 37 20 29 7b 0a 20 20 20 20 20 20 20 20   r<7 ){.        
2f60: 69 6e 74 20 5a 3b 0a 20 20 20 20 20 20 20 20 63  int Z;.        c
2f70: 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28 70 29  omputeYMD_HMS(p)
2f80: 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 76 61 6c  ;.        p->val
2f90: 69 64 54 5a 20 3d 20 30 3b 0a 20 20 20 20 20 20  idTZ = 0;.      
2fa0: 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 30    p->validJD = 0
2fb0: 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74  ;.        comput
2fc0: 65 4a 44 28 70 29 3b 0a 20 20 20 20 20 20 20 20  eJD(p);.        
2fd0: 5a 20 3d 20 70 2d 3e 72 4a 44 20 2b 20 31 2e 35  Z = p->rJD + 1.5
2fe0: 3b 0a 20 20 20 20 20 20 20 20 5a 20 25 3d 20 37  ;.        Z %= 7
2ff0: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 5a 3e  ;.        if( Z>
3000: 6e 20 29 20 5a 20 2d 3d 20 37 3b 0a 20 20 20 20  n ) Z -= 7;.    
3010: 20 20 20 20 70 2d 3e 72 4a 44 20 2b 3d 20 6e 20      p->rJD += n 
3020: 2d 20 5a 3b 0a 20 20 20 20 20 20 20 20 63 6c 65  - Z;.        cle
3030: 61 72 59 4d 44 5f 48 4d 53 5f 54 5a 28 70 29 3b  arYMD_HMS_TZ(p);
3040: 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 30 3b  .        rc = 0;
3050: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62  .      }.      b
3060: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20  reak;.    }.    
3070: 63 61 73 65 20 27 73 27 3a 20 7b 0a 20 20 20 20  case 's': {.    
3080: 20 20 2f 2a 0a 20 20 20 20 20 20 2a 2a 20 20 20    /*.      **   
3090: 20 73 74 61 72 74 20 6f 66 20 54 54 54 54 54 0a   start of TTTTT.
30a0: 20 20 20 20 20 20 2a 2a 0a 20 20 20 20 20 20 2a        **.      *
30b0: 2a 20 4d 6f 76 65 20 74 68 65 20 64 61 74 65 20  * Move the date 
30c0: 62 61 63 6b 77 61 72 64 73 20 74 6f 20 74 68 65  backwards to the
30d0: 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68   beginning of th
30e0: 65 20 63 75 72 72 65 6e 74 20 64 61 79 2c 0a 20  e current day,. 
30f0: 20 20 20 20 20 2a 2a 20 6f 72 20 6d 6f 6e 74 68       ** or month
3100: 20 6f 72 20 79 65 61 72 2e 0a 20 20 20 20 20 20   or year..      
3110: 2a 2f 0a 20 20 20 20 20 20 69 66 28 20 73 74 72  */.      if( str
3120: 6e 63 6d 70 28 7a 2c 20 22 73 74 61 72 74 20 6f  ncmp(z, "start o
3130: 66 20 22 2c 20 39 29 21 3d 30 20 29 20 62 72 65  f ", 9)!=0 ) bre
3140: 61 6b 3b 0a 20 20 20 20 20 20 7a 20 2b 3d 20 39  ak;.      z += 9
3150: 3b 0a 20 20 20 20 20 20 63 6f 6d 70 75 74 65 59  ;.      computeY
3160: 4d 44 28 70 29 3b 0a 20 20 20 20 20 20 70 2d 3e  MD(p);.      p->
3170: 76 61 6c 69 64 48 4d 53 20 3d 20 31 3b 0a 20 20  validHMS = 1;.  
3180: 20 20 20 20 70 2d 3e 68 20 3d 20 70 2d 3e 6d 20      p->h = p->m 
3190: 3d 20 30 3b 0a 20 20 20 20 20 20 70 2d 3e 73 20  = 0;.      p->s 
31a0: 3d 20 30 2e 30 3b 0a 20 20 20 20 20 20 70 2d 3e  = 0.0;.      p->
31b0: 76 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 20 20 20  validTZ = 0;.   
31c0: 20 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20     p->validJD = 
31d0: 30 3b 0a 20 20 20 20 20 20 69 66 28 20 73 74 72  0;.      if( str
31e0: 63 6d 70 28 7a 2c 22 6d 6f 6e 74 68 22 29 3d 3d  cmp(z,"month")==
31f0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e  0 ){.        p->
3200: 44 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 72  D = 1;.        r
3210: 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d 65 6c  c = 0;.      }el
3220: 73 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 2c  se if( strcmp(z,
3230: 22 79 65 61 72 22 29 3d 3d 30 20 29 7b 0a 20 20  "year")==0 ){.  
3240: 20 20 20 20 20 20 63 6f 6d 70 75 74 65 59 4d 44        computeYMD
3250: 28 70 29 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e  (p);.        p->
3260: 4d 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 70  M = 1;.        p
3270: 2d 3e 44 20 3d 20 31 3b 0a 20 20 20 20 20 20 20  ->D = 1;.       
3280: 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d   rc = 0;.      }
3290: 65 6c 73 65 20 69 66 28 20 73 74 72 63 6d 70 28  else if( strcmp(
32a0: 7a 2c 22 64 61 79 22 29 3d 3d 30 20 29 7b 0a 20  z,"day")==0 ){. 
32b0: 20 20 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20         rc = 0;. 
32c0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 62 72 65       }.      bre
32d0: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61  ak;.    }.    ca
32e0: 73 65 20 27 2b 27 3a 0a 20 20 20 20 63 61 73 65  se '+':.    case
32f0: 20 27 2d 27 3a 0a 20 20 20 20 63 61 73 65 20 27   '-':.    case '
3300: 30 27 3a 0a 20 20 20 20 63 61 73 65 20 27 31 27  0':.    case '1'
3310: 3a 0a 20 20 20 20 63 61 73 65 20 27 32 27 3a 0a  :.    case '2':.
3320: 20 20 20 20 63 61 73 65 20 27 33 27 3a 0a 20 20      case '3':.  
3330: 20 20 63 61 73 65 20 27 34 27 3a 0a 20 20 20 20    case '4':.    
3340: 63 61 73 65 20 27 35 27 3a 0a 20 20 20 20 63 61  case '5':.    ca
3350: 73 65 20 27 36 27 3a 0a 20 20 20 20 63 61 73 65  se '6':.    case
3360: 20 27 37 27 3a 0a 20 20 20 20 63 61 73 65 20 27   '7':.    case '
3370: 38 27 3a 0a 20 20 20 20 63 61 73 65 20 27 39 27  8':.    case '9'
3380: 3a 20 7b 0a 20 20 20 20 20 20 6e 20 3d 20 67 65  : {.      n = ge
3390: 74 56 61 6c 75 65 28 7a 2c 20 26 72 29 3b 0a 20  tValue(z, &r);. 
33a0: 20 20 20 20 20 69 66 28 20 6e 3c 3d 30 20 29 20       if( n<=0 ) 
33b0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 69 66 28  break;.      if(
33c0: 20 7a 5b 6e 5d 3d 3d 27 3a 27 20 29 7b 0a 20 20   z[n]==':' ){.  
33d0: 20 20 20 20 20 20 2f 2a 20 41 20 6d 6f 64 69 66        /* A modif
33e0: 69 65 72 20 6f 66 20 74 68 65 20 66 6f 72 6d 20  ier of the form 
33f0: 28 2b 7c 2d 29 48 48 3a 4d 4d 3a 53 53 2e 46 46  (+|-)HH:MM:SS.FF
3400: 46 20 61 64 64 73 20 28 6f 72 20 73 75 62 74 72  F adds (or subtr
3410: 61 63 74 73 29 20 74 68 65 0a 20 20 20 20 20 20  acts) the.      
3420: 20 20 2a 2a 20 73 70 65 63 69 66 69 65 64 20 6e    ** specified n
3430: 75 6d 62 65 72 20 6f 66 20 68 6f 75 72 73 2c 20  umber of hours, 
3440: 6d 69 6e 75 74 65 73 2c 20 73 65 63 6f 6e 64 73  minutes, seconds
3450: 2c 20 61 6e 64 20 66 72 61 63 74 69 6f 6e 61 6c  , and fractional
3460: 20 73 65 63 6f 6e 64 73 0a 20 20 20 20 20 20 20   seconds.       
3470: 20 2a 2a 20 74 6f 20 74 68 65 20 74 69 6d 65 2e   ** to the time.
3480: 20 20 54 68 65 20 22 2e 46 46 46 22 20 6d 61 79    The ".FFF" may
3490: 20 62 65 20 6f 6d 69 74 74 65 64 2e 20 20 54 68   be omitted.  Th
34a0: 65 20 22 3a 53 53 2e 46 46 46 22 20 6d 61 79 20  e ":SS.FFF" may 
34b0: 62 65 0a 20 20 20 20 20 20 20 20 2a 2a 20 6f 6d  be.        ** om
34c0: 69 74 74 65 64 2e 0a 20 20 20 20 20 20 20 20 2a  itted..        *
34d0: 2f 0a 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20  /.        const 
34e0: 63 68 61 72 20 2a 7a 32 20 3d 20 7a 3b 0a 20 20  char *z2 = z;.  
34f0: 20 20 20 20 20 20 44 61 74 65 54 69 6d 65 20 74        DateTime t
3500: 78 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 64  x;.        int d
3510: 61 79 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  ay;.        if( 
3520: 21 69 73 64 69 67 69 74 28 2a 28 75 38 2a 29 7a  !isdigit(*(u8*)z
3530: 32 29 20 29 20 7a 32 2b 2b 3b 0a 20 20 20 20 20  2) ) z2++;.     
3540: 20 20 20 6d 65 6d 73 65 74 28 26 74 78 2c 20 30     memset(&tx, 0
3550: 2c 20 73 69 7a 65 6f 66 28 74 78 29 29 3b 0a 20  , sizeof(tx));. 
3560: 20 20 20 20 20 20 20 69 66 28 20 70 61 72 73 65         if( parse
3570: 48 68 4d 6d 53 73 28 7a 32 2c 20 26 74 78 29 20  HhMmSs(z2, &tx) 
3580: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20  ) break;.       
3590: 20 63 6f 6d 70 75 74 65 4a 44 28 26 74 78 29 3b   computeJD(&tx);
35a0: 0a 20 20 20 20 20 20 20 20 74 78 2e 72 4a 44 20  .        tx.rJD 
35b0: 2d 3d 20 30 2e 35 3b 0a 20 20 20 20 20 20 20 20  -= 0.5;.        
35c0: 64 61 79 20 3d 20 28 69 6e 74 29 74 78 2e 72 4a  day = (int)tx.rJ
35d0: 44 3b 0a 20 20 20 20 20 20 20 20 74 78 2e 72 4a  D;.        tx.rJ
35e0: 44 20 2d 3d 20 64 61 79 3b 0a 20 20 20 20 20 20  D -= day;.      
35f0: 20 20 69 66 28 20 7a 5b 30 5d 3d 3d 27 2d 27 20    if( z[0]=='-' 
3600: 29 20 74 78 2e 72 4a 44 20 3d 20 2d 74 78 2e 72  ) tx.rJD = -tx.r
3610: 4a 44 3b 0a 20 20 20 20 20 20 20 20 63 6f 6d 70  JD;.        comp
3620: 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20 20 20  uteJD(p);.      
3630: 20 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54    clearYMD_HMS_T
3640: 5a 28 70 29 3b 0a 20 20 20 20 20 20 20 70 2d 3e  Z(p);.       p->
3650: 72 4a 44 20 2b 3d 20 74 78 2e 72 4a 44 3b 0a 20  rJD += tx.rJD;. 
3660: 20 20 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20         rc = 0;. 
3670: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
3680: 20 20 20 20 7d 0a 20 20 20 20 20 20 7a 20 2b 3d      }.      z +=
3690: 20 6e 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 28   n;.      while(
36a0: 20 69 73 73 70 61 63 65 28 2a 28 75 38 2a 29 7a   isspace(*(u8*)z
36b0: 29 20 29 20 7a 2b 2b 3b 0a 20 20 20 20 20 20 6e  ) ) z++;.      n
36c0: 20 3d 20 73 74 72 6c 65 6e 28 7a 29 3b 0a 20 20   = strlen(z);.  
36d0: 20 20 20 20 69 66 28 20 6e 3e 31 30 20 7c 7c 20      if( n>10 || 
36e0: 6e 3c 33 20 29 20 62 72 65 61 6b 3b 0a 20 20 20  n<3 ) break;.   
36f0: 20 20 20 69 66 28 20 7a 5b 6e 2d 31 5d 3d 3d 27     if( z[n-1]=='
3700: 73 27 20 29 7b 20 7a 5b 6e 2d 31 5d 20 3d 20 30  s' ){ z[n-1] = 0
3710: 3b 20 6e 2d 2d 3b 20 7d 0a 20 20 20 20 20 20 63  ; n--; }.      c
3720: 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20  omputeJD(p);.   
3730: 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20     rc = 0;.     
3740: 20 69 66 28 20 6e 3d 3d 33 20 26 26 20 73 74 72   if( n==3 && str
3750: 63 6d 70 28 7a 2c 22 64 61 79 22 29 3d 3d 30 20  cmp(z,"day")==0 
3760: 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 72 4a  ){.        p->rJ
3770: 44 20 2b 3d 20 72 3b 0a 20 20 20 20 20 20 7d 65  D += r;.      }e
3780: 6c 73 65 20 69 66 28 20 6e 3d 3d 34 20 26 26 20  lse if( n==4 && 
3790: 73 74 72 63 6d 70 28 7a 2c 22 68 6f 75 72 22 29  strcmp(z,"hour")
37a0: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70  ==0 ){.        p
37b0: 2d 3e 72 4a 44 20 2b 3d 20 72 2f 32 34 2e 30 3b  ->rJD += r/24.0;
37c0: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28  .      }else if(
37d0: 20 6e 3d 3d 36 20 26 26 20 73 74 72 63 6d 70 28   n==6 && strcmp(
37e0: 7a 2c 22 6d 69 6e 75 74 65 22 29 3d 3d 30 20 29  z,"minute")==0 )
37f0: 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 72 4a 44  {.        p->rJD
3800: 20 2b 3d 20 72 2f 28 32 34 2e 30 2a 36 30 2e 30   += r/(24.0*60.0
3810: 29 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69  );.      }else i
3820: 66 28 20 6e 3d 3d 36 20 26 26 20 73 74 72 63 6d  f( n==6 && strcm
3830: 70 28 7a 2c 22 73 65 63 6f 6e 64 22 29 3d 3d 30  p(z,"second")==0
3840: 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e 72   ){.        p->r
3850: 4a 44 20 2b 3d 20 72 2f 28 32 34 2e 30 2a 36 30  JD += r/(24.0*60
3860: 2e 30 2a 36 30 2e 30 29 3b 0a 20 20 20 20 20 20  .0*60.0);.      
3870: 7d 65 6c 73 65 20 69 66 28 20 6e 3d 3d 35 20 26  }else if( n==5 &
3880: 26 20 73 74 72 63 6d 70 28 7a 2c 22 6d 6f 6e 74  & strcmp(z,"mont
3890: 68 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  h")==0 ){.      
38a0: 20 20 69 6e 74 20 78 2c 20 79 3b 0a 20 20 20 20    int x, y;.    
38b0: 20 20 20 20 63 6f 6d 70 75 74 65 59 4d 44 5f 48      computeYMD_H
38c0: 4d 53 28 70 29 3b 0a 20 20 20 20 20 20 20 20 70  MS(p);.        p
38d0: 2d 3e 4d 20 2b 3d 20 72 3b 0a 20 20 20 20 20 20  ->M += r;.      
38e0: 20 20 78 20 3d 20 70 2d 3e 4d 3e 30 20 3f 20 28    x = p->M>0 ? (
38f0: 70 2d 3e 4d 2d 31 29 2f 31 32 20 3a 20 28 70 2d  p->M-1)/12 : (p-
3900: 3e 4d 2d 31 32 29 2f 31 32 3b 0a 20 20 20 20 20  >M-12)/12;.     
3910: 20 20 20 70 2d 3e 59 20 2b 3d 20 78 3b 0a 20 20     p->Y += x;.  
3920: 20 20 20 20 20 20 70 2d 3e 4d 20 2d 3d 20 78 2a        p->M -= x*
3930: 31 32 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 76  12;.        p->v
3940: 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20  alidJD = 0;.    
3950: 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29      computeJD(p)
3960: 3b 0a 20 20 20 20 20 20 20 20 79 20 3d 20 72 3b  ;.        y = r;
3970: 0a 20 20 20 20 20 20 20 20 69 66 28 20 79 21 3d  .        if( y!=
3980: 72 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70  r ){.          p
3990: 2d 3e 72 4a 44 20 2b 3d 20 28 72 20 2d 20 79 29  ->rJD += (r - y)
39a0: 2a 33 30 2e 30 3b 0a 20 20 20 20 20 20 20 20 7d  *30.0;.        }
39b0: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28  .      }else if(
39c0: 20 6e 3d 3d 34 20 26 26 20 73 74 72 63 6d 70 28   n==4 && strcmp(
39d0: 7a 2c 22 79 65 61 72 22 29 3d 3d 30 20 29 7b 0a  z,"year")==0 ){.
39e0: 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74 65 59          computeY
39f0: 4d 44 5f 48 4d 53 28 70 29 3b 0a 20 20 20 20 20  MD_HMS(p);.     
3a00: 20 20 20 70 2d 3e 59 20 2b 3d 20 72 3b 0a 20 20     p->Y += r;.  
3a10: 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 64 4a 44        p->validJD
3a20: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 63 6f   = 0;.        co
3a30: 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20  mputeJD(p);.    
3a40: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
3a50: 20 72 63 20 3d 20 31 3b 0a 20 20 20 20 20 20 7d   rc = 1;.      }
3a60: 0a 20 20 20 20 20 20 63 6c 65 61 72 59 4d 44 5f  .      clearYMD_
3a70: 48 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 20 20 20  HMS_TZ(p);.     
3a80: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20   break;.    }.  
3a90: 20 20 64 65 66 61 75 6c 74 3a 20 7b 0a 20 20 20    default: {.   
3aa0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
3ab0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b    }.  return rc;
3ac0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 72 6f 63 65 73  .}../*.** Proces
3ad0: 73 20 74 69 6d 65 20 66 75 6e 63 74 69 6f 6e 20  s time function 
3ae0: 61 72 67 75 6d 65 6e 74 73 2e 20 20 61 72 67 76  arguments.  argv
3af0: 5b 30 5d 20 69 73 20 61 20 64 61 74 65 2d 74 69  [0] is a date-ti
3b00: 6d 65 20 73 74 61 6d 70 2e 0a 2a 2a 20 61 72 67  me stamp..** arg
3b10: 76 5b 31 5d 20 61 6e 64 20 66 6f 6c 6c 6f 77 69  v[1] and followi
3b20: 6e 67 20 61 72 65 20 6d 6f 64 69 66 69 65 72 73  ng are modifiers
3b30: 2e 20 20 50 61 72 73 65 20 74 68 65 6d 20 61 6c  .  Parse them al
3b40: 6c 20 61 6e 64 20 77 72 69 74 65 0a 2a 2a 20 74  l and write.** t
3b50: 68 65 20 72 65 73 75 6c 74 69 6e 67 20 74 69 6d  he resulting tim
3b60: 65 20 69 6e 74 6f 20 74 68 65 20 44 61 74 65 54  e into the DateT
3b70: 69 6d 65 20 73 74 72 75 63 74 75 72 65 20 70 2e  ime structure p.
3b80: 20 20 52 65 74 75 72 6e 20 30 0a 2a 2a 20 6f 6e    Return 0.** on
3b90: 20 73 75 63 63 65 73 73 20 61 6e 64 20 31 20 69   success and 1 i
3ba0: 66 20 74 68 65 72 65 20 61 72 65 20 61 6e 79 20  f there are any 
3bb0: 65 72 72 6f 72 73 2e 0a 2a 2f 0a 73 74 61 74 69  errors..*/.stati
3bc0: 63 20 69 6e 74 20 69 73 44 61 74 65 28 69 6e 74  c int isDate(int
3bd0: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76   argc, sqlite3_v
3be0: 61 6c 75 65 20 2a 2a 61 72 67 76 2c 20 44 61 74  alue **argv, Dat
3bf0: 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e 74  eTime *p){.  int
3c00: 20 69 3b 0a 20 20 69 66 28 20 61 72 67 63 3d 3d   i;.  if( argc==
3c10: 30 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 20  0 ) return 1;.  
3c20: 69 66 28 20 53 51 4c 49 54 45 5f 4e 55 4c 4c 3d  if( SQLITE_NULL=
3c30: 3d 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74  =sqlite3_value_t
3c40: 79 70 65 28 61 72 67 76 5b 30 5d 29 20 7c 7c 20  ype(argv[0]) || 
3c50: 0a 20 20 20 20 20 20 70 61 72 73 65 44 61 74 65  .      parseDate
3c60: 4f 72 54 69 6d 65 28 28 63 68 61 72 2a 29 73 71  OrTime((char*)sq
3c70: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
3c80: 28 61 72 67 76 5b 30 5d 29 2c 20 70 29 20 29 20  (argv[0]), p) ) 
3c90: 72 65 74 75 72 6e 20 31 3b 0a 20 20 66 6f 72 28  return 1;.  for(
3ca0: 69 3d 31 3b 20 69 3c 61 72 67 63 3b 20 69 2b 2b  i=1; i<argc; i++
3cb0: 29 7b 0a 20 20 20 20 69 66 28 20 53 51 4c 49 54  ){.    if( SQLIT
3cc0: 45 5f 4e 55 4c 4c 3d 3d 73 71 6c 69 74 65 33 5f  E_NULL==sqlite3_
3cd0: 76 61 6c 75 65 5f 74 79 70 65 28 61 72 67 76 5b  value_type(argv[
3ce0: 69 5d 29 20 7c 7c 20 0a 20 20 20 20 20 20 20 20  i]) || .        
3cf0: 70 61 72 73 65 4d 6f 64 69 66 69 65 72 28 28 63  parseModifier((c
3d00: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c  har*)sqlite3_val
3d10: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69 5d 29  ue_text(argv[i])
3d20: 2c 20 70 29 20 29 20 72 65 74 75 72 6e 20 31 3b  , p) ) return 1;
3d30: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b  .  }.  return 0;
3d40: 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66  .}.../*.** The f
3d50: 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74 69 6e 65  ollowing routine
3d60: 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20  s implement the 
3d70: 76 61 72 69 6f 75 73 20 64 61 74 65 20 61 6e 64  various date and
3d80: 20 74 69 6d 65 20 66 75 6e 63 74 69 6f 6e 73 0a   time functions.
3d90: 2a 2a 20 6f 66 20 53 51 4c 69 74 65 2e 0a 2a 2f  ** of SQLite..*/
3da0: 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 6a 75 6c 69 61  ../*.**    julia
3db0: 6e 64 61 79 28 20 54 49 4d 45 53 54 52 49 4e 47  nday( TIMESTRING
3dc0: 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29  , MOD, MOD, ...)
3dd0: 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68  .**.** Return th
3de0: 65 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d  e julian day num
3df0: 62 65 72 20 6f 66 20 74 68 65 20 64 61 74 65 20  ber of the date 
3e00: 73 70 65 63 69 66 69 65 64 20 69 6e 20 74 68 65  specified in the
3e10: 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2f 0a 73 74   arguments.*/.st
3e20: 61 74 69 63 20 76 6f 69 64 20 6a 75 6c 69 61 6e  atic void julian
3e30: 64 61 79 46 75 6e 63 28 0a 20 20 73 71 6c 69 74  dayFunc(.  sqlit
3e40: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74  e3_context *cont
3e50: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c  ext,.  int argc,
3e60: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
3e70: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 44 61 74   **argv.){.  Dat
3e80: 65 54 69 6d 65 20 78 3b 0a 20 20 69 66 28 20 69  eTime x;.  if( i
3e90: 73 44 61 74 65 28 61 72 67 63 2c 20 61 72 67 76  sDate(argc, argv
3ea0: 2c 20 26 78 29 3d 3d 30 20 29 7b 0a 20 20 20 20  , &x)==0 ){.    
3eb0: 63 6f 6d 70 75 74 65 4a 44 28 26 78 29 3b 0a 20  computeJD(&x);. 
3ec0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
3ed0: 74 5f 64 6f 75 62 6c 65 28 63 6f 6e 74 65 78 74  t_double(context
3ee0: 2c 20 78 2e 72 4a 44 29 3b 0a 20 20 7d 0a 7d 0a  , x.rJD);.  }.}.
3ef0: 0a 2f 2a 0a 2a 2a 20 20 20 20 64 61 74 65 74 69  ./*.**    dateti
3f00: 6d 65 28 20 54 49 4d 45 53 54 52 49 4e 47 2c 20  me( TIMESTRING, 
3f10: 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a  MOD, MOD, ...).*
3f20: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 59 59 59 59  *.** Return YYYY
3f30: 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d 3a 53 53 0a  -MM-DD HH:MM:SS.
3f40: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 64  */.static void d
3f50: 61 74 65 74 69 6d 65 46 75 6e 63 28 0a 20 20 73  atetimeFunc(.  s
3f60: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
3f70: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
3f80: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
3f90: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
3fa0: 20 44 61 74 65 54 69 6d 65 20 78 3b 0a 20 20 69   DateTime x;.  i
3fb0: 66 28 20 69 73 44 61 74 65 28 61 72 67 63 2c 20  f( isDate(argc, 
3fc0: 61 72 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a  argv, &x)==0 ){.
3fd0: 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30      char zBuf[10
3fe0: 30 5d 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 59  0];.    computeY
3ff0: 4d 44 5f 48 4d 53 28 26 78 29 3b 0a 20 20 20 20  MD_HMS(&x);.    
4000: 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25  sprintf(zBuf, "%
4010: 30 34 64 2d 25 30 32 64 2d 25 30 32 64 20 25 30  04d-%02d-%02d %0
4020: 32 64 3a 25 30 32 64 3a 25 30 32 64 22 2c 78 2e  2d:%02d:%02d",x.
4030: 59 2c 20 78 2e 4d 2c 20 78 2e 44 2c 20 78 2e 68  Y, x.M, x.D, x.h
4040: 2c 20 78 2e 6d 2c 0a 20 20 20 20 20 20 20 20 20  , x.m,.         
4050: 20 20 28 69 6e 74 29 28 78 2e 73 29 29 3b 0a 20    (int)(x.s));. 
4060: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
4070: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  t_text(context, 
4080: 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 45  zBuf, -1, SQLITE
4090: 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 7d  _TRANSIENT);.  }
40a0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 74 69 6d  .}../*.**    tim
40b0: 65 28 20 54 49 4d 45 53 54 52 49 4e 47 2c 20 4d  e( TIMESTRING, M
40c0: 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a 2a  OD, MOD, ...).**
40d0: 0a 2a 2a 20 52 65 74 75 72 6e 20 48 48 3a 4d 4d  .** Return HH:MM
40e0: 3a 53 53 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  :SS.*/.static vo
40f0: 69 64 20 74 69 6d 65 46 75 6e 63 28 0a 20 20 73  id timeFunc(.  s
4100: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
4110: 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61  context,.  int a
4120: 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgc,.  sqlite3_v
4130: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
4140: 20 44 61 74 65 54 69 6d 65 20 78 3b 0a 20 20 69   DateTime x;.  i
4150: 66 28 20 69 73 44 61 74 65 28 61 72 67 63 2c 20  f( isDate(argc, 
4160: 61 72 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a  argv, &x)==0 ){.
4170: 20 20 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30      char zBuf[10
4180: 30 5d 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 48  0];.    computeH
4190: 4d 53 28 26 78 29 3b 0a 20 20 20 20 73 70 72 69  MS(&x);.    spri
41a0: 6e 74 66 28 7a 42 75 66 2c 20 22 25 30 32 64 3a  ntf(zBuf, "%02d:
41b0: 25 30 32 64 3a 25 30 32 64 22 2c 20 78 2e 68 2c  %02d:%02d", x.h,
41c0: 20 78 2e 6d 2c 20 28 69 6e 74 29 78 2e 73 29 3b   x.m, (int)x.s);
41d0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
41e0: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74  ult_text(context
41f0: 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49  , zBuf, -1, SQLI
4200: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20  TE_TRANSIENT);. 
4210: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 64   }.}../*.**    d
4220: 61 74 65 28 20 54 49 4d 45 53 54 52 49 4e 47 2c  ate( TIMESTRING,
4230: 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a   MOD, MOD, ...).
4240: 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 59 59 59  **.** Return YYY
4250: 59 2d 4d 4d 2d 44 44 0a 2a 2f 0a 73 74 61 74 69  Y-MM-DD.*/.stati
4260: 63 20 76 6f 69 64 20 64 61 74 65 46 75 6e 63 28  c void dateFunc(
4270: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  .  sqlite3_conte
4280: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69  xt *context,.  i
4290: 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74  nt argc,.  sqlit
42a0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
42b0: 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 78 3b  ){.  DateTime x;
42c0: 0a 20 20 69 66 28 20 69 73 44 61 74 65 28 61 72  .  if( isDate(ar
42d0: 67 63 2c 20 61 72 67 76 2c 20 26 78 29 3d 3d 30  gc, argv, &x)==0
42e0: 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 75   ){.    char zBu
42f0: 66 5b 31 30 30 5d 3b 0a 20 20 20 20 63 6f 6d 70  f[100];.    comp
4300: 75 74 65 59 4d 44 28 26 78 29 3b 0a 20 20 20 20  uteYMD(&x);.    
4310: 73 70 72 69 6e 74 66 28 7a 42 75 66 2c 20 22 25  sprintf(zBuf, "%
4320: 30 34 64 2d 25 30 32 64 2d 25 30 32 64 22 2c 20  04d-%02d-%02d", 
4330: 78 2e 59 2c 20 78 2e 4d 2c 20 78 2e 44 29 3b 0a  x.Y, x.M, x.D);.
4340: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
4350: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c  lt_text(context,
4360: 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54   zBuf, -1, SQLIT
4370: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20  E_TRANSIENT);.  
4380: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 73 74  }.}../*.**    st
4390: 72 66 74 69 6d 65 28 20 46 4f 52 4d 41 54 2c 20  rftime( FORMAT, 
43a0: 54 49 4d 45 53 54 52 49 4e 47 2c 20 4d 4f 44 2c  TIMESTRING, MOD,
43b0: 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a 2a 0a 2a 2a   MOD, ...).**.**
43c0: 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67   Return a string
43d0: 20 64 65 73 63 72 69 62 65 64 20 62 79 20 46 4f   described by FO
43e0: 52 4d 41 54 2e 20 20 43 6f 6e 76 65 72 73 69 6f  RMAT.  Conversio
43f0: 6e 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a  ns as follows:.*
4400: 2a 0a 2a 2a 20 20 20 25 64 20 20 64 61 79 20 6f  *.**   %d  day o
4410: 66 20 6d 6f 6e 74 68 0a 2a 2a 20 20 20 25 66 20  f month.**   %f 
4420: 20 2a 2a 20 66 72 61 63 74 69 6f 6e 61 6c 20 73   ** fractional s
4430: 65 63 6f 6e 64 73 20 20 53 53 2e 53 53 53 0a 2a  econds  SS.SSS.*
4440: 2a 20 20 20 25 48 20 20 68 6f 75 72 20 30 30 2d  *   %H  hour 00-
4450: 32 34 0a 2a 2a 20 20 20 25 6a 20 20 64 61 79 20  24.**   %j  day 
4460: 6f 66 20 79 65 61 72 20 30 30 30 2d 33 36 36 0a  of year 000-366.
4470: 2a 2a 20 20 20 25 4a 20 20 2a 2a 20 4a 75 6c 69  **   %J  ** Juli
4480: 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 0a 2a 2a  an day number.**
4490: 20 20 20 25 6d 20 20 6d 6f 6e 74 68 20 30 31 2d     %m  month 01-
44a0: 31 32 0a 2a 2a 20 20 20 25 4d 20 20 6d 69 6e 75  12.**   %M  minu
44b0: 74 65 20 30 30 2d 35 39 0a 2a 2a 20 20 20 25 73  te 00-59.**   %s
44c0: 20 20 73 65 63 6f 6e 64 73 20 73 69 6e 63 65 20    seconds since 
44d0: 31 39 37 30 2d 30 31 2d 30 31 0a 2a 2a 20 20 20  1970-01-01.**   
44e0: 25 53 20 20 73 65 63 6f 6e 64 73 20 30 30 2d 35  %S  seconds 00-5
44f0: 39 0a 2a 2a 20 20 20 25 77 20 20 64 61 79 20 6f  9.**   %w  day o
4500: 66 20 77 65 65 6b 20 30 2d 36 20 20 73 75 6e 64  f week 0-6  sund
4510: 61 79 3d 3d 30 0a 2a 2a 20 20 20 25 57 20 20 77  ay==0.**   %W  w
4520: 65 65 6b 20 6f 66 20 79 65 61 72 20 30 30 2d 35  eek of year 00-5
4530: 33 0a 2a 2a 20 20 20 25 59 20 20 79 65 61 72 20  3.**   %Y  year 
4540: 30 30 30 30 2d 39 39 39 39 0a 2a 2a 20 20 20 25  0000-9999.**   %
4550: 25 20 20 25 0a 2a 2f 0a 73 74 61 74 69 63 20 76  %  %.*/.static v
4560: 6f 69 64 20 73 74 72 66 74 69 6d 65 46 75 6e 63  oid strftimeFunc
4570: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
4580: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
4590: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69  int argc,.  sqli
45a0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
45b0: 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 78  .){.  DateTime x
45c0: 3b 0a 20 20 69 6e 74 20 6e 2c 20 69 2c 20 6a 3b  ;.  int n, i, j;
45d0: 0a 20 20 63 68 61 72 20 2a 7a 3b 0a 20 20 63 6f  .  char *z;.  co
45e0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6d 74 20 3d  nst char *zFmt =
45f0: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71   (const char*)sq
4600: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
4610: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 63 68 61  (argv[0]);.  cha
4620: 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20 69  r zBuf[100];.  i
4630: 66 28 20 7a 46 6d 74 3d 3d 30 20 7c 7c 20 69 73  f( zFmt==0 || is
4640: 44 61 74 65 28 61 72 67 63 2d 31 2c 20 61 72 67  Date(argc-1, arg
4650: 76 2b 31 2c 20 26 78 29 20 29 20 72 65 74 75 72  v+1, &x) ) retur
4660: 6e 3b 0a 20 20 66 6f 72 28 69 3d 30 2c 20 6e 3d  n;.  for(i=0, n=
4670: 31 3b 20 7a 46 6d 74 5b 69 5d 3b 20 69 2b 2b 2c  1; zFmt[i]; i++,
4680: 20 6e 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a   n++){.    if( z
4690: 46 6d 74 5b 69 5d 3d 3d 27 25 27 20 29 7b 0a 20  Fmt[i]=='%' ){. 
46a0: 20 20 20 20 20 73 77 69 74 63 68 28 20 7a 46 6d       switch( zFm
46b0: 74 5b 69 2b 31 5d 20 29 7b 0a 20 20 20 20 20 20  t[i+1] ){.      
46c0: 20 20 63 61 73 65 20 27 64 27 3a 0a 20 20 20 20    case 'd':.    
46d0: 20 20 20 20 63 61 73 65 20 27 48 27 3a 0a 20 20      case 'H':.  
46e0: 20 20 20 20 20 20 63 61 73 65 20 27 6d 27 3a 0a        case 'm':.
46f0: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 4d 27          case 'M'
4700: 3a 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27  :.        case '
4710: 53 27 3a 0a 20 20 20 20 20 20 20 20 63 61 73 65  S':.        case
4720: 20 27 57 27 3a 0a 20 20 20 20 20 20 20 20 20 20   'W':.          
4730: 6e 2b 2b 3b 0a 20 20 20 20 20 20 20 20 20 20 2f  n++;.          /
4740: 2a 20 66 61 6c 6c 20 74 68 72 75 20 2a 2f 0a 20  * fall thru */. 
4750: 20 20 20 20 20 20 20 63 61 73 65 20 27 77 27 3a         case 'w':
4760: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 25  .        case '%
4770: 27 3a 0a 20 20 20 20 20 20 20 20 20 20 62 72 65  ':.          bre
4780: 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65  ak;.        case
4790: 20 27 66 27 3a 0a 20 20 20 20 20 20 20 20 20 20   'f':.          
47a0: 6e 20 2b 3d 20 38 3b 0a 20 20 20 20 20 20 20 20  n += 8;.        
47b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20    break;.       
47c0: 20 63 61 73 65 20 27 6a 27 3a 0a 20 20 20 20 20   case 'j':.     
47d0: 20 20 20 20 20 6e 20 2b 3d 20 33 3b 0a 20 20 20       n += 3;.   
47e0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
47f0: 20 20 20 20 20 20 63 61 73 65 20 27 59 27 3a 0a        case 'Y':.
4800: 20 20 20 20 20 20 20 20 20 20 6e 20 2b 3d 20 38            n += 8
4810: 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61  ;.          brea
4820: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
4830: 27 73 27 3a 0a 20 20 20 20 20 20 20 20 63 61 73  's':.        cas
4840: 65 20 27 4a 27 3a 0a 20 20 20 20 20 20 20 20 20  e 'J':.         
4850: 20 6e 20 2b 3d 20 35 30 3b 0a 20 20 20 20 20 20   n += 50;.      
4860: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
4870: 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20     default:.    
4880: 20 20 20 20 20 20 72 65 74 75 72 6e 3b 20 20 2f        return;  /
4890: 2a 20 45 52 52 4f 52 2e 20 20 72 65 74 75 72 6e  * ERROR.  return
48a0: 20 61 20 4e 55 4c 4c 20 2a 2f 0a 20 20 20 20 20   a NULL */.     
48b0: 20 7d 0a 20 20 20 20 20 20 69 2b 2b 3b 0a 20 20   }.      i++;.  
48c0: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 6e 3c    }.  }.  if( n<
48d0: 73 69 7a 65 6f 66 28 7a 42 75 66 29 20 29 7b 0a  sizeof(zBuf) ){.
48e0: 20 20 20 20 7a 20 3d 20 7a 42 75 66 3b 0a 20 20      z = zBuf;.  
48f0: 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 20 3d 20 73  }else{.    z = s
4900: 71 6c 69 74 65 4d 61 6c 6c 6f 63 28 20 6e 20 29  qliteMalloc( n )
4910: 3b 0a 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29  ;.    if( z==0 )
4920: 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 63   return;.  }.  c
4930: 6f 6d 70 75 74 65 4a 44 28 26 78 29 3b 0a 20 20  omputeJD(&x);.  
4940: 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28 26  computeYMD_HMS(&
4950: 78 29 3b 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b  x);.  for(i=j=0;
4960: 20 7a 46 6d 74 5b 69 5d 3b 20 69 2b 2b 29 7b 0a   zFmt[i]; i++){.
4970: 20 20 20 20 69 66 28 20 7a 46 6d 74 5b 69 5d 21      if( zFmt[i]!
4980: 3d 27 25 27 20 29 7b 0a 20 20 20 20 20 20 7a 5b  ='%' ){.      z[
4990: 6a 2b 2b 5d 20 3d 20 7a 46 6d 74 5b 69 5d 3b 0a  j++] = zFmt[i];.
49a0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
49b0: 20 69 2b 2b 3b 0a 20 20 20 20 20 20 73 77 69 74   i++;.      swit
49c0: 63 68 28 20 7a 46 6d 74 5b 69 5d 20 29 7b 0a 20  ch( zFmt[i] ){. 
49d0: 20 20 20 20 20 20 20 63 61 73 65 20 27 64 27 3a         case 'd':
49e0: 20 20 73 70 72 69 6e 74 66 28 26 7a 5b 6a 5d 2c    sprintf(&z[j],
49f0: 22 25 30 32 64 22 2c 78 2e 44 29 3b 20 6a 2b 3d  "%02d",x.D); j+=
4a00: 32 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20  2; break;.      
4a10: 20 20 63 61 73 65 20 27 66 27 3a 20 7b 0a 20 20    case 'f': {.  
4a20: 20 20 20 20 20 20 20 20 69 6e 74 20 73 20 3d 20          int s = 
4a30: 78 2e 73 3b 0a 20 20 20 20 20 20 20 20 20 20 69  x.s;.          i
4a40: 6e 74 20 6d 73 20 3d 20 28 78 2e 73 20 2d 20 73  nt ms = (x.s - s
4a50: 29 2a 31 30 30 30 2e 30 3b 0a 20 20 20 20 20 20  )*1000.0;.      
4a60: 20 20 20 20 73 70 72 69 6e 74 66 28 26 7a 5b 6a      sprintf(&z[j
4a70: 5d 2c 22 25 30 32 64 2e 25 30 33 64 22 2c 73 2c  ],"%02d.%03d",s,
4a80: 6d 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6a  ms);.          j
4a90: 20 2b 3d 20 73 74 72 6c 65 6e 28 26 7a 5b 6a 5d   += strlen(&z[j]
4aa0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 65  );.          bre
4ab0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  ak;.        }.  
4ac0: 20 20 20 20 20 20 63 61 73 65 20 27 48 27 3a 20        case 'H': 
4ad0: 20 73 70 72 69 6e 74 66 28 26 7a 5b 6a 5d 2c 22   sprintf(&z[j],"
4ae0: 25 30 32 64 22 2c 78 2e 68 29 3b 20 6a 2b 3d 32  %02d",x.h); j+=2
4af0: 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20  ; break;.       
4b00: 20 63 61 73 65 20 27 57 27 3a 20 2f 2a 20 46 61   case 'W': /* Fa
4b10: 6c 6c 20 74 68 72 75 20 2a 2f 0a 20 20 20 20 20  ll thru */.     
4b20: 20 20 20 63 61 73 65 20 27 6a 27 3a 20 7b 0a 20     case 'j': {. 
4b30: 20 20 20 20 20 20 20 20 20 69 6e 74 20 6e 3b 20           int n; 
4b40: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
4b50: 75 6d 62 65 72 20 6f 66 20 64 61 79 73 20 73 69  umber of days si
4b60: 6e 63 65 20 31 73 74 20 64 61 79 20 6f 66 20 79  nce 1st day of y
4b70: 65 61 72 20 2a 2f 0a 20 20 20 20 20 20 20 20 20  ear */.         
4b80: 20 44 61 74 65 54 69 6d 65 20 79 20 3d 20 78 3b   DateTime y = x;
4b90: 0a 20 20 20 20 20 20 20 20 20 20 79 2e 76 61 6c  .          y.val
4ba0: 69 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20 20 20  idJD = 0;.      
4bb0: 20 20 20 20 79 2e 4d 20 3d 20 31 3b 0a 20 20 20      y.M = 1;.   
4bc0: 20 20 20 20 20 20 20 79 2e 44 20 3d 20 31 3b 0a         y.D = 1;.
4bd0: 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74            comput
4be0: 65 4a 44 28 26 79 29 3b 0a 20 20 20 20 20 20 20  eJD(&y);.       
4bf0: 20 20 20 6e 20 3d 20 78 2e 72 4a 44 20 2d 20 79     n = x.rJD - y
4c00: 2e 72 4a 44 3b 0a 20 20 20 20 20 20 20 20 20 20  .rJD;.          
4c10: 69 66 28 20 7a 46 6d 74 5b 69 5d 3d 3d 27 57 27  if( zFmt[i]=='W'
4c20: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20   ){.            
4c30: 69 6e 74 20 77 64 3b 20 20 20 2f 2a 20 30 3d 4d  int wd;   /* 0=M
4c40: 6f 6e 64 61 79 2c 20 31 3d 54 75 65 73 64 61 79  onday, 1=Tuesday
4c50: 2c 20 2e 2e 2e 20 36 3d 53 75 6e 64 61 79 20 2a  , ... 6=Sunday *
4c60: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 64  /.            wd
4c70: 20 3d 20 28 28 69 6e 74 29 28 78 2e 72 4a 44 2b   = ((int)(x.rJD+
4c80: 30 2e 35 29 29 20 25 20 37 3b 0a 20 20 20 20 20  0.5)) % 7;.     
4c90: 20 20 20 20 20 20 20 73 70 72 69 6e 74 66 28 26         sprintf(&
4ca0: 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 28 6e 2b 37  z[j],"%02d",(n+7
4cb0: 2d 77 64 29 2f 37 29 3b 0a 20 20 20 20 20 20 20  -wd)/7);.       
4cc0: 20 20 20 20 20 6a 20 2b 3d 20 32 3b 0a 20 20 20       j += 2;.   
4cd0: 20 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20         }else{.  
4ce0: 20 20 20 20 20 20 20 20 20 20 73 70 72 69 6e 74            sprint
4cf0: 66 28 26 7a 5b 6a 5d 2c 22 25 30 33 64 22 2c 6e  f(&z[j],"%03d",n
4d00: 2b 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  +1);.           
4d10: 20 6a 20 2b 3d 20 33 3b 0a 20 20 20 20 20 20 20   j += 3;.       
4d20: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 62     }.          b
4d30: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a  reak;.        }.
4d40: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 4a 27          case 'J'
4d50: 3a 20 20 73 70 72 69 6e 74 66 28 26 7a 5b 6a 5d  :  sprintf(&z[j]
4d60: 2c 22 25 2e 31 36 67 22 2c 78 2e 72 4a 44 29 3b  ,"%.16g",x.rJD);
4d70: 20 6a 2b 3d 73 74 72 6c 65 6e 28 26 7a 5b 6a 5d   j+=strlen(&z[j]
4d80: 29 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20  ); break;.      
4d90: 20 20 63 61 73 65 20 27 6d 27 3a 20 20 73 70 72    case 'm':  spr
4da0: 69 6e 74 66 28 26 7a 5b 6a 5d 2c 22 25 30 32 64  intf(&z[j],"%02d
4db0: 22 2c 78 2e 4d 29 3b 20 6a 2b 3d 32 3b 20 62 72  ",x.M); j+=2; br
4dc0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
4dd0: 65 20 27 4d 27 3a 20 20 73 70 72 69 6e 74 66 28  e 'M':  sprintf(
4de0: 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 78 2e 6d  &z[j],"%02d",x.m
4df0: 29 3b 20 6a 2b 3d 32 3b 20 62 72 65 61 6b 3b 0a  ); j+=2; break;.
4e00: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 73 27          case 's'
4e10: 3a 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 70  : {.          sp
4e20: 72 69 6e 74 66 28 26 7a 5b 6a 5d 2c 22 25 64 22  rintf(&z[j],"%d"
4e30: 2c 28 69 6e 74 29 28 28 78 2e 72 4a 44 2d 32 34  ,(int)((x.rJD-24
4e40: 34 30 35 38 37 2e 35 29 2a 38 36 34 30 30 2e 30  40587.5)*86400.0
4e50: 20 2b 20 30 2e 35 29 29 3b 0a 20 20 20 20 20 20   + 0.5));.      
4e60: 20 20 20 20 6a 20 2b 3d 20 73 74 72 6c 65 6e 28      j += strlen(
4e70: 26 7a 5b 6a 5d 29 3b 0a 20 20 20 20 20 20 20 20  &z[j]);.        
4e80: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20    break;.       
4e90: 20 7d 0a 20 20 20 20 20 20 20 20 63 61 73 65 20   }.        case 
4ea0: 27 53 27 3a 20 20 73 70 72 69 6e 74 66 28 26 7a  'S':  sprintf(&z
4eb0: 5b 6a 5d 2c 22 25 30 32 64 22 2c 28 69 6e 74 29  [j],"%02d",(int)
4ec0: 28 78 2e 73 2b 30 2e 35 29 29 3b 20 6a 2b 3d 32  (x.s+0.5)); j+=2
4ed0: 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20  ; break;.       
4ee0: 20 63 61 73 65 20 27 77 27 3a 20 20 7a 5b 6a 2b   case 'w':  z[j+
4ef0: 2b 5d 20 3d 20 28 28 28 69 6e 74 29 28 78 2e 72  +] = (((int)(x.r
4f00: 4a 44 2b 31 2e 35 29 29 20 25 20 37 29 20 2b 20  JD+1.5)) % 7) + 
4f10: 27 30 27 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20  '0'; break;.    
4f20: 20 20 20 20 63 61 73 65 20 27 59 27 3a 20 20 73      case 'Y':  s
4f30: 70 72 69 6e 74 66 28 26 7a 5b 6a 5d 2c 22 25 30  printf(&z[j],"%0
4f40: 34 64 22 2c 78 2e 59 29 3b 20 6a 2b 3d 73 74 72  4d",x.Y); j+=str
4f50: 6c 65 6e 28 26 7a 5b 6a 5d 29 3b 20 62 72 65 61  len(&z[j]); brea
4f60: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
4f70: 27 25 27 3a 20 20 7a 5b 6a 2b 2b 5d 20 3d 20 27  '%':  z[j++] = '
4f80: 25 27 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  %'; break;.     
4f90: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 7a   }.    }.  }.  z
4fa0: 5b 6a 5d 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74  [j] = 0;.  sqlit
4fb0: 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63  e3_result_text(c
4fc0: 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 2c 20 53  ontext, z, -1, S
4fd0: 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29  QLITE_TRANSIENT)
4fe0: 3b 0a 20 20 69 66 28 20 7a 21 3d 7a 42 75 66 20  ;.  if( z!=zBuf 
4ff0: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 46 72 65  ){.    sqliteFre
5000: 65 28 7a 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a  e(z);.  }.}../*.
5010: 2a 2a 20 63 75 72 72 65 6e 74 5f 74 69 6d 65 28  ** current_time(
5020: 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e  ).**.** This fun
5030: 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68  ction returns th
5040: 65 20 73 61 6d 65 20 76 61 6c 75 65 20 61 73 20  e same value as 
5050: 74 69 6d 65 28 27 6e 6f 77 27 29 2e 0a 2a 2f 0a  time('now')..*/.
5060: 73 74 61 74 69 63 20 76 6f 69 64 20 63 74 69 6d  static void ctim
5070: 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33  eFunc(.  sqlite3
5080: 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78  _context *contex
5090: 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20  t,.  int argc,. 
50a0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
50b0: 2a 61 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74  *argv.){.  sqlit
50c0: 65 33 5f 76 61 6c 75 65 20 2a 70 56 61 6c 20 3d  e3_value *pVal =
50d0: 20 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77   sqlite3ValueNew
50e0: 28 29 3b 0a 20 20 69 66 28 20 70 56 61 6c 20 29  ();.  if( pVal )
50f0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c  {.    sqlite3Val
5100: 75 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 2d  ueSetStr(pVal, -
5110: 31 2c 20 22 6e 6f 77 22 2c 20 53 51 4c 49 54 45  1, "now", SQLITE
5120: 5f 55 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 54  _UTF8, SQLITE_ST
5130: 41 54 49 43 29 3b 0a 20 20 20 20 74 69 6d 65 46  ATIC);.    timeF
5140: 75 6e 63 28 63 6f 6e 74 65 78 74 2c 20 31 2c 20  unc(context, 1, 
5150: 26 70 56 61 6c 29 3b 0a 20 20 20 20 73 71 6c 69  &pVal);.    sqli
5160: 74 65 33 56 61 6c 75 65 46 72 65 65 28 70 56 61  te3ValueFree(pVa
5170: 6c 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  l);.  }.}../*.**
5180: 20 63 75 72 72 65 6e 74 5f 64 61 74 65 28 29 0a   current_date().
5190: 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74  **.** This funct
51a0: 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20  ion returns the 
51b0: 73 61 6d 65 20 76 61 6c 75 65 20 61 73 20 64 61  same value as da
51c0: 74 65 28 27 6e 6f 77 27 29 2e 0a 2a 2f 0a 73 74  te('now')..*/.st
51d0: 61 74 69 63 20 76 6f 69 64 20 63 64 61 74 65 46  atic void cdateF
51e0: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63  unc(.  sqlite3_c
51f0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
5200: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73  .  int argc,.  s
5210: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
5220: 72 67 76 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33  rgv.){.  sqlite3
5230: 5f 76 61 6c 75 65 20 2a 70 56 61 6c 20 3d 20 73  _value *pVal = s
5240: 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28 29  qlite3ValueNew()
5250: 3b 0a 20 20 69 66 28 20 70 56 61 6c 20 29 7b 0a  ;.  if( pVal ){.
5260: 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65      sqlite3Value
5270: 53 65 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c  SetStr(pVal, -1,
5280: 20 22 6e 6f 77 22 2c 20 53 51 4c 49 54 45 5f 55   "now", SQLITE_U
5290: 54 46 38 2c 20 53 51 4c 49 54 45 5f 53 54 41 54  TF8, SQLITE_STAT
52a0: 49 43 29 3b 0a 20 20 20 20 64 61 74 65 46 75 6e  IC);.    dateFun
52b0: 63 28 63 6f 6e 74 65 78 74 2c 20 31 2c 20 26 70  c(context, 1, &p
52c0: 56 61 6c 29 3b 0a 20 20 20 20 73 71 6c 69 74 65  Val);.    sqlite
52d0: 33 56 61 6c 75 65 46 72 65 65 28 70 56 61 6c 29  3ValueFree(pVal)
52e0: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 63  ;.  }.}../*.** c
52f0: 75 72 72 65 6e 74 5f 74 69 6d 65 73 74 61 6d 70  urrent_timestamp
5300: 28 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 75  ().**.** This fu
5310: 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74  nction returns t
5320: 68 65 20 73 61 6d 65 20 76 61 6c 75 65 20 61 73  he same value as
5330: 20 64 61 74 65 74 69 6d 65 28 27 6e 6f 77 27 29   datetime('now')
5340: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
5350: 20 63 74 69 6d 65 73 74 61 6d 70 46 75 6e 63 28   ctimestampFunc(
5360: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  .  sqlite3_conte
5370: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69  xt *context,.  i
5380: 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74  nt argc,.  sqlit
5390: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
53a0: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  ){.  sqlite3_val
53b0: 75 65 20 2a 70 56 61 6c 20 3d 20 73 71 6c 69 74  ue *pVal = sqlit
53c0: 65 33 56 61 6c 75 65 4e 65 77 28 29 3b 0a 20 20  e3ValueNew();.  
53d0: 69 66 28 20 70 56 61 6c 20 29 7b 0a 20 20 20 20  if( pVal ){.    
53e0: 73 71 6c 69 74 65 33 56 61 6c 75 65 53 65 74 53  sqlite3ValueSetS
53f0: 74 72 28 70 56 61 6c 2c 20 2d 31 2c 20 22 6e 6f  tr(pVal, -1, "no
5400: 77 22 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c  w", SQLITE_UTF8,
5410: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b   SQLITE_STATIC);
5420: 0a 20 20 20 20 64 61 74 65 74 69 6d 65 46 75 6e  .    datetimeFun
5430: 63 28 63 6f 6e 74 65 78 74 2c 20 31 2c 20 26 70  c(context, 1, &p
5440: 56 61 6c 29 3b 0a 20 20 20 20 73 71 6c 69 74 65  Val);.    sqlite
5450: 33 56 61 6c 75 65 46 72 65 65 28 70 56 61 6c 29  3ValueFree(pVal)
5460: 3b 0a 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 20 2f  ;.  }.}.#endif /
5470: 2a 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54  * !defined(SQLIT
5480: 45 5f 4f 4d 49 54 5f 44 41 54 45 54 49 4d 45 5f  E_OMIT_DATETIME_
5490: 46 55 4e 43 53 29 20 2a 2f 0a 0a 23 69 66 64 65  FUNCS) */..#ifde
54a0: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 41  f SQLITE_OMIT_DA
54b0: 54 45 54 49 4d 45 5f 46 55 4e 43 53 0a 2f 2a 0a  TETIME_FUNCS./*.
54c0: 2a 2a 20 49 66 20 74 68 65 20 6c 69 62 72 61 72  ** If the librar
54d0: 79 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 74 6f  y is compiled to
54e0: 20 6f 6d 69 74 20 74 68 65 20 66 75 6c 6c 2d 73   omit the full-s
54f0: 63 61 6c 65 20 64 61 74 65 20 61 6e 64 20 74 69  cale date and ti
5500: 6d 65 0a 2a 2a 20 68 61 6e 64 6c 69 6e 67 20 28  me.** handling (
5510: 74 6f 20 67 65 74 20 61 20 73 6d 61 6c 6c 65 72  to get a smaller
5520: 20 62 69 6e 61 72 79 29 2c 20 74 68 65 20 66 6f   binary), the fo
5530: 6c 6c 6f 77 69 6e 67 20 6d 69 6e 69 6d 61 6c 20  llowing minimal 
5540: 76 65 72 73 69 6f 6e 0a 2a 2a 20 6f 66 20 74 68  version.** of th
5550: 65 20 66 75 6e 63 74 69 6f 6e 73 20 63 75 72 72  e functions curr
5560: 65 6e 74 5f 74 69 6d 65 28 29 2c 20 63 75 72 72  ent_time(), curr
5570: 65 6e 74 5f 64 61 74 65 28 29 20 61 6e 64 20 63  ent_date() and c
5580: 75 72 72 65 6e 74 5f 74 69 6d 65 73 74 61 6d 70  urrent_timestamp
5590: 28 29 0a 2a 2a 20 61 72 65 20 69 6e 63 6c 75 64  ().** are includ
55a0: 65 64 20 69 6e 73 74 65 61 64 2e 20 54 68 69 73  ed instead. This
55b0: 20 69 73 20 74 6f 20 73 75 70 70 6f 72 74 20 63   is to support c
55c0: 6f 6c 75 6d 6e 20 64 65 63 6c 61 72 61 74 69 6f  olumn declaratio
55d0: 6e 73 20 74 68 61 74 0a 2a 2a 20 69 6e 63 6c 75  ns that.** inclu
55e0: 64 65 20 22 44 45 46 41 55 4c 54 20 43 55 52 52  de "DEFAULT CURR
55f0: 45 4e 54 5f 54 49 4d 45 22 20 65 74 63 2e 0a 2a  ENT_TIME" etc..*
5600: 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69  *.** This functi
5610: 6f 6e 20 75 73 65 73 20 74 68 65 20 43 2d 6c 69  on uses the C-li
5620: 62 72 61 72 79 20 66 75 6e 63 74 69 6f 6e 73 20  brary functions 
5630: 74 69 6d 65 28 29 2c 20 67 6d 74 69 6d 65 28 29  time(), gmtime()
5640: 0a 2a 2a 20 61 6e 64 20 73 74 72 66 74 69 6d 65  .** and strftime
5650: 28 29 2e 20 54 68 65 20 66 6f 72 6d 61 74 20 73  (). The format s
5660: 74 72 69 6e 67 20 74 6f 20 70 61 73 73 20 74 6f  tring to pass to
5670: 20 73 74 72 66 74 69 6d 65 28 29 20 69 73 20 73   strftime() is s
5680: 75 70 70 6c 69 65 64 0a 2a 2a 20 61 73 20 74 68  upplied.** as th
5690: 65 20 75 73 65 72 2d 64 61 74 61 20 66 6f 72 20  e user-data for 
56a0: 74 68 65 20 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f  the function..*/
56b0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 63 75 72  .static void cur
56c0: 72 65 6e 74 54 69 6d 65 46 75 6e 63 28 0a 20 20  rentTimeFunc(.  
56d0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
56e0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20  *context,.  int 
56f0: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f  argc,.  sqlite3_
5700: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
5710: 20 20 74 69 6d 65 5f 74 20 74 3b 0a 20 20 63 68    time_t t;.  ch
5720: 61 72 20 2a 7a 46 6f 72 6d 61 74 20 3d 20 28 63  ar *zFormat = (c
5730: 68 61 72 20 2a 29 73 71 6c 69 74 65 33 5f 75 73  har *)sqlite3_us
5740: 65 72 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29  er_data(context)
5750: 3b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 32 30  ;.  char zBuf[20
5760: 5d 3b 0a 0a 20 20 74 69 6d 65 28 26 74 29 3b 0a  ];..  time(&t);.
5770: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45  #ifdef SQLITE_TE
5780: 53 54 0a 20 20 7b 0a 20 20 20 20 65 78 74 65 72  ST.  {.    exter
5790: 6e 20 69 6e 74 20 73 71 6c 69 74 65 33 5f 63 75  n int sqlite3_cu
57a0: 72 72 65 6e 74 5f 74 69 6d 65 3b 20 20 2f 2a 20  rrent_time;  /* 
57b0: 53 65 65 20 6f 73 5f 58 58 58 2e 63 20 2a 2f 0a  See os_XXX.c */.
57c0: 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f      if( sqlite3_
57d0: 63 75 72 72 65 6e 74 5f 74 69 6d 65 20 29 7b 0a  current_time ){.
57e0: 20 20 20 20 20 20 74 20 3d 20 73 71 6c 69 74 65        t = sqlite
57f0: 33 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 3b 0a  3_current_time;.
5800: 20 20 20 20 7d 0a 20 20 7d 0a 23 65 6e 64 69 66      }.  }.#endif
5810: 0a 0a 20 20 73 71 6c 69 74 65 33 4f 73 45 6e 74  ..  sqlite3OsEnt
5820: 65 72 4d 75 74 65 78 28 29 3b 0a 20 20 73 74 72  erMutex();.  str
5830: 66 74 69 6d 65 28 7a 42 75 66 2c 20 32 30 2c 20  ftime(zBuf, 20, 
5840: 7a 46 6f 72 6d 61 74 2c 20 67 6d 74 69 6d 65 28  zFormat, gmtime(
5850: 26 74 29 29 3b 0a 20 20 73 71 6c 69 74 65 33 4f  &t));.  sqlite3O
5860: 73 4c 65 61 76 65 4d 75 74 65 78 28 29 3b 0a 0a  sLeaveMutex();..
5870: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
5880: 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 7a  _text(context, z
5890: 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f  Buf, -1, SQLITE_
58a0: 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 23 65  TRANSIENT);.}.#e
58b0: 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73  ndif../*.** This
58c0: 20 66 75 6e 63 74 69 6f 6e 20 72 65 67 69 73 74   function regist
58d0: 65 72 65 64 20 61 6c 6c 20 6f 66 20 74 68 65 20  ered all of the 
58e0: 61 62 6f 76 65 20 43 20 66 75 6e 63 74 69 6f 6e  above C function
58f0: 73 20 61 73 20 53 51 4c 0a 2a 2a 20 66 75 6e 63  s as SQL.** func
5900: 74 69 6f 6e 73 2e 20 20 54 68 69 73 20 73 68 6f  tions.  This sho
5910: 75 6c 64 20 62 65 20 74 68 65 20 6f 6e 6c 79 20  uld be the only 
5920: 72 6f 75 74 69 6e 65 20 69 6e 20 74 68 69 73 20  routine in this 
5930: 66 69 6c 65 20 77 69 74 68 0a 2a 2a 20 65 78 74  file with.** ext
5940: 65 72 6e 61 6c 20 6c 69 6e 6b 61 67 65 2e 0a 2a  ernal linkage..*
5950: 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65  /.void sqlite3Re
5960: 67 69 73 74 65 72 44 61 74 65 54 69 6d 65 46 75  gisterDateTimeFu
5970: 6e 63 74 69 6f 6e 73 28 73 71 6c 69 74 65 33 20  nctions(sqlite3 
5980: 2a 64 62 29 7b 0a 23 69 66 6e 64 65 66 20 53 51  *db){.#ifndef SQ
5990: 4c 49 54 45 5f 4f 4d 49 54 5f 44 41 54 45 54 49  LITE_OMIT_DATETI
59a0: 4d 45 5f 46 55 4e 43 53 0a 20 20 73 74 61 74 69  ME_FUNCS.  stati
59b0: 63 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20 7b  c const struct {
59c0: 0a 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d  .     char *zNam
59d0: 65 3b 0a 20 20 20 20 20 69 6e 74 20 6e 41 72 67  e;.     int nArg
59e0: 3b 0a 20 20 20 20 20 76 6f 69 64 20 28 2a 78 46  ;.     void (*xF
59f0: 75 6e 63 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e  unc)(sqlite3_con
5a00: 74 65 78 74 2a 2c 69 6e 74 2c 73 71 6c 69 74 65  text*,int,sqlite
5a10: 33 5f 76 61 6c 75 65 2a 2a 29 3b 0a 20 20 7d 20  3_value**);.  } 
5a20: 61 46 75 6e 63 73 5b 5d 20 3d 20 7b 0a 20 20 20  aFuncs[] = {.   
5a30: 20 7b 20 22 6a 75 6c 69 61 6e 64 61 79 22 2c 20   { "julianday", 
5a40: 2d 31 2c 20 6a 75 6c 69 61 6e 64 61 79 46 75 6e  -1, juliandayFun
5a50: 63 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 64 61  c   },.    { "da
5a60: 74 65 22 2c 20 20 20 20 20 20 2d 31 2c 20 64 61  te",      -1, da
5a70: 74 65 46 75 6e 63 20 20 20 20 20 20 20 20 7d 2c  teFunc        },
5a80: 0a 20 20 20 20 7b 20 22 74 69 6d 65 22 2c 20 20  .    { "time",  
5a90: 20 20 20 20 2d 31 2c 20 74 69 6d 65 46 75 6e 63      -1, timeFunc
5aa0: 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b          },.    {
5ab0: 20 22 64 61 74 65 74 69 6d 65 22 2c 20 20 2d 31   "datetime",  -1
5ac0: 2c 20 64 61 74 65 74 69 6d 65 46 75 6e 63 20 20  , datetimeFunc  
5ad0: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 74 72 66    },.    { "strf
5ae0: 74 69 6d 65 22 2c 20 20 2d 31 2c 20 73 74 72 66  time",  -1, strf
5af0: 74 69 6d 65 46 75 6e 63 20 20 20 20 7d 2c 0a 20  timeFunc    },. 
5b00: 20 20 20 7b 20 22 63 75 72 72 65 6e 74 5f 74 69     { "current_ti
5b10: 6d 65 22 2c 20 20 20 20 20 20 20 30 2c 20 63 74  me",       0, ct
5b20: 69 6d 65 46 75 6e 63 20 20 20 20 20 20 7d 2c 0a  imeFunc      },.
5b30: 20 20 20 20 7b 20 22 63 75 72 72 65 6e 74 5f 74      { "current_t
5b40: 69 6d 65 73 74 61 6d 70 22 2c 20 20 30 2c 20 63  imestamp",  0, c
5b50: 74 69 6d 65 73 74 61 6d 70 46 75 6e 63 20 7d 2c  timestampFunc },
5b60: 0a 20 20 20 20 7b 20 22 63 75 72 72 65 6e 74 5f  .    { "current_
5b70: 64 61 74 65 22 2c 20 20 20 20 20 20 20 30 2c 20  date",       0, 
5b80: 63 64 61 74 65 46 75 6e 63 20 20 20 20 20 20 7d  cdateFunc      }
5b90: 2c 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a  ,.  };.  int i;.
5ba0: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69  .  for(i=0; i<si
5bb0: 7a 65 6f 66 28 61 46 75 6e 63 73 29 2f 73 69 7a  zeof(aFuncs)/siz
5bc0: 65 6f 66 28 61 46 75 6e 63 73 5b 30 5d 29 3b 20  eof(aFuncs[0]); 
5bd0: 69 2b 2b 29 7b 0a 20 20 20 20 73 71 6c 69 74 65  i++){.    sqlite
5be0: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f  3_create_functio
5bf0: 6e 28 64 62 2c 20 61 46 75 6e 63 73 5b 69 5d 2e  n(db, aFuncs[i].
5c00: 7a 4e 61 6d 65 2c 20 61 46 75 6e 63 73 5b 69 5d  zName, aFuncs[i]
5c10: 2e 6e 41 72 67 2c 0a 20 20 20 20 20 20 20 20 53  .nArg,.        S
5c20: 51 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 20 61  QLITE_UTF8, 0, a
5c30: 46 75 6e 63 73 5b 69 5d 2e 78 46 75 6e 63 2c 20  Funcs[i].xFunc, 
5c40: 30 2c 20 30 29 3b 0a 20 20 7d 0a 23 65 6c 73 65  0, 0);.  }.#else
5c50: 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20  .  static const 
5c60: 73 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68  struct {.     ch
5c70: 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20  ar *zName;.     
5c80: 63 68 61 72 20 2a 7a 46 6f 72 6d 61 74 3b 0a 20  char *zFormat;. 
5c90: 20 7d 20 61 46 75 6e 63 73 5b 5d 20 3d 20 7b 0a   } aFuncs[] = {.
5ca0: 20 20 20 20 7b 20 22 63 75 72 72 65 6e 74 5f 74      { "current_t
5cb0: 69 6d 65 22 2c 20 22 25 48 3a 25 4d 3a 25 53 22  ime", "%H:%M:%S"
5cc0: 20 7d 2c 0a 20 20 20 20 7b 20 22 63 75 72 72 65   },.    { "curre
5cd0: 6e 74 5f 64 61 74 65 22 2c 20 22 25 59 2d 25 6d  nt_date", "%Y-%m
5ce0: 2d 25 64 22 20 7d 2c 0a 20 20 20 20 7b 20 22 63  -%d" },.    { "c
5cf0: 75 72 72 65 6e 74 5f 74 69 6d 65 73 74 61 6d 70  urrent_timestamp
5d00: 22 2c 20 22 25 59 2d 25 6d 2d 25 64 20 25 48 3a  ", "%Y-%m-%d %H:
5d10: 25 4d 3a 25 53 22 20 7d 0a 20 20 7d 3b 0a 20 20  %M:%S" }.  };.  
5d20: 69 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d  int i;..  for(i=
5d30: 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46 75 6e  0; i<sizeof(aFun
5d40: 63 73 29 2f 73 69 7a 65 6f 66 28 61 46 75 6e 63  cs)/sizeof(aFunc
5d50: 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 20  s[0]); i++){.   
5d60: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f   sqlite3_create_
5d70: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 61 46 75  function(db, aFu
5d80: 6e 63 73 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 30 2c  ncs[i].zName, 0,
5d90: 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 0a 20   SQLITE_UTF8, . 
5da0: 20 20 20 20 20 20 20 61 46 75 6e 63 73 5b 69 5d         aFuncs[i]
5db0: 2e 7a 46 6f 72 6d 61 74 2c 20 63 75 72 72 65 6e  .zFormat, curren
5dc0: 74 54 69 6d 65 46 75 6e 63 2c 20 30 2c 20 30 29  tTimeFunc, 0, 0)
5dd0: 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 7d 0a     ;.  }.#endif.}.