/ Hex Artifact Content
Login

Artifact e94a8b901066031437ccfe4769fc76370257cede:


0000: 2f 2a 0a 2a 2a 20 32 30 30 37 20 4a 75 6e 65 20  /*.** 2007 June 
0010: 32 32 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74  22.**.** The aut
0020: 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f  hor disclaims co
0030: 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20  pyright to this 
0040: 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e  source code.  In
0050: 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c   place of.** a l
0060: 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72  egal notice, her
0070: 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a  e is a blessing:
0080: 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f  .**.**    May yo
0090: 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f  u do good and no
00a0: 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61  t evil..**    Ma
00b0: 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69  y you find forgi
00c0: 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73  veness for yours
00d0: 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20  elf and forgive 
00e0: 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61  others..**    Ma
00f0: 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65  y you share free
0100: 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67  ly, never taking
0110: 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67   more than you g
0120: 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a  ive..**.********
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 2a 2a 0a 2a 2a 0a 2a 2a 20 54 68 69  ******.**.** Thi
0180: 73 20 69 73 20 70 61 72 74 20 6f 66 20 61 6e 20  s is part of an 
0190: 53 51 4c 69 74 65 20 6d 6f 64 75 6c 65 20 69 6d  SQLite module im
01a0: 70 6c 65 6d 65 6e 74 69 6e 67 20 66 75 6c 6c 2d  plementing full-
01b0: 74 65 78 74 20 73 65 61 72 63 68 2e 0a 2a 2a 20  text search..** 
01c0: 54 68 69 73 20 70 61 72 74 69 63 75 6c 61 72 20  This particular 
01d0: 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20  file implements 
01e0: 74 68 65 20 67 65 6e 65 72 69 63 20 74 6f 6b 65  the generic toke
01f0: 6e 69 7a 65 72 20 69 6e 74 65 72 66 61 63 65 2e  nizer interface.
0200: 0a 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 63  .*/../*.** The c
0210: 6f 64 65 20 69 6e 20 74 68 69 73 20 66 69 6c 65  ode in this file
0220: 20 69 73 20 6f 6e 6c 79 20 63 6f 6d 70 69 6c 65   is only compile
0230: 64 20 69 66 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20  d if:.**.**     
0240: 2a 20 54 68 65 20 46 54 53 33 20 6d 6f 64 75 6c  * The FTS3 modul
0250: 65 20 69 73 20 62 65 69 6e 67 20 62 75 69 6c 74  e is being built
0260: 20 61 73 20 61 6e 20 65 78 74 65 6e 73 69 6f 6e   as an extension
0270: 0a 2a 2a 20 20 20 20 20 20 20 28 69 6e 20 77 68  .**       (in wh
0280: 69 63 68 20 63 61 73 65 20 53 51 4c 49 54 45 5f  ich case SQLITE_
0290: 43 4f 52 45 20 69 73 20 6e 6f 74 20 64 65 66 69  CORE is not defi
02a0: 6e 65 64 29 2c 20 6f 72 0a 2a 2a 0a 2a 2a 20 20  ned), or.**.**  
02b0: 20 20 20 2a 20 54 68 65 20 46 54 53 33 20 6d 6f     * The FTS3 mo
02c0: 64 75 6c 65 20 69 73 20 62 65 69 6e 67 20 62 75  dule is being bu
02d0: 69 6c 74 20 69 6e 74 6f 20 74 68 65 20 63 6f 72  ilt into the cor
02e0: 65 20 6f 66 0a 2a 2a 20 20 20 20 20 20 20 53 51  e of.**       SQ
02f0: 4c 69 74 65 20 28 69 6e 20 77 68 69 63 68 20 63  Lite (in which c
0300: 61 73 65 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c  ase SQLITE_ENABL
0310: 45 5f 46 54 53 33 20 69 73 20 64 65 66 69 6e 65  E_FTS3 is define
0320: 64 29 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20  d)..*/.#include 
0330: 22 66 74 73 33 49 6e 74 2e 68 22 0a 23 69 66 20  "fts3Int.h".#if 
0340: 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f  !defined(SQLITE_
0350: 43 4f 52 45 29 20 7c 7c 20 64 65 66 69 6e 65 64  CORE) || defined
0360: 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 46  (SQLITE_ENABLE_F
0370: 54 53 33 29 0a 0a 23 69 6e 63 6c 75 64 65 20 3c  TS3)..#include <
0380: 61 73 73 65 72 74 2e 68 3e 0a 23 69 6e 63 6c 75  assert.h>.#inclu
0390: 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 0a 2f  de <string.h>../
03a0: 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74  *.** Implementat
03b0: 69 6f 6e 20 6f 66 20 74 68 65 20 53 51 4c 20 73  ion of the SQL s
03c0: 63 61 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 66  calar function f
03d0: 6f 72 20 61 63 63 65 73 73 69 6e 67 20 74 68 65  or accessing the
03e0: 20 75 6e 64 65 72 6c 79 69 6e 67 20 0a 2a 2a 20   underlying .** 
03f0: 68 61 73 68 20 74 61 62 6c 65 2e 20 54 68 69 73  hash table. This
0400: 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65   function may be
0410: 20 63 61 6c 6c 65 64 20 61 73 20 66 6f 6c 6c 6f   called as follo
0420: 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 45 4c 45  ws:.**.**   SELE
0430: 43 54 20 3c 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d  CT <function-nam
0440: 65 3e 28 3c 6b 65 79 2d 6e 61 6d 65 3e 29 3b 0a  e>(<key-name>);.
0450: 2a 2a 20 20 20 53 45 4c 45 43 54 20 3c 66 75 6e  **   SELECT <fun
0460: 63 74 69 6f 6e 2d 6e 61 6d 65 3e 28 3c 6b 65 79  ction-name>(<key
0470: 2d 6e 61 6d 65 3e 2c 20 3c 70 6f 69 6e 74 65 72  -name>, <pointer
0480: 3e 29 3b 0a 2a 2a 0a 2a 2a 20 77 68 65 72 65 20  >);.**.** where 
0490: 3c 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 3e 20  <function-name> 
04a0: 69 73 20 74 68 65 20 6e 61 6d 65 20 70 61 73 73  is the name pass
04b0: 65 64 20 61 73 20 74 68 65 20 73 65 63 6f 6e 64  ed as the second
04c0: 20 61 72 67 75 6d 65 6e 74 0a 2a 2a 20 74 6f 20   argument.** to 
04d0: 74 68 65 20 73 71 6c 69 74 65 33 46 74 73 33 49  the sqlite3Fts3I
04e0: 6e 69 74 48 61 73 68 54 61 62 6c 65 28 29 20 66  nitHashTable() f
04f0: 75 6e 63 74 69 6f 6e 20 28 65 2e 67 2e 20 27 66  unction (e.g. 'f
0500: 74 73 33 5f 74 6f 6b 65 6e 69 7a 65 72 27 29 2e  ts3_tokenizer').
0510: 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 3c 70  .**.** If the <p
0520: 6f 69 6e 74 65 72 3e 20 61 72 67 75 6d 65 6e 74  ointer> argument
0530: 20 69 73 20 73 70 65 63 69 66 69 65 64 2c 20 69   is specified, i
0540: 74 20 6d 75 73 74 20 62 65 20 61 20 62 6c 6f 62  t must be a blob
0550: 20 76 61 6c 75 65 0a 2a 2a 20 63 6f 6e 74 61 69   value.** contai
0560: 6e 69 6e 67 20 61 20 70 6f 69 6e 74 65 72 20 74  ning a pointer t
0570: 6f 20 62 65 20 73 74 6f 72 65 64 20 61 73 20 74  o be stored as t
0580: 68 65 20 68 61 73 68 20 64 61 74 61 20 63 6f 72  he hash data cor
0590: 72 65 73 70 6f 6e 64 69 6e 67 0a 2a 2a 20 74 6f  responding.** to
05a0: 20 74 68 65 20 73 74 72 69 6e 67 20 3c 6b 65 79   the string <key
05b0: 2d 6e 61 6d 65 3e 2e 20 49 66 20 3c 70 6f 69 6e  -name>. If <poin
05c0: 74 65 72 3e 20 69 73 20 6e 6f 74 20 73 70 65 63  ter> is not spec
05d0: 69 66 69 65 64 2c 20 74 68 65 6e 0a 2a 2a 20 74  ified, then.** t
05e0: 68 65 20 73 74 72 69 6e 67 20 3c 6b 65 79 2d 6e  he string <key-n
05f0: 61 6d 65 3e 20 6d 75 73 74 20 61 6c 72 65 61 64  ame> must alread
0600: 79 20 65 78 69 73 74 20 69 6e 20 74 68 65 20 68  y exist in the h
0610: 61 73 20 74 61 62 6c 65 2e 20 4f 74 68 65 72 77  as table. Otherw
0620: 69 73 65 2c 0a 2a 2a 20 61 6e 20 65 72 72 6f 72  ise,.** an error
0630: 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2a   is returned..**
0640: 0a 2a 2a 20 57 68 65 74 68 65 72 20 6f 72 20 6e  .** Whether or n
0650: 6f 74 20 74 68 65 20 3c 70 6f 69 6e 74 65 72 3e  ot the <pointer>
0660: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 73 70 65   argument is spe
0670: 63 69 66 69 65 64 2c 20 74 68 65 20 76 61 6c 75  cified, the valu
0680: 65 20 72 65 74 75 72 6e 65 64 0a 2a 2a 20 69 73  e returned.** is
0690: 20 61 20 62 6c 6f 62 20 63 6f 6e 74 61 69 6e 69   a blob containi
06a0: 6e 67 20 74 68 65 20 70 6f 69 6e 74 65 72 20 73  ng the pointer s
06b0: 74 6f 72 65 64 20 61 73 20 74 68 65 20 68 61 73  tored as the has
06c0: 68 20 64 61 74 61 20 63 6f 72 72 65 73 70 6f 6e  h data correspon
06d0: 64 69 6e 67 0a 2a 2a 20 74 6f 20 73 74 72 69 6e  ding.** to strin
06e0: 67 20 3c 6b 65 79 2d 6e 61 6d 65 3e 20 28 61 66  g <key-name> (af
06f0: 74 65 72 20 74 68 65 20 68 61 73 68 2d 74 61 62  ter the hash-tab
0700: 6c 65 20 69 73 20 75 70 64 61 74 65 64 2c 20 69  le is updated, i
0710: 66 20 61 70 70 6c 69 63 61 62 6c 65 29 2e 0a 2a  f applicable)..*
0720: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 73 63  /.static void sc
0730: 61 6c 61 72 46 75 6e 63 28 0a 20 20 73 71 6c 69  alarFunc(.  sqli
0740: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e  te3_context *con
0750: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63  text,.  int argc
0760: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  ,.  sqlite3_valu
0770: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 46 74  e **argv.){.  Ft
0780: 73 33 48 61 73 68 20 2a 70 48 61 73 68 3b 0a 20  s3Hash *pHash;. 
0790: 20 76 6f 69 64 20 2a 70 50 74 72 20 3d 20 30 3b   void *pPtr = 0;
07a0: 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65  .  const unsigne
07b0: 64 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20  d char *zName;. 
07c0: 20 69 6e 74 20 6e 4e 61 6d 65 3b 0a 0a 20 20 61   int nName;..  a
07d0: 73 73 65 72 74 28 20 61 72 67 63 3d 3d 31 20 7c  ssert( argc==1 |
07e0: 7c 20 61 72 67 63 3d 3d 32 20 29 3b 0a 0a 20 20  | argc==2 );..  
07f0: 70 48 61 73 68 20 3d 20 28 46 74 73 33 48 61 73  pHash = (Fts3Has
0800: 68 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 65 72  h *)sqlite3_user
0810: 5f 64 61 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a  _data(context);.
0820: 0a 20 20 7a 4e 61 6d 65 20 3d 20 73 71 6c 69 74  .  zName = sqlit
0830: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
0840: 67 76 5b 30 5d 29 3b 0a 20 20 6e 4e 61 6d 65 20  gv[0]);.  nName 
0850: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
0860: 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29 2b 31  bytes(argv[0])+1
0870: 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 32  ;..  if( argc==2
0880: 20 29 7b 0a 20 20 20 20 76 6f 69 64 20 2a 70 4f   ){.    void *pO
0890: 6c 64 3b 0a 20 20 20 20 69 6e 74 20 6e 20 3d 20  ld;.    int n = 
08a0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79  sqlite3_value_by
08b0: 74 65 73 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20  tes(argv[1]);.  
08c0: 20 20 69 66 28 20 6e 21 3d 73 69 7a 65 6f 66 28    if( n!=sizeof(
08d0: 70 50 74 72 29 20 29 7b 0a 20 20 20 20 20 20 73  pPtr) ){.      s
08e0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72  qlite3_result_er
08f0: 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20 22 61 72  ror(context, "ar
0900: 67 75 6d 65 6e 74 20 74 79 70 65 20 6d 69 73 6d  gument type mism
0910: 61 74 63 68 22 2c 20 2d 31 29 3b 0a 20 20 20 20  atch", -1);.    
0920: 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a    return;.    }.
0930: 20 20 20 20 70 50 74 72 20 3d 20 2a 28 76 6f 69      pPtr = *(voi
0940: 64 20 2a 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c  d **)sqlite3_val
0950: 75 65 5f 62 6c 6f 62 28 61 72 67 76 5b 31 5d 29  ue_blob(argv[1])
0960: 3b 0a 20 20 20 20 70 4f 6c 64 20 3d 20 73 71 6c  ;.    pOld = sql
0970: 69 74 65 33 46 74 73 33 48 61 73 68 49 6e 73 65  ite3Fts3HashInse
0980: 72 74 28 70 48 61 73 68 2c 20 28 76 6f 69 64 20  rt(pHash, (void 
0990: 2a 29 7a 4e 61 6d 65 2c 20 6e 4e 61 6d 65 2c 20  *)zName, nName, 
09a0: 70 50 74 72 29 3b 0a 20 20 20 20 69 66 28 20 70  pPtr);.    if( p
09b0: 4f 6c 64 3d 3d 70 50 74 72 20 29 7b 0a 20 20 20  Old==pPtr ){.   
09c0: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
09d0: 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c  t_error(context,
09e0: 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22   "out of memory"
09f0: 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 72 65 74  , -1);.      ret
0a00: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c  urn;.    }.  }el
0a10: 73 65 7b 0a 20 20 20 20 70 50 74 72 20 3d 20 73  se{.    pPtr = s
0a20: 71 6c 69 74 65 33 46 74 73 33 48 61 73 68 46 69  qlite3Fts3HashFi
0a30: 6e 64 28 70 48 61 73 68 2c 20 7a 4e 61 6d 65 2c  nd(pHash, zName,
0a40: 20 6e 4e 61 6d 65 29 3b 0a 20 20 20 20 69 66 28   nName);.    if(
0a50: 20 21 70 50 74 72 20 29 7b 0a 20 20 20 20 20 20   !pPtr ){.      
0a60: 63 68 61 72 20 2a 7a 45 72 72 20 3d 20 73 71 6c  char *zErr = sql
0a70: 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 75 6e  ite3_mprintf("un
0a80: 6b 6e 6f 77 6e 20 74 6f 6b 65 6e 69 7a 65 72 3a  known tokenizer:
0a90: 20 25 73 22 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20   %s", zName);.  
0aa0: 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75      sqlite3_resu
0ab0: 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74  lt_error(context
0ac0: 2c 20 7a 45 72 72 2c 20 2d 31 29 3b 0a 20 20 20  , zErr, -1);.   
0ad0: 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28     sqlite3_free(
0ae0: 7a 45 72 72 29 3b 0a 20 20 20 20 20 20 72 65 74  zErr);.      ret
0af0: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  urn;.    }.  }..
0b00: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
0b10: 5f 62 6c 6f 62 28 63 6f 6e 74 65 78 74 2c 20 28  _blob(context, (
0b20: 76 6f 69 64 20 2a 29 26 70 50 74 72 2c 20 73 69  void *)&pPtr, si
0b30: 7a 65 6f 66 28 70 50 74 72 29 2c 20 53 51 4c 49  zeof(pPtr), SQLI
0b40: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d  TE_TRANSIENT);.}
0b50: 0a 0a 69 6e 74 20 73 71 6c 69 74 65 33 46 74 73  ..int sqlite3Fts
0b60: 33 49 73 49 64 43 68 61 72 28 63 68 61 72 20 63  3IsIdChar(char c
0b70: 29 7b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73  ){.  static cons
0b80: 74 20 63 68 61 72 20 69 73 46 74 73 49 64 43 68  t char isFtsIdCh
0b90: 61 72 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20 30  ar[] = {.      0
0ba0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0bb0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0bc0: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20  0, 0, 0, 0, 0,  
0bd0: 2f 2a 20 30 78 20 2a 2f 0a 20 20 20 20 20 20 30  /* 0x */.      0
0be0: 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c  , 0, 0, 0, 0, 0,
0bf0: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0c00: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20  0, 0, 0, 0, 0,  
0c10: 2f 2a 20 31 78 20 2a 2f 0a 20 20 20 20 20 20 30  /* 1x */.      0
0c20: 2c 20 30 2c 20 30 2c 20 30 2c 20 31 2c 20 30 2c  , 0, 0, 0, 1, 0,
0c30: 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20   0, 0, 0, 0, 0, 
0c40: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20  0, 0, 0, 0, 0,  
0c50: 2f 2a 20 32 78 20 2a 2f 0a 20 20 20 20 20 20 31  /* 2x */.      1
0c60: 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c  , 1, 1, 1, 1, 1,
0c70: 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 30 2c 20   1, 1, 1, 1, 0, 
0c80: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20  0, 0, 0, 0, 0,  
0c90: 2f 2a 20 33 78 20 2a 2f 0a 20 20 20 20 20 20 30  /* 3x */.      0
0ca0: 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c  , 1, 1, 1, 1, 1,
0cb0: 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20   1, 1, 1, 1, 1, 
0cc0: 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 20  1, 1, 1, 1, 1,  
0cd0: 2f 2a 20 34 78 20 2a 2f 0a 20 20 20 20 20 20 31  /* 4x */.      1
0ce0: 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c  , 1, 1, 1, 1, 1,
0cf0: 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20   1, 1, 1, 1, 1, 
0d00: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 31 2c 20 20  0, 0, 0, 0, 1,  
0d10: 2f 2a 20 35 78 20 2a 2f 0a 20 20 20 20 20 20 30  /* 5x */.      0
0d20: 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c  , 1, 1, 1, 1, 1,
0d30: 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20   1, 1, 1, 1, 1, 
0d40: 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 20  1, 1, 1, 1, 1,  
0d50: 2f 2a 20 36 78 20 2a 2f 0a 20 20 20 20 20 20 31  /* 6x */.      1
0d60: 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c  , 1, 1, 1, 1, 1,
0d70: 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20 31 2c 20   1, 1, 1, 1, 1, 
0d80: 30 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 20  0, 0, 0, 0, 0,  
0d90: 2f 2a 20 37 78 20 2a 2f 0a 20 20 7d 3b 0a 20 20  /* 7x */.  };.  
0da0: 72 65 74 75 72 6e 20 28 63 26 30 78 38 30 20 7c  return (c&0x80 |
0db0: 7c 20 69 73 46 74 73 49 64 43 68 61 72 5b 28 69  | isFtsIdChar[(i
0dc0: 6e 74 29 28 63 29 5d 29 3b 0a 7d 0a 0a 63 6f 6e  nt)(c)]);.}..con
0dd0: 73 74 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33  st char *sqlite3
0de0: 46 74 73 33 4e 65 78 74 54 6f 6b 65 6e 28 63 6f  Fts3NextToken(co
0df0: 6e 73 74 20 63 68 61 72 20 2a 7a 53 74 72 2c 20  nst char *zStr, 
0e00: 69 6e 74 20 2a 70 6e 29 7b 0a 20 20 63 6f 6e 73  int *pn){.  cons
0e10: 74 20 63 68 61 72 20 2a 7a 31 3b 0a 20 20 63 6f  t char *z1;.  co
0e20: 6e 73 74 20 63 68 61 72 20 2a 7a 32 20 3d 20 30  nst char *z2 = 0
0e30: 3b 0a 0a 20 20 2f 2a 20 46 69 6e 64 20 74 68 65  ;..  /* Find the
0e40: 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 6e 65   start of the ne
0e50: 78 74 20 74 6f 6b 65 6e 2e 20 2a 2f 0a 20 20 7a  xt token. */.  z
0e60: 31 20 3d 20 7a 53 74 72 3b 0a 20 20 77 68 69 6c  1 = zStr;.  whil
0e70: 65 28 20 7a 32 3d 3d 30 20 29 7b 0a 20 20 20 20  e( z2==0 ){.    
0e80: 63 68 61 72 20 63 20 3d 20 2a 7a 31 3b 0a 20 20  char c = *z1;.  
0e90: 20 20 73 77 69 74 63 68 28 20 63 20 29 7b 0a 20    switch( c ){. 
0ea0: 20 20 20 20 20 63 61 73 65 20 27 5c 30 27 3a 20       case '\0': 
0eb0: 72 65 74 75 72 6e 20 30 3b 20 20 20 20 20 20 20  return 0;       
0ec0: 20 2f 2a 20 4e 6f 20 6d 6f 72 65 20 74 6f 6b 65   /* No more toke
0ed0: 6e 73 20 68 65 72 65 20 2a 2f 0a 20 20 20 20 20  ns here */.     
0ee0: 20 63 61 73 65 20 27 5c 27 27 3a 0a 20 20 20 20   case '\'':.    
0ef0: 20 20 63 61 73 65 20 27 22 27 3a 0a 20 20 20 20    case '"':.    
0f00: 20 20 63 61 73 65 20 27 60 27 3a 20 7b 0a 20 20    case '`': {.  
0f10: 20 20 20 20 20 20 7a 32 20 3d 20 7a 31 3b 0a 20        z2 = z1;. 
0f20: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 2a 2b         while( *+
0f30: 2b 7a 32 20 26 26 20 28 2a 7a 32 21 3d 63 20 7c  +z2 && (*z2!=c |
0f40: 7c 20 2a 2b 2b 7a 32 3d 3d 63 29 20 29 3b 0a 20  | *++z2==c) );. 
0f50: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
0f60: 20 20 20 20 7d 0a 20 20 20 20 20 20 63 61 73 65      }.      case
0f70: 20 27 5b 27 3a 0a 20 20 20 20 20 20 20 20 7a 32   '[':.        z2
0f80: 20 3d 20 26 7a 31 5b 31 5d 3b 0a 20 20 20 20 20   = &z1[1];.     
0f90: 20 20 20 77 68 69 6c 65 28 20 2a 7a 32 20 26 26     while( *z2 &&
0fa0: 20 7a 32 5b 30 5d 21 3d 27 5d 27 20 29 20 7a 32   z2[0]!=']' ) z2
0fb0: 2b 2b 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  ++;.        if( 
0fc0: 2a 7a 32 20 29 20 7a 32 2b 2b 3b 0a 20 20 20 20  *z2 ) z2++;.    
0fd0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20      break;..    
0fe0: 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20    default:.     
0ff0: 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 46 74     if( sqlite3Ft
1000: 73 33 49 73 49 64 43 68 61 72 28 2a 7a 31 29 20  s3IsIdChar(*z1) 
1010: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 7a 32 20  ){.          z2 
1020: 3d 20 26 7a 31 5b 31 5d 3b 0a 20 20 20 20 20 20  = &z1[1];.      
1030: 20 20 20 20 77 68 69 6c 65 28 20 73 71 6c 69 74      while( sqlit
1040: 65 33 46 74 73 33 49 73 49 64 43 68 61 72 28 2a  e3Fts3IsIdChar(*
1050: 7a 32 29 20 29 20 7a 32 2b 2b 3b 0a 20 20 20 20  z2) ) z2++;.    
1060: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
1070: 20 20 20 20 20 7a 31 2b 2b 3b 0a 20 20 20 20 20       z1++;.     
1080: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a     }.    }.  }..
1090: 20 20 2a 70 6e 20 3d 20 28 69 6e 74 29 28 7a 32    *pn = (int)(z2
10a0: 2d 7a 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 7a  -z1);.  return z
10b0: 31 3b 0a 7d 0a 0a 69 6e 74 20 73 71 6c 69 74 65  1;.}..int sqlite
10c0: 33 46 74 73 33 49 6e 69 74 54 6f 6b 65 6e 69 7a  3Fts3InitTokeniz
10d0: 65 72 28 0a 20 20 46 74 73 33 48 61 73 68 20 2a  er(.  Fts3Hash *
10e0: 70 48 61 73 68 2c 20 20 20 20 20 20 20 20 20 20  pHash,          
10f0: 20 20 20 20 20 20 2f 2a 20 54 6f 6b 65 6e 69 7a        /* Tokeniz
1100: 65 72 20 68 61 73 68 20 74 61 62 6c 65 20 2a 2f  er hash table */
1110: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
1120: 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 20 20  Arg,            
1130: 20 20 20 2f 2a 20 54 6f 6b 65 6e 69 7a 65 72 20     /* Tokenizer 
1140: 6e 61 6d 65 20 2a 2f 0a 20 20 73 71 6c 69 74 65  name */.  sqlite
1150: 33 5f 74 6f 6b 65 6e 69 7a 65 72 20 2a 2a 70 70  3_tokenizer **pp
1160: 54 6f 6b 2c 20 20 20 20 20 20 2f 2a 20 4f 55 54  Tok,      /* OUT
1170: 3a 20 54 6f 6b 65 6e 69 7a 65 72 20 28 69 66 20  : Tokenizer (if 
1180: 61 70 70 6c 69 63 61 62 6c 65 29 20 2a 2f 0a 20  applicable) */. 
1190: 20 63 68 61 72 20 2a 2a 70 7a 45 72 72 20 20 20   char **pzErr   
11a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
11b0: 20 2f 2a 20 4f 55 54 3a 20 53 65 74 20 74 6f 20   /* OUT: Set to 
11c0: 6d 61 6c 6c 6f 63 65 64 20 65 72 72 6f 72 20 6d  malloced error m
11d0: 65 73 73 61 67 65 20 2a 2f 0a 29 7b 0a 20 20 69  essage */.){.  i
11e0: 6e 74 20 72 63 3b 0a 20 20 63 68 61 72 20 2a 7a  nt rc;.  char *z
11f0: 20 3d 20 28 63 68 61 72 20 2a 29 7a 41 72 67 3b   = (char *)zArg;
1200: 0a 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 20  .  int n = 0;.  
1210: 63 68 61 72 20 2a 7a 43 6f 70 79 3b 0a 20 20 63  char *zCopy;.  c
1220: 68 61 72 20 2a 7a 45 6e 64 3b 20 20 20 20 20 20  har *zEnd;      
1230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1240: 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 6e 75 6c  * Pointer to nul
1250: 2d 74 65 72 6d 20 6f 66 20 7a 43 6f 70 79 20 2a  -term of zCopy *
1260: 2f 0a 20 20 73 71 6c 69 74 65 33 5f 74 6f 6b 65  /.  sqlite3_toke
1270: 6e 69 7a 65 72 5f 6d 6f 64 75 6c 65 20 2a 6d 3b  nizer_module *m;
1280: 0a 0a 20 20 7a 43 6f 70 79 20 3d 20 73 71 6c 69  ..  zCopy = sqli
1290: 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22  te3_mprintf("%s"
12a0: 2c 20 7a 41 72 67 29 3b 0a 20 20 69 66 28 20 21  , zArg);.  if( !
12b0: 7a 43 6f 70 79 20 29 20 72 65 74 75 72 6e 20 53  zCopy ) return S
12c0: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 7a  QLITE_NOMEM;.  z
12d0: 45 6e 64 20 3d 20 26 7a 43 6f 70 79 5b 73 74 72  End = &zCopy[str
12e0: 6c 65 6e 28 7a 43 6f 70 79 29 5d 3b 0a 0a 20 20  len(zCopy)];..  
12f0: 7a 20 3d 20 28 63 68 61 72 20 2a 29 73 71 6c 69  z = (char *)sqli
1300: 74 65 33 46 74 73 33 4e 65 78 74 54 6f 6b 65 6e  te3Fts3NextToken
1310: 28 7a 43 6f 70 79 2c 20 26 6e 29 3b 0a 20 20 7a  (zCopy, &n);.  z
1320: 5b 6e 5d 20 3d 20 27 5c 30 27 3b 0a 20 20 73 71  [n] = '\0';.  sq
1330: 6c 69 74 65 33 46 74 73 33 44 65 71 75 6f 74 65  lite3Fts3Dequote
1340: 28 7a 29 3b 0a 0a 20 20 6d 20 3d 20 28 73 71 6c  (z);..  m = (sql
1350: 69 74 65 33 5f 74 6f 6b 65 6e 69 7a 65 72 5f 6d  ite3_tokenizer_m
1360: 6f 64 75 6c 65 20 2a 29 73 71 6c 69 74 65 33 46  odule *)sqlite3F
1370: 74 73 33 48 61 73 68 46 69 6e 64 28 70 48 61 73  ts3HashFind(pHas
1380: 68 2c 7a 2c 28 69 6e 74 29 73 74 72 6c 65 6e 28  h,z,(int)strlen(
1390: 7a 29 2b 31 29 3b 0a 20 20 69 66 28 20 21 6d 20  z)+1);.  if( !m 
13a0: 29 7b 0a 20 20 20 20 2a 70 7a 45 72 72 20 3d 20  ){.    *pzErr = 
13b0: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28  sqlite3_mprintf(
13c0: 22 75 6e 6b 6e 6f 77 6e 20 74 6f 6b 65 6e 69 7a  "unknown tokeniz
13d0: 65 72 3a 20 25 73 22 2c 20 7a 29 3b 0a 20 20 20  er: %s", z);.   
13e0: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 52   rc = SQLITE_ERR
13f0: 4f 52 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  OR;.  }else{.   
1400: 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 2a 61 41   char const **aA
1410: 72 67 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20  rg = 0;.    int 
1420: 69 41 72 67 20 3d 20 30 3b 0a 20 20 20 20 7a 20  iArg = 0;.    z 
1430: 3d 20 26 7a 5b 6e 2b 31 5d 3b 0a 20 20 20 20 77  = &z[n+1];.    w
1440: 68 69 6c 65 28 20 7a 3c 7a 45 6e 64 20 26 26 20  hile( z<zEnd && 
1450: 28 4e 55 4c 4c 21 3d 28 7a 20 3d 20 28 63 68 61  (NULL!=(z = (cha
1460: 72 20 2a 29 73 71 6c 69 74 65 33 46 74 73 33 4e  r *)sqlite3Fts3N
1470: 65 78 74 54 6f 6b 65 6e 28 7a 2c 20 26 6e 29 29  extToken(z, &n))
1480: 29 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e  ) ){.      int n
1490: 4e 65 77 20 3d 20 73 69 7a 65 6f 66 28 63 68 61  New = sizeof(cha
14a0: 72 20 2a 29 2a 28 69 41 72 67 2b 31 29 3b 0a 20  r *)*(iArg+1);. 
14b0: 20 20 20 20 20 63 68 61 72 20 63 6f 6e 73 74 20       char const 
14c0: 2a 2a 61 4e 65 77 20 3d 20 28 63 6f 6e 73 74 20  **aNew = (const 
14d0: 63 68 61 72 20 2a 2a 29 73 71 6c 69 74 65 33 5f  char **)sqlite3_
14e0: 72 65 61 6c 6c 6f 63 28 28 76 6f 69 64 20 2a 29  realloc((void *)
14f0: 61 41 72 67 2c 20 6e 4e 65 77 29 3b 0a 20 20 20  aArg, nNew);.   
1500: 20 20 20 69 66 28 20 21 61 4e 65 77 20 29 7b 0a     if( !aNew ){.
1510: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f          sqlite3_
1520: 66 72 65 65 28 7a 43 6f 70 79 29 3b 0a 20 20 20  free(zCopy);.   
1530: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65       sqlite3_fre
1540: 65 28 28 76 6f 69 64 20 2a 29 61 41 72 67 29 3b  e((void *)aArg);
1550: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
1560: 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20  SQLITE_NOMEM;.  
1570: 20 20 20 20 7d 0a 20 20 20 20 20 20 61 41 72 67      }.      aArg
1580: 20 3d 20 61 4e 65 77 3b 0a 20 20 20 20 20 20 61   = aNew;.      a
1590: 41 72 67 5b 69 41 72 67 2b 2b 5d 20 3d 20 7a 3b  Arg[iArg++] = z;
15a0: 0a 20 20 20 20 20 20 7a 5b 6e 5d 20 3d 20 27 5c  .      z[n] = '\
15b0: 30 27 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65  0';.      sqlite
15c0: 33 46 74 73 33 44 65 71 75 6f 74 65 28 7a 29 3b  3Fts3Dequote(z);
15d0: 0a 20 20 20 20 20 20 7a 20 3d 20 26 7a 5b 6e 2b  .      z = &z[n+
15e0: 31 5d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 63  1];.    }.    rc
15f0: 20 3d 20 6d 2d 3e 78 43 72 65 61 74 65 28 69 41   = m->xCreate(iA
1600: 72 67 2c 20 61 41 72 67 2c 20 70 70 54 6f 6b 29  rg, aArg, ppTok)
1610: 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 72 63  ;.    assert( rc
1620: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 7c 7c 20 2a  !=SQLITE_OK || *
1630: 70 70 54 6f 6b 20 29 3b 0a 20 20 20 20 69 66 28  ppTok );.    if(
1640: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc!=SQLITE_OK )
1650: 7b 0a 20 20 20 20 20 20 2a 70 7a 45 72 72 20 3d  {.      *pzErr =
1660: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66   sqlite3_mprintf
1670: 28 22 75 6e 6b 6e 6f 77 6e 20 74 6f 6b 65 6e 69  ("unknown tokeni
1680: 7a 65 72 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65  zer");.    }else
1690: 7b 0a 20 20 20 20 20 20 28 2a 70 70 54 6f 6b 29  {.      (*ppTok)
16a0: 2d 3e 70 4d 6f 64 75 6c 65 20 3d 20 6d 3b 20 0a  ->pModule = m; .
16b0: 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65      }.    sqlite
16c0: 33 5f 66 72 65 65 28 28 76 6f 69 64 20 2a 29 61  3_free((void *)a
16d0: 41 72 67 29 3b 0a 20 20 7d 0a 0a 20 20 73 71 6c  Arg);.  }..  sql
16e0: 69 74 65 33 5f 66 72 65 65 28 7a 43 6f 70 79 29  ite3_free(zCopy)
16f0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
1700: 0a 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45  ...#ifdef SQLITE
1710: 5f 54 45 53 54 0a 0a 23 69 6e 63 6c 75 64 65 20  _TEST..#include 
1720: 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  <tcl.h>.#include
1730: 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 0a 2f 2a 0a   <string.h>../*.
1740: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  ** Implementatio
1750: 6e 20 6f 66 20 61 20 73 70 65 63 69 61 6c 20 53  n of a special S
1760: 51 4c 20 73 63 61 6c 61 72 20 66 75 6e 63 74 69  QL scalar functi
1770: 6f 6e 20 66 6f 72 20 74 65 73 74 69 6e 67 20 74  on for testing t
1780: 6f 6b 65 6e 69 7a 65 72 73 20 0a 2a 2a 20 64 65  okenizers .** de
1790: 73 69 67 6e 65 64 20 74 6f 20 62 65 20 75 73 65  signed to be use
17a0: 64 20 69 6e 20 63 6f 6e 63 65 72 74 20 77 69 74  d in concert wit
17b0: 68 20 74 68 65 20 54 63 6c 20 74 65 73 74 69 6e  h the Tcl testin
17c0: 67 20 66 72 61 6d 65 77 6f 72 6b 2e 20 54 68 69  g framework. Thi
17d0: 73 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e 20 6d 75  s.** function mu
17e0: 73 74 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74  st be called wit
17f0: 68 20 74 77 6f 20 6f 72 20 6d 6f 72 65 20 61 72  h two or more ar
1800: 67 75 6d 65 6e 74 73 3a 0a 2a 2a 0a 2a 2a 20 20  guments:.**.**  
1810: 20 53 45 4c 45 43 54 20 3c 66 75 6e 63 74 69 6f   SELECT <functio
1820: 6e 2d 6e 61 6d 65 3e 28 3c 6b 65 79 2d 6e 61 6d  n-name>(<key-nam
1830: 65 3e 2c 20 2e 2e 2e 2c 20 3c 69 6e 70 75 74 2d  e>, ..., <input-
1840: 73 74 72 69 6e 67 3e 29 3b 0a 2a 2a 0a 2a 2a 20  string>);.**.** 
1850: 77 68 65 72 65 20 3c 66 75 6e 63 74 69 6f 6e 2d  where <function-
1860: 6e 61 6d 65 3e 20 69 73 20 74 68 65 20 6e 61 6d  name> is the nam
1870: 65 20 70 61 73 73 65 64 20 61 73 20 74 68 65 20  e passed as the 
1880: 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 0a  second argument.
1890: 2a 2a 20 74 6f 20 74 68 65 20 73 71 6c 69 74 65  ** to the sqlite
18a0: 33 46 74 73 33 49 6e 69 74 48 61 73 68 54 61 62  3Fts3InitHashTab
18b0: 6c 65 28 29 20 66 75 6e 63 74 69 6f 6e 20 28 65  le() function (e
18c0: 2e 67 2e 20 27 66 74 73 33 5f 74 6f 6b 65 6e 69  .g. 'fts3_tokeni
18d0: 7a 65 72 27 29 0a 2a 2a 20 63 6f 6e 63 61 74 65  zer').** concate
18e0: 6e 61 74 65 64 20 77 69 74 68 20 74 68 65 20 73  nated with the s
18f0: 74 72 69 6e 67 20 27 5f 74 65 73 74 27 20 28 65  tring '_test' (e
1900: 2e 67 2e 20 27 66 74 73 33 5f 74 6f 6b 65 6e 69  .g. 'fts3_tokeni
1910: 7a 65 72 5f 74 65 73 74 27 29 2e 0a 2a 2a 0a 2a  zer_test')..**.*
1920: 2a 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c  * The return val
1930: 75 65 20 69 73 20 61 20 73 74 72 69 6e 67 20 74  ue is a string t
1940: 68 61 74 20 6d 61 79 20 62 65 20 69 6e 74 65 72  hat may be inter
1950: 70 72 65 74 65 64 20 61 73 20 61 20 54 63 6c 0a  preted as a Tcl.
1960: 2a 2a 20 6c 69 73 74 2e 20 46 6f 72 20 65 61 63  ** list. For eac
1970: 68 20 74 6f 6b 65 6e 20 69 6e 20 74 68 65 20 3c  h token in the <
1980: 69 6e 70 75 74 2d 73 74 72 69 6e 67 3e 2c 20 74  input-string>, t
1990: 68 72 65 65 20 65 6c 65 6d 65 6e 74 73 20 61 72  hree elements ar
19a0: 65 0a 2a 2a 20 61 64 64 65 64 20 74 6f 20 74 68  e.** added to th
19b0: 65 20 72 65 74 75 72 6e 65 64 20 6c 69 73 74 2e  e returned list.
19c0: 20 54 68 65 20 66 69 72 73 74 20 69 73 20 74 68   The first is th
19d0: 65 20 74 6f 6b 65 6e 20 70 6f 73 69 74 69 6f 6e  e token position
19e0: 2c 20 74 68 65 20 0a 2a 2a 20 73 65 63 6f 6e 64  , the .** second
19f0: 20 69 73 20 74 68 65 20 74 6f 6b 65 6e 20 74 65   is the token te
1a00: 78 74 20 28 66 6f 6c 64 65 64 2c 20 73 74 65 6d  xt (folded, stem
1a10: 6d 65 64 2c 20 65 74 63 2e 29 20 61 6e 64 20 74  med, etc.) and t
1a20: 68 65 20 74 68 69 72 64 20 69 73 20 74 68 65 0a  he third is the.
1a30: 2a 2a 20 73 75 62 73 74 72 69 6e 67 20 6f 66 20  ** substring of 
1a40: 3c 69 6e 70 75 74 2d 73 74 72 69 6e 67 3e 20 61  <input-string> a
1a50: 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74  ssociated with t
1a60: 68 65 20 74 6f 6b 65 6e 2e 20 46 6f 72 20 65 78  he token. For ex
1a70: 61 6d 70 6c 65 2c 20 0a 2a 2a 20 75 73 69 6e 67  ample, .** using
1a80: 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 22 73   the built-in "s
1a90: 69 6d 70 6c 65 22 20 74 6f 6b 65 6e 69 7a 65 72  imple" tokenizer
1aa0: 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 45 4c 45 43 54  :.**.**   SELECT
1ab0: 20 66 74 73 5f 74 6f 6b 65 6e 69 7a 65 72 5f 74   fts_tokenizer_t
1ac0: 65 73 74 28 27 73 69 6d 70 6c 65 27 2c 20 27 49  est('simple', 'I
1ad0: 20 64 6f 6e 27 74 20 73 65 65 20 68 6f 77 27 29   don't see how')
1ae0: 3b 0a 2a 2a 0a 2a 2a 20 77 69 6c 6c 20 72 65 74  ;.**.** will ret
1af0: 75 72 6e 20 74 68 65 20 73 74 72 69 6e 67 3a 0a  urn the string:.
1b00: 2a 2a 0a 2a 2a 20 20 20 22 7b 30 20 69 20 49 20  **.**   "{0 i I 
1b10: 31 20 64 6f 6e 74 20 64 6f 6e 27 74 20 32 20 73  1 dont don't 2 s
1b20: 65 65 20 73 65 65 20 33 20 68 6f 77 20 68 6f 77  ee see 3 how how
1b30: 7d 22 0a 2a 2a 20 20 20 0a 2a 2f 0a 73 74 61 74  }".**   .*/.stat
1b40: 69 63 20 76 6f 69 64 20 74 65 73 74 46 75 6e 63  ic void testFunc
1b50: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
1b60: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
1b70: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69  int argc,.  sqli
1b80: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
1b90: 0a 29 7b 0a 20 20 46 74 73 33 48 61 73 68 20 2a  .){.  Fts3Hash *
1ba0: 70 48 61 73 68 3b 0a 20 20 73 71 6c 69 74 65 33  pHash;.  sqlite3
1bb0: 5f 74 6f 6b 65 6e 69 7a 65 72 5f 6d 6f 64 75 6c  _tokenizer_modul
1bc0: 65 20 2a 70 3b 0a 20 20 73 71 6c 69 74 65 33 5f  e *p;.  sqlite3_
1bd0: 74 6f 6b 65 6e 69 7a 65 72 20 2a 70 54 6f 6b 65  tokenizer *pToke
1be0: 6e 69 7a 65 72 20 3d 20 30 3b 0a 20 20 73 71 6c  nizer = 0;.  sql
1bf0: 69 74 65 33 5f 74 6f 6b 65 6e 69 7a 65 72 5f 63  ite3_tokenizer_c
1c00: 75 72 73 6f 72 20 2a 70 43 73 72 20 3d 20 30 3b  ursor *pCsr = 0;
1c10: 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ..  const char *
1c20: 7a 45 72 72 20 3d 20 30 3b 0a 0a 20 20 63 6f 6e  zErr = 0;..  con
1c30: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a  st char *zName;.
1c40: 20 20 69 6e 74 20 6e 4e 61 6d 65 3b 0a 20 20 63    int nName;.  c
1c50: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 49 6e 70 75  onst char *zInpu
1c60: 74 3b 0a 20 20 69 6e 74 20 6e 49 6e 70 75 74 3b  t;.  int nInput;
1c70: 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ..  const char *
1c80: 61 7a 41 72 67 5b 36 34 5d 3b 0a 0a 20 20 63 6f  azArg[64];..  co
1c90: 6e 73 74 20 63 68 61 72 20 2a 7a 54 6f 6b 65 6e  nst char *zToken
1ca0: 3b 0a 20 20 69 6e 74 20 6e 54 6f 6b 65 6e 3b 0a  ;.  int nToken;.
1cb0: 20 20 69 6e 74 20 69 53 74 61 72 74 3b 0a 20 20    int iStart;.  
1cc0: 69 6e 74 20 69 45 6e 64 3b 0a 20 20 69 6e 74 20  int iEnd;.  int 
1cd0: 69 50 6f 73 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a  iPos;.  int i;..
1ce0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b    Tcl_Obj *pRet;
1cf0: 0a 0a 20 20 69 66 28 20 61 72 67 63 3c 32 20 29  ..  if( argc<2 )
1d00: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65  {.    sqlite3_re
1d10: 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65  sult_error(conte
1d20: 78 74 2c 20 22 69 6e 73 75 66 66 69 63 69 65 6e  xt, "insufficien
1d30: 74 20 61 72 67 75 6d 65 6e 74 73 22 2c 20 2d 31  t arguments", -1
1d40: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20  );.    return;. 
1d50: 20 7d 0a 0a 20 20 6e 4e 61 6d 65 20 3d 20 73 71   }..  nName = sq
1d60: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65  lite3_value_byte
1d70: 73 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 7a 4e  s(argv[0]);.  zN
1d80: 61 6d 65 20 3d 20 28 63 6f 6e 73 74 20 63 68 61  ame = (const cha
1d90: 72 20 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75  r *)sqlite3_valu
1da0: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b  e_text(argv[0]);
1db0: 0a 20 20 6e 49 6e 70 75 74 20 3d 20 73 71 6c 69  .  nInput = sqli
1dc0: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28  te3_value_bytes(
1dd0: 61 72 67 76 5b 61 72 67 63 2d 31 5d 29 3b 0a 20  argv[argc-1]);. 
1de0: 20 7a 49 6e 70 75 74 20 3d 20 28 63 6f 6e 73 74   zInput = (const
1df0: 20 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 5f   char *)sqlite3_
1e00: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b  value_text(argv[
1e10: 61 72 67 63 2d 31 5d 29 3b 0a 0a 20 20 70 48 61  argc-1]);..  pHa
1e20: 73 68 20 3d 20 28 46 74 73 33 48 61 73 68 20 2a  sh = (Fts3Hash *
1e30: 29 73 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61  )sqlite3_user_da
1e40: 74 61 28 63 6f 6e 74 65 78 74 29 3b 0a 20 20 70  ta(context);.  p
1e50: 20 3d 20 28 73 71 6c 69 74 65 33 5f 74 6f 6b 65   = (sqlite3_toke
1e60: 6e 69 7a 65 72 5f 6d 6f 64 75 6c 65 20 2a 29 73  nizer_module *)s
1e70: 71 6c 69 74 65 33 46 74 73 33 48 61 73 68 46 69  qlite3Fts3HashFi
1e80: 6e 64 28 70 48 61 73 68 2c 20 7a 4e 61 6d 65 2c  nd(pHash, zName,
1e90: 20 6e 4e 61 6d 65 2b 31 29 3b 0a 0a 20 20 69 66   nName+1);..  if
1ea0: 28 20 21 70 20 29 7b 0a 20 20 20 20 63 68 61 72  ( !p ){.    char
1eb0: 20 2a 7a 45 72 72 20 3d 20 73 71 6c 69 74 65 33   *zErr = sqlite3
1ec0: 5f 6d 70 72 69 6e 74 66 28 22 75 6e 6b 6e 6f 77  _mprintf("unknow
1ed0: 6e 20 74 6f 6b 65 6e 69 7a 65 72 3a 20 25 73 22  n tokenizer: %s"
1ee0: 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 73 71  , zName);.    sq
1ef0: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72  lite3_result_err
1f00: 6f 72 28 63 6f 6e 74 65 78 74 2c 20 7a 45 72 72  or(context, zErr
1f10: 2c 20 2d 31 29 3b 0a 20 20 20 20 73 71 6c 69 74  , -1);.    sqlit
1f20: 65 33 5f 66 72 65 65 28 7a 45 72 72 29 3b 0a 20  e3_free(zErr);. 
1f30: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 0a     return;.  }..
1f40: 20 20 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77    pRet = Tcl_New
1f50: 4f 62 6a 28 29 3b 0a 20 20 54 63 6c 5f 49 6e 63  Obj();.  Tcl_Inc
1f60: 72 52 65 66 43 6f 75 6e 74 28 70 52 65 74 29 3b  rRefCount(pRet);
1f70: 0a 0a 20 20 66 6f 72 28 69 3d 31 3b 20 69 3c 61  ..  for(i=1; i<a
1f80: 72 67 63 2d 31 3b 20 69 2b 2b 29 7b 0a 20 20 20  rgc-1; i++){.   
1f90: 20 61 7a 41 72 67 5b 69 2d 31 5d 20 3d 20 28 63   azArg[i-1] = (c
1fa0: 6f 6e 73 74 20 63 68 61 72 20 2a 29 73 71 6c 69  onst char *)sqli
1fb0: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
1fc0: 72 67 76 5b 69 5d 29 3b 0a 20 20 7d 0a 0a 20 20  rgv[i]);.  }..  
1fd0: 69 66 28 20 53 51 4c 49 54 45 5f 4f 4b 21 3d 70  if( SQLITE_OK!=p
1fe0: 2d 3e 78 43 72 65 61 74 65 28 61 72 67 63 2d 32  ->xCreate(argc-2
1ff0: 2c 20 61 7a 41 72 67 2c 20 26 70 54 6f 6b 65 6e  , azArg, &pToken
2000: 69 7a 65 72 29 20 29 7b 0a 20 20 20 20 7a 45 72  izer) ){.    zEr
2010: 72 20 3d 20 22 65 72 72 6f 72 20 69 6e 20 78 43  r = "error in xC
2020: 72 65 61 74 65 28 29 22 3b 0a 20 20 20 20 67 6f  reate()";.    go
2030: 74 6f 20 66 69 6e 69 73 68 3b 0a 20 20 7d 0a 20  to finish;.  }. 
2040: 20 70 54 6f 6b 65 6e 69 7a 65 72 2d 3e 70 4d 6f   pTokenizer->pMo
2050: 64 75 6c 65 20 3d 20 70 3b 0a 20 20 69 66 28 20  dule = p;.  if( 
2060: 73 71 6c 69 74 65 33 46 74 73 33 4f 70 65 6e 54  sqlite3Fts3OpenT
2070: 6f 6b 65 6e 69 7a 65 72 28 70 54 6f 6b 65 6e 69  okenizer(pTokeni
2080: 7a 65 72 2c 20 30 2c 20 7a 49 6e 70 75 74 2c 20  zer, 0, zInput, 
2090: 6e 49 6e 70 75 74 2c 20 26 70 43 73 72 29 20 29  nInput, &pCsr) )
20a0: 7b 0a 20 20 20 20 7a 45 72 72 20 3d 20 22 65 72  {.    zErr = "er
20b0: 72 6f 72 20 69 6e 20 78 4f 70 65 6e 28 29 22 3b  ror in xOpen()";
20c0: 0a 20 20 20 20 67 6f 74 6f 20 66 69 6e 69 73 68  .    goto finish
20d0: 3b 0a 20 20 7d 0a 0a 20 20 77 68 69 6c 65 28 20  ;.  }..  while( 
20e0: 53 51 4c 49 54 45 5f 4f 4b 3d 3d 70 2d 3e 78 4e  SQLITE_OK==p->xN
20f0: 65 78 74 28 70 43 73 72 2c 20 26 7a 54 6f 6b 65  ext(pCsr, &zToke
2100: 6e 2c 20 26 6e 54 6f 6b 65 6e 2c 20 26 69 53 74  n, &nToken, &iSt
2110: 61 72 74 2c 20 26 69 45 6e 64 2c 20 26 69 50 6f  art, &iEnd, &iPo
2120: 73 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f 4c 69  s) ){.    Tcl_Li
2130: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
2140: 6e 74 28 30 2c 20 70 52 65 74 2c 20 54 63 6c 5f  nt(0, pRet, Tcl_
2150: 4e 65 77 49 6e 74 4f 62 6a 28 69 50 6f 73 29 29  NewIntObj(iPos))
2160: 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ;.    Tcl_ListOb
2170: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30  jAppendElement(0
2180: 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53  , pRet, Tcl_NewS
2190: 74 72 69 6e 67 4f 62 6a 28 7a 54 6f 6b 65 6e 2c  tringObj(zToken,
21a0: 20 6e 54 6f 6b 65 6e 29 29 3b 0a 20 20 20 20 7a   nToken));.    z
21b0: 54 6f 6b 65 6e 20 3d 20 26 7a 49 6e 70 75 74 5b  Token = &zInput[
21c0: 69 53 74 61 72 74 5d 3b 0a 20 20 20 20 6e 54 6f  iStart];.    nTo
21d0: 6b 65 6e 20 3d 20 69 45 6e 64 2d 69 53 74 61 72  ken = iEnd-iStar
21e0: 74 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f  t;.    Tcl_ListO
21f0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
2200: 30 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77  0, pRet, Tcl_New
2210: 53 74 72 69 6e 67 4f 62 6a 28 7a 54 6f 6b 65 6e  StringObj(zToken
2220: 2c 20 6e 54 6f 6b 65 6e 29 29 3b 0a 20 20 7d 0a  , nToken));.  }.
2230: 0a 20 20 69 66 28 20 53 51 4c 49 54 45 5f 4f 4b  .  if( SQLITE_OK
2240: 21 3d 70 2d 3e 78 43 6c 6f 73 65 28 70 43 73 72  !=p->xClose(pCsr
2250: 29 20 29 7b 0a 20 20 20 20 7a 45 72 72 20 3d 20  ) ){.    zErr = 
2260: 22 65 72 72 6f 72 20 69 6e 20 78 43 6c 6f 73 65  "error in xClose
2270: 28 29 22 3b 0a 20 20 20 20 67 6f 74 6f 20 66 69  ()";.    goto fi
2280: 6e 69 73 68 3b 0a 20 20 7d 0a 20 20 69 66 28 20  nish;.  }.  if( 
2290: 53 51 4c 49 54 45 5f 4f 4b 21 3d 70 2d 3e 78 44  SQLITE_OK!=p->xD
22a0: 65 73 74 72 6f 79 28 70 54 6f 6b 65 6e 69 7a 65  estroy(pTokenize
22b0: 72 29 20 29 7b 0a 20 20 20 20 7a 45 72 72 20 3d  r) ){.    zErr =
22c0: 20 22 65 72 72 6f 72 20 69 6e 20 78 44 65 73 74   "error in xDest
22d0: 72 6f 79 28 29 22 3b 0a 20 20 20 20 67 6f 74 6f  roy()";.    goto
22e0: 20 66 69 6e 69 73 68 3b 0a 20 20 7d 0a 0a 66 69   finish;.  }..fi
22f0: 6e 69 73 68 3a 0a 20 20 69 66 28 20 7a 45 72 72  nish:.  if( zErr
2300: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   ){.    sqlite3_
2310: 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e  result_error(con
2320: 74 65 78 74 2c 20 7a 45 72 72 2c 20 2d 31 29 3b  text, zErr, -1);
2330: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71  .  }else{.    sq
2340: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78  lite3_result_tex
2350: 74 28 63 6f 6e 74 65 78 74 2c 20 54 63 6c 5f 47  t(context, Tcl_G
2360: 65 74 53 74 72 69 6e 67 28 70 52 65 74 29 2c 20  etString(pRet), 
2370: 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53  -1, SQLITE_TRANS
2380: 49 45 4e 54 29 3b 0a 20 20 7d 0a 20 20 54 63 6c  IENT);.  }.  Tcl
2390: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 52  _DecrRefCount(pR
23a0: 65 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 0a 69  et);.}..static.i
23b0: 6e 74 20 72 65 67 69 73 74 65 72 54 6f 6b 65 6e  nt registerToken
23c0: 69 7a 65 72 28 0a 20 20 73 71 6c 69 74 65 33 20  izer(.  sqlite3 
23d0: 2a 64 62 2c 20 0a 20 20 63 68 61 72 20 2a 7a 4e  *db, .  char *zN
23e0: 61 6d 65 2c 20 0a 20 20 63 6f 6e 73 74 20 73 71  ame, .  const sq
23f0: 6c 69 74 65 33 5f 74 6f 6b 65 6e 69 7a 65 72 5f  lite3_tokenizer_
2400: 6d 6f 64 75 6c 65 20 2a 70 0a 29 7b 0a 20 20 69  module *p.){.  i
2410: 6e 74 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 33  nt rc;.  sqlite3
2420: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20  _stmt *pStmt;.  
2430: 63 6f 6e 73 74 20 63 68 61 72 20 7a 53 71 6c 5b  const char zSql[
2440: 5d 20 3d 20 22 53 45 4c 45 43 54 20 66 74 73 33  ] = "SELECT fts3
2450: 5f 74 6f 6b 65 6e 69 7a 65 72 28 3f 2c 20 3f 29  _tokenizer(?, ?)
2460: 22 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74  ";..  rc = sqlit
2470: 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 64 62  e3_prepare_v2(db
2480: 2c 20 7a 53 71 6c 2c 20 2d 31 2c 20 26 70 53 74  , zSql, -1, &pSt
2490: 6d 74 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63  mt, 0);.  if( rc
24a0: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  !=SQLITE_OK ){. 
24b0: 20 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20     return rc;.  
24c0: 7d 0a 0a 20 20 73 71 6c 69 74 65 33 5f 62 69 6e  }..  sqlite3_bin
24d0: 64 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 31 2c  d_text(pStmt, 1,
24e0: 20 7a 4e 61 6d 65 2c 20 2d 31 2c 20 53 51 4c 49   zName, -1, SQLI
24f0: 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 73 71  TE_STATIC);.  sq
2500: 6c 69 74 65 33 5f 62 69 6e 64 5f 62 6c 6f 62 28  lite3_bind_blob(
2510: 70 53 74 6d 74 2c 20 32 2c 20 26 70 2c 20 73 69  pStmt, 2, &p, si
2520: 7a 65 6f 66 28 70 29 2c 20 53 51 4c 49 54 45 5f  zeof(p), SQLITE_
2530: 53 54 41 54 49 43 29 3b 0a 20 20 73 71 6c 69 74  STATIC);.  sqlit
2540: 65 33 5f 73 74 65 70 28 70 53 74 6d 74 29 3b 0a  e3_step(pStmt);.
2550: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
2560: 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74  3_finalize(pStmt
2570: 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 0a 69 6e 74  );.}..static.int
2580: 20 71 75 65 72 79 54 6f 6b 65 6e 69 7a 65 72 28   queryTokenizer(
2590: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 2c 20  .  sqlite3 *db, 
25a0: 0a 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20  .  char *zName, 
25b0: 20 0a 20 20 63 6f 6e 73 74 20 73 71 6c 69 74 65   .  const sqlite
25c0: 33 5f 74 6f 6b 65 6e 69 7a 65 72 5f 6d 6f 64 75  3_tokenizer_modu
25d0: 6c 65 20 2a 2a 70 70 0a 29 7b 0a 20 20 69 6e 74  le **pp.){.  int
25e0: 20 72 63 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73   rc;.  sqlite3_s
25f0: 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 63 6f  tmt *pStmt;.  co
2600: 6e 73 74 20 63 68 61 72 20 7a 53 71 6c 5b 5d 20  nst char zSql[] 
2610: 3d 20 22 53 45 4c 45 43 54 20 66 74 73 33 5f 74  = "SELECT fts3_t
2620: 6f 6b 65 6e 69 7a 65 72 28 3f 29 22 3b 0a 0a 20  okenizer(?)";.. 
2630: 20 2a 70 70 20 3d 20 30 3b 0a 20 20 72 63 20 3d   *pp = 0;.  rc =
2640: 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65   sqlite3_prepare
2650: 5f 76 32 28 64 62 2c 20 7a 53 71 6c 2c 20 2d 31  _v2(db, zSql, -1
2660: 2c 20 26 70 53 74 6d 74 2c 20 30 29 3b 0a 20 20  , &pStmt, 0);.  
2670: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f  if( rc!=SQLITE_O
2680: 4b 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  K ){.    return 
2690: 72 63 3b 0a 20 20 7d 0a 0a 20 20 73 71 6c 69 74  rc;.  }..  sqlit
26a0: 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74  e3_bind_text(pSt
26b0: 6d 74 2c 20 31 2c 20 7a 4e 61 6d 65 2c 20 2d 31  mt, 1, zName, -1
26c0: 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29  , SQLITE_STATIC)
26d0: 3b 0a 20 20 69 66 28 20 53 51 4c 49 54 45 5f 52  ;.  if( SQLITE_R
26e0: 4f 57 3d 3d 73 71 6c 69 74 65 33 5f 73 74 65 70  OW==sqlite3_step
26f0: 28 70 53 74 6d 74 29 20 29 7b 0a 20 20 20 20 69  (pStmt) ){.    i
2700: 66 28 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d  f( sqlite3_colum
2710: 6e 5f 74 79 70 65 28 70 53 74 6d 74 2c 20 30 29  n_type(pStmt, 0)
2720: 3d 3d 53 51 4c 49 54 45 5f 42 4c 4f 42 20 29 7b  ==SQLITE_BLOB ){
2730: 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28 28 76  .      memcpy((v
2740: 6f 69 64 20 2a 29 70 70 2c 20 73 71 6c 69 74 65  oid *)pp, sqlite
2750: 33 5f 63 6f 6c 75 6d 6e 5f 62 6c 6f 62 28 70 53  3_column_blob(pS
2760: 74 6d 74 2c 20 30 29 2c 20 73 69 7a 65 6f 66 28  tmt, 0), sizeof(
2770: 2a 70 70 29 29 3b 0a 20 20 20 20 7d 0a 20 20 7d  *pp));.    }.  }
2780: 0a 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  ..  return sqlit
2790: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d  e3_finalize(pStm
27a0: 74 29 3b 0a 7d 0a 0a 76 6f 69 64 20 73 71 6c 69  t);.}..void sqli
27b0: 74 65 33 46 74 73 33 53 69 6d 70 6c 65 54 6f 6b  te3Fts3SimpleTok
27c0: 65 6e 69 7a 65 72 4d 6f 64 75 6c 65 28 73 71 6c  enizerModule(sql
27d0: 69 74 65 33 5f 74 6f 6b 65 6e 69 7a 65 72 5f 6d  ite3_tokenizer_m
27e0: 6f 64 75 6c 65 20 63 6f 6e 73 74 2a 2a 70 70 4d  odule const**ppM
27f0: 6f 64 75 6c 65 29 3b 0a 0a 2f 2a 0a 2a 2a 20 49  odule);../*.** I
2800: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66  mplementation of
2810: 20 74 68 65 20 73 63 61 6c 61 72 20 66 75 6e 63   the scalar func
2820: 74 69 6f 6e 20 66 74 73 33 5f 74 6f 6b 65 6e 69  tion fts3_tokeni
2830: 7a 65 72 5f 69 6e 74 65 72 6e 61 6c 5f 74 65 73  zer_internal_tes
2840: 74 28 29 2e 0a 2a 2a 20 54 68 69 73 20 66 75 6e  t()..** This fun
2850: 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 66 6f  ction is used fo
2860: 72 20 74 65 73 74 69 6e 67 20 6f 6e 6c 79 2c 20  r testing only, 
2870: 69 74 20 69 73 20 6e 6f 74 20 69 6e 63 6c 75 64  it is not includ
2880: 65 64 20 69 6e 20 74 68 65 0a 2a 2a 20 62 75 69  ed in the.** bui
2890: 6c 64 20 75 6e 6c 65 73 73 20 53 51 4c 49 54 45  ld unless SQLITE
28a0: 5f 54 45 53 54 20 69 73 20 64 65 66 69 6e 65 64  _TEST is defined
28b0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 70 75 72 70  ..**.** The purp
28c0: 6f 73 65 20 6f 66 20 74 68 69 73 20 69 73 20 74  ose of this is t
28d0: 6f 20 74 65 73 74 20 74 68 61 74 20 74 68 65 20  o test that the 
28e0: 66 74 73 33 5f 74 6f 6b 65 6e 69 7a 65 72 28 29  fts3_tokenizer()
28f0: 20 66 75 6e 63 74 69 6f 6e 0a 2a 2a 20 63 61 6e   function.** can
2900: 20 62 65 20 75 73 65 64 20 61 73 20 64 65 73 69   be used as desi
2910: 67 6e 65 64 20 62 79 20 74 68 65 20 43 2d 63 6f  gned by the C-co
2920: 64 65 20 69 6e 20 74 68 65 20 71 75 65 72 79 54  de in the queryT
2930: 6f 6b 65 6e 69 7a 65 72 20 61 6e 64 0a 2a 2a 20  okenizer and.** 
2940: 72 65 67 69 73 74 65 72 54 6f 6b 65 6e 69 7a 65  registerTokenize
2950: 72 28 29 20 66 75 6e 63 74 69 6f 6e 73 20 61 62  r() functions ab
2960: 6f 76 65 2e 20 54 68 65 73 65 20 74 77 6f 20 66  ove. These two f
2970: 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 72 65 70  unctions are rep
2980: 65 61 74 65 64 0a 2a 2a 20 69 6e 20 74 68 65 20  eated.** in the 
2990: 52 45 41 44 4d 45 2e 74 6f 6b 65 6e 69 7a 65 72  README.tokenizer
29a0: 20 66 69 6c 65 20 61 73 20 61 6e 20 65 78 61 6d   file as an exam
29b0: 70 6c 65 2c 20 73 6f 20 69 74 20 69 73 20 69 6d  ple, so it is im
29c0: 70 6f 72 74 61 6e 74 20 74 6f 0a 2a 2a 20 74 65  portant to.** te
29d0: 73 74 20 74 68 65 6d 2e 0a 2a 2a 0a 2a 2a 20 54  st them..**.** T
29e0: 6f 20 72 75 6e 20 74 68 65 20 74 65 73 74 73 2c  o run the tests,
29f0: 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 66 74   evaluate the ft
2a00: 73 33 5f 74 6f 6b 65 6e 69 7a 65 72 5f 69 6e 74  s3_tokenizer_int
2a10: 65 72 6e 61 6c 5f 74 65 73 74 28 29 20 73 63 61  ernal_test() sca
2a20: 6c 61 72 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e 20  lar.** function 
2a30: 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74  with no argument
2a40: 73 2e 20 41 6e 20 61 73 73 65 72 74 28 29 20 77  s. An assert() w
2a50: 69 6c 6c 20 66 61 69 6c 20 69 66 20 61 20 70 72  ill fail if a pr
2a60: 6f 62 6c 65 6d 20 69 73 0a 2a 2a 20 64 65 74 65  oblem is.** dete
2a70: 63 74 65 64 2e 20 69 2e 65 2e 3a 0a 2a 2a 0a 2a  cted. i.e.:.**.*
2a80: 2a 20 20 20 20 20 53 45 4c 45 43 54 20 66 74 73  *     SELECT fts
2a90: 33 5f 74 6f 6b 65 6e 69 7a 65 72 5f 69 6e 74 65  3_tokenizer_inte
2aa0: 72 6e 61 6c 5f 74 65 73 74 28 29 3b 0a 2a 2a 0a  rnal_test();.**.
2ab0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 69  */.static void i
2ac0: 6e 74 54 65 73 74 46 75 6e 63 28 0a 20 20 73 71  ntTestFunc(.  sq
2ad0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
2ae0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72  ontext,.  int ar
2af0: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  gc,.  sqlite3_va
2b00: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
2b10: 69 6e 74 20 72 63 3b 0a 20 20 63 6f 6e 73 74 20  int rc;.  const 
2b20: 73 71 6c 69 74 65 33 5f 74 6f 6b 65 6e 69 7a 65  sqlite3_tokenize
2b30: 72 5f 6d 6f 64 75 6c 65 20 2a 70 31 3b 0a 20 20  r_module *p1;.  
2b40: 63 6f 6e 73 74 20 73 71 6c 69 74 65 33 5f 74 6f  const sqlite3_to
2b50: 6b 65 6e 69 7a 65 72 5f 6d 6f 64 75 6c 65 20 2a  kenizer_module *
2b60: 70 32 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64  p2;.  sqlite3 *d
2b70: 62 20 3d 20 28 73 71 6c 69 74 65 33 20 2a 29 73  b = (sqlite3 *)s
2b80: 71 6c 69 74 65 33 5f 75 73 65 72 5f 64 61 74 61  qlite3_user_data
2b90: 28 63 6f 6e 74 65 78 74 29 3b 0a 0a 20 20 55 4e  (context);..  UN
2ba0: 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52 28 61  USED_PARAMETER(a
2bb0: 72 67 63 29 3b 0a 20 20 55 4e 55 53 45 44 5f 50  rgc);.  UNUSED_P
2bc0: 41 52 41 4d 45 54 45 52 28 61 72 67 76 29 3b 0a  ARAMETER(argv);.
2bd0: 0a 20 20 2f 2a 20 54 65 73 74 20 74 68 65 20 71  .  /* Test the q
2be0: 75 65 72 79 20 66 75 6e 63 74 69 6f 6e 20 2a 2f  uery function */
2bf0: 0a 20 20 73 71 6c 69 74 65 33 46 74 73 33 53 69  .  sqlite3Fts3Si
2c00: 6d 70 6c 65 54 6f 6b 65 6e 69 7a 65 72 4d 6f 64  mpleTokenizerMod
2c10: 75 6c 65 28 26 70 31 29 3b 0a 20 20 72 63 20 3d  ule(&p1);.  rc =
2c20: 20 71 75 65 72 79 54 6f 6b 65 6e 69 7a 65 72 28   queryTokenizer(
2c30: 64 62 2c 20 22 73 69 6d 70 6c 65 22 2c 20 26 70  db, "simple", &p
2c40: 32 29 3b 0a 20 20 61 73 73 65 72 74 28 20 72 63  2);.  assert( rc
2c50: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 3b 0a 20  ==SQLITE_OK );. 
2c60: 20 61 73 73 65 72 74 28 20 70 31 3d 3d 70 32 20   assert( p1==p2 
2c70: 29 3b 0a 20 20 72 63 20 3d 20 71 75 65 72 79 54  );.  rc = queryT
2c80: 6f 6b 65 6e 69 7a 65 72 28 64 62 2c 20 22 6e 6f  okenizer(db, "no
2c90: 73 75 63 68 74 6f 6b 65 6e 69 7a 65 72 22 2c 20  suchtokenizer", 
2ca0: 26 70 32 29 3b 0a 20 20 61 73 73 65 72 74 28 20  &p2);.  assert( 
2cb0: 72 63 3d 3d 53 51 4c 49 54 45 5f 45 52 52 4f 52  rc==SQLITE_ERROR
2cc0: 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 32   );.  assert( p2
2cd0: 3d 3d 30 20 29 3b 0a 20 20 61 73 73 65 72 74 28  ==0 );.  assert(
2ce0: 20 30 3d 3d 73 74 72 63 6d 70 28 73 71 6c 69 74   0==strcmp(sqlit
2cf0: 65 33 5f 65 72 72 6d 73 67 28 64 62 29 2c 20 22  e3_errmsg(db), "
2d00: 75 6e 6b 6e 6f 77 6e 20 74 6f 6b 65 6e 69 7a 65  unknown tokenize
2d10: 72 3a 20 6e 6f 73 75 63 68 74 6f 6b 65 6e 69 7a  r: nosuchtokeniz
2d20: 65 72 22 29 20 29 3b 0a 0a 20 20 2f 2a 20 54 65  er") );..  /* Te
2d30: 73 74 20 74 68 65 20 73 74 6f 72 61 67 65 20 66  st the storage f
2d40: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 72 63 20  unction */.  rc 
2d50: 3d 20 72 65 67 69 73 74 65 72 54 6f 6b 65 6e 69  = registerTokeni
2d60: 7a 65 72 28 64 62 2c 20 22 6e 6f 73 75 63 68 74  zer(db, "nosucht
2d70: 6f 6b 65 6e 69 7a 65 72 22 2c 20 70 31 29 3b 0a  okenizer", p1);.
2d80: 20 20 61 73 73 65 72 74 28 20 72 63 3d 3d 53 51    assert( rc==SQ
2d90: 4c 49 54 45 5f 4f 4b 20 29 3b 0a 20 20 72 63 20  LITE_OK );.  rc 
2da0: 3d 20 71 75 65 72 79 54 6f 6b 65 6e 69 7a 65 72  = queryTokenizer
2db0: 28 64 62 2c 20 22 6e 6f 73 75 63 68 74 6f 6b 65  (db, "nosuchtoke
2dc0: 6e 69 7a 65 72 22 2c 20 26 70 32 29 3b 0a 20 20  nizer", &p2);.  
2dd0: 61 73 73 65 72 74 28 20 72 63 3d 3d 53 51 4c 49  assert( rc==SQLI
2de0: 54 45 5f 4f 4b 20 29 3b 0a 20 20 61 73 73 65 72  TE_OK );.  asser
2df0: 74 28 20 70 32 3d 3d 70 31 20 29 3b 0a 0a 20 20  t( p2==p1 );..  
2e00: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74  sqlite3_result_t
2e10: 65 78 74 28 63 6f 6e 74 65 78 74 2c 20 22 6f 6b  ext(context, "ok
2e20: 22 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 53 54  ", -1, SQLITE_ST
2e30: 41 54 49 43 29 3b 0a 7d 0a 0a 23 65 6e 64 69 66  ATIC);.}..#endif
2e40: 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 75 70 20 53  ../*.** Set up S
2e50: 51 4c 20 6f 62 6a 65 63 74 73 20 69 6e 20 64 61  QL objects in da
2e60: 74 61 62 61 73 65 20 64 62 20 75 73 65 64 20 74  tabase db used t
2e70: 6f 20 61 63 63 65 73 73 20 74 68 65 20 63 6f 6e  o access the con
2e80: 74 65 6e 74 73 20 6f 66 0a 2a 2a 20 74 68 65 20  tents of.** the 
2e90: 68 61 73 68 20 74 61 62 6c 65 20 70 6f 69 6e 74  hash table point
2ea0: 65 64 20 74 6f 20 62 79 20 61 72 67 75 6d 65 6e  ed to by argumen
2eb0: 74 20 70 48 61 73 68 2e 20 54 68 65 20 68 61 73  t pHash. The has
2ec0: 68 20 74 61 62 6c 65 20 6d 75 73 74 0a 2a 2a 20  h table must.** 
2ed0: 62 65 65 6e 20 69 6e 69 74 69 61 6c 69 73 65 64  been initialised
2ee0: 20 74 6f 20 75 73 65 20 73 74 72 69 6e 67 20 6b   to use string k
2ef0: 65 79 73 2c 20 61 6e 64 20 74 6f 20 74 61 6b 65  eys, and to take
2f00: 20 61 20 70 72 69 76 61 74 65 20 63 6f 70 79 20   a private copy 
2f10: 0a 2a 2a 20 6f 66 20 74 68 65 20 6b 65 79 20 77  .** of the key w
2f20: 68 65 6e 20 61 20 76 61 6c 75 65 20 69 73 20 69  hen a value is i
2f30: 6e 73 65 72 74 65 64 2e 20 69 2e 65 2e 20 62 79  nserted. i.e. by
2f40: 20 61 20 63 61 6c 6c 20 73 69 6d 69 6c 61 72 20   a call similar 
2f50: 74 6f 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 73 71 6c  to:.**.**    sql
2f60: 69 74 65 33 46 74 73 33 48 61 73 68 49 6e 69 74  ite3Fts3HashInit
2f70: 28 70 48 61 73 68 2c 20 46 54 53 33 5f 48 41 53  (pHash, FTS3_HAS
2f80: 48 5f 53 54 52 49 4e 47 2c 20 31 29 3b 0a 2a 2a  H_STRING, 1);.**
2f90: 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f  .** This functio
2fa0: 6e 20 61 64 64 73 20 61 20 73 63 61 6c 61 72 20  n adds a scalar 
2fb0: 66 75 6e 63 74 69 6f 6e 20 28 73 65 65 20 68 65  function (see he
2fc0: 61 64 65 72 20 63 6f 6d 6d 65 6e 74 20 61 62 6f  ader comment abo
2fd0: 76 65 0a 2a 2a 20 73 63 61 6c 61 72 46 75 6e 63  ve.** scalarFunc
2fe0: 28 29 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20  () in this file 
2ff0: 66 6f 72 20 64 65 74 61 69 6c 73 29 20 61 6e 64  for details) and
3000: 2c 20 69 66 20 45 4e 41 42 4c 45 5f 54 41 42 4c  , if ENABLE_TABL
3010: 45 20 69 73 0a 2a 2a 20 64 65 66 69 6e 65 64 20  E is.** defined 
3020: 61 74 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 74  at compilation t
3030: 69 6d 65 2c 20 61 20 74 65 6d 70 6f 72 61 72 79  ime, a temporary
3040: 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20 28   virtual table (
3050: 73 65 65 20 68 65 61 64 65 72 20 0a 2a 2a 20 63  see header .** c
3060: 6f 6d 6d 65 6e 74 20 61 62 6f 76 65 20 73 74 72  omment above str
3070: 75 63 74 20 48 61 73 68 54 61 62 6c 65 56 74 61  uct HashTableVta
3080: 62 29 20 74 6f 20 74 68 65 20 64 61 74 61 62 61  b) to the databa
3090: 73 65 20 73 63 68 65 6d 61 2e 20 42 6f 74 68 20  se schema. Both 
30a0: 0a 2a 2a 20 70 72 6f 76 69 64 65 20 72 65 61 64  .** provide read
30b0: 2f 77 72 69 74 65 20 61 63 63 65 73 73 20 74 6f  /write access to
30c0: 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66   the contents of
30d0: 20 2a 70 48 61 73 68 2e 0a 2a 2a 0a 2a 2a 20 54   *pHash..**.** T
30e0: 68 65 20 74 68 69 72 64 20 61 72 67 75 6d 65 6e  he third argumen
30f0: 74 20 74 6f 20 74 68 69 73 20 66 75 6e 63 74 69  t to this functi
3100: 6f 6e 2c 20 7a 4e 61 6d 65 2c 20 69 73 20 75 73  on, zName, is us
3110: 65 64 20 61 73 20 74 68 65 20 6e 61 6d 65 0a 2a  ed as the name.*
3120: 2a 20 6f 66 20 62 6f 74 68 20 74 68 65 20 73 63  * of both the sc
3130: 61 6c 61 72 20 61 6e 64 2c 20 69 66 20 63 72 65  alar and, if cre
3140: 61 74 65 64 2c 20 74 68 65 20 76 69 72 74 75 61  ated, the virtua
3150: 6c 20 74 61 62 6c 65 2e 0a 2a 2f 0a 69 6e 74 20  l table..*/.int 
3160: 73 71 6c 69 74 65 33 46 74 73 33 49 6e 69 74 48  sqlite3Fts3InitH
3170: 61 73 68 54 61 62 6c 65 28 0a 20 20 73 71 6c 69  ashTable(.  sqli
3180: 74 65 33 20 2a 64 62 2c 20 0a 20 20 46 74 73 33  te3 *db, .  Fts3
3190: 48 61 73 68 20 2a 70 48 61 73 68 2c 20 0a 20 20  Hash *pHash, .  
31a0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d  const char *zNam
31b0: 65 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  e.){.  int rc = 
31c0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 76 6f 69  SQLITE_OK;.  voi
31d0: 64 20 2a 70 20 3d 20 28 76 6f 69 64 20 2a 29 70  d *p = (void *)p
31e0: 48 61 73 68 3b 0a 20 20 63 6f 6e 73 74 20 69 6e  Hash;.  const in
31f0: 74 20 61 6e 79 20 3d 20 53 51 4c 49 54 45 5f 41  t any = SQLITE_A
3200: 4e 59 3b 0a 0a 23 69 66 64 65 66 20 53 51 4c 49  NY;..#ifdef SQLI
3210: 54 45 5f 54 45 53 54 0a 20 20 63 68 61 72 20 2a  TE_TEST.  char *
3220: 7a 54 65 73 74 20 3d 20 30 3b 0a 20 20 63 68 61  zTest = 0;.  cha
3230: 72 20 2a 7a 54 65 73 74 32 20 3d 20 30 3b 0a 20  r *zTest2 = 0;. 
3240: 20 76 6f 69 64 20 2a 70 64 62 20 3d 20 28 76 6f   void *pdb = (vo
3250: 69 64 20 2a 29 64 62 3b 0a 20 20 7a 54 65 73 74  id *)db;.  zTest
3260: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e   = sqlite3_mprin
3270: 74 66 28 22 25 73 5f 74 65 73 74 22 2c 20 7a 4e  tf("%s_test", zN
3280: 61 6d 65 29 3b 0a 20 20 7a 54 65 73 74 32 20 3d  ame);.  zTest2 =
3290: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66   sqlite3_mprintf
32a0: 28 22 25 73 5f 69 6e 74 65 72 6e 61 6c 5f 74 65  ("%s_internal_te
32b0: 73 74 22 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20 69  st", zName);.  i
32c0: 66 28 20 21 7a 54 65 73 74 20 7c 7c 20 21 7a 54  f( !zTest || !zT
32d0: 65 73 74 32 20 29 7b 0a 20 20 20 20 72 63 20 3d  est2 ){.    rc =
32e0: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20   SQLITE_NOMEM;. 
32f0: 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 69 66 28   }.#endif..  if(
3300: 20 53 51 4c 49 54 45 5f 4f 4b 3d 3d 72 63 20 29   SQLITE_OK==rc )
3310: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  {.    rc = sqlit
3320: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  e3_create_functi
3330: 6f 6e 28 64 62 2c 20 7a 4e 61 6d 65 2c 20 31 2c  on(db, zName, 1,
3340: 20 61 6e 79 2c 20 70 2c 20 73 63 61 6c 61 72 46   any, p, scalarF
3350: 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a  unc, 0, 0);.  }.
3360: 20 20 69 66 28 20 53 51 4c 49 54 45 5f 4f 4b 3d    if( SQLITE_OK=
3370: 3d 72 63 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  =rc ){.    rc = 
3380: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66  sqlite3_create_f
3390: 75 6e 63 74 69 6f 6e 28 64 62 2c 20 7a 4e 61 6d  unction(db, zNam
33a0: 65 2c 20 32 2c 20 61 6e 79 2c 20 70 2c 20 73 63  e, 2, any, p, sc
33b0: 61 6c 61 72 46 75 6e 63 2c 20 30 2c 20 30 29 3b  alarFunc, 0, 0);
33c0: 0a 20 20 7d 0a 23 69 66 64 65 66 20 53 51 4c 49  .  }.#ifdef SQLI
33d0: 54 45 5f 54 45 53 54 0a 20 20 69 66 28 20 53 51  TE_TEST.  if( SQ
33e0: 4c 49 54 45 5f 4f 4b 3d 3d 72 63 20 29 7b 0a 20  LITE_OK==rc ){. 
33f0: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
3400: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
3410: 64 62 2c 20 7a 54 65 73 74 2c 20 2d 31 2c 20 61  db, zTest, -1, a
3420: 6e 79 2c 20 70 2c 20 74 65 73 74 46 75 6e 63 2c  ny, p, testFunc,
3430: 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66   0, 0);.  }.  if
3440: 28 20 53 51 4c 49 54 45 5f 4f 4b 3d 3d 72 63 20  ( SQLITE_OK==rc 
3450: 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69  ){.    rc = sqli
3460: 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74  te3_create_funct
3470: 69 6f 6e 28 64 62 2c 20 7a 54 65 73 74 32 2c 20  ion(db, zTest2, 
3480: 30 2c 20 61 6e 79 2c 20 70 64 62 2c 20 69 6e 74  0, any, pdb, int
3490: 54 65 73 74 46 75 6e 63 2c 20 30 2c 20 30 29 3b  TestFunc, 0, 0);
34a0: 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 23 69 66  .  }.#endif..#if
34b0: 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a  def SQLITE_TEST.
34c0: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a    sqlite3_free(z
34d0: 54 65 73 74 29 3b 0a 20 20 73 71 6c 69 74 65 33  Test);.  sqlite3
34e0: 5f 66 72 65 65 28 7a 54 65 73 74 32 29 3b 0a 23  _free(zTest2);.#
34f0: 65 6e 64 69 66 0a 0a 20 20 72 65 74 75 72 6e 20  endif..  return 
3500: 72 63 3b 0a 7d 0a 0a 23 65 6e 64 69 66 20 2f 2a  rc;.}..#endif /*
3510: 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45   !defined(SQLITE
3520: 5f 43 4f 52 45 29 20 7c 7c 20 64 65 66 69 6e 65  _CORE) || define
3530: 64 28 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f  d(SQLITE_ENABLE_
3540: 46 54 53 33 29 20 2a 2f 0a                       FTS3) */.