/ Hex Artifact Content
Login

Artifact 4e31a7b98a401431c55590a0ac05f001f520f716d0707ec916b4022b8937fd06:


0000: 2f 2a 0a 2a 2a 20 32 30 31 30 20 4d 61 79 20 30  /*.** 2010 May 0
0010: 35 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68  5.**.** The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c 65  place of.** a le
0060: 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65  gal notice, here
0070: 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a   is a blessing:.
0080: 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f 75  **.**    May you
0090: 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74   do good and not
00a0: 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61 79   evil..**    May
00b0: 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76   you find forgiv
00c0: 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65  eness for yourse
00d0: 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f  lf and forgive o
00e0: 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61 79  thers..**    May
00f0: 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c   you share freel
0100: 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20  y, never taking 
0110: 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69  more than you gi
0120: 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ve..**.*********
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 2a 0a 2a 2a 0a 2a 2a 20 54 68 69 73  *****.**.** This
0180: 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74   file contains t
0190: 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  he implementatio
01a0: 6e 20 6f 66 20 74 68 65 20 54 63 6c 20 5b 74 65  n of the Tcl [te
01b0: 73 74 76 66 73 5d 20 63 6f 6d 6d 61 6e 64 2c 0a  stvfs] command,.
01c0: 2a 2a 20 75 73 65 64 20 74 6f 20 63 72 65 61 74  ** used to creat
01d0: 65 20 53 51 4c 69 74 65 20 56 46 53 20 69 6d 70  e SQLite VFS imp
01e0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 77 69 74  lementations wit
01f0: 68 20 76 61 72 69 6f 75 73 20 70 72 6f 70 65 72  h various proper
0200: 74 69 65 73 20 61 6e 64 0a 2a 2a 20 69 6e 73 74  ties and.** inst
0210: 72 75 6d 65 6e 74 61 74 69 6f 6e 20 74 6f 20 73  rumentation to s
0220: 75 70 70 6f 72 74 20 74 65 73 74 69 6e 67 20 53  upport testing S
0230: 51 4c 69 74 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 74  QLite..**.**   t
0240: 65 73 74 76 66 73 20 56 46 53 4e 41 4d 45 20 3f  estvfs VFSNAME ?
0250: 4f 50 54 49 4f 4e 53 3f 0a 2a 2a 0a 2a 2a 20 41  OPTIONS?.**.** A
0260: 76 61 69 6c 61 62 6c 65 20 6f 70 74 69 6f 6e 73  vailable options
0270: 20 61 72 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 2d 6e   are:.**.**   -n
0280: 6f 73 68 6d 20 20 20 20 20 20 42 4f 4f 4c 45 41  oshm      BOOLEA
0290: 4e 20 20 20 20 20 20 20 20 28 54 72 75 65 20 74  N        (True t
02a0: 6f 20 6f 6d 69 74 20 73 68 6d 20 6d 65 74 68 6f  o omit shm metho
02b0: 64 73 2e 20 44 65 66 61 75 6c 74 20 66 61 6c 73  ds. Default fals
02c0: 65 29 0a 2a 2a 20 20 20 2d 64 65 66 61 75 6c 74  e).**   -default
02d0: 20 20 20 20 42 4f 4f 4c 45 41 4e 20 20 20 20 20      BOOLEAN     
02e0: 20 20 20 28 54 72 75 65 20 74 6f 20 6d 61 6b 65     (True to make
02f0: 20 74 68 65 20 76 66 73 20 64 65 66 61 75 6c 74   the vfs default
0300: 2e 20 44 65 66 61 75 6c 74 20 66 61 6c 73 65 29  . Default false)
0310: 0a 2a 2a 20 20 20 2d 73 7a 6f 73 66 69 6c 65 20  .**   -szosfile 
0320: 20 20 49 4e 54 45 47 45 52 20 20 20 20 20 20 20    INTEGER       
0330: 20 28 56 61 6c 75 65 20 66 6f 72 20 73 71 6c 69   (Value for sqli
0340: 74 65 33 5f 76 66 73 2e 73 7a 4f 73 46 69 6c 65  te3_vfs.szOsFile
0350: 29 0a 2a 2a 20 20 20 2d 6d 78 70 61 74 68 6e 61  ).**   -mxpathna
0360: 6d 65 20 49 4e 54 45 47 45 52 20 20 20 20 20 20  me INTEGER      
0370: 20 20 28 56 61 6c 75 65 20 66 6f 72 20 73 71 6c    (Value for sql
0380: 69 74 65 33 5f 76 66 73 2e 6d 78 50 61 74 68 6e  ite3_vfs.mxPathn
0390: 61 6d 65 29 0a 2a 2a 20 20 20 2d 69 76 65 72 73  ame).**   -ivers
03a0: 69 6f 6e 20 20 20 49 4e 54 45 47 45 52 20 20 20  ion   INTEGER   
03b0: 20 20 20 20 20 28 56 61 6c 75 65 20 66 6f 72 20       (Value for 
03c0: 73 71 6c 69 74 65 33 5f 76 66 73 2e 69 56 65 72  sqlite3_vfs.iVer
03d0: 73 69 6f 6e 29 0a 2a 2f 0a 23 69 66 20 53 51 4c  sion).*/.#if SQL
03e0: 49 54 45 5f 54 45 53 54 20 20 20 20 20 20 20 20  ITE_TEST        
03f0: 20 20 2f 2a 20 54 68 69 73 20 66 69 6c 65 20 69    /* This file i
0400: 73 20 75 73 65 64 20 66 6f 72 20 74 65 73 74 69  s used for testi
0410: 6e 67 20 6f 6e 6c 79 20 2a 2f 0a 0a 23 69 6e 63  ng only */..#inc
0420: 6c 75 64 65 20 22 73 71 6c 69 74 65 33 2e 68 22  lude "sqlite3.h"
0430: 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74  .#include "sqlit
0440: 65 49 6e 74 2e 68 22 0a 23 69 66 20 64 65 66 69  eInt.h".#if defi
0450: 6e 65 64 28 49 4e 43 4c 55 44 45 5f 53 51 4c 49  ned(INCLUDE_SQLI
0460: 54 45 5f 54 43 4c 5f 48 29 0a 23 20 20 69 6e 63  TE_TCL_H).#  inc
0470: 6c 75 64 65 20 22 73 71 6c 69 74 65 5f 74 63 6c  lude "sqlite_tcl
0480: 2e 68 22 0a 23 65 6c 73 65 0a 23 20 20 69 6e 63  .h".#else.#  inc
0490: 6c 75 64 65 20 22 74 63 6c 2e 68 22 0a 23 65 6e  lude "tcl.h".#en
04a0: 64 69 66 0a 0a 74 79 70 65 64 65 66 20 73 74 72  dif..typedef str
04b0: 75 63 74 20 54 65 73 74 76 66 73 20 54 65 73 74  uct Testvfs Test
04c0: 76 66 73 3b 0a 74 79 70 65 64 65 66 20 73 74 72  vfs;.typedef str
04d0: 75 63 74 20 54 65 73 74 76 66 73 53 68 6d 20 54  uct TestvfsShm T
04e0: 65 73 74 76 66 73 53 68 6d 3b 0a 74 79 70 65 64  estvfsShm;.typed
04f0: 65 66 20 73 74 72 75 63 74 20 54 65 73 74 76 66  ef struct Testvf
0500: 73 42 75 66 66 65 72 20 54 65 73 74 76 66 73 42  sBuffer TestvfsB
0510: 75 66 66 65 72 3b 0a 74 79 70 65 64 65 66 20 73  uffer;.typedef s
0520: 74 72 75 63 74 20 54 65 73 74 76 66 73 46 69 6c  truct TestvfsFil
0530: 65 20 54 65 73 74 76 66 73 46 69 6c 65 3b 0a 74  e TestvfsFile;.t
0540: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54 65  ypedef struct Te
0550: 73 74 76 66 73 46 64 20 54 65 73 74 76 66 73 46  stvfsFd TestvfsF
0560: 64 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 6f 70 65  d;../*.** An ope
0570: 6e 20 66 69 6c 65 20 68 61 6e 64 6c 65 2e 0a 2a  n file handle..*
0580: 2f 0a 73 74 72 75 63 74 20 54 65 73 74 76 66 73  /.struct Testvfs
0590: 46 69 6c 65 20 7b 0a 20 20 73 71 6c 69 74 65 33  File {.  sqlite3
05a0: 5f 66 69 6c 65 20 62 61 73 65 3b 20 20 20 20 20  _file base;     
05b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 42 61 73 65           /* Base
05c0: 20 63 6c 61 73 73 2e 20 20 4d 75 73 74 20 62 65   class.  Must be
05d0: 20 66 69 72 73 74 20 2a 2f 0a 20 20 54 65 73 74   first */.  Test
05e0: 76 66 73 46 64 20 2a 70 46 64 3b 20 20 20 20 20  vfsFd *pFd;     
05f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46              /* F
0600: 69 6c 65 20 64 61 74 61 20 2a 2f 0a 7d 3b 0a 23  ile data */.};.#
0610: 64 65 66 69 6e 65 20 74 76 66 73 47 65 74 46 64  define tvfsGetFd
0620: 28 70 46 69 6c 65 29 20 28 28 28 54 65 73 74 76  (pFile) (((Testv
0630: 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 29 2d  fsFile *)pFile)-
0640: 3e 70 46 64 29 0a 0a 73 74 72 75 63 74 20 54 65  >pFd)..struct Te
0650: 73 74 76 66 73 46 64 20 7b 0a 20 20 73 71 6c 69  stvfsFd {.  sqli
0660: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b 20 20  te3_vfs *pVfs;  
0670: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
0680: 68 65 20 56 46 53 20 2a 2f 0a 20 20 63 6f 6e 73  he VFS */.  cons
0690: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d  t char *zFilenam
06a0: 65 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46  e;          /* F
06b0: 69 6c 65 6e 61 6d 65 20 61 73 20 70 61 73 73 65  ilename as passe
06c0: 64 20 74 6f 20 78 4f 70 65 6e 28 29 20 2a 2f 0a  d to xOpen() */.
06d0: 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a    sqlite3_file *
06e0: 70 52 65 61 6c 3b 20 20 20 20 20 20 20 20 20 20  pReal;          
06f0: 20 20 2f 2a 20 54 68 65 20 72 65 61 6c 2c 20 75    /* The real, u
0700: 6e 64 65 72 6c 79 69 6e 67 20 66 69 6c 65 20 64  nderlying file d
0710: 65 73 63 72 69 70 74 6f 72 20 2a 2f 0a 20 20 54  escriptor */.  T
0720: 63 6c 5f 4f 62 6a 20 2a 70 53 68 6d 49 64 3b 20  cl_Obj *pShmId; 
0730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0740: 2a 20 53 68 61 72 65 64 20 6d 65 6d 6f 72 79 20  * Shared memory 
0750: 69 64 20 66 6f 72 20 54 63 6c 20 63 61 6c 6c 62  id for Tcl callb
0760: 61 63 6b 73 20 2a 2f 0a 0a 20 20 54 65 73 74 76  acks */..  Testv
0770: 66 73 42 75 66 66 65 72 20 2a 70 53 68 6d 3b 20  fsBuffer *pShm; 
0780: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 68             /* Sh
0790: 61 72 65 64 20 6d 65 6d 6f 72 79 20 62 75 66 66  ared memory buff
07a0: 65 72 20 2a 2f 0a 20 20 75 33 32 20 65 78 63 6c  er */.  u32 excl
07b0: 6c 6f 63 6b 3b 20 20 20 20 20 20 20 20 20 20 20  lock;           
07c0: 20 20 20 20 20 20 20 20 2f 2a 20 4d 61 73 6b 20          /* Mask 
07d0: 6f 66 20 65 78 63 6c 75 73 69 76 65 20 6c 6f 63  of exclusive loc
07e0: 6b 73 20 2a 2f 0a 20 20 75 33 32 20 73 68 61 72  ks */.  u32 shar
07f0: 65 64 6c 6f 63 6b 3b 20 20 20 20 20 20 20 20 20  edlock;         
0800: 20 20 20 20 20 20 20 20 2f 2a 20 4d 61 73 6b 20          /* Mask 
0810: 6f 66 20 73 68 61 72 65 64 20 6c 6f 63 6b 73 20  of shared locks 
0820: 2a 2f 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  */.  TestvfsFd *
0830: 70 4e 65 78 74 3b 20 20 20 20 20 20 20 20 20 20  pNext;          
0840: 20 20 20 20 20 2f 2a 20 4e 65 78 74 20 68 61 6e       /* Next han
0850: 64 6c 65 20 6f 70 65 6e 65 64 20 6f 6e 20 74 68  dle opened on th
0860: 65 20 73 61 6d 65 20 66 69 6c 65 20 2a 2f 0a 7d  e same file */.}
0870: 3b 0a 0a 0a 23 64 65 66 69 6e 65 20 46 41 55 4c  ;...#define FAUL
0880: 54 5f 49 4e 4a 45 43 54 5f 4e 4f 4e 45 20 20 20  T_INJECT_NONE   
0890: 20 20 20 20 30 0a 23 64 65 66 69 6e 65 20 46 41      0.#define FA
08a0: 55 4c 54 5f 49 4e 4a 45 43 54 5f 54 52 41 4e 53  ULT_INJECT_TRANS
08b0: 49 45 4e 54 20 20 31 0a 23 64 65 66 69 6e 65 20  IENT  1.#define 
08c0: 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 50 45 52  FAULT_INJECT_PER
08d0: 53 49 53 54 45 4e 54 20 32 0a 0a 74 79 70 65 64  SISTENT 2..typed
08e0: 65 66 20 73 74 72 75 63 74 20 54 65 73 74 46 61  ef struct TestFa
08f0: 75 6c 74 49 6e 6a 65 63 74 20 54 65 73 74 46 61  ultInject TestFa
0900: 75 6c 74 49 6e 6a 65 63 74 3b 0a 73 74 72 75 63  ultInject;.struc
0910: 74 20 54 65 73 74 46 61 75 6c 74 49 6e 6a 65 63  t TestFaultInjec
0920: 74 20 7b 0a 20 20 69 6e 74 20 69 43 6e 74 3b 20  t {.  int iCnt; 
0930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0940: 20 20 20 20 20 20 2f 2a 20 52 65 6d 61 69 6e 69        /* Remaini
0950: 6e 67 20 63 61 6c 6c 73 20 62 65 66 6f 72 65 20  ng calls before 
0960: 66 61 75 6c 74 20 69 6e 6a 65 63 74 69 6f 6e 20  fault injection 
0970: 2a 2f 0a 20 20 69 6e 74 20 65 46 61 75 6c 74 3b  */.  int eFault;
0980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0990: 20 20 20 20 20 2f 2a 20 41 20 46 41 55 4c 54 5f       /* A FAULT_
09a0: 49 4e 4a 45 43 54 5f 2a 20 76 61 6c 75 65 20 2a  INJECT_* value *
09b0: 2f 0a 20 20 69 6e 74 20 6e 46 61 69 6c 3b 20 20  /.  int nFail;  
09c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09d0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66      /* Number of
09e0: 20 66 61 75 6c 74 73 20 69 6e 6a 65 63 74 65 64   faults injected
09f0: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e   */.};../*.** An
0a00: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 69   instance of thi
0a10: 73 20 73 74 72 75 63 74 75 72 65 20 69 73 20 61  s structure is a
0a20: 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 65 61 63  llocated for eac
0a30: 68 20 56 46 53 20 63 72 65 61 74 65 64 2e 20 54  h VFS created. T
0a40: 68 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 76 66  he.** sqlite3_vf
0a50: 73 2e 70 41 70 70 44 61 74 61 20 66 69 65 6c 64  s.pAppData field
0a60: 20 6f 66 20 74 68 65 20 56 46 53 20 73 74 72 75   of the VFS stru
0a70: 63 74 75 72 65 20 72 65 67 69 73 74 65 72 65 64  cture registered
0a80: 20 77 69 74 68 20 53 51 4c 69 74 65 0a 2a 2a 20   with SQLite.** 
0a90: 69 73 20 73 65 74 20 74 6f 20 70 6f 69 6e 74 20  is set to point 
0aa0: 74 6f 20 69 74 2e 0a 2a 2f 0a 73 74 72 75 63 74  to it..*/.struct
0ab0: 20 54 65 73 74 76 66 73 20 7b 0a 20 20 63 68 61   Testvfs {.  cha
0ac0: 72 20 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 20 20  r *zName;       
0ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0ae0: 4e 61 6d 65 20 6f 66 20 74 68 69 73 20 56 46 53  Name of this VFS
0af0: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76 66   */.  sqlite3_vf
0b00: 73 20 2a 70 50 61 72 65 6e 74 3b 20 20 20 20 20  s *pParent;     
0b10: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 56 46 53        /* The VFS
0b20: 20 74 6f 20 75 73 65 20 66 6f 72 20 66 69 6c 65   to use for file
0b30: 20 49 4f 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33   IO */.  sqlite3
0b40: 5f 76 66 73 20 2a 70 56 66 73 3b 20 20 20 20 20  _vfs *pVfs;     
0b50: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20           /* The 
0b60: 74 65 73 74 76 66 73 20 72 65 67 69 73 74 65 72  testvfs register
0b70: 65 64 20 77 69 74 68 20 53 51 4c 69 74 65 20 2a  ed with SQLite *
0b80: 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  /.  Tcl_Interp *
0b90: 69 6e 74 65 72 70 3b 20 20 20 20 20 20 20 20 20  interp;         
0ba0: 20 20 20 20 2f 2a 20 49 6e 74 65 72 70 72 65 74      /* Interpret
0bb0: 65 72 20 74 6f 20 72 75 6e 20 73 63 72 69 70 74  er to run script
0bc0: 20 69 6e 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a   in */.  Tcl_Obj
0bd0: 20 2a 70 53 63 72 69 70 74 3b 20 20 20 20 20 20   *pScript;      
0be0: 20 20 20 20 20 20 20 20 20 2f 2a 20 53 63 72 69           /* Scri
0bf0: 70 74 20 74 6f 20 65 78 65 63 75 74 65 20 2a 2f  pt to execute */
0c00: 0a 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72  .  TestvfsBuffer
0c10: 20 2a 70 42 75 66 66 65 72 3b 20 20 20 20 20 20   *pBuffer;      
0c20: 20 20 20 2f 2a 20 4c 69 73 74 20 6f 66 20 73 68     /* List of sh
0c30: 61 72 65 64 20 62 75 66 66 65 72 73 20 2a 2f 0a  ared buffers */.
0c40: 20 20 69 6e 74 20 69 73 4e 6f 73 68 6d 3b 0a 20    int isNoshm;. 
0c50: 20 69 6e 74 20 69 73 46 75 6c 6c 73 68 6d 3b 0a   int isFullshm;.
0c60: 0a 20 20 69 6e 74 20 6d 61 73 6b 3b 20 20 20 20  .  int mask;    
0c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c80: 20 20 20 2f 2a 20 4d 61 73 6b 20 63 6f 6e 74 72     /* Mask contr
0c90: 6f 6c 6c 69 6e 67 20 5b 73 63 72 69 70 74 5d 20  olling [script] 
0ca0: 61 6e 64 20 5b 69 6f 65 72 72 5d 20 2a 2f 0a 0a  and [ioerr] */..
0cb0: 20 20 54 65 73 74 46 61 75 6c 74 49 6e 6a 65 63    TestFaultInjec
0cc0: 74 20 69 6f 65 72 72 5f 65 72 72 3b 0a 20 20 54  t ioerr_err;.  T
0cd0: 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 66  estFaultInject f
0ce0: 75 6c 6c 5f 65 72 72 3b 0a 20 20 54 65 73 74 46  ull_err;.  TestF
0cf0: 61 75 6c 74 49 6e 6a 65 63 74 20 63 61 6e 74 6f  aultInject canto
0d00: 70 65 6e 5f 65 72 72 3b 0a 0a 23 69 66 20 30 0a  pen_err;..#if 0.
0d10: 20 20 69 6e 74 20 69 49 6f 65 72 72 43 6e 74 3b    int iIoerrCnt;
0d20: 0a 20 20 69 6e 74 20 69 6f 65 72 72 3b 0a 20 20  .  int ioerr;.  
0d30: 69 6e 74 20 6e 49 6f 65 72 72 46 61 69 6c 3b 0a  int nIoerrFail;.
0d40: 20 20 69 6e 74 20 69 46 75 6c 6c 43 6e 74 3b 0a    int iFullCnt;.
0d50: 20 20 69 6e 74 20 66 75 6c 6c 65 72 72 3b 0a 20    int fullerr;. 
0d60: 20 69 6e 74 20 6e 46 75 6c 6c 46 61 69 6c 3b 0a   int nFullFail;.
0d70: 23 65 6e 64 69 66 0a 0a 20 20 69 6e 74 20 69 44  #endif..  int iD
0d80: 65 76 63 68 61 72 3b 0a 20 20 69 6e 74 20 69 53  evchar;.  int iS
0d90: 65 63 74 6f 72 73 69 7a 65 3b 0a 7d 3b 0a 0a 2f  ectorsize;.};../
0da0: 2a 0a 2a 2a 20 54 68 65 20 54 65 73 74 76 66 73  *.** The Testvfs
0db0: 2e 6d 61 73 6b 20 76 61 72 69 61 62 6c 65 20 69  .mask variable i
0dc0: 73 20 73 65 74 20 74 6f 20 61 20 63 6f 6d 62 69  s set to a combi
0dd0: 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 6f  nation of the fo
0de0: 6c 6c 6f 77 69 6e 67 2e 0a 2a 2a 20 49 66 20 61  llowing..** If a
0df0: 20 62 69 74 20 69 73 20 63 6c 65 61 72 20 69 6e   bit is clear in
0e00: 20 54 65 73 74 76 66 73 2e 6d 61 73 6b 2c 20 74   Testvfs.mask, t
0e10: 68 65 6e 20 63 61 6c 6c 73 20 6d 61 64 65 20 62  hen calls made b
0e20: 79 20 53 51 4c 69 74 65 20 74 6f 20 74 68 65 20  y SQLite to the 
0e30: 0a 2a 2a 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e  .** correspondin
0e40: 67 20 56 46 53 20 6d 65 74 68 6f 64 20 69 73 20  g VFS method is 
0e50: 69 67 6e 6f 72 65 64 20 66 6f 72 20 70 75 72 70  ignored for purp
0e60: 6f 73 65 73 20 6f 66 3a 0a 2a 2a 0a 2a 2a 20 20  oses of:.**.**  
0e70: 20 2b 20 53 69 6d 75 6c 61 74 69 6e 67 20 49 4f   + Simulating IO
0e80: 20 65 72 72 6f 72 73 2c 20 61 6e 64 0a 2a 2a 20   errors, and.** 
0e90: 20 20 2b 20 49 6e 76 6f 6b 69 6e 67 20 74 68 65    + Invoking the
0ea0: 20 54 63 6c 20 63 61 6c 6c 62 61 63 6b 20 73 63   Tcl callback sc
0eb0: 72 69 70 74 2e 0a 2a 2f 0a 23 64 65 66 69 6e 65  ript..*/.#define
0ec0: 20 54 45 53 54 56 46 53 5f 53 48 4d 4f 50 45 4e   TESTVFS_SHMOPEN
0ed0: 5f 4d 41 53 4b 20 20 20 20 20 20 30 78 30 30 30  _MASK      0x000
0ee0: 30 30 30 30 31 0a 23 64 65 66 69 6e 65 20 54 45  00001.#define TE
0ef0: 53 54 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41  STVFS_SHMLOCK_MA
0f00: 53 4b 20 20 20 20 20 20 30 78 30 30 30 30 30 30  SK      0x000000
0f10: 31 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56  10.#define TESTV
0f20: 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20 20  FS_SHMMAP_MASK  
0f30: 20 20 20 20 20 30 78 30 30 30 30 30 30 32 30 0a       0x00000020.
0f40: 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f  #define TESTVFS_
0f50: 53 48 4d 42 41 52 52 49 45 52 5f 4d 41 53 4b 20  SHMBARRIER_MASK 
0f60: 20 20 30 78 30 30 30 30 30 30 34 30 0a 23 64 65    0x00000040.#de
0f70: 66 69 6e 65 20 54 45 53 54 56 46 53 5f 53 48 4d  fine TESTVFS_SHM
0f80: 43 4c 4f 53 45 5f 4d 41 53 4b 20 20 20 20 20 30  CLOSE_MASK     0
0f90: 78 30 30 30 30 30 30 38 30 0a 0a 23 64 65 66 69  x00000080..#defi
0fa0: 6e 65 20 54 45 53 54 56 46 53 5f 4f 50 45 4e 5f  ne TESTVFS_OPEN_
0fb0: 4d 41 53 4b 20 20 20 20 20 20 20 20 20 30 78 30  MASK         0x0
0fc0: 30 30 30 30 31 30 30 0a 23 64 65 66 69 6e 65 20  0000100.#define 
0fd0: 54 45 53 54 56 46 53 5f 53 59 4e 43 5f 4d 41 53  TESTVFS_SYNC_MAS
0fe0: 4b 20 20 20 20 20 20 20 20 20 30 78 30 30 30 30  K         0x0000
0ff0: 30 32 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53  0200.#define TES
1000: 54 56 46 53 5f 44 45 4c 45 54 45 5f 4d 41 53 4b  TVFS_DELETE_MASK
1010: 20 20 20 20 20 20 20 30 78 30 30 30 30 30 34 30         0x0000040
1020: 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46  0.#define TESTVF
1030: 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20 20 20 20  S_CLOSE_MASK    
1040: 20 20 20 20 30 78 30 30 30 30 30 38 30 30 0a 23      0x00000800.#
1050: 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 57  define TESTVFS_W
1060: 52 49 54 45 5f 4d 41 53 4b 20 20 20 20 20 20 20  RITE_MASK       
1070: 20 30 78 30 30 30 30 31 30 30 30 0a 23 64 65 66   0x00001000.#def
1080: 69 6e 65 20 54 45 53 54 56 46 53 5f 54 52 55 4e  ine TESTVFS_TRUN
1090: 43 41 54 45 5f 4d 41 53 4b 20 20 20 20 20 30 78  CATE_MASK     0x
10a0: 30 30 30 30 32 30 30 30 0a 23 64 65 66 69 6e 65  00002000.#define
10b0: 20 54 45 53 54 56 46 53 5f 41 43 43 45 53 53 5f   TESTVFS_ACCESS_
10c0: 4d 41 53 4b 20 20 20 20 20 20 20 30 78 30 30 30  MASK       0x000
10d0: 30 34 30 30 30 0a 23 64 65 66 69 6e 65 20 54 45  04000.#define TE
10e0: 53 54 56 46 53 5f 46 55 4c 4c 50 41 54 48 4e 41  STVFS_FULLPATHNA
10f0: 4d 45 5f 4d 41 53 4b 20 30 78 30 30 30 30 38 30  ME_MASK 0x000080
1100: 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56  00.#define TESTV
1110: 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20 20 20 20  FS_READ_MASK    
1120: 20 20 20 20 20 30 78 30 30 30 31 30 30 30 30 0a       0x00010000.
1130: 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f  #define TESTVFS_
1140: 55 4e 4c 4f 43 4b 5f 4d 41 53 4b 20 20 20 20 20  UNLOCK_MASK     
1150: 20 20 30 78 30 30 30 32 30 30 30 30 0a 23 64 65    0x00020000.#de
1160: 66 69 6e 65 20 54 45 53 54 56 46 53 5f 4c 4f 43  fine TESTVFS_LOC
1170: 4b 5f 4d 41 53 4b 20 20 20 20 20 20 20 20 20 30  K_MASK         0
1180: 78 30 30 30 34 30 30 30 30 0a 23 64 65 66 69 6e  x00040000.#defin
1190: 65 20 54 45 53 54 56 46 53 5f 43 4b 4c 4f 43 4b  e TESTVFS_CKLOCK
11a0: 5f 4d 41 53 4b 20 20 20 20 20 20 20 30 78 30 30  _MASK       0x00
11b0: 30 38 30 30 30 30 0a 23 64 65 66 69 6e 65 20 54  080000.#define T
11c0: 45 53 54 56 46 53 5f 46 43 4e 54 4c 5f 4d 41 53  ESTVFS_FCNTL_MAS
11d0: 4b 20 20 20 20 20 20 20 20 30 78 30 30 31 30 30  K        0x00100
11e0: 30 30 30 0a 0a 23 64 65 66 69 6e 65 20 54 45 53  000..#define TES
11f0: 54 56 46 53 5f 41 4c 4c 5f 4d 41 53 4b 20 20 20  TVFS_ALL_MASK   
1200: 20 20 20 20 20 20 20 30 78 30 30 31 46 46 46 46         0x001FFFF
1210: 46 0a 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54  F...#define TEST
1220: 56 46 53 5f 4d 41 58 5f 50 41 47 45 53 20 31 30  VFS_MAX_PAGES 10
1230: 32 34 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 68 61 72  24../*.** A shar
1240: 65 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65 72  ed-memory buffer
1250: 2e 20 54 68 65 72 65 20 69 73 20 6f 6e 65 20 6f  . There is one o
1260: 66 20 74 68 65 73 65 20 6f 62 6a 65 63 74 73 20  f these objects 
1270: 66 6f 72 20 65 61 63 68 20 73 68 61 72 65 64 0a  for each shared.
1280: 2a 2a 20 6d 65 6d 6f 72 79 20 72 65 67 69 6f 6e  ** memory region
1290: 20 6f 70 65 6e 65 64 20 62 79 20 63 6c 69 65 6e   opened by clien
12a0: 74 73 2e 20 49 66 20 74 77 6f 20 63 6c 69 65 6e  ts. If two clien
12b0: 74 73 20 6f 70 65 6e 20 74 68 65 20 73 61 6d 65  ts open the same
12c0: 20 66 69 6c 65 2c 0a 2a 2a 20 74 68 65 72 65 20   file,.** there 
12d0: 61 72 65 20 74 77 6f 20 54 65 73 74 76 66 73 46  are two TestvfsF
12e0: 69 6c 65 20 73 74 72 75 63 74 75 72 65 73 20 62  ile structures b
12f0: 75 74 20 6f 6e 6c 79 20 6f 6e 65 20 54 65 73 74  ut only one Test
1300: 76 66 73 42 75 66 66 65 72 20 73 74 72 75 63 74  vfsBuffer struct
1310: 75 72 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54  ure..*/.struct T
1320: 65 73 74 76 66 73 42 75 66 66 65 72 20 7b 0a 20  estvfsBuffer {. 
1330: 20 63 68 61 72 20 2a 7a 46 69 6c 65 3b 20 20 20   char *zFile;   
1340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1350: 20 2f 2a 20 41 73 73 6f 63 69 61 74 65 64 20 66   /* Associated f
1360: 69 6c 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e  ile name */.  in
1370: 74 20 70 67 73 7a 3b 20 20 20 20 20 20 20 20 20  t pgsz;         
1380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1390: 20 50 61 67 65 20 73 69 7a 65 20 2a 2f 0a 20 20   Page size */.  
13a0: 75 38 20 2a 61 50 61 67 65 5b 54 45 53 54 56 46  u8 *aPage[TESTVF
13b0: 53 5f 4d 41 58 5f 50 41 47 45 53 5d 3b 20 20 20  S_MAX_PAGES];   
13c0: 2f 2a 20 41 72 72 61 79 20 6f 66 20 63 6b 61 6c  /* Array of ckal
13d0: 6c 6f 63 27 64 20 70 61 67 65 73 20 2a 2f 0a 20  loc'd pages */. 
13e0: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 69 6c   TestvfsFd *pFil
13f0: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
1400: 20 2f 2a 20 4c 69 73 74 20 6f 66 20 6f 70 65 6e   /* List of open
1410: 20 68 61 6e 64 6c 65 73 20 2a 2f 0a 20 20 54 65   handles */.  Te
1420: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 4e 65  stvfsBuffer *pNe
1430: 78 74 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  xt;           /*
1440: 20 4e 65 78 74 20 69 6e 20 6c 69 6e 6b 65 64 20   Next in linked 
1450: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 62 75 66 66  list of all buff
1460: 65 72 73 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66  ers */.};...#def
1470: 69 6e 65 20 50 41 52 45 4e 54 56 46 53 28 78 29  ine PARENTVFS(x)
1480: 20 28 28 28 54 65 73 74 76 66 73 20 2a 29 28 28   (((Testvfs *)((
1490: 78 29 2d 3e 70 41 70 70 44 61 74 61 29 29 2d 3e  x)->pAppData))->
14a0: 70 50 61 72 65 6e 74 29 0a 0a 23 64 65 66 69 6e  pParent)..#defin
14b0: 65 20 54 45 53 54 56 46 53 5f 4d 41 58 5f 41 52  e TESTVFS_MAX_AR
14c0: 47 53 20 31 32 0a 0a 0a 2f 2a 0a 2a 2a 20 4d 65  GS 12.../*.** Me
14d0: 74 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e  thod declaration
14e0: 73 20 66 6f 72 20 54 65 73 74 76 66 73 46 69 6c  s for TestvfsFil
14f0: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
1500: 20 74 76 66 73 43 6c 6f 73 65 28 73 71 6c 69 74   tvfsClose(sqlit
1510: 65 33 5f 66 69 6c 65 2a 29 3b 0a 73 74 61 74 69  e3_file*);.stati
1520: 63 20 69 6e 74 20 74 76 66 73 52 65 61 64 28 73  c int tvfsRead(s
1530: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 76 6f  qlite3_file*, vo
1540: 69 64 2a 2c 20 69 6e 74 20 69 41 6d 74 2c 20 73  id*, int iAmt, s
1550: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66  qlite3_int64 iOf
1560: 73 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  st);.static int 
1570: 74 76 66 73 57 72 69 74 65 28 73 71 6c 69 74 65  tvfsWrite(sqlite
1580: 33 5f 66 69 6c 65 2a 2c 63 6f 6e 73 74 20 76 6f  3_file*,const vo
1590: 69 64 2a 2c 69 6e 74 20 69 41 6d 74 2c 20 73 71  id*,int iAmt, sq
15a0: 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73  lite3_int64 iOfs
15b0: 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  t);.static int t
15c0: 76 66 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69  vfsTruncate(sqli
15d0: 74 65 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74  te3_file*, sqlit
15e0: 65 33 5f 69 6e 74 36 34 20 73 69 7a 65 29 3b 0a  e3_int64 size);.
15f0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
1600: 79 6e 63 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ync(sqlite3_file
1610: 2a 2c 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a 73  *, int flags);.s
1620: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 69  tatic int tvfsFi
1630: 6c 65 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66  leSize(sqlite3_f
1640: 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e  ile*, sqlite3_in
1650: 74 36 34 20 2a 70 53 69 7a 65 29 3b 0a 73 74 61  t64 *pSize);.sta
1660: 74 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b  tic int tvfsLock
1670: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20  (sqlite3_file*, 
1680: 69 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  int);.static int
1690: 20 74 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69   tvfsUnlock(sqli
16a0: 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b  te3_file*, int);
16b0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
16c0: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63  CheckReservedLoc
16d0: 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  k(sqlite3_file*,
16e0: 20 69 6e 74 20 2a 29 3b 0a 73 74 61 74 69 63 20   int *);.static 
16f0: 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f 6e 74  int tvfsFileCont
1700: 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  rol(sqlite3_file
1710: 2a 2c 20 69 6e 74 20 6f 70 2c 20 76 6f 69 64 20  *, int op, void 
1720: 2a 70 41 72 67 29 3b 0a 73 74 61 74 69 63 20 69  *pArg);.static i
1730: 6e 74 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a  nt tvfsSectorSiz
1740: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29  e(sqlite3_file*)
1750: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
1760: 73 44 65 76 69 63 65 43 68 61 72 61 63 74 65 72  sDeviceCharacter
1770: 69 73 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66  istics(sqlite3_f
1780: 69 6c 65 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 4d 65  ile*);../*.** Me
1790: 74 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e  thod declaration
17a0: 73 20 66 6f 72 20 74 76 66 73 5f 76 66 73 2e 0a  s for tvfs_vfs..
17b0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
17c0: 66 73 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76  fsOpen(sqlite3_v
17d0: 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  fs*, const char 
17e0: 2a 2c 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  *, sqlite3_file*
17f0: 2c 20 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b 0a  , int , int *);.
1800: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44  static int tvfsD
1810: 65 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76 66  elete(sqlite3_vf
1820: 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  s*, const char *
1830: 7a 4e 61 6d 65 2c 20 69 6e 74 20 73 79 6e 63 44  zName, int syncD
1840: 69 72 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  ir);.static int 
1850: 74 76 66 73 41 63 63 65 73 73 28 73 71 6c 69 74  tvfsAccess(sqlit
1860: 65 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63  e3_vfs*, const c
1870: 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20  har *zName, int 
1880: 66 6c 61 67 73 2c 20 69 6e 74 20 2a 29 3b 0a 73  flags, int *);.s
1890: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 75  tatic int tvfsFu
18a0: 6c 6c 50 61 74 68 6e 61 6d 65 28 73 71 6c 69 74  llPathname(sqlit
18b0: 65 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63  e3_vfs*, const c
18c0: 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 2c  har *zName, int,
18d0: 20 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 23 69   char *zOut);.#i
18e0: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  fndef SQLITE_OMI
18f0: 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e  T_LOAD_EXTENSION
1900: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a 74 76  .static void *tv
1910: 66 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33  fsDlOpen(sqlite3
1920: 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61  _vfs*, const cha
1930: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 73  r *zFilename);.s
1940: 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 44  tatic void tvfsD
1950: 6c 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f 76  lError(sqlite3_v
1960: 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20  fs*, int nByte, 
1970: 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 29 3b 0a  char *zErrMsg);.
1980: 73 74 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76  static void (*tv
1990: 66 73 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f  fsDlSym(sqlite3_
19a0: 76 66 73 2a 2c 76 6f 69 64 2a 2c 20 63 6f 6e 73  vfs*,void*, cons
19b0: 74 20 63 68 61 72 20 2a 7a 53 79 6d 62 6f 6c 29  t char *zSymbol)
19c0: 29 28 76 6f 69 64 29 3b 0a 73 74 61 74 69 63 20  )(void);.static 
19d0: 76 6f 69 64 20 74 76 66 73 44 6c 43 6c 6f 73 65  void tvfsDlClose
19e0: 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 76  (sqlite3_vfs*, v
19f0: 6f 69 64 2a 29 3b 0a 23 65 6e 64 69 66 20 2f 2a  oid*);.#endif /*
1a00: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41   SQLITE_OMIT_LOA
1a10: 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 73  D_EXTENSION */.s
1a20: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52 61  tatic int tvfsRa
1a30: 6e 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65 33  ndomness(sqlite3
1a40: 5f 76 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65  _vfs*, int nByte
1a50: 2c 20 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 73  , char *zOut);.s
1a60: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 6c  tatic int tvfsSl
1a70: 65 65 70 28 73 71 6c 69 74 65 33 5f 76 66 73 2a  eep(sqlite3_vfs*
1a80: 2c 20 69 6e 74 20 6d 69 63 72 6f 73 65 63 6f 6e  , int microsecon
1a90: 64 73 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  ds);.static int 
1aa0: 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65 28  tvfsCurrentTime(
1ab0: 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 64 6f  sqlite3_vfs*, do
1ac0: 75 62 6c 65 2a 29 3b 0a 0a 73 74 61 74 69 63 20  uble*);..static 
1ad0: 69 6e 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28  int tvfsShmOpen(
1ae0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a  sqlite3_file*);.
1af0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
1b00: 68 6d 4c 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66  hmLock(sqlite3_f
1b10: 69 6c 65 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 2c  ile*, int , int,
1b20: 20 69 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e   int);.static in
1b30: 74 20 74 76 66 73 53 68 6d 4d 61 70 28 73 71 6c  t tvfsShmMap(sql
1b40: 69 74 65 33 5f 66 69 6c 65 2a 2c 69 6e 74 2c 69  ite3_file*,int,i
1b50: 6e 74 2c 69 6e 74 2c 20 76 6f 69 64 20 76 6f 6c  nt,int, void vol
1b60: 61 74 69 6c 65 20 2a 2a 29 3b 0a 73 74 61 74 69  atile **);.stati
1b70: 63 20 76 6f 69 64 20 74 76 66 73 53 68 6d 42 61  c void tvfsShmBa
1b80: 72 72 69 65 72 28 73 71 6c 69 74 65 33 5f 66 69  rrier(sqlite3_fi
1b90: 6c 65 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  le*);.static int
1ba0: 20 74 76 66 73 53 68 6d 55 6e 6d 61 70 28 73 71   tvfsShmUnmap(sq
1bb0: 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74  lite3_file*, int
1bc0: 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74  );..static int t
1bd0: 76 66 73 46 65 74 63 68 28 73 71 6c 69 74 65 33  vfsFetch(sqlite3
1be0: 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33 5f  _file*, sqlite3_
1bf0: 69 6e 74 36 34 2c 20 69 6e 74 2c 20 76 6f 69 64  int64, int, void
1c00: 2a 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  **);.static int 
1c10: 74 76 66 73 55 6e 66 65 74 63 68 28 73 71 6c 69  tvfsUnfetch(sqli
1c20: 74 65 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74  te3_file*, sqlit
1c30: 65 33 5f 69 6e 74 36 34 2c 20 76 6f 69 64 2a 29  e3_int64, void*)
1c40: 3b 0a 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65  ;..static sqlite
1c50: 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 74 76 66  3_io_methods tvf
1c60: 73 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 3d 20 7b  s_io_methods = {
1c70: 0a 20 20 33 2c 20 20 20 20 20 20 20 20 20 20 20  .  3,           
1c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c90: 20 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a     /* iVersion *
1ca0: 2f 0a 20 20 74 76 66 73 43 6c 6f 73 65 2c 20 20  /.  tvfsClose,  
1cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1cc0: 20 20 20 20 2f 2a 20 78 43 6c 6f 73 65 20 2a 2f      /* xClose */
1cd0: 0a 20 20 74 76 66 73 52 65 61 64 2c 20 20 20 20  .  tvfsRead,    
1ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1cf0: 20 20 20 2f 2a 20 78 52 65 61 64 20 2a 2f 0a 20     /* xRead */. 
1d00: 20 74 76 66 73 57 72 69 74 65 2c 20 20 20 20 20   tvfsWrite,     
1d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d20: 20 2f 2a 20 78 57 72 69 74 65 20 2a 2f 0a 20 20   /* xWrite */.  
1d30: 74 76 66 73 54 72 75 6e 63 61 74 65 2c 20 20 20  tvfsTruncate,   
1d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d50: 2f 2a 20 78 54 72 75 6e 63 61 74 65 20 2a 2f 0a  /* xTruncate */.
1d60: 20 20 74 76 66 73 53 79 6e 63 2c 20 20 20 20 20    tvfsSync,     
1d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d80: 20 20 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20    /* xSync */.  
1d90: 74 76 66 73 46 69 6c 65 53 69 7a 65 2c 20 20 20  tvfsFileSize,   
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1db0: 2f 2a 20 78 46 69 6c 65 53 69 7a 65 20 2a 2f 0a  /* xFileSize */.
1dc0: 20 20 74 76 66 73 4c 6f 63 6b 2c 20 20 20 20 20    tvfsLock,     
1dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1de0: 20 20 2f 2a 20 78 4c 6f 63 6b 20 2a 2f 0a 20 20    /* xLock */.  
1df0: 74 76 66 73 55 6e 6c 6f 63 6b 2c 20 20 20 20 20  tvfsUnlock,     
1e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e10: 2f 2a 20 78 55 6e 6c 6f 63 6b 20 2a 2f 0a 20 20  /* xUnlock */.  
1e20: 74 76 66 73 43 68 65 63 6b 52 65 73 65 72 76 65  tvfsCheckReserve
1e30: 64 4c 6f 63 6b 2c 20 20 20 20 20 20 20 20 20 20  dLock,          
1e40: 2f 2a 20 78 43 68 65 63 6b 52 65 73 65 72 76 65  /* xCheckReserve
1e50: 64 4c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73 46  dLock */.  tvfsF
1e60: 69 6c 65 43 6f 6e 74 72 6f 6c 2c 20 20 20 20 20  ileControl,     
1e70: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46             /* xF
1e80: 69 6c 65 43 6f 6e 74 72 6f 6c 20 2a 2f 0a 20 20  ileControl */.  
1e90: 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65 2c 20  tvfsSectorSize, 
1ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1eb0: 2f 2a 20 78 53 65 63 74 6f 72 53 69 7a 65 20 2a  /* xSectorSize *
1ec0: 2f 0a 20 20 74 76 66 73 44 65 76 69 63 65 43 68  /.  tvfsDeviceCh
1ed0: 61 72 61 63 74 65 72 69 73 74 69 63 73 2c 20 20  aracteristics,  
1ee0: 20 20 20 20 2f 2a 20 78 44 65 76 69 63 65 43 68      /* xDeviceCh
1ef0: 61 72 61 63 74 65 72 69 73 74 69 63 73 20 2a 2f  aracteristics */
1f00: 0a 20 20 74 76 66 73 53 68 6d 4d 61 70 2c 20 20  .  tvfsShmMap,  
1f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f20: 20 20 20 2f 2a 20 78 53 68 6d 4d 61 70 20 2a 2f     /* xShmMap */
1f30: 0a 20 20 74 76 66 73 53 68 6d 4c 6f 63 6b 2c 20  .  tvfsShmLock, 
1f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f50: 20 20 20 2f 2a 20 78 53 68 6d 4c 6f 63 6b 20 2a     /* xShmLock *
1f60: 2f 0a 20 20 74 76 66 73 53 68 6d 42 61 72 72 69  /.  tvfsShmBarri
1f70: 65 72 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  er,             
1f80: 20 20 20 20 2f 2a 20 78 53 68 6d 42 61 72 72 69      /* xShmBarri
1f90: 65 72 20 2a 2f 0a 20 20 74 76 66 73 53 68 6d 55  er */.  tvfsShmU
1fa0: 6e 6d 61 70 2c 20 20 20 20 20 20 20 20 20 20 20  nmap,           
1fb0: 20 20 20 20 20 20 20 20 2f 2a 20 78 53 68 6d 55          /* xShmU
1fc0: 6e 6d 61 70 20 2a 2f 0a 20 20 74 76 66 73 46 65  nmap */.  tvfsFe
1fd0: 74 63 68 2c 0a 20 20 74 76 66 73 55 6e 66 65 74  tch,.  tvfsUnfet
1fe0: 63 68 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 69 6e  ch.};..static in
1ff0: 74 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65  t tvfsResultCode
2000: 28 54 65 73 74 76 66 73 20 2a 70 2c 20 69 6e 74  (Testvfs *p, int
2010: 20 2a 70 52 63 29 7b 0a 20 20 73 74 72 75 63 74   *pRc){.  struct
2020: 20 65 72 72 63 6f 64 65 20 7b 0a 20 20 20 20 69   errcode {.    i
2030: 6e 74 20 65 43 6f 64 65 3b 0a 20 20 20 20 63 6f  nt eCode;.    co
2040: 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 64 65 3b  nst char *zCode;
2050: 0a 20 20 7d 20 61 43 6f 64 65 5b 5d 20 3d 20 7b  .  } aCode[] = {
2060: 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f 4f 4b  .    { SQLITE_OK
2070: 2c 20 20 20 20 20 20 20 22 53 51 4c 49 54 45 5f  ,       "SQLITE_
2080: 4f 4b 22 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  OK"     },.    {
2090: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 2c 20 20   SQLITE_ERROR,  
20a0: 20 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22    "SQLITE_ERROR"
20b0: 20 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54    },.    { SQLIT
20c0: 45 5f 49 4f 45 52 52 2c 20 20 20 20 22 53 51 4c  E_IOERR,    "SQL
20d0: 49 54 45 5f 49 4f 45 52 52 22 20 20 7d 2c 0a 20  ITE_IOERR"  },. 
20e0: 20 20 20 7b 20 53 51 4c 49 54 45 5f 4c 4f 43 4b     { SQLITE_LOCK
20f0: 45 44 2c 20 20 20 22 53 51 4c 49 54 45 5f 4c 4f  ED,   "SQLITE_LO
2100: 43 4b 45 44 22 20 7d 2c 0a 20 20 20 20 7b 20 53  CKED" },.    { S
2110: 51 4c 49 54 45 5f 42 55 53 59 2c 20 20 20 20 20  QLITE_BUSY,     
2120: 22 53 51 4c 49 54 45 5f 42 55 53 59 22 20 20 20  "SQLITE_BUSY"   
2130: 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f  },.    { SQLITE_
2140: 52 45 41 44 4f 4e 4c 59 2c 20 22 53 51 4c 49 54  READONLY, "SQLIT
2150: 45 5f 52 45 41 44 4f 4e 4c 59 22 20 20 20 7d 2c  E_READONLY"   },
2160: 0a 20 20 7d 3b 0a 0a 20 20 63 6f 6e 73 74 20 63  .  };..  const c
2170: 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b  har *z;.  int i;
2180: 0a 0a 20 20 7a 20 3d 20 54 63 6c 5f 47 65 74 53  ..  z = Tcl_GetS
2190: 74 72 69 6e 67 52 65 73 75 6c 74 28 70 2d 3e 69  tringResult(p->i
21a0: 6e 74 65 72 70 29 3b 0a 20 20 66 6f 72 28 69 3d  nterp);.  for(i=
21b0: 30 3b 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61  0; i<ArraySize(a
21c0: 43 6f 64 65 29 3b 20 69 2b 2b 29 7b 0a 20 20 20  Code); i++){.   
21d0: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 7a   if( 0==strcmp(z
21e0: 2c 20 61 43 6f 64 65 5b 69 5d 2e 7a 43 6f 64 65  , aCode[i].zCode
21f0: 29 20 29 7b 0a 20 20 20 20 20 20 2a 70 52 63 20  ) ){.      *pRc 
2200: 3d 20 61 43 6f 64 65 5b 69 5d 2e 65 43 6f 64 65  = aCode[i].eCode
2210: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31  ;.      return 1
2220: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72  ;.    }.  }..  r
2230: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61 74  eturn 0;.}..stat
2240: 69 63 20 69 6e 74 20 74 76 66 73 49 6e 6a 65 63  ic int tvfsInjec
2250: 74 46 61 75 6c 74 28 54 65 73 74 46 61 75 6c 74  tFault(TestFault
2260: 49 6e 6a 65 63 74 20 2a 70 29 7b 0a 20 20 69 6e  Inject *p){.  in
2270: 74 20 72 65 74 20 3d 20 30 3b 0a 20 20 69 66 28  t ret = 0;.  if(
2280: 20 70 2d 3e 65 46 61 75 6c 74 20 29 7b 0a 20 20   p->eFault ){.  
2290: 20 20 70 2d 3e 69 43 6e 74 2d 2d 3b 0a 20 20 20    p->iCnt--;.   
22a0: 20 69 66 28 20 70 2d 3e 69 43 6e 74 3d 3d 30 20   if( p->iCnt==0 
22b0: 7c 7c 20 28 70 2d 3e 69 43 6e 74 3c 30 20 26 26  || (p->iCnt<0 &&
22c0: 20 70 2d 3e 65 46 61 75 6c 74 3d 3d 46 41 55 4c   p->eFault==FAUL
22d0: 54 5f 49 4e 4a 45 43 54 5f 50 45 52 53 49 53 54  T_INJECT_PERSIST
22e0: 45 4e 54 20 29 20 29 7b 0a 20 20 20 20 20 20 72  ENT ) ){.      r
22f0: 65 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 70 2d  et = 1;.      p-
2300: 3e 6e 46 61 69 6c 2b 2b 3b 0a 20 20 20 20 7d 0a  >nFail++;.    }.
2310: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 65 74    }.  return ret
2320: 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20 69 6e 74  ;.}...static int
2330: 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65 72 72   tvfsInjectIoerr
2340: 28 54 65 73 74 76 66 73 20 2a 70 29 7b 0a 20 20  (Testvfs *p){.  
2350: 72 65 74 75 72 6e 20 74 76 66 73 49 6e 6a 65 63  return tvfsInjec
2360: 74 46 61 75 6c 74 28 26 70 2d 3e 69 6f 65 72 72  tFault(&p->ioerr
2370: 5f 65 72 72 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  _err);.}..static
2380: 20 69 6e 74 20 74 76 66 73 49 6e 6a 65 63 74 46   int tvfsInjectF
2390: 75 6c 6c 65 72 72 28 54 65 73 74 76 66 73 20 2a  ullerr(Testvfs *
23a0: 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 74 76 66  p){.  return tvf
23b0: 73 49 6e 6a 65 63 74 46 61 75 6c 74 28 26 70 2d  sInjectFault(&p-
23c0: 3e 66 75 6c 6c 5f 65 72 72 29 3b 0a 7d 0a 73 74  >full_err);.}.st
23d0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 49 6e 6a  atic int tvfsInj
23e0: 65 63 74 43 61 6e 74 6f 70 65 6e 65 72 72 28 54  ectCantopenerr(T
23f0: 65 73 74 76 66 73 20 2a 70 29 7b 0a 20 20 72 65  estvfs *p){.  re
2400: 74 75 72 6e 20 74 76 66 73 49 6e 6a 65 63 74 46  turn tvfsInjectF
2410: 61 75 6c 74 28 26 70 2d 3e 63 61 6e 74 6f 70 65  ault(&p->cantope
2420: 6e 5f 65 72 72 29 3b 0a 7d 0a 0a 0a 73 74 61 74  n_err);.}...stat
2430: 69 63 20 76 6f 69 64 20 74 76 66 73 45 78 65 63  ic void tvfsExec
2440: 54 63 6c 28 0a 20 20 54 65 73 74 76 66 73 20 2a  Tcl(.  Testvfs *
2450: 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  p, .  const char
2460: 20 2a 7a 4d 65 74 68 6f 64 2c 0a 20 20 54 63 6c   *zMethod,.  Tcl
2470: 5f 4f 62 6a 20 2a 61 72 67 31 2c 0a 20 20 54 63  _Obj *arg1,.  Tc
2480: 6c 5f 4f 62 6a 20 2a 61 72 67 32 2c 0a 20 20 54  l_Obj *arg2,.  T
2490: 63 6c 5f 4f 62 6a 20 2a 61 72 67 33 2c 0a 20 20  cl_Obj *arg3,.  
24a0: 54 63 6c 5f 4f 62 6a 20 2a 61 72 67 34 0a 29 7b  Tcl_Obj *arg4.){
24b0: 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20  .  int rc;      
24c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
24d0: 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 64     /* Return cod
24e0: 65 20 66 72 6f 6d 20 54 63 6c 5f 45 76 61 6c 4f  e from Tcl_EvalO
24f0: 62 6a 28 29 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62  bj() */.  Tcl_Ob
2500: 6a 20 2a 70 45 76 61 6c 3b 0a 20 20 61 73 73 65  j *pEval;.  asse
2510: 72 74 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29  rt( p->pScript )
2520: 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 7a 4d 65  ;..  assert( zMe
2530: 74 68 6f 64 20 29 3b 0a 20 20 61 73 73 65 72 74  thod );.  assert
2540: 28 20 70 20 29 3b 0a 20 20 61 73 73 65 72 74 28  ( p );.  assert(
2550: 20 61 72 67 32 3d 3d 30 20 7c 7c 20 61 72 67 31   arg2==0 || arg1
2560: 21 3d 30 20 29 3b 0a 20 20 61 73 73 65 72 74 28  !=0 );.  assert(
2570: 20 61 72 67 33 3d 3d 30 20 7c 7c 20 61 72 67 32   arg3==0 || arg2
2580: 21 3d 30 20 29 3b 0a 0a 20 20 70 45 76 61 6c 20  !=0 );..  pEval 
2590: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f  = Tcl_DuplicateO
25a0: 62 6a 28 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a  bj(p->pScript);.
25b0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75    Tcl_IncrRefCou
25c0: 6e 74 28 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a  nt(p->pScript);.
25d0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
25e0: 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e  endElement(p->in
25f0: 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 54 63 6c  terp, pEval, Tcl
2600: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4d  _NewStringObj(zM
2610: 65 74 68 6f 64 2c 20 2d 31 29 29 3b 0a 20 20 69  ethod, -1));.  i
2620: 66 28 20 61 72 67 31 20 29 20 54 63 6c 5f 4c 69  f( arg1 ) Tcl_Li
2630: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
2640: 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45  nt(p->interp, pE
2650: 76 61 6c 2c 20 61 72 67 31 29 3b 0a 20 20 69 66  val, arg1);.  if
2660: 28 20 61 72 67 32 20 29 20 54 63 6c 5f 4c 69 73  ( arg2 ) Tcl_Lis
2670: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
2680: 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76  t(p->interp, pEv
2690: 61 6c 2c 20 61 72 67 32 29 3b 0a 20 20 69 66 28  al, arg2);.  if(
26a0: 20 61 72 67 33 20 29 20 54 63 6c 5f 4c 69 73 74   arg3 ) Tcl_List
26b0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
26c0: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61  (p->interp, pEva
26d0: 6c 2c 20 61 72 67 33 29 3b 0a 20 20 69 66 28 20  l, arg3);.  if( 
26e0: 61 72 67 34 20 29 20 54 63 6c 5f 4c 69 73 74 4f  arg4 ) Tcl_ListO
26f0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
2700: 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61 6c  p->interp, pEval
2710: 2c 20 61 72 67 34 29 3b 0a 0a 20 20 72 63 20 3d  , arg4);..  rc =
2720: 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70   Tcl_EvalObjEx(p
2730: 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c  ->interp, pEval,
2740: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c   TCL_EVAL_GLOBAL
2750: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c  );.  if( rc!=TCL
2760: 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 42  _OK ){.    Tcl_B
2770: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70  ackgroundError(p
2780: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54  ->interp);.    T
2790: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 70  cl_ResetResult(p
27a0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 7d  ->interp);.  }.}
27b0: 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61  .../*.** Close a
27c0: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
27d0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43  static int tvfsC
27e0: 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 66 69 6c  lose(sqlite3_fil
27f0: 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73  e *pFile){.  Tes
2800: 74 76 66 73 46 69 6c 65 20 2a 70 54 65 73 74 66  tvfsFile *pTestf
2810: 69 6c 65 20 3d 20 28 54 65 73 74 76 66 73 46 69  ile = (TestvfsFi
2820: 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 54 65  le *)pFile;.  Te
2830: 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 70  stvfsFd *pFd = p
2840: 54 65 73 74 66 69 6c 65 2d 3e 70 46 64 3b 0a 20  Testfile->pFd;. 
2850: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
2860: 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56  estvfs *)pFd->pV
2870: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20  fs->pAppData;.. 
2880: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
2890: 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  && p->mask&TESTV
28a0: 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20 29 7b  FS_CLOSE_MASK ){
28b0: 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c  .    tvfsExecTcl
28c0: 28 70 2c 20 22 78 43 6c 6f 73 65 22 2c 20 0a 20  (p, "xClose", . 
28d0: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
28e0: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
28f0: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64  lename, -1), pFd
2900: 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20  ->pShmId, 0, 0. 
2910: 20 20 20 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28     );.  }..  if(
2920: 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 29 7b 0a   pFd->pShmId ){.
2930: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43      Tcl_DecrRefC
2940: 6f 75 6e 74 28 70 46 64 2d 3e 70 53 68 6d 49 64  ount(pFd->pShmId
2950: 29 3b 0a 20 20 20 20 70 46 64 2d 3e 70 53 68 6d  );.    pFd->pShm
2960: 49 64 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66  Id = 0;.  }.  if
2970: 28 20 70 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64  ( pFile->pMethod
2980: 73 20 29 7b 0a 20 20 20 20 63 6b 66 72 65 65 28  s ){.    ckfree(
2990: 28 63 68 61 72 20 2a 29 70 46 69 6c 65 2d 3e 70  (char *)pFile->p
29a0: 4d 65 74 68 6f 64 73 29 3b 0a 20 20 7d 0a 20 20  Methods);.  }.  
29b0: 73 71 6c 69 74 65 33 4f 73 43 6c 6f 73 65 28 70  sqlite3OsClose(p
29c0: 46 64 2d 3e 70 52 65 61 6c 29 3b 0a 20 20 63 6b  Fd->pReal);.  ck
29d0: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 46 64  free((char *)pFd
29e0: 29 3b 0a 20 20 70 54 65 73 74 66 69 6c 65 2d 3e  );.  pTestfile->
29f0: 70 46 64 20 3d 20 30 3b 0a 20 20 72 65 74 75 72  pFd = 0;.  retur
2a00: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a  n SQLITE_OK;.}..
2a10: 2f 2a 0a 2a 2a 20 52 65 61 64 20 64 61 74 61 20  /*.** Read data 
2a20: 66 72 6f 6d 20 61 6e 20 74 76 66 73 2d 66 69 6c  from an tvfs-fil
2a30: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
2a40: 20 74 76 66 73 52 65 61 64 28 0a 20 20 73 71 6c   tvfsRead(.  sql
2a50: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
2a60: 2c 20 0a 20 20 76 6f 69 64 20 2a 7a 42 75 66 2c  , .  void *zBuf,
2a70: 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a 20   .  int iAmt, . 
2a80: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 69 4f   sqlite_int64 iO
2a90: 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20  fst.){.  int rc 
2aa0: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54  = SQLITE_OK;.  T
2ab0: 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20  estvfsFd *pFd = 
2ac0: 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65 29  tvfsGetFd(pFile)
2ad0: 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  ;.  Testvfs *p =
2ae0: 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d   (Testvfs *)pFd-
2af0: 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b  >pVfs->pAppData;
2b00: 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70  .  if( p->pScrip
2b10: 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53  t && p->mask&TES
2b20: 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20 29  TVFS_READ_MASK )
2b30: 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  {.    tvfsExecTc
2b40: 6c 28 70 2c 20 22 78 52 65 61 64 22 2c 20 0a 20  l(p, "xRead", . 
2b50: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
2b60: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
2b70: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64  lename, -1), pFd
2b80: 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20  ->pShmId, 0, 0. 
2b90: 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65     );.    tvfsRe
2ba0: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
2bb0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d  ;.  }.  if( rc==
2bc0: 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e  SQLITE_OK && p->
2bd0: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 52 45 41  mask&TESTVFS_REA
2be0: 44 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49 6e  D_MASK && tvfsIn
2bf0: 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b 0a  jectIoerr(p) ){.
2c00: 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f      rc = SQLITE_
2c10: 49 4f 45 52 52 3b 0a 20 20 7d 0a 20 20 69 66 28  IOERR;.  }.  if(
2c20: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc==SQLITE_OK )
2c30: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  {.    rc = sqlit
2c40: 65 33 4f 73 52 65 61 64 28 70 46 64 2d 3e 70 52  e3OsRead(pFd->pR
2c50: 65 61 6c 2c 20 7a 42 75 66 2c 20 69 41 6d 74 2c  eal, zBuf, iAmt,
2c60: 20 69 4f 66 73 74 29 3b 0a 20 20 7d 0a 20 20 72   iOfst);.  }.  r
2c70: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
2c80: 2a 2a 20 57 72 69 74 65 20 64 61 74 61 20 74 6f  ** Write data to
2c90: 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a   an tvfs-file..*
2ca0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
2cb0: 73 57 72 69 74 65 28 0a 20 20 73 71 6c 69 74 65  sWrite(.  sqlite
2cc0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 0a  3_file *pFile, .
2cd0: 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 42    const void *zB
2ce0: 75 66 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c  uf, .  int iAmt,
2cf0: 20 0a 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34   .  sqlite_int64
2d00: 20 69 4f 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20   iOfst.){.  int 
2d10: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
2d20: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
2d30: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
2d40: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
2d50: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
2d60: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
2d70: 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53  ta;..  if( p->pS
2d80: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
2d90: 26 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d  &TESTVFS_WRITE_M
2da0: 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45  ASK ){.    tvfsE
2db0: 78 65 63 54 63 6c 28 70 2c 20 22 78 57 72 69 74  xecTcl(p, "xWrit
2dc0: 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c  e", .        Tcl
2dd0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46  _NewStringObj(pF
2de0: 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31  d->zFilename, -1
2df0: 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20  ), pFd->pShmId, 
2e00: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  .        Tcl_New
2e10: 57 69 64 65 49 6e 74 4f 62 6a 28 69 4f 66 73 74  WideIntObj(iOfst
2e20: 29 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  ), Tcl_NewIntObj
2e30: 28 69 41 6d 74 29 0a 20 20 20 20 29 3b 0a 20 20  (iAmt).    );.  
2e40: 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65    tvfsResultCode
2e50: 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a 20  (p, &rc);.  }.. 
2e60: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
2e70: 4f 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  OK && tvfsInject
2e80: 46 75 6c 6c 65 72 72 28 70 29 20 29 7b 0a 20 20  Fullerr(p) ){.  
2e90: 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 46 55    rc = SQLITE_FU
2ea0: 4c 4c 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63  LL;.  }.  if( rc
2eb0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70  ==SQLITE_OK && p
2ec0: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 57  ->mask&TESTVFS_W
2ed0: 52 49 54 45 5f 4d 41 53 4b 20 26 26 20 74 76 66  RITE_MASK && tvf
2ee0: 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20  sInjectIoerr(p) 
2ef0: 29 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49  ){.    rc = SQLI
2f00: 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 20 20  TE_IOERR;.  }.  
2f10: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54  .  if( rc==SQLIT
2f20: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d  E_OK ){.    rc =
2f30: 20 73 71 6c 69 74 65 33 4f 73 57 72 69 74 65 28   sqlite3OsWrite(
2f40: 70 46 64 2d 3e 70 52 65 61 6c 2c 20 7a 42 75 66  pFd->pReal, zBuf
2f50: 2c 20 69 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a  , iAmt, iOfst);.
2f60: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b    }.  return rc;
2f70: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 75 6e 63 61  .}../*.** Trunca
2f80: 74 65 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  te an tvfs-file.
2f90: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2fa0: 76 66 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69  vfsTruncate(sqli
2fb0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
2fc0: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 73 69   sqlite_int64 si
2fd0: 7a 65 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  ze){.  int rc = 
2fe0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
2ff0: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
3000: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
3010: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
3020: 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70  Testvfs *)pFd->p
3030: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a  Vfs->pAppData;..
3040: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
3050: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
3060: 56 46 53 5f 54 52 55 4e 43 41 54 45 5f 4d 41 53  VFS_TRUNCATE_MAS
3070: 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65  K ){.    tvfsExe
3080: 63 54 63 6c 28 70 2c 20 22 78 54 72 75 6e 63 61  cTcl(p, "xTrunca
3090: 74 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63  te", .        Tc
30a0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70  l_NewStringObj(p
30b0: 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d  Fd->zFilename, -
30c0: 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c  1), pFd->pShmId,
30d0: 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20   0, 0.    );.   
30e0: 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28   tvfsResultCode(
30f0: 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 20 20 0a  p, &rc);.  }.  .
3100: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
3110: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
3120: 73 71 6c 69 74 65 33 4f 73 54 72 75 6e 63 61 74  sqlite3OsTruncat
3130: 65 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 73 69  e(pFd->pReal, si
3140: 7a 65 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  ze);.  }.  retur
3150: 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53  n rc;.}../*.** S
3160: 79 6e 63 20 61 6e 20 74 76 66 73 2d 66 69 6c 65  ync an tvfs-file
3170: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
3180: 74 76 66 73 53 79 6e 63 28 73 71 6c 69 74 65 33  tvfsSync(sqlite3
3190: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e  _file *pFile, in
31a0: 74 20 66 6c 61 67 73 29 7b 0a 20 20 69 6e 74 20  t flags){.  int 
31b0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
31c0: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
31d0: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
31e0: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
31f0: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
3200: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
3210: 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53  ta;..  if( p->pS
3220: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
3230: 26 54 45 53 54 56 46 53 5f 53 59 4e 43 5f 4d 41  &TESTVFS_SYNC_MA
3240: 53 4b 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a  SK ){.    char *
3250: 7a 46 6c 61 67 73 20 3d 20 30 3b 0a 0a 20 20 20  zFlags = 0;..   
3260: 20 73 77 69 74 63 68 28 20 66 6c 61 67 73 20 29   switch( flags )
3270: 7b 0a 20 20 20 20 20 20 63 61 73 65 20 53 51 4c  {.      case SQL
3280: 49 54 45 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c 3a  ITE_SYNC_NORMAL:
3290: 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67 73 20  .        zFlags 
32a0: 3d 20 22 6e 6f 72 6d 61 6c 22 3b 0a 20 20 20 20  = "normal";.    
32b0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
32c0: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53 59 4e   case SQLITE_SYN
32d0: 43 5f 46 55 4c 4c 3a 0a 20 20 20 20 20 20 20 20  C_FULL:.        
32e0: 7a 46 6c 61 67 73 20 3d 20 22 66 75 6c 6c 22 3b  zFlags = "full";
32f0: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
3300: 20 20 20 20 20 20 63 61 73 65 20 53 51 4c 49 54        case SQLIT
3310: 45 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c 7c 53 51  E_SYNC_NORMAL|SQ
3320: 4c 49 54 45 5f 53 59 4e 43 5f 44 41 54 41 4f 4e  LITE_SYNC_DATAON
3330: 4c 59 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c 61  LY:.        zFla
3340: 67 73 20 3d 20 22 6e 6f 72 6d 61 6c 7c 64 61 74  gs = "normal|dat
3350: 61 6f 6e 6c 79 22 3b 0a 20 20 20 20 20 20 20 20  aonly";.        
3360: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73  break;.      cas
3370: 65 20 53 51 4c 49 54 45 5f 53 59 4e 43 5f 46 55  e SQLITE_SYNC_FU
3380: 4c 4c 7c 53 51 4c 49 54 45 5f 53 59 4e 43 5f 44  LL|SQLITE_SYNC_D
3390: 41 54 41 4f 4e 4c 59 3a 0a 20 20 20 20 20 20 20  ATAONLY:.       
33a0: 20 7a 46 6c 61 67 73 20 3d 20 22 66 75 6c 6c 7c   zFlags = "full|
33b0: 64 61 74 61 6f 6e 6c 79 22 3b 0a 20 20 20 20 20  dataonly";.     
33c0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
33d0: 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20  default:.       
33e0: 20 61 73 73 65 72 74 28 30 29 3b 0a 20 20 20 20   assert(0);.    
33f0: 7d 0a 0a 20 20 20 20 74 76 66 73 45 78 65 63 54  }..    tvfsExecT
3400: 63 6c 28 70 2c 20 22 78 53 79 6e 63 22 2c 20 0a  cl(p, "xSync", .
3410: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
3420: 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46  tringObj(pFd->zF
3430: 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46  ilename, -1), pF
3440: 64 2d 3e 70 53 68 6d 49 64 2c 0a 20 20 20 20 20  d->pShmId,.     
3450: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
3460: 4f 62 6a 28 7a 46 6c 61 67 73 2c 20 2d 31 29 2c  Obj(zFlags, -1),
3470: 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76   0.    );.    tv
3480: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
3490: 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28  &rc);.  }..  if(
34a0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26   rc==SQLITE_OK &
34b0: 26 20 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c  & tvfsInjectFull
34c0: 65 72 72 28 70 29 20 29 20 72 63 20 3d 20 53 51  err(p) ) rc = SQ
34d0: 4c 49 54 45 5f 46 55 4c 4c 3b 0a 0a 20 20 69 66  LITE_FULL;..  if
34e0: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
34f0: 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69  ){.    rc = sqli
3500: 74 65 33 4f 73 53 79 6e 63 28 70 46 64 2d 3e 70  te3OsSync(pFd->p
3510: 52 65 61 6c 2c 20 66 6c 61 67 73 29 3b 0a 20 20  Real, flags);.  
3520: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  }..  return rc;.
3530: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
3540: 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 65  the current file
3550: 2d 73 69 7a 65 20 6f 66 20 61 6e 20 74 76 66 73  -size of an tvfs
3560: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
3570: 20 69 6e 74 20 74 76 66 73 46 69 6c 65 53 69 7a   int tvfsFileSiz
3580: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  e(sqlite3_file *
3590: 70 46 69 6c 65 2c 20 73 71 6c 69 74 65 5f 69 6e  pFile, sqlite_in
35a0: 74 36 34 20 2a 70 53 69 7a 65 29 7b 0a 20 20 54  t64 *pSize){.  T
35b0: 65 73 74 76 66 73 46 64 20 2a 70 20 3d 20 74 76  estvfsFd *p = tv
35c0: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
35d0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
35e0: 4f 73 46 69 6c 65 53 69 7a 65 28 70 2d 3e 70 52  OsFileSize(p->pR
35f0: 65 61 6c 2c 20 70 53 69 7a 65 29 3b 0a 7d 0a 0a  eal, pSize);.}..
3600: 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 61 6e 20 74 76  /*.** Lock an tv
3610: 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74  fs-file..*/.stat
3620: 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28  ic int tvfsLock(
3630: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
3640: 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b  ile, int eLock){
3650: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
3660: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
3670: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
3680: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
3690: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
36a0: 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53  ata;.  if( p->pS
36b0: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
36c0: 26 54 45 53 54 56 46 53 5f 4c 4f 43 4b 5f 4d 41  &TESTVFS_LOCK_MA
36d0: 53 4b 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a  SK ){.    char z
36e0: 4c 6f 63 6b 5b 33 30 5d 3b 0a 20 20 20 20 73 71  Lock[30];.    sq
36f0: 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73  lite3_snprintf(s
3700: 69 7a 65 6f 66 28 7a 4c 6f 63 6b 29 2c 7a 4c 6f  izeof(zLock),zLo
3710: 63 6b 2c 22 25 64 22 2c 65 4c 6f 63 6b 29 3b 0a  ck,"%d",eLock);.
3720: 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28      tvfsExecTcl(
3730: 70 2c 20 22 78 4c 6f 63 6b 22 2c 20 54 63 6c 5f  p, "xLock", Tcl_
3740: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64  NewStringObj(pFd
3750: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29  ->zFilename, -1)
3760: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  , .             
3770: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
3780: 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b 2c 20 2d 31  ingObj(zLock, -1
3790: 29 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20  ), 0, 0);.  }.  
37a0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
37b0: 4c 6f 63 6b 28 70 46 64 2d 3e 70 52 65 61 6c 2c  Lock(pFd->pReal,
37c0: 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a   eLock);.}../*.*
37d0: 2a 20 55 6e 6c 6f 63 6b 20 61 6e 20 74 76 66 73  * Unlock an tvfs
37e0: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
37f0: 20 69 6e 74 20 74 76 66 73 55 6e 6c 6f 63 6b 28   int tvfsUnlock(
3800: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
3810: 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b  ile, int eLock){
3820: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
3830: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
3840: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
3850: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
3860: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
3870: 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53  ata;.  if( p->pS
3880: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
3890: 26 54 45 53 54 56 46 53 5f 55 4e 4c 4f 43 4b 5f  &TESTVFS_UNLOCK_
38a0: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 63 68 61 72  MASK ){.    char
38b0: 20 7a 4c 6f 63 6b 5b 33 30 5d 3b 0a 20 20 20 20   zLock[30];.    
38c0: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66  sqlite3_snprintf
38d0: 28 73 69 7a 65 6f 66 28 7a 4c 6f 63 6b 29 2c 7a  (sizeof(zLock),z
38e0: 4c 6f 63 6b 2c 22 25 64 22 2c 65 4c 6f 63 6b 29  Lock,"%d",eLock)
38f0: 3b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  ;.    tvfsExecTc
3900: 6c 28 70 2c 20 22 78 55 6e 6c 6f 63 6b 22 2c 20  l(p, "xUnlock", 
3910: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
3920: 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c  (pFd->zFilename,
3930: 20 2d 31 29 2c 20 0a 20 20 20 20 20 20 20 20 20   -1), .         
3940: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65            Tcl_Ne
3950: 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b  wStringObj(zLock
3960: 2c 20 2d 31 29 2c 20 30 2c 20 30 29 3b 0a 20 20  , -1), 0, 0);.  
3970: 7d 0a 20 20 69 66 28 20 70 2d 3e 6d 61 73 6b 26  }.  if( p->mask&
3980: 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d 41  TESTVFS_WRITE_MA
3990: 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  SK && tvfsInject
39a0: 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20  Ioerr(p) ){.    
39b0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f  return SQLITE_IO
39c0: 45 52 52 5f 55 4e 4c 4f 43 4b 3b 0a 20 20 7d 0a  ERR_UNLOCK;.  }.
39d0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
39e0: 4f 73 55 6e 6c 6f 63 6b 28 70 46 64 2d 3e 70 52  OsUnlock(pFd->pR
39f0: 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a  eal, eLock);.}..
3a00: 2f 2a 0a 2a 2a 20 43 68 65 63 6b 20 69 66 20 61  /*.** Check if a
3a10: 6e 6f 74 68 65 72 20 66 69 6c 65 2d 68 61 6e 64  nother file-hand
3a20: 6c 65 20 68 6f 6c 64 73 20 61 20 52 45 53 45 52  le holds a RESER
3a30: 56 45 44 20 6c 6f 63 6b 20 6f 6e 20 61 6e 20 74  VED lock on an t
3a40: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
3a50: 74 69 63 20 69 6e 74 20 74 76 66 73 43 68 65 63  tic int tvfsChec
3a60: 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 73 71  kReservedLock(sq
3a70: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
3a80: 65 2c 20 69 6e 74 20 2a 70 52 65 73 4f 75 74 29  e, int *pResOut)
3a90: 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70  {.  TestvfsFd *p
3aa0: 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70  Fd = tvfsGetFd(p
3ab0: 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73  File);.  Testvfs
3ac0: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
3ad0: 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  )pFd->pVfs->pApp
3ae0: 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70  Data;.  if( p->p
3af0: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
3b00: 6b 26 54 45 53 54 56 46 53 5f 43 4b 4c 4f 43 4b  k&TESTVFS_CKLOCK
3b10: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66  _MASK ){.    tvf
3b20: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 43 68  sExecTcl(p, "xCh
3b30: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 22  eckReservedLock"
3b40: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
3b50: 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d  bj(pFd->zFilenam
3b60: 65 2c 20 2d 31 29 2c 0a 20 20 20 20 20 20 20 20  e, -1),.        
3b70: 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c             0, 0,
3b80: 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72   0);.  }.  retur
3b90: 6e 20 73 71 6c 69 74 65 33 4f 73 43 68 65 63 6b  n sqlite3OsCheck
3ba0: 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 70 46 64  ReservedLock(pFd
3bb0: 2d 3e 70 52 65 61 6c 2c 20 70 52 65 73 4f 75 74  ->pReal, pResOut
3bc0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 65  );.}../*.** File
3bd0: 20 63 6f 6e 74 72 6f 6c 20 6d 65 74 68 6f 64 2e   control method.
3be0: 20 46 6f 72 20 63 75 73 74 6f 6d 20 6f 70 65 72   For custom oper
3bf0: 61 74 69 6f 6e 73 20 6f 6e 20 61 6e 20 74 76 66  ations on an tvf
3c00: 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  s-file..*/.stati
3c10: 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f  c int tvfsFileCo
3c20: 6e 74 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69  ntrol(sqlite3_fi
3c30: 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 6f  le *pFile, int o
3c40: 70 2c 20 76 6f 69 64 20 2a 70 41 72 67 29 7b 0a  p, void *pArg){.
3c50: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
3c60: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
3c70: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
3c80: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
3c90: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
3ca0: 74 61 3b 0a 20 20 69 66 28 20 6f 70 3d 3d 53 51  ta;.  if( op==SQ
3cb0: 4c 49 54 45 5f 46 43 4e 54 4c 5f 50 52 41 47 4d  LITE_FCNTL_PRAGM
3cc0: 41 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a 2a  A ){.    char **
3cd0: 61 72 67 76 20 3d 20 28 63 68 61 72 2a 2a 29 70  argv = (char**)p
3ce0: 41 72 67 3b 0a 20 20 20 20 69 66 28 20 73 71 6c  Arg;.    if( sql
3cf0: 69 74 65 33 5f 73 74 72 69 63 6d 70 28 61 72 67  ite3_stricmp(arg
3d00: 76 5b 31 5d 2c 22 65 72 72 6f 72 22 29 3d 3d 30  v[1],"error")==0
3d10: 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 72 63   ){.      int rc
3d20: 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b   = SQLITE_ERROR;
3d30: 0a 20 20 20 20 20 20 69 66 28 20 61 72 67 76 5b  .      if( argv[
3d40: 32 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f  2] ){.        co
3d50: 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d 20 61 72  nst char *z = ar
3d60: 67 76 5b 32 5d 3b 0a 20 20 20 20 20 20 20 20 69  gv[2];.        i
3d70: 6e 74 20 78 20 3d 20 61 74 6f 69 28 7a 29 3b 0a  nt x = atoi(z);.
3d80: 20 20 20 20 20 20 20 20 69 66 28 20 78 20 29 7b          if( x ){
3d90: 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 3d 20  .          rc = 
3da0: 78 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69  x;.          whi
3db0: 6c 65 28 20 73 71 6c 69 74 65 33 49 73 64 69 67  le( sqlite3Isdig
3dc0: 69 74 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b  it(z[0]) ){ z++;
3dd0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69   }.          whi
3de0: 6c 65 28 20 73 71 6c 69 74 65 33 49 73 73 70 61  le( sqlite3Isspa
3df0: 63 65 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b  ce(z[0]) ){ z++;
3e00: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
3e10: 20 20 20 20 20 69 66 28 20 7a 5b 30 5d 20 29 20       if( z[0] ) 
3e20: 61 72 67 76 5b 30 5d 20 3d 20 73 71 6c 69 74 65  argv[0] = sqlite
3e30: 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20  3_mprintf("%s", 
3e40: 7a 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  z);.      }.    
3e50: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20    return rc;.   
3e60: 20 7d 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74   }.    if( sqlit
3e70: 65 33 5f 73 74 72 69 63 6d 70 28 61 72 67 76 5b  e3_stricmp(argv[
3e80: 31 5d 2c 20 22 66 69 6c 65 6e 61 6d 65 22 29 3d  1], "filename")=
3e90: 3d 30 20 29 7b 0a 20 20 20 20 20 20 61 72 67 76  =0 ){.      argv
3ea0: 5b 30 5d 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70  [0] = sqlite3_mp
3eb0: 72 69 6e 74 66 28 22 25 73 22 2c 20 70 46 64 2d  rintf("%s", pFd-
3ec0: 3e 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20  >zFilename);.   
3ed0: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
3ee0: 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  _OK;.    }.  }. 
3ef0: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
3f00: 26 26 20 28 70 2d 3e 6d 61 73 6b 26 54 45 53 54  && (p->mask&TEST
3f10: 56 46 53 5f 46 43 4e 54 4c 5f 4d 41 53 4b 29 20  VFS_FCNTL_MASK) 
3f20: 29 7b 0a 20 20 20 20 73 74 72 75 63 74 20 46 63  ){.    struct Fc
3f30: 6e 74 6c 20 7b 0a 20 20 20 20 20 20 69 6e 74 20  ntl {.      int 
3f40: 69 46 6e 63 74 6c 3b 0a 20 20 20 20 20 20 63 6f  iFnctl;.      co
3f50: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6e 63 74 6c  nst char *zFnctl
3f60: 3b 0a 20 20 20 20 7d 20 61 46 5b 5d 20 3d 20 7b  ;.    } aF[] = {
3f70: 0a 20 20 20 20 20 20 7b 20 53 51 4c 49 54 45 5f  .      { SQLITE_
3f80: 46 43 4e 54 4c 5f 42 45 47 49 4e 5f 41 54 4f 4d  FCNTL_BEGIN_ATOM
3f90: 49 43 5f 57 52 49 54 45 2c 20 22 42 45 47 49 4e  IC_WRITE, "BEGIN
3fa0: 5f 41 54 4f 4d 49 43 5f 57 52 49 54 45 22 20 7d  _ATOMIC_WRITE" }
3fb0: 2c 0a 20 20 20 20 20 20 7b 20 53 51 4c 49 54 45  ,.      { SQLITE
3fc0: 5f 46 43 4e 54 4c 5f 43 4f 4d 4d 49 54 5f 41 54  _FCNTL_COMMIT_AT
3fd0: 4f 4d 49 43 5f 57 52 49 54 45 2c 20 22 43 4f 4d  OMIC_WRITE, "COM
3fe0: 4d 49 54 5f 41 54 4f 4d 49 43 5f 57 52 49 54 45  MIT_ATOMIC_WRITE
3ff0: 22 20 7d 2c 0a 20 20 20 20 7d 3b 0a 20 20 20 20  " },.    };.    
4000: 69 6e 74 20 69 3b 0a 20 20 20 20 66 6f 72 28 69  int i;.    for(i
4010: 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46 29  =0; i<sizeof(aF)
4020: 2f 73 69 7a 65 6f 66 28 61 46 5b 30 5d 29 3b 20  /sizeof(aF[0]); 
4030: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20  i++){.      if( 
4040: 6f 70 3d 3d 61 46 5b 69 5d 2e 69 46 6e 63 74 6c  op==aF[i].iFnctl
4050: 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a   ) break;.    }.
4060: 20 20 20 20 69 66 28 20 69 3c 73 69 7a 65 6f 66      if( i<sizeof
4070: 28 61 46 29 2f 73 69 7a 65 6f 66 28 61 46 5b 30  (aF)/sizeof(aF[0
4080: 5d 29 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20  ]) ){.      int 
4090: 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 74 76  rc = 0;.      tv
40a0: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 46  fsExecTcl(p, "xF
40b0: 69 6c 65 43 6f 6e 74 72 6f 6c 22 2c 20 0a 20 20  ileControl", .  
40c0: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
40d0: 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46  tringObj(pFd->zF
40e0: 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 0a 20  ilename, -1), . 
40f0: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77           Tcl_New
4100: 53 74 72 69 6e 67 4f 62 6a 28 61 46 5b 69 5d 2e  StringObj(aF[i].
4110: 7a 46 6e 63 74 6c 2c 20 2d 31 29 2c 0a 20 20 20  zFnctl, -1),.   
4120: 20 20 20 20 20 20 20 30 2c 20 30 0a 20 20 20 20         0, 0.    
4130: 20 20 29 3b 0a 20 20 20 20 20 20 74 76 66 73 52    );.      tvfsR
4140: 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63  esultCode(p, &rc
4150: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63 20  );.      if( rc 
4160: 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20  ) return rc;.   
4170: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20   }.  }.  return 
4180: 73 71 6c 69 74 65 33 4f 73 46 69 6c 65 43 6f 6e  sqlite3OsFileCon
4190: 74 72 6f 6c 28 70 46 64 2d 3e 70 52 65 61 6c 2c  trol(pFd->pReal,
41a0: 20 6f 70 2c 20 70 41 72 67 29 3b 0a 7d 0a 0a 2f   op, pArg);.}../
41b0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
41c0: 73 65 63 74 6f 72 2d 73 69 7a 65 20 69 6e 20 62  sector-size in b
41d0: 79 74 65 73 20 66 6f 72 20 61 6e 20 74 76 66 73  ytes for an tvfs
41e0: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
41f0: 20 69 6e 74 20 74 76 66 73 53 65 63 74 6f 72 53   int tvfsSectorS
4200: 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ize(sqlite3_file
4210: 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74   *pFile){.  Test
4220: 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66  vfsFd *pFd = tvf
4230: 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20  sGetFd(pFile);. 
4240: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
4250: 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56  estvfs *)pFd->pV
4260: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20  fs->pAppData;.  
4270: 69 66 28 20 70 2d 3e 69 53 65 63 74 6f 72 73 69  if( p->iSectorsi
4280: 7a 65 3e 3d 30 20 29 7b 0a 20 20 20 20 72 65 74  ze>=0 ){.    ret
4290: 75 72 6e 20 70 2d 3e 69 53 65 63 74 6f 72 73 69  urn p->iSectorsi
42a0: 7a 65 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  ze;.  }.  return
42b0: 20 73 71 6c 69 74 65 33 4f 73 53 65 63 74 6f 72   sqlite3OsSector
42c0: 53 69 7a 65 28 70 46 64 2d 3e 70 52 65 61 6c 29  Size(pFd->pReal)
42d0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
42e0: 6e 20 74 68 65 20 64 65 76 69 63 65 20 63 68 61  n the device cha
42f0: 72 61 63 74 65 72 69 73 74 69 63 20 66 6c 61 67  racteristic flag
4300: 73 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 61  s supported by a
4310: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
4320: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44  static int tvfsD
4330: 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73  eviceCharacteris
4340: 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66 69 6c  tics(sqlite3_fil
4350: 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73  e *pFile){.  Tes
4360: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
4370: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
4380: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
4390: 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70  Testvfs *)pFd->p
43a0: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20  Vfs->pAppData;. 
43b0: 20 69 66 28 20 70 2d 3e 69 44 65 76 63 68 61 72   if( p->iDevchar
43c0: 3e 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72  >=0 ){.    retur
43d0: 6e 20 70 2d 3e 69 44 65 76 63 68 61 72 3b 0a 20  n p->iDevchar;. 
43e0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69   }.  return sqli
43f0: 74 65 33 4f 73 44 65 76 69 63 65 43 68 61 72 61  te3OsDeviceChara
4400: 63 74 65 72 69 73 74 69 63 73 28 70 46 64 2d 3e  cteristics(pFd->
4410: 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  pReal);.}../*.**
4420: 20 4f 70 65 6e 20 61 6e 20 74 76 66 73 20 66 69   Open an tvfs fi
4430: 6c 65 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74  le handle..*/.st
4440: 61 74 69 63 20 69 6e 74 20 74 76 66 73 4f 70 65  atic int tvfsOpe
4450: 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  n(.  sqlite3_vfs
4460: 20 2a 70 56 66 73 2c 0a 20 20 63 6f 6e 73 74 20   *pVfs,.  const 
4470: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 0a 20 20 73  char *zName,.  s
4480: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
4490: 6c 65 2c 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c  le,.  int flags,
44a0: 0a 20 20 69 6e 74 20 2a 70 4f 75 74 46 6c 61 67  .  int *pOutFlag
44b0: 73 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20  s.){.  int rc;. 
44c0: 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70 54   TestvfsFile *pT
44d0: 65 73 74 66 69 6c 65 20 3d 20 28 54 65 73 74 76  estfile = (Testv
44e0: 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a  fsFile *)pFile;.
44f0: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
4500: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 49 64  ;.  Tcl_Obj *pId
4510: 20 3d 20 30 3b 0a 20 20 54 65 73 74 76 66 73 20   = 0;.  Testvfs 
4520: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
4530: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a  pVfs->pAppData;.
4540: 0a 20 20 70 46 64 20 3d 20 28 54 65 73 74 76 66  .  pFd = (Testvf
4550: 73 46 64 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69  sFd *)ckalloc(si
4560: 7a 65 6f 66 28 54 65 73 74 76 66 73 46 64 29 20  zeof(TestvfsFd) 
4570: 2b 20 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  + PARENTVFS(pVfs
4580: 29 2d 3e 73 7a 4f 73 46 69 6c 65 29 3b 0a 20 20  )->szOsFile);.  
4590: 6d 65 6d 73 65 74 28 70 46 64 2c 20 30 2c 20 73  memset(pFd, 0, s
45a0: 69 7a 65 6f 66 28 54 65 73 74 76 66 73 46 64 29  izeof(TestvfsFd)
45b0: 20 2b 20 50 41 52 45 4e 54 56 46 53 28 70 56 66   + PARENTVFS(pVf
45c0: 73 29 2d 3e 73 7a 4f 73 46 69 6c 65 29 3b 0a 20  s)->szOsFile);. 
45d0: 20 70 46 64 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a   pFd->pShm = 0;.
45e0: 20 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20    pFd->pShmId = 
45f0: 30 3b 0a 20 20 70 46 64 2d 3e 7a 46 69 6c 65 6e  0;.  pFd->zFilen
4600: 61 6d 65 20 3d 20 7a 4e 61 6d 65 3b 0a 20 20 70  ame = zName;.  p
4610: 46 64 2d 3e 70 56 66 73 20 3d 20 70 56 66 73 3b  Fd->pVfs = pVfs;
4620: 0a 20 20 70 46 64 2d 3e 70 52 65 61 6c 20 3d 20  .  pFd->pReal = 
4630: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 29  (sqlite3_file *)
4640: 26 70 46 64 5b 31 5d 3b 0a 20 20 6d 65 6d 73 65  &pFd[1];.  memse
4650: 74 28 70 54 65 73 74 66 69 6c 65 2c 20 30 2c 20  t(pTestfile, 0, 
4660: 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 46 69  sizeof(TestvfsFi
4670: 6c 65 29 29 3b 0a 20 20 70 54 65 73 74 66 69 6c  le));.  pTestfil
4680: 65 2d 3e 70 46 64 20 3d 20 70 46 64 3b 0a 0a 20  e->pFd = pFd;.. 
4690: 20 2f 2a 20 45 76 61 6c 75 61 74 65 20 74 68 65   /* Evaluate the
46a0: 20 54 63 6c 20 73 63 72 69 70 74 3a 20 0a 20 20   Tcl script: .  
46b0: 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52 49 50 54  **.  **   SCRIPT
46c0: 20 78 4f 70 65 6e 20 46 49 4c 45 4e 41 4d 45 20   xOpen FILENAME 
46d0: 4b 45 59 2d 56 41 4c 55 45 2d 41 52 47 53 0a 20  KEY-VALUE-ARGS. 
46e0: 20 2a 2a 0a 20 20 2a 2a 20 49 66 20 74 68 65 20   **.  ** If the 
46f0: 73 63 72 69 70 74 20 72 65 74 75 72 6e 73 20 61  script returns a
4700: 6e 20 53 51 4c 69 74 65 20 65 72 72 6f 72 20 63  n SQLite error c
4710: 6f 64 65 20 6f 74 68 65 72 20 74 68 61 6e 20 53  ode other than S
4720: 51 4c 49 54 45 5f 4f 4b 2c 20 61 6e 0a 20 20 2a  QLITE_OK, an.  *
4730: 2a 20 65 72 72 6f 72 20 69 73 20 72 65 74 75 72  * error is retur
4740: 6e 65 64 20 74 6f 20 74 68 65 20 63 61 6c 6c 65  ned to the calle
4750: 72 2e 20 49 66 20 69 74 20 72 65 74 75 72 6e 73  r. If it returns
4760: 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 74 68 65 20   SQLITE_OK, the 
4770: 6e 65 77 0a 20 20 2a 2a 20 63 6f 6e 6e 65 63 74  new.  ** connect
4780: 69 6f 6e 20 69 73 20 6e 61 6d 65 64 20 22 61 6e  ion is named "an
4790: 6f 6e 22 2e 20 4f 74 68 65 72 77 69 73 65 2c 20  on". Otherwise, 
47a0: 74 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e  the value return
47b0: 65 64 20 62 79 20 74 68 65 0a 20 20 2a 2a 20 73  ed by the.  ** s
47c0: 63 72 69 70 74 20 69 73 20 75 73 65 64 20 61 73  cript is used as
47d0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   the connection 
47e0: 6e 61 6d 65 2e 0a 20 20 2a 2f 0a 20 20 54 63 6c  name..  */.  Tcl
47f0: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 70 2d 3e  _ResetResult(p->
4800: 69 6e 74 65 72 70 29 3b 0a 20 20 69 66 28 20 70  interp);.  if( p
4810: 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e  ->pScript && p->
4820: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 4f 50 45  mask&TESTVFS_OPE
4830: 4e 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 54 63  N_MASK ){.    Tc
4840: 6c 5f 4f 62 6a 20 2a 70 41 72 67 20 3d 20 54 63  l_Obj *pArg = Tc
4850: 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20  l_NewObj();.    
4860: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
4870: 28 70 41 72 67 29 3b 0a 20 20 20 20 69 66 28 20  (pArg);.    if( 
4880: 66 6c 61 67 73 26 53 51 4c 49 54 45 5f 4f 50 45  flags&SQLITE_OPE
4890: 4e 5f 4d 41 49 4e 5f 44 42 20 29 7b 0a 20 20 20  N_MAIN_DB ){.   
48a0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a     const char *z
48b0: 20 3d 20 26 7a 4e 61 6d 65 5b 73 74 72 6c 65 6e   = &zName[strlen
48c0: 28 7a 4e 61 6d 65 29 2b 31 5d 3b 0a 20 20 20 20  (zName)+1];.    
48d0: 20 20 77 68 69 6c 65 28 20 2a 7a 20 29 7b 0a 20    while( *z ){. 
48e0: 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f         Tcl_ListO
48f0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
4900: 30 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77  0, pArg, Tcl_New
4910: 53 74 72 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29  StringObj(z, -1)
4920: 29 3b 0a 20 20 20 20 20 20 20 20 7a 20 2b 3d 20  );.        z += 
4930: 73 74 72 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20  strlen(z) + 1;. 
4940: 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f         Tcl_ListO
4950: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
4960: 30 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77  0, pArg, Tcl_New
4970: 53 74 72 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29  StringObj(z, -1)
4980: 29 3b 0a 20 20 20 20 20 20 20 20 7a 20 2b 3d 20  );.        z += 
4990: 73 74 72 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20  strlen(z) + 1;. 
49a0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
49b0: 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20   tvfsExecTcl(p, 
49c0: 22 78 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77  "xOpen", Tcl_New
49d0: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a  StringObj(pFd->z
49e0: 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70  Filename, -1), p
49f0: 41 72 67 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20  Arg, 0, 0);.    
4a00: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
4a10: 28 70 41 72 67 29 3b 0a 20 20 20 20 69 66 28 20  (pArg);.    if( 
4a20: 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70  tvfsResultCode(p
4a30: 2c 20 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20  , &rc) ){.      
4a40: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f  if( rc!=SQLITE_O
4a50: 4b 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20  K ) return rc;. 
4a60: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
4a70: 70 49 64 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a  pId = Tcl_GetObj
4a80: 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70  Result(p->interp
4a90: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20  );.    }.  }..  
4aa0: 69 66 28 20 28 70 2d 3e 6d 61 73 6b 26 54 45 53  if( (p->mask&TES
4ab0: 54 56 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 29 20  TVFS_OPEN_MASK) 
4ac0: 26 26 20 20 74 76 66 73 49 6e 6a 65 63 74 49 6f  &&  tvfsInjectIo
4ad0: 65 72 72 28 70 29 20 29 20 72 65 74 75 72 6e 20  err(p) ) return 
4ae0: 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20 20  SQLITE_IOERR;.  
4af0: 69 66 28 20 74 76 66 73 49 6e 6a 65 63 74 43 61  if( tvfsInjectCa
4b00: 6e 74 6f 70 65 6e 65 72 72 28 70 29 20 29 20 72  ntopenerr(p) ) r
4b10: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e  eturn SQLITE_CAN
4b20: 54 4f 50 45 4e 3b 0a 20 20 69 66 28 20 74 76 66  TOPEN;.  if( tvf
4b30: 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 70  sInjectFullerr(p
4b40: 29 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ) ) return SQLIT
4b50: 45 5f 46 55 4c 4c 3b 0a 0a 20 20 69 66 28 20 21  E_FULL;..  if( !
4b60: 70 49 64 20 29 7b 0a 20 20 20 20 70 49 64 20 3d  pId ){.    pId =
4b70: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
4b80: 6a 28 22 61 6e 6f 6e 22 2c 20 2d 31 29 3b 0a 20  j("anon", -1);. 
4b90: 20 7d 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66   }.  Tcl_IncrRef
4ba0: 43 6f 75 6e 74 28 70 49 64 29 3b 0a 20 20 70 46  Count(pId);.  pF
4bb0: 64 2d 3e 70 53 68 6d 49 64 20 3d 20 70 49 64 3b  d->pShmId = pId;
4bc0: 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75  .  Tcl_ResetResu
4bd0: 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a  lt(p->interp);..
4be0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73    rc = sqlite3Os
4bf0: 4f 70 65 6e 28 50 41 52 45 4e 54 56 46 53 28 70  Open(PARENTVFS(p
4c00: 56 66 73 29 2c 20 7a 4e 61 6d 65 2c 20 70 46 64  Vfs), zName, pFd
4c10: 2d 3e 70 52 65 61 6c 2c 20 66 6c 61 67 73 2c 20  ->pReal, flags, 
4c20: 70 4f 75 74 46 6c 61 67 73 29 3b 0a 20 20 69 66  pOutFlags);.  if
4c30: 28 20 70 46 64 2d 3e 70 52 65 61 6c 2d 3e 70 4d  ( pFd->pReal->pM
4c40: 65 74 68 6f 64 73 20 29 7b 0a 20 20 20 20 73 71  ethods ){.    sq
4c50: 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73  lite3_io_methods
4c60: 20 2a 70 4d 65 74 68 6f 64 73 3b 0a 20 20 20 20   *pMethods;.    
4c70: 69 6e 74 20 6e 42 79 74 65 3b 0a 0a 20 20 20 20  int nByte;..    
4c80: 69 66 28 20 70 56 66 73 2d 3e 69 56 65 72 73 69  if( pVfs->iVersi
4c90: 6f 6e 3e 31 20 29 7b 0a 20 20 20 20 20 20 6e 42  on>1 ){.      nB
4ca0: 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 73 71 6c  yte = sizeof(sql
4cb0: 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 29  ite3_io_methods)
4cc0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
4cd0: 20 20 20 6e 42 79 74 65 20 3d 20 6f 66 66 73 65     nByte = offse
4ce0: 74 6f 66 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d  tof(sqlite3_io_m
4cf0: 65 74 68 6f 64 73 2c 20 78 53 68 6d 4d 61 70 29  ethods, xShmMap)
4d00: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 4d 65  ;.    }..    pMe
4d10: 74 68 6f 64 73 20 3d 20 28 73 71 6c 69 74 65 33  thods = (sqlite3
4d20: 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 2a 29 63 6b  _io_methods *)ck
4d30: 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20  alloc(nByte);.  
4d40: 20 20 6d 65 6d 63 70 79 28 70 4d 65 74 68 6f 64    memcpy(pMethod
4d50: 73 2c 20 26 74 76 66 73 5f 69 6f 5f 6d 65 74 68  s, &tvfs_io_meth
4d60: 6f 64 73 2c 20 6e 42 79 74 65 29 3b 0a 20 20 20  ods, nByte);.   
4d70: 20 70 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72 73   pMethods->iVers
4d80: 69 6f 6e 20 3d 20 70 46 64 2d 3e 70 52 65 61 6c  ion = pFd->pReal
4d90: 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72  ->pMethods->iVer
4da0: 73 69 6f 6e 3b 0a 20 20 20 20 69 66 28 20 70 4d  sion;.    if( pM
4db0: 65 74 68 6f 64 73 2d 3e 69 56 65 72 73 69 6f 6e  ethods->iVersion
4dc0: 3e 70 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e 20  >pVfs->iVersion 
4dd0: 29 7b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64  ){.      pMethod
4de0: 73 2d 3e 69 56 65 72 73 69 6f 6e 20 3d 20 70 56  s->iVersion = pV
4df0: 66 73 2d 3e 69 56 65 72 73 69 6f 6e 3b 0a 20 20  fs->iVersion;.  
4e00: 20 20 7d 0a 20 20 20 20 69 66 28 20 70 56 66 73    }.    if( pVfs
4e10: 2d 3e 69 56 65 72 73 69 6f 6e 3e 31 20 26 26 20  ->iVersion>1 && 
4e20: 28 28 54 65 73 74 76 66 73 20 2a 29 70 56 66 73  ((Testvfs *)pVfs
4e30: 2d 3e 70 41 70 70 44 61 74 61 29 2d 3e 69 73 4e  ->pAppData)->isN
4e40: 6f 73 68 6d 20 29 7b 0a 20 20 20 20 20 20 70 4d  oshm ){.      pM
4e50: 65 74 68 6f 64 73 2d 3e 78 53 68 6d 55 6e 6d 61  ethods->xShmUnma
4e60: 70 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65  p = 0;.      pMe
4e70: 74 68 6f 64 73 2d 3e 78 53 68 6d 4c 6f 63 6b 20  thods->xShmLock 
4e80: 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65 74 68  = 0;.      pMeth
4e90: 6f 64 73 2d 3e 78 53 68 6d 42 61 72 72 69 65 72  ods->xShmBarrier
4ea0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65 74   = 0;.      pMet
4eb0: 68 6f 64 73 2d 3e 78 53 68 6d 4d 61 70 20 3d 20  hods->xShmMap = 
4ec0: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 46 69  0;.    }.    pFi
4ed0: 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 20 3d 20 70  le->pMethods = p
4ee0: 4d 65 74 68 6f 64 73 3b 0a 20 20 7d 0a 0a 20 20  Methods;.  }..  
4ef0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a  return rc;.}../*
4f00: 0a 2a 2a 20 44 65 6c 65 74 65 20 74 68 65 20 66  .** Delete the f
4f10: 69 6c 65 20 6c 6f 63 61 74 65 64 20 61 74 20 7a  ile located at z
4f20: 50 61 74 68 2e 20 49 66 20 74 68 65 20 64 69 72  Path. If the dir
4f30: 53 79 6e 63 20 61 72 67 75 6d 65 6e 74 20 69 73  Sync argument is
4f40: 20 74 72 75 65 2c 0a 2a 2a 20 65 6e 73 75 72 65   true,.** ensure
4f50: 20 74 68 65 20 66 69 6c 65 2d 73 79 73 74 65 6d   the file-system
4f60: 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 61   modifications a
4f70: 72 65 20 73 79 6e 63 65 64 20 74 6f 20 64 69 73  re synced to dis
4f80: 6b 20 62 65 66 6f 72 65 0a 2a 2a 20 72 65 74 75  k before.** retu
4f90: 72 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63  rning..*/.static
4fa0: 20 69 6e 74 20 74 76 66 73 44 65 6c 65 74 65 28   int tvfsDelete(
4fb0: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
4fc0: 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  s, const char *z
4fd0: 50 61 74 68 2c 20 69 6e 74 20 64 69 72 53 79 6e  Path, int dirSyn
4fe0: 63 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53  c){.  int rc = S
4ff0: 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74  QLITE_OK;.  Test
5000: 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66  vfs *p = (Testvf
5010: 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70 44 61  s *)pVfs->pAppDa
5020: 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53  ta;..  if( p->pS
5030: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
5040: 26 54 45 53 54 56 46 53 5f 44 45 4c 45 54 45 5f  &TESTVFS_DELETE_
5050: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73  MASK ){.    tvfs
5060: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 44 65 6c  ExecTcl(p, "xDel
5070: 65 74 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54  ete", .        T
5080: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
5090: 7a 50 61 74 68 2c 20 2d 31 29 2c 20 54 63 6c 5f  zPath, -1), Tcl_
50a0: 4e 65 77 49 6e 74 4f 62 6a 28 64 69 72 53 79 6e  NewIntObj(dirSyn
50b0: 63 29 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a  c), 0, 0.    );.
50c0: 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f      tvfsResultCo
50d0: 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a  de(p, &rc);.  }.
50e0: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
50f0: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
5100: 73 71 6c 69 74 65 33 4f 73 44 65 6c 65 74 65 28  sqlite3OsDelete(
5110: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
5120: 20 7a 50 61 74 68 2c 20 64 69 72 53 79 6e 63 29   zPath, dirSync)
5130: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72  ;.  }.  return r
5140: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 73 74  c;.}../*.** Test
5150: 20 66 6f 72 20 61 63 63 65 73 73 20 70 65 72 6d   for access perm
5160: 69 73 73 69 6f 6e 73 2e 20 52 65 74 75 72 6e 20  issions. Return 
5170: 74 72 75 65 20 69 66 20 74 68 65 20 72 65 71 75  true if the requ
5180: 65 73 74 65 64 20 70 65 72 6d 69 73 73 69 6f 6e  ested permission
5190: 0a 2a 2a 20 69 73 20 61 76 61 69 6c 61 62 6c 65  .** is available
51a0: 2c 20 6f 72 20 66 61 6c 73 65 20 6f 74 68 65 72  , or false other
51b0: 77 69 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  wise..*/.static 
51c0: 69 6e 74 20 74 76 66 73 41 63 63 65 73 73 28 0a  int tvfsAccess(.
51d0: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
51e0: 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68  Vfs, .  const ch
51f0: 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e  ar *zPath, .  in
5200: 74 20 66 6c 61 67 73 2c 20 0a 20 20 69 6e 74 20  t flags, .  int 
5210: 2a 70 52 65 73 4f 75 74 0a 29 7b 0a 20 20 54 65  *pResOut.){.  Te
5220: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
5230: 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70  vfs *)pVfs->pApp
5240: 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70  Data;.  if( p->p
5250: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
5260: 6b 26 54 45 53 54 56 46 53 5f 41 43 43 45 53 53  k&TESTVFS_ACCESS
5270: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 69 6e 74  _MASK ){.    int
5280: 20 72 63 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a   rc;.    char *z
5290: 41 72 67 20 3d 20 30 3b 0a 20 20 20 20 69 66 28  Arg = 0;.    if(
52a0: 20 66 6c 61 67 73 3d 3d 53 51 4c 49 54 45 5f 41   flags==SQLITE_A
52b0: 43 43 45 53 53 5f 45 58 49 53 54 53 20 29 20 7a  CCESS_EXISTS ) z
52c0: 41 72 67 20 3d 20 22 53 51 4c 49 54 45 5f 41 43  Arg = "SQLITE_AC
52d0: 43 45 53 53 5f 45 58 49 53 54 53 22 3b 0a 20 20  CESS_EXISTS";.  
52e0: 20 20 69 66 28 20 66 6c 61 67 73 3d 3d 53 51 4c    if( flags==SQL
52f0: 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41 44 57  ITE_ACCESS_READW
5300: 52 49 54 45 20 29 20 7a 41 72 67 20 3d 20 22 53  RITE ) zArg = "S
5310: 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41  QLITE_ACCESS_REA
5320: 44 57 52 49 54 45 22 3b 0a 20 20 20 20 69 66 28  DWRITE";.    if(
5330: 20 66 6c 61 67 73 3d 3d 53 51 4c 49 54 45 5f 41   flags==SQLITE_A
5340: 43 43 45 53 53 5f 52 45 41 44 20 29 20 7a 41 72  CCESS_READ ) zAr
5350: 67 20 3d 20 22 53 51 4c 49 54 45 5f 41 43 43 45  g = "SQLITE_ACCE
5360: 53 53 5f 52 45 41 44 22 3b 0a 20 20 20 20 74 76  SS_READ";.    tv
5370: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 41  fsExecTcl(p, "xA
5380: 63 63 65 73 73 22 2c 20 0a 20 20 20 20 20 20 20  ccess", .       
5390: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
53a0: 6a 28 7a 50 61 74 68 2c 20 2d 31 29 2c 20 54 63  j(zPath, -1), Tc
53b0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a  l_NewStringObj(z
53c0: 41 72 67 2c 20 2d 31 29 2c 20 30 2c 20 30 0a 20  Arg, -1), 0, 0. 
53d0: 20 20 20 29 3b 0a 20 20 20 20 69 66 28 20 74 76     );.    if( tv
53e0: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
53f0: 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69 66  &rc) ){.      if
5400: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
5410: 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20  ) return rc;.   
5420: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 54 63   }else{.      Tc
5430: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
5440: 20 3d 20 70 2d 3e 69 6e 74 65 72 70 3b 0a 20 20   = p->interp;.  
5450: 20 20 20 20 69 66 28 20 54 43 4c 5f 4f 4b 3d 3d      if( TCL_OK==
5460: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72  Tcl_GetBooleanFr
5470: 6f 6d 4f 62 6a 28 30 2c 20 54 63 6c 5f 47 65 74  omObj(0, Tcl_Get
5480: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
5490: 29 2c 20 70 52 65 73 4f 75 74 29 20 29 7b 0a 20  ), pResOut) ){. 
54a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51         return SQ
54b0: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 20 20 20 20 7d  LITE_OK;.      }
54c0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74  .    }.  }.  ret
54d0: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 41 63 63  urn sqlite3OsAcc
54e0: 65 73 73 28 50 41 52 45 4e 54 56 46 53 28 70 56  ess(PARENTVFS(pV
54f0: 66 73 29 2c 20 7a 50 61 74 68 2c 20 66 6c 61 67  fs), zPath, flag
5500: 73 2c 20 70 52 65 73 4f 75 74 29 3b 0a 7d 0a 0a  s, pResOut);.}..
5510: 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 62  /*.** Populate b
5520: 75 66 66 65 72 20 7a 4f 75 74 20 77 69 74 68 20  uffer zOut with 
5530: 74 68 65 20 66 75 6c 6c 20 63 61 6e 6f 6e 69 63  the full canonic
5540: 61 6c 20 70 61 74 68 6e 61 6d 65 20 63 6f 72 72  al pathname corr
5550: 65 73 70 6f 6e 64 69 6e 67 0a 2a 2a 20 74 6f 20  esponding.** to 
5560: 74 68 65 20 70 61 74 68 6e 61 6d 65 20 69 6e 20  the pathname in 
5570: 7a 50 61 74 68 2e 20 7a 4f 75 74 20 69 73 20 67  zPath. zOut is g
5580: 75 61 72 61 6e 74 65 65 64 20 74 6f 20 70 6f 69  uaranteed to poi
5590: 6e 74 20 74 6f 20 61 20 62 75 66 66 65 72 0a 2a  nt to a buffer.*
55a0: 2a 20 6f 66 20 61 74 20 6c 65 61 73 74 20 28 44  * of at least (D
55b0: 45 56 53 59 4d 5f 4d 41 58 5f 50 41 54 48 4e 41  EVSYM_MAX_PATHNA
55c0: 4d 45 2b 31 29 20 62 79 74 65 73 2e 0a 2a 2f 0a  ME+1) bytes..*/.
55d0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46  static int tvfsF
55e0: 75 6c 6c 50 61 74 68 6e 61 6d 65 28 0a 20 20 73  ullPathname(.  s
55f0: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
5600: 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  , .  const char 
5610: 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e 74 20 6e  *zPath, .  int n
5620: 4f 75 74 2c 20 0a 20 20 63 68 61 72 20 2a 7a 4f  Out, .  char *zO
5630: 75 74 0a 29 7b 0a 20 20 54 65 73 74 76 66 73 20  ut.){.  Testvfs 
5640: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
5650: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a  pVfs->pAppData;.
5660: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
5670: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
5680: 56 46 53 5f 46 55 4c 4c 50 41 54 48 4e 41 4d 45  VFS_FULLPATHNAME
5690: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 69 6e 74  _MASK ){.    int
56a0: 20 72 63 3b 0a 20 20 20 20 74 76 66 73 45 78 65   rc;.    tvfsExe
56b0: 63 54 63 6c 28 70 2c 20 22 78 46 75 6c 6c 50 61  cTcl(p, "xFullPa
56c0: 74 68 6e 61 6d 65 22 2c 20 54 63 6c 5f 4e 65 77  thname", Tcl_New
56d0: 53 74 72 69 6e 67 4f 62 6a 28 7a 50 61 74 68 2c  StringObj(zPath,
56e0: 20 2d 31 29 2c 20 30 2c 20 30 2c 20 30 29 3b 0a   -1), 0, 0, 0);.
56f0: 20 20 20 20 69 66 28 20 74 76 66 73 52 65 73 75      if( tvfsResu
5700: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 20 29  ltCode(p, &rc) )
5710: 7b 0a 20 20 20 20 20 20 69 66 28 20 72 63 21 3d  {.      if( rc!=
5720: 53 51 4c 49 54 45 5f 4f 4b 20 29 20 72 65 74 75  SQLITE_OK ) retu
5730: 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a 20 20 7d  rn rc;.    }.  }
5740: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
5750: 33 4f 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28  3OsFullPathname(
5760: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
5770: 20 7a 50 61 74 68 2c 20 6e 4f 75 74 2c 20 7a 4f   zPath, nOut, zO
5780: 75 74 29 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 20  ut);.}..#ifndef 
5790: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44  SQLITE_OMIT_LOAD
57a0: 5f 45 58 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a  _EXTENSION./*.**
57b0: 20 4f 70 65 6e 20 74 68 65 20 64 79 6e 61 6d 69   Open the dynami
57c0: 63 20 6c 69 62 72 61 72 79 20 6c 6f 63 61 74 65  c library locate
57d0: 64 20 61 74 20 7a 50 61 74 68 20 61 6e 64 20 72  d at zPath and r
57e0: 65 74 75 72 6e 20 61 20 68 61 6e 64 6c 65 2e 0a  eturn a handle..
57f0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a  */.static void *
5800: 74 76 66 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74  tvfsDlOpen(sqlit
5810: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 63 6f  e3_vfs *pVfs, co
5820: 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68 29  nst char *zPath)
5830: 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  {.  return sqlit
5840: 65 33 4f 73 44 6c 4f 70 65 6e 28 50 41 52 45 4e  e3OsDlOpen(PAREN
5850: 54 56 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74  TVFS(pVfs), zPat
5860: 68 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70  h);.}../*.** Pop
5870: 75 6c 61 74 65 20 74 68 65 20 62 75 66 66 65 72  ulate the buffer
5880: 20 7a 45 72 72 4d 73 67 20 28 73 69 7a 65 20 6e   zErrMsg (size n
5890: 42 79 74 65 20 62 79 74 65 73 29 20 77 69 74 68  Byte bytes) with
58a0: 20 61 20 68 75 6d 61 6e 20 72 65 61 64 61 62 6c   a human readabl
58b0: 65 0a 2a 2a 20 75 74 66 2d 38 20 73 74 72 69 6e  e.** utf-8 strin
58c0: 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65  g describing the
58d0: 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 65 72 72   most recent err
58e0: 6f 72 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 61  or encountered a
58f0: 73 73 6f 63 69 61 74 65 64 20 0a 2a 2a 20 77 69  ssociated .** wi
5900: 74 68 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61  th dynamic libra
5910: 72 69 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ries..*/.static 
5920: 76 6f 69 64 20 74 76 66 73 44 6c 45 72 72 6f 72  void tvfsDlError
5930: 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56  (sqlite3_vfs *pV
5940: 66 73 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63  fs, int nByte, c
5950: 68 61 72 20 2a 7a 45 72 72 4d 73 67 29 7b 0a 20  har *zErrMsg){. 
5960: 20 73 71 6c 69 74 65 33 4f 73 44 6c 45 72 72 6f   sqlite3OsDlErro
5970: 72 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  r(PARENTVFS(pVfs
5980: 29 2c 20 6e 42 79 74 65 2c 20 7a 45 72 72 4d 73  ), nByte, zErrMs
5990: 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74  g);.}../*.** Ret
59a0: 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f  urn a pointer to
59b0: 20 74 68 65 20 73 79 6d 62 6f 6c 20 7a 53 79 6d   the symbol zSym
59c0: 62 6f 6c 20 69 6e 20 74 68 65 20 64 79 6e 61 6d  bol in the dynam
59d0: 69 63 20 6c 69 62 72 61 72 79 20 70 48 61 6e 64  ic library pHand
59e0: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  le..*/.static vo
59f0: 69 64 20 28 2a 74 76 66 73 44 6c 53 79 6d 28 73  id (*tvfsDlSym(s
5a00: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
5a10: 2c 20 76 6f 69 64 20 2a 70 2c 20 63 6f 6e 73 74  , void *p, const
5a20: 20 63 68 61 72 20 2a 7a 53 79 6d 29 29 28 76 6f   char *zSym))(vo
5a30: 69 64 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71  id){.  return sq
5a40: 6c 69 74 65 33 4f 73 44 6c 53 79 6d 28 50 41 52  lite3OsDlSym(PAR
5a50: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 70 2c  ENTVFS(pVfs), p,
5a60: 20 7a 53 79 6d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a   zSym);.}../*.**
5a70: 20 43 6c 6f 73 65 20 74 68 65 20 64 79 6e 61 6d   Close the dynam
5a80: 69 63 20 6c 69 62 72 61 72 79 20 68 61 6e 64 6c  ic library handl
5a90: 65 20 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74  e pHandle..*/.st
5aa0: 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c  atic void tvfsDl
5ab0: 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 76 66  Close(sqlite3_vf
5ac0: 73 20 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70  s *pVfs, void *p
5ad0: 48 61 6e 64 6c 65 29 7b 0a 20 20 73 71 6c 69 74  Handle){.  sqlit
5ae0: 65 33 4f 73 44 6c 43 6c 6f 73 65 28 50 41 52 45  e3OsDlClose(PARE
5af0: 4e 54 56 46 53 28 70 56 66 73 29 2c 20 70 48 61  NTVFS(pVfs), pHa
5b00: 6e 64 6c 65 29 3b 0a 7d 0a 23 65 6e 64 69 66 20  ndle);.}.#endif 
5b10: 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c  /* SQLITE_OMIT_L
5b20: 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f  OAD_EXTENSION */
5b30: 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65  ../*.** Populate
5b40: 20 74 68 65 20 62 75 66 66 65 72 20 70 6f 69 6e   the buffer poin
5b50: 74 65 64 20 74 6f 20 62 79 20 7a 42 75 66 4f 75  ted to by zBufOu
5b60: 74 20 77 69 74 68 20 6e 42 79 74 65 20 62 79 74  t with nByte byt
5b70: 65 73 20 6f 66 20 0a 2a 2a 20 72 61 6e 64 6f 6d  es of .** random
5b80: 20 64 61 74 61 2e 0a 2a 2f 0a 73 74 61 74 69 63   data..*/.static
5b90: 20 69 6e 74 20 74 76 66 73 52 61 6e 64 6f 6d 6e   int tvfsRandomn
5ba0: 65 73 73 28 73 71 6c 69 74 65 33 5f 76 66 73 20  ess(sqlite3_vfs 
5bb0: 2a 70 56 66 73 2c 20 69 6e 74 20 6e 42 79 74 65  *pVfs, int nByte
5bc0: 2c 20 63 68 61 72 20 2a 7a 42 75 66 4f 75 74 29  , char *zBufOut)
5bd0: 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  {.  return sqlit
5be0: 65 33 4f 73 52 61 6e 64 6f 6d 6e 65 73 73 28 50  e3OsRandomness(P
5bf0: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
5c00: 6e 42 79 74 65 2c 20 7a 42 75 66 4f 75 74 29 3b  nByte, zBufOut);
5c10: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 6c 65 65 70 20  .}../*.** Sleep 
5c20: 66 6f 72 20 6e 4d 69 63 72 6f 20 6d 69 63 72 6f  for nMicro micro
5c30: 73 65 63 6f 6e 64 73 2e 20 52 65 74 75 72 6e 20  seconds. Return 
5c40: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69  the number of mi
5c50: 63 72 6f 73 65 63 6f 6e 64 73 20 0a 2a 2a 20 61  croseconds .** a
5c60: 63 74 75 61 6c 6c 79 20 73 6c 65 70 74 2e 0a 2a  ctually slept..*
5c70: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
5c80: 73 53 6c 65 65 70 28 73 71 6c 69 74 65 33 5f 76  sSleep(sqlite3_v
5c90: 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e 4d  fs *pVfs, int nM
5ca0: 69 63 72 6f 29 7b 0a 20 20 72 65 74 75 72 6e 20  icro){.  return 
5cb0: 73 71 6c 69 74 65 33 4f 73 53 6c 65 65 70 28 50  sqlite3OsSleep(P
5cc0: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
5cd0: 6e 4d 69 63 72 6f 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  nMicro);.}../*.*
5ce0: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 63 75 72  * Return the cur
5cf0: 72 65 6e 74 20 74 69 6d 65 20 61 73 20 61 20 4a  rent time as a J
5d00: 75 6c 69 61 6e 20 44 61 79 20 6e 75 6d 62 65 72  ulian Day number
5d10: 20 69 6e 20 2a 70 54 69 6d 65 4f 75 74 2e 0a 2a   in *pTimeOut..*
5d20: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
5d30: 73 43 75 72 72 65 6e 74 54 69 6d 65 28 73 71 6c  sCurrentTime(sql
5d40: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
5d50: 64 6f 75 62 6c 65 20 2a 70 54 69 6d 65 4f 75 74  double *pTimeOut
5d60: 29 7b 0a 20 20 72 65 74 75 72 6e 20 50 41 52 45  ){.  return PARE
5d70: 4e 54 56 46 53 28 70 56 66 73 29 2d 3e 78 43 75  NTVFS(pVfs)->xCu
5d80: 72 72 65 6e 74 54 69 6d 65 28 50 41 52 45 4e 54  rrentTime(PARENT
5d90: 56 46 53 28 70 56 66 73 29 2c 20 70 54 69 6d 65  VFS(pVfs), pTime
5da0: 4f 75 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  Out);.}..static 
5db0: 69 6e 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28  int tvfsShmOpen(
5dc0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
5dd0: 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66 73 20  ile){.  Testvfs 
5de0: 2a 70 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53  *p;.  int rc = S
5df0: 51 4c 49 54 45 5f 4f 4b 3b 20 20 20 20 20 20 20  QLITE_OK;       
5e00: 20 20 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20        /* Return 
5e10: 63 6f 64 65 20 2a 2f 0a 20 20 54 65 73 74 76 66  code */.  Testvf
5e20: 73 42 75 66 66 65 72 20 2a 70 42 75 66 66 65 72  sBuffer *pBuffer
5e30: 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 42 75 66  ;         /* Buf
5e40: 66 65 72 20 74 6f 20 6f 70 65 6e 20 63 6f 6e 6e  fer to open conn
5e50: 65 63 74 69 6f 6e 20 74 6f 20 2a 2f 0a 20 20 54  ection to */.  T
5e60: 65 73 74 76 66 73 46 64 20 2a 70 46 64 3b 20 20  estvfsFd *pFd;  
5e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
5e80: 2a 20 54 68 65 20 74 65 73 74 76 66 73 20 66 69  * The testvfs fi
5e90: 6c 65 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a  le structure */.
5ea0: 0a 20 20 70 46 64 20 3d 20 74 76 66 73 47 65 74  .  pFd = tvfsGet
5eb0: 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 70 20 3d  Fd(pFile);.  p =
5ec0: 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d   (Testvfs *)pFd-
5ed0: 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b  >pVfs->pAppData;
5ee0: 0a 20 20 61 73 73 65 72 74 28 20 30 3d 3d 70 2d  .  assert( 0==p-
5ef0: 3e 69 73 46 75 6c 6c 73 68 6d 20 29 3b 0a 20 20  >isFullshm );.  
5f00: 61 73 73 65 72 74 28 20 70 46 64 2d 3e 70 53 68  assert( pFd->pSh
5f10: 6d 49 64 20 26 26 20 70 46 64 2d 3e 70 53 68 6d  mId && pFd->pShm
5f20: 3d 3d 30 20 26 26 20 70 46 64 2d 3e 70 4e 65 78  ==0 && pFd->pNex
5f30: 74 3d 3d 30 20 29 3b 0a 0a 20 20 2f 2a 20 45 76  t==0 );..  /* Ev
5f40: 61 6c 75 61 74 65 20 74 68 65 20 54 63 6c 20 73  aluate the Tcl s
5f50: 63 72 69 70 74 3a 20 0a 20 20 2a 2a 0a 20 20 2a  cript: .  **.  *
5f60: 2a 20 20 20 53 43 52 49 50 54 20 78 53 68 6d 4f  *   SCRIPT xShmO
5f70: 70 65 6e 20 46 49 4c 45 4e 41 4d 45 0a 20 20 2a  pen FILENAME.  *
5f80: 2f 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73  /.  Tcl_ResetRes
5f90: 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a  ult(p->interp);.
5fa0: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
5fb0: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
5fc0: 56 46 53 5f 53 48 4d 4f 50 45 4e 5f 4d 41 53 4b  VFS_SHMOPEN_MASK
5fd0: 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63   ){.    tvfsExec
5fe0: 54 63 6c 28 70 2c 20 22 78 53 68 6d 4f 70 65 6e  Tcl(p, "xShmOpen
5ff0: 22 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  ", Tcl_NewString
6000: 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61  Obj(pFd->zFilena
6010: 6d 65 2c 20 2d 31 29 2c 20 30 2c 20 30 2c 20 30  me, -1), 0, 0, 0
6020: 29 3b 0a 20 20 20 20 69 66 28 20 74 76 66 73 52  );.    if( tvfsR
6030: 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63  esultCode(p, &rc
6040: 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 72  ) ){.      if( r
6050: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20 72  c!=SQLITE_OK ) r
6060: 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a  eturn rc;.    }.
6070: 20 20 7d 0a 0a 20 20 61 73 73 65 72 74 28 20 72    }..  assert( r
6080: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 3b 0a  c==SQLITE_OK );.
6090: 20 20 69 66 28 20 70 2d 3e 6d 61 73 6b 26 54 45    if( p->mask&TE
60a0: 53 54 56 46 53 5f 53 48 4d 4f 50 45 4e 5f 4d 41  STVFS_SHMOPEN_MA
60b0: 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  SK && tvfsInject
60c0: 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20  Ioerr(p) ){.    
60d0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f  return SQLITE_IO
60e0: 45 52 52 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 53  ERR;.  }..  /* S
60f0: 65 61 72 63 68 20 66 6f 72 20 61 20 54 65 73 74  earch for a Test
6100: 76 66 73 42 75 66 66 65 72 2e 20 43 72 65 61 74  vfsBuffer. Creat
6110: 65 20 61 20 6e 65 77 20 6f 6e 65 20 69 66 20 72  e a new one if r
6120: 65 71 75 69 72 65 64 2e 20 2a 2f 0a 20 20 66 6f  equired. */.  fo
6130: 72 28 70 42 75 66 66 65 72 3d 70 2d 3e 70 42 75  r(pBuffer=p->pBu
6140: 66 66 65 72 3b 20 70 42 75 66 66 65 72 3b 20 70  ffer; pBuffer; p
6150: 42 75 66 66 65 72 3d 70 42 75 66 66 65 72 2d 3e  Buffer=pBuffer->
6160: 70 4e 65 78 74 29 7b 0a 20 20 20 20 69 66 28 20  pNext){.    if( 
6170: 30 3d 3d 73 74 72 63 6d 70 28 70 46 64 2d 3e 7a  0==strcmp(pFd->z
6180: 46 69 6c 65 6e 61 6d 65 2c 20 70 42 75 66 66 65  Filename, pBuffe
6190: 72 2d 3e 7a 46 69 6c 65 29 20 29 20 62 72 65 61  r->zFile) ) brea
61a0: 6b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 21 70 42  k;.  }.  if( !pB
61b0: 75 66 66 65 72 20 29 7b 0a 20 20 20 20 69 6e 74  uffer ){.    int
61c0: 20 73 7a 4e 61 6d 65 20 3d 20 28 69 6e 74 29 73   szName = (int)s
61d0: 74 72 6c 65 6e 28 70 46 64 2d 3e 7a 46 69 6c 65  trlen(pFd->zFile
61e0: 6e 61 6d 65 29 3b 0a 20 20 20 20 69 6e 74 20 6e  name);.    int n
61f0: 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 54 65  Byte = sizeof(Te
6200: 73 74 76 66 73 42 75 66 66 65 72 29 20 2b 20 73  stvfsBuffer) + s
6210: 7a 4e 61 6d 65 20 2b 20 31 3b 0a 20 20 20 20 70  zName + 1;.    p
6220: 42 75 66 66 65 72 20 3d 20 28 54 65 73 74 76 66  Buffer = (Testvf
6230: 73 42 75 66 66 65 72 20 2a 29 63 6b 61 6c 6c 6f  sBuffer *)ckallo
6240: 63 28 6e 42 79 74 65 29 3b 0a 20 20 20 20 6d 65  c(nByte);.    me
6250: 6d 73 65 74 28 70 42 75 66 66 65 72 2c 20 30 2c  mset(pBuffer, 0,
6260: 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 70 42 75   nByte);.    pBu
6270: 66 66 65 72 2d 3e 7a 46 69 6c 65 20 3d 20 28 63  ffer->zFile = (c
6280: 68 61 72 20 2a 29 26 70 42 75 66 66 65 72 5b 31  har *)&pBuffer[1
6290: 5d 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 70 42  ];.    memcpy(pB
62a0: 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 70 46  uffer->zFile, pF
62b0: 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 73 7a  d->zFilename, sz
62c0: 4e 61 6d 65 2b 31 29 3b 0a 20 20 20 20 70 42 75  Name+1);.    pBu
62d0: 66 66 65 72 2d 3e 70 4e 65 78 74 20 3d 20 70 2d  ffer->pNext = p-
62e0: 3e 70 42 75 66 66 65 72 3b 0a 20 20 20 20 70 2d  >pBuffer;.    p-
62f0: 3e 70 42 75 66 66 65 72 20 3d 20 70 42 75 66 66  >pBuffer = pBuff
6300: 65 72 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 43 6f  er;.  }..  /* Co
6310: 6e 6e 65 63 74 20 74 68 65 20 54 65 73 74 76 66  nnect the Testvf
6320: 73 42 75 66 66 65 72 20 74 6f 20 74 68 65 20 6e  sBuffer to the n
6330: 65 77 20 54 65 73 74 76 66 73 53 68 6d 20 68 61  ew TestvfsShm ha
6340: 6e 64 6c 65 20 61 6e 64 20 72 65 74 75 72 6e 2e  ndle and return.
6350: 20 2a 2f 0a 20 20 70 46 64 2d 3e 70 4e 65 78 74   */.  pFd->pNext
6360: 20 3d 20 70 42 75 66 66 65 72 2d 3e 70 46 69 6c   = pBuffer->pFil
6370: 65 3b 0a 20 20 70 42 75 66 66 65 72 2d 3e 70 46  e;.  pBuffer->pF
6380: 69 6c 65 20 3d 20 70 46 64 3b 0a 20 20 70 46 64  ile = pFd;.  pFd
6390: 2d 3e 70 53 68 6d 20 3d 20 70 42 75 66 66 65 72  ->pShm = pBuffer
63a0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
63b0: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 76  ..static void tv
63c0: 66 73 41 6c 6c 6f 63 50 61 67 65 28 54 65 73 74  fsAllocPage(Test
63d0: 76 66 73 42 75 66 66 65 72 20 2a 70 2c 20 69 6e  vfsBuffer *p, in
63e0: 74 20 69 50 61 67 65 2c 20 69 6e 74 20 70 67 73  t iPage, int pgs
63f0: 7a 29 7b 0a 20 20 61 73 73 65 72 74 28 20 69 50  z){.  assert( iP
6400: 61 67 65 3c 54 45 53 54 56 46 53 5f 4d 41 58 5f  age<TESTVFS_MAX_
6410: 50 41 47 45 53 20 29 3b 0a 20 20 69 66 28 20 70  PAGES );.  if( p
6420: 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d 3d 3d  ->aPage[iPage]==
6430: 30 20 29 7b 0a 20 20 20 20 70 2d 3e 61 50 61 67  0 ){.    p->aPag
6440: 65 5b 69 50 61 67 65 5d 20 3d 20 28 75 38 20 2a  e[iPage] = (u8 *
6450: 29 63 6b 61 6c 6c 6f 63 28 70 67 73 7a 29 3b 0a  )ckalloc(pgsz);.
6460: 20 20 20 20 6d 65 6d 73 65 74 28 70 2d 3e 61 50      memset(p->aP
6470: 61 67 65 5b 69 50 61 67 65 5d 2c 20 30 2c 20 70  age[iPage], 0, p
6480: 67 73 7a 29 3b 0a 20 20 20 20 70 2d 3e 70 67 73  gsz);.    p->pgs
6490: 7a 20 3d 20 70 67 73 7a 3b 0a 20 20 7d 0a 7d 0a  z = pgsz;.  }.}.
64a0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
64b0: 53 68 6d 4d 61 70 28 0a 20 20 73 71 6c 69 74 65  ShmMap(.  sqlite
64c0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 20  3_file *pFile,  
64d0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 48 61 6e            /* Han
64e0: 64 6c 65 20 6f 70 65 6e 20 6f 6e 20 64 61 74 61  dle open on data
64f0: 62 61 73 65 20 66 69 6c 65 20 2a 2f 0a 20 20 69  base file */.  i
6500: 6e 74 20 69 50 61 67 65 2c 20 20 20 20 20 20 20  nt iPage,       
6510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
6520: 2a 20 50 61 67 65 20 74 6f 20 72 65 74 72 69 65  * Page to retrie
6530: 76 65 20 2a 2f 0a 20 20 69 6e 74 20 70 67 73 7a  ve */.  int pgsz
6540: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
6550: 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20          /* Size 
6560: 6f 66 20 70 61 67 65 73 20 2a 2f 0a 20 20 69 6e  of pages */.  in
6570: 74 20 69 73 57 72 69 74 65 2c 20 20 20 20 20 20  t isWrite,      
6580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
6590: 20 54 72 75 65 20 74 6f 20 65 78 74 65 6e 64 20   True to extend 
65a0: 66 69 6c 65 20 69 66 20 6e 65 63 65 73 73 61 72  file if necessar
65b0: 79 20 2a 2f 0a 20 20 76 6f 69 64 20 76 6f 6c 61  y */.  void vola
65c0: 74 69 6c 65 20 2a 2a 70 70 20 20 20 20 20 20 20  tile **pp       
65d0: 20 20 20 20 20 20 20 2f 2a 20 4f 55 54 3a 20 4d         /* OUT: M
65e0: 61 70 70 65 64 20 6d 65 6d 6f 72 79 20 2a 2f 0a  apped memory */.
65f0: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  ){.  int rc = SQ
6600: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76  LITE_OK;.  Testv
6610: 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73  fsFd *pFd = tvfs
6620: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
6630: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
6640: 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70 56  stvfs *)(pFd->pV
6650: 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 0a  fs->pAppData);..
6660: 20 20 69 66 28 20 70 2d 3e 69 73 46 75 6c 6c 73    if( p->isFulls
6670: 68 6d 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  hm ){.    return
6680: 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 4d 61 70   sqlite3OsShmMap
6690: 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 69 50 61  (pFd->pReal, iPa
66a0: 67 65 2c 20 70 67 73 7a 2c 20 69 73 57 72 69 74  ge, pgsz, isWrit
66b0: 65 2c 20 70 70 29 3b 0a 20 20 7d 0a 0a 20 20 69  e, pp);.  }..  i
66c0: 66 28 20 30 3d 3d 70 46 64 2d 3e 70 53 68 6d 20  f( 0==pFd->pShm 
66d0: 29 7b 0a 20 20 20 20 72 63 20 3d 20 74 76 66 73  ){.    rc = tvfs
66e0: 53 68 6d 4f 70 65 6e 28 70 46 69 6c 65 29 3b 0a  ShmOpen(pFile);.
66f0: 20 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49      if( rc!=SQLI
6700: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 72  TE_OK ){.      r
6710: 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a  eturn rc;.    }.
6720: 20 20 7d 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53    }..  if( p->pS
6730: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
6740: 26 54 45 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f  &TESTVFS_SHMMAP_
6750: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f  MASK ){.    Tcl_
6760: 4f 62 6a 20 2a 70 41 72 67 20 3d 20 54 63 6c 5f  Obj *pArg = Tcl_
6770: 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 54 63  NewObj();.    Tc
6780: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
6790: 41 72 67 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69  Arg);.    Tcl_Li
67a0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
67b0: 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 41  nt(p->interp, pA
67c0: 72 67 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62  rg, Tcl_NewIntOb
67d0: 6a 28 69 50 61 67 65 29 29 3b 0a 20 20 20 20 54  j(iPage));.    T
67e0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
67f0: 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72  Element(p->inter
6800: 70 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77  p, pArg, Tcl_New
6810: 49 6e 74 4f 62 6a 28 70 67 73 7a 29 29 3b 0a 20  IntObj(pgsz));. 
6820: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70     Tcl_ListObjAp
6830: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69  pendElement(p->i
6840: 6e 74 65 72 70 2c 20 70 41 72 67 2c 20 54 63 6c  nterp, pArg, Tcl
6850: 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 73 57 72 69  _NewIntObj(isWri
6860: 74 65 29 29 3b 0a 20 20 20 20 74 76 66 73 45 78  te));.    tvfsEx
6870: 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d 4d 61  ecTcl(p, "xShmMa
6880: 70 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c  p", .        Tcl
6890: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46  _NewStringObj(pF
68a0: 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20  d->pShm->zFile, 
68b0: 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64  -1), pFd->pShmId
68c0: 2c 20 70 41 72 67 2c 20 30 0a 20 20 20 20 29 3b  , pArg, 0.    );
68d0: 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43  .    tvfsResultC
68e0: 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 20  ode(p, &rc);.   
68f0: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e   Tcl_DecrRefCoun
6900: 74 28 70 41 72 67 29 3b 0a 20 20 7d 0a 20 20 69  t(pArg);.  }.  i
6910: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
6920: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
6930: 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20  VFS_SHMMAP_MASK 
6940: 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65  && tvfsInjectIoe
6950: 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20  rr(p) ){.    rc 
6960: 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a  = SQLITE_IOERR;.
6970: 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53    }..  if( rc==S
6980: 51 4c 49 54 45 5f 4f 4b 20 26 26 20 69 73 57 72  QLITE_OK && isWr
6990: 69 74 65 20 26 26 20 21 70 46 64 2d 3e 70 53 68  ite && !pFd->pSh
69a0: 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d 20  m->aPage[iPage] 
69b0: 29 7b 0a 20 20 20 20 74 76 66 73 41 6c 6c 6f 63  ){.    tvfsAlloc
69c0: 50 61 67 65 28 70 46 64 2d 3e 70 53 68 6d 2c 20  Page(pFd->pShm, 
69d0: 69 50 61 67 65 2c 20 70 67 73 7a 29 3b 0a 20 20  iPage, pgsz);.  
69e0: 7d 0a 20 20 2a 70 70 20 3d 20 28 76 6f 69 64 20  }.  *pp = (void 
69f0: 76 6f 6c 61 74 69 6c 65 20 2a 29 70 46 64 2d 3e  volatile *)pFd->
6a00: 70 53 68 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67  pShm->aPage[iPag
6a10: 65 5d 3b 0a 0a 20 20 72 65 74 75 72 6e 20 72 63  e];..  return rc
6a20: 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20 69 6e 74  ;.}...static int
6a30: 20 74 76 66 73 53 68 6d 4c 6f 63 6b 28 0a 20 20   tvfsShmLock(.  
6a40: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
6a50: 69 6c 65 2c 0a 20 20 69 6e 74 20 6f 66 73 74 2c  ile,.  int ofst,
6a60: 0a 20 20 69 6e 74 20 6e 2c 0a 20 20 69 6e 74 20  .  int n,.  int 
6a70: 66 6c 61 67 73 0a 29 7b 0a 20 20 69 6e 74 20 72  flags.){.  int r
6a80: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
6a90: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20   TestvfsFd *pFd 
6aa0: 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c  = tvfsGetFd(pFil
6ab0: 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  e);.  Testvfs *p
6ac0: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70   = (Testvfs *)(p
6ad0: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
6ae0: 74 61 29 3b 0a 20 20 69 6e 74 20 6e 4c 6f 63 6b  ta);.  int nLock
6af0: 3b 0a 20 20 63 68 61 72 20 7a 4c 6f 63 6b 5b 38  ;.  char zLock[8
6b00: 30 5d 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 69 73  0];..  if( p->is
6b10: 46 75 6c 6c 73 68 6d 20 29 7b 0a 20 20 20 20 72  Fullshm ){.    r
6b20: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 53  eturn sqlite3OsS
6b30: 68 6d 4c 6f 63 6b 28 70 46 64 2d 3e 70 52 65 61  hmLock(pFd->pRea
6b40: 6c 2c 20 6f 66 73 74 2c 20 6e 2c 20 66 6c 61 67  l, ofst, n, flag
6b50: 73 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70  s);.  }..  if( p
6b60: 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e  ->pScript && p->
6b70: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d  mask&TESTVFS_SHM
6b80: 4c 4f 43 4b 5f 4d 41 53 4b 20 29 7b 0a 20 20 20  LOCK_MASK ){.   
6b90: 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74   sqlite3_snprint
6ba0: 66 28 73 69 7a 65 6f 66 28 7a 4c 6f 63 6b 29 2c  f(sizeof(zLock),
6bb0: 20 7a 4c 6f 63 6b 2c 20 22 25 64 20 25 64 22 2c   zLock, "%d %d",
6bc0: 20 6f 66 73 74 2c 20 6e 29 3b 0a 20 20 20 20 6e   ofst, n);.    n
6bd0: 4c 6f 63 6b 20 3d 20 28 69 6e 74 29 73 74 72 6c  Lock = (int)strl
6be0: 65 6e 28 7a 4c 6f 63 6b 29 3b 0a 20 20 20 20 69  en(zLock);.    i
6bf0: 66 28 20 66 6c 61 67 73 20 26 20 53 51 4c 49 54  f( flags & SQLIT
6c00: 45 5f 53 48 4d 5f 4c 4f 43 4b 20 29 7b 0a 20 20  E_SHM_LOCK ){.  
6c10: 20 20 20 20 73 74 72 63 70 79 28 26 7a 4c 6f 63      strcpy(&zLoc
6c20: 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 6c 6f 63 6b  k[nLock], " lock
6c30: 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20  ");.    }else{. 
6c40: 20 20 20 20 20 73 74 72 63 70 79 28 26 7a 4c 6f       strcpy(&zLo
6c50: 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 75 6e 6c  ck[nLock], " unl
6c60: 6f 63 6b 22 29 3b 0a 20 20 20 20 7d 0a 20 20 20  ock");.    }.   
6c70: 20 6e 4c 6f 63 6b 20 2b 3d 20 28 69 6e 74 29 73   nLock += (int)s
6c80: 74 72 6c 65 6e 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f  trlen(&zLock[nLo
6c90: 63 6b 5d 29 3b 0a 20 20 20 20 69 66 28 20 66 6c  ck]);.    if( fl
6ca0: 61 67 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d  ags & SQLITE_SHM
6cb0: 5f 53 48 41 52 45 44 20 29 7b 0a 20 20 20 20 20  _SHARED ){.     
6cc0: 20 73 74 72 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e   strcpy(&zLock[n
6cd0: 4c 6f 63 6b 5d 2c 20 22 20 73 68 61 72 65 64 22  Lock], " shared"
6ce0: 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  );.    }else{.  
6cf0: 20 20 20 20 73 74 72 63 70 79 28 26 7a 4c 6f 63      strcpy(&zLoc
6d00: 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 65 78 63 6c  k[nLock], " excl
6d10: 75 73 69 76 65 22 29 3b 0a 20 20 20 20 7d 0a 20  usive");.    }. 
6d20: 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70     tvfsExecTcl(p
6d30: 2c 20 22 78 53 68 6d 4c 6f 63 6b 22 2c 20 0a 20  , "xShmLock", . 
6d40: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
6d50: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68  ringObj(pFd->pSh
6d60: 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70  m->zFile, -1), p
6d70: 46 64 2d 3e 70 53 68 6d 49 64 2c 0a 20 20 20 20  Fd->pShmId,.    
6d80: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e      Tcl_NewStrin
6d90: 67 4f 62 6a 28 7a 4c 6f 63 6b 2c 20 2d 31 29 2c  gObj(zLock, -1),
6da0: 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76   0.    );.    tv
6db0: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
6dc0: 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28  &rc);.  }..  if(
6dd0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26   rc==SQLITE_OK &
6de0: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
6df0: 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53 4b 20 26  S_SHMLOCK_MASK &
6e00: 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65 72  & tvfsInjectIoer
6e10: 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20 3d  r(p) ){.    rc =
6e20: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20   SQLITE_IOERR;. 
6e30: 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53 51   }..  if( rc==SQ
6e40: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 69  LITE_OK ){.    i
6e50: 6e 74 20 69 73 4c 6f 63 6b 20 3d 20 28 66 6c 61  nt isLock = (fla
6e60: 67 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d 5f  gs & SQLITE_SHM_
6e70: 4c 4f 43 4b 29 3b 0a 20 20 20 20 69 6e 74 20 69  LOCK);.    int i
6e80: 73 45 78 63 6c 20 3d 20 28 66 6c 61 67 73 20 26  sExcl = (flags &
6e90: 20 53 51 4c 49 54 45 5f 53 48 4d 5f 45 58 43 4c   SQLITE_SHM_EXCL
6ea0: 55 53 49 56 45 29 3b 0a 20 20 20 20 75 33 32 20  USIVE);.    u32 
6eb0: 6d 61 73 6b 20 3d 20 28 28 28 31 3c 3c 6e 29 2d  mask = (((1<<n)-
6ec0: 31 29 20 3c 3c 20 6f 66 73 74 29 3b 0a 20 20 20  1) << ofst);.   
6ed0: 20 69 66 28 20 69 73 4c 6f 63 6b 20 29 7b 0a 20   if( isLock ){. 
6ee0: 20 20 20 20 20 54 65 73 74 76 66 73 46 64 20 2a       TestvfsFd *
6ef0: 70 32 3b 0a 20 20 20 20 20 20 66 6f 72 28 70 32  p2;.      for(p2
6f00: 3d 70 46 64 2d 3e 70 53 68 6d 2d 3e 70 46 69 6c  =pFd->pShm->pFil
6f10: 65 3b 20 70 32 3b 20 70 32 3d 70 32 2d 3e 70 4e  e; p2; p2=p2->pN
6f20: 65 78 74 29 7b 0a 20 20 20 20 20 20 20 20 69 66  ext){.        if
6f30: 28 20 70 32 3d 3d 70 46 64 20 29 20 63 6f 6e 74  ( p2==pFd ) cont
6f40: 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 69 66  inue;.        if
6f50: 28 20 28 70 32 2d 3e 65 78 63 6c 6c 6f 63 6b 26  ( (p2->excllock&
6f60: 6d 61 73 6b 29 20 7c 7c 20 28 69 73 45 78 63 6c  mask) || (isExcl
6f70: 20 26 26 20 70 32 2d 3e 73 68 61 72 65 64 6c 6f   && p2->sharedlo
6f80: 63 6b 26 6d 61 73 6b 29 20 29 7b 0a 20 20 20 20  ck&mask) ){.    
6f90: 20 20 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54        rc = SQLIT
6fa0: 45 5f 42 55 53 59 3b 0a 20 20 20 20 20 20 20 20  E_BUSY;.        
6fb0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20    break;.       
6fc0: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20   }.      }.     
6fd0: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
6fe0: 4f 4b 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66  OK ){.        if
6ff0: 28 20 69 73 45 78 63 6c 20 29 20 20 70 46 64 2d  ( isExcl )  pFd-
7000: 3e 65 78 63 6c 6c 6f 63 6b 20 7c 3d 20 6d 61 73  >excllock |= mas
7010: 6b 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 21  k;.        if( !
7020: 69 73 45 78 63 6c 20 29 20 70 46 64 2d 3e 73 68  isExcl ) pFd->sh
7030: 61 72 65 64 6c 6f 63 6b 20 7c 3d 20 6d 61 73 6b  aredlock |= mask
7040: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 65  ;.      }.    }e
7050: 6c 73 65 7b 0a 20 20 20 20 20 20 69 66 28 20 69  lse{.      if( i
7060: 73 45 78 63 6c 20 29 20 20 70 46 64 2d 3e 65 78  sExcl )  pFd->ex
7070: 63 6c 6c 6f 63 6b 20 26 3d 20 28 7e 6d 61 73 6b  cllock &= (~mask
7080: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 21 69 73  );.      if( !is
7090: 45 78 63 6c 20 29 20 70 46 64 2d 3e 73 68 61 72  Excl ) pFd->shar
70a0: 65 64 6c 6f 63 6b 20 26 3d 20 28 7e 6d 61 73 6b  edlock &= (~mask
70b0: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20  );.    }.  }..  
70c0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74  return rc;.}..st
70d0: 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 53 68  atic void tvfsSh
70e0: 6d 42 61 72 72 69 65 72 28 73 71 6c 69 74 65 33  mBarrier(sqlite3
70f0: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20  _file *pFile){. 
7100: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20   TestvfsFd *pFd 
7110: 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c  = tvfsGetFd(pFil
7120: 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  e);.  Testvfs *p
7130: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70   = (Testvfs *)(p
7140: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
7150: 74 61 29 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70  ta);..  if( p->p
7160: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
7170: 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 42 41 52  k&TESTVFS_SHMBAR
7180: 52 49 45 52 5f 4d 41 53 4b 20 29 7b 0a 20 20 20  RIER_MASK ){.   
7190: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d   const char *z =
71a0: 20 70 46 64 2d 3e 70 53 68 6d 20 3f 20 70 46 64   pFd->pShm ? pFd
71b0: 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 20 3a 20  ->pShm->zFile : 
71c0: 22 22 3b 0a 20 20 20 20 74 76 66 73 45 78 65 63  "";.    tvfsExec
71d0: 54 63 6c 28 70 2c 20 22 78 53 68 6d 42 61 72 72  Tcl(p, "xShmBarr
71e0: 69 65 72 22 2c 20 54 63 6c 5f 4e 65 77 53 74 72  ier", Tcl_NewStr
71f0: 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29 2c 20 70  ingObj(z, -1), p
7200: 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30  Fd->pShmId, 0, 0
7210: 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 2d  );.  }..  if( p-
7220: 3e 69 73 46 75 6c 6c 73 68 6d 20 29 7b 0a 20 20  >isFullshm ){.  
7230: 20 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 42 61    sqlite3OsShmBa
7240: 72 72 69 65 72 28 70 46 64 2d 3e 70 52 65 61 6c  rrier(pFd->pReal
7250: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20  );.    return;. 
7260: 20 7d 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74   }.}..static int
7270: 20 74 76 66 73 53 68 6d 55 6e 6d 61 70 28 0a 20   tvfsShmUnmap(. 
7280: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
7290: 46 69 6c 65 2c 0a 20 20 69 6e 74 20 64 65 6c 65  File,.  int dele
72a0: 74 65 46 6c 61 67 0a 29 7b 0a 20 20 69 6e 74 20  teFlag.){.  int 
72b0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
72c0: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
72d0: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
72e0: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
72f0: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28  p = (Testvfs *)(
7300: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
7310: 61 74 61 29 3b 0a 20 20 54 65 73 74 76 66 73 42  ata);.  TestvfsB
7320: 75 66 66 65 72 20 2a 70 42 75 66 66 65 72 20 3d  uffer *pBuffer =
7330: 20 70 46 64 2d 3e 70 53 68 6d 3b 0a 20 20 54 65   pFd->pShm;.  Te
7340: 73 74 76 66 73 46 64 20 2a 2a 70 70 46 64 3b 0a  stvfsFd **ppFd;.
7350: 0a 20 20 69 66 28 20 70 2d 3e 69 73 46 75 6c 6c  .  if( p->isFull
7360: 73 68 6d 20 29 7b 0a 20 20 20 20 72 65 74 75 72  shm ){.    retur
7370: 6e 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 55 6e  n sqlite3OsShmUn
7380: 6d 61 70 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20  map(pFd->pReal, 
7390: 64 65 6c 65 74 65 46 6c 61 67 29 3b 0a 20 20 7d  deleteFlag);.  }
73a0: 0a 0a 20 20 69 66 28 20 21 70 42 75 66 66 65 72  ..  if( !pBuffer
73b0: 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45   ) return SQLITE
73c0: 5f 4f 4b 3b 0a 20 20 61 73 73 65 72 74 28 20 70  _OK;.  assert( p
73d0: 46 64 2d 3e 70 53 68 6d 49 64 20 26 26 20 70 46  Fd->pShmId && pF
73e0: 64 2d 3e 70 53 68 6d 20 29 3b 0a 0a 20 20 69 66  d->pShm );..  if
73f0: 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20  ( p->pScript && 
7400: 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f  p->mask&TESTVFS_
7410: 53 48 4d 43 4c 4f 53 45 5f 4d 41 53 4b 20 29 7b  SHMCLOSE_MASK ){
7420: 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c  .    tvfsExecTcl
7430: 28 70 2c 20 22 78 53 68 6d 55 6e 6d 61 70 22 2c  (p, "xShmUnmap",
7440: 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65   .        Tcl_Ne
7450: 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e  wStringObj(pFd->
7460: 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29  pShm->zFile, -1)
7470: 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30  , pFd->pShmId, 0
7480: 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74  , 0.    );.    t
7490: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
74a0: 20 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 66 6f   &rc);.  }..  fo
74b0: 72 28 70 70 46 64 3d 26 70 42 75 66 66 65 72 2d  r(ppFd=&pBuffer-
74c0: 3e 70 46 69 6c 65 3b 20 2a 70 70 46 64 21 3d 70  >pFile; *ppFd!=p
74d0: 46 64 3b 20 70 70 46 64 3d 26 28 28 2a 70 70 46  Fd; ppFd=&((*ppF
74e0: 64 29 2d 3e 70 4e 65 78 74 29 29 3b 0a 20 20 61  d)->pNext));.  a
74f0: 73 73 65 72 74 28 20 28 2a 70 70 46 64 29 3d 3d  ssert( (*ppFd)==
7500: 70 46 64 20 29 3b 0a 20 20 2a 70 70 46 64 20 3d  pFd );.  *ppFd =
7510: 20 70 46 64 2d 3e 70 4e 65 78 74 3b 0a 20 20 70   pFd->pNext;.  p
7520: 46 64 2d 3e 70 4e 65 78 74 20 3d 20 30 3b 0a 0a  Fd->pNext = 0;..
7530: 20 20 69 66 28 20 70 42 75 66 66 65 72 2d 3e 70    if( pBuffer->p
7540: 46 69 6c 65 3d 3d 30 20 29 7b 0a 20 20 20 20 69  File==0 ){.    i
7550: 6e 74 20 69 3b 0a 20 20 20 20 54 65 73 74 76 66  nt i;.    Testvf
7560: 73 42 75 66 66 65 72 20 2a 2a 70 70 3b 0a 20 20  sBuffer **pp;.  
7570: 20 20 66 6f 72 28 70 70 3d 26 70 2d 3e 70 42 75    for(pp=&p->pBu
7580: 66 66 65 72 3b 20 2a 70 70 21 3d 70 42 75 66 66  ffer; *pp!=pBuff
7590: 65 72 3b 20 70 70 3d 26 28 28 2a 70 70 29 2d 3e  er; pp=&((*pp)->
75a0: 70 4e 65 78 74 29 29 3b 0a 20 20 20 20 2a 70 70  pNext));.    *pp
75b0: 20 3d 20 28 2a 70 70 29 2d 3e 70 4e 65 78 74 3b   = (*pp)->pNext;
75c0: 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 70 42  .    for(i=0; pB
75d0: 75 66 66 65 72 2d 3e 61 50 61 67 65 5b 69 5d 3b  uffer->aPage[i];
75e0: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 63 6b 66   i++){.      ckf
75f0: 72 65 65 28 28 63 68 61 72 20 2a 29 70 42 75 66  ree((char *)pBuf
7600: 66 65 72 2d 3e 61 50 61 67 65 5b 69 5d 29 3b 0a  fer->aPage[i]);.
7610: 20 20 20 20 7d 0a 20 20 20 20 63 6b 66 72 65 65      }.    ckfree
7620: 28 28 63 68 61 72 20 2a 29 70 42 75 66 66 65 72  ((char *)pBuffer
7630: 29 3b 0a 20 20 7d 0a 20 20 70 46 64 2d 3e 70 53  );.  }.  pFd->pS
7640: 68 6d 20 3d 20 30 3b 0a 0a 20 20 72 65 74 75 72  hm = 0;..  retur
7650: 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  n rc;.}..static 
7660: 69 6e 74 20 74 76 66 73 46 65 74 63 68 28 0a 20  int tvfsFetch(. 
7670: 20 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20     sqlite3_file 
7680: 2a 70 46 69 6c 65 2c 20 0a 20 20 20 20 73 71 6c  *pFile, .    sql
7690: 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74  ite3_int64 iOfst
76a0: 2c 20 0a 20 20 20 20 69 6e 74 20 69 41 6d 74 2c  , .    int iAmt,
76b0: 20 0a 20 20 20 20 76 6f 69 64 20 2a 2a 70 70 0a   .    void **pp.
76c0: 29 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  ){.  TestvfsFd *
76d0: 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28  pFd = tvfsGetFd(
76e0: 70 46 69 6c 65 29 3b 0a 20 20 72 65 74 75 72 6e  pFile);.  return
76f0: 20 73 71 6c 69 74 65 33 4f 73 46 65 74 63 68 28   sqlite3OsFetch(
7700: 70 46 64 2d 3e 70 52 65 61 6c 2c 20 69 4f 66 73  pFd->pReal, iOfs
7710: 74 2c 20 69 41 6d 74 2c 20 70 70 29 3b 0a 7d 0a  t, iAmt, pp);.}.
7720: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
7730: 55 6e 66 65 74 63 68 28 73 71 6c 69 74 65 33 5f  Unfetch(sqlite3_
7740: 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 73 71 6c  file *pFile, sql
7750: 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74  ite3_int64 iOfst
7760: 2c 20 76 6f 69 64 20 2a 70 29 7b 0a 20 20 54 65  , void *p){.  Te
7770: 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74  stvfsFd *pFd = t
7780: 76 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b  vfsGetFd(pFile);
7790: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
77a0: 33 4f 73 55 6e 66 65 74 63 68 28 70 46 64 2d 3e  3OsUnfetch(pFd->
77b0: 70 52 65 61 6c 2c 20 69 4f 66 73 74 2c 20 70 29  pReal, iOfst, p)
77c0: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
77d0: 53 51 4c 49 54 45 5f 54 43 4c 41 50 49 20 74 65  SQLITE_TCLAPI te
77e0: 73 74 76 66 73 5f 6f 62 6a 5f 63 6d 64 28 0a 20  stvfs_obj_cmd(. 
77f0: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 64 2c 0a   ClientData cd,.
7800: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
7810: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
7820: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
7830: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 54  ST objv[].){.  T
7840: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
7850: 74 76 66 73 20 2a 29 63 64 3b 0a 0a 20 20 65 6e  tvfs *)cd;..  en
7860: 75 6d 20 44 42 5f 65 6e 75 6d 20 7b 20 0a 20 20  um DB_enum { .  
7870: 20 20 43 4d 44 5f 53 48 4d 2c 20 43 4d 44 5f 44    CMD_SHM, CMD_D
7880: 45 4c 45 54 45 2c 20 43 4d 44 5f 46 49 4c 54 45  ELETE, CMD_FILTE
7890: 52 2c 20 43 4d 44 5f 49 4f 45 52 52 2c 20 43 4d  R, CMD_IOERR, CM
78a0: 44 5f 53 43 52 49 50 54 2c 20 0a 20 20 20 20 43  D_SCRIPT, .    C
78b0: 4d 44 5f 44 45 56 43 48 41 52 2c 20 43 4d 44 5f  MD_DEVCHAR, CMD_
78c0: 53 45 43 54 4f 52 53 49 5a 45 2c 20 43 4d 44 5f  SECTORSIZE, CMD_
78d0: 46 55 4c 4c 45 52 52 2c 20 43 4d 44 5f 43 41 4e  FULLERR, CMD_CAN
78e0: 54 4f 50 45 4e 45 52 52 0a 20 20 7d 3b 0a 20 20  TOPENERR.  };.  
78f0: 73 74 72 75 63 74 20 54 65 73 74 76 66 73 53 75  struct TestvfsSu
7900: 62 63 6d 64 20 7b 0a 20 20 20 20 63 68 61 72 20  bcmd {.    char 
7910: 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 65 6e 75 6d  *zName;.    enum
7920: 20 44 42 5f 65 6e 75 6d 20 65 43 6d 64 3b 0a 20   DB_enum eCmd;. 
7930: 20 7d 20 61 53 75 62 63 6d 64 5b 5d 20 3d 20 7b   } aSubcmd[] = {
7940: 0a 20 20 20 20 7b 20 22 73 68 6d 22 2c 20 20 20  .    { "shm",   
7950: 20 20 20 20 20 20 43 4d 44 5f 53 48 4d 20 20 20        CMD_SHM   
7960: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22        },.    { "
7970: 64 65 6c 65 74 65 22 2c 20 20 20 20 20 20 43 4d  delete",      CM
7980: 44 5f 44 45 4c 45 54 45 20 20 20 20 20 20 7d 2c  D_DELETE      },
7990: 0a 20 20 20 20 7b 20 22 66 69 6c 74 65 72 22 2c  .    { "filter",
79a0: 20 20 20 20 20 20 43 4d 44 5f 46 49 4c 54 45 52        CMD_FILTER
79b0: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22        },.    { "
79c0: 69 6f 65 72 72 22 2c 20 20 20 20 20 20 20 43 4d  ioerr",       CM
79d0: 44 5f 49 4f 45 52 52 20 20 20 20 20 20 20 7d 2c  D_IOERR       },
79e0: 0a 20 20 20 20 7b 20 22 66 75 6c 6c 65 72 72 22  .    { "fullerr"
79f0: 2c 20 20 20 20 20 43 4d 44 5f 46 55 4c 4c 45 52  ,     CMD_FULLER
7a00: 52 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22  R     },.    { "
7a10: 63 61 6e 74 6f 70 65 6e 65 72 72 22 2c 20 43 4d  cantopenerr", CM
7a20: 44 5f 43 41 4e 54 4f 50 45 4e 45 52 52 20 7d 2c  D_CANTOPENERR },
7a30: 0a 20 20 20 20 7b 20 22 73 63 72 69 70 74 22 2c  .    { "script",
7a40: 20 20 20 20 20 20 43 4d 44 5f 53 43 52 49 50 54        CMD_SCRIPT
7a50: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22        },.    { "
7a60: 64 65 76 63 68 61 72 22 2c 20 20 20 20 20 43 4d  devchar",     CM
7a70: 44 5f 44 45 56 43 48 41 52 20 20 20 20 20 7d 2c  D_DEVCHAR     },
7a80: 0a 20 20 20 20 7b 20 22 73 65 63 74 6f 72 73 69  .    { "sectorsi
7a90: 7a 65 22 2c 20 20 43 4d 44 5f 53 45 43 54 4f 52  ze",  CMD_SECTOR
7aa0: 53 49 5a 45 20 20 7d 2c 0a 20 20 20 20 7b 20 30  SIZE  },.    { 0
7ab0: 2c 20 30 20 7d 0a 20 20 7d 3b 0a 20 20 69 6e 74  , 0 }.  };.  int
7ac0: 20 69 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a   i;.  .  if( obj
7ad0: 63 3c 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57  c<2 ){.    Tcl_W
7ae0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
7af0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 55  rp, 1, objv, "SU
7b00: 42 43 4f 4d 4d 41 4e 44 20 2e 2e 2e 22 29 3b 0a  BCOMMAND ...");.
7b10: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
7b20: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
7b30: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d  Tcl_GetIndexFrom
7b40: 4f 62 6a 53 74 72 75 63 74 28 0a 20 20 20 20 20  ObjStruct(.     
7b50: 20 20 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b     interp, objv[
7b60: 31 5d 2c 20 61 53 75 62 63 6d 64 2c 20 73 69 7a  1], aSubcmd, siz
7b70: 65 6f 66 28 61 53 75 62 63 6d 64 5b 30 5d 29 2c  eof(aSubcmd[0]),
7b80: 20 22 73 75 62 63 6f 6d 6d 61 6e 64 22 2c 20 30   "subcommand", 0
7b90: 2c 20 26 69 29 20 0a 20 20 29 7b 0a 20 20 20 20  , &i) .  ){.    
7ba0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
7bb0: 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 52 65 73 65  ;.  }.  Tcl_Rese
7bc0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b  tResult(interp);
7bd0: 0a 0a 20 20 73 77 69 74 63 68 28 20 61 53 75 62  ..  switch( aSub
7be0: 63 6d 64 5b 69 5d 2e 65 43 6d 64 20 29 7b 0a 20  cmd[i].eCmd ){. 
7bf0: 20 20 20 63 61 73 65 20 43 4d 44 5f 53 48 4d 3a     case CMD_SHM:
7c00: 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a   {.      Tcl_Obj
7c10: 20 2a 70 4f 62 6a 3b 0a 20 20 20 20 20 20 69 6e   *pObj;.      in
7c20: 74 20 72 63 3b 0a 20 20 20 20 20 20 54 65 73 74  t rc;.      Test
7c30: 76 66 73 42 75 66 66 65 72 20 2a 70 42 75 66 66  vfsBuffer *pBuff
7c40: 65 72 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a  er;.      char *
7c50: 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 20 69 66 28  zName;.      if(
7c60: 20 6f 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63   objc!=3 && objc
7c70: 21 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20 54  !=4 ){.        T
7c80: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
7c90: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
7ca0: 20 22 46 49 4c 45 20 3f 56 41 4c 55 45 3f 22 29   "FILE ?VALUE?")
7cb0: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ;.        return
7cc0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
7cd0: 20 20 7d 0a 20 20 20 20 20 20 7a 4e 61 6d 65 20    }.      zName 
7ce0: 3d 20 63 6b 61 6c 6c 6f 63 28 70 2d 3e 70 50 61  = ckalloc(p->pPa
7cf0: 72 65 6e 74 2d 3e 6d 78 50 61 74 68 6e 61 6d 65  rent->mxPathname
7d00: 29 3b 0a 20 20 20 20 20 20 72 63 20 3d 20 70 2d  );.      rc = p-
7d10: 3e 70 50 61 72 65 6e 74 2d 3e 78 46 75 6c 6c 50  >pParent->xFullP
7d20: 61 74 68 6e 61 6d 65 28 0a 20 20 20 20 20 20 20  athname(.       
7d30: 20 20 20 70 2d 3e 70 50 61 72 65 6e 74 2c 20 54     p->pParent, T
7d40: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
7d50: 76 5b 32 5d 29 2c 20 0a 20 20 20 20 20 20 20 20  v[2]), .        
7d60: 20 20 70 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78    p->pParent->mx
7d70: 50 61 74 68 6e 61 6d 65 2c 20 7a 4e 61 6d 65 0a  Pathname, zName.
7d80: 20 20 20 20 20 20 29 3b 0a 20 20 20 20 20 20 69        );.      i
7d90: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc!=SQLITE_OK
7da0: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
7db0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
7dc0: 65 72 70 2c 20 22 66 61 69 6c 65 64 20 74 6f 20  erp, "failed to 
7dd0: 67 65 74 20 66 75 6c 6c 20 70 61 74 68 3a 20 22  get full path: "
7de0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,.              
7df0: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 47             Tcl_G
7e00: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d  etString(objv[2]
7e10: 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 63  ), 0);.        c
7e20: 6b 66 72 65 65 28 7a 4e 61 6d 65 29 3b 0a 20 20  kfree(zName);.  
7e30: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
7e40: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
7e50: 20 20 20 20 20 20 66 6f 72 28 70 42 75 66 66 65        for(pBuffe
7e60: 72 3d 70 2d 3e 70 42 75 66 66 65 72 3b 20 70 42  r=p->pBuffer; pB
7e70: 75 66 66 65 72 3b 20 70 42 75 66 66 65 72 3d 70  uffer; pBuffer=p
7e80: 42 75 66 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a  Buffer->pNext){.
7e90: 20 20 20 20 20 20 20 20 69 66 28 20 30 3d 3d 73          if( 0==s
7ea0: 74 72 63 6d 70 28 70 42 75 66 66 65 72 2d 3e 7a  trcmp(pBuffer->z
7eb0: 46 69 6c 65 2c 20 7a 4e 61 6d 65 29 20 29 20 62  File, zName) ) b
7ec0: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  reak;.      }.  
7ed0: 20 20 20 20 63 6b 66 72 65 65 28 7a 4e 61 6d 65      ckfree(zName
7ee0: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 21 70 42  );.      if( !pB
7ef0: 75 66 66 65 72 20 29 7b 0a 20 20 20 20 20 20 20  uffer ){.       
7f00: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
7f10: 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75  t(interp, "no su
7f20: 63 68 20 66 69 6c 65 3a 20 22 2c 20 54 63 6c 5f  ch file: ", Tcl_
7f30: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32  GetString(objv[2
7f40: 5d 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20  ]), 0);.        
7f50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
7f60: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
7f70: 69 66 28 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20  if( objc==4 ){. 
7f80: 20 20 20 20 20 20 20 69 6e 74 20 6e 3b 0a 20 20         int n;.  
7f90: 20 20 20 20 20 20 75 38 20 2a 61 20 3d 20 54 63        u8 *a = Tc
7fa0: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72  l_GetByteArrayFr
7fb0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26  omObj(objv[3], &
7fc0: 6e 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20  n);.        int 
7fd0: 70 67 73 7a 20 3d 20 70 42 75 66 66 65 72 2d 3e  pgsz = pBuffer->
7fe0: 70 67 73 7a 3b 0a 20 20 20 20 20 20 20 20 69 66  pgsz;.        if
7ff0: 28 20 70 67 73 7a 3d 3d 30 20 29 20 70 67 73 7a  ( pgsz==0 ) pgsz
8000: 20 3d 20 36 35 35 33 36 3b 0a 20 20 20 20 20 20   = 65536;.      
8010: 20 20 66 6f 72 28 69 3d 30 3b 20 69 2a 70 67 73    for(i=0; i*pgs
8020: 7a 3c 6e 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20  z<n; i++){.     
8030: 20 20 20 20 20 69 6e 74 20 6e 42 79 74 65 20 3d       int nByte =
8040: 20 70 67 73 7a 3b 0a 20 20 20 20 20 20 20 20 20   pgsz;.         
8050: 20 74 76 66 73 41 6c 6c 6f 63 50 61 67 65 28 70   tvfsAllocPage(p
8060: 42 75 66 66 65 72 2c 20 69 2c 20 70 67 73 7a 29  Buffer, i, pgsz)
8070: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  ;.          if( 
8080: 6e 2d 69 2a 70 67 73 7a 3c 70 67 73 7a 20 29 7b  n-i*pgsz<pgsz ){
8090: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 42 79  .            nBy
80a0: 74 65 20 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20  te = n;.        
80b0: 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 6d 65    }.          me
80c0: 6d 63 70 79 28 70 42 75 66 66 65 72 2d 3e 61 50  mcpy(pBuffer->aP
80d0: 61 67 65 5b 69 5d 2c 20 26 61 5b 69 2a 70 67 73  age[i], &a[i*pgs
80e0: 7a 5d 2c 20 6e 42 79 74 65 29 3b 0a 20 20 20 20  z], nByte);.    
80f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 0a 20      }.      }.. 
8100: 20 20 20 20 20 70 4f 62 6a 20 3d 20 54 63 6c 5f       pObj = Tcl_
8110: 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 20 20  NewObj();.      
8120: 66 6f 72 28 69 3d 30 3b 20 70 42 75 66 66 65 72  for(i=0; pBuffer
8130: 2d 3e 61 50 61 67 65 5b 69 5d 3b 20 69 2b 2b 29  ->aPage[i]; i++)
8140: 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 70 67  {.        int pg
8150: 73 7a 20 3d 20 70 42 75 66 66 65 72 2d 3e 70 67  sz = pBuffer->pg
8160: 73 7a 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  sz;.        if( 
8170: 70 67 73 7a 3d 3d 30 20 29 20 70 67 73 7a 20 3d  pgsz==0 ) pgsz =
8180: 20 36 35 35 33 36 3b 0a 20 20 20 20 20 20 20 20   65536;.        
8190: 54 63 6c 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f  Tcl_AppendObjToO
81a0: 62 6a 28 70 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77  bj(pObj, Tcl_New
81b0: 42 79 74 65 41 72 72 61 79 4f 62 6a 28 70 42 75  ByteArrayObj(pBu
81c0: 66 66 65 72 2d 3e 61 50 61 67 65 5b 69 5d 2c 20  ffer->aPage[i], 
81d0: 70 67 73 7a 29 29 3b 0a 20 20 20 20 20 20 7d 0a  pgsz));.      }.
81e0: 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a        Tcl_SetObj
81f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70  Result(interp, p
8200: 4f 62 6a 29 3b 0a 20 20 20 20 20 20 62 72 65 61  Obj);.      brea
8210: 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  k;.    }..    /*
8220: 20 20 54 45 53 54 56 46 53 20 66 69 6c 74 65 72    TESTVFS filter
8230: 20 4d 45 54 48 4f 44 2d 4c 49 53 54 0a 20 20 20   METHOD-LIST.   
8240: 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 20 20 41   **.    **     A
8250: 63 74 69 76 61 74 65 20 73 70 65 63 69 61 6c 20  ctivate special 
8260: 70 72 6f 63 65 73 73 69 6e 67 20 66 6f 72 20 74  processing for t
8270: 68 6f 73 65 20 6d 65 74 68 6f 64 73 20 63 6f 6e  hose methods con
8280: 74 61 69 6e 65 64 20 69 6e 20 74 68 65 20 6c 69  tained in the li
8290: 73 74 0a 20 20 20 20 2a 2f 0a 20 20 20 20 63 61  st.    */.    ca
82a0: 73 65 20 43 4d 44 5f 46 49 4c 54 45 52 3a 20 7b  se CMD_FILTER: {
82b0: 0a 20 20 20 20 20 20 73 74 61 74 69 63 20 73 74  .      static st
82c0: 72 75 63 74 20 56 66 73 4d 65 74 68 6f 64 20 7b  ruct VfsMethod {
82d0: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 7a  .        char *z
82e0: 4e 61 6d 65 3b 0a 20 20 20 20 20 20 20 20 69 6e  Name;.        in
82f0: 74 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20 7d 20  t mask;.      } 
8300: 76 66 73 6d 65 74 68 6f 64 20 5b 5d 20 3d 20 7b  vfsmethod [] = {
8310: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d  .        { "xShm
8320: 4f 70 65 6e 22 2c 20 20 20 20 20 20 20 20 20 20  Open",          
8330: 20 54 45 53 54 56 46 53 5f 53 48 4d 4f 50 45 4e   TESTVFS_SHMOPEN
8340: 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20  _MASK },.       
8350: 20 7b 20 22 78 53 68 6d 4c 6f 63 6b 22 2c 20 20   { "xShmLock",  
8360: 20 20 20 20 20 20 20 20 20 54 45 53 54 56 46 53           TESTVFS
8370: 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53 4b 20 7d 2c  _SHMLOCK_MASK },
8380: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d  .        { "xShm
8390: 42 61 72 72 69 65 72 22 2c 20 20 20 20 20 20 20  Barrier",       
83a0: 20 54 45 53 54 56 46 53 5f 53 48 4d 42 41 52 52   TESTVFS_SHMBARR
83b0: 49 45 52 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  IER_MASK },.    
83c0: 20 20 20 20 7b 20 22 78 53 68 6d 55 6e 6d 61 70      { "xShmUnmap
83d0: 22 2c 20 20 20 20 20 20 20 20 20 20 54 45 53 54  ",          TEST
83e0: 56 46 53 5f 53 48 4d 43 4c 4f 53 45 5f 4d 41 53  VFS_SHMCLOSE_MAS
83f0: 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22  K },.        { "
8400: 78 53 68 6d 4d 61 70 22 2c 20 20 20 20 20 20 20  xShmMap",       
8410: 20 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d       TESTVFS_SHM
8420: 4d 41 50 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  MAP_MASK },.    
8430: 20 20 20 20 7b 20 22 78 53 79 6e 63 22 2c 20 20      { "xSync",  
8440: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
8450: 56 46 53 5f 53 59 4e 43 5f 4d 41 53 4b 20 7d 2c  VFS_SYNC_MASK },
8460: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 44 65 6c  .        { "xDel
8470: 65 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 20  ete",           
8480: 20 54 45 53 54 56 46 53 5f 44 45 4c 45 54 45 5f   TESTVFS_DELETE_
8490: 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20  MASK },.        
84a0: 7b 20 22 78 57 72 69 74 65 22 2c 20 20 20 20 20  { "xWrite",     
84b0: 20 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f          TESTVFS_
84c0: 57 52 49 54 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20  WRITE_MASK },.  
84d0: 20 20 20 20 20 20 7b 20 22 78 52 65 61 64 22 2c        { "xRead",
84e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45                TE
84f0: 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20  STVFS_READ_MASK 
8500: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 54  },.        { "xT
8510: 72 75 6e 63 61 74 65 22 2c 20 20 20 20 20 20 20  runcate",       
8520: 20 20 20 54 45 53 54 56 46 53 5f 54 52 55 4e 43     TESTVFS_TRUNC
8530: 41 54 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  ATE_MASK },.    
8540: 20 20 20 20 7b 20 22 78 4f 70 65 6e 22 2c 20 20      { "xOpen",  
8550: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
8560: 56 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 20 7d 2c  VFS_OPEN_MASK },
8570: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 43 6c 6f  .        { "xClo
8580: 73 65 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  se",            
8590: 20 54 45 53 54 56 46 53 5f 43 4c 4f 53 45 5f 4d   TESTVFS_CLOSE_M
85a0: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
85b0: 20 22 78 41 63 63 65 73 73 22 2c 20 20 20 20 20   "xAccess",     
85c0: 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 41         TESTVFS_A
85d0: 43 43 45 53 53 5f 4d 41 53 4b 20 7d 2c 0a 20 20  CCESS_MASK },.  
85e0: 20 20 20 20 20 20 7b 20 22 78 46 75 6c 6c 50 61        { "xFullPa
85f0: 74 68 6e 61 6d 65 22 2c 20 20 20 20 20 20 54 45  thname",      TE
8600: 53 54 56 46 53 5f 46 55 4c 4c 50 41 54 48 4e 41  STVFS_FULLPATHNA
8610: 4d 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20  ME_MASK },.     
8620: 20 20 20 7b 20 22 78 55 6e 6c 6f 63 6b 22 2c 20     { "xUnlock", 
8630: 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 56             TESTV
8640: 46 53 5f 55 4e 4c 4f 43 4b 5f 4d 41 53 4b 20 7d  FS_UNLOCK_MASK }
8650: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 4c 6f  ,.        { "xLo
8660: 63 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  ck",            
8670: 20 20 54 45 53 54 56 46 53 5f 4c 4f 43 4b 5f 4d    TESTVFS_LOCK_M
8680: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
8690: 20 22 78 43 68 65 63 6b 52 65 73 65 72 76 65 64   "xCheckReserved
86a0: 4c 6f 63 6b 22 2c 20 54 45 53 54 56 46 53 5f 43  Lock", TESTVFS_C
86b0: 4b 4c 4f 43 4b 5f 4d 41 53 4b 20 7d 2c 0a 20 20  KLOCK_MASK },.  
86c0: 20 20 20 20 20 20 7b 20 22 78 46 69 6c 65 43 6f        { "xFileCo
86d0: 6e 74 72 6f 6c 22 2c 20 20 20 20 20 20 20 54 45  ntrol",       TE
86e0: 53 54 56 46 53 5f 46 43 4e 54 4c 5f 4d 41 53 4b  STVFS_FCNTL_MASK
86f0: 20 7d 2c 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20   },.      };.   
8700: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70 45     Tcl_Obj **apE
8710: 6c 65 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 69  lem = 0;.      i
8720: 6e 74 20 6e 45 6c 65 6d 20 3d 20 30 3b 0a 20 20  nt nElem = 0;.  
8730: 20 20 20 20 69 6e 74 20 6d 61 73 6b 20 3d 20 30      int mask = 0
8740: 3b 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63  ;.      if( objc
8750: 21 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20 54  !=3 ){.        T
8760: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
8770: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
8780: 20 22 4c 49 53 54 22 29 3b 0a 20 20 20 20 20 20   "LIST");.      
8790: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
87a0: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
87b0: 20 20 69 66 28 20 54 63 6c 5f 4c 69 73 74 4f 62    if( Tcl_ListOb
87c0: 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74  jGetElements(int
87d0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6e  erp, objv[2], &n
87e0: 45 6c 65 6d 2c 20 26 61 70 45 6c 65 6d 29 20 29  Elem, &apElem) )
87f0: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  {.        return
8800: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
8810: 20 20 7d 0a 20 20 20 20 20 20 54 63 6c 5f 52 65    }.      Tcl_Re
8820: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70  setResult(interp
8830: 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30  );.      for(i=0
8840: 3b 20 69 3c 6e 45 6c 65 6d 3b 20 69 2b 2b 29 7b  ; i<nElem; i++){
8850: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 4d 65  .        int iMe
8860: 74 68 6f 64 3b 0a 20 20 20 20 20 20 20 20 63 68  thod;.        ch
8870: 61 72 20 2a 7a 45 6c 65 6d 20 3d 20 54 63 6c 5f  ar *zElem = Tcl_
8880: 47 65 74 53 74 72 69 6e 67 28 61 70 45 6c 65 6d  GetString(apElem
8890: 5b 69 5d 29 3b 0a 20 20 20 20 20 20 20 20 66 6f  [i]);.        fo
88a0: 72 28 69 4d 65 74 68 6f 64 3d 30 3b 20 69 4d 65  r(iMethod=0; iMe
88b0: 74 68 6f 64 3c 41 72 72 61 79 53 69 7a 65 28 76  thod<ArraySize(v
88c0: 66 73 6d 65 74 68 6f 64 29 3b 20 69 4d 65 74 68  fsmethod); iMeth
88d0: 6f 64 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20  od++){.         
88e0: 20 69 66 28 20 73 74 72 63 6d 70 28 7a 45 6c 65   if( strcmp(zEle
88f0: 6d 2c 20 76 66 73 6d 65 74 68 6f 64 5b 69 4d 65  m, vfsmethod[iMe
8900: 74 68 6f 64 5d 2e 7a 4e 61 6d 65 29 3d 3d 30 20  thod].zName)==0 
8910: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d  ){.            m
8920: 61 73 6b 20 7c 3d 20 76 66 73 6d 65 74 68 6f 64  ask |= vfsmethod
8930: 5b 69 4d 65 74 68 6f 64 5d 2e 6d 61 73 6b 3b 0a  [iMethod].mask;.
8940: 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61              brea
8950: 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20  k;.          }. 
8960: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
8970: 20 69 66 28 20 69 4d 65 74 68 6f 64 3d 3d 41 72   if( iMethod==Ar
8980: 72 61 79 53 69 7a 65 28 76 66 73 6d 65 74 68 6f  raySize(vfsmetho
8990: 64 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  d) ){.          
89a0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
89b0: 28 69 6e 74 65 72 70 2c 20 22 75 6e 6b 6e 6f 77  (interp, "unknow
89c0: 6e 20 6d 65 74 68 6f 64 3a 20 22 2c 20 7a 45 6c  n method: ", zEl
89d0: 65 6d 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20  em, 0);.        
89e0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
89f0: 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  OR;.        }.  
8a00: 20 20 20 20 7d 0a 20 20 20 20 20 20 70 2d 3e 6d      }.      p->m
8a10: 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 20 20 20 20  ask = mask;.    
8a20: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a    break;.    }..
8a30: 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 20 54      /*.    **  T
8a40: 45 53 54 56 46 53 20 73 63 72 69 70 74 20 3f 53  ESTVFS script ?S
8a50: 43 52 49 50 54 3f 0a 20 20 20 20 2a 2a 0a 20 20  CRIPT?.    **.  
8a60: 20 20 2a 2a 20 20 51 75 65 72 79 20 6f 72 20 73    **  Query or s
8a70: 65 74 20 74 68 65 20 73 63 72 69 70 74 20 74 6f  et the script to
8a80: 20 62 65 20 72 75 6e 20 77 68 65 6e 20 66 69 6c   be run when fil
8a90: 74 65 72 65 64 20 56 46 53 20 65 76 65 6e 74 73  tered VFS events
8aa0: 0a 20 20 20 20 2a 2a 20 20 6f 63 63 75 72 2e 0a  .    **  occur..
8ab0: 20 20 20 20 2a 2f 0a 20 20 20 20 63 61 73 65 20      */.    case 
8ac0: 43 4d 44 5f 53 43 52 49 50 54 3a 20 7b 0a 20 20  CMD_SCRIPT: {.  
8ad0: 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33 20      if( objc==3 
8ae0: 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6e  ){.        int n
8af0: 42 79 74 65 3b 0a 20 20 20 20 20 20 20 20 69 66  Byte;.        if
8b00: 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29 7b 0a  ( p->pScript ){.
8b10: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 44 65            Tcl_De
8b20: 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53  crRefCount(p->pS
8b30: 63 72 69 70 74 29 3b 0a 20 20 20 20 20 20 20 20  cript);.        
8b40: 20 20 70 2d 3e 70 53 63 72 69 70 74 20 3d 20 30    p->pScript = 0
8b50: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
8b60: 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e      Tcl_GetStrin
8b70: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d  gFromObj(objv[2]
8b80: 2c 20 26 6e 42 79 74 65 29 3b 0a 20 20 20 20 20  , &nByte);.     
8b90: 20 20 20 69 66 28 20 6e 42 79 74 65 3e 30 20 29     if( nByte>0 )
8ba0: 7b 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e 70  {.          p->p
8bb0: 53 63 72 69 70 74 20 3d 20 54 63 6c 5f 44 75 70  Script = Tcl_Dup
8bc0: 6c 69 63 61 74 65 4f 62 6a 28 6f 62 6a 76 5b 32  licateObj(objv[2
8bd0: 5d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 54 63  ]);.          Tc
8be0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
8bf0: 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 20 20  ->pScript);.    
8c00: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73      }.      }els
8c10: 65 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b  e if( objc!=2 ){
8c20: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f  .        Tcl_Wro
8c30: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
8c40: 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 53 43 52  , 2, objv, "?SCR
8c50: 49 50 54 3f 22 29 3b 0a 20 20 20 20 20 20 20 20  IPT?");.        
8c60: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
8c70: 3b 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20  ;.      }..     
8c80: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74   Tcl_ResetResult
8c90: 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 20  (interp);.      
8ca0: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29  if( p->pScript )
8cb0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
8cc0: 74 28 69 6e 74 65 72 70 2c 20 70 2d 3e 70 53 63  t(interp, p->pSc
8cd0: 72 69 70 74 29 3b 0a 0a 20 20 20 20 20 20 62 72  ript);..      br
8ce0: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  eak;.    }..    
8cf0: 2f 2a 0a 20 20 20 20 2a 2a 20 54 45 53 54 56 46  /*.    ** TESTVF
8d00: 53 20 69 6f 65 72 72 20 3f 49 46 41 49 4c 20 50  S ioerr ?IFAIL P
8d10: 45 52 53 49 53 54 3f 0a 20 20 20 20 2a 2a 0a 20  ERSIST?.    **. 
8d20: 20 20 20 2a 2a 20 20 20 57 68 65 72 65 20 49 46     **   Where IF
8d30: 41 49 4c 20 69 73 20 61 6e 20 69 6e 74 65 67 65  AIL is an intege
8d40: 72 20 61 6e 64 20 50 45 52 53 49 53 54 20 69 73  r and PERSIST is
8d50: 20 62 6f 6f 6c 65 61 6e 2e 0a 20 20 20 20 2a 2f   boolean..    */
8d60: 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 43 41  .    case CMD_CA
8d70: 4e 54 4f 50 45 4e 45 52 52 3a 0a 20 20 20 20 63  NTOPENERR:.    c
8d80: 61 73 65 20 43 4d 44 5f 49 4f 45 52 52 3a 0a 20  ase CMD_IOERR:. 
8d90: 20 20 20 63 61 73 65 20 43 4d 44 5f 46 55 4c 4c     case CMD_FULL
8da0: 45 52 52 3a 20 7b 0a 20 20 20 20 20 20 54 65 73  ERR: {.      Tes
8db0: 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 2a 70 54  tFaultInject *pT
8dc0: 65 73 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 69  est = 0;.      i
8dd0: 6e 74 20 69 52 65 74 3b 0a 0a 20 20 20 20 20 20  nt iRet;..      
8de0: 73 77 69 74 63 68 28 20 61 53 75 62 63 6d 64 5b  switch( aSubcmd[
8df0: 69 5d 2e 65 43 6d 64 20 29 7b 0a 20 20 20 20 20  i].eCmd ){.     
8e00: 20 20 20 63 61 73 65 20 43 4d 44 5f 49 4f 45 52     case CMD_IOER
8e10: 52 3a 20 70 54 65 73 74 20 3d 20 26 70 2d 3e 69  R: pTest = &p->i
8e20: 6f 65 72 72 5f 65 72 72 3b 20 62 72 65 61 6b 3b  oerr_err; break;
8e30: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 43 4d  .        case CM
8e40: 44 5f 46 55 4c 4c 45 52 52 3a 20 70 54 65 73 74  D_FULLERR: pTest
8e50: 20 3d 20 26 70 2d 3e 66 75 6c 6c 5f 65 72 72 3b   = &p->full_err;
8e60: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
8e70: 63 61 73 65 20 43 4d 44 5f 43 41 4e 54 4f 50 45  case CMD_CANTOPE
8e80: 4e 45 52 52 3a 20 70 54 65 73 74 20 3d 20 26 70  NERR: pTest = &p
8e90: 2d 3e 63 61 6e 74 6f 70 65 6e 5f 65 72 72 3b 20  ->cantopen_err; 
8ea0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 64  break;.        d
8eb0: 65 66 61 75 6c 74 3a 20 61 73 73 65 72 74 28 30  efault: assert(0
8ec0: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
8ed0: 20 69 52 65 74 20 3d 20 70 54 65 73 74 2d 3e 6e   iRet = pTest->n
8ee0: 46 61 69 6c 3b 0a 20 20 20 20 20 20 70 54 65 73  Fail;.      pTes
8ef0: 74 2d 3e 6e 46 61 69 6c 20 3d 20 30 3b 0a 20 20  t->nFail = 0;.  
8f00: 20 20 20 20 70 54 65 73 74 2d 3e 65 46 61 75 6c      pTest->eFaul
8f10: 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 54 65  t = 0;.      pTe
8f20: 73 74 2d 3e 69 43 6e 74 20 3d 20 30 3b 0a 0a 20  st->iCnt = 0;.. 
8f30: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 34       if( objc==4
8f40: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20   ){.        int 
8f50: 69 43 6e 74 2c 20 69 50 65 72 73 69 73 74 3b 0a  iCnt, iPersist;.
8f60: 20 20 20 20 20 20 20 20 69 66 28 20 54 43 4c 5f          if( TCL_
8f70: 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72  OK!=Tcl_GetIntFr
8f80: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
8f90: 6a 76 5b 32 5d 2c 20 26 69 43 6e 74 29 0a 20 20  jv[2], &iCnt).  
8fa0: 20 20 20 20 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b         || TCL_OK
8fb0: 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e  !=Tcl_GetBoolean
8fc0: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
8fd0: 6f 62 6a 76 5b 33 5d 2c 20 26 69 50 65 72 73 69  objv[3], &iPersi
8fe0: 73 74 29 0a 20 20 20 20 20 20 20 20 29 7b 0a 20  st).        ){. 
8ff0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
9000: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
9010: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 70 54 65     }.        pTe
9020: 73 74 2d 3e 65 46 61 75 6c 74 20 3d 20 69 50 65  st->eFault = iPe
9030: 72 73 69 73 74 3f 46 41 55 4c 54 5f 49 4e 4a 45  rsist?FAULT_INJE
9040: 43 54 5f 50 45 52 53 49 53 54 45 4e 54 3a 46 41  CT_PERSISTENT:FA
9050: 55 4c 54 5f 49 4e 4a 45 43 54 5f 54 52 41 4e 53  ULT_INJECT_TRANS
9060: 49 45 4e 54 3b 0a 20 20 20 20 20 20 20 20 70 54  IENT;.        pT
9070: 65 73 74 2d 3e 69 43 6e 74 20 3d 20 69 43 6e 74  est->iCnt = iCnt
9080: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66  ;.      }else if
9090: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20  ( objc!=2 ){.   
90a0: 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75       Tcl_WrongNu
90b0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c  mArgs(interp, 2,
90c0: 20 6f 62 6a 76 2c 20 22 3f 43 4e 54 20 50 45 52   objv, "?CNT PER
90d0: 53 49 53 54 3f 22 29 3b 0a 20 20 20 20 20 20 20  SIST?");.       
90e0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
90f0: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  R;.      }.     
9100: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
9110: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65  t(interp, Tcl_Ne
9120: 77 49 6e 74 4f 62 6a 28 69 52 65 74 29 29 3b 0a  wIntObj(iRet));.
9130: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
9140: 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d 44   }..    case CMD
9150: 5f 44 45 4c 45 54 45 3a 20 7b 0a 20 20 20 20 20  _DELETE: {.     
9160: 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61   Tcl_DeleteComma
9170: 6e 64 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47  nd(interp, Tcl_G
9180: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d  etString(objv[0]
9190: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  ));.      break;
91a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
91b0: 20 43 4d 44 5f 44 45 56 43 48 41 52 3a 20 7b 0a   CMD_DEVCHAR: {.
91c0: 20 20 20 20 20 20 73 74 72 75 63 74 20 44 65 76        struct Dev
91d0: 69 63 65 46 6c 61 67 20 7b 0a 20 20 20 20 20 20  iceFlag {.      
91e0: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20    char *zName;. 
91f0: 20 20 20 20 20 20 20 69 6e 74 20 69 56 61 6c 75         int iValu
9200: 65 3b 0a 20 20 20 20 20 20 7d 20 61 46 6c 61 67  e;.      } aFlag
9210: 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20 20 20 7b  [] = {.        {
9220: 20 22 64 65 66 61 75 6c 74 22 2c 20 20 20 20 20   "default",     
9230: 20 20 20 20 20 20 20 20 20 20 2d 31 20 7d 2c 0a            -1 },.
9240: 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69          { "atomi
9250: 63 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  c",             
9260: 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f     SQLITE_IOCAP_
9270: 41 54 4f 4d 49 43 20 20 20 20 20 20 20 20 20 20  ATOMIC          
9280: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20        },.       
9290: 20 7b 20 22 61 74 6f 6d 69 63 35 31 32 22 2c 20   { "atomic512", 
92a0: 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49              SQLI
92b0: 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 35  TE_IOCAP_ATOMIC5
92c0: 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 7d  12             }
92d0: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f  ,.        { "ato
92e0: 6d 69 63 31 6b 22 2c 20 20 20 20 20 20 20 20 20  mic1k",         
92f0: 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41       SQLITE_IOCA
9300: 50 5f 41 54 4f 4d 49 43 31 4b 20 20 20 20 20 20  P_ATOMIC1K      
9310: 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20          },.     
9320: 20 20 20 7b 20 22 61 74 6f 6d 69 63 32 6b 22 2c     { "atomic2k",
9330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51                SQ
9340: 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49  LITE_IOCAP_ATOMI
9350: 43 32 4b 20 20 20 20 20 20 20 20 20 20 20 20 20  C2K             
9360: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61   },.        { "a
9370: 74 6f 6d 69 63 34 6b 22 2c 20 20 20 20 20 20 20  tomic4k",       
9380: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f         SQLITE_IO
9390: 43 41 50 5f 41 54 4f 4d 49 43 34 4b 20 20 20 20  CAP_ATOMIC4K    
93a0: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20            },.   
93b0: 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 38 6b       { "atomic8k
93c0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
93d0: 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f  SQLITE_IOCAP_ATO
93e0: 4d 49 43 38 4b 20 20 20 20 20 20 20 20 20 20 20  MIC8K           
93f0: 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20     },.        { 
9400: 22 61 74 6f 6d 69 63 31 36 6b 22 2c 20 20 20 20  "atomic16k",    
9410: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
9420: 49 4f 43 41 50 5f 41 54 4f 4d 49 43 31 36 4b 20  IOCAP_ATOMIC16K 
9430: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
9440: 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63         { "atomic
9450: 33 32 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20  32k",           
9460: 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41    SQLITE_IOCAP_A
9470: 54 4f 4d 49 43 33 32 4b 20 20 20 20 20 20 20 20  TOMIC32K        
9480: 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20       },.        
9490: 7b 20 22 61 74 6f 6d 69 63 36 34 6b 22 2c 20 20  { "atomic64k",  
94a0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54             SQLIT
94b0: 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 36 34  E_IOCAP_ATOMIC64
94c0: 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c  K             },
94d0: 0a 20 20 20 20 20 20 20 20 7b 20 22 73 65 71 75  .        { "sequ
94e0: 65 6e 74 69 61 6c 22 2c 20 20 20 20 20 20 20 20  ential",        
94f0: 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50      SQLITE_IOCAP
9500: 5f 53 45 51 55 45 4e 54 49 41 4c 20 20 20 20 20  _SEQUENTIAL     
9510: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20         },.      
9520: 20 20 7b 20 22 73 61 66 65 5f 61 70 70 65 6e 64    { "safe_append
9530: 22 2c 20 20 20 20 20 20 20 20 20 20 20 53 51 4c  ",           SQL
9540: 49 54 45 5f 49 4f 43 41 50 5f 53 41 46 45 5f 41  ITE_IOCAP_SAFE_A
9550: 50 50 45 4e 44 20 20 20 20 20 20 20 20 20 20 20  PPEND           
9560: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 75 6e  },.        { "un
9570: 64 65 6c 65 74 61 62 6c 65 5f 77 68 65 6e 5f 6f  deletable_when_o
9580: 70 65 6e 22 2c 20 53 51 4c 49 54 45 5f 49 4f 43  pen", SQLITE_IOC
9590: 41 50 5f 55 4e 44 45 4c 45 54 41 42 4c 45 5f 57  AP_UNDELETABLE_W
95a0: 48 45 4e 5f 4f 50 45 4e 20 7d 2c 0a 20 20 20 20  HEN_OPEN },.    
95b0: 20 20 20 20 7b 20 22 70 6f 77 65 72 73 61 66 65      { "powersafe
95c0: 5f 6f 76 65 72 77 72 69 74 65 22 2c 20 20 20 53  _overwrite",   S
95d0: 51 4c 49 54 45 5f 49 4f 43 41 50 5f 50 4f 57 45  QLITE_IOCAP_POWE
95e0: 52 53 41 46 45 5f 4f 56 45 52 57 52 49 54 45 20  RSAFE_OVERWRITE 
95f0: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22    },.        { "
9600: 69 6d 6d 75 74 61 62 6c 65 22 2c 20 20 20 20 20  immutable",     
9610: 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49          SQLITE_I
9620: 4f 43 41 50 5f 49 4d 4d 55 54 41 42 4c 45 20 20  OCAP_IMMUTABLE  
9630: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20             },.  
9640: 20 20 20 20 20 20 7b 20 30 2c 20 30 20 7d 0a 20        { 0, 0 }. 
9650: 20 20 20 20 20 7d 3b 0a 20 20 20 20 20 20 54 63       };.      Tc
9660: 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b 0a 20 20 20  l_Obj *pRet;.   
9670: 20 20 20 69 6e 74 20 69 46 6c 61 67 3b 0a 0a 20     int iFlag;.. 
9680: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3e 33 20       if( objc>3 
9690: 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57  ){.        Tcl_W
96a0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
96b0: 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 41  rp, 2, objv, "?A
96c0: 54 54 52 2d 4c 49 53 54 3f 22 29 3b 0a 20 20 20  TTR-LIST?");.   
96d0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
96e0: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
96f0: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33       if( objc==3
9700: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20   ){.        int 
9710: 6a 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69  j;.        int i
9720: 4e 65 77 20 3d 20 30 3b 0a 20 20 20 20 20 20 20  New = 0;.       
9730: 20 54 63 6c 5f 4f 62 6a 20 2a 2a 66 6c 61 67 73   Tcl_Obj **flags
9740: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69 6e   = 0;.        in
9750: 74 20 6e 46 6c 61 67 73 20 3d 20 30 3b 0a 0a 20  t nFlags = 0;.. 
9760: 20 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 4c         if( Tcl_L
9770: 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74  istObjGetElement
9780: 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32  s(interp, objv[2
9790: 5d 2c 20 26 6e 46 6c 61 67 73 2c 20 26 66 6c 61  ], &nFlags, &fla
97a0: 67 73 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20  gs) ){.         
97b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
97c0: 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20  R;.        }..  
97d0: 20 20 20 20 20 20 66 6f 72 28 6a 3d 30 3b 20 6a        for(j=0; j
97e0: 3c 6e 46 6c 61 67 73 3b 20 6a 2b 2b 29 7b 0a 20  <nFlags; j++){. 
97f0: 20 20 20 20 20 20 20 20 20 69 6e 74 20 69 64 78           int idx
9800: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20   = 0;.          
9810: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 64 65 78  if( Tcl_GetIndex
9820: 46 72 6f 6d 4f 62 6a 53 74 72 75 63 74 28 69 6e  FromObjStruct(in
9830: 74 65 72 70 2c 20 66 6c 61 67 73 5b 6a 5d 2c 20  terp, flags[j], 
9840: 61 46 6c 61 67 2c 20 0a 20 20 20 20 20 20 20 20  aFlag, .        
9850: 20 20 20 20 20 20 20 20 73 69 7a 65 6f 66 28 61          sizeof(a
9860: 46 6c 61 67 5b 30 5d 29 2c 20 22 66 6c 61 67 22  Flag[0]), "flag"
9870: 2c 20 30 2c 20 26 69 64 78 29 20 0a 20 20 20 20  , 0, &idx) .    
9880: 20 20 20 20 20 20 29 7b 0a 20 20 20 20 20 20 20        ){.       
9890: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
98a0: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 20  ERROR;.         
98b0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 66 28   }.          if(
98c0: 20 61 46 6c 61 67 5b 69 64 78 5d 2e 69 56 61 6c   aFlag[idx].iVal
98d0: 75 65 3c 30 20 26 26 20 6e 46 6c 61 67 73 3e 31  ue<0 && nFlags>1
98e0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20   ){.            
98f0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
9900: 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 66 6c  (interp, "bad fl
9910: 61 67 73 3a 20 22 2c 20 54 63 6c 5f 47 65 74 53  ags: ", Tcl_GetS
9920: 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c 20  tring(objv[2]), 
9930: 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  0);.            
9940: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
9950: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
9960: 20 20 20 20 20 20 20 20 69 4e 65 77 20 7c 3d 20          iNew |= 
9970: 61 46 6c 61 67 5b 69 64 78 5d 2e 69 56 61 6c 75  aFlag[idx].iValu
9980: 65 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20  e;.        }..  
9990: 20 20 20 20 20 20 70 2d 3e 69 44 65 76 63 68 61        p->iDevcha
99a0: 72 20 3d 20 69 4e 65 77 7c 20 30 78 31 30 30 30  r = iNew| 0x1000
99b0: 30 30 30 30 3b 0a 20 20 20 20 20 20 7d 0a 0a 20  0000;.      }.. 
99c0: 20 20 20 20 20 70 52 65 74 20 3d 20 54 63 6c 5f       pRet = Tcl_
99d0: 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 20 20  NewObj();.      
99e0: 66 6f 72 28 69 46 6c 61 67 3d 30 3b 20 69 46 6c  for(iFlag=0; iFl
99f0: 61 67 3c 73 69 7a 65 6f 66 28 61 46 6c 61 67 29  ag<sizeof(aFlag)
9a00: 2f 73 69 7a 65 6f 66 28 61 46 6c 61 67 5b 30 5d  /sizeof(aFlag[0]
9a10: 29 3b 20 69 46 6c 61 67 2b 2b 29 7b 0a 20 20 20  ); iFlag++){.   
9a20: 20 20 20 20 20 69 66 28 20 70 2d 3e 69 44 65 76       if( p->iDev
9a30: 63 68 61 72 20 26 20 61 46 6c 61 67 5b 69 46 6c  char & aFlag[iFl
9a40: 61 67 5d 2e 69 56 61 6c 75 65 20 29 7b 0a 20 20  ag].iValue ){.  
9a50: 20 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74          Tcl_List
9a60: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
9a70: 28 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  (.              
9a80: 69 6e 74 65 72 70 2c 20 70 52 65 74 2c 20 54 63  interp, pRet, Tc
9a90: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 61  l_NewStringObj(a
9aa0: 46 6c 61 67 5b 69 46 6c 61 67 5d 2e 7a 4e 61 6d  Flag[iFlag].zNam
9ab0: 65 2c 20 2d 31 29 0a 20 20 20 20 20 20 20 20 20  e, -1).         
9ac0: 20 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20   );.        }.  
9ad0: 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63 6c 5f      }.      Tcl_
9ae0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
9af0: 65 72 70 2c 20 70 52 65 74 29 3b 0a 0a 20 20 20  erp, pRet);..   
9b00: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
9b10: 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 53 45  .    case CMD_SE
9b20: 43 54 4f 52 53 49 5a 45 3a 20 7b 0a 20 20 20 20  CTORSIZE: {.    
9b30: 20 20 69 66 28 20 6f 62 6a 63 3e 33 20 29 7b 0a    if( objc>3 ){.
9b40: 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e          Tcl_Wron
9b50: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
9b60: 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 56 41 4c 55   2, objv, "?VALU
9b70: 45 3f 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65  E?");.        re
9b80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
9b90: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
9ba0: 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20  ( objc==3 ){.   
9bb0: 20 20 20 20 20 69 6e 74 20 69 4e 65 77 20 3d 20       int iNew = 
9bc0: 30 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 54  0;.        if( T
9bd0: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a  cl_GetIntFromObj
9be0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
9bf0: 2c 20 26 69 4e 65 77 29 20 29 7b 0a 20 20 20 20  , &iNew) ){.    
9c00: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
9c10: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20  _ERROR;.        
9c20: 7d 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 53 65  }.        p->iSe
9c30: 63 74 6f 72 73 69 7a 65 20 3d 20 69 4e 65 77 3b  ctorsize = iNew;
9c40: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 54  .      }.      T
9c50: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
9c60: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49  interp, Tcl_NewI
9c70: 6e 74 4f 62 6a 28 70 2d 3e 69 53 65 63 74 6f 72  ntObj(p->iSector
9c80: 73 69 7a 65 29 29 3b 0a 20 20 20 20 20 20 62 72  size));.      br
9c90: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  eak;.    }.  }..
9ca0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
9cb0: 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .}..static void 
9cc0: 53 51 4c 49 54 45 5f 54 43 4c 41 50 49 20 74 65  SQLITE_TCLAPI te
9cd0: 73 74 76 66 73 5f 6f 62 6a 5f 64 65 6c 28 43 6c  stvfs_obj_del(Cl
9ce0: 69 65 6e 74 44 61 74 61 20 63 64 29 7b 0a 20 20  ientData cd){.  
9cf0: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
9d00: 73 74 76 66 73 20 2a 29 63 64 3b 0a 20 20 69 66  stvfs *)cd;.  if
9d10: 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29 20 54  ( p->pScript ) T
9d20: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28  cl_DecrRefCount(
9d30: 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 73  p->pScript);.  s
9d40: 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65 67  qlite3_vfs_unreg
9d50: 69 73 74 65 72 28 70 2d 3e 70 56 66 73 29 3b 0a  ister(p->pVfs);.
9d60: 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a    ckfree((char *
9d70: 29 70 2d 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66  )p->pVfs);.  ckf
9d80: 72 65 65 28 28 63 68 61 72 20 2a 29 70 29 3b 0a  ree((char *)p);.
9d90: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20  }../*.** Usage: 
9da0: 20 74 65 73 74 76 66 73 20 56 46 53 4e 41 4d 45   testvfs VFSNAME
9db0: 20 3f 53 57 49 54 43 48 45 53 3f 0a 2a 2a 0a 2a   ?SWITCHES?.**.*
9dc0: 2a 20 53 77 69 74 63 68 65 73 20 61 72 65 3a 0a  * Switches are:.
9dd0: 2a 2a 0a 2a 2a 20 20 20 2d 6e 6f 73 68 6d 20 20  **.**   -noshm  
9de0: 20 42 4f 4f 4c 45 41 4e 20 20 20 20 20 20 20 20   BOOLEAN        
9df0: 20 20 20 20 20 28 54 72 75 65 20 74 6f 20 6f 6d       (True to om
9e00: 69 74 20 73 68 6d 20 6d 65 74 68 6f 64 73 2e 20  it shm methods. 
9e10: 44 65 66 61 75 6c 74 20 66 61 6c 73 65 29 0a 2a  Default false).*
9e20: 2a 20 20 20 2d 64 65 66 61 75 6c 74 20 42 4f 4f  *   -default BOO
9e30: 4c 45 41 4e 20 20 20 20 20 20 20 20 20 20 20 20  LEAN            
9e40: 20 28 54 72 75 65 20 74 6f 20 6d 61 6b 65 20 74   (True to make t
9e50: 68 65 20 76 66 73 20 64 65 66 61 75 6c 74 2e 20  he vfs default. 
9e60: 44 65 66 61 75 6c 74 20 66 61 6c 73 65 29 0a 2a  Default false).*
9e70: 2a 0a 2a 2a 20 54 68 69 73 20 63 6f 6d 6d 61 6e  *.** This comman
9e80: 64 20 63 72 65 61 74 65 73 20 74 77 6f 20 74 68  d creates two th
9e90: 69 6e 67 73 20 77 68 65 6e 20 69 74 20 69 73 20  ings when it is 
9ea0: 69 6e 76 6f 6b 65 64 3a 20 61 6e 20 53 51 4c 69  invoked: an SQLi
9eb0: 74 65 20 56 46 53 2c 20 61 6e 64 0a 2a 2a 20 61  te VFS, and.** a
9ec0: 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 2e 20 42 6f   Tcl command. Bo
9ed0: 74 68 20 61 72 65 20 6e 61 6d 65 64 20 56 46 53  th are named VFS
9ee0: 4e 41 4d 45 2e 20 54 68 65 20 56 46 53 20 69 73  NAME. The VFS is
9ef0: 20 69 6e 73 74 61 6c 6c 65 64 2e 20 49 74 20 69   installed. It i
9f00: 73 20 6e 6f 74 0a 2a 2a 20 69 6e 73 74 61 6c 6c  s not.** install
9f10: 65 64 20 61 73 20 74 68 65 20 64 65 66 61 75 6c  ed as the defaul
9f20: 74 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 54 68 65  t VFS..**.** The
9f30: 20 56 46 53 20 70 61 73 73 65 73 20 61 6c 6c 20   VFS passes all 
9f40: 66 69 6c 65 20 49 2f 4f 20 63 61 6c 6c 73 20 74  file I/O calls t
9f50: 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 75 6e  hrough to the un
9f60: 64 65 72 6c 79 69 6e 67 20 56 46 53 2e 0a 2a 2a  derlying VFS..**
9f70: 0a 2a 2a 20 57 68 65 6e 65 76 65 72 20 74 68 65  .** Whenever the
9f80: 20 78 53 68 6d 4d 61 70 20 6d 65 74 68 6f 64 20   xShmMap method 
9f90: 6f 66 20 74 68 65 20 56 46 53 0a 2a 2a 20 69 73  of the VFS.** is
9fa0: 20 69 6e 76 6f 6b 65 64 2c 20 74 68 65 20 53 43   invoked, the SC
9fb0: 52 49 50 54 20 69 73 20 65 78 65 63 75 74 65 64  RIPT is executed
9fc0: 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a   as follows:.**.
9fd0: 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53 68 6d  **   SCRIPT xShm
9fe0: 4d 61 70 20 20 20 20 46 49 4c 45 4e 41 4d 45 20  Map    FILENAME 
9ff0: 49 44 0a 2a 2a 0a 2a 2a 20 54 68 65 20 76 61 6c  ID.**.** The val
a000: 75 65 20 72 65 74 75 72 6e 65 64 20 62 79 20 74  ue returned by t
a010: 68 65 20 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66  he invocation of
a020: 20 53 43 52 49 50 54 20 61 62 6f 76 65 20 69 73   SCRIPT above is
a030: 20 69 6e 74 65 72 70 72 65 74 65 64 20 61 73 0a   interpreted as.
a040: 2a 2a 20 61 6e 20 53 51 4c 69 74 65 20 65 72 72  ** an SQLite err
a050: 6f 72 20 63 6f 64 65 20 61 6e 64 20 72 65 74 75  or code and retu
a060: 72 6e 65 64 20 74 6f 20 53 51 4c 69 74 65 2e 20  rned to SQLite. 
a070: 45 69 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 69  Either a symboli
a080: 63 20 0a 2a 2a 20 22 53 51 4c 49 54 45 5f 4f 4b  c .** "SQLITE_OK
a090: 22 20 6f 72 20 6e 75 6d 65 72 69 63 20 22 30 22  " or numeric "0"
a0a0: 20 76 61 6c 75 65 20 6d 61 79 20 62 65 20 72 65   value may be re
a0b0: 74 75 72 6e 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68  turned..**.** Th
a0c0: 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68  e contents of th
a0d0: 65 20 73 68 61 72 65 64 2d 6d 65 6d 6f 72 79 20  e shared-memory 
a0e0: 62 75 66 66 65 72 20 61 73 73 6f 63 69 61 74 65  buffer associate
a0f0: 64 20 77 69 74 68 20 61 20 67 69 76 65 6e 20 66  d with a given f
a100: 69 6c 65 0a 2a 2a 20 6d 61 79 20 62 65 20 72 65  ile.** may be re
a110: 61 64 20 61 6e 64 20 73 65 74 20 75 73 69 6e 67  ad and set using
a120: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63   the following c
a130: 6f 6d 6d 61 6e 64 3a 0a 2a 2a 0a 2a 2a 20 20 20  ommand:.**.**   
a140: 56 46 53 4e 41 4d 45 20 73 68 6d 20 46 49 4c 45  VFSNAME shm FILE
a150: 4e 41 4d 45 20 3f 4e 45 57 56 41 4c 55 45 3f 0a  NAME ?NEWVALUE?.
a160: 2a 2a 0a 2a 2a 20 57 68 65 6e 20 74 68 65 20 78  **.** When the x
a170: 53 68 6d 4c 6f 63 6b 20 6d 65 74 68 6f 64 20 69  ShmLock method i
a180: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 53 51 4c  s invoked by SQL
a190: 69 74 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69  ite, the followi
a1a0: 6e 67 20 73 63 72 69 70 74 20 69 73 0a 2a 2a 20  ng script is.** 
a1b0: 72 75 6e 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 43 52  run:.**.**   SCR
a1c0: 49 50 54 20 78 53 68 6d 4c 6f 63 6b 20 20 20 20  IPT xShmLock    
a1d0: 46 49 4c 45 4e 41 4d 45 20 49 44 20 4c 4f 43 4b  FILENAME ID LOCK
a1e0: 0a 2a 2a 0a 2a 2a 20 77 68 65 72 65 20 4c 4f 43  .**.** where LOC
a1f0: 4b 20 69 73 20 6f 66 20 74 68 65 20 66 6f 72 6d  K is of the form
a200: 20 22 4f 46 46 53 45 54 20 4e 42 59 54 45 20 6c   "OFFSET NBYTE l
a210: 6f 63 6b 2f 75 6e 6c 6f 63 6b 20 73 68 61 72 65  ock/unlock share
a220: 64 2f 65 78 63 6c 75 73 69 76 65 22 0a 2a 2f 0a  d/exclusive".*/.
a230: 73 74 61 74 69 63 20 69 6e 74 20 53 51 4c 49 54  static int SQLIT
a240: 45 5f 54 43 4c 41 50 49 20 74 65 73 74 76 66 73  E_TCLAPI testvfs
a250: 5f 63 6d 64 28 0a 20 20 43 6c 69 65 6e 74 44 61  _cmd(.  ClientDa
a260: 74 61 20 63 64 2c 0a 20 20 54 63 6c 5f 49 6e 74  ta cd,.  Tcl_Int
a270: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69  erp *interp,.  i
a280: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f  nt objc,.  Tcl_O
a290: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
a2a0: 0a 29 7b 0a 20 20 73 74 61 74 69 63 20 73 71 6c  .){.  static sql
a2b0: 69 74 65 33 5f 76 66 73 20 74 76 66 73 5f 76 66  ite3_vfs tvfs_vf
a2c0: 73 20 3d 20 7b 0a 20 20 20 20 33 2c 20 20 20 20  s = {.    3,    
a2d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a2e0: 20 20 20 20 20 20 20 20 2f 2a 20 69 56 65 72 73          /* iVers
a2f0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ion */.    0,   
a300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a310: 20 20 20 20 20 20 20 20 20 2f 2a 20 73 7a 4f 73           /* szOs
a320: 46 69 6c 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20  File */.    0,  
a330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a340: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 6d 78 50            /* mxP
a350: 61 74 68 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 30  athname */.    0
a360: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
a370: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a380: 70 4e 65 78 74 20 2a 2f 0a 20 20 20 20 30 2c 20  pNext */.    0, 
a390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a3a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 7a 4e             /* zN
a3b0: 61 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ame */.    0,   
a3c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a3d0: 20 20 20 20 20 20 20 20 20 2f 2a 20 70 41 70 70           /* pApp
a3e0: 44 61 74 61 20 2a 2f 0a 20 20 20 20 74 76 66 73  Data */.    tvfs
a3f0: 4f 70 65 6e 2c 20 20 20 20 20 20 20 20 20 20 20  Open,           
a400: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 4f 70            /* xOp
a410: 65 6e 20 2a 2f 0a 20 20 20 20 74 76 66 73 44 65  en */.    tvfsDe
a420: 6c 65 74 65 2c 20 20 20 20 20 20 20 20 20 20 20  lete,           
a430: 20 20 20 20 20 20 20 20 2f 2a 20 78 44 65 6c 65          /* xDele
a440: 74 65 20 2a 2f 0a 20 20 20 20 74 76 66 73 41 63  te */.    tvfsAc
a450: 63 65 73 73 2c 20 20 20 20 20 20 20 20 20 20 20  cess,           
a460: 20 20 20 20 20 20 20 20 2f 2a 20 78 41 63 63 65          /* xAcce
a470: 73 73 20 2a 2f 0a 20 20 20 20 74 76 66 73 46 75  ss */.    tvfsFu
a480: 6c 6c 50 61 74 68 6e 61 6d 65 2c 20 20 20 20 20  llPathname,     
a490: 20 20 20 20 20 20 20 20 2f 2a 20 78 46 75 6c 6c          /* xFull
a4a0: 50 61 74 68 6e 61 6d 65 20 2a 2f 0a 23 69 66 6e  Pathname */.#ifn
a4b0: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
a4c0: 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 20  LOAD_EXTENSION. 
a4d0: 20 20 20 74 76 66 73 44 6c 4f 70 65 6e 2c 20 20     tvfsDlOpen,  
a4e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a4f0: 20 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f 0a 20   /* xDlOpen */. 
a500: 20 20 20 74 76 66 73 44 6c 45 72 72 6f 72 2c 20     tvfsDlError, 
a510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a520: 20 2f 2a 20 78 44 6c 45 72 72 6f 72 20 2a 2f 0a   /* xDlError */.
a530: 20 20 20 20 74 76 66 73 44 6c 53 79 6d 2c 20 20      tvfsDlSym,  
a540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a550: 20 20 2f 2a 20 78 44 6c 53 79 6d 20 2a 2f 0a 20    /* xDlSym */. 
a560: 20 20 20 74 76 66 73 44 6c 43 6c 6f 73 65 2c 20     tvfsDlClose, 
a570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a580: 20 2f 2a 20 78 44 6c 43 6c 6f 73 65 20 2a 2f 0a   /* xDlClose */.
a590: 23 65 6c 73 65 0a 20 20 20 20 30 2c 20 20 20 20  #else.    0,    
a5a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a5b0: 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 4f 70          /* xDlOp
a5c0: 65 6e 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  en */.    0,    
a5d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a5e0: 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 45 72          /* xDlEr
a5f0: 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ror */.    0,   
a600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a610: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 53           /* xDlS
a620: 79 6d 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  ym */.    0,    
a630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a640: 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 43 6c          /* xDlCl
a650: 6f 73 65 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a  ose */.#endif /*
a660: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41   SQLITE_OMIT_LOA
a670: 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 20  D_EXTENSION */. 
a680: 20 20 20 74 76 66 73 52 61 6e 64 6f 6d 6e 65 73     tvfsRandomnes
a690: 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s,              
a6a0: 20 2f 2a 20 78 52 61 6e 64 6f 6d 6e 65 73 73 20   /* xRandomness 
a6b0: 2a 2f 0a 20 20 20 20 74 76 66 73 53 6c 65 65 70  */.    tvfsSleep
a6c0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
a6d0: 20 20 20 20 20 2f 2a 20 78 53 6c 65 65 70 20 2a       /* xSleep *
a6e0: 2f 0a 20 20 20 20 74 76 66 73 43 75 72 72 65 6e  /.    tvfsCurren
a6f0: 74 54 69 6d 65 2c 20 20 20 20 20 20 20 20 20 20  tTime,          
a700: 20 20 20 20 2f 2a 20 78 43 75 72 72 65 6e 74 54      /* xCurrentT
a710: 69 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ime */.    0,   
a720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a730: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 47 65 74           /* xGet
a740: 4c 61 73 74 45 72 72 6f 72 20 2a 2f 0a 20 20 20  LastError */.   
a750: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   0,             
a760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
a770: 2a 20 78 43 75 72 72 65 6e 74 54 69 6d 65 49 6e  * xCurrentTimeIn
a780: 74 36 34 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  t64 */.    0,   
a790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a7a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53 65 74           /* xSet
a7b0: 53 79 73 74 65 6d 43 61 6c 6c 20 2a 2f 0a 20 20  SystemCall */.  
a7c0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
a7d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a7e0: 2f 2a 20 78 47 65 74 53 79 73 74 65 6d 43 61 6c  /* xGetSystemCal
a7f0: 6c 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  l */.    0,     
a800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a810: 20 20 20 20 20 20 20 2f 2a 20 78 4e 65 78 74 53         /* xNextS
a820: 79 73 74 65 6d 43 61 6c 6c 20 2a 2f 0a 20 20 7d  ystemCall */.  }
a830: 3b 0a 0a 20 20 54 65 73 74 76 66 73 20 2a 70 3b  ;..  Testvfs *p;
a840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a850: 20 20 20 20 20 2f 2a 20 4e 65 77 20 6f 62 6a 65       /* New obje
a860: 63 74 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  ct */.  sqlite3_
a870: 76 66 73 20 2a 70 56 66 73 3b 20 20 20 20 20 20  vfs *pVfs;      
a880: 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 77 20 56          /* New V
a890: 46 53 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 56  FS */.  char *zV
a8a0: 66 73 3b 0a 20 20 69 6e 74 20 6e 42 79 74 65 3b  fs;.  int nByte;
a8b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a8c0: 20 20 20 20 20 20 2f 2a 20 42 79 74 65 73 20 6f        /* Bytes o
a8d0: 66 20 73 70 61 63 65 20 74 6f 20 61 6c 6c 6f 63  f space to alloc
a8e0: 61 74 65 20 61 74 20 70 20 2a 2f 0a 0a 20 20 69  ate at p */..  i
a8f0: 6e 74 20 69 3b 0a 20 20 69 6e 74 20 69 73 4e 6f  nt i;.  int isNo
a900: 73 68 6d 20 3d 20 30 3b 20 20 20 20 20 20 20 20  shm = 0;        
a910: 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20          /* True 
a920: 69 66 20 2d 6e 6f 73 68 6d 20 69 73 20 70 61 73  if -noshm is pas
a930: 73 65 64 20 2a 2f 0a 20 20 69 6e 74 20 69 73 46  sed */.  int isF
a940: 75 6c 6c 73 68 6d 20 3d 20 30 3b 20 20 20 20 20  ullshm = 0;     
a950: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65           /* True
a960: 20 69 66 20 2d 66 75 6c 6c 73 68 6d 20 69 73 20   if -fullshm is 
a970: 70 61 73 73 65 64 20 2a 2f 0a 20 20 69 6e 74 20  passed */.  int 
a980: 69 73 44 65 66 61 75 6c 74 20 3d 20 30 3b 20 20  isDefault = 0;  
a990: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
a9a0: 72 75 65 20 69 66 20 2d 64 65 66 61 75 6c 74 20  rue if -default 
a9b0: 69 73 20 70 61 73 73 65 64 20 2a 2f 0a 20 20 69  is passed */.  i
a9c0: 6e 74 20 73 7a 4f 73 46 69 6c 65 20 3d 20 30 3b  nt szOsFile = 0;
a9d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
a9e0: 2a 20 56 61 6c 75 65 20 70 61 73 73 65 64 20 74  * Value passed t
a9f0: 6f 20 2d 73 7a 6f 73 66 69 6c 65 20 2a 2f 0a 20  o -szosfile */. 
aa00: 20 69 6e 74 20 6d 78 50 61 74 68 6e 61 6d 65 20   int mxPathname 
aa10: 3d 20 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20  = -1;           
aa20: 20 2f 2a 20 56 61 6c 75 65 20 70 61 73 73 65 64   /* Value passed
aa30: 20 74 6f 20 2d 6d 78 70 61 74 68 6e 61 6d 65 20   to -mxpathname 
aa40: 2a 2f 0a 20 20 69 6e 74 20 69 56 65 72 73 69 6f  */.  int iVersio
aa50: 6e 20 3d 20 33 3b 20 20 20 20 20 20 20 20 20 20  n = 3;          
aa60: 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 70 61       /* Value pa
aa70: 73 73 65 64 20 74 6f 20 2d 69 76 65 72 73 69 6f  ssed to -iversio
aa80: 6e 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63  n */..  if( objc
aa90: 3c 32 20 7c 7c 20 30 21 3d 28 6f 62 6a 63 25 32  <2 || 0!=(objc%2
aaa0: 29 20 29 20 67 6f 74 6f 20 62 61 64 5f 61 72 67  ) ) goto bad_arg
aab0: 73 3b 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c  s;.  for(i=2; i<
aac0: 6f 62 6a 63 3b 20 69 20 2b 3d 20 32 29 7b 0a 20  objc; i += 2){. 
aad0: 20 20 20 69 6e 74 20 6e 53 77 69 74 63 68 3b 0a     int nSwitch;.
aae0: 20 20 20 20 63 68 61 72 20 2a 7a 53 77 69 74 63      char *zSwitc
aaf0: 68 3b 0a 20 20 20 20 7a 53 77 69 74 63 68 20 3d  h;.    zSwitch =
ab00: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72   Tcl_GetStringFr
ab10: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 5d 2c 20 26  omObj(objv[i], &
ab20: 6e 53 77 69 74 63 68 29 3b 20 0a 0a 20 20 20 20  nSwitch); ..    
ab30: 69 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26  if( nSwitch>2 &&
ab40: 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 6e 6f   0==strncmp("-no
ab50: 73 68 6d 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e  shm", zSwitch, n
ab60: 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20  Switch) ){.     
ab70: 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c   if( Tcl_GetBool
ab80: 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  eanFromObj(inter
ab90: 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69  p, objv[i+1], &i
aba0: 73 4e 6f 73 68 6d 29 20 29 7b 0a 20 20 20 20 20  sNoshm) ){.     
abb0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
abc0: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
abd0: 20 20 20 69 66 28 20 69 73 4e 6f 73 68 6d 20 29     if( isNoshm )
abe0: 20 69 73 46 75 6c 6c 73 68 6d 20 3d 20 30 3b 0a   isFullshm = 0;.
abf0: 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69      }.    else i
ac00: 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20  f( nSwitch>2 && 
ac10: 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 64 65 66  0==strncmp("-def
ac20: 61 75 6c 74 22 2c 20 7a 53 77 69 74 63 68 2c 20  ault", zSwitch, 
ac30: 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20  nSwitch) ){.    
ac40: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f    if( Tcl_GetBoo
ac50: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65  leanFromObj(inte
ac60: 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26  rp, objv[i+1], &
ac70: 69 73 44 65 66 61 75 6c 74 29 20 29 7b 0a 20 20  isDefault) ){.  
ac80: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
ac90: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
aca0: 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69      }.    else i
acb0: 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20  f( nSwitch>2 && 
acc0: 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 73 7a 6f  0==strncmp("-szo
acd0: 73 66 69 6c 65 22 2c 20 7a 53 77 69 74 63 68 2c  sfile", zSwitch,
ace0: 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20   nSwitch) ){.   
acf0: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e     if( Tcl_GetIn
ad00: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
ad10: 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 73 7a 4f   objv[i+1], &szO
ad20: 73 46 69 6c 65 29 20 29 7b 0a 20 20 20 20 20 20  sFile) ){.      
ad30: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
ad40: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
ad50: 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e  }.    else if( n
ad60: 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73  Switch>2 && 0==s
ad70: 74 72 6e 63 6d 70 28 22 2d 6d 78 70 61 74 68 6e  trncmp("-mxpathn
ad80: 61 6d 65 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e  ame", zSwitch, n
ad90: 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20  Switch) ){.     
ada0: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46   if( Tcl_GetIntF
adb0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
adc0: 62 6a 76 5b 69 2b 31 5d 2c 20 26 6d 78 50 61 74  bjv[i+1], &mxPat
add0: 68 6e 61 6d 65 29 20 29 7b 0a 20 20 20 20 20 20  hname) ){.      
ade0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
adf0: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
ae00: 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e  }.    else if( n
ae10: 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73  Switch>2 && 0==s
ae20: 74 72 6e 63 6d 70 28 22 2d 69 76 65 72 73 69 6f  trncmp("-iversio
ae30: 6e 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77  n", zSwitch, nSw
ae40: 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69  itch) ){.      i
ae50: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f( Tcl_GetIntFro
ae60: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
ae70: 76 5b 69 2b 31 5d 2c 20 26 69 56 65 72 73 69 6f  v[i+1], &iVersio
ae80: 6e 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65  n) ){.        re
ae90: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
aea0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
aeb0: 20 20 65 6c 73 65 20 69 66 28 20 6e 53 77 69 74    else if( nSwit
aec0: 63 68 3e 32 20 26 26 20 30 3d 3d 73 74 72 6e 63  ch>2 && 0==strnc
aed0: 6d 70 28 22 2d 66 75 6c 6c 73 68 6d 22 2c 20 7a  mp("-fullshm", z
aee0: 53 77 69 74 63 68 2c 20 6e 53 77 69 74 63 68 29  Switch, nSwitch)
aef0: 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 54 63   ){.      if( Tc
af00: 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d  l_GetBooleanFrom
af10: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  Obj(interp, objv
af20: 5b 69 2b 31 5d 2c 20 26 69 73 46 75 6c 6c 73 68  [i+1], &isFullsh
af30: 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65  m) ){.        re
af40: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
af50: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
af60: 28 20 69 73 46 75 6c 6c 73 68 6d 20 29 20 69 73  ( isFullshm ) is
af70: 4e 6f 73 68 6d 20 3d 20 30 3b 0a 20 20 20 20 7d  Noshm = 0;.    }
af80: 0a 20 20 20 20 65 6c 73 65 7b 0a 20 20 20 20 20  .    else{.     
af90: 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a   goto bad_args;.
afa0: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 28      }.  }..  if(
afb0: 20 73 7a 4f 73 46 69 6c 65 3c 73 69 7a 65 6f 66   szOsFile<sizeof
afc0: 28 54 65 73 74 76 66 73 46 69 6c 65 29 20 29 7b  (TestvfsFile) ){
afd0: 0a 20 20 20 20 73 7a 4f 73 46 69 6c 65 20 3d 20  .    szOsFile = 
afe0: 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 46 69  sizeof(TestvfsFi
aff0: 6c 65 29 3b 0a 20 20 7d 0a 0a 20 20 7a 56 66 73  le);.  }..  zVfs
b000: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
b010: 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 6e 42 79  (objv[1]);.  nBy
b020: 74 65 20 3d 20 73 69 7a 65 6f 66 28 54 65 73 74  te = sizeof(Test
b030: 76 66 73 29 20 2b 20 28 69 6e 74 29 73 74 72 6c  vfs) + (int)strl
b040: 65 6e 28 7a 56 66 73 29 2b 31 3b 0a 20 20 70 20  en(zVfs)+1;.  p 
b050: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 63 6b 61  = (Testvfs *)cka
b060: 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20 6d  lloc(nByte);.  m
b070: 65 6d 73 65 74 28 70 2c 20 30 2c 20 6e 42 79 74  emset(p, 0, nByt
b080: 65 29 3b 0a 20 20 70 2d 3e 69 44 65 76 63 68 61  e);.  p->iDevcha
b090: 72 20 3d 20 2d 31 3b 0a 20 20 70 2d 3e 69 53 65  r = -1;.  p->iSe
b0a0: 63 74 6f 72 73 69 7a 65 20 3d 20 2d 31 3b 0a 0a  ctorsize = -1;..
b0b0: 20 20 2f 2a 20 43 72 65 61 74 65 20 74 68 65 20    /* Create the 
b0c0: 6e 65 77 20 6f 62 6a 65 63 74 20 63 6f 6d 6d 61  new object comma
b0d0: 6e 64 20 62 65 66 6f 72 65 20 71 75 65 72 79 69  nd before queryi
b0e0: 6e 67 20 53 51 4c 69 74 65 20 66 6f 72 20 61 20  ng SQLite for a 
b0f0: 64 65 66 61 75 6c 74 20 56 46 53 0a 20 20 2a 2a  default VFS.  **
b100: 20 74 6f 20 75 73 65 20 66 6f 72 20 27 72 65 61   to use for 'rea
b110: 6c 27 20 49 4f 20 6f 70 65 72 61 74 69 6f 6e 73  l' IO operations
b120: 2e 20 54 68 69 73 20 69 73 20 62 65 63 61 75 73  . This is becaus
b130: 65 20 63 72 65 61 74 69 6e 67 20 74 68 65 20 6e  e creating the n
b140: 65 77 20 56 46 53 0a 20 20 2a 2a 20 6d 61 79 20  ew VFS.  ** may 
b150: 64 65 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69  delete an existi
b160: 6e 67 20 5b 74 65 73 74 76 66 73 5d 20 56 46 53  ng [testvfs] VFS
b170: 20 6f 66 20 74 68 65 20 73 61 6d 65 20 6e 61 6d   of the same nam
b180: 65 2e 20 49 66 20 73 75 63 68 20 61 20 56 46 53  e. If such a VFS
b190: 0a 20 20 2a 2a 20 69 73 20 63 75 72 72 65 6e 74  .  ** is current
b1a0: 6c 79 20 74 68 65 20 64 65 66 61 75 6c 74 2c 20  ly the default, 
b1b0: 74 68 65 20 6e 65 77 20 5b 74 65 73 74 76 66 73  the new [testvfs
b1c0: 5d 20 6d 61 79 20 65 6e 64 20 75 70 20 63 61 6c  ] may end up cal
b1d0: 6c 69 6e 67 20 74 68 65 20 0a 20 20 2a 2a 20 6d  ling the .  ** m
b1e0: 65 74 68 6f 64 73 20 6f 66 20 61 20 64 65 6c 65  ethods of a dele
b1f0: 74 65 64 20 6f 62 6a 65 63 74 2e 0a 20 20 2a 2f  ted object..  */
b200: 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a  .  Tcl_CreateObj
b210: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
b220: 7a 56 66 73 2c 20 74 65 73 74 76 66 73 5f 6f 62  zVfs, testvfs_ob
b230: 6a 5f 63 6d 64 2c 20 70 2c 20 74 65 73 74 76 66  j_cmd, p, testvf
b240: 73 5f 6f 62 6a 5f 64 65 6c 29 3b 0a 20 20 70 2d  s_obj_del);.  p-
b250: 3e 70 50 61 72 65 6e 74 20 3d 20 73 71 6c 69 74  >pParent = sqlit
b260: 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a  e3_vfs_find(0);.
b270: 20 20 70 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e    p->interp = in
b280: 74 65 72 70 3b 0a 0a 20 20 70 2d 3e 7a 4e 61 6d  terp;..  p->zNam
b290: 65 20 3d 20 28 63 68 61 72 20 2a 29 26 70 5b 31  e = (char *)&p[1
b2a0: 5d 3b 0a 20 20 6d 65 6d 63 70 79 28 70 2d 3e 7a  ];.  memcpy(p->z
b2b0: 4e 61 6d 65 2c 20 7a 56 66 73 2c 20 73 74 72 6c  Name, zVfs, strl
b2c0: 65 6e 28 7a 56 66 73 29 2b 31 29 3b 0a 0a 20 20  en(zVfs)+1);..  
b2d0: 70 56 66 73 20 3d 20 28 73 71 6c 69 74 65 33 5f  pVfs = (sqlite3_
b2e0: 76 66 73 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69  vfs *)ckalloc(si
b2f0: 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76 66 73  zeof(sqlite3_vfs
b300: 29 29 3b 0a 20 20 6d 65 6d 63 70 79 28 70 56 66  ));.  memcpy(pVf
b310: 73 2c 20 26 74 76 66 73 5f 76 66 73 2c 20 73 69  s, &tvfs_vfs, si
b320: 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76 66 73  zeof(sqlite3_vfs
b330: 29 29 3b 0a 20 20 70 56 66 73 2d 3e 70 41 70 70  ));.  pVfs->pApp
b340: 44 61 74 61 20 3d 20 28 76 6f 69 64 20 2a 29 70  Data = (void *)p
b350: 3b 0a 20 20 70 56 66 73 2d 3e 69 56 65 72 73 69  ;.  pVfs->iVersi
b360: 6f 6e 20 3d 20 69 56 65 72 73 69 6f 6e 3b 0a 20  on = iVersion;. 
b370: 20 70 56 66 73 2d 3e 7a 4e 61 6d 65 20 3d 20 70   pVfs->zName = p
b380: 2d 3e 7a 4e 61 6d 65 3b 0a 20 20 70 56 66 73 2d  ->zName;.  pVfs-
b390: 3e 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20 70 2d  >mxPathname = p-
b3a0: 3e 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74 68  >pParent->mxPath
b3b0: 6e 61 6d 65 3b 0a 20 20 69 66 28 20 6d 78 50 61  name;.  if( mxPa
b3c0: 74 68 6e 61 6d 65 3e 3d 30 20 26 26 20 6d 78 50  thname>=0 && mxP
b3d0: 61 74 68 6e 61 6d 65 3c 70 56 66 73 2d 3e 6d 78  athname<pVfs->mx
b3e0: 50 61 74 68 6e 61 6d 65 20 29 7b 0a 20 20 20 20  Pathname ){.    
b3f0: 70 56 66 73 2d 3e 6d 78 50 61 74 68 6e 61 6d 65  pVfs->mxPathname
b400: 20 3d 20 6d 78 50 61 74 68 6e 61 6d 65 3b 0a 20   = mxPathname;. 
b410: 20 7d 0a 20 20 70 56 66 73 2d 3e 73 7a 4f 73 46   }.  pVfs->szOsF
b420: 69 6c 65 20 3d 20 73 7a 4f 73 46 69 6c 65 3b 0a  ile = szOsFile;.
b430: 20 20 70 2d 3e 70 56 66 73 20 3d 20 70 56 66 73    p->pVfs = pVfs
b440: 3b 0a 20 20 70 2d 3e 69 73 4e 6f 73 68 6d 20 3d  ;.  p->isNoshm =
b450: 20 69 73 4e 6f 73 68 6d 3b 0a 20 20 70 2d 3e 69   isNoshm;.  p->i
b460: 73 46 75 6c 6c 73 68 6d 20 3d 20 69 73 46 75 6c  sFullshm = isFul
b470: 6c 73 68 6d 3b 0a 20 20 70 2d 3e 6d 61 73 6b 20  lshm;.  p->mask 
b480: 3d 20 54 45 53 54 56 46 53 5f 41 4c 4c 5f 4d 41  = TESTVFS_ALL_MA
b490: 53 4b 3b 0a 0a 20 20 73 71 6c 69 74 65 33 5f 76  SK;..  sqlite3_v
b4a0: 66 73 5f 72 65 67 69 73 74 65 72 28 70 56 66 73  fs_register(pVfs
b4b0: 2c 20 69 73 44 65 66 61 75 6c 74 29 3b 0a 0a 20  , isDefault);.. 
b4c0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
b4d0: 0a 20 62 61 64 5f 61 72 67 73 3a 0a 20 20 54 63  . bad_args:.  Tc
b4e0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
b4f0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
b500: 22 56 46 53 4e 41 4d 45 20 3f 2d 6e 6f 73 68 6d  "VFSNAME ?-noshm
b510: 20 42 4f 4f 4c 3f 20 3f 2d 66 75 6c 6c 73 68 6d   BOOL? ?-fullshm
b520: 20 42 4f 4f 4c 3f 20 3f 2d 64 65 66 61 75 6c 74   BOOL? ?-default
b530: 20 42 4f 4f 4c 3f 20 3f 2d 6d 78 70 61 74 68 6e   BOOL? ?-mxpathn
b540: 61 6d 65 20 49 4e 54 3f 20 3f 2d 73 7a 6f 73 66  ame INT? ?-szosf
b550: 69 6c 65 20 49 4e 54 3f 20 3f 2d 69 76 65 72 73  ile INT? ?-ivers
b560: 69 6f 6e 20 49 4e 54 3f 22 29 3b 0a 20 20 72 65  ion INT?");.  re
b570: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
b580: 7d 0a 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73  }..int Sqlitetes
b590: 74 76 66 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e  tvfs_Init(Tcl_In
b5a0: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20  terp *interp){. 
b5b0: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f   Tcl_CreateObjCo
b5c0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74  mmand(interp, "t
b5d0: 65 73 74 76 66 73 22 2c 20 74 65 73 74 76 66 73  estvfs", testvfs
b5e0: 5f 63 6d 64 2c 20 30 2c 20 30 29 3b 0a 20 20 72  _cmd, 0, 0);.  r
b5f0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.
b600: 0a 23 65 6e 64 69 66 0a                          .#endif.