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

Artifact 37d523ce239e853a302933327ccbc8c73c4572c1:


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 0a 20 20 69 6e 74 20 6d 61 73 6b 3b 20  m;..  int mask; 
0c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c10: 20 20 20 20 20 20 2f 2a 20 4d 61 73 6b 20 63 6f        /* Mask co
0c20: 6e 74 72 6f 6c 6c 69 6e 67 20 5b 73 63 72 69 70  ntrolling [scrip
0c30: 74 5d 20 61 6e 64 20 5b 69 6f 65 72 72 5d 20 2a  t] and [ioerr] *
0c40: 2f 0a 0a 20 20 54 65 73 74 46 61 75 6c 74 49 6e  /..  TestFaultIn
0c50: 6a 65 63 74 20 69 6f 65 72 72 5f 65 72 72 3b 0a  ject ioerr_err;.
0c60: 20 20 54 65 73 74 46 61 75 6c 74 49 6e 6a 65 63    TestFaultInjec
0c70: 74 20 66 75 6c 6c 5f 65 72 72 3b 0a 20 20 54 65  t full_err;.  Te
0c80: 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 63 61  stFaultInject ca
0c90: 6e 74 6f 70 65 6e 5f 65 72 72 3b 0a 0a 23 69 66  ntopen_err;..#if
0ca0: 20 30 0a 20 20 69 6e 74 20 69 49 6f 65 72 72 43   0.  int iIoerrC
0cb0: 6e 74 3b 0a 20 20 69 6e 74 20 69 6f 65 72 72 3b  nt;.  int ioerr;
0cc0: 0a 20 20 69 6e 74 20 6e 49 6f 65 72 72 46 61 69  .  int nIoerrFai
0cd0: 6c 3b 0a 20 20 69 6e 74 20 69 46 75 6c 6c 43 6e  l;.  int iFullCn
0ce0: 74 3b 0a 20 20 69 6e 74 20 66 75 6c 6c 65 72 72  t;.  int fullerr
0cf0: 3b 0a 20 20 69 6e 74 20 6e 46 75 6c 6c 46 61 69  ;.  int nFullFai
0d00: 6c 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 69 6e 74  l;.#endif..  int
0d10: 20 69 44 65 76 63 68 61 72 3b 0a 20 20 69 6e 74   iDevchar;.  int
0d20: 20 69 53 65 63 74 6f 72 73 69 7a 65 3b 0a 7d 3b   iSectorsize;.};
0d30: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 54 65 73 74  ../*.** The Test
0d40: 76 66 73 2e 6d 61 73 6b 20 76 61 72 69 61 62 6c  vfs.mask variabl
0d50: 65 20 69 73 20 73 65 74 20 74 6f 20 61 20 63 6f  e is set to a co
0d60: 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65  mbination of the
0d70: 20 66 6f 6c 6c 6f 77 69 6e 67 2e 0a 2a 2a 20 49   following..** I
0d80: 66 20 61 20 62 69 74 20 69 73 20 63 6c 65 61 72  f a bit is clear
0d90: 20 69 6e 20 54 65 73 74 76 66 73 2e 6d 61 73 6b   in Testvfs.mask
0da0: 2c 20 74 68 65 6e 20 63 61 6c 6c 73 20 6d 61 64  , then calls mad
0db0: 65 20 62 79 20 53 51 4c 69 74 65 20 74 6f 20 74  e by SQLite to t
0dc0: 68 65 20 0a 2a 2a 20 63 6f 72 72 65 73 70 6f 6e  he .** correspon
0dd0: 64 69 6e 67 20 56 46 53 20 6d 65 74 68 6f 64 20  ding VFS method 
0de0: 69 73 20 69 67 6e 6f 72 65 64 20 66 6f 72 20 70  is ignored for p
0df0: 75 72 70 6f 73 65 73 20 6f 66 3a 0a 2a 2a 0a 2a  urposes of:.**.*
0e00: 2a 20 20 20 2b 20 53 69 6d 75 6c 61 74 69 6e 67  *   + Simulating
0e10: 20 49 4f 20 65 72 72 6f 72 73 2c 20 61 6e 64 0a   IO errors, and.
0e20: 2a 2a 20 20 20 2b 20 49 6e 76 6f 6b 69 6e 67 20  **   + Invoking 
0e30: 74 68 65 20 54 63 6c 20 63 61 6c 6c 62 61 63 6b  the Tcl callback
0e40: 20 73 63 72 69 70 74 2e 0a 2a 2f 0a 23 64 65 66   script..*/.#def
0e50: 69 6e 65 20 54 45 53 54 56 46 53 5f 53 48 4d 4f  ine TESTVFS_SHMO
0e60: 50 45 4e 5f 4d 41 53 4b 20 20 20 20 20 20 30 78  PEN_MASK      0x
0e70: 30 30 30 30 30 30 30 31 0a 23 64 65 66 69 6e 65  00000001.#define
0e80: 20 54 45 53 54 56 46 53 5f 53 48 4d 4c 4f 43 4b   TESTVFS_SHMLOCK
0e90: 5f 4d 41 53 4b 20 20 20 20 20 20 30 78 30 30 30  _MASK      0x000
0ea0: 30 30 30 31 30 0a 23 64 65 66 69 6e 65 20 54 45  00010.#define TE
0eb0: 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53  STVFS_SHMMAP_MAS
0ec0: 4b 20 20 20 20 20 20 20 30 78 30 30 30 30 30 30  K       0x000000
0ed0: 32 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56  20.#define TESTV
0ee0: 46 53 5f 53 48 4d 42 41 52 52 49 45 52 5f 4d 41  FS_SHMBARRIER_MA
0ef0: 53 4b 20 20 20 30 78 30 30 30 30 30 30 34 30 0a  SK   0x00000040.
0f00: 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f  #define TESTVFS_
0f10: 53 48 4d 43 4c 4f 53 45 5f 4d 41 53 4b 20 20 20  SHMCLOSE_MASK   
0f20: 20 20 30 78 30 30 30 30 30 30 38 30 0a 0a 23 64    0x00000080..#d
0f30: 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 4f 50  efine TESTVFS_OP
0f40: 45 4e 5f 4d 41 53 4b 20 20 20 20 20 20 20 20 20  EN_MASK         
0f50: 30 78 30 30 30 30 30 31 30 30 0a 23 64 65 66 69  0x00000100.#defi
0f60: 6e 65 20 54 45 53 54 56 46 53 5f 53 59 4e 43 5f  ne TESTVFS_SYNC_
0f70: 4d 41 53 4b 20 20 20 20 20 20 20 20 20 30 78 30  MASK         0x0
0f80: 30 30 30 30 32 30 30 0a 23 64 65 66 69 6e 65 20  0000200.#define 
0f90: 54 45 53 54 56 46 53 5f 44 45 4c 45 54 45 5f 4d  TESTVFS_DELETE_M
0fa0: 41 53 4b 20 20 20 20 20 20 20 30 78 30 30 30 30  ASK       0x0000
0fb0: 30 34 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53  0400.#define TES
0fc0: 54 56 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20  TVFS_CLOSE_MASK 
0fd0: 20 20 20 20 20 20 20 30 78 30 30 30 30 30 38 30         0x0000080
0fe0: 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46  0.#define TESTVF
0ff0: 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20 20 20 20  S_WRITE_MASK    
1000: 20 20 20 20 30 78 30 30 30 30 31 30 30 30 0a 23      0x00001000.#
1010: 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 54  define TESTVFS_T
1020: 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20 20 20 20  RUNCATE_MASK    
1030: 20 30 78 30 30 30 30 32 30 30 30 0a 23 64 65 66   0x00002000.#def
1040: 69 6e 65 20 54 45 53 54 56 46 53 5f 41 43 43 45  ine TESTVFS_ACCE
1050: 53 53 5f 4d 41 53 4b 20 20 20 20 20 20 20 30 78  SS_MASK       0x
1060: 30 30 30 30 34 30 30 30 0a 23 64 65 66 69 6e 65  00004000.#define
1070: 20 54 45 53 54 56 46 53 5f 46 55 4c 4c 50 41 54   TESTVFS_FULLPAT
1080: 48 4e 41 4d 45 5f 4d 41 53 4b 20 30 78 30 30 30  HNAME_MASK 0x000
1090: 30 38 30 30 30 0a 23 64 65 66 69 6e 65 20 54 45  08000.#define TE
10a0: 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20  STVFS_READ_MASK 
10b0: 20 20 20 20 20 20 20 20 30 78 30 30 30 31 30 30          0x000100
10c0: 30 30 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54  00..#define TEST
10d0: 56 46 53 5f 41 4c 4c 5f 4d 41 53 4b 20 20 20 20  VFS_ALL_MASK    
10e0: 20 20 20 20 20 20 30 78 30 30 30 31 46 46 46 46        0x0001FFFF
10f0: 0a 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56  ...#define TESTV
1100: 46 53 5f 4d 41 58 5f 50 41 47 45 53 20 31 30 32  FS_MAX_PAGES 102
1110: 34 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 68 61 72 65  4../*.** A share
1120: 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 2e  d-memory buffer.
1130: 20 54 68 65 72 65 20 69 73 20 6f 6e 65 20 6f 66   There is one of
1140: 20 74 68 65 73 65 20 6f 62 6a 65 63 74 73 20 66   these objects f
1150: 6f 72 20 65 61 63 68 20 73 68 61 72 65 64 0a 2a  or each shared.*
1160: 2a 20 6d 65 6d 6f 72 79 20 72 65 67 69 6f 6e 20  * memory region 
1170: 6f 70 65 6e 65 64 20 62 79 20 63 6c 69 65 6e 74  opened by client
1180: 73 2e 20 49 66 20 74 77 6f 20 63 6c 69 65 6e 74  s. If two client
1190: 73 20 6f 70 65 6e 20 74 68 65 20 73 61 6d 65 20  s open the same 
11a0: 66 69 6c 65 2c 0a 2a 2a 20 74 68 65 72 65 20 61  file,.** there a
11b0: 72 65 20 74 77 6f 20 54 65 73 74 76 66 73 46 69  re two TestvfsFi
11c0: 6c 65 20 73 74 72 75 63 74 75 72 65 73 20 62 75  le structures bu
11d0: 74 20 6f 6e 6c 79 20 6f 6e 65 20 54 65 73 74 76  t only one Testv
11e0: 66 73 42 75 66 66 65 72 20 73 74 72 75 63 74 75  fsBuffer structu
11f0: 72 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65  re..*/.struct Te
1200: 73 74 76 66 73 42 75 66 66 65 72 20 7b 0a 20 20  stvfsBuffer {.  
1210: 63 68 61 72 20 2a 7a 46 69 6c 65 3b 20 20 20 20  char *zFile;    
1220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1230: 2f 2a 20 41 73 73 6f 63 69 61 74 65 64 20 66 69  /* Associated fi
1240: 6c 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e 74  le name */.  int
1250: 20 70 67 73 7a 3b 20 20 20 20 20 20 20 20 20 20   pgsz;          
1260: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
1270: 50 61 67 65 20 73 69 7a 65 20 2a 2f 0a 20 20 75  Page size */.  u
1280: 38 20 2a 61 50 61 67 65 5b 54 45 53 54 56 46 53  8 *aPage[TESTVFS
1290: 5f 4d 41 58 5f 50 41 47 45 53 5d 3b 20 20 20 2f  _MAX_PAGES];   /
12a0: 2a 20 41 72 72 61 79 20 6f 66 20 63 6b 61 6c 6c  * Array of ckall
12b0: 6f 63 27 64 20 70 61 67 65 73 20 2a 2f 0a 20 20  oc'd pages */.  
12c0: 54 65 73 74 76 66 73 46 64 20 2a 70 46 69 6c 65  TestvfsFd *pFile
12d0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
12e0: 2f 2a 20 4c 69 73 74 20 6f 66 20 6f 70 65 6e 20  /* List of open 
12f0: 68 61 6e 64 6c 65 73 20 2a 2f 0a 20 20 54 65 73  handles */.  Tes
1300: 74 76 66 73 42 75 66 66 65 72 20 2a 70 4e 65 78  tvfsBuffer *pNex
1310: 74 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  t;           /* 
1320: 4e 65 78 74 20 69 6e 20 6c 69 6e 6b 65 64 20 6c  Next in linked l
1330: 69 73 74 20 6f 66 20 61 6c 6c 20 62 75 66 66 65  ist of all buffe
1340: 72 73 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66 69  rs */.};...#defi
1350: 6e 65 20 50 41 52 45 4e 54 56 46 53 28 78 29 20  ne PARENTVFS(x) 
1360: 28 28 28 54 65 73 74 76 66 73 20 2a 29 28 28 78  (((Testvfs *)((x
1370: 29 2d 3e 70 41 70 70 44 61 74 61 29 29 2d 3e 70  )->pAppData))->p
1380: 50 61 72 65 6e 74 29 0a 0a 23 64 65 66 69 6e 65  Parent)..#define
1390: 20 54 45 53 54 56 46 53 5f 4d 41 58 5f 41 52 47   TESTVFS_MAX_ARG
13a0: 53 20 31 32 0a 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74  S 12.../*.** Met
13b0: 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73  hod declarations
13c0: 20 66 6f 72 20 54 65 73 74 76 66 73 46 69 6c 65   for TestvfsFile
13d0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
13e0: 74 76 66 73 43 6c 6f 73 65 28 73 71 6c 69 74 65  tvfsClose(sqlite
13f0: 33 5f 66 69 6c 65 2a 29 3b 0a 73 74 61 74 69 63  3_file*);.static
1400: 20 69 6e 74 20 74 76 66 73 52 65 61 64 28 73 71   int tvfsRead(sq
1410: 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 76 6f 69  lite3_file*, voi
1420: 64 2a 2c 20 69 6e 74 20 69 41 6d 74 2c 20 73 71  d*, int iAmt, sq
1430: 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73  lite3_int64 iOfs
1440: 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  t);.static int t
1450: 76 66 73 57 72 69 74 65 28 73 71 6c 69 74 65 33  vfsWrite(sqlite3
1460: 5f 66 69 6c 65 2a 2c 63 6f 6e 73 74 20 76 6f 69  _file*,const voi
1470: 64 2a 2c 69 6e 74 20 69 41 6d 74 2c 20 73 71 6c  d*,int iAmt, sql
1480: 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74  ite3_int64 iOfst
1490: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
14a0: 66 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69 74  fsTruncate(sqlit
14b0: 65 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74 65  e3_file*, sqlite
14c0: 33 5f 69 6e 74 36 34 20 73 69 7a 65 29 3b 0a 73  3_int64 size);.s
14d0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 79  tatic int tvfsSy
14e0: 6e 63 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  nc(sqlite3_file*
14f0: 2c 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a 73 74  , int flags);.st
1500: 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 69 6c  atic int tvfsFil
1510: 65 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69  eSize(sqlite3_fi
1520: 6c 65 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74  le*, sqlite3_int
1530: 36 34 20 2a 70 53 69 7a 65 29 3b 0a 73 74 61 74  64 *pSize);.stat
1540: 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28  ic int tvfsLock(
1550: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69  sqlite3_file*, i
1560: 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  nt);.static int 
1570: 74 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69 74  tvfsUnlock(sqlit
1580: 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b 0a  e3_file*, int);.
1590: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43  static int tvfsC
15a0: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
15b0: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20  (sqlite3_file*, 
15c0: 69 6e 74 20 2a 29 3b 0a 73 74 61 74 69 63 20 69  int *);.static i
15d0: 6e 74 20 74 76 66 73 46 69 6c 65 43 6f 6e 74 72  nt tvfsFileContr
15e0: 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  ol(sqlite3_file*
15f0: 2c 20 69 6e 74 20 6f 70 2c 20 76 6f 69 64 20 2a  , int op, void *
1600: 70 41 72 67 29 3b 0a 73 74 61 74 69 63 20 69 6e  pArg);.static in
1610: 74 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65  t tvfsSectorSize
1620: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b  (sqlite3_file*);
1630: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
1640: 44 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69  DeviceCharacteri
1650: 73 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66 69  stics(sqlite3_fi
1660: 6c 65 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74  le*);../*.** Met
1670: 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73  hod declarations
1680: 20 66 6f 72 20 74 76 66 73 5f 76 66 73 2e 0a 2a   for tvfs_vfs..*
1690: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
16a0: 73 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 66  sOpen(sqlite3_vf
16b0: 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  s*, const char *
16c0: 2c 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  , sqlite3_file*,
16d0: 20 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b 0a 73   int , int *);.s
16e0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44 65  tatic int tvfsDe
16f0: 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76 66 73  lete(sqlite3_vfs
1700: 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  *, const char *z
1710: 4e 61 6d 65 2c 20 69 6e 74 20 73 79 6e 63 44 69  Name, int syncDi
1720: 72 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  r);.static int t
1730: 76 66 73 41 63 63 65 73 73 28 73 71 6c 69 74 65  vfsAccess(sqlite
1740: 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68  3_vfs*, const ch
1750: 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 66  ar *zName, int f
1760: 6c 61 67 73 2c 20 69 6e 74 20 2a 29 3b 0a 73 74  lags, int *);.st
1770: 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 75 6c  atic int tvfsFul
1780: 6c 50 61 74 68 6e 61 6d 65 28 73 71 6c 69 74 65  lPathname(sqlite
1790: 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68  3_vfs*, const ch
17a0: 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 2c 20  ar *zName, int, 
17b0: 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 23 69 66  char *zOut);.#if
17c0: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  ndef SQLITE_OMIT
17d0: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a  _LOAD_EXTENSION.
17e0: 73 74 61 74 69 63 20 76 6f 69 64 20 2a 74 76 66  static void *tvf
17f0: 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f  sDlOpen(sqlite3_
1800: 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72  vfs*, const char
1810: 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 73 74   *zFilename);.st
1820: 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c  atic void tvfsDl
1830: 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f 76 66  Error(sqlite3_vf
1840: 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63  s*, int nByte, c
1850: 68 61 72 20 2a 7a 45 72 72 4d 73 67 29 3b 0a 73  har *zErrMsg);.s
1860: 74 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76 66  tatic void (*tvf
1870: 73 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f 76  sDlSym(sqlite3_v
1880: 66 73 2a 2c 76 6f 69 64 2a 2c 20 63 6f 6e 73 74  fs*,void*, const
1890: 20 63 68 61 72 20 2a 7a 53 79 6d 62 6f 6c 29 29   char *zSymbol))
18a0: 28 76 6f 69 64 29 3b 0a 73 74 61 74 69 63 20 76  (void);.static v
18b0: 6f 69 64 20 74 76 66 73 44 6c 43 6c 6f 73 65 28  oid tvfsDlClose(
18c0: 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 76 6f  sqlite3_vfs*, vo
18d0: 69 64 2a 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20  id*);.#endif /* 
18e0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44  SQLITE_OMIT_LOAD
18f0: 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 73 74  _EXTENSION */.st
1900: 61 74 69 63 20 69 6e 74 20 74 76 66 73 52 61 6e  atic int tvfsRan
1910: 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65 33 5f  domness(sqlite3_
1920: 76 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c  vfs*, int nByte,
1930: 20 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 73 74   char *zOut);.st
1940: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 6c 65  atic int tvfsSle
1950: 65 70 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c  ep(sqlite3_vfs*,
1960: 20 69 6e 74 20 6d 69 63 72 6f 73 65 63 6f 6e 64   int microsecond
1970: 73 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  s);.static int t
1980: 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65 28 73  vfsCurrentTime(s
1990: 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 64 6f 75  qlite3_vfs*, dou
19a0: 62 6c 65 2a 29 3b 0a 0a 73 74 61 74 69 63 20 69  ble*);..static i
19b0: 6e 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 73  nt tvfsShmOpen(s
19c0: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a 73  qlite3_file*);.s
19d0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68  tatic int tvfsSh
19e0: 6d 4c 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69  mLock(sqlite3_fi
19f0: 6c 65 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 2c 20  le*, int , int, 
1a00: 69 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  int);.static int
1a10: 20 74 76 66 73 53 68 6d 4d 61 70 28 73 71 6c 69   tvfsShmMap(sqli
1a20: 74 65 33 5f 66 69 6c 65 2a 2c 69 6e 74 2c 69 6e  te3_file*,int,in
1a30: 74 2c 69 6e 74 2c 20 76 6f 69 64 20 76 6f 6c 61  t,int, void vola
1a40: 74 69 6c 65 20 2a 2a 29 3b 0a 73 74 61 74 69 63  tile **);.static
1a50: 20 76 6f 69 64 20 74 76 66 73 53 68 6d 42 61 72   void tvfsShmBar
1a60: 72 69 65 72 28 73 71 6c 69 74 65 33 5f 66 69 6c  rier(sqlite3_fil
1a70: 65 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  e*);.static int 
1a80: 74 76 66 73 53 68 6d 55 6e 6d 61 70 28 73 71 6c  tvfsShmUnmap(sql
1a90: 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29  ite3_file*, int)
1aa0: 3b 0a 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65  ;..static sqlite
1ab0: 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 74 76 66  3_io_methods tvf
1ac0: 73 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 3d 20 7b  s_io_methods = {
1ad0: 0a 20 20 32 2c 20 20 20 20 20 20 20 20 20 20 20  .  2,           
1ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1af0: 20 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a     /* iVersion *
1b00: 2f 0a 20 20 74 76 66 73 43 6c 6f 73 65 2c 20 20  /.  tvfsClose,  
1b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b20: 20 20 20 20 2f 2a 20 78 43 6c 6f 73 65 20 2a 2f      /* xClose */
1b30: 0a 20 20 74 76 66 73 52 65 61 64 2c 20 20 20 20  .  tvfsRead,    
1b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b50: 20 20 20 2f 2a 20 78 52 65 61 64 20 2a 2f 0a 20     /* xRead */. 
1b60: 20 74 76 66 73 57 72 69 74 65 2c 20 20 20 20 20   tvfsWrite,     
1b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b80: 20 2f 2a 20 78 57 72 69 74 65 20 2a 2f 0a 20 20   /* xWrite */.  
1b90: 74 76 66 73 54 72 75 6e 63 61 74 65 2c 20 20 20  tvfsTruncate,   
1ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1bb0: 2f 2a 20 78 54 72 75 6e 63 61 74 65 20 2a 2f 0a  /* xTruncate */.
1bc0: 20 20 74 76 66 73 53 79 6e 63 2c 20 20 20 20 20    tvfsSync,     
1bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1be0: 20 20 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20    /* xSync */.  
1bf0: 74 76 66 73 46 69 6c 65 53 69 7a 65 2c 20 20 20  tvfsFileSize,   
1c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c10: 2f 2a 20 78 46 69 6c 65 53 69 7a 65 20 2a 2f 0a  /* xFileSize */.
1c20: 20 20 74 76 66 73 4c 6f 63 6b 2c 20 20 20 20 20    tvfsLock,     
1c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c40: 20 20 2f 2a 20 78 4c 6f 63 6b 20 2a 2f 0a 20 20    /* xLock */.  
1c50: 74 76 66 73 55 6e 6c 6f 63 6b 2c 20 20 20 20 20  tvfsUnlock,     
1c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c70: 2f 2a 20 78 55 6e 6c 6f 63 6b 20 2a 2f 0a 20 20  /* xUnlock */.  
1c80: 74 76 66 73 43 68 65 63 6b 52 65 73 65 72 76 65  tvfsCheckReserve
1c90: 64 4c 6f 63 6b 2c 20 20 20 20 20 20 20 20 20 20  dLock,          
1ca0: 2f 2a 20 78 43 68 65 63 6b 52 65 73 65 72 76 65  /* xCheckReserve
1cb0: 64 4c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73 46  dLock */.  tvfsF
1cc0: 69 6c 65 43 6f 6e 74 72 6f 6c 2c 20 20 20 20 20  ileControl,     
1cd0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46             /* xF
1ce0: 69 6c 65 43 6f 6e 74 72 6f 6c 20 2a 2f 0a 20 20  ileControl */.  
1cf0: 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65 2c 20  tvfsSectorSize, 
1d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d10: 2f 2a 20 78 53 65 63 74 6f 72 53 69 7a 65 20 2a  /* xSectorSize *
1d20: 2f 0a 20 20 74 76 66 73 44 65 76 69 63 65 43 68  /.  tvfsDeviceCh
1d30: 61 72 61 63 74 65 72 69 73 74 69 63 73 2c 20 20  aracteristics,  
1d40: 20 20 20 20 2f 2a 20 78 44 65 76 69 63 65 43 68      /* xDeviceCh
1d50: 61 72 61 63 74 65 72 69 73 74 69 63 73 20 2a 2f  aracteristics */
1d60: 0a 20 20 74 76 66 73 53 68 6d 4d 61 70 2c 20 20  .  tvfsShmMap,  
1d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d80: 20 20 20 2f 2a 20 78 53 68 6d 4d 61 70 20 2a 2f     /* xShmMap */
1d90: 0a 20 20 74 76 66 73 53 68 6d 4c 6f 63 6b 2c 20  .  tvfsShmLock, 
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1db0: 20 20 20 2f 2a 20 78 53 68 6d 4c 6f 63 6b 20 2a     /* xShmLock *
1dc0: 2f 0a 20 20 74 76 66 73 53 68 6d 42 61 72 72 69  /.  tvfsShmBarri
1dd0: 65 72 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  er,             
1de0: 20 20 20 20 2f 2a 20 78 53 68 6d 42 61 72 72 69      /* xShmBarri
1df0: 65 72 20 2a 2f 0a 20 20 74 76 66 73 53 68 6d 55  er */.  tvfsShmU
1e00: 6e 6d 61 70 20 20 20 20 20 20 20 20 20 20 20 20  nmap            
1e10: 20 20 20 20 20 20 20 20 2f 2a 20 78 53 68 6d 55          /* xShmU
1e20: 6e 6d 61 70 20 2a 2f 0a 7d 3b 0a 0a 73 74 61 74  nmap */.};..stat
1e30: 69 63 20 69 6e 74 20 74 76 66 73 52 65 73 75 6c  ic int tvfsResul
1e40: 74 43 6f 64 65 28 54 65 73 74 76 66 73 20 2a 70  tCode(Testvfs *p
1e50: 2c 20 69 6e 74 20 2a 70 52 63 29 7b 0a 20 20 73  , int *pRc){.  s
1e60: 74 72 75 63 74 20 65 72 72 63 6f 64 65 20 7b 0a  truct errcode {.
1e70: 20 20 20 20 69 6e 74 20 65 43 6f 64 65 3b 0a 20      int eCode;. 
1e80: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a     const char *z
1e90: 43 6f 64 65 3b 0a 20 20 7d 20 61 43 6f 64 65 5b  Code;.  } aCode[
1ea0: 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 53 51 4c 49  ] = {.    { SQLI
1eb0: 54 45 5f 4f 4b 2c 20 20 20 20 20 22 53 51 4c 49  TE_OK,     "SQLI
1ec0: 54 45 5f 4f 4b 22 20 20 20 20 20 7d 2c 0a 20 20  TE_OK"     },.  
1ed0: 20 20 7b 20 53 51 4c 49 54 45 5f 45 52 52 4f 52    { SQLITE_ERROR
1ee0: 2c 20 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52  ,  "SQLITE_ERROR
1ef0: 22 20 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49  "  },.    { SQLI
1f00: 54 45 5f 49 4f 45 52 52 2c 20 20 22 53 51 4c 49  TE_IOERR,  "SQLI
1f10: 54 45 5f 49 4f 45 52 52 22 20 20 7d 2c 0a 20 20  TE_IOERR"  },.  
1f20: 20 20 7b 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45    { SQLITE_LOCKE
1f30: 44 2c 20 22 53 51 4c 49 54 45 5f 4c 4f 43 4b 45  D, "SQLITE_LOCKE
1f40: 44 22 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49  D" },.    { SQLI
1f50: 54 45 5f 42 55 53 59 2c 20 20 20 22 53 51 4c 49  TE_BUSY,   "SQLI
1f60: 54 45 5f 42 55 53 59 22 20 20 20 7d 2c 0a 20 20  TE_BUSY"   },.  
1f70: 7d 3b 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  };..  const char
1f80: 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20   *z;.  int i;.. 
1f90: 20 7a 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69   z = Tcl_GetStri
1fa0: 6e 67 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65  ngResult(p->inte
1fb0: 72 70 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20  rp);.  for(i=0; 
1fc0: 69 3c 41 72 72 61 79 53 69 7a 65 28 61 43 6f 64  i<ArraySize(aCod
1fd0: 65 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66  e); i++){.    if
1fe0: 28 20 30 3d 3d 73 74 72 63 6d 70 28 7a 2c 20 61  ( 0==strcmp(z, a
1ff0: 43 6f 64 65 5b 69 5d 2e 7a 43 6f 64 65 29 20 29  Code[i].zCode) )
2000: 7b 0a 20 20 20 20 20 20 2a 70 52 63 20 3d 20 61  {.      *pRc = a
2010: 43 6f 64 65 5b 69 5d 2e 65 43 6f 64 65 3b 0a 20  Code[i].eCode;. 
2020: 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20       return 1;. 
2030: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75     }.  }..  retu
2040: 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  rn 0;.}..static 
2050: 69 6e 74 20 74 76 66 73 49 6e 6a 65 63 74 46 61  int tvfsInjectFa
2060: 75 6c 74 28 54 65 73 74 46 61 75 6c 74 49 6e 6a  ult(TestFaultInj
2070: 65 63 74 20 2a 70 29 7b 0a 20 20 69 6e 74 20 72  ect *p){.  int r
2080: 65 74 20 3d 20 30 3b 0a 20 20 69 66 28 20 70 2d  et = 0;.  if( p-
2090: 3e 65 46 61 75 6c 74 20 29 7b 0a 20 20 20 20 70  >eFault ){.    p
20a0: 2d 3e 69 43 6e 74 2d 2d 3b 0a 20 20 20 20 69 66  ->iCnt--;.    if
20b0: 28 20 70 2d 3e 69 43 6e 74 3d 3d 30 20 7c 7c 20  ( p->iCnt==0 || 
20c0: 28 70 2d 3e 69 43 6e 74 3c 30 20 26 26 20 70 2d  (p->iCnt<0 && p-
20d0: 3e 65 46 61 75 6c 74 3d 3d 46 41 55 4c 54 5f 49  >eFault==FAULT_I
20e0: 4e 4a 45 43 54 5f 50 45 52 53 49 53 54 45 4e 54  NJECT_PERSISTENT
20f0: 20 29 20 29 7b 0a 20 20 20 20 20 20 72 65 74 20   ) ){.      ret 
2100: 3d 20 31 3b 0a 20 20 20 20 20 20 70 2d 3e 6e 46  = 1;.      p->nF
2110: 61 69 6c 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 7d  ail++;.    }.  }
2120: 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0a 7d  .  return ret;.}
2130: 0a 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  ...static int tv
2140: 66 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 54 65  fsInjectIoerr(Te
2150: 73 74 76 66 73 20 2a 70 29 7b 0a 20 20 72 65 74  stvfs *p){.  ret
2160: 75 72 6e 20 74 76 66 73 49 6e 6a 65 63 74 46 61  urn tvfsInjectFa
2170: 75 6c 74 28 26 70 2d 3e 69 6f 65 72 72 5f 65 72  ult(&p->ioerr_er
2180: 72 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  r);.}..static in
2190: 74 20 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c  t tvfsInjectFull
21a0: 65 72 72 28 54 65 73 74 76 66 73 20 2a 70 29 7b  err(Testvfs *p){
21b0: 0a 20 20 72 65 74 75 72 6e 20 74 76 66 73 49 6e  .  return tvfsIn
21c0: 6a 65 63 74 46 61 75 6c 74 28 26 70 2d 3e 66 75  jectFault(&p->fu
21d0: 6c 6c 5f 65 72 72 29 3b 0a 7d 0a 73 74 61 74 69  ll_err);.}.stati
21e0: 63 20 69 6e 74 20 74 76 66 73 49 6e 6a 65 63 74  c int tvfsInject
21f0: 43 61 6e 74 6f 70 65 6e 65 72 72 28 54 65 73 74  Cantopenerr(Test
2200: 76 66 73 20 2a 70 29 7b 0a 20 20 72 65 74 75 72  vfs *p){.  retur
2210: 6e 20 74 76 66 73 49 6e 6a 65 63 74 46 61 75 6c  n tvfsInjectFaul
2220: 74 28 26 70 2d 3e 63 61 6e 74 6f 70 65 6e 5f 65  t(&p->cantopen_e
2230: 72 72 29 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20  rr);.}...static 
2240: 76 6f 69 64 20 74 76 66 73 45 78 65 63 54 63 6c  void tvfsExecTcl
2250: 28 0a 20 20 54 65 73 74 76 66 73 20 2a 70 2c 20  (.  Testvfs *p, 
2260: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
2270: 4d 65 74 68 6f 64 2c 0a 20 20 54 63 6c 5f 4f 62  Method,.  Tcl_Ob
2280: 6a 20 2a 61 72 67 31 2c 0a 20 20 54 63 6c 5f 4f  j *arg1,.  Tcl_O
2290: 62 6a 20 2a 61 72 67 32 2c 0a 20 20 54 63 6c 5f  bj *arg2,.  Tcl_
22a0: 4f 62 6a 20 2a 61 72 67 33 0a 29 7b 0a 20 20 69  Obj *arg3.){.  i
22b0: 6e 74 20 72 63 3b 20 20 20 20 20 20 20 20 20 20  nt rc;          
22c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
22d0: 2a 20 52 65 74 75 72 6e 20 63 6f 64 65 20 66 72  * Return code fr
22e0: 6f 6d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 28 29  om Tcl_EvalObj()
22f0: 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70   */.  Tcl_Obj *p
2300: 45 76 61 6c 3b 0a 20 20 61 73 73 65 72 74 28 20  Eval;.  assert( 
2310: 70 2d 3e 70 53 63 72 69 70 74 20 29 3b 0a 0a 20  p->pScript );.. 
2320: 20 61 73 73 65 72 74 28 20 7a 4d 65 74 68 6f 64   assert( zMethod
2330: 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 70 20   );.  assert( p 
2340: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67  );.  assert( arg
2350: 32 3d 3d 30 20 7c 7c 20 61 72 67 31 21 3d 30 20  2==0 || arg1!=0 
2360: 29 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67  );.  assert( arg
2370: 33 3d 3d 30 20 7c 7c 20 61 72 67 32 21 3d 30 20  3==0 || arg2!=0 
2380: 29 3b 0a 0a 20 20 70 45 76 61 6c 20 3d 20 54 63  );..  pEval = Tc
2390: 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 70  l_DuplicateObj(p
23a0: 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63  ->pScript);.  Tc
23b0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
23c0: 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63  ->pScript);.  Tc
23d0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
23e0: 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72 70  lement(p->interp
23f0: 2c 20 70 45 76 61 6c 2c 20 54 63 6c 5f 4e 65 77  , pEval, Tcl_New
2400: 53 74 72 69 6e 67 4f 62 6a 28 7a 4d 65 74 68 6f  StringObj(zMetho
2410: 64 2c 20 2d 31 29 29 3b 0a 20 20 69 66 28 20 61  d, -1));.  if( a
2420: 72 67 31 20 29 20 54 63 6c 5f 4c 69 73 74 4f 62  rg1 ) Tcl_ListOb
2430: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70  jAppendElement(p
2440: 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c  ->interp, pEval,
2450: 20 61 72 67 31 29 3b 0a 20 20 69 66 28 20 61 72   arg1);.  if( ar
2460: 67 32 20 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  g2 ) Tcl_ListObj
2470: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d  AppendElement(p-
2480: 3e 69 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c 20  >interp, pEval, 
2490: 61 72 67 32 29 3b 0a 20 20 69 66 28 20 61 72 67  arg2);.  if( arg
24a0: 33 20 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41  3 ) Tcl_ListObjA
24b0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e  ppendElement(p->
24c0: 69 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 61  interp, pEval, a
24d0: 72 67 33 29 3b 0a 0a 20 20 72 63 20 3d 20 54 63  rg3);..  rc = Tc
24e0: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69  l_EvalObjEx(p->i
24f0: 6e 74 65 72 70 2c 20 70 45 76 61 6c 2c 20 54 43  nterp, pEval, TC
2500: 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a  L_EVAL_GLOBAL);.
2510: 20 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b    if( rc!=TCL_OK
2520: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 42 61 63 6b   ){.    Tcl_Back
2530: 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e 69  groundError(p->i
2540: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f  nterp);.    Tcl_
2550: 52 65 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69  ResetResult(p->i
2560: 6e 74 65 72 70 29 3b 0a 20 20 7d 0a 7d 0a 0a 0a  nterp);.  }.}...
2570: 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61 6e 20 74  /*.** Close an t
2580: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
2590: 74 69 63 20 69 6e 74 20 74 76 66 73 43 6c 6f 73  tic int tvfsClos
25a0: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  e(sqlite3_file *
25b0: 70 46 69 6c 65 29 7b 0a 20 20 69 6e 74 20 72 63  pFile){.  int rc
25c0: 3b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20  ;.  TestvfsFile 
25d0: 2a 70 54 65 73 74 66 69 6c 65 20 3d 20 28 54 65  *pTestfile = (Te
25e0: 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c  stvfsFile *)pFil
25f0: 65 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  e;.  TestvfsFd *
2600: 70 46 64 20 3d 20 70 54 65 73 74 66 69 6c 65 2d  pFd = pTestfile-
2610: 3e 70 46 64 3b 0a 20 20 54 65 73 74 76 66 73 20  >pFd;.  Testvfs 
2620: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
2630: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
2640: 61 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70  ata;..  if( p->p
2650: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
2660: 6b 26 54 45 53 54 56 46 53 5f 43 4c 4f 53 45 5f  k&TESTVFS_CLOSE_
2670: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73  MASK ){.    tvfs
2680: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 43 6c 6f  ExecTcl(p, "xClo
2690: 73 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63  se", .        Tc
26a0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70  l_NewStringObj(p
26b0: 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d  Fd->zFilename, -
26c0: 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c  1), pFd->pShmId,
26d0: 20 30 0a 20 20 20 20 29 3b 0a 20 20 7d 0a 0a 20   0.    );.  }.. 
26e0: 20 69 66 28 20 70 46 64 2d 3e 70 53 68 6d 49 64   if( pFd->pShmId
26f0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72   ){.    Tcl_Decr
2700: 52 65 66 43 6f 75 6e 74 28 70 46 64 2d 3e 70 53  RefCount(pFd->pS
2710: 68 6d 49 64 29 3b 0a 20 20 20 20 70 46 64 2d 3e  hmId);.    pFd->
2720: 70 53 68 6d 49 64 20 3d 20 30 3b 0a 20 20 7d 0a  pShmId = 0;.  }.
2730: 20 20 69 66 28 20 70 46 69 6c 65 2d 3e 70 4d 65    if( pFile->pMe
2740: 74 68 6f 64 73 20 29 7b 0a 20 20 20 20 63 6b 66  thods ){.    ckf
2750: 72 65 65 28 28 63 68 61 72 20 2a 29 70 46 69 6c  ree((char *)pFil
2760: 65 2d 3e 70 4d 65 74 68 6f 64 73 29 3b 0a 20 20  e->pMethods);.  
2770: 7d 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  }.  rc = sqlite3
2780: 4f 73 43 6c 6f 73 65 28 70 46 64 2d 3e 70 52 65  OsClose(pFd->pRe
2790: 61 6c 29 3b 0a 20 20 63 6b 66 72 65 65 28 28 63  al);.  ckfree((c
27a0: 68 61 72 20 2a 29 70 46 64 29 3b 0a 20 20 70 54  har *)pFd);.  pT
27b0: 65 73 74 66 69 6c 65 2d 3e 70 46 64 20 3d 20 30  estfile->pFd = 0
27c0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
27d0: 0a 0a 2f 2a 0a 2a 2a 20 52 65 61 64 20 64 61 74  ../*.** Read dat
27e0: 61 20 66 72 6f 6d 20 61 6e 20 74 76 66 73 2d 66  a from an tvfs-f
27f0: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
2800: 6e 74 20 74 76 66 73 52 65 61 64 28 0a 20 20 73  nt tvfsRead(.  s
2810: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
2820: 6c 65 2c 20 0a 20 20 76 6f 69 64 20 2a 7a 42 75  le, .  void *zBu
2830: 66 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c 20  f, .  int iAmt, 
2840: 0a 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20  .  sqlite_int64 
2850: 69 4f 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20 72  iOfst.){.  int r
2860: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
2870: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20   TestvfsFd *pFd 
2880: 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c  = tvfsGetFd(pFil
2890: 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  e);.  Testvfs *p
28a0: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46   = (Testvfs *)pF
28b0: 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74  d->pVfs->pAppDat
28c0: 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72  a;.  if( p->pScr
28d0: 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  ipt && p->mask&T
28e0: 45 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b  ESTVFS_READ_MASK
28f0: 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63   ){.    tvfsExec
2900: 54 63 6c 28 70 2c 20 22 78 52 65 61 64 22 2c 20  Tcl(p, "xRead", 
2910: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  .        Tcl_New
2920: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a  StringObj(pFd->z
2930: 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70  Filename, -1), p
2940: 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 0a 20 20  Fd->pShmId, 0.  
2950: 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73    );.    tvfsRes
2960: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b  ultCode(p, &rc);
2970: 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d 53  .  }.  if( rc==S
2980: 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e 6d  QLITE_OK && p->m
2990: 61 73 6b 26 54 45 53 54 56 46 53 5f 52 45 41 44  ask&TESTVFS_READ
29a0: 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49 6e 6a  _MASK && tvfsInj
29b0: 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b 0a 20  ectIoerr(p) ){. 
29c0: 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 49     rc = SQLITE_I
29d0: 4f 45 52 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  OERR;.  }.  if( 
29e0: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc==SQLITE_OK ){
29f0: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65  .    rc = sqlite
2a00: 33 4f 73 52 65 61 64 28 70 46 64 2d 3e 70 52 65  3OsRead(pFd->pRe
2a10: 61 6c 2c 20 7a 42 75 66 2c 20 69 41 6d 74 2c 20  al, zBuf, iAmt, 
2a20: 69 4f 66 73 74 29 3b 0a 20 20 7d 0a 20 20 72 65  iOfst);.  }.  re
2a30: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a  turn rc;.}../*.*
2a40: 2a 20 57 72 69 74 65 20 64 61 74 61 20 74 6f 20  * Write data to 
2a50: 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f  an tvfs-file..*/
2a60: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
2a70: 57 72 69 74 65 28 0a 20 20 73 71 6c 69 74 65 33  Write(.  sqlite3
2a80: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 0a 20  _file *pFile, . 
2a90: 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 42 75   const void *zBu
2aa0: 66 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c 20  f, .  int iAmt, 
2ab0: 0a 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20  .  sqlite_int64 
2ac0: 69 4f 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20 72  iOfst.){.  int r
2ad0: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
2ae0: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20   TestvfsFd *pFd 
2af0: 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c  = tvfsGetFd(pFil
2b00: 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  e);.  Testvfs *p
2b10: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46   = (Testvfs *)pF
2b20: 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74  d->pVfs->pAppDat
2b30: 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63  a;..  if( p->pSc
2b40: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
2b50: 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d 41  TESTVFS_WRITE_MA
2b60: 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78  SK ){.    tvfsEx
2b70: 65 63 54 63 6c 28 70 2c 20 22 78 57 72 69 74 65  ecTcl(p, "xWrite
2b80: 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  ", .        Tcl_
2b90: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64  NewStringObj(pFd
2ba0: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29  ->zFilename, -1)
2bb0: 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30  , pFd->pShmId, 0
2bc0: 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73  .    );.    tvfs
2bd0: 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72  ResultCode(p, &r
2be0: 63 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72  c);.  }..  if( r
2bf0: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20  c==SQLITE_OK && 
2c00: 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72  tvfsInjectFuller
2c10: 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20 3d  r(p) ){.    rc =
2c20: 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3b 0a 20 20   SQLITE_FULL;.  
2c30: 7d 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49  }.  if( rc==SQLI
2c40: 54 45 5f 4f 4b 20 26 26 20 70 2d 3e 6d 61 73 6b  TE_OK && p->mask
2c50: 26 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d  &TESTVFS_WRITE_M
2c60: 41 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63  ASK && tvfsInjec
2c70: 74 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20  tIoerr(p) ){.   
2c80: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45   rc = SQLITE_IOE
2c90: 52 52 3b 0a 20 20 7d 0a 20 20 0a 20 20 69 66 28  RR;.  }.  .  if(
2ca0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc==SQLITE_OK )
2cb0: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  {.    rc = sqlit
2cc0: 65 33 4f 73 57 72 69 74 65 28 70 46 64 2d 3e 70  e3OsWrite(pFd->p
2cd0: 52 65 61 6c 2c 20 7a 42 75 66 2c 20 69 41 6d 74  Real, zBuf, iAmt
2ce0: 2c 20 69 4f 66 73 74 29 3b 0a 20 20 7d 0a 20 20  , iOfst);.  }.  
2cf0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a  return rc;.}../*
2d00: 0a 2a 2a 20 54 72 75 6e 63 61 74 65 20 61 6e 20  .** Truncate an 
2d10: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
2d20: 61 74 69 63 20 69 6e 74 20 74 76 66 73 54 72 75  atic int tvfsTru
2d30: 6e 63 61 74 65 28 73 71 6c 69 74 65 33 5f 66 69  ncate(sqlite3_fi
2d40: 6c 65 20 2a 70 46 69 6c 65 2c 20 73 71 6c 69 74  le *pFile, sqlit
2d50: 65 5f 69 6e 74 36 34 20 73 69 7a 65 29 7b 0a 20  e_int64 size){. 
2d60: 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45   int rc = SQLITE
2d70: 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 64  _OK;.  TestvfsFd
2d80: 20 2a 70 46 64 20 3d 20 74 76 66 73 47 65 74 46   *pFd = tvfsGetF
2d90: 64 28 70 46 69 6c 65 29 3b 0a 20 20 54 65 73 74  d(pFile);.  Test
2da0: 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66  vfs *p = (Testvf
2db0: 73 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70  s *)pFd->pVfs->p
2dc0: 41 70 70 44 61 74 61 3b 0a 0a 20 20 69 66 28 20  AppData;..  if( 
2dd0: 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d  p->pScript && p-
2de0: 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 54 52  >mask&TESTVFS_TR
2df0: 55 4e 43 41 54 45 5f 4d 41 53 4b 20 29 7b 0a 20  UNCATE_MASK ){. 
2e00: 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70     tvfsExecTcl(p
2e10: 2c 20 22 78 54 72 75 6e 63 61 74 65 22 2c 20 0a  , "xTruncate", .
2e20: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
2e30: 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46  tringObj(pFd->zF
2e40: 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46  ilename, -1), pF
2e50: 64 2d 3e 70 53 68 6d 49 64 2c 20 30 0a 20 20 20  d->pShmId, 0.   
2e60: 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75   );.    tvfsResu
2e70: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a  ltCode(p, &rc);.
2e80: 20 20 7d 0a 20 20 0a 20 20 69 66 28 20 72 63 3d    }.  .  if( rc=
2e90: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
2ea0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73    rc = sqlite3Os
2eb0: 54 72 75 6e 63 61 74 65 28 70 46 64 2d 3e 70 52  Truncate(pFd->pR
2ec0: 65 61 6c 2c 20 73 69 7a 65 29 3b 0a 20 20 7d 0a  eal, size);.  }.
2ed0: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
2ee0: 2f 2a 0a 2a 2a 20 53 79 6e 63 20 61 6e 20 74 76  /*.** Sync an tv
2ef0: 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74  fs-file..*/.stat
2f00: 69 63 20 69 6e 74 20 74 76 66 73 53 79 6e 63 28  ic int tvfsSync(
2f10: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
2f20: 69 6c 65 2c 20 69 6e 74 20 66 6c 61 67 73 29 7b  ile, int flags){
2f30: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49  .  int rc = SQLI
2f40: 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73  TE_OK;.  Testvfs
2f50: 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47 65  Fd *pFd = tvfsGe
2f60: 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54 65  tFd(pFile);.  Te
2f70: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
2f80: 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d  vfs *)pFd->pVfs-
2f90: 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20 20 69 66  >pAppData;..  if
2fa0: 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20  ( p->pScript && 
2fb0: 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f  p->mask&TESTVFS_
2fc0: 53 59 4e 43 5f 4d 41 53 4b 20 29 7b 0a 20 20 20  SYNC_MASK ){.   
2fd0: 20 63 68 61 72 20 2a 7a 46 6c 61 67 73 3b 0a 0a   char *zFlags;..
2fe0: 20 20 20 20 73 77 69 74 63 68 28 20 66 6c 61 67      switch( flag
2ff0: 73 20 29 7b 0a 20 20 20 20 20 20 63 61 73 65 20  s ){.      case 
3000: 53 51 4c 49 54 45 5f 53 59 4e 43 5f 4e 4f 52 4d  SQLITE_SYNC_NORM
3010: 41 4c 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c 61  AL:.        zFla
3020: 67 73 20 3d 20 22 6e 6f 72 6d 61 6c 22 3b 0a 20  gs = "normal";. 
3030: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
3040: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
3050: 53 59 4e 43 5f 46 55 4c 4c 3a 0a 20 20 20 20 20  SYNC_FULL:.     
3060: 20 20 20 7a 46 6c 61 67 73 20 3d 20 22 66 75 6c     zFlags = "ful
3070: 6c 22 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61  l";.        brea
3080: 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 53 51  k;.      case SQ
3090: 4c 49 54 45 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c  LITE_SYNC_NORMAL
30a0: 7c 53 51 4c 49 54 45 5f 53 59 4e 43 5f 44 41 54  |SQLITE_SYNC_DAT
30b0: 41 4f 4e 4c 59 3a 0a 20 20 20 20 20 20 20 20 7a  AONLY:.        z
30c0: 46 6c 61 67 73 20 3d 20 22 6e 6f 72 6d 61 6c 7c  Flags = "normal|
30d0: 64 61 74 61 6f 6e 6c 79 22 3b 0a 20 20 20 20 20  dataonly";.     
30e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
30f0: 63 61 73 65 20 53 51 4c 49 54 45 5f 53 59 4e 43  case SQLITE_SYNC
3100: 5f 46 55 4c 4c 7c 53 51 4c 49 54 45 5f 53 59 4e  _FULL|SQLITE_SYN
3110: 43 5f 44 41 54 41 4f 4e 4c 59 3a 0a 20 20 20 20  C_DATAONLY:.    
3120: 20 20 20 20 7a 46 6c 61 67 73 20 3d 20 22 66 75      zFlags = "fu
3130: 6c 6c 7c 64 61 74 61 6f 6e 6c 79 22 3b 0a 20 20  ll|dataonly";.  
3140: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
3150: 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20     default:.    
3160: 20 20 20 20 61 73 73 65 72 74 28 30 29 3b 0a 20      assert(0);. 
3170: 20 20 20 7d 0a 0a 20 20 20 20 74 76 66 73 45 78     }..    tvfsEx
3180: 65 63 54 63 6c 28 70 2c 20 22 78 53 79 6e 63 22  ecTcl(p, "xSync"
3190: 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e  , .        Tcl_N
31a0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
31b0: 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c  >zFilename, -1),
31c0: 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 0a 20 20   pFd->pShmId,.  
31d0: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
31e0: 69 6e 67 4f 62 6a 28 7a 46 6c 61 67 73 2c 20 2d  ingObj(zFlags, -
31f0: 31 29 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76  1).    );.    tv
3200: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
3210: 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28  &rc);.  }..  if(
3220: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26   rc==SQLITE_OK &
3230: 26 20 74 76 66 73 49 6e 6a 65 63 74 46 75 6c 6c  & tvfsInjectFull
3240: 65 72 72 28 70 29 20 29 20 72 63 20 3d 20 53 51  err(p) ) rc = SQ
3250: 4c 49 54 45 5f 46 55 4c 4c 3b 0a 0a 20 20 69 66  LITE_FULL;..  if
3260: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
3270: 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69  ){.    rc = sqli
3280: 74 65 33 4f 73 53 79 6e 63 28 70 46 64 2d 3e 70  te3OsSync(pFd->p
3290: 52 65 61 6c 2c 20 66 6c 61 67 73 29 3b 0a 20 20  Real, flags);.  
32a0: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  }..  return rc;.
32b0: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
32c0: 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 65  the current file
32d0: 2d 73 69 7a 65 20 6f 66 20 61 6e 20 74 76 66 73  -size of an tvfs
32e0: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
32f0: 20 69 6e 74 20 74 76 66 73 46 69 6c 65 53 69 7a   int tvfsFileSiz
3300: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  e(sqlite3_file *
3310: 70 46 69 6c 65 2c 20 73 71 6c 69 74 65 5f 69 6e  pFile, sqlite_in
3320: 74 36 34 20 2a 70 53 69 7a 65 29 7b 0a 20 20 54  t64 *pSize){.  T
3330: 65 73 74 76 66 73 46 64 20 2a 70 20 3d 20 74 76  estvfsFd *p = tv
3340: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
3350: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
3360: 4f 73 46 69 6c 65 53 69 7a 65 28 70 2d 3e 70 52  OsFileSize(p->pR
3370: 65 61 6c 2c 20 70 53 69 7a 65 29 3b 0a 7d 0a 0a  eal, pSize);.}..
3380: 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 61 6e 20 74 76  /*.** Lock an tv
3390: 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74  fs-file..*/.stat
33a0: 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28  ic int tvfsLock(
33b0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
33c0: 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b  ile, int eLock){
33d0: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 20  .  TestvfsFd *p 
33e0: 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c  = tvfsGetFd(pFil
33f0: 65 29 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c  e);.  return sql
3400: 69 74 65 33 4f 73 4c 6f 63 6b 28 70 2d 3e 70 52  ite3OsLock(p->pR
3410: 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a  eal, eLock);.}..
3420: 2f 2a 0a 2a 2a 20 55 6e 6c 6f 63 6b 20 61 6e 20  /*.** Unlock an 
3430: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
3440: 61 74 69 63 20 69 6e 74 20 74 76 66 73 55 6e 6c  atic int tvfsUnl
3450: 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ock(sqlite3_file
3460: 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 65 4c 6f   *pFile, int eLo
3470: 63 6b 29 7b 0a 20 20 54 65 73 74 76 66 73 46 64  ck){.  TestvfsFd
3480: 20 2a 70 20 3d 20 74 76 66 73 47 65 74 46 64 28   *p = tvfsGetFd(
3490: 70 46 69 6c 65 29 3b 0a 20 20 72 65 74 75 72 6e  pFile);.  return
34a0: 20 73 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 6b   sqlite3OsUnlock
34b0: 28 70 2d 3e 70 52 65 61 6c 2c 20 65 4c 6f 63 6b  (p->pReal, eLock
34c0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63  );.}../*.** Chec
34d0: 6b 20 69 66 20 61 6e 6f 74 68 65 72 20 66 69 6c  k if another fil
34e0: 65 2d 68 61 6e 64 6c 65 20 68 6f 6c 64 73 20 61  e-handle holds a
34f0: 20 52 45 53 45 52 56 45 44 20 6c 6f 63 6b 20 6f   RESERVED lock o
3500: 6e 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a  n an tvfs-file..
3510: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
3520: 66 73 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c  fsCheckReservedL
3530: 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ock(sqlite3_file
3540: 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 2a 70 52   *pFile, int *pR
3550: 65 73 4f 75 74 29 7b 0a 20 20 54 65 73 74 76 66  esOut){.  Testvf
3560: 73 46 64 20 2a 70 20 3d 20 74 76 66 73 47 65 74  sFd *p = tvfsGet
3570: 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 72 65 74  Fd(pFile);.  ret
3580: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 43 68 65  urn sqlite3OsChe
3590: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 70  ckReservedLock(p
35a0: 2d 3e 70 52 65 61 6c 2c 20 70 52 65 73 4f 75 74  ->pReal, pResOut
35b0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 65  );.}../*.** File
35c0: 20 63 6f 6e 74 72 6f 6c 20 6d 65 74 68 6f 64 2e   control method.
35d0: 20 46 6f 72 20 63 75 73 74 6f 6d 20 6f 70 65 72   For custom oper
35e0: 61 74 69 6f 6e 73 20 6f 6e 20 61 6e 20 74 76 66  ations on an tvf
35f0: 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  s-file..*/.stati
3600: 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f  c int tvfsFileCo
3610: 6e 74 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69  ntrol(sqlite3_fi
3620: 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 6f  le *pFile, int o
3630: 70 2c 20 76 6f 69 64 20 2a 70 41 72 67 29 7b 0a  p, void *pArg){.
3640: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 20 3d    TestvfsFd *p =
3650: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
3660: 29 3b 0a 20 20 69 66 28 20 6f 70 3d 3d 53 51 4c  );.  if( op==SQL
3670: 49 54 45 5f 46 43 4e 54 4c 5f 50 52 41 47 4d 41  ITE_FCNTL_PRAGMA
3680: 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a 2a 61   ){.    char **a
3690: 72 67 76 20 3d 20 28 63 68 61 72 2a 2a 29 70 41  rgv = (char**)pA
36a0: 72 67 3b 0a 20 20 20 20 69 66 28 20 73 71 6c 69  rg;.    if( sqli
36b0: 74 65 33 5f 73 74 72 69 63 6d 70 28 61 72 67 76  te3_stricmp(argv
36c0: 5b 31 5d 2c 22 65 72 72 6f 72 22 29 3d 3d 30 20  [1],"error")==0 
36d0: 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 72 63 20  ){.      int rc 
36e0: 3d 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a  = SQLITE_ERROR;.
36f0: 20 20 20 20 20 20 69 66 28 20 61 72 67 76 5b 32        if( argv[2
3700: 5d 20 29 7b 0a 20 20 20 20 20 20 20 20 63 6f 6e  ] ){.        con
3710: 73 74 20 63 68 61 72 20 2a 7a 20 3d 20 61 72 67  st char *z = arg
3720: 76 5b 32 5d 3b 0a 20 20 20 20 20 20 20 20 69 6e  v[2];.        in
3730: 74 20 78 20 3d 20 61 74 6f 69 28 7a 29 3b 0a 20  t x = atoi(z);. 
3740: 20 20 20 20 20 20 20 69 66 28 20 78 20 29 7b 0a         if( x ){.
3750: 20 20 20 20 20 20 20 20 20 20 72 63 20 3d 20 78            rc = x
3760: 3b 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  ;.          whil
3770: 65 28 20 73 71 6c 69 74 65 33 49 73 64 69 67 69  e( sqlite3Isdigi
3780: 74 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b 20  t(z[0]) ){ z++; 
3790: 7d 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c  }.          whil
37a0: 65 28 20 73 71 6c 69 74 65 33 49 73 73 70 61 63  e( sqlite3Isspac
37b0: 65 28 7a 5b 30 5d 29 20 29 7b 20 7a 2b 2b 3b 20  e(z[0]) ){ z++; 
37c0: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
37d0: 20 20 20 20 69 66 28 20 7a 5b 30 5d 20 29 20 61      if( z[0] ) a
37e0: 72 67 76 5b 30 5d 20 3d 20 73 71 6c 69 74 65 33  rgv[0] = sqlite3
37f0: 5f 6d 70 72 69 6e 74 66 28 22 25 73 22 2c 20 7a  _mprintf("%s", z
3800: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
3810: 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20   return rc;.    
3820: 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73  }.  }.  return s
3830: 71 6c 69 74 65 33 4f 73 46 69 6c 65 43 6f 6e 74  qlite3OsFileCont
3840: 72 6f 6c 28 70 2d 3e 70 52 65 61 6c 2c 20 6f 70  rol(p->pReal, op
3850: 2c 20 70 41 72 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  , pArg);.}../*.*
3860: 2a 20 52 65 74 75 72 6e 20 74 68 65 20 73 65 63  * Return the sec
3870: 74 6f 72 2d 73 69 7a 65 20 69 6e 20 62 79 74 65  tor-size in byte
3880: 73 20 66 6f 72 20 61 6e 20 74 76 66 73 2d 66 69  s for an tvfs-fi
3890: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  le..*/.static in
38a0: 74 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65  t tvfsSectorSize
38b0: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
38c0: 46 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66 73  File){.  Testvfs
38d0: 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47 65  Fd *pFd = tvfsGe
38e0: 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54 65  tFd(pFile);.  Te
38f0: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
3900: 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d  vfs *)pFd->pVfs-
3910: 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69 66 28  >pAppData;.  if(
3920: 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65 3e   p->iSectorsize>
3930: 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  =0 ){.    return
3940: 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65 3b   p->iSectorsize;
3950: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 71  .  }.  return sq
3960: 6c 69 74 65 33 4f 73 53 65 63 74 6f 72 53 69 7a  lite3OsSectorSiz
3970: 65 28 70 46 64 2d 3e 70 52 65 61 6c 29 3b 0a 7d  e(pFd->pReal);.}
3980: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  ../*.** Return t
3990: 68 65 20 64 65 76 69 63 65 20 63 68 61 72 61 63  he device charac
39a0: 74 65 72 69 73 74 69 63 20 66 6c 61 67 73 20 73  teristic flags s
39b0: 75 70 70 6f 72 74 65 64 20 62 79 20 61 6e 20 74  upported by an t
39c0: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
39d0: 74 69 63 20 69 6e 74 20 74 76 66 73 44 65 76 69  tic int tvfsDevi
39e0: 63 65 43 68 61 72 61 63 74 65 72 69 73 74 69 63  ceCharacteristic
39f0: 73 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  s(sqlite3_file *
3a00: 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66  pFile){.  Testvf
3a10: 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47  sFd *pFd = tvfsG
3a20: 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54  etFd(pFile);.  T
3a30: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
3a40: 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66 73  tvfs *)pFd->pVfs
3a50: 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69 66  ->pAppData;.  if
3a60: 28 20 70 2d 3e 69 44 65 76 63 68 61 72 3e 3d 30  ( p->iDevchar>=0
3a70: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 70   ){.    return p
3a80: 2d 3e 69 44 65 76 63 68 61 72 3b 0a 20 20 7d 0a  ->iDevchar;.  }.
3a90: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
3aa0: 4f 73 44 65 76 69 63 65 43 68 61 72 61 63 74 65  OsDeviceCharacte
3ab0: 72 69 73 74 69 63 73 28 70 46 64 2d 3e 70 52 65  ristics(pFd->pRe
3ac0: 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f 70  al);.}../*.** Op
3ad0: 65 6e 20 61 6e 20 74 76 66 73 20 66 69 6c 65 20  en an tvfs file 
3ae0: 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69  handle..*/.stati
3af0: 63 20 69 6e 74 20 74 76 66 73 4f 70 65 6e 28 0a  c int tvfsOpen(.
3b00: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
3b10: 56 66 73 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61  Vfs,.  const cha
3b20: 72 20 2a 7a 4e 61 6d 65 2c 0a 20 20 73 71 6c 69  r *zName,.  sqli
3b30: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
3b40: 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c 0a 20 20  .  int flags,.  
3b50: 69 6e 74 20 2a 70 4f 75 74 46 6c 61 67 73 0a 29  int *pOutFlags.)
3b60: 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54 65  {.  int rc;.  Te
3b70: 73 74 76 66 73 46 69 6c 65 20 2a 70 54 65 73 74  stvfsFile *pTest
3b80: 66 69 6c 65 20 3d 20 28 54 65 73 74 76 66 73 46  file = (TestvfsF
3b90: 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 54  ile *)pFile;.  T
3ba0: 65 73 74 76 66 73 46 64 20 2a 70 46 64 3b 0a 20  estvfsFd *pFd;. 
3bb0: 20 54 63 6c 5f 4f 62 6a 20 2a 70 49 64 20 3d 20   Tcl_Obj *pId = 
3bc0: 30 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  0;.  Testvfs *p 
3bd0: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 56 66  = (Testvfs *)pVf
3be0: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20 20  s->pAppData;..  
3bf0: 70 46 64 20 3d 20 28 54 65 73 74 76 66 73 46 64  pFd = (TestvfsFd
3c00: 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f   *)ckalloc(sizeo
3c10: 66 28 54 65 73 74 76 66 73 46 64 29 20 2b 20 50  f(TestvfsFd) + P
3c20: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2d 3e  ARENTVFS(pVfs)->
3c30: 73 7a 4f 73 46 69 6c 65 29 3b 0a 20 20 6d 65 6d  szOsFile);.  mem
3c40: 73 65 74 28 70 46 64 2c 20 30 2c 20 73 69 7a 65  set(pFd, 0, size
3c50: 6f 66 28 54 65 73 74 76 66 73 46 64 29 20 2b 20  of(TestvfsFd) + 
3c60: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2d  PARENTVFS(pVfs)-
3c70: 3e 73 7a 4f 73 46 69 6c 65 29 3b 0a 20 20 70 46  >szOsFile);.  pF
3c80: 64 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a 20 20 70  d->pShm = 0;.  p
3c90: 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20 30 3b 0a  Fd->pShmId = 0;.
3ca0: 20 20 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65    pFd->zFilename
3cb0: 20 3d 20 7a 4e 61 6d 65 3b 0a 20 20 70 46 64 2d   = zName;.  pFd-
3cc0: 3e 70 56 66 73 20 3d 20 70 56 66 73 3b 0a 20 20  >pVfs = pVfs;.  
3cd0: 70 46 64 2d 3e 70 52 65 61 6c 20 3d 20 28 73 71  pFd->pReal = (sq
3ce0: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 29 26 70 46  lite3_file *)&pF
3cf0: 64 5b 31 5d 3b 0a 20 20 6d 65 6d 73 65 74 28 70  d[1];.  memset(p
3d00: 54 65 73 74 66 69 6c 65 2c 20 30 2c 20 73 69 7a  Testfile, 0, siz
3d10: 65 6f 66 28 54 65 73 74 76 66 73 46 69 6c 65 29  eof(TestvfsFile)
3d20: 29 3b 0a 20 20 70 54 65 73 74 66 69 6c 65 2d 3e  );.  pTestfile->
3d30: 70 46 64 20 3d 20 70 46 64 3b 0a 0a 20 20 2f 2a  pFd = pFd;..  /*
3d40: 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 54 63   Evaluate the Tc
3d50: 6c 20 73 63 72 69 70 74 3a 20 0a 20 20 2a 2a 0a  l script: .  **.
3d60: 20 20 2a 2a 20 20 20 53 43 52 49 50 54 20 78 4f    **   SCRIPT xO
3d70: 70 65 6e 20 46 49 4c 45 4e 41 4d 45 20 4b 45 59  pen FILENAME KEY
3d80: 2d 56 41 4c 55 45 2d 41 52 47 53 0a 20 20 2a 2a  -VALUE-ARGS.  **
3d90: 0a 20 20 2a 2a 20 49 66 20 74 68 65 20 73 63 72  .  ** If the scr
3da0: 69 70 74 20 72 65 74 75 72 6e 73 20 61 6e 20 53  ipt returns an S
3db0: 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65  QLite error code
3dc0: 20 6f 74 68 65 72 20 74 68 61 6e 20 53 51 4c 49   other than SQLI
3dd0: 54 45 5f 4f 4b 2c 20 61 6e 0a 20 20 2a 2a 20 65  TE_OK, an.  ** e
3de0: 72 72 6f 72 20 69 73 20 72 65 74 75 72 6e 65 64  rror is returned
3df0: 20 74 6f 20 74 68 65 20 63 61 6c 6c 65 72 2e 20   to the caller. 
3e00: 49 66 20 69 74 20 72 65 74 75 72 6e 73 20 53 51  If it returns SQ
3e10: 4c 49 54 45 5f 4f 4b 2c 20 74 68 65 20 6e 65 77  LITE_OK, the new
3e20: 0a 20 20 2a 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e  .  ** connection
3e30: 20 69 73 20 6e 61 6d 65 64 20 22 61 6e 6f 6e 22   is named "anon"
3e40: 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65  . Otherwise, the
3e50: 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20   value returned 
3e60: 62 79 20 74 68 65 0a 20 20 2a 2a 20 73 63 72 69  by the.  ** scri
3e70: 70 74 20 69 73 20 75 73 65 64 20 61 73 20 74 68  pt is used as th
3e80: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 61 6d  e connection nam
3e90: 65 2e 0a 20 20 2a 2f 0a 20 20 54 63 6c 5f 52 65  e..  */.  Tcl_Re
3ea0: 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  setResult(p->int
3eb0: 65 72 70 29 3b 0a 20 20 69 66 28 20 70 2d 3e 70  erp);.  if( p->p
3ec0: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
3ed0: 6b 26 54 45 53 54 56 46 53 5f 4f 50 45 4e 5f 4d  k&TESTVFS_OPEN_M
3ee0: 41 53 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f 4f  ASK ){.    Tcl_O
3ef0: 62 6a 20 2a 70 41 72 67 20 3d 20 54 63 6c 5f 4e  bj *pArg = Tcl_N
3f00: 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 54 63 6c  ewObj();.    Tcl
3f10: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 41  _IncrRefCount(pA
3f20: 72 67 29 3b 0a 20 20 20 20 69 66 28 20 66 6c 61  rg);.    if( fla
3f30: 67 73 26 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 4d  gs&SQLITE_OPEN_M
3f40: 41 49 4e 5f 44 42 20 29 7b 0a 20 20 20 20 20 20  AIN_DB ){.      
3f50: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d 20  const char *z = 
3f60: 26 7a 4e 61 6d 65 5b 73 74 72 6c 65 6e 28 7a 4e  &zName[strlen(zN
3f70: 61 6d 65 29 2b 31 5d 3b 0a 20 20 20 20 20 20 77  ame)+1];.      w
3f80: 68 69 6c 65 28 20 2a 7a 20 29 7b 0a 20 20 20 20  hile( *z ){.    
3f90: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
3fa0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20  ppendElement(0, 
3fb0: 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77 53 74 72  pArg, Tcl_NewStr
3fc0: 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29 29 3b 0a  ingObj(z, -1));.
3fd0: 20 20 20 20 20 20 20 20 7a 20 2b 3d 20 73 74 72          z += str
3fe0: 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20 20 20 20  len(z) + 1;.    
3ff0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
4000: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c 20  ppendElement(0, 
4010: 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77 53 74 72  pArg, Tcl_NewStr
4020: 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29 29 3b 0a  ingObj(z, -1));.
4030: 20 20 20 20 20 20 20 20 7a 20 2b 3d 20 73 74 72          z += str
4040: 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20 20 20 20  len(z) + 1;.    
4050: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 74 76    }.    }.    tv
4060: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 4f  fsExecTcl(p, "xO
4070: 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77 53 74 72  pen", Tcl_NewStr
4080: 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c  ingObj(pFd->zFil
4090: 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 41 72 67  ename, -1), pArg
40a0: 2c 20 30 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65  , 0);.    Tcl_De
40b0: 63 72 52 65 66 43 6f 75 6e 74 28 70 41 72 67 29  crRefCount(pArg)
40c0: 3b 0a 20 20 20 20 69 66 28 20 74 76 66 73 52 65  ;.    if( tvfsRe
40d0: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
40e0: 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 72 63   ){.      if( rc
40f0: 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20 72 65  !=SQLITE_OK ) re
4100: 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 65 6c  turn rc;.    }el
4110: 73 65 7b 0a 20 20 20 20 20 20 70 49 64 20 3d 20  se{.      pId = 
4120: 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_GetObjResult
4130: 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20  (p->interp);.   
4140: 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20 28 70   }.  }..  if( (p
4150: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 4f  ->mask&TESTVFS_O
4160: 50 45 4e 5f 4d 41 53 4b 29 20 26 26 20 20 74 76  PEN_MASK) &&  tv
4170: 66 73 49 6e 6a 65 63 74 49 6f 65 72 72 28 70 29  fsInjectIoerr(p)
4180: 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45   ) return SQLITE
4190: 5f 49 4f 45 52 52 3b 0a 20 20 69 66 28 20 74 76  _IOERR;.  if( tv
41a0: 66 73 49 6e 6a 65 63 74 43 61 6e 74 6f 70 65 6e  fsInjectCantopen
41b0: 65 72 72 28 70 29 20 29 20 72 65 74 75 72 6e 20  err(p) ) return 
41c0: 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b  SQLITE_CANTOPEN;
41d0: 0a 20 20 69 66 28 20 74 76 66 73 49 6e 6a 65 63  .  if( tvfsInjec
41e0: 74 46 75 6c 6c 65 72 72 28 70 29 20 29 20 72 65  tFullerr(p) ) re
41f0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 46 55 4c 4c  turn SQLITE_FULL
4200: 3b 0a 0a 20 20 69 66 28 20 21 70 49 64 20 29 7b  ;..  if( !pId ){
4210: 0a 20 20 20 20 70 49 64 20 3d 20 54 63 6c 5f 4e  .    pId = Tcl_N
4220: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 61 6e 6f  ewStringObj("ano
4230: 6e 22 2c 20 2d 31 29 3b 0a 20 20 7d 0a 20 20 54  n", -1);.  }.  T
4240: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
4250: 70 49 64 29 3b 0a 20 20 70 46 64 2d 3e 70 53 68  pId);.  pFd->pSh
4260: 6d 49 64 20 3d 20 70 49 64 3b 0a 20 20 54 63 6c  mId = pId;.  Tcl
4270: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 70 2d 3e  _ResetResult(p->
4280: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 72 63 20 3d  interp);..  rc =
4290: 20 73 71 6c 69 74 65 33 4f 73 4f 70 65 6e 28 50   sqlite3OsOpen(P
42a0: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
42b0: 7a 4e 61 6d 65 2c 20 70 46 64 2d 3e 70 52 65 61  zName, pFd->pRea
42c0: 6c 2c 20 66 6c 61 67 73 2c 20 70 4f 75 74 46 6c  l, flags, pOutFl
42d0: 61 67 73 29 3b 0a 20 20 69 66 28 20 70 46 64 2d  ags);.  if( pFd-
42e0: 3e 70 52 65 61 6c 2d 3e 70 4d 65 74 68 6f 64 73  >pReal->pMethods
42f0: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   ){.    sqlite3_
4300: 69 6f 5f 6d 65 74 68 6f 64 73 20 2a 70 4d 65 74  io_methods *pMet
4310: 68 6f 64 73 3b 0a 20 20 20 20 69 6e 74 20 6e 42  hods;.    int nB
4320: 79 74 65 3b 0a 0a 20 20 20 20 69 66 28 20 70 56  yte;..    if( pV
4330: 66 73 2d 3e 69 56 65 72 73 69 6f 6e 3e 31 20 29  fs->iVersion>1 )
4340: 7b 0a 20 20 20 20 20 20 6e 42 79 74 65 20 3d 20  {.      nByte = 
4350: 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 69  sizeof(sqlite3_i
4360: 6f 5f 6d 65 74 68 6f 64 73 29 3b 0a 20 20 20 20  o_methods);.    
4370: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 6e 42 79  }else{.      nBy
4380: 74 65 20 3d 20 6f 66 66 73 65 74 6f 66 28 73 71  te = offsetof(sq
4390: 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73  lite3_io_methods
43a0: 2c 20 78 53 68 6d 4d 61 70 29 3b 0a 20 20 20 20  , xShmMap);.    
43b0: 7d 0a 0a 20 20 20 20 70 4d 65 74 68 6f 64 73 20  }..    pMethods 
43c0: 3d 20 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65  = (sqlite3_io_me
43d0: 74 68 6f 64 73 20 2a 29 63 6b 61 6c 6c 6f 63 28  thods *)ckalloc(
43e0: 6e 42 79 74 65 29 3b 0a 20 20 20 20 6d 65 6d 63  nByte);.    memc
43f0: 70 79 28 70 4d 65 74 68 6f 64 73 2c 20 26 74 76  py(pMethods, &tv
4400: 66 73 5f 69 6f 5f 6d 65 74 68 6f 64 73 2c 20 6e  fs_io_methods, n
4410: 42 79 74 65 29 3b 0a 20 20 20 20 70 4d 65 74 68  Byte);.    pMeth
4420: 6f 64 73 2d 3e 69 56 65 72 73 69 6f 6e 20 3d 20  ods->iVersion = 
4430: 70 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e 3b 0a  pVfs->iVersion;.
4440: 20 20 20 20 69 66 28 20 70 56 66 73 2d 3e 69 56      if( pVfs->iV
4450: 65 72 73 69 6f 6e 3e 31 20 26 26 20 28 28 54 65  ersion>1 && ((Te
4460: 73 74 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41  stvfs *)pVfs->pA
4470: 70 70 44 61 74 61 29 2d 3e 69 73 4e 6f 73 68 6d  ppData)->isNoshm
4480: 20 29 7b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f   ){.      pMetho
4490: 64 73 2d 3e 78 53 68 6d 55 6e 6d 61 70 20 3d 20  ds->xShmUnmap = 
44a0: 30 3b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64  0;.      pMethod
44b0: 73 2d 3e 78 53 68 6d 4c 6f 63 6b 20 3d 20 30 3b  s->xShmLock = 0;
44c0: 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64 73 2d  .      pMethods-
44d0: 3e 78 53 68 6d 42 61 72 72 69 65 72 20 3d 20 30  >xShmBarrier = 0
44e0: 3b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64 73  ;.      pMethods
44f0: 2d 3e 78 53 68 6d 4d 61 70 20 3d 20 30 3b 0a 20  ->xShmMap = 0;. 
4500: 20 20 20 7d 0a 20 20 20 20 70 46 69 6c 65 2d 3e     }.    pFile->
4510: 70 4d 65 74 68 6f 64 73 20 3d 20 70 4d 65 74 68  pMethods = pMeth
4520: 6f 64 73 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75  ods;.  }..  retu
4530: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn rc;.}../*.** 
4540: 44 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 20  Delete the file 
4550: 6c 6f 63 61 74 65 64 20 61 74 20 7a 50 61 74 68  located at zPath
4560: 2e 20 49 66 20 74 68 65 20 64 69 72 53 79 6e 63  . If the dirSync
4570: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 72 75   argument is tru
4580: 65 2c 0a 2a 2a 20 65 6e 73 75 72 65 20 74 68 65  e,.** ensure the
4590: 20 66 69 6c 65 2d 73 79 73 74 65 6d 20 6d 6f 64   file-system mod
45a0: 69 66 69 63 61 74 69 6f 6e 73 20 61 72 65 20 73  ifications are s
45b0: 79 6e 63 65 64 20 74 6f 20 64 69 73 6b 20 62 65  ynced to disk be
45c0: 66 6f 72 65 0a 2a 2a 20 72 65 74 75 72 6e 69 6e  fore.** returnin
45d0: 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  g..*/.static int
45e0: 20 74 76 66 73 44 65 6c 65 74 65 28 73 71 6c 69   tvfsDelete(sqli
45f0: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 63  te3_vfs *pVfs, c
4600: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68  onst char *zPath
4610: 2c 20 69 6e 74 20 64 69 72 53 79 6e 63 29 7b 0a  , int dirSync){.
4620: 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54    int rc = SQLIT
4630: 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 20  E_OK;.  Testvfs 
4640: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
4650: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a  pVfs->pAppData;.
4660: 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70  .  if( p->pScrip
4670: 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53  t && p->mask&TES
4680: 54 56 46 53 5f 44 45 4c 45 54 45 5f 4d 41 53 4b  TVFS_DELETE_MASK
4690: 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63   ){.    tvfsExec
46a0: 54 63 6c 28 70 2c 20 22 78 44 65 6c 65 74 65 22  Tcl(p, "xDelete"
46b0: 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e  , .        Tcl_N
46c0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 50 61 74  ewStringObj(zPat
46d0: 68 2c 20 2d 31 29 2c 20 54 63 6c 5f 4e 65 77 49  h, -1), Tcl_NewI
46e0: 6e 74 4f 62 6a 28 64 69 72 53 79 6e 63 29 2c 20  ntObj(dirSync), 
46f0: 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76 66  0.    );.    tvf
4700: 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26  sResultCode(p, &
4710: 72 63 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72  rc);.  }.  if( r
4720: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
4730: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
4740: 4f 73 44 65 6c 65 74 65 28 50 41 52 45 4e 54 56  OsDelete(PARENTV
4750: 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c  FS(pVfs), zPath,
4760: 20 64 69 72 53 79 6e 63 29 3b 0a 20 20 7d 0a 20   dirSync);.  }. 
4770: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f   return rc;.}../
4780: 2a 0a 2a 2a 20 54 65 73 74 20 66 6f 72 20 61 63  *.** Test for ac
4790: 63 65 73 73 20 70 65 72 6d 69 73 73 69 6f 6e 73  cess permissions
47a0: 2e 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66  . Return true if
47b0: 20 74 68 65 20 72 65 71 75 65 73 74 65 64 20 70   the requested p
47c0: 65 72 6d 69 73 73 69 6f 6e 0a 2a 2a 20 69 73 20  ermission.** is 
47d0: 61 76 61 69 6c 61 62 6c 65 2c 20 6f 72 20 66 61  available, or fa
47e0: 6c 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 2a  lse otherwise..*
47f0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
4800: 73 41 63 63 65 73 73 28 0a 20 20 73 71 6c 69 74  sAccess(.  sqlit
4810: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 0a 20  e3_vfs *pVfs, . 
4820: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61   const char *zPa
4830: 74 68 2c 20 0a 20 20 69 6e 74 20 66 6c 61 67 73  th, .  int flags
4840: 2c 20 0a 20 20 69 6e 74 20 2a 70 52 65 73 4f 75  , .  int *pResOu
4850: 74 0a 29 7b 0a 20 20 54 65 73 74 76 66 73 20 2a  t.){.  Testvfs *
4860: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
4870: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20  Vfs->pAppData;. 
4880: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
4890: 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  && p->mask&TESTV
48a0: 46 53 5f 41 43 43 45 53 53 5f 4d 41 53 4b 20 29  FS_ACCESS_MASK )
48b0: 7b 0a 20 20 20 20 69 6e 74 20 72 63 3b 0a 20 20  {.    int rc;.  
48c0: 20 20 63 68 61 72 20 2a 7a 41 72 67 20 3d 20 30    char *zArg = 0
48d0: 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 67 73 3d  ;.    if( flags=
48e0: 3d 53 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 45  =SQLITE_ACCESS_E
48f0: 58 49 53 54 53 20 29 20 7a 41 72 67 20 3d 20 22  XISTS ) zArg = "
4900: 53 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 45 58  SQLITE_ACCESS_EX
4910: 49 53 54 53 22 3b 0a 20 20 20 20 69 66 28 20 66  ISTS";.    if( f
4920: 6c 61 67 73 3d 3d 53 51 4c 49 54 45 5f 41 43 43  lags==SQLITE_ACC
4930: 45 53 53 5f 52 45 41 44 57 52 49 54 45 20 29 20  ESS_READWRITE ) 
4940: 7a 41 72 67 20 3d 20 22 53 51 4c 49 54 45 5f 41  zArg = "SQLITE_A
4950: 43 43 45 53 53 5f 52 45 41 44 57 52 49 54 45 22  CCESS_READWRITE"
4960: 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 67 73 3d  ;.    if( flags=
4970: 3d 53 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 52  =SQLITE_ACCESS_R
4980: 45 41 44 20 29 20 7a 41 72 67 20 3d 20 22 53 51  EAD ) zArg = "SQ
4990: 4c 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41 44  LITE_ACCESS_READ
49a0: 22 3b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54  ";.    tvfsExecT
49b0: 63 6c 28 70 2c 20 22 78 41 63 63 65 73 73 22 2c  cl(p, "xAccess",
49c0: 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65   .        Tcl_Ne
49d0: 77 53 74 72 69 6e 67 4f 62 6a 28 7a 50 61 74 68  wStringObj(zPath
49e0: 2c 20 2d 31 29 2c 20 54 63 6c 5f 4e 65 77 53 74  , -1), Tcl_NewSt
49f0: 72 69 6e 67 4f 62 6a 28 7a 41 72 67 2c 20 2d 31  ringObj(zArg, -1
4a00: 29 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20  ), 0.    );.    
4a10: 69 66 28 20 74 76 66 73 52 65 73 75 6c 74 43 6f  if( tvfsResultCo
4a20: 64 65 28 70 2c 20 26 72 63 29 20 29 7b 0a 20 20  de(p, &rc) ){.  
4a30: 20 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49      if( rc!=SQLI
4a40: 54 45 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20 72  TE_OK ) return r
4a50: 63 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20  c;.    }else{.  
4a60: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a      Tcl_Interp *
4a70: 69 6e 74 65 72 70 20 3d 20 70 2d 3e 69 6e 74 65  interp = p->inte
4a80: 72 70 3b 0a 20 20 20 20 20 20 69 66 28 20 54 43  rp;.      if( TC
4a90: 4c 5f 4f 4b 3d 3d 54 63 6c 5f 47 65 74 42 6f 6f  L_OK==Tcl_GetBoo
4aa0: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 30 2c 20 54  leanFromObj(0, T
4ab0: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_GetObjResult(
4ac0: 69 6e 74 65 72 70 29 2c 20 70 52 65 73 4f 75 74  interp), pResOut
4ad0: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74  ) ){.        ret
4ae0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  urn SQLITE_OK;. 
4af0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
4b00: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
4b10: 33 4f 73 41 63 63 65 73 73 28 50 41 52 45 4e 54  3OsAccess(PARENT
4b20: 56 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68  VFS(pVfs), zPath
4b30: 2c 20 66 6c 61 67 73 2c 20 70 52 65 73 4f 75 74  , flags, pResOut
4b40: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75  );.}../*.** Popu
4b50: 6c 61 74 65 20 62 75 66 66 65 72 20 7a 4f 75 74  late buffer zOut
4b60: 20 77 69 74 68 20 74 68 65 20 66 75 6c 6c 20 63   with the full c
4b70: 61 6e 6f 6e 69 63 61 6c 20 70 61 74 68 6e 61 6d  anonical pathnam
4b80: 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a  e corresponding.
4b90: 2a 2a 20 74 6f 20 74 68 65 20 70 61 74 68 6e 61  ** to the pathna
4ba0: 6d 65 20 69 6e 20 7a 50 61 74 68 2e 20 7a 4f 75  me in zPath. zOu
4bb0: 74 20 69 73 20 67 75 61 72 61 6e 74 65 65 64 20  t is guaranteed 
4bc0: 74 6f 20 70 6f 69 6e 74 20 74 6f 20 61 20 62 75  to point to a bu
4bd0: 66 66 65 72 0a 2a 2a 20 6f 66 20 61 74 20 6c 65  ffer.** of at le
4be0: 61 73 74 20 28 44 45 56 53 59 4d 5f 4d 41 58 5f  ast (DEVSYM_MAX_
4bf0: 50 41 54 48 4e 41 4d 45 2b 31 29 20 62 79 74 65  PATHNAME+1) byte
4c00: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  s..*/.static int
4c10: 20 74 76 66 73 46 75 6c 6c 50 61 74 68 6e 61 6d   tvfsFullPathnam
4c20: 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  e(.  sqlite3_vfs
4c30: 20 2a 70 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74   *pVfs, .  const
4c40: 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20   char *zPath, . 
4c50: 20 69 6e 74 20 6e 4f 75 74 2c 20 0a 20 20 63 68   int nOut, .  ch
4c60: 61 72 20 2a 7a 4f 75 74 0a 29 7b 0a 20 20 54 65  ar *zOut.){.  Te
4c70: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
4c80: 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70  vfs *)pVfs->pApp
4c90: 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70  Data;.  if( p->p
4ca0: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
4cb0: 6b 26 54 45 53 54 56 46 53 5f 46 55 4c 4c 50 41  k&TESTVFS_FULLPA
4cc0: 54 48 4e 41 4d 45 5f 4d 41 53 4b 20 29 7b 0a 20  THNAME_MASK ){. 
4cd0: 20 20 20 69 6e 74 20 72 63 3b 0a 20 20 20 20 74     int rc;.    t
4ce0: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
4cf0: 46 75 6c 6c 50 61 74 68 6e 61 6d 65 22 2c 20 54  FullPathname", T
4d00: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
4d10: 7a 50 61 74 68 2c 20 2d 31 29 2c 20 30 2c 20 30  zPath, -1), 0, 0
4d20: 29 3b 0a 20 20 20 20 69 66 28 20 74 76 66 73 52  );.    if( tvfsR
4d30: 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63  esultCode(p, &rc
4d40: 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20 72  ) ){.      if( r
4d50: 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20 72  c!=SQLITE_OK ) r
4d60: 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a  eturn rc;.    }.
4d70: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c    }.  return sql
4d80: 69 74 65 33 4f 73 46 75 6c 6c 50 61 74 68 6e 61  ite3OsFullPathna
4d90: 6d 65 28 50 41 52 45 4e 54 56 46 53 28 70 56 66  me(PARENTVFS(pVf
4da0: 73 29 2c 20 7a 50 61 74 68 2c 20 6e 4f 75 74 2c  s), zPath, nOut,
4db0: 20 7a 4f 75 74 29 3b 0a 7d 0a 0a 23 69 66 6e 64   zOut);.}..#ifnd
4dc0: 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c  ef SQLITE_OMIT_L
4dd0: 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 2f 2a  OAD_EXTENSION./*
4de0: 0a 2a 2a 20 4f 70 65 6e 20 74 68 65 20 64 79 6e  .** Open the dyn
4df0: 61 6d 69 63 20 6c 69 62 72 61 72 79 20 6c 6f 63  amic library loc
4e00: 61 74 65 64 20 61 74 20 7a 50 61 74 68 20 61 6e  ated at zPath an
4e10: 64 20 72 65 74 75 72 6e 20 61 20 68 61 6e 64 6c  d return a handl
4e20: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  e..*/.static voi
4e30: 64 20 2a 74 76 66 73 44 6c 4f 70 65 6e 28 73 71  d *tvfsDlOpen(sq
4e40: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
4e50: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61   const char *zPa
4e60: 74 68 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71  th){.  return sq
4e70: 6c 69 74 65 33 4f 73 44 6c 4f 70 65 6e 28 50 41  lite3OsDlOpen(PA
4e80: 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 7a  RENTVFS(pVfs), z
4e90: 50 61 74 68 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  Path);.}../*.** 
4ea0: 50 6f 70 75 6c 61 74 65 20 74 68 65 20 62 75 66  Populate the buf
4eb0: 66 65 72 20 7a 45 72 72 4d 73 67 20 28 73 69 7a  fer zErrMsg (siz
4ec0: 65 20 6e 42 79 74 65 20 62 79 74 65 73 29 20 77  e nByte bytes) w
4ed0: 69 74 68 20 61 20 68 75 6d 61 6e 20 72 65 61 64  ith a human read
4ee0: 61 62 6c 65 0a 2a 2a 20 75 74 66 2d 38 20 73 74  able.** utf-8 st
4ef0: 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20  ring describing 
4f00: 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20  the most recent 
4f10: 65 72 72 6f 72 20 65 6e 63 6f 75 6e 74 65 72 65  error encountere
4f20: 64 20 61 73 73 6f 63 69 61 74 65 64 20 0a 2a 2a  d associated .**
4f30: 20 77 69 74 68 20 64 79 6e 61 6d 69 63 20 6c 69   with dynamic li
4f40: 62 72 61 72 69 65 73 2e 0a 2a 2f 0a 73 74 61 74  braries..*/.stat
4f50: 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c 45 72  ic void tvfsDlEr
4f60: 72 6f 72 28 73 71 6c 69 74 65 33 5f 76 66 73 20  ror(sqlite3_vfs 
4f70: 2a 70 56 66 73 2c 20 69 6e 74 20 6e 42 79 74 65  *pVfs, int nByte
4f80: 2c 20 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 29  , char *zErrMsg)
4f90: 7b 0a 20 20 73 71 6c 69 74 65 33 4f 73 44 6c 45  {.  sqlite3OsDlE
4fa0: 72 72 6f 72 28 50 41 52 45 4e 54 56 46 53 28 70  rror(PARENTVFS(p
4fb0: 56 66 73 29 2c 20 6e 42 79 74 65 2c 20 7a 45 72  Vfs), nByte, zEr
4fc0: 72 4d 73 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rMsg);.}../*.** 
4fd0: 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72  Return a pointer
4fe0: 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 20 7a   to the symbol z
4ff0: 53 79 6d 62 6f 6c 20 69 6e 20 74 68 65 20 64 79  Symbol in the dy
5000: 6e 61 6d 69 63 20 6c 69 62 72 61 72 79 20 70 48  namic library pH
5010: 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  andle..*/.static
5020: 20 76 6f 69 64 20 28 2a 74 76 66 73 44 6c 53 79   void (*tvfsDlSy
5030: 6d 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70  m(sqlite3_vfs *p
5040: 56 66 73 2c 20 76 6f 69 64 20 2a 70 2c 20 63 6f  Vfs, void *p, co
5050: 6e 73 74 20 63 68 61 72 20 2a 7a 53 79 6d 29 29  nst char *zSym))
5060: 28 76 6f 69 64 29 7b 0a 20 20 72 65 74 75 72 6e  (void){.  return
5070: 20 73 71 6c 69 74 65 33 4f 73 44 6c 53 79 6d 28   sqlite3OsDlSym(
5080: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
5090: 20 70 2c 20 7a 53 79 6d 29 3b 0a 7d 0a 0a 2f 2a   p, zSym);.}../*
50a0: 0a 2a 2a 20 43 6c 6f 73 65 20 74 68 65 20 64 79  .** Close the dy
50b0: 6e 61 6d 69 63 20 6c 69 62 72 61 72 79 20 68 61  namic library ha
50c0: 6e 64 6c 65 20 70 48 61 6e 64 6c 65 2e 0a 2a 2f  ndle pHandle..*/
50d0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 76 66  .static void tvf
50e0: 73 44 6c 43 6c 6f 73 65 28 73 71 6c 69 74 65 33  sDlClose(sqlite3
50f0: 5f 76 66 73 20 2a 70 56 66 73 2c 20 76 6f 69 64  _vfs *pVfs, void
5100: 20 2a 70 48 61 6e 64 6c 65 29 7b 0a 20 20 73 71   *pHandle){.  sq
5110: 6c 69 74 65 33 4f 73 44 6c 43 6c 6f 73 65 28 50  lite3OsDlClose(P
5120: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
5130: 70 48 61 6e 64 6c 65 29 3b 0a 7d 0a 23 65 6e 64  pHandle);.}.#end
5140: 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49  if /* SQLITE_OMI
5150: 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e  T_LOAD_EXTENSION
5160: 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c   */../*.** Popul
5170: 61 74 65 20 74 68 65 20 62 75 66 66 65 72 20 70  ate the buffer p
5180: 6f 69 6e 74 65 64 20 74 6f 20 62 79 20 7a 42 75  ointed to by zBu
5190: 66 4f 75 74 20 77 69 74 68 20 6e 42 79 74 65 20  fOut with nByte 
51a0: 62 79 74 65 73 20 6f 66 20 0a 2a 2a 20 72 61 6e  bytes of .** ran
51b0: 64 6f 6d 20 64 61 74 61 2e 0a 2a 2f 0a 73 74 61  dom data..*/.sta
51c0: 74 69 63 20 69 6e 74 20 74 76 66 73 52 61 6e 64  tic int tvfsRand
51d0: 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65 33 5f 76  omness(sqlite3_v
51e0: 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e 42  fs *pVfs, int nB
51f0: 79 74 65 2c 20 63 68 61 72 20 2a 7a 42 75 66 4f  yte, char *zBufO
5200: 75 74 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71  ut){.  return sq
5210: 6c 69 74 65 33 4f 73 52 61 6e 64 6f 6d 6e 65 73  lite3OsRandomnes
5220: 73 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  s(PARENTVFS(pVfs
5230: 29 2c 20 6e 42 79 74 65 2c 20 7a 42 75 66 4f 75  ), nByte, zBufOu
5240: 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 6c 65  t);.}../*.** Sle
5250: 65 70 20 66 6f 72 20 6e 4d 69 63 72 6f 20 6d 69  ep for nMicro mi
5260: 63 72 6f 73 65 63 6f 6e 64 73 2e 20 52 65 74 75  croseconds. Retu
5270: 72 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66  rn the number of
5280: 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 0a 2a   microseconds .*
5290: 2a 20 61 63 74 75 61 6c 6c 79 20 73 6c 65 70 74  * actually slept
52a0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
52b0: 74 76 66 73 53 6c 65 65 70 28 73 71 6c 69 74 65  tvfsSleep(sqlite
52c0: 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 69 6e 74  3_vfs *pVfs, int
52d0: 20 6e 4d 69 63 72 6f 29 7b 0a 20 20 72 65 74 75   nMicro){.  retu
52e0: 72 6e 20 73 71 6c 69 74 65 33 4f 73 53 6c 65 65  rn sqlite3OsSlee
52f0: 70 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  p(PARENTVFS(pVfs
5300: 29 2c 20 6e 4d 69 63 72 6f 29 3b 0a 7d 0a 0a 2f  ), nMicro);.}../
5310: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
5320: 63 75 72 72 65 6e 74 20 74 69 6d 65 20 61 73 20  current time as 
5330: 61 20 4a 75 6c 69 61 6e 20 44 61 79 20 6e 75 6d  a Julian Day num
5340: 62 65 72 20 69 6e 20 2a 70 54 69 6d 65 4f 75 74  ber in *pTimeOut
5350: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
5360: 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65 28  tvfsCurrentTime(
5370: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
5380: 73 2c 20 64 6f 75 62 6c 65 20 2a 70 54 69 6d 65  s, double *pTime
5390: 4f 75 74 29 7b 0a 20 20 72 65 74 75 72 6e 20 50  Out){.  return P
53a0: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2d 3e  ARENTVFS(pVfs)->
53b0: 78 43 75 72 72 65 6e 74 54 69 6d 65 28 50 41 52  xCurrentTime(PAR
53c0: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 70 54  ENTVFS(pVfs), pT
53d0: 69 6d 65 4f 75 74 29 3b 0a 7d 0a 0a 73 74 61 74  imeOut);.}..stat
53e0: 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d 4f 70  ic int tvfsShmOp
53f0: 65 6e 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  en(sqlite3_file 
5400: 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74 76  *pFile){.  Testv
5410: 66 73 20 2a 70 3b 0a 20 20 69 6e 74 20 72 63 20  fs *p;.  int rc 
5420: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 20 20 20 20  = SQLITE_OK;    
5430: 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 74 75           /* Retu
5440: 72 6e 20 63 6f 64 65 20 2a 2f 0a 20 20 54 65 73  rn code */.  Tes
5450: 74 76 66 73 42 75 66 66 65 72 20 2a 70 42 75 66  tvfsBuffer *pBuf
5460: 66 65 72 3b 20 20 20 20 20 20 20 20 20 2f 2a 20  fer;         /* 
5470: 42 75 66 66 65 72 20 74 6f 20 6f 70 65 6e 20 63  Buffer to open c
5480: 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 2a 2f 0a  onnection to */.
5490: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
54a0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
54b0: 20 20 2f 2a 20 54 68 65 20 74 65 73 74 76 66 73    /* The testvfs
54c0: 20 66 69 6c 65 20 73 74 72 75 63 74 75 72 65 20   file structure 
54d0: 2a 2f 0a 0a 20 20 70 46 64 20 3d 20 74 76 66 73  */..  pFd = tvfs
54e0: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
54f0: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
5500: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
5510: 74 61 3b 0a 20 20 61 73 73 65 72 74 28 20 70 46  ta;.  assert( pF
5520: 64 2d 3e 70 53 68 6d 49 64 20 26 26 20 70 46 64  d->pShmId && pFd
5530: 2d 3e 70 53 68 6d 3d 3d 30 20 26 26 20 70 46 64  ->pShm==0 && pFd
5540: 2d 3e 70 4e 65 78 74 3d 3d 30 20 29 3b 0a 0a 20  ->pNext==0 );.. 
5550: 20 2f 2a 20 45 76 61 6c 75 61 74 65 20 74 68 65   /* Evaluate the
5560: 20 54 63 6c 20 73 63 72 69 70 74 3a 20 0a 20 20   Tcl script: .  
5570: 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52 49 50 54  **.  **   SCRIPT
5580: 20 78 53 68 6d 4f 70 65 6e 20 46 49 4c 45 4e 41   xShmOpen FILENA
5590: 4d 45 0a 20 20 2a 2f 0a 20 20 54 63 6c 5f 52 65  ME.  */.  Tcl_Re
55a0: 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  setResult(p->int
55b0: 65 72 70 29 3b 0a 20 20 69 66 28 20 70 2d 3e 70  erp);.  if( p->p
55c0: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
55d0: 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4f 50 45  k&TESTVFS_SHMOPE
55e0: 4e 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76  N_MASK ){.    tv
55f0: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53  fsExecTcl(p, "xS
5600: 68 6d 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77  hmOpen", Tcl_New
5610: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a  StringObj(pFd->z
5620: 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 30  Filename, -1), 0
5630: 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20 74 76  , 0);.    if( tv
5640: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
5650: 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69 66  &rc) ){.      if
5660: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
5670: 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20  ) return rc;.   
5680: 20 7d 0a 20 20 7d 0a 0a 20 20 61 73 73 65 72 74   }.  }..  assert
5690: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
56a0: 29 3b 0a 20 20 69 66 28 20 70 2d 3e 6d 61 73 6b  );.  if( p->mask
56b0: 26 54 45 53 54 56 46 53 5f 53 48 4d 4f 50 45 4e  &TESTVFS_SHMOPEN
56c0: 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49 6e 6a  _MASK && tvfsInj
56d0: 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b 0a 20  ectIoerr(p) ){. 
56e0: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
56f0: 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 0a 20 20 2f  _IOERR;.  }..  /
5700: 2a 20 53 65 61 72 63 68 20 66 6f 72 20 61 20 54  * Search for a T
5710: 65 73 74 76 66 73 42 75 66 66 65 72 2e 20 43 72  estvfsBuffer. Cr
5720: 65 61 74 65 20 61 20 6e 65 77 20 6f 6e 65 20 69  eate a new one i
5730: 66 20 72 65 71 75 69 72 65 64 2e 20 2a 2f 0a 20  f required. */. 
5740: 20 66 6f 72 28 70 42 75 66 66 65 72 3d 70 2d 3e   for(pBuffer=p->
5750: 70 42 75 66 66 65 72 3b 20 70 42 75 66 66 65 72  pBuffer; pBuffer
5760: 3b 20 70 42 75 66 66 65 72 3d 70 42 75 66 66 65  ; pBuffer=pBuffe
5770: 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 69  r->pNext){.    i
5780: 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 70 46 64  f( 0==strcmp(pFd
5790: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 70 42 75  ->zFilename, pBu
57a0: 66 66 65 72 2d 3e 7a 46 69 6c 65 29 20 29 20 62  ffer->zFile) ) b
57b0: 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 69 66 28 20  reak;.  }.  if( 
57c0: 21 70 42 75 66 66 65 72 20 29 7b 0a 20 20 20 20  !pBuffer ){.    
57d0: 69 6e 74 20 6e 42 79 74 65 20 3d 20 73 69 7a 65  int nByte = size
57e0: 6f 66 28 54 65 73 74 76 66 73 42 75 66 66 65 72  of(TestvfsBuffer
57f0: 29 20 2b 20 73 74 72 6c 65 6e 28 70 46 64 2d 3e  ) + strlen(pFd->
5800: 7a 46 69 6c 65 6e 61 6d 65 29 20 2b 20 31 3b 0a  zFilename) + 1;.
5810: 20 20 20 20 70 42 75 66 66 65 72 20 3d 20 28 54      pBuffer = (T
5820: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 29 63  estvfsBuffer *)c
5830: 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20  kalloc(nByte);. 
5840: 20 20 20 6d 65 6d 73 65 74 28 70 42 75 66 66 65     memset(pBuffe
5850: 72 2c 20 30 2c 20 6e 42 79 74 65 29 3b 0a 20 20  r, 0, nByte);.  
5860: 20 20 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65    pBuffer->zFile
5870: 20 3d 20 28 63 68 61 72 20 2a 29 26 70 42 75 66   = (char *)&pBuf
5880: 66 65 72 5b 31 5d 3b 0a 20 20 20 20 73 74 72 63  fer[1];.    strc
5890: 70 79 28 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c  py(pBuffer->zFil
58a0: 65 2c 20 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d  e, pFd->zFilenam
58b0: 65 29 3b 0a 20 20 20 20 70 42 75 66 66 65 72 2d  e);.    pBuffer-
58c0: 3e 70 4e 65 78 74 20 3d 20 70 2d 3e 70 42 75 66  >pNext = p->pBuf
58d0: 66 65 72 3b 0a 20 20 20 20 70 2d 3e 70 42 75 66  fer;.    p->pBuf
58e0: 66 65 72 20 3d 20 70 42 75 66 66 65 72 3b 0a 20  fer = pBuffer;. 
58f0: 20 7d 0a 0a 20 20 2f 2a 20 43 6f 6e 6e 65 63 74   }..  /* Connect
5900: 20 74 68 65 20 54 65 73 74 76 66 73 42 75 66 66   the TestvfsBuff
5910: 65 72 20 74 6f 20 74 68 65 20 6e 65 77 20 54 65  er to the new Te
5920: 73 74 76 66 73 53 68 6d 20 68 61 6e 64 6c 65 20  stvfsShm handle 
5930: 61 6e 64 20 72 65 74 75 72 6e 2e 20 2a 2f 0a 20  and return. */. 
5940: 20 70 46 64 2d 3e 70 4e 65 78 74 20 3d 20 70 42   pFd->pNext = pB
5950: 75 66 66 65 72 2d 3e 70 46 69 6c 65 3b 0a 20 20  uffer->pFile;.  
5960: 70 42 75 66 66 65 72 2d 3e 70 46 69 6c 65 20 3d  pBuffer->pFile =
5970: 20 70 46 64 3b 0a 20 20 70 46 64 2d 3e 70 53 68   pFd;.  pFd->pSh
5980: 6d 20 3d 20 70 42 75 66 66 65 72 3b 0a 20 20 72  m = pBuffer;.  r
5990: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b  eturn SQLITE_OK;
59a0: 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .}..static void 
59b0: 74 76 66 73 41 6c 6c 6f 63 50 61 67 65 28 54 65  tvfsAllocPage(Te
59c0: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 2c 20  stvfsBuffer *p, 
59d0: 69 6e 74 20 69 50 61 67 65 2c 20 69 6e 74 20 70  int iPage, int p
59e0: 67 73 7a 29 7b 0a 20 20 61 73 73 65 72 74 28 20  gsz){.  assert( 
59f0: 69 50 61 67 65 3c 54 45 53 54 56 46 53 5f 4d 41  iPage<TESTVFS_MA
5a00: 58 5f 50 41 47 45 53 20 29 3b 0a 20 20 69 66 28  X_PAGES );.  if(
5a10: 20 70 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d   p->aPage[iPage]
5a20: 3d 3d 30 20 29 7b 0a 20 20 20 20 70 2d 3e 61 50  ==0 ){.    p->aP
5a30: 61 67 65 5b 69 50 61 67 65 5d 20 3d 20 28 75 38  age[iPage] = (u8
5a40: 20 2a 29 63 6b 61 6c 6c 6f 63 28 70 67 73 7a 29   *)ckalloc(pgsz)
5a50: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 2d 3e  ;.    memset(p->
5a60: 61 50 61 67 65 5b 69 50 61 67 65 5d 2c 20 30 2c  aPage[iPage], 0,
5a70: 20 70 67 73 7a 29 3b 0a 20 20 20 20 70 2d 3e 70   pgsz);.    p->p
5a80: 67 73 7a 20 3d 20 70 67 73 7a 3b 0a 20 20 7d 0a  gsz = pgsz;.  }.
5a90: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  }..static int tv
5aa0: 66 73 53 68 6d 4d 61 70 28 0a 20 20 73 71 6c 69  fsShmMap(.  sqli
5ab0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
5ac0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 48              /* H
5ad0: 61 6e 64 6c 65 20 6f 70 65 6e 20 6f 6e 20 64 61  andle open on da
5ae0: 74 61 62 61 73 65 20 66 69 6c 65 20 2a 2f 0a 20  tabase file */. 
5af0: 20 69 6e 74 20 69 50 61 67 65 2c 20 20 20 20 20   int iPage,     
5b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5b10: 20 2f 2a 20 50 61 67 65 20 74 6f 20 72 65 74 72   /* Page to retr
5b20: 69 65 76 65 20 2a 2f 0a 20 20 69 6e 74 20 70 67  ieve */.  int pg
5b30: 73 7a 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  sz,             
5b40: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a            /* Siz
5b50: 65 20 6f 66 20 70 61 67 65 73 20 2a 2f 0a 20 20  e of pages */.  
5b60: 69 6e 74 20 69 73 57 72 69 74 65 2c 20 20 20 20  int isWrite,    
5b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5b80: 2f 2a 20 54 72 75 65 20 74 6f 20 65 78 74 65 6e  /* True to exten
5b90: 64 20 66 69 6c 65 20 69 66 20 6e 65 63 65 73 73  d file if necess
5ba0: 61 72 79 20 2a 2f 0a 20 20 76 6f 69 64 20 76 6f  ary */.  void vo
5bb0: 6c 61 74 69 6c 65 20 2a 2a 70 70 20 20 20 20 20  latile **pp     
5bc0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 55 54 3a           /* OUT:
5bd0: 20 4d 61 70 70 65 64 20 6d 65 6d 6f 72 79 20 2a   Mapped memory *
5be0: 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  /.){.  int rc = 
5bf0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
5c00: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
5c10: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
5c20: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
5c30: 54 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e  Testvfs *)(pFd->
5c40: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b  pVfs->pAppData);
5c50: 0a 0a 20 20 69 66 28 20 30 3d 3d 70 46 64 2d 3e  ..  if( 0==pFd->
5c60: 70 53 68 6d 20 29 7b 0a 20 20 20 20 72 63 20 3d  pShm ){.    rc =
5c70: 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 70 46 69   tvfsShmOpen(pFi
5c80: 6c 65 29 3b 0a 20 20 20 20 69 66 28 20 72 63 21  le);.    if( rc!
5c90: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
5ca0: 20 20 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 20      return rc;. 
5cb0: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20     }.  }..  if( 
5cc0: 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d  p->pScript && p-
5cd0: 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53 48  >mask&TESTVFS_SH
5ce0: 4d 4d 41 50 5f 4d 41 53 4b 20 29 7b 0a 20 20 20  MMAP_MASK ){.   
5cf0: 20 54 63 6c 5f 4f 62 6a 20 2a 70 41 72 67 20 3d   Tcl_Obj *pArg =
5d00: 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20   Tcl_NewObj();. 
5d10: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
5d20: 75 6e 74 28 70 41 72 67 29 3b 0a 20 20 20 20 54  unt(pArg);.    T
5d30: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
5d40: 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72  Element(p->inter
5d50: 70 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77  p, pArg, Tcl_New
5d60: 49 6e 74 4f 62 6a 28 69 50 61 67 65 29 29 3b 0a  IntObj(iPage));.
5d70: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
5d80: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e  ppendElement(p->
5d90: 69 6e 74 65 72 70 2c 20 70 41 72 67 2c 20 54 63  interp, pArg, Tc
5da0: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 67 73 7a  l_NewIntObj(pgsz
5db0: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74  ));.    Tcl_List
5dc0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
5dd0: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 41 72 67  (p->interp, pArg
5de0: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
5df0: 69 73 57 72 69 74 65 29 29 3b 0a 20 20 20 20 74  isWrite));.    t
5e00: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
5e10: 53 68 6d 4d 61 70 22 2c 20 0a 20 20 20 20 20 20  ShmMap", .      
5e20: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
5e30: 62 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46  bj(pFd->pShm->zF
5e40: 69 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70  ile, -1), pFd->p
5e50: 53 68 6d 49 64 2c 20 70 41 72 67 0a 20 20 20 20  ShmId, pArg.    
5e60: 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c  );.    tvfsResul
5e70: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20  tCode(p, &rc);. 
5e80: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f     Tcl_DecrRefCo
5e90: 75 6e 74 28 70 41 72 67 29 3b 0a 20 20 7d 0a 20  unt(pArg);.  }. 
5ea0: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
5eb0: 4f 4b 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45  OK && p->mask&TE
5ec0: 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53  STVFS_SHMMAP_MAS
5ed0: 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49  K && tvfsInjectI
5ee0: 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72  oerr(p) ){.    r
5ef0: 63 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52  c = SQLITE_IOERR
5f00: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d  ;.  }..  if( rc=
5f10: 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 69 73  =SQLITE_OK && is
5f20: 57 72 69 74 65 20 26 26 20 21 70 46 64 2d 3e 70  Write && !pFd->p
5f30: 53 68 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67 65  Shm->aPage[iPage
5f40: 5d 20 29 7b 0a 20 20 20 20 74 76 66 73 41 6c 6c  ] ){.    tvfsAll
5f50: 6f 63 50 61 67 65 28 70 46 64 2d 3e 70 53 68 6d  ocPage(pFd->pShm
5f60: 2c 20 69 50 61 67 65 2c 20 70 67 73 7a 29 3b 0a  , iPage, pgsz);.
5f70: 20 20 7d 0a 20 20 2a 70 70 20 3d 20 28 76 6f 69    }.  *pp = (voi
5f80: 64 20 76 6f 6c 61 74 69 6c 65 20 2a 29 70 46 64  d volatile *)pFd
5f90: 2d 3e 70 53 68 6d 2d 3e 61 50 61 67 65 5b 69 50  ->pShm->aPage[iP
5fa0: 61 67 65 5d 3b 0a 0a 20 20 72 65 74 75 72 6e 20  age];..  return 
5fb0: 72 63 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20 69  rc;.}...static i
5fc0: 6e 74 20 74 76 66 73 53 68 6d 4c 6f 63 6b 28 0a  nt tvfsShmLock(.
5fd0: 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a    sqlite3_file *
5fe0: 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20 6f 66 73  pFile,.  int ofs
5ff0: 74 2c 0a 20 20 69 6e 74 20 6e 2c 0a 20 20 69 6e  t,.  int n,.  in
6000: 74 20 66 6c 61 67 73 0a 29 7b 0a 20 20 69 6e 74  t flags.){.  int
6010: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b   rc = SQLITE_OK;
6020: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
6030: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
6040: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
6050: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
6060: 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  (pFd->pVfs->pApp
6070: 44 61 74 61 29 3b 0a 20 20 69 6e 74 20 6e 4c 6f  Data);.  int nLo
6080: 63 6b 3b 0a 20 20 63 68 61 72 20 7a 4c 6f 63 6b  ck;.  char zLock
6090: 5b 38 30 5d 3b 0a 0a 20 20 69 66 28 20 70 2d 3e  [80];..  if( p->
60a0: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
60b0: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4c 4f  sk&TESTVFS_SHMLO
60c0: 43 4b 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 73  CK_MASK ){.    s
60d0: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28  qlite3_snprintf(
60e0: 73 69 7a 65 6f 66 28 7a 4c 6f 63 6b 29 2c 20 7a  sizeof(zLock), z
60f0: 4c 6f 63 6b 2c 20 22 25 64 20 25 64 22 2c 20 6f  Lock, "%d %d", o
6100: 66 73 74 2c 20 6e 29 3b 0a 20 20 20 20 6e 4c 6f  fst, n);.    nLo
6110: 63 6b 20 3d 20 73 74 72 6c 65 6e 28 7a 4c 6f 63  ck = strlen(zLoc
6120: 6b 29 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 67  k);.    if( flag
6130: 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d 5f 4c  s & SQLITE_SHM_L
6140: 4f 43 4b 20 29 7b 0a 20 20 20 20 20 20 73 74 72  OCK ){.      str
6150: 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b  cpy(&zLock[nLock
6160: 5d 2c 20 22 20 6c 6f 63 6b 22 29 3b 0a 20 20 20  ], " lock");.   
6170: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 74   }else{.      st
6180: 72 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63  rcpy(&zLock[nLoc
6190: 6b 5d 2c 20 22 20 75 6e 6c 6f 63 6b 22 29 3b 0a  k], " unlock");.
61a0: 20 20 20 20 7d 0a 20 20 20 20 6e 4c 6f 63 6b 20      }.    nLock 
61b0: 2b 3d 20 73 74 72 6c 65 6e 28 26 7a 4c 6f 63 6b  += strlen(&zLock
61c0: 5b 6e 4c 6f 63 6b 5d 29 3b 0a 20 20 20 20 69 66  [nLock]);.    if
61d0: 28 20 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45  ( flags & SQLITE
61e0: 5f 53 48 4d 5f 53 48 41 52 45 44 20 29 7b 0a 20  _SHM_SHARED ){. 
61f0: 20 20 20 20 20 73 74 72 63 70 79 28 26 7a 4c 6f       strcpy(&zLo
6200: 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 73 68 61  ck[nLock], " sha
6210: 72 65 64 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65  red");.    }else
6220: 7b 0a 20 20 20 20 20 20 73 74 72 63 70 79 28 26  {.      strcpy(&
6230: 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20  zLock[nLock], " 
6240: 65 78 63 6c 75 73 69 76 65 22 29 3b 0a 20 20 20  exclusive");.   
6250: 20 7d 0a 20 20 20 20 74 76 66 73 45 78 65 63 54   }.    tvfsExecT
6260: 63 6c 28 70 2c 20 22 78 53 68 6d 4c 6f 63 6b 22  cl(p, "xShmLock"
6270: 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e  , .        Tcl_N
6280: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
6290: 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31  >pShm->zFile, -1
62a0: 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 0a  ), pFd->pShmId,.
62b0: 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53          Tcl_NewS
62c0: 74 72 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b 2c 20  tringObj(zLock, 
62d0: 2d 31 29 0a 20 20 20 20 29 3b 0a 20 20 20 20 74  -1).    );.    t
62e0: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
62f0: 20 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69 66   &rc);.  }..  if
6300: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
6310: 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  && p->mask&TESTV
6320: 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53 4b 20  FS_SHMLOCK_MASK 
6330: 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65  && tvfsInjectIoe
6340: 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20  rr(p) ){.    rc 
6350: 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a  = SQLITE_IOERR;.
6360: 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53    }..  if( rc==S
6370: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
6380: 69 6e 74 20 69 73 4c 6f 63 6b 20 3d 20 28 66 6c  int isLock = (fl
6390: 61 67 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d  ags & SQLITE_SHM
63a0: 5f 4c 4f 43 4b 29 3b 0a 20 20 20 20 69 6e 74 20  _LOCK);.    int 
63b0: 69 73 45 78 63 6c 20 3d 20 28 66 6c 61 67 73 20  isExcl = (flags 
63c0: 26 20 53 51 4c 49 54 45 5f 53 48 4d 5f 45 58 43  & SQLITE_SHM_EXC
63d0: 4c 55 53 49 56 45 29 3b 0a 20 20 20 20 75 33 32  LUSIVE);.    u32
63e0: 20 6d 61 73 6b 20 3d 20 28 28 28 31 3c 3c 6e 29   mask = (((1<<n)
63f0: 2d 31 29 20 3c 3c 20 6f 66 73 74 29 3b 0a 20 20  -1) << ofst);.  
6400: 20 20 69 66 28 20 69 73 4c 6f 63 6b 20 29 7b 0a    if( isLock ){.
6410: 20 20 20 20 20 20 54 65 73 74 76 66 73 46 64 20        TestvfsFd 
6420: 2a 70 32 3b 0a 20 20 20 20 20 20 66 6f 72 28 70  *p2;.      for(p
6430: 32 3d 70 46 64 2d 3e 70 53 68 6d 2d 3e 70 46 69  2=pFd->pShm->pFi
6440: 6c 65 3b 20 70 32 3b 20 70 32 3d 70 32 2d 3e 70  le; p2; p2=p2->p
6450: 4e 65 78 74 29 7b 0a 20 20 20 20 20 20 20 20 69  Next){.        i
6460: 66 28 20 70 32 3d 3d 70 46 64 20 29 20 63 6f 6e  f( p2==pFd ) con
6470: 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20 69  tinue;.        i
6480: 66 28 20 28 70 32 2d 3e 65 78 63 6c 6c 6f 63 6b  f( (p2->excllock
6490: 26 6d 61 73 6b 29 20 7c 7c 20 28 69 73 45 78 63  &mask) || (isExc
64a0: 6c 20 26 26 20 70 32 2d 3e 73 68 61 72 65 64 6c  l && p2->sharedl
64b0: 6f 63 6b 26 6d 61 73 6b 29 20 29 7b 0a 20 20 20  ock&mask) ){.   
64c0: 20 20 20 20 20 20 20 72 63 20 3d 20 53 51 4c 49         rc = SQLI
64d0: 54 45 5f 42 55 53 59 3b 0a 20 20 20 20 20 20 20  TE_BUSY;.       
64e0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
64f0: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20    }.      }.    
6500: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
6510: 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 20 20 69  _OK ){.        i
6520: 66 28 20 69 73 45 78 63 6c 20 29 20 20 70 46 64  f( isExcl )  pFd
6530: 2d 3e 65 78 63 6c 6c 6f 63 6b 20 7c 3d 20 6d 61  ->excllock |= ma
6540: 73 6b 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  sk;.        if( 
6550: 21 69 73 45 78 63 6c 20 29 20 70 46 64 2d 3e 73  !isExcl ) pFd->s
6560: 68 61 72 65 64 6c 6f 63 6b 20 7c 3d 20 6d 61 73  haredlock |= mas
6570: 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  k;.      }.    }
6580: 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 66 28 20  else{.      if( 
6590: 69 73 45 78 63 6c 20 29 20 20 70 46 64 2d 3e 65  isExcl )  pFd->e
65a0: 78 63 6c 6c 6f 63 6b 20 26 3d 20 28 7e 6d 61 73  xcllock &= (~mas
65b0: 6b 29 3b 0a 20 20 20 20 20 20 69 66 28 20 21 69  k);.      if( !i
65c0: 73 45 78 63 6c 20 29 20 70 46 64 2d 3e 73 68 61  sExcl ) pFd->sha
65d0: 72 65 64 6c 6f 63 6b 20 26 3d 20 28 7e 6d 61 73  redlock &= (~mas
65e0: 6b 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20  k);.    }.  }.. 
65f0: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73   return rc;.}..s
6600: 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 53  tatic void tvfsS
6610: 68 6d 42 61 72 72 69 65 72 28 73 71 6c 69 74 65  hmBarrier(sqlite
6620: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a  3_file *pFile){.
6630: 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64    TestvfsFd *pFd
6640: 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69   = tvfsGetFd(pFi
6650: 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  le);.  Testvfs *
6660: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28  p = (Testvfs *)(
6670: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
6680: 61 74 61 29 3b 0a 0a 20 20 69 66 28 20 70 2d 3e  ata);..  if( p->
6690: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
66a0: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 42 41  sk&TESTVFS_SHMBA
66b0: 52 52 49 45 52 5f 4d 41 53 4b 20 29 7b 0a 20 20  RRIER_MASK ){.  
66c0: 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c    tvfsExecTcl(p,
66d0: 20 22 78 53 68 6d 42 61 72 72 69 65 72 22 2c 20   "xShmBarrier", 
66e0: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  .        Tcl_New
66f0: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70  StringObj(pFd->p
6700: 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c  Shm->zFile, -1),
6710: 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 0a   pFd->pShmId, 0.
6720: 20 20 20 20 29 3b 0a 20 20 7d 0a 7d 0a 0a 73 74      );.  }.}..st
6730: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d  atic int tvfsShm
6740: 55 6e 6d 61 70 28 0a 20 20 73 71 6c 69 74 65 33  Unmap(.  sqlite3
6750: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 0a 20 20  _file *pFile,.  
6760: 69 6e 74 20 64 65 6c 65 74 65 46 6c 61 67 0a 29  int deleteFlag.)
6770: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
6780: 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66  ITE_OK;.  Testvf
6790: 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47  sFd *pFd = tvfsG
67a0: 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54  etFd(pFile);.  T
67b0: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
67c0: 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70 56 66  tvfs *)(pFd->pVf
67d0: 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 20 20  s->pAppData);.  
67e0: 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70  TestvfsBuffer *p
67f0: 42 75 66 66 65 72 20 3d 20 70 46 64 2d 3e 70 53  Buffer = pFd->pS
6800: 68 6d 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20  hm;.  TestvfsFd 
6810: 2a 2a 70 70 46 64 3b 0a 0a 20 20 69 66 28 20 21  **ppFd;..  if( !
6820: 70 42 75 66 66 65 72 20 29 20 72 65 74 75 72 6e  pBuffer ) return
6830: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 61 73   SQLITE_OK;.  as
6840: 73 65 72 74 28 20 70 46 64 2d 3e 70 53 68 6d 49  sert( pFd->pShmI
6850: 64 20 26 26 20 70 46 64 2d 3e 70 53 68 6d 20 29  d && pFd->pShm )
6860: 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72  ;..  if( p->pScr
6870: 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  ipt && p->mask&T
6880: 45 53 54 56 46 53 5f 53 48 4d 43 4c 4f 53 45 5f  ESTVFS_SHMCLOSE_
6890: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73  MASK ){.    tvfs
68a0: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d  ExecTcl(p, "xShm
68b0: 55 6e 6d 61 70 22 2c 20 0a 20 20 20 20 20 20 20  Unmap", .       
68c0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
68d0: 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69  j(pFd->pShm->zFi
68e0: 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53  le, -1), pFd->pS
68f0: 68 6d 49 64 2c 20 30 0a 20 20 20 20 29 3b 0a 20  hmId, 0.    );. 
6900: 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64     tvfsResultCod
6910: 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a  e(p, &rc);.  }..
6920: 20 20 66 6f 72 28 70 70 46 64 3d 26 70 42 75 66    for(ppFd=&pBuf
6930: 66 65 72 2d 3e 70 46 69 6c 65 3b 20 2a 70 70 46  fer->pFile; *ppF
6940: 64 21 3d 70 46 64 3b 20 70 70 46 64 3d 26 28 28  d!=pFd; ppFd=&((
6950: 2a 70 70 46 64 29 2d 3e 70 4e 65 78 74 29 29 3b  *ppFd)->pNext));
6960: 0a 20 20 61 73 73 65 72 74 28 20 28 2a 70 70 46  .  assert( (*ppF
6970: 64 29 3d 3d 70 46 64 20 29 3b 0a 20 20 2a 70 70  d)==pFd );.  *pp
6980: 46 64 20 3d 20 70 46 64 2d 3e 70 4e 65 78 74 3b  Fd = pFd->pNext;
6990: 0a 20 20 70 46 64 2d 3e 70 4e 65 78 74 20 3d 20  .  pFd->pNext = 
69a0: 30 3b 0a 0a 20 20 69 66 28 20 70 42 75 66 66 65  0;..  if( pBuffe
69b0: 72 2d 3e 70 46 69 6c 65 3d 3d 30 20 29 7b 0a 20  r->pFile==0 ){. 
69c0: 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 54 65     int i;.    Te
69d0: 73 74 76 66 73 42 75 66 66 65 72 20 2a 2a 70 70  stvfsBuffer **pp
69e0: 3b 0a 20 20 20 20 66 6f 72 28 70 70 3d 26 70 2d  ;.    for(pp=&p-
69f0: 3e 70 42 75 66 66 65 72 3b 20 2a 70 70 21 3d 70  >pBuffer; *pp!=p
6a00: 42 75 66 66 65 72 3b 20 70 70 3d 26 28 28 2a 70  Buffer; pp=&((*p
6a10: 70 29 2d 3e 70 4e 65 78 74 29 29 3b 0a 20 20 20  p)->pNext));.   
6a20: 20 2a 70 70 20 3d 20 28 2a 70 70 29 2d 3e 70 4e   *pp = (*pp)->pN
6a30: 65 78 74 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30  ext;.    for(i=0
6a40: 3b 20 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65  ; pBuffer->aPage
6a50: 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20  [i]; i++){.     
6a60: 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29   ckfree((char *)
6a70: 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65 5b 69  pBuffer->aPage[i
6a80: 5d 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6b  ]);.    }.    ck
6a90: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 42 75  free((char *)pBu
6aa0: 66 66 65 72 29 3b 0a 20 20 7d 0a 20 20 70 46 64  ffer);.  }.  pFd
6ab0: 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a 0a 20 20 72  ->pShm = 0;..  r
6ac0: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61  eturn rc;.}..sta
6ad0: 74 69 63 20 69 6e 74 20 74 65 73 74 76 66 73 5f  tic int testvfs_
6ae0: 6f 62 6a 5f 63 6d 64 28 0a 20 20 43 6c 69 65 6e  obj_cmd(.  Clien
6af0: 74 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c 5f  tData cd,.  Tcl_
6b00: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
6b10: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63    int objc,.  Tc
6b20: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
6b30: 76 5b 5d 0a 29 7b 0a 20 20 54 65 73 74 76 66 73  v[].){.  Testvfs
6b40: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
6b50: 29 63 64 3b 0a 0a 20 20 65 6e 75 6d 20 44 42 5f  )cd;..  enum DB_
6b60: 65 6e 75 6d 20 7b 20 0a 20 20 20 20 43 4d 44 5f  enum { .    CMD_
6b70: 53 48 4d 2c 20 43 4d 44 5f 44 45 4c 45 54 45 2c  SHM, CMD_DELETE,
6b80: 20 43 4d 44 5f 46 49 4c 54 45 52 2c 20 43 4d 44   CMD_FILTER, CMD
6b90: 5f 49 4f 45 52 52 2c 20 43 4d 44 5f 53 43 52 49  _IOERR, CMD_SCRI
6ba0: 50 54 2c 20 0a 20 20 20 20 43 4d 44 5f 44 45 56  PT, .    CMD_DEV
6bb0: 43 48 41 52 2c 20 43 4d 44 5f 53 45 43 54 4f 52  CHAR, CMD_SECTOR
6bc0: 53 49 5a 45 2c 20 43 4d 44 5f 46 55 4c 4c 45 52  SIZE, CMD_FULLER
6bd0: 52 2c 20 43 4d 44 5f 43 41 4e 54 4f 50 45 4e 45  R, CMD_CANTOPENE
6be0: 52 52 0a 20 20 7d 3b 0a 20 20 73 74 72 75 63 74  RR.  };.  struct
6bf0: 20 54 65 73 74 76 66 73 53 75 62 63 6d 64 20 7b   TestvfsSubcmd {
6c00: 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65  .    char *zName
6c10: 3b 0a 20 20 20 20 65 6e 75 6d 20 44 42 5f 65 6e  ;.    enum DB_en
6c20: 75 6d 20 65 43 6d 64 3b 0a 20 20 7d 20 61 53 75  um eCmd;.  } aSu
6c30: 62 63 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b  bcmd[] = {.    {
6c40: 20 22 73 68 6d 22 2c 20 20 20 20 20 20 20 20 20   "shm",         
6c50: 43 4d 44 5f 53 48 4d 20 20 20 20 20 20 20 20 20  CMD_SHM         
6c60: 7d 2c 0a 20 20 20 20 7b 20 22 64 65 6c 65 74 65  },.    { "delete
6c70: 22 2c 20 20 20 20 20 20 43 4d 44 5f 44 45 4c 45  ",      CMD_DELE
6c80: 54 45 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  TE      },.    {
6c90: 20 22 66 69 6c 74 65 72 22 2c 20 20 20 20 20 20   "filter",      
6ca0: 43 4d 44 5f 46 49 4c 54 45 52 20 20 20 20 20 20  CMD_FILTER      
6cb0: 7d 2c 0a 20 20 20 20 7b 20 22 69 6f 65 72 72 22  },.    { "ioerr"
6cc0: 2c 20 20 20 20 20 20 20 43 4d 44 5f 49 4f 45 52  ,       CMD_IOER
6cd0: 52 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  R       },.    {
6ce0: 20 22 66 75 6c 6c 65 72 72 22 2c 20 20 20 20 20   "fullerr",     
6cf0: 43 4d 44 5f 46 55 4c 4c 45 52 52 20 20 20 20 20  CMD_FULLERR     
6d00: 7d 2c 0a 20 20 20 20 7b 20 22 63 61 6e 74 6f 70  },.    { "cantop
6d10: 65 6e 65 72 72 22 2c 20 43 4d 44 5f 43 41 4e 54  enerr", CMD_CANT
6d20: 4f 50 45 4e 45 52 52 20 7d 2c 0a 20 20 20 20 7b  OPENERR },.    {
6d30: 20 22 73 63 72 69 70 74 22 2c 20 20 20 20 20 20   "script",      
6d40: 43 4d 44 5f 53 43 52 49 50 54 20 20 20 20 20 20  CMD_SCRIPT      
6d50: 7d 2c 0a 20 20 20 20 7b 20 22 64 65 76 63 68 61  },.    { "devcha
6d60: 72 22 2c 20 20 20 20 20 43 4d 44 5f 44 45 56 43  r",     CMD_DEVC
6d70: 48 41 52 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  HAR     },.    {
6d80: 20 22 73 65 63 74 6f 72 73 69 7a 65 22 2c 20 20   "sectorsize",  
6d90: 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a 45 20 20  CMD_SECTORSIZE  
6da0: 7d 2c 0a 20 20 20 20 7b 20 30 2c 20 30 20 7d 0a  },.    { 0, 0 }.
6db0: 20 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20    };.  int i;.  
6dc0: 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29 7b  .  if( objc<2 ){
6dd0: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
6de0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c  mArgs(interp, 1,
6df0: 20 6f 62 6a 76 2c 20 22 53 55 42 43 4f 4d 4d 41   objv, "SUBCOMMA
6e00: 4e 44 20 2e 2e 2e 22 29 3b 0a 20 20 20 20 72 65  ND ...");.    re
6e10: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
6e20: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65    }.  if( Tcl_Ge
6e30: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74 72  tIndexFromObjStr
6e40: 75 63 74 28 0a 20 20 20 20 20 20 20 20 69 6e 74  uct(.        int
6e50: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 61 53  erp, objv[1], aS
6e60: 75 62 63 6d 64 2c 20 73 69 7a 65 6f 66 28 61 53  ubcmd, sizeof(aS
6e70: 75 62 63 6d 64 5b 30 5d 29 2c 20 22 73 75 62 63  ubcmd[0]), "subc
6e80: 6f 6d 6d 61 6e 64 22 2c 20 30 2c 20 26 69 29 20  ommand", 0, &i) 
6e90: 0a 20 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  .  ){.    return
6ea0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
6eb0: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c    Tcl_ResetResul
6ec0: 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 73 77  t(interp);..  sw
6ed0: 69 74 63 68 28 20 61 53 75 62 63 6d 64 5b 69 5d  itch( aSubcmd[i]
6ee0: 2e 65 43 6d 64 20 29 7b 0a 20 20 20 20 63 61 73  .eCmd ){.    cas
6ef0: 65 20 43 4d 44 5f 53 48 4d 3a 20 7b 0a 20 20 20  e CMD_SHM: {.   
6f00: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62 6a     Tcl_Obj *pObj
6f10: 3b 0a 20 20 20 20 20 20 69 6e 74 20 69 2c 20 72  ;.      int i, r
6f20: 63 3b 0a 20 20 20 20 20 20 54 65 73 74 76 66 73  c;.      Testvfs
6f30: 42 75 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b  Buffer *pBuffer;
6f40: 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61  .      char *zNa
6f50: 6d 65 3b 0a 20 20 20 20 20 20 69 66 28 20 6f 62  me;.      if( ob
6f60: 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 34  jc!=3 && objc!=4
6f70: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
6f80: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
6f90: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 46  erp, 2, objv, "F
6fa0: 49 4c 45 20 3f 56 41 4c 55 45 3f 22 29 3b 0a 20  ILE ?VALUE?");. 
6fb0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
6fc0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d  L_ERROR;.      }
6fd0: 0a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 63  .      zName = c
6fe0: 6b 61 6c 6c 6f 63 28 70 2d 3e 70 50 61 72 65 6e  kalloc(p->pParen
6ff0: 74 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 29 3b 0a  t->mxPathname);.
7000: 20 20 20 20 20 20 72 63 20 3d 20 70 2d 3e 70 50        rc = p->pP
7010: 61 72 65 6e 74 2d 3e 78 46 75 6c 6c 50 61 74 68  arent->xFullPath
7020: 6e 61 6d 65 28 0a 20 20 20 20 20 20 20 20 20 20  name(.          
7030: 70 2d 3e 70 50 61 72 65 6e 74 2c 20 54 63 6c 5f  p->pParent, Tcl_
7040: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32  GetString(objv[2
7050: 5d 29 2c 20 0a 20 20 20 20 20 20 20 20 20 20 70  ]), .          p
7060: 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74  ->pParent->mxPat
7070: 68 6e 61 6d 65 2c 20 7a 4e 61 6d 65 0a 20 20 20  hname, zName.   
7080: 20 20 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20     );.      if( 
7090: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc!=SQLITE_OK ){
70a0: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70  .        Tcl_App
70b0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
70c0: 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 67 65 74  , "failed to get
70d0: 20 66 75 6c 6c 20 70 61 74 68 3a 20 22 2c 0a 20   full path: ",. 
70e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
70f0: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53          Tcl_GetS
7100: 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c 20  tring(objv[2]), 
7110: 30 29 3b 0a 20 20 20 20 20 20 20 20 63 6b 66 72  0);.        ckfr
7120: 65 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 20  ee(zName);.     
7130: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
7140: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
7150: 20 20 20 66 6f 72 28 70 42 75 66 66 65 72 3d 70     for(pBuffer=p
7160: 2d 3e 70 42 75 66 66 65 72 3b 20 70 42 75 66 66  ->pBuffer; pBuff
7170: 65 72 3b 20 70 42 75 66 66 65 72 3d 70 42 75 66  er; pBuffer=pBuf
7180: 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20  fer->pNext){.   
7190: 20 20 20 20 20 69 66 28 20 30 3d 3d 73 74 72 63       if( 0==strc
71a0: 6d 70 28 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c  mp(pBuffer->zFil
71b0: 65 2c 20 7a 4e 61 6d 65 29 20 29 20 62 72 65 61  e, zName) ) brea
71c0: 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  k;.      }.     
71d0: 20 63 6b 66 72 65 65 28 7a 4e 61 6d 65 29 3b 0a   ckfree(zName);.
71e0: 20 20 20 20 20 20 69 66 28 20 21 70 42 75 66 66        if( !pBuff
71f0: 65 72 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63  er ){.        Tc
7200: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
7210: 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63 68 20  nterp, "no such 
7220: 66 69 6c 65 3a 20 22 2c 20 54 63 6c 5f 47 65 74  file: ", Tcl_Get
7230: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c  String(objv[2]),
7240: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74   0);.        ret
7250: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
7260: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
7270: 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20 20 20 20   objc==4 ){.    
7280: 20 20 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20 20      int n;.     
7290: 20 20 20 75 38 20 2a 61 20 3d 20 54 63 6c 5f 47     u8 *a = Tcl_G
72a0: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f  etByteArrayFromO
72b0: 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 29 3b  bj(objv[3], &n);
72c0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 70 67 73  .        int pgs
72d0: 7a 20 3d 20 70 42 75 66 66 65 72 2d 3e 70 67 73  z = pBuffer->pgs
72e0: 7a 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70  z;.        if( p
72f0: 67 73 7a 3d 3d 30 20 29 20 70 67 73 7a 20 3d 20  gsz==0 ) pgsz = 
7300: 36 35 35 33 36 3b 0a 20 20 20 20 20 20 20 20 66  65536;.        f
7310: 6f 72 28 69 3d 30 3b 20 69 2a 70 67 73 7a 3c 6e  or(i=0; i*pgsz<n
7320: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20  ; i++){.        
7330: 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 70 67    int nByte = pg
7340: 73 7a 3b 0a 20 20 20 20 20 20 20 20 20 20 74 76  sz;.          tv
7350: 66 73 41 6c 6c 6f 63 50 61 67 65 28 70 42 75 66  fsAllocPage(pBuf
7360: 66 65 72 2c 20 69 2c 20 70 67 73 7a 29 3b 0a 20  fer, i, pgsz);. 
7370: 20 20 20 20 20 20 20 20 20 69 66 28 20 6e 2d 69           if( n-i
7380: 2a 70 67 73 7a 3c 70 67 73 7a 20 29 7b 0a 20 20  *pgsz<pgsz ){.  
7390: 20 20 20 20 20 20 20 20 20 20 6e 42 79 74 65 20            nByte 
73a0: 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  = n;.          }
73b0: 0a 20 20 20 20 20 20 20 20 20 20 6d 65 6d 63 70  .          memcp
73c0: 79 28 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65  y(pBuffer->aPage
73d0: 5b 69 5d 2c 20 26 61 5b 69 2a 70 67 73 7a 5d 2c  [i], &a[i*pgsz],
73e0: 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 20 20 20   nByte);.       
73f0: 20 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20   }.      }..    
7400: 20 20 70 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77    pObj = Tcl_New
7410: 4f 62 6a 28 29 3b 0a 20 20 20 20 20 20 66 6f 72  Obj();.      for
7420: 28 69 3d 30 3b 20 70 42 75 66 66 65 72 2d 3e 61  (i=0; pBuffer->a
7430: 50 61 67 65 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20  Page[i]; i++){. 
7440: 20 20 20 20 20 20 20 69 6e 74 20 70 67 73 7a 20         int pgsz 
7450: 3d 20 70 42 75 66 66 65 72 2d 3e 70 67 73 7a 3b  = pBuffer->pgsz;
7460: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 67 73  .        if( pgs
7470: 7a 3d 3d 30 20 29 20 70 67 73 7a 20 3d 20 36 35  z==0 ) pgsz = 65
7480: 35 33 36 3b 0a 20 20 20 20 20 20 20 20 54 63 6c  536;.        Tcl
7490: 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28  _AppendObjToObj(
74a0: 70 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 42 79 74  pObj, Tcl_NewByt
74b0: 65 41 72 72 61 79 4f 62 6a 28 70 42 75 66 66 65  eArrayObj(pBuffe
74c0: 72 2d 3e 61 50 61 67 65 5b 69 5d 2c 20 70 67 73  r->aPage[i], pgs
74d0: 7a 29 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  z));.      }.   
74e0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
74f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 4f 62 6a  ult(interp, pObj
7500: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
7510: 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20      }..    case 
7520: 43 4d 44 5f 46 49 4c 54 45 52 3a 20 7b 0a 20 20  CMD_FILTER: {.  
7530: 20 20 20 20 73 74 61 74 69 63 20 73 74 72 75 63      static struc
7540: 74 20 56 66 73 4d 65 74 68 6f 64 20 7b 0a 20 20  t VfsMethod {.  
7550: 20 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d        char *zNam
7560: 65 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6d  e;.        int m
7570: 61 73 6b 3b 0a 20 20 20 20 20 20 7d 20 76 66 73  ask;.      } vfs
7580: 6d 65 74 68 6f 64 20 5b 5d 20 3d 20 7b 0a 20 20  method [] = {.  
7590: 20 20 20 20 20 20 7b 20 22 78 53 68 6d 4f 70 65        { "xShmOpe
75a0: 6e 22 2c 20 20 20 20 20 20 54 45 53 54 56 46 53  n",      TESTVFS
75b0: 5f 53 48 4d 4f 50 45 4e 5f 4d 41 53 4b 20 7d 2c  _SHMOPEN_MASK },
75c0: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d  .        { "xShm
75d0: 4c 6f 63 6b 22 2c 20 20 20 20 20 20 54 45 53 54  Lock",      TEST
75e0: 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53 4b  VFS_SHMLOCK_MASK
75f0: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78   },.        { "x
7600: 53 68 6d 42 61 72 72 69 65 72 22 2c 20 20 20 54  ShmBarrier",   T
7610: 45 53 54 56 46 53 5f 53 48 4d 42 41 52 52 49 45  ESTVFS_SHMBARRIE
7620: 52 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20  R_MASK },.      
7630: 20 20 7b 20 22 78 53 68 6d 55 6e 6d 61 70 22 2c    { "xShmUnmap",
7640: 20 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d       TESTVFS_SHM
7650: 43 4c 4f 53 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20  CLOSE_MASK },.  
7660: 20 20 20 20 20 20 7b 20 22 78 53 68 6d 4d 61 70        { "xShmMap
7670: 22 2c 20 20 20 20 20 20 20 54 45 53 54 56 46 53  ",       TESTVFS
7680: 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20 7d 2c 0a  _SHMMAP_MASK },.
7690: 20 20 20 20 20 20 20 20 7b 20 22 78 53 79 6e 63          { "xSync
76a0: 22 2c 20 20 20 20 20 20 20 20 20 54 45 53 54 56  ",         TESTV
76b0: 46 53 5f 53 59 4e 43 5f 4d 41 53 4b 20 7d 2c 0a  FS_SYNC_MASK },.
76c0: 20 20 20 20 20 20 20 20 7b 20 22 78 44 65 6c 65          { "xDele
76d0: 74 65 22 2c 20 20 20 20 20 20 20 54 45 53 54 56  te",       TESTV
76e0: 46 53 5f 44 45 4c 45 54 45 5f 4d 41 53 4b 20 7d  FS_DELETE_MASK }
76f0: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 57 72  ,.        { "xWr
7700: 69 74 65 22 2c 20 20 20 20 20 20 20 20 54 45 53  ite",        TES
7710: 54 56 46 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20  TVFS_WRITE_MASK 
7720: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 52  },.        { "xR
7730: 65 61 64 22 2c 20 20 20 20 20 20 20 20 20 54 45  ead",         TE
7740: 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20  STVFS_READ_MASK 
7750: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 54  },.        { "xT
7760: 72 75 6e 63 61 74 65 22 2c 20 20 20 20 20 54 45  runcate",     TE
7770: 53 54 56 46 53 5f 54 52 55 4e 43 41 54 45 5f 4d  STVFS_TRUNCATE_M
7780: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
7790: 20 22 78 4f 70 65 6e 22 2c 20 20 20 20 20 20 20   "xOpen",       
77a0: 20 20 54 45 53 54 56 46 53 5f 4f 50 45 4e 5f 4d    TESTVFS_OPEN_M
77b0: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
77c0: 20 22 78 43 6c 6f 73 65 22 2c 20 20 20 20 20 20   "xClose",      
77d0: 20 20 54 45 53 54 56 46 53 5f 43 4c 4f 53 45 5f    TESTVFS_CLOSE_
77e0: 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20  MASK },.        
77f0: 7b 20 22 78 41 63 63 65 73 73 22 2c 20 20 20 20  { "xAccess",    
7800: 20 20 20 54 45 53 54 56 46 53 5f 41 43 43 45 53     TESTVFS_ACCES
7810: 53 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20  S_MASK },.      
7820: 20 20 7b 20 22 78 46 75 6c 6c 50 61 74 68 6e 61    { "xFullPathna
7830: 6d 65 22 2c 20 54 45 53 54 56 46 53 5f 46 55 4c  me", TESTVFS_FUL
7840: 4c 50 41 54 48 4e 41 4d 45 5f 4d 41 53 4b 20 7d  LPATHNAME_MASK }
7850: 2c 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20 20  ,.      };.     
7860: 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70 45 6c 65   Tcl_Obj **apEle
7870: 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 69 6e 74  m = 0;.      int
7880: 20 6e 45 6c 65 6d 20 3d 20 30 3b 0a 20 20 20 20   nElem = 0;.    
7890: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 69    int i;.      i
78a0: 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 20 20 20  nt mask = 0;.   
78b0: 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29     if( objc!=3 )
78c0: 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72  {.        Tcl_Wr
78d0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
78e0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 4c 49 53  p, 2, objv, "LIS
78f0: 54 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74  T");.        ret
7900: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
7910: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
7920: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45   Tcl_ListObjGetE
7930: 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20  lements(interp, 
7940: 6f 62 6a 76 5b 32 5d 2c 20 26 6e 45 6c 65 6d 2c  objv[2], &nElem,
7950: 20 26 61 70 45 6c 65 6d 29 20 29 7b 0a 20 20 20   &apElem) ){.   
7960: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
7970: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
7980: 20 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65       Tcl_ResetRe
7990: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20  sult(interp);.  
79a0: 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e      for(i=0; i<n
79b0: 45 6c 65 6d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  Elem; i++){.    
79c0: 20 20 20 20 69 6e 74 20 69 4d 65 74 68 6f 64 3b      int iMethod;
79d0: 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a 7a  .        char *z
79e0: 45 6c 65 6d 20 3d 20 54 63 6c 5f 47 65 74 53 74  Elem = Tcl_GetSt
79f0: 72 69 6e 67 28 61 70 45 6c 65 6d 5b 69 5d 29 3b  ring(apElem[i]);
7a00: 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69 4d 65  .        for(iMe
7a10: 74 68 6f 64 3d 30 3b 20 69 4d 65 74 68 6f 64 3c  thod=0; iMethod<
7a20: 41 72 72 61 79 53 69 7a 65 28 76 66 73 6d 65 74  ArraySize(vfsmet
7a30: 68 6f 64 29 3b 20 69 4d 65 74 68 6f 64 2b 2b 29  hod); iMethod++)
7a40: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  {.          if( 
7a50: 73 74 72 63 6d 70 28 7a 45 6c 65 6d 2c 20 76 66  strcmp(zElem, vf
7a60: 73 6d 65 74 68 6f 64 5b 69 4d 65 74 68 6f 64 5d  smethod[iMethod]
7a70: 2e 7a 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20  .zName)==0 ){.  
7a80: 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 20 7c            mask |
7a90: 3d 20 76 66 73 6d 65 74 68 6f 64 5b 69 4d 65 74  = vfsmethod[iMet
7aa0: 68 6f 64 5d 2e 6d 61 73 6b 3b 0a 20 20 20 20 20  hod].mask;.     
7ab0: 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20         break;.  
7ac0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
7ad0: 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20    }.        if( 
7ae0: 69 4d 65 74 68 6f 64 3d 3d 41 72 72 61 79 53 69  iMethod==ArraySi
7af0: 7a 65 28 76 66 73 6d 65 74 68 6f 64 29 20 29 7b  ze(vfsmethod) ){
7b00: 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41  .          Tcl_A
7b10: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
7b20: 72 70 2c 20 22 75 6e 6b 6e 6f 77 6e 20 6d 65 74  rp, "unknown met
7b30: 68 6f 64 3a 20 22 2c 20 7a 45 6c 65 6d 2c 20 30  hod: ", zElem, 0
7b40: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74  );.          ret
7b50: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
7b60: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d         }.      }
7b70: 0a 20 20 20 20 20 20 70 2d 3e 6d 61 73 6b 20 3d  .      p->mask =
7b80: 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20 62 72 65   mask;.      bre
7b90: 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63  ak;.    }..    c
7ba0: 61 73 65 20 43 4d 44 5f 53 43 52 49 50 54 3a 20  ase CMD_SCRIPT: 
7bb0: 7b 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63  {.      if( objc
7bc0: 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20 69  ==3 ){.        i
7bd0: 6e 74 20 6e 42 79 74 65 3b 0a 20 20 20 20 20 20  nt nByte;.      
7be0: 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74    if( p->pScript
7bf0: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 54 63   ){.          Tc
7c00: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70  l_DecrRefCount(p
7c10: 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 20 20  ->pScript);.    
7c20: 20 20 20 20 20 20 70 2d 3e 70 53 63 72 69 70 74        p->pScript
7c30: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a   = 0;.        }.
7c40: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53          Tcl_GetS
7c50: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a  tringFromObj(obj
7c60: 76 5b 32 5d 2c 20 26 6e 42 79 74 65 29 3b 0a 20  v[2], &nByte);. 
7c70: 20 20 20 20 20 20 20 69 66 28 20 6e 42 79 74 65         if( nByte
7c80: 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  >0 ){.          
7c90: 70 2d 3e 70 53 63 72 69 70 74 20 3d 20 54 63 6c  p->pScript = Tcl
7ca0: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 6f 62  _DuplicateObj(ob
7cb0: 6a 76 5b 32 5d 29 3b 0a 20 20 20 20 20 20 20 20  jv[2]);.        
7cc0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75    Tcl_IncrRefCou
7cd0: 6e 74 28 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a  nt(p->pScript);.
7ce0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
7cf0: 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a 63 21 3d  }else if( objc!=
7d00: 32 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c  2 ){.        Tcl
7d10: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
7d20: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22  terp, 2, objv, "
7d30: 3f 53 43 52 49 50 54 3f 22 29 3b 0a 20 20 20 20  ?SCRIPT?");.    
7d40: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
7d50: 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 0a 20  RROR;.      }.. 
7d60: 20 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65       Tcl_ResetRe
7d70: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20  sult(interp);.  
7d80: 20 20 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69      if( p->pScri
7d90: 70 74 20 29 20 54 63 6c 5f 53 65 74 4f 62 6a 52  pt ) Tcl_SetObjR
7da0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 2d  esult(interp, p-
7db0: 3e 70 53 63 72 69 70 74 29 3b 0a 0a 20 20 20 20  >pScript);..    
7dc0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a    break;.    }..
7dd0: 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 45      /*.    ** TE
7de0: 53 54 56 46 53 20 69 6f 65 72 72 20 3f 49 46 41  STVFS ioerr ?IFA
7df0: 49 4c 20 50 45 52 53 49 53 54 3f 0a 20 20 20 20  IL PERSIST?.    
7e00: 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 57 68 65 72  **.    **   Wher
7e10: 65 20 49 46 41 49 4c 20 69 73 20 61 6e 20 69 6e  e IFAIL is an in
7e20: 74 65 67 65 72 20 61 6e 64 20 50 45 52 53 49 53  teger and PERSIS
7e30: 54 20 69 73 20 62 6f 6f 6c 65 61 6e 2e 0a 20 20  T is boolean..  
7e40: 20 20 2a 2f 0a 20 20 20 20 63 61 73 65 20 43 4d    */.    case CM
7e50: 44 5f 43 41 4e 54 4f 50 45 4e 45 52 52 3a 0a 20  D_CANTOPENERR:. 
7e60: 20 20 20 63 61 73 65 20 43 4d 44 5f 49 4f 45 52     case CMD_IOER
7e70: 52 3a 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f  R:.    case CMD_
7e80: 46 55 4c 4c 45 52 52 3a 20 7b 0a 20 20 20 20 20  FULLERR: {.     
7e90: 20 54 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74   TestFaultInject
7ea0: 20 2a 70 54 65 73 74 3b 0a 20 20 20 20 20 20 69   *pTest;.      i
7eb0: 6e 74 20 69 52 65 74 3b 0a 0a 20 20 20 20 20 20  nt iRet;..      
7ec0: 73 77 69 74 63 68 28 20 61 53 75 62 63 6d 64 5b  switch( aSubcmd[
7ed0: 69 5d 2e 65 43 6d 64 20 29 7b 0a 20 20 20 20 20  i].eCmd ){.     
7ee0: 20 20 20 63 61 73 65 20 43 4d 44 5f 49 4f 45 52     case CMD_IOER
7ef0: 52 3a 20 70 54 65 73 74 20 3d 20 26 70 2d 3e 69  R: pTest = &p->i
7f00: 6f 65 72 72 5f 65 72 72 3b 20 62 72 65 61 6b 3b  oerr_err; break;
7f10: 0a 20 20 20 20 20 20 20 20 63 61 73 65 20 43 4d  .        case CM
7f20: 44 5f 46 55 4c 4c 45 52 52 3a 20 70 54 65 73 74  D_FULLERR: pTest
7f30: 20 3d 20 26 70 2d 3e 66 75 6c 6c 5f 65 72 72 3b   = &p->full_err;
7f40: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20   break;.        
7f50: 63 61 73 65 20 43 4d 44 5f 43 41 4e 54 4f 50 45  case CMD_CANTOPE
7f60: 4e 45 52 52 3a 20 70 54 65 73 74 20 3d 20 26 70  NERR: pTest = &p
7f70: 2d 3e 63 61 6e 74 6f 70 65 6e 5f 65 72 72 3b 20  ->cantopen_err; 
7f80: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 64  break;.        d
7f90: 65 66 61 75 6c 74 3a 20 61 73 73 65 72 74 28 30  efault: assert(0
7fa0: 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  );.      }.     
7fb0: 20 69 52 65 74 20 3d 20 70 54 65 73 74 2d 3e 6e   iRet = pTest->n
7fc0: 46 61 69 6c 3b 0a 20 20 20 20 20 20 70 54 65 73  Fail;.      pTes
7fd0: 74 2d 3e 6e 46 61 69 6c 20 3d 20 30 3b 0a 20 20  t->nFail = 0;.  
7fe0: 20 20 20 20 70 54 65 73 74 2d 3e 65 46 61 75 6c      pTest->eFaul
7ff0: 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 54 65  t = 0;.      pTe
8000: 73 74 2d 3e 69 43 6e 74 20 3d 20 30 3b 0a 0a 20  st->iCnt = 0;.. 
8010: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 34       if( objc==4
8020: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20   ){.        int 
8030: 69 43 6e 74 2c 20 69 50 65 72 73 69 73 74 3b 0a  iCnt, iPersist;.
8040: 20 20 20 20 20 20 20 20 69 66 28 20 54 43 4c 5f          if( TCL_
8050: 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46 72  OK!=Tcl_GetIntFr
8060: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
8070: 6a 76 5b 32 5d 2c 20 26 69 43 6e 74 29 0a 20 20  jv[2], &iCnt).  
8080: 20 20 20 20 20 20 20 7c 7c 20 54 43 4c 5f 4f 4b         || TCL_OK
8090: 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e  !=Tcl_GetBoolean
80a0: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
80b0: 6f 62 6a 76 5b 33 5d 2c 20 26 69 50 65 72 73 69  objv[3], &iPersi
80c0: 73 74 29 0a 20 20 20 20 20 20 20 20 29 7b 0a 20  st).        ){. 
80d0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
80e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
80f0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 70 54 65     }.        pTe
8100: 73 74 2d 3e 65 46 61 75 6c 74 20 3d 20 69 50 65  st->eFault = iPe
8110: 72 73 69 73 74 3f 46 41 55 4c 54 5f 49 4e 4a 45  rsist?FAULT_INJE
8120: 43 54 5f 50 45 52 53 49 53 54 45 4e 54 3a 46 41  CT_PERSISTENT:FA
8130: 55 4c 54 5f 49 4e 4a 45 43 54 5f 54 52 41 4e 53  ULT_INJECT_TRANS
8140: 49 45 4e 54 3b 0a 20 20 20 20 20 20 20 20 70 54  IENT;.        pT
8150: 65 73 74 2d 3e 69 43 6e 74 20 3d 20 69 43 6e 74  est->iCnt = iCnt
8160: 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69 66  ;.      }else if
8170: 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20  ( objc!=2 ){.   
8180: 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75       Tcl_WrongNu
8190: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c  mArgs(interp, 2,
81a0: 20 6f 62 6a 76 2c 20 22 3f 43 4e 54 20 50 45 52   objv, "?CNT PER
81b0: 53 49 53 54 3f 22 29 3b 0a 20 20 20 20 20 20 20  SIST?");.       
81c0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
81d0: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  R;.      }.     
81e0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
81f0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65  t(interp, Tcl_Ne
8200: 77 49 6e 74 4f 62 6a 28 69 52 65 74 29 29 3b 0a  wIntObj(iRet));.
8210: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
8220: 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d 44   }..    case CMD
8230: 5f 44 45 4c 45 54 45 3a 20 7b 0a 20 20 20 20 20  _DELETE: {.     
8240: 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61   Tcl_DeleteComma
8250: 6e 64 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47  nd(interp, Tcl_G
8260: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d  etString(objv[0]
8270: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  ));.      break;
8280: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
8290: 20 43 4d 44 5f 44 45 56 43 48 41 52 3a 20 7b 0a   CMD_DEVCHAR: {.
82a0: 20 20 20 20 20 20 73 74 72 75 63 74 20 44 65 76        struct Dev
82b0: 69 63 65 46 6c 61 67 20 7b 0a 20 20 20 20 20 20  iceFlag {.      
82c0: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20    char *zName;. 
82d0: 20 20 20 20 20 20 20 69 6e 74 20 69 56 61 6c 75         int iValu
82e0: 65 3b 0a 20 20 20 20 20 20 7d 20 61 46 6c 61 67  e;.      } aFlag
82f0: 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20 20 20 7b  [] = {.        {
8300: 20 22 64 65 66 61 75 6c 74 22 2c 20 20 20 20 20   "default",     
8310: 20 20 20 20 20 20 20 20 20 20 2d 31 20 7d 2c 0a            -1 },.
8320: 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69          { "atomi
8330: 63 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  c",             
8340: 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f     SQLITE_IOCAP_
8350: 41 54 4f 4d 49 43 20 20 20 20 20 20 20 20 20 20  ATOMIC          
8360: 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20        },.       
8370: 20 7b 20 22 61 74 6f 6d 69 63 35 31 32 22 2c 20   { "atomic512", 
8380: 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49              SQLI
8390: 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 35  TE_IOCAP_ATOMIC5
83a0: 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 7d  12             }
83b0: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f  ,.        { "ato
83c0: 6d 69 63 31 6b 22 2c 20 20 20 20 20 20 20 20 20  mic1k",         
83d0: 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41       SQLITE_IOCA
83e0: 50 5f 41 54 4f 4d 49 43 31 4b 20 20 20 20 20 20  P_ATOMIC1K      
83f0: 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20          },.     
8400: 20 20 20 7b 20 22 61 74 6f 6d 69 63 32 6b 22 2c     { "atomic2k",
8410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51                SQ
8420: 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49  LITE_IOCAP_ATOMI
8430: 43 32 4b 20 20 20 20 20 20 20 20 20 20 20 20 20  C2K             
8440: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61   },.        { "a
8450: 74 6f 6d 69 63 34 6b 22 2c 20 20 20 20 20 20 20  tomic4k",       
8460: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f         SQLITE_IO
8470: 43 41 50 5f 41 54 4f 4d 49 43 34 4b 20 20 20 20  CAP_ATOMIC4K    
8480: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20            },.   
8490: 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 38 6b       { "atomic8k
84a0: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
84b0: 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f  SQLITE_IOCAP_ATO
84c0: 4d 49 43 38 4b 20 20 20 20 20 20 20 20 20 20 20  MIC8K           
84d0: 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20     },.        { 
84e0: 22 61 74 6f 6d 69 63 31 36 6b 22 2c 20 20 20 20  "atomic16k",    
84f0: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
8500: 49 4f 43 41 50 5f 41 54 4f 4d 49 43 31 36 4b 20  IOCAP_ATOMIC16K 
8510: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
8520: 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63         { "atomic
8530: 33 32 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20  32k",           
8540: 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41    SQLITE_IOCAP_A
8550: 54 4f 4d 49 43 33 32 4b 20 20 20 20 20 20 20 20  TOMIC32K        
8560: 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20       },.        
8570: 7b 20 22 61 74 6f 6d 69 63 36 34 6b 22 2c 20 20  { "atomic64k",  
8580: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54             SQLIT
8590: 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 36 34  E_IOCAP_ATOMIC64
85a0: 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c  K             },
85b0: 0a 20 20 20 20 20 20 20 20 7b 20 22 73 65 71 75  .        { "sequ
85c0: 65 6e 74 69 61 6c 22 2c 20 20 20 20 20 20 20 20  ential",        
85d0: 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50      SQLITE_IOCAP
85e0: 5f 53 45 51 55 45 4e 54 49 41 4c 20 20 20 20 20  _SEQUENTIAL     
85f0: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20         },.      
8600: 20 20 7b 20 22 73 61 66 65 5f 61 70 70 65 6e 64    { "safe_append
8610: 22 2c 20 20 20 20 20 20 20 20 20 20 20 53 51 4c  ",           SQL
8620: 49 54 45 5f 49 4f 43 41 50 5f 53 41 46 45 5f 41  ITE_IOCAP_SAFE_A
8630: 50 50 45 4e 44 20 20 20 20 20 20 20 20 20 20 20  PPEND           
8640: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 75 6e  },.        { "un
8650: 64 65 6c 65 74 61 62 6c 65 5f 77 68 65 6e 5f 6f  deletable_when_o
8660: 70 65 6e 22 2c 20 53 51 4c 49 54 45 5f 49 4f 43  pen", SQLITE_IOC
8670: 41 50 5f 55 4e 44 45 4c 45 54 41 42 4c 45 5f 57  AP_UNDELETABLE_W
8680: 48 45 4e 5f 4f 50 45 4e 20 7d 2c 0a 20 20 20 20  HEN_OPEN },.    
8690: 20 20 20 20 7b 20 22 70 6f 77 65 72 73 61 66 65      { "powersafe
86a0: 5f 6f 76 65 72 77 72 69 74 65 22 2c 20 20 20 53  _overwrite",   S
86b0: 51 4c 49 54 45 5f 49 4f 43 41 50 5f 50 4f 57 45  QLITE_IOCAP_POWE
86c0: 52 53 41 46 45 5f 4f 56 45 52 57 52 49 54 45 20  RSAFE_OVERWRITE 
86d0: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 30    },.        { 0
86e0: 2c 20 30 20 7d 0a 20 20 20 20 20 20 7d 3b 0a 20  , 0 }.      };. 
86f0: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52       Tcl_Obj *pR
8700: 65 74 3b 0a 20 20 20 20 20 20 69 6e 74 20 69 46  et;.      int iF
8710: 6c 61 67 3b 0a 0a 20 20 20 20 20 20 69 66 28 20  lag;..      if( 
8720: 6f 62 6a 63 3e 33 20 29 7b 0a 20 20 20 20 20 20  objc>3 ){.      
8730: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
8740: 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62  gs(interp, 2, ob
8750: 6a 76 2c 20 22 3f 41 54 54 52 2d 4c 49 53 54 3f  jv, "?ATTR-LIST?
8760: 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  ");.        retu
8770: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
8780: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20      }.      if( 
8790: 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20  objc==3 ){.     
87a0: 20 20 20 69 6e 74 20 6a 3b 0a 20 20 20 20 20 20     int j;.      
87b0: 20 20 69 6e 74 20 69 4e 65 77 20 3d 20 30 3b 0a    int iNew = 0;.
87c0: 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20          Tcl_Obj 
87d0: 2a 2a 66 6c 61 67 73 20 3d 20 30 3b 0a 20 20 20  **flags = 0;.   
87e0: 20 20 20 20 20 69 6e 74 20 6e 46 6c 61 67 73 20       int nFlags 
87f0: 3d 20 30 3b 0a 0a 20 20 20 20 20 20 20 20 69 66  = 0;..        if
8800: 28 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74  ( Tcl_ListObjGet
8810: 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c  Elements(interp,
8820: 20 6f 62 6a 76 5b 32 5d 2c 20 26 6e 46 6c 61 67   objv[2], &nFlag
8830: 73 2c 20 26 66 6c 61 67 73 29 20 29 7b 0a 20 20  s, &flags) ){.  
8840: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54          return T
8850: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20  CL_ERROR;.      
8860: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 66 6f 72    }..        for
8870: 28 6a 3d 30 3b 20 6a 3c 6e 46 6c 61 67 73 3b 20  (j=0; j<nFlags; 
8880: 6a 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20  j++){.          
8890: 69 6e 74 20 69 64 78 20 3d 20 30 3b 0a 20 20 20  int idx = 0;.   
88a0: 20 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47         if( Tcl_G
88b0: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74  etIndexFromObjSt
88c0: 72 75 63 74 28 69 6e 74 65 72 70 2c 20 66 6c 61  ruct(interp, fla
88d0: 67 73 5b 6a 5d 2c 20 61 46 6c 61 67 2c 20 0a 20  gs[j], aFlag, . 
88e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73                 s
88f0: 69 7a 65 6f 66 28 61 46 6c 61 67 5b 30 5d 29 2c  izeof(aFlag[0]),
8900: 20 22 66 6c 61 67 22 2c 20 30 2c 20 26 69 64 78   "flag", 0, &idx
8910: 29 20 0a 20 20 20 20 20 20 20 20 20 20 29 7b 0a  ) .          ){.
8920: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
8930: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
8940: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
8950: 20 20 20 20 69 66 28 20 61 46 6c 61 67 5b 69 64      if( aFlag[id
8960: 78 5d 2e 69 56 61 6c 75 65 3c 30 20 26 26 20 6e  x].iValue<0 && n
8970: 46 6c 61 67 73 3e 31 20 29 7b 0a 20 20 20 20 20  Flags>1 ){.     
8980: 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e         Tcl_Appen
8990: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
89a0: 22 62 61 64 20 66 6c 61 67 73 3a 20 22 2c 20 54  "bad flags: ", T
89b0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
89c0: 76 5b 32 5d 29 2c 20 30 29 3b 0a 20 20 20 20 20  v[2]), 0);.     
89d0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
89e0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20  L_ERROR;.       
89f0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69     }.          i
8a00: 4e 65 77 20 7c 3d 20 61 46 6c 61 67 5b 69 64 78  New |= aFlag[idx
8a10: 5d 2e 69 56 61 6c 75 65 3b 0a 20 20 20 20 20 20  ].iValue;.      
8a20: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 70 2d 3e    }..        p->
8a30: 69 44 65 76 63 68 61 72 20 3d 20 69 4e 65 77 7c  iDevchar = iNew|
8a40: 20 30 78 31 30 30 30 30 30 30 30 3b 0a 20 20 20   0x10000000;.   
8a50: 20 20 20 7d 0a 0a 20 20 20 20 20 20 70 52 65 74     }..      pRet
8a60: 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b   = Tcl_NewObj();
8a70: 0a 20 20 20 20 20 20 66 6f 72 28 69 46 6c 61 67  .      for(iFlag
8a80: 3d 30 3b 20 69 46 6c 61 67 3c 73 69 7a 65 6f 66  =0; iFlag<sizeof
8a90: 28 61 46 6c 61 67 29 2f 73 69 7a 65 6f 66 28 61  (aFlag)/sizeof(a
8aa0: 46 6c 61 67 5b 30 5d 29 3b 20 69 46 6c 61 67 2b  Flag[0]); iFlag+
8ab0: 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20  +){.        if( 
8ac0: 70 2d 3e 69 44 65 76 63 68 61 72 20 26 20 61 46  p->iDevchar & aF
8ad0: 6c 61 67 5b 69 46 6c 61 67 5d 2e 69 56 61 6c 75  lag[iFlag].iValu
8ae0: 65 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 54  e ){.          T
8af0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
8b00: 45 6c 65 6d 65 6e 74 28 0a 20 20 20 20 20 20 20  Element(.       
8b10: 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c 20 70         interp, p
8b20: 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  Ret, Tcl_NewStri
8b30: 6e 67 4f 62 6a 28 61 46 6c 61 67 5b 69 46 6c 61  ngObj(aFlag[iFla
8b40: 67 5d 2e 7a 4e 61 6d 65 2c 20 2d 31 29 0a 20 20  g].zName, -1).  
8b50: 20 20 20 20 20 20 20 20 29 3b 0a 20 20 20 20 20          );.     
8b60: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20     }.      }.   
8b70: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
8b80: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 65 74  ult(interp, pRet
8b90: 29 3b 0a 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  );..      break;
8ba0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
8bb0: 20 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a 45 3a   CMD_SECTORSIZE:
8bc0: 20 7b 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a   {.      if( obj
8bd0: 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 20 20 54  c>3 ){.        T
8be0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
8bf0: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
8c00: 20 22 3f 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20   "?VALUE?");.   
8c10: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
8c20: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
8c30: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33       if( objc==3
8c40: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20   ){.        int 
8c50: 69 4e 65 77 20 3d 20 30 3b 0a 20 20 20 20 20 20  iNew = 0;.      
8c60: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74    if( Tcl_GetInt
8c70: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
8c80: 6f 62 6a 76 5b 32 5d 2c 20 26 69 4e 65 77 29 20  objv[2], &iNew) 
8c90: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74  ){.          ret
8ca0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
8cb0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
8cc0: 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65 20   p->iSectorsize 
8cd0: 3d 20 69 4e 65 77 3b 0a 20 20 20 20 20 20 7d 0a  = iNew;.      }.
8ce0: 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a        Tcl_SetObj
8cf0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54  Result(interp, T
8d00: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 2d 3e  cl_NewIntObj(p->
8d10: 69 53 65 63 74 6f 72 73 69 7a 65 29 29 3b 0a 20  iSectorsize));. 
8d20: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
8d30: 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  }.  }..  return 
8d40: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69  TCL_OK;.}..stati
8d50: 63 20 76 6f 69 64 20 74 65 73 74 76 66 73 5f 6f  c void testvfs_o
8d60: 62 6a 5f 64 65 6c 28 43 6c 69 65 6e 74 44 61 74  bj_del(ClientDat
8d70: 61 20 63 64 29 7b 0a 20 20 54 65 73 74 76 66 73  a cd){.  Testvfs
8d80: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
8d90: 29 63 64 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53  )cd;.  if( p->pS
8da0: 63 72 69 70 74 20 29 20 54 63 6c 5f 44 65 63 72  cript ) Tcl_Decr
8db0: 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53 63 72  RefCount(p->pScr
8dc0: 69 70 74 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f  ipt);.  sqlite3_
8dd0: 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 70  vfs_unregister(p
8de0: 2d 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66 72 65  ->pVfs);.  ckfre
8df0: 65 28 28 63 68 61 72 20 2a 29 70 2d 3e 70 56 66  e((char *)p->pVf
8e00: 73 29 3b 0a 20 20 63 6b 66 72 65 65 28 28 63 68  s);.  ckfree((ch
8e10: 61 72 20 2a 29 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  ar *)p);.}../*.*
8e20: 2a 20 55 73 61 67 65 3a 20 20 74 65 73 74 76 66  * Usage:  testvf
8e30: 73 20 56 46 53 4e 41 4d 45 20 3f 53 57 49 54 43  s VFSNAME ?SWITC
8e40: 48 45 53 3f 0a 2a 2a 0a 2a 2a 20 53 77 69 74 63  HES?.**.** Switc
8e50: 68 65 73 20 61 72 65 3a 0a 2a 2a 0a 2a 2a 20 20  hes are:.**.**  
8e60: 20 2d 6e 6f 73 68 6d 20 20 20 42 4f 4f 4c 45 41   -noshm   BOOLEA
8e70: 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54  N             (T
8e80: 72 75 65 20 74 6f 20 6f 6d 69 74 20 73 68 6d 20  rue to omit shm 
8e90: 6d 65 74 68 6f 64 73 2e 20 44 65 66 61 75 6c 74  methods. Default
8ea0: 20 66 61 6c 73 65 29 0a 2a 2a 20 20 20 2d 64 65   false).**   -de
8eb0: 66 61 75 6c 74 20 42 4f 4f 4c 45 41 4e 20 20 20  fault BOOLEAN   
8ec0: 20 20 20 20 20 20 20 20 20 20 28 54 72 75 65 20            (True 
8ed0: 74 6f 20 6d 61 6b 65 20 74 68 65 20 76 66 73 20  to make the vfs 
8ee0: 64 65 66 61 75 6c 74 2e 20 44 65 66 61 75 6c 74  default. Default
8ef0: 20 66 61 6c 73 65 29 0a 2a 2a 0a 2a 2a 20 54 68   false).**.** Th
8f00: 69 73 20 63 6f 6d 6d 61 6e 64 20 63 72 65 61 74  is command creat
8f10: 65 73 20 74 77 6f 20 74 68 69 6e 67 73 20 77 68  es two things wh
8f20: 65 6e 20 69 74 20 69 73 20 69 6e 76 6f 6b 65 64  en it is invoked
8f30: 3a 20 61 6e 20 53 51 4c 69 74 65 20 56 46 53 2c  : an SQLite VFS,
8f40: 20 61 6e 64 0a 2a 2a 20 61 20 54 63 6c 20 63 6f   and.** a Tcl co
8f50: 6d 6d 61 6e 64 2e 20 42 6f 74 68 20 61 72 65 20  mmand. Both are 
8f60: 6e 61 6d 65 64 20 56 46 53 4e 41 4d 45 2e 20 54  named VFSNAME. T
8f70: 68 65 20 56 46 53 20 69 73 20 69 6e 73 74 61 6c  he VFS is instal
8f80: 6c 65 64 2e 20 49 74 20 69 73 20 6e 6f 74 0a 2a  led. It is not.*
8f90: 2a 20 69 6e 73 74 61 6c 6c 65 64 20 61 73 20 74  * installed as t
8fa0: 68 65 20 64 65 66 61 75 6c 74 20 56 46 53 2e 0a  he default VFS..
8fb0: 2a 2a 0a 2a 2a 20 54 68 65 20 56 46 53 20 70 61  **.** The VFS pa
8fc0: 73 73 65 73 20 61 6c 6c 20 66 69 6c 65 20 49 2f  sses all file I/
8fd0: 4f 20 63 61 6c 6c 73 20 74 68 72 6f 75 67 68 20  O calls through 
8fe0: 74 6f 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e  to the underlyin
8ff0: 67 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 57 68 65  g VFS..**.** Whe
9000: 6e 65 76 65 72 20 74 68 65 20 78 53 68 6d 4d 61  never the xShmMa
9010: 70 20 6d 65 74 68 6f 64 20 6f 66 20 74 68 65 20  p method of the 
9020: 56 46 53 0a 2a 2a 20 69 73 20 69 6e 76 6f 6b 65  VFS.** is invoke
9030: 64 2c 20 74 68 65 20 53 43 52 49 50 54 20 69 73  d, the SCRIPT is
9040: 20 65 78 65 63 75 74 65 64 20 61 73 20 66 6f 6c   executed as fol
9050: 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 43  lows:.**.**   SC
9060: 52 49 50 54 20 78 53 68 6d 4d 61 70 20 20 20 20  RIPT xShmMap    
9070: 46 49 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a 0a 2a  FILENAME ID.**.*
9080: 2a 20 54 68 65 20 76 61 6c 75 65 20 72 65 74 75  * The value retu
9090: 72 6e 65 64 20 62 79 20 74 68 65 20 69 6e 76 6f  rned by the invo
90a0: 63 61 74 69 6f 6e 20 6f 66 20 53 43 52 49 50 54  cation of SCRIPT
90b0: 20 61 62 6f 76 65 20 69 73 20 69 6e 74 65 72 70   above is interp
90c0: 72 65 74 65 64 20 61 73 0a 2a 2a 20 61 6e 20 53  reted as.** an S
90d0: 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65  QLite error code
90e0: 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20 74 6f   and returned to
90f0: 20 53 51 4c 69 74 65 2e 20 45 69 74 68 65 72 20   SQLite. Either 
9100: 61 20 73 79 6d 62 6f 6c 69 63 20 0a 2a 2a 20 22  a symbolic .** "
9110: 53 51 4c 49 54 45 5f 4f 4b 22 20 6f 72 20 6e 75  SQLITE_OK" or nu
9120: 6d 65 72 69 63 20 22 30 22 20 76 61 6c 75 65 20  meric "0" value 
9130: 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65 64 2e  may be returned.
9140: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e 74 65  .**.** The conte
9150: 6e 74 73 20 6f 66 20 74 68 65 20 73 68 61 72 65  nts of the share
9160: 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 20  d-memory buffer 
9170: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
9180: 61 20 67 69 76 65 6e 20 66 69 6c 65 0a 2a 2a 20  a given file.** 
9190: 6d 61 79 20 62 65 20 72 65 61 64 20 61 6e 64 20  may be read and 
91a0: 73 65 74 20 75 73 69 6e 67 20 74 68 65 20 66 6f  set using the fo
91b0: 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 3a  llowing command:
91c0: 0a 2a 2a 0a 2a 2a 20 20 20 56 46 53 4e 41 4d 45  .**.**   VFSNAME
91d0: 20 73 68 6d 20 46 49 4c 45 4e 41 4d 45 20 3f 4e   shm FILENAME ?N
91e0: 45 57 56 41 4c 55 45 3f 0a 2a 2a 0a 2a 2a 20 57  EWVALUE?.**.** W
91f0: 68 65 6e 20 74 68 65 20 78 53 68 6d 4c 6f 63 6b  hen the xShmLock
9200: 20 6d 65 74 68 6f 64 20 69 73 20 69 6e 76 6f 6b   method is invok
9210: 65 64 20 62 79 20 53 51 4c 69 74 65 2c 20 74 68  ed by SQLite, th
9220: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 63 72 69  e following scri
9230: 70 74 20 69 73 0a 2a 2a 20 72 75 6e 3a 0a 2a 2a  pt is.** run:.**
9240: 0a 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53 68  .**   SCRIPT xSh
9250: 6d 4c 6f 63 6b 20 20 20 20 46 49 4c 45 4e 41 4d  mLock    FILENAM
9260: 45 20 49 44 20 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20  E ID LOCK.**.** 
9270: 77 68 65 72 65 20 4c 4f 43 4b 20 69 73 20 6f 66  where LOCK is of
9280: 20 74 68 65 20 66 6f 72 6d 20 22 4f 46 46 53 45   the form "OFFSE
9290: 54 20 4e 42 59 54 45 20 6c 6f 63 6b 2f 75 6e 6c  T NBYTE lock/unl
92a0: 6f 63 6b 20 73 68 61 72 65 64 2f 65 78 63 6c 75  ock shared/exclu
92b0: 73 69 76 65 22 0a 2a 2f 0a 73 74 61 74 69 63 20  sive".*/.static 
92c0: 69 6e 74 20 74 65 73 74 76 66 73 5f 63 6d 64 28  int testvfs_cmd(
92d0: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 64  .  ClientData cd
92e0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
92f0: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62  interp,.  int ob
9300: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43  jc,.  Tcl_Obj *C
9310: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20  ONST objv[].){. 
9320: 20 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f   static sqlite3_
9330: 76 66 73 20 74 76 66 73 5f 76 66 73 20 3d 20 7b  vfs tvfs_vfs = {
9340: 0a 20 20 20 20 32 2c 20 20 20 20 20 20 20 20 20  .    2,         
9350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9360: 20 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a     /* iVersion *
9370: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
9380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9390: 20 20 20 20 2f 2a 20 73 7a 4f 73 46 69 6c 65 20      /* szOsFile 
93a0: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
93b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
93c0: 20 20 20 20 20 2f 2a 20 6d 78 50 61 74 68 6e 61       /* mxPathna
93d0: 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  me */.    0,    
93e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
93f0: 20 20 20 20 20 20 20 20 2f 2a 20 70 4e 65 78 74          /* pNext
9400: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
9410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9420: 20 20 20 20 20 20 2f 2a 20 7a 4e 61 6d 65 20 2a        /* zName *
9430: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
9440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9450: 20 20 20 20 2f 2a 20 70 41 70 70 44 61 74 61 20      /* pAppData 
9460: 2a 2f 0a 20 20 20 20 74 76 66 73 4f 70 65 6e 2c  */.    tvfsOpen,
9470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9480: 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20 2a 2f       /* xOpen */
9490: 0a 20 20 20 20 74 76 66 73 44 65 6c 65 74 65 2c  .    tvfsDelete,
94a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
94b0: 20 20 20 2f 2a 20 78 44 65 6c 65 74 65 20 2a 2f     /* xDelete */
94c0: 0a 20 20 20 20 74 76 66 73 41 63 63 65 73 73 2c  .    tvfsAccess,
94d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
94e0: 20 20 20 2f 2a 20 78 41 63 63 65 73 73 20 2a 2f     /* xAccess */
94f0: 0a 20 20 20 20 74 76 66 73 46 75 6c 6c 50 61 74  .    tvfsFullPat
9500: 68 6e 61 6d 65 2c 20 20 20 20 20 20 20 20 20 20  hname,          
9510: 20 20 20 2f 2a 20 78 46 75 6c 6c 50 61 74 68 6e     /* xFullPathn
9520: 61 6d 65 20 2a 2f 0a 23 69 66 6e 64 65 66 20 53  ame */.#ifndef S
9530: 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f  QLITE_OMIT_LOAD_
9540: 45 58 54 45 4e 53 49 4f 4e 0a 20 20 20 20 74 76  EXTENSION.    tv
9550: 66 73 44 6c 4f 70 65 6e 2c 20 20 20 20 20 20 20  fsDlOpen,       
9560: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
9570: 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20 20 74 76  DlOpen */.    tv
9580: 66 73 44 6c 45 72 72 6f 72 2c 20 20 20 20 20 20  fsDlError,      
9590: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
95a0: 44 6c 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 74  DlError */.    t
95b0: 76 66 73 44 6c 53 79 6d 2c 20 20 20 20 20 20 20  vfsDlSym,       
95c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
95d0: 78 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20 74 76  xDlSym */.    tv
95e0: 66 73 44 6c 43 6c 6f 73 65 2c 20 20 20 20 20 20  fsDlClose,      
95f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
9600: 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65 6c 73 65  DlClose */.#else
9610: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
9620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9630: 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f     /* xDlOpen */
9640: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
9650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9660: 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72 20 2a     /* xDlError *
9670: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
9680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9690: 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20 2a 2f      /* xDlSym */
96a0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
96b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
96c0: 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65 20 2a     /* xDlClose *
96d0: 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49  /.#endif /* SQLI
96e0: 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54  TE_OMIT_LOAD_EXT
96f0: 45 4e 53 49 4f 4e 20 2a 2f 0a 20 20 20 20 74 76  ENSION */.    tv
9700: 66 73 52 61 6e 64 6f 6d 6e 65 73 73 2c 20 20 20  fsRandomness,   
9710: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
9720: 52 61 6e 64 6f 6d 6e 65 73 73 20 2a 2f 0a 20 20  Randomness */.  
9730: 20 20 74 76 66 73 53 6c 65 65 70 2c 20 20 20 20    tvfsSleep,    
9740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9750: 2f 2a 20 78 53 6c 65 65 70 20 2a 2f 0a 20 20 20  /* xSleep */.   
9760: 20 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65   tvfsCurrentTime
9770: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ,              /
9780: 2a 20 78 43 75 72 72 65 6e 74 54 69 6d 65 20 2a  * xCurrentTime *
9790: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
97a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
97b0: 20 20 20 20 2f 2a 20 78 47 65 74 4c 61 73 74 45      /* xGetLastE
97c0: 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c 20 20  rror */.    0,  
97d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
97e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43 75            /* xCu
97f0: 72 72 65 6e 74 54 69 6d 65 49 6e 74 36 34 20 2a  rrentTimeInt64 *
9800: 2f 0a 20 20 7d 3b 0a 0a 20 20 54 65 73 74 76 66  /.  };..  Testvf
9810: 73 20 2a 70 3b 20 20 20 20 20 20 20 20 20 20 20  s *p;           
9820: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 77            /* New
9830: 20 6f 62 6a 65 63 74 20 2a 2f 0a 20 20 73 71 6c   object */.  sql
9840: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b 20  ite3_vfs *pVfs; 
9850: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
9860: 4e 65 77 20 56 46 53 20 2a 2f 0a 20 20 63 68 61  New VFS */.  cha
9870: 72 20 2a 7a 56 66 73 3b 0a 20 20 69 6e 74 20 6e  r *zVfs;.  int n
9880: 42 79 74 65 3b 20 20 20 20 20 20 20 20 20 20 20  Byte;           
9890: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 42 79             /* By
98a0: 74 65 73 20 6f 66 20 73 70 61 63 65 20 74 6f 20  tes of space to 
98b0: 61 6c 6c 6f 63 61 74 65 20 61 74 20 70 20 2a 2f  allocate at p */
98c0: 0a 0a 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74  ..  int i;.  int
98d0: 20 69 73 4e 6f 73 68 6d 20 3d 20 30 3b 20 20 20   isNoshm = 0;   
98e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
98f0: 54 72 75 65 20 69 66 20 2d 6e 6f 73 68 6d 20 69  True if -noshm i
9900: 73 20 70 61 73 73 65 64 20 2a 2f 0a 20 20 69 6e  s passed */.  in
9910: 74 20 69 73 44 65 66 61 75 6c 74 20 3d 20 30 3b  t isDefault = 0;
9920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
9930: 20 54 72 75 65 20 69 66 20 2d 64 65 66 61 75 6c   True if -defaul
9940: 74 20 69 73 20 70 61 73 73 65 64 20 2a 2f 0a 20  t is passed */. 
9950: 20 69 6e 74 20 73 7a 4f 73 46 69 6c 65 20 3d 20   int szOsFile = 
9960: 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0;              
9970: 20 2f 2a 20 56 61 6c 75 65 20 70 61 73 73 65 64   /* Value passed
9980: 20 74 6f 20 2d 73 7a 6f 73 66 69 6c 65 20 2a 2f   to -szosfile */
9990: 0a 20 20 69 6e 74 20 6d 78 50 61 74 68 6e 61 6d  .  int mxPathnam
99a0: 65 20 3d 20 2d 31 3b 20 20 20 20 20 20 20 20 20  e = -1;         
99b0: 20 20 20 2f 2a 20 56 61 6c 75 65 20 70 61 73 73     /* Value pass
99c0: 65 64 20 74 6f 20 2d 6d 78 70 61 74 68 6e 61 6d  ed to -mxpathnam
99d0: 65 20 2a 2f 0a 20 20 69 6e 74 20 69 56 65 72 73  e */.  int iVers
99e0: 69 6f 6e 20 3d 20 32 3b 20 20 20 20 20 20 20 20  ion = 2;        
99f0: 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20         /* Value 
9a00: 70 61 73 73 65 64 20 74 6f 20 2d 69 76 65 72 73  passed to -ivers
9a10: 69 6f 6e 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62  ion */..  if( ob
9a20: 6a 63 3c 32 20 7c 7c 20 30 21 3d 28 6f 62 6a 63  jc<2 || 0!=(objc
9a30: 25 32 29 20 29 20 67 6f 74 6f 20 62 61 64 5f 61  %2) ) goto bad_a
9a40: 72 67 73 3b 0a 20 20 66 6f 72 28 69 3d 32 3b 20  rgs;.  for(i=2; 
9a50: 69 3c 6f 62 6a 63 3b 20 69 20 2b 3d 20 32 29 7b  i<objc; i += 2){
9a60: 0a 20 20 20 20 69 6e 74 20 6e 53 77 69 74 63 68  .    int nSwitch
9a70: 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 53 77 69  ;.    char *zSwi
9a80: 74 63 68 3b 0a 20 20 20 20 7a 53 77 69 74 63 68  tch;.    zSwitch
9a90: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
9aa0: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 5d 2c  FromObj(objv[i],
9ab0: 20 26 6e 53 77 69 74 63 68 29 3b 20 0a 0a 20 20   &nSwitch); ..  
9ac0: 20 20 69 66 28 20 6e 53 77 69 74 63 68 3e 32 20    if( nSwitch>2 
9ad0: 26 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d  && 0==strncmp("-
9ae0: 6e 6f 73 68 6d 22 2c 20 7a 53 77 69 74 63 68 2c  noshm", zSwitch,
9af0: 20 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20   nSwitch) ){.   
9b00: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f     if( Tcl_GetBo
9b10: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74  oleanFromObj(int
9b20: 65 72 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20  erp, objv[i+1], 
9b30: 26 69 73 4e 6f 73 68 6d 29 20 29 7b 0a 20 20 20  &isNoshm) ){.   
9b40: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
9b50: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
9b60: 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66     }.    else if
9b70: 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30  ( nSwitch>2 && 0
9b80: 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 64 65 66 61  ==strncmp("-defa
9b90: 75 6c 74 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e  ult", zSwitch, n
9ba0: 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20  Switch) ){.     
9bb0: 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c   if( Tcl_GetBool
9bc0: 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  eanFromObj(inter
9bd0: 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69  p, objv[i+1], &i
9be0: 73 44 65 66 61 75 6c 74 29 20 29 7b 0a 20 20 20  sDefault) ){.   
9bf0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
9c00: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
9c10: 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66     }.    else if
9c20: 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30  ( nSwitch>2 && 0
9c30: 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 73 7a 6f 73  ==strncmp("-szos
9c40: 66 69 6c 65 22 2c 20 7a 53 77 69 74 63 68 2c 20  file", zSwitch, 
9c50: 6e 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20  nSwitch) ){.    
9c60: 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74    if( Tcl_GetInt
9c70: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
9c80: 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 73 7a 4f 73  objv[i+1], &szOs
9c90: 46 69 6c 65 29 20 29 7b 0a 20 20 20 20 20 20 20  File) ){.       
9ca0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
9cb0: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  R;.      }.    }
9cc0: 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e 53  .    else if( nS
9cd0: 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73 74  witch>2 && 0==st
9ce0: 72 6e 63 6d 70 28 22 2d 6d 78 70 61 74 68 6e 61  rncmp("-mxpathna
9cf0: 6d 65 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53  me", zSwitch, nS
9d00: 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20  witch) ){.      
9d10: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72  if( Tcl_GetIntFr
9d20: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
9d30: 6a 76 5b 69 2b 31 5d 2c 20 26 6d 78 50 61 74 68  jv[i+1], &mxPath
9d40: 6e 61 6d 65 29 20 29 7b 0a 20 20 20 20 20 20 20  name) ){.       
9d50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
9d60: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  R;.      }.    }
9d70: 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20 6e 53  .    else if( nS
9d80: 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d 73 74  witch>2 && 0==st
9d90: 72 6e 63 6d 70 28 22 2d 69 76 65 72 73 69 6f 6e  rncmp("-iversion
9da0: 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69  ", zSwitch, nSwi
9db0: 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66  tch) ){.      if
9dc0: 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d  ( Tcl_GetIntFrom
9dd0: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  Obj(interp, objv
9de0: 5b 69 2b 31 5d 2c 20 26 69 56 65 72 73 69 6f 6e  [i+1], &iVersion
9df0: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74  ) ){.        ret
9e00: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
9e10: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
9e20: 20 65 6c 73 65 7b 0a 20 20 20 20 20 20 67 6f 74   else{.      got
9e30: 6f 20 62 61 64 5f 61 72 67 73 3b 0a 20 20 20 20  o bad_args;.    
9e40: 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20 73 7a 4f  }.  }..  if( szO
9e50: 73 46 69 6c 65 3c 73 69 7a 65 6f 66 28 54 65 73  sFile<sizeof(Tes
9e60: 74 76 66 73 46 69 6c 65 29 20 29 7b 0a 20 20 20  tvfsFile) ){.   
9e70: 20 73 7a 4f 73 46 69 6c 65 20 3d 20 73 69 7a 65   szOsFile = size
9e80: 6f 66 28 54 65 73 74 76 66 73 46 69 6c 65 29 3b  of(TestvfsFile);
9e90: 0a 20 20 7d 0a 0a 20 20 7a 56 66 73 20 3d 20 54  .  }..  zVfs = T
9ea0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
9eb0: 76 5b 31 5d 29 3b 0a 20 20 6e 42 79 74 65 20 3d  v[1]);.  nByte =
9ec0: 20 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 29   sizeof(Testvfs)
9ed0: 20 2b 20 73 74 72 6c 65 6e 28 7a 56 66 73 29 2b   + strlen(zVfs)+
9ee0: 31 3b 0a 20 20 70 20 3d 20 28 54 65 73 74 76 66  1;.  p = (Testvf
9ef0: 73 20 2a 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74  s *)ckalloc(nByt
9f00: 65 29 3b 0a 20 20 6d 65 6d 73 65 74 28 70 2c 20  e);.  memset(p, 
9f10: 30 2c 20 6e 42 79 74 65 29 3b 0a 20 20 70 2d 3e  0, nByte);.  p->
9f20: 69 44 65 76 63 68 61 72 20 3d 20 2d 31 3b 0a 20  iDevchar = -1;. 
9f30: 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65 20   p->iSectorsize 
9f40: 3d 20 2d 31 3b 0a 0a 20 20 2f 2a 20 43 72 65 61  = -1;..  /* Crea
9f50: 74 65 20 74 68 65 20 6e 65 77 20 6f 62 6a 65 63  te the new objec
9f60: 74 20 63 6f 6d 6d 61 6e 64 20 62 65 66 6f 72 65  t command before
9f70: 20 71 75 65 72 79 69 6e 67 20 53 51 4c 69 74 65   querying SQLite
9f80: 20 66 6f 72 20 61 20 64 65 66 61 75 6c 74 20 56   for a default V
9f90: 46 53 0a 20 20 2a 2a 20 74 6f 20 75 73 65 20 66  FS.  ** to use f
9fa0: 6f 72 20 27 72 65 61 6c 27 20 49 4f 20 6f 70 65  or 'real' IO ope
9fb0: 72 61 74 69 6f 6e 73 2e 20 54 68 69 73 20 69 73  rations. This is
9fc0: 20 62 65 63 61 75 73 65 20 63 72 65 61 74 69 6e   because creatin
9fd0: 67 20 74 68 65 20 6e 65 77 20 56 46 53 0a 20 20  g the new VFS.  
9fe0: 2a 2a 20 6d 61 79 20 64 65 6c 65 74 65 20 61 6e  ** may delete an
9ff0: 20 65 78 69 73 74 69 6e 67 20 5b 74 65 73 74 76   existing [testv
a000: 66 73 5d 20 56 46 53 20 6f 66 20 74 68 65 20 73  fs] VFS of the s
a010: 61 6d 65 20 6e 61 6d 65 2e 20 49 66 20 73 75 63  ame name. If suc
a020: 68 20 61 20 56 46 53 0a 20 20 2a 2a 20 69 73 20  h a VFS.  ** is 
a030: 63 75 72 72 65 6e 74 6c 79 20 74 68 65 20 64 65  currently the de
a040: 66 61 75 6c 74 2c 20 74 68 65 20 6e 65 77 20 5b  fault, the new [
a050: 74 65 73 74 76 66 73 5d 20 6d 61 79 20 65 6e 64  testvfs] may end
a060: 20 75 70 20 63 61 6c 6c 69 6e 67 20 74 68 65 20   up calling the 
a070: 0a 20 20 2a 2a 20 6d 65 74 68 6f 64 73 20 6f 66  .  ** methods of
a080: 20 61 20 64 65 6c 65 74 65 64 20 6f 62 6a 65 63   a deleted objec
a090: 74 2e 0a 20 20 2a 2f 0a 20 20 54 63 6c 5f 43 72  t..  */.  Tcl_Cr
a0a0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69  eateObjCommand(i
a0b0: 6e 74 65 72 70 2c 20 7a 56 66 73 2c 20 74 65 73  nterp, zVfs, tes
a0c0: 74 76 66 73 5f 6f 62 6a 5f 63 6d 64 2c 20 70 2c  tvfs_obj_cmd, p,
a0d0: 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 64 65 6c   testvfs_obj_del
a0e0: 29 3b 0a 20 20 70 2d 3e 70 50 61 72 65 6e 74 20  );.  p->pParent 
a0f0: 3d 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 66 69  = sqlite3_vfs_fi
a100: 6e 64 28 30 29 3b 0a 20 20 70 2d 3e 69 6e 74 65  nd(0);.  p->inte
a110: 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 0a 20 20  rp = interp;..  
a120: 70 2d 3e 7a 4e 61 6d 65 20 3d 20 28 63 68 61 72  p->zName = (char
a130: 20 2a 29 26 70 5b 31 5d 3b 0a 20 20 6d 65 6d 63   *)&p[1];.  memc
a140: 70 79 28 70 2d 3e 7a 4e 61 6d 65 2c 20 7a 56 66  py(p->zName, zVf
a150: 73 2c 20 73 74 72 6c 65 6e 28 7a 56 66 73 29 2b  s, strlen(zVfs)+
a160: 31 29 3b 0a 0a 20 20 70 56 66 73 20 3d 20 28 73  1);..  pVfs = (s
a170: 71 6c 69 74 65 33 5f 76 66 73 20 2a 29 63 6b 61  qlite3_vfs *)cka
a180: 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 73 71 6c 69  lloc(sizeof(sqli
a190: 74 65 33 5f 76 66 73 29 29 3b 0a 20 20 6d 65 6d  te3_vfs));.  mem
a1a0: 63 70 79 28 70 56 66 73 2c 20 26 74 76 66 73 5f  cpy(pVfs, &tvfs_
a1b0: 76 66 73 2c 20 73 69 7a 65 6f 66 28 73 71 6c 69  vfs, sizeof(sqli
a1c0: 74 65 33 5f 76 66 73 29 29 3b 0a 20 20 70 56 66  te3_vfs));.  pVf
a1d0: 73 2d 3e 70 41 70 70 44 61 74 61 20 3d 20 28 76  s->pAppData = (v
a1e0: 6f 69 64 20 2a 29 70 3b 0a 20 20 70 56 66 73 2d  oid *)p;.  pVfs-
a1f0: 3e 69 56 65 72 73 69 6f 6e 20 3d 20 69 56 65 72  >iVersion = iVer
a200: 73 69 6f 6e 3b 0a 20 20 70 56 66 73 2d 3e 7a 4e  sion;.  pVfs->zN
a210: 61 6d 65 20 3d 20 70 2d 3e 7a 4e 61 6d 65 3b 0a  ame = p->zName;.
a220: 20 20 70 56 66 73 2d 3e 6d 78 50 61 74 68 6e 61    pVfs->mxPathna
a230: 6d 65 20 3d 20 70 2d 3e 70 50 61 72 65 6e 74 2d  me = p->pParent-
a240: 3e 6d 78 50 61 74 68 6e 61 6d 65 3b 0a 20 20 69  >mxPathname;.  i
a250: 66 28 20 6d 78 50 61 74 68 6e 61 6d 65 3e 3d 30  f( mxPathname>=0
a260: 20 26 26 20 6d 78 50 61 74 68 6e 61 6d 65 3c 70   && mxPathname<p
a270: 56 66 73 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 20  Vfs->mxPathname 
a280: 29 7b 0a 20 20 20 20 70 56 66 73 2d 3e 6d 78 50  ){.    pVfs->mxP
a290: 61 74 68 6e 61 6d 65 20 3d 20 6d 78 50 61 74 68  athname = mxPath
a2a0: 6e 61 6d 65 3b 0a 20 20 7d 0a 20 20 70 56 66 73  name;.  }.  pVfs
a2b0: 2d 3e 73 7a 4f 73 46 69 6c 65 20 3d 20 73 7a 4f  ->szOsFile = szO
a2c0: 73 46 69 6c 65 3b 0a 20 20 70 2d 3e 70 56 66 73  sFile;.  p->pVfs
a2d0: 20 3d 20 70 56 66 73 3b 0a 20 20 70 2d 3e 69 73   = pVfs;.  p->is
a2e0: 4e 6f 73 68 6d 20 3d 20 69 73 4e 6f 73 68 6d 3b  Noshm = isNoshm;
a2f0: 0a 20 20 70 2d 3e 6d 61 73 6b 20 3d 20 54 45 53  .  p->mask = TES
a300: 54 56 46 53 5f 41 4c 4c 5f 4d 41 53 4b 3b 0a 0a  TVFS_ALL_MASK;..
a310: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 72 65    sqlite3_vfs_re
a320: 67 69 73 74 65 72 28 70 56 66 73 2c 20 69 73 44  gister(pVfs, isD
a330: 65 66 61 75 6c 74 29 3b 0a 0a 20 20 72 65 74 75  efault);..  retu
a340: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 20 62 61 64  rn TCL_OK;.. bad
a350: 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f 57 72 6f  _args:.  Tcl_Wro
a360: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
a370: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 56 46 53 4e  , 1, objv, "VFSN
a380: 41 4d 45 20 3f 2d 6e 6f 73 68 6d 20 42 4f 4f 4c  AME ?-noshm BOOL
a390: 3f 20 3f 2d 64 65 66 61 75 6c 74 20 42 4f 4f 4c  ? ?-default BOOL
a3a0: 3f 20 3f 2d 6d 78 70 61 74 68 6e 61 6d 65 20 49  ? ?-mxpathname I
a3b0: 4e 54 3f 20 3f 2d 73 7a 6f 73 66 69 6c 65 20 49  NT? ?-szosfile I
a3c0: 4e 54 3f 20 3f 2d 69 76 65 72 73 69 6f 6e 20 49  NT? ?-iversion I
a3d0: 4e 54 3f 22 29 3b 0a 20 20 72 65 74 75 72 6e 20  NT?");.  return 
a3e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 69 6e  TCL_ERROR;.}..in
a3f0: 74 20 53 71 6c 69 74 65 74 65 73 74 76 66 73 5f  t Sqlitetestvfs_
a400: 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  Init(Tcl_Interp 
a410: 2a 69 6e 74 65 72 70 29 7b 0a 20 20 54 63 6c 5f  *interp){.  Tcl_
a420: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
a430: 28 69 6e 74 65 72 70 2c 20 22 74 65 73 74 76 66  (interp, "testvf
a440: 73 22 2c 20 74 65 73 74 76 66 73 5f 63 6d 64 2c  s", testvfs_cmd,
a450: 20 30 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e   0, 0);.  return
a460: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 65 6e 64   TCL_OK;.}..#end
a470: 69 66 0a                                         if.