/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact c6c6a58f66b26876c7b5769fb323a58b2c7120299b5084e7212c4116f902cbaa:


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 7d 3b 0a 0a 20 20 63 6f 6e 73 74 20 63  .  };..  const c
21b0: 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b  har *z;.  int i;
21c0: 0a 0a 20 20 7a 20 3d 20 54 63 6c 5f 47 65 74 53  ..  z = Tcl_GetS
21d0: 74 72 69 6e 67 52 65 73 75 6c 74 28 70 2d 3e 69  tringResult(p->i
21e0: 6e 74 65 72 70 29 3b 0a 20 20 66 6f 72 28 69 3d  nterp);.  for(i=
21f0: 30 3b 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61  0; i<ArraySize(a
2200: 43 6f 64 65 29 3b 20 69 2b 2b 29 7b 0a 20 20 20  Code); i++){.   
2210: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 7a   if( 0==strcmp(z
2220: 2c 20 61 43 6f 64 65 5b 69 5d 2e 7a 43 6f 64 65  , aCode[i].zCode
2230: 29 20 29 7b 0a 20 20 20 20 20 20 2a 70 52 63 20  ) ){.      *pRc 
2240: 3d 20 61 43 6f 64 65 5b 69 5d 2e 65 43 6f 64 65  = aCode[i].eCode
2250: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31  ;.      return 1
2260: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72  ;.    }.  }..  r
2270: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61 74  eturn 0;.}..stat
2280: 69 63 20 69 6e 74 20 74 76 66 73 49 6e 6a 65 63  ic int tvfsInjec
2290: 74 46 61 75 6c 74 28 54 65 73 74 46 61 75 6c 74  tFault(TestFault
22a0: 49 6e 6a 65 63 74 20 2a 70 29 7b 0a 20 20 69 6e  Inject *p){.  in
22b0: 74 20 72 65 74 20 3d 20 30 3b 0a 20 20 69 66 28  t ret = 0;.  if(
22c0: 20 70 2d 3e 65 46 61 75 6c 74 20 29 7b 0a 20 20   p->eFault ){.  
22d0: 20 20 70 2d 3e 69 43 6e 74 2d 2d 3b 0a 20 20 20    p->iCnt--;.   
22e0: 20 69 66 28 20 70 2d 3e 69 43 6e 74 3d 3d 30 20   if( p->iCnt==0 
22f0: 7c 7c 20 28 70 2d 3e 69 43 6e 74 3c 30 20 26 26  || (p->iCnt<0 &&
2300: 20 70 2d 3e 65 46 61 75 6c 74 3d 3d 46 41 55 4c   p->eFault==FAUL
2310: 54 5f 49 4e 4a 45 43 54 5f 50 45 52 53 49 53 54  T_INJECT_PERSIST
2320: 45 4e 54 20 29 20 29 7b 0a 20 20 20 20 20 20 72  ENT ) ){.      r
2330: 65 74 20 3d 20 31 3b 0a 20 20 20 20 20 20 70 2d  et = 1;.      p-
2340: 3e 6e 46 61 69 6c 2b 2b 3b 0a 20 20 20 20 7d 0a  >nFail++;.    }.
2350: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 65 74    }.  return ret
2360: 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20 69 6e 74  ;.}...static int
2370: 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65 72 72   tvfsInjectIoerr
2380: 28 54 65 73 74 76 66 73 20 2a 70 29 7b 0a 20 20  (Testvfs *p){.  
2390: 72 65 74 75 72 6e 20 74 76 66 73 49 6e 6a 65 63  return tvfsInjec
23a0: 74 46 61 75 6c 74 28 26 70 2d 3e 69 6f 65 72 72  tFault(&p->ioerr
23b0: 5f 65 72 72 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  _err);.}..static
23c0: 20 69 6e 74 20 74 76 66 73 49 6e 6a 65 63 74 46   int tvfsInjectF
23d0: 75 6c 6c 65 72 72 28 54 65 73 74 76 66 73 20 2a  ullerr(Testvfs *
23e0: 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 74 76 66  p){.  return tvf
23f0: 73 49 6e 6a 65 63 74 46 61 75 6c 74 28 26 70 2d  sInjectFault(&p-
2400: 3e 66 75 6c 6c 5f 65 72 72 29 3b 0a 7d 0a 73 74  >full_err);.}.st
2410: 61 74 69 63 20 69 6e 74 20 74 76 66 73 49 6e 6a  atic int tvfsInj
2420: 65 63 74 43 61 6e 74 6f 70 65 6e 65 72 72 28 54  ectCantopenerr(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 63 61 6e 74 6f 70 65  ault(&p->cantope
2460: 6e 5f 65 72 72 29 3b 0a 7d 0a 0a 0a 73 74 61 74  n_err);.}...stat
2470: 69 63 20 76 6f 69 64 20 74 76 66 73 45 78 65 63  ic void tvfsExec
2480: 54 63 6c 28 0a 20 20 54 65 73 74 76 66 73 20 2a  Tcl(.  Testvfs *
2490: 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  p, .  const char
24a0: 20 2a 7a 4d 65 74 68 6f 64 2c 0a 20 20 54 63 6c   *zMethod,.  Tcl
24b0: 5f 4f 62 6a 20 2a 61 72 67 31 2c 0a 20 20 54 63  _Obj *arg1,.  Tc
24c0: 6c 5f 4f 62 6a 20 2a 61 72 67 32 2c 0a 20 20 54  l_Obj *arg2,.  T
24d0: 63 6c 5f 4f 62 6a 20 2a 61 72 67 33 2c 0a 20 20  cl_Obj *arg3,.  
24e0: 54 63 6c 5f 4f 62 6a 20 2a 61 72 67 34 0a 29 7b  Tcl_Obj *arg4.){
24f0: 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20  .  int rc;      
2500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2510: 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 64     /* Return cod
2520: 65 20 66 72 6f 6d 20 54 63 6c 5f 45 76 61 6c 4f  e from Tcl_EvalO
2530: 62 6a 28 29 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62  bj() */.  Tcl_Ob
2540: 6a 20 2a 70 45 76 61 6c 3b 0a 20 20 61 73 73 65  j *pEval;.  asse
2550: 72 74 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29  rt( p->pScript )
2560: 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 7a 4d 65  ;..  assert( zMe
2570: 74 68 6f 64 20 29 3b 0a 20 20 61 73 73 65 72 74  thod );.  assert
2580: 28 20 70 20 29 3b 0a 20 20 61 73 73 65 72 74 28  ( p );.  assert(
2590: 20 61 72 67 32 3d 3d 30 20 7c 7c 20 61 72 67 31   arg2==0 || arg1
25a0: 21 3d 30 20 29 3b 0a 20 20 61 73 73 65 72 74 28  !=0 );.  assert(
25b0: 20 61 72 67 33 3d 3d 30 20 7c 7c 20 61 72 67 32   arg3==0 || arg2
25c0: 21 3d 30 20 29 3b 0a 0a 20 20 70 45 76 61 6c 20  !=0 );..  pEval 
25d0: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f  = Tcl_DuplicateO
25e0: 62 6a 28 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a  bj(p->pScript);.
25f0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75    Tcl_IncrRefCou
2600: 6e 74 28 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a  nt(p->pScript);.
2610: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
2620: 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e  endElement(p->in
2630: 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 54 63 6c  terp, pEval, Tcl
2640: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4d  _NewStringObj(zM
2650: 65 74 68 6f 64 2c 20 2d 31 29 29 3b 0a 20 20 69  ethod, -1));.  i
2660: 66 28 20 61 72 67 31 20 29 20 54 63 6c 5f 4c 69  f( arg1 ) 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 61 72 67 31 29 3b 0a 20 20 69 66  val, arg1);.  if
26a0: 28 20 61 72 67 32 20 29 20 54 63 6c 5f 4c 69 73  ( arg2 ) Tcl_Lis
26b0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
26c0: 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76  t(p->interp, pEv
26d0: 61 6c 2c 20 61 72 67 32 29 3b 0a 20 20 69 66 28  al, arg2);.  if(
26e0: 20 61 72 67 33 20 29 20 54 63 6c 5f 4c 69 73 74   arg3 ) Tcl_List
26f0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
2700: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61  (p->interp, pEva
2710: 6c 2c 20 61 72 67 33 29 3b 0a 20 20 69 66 28 20  l, arg3);.  if( 
2720: 61 72 67 34 20 29 20 54 63 6c 5f 4c 69 73 74 4f  arg4 ) Tcl_ListO
2730: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
2740: 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61 6c  p->interp, pEval
2750: 2c 20 61 72 67 34 29 3b 0a 0a 20 20 72 63 20 3d  , arg4);..  rc =
2760: 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70   Tcl_EvalObjEx(p
2770: 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c  ->interp, pEval,
2780: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c   TCL_EVAL_GLOBAL
2790: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 54 43 4c  );.  if( rc!=TCL
27a0: 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 42  _OK ){.    Tcl_B
27b0: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70  ackgroundError(p
27c0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54  ->interp);.    T
27d0: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 70  cl_ResetResult(p
27e0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 7d  ->interp);.  }.}
27f0: 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61  .../*.** Close a
2800: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
2810: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43  static int tvfsC
2820: 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 66 69 6c  lose(sqlite3_fil
2830: 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73  e *pFile){.  Tes
2840: 74 76 66 73 46 69 6c 65 20 2a 70 54 65 73 74 66  tvfsFile *pTestf
2850: 69 6c 65 20 3d 20 28 54 65 73 74 76 66 73 46 69  ile = (TestvfsFi
2860: 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 54 65  le *)pFile;.  Te
2870: 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 70  stvfsFd *pFd = p
2880: 54 65 73 74 66 69 6c 65 2d 3e 70 46 64 3b 0a 20  Testfile->pFd;. 
2890: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
28a0: 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56  estvfs *)pFd->pV
28b0: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20  fs->pAppData;.. 
28c0: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
28d0: 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  && p->mask&TESTV
28e0: 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20 29 7b  FS_CLOSE_MASK ){
28f0: 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c  .    tvfsExecTcl
2900: 28 70 2c 20 22 78 43 6c 6f 73 65 22 2c 20 0a 20  (p, "xClose", . 
2910: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
2920: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
2930: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64  lename, -1), pFd
2940: 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20  ->pShmId, 0, 0. 
2950: 20 20 20 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28     );.  }..  if(
2960: 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 29 7b 0a   pFd->pShmId ){.
2970: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43      Tcl_DecrRefC
2980: 6f 75 6e 74 28 70 46 64 2d 3e 70 53 68 6d 49 64  ount(pFd->pShmId
2990: 29 3b 0a 20 20 20 20 70 46 64 2d 3e 70 53 68 6d  );.    pFd->pShm
29a0: 49 64 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66  Id = 0;.  }.  if
29b0: 28 20 70 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64  ( pFile->pMethod
29c0: 73 20 29 7b 0a 20 20 20 20 63 6b 66 72 65 65 28  s ){.    ckfree(
29d0: 28 63 68 61 72 20 2a 29 70 46 69 6c 65 2d 3e 70  (char *)pFile->p
29e0: 4d 65 74 68 6f 64 73 29 3b 0a 20 20 7d 0a 20 20  Methods);.  }.  
29f0: 73 71 6c 69 74 65 33 4f 73 43 6c 6f 73 65 28 70  sqlite3OsClose(p
2a00: 46 64 2d 3e 70 52 65 61 6c 29 3b 0a 20 20 63 6b  Fd->pReal);.  ck
2a10: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 46 64  free((char *)pFd
2a20: 29 3b 0a 20 20 70 54 65 73 74 66 69 6c 65 2d 3e  );.  pTestfile->
2a30: 70 46 64 20 3d 20 30 3b 0a 20 20 72 65 74 75 72  pFd = 0;.  retur
2a40: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a  n SQLITE_OK;.}..
2a50: 2f 2a 0a 2a 2a 20 52 65 61 64 20 64 61 74 61 20  /*.** Read data 
2a60: 66 72 6f 6d 20 61 6e 20 74 76 66 73 2d 66 69 6c  from an tvfs-fil
2a70: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
2a80: 20 74 76 66 73 52 65 61 64 28 0a 20 20 73 71 6c   tvfsRead(.  sql
2a90: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
2aa0: 2c 20 0a 20 20 76 6f 69 64 20 2a 7a 42 75 66 2c  , .  void *zBuf,
2ab0: 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a 20   .  int iAmt, . 
2ac0: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 69 4f   sqlite_int64 iO
2ad0: 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20  fst.){.  int rc 
2ae0: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54  = SQLITE_OK;.  T
2af0: 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20  estvfsFd *pFd = 
2b00: 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65 29  tvfsGetFd(pFile)
2b10: 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  ;.  Testvfs *p =
2b20: 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d   (Testvfs *)pFd-
2b30: 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b  >pVfs->pAppData;
2b40: 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70  .  if( p->pScrip
2b50: 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53  t && p->mask&TES
2b60: 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20 29  TVFS_READ_MASK )
2b70: 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  {.    tvfsExecTc
2b80: 6c 28 70 2c 20 22 78 52 65 61 64 22 2c 20 0a 20  l(p, "xRead", . 
2b90: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
2ba0: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
2bb0: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64  lename, -1), pFd
2bc0: 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20  ->pShmId, 0, 0. 
2bd0: 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65     );.    tvfsRe
2be0: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
2bf0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d  ;.  }.  if( rc==
2c00: 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e  SQLITE_OK && p->
2c10: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 52 45 41  mask&TESTVFS_REA
2c20: 44 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49 6e  D_MASK && tvfsIn
2c30: 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b 0a  jectIoerr(p) ){.
2c40: 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f      rc = SQLITE_
2c50: 49 4f 45 52 52 3b 0a 20 20 7d 0a 20 20 69 66 28  IOERR;.  }.  if(
2c60: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc==SQLITE_OK )
2c70: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  {.    rc = sqlit
2c80: 65 33 4f 73 52 65 61 64 28 70 46 64 2d 3e 70 52  e3OsRead(pFd->pR
2c90: 65 61 6c 2c 20 7a 42 75 66 2c 20 69 41 6d 74 2c  eal, zBuf, iAmt,
2ca0: 20 69 4f 66 73 74 29 3b 0a 20 20 7d 0a 20 20 72   iOfst);.  }.  r
2cb0: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
2cc0: 2a 2a 20 57 72 69 74 65 20 64 61 74 61 20 74 6f  ** Write data to
2cd0: 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a   an tvfs-file..*
2ce0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
2cf0: 73 57 72 69 74 65 28 0a 20 20 73 71 6c 69 74 65  sWrite(.  sqlite
2d00: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 0a  3_file *pFile, .
2d10: 20 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 42    const void *zB
2d20: 75 66 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c  uf, .  int iAmt,
2d30: 20 0a 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34   .  sqlite_int64
2d40: 20 69 4f 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20   iOfst.){.  int 
2d50: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
2d60: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
2d70: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
2d80: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
2d90: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
2da0: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
2db0: 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53  ta;..  if( p->pS
2dc0: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
2dd0: 26 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d  &TESTVFS_WRITE_M
2de0: 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45  ASK ){.    tvfsE
2df0: 78 65 63 54 63 6c 28 70 2c 20 22 78 57 72 69 74  xecTcl(p, "xWrit
2e00: 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c  e", .        Tcl
2e10: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46  _NewStringObj(pF
2e20: 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31  d->zFilename, -1
2e30: 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20  ), pFd->pShmId, 
2e40: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  .        Tcl_New
2e50: 57 69 64 65 49 6e 74 4f 62 6a 28 69 4f 66 73 74  WideIntObj(iOfst
2e60: 29 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  ), Tcl_NewIntObj
2e70: 28 69 41 6d 74 29 0a 20 20 20 20 29 3b 0a 20 20  (iAmt).    );.  
2e80: 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65    tvfsResultCode
2e90: 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a 20  (p, &rc);.  }.. 
2ea0: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
2eb0: 4f 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  OK && tvfsInject
2ec0: 46 75 6c 6c 65 72 72 28 70 29 20 29 7b 0a 20 20  Fullerr(p) ){.  
2ed0: 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 46 55    rc = SQLITE_FU
2ee0: 4c 4c 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63  LL;.  }.  if( rc
2ef0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70  ==SQLITE_OK && p
2f00: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 57  ->mask&TESTVFS_W
2f10: 52 49 54 45 5f 4d 41 53 4b 20 26 26 20 74 76 66  RITE_MASK && tvf
2f20: 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20  sInjectIoerr(p) 
2f30: 29 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49  ){.    rc = SQLI
2f40: 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 20 20  TE_IOERR;.  }.  
2f50: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54  .  if( rc==SQLIT
2f60: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d  E_OK ){.    rc =
2f70: 20 73 71 6c 69 74 65 33 4f 73 57 72 69 74 65 28   sqlite3OsWrite(
2f80: 70 46 64 2d 3e 70 52 65 61 6c 2c 20 7a 42 75 66  pFd->pReal, zBuf
2f90: 2c 20 69 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a  , iAmt, iOfst);.
2fa0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b    }.  return rc;
2fb0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 75 6e 63 61  .}../*.** Trunca
2fc0: 74 65 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  te an tvfs-file.
2fd0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2fe0: 76 66 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69  vfsTruncate(sqli
2ff0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
3000: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 73 69   sqlite_int64 si
3010: 7a 65 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  ze){.  int rc = 
3020: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
3030: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
3040: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
3050: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
3060: 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70  Testvfs *)pFd->p
3070: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a  Vfs->pAppData;..
3080: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
3090: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
30a0: 56 46 53 5f 54 52 55 4e 43 41 54 45 5f 4d 41 53  VFS_TRUNCATE_MAS
30b0: 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65  K ){.    tvfsExe
30c0: 63 54 63 6c 28 70 2c 20 22 78 54 72 75 6e 63 61  cTcl(p, "xTrunca
30d0: 74 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63  te", .        Tc
30e0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70  l_NewStringObj(p
30f0: 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d  Fd->zFilename, -
3100: 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c  1), pFd->pShmId,
3110: 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20   0, 0.    );.   
3120: 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28   tvfsResultCode(
3130: 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 20 20 0a  p, &rc);.  }.  .
3140: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
3150: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
3160: 73 71 6c 69 74 65 33 4f 73 54 72 75 6e 63 61 74  sqlite3OsTruncat
3170: 65 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 73 69  e(pFd->pReal, si
3180: 7a 65 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72  ze);.  }.  retur
3190: 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53  n rc;.}../*.** S
31a0: 79 6e 63 20 61 6e 20 74 76 66 73 2d 66 69 6c 65  ync an tvfs-file
31b0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
31c0: 74 76 66 73 53 79 6e 63 28 73 71 6c 69 74 65 33  tvfsSync(sqlite3
31d0: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e  _file *pFile, in
31e0: 74 20 66 6c 61 67 73 29 7b 0a 20 20 69 6e 74 20  t flags){.  int 
31f0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
3200: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
3210: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
3220: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
3230: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
3240: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
3250: 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53  ta;..  if( p->pS
3260: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
3270: 26 54 45 53 54 56 46 53 5f 53 59 4e 43 5f 4d 41  &TESTVFS_SYNC_MA
3280: 53 4b 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a  SK ){.    char *
3290: 7a 46 6c 61 67 73 20 3d 20 30 3b 0a 0a 20 20 20  zFlags = 0;..   
32a0: 20 73 77 69 74 63 68 28 20 66 6c 61 67 73 20 29   switch( flags )
32b0: 7b 0a 20 20 20 20 20 20 63 61 73 65 20 53 51 4c  {.      case SQL
32c0: 49 54 45 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c 3a  ITE_SYNC_NORMAL:
32d0: 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67 73 20  .        zFlags 
32e0: 3d 20 22 6e 6f 72 6d 61 6c 22 3b 0a 20 20 20 20  = "normal";.    
32f0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
3300: 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53 59 4e   case SQLITE_SYN
3310: 43 5f 46 55 4c 4c 3a 0a 20 20 20 20 20 20 20 20  C_FULL:.        
3320: 7a 46 6c 61 67 73 20 3d 20 22 66 75 6c 6c 22 3b  zFlags = "full";
3330: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  .        break;.
3340: 20 20 20 20 20 20 63 61 73 65 20 53 51 4c 49 54        case SQLIT
3350: 45 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c 7c 53 51  E_SYNC_NORMAL|SQ
3360: 4c 49 54 45 5f 53 59 4e 43 5f 44 41 54 41 4f 4e  LITE_SYNC_DATAON
3370: 4c 59 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c 61  LY:.        zFla
3380: 67 73 20 3d 20 22 6e 6f 72 6d 61 6c 7c 64 61 74  gs = "normal|dat
3390: 61 6f 6e 6c 79 22 3b 0a 20 20 20 20 20 20 20 20  aonly";.        
33a0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73  break;.      cas
33b0: 65 20 53 51 4c 49 54 45 5f 53 59 4e 43 5f 46 55  e SQLITE_SYNC_FU
33c0: 4c 4c 7c 53 51 4c 49 54 45 5f 53 59 4e 43 5f 44  LL|SQLITE_SYNC_D
33d0: 41 54 41 4f 4e 4c 59 3a 0a 20 20 20 20 20 20 20  ATAONLY:.       
33e0: 20 7a 46 6c 61 67 73 20 3d 20 22 66 75 6c 6c 7c   zFlags = "full|
33f0: 64 61 74 61 6f 6e 6c 79 22 3b 0a 20 20 20 20 20  dataonly";.     
3400: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
3410: 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20  default:.       
3420: 20 61 73 73 65 72 74 28 30 29 3b 0a 20 20 20 20   assert(0);.    
3430: 7d 0a 0a 20 20 20 20 74 76 66 73 45 78 65 63 54  }..    tvfsExecT
3440: 63 6c 28 70 2c 20 22 78 53 79 6e 63 22 2c 20 0a  cl(p, "xSync", .
3450: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
3460: 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46  tringObj(pFd->zF
3470: 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46  ilename, -1), pF
3480: 64 2d 3e 70 53 68 6d 49 64 2c 0a 20 20 20 20 20  d->pShmId,.     
3490: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
34a0: 4f 62 6a 28 7a 46 6c 61 67 73 2c 20 2d 31 29 2c  Obj(zFlags, -1),
34b0: 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76   0.    );.    tv
34c0: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
34d0: 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28  &rc);.  }..  if(
34e0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26   rc==SQLITE_OK &
34f0: 26 20 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c  & tvfsInjectFull
3500: 65 72 72 28 70 29 20 29 20 72 63 20 3d 20 53 51  err(p) ) rc = SQ
3510: 4c 49 54 45 5f 46 55 4c 4c 3b 0a 0a 20 20 69 66  LITE_FULL;..  if
3520: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
3530: 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69  ){.    rc = sqli
3540: 74 65 33 4f 73 53 79 6e 63 28 70 46 64 2d 3e 70  te3OsSync(pFd->p
3550: 52 65 61 6c 2c 20 66 6c 61 67 73 29 3b 0a 20 20  Real, flags);.  
3560: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  }..  return rc;.
3570: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
3580: 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 65  the current file
3590: 2d 73 69 7a 65 20 6f 66 20 61 6e 20 74 76 66 73  -size of an tvfs
35a0: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
35b0: 20 69 6e 74 20 74 76 66 73 46 69 6c 65 53 69 7a   int tvfsFileSiz
35c0: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  e(sqlite3_file *
35d0: 70 46 69 6c 65 2c 20 73 71 6c 69 74 65 5f 69 6e  pFile, sqlite_in
35e0: 74 36 34 20 2a 70 53 69 7a 65 29 7b 0a 20 20 54  t64 *pSize){.  T
35f0: 65 73 74 76 66 73 46 64 20 2a 70 20 3d 20 74 76  estvfsFd *p = tv
3600: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
3610: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
3620: 4f 73 46 69 6c 65 53 69 7a 65 28 70 2d 3e 70 52  OsFileSize(p->pR
3630: 65 61 6c 2c 20 70 53 69 7a 65 29 3b 0a 7d 0a 0a  eal, pSize);.}..
3640: 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 61 6e 20 74 76  /*.** Lock an tv
3650: 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74  fs-file..*/.stat
3660: 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28  ic int tvfsLock(
3670: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
3680: 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b  ile, int eLock){
3690: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
36a0: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
36b0: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
36c0: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
36d0: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
36e0: 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53  ata;.  if( p->pS
36f0: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
3700: 26 54 45 53 54 56 46 53 5f 4c 4f 43 4b 5f 4d 41  &TESTVFS_LOCK_MA
3710: 53 4b 20 29 7b 0a 20 20 20 20 63 68 61 72 20 7a  SK ){.    char z
3720: 4c 6f 63 6b 5b 33 30 5d 3b 0a 20 20 20 20 73 71  Lock[30];.    sq
3730: 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73  lite3_snprintf(s
3740: 69 7a 65 6f 66 28 7a 4c 6f 63 6b 29 2c 7a 4c 6f  izeof(zLock),zLo
3750: 63 6b 2c 22 25 64 22 2c 65 4c 6f 63 6b 29 3b 0a  ck,"%d",eLock);.
3760: 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28      tvfsExecTcl(
3770: 70 2c 20 22 78 4c 6f 63 6b 22 2c 20 54 63 6c 5f  p, "xLock", Tcl_
3780: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64  NewStringObj(pFd
3790: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29  ->zFilename, -1)
37a0: 2c 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  , .             
37b0: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
37c0: 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b 2c 20 2d 31  ingObj(zLock, -1
37d0: 29 2c 20 30 2c 20 30 29 3b 0a 20 20 7d 0a 20 20  ), 0, 0);.  }.  
37e0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
37f0: 4c 6f 63 6b 28 70 46 64 2d 3e 70 52 65 61 6c 2c  Lock(pFd->pReal,
3800: 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a   eLock);.}../*.*
3810: 2a 20 55 6e 6c 6f 63 6b 20 61 6e 20 74 76 66 73  * Unlock an tvfs
3820: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
3830: 20 69 6e 74 20 74 76 66 73 55 6e 6c 6f 63 6b 28   int tvfsUnlock(
3840: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
3850: 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b  ile, int eLock){
3860: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
3870: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
3880: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
3890: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
38a0: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
38b0: 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53  ata;.  if( p->pS
38c0: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
38d0: 26 54 45 53 54 56 46 53 5f 55 4e 4c 4f 43 4b 5f  &TESTVFS_UNLOCK_
38e0: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 63 68 61 72  MASK ){.    char
38f0: 20 7a 4c 6f 63 6b 5b 33 30 5d 3b 0a 20 20 20 20   zLock[30];.    
3900: 73 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66  sqlite3_snprintf
3910: 28 73 69 7a 65 6f 66 28 7a 4c 6f 63 6b 29 2c 7a  (sizeof(zLock),z
3920: 4c 6f 63 6b 2c 22 25 64 22 2c 65 4c 6f 63 6b 29  Lock,"%d",eLock)
3930: 3b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  ;.    tvfsExecTc
3940: 6c 28 70 2c 20 22 78 55 6e 6c 6f 63 6b 22 2c 20  l(p, "xUnlock", 
3950: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
3960: 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c  (pFd->zFilename,
3970: 20 2d 31 29 2c 20 0a 20 20 20 20 20 20 20 20 20   -1), .         
3980: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65            Tcl_Ne
3990: 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b  wStringObj(zLock
39a0: 2c 20 2d 31 29 2c 20 30 2c 20 30 29 3b 0a 20 20  , -1), 0, 0);.  
39b0: 7d 0a 20 20 69 66 28 20 70 2d 3e 6d 61 73 6b 26  }.  if( p->mask&
39c0: 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d 41  TESTVFS_WRITE_MA
39d0: 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  SK && tvfsInject
39e0: 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20  Ioerr(p) ){.    
39f0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f  return SQLITE_IO
3a00: 45 52 52 5f 55 4e 4c 4f 43 4b 3b 0a 20 20 7d 0a  ERR_UNLOCK;.  }.
3a10: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
3a20: 4f 73 55 6e 6c 6f 63 6b 28 70 46 64 2d 3e 70 52  OsUnlock(pFd->pR
3a30: 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a  eal, eLock);.}..
3a40: 2f 2a 0a 2a 2a 20 43 68 65 63 6b 20 69 66 20 61  /*.** Check if a
3a50: 6e 6f 74 68 65 72 20 66 69 6c 65 2d 68 61 6e 64  nother file-hand
3a60: 6c 65 20 68 6f 6c 64 73 20 61 20 52 45 53 45 52  le holds a RESER
3a70: 56 45 44 20 6c 6f 63 6b 20 6f 6e 20 61 6e 20 74  VED lock on an t
3a80: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
3a90: 74 69 63 20 69 6e 74 20 74 76 66 73 43 68 65 63  tic int tvfsChec
3aa0: 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 73 71  kReservedLock(sq
3ab0: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
3ac0: 65 2c 20 69 6e 74 20 2a 70 52 65 73 4f 75 74 29  e, int *pResOut)
3ad0: 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70  {.  TestvfsFd *p
3ae0: 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70  Fd = tvfsGetFd(p
3af0: 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73  File);.  Testvfs
3b00: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
3b10: 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  )pFd->pVfs->pApp
3b20: 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70  Data;.  if( p->p
3b30: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
3b40: 6b 26 54 45 53 54 56 46 53 5f 43 4b 4c 4f 43 4b  k&TESTVFS_CKLOCK
3b50: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66  _MASK ){.    tvf
3b60: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 43 68  sExecTcl(p, "xCh
3b70: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 22  eckReservedLock"
3b80: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
3b90: 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d  bj(pFd->zFilenam
3ba0: 65 2c 20 2d 31 29 2c 0a 20 20 20 20 20 20 20 20  e, -1),.        
3bb0: 20 20 20 20 20 20 20 20 20 20 20 30 2c 20 30 2c             0, 0,
3bc0: 20 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72   0);.  }.  retur
3bd0: 6e 20 73 71 6c 69 74 65 33 4f 73 43 68 65 63 6b  n sqlite3OsCheck
3be0: 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 70 46 64  ReservedLock(pFd
3bf0: 2d 3e 70 52 65 61 6c 2c 20 70 52 65 73 4f 75 74  ->pReal, pResOut
3c00: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 65  );.}../*.** File
3c10: 20 63 6f 6e 74 72 6f 6c 20 6d 65 74 68 6f 64 2e   control method.
3c20: 20 46 6f 72 20 63 75 73 74 6f 6d 20 6f 70 65 72   For custom oper
3c30: 61 74 69 6f 6e 73 20 6f 6e 20 61 6e 20 74 76 66  ations on an tvf
3c40: 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  s-file..*/.stati
3c50: 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f  c int tvfsFileCo
3c60: 6e 74 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69  ntrol(sqlite3_fi
3c70: 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 6f  le *pFile, int o
3c80: 70 2c 20 76 6f 69 64 20 2a 70 41 72 67 29 7b 0a  p, void *pArg){.
3c90: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
3ca0: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
3cb0: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
3cc0: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
3cd0: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
3ce0: 74 61 3b 0a 20 20 69 66 28 20 6f 70 3d 3d 53 51  ta;.  if( op==SQ
3cf0: 4c 49 54 45 5f 46 43 4e 54 4c 5f 50 52 41 47 4d  LITE_FCNTL_PRAGM
3d00: 41 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a 2a  A ){.    char **
3d10: 61 72 67 76 20 3d 20 28 63 68 61 72 2a 2a 29 70  argv = (char**)p
3d20: 41 72 67 3b 0a 20 20 20 20 69 66 28 20 73 71 6c  Arg;.    if( sql
3d30: 69 74 65 33 5f 73 74 72 69 63 6d 70 28 61 72 67  ite3_stricmp(arg
3d40: 76 5b 31 5d 2c 22 65 72 72 6f 72 22 29 3d 3d 30  v[1],"error")==0
3d50: 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 72 63   ){.      int rc
3d60: 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b   = SQLITE_ERROR;
3d70: 0a 20 20 20 20 20 20 69 66 28 20 61 72 67 76 5b  .      if( argv[
3d80: 32 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f  2] ){.        co
3d90: 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d 20 61 72  nst char *z = ar
3da0: 67 76 5b 32 5d 3b 0a 20 20 20 20 20 20 20 20 69  gv[2];.        i
3db0: 6e 74 20 78 20 3d 20 61 74 6f 69 28 7a 29 3b 0a  nt x = atoi(z);.
3dc0: 20 20 20 20 20 20 20 20 69 66 28 20 78 20 29 7b          if( x ){
3dd0: 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 3d 20  .          rc = 
3de0: 78 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69  x;.          whi
3df0: 6c 65 28 20 73 71 6c 69 74 65 33 49 73 64 69 67  le( sqlite3Isdig
3e00: 69 74 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b  it(z[0]) ){ z++;
3e10: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69   }.          whi
3e20: 6c 65 28 20 73 71 6c 69 74 65 33 49 73 73 70 61  le( sqlite3Isspa
3e30: 63 65 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b  ce(z[0]) ){ z++;
3e40: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
3e50: 20 20 20 20 20 69 66 28 20 7a 5b 30 5d 20 29 20       if( z[0] ) 
3e60: 61 72 67 76 5b 30 5d 20 3d 20 73 71 6c 69 74 65  argv[0] = sqlite
3e70: 33 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20  3_mprintf("%s", 
3e80: 7a 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  z);.      }.    
3e90: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20    return rc;.   
3ea0: 20 7d 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74   }.    if( sqlit
3eb0: 65 33 5f 73 74 72 69 63 6d 70 28 61 72 67 76 5b  e3_stricmp(argv[
3ec0: 31 5d 2c 20 22 66 69 6c 65 6e 61 6d 65 22 29 3d  1], "filename")=
3ed0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 61 72 67 76  =0 ){.      argv
3ee0: 5b 30 5d 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70  [0] = sqlite3_mp
3ef0: 72 69 6e 74 66 28 22 25 73 22 2c 20 70 46 64 2d  rintf("%s", pFd-
3f00: 3e 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20  >zFilename);.   
3f10: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
3f20: 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  _OK;.    }.  }. 
3f30: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
3f40: 26 26 20 28 70 2d 3e 6d 61 73 6b 26 54 45 53 54  && (p->mask&TEST
3f50: 56 46 53 5f 46 43 4e 54 4c 5f 4d 41 53 4b 29 20  VFS_FCNTL_MASK) 
3f60: 29 7b 0a 20 20 20 20 73 74 72 75 63 74 20 46 63  ){.    struct Fc
3f70: 6e 74 6c 20 7b 0a 20 20 20 20 20 20 69 6e 74 20  ntl {.      int 
3f80: 69 46 6e 63 74 6c 3b 0a 20 20 20 20 20 20 63 6f  iFnctl;.      co
3f90: 6e 73 74 20 63 68 61 72 20 2a 7a 46 6e 63 74 6c  nst char *zFnctl
3fa0: 3b 0a 20 20 20 20 7d 20 61 46 5b 5d 20 3d 20 7b  ;.    } aF[] = {
3fb0: 0a 20 20 20 20 20 20 7b 20 53 51 4c 49 54 45 5f  .      { SQLITE_
3fc0: 46 43 4e 54 4c 5f 42 45 47 49 4e 5f 41 54 4f 4d  FCNTL_BEGIN_ATOM
3fd0: 49 43 5f 57 52 49 54 45 2c 20 22 42 45 47 49 4e  IC_WRITE, "BEGIN
3fe0: 5f 41 54 4f 4d 49 43 5f 57 52 49 54 45 22 20 7d  _ATOMIC_WRITE" }
3ff0: 2c 0a 20 20 20 20 20 20 7b 20 53 51 4c 49 54 45  ,.      { SQLITE
4000: 5f 46 43 4e 54 4c 5f 43 4f 4d 4d 49 54 5f 41 54  _FCNTL_COMMIT_AT
4010: 4f 4d 49 43 5f 57 52 49 54 45 2c 20 22 43 4f 4d  OMIC_WRITE, "COM
4020: 4d 49 54 5f 41 54 4f 4d 49 43 5f 57 52 49 54 45  MIT_ATOMIC_WRITE
4030: 22 20 7d 2c 0a 20 20 20 20 7d 3b 0a 20 20 20 20  " },.    };.    
4040: 69 6e 74 20 69 3b 0a 20 20 20 20 66 6f 72 28 69  int i;.    for(i
4050: 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 46 29  =0; i<sizeof(aF)
4060: 2f 73 69 7a 65 6f 66 28 61 46 5b 30 5d 29 3b 20  /sizeof(aF[0]); 
4070: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 69 66 28 20  i++){.      if( 
4080: 6f 70 3d 3d 61 46 5b 69 5d 2e 69 46 6e 63 74 6c  op==aF[i].iFnctl
4090: 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a   ) break;.    }.
40a0: 20 20 20 20 69 66 28 20 69 3c 73 69 7a 65 6f 66      if( i<sizeof
40b0: 28 61 46 29 2f 73 69 7a 65 6f 66 28 61 46 5b 30  (aF)/sizeof(aF[0
40c0: 5d 29 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20  ]) ){.      int 
40d0: 72 63 20 3d 20 30 3b 0a 20 20 20 20 20 20 74 76  rc = 0;.      tv
40e0: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 46  fsExecTcl(p, "xF
40f0: 69 6c 65 43 6f 6e 74 72 6f 6c 22 2c 20 0a 20 20  ileControl", .  
4100: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
4110: 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46  tringObj(pFd->zF
4120: 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 0a 20  ilename, -1), . 
4130: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77           Tcl_New
4140: 53 74 72 69 6e 67 4f 62 6a 28 61 46 5b 69 5d 2e  StringObj(aF[i].
4150: 7a 46 6e 63 74 6c 2c 20 2d 31 29 2c 0a 20 20 20  zFnctl, -1),.   
4160: 20 20 20 20 20 20 20 30 2c 20 30 0a 20 20 20 20         0, 0.    
4170: 20 20 29 3b 0a 20 20 20 20 20 20 74 76 66 73 52    );.      tvfsR
4180: 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63  esultCode(p, &rc
4190: 29 3b 0a 20 20 20 20 20 20 69 66 28 20 72 63 20  );.      if( rc 
41a0: 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20  ) return rc;.   
41b0: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20   }.  }.  return 
41c0: 73 71 6c 69 74 65 33 4f 73 46 69 6c 65 43 6f 6e  sqlite3OsFileCon
41d0: 74 72 6f 6c 28 70 46 64 2d 3e 70 52 65 61 6c 2c  trol(pFd->pReal,
41e0: 20 6f 70 2c 20 70 41 72 67 29 3b 0a 7d 0a 0a 2f   op, pArg);.}../
41f0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
4200: 73 65 63 74 6f 72 2d 73 69 7a 65 20 69 6e 20 62  sector-size in b
4210: 79 74 65 73 20 66 6f 72 20 61 6e 20 74 76 66 73  ytes for an tvfs
4220: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
4230: 20 69 6e 74 20 74 76 66 73 53 65 63 74 6f 72 53   int tvfsSectorS
4240: 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ize(sqlite3_file
4250: 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74   *pFile){.  Test
4260: 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66  vfsFd *pFd = tvf
4270: 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20  sGetFd(pFile);. 
4280: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
4290: 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56  estvfs *)pFd->pV
42a0: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20  fs->pAppData;.  
42b0: 69 66 28 20 70 2d 3e 69 53 65 63 74 6f 72 73 69  if( p->iSectorsi
42c0: 7a 65 3e 3d 30 20 29 7b 0a 20 20 20 20 72 65 74  ze>=0 ){.    ret
42d0: 75 72 6e 20 70 2d 3e 69 53 65 63 74 6f 72 73 69  urn p->iSectorsi
42e0: 7a 65 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  ze;.  }.  return
42f0: 20 73 71 6c 69 74 65 33 4f 73 53 65 63 74 6f 72   sqlite3OsSector
4300: 53 69 7a 65 28 70 46 64 2d 3e 70 52 65 61 6c 29  Size(pFd->pReal)
4310: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
4320: 6e 20 74 68 65 20 64 65 76 69 63 65 20 63 68 61  n the device cha
4330: 72 61 63 74 65 72 69 73 74 69 63 20 66 6c 61 67  racteristic flag
4340: 73 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 61  s supported by a
4350: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
4360: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44  static int tvfsD
4370: 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73  eviceCharacteris
4380: 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66 69 6c  tics(sqlite3_fil
4390: 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73  e *pFile){.  Tes
43a0: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
43b0: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
43c0: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
43d0: 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70  Testvfs *)pFd->p
43e0: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20  Vfs->pAppData;. 
43f0: 20 69 66 28 20 70 2d 3e 69 44 65 76 63 68 61 72   if( p->iDevchar
4400: 3e 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72  >=0 ){.    retur
4410: 6e 20 70 2d 3e 69 44 65 76 63 68 61 72 3b 0a 20  n p->iDevchar;. 
4420: 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69   }.  return sqli
4430: 74 65 33 4f 73 44 65 76 69 63 65 43 68 61 72 61  te3OsDeviceChara
4440: 63 74 65 72 69 73 74 69 63 73 28 70 46 64 2d 3e  cteristics(pFd->
4450: 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  pReal);.}../*.**
4460: 20 4f 70 65 6e 20 61 6e 20 74 76 66 73 20 66 69   Open an tvfs fi
4470: 6c 65 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74  le handle..*/.st
4480: 61 74 69 63 20 69 6e 74 20 74 76 66 73 4f 70 65  atic int tvfsOpe
4490: 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  n(.  sqlite3_vfs
44a0: 20 2a 70 56 66 73 2c 0a 20 20 63 6f 6e 73 74 20   *pVfs,.  const 
44b0: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 0a 20 20 73  char *zName,.  s
44c0: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
44d0: 6c 65 2c 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c  le,.  int flags,
44e0: 0a 20 20 69 6e 74 20 2a 70 4f 75 74 46 6c 61 67  .  int *pOutFlag
44f0: 73 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20  s.){.  int rc;. 
4500: 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70 54   TestvfsFile *pT
4510: 65 73 74 66 69 6c 65 20 3d 20 28 54 65 73 74 76  estfile = (Testv
4520: 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a  fsFile *)pFile;.
4530: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
4540: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 49 64  ;.  Tcl_Obj *pId
4550: 20 3d 20 30 3b 0a 20 20 54 65 73 74 76 66 73 20   = 0;.  Testvfs 
4560: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
4570: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a  pVfs->pAppData;.
4580: 0a 20 20 70 46 64 20 3d 20 28 54 65 73 74 76 66  .  pFd = (Testvf
4590: 73 46 64 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69  sFd *)ckalloc(si
45a0: 7a 65 6f 66 28 54 65 73 74 76 66 73 46 64 29 20  zeof(TestvfsFd) 
45b0: 2b 20 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  + PARENTVFS(pVfs
45c0: 29 2d 3e 73 7a 4f 73 46 69 6c 65 29 3b 0a 20 20  )->szOsFile);.  
45d0: 6d 65 6d 73 65 74 28 70 46 64 2c 20 30 2c 20 73  memset(pFd, 0, s
45e0: 69 7a 65 6f 66 28 54 65 73 74 76 66 73 46 64 29  izeof(TestvfsFd)
45f0: 20 2b 20 50 41 52 45 4e 54 56 46 53 28 70 56 66   + PARENTVFS(pVf
4600: 73 29 2d 3e 73 7a 4f 73 46 69 6c 65 29 3b 0a 20  s)->szOsFile);. 
4610: 20 70 46 64 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a   pFd->pShm = 0;.
4620: 20 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20    pFd->pShmId = 
4630: 30 3b 0a 20 20 70 46 64 2d 3e 7a 46 69 6c 65 6e  0;.  pFd->zFilen
4640: 61 6d 65 20 3d 20 7a 4e 61 6d 65 3b 0a 20 20 70  ame = zName;.  p
4650: 46 64 2d 3e 70 56 66 73 20 3d 20 70 56 66 73 3b  Fd->pVfs = pVfs;
4660: 0a 20 20 70 46 64 2d 3e 70 52 65 61 6c 20 3d 20  .  pFd->pReal = 
4670: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 29  (sqlite3_file *)
4680: 26 70 46 64 5b 31 5d 3b 0a 20 20 6d 65 6d 73 65  &pFd[1];.  memse
4690: 74 28 70 54 65 73 74 66 69 6c 65 2c 20 30 2c 20  t(pTestfile, 0, 
46a0: 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 46 69  sizeof(TestvfsFi
46b0: 6c 65 29 29 3b 0a 20 20 70 54 65 73 74 66 69 6c  le));.  pTestfil
46c0: 65 2d 3e 70 46 64 20 3d 20 70 46 64 3b 0a 0a 20  e->pFd = pFd;.. 
46d0: 20 2f 2a 20 45 76 61 6c 75 61 74 65 20 74 68 65   /* Evaluate the
46e0: 20 54 63 6c 20 73 63 72 69 70 74 3a 20 0a 20 20   Tcl script: .  
46f0: 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52 49 50 54  **.  **   SCRIPT
4700: 20 78 4f 70 65 6e 20 46 49 4c 45 4e 41 4d 45 20   xOpen FILENAME 
4710: 4b 45 59 2d 56 41 4c 55 45 2d 41 52 47 53 0a 20  KEY-VALUE-ARGS. 
4720: 20 2a 2a 0a 20 20 2a 2a 20 49 66 20 74 68 65 20   **.  ** If the 
4730: 73 63 72 69 70 74 20 72 65 74 75 72 6e 73 20 61  script returns a
4740: 6e 20 53 51 4c 69 74 65 20 65 72 72 6f 72 20 63  n SQLite error c
4750: 6f 64 65 20 6f 74 68 65 72 20 74 68 61 6e 20 53  ode other than S
4760: 51 4c 49 54 45 5f 4f 4b 2c 20 61 6e 0a 20 20 2a  QLITE_OK, an.  *
4770: 2a 20 65 72 72 6f 72 20 69 73 20 72 65 74 75 72  * error is retur
4780: 6e 65 64 20 74 6f 20 74 68 65 20 63 61 6c 6c 65  ned to the calle
4790: 72 2e 20 49 66 20 69 74 20 72 65 74 75 72 6e 73  r. If it returns
47a0: 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 74 68 65 20   SQLITE_OK, the 
47b0: 6e 65 77 0a 20 20 2a 2a 20 63 6f 6e 6e 65 63 74  new.  ** connect
47c0: 69 6f 6e 20 69 73 20 6e 61 6d 65 64 20 22 61 6e  ion is named "an
47d0: 6f 6e 22 2e 20 4f 74 68 65 72 77 69 73 65 2c 20  on". Otherwise, 
47e0: 74 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e  the value return
47f0: 65 64 20 62 79 20 74 68 65 0a 20 20 2a 2a 20 73  ed by the.  ** s
4800: 63 72 69 70 74 20 69 73 20 75 73 65 64 20 61 73  cript is used as
4810: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   the connection 
4820: 6e 61 6d 65 2e 0a 20 20 2a 2f 0a 20 20 54 63 6c  name..  */.  Tcl
4830: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 70 2d 3e  _ResetResult(p->
4840: 69 6e 74 65 72 70 29 3b 0a 20 20 69 66 28 20 70  interp);.  if( p
4850: 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e  ->pScript && p->
4860: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 4f 50 45  mask&TESTVFS_OPE
4870: 4e 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 54 63  N_MASK ){.    Tc
4880: 6c 5f 4f 62 6a 20 2a 70 41 72 67 20 3d 20 54 63  l_Obj *pArg = Tc
4890: 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20  l_NewObj();.    
48a0: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
48b0: 28 70 41 72 67 29 3b 0a 20 20 20 20 69 66 28 20  (pArg);.    if( 
48c0: 66 6c 61 67 73 26 53 51 4c 49 54 45 5f 4f 50 45  flags&SQLITE_OPE
48d0: 4e 5f 4d 41 49 4e 5f 44 42 20 29 7b 0a 20 20 20  N_MAIN_DB ){.   
48e0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a     const char *z
48f0: 20 3d 20 26 7a 4e 61 6d 65 5b 73 74 72 6c 65 6e   = &zName[strlen
4900: 28 7a 4e 61 6d 65 29 2b 31 5d 3b 0a 20 20 20 20  (zName)+1];.    
4910: 20 20 77 68 69 6c 65 28 20 2a 7a 20 29 7b 0a 20    while( *z ){. 
4920: 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f         Tcl_ListO
4930: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
4940: 30 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77  0, pArg, Tcl_New
4950: 53 74 72 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29  StringObj(z, -1)
4960: 29 3b 0a 20 20 20 20 20 20 20 20 7a 20 2b 3d 20  );.        z += 
4970: 73 74 72 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20  strlen(z) + 1;. 
4980: 20 20 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f         Tcl_ListO
4990: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
49a0: 30 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77  0, pArg, Tcl_New
49b0: 53 74 72 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29  StringObj(z, -1)
49c0: 29 3b 0a 20 20 20 20 20 20 20 20 7a 20 2b 3d 20  );.        z += 
49d0: 73 74 72 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20  strlen(z) + 1;. 
49e0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
49f0: 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20   tvfsExecTcl(p, 
4a00: 22 78 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77  "xOpen", Tcl_New
4a10: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a  StringObj(pFd->z
4a20: 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70  Filename, -1), p
4a30: 41 72 67 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20  Arg, 0, 0);.    
4a40: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
4a50: 28 70 41 72 67 29 3b 0a 20 20 20 20 69 66 28 20  (pArg);.    if( 
4a60: 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70  tvfsResultCode(p
4a70: 2c 20 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20  , &rc) ){.      
4a80: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f  if( rc!=SQLITE_O
4a90: 4b 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20  K ) return rc;. 
4aa0: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
4ab0: 70 49 64 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a  pId = Tcl_GetObj
4ac0: 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70  Result(p->interp
4ad0: 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20  );.    }.  }..  
4ae0: 69 66 28 20 28 70 2d 3e 6d 61 73 6b 26 54 45 53  if( (p->mask&TES
4af0: 54 56 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 29 20  TVFS_OPEN_MASK) 
4b00: 26 26 20 20 74 76 66 73 49 6e 6a 65 63 74 49 6f  &&  tvfsInjectIo
4b10: 65 72 72 28 70 29 20 29 20 72 65 74 75 72 6e 20  err(p) ) return 
4b20: 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20 20  SQLITE_IOERR;.  
4b30: 69 66 28 20 74 76 66 73 49 6e 6a 65 63 74 43 61  if( tvfsInjectCa
4b40: 6e 74 6f 70 65 6e 65 72 72 28 70 29 20 29 20 72  ntopenerr(p) ) r
4b50: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e  eturn SQLITE_CAN
4b60: 54 4f 50 45 4e 3b 0a 20 20 69 66 28 20 74 76 66  TOPEN;.  if( tvf
4b70: 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 70  sInjectFullerr(p
4b80: 29 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ) ) return SQLIT
4b90: 45 5f 46 55 4c 4c 3b 0a 0a 20 20 69 66 28 20 21  E_FULL;..  if( !
4ba0: 70 49 64 20 29 7b 0a 20 20 20 20 70 49 64 20 3d  pId ){.    pId =
4bb0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
4bc0: 6a 28 22 61 6e 6f 6e 22 2c 20 2d 31 29 3b 0a 20  j("anon", -1);. 
4bd0: 20 7d 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66   }.  Tcl_IncrRef
4be0: 43 6f 75 6e 74 28 70 49 64 29 3b 0a 20 20 70 46  Count(pId);.  pF
4bf0: 64 2d 3e 70 53 68 6d 49 64 20 3d 20 70 49 64 3b  d->pShmId = pId;
4c00: 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75  .  Tcl_ResetResu
4c10: 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a  lt(p->interp);..
4c20: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73    rc = sqlite3Os
4c30: 4f 70 65 6e 28 50 41 52 45 4e 54 56 46 53 28 70  Open(PARENTVFS(p
4c40: 56 66 73 29 2c 20 7a 4e 61 6d 65 2c 20 70 46 64  Vfs), zName, pFd
4c50: 2d 3e 70 52 65 61 6c 2c 20 66 6c 61 67 73 2c 20  ->pReal, flags, 
4c60: 70 4f 75 74 46 6c 61 67 73 29 3b 0a 20 20 69 66  pOutFlags);.  if
4c70: 28 20 70 46 64 2d 3e 70 52 65 61 6c 2d 3e 70 4d  ( pFd->pReal->pM
4c80: 65 74 68 6f 64 73 20 29 7b 0a 20 20 20 20 73 71  ethods ){.    sq
4c90: 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73  lite3_io_methods
4ca0: 20 2a 70 4d 65 74 68 6f 64 73 3b 0a 20 20 20 20   *pMethods;.    
4cb0: 69 6e 74 20 6e 42 79 74 65 3b 0a 0a 20 20 20 20  int nByte;..    
4cc0: 69 66 28 20 70 56 66 73 2d 3e 69 56 65 72 73 69  if( pVfs->iVersi
4cd0: 6f 6e 3e 31 20 29 7b 0a 20 20 20 20 20 20 6e 42  on>1 ){.      nB
4ce0: 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 73 71 6c  yte = sizeof(sql
4cf0: 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 29  ite3_io_methods)
4d00: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
4d10: 20 20 20 6e 42 79 74 65 20 3d 20 6f 66 66 73 65     nByte = offse
4d20: 74 6f 66 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d  tof(sqlite3_io_m
4d30: 65 74 68 6f 64 73 2c 20 78 53 68 6d 4d 61 70 29  ethods, xShmMap)
4d40: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 4d 65  ;.    }..    pMe
4d50: 74 68 6f 64 73 20 3d 20 28 73 71 6c 69 74 65 33  thods = (sqlite3
4d60: 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 2a 29 63 6b  _io_methods *)ck
4d70: 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20  alloc(nByte);.  
4d80: 20 20 6d 65 6d 63 70 79 28 70 4d 65 74 68 6f 64    memcpy(pMethod
4d90: 73 2c 20 26 74 76 66 73 5f 69 6f 5f 6d 65 74 68  s, &tvfs_io_meth
4da0: 6f 64 73 2c 20 6e 42 79 74 65 29 3b 0a 20 20 20  ods, nByte);.   
4db0: 20 70 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72 73   pMethods->iVers
4dc0: 69 6f 6e 20 3d 20 70 46 64 2d 3e 70 52 65 61 6c  ion = pFd->pReal
4dd0: 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72  ->pMethods->iVer
4de0: 73 69 6f 6e 3b 0a 20 20 20 20 69 66 28 20 70 4d  sion;.    if( pM
4df0: 65 74 68 6f 64 73 2d 3e 69 56 65 72 73 69 6f 6e  ethods->iVersion
4e00: 3e 70 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e 20  >pVfs->iVersion 
4e10: 29 7b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64  ){.      pMethod
4e20: 73 2d 3e 69 56 65 72 73 69 6f 6e 20 3d 20 70 56  s->iVersion = pV
4e30: 66 73 2d 3e 69 56 65 72 73 69 6f 6e 3b 0a 20 20  fs->iVersion;.  
4e40: 20 20 7d 0a 20 20 20 20 69 66 28 20 70 56 66 73    }.    if( pVfs
4e50: 2d 3e 69 56 65 72 73 69 6f 6e 3e 31 20 26 26 20  ->iVersion>1 && 
4e60: 28 28 54 65 73 74 76 66 73 20 2a 29 70 56 66 73  ((Testvfs *)pVfs
4e70: 2d 3e 70 41 70 70 44 61 74 61 29 2d 3e 69 73 4e  ->pAppData)->isN
4e80: 6f 73 68 6d 20 29 7b 0a 20 20 20 20 20 20 70 4d  oshm ){.      pM
4e90: 65 74 68 6f 64 73 2d 3e 78 53 68 6d 55 6e 6d 61  ethods->xShmUnma
4ea0: 70 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65  p = 0;.      pMe
4eb0: 74 68 6f 64 73 2d 3e 78 53 68 6d 4c 6f 63 6b 20  thods->xShmLock 
4ec0: 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65 74 68  = 0;.      pMeth
4ed0: 6f 64 73 2d 3e 78 53 68 6d 42 61 72 72 69 65 72  ods->xShmBarrier
4ee0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65 74   = 0;.      pMet
4ef0: 68 6f 64 73 2d 3e 78 53 68 6d 4d 61 70 20 3d 20  hods->xShmMap = 
4f00: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 46 69  0;.    }.    pFi
4f10: 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 20 3d 20 70  le->pMethods = p
4f20: 4d 65 74 68 6f 64 73 3b 0a 20 20 7d 0a 0a 20 20  Methods;.  }..  
4f30: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a  return rc;.}../*
4f40: 0a 2a 2a 20 44 65 6c 65 74 65 20 74 68 65 20 66  .** Delete the f
4f50: 69 6c 65 20 6c 6f 63 61 74 65 64 20 61 74 20 7a  ile located at z
4f60: 50 61 74 68 2e 20 49 66 20 74 68 65 20 64 69 72  Path. If the dir
4f70: 53 79 6e 63 20 61 72 67 75 6d 65 6e 74 20 69 73  Sync argument is
4f80: 20 74 72 75 65 2c 0a 2a 2a 20 65 6e 73 75 72 65   true,.** ensure
4f90: 20 74 68 65 20 66 69 6c 65 2d 73 79 73 74 65 6d   the file-system
4fa0: 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 61   modifications a
4fb0: 72 65 20 73 79 6e 63 65 64 20 74 6f 20 64 69 73  re synced to dis
4fc0: 6b 20 62 65 66 6f 72 65 0a 2a 2a 20 72 65 74 75  k before.** retu
4fd0: 72 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63  rning..*/.static
4fe0: 20 69 6e 74 20 74 76 66 73 44 65 6c 65 74 65 28   int tvfsDelete(
4ff0: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
5000: 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  s, const char *z
5010: 50 61 74 68 2c 20 69 6e 74 20 64 69 72 53 79 6e  Path, int dirSyn
5020: 63 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53  c){.  int rc = S
5030: 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74  QLITE_OK;.  Test
5040: 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66  vfs *p = (Testvf
5050: 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70 44 61  s *)pVfs->pAppDa
5060: 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53  ta;..  if( p->pS
5070: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
5080: 26 54 45 53 54 56 46 53 5f 44 45 4c 45 54 45 5f  &TESTVFS_DELETE_
5090: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73  MASK ){.    tvfs
50a0: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 44 65 6c  ExecTcl(p, "xDel
50b0: 65 74 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54  ete", .        T
50c0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
50d0: 7a 50 61 74 68 2c 20 2d 31 29 2c 20 54 63 6c 5f  zPath, -1), Tcl_
50e0: 4e 65 77 49 6e 74 4f 62 6a 28 64 69 72 53 79 6e  NewIntObj(dirSyn
50f0: 63 29 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a  c), 0, 0.    );.
5100: 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f      tvfsResultCo
5110: 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a  de(p, &rc);.  }.
5120: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
5130: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
5140: 73 71 6c 69 74 65 33 4f 73 44 65 6c 65 74 65 28  sqlite3OsDelete(
5150: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
5160: 20 7a 50 61 74 68 2c 20 64 69 72 53 79 6e 63 29   zPath, dirSync)
5170: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72  ;.  }.  return r
5180: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 73 74  c;.}../*.** Test
5190: 20 66 6f 72 20 61 63 63 65 73 73 20 70 65 72 6d   for access perm
51a0: 69 73 73 69 6f 6e 73 2e 20 52 65 74 75 72 6e 20  issions. Return 
51b0: 74 72 75 65 20 69 66 20 74 68 65 20 72 65 71 75  true if the requ
51c0: 65 73 74 65 64 20 70 65 72 6d 69 73 73 69 6f 6e  ested permission
51d0: 0a 2a 2a 20 69 73 20 61 76 61 69 6c 61 62 6c 65  .** is available
51e0: 2c 20 6f 72 20 66 61 6c 73 65 20 6f 74 68 65 72  , or false other
51f0: 77 69 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  wise..*/.static 
5200: 69 6e 74 20 74 76 66 73 41 63 63 65 73 73 28 0a  int tvfsAccess(.
5210: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
5220: 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68  Vfs, .  const ch
5230: 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e  ar *zPath, .  in
5240: 74 20 66 6c 61 67 73 2c 20 0a 20 20 69 6e 74 20  t flags, .  int 
5250: 2a 70 52 65 73 4f 75 74 0a 29 7b 0a 20 20 54 65  *pResOut.){.  Te
5260: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
5270: 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70  vfs *)pVfs->pApp
5280: 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70  Data;.  if( p->p
5290: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
52a0: 6b 26 54 45 53 54 56 46 53 5f 41 43 43 45 53 53  k&TESTVFS_ACCESS
52b0: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 69 6e 74  _MASK ){.    int
52c0: 20 72 63 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a   rc;.    char *z
52d0: 41 72 67 20 3d 20 30 3b 0a 20 20 20 20 69 66 28  Arg = 0;.    if(
52e0: 20 66 6c 61 67 73 3d 3d 53 51 4c 49 54 45 5f 41   flags==SQLITE_A
52f0: 43 43 45 53 53 5f 45 58 49 53 54 53 20 29 20 7a  CCESS_EXISTS ) z
5300: 41 72 67 20 3d 20 22 53 51 4c 49 54 45 5f 41 43  Arg = "SQLITE_AC
5310: 43 45 53 53 5f 45 58 49 53 54 53 22 3b 0a 20 20  CESS_EXISTS";.  
5320: 20 20 69 66 28 20 66 6c 61 67 73 3d 3d 53 51 4c    if( flags==SQL
5330: 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41 44 57  ITE_ACCESS_READW
5340: 52 49 54 45 20 29 20 7a 41 72 67 20 3d 20 22 53  RITE ) zArg = "S
5350: 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41  QLITE_ACCESS_REA
5360: 44 57 52 49 54 45 22 3b 0a 20 20 20 20 69 66 28  DWRITE";.    if(
5370: 20 66 6c 61 67 73 3d 3d 53 51 4c 49 54 45 5f 41   flags==SQLITE_A
5380: 43 43 45 53 53 5f 52 45 41 44 20 29 20 7a 41 72  CCESS_READ ) zAr
5390: 67 20 3d 20 22 53 51 4c 49 54 45 5f 41 43 43 45  g = "SQLITE_ACCE
53a0: 53 53 5f 52 45 41 44 22 3b 0a 20 20 20 20 74 76  SS_READ";.    tv
53b0: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 41  fsExecTcl(p, "xA
53c0: 63 63 65 73 73 22 2c 20 0a 20 20 20 20 20 20 20  ccess", .       
53d0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
53e0: 6a 28 7a 50 61 74 68 2c 20 2d 31 29 2c 20 54 63  j(zPath, -1), Tc
53f0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a  l_NewStringObj(z
5400: 41 72 67 2c 20 2d 31 29 2c 20 30 2c 20 30 0a 20  Arg, -1), 0, 0. 
5410: 20 20 20 29 3b 0a 20 20 20 20 69 66 28 20 74 76     );.    if( tv
5420: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
5430: 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69 66  &rc) ){.      if
5440: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
5450: 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20  ) return rc;.   
5460: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 54 63   }else{.      Tc
5470: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
5480: 20 3d 20 70 2d 3e 69 6e 74 65 72 70 3b 0a 20 20   = p->interp;.  
5490: 20 20 20 20 69 66 28 20 54 43 4c 5f 4f 4b 3d 3d      if( TCL_OK==
54a0: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72  Tcl_GetBooleanFr
54b0: 6f 6d 4f 62 6a 28 30 2c 20 54 63 6c 5f 47 65 74  omObj(0, Tcl_Get
54c0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
54d0: 29 2c 20 70 52 65 73 4f 75 74 29 20 29 7b 0a 20  ), pResOut) ){. 
54e0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51         return SQ
54f0: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 20 20 20 20 7d  LITE_OK;.      }
5500: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74  .    }.  }.  ret
5510: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 41 63 63  urn sqlite3OsAcc
5520: 65 73 73 28 50 41 52 45 4e 54 56 46 53 28 70 56  ess(PARENTVFS(pV
5530: 66 73 29 2c 20 7a 50 61 74 68 2c 20 66 6c 61 67  fs), zPath, flag
5540: 73 2c 20 70 52 65 73 4f 75 74 29 3b 0a 7d 0a 0a  s, pResOut);.}..
5550: 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 62  /*.** Populate b
5560: 75 66 66 65 72 20 7a 4f 75 74 20 77 69 74 68 20  uffer zOut with 
5570: 74 68 65 20 66 75 6c 6c 20 63 61 6e 6f 6e 69 63  the full canonic
5580: 61 6c 20 70 61 74 68 6e 61 6d 65 20 63 6f 72 72  al pathname corr
5590: 65 73 70 6f 6e 64 69 6e 67 0a 2a 2a 20 74 6f 20  esponding.** to 
55a0: 74 68 65 20 70 61 74 68 6e 61 6d 65 20 69 6e 20  the pathname in 
55b0: 7a 50 61 74 68 2e 20 7a 4f 75 74 20 69 73 20 67  zPath. zOut is g
55c0: 75 61 72 61 6e 74 65 65 64 20 74 6f 20 70 6f 69  uaranteed to poi
55d0: 6e 74 20 74 6f 20 61 20 62 75 66 66 65 72 0a 2a  nt to a buffer.*
55e0: 2a 20 6f 66 20 61 74 20 6c 65 61 73 74 20 28 44  * of at least (D
55f0: 45 56 53 59 4d 5f 4d 41 58 5f 50 41 54 48 4e 41  EVSYM_MAX_PATHNA
5600: 4d 45 2b 31 29 20 62 79 74 65 73 2e 0a 2a 2f 0a  ME+1) bytes..*/.
5610: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46  static int tvfsF
5620: 75 6c 6c 50 61 74 68 6e 61 6d 65 28 0a 20 20 73  ullPathname(.  s
5630: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
5640: 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  , .  const char 
5650: 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e 74 20 6e  *zPath, .  int n
5660: 4f 75 74 2c 20 0a 20 20 63 68 61 72 20 2a 7a 4f  Out, .  char *zO
5670: 75 74 0a 29 7b 0a 20 20 54 65 73 74 76 66 73 20  ut.){.  Testvfs 
5680: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
5690: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a  pVfs->pAppData;.
56a0: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
56b0: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
56c0: 56 46 53 5f 46 55 4c 4c 50 41 54 48 4e 41 4d 45  VFS_FULLPATHNAME
56d0: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 69 6e 74  _MASK ){.    int
56e0: 20 72 63 3b 0a 20 20 20 20 74 76 66 73 45 78 65   rc;.    tvfsExe
56f0: 63 54 63 6c 28 70 2c 20 22 78 46 75 6c 6c 50 61  cTcl(p, "xFullPa
5700: 74 68 6e 61 6d 65 22 2c 20 54 63 6c 5f 4e 65 77  thname", Tcl_New
5710: 53 74 72 69 6e 67 4f 62 6a 28 7a 50 61 74 68 2c  StringObj(zPath,
5720: 20 2d 31 29 2c 20 30 2c 20 30 2c 20 30 29 3b 0a   -1), 0, 0, 0);.
5730: 20 20 20 20 69 66 28 20 74 76 66 73 52 65 73 75      if( tvfsResu
5740: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 20 29  ltCode(p, &rc) )
5750: 7b 0a 20 20 20 20 20 20 69 66 28 20 72 63 21 3d  {.      if( rc!=
5760: 53 51 4c 49 54 45 5f 4f 4b 20 29 20 72 65 74 75  SQLITE_OK ) retu
5770: 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a 20 20 7d  rn rc;.    }.  }
5780: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
5790: 33 4f 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28  3OsFullPathname(
57a0: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
57b0: 20 7a 50 61 74 68 2c 20 6e 4f 75 74 2c 20 7a 4f   zPath, nOut, zO
57c0: 75 74 29 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 20  ut);.}..#ifndef 
57d0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44  SQLITE_OMIT_LOAD
57e0: 5f 45 58 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a  _EXTENSION./*.**
57f0: 20 4f 70 65 6e 20 74 68 65 20 64 79 6e 61 6d 69   Open the dynami
5800: 63 20 6c 69 62 72 61 72 79 20 6c 6f 63 61 74 65  c library locate
5810: 64 20 61 74 20 7a 50 61 74 68 20 61 6e 64 20 72  d at zPath and r
5820: 65 74 75 72 6e 20 61 20 68 61 6e 64 6c 65 2e 0a  eturn a handle..
5830: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a  */.static void *
5840: 74 76 66 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74  tvfsDlOpen(sqlit
5850: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 63 6f  e3_vfs *pVfs, co
5860: 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68 29  nst char *zPath)
5870: 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  {.  return sqlit
5880: 65 33 4f 73 44 6c 4f 70 65 6e 28 50 41 52 45 4e  e3OsDlOpen(PAREN
5890: 54 56 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74  TVFS(pVfs), zPat
58a0: 68 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70  h);.}../*.** Pop
58b0: 75 6c 61 74 65 20 74 68 65 20 62 75 66 66 65 72  ulate the buffer
58c0: 20 7a 45 72 72 4d 73 67 20 28 73 69 7a 65 20 6e   zErrMsg (size n
58d0: 42 79 74 65 20 62 79 74 65 73 29 20 77 69 74 68  Byte bytes) with
58e0: 20 61 20 68 75 6d 61 6e 20 72 65 61 64 61 62 6c   a human readabl
58f0: 65 0a 2a 2a 20 75 74 66 2d 38 20 73 74 72 69 6e  e.** utf-8 strin
5900: 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65  g describing the
5910: 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 65 72 72   most recent err
5920: 6f 72 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 61  or encountered a
5930: 73 73 6f 63 69 61 74 65 64 20 0a 2a 2a 20 77 69  ssociated .** wi
5940: 74 68 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61  th dynamic libra
5950: 72 69 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ries..*/.static 
5960: 76 6f 69 64 20 74 76 66 73 44 6c 45 72 72 6f 72  void tvfsDlError
5970: 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56  (sqlite3_vfs *pV
5980: 66 73 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63  fs, int nByte, c
5990: 68 61 72 20 2a 7a 45 72 72 4d 73 67 29 7b 0a 20  har *zErrMsg){. 
59a0: 20 73 71 6c 69 74 65 33 4f 73 44 6c 45 72 72 6f   sqlite3OsDlErro
59b0: 72 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  r(PARENTVFS(pVfs
59c0: 29 2c 20 6e 42 79 74 65 2c 20 7a 45 72 72 4d 73  ), nByte, zErrMs
59d0: 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74  g);.}../*.** Ret
59e0: 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f  urn a pointer to
59f0: 20 74 68 65 20 73 79 6d 62 6f 6c 20 7a 53 79 6d   the symbol zSym
5a00: 62 6f 6c 20 69 6e 20 74 68 65 20 64 79 6e 61 6d  bol in the dynam
5a10: 69 63 20 6c 69 62 72 61 72 79 20 70 48 61 6e 64  ic library pHand
5a20: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  le..*/.static vo
5a30: 69 64 20 28 2a 74 76 66 73 44 6c 53 79 6d 28 73  id (*tvfsDlSym(s
5a40: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
5a50: 2c 20 76 6f 69 64 20 2a 70 2c 20 63 6f 6e 73 74  , void *p, const
5a60: 20 63 68 61 72 20 2a 7a 53 79 6d 29 29 28 76 6f   char *zSym))(vo
5a70: 69 64 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71  id){.  return sq
5a80: 6c 69 74 65 33 4f 73 44 6c 53 79 6d 28 50 41 52  lite3OsDlSym(PAR
5a90: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 70 2c  ENTVFS(pVfs), p,
5aa0: 20 7a 53 79 6d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a   zSym);.}../*.**
5ab0: 20 43 6c 6f 73 65 20 74 68 65 20 64 79 6e 61 6d   Close the dynam
5ac0: 69 63 20 6c 69 62 72 61 72 79 20 68 61 6e 64 6c  ic library handl
5ad0: 65 20 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74  e pHandle..*/.st
5ae0: 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c  atic void tvfsDl
5af0: 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 76 66  Close(sqlite3_vf
5b00: 73 20 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70  s *pVfs, void *p
5b10: 48 61 6e 64 6c 65 29 7b 0a 20 20 73 71 6c 69 74  Handle){.  sqlit
5b20: 65 33 4f 73 44 6c 43 6c 6f 73 65 28 50 41 52 45  e3OsDlClose(PARE
5b30: 4e 54 56 46 53 28 70 56 66 73 29 2c 20 70 48 61  NTVFS(pVfs), pHa
5b40: 6e 64 6c 65 29 3b 0a 7d 0a 23 65 6e 64 69 66 20  ndle);.}.#endif 
5b50: 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c  /* SQLITE_OMIT_L
5b60: 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f  OAD_EXTENSION */
5b70: 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65  ../*.** Populate
5b80: 20 74 68 65 20 62 75 66 66 65 72 20 70 6f 69 6e   the buffer poin
5b90: 74 65 64 20 74 6f 20 62 79 20 7a 42 75 66 4f 75  ted to by zBufOu
5ba0: 74 20 77 69 74 68 20 6e 42 79 74 65 20 62 79 74  t with nByte byt
5bb0: 65 73 20 6f 66 20 0a 2a 2a 20 72 61 6e 64 6f 6d  es of .** random
5bc0: 20 64 61 74 61 2e 0a 2a 2f 0a 73 74 61 74 69 63   data..*/.static
5bd0: 20 69 6e 74 20 74 76 66 73 52 61 6e 64 6f 6d 6e   int tvfsRandomn
5be0: 65 73 73 28 73 71 6c 69 74 65 33 5f 76 66 73 20  ess(sqlite3_vfs 
5bf0: 2a 70 56 66 73 2c 20 69 6e 74 20 6e 42 79 74 65  *pVfs, int nByte
5c00: 2c 20 63 68 61 72 20 2a 7a 42 75 66 4f 75 74 29  , char *zBufOut)
5c10: 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  {.  return sqlit
5c20: 65 33 4f 73 52 61 6e 64 6f 6d 6e 65 73 73 28 50  e3OsRandomness(P
5c30: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
5c40: 6e 42 79 74 65 2c 20 7a 42 75 66 4f 75 74 29 3b  nByte, zBufOut);
5c50: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 6c 65 65 70 20  .}../*.** Sleep 
5c60: 66 6f 72 20 6e 4d 69 63 72 6f 20 6d 69 63 72 6f  for nMicro micro
5c70: 73 65 63 6f 6e 64 73 2e 20 52 65 74 75 72 6e 20  seconds. Return 
5c80: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69  the number of mi
5c90: 63 72 6f 73 65 63 6f 6e 64 73 20 0a 2a 2a 20 61  croseconds .** a
5ca0: 63 74 75 61 6c 6c 79 20 73 6c 65 70 74 2e 0a 2a  ctually slept..*
5cb0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
5cc0: 73 53 6c 65 65 70 28 73 71 6c 69 74 65 33 5f 76  sSleep(sqlite3_v
5cd0: 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e 4d  fs *pVfs, int nM
5ce0: 69 63 72 6f 29 7b 0a 20 20 72 65 74 75 72 6e 20  icro){.  return 
5cf0: 73 71 6c 69 74 65 33 4f 73 53 6c 65 65 70 28 50  sqlite3OsSleep(P
5d00: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
5d10: 6e 4d 69 63 72 6f 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  nMicro);.}../*.*
5d20: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 63 75 72  * Return the cur
5d30: 72 65 6e 74 20 74 69 6d 65 20 61 73 20 61 20 4a  rent time as a J
5d40: 75 6c 69 61 6e 20 44 61 79 20 6e 75 6d 62 65 72  ulian Day number
5d50: 20 69 6e 20 2a 70 54 69 6d 65 4f 75 74 2e 0a 2a   in *pTimeOut..*
5d60: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
5d70: 73 43 75 72 72 65 6e 74 54 69 6d 65 28 73 71 6c  sCurrentTime(sql
5d80: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
5d90: 64 6f 75 62 6c 65 20 2a 70 54 69 6d 65 4f 75 74  double *pTimeOut
5da0: 29 7b 0a 20 20 72 65 74 75 72 6e 20 50 41 52 45  ){.  return PARE
5db0: 4e 54 56 46 53 28 70 56 66 73 29 2d 3e 78 43 75  NTVFS(pVfs)->xCu
5dc0: 72 72 65 6e 74 54 69 6d 65 28 50 41 52 45 4e 54  rrentTime(PARENT
5dd0: 56 46 53 28 70 56 66 73 29 2c 20 70 54 69 6d 65  VFS(pVfs), pTime
5de0: 4f 75 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  Out);.}..static 
5df0: 69 6e 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28  int tvfsShmOpen(
5e00: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
5e10: 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66 73 20  ile){.  Testvfs 
5e20: 2a 70 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53  *p;.  int rc = S
5e30: 51 4c 49 54 45 5f 4f 4b 3b 20 20 20 20 20 20 20  QLITE_OK;       
5e40: 20 20 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20        /* Return 
5e50: 63 6f 64 65 20 2a 2f 0a 20 20 54 65 73 74 76 66  code */.  Testvf
5e60: 73 42 75 66 66 65 72 20 2a 70 42 75 66 66 65 72  sBuffer *pBuffer
5e70: 3b 20 20 20 20 20 20 20 20 20 2f 2a 20 42 75 66  ;         /* Buf
5e80: 66 65 72 20 74 6f 20 6f 70 65 6e 20 63 6f 6e 6e  fer to open conn
5e90: 65 63 74 69 6f 6e 20 74 6f 20 2a 2f 0a 20 20 54  ection to */.  T
5ea0: 65 73 74 76 66 73 46 64 20 2a 70 46 64 3b 20 20  estvfsFd *pFd;  
5eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
5ec0: 2a 20 54 68 65 20 74 65 73 74 76 66 73 20 66 69  * The testvfs fi
5ed0: 6c 65 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a  le structure */.
5ee0: 0a 20 20 70 46 64 20 3d 20 74 76 66 73 47 65 74  .  pFd = tvfsGet
5ef0: 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 70 20 3d  Fd(pFile);.  p =
5f00: 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d   (Testvfs *)pFd-
5f10: 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b  >pVfs->pAppData;
5f20: 0a 20 20 61 73 73 65 72 74 28 20 30 3d 3d 70 2d  .  assert( 0==p-
5f30: 3e 69 73 46 75 6c 6c 73 68 6d 20 29 3b 0a 20 20  >isFullshm );.  
5f40: 61 73 73 65 72 74 28 20 70 46 64 2d 3e 70 53 68  assert( pFd->pSh
5f50: 6d 49 64 20 26 26 20 70 46 64 2d 3e 70 53 68 6d  mId && pFd->pShm
5f60: 3d 3d 30 20 26 26 20 70 46 64 2d 3e 70 4e 65 78  ==0 && pFd->pNex
5f70: 74 3d 3d 30 20 29 3b 0a 0a 20 20 2f 2a 20 45 76  t==0 );..  /* Ev
5f80: 61 6c 75 61 74 65 20 74 68 65 20 54 63 6c 20 73  aluate the Tcl s
5f90: 63 72 69 70 74 3a 20 0a 20 20 2a 2a 0a 20 20 2a  cript: .  **.  *
5fa0: 2a 20 20 20 53 43 52 49 50 54 20 78 53 68 6d 4f  *   SCRIPT xShmO
5fb0: 70 65 6e 20 46 49 4c 45 4e 41 4d 45 0a 20 20 2a  pen FILENAME.  *
5fc0: 2f 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73  /.  Tcl_ResetRes
5fd0: 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a  ult(p->interp);.
5fe0: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
5ff0: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
6000: 56 46 53 5f 53 48 4d 4f 50 45 4e 5f 4d 41 53 4b  VFS_SHMOPEN_MASK
6010: 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63   ){.    tvfsExec
6020: 54 63 6c 28 70 2c 20 22 78 53 68 6d 4f 70 65 6e  Tcl(p, "xShmOpen
6030: 22 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  ", Tcl_NewString
6040: 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61  Obj(pFd->zFilena
6050: 6d 65 2c 20 2d 31 29 2c 20 30 2c 20 30 2c 20 30  me, -1), 0, 0, 0
6060: 29 3b 0a 20 20 20 20 69 66 28 20 74 76 66 73 52  );.    if( tvfsR
6070: 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63  esultCode(p, &rc
6080: 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 72  ) ){.      if( r
6090: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20 72  c!=SQLITE_OK ) r
60a0: 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a  eturn rc;.    }.
60b0: 20 20 7d 0a 0a 20 20 61 73 73 65 72 74 28 20 72    }..  assert( r
60c0: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 3b 0a  c==SQLITE_OK );.
60d0: 20 20 69 66 28 20 70 2d 3e 6d 61 73 6b 26 54 45    if( p->mask&TE
60e0: 53 54 56 46 53 5f 53 48 4d 4f 50 45 4e 5f 4d 41  STVFS_SHMOPEN_MA
60f0: 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  SK && tvfsInject
6100: 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20  Ioerr(p) ){.    
6110: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f  return SQLITE_IO
6120: 45 52 52 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 53  ERR;.  }..  /* S
6130: 65 61 72 63 68 20 66 6f 72 20 61 20 54 65 73 74  earch for a Test
6140: 76 66 73 42 75 66 66 65 72 2e 20 43 72 65 61 74  vfsBuffer. Creat
6150: 65 20 61 20 6e 65 77 20 6f 6e 65 20 69 66 20 72  e a new one if r
6160: 65 71 75 69 72 65 64 2e 20 2a 2f 0a 20 20 66 6f  equired. */.  fo
6170: 72 28 70 42 75 66 66 65 72 3d 70 2d 3e 70 42 75  r(pBuffer=p->pBu
6180: 66 66 65 72 3b 20 70 42 75 66 66 65 72 3b 20 70  ffer; pBuffer; p
6190: 42 75 66 66 65 72 3d 70 42 75 66 66 65 72 2d 3e  Buffer=pBuffer->
61a0: 70 4e 65 78 74 29 7b 0a 20 20 20 20 69 66 28 20  pNext){.    if( 
61b0: 30 3d 3d 73 74 72 63 6d 70 28 70 46 64 2d 3e 7a  0==strcmp(pFd->z
61c0: 46 69 6c 65 6e 61 6d 65 2c 20 70 42 75 66 66 65  Filename, pBuffe
61d0: 72 2d 3e 7a 46 69 6c 65 29 20 29 20 62 72 65 61  r->zFile) ) brea
61e0: 6b 3b 0a 20 20 7d 0a 20 20 69 66 28 20 21 70 42  k;.  }.  if( !pB
61f0: 75 66 66 65 72 20 29 7b 0a 20 20 20 20 69 6e 74  uffer ){.    int
6200: 20 73 7a 4e 61 6d 65 20 3d 20 28 69 6e 74 29 73   szName = (int)s
6210: 74 72 6c 65 6e 28 70 46 64 2d 3e 7a 46 69 6c 65  trlen(pFd->zFile
6220: 6e 61 6d 65 29 3b 0a 20 20 20 20 69 6e 74 20 6e  name);.    int n
6230: 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 54 65  Byte = sizeof(Te
6240: 73 74 76 66 73 42 75 66 66 65 72 29 20 2b 20 73  stvfsBuffer) + s
6250: 7a 4e 61 6d 65 20 2b 20 31 3b 0a 20 20 20 20 70  zName + 1;.    p
6260: 42 75 66 66 65 72 20 3d 20 28 54 65 73 74 76 66  Buffer = (Testvf
6270: 73 42 75 66 66 65 72 20 2a 29 63 6b 61 6c 6c 6f  sBuffer *)ckallo
6280: 63 28 6e 42 79 74 65 29 3b 0a 20 20 20 20 6d 65  c(nByte);.    me
6290: 6d 73 65 74 28 70 42 75 66 66 65 72 2c 20 30 2c  mset(pBuffer, 0,
62a0: 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 70 42 75   nByte);.    pBu
62b0: 66 66 65 72 2d 3e 7a 46 69 6c 65 20 3d 20 28 63  ffer->zFile = (c
62c0: 68 61 72 20 2a 29 26 70 42 75 66 66 65 72 5b 31  har *)&pBuffer[1
62d0: 5d 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 70 42  ];.    memcpy(pB
62e0: 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 70 46  uffer->zFile, pF
62f0: 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 73 7a  d->zFilename, sz
6300: 4e 61 6d 65 2b 31 29 3b 0a 20 20 20 20 70 42 75  Name+1);.    pBu
6310: 66 66 65 72 2d 3e 70 4e 65 78 74 20 3d 20 70 2d  ffer->pNext = p-
6320: 3e 70 42 75 66 66 65 72 3b 0a 20 20 20 20 70 2d  >pBuffer;.    p-
6330: 3e 70 42 75 66 66 65 72 20 3d 20 70 42 75 66 66  >pBuffer = pBuff
6340: 65 72 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 43 6f  er;.  }..  /* Co
6350: 6e 6e 65 63 74 20 74 68 65 20 54 65 73 74 76 66  nnect the Testvf
6360: 73 42 75 66 66 65 72 20 74 6f 20 74 68 65 20 6e  sBuffer to the n
6370: 65 77 20 54 65 73 74 76 66 73 53 68 6d 20 68 61  ew TestvfsShm ha
6380: 6e 64 6c 65 20 61 6e 64 20 72 65 74 75 72 6e 2e  ndle and return.
6390: 20 2a 2f 0a 20 20 70 46 64 2d 3e 70 4e 65 78 74   */.  pFd->pNext
63a0: 20 3d 20 70 42 75 66 66 65 72 2d 3e 70 46 69 6c   = pBuffer->pFil
63b0: 65 3b 0a 20 20 70 42 75 66 66 65 72 2d 3e 70 46  e;.  pBuffer->pF
63c0: 69 6c 65 20 3d 20 70 46 64 3b 0a 20 20 70 46 64  ile = pFd;.  pFd
63d0: 2d 3e 70 53 68 6d 20 3d 20 70 42 75 66 66 65 72  ->pShm = pBuffer
63e0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
63f0: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 76  ..static void tv
6400: 66 73 41 6c 6c 6f 63 50 61 67 65 28 54 65 73 74  fsAllocPage(Test
6410: 76 66 73 42 75 66 66 65 72 20 2a 70 2c 20 69 6e  vfsBuffer *p, in
6420: 74 20 69 50 61 67 65 2c 20 69 6e 74 20 70 67 73  t iPage, int pgs
6430: 7a 29 7b 0a 20 20 61 73 73 65 72 74 28 20 69 50  z){.  assert( iP
6440: 61 67 65 3c 54 45 53 54 56 46 53 5f 4d 41 58 5f  age<TESTVFS_MAX_
6450: 50 41 47 45 53 20 29 3b 0a 20 20 69 66 28 20 70  PAGES );.  if( p
6460: 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d 3d 3d  ->aPage[iPage]==
6470: 30 20 29 7b 0a 20 20 20 20 70 2d 3e 61 50 61 67  0 ){.    p->aPag
6480: 65 5b 69 50 61 67 65 5d 20 3d 20 28 75 38 20 2a  e[iPage] = (u8 *
6490: 29 63 6b 61 6c 6c 6f 63 28 70 67 73 7a 29 3b 0a  )ckalloc(pgsz);.
64a0: 20 20 20 20 6d 65 6d 73 65 74 28 70 2d 3e 61 50      memset(p->aP
64b0: 61 67 65 5b 69 50 61 67 65 5d 2c 20 30 2c 20 70  age[iPage], 0, p
64c0: 67 73 7a 29 3b 0a 20 20 20 20 70 2d 3e 70 67 73  gsz);.    p->pgs
64d0: 7a 20 3d 20 70 67 73 7a 3b 0a 20 20 7d 0a 7d 0a  z = pgsz;.  }.}.
64e0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
64f0: 53 68 6d 4d 61 70 28 0a 20 20 73 71 6c 69 74 65  ShmMap(.  sqlite
6500: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 20  3_file *pFile,  
6510: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 48 61 6e            /* Han
6520: 64 6c 65 20 6f 70 65 6e 20 6f 6e 20 64 61 74 61  dle open on data
6530: 62 61 73 65 20 66 69 6c 65 20 2a 2f 0a 20 20 69  base file */.  i
6540: 6e 74 20 69 50 61 67 65 2c 20 20 20 20 20 20 20  nt iPage,       
6550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
6560: 2a 20 50 61 67 65 20 74 6f 20 72 65 74 72 69 65  * Page to retrie
6570: 76 65 20 2a 2f 0a 20 20 69 6e 74 20 70 67 73 7a  ve */.  int pgsz
6580: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
6590: 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20          /* Size 
65a0: 6f 66 20 70 61 67 65 73 20 2a 2f 0a 20 20 69 6e  of pages */.  in
65b0: 74 20 69 73 57 72 69 74 65 2c 20 20 20 20 20 20  t isWrite,      
65c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
65d0: 20 54 72 75 65 20 74 6f 20 65 78 74 65 6e 64 20   True to extend 
65e0: 66 69 6c 65 20 69 66 20 6e 65 63 65 73 73 61 72  file if necessar
65f0: 79 20 2a 2f 0a 20 20 76 6f 69 64 20 76 6f 6c 61  y */.  void vola
6600: 74 69 6c 65 20 2a 2a 70 70 20 20 20 20 20 20 20  tile **pp       
6610: 20 20 20 20 20 20 20 2f 2a 20 4f 55 54 3a 20 4d         /* OUT: M
6620: 61 70 70 65 64 20 6d 65 6d 6f 72 79 20 2a 2f 0a  apped memory */.
6630: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  ){.  int rc = SQ
6640: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76  LITE_OK;.  Testv
6650: 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73  fsFd *pFd = tvfs
6660: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
6670: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
6680: 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70 56  stvfs *)(pFd->pV
6690: 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 0a  fs->pAppData);..
66a0: 20 20 69 66 28 20 70 2d 3e 69 73 46 75 6c 6c 73    if( p->isFulls
66b0: 68 6d 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  hm ){.    return
66c0: 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 4d 61 70   sqlite3OsShmMap
66d0: 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 69 50 61  (pFd->pReal, iPa
66e0: 67 65 2c 20 70 67 73 7a 2c 20 69 73 57 72 69 74  ge, pgsz, isWrit
66f0: 65 2c 20 70 70 29 3b 0a 20 20 7d 0a 0a 20 20 69  e, pp);.  }..  i
6700: 66 28 20 30 3d 3d 70 46 64 2d 3e 70 53 68 6d 20  f( 0==pFd->pShm 
6710: 29 7b 0a 20 20 20 20 72 63 20 3d 20 74 76 66 73  ){.    rc = tvfs
6720: 53 68 6d 4f 70 65 6e 28 70 46 69 6c 65 29 3b 0a  ShmOpen(pFile);.
6730: 20 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49      if( rc!=SQLI
6740: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 72  TE_OK ){.      r
6750: 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a  eturn rc;.    }.
6760: 20 20 7d 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53    }..  if( p->pS
6770: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
6780: 26 54 45 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f  &TESTVFS_SHMMAP_
6790: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f  MASK ){.    Tcl_
67a0: 4f 62 6a 20 2a 70 41 72 67 20 3d 20 54 63 6c 5f  Obj *pArg = Tcl_
67b0: 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 54 63  NewObj();.    Tc
67c0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
67d0: 41 72 67 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69  Arg);.    Tcl_Li
67e0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
67f0: 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 41  nt(p->interp, pA
6800: 72 67 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62  rg, Tcl_NewIntOb
6810: 6a 28 69 50 61 67 65 29 29 3b 0a 20 20 20 20 54  j(iPage));.    T
6820: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
6830: 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72  Element(p->inter
6840: 70 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77  p, pArg, Tcl_New
6850: 49 6e 74 4f 62 6a 28 70 67 73 7a 29 29 3b 0a 20  IntObj(pgsz));. 
6860: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70     Tcl_ListObjAp
6870: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69  pendElement(p->i
6880: 6e 74 65 72 70 2c 20 70 41 72 67 2c 20 54 63 6c  nterp, pArg, Tcl
6890: 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 73 57 72 69  _NewIntObj(isWri
68a0: 74 65 29 29 3b 0a 20 20 20 20 74 76 66 73 45 78  te));.    tvfsEx
68b0: 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d 4d 61  ecTcl(p, "xShmMa
68c0: 70 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c  p", .        Tcl
68d0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46  _NewStringObj(pF
68e0: 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20  d->pShm->zFile, 
68f0: 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64  -1), pFd->pShmId
6900: 2c 20 70 41 72 67 2c 20 30 0a 20 20 20 20 29 3b  , pArg, 0.    );
6910: 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43  .    tvfsResultC
6920: 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 20  ode(p, &rc);.   
6930: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e   Tcl_DecrRefCoun
6940: 74 28 70 41 72 67 29 3b 0a 20 20 7d 0a 20 20 69  t(pArg);.  }.  i
6950: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
6960: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
6970: 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20  VFS_SHMMAP_MASK 
6980: 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65  && tvfsInjectIoe
6990: 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20  rr(p) ){.    rc 
69a0: 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a  = SQLITE_IOERR;.
69b0: 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53    }..  if( rc==S
69c0: 51 4c 49 54 45 5f 4f 4b 20 26 26 20 69 73 57 72  QLITE_OK && isWr
69d0: 69 74 65 20 26 26 20 21 70 46 64 2d 3e 70 53 68  ite && !pFd->pSh
69e0: 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d 20  m->aPage[iPage] 
69f0: 29 7b 0a 20 20 20 20 74 76 66 73 41 6c 6c 6f 63  ){.    tvfsAlloc
6a00: 50 61 67 65 28 70 46 64 2d 3e 70 53 68 6d 2c 20  Page(pFd->pShm, 
6a10: 69 50 61 67 65 2c 20 70 67 73 7a 29 3b 0a 20 20  iPage, pgsz);.  
6a20: 7d 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49  }.  if( rc==SQLI
6a30: 54 45 5f 4f 4b 20 7c 7c 20 72 63 3d 3d 53 51 4c  TE_OK || rc==SQL
6a40: 49 54 45 5f 52 45 41 44 4f 4e 4c 59 20 29 7b 0a  ITE_READONLY ){.
6a50: 20 20 20 20 2a 70 70 20 3d 20 28 76 6f 69 64 20      *pp = (void 
6a60: 76 6f 6c 61 74 69 6c 65 20 2a 29 70 46 64 2d 3e  volatile *)pFd->
6a70: 70 53 68 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67  pShm->aPage[iPag
6a80: 65 5d 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72  e];.  }..  retur
6a90: 6e 20 72 63 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63  n rc;.}...static
6aa0: 20 69 6e 74 20 74 76 66 73 53 68 6d 4c 6f 63 6b   int tvfsShmLock
6ab0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  (.  sqlite3_file
6ac0: 20 2a 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20 6f   *pFile,.  int o
6ad0: 66 73 74 2c 0a 20 20 69 6e 74 20 6e 2c 0a 20 20  fst,.  int n,.  
6ae0: 69 6e 74 20 66 6c 61 67 73 0a 29 7b 0a 20 20 69  int flags.){.  i
6af0: 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f  nt rc = SQLITE_O
6b00: 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  K;.  TestvfsFd *
6b10: 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28  pFd = tvfsGetFd(
6b20: 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66  pFile);.  Testvf
6b30: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
6b40: 2a 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41  *)(pFd->pVfs->pA
6b50: 70 70 44 61 74 61 29 3b 0a 20 20 69 6e 74 20 6e  ppData);.  int n
6b60: 4c 6f 63 6b 3b 0a 20 20 63 68 61 72 20 7a 4c 6f  Lock;.  char zLo
6b70: 63 6b 5b 38 30 5d 3b 0a 0a 20 20 69 66 28 20 70  ck[80];..  if( p
6b80: 2d 3e 69 73 46 75 6c 6c 73 68 6d 20 29 7b 0a 20  ->isFullshm ){. 
6b90: 20 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65     return sqlite
6ba0: 33 4f 73 53 68 6d 4c 6f 63 6b 28 70 46 64 2d 3e  3OsShmLock(pFd->
6bb0: 70 52 65 61 6c 2c 20 6f 66 73 74 2c 20 6e 2c 20  pReal, ofst, n, 
6bc0: 66 6c 61 67 73 29 3b 0a 20 20 7d 0a 0a 20 20 69  flags);.  }..  i
6bd0: 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26  f( p->pScript &&
6be0: 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53   p->mask&TESTVFS
6bf0: 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53 4b 20 29 7b  _SHMLOCK_MASK ){
6c00: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70  .    sqlite3_snp
6c10: 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 4c 6f  rintf(sizeof(zLo
6c20: 63 6b 29 2c 20 7a 4c 6f 63 6b 2c 20 22 25 64 20  ck), zLock, "%d 
6c30: 25 64 22 2c 20 6f 66 73 74 2c 20 6e 29 3b 0a 20  %d", ofst, n);. 
6c40: 20 20 20 6e 4c 6f 63 6b 20 3d 20 28 69 6e 74 29     nLock = (int)
6c50: 73 74 72 6c 65 6e 28 7a 4c 6f 63 6b 29 3b 0a 20  strlen(zLock);. 
6c60: 20 20 20 69 66 28 20 66 6c 61 67 73 20 26 20 53     if( flags & S
6c70: 51 4c 49 54 45 5f 53 48 4d 5f 4c 4f 43 4b 20 29  QLITE_SHM_LOCK )
6c80: 7b 0a 20 20 20 20 20 20 73 74 72 63 70 79 28 26  {.      strcpy(&
6c90: 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20  zLock[nLock], " 
6ca0: 6c 6f 63 6b 22 29 3b 0a 20 20 20 20 7d 65 6c 73  lock");.    }els
6cb0: 65 7b 0a 20 20 20 20 20 20 73 74 72 63 70 79 28  e{.      strcpy(
6cc0: 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22  &zLock[nLock], "
6cd0: 20 75 6e 6c 6f 63 6b 22 29 3b 0a 20 20 20 20 7d   unlock");.    }
6ce0: 0a 20 20 20 20 6e 4c 6f 63 6b 20 2b 3d 20 28 69  .    nLock += (i
6cf0: 6e 74 29 73 74 72 6c 65 6e 28 26 7a 4c 6f 63 6b  nt)strlen(&zLock
6d00: 5b 6e 4c 6f 63 6b 5d 29 3b 0a 20 20 20 20 69 66  [nLock]);.    if
6d10: 28 20 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45  ( flags & SQLITE
6d20: 5f 53 48 4d 5f 53 48 41 52 45 44 20 29 7b 0a 20  _SHM_SHARED ){. 
6d30: 20 20 20 20 20 73 74 72 63 70 79 28 26 7a 4c 6f       strcpy(&zLo
6d40: 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 73 68 61  ck[nLock], " sha
6d50: 72 65 64 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65  red");.    }else
6d60: 7b 0a 20 20 20 20 20 20 73 74 72 63 70 79 28 26  {.      strcpy(&
6d70: 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20  zLock[nLock], " 
6d80: 65 78 63 6c 75 73 69 76 65 22 29 3b 0a 20 20 20  exclusive");.   
6d90: 20 7d 0a 20 20 20 20 74 76 66 73 45 78 65 63 54   }.    tvfsExecT
6da0: 63 6c 28 70 2c 20 22 78 53 68 6d 4c 6f 63 6b 22  cl(p, "xShmLock"
6db0: 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e  , .        Tcl_N
6dc0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
6dd0: 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31  >pShm->zFile, -1
6de0: 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 0a  ), pFd->pShmId,.
6df0: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
6e00: 74 72 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b 2c 20  tringObj(zLock, 
6e10: 2d 31 29 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20  -1), 0.    );.  
6e20: 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65    tvfsResultCode
6e30: 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a 20  (p, &rc);.  }.. 
6e40: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
6e50: 4f 4b 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45  OK && p->mask&TE
6e60: 53 54 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41  STVFS_SHMLOCK_MA
6e70: 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74  SK && tvfsInject
6e80: 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20  Ioerr(p) ){.    
6e90: 72 63 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52  rc = SQLITE_IOER
6ea0: 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63  R;.  }..  if( rc
6eb0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  ==SQLITE_OK ){. 
6ec0: 20 20 20 69 6e 74 20 69 73 4c 6f 63 6b 20 3d 20     int isLock = 
6ed0: 28 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f  (flags & SQLITE_
6ee0: 53 48 4d 5f 4c 4f 43 4b 29 3b 0a 20 20 20 20 69  SHM_LOCK);.    i
6ef0: 6e 74 20 69 73 45 78 63 6c 20 3d 20 28 66 6c 61  nt isExcl = (fla
6f00: 67 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d 5f  gs & SQLITE_SHM_
6f10: 45 58 43 4c 55 53 49 56 45 29 3b 0a 20 20 20 20  EXCLUSIVE);.    
6f20: 75 33 32 20 6d 61 73 6b 20 3d 20 28 28 28 31 3c  u32 mask = (((1<
6f30: 3c 6e 29 2d 31 29 20 3c 3c 20 6f 66 73 74 29 3b  <n)-1) << ofst);
6f40: 0a 20 20 20 20 69 66 28 20 69 73 4c 6f 63 6b 20  .    if( isLock 
6f50: 29 7b 0a 20 20 20 20 20 20 54 65 73 74 76 66 73  ){.      Testvfs
6f60: 46 64 20 2a 70 32 3b 0a 20 20 20 20 20 20 66 6f  Fd *p2;.      fo
6f70: 72 28 70 32 3d 70 46 64 2d 3e 70 53 68 6d 2d 3e  r(p2=pFd->pShm->
6f80: 70 46 69 6c 65 3b 20 70 32 3b 20 70 32 3d 70 32  pFile; p2; p2=p2
6f90: 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 20 20  ->pNext){.      
6fa0: 20 20 69 66 28 20 70 32 3d 3d 70 46 64 20 29 20    if( p2==pFd ) 
6fb0: 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20  continue;.      
6fc0: 20 20 69 66 28 20 28 70 32 2d 3e 65 78 63 6c 6c    if( (p2->excll
6fd0: 6f 63 6b 26 6d 61 73 6b 29 20 7c 7c 20 28 69 73  ock&mask) || (is
6fe0: 45 78 63 6c 20 26 26 20 70 32 2d 3e 73 68 61 72  Excl && p2->shar
6ff0: 65 64 6c 6f 63 6b 26 6d 61 73 6b 29 20 29 7b 0a  edlock&mask) ){.
7000: 20 20 20 20 20 20 20 20 20 20 72 63 20 3d 20 53            rc = S
7010: 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20 20 20 20  QLITE_BUSY;.    
7020: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
7030: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20       }.      }. 
7040: 20 20 20 20 20 69 66 28 20 72 63 3d 3d 53 51 4c       if( rc==SQL
7050: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20  ITE_OK ){.      
7060: 20 20 69 66 28 20 69 73 45 78 63 6c 20 29 20 20    if( isExcl )  
7070: 70 46 64 2d 3e 65 78 63 6c 6c 6f 63 6b 20 7c 3d  pFd->excllock |=
7080: 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20 20 20 69   mask;.        i
7090: 66 28 20 21 69 73 45 78 63 6c 20 29 20 70 46 64  f( !isExcl ) pFd
70a0: 2d 3e 73 68 61 72 65 64 6c 6f 63 6b 20 7c 3d 20  ->sharedlock |= 
70b0: 6d 61 73 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  mask;.      }.  
70c0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69    }else{.      i
70d0: 66 28 20 69 73 45 78 63 6c 20 29 20 20 70 46 64  f( isExcl )  pFd
70e0: 2d 3e 65 78 63 6c 6c 6f 63 6b 20 26 3d 20 28 7e  ->excllock &= (~
70f0: 6d 61 73 6b 29 3b 0a 20 20 20 20 20 20 69 66 28  mask);.      if(
7100: 20 21 69 73 45 78 63 6c 20 29 20 70 46 64 2d 3e   !isExcl ) pFd->
7110: 73 68 61 72 65 64 6c 6f 63 6b 20 26 3d 20 28 7e  sharedlock &= (~
7120: 6d 61 73 6b 29 3b 0a 20 20 20 20 7d 0a 20 20 7d  mask);.    }.  }
7130: 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ..  return rc;.}
7140: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 76  ..static void tv
7150: 66 73 53 68 6d 42 61 72 72 69 65 72 28 73 71 6c  fsShmBarrier(sql
7160: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
7170: 29 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  ){.  TestvfsFd *
7180: 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28  pFd = tvfsGetFd(
7190: 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66  pFile);.  Testvf
71a0: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
71b0: 2a 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41  *)(pFd->pVfs->pA
71c0: 70 70 44 61 74 61 29 3b 0a 0a 20 20 69 66 28 20  ppData);..  if( 
71d0: 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d  p->pScript && p-
71e0: 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53 48  >mask&TESTVFS_SH
71f0: 4d 42 41 52 52 49 45 52 5f 4d 41 53 4b 20 29 7b  MBARRIER_MASK ){
7200: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20  .    const char 
7210: 2a 7a 20 3d 20 70 46 64 2d 3e 70 53 68 6d 20 3f  *z = pFd->pShm ?
7220: 20 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c   pFd->pShm->zFil
7230: 65 20 3a 20 22 22 3b 0a 20 20 20 20 74 76 66 73  e : "";.    tvfs
7240: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d  ExecTcl(p, "xShm
7250: 42 61 72 72 69 65 72 22 2c 20 54 63 6c 5f 4e 65  Barrier", Tcl_Ne
7260: 77 53 74 72 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31  wStringObj(z, -1
7270: 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20  ), pFd->pShmId, 
7280: 30 2c 20 30 29 3b 0a 20 20 7d 0a 0a 20 20 69 66  0, 0);.  }..  if
7290: 28 20 70 2d 3e 69 73 46 75 6c 6c 73 68 6d 20 29  ( p->isFullshm )
72a0: 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 4f 73 53  {.    sqlite3OsS
72b0: 68 6d 42 61 72 72 69 65 72 28 70 46 64 2d 3e 70  hmBarrier(pFd->p
72c0: 52 65 61 6c 29 3b 0a 20 20 20 20 72 65 74 75 72  Real);.    retur
72d0: 6e 3b 0a 20 20 7d 0a 7d 0a 0a 73 74 61 74 69 63  n;.  }.}..static
72e0: 20 69 6e 74 20 74 76 66 73 53 68 6d 55 6e 6d 61   int tvfsShmUnma
72f0: 70 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  p(.  sqlite3_fil
7300: 65 20 2a 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20  e *pFile,.  int 
7310: 64 65 6c 65 74 65 46 6c 61 67 0a 29 7b 0a 20 20  deleteFlag.){.  
7320: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  int rc = SQLITE_
7330: 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20  OK;.  TestvfsFd 
7340: 2a 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64  *pFd = tvfsGetFd
7350: 28 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76  (pFile);.  Testv
7360: 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  fs *p = (Testvfs
7370: 20 2a 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70   *)(pFd->pVfs->p
7380: 41 70 70 44 61 74 61 29 3b 0a 20 20 54 65 73 74  AppData);.  Test
7390: 76 66 73 42 75 66 66 65 72 20 2a 70 42 75 66 66  vfsBuffer *pBuff
73a0: 65 72 20 3d 20 70 46 64 2d 3e 70 53 68 6d 3b 0a  er = pFd->pShm;.
73b0: 20 20 54 65 73 74 76 66 73 46 64 20 2a 2a 70 70    TestvfsFd **pp
73c0: 46 64 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 69 73  Fd;..  if( p->is
73d0: 46 75 6c 6c 73 68 6d 20 29 7b 0a 20 20 20 20 72  Fullshm ){.    r
73e0: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 53  eturn sqlite3OsS
73f0: 68 6d 55 6e 6d 61 70 28 70 46 64 2d 3e 70 52 65  hmUnmap(pFd->pRe
7400: 61 6c 2c 20 64 65 6c 65 74 65 46 6c 61 67 29 3b  al, deleteFlag);
7410: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 21 70 42 75  .  }..  if( !pBu
7420: 66 66 65 72 20 29 20 72 65 74 75 72 6e 20 53 51  ffer ) return SQ
7430: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 61 73 73 65 72  LITE_OK;.  asser
7440: 74 28 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 26  t( pFd->pShmId &
7450: 26 20 70 46 64 2d 3e 70 53 68 6d 20 29 3b 0a 0a  & pFd->pShm );..
7460: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
7470: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
7480: 56 46 53 5f 53 48 4d 43 4c 4f 53 45 5f 4d 41 53  VFS_SHMCLOSE_MAS
7490: 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65  K ){.    tvfsExe
74a0: 63 54 63 6c 28 70 2c 20 22 78 53 68 6d 55 6e 6d  cTcl(p, "xShmUnm
74b0: 61 70 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63  ap", .        Tc
74c0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70  l_NewStringObj(p
74d0: 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c  Fd->pShm->zFile,
74e0: 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49   -1), pFd->pShmI
74f0: 64 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20  d, 0, 0.    );. 
7500: 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64     tvfsResultCod
7510: 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a  e(p, &rc);.  }..
7520: 20 20 66 6f 72 28 70 70 46 64 3d 26 70 42 75 66    for(ppFd=&pBuf
7530: 66 65 72 2d 3e 70 46 69 6c 65 3b 20 2a 70 70 46  fer->pFile; *ppF
7540: 64 21 3d 70 46 64 3b 20 70 70 46 64 3d 26 28 28  d!=pFd; ppFd=&((
7550: 2a 70 70 46 64 29 2d 3e 70 4e 65 78 74 29 29 3b  *ppFd)->pNext));
7560: 0a 20 20 61 73 73 65 72 74 28 20 28 2a 70 70 46  .  assert( (*ppF
7570: 64 29 3d 3d 70 46 64 20 29 3b 0a 20 20 2a 70 70  d)==pFd );.  *pp
7580: 46 64 20 3d 20 70 46 64 2d 3e 70 4e 65 78 74 3b  Fd = pFd->pNext;
7590: 0a 20 20 70 46 64 2d 3e 70 4e 65 78 74 20 3d 20  .  pFd->pNext = 
75a0: 30 3b 0a 0a 20 20 69 66 28 20 70 42 75 66 66 65  0;..  if( pBuffe
75b0: 72 2d 3e 70 46 69 6c 65 3d 3d 30 20 29 7b 0a 20  r->pFile==0 ){. 
75c0: 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 54 65     int i;.    Te
75d0: 73 74 76 66 73 42 75 66 66 65 72 20 2a 2a 70 70  stvfsBuffer **pp
75e0: 3b 0a 20 20 20 20 66 6f 72 28 70 70 3d 26 70 2d  ;.    for(pp=&p-
75f0: 3e 70 42 75 66 66 65 72 3b 20 2a 70 70 21 3d 70  >pBuffer; *pp!=p
7600: 42 75 66 66 65 72 3b 20 70 70 3d 26 28 28 2a 70  Buffer; pp=&((*p
7610: 70 29 2d 3e 70 4e 65 78 74 29 29 3b 0a 20 20 20  p)->pNext));.   
7620: 20 2a 70 70 20 3d 20 28 2a 70 70 29 2d 3e 70 4e   *pp = (*pp)->pN
7630: 65 78 74 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30  ext;.    for(i=0
7640: 3b 20 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65  ; pBuffer->aPage
7650: 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20  [i]; i++){.     
7660: 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29   ckfree((char *)
7670: 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65 5b 69  pBuffer->aPage[i
7680: 5d 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6b  ]);.    }.    ck
7690: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 42 75  free((char *)pBu
76a0: 66 66 65 72 29 3b 0a 20 20 7d 0a 20 20 70 46 64  ffer);.  }.  pFd
76b0: 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a 0a 20 20 72  ->pShm = 0;..  r
76c0: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61  eturn rc;.}..sta
76d0: 74 69 63 20 69 6e 74 20 74 76 66 73 46 65 74 63  tic int tvfsFetc
76e0: 68 28 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  h(.    sqlite3_f
76f0: 69 6c 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20 20  ile *pFile, .   
7700: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69   sqlite3_int64 i
7710: 4f 66 73 74 2c 20 0a 20 20 20 20 69 6e 74 20 69  Ofst, .    int i
7720: 41 6d 74 2c 20 0a 20 20 20 20 76 6f 69 64 20 2a  Amt, .    void *
7730: 2a 70 70 0a 29 7b 0a 20 20 54 65 73 74 76 66 73  *pp.){.  Testvfs
7740: 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47 65  Fd *pFd = tvfsGe
7750: 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 72 65  tFd(pFile);.  re
7760: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 46 65  turn sqlite3OsFe
7770: 74 63 68 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20  tch(pFd->pReal, 
7780: 69 4f 66 73 74 2c 20 69 41 6d 74 2c 20 70 70 29  iOfst, iAmt, pp)
7790: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
77a0: 74 76 66 73 55 6e 66 65 74 63 68 28 73 71 6c 69  tvfsUnfetch(sqli
77b0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
77c0: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69   sqlite3_int64 i
77d0: 4f 66 73 74 2c 20 76 6f 69 64 20 2a 70 29 7b 0a  Ofst, void *p){.
77e0: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
77f0: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
7800: 6c 65 29 3b 0a 20 20 72 65 74 75 72 6e 20 73 71  le);.  return sq
7810: 6c 69 74 65 33 4f 73 55 6e 66 65 74 63 68 28 70  lite3OsUnfetch(p
7820: 46 64 2d 3e 70 52 65 61 6c 2c 20 69 4f 66 73 74  Fd->pReal, iOfst
7830: 2c 20 70 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  , p);.}..static 
7840: 69 6e 74 20 53 51 4c 49 54 45 5f 54 43 4c 41 50  int SQLITE_TCLAP
7850: 49 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 63 6d  I testvfs_obj_cm
7860: 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20  d(.  ClientData 
7870: 63 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  cd,.  Tcl_Interp
7880: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
7890: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
78a0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
78b0: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
78c0: 28 54 65 73 74 76 66 73 20 2a 29 63 64 3b 0a 0a  (Testvfs *)cd;..
78d0: 20 20 65 6e 75 6d 20 44 42 5f 65 6e 75 6d 20 7b    enum DB_enum {
78e0: 20 0a 20 20 20 20 43 4d 44 5f 53 48 4d 2c 20 43   .    CMD_SHM, C
78f0: 4d 44 5f 44 45 4c 45 54 45 2c 20 43 4d 44 5f 46  MD_DELETE, CMD_F
7900: 49 4c 54 45 52 2c 20 43 4d 44 5f 49 4f 45 52 52  ILTER, CMD_IOERR
7910: 2c 20 43 4d 44 5f 53 43 52 49 50 54 2c 20 0a 20  , CMD_SCRIPT, . 
7920: 20 20 20 43 4d 44 5f 44 45 56 43 48 41 52 2c 20     CMD_DEVCHAR, 
7930: 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a 45 2c 20  CMD_SECTORSIZE, 
7940: 43 4d 44 5f 46 55 4c 4c 45 52 52 2c 20 43 4d 44  CMD_FULLERR, CMD
7950: 5f 43 41 4e 54 4f 50 45 4e 45 52 52 0a 20 20 7d  _CANTOPENERR.  }
7960: 3b 0a 20 20 73 74 72 75 63 74 20 54 65 73 74 76  ;.  struct Testv
7970: 66 73 53 75 62 63 6d 64 20 7b 0a 20 20 20 20 63  fsSubcmd {.    c
7980: 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20  har *zName;.    
7990: 65 6e 75 6d 20 44 42 5f 65 6e 75 6d 20 65 43 6d  enum DB_enum eCm
79a0: 64 3b 0a 20 20 7d 20 61 53 75 62 63 6d 64 5b 5d  d;.  } aSubcmd[]
79b0: 20 3d 20 7b 0a 20 20 20 20 7b 20 22 73 68 6d 22   = {.    { "shm"
79c0: 2c 20 20 20 20 20 20 20 20 20 43 4d 44 5f 53 48  ,         CMD_SH
79d0: 4d 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20  M         },.   
79e0: 20 7b 20 22 64 65 6c 65 74 65 22 2c 20 20 20 20   { "delete",    
79f0: 20 20 43 4d 44 5f 44 45 4c 45 54 45 20 20 20 20    CMD_DELETE    
7a00: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 66 69 6c 74    },.    { "filt
7a10: 65 72 22 2c 20 20 20 20 20 20 43 4d 44 5f 46 49  er",      CMD_FI
7a20: 4c 54 45 52 20 20 20 20 20 20 7d 2c 0a 20 20 20  LTER      },.   
7a30: 20 7b 20 22 69 6f 65 72 72 22 2c 20 20 20 20 20   { "ioerr",     
7a40: 20 20 43 4d 44 5f 49 4f 45 52 52 20 20 20 20 20    CMD_IOERR     
7a50: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 66 75 6c 6c    },.    { "full
7a60: 65 72 72 22 2c 20 20 20 20 20 43 4d 44 5f 46 55  err",     CMD_FU
7a70: 4c 4c 45 52 52 20 20 20 20 20 7d 2c 0a 20 20 20  LLERR     },.   
7a80: 20 7b 20 22 63 61 6e 74 6f 70 65 6e 65 72 72 22   { "cantopenerr"
7a90: 2c 20 43 4d 44 5f 43 41 4e 54 4f 50 45 4e 45 52  , CMD_CANTOPENER
7aa0: 52 20 7d 2c 0a 20 20 20 20 7b 20 22 73 63 72 69  R },.    { "scri
7ab0: 70 74 22 2c 20 20 20 20 20 20 43 4d 44 5f 53 43  pt",      CMD_SC
7ac0: 52 49 50 54 20 20 20 20 20 20 7d 2c 0a 20 20 20  RIPT      },.   
7ad0: 20 7b 20 22 64 65 76 63 68 61 72 22 2c 20 20 20   { "devchar",   
7ae0: 20 20 43 4d 44 5f 44 45 56 43 48 41 52 20 20 20    CMD_DEVCHAR   
7af0: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 65 63 74    },.    { "sect
7b00: 6f 72 73 69 7a 65 22 2c 20 20 43 4d 44 5f 53 45  orsize",  CMD_SE
7b10: 43 54 4f 52 53 49 5a 45 20 20 7d 2c 0a 20 20 20  CTORSIZE  },.   
7b20: 20 7b 20 30 2c 20 30 20 7d 0a 20 20 7d 3b 0a 20   { 0, 0 }.  };. 
7b30: 20 69 6e 74 20 69 3b 0a 20 20 0a 20 20 69 66 28   int i;.  .  if(
7b40: 20 6f 62 6a 63 3c 32 20 29 7b 0a 20 20 20 20 54   objc<2 ){.    T
7b50: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
7b60: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
7b70: 20 22 53 55 42 43 4f 4d 4d 41 4e 44 20 2e 2e 2e   "SUBCOMMAND ...
7b80: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
7b90: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
7ba0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 64 65 78  if( Tcl_GetIndex
7bb0: 46 72 6f 6d 4f 62 6a 53 74 72 75 63 74 28 0a 20  FromObjStruct(. 
7bc0: 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c 20 6f         interp, o
7bd0: 62 6a 76 5b 31 5d 2c 20 61 53 75 62 63 6d 64 2c  bjv[1], aSubcmd,
7be0: 20 73 69 7a 65 6f 66 28 61 53 75 62 63 6d 64 5b   sizeof(aSubcmd[
7bf0: 30 5d 29 2c 20 22 73 75 62 63 6f 6d 6d 61 6e 64  0]), "subcommand
7c00: 22 2c 20 30 2c 20 26 69 29 20 0a 20 20 29 7b 0a  ", 0, &i) .  ){.
7c10: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
7c20: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f  RROR;.  }.  Tcl_
7c30: 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65  ResetResult(inte
7c40: 72 70 29 3b 0a 0a 20 20 73 77 69 74 63 68 28 20  rp);..  switch( 
7c50: 61 53 75 62 63 6d 64 5b 69 5d 2e 65 43 6d 64 20  aSubcmd[i].eCmd 
7c60: 29 7b 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f  ){.    case CMD_
7c70: 53 48 4d 3a 20 7b 0a 20 20 20 20 20 20 54 63 6c  SHM: {.      Tcl
7c80: 5f 4f 62 6a 20 2a 70 4f 62 6a 3b 0a 20 20 20 20  _Obj *pObj;.    
7c90: 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 20 20 20    int rc;.      
7ca0: 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70  TestvfsBuffer *p
7cb0: 42 75 66 66 65 72 3b 0a 20 20 20 20 20 20 63 68  Buffer;.      ch
7cc0: 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20  ar *zName;.     
7cd0: 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 26 26 20   if( objc!=3 && 
7ce0: 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20 20 20  objc!=4 ){.     
7cf0: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
7d00: 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
7d10: 62 6a 76 2c 20 22 46 49 4c 45 20 3f 56 41 4c 55  bjv, "FILE ?VALU
7d20: 45 3f 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65  E?");.        re
7d30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
7d40: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7a 4e        }.      zN
7d50: 61 6d 65 20 3d 20 63 6b 61 6c 6c 6f 63 28 70 2d  ame = ckalloc(p-
7d60: 3e 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74 68  >pParent->mxPath
7d70: 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20 72 63 20  name);.      rc 
7d80: 3d 20 70 2d 3e 70 50 61 72 65 6e 74 2d 3e 78 46  = p->pParent->xF
7d90: 75 6c 6c 50 61 74 68 6e 61 6d 65 28 0a 20 20 20  ullPathname(.   
7da0: 20 20 20 20 20 20 20 70 2d 3e 70 50 61 72 65 6e         p->pParen
7db0: 74 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  t, Tcl_GetString
7dc0: 28 6f 62 6a 76 5b 32 5d 29 2c 20 0a 20 20 20 20  (objv[2]), .    
7dd0: 20 20 20 20 20 20 70 2d 3e 70 50 61 72 65 6e 74        p->pParent
7de0: 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 2c 20 7a 4e  ->mxPathname, zN
7df0: 61 6d 65 0a 20 20 20 20 20 20 29 3b 0a 20 20 20  ame.      );.   
7e00: 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54     if( rc!=SQLIT
7e10: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 20 20  E_OK ){.        
7e20: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
7e30: 28 69 6e 74 65 72 70 2c 20 22 66 61 69 6c 65 64  (interp, "failed
7e40: 20 74 6f 20 67 65 74 20 66 75 6c 6c 20 70 61 74   to get full pat
7e50: 68 3a 20 22 2c 0a 20 20 20 20 20 20 20 20 20 20  h: ",.          
7e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54                 T
7e70: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
7e80: 76 5b 32 5d 29 2c 20 30 29 3b 0a 20 20 20 20 20  v[2]), 0);.     
7e90: 20 20 20 63 6b 66 72 65 65 28 7a 4e 61 6d 65 29     ckfree(zName)
7ea0: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ;.        return
7eb0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
7ec0: 20 20 7d 0a 20 20 20 20 20 20 66 6f 72 28 70 42    }.      for(pB
7ed0: 75 66 66 65 72 3d 70 2d 3e 70 42 75 66 66 65 72  uffer=p->pBuffer
7ee0: 3b 20 70 42 75 66 66 65 72 3b 20 70 42 75 66 66  ; pBuffer; pBuff
7ef0: 65 72 3d 70 42 75 66 66 65 72 2d 3e 70 4e 65 78  er=pBuffer->pNex
7f00: 74 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20  t){.        if( 
7f10: 30 3d 3d 73 74 72 63 6d 70 28 70 42 75 66 66 65  0==strcmp(pBuffe
7f20: 72 2d 3e 7a 46 69 6c 65 2c 20 7a 4e 61 6d 65 29  r->zFile, zName)
7f30: 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20   ) break;.      
7f40: 7d 0a 20 20 20 20 20 20 63 6b 66 72 65 65 28 7a  }.      ckfree(z
7f50: 4e 61 6d 65 29 3b 0a 20 20 20 20 20 20 69 66 28  Name);.      if(
7f60: 20 21 70 42 75 66 66 65 72 20 29 7b 0a 20 20 20   !pBuffer ){.   
7f70: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52       Tcl_AppendR
7f80: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e  esult(interp, "n
7f90: 6f 20 73 75 63 68 20 66 69 6c 65 3a 20 22 2c 20  o such file: ", 
7fa0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
7fb0: 6a 76 5b 32 5d 29 2c 20 30 29 3b 0a 20 20 20 20  jv[2]), 0);.    
7fc0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
7fd0: 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20  RROR;.      }.  
7fe0: 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 34 20      if( objc==4 
7ff0: 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6e  ){.        int n
8000: 3b 0a 20 20 20 20 20 20 20 20 75 38 20 2a 61 20  ;.        u8 *a 
8010: 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72  = Tcl_GetByteArr
8020: 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33  ayFromObj(objv[3
8030: 5d 2c 20 26 6e 29 3b 0a 20 20 20 20 20 20 20 20  ], &n);.        
8040: 69 6e 74 20 70 67 73 7a 20 3d 20 70 42 75 66 66  int pgsz = pBuff
8050: 65 72 2d 3e 70 67 73 7a 3b 0a 20 20 20 20 20 20  er->pgsz;.      
8060: 20 20 69 66 28 20 70 67 73 7a 3d 3d 30 20 29 20    if( pgsz==0 ) 
8070: 70 67 73 7a 20 3d 20 36 35 35 33 36 3b 0a 20 20  pgsz = 65536;.  
8080: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69        for(i=0; i
8090: 2a 70 67 73 7a 3c 6e 3b 20 69 2b 2b 29 7b 0a 20  *pgsz<n; i++){. 
80a0: 20 20 20 20 20 20 20 20 20 69 6e 74 20 6e 42 79           int nBy
80b0: 74 65 20 3d 20 70 67 73 7a 3b 0a 20 20 20 20 20  te = pgsz;.     
80c0: 20 20 20 20 20 74 76 66 73 41 6c 6c 6f 63 50 61       tvfsAllocPa
80d0: 67 65 28 70 42 75 66 66 65 72 2c 20 69 2c 20 70  ge(pBuffer, i, p
80e0: 67 73 7a 29 3b 0a 20 20 20 20 20 20 20 20 20 20  gsz);.          
80f0: 69 66 28 20 6e 2d 69 2a 70 67 73 7a 3c 70 67 73  if( n-i*pgsz<pgs
8100: 7a 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20  z ){.           
8110: 20 6e 42 79 74 65 20 3d 20 6e 3b 0a 20 20 20 20   nByte = n;.    
8120: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
8130: 20 20 6d 65 6d 63 70 79 28 70 42 75 66 66 65 72    memcpy(pBuffer
8140: 2d 3e 61 50 61 67 65 5b 69 5d 2c 20 26 61 5b 69  ->aPage[i], &a[i
8150: 2a 70 67 73 7a 5d 2c 20 6e 42 79 74 65 29 3b 0a  *pgsz], nByte);.
8160: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
8170: 7d 0a 0a 20 20 20 20 20 20 70 4f 62 6a 20 3d 20  }..      pObj = 
8180: 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20  Tcl_NewObj();.  
8190: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 70 42 75      for(i=0; pBu
81a0: 66 66 65 72 2d 3e 61 50 61 67 65 5b 69 5d 3b 20  ffer->aPage[i]; 
81b0: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 6e  i++){.        in
81c0: 74 20 70 67 73 7a 20 3d 20 70 42 75 66 66 65 72  t pgsz = pBuffer
81d0: 2d 3e 70 67 73 7a 3b 0a 20 20 20 20 20 20 20 20  ->pgsz;.        
81e0: 69 66 28 20 70 67 73 7a 3d 3d 30 20 29 20 70 67  if( pgsz==0 ) pg
81f0: 73 7a 20 3d 20 36 35 35 33 36 3b 0a 20 20 20 20  sz = 65536;.    
8200: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 4f 62      Tcl_AppendOb
8210: 6a 54 6f 4f 62 6a 28 70 4f 62 6a 2c 20 54 63 6c  jToObj(pObj, Tcl
8220: 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a  _NewByteArrayObj
8230: 28 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65 5b  (pBuffer->aPage[
8240: 69 5d 2c 20 70 67 73 7a 29 29 3b 0a 20 20 20 20  i], pgsz));.    
8250: 20 20 7d 0a 20 20 20 20 20 20 54 63 6c 5f 53 65    }.      Tcl_Se
8260: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
8270: 70 2c 20 70 4f 62 6a 29 3b 0a 20 20 20 20 20 20  p, pObj);.      
8280: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20  break;.    }..  
8290: 20 20 2f 2a 20 20 54 45 53 54 56 46 53 20 66 69    /*  TESTVFS fi
82a0: 6c 74 65 72 20 4d 45 54 48 4f 44 2d 4c 49 53 54  lter METHOD-LIST
82b0: 0a 20 20 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 20  .    **.    **  
82c0: 20 20 20 41 63 74 69 76 61 74 65 20 73 70 65 63     Activate spec
82d0: 69 61 6c 20 70 72 6f 63 65 73 73 69 6e 67 20 66  ial processing f
82e0: 6f 72 20 74 68 6f 73 65 20 6d 65 74 68 6f 64 73  or those methods
82f0: 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 74 68   contained in th
8300: 65 20 6c 69 73 74 0a 20 20 20 20 2a 2f 0a 20 20  e list.    */.  
8310: 20 20 63 61 73 65 20 43 4d 44 5f 46 49 4c 54 45    case CMD_FILTE
8320: 52 3a 20 7b 0a 20 20 20 20 20 20 73 74 61 74 69  R: {.      stati
8330: 63 20 73 74 72 75 63 74 20 56 66 73 4d 65 74 68  c struct VfsMeth
8340: 6f 64 20 7b 0a 20 20 20 20 20 20 20 20 63 68 61  od {.        cha
8350: 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 20  r *zName;.      
8360: 20 20 69 6e 74 20 6d 61 73 6b 3b 0a 20 20 20 20    int mask;.    
8370: 20 20 7d 20 76 66 73 6d 65 74 68 6f 64 20 5b 5d    } vfsmethod []
8380: 20 3d 20 7b 0a 20 20 20 20 20 20 20 20 7b 20 22   = {.        { "
8390: 78 53 68 6d 4f 70 65 6e 22 2c 20 20 20 20 20 20  xShmOpen",      
83a0: 20 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d       TESTVFS_SHM
83b0: 4f 50 45 4e 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20  OPEN_MASK },.   
83c0: 20 20 20 20 20 7b 20 22 78 53 68 6d 4c 6f 63 6b       { "xShmLock
83d0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 54 45 53  ",           TES
83e0: 54 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53  TVFS_SHMLOCK_MAS
83f0: 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22  K },.        { "
8400: 78 53 68 6d 42 61 72 72 69 65 72 22 2c 20 20 20  xShmBarrier",   
8410: 20 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d       TESTVFS_SHM
8420: 42 41 52 52 49 45 52 5f 4d 41 53 4b 20 7d 2c 0a  BARRIER_MASK },.
8430: 20 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d 55          { "xShmU
8440: 6e 6d 61 70 22 2c 20 20 20 20 20 20 20 20 20 20  nmap",          
8450: 54 45 53 54 56 46 53 5f 53 48 4d 43 4c 4f 53 45  TESTVFS_SHMCLOSE
8460: 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20  _MASK },.       
8470: 20 7b 20 22 78 53 68 6d 4d 61 70 22 2c 20 20 20   { "xShmMap",   
8480: 20 20 20 20 20 20 20 20 20 54 45 53 54 56 46 53           TESTVFS
8490: 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20 7d 2c 0a  _SHMMAP_MASK },.
84a0: 20 20 20 20 20 20 20 20 7b 20 22 78 53 79 6e 63          { "xSync
84b0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
84c0: 54 45 53 54 56 46 53 5f 53 59 4e 43 5f 4d 41 53  TESTVFS_SYNC_MAS
84d0: 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22  K },.        { "
84e0: 78 44 65 6c 65 74 65 22 2c 20 20 20 20 20 20 20  xDelete",       
84f0: 20 20 20 20 20 54 45 53 54 56 46 53 5f 44 45 4c       TESTVFS_DEL
8500: 45 54 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  ETE_MASK },.    
8510: 20 20 20 20 7b 20 22 78 57 72 69 74 65 22 2c 20      { "xWrite", 
8520: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54              TEST
8530: 56 46 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20 7d  VFS_WRITE_MASK }
8540: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 52 65  ,.        { "xRe
8550: 61 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  ad",            
8560: 20 20 54 45 53 54 56 46 53 5f 52 45 41 44 5f 4d    TESTVFS_READ_M
8570: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
8580: 20 22 78 54 72 75 6e 63 61 74 65 22 2c 20 20 20   "xTruncate",   
8590: 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 54         TESTVFS_T
85a0: 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20 7d 2c 0a  RUNCATE_MASK },.
85b0: 20 20 20 20 20 20 20 20 7b 20 22 78 4f 70 65 6e          { "xOpen
85c0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
85d0: 54 45 53 54 56 46 53 5f 4f 50 45 4e 5f 4d 41 53  TESTVFS_OPEN_MAS
85e0: 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22  K },.        { "
85f0: 78 43 6c 6f 73 65 22 2c 20 20 20 20 20 20 20 20  xClose",        
8600: 20 20 20 20 20 54 45 53 54 56 46 53 5f 43 4c 4f       TESTVFS_CLO
8610: 53 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20  SE_MASK },.     
8620: 20 20 20 7b 20 22 78 41 63 63 65 73 73 22 2c 20     { "xAccess", 
8630: 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 56             TESTV
8640: 46 53 5f 41 43 43 45 53 53 5f 4d 41 53 4b 20 7d  FS_ACCESS_MASK }
8650: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 46 75  ,.        { "xFu
8660: 6c 6c 50 61 74 68 6e 61 6d 65 22 2c 20 20 20 20  llPathname",    
8670: 20 20 54 45 53 54 56 46 53 5f 46 55 4c 4c 50 41    TESTVFS_FULLPA
8680: 54 48 4e 41 4d 45 5f 4d 41 53 4b 20 7d 2c 0a 20  THNAME_MASK },. 
8690: 20 20 20 20 20 20 20 7b 20 22 78 55 6e 6c 6f 63         { "xUnloc
86a0: 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 54  k",            T
86b0: 45 53 54 56 46 53 5f 55 4e 4c 4f 43 4b 5f 4d 41  ESTVFS_UNLOCK_MA
86c0: 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20  SK },.        { 
86d0: 22 78 4c 6f 63 6b 22 2c 20 20 20 20 20 20 20 20  "xLock",        
86e0: 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 4c 4f        TESTVFS_LO
86f0: 43 4b 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20  CK_MASK },.     
8700: 20 20 20 7b 20 22 78 43 68 65 63 6b 52 65 73 65     { "xCheckRese
8710: 72 76 65 64 4c 6f 63 6b 22 2c 20 54 45 53 54 56  rvedLock", TESTV
8720: 46 53 5f 43 4b 4c 4f 43 4b 5f 4d 41 53 4b 20 7d  FS_CKLOCK_MASK }
8730: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 46 69  ,.        { "xFi
8740: 6c 65 43 6f 6e 74 72 6f 6c 22 2c 20 20 20 20 20  leControl",     
8750: 20 20 54 45 53 54 56 46 53 5f 46 43 4e 54 4c 5f    TESTVFS_FCNTL_
8760: 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 7d 3b  MASK },.      };
8770: 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a  .      Tcl_Obj *
8780: 2a 61 70 45 6c 65 6d 20 3d 20 30 3b 0a 20 20 20  *apElem = 0;.   
8790: 20 20 20 69 6e 74 20 6e 45 6c 65 6d 20 3d 20 30     int nElem = 0
87a0: 3b 0a 20 20 20 20 20 20 69 6e 74 20 6d 61 73 6b  ;.      int mask
87b0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 69 66 28 20   = 0;.      if( 
87c0: 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 20  objc!=3 ){.     
87d0: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
87e0: 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f  rgs(interp, 2, o
87f0: 62 6a 76 2c 20 22 4c 49 53 54 22 29 3b 0a 20 20  bjv, "LIST");.  
8800: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
8810: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
8820: 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 4c 69        if( Tcl_Li
8830: 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73  stObjGetElements
8840: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
8850: 2c 20 26 6e 45 6c 65 6d 2c 20 26 61 70 45 6c 65  , &nElem, &apEle
8860: 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65  m) ){.        re
8870: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
8880: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63        }.      Tc
8890: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e  l_ResetResult(in
88a0: 74 65 72 70 29 3b 0a 20 20 20 20 20 20 66 6f 72  terp);.      for
88b0: 28 69 3d 30 3b 20 69 3c 6e 45 6c 65 6d 3b 20 69  (i=0; i<nElem; i
88c0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74  ++){.        int
88d0: 20 69 4d 65 74 68 6f 64 3b 0a 20 20 20 20 20 20   iMethod;.      
88e0: 20 20 63 68 61 72 20 2a 7a 45 6c 65 6d 20 3d 20    char *zElem = 
88f0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 61 70  Tcl_GetString(ap
8900: 45 6c 65 6d 5b 69 5d 29 3b 0a 20 20 20 20 20 20  Elem[i]);.      
8910: 20 20 66 6f 72 28 69 4d 65 74 68 6f 64 3d 30 3b    for(iMethod=0;
8920: 20 69 4d 65 74 68 6f 64 3c 41 72 72 61 79 53 69   iMethod<ArraySi
8930: 7a 65 28 76 66 73 6d 65 74 68 6f 64 29 3b 20 69  ze(vfsmethod); i
8940: 4d 65 74 68 6f 64 2b 2b 29 7b 0a 20 20 20 20 20  Method++){.     
8950: 20 20 20 20 20 69 66 28 20 73 74 72 63 6d 70 28       if( strcmp(
8960: 7a 45 6c 65 6d 2c 20 76 66 73 6d 65 74 68 6f 64  zElem, vfsmethod
8970: 5b 69 4d 65 74 68 6f 64 5d 2e 7a 4e 61 6d 65 29  [iMethod].zName)
8980: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20  ==0 ){.         
8990: 20 20 20 6d 61 73 6b 20 7c 3d 20 76 66 73 6d 65     mask |= vfsme
89a0: 74 68 6f 64 5b 69 4d 65 74 68 6f 64 5d 2e 6d 61  thod[iMethod].ma
89b0: 73 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  sk;.            
89c0: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 20  break;.         
89d0: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
89e0: 20 20 20 20 20 69 66 28 20 69 4d 65 74 68 6f 64       if( iMethod
89f0: 3d 3d 41 72 72 61 79 53 69 7a 65 28 76 66 73 6d  ==ArraySize(vfsm
8a00: 65 74 68 6f 64 29 20 29 7b 0a 20 20 20 20 20 20  ethod) ){.      
8a10: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
8a20: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 75 6e  sult(interp, "un
8a30: 6b 6e 6f 77 6e 20 6d 65 74 68 6f 64 3a 20 22 2c  known method: ",
8a40: 20 7a 45 6c 65 6d 2c 20 30 29 3b 0a 20 20 20 20   zElem, 0);.    
8a50: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
8a60: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20  _ERROR;.        
8a70: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  }.      }.      
8a80: 70 2d 3e 6d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a  p->mask = mask;.
8a90: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
8aa0: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 2a   }..    /*.    *
8ab0: 2a 20 20 54 45 53 54 56 46 53 20 73 63 72 69 70  *  TESTVFS scrip
8ac0: 74 20 3f 53 43 52 49 50 54 3f 0a 20 20 20 20 2a  t ?SCRIPT?.    *
8ad0: 2a 0a 20 20 20 20 2a 2a 20 20 51 75 65 72 79 20  *.    **  Query 
8ae0: 6f 72 20 73 65 74 20 74 68 65 20 73 63 72 69 70  or set the scrip
8af0: 74 20 74 6f 20 62 65 20 72 75 6e 20 77 68 65 6e  t to be run when
8b00: 20 66 69 6c 74 65 72 65 64 20 56 46 53 20 65 76   filtered VFS ev
8b10: 65 6e 74 73 0a 20 20 20 20 2a 2a 20 20 6f 63 63  ents.    **  occ
8b20: 75 72 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 63  ur..    */.    c
8b30: 61 73 65 20 43 4d 44 5f 53 43 52 49 50 54 3a 20  ase CMD_SCRIPT: 
8b40: 7b 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63  {.      if( objc
8b50: 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20 69  ==3 ){.        i
8b60: 6e 74 20 6e 42 79 74 65 3b 0a 20 20 20 20 20 20  nt nByte;.      
8b70: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
8b80: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 54 63   ){.          Tc
8b90: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70  l_DecrRefCount(p
8ba0: 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 20 20  ->pScript);.    
8bb0: 20 20 20 20 20 20 70 2d 3e 70 53 63 72 69 70 74        p->pScript
8bc0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a   = 0;.        }.
8bd0: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53          Tcl_GetS
8be0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a  tringFromObj(obj
8bf0: 76 5b 32 5d 2c 20 26 6e 42 79 74 65 29 3b 0a 20  v[2], &nByte);. 
8c00: 20 20 20 20 20 20 20 69 66 28 20 6e 42 79 74 65         if( nByte
8c10: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  >0 ){.          
8c20: 70 2d 3e 70 53 63 72 69 70 74 20 3d 20 54 63 6c  p->pScript = Tcl
8c30: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 6f 62  _DuplicateObj(ob
8c40: 6a 76 5b 32 5d 29 3b 0a 20 20 20 20 20 20 20 20  jv[2]);.        
8c50: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75    Tcl_IncrRefCou
8c60: 6e 74 28 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a  nt(p->pScript);.
8c70: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
8c80: 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a 63 21 3d  }else if( objc!=
8c90: 32 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c  2 ){.        Tcl
8ca0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
8cb0: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22  terp, 2, objv, "
8cc0: 3f 53 43 52 49 50 54 3f 22 29 3b 0a 20 20 20 20  ?SCRIPT?");.    
8cd0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
8ce0: 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 0a 20  RROR;.      }.. 
8cf0: 20 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65       Tcl_ResetRe
8d00: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20  sult(interp);.  
8d10: 20 20 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69      if( p->pScri
8d20: 70 74 20 29 20 54 63 6c 5f 53 65 74 4f 62 6a 52  pt ) Tcl_SetObjR
8d30: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 2d  esult(interp, p-
8d40: 3e 70 53 63 72 69 70 74 29 3b 0a 0a 20 20 20 20  >pScript);..    
8d50: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a    break;.    }..
8d60: 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 45      /*.    ** TE
8d70: 53 54 56 46 53 20 69 6f 65 72 72 20 3f 49 46 41  STVFS ioerr ?IFA
8d80: 49 4c 20 50 45 52 53 49 53 54 3f 0a 20 20 20 20  IL PERSIST?.    
8d90: 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 57 68 65 72  **.    **   Wher
8da0: 65 20 49 46 41 49 4c 20 69 73 20 61 6e 20 69 6e  e IFAIL is an in
8db0: 74 65 67 65 72 20 61 6e 64 20 50 45 52 53 49 53  teger and PERSIS
8dc0: 54 20 69 73 20 62 6f 6f 6c 65 61 6e 2e 0a 20 20  T is boolean..  
8dd0: 20 20 2a 2f 0a 20 20 20 20 63 61 73 65 20 43 4d    */.    case CM
8de0: 44 5f 43 41 4e 54 4f 50 45 4e 45 52 52 3a 0a 20  D_CANTOPENERR:. 
8df0: 20 20 20 63 61 73 65 20 43 4d 44 5f 49 4f 45 52     case CMD_IOER
8e00: 52 3a 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f  R:.    case CMD_
8e10: 46 55 4c 4c 45 52 52 3a 20 7b 0a 20 20 20 20 20  FULLERR: {.     
8e20: 20 54 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74   TestFaultInject
8e30: 20 2a 70 54 65 73 74 20 3d 20 30 3b 0a 20 20 20   *pTest = 0;.   
8e40: 20 20 20 69 6e 74 20 69 52 65 74 3b 0a 0a 20 20     int iRet;..  
8e50: 20 20 20 20 73 77 69 74 63 68 28 20 61 53 75 62      switch( aSub
8e60: 63 6d 64 5b 69 5d 2e 65 43 6d 64 20 29 7b 0a 20  cmd[i].eCmd ){. 
8e70: 20 20 20 20 20 20 20 63 61 73 65 20 43 4d 44 5f         case CMD_
8e80: 49 4f 45 52 52 3a 20 70 54 65 73 74 20 3d 20 26  IOERR: pTest = &
8e90: 70 2d 3e 69 6f 65 72 72 5f 65 72 72 3b 20 62 72  p->ioerr_err; br
8ea0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
8eb0: 65 20 43 4d 44 5f 46 55 4c 4c 45 52 52 3a 20 70  e CMD_FULLERR: p
8ec0: 54 65 73 74 20 3d 20 26 70 2d 3e 66 75 6c 6c 5f  Test = &p->full_
8ed0: 65 72 72 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20  err; break;.    
8ee0: 20 20 20 20 63 61 73 65 20 43 4d 44 5f 43 41 4e      case CMD_CAN
8ef0: 54 4f 50 45 4e 45 52 52 3a 20 70 54 65 73 74 20  TOPENERR: pTest 
8f00: 3d 20 26 70 2d 3e 63 61 6e 74 6f 70 65 6e 5f 65  = &p->cantopen_e
8f10: 72 72 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  rr; break;.     
8f20: 20 20 20 64 65 66 61 75 6c 74 3a 20 61 73 73 65     default: asse
8f30: 72 74 28 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20  rt(0);.      }. 
8f40: 20 20 20 20 20 69 52 65 74 20 3d 20 70 54 65 73       iRet = pTes
8f50: 74 2d 3e 6e 46 61 69 6c 3b 0a 20 20 20 20 20 20  t->nFail;.      
8f60: 70 54 65 73 74 2d 3e 6e 46 61 69 6c 20 3d 20 30  pTest->nFail = 0
8f70: 3b 0a 20 20 20 20 20 20 70 54 65 73 74 2d 3e 65  ;.      pTest->e
8f80: 46 61 75 6c 74 20 3d 20 30 3b 0a 20 20 20 20 20  Fault = 0;.     
8f90: 20 70 54 65 73 74 2d 3e 69 43 6e 74 20 3d 20 30   pTest->iCnt = 0
8fa0: 3b 0a 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a  ;..      if( obj
8fb0: 63 3d 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20  c==4 ){.        
8fc0: 69 6e 74 20 69 43 6e 74 2c 20 69 50 65 72 73 69  int iCnt, iPersi
8fd0: 73 74 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  st;.        if( 
8fe0: 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49  TCL_OK!=Tcl_GetI
8ff0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  ntFromObj(interp
9000: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 43 6e 74  , objv[2], &iCnt
9010: 29 0a 20 20 20 20 20 20 20 20 20 7c 7c 20 54 43  ).         || TC
9020: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f  L_OK!=Tcl_GetBoo
9030: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65  leanFromObj(inte
9040: 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 69 50  rp, objv[3], &iP
9050: 65 72 73 69 73 74 29 0a 20 20 20 20 20 20 20 20  ersist).        
9060: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74  ){.          ret
9070: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
9080: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
9090: 20 70 54 65 73 74 2d 3e 65 46 61 75 6c 74 20 3d   pTest->eFault =
90a0: 20 69 50 65 72 73 69 73 74 3f 46 41 55 4c 54 5f   iPersist?FAULT_
90b0: 49 4e 4a 45 43 54 5f 50 45 52 53 49 53 54 45 4e  INJECT_PERSISTEN
90c0: 54 3a 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 54  T:FAULT_INJECT_T
90d0: 52 41 4e 53 49 45 4e 54 3b 0a 20 20 20 20 20 20  RANSIENT;.      
90e0: 20 20 70 54 65 73 74 2d 3e 69 43 6e 74 20 3d 20    pTest->iCnt = 
90f0: 69 43 6e 74 3b 0a 20 20 20 20 20 20 7d 65 6c 73  iCnt;.      }els
9100: 65 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b  e if( objc!=2 ){
9110: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f  .        Tcl_Wro
9120: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
9130: 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 43 4e 54  , 2, objv, "?CNT
9140: 20 50 45 52 53 49 53 54 3f 22 29 3b 0a 20 20 20   PERSIST?");.   
9150: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
9160: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
9170: 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52       Tcl_SetObjR
9180: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63  esult(interp, Tc
9190: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 52 65 74  l_NewIntObj(iRet
91a0: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  ));.      break;
91b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
91c0: 20 43 4d 44 5f 44 45 4c 45 54 45 3a 20 7b 0a 20   CMD_DELETE: {. 
91d0: 20 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 43       Tcl_DeleteC
91e0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 54  ommand(interp, T
91f0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
9200: 76 5b 30 5d 29 29 3b 0a 20 20 20 20 20 20 62 72  v[0]));.      br
9210: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  eak;.    }..    
9220: 63 61 73 65 20 43 4d 44 5f 44 45 56 43 48 41 52  case CMD_DEVCHAR
9230: 3a 20 7b 0a 20 20 20 20 20 20 73 74 72 75 63 74  : {.      struct
9240: 20 44 65 76 69 63 65 46 6c 61 67 20 7b 0a 20 20   DeviceFlag {.  
9250: 20 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d        char *zNam
9260: 65 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69  e;.        int i
9270: 56 61 6c 75 65 3b 0a 20 20 20 20 20 20 7d 20 61  Value;.      } a
9280: 46 6c 61 67 5b 5d 20 3d 20 7b 0a 20 20 20 20 20  Flag[] = {.     
9290: 20 20 20 7b 20 22 64 65 66 61 75 6c 74 22 2c 20     { "default", 
92a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 31                -1
92b0: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61   },.        { "a
92c0: 74 6f 6d 69 63 22 2c 20 20 20 20 20 20 20 20 20  tomic",         
92d0: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f         SQLITE_IO
92e0: 43 41 50 5f 41 54 4f 4d 49 43 20 20 20 20 20 20  CAP_ATOMIC      
92f0: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20            },.   
9300: 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 35 31       { "atomic51
9310: 32 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  2",             
9320: 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f  SQLITE_IOCAP_ATO
9330: 4d 49 43 35 31 32 20 20 20 20 20 20 20 20 20 20  MIC512          
9340: 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20     },.        { 
9350: 22 61 74 6f 6d 69 63 31 6b 22 2c 20 20 20 20 20  "atomic1k",     
9360: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
9370: 49 4f 43 41 50 5f 41 54 4f 4d 49 43 31 4b 20 20  IOCAP_ATOMIC1K  
9380: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
9390: 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63         { "atomic
93a0: 32 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  2k",            
93b0: 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41    SQLITE_IOCAP_A
93c0: 54 4f 4d 49 43 32 4b 20 20 20 20 20 20 20 20 20  TOMIC2K         
93d0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20       },.        
93e0: 7b 20 22 61 74 6f 6d 69 63 34 6b 22 2c 20 20 20  { "atomic4k",   
93f0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54             SQLIT
9400: 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 34 4b  E_IOCAP_ATOMIC4K
9410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c                },
9420: 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d  .        { "atom
9430: 69 63 38 6b 22 2c 20 20 20 20 20 20 20 20 20 20  ic8k",          
9440: 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50      SQLITE_IOCAP
9450: 5f 41 54 4f 4d 49 43 38 4b 20 20 20 20 20 20 20  _ATOMIC8K       
9460: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20         },.      
9470: 20 20 7b 20 22 61 74 6f 6d 69 63 31 36 6b 22 2c    { "atomic16k",
9480: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c               SQL
9490: 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43  ITE_IOCAP_ATOMIC
94a0: 31 36 4b 20 20 20 20 20 20 20 20 20 20 20 20 20  16K             
94b0: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74  },.        { "at
94c0: 6f 6d 69 63 33 32 6b 22 2c 20 20 20 20 20 20 20  omic32k",       
94d0: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43        SQLITE_IOC
94e0: 41 50 5f 41 54 4f 4d 49 43 33 32 4b 20 20 20 20  AP_ATOMIC32K    
94f0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20           },.    
9500: 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 36 34 6b      { "atomic64k
9510: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 53  ",             S
9520: 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d  QLITE_IOCAP_ATOM
9530: 49 43 36 34 4b 20 20 20 20 20 20 20 20 20 20 20  IC64K           
9540: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22    },.        { "
9550: 73 65 71 75 65 6e 74 69 61 6c 22 2c 20 20 20 20  sequential",    
9560: 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49          SQLITE_I
9570: 4f 43 41 50 5f 53 45 51 55 45 4e 54 49 41 4c 20  OCAP_SEQUENTIAL 
9580: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20             },.  
9590: 20 20 20 20 20 20 7b 20 22 73 61 66 65 5f 61 70        { "safe_ap
95a0: 70 65 6e 64 22 2c 20 20 20 20 20 20 20 20 20 20  pend",          
95b0: 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 53 41   SQLITE_IOCAP_SA
95c0: 46 45 5f 41 50 50 45 4e 44 20 20 20 20 20 20 20  FE_APPEND       
95d0: 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b      },.        {
95e0: 20 22 75 6e 64 65 6c 65 74 61 62 6c 65 5f 77 68   "undeletable_wh
95f0: 65 6e 5f 6f 70 65 6e 22 2c 20 53 51 4c 49 54 45  en_open", SQLITE
9600: 5f 49 4f 43 41 50 5f 55 4e 44 45 4c 45 54 41 42  _IOCAP_UNDELETAB
9610: 4c 45 5f 57 48 45 4e 5f 4f 50 45 4e 20 7d 2c 0a  LE_WHEN_OPEN },.
9620: 20 20 20 20 20 20 20 20 7b 20 22 70 6f 77 65 72          { "power
9630: 73 61 66 65 5f 6f 76 65 72 77 72 69 74 65 22 2c  safe_overwrite",
9640: 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f     SQLITE_IOCAP_
9650: 50 4f 57 45 52 53 41 46 45 5f 4f 56 45 52 57 52  POWERSAFE_OVERWR
9660: 49 54 45 20 20 20 7d 2c 0a 20 20 20 20 20 20 20  ITE   },.       
9670: 20 7b 20 22 69 6d 6d 75 74 61 62 6c 65 22 2c 20   { "immutable", 
9680: 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49              SQLI
9690: 54 45 5f 49 4f 43 41 50 5f 49 4d 4d 55 54 41 42  TE_IOCAP_IMMUTAB
96a0: 4c 45 20 20 20 20 20 20 20 20 20 20 20 20 20 7d  LE             }
96b0: 2c 0a 20 20 20 20 20 20 20 20 7b 20 30 2c 20 30  ,.        { 0, 0
96c0: 20 7d 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20   }.      };.    
96d0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b    Tcl_Obj *pRet;
96e0: 0a 20 20 20 20 20 20 69 6e 74 20 69 46 6c 61 67  .      int iFlag
96f0: 3b 0a 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a  ;..      if( obj
9700: 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 20 20 54  c>3 ){.        T
9710: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
9720: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
9730: 20 22 3f 41 54 54 52 2d 4c 49 53 54 3f 22 29 3b   "?ATTR-LIST?");
9740: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
9750: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
9760: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a   }.      if( obj
9770: 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20  c==3 ){.        
9780: 69 6e 74 20 6a 3b 0a 20 20 20 20 20 20 20 20 69  int j;.        i
9790: 6e 74 20 69 4e 65 77 20 3d 20 30 3b 0a 20 20 20  nt iNew = 0;.   
97a0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 66       Tcl_Obj **f
97b0: 6c 61 67 73 20 3d 20 30 3b 0a 20 20 20 20 20 20  lags = 0;.      
97c0: 20 20 69 6e 74 20 6e 46 6c 61 67 73 20 3d 20 30    int nFlags = 0
97d0: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 28 20 54  ;..        if( T
97e0: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65  cl_ListObjGetEle
97f0: 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62  ments(interp, ob
9800: 6a 76 5b 32 5d 2c 20 26 6e 46 6c 61 67 73 2c 20  jv[2], &nFlags, 
9810: 26 66 6c 61 67 73 29 20 29 7b 0a 20 20 20 20 20  &flags) ){.     
9820: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
9830: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d  ERROR;.        }
9840: 0a 0a 20 20 20 20 20 20 20 20 66 6f 72 28 6a 3d  ..        for(j=
9850: 30 3b 20 6a 3c 6e 46 6c 61 67 73 3b 20 6a 2b 2b  0; j<nFlags; j++
9860: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74  ){.          int
9870: 20 69 64 78 20 3d 20 30 3b 0a 20 20 20 20 20 20   idx = 0;.      
9880: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49      if( Tcl_GetI
9890: 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74 72 75 63  ndexFromObjStruc
98a0: 74 28 69 6e 74 65 72 70 2c 20 66 6c 61 67 73 5b  t(interp, flags[
98b0: 6a 5d 2c 20 61 46 6c 61 67 2c 20 0a 20 20 20 20  j], aFlag, .    
98c0: 20 20 20 20 20 20 20 20 20 20 20 20 73 69 7a 65              size
98d0: 6f 66 28 61 46 6c 61 67 5b 30 5d 29 2c 20 22 66  of(aFlag[0]), "f
98e0: 6c 61 67 22 2c 20 30 2c 20 26 69 64 78 29 20 0a  lag", 0, &idx) .
98f0: 20 20 20 20 20 20 20 20 20 20 29 7b 0a 20 20 20            ){.   
9900: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
9910: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
9920: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
9930: 20 69 66 28 20 61 46 6c 61 67 5b 69 64 78 5d 2e   if( aFlag[idx].
9940: 69 56 61 6c 75 65 3c 30 20 26 26 20 6e 46 6c 61  iValue<0 && nFla
9950: 67 73 3e 31 20 29 7b 0a 20 20 20 20 20 20 20 20  gs>1 ){.        
9960: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
9970: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61  sult(interp, "ba
9980: 64 20 66 6c 61 67 73 3a 20 22 2c 20 54 63 6c 5f  d flags: ", Tcl_
9990: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32  GetString(objv[2
99a0: 5d 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20  ]), 0);.        
99b0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
99c0: 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 20 20  RROR;.          
99d0: 7d 0a 20 20 20 20 20 20 20 20 20 20 69 4e 65 77  }.          iNew
99e0: 20 7c 3d 20 61 46 6c 61 67 5b 69 64 78 5d 2e 69   |= aFlag[idx].i
99f0: 56 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 7d  Value;.        }
9a00: 0a 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 44 65  ..        p->iDe
9a10: 76 63 68 61 72 20 3d 20 69 4e 65 77 7c 20 30 78  vchar = iNew| 0x
9a20: 31 30 30 30 30 30 30 30 3b 0a 20 20 20 20 20 20  10000000;.      
9a30: 7d 0a 0a 20 20 20 20 20 20 70 52 65 74 20 3d 20  }..      pRet = 
9a40: 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20  Tcl_NewObj();.  
9a50: 20 20 20 20 66 6f 72 28 69 46 6c 61 67 3d 30 3b      for(iFlag=0;
9a60: 20 69 46 6c 61 67 3c 73 69 7a 65 6f 66 28 61 46   iFlag<sizeof(aF
9a70: 6c 61 67 29 2f 73 69 7a 65 6f 66 28 61 46 6c 61  lag)/sizeof(aFla
9a80: 67 5b 30 5d 29 3b 20 69 46 6c 61 67 2b 2b 29 7b  g[0]); iFlag++){
9a90: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 2d 3e  .        if( p->
9aa0: 69 44 65 76 63 68 61 72 20 26 20 61 46 6c 61 67  iDevchar & aFlag
9ab0: 5b 69 46 6c 61 67 5d 2e 69 56 61 6c 75 65 20 29  [iFlag].iValue )
9ac0: 7b 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f  {.          Tcl_
9ad0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
9ae0: 6d 65 6e 74 28 0a 20 20 20 20 20 20 20 20 20 20  ment(.          
9af0: 20 20 20 20 69 6e 74 65 72 70 2c 20 70 52 65 74      interp, pRet
9b00: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
9b10: 62 6a 28 61 46 6c 61 67 5b 69 46 6c 61 67 5d 2e  bj(aFlag[iFlag].
9b20: 7a 4e 61 6d 65 2c 20 2d 31 29 0a 20 20 20 20 20  zName, -1).     
9b30: 20 20 20 20 20 29 3b 0a 20 20 20 20 20 20 20 20       );.        
9b40: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  }.      }.      
9b50: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
9b60: 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a  (interp, pRet);.
9b70: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
9b80: 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d    }..    case CM
9b90: 44 5f 53 45 43 54 4f 52 53 49 5a 45 3a 20 7b 0a  D_SECTORSIZE: {.
9ba0: 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3e 33        if( objc>3
9bb0: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
9bc0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
9bd0: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f  erp, 2, objv, "?
9be0: 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20 20 20 20  VALUE?");.      
9bf0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
9c00: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
9c10: 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33 20 29 7b    if( objc==3 ){
9c20: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 4e 65  .        int iNe
9c30: 77 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69  w = 0;.        i
9c40: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f( Tcl_GetIntFro
9c50: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
9c60: 76 5b 32 5d 2c 20 26 69 4e 65 77 29 20 29 7b 0a  v[2], &iNew) ){.
9c70: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
9c80: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
9c90: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 70 2d      }.        p-
9ca0: 3e 69 53 65 63 74 6f 72 73 69 7a 65 20 3d 20 69  >iSectorsize = i
9cb0: 4e 65 77 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  New;.      }.   
9cc0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
9cd0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
9ce0: 4e 65 77 49 6e 74 4f 62 6a 28 70 2d 3e 69 53 65  NewIntObj(p->iSe
9cf0: 63 74 6f 72 73 69 7a 65 29 29 3b 0a 20 20 20 20  ctorsize));.    
9d00: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20    break;.    }. 
9d10: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c   }..  return TCL
9d20: 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76  _OK;.}..static v
9d30: 6f 69 64 20 53 51 4c 49 54 45 5f 54 43 4c 41 50  oid SQLITE_TCLAP
9d40: 49 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 64 65  I testvfs_obj_de
9d50: 6c 28 43 6c 69 65 6e 74 44 61 74 61 20 63 64 29  l(ClientData cd)
9d60: 7b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  {.  Testvfs *p =
9d70: 20 28 54 65 73 74 76 66 73 20 2a 29 63 64 3b 0a   (Testvfs *)cd;.
9d80: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
9d90: 20 29 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f   ) Tcl_DecrRefCo
9da0: 75 6e 74 28 70 2d 3e 70 53 63 72 69 70 74 29 3b  unt(p->pScript);
9db0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 75  .  sqlite3_vfs_u
9dc0: 6e 72 65 67 69 73 74 65 72 28 70 2d 3e 70 56 66  nregister(p->pVf
9dd0: 73 29 3b 0a 20 20 63 6b 66 72 65 65 28 28 63 68  s);.  ckfree((ch
9de0: 61 72 20 2a 29 70 2d 3e 70 56 66 73 29 3b 0a 20  ar *)p->pVfs);. 
9df0: 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29   ckfree((char *)
9e00: 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61  p);.}../*.** Usa
9e10: 67 65 3a 20 20 74 65 73 74 76 66 73 20 56 46 53  ge:  testvfs VFS
9e20: 4e 41 4d 45 20 3f 53 57 49 54 43 48 45 53 3f 0a  NAME ?SWITCHES?.
9e30: 2a 2a 0a 2a 2a 20 53 77 69 74 63 68 65 73 20 61  **.** Switches a
9e40: 72 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 2d 6e 6f 73  re:.**.**   -nos
9e50: 68 6d 20 20 20 42 4f 4f 4c 45 41 4e 20 20 20 20  hm   BOOLEAN    
9e60: 20 20 20 20 20 20 20 20 20 28 54 72 75 65 20 74           (True t
9e70: 6f 20 6f 6d 69 74 20 73 68 6d 20 6d 65 74 68 6f  o omit shm metho
9e80: 64 73 2e 20 44 65 66 61 75 6c 74 20 66 61 6c 73  ds. Default fals
9e90: 65 29 0a 2a 2a 20 20 20 2d 64 65 66 61 75 6c 74  e).**   -default
9ea0: 20 42 4f 4f 4c 45 41 4e 20 20 20 20 20 20 20 20   BOOLEAN        
9eb0: 20 20 20 20 20 28 54 72 75 65 20 74 6f 20 6d 61       (True to ma
9ec0: 6b 65 20 74 68 65 20 76 66 73 20 64 65 66 61 75  ke the vfs defau
9ed0: 6c 74 2e 20 44 65 66 61 75 6c 74 20 66 61 6c 73  lt. Default fals
9ee0: 65 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 63 6f  e).**.** This co
9ef0: 6d 6d 61 6e 64 20 63 72 65 61 74 65 73 20 74 77  mmand creates tw
9f00: 6f 20 74 68 69 6e 67 73 20 77 68 65 6e 20 69 74  o things when it
9f10: 20 69 73 20 69 6e 76 6f 6b 65 64 3a 20 61 6e 20   is invoked: an 
9f20: 53 51 4c 69 74 65 20 56 46 53 2c 20 61 6e 64 0a  SQLite VFS, and.
9f30: 2a 2a 20 61 20 54 63 6c 20 63 6f 6d 6d 61 6e 64  ** a Tcl command
9f40: 2e 20 42 6f 74 68 20 61 72 65 20 6e 61 6d 65 64  . Both are named
9f50: 20 56 46 53 4e 41 4d 45 2e 20 54 68 65 20 56 46   VFSNAME. The VF
9f60: 53 20 69 73 20 69 6e 73 74 61 6c 6c 65 64 2e 20  S is installed. 
9f70: 49 74 20 69 73 20 6e 6f 74 0a 2a 2a 20 69 6e 73  It is not.** ins
9f80: 74 61 6c 6c 65 64 20 61 73 20 74 68 65 20 64 65  talled as the de
9f90: 66 61 75 6c 74 20 56 46 53 2e 0a 2a 2a 0a 2a 2a  fault VFS..**.**
9fa0: 20 54 68 65 20 56 46 53 20 70 61 73 73 65 73 20   The VFS passes 
9fb0: 61 6c 6c 20 66 69 6c 65 20 49 2f 4f 20 63 61 6c  all file I/O cal
9fc0: 6c 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68  ls through to th
9fd0: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 56 46 53  e underlying VFS
9fe0: 2e 0a 2a 2a 0a 2a 2a 20 57 68 65 6e 65 76 65 72  ..**.** Whenever
9ff0: 20 74 68 65 20 78 53 68 6d 4d 61 70 20 6d 65 74   the xShmMap met
a000: 68 6f 64 20 6f 66 20 74 68 65 20 56 46 53 0a 2a  hod of the VFS.*
a010: 2a 20 69 73 20 69 6e 76 6f 6b 65 64 2c 20 74 68  * is invoked, th
a020: 65 20 53 43 52 49 50 54 20 69 73 20 65 78 65 63  e SCRIPT is exec
a030: 75 74 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a  uted as follows:
a040: 0a 2a 2a 0a 2a 2a 20 20 20 53 43 52 49 50 54 20  .**.**   SCRIPT 
a050: 78 53 68 6d 4d 61 70 20 20 20 20 46 49 4c 45 4e  xShmMap    FILEN
a060: 41 4d 45 20 49 44 0a 2a 2a 0a 2a 2a 20 54 68 65  AME ID.**.** The
a070: 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20   value returned 
a080: 62 79 20 74 68 65 20 69 6e 76 6f 63 61 74 69 6f  by the invocatio
a090: 6e 20 6f 66 20 53 43 52 49 50 54 20 61 62 6f 76  n of SCRIPT abov
a0a0: 65 20 69 73 20 69 6e 74 65 72 70 72 65 74 65 64  e is interpreted
a0b0: 20 61 73 0a 2a 2a 20 61 6e 20 53 51 4c 69 74 65   as.** an SQLite
a0c0: 20 65 72 72 6f 72 20 63 6f 64 65 20 61 6e 64 20   error code and 
a0d0: 72 65 74 75 72 6e 65 64 20 74 6f 20 53 51 4c 69  returned to SQLi
a0e0: 74 65 2e 20 45 69 74 68 65 72 20 61 20 73 79 6d  te. Either a sym
a0f0: 62 6f 6c 69 63 20 0a 2a 2a 20 22 53 51 4c 49 54  bolic .** "SQLIT
a100: 45 5f 4f 4b 22 20 6f 72 20 6e 75 6d 65 72 69 63  E_OK" or numeric
a110: 20 22 30 22 20 76 61 6c 75 65 20 6d 61 79 20 62   "0" value may b
a120: 65 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2a 0a 2a  e returned..**.*
a130: 2a 20 54 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f  * The contents o
a140: 66 20 74 68 65 20 73 68 61 72 65 64 2d 6d 65 6d  f the shared-mem
a150: 6f 72 79 20 62 75 66 66 65 72 20 61 73 73 6f 63  ory buffer assoc
a160: 69 61 74 65 64 20 77 69 74 68 20 61 20 67 69 76  iated with a giv
a170: 65 6e 20 66 69 6c 65 0a 2a 2a 20 6d 61 79 20 62  en file.** may b
a180: 65 20 72 65 61 64 20 61 6e 64 20 73 65 74 20 75  e read and set u
a190: 73 69 6e 67 20 74 68 65 20 66 6f 6c 6c 6f 77 69  sing the followi
a1a0: 6e 67 20 63 6f 6d 6d 61 6e 64 3a 0a 2a 2a 0a 2a  ng command:.**.*
a1b0: 2a 20 20 20 56 46 53 4e 41 4d 45 20 73 68 6d 20  *   VFSNAME shm 
a1c0: 46 49 4c 45 4e 41 4d 45 20 3f 4e 45 57 56 41 4c  FILENAME ?NEWVAL
a1d0: 55 45 3f 0a 2a 2a 0a 2a 2a 20 57 68 65 6e 20 74  UE?.**.** When t
a1e0: 68 65 20 78 53 68 6d 4c 6f 63 6b 20 6d 65 74 68  he xShmLock meth
a1f0: 6f 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79  od is invoked by
a200: 20 53 51 4c 69 74 65 2c 20 74 68 65 20 66 6f 6c   SQLite, the fol
a210: 6c 6f 77 69 6e 67 20 73 63 72 69 70 74 20 69 73  lowing script is
a220: 0a 2a 2a 20 72 75 6e 3a 0a 2a 2a 0a 2a 2a 20 20  .** run:.**.**  
a230: 20 53 43 52 49 50 54 20 78 53 68 6d 4c 6f 63 6b   SCRIPT xShmLock
a240: 20 20 20 20 46 49 4c 45 4e 41 4d 45 20 49 44 20      FILENAME ID 
a250: 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20 77 68 65 72 65  LOCK.**.** where
a260: 20 4c 4f 43 4b 20 69 73 20 6f 66 20 74 68 65 20   LOCK is of the 
a270: 66 6f 72 6d 20 22 4f 46 46 53 45 54 20 4e 42 59  form "OFFSET NBY
a280: 54 45 20 6c 6f 63 6b 2f 75 6e 6c 6f 63 6b 20 73  TE lock/unlock s
a290: 68 61 72 65 64 2f 65 78 63 6c 75 73 69 76 65 22  hared/exclusive"
a2a0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 53  .*/.static int S
a2b0: 51 4c 49 54 45 5f 54 43 4c 41 50 49 20 74 65 73  QLITE_TCLAPI tes
a2c0: 74 76 66 73 5f 63 6d 64 28 0a 20 20 43 6c 69 65  tvfs_cmd(.  Clie
a2d0: 6e 74 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c  ntData cd,.  Tcl
a2e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
a2f0: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
a300: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
a310: 6a 76 5b 5d 0a 29 7b 0a 20 20 73 74 61 74 69 63  jv[].){.  static
a320: 20 73 71 6c 69 74 65 33 5f 76 66 73 20 74 76 66   sqlite3_vfs tvf
a330: 73 5f 76 66 73 20 3d 20 7b 0a 20 20 20 20 33 2c  s_vfs = {.    3,
a340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a350: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69              /* i
a360: 56 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 30  Version */.    0
a370: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
a380: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a390: 73 7a 4f 73 46 69 6c 65 20 2a 2f 0a 20 20 20 20  szOsFile */.    
a3a0: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0,              
a3b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
a3c0: 20 6d 78 50 61 74 68 6e 61 6d 65 20 2a 2f 0a 20   mxPathname */. 
a3d0: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
a3e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a3f0: 20 2f 2a 20 70 4e 65 78 74 20 2a 2f 0a 20 20 20   /* pNext */.   
a400: 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   0,             
a410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
a420: 2a 20 7a 4e 61 6d 65 20 2a 2f 0a 20 20 20 20 30  * zName */.    0
a430: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
a440: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a450: 70 41 70 70 44 61 74 61 20 2a 2f 0a 20 20 20 20  pAppData */.    
a460: 74 76 66 73 4f 70 65 6e 2c 20 20 20 20 20 20 20  tvfsOpen,       
a470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
a480: 20 78 4f 70 65 6e 20 2a 2f 0a 20 20 20 20 74 76   xOpen */.    tv
a490: 66 73 44 65 6c 65 74 65 2c 20 20 20 20 20 20 20  fsDelete,       
a4a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a4b0: 44 65 6c 65 74 65 20 2a 2f 0a 20 20 20 20 74 76  Delete */.    tv
a4c0: 66 73 41 63 63 65 73 73 2c 20 20 20 20 20 20 20  fsAccess,       
a4d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a4e0: 41 63 63 65 73 73 20 2a 2f 0a 20 20 20 20 74 76  Access */.    tv
a4f0: 66 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 2c 20  fsFullPathname, 
a500: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a510: 46 75 6c 6c 50 61 74 68 6e 61 6d 65 20 2a 2f 0a  FullPathname */.
a520: 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f  #ifndef SQLITE_O
a530: 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49  MIT_LOAD_EXTENSI
a540: 4f 4e 0a 20 20 20 20 74 76 66 73 44 6c 4f 70 65  ON.    tvfsDlOpe
a550: 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n,              
a560: 20 20 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20       /* xDlOpen 
a570: 2a 2f 0a 20 20 20 20 74 76 66 73 44 6c 45 72 72  */.    tvfsDlErr
a580: 6f 72 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  or,             
a590: 20 20 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72       /* xDlError
a5a0: 20 2a 2f 0a 20 20 20 20 74 76 66 73 44 6c 53 79   */.    tvfsDlSy
a5b0: 6d 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  m,              
a5c0: 20 20 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20        /* xDlSym 
a5d0: 2a 2f 0a 20 20 20 20 74 76 66 73 44 6c 43 6c 6f  */.    tvfsDlClo
a5e0: 73 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  se,             
a5f0: 20 20 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65       /* xDlClose
a600: 20 2a 2f 0a 23 65 6c 73 65 0a 20 20 20 20 30 2c   */.#else.    0,
a610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a620: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a630: 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20 20 30 2c  DlOpen */.    0,
a640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a650: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a660: 44 6c 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30  DlError */.    0
a670: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
a680: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a690: 78 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20 30 2c  xDlSym */.    0,
a6a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a6b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
a6c0: 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65 6e 64 69  DlClose */.#endi
a6d0: 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54  f /* SQLITE_OMIT
a6e0: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20  _LOAD_EXTENSION 
a6f0: 2a 2f 0a 20 20 20 20 74 76 66 73 52 61 6e 64 6f  */.    tvfsRando
a700: 6d 6e 65 73 73 2c 20 20 20 20 20 20 20 20 20 20  mness,          
a710: 20 20 20 20 20 2f 2a 20 78 52 61 6e 64 6f 6d 6e       /* xRandomn
a720: 65 73 73 20 2a 2f 0a 20 20 20 20 74 76 66 73 53  ess */.    tvfsS
a730: 6c 65 65 70 2c 20 20 20 20 20 20 20 20 20 20 20  leep,           
a740: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53 6c 65           /* xSle
a750: 65 70 20 2a 2f 0a 20 20 20 20 74 76 66 73 43 75  ep */.    tvfsCu
a760: 72 72 65 6e 74 54 69 6d 65 2c 20 20 20 20 20 20  rrentTime,      
a770: 20 20 20 20 20 20 20 20 2f 2a 20 78 43 75 72 72          /* xCurr
a780: 65 6e 74 54 69 6d 65 20 2a 2f 0a 20 20 20 20 30  entTime */.    0
a790: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
a7a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a7b0: 78 47 65 74 4c 61 73 74 45 72 72 6f 72 20 2a 2f  xGetLastError */
a7c0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
a7d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a7e0: 20 20 20 2f 2a 20 78 43 75 72 72 65 6e 74 54 69     /* xCurrentTi
a7f0: 6d 65 49 6e 74 36 34 20 2a 2f 0a 20 20 20 20 30  meInt64 */.    0
a800: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
a810: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a820: 78 53 65 74 53 79 73 74 65 6d 43 61 6c 6c 20 2a  xSetSystemCall *
a830: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
a840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a850: 20 20 20 20 2f 2a 20 78 47 65 74 53 79 73 74 65      /* xGetSyste
a860: 6d 43 61 6c 6c 20 2a 2f 0a 20 20 20 20 30 2c 20  mCall */.    0, 
a870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a880: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 4e             /* xN
a890: 65 78 74 53 79 73 74 65 6d 43 61 6c 6c 20 2a 2f  extSystemCall */
a8a0: 0a 20 20 7d 3b 0a 0a 20 20 54 65 73 74 76 66 73  .  };..  Testvfs
a8b0: 20 2a 70 3b 20 20 20 20 20 20 20 20 20 20 20 20   *p;            
a8c0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 77 20           /* New 
a8d0: 6f 62 6a 65 63 74 20 2a 2f 0a 20 20 73 71 6c 69  object */.  sqli
a8e0: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b 20 20  te3_vfs *pVfs;  
a8f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
a900: 65 77 20 56 46 53 20 2a 2f 0a 20 20 63 68 61 72  ew VFS */.  char
a910: 20 2a 7a 56 66 73 3b 0a 20 20 69 6e 74 20 6e 42   *zVfs;.  int nB
a920: 79 74 65 3b 20 20 20 20 20 20 20 20 20 20 20 20  yte;            
a930: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 42 79 74            /* Byt
a940: 65 73 20 6f 66 20 73 70 61 63 65 20 74 6f 20 61  es of space to a
a950: 6c 6c 6f 63 61 74 65 20 61 74 20 70 20 2a 2f 0a  llocate at p */.
a960: 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20  .  int i;.  int 
a970: 69 73 4e 6f 73 68 6d 20 3d 20 30 3b 20 20 20 20  isNoshm = 0;    
a980: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
a990: 72 75 65 20 69 66 20 2d 6e 6f 73 68 6d 20 69 73  rue if -noshm is
a9a0: 20 70 61 73 73 65 64 20 2a 2f 0a 20 20 69 6e 74   passed */.  int
a9b0: 20 69 73 46 75 6c 6c 73 68 6d 20 3d 20 30 3b 20   isFullshm = 0; 
a9c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
a9d0: 54 72 75 65 20 69 66 20 2d 66 75 6c 6c 73 68 6d  True if -fullshm
a9e0: 20 69 73 20 70 61 73 73 65 64 20 2a 2f 0a 20 20   is passed */.  
a9f0: 69 6e 74 20 69 73 44 65 66 61 75 6c 74 20 3d 20  int isDefault = 
aa00: 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0;              
aa10: 2f 2a 20 54 72 75 65 20 69 66 20 2d 64 65 66 61  /* True if -defa
aa20: 75 6c 74 20 69 73 20 70 61 73 73 65 64 20 2a 2f  ult is passed */
aa30: 0a 20 20 69 6e 74 20 73 7a 4f 73 46 69 6c 65 20  .  int szOsFile 
aa40: 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20  = 0;            
aa50: 20 20 20 2f 2a 20 56 61 6c 75 65 20 70 61 73 73     /* Value pass
aa60: 65 64 20 74 6f 20 2d 73 7a 6f 73 66 69 6c 65 20  ed to -szosfile 
aa70: 2a 2f 0a 20 20 69 6e 74 20 6d 78 50 61 74 68 6e  */.  int mxPathn
aa80: 61 6d 65 20 3d 20 2d 31 3b 20 20 20 20 20 20 20  ame = -1;       
aa90: 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 70 61       /* Value pa
aaa0: 73 73 65 64 20 74 6f 20 2d 6d 78 70 61 74 68 6e  ssed to -mxpathn
aab0: 61 6d 65 20 2a 2f 0a 20 20 69 6e 74 20 69 56 65  ame */.  int iVe
aac0: 72 73 69 6f 6e 20 3d 20 33 3b 20 20 20 20 20 20  rsion = 3;      
aad0: 20 20 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75           /* Valu
aae0: 65 20 70 61 73 73 65 64 20 74 6f 20 2d 69 76 65  e passed to -ive
aaf0: 72 73 69 6f 6e 20 2a 2f 0a 0a 20 20 69 66 28 20  rsion */..  if( 
ab00: 6f 62 6a 63 3c 32 20 7c 7c 20 30 21 3d 28 6f 62  objc<2 || 0!=(ob
ab10: 6a 63 25 32 29 20 29 20 67 6f 74 6f 20 62 61 64  jc%2) ) goto bad
ab20: 5f 61 72 67 73 3b 0a 20 20 66 6f 72 28 69 3d 32  _args;.  for(i=2
ab30: 3b 20 69 3c 6f 62 6a 63 3b 20 69 20 2b 3d 20 32  ; i<objc; i += 2
ab40: 29 7b 0a 20 20 20 20 69 6e 74 20 6e 53 77 69 74  ){.    int nSwit
ab50: 63 68 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 53  ch;.    char *zS
ab60: 77 69 74 63 68 3b 0a 20 20 20 20 7a 53 77 69 74  witch;.    zSwit
ab70: 63 68 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  ch = Tcl_GetStri
ab80: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69  ngFromObj(objv[i
ab90: 5d 2c 20 26 6e 53 77 69 74 63 68 29 3b 20 0a 0a  ], &nSwitch); ..
aba0: 20 20 20 20 69 66 28 20 6e 53 77 69 74 63 68 3e      if( nSwitch>
abb0: 32 20 26 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28  2 && 0==strncmp(
abc0: 22 2d 6e 6f 73 68 6d 22 2c 20 7a 53 77 69 74 63  "-noshm", zSwitc
abd0: 68 2c 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20  h, nSwitch) ){. 
abe0: 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74       if( Tcl_Get
abf0: 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69  BooleanFromObj(i
ac00: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d  nterp, objv[i+1]
ac10: 2c 20 26 69 73 4e 6f 73 68 6d 29 20 29 7b 0a 20  , &isNoshm) ){. 
ac20: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
ac30: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d  L_ERROR;.      }
ac40: 0a 20 20 20 20 20 20 69 66 28 20 69 73 4e 6f 73  .      if( isNos
ac50: 68 6d 20 29 20 69 73 46 75 6c 6c 73 68 6d 20 3d  hm ) isFullshm =
ac60: 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c   0;.    }.    el
ac70: 73 65 20 69 66 28 20 6e 53 77 69 74 63 68 3e 32  se if( nSwitch>2
ac80: 20 26 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22   && 0==strncmp("
ac90: 2d 64 65 66 61 75 6c 74 22 2c 20 7a 53 77 69 74  -default", zSwit
aca0: 63 68 2c 20 6e 53 77 69 74 63 68 29 20 29 7b 0a  ch, nSwitch) ){.
acb0: 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65        if( Tcl_Ge
acc0: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28  tBooleanFromObj(
acd0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31  interp, objv[i+1
ace0: 5d 2c 20 26 69 73 44 65 66 61 75 6c 74 29 20 29  ], &isDefault) )
acf0: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  {.        return
ad00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
ad10: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c    }.    }.    el
ad20: 73 65 20 69 66 28 20 6e 53 77 69 74 63 68 3e 32  se if( nSwitch>2
ad30: 20 26 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22   && 0==strncmp("
ad40: 2d 73 7a 6f 73 66 69 6c 65 22 2c 20 7a 53 77 69  -szosfile", zSwi
ad50: 74 63 68 2c 20 6e 53 77 69 74 63 68 29 20 29 7b  tch, nSwitch) ){
ad60: 0a 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47  .      if( Tcl_G
ad70: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
ad80: 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20  erp, objv[i+1], 
ad90: 26 73 7a 4f 73 46 69 6c 65 29 20 29 7b 0a 20 20  &szOsFile) ){.  
ada0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
adb0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
adc0: 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69      }.    else i
add0: 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20  f( nSwitch>2 && 
ade0: 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 6d 78 70  0==strncmp("-mxp
adf0: 61 74 68 6e 61 6d 65 22 2c 20 7a 53 77 69 74 63  athname", zSwitc
ae00: 68 2c 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20  h, nSwitch) ){. 
ae10: 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74       if( Tcl_Get
ae20: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  IntFromObj(inter
ae30: 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 6d  p, objv[i+1], &m
ae40: 78 50 61 74 68 6e 61 6d 65 29 20 29 7b 0a 20 20  xPathname) ){.  
ae50: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
ae60: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
ae70: 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69      }.    else i
ae80: 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20  f( nSwitch>2 && 
ae90: 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 69 76 65  0==strncmp("-ive
aea0: 72 73 69 6f 6e 22 2c 20 7a 53 77 69 74 63 68 2c  rsion", zSwitch,
aeb0: 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20   nSwitch) ){.   
aec0: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e     if( Tcl_GetIn
aed0: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
aee0: 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69 56 65   objv[i+1], &iVe
aef0: 72 73 69 6f 6e 29 20 29 7b 0a 20 20 20 20 20 20  rsion) ){.      
af00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
af10: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
af20: 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e  }.    else if( n
af30: 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73  Switch>2 && 0==s
af40: 74 72 6e 63 6d 70 28 22 2d 66 75 6c 6c 73 68 6d  trncmp("-fullshm
af50: 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69  ", zSwitch, nSwi
af60: 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66  tch) ){.      if
af70: 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e  ( Tcl_GetBoolean
af80: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
af90: 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69 73 46 75  objv[i+1], &isFu
afa0: 6c 6c 73 68 6d 29 20 29 7b 0a 20 20 20 20 20 20  llshm) ){.      
afb0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
afc0: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
afd0: 20 20 69 66 28 20 69 73 46 75 6c 6c 73 68 6d 20    if( isFullshm 
afe0: 29 20 69 73 4e 6f 73 68 6d 20 3d 20 30 3b 0a 20  ) isNoshm = 0;. 
aff0: 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 7b 0a 20     }.    else{. 
b000: 20 20 20 20 20 67 6f 74 6f 20 62 61 64 5f 61 72       goto bad_ar
b010: 67 73 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20  gs;.    }.  }.. 
b020: 20 69 66 28 20 73 7a 4f 73 46 69 6c 65 3c 73 69   if( szOsFile<si
b030: 7a 65 6f 66 28 54 65 73 74 76 66 73 46 69 6c 65  zeof(TestvfsFile
b040: 29 20 29 7b 0a 20 20 20 20 73 7a 4f 73 46 69 6c  ) ){.    szOsFil
b050: 65 20 3d 20 73 69 7a 65 6f 66 28 54 65 73 74 76  e = sizeof(Testv
b060: 66 73 46 69 6c 65 29 3b 0a 20 20 7d 0a 0a 20 20  fsFile);.  }..  
b070: 7a 56 66 73 20 3d 20 54 63 6c 5f 47 65 74 53 74  zVfs = Tcl_GetSt
b080: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20  ring(objv[1]);. 
b090: 20 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28   nByte = sizeof(
b0a0: 54 65 73 74 76 66 73 29 20 2b 20 28 69 6e 74 29  Testvfs) + (int)
b0b0: 73 74 72 6c 65 6e 28 7a 56 66 73 29 2b 31 3b 0a  strlen(zVfs)+1;.
b0c0: 20 20 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a    p = (Testvfs *
b0d0: 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b  )ckalloc(nByte);
b0e0: 0a 20 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20  .  memset(p, 0, 
b0f0: 6e 42 79 74 65 29 3b 0a 20 20 70 2d 3e 69 44 65  nByte);.  p->iDe
b100: 76 63 68 61 72 20 3d 20 2d 31 3b 0a 20 20 70 2d  vchar = -1;.  p-
b110: 3e 69 53 65 63 74 6f 72 73 69 7a 65 20 3d 20 2d  >iSectorsize = -
b120: 31 3b 0a 0a 20 20 2f 2a 20 43 72 65 61 74 65 20  1;..  /* Create 
b130: 74 68 65 20 6e 65 77 20 6f 62 6a 65 63 74 20 63  the new object c
b140: 6f 6d 6d 61 6e 64 20 62 65 66 6f 72 65 20 71 75  ommand before qu
b150: 65 72 79 69 6e 67 20 53 51 4c 69 74 65 20 66 6f  erying SQLite fo
b160: 72 20 61 20 64 65 66 61 75 6c 74 20 56 46 53 0a  r a default VFS.
b170: 20 20 2a 2a 20 74 6f 20 75 73 65 20 66 6f 72 20    ** to use for 
b180: 27 72 65 61 6c 27 20 49 4f 20 6f 70 65 72 61 74  'real' IO operat
b190: 69 6f 6e 73 2e 20 54 68 69 73 20 69 73 20 62 65  ions. This is be
b1a0: 63 61 75 73 65 20 63 72 65 61 74 69 6e 67 20 74  cause creating t
b1b0: 68 65 20 6e 65 77 20 56 46 53 0a 20 20 2a 2a 20  he new VFS.  ** 
b1c0: 6d 61 79 20 64 65 6c 65 74 65 20 61 6e 20 65 78  may delete an ex
b1d0: 69 73 74 69 6e 67 20 5b 74 65 73 74 76 66 73 5d  isting [testvfs]
b1e0: 20 56 46 53 20 6f 66 20 74 68 65 20 73 61 6d 65   VFS of the same
b1f0: 20 6e 61 6d 65 2e 20 49 66 20 73 75 63 68 20 61   name. If such a
b200: 20 56 46 53 0a 20 20 2a 2a 20 69 73 20 63 75 72   VFS.  ** is cur
b210: 72 65 6e 74 6c 79 20 74 68 65 20 64 65 66 61 75  rently the defau
b220: 6c 74 2c 20 74 68 65 20 6e 65 77 20 5b 74 65 73  lt, the new [tes
b230: 74 76 66 73 5d 20 6d 61 79 20 65 6e 64 20 75 70  tvfs] may end up
b240: 20 63 61 6c 6c 69 6e 67 20 74 68 65 20 0a 20 20   calling the .  
b250: 2a 2a 20 6d 65 74 68 6f 64 73 20 6f 66 20 61 20  ** methods of a 
b260: 64 65 6c 65 74 65 64 20 6f 62 6a 65 63 74 2e 0a  deleted object..
b270: 20 20 2a 2f 0a 20 20 54 63 6c 5f 43 72 65 61 74    */.  Tcl_Creat
b280: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
b290: 72 70 2c 20 7a 56 66 73 2c 20 74 65 73 74 76 66  rp, zVfs, testvf
b2a0: 73 5f 6f 62 6a 5f 63 6d 64 2c 20 70 2c 20 74 65  s_obj_cmd, p, te
b2b0: 73 74 76 66 73 5f 6f 62 6a 5f 64 65 6c 29 3b 0a  stvfs_obj_del);.
b2c0: 20 20 70 2d 3e 70 50 61 72 65 6e 74 20 3d 20 73    p->pParent = s
b2d0: 71 6c 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28  qlite3_vfs_find(
b2e0: 30 29 3b 0a 20 20 70 2d 3e 69 6e 74 65 72 70 20  0);.  p->interp 
b2f0: 3d 20 69 6e 74 65 72 70 3b 0a 0a 20 20 70 2d 3e  = interp;..  p->
b300: 7a 4e 61 6d 65 20 3d 20 28 63 68 61 72 20 2a 29  zName = (char *)
b310: 26 70 5b 31 5d 3b 0a 20 20 6d 65 6d 63 70 79 28  &p[1];.  memcpy(
b320: 70 2d 3e 7a 4e 61 6d 65 2c 20 7a 56 66 73 2c 20  p->zName, zVfs, 
b330: 73 74 72 6c 65 6e 28 7a 56 66 73 29 2b 31 29 3b  strlen(zVfs)+1);
b340: 0a 0a 20 20 70 56 66 73 20 3d 20 28 73 71 6c 69  ..  pVfs = (sqli
b350: 74 65 33 5f 76 66 73 20 2a 29 63 6b 61 6c 6c 6f  te3_vfs *)ckallo
b360: 63 28 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33  c(sizeof(sqlite3
b370: 5f 76 66 73 29 29 3b 0a 20 20 6d 65 6d 63 70 79  _vfs));.  memcpy
b380: 28 70 56 66 73 2c 20 26 74 76 66 73 5f 76 66 73  (pVfs, &tvfs_vfs
b390: 2c 20 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33  , sizeof(sqlite3
b3a0: 5f 76 66 73 29 29 3b 0a 20 20 70 56 66 73 2d 3e  _vfs));.  pVfs->
b3b0: 70 41 70 70 44 61 74 61 20 3d 20 28 76 6f 69 64  pAppData = (void
b3c0: 20 2a 29 70 3b 0a 20 20 70 56 66 73 2d 3e 69 56   *)p;.  pVfs->iV
b3d0: 65 72 73 69 6f 6e 20 3d 20 69 56 65 72 73 69 6f  ersion = iVersio
b3e0: 6e 3b 0a 20 20 70 56 66 73 2d 3e 7a 4e 61 6d 65  n;.  pVfs->zName
b3f0: 20 3d 20 70 2d 3e 7a 4e 61 6d 65 3b 0a 20 20 70   = p->zName;.  p
b400: 56 66 73 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 20  Vfs->mxPathname 
b410: 3d 20 70 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78  = p->pParent->mx
b420: 50 61 74 68 6e 61 6d 65 3b 0a 20 20 69 66 28 20  Pathname;.  if( 
b430: 6d 78 50 61 74 68 6e 61 6d 65 3e 3d 30 20 26 26  mxPathname>=0 &&
b440: 20 6d 78 50 61 74 68 6e 61 6d 65 3c 70 56 66 73   mxPathname<pVfs
b450: 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 20 29 7b 0a  ->mxPathname ){.
b460: 20 20 20 20 70 56 66 73 2d 3e 6d 78 50 61 74 68      pVfs->mxPath
b470: 6e 61 6d 65 20 3d 20 6d 78 50 61 74 68 6e 61 6d  name = mxPathnam
b480: 65 3b 0a 20 20 7d 0a 20 20 70 56 66 73 2d 3e 73  e;.  }.  pVfs->s
b490: 7a 4f 73 46 69 6c 65 20 3d 20 73 7a 4f 73 46 69  zOsFile = szOsFi
b4a0: 6c 65 3b 0a 20 20 70 2d 3e 70 56 66 73 20 3d 20  le;.  p->pVfs = 
b4b0: 70 56 66 73 3b 0a 20 20 70 2d 3e 69 73 4e 6f 73  pVfs;.  p->isNos
b4c0: 68 6d 20 3d 20 69 73 4e 6f 73 68 6d 3b 0a 20 20  hm = isNoshm;.  
b4d0: 70 2d 3e 69 73 46 75 6c 6c 73 68 6d 20 3d 20 69  p->isFullshm = i
b4e0: 73 46 75 6c 6c 73 68 6d 3b 0a 20 20 70 2d 3e 6d  sFullshm;.  p->m
b4f0: 61 73 6b 20 3d 20 54 45 53 54 56 46 53 5f 41 4c  ask = TESTVFS_AL
b500: 4c 5f 4d 41 53 4b 3b 0a 0a 20 20 73 71 6c 69 74  L_MASK;..  sqlit
b510: 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 72 28  e3_vfs_register(
b520: 70 56 66 73 2c 20 69 73 44 65 66 61 75 6c 74 29  pVfs, isDefault)
b530: 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  ;..  return TCL_
b540: 4f 4b 3b 0a 0a 20 62 61 64 5f 61 72 67 73 3a 0a  OK;.. bad_args:.
b550: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
b560: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62  gs(interp, 1, ob
b570: 6a 76 2c 20 22 56 46 53 4e 41 4d 45 20 3f 2d 6e  jv, "VFSNAME ?-n
b580: 6f 73 68 6d 20 42 4f 4f 4c 3f 20 3f 2d 66 75 6c  oshm BOOL? ?-ful
b590: 6c 73 68 6d 20 42 4f 4f 4c 3f 20 3f 2d 64 65 66  lshm BOOL? ?-def
b5a0: 61 75 6c 74 20 42 4f 4f 4c 3f 20 3f 2d 6d 78 70  ault BOOL? ?-mxp
b5b0: 61 74 68 6e 61 6d 65 20 49 4e 54 3f 20 3f 2d 73  athname INT? ?-s
b5c0: 7a 6f 73 66 69 6c 65 20 49 4e 54 3f 20 3f 2d 69  zosfile INT? ?-i
b5d0: 76 65 72 73 69 6f 6e 20 49 4e 54 3f 22 29 3b 0a  version INT?");.
b5e0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
b5f0: 4f 52 3b 0a 7d 0a 0a 65 78 74 65 72 6e 20 69 6e  OR;.}..extern in
b600: 74 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28 54  t getDbPointer(T
b610: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
b620: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  p, const char *z
b630: 41 2c 20 73 71 6c 69 74 65 33 20 2a 2a 70 70 44  A, sqlite3 **ppD
b640: 62 29 3b 0a 65 78 74 65 72 6e 20 63 6f 6e 73 74  b);.extern const
b650: 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33 45 72   char *sqlite3Er
b660: 72 4e 61 6d 65 28 69 6e 74 29 3b 0a 0a 2f 2a 0a  rName(int);../*.
b670: 2a 2a 20 74 63 6c 63 6d 64 3a 20 76 66 73 5f 73  ** tclcmd: vfs_s
b680: 68 6d 6c 6f 63 6b 20 44 42 20 44 42 4e 41 4d 45  hmlock DB DBNAME
b690: 20 28 73 68 61 72 65 64 7c 65 78 63 6c 75 73 69   (shared|exclusi
b6a0: 76 65 29 20 28 6c 6f 63 6b 7c 75 6e 6c 6f 63 6b  ve) (lock|unlock
b6b0: 29 20 4f 46 46 53 45 54 20 4e 0a 2a 2f 0a 73 74  ) OFFSET N.*/.st
b6c0: 61 74 69 63 20 69 6e 74 20 53 51 4c 49 54 45 5f  atic int SQLITE_
b6d0: 54 43 4c 41 50 49 20 74 65 73 74 5f 76 66 73 5f  TCLAPI test_vfs_
b6e0: 73 68 6d 6c 6f 63 6b 28 0a 20 20 76 6f 69 64 20  shmlock(.  void 
b6f0: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20  * clientData,.  
b700: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
b710: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a  rp,.  int objc,.
b720: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54    Tcl_Obj *CONST
b730: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 6f 6e   objv[].){.  con
b740: 73 74 20 63 68 61 72 20 2a 61 7a 41 72 67 31 5b  st char *azArg1[
b750: 5d 20 3d 20 7b 22 73 68 61 72 65 64 22 2c 20 22  ] = {"shared", "
b760: 65 78 63 6c 75 73 69 76 65 22 2c 20 30 7d 3b 0a  exclusive", 0};.
b770: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a    const char *az
b780: 41 72 67 32 5b 5d 20 3d 20 7b 22 6c 6f 63 6b 22  Arg2[] = {"lock"
b790: 2c 20 22 75 6e 6c 6f 63 6b 22 2c 20 30 7d 3b 0a  , "unlock", 0};.
b7a0: 20 20 73 71 6c 69 74 65 33 20 2a 64 62 20 3d 20    sqlite3 *db = 
b7b0: 30 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  0;.  int rc = SQ
b7c0: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 63 6f 6e 73 74  LITE_OK;.  const
b7d0: 20 63 68 61 72 20 2a 7a 44 62 6e 61 6d 65 20 3d   char *zDbname =
b7e0: 20 30 3b 0a 20 20 69 6e 74 20 69 41 72 67 31 20   0;.  int iArg1 
b7f0: 3d 20 30 3b 0a 20 20 69 6e 74 20 69 41 72 67 32  = 0;.  int iArg2
b800: 20 3d 20 30 3b 0a 20 20 69 6e 74 20 69 4f 66 66   = 0;.  int iOff
b810: 73 65 74 20 3d 20 30 3b 0a 20 20 69 6e 74 20 6e  set = 0;.  int n
b820: 20 3d 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f   = 0;.  sqlite3_
b830: 66 69 6c 65 20 2a 70 46 64 3b 0a 0a 20 20 69 66  file *pFd;..  if
b840: 28 20 6f 62 6a 63 21 3d 37 20 29 7b 0a 20 20 20  ( objc!=7 ){.   
b850: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
b860: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
b870: 76 2c 20 0a 20 20 20 20 20 20 20 20 22 44 42 20  v, .        "DB 
b880: 44 42 4e 41 4d 45 20 28 73 68 61 72 65 64 7c 65  DBNAME (shared|e
b890: 78 63 6c 75 73 69 76 65 29 20 28 6c 6f 63 6b 7c  xclusive) (lock|
b8a0: 75 6e 6c 6f 63 6b 29 20 4f 46 46 53 45 54 20 4e  unlock) OFFSET N
b8b0: 22 0a 20 20 20 20 29 3b 0a 20 20 20 20 72 65 74  ".    );.    ret
b8c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
b8d0: 20 7d 0a 0a 20 20 7a 44 62 6e 61 6d 65 20 3d 20   }..  zDbname = 
b8e0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
b8f0: 6a 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 67 65  jv[2]);.  if( ge
b900: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72  tDbPointer(inter
b910: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  p, Tcl_GetString
b920: 28 6f 62 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20  (objv[1]), &db) 
b930: 0a 20 20 20 7c 7c 20 54 63 6c 5f 47 65 74 49 6e  .   || Tcl_GetIn
b940: 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  dexFromObj(inter
b950: 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 61 7a 41 72  p, objv[3], azAr
b960: 67 31 2c 20 22 41 52 47 22 2c 20 30 2c 20 26 69  g1, "ARG", 0, &i
b970: 41 72 67 31 29 20 0a 20 20 20 7c 7c 20 54 63 6c  Arg1) .   || Tcl
b980: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a  _GetIndexFromObj
b990: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d  (interp, objv[4]
b9a0: 2c 20 61 7a 41 72 67 32 2c 20 22 41 52 47 22 2c  , azArg2, "ARG",
b9b0: 20 30 2c 20 26 69 41 72 67 32 29 20 0a 20 20 20   0, &iArg2) .   
b9c0: 7c 7c 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  || Tcl_GetIntFro
b9d0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
b9e0: 76 5b 35 5d 2c 20 26 69 4f 66 66 73 65 74 29 0a  v[5], &iOffset).
b9f0: 20 20 20 7c 7c 20 54 63 6c 5f 47 65 74 49 6e 74     || Tcl_GetInt
ba00: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
ba10: 6f 62 6a 76 5b 36 5d 2c 20 26 6e 29 0a 20 20 29  objv[6], &n).  )
ba20: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  {.    return TCL
ba30: 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73  _ERROR;.  }..  s
ba40: 71 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74  qlite3_file_cont
ba50: 72 6f 6c 28 64 62 2c 20 7a 44 62 6e 61 6d 65 2c  rol(db, zDbname,
ba60: 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 46 49   SQLITE_FCNTL_FI
ba70: 4c 45 5f 50 4f 49 4e 54 45 52 2c 20 28 76 6f 69  LE_POINTER, (voi
ba80: 64 2a 29 26 70 46 64 29 3b 0a 20 20 69 66 28 20  d*)&pFd);.  if( 
ba90: 70 46 64 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65  pFd==0 ){.    re
baa0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
bab0: 20 20 7d 0a 20 20 72 63 20 3d 20 70 46 64 2d 3e    }.  rc = pFd->
bac0: 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4c 6f  pMethods->xShmLo
bad0: 63 6b 28 70 46 64 2c 20 69 4f 66 66 73 65 74 2c  ck(pFd, iOffset,
bae0: 20 6e 2c 20 0a 20 20 20 20 20 20 28 69 41 72 67   n, .      (iArg
baf0: 31 3d 3d 30 20 3f 20 53 51 4c 49 54 45 5f 53 48  1==0 ? SQLITE_SH
bb00: 4d 5f 53 48 41 52 45 44 20 3a 20 53 51 4c 49 54  M_SHARED : SQLIT
bb10: 45 5f 53 48 4d 5f 45 58 43 4c 55 53 49 56 45 29  E_SHM_EXCLUSIVE)
bb20: 0a 20 20 20 20 7c 20 28 69 41 72 67 32 3d 3d 30  .    | (iArg2==0
bb30: 20 3f 20 53 51 4c 49 54 45 5f 53 48 4d 5f 4c 4f   ? SQLITE_SHM_LO
bb40: 43 4b 20 3a 20 53 51 4c 49 54 45 5f 53 48 4d 5f  CK : SQLITE_SHM_
bb50: 55 4e 4c 4f 43 4b 29 0a 20 20 29 3b 0a 20 20 54  UNLOCK).  );.  T
bb60: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
bb70: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 53  interp, Tcl_NewS
bb80: 74 72 69 6e 67 4f 62 6a 28 73 71 6c 69 74 65 33  tringObj(sqlite3
bb90: 45 72 72 4e 61 6d 65 28 72 63 29 2c 20 2d 31 29  ErrName(rc), -1)
bba0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  );.  return TCL_
bbb0: 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  OK;.}..static in
bbc0: 74 20 53 51 4c 49 54 45 5f 54 43 4c 41 50 49 20  t SQLITE_TCLAPI 
bbd0: 74 65 73 74 5f 76 66 73 5f 73 65 74 5f 72 65 61  test_vfs_set_rea
bbe0: 64 6d 61 72 6b 28 0a 20 20 76 6f 69 64 20 2a 20  dmark(.  void * 
bbf0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63  clientData,.  Tc
bc00: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
bc10: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20  ,.  int objc,.  
bc20: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f  Tcl_Obj *CONST o
bc30: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 71 6c 69 74  bjv[].){.  sqlit
bc40: 65 33 20 2a 64 62 20 3d 20 30 3b 0a 20 20 69 6e  e3 *db = 0;.  in
bc50: 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b  t rc = SQLITE_OK
bc60: 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ;.  const char *
bc70: 7a 44 62 6e 61 6d 65 20 3d 20 30 3b 0a 20 20 69  zDbname = 0;.  i
bc80: 6e 74 20 69 53 6c 6f 74 20 3d 20 30 3b 0a 20 20  nt iSlot = 0;.  
bc90: 69 6e 74 20 69 56 61 6c 20 3d 20 2d 31 3b 0a 20  int iVal = -1;. 
bca0: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
bcb0: 46 64 3b 0a 20 20 76 6f 69 64 20 76 6f 6c 61 74  Fd;.  void volat
bcc0: 69 6c 65 20 2a 70 53 68 6d 20 3d 20 30 3b 0a 20  ile *pShm = 0;. 
bcd0: 20 75 33 32 20 2a 61 53 68 6d 3b 0a 20 20 69 6e   u32 *aShm;.  in
bce0: 74 20 69 4f 66 66 3b 0a 0a 20 20 69 66 28 20 6f  t iOff;..  if( o
bcf0: 62 6a 63 21 3d 34 20 26 26 20 6f 62 6a 63 21 3d  bjc!=4 && objc!=
bd00: 35 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f  5 ){.    Tcl_Wro
bd10: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
bd20: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 44 42 20 44  , 1, objv, "DB D
bd30: 42 4e 41 4d 45 20 53 4c 4f 54 20 3f 56 41 4c 55  BNAME SLOT ?VALU
bd40: 45 3f 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  E?");.    return
bd50: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
bd60: 0a 20 20 7a 44 62 6e 61 6d 65 20 3d 20 54 63 6c  .  zDbname = Tcl
bd70: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
bd80: 32 5d 29 3b 0a 20 20 69 66 28 20 67 65 74 44 62  2]);.  if( getDb
bd90: 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 70 2c 20  Pointer(interp, 
bda0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
bdb0: 6a 76 5b 31 5d 29 2c 20 26 64 62 29 20 0a 20 20  jv[1]), &db) .  
bdc0: 20 7c 7c 20 54 63 6c 5f 47 65 74 49 6e 74 46 72   || Tcl_GetIntFr
bdd0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
bde0: 6a 76 5b 33 5d 2c 20 26 69 53 6c 6f 74 29 0a 20  jv[3], &iSlot). 
bdf0: 20 20 7c 7c 20 28 6f 62 6a 63 3d 3d 35 20 26 26    || (objc==5 &&
be00: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f   Tcl_GetIntFromO
be10: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b  bj(interp, objv[
be20: 34 5d 2c 20 26 69 56 61 6c 29 29 0a 20 20 29 7b  4], &iVal)).  ){
be30: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
be40: 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 71  ERROR;.  }..  sq
be50: 6c 69 74 65 33 5f 66 69 6c 65 5f 63 6f 6e 74 72  lite3_file_contr
be60: 6f 6c 28 64 62 2c 20 7a 44 62 6e 61 6d 65 2c 20  ol(db, zDbname, 
be70: 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 46 49 4c  SQLITE_FCNTL_FIL
be80: 45 5f 50 4f 49 4e 54 45 52 2c 20 28 76 6f 69 64  E_POINTER, (void
be90: 2a 29 26 70 46 64 29 3b 0a 20 20 69 66 28 20 70  *)&pFd);.  if( p
bea0: 46 64 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 74  Fd==0 ){.    ret
beb0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
bec0: 20 7d 0a 20 20 72 63 20 3d 20 70 46 64 2d 3e 70   }.  rc = pFd->p
bed0: 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4d 61 70  Methods->xShmMap
bee0: 28 70 46 64 2c 20 30 2c 20 33 32 2a 31 30 32 34  (pFd, 0, 32*1024
bef0: 2c 20 30 2c 20 26 70 53 68 6d 29 3b 0a 20 20 69  , 0, &pShm);.  i
bf00: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc!=SQLITE_OK
bf10: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f   ){.    Tcl_SetO
bf20: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
bf30: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
bf40: 6a 28 73 71 6c 69 74 65 33 45 72 72 4e 61 6d 65  j(sqlite3ErrName
bf50: 28 72 63 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20  (rc), -1));.    
bf60: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
bf70: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70 53 68 6d  ;.  }.  if( pShm
bf80: 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41  ==0 ){.    Tcl_A
bf90: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
bfa0: 72 70 2c 20 22 2a 2d 73 68 6d 20 69 73 20 6e 6f  rp, "*-shm is no
bfb0: 74 20 79 65 74 20 6d 61 70 70 65 64 22 2c 20 30  t yet mapped", 0
bfc0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
bfd0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 61  L_ERROR;.  }.  a
bfe0: 53 68 6d 20 3d 20 28 75 33 32 2a 29 70 53 68 6d  Shm = (u32*)pShm
bff0: 3b 0a 20 20 69 4f 66 66 20 3d 20 31 32 2a 32 2b  ;.  iOff = 12*2+
c000: 31 2b 69 53 6c 6f 74 3b 0a 0a 20 20 69 66 28 20  1+iSlot;..  if( 
c010: 6f 62 6a 63 3d 3d 35 20 29 7b 0a 20 20 20 20 61  objc==5 ){.    a
c020: 53 68 6d 5b 69 4f 66 66 5d 20 3d 20 69 56 61 6c  Shm[iOff] = iVal
c030: 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 53 65 74 4f  ;.  }.  Tcl_SetO
c040: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
c050: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 61   Tcl_NewIntObj(a
c060: 53 68 6d 5b 69 4f 66 66 5d 29 29 3b 0a 0a 20 20  Shm[iOff]));..  
c070: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
c080: 0a 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74  ..int Sqlitetest
c090: 76 66 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74  vfs_Init(Tcl_Int
c0a0: 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20  erp *interp){.  
c0b0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
c0c0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 65  mand(interp, "te
c0d0: 73 74 76 66 73 22 2c 20 74 65 73 74 76 66 73 5f  stvfs", testvfs_
c0e0: 63 6d 64 2c 20 30 2c 20 30 29 3b 0a 20 20 54 63  cmd, 0, 0);.  Tc
c0f0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
c100: 6e 64 28 69 6e 74 65 72 70 2c 20 22 76 66 73 5f  nd(interp, "vfs_
c110: 73 68 6d 6c 6f 63 6b 22 2c 20 74 65 73 74 5f 76  shmlock", test_v
c120: 66 73 5f 73 68 6d 6c 6f 63 6b 2c 20 30 2c 20 30  fs_shmlock, 0, 0
c130: 29 3b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f  );.  Tcl_CreateO
c140: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
c150: 2c 20 22 76 66 73 5f 73 65 74 5f 72 65 61 64 6d  , "vfs_set_readm
c160: 61 72 6b 22 2c 20 74 65 73 74 5f 76 66 73 5f 73  ark", test_vfs_s
c170: 65 74 5f 72 65 61 64 6d 61 72 6b 2c 20 30 2c 20  et_readmark, 0, 
c180: 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  0);.  return TCL
c190: 5f 4f 4b 3b 0a 7d 0a 0a 23 65 6e 64 69 66 0a     _OK;.}..#endif.