/ Hex Artifact Content
Login

Artifact 4cad3a78bfbbea9b1414b4405fd704ee57fbe2621254b011888dae7b0ba8c513:


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 20 20  de <utime.h>.#  
0d30: 69 6e 63 6c 75 64 65 20 3c 73 79 73 2f 74 69 6d  include <sys/tim
0d40: 65 2e 68 3e 0a 23 65 6c 73 65 0a 23 20 20 69 6e  e.h>.#else.#  in
0d50: 63 6c 75 64 65 20 22 77 69 6e 64 6f 77 73 2e 68  clude "windows.h
0d60: 22 0a 23 20 20 69 6e 63 6c 75 64 65 20 3c 69 6f  ".#  include <io
0d70: 2e 68 3e 0a 23 20 20 69 6e 63 6c 75 64 65 20 3c  .h>.#  include <
0d80: 64 69 72 65 63 74 2e 68 3e 0a 23 20 20 69 6e 63  direct.h>.#  inc
0d90: 6c 75 64 65 20 22 74 65 73 74 5f 77 69 6e 64 69  lude "test_windi
0da0: 72 65 6e 74 2e 68 22 0a 23 20 20 64 65 66 69 6e  rent.h".#  defin
0db0: 65 20 64 69 72 65 6e 74 20 44 49 52 45 4e 54 0a  e dirent DIRENT.
0dc0: 23 20 20 69 66 6e 64 65 66 20 73 74 61 74 0a 23  #  ifndef stat.#
0dd0: 20 20 20 20 64 65 66 69 6e 65 20 73 74 61 74 20      define stat 
0de0: 5f 73 74 61 74 0a 23 20 20 65 6e 64 69 66 0a 23  _stat.#  endif.#
0df0: 20 20 64 65 66 69 6e 65 20 6d 6b 64 69 72 28 70    define mkdir(p
0e00: 61 74 68 2c 6d 6f 64 65 29 20 5f 6d 6b 64 69 72  ath,mode) _mkdir
0e10: 28 70 61 74 68 29 0a 23 20 20 64 65 66 69 6e 65  (path).#  define
0e20: 20 6c 73 74 61 74 28 70 61 74 68 2c 62 75 66 29   lstat(path,buf)
0e30: 20 73 74 61 74 28 70 61 74 68 2c 62 75 66 29 0a   stat(path,buf).
0e40: 23 65 6e 64 69 66 0a 23 69 6e 63 6c 75 64 65 20  #endif.#include 
0e50: 3c 74 69 6d 65 2e 68 3e 0a 23 69 6e 63 6c 75 64  <time.h>.#includ
0e60: 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 0a 0a 23 64  e <errno.h>...#d
0e70: 65 66 69 6e 65 20 46 53 44 49 52 5f 53 43 48 45  efine FSDIR_SCHE
0e80: 4d 41 20 22 28 6e 61 6d 65 2c 6d 6f 64 65 2c 6d  MA "(name,mode,m
0e90: 74 69 6d 65 2c 64 61 74 61 2c 70 61 74 68 20 48  time,data,path H
0ea0: 49 44 44 45 4e 2c 64 69 72 20 48 49 44 44 45 4e  IDDEN,dir HIDDEN
0eb0: 29 22 0a 0a 2f 2a 0a 2a 2a 20 53 65 74 20 74 68  )"../*.** Set th
0ec0: 65 20 72 65 73 75 6c 74 20 73 74 6f 72 65 64 20  e result stored 
0ed0: 62 79 20 63 6f 6e 74 65 78 74 20 63 74 78 20 74  by context ctx t
0ee0: 6f 20 61 20 62 6c 6f 62 20 63 6f 6e 74 61 69 6e  o a blob contain
0ef0: 69 6e 67 20 74 68 65 20 0a 2a 2a 20 63 6f 6e 74  ing the .** cont
0f00: 65 6e 74 73 20 6f 66 20 66 69 6c 65 20 7a 4e 61  ents of file zNa
0f10: 6d 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  me..*/.static vo
0f20: 69 64 20 72 65 61 64 46 69 6c 65 43 6f 6e 74 65  id readFileConte
0f30: 6e 74 73 28 73 71 6c 69 74 65 33 5f 63 6f 6e 74  nts(sqlite3_cont
0f40: 65 78 74 20 2a 63 74 78 2c 20 63 6f 6e 73 74 20  ext *ctx, const 
0f50: 63 68 61 72 20 2a 7a 4e 61 6d 65 29 7b 0a 20 20  char *zName){.  
0f60: 46 49 4c 45 20 2a 69 6e 3b 0a 20 20 6c 6f 6e 67  FILE *in;.  long
0f70: 20 6e 49 6e 3b 0a 20 20 76 6f 69 64 20 2a 70 42   nIn;.  void *pB
0f80: 75 66 3b 0a 0a 20 20 69 6e 20 3d 20 66 6f 70 65  uf;..  in = fope
0f90: 6e 28 7a 4e 61 6d 65 2c 20 22 72 62 22 29 3b 0a  n(zName, "rb");.
0fa0: 20 20 69 66 28 20 69 6e 3d 3d 30 20 29 20 72 65    if( in==0 ) re
0fb0: 74 75 72 6e 3b 0a 20 20 66 73 65 65 6b 28 69 6e  turn;.  fseek(in
0fc0: 2c 20 30 2c 20 53 45 45 4b 5f 45 4e 44 29 3b 0a  , 0, SEEK_END);.
0fd0: 20 20 6e 49 6e 20 3d 20 66 74 65 6c 6c 28 69 6e    nIn = ftell(in
0fe0: 29 3b 0a 20 20 72 65 77 69 6e 64 28 69 6e 29 3b  );.  rewind(in);
0ff0: 0a 20 20 70 42 75 66 20 3d 20 73 71 6c 69 74 65  .  pBuf = sqlite
1000: 33 5f 6d 61 6c 6c 6f 63 28 20 6e 49 6e 20 29 3b  3_malloc( nIn );
1010: 0a 20 20 69 66 28 20 70 42 75 66 20 26 26 20 31  .  if( pBuf && 1
1020: 3d 3d 66 72 65 61 64 28 70 42 75 66 2c 20 6e 49  ==fread(pBuf, nI
1030: 6e 2c 20 31 2c 20 69 6e 29 20 29 7b 0a 20 20 20  n, 1, in) ){.   
1040: 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f   sqlite3_result_
1050: 62 6c 6f 62 28 63 74 78 2c 20 70 42 75 66 2c 20  blob(ctx, pBuf, 
1060: 6e 49 6e 2c 20 73 71 6c 69 74 65 33 5f 66 72 65  nIn, sqlite3_fre
1070: 65 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  e);.  }else{.   
1080: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 42   sqlite3_free(pB
1090: 75 66 29 3b 0a 20 20 7d 0a 20 20 66 63 6c 6f 73  uf);.  }.  fclos
10a0: 65 28 69 6e 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  e(in);.}../*.** 
10b0: 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f  Implementation o
10c0: 66 20 74 68 65 20 22 72 65 61 64 66 69 6c 65 28  f the "readfile(
10d0: 58 29 22 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e  X)" SQL function
10e0: 2e 20 20 54 68 65 20 65 6e 74 69 72 65 20 63 6f  .  The entire co
10f0: 6e 74 65 6e 74 0a 2a 2a 20 6f 66 20 74 68 65 20  ntent.** of the 
1100: 66 69 6c 65 20 6e 61 6d 65 64 20 58 20 69 73 20  file named X is 
1110: 72 65 61 64 20 61 6e 64 20 72 65 74 75 72 6e 65  read and returne
1120: 64 20 61 73 20 61 20 42 4c 4f 42 2e 20 20 4e 55  d as a BLOB.  NU
1130: 4c 4c 20 69 73 20 72 65 74 75 72 6e 65 64 0a 2a  LL is returned.*
1140: 2a 20 69 66 20 74 68 65 20 66 69 6c 65 20 64 6f  * if the file do
1150: 65 73 20 6e 6f 74 20 65 78 69 73 74 20 6f 72 20  es not exist or 
1160: 69 73 20 75 6e 72 65 61 64 61 62 6c 65 2e 0a 2a  is unreadable..*
1170: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 65  /.static void re
1180: 61 64 66 69 6c 65 46 75 6e 63 28 0a 20 20 73 71  adfileFunc(.  sq
1190: 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a 63  lite3_context *c
11a0: 6f 6e 74 65 78 74 2c 0a 20 20 69 6e 74 20 61 72  ontext,.  int ar
11b0: 67 63 2c 0a 20 20 73 71 6c 69 74 65 33 5f 76 61  gc,.  sqlite3_va
11c0: 6c 75 65 20 2a 2a 61 72 67 76 0a 29 7b 0a 20 20  lue **argv.){.  
11d0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d  const char *zNam
11e0: 65 3b 0a 20 20 28 76 6f 69 64 29 28 61 72 67 63  e;.  (void)(argc
11f0: 29 3b 20 20 2f 2a 20 55 6e 75 73 65 64 20 70 61  );  /* Unused pa
1200: 72 61 6d 65 74 65 72 20 2a 2f 0a 20 20 7a 4e 61  rameter */.  zNa
1210: 6d 65 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72  me = (const char
1220: 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f  *)sqlite3_value_
1230: 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20  text(argv[0]);. 
1240: 20 69 66 28 20 7a 4e 61 6d 65 3d 3d 30 20 29 20   if( zName==0 ) 
1250: 72 65 74 75 72 6e 3b 0a 20 20 72 65 61 64 46 69  return;.  readFi
1260: 6c 65 43 6f 6e 74 65 6e 74 73 28 63 6f 6e 74 65  leContents(conte
1270: 78 74 2c 20 7a 4e 61 6d 65 29 3b 0a 7d 0a 0a 2f  xt, zName);.}../
1280: 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 65 72 72  *.** Set the err
1290: 6f 72 20 6d 65 73 73 61 67 65 20 63 6f 6e 74 61  or message conta
12a0: 69 6e 65 64 20 69 6e 20 63 6f 6e 74 65 78 74 20  ined in context 
12b0: 63 74 78 20 74 6f 20 74 68 65 20 72 65 73 75 6c  ctx to the resul
12c0: 74 73 20 6f 66 0a 2a 2a 20 76 70 72 69 6e 74 66  ts of.** vprintf
12d0: 28 7a 46 6d 74 2c 20 2e 2e 2e 29 2e 0a 2a 2f 0a  (zFmt, ...)..*/.
12e0: 73 74 61 74 69 63 20 76 6f 69 64 20 63 74 78 45  static void ctxE
12f0: 72 72 6f 72 4d 73 67 28 73 71 6c 69 74 65 33 5f  rrorMsg(sqlite3_
1300: 63 6f 6e 74 65 78 74 20 2a 63 74 78 2c 20 63 6f  context *ctx, co
1310: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6d 74 2c 20  nst char *zFmt, 
1320: 2e 2e 2e 29 7b 0a 20 20 63 68 61 72 20 2a 7a 4d  ...){.  char *zM
1330: 73 67 20 3d 20 30 3b 0a 20 20 76 61 5f 6c 69 73  sg = 0;.  va_lis
1340: 74 20 61 70 3b 0a 20 20 76 61 5f 73 74 61 72 74  t ap;.  va_start
1350: 28 61 70 2c 20 7a 46 6d 74 29 3b 0a 20 20 7a 4d  (ap, zFmt);.  zM
1360: 73 67 20 3d 20 73 71 6c 69 74 65 33 5f 76 6d 70  sg = sqlite3_vmp
1370: 72 69 6e 74 66 28 7a 46 6d 74 2c 20 61 70 29 3b  rintf(zFmt, ap);
1380: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
1390: 74 5f 65 72 72 6f 72 28 63 74 78 2c 20 7a 4d 73  t_error(ctx, zMs
13a0: 67 2c 20 2d 31 29 3b 0a 20 20 73 71 6c 69 74 65  g, -1);.  sqlite
13b0: 33 5f 66 72 65 65 28 7a 4d 73 67 29 3b 0a 20 20  3_free(zMsg);.  
13c0: 76 61 5f 65 6e 64 28 61 70 29 3b 0a 7d 0a 0a 2f  va_end(ap);.}../
13d0: 2a 0a 2a 2a 20 41 72 67 75 6d 65 6e 74 20 7a 46  *.** Argument zF
13e0: 69 6c 65 20 69 73 20 74 68 65 20 6e 61 6d 65 20  ile is the name 
13f0: 6f 66 20 61 20 66 69 6c 65 20 74 68 61 74 20 77  of a file that w
1400: 69 6c 6c 20 62 65 20 63 72 65 61 74 65 64 20 61  ill be created a
1410: 6e 64 2f 6f 72 20 77 72 69 74 74 65 6e 0a 2a 2a  nd/or written.**
1420: 20 62 79 20 53 51 4c 20 66 75 6e 63 74 69 6f 6e   by SQL function
1430: 20 77 72 69 74 65 66 69 6c 65 28 29 2e 20 54 68   writefile(). Th
1440: 69 73 20 66 75 6e 63 74 69 6f 6e 20 65 6e 73 75  is function ensu
1450: 72 65 73 20 74 68 61 74 20 74 68 65 20 64 69 72  res that the dir
1460: 65 63 74 6f 72 79 0a 2a 2a 20 7a 46 69 6c 65 20  ectory.** zFile 
1470: 77 69 6c 6c 20 62 65 20 77 72 69 74 74 65 6e 20  will be written 
1480: 74 6f 20 65 78 69 73 74 73 2c 20 63 72 65 61 74  to exists, creat
1490: 69 6e 67 20 69 74 20 69 66 20 72 65 71 75 69 72  ing it if requir
14a0: 65 64 2e 20 54 68 65 20 70 65 72 6d 69 73 73 69  ed. The permissi
14b0: 6f 6e 73 0a 2a 2a 20 66 6f 72 20 61 6e 79 20 70  ons.** for any p
14c0: 61 74 68 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 63  ath components c
14d0: 72 65 61 74 65 64 20 62 79 20 74 68 69 73 20 66  reated by this f
14e0: 75 6e 63 74 69 6f 6e 20 61 72 65 20 73 65 74 20  unction are set 
14f0: 74 6f 20 28 6d 6f 64 65 26 30 37 37 37 29 2e 0a  to (mode&0777)..
1500: 2a 2a 0a 2a 2a 20 49 66 20 61 6e 20 4f 4f 4d 20  **.** If an OOM 
1510: 63 6f 6e 64 69 74 69 6f 6e 20 69 73 20 65 6e 63  condition is enc
1520: 6f 75 6e 74 65 72 65 64 2c 20 53 51 4c 49 54 45  ountered, SQLITE
1530: 5f 4e 4f 4d 45 4d 20 69 73 20 72 65 74 75 72 6e  _NOMEM is return
1540: 65 64 2e 20 4f 74 68 65 72 77 69 73 65 2c 0a 2a  ed. Otherwise,.*
1550: 2a 20 53 51 4c 49 54 45 5f 4f 4b 20 69 73 20 72  * SQLITE_OK is r
1560: 65 74 75 72 6e 65 64 20 69 66 20 74 68 65 20 64  eturned if the d
1570: 69 72 65 63 74 6f 72 79 20 69 73 20 73 75 63 63  irectory is succ
1580: 65 73 73 66 75 6c 6c 79 20 63 72 65 61 74 65 64  essfully created
1590: 2c 20 6f 72 0a 2a 2a 20 53 51 4c 49 54 45 5f 45  , or.** SQLITE_E
15a0: 52 52 4f 52 20 6f 74 68 65 72 77 69 73 65 2e 0a  RROR otherwise..
15b0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6d 61  */.static int ma
15c0: 6b 65 44 69 72 65 63 74 6f 72 79 28 0a 20 20 63  keDirectory(.  c
15d0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
15e0: 2c 0a 20 20 6d 6f 64 65 5f 74 20 6d 6f 64 65 0a  ,.  mode_t mode.
15f0: 29 7b 0a 20 20 63 68 61 72 20 2a 7a 43 6f 70 79  ){.  char *zCopy
1600: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e   = sqlite3_mprin
1610: 74 66 28 22 25 73 22 2c 20 7a 46 69 6c 65 29 3b  tf("%s", zFile);
1620: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49  .  int rc = SQLI
1630: 54 45 5f 4f 4b 3b 0a 0a 20 20 69 66 28 20 7a 43  TE_OK;..  if( zC
1640: 6f 70 79 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63  opy==0 ){.    rc
1650: 20 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b   = SQLITE_NOMEM;
1660: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 69 6e  .  }else{.    in
1670: 74 20 6e 43 6f 70 79 20 3d 20 28 69 6e 74 29 73  t nCopy = (int)s
1680: 74 72 6c 65 6e 28 7a 43 6f 70 79 29 3b 0a 20 20  trlen(zCopy);.  
1690: 20 20 69 6e 74 20 69 20 3d 20 31 3b 0a 0a 20 20    int i = 1;..  
16a0: 20 20 77 68 69 6c 65 28 20 72 63 3d 3d 53 51 4c    while( rc==SQL
16b0: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20  ITE_OK ){.      
16c0: 73 74 72 75 63 74 20 73 74 61 74 20 73 53 74 61  struct stat sSta
16d0: 74 3b 0a 20 20 20 20 20 20 69 6e 74 20 72 63 32  t;.      int rc2
16e0: 3b 0a 0a 20 20 20 20 20 20 66 6f 72 28 3b 20 7a  ;..      for(; z
16f0: 43 6f 70 79 5b 69 5d 21 3d 27 2f 27 20 26 26 20  Copy[i]!='/' && 
1700: 69 3c 6e 43 6f 70 79 3b 20 69 2b 2b 29 3b 0a 20  i<nCopy; i++);. 
1710: 20 20 20 20 20 69 66 28 20 69 3d 3d 6e 43 6f 70       if( i==nCop
1720: 79 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  y ) break;.     
1730: 20 7a 43 6f 70 79 5b 69 5d 20 3d 20 27 5c 30 27   zCopy[i] = '\0'
1740: 3b 0a 0a 20 20 20 20 20 20 72 63 32 20 3d 20 73  ;..      rc2 = s
1750: 74 61 74 28 7a 43 6f 70 79 2c 20 26 73 53 74 61  tat(zCopy, &sSta
1760: 74 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63  t);.      if( rc
1770: 32 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20  2!=0 ){.        
1780: 69 66 28 20 6d 6b 64 69 72 28 7a 43 6f 70 79 2c  if( mkdir(zCopy,
1790: 20 6d 6f 64 65 20 26 20 30 37 37 37 29 20 29 20   mode & 0777) ) 
17a0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f  rc = SQLITE_ERRO
17b0: 52 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a  R;.      }else{.
17c0: 20 20 20 20 20 20 20 20 69 66 28 20 21 53 5f 49          if( !S_I
17d0: 53 44 49 52 28 73 53 74 61 74 2e 73 74 5f 6d 6f  SDIR(sStat.st_mo
17e0: 64 65 29 20 29 20 72 63 20 3d 20 53 51 4c 49 54  de) ) rc = SQLIT
17f0: 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d  E_ERROR;.      }
1800: 0a 20 20 20 20 20 20 7a 43 6f 70 79 5b 69 5d 20  .      zCopy[i] 
1810: 3d 20 27 2f 27 3b 0a 20 20 20 20 20 20 69 2b 2b  = '/';.      i++
1820: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 71 6c  ;.    }..    sql
1830: 69 74 65 33 5f 66 72 65 65 28 7a 43 6f 70 79 29  ite3_free(zCopy)
1840: 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  ;.  }..  return 
1850: 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69  rc;.}../*.** Thi
1860: 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65 73 20  s function does 
1870: 74 68 65 20 77 6f 72 6b 20 66 6f 72 20 74 68 65  the work for the
1880: 20 77 72 69 74 65 66 69 6c 65 28 29 20 55 44 46   writefile() UDF
1890: 2e 20 52 65 66 65 72 20 74 6f 20 0a 2a 2a 20 68  . Refer to .** h
18a0: 65 61 64 65 72 20 63 6f 6d 6d 65 6e 74 73 20 61  eader comments a
18b0: 74 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 69  t the top of thi
18c0: 73 20 66 69 6c 65 20 66 6f 72 20 64 65 74 61 69  s file for detai
18d0: 6c 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ls..*/.static in
18e0: 74 20 77 72 69 74 65 46 69 6c 65 28 0a 20 20 73  t writeFile(.  s
18f0: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
1900: 70 43 74 78 2c 20 20 20 20 20 20 20 20 20 20 2f  pCtx,          /
1910: 2a 20 43 6f 6e 74 65 78 74 20 74 6f 20 72 65 74  * Context to ret
1920: 75 72 6e 20 62 79 74 65 73 20 77 72 69 74 74 65  urn bytes writte
1930: 6e 20 69 6e 20 2a 2f 0a 20 20 63 6f 6e 73 74 20  n in */.  const 
1940: 63 68 61 72 20 2a 7a 46 69 6c 65 2c 20 20 20 20  char *zFile,    
1950: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 69 6c            /* Fil
1960: 65 20 74 6f 20 77 72 69 74 65 20 2a 2f 0a 20 20  e to write */.  
1970: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 70  sqlite3_value *p
1980: 44 61 74 61 2c 20 20 20 20 20 20 20 20 20 20 20  Data,           
1990: 2f 2a 20 44 61 74 61 20 74 6f 20 77 72 69 74 65  /* Data to write
19a0: 20 2a 2f 0a 20 20 6d 6f 64 65 5f 74 20 6d 6f 64   */.  mode_t mod
19b0: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e,              
19c0: 20 20 20 20 20 20 2f 2a 20 4d 4f 44 45 20 70 61        /* MODE pa
19d0: 72 61 6d 65 74 65 72 20 70 61 73 73 65 64 20 74  rameter passed t
19e0: 6f 20 77 72 69 74 65 66 69 6c 65 28 29 20 2a 2f  o writefile() */
19f0: 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34  .  sqlite3_int64
1a00: 20 6d 74 69 6d 65 20 20 20 20 20 20 20 20 20 20   mtime          
1a10: 20 20 20 2f 2a 20 4d 54 49 4d 45 20 70 61 72 61     /* MTIME para
1a20: 6d 65 74 65 72 20 28 6f 72 20 2d 31 20 74 6f 20  meter (or -1 to 
1a30: 6e 6f 74 20 73 65 74 20 74 69 6d 65 29 20 2a 2f  not set time) */
1a40: 0a 29 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 64  .){.#if !defined
1a50: 28 5f 57 49 4e 33 32 29 20 26 26 20 21 64 65 66  (_WIN32) && !def
1a60: 69 6e 65 64 28 57 49 4e 33 32 29 0a 20 20 69 66  ined(WIN32).  if
1a70: 28 20 53 5f 49 53 4c 4e 4b 28 6d 6f 64 65 29 20  ( S_ISLNK(mode) 
1a80: 29 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61  ){.    const cha
1a90: 72 20 2a 7a 54 6f 20 3d 20 28 63 6f 6e 73 74 20  r *zTo = (const 
1aa0: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61  char*)sqlite3_va
1ab0: 6c 75 65 5f 74 65 78 74 28 70 44 61 74 61 29 3b  lue_text(pData);
1ac0: 0a 20 20 20 20 69 66 28 20 73 79 6d 6c 69 6e 6b  .    if( symlink
1ad0: 28 7a 54 6f 2c 20 7a 46 69 6c 65 29 3c 30 20 29  (zTo, zFile)<0 )
1ae0: 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 7d 65 6c   return 1;.  }el
1af0: 73 65 0a 23 65 6e 64 69 66 0a 20 20 7b 0a 20 20  se.#endif.  {.  
1b00: 20 20 69 66 28 20 53 5f 49 53 44 49 52 28 6d 6f    if( S_ISDIR(mo
1b10: 64 65 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28  de) ){.      if(
1b20: 20 6d 6b 64 69 72 28 7a 46 69 6c 65 2c 20 6d 6f   mkdir(zFile, mo
1b30: 64 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20 2f  de) ){.        /
1b40: 2a 20 54 68 65 20 6d 6b 64 69 72 28 29 20 63 61  * The mkdir() ca
1b50: 6c 6c 20 74 6f 20 63 72 65 61 74 65 20 74 68 65  ll to create the
1b60: 20 64 69 72 65 63 74 6f 72 79 20 66 61 69 6c 65   directory faile
1b70: 64 2e 20 54 68 69 73 20 6d 69 67 68 74 20 6e 6f  d. This might no
1b80: 74 0a 20 20 20 20 20 20 20 20 2a 2a 20 62 65 20  t.        ** be 
1b90: 61 6e 20 65 72 72 6f 72 20 74 68 6f 75 67 68 20  an error though 
1ba0: 2d 20 69 66 20 74 68 65 72 65 20 69 73 20 61 6c  - if there is al
1bb0: 72 65 61 64 79 20 61 20 64 69 72 65 63 74 6f 72  ready a director
1bc0: 79 20 61 74 20 74 68 65 20 73 61 6d 65 0a 20 20  y at the same.  
1bd0: 20 20 20 20 20 20 2a 2a 20 70 61 74 68 20 61 6e        ** path an
1be0: 64 20 65 69 74 68 65 72 20 74 68 65 20 70 65 72  d either the per
1bf0: 6d 69 73 73 69 6f 6e 73 20 61 6c 72 65 61 64 79  missions already
1c00: 20 6d 61 74 63 68 20 6f 72 20 63 61 6e 20 62 65   match or can be
1c10: 20 63 68 61 6e 67 65 64 0a 20 20 20 20 20 20 20   changed.       
1c20: 20 2a 2a 20 74 6f 20 64 6f 20 73 6f 20 75 73 69   ** to do so usi
1c30: 6e 67 20 63 68 6d 6f 64 28 29 2c 20 69 74 20 69  ng chmod(), it i
1c40: 73 20 6e 6f 74 20 61 6e 20 65 72 72 6f 72 2e 20  s not an error. 
1c50: 20 2a 2f 0a 20 20 20 20 20 20 20 20 73 74 72 75   */.        stru
1c60: 63 74 20 73 74 61 74 20 73 53 74 61 74 3b 0a 20  ct stat sStat;. 
1c70: 20 20 20 20 20 20 20 69 66 28 20 65 72 72 6e 6f         if( errno
1c80: 21 3d 45 45 58 49 53 54 0a 20 20 20 20 20 20 20  !=EEXIST.       
1c90: 20 20 7c 7c 20 30 21 3d 73 74 61 74 28 7a 46 69    || 0!=stat(zFi
1ca0: 6c 65 2c 20 26 73 53 74 61 74 29 0a 20 20 20 20  le, &sStat).    
1cb0: 20 20 20 20 20 7c 7c 20 21 53 5f 49 53 44 49 52       || !S_ISDIR
1cc0: 28 73 53 74 61 74 2e 73 74 5f 6d 6f 64 65 29 0a  (sStat.st_mode).
1cd0: 20 20 20 20 20 20 20 20 20 7c 7c 20 28 28 73 53           || ((sS
1ce0: 74 61 74 2e 73 74 5f 6d 6f 64 65 26 30 37 37 37  tat.st_mode&0777
1cf0: 29 21 3d 28 6d 6f 64 65 26 30 37 37 37 29 20 26  )!=(mode&0777) &
1d00: 26 20 30 21 3d 63 68 6d 6f 64 28 7a 46 69 6c 65  & 0!=chmod(zFile
1d10: 2c 20 6d 6f 64 65 26 30 37 37 37 29 29 0a 20 20  , mode&0777)).  
1d20: 20 20 20 20 20 20 29 7b 0a 20 20 20 20 20 20 20        ){.       
1d30: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20     return 1;.   
1d40: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20       }.      }. 
1d50: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
1d60: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 6e 57  sqlite3_int64 nW
1d70: 72 69 74 65 20 3d 20 30 3b 0a 20 20 20 20 20 20  rite = 0;.      
1d80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20  const char *z;. 
1d90: 20 20 20 20 20 69 6e 74 20 72 63 20 3d 20 30 3b       int rc = 0;
1da0: 0a 20 20 20 20 20 20 46 49 4c 45 20 2a 6f 75 74  .      FILE *out
1db0: 20 3d 20 66 6f 70 65 6e 28 7a 46 69 6c 65 2c 20   = fopen(zFile, 
1dc0: 22 77 62 22 29 3b 0a 20 20 20 20 20 20 69 66 28  "wb");.      if(
1dd0: 20 6f 75 74 3d 3d 30 20 29 20 72 65 74 75 72 6e   out==0 ) return
1de0: 20 31 3b 0a 20 20 20 20 20 20 7a 20 3d 20 28 63   1;.      z = (c
1df0: 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74  onst char*)sqlit
1e00: 65 33 5f 76 61 6c 75 65 5f 62 6c 6f 62 28 70 44  e3_value_blob(pD
1e10: 61 74 61 29 3b 0a 20 20 20 20 20 20 69 66 28 20  ata);.      if( 
1e20: 7a 20 29 7b 0a 20 20 20 20 20 20 20 20 73 71 6c  z ){.        sql
1e30: 69 74 65 33 5f 69 6e 74 36 34 20 6e 20 3d 20 66  ite3_int64 n = f
1e40: 77 72 69 74 65 28 7a 2c 20 31 2c 20 73 71 6c 69  write(z, 1, sqli
1e50: 74 65 33 5f 76 61 6c 75 65 5f 62 79 74 65 73 28  te3_value_bytes(
1e60: 70 44 61 74 61 29 2c 20 6f 75 74 29 3b 0a 20 20  pData), out);.  
1e70: 20 20 20 20 20 20 6e 57 72 69 74 65 20 3d 20 73        nWrite = s
1e80: 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 62 79 74  qlite3_value_byt
1e90: 65 73 28 70 44 61 74 61 29 3b 0a 20 20 20 20 20  es(pData);.     
1ea0: 20 20 20 69 66 28 20 6e 57 72 69 74 65 21 3d 6e     if( nWrite!=n
1eb0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63   ){.          rc
1ec0: 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 7d 0a   = 1;.        }.
1ed0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 66 63        }.      fc
1ee0: 6c 6f 73 65 28 6f 75 74 29 3b 0a 20 20 20 20 20  lose(out);.     
1ef0: 20 69 66 28 20 72 63 3d 3d 30 20 26 26 20 6d 6f   if( rc==0 && mo
1f00: 64 65 20 26 26 20 63 68 6d 6f 64 28 7a 46 69 6c  de && chmod(zFil
1f10: 65 2c 20 6d 6f 64 65 20 26 20 30 37 37 37 29 20  e, mode & 0777) 
1f20: 29 7b 0a 20 20 20 20 20 20 20 20 72 63 20 3d 20  ){.        rc = 
1f30: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  1;.      }.     
1f40: 20 69 66 28 20 72 63 20 29 20 72 65 74 75 72 6e   if( rc ) return
1f50: 20 32 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65   2;.      sqlite
1f60: 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28 70  3_result_int64(p
1f70: 43 74 78 2c 20 6e 57 72 69 74 65 29 3b 0a 20 20  Ctx, nWrite);.  
1f80: 20 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20 6d    }.  }..  if( m
1f90: 74 69 6d 65 3e 3d 30 20 29 7b 0a 23 69 66 20 64  time>=0 ){.#if d
1fa0: 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29 0a 20  efined(_WIN32). 
1fb0: 20 20 20 2f 2a 20 57 69 6e 64 6f 77 73 20 2a 2f     /* Windows */
1fc0: 0a 20 20 20 20 46 49 4c 45 54 49 4d 45 20 6c 61  .    FILETIME la
1fd0: 73 74 41 63 63 65 73 73 3b 0a 20 20 20 20 46 49  stAccess;.    FI
1fe0: 4c 45 54 49 4d 45 20 6c 61 73 74 57 72 69 74 65  LETIME lastWrite
1ff0: 3b 0a 20 20 20 20 53 59 53 54 45 4d 54 49 4d 45  ;.    SYSTEMTIME
2000: 20 63 75 72 72 65 6e 74 54 69 6d 65 3b 0a 20 20   currentTime;.  
2010: 20 20 4c 4f 4e 47 4c 4f 4e 47 20 69 6e 74 65 72    LONGLONG inter
2020: 76 61 6c 73 3b 0a 20 20 20 20 48 41 4e 44 4c 45  vals;.    HANDLE
2030: 20 68 46 69 6c 65 3b 0a 20 20 20 20 4c 50 57 53   hFile;.    LPWS
2040: 54 52 20 7a 55 6e 69 63 6f 64 65 4e 61 6d 65 3b  TR zUnicodeName;
2050: 0a 20 20 20 20 65 78 74 65 72 6e 20 4c 50 57 53  .    extern LPWS
2060: 54 52 20 73 71 6c 69 74 65 33 5f 77 69 6e 33 32  TR sqlite3_win32
2070: 5f 75 74 66 38 5f 74 6f 5f 75 6e 69 63 6f 64 65  _utf8_to_unicode
2080: 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 3b 0a 0a  (const char*);..
2090: 20 20 20 20 47 65 74 53 79 73 74 65 6d 54 69 6d      GetSystemTim
20a0: 65 28 26 63 75 72 72 65 6e 74 54 69 6d 65 29 3b  e(&currentTime);
20b0: 0a 20 20 20 20 53 79 73 74 65 6d 54 69 6d 65 54  .    SystemTimeT
20c0: 6f 46 69 6c 65 54 69 6d 65 28 26 63 75 72 72 65  oFileTime(&curre
20d0: 6e 74 54 69 6d 65 2c 20 26 6c 61 73 74 41 63 63  ntTime, &lastAcc
20e0: 65 73 73 29 3b 0a 20 20 20 20 69 6e 74 65 72 76  ess);.    interv
20f0: 61 6c 73 20 3d 20 49 6e 74 33 32 78 33 32 54 6f  als = Int32x32To
2100: 36 34 28 6d 74 69 6d 65 2c 20 31 30 30 30 30 30  64(mtime, 100000
2110: 30 30 29 20 2b 20 31 31 36 34 34 34 37 33 36 30  00) + 1164447360
2120: 30 30 30 30 30 30 30 30 3b 0a 20 20 20 20 6c 61  00000000;.    la
2130: 73 74 57 72 69 74 65 2e 64 77 4c 6f 77 44 61 74  stWrite.dwLowDat
2140: 65 54 69 6d 65 20 3d 20 28 44 57 4f 52 44 29 69  eTime = (DWORD)i
2150: 6e 74 65 72 76 61 6c 73 3b 0a 20 20 20 20 6c 61  ntervals;.    la
2160: 73 74 57 72 69 74 65 2e 64 77 48 69 67 68 44 61  stWrite.dwHighDa
2170: 74 65 54 69 6d 65 20 3d 20 69 6e 74 65 72 76 61  teTime = interva
2180: 6c 73 20 3e 3e 20 33 32 3b 0a 20 20 20 20 7a 55  ls >> 32;.    zU
2190: 6e 69 63 6f 64 65 4e 61 6d 65 20 3d 20 73 71 6c  nicodeName = sql
21a0: 69 74 65 33 5f 77 69 6e 33 32 5f 75 74 66 38 5f  ite3_win32_utf8_
21b0: 74 6f 5f 75 6e 69 63 6f 64 65 28 7a 46 69 6c 65  to_unicode(zFile
21c0: 29 3b 0a 20 20 20 20 68 46 69 6c 65 20 3d 20 43  );.    hFile = C
21d0: 72 65 61 74 65 46 69 6c 65 57 28 0a 20 20 20 20  reateFileW(.    
21e0: 20 20 7a 55 6e 69 63 6f 64 65 4e 61 6d 65 2c 20    zUnicodeName, 
21f0: 46 49 4c 45 5f 57 52 49 54 45 5f 41 54 54 52 49  FILE_WRITE_ATTRI
2200: 42 55 54 45 53 2c 20 30 2c 20 4e 55 4c 4c 2c 20  BUTES, 0, NULL, 
2210: 4f 50 45 4e 5f 45 58 49 53 54 49 4e 47 2c 0a 20  OPEN_EXISTING,. 
2220: 20 20 20 20 20 46 49 4c 45 5f 46 4c 41 47 5f 42       FILE_FLAG_B
2230: 41 43 4b 55 50 5f 53 45 4d 41 4e 54 49 43 53 2c  ACKUP_SEMANTICS,
2240: 20 4e 55 4c 4c 0a 20 20 20 20 29 3b 0a 20 20 20   NULL.    );.   
2250: 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 55   sqlite3_free(zU
2260: 6e 69 63 6f 64 65 4e 61 6d 65 29 3b 0a 20 20 20  nicodeName);.   
2270: 20 69 66 28 20 68 46 69 6c 65 21 3d 49 4e 56 41   if( hFile!=INVA
2280: 4c 49 44 5f 48 41 4e 44 4c 45 5f 56 41 4c 55 45  LID_HANDLE_VALUE
2290: 20 29 7b 0a 20 20 20 20 20 20 42 4f 4f 4c 20 62   ){.      BOOL b
22a0: 52 65 73 75 6c 74 20 3d 20 53 65 74 46 69 6c 65  Result = SetFile
22b0: 54 69 6d 65 28 68 46 69 6c 65 2c 20 4e 55 4c 4c  Time(hFile, NULL
22c0: 2c 20 26 6c 61 73 74 41 63 63 65 73 73 2c 20 26  , &lastAccess, &
22d0: 6c 61 73 74 57 72 69 74 65 29 3b 0a 20 20 20 20  lastWrite);.    
22e0: 20 20 43 6c 6f 73 65 48 61 6e 64 6c 65 28 68 46    CloseHandle(hF
22f0: 69 6c 65 29 3b 0a 20 20 20 20 20 20 72 65 74 75  ile);.      retu
2300: 72 6e 20 21 62 52 65 73 75 6c 74 3b 0a 20 20 20  rn !bResult;.   
2310: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 72 65   }else{.      re
2320: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 23 65  turn 1;.    }.#e
2330: 6c 69 66 20 64 65 66 69 6e 65 64 28 41 54 5f 46  lif defined(AT_F
2340: 44 43 57 44 29 20 26 26 20 30 20 2f 2a 20 75 74  DCWD) && 0 /* ut
2350: 69 6d 65 6e 73 61 74 28 29 20 69 73 20 6e 6f 74  imensat() is not
2360: 20 75 6e 69 76 65 72 61 6c 6c 79 20 61 76 61 69   univerally avai
2370: 6c 61 62 6c 65 20 2a 2f 0a 20 20 20 20 2f 2a 20  lable */.    /* 
2380: 52 65 63 65 6e 74 20 75 6e 69 78 20 2a 2f 0a 20  Recent unix */. 
2390: 20 20 20 73 74 72 75 63 74 20 74 69 6d 65 73 70     struct timesp
23a0: 65 63 20 74 69 6d 65 73 5b 32 5d 3b 0a 20 20 20  ec times[2];.   
23b0: 20 74 69 6d 65 73 5b 30 5d 2e 74 76 5f 6e 73 65   times[0].tv_nse
23c0: 63 20 3d 20 74 69 6d 65 73 5b 31 5d 2e 74 76 5f  c = times[1].tv_
23d0: 6e 73 65 63 20 3d 20 30 3b 0a 20 20 20 20 74 69  nsec = 0;.    ti
23e0: 6d 65 73 5b 30 5d 2e 74 76 5f 73 65 63 20 3d 20  mes[0].tv_sec = 
23f0: 74 69 6d 65 28 30 29 3b 0a 20 20 20 20 74 69 6d  time(0);.    tim
2400: 65 73 5b 31 5d 2e 74 76 5f 73 65 63 20 3d 20 6d  es[1].tv_sec = m
2410: 74 69 6d 65 3b 0a 20 20 20 20 69 66 28 20 75 74  time;.    if( ut
2420: 69 6d 65 6e 73 61 74 28 41 54 5f 46 44 43 57 44  imensat(AT_FDCWD
2430: 2c 20 7a 46 69 6c 65 2c 20 74 69 6d 65 73 2c 20  , zFile, times, 
2440: 41 54 5f 53 59 4d 4c 49 4e 4b 5f 4e 4f 46 4f 4c  AT_SYMLINK_NOFOL
2450: 4c 4f 57 29 20 29 7b 0a 20 20 20 20 20 20 72 65  LOW) ){.      re
2460: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 23 65  turn 1;.    }.#e
2470: 6c 73 65 0a 20 20 20 20 2f 2a 20 4c 65 67 61 63  lse.    /* Legac
2480: 79 20 75 6e 69 78 20 2a 2f 0a 20 20 20 20 73 74  y unix */.    st
2490: 72 75 63 74 20 74 69 6d 65 76 61 6c 20 74 69 6d  ruct timeval tim
24a0: 65 73 5b 32 5d 3b 0a 20 20 20 20 74 69 6d 65 73  es[2];.    times
24b0: 5b 30 5d 2e 74 76 5f 75 73 65 63 20 3d 20 74 69  [0].tv_usec = ti
24c0: 6d 65 73 5b 31 5d 2e 74 76 5f 75 73 65 63 20 3d  mes[1].tv_usec =
24d0: 20 30 3b 0a 20 20 20 20 74 69 6d 65 73 5b 30 5d   0;.    times[0]
24e0: 2e 74 76 5f 73 65 63 20 3d 20 74 69 6d 65 28 30  .tv_sec = time(0
24f0: 29 3b 0a 20 20 20 20 74 69 6d 65 73 5b 31 5d 2e  );.    times[1].
2500: 74 76 5f 73 65 63 20 3d 20 6d 74 69 6d 65 3b 0a  tv_sec = mtime;.
2510: 20 20 20 20 69 66 28 20 75 74 69 6d 65 73 28 7a      if( utimes(z
2520: 46 69 6c 65 2c 20 74 69 6d 65 73 29 20 29 7b 0a  File, times) ){.
2530: 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a        return 1;.
2540: 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 7d      }.#endif.  }
2550: 0a 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a  ..  return 0;.}.
2560: 0a 2f 2a 0a 2a 2a 20 49 6d 70 6c 65 6d 65 6e 74  ./*.** Implement
2570: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 22 77 72  ation of the "wr
2580: 69 74 65 66 69 6c 65 28 57 2c 58 5b 2c 59 5b 2c  itefile(W,X[,Y[,
2590: 5a 5d 5d 5d 29 22 20 53 51 4c 20 66 75 6e 63 74  Z]]])" SQL funct
25a0: 69 6f 6e 2e 20 20 0a 2a 2a 20 52 65 66 65 72 20  ion.  .** Refer 
25b0: 74 6f 20 68 65 61 64 65 72 20 63 6f 6d 6d 65 6e  to header commen
25c0: 74 73 20 61 74 20 74 68 65 20 74 6f 70 20 6f 66  ts at the top of
25d0: 20 74 68 69 73 20 66 69 6c 65 20 66 6f 72 20 64   this file for d
25e0: 65 74 61 69 6c 73 2e 0a 2a 2f 0a 73 74 61 74 69  etails..*/.stati
25f0: 63 20 76 6f 69 64 20 77 72 69 74 65 66 69 6c 65  c void writefile
2600: 46 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f  Func(.  sqlite3_
2610: 63 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74  context *context
2620: 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20  ,.  int argc,.  
2630: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a  sqlite3_value **
2640: 61 72 67 76 0a 29 7b 0a 20 20 63 6f 6e 73 74 20  argv.){.  const 
2650: 63 68 61 72 20 2a 7a 46 69 6c 65 3b 0a 20 20 6d  char *zFile;.  m
2660: 6f 64 65 5f 74 20 6d 6f 64 65 20 3d 20 30 3b 0a  ode_t mode = 0;.
2670: 20 20 69 6e 74 20 72 65 73 3b 0a 20 20 73 71 6c    int res;.  sql
2680: 69 74 65 33 5f 69 6e 74 36 34 20 6d 74 69 6d 65  ite3_int64 mtime
2690: 20 3d 20 2d 31 3b 0a 0a 20 20 69 66 28 20 61 72   = -1;..  if( ar
26a0: 67 63 3c 32 20 7c 7c 20 61 72 67 63 3e 34 20 29  gc<2 || argc>4 )
26b0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65  {.    sqlite3_re
26c0: 73 75 6c 74 5f 65 72 72 6f 72 28 63 6f 6e 74 65  sult_error(conte
26d0: 78 74 2c 20 0a 20 20 20 20 20 20 20 20 22 77 72  xt, .        "wr
26e0: 6f 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72  ong number of ar
26f0: 67 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63 74  guments to funct
2700: 69 6f 6e 20 77 72 69 74 65 66 69 6c 65 28 29 22  ion writefile()"
2710: 2c 20 2d 31 0a 20 20 20 20 29 3b 0a 20 20 20 20  , -1.    );.    
2720: 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 0a 20 20 7a  return;.  }..  z
2730: 46 69 6c 65 20 3d 20 28 63 6f 6e 73 74 20 63 68  File = (const ch
2740: 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c 75  ar*)sqlite3_valu
2750: 65 5f 74 65 78 74 28 61 72 67 76 5b 30 5d 29 3b  e_text(argv[0]);
2760: 0a 20 20 69 66 28 20 7a 46 69 6c 65 3d 3d 30 20  .  if( zFile==0 
2770: 29 20 72 65 74 75 72 6e 3b 0a 20 20 69 66 28 20  ) return;.  if( 
2780: 61 72 67 63 3e 3d 33 20 29 7b 0a 20 20 20 20 6d  argc>=3 ){.    m
2790: 6f 64 65 20 3d 20 28 6d 6f 64 65 5f 74 29 73 71  ode = (mode_t)sq
27a0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28  lite3_value_int(
27b0: 61 72 67 76 5b 32 5d 29 3b 0a 20 20 7d 0a 20 20  argv[2]);.  }.  
27c0: 69 66 28 20 61 72 67 63 3d 3d 34 20 29 7b 0a 20  if( argc==4 ){. 
27d0: 20 20 20 6d 74 69 6d 65 20 3d 20 73 71 6c 69 74     mtime = sqlit
27e0: 65 33 5f 76 61 6c 75 65 5f 69 6e 74 36 34 28 61  e3_value_int64(a
27f0: 72 67 76 5b 33 5d 29 3b 0a 20 20 7d 0a 0a 20 20  rgv[3]);.  }..  
2800: 72 65 73 20 3d 20 77 72 69 74 65 46 69 6c 65 28  res = writeFile(
2810: 63 6f 6e 74 65 78 74 2c 20 7a 46 69 6c 65 2c 20  context, zFile, 
2820: 61 72 67 76 5b 31 5d 2c 20 6d 6f 64 65 2c 20 6d  argv[1], mode, m
2830: 74 69 6d 65 29 3b 0a 20 20 69 66 28 20 72 65 73  time);.  if( res
2840: 3d 3d 31 20 26 26 20 65 72 72 6e 6f 3d 3d 45 4e  ==1 && errno==EN
2850: 4f 45 4e 54 20 29 7b 0a 20 20 20 20 69 66 28 20  OENT ){.    if( 
2860: 6d 61 6b 65 44 69 72 65 63 74 6f 72 79 28 7a 46  makeDirectory(zF
2870: 69 6c 65 2c 20 6d 6f 64 65 29 3d 3d 53 51 4c 49  ile, mode)==SQLI
2880: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 72  TE_OK ){.      r
2890: 65 73 20 3d 20 77 72 69 74 65 46 69 6c 65 28 63  es = writeFile(c
28a0: 6f 6e 74 65 78 74 2c 20 7a 46 69 6c 65 2c 20 61  ontext, zFile, a
28b0: 72 67 76 5b 31 5d 2c 20 6d 6f 64 65 2c 20 6d 74  rgv[1], mode, mt
28c0: 69 6d 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  ime);.    }.  }.
28d0: 0a 20 20 69 66 28 20 61 72 67 63 3e 32 20 26 26  .  if( argc>2 &&
28e0: 20 72 65 73 21 3d 30 20 29 7b 0a 20 20 20 20 69   res!=0 ){.    i
28f0: 66 28 20 53 5f 49 53 4c 4e 4b 28 6d 6f 64 65 29  f( S_ISLNK(mode)
2900: 20 29 7b 0a 20 20 20 20 20 20 63 74 78 45 72 72   ){.      ctxErr
2910: 6f 72 4d 73 67 28 63 6f 6e 74 65 78 74 2c 20 22  orMsg(context, "
2920: 66 61 69 6c 65 64 20 74 6f 20 63 72 65 61 74 65  failed to create
2930: 20 73 79 6d 6c 69 6e 6b 3a 20 25 73 22 2c 20 7a   symlink: %s", z
2940: 46 69 6c 65 29 3b 0a 20 20 20 20 7d 65 6c 73 65  File);.    }else
2950: 20 69 66 28 20 53 5f 49 53 44 49 52 28 6d 6f 64   if( S_ISDIR(mod
2960: 65 29 20 29 7b 0a 20 20 20 20 20 20 63 74 78 45  e) ){.      ctxE
2970: 72 72 6f 72 4d 73 67 28 63 6f 6e 74 65 78 74 2c  rrorMsg(context,
2980: 20 22 66 61 69 6c 65 64 20 74 6f 20 63 72 65 61   "failed to crea
2990: 74 65 20 64 69 72 65 63 74 6f 72 79 3a 20 25 73  te directory: %s
29a0: 22 2c 20 7a 46 69 6c 65 29 3b 0a 20 20 20 20 7d  ", zFile);.    }
29b0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 63 74 78 45  else{.      ctxE
29c0: 72 72 6f 72 4d 73 67 28 63 6f 6e 74 65 78 74 2c  rrorMsg(context,
29d0: 20 22 66 61 69 6c 65 64 20 74 6f 20 77 72 69 74   "failed to writ
29e0: 65 20 66 69 6c 65 3a 20 25 73 22 2c 20 7a 46 69  e file: %s", zFi
29f0: 6c 65 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d  le);.    }.  }.}
2a00: 0a 0a 2f 2a 0a 2a 2a 20 53 51 4c 20 66 75 6e 63  ../*.** SQL func
2a10: 74 69 6f 6e 3a 20 20 20 6c 73 6d 6f 64 65 28 4d  tion:   lsmode(M
2a20: 4f 44 45 29 0a 2a 2a 0a 2a 2a 20 47 69 76 65 6e  ODE).**.** Given
2a30: 20 61 20 6e 75 6d 62 65 72 69 63 20 73 74 5f 6d   a numberic st_m
2a40: 6f 64 65 20 66 72 6f 6d 20 73 74 61 74 28 29 2c  ode from stat(),
2a50: 20 63 6f 6e 76 65 72 74 20 69 74 20 69 6e 74 6f   convert it into
2a60: 20 61 20 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c   a human-readabl
2a70: 65 0a 2a 2a 20 74 65 78 74 20 73 74 72 69 6e 67  e.** text string
2a80: 20 69 6e 20 74 68 65 20 73 74 79 6c 65 20 6f 66   in the style of
2a90: 20 22 6c 73 20 2d 6c 22 2e 0a 2a 2f 0a 73 74 61   "ls -l"..*/.sta
2aa0: 74 69 63 20 76 6f 69 64 20 6c 73 4d 6f 64 65 46  tic void lsModeF
2ab0: 75 6e 63 28 0a 20 20 73 71 6c 69 74 65 33 5f 63  unc(.  sqlite3_c
2ac0: 6f 6e 74 65 78 74 20 2a 63 6f 6e 74 65 78 74 2c  ontext *context,
2ad0: 0a 20 20 69 6e 74 20 61 72 67 63 2c 0a 20 20 73  .  int argc,.  s
2ae0: 71 6c 69 74 65 33 5f 76 61 6c 75 65 20 2a 2a 61  qlite3_value **a
2af0: 72 67 76 0a 29 7b 0a 20 20 69 6e 74 20 69 3b 0a  rgv.){.  int i;.
2b00: 20 20 69 6e 74 20 69 4d 6f 64 65 20 3d 20 73 71    int iMode = sq
2b10: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 69 6e 74 28  lite3_value_int(
2b20: 61 72 67 76 5b 30 5d 29 3b 0a 20 20 63 68 61 72  argv[0]);.  char
2b30: 20 7a 5b 31 36 5d 3b 0a 20 20 28 76 6f 69 64 29   z[16];.  (void)
2b40: 61 72 67 63 3b 0a 20 20 69 66 28 20 53 5f 49 53  argc;.  if( S_IS
2b50: 4c 4e 4b 28 69 4d 6f 64 65 29 20 29 7b 0a 20 20  LNK(iMode) ){.  
2b60: 20 20 7a 5b 30 5d 20 3d 20 27 6c 27 3b 0a 20 20    z[0] = 'l';.  
2b70: 7d 65 6c 73 65 20 69 66 28 20 53 5f 49 53 52 45  }else if( S_ISRE
2b80: 47 28 69 4d 6f 64 65 29 20 29 7b 0a 20 20 20 20  G(iMode) ){.    
2b90: 7a 5b 30 5d 20 3d 20 27 2d 27 3b 0a 20 20 7d 65  z[0] = '-';.  }e
2ba0: 6c 73 65 20 69 66 28 20 53 5f 49 53 44 49 52 28  lse if( S_ISDIR(
2bb0: 69 4d 6f 64 65 29 20 29 7b 0a 20 20 20 20 7a 5b  iMode) ){.    z[
2bc0: 30 5d 20 3d 20 27 64 27 3b 0a 20 20 7d 65 6c 73  0] = 'd';.  }els
2bd0: 65 7b 0a 20 20 20 20 7a 5b 30 5d 20 3d 20 27 3f  e{.    z[0] = '?
2be0: 27 3b 0a 20 20 7d 0a 20 20 66 6f 72 28 69 3d 30  ';.  }.  for(i=0
2bf0: 3b 20 69 3c 33 3b 20 69 2b 2b 29 7b 0a 20 20 20  ; i<3; i++){.   
2c00: 20 69 6e 74 20 6d 20 3d 20 28 69 4d 6f 64 65 20   int m = (iMode 
2c10: 3e 3e 20 28 28 32 2d 69 29 2a 33 29 29 3b 0a 20  >> ((2-i)*3));. 
2c20: 20 20 20 63 68 61 72 20 2a 61 20 3d 20 26 7a 5b     char *a = &z[
2c30: 31 20 2b 20 69 2a 33 5d 3b 0a 20 20 20 20 61 5b  1 + i*3];.    a[
2c40: 30 5d 20 3d 20 28 6d 20 26 20 30 78 34 29 20 3f  0] = (m & 0x4) ?
2c50: 20 27 72 27 20 3a 20 27 2d 27 3b 0a 20 20 20 20   'r' : '-';.    
2c60: 61 5b 31 5d 20 3d 20 28 6d 20 26 20 30 78 32 29  a[1] = (m & 0x2)
2c70: 20 3f 20 27 77 27 20 3a 20 27 2d 27 3b 0a 20 20   ? 'w' : '-';.  
2c80: 20 20 61 5b 32 5d 20 3d 20 28 6d 20 26 20 30 78    a[2] = (m & 0x
2c90: 31 29 20 3f 20 27 78 27 20 3a 20 27 2d 27 3b 0a  1) ? 'x' : '-';.
2ca0: 20 20 7d 0a 20 20 7a 5b 31 30 5d 20 3d 20 27 5c    }.  z[10] = '\
2cb0: 30 27 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 65  0';.  sqlite3_re
2cc0: 73 75 6c 74 5f 74 65 78 74 28 63 6f 6e 74 65 78  sult_text(contex
2cd0: 74 2c 20 7a 2c 20 2d 31 2c 20 53 51 4c 49 54 45  t, z, -1, SQLITE
2ce0: 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 0a  _TRANSIENT);.}..
2cf0: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f  #ifndef SQLITE_O
2d00: 4d 49 54 5f 56 49 52 54 55 41 4c 54 41 42 4c 45  MIT_VIRTUALTABLE
2d10: 0a 0a 2f 2a 20 0a 2a 2a 20 43 75 72 73 6f 72 20  ../* .** Cursor 
2d20: 74 79 70 65 20 66 6f 72 20 72 65 63 75 72 73 69  type for recursi
2d30: 76 65 6c 79 20 69 74 65 72 61 74 69 6e 67 20 74  vely iterating t
2d40: 68 72 6f 75 67 68 20 61 20 64 69 72 65 63 74 6f  hrough a directo
2d50: 72 79 20 73 74 72 75 63 74 75 72 65 2e 0a 2a 2f  ry structure..*/
2d60: 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20  .typedef struct 
2d70: 66 73 64 69 72 5f 63 75 72 73 6f 72 20 66 73 64  fsdir_cursor fsd
2d80: 69 72 5f 63 75 72 73 6f 72 3b 0a 74 79 70 65 64  ir_cursor;.typed
2d90: 65 66 20 73 74 72 75 63 74 20 46 73 64 69 72 4c  ef struct FsdirL
2da0: 65 76 65 6c 20 46 73 64 69 72 4c 65 76 65 6c 3b  evel FsdirLevel;
2db0: 0a 0a 73 74 72 75 63 74 20 46 73 64 69 72 4c 65  ..struct FsdirLe
2dc0: 76 65 6c 20 7b 0a 20 20 44 49 52 20 2a 70 44 69  vel {.  DIR *pDi
2dd0: 72 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r;              
2de0: 20 20 20 2f 2a 20 46 72 6f 6d 20 6f 70 65 6e 64     /* From opend
2df0: 69 72 28 29 20 2a 2f 0a 20 20 63 68 61 72 20 2a  ir() */.  char *
2e00: 7a 44 69 72 3b 20 20 20 20 20 20 20 20 20 20 20  zDir;           
2e10: 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20       /* Name of 
2e20: 64 69 72 65 63 74 6f 72 79 20 28 6e 75 6c 2d 74  directory (nul-t
2e30: 65 72 6d 69 6e 61 74 65 64 29 20 2a 2f 0a 7d 3b  erminated) */.};
2e40: 0a 0a 73 74 72 75 63 74 20 66 73 64 69 72 5f 63  ..struct fsdir_c
2e50: 75 72 73 6f 72 20 7b 0a 20 20 73 71 6c 69 74 65  ursor {.  sqlite
2e60: 33 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 62 61  3_vtab_cursor ba
2e70: 73 65 3b 20 20 2f 2a 20 42 61 73 65 20 63 6c 61  se;  /* Base cla
2e80: 73 73 20 2d 20 6d 75 73 74 20 62 65 20 66 69 72  ss - must be fir
2e90: 73 74 20 2a 2f 0a 0a 20 20 69 6e 74 20 6e 4c 76  st */..  int nLv
2ea0: 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l;              
2eb0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66      /* Number of
2ec0: 20 65 6e 74 72 69 65 73 20 69 6e 20 61 4c 76 6c   entries in aLvl
2ed0: 5b 5d 20 61 72 72 61 79 20 2a 2f 0a 20 20 69 6e  [] array */.  in
2ee0: 74 20 69 4c 76 6c 3b 20 20 20 20 20 20 20 20 20  t iLvl;         
2ef0: 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 64 65           /* Inde
2f00: 78 20 6f 66 20 63 75 72 72 65 6e 74 20 65 6e 74  x of current ent
2f10: 72 79 20 2a 2f 0a 20 20 46 73 64 69 72 4c 65 76  ry */.  FsdirLev
2f20: 65 6c 20 2a 61 4c 76 6c 3b 20 20 20 20 20 20 20  el *aLvl;       
2f30: 20 20 20 2f 2a 20 48 69 65 72 61 72 63 68 79 20     /* Hierarchy 
2f40: 6f 66 20 64 69 72 65 63 74 6f 72 69 65 73 20 62  of directories b
2f50: 65 69 6e 67 20 74 72 61 76 65 72 73 65 64 20 2a  eing traversed *
2f60: 2f 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  /..  const char 
2f70: 2a 7a 42 61 73 65 3b 0a 20 20 69 6e 74 20 6e 42  *zBase;.  int nB
2f80: 61 73 65 3b 0a 0a 20 20 73 74 72 75 63 74 20 73  ase;..  struct s
2f90: 74 61 74 20 73 53 74 61 74 3b 20 20 20 20 20 20  tat sStat;      
2fa0: 20 20 20 2f 2a 20 43 75 72 72 65 6e 74 20 6c 73     /* Current ls
2fb0: 74 61 74 28 29 20 72 65 73 75 6c 74 73 20 2a 2f  tat() results */
2fc0: 0a 20 20 63 68 61 72 20 2a 7a 50 61 74 68 3b 20  .  char *zPath; 
2fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2fe0: 20 50 61 74 68 20 74 6f 20 63 75 72 72 65 6e 74   Path to current
2ff0: 20 65 6e 74 72 79 20 2a 2f 0a 20 20 73 71 6c 69   entry */.  sqli
3000: 74 65 33 5f 69 6e 74 36 34 20 69 52 6f 77 69 64  te3_int64 iRowid
3010: 3b 20 20 20 20 20 20 2f 2a 20 43 75 72 72 65 6e  ;      /* Curren
3020: 74 20 72 6f 77 69 64 20 2a 2f 0a 7d 3b 0a 0a 74  t rowid */.};..t
3030: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 66 73  ypedef struct fs
3040: 64 69 72 5f 74 61 62 20 66 73 64 69 72 5f 74 61  dir_tab fsdir_ta
3050: 62 3b 0a 73 74 72 75 63 74 20 66 73 64 69 72 5f  b;.struct fsdir_
3060: 74 61 62 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  tab {.  sqlite3_
3070: 76 74 61 62 20 62 61 73 65 3b 20 20 20 20 20 20  vtab base;      
3080: 20 20 20 2f 2a 20 42 61 73 65 20 63 6c 61 73 73     /* Base class
3090: 20 2d 20 6d 75 73 74 20 62 65 20 66 69 72 73 74   - must be first
30a0: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6f   */.};../*.** Co
30b0: 6e 73 74 72 75 63 74 20 61 20 6e 65 77 20 66 73  nstruct a new fs
30c0: 64 69 72 20 76 69 72 74 75 61 6c 20 74 61 62 6c  dir virtual tabl
30d0: 65 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61  e object..*/.sta
30e0: 74 69 63 20 69 6e 74 20 66 73 64 69 72 43 6f 6e  tic int fsdirCon
30f0: 6e 65 63 74 28 0a 20 20 73 71 6c 69 74 65 33 20  nect(.  sqlite3 
3100: 2a 64 62 2c 0a 20 20 76 6f 69 64 20 2a 70 41 75  *db,.  void *pAu
3110: 78 2c 0a 20 20 69 6e 74 20 61 72 67 63 2c 20 63  x,.  int argc, c
3120: 6f 6e 73 74 20 63 68 61 72 20 2a 63 6f 6e 73 74  onst char *const
3130: 2a 61 72 67 76 2c 0a 20 20 73 71 6c 69 74 65 33  *argv,.  sqlite3
3140: 5f 76 74 61 62 20 2a 2a 70 70 56 74 61 62 2c 0a  _vtab **ppVtab,.
3150: 20 20 63 68 61 72 20 2a 2a 70 7a 45 72 72 0a 29    char **pzErr.)
3160: 7b 0a 20 20 66 73 64 69 72 5f 74 61 62 20 2a 70  {.  fsdir_tab *p
3170: 4e 65 77 20 3d 20 30 3b 0a 20 20 69 6e 74 20 72  New = 0;.  int r
3180: 63 3b 0a 20 20 28 76 6f 69 64 29 70 41 75 78 3b  c;.  (void)pAux;
3190: 0a 20 20 28 76 6f 69 64 29 61 72 67 63 3b 0a 20  .  (void)argc;. 
31a0: 20 28 76 6f 69 64 29 61 72 67 76 3b 0a 20 20 28   (void)argv;.  (
31b0: 76 6f 69 64 29 70 7a 45 72 72 3b 0a 20 20 72 63  void)pzErr;.  rc
31c0: 20 3d 20 73 71 6c 69 74 65 33 5f 64 65 63 6c 61   = sqlite3_decla
31d0: 72 65 5f 76 74 61 62 28 64 62 2c 20 22 43 52 45  re_vtab(db, "CRE
31e0: 41 54 45 20 54 41 42 4c 45 20 78 22 20 46 53 44  ATE TABLE x" FSD
31f0: 49 52 5f 53 43 48 45 4d 41 29 3b 0a 20 20 69 66  IR_SCHEMA);.  if
3200: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
3210: 29 7b 0a 20 20 20 20 70 4e 65 77 20 3d 20 28 66  ){.    pNew = (f
3220: 73 64 69 72 5f 74 61 62 2a 29 73 71 6c 69 74 65  sdir_tab*)sqlite
3230: 33 5f 6d 61 6c 6c 6f 63 28 20 73 69 7a 65 6f 66  3_malloc( sizeof
3240: 28 2a 70 4e 65 77 29 20 29 3b 0a 20 20 20 20 69  (*pNew) );.    i
3250: 66 28 20 70 4e 65 77 3d 3d 30 20 29 20 72 65 74  f( pNew==0 ) ret
3260: 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d  urn SQLITE_NOMEM
3270: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 4e 65  ;.    memset(pNe
3280: 77 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 4e  w, 0, sizeof(*pN
3290: 65 77 29 29 3b 0a 20 20 7d 0a 20 20 2a 70 70 56  ew));.  }.  *ppV
32a0: 74 61 62 20 3d 20 28 73 71 6c 69 74 65 33 5f 76  tab = (sqlite3_v
32b0: 74 61 62 2a 29 70 4e 65 77 3b 0a 20 20 72 65 74  tab*)pNew;.  ret
32c0: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  urn rc;.}../*.**
32d0: 20 54 68 69 73 20 6d 65 74 68 6f 64 20 69 73 20   This method is 
32e0: 74 68 65 20 64 65 73 74 72 75 63 74 6f 72 20 66  the destructor f
32f0: 6f 72 20 66 73 64 69 72 20 76 74 61 62 20 6f 62  or fsdir vtab ob
3300: 6a 65 63 74 73 2e 0a 2a 2f 0a 73 74 61 74 69 63  jects..*/.static
3310: 20 69 6e 74 20 66 73 64 69 72 44 69 73 63 6f 6e   int fsdirDiscon
3320: 6e 65 63 74 28 73 71 6c 69 74 65 33 5f 76 74 61  nect(sqlite3_vta
3330: 62 20 2a 70 56 74 61 62 29 7b 0a 20 20 73 71 6c  b *pVtab){.  sql
3340: 69 74 65 33 5f 66 72 65 65 28 70 56 74 61 62 29  ite3_free(pVtab)
3350: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ;.  return SQLIT
3360: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43  E_OK;.}../*.** C
3370: 6f 6e 73 74 72 75 63 74 6f 72 20 66 6f 72 20 61  onstructor for a
3380: 20 6e 65 77 20 66 73 64 69 72 5f 63 75 72 73 6f   new fsdir_curso
3390: 72 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 61  r object..*/.sta
33a0: 74 69 63 20 69 6e 74 20 66 73 64 69 72 4f 70 65  tic int fsdirOpe
33b0: 6e 28 73 71 6c 69 74 65 33 5f 76 74 61 62 20 2a  n(sqlite3_vtab *
33c0: 70 2c 20 73 71 6c 69 74 65 33 5f 76 74 61 62 5f  p, sqlite3_vtab_
33d0: 63 75 72 73 6f 72 20 2a 2a 70 70 43 75 72 73 6f  cursor **ppCurso
33e0: 72 29 7b 0a 20 20 66 73 64 69 72 5f 63 75 72 73  r){.  fsdir_curs
33f0: 6f 72 20 2a 70 43 75 72 3b 0a 20 20 28 76 6f 69  or *pCur;.  (voi
3400: 64 29 70 3b 0a 20 20 70 43 75 72 20 3d 20 73 71  d)p;.  pCur = sq
3410: 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 73 69  lite3_malloc( si
3420: 7a 65 6f 66 28 2a 70 43 75 72 29 20 29 3b 0a 20  zeof(*pCur) );. 
3430: 20 69 66 28 20 70 43 75 72 3d 3d 30 20 29 20 72   if( pCur==0 ) r
3440: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d  eturn SQLITE_NOM
3450: 45 4d 3b 0a 20 20 6d 65 6d 73 65 74 28 70 43 75  EM;.  memset(pCu
3460: 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 43  r, 0, sizeof(*pC
3470: 75 72 29 29 3b 0a 20 20 70 43 75 72 2d 3e 69 4c  ur));.  pCur->iL
3480: 76 6c 20 3d 20 2d 31 3b 0a 20 20 2a 70 70 43 75  vl = -1;.  *ppCu
3490: 72 73 6f 72 20 3d 20 26 70 43 75 72 2d 3e 62 61  rsor = &pCur->ba
34a0: 73 65 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  se;.  return SQL
34b0: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  ITE_OK;.}../*.**
34c0: 20 52 65 73 65 74 20 61 20 63 75 72 73 6f 72 20   Reset a cursor 
34d0: 62 61 63 6b 20 74 6f 20 74 68 65 20 73 74 61 74  back to the stat
34e0: 65 20 69 74 20 77 61 73 20 69 6e 20 77 68 65 6e  e it was in when
34f0: 20 66 69 72 73 74 20 72 65 74 75 72 6e 65 64 0a   first returned.
3500: 2a 2a 20 62 79 20 66 73 64 69 72 4f 70 65 6e 28  ** by fsdirOpen(
3510: 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  )..*/.static voi
3520: 64 20 66 73 64 69 72 52 65 73 65 74 43 75 72 73  d fsdirResetCurs
3530: 6f 72 28 66 73 64 69 72 5f 63 75 72 73 6f 72 20  or(fsdir_cursor 
3540: 2a 70 43 75 72 29 7b 0a 20 20 69 6e 74 20 69 3b  *pCur){.  int i;
3550: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 3d 70  .  for(i=0; i<=p
3560: 43 75 72 2d 3e 69 4c 76 6c 3b 20 69 2b 2b 29 7b  Cur->iLvl; i++){
3570: 0a 20 20 20 20 46 73 64 69 72 4c 65 76 65 6c 20  .    FsdirLevel 
3580: 2a 70 4c 76 6c 20 3d 20 26 70 43 75 72 2d 3e 61  *pLvl = &pCur->a
3590: 4c 76 6c 5b 69 5d 3b 0a 20 20 20 20 69 66 28 20  Lvl[i];.    if( 
35a0: 70 4c 76 6c 2d 3e 70 44 69 72 20 29 20 63 6c 6f  pLvl->pDir ) clo
35b0: 73 65 64 69 72 28 70 4c 76 6c 2d 3e 70 44 69 72  sedir(pLvl->pDir
35c0: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  );.    sqlite3_f
35d0: 72 65 65 28 70 4c 76 6c 2d 3e 7a 44 69 72 29 3b  ree(pLvl->zDir);
35e0: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 66  .  }.  sqlite3_f
35f0: 72 65 65 28 70 43 75 72 2d 3e 7a 50 61 74 68 29  ree(pCur->zPath)
3600: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65  ;.  sqlite3_free
3610: 28 70 43 75 72 2d 3e 61 4c 76 6c 29 3b 0a 20 20  (pCur->aLvl);.  
3620: 70 43 75 72 2d 3e 61 4c 76 6c 20 3d 20 30 3b 0a  pCur->aLvl = 0;.
3630: 20 20 70 43 75 72 2d 3e 7a 50 61 74 68 20 3d 20    pCur->zPath = 
3640: 30 3b 0a 20 20 70 43 75 72 2d 3e 7a 42 61 73 65  0;.  pCur->zBase
3650: 20 3d 20 30 3b 0a 20 20 70 43 75 72 2d 3e 6e 42   = 0;.  pCur->nB
3660: 61 73 65 20 3d 20 30 3b 0a 20 20 70 43 75 72 2d  ase = 0;.  pCur-
3670: 3e 69 4c 76 6c 20 3d 20 2d 31 3b 0a 20 20 70 43  >iLvl = -1;.  pC
3680: 75 72 2d 3e 69 52 6f 77 69 64 20 3d 20 31 3b 0a  ur->iRowid = 1;.
3690: 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 73 74 72 75 63  }../*.** Destruc
36a0: 74 6f 72 20 66 6f 72 20 61 6e 20 66 73 64 69 72  tor for an fsdir
36b0: 5f 63 75 72 73 6f 72 2e 0a 2a 2f 0a 73 74 61 74  _cursor..*/.stat
36c0: 69 63 20 69 6e 74 20 66 73 64 69 72 43 6c 6f 73  ic int fsdirClos
36d0: 65 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63  e(sqlite3_vtab_c
36e0: 75 72 73 6f 72 20 2a 63 75 72 29 7b 0a 20 20 66  ursor *cur){.  f
36f0: 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70 43 75  sdir_cursor *pCu
3700: 72 20 3d 20 28 66 73 64 69 72 5f 63 75 72 73 6f  r = (fsdir_curso
3710: 72 2a 29 63 75 72 3b 0a 0a 20 20 66 73 64 69 72  r*)cur;..  fsdir
3720: 52 65 73 65 74 43 75 72 73 6f 72 28 70 43 75 72  ResetCursor(pCur
3730: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65  );.  sqlite3_fre
3740: 65 28 70 43 75 72 29 3b 0a 20 20 72 65 74 75 72  e(pCur);.  retur
3750: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a  n SQLITE_OK;.}..
3760: 2f 2a 0a 2a 2a 20 53 65 74 20 74 68 65 20 65 72  /*.** Set the er
3770: 72 6f 72 20 6d 65 73 73 61 67 65 20 66 6f 72 20  ror message for 
3780: 74 68 65 20 76 69 72 74 75 61 6c 20 74 61 62 6c  the virtual tabl
3790: 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74  e associated wit
37a0: 68 20 63 75 72 73 6f 72 0a 2a 2a 20 70 43 75 72  h cursor.** pCur
37b0: 20 74 6f 20 74 68 65 20 72 65 73 75 6c 74 73 20   to the results 
37c0: 6f 66 20 76 70 72 69 6e 74 66 28 7a 46 6d 74 2c  of vprintf(zFmt,
37d0: 20 2e 2e 2e 29 2e 0a 2a 2f 0a 73 74 61 74 69 63   ...)..*/.static
37e0: 20 76 6f 69 64 20 66 73 64 69 72 53 65 74 45 72   void fsdirSetEr
37f0: 72 6d 73 67 28 66 73 64 69 72 5f 63 75 72 73 6f  rmsg(fsdir_curso
3800: 72 20 2a 70 43 75 72 2c 20 63 6f 6e 73 74 20 63  r *pCur, const c
3810: 68 61 72 20 2a 7a 46 6d 74 2c 20 2e 2e 2e 29 7b  har *zFmt, ...){
3820: 0a 20 20 76 61 5f 6c 69 73 74 20 61 70 3b 0a 20  .  va_list ap;. 
3830: 20 76 61 5f 73 74 61 72 74 28 61 70 2c 20 7a 46   va_start(ap, zF
3840: 6d 74 29 3b 0a 20 20 70 43 75 72 2d 3e 62 61 73  mt);.  pCur->bas
3850: 65 2e 70 56 74 61 62 2d 3e 7a 45 72 72 4d 73 67  e.pVtab->zErrMsg
3860: 20 3d 20 73 71 6c 69 74 65 33 5f 76 6d 70 72 69   = sqlite3_vmpri
3870: 6e 74 66 28 7a 46 6d 74 2c 20 61 70 29 3b 0a 20  ntf(zFmt, ap);. 
3880: 20 76 61 5f 65 6e 64 28 61 70 29 3b 0a 7d 0a 0a   va_end(ap);.}..
3890: 0a 2f 2a 0a 2a 2a 20 41 64 76 61 6e 63 65 20 61  ./*.** Advance a
38a0: 6e 20 66 73 64 69 72 5f 63 75 72 73 6f 72 20 74  n fsdir_cursor t
38b0: 6f 20 69 74 73 20 6e 65 78 74 20 72 6f 77 20 6f  o its next row o
38c0: 66 20 6f 75 74 70 75 74 2e 0a 2a 2f 0a 73 74 61  f output..*/.sta
38d0: 74 69 63 20 69 6e 74 20 66 73 64 69 72 4e 65 78  tic int fsdirNex
38e0: 74 28 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63  t(sqlite3_vtab_c
38f0: 75 72 73 6f 72 20 2a 63 75 72 29 7b 0a 20 20 66  ursor *cur){.  f
3900: 73 64 69 72 5f 63 75 72 73 6f 72 20 2a 70 43 75  sdir_cursor *pCu
3910: 72 20 3d 20 28 66 73 64 69 72 5f 63 75 72 73 6f  r = (fsdir_curso
3920: 72 2a 29 63 75 72 3b 0a 20 20 6d 6f 64 65 5f 74  r*)cur;.  mode_t
3930: 20 6d 20 3d 20 70 43 75 72 2d 3e 73 53 74 61 74   m = pCur->sStat
3940: 2e 73 74 5f 6d 6f 64 65 3b 0a 0a 20 20 70 43 75  .st_mode;..  pCu
3950: 72 2d 3e 69 52 6f 77 69 64 2b 2b 3b 0a 20 20 69  r->iRowid++;.  i
3960: 66 28 20 53 5f 49 53 44 49 52 28 6d 29 20 29 7b  f( S_ISDIR(m) ){
3970: 0a 20 20 20 20 2f 2a 20 44 65 73 63 65 6e 64 20  .    /* Descend 
3980: 69 6e 74 6f 20 74 68 69 73 20 64 69 72 65 63 74  into this direct
3990: 6f 72 79 20 2a 2f 0a 20 20 20 20 69 6e 74 20 69  ory */.    int i
39a0: 4e 65 77 20 3d 20 70 43 75 72 2d 3e 69 4c 76 6c  New = pCur->iLvl
39b0: 20 2b 20 31 3b 0a 20 20 20 20 46 73 64 69 72 4c   + 1;.    FsdirL
39c0: 65 76 65 6c 20 2a 70 4c 76 6c 3b 0a 20 20 20 20  evel *pLvl;.    
39d0: 69 66 28 20 69 4e 65 77 3e 3d 70 43 75 72 2d 3e  if( iNew>=pCur->
39e0: 6e 4c 76 6c 20 29 7b 0a 20 20 20 20 20 20 69 6e  nLvl ){.      in
39f0: 74 20 6e 4e 65 77 20 3d 20 69 4e 65 77 2b 31 3b  t nNew = iNew+1;
3a00: 0a 20 20 20 20 20 20 69 6e 74 20 6e 42 79 74 65  .      int nByte
3a10: 20 3d 20 6e 4e 65 77 2a 73 69 7a 65 6f 66 28 46   = nNew*sizeof(F
3a20: 73 64 69 72 4c 65 76 65 6c 29 3b 0a 20 20 20 20  sdirLevel);.    
3a30: 20 20 46 73 64 69 72 4c 65 76 65 6c 20 2a 61 4e    FsdirLevel *aN
3a40: 65 77 20 3d 20 28 46 73 64 69 72 4c 65 76 65 6c  ew = (FsdirLevel
3a50: 2a 29 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f  *)sqlite3_reallo
3a60: 63 28 70 43 75 72 2d 3e 61 4c 76 6c 2c 20 6e 42  c(pCur->aLvl, nB
3a70: 79 74 65 29 3b 0a 20 20 20 20 20 20 69 66 28 20  yte);.      if( 
3a80: 61 4e 65 77 3d 3d 30 20 29 20 72 65 74 75 72 6e  aNew==0 ) return
3a90: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20   SQLITE_NOMEM;. 
3aa0: 20 20 20 20 20 6d 65 6d 73 65 74 28 26 61 4e 65       memset(&aNe
3ab0: 77 5b 70 43 75 72 2d 3e 6e 4c 76 6c 5d 2c 20 30  w[pCur->nLvl], 0
3ac0: 2c 20 73 69 7a 65 6f 66 28 46 73 64 69 72 4c 65  , sizeof(FsdirLe
3ad0: 76 65 6c 29 2a 28 6e 4e 65 77 2d 70 43 75 72 2d  vel)*(nNew-pCur-
3ae0: 3e 6e 4c 76 6c 29 29 3b 0a 20 20 20 20 20 20 70  >nLvl));.      p
3af0: 43 75 72 2d 3e 61 4c 76 6c 20 3d 20 61 4e 65 77  Cur->aLvl = aNew
3b00: 3b 0a 20 20 20 20 20 20 70 43 75 72 2d 3e 6e 4c  ;.      pCur->nL
3b10: 76 6c 20 3d 20 6e 4e 65 77 3b 0a 20 20 20 20 7d  vl = nNew;.    }
3b20: 0a 20 20 20 20 70 43 75 72 2d 3e 69 4c 76 6c 20  .    pCur->iLvl 
3b30: 3d 20 69 4e 65 77 3b 0a 20 20 20 20 70 4c 76 6c  = iNew;.    pLvl
3b40: 20 3d 20 26 70 43 75 72 2d 3e 61 4c 76 6c 5b 69   = &pCur->aLvl[i
3b50: 4e 65 77 5d 3b 0a 20 20 20 20 0a 20 20 20 20 70  New];.    .    p
3b60: 4c 76 6c 2d 3e 7a 44 69 72 20 3d 20 70 43 75 72  Lvl->zDir = pCur
3b70: 2d 3e 7a 50 61 74 68 3b 0a 20 20 20 20 70 43 75  ->zPath;.    pCu
3b80: 72 2d 3e 7a 50 61 74 68 20 3d 20 30 3b 0a 20 20  r->zPath = 0;.  
3b90: 20 20 70 4c 76 6c 2d 3e 70 44 69 72 20 3d 20 6f    pLvl->pDir = o
3ba0: 70 65 6e 64 69 72 28 70 4c 76 6c 2d 3e 7a 44 69  pendir(pLvl->zDi
3bb0: 72 29 3b 0a 20 20 20 20 69 66 28 20 70 4c 76 6c  r);.    if( pLvl
3bc0: 2d 3e 70 44 69 72 3d 3d 30 20 29 7b 0a 20 20 20  ->pDir==0 ){.   
3bd0: 20 20 20 66 73 64 69 72 53 65 74 45 72 72 6d 73     fsdirSetErrms
3be0: 67 28 70 43 75 72 2c 20 22 63 61 6e 6e 6f 74 20  g(pCur, "cannot 
3bf0: 72 65 61 64 20 64 69 72 65 63 74 6f 72 79 3a 20  read directory: 
3c00: 25 73 22 2c 20 70 43 75 72 2d 3e 7a 50 61 74 68  %s", pCur->zPath
3c10: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  );.      return 
3c20: 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20  SQLITE_ERROR;.  
3c30: 20 20 7d 0a 20 20 7d 0a 0a 20 20 77 68 69 6c 65    }.  }..  while
3c40: 28 20 70 43 75 72 2d 3e 69 4c 76 6c 3e 3d 30 20  ( pCur->iLvl>=0 
3c50: 29 7b 0a 20 20 20 20 46 73 64 69 72 4c 65 76 65  ){.    FsdirLeve
3c60: 6c 20 2a 70 4c 76 6c 20 3d 20 26 70 43 75 72 2d  l *pLvl = &pCur-
3c70: 3e 61 4c 76 6c 5b 70 43 75 72 2d 3e 69 4c 76 6c  >aLvl[pCur->iLvl
3c80: 5d 3b 0a 20 20 20 20 73 74 72 75 63 74 20 64 69  ];.    struct di
3c90: 72 65 6e 74 20 2a 70 45 6e 74 72 79 20 3d 20 72  rent *pEntry = r
3ca0: 65 61 64 64 69 72 28 70 4c 76 6c 2d 3e 70 44 69  eaddir(pLvl->pDi
3cb0: 72 29 3b 0a 20 20 20 20 69 66 28 20 70 45 6e 74  r);.    if( pEnt
3cc0: 72 79 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  ry ){.      if( 
3cd0: 70 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 5b 30  pEntry->d_name[0
3ce0: 5d 3d 3d 27 2e 27 20 29 7b 0a 20 20 20 20 20 20  ]=='.' ){.      
3cf0: 20 69 66 28 20 70 45 6e 74 72 79 2d 3e 64 5f 6e   if( pEntry->d_n
3d00: 61 6d 65 5b 31 5d 3d 3d 27 2e 27 20 26 26 20 70  ame[1]=='.' && p
3d10: 45 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 5b 32 5d  Entry->d_name[2]
3d20: 3d 3d 27 5c 30 27 20 29 20 63 6f 6e 74 69 6e 75  =='\0' ) continu
3d30: 65 3b 0a 20 20 20 20 20 20 20 69 66 28 20 70 45  e;.       if( pE
3d40: 6e 74 72 79 2d 3e 64 5f 6e 61 6d 65 5b 31 5d 3d  ntry->d_name[1]=
3d50: 3d 27 5c 30 27 20 29 20 63 6f 6e 74 69 6e 75 65  ='\0' ) continue
3d60: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
3d70: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 70 43 75  sqlite3_free(pCu
3d80: 72 2d 3e 7a 50 61 74 68 29 3b 0a 20 20 20 20 20  r->zPath);.     
3d90: 20 70 43 75 72 2d 3e 7a 50 61 74 68 20 3d 20 73   pCur->zPath = s
3da0: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22  qlite3_mprintf("
3db0: 25 73 2f 25 73 22 2c 20 70 4c 76 6c 2d 3e 7a 44  %s/%s", pLvl->zD
3dc0: 69 72 2c 20 70 45 6e 74 72 79 2d 3e 64 5f 6e 61  ir, pEntry->d_na
3dd0: 6d 65 29 3b 0a 20 20 20 20 20 20 69 66 28 20 70  me);.      if( p
3de0: 43 75 72 2d 3e 7a 50 61 74 68 3d 3d 30 20 29 20  Cur->zPath==0 ) 
3df0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f  return SQLITE_NO
3e00: 4d 45 4d 3b 0a 20 20 20 20 20 20 69 66 28 20 6c  MEM;.      if( l
3e10: 73 74 61 74 28 70 43 75 72 2d 3e 7a 50 61 74 68  stat(pCur->zPath
3e20: 2c 20 26 70 43 75 72 2d 3e 73 53 74 61 74 29 20  , &pCur->sStat) 
3e30: 29 7b 0a 20 20 20 20 20 20 20 20 66 73 64 69 72  ){.        fsdir
3e40: 53 65 74 45 72 72 6d 73 67 28 70 43 75 72 2c 20  SetErrmsg(pCur, 
3e50: 22 63 61 6e 6e 6f 74 20 73 74 61 74 20 66 69 6c  "cannot stat fil
3e60: 65 3a 20 25 73 22 2c 20 70 43 75 72 2d 3e 7a 50  e: %s", pCur->zP
3e70: 61 74 68 29 3b 0a 20 20 20 20 20 20 20 20 72 65  ath);.        re
3e80: 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f  turn SQLITE_ERRO
3e90: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  R;.      }.     
3ea0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
3eb0: 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6c 6f  K;.    }.    clo
3ec0: 73 65 64 69 72 28 70 4c 76 6c 2d 3e 70 44 69 72  sedir(pLvl->pDir
3ed0: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  );.    sqlite3_f
3ee0: 72 65 65 28 70 4c 76 6c 2d 3e 7a 44 69 72 29 3b  ree(pLvl->zDir);
3ef0: 0a 20 20 20 20 70 4c 76 6c 2d 3e 70 44 69 72 20  .    pLvl->pDir 
3f00: 3d 20 30 3b 0a 20 20 20 20 70 4c 76 6c 2d 3e 7a  = 0;.    pLvl->z
3f10: 44 69 72 20 3d 20 30 3b 0a 20 20 20 20 70 43 75  Dir = 0;.    pCu
3f20: 72 2d 3e 69 4c 76 6c 2d 2d 3b 0a 20 20 7d 0a 0a  r->iLvl--;.  }..
3f30: 20 20 2f 2a 20 45 4f 46 20 2a 2f 0a 20 20 73 71    /* EOF */.  sq
3f40: 6c 69 74 65 33 5f 66 72 65 65 28 70 43 75 72 2d  lite3_free(pCur-
3f50: 3e 7a 50 61 74 68 29 3b 0a 20 20 70 43 75 72 2d  >zPath);.  pCur-
3f60: 3e 7a 50 61 74 68 20 3d 20 30 3b 0a 20 20 72 65  >zPath = 0;.  re
3f70: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
3f80: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
3f90: 76 61 6c 75 65 73 20 6f 66 20 63 6f 6c 75 6d 6e  values of column
3fa0: 73 20 66 6f 72 20 74 68 65 20 72 6f 77 20 61 74  s for the row at
3fb0: 20 77 68 69 63 68 20 74 68 65 20 73 65 72 69 65   which the serie
3fc0: 73 5f 63 75 72 73 6f 72 0a 2a 2a 20 69 73 20 63  s_cursor.** is c
3fd0: 75 72 72 65 6e 74 6c 79 20 70 6f 69 6e 74 69 6e  urrently pointin
3fe0: 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  g..*/.static int
3ff0: 20 66 73 64 69 72 43 6f 6c 75 6d 6e 28 0a 20 20   fsdirColumn(.  
4000: 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63 75 72  sqlite3_vtab_cur
4010: 73 6f 72 20 2a 63 75 72 2c 20 20 20 2f 2a 20 54  sor *cur,   /* T
4020: 68 65 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20 73  he cursor */.  s
4030: 71 6c 69 74 65 33 5f 63 6f 6e 74 65 78 74 20 2a  qlite3_context *
4040: 63 74 78 2c 20 20 20 20 20 20 20 2f 2a 20 46 69  ctx,       /* Fi
4050: 72 73 74 20 61 72 67 75 6d 65 6e 74 20 74 6f 20  rst argument to 
4060: 73 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 2e  sqlite3_result_.
4070: 2e 2e 28 29 20 2a 2f 0a 20 20 69 6e 74 20 69 20  ..() */.  int i 
4080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4090: 20 20 20 20 20 20 2f 2a 20 57 68 69 63 68 20 63        /* Which c
40a0: 6f 6c 75 6d 6e 20 74 6f 20 72 65 74 75 72 6e 20  olumn to return 
40b0: 2a 2f 0a 29 7b 0a 20 20 66 73 64 69 72 5f 63 75  */.){.  fsdir_cu
40c0: 72 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 66 73  rsor *pCur = (fs
40d0: 64 69 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b  dir_cursor*)cur;
40e0: 0a 20 20 73 77 69 74 63 68 28 20 69 20 29 7b 0a  .  switch( i ){.
40f0: 20 20 20 20 63 61 73 65 20 30 3a 20 7b 20 2f 2a      case 0: { /*
4100: 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 20 20 73   name */.      s
4110: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
4120: 78 74 28 63 74 78 2c 20 26 70 43 75 72 2d 3e 7a  xt(ctx, &pCur->z
4130: 50 61 74 68 5b 70 43 75 72 2d 3e 6e 42 61 73 65  Path[pCur->nBase
4140: 5d 2c 20 2d 31 2c 20 53 51 4c 49 54 45 5f 54 52  ], -1, SQLITE_TR
4150: 41 4e 53 49 45 4e 54 29 3b 0a 20 20 20 20 20 20  ANSIENT);.      
4160: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20  break;.    }..  
4170: 20 20 63 61 73 65 20 31 3a 20 2f 2a 20 6d 6f 64    case 1: /* mod
4180: 65 20 2a 2f 0a 20 20 20 20 20 20 73 71 6c 69 74  e */.      sqlit
4190: 65 33 5f 72 65 73 75 6c 74 5f 69 6e 74 36 34 28  e3_result_int64(
41a0: 63 74 78 2c 20 70 43 75 72 2d 3e 73 53 74 61 74  ctx, pCur->sStat
41b0: 2e 73 74 5f 6d 6f 64 65 29 3b 0a 20 20 20 20 20  .st_mode);.     
41c0: 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20 63 61 73   break;..    cas
41d0: 65 20 32 3a 20 2f 2a 20 6d 74 69 6d 65 20 2a 2f  e 2: /* mtime */
41e0: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72  .      sqlite3_r
41f0: 65 73 75 6c 74 5f 69 6e 74 36 34 28 63 74 78 2c  esult_int64(ctx,
4200: 20 70 43 75 72 2d 3e 73 53 74 61 74 2e 73 74 5f   pCur->sStat.st_
4210: 6d 74 69 6d 65 29 3b 0a 20 20 20 20 20 20 62 72  mtime);.      br
4220: 65 61 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 33  eak;..    case 3
4230: 3a 20 7b 20 2f 2a 20 64 61 74 61 20 2a 2f 0a 20  : { /* data */. 
4240: 20 20 20 20 20 6d 6f 64 65 5f 74 20 6d 20 3d 20       mode_t m = 
4250: 70 43 75 72 2d 3e 73 53 74 61 74 2e 73 74 5f 6d  pCur->sStat.st_m
4260: 6f 64 65 3b 0a 20 20 20 20 20 20 69 66 28 20 53  ode;.      if( S
4270: 5f 49 53 44 49 52 28 6d 29 20 29 7b 0a 20 20 20  _ISDIR(m) ){.   
4280: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 72 65 73       sqlite3_res
4290: 75 6c 74 5f 6e 75 6c 6c 28 63 74 78 29 3b 0a 23  ult_null(ctx);.#
42a0: 69 66 20 21 64 65 66 69 6e 65 64 28 5f 57 49 4e  if !defined(_WIN
42b0: 33 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 28  32) && !defined(
42c0: 57 49 4e 33 32 29 0a 20 20 20 20 20 20 7d 65 6c  WIN32).      }el
42d0: 73 65 20 69 66 28 20 53 5f 49 53 4c 4e 4b 28 6d  se if( S_ISLNK(m
42e0: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 63 68 61  ) ){.        cha
42f0: 72 20 61 53 74 61 74 69 63 5b 36 34 5d 3b 0a 20  r aStatic[64];. 
4300: 20 20 20 20 20 20 20 63 68 61 72 20 2a 61 42 75         char *aBu
4310: 66 20 3d 20 61 53 74 61 74 69 63 3b 0a 20 20 20  f = aStatic;.   
4320: 20 20 20 20 20 69 6e 74 20 6e 42 75 66 20 3d 20       int nBuf = 
4330: 36 34 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20  64;.        int 
4340: 6e 3b 0a 0a 20 20 20 20 20 20 20 20 77 68 69 6c  n;..        whil
4350: 65 28 20 31 20 29 7b 0a 20 20 20 20 20 20 20 20  e( 1 ){.        
4360: 20 20 6e 20 3d 20 72 65 61 64 6c 69 6e 6b 28 70    n = readlink(p
4370: 43 75 72 2d 3e 7a 50 61 74 68 2c 20 61 42 75 66  Cur->zPath, aBuf
4380: 2c 20 6e 42 75 66 29 3b 0a 20 20 20 20 20 20 20  , nBuf);.       
4390: 20 20 20 69 66 28 20 6e 3c 6e 42 75 66 20 29 20     if( n<nBuf ) 
43a0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 20  break;.         
43b0: 20 69 66 28 20 61 42 75 66 21 3d 61 53 74 61 74   if( aBuf!=aStat
43c0: 69 63 20 29 20 73 71 6c 69 74 65 33 5f 66 72 65  ic ) sqlite3_fre
43d0: 65 28 61 42 75 66 29 3b 0a 20 20 20 20 20 20 20  e(aBuf);.       
43e0: 20 20 20 6e 42 75 66 20 3d 20 6e 42 75 66 2a 32     nBuf = nBuf*2
43f0: 3b 0a 20 20 20 20 20 20 20 20 20 20 61 42 75 66  ;.          aBuf
4400: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f   = sqlite3_mallo
4410: 63 28 6e 42 75 66 29 3b 0a 20 20 20 20 20 20 20  c(nBuf);.       
4420: 20 20 20 69 66 28 20 61 42 75 66 3d 3d 30 20 29     if( aBuf==0 )
4430: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 71  {.            sq
4440: 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 65 72 72  lite3_result_err
4450: 6f 72 5f 6e 6f 6d 65 6d 28 63 74 78 29 3b 0a 20  or_nomem(ctx);. 
4460: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
4470: 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a  n SQLITE_NOMEM;.
4480: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
4490: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 73      }..        s
44a0: 71 6c 69 74 65 33 5f 72 65 73 75 6c 74 5f 74 65  qlite3_result_te
44b0: 78 74 28 63 74 78 2c 20 61 42 75 66 2c 20 6e 2c  xt(ctx, aBuf, n,
44c0: 20 53 51 4c 49 54 45 5f 54 52 41 4e 53 49 45 4e   SQLITE_TRANSIEN
44d0: 54 29 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  T);.        if( 
44e0: 61 42 75 66 21 3d 61 53 74 61 74 69 63 20 29 20  aBuf!=aStatic ) 
44f0: 73 71 6c 69 74 65 33 5f 66 72 65 65 28 61 42 75  sqlite3_free(aBu
4500: 66 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 20  f);.#endif.     
4510: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20 20   }else{.        
4520: 72 65 61 64 46 69 6c 65 43 6f 6e 74 65 6e 74 73  readFileContents
4530: 28 63 74 78 2c 20 70 43 75 72 2d 3e 7a 50 61 74  (ctx, pCur->zPat
4540: 68 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  h);.      }.    
4550: 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 53  }.  }.  return S
4560: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  QLITE_OK;.}../*.
4570: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 72 6f  ** Return the ro
4580: 77 69 64 20 66 6f 72 20 74 68 65 20 63 75 72 72  wid for the curr
4590: 65 6e 74 20 72 6f 77 2e 20 49 6e 20 74 68 69 73  ent row. In this
45a0: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2c   implementation,
45b0: 20 74 68 65 0a 2a 2a 20 66 69 72 73 74 20 72 6f   the.** first ro
45c0: 77 20 72 65 74 75 72 6e 65 64 20 69 73 20 61 73  w returned is as
45d0: 73 69 67 6e 65 64 20 72 6f 77 69 64 20 76 61 6c  signed rowid val
45e0: 75 65 20 31 2c 20 61 6e 64 20 65 61 63 68 20 73  ue 1, and each s
45f0: 75 62 73 65 71 75 65 6e 74 0a 2a 2a 20 72 6f 77  ubsequent.** row
4600: 20 61 20 76 61 6c 75 65 20 31 20 6d 6f 72 65 20   a value 1 more 
4610: 74 68 61 6e 20 74 68 61 74 20 6f 66 20 74 68 65  than that of the
4620: 20 70 72 65 76 69 6f 75 73 2e 0a 2a 2f 0a 73 74   previous..*/.st
4630: 61 74 69 63 20 69 6e 74 20 66 73 64 69 72 52 6f  atic int fsdirRo
4640: 77 69 64 28 73 71 6c 69 74 65 33 5f 76 74 61 62  wid(sqlite3_vtab
4650: 5f 63 75 72 73 6f 72 20 2a 63 75 72 2c 20 73 71  _cursor *cur, sq
4660: 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70 52 6f 77  lite_int64 *pRow
4670: 69 64 29 7b 0a 20 20 66 73 64 69 72 5f 63 75 72  id){.  fsdir_cur
4680: 73 6f 72 20 2a 70 43 75 72 20 3d 20 28 66 73 64  sor *pCur = (fsd
4690: 69 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b 0a  ir_cursor*)cur;.
46a0: 20 20 2a 70 52 6f 77 69 64 20 3d 20 70 43 75 72    *pRowid = pCur
46b0: 2d 3e 69 52 6f 77 69 64 3b 0a 20 20 72 65 74 75  ->iRowid;.  retu
46c0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a  rn SQLITE_OK;.}.
46d0: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52  ./*.** Return TR
46e0: 55 45 20 69 66 20 74 68 65 20 63 75 72 73 6f 72  UE if the cursor
46f0: 20 68 61 73 20 62 65 65 6e 20 6d 6f 76 65 64 20   has been moved 
4700: 6f 66 66 20 6f 66 20 74 68 65 20 6c 61 73 74 0a  off of the last.
4710: 2a 2a 20 72 6f 77 20 6f 66 20 6f 75 74 70 75 74  ** row of output
4720: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
4730: 66 73 64 69 72 45 6f 66 28 73 71 6c 69 74 65 33  fsdirEof(sqlite3
4740: 5f 76 74 61 62 5f 63 75 72 73 6f 72 20 2a 63 75  _vtab_cursor *cu
4750: 72 29 7b 0a 20 20 66 73 64 69 72 5f 63 75 72 73  r){.  fsdir_curs
4760: 6f 72 20 2a 70 43 75 72 20 3d 20 28 66 73 64 69  or *pCur = (fsdi
4770: 72 5f 63 75 72 73 6f 72 2a 29 63 75 72 3b 0a 20  r_cursor*)cur;. 
4780: 20 72 65 74 75 72 6e 20 28 70 43 75 72 2d 3e 7a   return (pCur->z
4790: 50 61 74 68 3d 3d 30 29 3b 0a 7d 0a 0a 2f 2a 0a  Path==0);.}../*.
47a0: 2a 2a 20 78 46 69 6c 74 65 72 20 63 61 6c 6c 62  ** xFilter callb
47b0: 61 63 6b 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ack..*/.static i
47c0: 6e 74 20 66 73 64 69 72 46 69 6c 74 65 72 28 0a  nt fsdirFilter(.
47d0: 20 20 73 71 6c 69 74 65 33 5f 76 74 61 62 5f 63    sqlite3_vtab_c
47e0: 75 72 73 6f 72 20 2a 63 75 72 2c 20 0a 20 20 69  ursor *cur, .  i
47f0: 6e 74 20 69 64 78 4e 75 6d 2c 20 63 6f 6e 73 74  nt idxNum, const
4800: 20 63 68 61 72 20 2a 69 64 78 53 74 72 2c 0a 20   char *idxStr,. 
4810: 20 69 6e 74 20 61 72 67 63 2c 20 73 71 6c 69 74   int argc, sqlit
4820: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
4830: 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  ){.  const char 
4840: 2a 7a 44 69 72 20 3d 20 30 3b 0a 20 20 66 73 64  *zDir = 0;.  fsd
4850: 69 72 5f 63 75 72 73 6f 72 20 2a 70 43 75 72 20  ir_cursor *pCur 
4860: 3d 20 28 66 73 64 69 72 5f 63 75 72 73 6f 72 2a  = (fsdir_cursor*
4870: 29 63 75 72 3b 0a 20 20 28 76 6f 69 64 29 69 64  )cur;.  (void)id
4880: 78 53 74 72 3b 0a 20 20 66 73 64 69 72 52 65 73  xStr;.  fsdirRes
4890: 65 74 43 75 72 73 6f 72 28 70 43 75 72 29 3b 0a  etCursor(pCur);.
48a0: 0a 20 20 69 66 28 20 69 64 78 4e 75 6d 3d 3d 30  .  if( idxNum==0
48b0: 20 29 7b 0a 20 20 20 20 66 73 64 69 72 53 65 74   ){.    fsdirSet
48c0: 45 72 72 6d 73 67 28 70 43 75 72 2c 20 22 74 61  Errmsg(pCur, "ta
48d0: 62 6c 65 20 66 75 6e 63 74 69 6f 6e 20 66 73 64  ble function fsd
48e0: 69 72 20 72 65 71 75 69 72 65 73 20 61 6e 20 61  ir requires an a
48f0: 72 67 75 6d 65 6e 74 22 29 3b 0a 20 20 20 20 72  rgument");.    r
4900: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52  eturn SQLITE_ERR
4910: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 61 73 73 65 72  OR;.  }..  asser
4920: 74 28 20 61 72 67 63 3d 3d 69 64 78 4e 75 6d 20  t( argc==idxNum 
4930: 26 26 20 28 61 72 67 63 3d 3d 31 20 7c 7c 20 61  && (argc==1 || a
4940: 72 67 63 3d 3d 32 29 20 29 3b 0a 20 20 7a 44 69  rgc==2) );.  zDi
4950: 72 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a  r = (const char*
4960: 29 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74  )sqlite3_value_t
4970: 65 78 74 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20  ext(argv[0]);.  
4980: 69 66 28 20 7a 44 69 72 3d 3d 30 20 29 7b 0a 20  if( zDir==0 ){. 
4990: 20 20 20 66 73 64 69 72 53 65 74 45 72 72 6d 73     fsdirSetErrms
49a0: 67 28 70 43 75 72 2c 20 22 74 61 62 6c 65 20 66  g(pCur, "table f
49b0: 75 6e 63 74 69 6f 6e 20 66 73 64 69 72 20 72 65  unction fsdir re
49c0: 71 75 69 72 65 73 20 61 20 6e 6f 6e 2d 4e 55 4c  quires a non-NUL
49d0: 4c 20 61 72 67 75 6d 65 6e 74 22 29 3b 0a 20 20  L argument");.  
49e0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
49f0: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28  ERROR;.  }.  if(
4a00: 20 61 72 67 63 3d 3d 32 20 29 7b 0a 20 20 20 20   argc==2 ){.    
4a10: 70 43 75 72 2d 3e 7a 42 61 73 65 20 3d 20 28 63  pCur->zBase = (c
4a20: 6f 6e 73 74 20 63 68 61 72 2a 29 73 71 6c 69 74  onst char*)sqlit
4a30: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 61 72  e3_value_text(ar
4a40: 67 76 5b 31 5d 29 3b 0a 20 20 7d 0a 20 20 69 66  gv[1]);.  }.  if
4a50: 28 20 70 43 75 72 2d 3e 7a 42 61 73 65 20 29 7b  ( pCur->zBase ){
4a60: 0a 20 20 20 20 70 43 75 72 2d 3e 6e 42 61 73 65  .    pCur->nBase
4a70: 20 3d 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 70   = (int)strlen(p
4a80: 43 75 72 2d 3e 7a 42 61 73 65 29 2b 31 3b 0a 20  Cur->zBase)+1;. 
4a90: 20 20 20 70 43 75 72 2d 3e 7a 50 61 74 68 20 3d     pCur->zPath =
4aa0: 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66   sqlite3_mprintf
4ab0: 28 22 25 73 2f 25 73 22 2c 20 70 43 75 72 2d 3e  ("%s/%s", pCur->
4ac0: 7a 42 61 73 65 2c 20 7a 44 69 72 29 3b 0a 20 20  zBase, zDir);.  
4ad0: 7d 65 6c 73 65 7b 0a 20 20 20 20 70 43 75 72 2d  }else{.    pCur-
4ae0: 3e 7a 50 61 74 68 20 3d 20 73 71 6c 69 74 65 33  >zPath = sqlite3
4af0: 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20 7a  _mprintf("%s", z
4b00: 44 69 72 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28  Dir);.  }..  if(
4b10: 20 70 43 75 72 2d 3e 7a 50 61 74 68 3d 3d 30 20   pCur->zPath==0 
4b20: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51  ){.    return SQ
4b30: 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 0a  LITE_NOMEM;.  }.
4b40: 20 20 69 66 28 20 6c 73 74 61 74 28 70 43 75 72    if( lstat(pCur
4b50: 2d 3e 7a 50 61 74 68 2c 20 26 70 43 75 72 2d 3e  ->zPath, &pCur->
4b60: 73 53 74 61 74 29 20 29 7b 0a 20 20 20 20 66 73  sStat) ){.    fs
4b70: 64 69 72 53 65 74 45 72 72 6d 73 67 28 70 43 75  dirSetErrmsg(pCu
4b80: 72 2c 20 22 63 61 6e 6e 6f 74 20 73 74 61 74 20  r, "cannot stat 
4b90: 66 69 6c 65 3a 20 25 73 22 2c 20 70 43 75 72 2d  file: %s", pCur-
4ba0: 3e 7a 50 61 74 68 29 3b 0a 20 20 20 20 72 65 74  >zPath);.    ret
4bb0: 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52  urn SQLITE_ERROR
4bc0: 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  ;.  }..  return 
4bd0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  SQLITE_OK;.}../*
4be0: 0a 2a 2a 20 53 51 4c 69 74 65 20 77 69 6c 6c 20  .** SQLite will 
4bf0: 69 6e 76 6f 6b 65 20 74 68 69 73 20 6d 65 74 68  invoke this meth
4c00: 6f 64 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 74  od one or more t
4c10: 69 6d 65 73 20 77 68 69 6c 65 20 70 6c 61 6e 6e  imes while plann
4c20: 69 6e 67 20 61 20 71 75 65 72 79 0a 2a 2a 20 74  ing a query.** t
4c30: 68 61 74 20 75 73 65 73 20 74 68 65 20 67 65 6e  hat uses the gen
4c40: 65 72 61 74 65 5f 73 65 72 69 65 73 20 76 69 72  erate_series vir
4c50: 74 75 61 6c 20 74 61 62 6c 65 2e 20 20 54 68 69  tual table.  Thi
4c60: 73 20 72 6f 75 74 69 6e 65 20 6e 65 65 64 73 20  s routine needs 
4c70: 74 6f 20 63 72 65 61 74 65 0a 2a 2a 20 61 20 71  to create.** a q
4c80: 75 65 72 79 20 70 6c 61 6e 20 66 6f 72 20 65 61  uery plan for ea
4c90: 63 68 20 69 6e 76 6f 63 61 74 69 6f 6e 20 61 6e  ch invocation an
4ca0: 64 20 63 6f 6d 70 75 74 65 20 61 6e 20 65 73 74  d compute an est
4cb0: 69 6d 61 74 65 64 20 63 6f 73 74 20 66 6f 72 20  imated cost for 
4cc0: 74 68 61 74 0a 2a 2a 20 70 6c 61 6e 2e 0a 2a 2a  that.** plan..**
4cd0: 0a 2a 2a 20 49 6e 20 74 68 69 73 20 69 6d 70 6c  .** In this impl
4ce0: 65 6d 65 6e 74 61 74 69 6f 6e 20 69 64 78 4e 75  ementation idxNu
4cf0: 6d 20 69 73 20 75 73 65 64 20 74 6f 20 72 65 70  m is used to rep
4d00: 72 65 73 65 6e 74 20 74 68 65 0a 2a 2a 20 71 75  resent the.** qu
4d10: 65 72 79 20 70 6c 61 6e 2e 20 20 69 64 78 53 74  ery plan.  idxSt
4d20: 72 20 69 73 20 75 6e 75 73 65 64 2e 0a 2a 2a 0a  r is unused..**.
4d30: 2a 2a 20 54 68 65 20 71 75 65 72 79 20 70 6c 61  ** The query pla
4d40: 6e 20 69 73 20 72 65 70 72 65 73 65 6e 74 65 64  n is represented
4d50: 20 62 79 20 62 69 74 73 20 69 6e 20 69 64 78 4e   by bits in idxN
4d60: 75 6d 3a 0a 2a 2a 0a 2a 2a 20 20 28 31 29 20 20  um:.**.**  (1)  
4d70: 73 74 61 72 74 20 3d 20 24 76 61 6c 75 65 20 20  start = $value  
4d80: 2d 2d 20 63 6f 6e 73 74 72 61 69 6e 74 20 65 78  -- constraint ex
4d90: 69 73 74 73 0a 2a 2a 20 20 28 32 29 20 20 73 74  ists.**  (2)  st
4da0: 6f 70 20 3d 20 24 76 61 6c 75 65 20 20 20 2d 2d  op = $value   --
4db0: 20 63 6f 6e 73 74 72 61 69 6e 74 20 65 78 69 73   constraint exis
4dc0: 74 73 0a 2a 2a 20 20 28 34 29 20 20 73 74 65 70  ts.**  (4)  step
4dd0: 20 3d 20 24 76 61 6c 75 65 20 20 20 2d 2d 20 63   = $value   -- c
4de0: 6f 6e 73 74 72 61 69 6e 74 20 65 78 69 73 74 73  onstraint exists
4df0: 0a 2a 2a 20 20 28 38 29 20 20 6f 75 74 70 75 74  .**  (8)  output
4e00: 20 69 6e 20 64 65 73 63 65 6e 64 69 6e 67 20 6f   in descending o
4e10: 72 64 65 72 0a 2a 2f 0a 73 74 61 74 69 63 20 69  rder.*/.static i
4e20: 6e 74 20 66 73 64 69 72 42 65 73 74 49 6e 64 65  nt fsdirBestInde
4e30: 78 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 74 61  x(.  sqlite3_vta
4e40: 62 20 2a 74 61 62 2c 0a 20 20 73 71 6c 69 74 65  b *tab,.  sqlite
4e50: 33 5f 69 6e 64 65 78 5f 69 6e 66 6f 20 2a 70 49  3_index_info *pI
4e60: 64 78 49 6e 66 6f 0a 29 7b 0a 20 20 69 6e 74 20  dxInfo.){.  int 
4e70: 69 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  i;              
4e80: 20 20 20 2f 2a 20 4c 6f 6f 70 20 6f 76 65 72 20     /* Loop over 
4e90: 63 6f 6e 73 74 72 61 69 6e 74 73 20 2a 2f 0a 20  constraints */. 
4ea0: 20 69 6e 74 20 69 64 78 34 20 3d 20 2d 31 3b 0a   int idx4 = -1;.
4eb0: 20 20 69 6e 74 20 69 64 78 35 20 3d 20 2d 31 3b    int idx5 = -1;
4ec0: 0a 20 20 63 6f 6e 73 74 20 73 74 72 75 63 74 20  .  const struct 
4ed0: 73 71 6c 69 74 65 33 5f 69 6e 64 65 78 5f 63 6f  sqlite3_index_co
4ee0: 6e 73 74 72 61 69 6e 74 20 2a 70 43 6f 6e 73 74  nstraint *pConst
4ef0: 72 61 69 6e 74 3b 0a 0a 20 20 28 76 6f 69 64 29  raint;..  (void)
4f00: 74 61 62 3b 0a 20 20 70 43 6f 6e 73 74 72 61 69  tab;.  pConstrai
4f10: 6e 74 20 3d 20 70 49 64 78 49 6e 66 6f 2d 3e 61  nt = pIdxInfo->a
4f20: 43 6f 6e 73 74 72 61 69 6e 74 3b 0a 20 20 66 6f  Constraint;.  fo
4f30: 72 28 69 3d 30 3b 20 69 3c 70 49 64 78 49 6e 66  r(i=0; i<pIdxInf
4f40: 6f 2d 3e 6e 43 6f 6e 73 74 72 61 69 6e 74 3b 20  o->nConstraint; 
4f50: 69 2b 2b 2c 20 70 43 6f 6e 73 74 72 61 69 6e 74  i++, pConstraint
4f60: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 70 43 6f  ++){.    if( pCo
4f70: 6e 73 74 72 61 69 6e 74 2d 3e 75 73 61 62 6c 65  nstraint->usable
4f80: 3d 3d 30 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a  ==0 ) continue;.
4f90: 20 20 20 20 69 66 28 20 70 43 6f 6e 73 74 72 61      if( pConstra
4fa0: 69 6e 74 2d 3e 6f 70 21 3d 53 51 4c 49 54 45 5f  int->op!=SQLITE_
4fb0: 49 4e 44 45 58 5f 43 4f 4e 53 54 52 41 49 4e 54  INDEX_CONSTRAINT
4fc0: 5f 45 51 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a  _EQ ) continue;.
4fd0: 20 20 20 20 69 66 28 20 70 43 6f 6e 73 74 72 61      if( pConstra
4fe0: 69 6e 74 2d 3e 69 43 6f 6c 75 6d 6e 3d 3d 34 20  int->iColumn==4 
4ff0: 29 20 69 64 78 34 20 3d 20 69 3b 0a 20 20 20 20  ) idx4 = i;.    
5000: 69 66 28 20 70 43 6f 6e 73 74 72 61 69 6e 74 2d  if( pConstraint-
5010: 3e 69 43 6f 6c 75 6d 6e 3d 3d 35 20 29 20 69 64  >iColumn==5 ) id
5020: 78 35 20 3d 20 69 3b 0a 20 20 7d 0a 0a 20 20 69  x5 = i;.  }..  i
5030: 66 28 20 69 64 78 34 3c 30 20 29 7b 0a 20 20 20  f( idx4<0 ){.   
5040: 20 70 49 64 78 49 6e 66 6f 2d 3e 69 64 78 4e 75   pIdxInfo->idxNu
5050: 6d 20 3d 20 30 3b 0a 20 20 20 20 70 49 64 78 49  m = 0;.    pIdxI
5060: 6e 66 6f 2d 3e 65 73 74 69 6d 61 74 65 64 43 6f  nfo->estimatedCo
5070: 73 74 20 3d 20 28 64 6f 75 62 6c 65 29 28 28 28  st = (double)(((
5080: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 31 29  sqlite3_int64)1)
5090: 20 3c 3c 20 35 30 29 3b 0a 20 20 7d 65 6c 73 65   << 50);.  }else
50a0: 7b 0a 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e  {.    pIdxInfo->
50b0: 61 43 6f 6e 73 74 72 61 69 6e 74 55 73 61 67 65  aConstraintUsage
50c0: 5b 69 64 78 34 5d 2e 6f 6d 69 74 20 3d 20 31 3b  [idx4].omit = 1;
50d0: 0a 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 61  .    pIdxInfo->a
50e0: 43 6f 6e 73 74 72 61 69 6e 74 55 73 61 67 65 5b  ConstraintUsage[
50f0: 69 64 78 34 5d 2e 61 72 67 76 49 6e 64 65 78 20  idx4].argvIndex 
5100: 3d 20 31 3b 0a 20 20 20 20 69 66 28 20 69 64 78  = 1;.    if( idx
5110: 35 3e 3d 30 20 29 7b 0a 20 20 20 20 20 20 70 49  5>=0 ){.      pI
5120: 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72 61  dxInfo->aConstra
5130: 69 6e 74 55 73 61 67 65 5b 69 64 78 35 5d 2e 6f  intUsage[idx5].o
5140: 6d 69 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 70  mit = 1;.      p
5150: 49 64 78 49 6e 66 6f 2d 3e 61 43 6f 6e 73 74 72  IdxInfo->aConstr
5160: 61 69 6e 74 55 73 61 67 65 5b 69 64 78 35 5d 2e  aintUsage[idx5].
5170: 61 72 67 76 49 6e 64 65 78 20 3d 20 32 3b 0a 20  argvIndex = 2;. 
5180: 20 20 20 20 20 70 49 64 78 49 6e 66 6f 2d 3e 69       pIdxInfo->i
5190: 64 78 4e 75 6d 20 3d 20 32 3b 0a 20 20 20 20 20  dxNum = 2;.     
51a0: 20 70 49 64 78 49 6e 66 6f 2d 3e 65 73 74 69 6d   pIdxInfo->estim
51b0: 61 74 65 64 43 6f 73 74 20 3d 20 31 30 2e 30 3b  atedCost = 10.0;
51c0: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
51d0: 20 20 70 49 64 78 49 6e 66 6f 2d 3e 69 64 78 4e    pIdxInfo->idxN
51e0: 75 6d 20 3d 20 31 3b 0a 20 20 20 20 20 20 70 49  um = 1;.      pI
51f0: 64 78 49 6e 66 6f 2d 3e 65 73 74 69 6d 61 74 65  dxInfo->estimate
5200: 64 43 6f 73 74 20 3d 20 31 30 30 2e 30 3b 0a 20  dCost = 100.0;. 
5210: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75     }.  }..  retu
5220: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a  rn SQLITE_OK;.}.
5230: 0a 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20  ./*.** Register 
5240: 74 68 65 20 22 66 73 64 69 72 22 20 76 69 72 74  the "fsdir" virt
5250: 75 61 6c 20 74 61 62 6c 65 2e 0a 2a 2f 0a 73 74  ual table..*/.st
5260: 61 74 69 63 20 69 6e 74 20 66 73 64 69 72 52 65  atic int fsdirRe
5270: 67 69 73 74 65 72 28 73 71 6c 69 74 65 33 20 2a  gister(sqlite3 *
5280: 64 62 29 7b 0a 20 20 73 74 61 74 69 63 20 73 71  db){.  static sq
5290: 6c 69 74 65 33 5f 6d 6f 64 75 6c 65 20 66 73 64  lite3_module fsd
52a0: 69 72 4d 6f 64 75 6c 65 20 3d 20 7b 0a 20 20 20  irModule = {.   
52b0: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   0,             
52c0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69              /* i
52d0: 56 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 30  Version */.    0
52e0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
52f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 72            /* xCr
5300: 65 61 74 65 20 2a 2f 0a 20 20 20 20 66 73 64 69  eate */.    fsdi
5310: 72 43 6f 6e 6e 65 63 74 2c 20 20 20 20 20 20 20  rConnect,       
5320: 20 20 20 20 20 20 20 2f 2a 20 78 43 6f 6e 6e 65         /* xConne
5330: 63 74 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 42  ct */.    fsdirB
5340: 65 73 74 49 6e 64 65 78 2c 20 20 20 20 20 20 20  estIndex,       
5350: 20 20 20 20 20 2f 2a 20 78 42 65 73 74 49 6e 64       /* xBestInd
5360: 65 78 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 44  ex */.    fsdirD
5370: 69 73 63 6f 6e 6e 65 63 74 2c 20 20 20 20 20 20  isconnect,      
5380: 20 20 20 20 20 2f 2a 20 78 44 69 73 63 6f 6e 6e       /* xDisconn
5390: 65 63 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ect */.    0,   
53a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
53b0: 20 20 20 20 20 20 2f 2a 20 78 44 65 73 74 72 6f        /* xDestro
53c0: 79 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 4f 70  y */.    fsdirOp
53d0: 65 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  en,             
53e0: 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20 2d 20 6f      /* xOpen - o
53f0: 70 65 6e 20 61 20 63 75 72 73 6f 72 20 2a 2f 0a  pen a cursor */.
5400: 20 20 20 20 66 73 64 69 72 43 6c 6f 73 65 2c 20      fsdirClose, 
5410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
5420: 2a 20 78 43 6c 6f 73 65 20 2d 20 63 6c 6f 73 65  * xClose - close
5430: 20 61 20 63 75 72 73 6f 72 20 2a 2f 0a 20 20 20   a cursor */.   
5440: 20 66 73 64 69 72 46 69 6c 74 65 72 2c 20 20 20   fsdirFilter,   
5450: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
5460: 46 69 6c 74 65 72 20 2d 20 63 6f 6e 66 69 67 75  Filter - configu
5470: 72 65 20 73 63 61 6e 20 63 6f 6e 73 74 72 61 69  re scan constrai
5480: 6e 74 73 20 2a 2f 0a 20 20 20 20 66 73 64 69 72  nts */.    fsdir
5490: 4e 65 78 74 2c 20 20 20 20 20 20 20 20 20 20 20  Next,           
54a0: 20 20 20 20 20 20 2f 2a 20 78 4e 65 78 74 20 2d        /* xNext -
54b0: 20 61 64 76 61 6e 63 65 20 61 20 63 75 72 73 6f   advance a curso
54c0: 72 20 2a 2f 0a 20 20 20 20 66 73 64 69 72 45 6f  r */.    fsdirEo
54d0: 66 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  f,              
54e0: 20 20 20 20 2f 2a 20 78 45 6f 66 20 2d 20 63 68      /* xEof - ch
54f0: 65 63 6b 20 66 6f 72 20 65 6e 64 20 6f 66 20 73  eck for end of s
5500: 63 61 6e 20 2a 2f 0a 20 20 20 20 66 73 64 69 72  can */.    fsdir
5510: 43 6f 6c 75 6d 6e 2c 20 20 20 20 20 20 20 20 20  Column,         
5520: 20 20 20 20 20 20 2f 2a 20 78 43 6f 6c 75 6d 6e        /* xColumn
5530: 20 2d 20 72 65 61 64 20 64 61 74 61 20 2a 2f 0a   - read data */.
5540: 20 20 20 20 66 73 64 69 72 52 6f 77 69 64 2c 20      fsdirRowid, 
5550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
5560: 2a 20 78 52 6f 77 69 64 20 2d 20 72 65 61 64 20  * xRowid - read 
5570: 64 61 74 61 20 2a 2f 0a 20 20 20 20 30 2c 20 20  data */.    0,  
5580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5590: 20 20 20 20 20 20 20 2f 2a 20 78 55 70 64 61 74         /* xUpdat
55a0: 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  e */.    0,     
55b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
55c0: 20 20 20 20 2f 2a 20 78 42 65 67 69 6e 20 2a 2f      /* xBegin */
55d0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
55e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
55f0: 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 20 20  /* xSync */.    
5600: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0,              
5610: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43             /* xC
5620: 6f 6d 6d 69 74 20 2a 2f 0a 20 20 20 20 30 2c 20  ommit */.    0, 
5630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5640: 20 20 20 20 20 20 20 20 2f 2a 20 78 52 6f 6c 6c          /* xRoll
5650: 62 61 63 6b 20 2a 2f 0a 20 20 20 20 30 2c 20 20  back */.    0,  
5660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5670: 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6e 64 4d         /* xFindM
5680: 65 74 68 6f 64 20 2a 2f 0a 20 20 20 20 30 2c 20  ethod */.    0, 
5690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
56a0: 20 20 20 20 20 20 20 20 2f 2a 20 78 52 65 6e 61          /* xRena
56b0: 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  me */.    0,    
56c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
56d0: 20 20 20 20 20 2f 2a 20 78 53 61 76 65 70 6f 69       /* xSavepoi
56e0: 6e 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  nt */.    0,    
56f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5700: 20 20 20 20 20 2f 2a 20 78 52 65 6c 65 61 73 65       /* xRelease
5710: 20 2a 2f 0a 20 20 20 20 30 20 20 20 20 20 20 20   */.    0       
5720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5730: 20 20 20 2f 2a 20 78 52 6f 6c 6c 62 61 63 6b 54     /* xRollbackT
5740: 6f 20 2a 2f 0a 20 20 7d 3b 0a 0a 20 20 69 6e 74  o */.  };..  int
5750: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63 72   rc = sqlite3_cr
5760: 65 61 74 65 5f 6d 6f 64 75 6c 65 28 64 62 2c 20  eate_module(db, 
5770: 22 66 73 64 69 72 22 2c 20 26 66 73 64 69 72 4d  "fsdir", &fsdirM
5780: 6f 64 75 6c 65 2c 20 30 29 3b 0a 20 20 72 65 74  odule, 0);.  ret
5790: 75 72 6e 20 72 63 3b 0a 7d 0a 23 65 6c 73 65 20  urn rc;.}.#else 
57a0: 20 20 20 20 20 20 20 20 2f 2a 20 53 51 4c 49 54          /* SQLIT
57b0: 45 5f 4f 4d 49 54 5f 56 49 52 54 55 41 4c 54 41  E_OMIT_VIRTUALTA
57c0: 42 4c 45 20 2a 2f 0a 23 20 64 65 66 69 6e 65 20  BLE */.# define 
57d0: 66 73 64 69 72 52 65 67 69 73 74 65 72 28 78 29  fsdirRegister(x)
57e0: 20 53 51 4c 49 54 45 5f 4f 4b 0a 23 65 6e 64 69   SQLITE_OK.#endi
57f0: 66 0a 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32  f..#ifdef _WIN32
5800: 0a 5f 5f 64 65 63 6c 73 70 65 63 28 64 6c 6c 65  .__declspec(dlle
5810: 78 70 6f 72 74 29 0a 23 65 6e 64 69 66 0a 69 6e  xport).#endif.in
5820: 74 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 69 6f  t sqlite3_fileio
5830: 5f 69 6e 69 74 28 0a 20 20 73 71 6c 69 74 65 33  _init(.  sqlite3
5840: 20 2a 64 62 2c 20 0a 20 20 63 68 61 72 20 2a 2a   *db, .  char **
5850: 70 7a 45 72 72 4d 73 67 2c 20 0a 20 20 63 6f 6e  pzErrMsg, .  con
5860: 73 74 20 73 71 6c 69 74 65 33 5f 61 70 69 5f 72  st sqlite3_api_r
5870: 6f 75 74 69 6e 65 73 20 2a 70 41 70 69 0a 29 7b  outines *pApi.){
5880: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49  .  int rc = SQLI
5890: 54 45 5f 4f 4b 3b 0a 20 20 53 51 4c 49 54 45 5f  TE_OK;.  SQLITE_
58a0: 45 58 54 45 4e 53 49 4f 4e 5f 49 4e 49 54 32 28  EXTENSION_INIT2(
58b0: 70 41 70 69 29 3b 0a 20 20 28 76 6f 69 64 29 70  pApi);.  (void)p
58c0: 7a 45 72 72 4d 73 67 3b 20 20 2f 2a 20 55 6e 75  zErrMsg;  /* Unu
58d0: 73 65 64 20 70 61 72 61 6d 65 74 65 72 20 2a 2f  sed parameter */
58e0: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
58f0: 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28  create_function(
5900: 64 62 2c 20 22 72 65 61 64 66 69 6c 65 22 2c 20  db, "readfile", 
5910: 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c 20  1, SQLITE_UTF8, 
5920: 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  0,.             
5930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5940: 20 20 72 65 61 64 66 69 6c 65 46 75 6e 63 2c 20    readfileFunc, 
5950: 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 3d  0, 0);.  if( rc=
5960: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
5970: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 63    rc = sqlite3_c
5980: 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 28 64  reate_function(d
5990: 62 2c 20 22 77 72 69 74 65 66 69 6c 65 22 2c 20  b, "writefile", 
59a0: 2d 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38 2c  -1, SQLITE_UTF8,
59b0: 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20   0,.            
59c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
59d0: 20 20 20 20 20 77 72 69 74 65 66 69 6c 65 46 75       writefileFu
59e0: 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20  nc, 0, 0);.  }. 
59f0: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
5a00: 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73  OK ){.    rc = s
5a10: 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75  qlite3_create_fu
5a20: 6e 63 74 69 6f 6e 28 64 62 2c 20 22 6c 73 6d 6f  nction(db, "lsmo
5a30: 64 65 22 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55  de", 1, SQLITE_U
5a40: 54 46 38 2c 20 30 2c 0a 20 20 20 20 20 20 20 20  TF8, 0,.        
5a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5a60: 20 20 20 20 20 20 20 20 20 6c 73 4d 6f 64 65 46           lsModeF
5a70: 75 6e 63 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a  unc, 0, 0);.  }.
5a80: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
5a90: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
5aa0: 66 73 64 69 72 52 65 67 69 73 74 65 72 28 64 62  fsdirRegister(db
5ab0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
5ac0: 72 63 3b 0a 7d 0a                                rc;.}.