/ Hex Artifact Content
Login

Artifact 29b7fc94752fff6245cf4a81455f98cf6778ec1102ca7e67bf693d41a7db4307:


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: 66 75 6e 63 74 69 6f 6e 73 20 72 65 61 64 66 69  functions readfi
01b0: 6c 65 28 29 20 61 6e 64 0a 2a 2a 20 77 72 69 74  le() and.** writ
01c0: 65 66 69 6c 65 28 29 2e 0a 2a 2a 0a 2a 2a 20 41  efile()..**.** A
01d0: 6c 73 6f 2c 20 61 6e 20 65 70 6f 6e 79 6d 6f 75  lso, an eponymou
01e0: 73 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20  s virtual table 
01f0: 74 79 70 65 20 22 66 73 64 69 72 22 2e 20 55 73  type "fsdir". Us
0200: 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a  ed as follows:.*
0210: 2a 0a 2a 2a 20 20 20 53 45 4c 45 43 54 20 2a 20  *.**   SELECT * 
0220: 46 52 4f 4d 20 66 73 64 69 72 28 24 64 69 72 6e  FROM fsdir($dirn
0230: 61 6d 65 29 3b 0a 2a 2a 0a 2a 2a 20 52 65 74 75  ame);.**.** Retu
0240: 72 6e 73 20 6f 6e 65 20 72 6f 77 20 66 6f 72 20  rns one row for 
0250: 65 61 63 68 20 65 6e 74 72 79 20 69 6e 20 74 68  each entry in th
0260: 65 20 64 69 72 65 63 74 6f 72 79 20 24 64 69 72  e directory $dir
0270: 6e 61 6d 65 2e 20 4e 6f 20 72 6f 77 20 69 73 0a  name. No row is.
0280: 2a 2a 20 72 65 74 75 72 6e 65 64 20 66 6f 72 20  ** returned for 
0290: 22 2e 22 20 6f 72 20 22 2e 2e 22 2e 20 52 6f 77  "." or "..". Row
02a0: 20 63 6f 6c 75 6d 6e 73 20 61 72 65 20 61 73 20   columns are as 
02b0: 66 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20  follows:.**.**  
02c0: 20 6e 61 6d 65 3a 20 20 4e 61 6d 65 20 6f 66 20   name:  Name of 
02d0: 64 69 72 65 63 74 6f 72 79 20 65 6e 74 72 79 2e  directory entry.
02e0: 0a 2a 2a 20 20 20 6d 6f 64 65 3a 20 20 56 61 6c  .**   mode:  Val
02f0: 75 65 20 6f 66 20 73 74 61 74 2e 73 74 5f 6d 6f  ue of stat.st_mo
0300: 64 65 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79  de for directory
0310: 20 65 6e 74 72 79 2e 0a 2a 2a 20 20 20 6d 74 69   entry..**   mti
0320: 6d 65 3a 20 56 61 6c 75 65 20 6f 66 20 73 74 61  me: Value of sta
0330: 74 2e 73 74 5f 6d 74 69 6d 65 20 66 6f 72 20 64  t.st_mtime for d
0340: 69 72 65 63 74 6f 72 79 20 65 6e 74 72 79 2e 0a  irectory entry..
0350: 2a 2a 20 20 20 64 61 74 61 3a 20 20 46 6f 72 20  **   data:  For 
0360: 61 20 72 65 67 75 6c 61 72 20 66 69 6c 65 2c 20  a regular file, 
0370: 61 20 62 6c 6f 62 20 63 6f 6e 74 61 69 6e 69 6e  a blob containin
0380: 67 20 74 68 65 20 66 69 6c 65 20 64 61 74 61 2e  g the file data.
0390: 20 46 6f 72 20 61 0a 2a 2a 20 20 20 20 20 20 20   For a.**       
03a0: 20 20 20 73 79 6d 6c 69 6e 6b 2c 20 61 20 74 65     symlink, a te
03b0: 78 74 20 76 61 6c 75 65 20 63 6f 6e 74 61 69 6e  xt value contain
03c0: 69 6e 67 20 74 68 65 20 74 65 78 74 20 6f 66 20  ing the text of 
03d0: 74 68 65 20 6c 69 6e 6b 2e 20 46 6f 72 20 61 0a  the link. For a.
03e0: 2a 2a 20 20 20 20 20 20 20 20 20 20 64 69 72 65  **          dire
03f0: 63 74 6f 72 79 2c 20 4e 55 4c 4c 2e 0a 2a 2f 0a  ctory, NULL..*/.
0400: 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65  #include "sqlite
0410: 33 65 78 74 2e 68 22 0a 53 51 4c 49 54 45 5f 45  3ext.h".SQLITE_E
0420: 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 31 0a 23  XTENSION_INIT1.#
0430: 69 6e 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68  include <stdio.h
0440: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69  >.#include <stri
0450: 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c  ng.h>.#include <
0460: 61 73 73 65 72 74 2e 68 3e 0a 0a 23 69 6e 63 6c  assert.h>..#incl
0470: 75 64 65 20 3c 73 79 73 2f 74 79 70 65 73 2e 68  ude <sys/types.h
0480: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f  >.#include <sys/
0490: 73 74 61 74 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  stat.h>.#include
04a0: 20 3c 66 63 6e 74 6c 2e 68 3e 0a 23 69 6e 63 6c   <fcntl.h>.#incl
04b0: 75 64 65 20 3c 75 6e 69 73 74 64 2e 68 3e 0a 23  ude <unistd.h>.#
04c0: 69 6e 63 6c 75 64 65 20 3c 64 69 72 65 6e 74 2e  include <dirent.
04d0: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 74 69 6d  h>.#include <tim
04e0: 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 75  e.h>.#include <u
04f0: 74 69 6d 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  time.h>.#include
0500: 20 3c 65 72 72 6e 6f 2e 68 3e 0a 0a 0a 23 64 65   <errno.h>...#de
0510: 66 69 6e 65 20 46 53 44 49 52 5f 53 43 48 45 4d  fine FSDIR_SCHEM
0520: 41 20 22 28 6e 61 6d 65 2c 6d 6f 64 65 2c 6d 74  A "(name,mode,mt
0530: 69 6d 65 2c 64 61 74 61 2c 70 61 74 68 20 48 49  ime,data,path HI
0540: 44 44 45 4e 2c 64 69 72 20 48 49 44 44 45 4e 29  DDEN,dir HIDDEN)
0550: 22 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72  "..static void r
0560: 65 61 64 46 69 6c 65 43 6f 6e 74 65 6e 74 73 28  eadFileContents(
0570: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
0580: 2a 63 74 78 2c 20 63 6f 6e 73 74 20 63 68 61 72  *ctx, const char
0590: 20 2a 7a 4e 61 6d 65 29 7b 0a 20 20 46 49 4c 45   *zName){.  FILE
05a0: 20 2a 69 6e 3b 0a 20 20 6c 6f 6e 67 20 6e 49 6e   *in;.  long nIn
05b0: 3b 0a 20 20 76 6f 69 64 20 2a 70 42 75 66 3b 0a  ;.  void *pBuf;.
05c0: 0a 20 20 69 6e 20 3d 20 66 6f 70 65 6e 28 7a 4e  .  in = fopen(zN
05d0: 61 6d 65 2c 20 22 72 62 22 29 3b 0a 20 20 69 66  ame, "rb");.  if
05e0: 28 20 69 6e 3d 3d 30 20 29 20 72 65 74 75 72 6e  ( in==0 ) return
05f0: 3b 0a 20 20 66 73 65 65 6b 28 69 6e 2c 20 30 2c  ;.  fseek(in, 0,
0600: 20 53 45 45 4b 5f 45 4e 44 29 3b 0a 20 20 6e 49   SEEK_END);.  nI
0610: 6e 20 3d 20 66 74 65 6c 6c 28 69 6e 29 3b 0a 20  n = ftell(in);. 
0620: 20 72 65 77 69 6e 64 28 69 6e 29 3b 0a 20 20 70   rewind(in);.  p
0630: 42 75 66 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61  Buf = sqlite3_ma
0640: 6c 6c 6f 63 28 20 6e 49 6e 20 29 3b 0a 20 20 69  lloc( nIn );.  i
0650: 66 28 20 70 42 75 66 20 26 26 20 31 3d 3d 66 72  f( pBuf && 1==fr
0660: 65 61 64 28 70 42 75 66 2c 20 6e 49 6e 2c 20 31  ead(pBuf, nIn, 1
0670: 2c 20 69 6e 29 20 29 7b 0a 20 20 20 20 73 71 6c  , in) ){.    sql
0680: 69 74 65 33 5f 72 65 73 75 6c 74 5f 62 6c 6f 62  ite3_result_blob
0690: 28 63 74 78 2c 20 70 42 75 66 2c 20 6e 49 6e 2c  (ctx, pBuf, nIn,
06a0: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 29 3b 0a   sqlite3_free);.
06b0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c    }else{.    sql
06c0: 69 74 65 33 5f 66 72 65 65 28 70 42 75 66 29 3b  ite3_free(pBuf);
06d0: 0a 20 20 7d 0a 20 20 66 63 6c 6f 73 65 28 69 6e  .  }.  fclose(in
06e0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c  );.}../*.** Impl
06f0: 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68  ementation of th
0700: 65 20 22 72 65 61 64 66 69 6c 65 28 58 29 22 20  e "readfile(X)" 
0710: 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e 20 20 54  SQL function.  T
0720: 68 65 20 65 6e 74 69 72 65 20 63 6f 6e 74 65 6e  he entire conten
0730: 74 0a 2a 2a 20 6f 66 20 74 68 65 20 66 69 6c 65  t.** of the file
0740: 20 6e 61 6d 65 64 20 58 20 69 73 20 72 65 61 64   named X is read
0750: 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20 61 73   and returned as
0760: 20 61 20 42 4c 4f 42 2e 20 20 4e 55 4c 4c 20 69   a BLOB.  NULL i
0770: 73 20 72 65 74 75 72 6e 65 64 0a 2a 2a 20 69 66  s returned.** if
0780: 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e   the file does n
0790: 6f 74 20 65 78 69 73 74 20 6f 72 20 69 73 20 75  ot exist or is u
07a0: 6e 72 65 61 64 61 62 6c 65 2e 0a 2a 2f 0a 73 74  nreadable..*/.st
07b0: 61 74 69 63 20 76 6f 69 64 20 72 65 61 64 66 69  atic void readfi
07c0: 6c 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65  leFunc(.  sqlite
07d0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65  3_context *conte
07e0: 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a  xt,.  int argc,.
07f0: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20    sqlite3_value 
0800: 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73  **argv.){.  cons
0810: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20  t char *zName;. 
0820: 20 28 76 6f 69 64 29 28 61 72 67 63 29 3b 20 20   (void)(argc);  
0830: 2f 2a 20 55 6e 75 73 65 64 20 70 61 72 61 6d 65  /* Unused parame
0840: 74 65 72 20 2a 2f 0a 20 20 7a 4e 61 6d 65 20 3d  ter */.  zName =
0850: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71   (const char*)sq
0860: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
0870: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28  (argv[0]);.  if(
0880: 20 7a 4e 61 6d 65 3d 3d 30 20 29 20 72 65 74 75   zName==0 ) retu
0890: 72 6e 3b 0a 20 20 72 65 61 64 46 69 6c 65 43 6f  rn;.  readFileCo
08a0: 6e 74 65 6e 74 73 28 63 6f 6e 74 65 78 74 2c 20  ntents(context, 
08b0: 7a 4e 61 6d 65 29 3b 0a 7d 0a 0a 73 74 61 74 69  zName);.}..stati
08c0: 63 20 76 6f 69 64 20 63 74 78 45 72 72 6f 72 4d  c void ctxErrorM
08d0: 73 67 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  sg(sqlite3_conte
08e0: 78 74 20 2a 63 74 78 2c 20 63 6f 6e 73 74 20 63  xt *ctx, const c
08f0: 68 61 72 20 2a 7a 46 6d 74 2c 20 2e 2e 2e 29 7b  har *zFmt, ...){
0900: 0a 20 20 63 68 61 72 20 2a 7a 4d 73 67 20 3d 20  .  char *zMsg = 
0910: 30 3b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b  0;.  va_list ap;
0920: 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20  .  va_start(ap, 
0930: 7a 46 6d 74 29 3b 0a 20 20 7a 4d 73 67 20 3d 20  zFmt);.  zMsg = 
0940: 73 71 6c 69 74 65 33 5f 76 6d 70 72 69 6e 74 66  sqlite3_vmprintf
0950: 28 7a 46 6d 74 2c 20 61 70 29 3b 0a 20 20 73 71  (zFmt, ap);.  sq
0960: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72  lite3_result_err
0970: 6f 72 28 63 74 78 2c 20 7a 4d 73 67 2c 20 2d 31  or(ctx, zMsg, -1
0980: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65  );.  sqlite3_fre
0990: 65 28 7a 4d 73 67 29 3b 0a 20 20 76 61 5f 65 6e  e(zMsg);.  va_en
09a0: 64 28 61 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  d(ap);.}../*.** 
09b0: 41 72 67 75 6d 65 6e 74 20 7a 46 69 6c 65 20 69  Argument zFile i
09c0: 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20  s the name of a 
09d0: 66 69 6c 65 20 74 68 61 74 20 77 69 6c 6c 20 62  file that will b
09e0: 65 20 63 72 65 61 74 65 64 20 61 6e 64 2f 6f 72  e created and/or
09f0: 20 77 72 69 74 74 65 6e 0a 2a 2a 20 62 79 20 53   written.** by S
0a00: 51 4c 20 66 75 6e 63 74 69 6f 6e 20 77 72 69 74  QL function writ
0a10: 65 66 69 6c 65 28 29 2e 20 54 68 69 73 20 66 75  efile(). This fu
0a20: 6e 63 74 69 6f 6e 20 65 6e 73 75 72 65 73 20 74  nction ensures t
0a30: 68 61 74 20 74 68 65 20 64 69 72 65 63 74 6f 72  hat the director
0a40: 79 0a 2a 2a 20 7a 46 69 6c 65 20 77 69 6c 6c 20  y.** zFile will 
0a50: 62 65 20 77 72 69 74 74 65 6e 20 74 6f 20 65 78  be written to ex
0a60: 69 73 74 73 2c 20 63 72 65 61 74 69 6e 67 20 69  ists, creating i
0a70: 74 20 69 66 20 72 65 71 75 69 72 65 64 2e 20 54  t if required. T
0a80: 68 65 20 70 65 72 6d 69 73 73 69 6f 6e 73 0a 2a  he permissions.*
0a90: 2a 20 66 6f 72 20 61 6e 79 20 70 61 74 68 20 63  * for any path c
0aa0: 6f 6d 70 6f 6e 65 6e 74 73 20 63 72 65 61 74 65  omponents create
0ab0: 64 20 62 79 20 74 68 69 73 20 66 75 6e 63 74 69  d by this functi
0ac0: 6f 6e 20 61 72 65 20 73 65 74 20 74 6f 20 28 6d  on are set to (m
0ad0: 6f 64 65 26 30 37 37 37 29 2e 0a 2a 2a 0a 2a 2a  ode&0777)..**.**
0ae0: 20 49 66 20 61 6e 20 4f 4f 4d 20 63 6f 6e 64 69   If an OOM condi
0af0: 74 69 6f 6e 20 69 73 20 65 6e 63 6f 75 6e 74 65  tion is encounte
0b00: 72 65 64 2c 20 53 51 4c 49 54 45 5f 4e 4f 4d 45  red, SQLITE_NOME
0b10: 4d 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 4f  M is returned. O
0b20: 74 68 65 72 77 69 73 65 2c 0a 2a 2a 20 53 51 4c  therwise,.** SQL
0b30: 49 54 45 5f 4f 4b 20 69 73 20 72 65 74 75 72 6e  ITE_OK is return
0b40: 65 64 20 69 66 20 74 68 65 20 64 69 72 65 63 74  ed if the direct
0b50: 6f 72 79 20 69 73 20 73 75 63 63 65 73 73 66 75  ory is successfu
0b60: 6c 6c 79 20 63 72 65 61 74 65 64 2c 20 6f 72 0a  lly created, or.
0b70: 2a 2a 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 20  ** SQLITE_ERROR 
0b80: 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f 0a 73 74  otherwise..*/.st
0b90: 61 74 69 63 20 69 6e 74 20 6d 61 6b 65 44 69 72  atic int makeDir
0ba0: 65 63 74 6f 72 79 28 0a 20 20 63 6f 6e 73 74 20  ectory(.  const 
0bb0: 63 68 61 72 20 2a 7a 46 69 6c 65 2c 0a 20 20 6d  char *zFile,.  m
0bc0: 6f 64 65 5f 74 20 6d 6f 64 65 0a 29 7b 0a 20 20  ode_t mode.){.  
0bd0: 63 68 61 72 20 2a 7a 43 6f 70 79 20 3d 20 73 71  char *zCopy = sq
0be0: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25  lite3_mprintf("%
0bf0: 73 22 2c 20 7a 46 69 6c 65 29 3b 0a 20 20 69 6e  s", zFile);.  in
0c00: 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b  t rc = SQLITE_OK
0c10: 3b 0a 0a 20 20 69 66 28 20 7a 43 6f 70 79 3d 3d  ;..  if( zCopy==
0c20: 30 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 53 51  0 ){.    rc = SQ
0c30: 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 65  LITE_NOMEM;.  }e
0c40: 6c 73 65 7b 0a 20 20 20 20 69 6e 74 20 6e 43 6f  lse{.    int nCo
0c50: 70 79 20 3d 20 73 74 72 6c 65 6e 28 7a 43 6f 70  py = strlen(zCop
0c60: 79 29 3b 0a 20 20 20 20 69 6e 74 20 69 20 3d 20  y);.    int i = 
0c70: 31 3b 0a 0a 20 20 20 20 77 68 69 6c 65 28 20 72  1;..    while( r
0c80: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
0c90: 20 20 20 20 20 20 73 74 72 75 63 74 20 73 74 61        struct sta
0ca0: 74 20 73 53 74 61 74 3b 0a 20 20 20 20 20 20 69  t sStat;.      i
0cb0: 6e 74 20 72 63 3b 0a 0a 20 20 20 20 20 20 66 6f  nt rc;..      fo
0cc0: 72 28 3b 20 7a 43 6f 70 79 5b 69 5d 21 3d 27 2f  r(; zCopy[i]!='/
0cd0: 27 20 26 26 20 69 3c 6e 43 6f 70 79 3b 20 69 2b  ' && i<nCopy; i+
0ce0: 2b 29 3b 0a 20 20 20 20 20 20 69 66 28 20 69 3d  +);.      if( i=
0cf0: 3d 6e 43 6f 70 79 20 29 20 62 72 65 61 6b 3b 0a  =nCopy ) break;.
0d00: 20 20 20 20 20 20 7a 43 6f 70 79 5b 69 5d 20 3d        zCopy[i] =
0d10: 20 27 5c 30 27 3b 0a 0a 20 20 20 20 20 20 72 63   '\0';..      rc
0d20: 20 3d 20 73 74 61 74 28 7a 43 6f 70 79 2c 20 26   = stat(zCopy, &
0d30: 73 53 74 61 74 29 3b 0a 20 20 20 20 20 20 69 66  sStat);.      if
0d40: 28 20 72 63 21 3d 30 20 29 7b 0a 20 20 20 20 20  ( rc!=0 ){.     
0d50: 20 20 20 69 66 28 20 6d 6b 64 69 72 28 7a 43 6f     if( mkdir(zCo
0d60: 70 79 2c 20 6d 6f 64 65 20 26 20 30 37 37 37 29  py, mode & 0777)
0d70: 20 29 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 45   ) rc = SQLITE_E
0d80: 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 65 6c 73  RROR;.      }els
0d90: 65 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 21  e{.        if( !
0da0: 53 5f 49 53 44 49 52 28 73 53 74 61 74 2e 73 74  S_ISDIR(sStat.st
0db0: 5f 6d 6f 64 65 29 20 29 20 72 63 20 3d 20 53 51  _mode) ) rc = SQ
0dc0: 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20  LITE_ERROR;.    
0dd0: 20 20 7d 0a 20 20 20 20 20 20 7a 43 6f 70 79 5b    }.      zCopy[
0de0: 69 5d 20 3d 20 27 2f 27 3b 0a 20 20 20 20 20 20  i] = '/';.      
0df0: 69 2b 2b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  i++;.    }..    
0e00: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 43 6f  sqlite3_free(zCo
0e10: 70 79 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75  py);.  }..  retu
0e20: 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63  rn rc;.}..static
0e30: 20 69 6e 74 20 77 72 69 74 65 46 69 6c 65 28 0a   int writeFile(.
0e40: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78    sqlite3_contex
0e50: 74 20 2a 70 43 74 78 2c 20 0a 20 20 63 6f 6e 73  t *pCtx, .  cons
0e60: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 2c 20 0a  t char *zFile, .
0e70: 20 20 6d 6f 64 65 5f 74 20 6d 6f 64 65 2c 20 0a    mode_t mode, .
0e80: 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20    sqlite3_value 
0e90: 2a 70 44 61 74 61 0a 29 7b 0a 20 20 69 66 28 20  *pData.){.  if( 
0ea0: 53 5f 49 53 4c 4e 4b 28 6d 6f 64 65 29 20 29 7b  S_ISLNK(mode) ){
0eb0: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20  .    const char 
0ec0: 2a 7a 54 6f 20 3d 20 28 63 6f 6e 73 74 20 63 68  *zTo = (const ch
0ed0: 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75  ar*)sqlite3_valu
0ee0: 65 5f 74 65 78 74 28 70 44 61 74 61 29 3b 0a 20  e_text(pData);. 
0ef0: 20 20 20 69 66 28 20 73 79 6d 6c 69 6e 6b 28 7a     if( symlink(z
0f00: 54 6f 2c 20 7a 46 69 6c 65 29 3c 30 20 29 20 72  To, zFile)<0 ) r
0f10: 65 74 75 72 6e 20 31 3b 0a 20 20 7d 65 6c 73 65  eturn 1;.  }else
0f20: 7b 0a 20 20 20 20 69 66 28 20 53 5f 49 53 44 49  {.    if( S_ISDI
0f30: 52 28 6d 6f 64 65 29 20 29 7b 0a 20 20 20 20 20  R(mode) ){.     
0f40: 20 69 66 28 20 6d 6b 64 69 72 28 7a 46 69 6c 65   if( mkdir(zFile
0f50: 2c 20 6d 6f 64 65 29 20 29 7b 0a 20 20 20 20 20  , mode) ){.     
0f60: 20 20 20 2f 2a 20 54 68 65 20 6d 6b 64 69 72 28     /* The mkdir(
0f70: 29 20 63 61 6c 6c 20 74 6f 20 63 72 65 61 74 65  ) call to create
0f80: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 66   the directory f
0f90: 61 69 6c 65 64 2e 20 54 68 69 73 20 6d 69 67 68  ailed. This migh
0fa0: 74 20 6e 6f 74 0a 20 20 20 20 20 20 20 20 2a 2a  t not.        **
0fb0: 20 62 65 20 61 6e 20 65 72 72 6f 72 20 74 68 6f   be an error tho
0fc0: 75 67 68 20 2d 20 69 66 20 74 68 65 72 65 20 69  ugh - if there i
0fd0: 73 20 61 6c 72 65 61 64 79 20 61 20 64 69 72 65  s already a dire
0fe0: 63 74 6f 72 79 20 61 74 20 74 68 65 20 73 61 6d  ctory at the sam
0ff0: 65 0a 20 20 20 20 20 20 20 20 2a 2a 20 70 61 74  e.        ** pat
1000: 68 20 61 6e 64 20 65 69 74 68 65 72 20 74 68 65  h and either the
1010: 20 70 65 72 6d 69 73 73 69 6f 6e 73 20 61 6c 72   permissions alr
1020: 65 61 64 79 20 6d 61 74 63 68 20 6f 72 20 63 61  eady match or ca
1030: 6e 20 62 65 20 63 68 61 6e 67 65 64 0a 20 20 20  n be changed.   
1040: 20 20 20 20 20 2a 2a 20 74 6f 20 64 6f 20 73 6f       ** to do so
1050: 20 75 73 69 6e 67 20 63 68 6d 6f 64 28 29 2c 20   using chmod(), 
1060: 69 74 20 69 73 20 6e 6f 74 20 61 6e 20 65 72 72  it is not an err
1070: 6f 72 2e 20 20 2a 2f 0a 20 20 20 20 20 20 20 20  or.  */.        
1080: 73 74 72 75 63 74 20 73 74 61 74 20 73 53 74 61  struct stat sSta
1090: 74 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 65  t;.        if( e
10a0: 72 72 6e 6f 21 3d 45 45 58 49 53 54 0a 20 20 20  rrno!=EEXIST.   
10b0: 20 20 20 20 20 20 7c 7c 20 30 21 3d 73 74 61 74        || 0!=stat
10c0: 28 7a 46 69 6c 65 2c 20 26 73 53 74 61 74 29 0a  (zFile, &sStat).
10d0: 20 20 20 20 20 20 20 20 20 7c 7c 20 21 53 5f 49           || !S_I
10e0: 53 44 49 52 28 73 53 74 61 74 2e 73 74 5f 6d 6f  SDIR(sStat.st_mo
10f0: 64 65 29 0a 20 20 20 20 20 20 20 20 20 7c 7c 20  de).         || 
1100: 28 28 73 53 74 61 74 2e 73 74 5f 6d 6f 64 65 26  ((sStat.st_mode&
1110: 30 37 37 37 29 21 3d 28 6d 6f 64 65 26 30 37 37  0777)!=(mode&077
1120: 37 29 20 26 26 20 30 21 3d 63 68 6d 6f 64 28 7a  7) && 0!=chmod(z
1130: 46 69 6c 65 2c 20 6d 6f 64 65 26 30 37 37 37 29  File, mode&0777)
1140: 29 0a 20 20 20 20 20 20 20 20 29 7b 0a 20 20 20  ).        ){.   
1150: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b         return 1;
1160: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
1170: 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20   }.    }else{.  
1180: 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36      sqlite3_int6
1190: 34 20 6e 57 72 69 74 65 20 3d 20 30 3b 0a 20 20  4 nWrite = 0;.  
11a0: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a      const char *
11b0: 7a 3b 0a 20 20 20 20 20 20 69 6e 74 20 72 63 20  z;.      int rc 
11c0: 3d 20 30 3b 0a 20 20 20 20 20 20 46 49 4c 45 20  = 0;.      FILE 
11d0: 2a 6f 75 74 20 3d 20 66 6f 70 65 6e 28 7a 46 69  *out = fopen(zFi
11e0: 6c 65 2c 20 22 77 62 22 29 3b 0a 20 20 20 20 20  le, "wb");.     
11f0: 20 69 66 28 20 6f 75 74 3d 3d 30 20 29 20 72 65   if( out==0 ) re
1200: 74 75 72 6e 20 31 3b 0a 20 20 20 20 20 20 7a 20  turn 1;.      z 
1210: 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73  = (const char*)s
1220: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 6c 6f  qlite3_value_blo
1230: 62 28 70 44 61 74 61 29 3b 0a 20 20 20 20 20 20  b(pData);.      
1240: 69 66 28 20 7a 20 29 7b 0a 20 20 20 20 20 20 20  if( z ){.       
1250: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 6e   sqlite3_int64 n
1260: 20 3d 20 66 77 72 69 74 65 28 7a 2c 20 31 2c 20   = fwrite(z, 1, 
1270: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79  sqlite3_value_by
1280: 74 65 73 28 70 44 61 74 61 29 2c 20 6f 75 74 29  tes(pData), out)
1290: 3b 0a 20 20 20 20 20 20 20 20 6e 57 72 69 74 65  ;.        nWrite
12a0: 20 3d 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65   = sqlite3_value
12b0: 5f 62 79 74 65 73 28 70 44 61 74 61 29 3b 0a 20  _bytes(pData);. 
12c0: 20 20 20 20 20 20 20 69 66 28 20 6e 57 72 69 74         if( nWrit
12d0: 65 21 3d 6e 20 29 7b 0a 20 20 20 20 20 20 20 20  e!=n ){.        
12e0: 20 20 72 63 20 3d 20 31 3b 0a 20 20 20 20 20 20    rc = 1;.      
12f0: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20    }.      }.    
1300: 20 20 66 63 6c 6f 73 65 28 6f 75 74 29 3b 0a 20    fclose(out);. 
1310: 20 20 20 20 20 69 66 28 20 72 63 3d 3d 30 20 26       if( rc==0 &
1320: 26 20 63 68 6d 6f 64 28 7a 46 69 6c 65 2c 20 6d  & chmod(zFile, m
1330: 6f 64 65 20 26 20 30 37 37 37 29 20 29 7b 0a 20  ode & 0777) ){. 
1340: 20 20 20 20 20 20 20 72 63 20 3d 20 31 3b 0a 20         rc = 1;. 
1350: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
1360: 20 72 63 20 29 20 72 65 74 75 72 6e 20 32 3b 0a   rc ) return 2;.
1370: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
1380: 73 75 6c 74 5f 69 6e 74 36 34 28 70 43 74 78 2c  sult_int64(pCtx,
1390: 20 6e 57 72 69 74 65 29 3b 0a 20 20 20 20 7d 0a   nWrite);.    }.
13a0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a    }.  return 0;.
13b0: 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65  }../*.** Impleme
13c0: 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 22  ntation of the "
13d0: 77 72 69 74 65 66 69 6c 65 28 57 2c 58 5b 2c 59  writefile(W,X[,Y
13e0: 5d 5d 29 22 20 53 51 4c 20 66 75 6e 63 74 69 6f  ]])" SQL functio
13f0: 6e 2e 20 20 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61  n.  .**.** The a
1400: 72 67 75 6d 65 6e 74 20 58 20 69 73 20 77 72 69  rgument X is wri
1410: 74 74 65 6e 20 69 6e 74 6f 20 66 69 6c 65 20 57  tten into file W
1420: 2e 20 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66  .  The number of
1430: 20 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 69   bytes written i
1440: 73 0a 2a 2a 20 72 65 74 75 72 6e 65 64 2e 20 4f  s.** returned. O
1450: 72 20 4e 55 4c 4c 20 69 73 20 72 65 74 75 72 6e  r NULL is return
1460: 65 64 20 69 66 20 73 6f 6d 65 74 68 69 6e 67 20  ed if something 
1470: 67 6f 65 73 20 77 72 6f 6e 67 2c 20 73 75 63 68  goes wrong, such
1480: 20 61 73 20 62 65 69 6e 67 20 75 6e 61 62 6c 65   as being unable
1490: 0a 2a 2a 20 74 6f 20 6f 70 65 6e 20 66 69 6c 65  .** to open file
14a0: 20 58 20 66 6f 72 20 77 72 69 74 69 6e 67 2e 0a   X for writing..
14b0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 77  */.static void w
14c0: 72 69 74 65 66 69 6c 65 46 75 6e 63 28 0a 20 20  ritefileFunc(.  
14d0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
14e0: 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20  *context,.  int 
14f0: 61 72 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f  argc,.  sqlite3_
1500: 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a  value **argv.){.
1510: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46    const char *zF
1520: 69 6c 65 3b 0a 20 20 6d 6f 64 65 5f 74 20 6d 6f  ile;.  mode_t mo
1530: 64 65 20 3d 20 30 3b 0a 20 20 69 6e 74 20 72 65  de = 0;.  int re
1540: 73 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 3c 32  s;..  if( argc<2
1550: 20 7c 7c 20 61 72 67 63 3e 33 20 29 7b 0a 20 20   || argc>3 ){.  
1560: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
1570: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20  _error(context, 
1580: 0a 20 20 20 20 20 20 20 20 22 77 72 6f 6e 67 20  .        "wrong 
1590: 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  number of argume
15a0: 6e 74 73 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20  nts to function 
15b0: 77 72 69 74 65 66 69 6c 65 28 29 22 2c 20 2d 31  writefile()", -1
15c0: 0a 20 20 20 20 29 3b 0a 20 20 20 20 72 65 74 75  .    );.    retu
15d0: 72 6e 3b 0a 20 20 7d 0a 0a 20 20 7a 46 69 6c 65  rn;.  }..  zFile
15e0: 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29   = (const char*)
15f0: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65  sqlite3_value_te
1600: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69  xt(argv[0]);.  i
1610: 66 28 20 7a 46 69 6c 65 3d 3d 30 20 29 20 72 65  f( zFile==0 ) re
1620: 74 75 72 6e 3b 0a 20 20 69 66 28 20 61 72 67 63  turn;.  if( argc
1630: 3e 3d 33 20 29 7b 0a 20 20 20 20 73 71 6c 69 74  >=3 ){.    sqlit
1640: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 28 63 6f  e3_result_int(co
1650: 6e 74 65 78 74 2c 20 30 29 3b 0a 20 20 20 20 6d  ntext, 0);.    m
1660: 6f 64 65 20 3d 20 73 71 6c 69 74 65 33 5f 76 61  ode = sqlite3_va
1670: 6c 75 65 5f 69 6e 74 28 61 72 67 76 5b 32 5d 29  lue_int(argv[2])
1680: 3b 0a 20 20 7d 0a 0a 20 20 72 65 73 20 3d 20 77  ;.  }..  res = w
1690: 72 69 74 65 46 69 6c 65 28 63 6f 6e 74 65 78 74  riteFile(context
16a0: 2c 20 7a 46 69 6c 65 2c 20 6d 6f 64 65 2c 20 61  , zFile, mode, a
16b0: 72 67 76 5b 31 5d 29 3b 0a 20 20 69 66 28 20 72  rgv[1]);.  if( r
16c0: 65 73 3d 3d 31 20 26 26 20 65 72 72 6e 6f 3d 3d  es==1 && errno==
16d0: 45 4e 4f 45 4e 54 20 29 7b 0a 20 20 20 20 69 66  ENOENT ){.    if
16e0: 28 20 6d 61 6b 65 44 69 72 65 63 74 6f 72 79 28  ( makeDirectory(
16f0: 7a 46 69 6c 65 2c 20 6d 6f 64 65 29 3d 3d 53 51  zFile, mode)==SQ
1700: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20  LITE_OK ){.     
1710: 20 72 65 73 20 3d 20 77 72 69 74 65 46 69 6c 65   res = writeFile
1720: 28 63 6f 6e 74 65 78 74 2c 20 7a 46 69 6c 65 2c  (context, zFile,
1730: 20 6d 6f 64 65 2c 20 61 72 67 76 5b 31 5d 29 3b   mode, argv[1]);
1740: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 69 66  .    }.  }..  if
1750: 28 20 72 65 73 21 3d 30 20 29 7b 0a 20 20 20 20  ( res!=0 ){.    
1760: 69 66 28 20 53 5f 49 53 4c 4e 4b 28 6d 6f 64 65  if( S_ISLNK(mode
1770: 29 20 29 7b 0a 20 20 20 20 20 20 63 74 78 45 72  ) ){.      ctxEr
1780: 72 6f 72 4d 73 67 28 63 6f 6e 74 65 78 74 2c 20  rorMsg(context, 
1790: 22 66 61 69 6c 65 64 20 74 6f 20 63 72 65 61 74  "failed to creat
17a0: 65 20 73 79 6d 6c 69 6e 6b 3a 20 25 73 22 2c 20  e symlink: %s", 
17b0: 7a 46 69 6c 65 29 3b 0a 20 20 20 20 7d 65 6c 73  zFile);.    }els
17c0: 65 20 69 66 28 20 53 5f 49 53 44 49 52 28 6d 6f  e if( S_ISDIR(mo
17d0: 64 65 29 20 29 7b 0a 20 20 20 20 20 20 63 74 78  de) ){.      ctx
17e0: 45 72 72 6f 72 4d 73 67 28 63 6f 6e 74 65 78 74  ErrorMsg(context
17f0: 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 63 72 65  , "failed to cre
1800: 61 74 65 20 64 69 72 65 63 74 6f 72 79 3a 20 25  ate directory: %
1810: 73 22 2c 20 7a 46 69 6c 65 29 3b 0a 20 20 20 20  s", zFile);.    
1820: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 63 74 78  }else{.      ctx
1830: 45 72 72 6f 72 4d 73 67 28 63 6f 6e 74 65 78 74  ErrorMsg(context
1840: 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 77 72 69  , "failed to wri
1850: 74 65 20 66 69 6c 65 3a 20 25 73 22 2c 20 7a 46  te file: %s", zF
1860: 69 6c 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  ile);.    }.  }.
1870: 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54  }..#ifndef SQLIT
1880: 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c 54 41  E_OMIT_VIRTUALTA
1890: 42 4c 45 0a 0a 2f 2a 20 0a 2a 2a 20 43 75 72 73  BLE../* .** Curs
18a0: 6f 72 20 74 79 70 65 20 66 6f 72 20 72 65 63 75  or type for recu
18b0: 72 73 69 76 65 6c 79 20 69 74 65 72 61 74 69 6e  rsively iteratin
18c0: 67 20 74 68 72 6f 75 67 68 20 61 20 64 69 72 65  g through a dire
18d0: 63 74 6f 72 79 20 73 74 72 75 63 74 75 72 65 2e  ctory structure.
18e0: 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75  .*/.typedef stru
18f0: 63 74 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20  ct fsdir_cursor 
1900: 66 73 64 69 72 5f 63 75 72 73 6f 72 3b 0a 74 79  fsdir_cursor;.ty
1910: 70 65 64 65 66 20 73 74 72 75 63 74 20 46 73 64  pedef struct Fsd
1920: 69 72 4c 65 76 65 6c 20 46 73 64 69 72 4c 65 76  irLevel FsdirLev
1930: 65 6c 3b 0a 0a 73 74 72 75 63 74 20 46 73 64 69  el;..struct Fsdi
1940: 72 4c 65 76 65 6c 20 7b 0a 20 20 44 49 52 20 2a  rLevel {.  DIR *
1950: 70 44 69 72 3b 20 20 20 20 20 20 20 20 20 20 20  pDir;           
1960: 20 20 20 20 20 20 2f 2a 20 46 72 6f 6d 20 6f 70        /* From op
1970: 65 6e 64 69 72 28 29 20 2a 2f 0a 20 20 63 68 61  endir() */.  cha
1980: 72 20 2a 7a 44 69 72 3b 20 20 20 20 20 20 20 20  r *zDir;        
1990: 20 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20          /* Name 
19a0: 6f 66 20 64 69 72 65 63 74 6f 72 79 20 28 6e 75  of directory (nu
19b0: 6c 2d 74 65 72 6d 69 6e 61 74 65 64 29 20 2a 2f  l-terminated) */
19c0: 0a 7d 3b 0a 0a 73 74 72 75 63 74 20 66 73 64 69  .};..struct fsdi
19d0: 72 5f 63 75 72 73 6f 72 20 7b 0a 20 20 73 71 6c  r_cursor {.  sql
19e0: 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72  ite3_vtab_cursor
19f0: 20 62 61 73 65 3b 20 20 2f 2a 20 42 61 73 65 20   base;  /* Base 
1a00: 63 6c 61 73 73 20 2d 20 6d 75 73 74 20 62 65 20  class - must be 
1a10: 66 69 72 73 74 20 2a 2f 0a 0a 20 20 69 6e 74 20  first */..  int 
1a20: 6e 4c 76 6c 3b 20 20 20 20 20 20 20 20 20 20 20  nLvl;           
1a30: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
1a40: 20 6f 66 20 65 6e 74 72 69 65 73 20 69 6e 20 61   of entries in a
1a50: 4c 76 6c 5b 5d 20 61 72 72 61 79 20 2a 2f 0a 20  Lvl[] array */. 
1a60: 20 69 6e 74 20 69 4c 76 6c 3b 20 20 20 20 20 20   int iLvl;      
1a70: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 49              /* I
1a80: 6e 64 65 78 20 6f 66 20 63 75 72 72 65 6e 74 20  ndex of current 
1a90: 65 6e 74 72 79 20 2a 2f 0a 20 20 46 73 64 69 72  entry */.  Fsdir
1aa0: 4c 65 76 65 6c 20 2a 61 4c 76 6c 3b 20 20 20 20  Level *aLvl;    
1ab0: 20 20 20 20 20 20 2f 2a 20 48 69 65 72 61 72 63        /* Hierarc
1ac0: 68 79 20 6f 66 20 64 69 72 65 63 74 6f 72 69 65  hy of directorie
1ad0: 73 20 62 65 69 6e 67 20 74 72 61 76 65 72 73 65  s being traverse
1ae0: 64 20 2a 2f 0a 0a 20 20 63 6f 6e 73 74 20 63 68  d */..  const ch
1af0: 61 72 20 2a 7a 42 61 73 65 3b 0a 20 20 69 6e 74  ar *zBase;.  int
1b00: 20 6e 42 61 73 65 3b 0a 0a 20 20 73 74 72 75 63   nBase;..  struc
1b10: 74 20 73 74 61 74 20 73 53 74 61 74 3b 20 20 20  t stat sStat;   
1b20: 20 20 20 20 20 20 2f 2a 20 43 75 72 72 65 6e 74        /* Current
1b30: 20 6c 73 74 61 74 28 29 20 72 65 73 75 6c 74 73   lstat() results
1b40: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 50 61 74   */.  char *zPat
1b50: 68 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  h;              
1b60: 20 2f 2a 20 50 61 74 68 20 74 6f 20 63 75 72 72   /* Path to curr
1b70: 65 6e 74 20 65 6e 74 72 79 20 2a 2f 0a 20 20 73  ent entry */.  s
1b80: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 52 6f  qlite3_int64 iRo
1b90: 77 69 64 3b 20 20 20 20 20 20 2f 2a 20 43 75 72  wid;      /* Cur
1ba0: 72 65 6e 74 20 72 6f 77 69 64 20 2a 2f 0a 7d 3b  rent rowid */.};
1bb0: 0a 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74  ..typedef struct
1bc0: 20 66 73 64 69 72 5f 74 61 62 20 66 73 64 69 72   fsdir_tab fsdir
1bd0: 5f 74 61 62 3b 0a 73 74 72 75 63 74 20 66 73 64  _tab;.struct fsd
1be0: 69 72 5f 74 61 62 20 7b 0a 20 20 73 71 6c 69 74  ir_tab {.  sqlit
1bf0: 65 33 5f 76 74 61 62 20 62 61 73 65 3b 20 20 20  e3_vtab base;   
1c00: 20 20 20 20 20 20 2f 2a 20 42 61 73 65 20 63 6c        /* Base cl
1c10: 61 73 73 20 2d 20 6d 75 73 74 20 62 65 20 66 69  ass - must be fi
1c20: 72 73 74 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a  rst */.};../*.**
1c30: 20 43 6f 6e 73 74 72 75 63 74 20 61 20 6e 65 77   Construct a new
1c40: 20 66 73 64 69 72 20 76 69 72 74 75 61 6c 20 74   fsdir virtual t
1c50: 61 62 6c 65 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a  able object..*/.
1c60: 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69 72  static int fsdir
1c70: 43 6f 6e 6e 65 63 74 28 0a 20 20 73 71 6c 69 74  Connect(.  sqlit
1c80: 65 33 20 2a 64 62 2c 0a 20 20 76 6f 69 64 20 2a  e3 *db,.  void *
1c90: 70 41 75 78 2c 0a 20 20 69 6e 74 20 61 72 67 63  pAux,.  int argc
1ca0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 6f  , const char *co
1cb0: 6e 73 74 2a 61 72 67 76 2c 0a 20 20 73 71 6c 69  nst*argv,.  sqli
1cc0: 74 65 33 5f 76 74 61 62 20 2a 2a 70 70 56 74 61  te3_vtab **ppVta
1cd0: 62 2c 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 72  b,.  char **pzEr
1ce0: 72 0a 29 7b 0a 20 20 66 73 64 69 72 5f 74 61 62  r.){.  fsdir_tab
1cf0: 20 2a 70 4e 65 77 20 3d 20 30 3b 0a 20 20 69 6e   *pNew = 0;.  in
1d00: 74 20 72 63 3b 0a 0a 20 20 72 63 20 3d 20 73 71  t rc;..  rc = sq
1d10: 6c 69 74 65 33 5f 64 65 63 6c 61 72 65 5f 76 74  lite3_declare_vt
1d20: 61 62 28 64 62 2c 20 22 43 52 45 41 54 45 20 54  ab(db, "CREATE T
1d30: 41 42 4c 45 20 78 22 20 46 53 44 49 52 5f 53 43  ABLE x" FSDIR_SC
1d40: 48 45 4d 41 29 3b 0a 20 20 69 66 28 20 72 63 3d  HEMA);.  if( rc=
1d50: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
1d60: 20 20 70 4e 65 77 20 3d 20 28 66 73 64 69 72 5f    pNew = (fsdir_
1d70: 74 61 62 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c  tab*)sqlite3_mal
1d80: 6c 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70 4e 65  loc( sizeof(*pNe
1d90: 77 29 20 29 3b 0a 20 20 20 20 69 66 28 20 70 4e  w) );.    if( pN
1da0: 65 77 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 53  ew==0 ) return S
1db0: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20  QLITE_NOMEM;.   
1dc0: 20 6d 65 6d 73 65 74 28 70 4e 65 77 2c 20 30 2c   memset(pNew, 0,
1dd0: 20 73 69 7a 65 6f 66 28 2a 70 4e 65 77 29 29 3b   sizeof(*pNew));
1de0: 0a 20 20 7d 0a 20 20 2a 70 70 56 74 61 62 20 3d  .  }.  *ppVtab =
1df0: 20 28 73 71 6c 69 74 65 33 5f 76 74 61 62 2a 29   (sqlite3_vtab*)
1e00: 70 4e 65 77 3b 0a 20 20 72 65 74 75 72 6e 20 72  pNew;.  return r
1e10: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73  c;.}../*.** This
1e20: 20 6d 65 74 68 6f 64 20 69 73 20 74 68 65 20 64   method is the d
1e30: 65 73 74 72 75 63 74 6f 72 20 66 6f 72 20 66 73  estructor for fs
1e40: 64 69 72 20 76 74 61 62 20 6f 62 6a 65 63 74 73  dir vtab objects
1e50: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
1e60: 66 73 64 69 72 44 69 73 63 6f 6e 6e 65 63 74 28  fsdirDisconnect(
1e70: 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 70 56  sqlite3_vtab *pV
1e80: 74 61 62 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f  tab){.  sqlite3_
1e90: 66 72 65 65 28 70 56 74 61 62 29 3b 0a 20 20 72  free(pVtab);.  r
1ea0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b  eturn SQLITE_OK;
1eb0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 73 74 72  .}../*.** Constr
1ec0: 75 63 74 6f 72 20 66 6f 72 20 61 20 6e 65 77 20  uctor for a new 
1ed0: 66 73 64 69 72 5f 63 75 72 73 6f 72 20 6f 62 6a  fsdir_cursor obj
1ee0: 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ect..*/.static i
1ef0: 6e 74 20 66 73 64 69 72 4f 70 65 6e 28 73 71 6c  nt fsdirOpen(sql
1f00: 69 74 65 33 5f 76 74 61 62 20 2a 70 2c 20 73 71  ite3_vtab *p, sq
1f10: 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f  lite3_vtab_curso
1f20: 72 20 2a 2a 70 70 43 75 72 73 6f 72 29 7b 0a 20  r **ppCursor){. 
1f30: 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70   fsdir_cursor *p
1f40: 43 75 72 3b 0a 20 20 70 43 75 72 20 3d 20 73 71  Cur;.  pCur = sq
1f50: 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 73 69  lite3_malloc( si
1f60: 7a 65 6f 66 28 2a 70 43 75 72 29 20 29 3b 0a 20  zeof(*pCur) );. 
1f70: 20 69 66 28 20 70 43 75 72 3d 3d 30 20 29 20 72   if( pCur==0 ) r
1f80: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d  eturn SQLITE_NOM
1f90: 45 4d 3b 0a 20 20 6d 65 6d 73 65 74 28 70 43 75  EM;.  memset(pCu
1fa0: 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 43  r, 0, sizeof(*pC
1fb0: 75 72 29 29 3b 0a 20 20 70 43 75 72 2d 3e 69 4c  ur));.  pCur->iL
1fc0: 76 6c 20 3d 20 2d 31 3b 0a 20 20 2a 70 70 43 75  vl = -1;.  *ppCu
1fd0: 72 73 6f 72 20 3d 20 26 70 43 75 72 2d 3e 62 61  rsor = &pCur->ba
1fe0: 73 65 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  se;.  return SQL
1ff0: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69  ITE_OK;.}..stati
2000: 63 20 76 6f 69 64 20 66 73 64 69 72 52 65 73 65  c void fsdirRese
2010: 74 43 75 72 73 6f 72 28 66 73 64 69 72 5f 63 75  tCursor(fsdir_cu
2020: 72 73 6f 72 20 2a 70 43 75 72 29 7b 0a 20 20 69  rsor *pCur){.  i
2030: 6e 74 20 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b  nt i;.  for(i=0;
2040: 20 69 3c 3d 70 43 75 72 2d 3e 69 4c 76 6c 3b 20   i<=pCur->iLvl; 
2050: 69 2b 2b 29 7b 0a 20 20 20 20 46 73 64 69 72 4c  i++){.    FsdirL
2060: 65 76 65 6c 20 2a 70 4c 76 6c 20 3d 20 26 70 43  evel *pLvl = &pC
2070: 75 72 2d 3e 61 4c 76 6c 5b 69 5d 3b 0a 20 20 20  ur->aLvl[i];.   
2080: 20 69 66 28 20 70 4c 76 6c 2d 3e 70 44 69 72 20   if( pLvl->pDir 
2090: 29 20 63 6c 6f 73 65 64 69 72 28 70 4c 76 6c 2d  ) closedir(pLvl-
20a0: 3e 70 44 69 72 29 3b 0a 20 20 20 20 73 71 6c 69  >pDir);.    sqli
20b0: 74 65 33 5f 66 72 65 65 28 70 4c 76 6c 2d 3e 7a  te3_free(pLvl->z
20c0: 44 69 72 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69  Dir);.  }.  sqli
20d0: 74 65 33 5f 66 72 65 65 28 70 43 75 72 2d 3e 7a  te3_free(pCur->z
20e0: 50 61 74 68 29 3b 0a 20 20 70 43 75 72 2d 3e 61  Path);.  pCur->a
20f0: 4c 76 6c 20 3d 20 30 3b 0a 20 20 70 43 75 72 2d  Lvl = 0;.  pCur-
2100: 3e 7a 50 61 74 68 20 3d 20 30 3b 0a 20 20 70 43  >zPath = 0;.  pC
2110: 75 72 2d 3e 7a 42 61 73 65 20 3d 20 30 3b 0a 20  ur->zBase = 0;. 
2120: 20 70 43 75 72 2d 3e 6e 42 61 73 65 20 3d 20 30   pCur->nBase = 0
2130: 3b 0a 20 20 70 43 75 72 2d 3e 69 4c 76 6c 20 3d  ;.  pCur->iLvl =
2140: 20 2d 31 3b 0a 20 20 70 43 75 72 2d 3e 69 52 6f   -1;.  pCur->iRo
2150: 77 69 64 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a  wid = 1;.}../*.*
2160: 2a 20 44 65 73 74 72 75 63 74 6f 72 20 66 6f 72  * Destructor for
2170: 20 61 6e 20 66 73 64 69 72 5f 63 75 72 73 6f 72   an fsdir_cursor
2180: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
2190: 66 73 64 69 72 43 6c 6f 73 65 28 73 71 6c 69 74  fsdirClose(sqlit
21a0: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a  e3_vtab_cursor *
21b0: 63 75 72 29 7b 0a 20 20 66 73 64 69 72 5f 63 75  cur){.  fsdir_cu
21c0: 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 66 73  rsor *pCur = (fs
21d0: 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b  dir_cursor*)cur;
21e0: 0a 0a 20 20 66 73 64 69 72 52 65 73 65 74 43 75  ..  fsdirResetCu
21f0: 72 73 6f 72 28 70 43 75 72 29 3b 0a 20 20 73 71  rsor(pCur);.  sq
2200: 6c 69 74 65 33 5f 66 72 65 65 28 70 43 75 72 2d  lite3_free(pCur-
2210: 3e 61 4c 76 6c 29 3b 0a 20 20 73 71 6c 69 74 65  >aLvl);.  sqlite
2220: 33 5f 66 72 65 65 28 70 43 75 72 29 3b 0a 20 20  3_free(pCur);.  
2230: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
2240: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64  ;.}..static void
2250: 20 66 73 64 69 72 53 65 74 45 72 72 6d 73 67 28   fsdirSetErrmsg(
2260: 66 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70 43  fsdir_cursor *pC
2270: 75 72 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ur, const char *
2280: 7a 46 6d 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61  zFmt, ...){.  va
2290: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 76 61 5f 73  _list ap;.  va_s
22a0: 74 61 72 74 28 61 70 2c 20 7a 46 6d 74 29 3b 0a  tart(ap, zFmt);.
22b0: 20 20 70 43 75 72 2d 3e 62 61 73 65 2e 70 56 74    pCur->base.pVt
22c0: 61 62 2d 3e 7a 45 72 72 4d 73 67 20 3d 20 73 71  ab->zErrMsg = sq
22d0: 6c 69 74 65 33 5f 76 6d 70 72 69 6e 74 66 28 7a  lite3_vmprintf(z
22e0: 46 6d 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  Fmt, ap);.  va_e
22f0: 6e 64 28 61 70 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a  nd(ap);.}.../*.*
2300: 2a 20 41 64 76 61 6e 63 65 20 61 6e 20 66 73 64  * Advance an fsd
2310: 69 72 5f 63 75 72 73 6f 72 20 74 6f 20 69 74 73  ir_cursor to its
2320: 20 6e 65 78 74 20 72 6f 77 20 6f 66 20 6f 75 74   next row of out
2330: 70 75 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  put..*/.static i
2340: 6e 74 20 66 73 64 69 72 4e 65 78 74 28 73 71 6c  nt fsdirNext(sql
2350: 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72  ite3_vtab_cursor
2360: 20 2a 63 75 72 29 7b 0a 20 20 66 73 64 69 72 5f   *cur){.  fsdir_
2370: 63 75 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28  cursor *pCur = (
2380: 66 73 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75  fsdir_cursor*)cu
2390: 72 3b 0a 20 20 6d 6f 64 65 5f 74 20 6d 20 3d 20  r;.  mode_t m = 
23a0: 70 43 75 72 2d 3e 73 53 74 61 74 2e 73 74 5f 6d  pCur->sStat.st_m
23b0: 6f 64 65 3b 0a 0a 20 20 70 43 75 72 2d 3e 69 52  ode;..  pCur->iR
23c0: 6f 77 69 64 2b 2b 3b 0a 20 20 69 66 28 20 53 5f  owid++;.  if( S_
23d0: 49 53 44 49 52 28 6d 29 20 29 7b 0a 20 20 20 20  ISDIR(m) ){.    
23e0: 2f 2a 20 44 65 73 63 65 6e 64 20 69 6e 74 6f 20  /* Descend into 
23f0: 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 2a  this directory *
2400: 2f 0a 20 20 20 20 69 6e 74 20 69 4e 65 77 20 3d  /.    int iNew =
2410: 20 70 43 75 72 2d 3e 69 4c 76 6c 20 2b 20 31 3b   pCur->iLvl + 1;
2420: 0a 20 20 20 20 46 73 64 69 72 4c 65 76 65 6c 20  .    FsdirLevel 
2430: 2a 70 4c 76 6c 3b 0a 20 20 20 20 69 66 28 20 69  *pLvl;.    if( i
2440: 4e 65 77 3e 3d 70 43 75 72 2d 3e 6e 4c 76 6c 20  New>=pCur->nLvl 
2450: 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e 4e 65  ){.      int nNe
2460: 77 20 3d 20 69 4e 65 77 2b 31 3b 0a 20 20 20 20  w = iNew+1;.    
2470: 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 6e 4e    int nByte = nN
2480: 65 77 2a 73 69 7a 65 6f 66 28 46 73 64 69 72 4c  ew*sizeof(FsdirL
2490: 65 76 65 6c 29 3b 0a 20 20 20 20 20 20 46 73 64  evel);.      Fsd
24a0: 69 72 4c 65 76 65 6c 20 2a 61 4e 65 77 20 3d 20  irLevel *aNew = 
24b0: 28 46 73 64 69 72 4c 65 76 65 6c 2a 29 73 71 6c  (FsdirLevel*)sql
24c0: 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 70 43 75  ite3_realloc(pCu
24d0: 72 2d 3e 61 4c 76 6c 2c 20 6e 42 79 74 65 29 3b  r->aLvl, nByte);
24e0: 0a 20 20 20 20 20 20 69 66 28 20 61 4e 65 77 3d  .      if( aNew=
24f0: 3d 30 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49  =0 ) return SQLI
2500: 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 20 20  TE_NOMEM;.      
2510: 6d 65 6d 73 65 74 28 26 61 4e 65 77 5b 70 43 75  memset(&aNew[pCu
2520: 72 2d 3e 6e 4c 76 6c 5d 2c 20 30 2c 20 73 69 7a  r->nLvl], 0, siz
2530: 65 6f 66 28 46 73 64 69 72 4c 65 76 65 6c 29 2a  eof(FsdirLevel)*
2540: 28 6e 4e 65 77 2d 70 43 75 72 2d 3e 6e 4c 76 6c  (nNew-pCur->nLvl
2550: 29 29 3b 0a 20 20 20 20 20 20 70 43 75 72 2d 3e  ));.      pCur->
2560: 61 4c 76 6c 20 3d 20 61 4e 65 77 3b 0a 20 20 20  aLvl = aNew;.   
2570: 20 20 20 70 43 75 72 2d 3e 6e 4c 76 6c 20 3d 20     pCur->nLvl = 
2580: 6e 4e 65 77 3b 0a 20 20 20 20 7d 0a 20 20 20 20  nNew;.    }.    
2590: 70 43 75 72 2d 3e 69 4c 76 6c 20 3d 20 69 4e 65  pCur->iLvl = iNe
25a0: 77 3b 0a 20 20 20 20 70 4c 76 6c 20 3d 20 26 70  w;.    pLvl = &p
25b0: 43 75 72 2d 3e 61 4c 76 6c 5b 69 4e 65 77 5d 3b  Cur->aLvl[iNew];
25c0: 0a 20 20 20 20 0a 20 20 20 20 70 4c 76 6c 2d 3e  .    .    pLvl->
25d0: 7a 44 69 72 20 3d 20 70 43 75 72 2d 3e 7a 50 61  zDir = pCur->zPa
25e0: 74 68 3b 0a 20 20 20 20 70 43 75 72 2d 3e 7a 50  th;.    pCur->zP
25f0: 61 74 68 20 3d 20 30 3b 0a 20 20 20 20 70 4c 76  ath = 0;.    pLv
2600: 6c 2d 3e 70 44 69 72 20 3d 20 6f 70 65 6e 64 69  l->pDir = opendi
2610: 72 28 70 4c 76 6c 2d 3e 7a 44 69 72 29 3b 0a 20  r(pLvl->zDir);. 
2620: 20 20 20 69 66 28 20 70 4c 76 6c 2d 3e 70 44 69     if( pLvl->pDi
2630: 72 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 66 73  r==0 ){.      fs
2640: 64 69 72 53 65 74 45 72 72 6d 73 67 28 70 43 75  dirSetErrmsg(pCu
2650: 72 2c 20 22 63 61 6e 6e 6f 74 20 72 65 61 64 20  r, "cannot read 
2660: 64 69 72 65 63 74 6f 72 79 3a 20 25 73 22 2c 20  directory: %s", 
2670: 70 43 75 72 2d 3e 7a 50 61 74 68 29 3b 0a 20 20  pCur->zPath);.  
2680: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
2690: 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  E_ERROR;.    }. 
26a0: 20 7d 0a 0a 20 20 77 68 69 6c 65 28 20 70 43 75   }..  while( pCu
26b0: 72 2d 3e 69 4c 76 6c 3e 3d 30 20 29 7b 0a 20 20  r->iLvl>=0 ){.  
26c0: 20 20 46 73 64 69 72 4c 65 76 65 6c 20 2a 70 4c    FsdirLevel *pL
26d0: 76 6c 20 3d 20 26 70 43 75 72 2d 3e 61 4c 76 6c  vl = &pCur->aLvl
26e0: 5b 70 43 75 72 2d 3e 69 4c 76 6c 5d 3b 0a 20 20  [pCur->iLvl];.  
26f0: 20 20 73 74 72 75 63 74 20 64 69 72 65 6e 74 20    struct dirent 
2700: 2a 70 45 6e 74 72 79 20 3d 20 72 65 61 64 64 69  *pEntry = readdi
2710: 72 28 70 4c 76 6c 2d 3e 70 44 69 72 29 3b 0a 20  r(pLvl->pDir);. 
2720: 20 20 20 69 66 28 20 70 45 6e 74 72 79 20 29 7b     if( pEntry ){
2730: 0a 20 20 20 20 20 20 69 66 28 20 70 45 6e 74 72  .      if( pEntr
2740: 79 2d 3e 64 5f 6e 61 6d 65 5b 30 5d 3d 3d 27 2e  y->d_name[0]=='.
2750: 27 20 29 7b 0a 20 20 20 20 20 20 20 69 66 28 20  ' ){.       if( 
2760: 70 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 5b 31  pEntry->d_name[1
2770: 5d 3d 3d 27 2e 27 20 26 26 20 70 45 6e 74 72 79  ]=='.' && pEntry
2780: 2d 3e 64 5f 6e 61 6d 65 5b 32 5d 3d 3d 27 5c 30  ->d_name[2]=='\0
2790: 27 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20  ' ) continue;.  
27a0: 20 20 20 20 20 69 66 28 20 70 45 6e 74 72 79 2d       if( pEntry-
27b0: 3e 64 5f 6e 61 6d 65 5b 31 5d 3d 3d 27 5c 30 27  >d_name[1]=='\0'
27c0: 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20   ) continue;.   
27d0: 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74     }.      sqlit
27e0: 65 33 5f 66 72 65 65 28 70 43 75 72 2d 3e 7a 50  e3_free(pCur->zP
27f0: 61 74 68 29 3b 0a 20 20 20 20 20 20 70 43 75 72  ath);.      pCur
2800: 2d 3e 7a 50 61 74 68 20 3d 20 73 71 6c 69 74 65  ->zPath = sqlite
2810: 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 2f 25 73  3_mprintf("%s/%s
2820: 22 2c 20 70 4c 76 6c 2d 3e 7a 44 69 72 2c 20 70  ", pLvl->zDir, p
2830: 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 29 3b 0a  Entry->d_name);.
2840: 20 20 20 20 20 20 69 66 28 20 70 43 75 72 2d 3e        if( pCur->
2850: 7a 50 61 74 68 3d 3d 30 20 29 20 72 65 74 75 72  zPath==0 ) retur
2860: 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a  n SQLITE_NOMEM;.
2870: 20 20 20 20 20 20 69 66 28 20 6c 73 74 61 74 28        if( lstat(
2880: 70 43 75 72 2d 3e 7a 50 61 74 68 2c 20 26 70 43  pCur->zPath, &pC
2890: 75 72 2d 3e 73 53 74 61 74 29 20 29 7b 0a 20 20  ur->sStat) ){.  
28a0: 20 20 20 20 20 20 66 73 64 69 72 53 65 74 45 72        fsdirSetEr
28b0: 72 6d 73 67 28 70 43 75 72 2c 20 22 63 61 6e 6e  rmsg(pCur, "cann
28c0: 6f 74 20 73 74 61 74 20 66 69 6c 65 3a 20 25 73  ot stat file: %s
28d0: 22 2c 20 70 43 75 72 2d 3e 7a 50 61 74 68 29 3b  ", pCur->zPath);
28e0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
28f0: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20  SQLITE_ERROR;.  
2900: 20 20 20 20 7d 0a 20 20 20 20 20 20 72 65 74 75      }.      retu
2910: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20  rn SQLITE_OK;.  
2920: 20 20 7d 0a 20 20 20 20 63 6c 6f 73 65 64 69 72    }.    closedir
2930: 28 70 4c 76 6c 2d 3e 70 44 69 72 29 3b 0a 20 20  (pLvl->pDir);.  
2940: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70    sqlite3_free(p
2950: 4c 76 6c 2d 3e 7a 44 69 72 29 3b 0a 20 20 20 20  Lvl->zDir);.    
2960: 70 4c 76 6c 2d 3e 70 44 69 72 20 3d 20 30 3b 0a  pLvl->pDir = 0;.
2970: 20 20 20 20 70 4c 76 6c 2d 3e 7a 44 69 72 20 3d      pLvl->zDir =
2980: 20 30 3b 0a 20 20 20 20 70 43 75 72 2d 3e 69 4c   0;.    pCur->iL
2990: 76 6c 2d 2d 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20  vl--;.  }..  /* 
29a0: 45 4f 46 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33  EOF */.  sqlite3
29b0: 5f 66 72 65 65 28 70 43 75 72 2d 3e 7a 50 61 74  _free(pCur->zPat
29c0: 68 29 3b 0a 20 20 70 43 75 72 2d 3e 7a 50 61 74  h);.  pCur->zPat
29d0: 68 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e 20  h = 0;.  return 
29e0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  SQLITE_OK;.}../*
29f0: 0a 2a 2a 20 52 65 74 75 72 6e 20 76 61 6c 75 65  .** Return value
2a00: 73 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 66 6f 72  s of columns for
2a10: 20 74 68 65 20 72 6f 77 20 61 74 20 77 68 69 63   the row at whic
2a20: 68 20 74 68 65 20 73 65 72 69 65 73 5f 63 75 72  h the series_cur
2a30: 73 6f 72 0a 2a 2a 20 69 73 20 63 75 72 72 65 6e  sor.** is curren
2a40: 74 6c 79 20 70 6f 69 6e 74 69 6e 67 2e 0a 2a 2f  tly pointing..*/
2a50: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69  .static int fsdi
2a60: 72 43 6f 6c 75 6d 6e 28 0a 20 20 73 71 6c 69 74  rColumn(.  sqlit
2a70: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a  e3_vtab_cursor *
2a80: 63 75 72 2c 20 20 20 2f 2a 20 54 68 65 20 63 75  cur,   /* The cu
2a90: 72 73 6f 72 20 2a 2f 0a 20 20 73 71 6c 69 74 65  rsor */.  sqlite
2aa0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20  3_context *ctx, 
2ab0: 20 20 20 20 20 20 2f 2a 20 46 69 72 73 74 20 61        /* First a
2ac0: 72 67 75 6d 65 6e 74 20 74 6f 20 73 71 6c 69 74  rgument to sqlit
2ad0: 65 33 5f 72 65 73 75 6c 74 5f 2e 2e 2e 28 29 20  e3_result_...() 
2ae0: 2a 2f 0a 20 20 69 6e 74 20 69 20 20 20 20 20 20  */.  int i      
2af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2b00: 20 2f 2a 20 57 68 69 63 68 20 63 6f 6c 75 6d 6e   /* Which column
2b10: 20 74 6f 20 72 65 74 75 72 6e 20 2a 2f 0a 29 7b   to return */.){
2b20: 0a 20 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20  .  fsdir_cursor 
2b30: 2a 70 43 75 72 20 3d 20 28 66 73 64 69 72 5f 63  *pCur = (fsdir_c
2b40: 75 72 73 6f 72 2a 29 63 75 72 3b 0a 20 20 73 77  ursor*)cur;.  sw
2b50: 69 74 63 68 28 20 69 20 29 7b 0a 20 20 20 20 63  itch( i ){.    c
2b60: 61 73 65 20 30 3a 20 7b 20 2f 2a 20 6e 61 6d 65  ase 0: { /* name
2b70: 20 2a 2f 0a 20 20 20 20 20 20 73 71 6c 69 74 65   */.      sqlite
2b80: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 74  3_result_text(ct
2b90: 78 2c 20 26 70 43 75 72 2d 3e 7a 50 61 74 68 5b  x, &pCur->zPath[
2ba0: 70 43 75 72 2d 3e 6e 42 61 73 65 5d 2c 20 2d 31  pCur->nBase], -1
2bb0: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45  , SQLITE_TRANSIE
2bc0: 4e 54 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b  NT);.      break
2bd0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73  ;.    }..    cas
2be0: 65 20 31 3a 20 2f 2a 20 6d 6f 64 65 20 2a 2f 0a  e 1: /* mode */.
2bf0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
2c00: 73 75 6c 74 5f 69 6e 74 36 34 28 63 74 78 2c 20  sult_int64(ctx, 
2c10: 70 43 75 72 2d 3e 73 53 74 61 74 2e 73 74 5f 6d  pCur->sStat.st_m
2c20: 6f 64 65 29 3b 0a 20 20 20 20 20 20 62 72 65 61  ode);.      brea
2c30: 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 32 3a 20  k;..    case 2: 
2c40: 2f 2a 20 6d 74 69 6d 65 20 2a 2f 0a 20 20 20 20  /* mtime */.    
2c50: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
2c60: 5f 69 6e 74 36 34 28 63 74 78 2c 20 70 43 75 72  _int64(ctx, pCur
2c70: 2d 3e 73 53 74 61 74 2e 73 74 5f 6d 74 69 6d 65  ->sStat.st_mtime
2c80: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
2c90: 0a 20 20 20 20 63 61 73 65 20 33 3a 20 7b 20 2f  .    case 3: { /
2ca0: 2a 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 20 20  * data */.      
2cb0: 6d 6f 64 65 5f 74 20 6d 20 3d 20 70 43 75 72 2d  mode_t m = pCur-
2cc0: 3e 73 53 74 61 74 2e 73 74 5f 6d 6f 64 65 3b 0a  >sStat.st_mode;.
2cd0: 20 20 20 20 20 20 69 66 28 20 53 5f 49 53 44 49        if( S_ISDI
2ce0: 52 28 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20  R(m) ){.        
2cf0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 6e  sqlite3_result_n
2d00: 75 6c 6c 28 63 74 78 29 3b 0a 20 20 20 20 20 20  ull(ctx);.      
2d10: 7d 65 6c 73 65 20 69 66 28 20 53 5f 49 53 4c 4e  }else if( S_ISLN
2d20: 4b 28 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20  K(m) ){.        
2d30: 63 68 61 72 20 61 53 74 61 74 69 63 5b 36 34 5d  char aStatic[64]
2d40: 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a  ;.        char *
2d50: 61 42 75 66 20 3d 20 61 53 74 61 74 69 63 3b 0a  aBuf = aStatic;.
2d60: 20 20 20 20 20 20 20 20 69 6e 74 20 6e 42 75 66          int nBuf
2d70: 20 3d 20 36 34 3b 0a 20 20 20 20 20 20 20 20 69   = 64;.        i
2d80: 6e 74 20 6e 3b 0a 0a 20 20 20 20 20 20 20 20 77  nt n;..        w
2d90: 68 69 6c 65 28 20 31 20 29 7b 0a 20 20 20 20 20  hile( 1 ){.     
2da0: 20 20 20 20 20 6e 20 3d 20 72 65 61 64 6c 69 6e       n = readlin
2db0: 6b 28 70 43 75 72 2d 3e 7a 50 61 74 68 2c 20 61  k(pCur->zPath, a
2dc0: 42 75 66 2c 20 6e 42 75 66 29 3b 0a 20 20 20 20  Buf, nBuf);.    
2dd0: 20 20 20 20 20 20 69 66 28 20 6e 3c 6e 42 75 66        if( n<nBuf
2de0: 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20   ) break;.      
2df0: 20 20 20 20 69 66 28 20 61 42 75 66 21 3d 61 53      if( aBuf!=aS
2e00: 74 61 74 69 63 20 29 20 73 71 6c 69 74 65 33 5f  tatic ) sqlite3_
2e10: 66 72 65 65 28 61 42 75 66 29 3b 0a 20 20 20 20  free(aBuf);.    
2e20: 20 20 20 20 20 20 6e 42 75 66 20 3d 20 6e 42 75        nBuf = nBu
2e30: 66 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 61  f*2;.          a
2e40: 42 75 66 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61  Buf = sqlite3_ma
2e50: 6c 6c 6f 63 28 6e 42 75 66 29 3b 0a 20 20 20 20  lloc(nBuf);.    
2e60: 20 20 20 20 20 20 69 66 28 20 61 42 75 66 3d 3d        if( aBuf==
2e70: 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  0 ){.           
2e80: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
2e90: 65 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 74 78 29  error_nomem(ctx)
2ea0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  ;.            re
2eb0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45  turn SQLITE_NOME
2ec0: 4d 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20  M;.          }. 
2ed0: 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20         }..      
2ee0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
2ef0: 5f 74 65 78 74 28 63 74 78 2c 20 61 42 75 66 2c  _text(ctx, aBuf,
2f00: 20 6e 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53   n, SQLITE_TRANS
2f10: 49 45 4e 54 29 3b 0a 20 20 20 20 20 20 20 20 69  IENT);.        i
2f20: 66 28 20 61 42 75 66 21 3d 61 53 74 61 74 69 63  f( aBuf!=aStatic
2f30: 20 29 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28   ) sqlite3_free(
2f40: 61 42 75 66 29 3b 0a 20 20 20 20 20 20 7d 65 6c  aBuf);.      }el
2f50: 73 65 7b 0a 20 20 20 20 20 20 20 20 72 65 61 64  se{.        read
2f60: 46 69 6c 65 43 6f 6e 74 65 6e 74 73 28 63 74 78  FileContents(ctx
2f70: 2c 20 70 43 75 72 2d 3e 7a 50 61 74 68 29 3b 0a  , pCur->zPath);.
2f80: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
2f90: 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  }.  return SQLIT
2fa0: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  E_OK;.}../*.** R
2fb0: 65 74 75 72 6e 20 74 68 65 20 72 6f 77 69 64 20  eturn the rowid 
2fc0: 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20  for the current 
2fd0: 72 6f 77 2e 20 49 6e 20 74 68 69 73 20 69 6d 70  row. In this imp
2fe0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 74 68 65  lementation, the
2ff0: 0a 2a 2a 20 66 69 72 73 74 20 72 6f 77 20 72 65  .** first row re
3000: 74 75 72 6e 65 64 20 69 73 20 61 73 73 69 67 6e  turned is assign
3010: 65 64 20 72 6f 77 69 64 20 76 61 6c 75 65 20 31  ed rowid value 1
3020: 2c 20 61 6e 64 20 65 61 63 68 20 73 75 62 73 65  , and each subse
3030: 71 75 65 6e 74 0a 2a 2a 20 72 6f 77 20 61 20 76  quent.** row a v
3040: 61 6c 75 65 20 31 20 6d 6f 72 65 20 74 68 61 6e  alue 1 more than
3050: 20 74 68 61 74 20 6f 66 20 74 68 65 20 70 72 65   that of the pre
3060: 76 69 6f 75 73 2e 0a 2a 2f 0a 73 74 61 74 69 63  vious..*/.static
3070: 20 69 6e 74 20 66 73 64 69 72 52 6f 77 69 64 28   int fsdirRowid(
3080: 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72  sqlite3_vtab_cur
3090: 73 6f 72 20 2a 63 75 72 2c 20 73 71 6c 69 74 65  sor *cur, sqlite
30a0: 5f 69 6e 74 36 34 20 2a 70 52 6f 77 69 64 29 7b  _int64 *pRowid){
30b0: 0a 20 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20  .  fsdir_cursor 
30c0: 2a 70 43 75 72 20 3d 20 28 66 73 64 69 72 5f 63  *pCur = (fsdir_c
30d0: 75 72 73 6f 72 2a 29 63 75 72 3b 0a 20 20 2a 70  ursor*)cur;.  *p
30e0: 52 6f 77 69 64 20 3d 20 70 43 75 72 2d 3e 69 52  Rowid = pCur->iR
30f0: 6f 77 69 64 3b 0a 20 20 72 65 74 75 72 6e 20 53  owid;.  return S
3100: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  QLITE_OK;.}../*.
3110: 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45 20 69  ** Return TRUE i
3120: 66 20 74 68 65 20 63 75 72 73 6f 72 20 68 61 73  f the cursor has
3130: 20 62 65 65 6e 20 6d 6f 76 65 64 20 6f 66 66 20   been moved off 
3140: 6f 66 20 74 68 65 20 6c 61 73 74 0a 2a 2a 20 72  of the last.** r
3150: 6f 77 20 6f 66 20 6f 75 74 70 75 74 2e 0a 2a 2f  ow of output..*/
3160: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69  .static int fsdi
3170: 72 45 6f 66 28 73 71 6c 69 74 65 33 5f 76 74 61  rEof(sqlite3_vta
3180: 62 5f 63 75 72 73 6f 72 20 2a 63 75 72 29 7b 0a  b_cursor *cur){.
3190: 20 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20 2a    fsdir_cursor *
31a0: 70 43 75 72 20 3d 20 28 66 73 64 69 72 5f 63 75  pCur = (fsdir_cu
31b0: 72 73 6f 72 2a 29 63 75 72 3b 0a 20 20 72 65 74  rsor*)cur;.  ret
31c0: 75 72 6e 20 28 70 43 75 72 2d 3e 7a 50 61 74 68  urn (pCur->zPath
31d0: 3d 3d 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 78  ==0);.}../*.** x
31e0: 46 69 6c 74 65 72 20 63 61 6c 6c 62 61 63 6b 2e  Filter callback.
31f0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66  .*/.static int f
3200: 73 64 69 72 46 69 6c 74 65 72 28 0a 20 20 73 71  sdirFilter(.  sq
3210: 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f  lite3_vtab_curso
3220: 72 20 2a 63 75 72 2c 20 0a 20 20 69 6e 74 20 69  r *cur, .  int i
3230: 64 78 4e 75 6d 2c 20 63 6f 6e 73 74 20 63 68 61  dxNum, const cha
3240: 72 20 2a 69 64 78 53 74 72 2c 0a 20 20 69 6e 74  r *idxStr,.  int
3250: 20 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76   argc, sqlite3_v
3260: 61 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20  alue **argv.){. 
3270: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 69   const char *zDi
3280: 72 20 3d 20 30 3b 0a 20 20 66 73 64 69 72 5f 63  r = 0;.  fsdir_c
3290: 75 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 66  ursor *pCur = (f
32a0: 73 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75 72  sdir_cursor*)cur
32b0: 3b 0a 0a 20 20 66 73 64 69 72 52 65 73 65 74 43  ;..  fsdirResetC
32c0: 75 72 73 6f 72 28 70 43 75 72 29 3b 0a 0a 20 20  ursor(pCur);..  
32d0: 69 66 28 20 69 64 78 4e 75 6d 3d 3d 30 20 29 7b  if( idxNum==0 ){
32e0: 0a 20 20 20 20 66 73 64 69 72 53 65 74 45 72 72  .    fsdirSetErr
32f0: 6d 73 67 28 70 43 75 72 2c 20 22 74 61 62 6c 65  msg(pCur, "table
3300: 20 66 75 6e 63 74 69 6f 6e 20 66 73 64 69 72 20   function fsdir 
3310: 72 65 71 75 69 72 65 73 20 61 6e 20 61 72 67 75  requires an argu
3320: 6d 65 6e 74 22 29 3b 0a 20 20 20 20 72 65 74 75  ment");.    retu
3330: 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b  rn SQLITE_ERROR;
3340: 0a 20 20 7d 0a 0a 20 20 61 73 73 65 72 74 28 20  .  }..  assert( 
3350: 61 72 67 63 3d 3d 69 64 78 4e 75 6d 20 26 26 20  argc==idxNum && 
3360: 28 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 63  (argc==1 || argc
3370: 3d 3d 32 29 20 29 3b 0a 20 20 7a 44 69 72 20 3d  ==2) );.  zDir =
3380: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71   (const char*)sq
3390: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
33a0: 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28  (argv[0]);.  if(
33b0: 20 7a 44 69 72 3d 3d 30 20 29 7b 0a 20 20 20 20   zDir==0 ){.    
33c0: 66 73 64 69 72 53 65 74 45 72 72 6d 73 67 28 70  fsdirSetErrmsg(p
33d0: 43 75 72 2c 20 22 74 61 62 6c 65 20 66 75 6e 63  Cur, "table func
33e0: 74 69 6f 6e 20 66 73 64 69 72 20 72 65 71 75 69  tion fsdir requi
33f0: 72 65 73 20 61 20 6e 6f 6e 2d 4e 55 4c 4c 20 61  res a non-NULL a
3400: 72 67 75 6d 65 6e 74 22 29 3b 0a 20 20 20 20 72  rgument");.    r
3410: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52  eturn SQLITE_ERR
3420: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72  OR;.  }.  if( ar
3430: 67 63 3d 3d 32 20 29 7b 0a 20 20 20 20 70 43 75  gc==2 ){.    pCu
3440: 72 2d 3e 7a 42 61 73 65 20 3d 20 28 63 6f 6e 73  r->zBase = (cons
3450: 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f  t char*)sqlite3_
3460: 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b  value_text(argv[
3470: 31 5d 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70  1]);.  }.  if( p
3480: 43 75 72 2d 3e 7a 42 61 73 65 20 29 7b 0a 20 20  Cur->zBase ){.  
3490: 20 20 70 43 75 72 2d 3e 6e 42 61 73 65 20 3d 20    pCur->nBase = 
34a0: 73 74 72 6c 65 6e 28 70 43 75 72 2d 3e 7a 42 61  strlen(pCur->zBa
34b0: 73 65 29 2b 31 3b 0a 20 20 20 20 70 43 75 72 2d  se)+1;.    pCur-
34c0: 3e 7a 50 61 74 68 20 3d 20 73 71 6c 69 74 65 33  >zPath = sqlite3
34d0: 5f 6d 70 72 69 6e 74 66 28 22 25 73 2f 25 73 22  _mprintf("%s/%s"
34e0: 2c 20 70 43 75 72 2d 3e 7a 42 61 73 65 2c 20 7a  , pCur->zBase, z
34f0: 44 69 72 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20  Dir);.  }else{. 
3500: 20 20 20 70 43 75 72 2d 3e 7a 50 61 74 68 20 3d     pCur->zPath =
3510: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66   sqlite3_mprintf
3520: 28 22 25 73 22 2c 20 7a 44 69 72 29 3b 0a 20 20  ("%s", zDir);.  
3530: 7d 0a 0a 20 20 69 66 28 20 70 43 75 72 2d 3e 7a  }..  if( pCur->z
3540: 50 61 74 68 3d 3d 30 20 29 7b 0a 20 20 20 20 72  Path==0 ){.    r
3550: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d  eturn SQLITE_NOM
3560: 45 4d 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6c 73  EM;.  }.  if( ls
3570: 74 61 74 28 70 43 75 72 2d 3e 7a 50 61 74 68 2c  tat(pCur->zPath,
3580: 20 26 70 43 75 72 2d 3e 73 53 74 61 74 29 20 29   &pCur->sStat) )
3590: 7b 0a 20 20 20 20 66 73 64 69 72 53 65 74 45 72  {.    fsdirSetEr
35a0: 72 6d 73 67 28 70 43 75 72 2c 20 22 63 61 6e 6e  rmsg(pCur, "cann
35b0: 6f 74 20 73 74 61 74 20 66 69 6c 65 3a 20 25 73  ot stat file: %s
35c0: 22 2c 20 70 43 75 72 2d 3e 7a 50 61 74 68 29 3b  ", pCur->zPath);
35d0: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
35e0: 54 45 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20  TE_ERROR;.  }.. 
35f0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
3600: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 51 4c 69  K;.}../*.** SQLi
3610: 74 65 20 77 69 6c 6c 20 69 6e 76 6f 6b 65 20 74  te will invoke t
3620: 68 69 73 20 6d 65 74 68 6f 64 20 6f 6e 65 20 6f  his method one o
3630: 72 20 6d 6f 72 65 20 74 69 6d 65 73 20 77 68 69  r more times whi
3640: 6c 65 20 70 6c 61 6e 6e 69 6e 67 20 61 20 71 75  le planning a qu
3650: 65 72 79 0a 2a 2a 20 74 68 61 74 20 75 73 65 73  ery.** that uses
3660: 20 74 68 65 20 67 65 6e 65 72 61 74 65 5f 73 65   the generate_se
3670: 72 69 65 73 20 76 69 72 74 75 61 6c 20 74 61 62  ries virtual tab
3680: 6c 65 2e 20 20 54 68 69 73 20 72 6f 75 74 69 6e  le.  This routin
3690: 65 20 6e 65 65 64 73 20 74 6f 20 63 72 65 61 74  e needs to creat
36a0: 65 0a 2a 2a 20 61 20 71 75 65 72 79 20 70 6c 61  e.** a query pla
36b0: 6e 20 66 6f 72 20 65 61 63 68 20 69 6e 76 6f 63  n for each invoc
36c0: 61 74 69 6f 6e 20 61 6e 64 20 63 6f 6d 70 75 74  ation and comput
36d0: 65 20 61 6e 20 65 73 74 69 6d 61 74 65 64 20 63  e an estimated c
36e0: 6f 73 74 20 66 6f 72 20 74 68 61 74 0a 2a 2a 20  ost for that.** 
36f0: 70 6c 61 6e 2e 0a 2a 2a 0a 2a 2a 20 49 6e 20 74  plan..**.** In t
3700: 68 69 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69  his implementati
3710: 6f 6e 20 69 64 78 4e 75 6d 20 69 73 20 75 73 65  on idxNum is use
3720: 64 20 74 6f 20 72 65 70 72 65 73 65 6e 74 20 74  d to represent t
3730: 68 65 0a 2a 2a 20 71 75 65 72 79 20 70 6c 61 6e  he.** query plan
3740: 2e 20 20 69 64 78 53 74 72 20 69 73 20 75 6e 75  .  idxStr is unu
3750: 73 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 71  sed..**.** The q
3760: 75 65 72 79 20 70 6c 61 6e 20 69 73 20 72 65 70  uery plan is rep
3770: 72 65 73 65 6e 74 65 64 20 62 79 20 62 69 74 73  resented by bits
3780: 20 69 6e 20 69 64 78 4e 75 6d 3a 0a 2a 2a 0a 2a   in idxNum:.**.*
3790: 2a 20 20 28 31 29 20 20 73 74 61 72 74 20 3d 20  *  (1)  start = 
37a0: 24 76 61 6c 75 65 20 20 2d 2d 20 63 6f 6e 73 74  $value  -- const
37b0: 72 61 69 6e 74 20 65 78 69 73 74 73 0a 2a 2a 20  raint exists.** 
37c0: 20 28 32 29 20 20 73 74 6f 70 20 3d 20 24 76 61   (2)  stop = $va
37d0: 6c 75 65 20 20 20 2d 2d 20 63 6f 6e 73 74 72 61  lue   -- constra
37e0: 69 6e 74 20 65 78 69 73 74 73 0a 2a 2a 20 20 28  int exists.**  (
37f0: 34 29 20 20 73 74 65 70 20 3d 20 24 76 61 6c 75  4)  step = $valu
3800: 65 20 20 20 2d 2d 20 63 6f 6e 73 74 72 61 69 6e  e   -- constrain
3810: 74 20 65 78 69 73 74 73 0a 2a 2a 20 20 28 38 29  t exists.**  (8)
3820: 20 20 6f 75 74 70 75 74 20 69 6e 20 64 65 73 63    output in desc
3830: 65 6e 64 69 6e 67 20 6f 72 64 65 72 0a 2a 2f 0a  ending order.*/.
3840: 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69 72  static int fsdir
3850: 42 65 73 74 49 6e 64 65 78 28 0a 20 20 73 71 6c  BestIndex(.  sql
3860: 69 74 65 33 5f 76 74 61 62 20 2a 74 61 62 2c 0a  ite3_vtab *tab,.
3870: 20 20 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 5f    sqlite3_index_
3880: 69 6e 66 6f 20 2a 70 49 64 78 49 6e 66 6f 0a 29  info *pIdxInfo.)
3890: 7b 0a 20 20 69 6e 74 20 69 3b 20 20 20 20 20 20  {.  int i;      
38a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4c 6f             /* Lo
38b0: 6f 70 20 6f 76 65 72 20 63 6f 6e 73 74 72 61 69  op over constrai
38c0: 6e 74 73 20 2a 2f 0a 20 20 69 6e 74 20 69 64 78  nts */.  int idx
38d0: 34 20 3d 20 2d 31 3b 0a 20 20 69 6e 74 20 69 64  4 = -1;.  int id
38e0: 78 35 20 3d 20 2d 31 3b 0a 0a 20 20 63 6f 6e 73  x5 = -1;..  cons
38f0: 74 20 73 74 72 75 63 74 20 73 71 6c 69 74 65 33  t struct sqlite3
3900: 5f 69 6e 64 65 78 5f 63 6f 6e 73 74 72 61 69 6e  _index_constrain
3910: 74 20 2a 70 43 6f 6e 73 74 72 61 69 6e 74 3b 0a  t *pConstraint;.
3920: 20 20 70 43 6f 6e 73 74 72 61 69 6e 74 20 3d 20    pConstraint = 
3930: 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74  pIdxInfo->aConst
3940: 72 61 69 6e 74 3b 0a 20 20 66 6f 72 28 69 3d 30  raint;.  for(i=0
3950: 3b 20 69 3c 70 49 64 78 49 6e 66 6f 2d 3e 6e 43  ; i<pIdxInfo->nC
3960: 6f 6e 73 74 72 61 69 6e 74 3b 20 69 2b 2b 2c 20  onstraint; i++, 
3970: 70 43 6f 6e 73 74 72 61 69 6e 74 2b 2b 29 7b 0a  pConstraint++){.
3980: 20 20 20 20 69 66 28 20 70 43 6f 6e 73 74 72 61      if( pConstra
3990: 69 6e 74 2d 3e 75 73 61 62 6c 65 3d 3d 30 20 29  int->usable==0 )
39a0: 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 69   continue;.    i
39b0: 66 28 20 70 43 6f 6e 73 74 72 61 69 6e 74 2d 3e  f( pConstraint->
39c0: 6f 70 21 3d 53 51 4c 49 54 45 5f 49 4e 44 45 58  op!=SQLITE_INDEX
39d0: 5f 43 4f 4e 53 54 52 41 49 4e 54 5f 45 51 20 29  _CONSTRAINT_EQ )
39e0: 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 69   continue;.    i
39f0: 66 28 20 70 43 6f 6e 73 74 72 61 69 6e 74 2d 3e  f( pConstraint->
3a00: 69 43 6f 6c 75 6d 6e 3d 3d 34 20 29 20 69 64 78  iColumn==4 ) idx
3a10: 34 20 3d 20 69 3b 0a 20 20 20 20 69 66 28 20 70  4 = i;.    if( p
3a20: 43 6f 6e 73 74 72 61 69 6e 74 2d 3e 69 43 6f 6c  Constraint->iCol
3a30: 75 6d 6e 3d 3d 35 20 29 20 69 64 78 35 20 3d 20  umn==5 ) idx5 = 
3a40: 69 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 69 64  i;.  }..  if( id
3a50: 78 34 3c 30 20 29 7b 0a 20 20 20 20 70 49 64 78  x4<0 ){.    pIdx
3a60: 49 6e 66 6f 2d 3e 69 64 78 4e 75 6d 20 3d 20 30  Info->idxNum = 0
3a70: 3b 0a 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e  ;.    pIdxInfo->
3a80: 65 73 74 69 6d 61 74 65 64 43 6f 73 74 20 3d 20  estimatedCost = 
3a90: 28 64 6f 75 62 6c 65 29 28 28 28 73 71 6c 69 74  (double)(((sqlit
3aa0: 65 33 5f 69 6e 74 36 34 29 31 29 20 3c 3c 20 35  e3_int64)1) << 5
3ab0: 30 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  0);.  }else{.   
3ac0: 20 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73   pIdxInfo->aCons
3ad0: 74 72 61 69 6e 74 55 73 61 67 65 5b 69 64 78 34  traintUsage[idx4
3ae0: 5d 2e 6f 6d 69 74 20 3d 20 31 3b 0a 20 20 20 20  ].omit = 1;.    
3af0: 70 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74  pIdxInfo->aConst
3b00: 72 61 69 6e 74 55 73 61 67 65 5b 69 64 78 34 5d  raintUsage[idx4]
3b10: 2e 61 72 67 76 49 6e 64 65 78 20 3d 20 31 3b 0a  .argvIndex = 1;.
3b20: 20 20 20 20 69 66 28 20 69 64 78 35 3e 3d 30 20      if( idx5>=0 
3b30: 29 7b 0a 20 20 20 20 20 20 70 49 64 78 49 6e 66  ){.      pIdxInf
3b40: 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74 55 73  o->aConstraintUs
3b50: 61 67 65 5b 69 64 78 35 5d 2e 6f 6d 69 74 20 3d  age[idx5].omit =
3b60: 20 31 3b 0a 20 20 20 20 20 20 70 49 64 78 49 6e   1;.      pIdxIn
3b70: 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74 55  fo->aConstraintU
3b80: 73 61 67 65 5b 69 64 78 35 5d 2e 61 72 67 76 49  sage[idx5].argvI
3b90: 6e 64 65 78 20 3d 20 32 3b 0a 20 20 20 20 20 20  ndex = 2;.      
3ba0: 70 49 64 78 49 6e 66 6f 2d 3e 69 64 78 4e 75 6d  pIdxInfo->idxNum
3bb0: 20 3d 20 32 3b 0a 20 20 20 20 20 20 70 49 64 78   = 2;.      pIdx
3bc0: 49 6e 66 6f 2d 3e 65 73 74 69 6d 61 74 65 64 43  Info->estimatedC
3bd0: 6f 73 74 20 3d 20 31 30 2e 30 3b 0a 20 20 20 20  ost = 10.0;.    
3be0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 49 64  }else{.      pId
3bf0: 78 49 6e 66 6f 2d 3e 69 64 78 4e 75 6d 20 3d 20  xInfo->idxNum = 
3c00: 31 3b 0a 20 20 20 20 20 20 70 49 64 78 49 6e 66  1;.      pIdxInf
3c10: 6f 2d 3e 65 73 74 69 6d 61 74 65 64 43 6f 73 74  o->estimatedCost
3c20: 20 3d 20 31 30 30 2e 30 3b 0a 20 20 20 20 7d 0a   = 100.0;.    }.
3c30: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 53 51    }..  return SQ
3c40: 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74  LITE_OK;.}..stat
3c50: 69 63 20 69 6e 74 20 66 73 64 69 72 52 65 67 69  ic int fsdirRegi
3c60: 73 74 65 72 28 73 71 6c 69 74 65 33 20 2a 64 62  ster(sqlite3 *db
3c70: 29 7b 0a 20 20 73 74 61 74 69 63 20 73 71 6c 69  ){.  static sqli
3c80: 74 65 33 5f 6d 6f 64 75 6c 65 20 66 73 64 69 72  te3_module fsdir
3c90: 4d 6f 64 75 6c 65 20 3d 20 7b 0a 20 20 20 20 30  Module = {.    0
3ca0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
3cb0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69 56 65            /* iVe
3cc0: 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 30 2c 20  rsion */.    0, 
3cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ce0: 20 20 20 20 20 20 20 20 2f 2a 20 78 43 72 65 61          /* xCrea
3cf0: 74 65 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 43  te */.    fsdirC
3d00: 6f 6e 6e 65 63 74 2c 20 20 20 20 20 20 20 20 20  onnect,         
3d10: 20 20 20 20 20 2f 2a 20 78 43 6f 6e 6e 65 63 74       /* xConnect
3d20: 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 42 65 73   */.    fsdirBes
3d30: 74 49 6e 64 65 78 2c 20 20 20 20 20 20 20 20 20  tIndex,         
3d40: 20 20 20 2f 2a 20 78 42 65 73 74 49 6e 64 65 78     /* xBestIndex
3d50: 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 44 69 73   */.    fsdirDis
3d60: 63 6f 6e 6e 65 63 74 2c 20 20 20 20 20 20 20 20  connect,        
3d70: 20 20 20 2f 2a 20 78 44 69 73 63 6f 6e 6e 65 63     /* xDisconnec
3d80: 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  t */.    0,     
3d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3da0: 20 20 20 20 2f 2a 20 78 44 65 73 74 72 6f 79 20      /* xDestroy 
3db0: 2a 2f 0a 20 20 20 20 66 73 64 69 72 4f 70 65 6e  */.    fsdirOpen
3dc0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
3dd0: 20 20 2f 2a 20 78 4f 70 65 6e 20 2d 20 6f 70 65    /* xOpen - ope
3de0: 6e 20 61 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20  n a cursor */.  
3df0: 20 20 66 73 64 69 72 43 6c 6f 73 65 2c 20 20 20    fsdirClose,   
3e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
3e10: 78 43 6c 6f 73 65 20 2d 20 63 6c 6f 73 65 20 61  xClose - close a
3e20: 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20 20 20 66   cursor */.    f
3e30: 73 64 69 72 46 69 6c 74 65 72 2c 20 20 20 20 20  sdirFilter,     
3e40: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46 69            /* xFi
3e50: 6c 74 65 72 20 2d 20 63 6f 6e 66 69 67 75 72 65  lter - configure
3e60: 20 73 63 61 6e 20 63 6f 6e 73 74 72 61 69 6e 74   scan constraint
3e70: 73 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 4e 65  s */.    fsdirNe
3e80: 78 74 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  xt,             
3e90: 20 20 20 20 2f 2a 20 78 4e 65 78 74 20 2d 20 61      /* xNext - a
3ea0: 64 76 61 6e 63 65 20 61 20 63 75 72 73 6f 72 20  dvance a cursor 
3eb0: 2a 2f 0a 20 20 20 20 66 73 64 69 72 45 6f 66 2c  */.    fsdirEof,
3ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ed0: 20 20 2f 2a 20 78 45 6f 66 20 2d 20 63 68 65 63    /* xEof - chec
3ee0: 6b 20 66 6f 72 20 65 6e 64 20 6f 66 20 73 63 61  k for end of sca
3ef0: 6e 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 43 6f  n */.    fsdirCo
3f00: 6c 75 6d 6e 2c 20 20 20 20 20 20 20 20 20 20 20  lumn,           
3f10: 20 20 20 20 2f 2a 20 78 43 6f 6c 75 6d 6e 20 2d      /* xColumn -
3f20: 20 72 65 61 64 20 64 61 74 61 20 2a 2f 0a 20 20   read data */.  
3f30: 20 20 66 73 64 69 72 52 6f 77 69 64 2c 20 20 20    fsdirRowid,   
3f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
3f50: 78 52 6f 77 69 64 20 2d 20 72 65 61 64 20 64 61  xRowid - read da
3f60: 74 61 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  ta */.    0,    
3f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3f80: 20 20 20 20 20 2f 2a 20 78 55 70 64 61 74 65 20       /* xUpdate 
3f90: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
3fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3fb0: 20 20 2f 2a 20 78 42 65 67 69 6e 20 2a 2f 0a 20    /* xBegin */. 
3fc0: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
3fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
3fe0: 20 78 53 79 6e 63 20 2a 2f 0a 20 20 20 20 30 2c   xSync */.    0,
3ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4000: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 6f 6d           /* xCom
4010: 6d 69 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  mit */.    0,   
4020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4030: 20 20 20 20 20 20 2f 2a 20 78 52 6f 6c 6c 62 61        /* xRollba
4040: 63 6b 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  ck */.    0,    
4050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4060: 20 20 20 20 20 2f 2a 20 78 46 69 6e 64 4d 65 74       /* xFindMet
4070: 68 6f 64 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  hod */.    0,   
4080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4090: 20 20 20 20 20 20 2f 2a 20 78 52 65 6e 61 6d 65        /* xRename
40a0: 20 2a 2f 0a 20 20 7d 3b 0a 0a 20 20 69 6e 74 20   */.  };..  int 
40b0: 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72 65  rc = sqlite3_cre
40c0: 61 74 65 5f 6d 6f 64 75 6c 65 28 64 62 2c 20 22  ate_module(db, "
40d0: 66 73 64 69 72 22 2c 20 26 66 73 64 69 72 4d 6f  fsdir", &fsdirMo
40e0: 64 75 6c 65 2c 20 30 29 3b 0a 20 20 69 66 28 20  dule, 0);.  if( 
40f0: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc==SQLITE_OK ){
4100: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65  .    rc = sqlite
4110: 33 5f 63 72 65 61 74 65 5f 6d 6f 64 75 6c 65 28  3_create_module(
4120: 64 62 2c 20 22 66 73 65 6e 74 72 79 22 2c 20 26  db, "fsentry", &
4130: 66 73 64 69 72 4d 6f 64 75 6c 65 2c 20 28 76 6f  fsdirModule, (vo
4140: 69 64 2a 29 31 29 3b 0a 20 20 7d 0a 20 20 72 65  id*)1);.  }.  re
4150: 74 75 72 6e 20 72 63 3b 0a 7d 0a 23 65 6c 73 65  turn rc;.}.#else
4160: 20 20 20 20 20 20 20 20 20 2f 2a 20 53 51 4c 49           /* SQLI
4170: 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c 54  TE_OMIT_VIRTUALT
4180: 41 42 4c 45 20 2a 2f 0a 23 20 64 65 66 69 6e 65  ABLE */.# define
4190: 20 66 73 64 69 72 52 65 67 69 73 74 65 72 28 78   fsdirRegister(x
41a0: 29 20 53 51 4c 49 54 45 5f 4f 4b 0a 23 65 6e 64  ) SQLITE_OK.#end
41b0: 69 66 0a 0a 23 69 66 64 65 66 20 5f 57 49 4e 33  if..#ifdef _WIN3
41c0: 32 0a 5f 5f 64 65 63 6c 73 70 65 63 28 64 6c 6c  2.__declspec(dll
41d0: 65 78 70 6f 72 74 29 0a 23 65 6e 64 69 66 0a 69  export).#endif.i
41e0: 6e 74 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 69  nt sqlite3_filei
41f0: 6f 5f 69 6e 69 74 28 0a 20 20 73 71 6c 69 74 65  o_init(.  sqlite
4200: 33 20 2a 64 62 2c 20 0a 20 20 63 68 61 72 20 2a  3 *db, .  char *
4210: 2a 70 7a 45 72 72 4d 73 67 2c 20 0a 20 20 63 6f  *pzErrMsg, .  co
4220: 6e 73 74 20 73 71 6c 69 74 65 33 5f 61 70 69 5f  nst sqlite3_api_
4230: 72 6f 75 74 69 6e 65 73 20 2a 70 41 70 69 0a 29  routines *pApi.)
4240: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
4250: 49 54 45 5f 4f 4b 3b 0a 20 20 53 51 4c 49 54 45  ITE_OK;.  SQLITE
4260: 5f 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 32  _EXTENSION_INIT2
4270: 28 70 41 70 69 29 3b 0a 20 20 28 76 6f 69 64 29  (pApi);.  (void)
4280: 70 7a 45 72 72 4d 73 67 3b 20 20 2f 2a 20 55 6e  pzErrMsg;  /* Un
4290: 75 73 65 64 20 70 61 72 61 6d 65 74 65 72 20 2a  used parameter *
42a0: 2f 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  /.  rc = sqlite3
42b0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e  _create_function
42c0: 28 64 62 2c 20 22 72 65 61 64 66 69 6c 65 22 2c  (db, "readfile",
42d0: 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c   1, SQLITE_UTF8,
42e0: 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20   0,.            
42f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4300: 20 20 20 72 65 61 64 66 69 6c 65 46 75 6e 63 2c     readfileFunc,
4310: 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63   0, 0);.  if( rc
4320: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  ==SQLITE_OK ){. 
4330: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
4340: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
4350: 64 62 2c 20 22 77 72 69 74 65 66 69 6c 65 22 2c  db, "writefile",
4360: 20 2d 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38   -1, SQLITE_UTF8
4370: 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20  , 0,.           
4380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4390: 20 20 20 20 20 20 77 72 69 74 65 66 69 6c 65 46        writefileF
43a0: 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a  unc, 0, 0);.  }.
43b0: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
43c0: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
43d0: 66 73 64 69 72 52 65 67 69 73 74 65 72 28 64 62  fsdirRegister(db
43e0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
43f0: 72 63 3b 0a 7d 0a                                rc;.}.