/ Hex Artifact Content
Login

Artifact edf880df28f606f0b00ac872a6a957b544fa5a7edc602ad523a9e94a1a90cce9:


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 64 65 66 69 6e   DIRENT.#  defin
0db0: 65 20 73 74 61 74 20 5f 73 74 61 74 0a 23 20 20  e stat _stat.#  
0dc0: 64 65 66 69 6e 65 20 6d 6b 64 69 72 28 70 61 74  define mkdir(pat
0dd0: 68 2c 6d 6f 64 65 29 20 5f 6d 6b 64 69 72 28 70  h,mode) _mkdir(p
0de0: 61 74 68 29 0a 23 20 20 64 65 66 69 6e 65 20 6c  ath).#  define l
0df0: 73 74 61 74 28 70 61 74 68 2c 62 75 66 29 20 5f  stat(path,buf) _
0e00: 73 74 61 74 28 70 61 74 68 2c 62 75 66 29 0a 23  stat(path,buf).#
0e10: 65 6e 64 69 66 0a 23 69 6e 63 6c 75 64 65 20 3c  endif.#include <
0e20: 74 69 6d 65 2e 68 3e 0a 23 69 6e 63 6c 75 64 65  time.h>.#include
0e30: 20 3c 65 72 72 6e 6f 2e 68 3e 0a 0a 0a 23 64 65   <errno.h>...#de
0e40: 66 69 6e 65 20 46 53 44 49 52 5f 53 43 48 45 4d  fine FSDIR_SCHEM
0e50: 41 20 22 28 6e 61 6d 65 2c 6d 6f 64 65 2c 6d 74  A "(name,mode,mt
0e60: 69 6d 65 2c 64 61 74 61 2c 70 61 74 68 20 48 49  ime,data,path HI
0e70: 44 44 45 4e 2c 64 69 72 20 48 49 44 44 45 4e 29  DDEN,dir HIDDEN)
0e80: 22 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65  "../*.** Set the
0e90: 20 72 65 73 75 6c 74 20 73 74 6f 72 65 64 20 62   result stored b
0ea0: 79 20 63 6f 6e 74 65 78 74 20 63 74 78 20 74 6f  y context ctx to
0eb0: 20 61 20 62 6c 6f 62 20 63 6f 6e 74 61 69 6e 69   a blob containi
0ec0: 6e 67 20 74 68 65 20 0a 2a 2a 20 63 6f 6e 74 65  ng the .** conte
0ed0: 6e 74 73 20 6f 66 20 66 69 6c 65 20 7a 4e 61 6d  nts of file zNam
0ee0: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  e..*/.static voi
0ef0: 64 20 72 65 61 64 46 69 6c 65 43 6f 6e 74 65 6e  d readFileConten
0f00: 74 73 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  ts(sqlite3_conte
0f10: 78 74 20 2a 63 74 78 2c 20 63 6f 6e 73 74 20 63  xt *ctx, const c
0f20: 68 61 72 20 2a 7a 4e 61 6d 65 29 7b 0a 20 20 46  har *zName){.  F
0f30: 49 4c 45 20 2a 69 6e 3b 0a 20 20 6c 6f 6e 67 20  ILE *in;.  long 
0f40: 6e 49 6e 3b 0a 20 20 76 6f 69 64 20 2a 70 42 75  nIn;.  void *pBu
0f50: 66 3b 0a 0a 20 20 69 6e 20 3d 20 66 6f 70 65 6e  f;..  in = fopen
0f60: 28 7a 4e 61 6d 65 2c 20 22 72 62 22 29 3b 0a 20  (zName, "rb");. 
0f70: 20 69 66 28 20 69 6e 3d 3d 30 20 29 20 72 65 74   if( in==0 ) ret
0f80: 75 72 6e 3b 0a 20 20 66 73 65 65 6b 28 69 6e 2c  urn;.  fseek(in,
0f90: 20 30 2c 20 53 45 45 4b 5f 45 4e 44 29 3b 0a 20   0, SEEK_END);. 
0fa0: 20 6e 49 6e 20 3d 20 66 74 65 6c 6c 28 69 6e 29   nIn = ftell(in)
0fb0: 3b 0a 20 20 72 65 77 69 6e 64 28 69 6e 29 3b 0a  ;.  rewind(in);.
0fc0: 20 20 70 42 75 66 20 3d 20 73 71 6c 69 74 65 33    pBuf = sqlite3
0fd0: 5f 6d 61 6c 6c 6f 63 28 20 6e 49 6e 20 29 3b 0a  _malloc( nIn );.
0fe0: 20 20 69 66 28 20 70 42 75 66 20 26 26 20 31 3d    if( pBuf && 1=
0ff0: 3d 66 72 65 61 64 28 70 42 75 66 2c 20 6e 49 6e  =fread(pBuf, nIn
1000: 2c 20 31 2c 20 69 6e 29 20 29 7b 0a 20 20 20 20  , 1, in) ){.    
1010: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 62  sqlite3_result_b
1020: 6c 6f 62 28 63 74 78 2c 20 70 42 75 66 2c 20 6e  lob(ctx, pBuf, n
1030: 49 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65 65  In, sqlite3_free
1040: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  );.  }else{.    
1050: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 42 75  sqlite3_free(pBu
1060: 66 29 3b 0a 20 20 7d 0a 20 20 66 63 6c 6f 73 65  f);.  }.  fclose
1070: 28 69 6e 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49  (in);.}../*.** I
1080: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66  mplementation of
1090: 20 74 68 65 20 22 72 65 61 64 66 69 6c 65 28 58   the "readfile(X
10a0: 29 22 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 2e  )" SQL function.
10b0: 20 20 54 68 65 20 65 6e 74 69 72 65 20 63 6f 6e    The entire con
10c0: 74 65 6e 74 0a 2a 2a 20 6f 66 20 74 68 65 20 66  tent.** of the f
10d0: 69 6c 65 20 6e 61 6d 65 64 20 58 20 69 73 20 72  ile named X is r
10e0: 65 61 64 20 61 6e 64 20 72 65 74 75 72 6e 65 64  ead and returned
10f0: 20 61 73 20 61 20 42 4c 4f 42 2e 20 20 4e 55 4c   as a BLOB.  NUL
1100: 4c 20 69 73 20 72 65 74 75 72 6e 65 64 0a 2a 2a  L is returned.**
1110: 20 69 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65   if the file doe
1120: 73 20 6e 6f 74 20 65 78 69 73 74 20 6f 72 20 69  s not exist or i
1130: 73 20 75 6e 72 65 61 64 61 62 6c 65 2e 0a 2a 2f  s unreadable..*/
1140: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 61  .static void rea
1150: 64 66 69 6c 65 46 75 6e 63 28 0a 20 20 73 71 6c  dfileFunc(.  sql
1160: 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f  ite3_context *co
1170: 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67  ntext,.  int arg
1180: 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c  c,.  sqlite3_val
1190: 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63  ue **argv.){.  c
11a0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65  onst char *zName
11b0: 3b 0a 20 20 28 76 6f 69 64 29 28 61 72 67 63 29  ;.  (void)(argc)
11c0: 3b 20 20 2f 2a 20 55 6e 75 73 65 64 20 70 61 72  ;  /* Unused par
11d0: 61 6d 65 74 65 72 20 2a 2f 0a 20 20 7a 4e 61 6d  ameter */.  zNam
11e0: 65 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a  e = (const char*
11f0: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74  )sqlite3_value_t
1200: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  ext(argv[0]);.  
1210: 69 66 28 20 7a 4e 61 6d 65 3d 3d 30 20 29 20 72  if( zName==0 ) r
1220: 65 74 75 72 6e 3b 0a 20 20 72 65 61 64 46 69 6c  eturn;.  readFil
1230: 65 43 6f 6e 74 65 6e 74 73 28 63 6f 6e 74 65 78  eContents(contex
1240: 74 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 0a 2f 2a  t, zName);.}../*
1250: 0a 2a 2a 20 53 65 74 20 74 68 65 20 65 72 72 6f  .** Set the erro
1260: 72 20 6d 65 73 73 61 67 65 20 63 6f 6e 74 61 69  r message contai
1270: 6e 65 64 20 69 6e 20 63 6f 6e 74 65 78 74 20 63  ned in context c
1280: 74 78 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74  tx to the result
1290: 73 20 6f 66 0a 2a 2a 20 76 70 72 69 6e 74 66 28  s of.** vprintf(
12a0: 7a 46 6d 74 2c 20 2e 2e 2e 29 2e 0a 2a 2f 0a 73  zFmt, ...)..*/.s
12b0: 74 61 74 69 63 20 76 6f 69 64 20 63 74 78 45 72  tatic void ctxEr
12c0: 72 6f 72 4d 73 67 28 73 71 6c 69 74 65 33 5f 63  rorMsg(sqlite3_c
12d0: 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 63 6f 6e  ontext *ctx, con
12e0: 73 74 20 63 68 61 72 20 2a 7a 46 6d 74 2c 20 2e  st char *zFmt, .
12f0: 2e 2e 29 7b 0a 20 20 63 68 61 72 20 2a 7a 4d 73  ..){.  char *zMs
1300: 67 20 3d 20 30 3b 0a 20 20 76 61 5f 6c 69 73 74  g = 0;.  va_list
1310: 20 61 70 3b 0a 20 20 76 61 5f 73 74 61 72 74 28   ap;.  va_start(
1320: 61 70 2c 20 7a 46 6d 74 29 3b 0a 20 20 7a 4d 73  ap, zFmt);.  zMs
1330: 67 20 3d 20 73 71 6c 69 74 65 33 5f 76 6d 70 72  g = sqlite3_vmpr
1340: 69 6e 74 66 28 7a 46 6d 74 2c 20 61 70 29 3b 0a  intf(zFmt, ap);.
1350: 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74    sqlite3_result
1360: 5f 65 72 72 6f 72 28 63 74 78 2c 20 7a 4d 73 67  _error(ctx, zMsg
1370: 2c 20 2d 31 29 3b 0a 20 20 73 71 6c 69 74 65 33  , -1);.  sqlite3
1380: 5f 66 72 65 65 28 7a 4d 73 67 29 3b 0a 20 20 76  _free(zMsg);.  v
1390: 61 5f 65 6e 64 28 61 70 29 3b 0a 7d 0a 0a 2f 2a  a_end(ap);.}../*
13a0: 0a 2a 2a 20 41 72 67 75 6d 65 6e 74 20 7a 46 69  .** Argument zFi
13b0: 6c 65 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f  le is the name o
13c0: 66 20 61 20 66 69 6c 65 20 74 68 61 74 20 77 69  f a file that wi
13d0: 6c 6c 20 62 65 20 63 72 65 61 74 65 64 20 61 6e  ll be created an
13e0: 64 2f 6f 72 20 77 72 69 74 74 65 6e 0a 2a 2a 20  d/or written.** 
13f0: 62 79 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e 20  by SQL function 
1400: 77 72 69 74 65 66 69 6c 65 28 29 2e 20 54 68 69  writefile(). Thi
1410: 73 20 66 75 6e 63 74 69 6f 6e 20 65 6e 73 75 72  s function ensur
1420: 65 73 20 74 68 61 74 20 74 68 65 20 64 69 72 65  es that the dire
1430: 63 74 6f 72 79 0a 2a 2a 20 7a 46 69 6c 65 20 77  ctory.** zFile w
1440: 69 6c 6c 20 62 65 20 77 72 69 74 74 65 6e 20 74  ill be written t
1450: 6f 20 65 78 69 73 74 73 2c 20 63 72 65 61 74 69  o exists, creati
1460: 6e 67 20 69 74 20 69 66 20 72 65 71 75 69 72 65  ng it if require
1470: 64 2e 20 54 68 65 20 70 65 72 6d 69 73 73 69 6f  d. The permissio
1480: 6e 73 0a 2a 2a 20 66 6f 72 20 61 6e 79 20 70 61  ns.** for any pa
1490: 74 68 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 63 72  th components cr
14a0: 65 61 74 65 64 20 62 79 20 74 68 69 73 20 66 75  eated by this fu
14b0: 6e 63 74 69 6f 6e 20 61 72 65 20 73 65 74 20 74  nction are set t
14c0: 6f 20 28 6d 6f 64 65 26 30 37 37 37 29 2e 0a 2a  o (mode&0777)..*
14d0: 2a 0a 2a 2a 20 49 66 20 61 6e 20 4f 4f 4d 20 63  *.** If an OOM c
14e0: 6f 6e 64 69 74 69 6f 6e 20 69 73 20 65 6e 63 6f  ondition is enco
14f0: 75 6e 74 65 72 65 64 2c 20 53 51 4c 49 54 45 5f  untered, SQLITE_
1500: 4e 4f 4d 45 4d 20 69 73 20 72 65 74 75 72 6e 65  NOMEM is returne
1510: 64 2e 20 4f 74 68 65 72 77 69 73 65 2c 0a 2a 2a  d. Otherwise,.**
1520: 20 53 51 4c 49 54 45 5f 4f 4b 20 69 73 20 72 65   SQLITE_OK is re
1530: 74 75 72 6e 65 64 20 69 66 20 74 68 65 20 64 69  turned if the di
1540: 72 65 63 74 6f 72 79 20 69 73 20 73 75 63 63 65  rectory is succe
1550: 73 73 66 75 6c 6c 79 20 63 72 65 61 74 65 64 2c  ssfully created,
1560: 20 6f 72 0a 2a 2a 20 53 51 4c 49 54 45 5f 45 52   or.** SQLITE_ER
1570: 52 4f 52 20 6f 74 68 65 72 77 69 73 65 2e 0a 2a  ROR otherwise..*
1580: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6d 61 6b  /.static int mak
1590: 65 44 69 72 65 63 74 6f 72 79 28 0a 20 20 63 6f  eDirectory(.  co
15a0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 2c  nst char *zFile,
15b0: 0a 20 20 6d 6f 64 65 5f 74 20 6d 6f 64 65 0a 29  .  mode_t mode.)
15c0: 7b 0a 20 20 63 68 61 72 20 2a 7a 43 6f 70 79 20  {.  char *zCopy 
15d0: 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74  = sqlite3_mprint
15e0: 66 28 22 25 73 22 2c 20 7a 46 69 6c 65 29 3b 0a  f("%s", zFile);.
15f0: 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54    int rc = SQLIT
1600: 45 5f 4f 4b 3b 0a 0a 20 20 69 66 28 20 7a 43 6f  E_OK;..  if( zCo
1610: 70 79 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63 20  py==0 ){.    rc 
1620: 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a  = SQLITE_NOMEM;.
1630: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 6e 74    }else{.    int
1640: 20 6e 43 6f 70 79 20 3d 20 28 69 6e 74 29 73 74   nCopy = (int)st
1650: 72 6c 65 6e 28 7a 43 6f 70 79 29 3b 0a 20 20 20  rlen(zCopy);.   
1660: 20 69 6e 74 20 69 20 3d 20 31 3b 0a 0a 20 20 20   int i = 1;..   
1670: 20 77 68 69 6c 65 28 20 72 63 3d 3d 53 51 4c 49   while( rc==SQLI
1680: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 73  TE_OK ){.      s
1690: 74 72 75 63 74 20 73 74 61 74 20 73 53 74 61 74  truct stat sStat
16a0: 3b 0a 20 20 20 20 20 20 69 6e 74 20 72 63 32 3b  ;.      int rc2;
16b0: 0a 0a 20 20 20 20 20 20 66 6f 72 28 3b 20 7a 43  ..      for(; zC
16c0: 6f 70 79 5b 69 5d 21 3d 27 2f 27 20 26 26 20 69  opy[i]!='/' && i
16d0: 3c 6e 43 6f 70 79 3b 20 69 2b 2b 29 3b 0a 20 20  <nCopy; i++);.  
16e0: 20 20 20 20 69 66 28 20 69 3d 3d 6e 43 6f 70 79      if( i==nCopy
16f0: 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20   ) break;.      
1700: 7a 43 6f 70 79 5b 69 5d 20 3d 20 27 5c 30 27 3b  zCopy[i] = '\0';
1710: 0a 0a 20 20 20 20 20 20 72 63 32 20 3d 20 73 74  ..      rc2 = st
1720: 61 74 28 7a 43 6f 70 79 2c 20 26 73 53 74 61 74  at(zCopy, &sStat
1730: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63 32  );.      if( rc2
1740: 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 69  !=0 ){.        i
1750: 66 28 20 6d 6b 64 69 72 28 7a 43 6f 70 79 2c 20  f( mkdir(zCopy, 
1760: 6d 6f 64 65 20 26 20 30 37 37 37 29 20 29 20 72  mode & 0777) ) r
1770: 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52  c = SQLITE_ERROR
1780: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a 20  ;.      }else{. 
1790: 20 20 20 20 20 20 20 69 66 28 20 21 53 5f 49 53         if( !S_IS
17a0: 44 49 52 28 73 53 74 61 74 2e 73 74 5f 6d 6f 64  DIR(sStat.st_mod
17b0: 65 29 20 29 20 72 63 20 3d 20 53 51 4c 49 54 45  e) ) rc = SQLITE
17c0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
17d0: 20 20 20 20 20 20 7a 43 6f 70 79 5b 69 5d 20 3d        zCopy[i] =
17e0: 20 27 2f 27 3b 0a 20 20 20 20 20 20 69 2b 2b 3b   '/';.      i++;
17f0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 71 6c 69  .    }..    sqli
1800: 74 65 33 5f 66 72 65 65 28 7a 43 6f 70 79 29 3b  te3_free(zCopy);
1810: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72  .  }..  return r
1820: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73  c;.}../*.** This
1830: 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20 74   function does t
1840: 68 65 20 77 6f 72 6b 20 66 6f 72 20 74 68 65 20  he work for the 
1850: 77 72 69 74 65 66 69 6c 65 28 29 20 55 44 46 2e  writefile() UDF.
1860: 20 52 65 66 65 72 20 74 6f 20 0a 2a 2a 20 68 65   Refer to .** he
1870: 61 64 65 72 20 63 6f 6d 6d 65 6e 74 73 20 61 74  ader comments at
1880: 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 69 73   the top of this
1890: 20 66 69 6c 65 20 66 6f 72 20 64 65 74 61 69 6c   file for detail
18a0: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  s..*/.static int
18b0: 20 77 72 69 74 65 46 69 6c 65 28 0a 20 20 73 71   writeFile(.  sq
18c0: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 70  lite3_context *p
18d0: 43 74 78 2c 20 20 20 20 20 20 20 20 20 20 2f 2a  Ctx,          /*
18e0: 20 43 6f 6e 74 65 78 74 20 74 6f 20 72 65 74 75   Context to retu
18f0: 72 6e 20 62 79 74 65 73 20 77 72 69 74 74 65 6e  rn bytes written
1900: 20 69 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63   in */.  const c
1910: 68 61 72 20 2a 7a 46 69 6c 65 2c 20 20 20 20 20  har *zFile,     
1920: 20 20 20 20 20 20 20 20 20 2f 2a 20 46 69 6c 65           /* File
1930: 20 74 6f 20 77 72 69 74 65 20 2a 2f 0a 20 20 73   to write */.  s
1940: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70 44  qlite3_value *pD
1950: 61 74 61 2c 20 20 20 20 20 20 20 20 20 20 20 2f  ata,           /
1960: 2a 20 44 61 74 61 20 74 6f 20 77 72 69 74 65 20  * Data to write 
1970: 2a 2f 0a 20 20 6d 6f 64 65 5f 74 20 6d 6f 64 65  */.  mode_t mode
1980: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
1990: 20 20 20 20 20 2f 2a 20 4d 4f 44 45 20 70 61 72       /* MODE par
19a0: 61 6d 65 74 65 72 20 70 61 73 73 65 64 20 74 6f  ameter passed to
19b0: 20 77 72 69 74 65 66 69 6c 65 28 29 20 2a 2f 0a   writefile() */.
19c0: 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20    sqlite3_int64 
19d0: 6d 74 69 6d 65 20 20 20 20 20 20 20 20 20 20 20  mtime           
19e0: 20 20 2f 2a 20 4d 54 49 4d 45 20 70 61 72 61 6d    /* MTIME param
19f0: 65 74 65 72 20 28 6f 72 20 2d 31 20 74 6f 20 6e  eter (or -1 to n
1a00: 6f 74 20 73 65 74 20 74 69 6d 65 29 20 2a 2f 0a  ot set time) */.
1a10: 29 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28  ){.#if !defined(
1a20: 5f 57 49 4e 33 32 29 20 26 26 20 21 64 65 66 69  _WIN32) && !defi
1a30: 6e 65 64 28 57 49 4e 33 32 29 0a 20 20 69 66 28  ned(WIN32).  if(
1a40: 20 53 5f 49 53 4c 4e 4b 28 6d 6f 64 65 29 20 29   S_ISLNK(mode) )
1a50: 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72  {.    const char
1a60: 20 2a 7a 54 6f 20 3d 20 28 63 6f 6e 73 74 20 63   *zTo = (const c
1a70: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c  har*)sqlite3_val
1a80: 75 65 5f 74 65 78 74 28 70 44 61 74 61 29 3b 0a  ue_text(pData);.
1a90: 20 20 20 20 69 66 28 20 73 79 6d 6c 69 6e 6b 28      if( symlink(
1aa0: 7a 54 6f 2c 20 7a 46 69 6c 65 29 3c 30 20 29 20  zTo, zFile)<0 ) 
1ab0: 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 65 6c 73  return 1;.  }els
1ac0: 65 0a 23 65 6e 64 69 66 0a 20 20 7b 0a 20 20 20  e.#endif.  {.   
1ad0: 20 69 66 28 20 53 5f 49 53 44 49 52 28 6d 6f 64   if( S_ISDIR(mod
1ae0: 65 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  e) ){.      if( 
1af0: 6d 6b 64 69 72 28 7a 46 69 6c 65 2c 20 6d 6f 64  mkdir(zFile, mod
1b00: 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20 2f 2a  e) ){.        /*
1b10: 20 54 68 65 20 6d 6b 64 69 72 28 29 20 63 61 6c   The mkdir() cal
1b20: 6c 20 74 6f 20 63 72 65 61 74 65 20 74 68 65 20  l to create the 
1b30: 64 69 72 65 63 74 6f 72 79 20 66 61 69 6c 65 64  directory failed
1b40: 2e 20 54 68 69 73 20 6d 69 67 68 74 20 6e 6f 74  . This might not
1b50: 0a 20 20 20 20 20 20 20 20 2a 2a 20 62 65 20 61  .        ** be a
1b60: 6e 20 65 72 72 6f 72 20 74 68 6f 75 67 68 20 2d  n error though -
1b70: 20 69 66 20 74 68 65 72 65 20 69 73 20 61 6c 72   if there is alr
1b80: 65 61 64 79 20 61 20 64 69 72 65 63 74 6f 72 79  eady a directory
1b90: 20 61 74 20 74 68 65 20 73 61 6d 65 0a 20 20 20   at the same.   
1ba0: 20 20 20 20 20 2a 2a 20 70 61 74 68 20 61 6e 64       ** path and
1bb0: 20 65 69 74 68 65 72 20 74 68 65 20 70 65 72 6d   either the perm
1bc0: 69 73 73 69 6f 6e 73 20 61 6c 72 65 61 64 79 20  issions already 
1bd0: 6d 61 74 63 68 20 6f 72 20 63 61 6e 20 62 65 20  match or can be 
1be0: 63 68 61 6e 67 65 64 0a 20 20 20 20 20 20 20 20  changed.        
1bf0: 2a 2a 20 74 6f 20 64 6f 20 73 6f 20 75 73 69 6e  ** to do so usin
1c00: 67 20 63 68 6d 6f 64 28 29 2c 20 69 74 20 69 73  g chmod(), it is
1c10: 20 6e 6f 74 20 61 6e 20 65 72 72 6f 72 2e 20 20   not an error.  
1c20: 2a 2f 0a 20 20 20 20 20 20 20 20 73 74 72 75 63  */.        struc
1c30: 74 20 73 74 61 74 20 73 53 74 61 74 3b 0a 20 20  t stat sStat;.  
1c40: 20 20 20 20 20 20 69 66 28 20 65 72 72 6e 6f 21        if( errno!
1c50: 3d 45 45 58 49 53 54 0a 20 20 20 20 20 20 20 20  =EEXIST.        
1c60: 20 7c 7c 20 30 21 3d 73 74 61 74 28 7a 46 69 6c   || 0!=stat(zFil
1c70: 65 2c 20 26 73 53 74 61 74 29 0a 20 20 20 20 20  e, &sStat).     
1c80: 20 20 20 20 7c 7c 20 21 53 5f 49 53 44 49 52 28      || !S_ISDIR(
1c90: 73 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 0a 20  sStat.st_mode). 
1ca0: 20 20 20 20 20 20 20 20 7c 7c 20 28 28 73 53 74          || ((sSt
1cb0: 61 74 2e 73 74 5f 6d 6f 64 65 26 30 37 37 37 29  at.st_mode&0777)
1cc0: 21 3d 28 6d 6f 64 65 26 30 37 37 37 29 20 26 26  !=(mode&0777) &&
1cd0: 20 30 21 3d 63 68 6d 6f 64 28 7a 46 69 6c 65 2c   0!=chmod(zFile,
1ce0: 20 6d 6f 64 65 26 30 37 37 37 29 29 0a 20 20 20   mode&0777)).   
1cf0: 20 20 20 20 20 29 7b 0a 20 20 20 20 20 20 20 20       ){.        
1d00: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20    return 1;.    
1d10: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20      }.      }.  
1d20: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73    }else{.      s
1d30: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 6e 57 72  qlite3_int64 nWr
1d40: 69 74 65 20 3d 20 30 3b 0a 20 20 20 20 20 20 63  ite = 0;.      c
1d50: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20 20  onst char *z;.  
1d60: 20 20 20 20 69 6e 74 20 72 63 20 3d 20 30 3b 0a      int rc = 0;.
1d70: 20 20 20 20 20 20 46 49 4c 45 20 2a 6f 75 74 20        FILE *out 
1d80: 3d 20 66 6f 70 65 6e 28 7a 46 69 6c 65 2c 20 22  = fopen(zFile, "
1d90: 77 62 22 29 3b 0a 20 20 20 20 20 20 69 66 28 20  wb");.      if( 
1da0: 6f 75 74 3d 3d 30 20 29 20 72 65 74 75 72 6e 20  out==0 ) return 
1db0: 31 3b 0a 20 20 20 20 20 20 7a 20 3d 20 28 63 6f  1;.      z = (co
1dc0: 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74 65  nst char*)sqlite
1dd0: 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 70 44 61  3_value_blob(pDa
1de0: 74 61 29 3b 0a 20 20 20 20 20 20 69 66 28 20 7a  ta);.      if( z
1df0: 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 69   ){.        sqli
1e00: 74 65 33 5f 69 6e 74 36 34 20 6e 20 3d 20 66 77  te3_int64 n = fw
1e10: 72 69 74 65 28 7a 2c 20 31 2c 20 73 71 6c 69 74  rite(z, 1, sqlit
1e20: 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28 70  e3_value_bytes(p
1e30: 44 61 74 61 29 2c 20 6f 75 74 29 3b 0a 20 20 20  Data), out);.   
1e40: 20 20 20 20 20 6e 57 72 69 74 65 20 3d 20 73 71       nWrite = sq
1e50: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65  lite3_value_byte
1e60: 73 28 70 44 61 74 61 29 3b 0a 20 20 20 20 20 20  s(pData);.      
1e70: 20 20 69 66 28 20 6e 57 72 69 74 65 21 3d 6e 20    if( nWrite!=n 
1e80: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20  ){.          rc 
1e90: 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  = 1;.        }. 
1ea0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 66 63 6c       }.      fcl
1eb0: 6f 73 65 28 6f 75 74 29 3b 0a 20 20 20 20 20 20  ose(out);.      
1ec0: 69 66 28 20 72 63 3d 3d 30 20 26 26 20 6d 6f 64  if( rc==0 && mod
1ed0: 65 20 26 26 20 63 68 6d 6f 64 28 7a 46 69 6c 65  e && chmod(zFile
1ee0: 2c 20 6d 6f 64 65 20 26 20 30 37 37 37 29 20 29  , mode & 0777) )
1ef0: 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20 31  {.        rc = 1
1f00: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
1f10: 69 66 28 20 72 63 20 29 20 72 65 74 75 72 6e 20  if( rc ) return 
1f20: 32 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  2;.      sqlite3
1f30: 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 70 43  _result_int64(pC
1f40: 74 78 2c 20 6e 57 72 69 74 65 29 3b 0a 20 20 20  tx, nWrite);.   
1f50: 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20 6d 74   }.  }..  if( mt
1f60: 69 6d 65 3e 3d 30 20 29 7b 0a 23 69 66 20 64 65  ime>=0 ){.#if de
1f70: 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20 20  fined(_WIN32).  
1f80: 20 20 2f 2a 20 57 69 6e 64 6f 77 73 20 2a 2f 0a    /* Windows */.
1f90: 20 20 20 20 46 49 4c 45 54 49 4d 45 20 6c 61 73      FILETIME las
1fa0: 74 41 63 63 65 73 73 3b 0a 20 20 20 20 46 49 4c  tAccess;.    FIL
1fb0: 45 54 49 4d 45 20 6c 61 73 74 57 72 69 74 65 3b  ETIME lastWrite;
1fc0: 0a 20 20 20 20 53 59 53 54 45 4d 54 49 4d 45 20  .    SYSTEMTIME 
1fd0: 63 75 72 72 65 6e 74 54 69 6d 65 3b 0a 20 20 20  currentTime;.   
1fe0: 20 4c 4f 4e 47 4c 4f 4e 47 20 69 6e 74 65 72 76   LONGLONG interv
1ff0: 61 6c 73 3b 0a 20 20 20 20 48 41 4e 44 4c 45 20  als;.    HANDLE 
2000: 68 46 69 6c 65 3b 0a 20 20 20 20 47 65 74 53 79  hFile;.    GetSy
2010: 73 74 65 6d 54 69 6d 65 28 26 63 75 72 72 65 6e  stemTime(&curren
2020: 74 54 69 6d 65 29 3b 0a 20 20 20 20 53 79 73 74  tTime);.    Syst
2030: 65 6d 54 69 6d 65 54 6f 46 69 6c 65 54 69 6d 65  emTimeToFileTime
2040: 28 26 63 75 72 72 65 6e 74 54 69 6d 65 2c 20 26  (&currentTime, &
2050: 6c 61 73 74 41 63 63 65 73 73 29 3b 0a 20 20 20  lastAccess);.   
2060: 20 69 6e 74 65 72 76 61 6c 73 20 3d 20 49 6e 74   intervals = Int
2070: 33 32 78 33 32 54 6f 36 34 28 6d 74 69 6d 65 2c  32x32To64(mtime,
2080: 20 31 30 30 30 30 30 30 30 29 20 2b 20 31 31 36   10000000) + 116
2090: 34 34 34 37 33 36 30 30 30 30 30 30 30 30 30 3b  444736000000000;
20a0: 0a 20 20 20 20 6c 61 73 74 57 72 69 74 65 2e 64  .    lastWrite.d
20b0: 77 4c 6f 77 44 61 74 65 54 69 6d 65 20 3d 20 28  wLowDateTime = (
20c0: 44 57 4f 52 44 29 69 6e 74 65 72 76 61 6c 73 3b  DWORD)intervals;
20d0: 0a 20 20 20 20 6c 61 73 74 57 72 69 74 65 2e 64  .    lastWrite.d
20e0: 77 48 69 67 68 44 61 74 65 54 69 6d 65 20 3d 20  wHighDateTime = 
20f0: 69 6e 74 65 72 76 61 6c 73 20 3e 3e 20 33 32 3b  intervals >> 32;
2100: 0a 20 20 20 20 68 46 69 6c 65 20 3d 20 43 72 65  .    hFile = Cre
2110: 61 74 65 46 69 6c 65 28 0a 20 20 20 20 20 20 7a  ateFile(.      z
2120: 46 69 6c 65 2c 20 46 49 4c 45 5f 57 52 49 54 45  File, FILE_WRITE
2130: 5f 41 54 54 52 49 42 55 54 45 53 2c 20 30 2c 20  _ATTRIBUTES, 0, 
2140: 4e 55 4c 4c 2c 20 4f 50 45 4e 5f 45 58 49 53 54  NULL, OPEN_EXIST
2150: 49 4e 47 2c 0a 20 20 20 20 20 20 46 49 4c 45 5f  ING,.      FILE_
2160: 46 4c 41 47 5f 42 41 43 4b 55 50 5f 53 45 4d 41  FLAG_BACKUP_SEMA
2170: 4e 54 49 43 53 2c 20 4e 55 4c 4c 0a 20 20 20 20  NTICS, NULL.    
2180: 29 3b 0a 20 20 20 20 69 66 28 20 68 46 69 6c 65  );.    if( hFile
2190: 21 3d 49 4e 56 41 4c 49 44 5f 48 41 4e 44 4c 45  !=INVALID_HANDLE
21a0: 5f 56 41 4c 55 45 20 29 7b 0a 20 20 20 20 20 20  _VALUE ){.      
21b0: 42 4f 4f 4c 20 62 52 65 73 75 6c 74 20 3d 20 53  BOOL bResult = S
21c0: 65 74 46 69 6c 65 54 69 6d 65 28 68 46 69 6c 65  etFileTime(hFile
21d0: 2c 20 4e 55 4c 4c 2c 20 26 6c 61 73 74 41 63 63  , NULL, &lastAcc
21e0: 65 73 73 2c 20 26 6c 61 73 74 57 72 69 74 65 29  ess, &lastWrite)
21f0: 3b 0a 20 20 20 20 20 20 43 6c 6f 73 65 48 61 6e  ;.      CloseHan
2200: 64 6c 65 28 68 46 69 6c 65 29 3b 0a 20 20 20 20  dle(hFile);.    
2210: 20 20 72 65 74 75 72 6e 20 21 62 52 65 73 75 6c    return !bResul
2220: 74 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  t;.    }else{.  
2230: 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20      return 1;.  
2240: 20 20 7d 0a 23 65 6c 69 66 20 64 65 66 69 6e 65    }.#elif define
2250: 64 28 41 54 5f 46 44 43 57 44 29 0a 20 20 20 20  d(AT_FDCWD).    
2260: 2f 2a 20 52 65 63 65 6e 74 20 75 6e 69 78 20 2a  /* Recent unix *
2270: 2f 0a 20 20 20 20 73 74 72 75 63 74 20 74 69 6d  /.    struct tim
2280: 65 73 70 65 63 20 74 69 6d 65 73 5b 32 5d 3b 0a  espec times[2];.
2290: 20 20 20 20 74 69 6d 65 73 5b 30 5d 2e 74 76 5f      times[0].tv_
22a0: 6e 73 65 63 20 3d 20 74 69 6d 65 73 5b 31 5d 2e  nsec = times[1].
22b0: 74 76 5f 6e 73 65 63 20 3d 20 30 3b 0a 20 20 20  tv_nsec = 0;.   
22c0: 20 74 69 6d 65 73 5b 30 5d 2e 74 76 5f 73 65 63   times[0].tv_sec
22d0: 20 3d 20 74 69 6d 65 28 30 29 3b 0a 20 20 20 20   = time(0);.    
22e0: 74 69 6d 65 73 5b 31 5d 2e 74 76 5f 73 65 63 20  times[1].tv_sec 
22f0: 3d 20 6d 74 69 6d 65 3b 0a 20 20 20 20 69 66 28  = mtime;.    if(
2300: 20 75 74 69 6d 65 6e 73 61 74 28 41 54 5f 46 44   utimensat(AT_FD
2310: 43 57 44 2c 20 7a 46 69 6c 65 2c 20 74 69 6d 65  CWD, zFile, time
2320: 73 2c 20 41 54 5f 53 59 4d 4c 49 4e 4b 5f 4e 4f  s, AT_SYMLINK_NO
2330: 46 4f 4c 4c 4f 57 29 20 29 7b 0a 20 20 20 20 20  FOLLOW) ){.     
2340: 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d   return 1;.    }
2350: 0a 23 65 6c 73 65 0a 20 20 20 20 2f 2a 20 4c 65  .#else.    /* Le
2360: 67 61 63 79 20 75 6e 69 78 20 2a 2f 0a 20 20 20  gacy unix */.   
2370: 20 73 74 72 75 63 74 20 74 69 6d 65 76 61 6c 20   struct timeval 
2380: 74 69 6d 65 73 5b 32 5d 3b 0a 20 20 20 20 74 69  times[2];.    ti
2390: 6d 65 73 5b 30 5d 2e 74 76 5f 75 73 65 63 20 3d  mes[0].tv_usec =
23a0: 20 74 69 6d 65 73 5b 31 5d 2e 74 76 5f 75 73 65   times[1].tv_use
23b0: 63 20 3d 20 30 3b 0a 20 20 20 20 74 69 6d 65 73  c = 0;.    times
23c0: 5b 30 5d 2e 74 76 5f 73 65 63 20 3d 20 74 69 6d  [0].tv_sec = tim
23d0: 65 28 30 29 3b 0a 20 20 20 20 74 69 6d 65 73 5b  e(0);.    times[
23e0: 31 5d 2e 74 76 5f 73 65 63 20 3d 20 6d 74 69 6d  1].tv_sec = mtim
23f0: 65 3b 0a 20 20 20 20 69 66 28 20 75 74 69 6d 65  e;.    if( utime
2400: 73 28 7a 46 69 6c 65 2c 20 74 69 6d 65 73 29 20  s(zFile, times) 
2410: 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  ){.      return 
2420: 31 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a  1;.    }.#endif.
2430: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 30 3b    }..  return 0;
2440: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d  .}../*.** Implem
2450: 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20  entation of the 
2460: 22 77 72 69 74 65 66 69 6c 65 28 57 2c 58 5b 2c  "writefile(W,X[,
2470: 59 5b 2c 5a 5d 5d 5d 29 22 20 53 51 4c 20 66 75  Y[,Z]]])" SQL fu
2480: 6e 63 74 69 6f 6e 2e 20 20 0a 2a 2a 20 52 65 66  nction.  .** Ref
2490: 65 72 20 74 6f 20 68 65 61 64 65 72 20 63 6f 6d  er to header com
24a0: 6d 65 6e 74 73 20 61 74 20 74 68 65 20 74 6f 70  ments at the top
24b0: 20 6f 66 20 74 68 69 73 20 66 69 6c 65 20 66 6f   of this file fo
24c0: 72 20 64 65 74 61 69 6c 73 2e 0a 2a 2f 0a 73 74  r details..*/.st
24d0: 61 74 69 63 20 76 6f 69 64 20 77 72 69 74 65 66  atic void writef
24e0: 69 6c 65 46 75 6e 63 28 0a 20 20 73 71 6c 69 74  ileFunc(.  sqlit
24f0: 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74  e3_context *cont
2500: 65 78 74 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c  ext,.  int argc,
2510: 0a 20 20 73 71 6c 69 74 65 33 5f 76 61 6c 75 65  .  sqlite3_value
2520: 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e   **argv.){.  con
2530: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 3b 0a  st char *zFile;.
2540: 20 20 6d 6f 64 65 5f 74 20 6d 6f 64 65 20 3d 20    mode_t mode = 
2550: 30 3b 0a 20 20 69 6e 74 20 72 65 73 3b 0a 20 20  0;.  int res;.  
2560: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 6d 74  sqlite3_int64 mt
2570: 69 6d 65 20 3d 20 2d 31 3b 0a 0a 20 20 69 66 28  ime = -1;..  if(
2580: 20 61 72 67 63 3c 32 20 7c 7c 20 61 72 67 63 3e   argc<2 || argc>
2590: 34 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  4 ){.    sqlite3
25a0: 5f 72 65 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f  _result_error(co
25b0: 6e 74 65 78 74 2c 20 0a 20 20 20 20 20 20 20 20  ntext, .        
25c0: 22 77 72 6f 6e 67 20 6e 75 6d 62 65 72 20 6f 66  "wrong number of
25d0: 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 66 75   arguments to fu
25e0: 6e 63 74 69 6f 6e 20 77 72 69 74 65 66 69 6c 65  nction writefile
25f0: 28 29 22 2c 20 2d 31 0a 20 20 20 20 29 3b 0a 20  ()", -1.    );. 
2600: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 0a     return;.  }..
2610: 20 20 7a 46 69 6c 65 20 3d 20 28 63 6f 6e 73 74    zFile = (const
2620: 20 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76   char*)sqlite3_v
2630: 61 6c 75 65 5f 74 65 78 74 28 61 72 67 76 5b 30  alue_text(argv[0
2640: 5d 29 3b 0a 20 20 69 66 28 20 7a 46 69 6c 65 3d  ]);.  if( zFile=
2650: 3d 30 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 69  =0 ) return;.  i
2660: 66 28 20 61 72 67 63 3e 3d 33 20 29 7b 0a 20 20  f( argc>=3 ){.  
2670: 20 20 6d 6f 64 65 20 3d 20 28 6d 6f 64 65 5f 74    mode = (mode_t
2680: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69  )sqlite3_value_i
2690: 6e 74 28 61 72 67 76 5b 32 5d 29 3b 0a 20 20 7d  nt(argv[2]);.  }
26a0: 0a 20 20 69 66 28 20 61 72 67 63 3d 3d 34 20 29  .  if( argc==4 )
26b0: 7b 0a 20 20 20 20 6d 74 69 6d 65 20 3d 20 73 71  {.    mtime = sq
26c0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36  lite3_value_int6
26d0: 34 28 61 72 67 76 5b 33 5d 29 3b 0a 20 20 7d 0a  4(argv[3]);.  }.
26e0: 0a 20 20 72 65 73 20 3d 20 77 72 69 74 65 46 69  .  res = writeFi
26f0: 6c 65 28 63 6f 6e 74 65 78 74 2c 20 7a 46 69 6c  le(context, zFil
2700: 65 2c 20 61 72 67 76 5b 31 5d 2c 20 6d 6f 64 65  e, argv[1], mode
2710: 2c 20 6d 74 69 6d 65 29 3b 0a 20 20 69 66 28 20  , mtime);.  if( 
2720: 72 65 73 3d 3d 31 20 26 26 20 65 72 72 6e 6f 3d  res==1 && errno=
2730: 3d 45 4e 4f 45 4e 54 20 29 7b 0a 20 20 20 20 69  =ENOENT ){.    i
2740: 66 28 20 6d 61 6b 65 44 69 72 65 63 74 6f 72 79  f( makeDirectory
2750: 28 7a 46 69 6c 65 2c 20 6d 6f 64 65 29 3d 3d 53  (zFile, mode)==S
2760: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
2770: 20 20 72 65 73 20 3d 20 77 72 69 74 65 46 69 6c    res = writeFil
2780: 65 28 63 6f 6e 74 65 78 74 2c 20 7a 46 69 6c 65  e(context, zFile
2790: 2c 20 61 72 67 76 5b 31 5d 2c 20 6d 6f 64 65 2c  , argv[1], mode,
27a0: 20 6d 74 69 6d 65 29 3b 0a 20 20 20 20 7d 0a 20   mtime);.    }. 
27b0: 20 7d 0a 0a 20 20 69 66 28 20 61 72 67 63 3e 32   }..  if( argc>2
27c0: 20 26 26 20 72 65 73 21 3d 30 20 29 7b 0a 20 20   && res!=0 ){.  
27d0: 20 20 69 66 28 20 53 5f 49 53 4c 4e 4b 28 6d 6f    if( S_ISLNK(mo
27e0: 64 65 29 20 29 7b 0a 20 20 20 20 20 20 63 74 78  de) ){.      ctx
27f0: 45 72 72 6f 72 4d 73 67 28 63 6f 6e 74 65 78 74  ErrorMsg(context
2800: 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 63 72 65  , "failed to cre
2810: 61 74 65 20 73 79 6d 6c 69 6e 6b 3a 20 25 73 22  ate symlink: %s"
2820: 2c 20 7a 46 69 6c 65 29 3b 0a 20 20 20 20 7d 65  , zFile);.    }e
2830: 6c 73 65 20 69 66 28 20 53 5f 49 53 44 49 52 28  lse if( S_ISDIR(
2840: 6d 6f 64 65 29 20 29 7b 0a 20 20 20 20 20 20 63  mode) ){.      c
2850: 74 78 45 72 72 6f 72 4d 73 67 28 63 6f 6e 74 65  txErrorMsg(conte
2860: 78 74 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 63  xt, "failed to c
2870: 72 65 61 74 65 20 64 69 72 65 63 74 6f 72 79 3a  reate directory:
2880: 20 25 73 22 2c 20 7a 46 69 6c 65 29 3b 0a 20 20   %s", zFile);.  
2890: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 63    }else{.      c
28a0: 74 78 45 72 72 6f 72 4d 73 67 28 63 6f 6e 74 65  txErrorMsg(conte
28b0: 78 74 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 77  xt, "failed to w
28c0: 72 69 74 65 20 66 69 6c 65 3a 20 25 73 22 2c 20  rite file: %s", 
28d0: 7a 46 69 6c 65 29 3b 0a 20 20 20 20 7d 0a 20 20  zFile);.    }.  
28e0: 7d 0a 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51 4c  }.}..#ifndef SQL
28f0: 49 54 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c  ITE_OMIT_VIRTUAL
2900: 54 41 42 4c 45 0a 0a 2f 2a 20 0a 2a 2a 20 43 75  TABLE../* .** Cu
2910: 72 73 6f 72 20 74 79 70 65 20 66 6f 72 20 72 65  rsor type for re
2920: 63 75 72 73 69 76 65 6c 79 20 69 74 65 72 61 74  cursively iterat
2930: 69 6e 67 20 74 68 72 6f 75 67 68 20 61 20 64 69  ing through a di
2940: 72 65 63 74 6f 72 79 20 73 74 72 75 63 74 75 72  rectory structur
2950: 65 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74  e..*/.typedef st
2960: 72 75 63 74 20 66 73 64 69 72 5f 63 75 72 73 6f  ruct fsdir_curso
2970: 72 20 66 73 64 69 72 5f 63 75 72 73 6f 72 3b 0a  r fsdir_cursor;.
2980: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 46  typedef struct F
2990: 73 64 69 72 4c 65 76 65 6c 20 46 73 64 69 72 4c  sdirLevel FsdirL
29a0: 65 76 65 6c 3b 0a 0a 73 74 72 75 63 74 20 46 73  evel;..struct Fs
29b0: 64 69 72 4c 65 76 65 6c 20 7b 0a 20 20 44 49 52  dirLevel {.  DIR
29c0: 20 2a 70 44 69 72 3b 20 20 20 20 20 20 20 20 20   *pDir;         
29d0: 20 20 20 20 20 20 20 20 2f 2a 20 46 72 6f 6d 20          /* From 
29e0: 6f 70 65 6e 64 69 72 28 29 20 2a 2f 0a 20 20 63  opendir() */.  c
29f0: 68 61 72 20 2a 7a 44 69 72 3b 20 20 20 20 20 20  har *zDir;      
2a00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d            /* Nam
2a10: 65 20 6f 66 20 64 69 72 65 63 74 6f 72 79 20 28  e of directory (
2a20: 6e 75 6c 2d 74 65 72 6d 69 6e 61 74 65 64 29 20  nul-terminated) 
2a30: 2a 2f 0a 7d 3b 0a 0a 73 74 72 75 63 74 20 66 73  */.};..struct fs
2a40: 64 69 72 5f 63 75 72 73 6f 72 20 7b 0a 20 20 73  dir_cursor {.  s
2a50: 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72 73  qlite3_vtab_curs
2a60: 6f 72 20 62 61 73 65 3b 20 20 2f 2a 20 42 61 73  or base;  /* Bas
2a70: 65 20 63 6c 61 73 73 20 2d 20 6d 75 73 74 20 62  e class - must b
2a80: 65 20 66 69 72 73 74 20 2a 2f 0a 0a 20 20 69 6e  e first */..  in
2a90: 74 20 6e 4c 76 6c 3b 20 20 20 20 20 20 20 20 20  t nLvl;         
2aa0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
2ab0: 65 72 20 6f 66 20 65 6e 74 72 69 65 73 20 69 6e  er of entries in
2ac0: 20 61 4c 76 6c 5b 5d 20 61 72 72 61 79 20 2a 2f   aLvl[] array */
2ad0: 0a 20 20 69 6e 74 20 69 4c 76 6c 3b 20 20 20 20  .  int iLvl;    
2ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2af0: 20 49 6e 64 65 78 20 6f 66 20 63 75 72 72 65 6e   Index of curren
2b00: 74 20 65 6e 74 72 79 20 2a 2f 0a 20 20 46 73 64  t entry */.  Fsd
2b10: 69 72 4c 65 76 65 6c 20 2a 61 4c 76 6c 3b 20 20  irLevel *aLvl;  
2b20: 20 20 20 20 20 20 20 20 2f 2a 20 48 69 65 72 61          /* Hiera
2b30: 72 63 68 79 20 6f 66 20 64 69 72 65 63 74 6f 72  rchy of director
2b40: 69 65 73 20 62 65 69 6e 67 20 74 72 61 76 65 72  ies being traver
2b50: 73 65 64 20 2a 2f 0a 0a 20 20 63 6f 6e 73 74 20  sed */..  const 
2b60: 63 68 61 72 20 2a 7a 42 61 73 65 3b 0a 20 20 69  char *zBase;.  i
2b70: 6e 74 20 6e 42 61 73 65 3b 0a 0a 20 20 73 74 72  nt nBase;..  str
2b80: 75 63 74 20 73 74 61 74 20 73 53 74 61 74 3b 20  uct stat sStat; 
2b90: 20 20 20 20 20 20 20 20 2f 2a 20 43 75 72 72 65          /* Curre
2ba0: 6e 74 20 6c 73 74 61 74 28 29 20 72 65 73 75 6c  nt lstat() resul
2bb0: 74 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 50  ts */.  char *zP
2bc0: 61 74 68 3b 20 20 20 20 20 20 20 20 20 20 20 20  ath;            
2bd0: 20 20 20 2f 2a 20 50 61 74 68 20 74 6f 20 63 75     /* Path to cu
2be0: 72 72 65 6e 74 20 65 6e 74 72 79 20 2a 2f 0a 20  rrent entry */. 
2bf0: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69   sqlite3_int64 i
2c00: 52 6f 77 69 64 3b 20 20 20 20 20 20 2f 2a 20 43  Rowid;      /* C
2c10: 75 72 72 65 6e 74 20 72 6f 77 69 64 20 2a 2f 0a  urrent rowid */.
2c20: 7d 3b 0a 0a 74 79 70 65 64 65 66 20 73 74 72 75  };..typedef stru
2c30: 63 74 20 66 73 64 69 72 5f 74 61 62 20 66 73 64  ct fsdir_tab fsd
2c40: 69 72 5f 74 61 62 3b 0a 73 74 72 75 63 74 20 66  ir_tab;.struct f
2c50: 73 64 69 72 5f 74 61 62 20 7b 0a 20 20 73 71 6c  sdir_tab {.  sql
2c60: 69 74 65 33 5f 76 74 61 62 20 62 61 73 65 3b 20  ite3_vtab base; 
2c70: 20 20 20 20 20 20 20 20 2f 2a 20 42 61 73 65 20          /* Base 
2c80: 63 6c 61 73 73 20 2d 20 6d 75 73 74 20 62 65 20  class - must be 
2c90: 66 69 72 73 74 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a  first */.};../*.
2ca0: 2a 2a 20 43 6f 6e 73 74 72 75 63 74 20 61 20 6e  ** Construct a n
2cb0: 65 77 20 66 73 64 69 72 20 76 69 72 74 75 61 6c  ew fsdir virtual
2cc0: 20 74 61 62 6c 65 20 6f 62 6a 65 63 74 2e 0a 2a   table object..*
2cd0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 73 64  /.static int fsd
2ce0: 69 72 43 6f 6e 6e 65 63 74 28 0a 20 20 73 71 6c  irConnect(.  sql
2cf0: 69 74 65 33 20 2a 64 62 2c 0a 20 20 76 6f 69 64  ite3 *db,.  void
2d00: 20 2a 70 41 75 78 2c 0a 20 20 69 6e 74 20 61 72   *pAux,.  int ar
2d10: 67 63 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  gc, const char *
2d20: 63 6f 6e 73 74 2a 61 72 67 76 2c 0a 20 20 73 71  const*argv,.  sq
2d30: 6c 69 74 65 33 5f 76 74 61 62 20 2a 2a 70 70 56  lite3_vtab **ppV
2d40: 74 61 62 2c 0a 20 20 63 68 61 72 20 2a 2a 70 7a  tab,.  char **pz
2d50: 45 72 72 0a 29 7b 0a 20 20 66 73 64 69 72 5f 74  Err.){.  fsdir_t
2d60: 61 62 20 2a 70 4e 65 77 20 3d 20 30 3b 0a 20 20  ab *pNew = 0;.  
2d70: 69 6e 74 20 72 63 3b 0a 0a 20 20 72 63 20 3d 20  int rc;..  rc = 
2d80: 73 71 6c 69 74 65 33 5f 64 65 63 6c 61 72 65 5f  sqlite3_declare_
2d90: 76 74 61 62 28 64 62 2c 20 22 43 52 45 41 54 45  vtab(db, "CREATE
2da0: 20 54 41 42 4c 45 20 78 22 20 46 53 44 49 52 5f   TABLE x" FSDIR_
2db0: 53 43 48 45 4d 41 29 3b 0a 20 20 69 66 28 20 72  SCHEMA);.  if( r
2dc0: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
2dd0: 20 20 20 20 70 4e 65 77 20 3d 20 28 66 73 64 69      pNew = (fsdi
2de0: 72 5f 74 61 62 2a 29 73 71 6c 69 74 65 33 5f 6d  r_tab*)sqlite3_m
2df0: 61 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70  alloc( sizeof(*p
2e00: 4e 65 77 29 20 29 3b 0a 20 20 20 20 69 66 28 20  New) );.    if( 
2e10: 70 4e 65 77 3d 3d 30 20 29 20 72 65 74 75 72 6e  pNew==0 ) return
2e20: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20   SQLITE_NOMEM;. 
2e30: 20 20 20 6d 65 6d 73 65 74 28 70 4e 65 77 2c 20     memset(pNew, 
2e40: 30 2c 20 73 69 7a 65 6f 66 28 2a 70 4e 65 77 29  0, sizeof(*pNew)
2e50: 29 3b 0a 20 20 7d 0a 20 20 2a 70 70 56 74 61 62  );.  }.  *ppVtab
2e60: 20 3d 20 28 73 71 6c 69 74 65 33 5f 76 74 61 62   = (sqlite3_vtab
2e70: 2a 29 70 4e 65 77 3b 0a 20 20 72 65 74 75 72 6e  *)pNew;.  return
2e80: 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68   rc;.}../*.** Th
2e90: 69 73 20 6d 65 74 68 6f 64 20 69 73 20 74 68 65  is method is the
2ea0: 20 64 65 73 74 72 75 63 74 6f 72 20 66 6f 72 20   destructor for 
2eb0: 66 73 64 69 72 20 76 74 61 62 20 6f 62 6a 65 63  fsdir vtab objec
2ec0: 74 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ts..*/.static in
2ed0: 74 20 66 73 64 69 72 44 69 73 63 6f 6e 6e 65 63  t fsdirDisconnec
2ee0: 74 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a  t(sqlite3_vtab *
2ef0: 70 56 74 61 62 29 7b 0a 20 20 73 71 6c 69 74 65  pVtab){.  sqlite
2f00: 33 5f 66 72 65 65 28 70 56 74 61 62 29 3b 0a 20  3_free(pVtab);. 
2f10: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
2f20: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 73  K;.}../*.** Cons
2f30: 74 72 75 63 74 6f 72 20 66 6f 72 20 61 20 6e 65  tructor for a ne
2f40: 77 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20 6f  w fsdir_cursor o
2f50: 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61 74 69 63  bject..*/.static
2f60: 20 69 6e 74 20 66 73 64 69 72 4f 70 65 6e 28 73   int fsdirOpen(s
2f70: 71 6c 69 74 65 33 5f 76 74 61 62 20 2a 70 2c 20  qlite3_vtab *p, 
2f80: 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72  sqlite3_vtab_cur
2f90: 73 6f 72 20 2a 2a 70 70 43 75 72 73 6f 72 29 7b  sor **ppCursor){
2fa0: 0a 20 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20  .  fsdir_cursor 
2fb0: 2a 70 43 75 72 3b 0a 20 20 70 43 75 72 20 3d 20  *pCur;.  pCur = 
2fc0: 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20  sqlite3_malloc( 
2fd0: 73 69 7a 65 6f 66 28 2a 70 43 75 72 29 20 29 3b  sizeof(*pCur) );
2fe0: 0a 20 20 69 66 28 20 70 43 75 72 3d 3d 30 20 29  .  if( pCur==0 )
2ff0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e   return SQLITE_N
3000: 4f 4d 45 4d 3b 0a 20 20 6d 65 6d 73 65 74 28 70  OMEM;.  memset(p
3010: 43 75 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a  Cur, 0, sizeof(*
3020: 70 43 75 72 29 29 3b 0a 20 20 70 43 75 72 2d 3e  pCur));.  pCur->
3030: 69 4c 76 6c 20 3d 20 2d 31 3b 0a 20 20 2a 70 70  iLvl = -1;.  *pp
3040: 43 75 72 73 6f 72 20 3d 20 26 70 43 75 72 2d 3e  Cursor = &pCur->
3050: 62 61 73 65 3b 0a 20 20 72 65 74 75 72 6e 20 53  base;.  return S
3060: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  QLITE_OK;.}../*.
3070: 2a 2a 20 52 65 73 65 74 20 61 20 63 75 72 73 6f  ** Reset a curso
3080: 72 20 62 61 63 6b 20 74 6f 20 74 68 65 20 73 74  r back to the st
3090: 61 74 65 20 69 74 20 77 61 73 20 69 6e 20 77 68  ate it was in wh
30a0: 65 6e 20 66 69 72 73 74 20 72 65 74 75 72 6e 65  en first returne
30b0: 64 0a 2a 2a 20 62 79 20 66 73 64 69 72 4f 70 65  d.** by fsdirOpe
30c0: 6e 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  n()..*/.static v
30d0: 6f 69 64 20 66 73 64 69 72 52 65 73 65 74 43 75  oid fsdirResetCu
30e0: 72 73 6f 72 28 66 73 64 69 72 5f 63 75 72 73 6f  rsor(fsdir_curso
30f0: 72 20 2a 70 43 75 72 29 7b 0a 20 20 69 6e 74 20  r *pCur){.  int 
3100: 69 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c  i;.  for(i=0; i<
3110: 3d 70 43 75 72 2d 3e 69 4c 76 6c 3b 20 69 2b 2b  =pCur->iLvl; i++
3120: 29 7b 0a 20 20 20 20 46 73 64 69 72 4c 65 76 65  ){.    FsdirLeve
3130: 6c 20 2a 70 4c 76 6c 20 3d 20 26 70 43 75 72 2d  l *pLvl = &pCur-
3140: 3e 61 4c 76 6c 5b 69 5d 3b 0a 20 20 20 20 69 66  >aLvl[i];.    if
3150: 28 20 70 4c 76 6c 2d 3e 70 44 69 72 20 29 20 63  ( pLvl->pDir ) c
3160: 6c 6f 73 65 64 69 72 28 70 4c 76 6c 2d 3e 70 44  losedir(pLvl->pD
3170: 69 72 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  ir);.    sqlite3
3180: 5f 66 72 65 65 28 70 4c 76 6c 2d 3e 7a 44 69 72  _free(pLvl->zDir
3190: 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33  );.  }.  sqlite3
31a0: 5f 66 72 65 65 28 70 43 75 72 2d 3e 7a 50 61 74  _free(pCur->zPat
31b0: 68 29 3b 0a 20 20 70 43 75 72 2d 3e 61 4c 76 6c  h);.  pCur->aLvl
31c0: 20 3d 20 30 3b 0a 20 20 70 43 75 72 2d 3e 7a 50   = 0;.  pCur->zP
31d0: 61 74 68 20 3d 20 30 3b 0a 20 20 70 43 75 72 2d  ath = 0;.  pCur-
31e0: 3e 7a 42 61 73 65 20 3d 20 30 3b 0a 20 20 70 43  >zBase = 0;.  pC
31f0: 75 72 2d 3e 6e 42 61 73 65 20 3d 20 30 3b 0a 20  ur->nBase = 0;. 
3200: 20 70 43 75 72 2d 3e 69 4c 76 6c 20 3d 20 2d 31   pCur->iLvl = -1
3210: 3b 0a 20 20 70 43 75 72 2d 3e 69 52 6f 77 69 64  ;.  pCur->iRowid
3220: 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44   = 1;.}../*.** D
3230: 65 73 74 72 75 63 74 6f 72 20 66 6f 72 20 61 6e  estructor for an
3240: 20 66 73 64 69 72 5f 63 75 72 73 6f 72 2e 0a 2a   fsdir_cursor..*
3250: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66 73 64  /.static int fsd
3260: 69 72 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f  irClose(sqlite3_
3270: 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72  vtab_cursor *cur
3280: 29 7b 0a 20 20 66 73 64 69 72 5f 63 75 72 73 6f  ){.  fsdir_curso
3290: 72 20 2a 70 43 75 72 20 3d 20 28 66 73 64 69 72  r *pCur = (fsdir
32a0: 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b 0a 0a 20  _cursor*)cur;.. 
32b0: 20 66 73 64 69 72 52 65 73 65 74 43 75 72 73 6f   fsdirResetCurso
32c0: 72 28 70 43 75 72 29 3b 0a 20 20 73 71 6c 69 74  r(pCur);.  sqlit
32d0: 65 33 5f 66 72 65 65 28 70 43 75 72 2d 3e 61 4c  e3_free(pCur->aL
32e0: 76 6c 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66  vl);.  sqlite3_f
32f0: 72 65 65 28 70 43 75 72 29 3b 0a 20 20 72 65 74  ree(pCur);.  ret
3300: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d  urn SQLITE_OK;.}
3310: 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20  ../*.** Set the 
3320: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 66 6f  error message fo
3330: 72 20 74 68 65 20 76 69 72 74 75 61 6c 20 74 61  r the virtual ta
3340: 62 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 77  ble associated w
3350: 69 74 68 20 63 75 72 73 6f 72 0a 2a 2a 20 70 43  ith cursor.** pC
3360: 75 72 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74  ur to the result
3370: 73 20 6f 66 20 76 70 72 69 6e 74 66 28 7a 46 6d  s of vprintf(zFm
3380: 74 2c 20 2e 2e 2e 29 2e 0a 2a 2f 0a 73 74 61 74  t, ...)..*/.stat
3390: 69 63 20 76 6f 69 64 20 66 73 64 69 72 53 65 74  ic void fsdirSet
33a0: 45 72 72 6d 73 67 28 66 73 64 69 72 5f 63 75 72  Errmsg(fsdir_cur
33b0: 73 6f 72 20 2a 70 43 75 72 2c 20 63 6f 6e 73 74  sor *pCur, const
33c0: 20 63 68 61 72 20 2a 7a 46 6d 74 2c 20 2e 2e 2e   char *zFmt, ...
33d0: 29 7b 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b  ){.  va_list ap;
33e0: 0a 20 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20  .  va_start(ap, 
33f0: 7a 46 6d 74 29 3b 0a 20 20 70 43 75 72 2d 3e 62  zFmt);.  pCur->b
3400: 61 73 65 2e 70 56 74 61 62 2d 3e 7a 45 72 72 4d  ase.pVtab->zErrM
3410: 73 67 20 3d 20 73 71 6c 69 74 65 33 5f 76 6d 70  sg = sqlite3_vmp
3420: 72 69 6e 74 66 28 7a 46 6d 74 2c 20 61 70 29 3b  rintf(zFmt, ap);
3430: 0a 20 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 7d  .  va_end(ap);.}
3440: 0a 0a 0a 2f 2a 0a 2a 2a 20 41 64 76 61 6e 63 65  .../*.** Advance
3450: 20 61 6e 20 66 73 64 69 72 5f 63 75 72 73 6f 72   an fsdir_cursor
3460: 20 74 6f 20 69 74 73 20 6e 65 78 74 20 72 6f 77   to its next row
3470: 20 6f 66 20 6f 75 74 70 75 74 2e 0a 2a 2f 0a 73   of output..*/.s
3480: 74 61 74 69 63 20 69 6e 74 20 66 73 64 69 72 4e  tatic int fsdirN
3490: 65 78 74 28 73 71 6c 69 74 65 33 5f 76 74 61 62  ext(sqlite3_vtab
34a0: 5f 63 75 72 73 6f 72 20 2a 63 75 72 29 7b 0a 20  _cursor *cur){. 
34b0: 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70   fsdir_cursor *p
34c0: 43 75 72 20 3d 20 28 66 73 64 69 72 5f 63 75 72  Cur = (fsdir_cur
34d0: 73 6f 72 2a 29 63 75 72 3b 0a 20 20 6d 6f 64 65  sor*)cur;.  mode
34e0: 5f 74 20 6d 20 3d 20 70 43 75 72 2d 3e 73 53 74  _t m = pCur->sSt
34f0: 61 74 2e 73 74 5f 6d 6f 64 65 3b 0a 0a 20 20 70  at.st_mode;..  p
3500: 43 75 72 2d 3e 69 52 6f 77 69 64 2b 2b 3b 0a 20  Cur->iRowid++;. 
3510: 20 69 66 28 20 53 5f 49 53 44 49 52 28 6d 29 20   if( S_ISDIR(m) 
3520: 29 7b 0a 20 20 20 20 2f 2a 20 44 65 73 63 65 6e  ){.    /* Descen
3530: 64 20 69 6e 74 6f 20 74 68 69 73 20 64 69 72 65  d into this dire
3540: 63 74 6f 72 79 20 2a 2f 0a 20 20 20 20 69 6e 74  ctory */.    int
3550: 20 69 4e 65 77 20 3d 20 70 43 75 72 2d 3e 69 4c   iNew = pCur->iL
3560: 76 6c 20 2b 20 31 3b 0a 20 20 20 20 46 73 64 69  vl + 1;.    Fsdi
3570: 72 4c 65 76 65 6c 20 2a 70 4c 76 6c 3b 0a 20 20  rLevel *pLvl;.  
3580: 20 20 69 66 28 20 69 4e 65 77 3e 3d 70 43 75 72    if( iNew>=pCur
3590: 2d 3e 6e 4c 76 6c 20 29 7b 0a 20 20 20 20 20 20  ->nLvl ){.      
35a0: 69 6e 74 20 6e 4e 65 77 20 3d 20 69 4e 65 77 2b  int nNew = iNew+
35b0: 31 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 42 79  1;.      int nBy
35c0: 74 65 20 3d 20 6e 4e 65 77 2a 73 69 7a 65 6f 66  te = nNew*sizeof
35d0: 28 46 73 64 69 72 4c 65 76 65 6c 29 3b 0a 20 20  (FsdirLevel);.  
35e0: 20 20 20 20 46 73 64 69 72 4c 65 76 65 6c 20 2a      FsdirLevel *
35f0: 61 4e 65 77 20 3d 20 28 46 73 64 69 72 4c 65 76  aNew = (FsdirLev
3600: 65 6c 2a 29 73 71 6c 69 74 65 33 5f 72 65 61 6c  el*)sqlite3_real
3610: 6c 6f 63 28 70 43 75 72 2d 3e 61 4c 76 6c 2c 20  loc(pCur->aLvl, 
3620: 6e 42 79 74 65 29 3b 0a 20 20 20 20 20 20 69 66  nByte);.      if
3630: 28 20 61 4e 65 77 3d 3d 30 20 29 20 72 65 74 75  ( aNew==0 ) retu
3640: 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b  rn SQLITE_NOMEM;
3650: 0a 20 20 20 20 20 20 6d 65 6d 73 65 74 28 26 61  .      memset(&a
3660: 4e 65 77 5b 70 43 75 72 2d 3e 6e 4c 76 6c 5d 2c  New[pCur->nLvl],
3670: 20 30 2c 20 73 69 7a 65 6f 66 28 46 73 64 69 72   0, sizeof(Fsdir
3680: 4c 65 76 65 6c 29 2a 28 6e 4e 65 77 2d 70 43 75  Level)*(nNew-pCu
3690: 72 2d 3e 6e 4c 76 6c 29 29 3b 0a 20 20 20 20 20  r->nLvl));.     
36a0: 20 70 43 75 72 2d 3e 61 4c 76 6c 20 3d 20 61 4e   pCur->aLvl = aN
36b0: 65 77 3b 0a 20 20 20 20 20 20 70 43 75 72 2d 3e  ew;.      pCur->
36c0: 6e 4c 76 6c 20 3d 20 6e 4e 65 77 3b 0a 20 20 20  nLvl = nNew;.   
36d0: 20 7d 0a 20 20 20 20 70 43 75 72 2d 3e 69 4c 76   }.    pCur->iLv
36e0: 6c 20 3d 20 69 4e 65 77 3b 0a 20 20 20 20 70 4c  l = iNew;.    pL
36f0: 76 6c 20 3d 20 26 70 43 75 72 2d 3e 61 4c 76 6c  vl = &pCur->aLvl
3700: 5b 69 4e 65 77 5d 3b 0a 20 20 20 20 0a 20 20 20  [iNew];.    .   
3710: 20 70 4c 76 6c 2d 3e 7a 44 69 72 20 3d 20 70 43   pLvl->zDir = pC
3720: 75 72 2d 3e 7a 50 61 74 68 3b 0a 20 20 20 20 70  ur->zPath;.    p
3730: 43 75 72 2d 3e 7a 50 61 74 68 20 3d 20 30 3b 0a  Cur->zPath = 0;.
3740: 20 20 20 20 70 4c 76 6c 2d 3e 70 44 69 72 20 3d      pLvl->pDir =
3750: 20 6f 70 65 6e 64 69 72 28 70 4c 76 6c 2d 3e 7a   opendir(pLvl->z
3760: 44 69 72 29 3b 0a 20 20 20 20 69 66 28 20 70 4c  Dir);.    if( pL
3770: 76 6c 2d 3e 70 44 69 72 3d 3d 30 20 29 7b 0a 20  vl->pDir==0 ){. 
3780: 20 20 20 20 20 66 73 64 69 72 53 65 74 45 72 72       fsdirSetErr
3790: 6d 73 67 28 70 43 75 72 2c 20 22 63 61 6e 6e 6f  msg(pCur, "canno
37a0: 74 20 72 65 61 64 20 64 69 72 65 63 74 6f 72 79  t read directory
37b0: 3a 20 25 73 22 2c 20 70 43 75 72 2d 3e 7a 50 61  : %s", pCur->zPa
37c0: 74 68 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  th);.      retur
37d0: 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a  n SQLITE_ERROR;.
37e0: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 77 68 69      }.  }..  whi
37f0: 6c 65 28 20 70 43 75 72 2d 3e 69 4c 76 6c 3e 3d  le( pCur->iLvl>=
3800: 30 20 29 7b 0a 20 20 20 20 46 73 64 69 72 4c 65  0 ){.    FsdirLe
3810: 76 65 6c 20 2a 70 4c 76 6c 20 3d 20 26 70 43 75  vel *pLvl = &pCu
3820: 72 2d 3e 61 4c 76 6c 5b 70 43 75 72 2d 3e 69 4c  r->aLvl[pCur->iL
3830: 76 6c 5d 3b 0a 20 20 20 20 73 74 72 75 63 74 20  vl];.    struct 
3840: 64 69 72 65 6e 74 20 2a 70 45 6e 74 72 79 20 3d  dirent *pEntry =
3850: 20 72 65 61 64 64 69 72 28 70 4c 76 6c 2d 3e 70   readdir(pLvl->p
3860: 44 69 72 29 3b 0a 20 20 20 20 69 66 28 20 70 45  Dir);.    if( pE
3870: 6e 74 72 79 20 29 7b 0a 20 20 20 20 20 20 69 66  ntry ){.      if
3880: 28 20 70 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65  ( pEntry->d_name
3890: 5b 30 5d 3d 3d 27 2e 27 20 29 7b 0a 20 20 20 20  [0]=='.' ){.    
38a0: 20 20 20 69 66 28 20 70 45 6e 74 72 79 2d 3e 64     if( pEntry->d
38b0: 5f 6e 61 6d 65 5b 31 5d 3d 3d 27 2e 27 20 26 26  _name[1]=='.' &&
38c0: 20 70 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 5b   pEntry->d_name[
38d0: 32 5d 3d 3d 27 5c 30 27 20 29 20 63 6f 6e 74 69  2]=='\0' ) conti
38e0: 6e 75 65 3b 0a 20 20 20 20 20 20 20 69 66 28 20  nue;.       if( 
38f0: 70 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 5b 31  pEntry->d_name[1
3900: 5d 3d 3d 27 5c 30 27 20 29 20 63 6f 6e 74 69 6e  ]=='\0' ) contin
3910: 75 65 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  ue;.      }.    
3920: 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70    sqlite3_free(p
3930: 43 75 72 2d 3e 7a 50 61 74 68 29 3b 0a 20 20 20  Cur->zPath);.   
3940: 20 20 20 70 43 75 72 2d 3e 7a 50 61 74 68 20 3d     pCur->zPath =
3950: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66   sqlite3_mprintf
3960: 28 22 25 73 2f 25 73 22 2c 20 70 4c 76 6c 2d 3e  ("%s/%s", pLvl->
3970: 7a 44 69 72 2c 20 70 45 6e 74 72 79 2d 3e 64 5f  zDir, pEntry->d_
3980: 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 69 66 28  name);.      if(
3990: 20 70 43 75 72 2d 3e 7a 50 61 74 68 3d 3d 30 20   pCur->zPath==0 
39a0: 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f  ) return SQLITE_
39b0: 4e 4f 4d 45 4d 3b 0a 20 20 20 20 20 20 69 66 28  NOMEM;.      if(
39c0: 20 6c 73 74 61 74 28 70 43 75 72 2d 3e 7a 50 61   lstat(pCur->zPa
39d0: 74 68 2c 20 26 70 43 75 72 2d 3e 73 53 74 61 74  th, &pCur->sStat
39e0: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 66 73 64  ) ){.        fsd
39f0: 69 72 53 65 74 45 72 72 6d 73 67 28 70 43 75 72  irSetErrmsg(pCur
3a00: 2c 20 22 63 61 6e 6e 6f 74 20 73 74 61 74 20 66  , "cannot stat f
3a10: 69 6c 65 3a 20 25 73 22 2c 20 70 43 75 72 2d 3e  ile: %s", pCur->
3a20: 7a 50 61 74 68 29 3b 0a 20 20 20 20 20 20 20 20  zPath);.        
3a30: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52  return SQLITE_ER
3a40: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
3a50: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
3a60: 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63  _OK;.    }.    c
3a70: 6c 6f 73 65 64 69 72 28 70 4c 76 6c 2d 3e 70 44  losedir(pLvl->pD
3a80: 69 72 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  ir);.    sqlite3
3a90: 5f 66 72 65 65 28 70 4c 76 6c 2d 3e 7a 44 69 72  _free(pLvl->zDir
3aa0: 29 3b 0a 20 20 20 20 70 4c 76 6c 2d 3e 70 44 69  );.    pLvl->pDi
3ab0: 72 20 3d 20 30 3b 0a 20 20 20 20 70 4c 76 6c 2d  r = 0;.    pLvl-
3ac0: 3e 7a 44 69 72 20 3d 20 30 3b 0a 20 20 20 20 70  >zDir = 0;.    p
3ad0: 43 75 72 2d 3e 69 4c 76 6c 2d 2d 3b 0a 20 20 7d  Cur->iLvl--;.  }
3ae0: 0a 0a 20 20 2f 2a 20 45 4f 46 20 2a 2f 0a 20 20  ..  /* EOF */.  
3af0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 43 75  sqlite3_free(pCu
3b00: 72 2d 3e 7a 50 61 74 68 29 3b 0a 20 20 70 43 75  r->zPath);.  pCu
3b10: 72 2d 3e 7a 50 61 74 68 20 3d 20 30 3b 0a 20 20  r->zPath = 0;.  
3b20: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
3b30: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
3b40: 6e 20 76 61 6c 75 65 73 20 6f 66 20 63 6f 6c 75  n values of colu
3b50: 6d 6e 73 20 66 6f 72 20 74 68 65 20 72 6f 77 20  mns for the row 
3b60: 61 74 20 77 68 69 63 68 20 74 68 65 20 73 65 72  at which the ser
3b70: 69 65 73 5f 63 75 72 73 6f 72 0a 2a 2a 20 69 73  ies_cursor.** is
3b80: 20 63 75 72 72 65 6e 74 6c 79 20 70 6f 69 6e 74   currently point
3b90: 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ing..*/.static i
3ba0: 6e 74 20 66 73 64 69 72 43 6f 6c 75 6d 6e 28 0a  nt fsdirColumn(.
3bb0: 20 20 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63    sqlite3_vtab_c
3bc0: 75 72 73 6f 72 20 2a 63 75 72 2c 20 20 20 2f 2a  ursor *cur,   /*
3bd0: 20 54 68 65 20 63 75 72 73 6f 72 20 2a 2f 0a 20   The cursor */. 
3be0: 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74   sqlite3_context
3bf0: 20 2a 63 74 78 2c 20 20 20 20 20 20 20 2f 2a 20   *ctx,       /* 
3c00: 46 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74  First argument t
3c10: 6f 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74  o sqlite3_result
3c20: 5f 2e 2e 2e 28 29 20 2a 2f 0a 20 20 69 6e 74 20  _...() */.  int 
3c30: 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  i               
3c40: 20 20 20 20 20 20 20 20 2f 2a 20 57 68 69 63 68          /* Which
3c50: 20 63 6f 6c 75 6d 6e 20 74 6f 20 72 65 74 75 72   column to retur
3c60: 6e 20 2a 2f 0a 29 7b 0a 20 20 66 73 64 69 72 5f  n */.){.  fsdir_
3c70: 63 75 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28  cursor *pCur = (
3c80: 66 73 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75  fsdir_cursor*)cu
3c90: 72 3b 0a 20 20 73 77 69 74 63 68 28 20 69 20 29  r;.  switch( i )
3ca0: 7b 0a 20 20 20 20 63 61 73 65 20 30 3a 20 7b 20  {.    case 0: { 
3cb0: 2f 2a 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 20  /* name */.     
3cc0: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
3cd0: 74 65 78 74 28 63 74 78 2c 20 26 70 43 75 72 2d  text(ctx, &pCur-
3ce0: 3e 7a 50 61 74 68 5b 70 43 75 72 2d 3e 6e 42 61  >zPath[pCur->nBa
3cf0: 73 65 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f  se], -1, SQLITE_
3d00: 54 52 41 4e 53 49 45 4e 54 29 3b 0a 20 20 20 20  TRANSIENT);.    
3d10: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a    break;.    }..
3d20: 20 20 20 20 63 61 73 65 20 31 3a 20 2f 2a 20 6d      case 1: /* m
3d30: 6f 64 65 20 2a 2f 0a 20 20 20 20 20 20 73 71 6c  ode */.      sql
3d40: 69 74 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36  ite3_result_int6
3d50: 34 28 63 74 78 2c 20 70 43 75 72 2d 3e 73 53 74  4(ctx, pCur->sSt
3d60: 61 74 2e 73 74 5f 6d 6f 64 65 29 3b 0a 20 20 20  at.st_mode);.   
3d70: 20 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20 63     break;..    c
3d80: 61 73 65 20 32 3a 20 2f 2a 20 6d 74 69 6d 65 20  ase 2: /* mtime 
3d90: 2a 2f 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33  */.      sqlite3
3da0: 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 74  _result_int64(ct
3db0: 78 2c 20 70 43 75 72 2d 3e 73 53 74 61 74 2e 73  x, pCur->sStat.s
3dc0: 74 5f 6d 74 69 6d 65 29 3b 0a 20 20 20 20 20 20  t_mtime);.      
3dd0: 62 72 65 61 6b 3b 0a 0a 20 20 20 20 63 61 73 65  break;..    case
3de0: 20 33 3a 20 7b 20 2f 2a 20 64 61 74 61 20 2a 2f   3: { /* data */
3df0: 0a 20 20 20 20 20 20 6d 6f 64 65 5f 74 20 6d 20  .      mode_t m 
3e00: 3d 20 70 43 75 72 2d 3e 73 53 74 61 74 2e 73 74  = pCur->sStat.st
3e10: 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 69 66 28  _mode;.      if(
3e20: 20 53 5f 49 53 44 49 52 28 6d 29 20 29 7b 0a 20   S_ISDIR(m) ){. 
3e30: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72         sqlite3_r
3e40: 65 73 75 6c 74 5f 6e 75 6c 6c 28 63 74 78 29 3b  esult_null(ctx);
3e50: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 5f 57  .#if !defined(_W
3e60: 49 4e 33 32 29 20 26 26 20 21 64 65 66 69 6e 65  IN32) && !define
3e70: 64 28 57 49 4e 33 32 29 0a 20 20 20 20 20 20 7d  d(WIN32).      }
3e80: 65 6c 73 65 20 69 66 28 20 53 5f 49 53 4c 4e 4b  else if( S_ISLNK
3e90: 28 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20 63  (m) ){.        c
3ea0: 68 61 72 20 61 53 74 61 74 69 63 5b 36 34 5d 3b  har aStatic[64];
3eb0: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 61  .        char *a
3ec0: 42 75 66 20 3d 20 61 53 74 61 74 69 63 3b 0a 20  Buf = aStatic;. 
3ed0: 20 20 20 20 20 20 20 69 6e 74 20 6e 42 75 66 20         int nBuf 
3ee0: 3d 20 36 34 3b 0a 20 20 20 20 20 20 20 20 69 6e  = 64;.        in
3ef0: 74 20 6e 3b 0a 0a 20 20 20 20 20 20 20 20 77 68  t n;..        wh
3f00: 69 6c 65 28 20 31 20 29 7b 0a 20 20 20 20 20 20  ile( 1 ){.      
3f10: 20 20 20 20 6e 20 3d 20 72 65 61 64 6c 69 6e 6b      n = readlink
3f20: 28 70 43 75 72 2d 3e 7a 50 61 74 68 2c 20 61 42  (pCur->zPath, aB
3f30: 75 66 2c 20 6e 42 75 66 29 3b 0a 20 20 20 20 20  uf, nBuf);.     
3f40: 20 20 20 20 20 69 66 28 20 6e 3c 6e 42 75 66 20       if( n<nBuf 
3f50: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20  ) break;.       
3f60: 20 20 20 69 66 28 20 61 42 75 66 21 3d 61 53 74     if( aBuf!=aSt
3f70: 61 74 69 63 20 29 20 73 71 6c 69 74 65 33 5f 66  atic ) sqlite3_f
3f80: 72 65 65 28 61 42 75 66 29 3b 0a 20 20 20 20 20  ree(aBuf);.     
3f90: 20 20 20 20 20 6e 42 75 66 20 3d 20 6e 42 75 66       nBuf = nBuf
3fa0: 2a 32 3b 0a 20 20 20 20 20 20 20 20 20 20 61 42  *2;.          aB
3fb0: 75 66 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c  uf = sqlite3_mal
3fc0: 6c 6f 63 28 6e 42 75 66 29 3b 0a 20 20 20 20 20  loc(nBuf);.     
3fd0: 20 20 20 20 20 69 66 28 20 61 42 75 66 3d 3d 30       if( aBuf==0
3fe0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20   ){.            
3ff0: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65  sqlite3_result_e
4000: 72 72 6f 72 5f 6e 6f 6d 65 6d 28 63 74 78 29 3b  rror_nomem(ctx);
4010: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
4020: 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d  urn SQLITE_NOMEM
4030: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
4040: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20        }..       
4050: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
4060: 74 65 78 74 28 63 74 78 2c 20 61 42 75 66 2c 20  text(ctx, aBuf, 
4070: 6e 2c 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49  n, SQLITE_TRANSI
4080: 45 4e 54 29 3b 0a 20 20 20 20 20 20 20 20 69 66  ENT);.        if
4090: 28 20 61 42 75 66 21 3d 61 53 74 61 74 69 63 20  ( aBuf!=aStatic 
40a0: 29 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 61  ) sqlite3_free(a
40b0: 42 75 66 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20  Buf);.#endif.   
40c0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
40d0: 20 20 72 65 61 64 46 69 6c 65 43 6f 6e 74 65 6e    readFileConten
40e0: 74 73 28 63 74 78 2c 20 70 43 75 72 2d 3e 7a 50  ts(ctx, pCur->zP
40f0: 61 74 68 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  ath);.      }.  
4100: 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e    }.  }.  return
4110: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f   SQLITE_OK;.}../
4120: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
4130: 72 6f 77 69 64 20 66 6f 72 20 74 68 65 20 63 75  rowid for the cu
4140: 72 72 65 6e 74 20 72 6f 77 2e 20 49 6e 20 74 68  rrent row. In th
4150: 69 73 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  is implementatio
4160: 6e 2c 20 74 68 65 0a 2a 2a 20 66 69 72 73 74 20  n, the.** first 
4170: 72 6f 77 20 72 65 74 75 72 6e 65 64 20 69 73 20  row returned is 
4180: 61 73 73 69 67 6e 65 64 20 72 6f 77 69 64 20 76  assigned rowid v
4190: 61 6c 75 65 20 31 2c 20 61 6e 64 20 65 61 63 68  alue 1, and each
41a0: 20 73 75 62 73 65 71 75 65 6e 74 0a 2a 2a 20 72   subsequent.** r
41b0: 6f 77 20 61 20 76 61 6c 75 65 20 31 20 6d 6f 72  ow a value 1 mor
41c0: 65 20 74 68 61 6e 20 74 68 61 74 20 6f 66 20 74  e than that of t
41d0: 68 65 20 70 72 65 76 69 6f 75 73 2e 0a 2a 2f 0a  he previous..*/.
41e0: 73 74 61 74 69 63 20 69 6e 74 20 66 73 64 69 72  static int fsdir
41f0: 52 6f 77 69 64 28 73 71 6c 69 74 65 33 5f 76 74  Rowid(sqlite3_vt
4200: 61 62 5f 63 75 72 73 6f 72 20 2a 63 75 72 2c 20  ab_cursor *cur, 
4210: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70 52  sqlite_int64 *pR
4220: 6f 77 69 64 29 7b 0a 20 20 66 73 64 69 72 5f 63  owid){.  fsdir_c
4230: 75 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 66  ursor *pCur = (f
4240: 73 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75 72  sdir_cursor*)cur
4250: 3b 0a 20 20 2a 70 52 6f 77 69 64 20 3d 20 70 43  ;.  *pRowid = pC
4260: 75 72 2d 3e 69 52 6f 77 69 64 3b 0a 20 20 72 65  ur->iRowid;.  re
4270: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
4280: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
4290: 54 52 55 45 20 69 66 20 74 68 65 20 63 75 72 73  TRUE if the curs
42a0: 6f 72 20 68 61 73 20 62 65 65 6e 20 6d 6f 76 65  or has been move
42b0: 64 20 6f 66 66 20 6f 66 20 74 68 65 20 6c 61 73  d off of the las
42c0: 74 0a 2a 2a 20 72 6f 77 20 6f 66 20 6f 75 74 70  t.** row of outp
42d0: 75 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ut..*/.static in
42e0: 74 20 66 73 64 69 72 45 6f 66 28 73 71 6c 69 74  t fsdirEof(sqlit
42f0: 65 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a  e3_vtab_cursor *
4300: 63 75 72 29 7b 0a 20 20 66 73 64 69 72 5f 63 75  cur){.  fsdir_cu
4310: 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 66 73  rsor *pCur = (fs
4320: 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b  dir_cursor*)cur;
4330: 0a 20 20 72 65 74 75 72 6e 20 28 70 43 75 72 2d  .  return (pCur-
4340: 3e 7a 50 61 74 68 3d 3d 30 29 3b 0a 7d 0a 0a 2f  >zPath==0);.}../
4350: 2a 0a 2a 2a 20 78 46 69 6c 74 65 72 20 63 61 6c  *.** xFilter cal
4360: 6c 62 61 63 6b 2e 0a 2a 2f 0a 73 74 61 74 69 63  lback..*/.static
4370: 20 69 6e 74 20 66 73 64 69 72 46 69 6c 74 65 72   int fsdirFilter
4380: 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 74 61 62  (.  sqlite3_vtab
4390: 5f 63 75 72 73 6f 72 20 2a 63 75 72 2c 20 0a 20  _cursor *cur, . 
43a0: 20 69 6e 74 20 69 64 78 4e 75 6d 2c 20 63 6f 6e   int idxNum, con
43b0: 73 74 20 63 68 61 72 20 2a 69 64 78 53 74 72 2c  st char *idxStr,
43c0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c  .  int argc, sql
43d0: 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67  ite3_value **arg
43e0: 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61  v.){.  const cha
43f0: 72 20 2a 7a 44 69 72 20 3d 20 30 3b 0a 20 20 66  r *zDir = 0;.  f
4400: 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70 43 75  sdir_cursor *pCu
4410: 72 20 3d 20 28 66 73 64 69 72 5f 63 75 72 73 6f  r = (fsdir_curso
4420: 72 2a 29 63 75 72 3b 0a 0a 20 20 66 73 64 69 72  r*)cur;..  fsdir
4430: 52 65 73 65 74 43 75 72 73 6f 72 28 70 43 75 72  ResetCursor(pCur
4440: 29 3b 0a 0a 20 20 69 66 28 20 69 64 78 4e 75 6d  );..  if( idxNum
4450: 3d 3d 30 20 29 7b 0a 20 20 20 20 66 73 64 69 72  ==0 ){.    fsdir
4460: 53 65 74 45 72 72 6d 73 67 28 70 43 75 72 2c 20  SetErrmsg(pCur, 
4470: 22 74 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20  "table function 
4480: 66 73 64 69 72 20 72 65 71 75 69 72 65 73 20 61  fsdir requires a
4490: 6e 20 61 72 67 75 6d 65 6e 74 22 29 3b 0a 20 20  n argument");.  
44a0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
44b0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 61 73  ERROR;.  }..  as
44c0: 73 65 72 74 28 20 61 72 67 63 3d 3d 69 64 78 4e  sert( argc==idxN
44d0: 75 6d 20 26 26 20 28 61 72 67 63 3d 3d 31 20 7c  um && (argc==1 |
44e0: 7c 20 61 72 67 63 3d 3d 32 29 20 29 3b 0a 20 20  | argc==2) );.  
44f0: 7a 44 69 72 20 3d 20 28 63 6f 6e 73 74 20 63 68  zDir = (const ch
4500: 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75  ar*)sqlite3_valu
4510: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b  e_text(argv[0]);
4520: 0a 20 20 69 66 28 20 7a 44 69 72 3d 3d 30 20 29  .  if( zDir==0 )
4530: 7b 0a 20 20 20 20 66 73 64 69 72 53 65 74 45 72  {.    fsdirSetEr
4540: 72 6d 73 67 28 70 43 75 72 2c 20 22 74 61 62 6c  rmsg(pCur, "tabl
4550: 65 20 66 75 6e 63 74 69 6f 6e 20 66 73 64 69 72  e function fsdir
4560: 20 72 65 71 75 69 72 65 73 20 61 20 6e 6f 6e 2d   requires a non-
4570: 4e 55 4c 4c 20 61 72 67 75 6d 65 6e 74 22 29 3b  NULL argument");
4580: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
4590: 54 45 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  TE_ERROR;.  }.  
45a0: 69 66 28 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20  if( argc==2 ){. 
45b0: 20 20 20 70 43 75 72 2d 3e 7a 42 61 73 65 20 3d     pCur->zBase =
45c0: 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 73 71   (const char*)sq
45d0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
45e0: 28 61 72 67 76 5b 31 5d 29 3b 0a 20 20 7d 0a 20  (argv[1]);.  }. 
45f0: 20 69 66 28 20 70 43 75 72 2d 3e 7a 42 61 73 65   if( pCur->zBase
4600: 20 29 7b 0a 20 20 20 20 70 43 75 72 2d 3e 6e 42   ){.    pCur->nB
4610: 61 73 65 20 3d 20 28 69 6e 74 29 73 74 72 6c 65  ase = (int)strle
4620: 6e 28 70 43 75 72 2d 3e 7a 42 61 73 65 29 2b 31  n(pCur->zBase)+1
4630: 3b 0a 20 20 20 20 70 43 75 72 2d 3e 7a 50 61 74  ;.    pCur->zPat
4640: 68 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69  h = sqlite3_mpri
4650: 6e 74 66 28 22 25 73 2f 25 73 22 2c 20 70 43 75  ntf("%s/%s", pCu
4660: 72 2d 3e 7a 42 61 73 65 2c 20 7a 44 69 72 29 3b  r->zBase, zDir);
4670: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 70 43  .  }else{.    pC
4680: 75 72 2d 3e 7a 50 61 74 68 20 3d 20 73 71 6c 69  ur->zPath = sqli
4690: 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22  te3_mprintf("%s"
46a0: 2c 20 7a 44 69 72 29 3b 0a 20 20 7d 0a 0a 20 20  , zDir);.  }..  
46b0: 69 66 28 20 70 43 75 72 2d 3e 7a 50 61 74 68 3d  if( pCur->zPath=
46c0: 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  =0 ){.    return
46d0: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20   SQLITE_NOMEM;. 
46e0: 20 7d 0a 20 20 69 66 28 20 6c 73 74 61 74 28 70   }.  if( lstat(p
46f0: 43 75 72 2d 3e 7a 50 61 74 68 2c 20 26 70 43 75  Cur->zPath, &pCu
4700: 72 2d 3e 73 53 74 61 74 29 20 29 7b 0a 20 20 20  r->sStat) ){.   
4710: 20 66 73 64 69 72 53 65 74 45 72 72 6d 73 67 28   fsdirSetErrmsg(
4720: 70 43 75 72 2c 20 22 63 61 6e 6e 6f 74 20 73 74  pCur, "cannot st
4730: 61 74 20 66 69 6c 65 3a 20 25 73 22 2c 20 70 43  at file: %s", pC
4740: 75 72 2d 3e 7a 50 61 74 68 29 3b 0a 20 20 20 20  ur->zPath);.    
4750: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52  return SQLITE_ER
4760: 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75  ROR;.  }..  retu
4770: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a  rn SQLITE_OK;.}.
4780: 0a 2f 2a 0a 2a 2a 20 53 51 4c 69 74 65 20 77 69  ./*.** SQLite wi
4790: 6c 6c 20 69 6e 76 6f 6b 65 20 74 68 69 73 20 6d  ll invoke this m
47a0: 65 74 68 6f 64 20 6f 6e 65 20 6f 72 20 6d 6f 72  ethod one or mor
47b0: 65 20 74 69 6d 65 73 20 77 68 69 6c 65 20 70 6c  e times while pl
47c0: 61 6e 6e 69 6e 67 20 61 20 71 75 65 72 79 0a 2a  anning a query.*
47d0: 2a 20 74 68 61 74 20 75 73 65 73 20 74 68 65 20  * that uses the 
47e0: 67 65 6e 65 72 61 74 65 5f 73 65 72 69 65 73 20  generate_series 
47f0: 76 69 72 74 75 61 6c 20 74 61 62 6c 65 2e 20 20  virtual table.  
4800: 54 68 69 73 20 72 6f 75 74 69 6e 65 20 6e 65 65  This routine nee
4810: 64 73 20 74 6f 20 63 72 65 61 74 65 0a 2a 2a 20  ds to create.** 
4820: 61 20 71 75 65 72 79 20 70 6c 61 6e 20 66 6f 72  a query plan for
4830: 20 65 61 63 68 20 69 6e 76 6f 63 61 74 69 6f 6e   each invocation
4840: 20 61 6e 64 20 63 6f 6d 70 75 74 65 20 61 6e 20   and compute an 
4850: 65 73 74 69 6d 61 74 65 64 20 63 6f 73 74 20 66  estimated cost f
4860: 6f 72 20 74 68 61 74 0a 2a 2a 20 70 6c 61 6e 2e  or that.** plan.
4870: 0a 2a 2a 0a 2a 2a 20 49 6e 20 74 68 69 73 20 69  .**.** In this i
4880: 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 69 64  mplementation id
4890: 78 4e 75 6d 20 69 73 20 75 73 65 64 20 74 6f 20  xNum is used to 
48a0: 72 65 70 72 65 73 65 6e 74 20 74 68 65 0a 2a 2a  represent the.**
48b0: 20 71 75 65 72 79 20 70 6c 61 6e 2e 20 20 69 64   query plan.  id
48c0: 78 53 74 72 20 69 73 20 75 6e 75 73 65 64 2e 0a  xStr is unused..
48d0: 2a 2a 0a 2a 2a 20 54 68 65 20 71 75 65 72 79 20  **.** The query 
48e0: 70 6c 61 6e 20 69 73 20 72 65 70 72 65 73 65 6e  plan is represen
48f0: 74 65 64 20 62 79 20 62 69 74 73 20 69 6e 20 69  ted by bits in i
4900: 64 78 4e 75 6d 3a 0a 2a 2a 0a 2a 2a 20 20 28 31  dxNum:.**.**  (1
4910: 29 20 20 73 74 61 72 74 20 3d 20 24 76 61 6c 75  )  start = $valu
4920: 65 20 20 2d 2d 20 63 6f 6e 73 74 72 61 69 6e 74  e  -- constraint
4930: 20 65 78 69 73 74 73 0a 2a 2a 20 20 28 32 29 20   exists.**  (2) 
4940: 20 73 74 6f 70 20 3d 20 24 76 61 6c 75 65 20 20   stop = $value  
4950: 20 2d 2d 20 63 6f 6e 73 74 72 61 69 6e 74 20 65   -- constraint e
4960: 78 69 73 74 73 0a 2a 2a 20 20 28 34 29 20 20 73  xists.**  (4)  s
4970: 74 65 70 20 3d 20 24 76 61 6c 75 65 20 20 20 2d  tep = $value   -
4980: 2d 20 63 6f 6e 73 74 72 61 69 6e 74 20 65 78 69  - constraint exi
4990: 73 74 73 0a 2a 2a 20 20 28 38 29 20 20 6f 75 74  sts.**  (8)  out
49a0: 70 75 74 20 69 6e 20 64 65 73 63 65 6e 64 69 6e  put in descendin
49b0: 67 20 6f 72 64 65 72 0a 2a 2f 0a 73 74 61 74 69  g order.*/.stati
49c0: 63 20 69 6e 74 20 66 73 64 69 72 42 65 73 74 49  c int fsdirBestI
49d0: 6e 64 65 78 28 0a 20 20 73 71 6c 69 74 65 33 5f  ndex(.  sqlite3_
49e0: 76 74 61 62 20 2a 74 61 62 2c 0a 20 20 73 71 6c  vtab *tab,.  sql
49f0: 69 74 65 33 5f 69 6e 64 65 78 5f 69 6e 66 6f 20  ite3_index_info 
4a00: 2a 70 49 64 78 49 6e 66 6f 0a 29 7b 0a 20 20 69  *pIdxInfo.){.  i
4a10: 6e 74 20 69 3b 20 20 20 20 20 20 20 20 20 20 20  nt i;           
4a20: 20 20 20 20 20 20 2f 2a 20 4c 6f 6f 70 20 6f 76        /* Loop ov
4a30: 65 72 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 2a  er constraints *
4a40: 2f 0a 20 20 69 6e 74 20 69 64 78 34 20 3d 20 2d  /.  int idx4 = -
4a50: 31 3b 0a 20 20 69 6e 74 20 69 64 78 35 20 3d 20  1;.  int idx5 = 
4a60: 2d 31 3b 0a 0a 20 20 63 6f 6e 73 74 20 73 74 72  -1;..  const str
4a70: 75 63 74 20 73 71 6c 69 74 65 33 5f 69 6e 64 65  uct sqlite3_inde
4a80: 78 5f 63 6f 6e 73 74 72 61 69 6e 74 20 2a 70 43  x_constraint *pC
4a90: 6f 6e 73 74 72 61 69 6e 74 3b 0a 20 20 70 43 6f  onstraint;.  pCo
4aa0: 6e 73 74 72 61 69 6e 74 20 3d 20 70 49 64 78 49  nstraint = pIdxI
4ab0: 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74  nfo->aConstraint
4ac0: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 70  ;.  for(i=0; i<p
4ad0: 49 64 78 49 6e 66 6f 2d 3e 6e 43 6f 6e 73 74 72  IdxInfo->nConstr
4ae0: 61 69 6e 74 3b 20 69 2b 2b 2c 20 70 43 6f 6e 73  aint; i++, pCons
4af0: 74 72 61 69 6e 74 2b 2b 29 7b 0a 20 20 20 20 69  traint++){.    i
4b00: 66 28 20 70 43 6f 6e 73 74 72 61 69 6e 74 2d 3e  f( pConstraint->
4b10: 75 73 61 62 6c 65 3d 3d 30 20 29 20 63 6f 6e 74  usable==0 ) cont
4b20: 69 6e 75 65 3b 0a 20 20 20 20 69 66 28 20 70 43  inue;.    if( pC
4b30: 6f 6e 73 74 72 61 69 6e 74 2d 3e 6f 70 21 3d 53  onstraint->op!=S
4b40: 51 4c 49 54 45 5f 49 4e 44 45 58 5f 43 4f 4e 53  QLITE_INDEX_CONS
4b50: 54 52 41 49 4e 54 5f 45 51 20 29 20 63 6f 6e 74  TRAINT_EQ ) cont
4b60: 69 6e 75 65 3b 0a 20 20 20 20 69 66 28 20 70 43  inue;.    if( pC
4b70: 6f 6e 73 74 72 61 69 6e 74 2d 3e 69 43 6f 6c 75  onstraint->iColu
4b80: 6d 6e 3d 3d 34 20 29 20 69 64 78 34 20 3d 20 69  mn==4 ) idx4 = i
4b90: 3b 0a 20 20 20 20 69 66 28 20 70 43 6f 6e 73 74  ;.    if( pConst
4ba0: 72 61 69 6e 74 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d  raint->iColumn==
4bb0: 35 20 29 20 69 64 78 35 20 3d 20 69 3b 0a 20 20  5 ) idx5 = i;.  
4bc0: 7d 0a 0a 20 20 69 66 28 20 69 64 78 34 3c 30 20  }..  if( idx4<0 
4bd0: 29 7b 0a 20 20 20 20 70 49 64 78 49 6e 66 6f 2d  ){.    pIdxInfo-
4be0: 3e 69 64 78 4e 75 6d 20 3d 20 30 3b 0a 20 20 20  >idxNum = 0;.   
4bf0: 20 70 49 64 78 49 6e 66 6f 2d 3e 65 73 74 69 6d   pIdxInfo->estim
4c00: 61 74 65 64 43 6f 73 74 20 3d 20 28 64 6f 75 62  atedCost = (doub
4c10: 6c 65 29 28 28 28 73 71 6c 69 74 65 33 5f 69 6e  le)(((sqlite3_in
4c20: 74 36 34 29 31 29 20 3c 3c 20 35 30 29 3b 0a 20  t64)1) << 50);. 
4c30: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 70 49 64 78   }else{.    pIdx
4c40: 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e  Info->aConstrain
4c50: 74 55 73 61 67 65 5b 69 64 78 34 5d 2e 6f 6d 69  tUsage[idx4].omi
4c60: 74 20 3d 20 31 3b 0a 20 20 20 20 70 49 64 78 49  t = 1;.    pIdxI
4c70: 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61 69 6e 74  nfo->aConstraint
4c80: 55 73 61 67 65 5b 69 64 78 34 5d 2e 61 72 67 76  Usage[idx4].argv
4c90: 49 6e 64 65 78 20 3d 20 31 3b 0a 20 20 20 20 69  Index = 1;.    i
4ca0: 66 28 20 69 64 78 35 3e 3d 30 20 29 7b 0a 20 20  f( idx5>=0 ){.  
4cb0: 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 61 43      pIdxInfo->aC
4cc0: 6f 6e 73 74 72 61 69 6e 74 55 73 61 67 65 5b 69  onstraintUsage[i
4cd0: 64 78 35 5d 2e 6f 6d 69 74 20 3d 20 31 3b 0a 20  dx5].omit = 1;. 
4ce0: 20 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 61       pIdxInfo->a
4cf0: 43 6f 6e 73 74 72 61 69 6e 74 55 73 61 67 65 5b  ConstraintUsage[
4d00: 69 64 78 35 5d 2e 61 72 67 76 49 6e 64 65 78 20  idx5].argvIndex 
4d10: 3d 20 32 3b 0a 20 20 20 20 20 20 70 49 64 78 49  = 2;.      pIdxI
4d20: 6e 66 6f 2d 3e 69 64 78 4e 75 6d 20 3d 20 32 3b  nfo->idxNum = 2;
4d30: 0a 20 20 20 20 20 20 70 49 64 78 49 6e 66 6f 2d  .      pIdxInfo-
4d40: 3e 65 73 74 69 6d 61 74 65 64 43 6f 73 74 20 3d  >estimatedCost =
4d50: 20 31 30 2e 30 3b 0a 20 20 20 20 7d 65 6c 73 65   10.0;.    }else
4d60: 7b 0a 20 20 20 20 20 20 70 49 64 78 49 6e 66 6f  {.      pIdxInfo
4d70: 2d 3e 69 64 78 4e 75 6d 20 3d 20 31 3b 0a 20 20  ->idxNum = 1;.  
4d80: 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 65 73      pIdxInfo->es
4d90: 74 69 6d 61 74 65 64 43 6f 73 74 20 3d 20 31 30  timatedCost = 10
4da0: 30 2e 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  0.0;.    }.  }..
4db0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
4dc0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 67  OK;.}../*.** Reg
4dd0: 69 73 74 65 72 20 74 68 65 20 22 66 73 64 69 72  ister the "fsdir
4de0: 22 20 76 69 72 74 75 61 6c 20 74 61 62 6c 65 2e  " virtual table.
4df0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 66  .*/.static int f
4e00: 73 64 69 72 52 65 67 69 73 74 65 72 28 73 71 6c  sdirRegister(sql
4e10: 69 74 65 33 20 2a 64 62 29 7b 0a 20 20 73 74 61  ite3 *db){.  sta
4e20: 74 69 63 20 73 71 6c 69 74 65 33 5f 6d 6f 64 75  tic sqlite3_modu
4e30: 6c 65 20 66 73 64 69 72 4d 6f 64 75 6c 65 20 3d  le fsdirModule =
4e40: 20 7b 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20   {.    0,       
4e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e60: 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f    /* iVersion */
4e70: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
4e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e90: 2f 2a 20 78 43 72 65 61 74 65 20 2a 2f 0a 20 20  /* xCreate */.  
4ea0: 20 20 66 73 64 69 72 43 6f 6e 6e 65 63 74 2c 20    fsdirConnect, 
4eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
4ec0: 78 43 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 20 20  xConnect */.    
4ed0: 66 73 64 69 72 42 65 73 74 49 6e 64 65 78 2c 20  fsdirBestIndex, 
4ee0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 42             /* xB
4ef0: 65 73 74 49 6e 64 65 78 20 2a 2f 0a 20 20 20 20  estIndex */.    
4f00: 66 73 64 69 72 44 69 73 63 6f 6e 6e 65 63 74 2c  fsdirDisconnect,
4f10: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44             /* xD
4f20: 69 73 63 6f 6e 6e 65 63 74 20 2a 2f 0a 20 20 20  isconnect */.   
4f30: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   0,             
4f40: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
4f50: 44 65 73 74 72 6f 79 20 2a 2f 0a 20 20 20 20 66  Destroy */.    f
4f60: 73 64 69 72 4f 70 65 6e 2c 20 20 20 20 20 20 20  sdirOpen,       
4f70: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 4f 70            /* xOp
4f80: 65 6e 20 2d 20 6f 70 65 6e 20 61 20 63 75 72 73  en - open a curs
4f90: 6f 72 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 43  or */.    fsdirC
4fa0: 6c 6f 73 65 2c 20 20 20 20 20 20 20 20 20 20 20  lose,           
4fb0: 20 20 20 20 20 2f 2a 20 78 43 6c 6f 73 65 20 2d       /* xClose -
4fc0: 20 63 6c 6f 73 65 20 61 20 63 75 72 73 6f 72 20   close a cursor 
4fd0: 2a 2f 0a 20 20 20 20 66 73 64 69 72 46 69 6c 74  */.    fsdirFilt
4fe0: 65 72 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  er,             
4ff0: 20 20 2f 2a 20 78 46 69 6c 74 65 72 20 2d 20 63    /* xFilter - c
5000: 6f 6e 66 69 67 75 72 65 20 73 63 61 6e 20 63 6f  onfigure scan co
5010: 6e 73 74 72 61 69 6e 74 73 20 2a 2f 0a 20 20 20  nstraints */.   
5020: 20 66 73 64 69 72 4e 65 78 74 2c 20 20 20 20 20   fsdirNext,     
5030: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
5040: 4e 65 78 74 20 2d 20 61 64 76 61 6e 63 65 20 61  Next - advance a
5050: 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20 20 20 66   cursor */.    f
5060: 73 64 69 72 45 6f 66 2c 20 20 20 20 20 20 20 20  sdirEof,        
5070: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 45 6f            /* xEo
5080: 66 20 2d 20 63 68 65 63 6b 20 66 6f 72 20 65 6e  f - check for en
5090: 64 20 6f 66 20 73 63 61 6e 20 2a 2f 0a 20 20 20  d of scan */.   
50a0: 20 66 73 64 69 72 43 6f 6c 75 6d 6e 2c 20 20 20   fsdirColumn,   
50b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
50c0: 43 6f 6c 75 6d 6e 20 2d 20 72 65 61 64 20 64 61  Column - read da
50d0: 74 61 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 52  ta */.    fsdirR
50e0: 6f 77 69 64 2c 20 20 20 20 20 20 20 20 20 20 20  owid,           
50f0: 20 20 20 20 20 2f 2a 20 78 52 6f 77 69 64 20 2d       /* xRowid -
5100: 20 72 65 61 64 20 64 61 74 61 20 2a 2f 0a 20 20   read data */.  
5110: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
5120: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
5130: 78 55 70 64 61 74 65 20 2a 2f 0a 20 20 20 20 30  xUpdate */.    0
5140: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
5150: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 42 65            /* xBe
5160: 67 69 6e 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  gin */.    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 2f 2a 20 78 53 79 6e 63 20 2a        /* xSync *
5190: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
51a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
51b0: 20 2f 2a 20 78 43 6f 6d 6d 69 74 20 2a 2f 0a 20   /* xCommit */. 
51c0: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
51d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
51e0: 20 78 52 6f 6c 6c 62 61 63 6b 20 2a 2f 0a 20 20   xRollback */.  
51f0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
5200: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
5210: 78 46 69 6e 64 4d 65 74 68 6f 64 20 2a 2f 0a 20  xFindMethod */. 
5220: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
5230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
5240: 20 78 52 65 6e 61 6d 65 20 2a 2f 0a 20 20 7d 3b   xRename */.  };
5250: 0a 0a 20 20 69 6e 74 20 72 63 20 3d 20 73 71 6c  ..  int rc = sql
5260: 69 74 65 33 5f 63 72 65 61 74 65 5f 6d 6f 64 75  ite3_create_modu
5270: 6c 65 28 64 62 2c 20 22 66 73 64 69 72 22 2c 20  le(db, "fsdir", 
5280: 26 66 73 64 69 72 4d 6f 64 75 6c 65 2c 20 30 29  &fsdirModule, 0)
5290: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
52a0: 0a 23 65 6c 73 65 20 20 20 20 20 20 20 20 20 2f  .#else         /
52b0: 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 49  * SQLITE_OMIT_VI
52c0: 52 54 55 41 4c 54 41 42 4c 45 20 2a 2f 0a 23 20  RTUALTABLE */.# 
52d0: 64 65 66 69 6e 65 20 66 73 64 69 72 52 65 67 69  define fsdirRegi
52e0: 73 74 65 72 28 78 29 20 53 51 4c 49 54 45 5f 4f  ster(x) SQLITE_O
52f0: 4b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  K.#endif..#ifdef
5300: 20 5f 57 49 4e 33 32 0a 5f 5f 64 65 63 6c 73 70   _WIN32.__declsp
5310: 65 63 28 64 6c 6c 65 78 70 6f 72 74 29 0a 23 65  ec(dllexport).#e
5320: 6e 64 69 66 0a 69 6e 74 20 73 71 6c 69 74 65 33  ndif.int sqlite3
5330: 5f 66 69 6c 65 69 6f 5f 69 6e 69 74 28 0a 20 20  _fileio_init(.  
5340: 73 71 6c 69 74 65 33 20 2a 64 62 2c 20 0a 20 20  sqlite3 *db, .  
5350: 63 68 61 72 20 2a 2a 70 7a 45 72 72 4d 73 67 2c  char **pzErrMsg,
5360: 20 0a 20 20 63 6f 6e 73 74 20 73 71 6c 69 74 65   .  const sqlite
5370: 33 5f 61 70 69 5f 72 6f 75 74 69 6e 65 73 20 2a  3_api_routines *
5380: 70 41 70 69 0a 29 7b 0a 20 20 69 6e 74 20 72 63  pApi.){.  int rc
5390: 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20   = SQLITE_OK;.  
53a0: 53 51 4c 49 54 45 5f 45 58 54 45 4e 53 49 4f 4e  SQLITE_EXTENSION
53b0: 5f 49 4e 49 54 32 28 70 41 70 69 29 3b 0a 20 20  _INIT2(pApi);.  
53c0: 28 76 6f 69 64 29 70 7a 45 72 72 4d 73 67 3b 20  (void)pzErrMsg; 
53d0: 20 2f 2a 20 55 6e 75 73 65 64 20 70 61 72 61 6d   /* Unused param
53e0: 65 74 65 72 20 2a 2f 0a 20 20 72 63 20 3d 20 73  eter */.  rc = s
53f0: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75  qlite3_create_fu
5400: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 72 65 61 64  nction(db, "read
5410: 66 69 6c 65 22 2c 20 31 2c 20 53 51 4c 49 54 45  file", 1, SQLITE
5420: 5f 55 54 46 38 2c 20 30 2c 0a 20 20 20 20 20 20  _UTF8, 0,.      
5430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5440: 20 20 20 20 20 20 20 20 20 72 65 61 64 66 69 6c           readfil
5450: 65 46 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20  eFunc, 0, 0);.  
5460: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
5470: 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71  K ){.    rc = sq
5480: 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e  lite3_create_fun
5490: 63 74 69 6f 6e 28 64 62 2c 20 22 77 72 69 74 65  ction(db, "write
54a0: 66 69 6c 65 22 2c 20 2d 31 2c 20 53 51 4c 49 54  file", -1, SQLIT
54b0: 45 5f 55 54 46 38 2c 20 30 2c 0a 20 20 20 20 20  E_UTF8, 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 20 20 20 20 20 77 72 69 74              writ
54e0: 65 66 69 6c 65 46 75 6e 63 2c 20 30 2c 20 30 29  efileFunc, 0, 0)
54f0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d  ;.  }.  if( rc==
5500: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20  SQLITE_OK ){.   
5510: 20 72 63 20 3d 20 66 73 64 69 72 52 65 67 69 73   rc = fsdirRegis
5520: 74 65 72 28 64 62 29 3b 0a 20 20 7d 0a 20 20 72  ter(db);.  }.  r
5530: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a              eturn rc;.}.