/ Hex Artifact Content
Login

Artifact 77b302b0d41468dcda78c70e706e5b84577f0fa0:


0000: 2f 2a 0a 2a 2a 20 32 30 30 35 20 4d 61 79 20 32  /*.** 2005 May 2
0010: 33 20 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74  3 .**.** 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 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c  *.**.** This fil
0180: 65 20 63 6f 6e 74 61 69 6e 73 20 66 75 6e 63 74  e contains funct
0190: 69 6f 6e 73 20 75 73 65 64 20 74 6f 20 61 63 63  ions used to acc
01a0: 65 73 73 20 74 68 65 20 69 6e 74 65 72 6e 61 6c  ess the internal
01b0: 20 68 61 73 68 20 74 61 62 6c 65 73 0a 2a 2a 20   hash tables.** 
01c0: 6f 66 20 75 73 65 72 20 64 65 66 69 6e 65 64 20  of user defined 
01d0: 66 75 6e 63 74 69 6f 6e 73 20 61 6e 64 20 63 6f  functions and co
01e0: 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65  llation sequence
01f0: 73 2e 0a 2a 2a 0a 2a 2a 20 24 49 64 3a 20 63 61  s..**.** $Id: ca
0200: 6c 6c 62 61 63 6b 2e 63 2c 76 20 31 2e 32 33 20  llback.c,v 1.23 
0210: 32 30 30 37 2f 30 38 2f 32 39 20 31 32 3a 33 31  2007/08/29 12:31
0220: 3a 32 36 20 64 61 6e 69 65 6c 6b 31 39 37 37 20  :26 danielk1977 
0230: 45 78 70 20 24 0a 2a 2f 0a 0a 23 69 6e 63 6c 75  Exp $.*/..#inclu
0240: 64 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22  de "sqliteInt.h"
0250: 0a 0a 2f 2a 0a 2a 2a 20 49 6e 76 6f 6b 65 20 74  ../*.** Invoke t
0260: 68 65 20 27 63 6f 6c 6c 61 74 69 6f 6e 20 6e 65  he 'collation ne
0270: 65 64 65 64 27 20 63 61 6c 6c 62 61 63 6b 20 74  eded' callback t
0280: 6f 20 72 65 71 75 65 73 74 20 61 20 63 6f 6c 6c  o request a coll
0290: 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 0a 2a  ation sequence.*
02a0: 2a 20 69 6e 20 74 68 65 20 64 61 74 61 62 61 73  * in the databas
02b0: 65 20 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 20  e text encoding 
02c0: 6f 66 20 6e 61 6d 65 20 7a 4e 61 6d 65 2c 20 6c  of name zName, l
02d0: 65 6e 67 74 68 20 6e 4e 61 6d 65 2e 0a 2a 2a 20  ength nName..** 
02e0: 49 66 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e  If the collation
02f0: 20 73 65 71 75 65 6e 63 65 0a 2a 2f 0a 73 74 61   sequence.*/.sta
0300: 74 69 63 20 76 6f 69 64 20 63 61 6c 6c 43 6f 6c  tic void callCol
0310: 6c 4e 65 65 64 65 64 28 73 71 6c 69 74 65 33 20  lNeeded(sqlite3 
0320: 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  *db, const char 
0330: 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 6e 4e 61 6d  *zName, int nNam
0340: 65 29 7b 0a 20 20 61 73 73 65 72 74 28 20 21 64  e){.  assert( !d
0350: 62 2d 3e 78 43 6f 6c 6c 4e 65 65 64 65 64 20 7c  b->xCollNeeded |
0360: 7c 20 21 64 62 2d 3e 78 43 6f 6c 6c 4e 65 65 64  | !db->xCollNeed
0370: 65 64 31 36 20 29 3b 0a 20 20 69 66 28 20 6e 4e  ed16 );.  if( nN
0380: 61 6d 65 3c 30 20 29 20 6e 4e 61 6d 65 20 3d 20  ame<0 ) nName = 
0390: 73 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 3b 0a 20  strlen(zName);. 
03a0: 20 69 66 28 20 64 62 2d 3e 78 43 6f 6c 6c 4e 65   if( db->xCollNe
03b0: 65 64 65 64 20 29 7b 0a 20 20 20 20 63 68 61 72  eded ){.    char
03c0: 20 2a 7a 45 78 74 65 72 6e 61 6c 20 3d 20 73 71   *zExternal = sq
03d0: 6c 69 74 65 33 44 62 53 74 72 4e 44 75 70 28 64  lite3DbStrNDup(d
03e0: 62 2c 20 7a 4e 61 6d 65 2c 20 6e 4e 61 6d 65 29  b, zName, nName)
03f0: 3b 0a 20 20 20 20 69 66 28 20 21 7a 45 78 74 65  ;.    if( !zExte
0400: 72 6e 61 6c 20 29 20 72 65 74 75 72 6e 3b 0a 20  rnal ) return;. 
0410: 20 20 20 64 62 2d 3e 78 43 6f 6c 6c 4e 65 65 64     db->xCollNeed
0420: 65 64 28 64 62 2d 3e 70 43 6f 6c 6c 4e 65 65 64  ed(db->pCollNeed
0430: 65 64 41 72 67 2c 20 64 62 2c 20 28 69 6e 74 29  edArg, db, (int)
0440: 45 4e 43 28 64 62 29 2c 20 7a 45 78 74 65 72 6e  ENC(db), zExtern
0450: 61 6c 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  al);.    sqlite3
0460: 5f 66 72 65 65 28 7a 45 78 74 65 72 6e 61 6c 29  _free(zExternal)
0470: 3b 0a 20 20 7d 0a 23 69 66 6e 64 65 66 20 53 51  ;.  }.#ifndef SQ
0480: 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36 0a  LITE_OMIT_UTF16.
0490: 20 20 69 66 28 20 64 62 2d 3e 78 43 6f 6c 6c 4e    if( db->xCollN
04a0: 65 65 64 65 64 31 36 20 29 7b 0a 20 20 20 20 63  eeded16 ){.    c
04b0: 68 61 72 20 63 6f 6e 73 74 20 2a 7a 45 78 74 65  har const *zExte
04c0: 72 6e 61 6c 3b 0a 20 20 20 20 73 71 6c 69 74 65  rnal;.    sqlite
04d0: 33 5f 76 61 6c 75 65 20 2a 70 54 6d 70 20 3d 20  3_value *pTmp = 
04e0: 73 71 6c 69 74 65 33 56 61 6c 75 65 4e 65 77 28  sqlite3ValueNew(
04f0: 64 62 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  db);.    sqlite3
0500: 56 61 6c 75 65 53 65 74 53 74 72 28 70 54 6d 70  ValueSetStr(pTmp
0510: 2c 20 6e 4e 61 6d 65 2c 20 7a 4e 61 6d 65 2c 20  , nName, zName, 
0520: 53 51 4c 49 54 45 5f 55 54 46 38 2c 20 53 51 4c  SQLITE_UTF8, SQL
0530: 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20 20  ITE_STATIC);.   
0540: 20 7a 45 78 74 65 72 6e 61 6c 20 3d 20 73 71 6c   zExternal = sql
0550: 69 74 65 33 56 61 6c 75 65 54 65 78 74 28 70 54  ite3ValueText(pT
0560: 6d 70 2c 20 53 51 4c 49 54 45 5f 55 54 46 31 36  mp, SQLITE_UTF16
0570: 4e 41 54 49 56 45 29 3b 0a 20 20 20 20 69 66 28  NATIVE);.    if(
0580: 20 7a 45 78 74 65 72 6e 61 6c 20 29 7b 0a 20 20   zExternal ){.  
0590: 20 20 20 20 64 62 2d 3e 78 43 6f 6c 6c 4e 65 65      db->xCollNee
05a0: 64 65 64 31 36 28 64 62 2d 3e 70 43 6f 6c 6c 4e  ded16(db->pCollN
05b0: 65 65 64 65 64 41 72 67 2c 20 64 62 2c 20 28 69  eededArg, db, (i
05c0: 6e 74 29 45 4e 43 28 64 62 29 2c 20 7a 45 78 74  nt)ENC(db), zExt
05d0: 65 72 6e 61 6c 29 3b 0a 20 20 20 20 7d 0a 20 20  ernal);.    }.  
05e0: 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65 46 72    sqlite3ValueFr
05f0: 65 65 28 70 54 6d 70 29 3b 0a 20 20 7d 0a 23 65  ee(pTmp);.  }.#e
0600: 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68  ndif.}../*.** Th
0610: 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 63 61  is routine is ca
0620: 6c 6c 65 64 20 69 66 20 74 68 65 20 63 6f 6c 6c  lled if the coll
0630: 61 74 69 6f 6e 20 66 61 63 74 6f 72 79 20 66 61  ation factory fa
0640: 69 6c 73 20 74 6f 20 64 65 6c 69 76 65 72 20 61  ils to deliver a
0650: 0a 2a 2a 20 63 6f 6c 6c 61 74 69 6f 6e 20 66 75  .** collation fu
0660: 6e 63 74 69 6f 6e 20 69 6e 20 74 68 65 20 62 65  nction in the be
0670: 73 74 20 65 6e 63 6f 64 69 6e 67 20 62 75 74 20  st encoding but 
0680: 74 68 65 72 65 20 6d 61 79 20 62 65 20 6f 74 68  there may be oth
0690: 65 72 20 76 65 72 73 69 6f 6e 73 0a 2a 2a 20 6f  er versions.** o
06a0: 66 20 74 68 69 73 20 63 6f 6c 6c 61 74 69 6f 6e  f this collation
06b0: 20 66 75 6e 63 74 69 6f 6e 20 28 66 6f 72 20 6f   function (for o
06c0: 74 68 65 72 20 74 65 78 74 20 65 6e 63 6f 64 69  ther text encodi
06d0: 6e 67 73 29 20 61 76 61 69 6c 61 62 6c 65 2e 20  ngs) available. 
06e0: 55 73 65 20 6f 6e 65 0a 2a 2a 20 6f 66 20 74 68  Use one.** of th
06f0: 65 73 65 20 69 6e 73 74 65 61 64 20 69 66 20 74  ese instead if t
0700: 68 65 79 20 65 78 69 73 74 2e 20 41 76 6f 69 64  hey exist. Avoid
0710: 20 61 20 55 54 46 2d 38 20 3c 2d 3e 20 55 54 46   a UTF-8 <-> UTF
0720: 2d 31 36 20 63 6f 6e 76 65 72 73 69 6f 6e 20 69  -16 conversion i
0730: 66 0a 2a 2a 20 70 6f 73 73 69 62 6c 65 2e 0a 2a  f.** possible..*
0740: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 73 79 6e  /.static int syn
0750: 74 68 43 6f 6c 6c 53 65 71 28 73 71 6c 69 74 65  thCollSeq(sqlite
0760: 33 20 2a 64 62 2c 20 43 6f 6c 6c 53 65 71 20 2a  3 *db, CollSeq *
0770: 70 43 6f 6c 6c 29 7b 0a 20 20 43 6f 6c 6c 53 65  pColl){.  CollSe
0780: 71 20 2a 70 43 6f 6c 6c 32 3b 0a 20 20 63 68 61  q *pColl2;.  cha
0790: 72 20 2a 7a 20 3d 20 70 43 6f 6c 6c 2d 3e 7a 4e  r *z = pColl->zN
07a0: 61 6d 65 3b 0a 20 20 69 6e 74 20 6e 20 3d 20 73  ame;.  int n = s
07b0: 74 72 6c 65 6e 28 7a 29 3b 0a 20 20 69 6e 74 20  trlen(z);.  int 
07c0: 69 3b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e 73  i;.  static cons
07d0: 74 20 75 38 20 61 45 6e 63 5b 5d 20 3d 20 7b 20  t u8 aEnc[] = { 
07e0: 53 51 4c 49 54 45 5f 55 54 46 31 36 42 45 2c 20  SQLITE_UTF16BE, 
07f0: 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 2c 20  SQLITE_UTF16LE, 
0800: 53 51 4c 49 54 45 5f 55 54 46 38 20 7d 3b 0a 20  SQLITE_UTF8 };. 
0810: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 33 3b 20 69   for(i=0; i<3; i
0820: 2b 2b 29 7b 0a 20 20 20 20 70 43 6f 6c 6c 32 20  ++){.    pColl2 
0830: 3d 20 73 71 6c 69 74 65 33 46 69 6e 64 43 6f 6c  = sqlite3FindCol
0840: 6c 53 65 71 28 64 62 2c 20 61 45 6e 63 5b 69 5d  lSeq(db, aEnc[i]
0850: 2c 20 7a 2c 20 6e 2c 20 30 29 3b 0a 20 20 20 20  , z, n, 0);.    
0860: 69 66 28 20 70 43 6f 6c 6c 32 2d 3e 78 43 6d 70  if( pColl2->xCmp
0870: 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 6d 65 6d  !=0 ){.      mem
0880: 63 70 79 28 70 43 6f 6c 6c 2c 20 70 43 6f 6c 6c  cpy(pColl, pColl
0890: 32 2c 20 73 69 7a 65 6f 66 28 43 6f 6c 6c 53 65  2, sizeof(CollSe
08a0: 71 29 29 3b 0a 20 20 20 20 20 20 70 43 6f 6c 6c  q));.      pColl
08b0: 2d 3e 78 44 65 6c 20 3d 20 30 3b 20 20 20 20 20  ->xDel = 0;     
08c0: 20 20 20 20 2f 2a 20 44 6f 20 6e 6f 74 20 63 6f      /* Do not co
08d0: 70 79 20 74 68 65 20 64 65 73 74 72 75 63 74 6f  py the destructo
08e0: 72 20 2a 2f 0a 20 20 20 20 20 20 72 65 74 75 72  r */.      retur
08f0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 20  n SQLITE_OK;.   
0900: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20   }.  }.  return 
0910: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 7d 0a  SQLITE_ERROR;.}.
0920: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63  ./*.** This func
0930: 74 69 6f 6e 20 69 73 20 72 65 73 70 6f 6e 73 69  tion is responsi
0940: 62 6c 65 20 66 6f 72 20 69 6e 76 6f 6b 69 6e 67  ble for invoking
0950: 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 66   the collation f
0960: 61 63 74 6f 72 79 20 63 61 6c 6c 62 61 63 6b 0a  actory callback.
0970: 2a 2a 20 6f 72 20 73 75 62 73 74 69 74 75 74 69  ** or substituti
0980: 6e 67 20 61 20 63 6f 6c 6c 61 74 69 6f 6e 20 73  ng a collation s
0990: 65 71 75 65 6e 63 65 20 6f 66 20 61 20 64 69 66  equence of a dif
09a0: 66 65 72 65 6e 74 20 65 6e 63 6f 64 69 6e 67 20  ferent encoding 
09b0: 77 68 65 6e 20 74 68 65 0a 2a 2a 20 72 65 71 75  when the.** requ
09c0: 65 73 74 65 64 20 63 6f 6c 6c 61 74 69 6f 6e 20  ested collation 
09d0: 73 65 71 75 65 6e 63 65 20 69 73 20 6e 6f 74 20  sequence is not 
09e0: 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 65  available in the
09f0: 20 64 61 74 61 62 61 73 65 20 6e 61 74 69 76 65   database native
0a00: 0a 2a 2a 20 65 6e 63 6f 64 69 6e 67 2e 0a 2a 2a  .** encoding..**
0a10: 20 0a 2a 2a 20 49 66 20 69 74 20 69 73 20 6e 6f   .** If it is no
0a20: 74 20 4e 55 4c 4c 2c 20 74 68 65 6e 20 70 43 6f  t NULL, then pCo
0a30: 6c 6c 20 6d 75 73 74 20 70 6f 69 6e 74 20 74 6f  ll must point to
0a40: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 6e 61   the database na
0a50: 74 69 76 65 20 65 6e 63 6f 64 69 6e 67 20 0a 2a  tive encoding .*
0a60: 2a 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75  * collation sequ
0a70: 65 6e 63 65 20 77 69 74 68 20 6e 61 6d 65 20 7a  ence with name z
0a80: 4e 61 6d 65 2c 20 6c 65 6e 67 74 68 20 6e 4e 61  Name, length nNa
0a90: 6d 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 72 65  me..**.** The re
0aa0: 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 65 69  turn value is ei
0ab0: 74 68 65 72 20 74 68 65 20 63 6f 6c 6c 61 74 69  ther the collati
0ac0: 6f 6e 20 73 65 71 75 65 6e 63 65 20 74 6f 20 62  on sequence to b
0ad0: 65 20 75 73 65 64 20 69 6e 20 64 61 74 61 62 61  e used in databa
0ae0: 73 65 0a 2a 2a 20 64 62 20 66 6f 72 20 63 6f 6c  se.** db for col
0af0: 6c 61 74 69 6f 6e 20 74 79 70 65 20 6e 61 6d 65  lation type name
0b00: 20 7a 4e 61 6d 65 2c 20 6c 65 6e 67 74 68 20 6e   zName, length n
0b10: 4e 61 6d 65 2c 20 6f 72 20 4e 55 4c 4c 2c 20 69  Name, or NULL, i
0b20: 66 20 6e 6f 20 63 6f 6c 6c 61 74 69 6f 6e 0a 2a  f no collation.*
0b30: 2a 20 73 65 71 75 65 6e 63 65 20 63 61 6e 20 62  * sequence can b
0b40: 65 20 66 6f 75 6e 64 2e 0a 2a 2f 0a 43 6f 6c 6c  e found..*/.Coll
0b50: 53 65 71 20 2a 73 71 6c 69 74 65 33 47 65 74 43  Seq *sqlite3GetC
0b60: 6f 6c 6c 53 65 71 28 0a 20 20 73 71 6c 69 74 65  ollSeq(.  sqlite
0b70: 33 2a 20 64 62 2c 20 0a 20 20 43 6f 6c 6c 53 65  3* db, .  CollSe
0b80: 71 20 2a 70 43 6f 6c 6c 2c 20 0a 20 20 63 6f 6e  q *pColl, .  con
0b90: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20  st char *zName, 
0ba0: 0a 20 20 69 6e 74 20 6e 4e 61 6d 65 0a 29 7b 0a  .  int nName.){.
0bb0: 20 20 43 6f 6c 6c 53 65 71 20 2a 70 3b 0a 0a 20    CollSeq *p;.. 
0bc0: 20 70 20 3d 20 70 43 6f 6c 6c 3b 0a 20 20 69 66   p = pColl;.  if
0bd0: 28 20 21 70 20 29 7b 0a 20 20 20 20 70 20 3d 20  ( !p ){.    p = 
0be0: 73 71 6c 69 74 65 33 46 69 6e 64 43 6f 6c 6c 53  sqlite3FindCollS
0bf0: 65 71 28 64 62 2c 20 45 4e 43 28 64 62 29 2c 20  eq(db, ENC(db), 
0c00: 7a 4e 61 6d 65 2c 20 6e 4e 61 6d 65 2c 20 30 29  zName, nName, 0)
0c10: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 21 70 20 7c  ;.  }.  if( !p |
0c20: 7c 20 21 70 2d 3e 78 43 6d 70 20 29 7b 0a 20 20  | !p->xCmp ){.  
0c30: 20 20 2f 2a 20 4e 6f 20 63 6f 6c 6c 61 74 69 6f    /* No collatio
0c40: 6e 20 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68  n sequence of th
0c50: 69 73 20 74 79 70 65 20 66 6f 72 20 74 68 69 73  is type for this
0c60: 20 65 6e 63 6f 64 69 6e 67 20 69 73 20 72 65 67   encoding is reg
0c70: 69 73 74 65 72 65 64 2e 0a 20 20 20 20 2a 2a 20  istered..    ** 
0c80: 43 61 6c 6c 20 74 68 65 20 63 6f 6c 6c 61 74 69  Call the collati
0c90: 6f 6e 20 66 61 63 74 6f 72 79 20 74 6f 20 73 65  on factory to se
0ca0: 65 20 69 66 20 69 74 20 63 61 6e 20 73 75 70 70  e if it can supp
0cb0: 6c 79 20 75 73 20 77 69 74 68 20 6f 6e 65 2e 0a  ly us with one..
0cc0: 20 20 20 20 2a 2f 0a 20 20 20 20 63 61 6c 6c 43      */.    callC
0cd0: 6f 6c 6c 4e 65 65 64 65 64 28 64 62 2c 20 7a 4e  ollNeeded(db, zN
0ce0: 61 6d 65 2c 20 6e 4e 61 6d 65 29 3b 0a 20 20 20  ame, nName);.   
0cf0: 20 70 20 3d 20 73 71 6c 69 74 65 33 46 69 6e 64   p = sqlite3Find
0d00: 43 6f 6c 6c 53 65 71 28 64 62 2c 20 45 4e 43 28  CollSeq(db, ENC(
0d10: 64 62 29 2c 20 7a 4e 61 6d 65 2c 20 6e 4e 61 6d  db), zName, nNam
0d20: 65 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28  e, 0);.  }.  if(
0d30: 20 70 20 26 26 20 21 70 2d 3e 78 43 6d 70 20 26   p && !p->xCmp &
0d40: 26 20 73 79 6e 74 68 43 6f 6c 6c 53 65 71 28 64  & synthCollSeq(d
0d50: 62 2c 20 70 29 20 29 7b 0a 20 20 20 20 70 20 3d  b, p) ){.    p =
0d60: 20 30 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74   0;.  }.  assert
0d70: 28 20 21 70 20 7c 7c 20 70 2d 3e 78 43 6d 70 20  ( !p || p->xCmp 
0d80: 29 3b 0a 20 20 72 65 74 75 72 6e 20 70 3b 0a 7d  );.  return p;.}
0d90: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75  ../*.** This rou
0da0: 74 69 6e 65 20 69 73 20 63 61 6c 6c 65 64 20 6f  tine is called o
0db0: 6e 20 61 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65  n a collation se
0dc0: 71 75 65 6e 63 65 20 62 65 66 6f 72 65 20 69 74  quence before it
0dd0: 20 69 73 20 75 73 65 64 20 74 6f 0a 2a 2a 20 63   is used to.** c
0de0: 68 65 63 6b 20 74 68 61 74 20 69 74 20 69 73 20  heck that it is 
0df0: 64 65 66 69 6e 65 64 2e 20 41 6e 20 75 6e 64 65  defined. An unde
0e00: 66 69 6e 65 64 20 63 6f 6c 6c 61 74 69 6f 6e 20  fined collation 
0e10: 73 65 71 75 65 6e 63 65 20 65 78 69 73 74 73 20  sequence exists 
0e20: 77 68 65 6e 0a 2a 2a 20 61 20 64 61 74 61 62 61  when.** a databa
0e30: 73 65 20 69 73 20 6c 6f 61 64 65 64 20 74 68 61  se is loaded tha
0e40: 74 20 63 6f 6e 74 61 69 6e 73 20 72 65 66 65 72  t contains refer
0e50: 65 6e 63 65 73 20 74 6f 20 63 6f 6c 6c 61 74 69  ences to collati
0e60: 6f 6e 20 73 65 71 75 65 6e 63 65 73 0a 2a 2a 20  on sequences.** 
0e70: 74 68 61 74 20 68 61 76 65 20 6e 6f 74 20 62 65  that have not be
0e80: 65 6e 20 64 65 66 69 6e 65 64 20 62 79 20 73 71  en defined by sq
0e90: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63 6f 6c  lite3_create_col
0ea0: 6c 61 74 69 6f 6e 28 29 20 65 74 63 2e 0a 2a 2a  lation() etc..**
0eb0: 0a 2a 2a 20 49 66 20 72 65 71 75 69 72 65 64 2c  .** If required,
0ec0: 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 63 61   this routine ca
0ed0: 6c 6c 73 20 74 68 65 20 27 63 6f 6c 6c 61 74 69  lls the 'collati
0ee0: 6f 6e 20 6e 65 65 64 65 64 27 20 63 61 6c 6c 62  on needed' callb
0ef0: 61 63 6b 20 74 6f 0a 2a 2a 20 72 65 71 75 65 73  ack to.** reques
0f00: 74 20 61 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f  t a definition o
0f10: 66 20 74 68 65 20 63 6f 6c 6c 61 74 69 6e 67 20  f the collating 
0f20: 73 65 71 75 65 6e 63 65 2e 20 49 66 20 74 68 69  sequence. If thi
0f30: 73 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 2c 20  s doesn't work, 
0f40: 0a 2a 2a 20 61 6e 20 65 71 75 69 76 61 6c 65 6e  .** an equivalen
0f50: 74 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75  t collating sequ
0f60: 65 6e 63 65 20 74 68 61 74 20 75 73 65 73 20 61  ence that uses a
0f70: 20 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 20 64   text encoding d
0f80: 69 66 66 65 72 65 6e 74 0a 2a 2a 20 66 72 6f 6d  ifferent.** from
0f90: 20 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61   the main databa
0fa0: 73 65 20 69 73 20 73 75 62 73 74 69 74 75 74 65  se is substitute
0fb0: 64 2c 20 69 66 20 6f 6e 65 20 69 73 20 61 76 61  d, if one is ava
0fc0: 69 6c 61 62 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 73  ilable..*/.int s
0fd0: 71 6c 69 74 65 33 43 68 65 63 6b 43 6f 6c 6c 53  qlite3CheckCollS
0fe0: 65 71 28 50 61 72 73 65 20 2a 70 50 61 72 73 65  eq(Parse *pParse
0ff0: 2c 20 43 6f 6c 6c 53 65 71 20 2a 70 43 6f 6c 6c  , CollSeq *pColl
1000: 29 7b 0a 20 20 69 66 28 20 70 43 6f 6c 6c 20 29  ){.  if( pColl )
1010: 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72  {.    const char
1020: 20 2a 7a 4e 61 6d 65 20 3d 20 70 43 6f 6c 6c 2d   *zName = pColl-
1030: 3e 7a 4e 61 6d 65 3b 0a 20 20 20 20 43 6f 6c 6c  >zName;.    Coll
1040: 53 65 71 20 2a 70 20 3d 20 73 71 6c 69 74 65 33  Seq *p = sqlite3
1050: 47 65 74 43 6f 6c 6c 53 65 71 28 70 50 61 72 73  GetCollSeq(pPars
1060: 65 2d 3e 64 62 2c 20 70 43 6f 6c 6c 2c 20 7a 4e  e->db, pColl, zN
1070: 61 6d 65 2c 20 2d 31 29 3b 0a 20 20 20 20 69 66  ame, -1);.    if
1080: 28 20 21 70 20 29 7b 0a 20 20 20 20 20 20 69 66  ( !p ){.      if
1090: 28 20 70 50 61 72 73 65 2d 3e 6e 45 72 72 3d 3d  ( pParse->nErr==
10a0: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c  0 ){.        sql
10b0: 69 74 65 33 45 72 72 6f 72 4d 73 67 28 70 50 61  ite3ErrorMsg(pPa
10c0: 72 73 65 2c 20 22 6e 6f 20 73 75 63 68 20 63 6f  rse, "no such co
10d0: 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65  llation sequence
10e0: 3a 20 25 73 22 2c 20 7a 4e 61 6d 65 29 3b 0a 20  : %s", zName);. 
10f0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 70 50 61       }.      pPa
1100: 72 73 65 2d 3e 6e 45 72 72 2b 2b 3b 0a 20 20 20  rse->nErr++;.   
1110: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
1120: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20  _ERROR;.    }.  
1130: 20 20 61 73 73 65 72 74 28 20 70 3d 3d 70 43 6f    assert( p==pCo
1140: 6c 6c 20 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75  ll );.  }.  retu
1150: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a  rn SQLITE_OK;.}.
1160: 0a 0a 0a 2f 2a 0a 2a 2a 20 4c 6f 63 61 74 65 20  .../*.** Locate 
1170: 61 6e 64 20 72 65 74 75 72 6e 20 61 6e 20 65 6e  and return an en
1180: 74 72 79 20 66 72 6f 6d 20 74 68 65 20 64 62 2e  try from the db.
1190: 61 43 6f 6c 6c 53 65 71 20 68 61 73 68 20 74 61  aCollSeq hash ta
11a0: 62 6c 65 2e 20 49 66 20 74 68 65 20 65 6e 74 72  ble. If the entr
11b0: 79 0a 2a 2a 20 73 70 65 63 69 66 69 65 64 20 62  y.** specified b
11c0: 79 20 7a 4e 61 6d 65 20 61 6e 64 20 6e 4e 61 6d  y zName and nNam
11d0: 65 20 69 73 20 6e 6f 74 20 66 6f 75 6e 64 20 61  e is not found a
11e0: 6e 64 20 70 61 72 61 6d 65 74 65 72 20 27 63 72  nd parameter 'cr
11f0: 65 61 74 65 27 20 69 73 0a 2a 2a 20 74 72 75 65  eate' is.** true
1200: 2c 20 74 68 65 6e 20 63 72 65 61 74 65 20 61 20  , then create a 
1210: 6e 65 77 20 65 6e 74 72 79 2e 20 4f 74 68 65 72  new entry. Other
1220: 77 69 73 65 20 72 65 74 75 72 6e 20 4e 55 4c 4c  wise return NULL
1230: 2e 0a 2a 2a 0a 2a 2a 20 45 61 63 68 20 70 6f 69  ..**.** Each poi
1240: 6e 74 65 72 20 73 74 6f 72 65 64 20 69 6e 20 74  nter stored in t
1250: 68 65 20 73 71 6c 69 74 65 33 2e 61 43 6f 6c 6c  he sqlite3.aColl
1260: 53 65 71 20 68 61 73 68 20 74 61 62 6c 65 20 63  Seq hash table c
1270: 6f 6e 74 61 69 6e 73 20 61 6e 0a 2a 2a 20 61 72  ontains an.** ar
1280: 72 61 79 20 6f 66 20 74 68 72 65 65 20 43 6f 6c  ray of three Col
1290: 6c 53 65 71 20 73 74 72 75 63 74 75 72 65 73 2e  lSeq structures.
12a0: 20 54 68 65 20 66 69 72 73 74 20 69 73 20 74 68   The first is th
12b0: 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75  e collation sequ
12c0: 65 6e 63 65 0a 2a 2a 20 70 72 65 66 66 65 72 72  ence.** prefferr
12d0: 65 64 20 66 6f 72 20 55 54 46 2d 38 2c 20 74 68  ed for UTF-8, th
12e0: 65 20 73 65 63 6f 6e 64 20 55 54 46 2d 31 36 6c  e second UTF-16l
12f0: 65 2c 20 61 6e 64 20 74 68 65 20 74 68 69 72 64  e, and the third
1300: 20 55 54 46 2d 31 36 62 65 2e 0a 2a 2a 0a 2a 2a   UTF-16be..**.**
1310: 20 53 74 6f 72 65 64 20 69 6d 6d 65 64 69 61 74   Stored immediat
1320: 65 6c 79 20 61 66 74 65 72 20 74 68 65 20 74 68  ely after the th
1330: 72 65 65 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65  ree collation se
1340: 71 75 65 6e 63 65 73 20 69 73 20 61 20 63 6f 70  quences is a cop
1350: 79 20 6f 66 0a 2a 2a 20 74 68 65 20 63 6f 6c 6c  y of.** the coll
1360: 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 6e  ation sequence n
1370: 61 6d 65 2e 20 41 20 70 6f 69 6e 74 65 72 20 74  ame. A pointer t
1380: 6f 20 74 68 69 73 20 73 74 72 69 6e 67 20 69 73  o this string is
1390: 20 73 74 6f 72 65 64 20 69 6e 0a 2a 2a 20 65 61   stored in.** ea
13a0: 63 68 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71  ch collation seq
13b0: 75 65 6e 63 65 20 73 74 72 75 63 74 75 72 65 2e  uence structure.
13c0: 0a 2a 2f 0a 73 74 61 74 69 63 20 43 6f 6c 6c 53  .*/.static CollS
13d0: 65 71 20 2a 66 69 6e 64 43 6f 6c 6c 53 65 71 45  eq *findCollSeqE
13e0: 6e 74 72 79 28 0a 20 20 73 71 6c 69 74 65 33 20  ntry(.  sqlite3 
13f0: 2a 64 62 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61  *db,.  const cha
1400: 72 20 2a 7a 4e 61 6d 65 2c 0a 20 20 69 6e 74 20  r *zName,.  int 
1410: 6e 4e 61 6d 65 2c 0a 20 20 69 6e 74 20 63 72 65  nName,.  int cre
1420: 61 74 65 0a 29 7b 0a 20 20 43 6f 6c 6c 53 65 71  ate.){.  CollSeq
1430: 20 2a 70 43 6f 6c 6c 3b 0a 20 20 69 66 28 20 6e   *pColl;.  if( n
1440: 4e 61 6d 65 3c 30 20 29 20 6e 4e 61 6d 65 20 3d  Name<0 ) nName =
1450: 20 73 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 3b 0a   strlen(zName);.
1460: 20 20 70 43 6f 6c 6c 20 3d 20 73 71 6c 69 74 65    pColl = sqlite
1470: 33 48 61 73 68 46 69 6e 64 28 26 64 62 2d 3e 61  3HashFind(&db->a
1480: 43 6f 6c 6c 53 65 71 2c 20 7a 4e 61 6d 65 2c 20  CollSeq, zName, 
1490: 6e 4e 61 6d 65 29 3b 0a 0a 20 20 69 66 28 20 30  nName);..  if( 0
14a0: 3d 3d 70 43 6f 6c 6c 20 26 26 20 63 72 65 61 74  ==pColl && creat
14b0: 65 20 29 7b 0a 20 20 20 20 70 43 6f 6c 6c 20 3d  e ){.    pColl =
14c0: 20 73 71 6c 69 74 65 33 44 62 4d 61 6c 6c 6f 63   sqlite3DbMalloc
14d0: 5a 65 72 6f 28 64 62 2c 20 33 2a 73 69 7a 65 6f  Zero(db, 3*sizeo
14e0: 66 28 2a 70 43 6f 6c 6c 29 20 2b 20 6e 4e 61 6d  f(*pColl) + nNam
14f0: 65 20 2b 20 31 20 29 3b 0a 20 20 20 20 69 66 28  e + 1 );.    if(
1500: 20 70 43 6f 6c 6c 20 29 7b 0a 20 20 20 20 20 20   pColl ){.      
1510: 43 6f 6c 6c 53 65 71 20 2a 70 44 65 6c 20 3d 20  CollSeq *pDel = 
1520: 30 3b 0a 20 20 20 20 20 20 70 43 6f 6c 6c 5b 30  0;.      pColl[0
1530: 5d 2e 7a 4e 61 6d 65 20 3d 20 28 63 68 61 72 2a  ].zName = (char*
1540: 29 26 70 43 6f 6c 6c 5b 33 5d 3b 0a 20 20 20 20  )&pColl[3];.    
1550: 20 20 70 43 6f 6c 6c 5b 30 5d 2e 65 6e 63 20 3d    pColl[0].enc =
1560: 20 53 51 4c 49 54 45 5f 55 54 46 38 3b 0a 20 20   SQLITE_UTF8;.  
1570: 20 20 20 20 70 43 6f 6c 6c 5b 31 5d 2e 7a 4e 61      pColl[1].zNa
1580: 6d 65 20 3d 20 28 63 68 61 72 2a 29 26 70 43 6f  me = (char*)&pCo
1590: 6c 6c 5b 33 5d 3b 0a 20 20 20 20 20 20 70 43 6f  ll[3];.      pCo
15a0: 6c 6c 5b 31 5d 2e 65 6e 63 20 3d 20 53 51 4c 49  ll[1].enc = SQLI
15b0: 54 45 5f 55 54 46 31 36 4c 45 3b 0a 20 20 20 20  TE_UTF16LE;.    
15c0: 20 20 70 43 6f 6c 6c 5b 32 5d 2e 7a 4e 61 6d 65    pColl[2].zName
15d0: 20 3d 20 28 63 68 61 72 2a 29 26 70 43 6f 6c 6c   = (char*)&pColl
15e0: 5b 33 5d 3b 0a 20 20 20 20 20 20 70 43 6f 6c 6c  [3];.      pColl
15f0: 5b 32 5d 2e 65 6e 63 20 3d 20 53 51 4c 49 54 45  [2].enc = SQLITE
1600: 5f 55 54 46 31 36 42 45 3b 0a 20 20 20 20 20 20  _UTF16BE;.      
1610: 6d 65 6d 63 70 79 28 70 43 6f 6c 6c 5b 30 5d 2e  memcpy(pColl[0].
1620: 7a 4e 61 6d 65 2c 20 7a 4e 61 6d 65 2c 20 6e 4e  zName, zName, nN
1630: 61 6d 65 29 3b 0a 20 20 20 20 20 20 70 43 6f 6c  ame);.      pCol
1640: 6c 5b 30 5d 2e 7a 4e 61 6d 65 5b 6e 4e 61 6d 65  l[0].zName[nName
1650: 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 44 65  ] = 0;.      pDe
1660: 6c 20 3d 20 73 71 6c 69 74 65 33 48 61 73 68 49  l = sqlite3HashI
1670: 6e 73 65 72 74 28 26 64 62 2d 3e 61 43 6f 6c 6c  nsert(&db->aColl
1680: 53 65 71 2c 20 70 43 6f 6c 6c 5b 30 5d 2e 7a 4e  Seq, pColl[0].zN
1690: 61 6d 65 2c 20 6e 4e 61 6d 65 2c 20 70 43 6f 6c  ame, nName, pCol
16a0: 6c 29 3b 0a 0a 20 20 20 20 20 20 2f 2a 20 49 66  l);..      /* If
16b0: 20 61 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c   a malloc() fail
16c0: 75 72 65 20 6f 63 63 75 72 65 64 20 69 6e 20 73  ure occured in s
16d0: 71 6c 69 74 65 33 48 61 73 68 49 6e 73 65 72 74  qlite3HashInsert
16e0: 28 29 2c 20 69 74 20 77 69 6c 6c 20 0a 20 20 20  (), it will .   
16f0: 20 20 20 2a 2a 20 72 65 74 75 72 6e 20 74 68 65     ** return the
1700: 20 70 43 6f 6c 6c 20 70 6f 69 6e 74 65 72 20 74   pColl pointer t
1710: 6f 20 62 65 20 64 65 6c 65 74 65 64 20 28 62 65  o be deleted (be
1720: 63 61 75 73 65 20 69 74 20 77 61 73 6e 27 74 20  cause it wasn't 
1730: 61 64 64 65 64 0a 20 20 20 20 20 20 2a 2a 20 74  added.      ** t
1740: 6f 20 74 68 65 20 68 61 73 68 20 74 61 62 6c 65  o the hash table
1750: 29 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 20 20 20  )..      */.    
1760: 20 20 61 73 73 65 72 74 28 20 70 44 65 6c 3d 3d    assert( pDel==
1770: 30 20 7c 7c 20 70 44 65 6c 3d 3d 70 43 6f 6c 6c  0 || pDel==pColl
1780: 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20 70 44   );.      if( pD
1790: 65 6c 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 20  el!=0 ){.       
17a0: 20 64 62 2d 3e 6d 61 6c 6c 6f 63 46 61 69 6c 65   db->mallocFaile
17b0: 64 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 73  d = 1;.        s
17c0: 71 6c 69 74 65 33 5f 66 72 65 65 28 70 44 65 6c  qlite3_free(pDel
17d0: 29 3b 0a 20 20 20 20 20 20 20 20 70 43 6f 6c 6c  );.        pColl
17e0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20   = 0;.      }.  
17f0: 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e    }.  }.  return
1800: 20 70 43 6f 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a   pColl;.}../*.**
1810: 20 50 61 72 61 6d 65 74 65 72 20 7a 4e 61 6d 65   Parameter zName
1820: 20 70 6f 69 6e 74 73 20 74 6f 20 61 20 55 54 46   points to a UTF
1830: 2d 38 20 65 6e 63 6f 64 65 64 20 73 74 72 69 6e  -8 encoded strin
1840: 67 20 6e 4e 61 6d 65 20 62 79 74 65 73 20 6c 6f  g nName bytes lo
1850: 6e 67 2e 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68  ng..** Return th
1860: 65 20 43 6f 6c 6c 53 65 71 2a 20 70 6f 69 6e 74  e CollSeq* point
1870: 65 72 20 66 6f 72 20 74 68 65 20 63 6f 6c 6c 61  er for the colla
1880: 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 6e 61  tion sequence na
1890: 6d 65 64 20 7a 4e 61 6d 65 0a 2a 2a 20 66 6f 72  med zName.** for
18a0: 20 74 68 65 20 65 6e 63 6f 64 69 6e 67 20 27 65   the encoding 'e
18b0: 6e 63 27 20 66 72 6f 6d 20 74 68 65 20 64 61 74  nc' from the dat
18c0: 61 62 61 73 65 20 27 64 62 27 2e 0a 2a 2a 0a 2a  abase 'db'..**.*
18d0: 2a 20 49 66 20 74 68 65 20 65 6e 74 72 79 20 73  * If the entry s
18e0: 70 65 63 69 66 69 65 64 20 69 73 20 6e 6f 74 20  pecified is not 
18f0: 66 6f 75 6e 64 20 61 6e 64 20 27 63 72 65 61 74  found and 'creat
1900: 65 27 20 69 73 20 74 72 75 65 2c 20 74 68 65 6e  e' is true, then
1910: 20 63 72 65 61 74 65 20 61 0a 2a 2a 20 6e 65 77   create a.** new
1920: 20 65 6e 74 72 79 2e 20 20 4f 74 68 65 72 77 69   entry.  Otherwi
1930: 73 65 20 72 65 74 75 72 6e 20 4e 55 4c 4c 2e 0a  se return NULL..
1940: 2a 2a 0a 2a 2a 20 41 20 73 65 70 61 72 61 74 65  **.** A separate
1950: 20 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65   function sqlite
1960: 33 4c 6f 63 61 74 65 43 6f 6c 6c 53 65 71 28 29  3LocateCollSeq()
1970: 20 69 73 20 61 20 77 72 61 70 70 65 72 20 61 72   is a wrapper ar
1980: 6f 75 6e 64 0a 2a 2a 20 74 68 69 73 20 72 6f 75  ound.** this rou
1990: 74 69 6e 65 2e 20 20 73 71 6c 69 74 65 33 4c 6f  tine.  sqlite3Lo
19a0: 63 61 74 65 43 6f 6c 6c 53 65 71 28 29 20 69 6e  cateCollSeq() in
19b0: 76 6f 6b 65 73 20 74 68 65 20 63 6f 6c 6c 61 74  vokes the collat
19c0: 69 6f 6e 20 66 61 63 74 6f 72 79 0a 2a 2a 20 69  ion factory.** i
19d0: 66 20 6e 65 63 65 73 73 61 72 79 20 61 6e 64 20  f necessary and 
19e0: 67 65 6e 65 72 61 74 65 73 20 61 6e 20 65 72 72  generates an err
19f0: 6f 72 20 6d 65 73 73 61 67 65 20 69 66 20 74 68  or message if th
1a00: 65 20 63 6f 6c 6c 61 74 69 6e 67 20 73 65 71 75  e collating sequ
1a10: 65 6e 63 65 0a 2a 2a 20 63 61 6e 6e 6f 74 20 62  ence.** cannot b
1a20: 65 20 66 6f 75 6e 64 2e 0a 2a 2f 0a 43 6f 6c 6c  e found..*/.Coll
1a30: 53 65 71 20 2a 73 71 6c 69 74 65 33 46 69 6e 64  Seq *sqlite3Find
1a40: 43 6f 6c 6c 53 65 71 28 0a 20 20 73 71 6c 69 74  CollSeq(.  sqlit
1a50: 65 33 20 2a 64 62 2c 0a 20 20 75 38 20 65 6e 63  e3 *db,.  u8 enc
1a60: 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ,.  const char *
1a70: 7a 4e 61 6d 65 2c 0a 20 20 69 6e 74 20 6e 4e 61  zName,.  int nNa
1a80: 6d 65 2c 0a 20 20 69 6e 74 20 63 72 65 61 74 65  me,.  int create
1a90: 0a 29 7b 0a 20 20 43 6f 6c 6c 53 65 71 20 2a 70  .){.  CollSeq *p
1aa0: 43 6f 6c 6c 3b 0a 20 20 69 66 28 20 7a 4e 61 6d  Coll;.  if( zNam
1ab0: 65 20 29 7b 0a 20 20 20 20 70 43 6f 6c 6c 20 3d  e ){.    pColl =
1ac0: 20 66 69 6e 64 43 6f 6c 6c 53 65 71 45 6e 74 72   findCollSeqEntr
1ad0: 79 28 64 62 2c 20 7a 4e 61 6d 65 2c 20 6e 4e 61  y(db, zName, nNa
1ae0: 6d 65 2c 20 63 72 65 61 74 65 29 3b 0a 20 20 7d  me, create);.  }
1af0: 65 6c 73 65 7b 0a 20 20 20 20 70 43 6f 6c 6c 20  else{.    pColl 
1b00: 3d 20 64 62 2d 3e 70 44 66 6c 74 43 6f 6c 6c 3b  = db->pDfltColl;
1b10: 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 20 53  .  }.  assert( S
1b20: 51 4c 49 54 45 5f 55 54 46 38 3d 3d 31 20 26 26  QLITE_UTF8==1 &&
1b30: 20 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45 3d   SQLITE_UTF16LE=
1b40: 3d 32 20 26 26 20 53 51 4c 49 54 45 5f 55 54 46  =2 && SQLITE_UTF
1b50: 31 36 42 45 3d 3d 33 20 29 3b 0a 20 20 61 73 73  16BE==3 );.  ass
1b60: 65 72 74 28 20 65 6e 63 3e 3d 53 51 4c 49 54 45  ert( enc>=SQLITE
1b70: 5f 55 54 46 38 20 26 26 20 65 6e 63 3c 3d 53 51  _UTF8 && enc<=SQ
1b80: 4c 49 54 45 5f 55 54 46 31 36 42 45 20 29 3b 0a  LITE_UTF16BE );.
1b90: 20 20 69 66 28 20 70 43 6f 6c 6c 20 29 20 70 43    if( pColl ) pC
1ba0: 6f 6c 6c 20 2b 3d 20 65 6e 63 2d 31 3b 0a 20 20  oll += enc-1;.  
1bb0: 72 65 74 75 72 6e 20 70 43 6f 6c 6c 3b 0a 7d 0a  return pColl;.}.
1bc0: 0a 2f 2a 0a 2a 2a 20 4c 6f 63 61 74 65 20 61 20  ./*.** Locate a 
1bd0: 75 73 65 72 20 66 75 6e 63 74 69 6f 6e 20 67 69  user function gi
1be0: 76 65 6e 20 61 20 6e 61 6d 65 2c 20 61 20 6e 75  ven a name, a nu
1bf0: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74  mber of argument
1c00: 73 20 61 6e 64 20 61 20 66 6c 61 67 0a 2a 2a 20  s and a flag.** 
1c10: 69 6e 64 69 63 61 74 69 6e 67 20 77 68 65 74 68  indicating wheth
1c20: 65 72 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20  er the function 
1c30: 70 72 65 66 65 72 73 20 55 54 46 2d 31 36 20 6f  prefers UTF-16 o
1c40: 76 65 72 20 55 54 46 2d 38 2e 20 20 52 65 74 75  ver UTF-8.  Retu
1c50: 72 6e 20 61 0a 2a 2a 20 70 6f 69 6e 74 65 72 20  rn a.** pointer 
1c60: 74 6f 20 74 68 65 20 46 75 6e 63 44 65 66 20 73  to the FuncDef s
1c70: 74 72 75 63 74 75 72 65 20 74 68 61 74 20 64 65  tructure that de
1c80: 66 69 6e 65 73 20 74 68 61 74 20 66 75 6e 63 74  fines that funct
1c90: 69 6f 6e 2c 20 6f 72 20 72 65 74 75 72 6e 0a 2a  ion, or return.*
1ca0: 2a 20 4e 55 4c 4c 20 69 66 20 74 68 65 20 66 75  * NULL if the fu
1cb0: 6e 63 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 20  nction does not 
1cc0: 65 78 69 73 74 2e 0a 2a 2a 0a 2a 2a 20 49 66 20  exist..**.** If 
1cd0: 74 68 65 20 63 72 65 61 74 65 46 6c 61 67 20 61  the createFlag a
1ce0: 72 67 75 6d 65 6e 74 20 69 73 20 74 72 75 65 2c  rgument is true,
1cf0: 20 74 68 65 6e 20 61 20 6e 65 77 20 28 62 6c 61   then a new (bla
1d00: 6e 6b 29 20 46 75 6e 63 44 65 66 0a 2a 2a 20 73  nk) FuncDef.** s
1d10: 74 72 75 63 74 75 72 65 20 69 73 20 63 72 65 61  tructure is crea
1d20: 74 65 64 20 61 6e 64 20 6c 69 6b 65 64 20 69 6e  ted and liked in
1d30: 74 6f 20 74 68 65 20 22 64 62 22 20 73 74 72 75  to the "db" stru
1d40: 63 74 75 72 65 20 69 66 20 61 0a 2a 2a 20 6e 6f  cture if a.** no
1d50: 20 6d 61 74 63 68 69 6e 67 20 66 75 6e 63 74 69   matching functi
1d60: 6f 6e 20 70 72 65 76 69 6f 75 73 6c 79 20 65 78  on previously ex
1d70: 69 73 74 65 64 2e 20 20 57 68 65 6e 20 63 72 65  isted.  When cre
1d80: 61 74 65 46 6c 61 67 20 69 73 20 74 72 75 65 0a  ateFlag is true.
1d90: 2a 2a 20 61 6e 64 20 74 68 65 20 6e 41 72 67 20  ** and the nArg 
1da0: 70 61 72 61 6d 65 74 65 72 20 69 73 20 2d 31 2c  parameter is -1,
1db0: 20 74 68 65 6e 20 6f 6e 6c 79 20 61 20 66 75 6e   then only a fun
1dc0: 63 74 69 6f 6e 20 74 68 61 74 20 61 63 63 65 70  ction that accep
1dd0: 74 73 0a 2a 2a 20 61 6e 79 20 6e 75 6d 62 65 72  ts.** any number
1de0: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 77 69   of arguments wi
1df0: 6c 6c 20 62 65 20 72 65 74 75 72 6e 65 64 2e 0a  ll be returned..
1e00: 2a 2a 0a 2a 2a 20 49 66 20 63 72 65 61 74 65 46  **.** If createF
1e10: 6c 61 67 20 69 73 20 66 61 6c 73 65 20 61 6e 64  lag is false and
1e20: 20 6e 41 72 67 20 69 73 20 2d 31 2c 20 74 68 65   nArg is -1, the
1e30: 6e 20 74 68 65 20 66 69 72 73 74 20 76 61 6c 69  n the first vali
1e40: 64 0a 2a 2a 20 66 75 6e 63 74 69 6f 6e 20 66 6f  d.** function fo
1e50: 75 6e 64 20 69 73 20 72 65 74 75 72 6e 65 64 2e  und is returned.
1e60: 20 20 41 20 66 75 6e 63 74 69 6f 6e 20 69 73 20    A function is 
1e70: 76 61 6c 69 64 20 69 66 20 65 69 74 68 65 72 20  valid if either 
1e80: 78 46 75 6e 63 0a 2a 2a 20 6f 72 20 78 53 74 65  xFunc.** or xSte
1e90: 70 20 69 73 20 6e 6f 6e 2d 7a 65 72 6f 2e 0a 2a  p is non-zero..*
1ea0: 2a 0a 2a 2a 20 49 66 20 63 72 65 61 74 65 46 6c  *.** If createFl
1eb0: 61 67 20 69 73 20 66 61 6c 73 65 2c 20 74 68 65  ag is false, the
1ec0: 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 69 74  n a function wit
1ed0: 68 20 74 68 65 20 72 65 71 75 69 72 65 64 20 6e  h the required n
1ee0: 61 6d 65 20 61 6e 64 0a 2a 2a 20 6e 75 6d 62 65  ame and.** numbe
1ef0: 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 6d  r of arguments m
1f00: 61 79 20 62 65 20 72 65 74 75 72 6e 65 64 20 65  ay be returned e
1f10: 76 65 6e 20 69 66 20 74 68 65 20 65 54 65 78 74  ven if the eText
1f20: 52 65 70 20 66 6c 61 67 20 64 6f 65 73 20 6e 6f  Rep flag does no
1f30: 74 0a 2a 2a 20 6d 61 74 63 68 20 74 68 61 74 20  t.** match that 
1f40: 72 65 71 75 65 73 74 65 64 2e 0a 2a 2f 0a 46 75  requested..*/.Fu
1f50: 6e 63 44 65 66 20 2a 73 71 6c 69 74 65 33 46 69  ncDef *sqlite3Fi
1f60: 6e 64 46 75 6e 63 74 69 6f 6e 28 0a 20 20 73 71  ndFunction(.  sq
1f70: 6c 69 74 65 33 20 2a 64 62 2c 20 20 20 20 20 20  lite3 *db,      
1f80: 20 2f 2a 20 41 6e 20 6f 70 65 6e 20 64 61 74 61   /* An open data
1f90: 62 61 73 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  base */.  const 
1fa0: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 2f 2a 20  char *zName, /* 
1fb0: 4e 61 6d 65 20 6f 66 20 74 68 65 20 66 75 6e 63  Name of the func
1fc0: 74 69 6f 6e 2e 20 20 4e 6f 74 20 6e 75 6c 6c 2d  tion.  Not null-
1fd0: 74 65 72 6d 69 6e 61 74 65 64 20 2a 2f 0a 20 20  terminated */.  
1fe0: 69 6e 74 20 6e 4e 61 6d 65 2c 20 20 20 20 20 20  int nName,      
1ff0: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
2000: 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 74 68  characters in th
2010: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e 74 20  e name */.  int 
2020: 6e 41 72 67 2c 20 20 20 20 20 20 20 20 20 20 2f  nArg,          /
2030: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75  * Number of argu
2040: 6d 65 6e 74 73 2e 20 20 2d 31 20 6d 65 61 6e 73  ments.  -1 means
2050: 20 61 6e 79 20 6e 75 6d 62 65 72 20 2a 2f 0a 20   any number */. 
2060: 20 75 38 20 65 6e 63 2c 20 20 20 20 20 20 20 20   u8 enc,        
2070: 20 20 20 20 2f 2a 20 50 72 65 66 65 72 72 65 64      /* Preferred
2080: 20 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 20 2a   text encoding *
2090: 2f 0a 20 20 69 6e 74 20 63 72 65 61 74 65 46 6c  /.  int createFl
20a0: 61 67 20 20 20 20 20 2f 2a 20 43 72 65 61 74 65  ag     /* Create
20b0: 20 6e 65 77 20 65 6e 74 72 79 20 69 66 20 74 72   new entry if tr
20c0: 75 65 20 61 6e 64 20 64 6f 65 73 20 6e 6f 74 20  ue and does not 
20d0: 6f 74 68 65 72 77 69 73 65 20 65 78 69 73 74 20  otherwise exist 
20e0: 2a 2f 0a 29 7b 0a 20 20 46 75 6e 63 44 65 66 20  */.){.  FuncDef 
20f0: 2a 70 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 49  *p;         /* I
2100: 74 65 72 61 74 6f 72 20 76 61 72 69 61 62 6c 65  terator variable
2110: 20 2a 2f 0a 20 20 46 75 6e 63 44 65 66 20 2a 70   */.  FuncDef *p
2120: 46 69 72 73 74 3b 20 20 20 20 2f 2a 20 46 69 72  First;    /* Fir
2130: 73 74 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68  st function with
2140: 20 74 68 69 73 20 6e 61 6d 65 20 2a 2f 0a 20 20   this name */.  
2150: 46 75 6e 63 44 65 66 20 2a 70 42 65 73 74 20 3d  FuncDef *pBest =
2160: 20 30 3b 20 2f 2a 20 42 65 73 74 20 6d 61 74 63   0; /* Best matc
2170: 68 20 66 6f 75 6e 64 20 73 6f 20 66 61 72 20 2a  h found so far *
2180: 2f 0a 20 20 69 6e 74 20 62 65 73 74 6d 61 74 63  /.  int bestmatc
2190: 68 20 3d 20 30 3b 20 20 0a 0a 0a 20 20 61 73 73  h = 0;  ...  ass
21a0: 65 72 74 28 20 65 6e 63 3d 3d 53 51 4c 49 54 45  ert( enc==SQLITE
21b0: 5f 55 54 46 38 20 7c 7c 20 65 6e 63 3d 3d 53 51  _UTF8 || enc==SQ
21c0: 4c 49 54 45 5f 55 54 46 31 36 4c 45 20 7c 7c 20  LITE_UTF16LE || 
21d0: 65 6e 63 3d 3d 53 51 4c 49 54 45 5f 55 54 46 31  enc==SQLITE_UTF1
21e0: 36 42 45 20 29 3b 0a 20 20 69 66 28 20 6e 41 72  6BE );.  if( nAr
21f0: 67 3c 2d 31 20 29 20 6e 41 72 67 20 3d 20 2d 31  g<-1 ) nArg = -1
2200: 3b 0a 0a 20 20 70 46 69 72 73 74 20 3d 20 28 46  ;..  pFirst = (F
2210: 75 6e 63 44 65 66 2a 29 73 71 6c 69 74 65 33 48  uncDef*)sqlite3H
2220: 61 73 68 46 69 6e 64 28 26 64 62 2d 3e 61 46 75  ashFind(&db->aFu
2230: 6e 63 2c 20 7a 4e 61 6d 65 2c 20 6e 4e 61 6d 65  nc, zName, nName
2240: 29 3b 0a 20 20 66 6f 72 28 70 3d 70 46 69 72 73  );.  for(p=pFirs
2250: 74 3b 20 70 3b 20 70 3d 70 2d 3e 70 4e 65 78 74  t; p; p=p->pNext
2260: 29 7b 0a 20 20 20 20 2f 2a 20 44 75 72 69 6e 67  ){.    /* During
2270: 20 74 68 65 20 73 65 61 72 63 68 20 66 6f 72 20   the search for 
2280: 74 68 65 20 62 65 73 74 20 66 75 6e 63 74 69 6f  the best functio
2290: 6e 20 64 65 66 69 6e 69 74 69 6f 6e 2c 20 62 65  n definition, be
22a0: 73 74 6d 61 74 63 68 20 69 73 20 73 65 74 0a 20  stmatch is set. 
22b0: 20 20 20 2a 2a 20 61 73 20 66 6f 6c 6c 6f 77 73     ** as follows
22c0: 20 74 6f 20 69 6e 64 69 63 61 74 65 20 74 68 65   to indicate the
22d0: 20 71 75 61 6c 69 74 79 20 6f 66 20 74 68 65 20   quality of the 
22e0: 6d 61 74 63 68 20 77 69 74 68 20 74 68 65 20 64  match with the d
22f0: 65 66 69 6e 69 74 69 6f 6e 0a 20 20 20 20 2a 2a  efinition.    **
2300: 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20 70   pointed to by p
2310: 42 65 73 74 3a 0a 20 20 20 20 2a 2a 0a 20 20 20  Best:.    **.   
2320: 20 2a 2a 20 30 3a 20 70 42 65 73 74 20 69 73 20   ** 0: pBest is 
2330: 4e 55 4c 4c 2e 20 4e 6f 20 6d 61 74 63 68 20 68  NULL. No match h
2340: 61 73 20 62 65 65 6e 20 66 6f 75 6e 64 2e 0a 20  as been found.. 
2350: 20 20 20 2a 2a 20 31 3a 20 41 20 76 61 72 69 61     ** 1: A varia
2360: 62 6c 65 20 61 72 67 75 6d 65 6e 74 73 20 66 75  ble arguments fu
2370: 6e 63 74 69 6f 6e 20 74 68 61 74 20 70 72 65 66  nction that pref
2380: 65 72 73 20 55 54 46 2d 38 20 77 68 65 6e 20 61  ers UTF-8 when a
2390: 20 55 54 46 2d 31 36 0a 20 20 20 20 2a 2a 20 20   UTF-16.    **  
23a0: 20 20 65 6e 63 6f 64 69 6e 67 20 69 73 20 72 65    encoding is re
23b0: 71 75 65 73 74 65 64 2c 20 6f 72 20 76 69 63 65  quested, or vice
23c0: 20 76 65 72 73 61 2e 0a 20 20 20 20 2a 2a 20 32   versa..    ** 2
23d0: 3a 20 41 20 76 61 72 69 61 62 6c 65 20 61 72 67  : A variable arg
23e0: 75 6d 65 6e 74 73 20 66 75 6e 63 74 69 6f 6e 20  uments function 
23f0: 74 68 61 74 20 75 73 65 73 20 55 54 46 2d 31 36  that uses UTF-16
2400: 42 45 20 77 68 65 6e 20 55 54 46 2d 31 36 4c 45  BE when UTF-16LE
2410: 20 69 73 0a 20 20 20 20 2a 2a 20 20 20 20 72 65   is.    **    re
2420: 71 75 65 73 74 65 64 2c 20 6f 72 20 76 69 63 65  quested, or vice
2430: 20 76 65 72 73 61 2e 0a 20 20 20 20 2a 2a 20 33   versa..    ** 3
2440: 3a 20 41 20 76 61 72 69 61 62 6c 65 20 61 72 67  : A variable arg
2450: 75 6d 65 6e 74 73 20 66 75 6e 63 74 69 6f 6e 20  uments function 
2460: 75 73 69 6e 67 20 74 68 65 20 73 61 6d 65 20 74  using the same t
2470: 65 78 74 20 65 6e 63 6f 64 69 6e 67 2e 0a 20 20  ext encoding..  
2480: 20 20 2a 2a 20 34 3a 20 41 20 66 75 6e 63 74 69    ** 4: A functi
2490: 6f 6e 20 77 69 74 68 20 74 68 65 20 65 78 61 63  on with the exac
24a0: 74 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75  t number of argu
24b0: 6d 65 6e 74 73 20 72 65 71 75 65 73 74 65 64 20  ments requested 
24c0: 74 68 61 74 0a 20 20 20 20 2a 2a 20 20 20 20 70  that.    **    p
24d0: 72 65 66 65 72 73 20 55 54 46 2d 38 20 77 68 65  refers UTF-8 whe
24e0: 6e 20 61 20 55 54 46 2d 31 36 20 65 6e 63 6f 64  n a UTF-16 encod
24f0: 69 6e 67 20 69 73 20 72 65 71 75 65 73 74 65 64  ing is requested
2500: 2c 20 6f 72 20 76 69 63 65 20 76 65 72 73 61 2e  , or vice versa.
2510: 0a 20 20 20 20 2a 2a 20 35 3a 20 41 20 66 75 6e  .    ** 5: A fun
2520: 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 65  ction with the e
2530: 78 61 63 74 20 6e 75 6d 62 65 72 20 6f 66 20 61  xact number of a
2540: 72 67 75 6d 65 6e 74 73 20 72 65 71 75 65 73 74  rguments request
2550: 65 64 20 74 68 61 74 0a 20 20 20 20 2a 2a 20 20  ed that.    **  
2560: 20 20 70 72 65 66 65 72 73 20 55 54 46 2d 31 36    prefers UTF-16
2570: 4c 45 20 77 68 65 6e 20 55 54 46 2d 31 36 42 45  LE when UTF-16BE
2580: 20 69 73 20 72 65 71 75 65 73 74 65 64 2c 20 6f   is requested, o
2590: 72 20 76 69 63 65 20 76 65 72 73 61 2e 0a 20 20  r vice versa..  
25a0: 20 20 2a 2a 20 36 3a 20 41 6e 20 65 78 61 63 74    ** 6: An exact
25b0: 20 6d 61 74 63 68 2e 0a 20 20 20 20 2a 2a 0a 20   match..    **. 
25c0: 20 20 20 2a 2a 20 41 20 6c 61 72 67 65 72 20 76     ** A larger v
25d0: 61 6c 75 65 20 6f 66 20 27 6d 61 74 63 68 71 75  alue of 'matchqu
25e0: 61 6c 27 20 69 6e 64 69 63 61 74 65 73 20 61 20  al' indicates a 
25f0: 6d 6f 72 65 20 64 65 73 69 72 61 62 6c 65 20 6d  more desirable m
2600: 61 74 63 68 2e 0a 20 20 20 20 2a 2f 0a 20 20 20  atch..    */.   
2610: 20 69 66 28 20 70 2d 3e 6e 41 72 67 3d 3d 2d 31   if( p->nArg==-1
2620: 20 7c 7c 20 70 2d 3e 6e 41 72 67 3d 3d 6e 41 72   || p->nArg==nAr
2630: 67 20 7c 7c 20 6e 41 72 67 3d 3d 2d 31 20 29 7b  g || nArg==-1 ){
2640: 0a 20 20 20 20 20 20 69 6e 74 20 6d 61 74 63 68  .      int match
2650: 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 2f   = 1;          /
2660: 2a 20 51 75 61 6c 69 74 79 20 6f 66 20 74 68 69  * Quality of thi
2670: 73 20 6d 61 74 63 68 20 2a 2f 0a 20 20 20 20 20  s match */.     
2680: 20 69 66 28 20 70 2d 3e 6e 41 72 67 3d 3d 6e 41   if( p->nArg==nA
2690: 72 67 20 7c 7c 20 6e 41 72 67 3d 3d 2d 31 20 29  rg || nArg==-1 )
26a0: 7b 0a 20 20 20 20 20 20 20 20 6d 61 74 63 68 20  {.        match 
26b0: 3d 20 34 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  = 4;.      }.   
26c0: 20 20 20 69 66 28 20 65 6e 63 3d 3d 70 2d 3e 69     if( enc==p->i
26d0: 50 72 65 66 45 6e 63 20 29 7b 0a 20 20 20 20 20  PrefEnc ){.     
26e0: 20 20 20 6d 61 74 63 68 20 2b 3d 20 32 3b 0a 20     match += 2;. 
26f0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 65 6c 73       }.      els
2700: 65 20 69 66 28 20 28 65 6e 63 3d 3d 53 51 4c 49  e if( (enc==SQLI
2710: 54 45 5f 55 54 46 31 36 4c 45 20 26 26 20 70 2d  TE_UTF16LE && p-
2720: 3e 69 50 72 65 66 45 6e 63 3d 3d 53 51 4c 49 54  >iPrefEnc==SQLIT
2730: 45 5f 55 54 46 31 36 42 45 29 20 7c 7c 0a 20 20  E_UTF16BE) ||.  
2740: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e               (en
2750: 63 3d 3d 53 51 4c 49 54 45 5f 55 54 46 31 36 42  c==SQLITE_UTF16B
2760: 45 20 26 26 20 70 2d 3e 69 50 72 65 66 45 6e 63  E && p->iPrefEnc
2770: 3d 3d 53 51 4c 49 54 45 5f 55 54 46 31 36 4c 45  ==SQLITE_UTF16LE
2780: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 6d 61 74  ) ){.        mat
2790: 63 68 20 2b 3d 20 31 3b 0a 20 20 20 20 20 20 7d  ch += 1;.      }
27a0: 0a 0a 20 20 20 20 20 20 69 66 28 20 6d 61 74 63  ..      if( matc
27b0: 68 3e 62 65 73 74 6d 61 74 63 68 20 29 7b 0a 20  h>bestmatch ){. 
27c0: 20 20 20 20 20 20 20 70 42 65 73 74 20 3d 20 70         pBest = p
27d0: 3b 0a 20 20 20 20 20 20 20 20 62 65 73 74 6d 61  ;.        bestma
27e0: 74 63 68 20 3d 20 6d 61 74 63 68 3b 0a 20 20 20  tch = match;.   
27f0: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a     }.    }.  }..
2800: 20 20 2f 2a 20 49 66 20 74 68 65 20 63 72 65 61    /* If the crea
2810: 74 65 46 6c 61 67 20 70 61 72 61 6d 65 74 65 72  teFlag parameter
2820: 20 69 73 20 74 72 75 65 2c 20 61 6e 64 20 74 68   is true, and th
2830: 65 20 73 65 61 63 68 20 64 69 64 20 6e 6f 74 20  e seach did not 
2840: 72 65 76 65 61 6c 20 61 6e 0a 20 20 2a 2a 20 65  reveal an.  ** e
2850: 78 61 63 74 20 6d 61 74 63 68 20 66 6f 72 20 74  xact match for t
2860: 68 65 20 6e 61 6d 65 2c 20 6e 75 6d 62 65 72 20  he name, number 
2870: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 61 6e 64  of arguments and
2880: 20 65 6e 63 6f 64 69 6e 67 2c 20 74 68 65 6e 20   encoding, then 
2890: 61 64 64 20 61 0a 20 20 2a 2a 20 6e 65 77 20 65  add a.  ** new e
28a0: 6e 74 72 79 20 74 6f 20 74 68 65 20 68 61 73 68  ntry to the hash
28b0: 20 74 61 62 6c 65 20 61 6e 64 20 72 65 74 75 72   table and retur
28c0: 6e 20 69 74 2e 0a 20 20 2a 2f 0a 20 20 69 66 28  n it..  */.  if(
28d0: 20 63 72 65 61 74 65 46 6c 61 67 20 26 26 20 62   createFlag && b
28e0: 65 73 74 6d 61 74 63 68 3c 36 20 26 26 20 0a 20  estmatch<6 && . 
28f0: 20 20 20 20 20 28 70 42 65 73 74 20 3d 20 73 71       (pBest = sq
2900: 6c 69 74 65 33 44 62 4d 61 6c 6c 6f 63 5a 65 72  lite3DbMallocZer
2910: 6f 28 64 62 2c 20 73 69 7a 65 6f 66 28 2a 70 42  o(db, sizeof(*pB
2920: 65 73 74 29 2b 6e 4e 61 6d 65 29 29 21 3d 30 20  est)+nName))!=0 
2930: 29 7b 0a 20 20 20 20 70 42 65 73 74 2d 3e 6e 41  ){.    pBest->nA
2940: 72 67 20 3d 20 6e 41 72 67 3b 0a 20 20 20 20 70  rg = nArg;.    p
2950: 42 65 73 74 2d 3e 70 4e 65 78 74 20 3d 20 70 46  Best->pNext = pF
2960: 69 72 73 74 3b 0a 20 20 20 20 70 42 65 73 74 2d  irst;.    pBest-
2970: 3e 69 50 72 65 66 45 6e 63 20 3d 20 65 6e 63 3b  >iPrefEnc = enc;
2980: 0a 20 20 20 20 6d 65 6d 63 70 79 28 70 42 65 73  .    memcpy(pBes
2990: 74 2d 3e 7a 4e 61 6d 65 2c 20 7a 4e 61 6d 65 2c  t->zName, zName,
29a0: 20 6e 4e 61 6d 65 29 3b 0a 20 20 20 20 70 42 65   nName);.    pBe
29b0: 73 74 2d 3e 7a 4e 61 6d 65 5b 6e 4e 61 6d 65 5d  st->zName[nName]
29c0: 20 3d 20 30 3b 0a 20 20 20 20 69 66 28 20 70 42   = 0;.    if( pB
29d0: 65 73 74 3d 3d 73 71 6c 69 74 65 33 48 61 73 68  est==sqlite3Hash
29e0: 49 6e 73 65 72 74 28 26 64 62 2d 3e 61 46 75 6e  Insert(&db->aFun
29f0: 63 2c 70 42 65 73 74 2d 3e 7a 4e 61 6d 65 2c 6e  c,pBest->zName,n
2a00: 4e 61 6d 65 2c 28 76 6f 69 64 2a 29 70 42 65 73  Name,(void*)pBes
2a10: 74 29 20 29 7b 0a 20 20 20 20 20 20 64 62 2d 3e  t) ){.      db->
2a20: 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 3d 20 31  mallocFailed = 1
2a30: 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  ;.      sqlite3_
2a40: 66 72 65 65 28 70 42 65 73 74 29 3b 0a 20 20 20  free(pBest);.   
2a50: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20     return 0;.   
2a60: 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 42   }.  }..  if( pB
2a70: 65 73 74 20 26 26 20 28 70 42 65 73 74 2d 3e 78  est && (pBest->x
2a80: 53 74 65 70 20 7c 7c 20 70 42 65 73 74 2d 3e 78  Step || pBest->x
2a90: 46 75 6e 63 20 7c 7c 20 63 72 65 61 74 65 46 6c  Func || createFl
2aa0: 61 67 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72  ag) ){.    retur
2ab0: 6e 20 70 42 65 73 74 3b 0a 20 20 7d 0a 20 20 72  n pBest;.  }.  r
2ac0: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a  eturn 0;.}../*.*
2ad0: 2a 20 46 72 65 65 20 61 6c 6c 20 72 65 73 6f 75  * Free all resou
2ae0: 72 63 65 73 20 68 65 6c 64 20 62 79 20 74 68 65  rces held by the
2af0: 20 73 63 68 65 6d 61 20 73 74 72 75 63 74 75 72   schema structur
2b00: 65 2e 20 54 68 65 20 76 6f 69 64 2a 20 61 72 67  e. The void* arg
2b10: 75 6d 65 6e 74 20 70 6f 69 6e 74 73 0a 2a 2a 20  ument points.** 
2b20: 61 74 20 61 20 53 63 68 65 6d 61 20 73 74 72 75  at a Schema stru
2b30: 63 74 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f  ct. This functio
2b40: 6e 20 64 6f 65 73 20 6e 6f 74 20 63 61 6c 6c 20  n does not call 
2b50: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 29 20 6f  sqlite3_free() o
2b60: 6e 20 74 68 65 20 0a 2a 2a 20 70 6f 69 6e 74 65  n the .** pointe
2b70: 72 20 69 74 73 65 6c 66 2c 20 69 74 20 6a 75 73  r itself, it jus
2b80: 74 20 63 6c 65 61 6e 73 20 75 70 20 73 75 62 73  t cleans up subs
2b90: 69 64 75 61 72 79 20 72 65 73 6f 75 72 63 65 73  iduary resources
2ba0: 20 28 69 2e 65 2e 20 74 68 65 20 63 6f 6e 74 65   (i.e. the conte
2bb0: 6e 74 73 0a 2a 2a 20 6f 66 20 74 68 65 20 73 63  nts.** of the sc
2bc0: 68 65 6d 61 20 68 61 73 68 20 74 61 62 6c 65 73  hema hash tables
2bd0: 29 2e 0a 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74  )..*/.void sqlit
2be0: 65 33 53 63 68 65 6d 61 46 72 65 65 28 76 6f 69  e3SchemaFree(voi
2bf0: 64 20 2a 70 29 7b 0a 20 20 48 61 73 68 20 74 65  d *p){.  Hash te
2c00: 6d 70 31 3b 0a 20 20 48 61 73 68 20 74 65 6d 70  mp1;.  Hash temp
2c10: 32 3b 0a 20 20 48 61 73 68 45 6c 65 6d 20 2a 70  2;.  HashElem *p
2c20: 45 6c 65 6d 3b 0a 20 20 53 63 68 65 6d 61 20 2a  Elem;.  Schema *
2c30: 70 53 63 68 65 6d 61 20 3d 20 28 53 63 68 65 6d  pSchema = (Schem
2c40: 61 20 2a 29 70 3b 0a 0a 20 20 74 65 6d 70 31 20  a *)p;..  temp1 
2c50: 3d 20 70 53 63 68 65 6d 61 2d 3e 74 62 6c 48 61  = pSchema->tblHa
2c60: 73 68 3b 0a 20 20 74 65 6d 70 32 20 3d 20 70 53  sh;.  temp2 = pS
2c70: 63 68 65 6d 61 2d 3e 74 72 69 67 48 61 73 68 3b  chema->trigHash;
2c80: 0a 20 20 73 71 6c 69 74 65 33 48 61 73 68 49 6e  .  sqlite3HashIn
2c90: 69 74 28 26 70 53 63 68 65 6d 61 2d 3e 74 72 69  it(&pSchema->tri
2ca0: 67 48 61 73 68 2c 20 53 51 4c 49 54 45 5f 48 41  gHash, SQLITE_HA
2cb0: 53 48 5f 53 54 52 49 4e 47 2c 20 30 29 3b 0a 20  SH_STRING, 0);. 
2cc0: 20 73 71 6c 69 74 65 33 48 61 73 68 43 6c 65 61   sqlite3HashClea
2cd0: 72 28 26 70 53 63 68 65 6d 61 2d 3e 61 46 4b 65  r(&pSchema->aFKe
2ce0: 79 29 3b 0a 20 20 73 71 6c 69 74 65 33 48 61 73  y);.  sqlite3Has
2cf0: 68 43 6c 65 61 72 28 26 70 53 63 68 65 6d 61 2d  hClear(&pSchema-
2d00: 3e 69 64 78 48 61 73 68 29 3b 0a 20 20 66 6f 72  >idxHash);.  for
2d10: 28 70 45 6c 65 6d 3d 73 71 6c 69 74 65 48 61 73  (pElem=sqliteHas
2d20: 68 46 69 72 73 74 28 26 74 65 6d 70 32 29 3b 20  hFirst(&temp2); 
2d30: 70 45 6c 65 6d 3b 20 70 45 6c 65 6d 3d 73 71 6c  pElem; pElem=sql
2d40: 69 74 65 48 61 73 68 4e 65 78 74 28 70 45 6c 65  iteHashNext(pEle
2d50: 6d 29 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  m)){.    sqlite3
2d60: 44 65 6c 65 74 65 54 72 69 67 67 65 72 28 28 54  DeleteTrigger((T
2d70: 72 69 67 67 65 72 2a 29 73 71 6c 69 74 65 48 61  rigger*)sqliteHa
2d80: 73 68 44 61 74 61 28 70 45 6c 65 6d 29 29 3b 0a  shData(pElem));.
2d90: 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 48 61 73    }.  sqlite3Has
2da0: 68 43 6c 65 61 72 28 26 74 65 6d 70 32 29 3b 0a  hClear(&temp2);.
2db0: 20 20 73 71 6c 69 74 65 33 48 61 73 68 49 6e 69    sqlite3HashIni
2dc0: 74 28 26 70 53 63 68 65 6d 61 2d 3e 74 62 6c 48  t(&pSchema->tblH
2dd0: 61 73 68 2c 20 53 51 4c 49 54 45 5f 48 41 53 48  ash, SQLITE_HASH
2de0: 5f 53 54 52 49 4e 47 2c 20 30 29 3b 0a 20 20 66  _STRING, 0);.  f
2df0: 6f 72 28 70 45 6c 65 6d 3d 73 71 6c 69 74 65 48  or(pElem=sqliteH
2e00: 61 73 68 46 69 72 73 74 28 26 74 65 6d 70 31 29  ashFirst(&temp1)
2e10: 3b 20 70 45 6c 65 6d 3b 20 70 45 6c 65 6d 3d 73  ; pElem; pElem=s
2e20: 71 6c 69 74 65 48 61 73 68 4e 65 78 74 28 70 45  qliteHashNext(pE
2e30: 6c 65 6d 29 29 7b 0a 20 20 20 20 54 61 62 6c 65  lem)){.    Table
2e40: 20 2a 70 54 61 62 20 3d 20 73 71 6c 69 74 65 48   *pTab = sqliteH
2e50: 61 73 68 44 61 74 61 28 70 45 6c 65 6d 29 3b 0a  ashData(pElem);.
2e60: 20 20 20 20 73 71 6c 69 74 65 33 44 65 6c 65 74      sqlite3Delet
2e70: 65 54 61 62 6c 65 28 70 54 61 62 29 3b 0a 20 20  eTable(pTab);.  
2e80: 7d 0a 20 20 73 71 6c 69 74 65 33 48 61 73 68 43  }.  sqlite3HashC
2e90: 6c 65 61 72 28 26 74 65 6d 70 31 29 3b 0a 20 20  lear(&temp1);.  
2ea0: 70 53 63 68 65 6d 61 2d 3e 70 53 65 71 54 61 62  pSchema->pSeqTab
2eb0: 20 3d 20 30 3b 0a 20 20 70 53 63 68 65 6d 61 2d   = 0;.  pSchema-
2ec0: 3e 66 6c 61 67 73 20 26 3d 20 7e 44 42 5f 53 63  >flags &= ~DB_Sc
2ed0: 68 65 6d 61 4c 6f 61 64 65 64 3b 0a 7d 0a 0a 2f  hemaLoaded;.}../
2ee0: 2a 0a 2a 2a 20 46 69 6e 64 20 61 6e 64 20 72 65  *.** Find and re
2ef0: 74 75 72 6e 20 74 68 65 20 73 63 68 65 6d 61 20  turn the schema 
2f00: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
2f10: 61 20 42 54 72 65 65 2e 20 20 43 72 65 61 74 65  a BTree.  Create
2f20: 0a 2a 2a 20 61 20 6e 65 77 20 6f 6e 65 20 69 66  .** a new one if
2f30: 20 6e 65 63 65 73 73 61 72 79 2e 0a 2a 2f 0a 53   necessary..*/.S
2f40: 63 68 65 6d 61 20 2a 73 71 6c 69 74 65 33 53 63  chema *sqlite3Sc
2f50: 68 65 6d 61 47 65 74 28 73 71 6c 69 74 65 33 20  hemaGet(sqlite3 
2f60: 2a 64 62 2c 20 42 74 72 65 65 20 2a 70 42 74 29  *db, Btree *pBt)
2f70: 7b 0a 20 20 53 63 68 65 6d 61 20 2a 20 70 3b 0a  {.  Schema * p;.
2f80: 20 20 69 66 28 20 70 42 74 20 29 7b 0a 20 20 20    if( pBt ){.   
2f90: 20 70 20 3d 20 28 53 63 68 65 6d 61 20 2a 29 73   p = (Schema *)s
2fa0: 71 6c 69 74 65 33 42 74 72 65 65 53 63 68 65 6d  qlite3BtreeSchem
2fb0: 61 28 70 42 74 2c 20 73 69 7a 65 6f 66 28 53 63  a(pBt, sizeof(Sc
2fc0: 68 65 6d 61 29 2c 20 73 71 6c 69 74 65 33 53 63  hema), sqlite3Sc
2fd0: 68 65 6d 61 46 72 65 65 29 3b 0a 20 20 7d 65 6c  hemaFree);.  }el
2fe0: 73 65 7b 0a 20 20 20 20 70 20 3d 20 28 53 63 68  se{.    p = (Sch
2ff0: 65 6d 61 20 2a 29 73 71 6c 69 74 65 33 4d 61 6c  ema *)sqlite3Mal
3000: 6c 6f 63 5a 65 72 6f 28 73 69 7a 65 6f 66 28 53  locZero(sizeof(S
3010: 63 68 65 6d 61 29 29 3b 0a 20 20 7d 0a 20 20 69  chema));.  }.  i
3020: 66 28 20 21 70 20 29 7b 0a 20 20 20 20 64 62 2d  f( !p ){.    db-
3030: 3e 6d 61 6c 6c 6f 63 46 61 69 6c 65 64 20 3d 20  >mallocFailed = 
3040: 31 3b 0a 20 20 7d 65 6c 73 65 20 69 66 20 28 20  1;.  }else if ( 
3050: 30 3d 3d 70 2d 3e 66 69 6c 65 5f 66 6f 72 6d 61  0==p->file_forma
3060: 74 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  t ){.    sqlite3
3070: 48 61 73 68 49 6e 69 74 28 26 70 2d 3e 74 62 6c  HashInit(&p->tbl
3080: 48 61 73 68 2c 20 53 51 4c 49 54 45 5f 48 41 53  Hash, SQLITE_HAS
3090: 48 5f 53 54 52 49 4e 47 2c 20 30 29 3b 0a 20 20  H_STRING, 0);.  
30a0: 20 20 73 71 6c 69 74 65 33 48 61 73 68 49 6e 69    sqlite3HashIni
30b0: 74 28 26 70 2d 3e 69 64 78 48 61 73 68 2c 20 53  t(&p->idxHash, S
30c0: 51 4c 49 54 45 5f 48 41 53 48 5f 53 54 52 49 4e  QLITE_HASH_STRIN
30d0: 47 2c 20 30 29 3b 0a 20 20 20 20 73 71 6c 69 74  G, 0);.    sqlit
30e0: 65 33 48 61 73 68 49 6e 69 74 28 26 70 2d 3e 74  e3HashInit(&p->t
30f0: 72 69 67 48 61 73 68 2c 20 53 51 4c 49 54 45 5f  rigHash, SQLITE_
3100: 48 41 53 48 5f 53 54 52 49 4e 47 2c 20 30 29 3b  HASH_STRING, 0);
3110: 0a 20 20 20 20 73 71 6c 69 74 65 33 48 61 73 68  .    sqlite3Hash
3120: 49 6e 69 74 28 26 70 2d 3e 61 46 4b 65 79 2c 20  Init(&p->aFKey, 
3130: 53 51 4c 49 54 45 5f 48 41 53 48 5f 53 54 52 49  SQLITE_HASH_STRI
3140: 4e 47 2c 20 31 29 3b 0a 20 20 20 20 70 2d 3e 65  NG, 1);.    p->e
3150: 6e 63 20 3d 20 53 51 4c 49 54 45 5f 55 54 46 38  nc = SQLITE_UTF8
3160: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 70  ;.  }.  return p
3170: 3b 0a 7d 0a                                      ;.}.