/ Hex Artifact Content
Login

Artifact 6129adfbe7c7444f2e60cc785927f3aa74e12290:


0000: 2f 2a 0a 2a 2a 20 32 30 31 31 20 41 70 72 69 6c  /*.** 2011 April
0010: 20 30 32 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75   02.**.** The au
0020: 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63  thor disclaims c
0030: 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73  opyright to this
0040: 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49   source code.  I
0050: 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20  n place of.** a 
0060: 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65  legal notice, he
0070: 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67  re is a blessing
0080: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79  :.**.**    May y
0090: 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e  ou do good and n
00a0: 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d  ot evil..**    M
00b0: 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67  ay you find forg
00c0: 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72  iveness for your
00d0: 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65  self and forgive
00e0: 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d   others..**    M
00f0: 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65  ay you share fre
0100: 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e  ely, never takin
0110: 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20  g more than you 
0120: 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a  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 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69  **.**.** This fi
0180: 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20  le implements a 
0190: 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20 74 68  virtual table th
01a0: 61 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 77  at returns the w
01b0: 68 6f 6c 65 20 6e 75 6d 62 65 72 73 0a 2a 2a 20  hole numbers.** 
01c0: 62 65 74 77 65 65 6e 20 31 20 61 6e 64 20 34 32  between 1 and 42
01d0: 39 34 39 36 37 32 39 35 2c 20 69 6e 63 6c 75 73  94967295, inclus
01e0: 69 76 65 2e 0a 2a 2a 0a 2a 2a 20 45 78 61 6d 70  ive..**.** Examp
01f0: 6c 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 43 52  le:.**.**     CR
0200: 45 41 54 45 20 56 49 52 54 55 41 4c 20 54 41 42  EATE VIRTUAL TAB
0210: 4c 45 20 6e 75 6d 73 20 55 53 49 4e 47 20 77 68  LE nums USING wh
0220: 6f 6c 65 6e 75 6d 62 65 72 3b 0a 2a 2a 20 20 20  olenumber;.**   
0230: 20 20 53 45 4c 45 43 54 20 76 61 6c 75 65 20 46    SELECT value F
0240: 52 4f 4d 20 6e 75 6d 73 20 57 48 45 52 45 20 76  ROM nums WHERE v
0250: 61 6c 75 65 3c 31 30 3b 0a 2a 2a 0a 2a 2a 20 52  alue<10;.**.** R
0260: 65 73 75 6c 74 73 20 69 6e 3a 0a 2a 2a 0a 2a 2a  esults in:.**.**
0270: 20 20 20 20 20 31 20 32 20 33 20 34 20 35 20 36       1 2 3 4 5 6
0280: 20 37 20 38 20 39 0a 2a 2f 0a 23 69 6e 63 6c 75   7 8 9.*/.#inclu
0290: 64 65 20 22 73 71 6c 69 74 65 33 2e 68 22 0a 23  de "sqlite3.h".#
02a0: 69 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e  include <assert.
02b0: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72  h>.#include <str
02c0: 69 6e 67 2e 68 3e 0a 0a 23 69 66 6e 64 65 66 20  ing.h>..#ifndef 
02d0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54  SQLITE_OMIT_VIRT
02e0: 55 41 4c 54 41 42 4c 45 0a 0a 0a 2f 2a 20 41 20  UALTABLE.../* A 
02f0: 77 68 6f 6c 65 6e 75 6d 62 65 72 20 63 75 72 73  wholenumber curs
0300: 6f 72 20 6f 62 6a 65 63 74 20 2a 2f 0a 74 79 70  or object */.typ
0310: 65 64 65 66 20 73 74 72 75 63 74 20 77 68 6f 6c  edef struct whol
0320: 65 6e 75 6d 62 65 72 5f 63 75 72 73 6f 72 20 77  enumber_cursor w
0330: 68 6f 6c 65 6e 75 6d 62 65 72 5f 63 75 72 73 6f  holenumber_curso
0340: 72 3b 0a 73 74 72 75 63 74 20 77 68 6f 6c 65 6e  r;.struct wholen
0350: 75 6d 62 65 72 5f 63 75 72 73 6f 72 20 7b 0a 20  umber_cursor {. 
0360: 20 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75   sqlite3_vtab_cu
0370: 72 73 6f 72 20 62 61 73 65 3b 20 20 2f 2a 20 42  rsor base;  /* B
0380: 61 73 65 20 63 6c 61 73 73 20 2d 20 6d 75 73 74  ase class - must
0390: 20 62 65 20 66 69 72 73 74 20 2a 2f 0a 20 20 75   be first */.  u
03a0: 6e 73 69 67 6e 65 64 20 69 56 61 6c 75 65 3b 20  nsigned iValue; 
03b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 75 72            /* Cur
03c0: 72 65 6e 74 20 76 61 6c 75 65 20 2a 2f 0a 20 20  rent value */.  
03d0: 75 6e 73 69 67 6e 65 64 20 6d 78 56 61 6c 75 65  unsigned mxValue
03e0: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4d 61  ;          /* Ma
03f0: 78 69 6d 75 6d 20 76 61 6c 75 65 20 2a 2f 0a 7d  ximum value */.}
0400: 3b 0a 0a 2f 2a 20 4d 65 74 68 6f 64 73 20 66 6f  ;../* Methods fo
0410: 72 20 74 68 65 20 77 68 6f 6c 65 6e 75 6d 62 65  r the wholenumbe
0420: 72 20 6d 6f 64 75 6c 65 20 2a 2f 0a 73 74 61 74  r module */.stat
0430: 69 63 20 69 6e 74 20 77 68 6f 6c 65 6e 75 6d 62  ic int wholenumb
0440: 65 72 43 6f 6e 6e 65 63 74 28 0a 20 20 73 71 6c  erConnect(.  sql
0450: 69 74 65 33 20 2a 64 62 2c 0a 20 20 76 6f 69 64  ite3 *db,.  void
0460: 20 2a 70 41 75 78 2c 0a 20 20 69 6e 74 20 61 72   *pAux,.  int ar
0470: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  gc, const char *
0480: 63 6f 6e 73 74 2a 61 72 67 76 2c 0a 20 20 73 71  const*argv,.  sq
0490: 6c 69 74 65 33 5f 76 74 61 62 20 2a 2a 70 70 56  lite3_vtab **ppV
04a0: 74 61 62 2c 0a 20 20 63 68 61 72 20 2a 2a 70 7a  tab,.  char **pz
04b0: 45 72 72 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33  Err.){.  sqlite3
04c0: 5f 76 74 61 62 20 2a 70 4e 65 77 3b 0a 20 20 70  _vtab *pNew;.  p
04d0: 4e 65 77 20 3d 20 2a 70 70 56 74 61 62 20 3d 20  New = *ppVtab = 
04e0: 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20  sqlite3_malloc( 
04f0: 73 69 7a 65 6f 66 28 2a 70 4e 65 77 29 20 29 3b  sizeof(*pNew) );
0500: 0a 20 20 69 66 28 20 70 4e 65 77 3d 3d 30 20 29  .  if( pNew==0 )
0510: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e   return SQLITE_N
0520: 4f 4d 45 4d 3b 0a 20 20 73 71 6c 69 74 65 33 5f  OMEM;.  sqlite3_
0530: 64 65 63 6c 61 72 65 5f 76 74 61 62 28 64 62 2c  declare_vtab(db,
0540: 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 78   "CREATE TABLE x
0550: 28 76 61 6c 75 65 29 22 29 3b 0a 20 20 6d 65 6d  (value)");.  mem
0560: 73 65 74 28 70 4e 65 77 2c 20 30 2c 20 73 69 7a  set(pNew, 0, siz
0570: 65 6f 66 28 2a 70 4e 65 77 29 29 3b 0a 20 20 72  eof(*pNew));.  r
0580: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b  eturn SQLITE_OK;
0590: 0a 7d 0a 2f 2a 20 4e 6f 74 65 20 74 68 61 74 20  .}./* Note that 
05a0: 66 6f 72 20 74 68 69 73 20 76 69 72 74 75 61 6c  for this virtual
05b0: 20 74 61 62 6c 65 2c 20 74 68 65 20 78 43 72 65   table, the xCre
05c0: 61 74 65 20 61 6e 64 20 78 43 6f 6e 6e 65 63 74  ate and xConnect
05d0: 0a 2a 2a 20 6d 65 74 68 6f 64 73 20 61 72 65 20  .** methods are 
05e0: 69 64 65 6e 74 69 63 61 6c 2e 20 2a 2f 0a 0a 73  identical. */..s
05f0: 74 61 74 69 63 20 69 6e 74 20 77 68 6f 6c 65 6e  tatic int wholen
0600: 75 6d 62 65 72 44 69 73 63 6f 6e 6e 65 63 74 28  umberDisconnect(
0610: 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 70 56  sqlite3_vtab *pV
0620: 74 61 62 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f  tab){.  sqlite3_
0630: 66 72 65 65 28 70 56 74 61 62 29 3b 0a 20 20 72  free(pVtab);.  r
0640: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b  eturn SQLITE_OK;
0650: 0a 7d 0a 2f 2a 20 54 68 65 20 78 44 69 73 63 6f  .}./* The xDisco
0660: 6e 6e 65 63 74 20 61 6e 64 20 78 44 65 73 74 72  nnect and xDestr
0670: 6f 79 20 6d 65 74 68 6f 64 73 20 61 72 65 20 61  oy methods are a
0680: 6c 73 6f 20 74 68 65 20 73 61 6d 65 20 2a 2f 0a  lso the same */.
0690: 0a 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e 20 61 20 6e  ../*.** Open a n
06a0: 65 77 20 77 68 6f 6c 65 6e 75 6d 62 65 72 20 63  ew wholenumber c
06b0: 75 72 73 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63  ursor..*/.static
06c0: 20 69 6e 74 20 77 68 6f 6c 65 6e 75 6d 62 65 72   int wholenumber
06d0: 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 74 61  Open(sqlite3_vta
06e0: 62 20 2a 70 2c 20 73 71 6c 69 74 65 33 5f 76 74  b *p, sqlite3_vt
06f0: 61 62 5f 63 75 72 73 6f 72 20 2a 2a 70 70 43 75  ab_cursor **ppCu
0700: 72 73 6f 72 29 7b 0a 20 20 77 68 6f 6c 65 6e 75  rsor){.  wholenu
0710: 6d 62 65 72 5f 63 75 72 73 6f 72 20 2a 70 43 75  mber_cursor *pCu
0720: 72 3b 0a 20 20 70 43 75 72 20 3d 20 73 71 6c 69  r;.  pCur = sqli
0730: 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 73 69 7a 65  te3_malloc( size
0740: 6f 66 28 2a 70 43 75 72 29 20 29 3b 0a 20 20 69  of(*pCur) );.  i
0750: 66 28 20 70 43 75 72 3d 3d 30 20 29 20 72 65 74  f( pCur==0 ) ret
0760: 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d  urn SQLITE_NOMEM
0770: 3b 0a 20 20 6d 65 6d 73 65 74 28 70 43 75 72 2c  ;.  memset(pCur,
0780: 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 43 75 72   0, sizeof(*pCur
0790: 29 29 3b 0a 20 20 2a 70 70 43 75 72 73 6f 72 20  ));.  *ppCursor 
07a0: 3d 20 26 70 43 75 72 2d 3e 62 61 73 65 3b 0a 20  = &pCur->base;. 
07b0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
07c0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73  K;.}../*.** Clos
07d0: 65 20 61 20 77 68 6f 6c 65 6e 75 6d 62 65 72 20  e a wholenumber 
07e0: 63 75 72 73 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69  cursor..*/.stati
07f0: 63 20 69 6e 74 20 77 68 6f 6c 65 6e 75 6d 62 65  c int wholenumbe
0800: 72 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 76  rClose(sqlite3_v
0810: 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72 29  tab_cursor *cur)
0820: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65  {.  sqlite3_free
0830: 28 63 75 72 29 3b 0a 20 20 72 65 74 75 72 6e 20  (cur);.  return 
0840: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f  SQLITE_OK;.}.../
0850: 2a 0a 2a 2a 20 41 64 76 61 6e 63 65 20 61 20 63  *.** Advance a c
0860: 75 72 73 6f 72 20 74 6f 20 69 74 73 20 6e 65 78  ursor to its nex
0870: 74 20 72 6f 77 20 6f 66 20 6f 75 74 70 75 74 0a  t row of output.
0880: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 77 68  */.static int wh
0890: 6f 6c 65 6e 75 6d 62 65 72 4e 65 78 74 28 73 71  olenumberNext(sq
08a0: 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f  lite3_vtab_curso
08b0: 72 20 2a 63 75 72 29 7b 0a 20 20 77 68 6f 6c 65  r *cur){.  whole
08c0: 6e 75 6d 62 65 72 5f 63 75 72 73 6f 72 20 2a 70  number_cursor *p
08d0: 43 75 72 20 3d 20 28 77 68 6f 6c 65 6e 75 6d 62  Cur = (wholenumb
08e0: 65 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b 0a  er_cursor*)cur;.
08f0: 20 20 70 43 75 72 2d 3e 69 56 61 6c 75 65 2b 2b    pCur->iValue++
0900: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ;.  return SQLIT
0910: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  E_OK;.}../*.** R
0920: 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20  eturn the value 
0930: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
0940: 61 20 77 68 6f 6c 65 6e 75 6d 62 65 72 2e 0a 2a  a wholenumber..*
0950: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 77 68 6f  /.static int who
0960: 6c 65 6e 75 6d 62 65 72 43 6f 6c 75 6d 6e 28 0a  lenumberColumn(.
0970: 20 20 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63    sqlite3_vtab_c
0980: 75 72 73 6f 72 20 2a 63 75 72 2c 0a 20 20 73 71  ursor *cur,.  sq
0990: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
09a0: 74 78 2c 0a 20 20 69 6e 74 20 69 0a 29 7b 0a 20  tx,.  int i.){. 
09b0: 20 77 68 6f 6c 65 6e 75 6d 62 65 72 5f 63 75 72   wholenumber_cur
09c0: 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 77 68 6f  sor *pCur = (who
09d0: 6c 65 6e 75 6d 62 65 72 5f 63 75 72 73 6f 72 2a  lenumber_cursor*
09e0: 29 63 75 72 3b 0a 20 20 73 71 6c 69 74 65 33 5f  )cur;.  sqlite3_
09f0: 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 74 78  result_int64(ctx
0a00: 2c 20 70 43 75 72 2d 3e 69 56 61 6c 75 65 29 3b  , pCur->iValue);
0a10: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45  .  return SQLITE
0a20: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68  _OK;.}../*.** Th
0a30: 65 20 72 6f 77 69 64 2e 0a 2a 2f 0a 73 74 61 74  e rowid..*/.stat
0a40: 69 63 20 69 6e 74 20 77 68 6f 6c 65 6e 75 6d 62  ic int wholenumb
0a50: 65 72 52 6f 77 69 64 28 73 71 6c 69 74 65 33 5f  erRowid(sqlite3_
0a60: 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72  vtab_cursor *cur
0a70: 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a  , sqlite_int64 *
0a80: 70 52 6f 77 69 64 29 7b 0a 20 20 77 68 6f 6c 65  pRowid){.  whole
0a90: 6e 75 6d 62 65 72 5f 63 75 72 73 6f 72 20 2a 70  number_cursor *p
0aa0: 43 75 72 20 3d 20 28 77 68 6f 6c 65 6e 75 6d 62  Cur = (wholenumb
0ab0: 65 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b 0a  er_cursor*)cur;.
0ac0: 20 20 2a 70 52 6f 77 69 64 20 3d 20 70 43 75 72    *pRowid = pCur
0ad0: 2d 3e 69 56 61 6c 75 65 3b 0a 20 20 72 65 74 75  ->iValue;.  retu
0ae0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a  rn SQLITE_OK;.}.
0af0: 0a 2f 2a 0a 2a 2a 20 57 68 65 6e 20 74 68 65 20  ./*.** When the 
0b00: 77 68 6f 6c 65 6e 75 6d 62 65 72 5f 63 75 72 73  wholenumber_curs
0b10: 6f 72 2e 72 4c 69 6d 69 74 20 76 61 6c 75 65 20  or.rLimit value 
0b20: 69 73 20 30 20 6f 72 20 6c 65 73 73 2c 20 74 68  is 0 or less, th
0b30: 61 74 20 69 73 20 61 20 73 69 67 6e 61 6c 0a 2a  at is a signal.*
0b40: 2a 20 74 68 61 74 20 74 68 65 20 63 75 72 73 6f  * that the curso
0b50: 72 20 68 61 73 20 6e 6f 74 68 69 6e 67 20 6d 6f  r has nothing mo
0b60: 72 65 20 74 6f 20 6f 75 74 70 75 74 2e 0a 2a 2f  re to output..*/
0b70: 0a 73 74 61 74 69 63 20 69 6e 74 20 77 68 6f 6c  .static int whol
0b80: 65 6e 75 6d 62 65 72 45 6f 66 28 73 71 6c 69 74  enumberEof(sqlit
0b90: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a  e3_vtab_cursor *
0ba0: 63 75 72 29 7b 0a 20 20 77 68 6f 6c 65 6e 75 6d  cur){.  wholenum
0bb0: 62 65 72 5f 63 75 72 73 6f 72 20 2a 70 43 75 72  ber_cursor *pCur
0bc0: 20 3d 20 28 77 68 6f 6c 65 6e 75 6d 62 65 72 5f   = (wholenumber_
0bd0: 63 75 72 73 6f 72 2a 29 63 75 72 3b 0a 20 20 72  cursor*)cur;.  r
0be0: 65 74 75 72 6e 20 70 43 75 72 2d 3e 69 56 61 6c  eturn pCur->iVal
0bf0: 75 65 3e 70 43 75 72 2d 3e 6d 78 56 61 6c 75 65  ue>pCur->mxValue
0c00: 20 7c 7c 20 70 43 75 72 2d 3e 69 56 61 6c 75 65   || pCur->iValue
0c10: 3d 3d 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 61  ==0;.}../*.** Ca
0c20: 6c 6c 65 64 20 74 6f 20 22 72 65 77 69 6e 64 22  lled to "rewind"
0c30: 20 61 20 63 75 72 73 6f 72 20 62 61 63 6b 20 74   a cursor back t
0c40: 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20  o the beginning 
0c50: 73 6f 20 74 68 61 74 0a 2a 2a 20 69 74 20 73 74  so that.** it st
0c60: 61 72 74 73 20 69 74 73 20 6f 75 74 70 75 74 20  arts its output 
0c70: 6f 76 65 72 20 61 67 61 69 6e 2e 20 20 41 6c 77  over again.  Alw
0c80: 61 79 73 20 63 61 6c 6c 65 64 20 61 74 20 6c 65  ays called at le
0c90: 61 73 74 20 6f 6e 63 65 0a 2a 2a 20 70 72 69 6f  ast once.** prio
0ca0: 72 20 74 6f 20 61 6e 79 20 77 68 6f 6c 65 6e 75  r to any wholenu
0cb0: 6d 62 65 72 43 6f 6c 75 6d 6e 2c 20 77 68 6f 6c  mberColumn, whol
0cc0: 65 6e 75 6d 62 65 72 52 6f 77 69 64 2c 20 6f 72  enumberRowid, or
0cd0: 20 77 68 6f 6c 65 6e 75 6d 62 65 72 45 6f 66 20   wholenumberEof 
0ce0: 63 61 6c 6c 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 69  call..**.**    i
0cf0: 64 78 4e 75 6d 20 20 20 43 6f 6e 73 74 72 61 69  dxNum   Constrai
0d00: 6e 74 73 0a 2a 2a 20 20 20 20 2d 2d 2d 2d 2d 2d  nts.**    ------
0d10: 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d     -------------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 0a 2a 2a 20 20 20 20 20  --------.**     
0d30: 20 30 20 20 20 20 20 20 28 6e 6f 6e 65 29 0a 2a   0      (none).*
0d40: 2a 20 20 20 20 20 20 31 20 20 20 20 20 20 76 61  *      1      va
0d50: 6c 75 65 20 3e 20 24 61 72 67 76 30 0a 2a 2a 20  lue > $argv0.** 
0d60: 20 20 20 20 20 32 20 20 20 20 20 20 76 61 6c 75       2      valu
0d70: 65 20 3e 3d 20 24 61 72 67 76 30 0a 2a 2a 20 20  e >= $argv0.**  
0d80: 20 20 20 20 34 20 20 20 20 20 20 76 61 6c 75 65      4      value
0d90: 20 3c 20 24 61 72 67 76 30 0a 2a 2a 20 20 20 20   < $argv0.**    
0da0: 20 20 38 20 20 20 20 20 20 76 61 6c 75 65 20 3c    8      value <
0db0: 3d 20 24 61 72 67 76 30 0a 2a 2a 0a 2a 2a 20 20  = $argv0.**.**  
0dc0: 20 20 20 20 35 20 20 20 20 20 20 76 61 6c 75 65      5      value
0dd0: 20 3e 20 24 61 72 67 76 30 20 41 4e 44 20 76 61   > $argv0 AND va
0de0: 6c 75 65 20 3c 20 24 61 72 67 76 31 0a 2a 2a 20  lue < $argv1.** 
0df0: 20 20 20 20 20 36 20 20 20 20 20 20 76 61 6c 75       6      valu
0e00: 65 20 3e 3d 20 24 61 72 67 76 30 20 41 4e 44 20  e >= $argv0 AND 
0e10: 76 61 6c 75 65 20 3c 20 24 61 72 67 76 31 0a 2a  value < $argv1.*
0e20: 2a 20 20 20 20 20 20 39 20 20 20 20 20 20 76 61  *      9      va
0e30: 6c 75 65 20 3e 20 24 61 72 67 76 30 20 41 4e 44  lue > $argv0 AND
0e40: 20 76 61 6c 75 65 20 3c 3d 20 24 61 72 67 76 31   value <= $argv1
0e50: 0a 2a 2a 20 20 20 20 20 31 30 20 20 20 20 20 20  .**     10      
0e60: 76 61 6c 75 65 20 3e 3d 20 24 61 72 67 76 30 20  value >= $argv0 
0e70: 41 4e 44 20 76 61 6c 75 65 20 3c 3d 20 24 61 72  AND value <= $ar
0e80: 67 76 31 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  gv1.*/.static in
0e90: 74 20 77 68 6f 6c 65 6e 75 6d 62 65 72 46 69 6c  t wholenumberFil
0ea0: 74 65 72 28 0a 20 20 73 71 6c 69 74 65 33 5f 76  ter(.  sqlite3_v
0eb0: 74 61 62 5f 63 75 72 73 6f 72 20 2a 70 56 74 61  tab_cursor *pVta
0ec0: 62 43 75 72 73 6f 72 2c 20 0a 20 20 69 6e 74 20  bCursor, .  int 
0ed0: 69 64 78 4e 75 6d 2c 20 63 6f 6e 73 74 20 63 68  idxNum, const ch
0ee0: 61 72 20 2a 69 64 78 53 74 72 2c 0a 20 20 69 6e  ar *idxStr,.  in
0ef0: 74 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f  t argc, sqlite3_
0f00: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
0f10: 20 20 77 68 6f 6c 65 6e 75 6d 62 65 72 5f 63 75    wholenumber_cu
0f20: 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 77 68  rsor *pCur = (wh
0f30: 6f 6c 65 6e 75 6d 62 65 72 5f 63 75 72 73 6f 72  olenumber_cursor
0f40: 20 2a 29 70 56 74 61 62 43 75 72 73 6f 72 3b 0a   *)pVtabCursor;.
0f50: 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20    sqlite3_int64 
0f60: 76 3b 0a 20 20 69 6e 74 20 69 20 3d 20 30 3b 0a  v;.  int i = 0;.
0f70: 20 20 70 43 75 72 2d 3e 69 56 61 6c 75 65 20 3d    pCur->iValue =
0f80: 20 31 3b 0a 20 20 70 43 75 72 2d 3e 6d 78 56 61   1;.  pCur->mxVa
0f90: 6c 75 65 20 3d 20 30 78 66 66 66 66 66 66 66 66  lue = 0xffffffff
0fa0: 3b 20 20 2f 2a 20 34 32 39 34 39 36 37 32 39 35  ;  /* 4294967295
0fb0: 20 2a 2f 0a 20 20 69 66 28 20 69 64 78 4e 75 6d   */.  if( idxNum
0fc0: 20 26 20 33 20 29 7b 0a 20 20 20 20 76 20 3d 20   & 3 ){.    v = 
0fd0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e  sqlite3_value_in
0fe0: 74 36 34 28 61 72 67 76 5b 30 5d 29 20 2b 20 28  t64(argv[0]) + (
0ff0: 69 64 78 4e 75 6d 26 31 29 3b 0a 20 20 20 20 69  idxNum&1);.    i
1000: 66 28 20 76 3e 70 43 75 72 2d 3e 69 56 61 6c 75  f( v>pCur->iValu
1010: 65 20 26 26 20 76 3c 3d 70 43 75 72 2d 3e 6d 78  e && v<=pCur->mx
1020: 56 61 6c 75 65 20 29 20 70 43 75 72 2d 3e 69 56  Value ) pCur->iV
1030: 61 6c 75 65 20 3d 20 76 3b 0a 20 20 20 20 69 2b  alue = v;.    i+
1040: 2b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 69 64 78  +;.  }.  if( idx
1050: 4e 75 6d 20 26 20 31 32 20 29 7b 0a 20 20 20 20  Num & 12 ){.    
1060: 76 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  v = sqlite3_valu
1070: 65 5f 69 6e 74 36 34 28 61 72 67 76 5b 69 5d 29  e_int64(argv[i])
1080: 20 2d 20 28 28 69 64 78 4e 75 6d 3e 3e 32 29 26   - ((idxNum>>2)&
1090: 31 29 3b 0a 20 20 20 20 69 66 28 20 76 3e 3d 70  1);.    if( v>=p
10a0: 43 75 72 2d 3e 69 56 61 6c 75 65 20 26 26 20 76  Cur->iValue && v
10b0: 3c 70 43 75 72 2d 3e 6d 78 56 61 6c 75 65 20 29  <pCur->mxValue )
10c0: 20 70 43 75 72 2d 3e 6d 78 56 61 6c 75 65 20 3d   pCur->mxValue =
10d0: 20 76 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e   v;.  }.  return
10e0: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f   SQLITE_OK;.}../
10f0: 2a 0a 2a 2a 20 53 65 61 72 63 68 20 66 6f 72 20  *.** Search for 
1100: 74 65 72 6d 73 20 6f 66 20 74 68 65 73 65 20 66  terms of these f
1110: 6f 72 6d 73 3a 0a 2a 2a 0a 2a 2a 20 20 28 31 29  orms:.**.**  (1)
1120: 20 20 76 61 6c 75 65 20 3e 20 24 76 61 6c 75 65    value > $value
1130: 0a 2a 2a 20 20 28 32 29 20 20 76 61 6c 75 65 20  .**  (2)  value 
1140: 3e 3d 20 24 76 61 6c 75 65 0a 2a 2a 20 20 28 34  >= $value.**  (4
1150: 29 20 20 76 61 6c 75 65 20 3c 20 24 76 61 6c 75  )  value < $valu
1160: 65 0a 2a 2a 20 20 28 38 29 20 20 76 61 6c 75 65  e.**  (8)  value
1170: 20 3c 3d 20 24 76 61 6c 75 65 0a 2a 2a 0a 2a 2a   <= $value.**.**
1180: 20 69 64 78 4e 75 6d 20 69 73 20 61 6e 20 4f 52   idxNum is an OR
1190: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f  ed combination o
11a0: 66 20 31 20 6f 72 20 32 20 77 69 74 68 20 34 20  f 1 or 2 with 4 
11b0: 6f 72 20 38 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  or 8..*/.static 
11c0: 69 6e 74 20 77 68 6f 6c 65 6e 75 6d 62 65 72 42  int wholenumberB
11d0: 65 73 74 49 6e 64 65 78 28 0a 20 20 73 71 6c 69  estIndex(.  sqli
11e0: 74 65 33 5f 76 74 61 62 20 2a 74 61 62 2c 0a 20  te3_vtab *tab,. 
11f0: 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 5f 69   sqlite3_index_i
1200: 6e 66 6f 20 2a 70 49 64 78 49 6e 66 6f 0a 29 7b  nfo *pIdxInfo.){
1210: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20  .  int i;.  int 
1220: 69 64 78 4e 75 6d 20 3d 20 30 3b 0a 20 20 69 6e  idxNum = 0;.  in
1230: 74 20 61 72 67 76 49 64 78 20 3d 20 31 3b 0a 20  t argvIdx = 1;. 
1240: 20 69 6e 74 20 6c 74 49 64 78 20 3d 20 2d 31 3b   int ltIdx = -1;
1250: 0a 20 20 69 6e 74 20 67 74 49 64 78 20 3d 20 2d  .  int gtIdx = -
1260: 31 3b 0a 20 20 63 6f 6e 73 74 20 73 74 72 75 63  1;.  const struc
1270: 74 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 5f  t sqlite3_index_
1280: 63 6f 6e 73 74 72 61 69 6e 74 20 2a 70 43 6f 6e  constraint *pCon
1290: 73 74 72 61 69 6e 74 3b 0a 20 20 70 43 6f 6e 73  straint;.  pCons
12a0: 74 72 61 69 6e 74 20 3d 20 70 49 64 78 49 6e 66  traint = pIdxInf
12b0: 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74 3b 0a  o->aConstraint;.
12c0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 70 49 64    for(i=0; i<pId
12d0: 78 49 6e 66 6f 2d 3e 6e 43 6f 6e 73 74 72 61 69  xInfo->nConstrai
12e0: 6e 74 3b 20 69 2b 2b 2c 20 70 43 6f 6e 73 74 72  nt; i++, pConstr
12f0: 61 69 6e 74 2b 2b 29 7b 0a 20 20 20 20 69 66 28  aint++){.    if(
1300: 20 70 43 6f 6e 73 74 72 61 69 6e 74 2d 3e 75 73   pConstraint->us
1310: 61 62 6c 65 3d 3d 30 20 29 20 63 6f 6e 74 69 6e  able==0 ) contin
1320: 75 65 3b 0a 20 20 20 20 69 66 28 20 28 69 64 78  ue;.    if( (idx
1330: 4e 75 6d 20 26 20 33 29 3d 3d 30 20 26 26 20 70  Num & 3)==0 && p
1340: 43 6f 6e 73 74 72 61 69 6e 74 2d 3e 6f 70 3d 3d  Constraint->op==
1350: 53 51 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e  SQLITE_INDEX_CON
1360: 53 54 52 41 49 4e 54 5f 47 54 20 29 7b 0a 20 20  STRAINT_GT ){.  
1370: 20 20 20 20 69 64 78 4e 75 6d 20 7c 3d 20 31 3b      idxNum |= 1;
1380: 0a 20 20 20 20 20 20 6c 74 49 64 78 20 3d 20 69  .      ltIdx = i
1390: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20  ;.    }.    if( 
13a0: 28 69 64 78 4e 75 6d 20 26 20 33 29 3d 3d 30 20  (idxNum & 3)==0 
13b0: 26 26 20 70 43 6f 6e 73 74 72 61 69 6e 74 2d 3e  && pConstraint->
13c0: 6f 70 3d 3d 53 51 4c 49 54 45 5f 49 4e 44 45 58  op==SQLITE_INDEX
13d0: 5f 43 4f 4e 53 54 52 41 49 4e 54 5f 47 45 20 29  _CONSTRAINT_GE )
13e0: 7b 0a 20 20 20 20 20 20 69 64 78 4e 75 6d 20 7c  {.      idxNum |
13f0: 3d 20 32 3b 0a 20 20 20 20 20 20 6c 74 49 64 78  = 2;.      ltIdx
1400: 20 3d 20 69 3b 0a 20 20 20 20 7d 0a 20 20 20 20   = i;.    }.    
1410: 69 66 28 20 28 69 64 78 4e 75 6d 20 26 20 31 32  if( (idxNum & 12
1420: 29 3d 3d 30 20 26 26 20 70 43 6f 6e 73 74 72 61  )==0 && pConstra
1430: 69 6e 74 2d 3e 6f 70 3d 3d 53 51 4c 49 54 45 5f  int->op==SQLITE_
1440: 49 4e 44 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54  INDEX_CONSTRAINT
1450: 5f 4c 54 20 29 7b 0a 20 20 20 20 20 20 69 64 78  _LT ){.      idx
1460: 4e 75 6d 20 7c 3d 20 34 3b 0a 20 20 20 20 20 20  Num |= 4;.      
1470: 67 74 49 64 78 20 3d 20 69 3b 0a 20 20 20 20 7d  gtIdx = i;.    }
1480: 0a 20 20 20 20 69 66 28 20 28 69 64 78 4e 75 6d  .    if( (idxNum
1490: 20 26 20 31 32 29 3d 3d 30 20 26 26 20 70 43 6f   & 12)==0 && pCo
14a0: 6e 73 74 72 61 69 6e 74 2d 3e 6f 70 3d 3d 53 51  nstraint->op==SQ
14b0: 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53 54  LITE_INDEX_CONST
14c0: 52 41 49 4e 54 5f 4c 45 20 29 7b 0a 20 20 20 20  RAINT_LE ){.    
14d0: 20 20 69 64 78 4e 75 6d 20 7c 3d 20 38 3b 0a 20    idxNum |= 8;. 
14e0: 20 20 20 20 20 67 74 49 64 78 20 3d 20 69 3b 0a       gtIdx = i;.
14f0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 70 49 64 78      }.  }.  pIdx
1500: 49 6e 66 6f 2d 3e 69 64 78 4e 75 6d 20 3d 20 69  Info->idxNum = i
1510: 64 78 4e 75 6d 3b 0a 20 20 69 66 28 20 6c 74 49  dxNum;.  if( ltI
1520: 64 78 3e 3d 30 20 29 7b 0a 20 20 20 20 70 49 64  dx>=0 ){.    pId
1530: 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69  xInfo->aConstrai
1540: 6e 74 55 73 61 67 65 5b 6c 74 49 64 78 5d 2e 61  ntUsage[ltIdx].a
1550: 72 67 76 49 6e 64 65 78 20 3d 20 61 72 67 76 49  rgvIndex = argvI
1560: 64 78 2b 2b 3b 0a 20 20 20 20 70 49 64 78 49 6e  dx++;.    pIdxIn
1570: 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74 55  fo->aConstraintU
1580: 73 61 67 65 5b 6c 74 49 64 78 5d 2e 6f 6d 69 74  sage[ltIdx].omit
1590: 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 28 20   = 1;.  }.  if( 
15a0: 67 74 49 64 78 3e 3d 30 20 29 7b 0a 20 20 20 20  gtIdx>=0 ){.    
15b0: 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74  pIdxInfo->aConst
15c0: 72 61 69 6e 74 55 73 61 67 65 5b 67 74 49 64 78  raintUsage[gtIdx
15d0: 5d 2e 61 72 67 76 49 6e 64 65 78 20 3d 20 61 72  ].argvIndex = ar
15e0: 67 76 49 64 78 3b 0a 20 20 20 20 70 49 64 78 49  gvIdx;.    pIdxI
15f0: 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74  nfo->aConstraint
1600: 55 73 61 67 65 5b 67 74 49 64 78 5d 2e 6f 6d 69  Usage[gtIdx].omi
1610: 74 20 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 28  t = 1;.  }.  if(
1620: 20 70 49 64 78 49 6e 66 6f 2d 3e 6e 4f 72 64 65   pIdxInfo->nOrde
1630: 72 42 79 3d 3d 31 0a 20 20 20 26 26 20 70 49 64  rBy==1.   && pId
1640: 78 49 6e 66 6f 2d 3e 61 4f 72 64 65 72 42 79 5b  xInfo->aOrderBy[
1650: 30 5d 2e 64 65 73 63 3d 3d 30 0a 20 20 29 7b 0a  0].desc==0.  ){.
1660: 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 6f 72      pIdxInfo->or
1670: 64 65 72 42 79 43 6f 6e 73 75 6d 65 64 20 3d 20  derByConsumed = 
1680: 31 3b 0a 20 20 7d 0a 20 20 70 49 64 78 49 6e 66  1;.  }.  pIdxInf
1690: 6f 2d 3e 65 73 74 69 6d 61 74 65 64 43 6f 73 74  o->estimatedCost
16a0: 20 3d 20 28 64 6f 75 62 6c 65 29 31 3b 0a 20 20   = (double)1;.  
16b0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
16c0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 20 76 69 72  ;.}../*.** A vir
16d0: 74 75 61 6c 20 74 61 62 6c 65 20 6d 6f 64 75 6c  tual table modul
16e0: 65 20 74 68 61 74 20 70 72 6f 76 69 64 65 73 20  e that provides 
16f0: 72 65 61 64 2d 6f 6e 6c 79 20 61 63 63 65 73 73  read-only access
1700: 20 74 6f 20 61 0a 2a 2a 20 54 63 6c 20 67 6c 6f   to a.** Tcl glo
1710: 62 61 6c 20 76 61 72 69 61 62 6c 65 20 6e 61 6d  bal variable nam
1720: 65 73 70 61 63 65 2e 0a 2a 2f 0a 73 74 61 74 69  espace..*/.stati
1730: 63 20 73 71 6c 69 74 65 33 5f 6d 6f 64 75 6c 65  c sqlite3_module
1740: 20 77 68 6f 6c 65 6e 75 6d 62 65 72 4d 6f 64 75   wholenumberModu
1750: 6c 65 20 3d 20 7b 0a 20 20 30 2c 20 20 20 20 20  le = {.  0,     
1760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1770: 20 20 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20      /* iVersion 
1780: 2a 2f 0a 20 20 77 68 6f 6c 65 6e 75 6d 62 65 72  */.  wholenumber
1790: 43 6f 6e 6e 65 63 74 2c 0a 20 20 77 68 6f 6c 65  Connect,.  whole
17a0: 6e 75 6d 62 65 72 43 6f 6e 6e 65 63 74 2c 0a 20  numberConnect,. 
17b0: 20 77 68 6f 6c 65 6e 75 6d 62 65 72 42 65 73 74   wholenumberBest
17c0: 49 6e 64 65 78 2c 0a 20 20 77 68 6f 6c 65 6e 75  Index,.  wholenu
17d0: 6d 62 65 72 44 69 73 63 6f 6e 6e 65 63 74 2c 20  mberDisconnect, 
17e0: 0a 20 20 77 68 6f 6c 65 6e 75 6d 62 65 72 44 69  .  wholenumberDi
17f0: 73 63 6f 6e 6e 65 63 74 2c 0a 20 20 77 68 6f 6c  sconnect,.  whol
1800: 65 6e 75 6d 62 65 72 4f 70 65 6e 2c 20 20 20 20  enumberOpen,    
1810: 20 20 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20         /* xOpen 
1820: 2d 20 6f 70 65 6e 20 61 20 63 75 72 73 6f 72 20  - open a cursor 
1830: 2a 2f 0a 20 20 77 68 6f 6c 65 6e 75 6d 62 65 72  */.  wholenumber
1840: 43 6c 6f 73 65 2c 20 20 20 20 20 20 20 20 20 20  Close,          
1850: 2f 2a 20 78 43 6c 6f 73 65 20 2d 20 63 6c 6f 73  /* xClose - clos
1860: 65 20 61 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20  e a cursor */.  
1870: 77 68 6f 6c 65 6e 75 6d 62 65 72 46 69 6c 74 65  wholenumberFilte
1880: 72 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46  r,         /* xF
1890: 69 6c 74 65 72 20 2d 20 63 6f 6e 66 69 67 75 72  ilter - configur
18a0: 65 20 73 63 61 6e 20 63 6f 6e 73 74 72 61 69 6e  e scan constrain
18b0: 74 73 20 2a 2f 0a 20 20 77 68 6f 6c 65 6e 75 6d  ts */.  wholenum
18c0: 62 65 72 4e 65 78 74 2c 20 20 20 20 20 20 20 20  berNext,        
18d0: 20 20 20 2f 2a 20 78 4e 65 78 74 20 2d 20 61 64     /* xNext - ad
18e0: 76 61 6e 63 65 20 61 20 63 75 72 73 6f 72 20 2a  vance a cursor *
18f0: 2f 0a 20 20 77 68 6f 6c 65 6e 75 6d 62 65 72 45  /.  wholenumberE
1900: 6f 66 2c 20 20 20 20 20 20 20 20 20 20 20 20 2f  of,            /
1910: 2a 20 78 45 6f 66 20 2d 20 63 68 65 63 6b 20 66  * xEof - check f
1920: 6f 72 20 65 6e 64 20 6f 66 20 73 63 61 6e 20 2a  or end of scan *
1930: 2f 0a 20 20 77 68 6f 6c 65 6e 75 6d 62 65 72 43  /.  wholenumberC
1940: 6f 6c 75 6d 6e 2c 20 20 20 20 20 20 20 20 20 2f  olumn,         /
1950: 2a 20 78 43 6f 6c 75 6d 6e 20 2d 20 72 65 61 64  * xColumn - read
1960: 20 64 61 74 61 20 2a 2f 0a 20 20 77 68 6f 6c 65   data */.  whole
1970: 6e 75 6d 62 65 72 52 6f 77 69 64 2c 20 20 20 20  numberRowid,    
1980: 20 20 20 20 20 20 2f 2a 20 78 52 6f 77 69 64 20        /* xRowid 
1990: 2d 20 72 65 61 64 20 64 61 74 61 20 2a 2f 0a 20  - read data */. 
19a0: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   0,             
19b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
19c0: 55 70 64 61 74 65 20 2a 2f 0a 20 20 30 2c 20 20  Update */.  0,  
19d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
19e0: 20 20 20 20 20 20 20 2f 2a 20 78 42 65 67 69 6e         /* xBegin
19f0: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
1a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a10: 20 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 30   /* xSync */.  0
1a20: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
1a30: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 6f            /* xCo
1a40: 6d 6d 69 74 20 2a 2f 0a 20 20 30 2c 20 20 20 20  mmit */.  0,    
1a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a60: 20 20 20 20 20 2f 2a 20 78 52 6f 6c 6c 62 61 63       /* xRollbac
1a70: 6b 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20  k */.  0,       
1a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a90: 20 20 2f 2a 20 78 46 69 6e 64 4d 65 74 68 6f 64    /* xFindMethod
1aa0: 20 2a 2f 0a 20 20 30 2c 20 20 20 20 20 20 20 20   */.  0,        
1ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ac0: 20 2f 2a 20 78 52 65 6e 61 6d 65 20 2a 2f 0a 7d   /* xRename */.}
1ad0: 3b 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c  ;..#endif /* SQL
1ae0: 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c  ITE_OMIT_VIRTUAL
1af0: 54 41 42 4c 45 20 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a  TABLE */.../*.**
1b00: 20 52 65 67 69 73 74 65 72 20 74 68 65 20 77 68   Register the wh
1b10: 6f 6c 65 6e 75 6d 62 65 72 20 76 69 72 74 75 61  olenumber virtua
1b20: 6c 20 74 61 62 6c 65 0a 2a 2f 0a 69 6e 74 20 77  l table.*/.int w
1b30: 68 6f 6c 65 6e 75 6d 62 65 72 5f 72 65 67 69 73  holenumber_regis
1b40: 74 65 72 28 73 71 6c 69 74 65 33 20 2a 64 62 29  ter(sqlite3 *db)
1b50: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
1b60: 49 54 45 5f 4f 4b 3b 0a 23 69 66 6e 64 65 66 20  ITE_OK;.#ifndef 
1b70: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54  SQLITE_OMIT_VIRT
1b80: 55 41 4c 54 41 42 4c 45 0a 20 20 72 63 20 3d 20  UALTABLE.  rc = 
1b90: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 6d  sqlite3_create_m
1ba0: 6f 64 75 6c 65 28 64 62 2c 20 22 77 68 6f 6c 65  odule(db, "whole
1bb0: 6e 75 6d 62 65 72 22 2c 20 26 77 68 6f 6c 65 6e  number", &wholen
1bc0: 75 6d 62 65 72 4d 6f 64 75 6c 65 2c 20 30 29 3b  umberModule, 0);
1bd0: 0a 23 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e  .#endif.  return
1be0: 20 72 63 3b 0a 7d 0a 0a 23 69 66 64 65 66 20 53   rc;.}..#ifdef S
1bf0: 51 4c 49 54 45 5f 54 45 53 54 0a 23 69 6e 63 6c  QLITE_TEST.#incl
1c00: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 2f 2a 0a 2a  ude <tcl.h>./*.*
1c10: 2a 20 44 65 63 6f 64 65 20 61 20 70 6f 69 6e 74  * Decode a point
1c20: 65 72 20 74 6f 20 61 6e 20 73 71 6c 69 74 65 33  er to an sqlite3
1c30: 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 65 78 74 65   object..*/.exte
1c40: 72 6e 20 69 6e 74 20 67 65 74 44 62 50 6f 69 6e  rn int getDbPoin
1c50: 74 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ter(Tcl_Interp *
1c60: 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68  interp, const ch
1c70: 61 72 20 2a 7a 41 2c 20 73 71 6c 69 74 65 33 20  ar *zA, sqlite3 
1c80: 2a 2a 70 70 44 62 29 3b 0a 0a 2f 2a 0a 2a 2a 20  **ppDb);../*.** 
1c90: 52 65 67 69 73 74 65 72 20 74 68 65 20 65 63 68  Register the ech
1ca0: 6f 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20  o virtual table 
1cb0: 6d 6f 64 75 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  module..*/.stati
1cc0: 63 20 69 6e 74 20 72 65 67 69 73 74 65 72 5f 77  c int register_w
1cd0: 68 6f 6c 65 6e 75 6d 62 65 72 5f 6d 6f 64 75 6c  holenumber_modul
1ce0: 65 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20  e(.  ClientData 
1cf0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50  clientData, /* P
1d00: 6f 69 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65  ointer to sqlite
1d10: 33 5f 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e  3_enable_XXX fun
1d20: 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49  ction */.  Tcl_I
1d30: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20  nterp *interp,  
1d40: 20 20 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74    /* The TCL int
1d50: 65 72 70 72 65 74 65 72 20 74 68 61 74 20 69 6e  erpreter that in
1d60: 76 6f 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61  voked this comma
1d70: 6e 64 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63  nd */.  int objc
1d80: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ,              /
1d90: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75  * Number of argu
1da0: 6d 65 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f  ments */.  Tcl_O
1db0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
1dc0: 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67    /* Command arg
1dd0: 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 73  uments */.){.  s
1de0: 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 69 66  qlite3 *db;.  if
1df0: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20  ( objc!=2 ){.   
1e00: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
1e10: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
1e20: 76 2c 20 22 44 42 22 29 3b 0a 20 20 20 20 72 65  v, "DB");.    re
1e30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1e40: 20 20 7d 0a 20 20 69 66 28 20 67 65 74 44 62 50    }.  if( getDbP
1e50: 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20 54  ointer(interp, T
1e60: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
1e70: 76 5b 31 5d 29 2c 20 26 64 62 29 20 29 20 72 65  v[1]), &db) ) re
1e80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1e90: 20 20 77 68 6f 6c 65 6e 75 6d 62 65 72 5f 72 65    wholenumber_re
1ea0: 67 69 73 74 65 72 28 64 62 29 3b 0a 20 20 72 65  gister(db);.  re
1eb0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
1ec0: 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20  ./*.** Register 
1ed0: 63 6f 6d 6d 61 6e 64 73 20 77 69 74 68 20 74 68  commands with th
1ee0: 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65 74 65  e TCL interprete
1ef0: 72 2e 0a 2a 2f 0a 69 6e 74 20 53 71 6c 69 74 65  r..*/.int Sqlite
1f00: 74 65 73 74 77 68 6f 6c 65 6e 75 6d 62 65 72 5f  testwholenumber_
1f10: 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
1f20: 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73 74 61 74  *interp){.  stat
1f30: 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20 20  ic struct {.    
1f40: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20   char *zName;.  
1f50: 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f     Tcl_ObjCmdPro
1f60: 63 20 2a 78 50 72 6f 63 3b 0a 20 20 20 20 20 76  c *xProc;.     v
1f70: 6f 69 64 20 2a 63 6c 69 65 6e 74 44 61 74 61 3b  oid *clientData;
1f80: 0a 20 20 7d 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d  .  } aObjCmd[] =
1f90: 20 7b 0a 20 20 20 20 20 7b 20 22 72 65 67 69 73   {.     { "regis
1fa0: 74 65 72 5f 77 68 6f 6c 65 6e 75 6d 62 65 72 5f  ter_wholenumber_
1fb0: 6d 6f 64 75 6c 65 22 2c 20 20 20 72 65 67 69 73  module",   regis
1fc0: 74 65 72 5f 77 68 6f 6c 65 6e 75 6d 62 65 72 5f  ter_wholenumber_
1fd0: 6d 6f 64 75 6c 65 2c 20 30 20 7d 2c 0a 20 20 7d  module, 0 },.  }
1fe0: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f 72  ;.  int i;.  for
1ff0: 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61  (i=0; i<sizeof(a
2000: 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61  ObjCmd)/sizeof(a
2010: 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29  ObjCmd[0]); i++)
2020: 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65  {.    Tcl_Create
2030: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ObjCommand(inter
2040: 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 7a 4e  p, aObjCmd[i].zN
2050: 61 6d 65 2c 20 0a 20 20 20 20 20 20 20 20 61 4f  ame, .        aO
2060: 62 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20  bjCmd[i].xProc, 
2070: 61 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c 69 65 6e  aObjCmd[i].clien
2080: 74 44 61 74 61 2c 20 30 29 3b 0a 20 20 7d 0a 20  tData, 0);.  }. 
2090: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
20a0: 7d 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c  }..#endif /* SQL
20b0: 49 54 45 5f 54 45 53 54 20 2a 2f 0a              ITE_TEST */.