/ Hex Artifact Content
Login

Artifact 8e6087a8b3dcc260282074b0efba14b76311120c:


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 0a 74 79 70 65 64 65 66  eInt.h"..typedef
0450: 20 73 74 72 75 63 74 20 54 65 73 74 76 66 73 20   struct Testvfs 
0460: 54 65 73 74 76 66 73 3b 0a 74 79 70 65 64 65 66  Testvfs;.typedef
0470: 20 73 74 72 75 63 74 20 54 65 73 74 76 66 73 53   struct TestvfsS
0480: 68 6d 20 54 65 73 74 76 66 73 53 68 6d 3b 0a 74  hm TestvfsShm;.t
0490: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54 65  ypedef struct Te
04a0: 73 74 76 66 73 42 75 66 66 65 72 20 54 65 73 74  stvfsBuffer Test
04b0: 76 66 73 42 75 66 66 65 72 3b 0a 74 79 70 65 64  vfsBuffer;.typed
04c0: 65 66 20 73 74 72 75 63 74 20 54 65 73 74 76 66  ef struct Testvf
04d0: 73 46 69 6c 65 20 54 65 73 74 76 66 73 46 69 6c  sFile TestvfsFil
04e0: 65 3b 0a 74 79 70 65 64 65 66 20 73 74 72 75 63  e;.typedef struc
04f0: 74 20 54 65 73 74 76 66 73 46 64 20 54 65 73 74  t TestvfsFd Test
0500: 76 66 73 46 64 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e  vfsFd;../*.** An
0510: 20 6f 70 65 6e 20 66 69 6c 65 20 68 61 6e 64 6c   open file handl
0520: 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65 73  e..*/.struct Tes
0530: 74 76 66 73 46 69 6c 65 20 7b 0a 20 20 73 71 6c  tvfsFile {.  sql
0540: 69 74 65 33 5f 66 69 6c 65 20 62 61 73 65 3b 20  ite3_file base; 
0550: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0560: 42 61 73 65 20 63 6c 61 73 73 2e 20 20 4d 75 73  Base class.  Mus
0570: 74 20 62 65 20 66 69 72 73 74 20 2a 2f 0a 20 20  t be first */.  
0580: 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 3b 20  TestvfsFd *pFd; 
0590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
05a0: 2f 2a 20 46 69 6c 65 20 64 61 74 61 20 2a 2f 0a  /* File data */.
05b0: 7d 3b 0a 23 64 65 66 69 6e 65 20 74 76 66 73 47  };.#define tvfsG
05c0: 65 74 46 64 28 70 46 69 6c 65 29 20 28 28 28 54  etFd(pFile) (((T
05d0: 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69  estvfsFile *)pFi
05e0: 6c 65 29 2d 3e 70 46 64 29 0a 0a 73 74 72 75 63  le)->pFd)..struc
05f0: 74 20 54 65 73 74 76 66 73 46 64 20 7b 0a 20 20  t TestvfsFd {.  
0600: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
0610: 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s;              
0620: 2f 2a 20 54 68 65 20 56 46 53 20 2a 2f 0a 20 20  /* The VFS */.  
0630: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c  const char *zFil
0640: 65 6e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20  ename;          
0650: 2f 2a 20 46 69 6c 65 6e 61 6d 65 20 61 73 20 70  /* Filename as p
0660: 61 73 73 65 64 20 74 6f 20 78 4f 70 65 6e 28 29  assed to xOpen()
0670: 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 66 69   */.  sqlite3_fi
0680: 6c 65 20 2a 70 52 65 61 6c 3b 20 20 20 20 20 20  le *pReal;      
0690: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 72 65 61        /* The rea
06a0: 6c 2c 20 75 6e 64 65 72 6c 79 69 6e 67 20 66 69  l, underlying fi
06b0: 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 2a 2f  le descriptor */
06c0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 68 6d  .  Tcl_Obj *pShm
06d0: 49 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  Id;             
06e0: 20 20 20 2f 2a 20 53 68 61 72 65 64 20 6d 65 6d     /* Shared mem
06f0: 6f 72 79 20 69 64 20 66 6f 72 20 54 63 6c 20 63  ory id for Tcl c
0700: 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 0a 20 20 54  allbacks */..  T
0710: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 53  estvfsBuffer *pS
0720: 68 6d 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f  hm;            /
0730: 2a 20 53 68 61 72 65 64 20 6d 65 6d 6f 72 79 20  * Shared memory 
0740: 62 75 66 66 65 72 20 2a 2f 0a 20 20 75 33 32 20  buffer */.  u32 
0750: 65 78 63 6c 6c 6f 63 6b 3b 20 20 20 20 20 20 20  excllock;       
0760: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4d              /* M
0770: 61 73 6b 20 6f 66 20 65 78 63 6c 75 73 69 76 65  ask of exclusive
0780: 20 6c 6f 63 6b 73 20 2a 2f 0a 20 20 75 33 32 20   locks */.  u32 
0790: 73 68 61 72 65 64 6c 6f 63 6b 3b 20 20 20 20 20  sharedlock;     
07a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4d              /* M
07b0: 61 73 6b 20 6f 66 20 73 68 61 72 65 64 20 6c 6f  ask of shared lo
07c0: 63 6b 73 20 2a 2f 0a 20 20 54 65 73 74 76 66 73  cks */.  Testvfs
07d0: 46 64 20 2a 70 4e 65 78 74 3b 20 20 20 20 20 20  Fd *pNext;      
07e0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 78 74           /* Next
07f0: 20 68 61 6e 64 6c 65 20 6f 70 65 6e 65 64 20 6f   handle opened o
0800: 6e 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20  n the same file 
0810: 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66 69 6e 65 20  */.};...#define 
0820: 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 4e 4f 4e  FAULT_INJECT_NON
0830: 45 20 20 20 20 20 20 20 30 0a 23 64 65 66 69 6e  E       0.#defin
0840: 65 20 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 54  e FAULT_INJECT_T
0850: 52 41 4e 53 49 45 4e 54 20 20 31 0a 23 64 65 66  RANSIENT  1.#def
0860: 69 6e 65 20 46 41 55 4c 54 5f 49 4e 4a 45 43 54  ine FAULT_INJECT
0870: 5f 50 45 52 53 49 53 54 45 4e 54 20 32 0a 0a 74  _PERSISTENT 2..t
0880: 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54 65  ypedef struct Te
0890: 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 54 65  stFaultInject Te
08a0: 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 3b 0a 73  stFaultInject;.s
08b0: 74 72 75 63 74 20 54 65 73 74 46 61 75 6c 74 49  truct TestFaultI
08c0: 6e 6a 65 63 74 20 7b 0a 20 20 69 6e 74 20 69 43  nject {.  int iC
08d0: 6e 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  nt;             
08e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 6d            /* Rem
08f0: 61 69 6e 69 6e 67 20 63 61 6c 6c 73 20 62 65 66  aining calls bef
0900: 6f 72 65 20 66 61 75 6c 74 20 69 6e 6a 65 63 74  ore fault inject
0910: 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 65 46 61  ion */.  int eFa
0920: 75 6c 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  ult;            
0930: 20 20 20 20 20 20 20 20 20 2f 2a 20 41 20 46 41           /* A FA
0940: 55 4c 54 5f 49 4e 4a 45 43 54 5f 2a 20 76 61 6c  ULT_INJECT_* val
0950: 75 65 20 2a 2f 0a 20 20 69 6e 74 20 6e 46 61 69  ue */.  int nFai
0960: 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l;              
0970: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65          /* Numbe
0980: 72 20 6f 66 20 66 61 75 6c 74 73 20 69 6e 6a 65  r of faults inje
0990: 63 74 65 64 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a  cted */.};../*.*
09a0: 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66  * An instance of
09b0: 20 74 68 69 73 20 73 74 72 75 63 74 75 72 65 20   this structure 
09c0: 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72  is allocated for
09d0: 20 65 61 63 68 20 56 46 53 20 63 72 65 61 74 65   each VFS create
09e0: 64 2e 20 54 68 65 0a 2a 2a 20 73 71 6c 69 74 65  d. The.** sqlite
09f0: 33 5f 76 66 73 2e 70 41 70 70 44 61 74 61 20 66  3_vfs.pAppData f
0a00: 69 65 6c 64 20 6f 66 20 74 68 65 20 56 46 53 20  ield of the VFS 
0a10: 73 74 72 75 63 74 75 72 65 20 72 65 67 69 73 74  structure regist
0a20: 65 72 65 64 20 77 69 74 68 20 53 51 4c 69 74 65  ered with SQLite
0a30: 0a 2a 2a 20 69 73 20 73 65 74 20 74 6f 20 70 6f  .** is set to po
0a40: 69 6e 74 20 74 6f 20 69 74 2e 0a 2a 2f 0a 73 74  int to it..*/.st
0a50: 72 75 63 74 20 54 65 73 74 76 66 73 20 7b 0a 20  ruct Testvfs {. 
0a60: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 20 20 20   char *zName;   
0a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a80: 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 69 73   /* Name of this
0a90: 20 56 46 53 20 2a 2f 0a 20 20 73 71 6c 69 74 65   VFS */.  sqlite
0aa0: 33 5f 76 66 73 20 2a 70 50 61 72 65 6e 74 3b 20  3_vfs *pParent; 
0ab0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65            /* The
0ac0: 20 56 46 53 20 74 6f 20 75 73 65 20 66 6f 72 20   VFS to use for 
0ad0: 66 69 6c 65 20 49 4f 20 2a 2f 0a 20 20 73 71 6c  file IO */.  sql
0ae0: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b 20  ite3_vfs *pVfs; 
0af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0b00: 54 68 65 20 74 65 73 74 76 66 73 20 72 65 67 69  The testvfs regi
0b10: 73 74 65 72 65 64 20 77 69 74 68 20 53 51 4c 69  stered with SQLi
0b20: 74 65 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65  te */.  Tcl_Inte
0b30: 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 20 20  rp *interp;     
0b40: 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 74 65 72          /* Inter
0b50: 70 72 65 74 65 72 20 74 6f 20 72 75 6e 20 73 63  preter to run sc
0b60: 72 69 70 74 20 69 6e 20 2a 2f 0a 20 20 54 63 6c  ript in */.  Tcl
0b70: 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74 3b 20 20  _Obj *pScript;  
0b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0b90: 53 63 72 69 70 74 20 74 6f 20 65 78 65 63 75 74  Script to execut
0ba0: 65 20 2a 2f 0a 20 20 54 65 73 74 76 66 73 42 75  e */.  TestvfsBu
0bb0: 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b 20 20  ffer *pBuffer;  
0bc0: 20 20 20 20 20 20 20 2f 2a 20 4c 69 73 74 20 6f         /* List o
0bd0: 66 20 73 68 61 72 65 64 20 62 75 66 66 65 72 73  f shared buffers
0be0: 20 2a 2f 0a 20 20 69 6e 74 20 69 73 4e 6f 73 68   */.  int isNosh
0bf0: 6d 3b 0a 20 20 69 6e 74 20 69 73 46 75 6c 6c 73  m;.  int isFulls
0c00: 68 6d 3b 0a 0a 20 20 69 6e 74 20 6d 61 73 6b 3b  hm;..  int mask;
0c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c20: 20 20 20 20 20 20 20 2f 2a 20 4d 61 73 6b 20 63         /* Mask c
0c30: 6f 6e 74 72 6f 6c 6c 69 6e 67 20 5b 73 63 72 69  ontrolling [scri
0c40: 70 74 5d 20 61 6e 64 20 5b 69 6f 65 72 72 5d 20  pt] and [ioerr] 
0c50: 2a 2f 0a 0a 20 20 54 65 73 74 46 61 75 6c 74 49  */..  TestFaultI
0c60: 6e 6a 65 63 74 20 69 6f 65 72 72 5f 65 72 72 3b  nject ioerr_err;
0c70: 0a 20 20 54 65 73 74 46 61 75 6c 74 49 6e 6a 65  .  TestFaultInje
0c80: 63 74 20 66 75 6c 6c 5f 65 72 72 3b 0a 20 20 54  ct full_err;.  T
0c90: 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 63  estFaultInject c
0ca0: 61 6e 74 6f 70 65 6e 5f 65 72 72 3b 0a 0a 23 69  antopen_err;..#i
0cb0: 66 20 30 0a 20 20 69 6e 74 20 69 49 6f 65 72 72  f 0.  int iIoerr
0cc0: 43 6e 74 3b 0a 20 20 69 6e 74 20 69 6f 65 72 72  Cnt;.  int ioerr
0cd0: 3b 0a 20 20 69 6e 74 20 6e 49 6f 65 72 72 46 61  ;.  int nIoerrFa
0ce0: 69 6c 3b 0a 20 20 69 6e 74 20 69 46 75 6c 6c 43  il;.  int iFullC
0cf0: 6e 74 3b 0a 20 20 69 6e 74 20 66 75 6c 6c 65 72  nt;.  int fuller
0d00: 72 3b 0a 20 20 69 6e 74 20 6e 46 75 6c 6c 46 61  r;.  int nFullFa
0d10: 69 6c 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 69 6e  il;.#endif..  in
0d20: 74 20 69 44 65 76 63 68 61 72 3b 0a 20 20 69 6e  t iDevchar;.  in
0d30: 74 20 69 53 65 63 74 6f 72 73 69 7a 65 3b 0a 7d  t iSectorsize;.}
0d40: 3b 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 54 65 73  ;../*.** The Tes
0d50: 74 76 66 73 2e 6d 61 73 6b 20 76 61 72 69 61 62  tvfs.mask variab
0d60: 6c 65 20 69 73 20 73 65 74 20 74 6f 20 61 20 63  le is set to a c
0d70: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68  ombination of th
0d80: 65 20 66 6f 6c 6c 6f 77 69 6e 67 2e 0a 2a 2a 20  e following..** 
0d90: 49 66 20 61 20 62 69 74 20 69 73 20 63 6c 65 61  If a bit is clea
0da0: 72 20 69 6e 20 54 65 73 74 76 66 73 2e 6d 61 73  r in Testvfs.mas
0db0: 6b 2c 20 74 68 65 6e 20 63 61 6c 6c 73 20 6d 61  k, then calls ma
0dc0: 64 65 20 62 79 20 53 51 4c 69 74 65 20 74 6f 20  de by SQLite to 
0dd0: 74 68 65 20 0a 2a 2a 20 63 6f 72 72 65 73 70 6f  the .** correspo
0de0: 6e 64 69 6e 67 20 56 46 53 20 6d 65 74 68 6f 64  nding VFS method
0df0: 20 69 73 20 69 67 6e 6f 72 65 64 20 66 6f 72 20   is ignored for 
0e00: 70 75 72 70 6f 73 65 73 20 6f 66 3a 0a 2a 2a 0a  purposes of:.**.
0e10: 2a 2a 20 20 20 2b 20 53 69 6d 75 6c 61 74 69 6e  **   + Simulatin
0e20: 67 20 49 4f 20 65 72 72 6f 72 73 2c 20 61 6e 64  g IO errors, and
0e30: 0a 2a 2a 20 20 20 2b 20 49 6e 76 6f 6b 69 6e 67  .**   + Invoking
0e40: 20 74 68 65 20 54 63 6c 20 63 61 6c 6c 62 61 63   the Tcl callbac
0e50: 6b 20 73 63 72 69 70 74 2e 0a 2a 2f 0a 23 64 65  k script..*/.#de
0e60: 66 69 6e 65 20 54 45 53 54 56 46 53 5f 53 48 4d  fine TESTVFS_SHM
0e70: 4f 50 45 4e 5f 4d 41 53 4b 20 20 20 20 20 20 30  OPEN_MASK      0
0e80: 78 30 30 30 30 30 30 30 31 0a 23 64 65 66 69 6e  x00000001.#defin
0e90: 65 20 54 45 53 54 56 46 53 5f 53 48 4d 4c 4f 43  e TESTVFS_SHMLOC
0ea0: 4b 5f 4d 41 53 4b 20 20 20 20 20 20 30 78 30 30  K_MASK      0x00
0eb0: 30 30 30 30 31 30 0a 23 64 65 66 69 6e 65 20 54  000010.#define T
0ec0: 45 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41  ESTVFS_SHMMAP_MA
0ed0: 53 4b 20 20 20 20 20 20 20 30 78 30 30 30 30 30  SK       0x00000
0ee0: 30 32 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54  020.#define TEST
0ef0: 56 46 53 5f 53 48 4d 42 41 52 52 49 45 52 5f 4d  VFS_SHMBARRIER_M
0f00: 41 53 4b 20 20 20 30 78 30 30 30 30 30 30 34 30  ASK   0x00000040
0f10: 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53  .#define TESTVFS
0f20: 5f 53 48 4d 43 4c 4f 53 45 5f 4d 41 53 4b 20 20  _SHMCLOSE_MASK  
0f30: 20 20 20 30 78 30 30 30 30 30 30 38 30 0a 0a 23     0x00000080..#
0f40: 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 4f  define TESTVFS_O
0f50: 50 45 4e 5f 4d 41 53 4b 20 20 20 20 20 20 20 20  PEN_MASK        
0f60: 20 30 78 30 30 30 30 30 31 30 30 0a 23 64 65 66   0x00000100.#def
0f70: 69 6e 65 20 54 45 53 54 56 46 53 5f 53 59 4e 43  ine TESTVFS_SYNC
0f80: 5f 4d 41 53 4b 20 20 20 20 20 20 20 20 20 30 78  _MASK         0x
0f90: 30 30 30 30 30 32 30 30 0a 23 64 65 66 69 6e 65  00000200.#define
0fa0: 20 54 45 53 54 56 46 53 5f 44 45 4c 45 54 45 5f   TESTVFS_DELETE_
0fb0: 4d 41 53 4b 20 20 20 20 20 20 20 30 78 30 30 30  MASK       0x000
0fc0: 30 30 34 30 30 0a 23 64 65 66 69 6e 65 20 54 45  00400.#define TE
0fd0: 53 54 56 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b  STVFS_CLOSE_MASK
0fe0: 20 20 20 20 20 20 20 20 30 78 30 30 30 30 30 38          0x000008
0ff0: 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56  00.#define TESTV
1000: 46 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20 20 20  FS_WRITE_MASK   
1010: 20 20 20 20 20 30 78 30 30 30 30 31 30 30 30 0a       0x00001000.
1020: 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f  #define TESTVFS_
1030: 54 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20 20 20  TRUNCATE_MASK   
1040: 20 20 30 78 30 30 30 30 32 30 30 30 0a 23 64 65    0x00002000.#de
1050: 66 69 6e 65 20 54 45 53 54 56 46 53 5f 41 43 43  fine TESTVFS_ACC
1060: 45 53 53 5f 4d 41 53 4b 20 20 20 20 20 20 20 30  ESS_MASK       0
1070: 78 30 30 30 30 34 30 30 30 0a 23 64 65 66 69 6e  x00004000.#defin
1080: 65 20 54 45 53 54 56 46 53 5f 46 55 4c 4c 50 41  e TESTVFS_FULLPA
1090: 54 48 4e 41 4d 45 5f 4d 41 53 4b 20 30 78 30 30  THNAME_MASK 0x00
10a0: 30 30 38 30 30 30 0a 23 64 65 66 69 6e 65 20 54  008000.#define T
10b0: 45 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b  ESTVFS_READ_MASK
10c0: 20 20 20 20 20 20 20 20 20 30 78 30 30 30 31 30           0x00010
10d0: 30 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54  000.#define TEST
10e0: 56 46 53 5f 55 4e 4c 4f 43 4b 5f 4d 41 53 4b 20  VFS_UNLOCK_MASK 
10f0: 20 20 20 20 20 20 30 78 30 30 30 32 30 30 30 30        0x00020000
1100: 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46  ..#define TESTVF
1110: 53 5f 41 4c 4c 5f 4d 41 53 4b 20 20 20 20 20 20  S_ALL_MASK      
1120: 20 20 20 20 30 78 30 30 30 33 46 46 46 46 0a 0a      0x0003FFFF..
1130: 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53  .#define TESTVFS
1140: 5f 4d 41 58 5f 50 41 47 45 53 20 31 30 32 34 0a  _MAX_PAGES 1024.
1150: 0a 2f 2a 0a 2a 2a 20 41 20 73 68 61 72 65 64 2d  ./*.** A shared-
1160: 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 2e 20 54  memory buffer. T
1170: 68 65 72 65 20 69 73 20 6f 6e 65 20 6f 66 20 74  here is one of t
1180: 68 65 73 65 20 6f 62 6a 65 63 74 73 20 66 6f 72  hese objects for
1190: 20 65 61 63 68 20 73 68 61 72 65 64 0a 2a 2a 20   each shared.** 
11a0: 6d 65 6d 6f 72 79 20 72 65 67 69 6f 6e 20 6f 70  memory region op
11b0: 65 6e 65 64 20 62 79 20 63 6c 69 65 6e 74 73 2e  ened by clients.
11c0: 20 49 66 20 74 77 6f 20 63 6c 69 65 6e 74 73 20   If two clients 
11d0: 6f 70 65 6e 20 74 68 65 20 73 61 6d 65 20 66 69  open the same fi
11e0: 6c 65 2c 0a 2a 2a 20 74 68 65 72 65 20 61 72 65  le,.** there are
11f0: 20 74 77 6f 20 54 65 73 74 76 66 73 46 69 6c 65   two TestvfsFile
1200: 20 73 74 72 75 63 74 75 72 65 73 20 62 75 74 20   structures but 
1210: 6f 6e 6c 79 20 6f 6e 65 20 54 65 73 74 76 66 73  only one Testvfs
1220: 42 75 66 66 65 72 20 73 74 72 75 63 74 75 72 65  Buffer structure
1230: 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65 73 74  ..*/.struct Test
1240: 76 66 73 42 75 66 66 65 72 20 7b 0a 20 20 63 68  vfsBuffer {.  ch
1250: 61 72 20 2a 7a 46 69 6c 65 3b 20 20 20 20 20 20  ar *zFile;      
1260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1270: 20 41 73 73 6f 63 69 61 74 65 64 20 66 69 6c 65   Associated file
1280: 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e 74 20 70   name */.  int p
1290: 67 73 7a 3b 20 20 20 20 20 20 20 20 20 20 20 20  gsz;            
12a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50 61             /* Pa
12b0: 67 65 20 73 69 7a 65 20 2a 2f 0a 20 20 75 38 20  ge size */.  u8 
12c0: 2a 61 50 61 67 65 5b 54 45 53 54 56 46 53 5f 4d  *aPage[TESTVFS_M
12d0: 41 58 5f 50 41 47 45 53 5d 3b 20 20 20 2f 2a 20  AX_PAGES];   /* 
12e0: 41 72 72 61 79 20 6f 66 20 63 6b 61 6c 6c 6f 63  Array of ckalloc
12f0: 27 64 20 70 61 67 65 73 20 2a 2f 0a 20 20 54 65  'd pages */.  Te
1300: 73 74 76 66 73 46 64 20 2a 70 46 69 6c 65 3b 20  stvfsFd *pFile; 
1310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1320: 20 4c 69 73 74 20 6f 66 20 6f 70 65 6e 20 68 61   List of open ha
1330: 6e 64 6c 65 73 20 2a 2f 0a 20 20 54 65 73 74 76  ndles */.  Testv
1340: 66 73 42 75 66 66 65 72 20 2a 70 4e 65 78 74 3b  fsBuffer *pNext;
1350: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65             /* Ne
1360: 78 74 20 69 6e 20 6c 69 6e 6b 65 64 20 6c 69 73  xt in linked lis
1370: 74 20 6f 66 20 61 6c 6c 20 62 75 66 66 65 72 73  t of all buffers
1380: 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66 69 6e 65   */.};...#define
1390: 20 50 41 52 45 4e 54 56 46 53 28 78 29 20 28 28   PARENTVFS(x) ((
13a0: 28 54 65 73 74 76 66 73 20 2a 29 28 28 78 29 2d  (Testvfs *)((x)-
13b0: 3e 70 41 70 70 44 61 74 61 29 29 2d 3e 70 50 61  >pAppData))->pPa
13c0: 72 65 6e 74 29 0a 0a 23 64 65 66 69 6e 65 20 54  rent)..#define T
13d0: 45 53 54 56 46 53 5f 4d 41 58 5f 41 52 47 53 20  ESTVFS_MAX_ARGS 
13e0: 31 32 0a 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74 68 6f  12.../*.** Metho
13f0: 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 66  d declarations f
1400: 6f 72 20 54 65 73 74 76 66 73 46 69 6c 65 2e 0a  or TestvfsFile..
1410: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
1420: 66 73 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f  fsClose(sqlite3_
1430: 66 69 6c 65 2a 29 3b 0a 73 74 61 74 69 63 20 69  file*);.static i
1440: 6e 74 20 74 76 66 73 52 65 61 64 28 73 71 6c 69  nt tvfsRead(sqli
1450: 74 65 33 5f 66 69 6c 65 2a 2c 20 76 6f 69 64 2a  te3_file*, void*
1460: 2c 20 69 6e 74 20 69 41 6d 74 2c 20 73 71 6c 69  , int iAmt, sqli
1470: 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74 29  te3_int64 iOfst)
1480: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
1490: 73 57 72 69 74 65 28 73 71 6c 69 74 65 33 5f 66  sWrite(sqlite3_f
14a0: 69 6c 65 2a 2c 63 6f 6e 73 74 20 76 6f 69 64 2a  ile*,const void*
14b0: 2c 69 6e 74 20 69 41 6d 74 2c 20 73 71 6c 69 74  ,int iAmt, sqlit
14c0: 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74 29 3b  e3_int64 iOfst);
14d0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
14e0: 54 72 75 6e 63 61 74 65 28 73 71 6c 69 74 65 33  Truncate(sqlite3
14f0: 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33 5f  _file*, sqlite3_
1500: 69 6e 74 36 34 20 73 69 7a 65 29 3b 0a 73 74 61  int64 size);.sta
1510: 74 69 63 20 69 6e 74 20 74 76 66 73 53 79 6e 63  tic int tvfsSync
1520: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20  (sqlite3_file*, 
1530: 69 6e 74 20 66 6c 61 67 73 29 3b 0a 73 74 61 74  int flags);.stat
1540: 69 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65 53  ic int tvfsFileS
1550: 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ize(sqlite3_file
1560: 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34  *, sqlite3_int64
1570: 20 2a 70 53 69 7a 65 29 3b 0a 73 74 61 74 69 63   *pSize);.static
1580: 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28 73 71   int tvfsLock(sq
1590: 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74  lite3_file*, int
15a0: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
15b0: 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69 74 65 33  fsUnlock(sqlite3
15c0: 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b 0a 73 74  _file*, int);.st
15d0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 43 68 65  atic int tvfsChe
15e0: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 73  ckReservedLock(s
15f0: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e  qlite3_file*, in
1600: 74 20 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  t *);.static int
1610: 20 74 76 66 73 46 69 6c 65 43 6f 6e 74 72 6f 6c   tvfsFileControl
1620: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20  (sqlite3_file*, 
1630: 69 6e 74 20 6f 70 2c 20 76 6f 69 64 20 2a 70 41  int op, void *pA
1640: 72 67 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  rg);.static int 
1650: 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65 28 73  tvfsSectorSize(s
1660: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a 73  qlite3_file*);.s
1670: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44 65  tatic int tvfsDe
1680: 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73 74  viceCharacterist
1690: 69 63 73 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ics(sqlite3_file
16a0: 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74 68 6f  *);../*.** Metho
16b0: 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20 66  d declarations f
16c0: 6f 72 20 74 76 66 73 5f 76 66 73 2e 0a 2a 2f 0a  or tvfs_vfs..*/.
16d0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 4f  static int tvfsO
16e0: 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 66 73 2a  pen(sqlite3_vfs*
16f0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2c 20  , const char *, 
1700: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69  sqlite3_file*, i
1710: 6e 74 20 2c 20 69 6e 74 20 2a 29 3b 0a 73 74 61  nt , int *);.sta
1720: 74 69 63 20 69 6e 74 20 74 76 66 73 44 65 6c 65  tic int tvfsDele
1730: 74 65 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c  te(sqlite3_vfs*,
1740: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61   const char *zNa
1750: 6d 65 2c 20 69 6e 74 20 73 79 6e 63 44 69 72 29  me, int syncDir)
1760: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
1770: 73 41 63 63 65 73 73 28 73 71 6c 69 74 65 33 5f  sAccess(sqlite3_
1780: 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72  vfs*, const char
1790: 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 66 6c 61   *zName, int fla
17a0: 67 73 2c 20 69 6e 74 20 2a 29 3b 0a 73 74 61 74  gs, int *);.stat
17b0: 69 63 20 69 6e 74 20 74 76 66 73 46 75 6c 6c 50  ic int tvfsFullP
17c0: 61 74 68 6e 61 6d 65 28 73 71 6c 69 74 65 33 5f  athname(sqlite3_
17d0: 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72  vfs*, const char
17e0: 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 2c 20 63 68   *zName, int, ch
17f0: 61 72 20 2a 7a 4f 75 74 29 3b 0a 23 69 66 6e 64  ar *zOut);.#ifnd
1800: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c  ef SQLITE_OMIT_L
1810: 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 73 74  OAD_EXTENSION.st
1820: 61 74 69 63 20 76 6f 69 64 20 2a 74 76 66 73 44  atic void *tvfsD
1830: 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 66  lOpen(sqlite3_vf
1840: 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  s*, const char *
1850: 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 73 74 61 74  zFilename);.stat
1860: 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c 45 72  ic void tvfsDlEr
1870: 72 6f 72 28 73 71 6c 69 74 65 33 5f 76 66 73 2a  ror(sqlite3_vfs*
1880: 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63 68 61  , int nByte, cha
1890: 72 20 2a 7a 45 72 72 4d 73 67 29 3b 0a 73 74 61  r *zErrMsg);.sta
18a0: 74 69 63 20 76 6f 69 64 20 28 2a 74 76 66 73 44  tic void (*tvfsD
18b0: 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f 76 66 73  lSym(sqlite3_vfs
18c0: 2a 2c 76 6f 69 64 2a 2c 20 63 6f 6e 73 74 20 63  *,void*, const c
18d0: 68 61 72 20 2a 7a 53 79 6d 62 6f 6c 29 29 28 76  har *zSymbol))(v
18e0: 6f 69 64 29 3b 0a 73 74 61 74 69 63 20 76 6f 69  oid);.static voi
18f0: 64 20 74 76 66 73 44 6c 43 6c 6f 73 65 28 73 71  d tvfsDlClose(sq
1900: 6c 69 74 65 33 5f 76 66 73 2a 2c 20 76 6f 69 64  lite3_vfs*, void
1910: 2a 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51  *);.#endif /* SQ
1920: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45  LITE_OMIT_LOAD_E
1930: 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 73 74 61 74  XTENSION */.stat
1940: 69 63 20 69 6e 74 20 74 76 66 73 52 61 6e 64 6f  ic int tvfsRando
1950: 6d 6e 65 73 73 28 73 71 6c 69 74 65 33 5f 76 66  mness(sqlite3_vf
1960: 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63  s*, int nByte, c
1970: 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 73 74 61 74  har *zOut);.stat
1980: 69 63 20 69 6e 74 20 74 76 66 73 53 6c 65 65 70  ic int tvfsSleep
1990: 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 69  (sqlite3_vfs*, i
19a0: 6e 74 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 29  nt microseconds)
19b0: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
19c0: 73 43 75 72 72 65 6e 74 54 69 6d 65 28 73 71 6c  sCurrentTime(sql
19d0: 69 74 65 33 5f 76 66 73 2a 2c 20 64 6f 75 62 6c  ite3_vfs*, doubl
19e0: 65 2a 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74  e*);..static int
19f0: 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 73 71 6c   tvfsShmOpen(sql
1a00: 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a 73 74 61  ite3_file*);.sta
1a10: 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d 4c  tic int tvfsShmL
1a20: 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ock(sqlite3_file
1a30: 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 2c 20 69 6e  *, int , int, in
1a40: 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  t);.static int t
1a50: 76 66 73 53 68 6d 4d 61 70 28 73 71 6c 69 74 65  vfsShmMap(sqlite
1a60: 33 5f 66 69 6c 65 2a 2c 69 6e 74 2c 69 6e 74 2c  3_file*,int,int,
1a70: 69 6e 74 2c 20 76 6f 69 64 20 76 6f 6c 61 74 69  int, void volati
1a80: 6c 65 20 2a 2a 29 3b 0a 73 74 61 74 69 63 20 76  le **);.static v
1a90: 6f 69 64 20 74 76 66 73 53 68 6d 42 61 72 72 69  oid tvfsShmBarri
1aa0: 65 72 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  er(sqlite3_file*
1ab0: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
1ac0: 66 73 53 68 6d 55 6e 6d 61 70 28 73 71 6c 69 74  fsShmUnmap(sqlit
1ad0: 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b 0a  e3_file*, int);.
1ae0: 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f  .static sqlite3_
1af0: 69 6f 5f 6d 65 74 68 6f 64 73 20 74 76 66 73 5f  io_methods tvfs_
1b00: 69 6f 5f 6d 65 74 68 6f 64 73 20 3d 20 7b 0a 20  io_methods = {. 
1b10: 20 32 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   2,             
1b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b30: 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a   /* iVersion */.
1b40: 20 20 74 76 66 73 43 6c 6f 73 65 2c 20 20 20 20    tvfsClose,    
1b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b60: 20 20 2f 2a 20 78 43 6c 6f 73 65 20 2a 2f 0a 20    /* xClose */. 
1b70: 20 74 76 66 73 52 65 61 64 2c 20 20 20 20 20 20   tvfsRead,      
1b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b90: 20 2f 2a 20 78 52 65 61 64 20 2a 2f 0a 20 20 74   /* xRead */.  t
1ba0: 76 66 73 57 72 69 74 65 2c 20 20 20 20 20 20 20  vfsWrite,       
1bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1bc0: 2a 20 78 57 72 69 74 65 20 2a 2f 0a 20 20 74 76  * xWrite */.  tv
1bd0: 66 73 54 72 75 6e 63 61 74 65 2c 20 20 20 20 20  fsTruncate,     
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1bf0: 20 78 54 72 75 6e 63 61 74 65 20 2a 2f 0a 20 20   xTruncate */.  
1c00: 74 76 66 73 53 79 6e 63 2c 20 20 20 20 20 20 20  tvfsSync,       
1c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c20: 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 74 76  /* xSync */.  tv
1c30: 66 73 46 69 6c 65 53 69 7a 65 2c 20 20 20 20 20  fsFileSize,     
1c40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1c50: 20 78 46 69 6c 65 53 69 7a 65 20 2a 2f 0a 20 20   xFileSize */.  
1c60: 74 76 66 73 4c 6f 63 6b 2c 20 20 20 20 20 20 20  tvfsLock,       
1c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c80: 2f 2a 20 78 4c 6f 63 6b 20 2a 2f 0a 20 20 74 76  /* xLock */.  tv
1c90: 66 73 55 6e 6c 6f 63 6b 2c 20 20 20 20 20 20 20  fsUnlock,       
1ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1cb0: 20 78 55 6e 6c 6f 63 6b 20 2a 2f 0a 20 20 74 76   xUnlock */.  tv
1cc0: 66 73 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c  fsCheckReservedL
1cd0: 6f 63 6b 2c 20 20 20 20 20 20 20 20 20 20 2f 2a  ock,          /*
1ce0: 20 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c   xCheckReservedL
1cf0: 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73 46 69 6c  ock */.  tvfsFil
1d00: 65 43 6f 6e 74 72 6f 6c 2c 20 20 20 20 20 20 20  eControl,       
1d10: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6c           /* xFil
1d20: 65 43 6f 6e 74 72 6f 6c 20 2a 2f 0a 20 20 74 76  eControl */.  tv
1d30: 66 73 53 65 63 74 6f 72 53 69 7a 65 2c 20 20 20  fsSectorSize,   
1d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1d50: 20 78 53 65 63 74 6f 72 53 69 7a 65 20 2a 2f 0a   xSectorSize */.
1d60: 20 20 74 76 66 73 44 65 76 69 63 65 43 68 61 72    tvfsDeviceChar
1d70: 61 63 74 65 72 69 73 74 69 63 73 2c 20 20 20 20  acteristics,    
1d80: 20 20 2f 2a 20 78 44 65 76 69 63 65 43 68 61 72    /* xDeviceChar
1d90: 61 63 74 65 72 69 73 74 69 63 73 20 2a 2f 0a 20  acteristics */. 
1da0: 20 74 76 66 73 53 68 6d 4d 61 70 2c 20 20 20 20   tvfsShmMap,    
1db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1dc0: 20 2f 2a 20 78 53 68 6d 4d 61 70 20 2a 2f 0a 20   /* xShmMap */. 
1dd0: 20 74 76 66 73 53 68 6d 4c 6f 63 6b 2c 20 20 20   tvfsShmLock,   
1de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1df0: 20 2f 2a 20 78 53 68 6d 4c 6f 63 6b 20 2a 2f 0a   /* xShmLock */.
1e00: 20 20 74 76 66 73 53 68 6d 42 61 72 72 69 65 72    tvfsShmBarrier
1e10: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
1e20: 20 20 2f 2a 20 78 53 68 6d 42 61 72 72 69 65 72    /* xShmBarrier
1e30: 20 2a 2f 0a 20 20 74 76 66 73 53 68 6d 55 6e 6d   */.  tvfsShmUnm
1e40: 61 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ap              
1e50: 20 20 20 20 20 20 2f 2a 20 78 53 68 6d 55 6e 6d        /* xShmUnm
1e60: 61 70 20 2a 2f 0a 7d 3b 0a 0a 73 74 61 74 69 63  ap */.};..static
1e70: 20 69 6e 74 20 74 76 66 73 52 65 73 75 6c 74 43   int tvfsResultC
1e80: 6f 64 65 28 54 65 73 74 76 66 73 20 2a 70 2c 20  ode(Testvfs *p, 
1e90: 69 6e 74 20 2a 70 52 63 29 7b 0a 20 20 73 74 72  int *pRc){.  str
1ea0: 75 63 74 20 65 72 72 63 6f 64 65 20 7b 0a 20 20  uct errcode {.  
1eb0: 20 20 69 6e 74 20 65 43 6f 64 65 3b 0a 20 20 20    int eCode;.   
1ec0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f   const char *zCo
1ed0: 64 65 3b 0a 20 20 7d 20 61 43 6f 64 65 5b 5d 20  de;.  } aCode[] 
1ee0: 3d 20 7b 0a 20 20 20 20 7b 20 53 51 4c 49 54 45  = {.    { SQLITE
1ef0: 5f 4f 4b 2c 20 20 20 20 20 22 53 51 4c 49 54 45  _OK,     "SQLITE
1f00: 5f 4f 4b 22 20 20 20 20 20 7d 2c 0a 20 20 20 20  _OK"     },.    
1f10: 7b 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 2c 20  { SQLITE_ERROR, 
1f20: 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22 20   "SQLITE_ERROR" 
1f30: 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45   },.    { SQLITE
1f40: 5f 49 4f 45 52 52 2c 20 20 22 53 51 4c 49 54 45  _IOERR,  "SQLITE
1f50: 5f 49 4f 45 52 52 22 20 20 7d 2c 0a 20 20 20 20  _IOERR"  },.    
1f60: 7b 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 2c  { SQLITE_LOCKED,
1f70: 20 22 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 22   "SQLITE_LOCKED"
1f80: 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45   },.    { SQLITE
1f90: 5f 42 55 53 59 2c 20 20 20 22 53 51 4c 49 54 45  _BUSY,   "SQLITE
1fa0: 5f 42 55 53 59 22 20 20 20 7d 2c 0a 20 20 7d 3b  _BUSY"   },.  };
1fb0: 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ..  const char *
1fc0: 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 7a  z;.  int i;..  z
1fd0: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
1fe0: 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70  Result(p->interp
1ff0: 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c  );.  for(i=0; i<
2000: 41 72 72 61 79 53 69 7a 65 28 61 43 6f 64 65 29  ArraySize(aCode)
2010: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20  ; i++){.    if( 
2020: 30 3d 3d 73 74 72 63 6d 70 28 7a 2c 20 61 43 6f  0==strcmp(z, aCo
2030: 64 65 5b 69 5d 2e 7a 43 6f 64 65 29 20 29 7b 0a  de[i].zCode) ){.
2040: 20 20 20 20 20 20 2a 70 52 63 20 3d 20 61 43 6f        *pRc = aCo
2050: 64 65 5b 69 5d 2e 65 43 6f 64 65 3b 0a 20 20 20  de[i].eCode;.   
2060: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20     return 1;.   
2070: 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e   }.  }..  return
2080: 20 30 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e   0;.}..static in
2090: 74 20 74 76 66 73 49 6e 6a 65 63 74 46 61 75 6c  t tvfsInjectFaul
20a0: 74 28 54 65 73 74 46 61 75 6c 74 49 6e 6a 65 63  t(TestFaultInjec
20b0: 74 20 2a 70 29 7b 0a 20 20 69 6e 74 20 72 65 74  t *p){.  int ret
20c0: 20 3d 20 30 3b 0a 20 20 69 66 28 20 70 2d 3e 65   = 0;.  if( p->e
20d0: 46 61 75 6c 74 20 29 7b 0a 20 20 20 20 70 2d 3e  Fault ){.    p->
20e0: 69 43 6e 74 2d 2d 3b 0a 20 20 20 20 69 66 28 20  iCnt--;.    if( 
20f0: 70 2d 3e 69 43 6e 74 3d 3d 30 20 7c 7c 20 28 70  p->iCnt==0 || (p
2100: 2d 3e 69 43 6e 74 3c 30 20 26 26 20 70 2d 3e 65  ->iCnt<0 && p->e
2110: 46 61 75 6c 74 3d 3d 46 41 55 4c 54 5f 49 4e 4a  Fault==FAULT_INJ
2120: 45 43 54 5f 50 45 52 53 49 53 54 45 4e 54 20 29  ECT_PERSISTENT )
2130: 20 29 7b 0a 20 20 20 20 20 20 72 65 74 20 3d 20   ){.      ret = 
2140: 31 3b 0a 20 20 20 20 20 20 70 2d 3e 6e 46 61 69  1;.      p->nFai
2150: 6c 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20  l++;.    }.  }. 
2160: 20 72 65 74 75 72 6e 20 72 65 74 3b 0a 7d 0a 0a   return ret;.}..
2170: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
2180: 49 6e 6a 65 63 74 49 6f 65 72 72 28 54 65 73 74  InjectIoerr(Test
2190: 76 66 73 20 2a 70 29 7b 0a 20 20 72 65 74 75 72  vfs *p){.  retur
21a0: 6e 20 74 76 66 73 49 6e 6a 65 63 74 46 61 75 6c  n tvfsInjectFaul
21b0: 74 28 26 70 2d 3e 69 6f 65 72 72 5f 65 72 72 29  t(&p->ioerr_err)
21c0: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  ;.}..static int 
21d0: 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72  tvfsInjectFuller
21e0: 72 28 54 65 73 74 76 66 73 20 2a 70 29 7b 0a 20  r(Testvfs *p){. 
21f0: 20 72 65 74 75 72 6e 20 74 76 66 73 49 6e 6a 65   return tvfsInje
2200: 63 74 46 61 75 6c 74 28 26 70 2d 3e 66 75 6c 6c  ctFault(&p->full
2210: 5f 65 72 72 29 3b 0a 7d 0a 73 74 61 74 69 63 20  _err);.}.static 
2220: 69 6e 74 20 74 76 66 73 49 6e 6a 65 63 74 43 61  int tvfsInjectCa
2230: 6e 74 6f 70 65 6e 65 72 72 28 54 65 73 74 76 66  ntopenerr(Testvf
2240: 73 20 2a 70 29 7b 0a 20 20 72 65 74 75 72 6e 20  s *p){.  return 
2250: 74 76 66 73 49 6e 6a 65 63 74 46 61 75 6c 74 28  tvfsInjectFault(
2260: 26 70 2d 3e 63 61 6e 74 6f 70 65 6e 5f 65 72 72  &p->cantopen_err
2270: 29 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20 76 6f  );.}...static vo
2280: 69 64 20 74 76 66 73 45 78 65 63 54 63 6c 28 0a  id tvfsExecTcl(.
2290: 20 20 54 65 73 74 76 66 73 20 2a 70 2c 20 0a 20    Testvfs *p, . 
22a0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4d 65   const char *zMe
22b0: 74 68 6f 64 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  thod,.  Tcl_Obj 
22c0: 2a 61 72 67 31 2c 0a 20 20 54 63 6c 5f 4f 62 6a  *arg1,.  Tcl_Obj
22d0: 20 2a 61 72 67 32 2c 0a 20 20 54 63 6c 5f 4f 62   *arg2,.  Tcl_Ob
22e0: 6a 20 2a 61 72 67 33 2c 0a 20 20 54 63 6c 5f 4f  j *arg3,.  Tcl_O
22f0: 62 6a 20 2a 61 72 67 34 0a 29 7b 0a 20 20 69 6e  bj *arg4.){.  in
2300: 74 20 72 63 3b 20 20 20 20 20 20 20 20 20 20 20  t rc;           
2310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
2320: 20 52 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f   Return code fro
2330: 6d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 28 29 20  m Tcl_EvalObj() 
2340: 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 45  */.  Tcl_Obj *pE
2350: 76 61 6c 3b 0a 20 20 61 73 73 65 72 74 28 20 70  val;.  assert( p
2360: 2d 3e 70 53 63 72 69 70 74 20 29 3b 0a 0a 20 20  ->pScript );..  
2370: 61 73 73 65 72 74 28 20 7a 4d 65 74 68 6f 64 20  assert( zMethod 
2380: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 20 29  );.  assert( p )
2390: 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 32  ;.  assert( arg2
23a0: 3d 3d 30 20 7c 7c 20 61 72 67 31 21 3d 30 20 29  ==0 || arg1!=0 )
23b0: 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 33  ;.  assert( arg3
23c0: 3d 3d 30 20 7c 7c 20 61 72 67 32 21 3d 30 20 29  ==0 || arg2!=0 )
23d0: 3b 0a 0a 20 20 70 45 76 61 6c 20 3d 20 54 63 6c  ;..  pEval = Tcl
23e0: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 70 2d  _DuplicateObj(p-
23f0: 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63 6c  >pScript);.  Tcl
2400: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 2d  _IncrRefCount(p-
2410: 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63 6c  >pScript);.  Tcl
2420: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
2430: 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c  ement(p->interp,
2440: 20 70 45 76 61 6c 2c 20 54 63 6c 5f 4e 65 77 53   pEval, Tcl_NewS
2450: 74 72 69 6e 67 4f 62 6a 28 7a 4d 65 74 68 6f 64  tringObj(zMethod
2460: 2c 20 2d 31 29 29 3b 0a 20 20 69 66 28 20 61 72  , -1));.  if( ar
2470: 67 31 20 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  g1 ) Tcl_ListObj
2480: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d  AppendElement(p-
2490: 3e 69 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c 20  >interp, pEval, 
24a0: 61 72 67 31 29 3b 0a 20 20 69 66 28 20 61 72 67  arg1);.  if( arg
24b0: 32 20 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41  2 ) Tcl_ListObjA
24c0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e  ppendElement(p->
24d0: 69 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 61  interp, pEval, a
24e0: 72 67 32 29 3b 0a 20 20 69 66 28 20 61 72 67 33  rg2);.  if( arg3
24f0: 20 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70   ) Tcl_ListObjAp
2500: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69  pendElement(p->i
2510: 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 61 72  nterp, pEval, ar
2520: 67 33 29 3b 0a 20 20 69 66 28 20 61 72 67 34 20  g3);.  if( arg4 
2530: 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70  ) Tcl_ListObjApp
2540: 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e  endElement(p->in
2550: 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 61 72 67  terp, pEval, arg
2560: 34 29 3b 0a 0a 20 20 72 63 20 3d 20 54 63 6c 5f  4);..  rc = Tcl_
2570: 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e 74  EvalObjEx(p->int
2580: 65 72 70 2c 20 70 45 76 61 6c 2c 20 54 43 4c 5f  erp, pEval, TCL_
2590: 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20  EVAL_GLOBAL);.  
25a0: 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 29  if( rc!=TCL_OK )
25b0: 7b 0a 20 20 20 20 54 63 6c 5f 42 61 63 6b 67 72  {.    Tcl_Backgr
25c0: 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e 69 6e 74  oundError(p->int
25d0: 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65  erp);.    Tcl_Re
25e0: 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  setResult(p->int
25f0: 65 72 70 29 3b 0a 20 20 7d 0a 7d 0a 0a 0a 2f 2a  erp);.  }.}.../*
2600: 0a 2a 2a 20 43 6c 6f 73 65 20 61 6e 20 74 76 66  .** Close an tvf
2610: 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  s-file..*/.stati
2620: 63 20 69 6e 74 20 74 76 66 73 43 6c 6f 73 65 28  c int tvfsClose(
2630: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
2640: 69 6c 65 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a  ile){.  int rc;.
2650: 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70    TestvfsFile *p
2660: 54 65 73 74 66 69 6c 65 20 3d 20 28 54 65 73 74  Testfile = (Test
2670: 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b  vfsFile *)pFile;
2680: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
2690: 64 20 3d 20 70 54 65 73 74 66 69 6c 65 2d 3e 70  d = pTestfile->p
26a0: 46 64 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  Fd;.  Testvfs *p
26b0: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46   = (Testvfs *)pF
26c0: 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74  d->pVfs->pAppDat
26d0: 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63  a;..  if( p->pSc
26e0: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
26f0: 54 45 53 54 56 46 53 5f 43 4c 4f 53 45 5f 4d 41  TESTVFS_CLOSE_MA
2700: 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78  SK ){.    tvfsEx
2710: 65 63 54 63 6c 28 70 2c 20 22 78 43 6c 6f 73 65  ecTcl(p, "xClose
2720: 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  ", .        Tcl_
2730: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64  NewStringObj(pFd
2740: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29  ->zFilename, -1)
2750: 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30  , pFd->pShmId, 0
2760: 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 7d 0a 0a  , 0.    );.  }..
2770: 20 20 69 66 28 20 70 46 64 2d 3e 70 53 68 6d 49    if( pFd->pShmI
2780: 64 20 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63  d ){.    Tcl_Dec
2790: 72 52 65 66 43 6f 75 6e 74 28 70 46 64 2d 3e 70  rRefCount(pFd->p
27a0: 53 68 6d 49 64 29 3b 0a 20 20 20 20 70 46 64 2d  ShmId);.    pFd-
27b0: 3e 70 53 68 6d 49 64 20 3d 20 30 3b 0a 20 20 7d  >pShmId = 0;.  }
27c0: 0a 20 20 69 66 28 20 70 46 69 6c 65 2d 3e 70 4d  .  if( pFile->pM
27d0: 65 74 68 6f 64 73 20 29 7b 0a 20 20 20 20 63 6b  ethods ){.    ck
27e0: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 46 69  free((char *)pFi
27f0: 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 29 3b 0a 20  le->pMethods);. 
2800: 20 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65   }.  rc = sqlite
2810: 33 4f 73 43 6c 6f 73 65 28 70 46 64 2d 3e 70 52  3OsClose(pFd->pR
2820: 65 61 6c 29 3b 0a 20 20 63 6b 66 72 65 65 28 28  eal);.  ckfree((
2830: 63 68 61 72 20 2a 29 70 46 64 29 3b 0a 20 20 70  char *)pFd);.  p
2840: 54 65 73 74 66 69 6c 65 2d 3e 70 46 64 20 3d 20  Testfile->pFd = 
2850: 30 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  0;.  return rc;.
2860: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 61 64 20 64 61  }../*.** Read da
2870: 74 61 20 66 72 6f 6d 20 61 6e 20 74 76 66 73 2d  ta from an tvfs-
2880: 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  file..*/.static 
2890: 69 6e 74 20 74 76 66 73 52 65 61 64 28 0a 20 20  int tvfsRead(.  
28a0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
28b0: 69 6c 65 2c 20 0a 20 20 76 6f 69 64 20 2a 7a 42  ile, .  void *zB
28c0: 75 66 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c  uf, .  int iAmt,
28d0: 20 0a 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34   .  sqlite_int64
28e0: 20 69 4f 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20   iOfst.){.  int 
28f0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
2900: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
2910: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
2920: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
2930: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
2940: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
2950: 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53 63  ta;.  if( p->pSc
2960: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
2970: 54 45 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53  TESTVFS_READ_MAS
2980: 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65  K ){.    tvfsExe
2990: 63 54 63 6c 28 70 2c 20 22 78 52 65 61 64 22 2c  cTcl(p, "xRead",
29a0: 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65   .        Tcl_Ne
29b0: 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e  wStringObj(pFd->
29c0: 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20  zFilename, -1), 
29d0: 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20  pFd->pShmId, 0, 
29e0: 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76 66  0.    );.    tvf
29f0: 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26  sResultCode(p, &
2a00: 72 63 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72  rc);.  }.  if( r
2a10: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20  c==SQLITE_OK && 
2a20: 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f  p->mask&TESTVFS_
2a30: 52 45 41 44 5f 4d 41 53 4b 20 26 26 20 74 76 66  READ_MASK && tvf
2a40: 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20  sInjectIoerr(p) 
2a50: 29 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49  ){.    rc = SQLI
2a60: 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 20 20  TE_IOERR;.  }.  
2a70: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
2a80: 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71  K ){.    rc = sq
2a90: 6c 69 74 65 33 4f 73 52 65 61 64 28 70 46 64 2d  lite3OsRead(pFd-
2aa0: 3e 70 52 65 61 6c 2c 20 7a 42 75 66 2c 20 69 41  >pReal, zBuf, iA
2ab0: 6d 74 2c 20 69 4f 66 73 74 29 3b 0a 20 20 7d 0a  mt, iOfst);.  }.
2ac0: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
2ad0: 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 64 61 74 61  /*.** Write data
2ae0: 20 74 6f 20 61 6e 20 74 76 66 73 2d 66 69 6c 65   to an tvfs-file
2af0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
2b00: 74 76 66 73 57 72 69 74 65 28 0a 20 20 73 71 6c  tvfsWrite(.  sql
2b10: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
2b20: 2c 20 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64 20  , .  const void 
2b30: 2a 7a 42 75 66 2c 20 0a 20 20 69 6e 74 20 69 41  *zBuf, .  int iA
2b40: 6d 74 2c 20 0a 20 20 73 71 6c 69 74 65 5f 69 6e  mt, .  sqlite_in
2b50: 74 36 34 20 69 4f 66 73 74 0a 29 7b 0a 20 20 69  t64 iOfst.){.  i
2b60: 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f  nt rc = SQLITE_O
2b70: 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  K;.  TestvfsFd *
2b80: 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28  pFd = tvfsGetFd(
2b90: 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66  pFile);.  Testvf
2ba0: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
2bb0: 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70  *)pFd->pVfs->pAp
2bc0: 70 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d  pData;..  if( p-
2bd0: 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d  >pScript && p->m
2be0: 61 73 6b 26 54 45 53 54 56 46 53 5f 57 52 49 54  ask&TESTVFS_WRIT
2bf0: 45 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76  E_MASK ){.    tv
2c00: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 57  fsExecTcl(p, "xW
2c10: 72 69 74 65 22 2c 20 0a 20 20 20 20 20 20 20 20  rite", .        
2c20: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
2c30: 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c  (pFd->zFilename,
2c40: 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49   -1), pFd->pShmI
2c50: 64 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  d, .        Tcl_
2c60: 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28 69 4f  NewWideIntObj(iO
2c70: 66 73 74 29 2c 20 54 63 6c 5f 4e 65 77 49 6e 74  fst), Tcl_NewInt
2c80: 4f 62 6a 28 69 41 6d 74 29 0a 20 20 20 20 29 3b  Obj(iAmt).    );
2c90: 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43  .    tvfsResultC
2ca0: 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d  ode(p, &rc);.  }
2cb0: 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49  ..  if( rc==SQLI
2cc0: 54 45 5f 4f 4b 20 26 26 20 74 76 66 73 49 6e 6a  TE_OK && tvfsInj
2cd0: 65 63 74 46 75 6c 6c 65 72 72 28 70 29 20 29 7b  ectFullerr(p) ){
2ce0: 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45  .    rc = SQLITE
2cf0: 5f 46 55 4c 4c 3b 0a 20 20 7d 0a 20 20 69 66 28  _FULL;.  }.  if(
2d00: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26   rc==SQLITE_OK &
2d10: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
2d20: 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20 26 26 20  S_WRITE_MASK && 
2d30: 74 76 66 73 49 6e 6a 65 63 74 49 6f 65 72 72 28  tvfsInjectIoerr(
2d40: 70 29 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 53  p) ){.    rc = S
2d50: 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d  QLITE_IOERR;.  }
2d60: 0a 20 20 0a 20 20 69 66 28 20 72 63 3d 3d 53 51  .  .  if( rc==SQ
2d70: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72  LITE_OK ){.    r
2d80: 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 57 72 69  c = sqlite3OsWri
2d90: 74 65 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 7a  te(pFd->pReal, z
2da0: 42 75 66 2c 20 69 41 6d 74 2c 20 69 4f 66 73 74  Buf, iAmt, iOfst
2db0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
2dc0: 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 75  rc;.}../*.** Tru
2dd0: 6e 63 61 74 65 20 61 6e 20 74 76 66 73 2d 66 69  ncate an tvfs-fi
2de0: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  le..*/.static in
2df0: 74 20 74 76 66 73 54 72 75 6e 63 61 74 65 28 73  t tvfsTruncate(s
2e00: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
2e10: 6c 65 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34  le, sqlite_int64
2e20: 20 73 69 7a 65 29 7b 0a 20 20 69 6e 74 20 72 63   size){.  int rc
2e30: 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20   = SQLITE_OK;.  
2e40: 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d  TestvfsFd *pFd =
2e50: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
2e60: 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  );.  Testvfs *p 
2e70: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64  = (Testvfs *)pFd
2e80: 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61  ->pVfs->pAppData
2e90: 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72  ;..  if( p->pScr
2ea0: 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  ipt && p->mask&T
2eb0: 45 53 54 56 46 53 5f 54 52 55 4e 43 41 54 45 5f  ESTVFS_TRUNCATE_
2ec0: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73  MASK ){.    tvfs
2ed0: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 54 72 75  ExecTcl(p, "xTru
2ee0: 6e 63 61 74 65 22 2c 20 0a 20 20 20 20 20 20 20  ncate", .       
2ef0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
2f00: 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65  j(pFd->zFilename
2f10: 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d  , -1), pFd->pShm
2f20: 49 64 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a  Id, 0, 0.    );.
2f30: 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f      tvfsResultCo
2f40: 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a  de(p, &rc);.  }.
2f50: 20 20 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c    .  if( rc==SQL
2f60: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63  ITE_OK ){.    rc
2f70: 20 3d 20 73 71 6c 69 74 65 33 4f 73 54 72 75 6e   = sqlite3OsTrun
2f80: 63 61 74 65 28 70 46 64 2d 3e 70 52 65 61 6c 2c  cate(pFd->pReal,
2f90: 20 73 69 7a 65 29 3b 0a 20 20 7d 0a 20 20 72 65   size);.  }.  re
2fa0: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a  turn rc;.}../*.*
2fb0: 2a 20 53 79 6e 63 20 61 6e 20 74 76 66 73 2d 66  * Sync an tvfs-f
2fc0: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
2fd0: 6e 74 20 74 76 66 73 53 79 6e 63 28 73 71 6c 69  nt tvfsSync(sqli
2fe0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
2ff0: 20 69 6e 74 20 66 6c 61 67 73 29 7b 0a 20 20 69   int flags){.  i
3000: 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f  nt rc = SQLITE_O
3010: 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  K;.  TestvfsFd *
3020: 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28  pFd = tvfsGetFd(
3030: 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66  pFile);.  Testvf
3040: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
3050: 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70  *)pFd->pVfs->pAp
3060: 70 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d  pData;..  if( p-
3070: 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d  >pScript && p->m
3080: 61 73 6b 26 54 45 53 54 56 46 53 5f 53 59 4e 43  ask&TESTVFS_SYNC
3090: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 63 68 61  _MASK ){.    cha
30a0: 72 20 2a 7a 46 6c 61 67 73 3b 0a 0a 20 20 20 20  r *zFlags;..    
30b0: 73 77 69 74 63 68 28 20 66 6c 61 67 73 20 29 7b  switch( flags ){
30c0: 0a 20 20 20 20 20 20 63 61 73 65 20 53 51 4c 49  .      case SQLI
30d0: 54 45 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c 3a 0a  TE_SYNC_NORMAL:.
30e0: 20 20 20 20 20 20 20 20 7a 46 6c 61 67 73 20 3d          zFlags =
30f0: 20 22 6e 6f 72 6d 61 6c 22 3b 0a 20 20 20 20 20   "normal";.     
3100: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
3110: 63 61 73 65 20 53 51 4c 49 54 45 5f 53 59 4e 43  case SQLITE_SYNC
3120: 5f 46 55 4c 4c 3a 0a 20 20 20 20 20 20 20 20 7a  _FULL:.        z
3130: 46 6c 61 67 73 20 3d 20 22 66 75 6c 6c 22 3b 0a  Flags = "full";.
3140: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20          break;. 
3150: 20 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45       case SQLITE
3160: 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c 7c 53 51 4c  _SYNC_NORMAL|SQL
3170: 49 54 45 5f 53 59 4e 43 5f 44 41 54 41 4f 4e 4c  ITE_SYNC_DATAONL
3180: 59 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67  Y:.        zFlag
3190: 73 20 3d 20 22 6e 6f 72 6d 61 6c 7c 64 61 74 61  s = "normal|data
31a0: 6f 6e 6c 79 22 3b 0a 20 20 20 20 20 20 20 20 62  only";.        b
31b0: 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65  reak;.      case
31c0: 20 53 51 4c 49 54 45 5f 53 59 4e 43 5f 46 55 4c   SQLITE_SYNC_FUL
31d0: 4c 7c 53 51 4c 49 54 45 5f 53 59 4e 43 5f 44 41  L|SQLITE_SYNC_DA
31e0: 54 41 4f 4e 4c 59 3a 0a 20 20 20 20 20 20 20 20  TAONLY:.        
31f0: 7a 46 6c 61 67 73 20 3d 20 22 66 75 6c 6c 7c 64  zFlags = "full|d
3200: 61 74 61 6f 6e 6c 79 22 3b 0a 20 20 20 20 20 20  ataonly";.      
3210: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 64    break;.      d
3220: 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 20  efault:.        
3230: 61 73 73 65 72 74 28 30 29 3b 0a 20 20 20 20 7d  assert(0);.    }
3240: 0a 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  ..    tvfsExecTc
3250: 6c 28 70 2c 20 22 78 53 79 6e 63 22 2c 20 0a 20  l(p, "xSync", . 
3260: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
3270: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
3280: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64  lename, -1), pFd
3290: 2d 3e 70 53 68 6d 49 64 2c 0a 20 20 20 20 20 20  ->pShmId,.      
32a0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
32b0: 62 6a 28 7a 46 6c 61 67 73 2c 20 2d 31 29 2c 20  bj(zFlags, -1), 
32c0: 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76 66  0.    );.    tvf
32d0: 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26  sResultCode(p, &
32e0: 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20  rc);.  }..  if( 
32f0: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26  rc==SQLITE_OK &&
3300: 20 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c 65   tvfsInjectFulle
3310: 72 72 28 70 29 20 29 20 72 63 20 3d 20 53 51 4c  rr(p) ) rc = SQL
3320: 49 54 45 5f 46 55 4c 4c 3b 0a 0a 20 20 69 66 28  ITE_FULL;..  if(
3330: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc==SQLITE_OK )
3340: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  {.    rc = sqlit
3350: 65 33 4f 73 53 79 6e 63 28 70 46 64 2d 3e 70 52  e3OsSync(pFd->pR
3360: 65 61 6c 2c 20 66 6c 61 67 73 29 3b 0a 20 20 7d  eal, flags);.  }
3370: 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ..  return rc;.}
3380: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  ../*.** Return t
3390: 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 65 2d  he current file-
33a0: 73 69 7a 65 20 6f 66 20 61 6e 20 74 76 66 73 2d  size of an tvfs-
33b0: 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  file..*/.static 
33c0: 69 6e 74 20 74 76 66 73 46 69 6c 65 53 69 7a 65  int tvfsFileSize
33d0: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
33e0: 46 69 6c 65 2c 20 73 71 6c 69 74 65 5f 69 6e 74  File, sqlite_int
33f0: 36 34 20 2a 70 53 69 7a 65 29 7b 0a 20 20 54 65  64 *pSize){.  Te
3400: 73 74 76 66 73 46 64 20 2a 70 20 3d 20 74 76 66  stvfsFd *p = tvf
3410: 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20  sGetFd(pFile);. 
3420: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
3430: 73 46 69 6c 65 53 69 7a 65 28 70 2d 3e 70 52 65  sFileSize(p->pRe
3440: 61 6c 2c 20 70 53 69 7a 65 29 3b 0a 7d 0a 0a 2f  al, pSize);.}../
3450: 2a 0a 2a 2a 20 4c 6f 63 6b 20 61 6e 20 74 76 66  *.** Lock an tvf
3460: 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  s-file..*/.stati
3470: 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28 73  c int tvfsLock(s
3480: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
3490: 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b 0a  le, int eLock){.
34a0: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 20 3d    TestvfsFd *p =
34b0: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
34c0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69  );.  return sqli
34d0: 74 65 33 4f 73 4c 6f 63 6b 28 70 2d 3e 70 52 65  te3OsLock(p->pRe
34e0: 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a 2f  al, eLock);.}../
34f0: 2a 0a 2a 2a 20 55 6e 6c 6f 63 6b 20 61 6e 20 74  *.** Unlock an t
3500: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
3510: 74 69 63 20 69 6e 74 20 74 76 66 73 55 6e 6c 6f  tic int tvfsUnlo
3520: 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  ck(sqlite3_file 
3530: 2a 70 46 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63  *pFile, int eLoc
3540: 6b 29 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20  k){.  TestvfsFd 
3550: 2a 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64  *pFd = tvfsGetFd
3560: 28 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76  (pFile);.  Testv
3570: 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  fs *p = (Testvfs
3580: 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41   *)pFd->pVfs->pA
3590: 70 70 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d  ppData;.  if( p-
35a0: 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 57 52  >mask&TESTVFS_WR
35b0: 49 54 45 5f 4d 41 53 4b 20 26 26 20 74 76 66 73  ITE_MASK && tvfs
35c0: 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29  InjectIoerr(p) )
35d0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c  {.    return SQL
35e0: 49 54 45 5f 49 4f 45 52 52 5f 55 4e 4c 4f 43 4b  ITE_IOERR_UNLOCK
35f0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73  ;.  }.  return s
3600: 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 70  qlite3OsUnlock(p
3610: 46 64 2d 3e 70 52 65 61 6c 2c 20 65 4c 6f 63 6b  Fd->pReal, eLock
3620: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63  );.}../*.** Chec
3630: 6b 20 69 66 20 61 6e 6f 74 68 65 72 20 66 69 6c  k if another fil
3640: 65 2d 68 61 6e 64 6c 65 20 68 6f 6c 64 73 20 61  e-handle holds a
3650: 20 52 45 53 45 52 56 45 44 20 6c 6f 63 6b 20 6f   RESERVED lock o
3660: 6e 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a  n an tvfs-file..
3670: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
3680: 66 73 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c  fsCheckReservedL
3690: 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ock(sqlite3_file
36a0: 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 2a 70 52   *pFile, int *pR
36b0: 65 73 4f 75 74 29 7b 0a 20 20 54 65 73 74 76 66  esOut){.  Testvf
36c0: 73 46 64 20 2a 70 20 3d 20 74 76 66 73 47 65 74  sFd *p = tvfsGet
36d0: 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 72 65 74  Fd(pFile);.  ret
36e0: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 43 68 65  urn sqlite3OsChe
36f0: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 70  ckReservedLock(p
3700: 2d 3e 70 52 65 61 6c 2c 20 70 52 65 73 4f 75 74  ->pReal, pResOut
3710: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 65  );.}../*.** File
3720: 20 63 6f 6e 74 72 6f 6c 20 6d 65 74 68 6f 64 2e   control method.
3730: 20 46 6f 72 20 63 75 73 74 6f 6d 20 6f 70 65 72   For custom oper
3740: 61 74 69 6f 6e 73 20 6f 6e 20 61 6e 20 74 76 66  ations on an tvf
3750: 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  s-file..*/.stati
3760: 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f  c int tvfsFileCo
3770: 6e 74 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69  ntrol(sqlite3_fi
3780: 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 6f  le *pFile, int o
3790: 70 2c 20 76 6f 69 64 20 2a 70 41 72 67 29 7b 0a  p, void *pArg){.
37a0: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 20 3d    TestvfsFd *p =
37b0: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
37c0: 29 3b 0a 20 20 69 66 28 20 6f 70 3d 3d 53 51 4c  );.  if( op==SQL
37d0: 49 54 45 5f 46 43 4e 54 4c 5f 50 52 41 47 4d 41  ITE_FCNTL_PRAGMA
37e0: 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a 2a 61   ){.    char **a
37f0: 72 67 76 20 3d 20 28 63 68 61 72 2a 2a 29 70 41  rgv = (char**)pA
3800: 72 67 3b 0a 20 20 20 20 69 66 28 20 73 71 6c 69  rg;.    if( sqli
3810: 74 65 33 5f 73 74 72 69 63 6d 70 28 61 72 67 76  te3_stricmp(argv
3820: 5b 31 5d 2c 22 65 72 72 6f 72 22 29 3d 3d 30 20  [1],"error")==0 
3830: 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 72 63 20  ){.      int rc 
3840: 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a  = SQLITE_ERROR;.
3850: 20 20 20 20 20 20 69 66 28 20 61 72 67 76 5b 32        if( argv[2
3860: 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f 6e  ] ){.        con
3870: 73 74 20 63 68 61 72 20 2a 7a 20 3d 20 61 72 67  st char *z = arg
3880: 76 5b 32 5d 3b 0a 20 20 20 20 20 20 20 20 69 6e  v[2];.        in
3890: 74 20 78 20 3d 20 61 74 6f 69 28 7a 29 3b 0a 20  t x = atoi(z);. 
38a0: 20 20 20 20 20 20 20 69 66 28 20 78 20 29 7b 0a         if( x ){.
38b0: 20 20 20 20 20 20 20 20 20 20 72 63 20 3d 20 78            rc = x
38c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  ;.          whil
38d0: 65 28 20 73 71 6c 69 74 65 33 49 73 64 69 67 69  e( sqlite3Isdigi
38e0: 74 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b 20  t(z[0]) ){ z++; 
38f0: 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  }.          whil
3900: 65 28 20 73 71 6c 69 74 65 33 49 73 73 70 61 63  e( sqlite3Isspac
3910: 65 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b 20  e(z[0]) ){ z++; 
3920: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
3930: 20 20 20 20 69 66 28 20 7a 5b 30 5d 20 29 20 61      if( z[0] ) a
3940: 72 67 76 5b 30 5d 20 3d 20 73 71 6c 69 74 65 33  rgv[0] = sqlite3
3950: 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20 7a  _mprintf("%s", z
3960: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
3970: 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20   return rc;.    
3980: 7d 0a 20 20 20 20 69 66 28 20 73 71 6c 69 74 65  }.    if( sqlite
3990: 33 5f 73 74 72 69 63 6d 70 28 61 72 67 76 5b 31  3_stricmp(argv[1
39a0: 5d 2c 20 22 66 69 6c 65 6e 61 6d 65 22 29 3d 3d  ], "filename")==
39b0: 30 20 29 7b 0a 20 20 20 20 20 20 61 72 67 76 5b  0 ){.      argv[
39c0: 30 5d 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72  0] = sqlite3_mpr
39d0: 69 6e 74 66 28 22 25 73 22 2c 20 70 2d 3e 7a 46  intf("%s", p->zF
39e0: 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20 20 20 20  ilename);.      
39f0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
3a00: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65  ;.    }.  }.  re
3a10: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 46 69  turn sqlite3OsFi
3a20: 6c 65 43 6f 6e 74 72 6f 6c 28 70 2d 3e 70 52 65  leControl(p->pRe
3a30: 61 6c 2c 20 6f 70 2c 20 70 41 72 67 29 3b 0a 7d  al, op, pArg);.}
3a40: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  ../*.** Return t
3a50: 68 65 20 73 65 63 74 6f 72 2d 73 69 7a 65 20 69  he sector-size i
3a60: 6e 20 62 79 74 65 73 20 66 6f 72 20 61 6e 20 74  n bytes for an t
3a70: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
3a80: 74 69 63 20 69 6e 74 20 74 76 66 73 53 65 63 74  tic int tvfsSect
3a90: 6f 72 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66  orSize(sqlite3_f
3aa0: 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54  ile *pFile){.  T
3ab0: 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20  estvfsFd *pFd = 
3ac0: 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65 29  tvfsGetFd(pFile)
3ad0: 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  ;.  Testvfs *p =
3ae0: 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d   (Testvfs *)pFd-
3af0: 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b  >pVfs->pAppData;
3b00: 0a 20 20 69 66 28 20 70 2d 3e 69 53 65 63 74 6f  .  if( p->iSecto
3b10: 72 73 69 7a 65 3e 3d 30 20 29 7b 0a 20 20 20 20  rsize>=0 ){.    
3b20: 72 65 74 75 72 6e 20 70 2d 3e 69 53 65 63 74 6f  return p->iSecto
3b30: 72 73 69 7a 65 3b 0a 20 20 7d 0a 20 20 72 65 74  rsize;.  }.  ret
3b40: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 53 65 63  urn sqlite3OsSec
3b50: 74 6f 72 53 69 7a 65 28 70 46 64 2d 3e 70 52 65  torSize(pFd->pRe
3b60: 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  al);.}../*.** Re
3b70: 74 75 72 6e 20 74 68 65 20 64 65 76 69 63 65 20  turn the device 
3b80: 63 68 61 72 61 63 74 65 72 69 73 74 69 63 20 66  characteristic f
3b90: 6c 61 67 73 20 73 75 70 70 6f 72 74 65 64 20 62  lags supported b
3ba0: 79 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a  y an tvfs-file..
3bb0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
3bc0: 66 73 44 65 76 69 63 65 43 68 61 72 61 63 74 65  fsDeviceCharacte
3bd0: 72 69 73 74 69 63 73 28 73 71 6c 69 74 65 33 5f  ristics(sqlite3_
3be0: 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20  file *pFile){.  
3bf0: 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d  TestvfsFd *pFd =
3c00: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
3c10: 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  );.  Testvfs *p 
3c20: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64  = (Testvfs *)pFd
3c30: 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61  ->pVfs->pAppData
3c40: 3b 0a 20 20 69 66 28 20 70 2d 3e 69 44 65 76 63  ;.  if( p->iDevc
3c50: 68 61 72 3e 3d 30 20 29 7b 0a 20 20 20 20 72 65  har>=0 ){.    re
3c60: 74 75 72 6e 20 70 2d 3e 69 44 65 76 63 68 61 72  turn p->iDevchar
3c70: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73  ;.  }.  return s
3c80: 71 6c 69 74 65 33 4f 73 44 65 76 69 63 65 43 68  qlite3OsDeviceCh
3c90: 61 72 61 63 74 65 72 69 73 74 69 63 73 28 70 46  aracteristics(pF
3ca0: 64 2d 3e 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a  d->pReal);.}../*
3cb0: 0a 2a 2a 20 4f 70 65 6e 20 61 6e 20 74 76 66 73  .** Open an tvfs
3cc0: 20 66 69 6c 65 20 68 61 6e 64 6c 65 2e 0a 2a 2f   file handle..*/
3cd0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
3ce0: 4f 70 65 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f  Open(.  sqlite3_
3cf0: 76 66 73 20 2a 70 56 66 73 2c 0a 20 20 63 6f 6e  vfs *pVfs,.  con
3d00: 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 0a  st char *zName,.
3d10: 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a    sqlite3_file *
3d20: 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20 66 6c 61  pFile,.  int fla
3d30: 67 73 2c 0a 20 20 69 6e 74 20 2a 70 4f 75 74 46  gs,.  int *pOutF
3d40: 6c 61 67 73 0a 29 7b 0a 20 20 69 6e 74 20 72 63  lags.){.  int rc
3d50: 3b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20  ;.  TestvfsFile 
3d60: 2a 70 54 65 73 74 66 69 6c 65 20 3d 20 28 54 65  *pTestfile = (Te
3d70: 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c  stvfsFile *)pFil
3d80: 65 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  e;.  TestvfsFd *
3d90: 70 46 64 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  pFd;.  Tcl_Obj *
3da0: 70 49 64 20 3d 20 30 3b 0a 20 20 54 65 73 74 76  pId = 0;.  Testv
3db0: 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  fs *p = (Testvfs
3dc0: 20 2a 29 70 56 66 73 2d 3e 70 41 70 70 44 61 74   *)pVfs->pAppDat
3dd0: 61 3b 0a 0a 20 20 70 46 64 20 3d 20 28 54 65 73  a;..  pFd = (Tes
3de0: 74 76 66 73 46 64 20 2a 29 63 6b 61 6c 6c 6f 63  tvfsFd *)ckalloc
3df0: 28 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 46  (sizeof(TestvfsF
3e00: 64 29 20 2b 20 50 41 52 45 4e 54 56 46 53 28 70  d) + PARENTVFS(p
3e10: 56 66 73 29 2d 3e 73 7a 4f 73 46 69 6c 65 29 3b  Vfs)->szOsFile);
3e20: 0a 20 20 6d 65 6d 73 65 74 28 70 46 64 2c 20 30  .  memset(pFd, 0
3e30: 2c 20 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73  , sizeof(Testvfs
3e40: 46 64 29 20 2b 20 50 41 52 45 4e 54 56 46 53 28  Fd) + PARENTVFS(
3e50: 70 56 66 73 29 2d 3e 73 7a 4f 73 46 69 6c 65 29  pVfs)->szOsFile)
3e60: 3b 0a 20 20 70 46 64 2d 3e 70 53 68 6d 20 3d 20  ;.  pFd->pShm = 
3e70: 30 3b 0a 20 20 70 46 64 2d 3e 70 53 68 6d 49 64  0;.  pFd->pShmId
3e80: 20 3d 20 30 3b 0a 20 20 70 46 64 2d 3e 7a 46 69   = 0;.  pFd->zFi
3e90: 6c 65 6e 61 6d 65 20 3d 20 7a 4e 61 6d 65 3b 0a  lename = zName;.
3ea0: 20 20 70 46 64 2d 3e 70 56 66 73 20 3d 20 70 56    pFd->pVfs = pV
3eb0: 66 73 3b 0a 20 20 70 46 64 2d 3e 70 52 65 61 6c  fs;.  pFd->pReal
3ec0: 20 3d 20 28 73 71 6c 69 74 65 33 5f 66 69 6c 65   = (sqlite3_file
3ed0: 20 2a 29 26 70 46 64 5b 31 5d 3b 0a 20 20 6d 65   *)&pFd[1];.  me
3ee0: 6d 73 65 74 28 70 54 65 73 74 66 69 6c 65 2c 20  mset(pTestfile, 
3ef0: 30 2c 20 73 69 7a 65 6f 66 28 54 65 73 74 76 66  0, sizeof(Testvf
3f00: 73 46 69 6c 65 29 29 3b 0a 20 20 70 54 65 73 74  sFile));.  pTest
3f10: 66 69 6c 65 2d 3e 70 46 64 20 3d 20 70 46 64 3b  file->pFd = pFd;
3f20: 0a 0a 20 20 2f 2a 20 45 76 61 6c 75 61 74 65 20  ..  /* Evaluate 
3f30: 74 68 65 20 54 63 6c 20 73 63 72 69 70 74 3a 20  the Tcl script: 
3f40: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52  .  **.  **   SCR
3f50: 49 50 54 20 78 4f 70 65 6e 20 46 49 4c 45 4e 41  IPT xOpen FILENA
3f60: 4d 45 20 4b 45 59 2d 56 41 4c 55 45 2d 41 52 47  ME KEY-VALUE-ARG
3f70: 53 0a 20 20 2a 2a 0a 20 20 2a 2a 20 49 66 20 74  S.  **.  ** If t
3f80: 68 65 20 73 63 72 69 70 74 20 72 65 74 75 72 6e  he script return
3f90: 73 20 61 6e 20 53 51 4c 69 74 65 20 65 72 72 6f  s an SQLite erro
3fa0: 72 20 63 6f 64 65 20 6f 74 68 65 72 20 74 68 61  r code other tha
3fb0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 61 6e 0a  n SQLITE_OK, an.
3fc0: 20 20 2a 2a 20 65 72 72 6f 72 20 69 73 20 72 65    ** error is re
3fd0: 74 75 72 6e 65 64 20 74 6f 20 74 68 65 20 63 61  turned to the ca
3fe0: 6c 6c 65 72 2e 20 49 66 20 69 74 20 72 65 74 75  ller. If it retu
3ff0: 72 6e 73 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 74  rns SQLITE_OK, t
4000: 68 65 20 6e 65 77 0a 20 20 2a 2a 20 63 6f 6e 6e  he new.  ** conn
4010: 65 63 74 69 6f 6e 20 69 73 20 6e 61 6d 65 64 20  ection is named 
4020: 22 61 6e 6f 6e 22 2e 20 4f 74 68 65 72 77 69 73  "anon". Otherwis
4030: 65 2c 20 74 68 65 20 76 61 6c 75 65 20 72 65 74  e, the value ret
4040: 75 72 6e 65 64 20 62 79 20 74 68 65 0a 20 20 2a  urned by the.  *
4050: 2a 20 73 63 72 69 70 74 20 69 73 20 75 73 65 64  * script is used
4060: 20 61 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 69   as the connecti
4070: 6f 6e 20 6e 61 6d 65 2e 0a 20 20 2a 2f 0a 20 20  on name..  */.  
4080: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28  Tcl_ResetResult(
4090: 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 69 66  p->interp);.  if
40a0: 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20  ( p->pScript && 
40b0: 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f  p->mask&TESTVFS_
40c0: 4f 50 45 4e 5f 4d 41 53 4b 20 29 7b 0a 20 20 20  OPEN_MASK ){.   
40d0: 20 54 63 6c 5f 4f 62 6a 20 2a 70 41 72 67 20 3d   Tcl_Obj *pArg =
40e0: 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20   Tcl_NewObj();. 
40f0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
4100: 75 6e 74 28 70 41 72 67 29 3b 0a 20 20 20 20 69  unt(pArg);.    i
4110: 66 28 20 66 6c 61 67 73 26 53 51 4c 49 54 45 5f  f( flags&SQLITE_
4120: 4f 50 45 4e 5f 4d 41 49 4e 5f 44 42 20 29 7b 0a  OPEN_MAIN_DB ){.
4130: 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72        const char
4140: 20 2a 7a 20 3d 20 26 7a 4e 61 6d 65 5b 73 74 72   *z = &zName[str
4150: 6c 65 6e 28 7a 4e 61 6d 65 29 2b 31 5d 3b 0a 20  len(zName)+1];. 
4160: 20 20 20 20 20 77 68 69 6c 65 28 20 2a 7a 20 29       while( *z )
4170: 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4c 69  {.        Tcl_Li
4180: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
4190: 6e 74 28 30 2c 20 70 41 72 67 2c 20 54 63 6c 5f  nt(0, pArg, Tcl_
41a0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 2c 20  NewStringObj(z, 
41b0: 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 7a 20  -1));.        z 
41c0: 2b 3d 20 73 74 72 6c 65 6e 28 7a 29 20 2b 20 31  += strlen(z) + 1
41d0: 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4c 69  ;.        Tcl_Li
41e0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
41f0: 6e 74 28 30 2c 20 70 41 72 67 2c 20 54 63 6c 5f  nt(0, pArg, Tcl_
4200: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 2c 20  NewStringObj(z, 
4210: 2d 31 29 29 3b 0a 20 20 20 20 20 20 20 20 7a 20  -1));.        z 
4220: 2b 3d 20 73 74 72 6c 65 6e 28 7a 29 20 2b 20 31  += strlen(z) + 1
4230: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ;.      }.    }.
4240: 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28      tvfsExecTcl(
4250: 70 2c 20 22 78 4f 70 65 6e 22 2c 20 54 63 6c 5f  p, "xOpen", Tcl_
4260: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64  NewStringObj(pFd
4270: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29  ->zFilename, -1)
4280: 2c 20 70 41 72 67 2c 20 30 2c 20 30 29 3b 0a 20  , pArg, 0, 0);. 
4290: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f     Tcl_DecrRefCo
42a0: 75 6e 74 28 70 41 72 67 29 3b 0a 20 20 20 20 69  unt(pArg);.    i
42b0: 66 28 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64  f( tvfsResultCod
42c0: 65 28 70 2c 20 26 72 63 29 20 29 7b 0a 20 20 20  e(p, &rc) ){.   
42d0: 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54     if( rc!=SQLIT
42e0: 45 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20 72 63  E_OK ) return rc
42f0: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
4300: 20 20 20 70 49 64 20 3d 20 54 63 6c 5f 47 65 74     pId = Tcl_Get
4310: 4f 62 6a 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  ObjResult(p->int
4320: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  erp);.    }.  }.
4330: 0a 20 20 69 66 28 20 28 70 2d 3e 6d 61 73 6b 26  .  if( (p->mask&
4340: 54 45 53 54 56 46 53 5f 4f 50 45 4e 5f 4d 41 53  TESTVFS_OPEN_MAS
4350: 4b 29 20 26 26 20 20 74 76 66 73 49 6e 6a 65 63  K) &&  tvfsInjec
4360: 74 49 6f 65 72 72 28 70 29 20 29 20 72 65 74 75  tIoerr(p) ) retu
4370: 72 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b  rn SQLITE_IOERR;
4380: 0a 20 20 69 66 28 20 74 76 66 73 49 6e 6a 65 63  .  if( tvfsInjec
4390: 74 43 61 6e 74 6f 70 65 6e 65 72 72 28 70 29 20  tCantopenerr(p) 
43a0: 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f  ) return SQLITE_
43b0: 43 41 4e 54 4f 50 45 4e 3b 0a 20 20 69 66 28 20  CANTOPEN;.  if( 
43c0: 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72  tvfsInjectFuller
43d0: 72 28 70 29 20 29 20 72 65 74 75 72 6e 20 53 51  r(p) ) return SQ
43e0: 4c 49 54 45 5f 46 55 4c 4c 3b 0a 0a 20 20 69 66  LITE_FULL;..  if
43f0: 28 20 21 70 49 64 20 29 7b 0a 20 20 20 20 70 49  ( !pId ){.    pI
4400: 64 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  d = Tcl_NewStrin
4410: 67 4f 62 6a 28 22 61 6e 6f 6e 22 2c 20 2d 31 29  gObj("anon", -1)
4420: 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 49 6e 63 72  ;.  }.  Tcl_Incr
4430: 52 65 66 43 6f 75 6e 74 28 70 49 64 29 3b 0a 20  RefCount(pId);. 
4440: 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20 70   pFd->pShmId = p
4450: 49 64 3b 0a 20 20 54 63 6c 5f 52 65 73 65 74 52  Id;.  Tcl_ResetR
4460: 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29  esult(p->interp)
4470: 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65  ;..  rc = sqlite
4480: 33 4f 73 4f 70 65 6e 28 50 41 52 45 4e 54 56 46  3OsOpen(PARENTVF
4490: 53 28 70 56 66 73 29 2c 20 7a 4e 61 6d 65 2c 20  S(pVfs), zName, 
44a0: 70 46 64 2d 3e 70 52 65 61 6c 2c 20 66 6c 61 67  pFd->pReal, flag
44b0: 73 2c 20 70 4f 75 74 46 6c 61 67 73 29 3b 0a 20  s, pOutFlags);. 
44c0: 20 69 66 28 20 70 46 64 2d 3e 70 52 65 61 6c 2d   if( pFd->pReal-
44d0: 3e 70 4d 65 74 68 6f 64 73 20 29 7b 0a 20 20 20  >pMethods ){.   
44e0: 20 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68   sqlite3_io_meth
44f0: 6f 64 73 20 2a 70 4d 65 74 68 6f 64 73 3b 0a 20  ods *pMethods;. 
4500: 20 20 20 69 6e 74 20 6e 42 79 74 65 3b 0a 0a 20     int nByte;.. 
4510: 20 20 20 69 66 28 20 70 56 66 73 2d 3e 69 56 65     if( pVfs->iVe
4520: 72 73 69 6f 6e 3e 31 20 29 7b 0a 20 20 20 20 20  rsion>1 ){.     
4530: 20 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28   nByte = sizeof(
4540: 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f  sqlite3_io_metho
4550: 64 73 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a  ds);.    }else{.
4560: 20 20 20 20 20 20 6e 42 79 74 65 20 3d 20 6f 66        nByte = of
4570: 66 73 65 74 6f 66 28 73 71 6c 69 74 65 33 5f 69  fsetof(sqlite3_i
4580: 6f 5f 6d 65 74 68 6f 64 73 2c 20 78 53 68 6d 4d  o_methods, xShmM
4590: 61 70 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ap);.    }..    
45a0: 70 4d 65 74 68 6f 64 73 20 3d 20 28 73 71 6c 69  pMethods = (sqli
45b0: 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 2a  te3_io_methods *
45c0: 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b  )ckalloc(nByte);
45d0: 0a 20 20 20 20 6d 65 6d 63 70 79 28 70 4d 65 74  .    memcpy(pMet
45e0: 68 6f 64 73 2c 20 26 74 76 66 73 5f 69 6f 5f 6d  hods, &tvfs_io_m
45f0: 65 74 68 6f 64 73 2c 20 6e 42 79 74 65 29 3b 0a  ethods, nByte);.
4600: 20 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e 69 56      pMethods->iV
4610: 65 72 73 69 6f 6e 20 3d 20 70 56 66 73 2d 3e 69  ersion = pVfs->i
4620: 56 65 72 73 69 6f 6e 3b 0a 20 20 20 20 69 66 28  Version;.    if(
4630: 20 70 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e 3e   pVfs->iVersion>
4640: 31 20 26 26 20 28 28 54 65 73 74 76 66 73 20 2a  1 && ((Testvfs *
4650: 29 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29  )pVfs->pAppData)
4660: 2d 3e 69 73 4e 6f 73 68 6d 20 29 7b 0a 20 20 20  ->isNoshm ){.   
4670: 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68     pMethods->xSh
4680: 6d 55 6e 6d 61 70 20 3d 20 30 3b 0a 20 20 20 20  mUnmap = 0;.    
4690: 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d    pMethods->xShm
46a0: 4c 6f 63 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20  Lock = 0;.      
46b0: 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 42 61  pMethods->xShmBa
46c0: 72 72 69 65 72 20 3d 20 30 3b 0a 20 20 20 20 20  rrier = 0;.     
46d0: 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4d   pMethods->xShmM
46e0: 61 70 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20  ap = 0;.    }.  
46f0: 20 20 70 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64    pFile->pMethod
4700: 73 20 3d 20 70 4d 65 74 68 6f 64 73 3b 0a 20 20  s = pMethods;.  
4710: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  }..  return rc;.
4720: 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 6c 65 74 65 20  }../*.** Delete 
4730: 74 68 65 20 66 69 6c 65 20 6c 6f 63 61 74 65 64  the file located
4740: 20 61 74 20 7a 50 61 74 68 2e 20 49 66 20 74 68   at zPath. If th
4750: 65 20 64 69 72 53 79 6e 63 20 61 72 67 75 6d 65  e dirSync argume
4760: 6e 74 20 69 73 20 74 72 75 65 2c 0a 2a 2a 20 65  nt is true,.** e
4770: 6e 73 75 72 65 20 74 68 65 20 66 69 6c 65 2d 73  nsure the file-s
4780: 79 73 74 65 6d 20 6d 6f 64 69 66 69 63 61 74 69  ystem modificati
4790: 6f 6e 73 20 61 72 65 20 73 79 6e 63 65 64 20 74  ons are synced t
47a0: 6f 20 64 69 73 6b 20 62 65 66 6f 72 65 0a 2a 2a  o disk before.**
47b0: 20 72 65 74 75 72 6e 69 6e 67 2e 0a 2a 2f 0a 73   returning..*/.s
47c0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44 65  tatic int tvfsDe
47d0: 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76 66 73  lete(sqlite3_vfs
47e0: 20 2a 70 56 66 73 2c 20 63 6f 6e 73 74 20 63 68   *pVfs, const ch
47f0: 61 72 20 2a 7a 50 61 74 68 2c 20 69 6e 74 20 64  ar *zPath, int d
4800: 69 72 53 79 6e 63 29 7b 0a 20 20 69 6e 74 20 72  irSync){.  int r
4810: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
4820: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
4830: 65 73 74 76 66 73 20 2a 29 70 56 66 73 2d 3e 70  estvfs *)pVfs->p
4840: 41 70 70 44 61 74 61 3b 0a 0a 20 20 69 66 28 20  AppData;..  if( 
4850: 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d  p->pScript && p-
4860: 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 44 45  >mask&TESTVFS_DE
4870: 4c 45 54 45 5f 4d 41 53 4b 20 29 7b 0a 20 20 20  LETE_MASK ){.   
4880: 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20   tvfsExecTcl(p, 
4890: 22 78 44 65 6c 65 74 65 22 2c 20 0a 20 20 20 20  "xDelete", .    
48a0: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e      Tcl_NewStrin
48b0: 67 4f 62 6a 28 7a 50 61 74 68 2c 20 2d 31 29 2c  gObj(zPath, -1),
48c0: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 64   Tcl_NewIntObj(d
48d0: 69 72 53 79 6e 63 29 2c 20 30 2c 20 30 0a 20 20  irSync), 0, 0.  
48e0: 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73    );.    tvfsRes
48f0: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b  ultCode(p, &rc);
4900: 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d 53  .  }.  if( rc==S
4910: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
4920: 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 44 65  rc = sqlite3OsDe
4930: 6c 65 74 65 28 50 41 52 45 4e 54 56 46 53 28 70  lete(PARENTVFS(p
4940: 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 64 69 72  Vfs), zPath, dir
4950: 53 79 6e 63 29 3b 0a 20 20 7d 0a 20 20 72 65 74  Sync);.  }.  ret
4960: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  urn rc;.}../*.**
4970: 20 54 65 73 74 20 66 6f 72 20 61 63 63 65 73 73   Test for access
4980: 20 70 65 72 6d 69 73 73 69 6f 6e 73 2e 20 52 65   permissions. Re
4990: 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68 65  turn true if the
49a0: 20 72 65 71 75 65 73 74 65 64 20 70 65 72 6d 69   requested permi
49b0: 73 73 69 6f 6e 0a 2a 2a 20 69 73 20 61 76 61 69  ssion.** is avai
49c0: 6c 61 62 6c 65 2c 20 6f 72 20 66 61 6c 73 65 20  lable, or false 
49d0: 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f 0a 73 74  otherwise..*/.st
49e0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 41 63 63  atic int tvfsAcc
49f0: 65 73 73 28 0a 20 20 73 71 6c 69 74 65 33 5f 76  ess(.  sqlite3_v
4a00: 66 73 20 2a 70 56 66 73 2c 20 0a 20 20 63 6f 6e  fs *pVfs, .  con
4a10: 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20  st char *zPath, 
4a20: 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c 20 0a 20  .  int flags, . 
4a30: 20 69 6e 74 20 2a 70 52 65 73 4f 75 74 0a 29 7b   int *pResOut.){
4a40: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
4a50: 28 54 65 73 74 76 66 73 20 2a 29 70 56 66 73 2d  (Testvfs *)pVfs-
4a60: 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69 66 28  >pAppData;.  if(
4a70: 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70   p->pScript && p
4a80: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 41  ->mask&TESTVFS_A
4a90: 43 43 45 53 53 5f 4d 41 53 4b 20 29 7b 0a 20 20  CCESS_MASK ){.  
4aa0: 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 20 63 68    int rc;.    ch
4ab0: 61 72 20 2a 7a 41 72 67 20 3d 20 30 3b 0a 20 20  ar *zArg = 0;.  
4ac0: 20 20 69 66 28 20 66 6c 61 67 73 3d 3d 53 51 4c    if( flags==SQL
4ad0: 49 54 45 5f 41 43 43 45 53 53 5f 45 58 49 53 54  ITE_ACCESS_EXIST
4ae0: 53 20 29 20 7a 41 72 67 20 3d 20 22 53 51 4c 49  S ) zArg = "SQLI
4af0: 54 45 5f 41 43 43 45 53 53 5f 45 58 49 53 54 53  TE_ACCESS_EXISTS
4b00: 22 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 67 73  ";.    if( flags
4b10: 3d 3d 53 51 4c 49 54 45 5f 41 43 43 45 53 53 5f  ==SQLITE_ACCESS_
4b20: 52 45 41 44 57 52 49 54 45 20 29 20 7a 41 72 67  READWRITE ) zArg
4b30: 20 3d 20 22 53 51 4c 49 54 45 5f 41 43 43 45 53   = "SQLITE_ACCES
4b40: 53 5f 52 45 41 44 57 52 49 54 45 22 3b 0a 20 20  S_READWRITE";.  
4b50: 20 20 69 66 28 20 66 6c 61 67 73 3d 3d 53 51 4c    if( flags==SQL
4b60: 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41 44 20  ITE_ACCESS_READ 
4b70: 29 20 7a 41 72 67 20 3d 20 22 53 51 4c 49 54 45  ) zArg = "SQLITE
4b80: 5f 41 43 43 45 53 53 5f 52 45 41 44 22 3b 0a 20  _ACCESS_READ";. 
4b90: 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70     tvfsExecTcl(p
4ba0: 2c 20 22 78 41 63 63 65 73 73 22 2c 20 0a 20 20  , "xAccess", .  
4bb0: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
4bc0: 69 6e 67 4f 62 6a 28 7a 50 61 74 68 2c 20 2d 31  ingObj(zPath, -1
4bd0: 29 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  ), Tcl_NewString
4be0: 4f 62 6a 28 7a 41 72 67 2c 20 2d 31 29 2c 20 30  Obj(zArg, -1), 0
4bf0: 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 69  , 0.    );.    i
4c00: 66 28 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64  f( tvfsResultCod
4c10: 65 28 70 2c 20 26 72 63 29 20 29 7b 0a 20 20 20  e(p, &rc) ){.   
4c20: 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54     if( rc!=SQLIT
4c30: 45 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20 72 63  E_OK ) return rc
4c40: 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ;.    }else{.   
4c50: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
4c60: 6e 74 65 72 70 20 3d 20 70 2d 3e 69 6e 74 65 72  nterp = p->inter
4c70: 70 3b 0a 20 20 20 20 20 20 69 66 28 20 54 43 4c  p;.      if( TCL
4c80: 5f 4f 4b 3d 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c  _OK==Tcl_GetBool
4c90: 65 61 6e 46 72 6f 6d 4f 62 6a 28 30 2c 20 54 63  eanFromObj(0, Tc
4ca0: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_GetObjResult(i
4cb0: 6e 74 65 72 70 29 2c 20 70 52 65 73 4f 75 74 29  nterp), pResOut)
4cc0: 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75   ){.        retu
4cd0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20  rn SQLITE_OK;.  
4ce0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a      }.    }.  }.
4cf0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
4d00: 4f 73 41 63 63 65 73 73 28 50 41 52 45 4e 54 56  OsAccess(PARENTV
4d10: 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c  FS(pVfs), zPath,
4d20: 20 66 6c 61 67 73 2c 20 70 52 65 73 4f 75 74 29   flags, pResOut)
4d30: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c  ;.}../*.** Popul
4d40: 61 74 65 20 62 75 66 66 65 72 20 7a 4f 75 74 20  ate buffer zOut 
4d50: 77 69 74 68 20 74 68 65 20 66 75 6c 6c 20 63 61  with the full ca
4d60: 6e 6f 6e 69 63 61 6c 20 70 61 74 68 6e 61 6d 65  nonical pathname
4d70: 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 2a   corresponding.*
4d80: 2a 20 74 6f 20 74 68 65 20 70 61 74 68 6e 61 6d  * to the pathnam
4d90: 65 20 69 6e 20 7a 50 61 74 68 2e 20 7a 4f 75 74  e in zPath. zOut
4da0: 20 69 73 20 67 75 61 72 61 6e 74 65 65 64 20 74   is guaranteed t
4db0: 6f 20 70 6f 69 6e 74 20 74 6f 20 61 20 62 75 66  o point to a buf
4dc0: 66 65 72 0a 2a 2a 20 6f 66 20 61 74 20 6c 65 61  fer.** of at lea
4dd0: 73 74 20 28 44 45 56 53 59 4d 5f 4d 41 58 5f 50  st (DEVSYM_MAX_P
4de0: 41 54 48 4e 41 4d 45 2b 31 29 20 62 79 74 65 73  ATHNAME+1) bytes
4df0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
4e00: 74 76 66 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65  tvfsFullPathname
4e10: 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20  (.  sqlite3_vfs 
4e20: 2a 70 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74 20  *pVfs, .  const 
4e30: 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20 20  char *zPath, .  
4e40: 69 6e 74 20 6e 4f 75 74 2c 20 0a 20 20 63 68 61  int nOut, .  cha
4e50: 72 20 2a 7a 4f 75 74 0a 29 7b 0a 20 20 54 65 73  r *zOut.){.  Tes
4e60: 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76  tvfs *p = (Testv
4e70: 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70 44  fs *)pVfs->pAppD
4e80: 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53  ata;.  if( p->pS
4e90: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
4ea0: 26 54 45 53 54 56 46 53 5f 46 55 4c 4c 50 41 54  &TESTVFS_FULLPAT
4eb0: 48 4e 41 4d 45 5f 4d 41 53 4b 20 29 7b 0a 20 20  HNAME_MASK ){.  
4ec0: 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 20 74 76    int rc;.    tv
4ed0: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 46  fsExecTcl(p, "xF
4ee0: 75 6c 6c 50 61 74 68 6e 61 6d 65 22 2c 20 54 63  ullPathname", Tc
4ef0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a  l_NewStringObj(z
4f00: 50 61 74 68 2c 20 2d 31 29 2c 20 30 2c 20 30 2c  Path, -1), 0, 0,
4f10: 20 30 29 3b 0a 20 20 20 20 69 66 28 20 74 76 66   0);.    if( tvf
4f20: 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26  sResultCode(p, &
4f30: 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28  rc) ){.      if(
4f40: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc!=SQLITE_OK )
4f50: 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20   return rc;.    
4f60: 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73  }.  }.  return s
4f70: 71 6c 69 74 65 33 4f 73 46 75 6c 6c 50 61 74 68  qlite3OsFullPath
4f80: 6e 61 6d 65 28 50 41 52 45 4e 54 56 46 53 28 70  name(PARENTVFS(p
4f90: 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 6e 4f 75  Vfs), zPath, nOu
4fa0: 74 2c 20 7a 4f 75 74 29 3b 0a 7d 0a 0a 23 69 66  t, zOut);.}..#if
4fb0: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  ndef SQLITE_OMIT
4fc0: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a  _LOAD_EXTENSION.
4fd0: 2f 2a 0a 2a 2a 20 4f 70 65 6e 20 74 68 65 20 64  /*.** Open the d
4fe0: 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79 20 6c  ynamic library l
4ff0: 6f 63 61 74 65 64 20 61 74 20 7a 50 61 74 68 20  ocated at zPath 
5000: 61 6e 64 20 72 65 74 75 72 6e 20 61 20 68 61 6e  and return a han
5010: 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  dle..*/.static v
5020: 6f 69 64 20 2a 74 76 66 73 44 6c 4f 70 65 6e 28  oid *tvfsDlOpen(
5030: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
5040: 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  s, const char *z
5050: 50 61 74 68 29 7b 0a 20 20 72 65 74 75 72 6e 20  Path){.  return 
5060: 73 71 6c 69 74 65 33 4f 73 44 6c 4f 70 65 6e 28  sqlite3OsDlOpen(
5070: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
5080: 20 7a 50 61 74 68 29 3b 0a 7d 0a 0a 2f 2a 0a 2a   zPath);.}../*.*
5090: 2a 20 50 6f 70 75 6c 61 74 65 20 74 68 65 20 62  * Populate the b
50a0: 75 66 66 65 72 20 7a 45 72 72 4d 73 67 20 28 73  uffer zErrMsg (s
50b0: 69 7a 65 20 6e 42 79 74 65 20 62 79 74 65 73 29  ize nByte bytes)
50c0: 20 77 69 74 68 20 61 20 68 75 6d 61 6e 20 72 65   with a human re
50d0: 61 64 61 62 6c 65 0a 2a 2a 20 75 74 66 2d 38 20  adable.** utf-8 
50e0: 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e  string describin
50f0: 67 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e  g the most recen
5100: 74 20 65 72 72 6f 72 20 65 6e 63 6f 75 6e 74 65  t error encounte
5110: 72 65 64 20 61 73 73 6f 63 69 61 74 65 64 20 0a  red associated .
5120: 2a 2a 20 77 69 74 68 20 64 79 6e 61 6d 69 63 20  ** with dynamic 
5130: 6c 69 62 72 61 72 69 65 73 2e 0a 2a 2f 0a 73 74  libraries..*/.st
5140: 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c  atic void tvfsDl
5150: 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f 76 66  Error(sqlite3_vf
5160: 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e 42 79  s *pVfs, int nBy
5170: 74 65 2c 20 63 68 61 72 20 2a 7a 45 72 72 4d 73  te, char *zErrMs
5180: 67 29 7b 0a 20 20 73 71 6c 69 74 65 33 4f 73 44  g){.  sqlite3OsD
5190: 6c 45 72 72 6f 72 28 50 41 52 45 4e 54 56 46 53  lError(PARENTVFS
51a0: 28 70 56 66 73 29 2c 20 6e 42 79 74 65 2c 20 7a  (pVfs), nByte, z
51b0: 45 72 72 4d 73 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  ErrMsg);.}../*.*
51c0: 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74  * Return a point
51d0: 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c  er to the symbol
51e0: 20 7a 53 79 6d 62 6f 6c 20 69 6e 20 74 68 65 20   zSymbol in the 
51f0: 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79 20  dynamic library 
5200: 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74  pHandle..*/.stat
5210: 69 63 20 76 6f 69 64 20 28 2a 74 76 66 73 44 6c  ic void (*tvfsDl
5220: 53 79 6d 28 73 71 6c 69 74 65 33 5f 76 66 73 20  Sym(sqlite3_vfs 
5230: 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70 2c 20  *pVfs, void *p, 
5240: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 79 6d  const char *zSym
5250: 29 29 28 76 6f 69 64 29 7b 0a 20 20 72 65 74 75  ))(void){.  retu
5260: 72 6e 20 73 71 6c 69 74 65 33 4f 73 44 6c 53 79  rn sqlite3OsDlSy
5270: 6d 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  m(PARENTVFS(pVfs
5280: 29 2c 20 70 2c 20 7a 53 79 6d 29 3b 0a 7d 0a 0a  ), p, zSym);.}..
5290: 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 74 68 65 20  /*.** Close the 
52a0: 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79 20  dynamic library 
52b0: 68 61 6e 64 6c 65 20 70 48 61 6e 64 6c 65 2e 0a  handle pHandle..
52c0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74  */.static void t
52d0: 76 66 73 44 6c 43 6c 6f 73 65 28 73 71 6c 69 74  vfsDlClose(sqlit
52e0: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 76 6f  e3_vfs *pVfs, vo
52f0: 69 64 20 2a 70 48 61 6e 64 6c 65 29 7b 0a 20 20  id *pHandle){.  
5300: 73 71 6c 69 74 65 33 4f 73 44 6c 43 6c 6f 73 65  sqlite3OsDlClose
5310: 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29  (PARENTVFS(pVfs)
5320: 2c 20 70 48 61 6e 64 6c 65 29 3b 0a 7d 0a 23 65  , pHandle);.}.#e
5330: 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f  ndif /* SQLITE_O
5340: 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49  MIT_LOAD_EXTENSI
5350: 4f 4e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70  ON */../*.** Pop
5360: 75 6c 61 74 65 20 74 68 65 20 62 75 66 66 65 72  ulate the buffer
5370: 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20 7a   pointed to by z
5380: 42 75 66 4f 75 74 20 77 69 74 68 20 6e 42 79 74  BufOut with nByt
5390: 65 20 62 79 74 65 73 20 6f 66 20 0a 2a 2a 20 72  e bytes of .** r
53a0: 61 6e 64 6f 6d 20 64 61 74 61 2e 0a 2a 2f 0a 73  andom data..*/.s
53b0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52 61  tatic int tvfsRa
53c0: 6e 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65 33  ndomness(sqlite3
53d0: 5f 76 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20  _vfs *pVfs, int 
53e0: 6e 42 79 74 65 2c 20 63 68 61 72 20 2a 7a 42 75  nByte, char *zBu
53f0: 66 4f 75 74 29 7b 0a 20 20 72 65 74 75 72 6e 20  fOut){.  return 
5400: 73 71 6c 69 74 65 33 4f 73 52 61 6e 64 6f 6d 6e  sqlite3OsRandomn
5410: 65 73 73 28 50 41 52 45 4e 54 56 46 53 28 70 56  ess(PARENTVFS(pV
5420: 66 73 29 2c 20 6e 42 79 74 65 2c 20 7a 42 75 66  fs), nByte, zBuf
5430: 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53  Out);.}../*.** S
5440: 6c 65 65 70 20 66 6f 72 20 6e 4d 69 63 72 6f 20  leep for nMicro 
5450: 6d 69 63 72 6f 73 65 63 6f 6e 64 73 2e 20 52 65  microseconds. Re
5460: 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20  turn the number 
5470: 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20  of microseconds 
5480: 0a 2a 2a 20 61 63 74 75 61 6c 6c 79 20 73 6c 65  .** actually sle
5490: 70 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  pt..*/.static in
54a0: 74 20 74 76 66 73 53 6c 65 65 70 28 73 71 6c 69  t tvfsSleep(sqli
54b0: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 69  te3_vfs *pVfs, i
54c0: 6e 74 20 6e 4d 69 63 72 6f 29 7b 0a 20 20 72 65  nt nMicro){.  re
54d0: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 53 6c  turn sqlite3OsSl
54e0: 65 65 70 28 50 41 52 45 4e 54 56 46 53 28 70 56  eep(PARENTVFS(pV
54f0: 66 73 29 2c 20 6e 4d 69 63 72 6f 29 3b 0a 7d 0a  fs), nMicro);.}.
5500: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68  ./*.** Return th
5510: 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 61  e current time a
5520: 73 20 61 20 4a 75 6c 69 61 6e 20 44 61 79 20 6e  s a Julian Day n
5530: 75 6d 62 65 72 20 69 6e 20 2a 70 54 69 6d 65 4f  umber in *pTimeO
5540: 75 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ut..*/.static in
5550: 74 20 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d  t tvfsCurrentTim
5560: 65 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70  e(sqlite3_vfs *p
5570: 56 66 73 2c 20 64 6f 75 62 6c 65 20 2a 70 54 69  Vfs, double *pTi
5580: 6d 65 4f 75 74 29 7b 0a 20 20 72 65 74 75 72 6e  meOut){.  return
5590: 20 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29   PARENTVFS(pVfs)
55a0: 2d 3e 78 43 75 72 72 65 6e 74 54 69 6d 65 28 50  ->xCurrentTime(P
55b0: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
55c0: 70 54 69 6d 65 4f 75 74 29 3b 0a 7d 0a 0a 73 74  pTimeOut);.}..st
55d0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d  atic int tvfsShm
55e0: 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 66 69 6c  Open(sqlite3_fil
55f0: 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73  e *pFile){.  Tes
5600: 74 76 66 73 20 2a 70 3b 0a 20 20 69 6e 74 20 72  tvfs *p;.  int r
5610: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 20 20  c = SQLITE_OK;  
5620: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65             /* Re
5630: 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 20 20 54  turn code */.  T
5640: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 42  estvfsBuffer *pB
5650: 75 66 66 65 72 3b 20 20 20 20 20 20 20 20 20 2f  uffer;         /
5660: 2a 20 42 75 66 66 65 72 20 74 6f 20 6f 70 65 6e  * Buffer to open
5670: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 2a   connection to *
5680: 2f 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70  /.  TestvfsFd *p
5690: 46 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  Fd;             
56a0: 20 20 20 20 2f 2a 20 54 68 65 20 74 65 73 74 76      /* The testv
56b0: 66 73 20 66 69 6c 65 20 73 74 72 75 63 74 75 72  fs file structur
56c0: 65 20 2a 2f 0a 0a 20 20 70 46 64 20 3d 20 74 76  e */..  pFd = tv
56d0: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
56e0: 20 20 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a    p = (Testvfs *
56f0: 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  )pFd->pVfs->pApp
5700: 44 61 74 61 3b 0a 20 20 61 73 73 65 72 74 28 20  Data;.  assert( 
5710: 30 3d 3d 70 2d 3e 69 73 46 75 6c 6c 73 68 6d 20  0==p->isFullshm 
5720: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 46 64  );.  assert( pFd
5730: 2d 3e 70 53 68 6d 49 64 20 26 26 20 70 46 64 2d  ->pShmId && pFd-
5740: 3e 70 53 68 6d 3d 3d 30 20 26 26 20 70 46 64 2d  >pShm==0 && pFd-
5750: 3e 70 4e 65 78 74 3d 3d 30 20 29 3b 0a 0a 20 20  >pNext==0 );..  
5760: 2f 2a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20  /* Evaluate the 
5770: 54 63 6c 20 73 63 72 69 70 74 3a 20 0a 20 20 2a  Tcl script: .  *
5780: 2a 0a 20 20 2a 2a 20 20 20 53 43 52 49 50 54 20  *.  **   SCRIPT 
5790: 78 53 68 6d 4f 70 65 6e 20 46 49 4c 45 4e 41 4d  xShmOpen FILENAM
57a0: 45 0a 20 20 2a 2f 0a 20 20 54 63 6c 5f 52 65 73  E.  */.  Tcl_Res
57b0: 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65  etResult(p->inte
57c0: 72 70 29 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53  rp);.  if( p->pS
57d0: 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b  cript && p->mask
57e0: 26 54 45 53 54 56 46 53 5f 53 48 4d 4f 50 45 4e  &TESTVFS_SHMOPEN
57f0: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66  _MASK ){.    tvf
5800: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68  sExecTcl(p, "xSh
5810: 6d 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77 53  mOpen", Tcl_NewS
5820: 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46  tringObj(pFd->zF
5830: 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 30 2c  ilename, -1), 0,
5840: 20 30 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20   0, 0);.    if( 
5850: 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70  tvfsResultCode(p
5860: 2c 20 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20  , &rc) ){.      
5870: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f  if( rc!=SQLITE_O
5880: 4b 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20  K ) return rc;. 
5890: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 61 73 73 65     }.  }..  asse
58a0: 72 74 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  rt( rc==SQLITE_O
58b0: 4b 20 29 3b 0a 20 20 69 66 28 20 70 2d 3e 6d 61  K );.  if( p->ma
58c0: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4f 50  sk&TESTVFS_SHMOP
58d0: 45 4e 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49  EN_MASK && tvfsI
58e0: 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b  njectIoerr(p) ){
58f0: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
5900: 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 0a 20  TE_IOERR;.  }.. 
5910: 20 2f 2a 20 53 65 61 72 63 68 20 66 6f 72 20 61   /* Search for a
5920: 20 54 65 73 74 76 66 73 42 75 66 66 65 72 2e 20   TestvfsBuffer. 
5930: 43 72 65 61 74 65 20 61 20 6e 65 77 20 6f 6e 65  Create a new one
5940: 20 69 66 20 72 65 71 75 69 72 65 64 2e 20 2a 2f   if required. */
5950: 0a 20 20 66 6f 72 28 70 42 75 66 66 65 72 3d 70  .  for(pBuffer=p
5960: 2d 3e 70 42 75 66 66 65 72 3b 20 70 42 75 66 66  ->pBuffer; pBuff
5970: 65 72 3b 20 70 42 75 66 66 65 72 3d 70 42 75 66  er; pBuffer=pBuf
5980: 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20  fer->pNext){.   
5990: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 70   if( 0==strcmp(p
59a0: 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 70  Fd->zFilename, p
59b0: 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 29 20 29  Buffer->zFile) )
59c0: 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 69 66   break;.  }.  if
59d0: 28 20 21 70 42 75 66 66 65 72 20 29 7b 0a 20 20  ( !pBuffer ){.  
59e0: 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 73 69    int nByte = si
59f0: 7a 65 6f 66 28 54 65 73 74 76 66 73 42 75 66 66  zeof(TestvfsBuff
5a00: 65 72 29 20 2b 20 28 69 6e 74 29 73 74 72 6c 65  er) + (int)strle
5a10: 6e 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65  n(pFd->zFilename
5a20: 29 20 2b 20 31 3b 0a 20 20 20 20 70 42 75 66 66  ) + 1;.    pBuff
5a30: 65 72 20 3d 20 28 54 65 73 74 76 66 73 42 75 66  er = (TestvfsBuf
5a40: 66 65 72 20 2a 29 63 6b 61 6c 6c 6f 63 28 6e 42  fer *)ckalloc(nB
5a50: 79 74 65 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74  yte);.    memset
5a60: 28 70 42 75 66 66 65 72 2c 20 30 2c 20 6e 42 79  (pBuffer, 0, nBy
5a70: 74 65 29 3b 0a 20 20 20 20 70 42 75 66 66 65 72  te);.    pBuffer
5a80: 2d 3e 7a 46 69 6c 65 20 3d 20 28 63 68 61 72 20  ->zFile = (char 
5a90: 2a 29 26 70 42 75 66 66 65 72 5b 31 5d 3b 0a 20  *)&pBuffer[1];. 
5aa0: 20 20 20 73 74 72 63 70 79 28 70 42 75 66 66 65     strcpy(pBuffe
5ab0: 72 2d 3e 7a 46 69 6c 65 2c 20 70 46 64 2d 3e 7a  r->zFile, pFd->z
5ac0: 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20 20 70  Filename);.    p
5ad0: 42 75 66 66 65 72 2d 3e 70 4e 65 78 74 20 3d 20  Buffer->pNext = 
5ae0: 70 2d 3e 70 42 75 66 66 65 72 3b 0a 20 20 20 20  p->pBuffer;.    
5af0: 70 2d 3e 70 42 75 66 66 65 72 20 3d 20 70 42 75  p->pBuffer = pBu
5b00: 66 66 65 72 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20  ffer;.  }..  /* 
5b10: 43 6f 6e 6e 65 63 74 20 74 68 65 20 54 65 73 74  Connect the Test
5b20: 76 66 73 42 75 66 66 65 72 20 74 6f 20 74 68 65  vfsBuffer to the
5b30: 20 6e 65 77 20 54 65 73 74 76 66 73 53 68 6d 20   new TestvfsShm 
5b40: 68 61 6e 64 6c 65 20 61 6e 64 20 72 65 74 75 72  handle and retur
5b50: 6e 2e 20 2a 2f 0a 20 20 70 46 64 2d 3e 70 4e 65  n. */.  pFd->pNe
5b60: 78 74 20 3d 20 70 42 75 66 66 65 72 2d 3e 70 46  xt = pBuffer->pF
5b70: 69 6c 65 3b 0a 20 20 70 42 75 66 66 65 72 2d 3e  ile;.  pBuffer->
5b80: 70 46 69 6c 65 20 3d 20 70 46 64 3b 0a 20 20 70  pFile = pFd;.  p
5b90: 46 64 2d 3e 70 53 68 6d 20 3d 20 70 42 75 66 66  Fd->pShm = pBuff
5ba0: 65 72 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  er;.  return SQL
5bb0: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69  ITE_OK;.}..stati
5bc0: 63 20 76 6f 69 64 20 74 76 66 73 41 6c 6c 6f 63  c void tvfsAlloc
5bd0: 50 61 67 65 28 54 65 73 74 76 66 73 42 75 66 66  Page(TestvfsBuff
5be0: 65 72 20 2a 70 2c 20 69 6e 74 20 69 50 61 67 65  er *p, int iPage
5bf0: 2c 20 69 6e 74 20 70 67 73 7a 29 7b 0a 20 20 61  , int pgsz){.  a
5c00: 73 73 65 72 74 28 20 69 50 61 67 65 3c 54 45 53  ssert( iPage<TES
5c10: 54 56 46 53 5f 4d 41 58 5f 50 41 47 45 53 20 29  TVFS_MAX_PAGES )
5c20: 3b 0a 20 20 69 66 28 20 70 2d 3e 61 50 61 67 65  ;.  if( p->aPage
5c30: 5b 69 50 61 67 65 5d 3d 3d 30 20 29 7b 0a 20 20  [iPage]==0 ){.  
5c40: 20 20 70 2d 3e 61 50 61 67 65 5b 69 50 61 67 65    p->aPage[iPage
5c50: 5d 20 3d 20 28 75 38 20 2a 29 63 6b 61 6c 6c 6f  ] = (u8 *)ckallo
5c60: 63 28 70 67 73 7a 29 3b 0a 20 20 20 20 6d 65 6d  c(pgsz);.    mem
5c70: 73 65 74 28 70 2d 3e 61 50 61 67 65 5b 69 50 61  set(p->aPage[iPa
5c80: 67 65 5d 2c 20 30 2c 20 70 67 73 7a 29 3b 0a 20  ge], 0, pgsz);. 
5c90: 20 20 20 70 2d 3e 70 67 73 7a 20 3d 20 70 67 73     p->pgsz = pgs
5ca0: 7a 3b 0a 20 20 7d 0a 7d 0a 0a 73 74 61 74 69 63  z;.  }.}..static
5cb0: 20 69 6e 74 20 74 76 66 73 53 68 6d 4d 61 70 28   int tvfsShmMap(
5cc0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
5cd0: 2a 70 46 69 6c 65 2c 20 20 20 20 20 20 20 20 20  *pFile,         
5ce0: 20 20 20 2f 2a 20 48 61 6e 64 6c 65 20 6f 70 65     /* Handle ope
5cf0: 6e 20 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69  n on database fi
5d00: 6c 65 20 2a 2f 0a 20 20 69 6e 74 20 69 50 61 67  le */.  int iPag
5d10: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e,              
5d20: 20 20 20 20 20 20 20 20 2f 2a 20 50 61 67 65 20          /* Page 
5d30: 74 6f 20 72 65 74 72 69 65 76 65 20 2a 2f 0a 20  to retrieve */. 
5d40: 20 69 6e 74 20 70 67 73 7a 2c 20 20 20 20 20 20   int pgsz,      
5d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5d60: 20 2f 2a 20 53 69 7a 65 20 6f 66 20 70 61 67 65   /* Size of page
5d70: 73 20 2a 2f 0a 20 20 69 6e 74 20 69 73 57 72 69  s */.  int isWri
5d80: 74 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  te,             
5d90: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 74         /* True t
5da0: 6f 20 65 78 74 65 6e 64 20 66 69 6c 65 20 69 66  o extend file if
5db0: 20 6e 65 63 65 73 73 61 72 79 20 2a 2f 0a 20 20   necessary */.  
5dc0: 76 6f 69 64 20 76 6f 6c 61 74 69 6c 65 20 2a 2a  void volatile **
5dd0: 70 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20  pp              
5de0: 2f 2a 20 4f 55 54 3a 20 4d 61 70 70 65 64 20 6d  /* OUT: Mapped m
5df0: 65 6d 6f 72 79 20 2a 2f 0a 29 7b 0a 20 20 69 6e  emory */.){.  in
5e00: 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b  t rc = SQLITE_OK
5e10: 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70  ;.  TestvfsFd *p
5e20: 46 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70  Fd = tvfsGetFd(p
5e30: 46 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73  File);.  Testvfs
5e40: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
5e50: 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70  )(pFd->pVfs->pAp
5e60: 70 44 61 74 61 29 3b 0a 0a 20 20 69 66 28 20 70  pData);..  if( p
5e70: 2d 3e 69 73 46 75 6c 6c 73 68 6d 20 29 7b 0a 20  ->isFullshm ){. 
5e80: 20 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65     return sqlite
5e90: 33 4f 73 53 68 6d 4d 61 70 28 70 46 64 2d 3e 70  3OsShmMap(pFd->p
5ea0: 52 65 61 6c 2c 20 69 50 61 67 65 2c 20 70 67 73  Real, iPage, pgs
5eb0: 7a 2c 20 69 73 57 72 69 74 65 2c 20 70 70 29 3b  z, isWrite, pp);
5ec0: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 30 3d 3d 70  .  }..  if( 0==p
5ed0: 46 64 2d 3e 70 53 68 6d 20 29 7b 0a 20 20 20 20  Fd->pShm ){.    
5ee0: 72 63 20 3d 20 74 76 66 73 53 68 6d 4f 70 65 6e  rc = tvfsShmOpen
5ef0: 28 70 46 69 6c 65 29 3b 0a 20 20 20 20 69 66 28  (pFile);.    if(
5f00: 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc!=SQLITE_OK )
5f10: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 72  {.      return r
5f20: 63 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20  c;.    }.  }..  
5f30: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
5f40: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
5f50: 53 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20 29 7b  S_SHMMAP_MASK ){
5f60: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 41  .    Tcl_Obj *pA
5f70: 72 67 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28  rg = Tcl_NewObj(
5f80: 29 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52  );.    Tcl_IncrR
5f90: 65 66 43 6f 75 6e 74 28 70 41 72 67 29 3b 0a 20  efCount(pArg);. 
5fa0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70     Tcl_ListObjAp
5fb0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69  pendElement(p->i
5fc0: 6e 74 65 72 70 2c 20 70 41 72 67 2c 20 54 63 6c  nterp, pArg, Tcl
5fd0: 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 50 61 67 65  _NewIntObj(iPage
5fe0: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74  ));.    Tcl_List
5ff0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
6000: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 41 72 67  (p->interp, pArg
6010: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
6020: 70 67 73 7a 29 29 3b 0a 20 20 20 20 54 63 6c 5f  pgsz));.    Tcl_
6030: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
6040: 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20  ment(p->interp, 
6050: 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77 49 6e 74  pArg, Tcl_NewInt
6060: 4f 62 6a 28 69 73 57 72 69 74 65 29 29 3b 0a 20  Obj(isWrite));. 
6070: 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70     tvfsExecTcl(p
6080: 2c 20 22 78 53 68 6d 4d 61 70 22 2c 20 0a 20 20  , "xShmMap", .  
6090: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
60a0: 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68 6d  ingObj(pFd->pShm
60b0: 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 46  ->zFile, -1), pF
60c0: 64 2d 3e 70 53 68 6d 49 64 2c 20 70 41 72 67 2c  d->pShmId, pArg,
60d0: 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76   0.    );.    tv
60e0: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
60f0: 26 72 63 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65  &rc);.    Tcl_De
6100: 63 72 52 65 66 43 6f 75 6e 74 28 70 41 72 67 29  crRefCount(pArg)
6110: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d  ;.  }.  if( rc==
6120: 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e  SQLITE_OK && p->
6130: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d  mask&TESTVFS_SHM
6140: 4d 41 50 5f 4d 41 53 4b 20 26 26 20 74 76 66 73  MAP_MASK && tvfs
6150: 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29  InjectIoerr(p) )
6160: 7b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54  {.    rc = SQLIT
6170: 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 0a 20 20  E_IOERR;.  }..  
6180: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
6190: 4b 20 26 26 20 69 73 57 72 69 74 65 20 26 26 20  K && isWrite && 
61a0: 21 70 46 64 2d 3e 70 53 68 6d 2d 3e 61 50 61 67  !pFd->pShm->aPag
61b0: 65 5b 69 50 61 67 65 5d 20 29 7b 0a 20 20 20 20  e[iPage] ){.    
61c0: 74 76 66 73 41 6c 6c 6f 63 50 61 67 65 28 70 46  tvfsAllocPage(pF
61d0: 64 2d 3e 70 53 68 6d 2c 20 69 50 61 67 65 2c 20  d->pShm, iPage, 
61e0: 70 67 73 7a 29 3b 0a 20 20 7d 0a 20 20 2a 70 70  pgsz);.  }.  *pp
61f0: 20 3d 20 28 76 6f 69 64 20 76 6f 6c 61 74 69 6c   = (void volatil
6200: 65 20 2a 29 70 46 64 2d 3e 70 53 68 6d 2d 3e 61  e *)pFd->pShm->a
6210: 50 61 67 65 5b 69 50 61 67 65 5d 3b 0a 0a 20 20  Page[iPage];..  
6220: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 0a 73  return rc;.}...s
6230: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68  tatic int tvfsSh
6240: 6d 4c 6f 63 6b 28 0a 20 20 73 71 6c 69 74 65 33  mLock(.  sqlite3
6250: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 0a 20 20  _file *pFile,.  
6260: 69 6e 74 20 6f 66 73 74 2c 0a 20 20 69 6e 74 20  int ofst,.  int 
6270: 6e 2c 0a 20 20 69 6e 74 20 66 6c 61 67 73 0a 29  n,.  int flags.)
6280: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
6290: 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66  ITE_OK;.  Testvf
62a0: 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47  sFd *pFd = tvfsG
62b0: 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54  etFd(pFile);.  T
62c0: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
62d0: 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70 56 66  tvfs *)(pFd->pVf
62e0: 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 20 20  s->pAppData);.  
62f0: 69 6e 74 20 6e 4c 6f 63 6b 3b 0a 20 20 63 68 61  int nLock;.  cha
6300: 72 20 7a 4c 6f 63 6b 5b 38 30 5d 3b 0a 0a 20 20  r zLock[80];..  
6310: 69 66 28 20 70 2d 3e 69 73 46 75 6c 6c 73 68 6d  if( p->isFullshm
6320: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 73   ){.    return s
6330: 71 6c 69 74 65 33 4f 73 53 68 6d 4c 6f 63 6b 28  qlite3OsShmLock(
6340: 70 46 64 2d 3e 70 52 65 61 6c 2c 20 6f 66 73 74  pFd->pReal, ofst
6350: 2c 20 6e 2c 20 66 6c 61 67 73 29 3b 0a 20 20 7d  , n, flags);.  }
6360: 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69  ..  if( p->pScri
6370: 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45  pt && p->mask&TE
6380: 53 54 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41  STVFS_SHMLOCK_MA
6390: 53 4b 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65  SK ){.    sqlite
63a0: 33 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f  3_snprintf(sizeo
63b0: 66 28 7a 4c 6f 63 6b 29 2c 20 7a 4c 6f 63 6b 2c  f(zLock), zLock,
63c0: 20 22 25 64 20 25 64 22 2c 20 6f 66 73 74 2c 20   "%d %d", ofst, 
63d0: 6e 29 3b 0a 20 20 20 20 6e 4c 6f 63 6b 20 3d 20  n);.    nLock = 
63e0: 28 69 6e 74 29 73 74 72 6c 65 6e 28 7a 4c 6f 63  (int)strlen(zLoc
63f0: 6b 29 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 67  k);.    if( flag
6400: 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d 5f 4c  s & SQLITE_SHM_L
6410: 4f 43 4b 20 29 7b 0a 20 20 20 20 20 20 73 74 72  OCK ){.      str
6420: 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b  cpy(&zLock[nLock
6430: 5d 2c 20 22 20 6c 6f 63 6b 22 29 3b 0a 20 20 20  ], " lock");.   
6440: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 74   }else{.      st
6450: 72 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63  rcpy(&zLock[nLoc
6460: 6b 5d 2c 20 22 20 75 6e 6c 6f 63 6b 22 29 3b 0a  k], " unlock");.
6470: 20 20 20 20 7d 0a 20 20 20 20 6e 4c 6f 63 6b 20      }.    nLock 
6480: 2b 3d 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 26  += (int)strlen(&
6490: 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 29 3b 0a 20  zLock[nLock]);. 
64a0: 20 20 20 69 66 28 20 66 6c 61 67 73 20 26 20 53     if( flags & S
64b0: 51 4c 49 54 45 5f 53 48 4d 5f 53 48 41 52 45 44  QLITE_SHM_SHARED
64c0: 20 29 7b 0a 20 20 20 20 20 20 73 74 72 63 70 79   ){.      strcpy
64d0: 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20  (&zLock[nLock], 
64e0: 22 20 73 68 61 72 65 64 22 29 3b 0a 20 20 20 20  " shared");.    
64f0: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 74 72  }else{.      str
6500: 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b  cpy(&zLock[nLock
6510: 5d 2c 20 22 20 65 78 63 6c 75 73 69 76 65 22 29  ], " exclusive")
6520: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 74 76 66 73  ;.    }.    tvfs
6530: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d  ExecTcl(p, "xShm
6540: 4c 6f 63 6b 22 2c 20 0a 20 20 20 20 20 20 20 20  Lock", .        
6550: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
6560: 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c  (pFd->pShm->zFil
6570: 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68  e, -1), pFd->pSh
6580: 6d 49 64 2c 0a 20 20 20 20 20 20 20 20 54 63 6c  mId,.        Tcl
6590: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4c  _NewStringObj(zL
65a0: 6f 63 6b 2c 20 2d 31 29 2c 20 30 0a 20 20 20 20  ock, -1), 0.    
65b0: 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c  );.    tvfsResul
65c0: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20  tCode(p, &rc);. 
65d0: 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53 51   }..  if( rc==SQ
65e0: 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e 6d 61  LITE_OK && p->ma
65f0: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4c 4f  sk&TESTVFS_SHMLO
6600: 43 4b 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49  CK_MASK && tvfsI
6610: 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b  njectIoerr(p) ){
6620: 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45  .    rc = SQLITE
6630: 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 0a 20 20 69  _IOERR;.  }..  i
6640: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
6650: 20 29 7b 0a 20 20 20 20 69 6e 74 20 69 73 4c 6f   ){.    int isLo
6660: 63 6b 20 3d 20 28 66 6c 61 67 73 20 26 20 53 51  ck = (flags & SQ
6670: 4c 49 54 45 5f 53 48 4d 5f 4c 4f 43 4b 29 3b 0a  LITE_SHM_LOCK);.
6680: 20 20 20 20 69 6e 74 20 69 73 45 78 63 6c 20 3d      int isExcl =
6690: 20 28 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45   (flags & SQLITE
66a0: 5f 53 48 4d 5f 45 58 43 4c 55 53 49 56 45 29 3b  _SHM_EXCLUSIVE);
66b0: 0a 20 20 20 20 75 33 32 20 6d 61 73 6b 20 3d 20  .    u32 mask = 
66c0: 28 28 28 31 3c 3c 6e 29 2d 31 29 20 3c 3c 20 6f  (((1<<n)-1) << o
66d0: 66 73 74 29 3b 0a 20 20 20 20 69 66 28 20 69 73  fst);.    if( is
66e0: 4c 6f 63 6b 20 29 7b 0a 20 20 20 20 20 20 54 65  Lock ){.      Te
66f0: 73 74 76 66 73 46 64 20 2a 70 32 3b 0a 20 20 20  stvfsFd *p2;.   
6700: 20 20 20 66 6f 72 28 70 32 3d 70 46 64 2d 3e 70     for(p2=pFd->p
6710: 53 68 6d 2d 3e 70 46 69 6c 65 3b 20 70 32 3b 20  Shm->pFile; p2; 
6720: 70 32 3d 70 32 2d 3e 70 4e 65 78 74 29 7b 0a 20  p2=p2->pNext){. 
6730: 20 20 20 20 20 20 20 69 66 28 20 70 32 3d 3d 70         if( p2==p
6740: 46 64 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20  Fd ) continue;. 
6750: 20 20 20 20 20 20 20 69 66 28 20 28 70 32 2d 3e         if( (p2->
6760: 65 78 63 6c 6c 6f 63 6b 26 6d 61 73 6b 29 20 7c  excllock&mask) |
6770: 7c 20 28 69 73 45 78 63 6c 20 26 26 20 70 32 2d  | (isExcl && p2-
6780: 3e 73 68 61 72 65 64 6c 6f 63 6b 26 6d 61 73 6b  >sharedlock&mask
6790: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72  ) ){.          r
67a0: 63 20 3d 20 53 51 4c 49 54 45 5f 42 55 53 59 3b  c = SQLITE_BUSY;
67b0: 0a 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b  .          break
67c0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
67d0: 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 72 63    }.      if( rc
67e0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20  ==SQLITE_OK ){. 
67f0: 20 20 20 20 20 20 20 69 66 28 20 69 73 45 78 63         if( isExc
6800: 6c 20 29 20 20 70 46 64 2d 3e 65 78 63 6c 6c 6f  l )  pFd->excllo
6810: 63 6b 20 7c 3d 20 6d 61 73 6b 3b 0a 20 20 20 20  ck |= mask;.    
6820: 20 20 20 20 69 66 28 20 21 69 73 45 78 63 6c 20      if( !isExcl 
6830: 29 20 70 46 64 2d 3e 73 68 61 72 65 64 6c 6f 63  ) pFd->sharedloc
6840: 6b 20 7c 3d 20 6d 61 73 6b 3b 0a 20 20 20 20 20  k |= mask;.     
6850: 20 7d 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20   }.    }else{.  
6860: 20 20 20 20 69 66 28 20 69 73 45 78 63 6c 20 29      if( isExcl )
6870: 20 20 70 46 64 2d 3e 65 78 63 6c 6c 6f 63 6b 20    pFd->excllock 
6880: 26 3d 20 28 7e 6d 61 73 6b 29 3b 0a 20 20 20 20  &= (~mask);.    
6890: 20 20 69 66 28 20 21 69 73 45 78 63 6c 20 29 20    if( !isExcl ) 
68a0: 70 46 64 2d 3e 73 68 61 72 65 64 6c 6f 63 6b 20  pFd->sharedlock 
68b0: 26 3d 20 28 7e 6d 61 73 6b 29 3b 0a 20 20 20 20  &= (~mask);.    
68c0: 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  }.  }..  return 
68d0: 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f  rc;.}..static vo
68e0: 69 64 20 74 76 66 73 53 68 6d 42 61 72 72 69 65  id tvfsShmBarrie
68f0: 72 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  r(sqlite3_file *
6900: 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66  pFile){.  Testvf
6910: 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47  sFd *pFd = tvfsG
6920: 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54  etFd(pFile);.  T
6930: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
6940: 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70 56 66  tvfs *)(pFd->pVf
6950: 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 0a 20  s->pAppData);.. 
6960: 20 69 66 28 20 70 2d 3e 69 73 46 75 6c 6c 73 68   if( p->isFullsh
6970: 6d 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  m ){.    sqlite3
6980: 4f 73 53 68 6d 42 61 72 72 69 65 72 28 70 46 64  OsShmBarrier(pFd
6990: 2d 3e 70 52 65 61 6c 29 3b 0a 20 20 20 20 72 65  ->pReal);.    re
69a0: 74 75 72 6e 3b 0a 20 20 7d 0a 0a 20 20 69 66 28  turn;.  }..  if(
69b0: 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70   p->pScript && p
69c0: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53  ->mask&TESTVFS_S
69d0: 48 4d 42 41 52 52 49 45 52 5f 4d 41 53 4b 20 29  HMBARRIER_MASK )
69e0: 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  {.    tvfsExecTc
69f0: 6c 28 70 2c 20 22 78 53 68 6d 42 61 72 72 69 65  l(p, "xShmBarrie
6a00: 72 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c  r", .        Tcl
6a10: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46  _NewStringObj(pF
6a20: 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20  d->pShm->zFile, 
6a30: 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64  -1), pFd->pShmId
6a40: 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20  , 0, 0.    );.  
6a50: 7d 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  }.}..static int 
6a60: 74 76 66 73 53 68 6d 55 6e 6d 61 70 28 0a 20 20  tvfsShmUnmap(.  
6a70: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
6a80: 69 6c 65 2c 0a 20 20 69 6e 74 20 64 65 6c 65 74  ile,.  int delet
6a90: 65 46 6c 61 67 0a 29 7b 0a 20 20 69 6e 74 20 72  eFlag.){.  int r
6aa0: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
6ab0: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20   TestvfsFd *pFd 
6ac0: 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c  = tvfsGetFd(pFil
6ad0: 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  e);.  Testvfs *p
6ae0: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70   = (Testvfs *)(p
6af0: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
6b00: 74 61 29 3b 0a 20 20 54 65 73 74 76 66 73 42 75  ta);.  TestvfsBu
6b10: 66 66 65 72 20 2a 70 42 75 66 66 65 72 20 3d 20  ffer *pBuffer = 
6b20: 70 46 64 2d 3e 70 53 68 6d 3b 0a 20 20 54 65 73  pFd->pShm;.  Tes
6b30: 74 76 66 73 46 64 20 2a 2a 70 70 46 64 3b 0a 0a  tvfsFd **ppFd;..
6b40: 20 20 69 66 28 20 70 2d 3e 69 73 46 75 6c 6c 73    if( p->isFulls
6b50: 68 6d 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  hm ){.    return
6b60: 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 55 6e 6d   sqlite3OsShmUnm
6b70: 61 70 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 64  ap(pFd->pReal, d
6b80: 65 6c 65 74 65 46 6c 61 67 29 3b 0a 20 20 7d 0a  eleteFlag);.  }.
6b90: 0a 20 20 69 66 28 20 21 70 42 75 66 66 65 72 20  .  if( !pBuffer 
6ba0: 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f  ) return SQLITE_
6bb0: 4f 4b 3b 0a 20 20 61 73 73 65 72 74 28 20 70 46  OK;.  assert( pF
6bc0: 64 2d 3e 70 53 68 6d 49 64 20 26 26 20 70 46 64  d->pShmId && pFd
6bd0: 2d 3e 70 53 68 6d 20 29 3b 0a 0a 20 20 69 66 28  ->pShm );..  if(
6be0: 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70   p->pScript && p
6bf0: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53  ->mask&TESTVFS_S
6c00: 48 4d 43 4c 4f 53 45 5f 4d 41 53 4b 20 29 7b 0a  HMCLOSE_MASK ){.
6c10: 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28      tvfsExecTcl(
6c20: 70 2c 20 22 78 53 68 6d 55 6e 6d 61 70 22 2c 20  p, "xShmUnmap", 
6c30: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  .        Tcl_New
6c40: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70  StringObj(pFd->p
6c50: 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c  Shm->zFile, -1),
6c60: 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 2c   pFd->pShmId, 0,
6c70: 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76   0.    );.    tv
6c80: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
6c90: 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 66 6f 72  &rc);.  }..  for
6ca0: 28 70 70 46 64 3d 26 70 42 75 66 66 65 72 2d 3e  (ppFd=&pBuffer->
6cb0: 70 46 69 6c 65 3b 20 2a 70 70 46 64 21 3d 70 46  pFile; *ppFd!=pF
6cc0: 64 3b 20 70 70 46 64 3d 26 28 28 2a 70 70 46 64  d; ppFd=&((*ppFd
6cd0: 29 2d 3e 70 4e 65 78 74 29 29 3b 0a 20 20 61 73  )->pNext));.  as
6ce0: 73 65 72 74 28 20 28 2a 70 70 46 64 29 3d 3d 70  sert( (*ppFd)==p
6cf0: 46 64 20 29 3b 0a 20 20 2a 70 70 46 64 20 3d 20  Fd );.  *ppFd = 
6d00: 70 46 64 2d 3e 70 4e 65 78 74 3b 0a 20 20 70 46  pFd->pNext;.  pF
6d10: 64 2d 3e 70 4e 65 78 74 20 3d 20 30 3b 0a 0a 20  d->pNext = 0;.. 
6d20: 20 69 66 28 20 70 42 75 66 66 65 72 2d 3e 70 46   if( pBuffer->pF
6d30: 69 6c 65 3d 3d 30 20 29 7b 0a 20 20 20 20 69 6e  ile==0 ){.    in
6d40: 74 20 69 3b 0a 20 20 20 20 54 65 73 74 76 66 73  t i;.    Testvfs
6d50: 42 75 66 66 65 72 20 2a 2a 70 70 3b 0a 20 20 20  Buffer **pp;.   
6d60: 20 66 6f 72 28 70 70 3d 26 70 2d 3e 70 42 75 66   for(pp=&p->pBuf
6d70: 66 65 72 3b 20 2a 70 70 21 3d 70 42 75 66 66 65  fer; *pp!=pBuffe
6d80: 72 3b 20 70 70 3d 26 28 28 2a 70 70 29 2d 3e 70  r; pp=&((*pp)->p
6d90: 4e 65 78 74 29 29 3b 0a 20 20 20 20 2a 70 70 20  Next));.    *pp 
6da0: 3d 20 28 2a 70 70 29 2d 3e 70 4e 65 78 74 3b 0a  = (*pp)->pNext;.
6db0: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 70 42 75      for(i=0; pBu
6dc0: 66 66 65 72 2d 3e 61 50 61 67 65 5b 69 5d 3b 20  ffer->aPage[i]; 
6dd0: 69 2b 2b 29 7b 0a 20 20 20 20 20 20 63 6b 66 72  i++){.      ckfr
6de0: 65 65 28 28 63 68 61 72 20 2a 29 70 42 75 66 66  ee((char *)pBuff
6df0: 65 72 2d 3e 61 50 61 67 65 5b 69 5d 29 3b 0a 20  er->aPage[i]);. 
6e00: 20 20 20 7d 0a 20 20 20 20 63 6b 66 72 65 65 28     }.    ckfree(
6e10: 28 63 68 61 72 20 2a 29 70 42 75 66 66 65 72 29  (char *)pBuffer)
6e20: 3b 0a 20 20 7d 0a 20 20 70 46 64 2d 3e 70 53 68  ;.  }.  pFd->pSh
6e30: 6d 20 3d 20 30 3b 0a 0a 20 20 72 65 74 75 72 6e  m = 0;..  return
6e40: 20 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69   rc;.}..static i
6e50: 6e 74 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 63  nt testvfs_obj_c
6e60: 6d 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61  md(.  ClientData
6e70: 20 63 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72   cd,.  Tcl_Inter
6e80: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74  p *interp,.  int
6e90: 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a   objc,.  Tcl_Obj
6ea0: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29   *CONST objv[].)
6eb0: 7b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  {.  Testvfs *p =
6ec0: 20 28 54 65 73 74 76 66 73 20 2a 29 63 64 3b 0a   (Testvfs *)cd;.
6ed0: 0a 20 20 65 6e 75 6d 20 44 42 5f 65 6e 75 6d 20  .  enum DB_enum 
6ee0: 7b 20 0a 20 20 20 20 43 4d 44 5f 53 48 4d 2c 20  { .    CMD_SHM, 
6ef0: 43 4d 44 5f 44 45 4c 45 54 45 2c 20 43 4d 44 5f  CMD_DELETE, CMD_
6f00: 46 49 4c 54 45 52 2c 20 43 4d 44 5f 49 4f 45 52  FILTER, CMD_IOER
6f10: 52 2c 20 43 4d 44 5f 53 43 52 49 50 54 2c 20 0a  R, CMD_SCRIPT, .
6f20: 20 20 20 20 43 4d 44 5f 44 45 56 43 48 41 52 2c      CMD_DEVCHAR,
6f30: 20 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a 45 2c   CMD_SECTORSIZE,
6f40: 20 43 4d 44 5f 46 55 4c 4c 45 52 52 2c 20 43 4d   CMD_FULLERR, CM
6f50: 44 5f 43 41 4e 54 4f 50 45 4e 45 52 52 0a 20 20  D_CANTOPENERR.  
6f60: 7d 3b 0a 20 20 73 74 72 75 63 74 20 54 65 73 74  };.  struct Test
6f70: 76 66 73 53 75 62 63 6d 64 20 7b 0a 20 20 20 20  vfsSubcmd {.    
6f80: 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20  char *zName;.   
6f90: 20 65 6e 75 6d 20 44 42 5f 65 6e 75 6d 20 65 43   enum DB_enum eC
6fa0: 6d 64 3b 0a 20 20 7d 20 61 53 75 62 63 6d 64 5b  md;.  } aSubcmd[
6fb0: 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22 73 68 6d  ] = {.    { "shm
6fc0: 22 2c 20 20 20 20 20 20 20 20 20 43 4d 44 5f 53  ",         CMD_S
6fd0: 48 4d 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20  HM         },.  
6fe0: 20 20 7b 20 22 64 65 6c 65 74 65 22 2c 20 20 20    { "delete",   
6ff0: 20 20 20 43 4d 44 5f 44 45 4c 45 54 45 20 20 20     CMD_DELETE   
7000: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 66 69 6c     },.    { "fil
7010: 74 65 72 22 2c 20 20 20 20 20 20 43 4d 44 5f 46  ter",      CMD_F
7020: 49 4c 54 45 52 20 20 20 20 20 20 7d 2c 0a 20 20  ILTER      },.  
7030: 20 20 7b 20 22 69 6f 65 72 72 22 2c 20 20 20 20    { "ioerr",    
7040: 20 20 20 43 4d 44 5f 49 4f 45 52 52 20 20 20 20     CMD_IOERR    
7050: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 66 75 6c     },.    { "ful
7060: 6c 65 72 72 22 2c 20 20 20 20 20 43 4d 44 5f 46  lerr",     CMD_F
7070: 55 4c 4c 45 52 52 20 20 20 20 20 7d 2c 0a 20 20  ULLERR     },.  
7080: 20 20 7b 20 22 63 61 6e 74 6f 70 65 6e 65 72 72    { "cantopenerr
7090: 22 2c 20 43 4d 44 5f 43 41 4e 54 4f 50 45 4e 45  ", CMD_CANTOPENE
70a0: 52 52 20 7d 2c 0a 20 20 20 20 7b 20 22 73 63 72  RR },.    { "scr
70b0: 69 70 74 22 2c 20 20 20 20 20 20 43 4d 44 5f 53  ipt",      CMD_S
70c0: 43 52 49 50 54 20 20 20 20 20 20 7d 2c 0a 20 20  CRIPT      },.  
70d0: 20 20 7b 20 22 64 65 76 63 68 61 72 22 2c 20 20    { "devchar",  
70e0: 20 20 20 43 4d 44 5f 44 45 56 43 48 41 52 20 20     CMD_DEVCHAR  
70f0: 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 65 63     },.    { "sec
7100: 74 6f 72 73 69 7a 65 22 2c 20 20 43 4d 44 5f 53  torsize",  CMD_S
7110: 45 43 54 4f 52 53 49 5a 45 20 20 7d 2c 0a 20 20  ECTORSIZE  },.  
7120: 20 20 7b 20 30 2c 20 30 20 7d 0a 20 20 7d 3b 0a    { 0, 0 }.  };.
7130: 20 20 69 6e 74 20 69 3b 0a 20 20 0a 20 20 69 66    int i;.  .  if
7140: 28 20 6f 62 6a 63 3c 32 20 29 7b 0a 20 20 20 20  ( objc<2 ){.    
7150: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
7160: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
7170: 2c 20 22 53 55 42 43 4f 4d 4d 41 4e 44 20 2e 2e  , "SUBCOMMAND ..
7180: 2e 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  .");.    return 
7190: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
71a0: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 64 65   if( Tcl_GetInde
71b0: 78 46 72 6f 6d 4f 62 6a 53 74 72 75 63 74 28 0a  xFromObjStruct(.
71c0: 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c 20          interp, 
71d0: 6f 62 6a 76 5b 31 5d 2c 20 61 53 75 62 63 6d 64  objv[1], aSubcmd
71e0: 2c 20 73 69 7a 65 6f 66 28 61 53 75 62 63 6d 64  , sizeof(aSubcmd
71f0: 5b 30 5d 29 2c 20 22 73 75 62 63 6f 6d 6d 61 6e  [0]), "subcomman
7200: 64 22 2c 20 30 2c 20 26 69 29 20 0a 20 20 29 7b  d", 0, &i) .  ){
7210: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
7220: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c  ERROR;.  }.  Tcl
7230: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74  _ResetResult(int
7240: 65 72 70 29 3b 0a 0a 20 20 73 77 69 74 63 68 28  erp);..  switch(
7250: 20 61 53 75 62 63 6d 64 5b 69 5d 2e 65 43 6d 64   aSubcmd[i].eCmd
7260: 20 29 7b 0a 20 20 20 20 63 61 73 65 20 43 4d 44   ){.    case CMD
7270: 5f 53 48 4d 3a 20 7b 0a 20 20 20 20 20 20 54 63  _SHM: {.      Tc
7280: 6c 5f 4f 62 6a 20 2a 70 4f 62 6a 3b 0a 20 20 20  l_Obj *pObj;.   
7290: 20 20 20 69 6e 74 20 69 2c 20 72 63 3b 0a 20 20     int i, rc;.  
72a0: 20 20 20 20 54 65 73 74 76 66 73 42 75 66 66 65      TestvfsBuffe
72b0: 72 20 2a 70 42 75 66 66 65 72 3b 0a 20 20 20 20  r *pBuffer;.    
72c0: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20    char *zName;. 
72d0: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33       if( objc!=3
72e0: 20 26 26 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20   && objc!=4 ){. 
72f0: 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67         Tcl_Wrong
7300: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
7310: 32 2c 20 6f 62 6a 76 2c 20 22 46 49 4c 45 20 3f  2, objv, "FILE ?
7320: 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20 20 20 20  VALUE?");.      
7330: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
7340: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
7350: 20 20 7a 4e 61 6d 65 20 3d 20 63 6b 61 6c 6c 6f    zName = ckallo
7360: 63 28 70 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78  c(p->pParent->mx
7370: 50 61 74 68 6e 61 6d 65 29 3b 0a 20 20 20 20 20  Pathname);.     
7380: 20 72 63 20 3d 20 70 2d 3e 70 50 61 72 65 6e 74   rc = p->pParent
7390: 2d 3e 78 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28  ->xFullPathname(
73a0: 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e 70 50  .          p->pP
73b0: 61 72 65 6e 74 2c 20 54 63 6c 5f 47 65 74 53 74  arent, Tcl_GetSt
73c0: 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c 20 0a  ring(objv[2]), .
73d0: 20 20 20 20 20 20 20 20 20 20 70 2d 3e 70 50 61            p->pPa
73e0: 72 65 6e 74 2d 3e 6d 78 50 61 74 68 6e 61 6d 65  rent->mxPathname
73f0: 2c 20 7a 4e 61 6d 65 0a 20 20 20 20 20 20 29 3b  , zName.      );
7400: 0a 20 20 20 20 20 20 69 66 28 20 72 63 21 3d 53  .      if( rc!=S
7410: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
7420: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
7430: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 66 61  sult(interp, "fa
7440: 69 6c 65 64 20 74 6f 20 67 65 74 20 66 75 6c 6c  iled to get full
7450: 20 70 61 74 68 3a 20 22 2c 0a 20 20 20 20 20 20   path: ",.      
7460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7470: 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67     Tcl_GetString
7480: 28 6f 62 6a 76 5b 32 5d 29 2c 20 30 29 3b 0a 20  (objv[2]), 0);. 
7490: 20 20 20 20 20 20 20 63 6b 66 72 65 65 28 7a 4e         ckfree(zN
74a0: 61 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 72 65  ame);.        re
74b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
74c0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 66 6f        }.      fo
74d0: 72 28 70 42 75 66 66 65 72 3d 70 2d 3e 70 42 75  r(pBuffer=p->pBu
74e0: 66 66 65 72 3b 20 70 42 75 66 66 65 72 3b 20 70  ffer; pBuffer; p
74f0: 42 75 66 66 65 72 3d 70 42 75 66 66 65 72 2d 3e  Buffer=pBuffer->
7500: 70 4e 65 78 74 29 7b 0a 20 20 20 20 20 20 20 20  pNext){.        
7510: 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 70 42  if( 0==strcmp(pB
7520: 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 7a 4e  uffer->zFile, zN
7530: 61 6d 65 29 20 29 20 62 72 65 61 6b 3b 0a 20 20  ame) ) break;.  
7540: 20 20 20 20 7d 0a 20 20 20 20 20 20 63 6b 66 72      }.      ckfr
7550: 65 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 20  ee(zName);.     
7560: 20 69 66 28 20 21 70 42 75 66 66 65 72 20 29 7b   if( !pBuffer ){
7570: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70  .        Tcl_App
7580: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
7590: 2c 20 22 6e 6f 20 73 75 63 68 20 66 69 6c 65 3a  , "no such file:
75a0: 20 22 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e   ", Tcl_GetStrin
75b0: 67 28 6f 62 6a 76 5b 32 5d 29 2c 20 30 29 3b 0a  g(objv[2]), 0);.
75c0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54          return T
75d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20  CL_ERROR;.      
75e0: 7d 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63  }.      if( objc
75f0: 3d 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20 69  ==4 ){.        i
7600: 6e 74 20 6e 3b 0a 20 20 20 20 20 20 20 20 75 38  nt n;.        u8
7610: 20 2a 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74   *a = Tcl_GetByt
7620: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62  eArrayFromObj(ob
7630: 6a 76 5b 33 5d 2c 20 26 6e 29 3b 0a 20 20 20 20  jv[3], &n);.    
7640: 20 20 20 20 69 6e 74 20 70 67 73 7a 20 3d 20 70      int pgsz = p
7650: 42 75 66 66 65 72 2d 3e 70 67 73 7a 3b 0a 20 20  Buffer->pgsz;.  
7660: 20 20 20 20 20 20 69 66 28 20 70 67 73 7a 3d 3d        if( pgsz==
7670: 30 20 29 20 70 67 73 7a 20 3d 20 36 35 35 33 36  0 ) pgsz = 65536
7680: 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 3d  ;.        for(i=
7690: 30 3b 20 69 2a 70 67 73 7a 3c 6e 3b 20 69 2b 2b  0; i*pgsz<n; i++
76a0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74  ){.          int
76b0: 20 6e 42 79 74 65 20 3d 20 70 67 73 7a 3b 0a 20   nByte = pgsz;. 
76c0: 20 20 20 20 20 20 20 20 20 74 76 66 73 41 6c 6c           tvfsAll
76d0: 6f 63 50 61 67 65 28 70 42 75 66 66 65 72 2c 20  ocPage(pBuffer, 
76e0: 69 2c 20 70 67 73 7a 29 3b 0a 20 20 20 20 20 20  i, pgsz);.      
76f0: 20 20 20 20 69 66 28 20 6e 2d 69 2a 70 67 73 7a      if( n-i*pgsz
7700: 3c 70 67 73 7a 20 29 7b 0a 20 20 20 20 20 20 20  <pgsz ){.       
7710: 20 20 20 20 20 6e 42 79 74 65 20 3d 20 6e 3b 0a       nByte = n;.
7720: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
7730: 20 20 20 20 20 20 6d 65 6d 63 70 79 28 70 42 75        memcpy(pBu
7740: 66 66 65 72 2d 3e 61 50 61 67 65 5b 69 5d 2c 20  ffer->aPage[i], 
7750: 26 61 5b 69 2a 70 67 73 7a 5d 2c 20 6e 42 79 74  &a[i*pgsz], nByt
7760: 65 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  e);.        }.  
7770: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 70 4f 62      }..      pOb
7780: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29  j = Tcl_NewObj()
7790: 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b  ;.      for(i=0;
77a0: 20 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65 5b   pBuffer->aPage[
77b0: 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  i]; i++){.      
77c0: 20 20 69 6e 74 20 70 67 73 7a 20 3d 20 70 42 75    int pgsz = pBu
77d0: 66 66 65 72 2d 3e 70 67 73 7a 3b 0a 20 20 20 20  ffer->pgsz;.    
77e0: 20 20 20 20 69 66 28 20 70 67 73 7a 3d 3d 30 20      if( pgsz==0 
77f0: 29 20 70 67 73 7a 20 3d 20 36 35 35 33 36 3b 0a  ) pgsz = 65536;.
7800: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65          Tcl_Appe
7810: 6e 64 4f 62 6a 54 6f 4f 62 6a 28 70 4f 62 6a 2c  ndObjToObj(pObj,
7820: 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61   Tcl_NewByteArra
7830: 79 4f 62 6a 28 70 42 75 66 66 65 72 2d 3e 61 50  yObj(pBuffer->aP
7840: 61 67 65 5b 69 5d 2c 20 70 67 73 7a 29 29 3b 0a  age[i], pgsz));.
7850: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63        }.      Tc
7860: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
7870: 6e 74 65 72 70 2c 20 70 4f 62 6a 29 3b 0a 20 20  nterp, pObj);.  
7880: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d      break;.    }
7890: 0a 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 46  ..    case CMD_F
78a0: 49 4c 54 45 52 3a 20 7b 0a 20 20 20 20 20 20 73  ILTER: {.      s
78b0: 74 61 74 69 63 20 73 74 72 75 63 74 20 56 66 73  tatic struct Vfs
78c0: 4d 65 74 68 6f 64 20 7b 0a 20 20 20 20 20 20 20  Method {.       
78d0: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20   char *zName;.  
78e0: 20 20 20 20 20 20 69 6e 74 20 6d 61 73 6b 3b 0a        int mask;.
78f0: 20 20 20 20 20 20 7d 20 76 66 73 6d 65 74 68 6f        } vfsmetho
7900: 64 20 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20 20  d [] = {.       
7910: 20 7b 20 22 78 53 68 6d 4f 70 65 6e 22 2c 20 20   { "xShmOpen",  
7920: 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d 4f      TESTVFS_SHMO
7930: 50 45 4e 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  PEN_MASK },.    
7940: 20 20 20 20 7b 20 22 78 53 68 6d 4c 6f 63 6b 22      { "xShmLock"
7950: 2c 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 53  ,      TESTVFS_S
7960: 48 4d 4c 4f 43 4b 5f 4d 41 53 4b 20 7d 2c 0a 20  HMLOCK_MASK },. 
7970: 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d 42 61         { "xShmBa
7980: 72 72 69 65 72 22 2c 20 20 20 54 45 53 54 56 46  rrier",   TESTVF
7990: 53 5f 53 48 4d 42 41 52 52 49 45 52 5f 4d 41 53  S_SHMBARRIER_MAS
79a0: 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22  K },.        { "
79b0: 78 53 68 6d 55 6e 6d 61 70 22 2c 20 20 20 20 20  xShmUnmap",     
79c0: 54 45 53 54 56 46 53 5f 53 48 4d 43 4c 4f 53 45  TESTVFS_SHMCLOSE
79d0: 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20  _MASK },.       
79e0: 20 7b 20 22 78 53 68 6d 4d 61 70 22 2c 20 20 20   { "xShmMap",   
79f0: 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d 4d      TESTVFS_SHMM
7a00: 41 50 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20  AP_MASK },.     
7a10: 20 20 20 7b 20 22 78 53 79 6e 63 22 2c 20 20 20     { "xSync",   
7a20: 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 53 59        TESTVFS_SY
7a30: 4e 43 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20  NC_MASK },.     
7a40: 20 20 20 7b 20 22 78 44 65 6c 65 74 65 22 2c 20     { "xDelete", 
7a50: 20 20 20 20 20 20 54 45 53 54 56 46 53 5f 44 45        TESTVFS_DE
7a60: 4c 45 54 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20  LETE_MASK },.   
7a70: 20 20 20 20 20 7b 20 22 78 57 72 69 74 65 22 2c       { "xWrite",
7a80: 20 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f          TESTVFS_
7a90: 57 52 49 54 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20  WRITE_MASK },.  
7aa0: 20 20 20 20 20 20 7b 20 22 78 52 65 61 64 22 2c        { "xRead",
7ab0: 20 20 20 20 20 20 20 20 20 54 45 53 54 56 46 53           TESTVFS
7ac0: 5f 52 45 41 44 5f 4d 41 53 4b 20 7d 2c 0a 20 20  _READ_MASK },.  
7ad0: 20 20 20 20 20 20 7b 20 22 78 54 72 75 6e 63 61        { "xTrunca
7ae0: 74 65 22 2c 20 20 20 20 20 54 45 53 54 56 46 53  te",     TESTVFS
7af0: 5f 54 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20 7d  _TRUNCATE_MASK }
7b00: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 4f 70  ,.        { "xOp
7b10: 65 6e 22 2c 20 20 20 20 20 20 20 20 20 54 45 53  en",         TES
7b20: 54 56 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 20 7d  TVFS_OPEN_MASK }
7b30: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 43 6c  ,.        { "xCl
7b40: 6f 73 65 22 2c 20 20 20 20 20 20 20 20 54 45 53  ose",        TES
7b50: 54 56 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20  TVFS_CLOSE_MASK 
7b60: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 41  },.        { "xA
7b70: 63 63 65 73 73 22 2c 20 20 20 20 20 20 20 54 45  ccess",       TE
7b80: 53 54 56 46 53 5f 41 43 43 45 53 53 5f 4d 41 53  STVFS_ACCESS_MAS
7b90: 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22  K },.        { "
7ba0: 78 46 75 6c 6c 50 61 74 68 6e 61 6d 65 22 2c 20  xFullPathname", 
7bb0: 54 45 53 54 56 46 53 5f 46 55 4c 4c 50 41 54 48  TESTVFS_FULLPATH
7bc0: 4e 41 4d 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20  NAME_MASK },.   
7bd0: 20 20 20 20 20 7b 20 22 78 55 6e 6c 6f 63 6b 22       { "xUnlock"
7be0: 2c 20 20 20 20 20 20 20 54 45 53 54 56 46 53 5f  ,       TESTVFS_
7bf0: 55 4e 4c 4f 43 4b 5f 4d 41 53 4b 20 7d 2c 0a 20  UNLOCK_MASK },. 
7c00: 20 20 20 20 20 7d 3b 0a 20 20 20 20 20 20 54 63       };.      Tc
7c10: 6c 5f 4f 62 6a 20 2a 2a 61 70 45 6c 65 6d 20 3d  l_Obj **apElem =
7c20: 20 30 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 45   0;.      int nE
7c30: 6c 65 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 69  lem = 0;.      i
7c40: 6e 74 20 69 3b 0a 20 20 20 20 20 20 69 6e 74 20  nt i;.      int 
7c50: 6d 61 73 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20  mask = 0;.      
7c60: 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20  if( objc!=3 ){. 
7c70: 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67         Tcl_Wrong
7c80: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
7c90: 32 2c 20 6f 62 6a 76 2c 20 22 4c 49 53 54 22 29  2, objv, "LIST")
7ca0: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ;.        return
7cb0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
7cc0: 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 54 63    }.      if( Tc
7cd0: 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d  l_ListObjGetElem
7ce0: 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a  ents(interp, obj
7cf0: 76 5b 32 5d 2c 20 26 6e 45 6c 65 6d 2c 20 26 61  v[2], &nElem, &a
7d00: 70 45 6c 65 6d 29 20 29 7b 0a 20 20 20 20 20 20  pElem) ){.      
7d10: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
7d20: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
7d30: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c    Tcl_ResetResul
7d40: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20  t(interp);.     
7d50: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 45 6c 65   for(i=0; i<nEle
7d60: 6d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20  m; i++){.       
7d70: 20 69 6e 74 20 69 4d 65 74 68 6f 64 3b 0a 20 20   int iMethod;.  
7d80: 20 20 20 20 20 20 63 68 61 72 20 2a 7a 45 6c 65        char *zEle
7d90: 6d 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  m = Tcl_GetStrin
7da0: 67 28 61 70 45 6c 65 6d 5b 69 5d 29 3b 0a 20 20  g(apElem[i]);.  
7db0: 20 20 20 20 20 20 66 6f 72 28 69 4d 65 74 68 6f        for(iMetho
7dc0: 64 3d 30 3b 20 69 4d 65 74 68 6f 64 3c 41 72 72  d=0; iMethod<Arr
7dd0: 61 79 53 69 7a 65 28 76 66 73 6d 65 74 68 6f 64  aySize(vfsmethod
7de0: 29 3b 20 69 4d 65 74 68 6f 64 2b 2b 29 7b 0a 20  ); iMethod++){. 
7df0: 20 20 20 20 20 20 20 20 20 69 66 28 20 73 74 72           if( str
7e00: 63 6d 70 28 7a 45 6c 65 6d 2c 20 76 66 73 6d 65  cmp(zElem, vfsme
7e10: 74 68 6f 64 5b 69 4d 65 74 68 6f 64 5d 2e 7a 4e  thod[iMethod].zN
7e20: 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20  ame)==0 ){.     
7e30: 20 20 20 20 20 20 20 6d 61 73 6b 20 7c 3d 20 76         mask |= v
7e40: 66 73 6d 65 74 68 6f 64 5b 69 4d 65 74 68 6f 64  fsmethod[iMethod
7e50: 5d 2e 6d 61 73 6b 3b 0a 20 20 20 20 20 20 20 20  ].mask;.        
7e60: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
7e70: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
7e80: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 4d 65  .        if( iMe
7e90: 74 68 6f 64 3d 3d 41 72 72 61 79 53 69 7a 65 28  thod==ArraySize(
7ea0: 76 66 73 6d 65 74 68 6f 64 29 20 29 7b 0a 20 20  vfsmethod) ){.  
7eb0: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65          Tcl_Appe
7ec0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
7ed0: 20 22 75 6e 6b 6e 6f 77 6e 20 6d 65 74 68 6f 64   "unknown method
7ee0: 3a 20 22 2c 20 7a 45 6c 65 6d 2c 20 30 29 3b 0a  : ", zElem, 0);.
7ef0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
7f00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
7f10: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20      }.      }.  
7f20: 20 20 20 20 70 2d 3e 6d 61 73 6b 20 3d 20 6d 61      p->mask = ma
7f30: 73 6b 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  sk;.      break;
7f40: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
7f50: 20 43 4d 44 5f 53 43 52 49 50 54 3a 20 7b 0a 20   CMD_SCRIPT: {. 
7f60: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33       if( objc==3
7f70: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20   ){.        int 
7f80: 6e 42 79 74 65 3b 0a 20 20 20 20 20 20 20 20 69  nByte;.        i
7f90: 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29 7b  f( p->pScript ){
7fa0: 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 44  .          Tcl_D
7fb0: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70  ecrRefCount(p->p
7fc0: 53 63 72 69 70 74 29 3b 0a 20 20 20 20 20 20 20  Script);.       
7fd0: 20 20 20 70 2d 3e 70 53 63 72 69 70 74 20 3d 20     p->pScript = 
7fe0: 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  0;.        }.   
7ff0: 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69       Tcl_GetStri
8000: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32  ngFromObj(objv[2
8010: 5d 2c 20 26 6e 42 79 74 65 29 3b 0a 20 20 20 20  ], &nByte);.    
8020: 20 20 20 20 69 66 28 20 6e 42 79 74 65 3e 30 20      if( nByte>0 
8030: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e  ){.          p->
8040: 70 53 63 72 69 70 74 20 3d 20 54 63 6c 5f 44 75  pScript = Tcl_Du
8050: 70 6c 69 63 61 74 65 4f 62 6a 28 6f 62 6a 76 5b  plicateObj(objv[
8060: 32 5d 29 3b 0a 20 20 20 20 20 20 20 20 20 20 54  2]);.          T
8070: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
8080: 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 20  p->pScript);.   
8090: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 65 6c       }.      }el
80a0: 73 65 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29  se if( objc!=2 )
80b0: 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72  {.        Tcl_Wr
80c0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
80d0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f 53 43  p, 2, objv, "?SC
80e0: 52 49 50 54 3f 22 29 3b 0a 20 20 20 20 20 20 20  RIPT?");.       
80f0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
8100: 52 3b 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20  R;.      }..    
8110: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c    Tcl_ResetResul
8120: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20  t(interp);.     
8130: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
8140: 29 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75  ) Tcl_SetObjResu
8150: 6c 74 28 69 6e 74 65 72 70 2c 20 70 2d 3e 70 53  lt(interp, p->pS
8160: 63 72 69 70 74 29 3b 0a 0a 20 20 20 20 20 20 62  cript);..      b
8170: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  reak;.    }..   
8180: 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 45 53 54 56   /*.    ** TESTV
8190: 46 53 20 69 6f 65 72 72 20 3f 49 46 41 49 4c 20  FS ioerr ?IFAIL 
81a0: 50 45 52 53 49 53 54 3f 0a 20 20 20 20 2a 2a 0a  PERSIST?.    **.
81b0: 20 20 20 20 2a 2a 20 20 20 57 68 65 72 65 20 49      **   Where I
81c0: 46 41 49 4c 20 69 73 20 61 6e 20 69 6e 74 65 67  FAIL is an integ
81d0: 65 72 20 61 6e 64 20 50 45 52 53 49 53 54 20 69  er and PERSIST i
81e0: 73 20 62 6f 6f 6c 65 61 6e 2e 0a 20 20 20 20 2a  s boolean..    *
81f0: 2f 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 43  /.    case CMD_C
8200: 41 4e 54 4f 50 45 4e 45 52 52 3a 0a 20 20 20 20  ANTOPENERR:.    
8210: 63 61 73 65 20 43 4d 44 5f 49 4f 45 52 52 3a 0a  case CMD_IOERR:.
8220: 20 20 20 20 63 61 73 65 20 43 4d 44 5f 46 55 4c      case CMD_FUL
8230: 4c 45 52 52 3a 20 7b 0a 20 20 20 20 20 20 54 65  LERR: {.      Te
8240: 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 2a 70  stFaultInject *p
8250: 54 65 73 74 3b 0a 20 20 20 20 20 20 69 6e 74 20  Test;.      int 
8260: 69 52 65 74 3b 0a 0a 20 20 20 20 20 20 73 77 69  iRet;..      swi
8270: 74 63 68 28 20 61 53 75 62 63 6d 64 5b 69 5d 2e  tch( aSubcmd[i].
8280: 65 43 6d 64 20 29 7b 0a 20 20 20 20 20 20 20 20  eCmd ){.        
8290: 63 61 73 65 20 43 4d 44 5f 49 4f 45 52 52 3a 20  case CMD_IOERR: 
82a0: 70 54 65 73 74 20 3d 20 26 70 2d 3e 69 6f 65 72  pTest = &p->ioer
82b0: 72 5f 65 72 72 3b 20 62 72 65 61 6b 3b 0a 20 20  r_err; break;.  
82c0: 20 20 20 20 20 20 63 61 73 65 20 43 4d 44 5f 46        case CMD_F
82d0: 55 4c 4c 45 52 52 3a 20 70 54 65 73 74 20 3d 20  ULLERR: pTest = 
82e0: 26 70 2d 3e 66 75 6c 6c 5f 65 72 72 3b 20 62 72  &p->full_err; br
82f0: 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73  eak;.        cas
8300: 65 20 43 4d 44 5f 43 41 4e 54 4f 50 45 4e 45 52  e CMD_CANTOPENER
8310: 52 3a 20 70 54 65 73 74 20 3d 20 26 70 2d 3e 63  R: pTest = &p->c
8320: 61 6e 74 6f 70 65 6e 5f 65 72 72 3b 20 62 72 65  antopen_err; bre
8330: 61 6b 3b 0a 20 20 20 20 20 20 20 20 64 65 66 61  ak;.        defa
8340: 75 6c 74 3a 20 61 73 73 65 72 74 28 30 29 3b 0a  ult: assert(0);.
8350: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 52        }.      iR
8360: 65 74 20 3d 20 70 54 65 73 74 2d 3e 6e 46 61 69  et = pTest->nFai
8370: 6c 3b 0a 20 20 20 20 20 20 70 54 65 73 74 2d 3e  l;.      pTest->
8380: 6e 46 61 69 6c 20 3d 20 30 3b 0a 20 20 20 20 20  nFail = 0;.     
8390: 20 70 54 65 73 74 2d 3e 65 46 61 75 6c 74 20 3d   pTest->eFault =
83a0: 20 30 3b 0a 20 20 20 20 20 20 70 54 65 73 74 2d   0;.      pTest-
83b0: 3e 69 43 6e 74 20 3d 20 30 3b 0a 0a 20 20 20 20  >iCnt = 0;..    
83c0: 20 20 69 66 28 20 6f 62 6a 63 3d 3d 34 20 29 7b    if( objc==4 ){
83d0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 43 6e  .        int iCn
83e0: 74 2c 20 69 50 65 72 73 69 73 74 3b 0a 20 20 20  t, iPersist;.   
83f0: 20 20 20 20 20 69 66 28 20 54 43 4c 5f 4f 4b 21       if( TCL_OK!
8400: 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f  =Tcl_GetIntFromO
8410: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b  bj(interp, objv[
8420: 32 5d 2c 20 26 69 43 6e 74 29 0a 20 20 20 20 20  2], &iCnt).     
8430: 20 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b 21 3d 54      || TCL_OK!=T
8440: 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f  cl_GetBooleanFro
8450: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
8460: 76 5b 33 5d 2c 20 26 69 50 65 72 73 69 73 74 29  v[3], &iPersist)
8470: 0a 20 20 20 20 20 20 20 20 29 7b 0a 20 20 20 20  .        ){.    
8480: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
8490: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20  _ERROR;.        
84a0: 7d 0a 20 20 20 20 20 20 20 20 70 54 65 73 74 2d  }.        pTest-
84b0: 3e 65 46 61 75 6c 74 20 3d 20 69 50 65 72 73 69  >eFault = iPersi
84c0: 73 74 3f 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f  st?FAULT_INJECT_
84d0: 50 45 52 53 49 53 54 45 4e 54 3a 46 41 55 4c 54  PERSISTENT:FAULT
84e0: 5f 49 4e 4a 45 43 54 5f 54 52 41 4e 53 49 45 4e  _INJECT_TRANSIEN
84f0: 54 3b 0a 20 20 20 20 20 20 20 20 70 54 65 73 74  T;.        pTest
8500: 2d 3e 69 43 6e 74 20 3d 20 69 43 6e 74 3b 0a 20  ->iCnt = iCnt;. 
8510: 20 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 6f       }else if( o
8520: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 20 20  bjc!=2 ){.      
8530: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
8540: 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62  gs(interp, 2, ob
8550: 6a 76 2c 20 22 3f 43 4e 54 20 50 45 52 53 49 53  jv, "?CNT PERSIS
8560: 54 3f 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65  T?");.        re
8570: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
8580: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63        }.      Tc
8590: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
85a0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e  nterp, Tcl_NewIn
85b0: 74 4f 62 6a 28 69 52 65 74 29 29 3b 0a 20 20 20  tObj(iRet));.   
85c0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
85d0: 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 44 45  .    case CMD_DE
85e0: 4c 45 54 45 3a 20 7b 0a 20 20 20 20 20 20 54 63  LETE: {.      Tc
85f0: 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 28  l_DeleteCommand(
8600: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53  interp, Tcl_GetS
8610: 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 29 3b  tring(objv[0]));
8620: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
8630: 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d    }..    case CM
8640: 44 5f 44 45 56 43 48 41 52 3a 20 7b 0a 20 20 20  D_DEVCHAR: {.   
8650: 20 20 20 73 74 72 75 63 74 20 44 65 76 69 63 65     struct Device
8660: 46 6c 61 67 20 7b 0a 20 20 20 20 20 20 20 20 63  Flag {.        c
8670: 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20  har *zName;.    
8680: 20 20 20 20 69 6e 74 20 69 56 61 6c 75 65 3b 0a      int iValue;.
8690: 20 20 20 20 20 20 7d 20 61 46 6c 61 67 5b 5d 20        } aFlag[] 
86a0: 3d 20 7b 0a 20 20 20 20 20 20 20 20 7b 20 22 64  = {.        { "d
86b0: 65 66 61 75 6c 74 22 2c 20 20 20 20 20 20 20 20  efault",        
86c0: 20 20 20 20 20 20 20 2d 31 20 7d 2c 0a 20 20 20         -1 },.   
86d0: 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 22 2c       { "atomic",
86e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
86f0: 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f  SQLITE_IOCAP_ATO
8700: 4d 49 43 20 20 20 20 20 20 20 20 20 20 20 20 20  MIC             
8710: 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20     },.        { 
8720: 22 61 74 6f 6d 69 63 35 31 32 22 2c 20 20 20 20  "atomic512",    
8730: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
8740: 49 4f 43 41 50 5f 41 54 4f 4d 49 43 35 31 32 20  IOCAP_ATOMIC512 
8750: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
8760: 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63         { "atomic
8770: 31 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  1k",            
8780: 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41    SQLITE_IOCAP_A
8790: 54 4f 4d 49 43 31 4b 20 20 20 20 20 20 20 20 20  TOMIC1K         
87a0: 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20       },.        
87b0: 7b 20 22 61 74 6f 6d 69 63 32 6b 22 2c 20 20 20  { "atomic2k",   
87c0: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54             SQLIT
87d0: 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 32 4b  E_IOCAP_ATOMIC2K
87e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c                },
87f0: 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d  .        { "atom
8800: 69 63 34 6b 22 2c 20 20 20 20 20 20 20 20 20 20  ic4k",          
8810: 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50      SQLITE_IOCAP
8820: 5f 41 54 4f 4d 49 43 34 4b 20 20 20 20 20 20 20  _ATOMIC4K       
8830: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20         },.      
8840: 20 20 7b 20 22 61 74 6f 6d 69 63 38 6b 22 2c 20    { "atomic8k", 
8850: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c               SQL
8860: 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43  ITE_IOCAP_ATOMIC
8870: 38 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  8K              
8880: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74  },.        { "at
8890: 6f 6d 69 63 31 36 6b 22 2c 20 20 20 20 20 20 20  omic16k",       
88a0: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43        SQLITE_IOC
88b0: 41 50 5f 41 54 4f 4d 49 43 31 36 4b 20 20 20 20  AP_ATOMIC16K    
88c0: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20           },.    
88d0: 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 33 32 6b      { "atomic32k
88e0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 53  ",             S
88f0: 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d  QLITE_IOCAP_ATOM
8900: 49 43 33 32 4b 20 20 20 20 20 20 20 20 20 20 20  IC32K           
8910: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22    },.        { "
8920: 61 74 6f 6d 69 63 36 34 6b 22 2c 20 20 20 20 20  atomic64k",     
8930: 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49          SQLITE_I
8940: 4f 43 41 50 5f 41 54 4f 4d 49 43 36 34 4b 20 20  OCAP_ATOMIC64K  
8950: 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20             },.  
8960: 20 20 20 20 20 20 7b 20 22 73 65 71 75 65 6e 74        { "sequent
8970: 69 61 6c 22 2c 20 20 20 20 20 20 20 20 20 20 20  ial",           
8980: 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 53 45   SQLITE_IOCAP_SE
8990: 51 55 45 4e 54 49 41 4c 20 20 20 20 20 20 20 20  QUENTIAL        
89a0: 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b      },.        {
89b0: 20 22 73 61 66 65 5f 61 70 70 65 6e 64 22 2c 20   "safe_append", 
89c0: 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45            SQLITE
89d0: 5f 49 4f 43 41 50 5f 53 41 46 45 5f 41 50 50 45  _IOCAP_SAFE_APPE
89e0: 4e 44 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a  ND           },.
89f0: 20 20 20 20 20 20 20 20 7b 20 22 75 6e 64 65 6c          { "undel
8a00: 65 74 61 62 6c 65 5f 77 68 65 6e 5f 6f 70 65 6e  etable_when_open
8a10: 22 2c 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f  ", SQLITE_IOCAP_
8a20: 55 4e 44 45 4c 45 54 41 42 4c 45 5f 57 48 45 4e  UNDELETABLE_WHEN
8a30: 5f 4f 50 45 4e 20 7d 2c 0a 20 20 20 20 20 20 20  _OPEN },.       
8a40: 20 7b 20 22 70 6f 77 65 72 73 61 66 65 5f 6f 76   { "powersafe_ov
8a50: 65 72 77 72 69 74 65 22 2c 20 20 20 53 51 4c 49  erwrite",   SQLI
8a60: 54 45 5f 49 4f 43 41 50 5f 50 4f 57 45 52 53 41  TE_IOCAP_POWERSA
8a70: 46 45 5f 4f 56 45 52 57 52 49 54 45 20 20 20 7d  FE_OVERWRITE   }
8a80: 2c 0a 20 20 20 20 20 20 20 20 7b 20 30 2c 20 30  ,.        { 0, 0
8a90: 20 7d 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20   }.      };.    
8aa0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b    Tcl_Obj *pRet;
8ab0: 0a 20 20 20 20 20 20 69 6e 74 20 69 46 6c 61 67  .      int iFlag
8ac0: 3b 0a 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a  ;..      if( obj
8ad0: 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 20 20 54  c>3 ){.        T
8ae0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
8af0: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
8b00: 20 22 3f 41 54 54 52 2d 4c 49 53 54 3f 22 29 3b   "?ATTR-LIST?");
8b10: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
8b20: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
8b30: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a   }.      if( obj
8b40: 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20  c==3 ){.        
8b50: 69 6e 74 20 6a 3b 0a 20 20 20 20 20 20 20 20 69  int j;.        i
8b60: 6e 74 20 69 4e 65 77 20 3d 20 30 3b 0a 20 20 20  nt iNew = 0;.   
8b70: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 66       Tcl_Obj **f
8b80: 6c 61 67 73 20 3d 20 30 3b 0a 20 20 20 20 20 20  lags = 0;.      
8b90: 20 20 69 6e 74 20 6e 46 6c 61 67 73 20 3d 20 30    int nFlags = 0
8ba0: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 28 20 54  ;..        if( T
8bb0: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65  cl_ListObjGetEle
8bc0: 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62  ments(interp, ob
8bd0: 6a 76 5b 32 5d 2c 20 26 6e 46 6c 61 67 73 2c 20  jv[2], &nFlags, 
8be0: 26 66 6c 61 67 73 29 20 29 7b 0a 20 20 20 20 20  &flags) ){.     
8bf0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
8c00: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d  ERROR;.        }
8c10: 0a 0a 20 20 20 20 20 20 20 20 66 6f 72 28 6a 3d  ..        for(j=
8c20: 30 3b 20 6a 3c 6e 46 6c 61 67 73 3b 20 6a 2b 2b  0; j<nFlags; j++
8c30: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74  ){.          int
8c40: 20 69 64 78 20 3d 20 30 3b 0a 20 20 20 20 20 20   idx = 0;.      
8c50: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49      if( Tcl_GetI
8c60: 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74 72 75 63  ndexFromObjStruc
8c70: 74 28 69 6e 74 65 72 70 2c 20 66 6c 61 67 73 5b  t(interp, flags[
8c80: 6a 5d 2c 20 61 46 6c 61 67 2c 20 0a 20 20 20 20  j], aFlag, .    
8c90: 20 20 20 20 20 20 20 20 20 20 20 20 73 69 7a 65              size
8ca0: 6f 66 28 61 46 6c 61 67 5b 30 5d 29 2c 20 22 66  of(aFlag[0]), "f
8cb0: 6c 61 67 22 2c 20 30 2c 20 26 69 64 78 29 20 0a  lag", 0, &idx) .
8cc0: 20 20 20 20 20 20 20 20 20 20 29 7b 0a 20 20 20            ){.   
8cd0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
8ce0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
8cf0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
8d00: 20 69 66 28 20 61 46 6c 61 67 5b 69 64 78 5d 2e   if( aFlag[idx].
8d10: 69 56 61 6c 75 65 3c 30 20 26 26 20 6e 46 6c 61  iValue<0 && nFla
8d20: 67 73 3e 31 20 29 7b 0a 20 20 20 20 20 20 20 20  gs>1 ){.        
8d30: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
8d40: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61  sult(interp, "ba
8d50: 64 20 66 6c 61 67 73 3a 20 22 2c 20 54 63 6c 5f  d flags: ", Tcl_
8d60: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32  GetString(objv[2
8d70: 5d 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20  ]), 0);.        
8d80: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
8d90: 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 20 20  RROR;.          
8da0: 7d 0a 20 20 20 20 20 20 20 20 20 20 69 4e 65 77  }.          iNew
8db0: 20 7c 3d 20 61 46 6c 61 67 5b 69 64 78 5d 2e 69   |= aFlag[idx].i
8dc0: 56 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 7d  Value;.        }
8dd0: 0a 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 44 65  ..        p->iDe
8de0: 76 63 68 61 72 20 3d 20 69 4e 65 77 7c 20 30 78  vchar = iNew| 0x
8df0: 31 30 30 30 30 30 30 30 3b 0a 20 20 20 20 20 20  10000000;.      
8e00: 7d 0a 0a 20 20 20 20 20 20 70 52 65 74 20 3d 20  }..      pRet = 
8e10: 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20  Tcl_NewObj();.  
8e20: 20 20 20 20 66 6f 72 28 69 46 6c 61 67 3d 30 3b      for(iFlag=0;
8e30: 20 69 46 6c 61 67 3c 73 69 7a 65 6f 66 28 61 46   iFlag<sizeof(aF
8e40: 6c 61 67 29 2f 73 69 7a 65 6f 66 28 61 46 6c 61  lag)/sizeof(aFla
8e50: 67 5b 30 5d 29 3b 20 69 46 6c 61 67 2b 2b 29 7b  g[0]); iFlag++){
8e60: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 2d 3e  .        if( p->
8e70: 69 44 65 76 63 68 61 72 20 26 20 61 46 6c 61 67  iDevchar & aFlag
8e80: 5b 69 46 6c 61 67 5d 2e 69 56 61 6c 75 65 20 29  [iFlag].iValue )
8e90: 7b 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f  {.          Tcl_
8ea0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
8eb0: 6d 65 6e 74 28 0a 20 20 20 20 20 20 20 20 20 20  ment(.          
8ec0: 20 20 20 20 69 6e 74 65 72 70 2c 20 70 52 65 74      interp, pRet
8ed0: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
8ee0: 62 6a 28 61 46 6c 61 67 5b 69 46 6c 61 67 5d 2e  bj(aFlag[iFlag].
8ef0: 7a 4e 61 6d 65 2c 20 2d 31 29 0a 20 20 20 20 20  zName, -1).     
8f00: 20 20 20 20 20 29 3b 0a 20 20 20 20 20 20 20 20       );.        
8f10: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  }.      }.      
8f20: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
8f30: 28 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a  (interp, pRet);.
8f40: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
8f50: 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d    }..    case CM
8f60: 44 5f 53 45 43 54 4f 52 53 49 5a 45 3a 20 7b 0a  D_SECTORSIZE: {.
8f70: 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3e 33        if( objc>3
8f80: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
8f90: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
8fa0: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 3f  erp, 2, objv, "?
8fb0: 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20 20 20 20  VALUE?");.      
8fc0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
8fd0: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
8fe0: 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33 20 29 7b    if( objc==3 ){
8ff0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 4e 65  .        int iNe
9000: 77 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 69  w = 0;.        i
9010: 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f  f( Tcl_GetIntFro
9020: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
9030: 76 5b 32 5d 2c 20 26 69 4e 65 77 29 20 29 7b 0a  v[2], &iNew) ){.
9040: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
9050: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
9060: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 70 2d      }.        p-
9070: 3e 69 53 65 63 74 6f 72 73 69 7a 65 20 3d 20 69  >iSectorsize = i
9080: 4e 65 77 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  New;.      }.   
9090: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
90a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
90b0: 4e 65 77 49 6e 74 4f 62 6a 28 70 2d 3e 69 53 65  NewIntObj(p->iSe
90c0: 63 74 6f 72 73 69 7a 65 29 29 3b 0a 20 20 20 20  ctorsize));.    
90d0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20    break;.    }. 
90e0: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c   }..  return TCL
90f0: 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76  _OK;.}..static v
9100: 6f 69 64 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f  oid testvfs_obj_
9110: 64 65 6c 28 43 6c 69 65 6e 74 44 61 74 61 20 63  del(ClientData c
9120: 64 29 7b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  d){.  Testvfs *p
9130: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 63 64   = (Testvfs *)cd
9140: 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69  ;.  if( p->pScri
9150: 70 74 20 29 20 54 63 6c 5f 44 65 63 72 52 65 66  pt ) Tcl_DecrRef
9160: 43 6f 75 6e 74 28 70 2d 3e 70 53 63 72 69 70 74  Count(p->pScript
9170: 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  );.  sqlite3_vfs
9180: 5f 75 6e 72 65 67 69 73 74 65 72 28 70 2d 3e 70  _unregister(p->p
9190: 56 66 73 29 3b 0a 20 20 63 6b 66 72 65 65 28 28  Vfs);.  ckfree((
91a0: 63 68 61 72 20 2a 29 70 2d 3e 70 56 66 73 29 3b  char *)p->pVfs);
91b0: 0a 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20  .  ckfree((char 
91c0: 2a 29 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55  *)p);.}../*.** U
91d0: 73 61 67 65 3a 20 20 74 65 73 74 76 66 73 20 56  sage:  testvfs V
91e0: 46 53 4e 41 4d 45 20 3f 53 57 49 54 43 48 45 53  FSNAME ?SWITCHES
91f0: 3f 0a 2a 2a 0a 2a 2a 20 53 77 69 74 63 68 65 73  ?.**.** Switches
9200: 20 61 72 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 2d 6e   are:.**.**   -n
9210: 6f 73 68 6d 20 20 20 42 4f 4f 4c 45 41 4e 20 20  oshm   BOOLEAN  
9220: 20 20 20 20 20 20 20 20 20 20 20 28 54 72 75 65             (True
9230: 20 74 6f 20 6f 6d 69 74 20 73 68 6d 20 6d 65 74   to omit shm met
9240: 68 6f 64 73 2e 20 44 65 66 61 75 6c 74 20 66 61  hods. Default fa
9250: 6c 73 65 29 0a 2a 2a 20 20 20 2d 64 65 66 61 75  lse).**   -defau
9260: 6c 74 20 42 4f 4f 4c 45 41 4e 20 20 20 20 20 20  lt BOOLEAN      
9270: 20 20 20 20 20 20 20 28 54 72 75 65 20 74 6f 20         (True to 
9280: 6d 61 6b 65 20 74 68 65 20 76 66 73 20 64 65 66  make the vfs def
9290: 61 75 6c 74 2e 20 44 65 66 61 75 6c 74 20 66 61  ault. Default fa
92a0: 6c 73 65 29 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20  lse).**.** This 
92b0: 63 6f 6d 6d 61 6e 64 20 63 72 65 61 74 65 73 20  command creates 
92c0: 74 77 6f 20 74 68 69 6e 67 73 20 77 68 65 6e 20  two things when 
92d0: 69 74 20 69 73 20 69 6e 76 6f 6b 65 64 3a 20 61  it is invoked: a
92e0: 6e 20 53 51 4c 69 74 65 20 56 46 53 2c 20 61 6e  n SQLite VFS, an
92f0: 64 0a 2a 2a 20 61 20 54 63 6c 20 63 6f 6d 6d 61  d.** a Tcl comma
9300: 6e 64 2e 20 42 6f 74 68 20 61 72 65 20 6e 61 6d  nd. Both are nam
9310: 65 64 20 56 46 53 4e 41 4d 45 2e 20 54 68 65 20  ed VFSNAME. The 
9320: 56 46 53 20 69 73 20 69 6e 73 74 61 6c 6c 65 64  VFS is installed
9330: 2e 20 49 74 20 69 73 20 6e 6f 74 0a 2a 2a 20 69  . It is not.** i
9340: 6e 73 74 61 6c 6c 65 64 20 61 73 20 74 68 65 20  nstalled as the 
9350: 64 65 66 61 75 6c 74 20 56 46 53 2e 0a 2a 2a 0a  default VFS..**.
9360: 2a 2a 20 54 68 65 20 56 46 53 20 70 61 73 73 65  ** The VFS passe
9370: 73 20 61 6c 6c 20 66 69 6c 65 20 49 2f 4f 20 63  s all file I/O c
9380: 61 6c 6c 73 20 74 68 72 6f 75 67 68 20 74 6f 20  alls through to 
9390: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 56  the underlying V
93a0: 46 53 2e 0a 2a 2a 0a 2a 2a 20 57 68 65 6e 65 76  FS..**.** Whenev
93b0: 65 72 20 74 68 65 20 78 53 68 6d 4d 61 70 20 6d  er the xShmMap m
93c0: 65 74 68 6f 64 20 6f 66 20 74 68 65 20 56 46 53  ethod of the VFS
93d0: 0a 2a 2a 20 69 73 20 69 6e 76 6f 6b 65 64 2c 20  .** is invoked, 
93e0: 74 68 65 20 53 43 52 49 50 54 20 69 73 20 65 78  the SCRIPT is ex
93f0: 65 63 75 74 65 64 20 61 73 20 66 6f 6c 6c 6f 77  ecuted as follow
9400: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 43 52 49 50  s:.**.**   SCRIP
9410: 54 20 78 53 68 6d 4d 61 70 20 20 20 20 46 49 4c  T xShmMap    FIL
9420: 45 4e 41 4d 45 20 49 44 0a 2a 2a 0a 2a 2a 20 54  ENAME ID.**.** T
9430: 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65  he value returne
9440: 64 20 62 79 20 74 68 65 20 69 6e 76 6f 63 61 74  d by the invocat
9450: 69 6f 6e 20 6f 66 20 53 43 52 49 50 54 20 61 62  ion of SCRIPT ab
9460: 6f 76 65 20 69 73 20 69 6e 74 65 72 70 72 65 74  ove is interpret
9470: 65 64 20 61 73 0a 2a 2a 20 61 6e 20 53 51 4c 69  ed as.** an SQLi
9480: 74 65 20 65 72 72 6f 72 20 63 6f 64 65 20 61 6e  te error code an
9490: 64 20 72 65 74 75 72 6e 65 64 20 74 6f 20 53 51  d returned to SQ
94a0: 4c 69 74 65 2e 20 45 69 74 68 65 72 20 61 20 73  Lite. Either a s
94b0: 79 6d 62 6f 6c 69 63 20 0a 2a 2a 20 22 53 51 4c  ymbolic .** "SQL
94c0: 49 54 45 5f 4f 4b 22 20 6f 72 20 6e 75 6d 65 72  ITE_OK" or numer
94d0: 69 63 20 22 30 22 20 76 61 6c 75 65 20 6d 61 79  ic "0" value may
94e0: 20 62 65 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2a   be returned..**
94f0: 0a 2a 2a 20 54 68 65 20 63 6f 6e 74 65 6e 74 73  .** The contents
9500: 20 6f 66 20 74 68 65 20 73 68 61 72 65 64 2d 6d   of the shared-m
9510: 65 6d 6f 72 79 20 62 75 66 66 65 72 20 61 73 73  emory buffer ass
9520: 6f 63 69 61 74 65 64 20 77 69 74 68 20 61 20 67  ociated with a g
9530: 69 76 65 6e 20 66 69 6c 65 0a 2a 2a 20 6d 61 79  iven file.** may
9540: 20 62 65 20 72 65 61 64 20 61 6e 64 20 73 65 74   be read and set
9550: 20 75 73 69 6e 67 20 74 68 65 20 66 6f 6c 6c 6f   using the follo
9560: 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 3a 0a 2a 2a  wing command:.**
9570: 0a 2a 2a 20 20 20 56 46 53 4e 41 4d 45 20 73 68  .**   VFSNAME sh
9580: 6d 20 46 49 4c 45 4e 41 4d 45 20 3f 4e 45 57 56  m FILENAME ?NEWV
9590: 41 4c 55 45 3f 0a 2a 2a 0a 2a 2a 20 57 68 65 6e  ALUE?.**.** When
95a0: 20 74 68 65 20 78 53 68 6d 4c 6f 63 6b 20 6d 65   the xShmLock me
95b0: 74 68 6f 64 20 69 73 20 69 6e 76 6f 6b 65 64 20  thod is invoked 
95c0: 62 79 20 53 51 4c 69 74 65 2c 20 74 68 65 20 66  by SQLite, the f
95d0: 6f 6c 6c 6f 77 69 6e 67 20 73 63 72 69 70 74 20  ollowing script 
95e0: 69 73 0a 2a 2a 20 72 75 6e 3a 0a 2a 2a 0a 2a 2a  is.** run:.**.**
95f0: 20 20 20 53 43 52 49 50 54 20 78 53 68 6d 4c 6f     SCRIPT xShmLo
9600: 63 6b 20 20 20 20 46 49 4c 45 4e 41 4d 45 20 49  ck    FILENAME I
9610: 44 20 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20 77 68 65  D LOCK.**.** whe
9620: 72 65 20 4c 4f 43 4b 20 69 73 20 6f 66 20 74 68  re LOCK is of th
9630: 65 20 66 6f 72 6d 20 22 4f 46 46 53 45 54 20 4e  e form "OFFSET N
9640: 42 59 54 45 20 6c 6f 63 6b 2f 75 6e 6c 6f 63 6b  BYTE lock/unlock
9650: 20 73 68 61 72 65 64 2f 65 78 63 6c 75 73 69 76   shared/exclusiv
9660: 65 22 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e".*/.static int
9670: 20 74 65 73 74 76 66 73 5f 63 6d 64 28 0a 20 20   testvfs_cmd(.  
9680: 43 6c 69 65 6e 74 44 61 74 61 20 63 64 2c 0a 20  ClientData cd,. 
9690: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
96a0: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  erp,.  int objc,
96b0: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  .  Tcl_Obj *CONS
96c0: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73 74  T objv[].){.  st
96d0: 61 74 69 63 20 73 71 6c 69 74 65 33 5f 76 66 73  atic sqlite3_vfs
96e0: 20 74 76 66 73 5f 76 66 73 20 3d 20 7b 0a 20 20   tvfs_vfs = {.  
96f0: 20 20 32 2c 20 20 20 20 20 20 20 20 20 20 20 20    2,            
9700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9710: 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a 20  /* iVersion */. 
9720: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
9730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9740: 20 2f 2a 20 73 7a 4f 73 46 69 6c 65 20 2a 2f 0a   /* szOsFile */.
9750: 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20      0,          
9760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9770: 20 20 2f 2a 20 6d 78 50 61 74 68 6e 61 6d 65 20    /* mxPathname 
9780: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
9790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
97a0: 20 20 20 20 20 2f 2a 20 70 4e 65 78 74 20 2a 2f       /* pNext */
97b0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
97c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
97d0: 20 20 20 2f 2a 20 7a 4e 61 6d 65 20 2a 2f 0a 20     /* zName */. 
97e0: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
97f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9800: 20 2f 2a 20 70 41 70 70 44 61 74 61 20 2a 2f 0a   /* pAppData */.
9810: 20 20 20 20 74 76 66 73 4f 70 65 6e 2c 20 20 20      tvfsOpen,   
9820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9830: 20 20 2f 2a 20 78 4f 70 65 6e 20 2a 2f 0a 20 20    /* xOpen */.  
9840: 20 20 74 76 66 73 44 65 6c 65 74 65 2c 20 20 20    tvfsDelete,   
9850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9860: 2f 2a 20 78 44 65 6c 65 74 65 20 2a 2f 0a 20 20  /* xDelete */.  
9870: 20 20 74 76 66 73 41 63 63 65 73 73 2c 20 20 20    tvfsAccess,   
9880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9890: 2f 2a 20 78 41 63 63 65 73 73 20 2a 2f 0a 20 20  /* xAccess */.  
98a0: 20 20 74 76 66 73 46 75 6c 6c 50 61 74 68 6e 61    tvfsFullPathna
98b0: 6d 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  me,             
98c0: 2f 2a 20 78 46 75 6c 6c 50 61 74 68 6e 61 6d 65  /* xFullPathname
98d0: 20 2a 2f 0a 23 69 66 6e 64 65 66 20 53 51 4c 49   */.#ifndef SQLI
98e0: 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54  TE_OMIT_LOAD_EXT
98f0: 45 4e 53 49 4f 4e 0a 20 20 20 20 74 76 66 73 44  ENSION.    tvfsD
9900: 6c 4f 70 65 6e 2c 20 20 20 20 20 20 20 20 20 20  lOpen,          
9910: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 4f           /* xDlO
9920: 70 65 6e 20 2a 2f 0a 20 20 20 20 74 76 66 73 44  pen */.    tvfsD
9930: 6c 45 72 72 6f 72 2c 20 20 20 20 20 20 20 20 20  lError,         
9940: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 45           /* xDlE
9950: 72 72 6f 72 20 2a 2f 0a 20 20 20 20 74 76 66 73  rror */.    tvfs
9960: 44 6c 53 79 6d 2c 20 20 20 20 20 20 20 20 20 20  DlSym,          
9970: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c            /* xDl
9980: 53 79 6d 20 2a 2f 0a 20 20 20 20 74 76 66 73 44  Sym */.    tvfsD
9990: 6c 43 6c 6f 73 65 2c 20 20 20 20 20 20 20 20 20  lClose,         
99a0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 43           /* xDlC
99b0: 6c 6f 73 65 20 2a 2f 0a 23 65 6c 73 65 0a 20 20  lose */.#else.  
99c0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
99d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
99e0: 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20  /* xDlOpen */.  
99f0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
9a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a10: 2f 2a 20 78 44 6c 45 72 72 6f 72 20 2a 2f 0a 20  /* xDlError */. 
9a20: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
9a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a40: 20 2f 2a 20 78 44 6c 53 79 6d 20 2a 2f 0a 20 20   /* xDlSym */.  
9a50: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
9a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a70: 2f 2a 20 78 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23  /* xDlClose */.#
9a80: 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f  endif /* SQLITE_
9a90: 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53  OMIT_LOAD_EXTENS
9aa0: 49 4f 4e 20 2a 2f 0a 20 20 20 20 74 76 66 73 52  ION */.    tvfsR
9ab0: 61 6e 64 6f 6d 6e 65 73 73 2c 20 20 20 20 20 20  andomness,      
9ac0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 52 61 6e           /* xRan
9ad0: 64 6f 6d 6e 65 73 73 20 2a 2f 0a 20 20 20 20 74  domness */.    t
9ae0: 76 66 73 53 6c 65 65 70 2c 20 20 20 20 20 20 20  vfsSleep,       
9af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
9b00: 78 53 6c 65 65 70 20 2a 2f 0a 20 20 20 20 74 76  xSleep */.    tv
9b10: 66 73 43 75 72 72 65 6e 74 54 69 6d 65 2c 20 20  fsCurrentTime,  
9b20: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
9b30: 43 75 72 72 65 6e 74 54 69 6d 65 20 2a 2f 0a 20  CurrentTime */. 
9b40: 20 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20     0,           
9b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9b60: 20 2f 2a 20 78 47 65 74 4c 61 73 74 45 72 72 6f   /* xGetLastErro
9b70: 72 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  r */.    0,     
9b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9b90: 20 20 20 20 20 20 20 2f 2a 20 78 43 75 72 72 65         /* xCurre
9ba0: 6e 74 54 69 6d 65 49 6e 74 36 34 20 2a 2f 0a 20  ntTimeInt64 */. 
9bb0: 20 7d 3b 0a 0a 20 20 54 65 73 74 76 66 73 20 2a   };..  Testvfs *
9bc0: 70 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  p;              
9bd0: 20 20 20 20 20 20 20 2f 2a 20 4e 65 77 20 6f 62         /* New ob
9be0: 6a 65 63 74 20 2a 2f 0a 20 20 73 71 6c 69 74 65  ject */.  sqlite
9bf0: 33 5f 76 66 73 20 2a 70 56 66 73 3b 20 20 20 20  3_vfs *pVfs;    
9c00: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 77            /* New
9c10: 20 56 46 53 20 2a 2f 0a 20 20 63 68 61 72 20 2a   VFS */.  char *
9c20: 7a 56 66 73 3b 0a 20 20 69 6e 74 20 6e 42 79 74  zVfs;.  int nByt
9c30: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
9c40: 20 20 20 20 20 20 20 20 2f 2a 20 42 79 74 65 73          /* Bytes
9c50: 20 6f 66 20 73 70 61 63 65 20 74 6f 20 61 6c 6c   of space to all
9c60: 6f 63 61 74 65 20 61 74 20 70 20 2a 2f 0a 0a 20  ocate at p */.. 
9c70: 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 69 73   int i;.  int is
9c80: 4e 6f 73 68 6d 20 3d 20 30 3b 20 20 20 20 20 20  Noshm = 0;      
9c90: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75            /* Tru
9ca0: 65 20 69 66 20 2d 6e 6f 73 68 6d 20 69 73 20 70  e if -noshm is p
9cb0: 61 73 73 65 64 20 2a 2f 0a 20 20 69 6e 74 20 69  assed */.  int i
9cc0: 73 46 75 6c 6c 73 68 6d 20 3d 20 30 3b 20 20 20  sFullshm = 0;   
9cd0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72             /* Tr
9ce0: 75 65 20 69 66 20 2d 66 75 6c 6c 73 68 6d 20 69  ue if -fullshm i
9cf0: 73 20 70 61 73 73 65 64 20 2a 2f 0a 20 20 69 6e  s passed */.  in
9d00: 74 20 69 73 44 65 66 61 75 6c 74 20 3d 20 30 3b  t isDefault = 0;
9d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
9d20: 20 54 72 75 65 20 69 66 20 2d 64 65 66 61 75 6c   True if -defaul
9d30: 74 20 69 73 20 70 61 73 73 65 64 20 2a 2f 0a 20  t is passed */. 
9d40: 20 69 6e 74 20 73 7a 4f 73 46 69 6c 65 20 3d 20   int szOsFile = 
9d50: 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0;              
9d60: 20 2f 2a 20 56 61 6c 75 65 20 70 61 73 73 65 64   /* Value passed
9d70: 20 74 6f 20 2d 73 7a 6f 73 66 69 6c 65 20 2a 2f   to -szosfile */
9d80: 0a 20 20 69 6e 74 20 6d 78 50 61 74 68 6e 61 6d  .  int mxPathnam
9d90: 65 20 3d 20 2d 31 3b 20 20 20 20 20 20 20 20 20  e = -1;         
9da0: 20 20 20 2f 2a 20 56 61 6c 75 65 20 70 61 73 73     /* Value pass
9db0: 65 64 20 74 6f 20 2d 6d 78 70 61 74 68 6e 61 6d  ed to -mxpathnam
9dc0: 65 20 2a 2f 0a 20 20 69 6e 74 20 69 56 65 72 73  e */.  int iVers
9dd0: 69 6f 6e 20 3d 20 32 3b 20 20 20 20 20 20 20 20  ion = 2;        
9de0: 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20         /* Value 
9df0: 70 61 73 73 65 64 20 74 6f 20 2d 69 76 65 72 73  passed to -ivers
9e00: 69 6f 6e 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62  ion */..  if( ob
9e10: 6a 63 3c 32 20 7c 7c 20 30 21 3d 28 6f 62 6a 63  jc<2 || 0!=(objc
9e20: 25 32 29 20 29 20 67 6f 74 6f 20 62 61 64 5f 61  %2) ) goto bad_a
9e30: 72 67 73 3b 0a 20 20 66 6f 72 28 69 3d 32 3b 20  rgs;.  for(i=2; 
9e40: 69 3c 6f 62 6a 63 3b 20 69 20 2b 3d 20 32 29 7b  i<objc; i += 2){
9e50: 0a 20 20 20 20 69 6e 74 20 6e 53 77 69 74 63 68  .    int nSwitch
9e60: 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 53 77 69  ;.    char *zSwi
9e70: 74 63 68 3b 0a 20 20 20 20 7a 53 77 69 74 63 68  tch;.    zSwitch
9e80: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
9e90: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 5d 2c  FromObj(objv[i],
9ea0: 20 26 6e 53 77 69 74 63 68 29 3b 20 0a 0a 20 20   &nSwitch); ..  
9eb0: 20 20 69 66 28 20 6e 53 77 69 74 63 68 3e 32 20    if( nSwitch>2 
9ec0: 26 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d  && 0==strncmp("-
9ed0: 6e 6f 73 68 6d 22 2c 20 7a 53 77 69 74 63 68 2c  noshm", zSwitch,
9ee0: 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20   nSwitch) ){.   
9ef0: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f     if( Tcl_GetBo
9f00: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74  oleanFromObj(int
9f10: 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20  erp, objv[i+1], 
9f20: 26 69 73 4e 6f 73 68 6d 29 20 29 7b 0a 20 20 20  &isNoshm) ){.   
9f30: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
9f40: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
9f50: 20 20 20 20 20 69 66 28 20 69 73 4e 6f 73 68 6d       if( isNoshm
9f60: 20 29 20 69 73 46 75 6c 6c 73 68 6d 20 3d 20 30   ) isFullshm = 0
9f70: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65  ;.    }.    else
9f80: 20 69 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26   if( nSwitch>2 &
9f90: 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 64  & 0==strncmp("-d
9fa0: 65 66 61 75 6c 74 22 2c 20 7a 53 77 69 74 63 68  efault", zSwitch
9fb0: 2c 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20  , nSwitch) ){.  
9fc0: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42      if( Tcl_GetB
9fd0: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e  ooleanFromObj(in
9fe0: 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c  terp, objv[i+1],
9ff0: 20 26 69 73 44 65 66 61 75 6c 74 29 20 29 7b 0a   &isDefault) ){.
a000: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54          return T
a010: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20  CL_ERROR;.      
a020: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65  }.    }.    else
a030: 20 69 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26   if( nSwitch>2 &
a040: 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 73  & 0==strncmp("-s
a050: 7a 6f 73 66 69 6c 65 22 2c 20 7a 53 77 69 74 63  zosfile", zSwitc
a060: 68 2c 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20  h, nSwitch) ){. 
a070: 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74       if( Tcl_Get
a080: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  IntFromObj(inter
a090: 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 73  p, objv[i+1], &s
a0a0: 7a 4f 73 46 69 6c 65 29 20 29 7b 0a 20 20 20 20  zOsFile) ){.    
a0b0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
a0c0: 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20  RROR;.      }.  
a0d0: 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28    }.    else if(
a0e0: 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d   nSwitch>2 && 0=
a0f0: 3d 73 74 72 6e 63 6d 70 28 22 2d 6d 78 70 61 74  =strncmp("-mxpat
a100: 68 6e 61 6d 65 22 2c 20 7a 53 77 69 74 63 68 2c  hname", zSwitch,
a110: 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20   nSwitch) ){.   
a120: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e     if( Tcl_GetIn
a130: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
a140: 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 6d 78 50   objv[i+1], &mxP
a150: 61 74 68 6e 61 6d 65 29 20 29 7b 0a 20 20 20 20  athname) ){.    
a160: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
a170: 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20  RROR;.      }.  
a180: 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28    }.    else if(
a190: 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d   nSwitch>2 && 0=
a1a0: 3d 73 74 72 6e 63 6d 70 28 22 2d 69 76 65 72 73  =strncmp("-ivers
a1b0: 69 6f 6e 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e  ion", zSwitch, n
a1c0: 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20  Switch) ){.     
a1d0: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46   if( Tcl_GetIntF
a1e0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
a1f0: 62 6a 76 5b 69 2b 31 5d 2c 20 26 69 56 65 72 73  bjv[i+1], &iVers
a200: 69 6f 6e 29 20 29 7b 0a 20 20 20 20 20 20 20 20  ion) ){.        
a210: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a220: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  ;.      }.    }.
a230: 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e 53 77      else if( nSw
a240: 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73 74 72  itch>2 && 0==str
a250: 6e 63 6d 70 28 22 2d 66 75 6c 6c 73 68 6d 22 2c  ncmp("-fullshm",
a260: 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69 74 63   zSwitch, nSwitc
a270: 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  h) ){.      if( 
a280: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72  Tcl_GetBooleanFr
a290: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
a2a0: 6a 76 5b 69 2b 31 5d 2c 20 26 69 73 46 75 6c 6c  jv[i+1], &isFull
a2b0: 73 68 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20  shm) ){.        
a2c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a2d0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
a2e0: 69 66 28 20 69 73 46 75 6c 6c 73 68 6d 20 29 20  if( isFullshm ) 
a2f0: 69 73 4e 6f 73 68 6d 20 3d 20 30 3b 0a 20 20 20  isNoshm = 0;.   
a300: 20 7d 0a 20 20 20 20 65 6c 73 65 7b 0a 20 20 20   }.    else{.   
a310: 20 20 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73     goto bad_args
a320: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 69  ;.    }.  }..  i
a330: 66 28 20 73 7a 4f 73 46 69 6c 65 3c 73 69 7a 65  f( szOsFile<size
a340: 6f 66 28 54 65 73 74 76 66 73 46 69 6c 65 29 20  of(TestvfsFile) 
a350: 29 7b 0a 20 20 20 20 73 7a 4f 73 46 69 6c 65 20  ){.    szOsFile 
a360: 3d 20 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73  = sizeof(Testvfs
a370: 46 69 6c 65 29 3b 0a 20 20 7d 0a 0a 20 20 7a 56  File);.  }..  zV
a380: 66 73 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  fs = Tcl_GetStri
a390: 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 6e  ng(objv[1]);.  n
a3a0: 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 54 65  Byte = sizeof(Te
a3b0: 73 74 76 66 73 29 20 2b 20 28 69 6e 74 29 73 74  stvfs) + (int)st
a3c0: 72 6c 65 6e 28 7a 56 66 73 29 2b 31 3b 0a 20 20  rlen(zVfs)+1;.  
a3d0: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 63  p = (Testvfs *)c
a3e0: 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20  kalloc(nByte);. 
a3f0: 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c 20 6e 42   memset(p, 0, nB
a400: 79 74 65 29 3b 0a 20 20 70 2d 3e 69 44 65 76 63  yte);.  p->iDevc
a410: 68 61 72 20 3d 20 2d 31 3b 0a 20 20 70 2d 3e 69  har = -1;.  p->i
a420: 53 65 63 74 6f 72 73 69 7a 65 20 3d 20 2d 31 3b  Sectorsize = -1;
a430: 0a 0a 20 20 2f 2a 20 43 72 65 61 74 65 20 74 68  ..  /* Create th
a440: 65 20 6e 65 77 20 6f 62 6a 65 63 74 20 63 6f 6d  e new object com
a450: 6d 61 6e 64 20 62 65 66 6f 72 65 20 71 75 65 72  mand before quer
a460: 79 69 6e 67 20 53 51 4c 69 74 65 20 66 6f 72 20  ying SQLite for 
a470: 61 20 64 65 66 61 75 6c 74 20 56 46 53 0a 20 20  a default VFS.  
a480: 2a 2a 20 74 6f 20 75 73 65 20 66 6f 72 20 27 72  ** to use for 'r
a490: 65 61 6c 27 20 49 4f 20 6f 70 65 72 61 74 69 6f  eal' IO operatio
a4a0: 6e 73 2e 20 54 68 69 73 20 69 73 20 62 65 63 61  ns. This is beca
a4b0: 75 73 65 20 63 72 65 61 74 69 6e 67 20 74 68 65  use creating the
a4c0: 20 6e 65 77 20 56 46 53 0a 20 20 2a 2a 20 6d 61   new VFS.  ** ma
a4d0: 79 20 64 65 6c 65 74 65 20 61 6e 20 65 78 69 73  y delete an exis
a4e0: 74 69 6e 67 20 5b 74 65 73 74 76 66 73 5d 20 56  ting [testvfs] V
a4f0: 46 53 20 6f 66 20 74 68 65 20 73 61 6d 65 20 6e  FS of the same n
a500: 61 6d 65 2e 20 49 66 20 73 75 63 68 20 61 20 56  ame. If such a V
a510: 46 53 0a 20 20 2a 2a 20 69 73 20 63 75 72 72 65  FS.  ** is curre
a520: 6e 74 6c 79 20 74 68 65 20 64 65 66 61 75 6c 74  ntly the default
a530: 2c 20 74 68 65 20 6e 65 77 20 5b 74 65 73 74 76  , the new [testv
a540: 66 73 5d 20 6d 61 79 20 65 6e 64 20 75 70 20 63  fs] may end up c
a550: 61 6c 6c 69 6e 67 20 74 68 65 20 0a 20 20 2a 2a  alling the .  **
a560: 20 6d 65 74 68 6f 64 73 20 6f 66 20 61 20 64 65   methods of a de
a570: 6c 65 74 65 64 20 6f 62 6a 65 63 74 2e 0a 20 20  leted object..  
a580: 2a 2f 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f  */.  Tcl_CreateO
a590: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
a5a0: 2c 20 7a 56 66 73 2c 20 74 65 73 74 76 66 73 5f  , zVfs, testvfs_
a5b0: 6f 62 6a 5f 63 6d 64 2c 20 70 2c 20 74 65 73 74  obj_cmd, p, test
a5c0: 76 66 73 5f 6f 62 6a 5f 64 65 6c 29 3b 0a 20 20  vfs_obj_del);.  
a5d0: 70 2d 3e 70 50 61 72 65 6e 74 20 3d 20 73 71 6c  p->pParent = sql
a5e0: 69 74 65 33 5f 76 66 73 5f 66 69 6e 64 28 30 29  ite3_vfs_find(0)
a5f0: 3b 0a 20 20 70 2d 3e 69 6e 74 65 72 70 20 3d 20  ;.  p->interp = 
a600: 69 6e 74 65 72 70 3b 0a 0a 20 20 70 2d 3e 7a 4e  interp;..  p->zN
a610: 61 6d 65 20 3d 20 28 63 68 61 72 20 2a 29 26 70  ame = (char *)&p
a620: 5b 31 5d 3b 0a 20 20 6d 65 6d 63 70 79 28 70 2d  [1];.  memcpy(p-
a630: 3e 7a 4e 61 6d 65 2c 20 7a 56 66 73 2c 20 73 74  >zName, zVfs, st
a640: 72 6c 65 6e 28 7a 56 66 73 29 2b 31 29 3b 0a 0a  rlen(zVfs)+1);..
a650: 20 20 70 56 66 73 20 3d 20 28 73 71 6c 69 74 65    pVfs = (sqlite
a660: 33 5f 76 66 73 20 2a 29 63 6b 61 6c 6c 6f 63 28  3_vfs *)ckalloc(
a670: 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76  sizeof(sqlite3_v
a680: 66 73 29 29 3b 0a 20 20 6d 65 6d 63 70 79 28 70  fs));.  memcpy(p
a690: 56 66 73 2c 20 26 74 76 66 73 5f 76 66 73 2c 20  Vfs, &tvfs_vfs, 
a6a0: 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76  sizeof(sqlite3_v
a6b0: 66 73 29 29 3b 0a 20 20 70 56 66 73 2d 3e 70 41  fs));.  pVfs->pA
a6c0: 70 70 44 61 74 61 20 3d 20 28 76 6f 69 64 20 2a  ppData = (void *
a6d0: 29 70 3b 0a 20 20 70 56 66 73 2d 3e 69 56 65 72  )p;.  pVfs->iVer
a6e0: 73 69 6f 6e 20 3d 20 69 56 65 72 73 69 6f 6e 3b  sion = iVersion;
a6f0: 0a 20 20 70 56 66 73 2d 3e 7a 4e 61 6d 65 20 3d  .  pVfs->zName =
a700: 20 70 2d 3e 7a 4e 61 6d 65 3b 0a 20 20 70 56 66   p->zName;.  pVf
a710: 73 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20  s->mxPathname = 
a720: 70 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61  p->pParent->mxPa
a730: 74 68 6e 61 6d 65 3b 0a 20 20 69 66 28 20 6d 78  thname;.  if( mx
a740: 50 61 74 68 6e 61 6d 65 3e 3d 30 20 26 26 20 6d  Pathname>=0 && m
a750: 78 50 61 74 68 6e 61 6d 65 3c 70 56 66 73 2d 3e  xPathname<pVfs->
a760: 6d 78 50 61 74 68 6e 61 6d 65 20 29 7b 0a 20 20  mxPathname ){.  
a770: 20 20 70 56 66 73 2d 3e 6d 78 50 61 74 68 6e 61    pVfs->mxPathna
a780: 6d 65 20 3d 20 6d 78 50 61 74 68 6e 61 6d 65 3b  me = mxPathname;
a790: 0a 20 20 7d 0a 20 20 70 56 66 73 2d 3e 73 7a 4f  .  }.  pVfs->szO
a7a0: 73 46 69 6c 65 20 3d 20 73 7a 4f 73 46 69 6c 65  sFile = szOsFile
a7b0: 3b 0a 20 20 70 2d 3e 70 56 66 73 20 3d 20 70 56  ;.  p->pVfs = pV
a7c0: 66 73 3b 0a 20 20 70 2d 3e 69 73 4e 6f 73 68 6d  fs;.  p->isNoshm
a7d0: 20 3d 20 69 73 4e 6f 73 68 6d 3b 0a 20 20 70 2d   = isNoshm;.  p-
a7e0: 3e 69 73 46 75 6c 6c 73 68 6d 20 3d 20 69 73 46  >isFullshm = isF
a7f0: 75 6c 6c 73 68 6d 3b 0a 20 20 70 2d 3e 6d 61 73  ullshm;.  p->mas
a800: 6b 20 3d 20 54 45 53 54 56 46 53 5f 41 4c 4c 5f  k = TESTVFS_ALL_
a810: 4d 41 53 4b 3b 0a 0a 20 20 73 71 6c 69 74 65 33  MASK;..  sqlite3
a820: 5f 76 66 73 5f 72 65 67 69 73 74 65 72 28 70 56  _vfs_register(pV
a830: 66 73 2c 20 69 73 44 65 66 61 75 6c 74 29 3b 0a  fs, isDefault);.
a840: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
a850: 3b 0a 0a 20 62 61 64 5f 61 72 67 73 3a 0a 20 20  ;.. bad_args:.  
a860: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
a870: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
a880: 2c 20 22 56 46 53 4e 41 4d 45 20 3f 2d 6e 6f 73  , "VFSNAME ?-nos
a890: 68 6d 20 42 4f 4f 4c 3f 20 3f 2d 64 65 66 61 75  hm BOOL? ?-defau
a8a0: 6c 74 20 42 4f 4f 4c 3f 20 3f 2d 6d 78 70 61 74  lt BOOL? ?-mxpat
a8b0: 68 6e 61 6d 65 20 49 4e 54 3f 20 3f 2d 73 7a 6f  hname INT? ?-szo
a8c0: 73 66 69 6c 65 20 49 4e 54 3f 20 3f 2d 69 76 65  sfile INT? ?-ive
a8d0: 72 73 69 6f 6e 20 49 4e 54 3f 22 29 3b 0a 20 20  rsion INT?");.  
a8e0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a8f0: 3b 0a 7d 0a 0a 69 6e 74 20 53 71 6c 69 74 65 74  ;.}..int Sqlitet
a900: 65 73 74 76 66 73 5f 49 6e 69 74 28 54 63 6c 5f  estvfs_Init(Tcl_
a910: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
a920: 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a  .  Tcl_CreateObj
a930: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
a940: 22 74 65 73 74 76 66 73 22 2c 20 74 65 73 74 76  "testvfs", testv
a950: 66 73 5f 63 6d 64 2c 20 30 2c 20 30 29 3b 0a 20  fs_cmd, 0, 0);. 
a960: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
a970: 7d 0a 0a 23 65 6e 64 69 66 0a                    }..#endif.