/ Hex Artifact Content
Login

Artifact 1194228c96d6b7a374e93602e2ba1899b42d0fc4d4c5253962fb13e1c9ed1f77:


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 2c 20 61 6e 64 20 65 70 6f  efile(), and epo
01d0: 6e 79 6d 6f 75 73 20 76 69 72 74 75 61 6c 20 74  nymous virtual t
01e0: 79 70 65 20 22 66 73 64 69 72 22 2e 0a 2a 2a 0a  ype "fsdir"..**.
01f0: 2a 2a 20 57 52 49 54 45 46 49 4c 45 28 46 49 4c  ** WRITEFILE(FIL
0200: 45 2c 20 44 41 54 41 20 5b 2c 20 4d 4f 44 45 20  E, DATA [, MODE 
0210: 5b 2c 20 4d 54 49 4d 45 5d 5d 29 3a 0a 2a 2a 0a  [, MTIME]]):.**.
0220: 2a 2a 20 20 20 49 66 20 6e 65 69 74 68 65 72 20  **   If neither 
0230: 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 61 6c 20  of the optional 
0240: 61 72 67 75 6d 65 6e 74 73 20 69 73 20 70 72 65  arguments is pre
0250: 73 65 6e 74 2c 20 74 68 65 6e 20 74 68 69 73 20  sent, then this 
0260: 55 44 46 0a 2a 2a 20 20 20 66 75 6e 63 74 69 6f  UDF.**   functio
0270: 6e 20 77 72 69 74 65 73 20 62 6c 6f 62 20 44 41  n writes blob DA
0280: 54 41 20 74 6f 20 66 69 6c 65 20 46 49 4c 45 2e  TA to file FILE.
0290: 20 49 66 20 73 75 63 63 65 73 73 66 75 6c 2c 20   If successful, 
02a0: 74 68 65 20 6e 75 6d 62 65 72 0a 2a 2a 20 20 20  the number.**   
02b0: 6f 66 20 62 79 74 65 73 20 77 72 69 74 74 65 6e  of bytes written
02c0: 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 49 66   is returned. If
02d0: 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73   an error occurs
02e0: 2c 20 4e 55 4c 4c 20 69 73 20 72 65 74 75 72 6e  , NULL is return
02f0: 65 64 2e 0a 2a 2a 0a 2a 2a 20 20 20 49 66 20 74  ed..**.**   If t
0300: 68 65 20 66 69 72 73 74 20 6f 70 74 69 6f 6e 20  he first option 
0310: 61 72 67 75 6d 65 6e 74 20 2d 20 4d 4f 44 45 20  argument - MODE 
0320: 2d 20 69 73 20 70 72 65 73 65 6e 74 2c 20 74 68  - is present, th
0330: 65 6e 20 69 74 20 6d 75 73 74 0a 2a 2a 20 20 20  en it must.**   
0340: 62 65 20 70 61 73 73 65 64 20 61 6e 20 69 6e 74  be passed an int
0350: 65 67 65 72 20 76 61 6c 75 65 20 74 68 61 74 20  eger value that 
0360: 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 61  corresponds to a
0370: 20 50 4f 53 49 58 20 6d 6f 64 65 0a 2a 2a 20 20   POSIX mode.**  
0380: 20 76 61 6c 75 65 20 28 66 69 6c 65 20 74 79 70   value (file typ
0390: 65 20 2b 20 70 65 72 6d 69 73 73 69 6f 6e 73 2c  e + permissions,
03a0: 20 61 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20   as returned in 
03b0: 74 68 65 20 73 74 61 74 2e 73 74 5f 6d 6f 64 65  the stat.st_mode
03c0: 0a 2a 2a 20 20 20 66 69 65 6c 64 20 62 79 20 74  .**   field by t
03d0: 68 65 20 73 74 61 74 28 29 20 73 79 73 74 65 6d  he stat() system
03e0: 20 63 61 6c 6c 29 2e 20 54 68 72 65 65 20 74 79   call). Three ty
03f0: 70 65 73 20 6f 66 20 66 69 6c 65 73 20 6d 61 79  pes of files may
0400: 0a 2a 2a 20 20 20 62 65 20 77 72 69 74 74 65 6e  .**   be written
0410: 2f 63 72 65 61 74 65 64 3a 0a 2a 2a 0a 2a 2a 20  /created:.**.** 
0420: 20 20 20 20 72 65 67 75 6c 61 72 20 66 69 6c 65      regular file
0430: 73 3a 20 20 28 6d 6f 64 65 20 26 20 30 31 37 30  s:  (mode & 0170
0440: 30 30 30 29 3d 3d 30 31 30 30 30 30 30 0a 2a 2a  000)==0100000.**
0450: 20 20 20 20 20 73 79 6d 62 6f 6c 69 63 20 6c 69       symbolic li
0460: 6e 6b 73 3a 20 28 6d 6f 64 65 20 26 20 30 31 37  nks: (mode & 017
0470: 30 30 30 30 29 3d 3d 30 31 32 30 30 30 30 0a 2a  0000)==0120000.*
0480: 2a 20 20 20 20 20 64 69 72 65 63 74 6f 72 69 65  *     directorie
0490: 73 3a 20 20 20 20 28 6d 6f 64 65 20 26 20 30 31  s:    (mode & 01
04a0: 37 30 30 30 30 29 3d 3d 30 30 34 30 30 30 30 0a  70000)==0040000.
04b0: 2a 2a 0a 2a 2a 20 20 20 46 6f 72 20 61 20 64 69  **.**   For a di
04c0: 72 65 63 74 6f 72 79 2c 20 74 68 65 20 44 41 54  rectory, the DAT
04d0: 41 20 69 73 20 69 67 6e 6f 72 65 64 2e 20 46 6f  A is ignored. Fo
04e0: 72 20 61 20 73 79 6d 62 6f 6c 69 63 20 6c 69 6e  r a symbolic lin
04f0: 6b 2c 20 69 74 20 69 73 0a 2a 2a 20 20 20 69 6e  k, it is.**   in
0500: 74 65 72 70 72 65 74 65 64 20 61 73 20 74 65 78  terpreted as tex
0510: 74 20 61 6e 64 20 75 73 65 64 20 61 73 20 74 68  t and used as th
0520: 65 20 74 61 72 67 65 74 20 6f 66 20 74 68 65 20  e target of the 
0530: 6c 69 6e 6b 2e 20 46 6f 72 20 61 0a 2a 2a 20 20  link. For a.**  
0540: 20 72 65 67 75 6c 61 72 20 66 69 6c 65 2c 20 69   regular file, i
0550: 74 20 69 73 20 69 6e 74 65 72 70 72 65 74 65 64  t is interpreted
0560: 20 61 73 20 61 20 62 6c 6f 62 20 61 6e 64 20 77   as a blob and w
0570: 72 69 74 74 65 6e 20 69 6e 74 6f 20 74 68 65 0a  ritten into the.
0580: 2a 2a 20 20 20 6e 61 6d 65 64 20 66 69 6c 65 2e  **   named file.
0590: 20 52 65 67 61 72 64 6c 65 73 73 20 6f 66 20 74   Regardless of t
05a0: 68 65 20 74 79 70 65 20 6f 66 20 66 69 6c 65 2c  he type of file,
05b0: 20 69 74 73 20 70 65 72 6d 69 73 73 69 6f 6e 73   its permissions
05c0: 20 61 72 65 0a 2a 2a 20 20 20 73 65 74 20 74 6f   are.**   set to
05d0: 20 28 6d 6f 64 65 20 26 20 30 37 37 37 29 20 62   (mode & 0777) b
05e0: 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2e  efore returning.
05f0: 0a 2a 2a 0a 2a 2a 20 20 20 49 66 20 74 68 65 20  .**.**   If the 
0600: 6f 70 74 69 6f 6e 61 6c 20 4d 54 49 4d 45 20 61  optional MTIME a
0610: 72 67 75 6d 65 6e 74 20 69 73 20 70 72 65 73 65  rgument is prese
0620: 6e 74 2c 20 74 68 65 6e 20 69 74 20 69 73 20 69  nt, then it is i
0630: 6e 74 65 72 70 72 65 74 65 64 0a 2a 2a 20 20 20  nterpreted.**   
0640: 61 73 20 61 6e 20 69 6e 74 65 67 65 72 20 2d 20  as an integer - 
0650: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 73 65  the number of se
0660: 63 6f 6e 64 73 20 73 69 6e 63 65 20 74 68 65 20  conds since the 
0670: 75 6e 69 78 20 65 70 6f 63 68 2e 20 54 68 65 0a  unix epoch. The.
0680: 2a 2a 20 20 20 6d 6f 64 69 66 69 63 61 74 69 6f  **   modificatio
0690: 6e 2d 74 69 6d 65 20 6f 66 20 74 68 65 20 74 61  n-time of the ta
06a0: 72 67 65 74 20 66 69 6c 65 20 69 73 20 73 65 74  rget file is set
06b0: 20 74 6f 20 74 68 69 73 20 76 61 6c 75 65 20 62   to this value b
06c0: 65 66 6f 72 65 0a 2a 2a 20 20 20 72 65 74 75 72  efore.**   retur
06d0: 6e 69 6e 67 2e 0a 2a 2a 0a 2a 2a 20 20 20 49 66  ning..**.**   If
06e0: 20 74 68 72 65 65 20 6f 72 20 6d 6f 72 65 20 61   three or more a
06f0: 72 67 75 6d 65 6e 74 73 20 61 72 65 20 70 61 73  rguments are pas
0700: 73 65 64 20 74 6f 20 74 68 69 73 20 66 75 6e 63  sed to this func
0710: 74 69 6f 6e 20 61 6e 64 20 61 6e 0a 2a 2a 20 20  tion and an.**  
0720: 20 65 72 72 6f 72 20 69 73 20 65 6e 63 6f 75 6e   error is encoun
0730: 74 65 72 65 64 2c 20 61 6e 20 65 78 63 65 70 74  tered, an except
0740: 69 6f 6e 20 69 73 20 72 61 69 73 65 64 2e 0a 2a  ion is raised..*
0750: 2a 0a 2a 2a 20 52 45 41 44 46 49 4c 45 28 46 49  *.** READFILE(FI
0760: 4c 45 29 3a 0a 2a 2a 0a 2a 2a 20 20 20 52 65 61  LE):.**.**   Rea
0770: 64 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65  d and return the
0780: 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 66 69 6c   contents of fil
0790: 65 20 46 49 4c 45 20 28 74 79 70 65 20 62 6c 6f  e FILE (type blo
07a0: 62 29 20 66 72 6f 6d 20 64 69 73 6b 2e 0a 2a 2a  b) from disk..**
07b0: 0a 2a 2a 20 46 53 44 49 52 3a 0a 2a 2a 0a 2a 2a  .** FSDIR:.**.**
07c0: 20 20 20 55 73 65 64 20 61 73 20 66 6f 6c 6c 6f     Used as follo
07d0: 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 53 45  ws:.**.**     SE
07e0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 66 73 64 69  LECT * FROM fsdi
07f0: 72 28 24 70 61 74 68 20 5b 2c 20 24 64 69 72 5d  r($path [, $dir]
0800: 29 3b 0a 2a 2a 0a 2a 2a 20 20 20 50 61 72 61 6d  );.**.**   Param
0810: 65 74 65 72 20 24 70 61 74 68 20 69 73 20 61 6e  eter $path is an
0820: 20 61 62 73 6f 6c 75 74 65 20 6f 72 20 72 65 6c   absolute or rel
0830: 61 74 69 76 65 20 70 61 74 68 6e 61 6d 65 2e 20  ative pathname. 
0840: 49 66 20 74 68 65 20 66 69 6c 65 20 74 68 61 74  If the file that
0850: 20 69 74 0a 2a 2a 20 20 20 72 65 66 65 72 73 20   it.**   refers 
0860: 74 6f 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73  to does not exis
0870: 74 2c 20 69 74 20 69 73 20 61 6e 20 65 72 72 6f  t, it is an erro
0880: 72 2e 20 49 66 20 74 68 65 20 70 61 74 68 20 72  r. If the path r
0890: 65 66 65 72 73 20 74 6f 20 61 20 72 65 67 75 6c  efers to a regul
08a0: 61 72 0a 2a 2a 20 20 20 66 69 6c 65 20 6f 72 20  ar.**   file or 
08b0: 73 79 6d 62 6f 6c 69 63 20 6c 69 6e 6b 2c 20 69  symbolic link, i
08c0: 74 20 72 65 74 75 72 6e 73 20 61 20 73 69 6e 67  t returns a sing
08d0: 6c 65 20 72 6f 77 2e 20 4f 72 2c 20 69 66 20 74  le row. Or, if t
08e0: 68 65 20 70 61 74 68 20 72 65 66 65 72 73 0a 2a  he path refers.*
08f0: 2a 20 20 20 74 6f 20 61 20 64 69 72 65 63 74 6f  *   to a directo
0900: 72 79 2c 20 69 74 20 72 65 74 75 72 6e 73 20 6f  ry, it returns o
0910: 6e 65 20 72 6f 77 20 66 6f 72 20 74 68 65 20 64  ne row for the d
0920: 69 72 65 63 74 6f 72 79 2c 20 61 6e 64 20 6f 6e  irectory, and on
0930: 65 20 72 6f 77 20 66 6f 72 20 65 61 63 68 0a 2a  e row for each.*
0940: 2a 20 20 20 66 69 6c 65 20 77 69 74 68 69 6e 20  *   file within 
0950: 74 68 65 20 68 69 65 72 61 72 63 68 79 20 72 6f  the hierarchy ro
0960: 6f 74 65 64 20 61 74 20 24 70 61 74 68 2e 0a 2a  oted at $path..*
0970: 2a 0a 2a 2a 20 20 20 45 61 63 68 20 72 6f 77 20  *.**   Each row 
0980: 68 61 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e  has the followin
0990: 67 20 63 6f 6c 75 6d 6e 73 3a 0a 2a 2a 0a 2a 2a  g columns:.**.**
09a0: 20 20 20 20 20 6e 61 6d 65 3a 20 20 50 61 74 68       name:  Path
09b0: 20 74 6f 20 66 69 6c 65 20 6f 72 20 64 69 72 65   to file or dire
09c0: 63 74 6f 72 79 20 28 74 65 78 74 20 76 61 6c 75  ctory (text valu
09d0: 65 29 2e 0a 2a 2a 20 20 20 20 20 6d 6f 64 65 3a  e)..**     mode:
09e0: 20 20 56 61 6c 75 65 20 6f 66 20 73 74 61 74 2e    Value of stat.
09f0: 73 74 5f 6d 6f 64 65 20 66 6f 72 20 64 69 72 65  st_mode for dire
0a00: 63 74 6f 72 79 20 65 6e 74 72 79 20 28 61 6e 20  ctory entry (an 
0a10: 69 6e 74 65 67 65 72 29 2e 0a 2a 2a 20 20 20 20  integer)..**    
0a20: 20 6d 74 69 6d 65 3a 20 56 61 6c 75 65 20 6f 66   mtime: Value of
0a30: 20 73 74 61 74 2e 73 74 5f 6d 74 69 6d 65 20 66   stat.st_mtime f
0a40: 6f 72 20 64 69 72 65 63 74 6f 72 79 20 65 6e 74  or directory ent
0a50: 72 79 20 28 61 6e 20 69 6e 74 65 67 65 72 29 2e  ry (an integer).
0a60: 0a 2a 2a 20 20 20 20 20 64 61 74 61 3a 20 20 46  .**     data:  F
0a70: 6f 72 20 61 20 72 65 67 75 6c 61 72 20 66 69 6c  or a regular fil
0a80: 65 2c 20 61 20 62 6c 6f 62 20 63 6f 6e 74 61 69  e, a blob contai
0a90: 6e 69 6e 67 20 74 68 65 20 66 69 6c 65 20 64 61  ning the file da
0aa0: 74 61 2e 20 46 6f 72 20 61 0a 2a 2a 20 20 20 20  ta. For a.**    
0ab0: 20 20 20 20 20 20 20 20 73 79 6d 6c 69 6e 6b 2c          symlink,
0ac0: 20 61 20 74 65 78 74 20 76 61 6c 75 65 20 63 6f   a text value co
0ad0: 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 74 65 78  ntaining the tex
0ae0: 74 20 6f 66 20 74 68 65 20 6c 69 6e 6b 2e 20 46  t of the link. F
0af0: 6f 72 20 61 0a 2a 2a 20 20 20 20 20 20 20 20 20  or a.**         
0b00: 20 20 20 64 69 72 65 63 74 6f 72 79 2c 20 4e 55     directory, NU
0b10: 4c 4c 2e 0a 2a 2a 0a 2a 2a 20 20 20 49 66 20 61  LL..**.**   If a
0b20: 20 6e 6f 6e 2d 4e 55 4c 4c 20 76 61 6c 75 65 20   non-NULL value 
0b30: 69 73 20 73 70 65 63 69 66 69 65 64 20 66 6f 72  is specified for
0b40: 20 74 68 65 20 6f 70 74 69 6f 6e 61 6c 20 24 64   the optional $d
0b50: 69 72 20 70 61 72 61 6d 65 74 65 72 20 61 6e 64  ir parameter and
0b60: 0a 2a 2a 20 20 20 24 70 61 74 68 20 69 73 20 61  .**   $path is a
0b70: 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 2c 20   relative path, 
0b80: 74 68 65 6e 20 24 70 61 74 68 20 69 73 20 69 6e  then $path is in
0b90: 74 65 72 70 72 65 74 65 64 20 72 65 6c 61 74 69  terpreted relati
0ba0: 76 65 20 74 6f 20 24 64 69 72 2e 20 0a 2a 2a 20  ve to $dir. .** 
0bb0: 20 20 41 6e 64 20 74 68 65 20 70 61 74 68 73 20    And the paths 
0bc0: 72 65 74 75 72 6e 65 64 20 69 6e 20 74 68 65 20  returned in the 
0bd0: 22 6e 61 6d 65 22 20 63 6f 6c 75 6d 6e 20 6f 66  "name" column of
0be0: 20 74 68 65 20 74 61 62 6c 65 20 61 72 65 20 61   the table are a
0bf0: 6c 73 6f 20 0a 2a 2a 20 20 20 72 65 6c 61 74 69  lso .**   relati
0c00: 76 65 20 74 6f 20 64 69 72 65 63 74 6f 72 79 20  ve to directory 
0c10: 24 64 69 72 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64  $dir..*/.#includ
0c20: 65 20 22 73 71 6c 69 74 65 33 65 78 74 2e 68 22  e "sqlite3ext.h"
0c30: 0a 53 51 4c 49 54 45 5f 45 58 54 45 4e 53 49 4f  .SQLITE_EXTENSIO
0c40: 4e 5f 49 4e 49 54 31 0a 23 69 6e 63 6c 75 64 65  N_INIT1.#include
0c50: 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c   <stdio.h>.#incl
0c60: 75 64 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23  ude <string.h>.#
0c70: 69 6e 63 6c 75 64 65 20 3c 61 73 73 65 72 74 2e  include <assert.
0c80: 68 3e 0a 0a 23 69 6e 63 6c 75 64 65 20 3c 73 79  h>..#include <sy
0c90: 73 2f 74 79 70 65 73 2e 68 3e 0a 23 69 6e 63 6c  s/types.h>.#incl
0ca0: 75 64 65 20 3c 73 79 73 2f 73 74 61 74 2e 68 3e  ude <sys/stat.h>
0cb0: 0a 23 69 6e 63 6c 75 64 65 20 3c 66 63 6e 74 6c  .#include <fcntl
0cc0: 2e 68 3e 0a 23 69 66 20 21 64 65 66 69 6e 65 64  .h>.#if !defined
0cd0: 28 5f 57 49 4e 33 32 29 20 26 26 20 21 64 65 66  (_WIN32) && !def
0ce0: 69 6e 65 64 28 57 49 4e 33 32 29 0a 23 20 20 69  ined(WIN32).#  i
0cf0: 6e 63 6c 75 64 65 20 3c 75 6e 69 73 74 64 2e 68  nclude <unistd.h
0d00: 3e 0a 23 20 20 69 6e 63 6c 75 64 65 20 3c 64 69  >.#  include <di
0d10: 72 65 6e 74 2e 68 3e 0a 23 20 20 69 6e 63 6c 75  rent.h>.#  inclu
0d20: 64 65 20 3c 75 74 69 6d 65 2e 68 3e 0a 23 65 6c  de <utime.h>.#el
0d30: 73 65 0a 23 20 20 69 6e 63 6c 75 64 65 20 22 77  se.#  include "w
0d40: 69 6e 64 6f 77 73 2e 68 22 0a 23 20 20 69 6e 63  indows.h".#  inc
0d50: 6c 75 64 65 20 3c 69 6f 2e 68 3e 0a 23 20 20 69  lude <io.h>.#  i
0d60: 6e 63 6c 75 64 65 20 3c 64 69 72 65 63 74 2e 68  nclude <direct.h
0d70: 3e 0a 23 20 20 69 6e 63 6c 75 64 65 20 22 74 65  >.#  include "te
0d80: 73 74 5f 77 69 6e 64 69 72 65 6e 74 2e 68 22 0a  st_windirent.h".
0d90: 23 20 20 64 65 66 69 6e 65 20 64 69 72 65 6e 74  #  define dirent
0da0: 20 44 49 52 45 4e 54 0a 23 20 20 69 66 6e 64 65   DIRENT.#  ifnde
0db0: 66 20 73 74 61 74 0a 23 20 20 20 20 64 65 66 69  f stat.#    defi
0dc0: 6e 65 20 73 74 61 74 20 5f 73 74 61 74 0a 23 20  ne stat _stat.# 
0dd0: 20 65 6e 64 69 66 0a 23 20 20 64 65 66 69 6e 65   endif.#  define
0de0: 20 6d 6b 64 69 72 28 70 61 74 68 2c 6d 6f 64 65   mkdir(path,mode
0df0: 29 20 5f 6d 6b 64 69 72 28 70 61 74 68 29 0a 23  ) _mkdir(path).#
0e00: 20 20 64 65 66 69 6e 65 20 6c 73 74 61 74 28 70    define lstat(p
0e10: 61 74 68 2c 62 75 66 29 20 73 74 61 74 28 70 61  ath,buf) stat(pa
0e20: 74 68 2c 62 75 66 29 0a 23 65 6e 64 69 66 0a 23  th,buf).#endif.#
0e30: 69 6e 63 6c 75 64 65 20 3c 74 69 6d 65 2e 68 3e  include <time.h>
0e40: 0a 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f  .#include <errno
0e50: 2e 68 3e 0a 0a 0a 23 64 65 66 69 6e 65 20 46 53  .h>...#define FS
0e60: 44 49 52 5f 53 43 48 45 4d 41 20 22 28 6e 61 6d  DIR_SCHEMA "(nam
0e70: 65 2c 6d 6f 64 65 2c 6d 74 69 6d 65 2c 64 61 74  e,mode,mtime,dat
0e80: 61 2c 70 61 74 68 20 48 49 44 44 45 4e 2c 64 69  a,path HIDDEN,di
0e90: 72 20 48 49 44 44 45 4e 29 22 0a 0a 2f 2a 0a 2a  r HIDDEN)"../*.*
0ea0: 2a 20 53 65 74 20 74 68 65 20 72 65 73 75 6c 74  * Set the result
0eb0: 20 73 74 6f 72 65 64 20 62 79 20 63 6f 6e 74 65   stored by conte
0ec0: 78 74 20 63 74 78 20 74 6f 20 61 20 62 6c 6f 62  xt ctx to a blob
0ed0: 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20   containing the 
0ee0: 0a 2a 2a 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20  .** contents of 
0ef0: 66 69 6c 65 20 7a 4e 61 6d 65 2e 0a 2a 2f 0a 73  file zName..*/.s
0f00: 74 61 74 69 63 20 76 6f 69 64 20 72 65 61 64 46  tatic void readF
0f10: 69 6c 65 43 6f 6e 74 65 6e 74 73 28 73 71 6c 69  ileContents(sqli
0f20: 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78  te3_context *ctx
0f30: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e  , const char *zN
0f40: 61 6d 65 29 7b 0a 20 20 46 49 4c 45 20 2a 69 6e  ame){.  FILE *in
0f50: 3b 0a 20 20 6c 6f 6e 67 20 6e 49 6e 3b 0a 20 20  ;.  long nIn;.  
0f60: 76 6f 69 64 20 2a 70 42 75 66 3b 0a 0a 20 20 69  void *pBuf;..  i
0f70: 6e 20 3d 20 66 6f 70 65 6e 28 7a 4e 61 6d 65 2c  n = fopen(zName,
0f80: 20 22 72 62 22 29 3b 0a 20 20 69 66 28 20 69 6e   "rb");.  if( in
0f90: 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20  ==0 ) return;.  
0fa0: 66 73 65 65 6b 28 69 6e 2c 20 30 2c 20 53 45 45  fseek(in, 0, SEE
0fb0: 4b 5f 45 4e 44 29 3b 0a 20 20 6e 49 6e 20 3d 20  K_END);.  nIn = 
0fc0: 66 74 65 6c 6c 28 69 6e 29 3b 0a 20 20 72 65 77  ftell(in);.  rew
0fd0: 69 6e 64 28 69 6e 29 3b 0a 20 20 70 42 75 66 20  ind(in);.  pBuf 
0fe0: 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63  = sqlite3_malloc
0ff0: 28 20 6e 49 6e 20 29 3b 0a 20 20 69 66 28 20 70  ( nIn );.  if( p
1000: 42 75 66 20 26 26 20 31 3d 3d 66 72 65 61 64 28  Buf && 1==fread(
1010: 70 42 75 66 2c 20 6e 49 6e 2c 20 31 2c 20 69 6e  pBuf, nIn, 1, in
1020: 29 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  ) ){.    sqlite3
1030: 5f 72 65 73 75 6c 74 5f 62 6c 6f 62 28 63 74 78  _result_blob(ctx
1040: 2c 20 70 42 75 66 2c 20 6e 49 6e 2c 20 73 71 6c  , pBuf, nIn, sql
1050: 69 74 65 33 5f 66 72 65 65 29 3b 0a 20 20 7d 65  ite3_free);.  }e
1060: 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  lse{.    sqlite3
1070: 5f 66 72 65 65 28 70 42 75 66 29 3b 0a 20 20 7d  _free(pBuf);.  }
1080: 0a 20 20 66 63 6c 6f 73 65 28 69 6e 29 3b 0a 7d  .  fclose(in);.}
1090: 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e  ../*.** Implemen
10a0: 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 22 72  tation of the "r
10b0: 65 61 64 66 69 6c 65 28 58 29 22 20 53 51 4c 20  eadfile(X)" SQL 
10c0: 66 75 6e 63 74 69 6f 6e 2e 20 20 54 68 65 20 65  function.  The e
10d0: 6e 74 69 72 65 20 63 6f 6e 74 65 6e 74 0a 2a 2a  ntire content.**
10e0: 20 6f 66 20 74 68 65 20 66 69 6c 65 20 6e 61 6d   of the file nam
10f0: 65 64 20 58 20 69 73 20 72 65 61 64 20 61 6e 64  ed X is read and
1100: 20 72 65 74 75 72 6e 65 64 20 61 73 20 61 20 42   returned as a B
1110: 4c 4f 42 2e 20 20 4e 55 4c 4c 20 69 73 20 72 65  LOB.  NULL is re
1120: 74 75 72 6e 65 64 0a 2a 2a 20 69 66 20 74 68 65  turned.** if the
1130: 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65   file does not e
1140: 78 69 73 74 20 6f 72 20 69 73 20 75 6e 72 65 61  xist or is unrea
1150: 64 61 62 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  dable..*/.static
1160: 20 76 6f 69 64 20 72 65 61 64 66 69 6c 65 46 75   void readfileFu
1170: 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f  nc(.  sqlite3_co
1180: 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a  ntext *context,.
1190: 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71    int argc,.  sq
11a0: 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72  lite3_value **ar
11b0: 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68  gv.){.  const ch
11c0: 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 28 76 6f  ar *zName;.  (vo
11d0: 69 64 29 28 61 72 67 63 29 3b 20 20 2f 2a 20 55  id)(argc);  /* U
11e0: 6e 75 73 65 64 20 70 61 72 61 6d 65 74 65 72 20  nused parameter 
11f0: 2a 2f 0a 20 20 7a 4e 61 6d 65 20 3d 20 28 63 6f  */.  zName = (co
1200: 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65  nst char*)sqlite
1210: 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72 67  3_value_text(arg
1220: 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20 7a 4e 61  v[0]);.  if( zNa
1230: 6d 65 3d 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a  me==0 ) return;.
1240: 20 20 72 65 61 64 46 69 6c 65 43 6f 6e 74 65 6e    readFileConten
1250: 74 73 28 63 6f 6e 74 65 78 74 2c 20 7a 4e 61 6d  ts(context, zNam
1260: 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 74  e);.}../*.** Set
1270: 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61   the error messa
1280: 67 65 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20  ge contained in 
1290: 63 6f 6e 74 65 78 74 20 63 74 78 20 74 6f 20 74  context ctx to t
12a0: 68 65 20 72 65 73 75 6c 74 73 20 6f 66 0a 2a 2a  he results of.**
12b0: 20 76 70 72 69 6e 74 66 28 7a 46 6d 74 2c 20 2e   vprintf(zFmt, .
12c0: 2e 2e 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  ..)..*/.static v
12d0: 6f 69 64 20 63 74 78 45 72 72 6f 72 4d 73 67 28  oid ctxErrorMsg(
12e0: 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20  sqlite3_context 
12f0: 2a 63 74 78 2c 20 63 6f 6e 73 74 20 63 68 61 72  *ctx, const char
1300: 20 2a 7a 46 6d 74 2c 20 2e 2e 2e 29 7b 0a 20 20   *zFmt, ...){.  
1310: 63 68 61 72 20 2a 7a 4d 73 67 20 3d 20 30 3b 0a  char *zMsg = 0;.
1320: 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20 20    va_list ap;.  
1330: 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 46 6d  va_start(ap, zFm
1340: 74 29 3b 0a 20 20 7a 4d 73 67 20 3d 20 73 71 6c  t);.  zMsg = sql
1350: 69 74 65 33 5f 76 6d 70 72 69 6e 74 66 28 7a 46  ite3_vmprintf(zF
1360: 6d 74 2c 20 61 70 29 3b 0a 20 20 73 71 6c 69 74  mt, ap);.  sqlit
1370: 65 33 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28  e3_result_error(
1380: 63 74 78 2c 20 7a 4d 73 67 2c 20 2d 31 29 3b 0a  ctx, zMsg, -1);.
1390: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a    sqlite3_free(z
13a0: 4d 73 67 29 3b 0a 20 20 76 61 5f 65 6e 64 28 61  Msg);.  va_end(a
13b0: 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 72 67  p);.}../*.** Arg
13c0: 75 6d 65 6e 74 20 7a 46 69 6c 65 20 69 73 20 74  ument zFile is t
13d0: 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 66 69 6c  he name of a fil
13e0: 65 20 74 68 61 74 20 77 69 6c 6c 20 62 65 20 63  e that will be c
13f0: 72 65 61 74 65 64 20 61 6e 64 2f 6f 72 20 77 72  reated and/or wr
1400: 69 74 74 65 6e 0a 2a 2a 20 62 79 20 53 51 4c 20  itten.** by SQL 
1410: 66 75 6e 63 74 69 6f 6e 20 77 72 69 74 65 66 69  function writefi
1420: 6c 65 28 29 2e 20 54 68 69 73 20 66 75 6e 63 74  le(). This funct
1430: 69 6f 6e 20 65 6e 73 75 72 65 73 20 74 68 61 74  ion ensures that
1440: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 0a 2a   the directory.*
1450: 2a 20 7a 46 69 6c 65 20 77 69 6c 6c 20 62 65 20  * zFile will be 
1460: 77 72 69 74 74 65 6e 20 74 6f 20 65 78 69 73 74  written to exist
1470: 73 2c 20 63 72 65 61 74 69 6e 67 20 69 74 20 69  s, creating it i
1480: 66 20 72 65 71 75 69 72 65 64 2e 20 54 68 65 20  f required. The 
1490: 70 65 72 6d 69 73 73 69 6f 6e 73 0a 2a 2a 20 66  permissions.** f
14a0: 6f 72 20 61 6e 79 20 70 61 74 68 20 63 6f 6d 70  or any path comp
14b0: 6f 6e 65 6e 74 73 20 63 72 65 61 74 65 64 20 62  onents created b
14c0: 79 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20  y this function 
14d0: 61 72 65 20 73 65 74 20 74 6f 20 28 6d 6f 64 65  are set to (mode
14e0: 26 30 37 37 37 29 2e 0a 2a 2a 0a 2a 2a 20 49 66  &0777)..**.** If
14f0: 20 61 6e 20 4f 4f 4d 20 63 6f 6e 64 69 74 69 6f   an OOM conditio
1500: 6e 20 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64  n is encountered
1510: 2c 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 69  , SQLITE_NOMEM i
1520: 73 20 72 65 74 75 72 6e 65 64 2e 20 4f 74 68 65  s returned. Othe
1530: 72 77 69 73 65 2c 0a 2a 2a 20 53 51 4c 49 54 45  rwise,.** SQLITE
1540: 5f 4f 4b 20 69 73 20 72 65 74 75 72 6e 65 64 20  _OK is returned 
1550: 69 66 20 74 68 65 20 64 69 72 65 63 74 6f 72 79  if the directory
1560: 20 69 73 20 73 75 63 63 65 73 73 66 75 6c 6c 79   is successfully
1570: 20 63 72 65 61 74 65 64 2c 20 6f 72 0a 2a 2a 20   created, or.** 
1580: 53 51 4c 49 54 45 5f 45 52 52 4f 52 20 6f 74 68  SQLITE_ERROR oth
1590: 65 72 77 69 73 65 2e 0a 2a 2f 0a 73 74 61 74 69  erwise..*/.stati
15a0: 63 20 69 6e 74 20 6d 61 6b 65 44 69 72 65 63 74  c int makeDirect
15b0: 6f 72 79 28 0a 20 20 63 6f 6e 73 74 20 63 68 61  ory(.  const cha
15c0: 72 20 2a 7a 46 69 6c 65 2c 0a 20 20 6d 6f 64 65  r *zFile,.  mode
15d0: 5f 74 20 6d 6f 64 65 0a 29 7b 0a 20 20 63 68 61  _t mode.){.  cha
15e0: 72 20 2a 7a 43 6f 70 79 20 3d 20 73 71 6c 69 74  r *zCopy = sqlit
15f0: 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c  e3_mprintf("%s",
1600: 20 7a 46 69 6c 65 29 3b 0a 20 20 69 6e 74 20 72   zFile);.  int r
1610: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 0a  c = SQLITE_OK;..
1620: 20 20 69 66 28 20 7a 43 6f 70 79 3d 3d 30 20 29    if( zCopy==0 )
1630: 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54  {.    rc = SQLIT
1640: 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 65 6c 73 65  E_NOMEM;.  }else
1650: 7b 0a 20 20 20 20 69 6e 74 20 6e 43 6f 70 79 20  {.    int nCopy 
1660: 3d 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 7a 43  = (int)strlen(zC
1670: 6f 70 79 29 3b 0a 20 20 20 20 69 6e 74 20 69 20  opy);.    int i 
1680: 3d 20 31 3b 0a 0a 20 20 20 20 77 68 69 6c 65 28  = 1;..    while(
1690: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc==SQLITE_OK )
16a0: 7b 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 73  {.      struct s
16b0: 74 61 74 20 73 53 74 61 74 3b 0a 20 20 20 20 20  tat sStat;.     
16c0: 20 69 6e 74 20 72 63 32 3b 0a 0a 20 20 20 20 20   int rc2;..     
16d0: 20 66 6f 72 28 3b 20 7a 43 6f 70 79 5b 69 5d 21   for(; zCopy[i]!
16e0: 3d 27 2f 27 20 26 26 20 69 3c 6e 43 6f 70 79 3b  ='/' && i<nCopy;
16f0: 20 69 2b 2b 29 3b 0a 20 20 20 20 20 20 69 66 28   i++);.      if(
1700: 20 69 3d 3d 6e 43 6f 70 79 20 29 20 62 72 65 61   i==nCopy ) brea
1710: 6b 3b 0a 20 20 20 20 20 20 7a 43 6f 70 79 5b 69  k;.      zCopy[i
1720: 5d 20 3d 20 27 5c 30 27 3b 0a 0a 20 20 20 20 20  ] = '\0';..     
1730: 20 72 63 32 20 3d 20 73 74 61 74 28 7a 43 6f 70   rc2 = stat(zCop
1740: 79 2c 20 26 73 53 74 61 74 29 3b 0a 20 20 20 20  y, &sStat);.    
1750: 20 20 69 66 28 20 72 63 32 21 3d 30 20 29 7b 0a    if( rc2!=0 ){.
1760: 20 20 20 20 20 20 20 20 69 66 28 20 6d 6b 64 69          if( mkdi
1770: 72 28 7a 43 6f 70 79 2c 20 6d 6f 64 65 20 26 20  r(zCopy, mode & 
1780: 30 37 37 37 29 20 29 20 72 63 20 3d 20 53 51 4c  0777) ) rc = SQL
1790: 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  ITE_ERROR;.     
17a0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
17b0: 69 66 28 20 21 53 5f 49 53 44 49 52 28 73 53 74  if( !S_ISDIR(sSt
17c0: 61 74 2e 73 74 5f 6d 6f 64 65 29 20 29 20 72 63  at.st_mode) ) rc
17d0: 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b   = SQLITE_ERROR;
17e0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7a  .      }.      z
17f0: 43 6f 70 79 5b 69 5d 20 3d 20 27 2f 27 3b 0a 20  Copy[i] = '/';. 
1800: 20 20 20 20 20 69 2b 2b 3b 0a 20 20 20 20 7d 0a       i++;.    }.
1810: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65  .    sqlite3_fre
1820: 65 28 7a 43 6f 70 79 29 3b 0a 20 20 7d 0a 0a 20  e(zCopy);.  }.. 
1830: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f   return rc;.}../
1840: 2a 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69  *.** This functi
1850: 6f 6e 20 64 6f 65 73 20 74 68 65 20 77 6f 72 6b  on does the work
1860: 20 66 6f 72 20 74 68 65 20 77 72 69 74 65 66 69   for the writefi
1870: 6c 65 28 29 20 55 44 46 2e 20 52 65 66 65 72 20  le() UDF. Refer 
1880: 74 6f 20 0a 2a 2a 20 68 65 61 64 65 72 20 63 6f  to .** header co
1890: 6d 6d 65 6e 74 73 20 61 74 20 74 68 65 20 74 6f  mments at the to
18a0: 70 20 6f 66 20 74 68 69 73 20 66 69 6c 65 20 66  p of this file f
18b0: 6f 72 20 64 65 74 61 69 6c 73 2e 0a 2a 2f 0a 73  or details..*/.s
18c0: 74 61 74 69 63 20 69 6e 74 20 77 72 69 74 65 46  tatic int writeF
18d0: 69 6c 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 63  ile(.  sqlite3_c
18e0: 6f 6e 74 65 78 74 20 2a 70 43 74 78 2c 20 20 20  ontext *pCtx,   
18f0: 20 20 20 20 20 20 20 2f 2a 20 43 6f 6e 74 65 78         /* Contex
1900: 74 20 74 6f 20 72 65 74 75 72 6e 20 62 79 74 65  t to return byte
1910: 73 20 77 72 69 74 74 65 6e 20 69 6e 20 2a 2f 0a  s written in */.
1920: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46    const char *zF
1930: 69 6c 65 2c 20 20 20 20 20 20 20 20 20 20 20 20  ile,            
1940: 20 20 2f 2a 20 46 69 6c 65 20 74 6f 20 77 72 69    /* File to wri
1950: 74 65 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  te */.  sqlite3_
1960: 76 61 6c 75 65 20 2a 70 44 61 74 61 2c 20 20 20  value *pData,   
1970: 20 20 20 20 20 20 20 20 2f 2a 20 44 61 74 61 20          /* Data 
1980: 74 6f 20 77 72 69 74 65 20 2a 2f 0a 20 20 6d 6f  to write */.  mo
1990: 64 65 5f 74 20 6d 6f 64 65 2c 20 20 20 20 20 20  de_t mode,      
19a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
19b0: 20 4d 4f 44 45 20 70 61 72 61 6d 65 74 65 72 20   MODE parameter 
19c0: 70 61 73 73 65 64 20 74 6f 20 77 72 69 74 65 66  passed to writef
19d0: 69 6c 65 28 29 20 2a 2f 0a 20 20 73 71 6c 69 74  ile() */.  sqlit
19e0: 65 33 5f 69 6e 74 36 34 20 6d 74 69 6d 65 20 20  e3_int64 mtime  
19f0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4d 54             /* MT
1a00: 49 4d 45 20 70 61 72 61 6d 65 74 65 72 20 28 6f  IME parameter (o
1a10: 72 20 2d 31 20 74 6f 20 6e 6f 74 20 73 65 74 20  r -1 to not set 
1a20: 74 69 6d 65 29 20 2a 2f 0a 29 7b 0a 23 69 66 20  time) */.){.#if 
1a30: 21 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29  !defined(_WIN32)
1a40: 20 26 26 20 21 64 65 66 69 6e 65 64 28 57 49 4e   && !defined(WIN
1a50: 33 32 29 0a 20 20 69 66 28 20 53 5f 49 53 4c 4e  32).  if( S_ISLN
1a60: 4b 28 6d 6f 64 65 29 20 29 7b 0a 20 20 20 20 63  K(mode) ){.    c
1a70: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 6f 20 3d  onst char *zTo =
1a80: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71   (const char*)sq
1a90: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
1aa0: 28 70 44 61 74 61 29 3b 0a 20 20 20 20 69 66 28  (pData);.    if(
1ab0: 20 73 79 6d 6c 69 6e 6b 28 7a 54 6f 2c 20 7a 46   symlink(zTo, zF
1ac0: 69 6c 65 29 3c 30 20 29 20 72 65 74 75 72 6e 20  ile)<0 ) return 
1ad0: 31 3b 0a 20 20 7d 65 6c 73 65 0a 23 65 6e 64 69  1;.  }else.#endi
1ae0: 66 0a 20 20 7b 0a 20 20 20 20 69 66 28 20 53 5f  f.  {.    if( S_
1af0: 49 53 44 49 52 28 6d 6f 64 65 29 20 29 7b 0a 20  ISDIR(mode) ){. 
1b00: 20 20 20 20 20 69 66 28 20 6d 6b 64 69 72 28 7a       if( mkdir(z
1b10: 46 69 6c 65 2c 20 6d 6f 64 65 29 20 29 7b 0a 20  File, mode) ){. 
1b20: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 6d 6b         /* The mk
1b30: 64 69 72 28 29 20 63 61 6c 6c 20 74 6f 20 63 72  dir() call to cr
1b40: 65 61 74 65 20 74 68 65 20 64 69 72 65 63 74 6f  eate the directo
1b50: 72 79 20 66 61 69 6c 65 64 2e 20 54 68 69 73 20  ry failed. This 
1b60: 6d 69 67 68 74 20 6e 6f 74 0a 20 20 20 20 20 20  might not.      
1b70: 20 20 2a 2a 20 62 65 20 61 6e 20 65 72 72 6f 72    ** be an error
1b80: 20 74 68 6f 75 67 68 20 2d 20 69 66 20 74 68 65   though - if the
1b90: 72 65 20 69 73 20 61 6c 72 65 61 64 79 20 61 20  re is already a 
1ba0: 64 69 72 65 63 74 6f 72 79 20 61 74 20 74 68 65  directory at the
1bb0: 20 73 61 6d 65 0a 20 20 20 20 20 20 20 20 2a 2a   same.        **
1bc0: 20 70 61 74 68 20 61 6e 64 20 65 69 74 68 65 72   path and either
1bd0: 20 74 68 65 20 70 65 72 6d 69 73 73 69 6f 6e 73   the permissions
1be0: 20 61 6c 72 65 61 64 79 20 6d 61 74 63 68 20 6f   already match o
1bf0: 72 20 63 61 6e 20 62 65 20 63 68 61 6e 67 65 64  r can be changed
1c00: 0a 20 20 20 20 20 20 20 20 2a 2a 20 74 6f 20 64  .        ** to d
1c10: 6f 20 73 6f 20 75 73 69 6e 67 20 63 68 6d 6f 64  o so using chmod
1c20: 28 29 2c 20 69 74 20 69 73 20 6e 6f 74 20 61 6e  (), it is not an
1c30: 20 65 72 72 6f 72 2e 20 20 2a 2f 0a 20 20 20 20   error.  */.    
1c40: 20 20 20 20 73 74 72 75 63 74 20 73 74 61 74 20      struct stat 
1c50: 73 53 74 61 74 3b 0a 20 20 20 20 20 20 20 20 69  sStat;.        i
1c60: 66 28 20 65 72 72 6e 6f 21 3d 45 45 58 49 53 54  f( errno!=EEXIST
1c70: 0a 20 20 20 20 20 20 20 20 20 7c 7c 20 30 21 3d  .         || 0!=
1c80: 73 74 61 74 28 7a 46 69 6c 65 2c 20 26 73 53 74  stat(zFile, &sSt
1c90: 61 74 29 0a 20 20 20 20 20 20 20 20 20 7c 7c 20  at).         || 
1ca0: 21 53 5f 49 53 44 49 52 28 73 53 74 61 74 2e 73  !S_ISDIR(sStat.s
1cb0: 74 5f 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20  t_mode).        
1cc0: 20 7c 7c 20 28 28 73 53 74 61 74 2e 73 74 5f 6d   || ((sStat.st_m
1cd0: 6f 64 65 26 30 37 37 37 29 21 3d 28 6d 6f 64 65  ode&0777)!=(mode
1ce0: 26 30 37 37 37 29 20 26 26 20 30 21 3d 63 68 6d  &0777) && 0!=chm
1cf0: 6f 64 28 7a 46 69 6c 65 2c 20 6d 6f 64 65 26 30  od(zFile, mode&0
1d00: 37 37 37 29 29 0a 20 20 20 20 20 20 20 20 29 7b  777)).        ){
1d10: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72  .          retur
1d20: 6e 20 31 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  n 1;.        }. 
1d30: 20 20 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65       }.    }else
1d40: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
1d50: 69 6e 74 36 34 20 6e 57 72 69 74 65 20 3d 20 30  int64 nWrite = 0
1d60: 3b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68  ;.      const ch
1d70: 61 72 20 2a 7a 3b 0a 20 20 20 20 20 20 69 6e 74  ar *z;.      int
1d80: 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 46   rc = 0;.      F
1d90: 49 4c 45 20 2a 6f 75 74 20 3d 20 66 6f 70 65 6e  ILE *out = fopen
1da0: 28 7a 46 69 6c 65 2c 20 22 77 62 22 29 3b 0a 20  (zFile, "wb");. 
1db0: 20 20 20 20 20 69 66 28 20 6f 75 74 3d 3d 30 20       if( out==0 
1dc0: 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20  ) return 1;.    
1dd0: 20 20 7a 20 3d 20 28 63 6f 6e 73 74 20 63 68 61    z = (const cha
1de0: 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  r*)sqlite3_value
1df0: 5f 62 6c 6f 62 28 70 44 61 74 61 29 3b 0a 20 20  _blob(pData);.  
1e00: 20 20 20 20 69 66 28 20 7a 20 29 7b 0a 20 20 20      if( z ){.   
1e10: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74       sqlite3_int
1e20: 36 34 20 6e 20 3d 20 66 77 72 69 74 65 28 7a 2c  64 n = fwrite(z,
1e30: 20 31 2c 20 73 71 6c 69 74 65 33 5f 76 61 6c 75   1, sqlite3_valu
1e40: 65 5f 62 79 74 65 73 28 70 44 61 74 61 29 2c 20  e_bytes(pData), 
1e50: 6f 75 74 29 3b 0a 20 20 20 20 20 20 20 20 6e 57  out);.        nW
1e60: 72 69 74 65 20 3d 20 73 71 6c 69 74 65 33 5f 76  rite = sqlite3_v
1e70: 61 6c 75 65 5f 62 79 74 65 73 28 70 44 61 74 61  alue_bytes(pData
1e80: 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e  );.        if( n
1e90: 57 72 69 74 65 21 3d 6e 20 29 7b 0a 20 20 20 20  Write!=n ){.    
1ea0: 20 20 20 20 20 20 72 63 20 3d 20 31 3b 0a 20 20        rc = 1;.  
1eb0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a        }.      }.
1ec0: 20 20 20 20 20 20 66 63 6c 6f 73 65 28 6f 75 74        fclose(out
1ed0: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63 3d  );.      if( rc=
1ee0: 3d 30 20 26 26 20 6d 6f 64 65 20 26 26 20 63 68  =0 && mode && ch
1ef0: 6d 6f 64 28 7a 46 69 6c 65 2c 20 6d 6f 64 65 20  mod(zFile, mode 
1f00: 26 20 30 37 37 37 29 20 29 7b 0a 20 20 20 20 20  & 0777) ){.     
1f10: 20 20 20 72 63 20 3d 20 31 3b 0a 20 20 20 20 20     rc = 1;.     
1f20: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 72 63 20   }.      if( rc 
1f30: 29 20 72 65 74 75 72 6e 20 32 3b 0a 20 20 20 20  ) return 2;.    
1f40: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
1f50: 5f 69 6e 74 36 34 28 70 43 74 78 2c 20 6e 57 72  _int64(pCtx, nWr
1f60: 69 74 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  ite);.    }.  }.
1f70: 0a 20 20 69 66 28 20 6d 74 69 6d 65 3e 3d 30 20  .  if( mtime>=0 
1f80: 29 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f  ){.#if defined(_
1f90: 57 49 4e 33 32 29 0a 20 20 20 20 2f 2a 20 57 69  WIN32).    /* Wi
1fa0: 6e 64 6f 77 73 20 2a 2f 0a 20 20 20 20 46 49 4c  ndows */.    FIL
1fb0: 45 54 49 4d 45 20 6c 61 73 74 41 63 63 65 73 73  ETIME lastAccess
1fc0: 3b 0a 20 20 20 20 46 49 4c 45 54 49 4d 45 20 6c  ;.    FILETIME l
1fd0: 61 73 74 57 72 69 74 65 3b 0a 20 20 20 20 53 59  astWrite;.    SY
1fe0: 53 54 45 4d 54 49 4d 45 20 63 75 72 72 65 6e 74  STEMTIME current
1ff0: 54 69 6d 65 3b 0a 20 20 20 20 4c 4f 4e 47 4c 4f  Time;.    LONGLO
2000: 4e 47 20 69 6e 74 65 72 76 61 6c 73 3b 0a 20 20  NG intervals;.  
2010: 20 20 48 41 4e 44 4c 45 20 68 46 69 6c 65 3b 0a    HANDLE hFile;.
2020: 20 20 20 20 47 65 74 53 79 73 74 65 6d 54 69 6d      GetSystemTim
2030: 65 28 26 63 75 72 72 65 6e 74 54 69 6d 65 29 3b  e(&currentTime);
2040: 0a 20 20 20 20 53 79 73 74 65 6d 54 69 6d 65 54  .    SystemTimeT
2050: 6f 46 69 6c 65 54 69 6d 65 28 26 63 75 72 72 65  oFileTime(&curre
2060: 6e 74 54 69 6d 65 2c 20 26 6c 61 73 74 41 63 63  ntTime, &lastAcc
2070: 65 73 73 29 3b 0a 20 20 20 20 69 6e 74 65 72 76  ess);.    interv
2080: 61 6c 73 20 3d 20 49 6e 74 33 32 78 33 32 54 6f  als = Int32x32To
2090: 36 34 28 6d 74 69 6d 65 2c 20 31 30 30 30 30 30  64(mtime, 100000
20a0: 30 30 29 20 2b 20 31 31 36 34 34 34 37 33 36 30  00) + 1164447360
20b0: 30 30 30 30 30 30 30 30 3b 0a 20 20 20 20 6c 61  00000000;.    la
20c0: 73 74 57 72 69 74 65 2e 64 77 4c 6f 77 44 61 74  stWrite.dwLowDat
20d0: 65 54 69 6d 65 20 3d 20 28 44 57 4f 52 44 29 69  eTime = (DWORD)i
20e0: 6e 74 65 72 76 61 6c 73 3b 0a 20 20 20 20 6c 61  ntervals;.    la
20f0: 73 74 57 72 69 74 65 2e 64 77 48 69 67 68 44 61  stWrite.dwHighDa
2100: 74 65 54 69 6d 65 20 3d 20 69 6e 74 65 72 76 61  teTime = interva
2110: 6c 73 20 3e 3e 20 33 32 3b 0a 20 20 20 20 68 46  ls >> 32;.    hF
2120: 69 6c 65 20 3d 20 43 72 65 61 74 65 46 69 6c 65  ile = CreateFile
2130: 28 0a 20 20 20 20 20 20 7a 46 69 6c 65 2c 20 46  (.      zFile, F
2140: 49 4c 45 5f 57 52 49 54 45 5f 41 54 54 52 49 42  ILE_WRITE_ATTRIB
2150: 55 54 45 53 2c 20 30 2c 20 4e 55 4c 4c 2c 20 4f  UTES, 0, NULL, O
2160: 50 45 4e 5f 45 58 49 53 54 49 4e 47 2c 0a 20 20  PEN_EXISTING,.  
2170: 20 20 20 20 46 49 4c 45 5f 46 4c 41 47 5f 42 41      FILE_FLAG_BA
2180: 43 4b 55 50 5f 53 45 4d 41 4e 54 49 43 53 2c 20  CKUP_SEMANTICS, 
2190: 4e 55 4c 4c 0a 20 20 20 20 29 3b 0a 20 20 20 20  NULL.    );.    
21a0: 69 66 28 20 68 46 69 6c 65 21 3d 49 4e 56 41 4c  if( hFile!=INVAL
21b0: 49 44 5f 48 41 4e 44 4c 45 5f 56 41 4c 55 45 20  ID_HANDLE_VALUE 
21c0: 29 7b 0a 20 20 20 20 20 20 42 4f 4f 4c 20 62 52  ){.      BOOL bR
21d0: 65 73 75 6c 74 20 3d 20 53 65 74 46 69 6c 65 54  esult = SetFileT
21e0: 69 6d 65 28 68 46 69 6c 65 2c 20 4e 55 4c 4c 2c  ime(hFile, NULL,
21f0: 20 26 6c 61 73 74 41 63 63 65 73 73 2c 20 26 6c   &lastAccess, &l
2200: 61 73 74 57 72 69 74 65 29 3b 0a 20 20 20 20 20  astWrite);.     
2210: 20 43 6c 6f 73 65 48 61 6e 64 6c 65 28 68 46 69   CloseHandle(hFi
2220: 6c 65 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  le);.      retur
2230: 6e 20 21 62 52 65 73 75 6c 74 3b 0a 20 20 20 20  n !bResult;.    
2240: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 72 65 74  }else{.      ret
2250: 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 23 65 6c  urn 1;.    }.#el
2260: 69 66 20 64 65 66 69 6e 65 64 28 41 54 5f 46 44  if defined(AT_FD
2270: 43 57 44 29 0a 20 20 20 20 2f 2a 20 52 65 63 65  CWD).    /* Rece
2280: 6e 74 20 75 6e 69 78 20 2a 2f 0a 20 20 20 20 73  nt unix */.    s
2290: 74 72 75 63 74 20 74 69 6d 65 73 70 65 63 20 74  truct timespec t
22a0: 69 6d 65 73 5b 32 5d 3b 0a 20 20 20 20 74 69 6d  imes[2];.    tim
22b0: 65 73 5b 30 5d 2e 74 76 5f 6e 73 65 63 20 3d 20  es[0].tv_nsec = 
22c0: 74 69 6d 65 73 5b 31 5d 2e 74 76 5f 6e 73 65 63  times[1].tv_nsec
22d0: 20 3d 20 30 3b 0a 20 20 20 20 74 69 6d 65 73 5b   = 0;.    times[
22e0: 30 5d 2e 74 76 5f 73 65 63 20 3d 20 74 69 6d 65  0].tv_sec = time
22f0: 28 30 29 3b 0a 20 20 20 20 74 69 6d 65 73 5b 31  (0);.    times[1
2300: 5d 2e 74 76 5f 73 65 63 20 3d 20 6d 74 69 6d 65  ].tv_sec = mtime
2310: 3b 0a 20 20 20 20 69 66 28 20 75 74 69 6d 65 6e  ;.    if( utimen
2320: 73 61 74 28 41 54 5f 46 44 43 57 44 2c 20 7a 46  sat(AT_FDCWD, zF
2330: 69 6c 65 2c 20 74 69 6d 65 73 2c 20 41 54 5f 53  ile, times, AT_S
2340: 59 4d 4c 49 4e 4b 5f 4e 4f 46 4f 4c 4c 4f 57 29  YMLINK_NOFOLLOW)
2350: 20 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e   ){.      return
2360: 20 31 3b 0a 20 20 20 20 7d 0a 23 65 6c 73 65 0a   1;.    }.#else.
2370: 20 20 20 20 2f 2a 20 4c 65 67 61 63 79 20 75 6e      /* Legacy un
2380: 69 78 20 2a 2f 0a 20 20 20 20 73 74 72 75 63 74  ix */.    struct
2390: 20 74 69 6d 65 76 61 6c 20 74 69 6d 65 73 5b 32   timeval times[2
23a0: 5d 3b 0a 20 20 20 20 74 69 6d 65 73 5b 30 5d 2e  ];.    times[0].
23b0: 74 76 5f 75 73 65 63 20 3d 20 74 69 6d 65 73 5b  tv_usec = times[
23c0: 31 5d 2e 74 76 5f 75 73 65 63 20 3d 20 30 3b 0a  1].tv_usec = 0;.
23d0: 20 20 20 20 74 69 6d 65 73 5b 30 5d 2e 74 76 5f      times[0].tv_
23e0: 73 65 63 20 3d 20 74 69 6d 65 28 30 29 3b 0a 20  sec = time(0);. 
23f0: 20 20 20 74 69 6d 65 73 5b 31 5d 2e 74 76 5f 73     times[1].tv_s
2400: 65 63 20 3d 20 6d 74 69 6d 65 3b 0a 20 20 20 20  ec = mtime;.    
2410: 69 66 28 20 75 74 69 6d 65 73 28 7a 46 69 6c 65  if( utimes(zFile
2420: 2c 20 74 69 6d 65 73 29 20 29 7b 0a 20 20 20 20  , times) ){.    
2430: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20    return 1;.    
2440: 7d 0a 23 65 6e 64 69 66 0a 20 20 7d 0a 0a 20 20  }.#endif.  }..  
2450: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a  return 0;.}../*.
2460: 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  ** Implementatio
2470: 6e 20 6f 66 20 74 68 65 20 22 77 72 69 74 65 66  n of the "writef
2480: 69 6c 65 28 57 2c 58 5b 2c 59 5b 2c 5a 5d 5d 5d  ile(W,X[,Y[,Z]]]
2490: 29 22 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e  )" SQL function.
24a0: 20 20 0a 2a 2a 20 52 65 66 65 72 20 74 6f 20 68    .** Refer to h
24b0: 65 61 64 65 72 20 63 6f 6d 6d 65 6e 74 73 20 61  eader comments a
24c0: 74 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 69  t the top of thi
24d0: 73 20 66 69 6c 65 20 66 6f 72 20 64 65 74 61 69  s file for detai
24e0: 6c 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ls..*/.static vo
24f0: 69 64 20 77 72 69 74 65 66 69 6c 65 46 75 6e 63  id writefileFunc
2500: 28 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74  (.  sqlite3_cont
2510: 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20  ext *context,.  
2520: 69 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69  int argc,.  sqli
2530: 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76  te3_value **argv
2540: 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  .){.  const char
2550: 20 2a 7a 46 69 6c 65 3b 0a 20 20 6d 6f 64 65 5f   *zFile;.  mode_
2560: 74 20 6d 6f 64 65 20 3d 20 30 3b 0a 20 20 69 6e  t mode = 0;.  in
2570: 74 20 72 65 73 3b 0a 20 20 73 71 6c 69 74 65 33  t res;.  sqlite3
2580: 5f 69 6e 74 36 34 20 6d 74 69 6d 65 20 3d 20 2d  _int64 mtime = -
2590: 31 3b 0a 0a 20 20 69 66 28 20 61 72 67 63 3c 32  1;..  if( argc<2
25a0: 20 7c 7c 20 61 72 67 63 3e 34 20 29 7b 0a 20 20   || argc>4 ){.  
25b0: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
25c0: 5f 65 72 72 6f 72 28 63 6f 6e 74 65 78 74 2c 20  _error(context, 
25d0: 0a 20 20 20 20 20 20 20 20 22 77 72 6f 6e 67 20  .        "wrong 
25e0: 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  number of argume
25f0: 6e 74 73 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20  nts to function 
2600: 77 72 69 74 65 66 69 6c 65 28 29 22 2c 20 2d 31  writefile()", -1
2610: 0a 20 20 20 20 29 3b 0a 20 20 20 20 72 65 74 75  .    );.    retu
2620: 72 6e 3b 0a 20 20 7d 0a 0a 20 20 7a 46 69 6c 65  rn;.  }..  zFile
2630: 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29   = (const char*)
2640: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65  sqlite3_value_te
2650: 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69  xt(argv[0]);.  i
2660: 66 28 20 7a 46 69 6c 65 3d 3d 30 20 29 20 72 65  f( zFile==0 ) re
2670: 74 75 72 6e 3b 0a 20 20 69 66 28 20 61 72 67 63  turn;.  if( argc
2680: 3e 3d 33 20 29 7b 0a 20 20 20 20 6d 6f 64 65 20  >=3 ){.    mode 
2690: 3d 20 28 6d 6f 64 65 5f 74 29 73 71 6c 69 74 65  = (mode_t)sqlite
26a0: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76  3_value_int(argv
26b0: 5b 32 5d 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20  [2]);.  }.  if( 
26c0: 61 72 67 63 3d 3d 34 20 29 7b 0a 20 20 20 20 6d  argc==4 ){.    m
26d0: 74 69 6d 65 20 3d 20 73 71 6c 69 74 65 33 5f 76  time = sqlite3_v
26e0: 61 6c 75 65 5f 69 6e 74 36 34 28 61 72 67 76 5b  alue_int64(argv[
26f0: 33 5d 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 73 20  3]);.  }..  res 
2700: 3d 20 77 72 69 74 65 46 69 6c 65 28 63 6f 6e 74  = writeFile(cont
2710: 65 78 74 2c 20 7a 46 69 6c 65 2c 20 61 72 67 76  ext, zFile, argv
2720: 5b 31 5d 2c 20 6d 6f 64 65 2c 20 6d 74 69 6d 65  [1], mode, mtime
2730: 29 3b 0a 20 20 69 66 28 20 72 65 73 3d 3d 31 20  );.  if( res==1 
2740: 26 26 20 65 72 72 6e 6f 3d 3d 45 4e 4f 45 4e 54  && errno==ENOENT
2750: 20 29 7b 0a 20 20 20 20 69 66 28 20 6d 61 6b 65   ){.    if( make
2760: 44 69 72 65 63 74 6f 72 79 28 7a 46 69 6c 65 2c  Directory(zFile,
2770: 20 6d 6f 64 65 29 3d 3d 53 51 4c 49 54 45 5f 4f   mode)==SQLITE_O
2780: 4b 20 29 7b 0a 20 20 20 20 20 20 72 65 73 20 3d  K ){.      res =
2790: 20 77 72 69 74 65 46 69 6c 65 28 63 6f 6e 74 65   writeFile(conte
27a0: 78 74 2c 20 7a 46 69 6c 65 2c 20 61 72 67 76 5b  xt, zFile, argv[
27b0: 31 5d 2c 20 6d 6f 64 65 2c 20 6d 74 69 6d 65 29  1], mode, mtime)
27c0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 69  ;.    }.  }..  i
27d0: 66 28 20 61 72 67 63 3e 32 20 26 26 20 72 65 73  f( argc>2 && res
27e0: 21 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 53  !=0 ){.    if( S
27f0: 5f 49 53 4c 4e 4b 28 6d 6f 64 65 29 20 29 7b 0a  _ISLNK(mode) ){.
2800: 20 20 20 20 20 20 63 74 78 45 72 72 6f 72 4d 73        ctxErrorMs
2810: 67 28 63 6f 6e 74 65 78 74 2c 20 22 66 61 69 6c  g(context, "fail
2820: 65 64 20 74 6f 20 63 72 65 61 74 65 20 73 79 6d  ed to create sym
2830: 6c 69 6e 6b 3a 20 25 73 22 2c 20 7a 46 69 6c 65  link: %s", zFile
2840: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28  );.    }else if(
2850: 20 53 5f 49 53 44 49 52 28 6d 6f 64 65 29 20 29   S_ISDIR(mode) )
2860: 7b 0a 20 20 20 20 20 20 63 74 78 45 72 72 6f 72  {.      ctxError
2870: 4d 73 67 28 63 6f 6e 74 65 78 74 2c 20 22 66 61  Msg(context, "fa
2880: 69 6c 65 64 20 74 6f 20 63 72 65 61 74 65 20 64  iled to create d
2890: 69 72 65 63 74 6f 72 79 3a 20 25 73 22 2c 20 7a  irectory: %s", z
28a0: 46 69 6c 65 29 3b 0a 20 20 20 20 7d 65 6c 73 65  File);.    }else
28b0: 7b 0a 20 20 20 20 20 20 63 74 78 45 72 72 6f 72  {.      ctxError
28c0: 4d 73 67 28 63 6f 6e 74 65 78 74 2c 20 22 66 61  Msg(context, "fa
28d0: 69 6c 65 64 20 74 6f 20 77 72 69 74 65 20 66 69  iled to write fi
28e0: 6c 65 3a 20 25 73 22 2c 20 7a 46 69 6c 65 29 3b  le: %s", zFile);
28f0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a  .    }.  }.}../*
2900: 0a 2a 2a 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e  .** SQL function
2910: 3a 20 20 20 6c 73 6d 6f 64 65 28 4d 4f 44 45 29  :   lsmode(MODE)
2920: 0a 2a 2a 0a 2a 2a 20 47 69 76 65 6e 20 61 20 6e  .**.** Given a n
2930: 75 6d 62 65 72 69 63 20 73 74 5f 6d 6f 64 65 20  umberic st_mode 
2940: 66 72 6f 6d 20 73 74 61 74 28 29 2c 20 63 6f 6e  from stat(), con
2950: 76 65 72 74 20 69 74 20 69 6e 74 6f 20 61 20 68  vert it into a h
2960: 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 0a 2a 2a  uman-readable.**
2970: 20 74 65 78 74 20 73 74 72 69 6e 67 20 69 6e 20   text string in 
2980: 74 68 65 20 73 74 79 6c 65 20 6f 66 20 22 6c 73  the style of "ls
2990: 20 2d 6c 22 2e 0a 2a 2f 0a 73 74 61 74 69 63 20   -l"..*/.static 
29a0: 76 6f 69 64 20 6c 73 4d 6f 64 65 46 75 6e 63 28  void lsModeFunc(
29b0: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  .  sqlite3_conte
29c0: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69  xt *context,.  i
29d0: 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74  nt argc,.  sqlit
29e0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
29f0: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e  ){.  int i;.  in
2a00: 74 20 69 4d 6f 64 65 20 3d 20 73 71 6c 69 74 65  t iMode = sqlite
2a10: 33 5f 76 61 6c 75 65 5f 69 6e 74 28 61 72 67 76  3_value_int(argv
2a20: 5b 30 5d 29 3b 0a 20 20 63 68 61 72 20 7a 5b 31  [0]);.  char z[1
2a30: 36 5d 3b 0a 20 20 69 66 28 20 53 5f 49 53 4c 4e  6];.  if( S_ISLN
2a40: 4b 28 69 4d 6f 64 65 29 20 29 7b 0a 20 20 20 20  K(iMode) ){.    
2a50: 7a 5b 30 5d 20 3d 20 27 6c 27 3b 0a 20 20 7d 65  z[0] = 'l';.  }e
2a60: 6c 73 65 20 69 66 28 20 53 5f 49 53 52 45 47 28  lse if( S_ISREG(
2a70: 69 4d 6f 64 65 29 20 29 7b 0a 20 20 20 20 7a 5b  iMode) ){.    z[
2a80: 30 5d 20 3d 20 27 2d 27 3b 0a 20 20 7d 65 6c 73  0] = '-';.  }els
2a90: 65 20 69 66 28 20 53 5f 49 53 44 49 52 28 69 4d  e if( S_ISDIR(iM
2aa0: 6f 64 65 29 20 29 7b 0a 20 20 20 20 7a 5b 30 5d  ode) ){.    z[0]
2ab0: 20 3d 20 27 64 27 3b 0a 20 20 7d 65 6c 73 65 7b   = 'd';.  }else{
2ac0: 0a 20 20 20 20 7a 5b 30 5d 20 3d 20 27 3f 27 3b  .    z[0] = '?';
2ad0: 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30 3b 20  .  }.  for(i=0; 
2ae0: 69 3c 33 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69  i<3; i++){.    i
2af0: 6e 74 20 6d 20 3d 20 28 69 4d 6f 64 65 20 3e 3e  nt m = (iMode >>
2b00: 20 28 28 32 2d 69 29 2a 33 29 29 3b 0a 20 20 20   ((2-i)*3));.   
2b10: 20 63 68 61 72 20 2a 61 20 3d 20 26 7a 5b 31 20   char *a = &z[1 
2b20: 2b 20 69 2a 33 5d 3b 0a 20 20 20 20 61 5b 30 5d  + i*3];.    a[0]
2b30: 20 3d 20 28 6d 20 26 20 30 78 34 29 20 3f 20 27   = (m & 0x4) ? '
2b40: 72 27 20 3a 20 27 2d 27 3b 0a 20 20 20 20 61 5b  r' : '-';.    a[
2b50: 31 5d 20 3d 20 28 6d 20 26 20 30 78 32 29 20 3f  1] = (m & 0x2) ?
2b60: 20 27 77 27 20 3a 20 27 2d 27 3b 0a 20 20 20 20   'w' : '-';.    
2b70: 61 5b 32 5d 20 3d 20 28 6d 20 26 20 30 78 31 29  a[2] = (m & 0x1)
2b80: 20 3f 20 27 78 27 20 3a 20 27 2d 27 3b 0a 20 20   ? 'x' : '-';.  
2b90: 7d 0a 20 20 7a 5b 31 30 5d 20 3d 20 27 5c 30 27  }.  z[10] = '\0'
2ba0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75  ;.  sqlite3_resu
2bb0: 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c  lt_text(context,
2bc0: 20 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54   z, -1, SQLITE_T
2bd0: 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 0a 23 69  RANSIENT);.}..#i
2be0: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  fndef SQLITE_OMI
2bf0: 54 5f 56 49 52 54 55 41 4c 54 41 42 4c 45 0a 0a  T_VIRTUALTABLE..
2c00: 2f 2a 20 0a 2a 2a 20 43 75 72 73 6f 72 20 74 79  /* .** Cursor ty
2c10: 70 65 20 66 6f 72 20 72 65 63 75 72 73 69 76 65  pe for recursive
2c20: 6c 79 20 69 74 65 72 61 74 69 6e 67 20 74 68 72  ly iterating thr
2c30: 6f 75 67 68 20 61 20 64 69 72 65 63 74 6f 72 79  ough a directory
2c40: 20 73 74 72 75 63 74 75 72 65 2e 0a 2a 2f 0a 74   structure..*/.t
2c50: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 66 73  ypedef struct fs
2c60: 64 69 72 5f 63 75 72 73 6f 72 20 66 73 64 69 72  dir_cursor fsdir
2c70: 5f 63 75 72 73 6f 72 3b 0a 74 79 70 65 64 65 66  _cursor;.typedef
2c80: 20 73 74 72 75 63 74 20 46 73 64 69 72 4c 65 76   struct FsdirLev
2c90: 65 6c 20 46 73 64 69 72 4c 65 76 65 6c 3b 0a 0a  el FsdirLevel;..
2ca0: 73 74 72 75 63 74 20 46 73 64 69 72 4c 65 76 65  struct FsdirLeve
2cb0: 6c 20 7b 0a 20 20 44 49 52 20 2a 70 44 69 72 3b  l {.  DIR *pDir;
2cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2cd0: 20 2f 2a 20 46 72 6f 6d 20 6f 70 65 6e 64 69 72   /* From opendir
2ce0: 28 29 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 44  () */.  char *zD
2cf0: 69 72 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  ir;             
2d00: 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 64 69     /* Name of di
2d10: 72 65 63 74 6f 72 79 20 28 6e 75 6c 2d 74 65 72  rectory (nul-ter
2d20: 6d 69 6e 61 74 65 64 29 20 2a 2f 0a 7d 3b 0a 0a  minated) */.};..
2d30: 73 74 72 75 63 74 20 66 73 64 69 72 5f 63 75 72  struct fsdir_cur
2d40: 73 6f 72 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  sor {.  sqlite3_
2d50: 76 74 61 62 5f 63 75 72 73 6f 72 20 62 61 73 65  vtab_cursor base
2d60: 3b 20 20 2f 2a 20 42 61 73 65 20 63 6c 61 73 73  ;  /* Base class
2d70: 20 2d 20 6d 75 73 74 20 62 65 20 66 69 72 73 74   - must be first
2d80: 20 2a 2f 0a 0a 20 20 69 6e 74 20 6e 4c 76 6c 3b   */..  int nLvl;
2d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2da0: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65    /* Number of e
2db0: 6e 74 72 69 65 73 20 69 6e 20 61 4c 76 6c 5b 5d  ntries in aLvl[]
2dc0: 20 61 72 72 61 79 20 2a 2f 0a 20 20 69 6e 74 20   array */.  int 
2dd0: 69 4c 76 6c 3b 20 20 20 20 20 20 20 20 20 20 20  iLvl;           
2de0: 20 20 20 20 20 20 20 2f 2a 20 49 6e 64 65 78 20         /* Index 
2df0: 6f 66 20 63 75 72 72 65 6e 74 20 65 6e 74 72 79  of current entry
2e00: 20 2a 2f 0a 20 20 46 73 64 69 72 4c 65 76 65 6c   */.  FsdirLevel
2e10: 20 2a 61 4c 76 6c 3b 20 20 20 20 20 20 20 20 20   *aLvl;         
2e20: 20 2f 2a 20 48 69 65 72 61 72 63 68 79 20 6f 66   /* Hierarchy of
2e30: 20 64 69 72 65 63 74 6f 72 69 65 73 20 62 65 69   directories bei
2e40: 6e 67 20 74 72 61 76 65 72 73 65 64 20 2a 2f 0a  ng traversed */.
2e50: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
2e60: 42 61 73 65 3b 0a 20 20 69 6e 74 20 6e 42 61 73  Base;.  int nBas
2e70: 65 3b 0a 0a 20 20 73 74 72 75 63 74 20 73 74 61  e;..  struct sta
2e80: 74 20 73 53 74 61 74 3b 20 20 20 20 20 20 20 20  t sStat;        
2e90: 20 2f 2a 20 43 75 72 72 65 6e 74 20 6c 73 74 61   /* Current lsta
2ea0: 74 28 29 20 72 65 73 75 6c 74 73 20 2a 2f 0a 20  t() results */. 
2eb0: 20 63 68 61 72 20 2a 7a 50 61 74 68 3b 20 20 20   char *zPath;   
2ec0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50              /* P
2ed0: 61 74 68 20 74 6f 20 63 75 72 72 65 6e 74 20 65  ath to current e
2ee0: 6e 74 72 79 20 2a 2f 0a 20 20 73 71 6c 69 74 65  ntry */.  sqlite
2ef0: 33 5f 69 6e 74 36 34 20 69 52 6f 77 69 64 3b 20  3_int64 iRowid; 
2f00: 20 20 20 20 20 2f 2a 20 43 75 72 72 65 6e 74 20       /* Current 
2f10: 72 6f 77 69 64 20 2a 2f 0a 7d 3b 0a 0a 74 79 70  rowid */.};..typ
2f20: 65 64 65 66 20 73 74 72 75 63 74 20 66 73 64 69  edef struct fsdi
2f30: 72 5f 74 61 62 20 66 73 64 69 72 5f 74 61 62 3b  r_tab fsdir_tab;
2f40: 0a 73 74 72 75 63 74 20 66 73 64 69 72 5f 74 61  .struct fsdir_ta
2f50: 62 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 76 74  b {.  sqlite3_vt
2f60: 61 62 20 62 61 73 65 3b 20 20 20 20 20 20 20 20  ab base;        
2f70: 20 2f 2a 20 42 61 73 65 20 63 6c 61 73 73 20 2d   /* Base class -
2f80: 20 6d 75 73 74 20 62 65 20 66 69 72 73 74 20 2a   must be first *
2f90: 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 73  /.};../*.** Cons
2fa0: 74 72 75 63 74 20 61 20 6e 65 77 20 66 73 64 69  truct a new fsdi
2fb0: 72 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 20  r virtual table 
2fc0: 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69  object..*/.stati
2fd0: 63 20 69 6e 74 20 66 73 64 69 72 43 6f 6e 6e 65  c int fsdirConne
2fe0: 63 74 28 0a 20 20 73 71 6c 69 74 65 33 20 2a 64  ct(.  sqlite3 *d
2ff0: 62 2c 0a 20 20 76 6f 69 64 20 2a 70 41 75 78 2c  b,.  void *pAux,
3000: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 63 6f 6e  .  int argc, con
3010: 73 74 20 63 68 61 72 20 2a 63 6f 6e 73 74 2a 61  st char *const*a
3020: 72 67 76 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76  rgv,.  sqlite3_v
3030: 74 61 62 20 2a 2a 70 70 56 74 61 62 2c 0a 20 20  tab **ppVtab,.  
3040: 63 68 61 72 20 2a 2a 70 7a 45 72 72 0a 29 7b 0a  char **pzErr.){.
3050: 20 20 66 73 64 69 72 5f 74 61 62 20 2a 70 4e 65    fsdir_tab *pNe
3060: 77 20 3d 20 30 3b 0a 20 20 69 6e 74 20 72 63 3b  w = 0;.  int rc;
3070: 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  ..  rc = sqlite3
3080: 5f 64 65 63 6c 61 72 65 5f 76 74 61 62 28 64 62  _declare_vtab(db
3090: 2c 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20  , "CREATE TABLE 
30a0: 78 22 20 46 53 44 49 52 5f 53 43 48 45 4d 41 29  x" FSDIR_SCHEMA)
30b0: 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49  ;.  if( rc==SQLI
30c0: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 70 4e 65  TE_OK ){.    pNe
30d0: 77 20 3d 20 28 66 73 64 69 72 5f 74 61 62 2a 29  w = (fsdir_tab*)
30e0: 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20  sqlite3_malloc( 
30f0: 73 69 7a 65 6f 66 28 2a 70 4e 65 77 29 20 29 3b  sizeof(*pNew) );
3100: 0a 20 20 20 20 69 66 28 20 70 4e 65 77 3d 3d 30  .    if( pNew==0
3110: 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45   ) return SQLITE
3120: 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 6d 65 6d 73  _NOMEM;.    mems
3130: 65 74 28 70 4e 65 77 2c 20 30 2c 20 73 69 7a 65  et(pNew, 0, size
3140: 6f 66 28 2a 70 4e 65 77 29 29 3b 0a 20 20 7d 0a  of(*pNew));.  }.
3150: 20 20 2a 70 70 56 74 61 62 20 3d 20 28 73 71 6c    *ppVtab = (sql
3160: 69 74 65 33 5f 76 74 61 62 2a 29 70 4e 65 77 3b  ite3_vtab*)pNew;
3170: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
3180: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 6d 65 74 68  ./*.** This meth
3190: 6f 64 20 69 73 20 74 68 65 20 64 65 73 74 72 75  od is the destru
31a0: 63 74 6f 72 20 66 6f 72 20 66 73 64 69 72 20 76  ctor for fsdir v
31b0: 74 61 62 20 6f 62 6a 65 63 74 73 2e 0a 2a 2f 0a  tab objects..*/.
31c0: 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69 72  static int fsdir
31d0: 44 69 73 63 6f 6e 6e 65 63 74 28 73 71 6c 69 74  Disconnect(sqlit
31e0: 65 33 5f 76 74 61 62 20 2a 70 56 74 61 62 29 7b  e3_vtab *pVtab){
31f0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28  .  sqlite3_free(
3200: 70 56 74 61 62 29 3b 0a 20 20 72 65 74 75 72 6e  pVtab);.  return
3210: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f   SQLITE_OK;.}../
3220: 2a 0a 2a 2a 20 43 6f 6e 73 74 72 75 63 74 6f 72  *.** Constructor
3230: 20 66 6f 72 20 61 20 6e 65 77 20 66 73 64 69 72   for a new fsdir
3240: 5f 63 75 72 73 6f 72 20 6f 62 6a 65 63 74 2e 0a  _cursor object..
3250: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 73  */.static int fs
3260: 64 69 72 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f  dirOpen(sqlite3_
3270: 76 74 61 62 20 2a 70 2c 20 73 71 6c 69 74 65 33  vtab *p, sqlite3
3280: 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 2a 70  _vtab_cursor **p
3290: 70 43 75 72 73 6f 72 29 7b 0a 20 20 66 73 64 69  pCursor){.  fsdi
32a0: 72 5f 63 75 72 73 6f 72 20 2a 70 43 75 72 3b 0a  r_cursor *pCur;.
32b0: 20 20 70 43 75 72 20 3d 20 73 71 6c 69 74 65 33    pCur = sqlite3
32c0: 5f 6d 61 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28  _malloc( sizeof(
32d0: 2a 70 43 75 72 29 20 29 3b 0a 20 20 69 66 28 20  *pCur) );.  if( 
32e0: 70 43 75 72 3d 3d 30 20 29 20 72 65 74 75 72 6e  pCur==0 ) return
32f0: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20   SQLITE_NOMEM;. 
3300: 20 6d 65 6d 73 65 74 28 70 43 75 72 2c 20 30 2c   memset(pCur, 0,
3310: 20 73 69 7a 65 6f 66 28 2a 70 43 75 72 29 29 3b   sizeof(*pCur));
3320: 0a 20 20 70 43 75 72 2d 3e 69 4c 76 6c 20 3d 20  .  pCur->iLvl = 
3330: 2d 31 3b 0a 20 20 2a 70 70 43 75 72 73 6f 72 20  -1;.  *ppCursor 
3340: 3d 20 26 70 43 75 72 2d 3e 62 61 73 65 3b 0a 20  = &pCur->base;. 
3350: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
3360: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 73 65  K;.}../*.** Rese
3370: 74 20 61 20 63 75 72 73 6f 72 20 62 61 63 6b 20  t a cursor back 
3380: 74 6f 20 74 68 65 20 73 74 61 74 65 20 69 74 20  to the state it 
3390: 77 61 73 20 69 6e 20 77 68 65 6e 20 66 69 72 73  was in when firs
33a0: 74 20 72 65 74 75 72 6e 65 64 0a 2a 2a 20 62 79  t returned.** by
33b0: 20 66 73 64 69 72 4f 70 65 6e 28 29 2e 0a 2a 2f   fsdirOpen()..*/
33c0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 66 73 64  .static void fsd
33d0: 69 72 52 65 73 65 74 43 75 72 73 6f 72 28 66 73  irResetCursor(fs
33e0: 64 69 72 5f 63 75 72 73 6f 72 20 2a 70 43 75 72  dir_cursor *pCur
33f0: 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66 6f  ){.  int i;.  fo
3400: 72 28 69 3d 30 3b 20 69 3c 3d 70 43 75 72 2d 3e  r(i=0; i<=pCur->
3410: 69 4c 76 6c 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  iLvl; i++){.    
3420: 46 73 64 69 72 4c 65 76 65 6c 20 2a 70 4c 76 6c  FsdirLevel *pLvl
3430: 20 3d 20 26 70 43 75 72 2d 3e 61 4c 76 6c 5b 69   = &pCur->aLvl[i
3440: 5d 3b 0a 20 20 20 20 69 66 28 20 70 4c 76 6c 2d  ];.    if( pLvl-
3450: 3e 70 44 69 72 20 29 20 63 6c 6f 73 65 64 69 72  >pDir ) closedir
3460: 28 70 4c 76 6c 2d 3e 70 44 69 72 29 3b 0a 20 20  (pLvl->pDir);.  
3470: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70    sqlite3_free(p
3480: 4c 76 6c 2d 3e 7a 44 69 72 29 3b 0a 20 20 7d 0a  Lvl->zDir);.  }.
3490: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70    sqlite3_free(p
34a0: 43 75 72 2d 3e 7a 50 61 74 68 29 3b 0a 20 20 70  Cur->zPath);.  p
34b0: 43 75 72 2d 3e 61 4c 76 6c 20 3d 20 30 3b 0a 20  Cur->aLvl = 0;. 
34c0: 20 70 43 75 72 2d 3e 7a 50 61 74 68 20 3d 20 30   pCur->zPath = 0
34d0: 3b 0a 20 20 70 43 75 72 2d 3e 7a 42 61 73 65 20  ;.  pCur->zBase 
34e0: 3d 20 30 3b 0a 20 20 70 43 75 72 2d 3e 6e 42 61  = 0;.  pCur->nBa
34f0: 73 65 20 3d 20 30 3b 0a 20 20 70 43 75 72 2d 3e  se = 0;.  pCur->
3500: 69 4c 76 6c 20 3d 20 2d 31 3b 0a 20 20 70 43 75  iLvl = -1;.  pCu
3510: 72 2d 3e 69 52 6f 77 69 64 20 3d 20 31 3b 0a 7d  r->iRowid = 1;.}
3520: 0a 0a 2f 2a 0a 2a 2a 20 44 65 73 74 72 75 63 74  ../*.** Destruct
3530: 6f 72 20 66 6f 72 20 61 6e 20 66 73 64 69 72 5f  or for an fsdir_
3540: 63 75 72 73 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69  cursor..*/.stati
3550: 63 20 69 6e 74 20 66 73 64 69 72 43 6c 6f 73 65  c int fsdirClose
3560: 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75  (sqlite3_vtab_cu
3570: 72 73 6f 72 20 2a 63 75 72 29 7b 0a 20 20 66 73  rsor *cur){.  fs
3580: 64 69 72 5f 63 75 72 73 6f 72 20 2a 70 43 75 72  dir_cursor *pCur
3590: 20 3d 20 28 66 73 64 69 72 5f 63 75 72 73 6f 72   = (fsdir_cursor
35a0: 2a 29 63 75 72 3b 0a 0a 20 20 66 73 64 69 72 52  *)cur;..  fsdirR
35b0: 65 73 65 74 43 75 72 73 6f 72 28 70 43 75 72 29  esetCursor(pCur)
35c0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65  ;.  sqlite3_free
35d0: 28 70 43 75 72 2d 3e 61 4c 76 6c 29 3b 0a 20 20  (pCur->aLvl);.  
35e0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 43 75  sqlite3_free(pCu
35f0: 72 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  r);.  return SQL
3600: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  ITE_OK;.}../*.**
3610: 20 53 65 74 20 74 68 65 20 65 72 72 6f 72 20 6d   Set the error m
3620: 65 73 73 61 67 65 20 66 6f 72 20 74 68 65 20 76  essage for the v
3630: 69 72 74 75 61 6c 20 74 61 62 6c 65 20 61 73 73  irtual table ass
3640: 6f 63 69 61 74 65 64 20 77 69 74 68 20 63 75 72  ociated with cur
3650: 73 6f 72 0a 2a 2a 20 70 43 75 72 20 74 6f 20 74  sor.** pCur to t
3660: 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 76 70  he results of vp
3670: 72 69 6e 74 66 28 7a 46 6d 74 2c 20 2e 2e 2e 29  rintf(zFmt, ...)
3680: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
3690: 20 66 73 64 69 72 53 65 74 45 72 72 6d 73 67 28   fsdirSetErrmsg(
36a0: 66 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70 43  fsdir_cursor *pC
36b0: 75 72 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ur, const char *
36c0: 7a 46 6d 74 2c 20 2e 2e 2e 29 7b 0a 20 20 76 61  zFmt, ...){.  va
36d0: 5f 6c 69 73 74 20 61 70 3b 0a 20 20 76 61 5f 73  _list ap;.  va_s
36e0: 74 61 72 74 28 61 70 2c 20 7a 46 6d 74 29 3b 0a  tart(ap, zFmt);.
36f0: 20 20 70 43 75 72 2d 3e 62 61 73 65 2e 70 56 74    pCur->base.pVt
3700: 61 62 2d 3e 7a 45 72 72 4d 73 67 20 3d 20 73 71  ab->zErrMsg = sq
3710: 6c 69 74 65 33 5f 76 6d 70 72 69 6e 74 66 28 7a  lite3_vmprintf(z
3720: 46 6d 74 2c 20 61 70 29 3b 0a 20 20 76 61 5f 65  Fmt, ap);.  va_e
3730: 6e 64 28 61 70 29 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a  nd(ap);.}.../*.*
3740: 2a 20 41 64 76 61 6e 63 65 20 61 6e 20 66 73 64  * Advance an fsd
3750: 69 72 5f 63 75 72 73 6f 72 20 74 6f 20 69 74 73  ir_cursor to its
3760: 20 6e 65 78 74 20 72 6f 77 20 6f 66 20 6f 75 74   next row of out
3770: 70 75 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  put..*/.static i
3780: 6e 74 20 66 73 64 69 72 4e 65 78 74 28 73 71 6c  nt fsdirNext(sql
3790: 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72  ite3_vtab_cursor
37a0: 20 2a 63 75 72 29 7b 0a 20 20 66 73 64 69 72 5f   *cur){.  fsdir_
37b0: 63 75 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28  cursor *pCur = (
37c0: 66 73 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75  fsdir_cursor*)cu
37d0: 72 3b 0a 20 20 6d 6f 64 65 5f 74 20 6d 20 3d 20  r;.  mode_t m = 
37e0: 70 43 75 72 2d 3e 73 53 74 61 74 2e 73 74 5f 6d  pCur->sStat.st_m
37f0: 6f 64 65 3b 0a 0a 20 20 70 43 75 72 2d 3e 69 52  ode;..  pCur->iR
3800: 6f 77 69 64 2b 2b 3b 0a 20 20 69 66 28 20 53 5f  owid++;.  if( S_
3810: 49 53 44 49 52 28 6d 29 20 29 7b 0a 20 20 20 20  ISDIR(m) ){.    
3820: 2f 2a 20 44 65 73 63 65 6e 64 20 69 6e 74 6f 20  /* Descend into 
3830: 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 2a  this directory *
3840: 2f 0a 20 20 20 20 69 6e 74 20 69 4e 65 77 20 3d  /.    int iNew =
3850: 20 70 43 75 72 2d 3e 69 4c 76 6c 20 2b 20 31 3b   pCur->iLvl + 1;
3860: 0a 20 20 20 20 46 73 64 69 72 4c 65 76 65 6c 20  .    FsdirLevel 
3870: 2a 70 4c 76 6c 3b 0a 20 20 20 20 69 66 28 20 69  *pLvl;.    if( i
3880: 4e 65 77 3e 3d 70 43 75 72 2d 3e 6e 4c 76 6c 20  New>=pCur->nLvl 
3890: 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e 4e 65  ){.      int nNe
38a0: 77 20 3d 20 69 4e 65 77 2b 31 3b 0a 20 20 20 20  w = iNew+1;.    
38b0: 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 6e 4e    int nByte = nN
38c0: 65 77 2a 73 69 7a 65 6f 66 28 46 73 64 69 72 4c  ew*sizeof(FsdirL
38d0: 65 76 65 6c 29 3b 0a 20 20 20 20 20 20 46 73 64  evel);.      Fsd
38e0: 69 72 4c 65 76 65 6c 20 2a 61 4e 65 77 20 3d 20  irLevel *aNew = 
38f0: 28 46 73 64 69 72 4c 65 76 65 6c 2a 29 73 71 6c  (FsdirLevel*)sql
3900: 69 74 65 33 5f 72 65 61 6c 6c 6f 63 28 70 43 75  ite3_realloc(pCu
3910: 72 2d 3e 61 4c 76 6c 2c 20 6e 42 79 74 65 29 3b  r->aLvl, nByte);
3920: 0a 20 20 20 20 20 20 69 66 28 20 61 4e 65 77 3d  .      if( aNew=
3930: 3d 30 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49  =0 ) return SQLI
3940: 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 20 20  TE_NOMEM;.      
3950: 6d 65 6d 73 65 74 28 26 61 4e 65 77 5b 70 43 75  memset(&aNew[pCu
3960: 72 2d 3e 6e 4c 76 6c 5d 2c 20 30 2c 20 73 69 7a  r->nLvl], 0, siz
3970: 65 6f 66 28 46 73 64 69 72 4c 65 76 65 6c 29 2a  eof(FsdirLevel)*
3980: 28 6e 4e 65 77 2d 70 43 75 72 2d 3e 6e 4c 76 6c  (nNew-pCur->nLvl
3990: 29 29 3b 0a 20 20 20 20 20 20 70 43 75 72 2d 3e  ));.      pCur->
39a0: 61 4c 76 6c 20 3d 20 61 4e 65 77 3b 0a 20 20 20  aLvl = aNew;.   
39b0: 20 20 20 70 43 75 72 2d 3e 6e 4c 76 6c 20 3d 20     pCur->nLvl = 
39c0: 6e 4e 65 77 3b 0a 20 20 20 20 7d 0a 20 20 20 20  nNew;.    }.    
39d0: 70 43 75 72 2d 3e 69 4c 76 6c 20 3d 20 69 4e 65  pCur->iLvl = iNe
39e0: 77 3b 0a 20 20 20 20 70 4c 76 6c 20 3d 20 26 70  w;.    pLvl = &p
39f0: 43 75 72 2d 3e 61 4c 76 6c 5b 69 4e 65 77 5d 3b  Cur->aLvl[iNew];
3a00: 0a 20 20 20 20 0a 20 20 20 20 70 4c 76 6c 2d 3e  .    .    pLvl->
3a10: 7a 44 69 72 20 3d 20 70 43 75 72 2d 3e 7a 50 61  zDir = pCur->zPa
3a20: 74 68 3b 0a 20 20 20 20 70 43 75 72 2d 3e 7a 50  th;.    pCur->zP
3a30: 61 74 68 20 3d 20 30 3b 0a 20 20 20 20 70 4c 76  ath = 0;.    pLv
3a40: 6c 2d 3e 70 44 69 72 20 3d 20 6f 70 65 6e 64 69  l->pDir = opendi
3a50: 72 28 70 4c 76 6c 2d 3e 7a 44 69 72 29 3b 0a 20  r(pLvl->zDir);. 
3a60: 20 20 20 69 66 28 20 70 4c 76 6c 2d 3e 70 44 69     if( pLvl->pDi
3a70: 72 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 66 73  r==0 ){.      fs
3a80: 64 69 72 53 65 74 45 72 72 6d 73 67 28 70 43 75  dirSetErrmsg(pCu
3a90: 72 2c 20 22 63 61 6e 6e 6f 74 20 72 65 61 64 20  r, "cannot read 
3aa0: 64 69 72 65 63 74 6f 72 79 3a 20 25 73 22 2c 20  directory: %s", 
3ab0: 70 43 75 72 2d 3e 7a 50 61 74 68 29 3b 0a 20 20  pCur->zPath);.  
3ac0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
3ad0: 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  E_ERROR;.    }. 
3ae0: 20 7d 0a 0a 20 20 77 68 69 6c 65 28 20 70 43 75   }..  while( pCu
3af0: 72 2d 3e 69 4c 76 6c 3e 3d 30 20 29 7b 0a 20 20  r->iLvl>=0 ){.  
3b00: 20 20 46 73 64 69 72 4c 65 76 65 6c 20 2a 70 4c    FsdirLevel *pL
3b10: 76 6c 20 3d 20 26 70 43 75 72 2d 3e 61 4c 76 6c  vl = &pCur->aLvl
3b20: 5b 70 43 75 72 2d 3e 69 4c 76 6c 5d 3b 0a 20 20  [pCur->iLvl];.  
3b30: 20 20 73 74 72 75 63 74 20 64 69 72 65 6e 74 20    struct dirent 
3b40: 2a 70 45 6e 74 72 79 20 3d 20 72 65 61 64 64 69  *pEntry = readdi
3b50: 72 28 70 4c 76 6c 2d 3e 70 44 69 72 29 3b 0a 20  r(pLvl->pDir);. 
3b60: 20 20 20 69 66 28 20 70 45 6e 74 72 79 20 29 7b     if( pEntry ){
3b70: 0a 20 20 20 20 20 20 69 66 28 20 70 45 6e 74 72  .      if( pEntr
3b80: 79 2d 3e 64 5f 6e 61 6d 65 5b 30 5d 3d 3d 27 2e  y->d_name[0]=='.
3b90: 27 20 29 7b 0a 20 20 20 20 20 20 20 69 66 28 20  ' ){.       if( 
3ba0: 70 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 5b 31  pEntry->d_name[1
3bb0: 5d 3d 3d 27 2e 27 20 26 26 20 70 45 6e 74 72 79  ]=='.' && pEntry
3bc0: 2d 3e 64 5f 6e 61 6d 65 5b 32 5d 3d 3d 27 5c 30  ->d_name[2]=='\0
3bd0: 27 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20  ' ) continue;.  
3be0: 20 20 20 20 20 69 66 28 20 70 45 6e 74 72 79 2d       if( pEntry-
3bf0: 3e 64 5f 6e 61 6d 65 5b 31 5d 3d 3d 27 5c 30 27  >d_name[1]=='\0'
3c00: 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20   ) continue;.   
3c10: 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74     }.      sqlit
3c20: 65 33 5f 66 72 65 65 28 70 43 75 72 2d 3e 7a 50  e3_free(pCur->zP
3c30: 61 74 68 29 3b 0a 20 20 20 20 20 20 70 43 75 72  ath);.      pCur
3c40: 2d 3e 7a 50 61 74 68 20 3d 20 73 71 6c 69 74 65  ->zPath = sqlite
3c50: 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 2f 25 73  3_mprintf("%s/%s
3c60: 22 2c 20 70 4c 76 6c 2d 3e 7a 44 69 72 2c 20 70  ", pLvl->zDir, p
3c70: 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 29 3b 0a  Entry->d_name);.
3c80: 20 20 20 20 20 20 69 66 28 20 70 43 75 72 2d 3e        if( pCur->
3c90: 7a 50 61 74 68 3d 3d 30 20 29 20 72 65 74 75 72  zPath==0 ) retur
3ca0: 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a  n SQLITE_NOMEM;.
3cb0: 20 20 20 20 20 20 69 66 28 20 6c 73 74 61 74 28        if( lstat(
3cc0: 70 43 75 72 2d 3e 7a 50 61 74 68 2c 20 26 70 43  pCur->zPath, &pC
3cd0: 75 72 2d 3e 73 53 74 61 74 29 20 29 7b 0a 20 20  ur->sStat) ){.  
3ce0: 20 20 20 20 20 20 66 73 64 69 72 53 65 74 45 72        fsdirSetEr
3cf0: 72 6d 73 67 28 70 43 75 72 2c 20 22 63 61 6e 6e  rmsg(pCur, "cann
3d00: 6f 74 20 73 74 61 74 20 66 69 6c 65 3a 20 25 73  ot stat file: %s
3d10: 22 2c 20 70 43 75 72 2d 3e 7a 50 61 74 68 29 3b  ", pCur->zPath);
3d20: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
3d30: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20  SQLITE_ERROR;.  
3d40: 20 20 20 20 7d 0a 20 20 20 20 20 20 72 65 74 75      }.      retu
3d50: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20  rn SQLITE_OK;.  
3d60: 20 20 7d 0a 20 20 20 20 63 6c 6f 73 65 64 69 72    }.    closedir
3d70: 28 70 4c 76 6c 2d 3e 70 44 69 72 29 3b 0a 20 20  (pLvl->pDir);.  
3d80: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70    sqlite3_free(p
3d90: 4c 76 6c 2d 3e 7a 44 69 72 29 3b 0a 20 20 20 20  Lvl->zDir);.    
3da0: 70 4c 76 6c 2d 3e 70 44 69 72 20 3d 20 30 3b 0a  pLvl->pDir = 0;.
3db0: 20 20 20 20 70 4c 76 6c 2d 3e 7a 44 69 72 20 3d      pLvl->zDir =
3dc0: 20 30 3b 0a 20 20 20 20 70 43 75 72 2d 3e 69 4c   0;.    pCur->iL
3dd0: 76 6c 2d 2d 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20  vl--;.  }..  /* 
3de0: 45 4f 46 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33  EOF */.  sqlite3
3df0: 5f 66 72 65 65 28 70 43 75 72 2d 3e 7a 50 61 74  _free(pCur->zPat
3e00: 68 29 3b 0a 20 20 70 43 75 72 2d 3e 7a 50 61 74  h);.  pCur->zPat
3e10: 68 20 3d 20 30 3b 0a 20 20 72 65 74 75 72 6e 20  h = 0;.  return 
3e20: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  SQLITE_OK;.}../*
3e30: 0a 2a 2a 20 52 65 74 75 72 6e 20 76 61 6c 75 65  .** Return value
3e40: 73 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 66 6f 72  s of columns for
3e50: 20 74 68 65 20 72 6f 77 20 61 74 20 77 68 69 63   the row at whic
3e60: 68 20 74 68 65 20 73 65 72 69 65 73 5f 63 75 72  h the series_cur
3e70: 73 6f 72 0a 2a 2a 20 69 73 20 63 75 72 72 65 6e  sor.** is curren
3e80: 74 6c 79 20 70 6f 69 6e 74 69 6e 67 2e 0a 2a 2f  tly pointing..*/
3e90: 0a 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69  .static int fsdi
3ea0: 72 43 6f 6c 75 6d 6e 28 0a 20 20 73 71 6c 69 74  rColumn(.  sqlit
3eb0: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a  e3_vtab_cursor *
3ec0: 63 75 72 2c 20 20 20 2f 2a 20 54 68 65 20 63 75  cur,   /* The cu
3ed0: 72 73 6f 72 20 2a 2f 0a 20 20 73 71 6c 69 74 65  rsor */.  sqlite
3ee0: 33 5f 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20  3_context *ctx, 
3ef0: 20 20 20 20 20 20 2f 2a 20 46 69 72 73 74 20 61        /* First a
3f00: 72 67 75 6d 65 6e 74 20 74 6f 20 73 71 6c 69 74  rgument to sqlit
3f10: 65 33 5f 72 65 73 75 6c 74 5f 2e 2e 2e 28 29 20  e3_result_...() 
3f20: 2a 2f 0a 20 20 69 6e 74 20 69 20 20 20 20 20 20  */.  int i      
3f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3f40: 20 2f 2a 20 57 68 69 63 68 20 63 6f 6c 75 6d 6e   /* Which column
3f50: 20 74 6f 20 72 65 74 75 72 6e 20 2a 2f 0a 29 7b   to return */.){
3f60: 0a 20 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20  .  fsdir_cursor 
3f70: 2a 70 43 75 72 20 3d 20 28 66 73 64 69 72 5f 63  *pCur = (fsdir_c
3f80: 75 72 73 6f 72 2a 29 63 75 72 3b 0a 20 20 73 77  ursor*)cur;.  sw
3f90: 69 74 63 68 28 20 69 20 29 7b 0a 20 20 20 20 63  itch( i ){.    c
3fa0: 61 73 65 20 30 3a 20 7b 20 2f 2a 20 6e 61 6d 65  ase 0: { /* name
3fb0: 20 2a 2f 0a 20 20 20 20 20 20 73 71 6c 69 74 65   */.      sqlite
3fc0: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 74  3_result_text(ct
3fd0: 78 2c 20 26 70 43 75 72 2d 3e 7a 50 61 74 68 5b  x, &pCur->zPath[
3fe0: 70 43 75 72 2d 3e 6e 42 61 73 65 5d 2c 20 2d 31  pCur->nBase], -1
3ff0: 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45  , SQLITE_TRANSIE
4000: 4e 54 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b  NT);.      break
4010: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73  ;.    }..    cas
4020: 65 20 31 3a 20 2f 2a 20 6d 6f 64 65 20 2a 2f 0a  e 1: /* mode */.
4030: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65        sqlite3_re
4040: 73 75 6c 74 5f 69 6e 74 36 34 28 63 74 78 2c 20  sult_int64(ctx, 
4050: 70 43 75 72 2d 3e 73 53 74 61 74 2e 73 74 5f 6d  pCur->sStat.st_m
4060: 6f 64 65 29 3b 0a 20 20 20 20 20 20 62 72 65 61  ode);.      brea
4070: 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 32 3a 20  k;..    case 2: 
4080: 2f 2a 20 6d 74 69 6d 65 20 2a 2f 0a 20 20 20 20  /* mtime */.    
4090: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
40a0: 5f 69 6e 74 36 34 28 63 74 78 2c 20 70 43 75 72  _int64(ctx, pCur
40b0: 2d 3e 73 53 74 61 74 2e 73 74 5f 6d 74 69 6d 65  ->sStat.st_mtime
40c0: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
40d0: 0a 20 20 20 20 63 61 73 65 20 33 3a 20 7b 20 2f  .    case 3: { /
40e0: 2a 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 20 20  * data */.      
40f0: 6d 6f 64 65 5f 74 20 6d 20 3d 20 70 43 75 72 2d  mode_t m = pCur-
4100: 3e 73 53 74 61 74 2e 73 74 5f 6d 6f 64 65 3b 0a  >sStat.st_mode;.
4110: 20 20 20 20 20 20 69 66 28 20 53 5f 49 53 44 49        if( S_ISDI
4120: 52 28 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20  R(m) ){.        
4130: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 6e  sqlite3_result_n
4140: 75 6c 6c 28 63 74 78 29 3b 0a 23 69 66 20 21 64  ull(ctx);.#if !d
4150: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 20 26  efined(_WIN32) &
4160: 26 20 21 64 65 66 69 6e 65 64 28 57 49 4e 33 32  & !defined(WIN32
4170: 29 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66  ).      }else if
4180: 28 20 53 5f 49 53 4c 4e 4b 28 6d 29 20 29 7b 0a  ( S_ISLNK(m) ){.
4190: 20 20 20 20 20 20 20 20 63 68 61 72 20 61 53 74          char aSt
41a0: 61 74 69 63 5b 36 34 5d 3b 0a 20 20 20 20 20 20  atic[64];.      
41b0: 20 20 63 68 61 72 20 2a 61 42 75 66 20 3d 20 61    char *aBuf = a
41c0: 53 74 61 74 69 63 3b 0a 20 20 20 20 20 20 20 20  Static;.        
41d0: 69 6e 74 20 6e 42 75 66 20 3d 20 36 34 3b 0a 20  int nBuf = 64;. 
41e0: 20 20 20 20 20 20 20 69 6e 74 20 6e 3b 0a 0a 20         int n;.. 
41f0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 31 20         while( 1 
4200: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 6e 20 3d  ){.          n =
4210: 20 72 65 61 64 6c 69 6e 6b 28 70 43 75 72 2d 3e   readlink(pCur->
4220: 7a 50 61 74 68 2c 20 61 42 75 66 2c 20 6e 42 75  zPath, aBuf, nBu
4230: 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66  f);.          if
4240: 28 20 6e 3c 6e 42 75 66 20 29 20 62 72 65 61 6b  ( n<nBuf ) break
4250: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  ;.          if( 
4260: 61 42 75 66 21 3d 61 53 74 61 74 69 63 20 29 20  aBuf!=aStatic ) 
4270: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 61 42 75  sqlite3_free(aBu
4280: 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 6e 42  f);.          nB
4290: 75 66 20 3d 20 6e 42 75 66 2a 32 3b 0a 20 20 20  uf = nBuf*2;.   
42a0: 20 20 20 20 20 20 20 61 42 75 66 20 3d 20 73 71         aBuf = sq
42b0: 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 6e 42 75  lite3_malloc(nBu
42c0: 66 29 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66  f);.          if
42d0: 28 20 61 42 75 66 3d 3d 30 20 29 7b 0a 20 20 20  ( aBuf==0 ){.   
42e0: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
42f0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 5f 6e 6f  _result_error_no
4300: 6d 65 6d 28 63 74 78 29 3b 0a 20 20 20 20 20 20  mem(ctx);.      
4310: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
4320: 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 20  ITE_NOMEM;.     
4330: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
4340: 0a 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65  ..        sqlite
4350: 33 5f 72 65 73 75 6c 74 5f 74 65 78 74 28 63 74  3_result_text(ct
4360: 78 2c 20 61 42 75 66 2c 20 6e 2c 20 53 51 4c 49  x, aBuf, n, SQLI
4370: 54 45 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20  TE_TRANSIENT);. 
4380: 20 20 20 20 20 20 20 69 66 28 20 61 42 75 66 21         if( aBuf!
4390: 3d 61 53 74 61 74 69 63 20 29 20 73 71 6c 69 74  =aStatic ) sqlit
43a0: 65 33 5f 66 72 65 65 28 61 42 75 66 29 3b 0a 23  e3_free(aBuf);.#
43b0: 65 6e 64 69 66 0a 20 20 20 20 20 20 7d 65 6c 73  endif.      }els
43c0: 65 7b 0a 20 20 20 20 20 20 20 20 72 65 61 64 46  e{.        readF
43d0: 69 6c 65 43 6f 6e 74 65 6e 74 73 28 63 74 78 2c  ileContents(ctx,
43e0: 20 70 43 75 72 2d 3e 7a 50 61 74 68 29 3b 0a 20   pCur->zPath);. 
43f0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
4400: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45  .  return SQLITE
4410: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  _OK;.}../*.** Re
4420: 74 75 72 6e 20 74 68 65 20 72 6f 77 69 64 20 66  turn the rowid f
4430: 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 72  or the current r
4440: 6f 77 2e 20 49 6e 20 74 68 69 73 20 69 6d 70 6c  ow. In this impl
4450: 65 6d 65 6e 74 61 74 69 6f 6e 2c 20 74 68 65 0a  ementation, the.
4460: 2a 2a 20 66 69 72 73 74 20 72 6f 77 20 72 65 74  ** first row ret
4470: 75 72 6e 65 64 20 69 73 20 61 73 73 69 67 6e 65  urned is assigne
4480: 64 20 72 6f 77 69 64 20 76 61 6c 75 65 20 31 2c  d rowid value 1,
4490: 20 61 6e 64 20 65 61 63 68 20 73 75 62 73 65 71   and each subseq
44a0: 75 65 6e 74 0a 2a 2a 20 72 6f 77 20 61 20 76 61  uent.** row a va
44b0: 6c 75 65 20 31 20 6d 6f 72 65 20 74 68 61 6e 20  lue 1 more than 
44c0: 74 68 61 74 20 6f 66 20 74 68 65 20 70 72 65 76  that of the prev
44d0: 69 6f 75 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ious..*/.static 
44e0: 69 6e 74 20 66 73 64 69 72 52 6f 77 69 64 28 73  int fsdirRowid(s
44f0: 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73  qlite3_vtab_curs
4500: 6f 72 20 2a 63 75 72 2c 20 73 71 6c 69 74 65 5f  or *cur, sqlite_
4510: 69 6e 74 36 34 20 2a 70 52 6f 77 69 64 29 7b 0a  int64 *pRowid){.
4520: 20 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20 2a    fsdir_cursor *
4530: 70 43 75 72 20 3d 20 28 66 73 64 69 72 5f 63 75  pCur = (fsdir_cu
4540: 72 73 6f 72 2a 29 63 75 72 3b 0a 20 20 2a 70 52  rsor*)cur;.  *pR
4550: 6f 77 69 64 20 3d 20 70 43 75 72 2d 3e 69 52 6f  owid = pCur->iRo
4560: 77 69 64 3b 0a 20 20 72 65 74 75 72 6e 20 53 51  wid;.  return SQ
4570: 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a  LITE_OK;.}../*.*
4580: 2a 20 52 65 74 75 72 6e 20 54 52 55 45 20 69 66  * Return TRUE if
4590: 20 74 68 65 20 63 75 72 73 6f 72 20 68 61 73 20   the cursor has 
45a0: 62 65 65 6e 20 6d 6f 76 65 64 20 6f 66 66 20 6f  been moved off o
45b0: 66 20 74 68 65 20 6c 61 73 74 0a 2a 2a 20 72 6f  f the last.** ro
45c0: 77 20 6f 66 20 6f 75 74 70 75 74 2e 0a 2a 2f 0a  w of output..*/.
45d0: 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69 72  static int fsdir
45e0: 45 6f 66 28 73 71 6c 69 74 65 33 5f 76 74 61 62  Eof(sqlite3_vtab
45f0: 5f 63 75 72 73 6f 72 20 2a 63 75 72 29 7b 0a 20  _cursor *cur){. 
4600: 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70   fsdir_cursor *p
4610: 43 75 72 20 3d 20 28 66 73 64 69 72 5f 63 75 72  Cur = (fsdir_cur
4620: 73 6f 72 2a 29 63 75 72 3b 0a 20 20 72 65 74 75  sor*)cur;.  retu
4630: 72 6e 20 28 70 43 75 72 2d 3e 7a 50 61 74 68 3d  rn (pCur->zPath=
4640: 3d 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 78 46  =0);.}../*.** xF
4650: 69 6c 74 65 72 20 63 61 6c 6c 62 61 63 6b 2e 0a  ilter callback..
4660: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 73  */.static int fs
4670: 64 69 72 46 69 6c 74 65 72 28 0a 20 20 73 71 6c  dirFilter(.  sql
4680: 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72  ite3_vtab_cursor
4690: 20 2a 63 75 72 2c 20 0a 20 20 69 6e 74 20 69 64   *cur, .  int id
46a0: 78 4e 75 6d 2c 20 63 6f 6e 73 74 20 63 68 61 72  xNum, const char
46b0: 20 2a 69 64 78 53 74 72 2c 0a 20 20 69 6e 74 20   *idxStr,.  int 
46c0: 61 72 67 63 2c 20 73 71 6c 69 74 65 33 5f 76 61  argc, sqlite3_va
46d0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
46e0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 69 72  const char *zDir
46f0: 20 3d 20 30 3b 0a 20 20 66 73 64 69 72 5f 63 75   = 0;.  fsdir_cu
4700: 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 66 73  rsor *pCur = (fs
4710: 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b  dir_cursor*)cur;
4720: 0a 0a 20 20 66 73 64 69 72 52 65 73 65 74 43 75  ..  fsdirResetCu
4730: 72 73 6f 72 28 70 43 75 72 29 3b 0a 0a 20 20 69  rsor(pCur);..  i
4740: 66 28 20 69 64 78 4e 75 6d 3d 3d 30 20 29 7b 0a  f( idxNum==0 ){.
4750: 20 20 20 20 66 73 64 69 72 53 65 74 45 72 72 6d      fsdirSetErrm
4760: 73 67 28 70 43 75 72 2c 20 22 74 61 62 6c 65 20  sg(pCur, "table 
4770: 66 75 6e 63 74 69 6f 6e 20 66 73 64 69 72 20 72  function fsdir r
4780: 65 71 75 69 72 65 73 20 61 6e 20 61 72 67 75 6d  equires an argum
4790: 65 6e 74 22 29 3b 0a 20 20 20 20 72 65 74 75 72  ent");.    retur
47a0: 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a  n SQLITE_ERROR;.
47b0: 20 20 7d 0a 0a 20 20 61 73 73 65 72 74 28 20 61    }..  assert( a
47c0: 72 67 63 3d 3d 69 64 78 4e 75 6d 20 26 26 20 28  rgc==idxNum && (
47d0: 61 72 67 63 3d 3d 31 20 7c 7c 20 61 72 67 63 3d  argc==1 || argc=
47e0: 3d 32 29 20 29 3b 0a 20 20 7a 44 69 72 20 3d 20  =2) );.  zDir = 
47f0: 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c  (const char*)sql
4800: 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28  ite3_value_text(
4810: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 69 66 28 20  argv[0]);.  if( 
4820: 7a 44 69 72 3d 3d 30 20 29 7b 0a 20 20 20 20 66  zDir==0 ){.    f
4830: 73 64 69 72 53 65 74 45 72 72 6d 73 67 28 70 43  sdirSetErrmsg(pC
4840: 75 72 2c 20 22 74 61 62 6c 65 20 66 75 6e 63 74  ur, "table funct
4850: 69 6f 6e 20 66 73 64 69 72 20 72 65 71 75 69 72  ion fsdir requir
4860: 65 73 20 61 20 6e 6f 6e 2d 4e 55 4c 4c 20 61 72  es a non-NULL ar
4870: 67 75 6d 65 6e 74 22 29 3b 0a 20 20 20 20 72 65  gument");.    re
4880: 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f  turn SQLITE_ERRO
4890: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 61 72 67  R;.  }.  if( arg
48a0: 63 3d 3d 32 20 29 7b 0a 20 20 20 20 70 43 75 72  c==2 ){.    pCur
48b0: 2d 3e 7a 42 61 73 65 20 3d 20 28 63 6f 6e 73 74  ->zBase = (const
48c0: 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76   char*)sqlite3_v
48d0: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 31  alue_text(argv[1
48e0: 5d 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 43  ]);.  }.  if( pC
48f0: 75 72 2d 3e 7a 42 61 73 65 20 29 7b 0a 20 20 20  ur->zBase ){.   
4900: 20 70 43 75 72 2d 3e 6e 42 61 73 65 20 3d 20 28   pCur->nBase = (
4910: 69 6e 74 29 73 74 72 6c 65 6e 28 70 43 75 72 2d  int)strlen(pCur-
4920: 3e 7a 42 61 73 65 29 2b 31 3b 0a 20 20 20 20 70  >zBase)+1;.    p
4930: 43 75 72 2d 3e 7a 50 61 74 68 20 3d 20 73 71 6c  Cur->zPath = sql
4940: 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 73  ite3_mprintf("%s
4950: 2f 25 73 22 2c 20 70 43 75 72 2d 3e 7a 42 61 73  /%s", pCur->zBas
4960: 65 2c 20 7a 44 69 72 29 3b 0a 20 20 7d 65 6c 73  e, zDir);.  }els
4970: 65 7b 0a 20 20 20 20 70 43 75 72 2d 3e 7a 50 61  e{.    pCur->zPa
4980: 74 68 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72  th = sqlite3_mpr
4990: 69 6e 74 66 28 22 25 73 22 2c 20 7a 44 69 72 29  intf("%s", zDir)
49a0: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 43 75  ;.  }..  if( pCu
49b0: 72 2d 3e 7a 50 61 74 68 3d 3d 30 20 29 7b 0a 20  r->zPath==0 ){. 
49c0: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
49d0: 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 0a 20 20 69 66  _NOMEM;.  }.  if
49e0: 28 20 6c 73 74 61 74 28 70 43 75 72 2d 3e 7a 50  ( lstat(pCur->zP
49f0: 61 74 68 2c 20 26 70 43 75 72 2d 3e 73 53 74 61  ath, &pCur->sSta
4a00: 74 29 20 29 7b 0a 20 20 20 20 66 73 64 69 72 53  t) ){.    fsdirS
4a10: 65 74 45 72 72 6d 73 67 28 70 43 75 72 2c 20 22  etErrmsg(pCur, "
4a20: 63 61 6e 6e 6f 74 20 73 74 61 74 20 66 69 6c 65  cannot stat file
4a30: 3a 20 25 73 22 2c 20 70 43 75 72 2d 3e 7a 50 61  : %s", pCur->zPa
4a40: 74 68 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  th);.    return 
4a50: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20  SQLITE_ERROR;.  
4a60: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49  }..  return SQLI
4a70: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  TE_OK;.}../*.** 
4a80: 53 51 4c 69 74 65 20 77 69 6c 6c 20 69 6e 76 6f  SQLite will invo
4a90: 6b 65 20 74 68 69 73 20 6d 65 74 68 6f 64 20 6f  ke this method o
4aa0: 6e 65 20 6f 72 20 6d 6f 72 65 20 74 69 6d 65 73  ne or more times
4ab0: 20 77 68 69 6c 65 20 70 6c 61 6e 6e 69 6e 67 20   while planning 
4ac0: 61 20 71 75 65 72 79 0a 2a 2a 20 74 68 61 74 20  a query.** that 
4ad0: 75 73 65 73 20 74 68 65 20 67 65 6e 65 72 61 74  uses the generat
4ae0: 65 5f 73 65 72 69 65 73 20 76 69 72 74 75 61 6c  e_series virtual
4af0: 20 74 61 62 6c 65 2e 20 20 54 68 69 73 20 72 6f   table.  This ro
4b00: 75 74 69 6e 65 20 6e 65 65 64 73 20 74 6f 20 63  utine needs to c
4b10: 72 65 61 74 65 0a 2a 2a 20 61 20 71 75 65 72 79  reate.** a query
4b20: 20 70 6c 61 6e 20 66 6f 72 20 65 61 63 68 20 69   plan for each i
4b30: 6e 76 6f 63 61 74 69 6f 6e 20 61 6e 64 20 63 6f  nvocation and co
4b40: 6d 70 75 74 65 20 61 6e 20 65 73 74 69 6d 61 74  mpute an estimat
4b50: 65 64 20 63 6f 73 74 20 66 6f 72 20 74 68 61 74  ed cost for that
4b60: 0a 2a 2a 20 70 6c 61 6e 2e 0a 2a 2a 0a 2a 2a 20  .** plan..**.** 
4b70: 49 6e 20 74 68 69 73 20 69 6d 70 6c 65 6d 65 6e  In this implemen
4b80: 74 61 74 69 6f 6e 20 69 64 78 4e 75 6d 20 69 73  tation idxNum is
4b90: 20 75 73 65 64 20 74 6f 20 72 65 70 72 65 73 65   used to represe
4ba0: 6e 74 20 74 68 65 0a 2a 2a 20 71 75 65 72 79 20  nt the.** query 
4bb0: 70 6c 61 6e 2e 20 20 69 64 78 53 74 72 20 69 73  plan.  idxStr is
4bc0: 20 75 6e 75 73 65 64 2e 0a 2a 2a 0a 2a 2a 20 54   unused..**.** T
4bd0: 68 65 20 71 75 65 72 79 20 70 6c 61 6e 20 69 73  he query plan is
4be0: 20 72 65 70 72 65 73 65 6e 74 65 64 20 62 79 20   represented by 
4bf0: 62 69 74 73 20 69 6e 20 69 64 78 4e 75 6d 3a 0a  bits in idxNum:.
4c00: 2a 2a 0a 2a 2a 20 20 28 31 29 20 20 73 74 61 72  **.**  (1)  star
4c10: 74 20 3d 20 24 76 61 6c 75 65 20 20 2d 2d 20 63  t = $value  -- c
4c20: 6f 6e 73 74 72 61 69 6e 74 20 65 78 69 73 74 73  onstraint exists
4c30: 0a 2a 2a 20 20 28 32 29 20 20 73 74 6f 70 20 3d  .**  (2)  stop =
4c40: 20 24 76 61 6c 75 65 20 20 20 2d 2d 20 63 6f 6e   $value   -- con
4c50: 73 74 72 61 69 6e 74 20 65 78 69 73 74 73 0a 2a  straint exists.*
4c60: 2a 20 20 28 34 29 20 20 73 74 65 70 20 3d 20 24  *  (4)  step = $
4c70: 76 61 6c 75 65 20 20 20 2d 2d 20 63 6f 6e 73 74  value   -- const
4c80: 72 61 69 6e 74 20 65 78 69 73 74 73 0a 2a 2a 20  raint exists.** 
4c90: 20 28 38 29 20 20 6f 75 74 70 75 74 20 69 6e 20   (8)  output in 
4ca0: 64 65 73 63 65 6e 64 69 6e 67 20 6f 72 64 65 72  descending order
4cb0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66  .*/.static int f
4cc0: 73 64 69 72 42 65 73 74 49 6e 64 65 78 28 0a 20  sdirBestIndex(. 
4cd0: 20 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 74   sqlite3_vtab *t
4ce0: 61 62 2c 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e  ab,.  sqlite3_in
4cf0: 64 65 78 5f 69 6e 66 6f 20 2a 70 49 64 78 49 6e  dex_info *pIdxIn
4d00: 66 6f 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 20 20  fo.){.  int i;  
4d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4d20: 2a 20 4c 6f 6f 70 20 6f 76 65 72 20 63 6f 6e 73  * Loop over cons
4d30: 74 72 61 69 6e 74 73 20 2a 2f 0a 20 20 69 6e 74  traints */.  int
4d40: 20 69 64 78 34 20 3d 20 2d 31 3b 0a 20 20 69 6e   idx4 = -1;.  in
4d50: 74 20 69 64 78 35 20 3d 20 2d 31 3b 0a 0a 20 20  t idx5 = -1;..  
4d60: 63 6f 6e 73 74 20 73 74 72 75 63 74 20 73 71 6c  const struct sql
4d70: 69 74 65 33 5f 69 6e 64 65 78 5f 63 6f 6e 73 74  ite3_index_const
4d80: 72 61 69 6e 74 20 2a 70 43 6f 6e 73 74 72 61 69  raint *pConstrai
4d90: 6e 74 3b 0a 20 20 70 43 6f 6e 73 74 72 61 69 6e  nt;.  pConstrain
4da0: 74 20 3d 20 70 49 64 78 49 6e 66 6f 2d 3e 61 43  t = pIdxInfo->aC
4db0: 6f 6e 73 74 72 61 69 6e 74 3b 0a 20 20 66 6f 72  onstraint;.  for
4dc0: 28 69 3d 30 3b 20 69 3c 70 49 64 78 49 6e 66 6f  (i=0; i<pIdxInfo
4dd0: 2d 3e 6e 43 6f 6e 73 74 72 61 69 6e 74 3b 20 69  ->nConstraint; i
4de0: 2b 2b 2c 20 70 43 6f 6e 73 74 72 61 69 6e 74 2b  ++, pConstraint+
4df0: 2b 29 7b 0a 20 20 20 20 69 66 28 20 70 43 6f 6e  +){.    if( pCon
4e00: 73 74 72 61 69 6e 74 2d 3e 75 73 61 62 6c 65 3d  straint->usable=
4e10: 3d 30 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20  =0 ) continue;. 
4e20: 20 20 20 69 66 28 20 70 43 6f 6e 73 74 72 61 69     if( pConstrai
4e30: 6e 74 2d 3e 6f 70 21 3d 53 51 4c 49 54 45 5f 49  nt->op!=SQLITE_I
4e40: 4e 44 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54 5f  NDEX_CONSTRAINT_
4e50: 45 51 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20  EQ ) continue;. 
4e60: 20 20 20 69 66 28 20 70 43 6f 6e 73 74 72 61 69     if( pConstrai
4e70: 6e 74 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d 34 20 29  nt->iColumn==4 )
4e80: 20 69 64 78 34 20 3d 20 69 3b 0a 20 20 20 20 69   idx4 = i;.    i
4e90: 66 28 20 70 43 6f 6e 73 74 72 61 69 6e 74 2d 3e  f( pConstraint->
4ea0: 69 43 6f 6c 75 6d 6e 3d 3d 35 20 29 20 69 64 78  iColumn==5 ) idx
4eb0: 35 20 3d 20 69 3b 0a 20 20 7d 0a 0a 20 20 69 66  5 = i;.  }..  if
4ec0: 28 20 69 64 78 34 3c 30 20 29 7b 0a 20 20 20 20  ( idx4<0 ){.    
4ed0: 70 49 64 78 49 6e 66 6f 2d 3e 69 64 78 4e 75 6d  pIdxInfo->idxNum
4ee0: 20 3d 20 30 3b 0a 20 20 20 20 70 49 64 78 49 6e   = 0;.    pIdxIn
4ef0: 66 6f 2d 3e 65 73 74 69 6d 61 74 65 64 43 6f 73  fo->estimatedCos
4f00: 74 20 3d 20 28 64 6f 75 62 6c 65 29 28 28 28 73  t = (double)(((s
4f10: 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 31 29 20  qlite3_int64)1) 
4f20: 3c 3c 20 35 30 29 3b 0a 20 20 7d 65 6c 73 65 7b  << 50);.  }else{
4f30: 0a 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 61  .    pIdxInfo->a
4f40: 43 6f 6e 73 74 72 61 69 6e 74 55 73 61 67 65 5b  ConstraintUsage[
4f50: 69 64 78 34 5d 2e 6f 6d 69 74 20 3d 20 31 3b 0a  idx4].omit = 1;.
4f60: 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 61 43      pIdxInfo->aC
4f70: 6f 6e 73 74 72 61 69 6e 74 55 73 61 67 65 5b 69  onstraintUsage[i
4f80: 64 78 34 5d 2e 61 72 67 76 49 6e 64 65 78 20 3d  dx4].argvIndex =
4f90: 20 31 3b 0a 20 20 20 20 69 66 28 20 69 64 78 35   1;.    if( idx5
4fa0: 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 70 49 64  >=0 ){.      pId
4fb0: 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69  xInfo->aConstrai
4fc0: 6e 74 55 73 61 67 65 5b 69 64 78 35 5d 2e 6f 6d  ntUsage[idx5].om
4fd0: 69 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 70 49  it = 1;.      pI
4fe0: 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61  dxInfo->aConstra
4ff0: 69 6e 74 55 73 61 67 65 5b 69 64 78 35 5d 2e 61  intUsage[idx5].a
5000: 72 67 76 49 6e 64 65 78 20 3d 20 32 3b 0a 20 20  rgvIndex = 2;.  
5010: 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 69 64      pIdxInfo->id
5020: 78 4e 75 6d 20 3d 20 32 3b 0a 20 20 20 20 20 20  xNum = 2;.      
5030: 70 49 64 78 49 6e 66 6f 2d 3e 65 73 74 69 6d 61  pIdxInfo->estima
5040: 74 65 64 43 6f 73 74 20 3d 20 31 30 2e 30 3b 0a  tedCost = 10.0;.
5050: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
5060: 20 70 49 64 78 49 6e 66 6f 2d 3e 69 64 78 4e 75   pIdxInfo->idxNu
5070: 6d 20 3d 20 31 3b 0a 20 20 20 20 20 20 70 49 64  m = 1;.      pId
5080: 78 49 6e 66 6f 2d 3e 65 73 74 69 6d 61 74 65 64  xInfo->estimated
5090: 43 6f 73 74 20 3d 20 31 30 30 2e 30 3b 0a 20 20  Cost = 100.0;.  
50a0: 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72    }.  }..  retur
50b0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a  n SQLITE_OK;.}..
50c0: 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 74  /*.** Register t
50d0: 68 65 20 22 66 73 64 69 72 22 20 76 69 72 74 75  he "fsdir" virtu
50e0: 61 6c 20 74 61 62 6c 65 2e 0a 2a 2f 0a 73 74 61  al table..*/.sta
50f0: 74 69 63 20 69 6e 74 20 66 73 64 69 72 52 65 67  tic int fsdirReg
5100: 69 73 74 65 72 28 73 71 6c 69 74 65 33 20 2a 64  ister(sqlite3 *d
5110: 62 29 7b 0a 20 20 73 74 61 74 69 63 20 73 71 6c  b){.  static sql
5120: 69 74 65 33 5f 6d 6f 64 75 6c 65 20 66 73 64 69  ite3_module fsdi
5130: 72 4d 6f 64 75 6c 65 20 3d 20 7b 0a 20 20 20 20  rModule = {.    
5140: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0,              
5150: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69 56             /* iV
5160: 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 30 2c  ersion */.    0,
5170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5180: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 72 65           /* xCre
5190: 61 74 65 20 2a 2f 0a 20 20 20 20 66 73 64 69 72  ate */.    fsdir
51a0: 43 6f 6e 6e 65 63 74 2c 20 20 20 20 20 20 20 20  Connect,        
51b0: 20 20 20 20 20 20 2f 2a 20 78 43 6f 6e 6e 65 63        /* xConnec
51c0: 74 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 42 65  t */.    fsdirBe
51d0: 73 74 49 6e 64 65 78 2c 20 20 20 20 20 20 20 20  stIndex,        
51e0: 20 20 20 20 2f 2a 20 78 42 65 73 74 49 6e 64 65      /* xBestInde
51f0: 78 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 44 69  x */.    fsdirDi
5200: 73 63 6f 6e 6e 65 63 74 2c 20 20 20 20 20 20 20  sconnect,       
5210: 20 20 20 20 2f 2a 20 78 44 69 73 63 6f 6e 6e 65      /* xDisconne
5220: 63 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  ct */.    0,    
5230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5240: 20 20 20 20 20 2f 2a 20 78 44 65 73 74 72 6f 79       /* xDestroy
5250: 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 4f 70 65   */.    fsdirOpe
5260: 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n,              
5270: 20 20 20 2f 2a 20 78 4f 70 65 6e 20 2d 20 6f 70     /* xOpen - op
5280: 65 6e 20 61 20 63 75 72 73 6f 72 20 2a 2f 0a 20  en a cursor */. 
5290: 20 20 20 66 73 64 69 72 43 6c 6f 73 65 2c 20 20     fsdirClose,  
52a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
52b0: 20 78 43 6c 6f 73 65 20 2d 20 63 6c 6f 73 65 20   xClose - close 
52c0: 61 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20 20 20  a cursor */.    
52d0: 66 73 64 69 72 46 69 6c 74 65 72 2c 20 20 20 20  fsdirFilter,    
52e0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46             /* xF
52f0: 69 6c 74 65 72 20 2d 20 63 6f 6e 66 69 67 75 72  ilter - configur
5300: 65 20 73 63 61 6e 20 63 6f 6e 73 74 72 61 69 6e  e scan constrain
5310: 74 73 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 4e  ts */.    fsdirN
5320: 65 78 74 2c 20 20 20 20 20 20 20 20 20 20 20 20  ext,            
5330: 20 20 20 20 20 2f 2a 20 78 4e 65 78 74 20 2d 20       /* xNext - 
5340: 61 64 76 61 6e 63 65 20 61 20 63 75 72 73 6f 72  advance a cursor
5350: 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 45 6f 66   */.    fsdirEof
5360: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
5370: 20 20 20 2f 2a 20 78 45 6f 66 20 2d 20 63 68 65     /* xEof - che
5380: 63 6b 20 66 6f 72 20 65 6e 64 20 6f 66 20 73 63  ck for end of sc
5390: 61 6e 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 43  an */.    fsdirC
53a0: 6f 6c 75 6d 6e 2c 20 20 20 20 20 20 20 20 20 20  olumn,          
53b0: 20 20 20 20 20 2f 2a 20 78 43 6f 6c 75 6d 6e 20       /* xColumn 
53c0: 2d 20 72 65 61 64 20 64 61 74 61 20 2a 2f 0a 20  - read data */. 
53d0: 20 20 20 66 73 64 69 72 52 6f 77 69 64 2c 20 20     fsdirRowid,  
53e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
53f0: 20 78 52 6f 77 69 64 20 2d 20 72 65 61 64 20 64   xRowid - read d
5400: 61 74 61 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ata */.    0,   
5410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5420: 20 20 20 20 20 20 2f 2a 20 78 55 70 64 61 74 65        /* xUpdate
5430: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
5440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5450: 20 20 20 2f 2a 20 78 42 65 67 69 6e 20 2a 2f 0a     /* xBegin */.
5460: 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20      0,          
5470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
5480: 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 20 20 30  * xSync */.    0
5490: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
54a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 6f            /* xCo
54b0: 6d 6d 69 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20  mmit */.    0,  
54c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
54d0: 20 20 20 20 20 20 20 2f 2a 20 78 52 6f 6c 6c 62         /* xRollb
54e0: 61 63 6b 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ack */.    0,   
54f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5500: 20 20 20 20 20 20 2f 2a 20 78 46 69 6e 64 4d 65        /* xFindMe
5510: 74 68 6f 64 20 2a 2f 0a 20 20 20 20 30 2c 20 20  thod */.    0,  
5520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5530: 20 20 20 20 20 20 20 2f 2a 20 78 52 65 6e 61 6d         /* xRenam
5540: 65 20 2a 2f 0a 20 20 7d 3b 0a 0a 20 20 69 6e 74  e */.  };..  int
5550: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72   rc = sqlite3_cr
5560: 65 61 74 65 5f 6d 6f 64 75 6c 65 28 64 62 2c 20  eate_module(db, 
5570: 22 66 73 64 69 72 22 2c 20 26 66 73 64 69 72 4d  "fsdir", &fsdirM
5580: 6f 64 75 6c 65 2c 20 30 29 3b 0a 20 20 72 65 74  odule, 0);.  ret
5590: 75 72 6e 20 72 63 3b 0a 7d 0a 23 65 6c 73 65 20  urn rc;.}.#else 
55a0: 20 20 20 20 20 20 20 20 2f 2a 20 53 51 4c 49 54          /* SQLIT
55b0: 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c 54 41  E_OMIT_VIRTUALTA
55c0: 42 4c 45 20 2a 2f 0a 23 20 64 65 66 69 6e 65 20  BLE */.# define 
55d0: 66 73 64 69 72 52 65 67 69 73 74 65 72 28 78 29  fsdirRegister(x)
55e0: 20 53 51 4c 49 54 45 5f 4f 4b 0a 23 65 6e 64 69   SQLITE_OK.#endi
55f0: 66 0a 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32  f..#ifdef _WIN32
5600: 0a 5f 5f 64 65 63 6c 73 70 65 63 28 64 6c 6c 65  .__declspec(dlle
5610: 78 70 6f 72 74 29 0a 23 65 6e 64 69 66 0a 69 6e  xport).#endif.in
5620: 74 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 69 6f  t sqlite3_fileio
5630: 5f 69 6e 69 74 28 0a 20 20 73 71 6c 69 74 65 33  _init(.  sqlite3
5640: 20 2a 64 62 2c 20 0a 20 20 63 68 61 72 20 2a 2a   *db, .  char **
5650: 70 7a 45 72 72 4d 73 67 2c 20 0a 20 20 63 6f 6e  pzErrMsg, .  con
5660: 73 74 20 73 71 6c 69 74 65 33 5f 61 70 69 5f 72  st sqlite3_api_r
5670: 6f 75 74 69 6e 65 73 20 2a 70 41 70 69 0a 29 7b  outines *pApi.){
5680: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49  .  int rc = SQLI
5690: 54 45 5f 4f 4b 3b 0a 20 20 53 51 4c 49 54 45 5f  TE_OK;.  SQLITE_
56a0: 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 32 28  EXTENSION_INIT2(
56b0: 70 41 70 69 29 3b 0a 20 20 28 76 6f 69 64 29 70  pApi);.  (void)p
56c0: 7a 45 72 72 4d 73 67 3b 20 20 2f 2a 20 55 6e 75  zErrMsg;  /* Unu
56d0: 73 65 64 20 70 61 72 61 6d 65 74 65 72 20 2a 2f  sed parameter */
56e0: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
56f0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
5700: 64 62 2c 20 22 72 65 61 64 66 69 6c 65 22 2c 20  db, "readfile", 
5710: 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  1, SQLITE_UTF8, 
5720: 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  0,.             
5730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5740: 20 20 72 65 61 64 66 69 6c 65 46 75 6e 63 2c 20    readfileFunc, 
5750: 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 3d  0, 0);.  if( rc=
5760: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
5770: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63    rc = sqlite3_c
5780: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64  reate_function(d
5790: 62 2c 20 22 77 72 69 74 65 66 69 6c 65 22 2c 20  b, "writefile", 
57a0: 2d 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c  -1, SQLITE_UTF8,
57b0: 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20   0,.            
57c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
57d0: 20 20 20 20 20 77 72 69 74 65 66 69 6c 65 46 75       writefileFu
57e0: 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20  nc, 0, 0);.  }. 
57f0: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
5800: 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73  OK ){.    rc = s
5810: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75  qlite3_create_fu
5820: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 6c 73 6d 6f  nction(db, "lsmo
5830: 64 65 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55  de", 1, SQLITE_U
5840: 54 46 38 2c 20 30 2c 0a 20 20 20 20 20 20 20 20  TF8, 0,.        
5850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5860: 20 20 20 20 20 20 20 20 20 6c 73 4d 6f 64 65 46           lsModeF
5870: 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a  unc, 0, 0);.  }.
5880: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
5890: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
58a0: 66 73 64 69 72 52 65 67 69 73 74 65 72 28 64 62  fsdirRegister(db
58b0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
58c0: 72 63 3b 0a 7d 0a                                rc;.}.