/ Hex Artifact Content
Login

Artifact 32618cbd953963278804bb47e97be7085d9e0d8755b1e734c3e54e9b9e115277:


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 20 20 7b 20 53 51 4c 49 54 45 5f 52 45  .    { SQLITE_RE
2170: 41 44 4f 4e 4c 59 5f 43 41 4e 54 49 4e 49 54 2c  ADONLY_CANTINIT,
2180: 20 22 53 51 4c 49 54 45 5f 52 45 41 44 4f 4e 4c   "SQLITE_READONL
2190: 59 5f 43 41 4e 54 49 4e 49 54 22 20 20 20 7d 2c  Y_CANTINIT"   },
21a0: 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f 4e 4f  .    { SQLITE_NO
21b0: 54 46 4f 55 4e 44 2c 20 22 53 51 4c 49 54 45 5f  TFOUND, "SQLITE_
21c0: 4e 4f 54 46 4f 55 4e 44 22 20 20 20 7d 2c 0a 20  NOTFOUND"   },. 
21d0: 20 20 20 7b 20 2d 31 2c 20 20 20 20 20 20 20 20     { -1,        
21e0: 20 20 20 20 20 20 22 53 51 4c 49 54 45 5f 4f 4d        "SQLITE_OM
21f0: 49 54 22 20 20 20 7d 2c 0a 20 20 7d 3b 0a 0a 20  IT"   },.  };.. 
2200: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a   const char *z;.
2210: 20 20 69 6e 74 20 69 3b 0a 0a 20 20 7a 20 3d 20    int i;..  z = 
2220: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
2230: 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a  ult(p->interp);.
2240: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72    for(i=0; i<Arr
2250: 61 79 53 69 7a 65 28 61 43 6f 64 65 29 3b 20 69  aySize(aCode); i
2260: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 30 3d 3d  ++){.    if( 0==
2270: 73 74 72 63 6d 70 28 7a 2c 20 61 43 6f 64 65 5b  strcmp(z, aCode[
2280: 69 5d 2e 7a 43 6f 64 65 29 20 29 7b 0a 20 20 20  i].zCode) ){.   
2290: 20 20 20 2a 70 52 63 20 3d 20 61 43 6f 64 65 5b     *pRc = aCode[
22a0: 69 5d 2e 65 43 6f 64 65 3b 0a 20 20 20 20 20 20  i].eCode;.      
22b0: 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a  return 1;.    }.
22c0: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 30 3b    }..  return 0;
22d0: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .}..static int t
22e0: 76 66 73 49 6e 6a 65 63 74 46 61 75 6c 74 28 54  vfsInjectFault(T
22f0: 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 2a  estFaultInject *
2300: 70 29 7b 0a 20 20 69 6e 74 20 72 65 74 20 3d 20  p){.  int ret = 
2310: 30 3b 0a 20 20 69 66 28 20 70 2d 3e 65 46 61 75  0;.  if( p->eFau
2320: 6c 74 20 29 7b 0a 20 20 20 20 70 2d 3e 69 43 6e  lt ){.    p->iCn
2330: 74 2d 2d 3b 0a 20 20 20 20 69 66 28 20 70 2d 3e  t--;.    if( p->
2340: 69 43 6e 74 3d 3d 30 20 7c 7c 20 28 70 2d 3e 69  iCnt==0 || (p->i
2350: 43 6e 74 3c 30 20 26 26 20 70 2d 3e 65 46 61 75  Cnt<0 && p->eFau
2360: 6c 74 3d 3d 46 41 55 4c 54 5f 49 4e 4a 45 43 54  lt==FAULT_INJECT
2370: 5f 50 45 52 53 49 53 54 45 4e 54 20 29 20 29 7b  _PERSISTENT ) ){
2380: 0a 20 20 20 20 20 20 72 65 74 20 3d 20 31 3b 0a  .      ret = 1;.
2390: 20 20 20 20 20 20 70 2d 3e 6e 46 61 69 6c 2b 2b        p->nFail++
23a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65  ;.    }.  }.  re
23b0: 74 75 72 6e 20 72 65 74 3b 0a 7d 0a 0a 0a 73 74  turn ret;.}...st
23c0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 49 6e 6a  atic int tvfsInj
23d0: 65 63 74 49 6f 65 72 72 28 54 65 73 74 76 66 73  ectIoerr(Testvfs
23e0: 20 2a 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 74   *p){.  return t
23f0: 76 66 73 49 6e 6a 65 63 74 46 61 75 6c 74 28 26  vfsInjectFault(&
2400: 70 2d 3e 69 6f 65 72 72 5f 65 72 72 29 3b 0a 7d  p->ioerr_err);.}
2410: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ..static int tvf
2420: 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 54  sInjectFullerr(T
2430: 65 73 74 76 66 73 20 2a 70 29 7b 0a 20 20 72 65  estvfs *p){.  re
2440: 74 75 72 6e 20 74 76 66 73 49 6e 6a 65 63 74 46  turn tvfsInjectF
2450: 61 75 6c 74 28 26 70 2d 3e 66 75 6c 6c 5f 65 72  ault(&p->full_er
2460: 72 29 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74  r);.}.static int
2470: 20 74 76 66 73 49 6e 6a 65 63 74 43 61 6e 74 6f   tvfsInjectCanto
2480: 70 65 6e 65 72 72 28 54 65 73 74 76 66 73 20 2a  penerr(Testvfs *
2490: 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 74 76 66  p){.  return tvf
24a0: 73 49 6e 6a 65 63 74 46 61 75 6c 74 28 26 70 2d  sInjectFault(&p-
24b0: 3e 63 61 6e 74 6f 70 65 6e 5f 65 72 72 29 3b 0a  >cantopen_err);.
24c0: 7d 0a 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20  }...static void 
24d0: 74 76 66 73 45 78 65 63 54 63 6c 28 0a 20 20 54  tvfsExecTcl(.  T
24e0: 65 73 74 76 66 73 20 2a 70 2c 20 0a 20 20 63 6f  estvfs *p, .  co
24f0: 6e 73 74 20 63 68 61 72 20 2a 7a 4d 65 74 68 6f  nst char *zMetho
2500: 64 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 61 72  d,.  Tcl_Obj *ar
2510: 67 31 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 61  g1,.  Tcl_Obj *a
2520: 72 67 32 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  rg2,.  Tcl_Obj *
2530: 61 72 67 33 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  arg3,.  Tcl_Obj 
2540: 2a 61 72 67 34 0a 29 7b 0a 20 20 69 6e 74 20 72  *arg4.){.  int r
2550: 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c;              
2560: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65             /* Re
2570: 74 75 72 6e 20 63 6f 64 65 20 66 72 6f 6d 20 54  turn code from T
2580: 63 6c 5f 45 76 61 6c 4f 62 6a 28 29 20 2a 2f 0a  cl_EvalObj() */.
2590: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 45 76 61 6c    Tcl_Obj *pEval
25a0: 3b 0a 20 20 61 73 73 65 72 74 28 20 70 2d 3e 70  ;.  assert( p->p
25b0: 53 63 72 69 70 74 20 29 3b 0a 0a 20 20 61 73 73  Script );..  ass
25c0: 65 72 74 28 20 7a 4d 65 74 68 6f 64 20 29 3b 0a  ert( zMethod );.
25d0: 20 20 61 73 73 65 72 74 28 20 70 20 29 3b 0a 20    assert( p );. 
25e0: 20 61 73 73 65 72 74 28 20 61 72 67 32 3d 3d 30   assert( arg2==0
25f0: 20 7c 7c 20 61 72 67 31 21 3d 30 20 29 3b 0a 20   || arg1!=0 );. 
2600: 20 61 73 73 65 72 74 28 20 61 72 67 33 3d 3d 30   assert( arg3==0
2610: 20 7c 7c 20 61 72 67 32 21 3d 30 20 29 3b 0a 0a   || arg2!=0 );..
2620: 20 20 70 45 76 61 6c 20 3d 20 54 63 6c 5f 44 75    pEval = Tcl_Du
2630: 70 6c 69 63 61 74 65 4f 62 6a 28 70 2d 3e 70 53  plicateObj(p->pS
2640: 63 72 69 70 74 29 3b 0a 20 20 54 63 6c 5f 49 6e  cript);.  Tcl_In
2650: 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53  crRefCount(p->pS
2660: 63 72 69 70 74 29 3b 0a 20 20 54 63 6c 5f 4c 69  cript);.  Tcl_Li
2670: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
2680: 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45  nt(p->interp, pE
2690: 76 61 6c 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  val, Tcl_NewStri
26a0: 6e 67 4f 62 6a 28 7a 4d 65 74 68 6f 64 2c 20 2d  ngObj(zMethod, -
26b0: 31 29 29 3b 0a 20 20 69 66 28 20 61 72 67 31 20  1));.  if( arg1 
26c0: 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70  ) Tcl_ListObjApp
26d0: 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e  endElement(p->in
26e0: 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 61 72 67  terp, pEval, arg
26f0: 31 29 3b 0a 20 20 69 66 28 20 61 72 67 32 20 29  1);.  if( arg2 )
2700: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
2710: 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74  ndElement(p->int
2720: 65 72 70 2c 20 70 45 76 61 6c 2c 20 61 72 67 32  erp, pEval, arg2
2730: 29 3b 0a 20 20 69 66 28 20 61 72 67 33 20 29 20  );.  if( arg3 ) 
2740: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
2750: 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65  dElement(p->inte
2760: 72 70 2c 20 70 45 76 61 6c 2c 20 61 72 67 33 29  rp, pEval, arg3)
2770: 3b 0a 20 20 69 66 28 20 61 72 67 34 20 29 20 54  ;.  if( arg4 ) T
2780: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
2790: 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72  Element(p->inter
27a0: 70 2c 20 70 45 76 61 6c 2c 20 61 72 67 34 29 3b  p, pEval, arg4);
27b0: 0a 0a 20 20 72 63 20 3d 20 54 63 6c 5f 45 76 61  ..  rc = Tcl_Eva
27c0: 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e 74 65 72 70  lObjEx(p->interp
27d0: 2c 20 70 45 76 61 6c 2c 20 54 43 4c 5f 45 56 41  , pEval, TCL_EVA
27e0: 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 69 66 28  L_GLOBAL);.  if(
27f0: 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20   rc!=TCL_OK ){. 
2800: 20 20 20 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e     Tcl_Backgroun
2810: 64 45 72 72 6f 72 28 70 2d 3e 69 6e 74 65 72 70  dError(p->interp
2820: 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74  );.    Tcl_Reset
2830: 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70  Result(p->interp
2840: 29 3b 0a 20 20 7d 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a  );.  }.}.../*.**
2850: 20 43 6c 6f 73 65 20 61 6e 20 74 76 66 73 2d 66   Close an tvfs-f
2860: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
2870: 6e 74 20 74 76 66 73 43 6c 6f 73 65 28 73 71 6c  nt tvfsClose(sql
2880: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
2890: 29 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65  ){.  TestvfsFile
28a0: 20 2a 70 54 65 73 74 66 69 6c 65 20 3d 20 28 54   *pTestfile = (T
28b0: 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69  estvfsFile *)pFi
28c0: 6c 65 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20  le;.  TestvfsFd 
28d0: 2a 70 46 64 20 3d 20 70 54 65 73 74 66 69 6c 65  *pFd = pTestfile
28e0: 2d 3e 70 46 64 3b 0a 20 20 54 65 73 74 76 66 73  ->pFd;.  Testvfs
28f0: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
2900: 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  )pFd->pVfs->pApp
2910: 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e  Data;..  if( p->
2920: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
2930: 73 6b 26 54 45 53 54 56 46 53 5f 43 4c 4f 53 45  sk&TESTVFS_CLOSE
2940: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66  _MASK ){.    tvf
2950: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 43 6c  sExecTcl(p, "xCl
2960: 6f 73 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54  ose", .        T
2970: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
2980: 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20  pFd->zFilename, 
2990: 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64  -1), pFd->pShmId
29a0: 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20  , 0, 0.    );.  
29b0: 7d 0a 0a 20 20 69 66 28 20 70 46 64 2d 3e 70 53  }..  if( pFd->pS
29c0: 68 6d 49 64 20 29 7b 0a 20 20 20 20 54 63 6c 5f  hmId ){.    Tcl_
29d0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 46 64  DecrRefCount(pFd
29e0: 2d 3e 70 53 68 6d 49 64 29 3b 0a 20 20 20 20 70  ->pShmId);.    p
29f0: 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20 30 3b 0a  Fd->pShmId = 0;.
2a00: 20 20 7d 0a 20 20 69 66 28 20 70 46 69 6c 65 2d    }.  if( pFile-
2a10: 3e 70 4d 65 74 68 6f 64 73 20 29 7b 0a 20 20 20  >pMethods ){.   
2a20: 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29   ckfree((char *)
2a30: 70 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 29  pFile->pMethods)
2a40: 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 4f  ;.  }.  sqlite3O
2a50: 73 43 6c 6f 73 65 28 70 46 64 2d 3e 70 52 65 61  sClose(pFd->pRea
2a60: 6c 29 3b 0a 20 20 63 6b 66 72 65 65 28 28 63 68  l);.  ckfree((ch
2a70: 61 72 20 2a 29 70 46 64 29 3b 0a 20 20 70 54 65  ar *)pFd);.  pTe
2a80: 73 74 66 69 6c 65 2d 3e 70 46 64 20 3d 20 30 3b  stfile->pFd = 0;
2a90: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45  .  return SQLITE
2aa0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  _OK;.}../*.** Re
2ab0: 61 64 20 64 61 74 61 20 66 72 6f 6d 20 61 6e 20  ad data from an 
2ac0: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
2ad0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 52 65 61  atic int tvfsRea
2ae0: 64 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  d(.  sqlite3_fil
2af0: 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20 76 6f 69  e *pFile, .  voi
2b00: 64 20 2a 7a 42 75 66 2c 20 0a 20 20 69 6e 74 20  d *zBuf, .  int 
2b10: 69 41 6d 74 2c 20 0a 20 20 73 71 6c 69 74 65 5f  iAmt, .  sqlite_
2b20: 69 6e 74 36 34 20 69 4f 66 73 74 0a 29 7b 0a 20  int64 iOfst.){. 
2b30: 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45   int rc = SQLITE
2b40: 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 64  _OK;.  TestvfsFd
2b50: 20 2a 70 46 64 20 3d 20 74 76 66 73 47 65 74 46   *pFd = tvfsGetF
2b60: 64 28 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74  d(pFile);.  Test
2b70: 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66  vfs *p = (Testvf
2b80: 73 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70  s *)pFd->pVfs->p
2b90: 41 70 70 44 61 74 61 3b 0a 20 20 69 66 28 20 70  AppData;.  if( p
2ba0: 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e  ->pScript && p->
2bb0: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 52 45 41  mask&TESTVFS_REA
2bc0: 44 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76  D_MASK ){.    tv
2bd0: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 52  fsExecTcl(p, "xR
2be0: 65 61 64 22 2c 20 0a 20 20 20 20 20 20 20 20 54  ead", .        T
2bf0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
2c00: 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20  pFd->zFilename, 
2c10: 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64  -1), pFd->pShmId
2c20: 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20  , 0, 0.    );.  
2c30: 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65    tvfsResultCode
2c40: 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 20 20  (p, &rc);.  }.  
2c50: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
2c60: 4b 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53  K && p->mask&TES
2c70: 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20 26  TVFS_READ_MASK &
2c80: 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65 72  & tvfsInjectIoer
2c90: 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20 3d  r(p) ){.    rc =
2ca0: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20   SQLITE_IOERR;. 
2cb0: 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c   }.  if( rc==SQL
2cc0: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63  ITE_OK ){.    rc
2cd0: 20 3d 20 73 71 6c 69 74 65 33 4f 73 52 65 61 64   = sqlite3OsRead
2ce0: 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 7a 42 75  (pFd->pReal, zBu
2cf0: 66 2c 20 69 41 6d 74 2c 20 69 4f 66 73 74 29 3b  f, iAmt, iOfst);
2d00: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63  .  }.  return rc
2d10: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 72 69 74 65  ;.}../*.** Write
2d20: 20 64 61 74 61 20 74 6f 20 61 6e 20 74 76 66 73   data to an tvfs
2d30: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
2d40: 20 69 6e 74 20 74 76 66 73 57 72 69 74 65 28 0a   int tvfsWrite(.
2d50: 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a    sqlite3_file *
2d60: 70 46 69 6c 65 2c 20 0a 20 20 63 6f 6e 73 74 20  pFile, .  const 
2d70: 76 6f 69 64 20 2a 7a 42 75 66 2c 20 0a 20 20 69  void *zBuf, .  i
2d80: 6e 74 20 69 41 6d 74 2c 20 0a 20 20 73 71 6c 69  nt iAmt, .  sqli
2d90: 74 65 5f 69 6e 74 36 34 20 69 4f 66 73 74 0a 29  te_int64 iOfst.)
2da0: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
2db0: 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66  ITE_OK;.  Testvf
2dc0: 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47  sFd *pFd = tvfsG
2dd0: 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54  etFd(pFile);.  T
2de0: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
2df0: 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66 73  tvfs *)pFd->pVfs
2e00: 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20 20 69  ->pAppData;..  i
2e10: 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26  f( p->pScript &&
2e20: 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53   p->mask&TESTVFS
2e30: 5f 57 52 49 54 45 5f 4d 41 53 4b 20 29 7b 0a 20  _WRITE_MASK ){. 
2e40: 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70     tvfsExecTcl(p
2e50: 2c 20 22 78 57 72 69 74 65 22 2c 20 0a 20 20 20  , "xWrite", .   
2e60: 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69       Tcl_NewStri
2e70: 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65  ngObj(pFd->zFile
2e80: 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e  name, -1), pFd->
2e90: 70 53 68 6d 49 64 2c 20 0a 20 20 20 20 20 20 20  pShmId, .       
2ea0: 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f   Tcl_NewWideIntO
2eb0: 62 6a 28 69 4f 66 73 74 29 2c 20 54 63 6c 5f 4e  bj(iOfst), Tcl_N
2ec0: 65 77 49 6e 74 4f 62 6a 28 69 41 6d 74 29 0a 20  ewIntObj(iAmt). 
2ed0: 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65     );.    tvfsRe
2ee0: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
2ef0: 3b 0a 20 20 20 20 69 66 28 20 72 63 3c 30 20 29  ;.    if( rc<0 )
2f00: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
2f10: 4b 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63  K;.  }..  if( rc
2f20: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 74  ==SQLITE_OK && t
2f30: 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72  vfsInjectFullerr
2f40: 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  (p) ){.    rc = 
2f50: 53 51 4c 49 54 45 5f 46 55 4c 4c 3b 0a 20 20 7d  SQLITE_FULL;.  }
2f60: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54  .  if( rc==SQLIT
2f70: 45 5f 4f 4b 20 26 26 20 70 2d 3e 6d 61 73 6b 26  E_OK && p->mask&
2f80: 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d 41  TESTVFS_WRITE_MA
2f90: 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  SK && tvfsInject
2fa0: 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20  Ioerr(p) ){.    
2fb0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52  rc = SQLITE_IOER
2fc0: 52 3b 0a 20 20 7d 0a 20 20 0a 20 20 69 66 28 20  R;.  }.  .  if( 
2fd0: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc==SQLITE_OK ){
2fe0: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65  .    rc = sqlite
2ff0: 33 4f 73 57 72 69 74 65 28 70 46 64 2d 3e 70 52  3OsWrite(pFd->pR
3000: 65 61 6c 2c 20 7a 42 75 66 2c 20 69 41 6d 74 2c  eal, zBuf, iAmt,
3010: 20 69 4f 66 73 74 29 3b 0a 20 20 7d 0a 20 20 72   iOfst);.  }.  r
3020: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
3030: 2a 2a 20 54 72 75 6e 63 61 74 65 20 61 6e 20 74  ** Truncate an t
3040: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
3050: 74 69 63 20 69 6e 74 20 74 76 66 73 54 72 75 6e  tic int tvfsTrun
3060: 63 61 74 65 28 73 71 6c 69 74 65 33 5f 66 69 6c  cate(sqlite3_fil
3070: 65 20 2a 70 46 69 6c 65 2c 20 73 71 6c 69 74 65  e *pFile, sqlite
3080: 5f 69 6e 74 36 34 20 73 69 7a 65 29 7b 0a 20 20  _int64 size){.  
3090: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  int rc = SQLITE_
30a0: 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20  OK;.  TestvfsFd 
30b0: 2a 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64  *pFd = tvfsGetFd
30c0: 28 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76  (pFile);.  Testv
30d0: 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  fs *p = (Testvfs
30e0: 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41   *)pFd->pVfs->pA
30f0: 70 70 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 70  ppData;..  if( p
3100: 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e  ->pScript && p->
3110: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 54 52 55  mask&TESTVFS_TRU
3120: 4e 43 41 54 45 5f 4d 41 53 4b 20 29 7b 0a 20 20  NCATE_MASK ){.  
3130: 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c    tvfsExecTcl(p,
3140: 20 22 78 54 72 75 6e 63 61 74 65 22 2c 20 0a 20   "xTruncate", . 
3150: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
3160: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
3170: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64  lename, -1), pFd
3180: 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20  ->pShmId, 0, 0. 
3190: 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65     );.    tvfsRe
31a0: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
31b0: 3b 0a 20 20 7d 0a 20 20 0a 20 20 69 66 28 20 72  ;.  }.  .  if( r
31c0: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
31d0: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
31e0: 4f 73 54 72 75 6e 63 61 74 65 28 70 46 64 2d 3e  OsTruncate(pFd->
31f0: 70 52 65 61 6c 2c 20 73 69 7a 65 29 3b 0a 20 20  pReal, size);.  
3200: 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  }.  return rc;.}
3210: 0a 0a 2f 2a 0a 2a 2a 20 53 79 6e 63 20 61 6e 20  ../*.** Sync an 
3220: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
3230: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 79 6e  atic int tvfsSyn
3240: 63 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  c(sqlite3_file *
3250: 70 46 69 6c 65 2c 20 69 6e 74 20 66 6c 61 67 73  pFile, int flags
3260: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  ){.  int rc = SQ
3270: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76  LITE_OK;.  Testv
3280: 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73  fsFd *pFd = tvfs
3290: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
32a0: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
32b0: 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66  stvfs *)pFd->pVf
32c0: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20 20  s->pAppData;..  
32d0: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
32e0: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
32f0: 53 5f 53 59 4e 43 5f 4d 41 53 4b 20 29 7b 0a 20  S_SYNC_MASK ){. 
3300: 20 20 20 63 68 61 72 20 2a 7a 46 6c 61 67 73 20     char *zFlags 
3310: 3d 20 30 3b 0a 0a 20 20 20 20 73 77 69 74 63 68  = 0;..    switch
3320: 28 20 66 6c 61 67 73 20 29 7b 0a 20 20 20 20 20  ( flags ){.     
3330: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53 59 4e   case SQLITE_SYN
3340: 43 5f 4e 4f 52 4d 41 4c 3a 0a 20 20 20 20 20 20  C_NORMAL:.      
3350: 20 20 7a 46 6c 61 67 73 20 3d 20 22 6e 6f 72 6d    zFlags = "norm
3360: 61 6c 22 3b 0a 20 20 20 20 20 20 20 20 62 72 65  al";.        bre
3370: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 53  ak;.      case S
3380: 51 4c 49 54 45 5f 53 59 4e 43 5f 46 55 4c 4c 3a  QLITE_SYNC_FULL:
3390: 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67 73 20  .        zFlags 
33a0: 3d 20 22 66 75 6c 6c 22 3b 0a 20 20 20 20 20 20  = "full";.      
33b0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63    break;.      c
33c0: 61 73 65 20 53 51 4c 49 54 45 5f 53 59 4e 43 5f  ase SQLITE_SYNC_
33d0: 4e 4f 52 4d 41 4c 7c 53 51 4c 49 54 45 5f 53 59  NORMAL|SQLITE_SY
33e0: 4e 43 5f 44 41 54 41 4f 4e 4c 59 3a 0a 20 20 20  NC_DATAONLY:.   
33f0: 20 20 20 20 20 7a 46 6c 61 67 73 20 3d 20 22 6e       zFlags = "n
3400: 6f 72 6d 61 6c 7c 64 61 74 61 6f 6e 6c 79 22 3b  ormal|dataonly";
3410: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
3420: 20 20 20 20 20 20 63 61 73 65 20 53 51 4c 49 54        case SQLIT
3430: 45 5f 53 59 4e 43 5f 46 55 4c 4c 7c 53 51 4c 49  E_SYNC_FULL|SQLI
3440: 54 45 5f 53 59 4e 43 5f 44 41 54 41 4f 4e 4c 59  TE_SYNC_DATAONLY
3450: 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67 73  :.        zFlags
3460: 20 3d 20 22 66 75 6c 6c 7c 64 61 74 61 6f 6e 6c   = "full|dataonl
3470: 79 22 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61  y";.        brea
3480: 6b 3b 0a 20 20 20 20 20 20 64 65 66 61 75 6c 74  k;.      default
3490: 3a 0a 20 20 20 20 20 20 20 20 61 73 73 65 72 74  :.        assert
34a0: 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  (0);.    }..    
34b0: 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22  tvfsExecTcl(p, "
34c0: 78 53 79 6e 63 22 2c 20 0a 20 20 20 20 20 20 20  xSync", .       
34d0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
34e0: 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65  j(pFd->zFilename
34f0: 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d  , -1), pFd->pShm
3500: 49 64 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  Id,.        Tcl_
3510: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 46 6c  NewStringObj(zFl
3520: 61 67 73 2c 20 2d 31 29 2c 20 30 0a 20 20 20 20  ags, -1), 0.    
3530: 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c  );.    tvfsResul
3540: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20  tCode(p, &rc);. 
3550: 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53 51   }..  if( rc==SQ
3560: 4c 49 54 45 5f 4f 4b 20 26 26 20 74 76 66 73 49  LITE_OK && tvfsI
3570: 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 70 29 20  njectFullerr(p) 
3580: 29 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 46 55  ) rc = SQLITE_FU
3590: 4c 4c 3b 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53  LL;..  if( rc==S
35a0: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
35b0: 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 53 79  rc = sqlite3OsSy
35c0: 6e 63 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 66  nc(pFd->pReal, f
35d0: 6c 61 67 73 29 3b 0a 20 20 7d 0a 0a 20 20 72 65  lags);.  }..  re
35e0: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a  turn rc;.}../*.*
35f0: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 63 75 72  * Return the cur
3600: 72 65 6e 74 20 66 69 6c 65 2d 73 69 7a 65 20 6f  rent file-size o
3610: 66 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a  f an tvfs-file..
3620: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
3630: 66 73 46 69 6c 65 53 69 7a 65 28 73 71 6c 69 74  fsFileSize(sqlit
3640: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20  e3_file *pFile, 
3650: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70 53  sqlite_int64 *pS
3660: 69 7a 65 29 7b 0a 20 20 54 65 73 74 76 66 73 46  ize){.  TestvfsF
3670: 64 20 2a 70 20 3d 20 74 76 66 73 47 65 74 46 64  d *p = tvfsGetFd
3680: 28 70 46 69 6c 65 29 3b 0a 20 20 72 65 74 75 72  (pFile);.  retur
3690: 6e 20 73 71 6c 69 74 65 33 4f 73 46 69 6c 65 53  n sqlite3OsFileS
36a0: 69 7a 65 28 70 2d 3e 70 52 65 61 6c 2c 20 70 53  ize(p->pReal, pS
36b0: 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4c  ize);.}../*.** L
36c0: 6f 63 6b 20 61 6e 20 74 76 66 73 2d 66 69 6c 65  ock an tvfs-file
36d0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
36e0: 74 76 66 73 4c 6f 63 6b 28 73 71 6c 69 74 65 33  tvfsLock(sqlite3
36f0: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e  _file *pFile, in
3700: 74 20 65 4c 6f 63 6b 29 7b 0a 20 20 54 65 73 74  t eLock){.  Test
3710: 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66  vfsFd *pFd = tvf
3720: 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20  sGetFd(pFile);. 
3730: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
3740: 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56  estvfs *)pFd->pV
3750: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20  fs->pAppData;.  
3760: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
3770: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
3780: 53 5f 4c 4f 43 4b 5f 4d 41 53 4b 20 29 7b 0a 20  S_LOCK_MASK ){. 
3790: 20 20 20 63 68 61 72 20 7a 4c 6f 63 6b 5b 33 30     char zLock[30
37a0: 5d 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73  ];.    sqlite3_s
37b0: 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a  nprintf(sizeof(z
37c0: 4c 6f 63 6b 29 2c 7a 4c 6f 63 6b 2c 22 25 64 22  Lock),zLock,"%d"
37d0: 2c 65 4c 6f 63 6b 29 3b 0a 20 20 20 20 74 76 66  ,eLock);.    tvf
37e0: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 4c 6f  sExecTcl(p, "xLo
37f0: 63 6b 22 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  ck", Tcl_NewStri
3800: 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65  ngObj(pFd->zFile
3810: 6e 61 6d 65 2c 20 2d 31 29 2c 20 0a 20 20 20 20  name, -1), .    
3820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
3830: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
3840: 7a 4c 6f 63 6b 2c 20 2d 31 29 2c 20 30 2c 20 30  zLock, -1), 0, 0
3850: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
3860: 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b 28 70 46  sqlite3OsLock(pF
3870: 64 2d 3e 70 52 65 61 6c 2c 20 65 4c 6f 63 6b 29  d->pReal, eLock)
3880: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 6e 6c 6f 63  ;.}../*.** Unloc
3890: 6b 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a  k an tvfs-file..
38a0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
38b0: 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69 74 65 33  fsUnlock(sqlite3
38c0: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e  _file *pFile, in
38d0: 74 20 65 4c 6f 63 6b 29 7b 0a 20 20 54 65 73 74  t eLock){.  Test
38e0: 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66  vfsFd *pFd = tvf
38f0: 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20  sGetFd(pFile);. 
3900: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
3910: 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56  estvfs *)pFd->pV
3920: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20  fs->pAppData;.  
3930: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
3940: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
3950: 53 5f 55 4e 4c 4f 43 4b 5f 4d 41 53 4b 20 29 7b  S_UNLOCK_MASK ){
3960: 0a 20 20 20 20 63 68 61 72 20 7a 4c 6f 63 6b 5b  .    char zLock[
3970: 33 30 5d 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  30];.    sqlite3
3980: 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66  _snprintf(sizeof
3990: 28 7a 4c 6f 63 6b 29 2c 7a 4c 6f 63 6b 2c 22 25  (zLock),zLock,"%
39a0: 64 22 2c 65 4c 6f 63 6b 29 3b 0a 20 20 20 20 74  d",eLock);.    t
39b0: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
39c0: 55 6e 6c 6f 63 6b 22 2c 20 54 63 6c 5f 4e 65 77  Unlock", Tcl_New
39d0: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a  StringObj(pFd->z
39e0: 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 0a  Filename, -1), .
39f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3a00: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
3a10: 4f 62 6a 28 7a 4c 6f 63 6b 2c 20 2d 31 29 2c 20  Obj(zLock, -1), 
3a20: 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69 66 28  0, 0);.  }.  if(
3a30: 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53   p->mask&TESTVFS
3a40: 5f 57 52 49 54 45 5f 4d 41 53 4b 20 26 26 20 74  _WRITE_MASK && t
3a50: 76 66 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 70  vfsInjectIoerr(p
3a60: 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  ) ){.    return 
3a70: 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 55 4e 4c  SQLITE_IOERR_UNL
3a80: 4f 43 4b 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  OCK;.  }.  retur
3a90: 6e 20 73 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63  n sqlite3OsUnloc
3aa0: 6b 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 65 4c  k(pFd->pReal, eL
3ab0: 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43  ock);.}../*.** C
3ac0: 68 65 63 6b 20 69 66 20 61 6e 6f 74 68 65 72 20  heck if another 
3ad0: 66 69 6c 65 2d 68 61 6e 64 6c 65 20 68 6f 6c 64  file-handle hold
3ae0: 73 20 61 20 52 45 53 45 52 56 45 44 20 6c 6f 63  s a RESERVED loc
3af0: 6b 20 6f 6e 20 61 6e 20 74 76 66 73 2d 66 69 6c  k on an tvfs-fil
3b00: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
3b10: 20 74 76 66 73 43 68 65 63 6b 52 65 73 65 72 76   tvfsCheckReserv
3b20: 65 64 4c 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66  edLock(sqlite3_f
3b30: 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20  ile *pFile, int 
3b40: 2a 70 52 65 73 4f 75 74 29 7b 0a 20 20 54 65 73  *pResOut){.  Tes
3b50: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
3b60: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
3b70: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
3b80: 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70  Testvfs *)pFd->p
3b90: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20  Vfs->pAppData;. 
3ba0: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
3bb0: 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  && p->mask&TESTV
3bc0: 46 53 5f 43 4b 4c 4f 43 4b 5f 4d 41 53 4b 20 29  FS_CKLOCK_MASK )
3bd0: 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  {.    tvfsExecTc
3be0: 6c 28 70 2c 20 22 78 43 68 65 63 6b 52 65 73 65  l(p, "xCheckRese
3bf0: 72 76 65 64 4c 6f 63 6b 22 2c 20 54 63 6c 5f 4e  rvedLock", Tcl_N
3c00: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
3c10: 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c  >zFilename, -1),
3c20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3c30: 20 20 20 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20      0, 0, 0);.  
3c40: 7d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  }.  return sqlit
3c50: 65 33 4f 73 43 68 65 63 6b 52 65 73 65 72 76 65  e3OsCheckReserve
3c60: 64 4c 6f 63 6b 28 70 46 64 2d 3e 70 52 65 61 6c  dLock(pFd->pReal
3c70: 2c 20 70 52 65 73 4f 75 74 29 3b 0a 7d 0a 0a 2f  , pResOut);.}../
3c80: 2a 0a 2a 2a 20 46 69 6c 65 20 63 6f 6e 74 72 6f  *.** File contro
3c90: 6c 20 6d 65 74 68 6f 64 2e 20 46 6f 72 20 63 75  l method. For cu
3ca0: 73 74 6f 6d 20 6f 70 65 72 61 74 69 6f 6e 73 20  stom operations 
3cb0: 6f 6e 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  on an tvfs-file.
3cc0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
3cd0: 76 66 73 46 69 6c 65 43 6f 6e 74 72 6f 6c 28 73  vfsFileControl(s
3ce0: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
3cf0: 6c 65 2c 20 69 6e 74 20 6f 70 2c 20 76 6f 69 64  le, int op, void
3d00: 20 2a 70 41 72 67 29 7b 0a 20 20 54 65 73 74 76   *pArg){.  Testv
3d10: 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73  fsFd *pFd = tvfs
3d20: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
3d30: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
3d40: 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66  stvfs *)pFd->pVf
3d50: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69  s->pAppData;.  i
3d60: 66 28 20 6f 70 3d 3d 53 51 4c 49 54 45 5f 46 43  f( op==SQLITE_FC
3d70: 4e 54 4c 5f 50 52 41 47 4d 41 20 29 7b 0a 20 20  NTL_PRAGMA ){.  
3d80: 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 3d 20    char **argv = 
3d90: 28 63 68 61 72 2a 2a 29 70 41 72 67 3b 0a 20 20  (char**)pArg;.  
3da0: 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73 74    if( sqlite3_st
3db0: 72 69 63 6d 70 28 61 72 67 76 5b 31 5d 2c 22 65  ricmp(argv[1],"e
3dc0: 72 72 6f 72 22 29 3d 3d 30 20 29 7b 0a 20 20 20  rror")==0 ){.   
3dd0: 20 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49     int rc = SQLI
3de0: 54 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20  TE_ERROR;.      
3df0: 69 66 28 20 61 72 67 76 5b 32 5d 20 29 7b 0a 20  if( argv[2] ){. 
3e00: 20 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61         const cha
3e10: 72 20 2a 7a 20 3d 20 61 72 67 76 5b 32 5d 3b 0a  r *z = argv[2];.
3e20: 20 20 20 20 20 20 20 20 69 6e 74 20 78 20 3d 20          int x = 
3e30: 61 74 6f 69 28 7a 29 3b 0a 20 20 20 20 20 20 20  atoi(z);.       
3e40: 20 69 66 28 20 78 20 29 7b 0a 20 20 20 20 20 20   if( x ){.      
3e50: 20 20 20 20 72 63 20 3d 20 78 3b 0a 20 20 20 20      rc = x;.    
3e60: 20 20 20 20 20 20 77 68 69 6c 65 28 20 73 71 6c        while( sql
3e70: 69 74 65 33 49 73 64 69 67 69 74 28 7a 5b 30 5d  ite3Isdigit(z[0]
3e80: 29 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20 20  ) ){ z++; }.    
3e90: 20 20 20 20 20 20 77 68 69 6c 65 28 20 73 71 6c        while( sql
3ea0: 69 74 65 33 49 73 73 70 61 63 65 28 7a 5b 30 5d  ite3Isspace(z[0]
3eb0: 29 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20 20  ) ){ z++; }.    
3ec0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
3ed0: 28 20 7a 5b 30 5d 20 29 20 61 72 67 76 5b 30 5d  ( z[0] ) argv[0]
3ee0: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e   = sqlite3_mprin
3ef0: 74 66 28 22 25 73 22 2c 20 7a 29 3b 0a 20 20 20  tf("%s", z);.   
3f00: 20 20 20 7d 0a 20 20 20 20 20 20 72 65 74 75 72     }.      retur
3f10: 6e 20 72 63 3b 0a 20 20 20 20 7d 0a 20 20 20 20  n rc;.    }.    
3f20: 69 66 28 20 73 71 6c 69 74 65 33 5f 73 74 72 69  if( sqlite3_stri
3f30: 63 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 66 69  cmp(argv[1], "fi
3f40: 6c 65 6e 61 6d 65 22 29 3d 3d 30 20 29 7b 0a 20  lename")==0 ){. 
3f50: 20 20 20 20 20 61 72 67 76 5b 30 5d 20 3d 20 73       argv[0] = s
3f60: 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22  qlite3_mprintf("
3f70: 25 73 22 2c 20 70 46 64 2d 3e 7a 46 69 6c 65 6e  %s", pFd->zFilen
3f80: 61 6d 65 29 3b 0a 20 20 20 20 20 20 72 65 74 75  ame);.      retu
3f90: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20  rn SQLITE_OK;.  
3fa0: 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28 20 70 2d    }.  }.  if( p-
3fb0: 3e 70 53 63 72 69 70 74 20 26 26 20 28 70 2d 3e  >pScript && (p->
3fc0: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 46 43 4e  mask&TESTVFS_FCN
3fd0: 54 4c 5f 4d 41 53 4b 29 20 29 7b 0a 20 20 20 20  TL_MASK) ){.    
3fe0: 73 74 72 75 63 74 20 46 63 6e 74 6c 20 7b 0a 20  struct Fcntl {. 
3ff0: 20 20 20 20 20 69 6e 74 20 69 46 6e 63 74 6c 3b       int iFnctl;
4000: 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61  .      const cha
4010: 72 20 2a 7a 46 6e 63 74 6c 3b 0a 20 20 20 20 7d  r *zFnctl;.    }
4020: 20 61 46 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20   aF[] = {.      
4030: 7b 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 42  { SQLITE_FCNTL_B
4040: 45 47 49 4e 5f 41 54 4f 4d 49 43 5f 57 52 49 54  EGIN_ATOMIC_WRIT
4050: 45 2c 20 22 42 45 47 49 4e 5f 41 54 4f 4d 49 43  E, "BEGIN_ATOMIC
4060: 5f 57 52 49 54 45 22 20 7d 2c 0a 20 20 20 20 20  _WRITE" },.     
4070: 20 7b 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f   { SQLITE_FCNTL_
4080: 43 4f 4d 4d 49 54 5f 41 54 4f 4d 49 43 5f 57 52  COMMIT_ATOMIC_WR
4090: 49 54 45 2c 20 22 43 4f 4d 4d 49 54 5f 41 54 4f  ITE, "COMMIT_ATO
40a0: 4d 49 43 5f 57 52 49 54 45 22 20 7d 2c 0a 20 20  MIC_WRITE" },.  
40b0: 20 20 20 20 7b 20 53 51 4c 49 54 45 5f 46 43 4e      { SQLITE_FCN
40c0: 54 4c 5f 5a 49 50 56 46 53 2c 20 22 5a 49 50 56  TL_ZIPVFS, "ZIPV
40d0: 46 53 22 20 7d 2c 0a 20 20 20 20 7d 3b 0a 20 20  FS" },.    };.  
40e0: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 66 6f 72    int i;.    for
40f0: 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61  (i=0; i<sizeof(a
4100: 46 29 2f 73 69 7a 65 6f 66 28 61 46 5b 30 5d 29  F)/sizeof(aF[0])
4110: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66  ; i++){.      if
4120: 28 20 6f 70 3d 3d 61 46 5b 69 5d 2e 69 46 6e 63  ( op==aF[i].iFnc
4130: 74 6c 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20  tl ) break;.    
4140: 7d 0a 20 20 20 20 69 66 28 20 69 3c 73 69 7a 65  }.    if( i<size
4150: 6f 66 28 61 46 29 2f 73 69 7a 65 6f 66 28 61 46  of(aF)/sizeof(aF
4160: 5b 30 5d 29 20 29 7b 0a 20 20 20 20 20 20 69 6e  [0]) ){.      in
4170: 74 20 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20  t rc = 0;.      
4180: 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22  tvfsExecTcl(p, "
4190: 78 46 69 6c 65 43 6f 6e 74 72 6f 6c 22 2c 20 0a  xFileControl", .
41a0: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65            Tcl_Ne
41b0: 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e  wStringObj(pFd->
41c0: 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20  zFilename, -1), 
41d0: 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e  .          Tcl_N
41e0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 61 46 5b 69  ewStringObj(aF[i
41f0: 5d 2e 7a 46 6e 63 74 6c 2c 20 2d 31 29 2c 0a 20  ].zFnctl, -1),. 
4200: 20 20 20 20 20 20 20 20 20 30 2c 20 30 0a 20 20           0, 0.  
4210: 20 20 20 20 29 3b 0a 20 20 20 20 20 20 74 76 66      );.      tvf
4220: 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26  sResultCode(p, &
4230: 72 63 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72  rc);.      if( r
4240: 63 20 29 20 72 65 74 75 72 6e 20 28 72 63 3c 30  c ) return (rc<0
4250: 20 3f 20 53 51 4c 49 54 45 5f 4f 4b 20 3a 20 72   ? SQLITE_OK : r
4260: 63 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  c);.    }.  }.  
4270: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
4280: 46 69 6c 65 43 6f 6e 74 72 6f 6c 28 70 46 64 2d  FileControl(pFd-
4290: 3e 70 52 65 61 6c 2c 20 6f 70 2c 20 70 41 72 67  >pReal, op, pArg
42a0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75  );.}../*.** Retu
42b0: 72 6e 20 74 68 65 20 73 65 63 74 6f 72 2d 73 69  rn the sector-si
42c0: 7a 65 20 69 6e 20 62 79 74 65 73 20 66 6f 72 20  ze in bytes for 
42d0: 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f  an tvfs-file..*/
42e0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
42f0: 53 65 63 74 6f 72 53 69 7a 65 28 73 71 6c 69 74  SectorSize(sqlit
4300: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b  e3_file *pFile){
4310: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
4320: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
4330: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
4340: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
4350: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
4360: 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 69 53  ata;.  if( p->iS
4370: 65 63 74 6f 72 73 69 7a 65 3e 3d 30 20 29 7b 0a  ectorsize>=0 ){.
4380: 20 20 20 20 72 65 74 75 72 6e 20 70 2d 3e 69 53      return p->iS
4390: 65 63 74 6f 72 73 69 7a 65 3b 0a 20 20 7d 0a 20  ectorsize;.  }. 
43a0: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
43b0: 73 53 65 63 74 6f 72 53 69 7a 65 28 70 46 64 2d  sSectorSize(pFd-
43c0: 3e 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  >pReal);.}../*.*
43d0: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 64 65 76  * Return the dev
43e0: 69 63 65 20 63 68 61 72 61 63 74 65 72 69 73 74  ice characterist
43f0: 69 63 20 66 6c 61 67 73 20 73 75 70 70 6f 72 74  ic flags support
4400: 65 64 20 62 79 20 61 6e 20 74 76 66 73 2d 66 69  ed by an tvfs-fi
4410: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  le..*/.static in
4420: 74 20 74 76 66 73 44 65 76 69 63 65 43 68 61 72  t tvfsDeviceChar
4430: 61 63 74 65 72 69 73 74 69 63 73 28 73 71 6c 69  acteristics(sqli
4440: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29  te3_file *pFile)
4450: 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70  {.  TestvfsFd *p
4460: 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70  Fd = tvfsGetFd(p
4470: 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73  File);.  Testvfs
4480: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
4490: 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  )pFd->pVfs->pApp
44a0: 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 69  Data;.  if( p->i
44b0: 44 65 76 63 68 61 72 3e 3d 30 20 29 7b 0a 20 20  Devchar>=0 ){.  
44c0: 20 20 72 65 74 75 72 6e 20 70 2d 3e 69 44 65 76    return p->iDev
44d0: 63 68 61 72 3b 0a 20 20 7d 0a 20 20 72 65 74 75  char;.  }.  retu
44e0: 72 6e 20 73 71 6c 69 74 65 33 4f 73 44 65 76 69  rn sqlite3OsDevi
44f0: 63 65 43 68 61 72 61 63 74 65 72 69 73 74 69 63  ceCharacteristic
4500: 73 28 70 46 64 2d 3e 70 52 65 61 6c 29 3b 0a 7d  s(pFd->pReal);.}
4510: 0a 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e 20 61 6e 20  ../*.** Open an 
4520: 74 76 66 73 20 66 69 6c 65 20 68 61 6e 64 6c 65  tvfs file handle
4530: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
4540: 74 76 66 73 4f 70 65 6e 28 0a 20 20 73 71 6c 69  tvfsOpen(.  sqli
4550: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 0a 20  te3_vfs *pVfs,. 
4560: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61   const char *zNa
4570: 6d 65 2c 0a 20 20 73 71 6c 69 74 65 33 5f 66 69  me,.  sqlite3_fi
4580: 6c 65 20 2a 70 46 69 6c 65 2c 0a 20 20 69 6e 74  le *pFile,.  int
4590: 20 66 6c 61 67 73 2c 0a 20 20 69 6e 74 20 2a 70   flags,.  int *p
45a0: 4f 75 74 46 6c 61 67 73 0a 29 7b 0a 20 20 69 6e  OutFlags.){.  in
45b0: 74 20 72 63 3b 0a 20 20 54 65 73 74 76 66 73 46  t rc;.  TestvfsF
45c0: 69 6c 65 20 2a 70 54 65 73 74 66 69 6c 65 20 3d  ile *pTestfile =
45d0: 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29   (TestvfsFile *)
45e0: 70 46 69 6c 65 3b 0a 20 20 54 65 73 74 76 66 73  pFile;.  Testvfs
45f0: 46 64 20 2a 70 46 64 3b 0a 20 20 54 63 6c 5f 4f  Fd *pFd;.  Tcl_O
4600: 62 6a 20 2a 70 49 64 20 3d 20 30 3b 0a 20 20 54  bj *pId = 0;.  T
4610: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
4620: 74 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70  tvfs *)pVfs->pAp
4630: 70 44 61 74 61 3b 0a 0a 20 20 70 46 64 20 3d 20  pData;..  pFd = 
4640: 28 54 65 73 74 76 66 73 46 64 20 2a 29 63 6b 61  (TestvfsFd *)cka
4650: 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 54 65 73 74  lloc(sizeof(Test
4660: 76 66 73 46 64 29 20 2b 20 50 41 52 45 4e 54 56  vfsFd) + PARENTV
4670: 46 53 28 70 56 66 73 29 2d 3e 73 7a 4f 73 46 69  FS(pVfs)->szOsFi
4680: 6c 65 29 3b 0a 20 20 6d 65 6d 73 65 74 28 70 46  le);.  memset(pF
4690: 64 2c 20 30 2c 20 73 69 7a 65 6f 66 28 54 65 73  d, 0, sizeof(Tes
46a0: 74 76 66 73 46 64 29 20 2b 20 50 41 52 45 4e 54  tvfsFd) + PARENT
46b0: 56 46 53 28 70 56 66 73 29 2d 3e 73 7a 4f 73 46  VFS(pVfs)->szOsF
46c0: 69 6c 65 29 3b 0a 20 20 70 46 64 2d 3e 70 53 68  ile);.  pFd->pSh
46d0: 6d 20 3d 20 30 3b 0a 20 20 70 46 64 2d 3e 70 53  m = 0;.  pFd->pS
46e0: 68 6d 49 64 20 3d 20 30 3b 0a 20 20 70 46 64 2d  hmId = 0;.  pFd-
46f0: 3e 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 7a 4e 61  >zFilename = zNa
4700: 6d 65 3b 0a 20 20 70 46 64 2d 3e 70 56 66 73 20  me;.  pFd->pVfs 
4710: 3d 20 70 56 66 73 3b 0a 20 20 70 46 64 2d 3e 70  = pVfs;.  pFd->p
4720: 52 65 61 6c 20 3d 20 28 73 71 6c 69 74 65 33 5f  Real = (sqlite3_
4730: 66 69 6c 65 20 2a 29 26 70 46 64 5b 31 5d 3b 0a  file *)&pFd[1];.
4740: 20 20 6d 65 6d 73 65 74 28 70 54 65 73 74 66 69    memset(pTestfi
4750: 6c 65 2c 20 30 2c 20 73 69 7a 65 6f 66 28 54 65  le, 0, sizeof(Te
4760: 73 74 76 66 73 46 69 6c 65 29 29 3b 0a 20 20 70  stvfsFile));.  p
4770: 54 65 73 74 66 69 6c 65 2d 3e 70 46 64 20 3d 20  Testfile->pFd = 
4780: 70 46 64 3b 0a 0a 20 20 2f 2a 20 45 76 61 6c 75  pFd;..  /* Evalu
4790: 61 74 65 20 74 68 65 20 54 63 6c 20 73 63 72 69  ate the Tcl scri
47a0: 70 74 3a 20 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20  pt: .  **.  **  
47b0: 20 53 43 52 49 50 54 20 78 4f 70 65 6e 20 46 49   SCRIPT xOpen FI
47c0: 4c 45 4e 41 4d 45 20 4b 45 59 2d 56 41 4c 55 45  LENAME KEY-VALUE
47d0: 2d 41 52 47 53 0a 20 20 2a 2a 0a 20 20 2a 2a 20  -ARGS.  **.  ** 
47e0: 49 66 20 74 68 65 20 73 63 72 69 70 74 20 72 65  If the script re
47f0: 74 75 72 6e 73 20 61 6e 20 53 51 4c 69 74 65 20  turns an SQLite 
4800: 65 72 72 6f 72 20 63 6f 64 65 20 6f 74 68 65 72  error code other
4810: 20 74 68 61 6e 20 53 51 4c 49 54 45 5f 4f 4b 2c   than SQLITE_OK,
4820: 20 61 6e 0a 20 20 2a 2a 20 65 72 72 6f 72 20 69   an.  ** error i
4830: 73 20 72 65 74 75 72 6e 65 64 20 74 6f 20 74 68  s returned to th
4840: 65 20 63 61 6c 6c 65 72 2e 20 49 66 20 69 74 20  e caller. If it 
4850: 72 65 74 75 72 6e 73 20 53 51 4c 49 54 45 5f 4f  returns SQLITE_O
4860: 4b 2c 20 74 68 65 20 6e 65 77 0a 20 20 2a 2a 20  K, the new.  ** 
4870: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 6e 61  connection is na
4880: 6d 65 64 20 22 61 6e 6f 6e 22 2e 20 4f 74 68 65  med "anon". Othe
4890: 72 77 69 73 65 2c 20 74 68 65 20 76 61 6c 75 65  rwise, the value
48a0: 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 65   returned by the
48b0: 0a 20 20 2a 2a 20 73 63 72 69 70 74 20 69 73 20  .  ** script is 
48c0: 75 73 65 64 20 61 73 20 74 68 65 20 63 6f 6e 6e  used as the conn
48d0: 65 63 74 69 6f 6e 20 6e 61 6d 65 2e 0a 20 20 2a  ection name..  *
48e0: 2f 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73  /.  Tcl_ResetRes
48f0: 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a  ult(p->interp);.
4900: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
4910: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
4920: 56 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 20 29 7b  VFS_OPEN_MASK ){
4930: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 41  .    Tcl_Obj *pA
4940: 72 67 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28  rg = Tcl_NewObj(
4950: 29 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52  );.    Tcl_IncrR
4960: 65 66 43 6f 75 6e 74 28 70 41 72 67 29 3b 0a 20  efCount(pArg);. 
4970: 20 20 20 69 66 28 20 66 6c 61 67 73 26 53 51 4c     if( flags&SQL
4980: 49 54 45 5f 4f 50 45 4e 5f 4d 41 49 4e 5f 44 42  ITE_OPEN_MAIN_DB
4990: 20 29 7b 0a 20 20 20 20 20 20 63 6f 6e 73 74 20   ){.      const 
49a0: 63 68 61 72 20 2a 7a 20 3d 20 26 7a 4e 61 6d 65  char *z = &zName
49b0: 5b 73 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 2b 31  [strlen(zName)+1
49c0: 5d 3b 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20  ];.      while( 
49d0: 2a 7a 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63  *z ){.        Tc
49e0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
49f0: 6c 65 6d 65 6e 74 28 30 2c 20 70 41 72 67 2c 20  lement(0, pArg, 
4a00: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
4a10: 28 7a 2c 20 2d 31 29 29 3b 0a 20 20 20 20 20 20  (z, -1));.      
4a20: 20 20 7a 20 2b 3d 20 73 74 72 6c 65 6e 28 7a 29    z += strlen(z)
4a30: 20 2b 20 31 3b 0a 20 20 20 20 20 20 20 20 54 63   + 1;.        Tc
4a40: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
4a50: 6c 65 6d 65 6e 74 28 30 2c 20 70 41 72 67 2c 20  lement(0, pArg, 
4a60: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
4a70: 28 7a 2c 20 2d 31 29 29 3b 0a 20 20 20 20 20 20  (z, -1));.      
4a80: 20 20 7a 20 2b 3d 20 73 74 72 6c 65 6e 28 7a 29    z += strlen(z)
4a90: 20 2b 20 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20   + 1;.      }.  
4aa0: 20 20 7d 0a 20 20 20 20 74 76 66 73 45 78 65 63    }.    tvfsExec
4ab0: 54 63 6c 28 70 2c 20 22 78 4f 70 65 6e 22 2c 20  Tcl(p, "xOpen", 
4ac0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
4ad0: 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c  (pFd->zFilename,
4ae0: 20 2d 31 29 2c 20 70 41 72 67 2c 20 30 2c 20 30   -1), pArg, 0, 0
4af0: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52  );.    Tcl_DecrR
4b00: 65 66 43 6f 75 6e 74 28 70 41 72 67 29 3b 0a 20  efCount(pArg);. 
4b10: 20 20 20 69 66 28 20 74 76 66 73 52 65 73 75 6c     if( tvfsResul
4b20: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 20 29 7b  tCode(p, &rc) ){
4b30: 0a 20 20 20 20 20 20 69 66 28 20 72 63 21 3d 53  .      if( rc!=S
4b40: 51 4c 49 54 45 5f 4f 4b 20 29 20 72 65 74 75 72  QLITE_OK ) retur
4b50: 6e 20 72 63 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  n rc;.    }else{
4b60: 0a 20 20 20 20 20 20 70 49 64 20 3d 20 54 63 6c  .      pId = Tcl
4b70: 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 70 2d  _GetObjResult(p-
4b80: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a  >interp);.    }.
4b90: 20 20 7d 0a 0a 20 20 69 66 28 20 28 70 2d 3e 6d    }..  if( (p->m
4ba0: 61 73 6b 26 54 45 53 54 56 46 53 5f 4f 50 45 4e  ask&TESTVFS_OPEN
4bb0: 5f 4d 41 53 4b 29 20 26 26 20 20 74 76 66 73 49  _MASK) &&  tvfsI
4bc0: 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29 20  njectIoerr(p) ) 
4bd0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f  return SQLITE_IO
4be0: 45 52 52 3b 0a 20 20 69 66 28 20 74 76 66 73 49  ERR;.  if( tvfsI
4bf0: 6e 6a 65 63 74 43 61 6e 74 6f 70 65 6e 65 72 72  njectCantopenerr
4c00: 28 70 29 20 29 20 72 65 74 75 72 6e 20 53 51 4c  (p) ) return SQL
4c10: 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 0a 20 20  ITE_CANTOPEN;.  
4c20: 69 66 28 20 74 76 66 73 49 6e 6a 65 63 74 46 75  if( tvfsInjectFu
4c30: 6c 6c 65 72 72 28 70 29 20 29 20 72 65 74 75 72  llerr(p) ) retur
4c40: 6e 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3b 0a 0a  n SQLITE_FULL;..
4c50: 20 20 69 66 28 20 21 70 49 64 20 29 7b 0a 20 20    if( !pId ){.  
4c60: 20 20 70 49 64 20 3d 20 54 63 6c 5f 4e 65 77 53    pId = Tcl_NewS
4c70: 74 72 69 6e 67 4f 62 6a 28 22 61 6e 6f 6e 22 2c  tringObj("anon",
4c80: 20 2d 31 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f   -1);.  }.  Tcl_
4c90: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 49 64  IncrRefCount(pId
4ca0: 29 3b 0a 20 20 70 46 64 2d 3e 70 53 68 6d 49 64  );.  pFd->pShmId
4cb0: 20 3d 20 70 49 64 3b 0a 20 20 54 63 6c 5f 52 65   = pId;.  Tcl_Re
4cc0: 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  setResult(p->int
4cd0: 65 72 70 29 3b 0a 0a 20 20 72 63 20 3d 20 73 71  erp);..  rc = sq
4ce0: 6c 69 74 65 33 4f 73 4f 70 65 6e 28 50 41 52 45  lite3OsOpen(PARE
4cf0: 4e 54 56 46 53 28 70 56 66 73 29 2c 20 7a 4e 61  NTVFS(pVfs), zNa
4d00: 6d 65 2c 20 70 46 64 2d 3e 70 52 65 61 6c 2c 20  me, pFd->pReal, 
4d10: 66 6c 61 67 73 2c 20 70 4f 75 74 46 6c 61 67 73  flags, pOutFlags
4d20: 29 3b 0a 20 20 69 66 28 20 70 46 64 2d 3e 70 52  );.  if( pFd->pR
4d30: 65 61 6c 2d 3e 70 4d 65 74 68 6f 64 73 20 29 7b  eal->pMethods ){
4d40: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6f 5f  .    sqlite3_io_
4d50: 6d 65 74 68 6f 64 73 20 2a 70 4d 65 74 68 6f 64  methods *pMethod
4d60: 73 3b 0a 20 20 20 20 69 6e 74 20 6e 42 79 74 65  s;.    int nByte
4d70: 3b 0a 0a 20 20 20 20 69 66 28 20 70 56 66 73 2d  ;..    if( pVfs-
4d80: 3e 69 56 65 72 73 69 6f 6e 3e 31 20 29 7b 0a 20  >iVersion>1 ){. 
4d90: 20 20 20 20 20 6e 42 79 74 65 20 3d 20 73 69 7a       nByte = siz
4da0: 65 6f 66 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d  eof(sqlite3_io_m
4db0: 65 74 68 6f 64 73 29 3b 0a 20 20 20 20 7d 65 6c  ethods);.    }el
4dc0: 73 65 7b 0a 20 20 20 20 20 20 6e 42 79 74 65 20  se{.      nByte 
4dd0: 3d 20 6f 66 66 73 65 74 6f 66 28 73 71 6c 69 74  = offsetof(sqlit
4de0: 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 2c 20 78  e3_io_methods, x
4df0: 53 68 6d 4d 61 70 29 3b 0a 20 20 20 20 7d 0a 0a  ShmMap);.    }..
4e00: 20 20 20 20 70 4d 65 74 68 6f 64 73 20 3d 20 28      pMethods = (
4e10: 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f  sqlite3_io_metho
4e20: 64 73 20 2a 29 63 6b 61 6c 6c 6f 63 28 6e 42 79  ds *)ckalloc(nBy
4e30: 74 65 29 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28  te);.    memcpy(
4e40: 70 4d 65 74 68 6f 64 73 2c 20 26 74 76 66 73 5f  pMethods, &tvfs_
4e50: 69 6f 5f 6d 65 74 68 6f 64 73 2c 20 6e 42 79 74  io_methods, nByt
4e60: 65 29 3b 0a 20 20 20 20 70 4d 65 74 68 6f 64 73  e);.    pMethods
4e70: 2d 3e 69 56 65 72 73 69 6f 6e 20 3d 20 70 46 64  ->iVersion = pFd
4e80: 2d 3e 70 52 65 61 6c 2d 3e 70 4d 65 74 68 6f 64  ->pReal->pMethod
4e90: 73 2d 3e 69 56 65 72 73 69 6f 6e 3b 0a 20 20 20  s->iVersion;.   
4ea0: 20 69 66 28 20 70 4d 65 74 68 6f 64 73 2d 3e 69   if( pMethods->i
4eb0: 56 65 72 73 69 6f 6e 3e 70 56 66 73 2d 3e 69 56  Version>pVfs->iV
4ec0: 65 72 73 69 6f 6e 20 29 7b 0a 20 20 20 20 20 20  ersion ){.      
4ed0: 70 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72 73 69  pMethods->iVersi
4ee0: 6f 6e 20 3d 20 70 56 66 73 2d 3e 69 56 65 72 73  on = pVfs->iVers
4ef0: 69 6f 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69  ion;.    }.    i
4f00: 66 28 20 70 56 66 73 2d 3e 69 56 65 72 73 69 6f  f( pVfs->iVersio
4f10: 6e 3e 31 20 26 26 20 28 28 54 65 73 74 76 66 73  n>1 && ((Testvfs
4f20: 20 2a 29 70 56 66 73 2d 3e 70 41 70 70 44 61 74   *)pVfs->pAppDat
4f30: 61 29 2d 3e 69 73 4e 6f 73 68 6d 20 29 7b 0a 20  a)->isNoshm ){. 
4f40: 20 20 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78       pMethods->x
4f50: 53 68 6d 55 6e 6d 61 70 20 3d 20 30 3b 0a 20 20  ShmUnmap = 0;.  
4f60: 20 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53      pMethods->xS
4f70: 68 6d 4c 6f 63 6b 20 3d 20 30 3b 0a 20 20 20 20  hmLock = 0;.    
4f80: 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d    pMethods->xShm
4f90: 42 61 72 72 69 65 72 20 3d 20 30 3b 0a 20 20 20  Barrier = 0;.   
4fa0: 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68     pMethods->xSh
4fb0: 6d 4d 61 70 20 3d 20 30 3b 0a 20 20 20 20 7d 0a  mMap = 0;.    }.
4fc0: 20 20 20 20 70 46 69 6c 65 2d 3e 70 4d 65 74 68      pFile->pMeth
4fd0: 6f 64 73 20 3d 20 70 4d 65 74 68 6f 64 73 3b 0a  ods = pMethods;.
4fe0: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63    }..  return rc
4ff0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 6c 65 74  ;.}../*.** Delet
5000: 65 20 74 68 65 20 66 69 6c 65 20 6c 6f 63 61 74  e the file locat
5010: 65 64 20 61 74 20 7a 50 61 74 68 2e 20 49 66 20  ed at zPath. If 
5020: 74 68 65 20 64 69 72 53 79 6e 63 20 61 72 67 75  the dirSync argu
5030: 6d 65 6e 74 20 69 73 20 74 72 75 65 2c 0a 2a 2a  ment is true,.**
5040: 20 65 6e 73 75 72 65 20 74 68 65 20 66 69 6c 65   ensure the file
5050: 2d 73 79 73 74 65 6d 20 6d 6f 64 69 66 69 63 61  -system modifica
5060: 74 69 6f 6e 73 20 61 72 65 20 73 79 6e 63 65 64  tions are synced
5070: 20 74 6f 20 64 69 73 6b 20 62 65 66 6f 72 65 0a   to disk before.
5080: 2a 2a 20 72 65 74 75 72 6e 69 6e 67 2e 0a 2a 2f  ** returning..*/
5090: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
50a0: 44 65 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76  Delete(sqlite3_v
50b0: 66 73 20 2a 70 56 66 73 2c 20 63 6f 6e 73 74 20  fs *pVfs, const 
50c0: 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 69 6e 74  char *zPath, int
50d0: 20 64 69 72 53 79 6e 63 29 7b 0a 20 20 69 6e 74   dirSync){.  int
50e0: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b   rc = SQLITE_OK;
50f0: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
5100: 28 54 65 73 74 76 66 73 20 2a 29 70 56 66 73 2d  (Testvfs *)pVfs-
5110: 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20 20 69 66  >pAppData;..  if
5120: 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20  ( p->pScript && 
5130: 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f  p->mask&TESTVFS_
5140: 44 45 4c 45 54 45 5f 4d 41 53 4b 20 29 7b 0a 20  DELETE_MASK ){. 
5150: 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70     tvfsExecTcl(p
5160: 2c 20 22 78 44 65 6c 65 74 65 22 2c 20 0a 20 20  , "xDelete", .  
5170: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
5180: 69 6e 67 4f 62 6a 28 7a 50 61 74 68 2c 20 2d 31  ingObj(zPath, -1
5190: 29 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  ), Tcl_NewIntObj
51a0: 28 64 69 72 53 79 6e 63 29 2c 20 30 2c 20 30 0a  (dirSync), 0, 0.
51b0: 20 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52      );.    tvfsR
51c0: 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63  esultCode(p, &rc
51d0: 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d  );.  }.  if( rc=
51e0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
51f0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73    rc = sqlite3Os
5200: 44 65 6c 65 74 65 28 50 41 52 45 4e 54 56 46 53  Delete(PARENTVFS
5210: 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 64  (pVfs), zPath, d
5220: 69 72 53 79 6e 63 29 3b 0a 20 20 7d 0a 20 20 72  irSync);.  }.  r
5230: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
5240: 2a 2a 20 54 65 73 74 20 66 6f 72 20 61 63 63 65  ** Test for acce
5250: 73 73 20 70 65 72 6d 69 73 73 69 6f 6e 73 2e 20  ss permissions. 
5260: 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74  Return true if t
5270: 68 65 20 72 65 71 75 65 73 74 65 64 20 70 65 72  he requested per
5280: 6d 69 73 73 69 6f 6e 0a 2a 2a 20 69 73 20 61 76  mission.** is av
5290: 61 69 6c 61 62 6c 65 2c 20 6f 72 20 66 61 6c 73  ailable, or fals
52a0: 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f 0a  e otherwise..*/.
52b0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 41  static int tvfsA
52c0: 63 63 65 73 73 28 0a 20 20 73 71 6c 69 74 65 33  ccess(.  sqlite3
52d0: 5f 76 66 73 20 2a 70 56 66 73 2c 20 0a 20 20 63  _vfs *pVfs, .  c
52e0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68  onst char *zPath
52f0: 2c 20 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c 20  , .  int flags, 
5300: 0a 20 20 69 6e 74 20 2a 70 52 65 73 4f 75 74 0a  .  int *pResOut.
5310: 29 7b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  ){.  Testvfs *p 
5320: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 56 66  = (Testvfs *)pVf
5330: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69  s->pAppData;.  i
5340: 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26  f( p->pScript &&
5350: 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53   p->mask&TESTVFS
5360: 5f 41 43 43 45 53 53 5f 4d 41 53 4b 20 29 7b 0a  _ACCESS_MASK ){.
5370: 20 20 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 20      int rc;.    
5380: 63 68 61 72 20 2a 7a 41 72 67 20 3d 20 30 3b 0a  char *zArg = 0;.
5390: 20 20 20 20 69 66 28 20 66 6c 61 67 73 3d 3d 53      if( flags==S
53a0: 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 45 58 49  QLITE_ACCESS_EXI
53b0: 53 54 53 20 29 20 7a 41 72 67 20 3d 20 22 53 51  STS ) zArg = "SQ
53c0: 4c 49 54 45 5f 41 43 43 45 53 53 5f 45 58 49 53  LITE_ACCESS_EXIS
53d0: 54 53 22 3b 0a 20 20 20 20 69 66 28 20 66 6c 61  TS";.    if( fla
53e0: 67 73 3d 3d 53 51 4c 49 54 45 5f 41 43 43 45 53  gs==SQLITE_ACCES
53f0: 53 5f 52 45 41 44 57 52 49 54 45 20 29 20 7a 41  S_READWRITE ) zA
5400: 72 67 20 3d 20 22 53 51 4c 49 54 45 5f 41 43 43  rg = "SQLITE_ACC
5410: 45 53 53 5f 52 45 41 44 57 52 49 54 45 22 3b 0a  ESS_READWRITE";.
5420: 20 20 20 20 69 66 28 20 66 6c 61 67 73 3d 3d 53      if( flags==S
5430: 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41  QLITE_ACCESS_REA
5440: 44 20 29 20 7a 41 72 67 20 3d 20 22 53 51 4c 49  D ) zArg = "SQLI
5450: 54 45 5f 41 43 43 45 53 53 5f 52 45 41 44 22 3b  TE_ACCESS_READ";
5460: 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c  .    tvfsExecTcl
5470: 28 70 2c 20 22 78 41 63 63 65 73 73 22 2c 20 0a  (p, "xAccess", .
5480: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
5490: 74 72 69 6e 67 4f 62 6a 28 7a 50 61 74 68 2c 20  tringObj(zPath, 
54a0: 2d 31 29 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  -1), Tcl_NewStri
54b0: 6e 67 4f 62 6a 28 7a 41 72 67 2c 20 2d 31 29 2c  ngObj(zArg, -1),
54c0: 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20   0, 0.    );.   
54d0: 20 69 66 28 20 74 76 66 73 52 65 73 75 6c 74 43   if( tvfsResultC
54e0: 6f 64 65 28 70 2c 20 26 72 63 29 20 29 7b 0a 20  ode(p, &rc) ){. 
54f0: 20 20 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c       if( rc!=SQL
5500: 49 54 45 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20  ITE_OK ) return 
5510: 72 63 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20  rc;.    }else{. 
5520: 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20       Tcl_Interp 
5530: 2a 69 6e 74 65 72 70 20 3d 20 70 2d 3e 69 6e 74  *interp = p->int
5540: 65 72 70 3b 0a 20 20 20 20 20 20 69 66 28 20 54  erp;.      if( T
5550: 43 4c 5f 4f 4b 3d 3d 54 63 6c 5f 47 65 74 42 6f  CL_OK==Tcl_GetBo
5560: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 30 2c 20  oleanFromObj(0, 
5570: 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_GetObjResult
5580: 28 69 6e 74 65 72 70 29 2c 20 70 52 65 73 4f 75  (interp), pResOu
5590: 74 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65  t) ){.        re
55a0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
55b0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
55c0: 7d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  }.  return sqlit
55d0: 65 33 4f 73 41 63 63 65 73 73 28 50 41 52 45 4e  e3OsAccess(PAREN
55e0: 54 56 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74  TVFS(pVfs), zPat
55f0: 68 2c 20 66 6c 61 67 73 2c 20 70 52 65 73 4f 75  h, flags, pResOu
5600: 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70  t);.}../*.** Pop
5610: 75 6c 61 74 65 20 62 75 66 66 65 72 20 7a 4f 75  ulate buffer zOu
5620: 74 20 77 69 74 68 20 74 68 65 20 66 75 6c 6c 20  t with the full 
5630: 63 61 6e 6f 6e 69 63 61 6c 20 70 61 74 68 6e 61  canonical pathna
5640: 6d 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67  me corresponding
5650: 0a 2a 2a 20 74 6f 20 74 68 65 20 70 61 74 68 6e  .** to the pathn
5660: 61 6d 65 20 69 6e 20 7a 50 61 74 68 2e 20 7a 4f  ame in zPath. zO
5670: 75 74 20 69 73 20 67 75 61 72 61 6e 74 65 65 64  ut is guaranteed
5680: 20 74 6f 20 70 6f 69 6e 74 20 74 6f 20 61 20 62   to point to a b
5690: 75 66 66 65 72 0a 2a 2a 20 6f 66 20 61 74 20 6c  uffer.** of at l
56a0: 65 61 73 74 20 28 44 45 56 53 59 4d 5f 4d 41 58  east (DEVSYM_MAX
56b0: 5f 50 41 54 48 4e 41 4d 45 2b 31 29 20 62 79 74  _PATHNAME+1) byt
56c0: 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  es..*/.static in
56d0: 74 20 74 76 66 73 46 75 6c 6c 50 61 74 68 6e 61  t tvfsFullPathna
56e0: 6d 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66  me(.  sqlite3_vf
56f0: 73 20 2a 70 56 66 73 2c 20 0a 20 20 63 6f 6e 73  s *pVfs, .  cons
5700: 74 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 0a  t char *zPath, .
5710: 20 20 69 6e 74 20 6e 4f 75 74 2c 20 0a 20 20 63    int nOut, .  c
5720: 68 61 72 20 2a 7a 4f 75 74 0a 29 7b 0a 20 20 54  har *zOut.){.  T
5730: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
5740: 74 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70  tvfs *)pVfs->pAp
5750: 70 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e  pData;.  if( p->
5760: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
5770: 73 6b 26 54 45 53 54 56 46 53 5f 46 55 4c 4c 50  sk&TESTVFS_FULLP
5780: 41 54 48 4e 41 4d 45 5f 4d 41 53 4b 20 29 7b 0a  ATHNAME_MASK ){.
5790: 20 20 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 20      int rc;.    
57a0: 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22  tvfsExecTcl(p, "
57b0: 78 46 75 6c 6c 50 61 74 68 6e 61 6d 65 22 2c 20  xFullPathname", 
57c0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
57d0: 28 7a 50 61 74 68 2c 20 2d 31 29 2c 20 30 2c 20  (zPath, -1), 0, 
57e0: 30 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20 74  0, 0);.    if( t
57f0: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
5800: 20 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69   &rc) ){.      i
5810: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc!=SQLITE_OK
5820: 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20   ) return rc;.  
5830: 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e    }.  }.  return
5840: 20 73 71 6c 69 74 65 33 4f 73 46 75 6c 6c 50 61   sqlite3OsFullPa
5850: 74 68 6e 61 6d 65 28 50 41 52 45 4e 54 56 46 53  thname(PARENTVFS
5860: 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 6e  (pVfs), zPath, n
5870: 4f 75 74 2c 20 7a 4f 75 74 29 3b 0a 7d 0a 0a 23  Out, zOut);.}..#
5880: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
5890: 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f  IT_LOAD_EXTENSIO
58a0: 4e 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e 20 74 68 65  N./*.** Open the
58b0: 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79   dynamic library
58c0: 20 6c 6f 63 61 74 65 64 20 61 74 20 7a 50 61 74   located at zPat
58d0: 68 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 68  h and return a h
58e0: 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  andle..*/.static
58f0: 20 76 6f 69 64 20 2a 74 76 66 73 44 6c 4f 70 65   void *tvfsDlOpe
5900: 6e 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70  n(sqlite3_vfs *p
5910: 56 66 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  Vfs, const char 
5920: 2a 7a 50 61 74 68 29 7b 0a 20 20 72 65 74 75 72  *zPath){.  retur
5930: 6e 20 73 71 6c 69 74 65 33 4f 73 44 6c 4f 70 65  n sqlite3OsDlOpe
5940: 6e 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  n(PARENTVFS(pVfs
5950: 29 2c 20 7a 50 61 74 68 29 3b 0a 7d 0a 0a 2f 2a  ), zPath);.}../*
5960: 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 74 68 65  .** Populate the
5970: 20 62 75 66 66 65 72 20 7a 45 72 72 4d 73 67 20   buffer zErrMsg 
5980: 28 73 69 7a 65 20 6e 42 79 74 65 20 62 79 74 65  (size nByte byte
5990: 73 29 20 77 69 74 68 20 61 20 68 75 6d 61 6e 20  s) with a human 
59a0: 72 65 61 64 61 62 6c 65 0a 2a 2a 20 75 74 66 2d  readable.** utf-
59b0: 38 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62  8 string describ
59c0: 69 6e 67 20 74 68 65 20 6d 6f 73 74 20 72 65 63  ing the most rec
59d0: 65 6e 74 20 65 72 72 6f 72 20 65 6e 63 6f 75 6e  ent error encoun
59e0: 74 65 72 65 64 20 61 73 73 6f 63 69 61 74 65 64  tered associated
59f0: 20 0a 2a 2a 20 77 69 74 68 20 64 79 6e 61 6d 69   .** with dynami
5a00: 63 20 6c 69 62 72 61 72 69 65 73 2e 0a 2a 2f 0a  c libraries..*/.
5a10: 73 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73  static void tvfs
5a20: 44 6c 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f  DlError(sqlite3_
5a30: 76 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e  vfs *pVfs, int n
5a40: 42 79 74 65 2c 20 63 68 61 72 20 2a 7a 45 72 72  Byte, char *zErr
5a50: 4d 73 67 29 7b 0a 20 20 73 71 6c 69 74 65 33 4f  Msg){.  sqlite3O
5a60: 73 44 6c 45 72 72 6f 72 28 50 41 52 45 4e 54 56  sDlError(PARENTV
5a70: 46 53 28 70 56 66 73 29 2c 20 6e 42 79 74 65 2c  FS(pVfs), nByte,
5a80: 20 7a 45 72 72 4d 73 67 29 3b 0a 7d 0a 0a 2f 2a   zErrMsg);.}../*
5a90: 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69  .** Return a poi
5aa0: 6e 74 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62  nter to the symb
5ab0: 6f 6c 20 7a 53 79 6d 62 6f 6c 20 69 6e 20 74 68  ol zSymbol in th
5ac0: 65 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72  e dynamic librar
5ad0: 79 20 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74  y pHandle..*/.st
5ae0: 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76 66 73  atic void (*tvfs
5af0: 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f 76 66  DlSym(sqlite3_vf
5b00: 73 20 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70  s *pVfs, void *p
5b10: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53  , const char *zS
5b20: 79 6d 29 29 28 76 6f 69 64 29 7b 0a 20 20 72 65  ym))(void){.  re
5b30: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 44 6c  turn sqlite3OsDl
5b40: 53 79 6d 28 50 41 52 45 4e 54 56 46 53 28 70 56  Sym(PARENTVFS(pV
5b50: 66 73 29 2c 20 70 2c 20 7a 53 79 6d 29 3b 0a 7d  fs), p, zSym);.}
5b60: 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 74 68  ../*.** Close th
5b70: 65 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72  e dynamic librar
5b80: 79 20 68 61 6e 64 6c 65 20 70 48 61 6e 64 6c 65  y handle pHandle
5b90: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
5ba0: 20 74 76 66 73 44 6c 43 6c 6f 73 65 28 73 71 6c   tvfsDlClose(sql
5bb0: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
5bc0: 76 6f 69 64 20 2a 70 48 61 6e 64 6c 65 29 7b 0a  void *pHandle){.
5bd0: 20 20 73 71 6c 69 74 65 33 4f 73 44 6c 43 6c 6f    sqlite3OsDlClo
5be0: 73 65 28 50 41 52 45 4e 54 56 46 53 28 70 56 66  se(PARENTVFS(pVf
5bf0: 73 29 2c 20 70 48 61 6e 64 6c 65 29 3b 0a 7d 0a  s), pHandle);.}.
5c00: 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45  #endif /* SQLITE
5c10: 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e  _OMIT_LOAD_EXTEN
5c20: 53 49 4f 4e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50  SION */../*.** P
5c30: 6f 70 75 6c 61 74 65 20 74 68 65 20 62 75 66 66  opulate the buff
5c40: 65 72 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79  er pointed to by
5c50: 20 7a 42 75 66 4f 75 74 20 77 69 74 68 20 6e 42   zBufOut with nB
5c60: 79 74 65 20 62 79 74 65 73 20 6f 66 20 0a 2a 2a  yte bytes of .**
5c70: 20 72 61 6e 64 6f 6d 20 64 61 74 61 2e 0a 2a 2f   random data..*/
5c80: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
5c90: 52 61 6e 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74  Randomness(sqlit
5ca0: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 69 6e  e3_vfs *pVfs, in
5cb0: 74 20 6e 42 79 74 65 2c 20 63 68 61 72 20 2a 7a  t nByte, char *z
5cc0: 42 75 66 4f 75 74 29 7b 0a 20 20 72 65 74 75 72  BufOut){.  retur
5cd0: 6e 20 73 71 6c 69 74 65 33 4f 73 52 61 6e 64 6f  n sqlite3OsRando
5ce0: 6d 6e 65 73 73 28 50 41 52 45 4e 54 56 46 53 28  mness(PARENTVFS(
5cf0: 70 56 66 73 29 2c 20 6e 42 79 74 65 2c 20 7a 42  pVfs), nByte, zB
5d00: 75 66 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  ufOut);.}../*.**
5d10: 20 53 6c 65 65 70 20 66 6f 72 20 6e 4d 69 63 72   Sleep for nMicr
5d20: 6f 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 2e 20  o microseconds. 
5d30: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65  Return the numbe
5d40: 72 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e 64  r of microsecond
5d50: 73 20 0a 2a 2a 20 61 63 74 75 61 6c 6c 79 20 73  s .** actually s
5d60: 6c 65 70 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  lept..*/.static 
5d70: 69 6e 74 20 74 76 66 73 53 6c 65 65 70 28 73 71  int tvfsSleep(sq
5d80: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
5d90: 20 69 6e 74 20 6e 4d 69 63 72 6f 29 7b 0a 20 20   int nMicro){.  
5da0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
5db0: 53 6c 65 65 70 28 50 41 52 45 4e 54 56 46 53 28  Sleep(PARENTVFS(
5dc0: 70 56 66 73 29 2c 20 6e 4d 69 63 72 6f 29 3b 0a  pVfs), nMicro);.
5dd0: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
5de0: 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65  the current time
5df0: 20 61 73 20 61 20 4a 75 6c 69 61 6e 20 44 61 79   as a Julian Day
5e00: 20 6e 75 6d 62 65 72 20 69 6e 20 2a 70 54 69 6d   number in *pTim
5e10: 65 4f 75 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  eOut..*/.static 
5e20: 69 6e 74 20 74 76 66 73 43 75 72 72 65 6e 74 54  int tvfsCurrentT
5e30: 69 6d 65 28 73 71 6c 69 74 65 33 5f 76 66 73 20  ime(sqlite3_vfs 
5e40: 2a 70 56 66 73 2c 20 64 6f 75 62 6c 65 20 2a 70  *pVfs, double *p
5e50: 54 69 6d 65 4f 75 74 29 7b 0a 20 20 72 65 74 75  TimeOut){.  retu
5e60: 72 6e 20 50 41 52 45 4e 54 56 46 53 28 70 56 66  rn PARENTVFS(pVf
5e70: 73 29 2d 3e 78 43 75 72 72 65 6e 74 54 69 6d 65  s)->xCurrentTime
5e80: 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29  (PARENTVFS(pVfs)
5e90: 2c 20 70 54 69 6d 65 4f 75 74 29 3b 0a 7d 0a 0a  , pTimeOut);.}..
5ea0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
5eb0: 68 6d 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 66  hmOpen(sqlite3_f
5ec0: 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54  ile *pFile){.  T
5ed0: 65 73 74 76 66 73 20 2a 70 3b 0a 20 20 69 6e 74  estvfs *p;.  int
5ee0: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b   rc = SQLITE_OK;
5ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
5f00: 52 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 20  Return code */. 
5f10: 20 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a   TestvfsBuffer *
5f20: 70 42 75 66 66 65 72 3b 20 20 20 20 20 20 20 20  pBuffer;        
5f30: 20 2f 2a 20 42 75 66 66 65 72 20 74 6f 20 6f 70   /* Buffer to op
5f40: 65 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f  en connection to
5f50: 20 2a 2f 0a 20 20 54 65 73 74 76 66 73 46 64 20   */.  TestvfsFd 
5f60: 2a 70 46 64 3b 20 20 20 20 20 20 20 20 20 20 20  *pFd;           
5f70: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 74 65 73        /* The tes
5f80: 74 76 66 73 20 66 69 6c 65 20 73 74 72 75 63 74  tvfs file struct
5f90: 75 72 65 20 2a 2f 0a 0a 20 20 70 46 64 20 3d 20  ure */..  pFd = 
5fa0: 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65 29  tvfsGetFd(pFile)
5fb0: 3b 0a 20 20 70 20 3d 20 28 54 65 73 74 76 66 73  ;.  p = (Testvfs
5fc0: 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41   *)pFd->pVfs->pA
5fd0: 70 70 44 61 74 61 3b 0a 20 20 61 73 73 65 72 74  ppData;.  assert
5fe0: 28 20 30 3d 3d 70 2d 3e 69 73 46 75 6c 6c 73 68  ( 0==p->isFullsh
5ff0: 6d 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70  m );.  assert( p
6000: 46 64 2d 3e 70 53 68 6d 49 64 20 26 26 20 70 46  Fd->pShmId && pF
6010: 64 2d 3e 70 53 68 6d 3d 3d 30 20 26 26 20 70 46  d->pShm==0 && pF
6020: 64 2d 3e 70 4e 65 78 74 3d 3d 30 20 29 3b 0a 0a  d->pNext==0 );..
6030: 20 20 2f 2a 20 45 76 61 6c 75 61 74 65 20 74 68    /* Evaluate th
6040: 65 20 54 63 6c 20 73 63 72 69 70 74 3a 20 0a 20  e Tcl script: . 
6050: 20 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52 49 50   **.  **   SCRIP
6060: 54 20 78 53 68 6d 4f 70 65 6e 20 46 49 4c 45 4e  T xShmOpen FILEN
6070: 41 4d 45 0a 20 20 2a 2f 0a 20 20 54 63 6c 5f 52  AME.  */.  Tcl_R
6080: 65 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e  esetResult(p->in
6090: 74 65 72 70 29 3b 0a 20 20 69 66 28 20 70 2d 3e  terp);.  if( p->
60a0: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
60b0: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4f 50  sk&TESTVFS_SHMOP
60c0: 45 4e 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74  EN_MASK ){.    t
60d0: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
60e0: 53 68 6d 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65  ShmOpen", Tcl_Ne
60f0: 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e  wStringObj(pFd->
6100: 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20  zFilename, -1), 
6110: 30 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 66  0, 0, 0);.    if
6120: 28 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65  ( tvfsResultCode
6130: 28 70 2c 20 26 72 63 29 20 29 7b 0a 20 20 20 20  (p, &rc) ){.    
6140: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45    if( rc!=SQLITE
6150: 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20 72 63 3b  _OK ) return rc;
6160: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 61 73  .    }.  }..  as
6170: 73 65 72 74 28 20 72 63 3d 3d 53 51 4c 49 54 45  sert( rc==SQLITE
6180: 5f 4f 4b 20 29 3b 0a 20 20 69 66 28 20 70 2d 3e  _OK );.  if( p->
6190: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d  mask&TESTVFS_SHM
61a0: 4f 50 45 4e 5f 4d 41 53 4b 20 26 26 20 74 76 66  OPEN_MASK && tvf
61b0: 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20  sInjectIoerr(p) 
61c0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51  ){.    return SQ
61d0: 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a  LITE_IOERR;.  }.
61e0: 0a 20 20 2f 2a 20 53 65 61 72 63 68 20 66 6f 72  .  /* Search for
61f0: 20 61 20 54 65 73 74 76 66 73 42 75 66 66 65 72   a TestvfsBuffer
6200: 2e 20 43 72 65 61 74 65 20 61 20 6e 65 77 20 6f  . Create a new o
6210: 6e 65 20 69 66 20 72 65 71 75 69 72 65 64 2e 20  ne if required. 
6220: 2a 2f 0a 20 20 66 6f 72 28 70 42 75 66 66 65 72  */.  for(pBuffer
6230: 3d 70 2d 3e 70 42 75 66 66 65 72 3b 20 70 42 75  =p->pBuffer; pBu
6240: 66 66 65 72 3b 20 70 42 75 66 66 65 72 3d 70 42  ffer; pBuffer=pB
6250: 75 66 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a 20  uffer->pNext){. 
6260: 20 20 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70     if( 0==strcmp
6270: 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c  (pFd->zFilename,
6280: 20 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 29   pBuffer->zFile)
6290: 20 29 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20   ) break;.  }.  
62a0: 69 66 28 20 21 70 42 75 66 66 65 72 20 29 7b 0a  if( !pBuffer ){.
62b0: 20 20 20 20 69 6e 74 20 73 7a 4e 61 6d 65 20 3d      int szName =
62c0: 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 70 46 64   (int)strlen(pFd
62d0: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20  ->zFilename);.  
62e0: 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 73 69    int nByte = si
62f0: 7a 65 6f 66 28 54 65 73 74 76 66 73 42 75 66 66  zeof(TestvfsBuff
6300: 65 72 29 20 2b 20 73 7a 4e 61 6d 65 20 2b 20 31  er) + szName + 1
6310: 3b 0a 20 20 20 20 70 42 75 66 66 65 72 20 3d 20  ;.    pBuffer = 
6320: 28 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a  (TestvfsBuffer *
6330: 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b  )ckalloc(nByte);
6340: 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 42 75 66  .    memset(pBuf
6350: 66 65 72 2c 20 30 2c 20 6e 42 79 74 65 29 3b 0a  fer, 0, nByte);.
6360: 20 20 20 20 70 42 75 66 66 65 72 2d 3e 7a 46 69      pBuffer->zFi
6370: 6c 65 20 3d 20 28 63 68 61 72 20 2a 29 26 70 42  le = (char *)&pB
6380: 75 66 66 65 72 5b 31 5d 3b 0a 20 20 20 20 6d 65  uffer[1];.    me
6390: 6d 63 70 79 28 70 42 75 66 66 65 72 2d 3e 7a 46  mcpy(pBuffer->zF
63a0: 69 6c 65 2c 20 70 46 64 2d 3e 7a 46 69 6c 65 6e  ile, pFd->zFilen
63b0: 61 6d 65 2c 20 73 7a 4e 61 6d 65 2b 31 29 3b 0a  ame, szName+1);.
63c0: 20 20 20 20 70 42 75 66 66 65 72 2d 3e 70 4e 65      pBuffer->pNe
63d0: 78 74 20 3d 20 70 2d 3e 70 42 75 66 66 65 72 3b  xt = p->pBuffer;
63e0: 0a 20 20 20 20 70 2d 3e 70 42 75 66 66 65 72 20  .    p->pBuffer 
63f0: 3d 20 70 42 75 66 66 65 72 3b 0a 20 20 7d 0a 0a  = pBuffer;.  }..
6400: 20 20 2f 2a 20 43 6f 6e 6e 65 63 74 20 74 68 65    /* Connect the
6410: 20 54 65 73 74 76 66 73 42 75 66 66 65 72 20 74   TestvfsBuffer t
6420: 6f 20 74 68 65 20 6e 65 77 20 54 65 73 74 76 66  o the new Testvf
6430: 73 53 68 6d 20 68 61 6e 64 6c 65 20 61 6e 64 20  sShm handle and 
6440: 72 65 74 75 72 6e 2e 20 2a 2f 0a 20 20 70 46 64  return. */.  pFd
6450: 2d 3e 70 4e 65 78 74 20 3d 20 70 42 75 66 66 65  ->pNext = pBuffe
6460: 72 2d 3e 70 46 69 6c 65 3b 0a 20 20 70 42 75 66  r->pFile;.  pBuf
6470: 66 65 72 2d 3e 70 46 69 6c 65 20 3d 20 70 46 64  fer->pFile = pFd
6480: 3b 0a 20 20 70 46 64 2d 3e 70 53 68 6d 20 3d 20  ;.  pFd->pShm = 
6490: 70 42 75 66 66 65 72 3b 0a 20 20 72 65 74 75 72  pBuffer;.  retur
64a0: 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  n rc;.}..static 
64b0: 76 6f 69 64 20 74 76 66 73 41 6c 6c 6f 63 50 61  void tvfsAllocPa
64c0: 67 65 28 54 65 73 74 76 66 73 42 75 66 66 65 72  ge(TestvfsBuffer
64d0: 20 2a 70 2c 20 69 6e 74 20 69 50 61 67 65 2c 20   *p, int iPage, 
64e0: 69 6e 74 20 70 67 73 7a 29 7b 0a 20 20 61 73 73  int pgsz){.  ass
64f0: 65 72 74 28 20 69 50 61 67 65 3c 54 45 53 54 56  ert( iPage<TESTV
6500: 46 53 5f 4d 41 58 5f 50 41 47 45 53 20 29 3b 0a  FS_MAX_PAGES );.
6510: 20 20 69 66 28 20 70 2d 3e 61 50 61 67 65 5b 69    if( p->aPage[i
6520: 50 61 67 65 5d 3d 3d 30 20 29 7b 0a 20 20 20 20  Page]==0 ){.    
6530: 70 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d 20  p->aPage[iPage] 
6540: 3d 20 28 75 38 20 2a 29 63 6b 61 6c 6c 6f 63 28  = (u8 *)ckalloc(
6550: 70 67 73 7a 29 3b 0a 20 20 20 20 6d 65 6d 73 65  pgsz);.    memse
6560: 74 28 70 2d 3e 61 50 61 67 65 5b 69 50 61 67 65  t(p->aPage[iPage
6570: 5d 2c 20 30 2c 20 70 67 73 7a 29 3b 0a 20 20 20  ], 0, pgsz);.   
6580: 20 70 2d 3e 70 67 73 7a 20 3d 20 70 67 73 7a 3b   p->pgsz = pgsz;
6590: 0a 20 20 7d 0a 7d 0a 0a 73 74 61 74 69 63 20 69  .  }.}..static i
65a0: 6e 74 20 74 76 66 73 53 68 6d 4d 61 70 28 0a 20  nt tvfsShmMap(. 
65b0: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
65c0: 46 69 6c 65 2c 20 20 20 20 20 20 20 20 20 20 20  File,           
65d0: 20 2f 2a 20 48 61 6e 64 6c 65 20 6f 70 65 6e 20   /* Handle open 
65e0: 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  on database file
65f0: 20 2a 2f 0a 20 20 69 6e 74 20 69 50 61 67 65 2c   */.  int iPage,
6600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6610: 20 20 20 20 20 20 2f 2a 20 50 61 67 65 20 74 6f        /* Page to
6620: 20 72 65 74 72 69 65 76 65 20 2a 2f 0a 20 20 69   retrieve */.  i
6630: 6e 74 20 70 67 73 7a 2c 20 20 20 20 20 20 20 20  nt pgsz,        
6640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
6650: 2a 20 53 69 7a 65 20 6f 66 20 70 61 67 65 73 20  * Size of pages 
6660: 2a 2f 0a 20 20 69 6e 74 20 69 73 57 72 69 74 65  */.  int isWrite
6670: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
6680: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20       /* True to 
6690: 65 78 74 65 6e 64 20 66 69 6c 65 20 69 66 20 6e  extend file if n
66a0: 65 63 65 73 73 61 72 79 20 2a 2f 0a 20 20 76 6f  ecessary */.  vo
66b0: 69 64 20 76 6f 6c 61 74 69 6c 65 20 2a 2a 70 70  id volatile **pp
66c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
66d0: 20 4f 55 54 3a 20 4d 61 70 70 65 64 20 6d 65 6d   OUT: Mapped mem
66e0: 6f 72 79 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20  ory */.){.  int 
66f0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
6700: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
6710: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
6720: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
6730: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28  p = (Testvfs *)(
6740: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
6750: 61 74 61 29 3b 0a 0a 20 20 69 66 28 20 70 2d 3e  ata);..  if( p->
6760: 69 73 46 75 6c 6c 73 68 6d 20 29 7b 0a 20 20 20  isFullshm ){.   
6770: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
6780: 73 53 68 6d 4d 61 70 28 70 46 64 2d 3e 70 52 65  sShmMap(pFd->pRe
6790: 61 6c 2c 20 69 50 61 67 65 2c 20 70 67 73 7a 2c  al, iPage, pgsz,
67a0: 20 69 73 57 72 69 74 65 2c 20 70 70 29 3b 0a 20   isWrite, pp);. 
67b0: 20 7d 0a 0a 20 20 69 66 28 20 30 3d 3d 70 46 64   }..  if( 0==pFd
67c0: 2d 3e 70 53 68 6d 20 29 7b 0a 20 20 20 20 72 63  ->pShm ){.    rc
67d0: 20 3d 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 70   = tvfsShmOpen(p
67e0: 46 69 6c 65 29 3b 0a 20 20 20 20 69 66 28 20 72  File);.    if( r
67f0: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c!=SQLITE_OK ){.
6800: 20 20 20 20 20 20 72 65 74 75 72 6e 20 72 63 3b        return rc;
6810: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 69 66  .    }.  }..  if
6820: 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20  ( p->pScript && 
6830: 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f  p->mask&TESTVFS_
6840: 53 48 4d 4d 41 50 5f 4d 41 53 4b 20 29 7b 0a 20  SHMMAP_MASK ){. 
6850: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 41 72 67     Tcl_Obj *pArg
6860: 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b   = Tcl_NewObj();
6870: 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66  .    Tcl_IncrRef
6880: 43 6f 75 6e 74 28 70 41 72 67 29 3b 0a 20 20 20  Count(pArg);.   
6890: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
68a0: 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74  ndElement(p->int
68b0: 65 72 70 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e  erp, pArg, Tcl_N
68c0: 65 77 49 6e 74 4f 62 6a 28 69 50 61 67 65 29 29  ewIntObj(iPage))
68d0: 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ;.    Tcl_ListOb
68e0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70  jAppendElement(p
68f0: 2d 3e 69 6e 74 65 72 70 2c 20 70 41 72 67 2c 20  ->interp, pArg, 
6900: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 67  Tcl_NewIntObj(pg
6910: 73 7a 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69  sz));.    Tcl_Li
6920: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
6930: 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 41  nt(p->interp, pA
6940: 72 67 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62  rg, Tcl_NewIntOb
6950: 6a 28 69 73 57 72 69 74 65 29 29 3b 0a 20 20 20  j(isWrite));.   
6960: 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20   tvfsExecTcl(p, 
6970: 22 78 53 68 6d 4d 61 70 22 2c 20 0a 20 20 20 20  "xShmMap", .    
6980: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e      Tcl_NewStrin
6990: 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e  gObj(pFd->pShm->
69a0: 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d  zFile, -1), pFd-
69b0: 3e 70 53 68 6d 49 64 2c 20 70 41 72 67 2c 20 30  >pShmId, pArg, 0
69c0: 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73  .    );.    tvfs
69d0: 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72  ResultCode(p, &r
69e0: 63 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72  c);.    Tcl_Decr
69f0: 52 65 66 43 6f 75 6e 74 28 70 41 72 67 29 3b 0a  RefCount(pArg);.
6a00: 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d 53 51    }.  if( rc==SQ
6a10: 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e 6d 61  LITE_OK && p->ma
6a20: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4d 41  sk&TESTVFS_SHMMA
6a30: 50 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49 6e  P_MASK && tvfsIn
6a40: 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b 0a  jectIoerr(p) ){.
6a50: 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f      rc = SQLITE_
6a60: 49 4f 45 52 52 3b 0a 20 20 7d 0a 0a 20 20 69 66  IOERR;.  }..  if
6a70: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
6a80: 26 26 20 69 73 57 72 69 74 65 20 26 26 20 21 70  && isWrite && !p
6a90: 46 64 2d 3e 70 53 68 6d 2d 3e 61 50 61 67 65 5b  Fd->pShm->aPage[
6aa0: 69 50 61 67 65 5d 20 29 7b 0a 20 20 20 20 74 76  iPage] ){.    tv
6ab0: 66 73 41 6c 6c 6f 63 50 61 67 65 28 70 46 64 2d  fsAllocPage(pFd-
6ac0: 3e 70 53 68 6d 2c 20 69 50 61 67 65 2c 20 70 67  >pShm, iPage, pg
6ad0: 73 7a 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72  sz);.  }.  if( r
6ae0: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 7c 7c 20  c==SQLITE_OK || 
6af0: 72 63 3d 3d 53 51 4c 49 54 45 5f 52 45 41 44 4f  rc==SQLITE_READO
6b00: 4e 4c 59 20 29 7b 0a 20 20 20 20 2a 70 70 20 3d  NLY ){.    *pp =
6b10: 20 28 76 6f 69 64 20 76 6f 6c 61 74 69 6c 65 20   (void volatile 
6b20: 2a 29 70 46 64 2d 3e 70 53 68 6d 2d 3e 61 50 61  *)pFd->pShm->aPa
6b30: 67 65 5b 69 50 61 67 65 5d 3b 0a 20 20 7d 0a 0a  ge[iPage];.  }..
6b40: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
6b50: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
6b60: 53 68 6d 4c 6f 63 6b 28 0a 20 20 73 71 6c 69 74  ShmLock(.  sqlit
6b70: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 0a  e3_file *pFile,.
6b80: 20 20 69 6e 74 20 6f 66 73 74 2c 0a 20 20 69 6e    int ofst,.  in
6b90: 74 20 6e 2c 0a 20 20 69 6e 74 20 66 6c 61 67 73  t n,.  int flags
6ba0: 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53  .){.  int rc = S
6bb0: 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74  QLITE_OK;.  Test
6bc0: 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66  vfsFd *pFd = tvf
6bd0: 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20  sGetFd(pFile);. 
6be0: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
6bf0: 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70  estvfs *)(pFd->p
6c00: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a  Vfs->pAppData);.
6c10: 20 20 69 6e 74 20 6e 4c 6f 63 6b 3b 0a 20 20 63    int nLock;.  c
6c20: 68 61 72 20 7a 4c 6f 63 6b 5b 38 30 5d 3b 0a 0a  har zLock[80];..
6c30: 20 20 69 66 28 20 70 2d 3e 69 73 46 75 6c 6c 73    if( p->isFulls
6c40: 68 6d 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  hm ){.    return
6c50: 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 4c 6f 63   sqlite3OsShmLoc
6c60: 6b 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 6f 66  k(pFd->pReal, of
6c70: 73 74 2c 20 6e 2c 20 66 6c 61 67 73 29 3b 0a 20  st, n, flags);. 
6c80: 20 7d 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63   }..  if( p->pSc
6c90: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
6ca0: 54 45 53 54 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f  TESTVFS_SHMLOCK_
6cb0: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 73 71 6c 69  MASK ){.    sqli
6cc0: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a  te3_snprintf(siz
6cd0: 65 6f 66 28 7a 4c 6f 63 6b 29 2c 20 7a 4c 6f 63  eof(zLock), zLoc
6ce0: 6b 2c 20 22 25 64 20 25 64 22 2c 20 6f 66 73 74  k, "%d %d", ofst
6cf0: 2c 20 6e 29 3b 0a 20 20 20 20 6e 4c 6f 63 6b 20  , n);.    nLock 
6d00: 3d 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 7a 4c  = (int)strlen(zL
6d10: 6f 63 6b 29 3b 0a 20 20 20 20 69 66 28 20 66 6c  ock);.    if( fl
6d20: 61 67 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d  ags & SQLITE_SHM
6d30: 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 20 20 73  _LOCK ){.      s
6d40: 74 72 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f  trcpy(&zLock[nLo
6d50: 63 6b 5d 2c 20 22 20 6c 6f 63 6b 22 29 3b 0a 20  ck], " lock");. 
6d60: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
6d70: 73 74 72 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c  strcpy(&zLock[nL
6d80: 6f 63 6b 5d 2c 20 22 20 75 6e 6c 6f 63 6b 22 29  ock], " unlock")
6d90: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6e 4c 6f 63  ;.    }.    nLoc
6da0: 6b 20 2b 3d 20 28 69 6e 74 29 73 74 72 6c 65 6e  k += (int)strlen
6db0: 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 29 3b  (&zLock[nLock]);
6dc0: 0a 20 20 20 20 69 66 28 20 66 6c 61 67 73 20 26  .    if( flags &
6dd0: 20 53 51 4c 49 54 45 5f 53 48 4d 5f 53 48 41 52   SQLITE_SHM_SHAR
6de0: 45 44 20 29 7b 0a 20 20 20 20 20 20 73 74 72 63  ED ){.      strc
6df0: 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d  py(&zLock[nLock]
6e00: 2c 20 22 20 73 68 61 72 65 64 22 29 3b 0a 20 20  , " shared");.  
6e10: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73    }else{.      s
6e20: 74 72 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f  trcpy(&zLock[nLo
6e30: 63 6b 5d 2c 20 22 20 65 78 63 6c 75 73 69 76 65  ck], " exclusive
6e40: 22 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 74 76  ");.    }.    tv
6e50: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53  fsExecTcl(p, "xS
6e60: 68 6d 4c 6f 63 6b 22 2c 20 0a 20 20 20 20 20 20  hmLock", .      
6e70: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
6e80: 62 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46  bj(pFd->pShm->zF
6e90: 69 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70  ile, -1), pFd->p
6ea0: 53 68 6d 49 64 2c 0a 20 20 20 20 20 20 20 20 54  ShmId,.        T
6eb0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
6ec0: 7a 4c 6f 63 6b 2c 20 2d 31 29 2c 20 30 0a 20 20  zLock, -1), 0.  
6ed0: 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73    );.    tvfsRes
6ee0: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b  ultCode(p, &rc);
6ef0: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d  .  }..  if( rc==
6f00: 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e  SQLITE_OK && p->
6f10: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d  mask&TESTVFS_SHM
6f20: 4c 4f 43 4b 5f 4d 41 53 4b 20 26 26 20 74 76 66  LOCK_MASK && tvf
6f30: 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20  sInjectIoerr(p) 
6f40: 29 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49  ){.    rc = SQLI
6f50: 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 0a 20  TE_IOERR;.  }.. 
6f60: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
6f70: 4f 4b 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 73  OK ){.    int is
6f80: 4c 6f 63 6b 20 3d 20 28 66 6c 61 67 73 20 26 20  Lock = (flags & 
6f90: 53 51 4c 49 54 45 5f 53 48 4d 5f 4c 4f 43 4b 29  SQLITE_SHM_LOCK)
6fa0: 3b 0a 20 20 20 20 69 6e 74 20 69 73 45 78 63 6c  ;.    int isExcl
6fb0: 20 3d 20 28 66 6c 61 67 73 20 26 20 53 51 4c 49   = (flags & SQLI
6fc0: 54 45 5f 53 48 4d 5f 45 58 43 4c 55 53 49 56 45  TE_SHM_EXCLUSIVE
6fd0: 29 3b 0a 20 20 20 20 75 33 32 20 6d 61 73 6b 20  );.    u32 mask 
6fe0: 3d 20 28 28 28 31 3c 3c 6e 29 2d 31 29 20 3c 3c  = (((1<<n)-1) <<
6ff0: 20 6f 66 73 74 29 3b 0a 20 20 20 20 69 66 28 20   ofst);.    if( 
7000: 69 73 4c 6f 63 6b 20 29 7b 0a 20 20 20 20 20 20  isLock ){.      
7010: 54 65 73 74 76 66 73 46 64 20 2a 70 32 3b 0a 20  TestvfsFd *p2;. 
7020: 20 20 20 20 20 66 6f 72 28 70 32 3d 70 46 64 2d       for(p2=pFd-
7030: 3e 70 53 68 6d 2d 3e 70 46 69 6c 65 3b 20 70 32  >pShm->pFile; p2
7040: 3b 20 70 32 3d 70 32 2d 3e 70 4e 65 78 74 29 7b  ; p2=p2->pNext){
7050: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 32 3d  .        if( p2=
7060: 3d 70 46 64 20 29 20 63 6f 6e 74 69 6e 75 65 3b  =pFd ) continue;
7070: 0a 20 20 20 20 20 20 20 20 69 66 28 20 28 70 32  .        if( (p2
7080: 2d 3e 65 78 63 6c 6c 6f 63 6b 26 6d 61 73 6b 29  ->excllock&mask)
7090: 20 7c 7c 20 28 69 73 45 78 63 6c 20 26 26 20 70   || (isExcl && p
70a0: 32 2d 3e 73 68 61 72 65 64 6c 6f 63 6b 26 6d 61  2->sharedlock&ma
70b0: 73 6b 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20  sk) ){.         
70c0: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 42 55 53   rc = SQLITE_BUS
70d0: 59 3b 0a 20 20 20 20 20 20 20 20 20 20 62 72 65  Y;.          bre
70e0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  ak;.        }.  
70f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20      }.      if( 
7100: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc==SQLITE_OK ){
7110: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 73 45  .        if( isE
7120: 78 63 6c 20 29 20 20 70 46 64 2d 3e 65 78 63 6c  xcl )  pFd->excl
7130: 6c 6f 63 6b 20 7c 3d 20 6d 61 73 6b 3b 0a 20 20  lock |= mask;.  
7140: 20 20 20 20 20 20 69 66 28 20 21 69 73 45 78 63        if( !isExc
7150: 6c 20 29 20 70 46 64 2d 3e 73 68 61 72 65 64 6c  l ) pFd->sharedl
7160: 6f 63 6b 20 7c 3d 20 6d 61 73 6b 3b 0a 20 20 20  ock |= mask;.   
7170: 20 20 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a     }.    }else{.
7180: 20 20 20 20 20 20 69 66 28 20 69 73 45 78 63 6c        if( isExcl
7190: 20 29 20 20 70 46 64 2d 3e 65 78 63 6c 6c 6f 63   )  pFd->exclloc
71a0: 6b 20 26 3d 20 28 7e 6d 61 73 6b 29 3b 0a 20 20  k &= (~mask);.  
71b0: 20 20 20 20 69 66 28 20 21 69 73 45 78 63 6c 20      if( !isExcl 
71c0: 29 20 70 46 64 2d 3e 73 68 61 72 65 64 6c 6f 63  ) pFd->sharedloc
71d0: 6b 20 26 3d 20 28 7e 6d 61 73 6b 29 3b 0a 20 20  k &= (~mask);.  
71e0: 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72    }.  }..  retur
71f0: 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  n rc;.}..static 
7200: 76 6f 69 64 20 74 76 66 73 53 68 6d 42 61 72 72  void tvfsShmBarr
7210: 69 65 72 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ier(sqlite3_file
7220: 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74   *pFile){.  Test
7230: 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66  vfsFd *pFd = tvf
7240: 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20  sGetFd(pFile);. 
7250: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
7260: 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70  estvfs *)(pFd->p
7270: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a  Vfs->pAppData);.
7280: 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70  .  if( p->pScrip
7290: 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53  t && p->mask&TES
72a0: 54 56 46 53 5f 53 48 4d 42 41 52 52 49 45 52 5f  TVFS_SHMBARRIER_
72b0: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 63 6f 6e 73  MASK ){.    cons
72c0: 74 20 63 68 61 72 20 2a 7a 20 3d 20 70 46 64 2d  t char *z = pFd-
72d0: 3e 70 53 68 6d 20 3f 20 70 46 64 2d 3e 70 53 68  >pShm ? pFd->pSh
72e0: 6d 2d 3e 7a 46 69 6c 65 20 3a 20 22 22 3b 0a 20  m->zFile : "";. 
72f0: 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70     tvfsExecTcl(p
7300: 2c 20 22 78 53 68 6d 42 61 72 72 69 65 72 22 2c  , "xShmBarrier",
7310: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
7320: 6a 28 7a 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70  j(z, -1), pFd->p
7330: 53 68 6d 49 64 2c 20 30 2c 20 30 29 3b 0a 20 20  ShmId, 0, 0);.  
7340: 7d 0a 0a 20 20 69 66 28 20 70 2d 3e 69 73 46 75  }..  if( p->isFu
7350: 6c 6c 73 68 6d 20 29 7b 0a 20 20 20 20 73 71 6c  llshm ){.    sql
7360: 69 74 65 33 4f 73 53 68 6d 42 61 72 72 69 65 72  ite3OsShmBarrier
7370: 28 70 46 64 2d 3e 70 52 65 61 6c 29 3b 0a 20 20  (pFd->pReal);.  
7380: 20 20 72 65 74 75 72 6e 3b 0a 20 20 7d 0a 7d 0a    return;.  }.}.
7390: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
73a0: 53 68 6d 55 6e 6d 61 70 28 0a 20 20 73 71 6c 69  ShmUnmap(.  sqli
73b0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
73c0: 0a 20 20 69 6e 74 20 64 65 6c 65 74 65 46 6c 61  .  int deleteFla
73d0: 67 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  g.){.  int rc = 
73e0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
73f0: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
7400: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
7410: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
7420: 54 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e  Testvfs *)(pFd->
7430: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b  pVfs->pAppData);
7440: 0a 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72  .  TestvfsBuffer
7450: 20 2a 70 42 75 66 66 65 72 20 3d 20 70 46 64 2d   *pBuffer = pFd-
7460: 3e 70 53 68 6d 3b 0a 20 20 54 65 73 74 76 66 73  >pShm;.  Testvfs
7470: 46 64 20 2a 2a 70 70 46 64 3b 0a 0a 20 20 69 66  Fd **ppFd;..  if
7480: 28 20 70 2d 3e 69 73 46 75 6c 6c 73 68 6d 20 29  ( p->isFullshm )
7490: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 73 71 6c  {.    return sql
74a0: 69 74 65 33 4f 73 53 68 6d 55 6e 6d 61 70 28 70  ite3OsShmUnmap(p
74b0: 46 64 2d 3e 70 52 65 61 6c 2c 20 64 65 6c 65 74  Fd->pReal, delet
74c0: 65 46 6c 61 67 29 3b 0a 20 20 7d 0a 0a 20 20 69  eFlag);.  }..  i
74d0: 66 28 20 21 70 42 75 66 66 65 72 20 29 20 72 65  f( !pBuffer ) re
74e0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
74f0: 20 20 61 73 73 65 72 74 28 20 70 46 64 2d 3e 70    assert( pFd->p
7500: 53 68 6d 49 64 20 26 26 20 70 46 64 2d 3e 70 53  ShmId && pFd->pS
7510: 68 6d 20 29 3b 0a 0a 20 20 69 66 28 20 70 2d 3e  hm );..  if( p->
7520: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
7530: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 43 4c  sk&TESTVFS_SHMCL
7540: 4f 53 45 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20  OSE_MASK ){.    
7550: 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22  tvfsExecTcl(p, "
7560: 78 53 68 6d 55 6e 6d 61 70 22 2c 20 0a 20 20 20  xShmUnmap", .   
7570: 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69       Tcl_NewStri
7580: 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68 6d 2d  ngObj(pFd->pShm-
7590: 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 46 64  >zFile, -1), pFd
75a0: 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20  ->pShmId, 0, 0. 
75b0: 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65     );.    tvfsRe
75c0: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
75d0: 3b 0a 20 20 7d 0a 0a 20 20 66 6f 72 28 70 70 46  ;.  }..  for(ppF
75e0: 64 3d 26 70 42 75 66 66 65 72 2d 3e 70 46 69 6c  d=&pBuffer->pFil
75f0: 65 3b 20 2a 70 70 46 64 21 3d 70 46 64 3b 20 70  e; *ppFd!=pFd; p
7600: 70 46 64 3d 26 28 28 2a 70 70 46 64 29 2d 3e 70  pFd=&((*ppFd)->p
7610: 4e 65 78 74 29 29 3b 0a 20 20 61 73 73 65 72 74  Next));.  assert
7620: 28 20 28 2a 70 70 46 64 29 3d 3d 70 46 64 20 29  ( (*ppFd)==pFd )
7630: 3b 0a 20 20 2a 70 70 46 64 20 3d 20 70 46 64 2d  ;.  *ppFd = pFd-
7640: 3e 70 4e 65 78 74 3b 0a 20 20 70 46 64 2d 3e 70  >pNext;.  pFd->p
7650: 4e 65 78 74 20 3d 20 30 3b 0a 0a 20 20 69 66 28  Next = 0;..  if(
7660: 20 70 42 75 66 66 65 72 2d 3e 70 46 69 6c 65 3d   pBuffer->pFile=
7670: 3d 30 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 3b  =0 ){.    int i;
7680: 0a 20 20 20 20 54 65 73 74 76 66 73 42 75 66 66  .    TestvfsBuff
7690: 65 72 20 2a 2a 70 70 3b 0a 20 20 20 20 66 6f 72  er **pp;.    for
76a0: 28 70 70 3d 26 70 2d 3e 70 42 75 66 66 65 72 3b  (pp=&p->pBuffer;
76b0: 20 2a 70 70 21 3d 70 42 75 66 66 65 72 3b 20 70   *pp!=pBuffer; p
76c0: 70 3d 26 28 28 2a 70 70 29 2d 3e 70 4e 65 78 74  p=&((*pp)->pNext
76d0: 29 29 3b 0a 20 20 20 20 2a 70 70 20 3d 20 28 2a  ));.    *pp = (*
76e0: 70 70 29 2d 3e 70 4e 65 78 74 3b 0a 20 20 20 20  pp)->pNext;.    
76f0: 66 6f 72 28 69 3d 30 3b 20 70 42 75 66 66 65 72  for(i=0; pBuffer
7700: 2d 3e 61 50 61 67 65 5b 69 5d 3b 20 69 2b 2b 29  ->aPage[i]; i++)
7710: 7b 0a 20 20 20 20 20 20 63 6b 66 72 65 65 28 28  {.      ckfree((
7720: 63 68 61 72 20 2a 29 70 42 75 66 66 65 72 2d 3e  char *)pBuffer->
7730: 61 50 61 67 65 5b 69 5d 29 3b 0a 20 20 20 20 7d  aPage[i]);.    }
7740: 0a 20 20 20 20 63 6b 66 72 65 65 28 28 63 68 61  .    ckfree((cha
7750: 72 20 2a 29 70 42 75 66 66 65 72 29 3b 0a 20 20  r *)pBuffer);.  
7760: 7d 0a 20 20 70 46 64 2d 3e 70 53 68 6d 20 3d 20  }.  pFd->pShm = 
7770: 30 3b 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b  0;..  return rc;
7780: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .}..static int t
7790: 76 66 73 46 65 74 63 68 28 0a 20 20 20 20 73 71  vfsFetch(.    sq
77a0: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
77b0: 65 2c 20 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  e, .    sqlite3_
77c0: 69 6e 74 36 34 20 69 4f 66 73 74 2c 20 0a 20 20  int64 iOfst, .  
77d0: 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a 20 20 20    int iAmt, .   
77e0: 20 76 6f 69 64 20 2a 2a 70 70 0a 29 7b 0a 20 20   void **pp.){.  
77f0: 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d  TestvfsFd *pFd =
7800: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
7810: 29 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69  );.  return sqli
7820: 74 65 33 4f 73 46 65 74 63 68 28 70 46 64 2d 3e  te3OsFetch(pFd->
7830: 70 52 65 61 6c 2c 20 69 4f 66 73 74 2c 20 69 41  pReal, iOfst, iA
7840: 6d 74 2c 20 70 70 29 3b 0a 7d 0a 0a 73 74 61 74  mt, pp);.}..stat
7850: 69 63 20 69 6e 74 20 74 76 66 73 55 6e 66 65 74  ic int tvfsUnfet
7860: 63 68 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  ch(sqlite3_file 
7870: 2a 70 46 69 6c 65 2c 20 73 71 6c 69 74 65 33 5f  *pFile, sqlite3_
7880: 69 6e 74 36 34 20 69 4f 66 73 74 2c 20 76 6f 69  int64 iOfst, voi
7890: 64 20 2a 70 29 7b 0a 20 20 54 65 73 74 76 66 73  d *p){.  Testvfs
78a0: 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47 65  Fd *pFd = tvfsGe
78b0: 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 72 65  tFd(pFile);.  re
78c0: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 55 6e  turn sqlite3OsUn
78d0: 66 65 74 63 68 28 70 46 64 2d 3e 70 52 65 61 6c  fetch(pFd->pReal
78e0: 2c 20 69 4f 66 73 74 2c 20 70 29 3b 0a 7d 0a 0a  , iOfst, p);.}..
78f0: 73 74 61 74 69 63 20 69 6e 74 20 53 51 4c 49 54  static int SQLIT
7900: 45 5f 54 43 4c 41 50 49 20 74 65 73 74 76 66 73  E_TCLAPI testvfs
7910: 5f 6f 62 6a 5f 63 6d 64 28 0a 20 20 43 6c 69 65  _obj_cmd(.  Clie
7920: 6e 74 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c  ntData cd,.  Tcl
7930: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
7940: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
7950: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
7960: 6a 76 5b 5d 0a 29 7b 0a 20 20 54 65 73 74 76 66  jv[].){.  Testvf
7970: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
7980: 2a 29 63 64 3b 0a 0a 20 20 65 6e 75 6d 20 44 42  *)cd;..  enum DB
7990: 5f 65 6e 75 6d 20 7b 20 0a 20 20 20 20 43 4d 44  _enum { .    CMD
79a0: 5f 53 48 4d 2c 20 43 4d 44 5f 44 45 4c 45 54 45  _SHM, CMD_DELETE
79b0: 2c 20 43 4d 44 5f 46 49 4c 54 45 52 2c 20 43 4d  , CMD_FILTER, CM
79c0: 44 5f 49 4f 45 52 52 2c 20 43 4d 44 5f 53 43 52  D_IOERR, CMD_SCR
79d0: 49 50 54 2c 20 0a 20 20 20 20 43 4d 44 5f 44 45  IPT, .    CMD_DE
79e0: 56 43 48 41 52 2c 20 43 4d 44 5f 53 45 43 54 4f  VCHAR, CMD_SECTO
79f0: 52 53 49 5a 45 2c 20 43 4d 44 5f 46 55 4c 4c 45  RSIZE, CMD_FULLE
7a00: 52 52 2c 20 43 4d 44 5f 43 41 4e 54 4f 50 45 4e  RR, CMD_CANTOPEN
7a10: 45 52 52 0a 20 20 7d 3b 0a 20 20 73 74 72 75 63  ERR.  };.  struc
7a20: 74 20 54 65 73 74 76 66 73 53 75 62 63 6d 64 20  t TestvfsSubcmd 
7a30: 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d  {.    char *zNam
7a40: 65 3b 0a 20 20 20 20 65 6e 75 6d 20 44 42 5f 65  e;.    enum DB_e
7a50: 6e 75 6d 20 65 43 6d 64 3b 0a 20 20 7d 20 61 53  num eCmd;.  } aS
7a60: 75 62 63 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20  ubcmd[] = {.    
7a70: 7b 20 22 73 68 6d 22 2c 20 20 20 20 20 20 20 20  { "shm",        
7a80: 20 43 4d 44 5f 53 48 4d 20 20 20 20 20 20 20 20   CMD_SHM        
7a90: 20 7d 2c 0a 20 20 20 20 7b 20 22 64 65 6c 65 74   },.    { "delet
7aa0: 65 22 2c 20 20 20 20 20 20 43 4d 44 5f 44 45 4c  e",      CMD_DEL
7ab0: 45 54 45 20 20 20 20 20 20 7d 2c 0a 20 20 20 20  ETE      },.    
7ac0: 7b 20 22 66 69 6c 74 65 72 22 2c 20 20 20 20 20  { "filter",     
7ad0: 20 43 4d 44 5f 46 49 4c 54 45 52 20 20 20 20 20   CMD_FILTER     
7ae0: 20 7d 2c 0a 20 20 20 20 7b 20 22 69 6f 65 72 72   },.    { "ioerr
7af0: 22 2c 20 20 20 20 20 20 20 43 4d 44 5f 49 4f 45  ",       CMD_IOE
7b00: 52 52 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20  RR       },.    
7b10: 7b 20 22 66 75 6c 6c 65 72 72 22 2c 20 20 20 20  { "fullerr",    
7b20: 20 43 4d 44 5f 46 55 4c 4c 45 52 52 20 20 20 20   CMD_FULLERR    
7b30: 20 7d 2c 0a 20 20 20 20 7b 20 22 63 61 6e 74 6f   },.    { "canto
7b40: 70 65 6e 65 72 72 22 2c 20 43 4d 44 5f 43 41 4e  penerr", CMD_CAN
7b50: 54 4f 50 45 4e 45 52 52 20 7d 2c 0a 20 20 20 20  TOPENERR },.    
7b60: 7b 20 22 73 63 72 69 70 74 22 2c 20 20 20 20 20  { "script",     
7b70: 20 43 4d 44 5f 53 43 52 49 50 54 20 20 20 20 20   CMD_SCRIPT     
7b80: 20 7d 2c 0a 20 20 20 20 7b 20 22 64 65 76 63 68   },.    { "devch
7b90: 61 72 22 2c 20 20 20 20 20 43 4d 44 5f 44 45 56  ar",     CMD_DEV
7ba0: 43 48 41 52 20 20 20 20 20 7d 2c 0a 20 20 20 20  CHAR     },.    
7bb0: 7b 20 22 73 65 63 74 6f 72 73 69 7a 65 22 2c 20  { "sectorsize", 
7bc0: 20 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a 45 20   CMD_SECTORSIZE 
7bd0: 20 7d 2c 0a 20 20 20 20 7b 20 30 2c 20 30 20 7d   },.    { 0, 0 }
7be0: 0a 20 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20  .  };.  int i;. 
7bf0: 20 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29   .  if( objc<2 )
7c00: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
7c10: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
7c20: 2c 20 6f 62 6a 76 2c 20 22 53 55 42 43 4f 4d 4d  , objv, "SUBCOMM
7c30: 41 4e 44 20 2e 2e 2e 22 29 3b 0a 20 20 20 20 72  AND ...");.    r
7c40: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
7c50: 0a 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47  .  }.  if( Tcl_G
7c60: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74  etIndexFromObjSt
7c70: 72 75 63 74 28 0a 20 20 20 20 20 20 20 20 69 6e  ruct(.        in
7c80: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 61  terp, objv[1], a
7c90: 53 75 62 63 6d 64 2c 20 73 69 7a 65 6f 66 28 61  Subcmd, sizeof(a
7ca0: 53 75 62 63 6d 64 5b 30 5d 29 2c 20 22 73 75 62  Subcmd[0]), "sub
7cb0: 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c 20 26 69 29  command", 0, &i)
7cc0: 20 0a 20 20 29 7b 0a 20 20 20 20 72 65 74 75 72   .  ){.    retur
7cd0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
7ce0: 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75  .  Tcl_ResetResu
7cf0: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 73  lt(interp);..  s
7d00: 77 69 74 63 68 28 20 61 53 75 62 63 6d 64 5b 69  witch( aSubcmd[i
7d10: 5d 2e 65 43 6d 64 20 29 7b 0a 20 20 20 20 63 61  ].eCmd ){.    ca
7d20: 73 65 20 43 4d 44 5f 53 48 4d 3a 20 7b 0a 20 20  se CMD_SHM: {.  
7d30: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62      Tcl_Obj *pOb
7d40: 6a 3b 0a 20 20 20 20 20 20 69 6e 74 20 72 63 3b  j;.      int rc;
7d50: 0a 20 20 20 20 20 20 54 65 73 74 76 66 73 42 75  .      TestvfsBu
7d60: 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b 0a 20  ffer *pBuffer;. 
7d70: 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65       char *zName
7d80: 3b 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63  ;.      if( objc
7d90: 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 34 20 29  !=3 && objc!=4 )
7da0: 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72  {.        Tcl_Wr
7db0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
7dc0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 46 49 4c  p, 2, objv, "FIL
7dd0: 45 20 3f 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20  E ?VALUE?");.   
7de0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
7df0: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
7e00: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 63 6b 61       zName = cka
7e10: 6c 6c 6f 63 28 70 2d 3e 70 50 61 72 65 6e 74 2d  lloc(p->pParent-
7e20: 3e 6d 78 50 61 74 68 6e 61 6d 65 29 3b 0a 20 20  >mxPathname);.  
7e30: 20 20 20 20 72 63 20 3d 20 70 2d 3e 70 50 61 72      rc = p->pPar
7e40: 65 6e 74 2d 3e 78 46 75 6c 6c 50 61 74 68 6e 61  ent->xFullPathna
7e50: 6d 65 28 0a 20 20 20 20 20 20 20 20 20 20 70 2d  me(.          p-
7e60: 3e 70 50 61 72 65 6e 74 2c 20 54 63 6c 5f 47 65  >pParent, Tcl_Ge
7e70: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29  tString(objv[2])
7e80: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e  , .          p->
7e90: 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74 68 6e  pParent->mxPathn
7ea0: 61 6d 65 2c 20 7a 4e 61 6d 65 0a 20 20 20 20 20  ame, zName.     
7eb0: 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63   );.      if( rc
7ec0: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  !=SQLITE_OK ){. 
7ed0: 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e         Tcl_Appen
7ee0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
7ef0: 22 66 61 69 6c 65 64 20 74 6f 20 67 65 74 20 66  "failed to get f
7f00: 75 6c 6c 20 70 61 74 68 3a 20 22 2c 0a 20 20 20  ull path: ",.   
7f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7f20: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72        Tcl_GetStr
7f30: 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c 20 30 29  ing(objv[2]), 0)
7f40: 3b 0a 20 20 20 20 20 20 20 20 63 6b 66 72 65 65  ;.        ckfree
7f50: 28 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 20 20 20  (zName);.       
7f60: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
7f70: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  R;.      }.     
7f80: 20 66 6f 72 28 70 42 75 66 66 65 72 3d 70 2d 3e   for(pBuffer=p->
7f90: 70 42 75 66 66 65 72 3b 20 70 42 75 66 66 65 72  pBuffer; pBuffer
7fa0: 3b 20 70 42 75 66 66 65 72 3d 70 42 75 66 66 65  ; pBuffer=pBuffe
7fb0: 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 20  r->pNext){.     
7fc0: 20 20 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70     if( 0==strcmp
7fd0: 28 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c  (pBuffer->zFile,
7fe0: 20 7a 4e 61 6d 65 29 20 29 20 62 72 65 61 6b 3b   zName) ) break;
7ff0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 63  .      }.      c
8000: 6b 66 72 65 65 28 7a 4e 61 6d 65 29 3b 0a 20 20  kfree(zName);.  
8010: 20 20 20 20 69 66 28 20 21 70 42 75 66 66 65 72      if( !pBuffer
8020: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
8030: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
8040: 65 72 70 2c 20 22 6e 6f 20 73 75 63 68 20 66 69  erp, "no such fi
8050: 6c 65 3a 20 22 2c 20 54 63 6c 5f 47 65 74 53 74  le: ", Tcl_GetSt
8060: 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c 20 30  ring(objv[2]), 0
8070: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  );.        retur
8080: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
8090: 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 6f     }.      if( o
80a0: 62 6a 63 3d 3d 34 20 29 7b 0a 20 20 20 20 20 20  bjc==4 ){.      
80b0: 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20 20 20 20    int n;.       
80c0: 20 75 38 20 2a 61 20 3d 20 54 63 6c 5f 47 65 74   u8 *a = Tcl_Get
80d0: 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a  ByteArrayFromObj
80e0: 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 29 3b 0a 20  (objv[3], &n);. 
80f0: 20 20 20 20 20 20 20 69 6e 74 20 70 67 73 7a 20         int pgsz 
8100: 3d 20 70 42 75 66 66 65 72 2d 3e 70 67 73 7a 3b  = pBuffer->pgsz;
8110: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 67 73  .        if( pgs
8120: 7a 3d 3d 30 20 29 20 70 67 73 7a 20 3d 20 36 35  z==0 ) pgsz = 65
8130: 35 33 36 3b 0a 20 20 20 20 20 20 20 20 66 6f 72  536;.        for
8140: 28 69 3d 30 3b 20 69 2a 70 67 73 7a 3c 6e 3b 20  (i=0; i*pgsz<n; 
8150: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20  i++){.          
8160: 69 6e 74 20 6e 42 79 74 65 20 3d 20 70 67 73 7a  int nByte = pgsz
8170: 3b 0a 20 20 20 20 20 20 20 20 20 20 74 76 66 73  ;.          tvfs
8180: 41 6c 6c 6f 63 50 61 67 65 28 70 42 75 66 66 65  AllocPage(pBuffe
8190: 72 2c 20 69 2c 20 70 67 73 7a 29 3b 0a 20 20 20  r, i, pgsz);.   
81a0: 20 20 20 20 20 20 20 69 66 28 20 6e 2d 69 2a 70         if( n-i*p
81b0: 67 73 7a 3c 70 67 73 7a 20 29 7b 0a 20 20 20 20  gsz<pgsz ){.    
81c0: 20 20 20 20 20 20 20 20 6e 42 79 74 65 20 3d 20          nByte = 
81d0: 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20  n;.          }. 
81e0: 20 20 20 20 20 20 20 20 20 6d 65 6d 63 70 79 28           memcpy(
81f0: 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65 5b 69  pBuffer->aPage[i
8200: 5d 2c 20 26 61 5b 69 2a 70 67 73 7a 5d 2c 20 6e  ], &a[i*pgsz], n
8210: 42 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20 7d  Byte);.        }
8220: 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20  .      }..      
8230: 70 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62  pObj = Tcl_NewOb
8240: 6a 28 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 69  j();.      for(i
8250: 3d 30 3b 20 70 42 75 66 66 65 72 2d 3e 61 50 61  =0; pBuffer->aPa
8260: 67 65 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20  ge[i]; i++){.   
8270: 20 20 20 20 20 69 6e 74 20 70 67 73 7a 20 3d 20       int pgsz = 
8280: 70 42 75 66 66 65 72 2d 3e 70 67 73 7a 3b 0a 20  pBuffer->pgsz;. 
8290: 20 20 20 20 20 20 20 69 66 28 20 70 67 73 7a 3d         if( pgsz=
82a0: 3d 30 20 29 20 70 67 73 7a 20 3d 20 36 35 35 33  =0 ) pgsz = 6553
82b0: 36 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41  6;.        Tcl_A
82c0: 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 70 4f  ppendObjToObj(pO
82d0: 62 6a 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 41  bj, Tcl_NewByteA
82e0: 72 72 61 79 4f 62 6a 28 70 42 75 66 66 65 72 2d  rrayObj(pBuffer-
82f0: 3e 61 50 61 67 65 5b 69 5d 2c 20 70 67 73 7a 29  >aPage[i], pgsz)
8300: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
8310: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
8320: 74 28 69 6e 74 65 72 70 2c 20 70 4f 62 6a 29 3b  t(interp, pObj);
8330: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
8340: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 20 54 45 53    }..    /*  TES
8350: 54 56 46 53 20 66 69 6c 74 65 72 20 4d 45 54 48  TVFS filter METH
8360: 4f 44 2d 4c 49 53 54 0a 20 20 20 20 2a 2a 0a 20  OD-LIST.    **. 
8370: 20 20 20 2a 2a 20 20 20 20 20 41 63 74 69 76 61     **     Activa
8380: 74 65 20 73 70 65 63 69 61 6c 20 70 72 6f 63 65  te special proce
8390: 73 73 69 6e 67 20 66 6f 72 20 74 68 6f 73 65 20  ssing for those 
83a0: 6d 65 74 68 6f 64 73 20 63 6f 6e 74 61 69 6e 65  methods containe
83b0: 64 20 69 6e 20 74 68 65 20 6c 69 73 74 0a 20 20  d in the list.  
83c0: 20 20 2a 2f 0a 20 20 20 20 63 61 73 65 20 43 4d    */.    case CM
83d0: 44 5f 46 49 4c 54 45 52 3a 20 7b 0a 20 20 20 20  D_FILTER: {.    
83e0: 20 20 73 74 61 74 69 63 20 73 74 72 75 63 74 20    static struct 
83f0: 56 66 73 4d 65 74 68 6f 64 20 7b 0a 20 20 20 20  VfsMethod {.    
8400: 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b      char *zName;
8410: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6d 61 73  .        int mas
8420: 6b 3b 0a 20 20 20 20 20 20 7d 20 76 66 73 6d 65  k;.      } vfsme
8430: 74 68 6f 64 20 5b 5d 20 3d 20 7b 0a 20 20 20 20  thod [] = {.    
8440: 20 20 20 20 7b 20 22 78 53 68 6d 4f 70 65 6e 22      { "xShmOpen"
8450: 2c 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54  ,           TEST
8460: 56 46 53 5f 53 48 4d 4f 50 45 4e 5f 4d 41 53 4b  VFS_SHMOPEN_MASK
8470: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78   },.        { "x
8480: 53 68 6d 4c 6f 63 6b 22 2c 20 20 20 20 20 20 20  ShmLock",       
8490: 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d 4c      TESTVFS_SHML
84a0: 4f 43 4b 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  OCK_MASK },.    
84b0: 20 20 20 20 7b 20 22 78 53 68 6d 42 61 72 72 69      { "xShmBarri
84c0: 65 72 22 2c 20 20 20 20 20 20 20 20 54 45 53 54  er",        TEST
84d0: 56 46 53 5f 53 48 4d 42 41 52 52 49 45 52 5f 4d  VFS_SHMBARRIER_M
84e0: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
84f0: 20 22 78 53 68 6d 55 6e 6d 61 70 22 2c 20 20 20   "xShmUnmap",   
8500: 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 53         TESTVFS_S
8510: 48 4d 43 4c 4f 53 45 5f 4d 41 53 4b 20 7d 2c 0a  HMCLOSE_MASK },.
8520: 20 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d 4d          { "xShmM
8530: 61 70 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  ap",            
8540: 54 45 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f 4d  TESTVFS_SHMMAP_M
8550: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
8560: 20 22 78 53 79 6e 63 22 2c 20 20 20 20 20 20 20   "xSync",       
8570: 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 53         TESTVFS_S
8580: 59 4e 43 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  YNC_MASK },.    
8590: 20 20 20 20 7b 20 22 78 44 65 6c 65 74 65 22 2c      { "xDelete",
85a0: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
85b0: 56 46 53 5f 44 45 4c 45 54 45 5f 4d 41 53 4b 20  VFS_DELETE_MASK 
85c0: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 57  },.        { "xW
85d0: 72 69 74 65 22 2c 20 20 20 20 20 20 20 20 20 20  rite",          
85e0: 20 20 20 54 45 53 54 56 46 53 5f 57 52 49 54 45     TESTVFS_WRITE
85f0: 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20  _MASK },.       
8600: 20 7b 20 22 78 52 65 61 64 22 2c 20 20 20 20 20   { "xRead",     
8610: 20 20 20 20 20 20 20 20 20 54 45 53 54 56 46 53           TESTVFS
8620: 5f 52 45 41 44 5f 4d 41 53 4b 20 7d 2c 0a 20 20  _READ_MASK },.  
8630: 20 20 20 20 20 20 7b 20 22 78 54 72 75 6e 63 61        { "xTrunca
8640: 74 65 22 2c 20 20 20 20 20 20 20 20 20 20 54 45  te",          TE
8650: 53 54 56 46 53 5f 54 52 55 4e 43 41 54 45 5f 4d  STVFS_TRUNCATE_M
8660: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
8670: 20 22 78 4f 70 65 6e 22 2c 20 20 20 20 20 20 20   "xOpen",       
8680: 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 4f         TESTVFS_O
8690: 50 45 4e 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  PEN_MASK },.    
86a0: 20 20 20 20 7b 20 22 78 43 6c 6f 73 65 22 2c 20      { "xClose", 
86b0: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
86c0: 56 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20 7d  VFS_CLOSE_MASK }
86d0: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 41 63  ,.        { "xAc
86e0: 63 65 73 73 22 2c 20 20 20 20 20 20 20 20 20 20  cess",          
86f0: 20 20 54 45 53 54 56 46 53 5f 41 43 43 45 53 53    TESTVFS_ACCESS
8700: 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20  _MASK },.       
8710: 20 7b 20 22 78 46 75 6c 6c 50 61 74 68 6e 61 6d   { "xFullPathnam
8720: 65 22 2c 20 20 20 20 20 20 54 45 53 54 56 46 53  e",      TESTVFS
8730: 5f 46 55 4c 4c 50 41 54 48 4e 41 4d 45 5f 4d 41  _FULLPATHNAME_MA
8740: 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20  SK },.        { 
8750: 22 78 55 6e 6c 6f 63 6b 22 2c 20 20 20 20 20 20  "xUnlock",      
8760: 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 55 4e        TESTVFS_UN
8770: 4c 4f 43 4b 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20  LOCK_MASK },.   
8780: 20 20 20 20 20 7b 20 22 78 4c 6f 63 6b 22 2c 20       { "xLock", 
8790: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53               TES
87a0: 54 56 46 53 5f 4c 4f 43 4b 5f 4d 41 53 4b 20 7d  TVFS_LOCK_MASK }
87b0: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 43 68  ,.        { "xCh
87c0: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 22  eckReservedLock"
87d0: 2c 20 54 45 53 54 56 46 53 5f 43 4b 4c 4f 43 4b  , TESTVFS_CKLOCK
87e0: 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20  _MASK },.       
87f0: 20 7b 20 22 78 46 69 6c 65 43 6f 6e 74 72 6f 6c   { "xFileControl
8800: 22 2c 20 20 20 20 20 20 20 54 45 53 54 56 46 53  ",       TESTVFS
8810: 5f 46 43 4e 54 4c 5f 4d 41 53 4b 20 7d 2c 0a 20  _FCNTL_MASK },. 
8820: 20 20 20 20 20 7d 3b 0a 20 20 20 20 20 20 54 63       };.      Tc
8830: 6c 5f 4f 62 6a 20 2a 2a 61 70 45 6c 65 6d 20 3d  l_Obj **apElem =
8840: 20 30 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 45   0;.      int nE
8850: 6c 65 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 69  lem = 0;.      i
8860: 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 20 20 20  nt mask = 0;.   
8870: 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29     if( objc!=3 )
8880: 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72  {.        Tcl_Wr
8890: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
88a0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 4c 49 53  p, 2, objv, "LIS
88b0: 54 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74  T");.        ret
88c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
88d0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
88e0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45   Tcl_ListObjGetE
88f0: 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20  lements(interp, 
8900: 6f 62 6a 76 5b 32 5d 2c 20 26 6e 45 6c 65 6d 2c  objv[2], &nElem,
8910: 20 26 61 70 45 6c 65 6d 29 20 29 7b 0a 20 20 20   &apElem) ){.   
8920: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
8930: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
8940: 20 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65       Tcl_ResetRe
8950: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20  sult(interp);.  
8960: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e      for(i=0; i<n
8970: 45 6c 65 6d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  Elem; i++){.    
8980: 20 20 20 20 69 6e 74 20 69 4d 65 74 68 6f 64 3b      int iMethod;
8990: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 7a  .        char *z
89a0: 45 6c 65 6d 20 3d 20 54 63 6c 5f 47 65 74 53 74  Elem = Tcl_GetSt
89b0: 72 69 6e 67 28 61 70 45 6c 65 6d 5b 69 5d 29 3b  ring(apElem[i]);
89c0: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 4d 65  .        for(iMe
89d0: 74 68 6f 64 3d 30 3b 20 69 4d 65 74 68 6f 64 3c  thod=0; iMethod<
89e0: 41 72 72 61 79 53 69 7a 65 28 76 66 73 6d 65 74  ArraySize(vfsmet
89f0: 68 6f 64 29 3b 20 69 4d 65 74 68 6f 64 2b 2b 29  hod); iMethod++)
8a00: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  {.          if( 
8a10: 73 74 72 63 6d 70 28 7a 45 6c 65 6d 2c 20 76 66  strcmp(zElem, vf
8a20: 73 6d 65 74 68 6f 64 5b 69 4d 65 74 68 6f 64 5d  smethod[iMethod]
8a30: 2e 7a 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20  .zName)==0 ){.  
8a40: 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 20 7c            mask |
8a50: 3d 20 76 66 73 6d 65 74 68 6f 64 5b 69 4d 65 74  = vfsmethod[iMet
8a60: 68 6f 64 5d 2e 6d 61 73 6b 3b 0a 20 20 20 20 20  hod].mask;.     
8a70: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
8a80: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
8a90: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20    }.        if( 
8aa0: 69 4d 65 74 68 6f 64 3d 3d 41 72 72 61 79 53 69  iMethod==ArraySi
8ab0: 7a 65 28 76 66 73 6d 65 74 68 6f 64 29 20 29 7b  ze(vfsmethod) ){
8ac0: 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41  .          Tcl_A
8ad0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
8ae0: 72 70 2c 20 22 75 6e 6b 6e 6f 77 6e 20 6d 65 74  rp, "unknown met
8af0: 68 6f 64 3a 20 22 2c 20 7a 45 6c 65 6d 2c 20 30  hod: ", zElem, 0
8b00: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74  );.          ret
8b10: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
8b20: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d         }.      }
8b30: 0a 20 20 20 20 20 20 70 2d 3e 6d 61 73 6b 20 3d  .      p->mask =
8b40: 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20 62 72 65   mask;.      bre
8b50: 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  ak;.    }..    /
8b60: 2a 0a 20 20 20 20 2a 2a 20 20 54 45 53 54 56 46  *.    **  TESTVF
8b70: 53 20 73 63 72 69 70 74 20 3f 53 43 52 49 50 54  S script ?SCRIPT
8b80: 3f 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a 2a 20  ?.    **.    ** 
8b90: 20 51 75 65 72 79 20 6f 72 20 73 65 74 20 74 68   Query or set th
8ba0: 65 20 73 63 72 69 70 74 20 74 6f 20 62 65 20 72  e script to be r
8bb0: 75 6e 20 77 68 65 6e 20 66 69 6c 74 65 72 65 64  un when filtered
8bc0: 20 56 46 53 20 65 76 65 6e 74 73 0a 20 20 20 20   VFS events.    
8bd0: 2a 2a 20 20 6f 63 63 75 72 2e 0a 20 20 20 20 2a  **  occur..    *
8be0: 2f 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 53  /.    case CMD_S
8bf0: 43 52 49 50 54 3a 20 7b 0a 20 20 20 20 20 20 69  CRIPT: {.      i
8c00: 66 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20 20  f( objc==3 ){.  
8c10: 20 20 20 20 20 20 69 6e 74 20 6e 42 79 74 65 3b        int nByte;
8c20: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 2d 3e  .        if( p->
8c30: 70 53 63 72 69 70 74 20 29 7b 0a 20 20 20 20 20  pScript ){.     
8c40: 20 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66       Tcl_DecrRef
8c50: 43 6f 75 6e 74 28 70 2d 3e 70 53 63 72 69 70 74  Count(p->pScript
8c60: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e  );.          p->
8c70: 70 53 63 72 69 70 74 20 3d 20 30 3b 0a 20 20 20  pScript = 0;.   
8c80: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 54       }.        T
8c90: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
8ca0: 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 6e 42  Obj(objv[2], &nB
8cb0: 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20 69 66  yte);.        if
8cc0: 28 20 6e 42 79 74 65 3e 30 20 29 7b 0a 20 20 20  ( nByte>0 ){.   
8cd0: 20 20 20 20 20 20 20 70 2d 3e 70 53 63 72 69 70         p->pScrip
8ce0: 74 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74  t = Tcl_Duplicat
8cf0: 65 4f 62 6a 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20  eObj(objv[2]);. 
8d00: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 49 6e 63           Tcl_Inc
8d10: 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53 63  rRefCount(p->pSc
8d20: 72 69 70 74 29 3b 0a 20 20 20 20 20 20 20 20 7d  ript);.        }
8d30: 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28  .      }else if(
8d40: 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20   objc!=2 ){.    
8d50: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
8d60: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
8d70: 6f 62 6a 76 2c 20 22 3f 53 43 52 49 50 54 3f 22  objv, "?SCRIPT?"
8d80: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  );.        retur
8d90: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
8da0: 20 20 20 7d 0a 0a 20 20 20 20 20 20 54 63 6c 5f     }..      Tcl_
8db0: 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65  ResetResult(inte
8dc0: 72 70 29 3b 0a 20 20 20 20 20 20 69 66 28 20 70  rp);.      if( p
8dd0: 2d 3e 70 53 63 72 69 70 74 20 29 20 54 63 6c 5f  ->pScript ) Tcl_
8de0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
8df0: 65 72 70 2c 20 70 2d 3e 70 53 63 72 69 70 74 29  erp, p->pScript)
8e00: 3b 0a 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  ;..      break;.
8e10: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20      }..    /*.  
8e20: 20 20 2a 2a 20 54 45 53 54 56 46 53 20 69 6f 65    ** TESTVFS ioe
8e30: 72 72 20 3f 49 46 41 49 4c 20 50 45 52 53 49 53  rr ?IFAIL PERSIS
8e40: 54 3f 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a 2a  T?.    **.    **
8e50: 20 20 20 57 68 65 72 65 20 49 46 41 49 4c 20 69     Where IFAIL i
8e60: 73 20 61 6e 20 69 6e 74 65 67 65 72 20 61 6e 64  s an integer and
8e70: 20 50 45 52 53 49 53 54 20 69 73 20 62 6f 6f 6c   PERSIST is bool
8e80: 65 61 6e 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20  ean..    */.    
8e90: 63 61 73 65 20 43 4d 44 5f 43 41 4e 54 4f 50 45  case CMD_CANTOPE
8ea0: 4e 45 52 52 3a 0a 20 20 20 20 63 61 73 65 20 43  NERR:.    case C
8eb0: 4d 44 5f 49 4f 45 52 52 3a 0a 20 20 20 20 63 61  MD_IOERR:.    ca
8ec0: 73 65 20 43 4d 44 5f 46 55 4c 4c 45 52 52 3a 20  se CMD_FULLERR: 
8ed0: 7b 0a 20 20 20 20 20 20 54 65 73 74 46 61 75 6c  {.      TestFaul
8ee0: 74 49 6e 6a 65 63 74 20 2a 70 54 65 73 74 20 3d  tInject *pTest =
8ef0: 20 30 3b 0a 20 20 20 20 20 20 69 6e 74 20 69 52   0;.      int iR
8f00: 65 74 3b 0a 0a 20 20 20 20 20 20 73 77 69 74 63  et;..      switc
8f10: 68 28 20 61 53 75 62 63 6d 64 5b 69 5d 2e 65 43  h( aSubcmd[i].eC
8f20: 6d 64 20 29 7b 0a 20 20 20 20 20 20 20 20 63 61  md ){.        ca
8f30: 73 65 20 43 4d 44 5f 49 4f 45 52 52 3a 20 70 54  se CMD_IOERR: pT
8f40: 65 73 74 20 3d 20 26 70 2d 3e 69 6f 65 72 72 5f  est = &p->ioerr_
8f50: 65 72 72 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20  err; break;.    
8f60: 20 20 20 20 63 61 73 65 20 43 4d 44 5f 46 55 4c      case CMD_FUL
8f70: 4c 45 52 52 3a 20 70 54 65 73 74 20 3d 20 26 70  LERR: pTest = &p
8f80: 2d 3e 66 75 6c 6c 5f 65 72 72 3b 20 62 72 65 61  ->full_err; brea
8f90: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
8fa0: 43 4d 44 5f 43 41 4e 54 4f 50 45 4e 45 52 52 3a  CMD_CANTOPENERR:
8fb0: 20 70 54 65 73 74 20 3d 20 26 70 2d 3e 63 61 6e   pTest = &p->can
8fc0: 74 6f 70 65 6e 5f 65 72 72 3b 20 62 72 65 61 6b  topen_err; break
8fd0: 3b 0a 20 20 20 20 20 20 20 20 64 65 66 61 75 6c  ;.        defaul
8fe0: 74 3a 20 61 73 73 65 72 74 28 30 29 3b 0a 20 20  t: assert(0);.  
8ff0: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 52 65 74      }.      iRet
9000: 20 3d 20 70 54 65 73 74 2d 3e 6e 46 61 69 6c 3b   = pTest->nFail;
9010: 0a 20 20 20 20 20 20 70 54 65 73 74 2d 3e 6e 46  .      pTest->nF
9020: 61 69 6c 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  ail = 0;.      p
9030: 54 65 73 74 2d 3e 65 46 61 75 6c 74 20 3d 20 30  Test->eFault = 0
9040: 3b 0a 20 20 20 20 20 20 70 54 65 73 74 2d 3e 69  ;.      pTest->i
9050: 43 6e 74 20 3d 20 30 3b 0a 0a 20 20 20 20 20 20  Cnt = 0;..      
9060: 69 66 28 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20  if( objc==4 ){. 
9070: 20 20 20 20 20 20 20 69 6e 74 20 69 43 6e 74 2c         int iCnt,
9080: 20 69 50 65 72 73 69 73 74 3b 0a 20 20 20 20 20   iPersist;.     
9090: 20 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54     if( TCL_OK!=T
90a0: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a  cl_GetIntFromObj
90b0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
90c0: 2c 20 26 69 43 6e 74 29 0a 20 20 20 20 20 20 20  , &iCnt).       
90d0: 20 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c    || TCL_OK!=Tcl
90e0: 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f  _GetBooleanFromO
90f0: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b  bj(interp, objv[
9100: 33 5d 2c 20 26 69 50 65 72 73 69 73 74 29 0a 20  3], &iPersist). 
9110: 20 20 20 20 20 20 20 29 7b 0a 20 20 20 20 20 20         ){.      
9120: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
9130: 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a  RROR;.        }.
9140: 20 20 20 20 20 20 20 20 70 54 65 73 74 2d 3e 65          pTest->e
9150: 46 61 75 6c 74 20 3d 20 69 50 65 72 73 69 73 74  Fault = iPersist
9160: 3f 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 50 45  ?FAULT_INJECT_PE
9170: 52 53 49 53 54 45 4e 54 3a 46 41 55 4c 54 5f 49  RSISTENT:FAULT_I
9180: 4e 4a 45 43 54 5f 54 52 41 4e 53 49 45 4e 54 3b  NJECT_TRANSIENT;
9190: 0a 20 20 20 20 20 20 20 20 70 54 65 73 74 2d 3e  .        pTest->
91a0: 69 43 6e 74 20 3d 20 69 43 6e 74 3b 0a 20 20 20  iCnt = iCnt;.   
91b0: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a     }else if( obj
91c0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 20 20 20 20  c!=2 ){.        
91d0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
91e0: 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76  (interp, 2, objv
91f0: 2c 20 22 3f 43 4e 54 20 50 45 52 53 49 53 54 3f  , "?CNT PERSIST?
9200: 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  ");.        retu
9210: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
9220: 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63 6c 5f      }.      Tcl_
9230: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
9240: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f  erp, Tcl_NewIntO
9250: 62 6a 28 69 52 65 74 29 29 3b 0a 20 20 20 20 20  bj(iRet));.     
9260: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20   break;.    }.. 
9270: 20 20 20 63 61 73 65 20 43 4d 44 5f 44 45 4c 45     case CMD_DELE
9280: 54 45 3a 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f  TE: {.      Tcl_
9290: 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 28 69 6e  DeleteCommand(in
92a0: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72  terp, Tcl_GetStr
92b0: 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 29 3b 0a 20  ing(objv[0]));. 
92c0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
92d0: 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f  }..    case CMD_
92e0: 44 45 56 43 48 41 52 3a 20 7b 0a 20 20 20 20 20  DEVCHAR: {.     
92f0: 20 73 74 72 75 63 74 20 44 65 76 69 63 65 46 6c   struct DeviceFl
9300: 61 67 20 7b 0a 20 20 20 20 20 20 20 20 63 68 61  ag {.        cha
9310: 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 20  r *zName;.      
9320: 20 20 69 6e 74 20 69 56 61 6c 75 65 3b 0a 20 20    int iValue;.  
9330: 20 20 20 20 7d 20 61 46 6c 61 67 5b 5d 20 3d 20      } aFlag[] = 
9340: 7b 0a 20 20 20 20 20 20 20 20 7b 20 22 64 65 66  {.        { "def
9350: 61 75 6c 74 22 2c 20 20 20 20 20 20 20 20 20 20  ault",          
9360: 20 20 20 20 20 2d 31 20 7d 2c 0a 20 20 20 20 20       -1 },.     
9370: 20 20 20 7b 20 22 61 74 6f 6d 69 63 22 2c 20 20     { "atomic",  
9380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51                SQ
9390: 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49  LITE_IOCAP_ATOMI
93a0: 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  C               
93b0: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61   },.        { "a
93c0: 74 6f 6d 69 63 35 31 32 22 2c 20 20 20 20 20 20  tomic512",      
93d0: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f         SQLITE_IO
93e0: 43 41 50 5f 41 54 4f 4d 49 43 35 31 32 20 20 20  CAP_ATOMIC512   
93f0: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20            },.   
9400: 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 31 6b       { "atomic1k
9410: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
9420: 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f  SQLITE_IOCAP_ATO
9430: 4d 49 43 31 4b 20 20 20 20 20 20 20 20 20 20 20  MIC1K           
9440: 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20     },.        { 
9450: 22 61 74 6f 6d 69 63 32 6b 22 2c 20 20 20 20 20  "atomic2k",     
9460: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
9470: 49 4f 43 41 50 5f 41 54 4f 4d 49 43 32 4b 20 20  IOCAP_ATOMIC2K  
9480: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
9490: 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63         { "atomic
94a0: 34 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  4k",            
94b0: 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41    SQLITE_IOCAP_A
94c0: 54 4f 4d 49 43 34 4b 20 20 20 20 20 20 20 20 20  TOMIC4K         
94d0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20       },.        
94e0: 7b 20 22 61 74 6f 6d 69 63 38 6b 22 2c 20 20 20  { "atomic8k",   
94f0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54             SQLIT
9500: 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 38 4b  E_IOCAP_ATOMIC8K
9510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c                },
9520: 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d  .        { "atom
9530: 69 63 31 36 6b 22 2c 20 20 20 20 20 20 20 20 20  ic16k",         
9540: 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50      SQLITE_IOCAP
9550: 5f 41 54 4f 4d 49 43 31 36 4b 20 20 20 20 20 20  _ATOMIC16K      
9560: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20         },.      
9570: 20 20 7b 20 22 61 74 6f 6d 69 63 33 32 6b 22 2c    { "atomic32k",
9580: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c               SQL
9590: 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43  ITE_IOCAP_ATOMIC
95a0: 33 32 4b 20 20 20 20 20 20 20 20 20 20 20 20 20  32K             
95b0: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74  },.        { "at
95c0: 6f 6d 69 63 36 34 6b 22 2c 20 20 20 20 20 20 20  omic64k",       
95d0: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43        SQLITE_IOC
95e0: 41 50 5f 41 54 4f 4d 49 43 36 34 4b 20 20 20 20  AP_ATOMIC64K    
95f0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20           },.    
9600: 20 20 20 20 7b 20 22 73 65 71 75 65 6e 74 69 61      { "sequentia
9610: 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 53  l",            S
9620: 51 4c 49 54 45 5f 49 4f 43 41 50 5f 53 45 51 55  QLITE_IOCAP_SEQU
9630: 45 4e 54 49 41 4c 20 20 20 20 20 20 20 20 20 20  ENTIAL          
9640: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22    },.        { "
9650: 73 61 66 65 5f 61 70 70 65 6e 64 22 2c 20 20 20  safe_append",   
9660: 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49          SQLITE_I
9670: 4f 43 41 50 5f 53 41 46 45 5f 41 50 50 45 4e 44  OCAP_SAFE_APPEND
9680: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20             },.  
9690: 20 20 20 20 20 20 7b 20 22 75 6e 64 65 6c 65 74        { "undelet
96a0: 61 62 6c 65 5f 77 68 65 6e 5f 6f 70 65 6e 22 2c  able_when_open",
96b0: 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 55 4e   SQLITE_IOCAP_UN
96c0: 44 45 4c 45 54 41 42 4c 45 5f 57 48 45 4e 5f 4f  DELETABLE_WHEN_O
96d0: 50 45 4e 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  PEN },.        {
96e0: 20 22 70 6f 77 65 72 73 61 66 65 5f 6f 76 65 72   "powersafe_over
96f0: 77 72 69 74 65 22 2c 20 20 20 53 51 4c 49 54 45  write",   SQLITE
9700: 5f 49 4f 43 41 50 5f 50 4f 57 45 52 53 41 46 45  _IOCAP_POWERSAFE
9710: 5f 4f 56 45 52 57 52 49 54 45 20 20 20 7d 2c 0a  _OVERWRITE   },.
9720: 20 20 20 20 20 20 20 20 7b 20 22 69 6d 6d 75 74          { "immut
9730: 61 62 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20  able",          
9740: 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f     SQLITE_IOCAP_
9750: 49 4d 4d 55 54 41 42 4c 45 20 20 20 20 20 20 20  IMMUTABLE       
9760: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20        },.       
9770: 20 7b 20 30 2c 20 30 20 7d 0a 20 20 20 20 20 20   { 0, 0 }.      
9780: 7d 3b 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a  };.      Tcl_Obj
9790: 20 2a 70 52 65 74 3b 0a 20 20 20 20 20 20 69 6e   *pRet;.      in
97a0: 74 20 69 46 6c 61 67 3b 0a 0a 20 20 20 20 20 20  t iFlag;..      
97b0: 69 66 28 20 6f 62 6a 63 3e 33 20 29 7b 0a 20 20  if( objc>3 ){.  
97c0: 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e        Tcl_WrongN
97d0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32  umArgs(interp, 2
97e0: 2c 20 6f 62 6a 76 2c 20 22 3f 41 54 54 52 2d 4c  , objv, "?ATTR-L
97f0: 49 53 54 3f 22 29 3b 0a 20 20 20 20 20 20 20 20  IST?");.        
9800: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
9810: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
9820: 69 66 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20  if( objc==3 ){. 
9830: 20 20 20 20 20 20 20 69 6e 74 20 6a 3b 0a 20 20         int j;.  
9840: 20 20 20 20 20 20 69 6e 74 20 69 4e 65 77 20 3d        int iNew =
9850: 20 30 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   0;.        Tcl_
9860: 4f 62 6a 20 2a 2a 66 6c 61 67 73 20 3d 20 30 3b  Obj **flags = 0;
9870: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6e 46 6c  .        int nFl
9880: 61 67 73 20 3d 20 30 3b 0a 0a 20 20 20 20 20 20  ags = 0;..      
9890: 20 20 69 66 28 20 54 63 6c 5f 4c 69 73 74 4f 62    if( Tcl_ListOb
98a0: 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74  jGetElements(int
98b0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6e  erp, objv[2], &n
98c0: 46 6c 61 67 73 2c 20 26 66 6c 61 67 73 29 20 29  Flags, &flags) )
98d0: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  {.          retu
98e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
98f0: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20        }..       
9900: 20 66 6f 72 28 6a 3d 30 3b 20 6a 3c 6e 46 6c 61   for(j=0; j<nFla
9910: 67 73 3b 20 6a 2b 2b 29 7b 0a 20 20 20 20 20 20  gs; j++){.      
9920: 20 20 20 20 69 6e 74 20 69 64 78 20 3d 20 30 3b      int idx = 0;
9930: 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20 54  .          if( T
9940: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f  cl_GetIndexFromO
9950: 62 6a 53 74 72 75 63 74 28 69 6e 74 65 72 70 2c  bjStruct(interp,
9960: 20 66 6c 61 67 73 5b 6a 5d 2c 20 61 46 6c 61 67   flags[j], aFlag
9970: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  , .             
9980: 20 20 20 73 69 7a 65 6f 66 28 61 46 6c 61 67 5b     sizeof(aFlag[
9990: 30 5d 29 2c 20 22 66 6c 61 67 22 2c 20 30 2c 20  0]), "flag", 0, 
99a0: 26 69 64 78 29 20 0a 20 20 20 20 20 20 20 20 20  &idx) .         
99b0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20   ){.            
99c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
99d0: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20  ;.          }.  
99e0: 20 20 20 20 20 20 20 20 69 66 28 20 61 46 6c 61          if( aFla
99f0: 67 5b 69 64 78 5d 2e 69 56 61 6c 75 65 3c 30 20  g[idx].iValue<0 
9a00: 26 26 20 6e 46 6c 61 67 73 3e 31 20 29 7b 0a 20  && nFlags>1 ){. 
9a10: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41             Tcl_A
9a20: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
9a30: 72 70 2c 20 22 62 61 64 20 66 6c 61 67 73 3a 20  rp, "bad flags: 
9a40: 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  ", Tcl_GetString
9a50: 28 6f 62 6a 76 5b 32 5d 29 2c 20 30 29 3b 0a 20  (objv[2]), 0);. 
9a60: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
9a70: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
9a80: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
9a90: 20 20 20 69 4e 65 77 20 7c 3d 20 61 46 6c 61 67     iNew |= aFlag
9aa0: 5b 69 64 78 5d 2e 69 56 61 6c 75 65 3b 0a 20 20  [idx].iValue;.  
9ab0: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20        }..       
9ac0: 20 70 2d 3e 69 44 65 76 63 68 61 72 20 3d 20 69   p->iDevchar = i
9ad0: 4e 65 77 7c 20 30 78 31 30 30 30 30 30 30 30 3b  New| 0x10000000;
9ae0: 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20  .      }..      
9af0: 70 52 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62  pRet = Tcl_NewOb
9b00: 6a 28 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 69  j();.      for(i
9b10: 46 6c 61 67 3d 30 3b 20 69 46 6c 61 67 3c 73 69  Flag=0; iFlag<si
9b20: 7a 65 6f 66 28 61 46 6c 61 67 29 2f 73 69 7a 65  zeof(aFlag)/size
9b30: 6f 66 28 61 46 6c 61 67 5b 30 5d 29 3b 20 69 46  of(aFlag[0]); iF
9b40: 6c 61 67 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20  lag++){.        
9b50: 69 66 28 20 70 2d 3e 69 44 65 76 63 68 61 72 20  if( p->iDevchar 
9b60: 26 20 61 46 6c 61 67 5b 69 46 6c 61 67 5d 2e 69  & aFlag[iFlag].i
9b70: 56 61 6c 75 65 20 29 7b 0a 20 20 20 20 20 20 20  Value ){.       
9b80: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70     Tcl_ListObjAp
9b90: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 0a 20 20 20  pendElement(.   
9ba0: 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72             inter
9bb0: 70 2c 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77  p, pRet, Tcl_New
9bc0: 53 74 72 69 6e 67 4f 62 6a 28 61 46 6c 61 67 5b  StringObj(aFlag[
9bd0: 69 46 6c 61 67 5d 2e 7a 4e 61 6d 65 2c 20 2d 31  iFlag].zName, -1
9be0: 29 0a 20 20 20 20 20 20 20 20 20 20 29 3b 0a 20  ).          );. 
9bf0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d         }.      }
9c00: 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  .      Tcl_SetOb
9c10: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
9c20: 70 52 65 74 29 3b 0a 0a 20 20 20 20 20 20 62 72  pRet);..      br
9c30: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  eak;.    }..    
9c40: 63 61 73 65 20 43 4d 44 5f 53 45 43 54 4f 52 53  case CMD_SECTORS
9c50: 49 5a 45 3a 20 7b 0a 20 20 20 20 20 20 69 66 28  IZE: {.      if(
9c60: 20 6f 62 6a 63 3e 33 20 29 7b 0a 20 20 20 20 20   objc>3 ){.     
9c70: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
9c80: 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
9c90: 62 6a 76 2c 20 22 3f 56 41 4c 55 45 3f 22 29 3b  bjv, "?VALUE?");
9ca0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
9cb0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
9cc0: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a   }.      if( obj
9cd0: 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20  c==3 ){.        
9ce0: 69 6e 74 20 69 4e 65 77 20 3d 20 30 3b 0a 20 20  int iNew = 0;.  
9cf0: 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65        if( Tcl_Ge
9d00: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65  tIntFromObj(inte
9d10: 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 4e  rp, objv[2], &iN
9d20: 65 77 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20  ew) ){.         
9d30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
9d40: 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  R;.        }.   
9d50: 20 20 20 20 20 70 2d 3e 69 53 65 63 74 6f 72 73       p->iSectors
9d60: 69 7a 65 20 3d 20 69 4e 65 77 3b 0a 20 20 20 20  ize = iNew;.    
9d70: 20 20 7d 0a 20 20 20 20 20 20 54 63 6c 5f 53 65    }.      Tcl_Se
9d80: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
9d90: 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  p, Tcl_NewIntObj
9da0: 28 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65 29  (p->iSectorsize)
9db0: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
9dc0: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74      }.  }..  ret
9dd0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73  urn TCL_OK;.}..s
9de0: 74 61 74 69 63 20 76 6f 69 64 20 53 51 4c 49 54  tatic void SQLIT
9df0: 45 5f 54 43 4c 41 50 49 20 74 65 73 74 76 66 73  E_TCLAPI testvfs
9e00: 5f 6f 62 6a 5f 64 65 6c 28 43 6c 69 65 6e 74 44  _obj_del(ClientD
9e10: 61 74 61 20 63 64 29 7b 0a 20 20 54 65 73 74 76  ata cd){.  Testv
9e20: 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  fs *p = (Testvfs
9e30: 20 2a 29 63 64 3b 0a 20 20 69 66 28 20 70 2d 3e   *)cd;.  if( p->
9e40: 70 53 63 72 69 70 74 20 29 20 54 63 6c 5f 44 65  pScript ) Tcl_De
9e50: 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53  crRefCount(p->pS
9e60: 63 72 69 70 74 29 3b 0a 20 20 73 71 6c 69 74 65  cript);.  sqlite
9e70: 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72  3_vfs_unregister
9e80: 28 70 2d 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66  (p->pVfs);.  ckf
9e90: 72 65 65 28 28 63 68 61 72 20 2a 29 70 2d 3e 70  ree((char *)p->p
9ea0: 56 66 73 29 3b 0a 20 20 63 6b 66 72 65 65 28 28  Vfs);.  ckfree((
9eb0: 63 68 61 72 20 2a 29 70 29 3b 0a 7d 0a 0a 2f 2a  char *)p);.}../*
9ec0: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 74 65 73 74  .** Usage:  test
9ed0: 76 66 73 20 56 46 53 4e 41 4d 45 20 3f 53 57 49  vfs VFSNAME ?SWI
9ee0: 54 43 48 45 53 3f 0a 2a 2a 0a 2a 2a 20 53 77 69  TCHES?.**.** Swi
9ef0: 74 63 68 65 73 20 61 72 65 3a 0a 2a 2a 0a 2a 2a  tches are:.**.**
9f00: 20 20 20 2d 6e 6f 73 68 6d 20 20 20 42 4f 4f 4c     -noshm   BOOL
9f10: 45 41 4e 20 20 20 20 20 20 20 20 20 20 20 20 20  EAN             
9f20: 28 54 72 75 65 20 74 6f 20 6f 6d 69 74 20 73 68  (True to omit sh
9f30: 6d 20 6d 65 74 68 6f 64 73 2e 20 44 65 66 61 75  m methods. Defau
9f40: 6c 74 20 66 61 6c 73 65 29 0a 2a 2a 20 20 20 2d  lt false).**   -
9f50: 64 65 66 61 75 6c 74 20 42 4f 4f 4c 45 41 4e 20  default BOOLEAN 
9f60: 20 20 20 20 20 20 20 20 20 20 20 20 28 54 72 75              (Tru
9f70: 65 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 76 66  e to make the vf
9f80: 73 20 64 65 66 61 75 6c 74 2e 20 44 65 66 61 75  s default. Defau
9f90: 6c 74 20 66 61 6c 73 65 29 0a 2a 2a 0a 2a 2a 20  lt false).**.** 
9fa0: 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 63 72 65  This command cre
9fb0: 61 74 65 73 20 74 77 6f 20 74 68 69 6e 67 73 20  ates two things 
9fc0: 77 68 65 6e 20 69 74 20 69 73 20 69 6e 76 6f 6b  when it is invok
9fd0: 65 64 3a 20 61 6e 20 53 51 4c 69 74 65 20 56 46  ed: an SQLite VF
9fe0: 53 2c 20 61 6e 64 0a 2a 2a 20 61 20 54 63 6c 20  S, and.** a Tcl 
9ff0: 63 6f 6d 6d 61 6e 64 2e 20 42 6f 74 68 20 61 72  command. Both ar
a000: 65 20 6e 61 6d 65 64 20 56 46 53 4e 41 4d 45 2e  e named VFSNAME.
a010: 20 54 68 65 20 56 46 53 20 69 73 20 69 6e 73 74   The VFS is inst
a020: 61 6c 6c 65 64 2e 20 49 74 20 69 73 20 6e 6f 74  alled. It is not
a030: 0a 2a 2a 20 69 6e 73 74 61 6c 6c 65 64 20 61 73  .** installed as
a040: 20 74 68 65 20 64 65 66 61 75 6c 74 20 56 46 53   the default VFS
a050: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 56 46 53 20  ..**.** The VFS 
a060: 70 61 73 73 65 73 20 61 6c 6c 20 66 69 6c 65 20  passes all file 
a070: 49 2f 4f 20 63 61 6c 6c 73 20 74 68 72 6f 75 67  I/O calls throug
a080: 68 20 74 6f 20 74 68 65 20 75 6e 64 65 72 6c 79  h to the underly
a090: 69 6e 67 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 57  ing VFS..**.** W
a0a0: 68 65 6e 65 76 65 72 20 74 68 65 20 78 53 68 6d  henever the xShm
a0b0: 4d 61 70 20 6d 65 74 68 6f 64 20 6f 66 20 74 68  Map method of th
a0c0: 65 20 56 46 53 0a 2a 2a 20 69 73 20 69 6e 76 6f  e VFS.** is invo
a0d0: 6b 65 64 2c 20 74 68 65 20 53 43 52 49 50 54 20  ked, the SCRIPT 
a0e0: 69 73 20 65 78 65 63 75 74 65 64 20 61 73 20 66  is executed as f
a0f0: 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20  ollows:.**.**   
a100: 53 43 52 49 50 54 20 78 53 68 6d 4d 61 70 20 20  SCRIPT xShmMap  
a110: 20 20 46 49 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a    FILENAME ID.**
a120: 0a 2a 2a 20 54 68 65 20 76 61 6c 75 65 20 72 65  .** The value re
a130: 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 69 6e  turned by the in
a140: 76 6f 63 61 74 69 6f 6e 20 6f 66 20 53 43 52 49  vocation of SCRI
a150: 50 54 20 61 62 6f 76 65 20 69 73 20 69 6e 74 65  PT above is inte
a160: 72 70 72 65 74 65 64 20 61 73 0a 2a 2a 20 61 6e  rpreted as.** an
a170: 20 53 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f   SQLite error co
a180: 64 65 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20  de and returned 
a190: 74 6f 20 53 51 4c 69 74 65 2e 20 45 69 74 68 65  to SQLite. Eithe
a1a0: 72 20 61 20 73 79 6d 62 6f 6c 69 63 20 0a 2a 2a  r a symbolic .**
a1b0: 20 22 53 51 4c 49 54 45 5f 4f 4b 22 20 6f 72 20   "SQLITE_OK" or 
a1c0: 6e 75 6d 65 72 69 63 20 22 30 22 20 76 61 6c 75  numeric "0" valu
a1d0: 65 20 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65  e may be returne
a1e0: 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e  d..**.** The con
a1f0: 74 65 6e 74 73 20 6f 66 20 74 68 65 20 73 68 61  tents of the sha
a200: 72 65 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65  red-memory buffe
a210: 72 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74  r associated wit
a220: 68 20 61 20 67 69 76 65 6e 20 66 69 6c 65 0a 2a  h a given file.*
a230: 2a 20 6d 61 79 20 62 65 20 72 65 61 64 20 61 6e  * may be read an
a240: 64 20 73 65 74 20 75 73 69 6e 67 20 74 68 65 20  d set using the 
a250: 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e  following comman
a260: 64 3a 0a 2a 2a 0a 2a 2a 20 20 20 56 46 53 4e 41  d:.**.**   VFSNA
a270: 4d 45 20 73 68 6d 20 46 49 4c 45 4e 41 4d 45 20  ME shm FILENAME 
a280: 3f 4e 45 57 56 41 4c 55 45 3f 0a 2a 2a 0a 2a 2a  ?NEWVALUE?.**.**
a290: 20 57 68 65 6e 20 74 68 65 20 78 53 68 6d 4c 6f   When the xShmLo
a2a0: 63 6b 20 6d 65 74 68 6f 64 20 69 73 20 69 6e 76  ck method is inv
a2b0: 6f 6b 65 64 20 62 79 20 53 51 4c 69 74 65 2c 20  oked by SQLite, 
a2c0: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 63  the following sc
a2d0: 72 69 70 74 20 69 73 0a 2a 2a 20 72 75 6e 3a 0a  ript is.** run:.
a2e0: 2a 2a 0a 2a 2a 20 20 20 53 43 52 49 50 54 20 78  **.**   SCRIPT x
a2f0: 53 68 6d 4c 6f 63 6b 20 20 20 20 46 49 4c 45 4e  ShmLock    FILEN
a300: 41 4d 45 20 49 44 20 4c 4f 43 4b 0a 2a 2a 0a 2a  AME ID LOCK.**.*
a310: 2a 20 77 68 65 72 65 20 4c 4f 43 4b 20 69 73 20  * where LOCK is 
a320: 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 4f 46 46  of the form "OFF
a330: 53 45 54 20 4e 42 59 54 45 20 6c 6f 63 6b 2f 75  SET NBYTE lock/u
a340: 6e 6c 6f 63 6b 20 73 68 61 72 65 64 2f 65 78 63  nlock shared/exc
a350: 6c 75 73 69 76 65 22 0a 2a 2f 0a 73 74 61 74 69  lusive".*/.stati
a360: 63 20 69 6e 74 20 53 51 4c 49 54 45 5f 54 43 4c  c int SQLITE_TCL
a370: 41 50 49 20 74 65 73 74 76 66 73 5f 63 6d 64 28  API testvfs_cmd(
a380: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 64  .  ClientData cd
a390: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
a3a0: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62  interp,.  int ob
a3b0: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43  jc,.  Tcl_Obj *C
a3c0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20  ONST objv[].){. 
a3d0: 20 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f   static sqlite3_
a3e0: 76 66 73 20 74 76 66 73 5f 76 66 73 20 3d 20 7b  vfs tvfs_vfs = {
a3f0: 0a 20 20 20 20 33 2c 20 20 20 20 20 20 20 20 20  .    3,         
a400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a410: 20 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a     /* iVersion *
a420: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
a430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a440: 20 20 20 20 2f 2a 20 73 7a 4f 73 46 69 6c 65 20      /* szOsFile 
a450: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
a460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a470: 20 20 20 20 20 2f 2a 20 6d 78 50 61 74 68 6e 61       /* mxPathna
a480: 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  me */.    0,    
a490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a4a0: 20 20 20 20 20 20 20 20 2f 2a 20 70 4e 65 78 74          /* pNext
a4b0: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
a4c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a4d0: 20 20 20 20 20 20 2f 2a 20 7a 4e 61 6d 65 20 2a        /* zName *
a4e0: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
a4f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a500: 20 20 20 20 2f 2a 20 70 41 70 70 44 61 74 61 20      /* pAppData 
a510: 2a 2f 0a 20 20 20 20 74 76 66 73 4f 70 65 6e 2c  */.    tvfsOpen,
a520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a530: 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20 2a 2f       /* xOpen */
a540: 0a 20 20 20 20 74 76 66 73 44 65 6c 65 74 65 2c  .    tvfsDelete,
a550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a560: 20 20 20 2f 2a 20 78 44 65 6c 65 74 65 20 2a 2f     /* xDelete */
a570: 0a 20 20 20 20 74 76 66 73 41 63 63 65 73 73 2c  .    tvfsAccess,
a580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a590: 20 20 20 2f 2a 20 78 41 63 63 65 73 73 20 2a 2f     /* xAccess */
a5a0: 0a 20 20 20 20 74 76 66 73 46 75 6c 6c 50 61 74  .    tvfsFullPat
a5b0: 68 6e 61 6d 65 2c 20 20 20 20 20 20 20 20 20 20  hname,          
a5c0: 20 20 20 2f 2a 20 78 46 75 6c 6c 50 61 74 68 6e     /* xFullPathn
a5d0: 61 6d 65 20 2a 2f 0a 23 69 66 6e 64 65 66 20 53  ame */.#ifndef S
a5e0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f  QLITE_OMIT_LOAD_
a5f0: 45 58 54 45 4e 53 49 4f 4e 0a 20 20 20 20 74 76  EXTENSION.    tv
a600: 66 73 44 6c 4f 70 65 6e 2c 20 20 20 20 20 20 20  fsDlOpen,       
a610: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a620: 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20 20 74 76  DlOpen */.    tv
a630: 66 73 44 6c 45 72 72 6f 72 2c 20 20 20 20 20 20  fsDlError,      
a640: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a650: 44 6c 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 74  DlError */.    t
a660: 76 66 73 44 6c 53 79 6d 2c 20 20 20 20 20 20 20  vfsDlSym,       
a670: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a680: 78 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20 74 76  xDlSym */.    tv
a690: 66 73 44 6c 43 6c 6f 73 65 2c 20 20 20 20 20 20  fsDlClose,      
a6a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a6b0: 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65 6c 73 65  DlClose */.#else
a6c0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
a6d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a6e0: 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f     /* xDlOpen */
a6f0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
a700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a710: 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72 20 2a     /* xDlError *
a720: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
a730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a740: 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20 2a 2f      /* xDlSym */
a750: 0a 20 20 20 20 30 2c 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 20                  
a770: 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65 20 2a     /* xDlClose *
a780: 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49  /.#endif /* SQLI
a790: 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54  TE_OMIT_LOAD_EXT
a7a0: 45 4e 53 49 4f 4e 20 2a 2f 0a 20 20 20 20 74 76  ENSION */.    tv
a7b0: 66 73 52 61 6e 64 6f 6d 6e 65 73 73 2c 20 20 20  fsRandomness,   
a7c0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a7d0: 52 61 6e 64 6f 6d 6e 65 73 73 20 2a 2f 0a 20 20  Randomness */.  
a7e0: 20 20 74 76 66 73 53 6c 65 65 70 2c 20 20 20 20    tvfsSleep,    
a7f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a800: 2f 2a 20 78 53 6c 65 65 70 20 2a 2f 0a 20 20 20  /* xSleep */.   
a810: 20 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65   tvfsCurrentTime
a820: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ,              /
a830: 2a 20 78 43 75 72 72 65 6e 74 54 69 6d 65 20 2a  * xCurrentTime *
a840: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
a850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a860: 20 20 20 20 2f 2a 20 78 47 65 74 4c 61 73 74 45      /* xGetLastE
a870: 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c 20 20  rror */.    0,  
a880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a890: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 75            /* xCu
a8a0: 72 72 65 6e 74 54 69 6d 65 49 6e 74 36 34 20 2a  rrentTimeInt64 *
a8b0: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
a8c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a8d0: 20 20 20 20 2f 2a 20 78 53 65 74 53 79 73 74 65      /* xSetSyste
a8e0: 6d 43 61 6c 6c 20 2a 2f 0a 20 20 20 20 30 2c 20  mCall */.    0, 
a8f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a900: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 47             /* xG
a910: 65 74 53 79 73 74 65 6d 43 61 6c 6c 20 2a 2f 0a  etSystemCall */.
a920: 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20      0,          
a930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a940: 20 20 2f 2a 20 78 4e 65 78 74 53 79 73 74 65 6d    /* xNextSystem
a950: 43 61 6c 6c 20 2a 2f 0a 20 20 7d 3b 0a 0a 20 20  Call */.  };..  
a960: 54 65 73 74 76 66 73 20 2a 70 3b 20 20 20 20 20  Testvfs *p;     
a970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a980: 2f 2a 20 4e 65 77 20 6f 62 6a 65 63 74 20 2a 2f  /* New object */
a990: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
a9a0: 70 56 66 73 3b 20 20 20 20 20 20 20 20 20 20 20  pVfs;           
a9b0: 20 20 20 2f 2a 20 4e 65 77 20 56 46 53 20 2a 2f     /* New VFS */
a9c0: 0a 20 20 63 68 61 72 20 2a 7a 56 66 73 3b 0a 20  .  char *zVfs;. 
a9d0: 20 69 6e 74 20 6e 42 79 74 65 3b 20 20 20 20 20   int nByte;     
a9e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a9f0: 20 2f 2a 20 42 79 74 65 73 20 6f 66 20 73 70 61   /* Bytes of spa
aa00: 63 65 20 74 6f 20 61 6c 6c 6f 63 61 74 65 20 61  ce to allocate a
aa10: 74 20 70 20 2a 2f 0a 0a 20 20 69 6e 74 20 69 3b  t p */..  int i;
aa20: 0a 20 20 69 6e 74 20 69 73 4e 6f 73 68 6d 20 3d  .  int isNoshm =
aa30: 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   0;             
aa40: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 2d 6e     /* True if -n
aa50: 6f 73 68 6d 20 69 73 20 70 61 73 73 65 64 20 2a  oshm is passed *
aa60: 2f 0a 20 20 69 6e 74 20 69 73 46 75 6c 6c 73 68  /.  int isFullsh
aa70: 6d 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20  m = 0;          
aa80: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 2d      /* True if -
aa90: 66 75 6c 6c 73 68 6d 20 69 73 20 70 61 73 73 65  fullshm is passe
aaa0: 64 20 2a 2f 0a 20 20 69 6e 74 20 69 73 44 65 66  d */.  int isDef
aab0: 61 75 6c 74 20 3d 20 30 3b 20 20 20 20 20 20 20  ault = 0;       
aac0: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69         /* True i
aad0: 66 20 2d 64 65 66 61 75 6c 74 20 69 73 20 70 61  f -default is pa
aae0: 73 73 65 64 20 2a 2f 0a 20 20 69 6e 74 20 73 7a  ssed */.  int sz
aaf0: 4f 73 46 69 6c 65 20 3d 20 30 3b 20 20 20 20 20  OsFile = 0;     
ab00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 56 61 6c            /* Val
ab10: 75 65 20 70 61 73 73 65 64 20 74 6f 20 2d 73 7a  ue passed to -sz
ab20: 6f 73 66 69 6c 65 20 2a 2f 0a 20 20 69 6e 74 20  osfile */.  int 
ab30: 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20 2d 31 3b  mxPathname = -1;
ab40: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 56              /* V
ab50: 61 6c 75 65 20 70 61 73 73 65 64 20 74 6f 20 2d  alue passed to -
ab60: 6d 78 70 61 74 68 6e 61 6d 65 20 2a 2f 0a 20 20  mxpathname */.  
ab70: 69 6e 74 20 69 56 65 72 73 69 6f 6e 20 3d 20 33  int iVersion = 3
ab80: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
ab90: 2f 2a 20 56 61 6c 75 65 20 70 61 73 73 65 64 20  /* Value passed 
aba0: 74 6f 20 2d 69 76 65 72 73 69 6f 6e 20 2a 2f 0a  to -iversion */.
abb0: 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 7c 7c  .  if( objc<2 ||
abc0: 20 30 21 3d 28 6f 62 6a 63 25 32 29 20 29 20 67   0!=(objc%2) ) g
abd0: 6f 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a 20 20  oto bad_args;.  
abe0: 66 6f 72 28 69 3d 32 3b 20 69 3c 6f 62 6a 63 3b  for(i=2; i<objc;
abf0: 20 69 20 2b 3d 20 32 29 7b 0a 20 20 20 20 69 6e   i += 2){.    in
ac00: 74 20 6e 53 77 69 74 63 68 3b 0a 20 20 20 20 63  t nSwitch;.    c
ac10: 68 61 72 20 2a 7a 53 77 69 74 63 68 3b 0a 20 20  har *zSwitch;.  
ac20: 20 20 7a 53 77 69 74 63 68 20 3d 20 54 63 6c 5f    zSwitch = Tcl_
ac30: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
ac40: 28 6f 62 6a 76 5b 69 5d 2c 20 26 6e 53 77 69 74  (objv[i], &nSwit
ac50: 63 68 29 3b 20 0a 0a 20 20 20 20 69 66 28 20 6e  ch); ..    if( n
ac60: 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73  Switch>2 && 0==s
ac70: 74 72 6e 63 6d 70 28 22 2d 6e 6f 73 68 6d 22 2c  trncmp("-noshm",
ac80: 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69 74 63   zSwitch, nSwitc
ac90: 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  h) ){.      if( 
aca0: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72  Tcl_GetBooleanFr
acb0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
acc0: 6a 76 5b 69 2b 31 5d 2c 20 26 69 73 4e 6f 73 68  jv[i+1], &isNosh
acd0: 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65  m) ){.        re
ace0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
acf0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
ad00: 28 20 69 73 4e 6f 73 68 6d 20 29 20 69 73 46 75  ( isNoshm ) isFu
ad10: 6c 6c 73 68 6d 20 3d 20 30 3b 0a 20 20 20 20 7d  llshm = 0;.    }
ad20: 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e 53  .    else if( nS
ad30: 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73 74  witch>2 && 0==st
ad40: 72 6e 63 6d 70 28 22 2d 64 65 66 61 75 6c 74 22  rncmp("-default"
ad50: 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69 74  , zSwitch, nSwit
ad60: 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28  ch) ){.      if(
ad70: 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46   Tcl_GetBooleanF
ad80: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
ad90: 62 6a 76 5b 69 2b 31 5d 2c 20 26 69 73 44 65 66  bjv[i+1], &isDef
ada0: 61 75 6c 74 29 20 29 7b 0a 20 20 20 20 20 20 20  ault) ){.       
adb0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
adc0: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  R;.      }.    }
add0: 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e 53  .    else if( nS
ade0: 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73 74  witch>2 && 0==st
adf0: 72 6e 63 6d 70 28 22 2d 73 7a 6f 73 66 69 6c 65  rncmp("-szosfile
ae00: 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69  ", zSwitch, nSwi
ae10: 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66  tch) ){.      if
ae20: 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d  ( Tcl_GetIntFrom
ae30: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  Obj(interp, objv
ae40: 5b 69 2b 31 5d 2c 20 26 73 7a 4f 73 46 69 6c 65  [i+1], &szOsFile
ae50: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74  ) ){.        ret
ae60: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
ae70: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
ae80: 20 65 6c 73 65 20 69 66 28 20 6e 53 77 69 74 63   else if( nSwitc
ae90: 68 3e 32 20 26 26 20 30 3d 3d 73 74 72 6e 63 6d  h>2 && 0==strncm
aea0: 70 28 22 2d 6d 78 70 61 74 68 6e 61 6d 65 22 2c  p("-mxpathname",
aeb0: 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69 74 63   zSwitch, nSwitc
aec0: 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  h) ){.      if( 
aed0: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62  Tcl_GetIntFromOb
aee0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69  j(interp, objv[i
aef0: 2b 31 5d 2c 20 26 6d 78 50 61 74 68 6e 61 6d 65  +1], &mxPathname
af00: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74  ) ){.        ret
af10: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
af20: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
af30: 20 65 6c 73 65 20 69 66 28 20 6e 53 77 69 74 63   else if( nSwitc
af40: 68 3e 32 20 26 26 20 30 3d 3d 73 74 72 6e 63 6d  h>2 && 0==strncm
af50: 70 28 22 2d 69 76 65 72 73 69 6f 6e 22 2c 20 7a  p("-iversion", z
af60: 53 77 69 74 63 68 2c 20 6e 53 77 69 74 63 68 29  Switch, nSwitch)
af70: 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 54 63   ){.      if( Tc
af80: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28  l_GetIntFromObj(
af90: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31  interp, objv[i+1
afa0: 5d 2c 20 26 69 56 65 72 73 69 6f 6e 29 20 29 7b  ], &iVersion) ){
afb0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
afc0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
afd0: 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73   }.    }.    els
afe0: 65 20 69 66 28 20 6e 53 77 69 74 63 68 3e 32 20  e if( nSwitch>2 
aff0: 26 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d  && 0==strncmp("-
b000: 66 75 6c 6c 73 68 6d 22 2c 20 7a 53 77 69 74 63  fullshm", zSwitc
b010: 68 2c 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20  h, nSwitch) ){. 
b020: 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74       if( Tcl_Get
b030: 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69  BooleanFromObj(i
b040: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d  nterp, objv[i+1]
b050: 2c 20 26 69 73 46 75 6c 6c 73 68 6d 29 20 29 7b  , &isFullshm) ){
b060: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
b070: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
b080: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 69 73 46   }.      if( isF
b090: 75 6c 6c 73 68 6d 20 29 20 69 73 4e 6f 73 68 6d  ullshm ) isNoshm
b0a0: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20   = 0;.    }.    
b0b0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 67 6f 74 6f  else{.      goto
b0c0: 20 62 61 64 5f 61 72 67 73 3b 0a 20 20 20 20 7d   bad_args;.    }
b0d0: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 73 7a 4f 73  .  }..  if( szOs
b0e0: 46 69 6c 65 3c 73 69 7a 65 6f 66 28 54 65 73 74  File<sizeof(Test
b0f0: 76 66 73 46 69 6c 65 29 20 29 7b 0a 20 20 20 20  vfsFile) ){.    
b100: 73 7a 4f 73 46 69 6c 65 20 3d 20 73 69 7a 65 6f  szOsFile = sizeo
b110: 66 28 54 65 73 74 76 66 73 46 69 6c 65 29 3b 0a  f(TestvfsFile);.
b120: 20 20 7d 0a 0a 20 20 7a 56 66 73 20 3d 20 54 63    }..  zVfs = Tc
b130: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
b140: 5b 31 5d 29 3b 0a 20 20 6e 42 79 74 65 20 3d 20  [1]);.  nByte = 
b150: 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 29 20  sizeof(Testvfs) 
b160: 2b 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 7a 56  + (int)strlen(zV
b170: 66 73 29 2b 31 3b 0a 20 20 70 20 3d 20 28 54 65  fs)+1;.  p = (Te
b180: 73 74 76 66 73 20 2a 29 63 6b 61 6c 6c 6f 63 28  stvfs *)ckalloc(
b190: 6e 42 79 74 65 29 3b 0a 20 20 6d 65 6d 73 65 74  nByte);.  memset
b1a0: 28 70 2c 20 30 2c 20 6e 42 79 74 65 29 3b 0a 20  (p, 0, nByte);. 
b1b0: 20 70 2d 3e 69 44 65 76 63 68 61 72 20 3d 20 2d   p->iDevchar = -
b1c0: 31 3b 0a 20 20 70 2d 3e 69 53 65 63 74 6f 72 73  1;.  p->iSectors
b1d0: 69 7a 65 20 3d 20 2d 31 3b 0a 0a 20 20 2f 2a 20  ize = -1;..  /* 
b1e0: 43 72 65 61 74 65 20 74 68 65 20 6e 65 77 20 6f  Create the new o
b1f0: 62 6a 65 63 74 20 63 6f 6d 6d 61 6e 64 20 62 65  bject command be
b200: 66 6f 72 65 20 71 75 65 72 79 69 6e 67 20 53 51  fore querying SQ
b210: 4c 69 74 65 20 66 6f 72 20 61 20 64 65 66 61 75  Lite for a defau
b220: 6c 74 20 56 46 53 0a 20 20 2a 2a 20 74 6f 20 75  lt VFS.  ** to u
b230: 73 65 20 66 6f 72 20 27 72 65 61 6c 27 20 49 4f  se for 'real' IO
b240: 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20 54 68 69   operations. Thi
b250: 73 20 69 73 20 62 65 63 61 75 73 65 20 63 72 65  s is because cre
b260: 61 74 69 6e 67 20 74 68 65 20 6e 65 77 20 56 46  ating the new VF
b270: 53 0a 20 20 2a 2a 20 6d 61 79 20 64 65 6c 65 74  S.  ** may delet
b280: 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 5b 74  e an existing [t
b290: 65 73 74 76 66 73 5d 20 56 46 53 20 6f 66 20 74  estvfs] VFS of t
b2a0: 68 65 20 73 61 6d 65 20 6e 61 6d 65 2e 20 49 66  he same name. If
b2b0: 20 73 75 63 68 20 61 20 56 46 53 0a 20 20 2a 2a   such a VFS.  **
b2c0: 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20 74 68   is currently th
b2d0: 65 20 64 65 66 61 75 6c 74 2c 20 74 68 65 20 6e  e default, the n
b2e0: 65 77 20 5b 74 65 73 74 76 66 73 5d 20 6d 61 79  ew [testvfs] may
b2f0: 20 65 6e 64 20 75 70 20 63 61 6c 6c 69 6e 67 20   end up calling 
b300: 74 68 65 20 0a 20 20 2a 2a 20 6d 65 74 68 6f 64  the .  ** method
b310: 73 20 6f 66 20 61 20 64 65 6c 65 74 65 64 20 6f  s of a deleted o
b320: 62 6a 65 63 74 2e 0a 20 20 2a 2f 0a 20 20 54 63  bject..  */.  Tc
b330: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
b340: 6e 64 28 69 6e 74 65 72 70 2c 20 7a 56 66 73 2c  nd(interp, zVfs,
b350: 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 63 6d 64   testvfs_obj_cmd
b360: 2c 20 70 2c 20 74 65 73 74 76 66 73 5f 6f 62 6a  , p, testvfs_obj
b370: 5f 64 65 6c 29 3b 0a 20 20 70 2d 3e 70 50 61 72  _del);.  p->pPar
b380: 65 6e 74 20 3d 20 73 71 6c 69 74 65 33 5f 76 66  ent = sqlite3_vf
b390: 73 5f 66 69 6e 64 28 30 29 3b 0a 20 20 70 2d 3e  s_find(0);.  p->
b3a0: 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b  interp = interp;
b3b0: 0a 0a 20 20 70 2d 3e 7a 4e 61 6d 65 20 3d 20 28  ..  p->zName = (
b3c0: 63 68 61 72 20 2a 29 26 70 5b 31 5d 3b 0a 20 20  char *)&p[1];.  
b3d0: 6d 65 6d 63 70 79 28 70 2d 3e 7a 4e 61 6d 65 2c  memcpy(p->zName,
b3e0: 20 7a 56 66 73 2c 20 73 74 72 6c 65 6e 28 7a 56   zVfs, strlen(zV
b3f0: 66 73 29 2b 31 29 3b 0a 0a 20 20 70 56 66 73 20  fs)+1);..  pVfs 
b400: 3d 20 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  = (sqlite3_vfs *
b410: 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28  )ckalloc(sizeof(
b420: 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b 0a 20  sqlite3_vfs));. 
b430: 20 6d 65 6d 63 70 79 28 70 56 66 73 2c 20 26 74   memcpy(pVfs, &t
b440: 76 66 73 5f 76 66 73 2c 20 73 69 7a 65 6f 66 28  vfs_vfs, sizeof(
b450: 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b 0a 20  sqlite3_vfs));. 
b460: 20 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 20   pVfs->pAppData 
b470: 3d 20 28 76 6f 69 64 20 2a 29 70 3b 0a 20 20 70  = (void *)p;.  p
b480: 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e 20 3d 20  Vfs->iVersion = 
b490: 69 56 65 72 73 69 6f 6e 3b 0a 20 20 70 56 66 73  iVersion;.  pVfs
b4a0: 2d 3e 7a 4e 61 6d 65 20 3d 20 70 2d 3e 7a 4e 61  ->zName = p->zNa
b4b0: 6d 65 3b 0a 20 20 70 56 66 73 2d 3e 6d 78 50 61  me;.  pVfs->mxPa
b4c0: 74 68 6e 61 6d 65 20 3d 20 70 2d 3e 70 50 61 72  thname = p->pPar
b4d0: 65 6e 74 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 3b  ent->mxPathname;
b4e0: 0a 20 20 69 66 28 20 6d 78 50 61 74 68 6e 61 6d  .  if( mxPathnam
b4f0: 65 3e 3d 30 20 26 26 20 6d 78 50 61 74 68 6e 61  e>=0 && mxPathna
b500: 6d 65 3c 70 56 66 73 2d 3e 6d 78 50 61 74 68 6e  me<pVfs->mxPathn
b510: 61 6d 65 20 29 7b 0a 20 20 20 20 70 56 66 73 2d  ame ){.    pVfs-
b520: 3e 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20 6d 78  >mxPathname = mx
b530: 50 61 74 68 6e 61 6d 65 3b 0a 20 20 7d 0a 20 20  Pathname;.  }.  
b540: 70 56 66 73 2d 3e 73 7a 4f 73 46 69 6c 65 20 3d  pVfs->szOsFile =
b550: 20 73 7a 4f 73 46 69 6c 65 3b 0a 20 20 70 2d 3e   szOsFile;.  p->
b560: 70 56 66 73 20 3d 20 70 56 66 73 3b 0a 20 20 70  pVfs = pVfs;.  p
b570: 2d 3e 69 73 4e 6f 73 68 6d 20 3d 20 69 73 4e 6f  ->isNoshm = isNo
b580: 73 68 6d 3b 0a 20 20 70 2d 3e 69 73 46 75 6c 6c  shm;.  p->isFull
b590: 73 68 6d 20 3d 20 69 73 46 75 6c 6c 73 68 6d 3b  shm = isFullshm;
b5a0: 0a 20 20 70 2d 3e 6d 61 73 6b 20 3d 20 54 45 53  .  p->mask = TES
b5b0: 54 56 46 53 5f 41 4c 4c 5f 4d 41 53 4b 3b 0a 0a  TVFS_ALL_MASK;..
b5c0: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 65    sqlite3_vfs_re
b5d0: 67 69 73 74 65 72 28 70 56 66 73 2c 20 69 73 44  gister(pVfs, isD
b5e0: 65 66 61 75 6c 74 29 3b 0a 0a 20 20 72 65 74 75  efault);..  retu
b5f0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 20 62 61 64  rn TCL_OK;.. bad
b600: 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f 57 72 6f  _args:.  Tcl_Wro
b610: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
b620: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 56 46 53 4e  , 1, objv, "VFSN
b630: 41 4d 45 20 3f 2d 6e 6f 73 68 6d 20 42 4f 4f 4c  AME ?-noshm BOOL
b640: 3f 20 3f 2d 66 75 6c 6c 73 68 6d 20 42 4f 4f 4c  ? ?-fullshm BOOL
b650: 3f 20 3f 2d 64 65 66 61 75 6c 74 20 42 4f 4f 4c  ? ?-default BOOL
b660: 3f 20 3f 2d 6d 78 70 61 74 68 6e 61 6d 65 20 49  ? ?-mxpathname I
b670: 4e 54 3f 20 3f 2d 73 7a 6f 73 66 69 6c 65 20 49  NT? ?-szosfile I
b680: 4e 54 3f 20 3f 2d 69 76 65 72 73 69 6f 6e 20 49  NT? ?-iversion I
b690: 4e 54 3f 22 29 3b 0a 20 20 72 65 74 75 72 6e 20  NT?");.  return 
b6a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 65 78  TCL_ERROR;.}..ex
b6b0: 74 65 72 6e 20 69 6e 74 20 67 65 74 44 62 50 6f  tern int getDbPo
b6c0: 69 6e 74 65 72 28 54 63 6c 5f 49 6e 74 65 72 70  inter(Tcl_Interp
b6d0: 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20   *interp, const 
b6e0: 63 68 61 72 20 2a 7a 41 2c 20 73 71 6c 69 74 65  char *zA, sqlite
b6f0: 33 20 2a 2a 70 70 44 62 29 3b 0a 65 78 74 65 72  3 **ppDb);.exter
b700: 6e 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 73 71  n const char *sq
b710: 6c 69 74 65 33 45 72 72 4e 61 6d 65 28 69 6e 74  lite3ErrName(int
b720: 29 3b 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64  );../*.** tclcmd
b730: 3a 20 76 66 73 5f 73 68 6d 6c 6f 63 6b 20 44 42  : vfs_shmlock DB
b740: 20 44 42 4e 41 4d 45 20 28 73 68 61 72 65 64 7c   DBNAME (shared|
b750: 65 78 63 6c 75 73 69 76 65 29 20 28 6c 6f 63 6b  exclusive) (lock
b760: 7c 75 6e 6c 6f 63 6b 29 20 4f 46 46 53 45 54 20  |unlock) OFFSET 
b770: 4e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  N.*/.static int 
b780: 53 51 4c 49 54 45 5f 54 43 4c 41 50 49 20 74 65  SQLITE_TCLAPI te
b790: 73 74 5f 76 66 73 5f 73 68 6d 6c 6f 63 6b 28 0a  st_vfs_shmlock(.
b7a0: 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44    void * clientD
b7b0: 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72  ata,.  Tcl_Inter
b7c0: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74  p *interp,.  int
b7d0: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a   objc,.  Tcl_Obj
b7e0: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29   *CONST objv[].)
b7f0: 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  {.  const char *
b800: 61 7a 41 72 67 31 5b 5d 20 3d 20 7b 22 73 68 61  azArg1[] = {"sha
b810: 72 65 64 22 2c 20 22 65 78 63 6c 75 73 69 76 65  red", "exclusive
b820: 22 2c 20 30 7d 3b 0a 20 20 63 6f 6e 73 74 20 63  ", 0};.  const c
b830: 68 61 72 20 2a 61 7a 41 72 67 32 5b 5d 20 3d 20  har *azArg2[] = 
b840: 7b 22 6c 6f 63 6b 22 2c 20 22 75 6e 6c 6f 63 6b  {"lock", "unlock
b850: 22 2c 20 30 7d 3b 0a 20 20 73 71 6c 69 74 65 33  ", 0};.  sqlite3
b860: 20 2a 64 62 20 3d 20 30 3b 0a 20 20 69 6e 74 20   *db = 0;.  int 
b870: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
b880: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44    const char *zD
b890: 62 6e 61 6d 65 20 3d 20 30 3b 0a 20 20 69 6e 74  bname = 0;.  int
b8a0: 20 69 41 72 67 31 20 3d 20 30 3b 0a 20 20 69 6e   iArg1 = 0;.  in
b8b0: 74 20 69 41 72 67 32 20 3d 20 30 3b 0a 20 20 69  t iArg2 = 0;.  i
b8c0: 6e 74 20 69 4f 66 66 73 65 74 20 3d 20 30 3b 0a  nt iOffset = 0;.
b8d0: 20 20 69 6e 74 20 6e 20 3d 20 30 3b 0a 20 20 73    int n = 0;.  s
b8e0: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 64  qlite3_file *pFd
b8f0: 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 37  ;..  if( objc!=7
b900: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e   ){.    Tcl_Wron
b910: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
b920: 20 31 2c 20 6f 62 6a 76 2c 20 0a 20 20 20 20 20   1, objv, .     
b930: 20 20 20 22 44 42 20 44 42 4e 41 4d 45 20 28 73     "DB DBNAME (s
b940: 68 61 72 65 64 7c 65 78 63 6c 75 73 69 76 65 29  hared|exclusive)
b950: 20 28 6c 6f 63 6b 7c 75 6e 6c 6f 63 6b 29 20 4f   (lock|unlock) O
b960: 46 46 53 45 54 20 4e 22 0a 20 20 20 20 29 3b 0a  FFSET N".    );.
b970: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
b980: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 7a 44 62  RROR;.  }..  zDb
b990: 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74  name = Tcl_GetSt
b9a0: 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20  ring(objv[2]);. 
b9b0: 20 69 66 28 20 67 65 74 44 62 50 6f 69 6e 74 65   if( getDbPointe
b9c0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65  r(interp, Tcl_Ge
b9d0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29  tString(objv[1])
b9e0: 2c 20 26 64 62 29 20 0a 20 20 20 7c 7c 20 54 63  , &db) .   || Tc
b9f0: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62  l_GetIndexFromOb
ba00: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33  j(interp, objv[3
ba10: 5d 2c 20 61 7a 41 72 67 31 2c 20 22 41 52 47 22  ], azArg1, "ARG"
ba20: 2c 20 30 2c 20 26 69 41 72 67 31 29 20 0a 20 20  , 0, &iArg1) .  
ba30: 20 7c 7c 20 54 63 6c 5f 47 65 74 49 6e 64 65 78   || Tcl_GetIndex
ba40: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
ba50: 6f 62 6a 76 5b 34 5d 2c 20 61 7a 41 72 67 32 2c  objv[4], azArg2,
ba60: 20 22 41 52 47 22 2c 20 30 2c 20 26 69 41 72 67   "ARG", 0, &iArg
ba70: 32 29 20 0a 20 20 20 7c 7c 20 54 63 6c 5f 47 65  2) .   || Tcl_Ge
ba80: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65  tIntFromObj(inte
ba90: 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c 20 26 69 4f  rp, objv[5], &iO
baa0: 66 66 73 65 74 29 0a 20 20 20 7c 7c 20 54 63 6c  ffset).   || Tcl
bab0: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69  _GetIntFromObj(i
bac0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 36 5d 2c 20  nterp, objv[6], 
bad0: 26 6e 29 0a 20 20 29 7b 0a 20 20 20 20 72 65 74  &n).  ){.    ret
bae0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
baf0: 20 7d 0a 0a 20 20 73 71 6c 69 74 65 33 5f 66 69   }..  sqlite3_fi
bb00: 6c 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 7a  le_control(db, z
bb10: 44 62 6e 61 6d 65 2c 20 53 51 4c 49 54 45 5f 46  Dbname, SQLITE_F
bb20: 43 4e 54 4c 5f 46 49 4c 45 5f 50 4f 49 4e 54 45  CNTL_FILE_POINTE
bb30: 52 2c 20 28 76 6f 69 64 2a 29 26 70 46 64 29 3b  R, (void*)&pFd);
bb40: 0a 20 20 69 66 28 20 70 46 64 3d 3d 30 20 29 7b  .  if( pFd==0 ){
bb50: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
bb60: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20  ERROR;.  }.  rc 
bb70: 3d 20 70 46 64 2d 3e 70 4d 65 74 68 6f 64 73 2d  = pFd->pMethods-
bb80: 3e 78 53 68 6d 4c 6f 63 6b 28 70 46 64 2c 20 69  >xShmLock(pFd, i
bb90: 4f 66 66 73 65 74 2c 20 6e 2c 20 0a 20 20 20 20  Offset, n, .    
bba0: 20 20 28 69 41 72 67 31 3d 3d 30 20 3f 20 53 51    (iArg1==0 ? SQ
bbb0: 4c 49 54 45 5f 53 48 4d 5f 53 48 41 52 45 44 20  LITE_SHM_SHARED 
bbc0: 3a 20 53 51 4c 49 54 45 5f 53 48 4d 5f 45 58 43  : SQLITE_SHM_EXC
bbd0: 4c 55 53 49 56 45 29 0a 20 20 20 20 7c 20 28 69  LUSIVE).    | (i
bbe0: 41 72 67 32 3d 3d 30 20 3f 20 53 51 4c 49 54 45  Arg2==0 ? SQLITE
bbf0: 5f 53 48 4d 5f 4c 4f 43 4b 20 3a 20 53 51 4c 49  _SHM_LOCK : SQLI
bc00: 54 45 5f 53 48 4d 5f 55 4e 4c 4f 43 4b 29 0a 20  TE_SHM_UNLOCK). 
bc10: 20 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a   );.  Tcl_SetObj
bc20: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54  Result(interp, T
bc30: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
bc40: 73 71 6c 69 74 65 33 45 72 72 4e 61 6d 65 28 72  sqlite3ErrName(r
bc50: 63 29 2c 20 2d 31 29 29 3b 0a 20 20 72 65 74 75  c), -1));.  retu
bc60: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74  rn TCL_OK;.}..st
bc70: 61 74 69 63 20 69 6e 74 20 53 51 4c 49 54 45 5f  atic int SQLITE_
bc80: 54 43 4c 41 50 49 20 74 65 73 74 5f 76 66 73 5f  TCLAPI test_vfs_
bc90: 73 65 74 5f 72 65 61 64 6d 61 72 6b 28 0a 20 20  set_readmark(.  
bca0: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74  void * clientDat
bcb0: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  a,.  Tcl_Interp 
bcc0: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f  *interp,.  int o
bcd0: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  bjc,.  Tcl_Obj *
bce0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a  CONST objv[].){.
bcf0: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20    sqlite3 *db = 
bd00: 30 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  0;.  int rc = SQ
bd10: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 63 6f 6e 73 74  LITE_OK;.  const
bd20: 20 63 68 61 72 20 2a 7a 44 62 6e 61 6d 65 20 3d   char *zDbname =
bd30: 20 30 3b 0a 20 20 69 6e 74 20 69 53 6c 6f 74 20   0;.  int iSlot 
bd40: 3d 20 30 3b 0a 20 20 69 6e 74 20 69 56 61 6c 20  = 0;.  int iVal 
bd50: 3d 20 2d 31 3b 0a 20 20 73 71 6c 69 74 65 33 5f  = -1;.  sqlite3_
bd60: 66 69 6c 65 20 2a 70 46 64 3b 0a 20 20 76 6f 69  file *pFd;.  voi
bd70: 64 20 76 6f 6c 61 74 69 6c 65 20 2a 70 53 68 6d  d volatile *pShm
bd80: 20 3d 20 30 3b 0a 20 20 75 33 32 20 2a 61 53 68   = 0;.  u32 *aSh
bd90: 6d 3b 0a 20 20 69 6e 74 20 69 4f 66 66 3b 0a 0a  m;.  int iOff;..
bda0: 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 26 26    if( objc!=4 &&
bdb0: 20 6f 62 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20   objc!=5 ){.    
bdc0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
bdd0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
bde0: 2c 20 22 44 42 20 44 42 4e 41 4d 45 20 53 4c 4f  , "DB DBNAME SLO
bdf0: 54 20 3f 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20  T ?VALUE?");.   
be00: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
be10: 52 3b 0a 20 20 7d 0a 0a 20 20 7a 44 62 6e 61 6d  R;.  }..  zDbnam
be20: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  e = Tcl_GetStrin
be30: 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 69 66  g(objv[2]);.  if
be40: 28 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 69  ( getDbPointer(i
be50: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74  nterp, Tcl_GetSt
be60: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 26  ring(objv[1]), &
be70: 64 62 29 20 0a 20 20 20 7c 7c 20 54 63 6c 5f 47  db) .   || Tcl_G
be80: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
be90: 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 69  erp, objv[3], &i
bea0: 53 6c 6f 74 29 0a 20 20 20 7c 7c 20 28 6f 62 6a  Slot).   || (obj
beb0: 63 3d 3d 35 20 26 26 20 54 63 6c 5f 47 65 74 49  c==5 && Tcl_GetI
bec0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  ntFromObj(interp
bed0: 2c 20 6f 62 6a 76 5b 34 5d 2c 20 26 69 56 61 6c  , objv[4], &iVal
bee0: 29 29 0a 20 20 29 7b 0a 20 20 20 20 72 65 74 75  )).  ){.    retu
bef0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
bf00: 7d 0a 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  }..  sqlite3_fil
bf10: 65 5f 63 6f 6e 74 72 6f 6c 28 64 62 2c 20 7a 44  e_control(db, zD
bf20: 62 6e 61 6d 65 2c 20 53 51 4c 49 54 45 5f 46 43  bname, SQLITE_FC
bf30: 4e 54 4c 5f 46 49 4c 45 5f 50 4f 49 4e 54 45 52  NTL_FILE_POINTER
bf40: 2c 20 28 76 6f 69 64 2a 29 26 70 46 64 29 3b 0a  , (void*)&pFd);.
bf50: 20 20 69 66 28 20 70 46 64 3d 3d 30 20 29 7b 0a    if( pFd==0 ){.
bf60: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
bf70: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d  RROR;.  }.  rc =
bf80: 20 70 46 64 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e   pFd->pMethods->
bf90: 78 53 68 6d 4d 61 70 28 70 46 64 2c 20 30 2c 20  xShmMap(pFd, 0, 
bfa0: 33 32 2a 31 30 32 34 2c 20 30 2c 20 26 70 53 68  32*1024, 0, &pSh
bfb0: 6d 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51  m);.  if( rc!=SQ
bfc0: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 54  LITE_OK ){.    T
bfd0: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
bfe0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53  interp, Tcl_NewS
bff0: 74 72 69 6e 67 4f 62 6a 28 73 71 6c 69 74 65 33  tringObj(sqlite3
c000: 45 72 72 4e 61 6d 65 28 72 63 29 2c 20 2d 31 29  ErrName(rc), -1)
c010: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
c020: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69  L_ERROR;.  }.  i
c030: 66 28 20 70 53 68 6d 3d 3d 30 20 29 7b 0a 20 20  f( pShm==0 ){.  
c040: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
c050: 6c 74 28 69 6e 74 65 72 70 2c 20 22 2a 2d 73 68  lt(interp, "*-sh
c060: 6d 20 69 73 20 6e 6f 74 20 79 65 74 20 6d 61 70  m is not yet map
c070: 70 65 64 22 2c 20 30 29 3b 0a 20 20 20 20 72 65  ped", 0);.    re
c080: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
c090: 20 20 7d 0a 20 20 61 53 68 6d 20 3d 20 28 75 33    }.  aShm = (u3
c0a0: 32 2a 29 70 53 68 6d 3b 0a 20 20 69 4f 66 66 20  2*)pShm;.  iOff 
c0b0: 3d 20 31 32 2a 32 2b 31 2b 69 53 6c 6f 74 3b 0a  = 12*2+1+iSlot;.
c0c0: 0a 20 20 69 66 28 20 6f 62 6a 63 3d 3d 35 20 29  .  if( objc==5 )
c0d0: 7b 0a 20 20 20 20 61 53 68 6d 5b 69 4f 66 66 5d  {.    aShm[iOff]
c0e0: 20 3d 20 69 56 61 6c 3b 0a 20 20 7d 0a 20 20 54   = iVal;.  }.  T
c0f0: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
c100: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49  interp, Tcl_NewI
c110: 6e 74 4f 62 6a 28 61 53 68 6d 5b 69 4f 66 66 5d  ntObj(aShm[iOff]
c120: 29 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43  ));..  return TC
c130: 4c 5f 4f 4b 3b 0a 7d 0a 0a 69 6e 74 20 53 71 6c  L_OK;.}..int Sql
c140: 69 74 65 74 65 73 74 76 66 73 5f 49 6e 69 74 28  itetestvfs_Init(
c150: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
c160: 72 70 29 7b 0a 20 20 54 63 6c 5f 43 72 65 61 74  rp){.  Tcl_Creat
c170: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
c180: 72 70 2c 20 22 74 65 73 74 76 66 73 22 2c 20 74  rp, "testvfs", t
c190: 65 73 74 76 66 73 5f 63 6d 64 2c 20 30 2c 20 30  estvfs_cmd, 0, 0
c1a0: 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f  );.  Tcl_CreateO
c1b0: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
c1c0: 2c 20 22 76 66 73 5f 73 68 6d 6c 6f 63 6b 22 2c  , "vfs_shmlock",
c1d0: 20 74 65 73 74 5f 76 66 73 5f 73 68 6d 6c 6f 63   test_vfs_shmloc
c1e0: 6b 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63 6c 5f  k, 0, 0);.  Tcl_
c1f0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
c200: 28 69 6e 74 65 72 70 2c 20 22 76 66 73 5f 73 65  (interp, "vfs_se
c210: 74 5f 72 65 61 64 6d 61 72 6b 22 2c 20 74 65 73  t_readmark", tes
c220: 74 5f 76 66 73 5f 73 65 74 5f 72 65 61 64 6d 61  t_vfs_set_readma
c230: 72 6b 2c 20 30 2c 20 30 29 3b 0a 20 20 72 65 74  rk, 0, 0);.  ret
c240: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23  urn TCL_OK;.}..#
c250: 65 6e 64 69 66 0a                                endif.