/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact e1d8ac7102f3f283e63e13867acb0efa33861cf34f0faf4cdbaf9fa7a1eb7041:


0000: 2f 2a 0a 2a 2a 20 32 30 30 33 20 4f 63 74 6f 62  /*.** 2003 Octob
0010: 65 72 20 33 31 0a 2a 2a 0a 2a 2a 20 54 68 65 20  er 31.**.** The 
0020: 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73  author disclaims
0030: 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68   copyright to th
0040: 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20  is source code. 
0050: 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20   In place of.** 
0060: 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20  a legal notice, 
0070: 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69  here is a blessi
0080: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79  ng:.**.**    May
0090: 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64   you do good and
00a0: 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20   not evil..**   
00b0: 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f   May you find fo
00c0: 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f  rgiveness for yo
00d0: 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69  urself and forgi
00e0: 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20  ve others..**   
00f0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
0100: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0110: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0120: 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a  u give..**.*****
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c  ****.** This fil
0180: 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 43  e contains the C
0190: 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20   functions that 
01a0: 69 6d 70 6c 65 6d 65 6e 74 20 64 61 74 65 20 61  implement date a
01b0: 6e 64 20 74 69 6d 65 0a 2a 2a 20 66 75 6e 63 74  nd time.** funct
01c0: 69 6f 6e 73 20 66 6f 72 20 53 51 4c 69 74 65 2e  ions for SQLite.
01d0: 20 20 0a 2a 2a 0a 2a 2a 20 54 68 65 72 65 20 69    .**.** There i
01e0: 73 20 6f 6e 6c 79 20 6f 6e 65 20 65 78 70 6f 72  s only one expor
01f0: 74 65 64 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68  ted symbol in th
0200: 69 73 20 66 69 6c 65 20 2d 20 74 68 65 20 66 75  is file - the fu
0210: 6e 63 74 69 6f 6e 0a 2a 2a 20 73 71 6c 69 74 65  nction.** sqlite
0220: 33 52 65 67 69 73 74 65 72 44 61 74 65 54 69 6d  3RegisterDateTim
0230: 65 46 75 6e 63 74 69 6f 6e 73 28 29 20 66 6f 75  eFunctions() fou
0240: 6e 64 20 61 74 20 74 68 65 20 62 6f 74 74 6f 6d  nd at the bottom
0250: 20 6f 66 20 74 68 65 20 66 69 6c 65 2e 0a 2a 2a   of the file..**
0260: 20 41 6c 6c 20 6f 74 68 65 72 20 63 6f 64 65 20   All other code 
0270: 68 61 73 20 66 69 6c 65 20 73 63 6f 70 65 2e 0a  has file scope..
0280: 2a 2a 0a 2a 2a 20 53 51 4c 69 74 65 20 70 72 6f  **.** SQLite pro
0290: 63 65 73 73 65 73 20 61 6c 6c 20 74 69 6d 65 73  cesses all times
02a0: 20 61 6e 64 20 64 61 74 65 73 20 61 73 20 6a 75   and dates as ju
02b0: 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 73  lian day numbers
02c0: 2e 20 20 54 68 65 0a 2a 2a 20 64 61 74 65 73 20  .  The.** dates 
02d0: 61 6e 64 20 74 69 6d 65 73 20 61 72 65 20 73 74  and times are st
02e0: 6f 72 65 64 20 61 73 20 74 68 65 20 6e 75 6d 62  ored as the numb
02f0: 65 72 20 6f 66 20 64 61 79 73 20 73 69 6e 63 65  er of days since
0300: 20 6e 6f 6f 6e 0a 2a 2a 20 69 6e 20 47 72 65 65   noon.** in Gree
0310: 6e 77 69 63 68 20 6f 6e 20 4e 6f 76 65 6d 62 65  nwich on Novembe
0320: 72 20 32 34 2c 20 34 37 31 34 20 42 2e 43 2e 20  r 24, 4714 B.C. 
0330: 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65  according to the
0340: 20 47 72 65 67 6f 72 69 61 6e 0a 2a 2a 20 63 61   Gregorian.** ca
0350: 6c 65 6e 64 61 72 20 73 79 73 74 65 6d 2e 20 0a  lendar system. .
0360: 2a 2a 0a 2a 2a 20 31 39 37 30 2d 30 31 2d 30 31  **.** 1970-01-01
0370: 20 30 30 3a 30 30 3a 30 30 20 69 73 20 4a 44 20   00:00:00 is JD 
0380: 32 34 34 30 35 38 37 2e 35 0a 2a 2a 20 32 30 30  2440587.5.** 200
0390: 30 2d 30 31 2d 30 31 20 30 30 3a 30 30 3a 30 30  0-01-01 00:00:00
03a0: 20 69 73 20 4a 44 20 32 34 35 31 35 34 34 2e 35   is JD 2451544.5
03b0: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 69 6d 70 6c  .**.** This impl
03c0: 65 6d 65 6e 74 61 74 69 6f 6e 20 72 65 71 75 69  ementation requi
03d0: 72 65 73 20 79 65 61 72 73 20 74 6f 20 62 65 20  res years to be 
03e0: 65 78 70 72 65 73 73 65 64 20 61 73 20 61 20 34  expressed as a 4
03f0: 2d 64 69 67 69 74 20 6e 75 6d 62 65 72 0a 2a 2a  -digit number.**
0400: 20 77 68 69 63 68 20 6d 65 61 6e 73 20 74 68 61   which means tha
0410: 74 20 6f 6e 6c 79 20 64 61 74 65 73 20 62 65 74  t only dates bet
0420: 77 65 65 6e 20 30 30 30 30 2d 30 31 2d 30 31 20  ween 0000-01-01 
0430: 61 6e 64 20 39 39 39 39 2d 31 32 2d 33 31 20 63  and 9999-12-31 c
0440: 61 6e 0a 2a 2a 20 62 65 20 72 65 70 72 65 73 65  an.** be represe
0450: 6e 74 65 64 2c 20 65 76 65 6e 20 74 68 6f 75 67  nted, even thoug
0460: 68 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d  h julian day num
0470: 62 65 72 73 20 61 6c 6c 6f 77 20 61 20 6d 75 63  bers allow a muc
0480: 68 20 77 69 64 65 72 0a 2a 2a 20 72 61 6e 67 65  h wider.** range
0490: 20 6f 66 20 64 61 74 65 73 2e 0a 2a 2a 0a 2a 2a   of dates..**.**
04a0: 20 54 68 65 20 47 72 65 67 6f 72 69 61 6e 20 63   The Gregorian c
04b0: 61 6c 65 6e 64 61 72 20 73 79 73 74 65 6d 20 69  alendar system i
04c0: 73 20 75 73 65 64 20 66 6f 72 20 61 6c 6c 20 64  s used for all d
04d0: 61 74 65 73 20 61 6e 64 20 74 69 6d 65 73 2c 0a  ates and times,.
04e0: 2a 2a 20 65 76 65 6e 20 74 68 6f 73 65 20 74 68  ** even those th
04f0: 61 74 20 70 72 65 64 61 74 65 20 74 68 65 20 47  at predate the G
0500: 72 65 67 6f 72 69 61 6e 20 63 61 6c 65 6e 64 61  regorian calenda
0510: 72 2e 20 20 48 69 73 74 6f 72 69 61 6e 73 20 75  r.  Historians u
0520: 73 75 61 6c 6c 79 0a 2a 2a 20 75 73 65 20 74 68  sually.** use th
0530: 65 20 6a 75 6c 69 61 6e 20 63 61 6c 65 6e 64 61  e julian calenda
0540: 72 20 66 6f 72 20 64 61 74 65 73 20 70 72 69 6f  r for dates prio
0550: 72 20 74 6f 20 31 35 38 32 2d 31 30 2d 31 35 20  r to 1582-10-15 
0560: 61 6e 64 20 66 6f 72 20 73 6f 6d 65 0a 2a 2a 20  and for some.** 
0570: 64 61 74 65 73 20 61 66 74 65 72 77 61 72 64 73  dates afterwards
0580: 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 6c  , depending on l
0590: 6f 63 61 6c 65 2e 20 20 42 65 77 61 72 65 20 6f  ocale.  Beware o
05a0: 66 20 74 68 69 73 20 64 69 66 66 65 72 65 6e 63  f this differenc
05b0: 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e  e..**.** The con
05c0: 76 65 72 73 69 6f 6e 20 61 6c 67 6f 72 69 74 68  version algorith
05d0: 6d 73 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74  ms are implement
05e0: 65 64 20 62 61 73 65 64 20 6f 6e 20 64 65 73 63  ed based on desc
05f0: 72 69 70 74 69 6f 6e 73 0a 2a 2a 20 69 6e 20 74  riptions.** in t
0600: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 65 78  he following tex
0610: 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 4a 65  t:.**.**      Je
0620: 61 6e 20 4d 65 65 75 73 0a 2a 2a 20 20 20 20 20  an Meeus.**     
0630: 20 41 73 74 72 6f 6e 6f 6d 69 63 61 6c 20 41 6c   Astronomical Al
0640: 67 6f 72 69 74 68 6d 73 2c 20 32 6e 64 20 45 64  gorithms, 2nd Ed
0650: 69 74 69 6f 6e 2c 20 31 39 39 38 0a 2a 2a 20 20  ition, 1998.**  
0660: 20 20 20 20 49 53 42 4e 20 30 2d 39 34 33 33 39      ISBN 0-94339
0670: 36 2d 36 31 2d 31 0a 2a 2a 20 20 20 20 20 20 57  6-61-1.**      W
0680: 69 6c 6c 6d 61 6e 6e 2d 42 65 6c 6c 2c 20 49 6e  illmann-Bell, In
0690: 63 0a 2a 2a 20 20 20 20 20 20 52 69 63 68 6d 6f  c.**      Richmo
06a0: 6e 64 2c 20 56 69 72 67 69 6e 69 61 20 28 55 53  nd, Virginia (US
06b0: 41 29 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22  A).*/.#include "
06c0: 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e  sqliteInt.h".#in
06d0: 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e  clude <stdlib.h>
06e0: 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73 73 65 72  .#include <asser
06f0: 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 74  t.h>.#include <t
0700: 69 6d 65 2e 68 3e 0a 0a 23 69 66 6e 64 65 66 20  ime.h>..#ifndef 
0710: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 44 41 54 45  SQLITE_OMIT_DATE
0720: 54 49 4d 45 5f 46 55 4e 43 53 0a 0a 2f 2a 0a 2a  TIME_FUNCS../*.*
0730: 2a 20 54 68 65 20 4d 53 56 43 20 43 52 54 20 6f  * The MSVC CRT o
0740: 6e 20 57 69 6e 64 6f 77 73 20 43 45 20 6d 61 79  n Windows CE may
0750: 20 6e 6f 74 20 68 61 76 65 20 61 20 6c 6f 63 61   not have a loca
0760: 6c 74 69 6d 65 28 29 20 66 75 6e 63 74 69 6f 6e  ltime() function
0770: 2e 0a 2a 2a 20 53 6f 20 64 65 63 6c 61 72 65 20  ..** So declare 
0780: 61 20 73 75 62 73 74 69 74 75 74 65 2e 20 20 54  a substitute.  T
0790: 68 65 20 73 75 62 73 74 69 74 75 74 65 20 66 75  he substitute fu
07a0: 6e 63 74 69 6f 6e 20 69 74 73 65 6c 66 20 69 73  nction itself is
07b0: 0a 2a 2a 20 64 65 66 69 6e 65 64 20 69 6e 20 22  .** defined in "
07c0: 6f 73 5f 77 69 6e 2e 63 22 2e 0a 2a 2f 0a 23 69  os_win.c"..*/.#i
07d0: 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54  f !defined(SQLIT
07e0: 45 5f 4f 4d 49 54 5f 4c 4f 43 41 4c 54 49 4d 45  E_OMIT_LOCALTIME
07f0: 29 20 26 26 20 64 65 66 69 6e 65 64 28 5f 57 49  ) && defined(_WI
0800: 4e 33 32 5f 57 43 45 29 20 26 26 20 5c 0a 20 20  N32_WCE) && \.  
0810: 20 20 28 21 64 65 66 69 6e 65 64 28 53 51 4c 49    (!defined(SQLI
0820: 54 45 5f 4d 53 56 43 5f 4c 4f 43 41 4c 54 49 4d  TE_MSVC_LOCALTIM
0830: 45 5f 41 50 49 29 20 7c 7c 20 21 53 51 4c 49 54  E_API) || !SQLIT
0840: 45 5f 4d 53 56 43 5f 4c 4f 43 41 4c 54 49 4d 45  E_MSVC_LOCALTIME
0850: 5f 41 50 49 29 0a 73 74 72 75 63 74 20 74 6d 20  _API).struct tm 
0860: 2a 5f 5f 63 64 65 63 6c 20 6c 6f 63 61 6c 74 69  *__cdecl localti
0870: 6d 65 28 63 6f 6e 73 74 20 74 69 6d 65 5f 74 20  me(const time_t 
0880: 2a 29 3b 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a  *);.#endif../*.*
0890: 2a 20 41 20 73 74 72 75 63 74 75 72 65 20 66 6f  * A structure fo
08a0: 72 20 68 6f 6c 64 69 6e 67 20 61 20 73 69 6e 67  r holding a sing
08b0: 6c 65 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65  le date and time
08c0: 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72  ..*/.typedef str
08d0: 75 63 74 20 44 61 74 65 54 69 6d 65 20 44 61 74  uct DateTime Dat
08e0: 65 54 69 6d 65 3b 0a 73 74 72 75 63 74 20 44 61  eTime;.struct Da
08f0: 74 65 54 69 6d 65 20 7b 0a 20 20 73 71 6c 69 74  teTime {.  sqlit
0900: 65 33 5f 69 6e 74 36 34 20 69 4a 44 3b 20 20 2f  e3_int64 iJD;  /
0910: 2a 20 54 68 65 20 6a 75 6c 69 61 6e 20 64 61 79  * The julian day
0920: 20 6e 75 6d 62 65 72 20 74 69 6d 65 73 20 38 36   number times 86
0930: 34 30 30 30 30 30 20 2a 2f 0a 20 20 69 6e 74 20  400000 */.  int 
0940: 59 2c 20 4d 2c 20 44 3b 20 20 20 20 20 20 20 20  Y, M, D;        
0950: 2f 2a 20 59 65 61 72 2c 20 6d 6f 6e 74 68 2c 20  /* Year, month, 
0960: 61 6e 64 20 64 61 79 20 2a 2f 0a 20 20 69 6e 74  and day */.  int
0970: 20 68 2c 20 6d 3b 20 20 20 20 20 20 20 20 20 20   h, m;          
0980: 20 2f 2a 20 48 6f 75 72 20 61 6e 64 20 6d 69 6e   /* Hour and min
0990: 75 74 65 73 20 2a 2f 0a 20 20 69 6e 74 20 74 7a  utes */.  int tz
09a0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ;             /*
09b0: 20 54 69 6d 65 7a 6f 6e 65 20 6f 66 66 73 65 74   Timezone offset
09c0: 20 69 6e 20 6d 69 6e 75 74 65 73 20 2a 2f 0a 20   in minutes */. 
09d0: 20 64 6f 75 62 6c 65 20 73 3b 20 20 20 20 20 20   double s;      
09e0: 20 20 20 20 20 2f 2a 20 53 65 63 6f 6e 64 73 20       /* Seconds 
09f0: 2a 2f 0a 20 20 63 68 61 72 20 76 61 6c 69 64 4a  */.  char validJ
0a00: 44 3b 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65  D;       /* True
0a10: 20 28 31 29 20 69 66 20 69 4a 44 20 69 73 20 76   (1) if iJD is v
0a20: 61 6c 69 64 20 2a 2f 0a 20 20 63 68 61 72 20 72  alid */.  char r
0a30: 61 77 53 3b 20 20 20 20 20 20 20 20 20 20 2f 2a  awS;          /*
0a40: 20 52 61 77 20 6e 75 6d 65 72 69 63 20 76 61 6c   Raw numeric val
0a50: 75 65 20 73 74 6f 72 65 64 20 69 6e 20 73 20 2a  ue stored in s *
0a60: 2f 0a 20 20 63 68 61 72 20 76 61 6c 69 64 59 4d  /.  char validYM
0a70: 44 3b 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20  D;      /* True 
0a80: 28 31 29 20 69 66 20 59 2c 4d 2c 44 20 61 72 65  (1) if Y,M,D are
0a90: 20 76 61 6c 69 64 20 2a 2f 0a 20 20 63 68 61 72   valid */.  char
0aa0: 20 76 61 6c 69 64 48 4d 53 3b 20 20 20 20 20 20   validHMS;      
0ab0: 2f 2a 20 54 72 75 65 20 28 31 29 20 69 66 20 68  /* True (1) if h
0ac0: 2c 6d 2c 73 20 61 72 65 20 76 61 6c 69 64 20 2a  ,m,s are valid *
0ad0: 2f 0a 20 20 63 68 61 72 20 76 61 6c 69 64 54 5a  /.  char validTZ
0ae0: 3b 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20  ;       /* True 
0af0: 28 31 29 20 69 66 20 74 7a 20 69 73 20 76 61 6c  (1) if tz is val
0b00: 69 64 20 2a 2f 0a 20 20 63 68 61 72 20 74 7a 53  id */.  char tzS
0b10: 65 74 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 54  et;         /* T
0b20: 69 6d 65 7a 6f 6e 65 20 77 61 73 20 73 65 74 20  imezone was set 
0b30: 65 78 70 6c 69 63 69 74 6c 79 20 2a 2f 0a 20 20  explicitly */.  
0b40: 63 68 61 72 20 69 73 45 72 72 6f 72 3b 20 20 20  char isError;   
0b50: 20 20 20 20 2f 2a 20 41 6e 20 6f 76 65 72 66 6c      /* An overfl
0b60: 6f 77 20 68 61 73 20 6f 63 63 75 72 72 65 64 20  ow has occurred 
0b70: 2a 2f 0a 7d 3b 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6f  */.};.../*.** Co
0b80: 6e 76 65 72 74 20 7a 44 61 74 65 20 69 6e 74 6f  nvert zDate into
0b90: 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 69 6e 74   one or more int
0ba0: 65 67 65 72 73 20 61 63 63 6f 72 64 69 6e 67 20  egers according 
0bb0: 74 6f 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f  to the conversio
0bc0: 6e 0a 2a 2a 20 73 70 65 63 69 66 69 65 72 20 7a  n.** specifier z
0bd0: 46 6f 72 6d 61 74 2e 0a 2a 2a 0a 2a 2a 20 7a 46  Format..**.** zF
0be0: 6f 72 6d 61 74 5b 5d 20 63 6f 6e 74 61 69 6e 73  ormat[] contains
0bf0: 20 34 20 63 68 61 72 61 63 74 65 72 73 20 66 6f   4 characters fo
0c00: 72 20 65 61 63 68 20 69 6e 74 65 67 65 72 20 63  r each integer c
0c10: 6f 6e 76 65 72 74 65 64 2c 20 65 78 63 65 70 74  onverted, except
0c20: 20 66 6f 72 0a 2a 2a 20 74 68 65 20 6c 61 73 74   for.** the last
0c30: 20 69 6e 74 65 67 65 72 20 77 68 69 63 68 20 69   integer which i
0c40: 73 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74  s specified by t
0c50: 68 72 65 65 20 63 68 61 72 61 63 74 65 72 73 2e  hree characters.
0c60: 20 20 54 68 65 20 6d 65 61 6e 69 6e 67 0a 2a 2a    The meaning.**
0c70: 20 6f 66 20 61 20 66 6f 75 72 2d 63 68 61 72 61   of a four-chara
0c80: 63 74 65 72 20 66 6f 72 6d 61 74 20 73 70 65 63  cter format spec
0c90: 69 66 69 65 72 73 20 41 42 43 44 20 69 73 3a 0a  ifiers ABCD is:.
0ca0: 2a 2a 0a 2a 2a 20 20 20 20 41 3a 20 20 20 6e 75  **.**    A:   nu
0cb0: 6d 62 65 72 20 6f 66 20 64 69 67 69 74 73 20 74  mber of digits t
0cc0: 6f 20 63 6f 6e 76 65 72 74 2e 20 20 41 6c 77 61  o convert.  Alwa
0cd0: 79 73 20 22 32 22 20 6f 72 20 22 34 22 2e 0a 2a  ys "2" or "4"..*
0ce0: 2a 20 20 20 20 42 3a 20 20 20 6d 69 6e 69 6d 75  *    B:   minimu
0cf0: 6d 20 76 61 6c 75 65 2e 20 20 41 6c 77 61 79 73  m value.  Always
0d00: 20 22 30 22 20 6f 72 20 22 31 22 2e 0a 2a 2a 20   "0" or "1"..** 
0d10: 20 20 20 43 3a 20 20 20 6d 61 78 69 6d 75 6d 20     C:   maximum 
0d20: 76 61 6c 75 65 2c 20 64 65 63 6f 64 65 64 20 61  value, decoded a
0d30: 73 3a 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  s:.**           
0d40: 61 3a 20 20 31 32 0a 2a 2a 20 20 20 20 20 20 20  a:  12.**       
0d50: 20 20 20 20 62 3a 20 20 31 34 0a 2a 2a 20 20 20      b:  14.**   
0d60: 20 20 20 20 20 20 20 20 63 3a 20 20 32 34 0a 2a          c:  24.*
0d70: 2a 20 20 20 20 20 20 20 20 20 20 20 64 3a 20 20  *           d:  
0d80: 33 31 0a 2a 2a 20 20 20 20 20 20 20 20 20 20 20  31.**           
0d90: 65 3a 20 20 35 39 0a 2a 2a 20 20 20 20 20 20 20  e:  59.**       
0da0: 20 20 20 20 66 3a 20 20 39 39 39 39 0a 2a 2a 20      f:  9999.** 
0db0: 20 20 20 44 3a 20 20 20 74 68 65 20 73 65 70 61     D:   the sepa
0dc0: 72 61 74 6f 72 20 63 68 61 72 61 63 74 65 72 2c  rator character,
0dd0: 20 6f 72 20 5c 30 30 30 20 74 6f 20 69 6e 64 69   or \000 to indi
0de0: 63 61 74 65 20 74 68 69 73 20 69 73 20 74 68 65  cate this is the
0df0: 0a 2a 2a 20 20 20 20 20 20 20 20 20 6c 61 73 74  .**         last
0e00: 20 6e 75 6d 62 65 72 20 74 6f 20 63 6f 6e 76 65   number to conve
0e10: 72 74 2e 0a 2a 2a 0a 2a 2a 20 45 78 61 6d 70 6c  rt..**.** Exampl
0e20: 65 3a 20 20 54 6f 20 74 72 61 6e 73 6c 61 74 65  e:  To translate
0e30: 20 61 6e 20 49 53 4f 2d 38 36 30 31 20 64 61 74   an ISO-8601 dat
0e40: 65 20 59 59 59 59 2d 4d 4d 2d 44 44 2c 20 74 68  e YYYY-MM-DD, th
0e50: 65 20 66 6f 72 6d 61 74 20 77 6f 75 6c 64 0a 2a  e format would.*
0e60: 2a 20 62 65 20 22 34 30 66 2d 32 31 61 2d 32 30  * be "40f-21a-20
0e70: 63 22 2e 20 20 54 68 65 20 22 34 30 66 2d 22 20  c".  The "40f-" 
0e80: 69 6e 64 69 63 61 74 65 73 20 74 68 65 20 34 2d  indicates the 4-
0e90: 64 69 67 69 74 20 79 65 61 72 20 66 6f 6c 6c 6f  digit year follo
0ea0: 77 65 64 20 62 79 20 22 2d 22 2e 0a 2a 2a 20 54  wed by "-"..** T
0eb0: 68 65 20 22 32 31 61 2d 22 20 69 6e 64 69 63 61  he "21a-" indica
0ec0: 74 65 73 20 74 68 65 20 32 2d 64 69 67 69 74 20  tes the 2-digit 
0ed0: 6d 6f 6e 74 68 20 66 6f 6c 6c 6f 77 65 64 20 62  month followed b
0ee0: 79 20 22 2d 22 2e 20 20 54 68 65 20 22 32 30 63  y "-".  The "20c
0ef0: 22 20 69 6e 64 69 63 61 74 65 73 0a 2a 2a 20 74  " indicates.** t
0f00: 68 65 20 32 2d 64 69 67 69 74 20 64 61 79 20 77  he 2-digit day w
0f10: 68 69 63 68 20 69 73 20 74 68 65 20 6c 61 73 74  hich is the last
0f20: 20 69 6e 74 65 67 65 72 20 69 6e 20 74 68 65 20   integer in the 
0f30: 73 65 74 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 66  set..**.** The f
0f40: 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20  unction returns 
0f50: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 75  the number of su
0f60: 63 63 65 73 73 66 75 6c 20 63 6f 6e 76 65 72 73  ccessful convers
0f70: 69 6f 6e 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ions..*/.static 
0f80: 69 6e 74 20 67 65 74 44 69 67 69 74 73 28 63 6f  int getDigits(co
0f90: 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 65 2c  nst char *zDate,
0fa0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 6f   const char *zFo
0fb0: 72 6d 61 74 2c 20 2e 2e 2e 29 7b 0a 20 20 2f 2a  rmat, ...){.  /*
0fc0: 20 54 68 65 20 61 4d 78 5b 5d 20 61 72 72 61 79   The aMx[] array
0fd0: 20 74 72 61 6e 73 6c 61 74 65 73 20 74 68 65 20   translates the 
0fe0: 33 72 64 20 63 68 61 72 61 63 74 65 72 20 6f 66  3rd character of
0ff0: 20 65 61 63 68 20 66 6f 72 6d 61 74 0a 20 20 2a   each format.  *
1000: 2a 20 73 70 65 63 20 69 6e 74 6f 20 61 20 6d 61  * spec into a ma
1010: 78 20 73 69 7a 65 3a 20 20 20 20 61 20 20 20 62  x size:    a   b
1020: 20 20 20 63 20 20 20 64 20 20 20 65 20 20 20 20     c   d   e    
1030: 20 66 20 2a 2f 0a 20 20 73 74 61 74 69 63 20 63   f */.  static c
1040: 6f 6e 73 74 20 75 31 36 20 61 4d 78 5b 5d 20 3d  onst u16 aMx[] =
1050: 20 7b 20 31 32 2c 20 31 34 2c 20 32 34 2c 20 33   { 12, 14, 24, 3
1060: 31 2c 20 35 39 2c 20 39 39 39 39 20 7d 3b 0a 20  1, 59, 9999 };. 
1070: 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20 69   va_list ap;.  i
1080: 6e 74 20 63 6e 74 20 3d 20 30 3b 0a 20 20 63 68  nt cnt = 0;.  ch
1090: 61 72 20 6e 65 78 74 43 3b 0a 20 20 76 61 5f 73  ar nextC;.  va_s
10a0: 74 61 72 74 28 61 70 2c 20 7a 46 6f 72 6d 61 74  tart(ap, zFormat
10b0: 29 3b 0a 20 20 64 6f 7b 0a 20 20 20 20 63 68 61  );.  do{.    cha
10c0: 72 20 4e 20 3d 20 7a 46 6f 72 6d 61 74 5b 30 5d  r N = zFormat[0]
10d0: 20 2d 20 27 30 27 3b 0a 20 20 20 20 63 68 61 72   - '0';.    char
10e0: 20 6d 69 6e 20 3d 20 7a 46 6f 72 6d 61 74 5b 31   min = zFormat[1
10f0: 5d 20 2d 20 27 30 27 3b 0a 20 20 20 20 69 6e 74  ] - '0';.    int
1100: 20 76 61 6c 20 3d 20 30 3b 0a 20 20 20 20 75 31   val = 0;.    u1
1110: 36 20 6d 61 78 3b 0a 0a 20 20 20 20 61 73 73 65  6 max;..    asse
1120: 72 74 28 20 7a 46 6f 72 6d 61 74 5b 32 5d 3e 3d  rt( zFormat[2]>=
1130: 27 61 27 20 26 26 20 7a 46 6f 72 6d 61 74 5b 32  'a' && zFormat[2
1140: 5d 3c 3d 27 66 27 20 29 3b 0a 20 20 20 20 6d 61  ]<='f' );.    ma
1150: 78 20 3d 20 61 4d 78 5b 7a 46 6f 72 6d 61 74 5b  x = aMx[zFormat[
1160: 32 5d 20 2d 20 27 61 27 5d 3b 0a 20 20 20 20 6e  2] - 'a'];.    n
1170: 65 78 74 43 20 3d 20 7a 46 6f 72 6d 61 74 5b 33  extC = zFormat[3
1180: 5d 3b 0a 20 20 20 20 76 61 6c 20 3d 20 30 3b 0a  ];.    val = 0;.
1190: 20 20 20 20 77 68 69 6c 65 28 20 4e 2d 2d 20 29      while( N-- )
11a0: 7b 0a 20 20 20 20 20 20 69 66 28 20 21 73 71 6c  {.      if( !sql
11b0: 69 74 65 33 49 73 64 69 67 69 74 28 2a 7a 44 61  ite3Isdigit(*zDa
11c0: 74 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20 67  te) ){.        g
11d0: 6f 74 6f 20 65 6e 64 5f 67 65 74 44 69 67 69 74  oto end_getDigit
11e0: 73 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  s;.      }.     
11f0: 20 76 61 6c 20 3d 20 76 61 6c 2a 31 30 20 2b 20   val = val*10 + 
1200: 2a 7a 44 61 74 65 20 2d 20 27 30 27 3b 0a 20 20  *zDate - '0';.  
1210: 20 20 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20      zDate++;.   
1220: 20 7d 0a 20 20 20 20 69 66 28 20 76 61 6c 3c 28   }.    if( val<(
1230: 69 6e 74 29 6d 69 6e 20 7c 7c 20 76 61 6c 3e 28  int)min || val>(
1240: 69 6e 74 29 6d 61 78 20 7c 7c 20 28 6e 65 78 74  int)max || (next
1250: 43 21 3d 30 20 26 26 20 6e 65 78 74 43 21 3d 2a  C!=0 && nextC!=*
1260: 7a 44 61 74 65 29 20 29 7b 0a 20 20 20 20 20 20  zDate) ){.      
1270: 67 6f 74 6f 20 65 6e 64 5f 67 65 74 44 69 67 69  goto end_getDigi
1280: 74 73 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2a 76  ts;.    }.    *v
1290: 61 5f 61 72 67 28 61 70 2c 69 6e 74 2a 29 20 3d  a_arg(ap,int*) =
12a0: 20 76 61 6c 3b 0a 20 20 20 20 7a 44 61 74 65 2b   val;.    zDate+
12b0: 2b 3b 0a 20 20 20 20 63 6e 74 2b 2b 3b 0a 20 20  +;.    cnt++;.  
12c0: 20 20 7a 46 6f 72 6d 61 74 20 2b 3d 20 34 3b 0a    zFormat += 4;.
12d0: 20 20 7d 77 68 69 6c 65 28 20 6e 65 78 74 43 20    }while( nextC 
12e0: 29 3b 0a 65 6e 64 5f 67 65 74 44 69 67 69 74 73  );.end_getDigits
12f0: 3a 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a  :.  va_end(ap);.
1300: 20 20 72 65 74 75 72 6e 20 63 6e 74 3b 0a 7d 0a    return cnt;.}.
1310: 0a 2f 2a 0a 2a 2a 20 50 61 72 73 65 20 61 20 74  ./*.** Parse a t
1320: 69 6d 65 7a 6f 6e 65 20 65 78 74 65 6e 73 69 6f  imezone extensio
1330: 6e 20 6f 6e 20 74 68 65 20 65 6e 64 20 6f 66 20  n on the end of 
1340: 61 20 64 61 74 65 2d 74 69 6d 65 2e 0a 2a 2a 20  a date-time..** 
1350: 54 68 65 20 65 78 74 65 6e 73 69 6f 6e 20 69 73  The extension is
1360: 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 0a 2a 2a   of the form:.**
1370: 0a 2a 2a 20 20 20 20 20 20 20 20 28 2b 2f 2d 29  .**        (+/-)
1380: 48 48 3a 4d 4d 0a 2a 2a 0a 2a 2a 20 4f 72 20 74  HH:MM.**.** Or t
1390: 68 65 20 22 7a 75 6c 75 22 20 6e 6f 74 61 74 69  he "zulu" notati
13a0: 6f 6e 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20  on:.**.**       
13b0: 20 5a 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20   Z.**.** If the 
13c0: 70 61 72 73 65 20 69 73 20 73 75 63 63 65 73 73  parse is success
13d0: 66 75 6c 2c 20 77 72 69 74 65 20 74 68 65 20 6e  ful, write the n
13e0: 75 6d 62 65 72 20 6f 66 20 6d 69 6e 75 74 65 73  umber of minutes
13f0: 0a 2a 2a 20 6f 66 20 63 68 61 6e 67 65 20 69 6e  .** of change in
1400: 20 70 2d 3e 74 7a 20 61 6e 64 20 72 65 74 75 72   p->tz and retur
1410: 6e 20 30 2e 20 20 49 66 20 61 20 70 61 72 73 65  n 0.  If a parse
1420: 72 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 0a  r error occurs,.
1430: 2a 2a 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65  ** return non-ze
1440: 72 6f 2e 0a 2a 2a 0a 2a 2a 20 41 20 6d 69 73 73  ro..**.** A miss
1450: 69 6e 67 20 73 70 65 63 69 66 69 65 72 20 69 73  ing specifier is
1460: 20 6e 6f 74 20 63 6f 6e 73 69 64 65 72 65 64 20   not considered 
1470: 61 6e 20 65 72 72 6f 72 2e 0a 2a 2f 0a 73 74 61  an error..*/.sta
1480: 74 69 63 20 69 6e 74 20 70 61 72 73 65 54 69 6d  tic int parseTim
1490: 65 7a 6f 6e 65 28 63 6f 6e 73 74 20 63 68 61 72  ezone(const char
14a0: 20 2a 7a 44 61 74 65 2c 20 44 61 74 65 54 69 6d   *zDate, DateTim
14b0: 65 20 2a 70 29 7b 0a 20 20 69 6e 74 20 73 67 6e  e *p){.  int sgn
14c0: 20 3d 20 30 3b 0a 20 20 69 6e 74 20 6e 48 72 2c   = 0;.  int nHr,
14d0: 20 6e 4d 6e 3b 0a 20 20 69 6e 74 20 63 3b 0a 20   nMn;.  int c;. 
14e0: 20 77 68 69 6c 65 28 20 73 71 6c 69 74 65 33 49   while( sqlite3I
14f0: 73 73 70 61 63 65 28 2a 7a 44 61 74 65 29 20 29  sspace(*zDate) )
1500: 7b 20 7a 44 61 74 65 2b 2b 3b 20 7d 0a 20 20 70  { zDate++; }.  p
1510: 2d 3e 74 7a 20 3d 20 30 3b 0a 20 20 63 20 3d 20  ->tz = 0;.  c = 
1520: 2a 7a 44 61 74 65 3b 0a 20 20 69 66 28 20 63 3d  *zDate;.  if( c=
1530: 3d 27 2d 27 20 29 7b 0a 20 20 20 20 73 67 6e 20  ='-' ){.    sgn 
1540: 3d 20 2d 31 3b 0a 20 20 7d 65 6c 73 65 20 69 66  = -1;.  }else if
1550: 28 20 63 3d 3d 27 2b 27 20 29 7b 0a 20 20 20 20  ( c=='+' ){.    
1560: 73 67 6e 20 3d 20 2b 31 3b 0a 20 20 7d 65 6c 73  sgn = +1;.  }els
1570: 65 20 69 66 28 20 63 3d 3d 27 5a 27 20 7c 7c 20  e if( c=='Z' || 
1580: 63 3d 3d 27 7a 27 20 29 7b 0a 20 20 20 20 7a 44  c=='z' ){.    zD
1590: 61 74 65 2b 2b 3b 0a 20 20 20 20 67 6f 74 6f 20  ate++;.    goto 
15a0: 7a 75 6c 75 5f 74 69 6d 65 3b 0a 20 20 7d 65 6c  zulu_time;.  }el
15b0: 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 63  se{.    return c
15c0: 21 3d 30 3b 0a 20 20 7d 0a 20 20 7a 44 61 74 65  !=0;.  }.  zDate
15d0: 2b 2b 3b 0a 20 20 69 66 28 20 67 65 74 44 69 67  ++;.  if( getDig
15e0: 69 74 73 28 7a 44 61 74 65 2c 20 22 32 30 62 3a  its(zDate, "20b:
15f0: 32 30 65 22 2c 20 26 6e 48 72 2c 20 26 6e 4d 6e  20e", &nHr, &nMn
1600: 29 21 3d 32 20 29 7b 0a 20 20 20 20 72 65 74 75  )!=2 ){.    retu
1610: 72 6e 20 31 3b 0a 20 20 7d 0a 20 20 7a 44 61 74  rn 1;.  }.  zDat
1620: 65 20 2b 3d 20 35 3b 0a 20 20 70 2d 3e 74 7a 20  e += 5;.  p->tz 
1630: 3d 20 73 67 6e 2a 28 6e 4d 6e 20 2b 20 6e 48 72  = sgn*(nMn + nHr
1640: 2a 36 30 29 3b 0a 7a 75 6c 75 5f 74 69 6d 65 3a  *60);.zulu_time:
1650: 0a 20 20 77 68 69 6c 65 28 20 73 71 6c 69 74 65  .  while( sqlite
1660: 33 49 73 73 70 61 63 65 28 2a 7a 44 61 74 65 29  3Isspace(*zDate)
1670: 20 29 7b 20 7a 44 61 74 65 2b 2b 3b 20 7d 0a 20   ){ zDate++; }. 
1680: 20 70 2d 3e 74 7a 53 65 74 20 3d 20 31 3b 0a 20   p->tzSet = 1;. 
1690: 20 72 65 74 75 72 6e 20 2a 7a 44 61 74 65 21 3d   return *zDate!=
16a0: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 61 72 73  0;.}../*.** Pars
16b0: 65 20 74 69 6d 65 73 20 6f 66 20 74 68 65 20 66  e times of the f
16c0: 6f 72 6d 20 48 48 3a 4d 4d 20 6f 72 20 48 48 3a  orm HH:MM or HH:
16d0: 4d 4d 3a 53 53 20 6f 72 20 48 48 3a 4d 4d 3a 53  MM:SS or HH:MM:S
16e0: 53 2e 46 46 46 46 2e 0a 2a 2a 20 54 68 65 20 48  S.FFFF..** The H
16f0: 48 2c 20 4d 4d 2c 20 61 6e 64 20 53 53 20 6d 75  H, MM, and SS mu
1700: 73 74 20 65 61 63 68 20 62 65 20 65 78 61 63 74  st each be exact
1710: 6c 79 20 32 20 64 69 67 69 74 73 2e 20 20 54 68  ly 2 digits.  Th
1720: 65 0a 2a 2a 20 66 72 61 63 74 69 6f 6e 61 6c 20  e.** fractional 
1730: 73 65 63 6f 6e 64 73 20 46 46 46 46 20 63 61 6e  seconds FFFF can
1740: 20 62 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20   be one or more 
1750: 64 69 67 69 74 73 2e 0a 2a 2a 0a 2a 2a 20 52 65  digits..**.** Re
1760: 74 75 72 6e 20 31 20 69 66 20 74 68 65 72 65 20  turn 1 if there 
1770: 69 73 20 61 20 70 61 72 73 69 6e 67 20 65 72 72  is a parsing err
1780: 6f 72 20 61 6e 64 20 30 20 6f 6e 20 73 75 63 63  or and 0 on succ
1790: 65 73 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ess..*/.static i
17a0: 6e 74 20 70 61 72 73 65 48 68 4d 6d 53 73 28 63  nt parseHhMmSs(c
17b0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 61 74 65  onst char *zDate
17c0: 2c 20 44 61 74 65 54 69 6d 65 20 2a 70 29 7b 0a  , DateTime *p){.
17d0: 20 20 69 6e 74 20 68 2c 20 6d 2c 20 73 3b 0a 20    int h, m, s;. 
17e0: 20 64 6f 75 62 6c 65 20 6d 73 20 3d 20 30 2e 30   double ms = 0.0
17f0: 3b 0a 20 20 69 66 28 20 67 65 74 44 69 67 69 74  ;.  if( getDigit
1800: 73 28 7a 44 61 74 65 2c 20 22 32 30 63 3a 32 30  s(zDate, "20c:20
1810: 65 22 2c 20 26 68 2c 20 26 6d 29 21 3d 32 20 29  e", &h, &m)!=2 )
1820: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a  {.    return 1;.
1830: 20 20 7d 0a 20 20 7a 44 61 74 65 20 2b 3d 20 35    }.  zDate += 5
1840: 3b 0a 20 20 69 66 28 20 2a 7a 44 61 74 65 3d 3d  ;.  if( *zDate==
1850: 27 3a 27 20 29 7b 0a 20 20 20 20 7a 44 61 74 65  ':' ){.    zDate
1860: 2b 2b 3b 0a 20 20 20 20 69 66 28 20 67 65 74 44  ++;.    if( getD
1870: 69 67 69 74 73 28 7a 44 61 74 65 2c 20 22 32 30  igits(zDate, "20
1880: 65 22 2c 20 26 73 29 21 3d 31 20 29 7b 0a 20 20  e", &s)!=1 ){.  
1890: 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20      return 1;.  
18a0: 20 20 7d 0a 20 20 20 20 7a 44 61 74 65 20 2b 3d    }.    zDate +=
18b0: 20 32 3b 0a 20 20 20 20 69 66 28 20 2a 7a 44 61   2;.    if( *zDa
18c0: 74 65 3d 3d 27 2e 27 20 26 26 20 73 71 6c 69 74  te=='.' && sqlit
18d0: 65 33 49 73 64 69 67 69 74 28 7a 44 61 74 65 5b  e3Isdigit(zDate[
18e0: 31 5d 29 20 29 7b 0a 20 20 20 20 20 20 64 6f 75  1]) ){.      dou
18f0: 62 6c 65 20 72 53 63 61 6c 65 20 3d 20 31 2e 30  ble rScale = 1.0
1900: 3b 0a 20 20 20 20 20 20 7a 44 61 74 65 2b 2b 3b  ;.      zDate++;
1910: 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 73 71  .      while( sq
1920: 6c 69 74 65 33 49 73 64 69 67 69 74 28 2a 7a 44  lite3Isdigit(*zD
1930: 61 74 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20  ate) ){.        
1940: 6d 73 20 3d 20 6d 73 2a 31 30 2e 30 20 2b 20 2a  ms = ms*10.0 + *
1950: 7a 44 61 74 65 20 2d 20 27 30 27 3b 0a 20 20 20  zDate - '0';.   
1960: 20 20 20 20 20 72 53 63 61 6c 65 20 2a 3d 20 31       rScale *= 1
1970: 30 2e 30 3b 0a 20 20 20 20 20 20 20 20 7a 44 61  0.0;.        zDa
1980: 74 65 2b 2b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  te++;.      }.  
1990: 20 20 20 20 6d 73 20 2f 3d 20 72 53 63 61 6c 65      ms /= rScale
19a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b  ;.    }.  }else{
19b0: 0a 20 20 20 20 73 20 3d 20 30 3b 0a 20 20 7d 0a  .    s = 0;.  }.
19c0: 20 20 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 30    p->validJD = 0
19d0: 3b 0a 20 20 70 2d 3e 72 61 77 53 20 3d 20 30 3b  ;.  p->rawS = 0;
19e0: 0a 20 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d  .  p->validHMS =
19f0: 20 31 3b 0a 20 20 70 2d 3e 68 20 3d 20 68 3b 0a   1;.  p->h = h;.
1a00: 20 20 70 2d 3e 6d 20 3d 20 6d 3b 0a 20 20 70 2d    p->m = m;.  p-
1a10: 3e 73 20 3d 20 73 20 2b 20 6d 73 3b 0a 20 20 69  >s = s + ms;.  i
1a20: 66 28 20 70 61 72 73 65 54 69 6d 65 7a 6f 6e 65  f( parseTimezone
1a30: 28 7a 44 61 74 65 2c 20 70 29 20 29 20 72 65 74  (zDate, p) ) ret
1a40: 75 72 6e 20 31 3b 0a 20 20 70 2d 3e 76 61 6c 69  urn 1;.  p->vali
1a50: 64 54 5a 20 3d 20 28 70 2d 3e 74 7a 21 3d 30 29  dTZ = (p->tz!=0)
1a60: 3f 31 3a 30 3b 0a 20 20 72 65 74 75 72 6e 20 30  ?1:0;.  return 0
1a70: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 75 74 20 74  ;.}../*.** Put t
1a80: 68 65 20 44 61 74 65 54 69 6d 65 20 6f 62 6a 65  he DateTime obje
1a90: 63 74 20 69 6e 74 6f 20 69 74 73 20 65 72 72 6f  ct into its erro
1aa0: 72 20 73 74 61 74 65 2e 0a 2a 2f 0a 73 74 61 74  r state..*/.stat
1ab0: 69 63 20 76 6f 69 64 20 64 61 74 65 74 69 6d 65  ic void datetime
1ac0: 45 72 72 6f 72 28 44 61 74 65 54 69 6d 65 20 2a  Error(DateTime *
1ad0: 70 29 7b 0a 20 20 6d 65 6d 73 65 74 28 70 2c 20  p){.  memset(p, 
1ae0: 30 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a  0, sizeof(*p));.
1af0: 20 20 70 2d 3e 69 73 45 72 72 6f 72 20 3d 20 31    p->isError = 1
1b00: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 76 65  ;.}../*.** Conve
1b10: 72 74 20 66 72 6f 6d 20 59 59 59 59 2d 4d 4d 2d  rt from YYYY-MM-
1b20: 44 44 20 48 48 3a 4d 4d 3a 53 53 20 74 6f 20 6a  DD HH:MM:SS to j
1b30: 75 6c 69 61 6e 20 64 61 79 2e 20 20 57 65 20 61  ulian day.  We a
1b40: 6c 77 61 79 73 20 61 73 73 75 6d 65 0a 2a 2a 20  lways assume.** 
1b50: 74 68 61 74 20 74 68 65 20 59 59 59 59 2d 4d 4d  that the YYYY-MM
1b60: 2d 44 44 20 69 73 20 61 63 63 6f 72 64 69 6e 67  -DD is according
1b70: 20 74 6f 20 74 68 65 20 47 72 65 67 6f 72 69 61   to the Gregoria
1b80: 6e 20 63 61 6c 65 6e 64 61 72 2e 0a 2a 2a 0a 2a  n calendar..**.*
1b90: 2a 20 52 65 66 65 72 65 6e 63 65 3a 20 20 4d 65  * Reference:  Me
1ba0: 65 75 73 20 70 61 67 65 20 36 31 0a 2a 2f 0a 73  eus page 61.*/.s
1bb0: 74 61 74 69 63 20 76 6f 69 64 20 63 6f 6d 70 75  tatic void compu
1bc0: 74 65 4a 44 28 44 61 74 65 54 69 6d 65 20 2a 70  teJD(DateTime *p
1bd0: 29 7b 0a 20 20 69 6e 74 20 59 2c 20 4d 2c 20 44  ){.  int Y, M, D
1be0: 2c 20 41 2c 20 42 2c 20 58 31 2c 20 58 32 3b 0a  , A, B, X1, X2;.
1bf0: 0a 20 20 69 66 28 20 70 2d 3e 76 61 6c 69 64 4a  .  if( p->validJ
1c00: 44 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66  D ) return;.  if
1c10: 28 20 70 2d 3e 76 61 6c 69 64 59 4d 44 20 29 7b  ( p->validYMD ){
1c20: 0a 20 20 20 20 59 20 3d 20 70 2d 3e 59 3b 0a 20  .    Y = p->Y;. 
1c30: 20 20 20 4d 20 3d 20 70 2d 3e 4d 3b 0a 20 20 20     M = p->M;.   
1c40: 20 44 20 3d 20 70 2d 3e 44 3b 0a 20 20 7d 65 6c   D = p->D;.  }el
1c50: 73 65 7b 0a 20 20 20 20 59 20 3d 20 32 30 30 30  se{.    Y = 2000
1c60: 3b 20 20 2f 2a 20 49 66 20 6e 6f 20 59 4d 44 20  ;  /* If no YMD 
1c70: 73 70 65 63 69 66 69 65 64 2c 20 61 73 73 75 6d  specified, assum
1c80: 65 20 32 30 30 30 2d 4a 61 6e 2d 30 31 20 2a 2f  e 2000-Jan-01 */
1c90: 0a 20 20 20 20 4d 20 3d 20 31 3b 0a 20 20 20 20  .    M = 1;.    
1ca0: 44 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 28  D = 1;.  }.  if(
1cb0: 20 59 3c 2d 34 37 31 33 20 7c 7c 20 59 3e 39 39   Y<-4713 || Y>99
1cc0: 39 39 20 7c 7c 20 70 2d 3e 72 61 77 53 20 29 7b  99 || p->rawS ){
1cd0: 0a 20 20 20 20 64 61 74 65 74 69 6d 65 45 72 72  .    datetimeErr
1ce0: 6f 72 28 70 29 3b 0a 20 20 20 20 72 65 74 75 72  or(p);.    retur
1cf0: 6e 3b 0a 20 20 7d 0a 20 20 69 66 28 20 4d 3c 3d  n;.  }.  if( M<=
1d00: 32 20 29 7b 0a 20 20 20 20 59 2d 2d 3b 0a 20 20  2 ){.    Y--;.  
1d10: 20 20 4d 20 2b 3d 20 31 32 3b 0a 20 20 7d 0a 20    M += 12;.  }. 
1d20: 20 41 20 3d 20 59 2f 31 30 30 3b 0a 20 20 42 20   A = Y/100;.  B 
1d30: 3d 20 32 20 2d 20 41 20 2b 20 28 41 2f 34 29 3b  = 2 - A + (A/4);
1d40: 0a 20 20 58 31 20 3d 20 33 36 35 32 35 2a 28 59  .  X1 = 36525*(Y
1d50: 2b 34 37 31 36 29 2f 31 30 30 3b 0a 20 20 58 32  +4716)/100;.  X2
1d60: 20 3d 20 33 30 36 30 30 31 2a 28 4d 2b 31 29 2f   = 306001*(M+1)/
1d70: 31 30 30 30 30 3b 0a 20 20 70 2d 3e 69 4a 44 20  10000;.  p->iJD 
1d80: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34  = (sqlite3_int64
1d90: 29 28 28 58 31 20 2b 20 58 32 20 2b 20 44 20 2b  )((X1 + X2 + D +
1da0: 20 42 20 2d 20 31 35 32 34 2e 35 20 29 20 2a 20   B - 1524.5 ) * 
1db0: 38 36 34 30 30 30 30 30 29 3b 0a 20 20 70 2d 3e  86400000);.  p->
1dc0: 76 61 6c 69 64 4a 44 20 3d 20 31 3b 0a 20 20 69  validJD = 1;.  i
1dd0: 66 28 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 29  f( p->validHMS )
1de0: 7b 0a 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20  {.    p->iJD += 
1df0: 70 2d 3e 68 2a 33 36 30 30 30 30 30 20 2b 20 70  p->h*3600000 + p
1e00: 2d 3e 6d 2a 36 30 30 30 30 20 2b 20 28 73 71 6c  ->m*60000 + (sql
1e10: 69 74 65 33 5f 69 6e 74 36 34 29 28 70 2d 3e 73  ite3_int64)(p->s
1e20: 2a 31 30 30 30 29 3b 0a 20 20 20 20 69 66 28 20  *1000);.    if( 
1e30: 70 2d 3e 76 61 6c 69 64 54 5a 20 29 7b 0a 20 20  p->validTZ ){.  
1e40: 20 20 20 20 70 2d 3e 69 4a 44 20 2d 3d 20 70 2d      p->iJD -= p-
1e50: 3e 74 7a 2a 36 30 30 30 30 3b 0a 20 20 20 20 20  >tz*60000;.     
1e60: 20 70 2d 3e 76 61 6c 69 64 59 4d 44 20 3d 20 30   p->validYMD = 0
1e70: 3b 0a 20 20 20 20 20 20 70 2d 3e 76 61 6c 69 64  ;.      p->valid
1e80: 48 4d 53 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  HMS = 0;.      p
1e90: 2d 3e 76 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 20  ->validTZ = 0;. 
1ea0: 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a     }.  }.}../*.*
1eb0: 2a 20 50 61 72 73 65 20 64 61 74 65 73 20 6f 66  * Parse dates of
1ec0: 20 74 68 65 20 66 6f 72 6d 0a 2a 2a 0a 2a 2a 20   the form.**.** 
1ed0: 20 20 20 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48      YYYY-MM-DD H
1ee0: 48 3a 4d 4d 3a 53 53 2e 46 46 46 0a 2a 2a 20 20  H:MM:SS.FFF.**  
1ef0: 20 20 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48     YYYY-MM-DD HH
1f00: 3a 4d 4d 3a 53 53 0a 2a 2a 20 20 20 20 20 59 59  :MM:SS.**     YY
1f10: 59 59 2d 4d 4d 2d 44 44 20 48 48 3a 4d 4d 0a 2a  YY-MM-DD HH:MM.*
1f20: 2a 20 20 20 20 20 59 59 59 59 2d 4d 4d 2d 44 44  *     YYYY-MM-DD
1f30: 0a 2a 2a 0a 2a 2a 20 57 72 69 74 65 20 74 68 65  .**.** Write the
1f40: 20 72 65 73 75 6c 74 20 69 6e 74 6f 20 74 68 65   result into the
1f50: 20 44 61 74 65 54 69 6d 65 20 73 74 72 75 63 74   DateTime struct
1f60: 75 72 65 20 61 6e 64 20 72 65 74 75 72 6e 20 30  ure and return 0
1f70: 0a 2a 2a 20 6f 6e 20 73 75 63 63 65 73 73 20 61  .** on success a
1f80: 6e 64 20 31 20 69 66 20 74 68 65 20 69 6e 70 75  nd 1 if the inpu
1f90: 74 20 73 74 72 69 6e 67 20 69 73 20 6e 6f 74 20  t string is not 
1fa0: 61 20 77 65 6c 6c 2d 66 6f 72 6d 65 64 0a 2a 2a  a well-formed.**
1fb0: 20 64 61 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63   date..*/.static
1fc0: 20 69 6e 74 20 70 61 72 73 65 59 79 79 79 4d 6d   int parseYyyyMm
1fd0: 44 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  Dd(const char *z
1fe0: 44 61 74 65 2c 20 44 61 74 65 54 69 6d 65 20 2a  Date, DateTime *
1ff0: 70 29 7b 0a 20 20 69 6e 74 20 59 2c 20 4d 2c 20  p){.  int Y, M, 
2000: 44 2c 20 6e 65 67 3b 0a 0a 20 20 69 66 28 20 7a  D, neg;..  if( z
2010: 44 61 74 65 5b 30 5d 3d 3d 27 2d 27 20 29 7b 0a  Date[0]=='-' ){.
2020: 20 20 20 20 7a 44 61 74 65 2b 2b 3b 0a 20 20 20      zDate++;.   
2030: 20 6e 65 67 20 3d 20 31 3b 0a 20 20 7d 65 6c 73   neg = 1;.  }els
2040: 65 7b 0a 20 20 20 20 6e 65 67 20 3d 20 30 3b 0a  e{.    neg = 0;.
2050: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 69 67    }.  if( getDig
2060: 69 74 73 28 7a 44 61 74 65 2c 20 22 34 30 66 2d  its(zDate, "40f-
2070: 32 31 61 2d 32 31 64 22 2c 20 26 59 2c 20 26 4d  21a-21d", &Y, &M
2080: 2c 20 26 44 29 21 3d 33 20 29 7b 0a 20 20 20 20  , &D)!=3 ){.    
2090: 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20 20  return 1;.  }.  
20a0: 7a 44 61 74 65 20 2b 3d 20 31 30 3b 0a 20 20 77  zDate += 10;.  w
20b0: 68 69 6c 65 28 20 73 71 6c 69 74 65 33 49 73 73  hile( sqlite3Iss
20c0: 70 61 63 65 28 2a 7a 44 61 74 65 29 20 7c 7c 20  pace(*zDate) || 
20d0: 27 54 27 3d 3d 2a 28 75 38 2a 29 7a 44 61 74 65  'T'==*(u8*)zDate
20e0: 20 29 7b 20 7a 44 61 74 65 2b 2b 3b 20 7d 0a 20   ){ zDate++; }. 
20f0: 20 69 66 28 20 70 61 72 73 65 48 68 4d 6d 53 73   if( parseHhMmSs
2100: 28 7a 44 61 74 65 2c 20 70 29 3d 3d 30 20 29 7b  (zDate, p)==0 ){
2110: 0a 20 20 20 20 2f 2a 20 57 65 20 67 6f 74 20 74  .    /* We got t
2120: 68 65 20 74 69 6d 65 20 2a 2f 0a 20 20 7d 65 6c  he time */.  }el
2130: 73 65 20 69 66 28 20 2a 7a 44 61 74 65 3d 3d 30  se if( *zDate==0
2140: 20 29 7b 0a 20 20 20 20 70 2d 3e 76 61 6c 69 64   ){.    p->valid
2150: 48 4d 53 20 3d 20 30 3b 0a 20 20 7d 65 6c 73 65  HMS = 0;.  }else
2160: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a  {.    return 1;.
2170: 20 20 7d 0a 20 20 70 2d 3e 76 61 6c 69 64 4a 44    }.  p->validJD
2180: 20 3d 20 30 3b 0a 20 20 70 2d 3e 76 61 6c 69 64   = 0;.  p->valid
2190: 59 4d 44 20 3d 20 31 3b 0a 20 20 70 2d 3e 59 20  YMD = 1;.  p->Y 
21a0: 3d 20 6e 65 67 20 3f 20 2d 59 20 3a 20 59 3b 0a  = neg ? -Y : Y;.
21b0: 20 20 70 2d 3e 4d 20 3d 20 4d 3b 0a 20 20 70 2d    p->M = M;.  p-
21c0: 3e 44 20 3d 20 44 3b 0a 20 20 69 66 28 20 70 2d  >D = D;.  if( p-
21d0: 3e 76 61 6c 69 64 54 5a 20 29 7b 0a 20 20 20 20  >validTZ ){.    
21e0: 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20  computeJD(p);.  
21f0: 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a  }.  return 0;.}.
2200: 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 74  ./*.** Set the t
2210: 69 6d 65 20 74 6f 20 74 68 65 20 63 75 72 72 65  ime to the curre
2220: 6e 74 20 74 69 6d 65 20 72 65 70 6f 72 74 65 64  nt time reported
2230: 20 62 79 20 74 68 65 20 56 46 53 2e 0a 2a 2a 0a   by the VFS..**.
2240: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75  ** Return the nu
2250: 6d 62 65 72 20 6f 66 20 65 72 72 6f 72 73 2e 0a  mber of errors..
2260: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 65  */.static int se
2270: 74 44 61 74 65 54 69 6d 65 54 6f 43 75 72 72 65  tDateTimeToCurre
2280: 6e 74 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  nt(sqlite3_conte
2290: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 20 44 61 74  xt *context, Dat
22a0: 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 70 2d 3e  eTime *p){.  p->
22b0: 69 4a 44 20 3d 20 73 71 6c 69 74 65 33 53 74 6d  iJD = sqlite3Stm
22c0: 74 43 75 72 72 65 6e 74 54 69 6d 65 28 63 6f 6e  tCurrentTime(con
22d0: 74 65 78 74 29 3b 0a 20 20 69 66 28 20 70 2d 3e  text);.  if( p->
22e0: 69 4a 44 3e 30 20 29 7b 0a 20 20 20 20 70 2d 3e  iJD>0 ){.    p->
22f0: 76 61 6c 69 64 4a 44 20 3d 20 31 3b 0a 20 20 20  validJD = 1;.   
2300: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c   return 0;.  }el
2310: 73 65 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 31  se{.    return 1
2320: 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49  ;.  }.}../*.** I
2330: 6e 70 75 74 20 22 72 22 20 69 73 20 61 20 6e 75  nput "r" is a nu
2340: 6d 65 72 69 63 20 71 75 61 6e 74 69 74 79 20 77  meric quantity w
2350: 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 61 20  hich might be a 
2360: 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62 65  julian day numbe
2370: 72 2c 0a 2a 2a 20 6f 72 20 74 68 65 20 6e 75 6d  r,.** or the num
2380: 62 65 72 20 6f 66 20 73 65 63 6f 6e 64 73 20 73  ber of seconds s
2390: 69 6e 63 65 20 31 39 37 30 2e 20 20 49 66 20 74  ince 1970.  If t
23a0: 68 65 20 76 61 6c 75 65 20 69 66 20 72 20 69 73  he value if r is
23b0: 20 77 69 74 68 69 6e 0a 2a 2a 20 72 61 6e 67 65   within.** range
23c0: 20 6f 66 20 61 20 6a 75 6c 69 61 6e 20 64 61 79   of a julian day
23d0: 20 6e 75 6d 62 65 72 2c 20 69 6e 73 74 61 6c 6c   number, install
23e0: 20 69 74 20 61 73 20 73 75 63 68 20 61 6e 64 20   it as such and 
23f0: 73 65 74 20 76 61 6c 69 64 4a 44 2e 0a 2a 2a 20  set validJD..** 
2400: 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20  If the value is 
2410: 61 20 76 61 6c 69 64 20 75 6e 69 78 20 74 69 6d  a valid unix tim
2420: 65 73 74 61 6d 70 2c 20 70 75 74 20 69 74 20 69  estamp, put it i
2430: 6e 20 70 2d 3e 73 20 61 6e 64 20 73 65 74 20 70  n p->s and set p
2440: 2d 3e 72 61 77 53 2e 0a 2a 2f 0a 73 74 61 74 69  ->rawS..*/.stati
2450: 63 20 76 6f 69 64 20 73 65 74 52 61 77 44 61 74  c void setRawDat
2460: 65 4e 75 6d 62 65 72 28 44 61 74 65 54 69 6d 65  eNumber(DateTime
2470: 20 2a 70 2c 20 64 6f 75 62 6c 65 20 72 29 7b 0a   *p, double r){.
2480: 20 20 70 2d 3e 73 20 3d 20 72 3b 0a 20 20 70 2d    p->s = r;.  p-
2490: 3e 72 61 77 53 20 3d 20 31 3b 0a 20 20 69 66 28  >rawS = 1;.  if(
24a0: 20 72 3e 3d 30 2e 30 20 26 26 20 72 3c 35 33 37   r>=0.0 && r<537
24b0: 33 34 38 34 2e 35 20 29 7b 0a 20 20 20 20 70 2d  3484.5 ){.    p-
24c0: 3e 69 4a 44 20 3d 20 28 73 71 6c 69 74 65 33 5f  >iJD = (sqlite3_
24d0: 69 6e 74 36 34 29 28 72 2a 38 36 34 30 30 30 30  int64)(r*8640000
24e0: 30 2e 30 20 2b 20 30 2e 35 29 3b 0a 20 20 20 20  0.0 + 0.5);.    
24f0: 70 2d 3e 76 61 6c 69 64 4a 44 20 3d 20 31 3b 0a  p->validJD = 1;.
2500: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 74 74    }.}../*.** Att
2510: 65 6d 70 74 20 74 6f 20 70 61 72 73 65 20 74 68  empt to parse th
2520: 65 20 67 69 76 65 6e 20 73 74 72 69 6e 67 20 69  e given string i
2530: 6e 74 6f 20 61 20 6a 75 6c 69 61 6e 20 64 61 79  nto a julian day
2540: 20 6e 75 6d 62 65 72 2e 20 20 52 65 74 75 72 6e   number.  Return
2550: 0a 2a 2a 20 74 68 65 20 6e 75 6d 62 65 72 20 6f  .** the number o
2560: 66 20 65 72 72 6f 72 73 2e 0a 2a 2a 0a 2a 2a 20  f errors..**.** 
2570: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72  The following ar
2580: 65 20 61 63 63 65 70 74 61 62 6c 65 20 66 6f 72  e acceptable for
2590: 6d 73 20 66 6f 72 20 74 68 65 20 69 6e 70 75 74  ms for the input
25a0: 20 73 74 72 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20   string:.**.**  
25b0: 20 20 20 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48      YYYY-MM-DD H
25c0: 48 3a 4d 4d 3a 53 53 2e 46 46 46 20 20 2b 2f 2d  H:MM:SS.FFF  +/-
25d0: 48 48 3a 4d 4d 0a 2a 2a 20 20 20 20 20 20 44 44  HH:MM.**      DD
25e0: 44 44 2e 44 44 20 0a 2a 2a 20 20 20 20 20 20 6e  DD.DD .**      n
25f0: 6f 77 0a 2a 2a 0a 2a 2a 20 49 6e 20 74 68 65 20  ow.**.** In the 
2600: 66 69 72 73 74 20 66 6f 72 6d 2c 20 74 68 65 20  first form, the 
2610: 2b 2f 2d 48 48 3a 4d 4d 20 69 73 20 61 6c 77 61  +/-HH:MM is alwa
2620: 79 73 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 54 68  ys optional.  Th
2630: 65 20 66 72 61 63 74 69 6f 6e 61 6c 0a 2a 2a 20  e fractional.** 
2640: 73 65 63 6f 6e 64 73 20 65 78 74 65 6e 73 69 6f  seconds extensio
2650: 6e 20 28 74 68 65 20 22 2e 46 46 46 22 29 20 69  n (the ".FFF") i
2660: 73 20 6f 70 74 69 6f 6e 61 6c 2e 20 20 54 68 65  s optional.  The
2670: 20 73 65 63 6f 6e 64 73 20 70 6f 72 74 69 6f 6e   seconds portion
2680: 0a 2a 2a 20 28 22 3a 53 53 2e 46 46 46 22 29 20  .** (":SS.FFF") 
2690: 69 73 20 6f 70 74 69 6f 6e 2e 20 20 54 68 65 20  is option.  The 
26a0: 79 65 61 72 20 61 6e 64 20 64 61 74 65 20 63 61  year and date ca
26b0: 6e 20 62 65 20 6f 6d 69 74 74 65 64 20 61 73 20  n be omitted as 
26c0: 6c 6f 6e 67 0a 2a 2a 20 61 73 20 74 68 65 72 65  long.** as there
26d0: 20 69 73 20 61 20 74 69 6d 65 20 73 74 72 69 6e   is a time strin
26e0: 67 2e 20 20 54 68 65 20 74 69 6d 65 20 73 74 72  g.  The time str
26f0: 69 6e 67 20 63 61 6e 20 62 65 20 6f 6d 69 74 74  ing can be omitt
2700: 65 64 20 61 73 20 6c 6f 6e 67 0a 2a 2a 20 61 73  ed as long.** as
2710: 20 74 68 65 72 65 20 69 73 20 61 20 79 65 61 72   there is a year
2720: 20 61 6e 64 20 64 61 74 65 2e 0a 2a 2f 0a 73 74   and date..*/.st
2730: 61 74 69 63 20 69 6e 74 20 70 61 72 73 65 44 61  atic int parseDa
2740: 74 65 4f 72 54 69 6d 65 28 0a 20 20 73 71 6c 69  teOrTime(.  sqli
2750: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e  te3_context *con
2760: 74 65 78 74 2c 20 0a 20 20 63 6f 6e 73 74 20 63  text, .  const c
2770: 68 61 72 20 2a 7a 44 61 74 65 2c 20 0a 20 20 44  har *zDate, .  D
2780: 61 74 65 54 69 6d 65 20 2a 70 0a 29 7b 0a 20 20  ateTime *p.){.  
2790: 64 6f 75 62 6c 65 20 72 3b 0a 20 20 69 66 28 20  double r;.  if( 
27a0: 70 61 72 73 65 59 79 79 79 4d 6d 44 64 28 7a 44  parseYyyyMmDd(zD
27b0: 61 74 65 2c 70 29 3d 3d 30 20 29 7b 0a 20 20 20  ate,p)==0 ){.   
27c0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d 65 6c   return 0;.  }el
27d0: 73 65 20 69 66 28 20 70 61 72 73 65 48 68 4d 6d  se if( parseHhMm
27e0: 53 73 28 7a 44 61 74 65 2c 20 70 29 3d 3d 30 20  Ss(zDate, p)==0 
27f0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b  ){.    return 0;
2800: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c  .  }else if( sql
2810: 69 74 65 33 53 74 72 49 43 6d 70 28 7a 44 61 74  ite3StrICmp(zDat
2820: 65 2c 22 6e 6f 77 22 29 3d 3d 30 20 26 26 20 73  e,"now")==0 && s
2830: 71 6c 69 74 65 33 4e 6f 74 50 75 72 65 46 75 6e  qlite3NotPureFun
2840: 63 28 63 6f 6e 74 65 78 74 29 20 29 7b 0a 20 20  c(context) ){.  
2850: 20 20 72 65 74 75 72 6e 20 73 65 74 44 61 74 65    return setDate
2860: 54 69 6d 65 54 6f 43 75 72 72 65 6e 74 28 63 6f  TimeToCurrent(co
2870: 6e 74 65 78 74 2c 20 70 29 3b 0a 20 20 7d 65 6c  ntext, p);.  }el
2880: 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 41 74  se if( sqlite3At
2890: 6f 46 28 7a 44 61 74 65 2c 20 26 72 2c 20 73 71  oF(zDate, &r, sq
28a0: 6c 69 74 65 33 53 74 72 6c 65 6e 33 30 28 7a 44  lite3Strlen30(zD
28b0: 61 74 65 29 2c 20 53 51 4c 49 54 45 5f 55 54 46  ate), SQLITE_UTF
28c0: 38 29 3e 30 20 29 7b 0a 20 20 20 20 73 65 74 52  8)>0 ){.    setR
28d0: 61 77 44 61 74 65 4e 75 6d 62 65 72 28 70 2c 20  awDateNumber(p, 
28e0: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30  r);.    return 0
28f0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 31  ;.  }.  return 1
2900: 3b 0a 7d 0a 0a 2f 2a 20 54 68 65 20 6a 75 6c 69  ;.}../* The juli
2910: 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 20 66 6f  an day number fo
2920: 72 20 39 39 39 39 2d 31 32 2d 33 31 20 32 33 3a  r 9999-12-31 23:
2930: 35 39 3a 35 39 2e 39 39 39 20 69 73 20 35 33 37  59:59.999 is 537
2940: 33 34 38 34 2e 34 39 39 39 39 39 39 2e 0a 2a 2a  3484.4999999..**
2950: 20 4d 75 6c 74 69 70 6c 79 69 6e 67 20 74 68 69   Multiplying thi
2960: 73 20 62 79 20 38 36 34 30 30 30 30 30 20 67 69  s by 86400000 gi
2970: 76 65 73 20 34 36 34 32 36 39 30 36 30 37 39 39  ves 464269060799
2980: 39 39 39 20 61 73 20 74 68 65 20 6d 61 78 69 6d  999 as the maxim
2990: 75 6d 20 76 61 6c 75 65 0a 2a 2a 20 66 6f 72 20  um value.** for 
29a0: 44 61 74 65 54 69 6d 65 2e 69 4a 44 2e 0a 2a 2a  DateTime.iJD..**
29b0: 0a 2a 2a 20 42 75 74 20 73 6f 6d 65 20 6f 6c 64  .** But some old
29c0: 65 72 20 63 6f 6d 70 69 6c 65 72 73 20 28 65 78  er compilers (ex
29d0: 3a 20 67 63 63 20 34 2e 32 2e 31 20 6f 6e 20 6f  : gcc 4.2.1 on o
29e0: 6c 64 65 72 20 4d 61 63 73 29 20 63 61 6e 6e 6f  lder Macs) canno
29f0: 74 20 64 65 61 6c 20 77 69 74 68 20 0a 2a 2a 20  t deal with .** 
2a00: 73 75 63 68 20 61 20 6c 61 72 67 65 20 69 6e 74  such a large int
2a10: 65 67 65 72 20 6c 69 74 65 72 61 6c 2c 20 73 6f  eger literal, so
2a20: 20 77 65 20 68 61 76 65 20 74 6f 20 65 6e 63 6f   we have to enco
2a30: 64 65 20 69 74 2e 0a 2a 2f 0a 23 64 65 66 69 6e  de it..*/.#defin
2a40: 65 20 49 4e 54 5f 34 36 34 32 36 39 30 36 30 37  e INT_4642690607
2a50: 39 39 39 39 39 20 20 28 28 28 28 69 36 34 29 30  99999  ((((i64)0
2a60: 78 31 61 36 34 30 29 3c 3c 33 32 29 7c 30 78 31  x1a640)<<32)|0x1
2a70: 30 37 32 66 64 66 66 29 0a 0a 2f 2a 0a 2a 2a 20  072fdff)../*.** 
2a80: 52 65 74 75 72 6e 20 54 52 55 45 20 69 66 20 74  Return TRUE if t
2a90: 68 65 20 67 69 76 65 6e 20 6a 75 6c 69 61 6e 20  he given julian 
2aa0: 64 61 79 20 6e 75 6d 62 65 72 20 69 73 20 77 69  day number is wi
2ab0: 74 68 69 6e 20 72 61 6e 67 65 2e 0a 2a 2a 0a 2a  thin range..**.*
2ac0: 2a 20 54 68 65 20 69 6e 70 75 74 20 69 73 20 74  * The input is t
2ad0: 68 65 20 4a 75 6c 69 61 6e 44 61 79 20 74 69 6d  he JulianDay tim
2ae0: 65 73 20 38 36 34 30 30 30 30 30 2e 0a 2a 2f 0a  es 86400000..*/.
2af0: 73 74 61 74 69 63 20 69 6e 74 20 76 61 6c 69 64  static int valid
2b00: 4a 75 6c 69 61 6e 44 61 79 28 73 71 6c 69 74 65  JulianDay(sqlite
2b10: 33 5f 69 6e 74 36 34 20 69 4a 44 29 7b 0a 20 20  3_int64 iJD){.  
2b20: 72 65 74 75 72 6e 20 69 4a 44 3e 3d 30 20 26 26  return iJD>=0 &&
2b30: 20 69 4a 44 3c 3d 49 4e 54 5f 34 36 34 32 36 39   iJD<=INT_464269
2b40: 30 36 30 37 39 39 39 39 39 3b 0a 7d 0a 0a 2f 2a  060799999;.}../*
2b50: 0a 2a 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20  .** Compute the 
2b60: 59 65 61 72 2c 20 4d 6f 6e 74 68 2c 20 61 6e 64  Year, Month, and
2b70: 20 44 61 79 20 66 72 6f 6d 20 74 68 65 20 6a 75   Day from the ju
2b80: 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 2e  lian day number.
2b90: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
2ba0: 63 6f 6d 70 75 74 65 59 4d 44 28 44 61 74 65 54  computeYMD(DateT
2bb0: 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e 74 20 5a  ime *p){.  int Z
2bc0: 2c 20 41 2c 20 42 2c 20 43 2c 20 44 2c 20 45 2c  , A, B, C, D, E,
2bd0: 20 58 31 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61   X1;.  if( p->va
2be0: 6c 69 64 59 4d 44 20 29 20 72 65 74 75 72 6e 3b  lidYMD ) return;
2bf0: 0a 20 20 69 66 28 20 21 70 2d 3e 76 61 6c 69 64  .  if( !p->valid
2c00: 4a 44 20 29 7b 0a 20 20 20 20 70 2d 3e 59 20 3d  JD ){.    p->Y =
2c10: 20 32 30 30 30 3b 0a 20 20 20 20 70 2d 3e 4d 20   2000;.    p->M 
2c20: 3d 20 31 3b 0a 20 20 20 20 70 2d 3e 44 20 3d 20  = 1;.    p->D = 
2c30: 31 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 21  1;.  }else if( !
2c40: 76 61 6c 69 64 4a 75 6c 69 61 6e 44 61 79 28 70  validJulianDay(p
2c50: 2d 3e 69 4a 44 29 20 29 7b 0a 20 20 20 20 64 61  ->iJD) ){.    da
2c60: 74 65 74 69 6d 65 45 72 72 6f 72 28 70 29 3b 0a  tetimeError(p);.
2c70: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 65      return;.  }e
2c80: 6c 73 65 7b 0a 20 20 20 20 5a 20 3d 20 28 69 6e  lse{.    Z = (in
2c90: 74 29 28 28 70 2d 3e 69 4a 44 20 2b 20 34 33 32  t)((p->iJD + 432
2ca0: 30 30 30 30 30 29 2f 38 36 34 30 30 30 30 30 29  00000)/86400000)
2cb0: 3b 0a 20 20 20 20 41 20 3d 20 28 69 6e 74 29 28  ;.    A = (int)(
2cc0: 28 5a 20 2d 20 31 38 36 37 32 31 36 2e 32 35 29  (Z - 1867216.25)
2cd0: 2f 33 36 35 32 34 2e 32 35 29 3b 0a 20 20 20 20  /36524.25);.    
2ce0: 41 20 3d 20 5a 20 2b 20 31 20 2b 20 41 20 2d 20  A = Z + 1 + A - 
2cf0: 28 41 2f 34 29 3b 0a 20 20 20 20 42 20 3d 20 41  (A/4);.    B = A
2d00: 20 2b 20 31 35 32 34 3b 0a 20 20 20 20 43 20 3d   + 1524;.    C =
2d10: 20 28 69 6e 74 29 28 28 42 20 2d 20 31 32 32 2e   (int)((B - 122.
2d20: 31 29 2f 33 36 35 2e 32 35 29 3b 0a 20 20 20 20  1)/365.25);.    
2d30: 44 20 3d 20 28 33 36 35 32 35 2a 28 43 26 33 32  D = (36525*(C&32
2d40: 37 36 37 29 29 2f 31 30 30 3b 0a 20 20 20 20 45  767))/100;.    E
2d50: 20 3d 20 28 69 6e 74 29 28 28 42 2d 44 29 2f 33   = (int)((B-D)/3
2d60: 30 2e 36 30 30 31 29 3b 0a 20 20 20 20 58 31 20  0.6001);.    X1 
2d70: 3d 20 28 69 6e 74 29 28 33 30 2e 36 30 30 31 2a  = (int)(30.6001*
2d80: 45 29 3b 0a 20 20 20 20 70 2d 3e 44 20 3d 20 42  E);.    p->D = B
2d90: 20 2d 20 44 20 2d 20 58 31 3b 0a 20 20 20 20 70   - D - X1;.    p
2da0: 2d 3e 4d 20 3d 20 45 3c 31 34 20 3f 20 45 2d 31  ->M = E<14 ? E-1
2db0: 20 3a 20 45 2d 31 33 3b 0a 20 20 20 20 70 2d 3e   : E-13;.    p->
2dc0: 59 20 3d 20 70 2d 3e 4d 3e 32 20 3f 20 43 20 2d  Y = p->M>2 ? C -
2dd0: 20 34 37 31 36 20 3a 20 43 20 2d 20 34 37 31 35   4716 : C - 4715
2de0: 3b 0a 20 20 7d 0a 20 20 70 2d 3e 76 61 6c 69 64  ;.  }.  p->valid
2df0: 59 4d 44 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a  YMD = 1;.}../*.*
2e00: 2a 20 43 6f 6d 70 75 74 65 20 74 68 65 20 48 6f  * Compute the Ho
2e10: 75 72 2c 20 4d 69 6e 75 74 65 2c 20 61 6e 64 20  ur, Minute, and 
2e20: 53 65 63 6f 6e 64 73 20 66 72 6f 6d 20 74 68 65  Seconds from the
2e30: 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e 75 6d 62   julian day numb
2e40: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  er..*/.static vo
2e50: 69 64 20 63 6f 6d 70 75 74 65 48 4d 53 28 44 61  id computeHMS(Da
2e60: 74 65 54 69 6d 65 20 2a 70 29 7b 0a 20 20 69 6e  teTime *p){.  in
2e70: 74 20 73 3b 0a 20 20 69 66 28 20 70 2d 3e 76 61  t s;.  if( p->va
2e80: 6c 69 64 48 4d 53 20 29 20 72 65 74 75 72 6e 3b  lidHMS ) return;
2e90: 0a 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b  .  computeJD(p);
2ea0: 0a 20 20 73 20 3d 20 28 69 6e 74 29 28 28 70 2d  .  s = (int)((p-
2eb0: 3e 69 4a 44 20 2b 20 34 33 32 30 30 30 30 30 29  >iJD + 43200000)
2ec0: 20 25 20 38 36 34 30 30 30 30 30 29 3b 0a 20 20   % 86400000);.  
2ed0: 70 2d 3e 73 20 3d 20 73 2f 31 30 30 30 2e 30 3b  p->s = s/1000.0;
2ee0: 0a 20 20 73 20 3d 20 28 69 6e 74 29 70 2d 3e 73  .  s = (int)p->s
2ef0: 3b 0a 20 20 70 2d 3e 73 20 2d 3d 20 73 3b 0a 20  ;.  p->s -= s;. 
2f00: 20 70 2d 3e 68 20 3d 20 73 2f 33 36 30 30 3b 0a   p->h = s/3600;.
2f10: 20 20 73 20 2d 3d 20 70 2d 3e 68 2a 33 36 30 30    s -= p->h*3600
2f20: 3b 0a 20 20 70 2d 3e 6d 20 3d 20 73 2f 36 30 3b  ;.  p->m = s/60;
2f30: 0a 20 20 70 2d 3e 73 20 2b 3d 20 73 20 2d 20 70  .  p->s += s - p
2f40: 2d 3e 6d 2a 36 30 3b 0a 20 20 70 2d 3e 72 61 77  ->m*60;.  p->raw
2f50: 53 20 3d 20 30 3b 0a 20 20 70 2d 3e 76 61 6c 69  S = 0;.  p->vali
2f60: 64 48 4d 53 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a  dHMS = 1;.}../*.
2f70: 2a 2a 20 43 6f 6d 70 75 74 65 20 62 6f 74 68 20  ** Compute both 
2f80: 59 4d 44 20 61 6e 64 20 48 4d 53 0a 2a 2f 0a 73  YMD and HMS.*/.s
2f90: 74 61 74 69 63 20 76 6f 69 64 20 63 6f 6d 70 75  tatic void compu
2fa0: 74 65 59 4d 44 5f 48 4d 53 28 44 61 74 65 54 69  teYMD_HMS(DateTi
2fb0: 6d 65 20 2a 70 29 7b 0a 20 20 63 6f 6d 70 75 74  me *p){.  comput
2fc0: 65 59 4d 44 28 70 29 3b 0a 20 20 63 6f 6d 70 75  eYMD(p);.  compu
2fd0: 74 65 48 4d 53 28 70 29 3b 0a 7d 0a 0a 2f 2a 0a  teHMS(p);.}../*.
2fe0: 2a 2a 20 43 6c 65 61 72 20 74 68 65 20 59 4d 44  ** Clear the YMD
2ff0: 20 61 6e 64 20 48 4d 53 20 61 6e 64 20 74 68 65   and HMS and the
3000: 20 54 5a 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f   TZ.*/.static vo
3010: 69 64 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f  id clearYMD_HMS_
3020: 54 5a 28 44 61 74 65 54 69 6d 65 20 2a 70 29 7b  TZ(DateTime *p){
3030: 0a 20 20 70 2d 3e 76 61 6c 69 64 59 4d 44 20 3d  .  p->validYMD =
3040: 20 30 3b 0a 20 20 70 2d 3e 76 61 6c 69 64 48 4d   0;.  p->validHM
3050: 53 20 3d 20 30 3b 0a 20 20 70 2d 3e 76 61 6c 69  S = 0;.  p->vali
3060: 64 54 5a 20 3d 20 30 3b 0a 7d 0a 0a 23 69 66 6e  dTZ = 0;.}..#ifn
3070: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
3080: 4c 4f 43 41 4c 54 49 4d 45 0a 2f 2a 0a 2a 2a 20  LOCALTIME./*.** 
3090: 4f 6e 20 72 65 63 65 6e 74 20 57 69 6e 64 6f 77  On recent Window
30a0: 73 20 70 6c 61 74 66 6f 72 6d 73 2c 20 74 68 65  s platforms, the
30b0: 20 6c 6f 63 61 6c 74 69 6d 65 5f 73 28 29 20 66   localtime_s() f
30c0: 75 6e 63 74 69 6f 6e 20 69 73 20 61 76 61 69 6c  unction is avail
30d0: 61 62 6c 65 0a 2a 2a 20 61 73 20 70 61 72 74 20  able.** as part 
30e0: 6f 66 20 74 68 65 20 22 53 65 63 75 72 65 20 43  of the "Secure C
30f0: 52 54 22 2e 20 49 74 20 69 73 20 65 73 73 65 6e  RT". It is essen
3100: 74 69 61 6c 6c 79 20 65 71 75 69 76 61 6c 65 6e  tially equivalen
3110: 74 20 74 6f 20 0a 2a 2a 20 6c 6f 63 61 6c 74 69  t to .** localti
3120: 6d 65 5f 72 28 29 20 61 76 61 69 6c 61 62 6c 65  me_r() available
3130: 20 75 6e 64 65 72 20 6d 6f 73 74 20 50 4f 53 49   under most POSI
3140: 58 20 70 6c 61 74 66 6f 72 6d 73 2c 20 65 78 63  X platforms, exc
3150: 65 70 74 20 74 68 61 74 20 74 68 65 20 0a 2a 2a  ept that the .**
3160: 20 6f 72 64 65 72 20 6f 66 20 74 68 65 20 70 61   order of the pa
3170: 72 61 6d 65 74 65 72 73 20 69 73 20 72 65 76 65  rameters is reve
3180: 72 73 65 64 2e 0a 2a 2a 0a 2a 2a 20 53 65 65 20  rsed..**.** See 
3190: 68 74 74 70 3a 2f 2f 6d 73 64 6e 2e 6d 69 63 72  http://msdn.micr
31a0: 6f 73 6f 66 74 2e 63 6f 6d 2f 65 6e 2d 75 73 2f  osoft.com/en-us/
31b0: 6c 69 62 72 61 72 79 2f 61 34 34 32 78 33 79 65  library/a442x3ye
31c0: 28 56 53 2e 38 30 29 2e 61 73 70 78 2e 0a 2a 2a  (VS.80).aspx..**
31d0: 0a 2a 2a 20 49 66 20 74 68 65 20 75 73 65 72 20  .** If the user 
31e0: 68 61 73 20 6e 6f 74 20 69 6e 64 69 63 61 74 65  has not indicate
31f0: 64 20 74 6f 20 75 73 65 20 6c 6f 63 61 6c 74 69  d to use localti
3200: 6d 65 5f 72 28 29 20 6f 72 20 6c 6f 63 61 6c 74  me_r() or localt
3210: 69 6d 65 5f 73 28 29 0a 2a 2a 20 61 6c 72 65 61  ime_s().** alrea
3220: 64 79 2c 20 63 68 65 63 6b 20 66 6f 72 20 61 6e  dy, check for an
3230: 20 4d 53 56 43 20 62 75 69 6c 64 20 65 6e 76 69   MSVC build envi
3240: 72 6f 6e 6d 65 6e 74 20 74 68 61 74 20 70 72 6f  ronment that pro
3250: 76 69 64 65 73 20 0a 2a 2a 20 6c 6f 63 61 6c 74  vides .** localt
3260: 69 6d 65 5f 73 28 29 2e 0a 2a 2f 0a 23 69 66 20  ime_s()..*/.#if 
3270: 21 48 41 56 45 5f 4c 4f 43 41 4c 54 49 4d 45 5f  !HAVE_LOCALTIME_
3280: 52 20 26 26 20 21 48 41 56 45 5f 4c 4f 43 41 4c  R && !HAVE_LOCAL
3290: 54 49 4d 45 5f 53 20 5c 0a 20 20 20 20 26 26 20  TIME_S \.    && 
32a0: 64 65 66 69 6e 65 64 28 5f 4d 53 43 5f 56 45 52  defined(_MSC_VER
32b0: 29 20 26 26 20 64 65 66 69 6e 65 64 28 5f 43 52  ) && defined(_CR
32c0: 54 5f 49 4e 53 45 43 55 52 45 5f 44 45 50 52 45  T_INSECURE_DEPRE
32d0: 43 41 54 45 29 0a 23 75 6e 64 65 66 20 20 48 41  CATE).#undef  HA
32e0: 56 45 5f 4c 4f 43 41 4c 54 49 4d 45 5f 53 0a 23  VE_LOCALTIME_S.#
32f0: 64 65 66 69 6e 65 20 48 41 56 45 5f 4c 4f 43 41  define HAVE_LOCA
3300: 4c 54 49 4d 45 5f 53 20 31 0a 23 65 6e 64 69 66  LTIME_S 1.#endif
3310: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c  ../*.** The foll
3320: 6f 77 69 6e 67 20 72 6f 75 74 69 6e 65 20 69 6d  owing routine im
3330: 70 6c 65 6d 65 6e 74 73 20 74 68 65 20 72 6f 75  plements the rou
3340: 67 68 20 65 71 75 69 76 61 6c 65 6e 74 20 6f 66  gh equivalent of
3350: 20 6c 6f 63 61 6c 74 69 6d 65 5f 72 28 29 0a 2a   localtime_r().*
3360: 2a 20 75 73 69 6e 67 20 77 68 61 74 65 76 65 72  * using whatever
3370: 20 6f 70 65 72 61 74 69 6e 67 2d 73 79 73 74 65   operating-syste
3380: 6d 20 73 70 65 63 69 66 69 63 20 6c 6f 63 61 6c  m specific local
3390: 74 69 6d 65 20 66 61 63 69 6c 69 74 79 20 74 68  time facility th
33a0: 61 74 0a 2a 2a 20 69 73 20 61 76 61 69 6c 61 62  at.** is availab
33b0: 6c 65 2e 20 20 54 68 69 73 20 72 6f 75 74 69 6e  le.  This routin
33c0: 65 20 72 65 74 75 72 6e 73 20 30 20 6f 6e 20 73  e returns 0 on s
33d0: 75 63 63 65 73 73 20 61 6e 64 0a 2a 2a 20 6e 6f  uccess and.** no
33e0: 6e 2d 7a 65 72 6f 20 6f 6e 20 61 6e 79 20 6b 69  n-zero on any ki
33f0: 6e 64 20 6f 66 20 65 72 72 6f 72 2e 0a 2a 2a 0a  nd of error..**.
3400: 2a 2a 20 49 66 20 74 68 65 20 73 71 6c 69 74 65  ** If the sqlite
3410: 33 47 6c 6f 62 61 6c 43 6f 6e 66 69 67 2e 62 4c  3GlobalConfig.bL
3420: 6f 63 61 6c 74 69 6d 65 46 61 75 6c 74 20 76 61  ocaltimeFault va
3430: 72 69 61 62 6c 65 20 69 73 20 74 72 75 65 20 74  riable is true t
3440: 68 65 6e 20 74 68 69 73 0a 2a 2a 20 72 6f 75 74  hen this.** rout
3450: 69 6e 65 20 77 69 6c 6c 20 61 6c 77 61 79 73 20  ine will always 
3460: 66 61 69 6c 2e 0a 2a 2a 0a 2a 2a 20 45 56 49 44  fail..**.** EVID
3470: 45 4e 43 45 2d 4f 46 3a 20 52 2d 36 32 31 37 32  ENCE-OF: R-62172
3480: 2d 30 30 30 33 36 20 49 6e 20 74 68 69 73 20 69  -00036 In this i
3490: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 74  mplementation, t
34a0: 68 65 20 73 74 61 6e 64 61 72 64 20 43 0a 2a 2a  he standard C.**
34b0: 20 6c 69 62 72 61 72 79 20 66 75 6e 63 74 69 6f   library functio
34c0: 6e 20 6c 6f 63 61 6c 74 69 6d 65 5f 72 28 29 20  n localtime_r() 
34d0: 69 73 20 75 73 65 64 20 74 6f 20 61 73 73 69 73  is used to assis
34e0: 74 20 69 6e 20 74 68 65 20 63 61 6c 63 75 6c 61  t in the calcula
34f0: 74 69 6f 6e 20 6f 66 0a 2a 2a 20 6c 6f 63 61 6c  tion of.** local
3500: 20 74 69 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63   time..*/.static
3510: 20 69 6e 74 20 6f 73 4c 6f 63 61 6c 74 69 6d 65   int osLocaltime
3520: 28 74 69 6d 65 5f 74 20 2a 74 2c 20 73 74 72 75  (time_t *t, stru
3530: 63 74 20 74 6d 20 2a 70 54 6d 29 7b 0a 20 20 69  ct tm *pTm){.  i
3540: 6e 74 20 72 63 3b 0a 23 69 66 20 21 48 41 56 45  nt rc;.#if !HAVE
3550: 5f 4c 4f 43 41 4c 54 49 4d 45 5f 52 20 26 26 20  _LOCALTIME_R && 
3560: 21 48 41 56 45 5f 4c 4f 43 41 4c 54 49 4d 45 5f  !HAVE_LOCALTIME_
3570: 53 0a 20 20 73 74 72 75 63 74 20 74 6d 20 2a 70  S.  struct tm *p
3580: 58 3b 0a 23 69 66 20 53 51 4c 49 54 45 5f 54 48  X;.#if SQLITE_TH
3590: 52 45 41 44 53 41 46 45 3e 30 0a 20 20 73 71 6c  READSAFE>0.  sql
35a0: 69 74 65 33 5f 6d 75 74 65 78 20 2a 6d 75 74 65  ite3_mutex *mute
35b0: 78 20 3d 20 73 71 6c 69 74 65 33 4d 75 74 65 78  x = sqlite3Mutex
35c0: 41 6c 6c 6f 63 28 53 51 4c 49 54 45 5f 4d 55 54  Alloc(SQLITE_MUT
35d0: 45 58 5f 53 54 41 54 49 43 5f 4d 41 53 54 45 52  EX_STATIC_MASTER
35e0: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 73 71 6c 69  );.#endif.  sqli
35f0: 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74 65 72 28  te3_mutex_enter(
3600: 6d 75 74 65 78 29 3b 0a 20 20 70 58 20 3d 20 6c  mutex);.  pX = l
3610: 6f 63 61 6c 74 69 6d 65 28 74 29 3b 0a 23 69 66  ocaltime(t);.#if
3620: 6e 64 65 66 20 53 51 4c 49 54 45 5f 55 4e 54 45  ndef SQLITE_UNTE
3630: 53 54 41 42 4c 45 0a 20 20 69 66 28 20 73 71 6c  STABLE.  if( sql
3640: 69 74 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 69 67  ite3GlobalConfig
3650: 2e 62 4c 6f 63 61 6c 74 69 6d 65 46 61 75 6c 74  .bLocaltimeFault
3660: 20 29 20 70 58 20 3d 20 30 3b 0a 23 65 6e 64 69   ) pX = 0;.#endi
3670: 66 0a 20 20 69 66 28 20 70 58 20 29 20 2a 70 54  f.  if( pX ) *pT
3680: 6d 20 3d 20 2a 70 58 3b 0a 20 20 73 71 6c 69 74  m = *pX;.  sqlit
3690: 65 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 6d  e3_mutex_leave(m
36a0: 75 74 65 78 29 3b 0a 20 20 72 63 20 3d 20 70 58  utex);.  rc = pX
36b0: 3d 3d 30 3b 0a 23 65 6c 73 65 0a 23 69 66 6e 64  ==0;.#else.#ifnd
36c0: 65 66 20 53 51 4c 49 54 45 5f 55 4e 54 45 53 54  ef SQLITE_UNTEST
36d0: 41 42 4c 45 0a 20 20 69 66 28 20 73 71 6c 69 74  ABLE.  if( sqlit
36e0: 65 33 47 6c 6f 62 61 6c 43 6f 6e 66 69 67 2e 62  e3GlobalConfig.b
36f0: 4c 6f 63 61 6c 74 69 6d 65 46 61 75 6c 74 20 29  LocaltimeFault )
3700: 20 72 65 74 75 72 6e 20 31 3b 0a 23 65 6e 64 69   return 1;.#endi
3710: 66 0a 23 69 66 20 48 41 56 45 5f 4c 4f 43 41 4c  f.#if HAVE_LOCAL
3720: 54 49 4d 45 5f 52 0a 20 20 72 63 20 3d 20 6c 6f  TIME_R.  rc = lo
3730: 63 61 6c 74 69 6d 65 5f 72 28 74 2c 20 70 54 6d  caltime_r(t, pTm
3740: 29 3d 3d 30 3b 0a 23 65 6c 73 65 0a 20 20 72 63  )==0;.#else.  rc
3750: 20 3d 20 6c 6f 63 61 6c 74 69 6d 65 5f 73 28 70   = localtime_s(p
3760: 54 6d 2c 20 74 29 3b 0a 23 65 6e 64 69 66 20 2f  Tm, t);.#endif /
3770: 2a 20 48 41 56 45 5f 4c 4f 43 41 4c 54 49 4d 45  * HAVE_LOCALTIME
3780: 5f 52 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20  _R */.#endif /* 
3790: 48 41 56 45 5f 4c 4f 43 41 4c 54 49 4d 45 5f 52  HAVE_LOCALTIME_R
37a0: 20 7c 7c 20 48 41 56 45 5f 4c 4f 43 41 4c 54 49   || HAVE_LOCALTI
37b0: 4d 45 5f 53 20 2a 2f 0a 20 20 72 65 74 75 72 6e  ME_S */.  return
37c0: 20 72 63 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a   rc;.}.#endif /*
37d0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 43   SQLITE_OMIT_LOC
37e0: 41 4c 54 49 4d 45 20 2a 2f 0a 0a 0a 23 69 66 6e  ALTIME */...#ifn
37f0: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
3800: 4c 4f 43 41 4c 54 49 4d 45 0a 2f 2a 0a 2a 2a 20  LOCALTIME./*.** 
3810: 43 6f 6d 70 75 74 65 20 74 68 65 20 64 69 66 66  Compute the diff
3820: 65 72 65 6e 63 65 20 28 69 6e 20 6d 69 6c 6c 69  erence (in milli
3830: 73 65 63 6f 6e 64 73 29 20 62 65 74 77 65 65 6e  seconds) between
3840: 20 6c 6f 63 61 6c 74 69 6d 65 20 61 6e 64 20 55   localtime and U
3850: 54 43 0a 2a 2a 20 28 61 2e 6b 2e 61 2e 20 47 4d  TC.** (a.k.a. GM
3860: 54 29 20 66 6f 72 20 74 68 65 20 74 69 6d 65 20  T) for the time 
3870: 76 61 6c 75 65 20 70 20 77 68 65 72 65 20 70 20  value p where p 
3880: 69 73 20 69 6e 20 55 54 43 2e 20 49 66 20 6e 6f  is in UTC. If no
3890: 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 0a 2a   error occurs,.*
38a0: 2a 20 72 65 74 75 72 6e 20 74 68 69 73 20 76 61  * return this va
38b0: 6c 75 65 20 61 6e 64 20 73 65 74 20 2a 70 52 63  lue and set *pRc
38c0: 20 74 6f 20 53 51 4c 49 54 45 5f 4f 4b 2e 20 0a   to SQLITE_OK. .
38d0: 2a 2a 0a 2a 2a 20 4f 72 2c 20 69 66 20 61 6e 20  **.** Or, if an 
38e0: 65 72 72 6f 72 20 64 6f 65 73 20 6f 63 63 75 72  error does occur
38f0: 2c 20 73 65 74 20 2a 70 52 63 20 74 6f 20 53 51  , set *pRc to SQ
3900: 4c 49 54 45 5f 45 52 52 4f 52 2e 20 54 68 65 20  LITE_ERROR. The 
3910: 72 65 74 75 72 6e 65 64 20 76 61 6c 75 65 0a 2a  returned value.*
3920: 2a 20 69 73 20 75 6e 64 65 66 69 6e 65 64 20 69  * is undefined i
3930: 6e 20 74 68 69 73 20 63 61 73 65 2e 0a 2a 2f 0a  n this case..*/.
3940: 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f 69  static sqlite3_i
3950: 6e 74 36 34 20 6c 6f 63 61 6c 74 69 6d 65 4f 66  nt64 localtimeOf
3960: 66 73 65 74 28 0a 20 20 44 61 74 65 54 69 6d 65  fset(.  DateTime
3970: 20 2a 70 2c 20 20 20 20 20 20 20 20 20 20 20 20   *p,            
3980: 20 20 20 20 20 20 20 20 2f 2a 20 44 61 74 65 20          /* Date 
3990: 61 74 20 77 68 69 63 68 20 74 6f 20 63 61 6c 63  at which to calc
39a0: 75 6c 61 74 65 20 6f 66 66 73 65 74 20 2a 2f 0a  ulate offset */.
39b0: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78    sqlite3_contex
39c0: 74 20 2a 70 43 74 78 2c 20 20 20 20 20 20 20 20  t *pCtx,        
39d0: 20 20 2f 2a 20 57 72 69 74 65 20 65 72 72 6f 72    /* Write error
39e0: 20 68 65 72 65 20 69 66 20 6f 6e 65 20 6f 63 63   here if one occ
39f0: 75 72 73 20 2a 2f 0a 20 20 69 6e 74 20 2a 70 52  urs */.  int *pR
3a00: 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c               
3a10: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 55 54 3a           /* OUT:
3a20: 20 45 72 72 6f 72 20 63 6f 64 65 2e 20 53 51 4c   Error code. SQL
3a30: 49 54 45 5f 4f 4b 20 6f 72 20 45 52 52 4f 52 20  ITE_OK or ERROR 
3a40: 2a 2f 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65  */.){.  DateTime
3a50: 20 78 2c 20 79 3b 0a 20 20 74 69 6d 65 5f 74 20   x, y;.  time_t 
3a60: 74 3b 0a 20 20 73 74 72 75 63 74 20 74 6d 20 73  t;.  struct tm s
3a70: 4c 6f 63 61 6c 3b 0a 0a 20 20 2f 2a 20 49 6e 69  Local;..  /* Ini
3a80: 74 69 61 6c 69 7a 65 20 74 68 65 20 63 6f 6e 74  tialize the cont
3a90: 65 6e 74 73 20 6f 66 20 73 4c 6f 63 61 6c 20 74  ents of sLocal t
3aa0: 6f 20 61 76 6f 69 64 20 61 20 63 6f 6d 70 69 6c  o avoid a compil
3ab0: 65 72 20 77 61 72 6e 69 6e 67 2e 20 2a 2f 0a 20  er warning. */. 
3ac0: 20 6d 65 6d 73 65 74 28 26 73 4c 6f 63 61 6c 2c   memset(&sLocal,
3ad0: 20 30 2c 20 73 69 7a 65 6f 66 28 73 4c 6f 63 61   0, sizeof(sLoca
3ae0: 6c 29 29 3b 0a 0a 20 20 78 20 3d 20 2a 70 3b 0a  l));..  x = *p;.
3af0: 20 20 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53    computeYMD_HMS
3b00: 28 26 78 29 3b 0a 20 20 69 66 28 20 78 2e 59 3c  (&x);.  if( x.Y<
3b10: 31 39 37 31 20 7c 7c 20 78 2e 59 3e 3d 32 30 33  1971 || x.Y>=203
3b20: 38 20 29 7b 0a 20 20 20 20 2f 2a 20 45 56 49 44  8 ){.    /* EVID
3b30: 45 4e 43 45 2d 4f 46 3a 20 52 2d 35 35 32 36 39  ENCE-OF: R-55269
3b40: 2d 32 39 35 39 38 20 54 68 65 20 6c 6f 63 61 6c  -29598 The local
3b50: 74 69 6d 65 5f 72 28 29 20 43 20 66 75 6e 63 74  time_r() C funct
3b60: 69 6f 6e 20 6e 6f 72 6d 61 6c 6c 79 20 6f 6e 6c  ion normally onl
3b70: 79 0a 20 20 20 20 2a 2a 20 77 6f 72 6b 73 20 66  y.    ** works f
3b80: 6f 72 20 79 65 61 72 73 20 62 65 74 77 65 65 6e  or years between
3b90: 20 31 39 37 30 20 61 6e 64 20 32 30 33 37 2e 20   1970 and 2037. 
3ba0: 46 6f 72 20 64 61 74 65 73 20 6f 75 74 73 69 64  For dates outsid
3bb0: 65 20 74 68 69 73 20 72 61 6e 67 65 2c 0a 20 20  e this range,.  
3bc0: 20 20 2a 2a 20 53 51 4c 69 74 65 20 61 74 74 65    ** SQLite atte
3bd0: 6d 70 74 73 20 74 6f 20 6d 61 70 20 74 68 65 20  mpts to map the 
3be0: 79 65 61 72 20 69 6e 74 6f 20 61 6e 20 65 71 75  year into an equ
3bf0: 69 76 61 6c 65 6e 74 20 79 65 61 72 20 77 69 74  ivalent year wit
3c00: 68 69 6e 20 74 68 69 73 0a 20 20 20 20 2a 2a 20  hin this.    ** 
3c10: 72 61 6e 67 65 2c 20 64 6f 20 74 68 65 20 63 61  range, do the ca
3c20: 6c 63 75 6c 61 74 69 6f 6e 2c 20 74 68 65 6e 20  lculation, then 
3c30: 6d 61 70 20 74 68 65 20 79 65 61 72 20 62 61 63  map the year bac
3c40: 6b 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 78 2e  k..    */.    x.
3c50: 59 20 3d 20 32 30 30 30 3b 0a 20 20 20 20 78 2e  Y = 2000;.    x.
3c60: 4d 20 3d 20 31 3b 0a 20 20 20 20 78 2e 44 20 3d  M = 1;.    x.D =
3c70: 20 31 3b 0a 20 20 20 20 78 2e 68 20 3d 20 30 3b   1;.    x.h = 0;
3c80: 0a 20 20 20 20 78 2e 6d 20 3d 20 30 3b 0a 20 20  .    x.m = 0;.  
3c90: 20 20 78 2e 73 20 3d 20 30 2e 30 3b 0a 20 20 7d    x.s = 0.0;.  }
3ca0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 69 6e 74 20   else {.    int 
3cb0: 73 20 3d 20 28 69 6e 74 29 28 78 2e 73 20 2b 20  s = (int)(x.s + 
3cc0: 30 2e 35 29 3b 0a 20 20 20 20 78 2e 73 20 3d 20  0.5);.    x.s = 
3cd0: 73 3b 0a 20 20 7d 0a 20 20 78 2e 74 7a 20 3d 20  s;.  }.  x.tz = 
3ce0: 30 3b 0a 20 20 78 2e 76 61 6c 69 64 4a 44 20 3d  0;.  x.validJD =
3cf0: 20 30 3b 0a 20 20 63 6f 6d 70 75 74 65 4a 44 28   0;.  computeJD(
3d00: 26 78 29 3b 0a 20 20 74 20 3d 20 28 74 69 6d 65  &x);.  t = (time
3d10: 5f 74 29 28 78 2e 69 4a 44 2f 31 30 30 30 20 2d  _t)(x.iJD/1000 -
3d20: 20 32 31 30 38 36 36 37 36 2a 28 69 36 34 29 31   21086676*(i64)1
3d30: 30 30 30 30 29 3b 0a 20 20 69 66 28 20 6f 73 4c  0000);.  if( osL
3d40: 6f 63 61 6c 74 69 6d 65 28 26 74 2c 20 26 73 4c  ocaltime(&t, &sL
3d50: 6f 63 61 6c 29 20 29 7b 0a 20 20 20 20 73 71 6c  ocal) ){.    sql
3d60: 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f  ite3_result_erro
3d70: 72 28 70 43 74 78 2c 20 22 6c 6f 63 61 6c 20 74  r(pCtx, "local t
3d80: 69 6d 65 20 75 6e 61 76 61 69 6c 61 62 6c 65 22  ime unavailable"
3d90: 2c 20 2d 31 29 3b 0a 20 20 20 20 2a 70 52 63 20  , -1);.    *pRc 
3da0: 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a  = SQLITE_ERROR;.
3db0: 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20      return 0;.  
3dc0: 7d 0a 20 20 79 2e 59 20 3d 20 73 4c 6f 63 61 6c  }.  y.Y = sLocal
3dd0: 2e 74 6d 5f 79 65 61 72 20 2b 20 31 39 30 30 3b  .tm_year + 1900;
3de0: 0a 20 20 79 2e 4d 20 3d 20 73 4c 6f 63 61 6c 2e  .  y.M = sLocal.
3df0: 74 6d 5f 6d 6f 6e 20 2b 20 31 3b 0a 20 20 79 2e  tm_mon + 1;.  y.
3e00: 44 20 3d 20 73 4c 6f 63 61 6c 2e 74 6d 5f 6d 64  D = sLocal.tm_md
3e10: 61 79 3b 0a 20 20 79 2e 68 20 3d 20 73 4c 6f 63  ay;.  y.h = sLoc
3e20: 61 6c 2e 74 6d 5f 68 6f 75 72 3b 0a 20 20 79 2e  al.tm_hour;.  y.
3e30: 6d 20 3d 20 73 4c 6f 63 61 6c 2e 74 6d 5f 6d 69  m = sLocal.tm_mi
3e40: 6e 3b 0a 20 20 79 2e 73 20 3d 20 73 4c 6f 63 61  n;.  y.s = sLoca
3e50: 6c 2e 74 6d 5f 73 65 63 3b 0a 20 20 79 2e 76 61  l.tm_sec;.  y.va
3e60: 6c 69 64 59 4d 44 20 3d 20 31 3b 0a 20 20 79 2e  lidYMD = 1;.  y.
3e70: 76 61 6c 69 64 48 4d 53 20 3d 20 31 3b 0a 20 20  validHMS = 1;.  
3e80: 79 2e 76 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20  y.validJD = 0;. 
3e90: 20 79 2e 72 61 77 53 20 3d 20 30 3b 0a 20 20 79   y.rawS = 0;.  y
3ea0: 2e 76 61 6c 69 64 54 5a 20 3d 20 30 3b 0a 20 20  .validTZ = 0;.  
3eb0: 79 2e 69 73 45 72 72 6f 72 20 3d 20 30 3b 0a 20  y.isError = 0;. 
3ec0: 20 63 6f 6d 70 75 74 65 4a 44 28 26 79 29 3b 0a   computeJD(&y);.
3ed0: 20 20 2a 70 52 63 20 3d 20 53 51 4c 49 54 45 5f    *pRc = SQLITE_
3ee0: 4f 4b 3b 0a 20 20 72 65 74 75 72 6e 20 79 2e 69  OK;.  return y.i
3ef0: 4a 44 20 2d 20 78 2e 69 4a 44 3b 0a 7d 0a 23 65  JD - x.iJD;.}.#e
3f00: 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f  ndif /* SQLITE_O
3f10: 4d 49 54 5f 4c 4f 43 41 4c 54 49 4d 45 20 2a 2f  MIT_LOCALTIME */
3f20: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 6f 6c 6c  ../*.** The foll
3f30: 6f 77 69 6e 67 20 74 61 62 6c 65 20 64 65 66 69  owing table defi
3f40: 6e 65 73 20 76 61 72 69 6f 75 73 20 64 61 74 65  nes various date
3f50: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73   transformations
3f60: 20 6f 66 20 74 68 65 20 66 6f 72 6d 0a 2a 2a 0a   of the form.**.
3f70: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 27 4e  **            'N
3f80: 4e 4e 20 64 61 79 73 27 0a 2a 2a 0a 2a 2a 20 57  NN days'.**.** W
3f90: 68 65 72 65 20 4e 4e 4e 20 69 73 20 61 6e 20 61  here NNN is an a
3fa0: 72 62 69 74 72 61 72 79 20 66 6c 6f 61 74 69 6e  rbitrary floatin
3fb0: 67 2d 70 6f 69 6e 74 20 6e 75 6d 62 65 72 20 61  g-point number a
3fc0: 6e 64 20 22 64 61 79 73 22 20 63 61 6e 20 62 65  nd "days" can be
3fd0: 20 6f 6e 65 0a 2a 2a 20 6f 66 20 73 65 76 65 72   one.** of sever
3fe0: 61 6c 20 75 6e 69 74 73 20 6f 66 20 74 69 6d 65  al units of time
3ff0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73  ..*/.static cons
4000: 74 20 73 74 72 75 63 74 20 7b 0a 20 20 75 38 20  t struct {.  u8 
4010: 65 54 79 70 65 3b 20 20 20 20 20 20 20 20 20 20  eType;          
4020: 20 2f 2a 20 54 72 61 6e 73 66 6f 72 6d 61 74 69   /* Transformati
4030: 6f 6e 20 74 79 70 65 20 63 6f 64 65 20 2a 2f 0a  on type code */.
4040: 20 20 75 38 20 6e 4e 61 6d 65 3b 20 20 20 20 20    u8 nName;     
4050: 20 20 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 20        /* Length 
4060: 6f 66 20 74 68 20 6e 61 6d 65 20 2a 2f 0a 20 20  of th name */.  
4070: 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 20 20 20 20  char *zName;    
4080: 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74      /* Name of t
4090: 68 65 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f  he transformatio
40a0: 6e 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 72 4c  n */.  double rL
40b0: 69 6d 69 74 3b 20 20 20 20 20 20 2f 2a 20 4d 61  imit;      /* Ma
40c0: 78 69 6d 75 6d 20 4e 4e 4e 20 76 61 6c 75 65 20  ximum NNN value 
40d0: 66 6f 72 20 74 68 69 73 20 74 72 61 6e 73 66 6f  for this transfo
40e0: 72 6d 20 2a 2f 0a 20 20 64 6f 75 62 6c 65 20 72  rm */.  double r
40f0: 58 66 6f 72 6d 3b 20 20 20 20 20 20 2f 2a 20 43  Xform;      /* C
4100: 6f 6e 73 74 61 6e 74 20 75 73 65 64 20 66 6f 72  onstant used for
4110: 20 74 68 69 73 20 74 72 61 6e 73 66 6f 72 6d 20   this transform 
4120: 2a 2f 0a 7d 20 61 58 66 6f 72 6d 54 79 70 65 5b  */.} aXformType[
4130: 5d 20 3d 20 7b 0a 20 20 7b 20 30 2c 20 36 2c 20  ] = {.  { 0, 6, 
4140: 22 73 65 63 6f 6e 64 22 2c 20 34 36 34 32 36 39  "second", 464269
4150: 30 36 30 38 30 30 2e 30 2c 20 38 36 34 30 30 30  060800.0, 864000
4160: 30 30 2e 30 2f 28 32 34 2e 30 2a 36 30 2e 30 2a  00.0/(24.0*60.0*
4170: 36 30 2e 30 29 20 7d 2c 0a 20 20 7b 20 30 2c 20  60.0) },.  { 0, 
4180: 36 2c 20 22 6d 69 6e 75 74 65 22 2c 20 37 37 33  6, "minute", 773
4190: 37 38 31 37 36 38 30 2e 30 2c 20 20 20 38 36 34  7817680.0,   864
41a0: 30 30 30 30 30 2e 30 2f 28 32 34 2e 30 2a 36 30  00000.0/(24.0*60
41b0: 2e 30 29 20 20 20 20 20 20 7d 2c 0a 20 20 7b 20  .0)      },.  { 
41c0: 30 2c 20 34 2c 20 22 68 6f 75 72 22 2c 20 20 20  0, 4, "hour",   
41d0: 31 32 38 39 36 33 36 32 38 2e 30 2c 20 20 20 20  128963628.0,    
41e0: 38 36 34 30 30 30 30 30 2e 30 2f 32 34 2e 30 20  86400000.0/24.0 
41f0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
4200: 20 7b 20 30 2c 20 33 2c 20 22 64 61 79 22 2c 20   { 0, 3, "day", 
4210: 20 20 20 35 33 37 33 34 38 35 2e 30 2c 20 20 20     5373485.0,   
4220: 20 20 20 38 36 34 30 30 30 30 30 2e 30 20 20 20     86400000.0   
4230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d                 }
4240: 2c 0a 20 20 7b 20 31 2c 20 35 2c 20 22 6d 6f 6e  ,.  { 1, 5, "mon
4250: 74 68 22 2c 20 20 31 37 36 35 34 36 2e 30 2c 20  th",  176546.0, 
4260: 20 20 20 20 20 20 33 30 2e 30 2a 38 36 34 30 30        30.0*86400
4270: 30 30 30 2e 30 20 20 20 20 20 20 20 20 20 20 20  000.0           
4280: 20 20 7d 2c 0a 20 20 7b 20 32 2c 20 34 2c 20 22    },.  { 2, 4, "
4290: 79 65 61 72 22 2c 20 20 20 31 34 37 31 33 2e 30  year",   14713.0
42a0: 2c 20 20 20 20 20 20 20 20 33 36 35 2e 30 2a 38  ,        365.0*8
42b0: 36 34 30 30 30 30 30 2e 30 20 20 20 20 20 20 20  6400000.0       
42c0: 20 20 20 20 20 7d 2c 0a 7d 3b 0a 0a 2f 2a 0a 2a       },.};../*.*
42d0: 2a 20 50 72 6f 63 65 73 73 20 61 20 6d 6f 64 69  * Process a modi
42e0: 66 69 65 72 20 74 6f 20 61 20 64 61 74 65 2d 74  fier to a date-t
42f0: 69 6d 65 20 73 74 61 6d 70 2e 20 20 54 68 65 20  ime stamp.  The 
4300: 6d 6f 64 69 66 69 65 72 73 20 61 72 65 0a 2a 2a  modifiers are.**
4310: 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a   as follows:.**.
4320: 2a 2a 20 20 20 20 20 4e 4e 4e 20 64 61 79 73 0a  **     NNN days.
4330: 2a 2a 20 20 20 20 20 4e 4e 4e 20 68 6f 75 72 73  **     NNN hours
4340: 0a 2a 2a 20 20 20 20 20 4e 4e 4e 20 6d 69 6e 75  .**     NNN minu
4350: 74 65 73 0a 2a 2a 20 20 20 20 20 4e 4e 4e 2e 4e  tes.**     NNN.N
4360: 4e 4e 4e 20 73 65 63 6f 6e 64 73 0a 2a 2a 20 20  NNN seconds.**  
4370: 20 20 20 4e 4e 4e 20 6d 6f 6e 74 68 73 0a 2a 2a     NNN months.**
4380: 20 20 20 20 20 4e 4e 4e 20 79 65 61 72 73 0a 2a       NNN years.*
4390: 2a 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 6d  *     start of m
43a0: 6f 6e 74 68 0a 2a 2a 20 20 20 20 20 73 74 61 72  onth.**     star
43b0: 74 20 6f 66 20 79 65 61 72 0a 2a 2a 20 20 20 20  t of year.**    
43c0: 20 73 74 61 72 74 20 6f 66 20 77 65 65 6b 0a 2a   start of week.*
43d0: 2a 20 20 20 20 20 73 74 61 72 74 20 6f 66 20 64  *     start of d
43e0: 61 79 0a 2a 2a 20 20 20 20 20 77 65 65 6b 64 61  ay.**     weekda
43f0: 79 20 4e 0a 2a 2a 20 20 20 20 20 75 6e 69 78 65  y N.**     unixe
4400: 70 6f 63 68 0a 2a 2a 20 20 20 20 20 6c 6f 63 61  poch.**     loca
4410: 6c 74 69 6d 65 0a 2a 2a 20 20 20 20 20 75 74 63  ltime.**     utc
4420: 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 30 20  .**.** Return 0 
4430: 6f 6e 20 73 75 63 63 65 73 73 20 61 6e 64 20 31  on success and 1
4440: 20 69 66 20 74 68 65 72 65 20 69 73 20 61 6e 79   if there is any
4450: 20 6b 69 6e 64 20 6f 66 20 65 72 72 6f 72 2e 20   kind of error. 
4460: 49 66 20 74 68 65 20 65 72 72 6f 72 0a 2a 2a 20  If the error.** 
4470: 69 73 20 69 6e 20 61 20 73 79 73 74 65 6d 20 63  is in a system c
4480: 61 6c 6c 20 28 69 2e 65 2e 20 6c 6f 63 61 6c 74  all (i.e. localt
4490: 69 6d 65 28 29 29 2c 20 74 68 65 6e 20 61 6e 20  ime()), then an 
44a0: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 69 73  error message is
44b0: 20 77 72 69 74 74 65 6e 0a 2a 2a 20 74 6f 20 63   written.** to c
44c0: 6f 6e 74 65 78 74 20 70 43 74 78 2e 20 49 66 20  ontext pCtx. If 
44d0: 74 68 65 20 65 72 72 6f 72 20 69 73 20 61 6e 20  the error is an 
44e0: 75 6e 72 65 63 6f 67 6e 69 7a 65 64 20 6d 6f 64  unrecognized mod
44f0: 69 66 69 65 72 2c 20 6e 6f 20 65 72 72 6f 72 20  ifier, no error 
4500: 69 73 0a 2a 2a 20 77 72 69 74 74 65 6e 20 74 6f  is.** written to
4510: 20 70 43 74 78 2e 0a 2a 2f 0a 73 74 61 74 69 63   pCtx..*/.static
4520: 20 69 6e 74 20 70 61 72 73 65 4d 6f 64 69 66 69   int parseModifi
4530: 65 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  er(.  sqlite3_co
4540: 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 20 20 20  ntext *pCtx,    
4550: 20 20 2f 2a 20 46 75 6e 63 74 69 6f 6e 20 63 6f    /* Function co
4560: 6e 74 65 78 74 20 2a 2f 0a 20 20 63 6f 6e 73 74  ntext */.  const
4570: 20 63 68 61 72 20 2a 7a 2c 20 20 20 20 20 20 20   char *z,       
4580: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 74 65         /* The te
4590: 78 74 20 6f 66 20 74 68 65 20 6d 6f 64 69 66 69  xt of the modifi
45a0: 65 72 20 2a 2f 0a 20 20 69 6e 74 20 6e 2c 20 20  er */.  int n,  
45b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
45c0: 20 20 20 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66      /* Length of
45d0: 20 7a 4d 6f 64 20 69 6e 20 62 79 74 65 73 20 2a   zMod in bytes *
45e0: 2f 0a 20 20 44 61 74 65 54 69 6d 65 20 2a 70 20  /.  DateTime *p 
45f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4600: 2f 2a 20 54 68 65 20 64 61 74 65 2f 74 69 6d 65  /* The date/time
4610: 20 76 61 6c 75 65 20 74 6f 20 62 65 20 6d 6f 64   value to be mod
4620: 69 66 69 65 64 20 2a 2f 0a 29 7b 0a 20 20 69 6e  ified */.){.  in
4630: 74 20 72 63 20 3d 20 31 3b 0a 20 20 64 6f 75 62  t rc = 1;.  doub
4640: 6c 65 20 72 3b 0a 20 20 73 77 69 74 63 68 28 73  le r;.  switch(s
4650: 71 6c 69 74 65 33 55 70 70 65 72 54 6f 4c 6f 77  qlite3UpperToLow
4660: 65 72 5b 28 75 38 29 7a 5b 30 5d 5d 20 29 7b 0a  er[(u8)z[0]] ){.
4670: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f  #ifndef SQLITE_O
4680: 4d 49 54 5f 4c 4f 43 41 4c 54 49 4d 45 0a 20 20  MIT_LOCALTIME.  
4690: 20 20 63 61 73 65 20 27 6c 27 3a 20 7b 0a 20 20    case 'l': {.  
46a0: 20 20 20 20 2f 2a 20 20 20 20 6c 6f 63 61 6c 74      /*    localt
46b0: 69 6d 65 0a 20 20 20 20 20 20 2a 2a 0a 20 20 20  ime.      **.   
46c0: 20 20 20 2a 2a 20 41 73 73 75 6d 69 6e 67 20 74     ** Assuming t
46d0: 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20  he current time 
46e0: 76 61 6c 75 65 20 69 73 20 55 54 43 20 28 61 2e  value is UTC (a.
46f0: 6b 2e 61 2e 20 47 4d 54 29 2c 20 73 68 69 66 74  k.a. GMT), shift
4700: 20 69 74 20 74 6f 0a 20 20 20 20 20 20 2a 2a 20   it to.      ** 
4710: 73 68 6f 77 20 6c 6f 63 61 6c 20 74 69 6d 65 2e  show local time.
4720: 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20  .      */.      
4730: 69 66 28 20 73 71 6c 69 74 65 33 5f 73 74 72 69  if( sqlite3_stri
4740: 63 6d 70 28 7a 2c 20 22 6c 6f 63 61 6c 74 69 6d  cmp(z, "localtim
4750: 65 22 29 3d 3d 30 20 26 26 20 73 71 6c 69 74 65  e")==0 && sqlite
4760: 33 4e 6f 74 50 75 72 65 46 75 6e 63 28 70 43 74  3NotPureFunc(pCt
4770: 78 29 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f  x) ){.        co
4780: 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20 20 20  mputeJD(p);.    
4790: 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 6c 6f      p->iJD += lo
47a0: 63 61 6c 74 69 6d 65 4f 66 66 73 65 74 28 70 2c  caltimeOffset(p,
47b0: 20 70 43 74 78 2c 20 26 72 63 29 3b 0a 20 20 20   pCtx, &rc);.   
47c0: 20 20 20 20 20 63 6c 65 61 72 59 4d 44 5f 48 4d       clearYMD_HM
47d0: 53 5f 54 5a 28 70 29 3b 0a 20 20 20 20 20 20 7d  S_TZ(p);.      }
47e0: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
47f0: 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 63    }.#endif.    c
4800: 61 73 65 20 27 75 27 3a 20 7b 0a 20 20 20 20 20  ase 'u': {.     
4810: 20 2f 2a 0a 20 20 20 20 20 20 2a 2a 20 20 20 20   /*.      **    
4820: 75 6e 69 78 65 70 6f 63 68 0a 20 20 20 20 20 20  unixepoch.      
4830: 2a 2a 0a 20 20 20 20 20 20 2a 2a 20 54 72 65 61  **.      ** Trea
4840: 74 20 74 68 65 20 63 75 72 72 65 6e 74 20 76 61  t the current va
4850: 6c 75 65 20 6f 66 20 70 2d 3e 73 20 61 73 20 74  lue of p->s as t
4860: 68 65 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 20  he number of.   
4870: 20 20 20 2a 2a 20 73 65 63 6f 6e 64 73 20 73 69     ** seconds si
4880: 6e 63 65 20 31 39 37 30 2e 20 20 43 6f 6e 76 65  nce 1970.  Conve
4890: 72 74 20 74 6f 20 61 20 72 65 61 6c 20 6a 75 6c  rt to a real jul
48a0: 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 2e 0a  ian day number..
48b0: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 69        */.      i
48c0: 66 28 20 73 71 6c 69 74 65 33 5f 73 74 72 69 63  f( sqlite3_stric
48d0: 6d 70 28 7a 2c 20 22 75 6e 69 78 65 70 6f 63 68  mp(z, "unixepoch
48e0: 22 29 3d 3d 30 20 26 26 20 70 2d 3e 72 61 77 53  ")==0 && p->rawS
48f0: 20 29 7b 0a 20 20 20 20 20 20 20 20 72 20 3d 20   ){.        r = 
4900: 70 2d 3e 73 2a 31 30 30 30 2e 30 20 2b 20 32 31  p->s*1000.0 + 21
4910: 30 38 36 36 37 36 30 30 30 30 30 30 30 2e 30 3b  0866760000000.0;
4920: 0a 20 20 20 20 20 20 20 20 69 66 28 20 72 3e 3d  .        if( r>=
4930: 30 2e 30 20 26 26 20 72 3c 34 36 34 32 36 39 30  0.0 && r<4642690
4940: 36 30 38 30 30 30 30 30 2e 30 20 29 7b 0a 20 20  60800000.0 ){.  
4950: 20 20 20 20 20 20 20 20 63 6c 65 61 72 59 4d 44          clearYMD
4960: 5f 48 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 20 20  _HMS_TZ(p);.    
4970: 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 3d 20 28        p->iJD = (
4980: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 72 3b  sqlite3_int64)r;
4990: 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e 76 61  .          p->va
49a0: 6c 69 64 4a 44 20 3d 20 31 3b 0a 20 20 20 20 20  lidJD = 1;.     
49b0: 20 20 20 20 20 70 2d 3e 72 61 77 53 20 3d 20 30       p->rawS = 0
49c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 3d  ;.          rc =
49d0: 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20   0;.        }.  
49e0: 20 20 20 20 7d 0a 23 69 66 6e 64 65 66 20 53 51      }.#ifndef SQ
49f0: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 43 41 4c 54  LITE_OMIT_LOCALT
4a00: 49 4d 45 0a 20 20 20 20 20 20 65 6c 73 65 20 69  IME.      else i
4a10: 66 28 20 73 71 6c 69 74 65 33 5f 73 74 72 69 63  f( sqlite3_stric
4a20: 6d 70 28 7a 2c 20 22 75 74 63 22 29 3d 3d 30 20  mp(z, "utc")==0 
4a30: 26 26 20 73 71 6c 69 74 65 33 4e 6f 74 50 75 72  && sqlite3NotPur
4a40: 65 46 75 6e 63 28 70 43 74 78 29 20 29 7b 0a 20  eFunc(pCtx) ){. 
4a50: 20 20 20 20 20 20 20 69 66 28 20 70 2d 3e 74 7a         if( p->tz
4a60: 53 65 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  Set==0 ){.      
4a70: 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36      sqlite3_int6
4a80: 34 20 63 31 3b 0a 20 20 20 20 20 20 20 20 20 20  4 c1;.          
4a90: 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20  computeJD(p);.  
4aa0: 20 20 20 20 20 20 20 20 63 31 20 3d 20 6c 6f 63          c1 = loc
4ab0: 61 6c 74 69 6d 65 4f 66 66 73 65 74 28 70 2c 20  altimeOffset(p, 
4ac0: 70 43 74 78 2c 20 26 72 63 29 3b 0a 20 20 20 20  pCtx, &rc);.    
4ad0: 20 20 20 20 20 20 69 66 28 20 72 63 3d 3d 53 51        if( rc==SQ
4ae0: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20  LITE_OK ){.     
4af0: 20 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 2d 3d         p->iJD -=
4b00: 20 63 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20   c1;.           
4b10: 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a   clearYMD_HMS_TZ
4b20: 28 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  (p);.           
4b30: 20 70 2d 3e 69 4a 44 20 2b 3d 20 63 31 20 2d 20   p->iJD += c1 - 
4b40: 6c 6f 63 61 6c 74 69 6d 65 4f 66 66 73 65 74 28  localtimeOffset(
4b50: 70 2c 20 70 43 74 78 2c 20 26 72 63 29 3b 0a 20  p, pCtx, &rc);. 
4b60: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
4b70: 20 20 20 20 20 70 2d 3e 74 7a 53 65 74 20 3d 20       p->tzSet = 
4b80: 31 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65  1;.        }else
4b90: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 3d  {.          rc =
4ba0: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 20 20   SQLITE_OK;.    
4bb0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 23 65      }.      }.#e
4bc0: 6e 64 69 66 0a 20 20 20 20 20 20 62 72 65 61 6b  ndif.      break
4bd0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65  ;.    }.    case
4be0: 20 27 77 27 3a 20 7b 0a 20 20 20 20 20 20 2f 2a   'w': {.      /*
4bf0: 0a 20 20 20 20 20 20 2a 2a 20 20 20 20 77 65 65  .      **    wee
4c00: 6b 64 61 79 20 4e 0a 20 20 20 20 20 20 2a 2a 0a  kday N.      **.
4c10: 20 20 20 20 20 20 2a 2a 20 4d 6f 76 65 20 74 68        ** Move th
4c20: 65 20 64 61 74 65 20 74 6f 20 74 68 65 20 73 61  e date to the sa
4c30: 6d 65 20 74 69 6d 65 20 6f 6e 20 74 68 65 20 6e  me time on the n
4c40: 65 78 74 20 6f 63 63 75 72 72 65 6e 63 65 20 6f  ext occurrence o
4c50: 66 0a 20 20 20 20 20 20 2a 2a 20 77 65 65 6b 64  f.      ** weekd
4c60: 61 79 20 4e 20 77 68 65 72 65 20 30 3d 3d 53 75  ay N where 0==Su
4c70: 6e 64 61 79 2c 20 31 3d 3d 4d 6f 6e 64 61 79 2c  nday, 1==Monday,
4c80: 20 61 6e 64 20 73 6f 20 66 6f 72 74 68 2e 20 20   and so forth.  
4c90: 49 66 20 74 68 65 0a 20 20 20 20 20 20 2a 2a 20  If the.      ** 
4ca0: 64 61 74 65 20 69 73 20 61 6c 72 65 61 64 79 20  date is already 
4cb0: 6f 6e 20 74 68 65 20 61 70 70 72 6f 70 72 69 61  on the appropria
4cc0: 74 65 20 77 65 65 6b 64 61 79 2c 20 74 68 69 73  te weekday, this
4cd0: 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 20 20 20   is a no-op..   
4ce0: 20 20 20 2a 2f 0a 20 20 20 20 20 20 69 66 28 20     */.      if( 
4cf0: 73 71 6c 69 74 65 33 5f 73 74 72 6e 69 63 6d 70  sqlite3_strnicmp
4d00: 28 7a 2c 20 22 77 65 65 6b 64 61 79 20 22 2c 20  (z, "weekday ", 
4d10: 38 29 3d 3d 30 0a 20 20 20 20 20 20 20 20 20 20  8)==0.          
4d20: 20 20 20 20 20 26 26 20 73 71 6c 69 74 65 33 41       && sqlite3A
4d30: 74 6f 46 28 26 7a 5b 38 5d 2c 20 26 72 2c 20 73  toF(&z[8], &r, s
4d40: 71 6c 69 74 65 33 53 74 72 6c 65 6e 33 30 28 26  qlite3Strlen30(&
4d50: 7a 5b 38 5d 29 2c 20 53 51 4c 49 54 45 5f 55 54  z[8]), SQLITE_UT
4d60: 46 38 29 3e 30 0a 20 20 20 20 20 20 20 20 20 20  F8)>0.          
4d70: 20 20 20 20 20 26 26 20 28 6e 3d 28 69 6e 74 29       && (n=(int)
4d80: 72 29 3d 3d 72 20 26 26 20 6e 3e 3d 30 20 26 26  r)==r && n>=0 &&
4d90: 20 72 3c 37 20 29 7b 0a 20 20 20 20 20 20 20 20   r<7 ){.        
4da0: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 5a 3b  sqlite3_int64 Z;
4db0: 0a 20 20 20 20 20 20 20 20 63 6f 6d 70 75 74 65  .        compute
4dc0: 59 4d 44 5f 48 4d 53 28 70 29 3b 0a 20 20 20 20  YMD_HMS(p);.    
4dd0: 20 20 20 20 70 2d 3e 76 61 6c 69 64 54 5a 20 3d      p->validTZ =
4de0: 20 30 3b 0a 20 20 20 20 20 20 20 20 70 2d 3e 76   0;.        p->v
4df0: 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20  alidJD = 0;.    
4e00: 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29      computeJD(p)
4e10: 3b 0a 20 20 20 20 20 20 20 20 5a 20 3d 20 28 28  ;.        Z = ((
4e20: 70 2d 3e 69 4a 44 20 2b 20 31 32 39 36 30 30 30  p->iJD + 1296000
4e30: 30 30 29 2f 38 36 34 30 30 30 30 30 29 20 25 20  00)/86400000) % 
4e40: 37 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 5a  7;.        if( Z
4e50: 3e 6e 20 29 20 5a 20 2d 3d 20 37 3b 0a 20 20 20  >n ) Z -= 7;.   
4e60: 20 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 28       p->iJD += (
4e70: 6e 20 2d 20 5a 29 2a 38 36 34 30 30 30 30 30 3b  n - Z)*86400000;
4e80: 0a 20 20 20 20 20 20 20 20 63 6c 65 61 72 59 4d  .        clearYM
4e90: 44 5f 48 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 20  D_HMS_TZ(p);.   
4ea0: 20 20 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 20       rc = 0;.   
4eb0: 20 20 20 7d 0a 20 20 20 20 20 20 62 72 65 61 6b     }.      break
4ec0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65  ;.    }.    case
4ed0: 20 27 73 27 3a 20 7b 0a 20 20 20 20 20 20 2f 2a   's': {.      /*
4ee0: 0a 20 20 20 20 20 20 2a 2a 20 20 20 20 73 74 61  .      **    sta
4ef0: 72 74 20 6f 66 20 54 54 54 54 54 0a 20 20 20 20  rt of TTTTT.    
4f00: 20 20 2a 2a 0a 20 20 20 20 20 20 2a 2a 20 4d 6f    **.      ** Mo
4f10: 76 65 20 74 68 65 20 64 61 74 65 20 62 61 63 6b  ve the date back
4f20: 77 61 72 64 73 20 74 6f 20 74 68 65 20 62 65 67  wards to the beg
4f30: 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 63 75  inning of the cu
4f40: 72 72 65 6e 74 20 64 61 79 2c 0a 20 20 20 20 20  rrent day,.     
4f50: 20 2a 2a 20 6f 72 20 6d 6f 6e 74 68 20 6f 72 20   ** or month or 
4f60: 79 65 61 72 2e 0a 20 20 20 20 20 20 2a 2f 0a 20  year..      */. 
4f70: 20 20 20 20 20 69 66 28 20 73 71 6c 69 74 65 33       if( sqlite3
4f80: 5f 73 74 72 6e 69 63 6d 70 28 7a 2c 20 22 73 74  _strnicmp(z, "st
4f90: 61 72 74 20 6f 66 20 22 2c 20 39 29 21 3d 30 20  art of ", 9)!=0 
4fa0: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 69  ) break;.      i
4fb0: 66 28 20 21 70 2d 3e 76 61 6c 69 64 4a 44 20 26  f( !p->validJD &
4fc0: 26 20 21 70 2d 3e 76 61 6c 69 64 59 4d 44 20 26  & !p->validYMD &
4fd0: 26 20 21 70 2d 3e 76 61 6c 69 64 48 4d 53 20 29  & !p->validHMS )
4fe0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7a 20   break;.      z 
4ff0: 2b 3d 20 39 3b 0a 20 20 20 20 20 20 63 6f 6d 70  += 9;.      comp
5000: 75 74 65 59 4d 44 28 70 29 3b 0a 20 20 20 20 20  uteYMD(p);.     
5010: 20 70 2d 3e 76 61 6c 69 64 48 4d 53 20 3d 20 31   p->validHMS = 1
5020: 3b 0a 20 20 20 20 20 20 70 2d 3e 68 20 3d 20 70  ;.      p->h = p
5030: 2d 3e 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  ->m = 0;.      p
5040: 2d 3e 73 20 3d 20 30 2e 30 3b 0a 20 20 20 20 20  ->s = 0.0;.     
5050: 20 70 2d 3e 72 61 77 53 20 3d 20 30 3b 0a 20 20   p->rawS = 0;.  
5060: 20 20 20 20 70 2d 3e 76 61 6c 69 64 54 5a 20 3d      p->validTZ =
5070: 20 30 3b 0a 20 20 20 20 20 20 70 2d 3e 76 61 6c   0;.      p->val
5080: 69 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20 20 20  idJD = 0;.      
5090: 69 66 28 20 73 71 6c 69 74 65 33 5f 73 74 72 69  if( sqlite3_stri
50a0: 63 6d 70 28 7a 2c 22 6d 6f 6e 74 68 22 29 3d 3d  cmp(z,"month")==
50b0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70 2d 3e  0 ){.        p->
50c0: 44 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 72  D = 1;.        r
50d0: 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d 65 6c  c = 0;.      }el
50e0: 73 65 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73  se if( sqlite3_s
50f0: 74 72 69 63 6d 70 28 7a 2c 22 79 65 61 72 22 29  tricmp(z,"year")
5100: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 70  ==0 ){.        p
5110: 2d 3e 4d 20 3d 20 31 3b 0a 20 20 20 20 20 20 20  ->M = 1;.       
5120: 20 70 2d 3e 44 20 3d 20 31 3b 0a 20 20 20 20 20   p->D = 1;.     
5130: 20 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20     rc = 0;.     
5140: 20 7d 65 6c 73 65 20 69 66 28 20 73 71 6c 69 74   }else if( sqlit
5150: 65 33 5f 73 74 72 69 63 6d 70 28 7a 2c 22 64 61  e3_stricmp(z,"da
5160: 79 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  y")==0 ){.      
5170: 20 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20    rc = 0;.      
5180: 7d 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  }.      break;. 
5190: 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 27 2b     }.    case '+
51a0: 27 3a 0a 20 20 20 20 63 61 73 65 20 27 2d 27 3a  ':.    case '-':
51b0: 0a 20 20 20 20 63 61 73 65 20 27 30 27 3a 0a 20  .    case '0':. 
51c0: 20 20 20 63 61 73 65 20 27 31 27 3a 0a 20 20 20     case '1':.   
51d0: 20 63 61 73 65 20 27 32 27 3a 0a 20 20 20 20 63   case '2':.    c
51e0: 61 73 65 20 27 33 27 3a 0a 20 20 20 20 63 61 73  ase '3':.    cas
51f0: 65 20 27 34 27 3a 0a 20 20 20 20 63 61 73 65 20  e '4':.    case 
5200: 27 35 27 3a 0a 20 20 20 20 63 61 73 65 20 27 36  '5':.    case '6
5210: 27 3a 0a 20 20 20 20 63 61 73 65 20 27 37 27 3a  ':.    case '7':
5220: 0a 20 20 20 20 63 61 73 65 20 27 38 27 3a 0a 20  .    case '8':. 
5230: 20 20 20 63 61 73 65 20 27 39 27 3a 20 7b 0a 20     case '9': {. 
5240: 20 20 20 20 20 64 6f 75 62 6c 65 20 72 52 6f 75       double rRou
5250: 6e 64 65 72 3b 0a 20 20 20 20 20 20 69 6e 74 20  nder;.      int 
5260: 69 3b 0a 20 20 20 20 20 20 66 6f 72 28 6e 3d 31  i;.      for(n=1
5270: 3b 20 7a 5b 6e 5d 20 26 26 20 7a 5b 6e 5d 21 3d  ; z[n] && z[n]!=
5280: 27 3a 27 20 26 26 20 21 73 71 6c 69 74 65 33 49  ':' && !sqlite3I
5290: 73 73 70 61 63 65 28 7a 5b 6e 5d 29 3b 20 6e 2b  sspace(z[n]); n+
52a0: 2b 29 7b 7d 0a 20 20 20 20 20 20 69 66 28 20 73  +){}.      if( s
52b0: 71 6c 69 74 65 33 41 74 6f 46 28 7a 2c 20 26 72  qlite3AtoF(z, &r
52c0: 2c 20 6e 2c 20 53 51 4c 49 54 45 5f 55 54 46 38  , n, SQLITE_UTF8
52d0: 29 3c 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20  )<=0 ){.        
52e0: 72 63 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20  rc = 1;.        
52f0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20  break;.      }. 
5300: 20 20 20 20 20 69 66 28 20 7a 5b 6e 5d 3d 3d 27       if( z[n]=='
5310: 3a 27 20 29 7b 0a 20 20 20 20 20 20 20 20 2f 2a  :' ){.        /*
5320: 20 41 20 6d 6f 64 69 66 69 65 72 20 6f 66 20 74   A modifier of t
5330: 68 65 20 66 6f 72 6d 20 28 2b 7c 2d 29 48 48 3a  he form (+|-)HH:
5340: 4d 4d 3a 53 53 2e 46 46 46 20 61 64 64 73 20 28  MM:SS.FFF adds (
5350: 6f 72 20 73 75 62 74 72 61 63 74 73 29 20 74 68  or subtracts) th
5360: 65 0a 20 20 20 20 20 20 20 20 2a 2a 20 73 70 65  e.        ** spe
5370: 63 69 66 69 65 64 20 6e 75 6d 62 65 72 20 6f 66  cified number of
5380: 20 68 6f 75 72 73 2c 20 6d 69 6e 75 74 65 73 2c   hours, minutes,
5390: 20 73 65 63 6f 6e 64 73 2c 20 61 6e 64 20 66 72   seconds, and fr
53a0: 61 63 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 73  actional seconds
53b0: 0a 20 20 20 20 20 20 20 20 2a 2a 20 74 6f 20 74  .        ** to t
53c0: 68 65 20 74 69 6d 65 2e 20 20 54 68 65 20 22 2e  he time.  The ".
53d0: 46 46 46 22 20 6d 61 79 20 62 65 20 6f 6d 69 74  FFF" may be omit
53e0: 74 65 64 2e 20 20 54 68 65 20 22 3a 53 53 2e 46  ted.  The ":SS.F
53f0: 46 46 22 20 6d 61 79 20 62 65 0a 20 20 20 20 20  FF" may be.     
5400: 20 20 20 2a 2a 20 6f 6d 69 74 74 65 64 2e 0a 20     ** omitted.. 
5410: 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20         */.      
5420: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 32    const char *z2
5430: 20 3d 20 7a 3b 0a 20 20 20 20 20 20 20 20 44 61   = z;.        Da
5440: 74 65 54 69 6d 65 20 74 78 3b 0a 20 20 20 20 20  teTime tx;.     
5450: 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34     sqlite3_int64
5460: 20 64 61 79 3b 0a 20 20 20 20 20 20 20 20 69 66   day;.        if
5470: 28 20 21 73 71 6c 69 74 65 33 49 73 64 69 67 69  ( !sqlite3Isdigi
5480: 74 28 2a 7a 32 29 20 29 20 7a 32 2b 2b 3b 0a 20  t(*z2) ) z2++;. 
5490: 20 20 20 20 20 20 20 6d 65 6d 73 65 74 28 26 74         memset(&t
54a0: 78 2c 20 30 2c 20 73 69 7a 65 6f 66 28 74 78 29  x, 0, sizeof(tx)
54b0: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70  );.        if( p
54c0: 61 72 73 65 48 68 4d 6d 53 73 28 7a 32 2c 20 26  arseHhMmSs(z2, &
54d0: 74 78 29 20 29 20 62 72 65 61 6b 3b 0a 20 20 20  tx) ) break;.   
54e0: 20 20 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 26       computeJD(&
54f0: 74 78 29 3b 0a 20 20 20 20 20 20 20 20 74 78 2e  tx);.        tx.
5500: 69 4a 44 20 2d 3d 20 34 33 32 30 30 30 30 30 3b  iJD -= 43200000;
5510: 0a 20 20 20 20 20 20 20 20 64 61 79 20 3d 20 74  .        day = t
5520: 78 2e 69 4a 44 2f 38 36 34 30 30 30 30 30 3b 0a  x.iJD/86400000;.
5530: 20 20 20 20 20 20 20 20 74 78 2e 69 4a 44 20 2d          tx.iJD -
5540: 3d 20 64 61 79 2a 38 36 34 30 30 30 30 30 3b 0a  = day*86400000;.
5550: 20 20 20 20 20 20 20 20 69 66 28 20 7a 5b 30 5d          if( z[0]
5560: 3d 3d 27 2d 27 20 29 20 74 78 2e 69 4a 44 20 3d  =='-' ) tx.iJD =
5570: 20 2d 74 78 2e 69 4a 44 3b 0a 20 20 20 20 20 20   -tx.iJD;.      
5580: 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a    computeJD(p);.
5590: 20 20 20 20 20 20 20 20 63 6c 65 61 72 59 4d 44          clearYMD
55a0: 5f 48 4d 53 5f 54 5a 28 70 29 3b 0a 20 20 20 20  _HMS_TZ(p);.    
55b0: 20 20 20 20 70 2d 3e 69 4a 44 20 2b 3d 20 74 78      p->iJD += tx
55c0: 2e 69 4a 44 3b 0a 20 20 20 20 20 20 20 20 72 63  .iJD;.        rc
55d0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 62 72   = 0;.        br
55e0: 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 0a 20 20  eak;.      }..  
55f0: 20 20 20 20 2f 2a 20 49 66 20 63 6f 6e 74 72 6f      /* If contro
5600: 6c 20 72 65 61 63 68 65 73 20 74 68 69 73 20 70  l reaches this p
5610: 6f 69 6e 74 2c 20 69 74 20 6d 65 61 6e 73 20 74  oint, it means t
5620: 68 65 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f  he transformatio
5630: 6e 20 69 73 0a 20 20 20 20 20 20 2a 2a 20 6f 6e  n is.      ** on
5640: 65 20 6f 66 20 74 68 65 20 66 6f 72 6d 73 20 6c  e of the forms l
5650: 69 6b 65 20 22 2b 4e 4e 4e 20 64 61 79 73 22 2e  ike "+NNN days".
5660: 20 20 2a 2f 0a 20 20 20 20 20 20 7a 20 2b 3d 20    */.      z += 
5670: 6e 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20  n;.      while( 
5680: 73 71 6c 69 74 65 33 49 73 73 70 61 63 65 28 2a  sqlite3Isspace(*
5690: 7a 29 20 29 20 7a 2b 2b 3b 0a 20 20 20 20 20 20  z) ) z++;.      
56a0: 6e 20 3d 20 73 71 6c 69 74 65 33 53 74 72 6c 65  n = sqlite3Strle
56b0: 6e 33 30 28 7a 29 3b 0a 20 20 20 20 20 20 69 66  n30(z);.      if
56c0: 28 20 6e 3e 31 30 20 7c 7c 20 6e 3c 33 20 29 20  ( n>10 || n<3 ) 
56d0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 69 66 28  break;.      if(
56e0: 20 73 71 6c 69 74 65 33 55 70 70 65 72 54 6f 4c   sqlite3UpperToL
56f0: 6f 77 65 72 5b 28 75 38 29 7a 5b 6e 2d 31 5d 5d  ower[(u8)z[n-1]]
5700: 3d 3d 27 73 27 20 29 20 6e 2d 2d 3b 0a 20 20 20  =='s' ) n--;.   
5710: 20 20 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b     computeJD(p);
5720: 0a 20 20 20 20 20 20 72 63 20 3d 20 31 3b 0a 20  .      rc = 1;. 
5730: 20 20 20 20 20 72 52 6f 75 6e 64 65 72 20 3d 20       rRounder = 
5740: 72 3c 30 20 3f 20 2d 30 2e 35 20 3a 20 2b 30 2e  r<0 ? -0.5 : +0.
5750: 35 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30  5;.      for(i=0
5760: 3b 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61 58  ; i<ArraySize(aX
5770: 66 6f 72 6d 54 79 70 65 29 3b 20 69 2b 2b 29 7b  formType); i++){
5780: 0a 20 20 20 20 20 20 20 20 69 66 28 20 61 58 66  .        if( aXf
5790: 6f 72 6d 54 79 70 65 5b 69 5d 2e 6e 4e 61 6d 65  ormType[i].nName
57a0: 3d 3d 6e 0a 20 20 20 20 20 20 20 20 20 26 26 20  ==n.         && 
57b0: 73 71 6c 69 74 65 33 5f 73 74 72 6e 69 63 6d 70  sqlite3_strnicmp
57c0: 28 61 58 66 6f 72 6d 54 79 70 65 5b 69 5d 2e 7a  (aXformType[i].z
57d0: 4e 61 6d 65 2c 20 7a 2c 20 6e 29 3d 3d 30 0a 20  Name, z, n)==0. 
57e0: 20 20 20 20 20 20 20 20 26 26 20 72 3e 2d 61 58          && r>-aX
57f0: 66 6f 72 6d 54 79 70 65 5b 69 5d 2e 72 4c 69 6d  formType[i].rLim
5800: 69 74 20 26 26 20 72 3c 61 58 66 6f 72 6d 54 79  it && r<aXformTy
5810: 70 65 5b 69 5d 2e 72 4c 69 6d 69 74 0a 20 20 20  pe[i].rLimit.   
5820: 20 20 20 20 20 29 7b 0a 20 20 20 20 20 20 20 20       ){.        
5830: 20 20 73 77 69 74 63 68 28 20 61 58 66 6f 72 6d    switch( aXform
5840: 54 79 70 65 5b 69 5d 2e 65 54 79 70 65 20 29 7b  Type[i].eType ){
5850: 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 73  .            cas
5860: 65 20 31 3a 20 7b 20 2f 2a 20 53 70 65 63 69 61  e 1: { /* Specia
5870: 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 74 6f 20  l processing to 
5880: 61 64 64 20 6d 6f 6e 74 68 73 20 2a 2f 0a 20 20  add months */.  
5890: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20              int 
58a0: 78 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  x;.             
58b0: 20 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28   computeYMD_HMS(
58c0: 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  p);.            
58d0: 20 20 70 2d 3e 4d 20 2b 3d 20 28 69 6e 74 29 72    p->M += (int)r
58e0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
58f0: 78 20 3d 20 70 2d 3e 4d 3e 30 20 3f 20 28 70 2d  x = p->M>0 ? (p-
5900: 3e 4d 2d 31 29 2f 31 32 20 3a 20 28 70 2d 3e 4d  >M-1)/12 : (p->M
5910: 2d 31 32 29 2f 31 32 3b 0a 20 20 20 20 20 20 20  -12)/12;.       
5920: 20 20 20 20 20 20 20 70 2d 3e 59 20 2b 3d 20 78         p->Y += x
5930: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
5940: 70 2d 3e 4d 20 2d 3d 20 78 2a 31 32 3b 0a 20 20  p->M -= x*12;.  
5950: 20 20 20 20 20 20 20 20 20 20 20 20 70 2d 3e 76              p->v
5960: 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20  alidJD = 0;.    
5970: 20 20 20 20 20 20 20 20 20 20 72 20 2d 3d 20 28            r -= (
5980: 69 6e 74 29 72 3b 0a 20 20 20 20 20 20 20 20 20  int)r;.         
5990: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
59a0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
59b0: 20 20 20 20 20 20 63 61 73 65 20 32 3a 20 7b 20        case 2: { 
59c0: 2f 2a 20 53 70 65 63 69 61 6c 20 70 72 6f 63 65  /* Special proce
59d0: 73 73 69 6e 67 20 74 6f 20 61 64 64 20 79 65 61  ssing to add yea
59e0: 72 73 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20  rs */.          
59f0: 20 20 20 20 69 6e 74 20 79 20 3d 20 28 69 6e 74      int y = (int
5a00: 29 72 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  )r;.            
5a10: 20 20 63 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53    computeYMD_HMS
5a20: 28 70 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20  (p);.           
5a30: 20 20 20 70 2d 3e 59 20 2b 3d 20 79 3b 0a 20 20     p->Y += y;.  
5a40: 20 20 20 20 20 20 20 20 20 20 20 20 70 2d 3e 76              p->v
5a50: 61 6c 69 64 4a 44 20 3d 20 30 3b 0a 20 20 20 20  alidJD = 0;.    
5a60: 20 20 20 20 20 20 20 20 20 20 72 20 2d 3d 20 28            r -= (
5a70: 69 6e 74 29 72 3b 0a 20 20 20 20 20 20 20 20 20  int)r;.         
5a80: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
5a90: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
5aa0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
5ab0: 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20 20  computeJD(p);.  
5ac0: 20 20 20 20 20 20 20 20 70 2d 3e 69 4a 44 20 2b          p->iJD +
5ad0: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34  = (sqlite3_int64
5ae0: 29 28 72 2a 61 58 66 6f 72 6d 54 79 70 65 5b 69  )(r*aXformType[i
5af0: 5d 2e 72 58 66 6f 72 6d 20 2b 20 72 52 6f 75 6e  ].rXform + rRoun
5b00: 64 65 72 29 3b 0a 20 20 20 20 20 20 20 20 20 20  der);.          
5b10: 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  rc = 0;.        
5b20: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20    break;.       
5b30: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   }.      }.     
5b40: 20 63 6c 65 61 72 59 4d 44 5f 48 4d 53 5f 54 5a   clearYMD_HMS_TZ
5b50: 28 70 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b  (p);.      break
5b60: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 65 66 61  ;.    }.    defa
5b70: 75 6c 74 3a 20 7b 0a 20 20 20 20 20 20 62 72 65  ult: {.      bre
5b80: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  ak;.    }.  }.  
5b90: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a  return rc;.}../*
5ba0: 0a 2a 2a 20 50 72 6f 63 65 73 73 20 74 69 6d 65  .** Process time
5bb0: 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 6d 65   function argume
5bc0: 6e 74 73 2e 20 20 61 72 67 76 5b 30 5d 20 69 73  nts.  argv[0] is
5bd0: 20 61 20 64 61 74 65 2d 74 69 6d 65 20 73 74 61   a date-time sta
5be0: 6d 70 2e 0a 2a 2a 20 61 72 67 76 5b 31 5d 20 61  mp..** argv[1] a
5bf0: 6e 64 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 65  nd following are
5c00: 20 6d 6f 64 69 66 69 65 72 73 2e 20 20 50 61 72   modifiers.  Par
5c10: 73 65 20 74 68 65 6d 20 61 6c 6c 20 61 6e 64 20  se them all and 
5c20: 77 72 69 74 65 0a 2a 2a 20 74 68 65 20 72 65 73  write.** the res
5c30: 75 6c 74 69 6e 67 20 74 69 6d 65 20 69 6e 74 6f  ulting time into
5c40: 20 74 68 65 20 44 61 74 65 54 69 6d 65 20 73 74   the DateTime st
5c50: 72 75 63 74 75 72 65 20 70 2e 20 20 52 65 74 75  ructure p.  Retu
5c60: 72 6e 20 30 0a 2a 2a 20 6f 6e 20 73 75 63 63 65  rn 0.** on succe
5c70: 73 73 20 61 6e 64 20 31 20 69 66 20 74 68 65 72  ss and 1 if ther
5c80: 65 20 61 72 65 20 61 6e 79 20 65 72 72 6f 72 73  e are any errors
5c90: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 72 65  ..**.** If there
5ca0: 20 61 72 65 20 7a 65 72 6f 20 70 61 72 61 6d 65   are zero parame
5cb0: 74 65 72 73 20 28 69 66 20 65 76 65 6e 20 61 72  ters (if even ar
5cc0: 67 76 5b 30 5d 20 69 73 20 75 6e 64 65 66 69 6e  gv[0] is undefin
5cd0: 65 64 29 0a 2a 2a 20 74 68 65 6e 20 61 73 73 75  ed).** then assu
5ce0: 6d 65 20 61 20 64 65 66 61 75 6c 74 20 76 61 6c  me a default val
5cf0: 75 65 20 6f 66 20 22 6e 6f 77 22 20 66 6f 72 20  ue of "now" for 
5d00: 61 72 67 76 5b 30 5d 2e 0a 2a 2f 0a 73 74 61 74  argv[0]..*/.stat
5d10: 69 63 20 69 6e 74 20 69 73 44 61 74 65 28 0a 20  ic int isDate(. 
5d20: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
5d30: 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69 6e   *context, .  in
5d40: 74 20 61 72 67 63 2c 20 0a 20 20 73 71 6c 69 74  t argc, .  sqlit
5d50: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 2c  e3_value **argv,
5d60: 20 0a 20 20 44 61 74 65 54 69 6d 65 20 2a 70 0a   .  DateTime *p.
5d70: 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6e 3b 0a 20  ){.  int i, n;. 
5d80: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20   const unsigned 
5d90: 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 65  char *z;.  int e
5da0: 54 79 70 65 3b 0a 20 20 6d 65 6d 73 65 74 28 70  Type;.  memset(p
5db0: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29  , 0, sizeof(*p))
5dc0: 3b 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 30 20  ;.  if( argc==0 
5dd0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 73 65  ){.    return se
5de0: 74 44 61 74 65 54 69 6d 65 54 6f 43 75 72 72 65  tDateTimeToCurre
5df0: 6e 74 28 63 6f 6e 74 65 78 74 2c 20 70 29 3b 0a  nt(context, p);.
5e00: 20 20 7d 0a 20 20 69 66 28 20 28 65 54 79 70 65    }.  if( (eType
5e10: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
5e20: 5f 74 79 70 65 28 61 72 67 76 5b 30 5d 29 29 3d  _type(argv[0]))=
5e30: 3d 53 51 4c 49 54 45 5f 46 4c 4f 41 54 0a 20 20  =SQLITE_FLOAT.  
5e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5e50: 20 7c 7c 20 65 54 79 70 65 3d 3d 53 51 4c 49 54   || eType==SQLIT
5e60: 45 5f 49 4e 54 45 47 45 52 20 29 7b 0a 20 20 20  E_INTEGER ){.   
5e70: 20 73 65 74 52 61 77 44 61 74 65 4e 75 6d 62 65   setRawDateNumbe
5e80: 72 28 70 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c  r(p, sqlite3_val
5e90: 75 65 5f 64 6f 75 62 6c 65 28 61 72 67 76 5b 30  ue_double(argv[0
5ea0: 5d 29 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20  ]));.  }else{.  
5eb0: 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 61    z = sqlite3_va
5ec0: 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d  lue_text(argv[0]
5ed0: 29 3b 0a 20 20 20 20 69 66 28 20 21 7a 20 7c 7c  );.    if( !z ||
5ee0: 20 70 61 72 73 65 44 61 74 65 4f 72 54 69 6d 65   parseDateOrTime
5ef0: 28 63 6f 6e 74 65 78 74 2c 20 28 63 68 61 72 2a  (context, (char*
5f00: 29 7a 2c 20 70 29 20 29 7b 0a 20 20 20 20 20 20  )z, p) ){.      
5f10: 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a  return 1;.    }.
5f20: 20 20 7d 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69    }.  for(i=1; i
5f30: 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20  <argc; i++){.   
5f40: 20 7a 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c   z = sqlite3_val
5f50: 75 65 5f 74 65 78 74 28 61 72 67 76 5b 69 5d 29  ue_text(argv[i])
5f60: 3b 0a 20 20 20 20 6e 20 3d 20 73 71 6c 69 74 65  ;.    n = sqlite
5f70: 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 61 72  3_value_bytes(ar
5f80: 67 76 5b 69 5d 29 3b 0a 20 20 20 20 69 66 28 20  gv[i]);.    if( 
5f90: 7a 3d 3d 30 20 7c 7c 20 70 61 72 73 65 4d 6f 64  z==0 || parseMod
5fa0: 69 66 69 65 72 28 63 6f 6e 74 65 78 74 2c 20 28  ifier(context, (
5fb0: 63 68 61 72 2a 29 7a 2c 20 6e 2c 20 70 29 20 29  char*)z, n, p) )
5fc0: 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 0a 20   return 1;.  }. 
5fd0: 20 63 6f 6d 70 75 74 65 4a 44 28 70 29 3b 0a 20   computeJD(p);. 
5fe0: 20 69 66 28 20 70 2d 3e 69 73 45 72 72 6f 72 20   if( p->isError 
5ff0: 7c 7c 20 21 76 61 6c 69 64 4a 75 6c 69 61 6e 44  || !validJulianD
6000: 61 79 28 70 2d 3e 69 4a 44 29 20 29 20 72 65 74  ay(p->iJD) ) ret
6010: 75 72 6e 20 31 3b 0a 20 20 72 65 74 75 72 6e 20  urn 1;.  return 
6020: 30 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65  0;.}.../*.** The
6030: 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 6f 75 74 69   following routi
6040: 6e 65 73 20 69 6d 70 6c 65 6d 65 6e 74 20 74 68  nes implement th
6050: 65 20 76 61 72 69 6f 75 73 20 64 61 74 65 20 61  e various date a
6060: 6e 64 20 74 69 6d 65 20 66 75 6e 63 74 69 6f 6e  nd time function
6070: 73 0a 2a 2a 20 6f 66 20 53 51 4c 69 74 65 2e 0a  s.** of SQLite..
6080: 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 6a 75 6c  */../*.**    jul
6090: 69 61 6e 64 61 79 28 20 54 49 4d 45 53 54 52 49  ianday( TIMESTRI
60a0: 4e 47 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e  NG, MOD, MOD, ..
60b0: 2e 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  .).**.** Return 
60c0: 74 68 65 20 6a 75 6c 69 61 6e 20 64 61 79 20 6e  the julian day n
60d0: 75 6d 62 65 72 20 6f 66 20 74 68 65 20 64 61 74  umber of the dat
60e0: 65 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 74  e specified in t
60f0: 68 65 20 61 72 67 75 6d 65 6e 74 73 0a 2a 2f 0a  he arguments.*/.
6100: 73 74 61 74 69 63 20 76 6f 69 64 20 6a 75 6c 69  static void juli
6110: 61 6e 64 61 79 46 75 6e 63 28 0a 20 20 73 71 6c  andayFunc(.  sql
6120: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
6130: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67  ntext,.  int arg
6140: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  c,.  sqlite3_val
6150: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 44  ue **argv.){.  D
6160: 61 74 65 54 69 6d 65 20 78 3b 0a 20 20 69 66 28  ateTime x;.  if(
6170: 20 69 73 44 61 74 65 28 63 6f 6e 74 65 78 74 2c   isDate(context,
6180: 20 61 72 67 63 2c 20 61 72 67 76 2c 20 26 78 29   argc, argv, &x)
6190: 3d 3d 30 20 29 7b 0a 20 20 20 20 63 6f 6d 70 75  ==0 ){.    compu
61a0: 74 65 4a 44 28 26 78 29 3b 0a 20 20 20 20 73 71  teJD(&x);.    sq
61b0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 64 6f 75  lite3_result_dou
61c0: 62 6c 65 28 63 6f 6e 74 65 78 74 2c 20 78 2e 69  ble(context, x.i
61d0: 4a 44 2f 38 36 34 30 30 30 30 30 2e 30 29 3b 0a  JD/86400000.0);.
61e0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20    }.}../*.**    
61f0: 64 61 74 65 74 69 6d 65 28 20 54 49 4d 45 53 54  datetime( TIMEST
6200: 52 49 4e 47 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20  RING, MOD, MOD, 
6210: 2e 2e 2e 29 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72  ...).**.** Retur
6220: 6e 20 59 59 59 59 2d 4d 4d 2d 44 44 20 48 48 3a  n YYYY-MM-DD HH:
6230: 4d 4d 3a 53 53 0a 2a 2f 0a 73 74 61 74 69 63 20  MM:SS.*/.static 
6240: 76 6f 69 64 20 64 61 74 65 74 69 6d 65 46 75 6e  void datetimeFun
6250: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
6260: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20  text *context,. 
6270: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c   int argc,.  sql
6280: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
6290: 76 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20  v.){.  DateTime 
62a0: 78 3b 0a 20 20 69 66 28 20 69 73 44 61 74 65 28  x;.  if( isDate(
62b0: 63 6f 6e 74 65 78 74 2c 20 61 72 67 63 2c 20 61  context, argc, a
62c0: 72 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a 20  rgv, &x)==0 ){. 
62d0: 20 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30     char zBuf[100
62e0: 5d 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 59 4d  ];.    computeYM
62f0: 44 5f 48 4d 53 28 26 78 29 3b 0a 20 20 20 20 73  D_HMS(&x);.    s
6300: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28  qlite3_snprintf(
6310: 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 42  sizeof(zBuf), zB
6320: 75 66 2c 20 22 25 30 34 64 2d 25 30 32 64 2d 25  uf, "%04d-%02d-%
6330: 30 32 64 20 25 30 32 64 3a 25 30 32 64 3a 25 30  02d %02d:%02d:%0
6340: 32 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20  2d",.           
6350: 20 20 20 20 20 20 20 20 20 20 78 2e 59 2c 20 78            x.Y, x
6360: 2e 4d 2c 20 78 2e 44 2c 20 78 2e 68 2c 20 78 2e  .M, x.D, x.h, x.
6370: 6d 2c 20 28 69 6e 74 29 28 78 2e 73 29 29 3b 0a  m, (int)(x.s));.
6380: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
6390: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c  lt_text(context,
63a0: 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54   zBuf, -1, SQLIT
63b0: 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20  E_TRANSIENT);.  
63c0: 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 74 69  }.}../*.**    ti
63d0: 6d 65 28 20 54 49 4d 45 53 54 52 49 4e 47 2c 20  me( TIMESTRING, 
63e0: 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a  MOD, MOD, ...).*
63f0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 48 48 3a 4d  *.** Return HH:M
6400: 4d 3a 53 53 0a 2a 2f 0a 73 74 61 74 69 63 20 76  M:SS.*/.static v
6410: 6f 69 64 20 74 69 6d 65 46 75 6e 63 28 0a 20 20  oid timeFunc(.  
6420: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
6430: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20  *context,.  int 
6440: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f  argc,.  sqlite3_
6450: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
6460: 20 20 44 61 74 65 54 69 6d 65 20 78 3b 0a 20 20    DateTime x;.  
6470: 69 66 28 20 69 73 44 61 74 65 28 63 6f 6e 74 65  if( isDate(conte
6480: 78 74 2c 20 61 72 67 63 2c 20 61 72 67 76 2c 20  xt, argc, argv, 
6490: 26 78 29 3d 3d 30 20 29 7b 0a 20 20 20 20 63 68  &x)==0 ){.    ch
64a0: 61 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 20 20  ar zBuf[100];.  
64b0: 20 20 63 6f 6d 70 75 74 65 48 4d 53 28 26 78 29    computeHMS(&x)
64c0: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e  ;.    sqlite3_sn
64d0: 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 42  printf(sizeof(zB
64e0: 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 30 32 64  uf), zBuf, "%02d
64f0: 3a 25 30 32 64 3a 25 30 32 64 22 2c 20 78 2e 68  :%02d:%02d", x.h
6500: 2c 20 78 2e 6d 2c 20 28 69 6e 74 29 78 2e 73 29  , x.m, (int)x.s)
6510: 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65  ;.    sqlite3_re
6520: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78  sult_text(contex
6530: 74 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c  t, zBuf, -1, SQL
6540: 49 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a  ITE_TRANSIENT);.
6550: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20    }.}../*.**    
6560: 64 61 74 65 28 20 54 49 4d 45 53 54 52 49 4e 47  date( TIMESTRING
6570: 2c 20 4d 4f 44 2c 20 4d 4f 44 2c 20 2e 2e 2e 29  , MOD, MOD, ...)
6580: 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 59 59  .**.** Return YY
6590: 59 59 2d 4d 4d 2d 44 44 0a 2a 2f 0a 73 74 61 74  YY-MM-DD.*/.stat
65a0: 69 63 20 76 6f 69 64 20 64 61 74 65 46 75 6e 63  ic void dateFunc
65b0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
65c0: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
65d0: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69  int argc,.  sqli
65e0: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
65f0: 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20 78  .){.  DateTime x
6600: 3b 0a 20 20 69 66 28 20 69 73 44 61 74 65 28 63  ;.  if( isDate(c
6610: 6f 6e 74 65 78 74 2c 20 61 72 67 63 2c 20 61 72  ontext, argc, ar
6620: 67 76 2c 20 26 78 29 3d 3d 30 20 29 7b 0a 20 20  gv, &x)==0 ){.  
6630: 20 20 63 68 61 72 20 7a 42 75 66 5b 31 30 30 5d    char zBuf[100]
6640: 3b 0a 20 20 20 20 63 6f 6d 70 75 74 65 59 4d 44  ;.    computeYMD
6650: 28 26 78 29 3b 0a 20 20 20 20 73 71 6c 69 74 65  (&x);.    sqlite
6660: 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f  3_snprintf(sizeo
6670: 66 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22  f(zBuf), zBuf, "
6680: 25 30 34 64 2d 25 30 32 64 2d 25 30 32 64 22 2c  %04d-%02d-%02d",
6690: 20 78 2e 59 2c 20 78 2e 4d 2c 20 78 2e 44 29 3b   x.Y, x.M, x.D);
66a0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73  .    sqlite3_res
66b0: 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74  ult_text(context
66c0: 2c 20 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49  , zBuf, -1, SQLI
66d0: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20  TE_TRANSIENT);. 
66e0: 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 73   }.}../*.**    s
66f0: 74 72 66 74 69 6d 65 28 20 46 4f 52 4d 41 54 2c  trftime( FORMAT,
6700: 20 54 49 4d 45 53 54 52 49 4e 47 2c 20 4d 4f 44   TIMESTRING, MOD
6710: 2c 20 4d 4f 44 2c 20 2e 2e 2e 29 0a 2a 2a 0a 2a  , MOD, ...).**.*
6720: 2a 20 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e  * Return a strin
6730: 67 20 64 65 73 63 72 69 62 65 64 20 62 79 20 46  g described by F
6740: 4f 52 4d 41 54 2e 20 20 43 6f 6e 76 65 72 73 69  ORMAT.  Conversi
6750: 6f 6e 73 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a  ons as follows:.
6760: 2a 2a 0a 2a 2a 20 20 20 25 64 20 20 64 61 79 20  **.**   %d  day 
6770: 6f 66 20 6d 6f 6e 74 68 0a 2a 2a 20 20 20 25 66  of month.**   %f
6780: 20 20 2a 2a 20 66 72 61 63 74 69 6f 6e 61 6c 20    ** fractional 
6790: 73 65 63 6f 6e 64 73 20 20 53 53 2e 53 53 53 0a  seconds  SS.SSS.
67a0: 2a 2a 20 20 20 25 48 20 20 68 6f 75 72 20 30 30  **   %H  hour 00
67b0: 2d 32 34 0a 2a 2a 20 20 20 25 6a 20 20 64 61 79  -24.**   %j  day
67c0: 20 6f 66 20 79 65 61 72 20 30 30 30 2d 33 36 36   of year 000-366
67d0: 0a 2a 2a 20 20 20 25 4a 20 20 2a 2a 20 6a 75 6c  .**   %J  ** jul
67e0: 69 61 6e 20 64 61 79 20 6e 75 6d 62 65 72 0a 2a  ian day number.*
67f0: 2a 20 20 20 25 6d 20 20 6d 6f 6e 74 68 20 30 31  *   %m  month 01
6800: 2d 31 32 0a 2a 2a 20 20 20 25 4d 20 20 6d 69 6e  -12.**   %M  min
6810: 75 74 65 20 30 30 2d 35 39 0a 2a 2a 20 20 20 25  ute 00-59.**   %
6820: 73 20 20 73 65 63 6f 6e 64 73 20 73 69 6e 63 65  s  seconds since
6830: 20 31 39 37 30 2d 30 31 2d 30 31 0a 2a 2a 20 20   1970-01-01.**  
6840: 20 25 53 20 20 73 65 63 6f 6e 64 73 20 30 30 2d   %S  seconds 00-
6850: 35 39 0a 2a 2a 20 20 20 25 77 20 20 64 61 79 20  59.**   %w  day 
6860: 6f 66 20 77 65 65 6b 20 30 2d 36 20 20 73 75 6e  of week 0-6  sun
6870: 64 61 79 3d 3d 30 0a 2a 2a 20 20 20 25 57 20 20  day==0.**   %W  
6880: 77 65 65 6b 20 6f 66 20 79 65 61 72 20 30 30 2d  week of year 00-
6890: 35 33 0a 2a 2a 20 20 20 25 59 20 20 79 65 61 72  53.**   %Y  year
68a0: 20 30 30 30 30 2d 39 39 39 39 0a 2a 2a 20 20 20   0000-9999.**   
68b0: 25 25 20 20 25 0a 2a 2f 0a 73 74 61 74 69 63 20  %%  %.*/.static 
68c0: 76 6f 69 64 20 73 74 72 66 74 69 6d 65 46 75 6e  void strftimeFun
68d0: 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e  c(.  sqlite3_con
68e0: 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20  text *context,. 
68f0: 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c   int argc,.  sql
6900: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
6910: 76 0a 29 7b 0a 20 20 44 61 74 65 54 69 6d 65 20  v.){.  DateTime 
6920: 78 3b 0a 20 20 75 36 34 20 6e 3b 0a 20 20 73 69  x;.  u64 n;.  si
6930: 7a 65 5f 74 20 69 2c 6a 3b 0a 20 20 63 68 61 72  ze_t i,j;.  char
6940: 20 2a 7a 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a   *z;.  sqlite3 *
6950: 64 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  db;.  const char
6960: 20 2a 7a 46 6d 74 3b 0a 20 20 63 68 61 72 20 7a   *zFmt;.  char z
6970: 42 75 66 5b 31 30 30 5d 3b 0a 20 20 69 66 28 20  Buf[100];.  if( 
6980: 61 72 67 63 3d 3d 30 20 29 20 72 65 74 75 72 6e  argc==0 ) return
6990: 3b 0a 20 20 7a 46 6d 74 20 3d 20 28 63 6f 6e 73  ;.  zFmt = (cons
69a0: 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f  t char*)sqlite3_
69b0: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b  value_text(argv[
69c0: 30 5d 29 3b 0a 20 20 69 66 28 20 7a 46 6d 74 3d  0]);.  if( zFmt=
69d0: 3d 30 20 7c 7c 20 69 73 44 61 74 65 28 63 6f 6e  =0 || isDate(con
69e0: 74 65 78 74 2c 20 61 72 67 63 2d 31 2c 20 61 72  text, argc-1, ar
69f0: 67 76 2b 31 2c 20 26 78 29 20 29 20 72 65 74 75  gv+1, &x) ) retu
6a00: 72 6e 3b 0a 20 20 64 62 20 3d 20 73 71 6c 69 74  rn;.  db = sqlit
6a10: 65 33 5f 63 6f 6e 74 65 78 74 5f 64 62 5f 68 61  e3_context_db_ha
6a20: 6e 64 6c 65 28 63 6f 6e 74 65 78 74 29 3b 0a 20  ndle(context);. 
6a30: 20 66 6f 72 28 69 3d 30 2c 20 6e 3d 31 3b 20 7a   for(i=0, n=1; z
6a40: 46 6d 74 5b 69 5d 3b 20 69 2b 2b 2c 20 6e 2b 2b  Fmt[i]; i++, n++
6a50: 29 7b 0a 20 20 20 20 69 66 28 20 7a 46 6d 74 5b  ){.    if( zFmt[
6a60: 69 5d 3d 3d 27 25 27 20 29 7b 0a 20 20 20 20 20  i]=='%' ){.     
6a70: 20 73 77 69 74 63 68 28 20 7a 46 6d 74 5b 69 2b   switch( zFmt[i+
6a80: 31 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 63 61  1] ){.        ca
6a90: 73 65 20 27 64 27 3a 0a 20 20 20 20 20 20 20 20  se 'd':.        
6aa0: 63 61 73 65 20 27 48 27 3a 0a 20 20 20 20 20 20  case 'H':.      
6ab0: 20 20 63 61 73 65 20 27 6d 27 3a 0a 20 20 20 20    case 'm':.    
6ac0: 20 20 20 20 63 61 73 65 20 27 4d 27 3a 0a 20 20      case 'M':.  
6ad0: 20 20 20 20 20 20 63 61 73 65 20 27 53 27 3a 0a        case 'S':.
6ae0: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 57 27          case 'W'
6af0: 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 2b 2b 3b  :.          n++;
6b00: 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 66 61  .          /* fa
6b10: 6c 6c 20 74 68 72 75 20 2a 2f 0a 20 20 20 20 20  ll thru */.     
6b20: 20 20 20 63 61 73 65 20 27 77 27 3a 0a 20 20 20     case 'w':.   
6b30: 20 20 20 20 20 63 61 73 65 20 27 25 27 3a 0a 20       case '%':. 
6b40: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a           break;.
6b50: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 66 27          case 'f'
6b60: 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 20 2b 3d  :.          n +=
6b70: 20 38 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72   8;.          br
6b80: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
6b90: 65 20 27 6a 27 3a 0a 20 20 20 20 20 20 20 20 20  e 'j':.         
6ba0: 20 6e 20 2b 3d 20 33 3b 0a 20 20 20 20 20 20 20   n += 3;.       
6bb0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
6bc0: 20 20 63 61 73 65 20 27 59 27 3a 0a 20 20 20 20    case 'Y':.    
6bd0: 20 20 20 20 20 20 6e 20 2b 3d 20 38 3b 0a 20 20        n += 8;.  
6be0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
6bf0: 20 20 20 20 20 20 20 63 61 73 65 20 27 73 27 3a         case 's':
6c00: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 27 4a  .        case 'J
6c10: 27 3a 0a 20 20 20 20 20 20 20 20 20 20 6e 20 2b  ':.          n +
6c20: 3d 20 35 30 3b 0a 20 20 20 20 20 20 20 20 20 20  = 50;.          
6c30: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 64  break;.        d
6c40: 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 20  efault:.        
6c50: 20 20 72 65 74 75 72 6e 3b 20 20 2f 2a 20 45 52    return;  /* ER
6c60: 52 4f 52 2e 20 20 72 65 74 75 72 6e 20 61 20 4e  ROR.  return a N
6c70: 55 4c 4c 20 2a 2f 0a 20 20 20 20 20 20 7d 0a 20  ULL */.      }. 
6c80: 20 20 20 20 20 69 2b 2b 3b 0a 20 20 20 20 7d 0a       i++;.    }.
6c90: 20 20 7d 0a 20 20 74 65 73 74 63 61 73 65 28 20    }.  testcase( 
6ca0: 6e 3d 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29 2d  n==sizeof(zBuf)-
6cb0: 31 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28  1 );.  testcase(
6cc0: 20 6e 3d 3d 73 69 7a 65 6f 66 28 7a 42 75 66 29   n==sizeof(zBuf)
6cd0: 20 29 3b 0a 20 20 74 65 73 74 63 61 73 65 28 20   );.  testcase( 
6ce0: 6e 3d 3d 28 75 36 34 29 64 62 2d 3e 61 4c 69 6d  n==(u64)db->aLim
6cf0: 69 74 5b 53 51 4c 49 54 45 5f 4c 49 4d 49 54 5f  it[SQLITE_LIMIT_
6d00: 4c 45 4e 47 54 48 5d 2b 31 20 29 3b 0a 20 20 74  LENGTH]+1 );.  t
6d10: 65 73 74 63 61 73 65 28 20 6e 3d 3d 28 75 36 34  estcase( n==(u64
6d20: 29 64 62 2d 3e 61 4c 69 6d 69 74 5b 53 51 4c 49  )db->aLimit[SQLI
6d30: 54 45 5f 4c 49 4d 49 54 5f 4c 45 4e 47 54 48 5d  TE_LIMIT_LENGTH]
6d40: 20 29 3b 0a 20 20 69 66 28 20 6e 3c 73 69 7a 65   );.  if( n<size
6d50: 6f 66 28 7a 42 75 66 29 20 29 7b 0a 20 20 20 20  of(zBuf) ){.    
6d60: 7a 20 3d 20 7a 42 75 66 3b 0a 20 20 7d 65 6c 73  z = zBuf;.  }els
6d70: 65 20 69 66 28 20 6e 3e 28 75 36 34 29 64 62 2d  e if( n>(u64)db-
6d80: 3e 61 4c 69 6d 69 74 5b 53 51 4c 49 54 45 5f 4c  >aLimit[SQLITE_L
6d90: 49 4d 49 54 5f 4c 45 4e 47 54 48 5d 20 29 7b 0a  IMIT_LENGTH] ){.
6da0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
6db0: 6c 74 5f 65 72 72 6f 72 5f 74 6f 6f 62 69 67 28  lt_error_toobig(
6dc0: 63 6f 6e 74 65 78 74 29 3b 0a 20 20 20 20 72 65  context);.    re
6dd0: 74 75 72 6e 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20  turn;.  }else{. 
6de0: 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33 44 62     z = sqlite3Db
6df0: 4d 61 6c 6c 6f 63 52 61 77 4e 4e 28 64 62 2c 20  MallocRawNN(db, 
6e00: 28 69 6e 74 29 6e 29 3b 0a 20 20 20 20 69 66 28  (int)n);.    if(
6e10: 20 7a 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73   z==0 ){.      s
6e20: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72  qlite3_result_er
6e30: 72 6f 72 5f 6e 6f 6d 65 6d 28 63 6f 6e 74 65 78  ror_nomem(contex
6e40: 74 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  t);.      return
6e50: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 63 6f  ;.    }.  }.  co
6e60: 6d 70 75 74 65 4a 44 28 26 78 29 3b 0a 20 20 63  mputeJD(&x);.  c
6e70: 6f 6d 70 75 74 65 59 4d 44 5f 48 4d 53 28 26 78  omputeYMD_HMS(&x
6e80: 29 3b 0a 20 20 66 6f 72 28 69 3d 6a 3d 30 3b 20  );.  for(i=j=0; 
6e90: 7a 46 6d 74 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20  zFmt[i]; i++){. 
6ea0: 20 20 20 69 66 28 20 7a 46 6d 74 5b 69 5d 21 3d     if( zFmt[i]!=
6eb0: 27 25 27 20 29 7b 0a 20 20 20 20 20 20 7a 5b 6a  '%' ){.      z[j
6ec0: 2b 2b 5d 20 3d 20 7a 46 6d 74 5b 69 5d 3b 0a 20  ++] = zFmt[i];. 
6ed0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
6ee0: 69 2b 2b 3b 0a 20 20 20 20 20 20 73 77 69 74 63  i++;.      switc
6ef0: 68 28 20 7a 46 6d 74 5b 69 5d 20 29 7b 0a 20 20  h( zFmt[i] ){.  
6f00: 20 20 20 20 20 20 63 61 73 65 20 27 64 27 3a 20        case 'd': 
6f10: 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74   sqlite3_snprint
6f20: 66 28 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 64  f(3, &z[j],"%02d
6f30: 22 2c 78 2e 44 29 3b 20 6a 2b 3d 32 3b 20 62 72  ",x.D); j+=2; br
6f40: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
6f50: 65 20 27 66 27 3a 20 7b 0a 20 20 20 20 20 20 20  e 'f': {.       
6f60: 20 20 20 64 6f 75 62 6c 65 20 73 20 3d 20 78 2e     double s = x.
6f70: 73 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28  s;.          if(
6f80: 20 73 3e 35 39 2e 39 39 39 20 29 20 73 20 3d 20   s>59.999 ) s = 
6f90: 35 39 2e 39 39 39 3b 0a 20 20 20 20 20 20 20 20  59.999;.        
6fa0: 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e    sqlite3_snprin
6fb0: 74 66 28 37 2c 20 26 7a 5b 6a 5d 2c 22 25 30 36  tf(7, &z[j],"%06
6fc0: 2e 33 66 22 2c 20 73 29 3b 0a 20 20 20 20 20 20  .3f", s);.      
6fd0: 20 20 20 20 6a 20 2b 3d 20 73 71 6c 69 74 65 33      j += sqlite3
6fe0: 53 74 72 6c 65 6e 33 30 28 26 7a 5b 6a 5d 29 3b  Strlen30(&z[j]);
6ff0: 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b  .          break
7000: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
7010: 20 20 20 20 63 61 73 65 20 27 48 27 3a 20 20 73      case 'H':  s
7020: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28  qlite3_snprintf(
7030: 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c  3, &z[j],"%02d",
7040: 78 2e 68 29 3b 20 6a 2b 3d 32 3b 20 62 72 65 61  x.h); j+=2; brea
7050: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
7060: 27 57 27 3a 20 2f 2a 20 46 61 6c 6c 20 74 68 72  'W': /* Fall thr
7070: 75 20 2a 2f 0a 20 20 20 20 20 20 20 20 63 61 73  u */.        cas
7080: 65 20 27 6a 27 3a 20 7b 0a 20 20 20 20 20 20 20  e 'j': {.       
7090: 20 20 20 69 6e 74 20 6e 44 61 79 3b 20 20 20 20     int nDay;    
70a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
70b0: 65 72 20 6f 66 20 64 61 79 73 20 73 69 6e 63 65  er of days since
70c0: 20 31 73 74 20 64 61 79 20 6f 66 20 79 65 61 72   1st day of year
70d0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 44 61   */.          Da
70e0: 74 65 54 69 6d 65 20 79 20 3d 20 78 3b 0a 20 20  teTime y = x;.  
70f0: 20 20 20 20 20 20 20 20 79 2e 76 61 6c 69 64 4a          y.validJ
7100: 44 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20  D = 0;.         
7110: 20 79 2e 4d 20 3d 20 31 3b 0a 20 20 20 20 20 20   y.M = 1;.      
7120: 20 20 20 20 79 2e 44 20 3d 20 31 3b 0a 20 20 20      y.D = 1;.   
7130: 20 20 20 20 20 20 20 63 6f 6d 70 75 74 65 4a 44         computeJD
7140: 28 26 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20  (&y);.          
7150: 6e 44 61 79 20 3d 20 28 69 6e 74 29 28 28 78 2e  nDay = (int)((x.
7160: 69 4a 44 2d 79 2e 69 4a 44 2b 34 33 32 30 30 30  iJD-y.iJD+432000
7170: 30 30 29 2f 38 36 34 30 30 30 30 30 29 3b 0a 20  00)/86400000);. 
7180: 20 20 20 20 20 20 20 20 20 69 66 28 20 7a 46 6d           if( zFm
7190: 74 5b 69 5d 3d 3d 27 57 27 20 29 7b 0a 20 20 20  t[i]=='W' ){.   
71a0: 20 20 20 20 20 20 20 20 20 69 6e 74 20 77 64 3b           int wd;
71b0: 20 20 20 2f 2a 20 30 3d 4d 6f 6e 64 61 79 2c 20     /* 0=Monday, 
71c0: 31 3d 54 75 65 73 64 61 79 2c 20 2e 2e 2e 20 36  1=Tuesday, ... 6
71d0: 3d 53 75 6e 64 61 79 20 2a 2f 0a 20 20 20 20 20  =Sunday */.     
71e0: 20 20 20 20 20 20 20 77 64 20 3d 20 28 69 6e 74         wd = (int
71f0: 29 28 28 28 78 2e 69 4a 44 2b 34 33 32 30 30 30  )(((x.iJD+432000
7200: 30 30 29 2f 38 36 34 30 30 30 30 30 29 25 37 29  00)/86400000)%7)
7210: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 71  ;.            sq
7220: 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 33  lite3_snprintf(3
7230: 2c 20 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 28  , &z[j],"%02d",(
7240: 6e 44 61 79 2b 37 2d 77 64 29 2f 37 29 3b 0a 20  nDay+7-wd)/7);. 
7250: 20 20 20 20 20 20 20 20 20 20 20 6a 20 2b 3d 20             j += 
7260: 32 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 65 6c  2;.          }el
7270: 73 65 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  se{.            
7280: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66  sqlite3_snprintf
7290: 28 34 2c 20 26 7a 5b 6a 5d 2c 22 25 30 33 64 22  (4, &z[j],"%03d"
72a0: 2c 6e 44 61 79 2b 31 29 3b 0a 20 20 20 20 20 20  ,nDay+1);.      
72b0: 20 20 20 20 20 20 6a 20 2b 3d 20 33 3b 0a 20 20        j += 3;.  
72c0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
72d0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
72e0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63 61 73     }.        cas
72f0: 65 20 27 4a 27 3a 20 7b 0a 20 20 20 20 20 20 20  e 'J': {.       
7300: 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69     sqlite3_snpri
7310: 6e 74 66 28 32 30 2c 20 26 7a 5b 6a 5d 2c 22 25  ntf(20, &z[j],"%
7320: 2e 31 36 67 22 2c 78 2e 69 4a 44 2f 38 36 34 30  .16g",x.iJD/8640
7330: 30 30 30 30 2e 30 29 3b 0a 20 20 20 20 20 20 20  0000.0);.       
7340: 20 20 20 6a 2b 3d 73 71 6c 69 74 65 33 53 74 72     j+=sqlite3Str
7350: 6c 65 6e 33 30 28 26 7a 5b 6a 5d 29 3b 0a 20 20  len30(&z[j]);.  
7360: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
7370: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
7380: 20 63 61 73 65 20 27 6d 27 3a 20 20 73 71 6c 69   case 'm':  sqli
7390: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 33 2c 20  te3_snprintf(3, 
73a0: 26 7a 5b 6a 5d 2c 22 25 30 32 64 22 2c 78 2e 4d  &z[j],"%02d",x.M
73b0: 29 3b 20 6a 2b 3d 32 3b 20 62 72 65 61 6b 3b 0a  ); j+=2; break;.
73c0: 20 20 20 20 20 20 20 20 63 61 73 65 20 27 4d 27          case 'M'
73d0: 3a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69  :  sqlite3_snpri
73e0: 6e 74 66 28 33 2c 20 26 7a 5b 6a 5d 2c 22 25 30  ntf(3, &z[j],"%0
73f0: 32 64 22 2c 78 2e 6d 29 3b 20 6a 2b 3d 32 3b 20  2d",x.m); j+=2; 
7400: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63  break;.        c
7410: 61 73 65 20 27 73 27 3a 20 7b 0a 20 20 20 20 20  ase 's': {.     
7420: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70       sqlite3_snp
7430: 72 69 6e 74 66 28 33 30 2c 26 7a 5b 6a 5d 2c 22  rintf(30,&z[j],"
7440: 25 6c 6c 64 22 2c 0a 20 20 20 20 20 20 20 20 20  %lld",.         
7450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7460: 20 20 28 69 36 34 29 28 78 2e 69 4a 44 2f 31 30    (i64)(x.iJD/10
7470: 30 30 20 2d 20 32 31 30 38 36 36 37 36 2a 28 69  00 - 21086676*(i
7480: 36 34 29 31 30 30 30 30 29 29 3b 0a 20 20 20 20  64)10000));.    
7490: 20 20 20 20 20 20 6a 20 2b 3d 20 73 71 6c 69 74        j += sqlit
74a0: 65 33 53 74 72 6c 65 6e 33 30 28 26 7a 5b 6a 5d  e3Strlen30(&z[j]
74b0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 65  );.          bre
74c0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  ak;.        }.  
74d0: 20 20 20 20 20 20 63 61 73 65 20 27 53 27 3a 20        case 'S': 
74e0: 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74   sqlite3_snprint
74f0: 66 28 33 2c 26 7a 5b 6a 5d 2c 22 25 30 32 64 22  f(3,&z[j],"%02d"
7500: 2c 28 69 6e 74 29 78 2e 73 29 3b 20 6a 2b 3d 32  ,(int)x.s); j+=2
7510: 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20  ; break;.       
7520: 20 63 61 73 65 20 27 77 27 3a 20 7b 0a 20 20 20   case 'w': {.   
7530: 20 20 20 20 20 20 20 7a 5b 6a 2b 2b 5d 20 3d 20         z[j++] = 
7540: 28 63 68 61 72 29 28 28 28 78 2e 69 4a 44 2b 31  (char)(((x.iJD+1
7550: 32 39 36 30 30 30 30 30 29 2f 38 36 34 30 30 30  29600000)/864000
7560: 30 30 29 20 25 20 37 29 20 2b 20 27 30 27 3b 0a  00) % 7) + '0';.
7570: 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b            break;
7580: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
7590: 20 20 20 63 61 73 65 20 27 59 27 3a 20 7b 0a 20     case 'Y': {. 
75a0: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
75b0: 5f 73 6e 70 72 69 6e 74 66 28 35 2c 26 7a 5b 6a  _snprintf(5,&z[j
75c0: 5d 2c 22 25 30 34 64 22 2c 78 2e 59 29 3b 20 6a  ],"%04d",x.Y); j
75d0: 2b 3d 73 71 6c 69 74 65 33 53 74 72 6c 65 6e 33  +=sqlite3Strlen3
75e0: 30 28 26 7a 5b 6a 5d 29 3b 0a 20 20 20 20 20 20  0(&z[j]);.      
75f0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
7600: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 64 65 66     }.        def
7610: 61 75 6c 74 3a 20 20 20 7a 5b 6a 2b 2b 5d 20 3d  ault:   z[j++] =
7620: 20 27 25 27 3b 20 62 72 65 61 6b 3b 0a 20 20 20   '%'; break;.   
7630: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20     }.    }.  }. 
7640: 20 7a 5b 6a 5d 20 3d 20 30 3b 0a 20 20 73 71 6c   z[j] = 0;.  sql
7650: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74  ite3_result_text
7660: 28 63 6f 6e 74 65 78 74 2c 20 7a 2c 20 2d 31 2c  (context, z, -1,
7670: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
7680: 20 20 20 20 20 20 20 7a 3d 3d 7a 42 75 66 20 3f         z==zBuf ?
7690: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e   SQLITE_TRANSIEN
76a0: 54 20 3a 20 53 51 4c 49 54 45 5f 44 59 4e 41 4d  T : SQLITE_DYNAM
76b0: 49 43 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 63 75  IC);.}../*.** cu
76c0: 72 72 65 6e 74 5f 74 69 6d 65 28 29 0a 2a 2a 0a  rrent_time().**.
76d0: 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e  ** This function
76e0: 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 61 6d   returns the sam
76f0: 65 20 76 61 6c 75 65 20 61 73 20 74 69 6d 65 28  e value as time(
7700: 27 6e 6f 77 27 29 2e 0a 2a 2f 0a 73 74 61 74 69  'now')..*/.stati
7710: 63 20 76 6f 69 64 20 63 74 69 6d 65 46 75 6e 63  c void ctimeFunc
7720: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
7730: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
7740: 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73  int NotUsed,.  s
7750: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e  qlite3_value **N
7760: 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e 55  otUsed2.){.  UNU
7770: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 4e  SED_PARAMETER2(N
7780: 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 32  otUsed, NotUsed2
7790: 29 3b 0a 20 20 74 69 6d 65 46 75 6e 63 28 63 6f  );.  timeFunc(co
77a0: 6e 74 65 78 74 2c 20 30 2c 20 30 29 3b 0a 7d 0a  ntext, 0, 0);.}.
77b0: 0a 2f 2a 0a 2a 2a 20 63 75 72 72 65 6e 74 5f 64  ./*.** current_d
77c0: 61 74 65 28 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73  ate().**.** This
77d0: 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e   function return
77e0: 73 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65  s the same value
77f0: 20 61 73 20 64 61 74 65 28 27 6e 6f 77 27 29 2e   as date('now').
7800: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
7810: 63 64 61 74 65 46 75 6e 63 28 0a 20 20 73 71 6c  cdateFunc(.  sql
7820: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
7830: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 4e 6f 74  ntext,.  int Not
7840: 55 73 65 64 2c 0a 20 20 73 71 6c 69 74 65 33 5f  Used,.  sqlite3_
7850: 76 61 6c 75 65 20 2a 2a 4e 6f 74 55 73 65 64 32  value **NotUsed2
7860: 0a 29 7b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52  .){.  UNUSED_PAR
7870: 41 4d 45 54 45 52 32 28 4e 6f 74 55 73 65 64 2c  AMETER2(NotUsed,
7880: 20 4e 6f 74 55 73 65 64 32 29 3b 0a 20 20 64 61   NotUsed2);.  da
7890: 74 65 46 75 6e 63 28 63 6f 6e 74 65 78 74 2c 20  teFunc(context, 
78a0: 30 2c 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  0, 0);.}../*.** 
78b0: 63 75 72 72 65 6e 74 5f 74 69 6d 65 73 74 61 6d  current_timestam
78c0: 70 28 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66  p().**.** This f
78d0: 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20  unction returns 
78e0: 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 20 61  the same value a
78f0: 73 20 64 61 74 65 74 69 6d 65 28 27 6e 6f 77 27  s datetime('now'
7900: 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  )..*/.static voi
7910: 64 20 63 74 69 6d 65 73 74 61 6d 70 46 75 6e 63  d ctimestampFunc
7920: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
7930: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
7940: 69 6e 74 20 4e 6f 74 55 73 65 64 2c 0a 20 20 73  int NotUsed,.  s
7950: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 4e  qlite3_value **N
7960: 6f 74 55 73 65 64 32 0a 29 7b 0a 20 20 55 4e 55  otUsed2.){.  UNU
7970: 53 45 44 5f 50 41 52 41 4d 45 54 45 52 32 28 4e  SED_PARAMETER2(N
7980: 6f 74 55 73 65 64 2c 20 4e 6f 74 55 73 65 64 32  otUsed, NotUsed2
7990: 29 3b 0a 20 20 64 61 74 65 74 69 6d 65 46 75 6e  );.  datetimeFun
79a0: 63 28 63 6f 6e 74 65 78 74 2c 20 30 2c 20 30 29  c(context, 0, 0)
79b0: 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 21 64  ;.}.#endif /* !d
79c0: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 4d  efined(SQLITE_OM
79d0: 49 54 5f 44 41 54 45 54 49 4d 45 5f 46 55 4e 43  IT_DATETIME_FUNC
79e0: 53 29 20 2a 2f 0a 0a 23 69 66 64 65 66 20 53 51  S) */..#ifdef SQ
79f0: 4c 49 54 45 5f 4f 4d 49 54 5f 44 41 54 45 54 49  LITE_OMIT_DATETI
7a00: 4d 45 5f 46 55 4e 43 53 0a 2f 2a 0a 2a 2a 20 49  ME_FUNCS./*.** I
7a10: 66 20 74 68 65 20 6c 69 62 72 61 72 79 20 69 73  f the library is
7a20: 20 63 6f 6d 70 69 6c 65 64 20 74 6f 20 6f 6d 69   compiled to omi
7a30: 74 20 74 68 65 20 66 75 6c 6c 2d 73 63 61 6c 65  t the full-scale
7a40: 20 64 61 74 65 20 61 6e 64 20 74 69 6d 65 0a 2a   date and time.*
7a50: 2a 20 68 61 6e 64 6c 69 6e 67 20 28 74 6f 20 67  * handling (to g
7a60: 65 74 20 61 20 73 6d 61 6c 6c 65 72 20 62 69 6e  et a smaller bin
7a70: 61 72 79 29 2c 20 74 68 65 20 66 6f 6c 6c 6f 77  ary), the follow
7a80: 69 6e 67 20 6d 69 6e 69 6d 61 6c 20 76 65 72 73  ing minimal vers
7a90: 69 6f 6e 0a 2a 2a 20 6f 66 20 74 68 65 20 66 75  ion.** of the fu
7aa0: 6e 63 74 69 6f 6e 73 20 63 75 72 72 65 6e 74 5f  nctions current_
7ab0: 74 69 6d 65 28 29 2c 20 63 75 72 72 65 6e 74 5f  time(), current_
7ac0: 64 61 74 65 28 29 20 61 6e 64 20 63 75 72 72 65  date() and curre
7ad0: 6e 74 5f 74 69 6d 65 73 74 61 6d 70 28 29 0a 2a  nt_timestamp().*
7ae0: 2a 20 61 72 65 20 69 6e 63 6c 75 64 65 64 20 69  * are included i
7af0: 6e 73 74 65 61 64 2e 20 54 68 69 73 20 69 73 20  nstead. This is 
7b00: 74 6f 20 73 75 70 70 6f 72 74 20 63 6f 6c 75 6d  to support colum
7b10: 6e 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 74  n declarations t
7b20: 68 61 74 0a 2a 2a 20 69 6e 63 6c 75 64 65 20 22  hat.** include "
7b30: 44 45 46 41 55 4c 54 20 43 55 52 52 45 4e 54 5f  DEFAULT CURRENT_
7b40: 54 49 4d 45 22 20 65 74 63 2e 0a 2a 2a 0a 2a 2a  TIME" etc..**.**
7b50: 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 75   This function u
7b60: 73 65 73 20 74 68 65 20 43 2d 6c 69 62 72 61 72  ses the C-librar
7b70: 79 20 66 75 6e 63 74 69 6f 6e 73 20 74 69 6d 65  y functions time
7b80: 28 29 2c 20 67 6d 74 69 6d 65 28 29 0a 2a 2a 20  (), gmtime().** 
7b90: 61 6e 64 20 73 74 72 66 74 69 6d 65 28 29 2e 20  and strftime(). 
7ba0: 54 68 65 20 66 6f 72 6d 61 74 20 73 74 72 69 6e  The format strin
7bb0: 67 20 74 6f 20 70 61 73 73 20 74 6f 20 73 74 72  g to pass to str
7bc0: 66 74 69 6d 65 28 29 20 69 73 20 73 75 70 70 6c  ftime() is suppl
7bd0: 69 65 64 0a 2a 2a 20 61 73 20 74 68 65 20 75 73  ied.** as the us
7be0: 65 72 2d 64 61 74 61 20 66 6f 72 20 74 68 65 20  er-data for the 
7bf0: 66 75 6e 63 74 69 6f 6e 2e 0a 2a 2f 0a 73 74 61  function..*/.sta
7c00: 74 69 63 20 76 6f 69 64 20 63 75 72 72 65 6e 74  tic void current
7c10: 54 69 6d 65 46 75 6e 63 28 0a 20 20 73 71 6c 69  TimeFunc(.  sqli
7c20: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e  te3_context *con
7c30: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63  text,.  int argc
7c40: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  ,.  sqlite3_valu
7c50: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 74 69  e **argv.){.  ti
7c60: 6d 65 5f 74 20 74 3b 0a 20 20 63 68 61 72 20 2a  me_t t;.  char *
7c70: 7a 46 6f 72 6d 61 74 20 3d 20 28 63 68 61 72 20  zFormat = (char 
7c80: 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64  *)sqlite3_user_d
7c90: 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20  ata(context);.  
7ca0: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 54  sqlite3_int64 iT
7cb0: 3b 0a 20 20 73 74 72 75 63 74 20 74 6d 20 2a 70  ;.  struct tm *p
7cc0: 54 6d 3b 0a 20 20 73 74 72 75 63 74 20 74 6d 20  Tm;.  struct tm 
7cd0: 73 4e 6f 77 3b 0a 20 20 63 68 61 72 20 7a 42 75  sNow;.  char zBu
7ce0: 66 5b 32 30 5d 3b 0a 0a 20 20 55 4e 55 53 45 44  f[20];..  UNUSED
7cf0: 5f 50 41 52 41 4d 45 54 45 52 28 61 72 67 63 29  _PARAMETER(argc)
7d00: 3b 0a 20 20 55 4e 55 53 45 44 5f 50 41 52 41 4d  ;.  UNUSED_PARAM
7d10: 45 54 45 52 28 61 72 67 76 29 3b 0a 0a 20 20 69  ETER(argv);..  i
7d20: 54 20 3d 20 73 71 6c 69 74 65 33 53 74 6d 74 43  T = sqlite3StmtC
7d30: 75 72 72 65 6e 74 54 69 6d 65 28 63 6f 6e 74 65  urrentTime(conte
7d40: 78 74 29 3b 0a 20 20 69 66 28 20 69 54 3c 3d 30  xt);.  if( iT<=0
7d50: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 74 20 3d   ) return;.  t =
7d60: 20 69 54 2f 31 30 30 30 20 2d 20 31 30 30 30 30   iT/1000 - 10000
7d70: 2a 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29  *(sqlite3_int64)
7d80: 32 31 30 38 36 36 37 36 3b 0a 23 69 66 20 48 41  21086676;.#if HA
7d90: 56 45 5f 47 4d 54 49 4d 45 5f 52 0a 20 20 70 54  VE_GMTIME_R.  pT
7da0: 6d 20 3d 20 67 6d 74 69 6d 65 5f 72 28 26 74 2c  m = gmtime_r(&t,
7db0: 20 26 73 4e 6f 77 29 3b 0a 23 65 6c 73 65 0a 20   &sNow);.#else. 
7dc0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65   sqlite3_mutex_e
7dd0: 6e 74 65 72 28 73 71 6c 69 74 65 33 4d 75 74 65  nter(sqlite3Mute
7de0: 78 41 6c 6c 6f 63 28 53 51 4c 49 54 45 5f 4d 55  xAlloc(SQLITE_MU
7df0: 54 45 58 5f 53 54 41 54 49 43 5f 4d 41 53 54 45  TEX_STATIC_MASTE
7e00: 52 29 29 3b 0a 20 20 70 54 6d 20 3d 20 67 6d 74  R));.  pTm = gmt
7e10: 69 6d 65 28 26 74 29 3b 0a 20 20 69 66 28 20 70  ime(&t);.  if( p
7e20: 54 6d 20 29 20 6d 65 6d 63 70 79 28 26 73 4e 6f  Tm ) memcpy(&sNo
7e30: 77 2c 20 70 54 6d 2c 20 73 69 7a 65 6f 66 28 73  w, pTm, sizeof(s
7e40: 4e 6f 77 29 29 3b 0a 20 20 73 71 6c 69 74 65 33  Now));.  sqlite3
7e50: 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 73 71 6c  _mutex_leave(sql
7e60: 69 74 65 33 4d 75 74 65 78 41 6c 6c 6f 63 28 53  ite3MutexAlloc(S
7e70: 51 4c 49 54 45 5f 4d 55 54 45 58 5f 53 54 41 54  QLITE_MUTEX_STAT
7e80: 49 43 5f 4d 41 53 54 45 52 29 29 3b 0a 23 65 6e  IC_MASTER));.#en
7e90: 64 69 66 0a 20 20 69 66 28 20 70 54 6d 20 29 7b  dif.  if( pTm ){
7ea0: 0a 20 20 20 20 73 74 72 66 74 69 6d 65 28 7a 42  .    strftime(zB
7eb0: 75 66 2c 20 32 30 2c 20 7a 46 6f 72 6d 61 74 2c  uf, 20, zFormat,
7ec0: 20 26 73 4e 6f 77 29 3b 0a 20 20 20 20 73 71 6c   &sNow);.    sql
7ed0: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74  ite3_result_text
7ee0: 28 63 6f 6e 74 65 78 74 2c 20 7a 42 75 66 2c 20  (context, zBuf, 
7ef0: 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53  -1, SQLITE_TRANS
7f00: 49 45 4e 54 29 3b 0a 20 20 7d 0a 7d 0a 23 65 6e  IENT);.  }.}.#en
7f10: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20  dif../*.** This 
7f20: 66 75 6e 63 74 69 6f 6e 20 72 65 67 69 73 74 65  function registe
7f30: 72 65 64 20 61 6c 6c 20 6f 66 20 74 68 65 20 61  red all of the a
7f40: 62 6f 76 65 20 43 20 66 75 6e 63 74 69 6f 6e 73  bove C functions
7f50: 20 61 73 20 53 51 4c 0a 2a 2a 20 66 75 6e 63 74   as SQL.** funct
7f60: 69 6f 6e 73 2e 20 20 54 68 69 73 20 73 68 6f 75  ions.  This shou
7f70: 6c 64 20 62 65 20 74 68 65 20 6f 6e 6c 79 20 72  ld be the only r
7f80: 6f 75 74 69 6e 65 20 69 6e 20 74 68 69 73 20 66  outine in this f
7f90: 69 6c 65 20 77 69 74 68 0a 2a 2a 20 65 78 74 65  ile with.** exte
7fa0: 72 6e 61 6c 20 6c 69 6e 6b 61 67 65 2e 0a 2a 2f  rnal linkage..*/
7fb0: 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 52 65 67  .void sqlite3Reg
7fc0: 69 73 74 65 72 44 61 74 65 54 69 6d 65 46 75 6e  isterDateTimeFun
7fd0: 63 74 69 6f 6e 73 28 76 6f 69 64 29 7b 0a 20 20  ctions(void){.  
7fe0: 73 74 61 74 69 63 20 46 75 6e 63 44 65 66 20 61  static FuncDef a
7ff0: 44 61 74 65 54 69 6d 65 46 75 6e 63 73 5b 5d 20  DateTimeFuncs[] 
8000: 3d 20 7b 0a 23 69 66 6e 64 65 66 20 53 51 4c 49  = {.#ifndef SQLI
8010: 54 45 5f 4f 4d 49 54 5f 44 41 54 45 54 49 4d 45  TE_OMIT_DATETIME
8020: 5f 46 55 4e 43 53 0a 20 20 20 20 50 55 52 45 5f  _FUNCS.    PURE_
8030: 44 41 54 45 28 6a 75 6c 69 61 6e 64 61 79 2c 20  DATE(julianday, 
8040: 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30 2c         -1, 0, 0,
8050: 20 6a 75 6c 69 61 6e 64 61 79 46 75 6e 63 20 29   juliandayFunc )
8060: 2c 0a 20 20 20 20 50 55 52 45 5f 44 41 54 45 28  ,.    PURE_DATE(
8070: 64 61 74 65 2c 20 20 20 20 20 20 20 20 20 20 20  date,           
8080: 20 20 2d 31 2c 20 30 2c 20 30 2c 20 64 61 74 65    -1, 0, 0, date
8090: 46 75 6e 63 20 20 20 20 20 20 29 2c 0a 20 20 20  Func      ),.   
80a0: 20 50 55 52 45 5f 44 41 54 45 28 74 69 6d 65 2c   PURE_DATE(time,
80b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 2c               -1,
80c0: 20 30 2c 20 30 2c 20 74 69 6d 65 46 75 6e 63 20   0, 0, timeFunc 
80d0: 20 20 20 20 20 29 2c 0a 20 20 20 20 50 55 52 45       ),.    PURE
80e0: 5f 44 41 54 45 28 64 61 74 65 74 69 6d 65 2c 20  _DATE(datetime, 
80f0: 20 20 20 20 20 20 20 20 2d 31 2c 20 30 2c 20 30          -1, 0, 0
8100: 2c 20 64 61 74 65 74 69 6d 65 46 75 6e 63 20 20  , datetimeFunc  
8110: 29 2c 0a 20 20 20 20 50 55 52 45 5f 44 41 54 45  ),.    PURE_DATE
8120: 28 73 74 72 66 74 69 6d 65 2c 20 20 20 20 20 20  (strftime,      
8130: 20 20 20 2d 31 2c 20 30 2c 20 30 2c 20 73 74 72     -1, 0, 0, str
8140: 66 74 69 6d 65 46 75 6e 63 20 20 29 2c 0a 20 20  ftimeFunc  ),.  
8150: 20 20 44 46 55 4e 43 54 49 4f 4e 28 63 75 72 72    DFUNCTION(curr
8160: 65 6e 74 5f 74 69 6d 65 2c 20 20 20 20 20 20 30  ent_time,      0
8170: 2c 20 30 2c 20 30 2c 20 63 74 69 6d 65 46 75 6e  , 0, 0, ctimeFun
8180: 63 20 20 20 20 20 29 2c 0a 20 20 20 20 44 46 55  c     ),.    DFU
8190: 4e 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f 74  NCTION(current_t
81a0: 69 6d 65 73 74 61 6d 70 2c 20 30 2c 20 30 2c 20  imestamp, 0, 0, 
81b0: 30 2c 20 63 74 69 6d 65 73 74 61 6d 70 46 75 6e  0, ctimestampFun
81c0: 63 29 2c 0a 20 20 20 20 44 46 55 4e 43 54 49 4f  c),.    DFUNCTIO
81d0: 4e 28 63 75 72 72 65 6e 74 5f 64 61 74 65 2c 20  N(current_date, 
81e0: 20 20 20 20 20 30 2c 20 30 2c 20 30 2c 20 63 64       0, 0, 0, cd
81f0: 61 74 65 46 75 6e 63 20 20 20 20 20 29 2c 0a 23  ateFunc     ),.#
8200: 65 6c 73 65 0a 20 20 20 20 53 54 52 5f 46 55 4e  else.    STR_FUN
8210: 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f 74 69  CTION(current_ti
8220: 6d 65 2c 20 20 20 20 20 20 30 2c 20 22 25 48 3a  me,      0, "%H:
8230: 25 4d 3a 25 53 22 2c 20 20 20 20 20 20 20 20 20  %M:%S",         
8240: 20 30 2c 20 63 75 72 72 65 6e 74 54 69 6d 65 46   0, currentTimeF
8250: 75 6e 63 29 2c 0a 20 20 20 20 53 54 52 5f 46 55  unc),.    STR_FU
8260: 4e 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f 64  NCTION(current_d
8270: 61 74 65 2c 20 20 20 20 20 20 30 2c 20 22 25 59  ate,      0, "%Y
8280: 2d 25 6d 2d 25 64 22 2c 20 20 20 20 20 20 20 20  -%m-%d",        
8290: 20 20 30 2c 20 63 75 72 72 65 6e 74 54 69 6d 65    0, currentTime
82a0: 46 75 6e 63 29 2c 0a 20 20 20 20 53 54 52 5f 46  Func),.    STR_F
82b0: 55 4e 43 54 49 4f 4e 28 63 75 72 72 65 6e 74 5f  UNCTION(current_
82c0: 74 69 6d 65 73 74 61 6d 70 2c 20 30 2c 20 22 25  timestamp, 0, "%
82d0: 59 2d 25 6d 2d 25 64 20 25 48 3a 25 4d 3a 25 53  Y-%m-%d %H:%M:%S
82e0: 22 2c 20 30 2c 20 63 75 72 72 65 6e 74 54 69 6d  ", 0, currentTim
82f0: 65 46 75 6e 63 29 2c 0a 23 65 6e 64 69 66 0a 20  eFunc),.#endif. 
8300: 20 7d 3b 0a 20 20 73 71 6c 69 74 65 33 49 6e 73   };.  sqlite3Ins
8310: 65 72 74 42 75 69 6c 74 69 6e 46 75 6e 63 73 28  ertBuiltinFuncs(
8320: 61 44 61 74 65 54 69 6d 65 46 75 6e 63 73 2c 20  aDateTimeFuncs, 
8330: 41 72 72 61 79 53 69 7a 65 28 61 44 61 74 65 54  ArraySize(aDateT
8340: 69 6d 65 46 75 6e 63 73 29 29 3b 0a 7d 0a        imeFuncs));.}.