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

Artifact 84900472a088a3a172c6c079f58a1d3a1952c332:


0000: 2f 2a 0a 2a 2a 20 32 30 30 37 20 4d 61 79 20 36  /*.** 2007 May 6
0010: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68 6f  .**.** The autho
0020: 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79  r disclaims copy
0030: 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f  right to this so
0040: 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70  urce code.  In p
0050: 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c 65 67  lace of.** a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 2a  is a blessing:.*
0080: 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f 75 20  *.**    May you 
0090: 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20  do good and not 
00a0: 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61 79 20  evil..**    May 
00b0: 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76 65  you find forgive
00c0: 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65 6c  ness for yoursel
00d0: 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f 74  f and forgive ot
00e0: 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61 79 20  hers..**    May 
00f0: 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c 79  you share freely
0100: 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20 6d  , never taking m
0110: 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69 76  ore than you giv
0120: 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  e..**.**********
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 0a  ***************.
0170: 2a 2a 20 24 49 64 3a 20 69 63 75 2e 63 2c 76 20  ** $Id: icu.c,v 
0180: 31 2e 37 20 32 30 30 37 2f 31 32 2f 31 33 20 32  1.7 2007/12/13 2
0190: 31 3a 35 34 3a 31 31 20 64 72 68 20 45 78 70 20  1:54:11 drh Exp 
01a0: 24 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c  $.**.** This fil
01b0: 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 6e 20  e implements an 
01c0: 69 6e 74 65 67 72 61 74 69 6f 6e 20 62 65 74 77  integration betw
01d0: 65 65 6e 20 74 68 65 20 49 43 55 20 6c 69 62 72  een the ICU libr
01e0: 61 72 79 20 0a 2a 2a 20 28 22 49 6e 74 65 72 6e  ary .** ("Intern
01f0: 61 74 69 6f 6e 61 6c 20 43 6f 6d 70 6f 6e 65 6e  ational Componen
0200: 74 73 20 66 6f 72 20 55 6e 69 63 6f 64 65 22 2c  ts for Unicode",
0210: 20 61 6e 20 6f 70 65 6e 2d 73 6f 75 72 63 65 20   an open-source 
0220: 6c 69 62 72 61 72 79 20 0a 2a 2a 20 66 6f 72 20  library .** for 
0230: 68 61 6e 64 6c 69 6e 67 20 75 6e 69 63 6f 64 65  handling unicode
0240: 20 64 61 74 61 29 20 61 6e 64 20 53 51 4c 69 74   data) and SQLit
0250: 65 2e 20 54 68 65 20 69 6e 74 65 67 72 61 74 69  e. The integrati
0260: 6f 6e 20 75 73 65 73 20 0a 2a 2a 20 49 43 55 20  on uses .** ICU 
0270: 74 6f 20 70 72 6f 76 69 64 65 20 74 68 65 20 66  to provide the f
0280: 6f 6c 6c 6f 77 69 6e 67 20 74 6f 20 53 51 4c 69  ollowing to SQLi
0290: 74 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 2a 20 41 6e  te:.**.**   * An
02a0: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   implementation 
02b0: 6f 66 20 74 68 65 20 53 51 4c 20 72 65 67 65 78  of the SQL regex
02c0: 70 28 29 20 66 75 6e 63 74 69 6f 6e 20 28 61 6e  p() function (an
02d0: 64 20 68 65 6e 63 65 20 52 45 47 45 58 50 0a 2a  d hence REGEXP.*
02e0: 2a 20 20 20 20 20 6f 70 65 72 61 74 6f 72 29 20  *     operator) 
02f0: 75 73 69 6e 67 20 74 68 65 20 49 43 55 20 75 72  using the ICU ur
0300: 65 67 65 78 5f 58 58 28 29 20 41 50 49 73 2e 0a  egex_XX() APIs..
0310: 2a 2a 0a 2a 2a 20 20 20 2a 20 49 6d 70 6c 65 6d  **.**   * Implem
0320: 65 6e 74 61 74 69 6f 6e 73 20 6f 66 20 74 68 65  entations of the
0330: 20 53 51 4c 20 73 63 61 6c 61 72 20 75 70 70 65   SQL scalar uppe
0340: 72 28 29 20 61 6e 64 20 6c 6f 77 65 72 28 29 20  r() and lower() 
0350: 66 75 6e 63 74 69 6f 6e 73 0a 2a 2a 20 20 20 20  functions.**    
0360: 20 66 6f 72 20 63 61 73 65 20 6d 61 70 70 69 6e   for case mappin
0370: 67 2e 0a 2a 2a 0a 2a 2a 20 20 20 2a 20 49 6e 74  g..**.**   * Int
0380: 65 67 72 61 74 69 6f 6e 20 6f 66 20 49 43 55 20  egration of ICU 
0390: 61 6e 64 20 53 51 4c 69 74 65 20 63 6f 6c 6c 61  and SQLite colla
03a0: 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 73 2e 0a  tion sequences..
03b0: 2a 2a 0a 2a 2a 20 20 20 2a 20 41 6e 20 69 6d 70  **.**   * An imp
03c0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74  lementation of t
03d0: 68 65 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72  he LIKE operator
03e0: 20 74 68 61 74 20 75 73 65 73 20 49 43 55 20 74   that uses ICU t
03f0: 6f 20 0a 2a 2a 20 20 20 20 20 70 72 6f 76 69 64  o .**     provid
0400: 65 20 63 61 73 65 2d 69 6e 64 65 70 65 6e 64 65  e case-independe
0410: 6e 74 20 6d 61 74 63 68 69 6e 67 2e 0a 2a 2f 0a  nt matching..*/.
0420: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 53 51  .#if !defined(SQ
0430: 4c 49 54 45 5f 43 4f 52 45 29 20 7c 7c 20 64 65  LITE_CORE) || de
0440: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 45 4e 41  fined(SQLITE_ENA
0450: 42 4c 45 5f 49 43 55 29 0a 0a 2f 2a 20 49 6e 63  BLE_ICU)../* Inc
0460: 6c 75 64 65 20 49 43 55 20 68 65 61 64 65 72 73  lude ICU headers
0470: 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 3c 75 6e   */.#include <un
0480: 69 63 6f 64 65 2f 75 74 79 70 65 73 2e 68 3e 0a  icode/utypes.h>.
0490: 23 69 6e 63 6c 75 64 65 20 3c 75 6e 69 63 6f 64  #include <unicod
04a0: 65 2f 75 72 65 67 65 78 2e 68 3e 0a 23 69 6e 63  e/uregex.h>.#inc
04b0: 6c 75 64 65 20 3c 75 6e 69 63 6f 64 65 2f 75 73  lude <unicode/us
04c0: 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64  tring.h>.#includ
04d0: 65 20 3c 75 6e 69 63 6f 64 65 2f 75 63 6f 6c 2e  e <unicode/ucol.
04e0: 68 3e 0a 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73  h>..#include <as
04f0: 73 65 72 74 2e 68 3e 0a 0a 23 69 66 6e 64 65 66  sert.h>..#ifndef
0500: 20 53 51 4c 49 54 45 5f 43 4f 52 45 0a 20 20 23   SQLITE_CORE.  #
0510: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33  include "sqlite3
0520: 65 78 74 2e 68 22 0a 20 20 53 51 4c 49 54 45 5f  ext.h".  SQLITE_
0530: 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 31 0a  EXTENSION_INIT1.
0540: 23 65 6c 73 65 0a 20 20 23 69 6e 63 6c 75 64 65  #else.  #include
0550: 20 22 73 71 6c 69 74 65 33 2e 68 22 0a 23 65 6e   "sqlite3.h".#en
0560: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 4d 61 78 69 6d  dif../*.** Maxim
0570: 75 6d 20 6c 65 6e 67 74 68 20 28 69 6e 20 62 79  um length (in by
0580: 74 65 73 29 20 6f 66 20 74 68 65 20 70 61 74 74  tes) of the patt
0590: 65 72 6e 20 69 6e 20 61 20 4c 49 4b 45 20 6f 72  ern in a LIKE or
05a0: 20 47 4c 4f 42 0a 2a 2a 20 6f 70 65 72 61 74 6f   GLOB.** operato
05b0: 72 2e 0a 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51  r..*/.#ifndef SQ
05c0: 4c 49 54 45 5f 4d 41 58 5f 4c 49 4b 45 5f 50 41  LITE_MAX_LIKE_PA
05d0: 54 54 45 52 4e 5f 4c 45 4e 47 54 48 0a 23 20 64  TTERN_LENGTH.# d
05e0: 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 4d 41 58  efine SQLITE_MAX
05f0: 5f 4c 49 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45  _LIKE_PATTERN_LE
0600: 4e 47 54 48 20 35 30 30 30 30 0a 23 65 6e 64 69  NGTH 50000.#endi
0610: 66 0a 0a 2f 2a 0a 2a 2a 20 56 65 72 73 69 6f 6e  f../*.** Version
0620: 20 6f 66 20 73 71 6c 69 74 65 33 5f 66 72 65 65   of sqlite3_free
0630: 28 29 20 74 68 61 74 20 69 73 20 61 6c 77 61 79  () that is alway
0640: 73 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 6e 65  s a function, ne
0650: 76 65 72 20 61 20 6d 61 63 72 6f 2e 0a 2a 2f 0a  ver a macro..*/.
0660: 73 74 61 74 69 63 20 76 6f 69 64 20 78 46 72 65  static void xFre
0670: 65 28 76 6f 69 64 20 2a 70 29 7b 0a 20 20 73 71  e(void *p){.  sq
0680: 6c 69 74 65 33 5f 66 72 65 65 28 70 29 3b 0a 7d  lite3_free(p);.}
0690: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 6c 6f 6f  ../*.** This loo
06a0: 6b 75 70 20 74 61 62 6c 65 20 69 73 20 75 73 65  kup table is use
06b0: 64 20 74 6f 20 68 65 6c 70 20 64 65 63 6f 64 65  d to help decode
06c0: 20 74 68 65 20 66 69 72 73 74 20 62 79 74 65 20   the first byte 
06d0: 6f 66 0a 2a 2a 20 61 20 6d 75 6c 74 69 2d 62 79  of.** a multi-by
06e0: 74 65 20 55 54 46 38 20 63 68 61 72 61 63 74 65  te UTF8 characte
06f0: 72 2e 20 49 74 20 69 73 20 63 6f 70 69 65 64 20  r. It is copied 
0700: 68 65 72 65 20 66 72 6f 6d 20 53 51 4c 69 74 65  here from SQLite
0710: 20 73 6f 75 72 63 65 0a 2a 2a 20 63 6f 64 65 20   source.** code 
0720: 66 69 6c 65 20 75 74 66 38 2e 63 2e 0a 2a 2f 0a  file utf8.c..*/.
0730: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73  static const uns
0740: 69 67 6e 65 64 20 63 68 61 72 20 69 63 75 55 74  igned char icuUt
0750: 66 38 54 72 61 6e 73 31 5b 5d 20 3d 20 7b 0a 20  f8Trans1[] = {. 
0760: 20 30 78 30 30 2c 20 30 78 30 31 2c 20 30 78 30   0x00, 0x01, 0x0
0770: 32 2c 20 30 78 30 33 2c 20 30 78 30 34 2c 20 30  2, 0x03, 0x04, 0
0780: 78 30 35 2c 20 30 78 30 36 2c 20 30 78 30 37 2c  x05, 0x06, 0x07,
0790: 0a 20 20 30 78 30 38 2c 20 30 78 30 39 2c 20 30  .  0x08, 0x09, 0
07a0: 78 30 61 2c 20 30 78 30 62 2c 20 30 78 30 63 2c  x0a, 0x0b, 0x0c,
07b0: 20 30 78 30 64 2c 20 30 78 30 65 2c 20 30 78 30   0x0d, 0x0e, 0x0
07c0: 66 2c 0a 20 20 30 78 31 30 2c 20 30 78 31 31 2c  f,.  0x10, 0x11,
07d0: 20 30 78 31 32 2c 20 30 78 31 33 2c 20 30 78 31   0x12, 0x13, 0x1
07e0: 34 2c 20 30 78 31 35 2c 20 30 78 31 36 2c 20 30  4, 0x15, 0x16, 0
07f0: 78 31 37 2c 0a 20 20 30 78 31 38 2c 20 30 78 31  x17,.  0x18, 0x1
0800: 39 2c 20 30 78 31 61 2c 20 30 78 31 62 2c 20 30  9, 0x1a, 0x1b, 0
0810: 78 31 63 2c 20 30 78 31 64 2c 20 30 78 31 65 2c  x1c, 0x1d, 0x1e,
0820: 20 30 78 31 66 2c 0a 20 20 30 78 30 30 2c 20 30   0x1f,.  0x00, 0
0830: 78 30 31 2c 20 30 78 30 32 2c 20 30 78 30 33 2c  x01, 0x02, 0x03,
0840: 20 30 78 30 34 2c 20 30 78 30 35 2c 20 30 78 30   0x04, 0x05, 0x0
0850: 36 2c 20 30 78 30 37 2c 0a 20 20 30 78 30 38 2c  6, 0x07,.  0x08,
0860: 20 30 78 30 39 2c 20 30 78 30 61 2c 20 30 78 30   0x09, 0x0a, 0x0
0870: 62 2c 20 30 78 30 63 2c 20 30 78 30 64 2c 20 30  b, 0x0c, 0x0d, 0
0880: 78 30 65 2c 20 30 78 30 66 2c 0a 20 20 30 78 30  x0e, 0x0f,.  0x0
0890: 30 2c 20 30 78 30 31 2c 20 30 78 30 32 2c 20 30  0, 0x01, 0x02, 0
08a0: 78 30 33 2c 20 30 78 30 34 2c 20 30 78 30 35 2c  x03, 0x04, 0x05,
08b0: 20 30 78 30 36 2c 20 30 78 30 37 2c 0a 20 20 30   0x06, 0x07,.  0
08c0: 78 30 30 2c 20 30 78 30 31 2c 20 30 78 30 32 2c  x00, 0x01, 0x02,
08d0: 20 30 78 30 33 2c 20 30 78 30 30 2c 20 30 78 30   0x03, 0x00, 0x0
08e0: 31 2c 20 30 78 30 30 2c 20 30 78 30 30 2c 0a 7d  1, 0x00, 0x00,.}
08f0: 3b 0a 0a 23 64 65 66 69 6e 65 20 53 51 4c 49 54  ;..#define SQLIT
0900: 45 5f 49 43 55 5f 52 45 41 44 5f 55 54 46 38 28  E_ICU_READ_UTF8(
0910: 7a 49 6e 2c 20 63 29 20 20 20 20 20 20 20 20 20  zIn, c)         
0920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a                \.
0930: 20 20 63 20 3d 20 2a 28 7a 49 6e 2b 2b 29 3b 20    c = *(zIn++); 
0940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0960: 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 69             \.  i
0970: 66 28 20 63 3e 3d 30 78 63 30 20 29 7b 20 20 20  f( c>=0xc0 ){   
0980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09a0: 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20 63 20          \.    c 
09b0: 3d 20 69 63 75 55 74 66 38 54 72 61 6e 73 31 5b  = icuUtf8Trans1[
09c0: 63 2d 30 78 63 30 5d 3b 20 20 20 20 20 20 20 20  c-0xc0];        
09d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09e0: 20 20 20 20 20 5c 0a 20 20 20 20 77 68 69 6c 65       \.    while
09f0: 28 20 28 2a 7a 49 6e 20 26 20 30 78 63 30 29 3d  ( (*zIn & 0xc0)=
0a00: 3d 30 78 38 30 20 29 7b 20 20 20 20 20 20 20 20  =0x80 ){        
0a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a20: 20 20 5c 0a 20 20 20 20 20 20 63 20 3d 20 28 63    \.      c = (c
0a30: 3c 3c 36 29 20 2b 20 28 30 78 33 66 20 26 20 2a  <<6) + (0x3f & *
0a40: 28 7a 49 6e 2b 2b 29 29 3b 20 20 20 20 20 20 20  (zIn++));       
0a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c                 \
0a60: 0a 20 20 20 20 7d 20 20 20 20 20 20 20 20 20 20  .    }          
0a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a90: 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20              \.  
0aa0: 7d 0a 0a 23 64 65 66 69 6e 65 20 53 51 4c 49 54  }..#define SQLIT
0ab0: 45 5f 49 43 55 5f 53 4b 49 50 5f 55 54 46 38 28  E_ICU_SKIP_UTF8(
0ac0: 7a 49 6e 29 20 20 20 20 20 20 20 20 20 20 20 20  zIn)            
0ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 0a                \.
0ae0: 20 20 61 73 73 65 72 74 28 20 2a 7a 49 6e 20 29    assert( *zIn )
0af0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
0b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b10: 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 69             \.  i
0b20: 66 28 20 2a 28 7a 49 6e 2b 2b 29 3e 3d 30 78 63  f( *(zIn++)>=0xc
0b30: 30 20 29 7b 20 20 20 20 20 20 20 20 20 20 20 20  0 ){            
0b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b50: 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20 77 68          \.    wh
0b60: 69 6c 65 28 20 28 2a 7a 49 6e 20 26 20 30 78 63  ile( (*zIn & 0xc
0b70: 30 29 3d 3d 30 78 38 30 20 29 7b 7a 49 6e 2b 2b  0)==0x80 ){zIn++
0b80: 3b 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;}              
0b90: 20 20 20 20 20 5c 0a 20 20 7d 0a 0a 0a 2f 2a 0a       \.  }.../*.
0ba0: 2a 2a 20 43 6f 6d 70 61 72 65 20 74 77 6f 20 55  ** Compare two U
0bb0: 54 46 2d 38 20 73 74 72 69 6e 67 73 20 66 6f 72  TF-8 strings for
0bc0: 20 65 71 75 61 6c 69 74 79 20 77 68 65 72 65 20   equality where 
0bd0: 74 68 65 20 66 69 72 73 74 20 73 74 72 69 6e 67  the first string
0be0: 20 69 73 0a 2a 2a 20 61 20 22 4c 49 4b 45 22 20   is.** a "LIKE" 
0bf0: 65 78 70 72 65 73 73 69 6f 6e 2e 20 52 65 74 75  expression. Retu
0c00: 72 6e 20 74 72 75 65 20 28 31 29 20 69 66 20 74  rn true (1) if t
0c10: 68 65 79 20 61 72 65 20 74 68 65 20 73 61 6d 65  hey are the same
0c20: 20 61 6e 64 20 0a 2a 2a 20 66 61 6c 73 65 20 28   and .** false (
0c30: 30 29 20 69 66 20 74 68 65 79 20 61 72 65 20 64  0) if they are d
0c40: 69 66 66 65 72 65 6e 74 2e 0a 2a 2f 0a 73 74 61  ifferent..*/.sta
0c50: 74 69 63 20 69 6e 74 20 69 63 75 4c 69 6b 65 43  tic int icuLikeC
0c60: 6f 6d 70 61 72 65 28 0a 20 20 63 6f 6e 73 74 20  ompare(.  const 
0c70: 75 69 6e 74 38 5f 74 20 2a 7a 50 61 74 74 65 72  uint8_t *zPatter
0c80: 6e 2c 20 20 20 2f 2a 20 4c 49 4b 45 20 70 61 74  n,   /* LIKE pat
0c90: 74 65 72 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  tern */.  const 
0ca0: 75 69 6e 74 38 5f 74 20 2a 7a 53 74 72 69 6e 67  uint8_t *zString
0cb0: 2c 20 20 20 20 2f 2a 20 54 68 65 20 55 54 46 2d  ,    /* The UTF-
0cc0: 38 20 73 74 72 69 6e 67 20 74 6f 20 63 6f 6d 70  8 string to comp
0cd0: 61 72 65 20 61 67 61 69 6e 73 74 20 2a 2f 0a 20  are against */. 
0ce0: 20 63 6f 6e 73 74 20 55 43 68 61 72 33 32 20 75   const UChar32 u
0cf0: 45 73 63 20 20 20 20 20 20 20 20 20 2f 2a 20 54  Esc         /* T
0d00: 68 65 20 65 73 63 61 70 65 20 63 68 61 72 61 63  he escape charac
0d10: 74 65 72 20 2a 2f 0a 29 7b 0a 20 20 73 74 61 74  ter */.){.  stat
0d20: 69 63 20 63 6f 6e 73 74 20 69 6e 74 20 4d 41 54  ic const int MAT
0d30: 43 48 5f 4f 4e 45 20 3d 20 28 55 43 68 61 72 33  CH_ONE = (UChar3
0d40: 32 29 27 5f 27 3b 0a 20 20 73 74 61 74 69 63 20  2)'_';.  static 
0d50: 63 6f 6e 73 74 20 69 6e 74 20 4d 41 54 43 48 5f  const int MATCH_
0d60: 41 4c 4c 20 3d 20 28 55 43 68 61 72 33 32 29 27  ALL = (UChar32)'
0d70: 25 27 3b 0a 0a 20 20 69 6e 74 20 70 72 65 76 45  %';..  int prevE
0d80: 73 63 61 70 65 20 3d 20 30 3b 20 20 20 20 20 2f  scape = 0;     /
0d90: 2a 20 54 72 75 65 20 69 66 20 74 68 65 20 70 72  * True if the pr
0da0: 65 76 69 6f 75 73 20 63 68 61 72 61 63 74 65 72  evious character
0db0: 20 77 61 73 20 75 45 73 63 20 2a 2f 0a 0a 20 20   was uEsc */..  
0dc0: 77 68 69 6c 65 28 20 31 20 29 7b 0a 0a 20 20 20  while( 1 ){..   
0dd0: 20 2f 2a 20 52 65 61 64 20 28 61 6e 64 20 63 6f   /* Read (and co
0de0: 6e 73 75 6d 65 29 20 74 68 65 20 6e 65 78 74 20  nsume) the next 
0df0: 63 68 61 72 61 63 74 65 72 20 66 72 6f 6d 20 74  character from t
0e00: 68 65 20 69 6e 70 75 74 20 70 61 74 74 65 72 6e  he input pattern
0e10: 2e 20 2a 2f 0a 20 20 20 20 55 43 68 61 72 33 32  . */.    UChar32
0e20: 20 75 50 61 74 74 65 72 6e 3b 0a 20 20 20 20 53   uPattern;.    S
0e30: 51 4c 49 54 45 5f 49 43 55 5f 52 45 41 44 5f 55  QLITE_ICU_READ_U
0e40: 54 46 38 28 7a 50 61 74 74 65 72 6e 2c 20 75 50  TF8(zPattern, uP
0e50: 61 74 74 65 72 6e 29 3b 0a 20 20 20 20 69 66 28  attern);.    if(
0e60: 20 75 50 61 74 74 65 72 6e 3d 3d 30 20 29 20 62   uPattern==0 ) b
0e70: 72 65 61 6b 3b 0a 0a 20 20 20 20 2f 2a 20 54 68  reak;..    /* Th
0e80: 65 72 65 20 61 72 65 20 6e 6f 77 20 34 20 70 6f  ere are now 4 po
0e90: 73 73 69 62 69 6c 69 74 69 65 73 3a 0a 20 20 20  ssibilities:.   
0ea0: 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 20 20 31   **.    **     1
0eb0: 2e 20 75 50 61 74 74 65 72 6e 20 69 73 20 61 6e  . uPattern is an
0ec0: 20 75 6e 65 73 63 61 70 65 64 20 6d 61 74 63 68   unescaped match
0ed0: 2d 61 6c 6c 20 63 68 61 72 61 63 74 65 72 20 22  -all character "
0ee0: 25 22 2c 0a 20 20 20 20 2a 2a 20 20 20 20 20 32  %",.    **     2
0ef0: 2e 20 75 50 61 74 74 65 72 6e 20 69 73 20 61 6e  . uPattern is an
0f00: 20 75 6e 65 73 63 61 70 65 64 20 6d 61 74 63 68   unescaped match
0f10: 2d 6f 6e 65 20 63 68 61 72 61 63 74 65 72 20 22  -one character "
0f20: 5f 22 2c 0a 20 20 20 20 2a 2a 20 20 20 20 20 33  _",.    **     3
0f30: 2e 20 75 50 61 74 74 65 72 6e 20 69 73 20 61 6e  . uPattern is an
0f40: 20 75 6e 65 73 63 61 70 65 64 20 65 73 63 61 70   unescaped escap
0f50: 65 20 63 68 61 72 61 63 74 65 72 2c 20 6f 72 0a  e character, or.
0f60: 20 20 20 20 2a 2a 20 20 20 20 20 34 2e 20 75 50      **     4. uP
0f70: 61 74 74 65 72 6e 20 69 73 20 74 6f 20 62 65 20  attern is to be 
0f80: 68 61 6e 64 6c 65 64 20 61 73 20 61 6e 20 6f 72  handled as an or
0f90: 64 69 6e 61 72 79 20 63 68 61 72 61 63 74 65 72  dinary character
0fa0: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 28 20  .    */.    if( 
0fb0: 21 70 72 65 76 45 73 63 61 70 65 20 26 26 20 75  !prevEscape && u
0fc0: 50 61 74 74 65 72 6e 3d 3d 4d 41 54 43 48 5f 41  Pattern==MATCH_A
0fd0: 4c 4c 20 29 7b 0a 20 20 20 20 20 20 2f 2a 20 43  LL ){.      /* C
0fe0: 61 73 65 20 31 2e 20 2a 2f 0a 20 20 20 20 20 20  ase 1. */.      
0ff0: 75 69 6e 74 38 5f 74 20 63 3b 0a 0a 20 20 20 20  uint8_t c;..    
1000: 20 20 2f 2a 20 53 6b 69 70 20 61 6e 79 20 4d 41    /* Skip any MA
1010: 54 43 48 5f 41 4c 4c 20 6f 72 20 4d 41 54 43 48  TCH_ALL or MATCH
1020: 5f 4f 4e 45 20 63 68 61 72 61 63 74 65 72 73 20  _ONE characters 
1030: 74 68 61 74 20 66 6f 6c 6c 6f 77 20 61 0a 20 20  that follow a.  
1040: 20 20 20 20 2a 2a 20 4d 41 54 43 48 5f 41 4c 4c      ** MATCH_ALL
1050: 2e 20 46 6f 72 20 65 61 63 68 20 4d 41 54 43 48  . For each MATCH
1060: 5f 4f 4e 45 2c 20 73 6b 69 70 20 6f 6e 65 20 63  _ONE, skip one c
1070: 68 61 72 61 63 74 65 72 20 69 6e 20 74 68 65 20  haracter in the 
1080: 0a 20 20 20 20 20 20 2a 2a 20 74 65 73 74 20 73  .      ** test s
1090: 74 72 69 6e 67 2e 0a 20 20 20 20 20 20 2a 2f 0a  tring..      */.
10a0: 20 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 3d        while( (c=
10b0: 2a 7a 50 61 74 74 65 72 6e 29 20 3d 3d 20 4d 41  *zPattern) == MA
10c0: 54 43 48 5f 41 4c 4c 20 7c 7c 20 63 20 3d 3d 20  TCH_ALL || c == 
10d0: 4d 41 54 43 48 5f 4f 4e 45 20 29 7b 0a 20 20 20  MATCH_ONE ){.   
10e0: 20 20 20 20 20 69 66 28 20 63 3d 3d 4d 41 54 43       if( c==MATC
10f0: 48 5f 4f 4e 45 20 29 7b 0a 20 20 20 20 20 20 20  H_ONE ){.       
1100: 20 20 20 69 66 28 20 2a 7a 53 74 72 69 6e 67 3d     if( *zString=
1110: 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20  =0 ) return 0;. 
1120: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
1130: 49 43 55 5f 53 4b 49 50 5f 55 54 46 38 28 7a 53  ICU_SKIP_UTF8(zS
1140: 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 20 20  tring);.        
1150: 7d 0a 20 20 20 20 20 20 20 20 7a 50 61 74 74 65  }.        zPatte
1160: 72 6e 2b 2b 3b 0a 20 20 20 20 20 20 7d 0a 0a 20  rn++;.      }.. 
1170: 20 20 20 20 20 69 66 28 20 2a 7a 50 61 74 74 65       if( *zPatte
1180: 72 6e 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 31  rn==0 ) return 1
1190: 3b 0a 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20  ;..      while( 
11a0: 2a 7a 53 74 72 69 6e 67 20 29 7b 0a 20 20 20 20  *zString ){.    
11b0: 20 20 20 20 69 66 28 20 69 63 75 4c 69 6b 65 43      if( icuLikeC
11c0: 6f 6d 70 61 72 65 28 7a 50 61 74 74 65 72 6e 2c  ompare(zPattern,
11d0: 20 7a 53 74 72 69 6e 67 2c 20 75 45 73 63 29 20   zString, uEsc) 
11e0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74  ){.          ret
11f0: 75 72 6e 20 31 3b 0a 20 20 20 20 20 20 20 20 7d  urn 1;.        }
1200: 0a 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f  .        SQLITE_
1210: 49 43 55 5f 53 4b 49 50 5f 55 54 46 38 28 7a 53  ICU_SKIP_UTF8(zS
1220: 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20 7d 0a  tring);.      }.
1230: 20 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a        return 0;.
1240: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 21  .    }else if( !
1250: 70 72 65 76 45 73 63 61 70 65 20 26 26 20 75 50  prevEscape && uP
1260: 61 74 74 65 72 6e 3d 3d 4d 41 54 43 48 5f 4f 4e  attern==MATCH_ON
1270: 45 20 29 7b 0a 20 20 20 20 20 20 2f 2a 20 43 61  E ){.      /* Ca
1280: 73 65 20 32 2e 20 2a 2f 0a 20 20 20 20 20 20 69  se 2. */.      i
1290: 66 28 20 2a 7a 53 74 72 69 6e 67 3d 3d 30 20 29  f( *zString==0 )
12a0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20   return 0;.     
12b0: 20 53 51 4c 49 54 45 5f 49 43 55 5f 53 4b 49 50   SQLITE_ICU_SKIP
12c0: 5f 55 54 46 38 28 7a 53 74 72 69 6e 67 29 3b 0a  _UTF8(zString);.
12d0: 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 21  .    }else if( !
12e0: 70 72 65 76 45 73 63 61 70 65 20 26 26 20 75 50  prevEscape && uP
12f0: 61 74 74 65 72 6e 3d 3d 75 45 73 63 29 7b 0a 20  attern==uEsc){. 
1300: 20 20 20 20 20 2f 2a 20 43 61 73 65 20 33 2e 20       /* Case 3. 
1310: 2a 2f 0a 20 20 20 20 20 20 70 72 65 76 45 73 63  */.      prevEsc
1320: 61 70 65 20 3d 20 31 3b 0a 0a 20 20 20 20 7d 65  ape = 1;..    }e
1330: 6c 73 65 7b 0a 20 20 20 20 20 20 2f 2a 20 43 61  lse{.      /* Ca
1340: 73 65 20 34 2e 20 2a 2f 0a 20 20 20 20 20 20 55  se 4. */.      U
1350: 43 68 61 72 33 32 20 75 53 74 72 69 6e 67 3b 0a  Char32 uString;.
1360: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 43 55        SQLITE_ICU
1370: 5f 52 45 41 44 5f 55 54 46 38 28 7a 53 74 72 69  _READ_UTF8(zStri
1380: 6e 67 2c 20 75 53 74 72 69 6e 67 29 3b 0a 20 20  ng, uString);.  
1390: 20 20 20 20 75 53 74 72 69 6e 67 20 3d 20 75 5f      uString = u_
13a0: 66 6f 6c 64 43 61 73 65 28 75 53 74 72 69 6e 67  foldCase(uString
13b0: 2c 20 55 5f 46 4f 4c 44 5f 43 41 53 45 5f 44 45  , U_FOLD_CASE_DE
13c0: 46 41 55 4c 54 29 3b 0a 20 20 20 20 20 20 75 50  FAULT);.      uP
13d0: 61 74 74 65 72 6e 20 3d 20 75 5f 66 6f 6c 64 43  attern = u_foldC
13e0: 61 73 65 28 75 50 61 74 74 65 72 6e 2c 20 55 5f  ase(uPattern, U_
13f0: 46 4f 4c 44 5f 43 41 53 45 5f 44 45 46 41 55 4c  FOLD_CASE_DEFAUL
1400: 54 29 3b 0a 20 20 20 20 20 20 69 66 28 20 75 53  T);.      if( uS
1410: 74 72 69 6e 67 21 3d 75 50 61 74 74 65 72 6e 20  tring!=uPattern 
1420: 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  ){.        retur
1430: 6e 20 30 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  n 0;.      }.   
1440: 20 20 20 70 72 65 76 45 73 63 61 70 65 20 3d 20     prevEscape = 
1450: 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20  0;.    }.  }..  
1460: 72 65 74 75 72 6e 20 2a 7a 53 74 72 69 6e 67 3d  return *zString=
1470: 3d 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70  =0;.}../*.** Imp
1480: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74  lementation of t
1490: 68 65 20 6c 69 6b 65 28 29 20 53 51 4c 20 66 75  he like() SQL fu
14a0: 6e 63 74 69 6f 6e 2e 20 20 54 68 69 73 20 66 75  nction.  This fu
14b0: 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d 65 6e 74  nction implement
14c0: 73 0a 2a 2a 20 74 68 65 20 62 75 69 6c 64 2d 69  s.** the build-i
14d0: 6e 20 4c 49 4b 45 20 6f 70 65 72 61 74 6f 72 2e  n LIKE operator.
14e0: 20 20 54 68 65 20 66 69 72 73 74 20 61 72 67 75    The first argu
14f0: 6d 65 6e 74 20 74 6f 20 74 68 65 20 66 75 6e 63  ment to the func
1500: 74 69 6f 6e 20 69 73 20 74 68 65 0a 2a 2a 20 70  tion is the.** p
1510: 61 74 74 65 72 6e 20 61 6e 64 20 74 68 65 20 73  attern and the s
1520: 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 69  econd argument i
1530: 73 20 74 68 65 20 73 74 72 69 6e 67 2e 20 20 53  s the string.  S
1540: 6f 2c 20 74 68 65 20 53 51 4c 20 73 74 61 74 65  o, the SQL state
1550: 6d 65 6e 74 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20  ments:.**.**    
1560: 20 20 20 41 20 4c 49 4b 45 20 42 0a 2a 2a 0a 2a     A LIKE B.**.*
1570: 2a 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64  * is implemented
1580: 20 61 73 20 6c 69 6b 65 28 42 2c 20 41 29 2e 20   as like(B, A). 
1590: 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 65  If there is an e
15a0: 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 20  scape character 
15b0: 45 2c 20 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20  E, .**.**       
15c0: 41 20 4c 49 4b 45 20 42 20 45 53 43 41 50 45 20  A LIKE B ESCAPE 
15d0: 45 0a 2a 2a 0a 2a 2a 20 69 73 20 6d 61 70 70 65  E.**.** is mappe
15e0: 64 20 74 6f 20 6c 69 6b 65 28 42 2c 20 41 2c 20  d to like(B, A, 
15f0: 45 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  E)..*/.static vo
1600: 69 64 20 69 63 75 4c 69 6b 65 46 75 6e 63 28 0a  id icuLikeFunc(.
1610: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78    sqlite3_contex
1620: 74 20 2a 63 6f 6e 74 65 78 74 2c 20 0a 20 20 69  t *context, .  i
1630: 6e 74 20 61 72 67 63 2c 20 0a 20 20 73 71 6c 69  nt argc, .  sqli
1640: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
1650: 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69  .){.  const unsi
1660: 67 6e 65 64 20 63 68 61 72 20 2a 7a 41 20 3d 20  gned char *zA = 
1670: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65  sqlite3_value_te
1680: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 63  xt(argv[0]);.  c
1690: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68  onst unsigned ch
16a0: 61 72 20 2a 7a 42 20 3d 20 73 71 6c 69 74 65 33  ar *zB = sqlite3
16b0: 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76  _value_text(argv
16c0: 5b 31 5d 29 3b 0a 20 20 55 43 68 61 72 33 32 20  [1]);.  UChar32 
16d0: 75 45 73 63 20 3d 20 30 3b 0a 0a 20 20 2f 2a 20  uEsc = 0;..  /* 
16e0: 4c 69 6d 69 74 20 74 68 65 20 6c 65 6e 67 74 68  Limit the length
16f0: 20 6f 66 20 74 68 65 20 4c 49 4b 45 20 6f 72 20   of the LIKE or 
1700: 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 74 6f 20  GLOB pattern to 
1710: 61 76 6f 69 64 20 70 72 6f 62 6c 65 6d 73 0a 20  avoid problems. 
1720: 20 2a 2a 20 6f 66 20 64 65 65 70 20 72 65 63 75   ** of deep recu
1730: 72 73 69 6f 6e 20 61 6e 64 20 4e 2a 4e 20 62 65  rsion and N*N be
1740: 68 61 76 69 6f 72 20 69 6e 20 70 61 74 74 65 72  havior in patter
1750: 6e 43 6f 6d 70 61 72 65 28 29 2e 0a 20 20 2a 2f  nCompare()..  */
1760: 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 76  .  if( sqlite3_v
1770: 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b  alue_bytes(argv[
1780: 30 5d 29 3e 53 51 4c 49 54 45 5f 4d 41 58 5f 4c  0])>SQLITE_MAX_L
1790: 49 4b 45 5f 50 41 54 54 45 52 4e 5f 4c 45 4e 47  IKE_PATTERN_LENG
17a0: 54 48 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65  TH ){.    sqlite
17b0: 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63  3_result_error(c
17c0: 6f 6e 74 65 78 74 2c 20 22 4c 49 4b 45 20 6f 72  ontext, "LIKE or
17d0: 20 47 4c 4f 42 20 70 61 74 74 65 72 6e 20 74 6f   GLOB pattern to
17e0: 6f 20 63 6f 6d 70 6c 65 78 22 2c 20 2d 31 29 3b  o complex", -1);
17f0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d  .    return;.  }
1800: 0a 0a 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 33  ...  if( argc==3
1810: 20 29 7b 0a 20 20 20 20 2f 2a 20 54 68 65 20 65   ){.    /* The e
1820: 73 63 61 70 65 20 63 68 61 72 61 63 74 65 72 20  scape character 
1830: 73 74 72 69 6e 67 20 6d 75 73 74 20 63 6f 6e 73  string must cons
1840: 69 73 74 20 6f 66 20 61 20 73 69 6e 67 6c 65 20  ist of a single 
1850: 55 54 46 2d 38 20 63 68 61 72 61 63 74 65 72 2e  UTF-8 character.
1860: 0a 20 20 20 20 2a 2a 20 4f 74 68 65 72 77 69 73  .    ** Otherwis
1870: 65 2c 20 72 65 74 75 72 6e 20 61 6e 20 65 72 72  e, return an err
1880: 6f 72 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 69  or..    */.    i
1890: 6e 74 20 6e 45 3d 20 73 71 6c 69 74 65 33 5f 76  nt nE= sqlite3_v
18a0: 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b  alue_bytes(argv[
18b0: 32 5d 29 3b 0a 20 20 20 20 63 6f 6e 73 74 20 75  2]);.    const u
18c0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 7a 45  nsigned char *zE
18d0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
18e0: 5f 74 65 78 74 28 61 72 67 76 5b 32 5d 29 3b 0a  _text(argv[2]);.
18f0: 20 20 20 20 69 6e 74 20 69 20 3d 20 30 3b 0a 20      int i = 0;. 
1900: 20 20 20 69 66 28 20 7a 45 3d 3d 30 20 29 20 72     if( zE==0 ) r
1910: 65 74 75 72 6e 3b 0a 20 20 20 20 55 38 5f 4e 45  eturn;.    U8_NE
1920: 58 54 28 7a 45 2c 20 69 2c 20 6e 45 2c 20 75 45  XT(zE, i, nE, uE
1930: 73 63 29 3b 0a 20 20 20 20 69 66 28 20 69 21 3d  sc);.    if( i!=
1940: 6e 45 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  nE){.      sqlit
1950: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28  e3_result_error(
1960: 63 6f 6e 74 65 78 74 2c 20 0a 20 20 20 20 20 20  context, .      
1970: 20 20 20 20 22 45 53 43 41 50 45 20 65 78 70 72      "ESCAPE expr
1980: 65 73 73 69 6f 6e 20 6d 75 73 74 20 62 65 20 61  ession must be a
1990: 20 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65   single characte
19a0: 72 22 2c 20 2d 31 29 3b 0a 20 20 20 20 20 20 72  r", -1);.      r
19b0: 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 7d  eturn;.    }.  }
19c0: 0a 0a 20 20 69 66 28 20 7a 41 20 26 26 20 7a 42  ..  if( zA && zB
19d0: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   ){.    sqlite3_
19e0: 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f 6e 74 65  result_int(conte
19f0: 78 74 2c 20 69 63 75 4c 69 6b 65 43 6f 6d 70 61  xt, icuLikeCompa
1a00: 72 65 28 7a 41 2c 20 7a 42 2c 20 75 45 73 63 29  re(zA, zB, uEsc)
1a10: 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  );.  }.}../*.** 
1a20: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73  This function is
1a30: 20 63 61 6c 6c 65 64 20 77 68 65 6e 20 61 6e 20   called when an 
1a40: 49 43 55 20 66 75 6e 63 74 69 6f 6e 20 63 61 6c  ICU function cal
1a50: 6c 65 64 20 66 72 6f 6d 20 77 69 74 68 69 6e 0a  led from within.
1a60: 2a 2a 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74  ** the implement
1a70: 61 74 69 6f 6e 20 6f 66 20 61 6e 20 53 51 4c 20  ation of an SQL 
1a80: 73 63 61 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20  scalar function 
1a90: 72 65 74 75 72 6e 73 20 61 6e 20 65 72 72 6f 72  returns an error
1aa0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 73 63 61 6c  ..**.** The scal
1ab0: 61 72 20 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 74  ar function cont
1ac0: 65 78 74 20 70 61 73 73 65 64 20 61 73 20 74 68  ext passed as th
1ad0: 65 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74  e first argument
1ae0: 20 69 73 20 0a 2a 2a 20 6c 6f 61 64 65 64 20 77   is .** loaded w
1af0: 69 74 68 20 61 6e 20 65 72 72 6f 72 20 6d 65 73  ith an error mes
1b00: 73 61 67 65 20 62 61 73 65 64 20 6f 6e 20 74 68  sage based on th
1b10: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f 20  e following two 
1b20: 61 72 67 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  args..*/.static 
1b30: 76 6f 69 64 20 69 63 75 46 75 6e 63 74 69 6f 6e  void icuFunction
1b40: 45 72 72 6f 72 28 0a 20 20 73 71 6c 69 74 65 33  Error(.  sqlite3
1b50: 5f 63 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 20  _context *pCtx, 
1b60: 20 20 20 20 20 20 2f 2a 20 53 51 4c 69 74 65 20        /* SQLite 
1b70: 73 63 61 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20  scalar function 
1b80: 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 63 6f 6e  context */.  con
1b90: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20  st char *zName, 
1ba0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d            /* Nam
1bb0: 65 20 6f 66 20 49 43 55 20 66 75 6e 63 74 69 6f  e of ICU functio
1bc0: 6e 20 74 68 61 74 20 66 61 69 6c 65 64 20 2a 2f  n that failed */
1bd0: 0a 20 20 55 45 72 72 6f 72 43 6f 64 65 20 65 20  .  UErrorCode e 
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1bf0: 2f 2a 20 45 72 72 6f 72 20 63 6f 64 65 20 72 65  /* Error code re
1c00: 74 75 72 6e 65 64 20 62 79 20 49 43 55 20 66 75  turned by ICU fu
1c10: 6e 63 74 69 6f 6e 20 2a 2f 0a 29 7b 0a 20 20 63  nction */.){.  c
1c20: 68 61 72 20 7a 42 75 66 5b 31 32 38 5d 3b 0a 20  har zBuf[128];. 
1c30: 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74   sqlite3_snprint
1c40: 66 28 31 32 38 2c 20 7a 42 75 66 2c 20 22 49 43  f(128, zBuf, "IC
1c50: 55 20 65 72 72 6f 72 3a 20 25 73 28 29 3a 20 25  U error: %s(): %
1c60: 73 22 2c 20 7a 4e 61 6d 65 2c 20 75 5f 65 72 72  s", zName, u_err
1c70: 6f 72 4e 61 6d 65 28 65 29 29 3b 0a 20 20 7a 42  orName(e));.  zB
1c80: 75 66 5b 31 32 37 5d 20 3d 20 27 5c 30 27 3b 0a  uf[127] = '\0';.
1c90: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
1ca0: 5f 65 72 72 6f 72 28 70 43 74 78 2c 20 7a 42 75  _error(pCtx, zBu
1cb0: 66 2c 20 2d 31 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  f, -1);.}../*.**
1cc0: 20 46 75 6e 63 74 69 6f 6e 20 74 6f 20 64 65 6c   Function to del
1cd0: 65 74 65 20 63 6f 6d 70 69 6c 65 64 20 72 65 67  ete compiled reg
1ce0: 65 78 70 20 6f 62 6a 65 63 74 73 2e 20 52 65 67  exp objects. Reg
1cf0: 69 73 74 65 72 65 64 20 61 73 0a 2a 2a 20 61 20  istered as.** a 
1d00: 64 65 73 74 72 75 63 74 6f 72 20 66 75 6e 63 74  destructor funct
1d10: 69 6f 6e 20 77 69 74 68 20 73 71 6c 69 74 65 33  ion with sqlite3
1d20: 5f 73 65 74 5f 61 75 78 64 61 74 61 28 29 2e 0a  _set_auxdata()..
1d30: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 69  */.static void i
1d40: 63 75 52 65 67 65 78 70 44 65 6c 65 74 65 28 76  cuRegexpDelete(v
1d50: 6f 69 64 20 2a 70 29 7b 0a 20 20 55 52 65 67 75  oid *p){.  URegu
1d60: 6c 61 72 45 78 70 72 65 73 73 69 6f 6e 20 2a 70  larExpression *p
1d70: 45 78 70 72 20 3d 20 28 55 52 65 67 75 6c 61 72  Expr = (URegular
1d80: 45 78 70 72 65 73 73 69 6f 6e 20 2a 29 70 3b 0a  Expression *)p;.
1d90: 20 20 75 72 65 67 65 78 5f 63 6c 6f 73 65 28 70    uregex_close(p
1da0: 45 78 70 72 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  Expr);.}../*.** 
1db0: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  Implementation o
1dc0: 66 20 53 51 4c 69 74 65 20 52 45 47 45 58 50 20  f SQLite REGEXP 
1dd0: 6f 70 65 72 61 74 6f 72 2e 20 54 68 69 73 20 73  operator. This s
1de0: 63 61 6c 61 72 20 66 75 6e 63 74 69 6f 6e 20 74  calar function t
1df0: 61 6b 65 73 0a 2a 2a 20 74 77 6f 20 61 72 67 75  akes.** two argu
1e00: 6d 65 6e 74 73 2e 20 54 68 65 20 66 69 72 73 74  ments. The first
1e10: 20 69 73 20 61 20 72 65 67 75 6c 61 72 20 65 78   is a regular ex
1e20: 70 72 65 73 73 69 6f 6e 20 70 61 74 74 65 72 6e  pression pattern
1e30: 20 74 6f 20 63 6f 6d 70 69 6c 65 0a 2a 2a 20 74   to compile.** t
1e40: 68 65 20 73 65 63 6f 6e 64 20 69 73 20 61 20 73  he second is a s
1e50: 74 72 69 6e 67 20 74 6f 20 6d 61 74 63 68 20 61  tring to match a
1e60: 67 61 69 6e 73 74 20 74 68 61 74 20 70 61 74 74  gainst that patt
1e70: 65 72 6e 2e 20 49 66 20 65 69 74 68 65 72 20 0a  ern. If either .
1e80: 2a 2a 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61  ** argument is a
1e90: 6e 20 53 51 4c 20 4e 55 4c 4c 2c 20 74 68 65 6e  n SQL NULL, then
1ea0: 20 4e 55 4c 4c 20 49 73 20 72 65 74 75 72 6e 65   NULL Is returne
1eb0: 64 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68  d. Otherwise, th
1ec0: 65 20 72 65 73 75 6c 74 0a 2a 2a 20 69 73 20 31  e result.** is 1
1ed0: 20 69 66 20 74 68 65 20 73 74 72 69 6e 67 20 6d   if the string m
1ee0: 61 74 63 68 65 73 20 74 68 65 20 70 61 74 74 65  atches the patte
1ef0: 72 6e 2c 20 6f 72 20 30 20 6f 74 68 65 72 77 69  rn, or 0 otherwi
1f00: 73 65 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 69 74 65  se..**.** SQLite
1f10: 20 6d 61 70 73 20 74 68 65 20 72 65 67 65 78 70   maps the regexp
1f20: 28 29 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 74  () function to t
1f30: 68 65 20 72 65 67 65 78 70 28 29 20 6f 70 65 72  he regexp() oper
1f40: 61 74 6f 72 20 73 75 63 68 0a 2a 2a 20 74 68 61  ator such.** tha
1f50: 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  t the following 
1f60: 74 77 6f 20 61 72 65 20 65 71 75 69 76 61 6c 65  two are equivale
1f70: 6e 74 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 7a 53  nt:.**.**     zS
1f80: 74 72 69 6e 67 20 52 45 47 45 58 50 20 7a 50 61  tring REGEXP zPa
1f90: 74 74 65 72 6e 0a 2a 2a 20 20 20 20 20 72 65 67  ttern.**     reg
1fa0: 65 78 70 28 7a 50 61 74 74 65 72 6e 2c 20 7a 53  exp(zPattern, zS
1fb0: 74 72 69 6e 67 29 0a 2a 2a 0a 2a 2a 20 55 73 65  tring).**.** Use
1fc0: 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  s the following 
1fd0: 49 43 55 20 72 65 67 65 78 70 20 41 50 49 73 3a  ICU regexp APIs:
1fe0: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 75 72 65 67 65  .**.**     urege
1ff0: 78 5f 6f 70 65 6e 28 29 0a 2a 2a 20 20 20 20 20  x_open().**     
2000: 75 72 65 67 65 78 5f 6d 61 74 63 68 65 73 28 29  uregex_matches()
2010: 0a 2a 2a 20 20 20 20 20 75 72 65 67 65 78 5f 63  .**     uregex_c
2020: 6c 6f 73 65 28 29 0a 2a 2f 0a 73 74 61 74 69 63  lose().*/.static
2030: 20 76 6f 69 64 20 69 63 75 52 65 67 65 78 70 46   void icuRegexpF
2040: 75 6e 63 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  unc(sqlite3_cont
2050: 65 78 74 20 2a 70 2c 20 69 6e 74 20 6e 41 72 67  ext *p, int nArg
2060: 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20  , sqlite3_value 
2070: 2a 2a 61 70 41 72 67 29 7b 0a 20 20 55 45 72 72  **apArg){.  UErr
2080: 6f 72 43 6f 64 65 20 73 74 61 74 75 73 20 3d 20  orCode status = 
2090: 55 5f 5a 45 52 4f 5f 45 52 52 4f 52 3b 0a 20 20  U_ZERO_ERROR;.  
20a0: 55 52 65 67 75 6c 61 72 45 78 70 72 65 73 73 69  URegularExpressi
20b0: 6f 6e 20 2a 70 45 78 70 72 3b 0a 20 20 55 42 6f  on *pExpr;.  UBo
20c0: 6f 6c 20 72 65 73 3b 0a 20 20 63 6f 6e 73 74 20  ol res;.  const 
20d0: 55 43 68 61 72 20 2a 7a 53 74 72 69 6e 67 20 3d  UChar *zString =
20e0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74   sqlite3_value_t
20f0: 65 78 74 31 36 28 61 70 41 72 67 5b 31 5d 29 3b  ext16(apArg[1]);
2100: 0a 0a 20 20 28 76 6f 69 64 29 6e 41 72 67 3b 20  ..  (void)nArg; 
2110: 20 2f 2a 20 55 6e 75 73 65 64 20 70 61 72 61 6d   /* Unused param
2120: 65 74 65 72 20 2a 2f 0a 0a 20 20 2f 2a 20 49 66  eter */..  /* If
2130: 20 74 68 65 20 6c 65 66 74 20 68 61 6e 64 20 73   the left hand s
2140: 69 64 65 20 6f 66 20 74 68 65 20 72 65 67 65 78  ide of the regex
2150: 70 20 6f 70 65 72 61 74 6f 72 20 69 73 20 4e 55  p operator is NU
2160: 4c 4c 2c 20 0a 20 20 2a 2a 20 74 68 65 6e 20 74  LL, .  ** then t
2170: 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 6c 73  he result is als
2180: 6f 20 4e 55 4c 4c 2e 20 0a 20 20 2a 2f 0a 20 20  o NULL. .  */.  
2190: 69 66 28 20 21 7a 53 74 72 69 6e 67 20 29 7b 0a  if( !zString ){.
21a0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a      return;.  }.
21b0: 0a 20 20 70 45 78 70 72 20 3d 20 73 71 6c 69 74  .  pExpr = sqlit
21c0: 65 33 5f 67 65 74 5f 61 75 78 64 61 74 61 28 70  e3_get_auxdata(p
21d0: 2c 20 30 29 3b 0a 20 20 69 66 28 20 21 70 45 78  , 0);.  if( !pEx
21e0: 70 72 20 29 7b 0a 20 20 20 20 63 6f 6e 73 74 20  pr ){.    const 
21f0: 55 43 68 61 72 20 2a 7a 50 61 74 74 65 72 6e 20  UChar *zPattern 
2200: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
2210: 74 65 78 74 31 36 28 61 70 41 72 67 5b 30 5d 29  text16(apArg[0])
2220: 3b 0a 20 20 20 20 69 66 28 20 21 7a 50 61 74 74  ;.    if( !zPatt
2230: 65 72 6e 20 29 7b 0a 20 20 20 20 20 20 72 65 74  ern ){.      ret
2240: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70  urn;.    }.    p
2250: 45 78 70 72 20 3d 20 75 72 65 67 65 78 5f 6f 70  Expr = uregex_op
2260: 65 6e 28 7a 50 61 74 74 65 72 6e 2c 20 2d 31 2c  en(zPattern, -1,
2270: 20 30 2c 20 30 2c 20 26 73 74 61 74 75 73 29 3b   0, 0, &status);
2280: 0a 0a 20 20 20 20 69 66 28 20 55 5f 53 55 43 43  ..    if( U_SUCC
2290: 45 53 53 28 73 74 61 74 75 73 29 20 29 7b 0a 20  ESS(status) ){. 
22a0: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 65 74       sqlite3_set
22b0: 5f 61 75 78 64 61 74 61 28 70 2c 20 30 2c 20 70  _auxdata(p, 0, p
22c0: 45 78 70 72 2c 20 69 63 75 52 65 67 65 78 70 44  Expr, icuRegexpD
22d0: 65 6c 65 74 65 29 3b 0a 20 20 20 20 7d 65 6c 73  elete);.    }els
22e0: 65 7b 0a 20 20 20 20 20 20 61 73 73 65 72 74 28  e{.      assert(
22f0: 21 70 45 78 70 72 29 3b 0a 20 20 20 20 20 20 69  !pExpr);.      i
2300: 63 75 46 75 6e 63 74 69 6f 6e 45 72 72 6f 72 28  cuFunctionError(
2310: 70 2c 20 22 75 72 65 67 65 78 5f 6f 70 65 6e 22  p, "uregex_open"
2320: 2c 20 73 74 61 74 75 73 29 3b 0a 20 20 20 20 20  , status);.     
2330: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20   return;.    }. 
2340: 20 7d 0a 0a 20 20 2f 2a 20 43 6f 6e 66 69 67 75   }..  /* Configu
2350: 72 65 20 74 68 65 20 74 65 78 74 20 74 68 61 74  re the text that
2360: 20 74 68 65 20 72 65 67 75 6c 61 72 20 65 78 70   the regular exp
2370: 72 65 73 73 69 6f 6e 20 6f 70 65 72 61 74 65 73  ression operates
2380: 20 6f 6e 2e 20 2a 2f 0a 20 20 75 72 65 67 65 78   on. */.  uregex
2390: 5f 73 65 74 54 65 78 74 28 70 45 78 70 72 2c 20  _setText(pExpr, 
23a0: 7a 53 74 72 69 6e 67 2c 20 2d 31 2c 20 26 73 74  zString, -1, &st
23b0: 61 74 75 73 29 3b 0a 20 20 69 66 28 20 21 55 5f  atus);.  if( !U_
23c0: 53 55 43 43 45 53 53 28 73 74 61 74 75 73 29 20  SUCCESS(status) 
23d0: 29 7b 0a 20 20 20 20 69 63 75 46 75 6e 63 74 69  ){.    icuFuncti
23e0: 6f 6e 45 72 72 6f 72 28 70 2c 20 22 75 72 65 67  onError(p, "ureg
23f0: 65 78 5f 73 65 74 54 65 78 74 22 2c 20 73 74 61  ex_setText", sta
2400: 74 75 73 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  tus);.    return
2410: 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 41 74 74 65  ;.  }..  /* Atte
2420: 6d 70 74 20 74 68 65 20 6d 61 74 63 68 20 2a 2f  mpt the match */
2430: 0a 20 20 72 65 73 20 3d 20 75 72 65 67 65 78 5f  .  res = uregex_
2440: 6d 61 74 63 68 65 73 28 70 45 78 70 72 2c 20 30  matches(pExpr, 0
2450: 2c 20 26 73 74 61 74 75 73 29 3b 0a 20 20 69 66  , &status);.  if
2460: 28 20 21 55 5f 53 55 43 43 45 53 53 28 73 74 61  ( !U_SUCCESS(sta
2470: 74 75 73 29 20 29 7b 0a 20 20 20 20 69 63 75 46  tus) ){.    icuF
2480: 75 6e 63 74 69 6f 6e 45 72 72 6f 72 28 70 2c 20  unctionError(p, 
2490: 22 75 72 65 67 65 78 5f 6d 61 74 63 68 65 73 22  "uregex_matches"
24a0: 2c 20 73 74 61 74 75 73 29 3b 0a 20 20 20 20 72  , status);.    r
24b0: 65 74 75 72 6e 3b 0a 20 20 7d 0a 0a 20 20 2f 2a  eturn;.  }..  /*
24c0: 20 53 65 74 20 74 68 65 20 74 65 78 74 20 74 68   Set the text th
24d0: 61 74 20 74 68 65 20 72 65 67 75 6c 61 72 20 65  at the regular e
24e0: 78 70 72 65 73 73 69 6f 6e 20 6f 70 65 72 61 74  xpression operat
24f0: 65 73 20 6f 6e 20 74 6f 20 61 20 4e 55 4c 4c 0a  es on to a NULL.
2500: 20 20 2a 2a 20 70 6f 69 6e 74 65 72 2e 20 54 68    ** pointer. Th
2510: 69 73 20 69 73 20 6e 6f 74 20 72 65 61 6c 6c 79  is is not really
2520: 20 6e 65 63 65 73 73 61 72 79 2c 20 62 75 74 20   necessary, but 
2530: 69 74 20 69 73 20 74 69 64 69 65 72 20 74 68 61  it is tidier tha
2540: 6e 20 0a 20 20 2a 2a 20 6c 65 61 76 69 6e 67 20  n .  ** leaving 
2550: 74 68 65 20 72 65 67 75 6c 61 72 20 65 78 70 72  the regular expr
2560: 65 73 73 69 6f 6e 20 6f 62 6a 65 63 74 20 63 6f  ession object co
2570: 6e 66 69 67 75 72 65 64 20 77 69 74 68 20 61 6e  nfigured with an
2580: 20 69 6e 76 61 6c 69 64 0a 20 20 2a 2a 20 70 6f   invalid.  ** po
2590: 69 6e 74 65 72 20 61 66 74 65 72 20 74 68 69 73  inter after this
25a0: 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e   function return
25b0: 73 2e 0a 20 20 2a 2f 0a 20 20 75 72 65 67 65 78  s..  */.  uregex
25c0: 5f 73 65 74 54 65 78 74 28 70 45 78 70 72 2c 20  _setText(pExpr, 
25d0: 30 2c 20 30 2c 20 26 73 74 61 74 75 73 29 3b 0a  0, 0, &status);.
25e0: 0a 20 20 2f 2a 20 52 65 74 75 72 6e 20 31 20 6f  .  /* Return 1 o
25f0: 72 20 30 2e 20 2a 2f 0a 20 20 73 71 6c 69 74 65  r 0. */.  sqlite
2600: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 70 2c 20  3_result_int(p, 
2610: 72 65 73 20 3f 20 31 20 3a 20 30 29 3b 0a 7d 0a  res ? 1 : 0);.}.
2620: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
2630: 61 74 69 6f 6e 73 20 6f 66 20 73 63 61 6c 61 72  ations of scalar
2640: 20 66 75 6e 63 74 69 6f 6e 73 20 66 6f 72 20 63   functions for c
2650: 61 73 65 20 6d 61 70 70 69 6e 67 20 2d 20 75 70  ase mapping - up
2660: 70 65 72 28 29 20 61 6e 64 20 0a 2a 2a 20 6c 6f  per() and .** lo
2670: 77 65 72 28 29 2e 20 46 75 6e 63 74 69 6f 6e 20  wer(). Function 
2680: 75 70 70 65 72 28 29 20 63 6f 6e 76 65 72 74 73  upper() converts
2690: 20 69 74 73 20 69 6e 70 75 74 20 74 6f 20 75 70   its input to up
26a0: 70 65 72 2d 63 61 73 65 20 28 41 42 43 29 2e 0a  per-case (ABC)..
26b0: 2a 2a 20 46 75 6e 63 74 69 6f 6e 20 6c 6f 77 65  ** Function lowe
26c0: 72 28 29 20 63 6f 6e 76 65 72 74 73 20 74 6f 20  r() converts to 
26d0: 6c 6f 77 65 72 2d 63 61 73 65 20 28 61 62 63 29  lower-case (abc)
26e0: 2e 0a 2a 2a 0a 2a 2a 20 49 43 55 20 70 72 6f 76  ..**.** ICU prov
26f0: 69 64 65 73 20 74 77 6f 20 74 79 70 65 73 20 6f  ides two types o
2700: 66 20 63 61 73 65 20 6d 61 70 70 69 6e 67 2c 20  f case mapping, 
2710: 22 67 65 6e 65 72 61 6c 22 20 63 61 73 65 20 6d  "general" case m
2720: 61 70 70 69 6e 67 20 61 6e 64 0a 2a 2a 20 22 6c  apping and.** "l
2730: 61 6e 67 75 61 67 65 20 73 70 65 63 69 66 69 63  anguage specific
2740: 22 2e 20 52 65 66 65 72 20 74 6f 20 49 43 55 20  ". Refer to ICU 
2750: 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f  documentation fo
2760: 72 20 74 68 65 20 64 69 66 66 65 72 65 6e 63 65  r the difference
2770: 73 0a 2a 2a 20 62 65 74 77 65 65 6e 20 74 68 65  s.** between the
2780: 20 74 77 6f 2e 0a 2a 2a 0a 2a 2a 20 54 6f 20 75   two..**.** To u
2790: 74 69 6c 69 73 65 20 22 67 65 6e 65 72 61 6c 22  tilise "general"
27a0: 20 63 61 73 65 20 6d 61 70 70 69 6e 67 2c 20 74   case mapping, t
27b0: 68 65 20 75 70 70 65 72 28 29 20 6f 72 20 6c 6f  he upper() or lo
27c0: 77 65 72 28 29 20 73 63 61 6c 61 72 20 0a 2a 2a  wer() scalar .**
27d0: 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 69   functions are i
27e0: 6e 76 6f 6b 65 64 20 77 69 74 68 20 6f 6e 65 20  nvoked with one 
27f0: 61 72 67 75 6d 65 6e 74 3a 0a 2a 2a 0a 2a 2a 20  argument:.**.** 
2800: 20 20 20 20 75 70 70 65 72 28 27 41 42 43 27 29      upper('ABC')
2810: 20 2d 3e 20 27 61 62 63 27 0a 2a 2a 20 20 20 20   -> 'abc'.**    
2820: 20 6c 6f 77 65 72 28 27 61 62 63 27 29 20 2d 3e   lower('abc') ->
2830: 20 27 41 42 43 27 0a 2a 2a 0a 2a 2a 20 54 6f 20   'ABC'.**.** To 
2840: 61 63 63 65 73 73 20 49 43 55 20 22 6c 61 6e 67  access ICU "lang
2850: 75 61 67 65 20 73 70 65 63 69 66 69 63 22 20 63  uage specific" c
2860: 61 73 65 20 6d 61 70 70 69 6e 67 2c 20 75 70 70  ase mapping, upp
2870: 65 72 28 29 20 6f 72 20 6c 6f 77 65 72 28 29 0a  er() or lower().
2880: 2a 2a 20 73 68 6f 75 6c 64 20 62 65 20 69 6e 76  ** should be inv
2890: 6f 6b 65 64 20 77 69 74 68 20 74 77 6f 20 61 72  oked with two ar
28a0: 67 75 6d 65 6e 74 73 2e 20 54 68 65 20 73 65 63  guments. The sec
28b0: 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20  ond argument is 
28c0: 74 68 65 20 6e 61 6d 65 0a 2a 2a 20 6f 66 20 74  the name.** of t
28d0: 68 65 20 6c 6f 63 61 6c 65 20 74 6f 20 75 73 65  he locale to use
28e0: 2e 20 50 61 73 73 69 6e 67 20 61 6e 20 65 6d 70  . Passing an emp
28f0: 74 79 20 73 74 72 69 6e 67 20 28 22 22 29 20 6f  ty string ("") o
2900: 72 20 53 51 4c 20 4e 55 4c 4c 20 76 61 6c 75 65  r SQL NULL value
2910: 0a 2a 2a 20 61 73 20 74 68 65 20 73 65 63 6f 6e  .** as the secon
2920: 64 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68  d argument is th
2930: 65 20 73 61 6d 65 20 61 73 20 69 6e 76 6f 6b 69  e same as invoki
2940: 6e 67 20 74 68 65 20 31 20 61 72 67 75 6d 65 6e  ng the 1 argumen
2950: 74 20 76 65 72 73 69 6f 6e 0a 2a 2a 20 6f 66 20  t version.** of 
2960: 75 70 70 65 72 28 29 20 6f 72 20 6c 6f 77 65 72  upper() or lower
2970: 28 29 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 6c 6f  ()..**.**     lo
2980: 77 65 72 28 27 49 27 2c 20 27 65 6e 5f 75 73 27  wer('I', 'en_us'
2990: 29 20 2d 3e 20 27 69 27 0a 2a 2a 20 20 20 20 20  ) -> 'i'.**     
29a0: 6c 6f 77 65 72 28 27 49 27 2c 20 27 74 72 5f 74  lower('I', 'tr_t
29b0: 72 27 29 20 2d 3e 20 27 5c 75 31 33 31 27 20 28  r') -> '\u131' (
29c0: 73 6d 61 6c 6c 20 64 6f 74 6c 65 73 73 20 69 29  small dotless i)
29d0: 0a 2a 2a 0a 2a 2a 20 68 74 74 70 3a 2f 2f 77 77  .**.** http://ww
29e0: 77 2e 69 63 75 2d 70 72 6f 6a 65 63 74 2e 6f 72  w.icu-project.or
29f0: 67 2f 75 73 65 72 67 75 69 64 65 2f 70 6f 73 69  g/userguide/posi
2a00: 78 2e 68 74 6d 6c 23 63 61 73 65 5f 6d 61 70 70  x.html#case_mapp
2a10: 69 6e 67 73 0a 2a 2f 0a 73 74 61 74 69 63 20 76  ings.*/.static v
2a20: 6f 69 64 20 69 63 75 43 61 73 65 46 75 6e 63 31  oid icuCaseFunc1
2a30: 36 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78  6(sqlite3_contex
2a40: 74 20 2a 70 2c 20 69 6e 74 20 6e 41 72 67 2c 20  t *p, int nArg, 
2a50: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
2a60: 61 70 41 72 67 29 7b 0a 20 20 63 6f 6e 73 74 20  apArg){.  const 
2a70: 55 43 68 61 72 20 2a 7a 49 6e 70 75 74 3b 20 20  UChar *zInput;  
2a80: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69            /* Poi
2a90: 6e 74 65 72 20 74 6f 20 69 6e 70 75 74 20 73 74  nter to input st
2aa0: 72 69 6e 67 20 2a 2f 0a 20 20 55 43 68 61 72 20  ring */.  UChar 
2ab0: 2a 7a 4f 75 74 70 75 74 20 3d 20 30 3b 20 20 20  *zOutput = 0;   
2ac0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 6f 69            /* Poi
2ad0: 6e 74 65 72 20 74 6f 20 6f 75 74 70 75 74 20 62  nter to output b
2ae0: 75 66 66 65 72 20 2a 2f 0a 20 20 69 6e 74 20 6e  uffer */.  int n
2af0: 49 6e 70 75 74 3b 20 20 20 20 20 20 20 20 20 20  Input;          
2b00: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69             /* Si
2b10: 7a 65 20 6f 66 20 75 74 66 2d 31 36 20 69 6e 70  ze of utf-16 inp
2b20: 75 74 20 73 74 72 69 6e 67 20 69 6e 20 62 79 74  ut string in byt
2b30: 65 73 20 2a 2f 0a 20 20 69 6e 74 20 6e 4f 75 74  es */.  int nOut
2b40: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
2b50: 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20          /* Size 
2b60: 6f 66 20 6f 75 74 70 75 74 20 62 75 66 66 65 72  of output buffer
2b70: 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20 69   in bytes */.  i
2b80: 6e 74 20 63 6e 74 3b 0a 20 20 69 6e 74 20 62 54  nt cnt;.  int bT
2b90: 6f 55 70 70 65 72 3b 20 20 20 20 20 20 20 20 20  oUpper;         
2ba0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75            /* Tru
2bb0: 65 20 66 6f 72 20 74 6f 75 70 70 65 72 28 29 2c  e for toupper(),
2bc0: 20 66 61 6c 73 65 20 66 6f 72 20 74 6f 6c 6f 77   false for tolow
2bd0: 65 72 28 29 20 2a 2f 0a 20 20 55 45 72 72 6f 72  er() */.  UError
2be0: 43 6f 64 65 20 73 74 61 74 75 73 3b 0a 20 20 63  Code status;.  c
2bf0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4c 6f 63 61  onst char *zLoca
2c00: 6c 65 20 3d 20 30 3b 0a 0a 20 20 61 73 73 65 72  le = 0;..  asser
2c10: 74 28 6e 41 72 67 3d 3d 31 20 7c 7c 20 6e 41 72  t(nArg==1 || nAr
2c20: 67 3d 3d 32 29 3b 0a 20 20 62 54 6f 55 70 70 65  g==2);.  bToUppe
2c30: 72 20 3d 20 28 73 71 6c 69 74 65 33 5f 75 73 65  r = (sqlite3_use
2c40: 72 5f 64 61 74 61 28 70 29 21 3d 30 29 3b 0a 20  r_data(p)!=0);. 
2c50: 20 69 66 28 20 6e 41 72 67 3d 3d 32 20 29 7b 0a   if( nArg==2 ){.
2c60: 20 20 20 20 7a 4c 6f 63 61 6c 65 20 3d 20 28 63      zLocale = (c
2c70: 6f 6e 73 74 20 63 68 61 72 20 2a 29 73 71 6c 69  onst char *)sqli
2c80: 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61  te3_value_text(a
2c90: 70 41 72 67 5b 31 5d 29 3b 0a 20 20 7d 0a 0a 20  pArg[1]);.  }.. 
2ca0: 20 7a 49 6e 70 75 74 20 3d 20 73 71 6c 69 74 65   zInput = sqlite
2cb0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 31 36 28 61  3_value_text16(a
2cc0: 70 41 72 67 5b 30 5d 29 3b 0a 20 20 69 66 28 20  pArg[0]);.  if( 
2cd0: 21 7a 49 6e 70 75 74 20 29 7b 0a 20 20 20 20 72  !zInput ){.    r
2ce0: 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 6e 4f 75  eturn;.  }.  nOu
2cf0: 74 20 3d 20 6e 49 6e 70 75 74 20 3d 20 73 71 6c  t = nInput = sql
2d00: 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73  ite3_value_bytes
2d10: 31 36 28 61 70 41 72 67 5b 30 5d 29 3b 0a 20 20  16(apArg[0]);.  
2d20: 69 66 28 20 6e 4f 75 74 3d 3d 30 20 29 7b 0a 20  if( nOut==0 ){. 
2d30: 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c     sqlite3_resul
2d40: 74 5f 74 65 78 74 31 36 28 70 2c 20 22 22 2c 20  t_text16(p, "", 
2d50: 30 2c 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43  0, SQLITE_STATIC
2d60: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20  );.    return;. 
2d70: 20 7d 0a 0a 20 20 66 6f 72 28 63 6e 74 3d 30 3b   }..  for(cnt=0;
2d80: 20 63 6e 74 3c 32 3b 20 63 6e 74 2b 2b 29 7b 0a   cnt<2; cnt++){.
2d90: 20 20 20 20 55 43 68 61 72 20 2a 7a 4e 65 77 20      UChar *zNew 
2da0: 3d 20 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f  = sqlite3_reallo
2db0: 63 28 7a 4f 75 74 70 75 74 2c 20 6e 4f 75 74 29  c(zOutput, nOut)
2dc0: 3b 0a 20 20 20 20 69 66 28 20 7a 4e 65 77 3d 3d  ;.    if( zNew==
2dd0: 30 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  0 ){.      sqlit
2de0: 65 33 5f 66 72 65 65 28 7a 4f 75 74 70 75 74 29  e3_free(zOutput)
2df0: 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  ;.      sqlite3_
2e00: 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f 6d  result_error_nom
2e10: 65 6d 28 70 29 3b 0a 20 20 20 20 20 20 72 65 74  em(p);.      ret
2e20: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a  urn;.    }.    z
2e30: 4f 75 74 70 75 74 20 3d 20 7a 4e 65 77 3b 0a 20  Output = zNew;. 
2e40: 20 20 20 73 74 61 74 75 73 20 3d 20 55 5f 5a 45     status = U_ZE
2e50: 52 4f 5f 45 52 52 4f 52 3b 0a 20 20 20 20 69 66  RO_ERROR;.    if
2e60: 28 20 62 54 6f 55 70 70 65 72 20 29 7b 0a 20 20  ( bToUpper ){.  
2e70: 20 20 20 20 6e 4f 75 74 20 3d 20 32 2a 75 5f 73      nOut = 2*u_s
2e80: 74 72 54 6f 55 70 70 65 72 28 7a 4f 75 74 70 75  trToUpper(zOutpu
2e90: 74 2c 6e 4f 75 74 2f 32 2c 7a 49 6e 70 75 74 2c  t,nOut/2,zInput,
2ea0: 6e 49 6e 70 75 74 2f 32 2c 7a 4c 6f 63 61 6c 65  nInput/2,zLocale
2eb0: 2c 26 73 74 61 74 75 73 29 3b 0a 20 20 20 20 7d  ,&status);.    }
2ec0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 6e 4f 75 74  else{.      nOut
2ed0: 20 3d 20 32 2a 75 5f 73 74 72 54 6f 4c 6f 77 65   = 2*u_strToLowe
2ee0: 72 28 7a 4f 75 74 70 75 74 2c 6e 4f 75 74 2f 32  r(zOutput,nOut/2
2ef0: 2c 7a 49 6e 70 75 74 2c 6e 49 6e 70 75 74 2f 32  ,zInput,nInput/2
2f00: 2c 7a 4c 6f 63 61 6c 65 2c 26 73 74 61 74 75 73  ,zLocale,&status
2f10: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66  );.    }..    if
2f20: 28 20 55 5f 53 55 43 43 45 53 53 28 73 74 61 74  ( U_SUCCESS(stat
2f30: 75 73 29 20 29 7b 0a 20 20 20 20 20 20 73 71 6c  us) ){.      sql
2f40: 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65 78 74  ite3_result_text
2f50: 31 36 28 70 2c 20 7a 4f 75 74 70 75 74 2c 20 6e  16(p, zOutput, n
2f60: 4f 75 74 2c 20 78 46 72 65 65 29 3b 0a 20 20 20  Out, xFree);.   
2f70: 20 7d 65 6c 73 65 20 69 66 28 20 73 74 61 74 75   }else if( statu
2f80: 73 3d 3d 55 5f 42 55 46 46 45 52 5f 4f 56 45 52  s==U_BUFFER_OVER
2f90: 46 4c 4f 57 5f 45 52 52 4f 52 20 29 7b 0a 20 20  FLOW_ERROR ){.  
2fa0: 20 20 20 20 61 73 73 65 72 74 28 20 63 6e 74 3d      assert( cnt=
2fb0: 3d 30 20 29 3b 0a 20 20 20 20 20 20 63 6f 6e 74  =0 );.      cont
2fc0: 69 6e 75 65 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  inue;.    }else{
2fd0: 0a 20 20 20 20 20 20 69 63 75 46 75 6e 63 74 69  .      icuFuncti
2fe0: 6f 6e 45 72 72 6f 72 28 70 2c 20 62 54 6f 55 70  onError(p, bToUp
2ff0: 70 65 72 20 3f 20 22 75 5f 73 74 72 54 6f 55 70  per ? "u_strToUp
3000: 70 65 72 22 20 3a 20 22 75 5f 73 74 72 54 6f 4c  per" : "u_strToL
3010: 6f 77 65 72 22 2c 20 73 74 61 74 75 73 29 3b 0a  ower", status);.
3020: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
3030: 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 20  ;.  }.  assert( 
3040: 30 20 29 3b 20 20 20 20 20 2f 2a 20 55 6e 72 65  0 );     /* Unre
3050: 61 63 68 61 62 6c 65 20 2a 2f 0a 7d 0a 0a 2f 2a  achable */.}../*
3060: 0a 2a 2a 20 43 6f 6c 6c 61 74 69 6f 6e 20 73 65  .** Collation se
3070: 71 75 65 6e 63 65 20 64 65 73 74 72 75 63 74 6f  quence destructo
3080: 72 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20  r function. The 
3090: 70 43 74 78 20 61 72 67 75 6d 65 6e 74 20 70 6f  pCtx argument po
30a0: 69 6e 74 73 20 74 6f 0a 2a 2a 20 61 20 55 43 6f  ints to.** a UCo
30b0: 6c 6c 61 74 6f 72 20 73 74 72 75 63 74 75 72 65  llator structure
30c0: 20 70 72 65 76 69 6f 75 73 6c 79 20 61 6c 6c 6f   previously allo
30d0: 63 61 74 65 64 20 75 73 69 6e 67 20 75 63 6f 6c  cated using ucol
30e0: 5f 6f 70 65 6e 28 29 2e 0a 2a 2f 0a 73 74 61 74  _open()..*/.stat
30f0: 69 63 20 76 6f 69 64 20 69 63 75 43 6f 6c 6c 61  ic void icuColla
3100: 74 69 6f 6e 44 65 6c 28 76 6f 69 64 20 2a 70 43  tionDel(void *pC
3110: 74 78 29 7b 0a 20 20 55 43 6f 6c 6c 61 74 6f 72  tx){.  UCollator
3120: 20 2a 70 20 3d 20 28 55 43 6f 6c 6c 61 74 6f 72   *p = (UCollator
3130: 20 2a 29 70 43 74 78 3b 0a 20 20 75 63 6f 6c 5f   *)pCtx;.  ucol_
3140: 63 6c 6f 73 65 28 70 29 3b 0a 7d 0a 0a 2f 2a 0a  close(p);.}../*.
3150: 2a 2a 20 43 6f 6c 6c 61 74 69 6f 6e 20 73 65 71  ** Collation seq
3160: 75 65 6e 63 65 20 63 6f 6d 70 61 72 69 73 6f 6e  uence comparison
3170: 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20 70   function. The p
3180: 43 74 78 20 61 72 67 75 6d 65 6e 74 20 70 6f 69  Ctx argument poi
3190: 6e 74 73 20 74 6f 0a 2a 2a 20 61 20 55 43 6f 6c  nts to.** a UCol
31a0: 6c 61 74 6f 72 20 73 74 72 75 63 74 75 72 65 20  lator structure 
31b0: 70 72 65 76 69 6f 75 73 6c 79 20 61 6c 6c 6f 63  previously alloc
31c0: 61 74 65 64 20 75 73 69 6e 67 20 75 63 6f 6c 5f  ated using ucol_
31d0: 6f 70 65 6e 28 29 2e 0a 2a 2f 0a 73 74 61 74 69  open()..*/.stati
31e0: 63 20 69 6e 74 20 69 63 75 43 6f 6c 6c 61 74 69  c int icuCollati
31f0: 6f 6e 43 6f 6c 6c 28 0a 20 20 76 6f 69 64 20 2a  onColl(.  void *
3200: 70 43 74 78 2c 0a 20 20 69 6e 74 20 6e 4c 65 66  pCtx,.  int nLef
3210: 74 2c 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20  t,.  const void 
3220: 2a 7a 4c 65 66 74 2c 0a 20 20 69 6e 74 20 6e 52  *zLeft,.  int nR
3230: 69 67 68 74 2c 0a 20 20 63 6f 6e 73 74 20 76 6f  ight,.  const vo
3240: 69 64 20 2a 7a 52 69 67 68 74 0a 29 7b 0a 20 20  id *zRight.){.  
3250: 55 43 6f 6c 6c 61 74 69 6f 6e 52 65 73 75 6c 74  UCollationResult
3260: 20 72 65 73 3b 0a 20 20 55 43 6f 6c 6c 61 74 6f   res;.  UCollato
3270: 72 20 2a 70 20 3d 20 28 55 43 6f 6c 6c 61 74 6f  r *p = (UCollato
3280: 72 20 2a 29 70 43 74 78 3b 0a 20 20 72 65 73 20  r *)pCtx;.  res 
3290: 3d 20 75 63 6f 6c 5f 73 74 72 63 6f 6c 6c 28 70  = ucol_strcoll(p
32a0: 2c 20 28 55 43 68 61 72 20 2a 29 7a 4c 65 66 74  , (UChar *)zLeft
32b0: 2c 20 6e 4c 65 66 74 2f 32 2c 20 28 55 43 68 61  , nLeft/2, (UCha
32c0: 72 20 2a 29 7a 52 69 67 68 74 2c 20 6e 52 69 67  r *)zRight, nRig
32d0: 68 74 2f 32 29 3b 0a 20 20 73 77 69 74 63 68 28  ht/2);.  switch(
32e0: 20 72 65 73 20 29 7b 0a 20 20 20 20 63 61 73 65   res ){.    case
32f0: 20 55 43 4f 4c 5f 4c 45 53 53 3a 20 20 20 20 72   UCOL_LESS:    r
3300: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 63 61  eturn -1;.    ca
3310: 73 65 20 55 43 4f 4c 5f 47 52 45 41 54 45 52 3a  se UCOL_GREATER:
3320: 20 72 65 74 75 72 6e 20 2b 31 3b 0a 20 20 20 20   return +1;.    
3330: 63 61 73 65 20 55 43 4f 4c 5f 45 51 55 41 4c 3a  case UCOL_EQUAL:
3340: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d     return 0;.  }
3350: 0a 20 20 61 73 73 65 72 74 28 21 22 55 6e 65 78  .  assert(!"Unex
3360: 70 65 63 74 65 64 20 72 65 74 75 72 6e 20 76 61  pected return va
3370: 6c 75 65 20 66 72 6f 6d 20 75 63 6f 6c 5f 73 74  lue from ucol_st
3380: 72 63 6f 6c 6c 28 29 22 29 3b 0a 20 20 72 65 74  rcoll()");.  ret
3390: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  urn 0;.}../*.** 
33a0: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  Implementation o
33b0: 66 20 74 68 65 20 73 63 61 6c 61 72 20 66 75 6e  f the scalar fun
33c0: 63 74 69 6f 6e 20 69 63 75 5f 6c 6f 61 64 5f 63  ction icu_load_c
33d0: 6f 6c 6c 61 74 69 6f 6e 28 29 2e 0a 2a 2a 0a 2a  ollation()..**.*
33e0: 2a 20 54 68 69 73 20 73 63 61 6c 61 72 20 66 75  * This scalar fu
33f0: 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 74  nction is used t
3400: 6f 20 61 64 64 20 49 43 55 20 63 6f 6c 6c 61 74  o add ICU collat
3410: 69 6f 6e 20 62 61 73 65 64 20 63 6f 6c 6c 61 74  ion based collat
3420: 69 6f 6e 20 0a 2a 2a 20 74 79 70 65 73 20 74 6f  ion .** types to
3430: 20 61 6e 20 53 51 4c 69 74 65 20 64 61 74 61 62   an SQLite datab
3440: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20  ase connection. 
3450: 49 74 20 69 73 20 69 6e 74 65 6e 64 65 64 20 74  It is intended t
3460: 6f 20 62 65 20 63 61 6c 6c 65 64 0a 2a 2a 20 61  o be called.** a
3470: 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a  s follows:.**.**
3480: 20 20 20 20 20 53 45 4c 45 43 54 20 69 63 75 5f       SELECT icu_
3490: 6c 6f 61 64 5f 63 6f 6c 6c 61 74 69 6f 6e 28 3c  load_collation(<
34a0: 6c 6f 63 61 6c 65 3e 2c 20 3c 63 6f 6c 6c 61 74  locale>, <collat
34b0: 69 6f 6e 2d 6e 61 6d 65 3e 29 3b 0a 2a 2a 0a 2a  ion-name>);.**.*
34c0: 2a 20 57 68 65 72 65 20 3c 6c 6f 63 61 6c 65 3e  * Where <locale>
34d0: 20 69 73 20 61 20 73 74 72 69 6e 67 20 63 6f 6e   is a string con
34e0: 74 61 69 6e 69 6e 67 20 61 6e 20 49 43 55 20 6c  taining an ICU l
34f0: 6f 63 61 6c 65 20 69 64 65 6e 74 69 66 69 65 72  ocale identifier
3500: 20 28 69 2e 65 2e 0a 2a 2a 20 22 65 6e 5f 41 55   (i.e..** "en_AU
3510: 22 2c 20 22 74 72 5f 54 52 22 20 65 74 63 2e 29  ", "tr_TR" etc.)
3520: 20 61 6e 64 20 3c 63 6f 6c 6c 61 74 69 6f 6e 2d   and <collation-
3530: 6e 61 6d 65 3e 20 69 73 20 74 68 65 20 6e 61 6d  name> is the nam
3540: 65 20 6f 66 20 74 68 65 0a 2a 2a 20 63 6f 6c 6c  e of the.** coll
3550: 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 74  ation sequence t
3560: 6f 20 63 72 65 61 74 65 2e 0a 2a 2f 0a 73 74 61  o create..*/.sta
3570: 74 69 63 20 76 6f 69 64 20 69 63 75 4c 6f 61 64  tic void icuLoad
3580: 43 6f 6c 6c 61 74 69 6f 6e 28 0a 20 20 73 71 6c  Collation(.  sql
3590: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70 2c  ite3_context *p,
35a0: 20 0a 20 20 69 6e 74 20 6e 41 72 67 2c 20 0a 20   .  int nArg, . 
35b0: 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a   sqlite3_value *
35c0: 2a 61 70 41 72 67 0a 29 7b 0a 20 20 73 71 6c 69  *apArg.){.  sqli
35d0: 74 65 33 20 2a 64 62 20 3d 20 28 73 71 6c 69 74  te3 *db = (sqlit
35e0: 65 33 20 2a 29 73 71 6c 69 74 65 33 5f 75 73 65  e3 *)sqlite3_use
35f0: 72 5f 64 61 74 61 28 70 29 3b 0a 20 20 55 45 72  r_data(p);.  UEr
3600: 72 6f 72 43 6f 64 65 20 73 74 61 74 75 73 20 3d  rorCode status =
3610: 20 55 5f 5a 45 52 4f 5f 45 52 52 4f 52 3b 0a 20   U_ZERO_ERROR;. 
3620: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4c 6f   const char *zLo
3630: 63 61 6c 65 3b 20 20 20 20 20 20 2f 2a 20 4c 6f  cale;      /* Lo
3640: 63 61 6c 65 20 69 64 65 6e 74 69 66 69 65 72 20  cale identifier 
3650: 2d 20 28 65 67 2e 20 22 6a 70 5f 4a 50 22 29 20  - (eg. "jp_JP") 
3660: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  */.  const char 
3670: 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 20 20 20 2f  *zName;        /
3680: 2a 20 53 51 4c 20 43 6f 6c 6c 61 74 69 6f 6e 20  * SQL Collation 
3690: 73 65 71 75 65 6e 63 65 20 6e 61 6d 65 20 28 65  sequence name (e
36a0: 67 2e 20 22 6a 61 70 61 6e 65 73 65 22 29 20 2a  g. "japanese") *
36b0: 2f 0a 20 20 55 43 6f 6c 6c 61 74 6f 72 20 2a 70  /.  UCollator *p
36c0: 55 43 6f 6c 6c 61 74 6f 72 3b 20 20 20 20 2f 2a  UCollator;    /*
36d0: 20 49 43 55 20 6c 69 62 72 61 72 79 20 63 6f 6c   ICU library col
36e0: 6c 61 74 69 6f 6e 20 6f 62 6a 65 63 74 20 2a 2f  lation object */
36f0: 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20  .  int rc;      
3700: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
3710: 52 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f 6d  Return code from
3720: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f   sqlite3_create_
3730: 63 6f 6c 6c 61 74 69 6f 6e 5f 78 28 29 20 2a 2f  collation_x() */
3740: 0a 0a 20 20 61 73 73 65 72 74 28 6e 41 72 67 3d  ..  assert(nArg=
3750: 3d 32 29 3b 0a 20 20 28 76 6f 69 64 29 6e 41 72  =2);.  (void)nAr
3760: 67 3b 20 2f 2a 20 55 6e 75 73 65 64 20 70 61 72  g; /* Unused par
3770: 61 6d 65 74 65 72 20 2a 2f 0a 20 20 7a 4c 6f 63  ameter */.  zLoc
3780: 61 6c 65 20 3d 20 28 63 6f 6e 73 74 20 63 68 61  ale = (const cha
3790: 72 20 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75  r *)sqlite3_valu
37a0: 65 5f 74 65 78 74 28 61 70 41 72 67 5b 30 5d 29  e_text(apArg[0])
37b0: 3b 0a 20 20 7a 4e 61 6d 65 20 3d 20 28 63 6f 6e  ;.  zName = (con
37c0: 73 74 20 63 68 61 72 20 2a 29 73 71 6c 69 74 65  st char *)sqlite
37d0: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 70 41  3_value_text(apA
37e0: 72 67 5b 31 5d 29 3b 0a 0a 20 20 69 66 28 20 21  rg[1]);..  if( !
37f0: 7a 4c 6f 63 61 6c 65 20 7c 7c 20 21 7a 4e 61 6d  zLocale || !zNam
3800: 65 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b  e ){.    return;
3810: 0a 20 20 7d 0a 0a 20 20 70 55 43 6f 6c 6c 61 74  .  }..  pUCollat
3820: 6f 72 20 3d 20 75 63 6f 6c 5f 6f 70 65 6e 28 7a  or = ucol_open(z
3830: 4c 6f 63 61 6c 65 2c 20 26 73 74 61 74 75 73 29  Locale, &status)
3840: 3b 0a 20 20 69 66 28 20 21 55 5f 53 55 43 43 45  ;.  if( !U_SUCCE
3850: 53 53 28 73 74 61 74 75 73 29 20 29 7b 0a 20 20  SS(status) ){.  
3860: 20 20 69 63 75 46 75 6e 63 74 69 6f 6e 45 72 72    icuFunctionErr
3870: 6f 72 28 70 2c 20 22 75 63 6f 6c 5f 6f 70 65 6e  or(p, "ucol_open
3880: 22 2c 20 73 74 61 74 75 73 29 3b 0a 20 20 20 20  ", status);.    
3890: 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 61 73  return;.  }.  as
38a0: 73 65 72 74 28 70 29 3b 0a 0a 20 20 72 63 20 3d  sert(p);..  rc =
38b0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f   sqlite3_create_
38c0: 63 6f 6c 6c 61 74 69 6f 6e 5f 76 32 28 64 62 2c  collation_v2(db,
38d0: 20 7a 4e 61 6d 65 2c 20 53 51 4c 49 54 45 5f 55   zName, SQLITE_U
38e0: 54 46 31 36 2c 20 28 76 6f 69 64 20 2a 29 70 55  TF16, (void *)pU
38f0: 43 6f 6c 6c 61 74 6f 72 2c 20 0a 20 20 20 20 20  Collator, .     
3900: 20 69 63 75 43 6f 6c 6c 61 74 69 6f 6e 43 6f 6c   icuCollationCol
3910: 6c 2c 20 69 63 75 43 6f 6c 6c 61 74 69 6f 6e 44  l, icuCollationD
3920: 65 6c 0a 20 20 29 3b 0a 20 20 69 66 28 20 72 63  el.  );.  if( rc
3930: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  !=SQLITE_OK ){. 
3940: 20 20 20 75 63 6f 6c 5f 63 6c 6f 73 65 28 70 55     ucol_close(pU
3950: 43 6f 6c 6c 61 74 6f 72 29 3b 0a 20 20 20 20 73  Collator);.    s
3960: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72  qlite3_result_er
3970: 72 6f 72 28 70 2c 20 22 45 72 72 6f 72 20 72 65  ror(p, "Error re
3980: 67 69 73 74 65 72 69 6e 67 20 63 6f 6c 6c 61 74  gistering collat
3990: 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 22 2c 20 2d  ion function", -
39a0: 31 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a  1);.  }.}../*.**
39b0: 20 52 65 67 69 73 74 65 72 20 74 68 65 20 49 43   Register the IC
39c0: 55 20 65 78 74 65 6e 73 69 6f 6e 20 66 75 6e 63  U extension func
39d0: 74 69 6f 6e 73 20 77 69 74 68 20 64 61 74 61 62  tions with datab
39e0: 61 73 65 20 64 62 2e 0a 2a 2f 0a 69 6e 74 20 73  ase db..*/.int s
39f0: 71 6c 69 74 65 33 49 63 75 49 6e 69 74 28 73 71  qlite3IcuInit(sq
3a00: 6c 69 74 65 33 20 2a 64 62 29 7b 0a 20 20 73 74  lite3 *db){.  st
3a10: 61 74 69 63 20 63 6f 6e 73 74 20 73 74 72 75 63  atic const struc
3a20: 74 20 49 63 75 53 63 61 6c 61 72 20 7b 0a 20 20  t IcuScalar {.  
3a30: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e    const char *zN
3a40: 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20 20 20  ame;            
3a50: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46              /* F
3a60: 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 20 2a 2f 0a  unction name */.
3a70: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61      unsigned cha
3a80: 72 20 6e 41 72 67 3b 20 20 20 20 20 20 20 20 20  r nArg;         
3a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
3aa0: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   Number of argum
3ab0: 65 6e 74 73 20 2a 2f 0a 20 20 20 20 75 6e 73 69  ents */.    unsi
3ac0: 67 6e 65 64 20 73 68 6f 72 74 20 65 6e 63 3b 20  gned short enc; 
3ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ae0: 20 20 20 20 20 20 2f 2a 20 4f 70 74 69 6d 61 6c        /* Optimal
3af0: 20 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 20 2a   text encoding *
3b00: 2f 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63  /.    unsigned c
3b10: 68 61 72 20 69 43 6f 6e 74 65 78 74 3b 20 20 20  har iContext;   
3b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3b30: 2f 2a 20 73 71 6c 69 74 65 33 5f 75 73 65 72 5f  /* sqlite3_user_
3b40: 64 61 74 61 28 29 20 63 6f 6e 74 65 78 74 20 2a  data() context *
3b50: 2f 0a 20 20 20 20 76 6f 69 64 20 28 2a 78 46 75  /.    void (*xFu
3b60: 6e 63 29 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  nc)(sqlite3_cont
3b70: 65 78 74 2a 2c 69 6e 74 2c 73 71 6c 69 74 65 33  ext*,int,sqlite3
3b80: 5f 76 61 6c 75 65 2a 2a 29 3b 0a 20 20 7d 20 73  _value**);.  } s
3b90: 63 61 6c 61 72 73 5b 5d 20 3d 20 7b 0a 20 20 20  calars[] = {.   
3ba0: 20 7b 22 69 63 75 5f 6c 6f 61 64 5f 63 6f 6c 6c   {"icu_load_coll
3bb0: 61 74 69 6f 6e 22 2c 20 20 32 2c 20 53 51 4c 49  ation",  2, SQLI
3bc0: 54 45 5f 55 54 46 38 2c 20 20 20 20 20 20 20 20  TE_UTF8,        
3bd0: 20 20 20 20 20 20 20 20 31 2c 20 69 63 75 4c 6f          1, icuLo
3be0: 61 64 43 6f 6c 6c 61 74 69 6f 6e 7d 2c 0a 20 20  adCollation},.  
3bf0: 20 20 7b 22 72 65 67 65 78 70 22 2c 20 32 2c 20    {"regexp", 2, 
3c00: 53 51 4c 49 54 45 5f 41 4e 59 7c 53 51 4c 49 54  SQLITE_ANY|SQLIT
3c10: 45 5f 44 45 54 45 52 4d 49 4e 49 53 54 49 43 2c  E_DETERMINISTIC,
3c20: 20 20 20 20 20 20 20 20 20 30 2c 20 69 63 75 52           0, icuR
3c30: 65 67 65 78 70 46 75 6e 63 7d 2c 0a 20 20 20 20  egexpFunc},.    
3c40: 7b 22 6c 6f 77 65 72 22 2c 20 20 31 2c 20 53 51  {"lower",  1, SQ
3c50: 4c 49 54 45 5f 55 54 46 31 36 7c 53 51 4c 49 54  LITE_UTF16|SQLIT
3c60: 45 5f 44 45 54 45 52 4d 49 4e 49 53 54 49 43 2c  E_DETERMINISTIC,
3c70: 20 20 20 20 20 20 20 30 2c 20 69 63 75 43 61 73         0, icuCas
3c80: 65 46 75 6e 63 31 36 7d 2c 0a 20 20 20 20 7b 22  eFunc16},.    {"
3c90: 6c 6f 77 65 72 22 2c 20 20 32 2c 20 53 51 4c 49  lower",  2, SQLI
3ca0: 54 45 5f 55 54 46 31 36 7c 53 51 4c 49 54 45 5f  TE_UTF16|SQLITE_
3cb0: 44 45 54 45 52 4d 49 4e 49 53 54 49 43 2c 20 20  DETERMINISTIC,  
3cc0: 20 20 20 20 20 30 2c 20 69 63 75 43 61 73 65 46       0, icuCaseF
3cd0: 75 6e 63 31 36 7d 2c 0a 20 20 20 20 7b 22 75 70  unc16},.    {"up
3ce0: 70 65 72 22 2c 20 20 31 2c 20 53 51 4c 49 54 45  per",  1, SQLITE
3cf0: 5f 55 54 46 31 36 7c 53 51 4c 49 54 45 5f 44 45  _UTF16|SQLITE_DE
3d00: 54 45 52 4d 49 4e 49 53 54 49 43 2c 20 20 20 20  TERMINISTIC,    
3d10: 20 20 20 31 2c 20 69 63 75 43 61 73 65 46 75 6e     1, icuCaseFun
3d20: 63 31 36 7d 2c 0a 20 20 20 20 7b 22 75 70 70 65  c16},.    {"uppe
3d30: 72 22 2c 20 20 32 2c 20 53 51 4c 49 54 45 5f 55  r",  2, SQLITE_U
3d40: 54 46 31 36 7c 53 51 4c 49 54 45 5f 44 45 54 45  TF16|SQLITE_DETE
3d50: 52 4d 49 4e 49 53 54 49 43 2c 20 20 20 20 20 20  RMINISTIC,      
3d60: 20 31 2c 20 69 63 75 43 61 73 65 46 75 6e 63 31   1, icuCaseFunc1
3d70: 36 7d 2c 0a 20 20 20 20 7b 22 6c 6f 77 65 72 22  6},.    {"lower"
3d80: 2c 20 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46  ,  1, SQLITE_UTF
3d90: 38 7c 53 51 4c 49 54 45 5f 44 45 54 45 52 4d 49  8|SQLITE_DETERMI
3da0: 4e 49 53 54 49 43 2c 20 20 20 20 20 20 20 20 30  NISTIC,        0
3db0: 2c 20 69 63 75 43 61 73 65 46 75 6e 63 31 36 7d  , icuCaseFunc16}
3dc0: 2c 0a 20 20 20 20 7b 22 6c 6f 77 65 72 22 2c 20  ,.    {"lower", 
3dd0: 20 32 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 7c   2, SQLITE_UTF8|
3de0: 53 51 4c 49 54 45 5f 44 45 54 45 52 4d 49 4e 49  SQLITE_DETERMINI
3df0: 53 54 49 43 2c 20 20 20 20 20 20 20 20 30 2c 20  STIC,        0, 
3e00: 69 63 75 43 61 73 65 46 75 6e 63 31 36 7d 2c 0a  icuCaseFunc16},.
3e10: 20 20 20 20 7b 22 75 70 70 65 72 22 2c 20 20 31      {"upper",  1
3e20: 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 7c 53 51  , SQLITE_UTF8|SQ
3e30: 4c 49 54 45 5f 44 45 54 45 52 4d 49 4e 49 53 54  LITE_DETERMINIST
3e40: 49 43 2c 20 20 20 20 20 20 20 20 31 2c 20 69 63  IC,        1, ic
3e50: 75 43 61 73 65 46 75 6e 63 31 36 7d 2c 0a 20 20  uCaseFunc16},.  
3e60: 20 20 7b 22 75 70 70 65 72 22 2c 20 20 32 2c 20    {"upper",  2, 
3e70: 53 51 4c 49 54 45 5f 55 54 46 38 7c 53 51 4c 49  SQLITE_UTF8|SQLI
3e80: 54 45 5f 44 45 54 45 52 4d 49 4e 49 53 54 49 43  TE_DETERMINISTIC
3e90: 2c 20 20 20 20 20 20 20 20 31 2c 20 69 63 75 43  ,        1, icuC
3ea0: 61 73 65 46 75 6e 63 31 36 7d 2c 0a 20 20 20 20  aseFunc16},.    
3eb0: 7b 22 6c 69 6b 65 22 2c 20 20 20 32 2c 20 53 51  {"like",   2, SQ
3ec0: 4c 49 54 45 5f 55 54 46 38 7c 53 51 4c 49 54 45  LITE_UTF8|SQLITE
3ed0: 5f 44 45 54 45 52 4d 49 4e 49 53 54 49 43 2c 20  _DETERMINISTIC, 
3ee0: 20 20 20 20 20 20 20 30 2c 20 69 63 75 4c 69 6b         0, icuLik
3ef0: 65 46 75 6e 63 7d 2c 0a 20 20 20 20 7b 22 6c 69  eFunc},.    {"li
3f00: 6b 65 22 2c 20 20 20 33 2c 20 53 51 4c 49 54 45  ke",   3, SQLITE
3f10: 5f 55 54 46 38 7c 53 51 4c 49 54 45 5f 44 45 54  _UTF8|SQLITE_DET
3f20: 45 52 4d 49 4e 49 53 54 49 43 2c 20 20 20 20 20  ERMINISTIC,     
3f30: 20 20 20 30 2c 20 69 63 75 4c 69 6b 65 46 75 6e     0, icuLikeFun
3f40: 63 7d 2c 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 72  c},.  };.  int r
3f50: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
3f60: 20 69 6e 74 20 69 3b 0a 0a 20 20 0a 20 20 66 6f   int i;..  .  fo
3f70: 72 28 69 3d 30 3b 20 72 63 3d 3d 53 51 4c 49 54  r(i=0; rc==SQLIT
3f80: 45 5f 4f 4b 20 26 26 20 69 3c 28 69 6e 74 29 28  E_OK && i<(int)(
3f90: 73 69 7a 65 6f 66 28 73 63 61 6c 61 72 73 29 2f  sizeof(scalars)/
3fa0: 73 69 7a 65 6f 66 28 73 63 61 6c 61 72 73 5b 30  sizeof(scalars[0
3fb0: 5d 29 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 63  ])); i++){.    c
3fc0: 6f 6e 73 74 20 73 74 72 75 63 74 20 49 63 75 53  onst struct IcuS
3fd0: 63 61 6c 61 72 20 2a 70 20 3d 20 26 73 63 61 6c  calar *p = &scal
3fe0: 61 72 73 5b 69 5d 3b 0a 20 20 20 20 72 63 20 3d  ars[i];.    rc =
3ff0: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f   sqlite3_create_
4000: 66 75 6e 63 74 69 6f 6e 28 0a 20 20 20 20 20 20  function(.      
4010: 20 20 64 62 2c 20 70 2d 3e 7a 4e 61 6d 65 2c 20    db, p->zName, 
4020: 70 2d 3e 6e 41 72 67 2c 20 70 2d 3e 65 6e 63 2c  p->nArg, p->enc,
4030: 20 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 43 6f   .        p->iCo
4040: 6e 74 65 78 74 20 3f 20 28 76 6f 69 64 2a 29 64  ntext ? (void*)d
4050: 62 20 3a 20 28 76 6f 69 64 2a 29 30 2c 0a 20 20  b : (void*)0,.  
4060: 20 20 20 20 20 20 70 2d 3e 78 46 75 6e 63 2c 20        p->xFunc, 
4070: 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 7d 0a  0, 0.    );.  }.
4080: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
4090: 0a 23 69 66 20 21 53 51 4c 49 54 45 5f 43 4f 52  .#if !SQLITE_COR
40a0: 45 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32 0a  E.#ifdef _WIN32.
40b0: 5f 5f 64 65 63 6c 73 70 65 63 28 64 6c 6c 65 78  __declspec(dllex
40c0: 70 6f 72 74 29 0a 23 65 6e 64 69 66 0a 69 6e 74  port).#endif.int
40d0: 20 73 71 6c 69 74 65 33 5f 69 63 75 5f 69 6e 69   sqlite3_icu_ini
40e0: 74 28 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62  t(.  sqlite3 *db
40f0: 2c 20 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 72  , .  char **pzEr
4100: 72 4d 73 67 2c 0a 20 20 63 6f 6e 73 74 20 73 71  rMsg,.  const sq
4110: 6c 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e  lite3_api_routin
4120: 65 73 20 2a 70 41 70 69 0a 29 7b 0a 20 20 53 51  es *pApi.){.  SQ
4130: 4c 49 54 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49  LITE_EXTENSION_I
4140: 4e 49 54 32 28 70 41 70 69 29 0a 20 20 72 65 74  NIT2(pApi).  ret
4150: 75 72 6e 20 73 71 6c 69 74 65 33 49 63 75 49 6e  urn sqlite3IcuIn
4160: 69 74 28 64 62 29 3b 0a 7d 0a 23 65 6e 64 69 66  it(db);.}.#endif
4170: 0a 0a 23 65 6e 64 69 66 0a                       ..#endif.