/ Hex Artifact Content
Login

Artifact dd4f8a6d0baccff3c694757db5b430f3bbd821d8686d1fc24df55cf9f035b189:


0000: 2f 2a 0a 2a 2a 20 32 30 31 34 2d 30 36 2d 31 33  /*.** 2014-06-13
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 2a  ****************
0170: 2a 2a 2a 2a 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20  ****.**.** This 
0180: 53 51 4c 69 74 65 20 65 78 74 65 6e 73 69 6f 6e  SQLite extension
0190: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 53 51 4c 20   implements SQL 
01a0: 63 6f 6d 70 72 65 73 73 69 6f 6e 20 66 75 6e 63  compression func
01b0: 74 69 6f 6e 73 0a 2a 2a 20 63 6f 6d 70 72 65 73  tions.** compres
01c0: 73 28 29 20 61 6e 64 20 75 6e 63 6f 6d 70 72 65  s() and uncompre
01d0: 73 73 28 29 20 75 73 69 6e 67 20 5a 4c 49 42 2e  ss() using ZLIB.
01e0: 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 73 71  .*/.#include "sq
01f0: 6c 69 74 65 33 65 78 74 2e 68 22 0a 53 51 4c 49  lite3ext.h".SQLI
0200: 54 45 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49  TE_EXTENSION_INI
0210: 54 31 0a 23 69 6e 63 6c 75 64 65 20 3c 7a 6c 69  T1.#include <zli
0220: 62 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c  b.h>../*.** Impl
0230: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68  ementation of th
0240: 65 20 22 63 6f 6d 70 72 65 73 73 28 58 29 22 20  e "compress(X)" 
0250: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54  SQL function.  T
0260: 68 65 20 69 6e 70 75 74 20 58 20 69 73 0a 2a 2a  he input X is.**
0270: 20 63 6f 6d 70 72 65 73 73 65 64 20 75 73 69 6e   compressed usin
0280: 67 20 7a 4c 69 62 20 61 6e 64 20 74 68 65 20 6f  g zLib and the o
0290: 75 74 70 75 74 20 69 73 20 72 65 74 75 72 6e 65  utput is returne
02a0: 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 6f 75 74  d..**.** The out
02b0: 70 75 74 20 69 73 20 61 20 42 4c 4f 42 20 74 68  put is a BLOB th
02c0: 61 74 20 62 65 67 69 6e 73 20 77 69 74 68 20 61  at begins with a
02d0: 20 76 61 72 69 61 62 6c 65 2d 6c 65 6e 67 74 68   variable-length
02e0: 20 69 6e 74 65 67 65 72 20 74 68 61 74 0a 2a 2a   integer that.**
02f0: 20 69 73 20 74 68 65 20 69 6e 70 75 74 20 73 69   is the input si
0300: 7a 65 20 69 6e 20 62 79 74 65 73 20 28 74 68 65  ze in bytes (the
0310: 20 73 69 7a 65 20 6f 66 20 58 20 62 65 66 6f 72   size of X befor
0320: 65 20 63 6f 6d 70 72 65 73 73 69 6f 6e 29 2e 20  e compression). 
0330: 20 54 68 65 0a 2a 2a 20 76 61 72 69 61 62 6c 65   The.** variable
0340: 2d 6c 65 6e 67 74 68 20 69 6e 74 65 67 65 72 20  -length integer 
0350: 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61  is implemented a
0360: 73 20 31 20 74 6f 20 35 20 62 79 74 65 73 2e 20  s 1 to 5 bytes. 
0370: 20 54 68 65 72 65 20 61 72 65 0a 2a 2a 20 73 65   There are.** se
0380: 76 65 6e 20 62 69 74 73 20 70 65 72 20 69 6e 74  ven bits per int
0390: 65 67 65 72 20 73 74 6f 72 65 64 20 69 6e 20 74  eger stored in t
03a0: 68 65 20 6c 6f 77 65 72 20 73 65 76 65 6e 20 62  he lower seven b
03b0: 69 74 73 20 6f 66 20 65 61 63 68 20 62 79 74 65  its of each byte
03c0: 2e 0a 2a 2a 20 4d 6f 72 65 20 73 69 67 6e 69 66  ..** More signif
03d0: 69 63 61 6e 74 20 62 69 74 73 20 6f 63 63 75 72  icant bits occur
03e0: 20 66 69 72 73 74 2e 20 20 54 68 65 20 6d 6f 73   first.  The mos
03f0: 74 20 73 69 67 6e 69 66 69 63 61 6e 74 20 62 69  t significant bi
0400: 74 20 28 30 78 38 30 29 0a 2a 2a 20 69 73 20 61  t (0x80).** is a
0410: 20 66 6c 61 67 20 74 6f 20 69 6e 64 69 63 61 74   flag to indicat
0420: 65 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65  e the end of the
0430: 20 69 6e 74 65 67 65 72 2e 0a 2a 2a 0a 2a 2a 20   integer..**.** 
0440: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 2c 20 53  This function, S
0450: 51 4c 41 52 2c 20 61 6e 64 20 5a 49 50 20 61 6c  QLAR, and ZIP al
0460: 6c 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 22  l use the same "
0470: 64 65 66 6c 61 74 65 22 20 63 6f 6d 70 72 65 73  deflate" compres
0480: 73 69 6f 6e 0a 2a 2a 20 61 6c 67 6f 72 69 74 68  sion.** algorith
0490: 6d 2c 20 62 75 74 20 65 61 63 68 20 69 73 20 73  m, but each is s
04a0: 75 62 74 6c 79 20 64 69 66 66 65 72 65 6e 74 3a  ubtly different:
04b0: 0a 2a 2a 0a 2a 2a 20 20 20 2a 20 20 5a 49 50 20  .**.**   *  ZIP 
04c0: 75 73 65 73 20 72 61 77 20 64 65 66 6c 61 74 65  uses raw deflate
04d0: 2e 0a 2a 2a 0a 2a 2a 20 20 20 2a 20 20 53 51 4c  ..**.**   *  SQL
04e0: 41 52 20 75 73 65 73 20 74 68 65 20 22 7a 6c 69  AR uses the "zli
04f0: 62 20 66 6f 72 6d 61 74 22 20 77 68 69 63 68 20  b format" which 
0500: 69 73 20 72 61 77 20 64 65 66 6c 61 74 65 20 77  is raw deflate w
0510: 69 74 68 20 61 20 74 77 6f 2d 62 79 74 65 0a 2a  ith a two-byte.*
0520: 2a 20 20 20 20 20 20 61 6c 67 6f 72 69 74 68 6d  *      algorithm
0530: 2d 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20  -identification 
0540: 68 65 61 64 65 72 20 61 6e 64 20 61 20 66 6f 75  header and a fou
0550: 72 2d 62 79 74 65 20 63 68 65 63 6b 73 75 6d 20  r-byte checksum 
0560: 61 74 20 74 68 65 20 65 6e 64 2e 0a 2a 2a 0a 2a  at the end..**.*
0570: 2a 20 20 20 2a 20 20 54 68 69 73 20 75 74 69 6c  *   *  This util
0580: 69 74 79 20 75 73 65 73 20 74 68 65 20 22 7a 6c  ity uses the "zl
0590: 69 62 20 66 6f 72 6d 61 74 22 20 6c 69 6b 65 20  ib format" like 
05a0: 53 51 4c 41 52 2c 20 62 75 74 20 61 64 64 73 20  SQLAR, but adds 
05b0: 74 68 65 20 76 61 72 69 61 62 6c 65 2d 0a 2a 2a  the variable-.**
05c0: 20 20 20 20 20 20 6c 65 6e 67 74 68 20 69 6e 74        length int
05d0: 65 67 65 72 20 75 6e 63 6f 6d 70 72 65 73 73 65  eger uncompresse
05e0: 64 20 73 69 7a 65 20 76 61 6c 75 65 20 61 74 20  d size value at 
05f0: 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 2e 0a 2a  the beginning..*
0600: 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69  *.** This functi
0610: 6f 6e 20 6d 69 67 68 74 20 62 65 20 65 78 74 65  on might be exte
0620: 6e 64 65 64 20 69 6e 20 74 68 65 20 66 75 74 75  nded in the futu
0630: 72 65 20 74 6f 20 73 75 70 70 6f 72 74 20 63 6f  re to support co
0640: 6d 70 72 65 73 73 69 6f 6e 0a 2a 2a 20 66 6f 72  mpression.** for
0650: 6d 61 74 73 20 6f 74 68 65 72 20 74 68 61 6e 20  mats other than 
0660: 64 65 66 6c 61 74 65 2c 20 62 79 20 70 72 6f 76  deflate, by prov
0670: 69 64 69 6e 67 20 61 20 64 69 66 66 65 72 65 6e  iding a differen
0680: 74 20 61 6c 67 6f 72 69 74 68 6d 2d 69 64 0a 2a  t algorithm-id.*
0690: 2a 20 6d 61 72 6b 20 66 6f 6c 6c 6f 77 69 6e 67  * mark following
06a0: 20 74 68 65 20 76 61 72 69 61 62 6c 65 2d 6c 65   the variable-le
06b0: 6e 67 74 68 20 69 6e 74 65 67 65 72 20 73 69 7a  ngth integer siz
06c0: 65 20 70 61 72 61 6d 65 74 65 72 2e 0a 2a 2f 0a  e parameter..*/.
06d0: 73 74 61 74 69 63 20 76 6f 69 64 20 63 6f 6d 70  static void comp
06e0: 72 65 73 73 46 75 6e 63 28 0a 20 20 73 71 6c 69  ressFunc(.  sqli
06f0: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e  te3_context *con
0700: 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63  text,.  int argc
0710: 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  ,.  sqlite3_valu
0720: 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f  e **argv.){.  co
0730: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61  nst unsigned cha
0740: 72 20 2a 70 49 6e 3b 0a 20 20 75 6e 73 69 67 6e  r *pIn;.  unsign
0750: 65 64 20 63 68 61 72 20 2a 70 4f 75 74 3b 0a 20  ed char *pOut;. 
0760: 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 6e 49   unsigned int nI
0770: 6e 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f  n;.  unsigned lo
0780: 6e 67 20 69 6e 74 20 6e 4f 75 74 3b 0a 20 20 75  ng int nOut;.  u
0790: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 78 5b 38  nsigned char x[8
07a0: 5d 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69  ];.  int rc;.  i
07b0: 6e 74 20 69 2c 20 6a 3b 0a 0a 20 20 70 49 6e 20  nt i, j;..  pIn 
07c0: 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  = sqlite3_value_
07d0: 62 6c 6f 62 28 61 72 67 76 5b 30 5d 29 3b 0a 20  blob(argv[0]);. 
07e0: 20 6e 49 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76   nIn = sqlite3_v
07f0: 61 6c 75 65 5f 62 79 74 65 73 28 61 72 67 76 5b  alue_bytes(argv[
0800: 30 5d 29 3b 0a 20 20 6e 4f 75 74 20 3d 20 31 33  0]);.  nOut = 13
0810: 20 2b 20 6e 49 6e 20 2b 20 28 6e 49 6e 2b 39 39   + nIn + (nIn+99
0820: 39 29 2f 31 30 30 30 3b 0a 20 20 70 4f 75 74 20  9)/1000;.  pOut 
0830: 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63  = sqlite3_malloc
0840: 28 20 6e 4f 75 74 2b 35 20 29 3b 0a 20 20 66 6f  ( nOut+5 );.  fo
0850: 72 28 69 3d 34 3b 20 69 3e 3d 30 3b 20 69 2d 2d  r(i=4; i>=0; i--
0860: 29 7b 0a 20 20 20 20 78 5b 69 5d 20 3d 20 28 6e  ){.    x[i] = (n
0870: 49 6e 20 3e 3e 20 28 37 2a 28 34 2d 69 29 29 29  In >> (7*(4-i)))
0880: 26 30 78 37 66 3b 0a 20 20 7d 0a 20 20 66 6f 72  &0x7f;.  }.  for
0890: 28 69 3d 30 3b 20 69 3c 34 20 26 26 20 78 5b 69  (i=0; i<4 && x[i
08a0: 5d 3d 3d 30 3b 20 69 2b 2b 29 7b 7d 0a 20 20 66  ]==0; i++){}.  f
08b0: 6f 72 28 6a 3d 30 3b 20 69 3c 3d 34 3b 20 69 2b  or(j=0; i<=4; i+
08c0: 2b 2c 20 6a 2b 2b 29 20 70 4f 75 74 5b 6a 5d 20  +, j++) pOut[j] 
08d0: 3d 20 78 5b 69 5d 3b 0a 20 20 70 4f 75 74 5b 6a  = x[i];.  pOut[j
08e0: 2d 31 5d 20 7c 3d 20 30 78 38 30 3b 0a 20 20 72  -1] |= 0x80;.  r
08f0: 63 20 3d 20 63 6f 6d 70 72 65 73 73 28 26 70 4f  c = compress(&pO
0900: 75 74 5b 6a 5d 2c 20 26 6e 4f 75 74 2c 20 70 49  ut[j], &nOut, pI
0910: 6e 2c 20 6e 49 6e 29 3b 0a 20 20 69 66 28 20 72  n, nIn);.  if( r
0920: 63 3d 3d 5a 5f 4f 4b 20 29 7b 0a 20 20 20 20 73  c==Z_OK ){.    s
0930: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 6c  qlite3_result_bl
0940: 6f 62 28 63 6f 6e 74 65 78 74 2c 20 70 4f 75 74  ob(context, pOut
0950: 2c 20 6e 4f 75 74 2b 6a 2c 20 73 71 6c 69 74 65  , nOut+j, sqlite
0960: 33 5f 66 72 65 65 29 3b 0a 20 20 7d 65 6c 73 65  3_free);.  }else
0970: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72  {.    sqlite3_fr
0980: 65 65 28 70 4f 75 74 29 3b 0a 20 20 7d 0a 7d 0a  ee(pOut);.  }.}.
0990: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
09a0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 22 75 6e  ation of the "un
09b0: 63 6f 6d 70 72 65 73 73 28 58 29 22 20 53 51 4c  compress(X)" SQL
09c0: 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20   function.  The 
09d0: 61 72 67 75 6d 65 6e 74 20 58 0a 2a 2a 20 69 73  argument X.** is
09e0: 20 61 20 62 6c 6f 62 20 77 68 69 63 68 20 77 61   a blob which wa
09f0: 73 20 6f 62 74 61 69 6e 65 64 20 66 72 6f 6d 20  s obtained from 
0a00: 63 6f 6d 70 72 65 73 73 28 59 29 2e 20 20 54 68  compress(Y).  Th
0a10: 65 20 6f 75 74 70 75 74 20 77 69 6c 6c 20 62 65  e output will be
0a20: 0a 2a 2a 20 74 68 65 20 76 61 6c 75 65 20 59 2e  .** the value Y.
0a30: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
0a40: 75 6e 63 6f 6d 70 72 65 73 73 46 75 6e 63 28 0a  uncompressFunc(.
0a50: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78    sqlite3_contex
0a60: 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e  t *context,.  in
0a70: 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65  t argc,.  sqlite
0a80: 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29  3_value **argv.)
0a90: 7b 0a 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e  {.  const unsign
0aa0: 65 64 20 63 68 61 72 20 2a 70 49 6e 3b 0a 20 20  ed char *pIn;.  
0ab0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 70  unsigned char *p
0ac0: 4f 75 74 3b 0a 20 20 75 6e 73 69 67 6e 65 64 20  Out;.  unsigned 
0ad0: 69 6e 74 20 6e 49 6e 3b 0a 20 20 75 6e 73 69 67  int nIn;.  unsig
0ae0: 6e 65 64 20 6c 6f 6e 67 20 69 6e 74 20 6e 4f 75  ned long int nOu
0af0: 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 69  t;.  int rc;.  i
0b00: 6e 74 20 69 3b 0a 0a 20 20 70 49 6e 20 3d 20 73  nt i;..  pIn = s
0b10: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f  qlite3_value_blo
0b20: 62 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 6e 49  b(argv[0]);.  nI
0b30: 6e 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75  n = sqlite3_valu
0b40: 65 5f 62 79 74 65 73 28 61 72 67 76 5b 30 5d 29  e_bytes(argv[0])
0b50: 3b 0a 20 20 6e 4f 75 74 20 3d 20 30 3b 0a 20 20  ;.  nOut = 0;.  
0b60: 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 49 6e 20 26  for(i=0; i<nIn &
0b70: 26 20 69 3c 35 3b 20 69 2b 2b 29 7b 0a 20 20 20  & i<5; i++){.   
0b80: 20 6e 4f 75 74 20 3d 20 28 6e 4f 75 74 3c 3c 37   nOut = (nOut<<7
0b90: 29 20 7c 20 28 70 49 6e 5b 69 5d 26 30 78 37 66  ) | (pIn[i]&0x7f
0ba0: 29 3b 0a 20 20 20 20 69 66 28 20 28 70 49 6e 5b  );.    if( (pIn[
0bb0: 69 5d 26 30 78 38 30 29 21 3d 30 20 29 7b 20 69  i]&0x80)!=0 ){ i
0bc0: 2b 2b 3b 20 62 72 65 61 6b 3b 20 7d 0a 20 20 7d  ++; break; }.  }
0bd0: 0a 20 20 70 4f 75 74 20 3d 20 73 71 6c 69 74 65  .  pOut = sqlite
0be0: 33 5f 6d 61 6c 6c 6f 63 28 20 6e 4f 75 74 2b 31  3_malloc( nOut+1
0bf0: 20 29 3b 0a 20 20 72 63 20 3d 20 75 6e 63 6f 6d   );.  rc = uncom
0c00: 70 72 65 73 73 28 70 4f 75 74 2c 20 26 6e 4f 75  press(pOut, &nOu
0c10: 74 2c 20 26 70 49 6e 5b 69 5d 2c 20 6e 49 6e 2d  t, &pIn[i], nIn-
0c20: 69 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 5a 5f  i);.  if( rc==Z_
0c30: 4f 4b 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65  OK ){.    sqlite
0c40: 33 5f 72 65 73 75 6c 74 5f 62 6c 6f 62 28 63 6f  3_result_blob(co
0c50: 6e 74 65 78 74 2c 20 70 4f 75 74 2c 20 6e 4f 75  ntext, pOut, nOu
0c60: 74 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29  t, sqlite3_free)
0c70: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73  ;.  }else{.    s
0c80: 71 6c 69 74 65 33 5f 66 72 65 65 28 70 4f 75 74  qlite3_free(pOut
0c90: 29 3b 0a 20 20 7d 0a 7d 0a 0a 0a 23 69 66 64 65  );.  }.}...#ifde
0ca0: 66 20 5f 57 49 4e 33 32 0a 5f 5f 64 65 63 6c 73  f _WIN32.__decls
0cb0: 70 65 63 28 64 6c 6c 65 78 70 6f 72 74 29 0a 23  pec(dllexport).#
0cc0: 65 6e 64 69 66 0a 69 6e 74 20 73 71 6c 69 74 65  endif.int sqlite
0cd0: 33 5f 63 6f 6d 70 72 65 73 73 5f 69 6e 69 74 28  3_compress_init(
0ce0: 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62 2c 20  .  sqlite3 *db, 
0cf0: 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 72 72 4d  .  char **pzErrM
0d00: 73 67 2c 20 0a 20 20 63 6f 6e 73 74 20 73 71 6c  sg, .  const sql
0d10: 69 74 65 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65  ite3_api_routine
0d20: 73 20 2a 70 41 70 69 0a 29 7b 0a 20 20 69 6e 74  s *pApi.){.  int
0d30: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b   rc = SQLITE_OK;
0d40: 0a 20 20 53 51 4c 49 54 45 5f 45 58 54 45 4e 53  .  SQLITE_EXTENS
0d50: 49 4f 4e 5f 49 4e 49 54 32 28 70 41 70 69 29 3b  ION_INIT2(pApi);
0d60: 0a 20 20 28 76 6f 69 64 29 70 7a 45 72 72 4d 73  .  (void)pzErrMs
0d70: 67 3b 20 20 2f 2a 20 55 6e 75 73 65 64 20 70 61  g;  /* Unused pa
0d80: 72 61 6d 65 74 65 72 20 2a 2f 0a 20 20 72 63 20  rameter */.  rc 
0d90: 3d 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65  = sqlite3_create
0da0: 5f 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 63  _function(db, "c
0db0: 6f 6d 70 72 65 73 73 22 2c 20 31 2c 20 53 51 4c  ompress", 1, SQL
0dc0: 49 54 45 5f 55 54 46 38 2c 20 30 2c 0a 20 20 20  ITE_UTF8, 0,.   
0dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0de0: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 70              comp
0df0: 72 65 73 73 46 75 6e 63 2c 20 30 2c 20 30 29 3b  ressFunc, 0, 0);
0e00: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54  .  if( rc==SQLIT
0e10: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d  E_OK ){.    rc =
0e20: 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f   sqlite3_create_
0e30: 66 75 6e 63 74 69 6f 6e 28 64 62 2c 20 22 75 6e  function(db, "un
0e40: 63 6f 6d 70 72 65 73 73 22 2c 20 31 2c 20 53 51  compress", 1, SQ
0e50: 4c 49 54 45 5f 55 54 46 38 2c 20 30 2c 0a 20 20  LITE_UTF8, 0,.  
0e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75                 u
0e80: 6e 63 6f 6d 70 72 65 73 73 46 75 6e 63 2c 20 30  ncompressFunc, 0
0e90: 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75  , 0);.  }.  retu
0ea0: 72 6e 20 72 63 3b 0a 7d 0a                       rn rc;.}.