/ Hex Artifact Content
Login

Artifact e72f555ef7a59080f898fcf1a233deb9eb704ea9:


0000: 2f 2a 0a 2a 2a 20 32 30 31 30 20 4d 61 79 20 30  /*.** 2010 May 0
0010: 35 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68  5.**.** The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c 65  place of.** a le
0060: 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65  gal notice, here
0070: 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a   is a blessing:.
0080: 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f 75  **.**    May you
0090: 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74   do good and not
00a0: 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61 79   evil..**    May
00b0: 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 76   you find forgiv
00c0: 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 65  eness for yourse
00d0: 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 6f  lf and forgive o
00e0: 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61 79  thers..**    May
00f0: 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 6c   you share freel
0100: 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 20  y, never taking 
0110: 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 69  more than you gi
0120: 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ve..**.*********
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 2a 2a 2a 0a 2a 2a 0a 2a 2a 20 54 68 69 73  *****.**.** This
0180: 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74   file contains t
0190: 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f  he implementatio
01a0: 6e 20 6f 66 20 74 68 65 20 54 63 6c 20 5b 74 65  n of the Tcl [te
01b0: 73 74 76 66 73 5d 20 63 6f 6d 6d 61 6e 64 2c 0a  stvfs] command,.
01c0: 2a 2a 20 75 73 65 64 20 74 6f 20 63 72 65 61 74  ** used to creat
01d0: 65 20 53 51 4c 69 74 65 20 56 46 53 20 69 6d 70  e SQLite VFS imp
01e0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 77 69 74  lementations wit
01f0: 68 20 76 61 72 69 6f 75 73 20 70 72 6f 70 65 72  h various proper
0200: 74 69 65 73 20 61 6e 64 0a 2a 2a 20 69 6e 73 74  ties and.** inst
0210: 72 75 6d 65 6e 74 61 74 69 6f 6e 20 74 6f 20 73  rumentation to s
0220: 75 70 70 6f 72 74 20 74 65 73 74 69 6e 67 20 53  upport testing S
0230: 51 4c 69 74 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 74  QLite..**.**   t
0240: 65 73 74 76 66 73 20 56 46 53 4e 41 4d 45 20 3f  estvfs VFSNAME ?
0250: 4f 50 54 49 4f 4e 53 3f 0a 2a 2a 0a 2a 2a 20 41  OPTIONS?.**.** A
0260: 76 61 69 6c 61 62 6c 65 20 6f 70 74 69 6f 6e 73  vailable options
0270: 20 61 72 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 2d 6e   are:.**.**   -n
0280: 6f 73 68 6d 20 20 20 20 20 20 42 4f 4f 4c 45 41  oshm      BOOLEA
0290: 4e 20 20 20 20 20 20 20 20 28 54 72 75 65 20 74  N        (True t
02a0: 6f 20 6f 6d 69 74 20 73 68 6d 20 6d 65 74 68 6f  o omit shm metho
02b0: 64 73 2e 20 44 65 66 61 75 6c 74 20 66 61 6c 73  ds. Default fals
02c0: 65 29 0a 2a 2a 20 20 20 2d 64 65 66 61 75 6c 74  e).**   -default
02d0: 20 20 20 20 42 4f 4f 4c 45 41 4e 20 20 20 20 20      BOOLEAN     
02e0: 20 20 20 28 54 72 75 65 20 74 6f 20 6d 61 6b 65     (True to make
02f0: 20 74 68 65 20 76 66 73 20 64 65 66 61 75 6c 74   the vfs default
0300: 2e 20 44 65 66 61 75 6c 74 20 66 61 6c 73 65 29  . Default false)
0310: 0a 2a 2a 20 20 20 2d 73 7a 6f 73 66 69 6c 65 20  .**   -szosfile 
0320: 20 20 49 4e 54 45 47 45 52 20 20 20 20 20 20 20    INTEGER       
0330: 20 28 56 61 6c 75 65 20 66 6f 72 20 73 71 6c 69   (Value for sqli
0340: 74 65 33 5f 76 66 73 2e 73 7a 4f 73 46 69 6c 65  te3_vfs.szOsFile
0350: 29 0a 2a 2a 20 20 20 2d 6d 78 70 61 74 68 6e 61  ).**   -mxpathna
0360: 6d 65 20 49 4e 54 45 47 45 52 20 20 20 20 20 20  me INTEGER      
0370: 20 20 28 56 61 6c 75 65 20 66 6f 72 20 73 71 6c    (Value for sql
0380: 69 74 65 33 5f 76 66 73 2e 6d 78 50 61 74 68 6e  ite3_vfs.mxPathn
0390: 61 6d 65 29 0a 2a 2a 20 20 20 2d 69 76 65 72 73  ame).**   -ivers
03a0: 69 6f 6e 20 20 20 49 4e 54 45 47 45 52 20 20 20  ion   INTEGER   
03b0: 20 20 20 20 20 28 56 61 6c 75 65 20 66 6f 72 20       (Value for 
03c0: 73 71 6c 69 74 65 33 5f 76 66 73 2e 69 56 65 72  sqlite3_vfs.iVer
03d0: 73 69 6f 6e 29 0a 2a 2f 0a 23 69 66 20 53 51 4c  sion).*/.#if SQL
03e0: 49 54 45 5f 54 45 53 54 20 20 20 20 20 20 20 20  ITE_TEST        
03f0: 20 20 2f 2a 20 54 68 69 73 20 66 69 6c 65 20 69    /* This file i
0400: 73 20 75 73 65 64 20 66 6f 72 20 74 65 73 74 69  s used for testi
0410: 6e 67 20 6f 6e 6c 79 20 2a 2f 0a 0a 23 69 6e 63  ng only */..#inc
0420: 6c 75 64 65 20 22 73 71 6c 69 74 65 33 2e 68 22  lude "sqlite3.h"
0430: 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74  .#include "sqlit
0440: 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65  eInt.h".#include
0450: 20 3c 74 63 6c 2e 68 3e 0a 0a 74 79 70 65 64 65   <tcl.h>..typede
0460: 66 20 73 74 72 75 63 74 20 54 65 73 74 76 66 73  f struct Testvfs
0470: 20 54 65 73 74 76 66 73 3b 0a 74 79 70 65 64 65   Testvfs;.typede
0480: 66 20 73 74 72 75 63 74 20 54 65 73 74 76 66 73  f struct Testvfs
0490: 53 68 6d 20 54 65 73 74 76 66 73 53 68 6d 3b 0a  Shm TestvfsShm;.
04a0: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54  typedef struct T
04b0: 65 73 74 76 66 73 42 75 66 66 65 72 20 54 65 73  estvfsBuffer Tes
04c0: 74 76 66 73 42 75 66 66 65 72 3b 0a 74 79 70 65  tvfsBuffer;.type
04d0: 64 65 66 20 73 74 72 75 63 74 20 54 65 73 74 76  def struct Testv
04e0: 66 73 46 69 6c 65 20 54 65 73 74 76 66 73 46 69  fsFile TestvfsFi
04f0: 6c 65 3b 0a 74 79 70 65 64 65 66 20 73 74 72 75  le;.typedef stru
0500: 63 74 20 54 65 73 74 76 66 73 46 64 20 54 65 73  ct TestvfsFd Tes
0510: 74 76 66 73 46 64 3b 0a 0a 2f 2a 0a 2a 2a 20 41  tvfsFd;../*.** A
0520: 6e 20 6f 70 65 6e 20 66 69 6c 65 20 68 61 6e 64  n open file hand
0530: 6c 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65  le..*/.struct Te
0540: 73 74 76 66 73 46 69 6c 65 20 7b 0a 20 20 73 71  stvfsFile {.  sq
0550: 6c 69 74 65 33 5f 66 69 6c 65 20 62 61 73 65 3b  lite3_file base;
0560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0570: 20 42 61 73 65 20 63 6c 61 73 73 2e 20 20 4d 75   Base class.  Mu
0580: 73 74 20 62 65 20 66 69 72 73 74 20 2a 2f 0a 20  st be first */. 
0590: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 3b   TestvfsFd *pFd;
05a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
05b0: 20 2f 2a 20 46 69 6c 65 20 64 61 74 61 20 2a 2f   /* File data */
05c0: 0a 7d 3b 0a 23 64 65 66 69 6e 65 20 74 76 66 73  .};.#define tvfs
05d0: 47 65 74 46 64 28 70 46 69 6c 65 29 20 28 28 28  GetFd(pFile) (((
05e0: 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46  TestvfsFile *)pF
05f0: 69 6c 65 29 2d 3e 70 46 64 29 0a 0a 73 74 72 75  ile)->pFd)..stru
0600: 63 74 20 54 65 73 74 76 66 73 46 64 20 7b 0a 20  ct TestvfsFd {. 
0610: 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56   sqlite3_vfs *pV
0620: 66 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  fs;             
0630: 20 2f 2a 20 54 68 65 20 56 46 53 20 2a 2f 0a 20   /* The VFS */. 
0640: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69   const char *zFi
0650: 6c 65 6e 61 6d 65 3b 20 20 20 20 20 20 20 20 20  lename;         
0660: 20 2f 2a 20 46 69 6c 65 6e 61 6d 65 20 61 73 20   /* Filename as 
0670: 70 61 73 73 65 64 20 74 6f 20 78 4f 70 65 6e 28  passed to xOpen(
0680: 29 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 66  ) */.  sqlite3_f
0690: 69 6c 65 20 2a 70 52 65 61 6c 3b 20 20 20 20 20  ile *pReal;     
06a0: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 72 65         /* The re
06b0: 61 6c 2c 20 75 6e 64 65 72 6c 79 69 6e 67 20 66  al, underlying f
06c0: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 2a  ile descriptor *
06d0: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 68  /.  Tcl_Obj *pSh
06e0: 6d 49 64 3b 20 20 20 20 20 20 20 20 20 20 20 20  mId;            
06f0: 20 20 20 20 2f 2a 20 53 68 61 72 65 64 20 6d 65      /* Shared me
0700: 6d 6f 72 79 20 69 64 20 66 6f 72 20 54 63 6c 20  mory id for Tcl 
0710: 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 0a 20 20  callbacks */..  
0720: 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70  TestvfsBuffer *p
0730: 53 68 6d 3b 20 20 20 20 20 20 20 20 20 20 20 20  Shm;            
0740: 2f 2a 20 53 68 61 72 65 64 20 6d 65 6d 6f 72 79  /* Shared memory
0750: 20 62 75 66 66 65 72 20 2a 2f 0a 20 20 75 33 32   buffer */.  u32
0760: 20 65 78 63 6c 6c 6f 63 6b 3b 20 20 20 20 20 20   excllock;      
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0780: 4d 61 73 6b 20 6f 66 20 65 78 63 6c 75 73 69 76  Mask of exclusiv
0790: 65 20 6c 6f 63 6b 73 20 2a 2f 0a 20 20 75 33 32  e locks */.  u32
07a0: 20 73 68 61 72 65 64 6c 6f 63 6b 3b 20 20 20 20   sharedlock;    
07b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
07c0: 4d 61 73 6b 20 6f 66 20 73 68 61 72 65 64 20 6c  Mask of shared l
07d0: 6f 63 6b 73 20 2a 2f 0a 20 20 54 65 73 74 76 66  ocks */.  Testvf
07e0: 73 46 64 20 2a 70 4e 65 78 74 3b 20 20 20 20 20  sFd *pNext;     
07f0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 78            /* Nex
0800: 74 20 68 61 6e 64 6c 65 20 6f 70 65 6e 65 64 20  t handle opened 
0810: 6f 6e 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65  on the same file
0820: 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66 69 6e 65   */.};...#define
0830: 20 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 4e 4f   FAULT_INJECT_NO
0840: 4e 45 20 20 20 20 20 20 20 30 0a 23 64 65 66 69  NE       0.#defi
0850: 6e 65 20 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f  ne FAULT_INJECT_
0860: 54 52 41 4e 53 49 45 4e 54 20 20 31 0a 23 64 65  TRANSIENT  1.#de
0870: 66 69 6e 65 20 46 41 55 4c 54 5f 49 4e 4a 45 43  fine FAULT_INJEC
0880: 54 5f 50 45 52 53 49 53 54 45 4e 54 20 32 0a 0a  T_PERSISTENT 2..
0890: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54  typedef struct T
08a0: 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 54  estFaultInject T
08b0: 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 3b 0a  estFaultInject;.
08c0: 73 74 72 75 63 74 20 54 65 73 74 46 61 75 6c 74  struct TestFault
08d0: 49 6e 6a 65 63 74 20 7b 0a 20 20 69 6e 74 20 69  Inject {.  int i
08e0: 43 6e 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  Cnt;            
08f0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65             /* Re
0900: 6d 61 69 6e 69 6e 67 20 63 61 6c 6c 73 20 62 65  maining calls be
0910: 66 6f 72 65 20 66 61 75 6c 74 20 69 6e 6a 65 63  fore fault injec
0920: 74 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 65 46  tion */.  int eF
0930: 61 75 6c 74 3b 20 20 20 20 20 20 20 20 20 20 20  ault;           
0940: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 20 46            /* A F
0950: 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 2a 20 76 61  AULT_INJECT_* va
0960: 6c 75 65 20 2a 2f 0a 20 20 69 6e 74 20 6e 46 61  lue */.  int nFa
0970: 69 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  il;             
0980: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
0990: 65 72 20 6f 66 20 66 61 75 6c 74 73 20 69 6e 6a  er of faults inj
09a0: 65 63 74 65 64 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a  ected */.};../*.
09b0: 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f  ** An instance o
09c0: 66 20 74 68 69 73 20 73 74 72 75 63 74 75 72 65  f this structure
09d0: 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f   is allocated fo
09e0: 72 20 65 61 63 68 20 56 46 53 20 63 72 65 61 74  r each VFS creat
09f0: 65 64 2e 20 54 68 65 0a 2a 2a 20 73 71 6c 69 74  ed. The.** sqlit
0a00: 65 33 5f 76 66 73 2e 70 41 70 70 44 61 74 61 20  e3_vfs.pAppData 
0a10: 66 69 65 6c 64 20 6f 66 20 74 68 65 20 56 46 53  field of the VFS
0a20: 20 73 74 72 75 63 74 75 72 65 20 72 65 67 69 73   structure regis
0a30: 74 65 72 65 64 20 77 69 74 68 20 53 51 4c 69 74  tered with SQLit
0a40: 65 0a 2a 2a 20 69 73 20 73 65 74 20 74 6f 20 70  e.** is set to p
0a50: 6f 69 6e 74 20 74 6f 20 69 74 2e 0a 2a 2f 0a 73  oint to it..*/.s
0a60: 74 72 75 63 74 20 54 65 73 74 76 66 73 20 7b 0a  truct Testvfs {.
0a70: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 20 20    char *zName;  
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a90: 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 69    /* Name of thi
0aa0: 73 20 56 46 53 20 2a 2f 0a 20 20 73 71 6c 69 74  s VFS */.  sqlit
0ab0: 65 33 5f 76 66 73 20 2a 70 50 61 72 65 6e 74 3b  e3_vfs *pParent;
0ac0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68             /* Th
0ad0: 65 20 56 46 53 20 74 6f 20 75 73 65 20 66 6f 72  e VFS to use for
0ae0: 20 66 69 6c 65 20 49 4f 20 2a 2f 0a 20 20 73 71   file IO */.  sq
0af0: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b  lite3_vfs *pVfs;
0b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0b10: 20 54 68 65 20 74 65 73 74 76 66 73 20 72 65 67   The testvfs reg
0b20: 69 73 74 65 72 65 64 20 77 69 74 68 20 53 51 4c  istered with SQL
0b30: 69 74 65 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74  ite */.  Tcl_Int
0b40: 65 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 20  erp *interp;    
0b50: 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 74 65           /* Inte
0b60: 72 70 72 65 74 65 72 20 74 6f 20 72 75 6e 20 73  rpreter to run s
0b70: 63 72 69 70 74 20 69 6e 20 2a 2f 0a 20 20 54 63  cript in */.  Tc
0b80: 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74 3b 20  l_Obj *pScript; 
0b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0ba0: 20 53 63 72 69 70 74 20 74 6f 20 65 78 65 63 75   Script to execu
0bb0: 74 65 20 2a 2f 0a 20 20 54 65 73 74 76 66 73 42  te */.  TestvfsB
0bc0: 75 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b 20  uffer *pBuffer; 
0bd0: 20 20 20 20 20 20 20 20 2f 2a 20 4c 69 73 74 20          /* List 
0be0: 6f 66 20 73 68 61 72 65 64 20 62 75 66 66 65 72  of shared buffer
0bf0: 73 20 2a 2f 0a 20 20 69 6e 74 20 69 73 4e 6f 73  s */.  int isNos
0c00: 68 6d 3b 0a 20 20 69 6e 74 20 69 73 46 75 6c 6c  hm;.  int isFull
0c10: 73 68 6d 3b 0a 0a 20 20 69 6e 74 20 6d 61 73 6b  shm;..  int mask
0c20: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
0c30: 20 20 20 20 20 20 20 20 2f 2a 20 4d 61 73 6b 20          /* Mask 
0c40: 63 6f 6e 74 72 6f 6c 6c 69 6e 67 20 5b 73 63 72  controlling [scr
0c50: 69 70 74 5d 20 61 6e 64 20 5b 69 6f 65 72 72 5d  ipt] and [ioerr]
0c60: 20 2a 2f 0a 0a 20 20 54 65 73 74 46 61 75 6c 74   */..  TestFault
0c70: 49 6e 6a 65 63 74 20 69 6f 65 72 72 5f 65 72 72  Inject ioerr_err
0c80: 3b 0a 20 20 54 65 73 74 46 61 75 6c 74 49 6e 6a  ;.  TestFaultInj
0c90: 65 63 74 20 66 75 6c 6c 5f 65 72 72 3b 0a 20 20  ect full_err;.  
0ca0: 54 65 73 74 46 61 75 6c 74 49 6e 6a 65 63 74 20  TestFaultInject 
0cb0: 63 61 6e 74 6f 70 65 6e 5f 65 72 72 3b 0a 0a 23  cantopen_err;..#
0cc0: 69 66 20 30 0a 20 20 69 6e 74 20 69 49 6f 65 72  if 0.  int iIoer
0cd0: 72 43 6e 74 3b 0a 20 20 69 6e 74 20 69 6f 65 72  rCnt;.  int ioer
0ce0: 72 3b 0a 20 20 69 6e 74 20 6e 49 6f 65 72 72 46  r;.  int nIoerrF
0cf0: 61 69 6c 3b 0a 20 20 69 6e 74 20 69 46 75 6c 6c  ail;.  int iFull
0d00: 43 6e 74 3b 0a 20 20 69 6e 74 20 66 75 6c 6c 65  Cnt;.  int fulle
0d10: 72 72 3b 0a 20 20 69 6e 74 20 6e 46 75 6c 6c 46  rr;.  int nFullF
0d20: 61 69 6c 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 69  ail;.#endif..  i
0d30: 6e 74 20 69 44 65 76 63 68 61 72 3b 0a 20 20 69  nt iDevchar;.  i
0d40: 6e 74 20 69 53 65 63 74 6f 72 73 69 7a 65 3b 0a  nt iSectorsize;.
0d50: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 54 65  };../*.** The Te
0d60: 73 74 76 66 73 2e 6d 61 73 6b 20 76 61 72 69 61  stvfs.mask varia
0d70: 62 6c 65 20 69 73 20 73 65 74 20 74 6f 20 61 20  ble is set to a 
0d80: 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74  combination of t
0d90: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 2e 0a 2a 2a  he following..**
0da0: 20 49 66 20 61 20 62 69 74 20 69 73 20 63 6c 65   If a bit is cle
0db0: 61 72 20 69 6e 20 54 65 73 74 76 66 73 2e 6d 61  ar in Testvfs.ma
0dc0: 73 6b 2c 20 74 68 65 6e 20 63 61 6c 6c 73 20 6d  sk, then calls m
0dd0: 61 64 65 20 62 79 20 53 51 4c 69 74 65 20 74 6f  ade by SQLite to
0de0: 20 74 68 65 20 0a 2a 2a 20 63 6f 72 72 65 73 70   the .** corresp
0df0: 6f 6e 64 69 6e 67 20 56 46 53 20 6d 65 74 68 6f  onding VFS metho
0e00: 64 20 69 73 20 69 67 6e 6f 72 65 64 20 66 6f 72  d is ignored for
0e10: 20 70 75 72 70 6f 73 65 73 20 6f 66 3a 0a 2a 2a   purposes of:.**
0e20: 0a 2a 2a 20 20 20 2b 20 53 69 6d 75 6c 61 74 69  .**   + Simulati
0e30: 6e 67 20 49 4f 20 65 72 72 6f 72 73 2c 20 61 6e  ng IO errors, an
0e40: 64 0a 2a 2a 20 20 20 2b 20 49 6e 76 6f 6b 69 6e  d.**   + Invokin
0e50: 67 20 74 68 65 20 54 63 6c 20 63 61 6c 6c 62 61  g the Tcl callba
0e60: 63 6b 20 73 63 72 69 70 74 2e 0a 2a 2f 0a 23 64  ck script..*/.#d
0e70: 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 53 48  efine TESTVFS_SH
0e80: 4d 4f 50 45 4e 5f 4d 41 53 4b 20 20 20 20 20 20  MOPEN_MASK      
0e90: 30 78 30 30 30 30 30 30 30 31 0a 23 64 65 66 69  0x00000001.#defi
0ea0: 6e 65 20 54 45 53 54 56 46 53 5f 53 48 4d 4c 4f  ne TESTVFS_SHMLO
0eb0: 43 4b 5f 4d 41 53 4b 20 20 20 20 20 20 30 78 30  CK_MASK      0x0
0ec0: 30 30 30 30 30 31 30 0a 23 64 65 66 69 6e 65 20  0000010.#define 
0ed0: 54 45 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f 4d  TESTVFS_SHMMAP_M
0ee0: 41 53 4b 20 20 20 20 20 20 20 30 78 30 30 30 30  ASK       0x0000
0ef0: 30 30 32 30 0a 23 64 65 66 69 6e 65 20 54 45 53  0020.#define TES
0f00: 54 56 46 53 5f 53 48 4d 42 41 52 52 49 45 52 5f  TVFS_SHMBARRIER_
0f10: 4d 41 53 4b 20 20 20 30 78 30 30 30 30 30 30 34  MASK   0x0000004
0f20: 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46  0.#define TESTVF
0f30: 53 5f 53 48 4d 43 4c 4f 53 45 5f 4d 41 53 4b 20  S_SHMCLOSE_MASK 
0f40: 20 20 20 20 30 78 30 30 30 30 30 30 38 30 0a 0a      0x00000080..
0f50: 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f  #define TESTVFS_
0f60: 4f 50 45 4e 5f 4d 41 53 4b 20 20 20 20 20 20 20  OPEN_MASK       
0f70: 20 20 30 78 30 30 30 30 30 31 30 30 0a 23 64 65    0x00000100.#de
0f80: 66 69 6e 65 20 54 45 53 54 56 46 53 5f 53 59 4e  fine TESTVFS_SYN
0f90: 43 5f 4d 41 53 4b 20 20 20 20 20 20 20 20 20 30  C_MASK         0
0fa0: 78 30 30 30 30 30 32 30 30 0a 23 64 65 66 69 6e  x00000200.#defin
0fb0: 65 20 54 45 53 54 56 46 53 5f 44 45 4c 45 54 45  e TESTVFS_DELETE
0fc0: 5f 4d 41 53 4b 20 20 20 20 20 20 20 30 78 30 30  _MASK       0x00
0fd0: 30 30 30 34 30 30 0a 23 64 65 66 69 6e 65 20 54  000400.#define T
0fe0: 45 53 54 56 46 53 5f 43 4c 4f 53 45 5f 4d 41 53  ESTVFS_CLOSE_MAS
0ff0: 4b 20 20 20 20 20 20 20 20 30 78 30 30 30 30 30  K        0x00000
1000: 38 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54  800.#define TEST
1010: 56 46 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20 20  VFS_WRITE_MASK  
1020: 20 20 20 20 20 20 30 78 30 30 30 30 31 30 30 30        0x00001000
1030: 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53  .#define TESTVFS
1040: 5f 54 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20 20  _TRUNCATE_MASK  
1050: 20 20 20 30 78 30 30 30 30 32 30 30 30 0a 23 64     0x00002000.#d
1060: 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 41 43  efine TESTVFS_AC
1070: 43 45 53 53 5f 4d 41 53 4b 20 20 20 20 20 20 20  CESS_MASK       
1080: 30 78 30 30 30 30 34 30 30 30 0a 23 64 65 66 69  0x00004000.#defi
1090: 6e 65 20 54 45 53 54 56 46 53 5f 46 55 4c 4c 50  ne TESTVFS_FULLP
10a0: 41 54 48 4e 41 4d 45 5f 4d 41 53 4b 20 30 78 30  ATHNAME_MASK 0x0
10b0: 30 30 30 38 30 30 30 0a 23 64 65 66 69 6e 65 20  0008000.#define 
10c0: 54 45 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53  TESTVFS_READ_MAS
10d0: 4b 20 20 20 20 20 20 20 20 20 30 78 30 30 30 31  K         0x0001
10e0: 30 30 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53  0000.#define TES
10f0: 54 56 46 53 5f 55 4e 4c 4f 43 4b 5f 4d 41 53 4b  TVFS_UNLOCK_MASK
1100: 20 20 20 20 20 20 20 30 78 30 30 30 32 30 30 30         0x0002000
1110: 30 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56  0..#define TESTV
1120: 46 53 5f 41 4c 4c 5f 4d 41 53 4b 20 20 20 20 20  FS_ALL_MASK     
1130: 20 20 20 20 20 30 78 30 30 30 33 46 46 46 46 0a       0x0003FFFF.
1140: 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46  ..#define TESTVF
1150: 53 5f 4d 41 58 5f 50 41 47 45 53 20 31 30 32 34  S_MAX_PAGES 1024
1160: 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 68 61 72 65 64  ../*.** A shared
1170: 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 2e 20  -memory buffer. 
1180: 54 68 65 72 65 20 69 73 20 6f 6e 65 20 6f 66 20  There is one of 
1190: 74 68 65 73 65 20 6f 62 6a 65 63 74 73 20 66 6f  these objects fo
11a0: 72 20 65 61 63 68 20 73 68 61 72 65 64 0a 2a 2a  r each shared.**
11b0: 20 6d 65 6d 6f 72 79 20 72 65 67 69 6f 6e 20 6f   memory region o
11c0: 70 65 6e 65 64 20 62 79 20 63 6c 69 65 6e 74 73  pened by clients
11d0: 2e 20 49 66 20 74 77 6f 20 63 6c 69 65 6e 74 73  . If two clients
11e0: 20 6f 70 65 6e 20 74 68 65 20 73 61 6d 65 20 66   open the same f
11f0: 69 6c 65 2c 0a 2a 2a 20 74 68 65 72 65 20 61 72  ile,.** there ar
1200: 65 20 74 77 6f 20 54 65 73 74 76 66 73 46 69 6c  e two TestvfsFil
1210: 65 20 73 74 72 75 63 74 75 72 65 73 20 62 75 74  e structures but
1220: 20 6f 6e 6c 79 20 6f 6e 65 20 54 65 73 74 76 66   only one Testvf
1230: 73 42 75 66 66 65 72 20 73 74 72 75 63 74 75 72  sBuffer structur
1240: 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65 73  e..*/.struct Tes
1250: 74 76 66 73 42 75 66 66 65 72 20 7b 0a 20 20 63  tvfsBuffer {.  c
1260: 68 61 72 20 2a 7a 46 69 6c 65 3b 20 20 20 20 20  har *zFile;     
1270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1280: 2a 20 41 73 73 6f 63 69 61 74 65 64 20 66 69 6c  * Associated fil
1290: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e 74 20  e name */.  int 
12a0: 70 67 73 7a 3b 20 20 20 20 20 20 20 20 20 20 20  pgsz;           
12b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50              /* P
12c0: 61 67 65 20 73 69 7a 65 20 2a 2f 0a 20 20 75 38  age size */.  u8
12d0: 20 2a 61 50 61 67 65 5b 54 45 53 54 56 46 53 5f   *aPage[TESTVFS_
12e0: 4d 41 58 5f 50 41 47 45 53 5d 3b 20 20 20 2f 2a  MAX_PAGES];   /*
12f0: 20 41 72 72 61 79 20 6f 66 20 63 6b 61 6c 6c 6f   Array of ckallo
1300: 63 27 64 20 70 61 67 65 73 20 2a 2f 0a 20 20 54  c'd pages */.  T
1310: 65 73 74 76 66 73 46 64 20 2a 70 46 69 6c 65 3b  estvfsFd *pFile;
1320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1330: 2a 20 4c 69 73 74 20 6f 66 20 6f 70 65 6e 20 68  * List of open h
1340: 61 6e 64 6c 65 73 20 2a 2f 0a 20 20 54 65 73 74  andles */.  Test
1350: 76 66 73 42 75 66 66 65 72 20 2a 70 4e 65 78 74  vfsBuffer *pNext
1360: 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e  ;           /* N
1370: 65 78 74 20 69 6e 20 6c 69 6e 6b 65 64 20 6c 69  ext in linked li
1380: 73 74 20 6f 66 20 61 6c 6c 20 62 75 66 66 65 72  st of all buffer
1390: 73 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66 69 6e  s */.};...#defin
13a0: 65 20 50 41 52 45 4e 54 56 46 53 28 78 29 20 28  e PARENTVFS(x) (
13b0: 28 28 54 65 73 74 76 66 73 20 2a 29 28 28 78 29  ((Testvfs *)((x)
13c0: 2d 3e 70 41 70 70 44 61 74 61 29 29 2d 3e 70 50  ->pAppData))->pP
13d0: 61 72 65 6e 74 29 0a 0a 23 64 65 66 69 6e 65 20  arent)..#define 
13e0: 54 45 53 54 56 46 53 5f 4d 41 58 5f 41 52 47 53  TESTVFS_MAX_ARGS
13f0: 20 31 32 0a 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74 68   12.../*.** Meth
1400: 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20  od declarations 
1410: 66 6f 72 20 54 65 73 74 76 66 73 46 69 6c 65 2e  for TestvfsFile.
1420: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
1430: 76 66 73 43 6c 6f 73 65 28 73 71 6c 69 74 65 33  vfsClose(sqlite3
1440: 5f 66 69 6c 65 2a 29 3b 0a 73 74 61 74 69 63 20  _file*);.static 
1450: 69 6e 74 20 74 76 66 73 52 65 61 64 28 73 71 6c  int tvfsRead(sql
1460: 69 74 65 33 5f 66 69 6c 65 2a 2c 20 76 6f 69 64  ite3_file*, void
1470: 2a 2c 20 69 6e 74 20 69 41 6d 74 2c 20 73 71 6c  *, 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 57 72 69 74 65 28 73 71 6c 69 74 65 33 5f  fsWrite(sqlite3_
14b0: 66 69 6c 65 2a 2c 63 6f 6e 73 74 20 76 6f 69 64  file*,const void
14c0: 2a 2c 69 6e 74 20 69 41 6d 74 2c 20 73 71 6c 69  *,int iAmt, sqli
14d0: 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74 29  te3_int64 iOfst)
14e0: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
14f0: 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69 74 65  sTruncate(sqlite
1500: 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33  3_file*, sqlite3
1510: 5f 69 6e 74 36 34 20 73 69 7a 65 29 3b 0a 73 74  _int64 size);.st
1520: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 79 6e  atic int tvfsSyn
1530: 63 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  c(sqlite3_file*,
1540: 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a 73 74 61   int flags);.sta
1550: 74 69 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65  tic int tvfsFile
1560: 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c  Size(sqlite3_fil
1570: 65 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74 36  e*, sqlite3_int6
1580: 34 20 2a 70 53 69 7a 65 29 3b 0a 73 74 61 74 69  4 *pSize);.stati
1590: 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28 73  c int tvfsLock(s
15a0: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e  qlite3_file*, in
15b0: 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  t);.static int t
15c0: 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69 74 65  vfsUnlock(sqlite
15d0: 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b 0a 73  3_file*, int);.s
15e0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43 68  tatic int tvfsCh
15f0: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28  eckReservedLock(
1600: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69  sqlite3_file*, i
1610: 6e 74 20 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e  nt *);.static in
1620: 74 20 74 76 66 73 46 69 6c 65 43 6f 6e 74 72 6f  t tvfsFileContro
1630: 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  l(sqlite3_file*,
1640: 20 69 6e 74 20 6f 70 2c 20 76 6f 69 64 20 2a 70   int op, void *p
1650: 41 72 67 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  Arg);.static int
1660: 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65 28   tvfsSectorSize(
1670: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a  sqlite3_file*);.
1680: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44  static int tvfsD
1690: 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73  eviceCharacteris
16a0: 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66 69 6c  tics(sqlite3_fil
16b0: 65 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74 68  e*);../*.** Meth
16c0: 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20  od declarations 
16d0: 66 6f 72 20 74 76 66 73 5f 76 66 73 2e 0a 2a 2f  for tvfs_vfs..*/
16e0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
16f0: 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 66 73  Open(sqlite3_vfs
1700: 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2c  *, const char *,
1710: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20   sqlite3_file*, 
1720: 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b 0a 73 74  int , int *);.st
1730: 61 74 69 63 20 69 6e 74 20 74 76 66 73 44 65 6c  atic int tvfsDel
1740: 65 74 65 28 73 71 6c 69 74 65 33 5f 76 66 73 2a  ete(sqlite3_vfs*
1750: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e  , const char *zN
1760: 61 6d 65 2c 20 69 6e 74 20 73 79 6e 63 44 69 72  ame, int syncDir
1770: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
1780: 66 73 41 63 63 65 73 73 28 73 71 6c 69 74 65 33  fsAccess(sqlite3
1790: 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61  _vfs*, const cha
17a0: 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 66 6c  r *zName, int fl
17b0: 61 67 73 2c 20 69 6e 74 20 2a 29 3b 0a 73 74 61  ags, int *);.sta
17c0: 74 69 63 20 69 6e 74 20 74 76 66 73 46 75 6c 6c  tic int tvfsFull
17d0: 50 61 74 68 6e 61 6d 65 28 73 71 6c 69 74 65 33  Pathname(sqlite3
17e0: 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61  _vfs*, const cha
17f0: 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 2c 20 63  r *zName, int, c
1800: 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 23 69 66 6e  har *zOut);.#ifn
1810: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
1820: 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 73  LOAD_EXTENSION.s
1830: 74 61 74 69 63 20 76 6f 69 64 20 2a 74 76 66 73  tatic void *tvfs
1840: 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76  DlOpen(sqlite3_v
1850: 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  fs*, const char 
1860: 2a 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 73 74 61  *zFilename);.sta
1870: 74 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c 45  tic void tvfsDlE
1880: 72 72 6f 72 28 73 71 6c 69 74 65 33 5f 76 66 73  rror(sqlite3_vfs
1890: 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63 68  *, int nByte, ch
18a0: 61 72 20 2a 7a 45 72 72 4d 73 67 29 3b 0a 73 74  ar *zErrMsg);.st
18b0: 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76 66 73  atic void (*tvfs
18c0: 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f 76 66  DlSym(sqlite3_vf
18d0: 73 2a 2c 76 6f 69 64 2a 2c 20 63 6f 6e 73 74 20  s*,void*, const 
18e0: 63 68 61 72 20 2a 7a 53 79 6d 62 6f 6c 29 29 28  char *zSymbol))(
18f0: 76 6f 69 64 29 3b 0a 73 74 61 74 69 63 20 76 6f  void);.static vo
1900: 69 64 20 74 76 66 73 44 6c 43 6c 6f 73 65 28 73  id tvfsDlClose(s
1910: 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 76 6f 69  qlite3_vfs*, voi
1920: 64 2a 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53  d*);.#endif /* S
1930: 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f  QLITE_OMIT_LOAD_
1940: 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 73 74 61  EXTENSION */.sta
1950: 74 69 63 20 69 6e 74 20 74 76 66 73 52 61 6e 64  tic int tvfsRand
1960: 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65 33 5f 76  omness(sqlite3_v
1970: 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20  fs*, int nByte, 
1980: 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 73 74 61  char *zOut);.sta
1990: 74 69 63 20 69 6e 74 20 74 76 66 73 53 6c 65 65  tic int tvfsSlee
19a0: 70 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20  p(sqlite3_vfs*, 
19b0: 69 6e 74 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73  int microseconds
19c0: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
19d0: 66 73 43 75 72 72 65 6e 74 54 69 6d 65 28 73 71  fsCurrentTime(sq
19e0: 6c 69 74 65 33 5f 76 66 73 2a 2c 20 64 6f 75 62  lite3_vfs*, doub
19f0: 6c 65 2a 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e  le*);..static in
1a00: 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 73 71  t tvfsShmOpen(sq
1a10: 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a 73 74  lite3_file*);.st
1a20: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d  atic int tvfsShm
1a30: 4c 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c  Lock(sqlite3_fil
1a40: 65 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 2c 20 69  e*, int , int, i
1a50: 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  nt);.static int 
1a60: 74 76 66 73 53 68 6d 4d 61 70 28 73 71 6c 69 74  tvfsShmMap(sqlit
1a70: 65 33 5f 66 69 6c 65 2a 2c 69 6e 74 2c 69 6e 74  e3_file*,int,int
1a80: 2c 69 6e 74 2c 20 76 6f 69 64 20 76 6f 6c 61 74  ,int, void volat
1a90: 69 6c 65 20 2a 2a 29 3b 0a 73 74 61 74 69 63 20  ile **);.static 
1aa0: 76 6f 69 64 20 74 76 66 73 53 68 6d 42 61 72 72  void tvfsShmBarr
1ab0: 69 65 72 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ier(sqlite3_file
1ac0: 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  *);.static int t
1ad0: 76 66 73 53 68 6d 55 6e 6d 61 70 28 73 71 6c 69  vfsShmUnmap(sqli
1ae0: 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b  te3_file*, int);
1af0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ..static int tvf
1b00: 73 46 65 74 63 68 28 73 71 6c 69 74 65 33 5f 66  sFetch(sqlite3_f
1b10: 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e  ile*, sqlite3_in
1b20: 74 36 34 2c 20 69 6e 74 2c 20 76 6f 69 64 2a 2a  t64, int, void**
1b30: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
1b40: 66 73 55 6e 66 65 74 63 68 28 73 71 6c 69 74 65  fsUnfetch(sqlite
1b50: 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33  3_file*, sqlite3
1b60: 5f 69 6e 74 36 34 2c 20 76 6f 69 64 2a 29 3b 0a  _int64, void*);.
1b70: 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f  .static sqlite3_
1b80: 69 6f 5f 6d 65 74 68 6f 64 73 20 74 76 66 73 5f  io_methods tvfs_
1b90: 69 6f 5f 6d 65 74 68 6f 64 73 20 3d 20 7b 0a 20  io_methods = {. 
1ba0: 20 33 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   3,             
1bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1bc0: 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a   /* iVersion */.
1bd0: 20 20 74 76 66 73 43 6c 6f 73 65 2c 20 20 20 20    tvfsClose,    
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1bf0: 20 20 2f 2a 20 78 43 6c 6f 73 65 20 2a 2f 0a 20    /* xClose */. 
1c00: 20 74 76 66 73 52 65 61 64 2c 20 20 20 20 20 20   tvfsRead,      
1c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c20: 20 2f 2a 20 78 52 65 61 64 20 2a 2f 0a 20 20 74   /* xRead */.  t
1c30: 76 66 73 57 72 69 74 65 2c 20 20 20 20 20 20 20  vfsWrite,       
1c40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1c50: 2a 20 78 57 72 69 74 65 20 2a 2f 0a 20 20 74 76  * xWrite */.  tv
1c60: 66 73 54 72 75 6e 63 61 74 65 2c 20 20 20 20 20  fsTruncate,     
1c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1c80: 20 78 54 72 75 6e 63 61 74 65 20 2a 2f 0a 20 20   xTruncate */.  
1c90: 74 76 66 73 53 79 6e 63 2c 20 20 20 20 20 20 20  tvfsSync,       
1ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1cb0: 2f 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 74 76  /* xSync */.  tv
1cc0: 66 73 46 69 6c 65 53 69 7a 65 2c 20 20 20 20 20  fsFileSize,     
1cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1ce0: 20 78 46 69 6c 65 53 69 7a 65 20 2a 2f 0a 20 20   xFileSize */.  
1cf0: 74 76 66 73 4c 6f 63 6b 2c 20 20 20 20 20 20 20  tvfsLock,       
1d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d10: 2f 2a 20 78 4c 6f 63 6b 20 2a 2f 0a 20 20 74 76  /* xLock */.  tv
1d20: 66 73 55 6e 6c 6f 63 6b 2c 20 20 20 20 20 20 20  fsUnlock,       
1d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1d40: 20 78 55 6e 6c 6f 63 6b 20 2a 2f 0a 20 20 74 76   xUnlock */.  tv
1d50: 66 73 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c  fsCheckReservedL
1d60: 6f 63 6b 2c 20 20 20 20 20 20 20 20 20 20 2f 2a  ock,          /*
1d70: 20 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c   xCheckReservedL
1d80: 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73 46 69 6c  ock */.  tvfsFil
1d90: 65 43 6f 6e 74 72 6f 6c 2c 20 20 20 20 20 20 20  eControl,       
1da0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6c           /* xFil
1db0: 65 43 6f 6e 74 72 6f 6c 20 2a 2f 0a 20 20 74 76  eControl */.  tv
1dc0: 66 73 53 65 63 74 6f 72 53 69 7a 65 2c 20 20 20  fsSectorSize,   
1dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1de0: 20 78 53 65 63 74 6f 72 53 69 7a 65 20 2a 2f 0a   xSectorSize */.
1df0: 20 20 74 76 66 73 44 65 76 69 63 65 43 68 61 72    tvfsDeviceChar
1e00: 61 63 74 65 72 69 73 74 69 63 73 2c 20 20 20 20  acteristics,    
1e10: 20 20 2f 2a 20 78 44 65 76 69 63 65 43 68 61 72    /* xDeviceChar
1e20: 61 63 74 65 72 69 73 74 69 63 73 20 2a 2f 0a 20  acteristics */. 
1e30: 20 74 76 66 73 53 68 6d 4d 61 70 2c 20 20 20 20   tvfsShmMap,    
1e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e50: 20 2f 2a 20 78 53 68 6d 4d 61 70 20 2a 2f 0a 20   /* xShmMap */. 
1e60: 20 74 76 66 73 53 68 6d 4c 6f 63 6b 2c 20 20 20   tvfsShmLock,   
1e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e80: 20 2f 2a 20 78 53 68 6d 4c 6f 63 6b 20 2a 2f 0a   /* xShmLock */.
1e90: 20 20 74 76 66 73 53 68 6d 42 61 72 72 69 65 72    tvfsShmBarrier
1ea0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
1eb0: 20 20 2f 2a 20 78 53 68 6d 42 61 72 72 69 65 72    /* xShmBarrier
1ec0: 20 2a 2f 0a 20 20 74 76 66 73 53 68 6d 55 6e 6d   */.  tvfsShmUnm
1ed0: 61 70 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  ap,             
1ee0: 20 20 20 20 20 20 2f 2a 20 78 53 68 6d 55 6e 6d        /* xShmUnm
1ef0: 61 70 20 2a 2f 0a 20 20 74 76 66 73 46 65 74 63  ap */.  tvfsFetc
1f00: 68 2c 0a 20 20 74 76 66 73 55 6e 66 65 74 63 68  h,.  tvfsUnfetch
1f10: 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 20  .};..static int 
1f20: 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 54  tvfsResultCode(T
1f30: 65 73 74 76 66 73 20 2a 70 2c 20 69 6e 74 20 2a  estvfs *p, int *
1f40: 70 52 63 29 7b 0a 20 20 73 74 72 75 63 74 20 65  pRc){.  struct e
1f50: 72 72 63 6f 64 65 20 7b 0a 20 20 20 20 69 6e 74  rrcode {.    int
1f60: 20 65 43 6f 64 65 3b 0a 20 20 20 20 63 6f 6e 73   eCode;.    cons
1f70: 74 20 63 68 61 72 20 2a 7a 43 6f 64 65 3b 0a 20  t char *zCode;. 
1f80: 20 7d 20 61 43 6f 64 65 5b 5d 20 3d 20 7b 0a 20   } aCode[] = {. 
1f90: 20 20 20 7b 20 53 51 4c 49 54 45 5f 4f 4b 2c 20     { SQLITE_OK, 
1fa0: 20 20 20 20 22 53 51 4c 49 54 45 5f 4f 4b 22 20      "SQLITE_OK" 
1fb0: 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c      },.    { SQL
1fc0: 49 54 45 5f 45 52 52 4f 52 2c 20 20 22 53 51 4c  ITE_ERROR,  "SQL
1fd0: 49 54 45 5f 45 52 52 4f 52 22 20 20 7d 2c 0a 20  ITE_ERROR"  },. 
1fe0: 20 20 20 7b 20 53 51 4c 49 54 45 5f 49 4f 45 52     { SQLITE_IOER
1ff0: 52 2c 20 20 22 53 51 4c 49 54 45 5f 49 4f 45 52  R,  "SQLITE_IOER
2000: 52 22 20 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c  R"  },.    { SQL
2010: 49 54 45 5f 4c 4f 43 4b 45 44 2c 20 22 53 51 4c  ITE_LOCKED, "SQL
2020: 49 54 45 5f 4c 4f 43 4b 45 44 22 20 7d 2c 0a 20  ITE_LOCKED" },. 
2030: 20 20 20 7b 20 53 51 4c 49 54 45 5f 42 55 53 59     { SQLITE_BUSY
2040: 2c 20 20 20 22 53 51 4c 49 54 45 5f 42 55 53 59  ,   "SQLITE_BUSY
2050: 22 20 20 20 7d 2c 0a 20 20 7d 3b 0a 0a 20 20 63  "   },.  };..  c
2060: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a 20 20  onst char *z;.  
2070: 69 6e 74 20 69 3b 0a 0a 20 20 7a 20 3d 20 54 63  int i;..  z = Tc
2080: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c  l_GetStringResul
2090: 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20  t(p->interp);.  
20a0: 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72 61 79  for(i=0; i<Array
20b0: 53 69 7a 65 28 61 43 6f 64 65 29 3b 20 69 2b 2b  Size(aCode); i++
20c0: 29 7b 0a 20 20 20 20 69 66 28 20 30 3d 3d 73 74  ){.    if( 0==st
20d0: 72 63 6d 70 28 7a 2c 20 61 43 6f 64 65 5b 69 5d  rcmp(z, aCode[i]
20e0: 2e 7a 43 6f 64 65 29 20 29 7b 0a 20 20 20 20 20  .zCode) ){.     
20f0: 20 2a 70 52 63 20 3d 20 61 43 6f 64 65 5b 69 5d   *pRc = aCode[i]
2100: 2e 65 43 6f 64 65 3b 0a 20 20 20 20 20 20 72 65  .eCode;.      re
2110: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20  turn 1;.    }.  
2120: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d  }..  return 0;.}
2130: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ..static int tvf
2140: 73 49 6e 6a 65 63 74 46 61 75 6c 74 28 54 65 73  sInjectFault(Tes
2150: 74 46 61 75 6c 74 49 6e 6a 65 63 74 20 2a 70 29  tFaultInject *p)
2160: 7b 0a 20 20 69 6e 74 20 72 65 74 20 3d 20 30 3b  {.  int ret = 0;
2170: 0a 20 20 69 66 28 20 70 2d 3e 65 46 61 75 6c 74  .  if( p->eFault
2180: 20 29 7b 0a 20 20 20 20 70 2d 3e 69 43 6e 74 2d   ){.    p->iCnt-
2190: 2d 3b 0a 20 20 20 20 69 66 28 20 70 2d 3e 69 43  -;.    if( p->iC
21a0: 6e 74 3d 3d 30 20 7c 7c 20 28 70 2d 3e 69 43 6e  nt==0 || (p->iCn
21b0: 74 3c 30 20 26 26 20 70 2d 3e 65 46 61 75 6c 74  t<0 && p->eFault
21c0: 3d 3d 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 50  ==FAULT_INJECT_P
21d0: 45 52 53 49 53 54 45 4e 54 20 29 20 29 7b 0a 20  ERSISTENT ) ){. 
21e0: 20 20 20 20 20 72 65 74 20 3d 20 31 3b 0a 20 20       ret = 1;.  
21f0: 20 20 20 20 70 2d 3e 6e 46 61 69 6c 2b 2b 3b 0a      p->nFail++;.
2200: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75      }.  }.  retu
2210: 72 6e 20 72 65 74 3b 0a 7d 0a 0a 0a 73 74 61 74  rn ret;.}...stat
2220: 69 63 20 69 6e 74 20 74 76 66 73 49 6e 6a 65 63  ic int tvfsInjec
2230: 74 49 6f 65 72 72 28 54 65 73 74 76 66 73 20 2a  tIoerr(Testvfs *
2240: 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 74 76 66  p){.  return tvf
2250: 73 49 6e 6a 65 63 74 46 61 75 6c 74 28 26 70 2d  sInjectFault(&p-
2260: 3e 69 6f 65 72 72 5f 65 72 72 29 3b 0a 7d 0a 0a  >ioerr_err);.}..
2270: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 49  static int tvfsI
2280: 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 54 65 73  njectFullerr(Tes
2290: 74 76 66 73 20 2a 70 29 7b 0a 20 20 72 65 74 75  tvfs *p){.  retu
22a0: 72 6e 20 74 76 66 73 49 6e 6a 65 63 74 46 61 75  rn tvfsInjectFau
22b0: 6c 74 28 26 70 2d 3e 66 75 6c 6c 5f 65 72 72 29  lt(&p->full_err)
22c0: 3b 0a 7d 0a 73 74 61 74 69 63 20 69 6e 74 20 74  ;.}.static int t
22d0: 76 66 73 49 6e 6a 65 63 74 43 61 6e 74 6f 70 65  vfsInjectCantope
22e0: 6e 65 72 72 28 54 65 73 74 76 66 73 20 2a 70 29  nerr(Testvfs *p)
22f0: 7b 0a 20 20 72 65 74 75 72 6e 20 74 76 66 73 49  {.  return tvfsI
2300: 6e 6a 65 63 74 46 61 75 6c 74 28 26 70 2d 3e 63  njectFault(&p->c
2310: 61 6e 74 6f 70 65 6e 5f 65 72 72 29 3b 0a 7d 0a  antopen_err);.}.
2320: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 76  ..static void tv
2330: 66 73 45 78 65 63 54 63 6c 28 0a 20 20 54 65 73  fsExecTcl(.  Tes
2340: 74 76 66 73 20 2a 70 2c 20 0a 20 20 63 6f 6e 73  tvfs *p, .  cons
2350: 74 20 63 68 61 72 20 2a 7a 4d 65 74 68 6f 64 2c  t char *zMethod,
2360: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 61 72 67 31  .  Tcl_Obj *arg1
2370: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 61 72 67  ,.  Tcl_Obj *arg
2380: 32 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 61 72  2,.  Tcl_Obj *ar
2390: 67 33 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 61  g3,.  Tcl_Obj *a
23a0: 72 67 34 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b  rg4.){.  int rc;
23b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
23c0: 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 74 75           /* Retu
23d0: 72 6e 20 63 6f 64 65 20 66 72 6f 6d 20 54 63 6c  rn code from Tcl
23e0: 5f 45 76 61 6c 4f 62 6a 28 29 20 2a 2f 0a 20 20  _EvalObj() */.  
23f0: 54 63 6c 5f 4f 62 6a 20 2a 70 45 76 61 6c 3b 0a  Tcl_Obj *pEval;.
2400: 20 20 61 73 73 65 72 74 28 20 70 2d 3e 70 53 63    assert( p->pSc
2410: 72 69 70 74 20 29 3b 0a 0a 20 20 61 73 73 65 72  ript );..  asser
2420: 74 28 20 7a 4d 65 74 68 6f 64 20 29 3b 0a 20 20  t( zMethod );.  
2430: 61 73 73 65 72 74 28 20 70 20 29 3b 0a 20 20 61  assert( p );.  a
2440: 73 73 65 72 74 28 20 61 72 67 32 3d 3d 30 20 7c  ssert( arg2==0 |
2450: 7c 20 61 72 67 31 21 3d 30 20 29 3b 0a 20 20 61  | arg1!=0 );.  a
2460: 73 73 65 72 74 28 20 61 72 67 33 3d 3d 30 20 7c  ssert( arg3==0 |
2470: 7c 20 61 72 67 32 21 3d 30 20 29 3b 0a 0a 20 20  | arg2!=0 );..  
2480: 70 45 76 61 6c 20 3d 20 54 63 6c 5f 44 75 70 6c  pEval = Tcl_Dupl
2490: 69 63 61 74 65 4f 62 6a 28 70 2d 3e 70 53 63 72  icateObj(p->pScr
24a0: 69 70 74 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72  ipt);.  Tcl_Incr
24b0: 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53 63 72  RefCount(p->pScr
24c0: 69 70 74 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74  ipt);.  Tcl_List
24d0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
24e0: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76 61  (p->interp, pEva
24f0: 6c 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  l, Tcl_NewString
2500: 4f 62 6a 28 7a 4d 65 74 68 6f 64 2c 20 2d 31 29  Obj(zMethod, -1)
2510: 29 3b 0a 20 20 69 66 28 20 61 72 67 31 20 29 20  );.  if( arg1 ) 
2520: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
2530: 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65  dElement(p->inte
2540: 72 70 2c 20 70 45 76 61 6c 2c 20 61 72 67 31 29  rp, pEval, arg1)
2550: 3b 0a 20 20 69 66 28 20 61 72 67 32 20 29 20 54  ;.  if( arg2 ) T
2560: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
2570: 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72  Element(p->inter
2580: 70 2c 20 70 45 76 61 6c 2c 20 61 72 67 32 29 3b  p, pEval, arg2);
2590: 0a 20 20 69 66 28 20 61 72 67 33 20 29 20 54 63  .  if( arg3 ) Tc
25a0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
25b0: 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72 70  lement(p->interp
25c0: 2c 20 70 45 76 61 6c 2c 20 61 72 67 33 29 3b 0a  , pEval, arg3);.
25d0: 20 20 69 66 28 20 61 72 67 34 20 29 20 54 63 6c    if( arg4 ) Tcl
25e0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
25f0: 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c  ement(p->interp,
2600: 20 70 45 76 61 6c 2c 20 61 72 67 34 29 3b 0a 0a   pEval, arg4);..
2610: 20 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 4f    rc = Tcl_EvalO
2620: 62 6a 45 78 28 70 2d 3e 69 6e 74 65 72 70 2c 20  bjEx(p->interp, 
2630: 70 45 76 61 6c 2c 20 54 43 4c 5f 45 56 41 4c 5f  pEval, TCL_EVAL_
2640: 47 4c 4f 42 41 4c 29 3b 0a 20 20 69 66 28 20 72  GLOBAL);.  if( r
2650: 63 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20  c!=TCL_OK ){.   
2660: 20 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45   Tcl_BackgroundE
2670: 72 72 6f 72 28 70 2d 3e 69 6e 74 65 72 70 29 3b  rror(p->interp);
2680: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65  .    Tcl_ResetRe
2690: 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b  sult(p->interp);
26a0: 0a 20 20 7d 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43  .  }.}.../*.** C
26b0: 6c 6f 73 65 20 61 6e 20 74 76 66 73 2d 66 69 6c  lose an tvfs-fil
26c0: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
26d0: 20 74 76 66 73 43 6c 6f 73 65 28 73 71 6c 69 74   tvfsClose(sqlit
26e0: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b  e3_file *pFile){
26f0: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54 65 73  .  int rc;.  Tes
2700: 74 76 66 73 46 69 6c 65 20 2a 70 54 65 73 74 66  tvfsFile *pTestf
2710: 69 6c 65 20 3d 20 28 54 65 73 74 76 66 73 46 69  ile = (TestvfsFi
2720: 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 54 65  le *)pFile;.  Te
2730: 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 70  stvfsFd *pFd = p
2740: 54 65 73 74 66 69 6c 65 2d 3e 70 46 64 3b 0a 20  Testfile->pFd;. 
2750: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
2760: 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56  estvfs *)pFd->pV
2770: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20  fs->pAppData;.. 
2780: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
2790: 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  && p->mask&TESTV
27a0: 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20 29 7b  FS_CLOSE_MASK ){
27b0: 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c  .    tvfsExecTcl
27c0: 28 70 2c 20 22 78 43 6c 6f 73 65 22 2c 20 0a 20  (p, "xClose", . 
27d0: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74         Tcl_NewSt
27e0: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
27f0: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64  lename, -1), pFd
2800: 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20  ->pShmId, 0, 0. 
2810: 20 20 20 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28     );.  }..  if(
2820: 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 29 7b 0a   pFd->pShmId ){.
2830: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43      Tcl_DecrRefC
2840: 6f 75 6e 74 28 70 46 64 2d 3e 70 53 68 6d 49 64  ount(pFd->pShmId
2850: 29 3b 0a 20 20 20 20 70 46 64 2d 3e 70 53 68 6d  );.    pFd->pShm
2860: 49 64 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66  Id = 0;.  }.  if
2870: 28 20 70 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64  ( pFile->pMethod
2880: 73 20 29 7b 0a 20 20 20 20 63 6b 66 72 65 65 28  s ){.    ckfree(
2890: 28 63 68 61 72 20 2a 29 70 46 69 6c 65 2d 3e 70  (char *)pFile->p
28a0: 4d 65 74 68 6f 64 73 29 3b 0a 20 20 7d 0a 20 20  Methods);.  }.  
28b0: 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 43 6c  rc = sqlite3OsCl
28c0: 6f 73 65 28 70 46 64 2d 3e 70 52 65 61 6c 29 3b  ose(pFd->pReal);
28d0: 0a 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20  .  ckfree((char 
28e0: 2a 29 70 46 64 29 3b 0a 20 20 70 54 65 73 74 66  *)pFd);.  pTestf
28f0: 69 6c 65 2d 3e 70 46 64 20 3d 20 30 3b 0a 20 20  ile->pFd = 0;.  
2900: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a  return rc;.}../*
2910: 0a 2a 2a 20 52 65 61 64 20 64 61 74 61 20 66 72  .** Read data fr
2920: 6f 6d 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  om an tvfs-file.
2930: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2940: 76 66 73 52 65 61 64 28 0a 20 20 73 71 6c 69 74  vfsRead(.  sqlit
2950: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20  e3_file *pFile, 
2960: 0a 20 20 76 6f 69 64 20 2a 7a 42 75 66 2c 20 0a  .  void *zBuf, .
2970: 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a 20 20 73    int iAmt, .  s
2980: 71 6c 69 74 65 5f 69 6e 74 36 34 20 69 4f 66 73  qlite_int64 iOfs
2990: 74 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  t.){.  int rc = 
29a0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
29b0: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
29c0: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
29d0: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
29e0: 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70  Testvfs *)pFd->p
29f0: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20  Vfs->pAppData;. 
2a00: 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20   if( p->pScript 
2a10: 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  && p->mask&TESTV
2a20: 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20 29 7b 0a  FS_READ_MASK ){.
2a30: 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28      tvfsExecTcl(
2a40: 70 2c 20 22 78 52 65 61 64 22 2c 20 0a 20 20 20  p, "xRead", .   
2a50: 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69       Tcl_NewStri
2a60: 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65  ngObj(pFd->zFile
2a70: 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e  name, -1), pFd->
2a80: 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20 20 20  pShmId, 0, 0.   
2a90: 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75   );.    tvfsResu
2aa0: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a  ltCode(p, &rc);.
2ab0: 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d 53 51    }.  if( rc==SQ
2ac0: 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e 6d 61  LITE_OK && p->ma
2ad0: 73 6b 26 54 45 53 54 56 46 53 5f 52 45 41 44 5f  sk&TESTVFS_READ_
2ae0: 4d 41 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65  MASK && tvfsInje
2af0: 63 74 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20  ctIoerr(p) ){.  
2b00: 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 49 4f    rc = SQLITE_IO
2b10: 45 52 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72  ERR;.  }.  if( r
2b20: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
2b30: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
2b40: 4f 73 52 65 61 64 28 70 46 64 2d 3e 70 52 65 61  OsRead(pFd->pRea
2b50: 6c 2c 20 7a 42 75 66 2c 20 69 41 6d 74 2c 20 69  l, zBuf, iAmt, i
2b60: 4f 66 73 74 29 3b 0a 20 20 7d 0a 20 20 72 65 74  Ofst);.  }.  ret
2b70: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  urn rc;.}../*.**
2b80: 20 57 72 69 74 65 20 64 61 74 61 20 74 6f 20 61   Write data to a
2b90: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
2ba0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 57  static int tvfsW
2bb0: 72 69 74 65 28 0a 20 20 73 71 6c 69 74 65 33 5f  rite(.  sqlite3_
2bc0: 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20  file *pFile, .  
2bd0: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 7a 42 75 66  const void *zBuf
2be0: 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a  , .  int iAmt, .
2bf0: 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 69    sqlite_int64 i
2c00: 4f 66 73 74 0a 29 7b 0a 20 20 69 6e 74 20 72 63  Ofst.){.  int rc
2c10: 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20   = SQLITE_OK;.  
2c20: 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d  TestvfsFd *pFd =
2c30: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
2c40: 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  );.  Testvfs *p 
2c50: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64  = (Testvfs *)pFd
2c60: 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61  ->pVfs->pAppData
2c70: 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72  ;..  if( p->pScr
2c80: 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  ipt && p->mask&T
2c90: 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d 41 53  ESTVFS_WRITE_MAS
2ca0: 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65  K ){.    tvfsExe
2cb0: 63 54 63 6c 28 70 2c 20 22 78 57 72 69 74 65 22  cTcl(p, "xWrite"
2cc0: 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e  , .        Tcl_N
2cd0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
2ce0: 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c  >zFilename, -1),
2cf0: 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 0a 20   pFd->pShmId, . 
2d00: 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 57 69         Tcl_NewWi
2d10: 64 65 49 6e 74 4f 62 6a 28 69 4f 66 73 74 29 2c  deIntObj(iOfst),
2d20: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69   Tcl_NewIntObj(i
2d30: 41 6d 74 29 0a 20 20 20 20 29 3b 0a 20 20 20 20  Amt).    );.    
2d40: 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70  tvfsResultCode(p
2d50: 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69  , &rc);.  }..  i
2d60: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
2d70: 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74 46 75   && tvfsInjectFu
2d80: 6c 6c 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20  llerr(p) ){.    
2d90: 72 63 20 3d 20 53 51 4c 49 54 45 5f 46 55 4c 4c  rc = SQLITE_FULL
2da0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d  ;.  }.  if( rc==
2db0: 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 70 2d 3e  SQLITE_OK && p->
2dc0: 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 57 52 49  mask&TESTVFS_WRI
2dd0: 54 45 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49  TE_MASK && tvfsI
2de0: 6e 6a 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b  njectIoerr(p) ){
2df0: 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45  .    rc = SQLITE
2e00: 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 20 20 0a 20  _IOERR;.  }.  . 
2e10: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
2e20: 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73  OK ){.    rc = s
2e30: 71 6c 69 74 65 33 4f 73 57 72 69 74 65 28 70 46  qlite3OsWrite(pF
2e40: 64 2d 3e 70 52 65 61 6c 2c 20 7a 42 75 66 2c 20  d->pReal, zBuf, 
2e50: 69 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a 20 20  iAmt, iOfst);.  
2e60: 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  }.  return rc;.}
2e70: 0a 0a 2f 2a 0a 2a 2a 20 54 72 75 6e 63 61 74 65  ../*.** Truncate
2e80: 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a   an tvfs-file..*
2e90: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
2ea0: 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69 74 65  sTruncate(sqlite
2eb0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 73  3_file *pFile, s
2ec0: 71 6c 69 74 65 5f 69 6e 74 36 34 20 73 69 7a 65  qlite_int64 size
2ed0: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  ){.  int rc = SQ
2ee0: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76  LITE_OK;.  Testv
2ef0: 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73  fsFd *pFd = tvfs
2f00: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
2f10: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
2f20: 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66  stvfs *)pFd->pVf
2f30: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20 20  s->pAppData;..  
2f40: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
2f50: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
2f60: 53 5f 54 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20  S_TRUNCATE_MASK 
2f70: 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54  ){.    tvfsExecT
2f80: 63 6c 28 70 2c 20 22 78 54 72 75 6e 63 61 74 65  cl(p, "xTruncate
2f90: 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  ", .        Tcl_
2fa0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64  NewStringObj(pFd
2fb0: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29  ->zFilename, -1)
2fc0: 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30  , pFd->pShmId, 0
2fd0: 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20 74  , 0.    );.    t
2fe0: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
2ff0: 20 26 72 63 29 3b 0a 20 20 7d 0a 20 20 0a 20 20   &rc);.  }.  .  
3000: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
3010: 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71  K ){.    rc = sq
3020: 6c 69 74 65 33 4f 73 54 72 75 6e 63 61 74 65 28  lite3OsTruncate(
3030: 70 46 64 2d 3e 70 52 65 61 6c 2c 20 73 69 7a 65  pFd->pReal, size
3040: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
3050: 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 79 6e  rc;.}../*.** Syn
3060: 63 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a  c an tvfs-file..
3070: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
3080: 66 73 53 79 6e 63 28 73 71 6c 69 74 65 33 5f 66  fsSync(sqlite3_f
3090: 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20  ile *pFile, int 
30a0: 66 6c 61 67 73 29 7b 0a 20 20 69 6e 74 20 72 63  flags){.  int rc
30b0: 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20   = SQLITE_OK;.  
30c0: 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20 3d  TestvfsFd *pFd =
30d0: 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c 65   tvfsGetFd(pFile
30e0: 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  );.  Testvfs *p 
30f0: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64  = (Testvfs *)pFd
3100: 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61  ->pVfs->pAppData
3110: 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72  ;..  if( p->pScr
3120: 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  ipt && p->mask&T
3130: 45 53 54 56 46 53 5f 53 59 4e 43 5f 4d 41 53 4b  ESTVFS_SYNC_MASK
3140: 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 46   ){.    char *zF
3150: 6c 61 67 73 3b 0a 0a 20 20 20 20 73 77 69 74 63  lags;..    switc
3160: 68 28 20 66 6c 61 67 73 20 29 7b 0a 20 20 20 20  h( flags ){.    
3170: 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53 59    case SQLITE_SY
3180: 4e 43 5f 4e 4f 52 4d 41 4c 3a 0a 20 20 20 20 20  NC_NORMAL:.     
3190: 20 20 20 7a 46 6c 61 67 73 20 3d 20 22 6e 6f 72     zFlags = "nor
31a0: 6d 61 6c 22 3b 0a 20 20 20 20 20 20 20 20 62 72  mal";.        br
31b0: 65 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20  eak;.      case 
31c0: 53 51 4c 49 54 45 5f 53 59 4e 43 5f 46 55 4c 4c  SQLITE_SYNC_FULL
31d0: 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67 73  :.        zFlags
31e0: 20 3d 20 22 66 75 6c 6c 22 3b 0a 20 20 20 20 20   = "full";.     
31f0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20     break;.      
3200: 63 61 73 65 20 53 51 4c 49 54 45 5f 53 59 4e 43  case SQLITE_SYNC
3210: 5f 4e 4f 52 4d 41 4c 7c 53 51 4c 49 54 45 5f 53  _NORMAL|SQLITE_S
3220: 59 4e 43 5f 44 41 54 41 4f 4e 4c 59 3a 0a 20 20  YNC_DATAONLY:.  
3230: 20 20 20 20 20 20 7a 46 6c 61 67 73 20 3d 20 22        zFlags = "
3240: 6e 6f 72 6d 61 6c 7c 64 61 74 61 6f 6e 6c 79 22  normal|dataonly"
3250: 3b 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b  ;.        break;
3260: 0a 20 20 20 20 20 20 63 61 73 65 20 53 51 4c 49  .      case SQLI
3270: 54 45 5f 53 59 4e 43 5f 46 55 4c 4c 7c 53 51 4c  TE_SYNC_FULL|SQL
3280: 49 54 45 5f 53 59 4e 43 5f 44 41 54 41 4f 4e 4c  ITE_SYNC_DATAONL
3290: 59 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67  Y:.        zFlag
32a0: 73 20 3d 20 22 66 75 6c 6c 7c 64 61 74 61 6f 6e  s = "full|dataon
32b0: 6c 79 22 3b 0a 20 20 20 20 20 20 20 20 62 72 65  ly";.        bre
32c0: 61 6b 3b 0a 20 20 20 20 20 20 64 65 66 61 75 6c  ak;.      defaul
32d0: 74 3a 0a 20 20 20 20 20 20 20 20 61 73 73 65 72  t:.        asser
32e0: 74 28 30 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  t(0);.    }..   
32f0: 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20   tvfsExecTcl(p, 
3300: 22 78 53 79 6e 63 22 2c 20 0a 20 20 20 20 20 20  "xSync", .      
3310: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
3320: 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d  bj(pFd->zFilenam
3330: 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68  e, -1), pFd->pSh
3340: 6d 49 64 2c 0a 20 20 20 20 20 20 20 20 54 63 6c  mId,.        Tcl
3350: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 46  _NewStringObj(zF
3360: 6c 61 67 73 2c 20 2d 31 29 2c 20 30 0a 20 20 20  lags, -1), 0.   
3370: 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75   );.    tvfsResu
3380: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a  ltCode(p, &rc);.
3390: 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53    }..  if( rc==S
33a0: 51 4c 49 54 45 5f 4f 4b 20 26 26 20 74 76 66 73  QLITE_OK && tvfs
33b0: 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 70 29  InjectFullerr(p)
33c0: 20 29 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 46   ) rc = SQLITE_F
33d0: 55 4c 4c 3b 0a 0a 20 20 69 66 28 20 72 63 3d 3d  ULL;..  if( rc==
33e0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20  SQLITE_OK ){.   
33f0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 53   rc = sqlite3OsS
3400: 79 6e 63 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20  ync(pFd->pReal, 
3410: 66 6c 61 67 73 29 3b 0a 20 20 7d 0a 0a 20 20 72  flags);.  }..  r
3420: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
3430: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 63 75  ** Return the cu
3440: 72 72 65 6e 74 20 66 69 6c 65 2d 73 69 7a 65 20  rrent file-size 
3450: 6f 66 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  of an tvfs-file.
3460: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
3470: 76 66 73 46 69 6c 65 53 69 7a 65 28 73 71 6c 69  vfsFileSize(sqli
3480: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
3490: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70   sqlite_int64 *p
34a0: 53 69 7a 65 29 7b 0a 20 20 54 65 73 74 76 66 73  Size){.  Testvfs
34b0: 46 64 20 2a 70 20 3d 20 74 76 66 73 47 65 74 46  Fd *p = tvfsGetF
34c0: 64 28 70 46 69 6c 65 29 3b 0a 20 20 72 65 74 75  d(pFile);.  retu
34d0: 72 6e 20 73 71 6c 69 74 65 33 4f 73 46 69 6c 65  rn sqlite3OsFile
34e0: 53 69 7a 65 28 70 2d 3e 70 52 65 61 6c 2c 20 70  Size(p->pReal, p
34f0: 53 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  Size);.}../*.** 
3500: 4c 6f 63 6b 20 61 6e 20 74 76 66 73 2d 66 69 6c  Lock an tvfs-fil
3510: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
3520: 20 74 76 66 73 4c 6f 63 6b 28 73 71 6c 69 74 65   tvfsLock(sqlite
3530: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69  3_file *pFile, i
3540: 6e 74 20 65 4c 6f 63 6b 29 7b 0a 20 20 54 65 73  nt eLock){.  Tes
3550: 74 76 66 73 46 64 20 2a 70 20 3d 20 74 76 66 73  tvfsFd *p = tvfs
3560: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
3570: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
3580: 4c 6f 63 6b 28 70 2d 3e 70 52 65 61 6c 2c 20 65  Lock(p->pReal, e
3590: 4c 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  Lock);.}../*.** 
35a0: 55 6e 6c 6f 63 6b 20 61 6e 20 74 76 66 73 2d 66  Unlock an tvfs-f
35b0: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
35c0: 6e 74 20 74 76 66 73 55 6e 6c 6f 63 6b 28 73 71  nt tvfsUnlock(sq
35d0: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
35e0: 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b 0a 20  e, int eLock){. 
35f0: 20 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 20   TestvfsFd *pFd 
3600: 3d 20 74 76 66 73 47 65 74 46 64 28 70 46 69 6c  = tvfsGetFd(pFil
3610: 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  e);.  Testvfs *p
3620: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 46   = (Testvfs *)pF
3630: 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74  d->pVfs->pAppDat
3640: 61 3b 0a 20 20 69 66 28 20 70 2d 3e 6d 61 73 6b  a;.  if( p->mask
3650: 26 54 45 53 54 56 46 53 5f 57 52 49 54 45 5f 4d  &TESTVFS_WRITE_M
3660: 41 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63  ASK && tvfsInjec
3670: 74 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20  tIoerr(p) ){.   
3680: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49   return SQLITE_I
3690: 4f 45 52 52 5f 55 4e 4c 4f 43 4b 3b 0a 20 20 7d  OERR_UNLOCK;.  }
36a0: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
36b0: 33 4f 73 55 6e 6c 6f 63 6b 28 70 46 64 2d 3e 70  3OsUnlock(pFd->p
36c0: 52 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a 7d 0a  Real, eLock);.}.
36d0: 0a 2f 2a 0a 2a 2a 20 43 68 65 63 6b 20 69 66 20  ./*.** Check if 
36e0: 61 6e 6f 74 68 65 72 20 66 69 6c 65 2d 68 61 6e  another file-han
36f0: 64 6c 65 20 68 6f 6c 64 73 20 61 20 52 45 53 45  dle holds a RESE
3700: 52 56 45 44 20 6c 6f 63 6b 20 6f 6e 20 61 6e 20  RVED lock on an 
3710: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
3720: 61 74 69 63 20 69 6e 74 20 74 76 66 73 43 68 65  atic int tvfsChe
3730: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 73  ckReservedLock(s
3740: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
3750: 6c 65 2c 20 69 6e 74 20 2a 70 52 65 73 4f 75 74  le, int *pResOut
3760: 29 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a  ){.  TestvfsFd *
3770: 70 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  p = tvfsGetFd(pF
3780: 69 6c 65 29 3b 0a 20 20 72 65 74 75 72 6e 20 73  ile);.  return s
3790: 71 6c 69 74 65 33 4f 73 43 68 65 63 6b 52 65 73  qlite3OsCheckRes
37a0: 65 72 76 65 64 4c 6f 63 6b 28 70 2d 3e 70 52 65  ervedLock(p->pRe
37b0: 61 6c 2c 20 70 52 65 73 4f 75 74 29 3b 0a 7d 0a  al, pResOut);.}.
37c0: 0a 2f 2a 0a 2a 2a 20 46 69 6c 65 20 63 6f 6e 74  ./*.** File cont
37d0: 72 6f 6c 20 6d 65 74 68 6f 64 2e 20 46 6f 72 20  rol method. For 
37e0: 63 75 73 74 6f 6d 20 6f 70 65 72 61 74 69 6f 6e  custom operation
37f0: 73 20 6f 6e 20 61 6e 20 74 76 66 73 2d 66 69 6c  s on an tvfs-fil
3800: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
3810: 20 74 76 66 73 46 69 6c 65 43 6f 6e 74 72 6f 6c   tvfsFileControl
3820: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
3830: 46 69 6c 65 2c 20 69 6e 74 20 6f 70 2c 20 76 6f  File, int op, vo
3840: 69 64 20 2a 70 41 72 67 29 7b 0a 20 20 54 65 73  id *pArg){.  Tes
3850: 74 76 66 73 46 64 20 2a 70 20 3d 20 74 76 66 73  tvfsFd *p = tvfs
3860: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
3870: 69 66 28 20 6f 70 3d 3d 53 51 4c 49 54 45 5f 46  if( op==SQLITE_F
3880: 43 4e 54 4c 5f 50 52 41 47 4d 41 20 29 7b 0a 20  CNTL_PRAGMA ){. 
3890: 20 20 20 63 68 61 72 20 2a 2a 61 72 67 76 20 3d     char **argv =
38a0: 20 28 63 68 61 72 2a 2a 29 70 41 72 67 3b 0a 20   (char**)pArg;. 
38b0: 20 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73     if( sqlite3_s
38c0: 74 72 69 63 6d 70 28 61 72 67 76 5b 31 5d 2c 22  tricmp(argv[1],"
38d0: 65 72 72 6f 72 22 29 3d 3d 30 20 29 7b 0a 20 20  error")==0 ){.  
38e0: 20 20 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c      int rc = SQL
38f0: 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  ITE_ERROR;.     
3900: 20 69 66 28 20 61 72 67 76 5b 32 5d 20 29 7b 0a   if( argv[2] ){.
3910: 20 20 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68          const ch
3920: 61 72 20 2a 7a 20 3d 20 61 72 67 76 5b 32 5d 3b  ar *z = argv[2];
3930: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 78 20 3d  .        int x =
3940: 20 61 74 6f 69 28 7a 29 3b 0a 20 20 20 20 20 20   atoi(z);.      
3950: 20 20 69 66 28 20 78 20 29 7b 0a 20 20 20 20 20    if( x ){.     
3960: 20 20 20 20 20 72 63 20 3d 20 78 3b 0a 20 20 20       rc = x;.   
3970: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 73 71         while( sq
3980: 6c 69 74 65 33 49 73 64 69 67 69 74 28 7a 5b 30  lite3Isdigit(z[0
3990: 5d 29 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20  ]) ){ z++; }.   
39a0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 73 71         while( sq
39b0: 6c 69 74 65 33 49 73 73 70 61 63 65 28 7a 5b 30  lite3Isspace(z[0
39c0: 5d 29 20 29 7b 20 7a 2b 2b 3b 20 7d 0a 20 20 20  ]) ){ z++; }.   
39d0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69       }.        i
39e0: 66 28 20 7a 5b 30 5d 20 29 20 61 72 67 76 5b 30  f( z[0] ) argv[0
39f0: 5d 20 3d 20 73 71 6c 69 74 65 33 5f 6d 70 72 69  ] = sqlite3_mpri
3a00: 6e 74 66 28 22 25 73 22 2c 20 7a 29 3b 0a 20 20  ntf("%s", z);.  
3a10: 20 20 20 20 7d 0a 20 20 20 20 20 20 72 65 74 75      }.      retu
3a20: 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a 20 20 20  rn rc;.    }.   
3a30: 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73 74 72   if( sqlite3_str
3a40: 69 63 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 66  icmp(argv[1], "f
3a50: 69 6c 65 6e 61 6d 65 22 29 3d 3d 30 20 29 7b 0a  ilename")==0 ){.
3a60: 20 20 20 20 20 20 61 72 67 76 5b 30 5d 20 3d 20        argv[0] = 
3a70: 73 71 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28  sqlite3_mprintf(
3a80: 22 25 73 22 2c 20 70 2d 3e 7a 46 69 6c 65 6e 61  "%s", p->zFilena
3a90: 6d 65 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72  me);.      retur
3aa0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 20  n SQLITE_OK;.   
3ab0: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20   }.  }.  return 
3ac0: 73 71 6c 69 74 65 33 4f 73 46 69 6c 65 43 6f 6e  sqlite3OsFileCon
3ad0: 74 72 6f 6c 28 70 2d 3e 70 52 65 61 6c 2c 20 6f  trol(p->pReal, o
3ae0: 70 2c 20 70 41 72 67 29 3b 0a 7d 0a 0a 2f 2a 0a  p, pArg);.}../*.
3af0: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 73 65  ** Return the se
3b00: 63 74 6f 72 2d 73 69 7a 65 20 69 6e 20 62 79 74  ctor-size in byt
3b10: 65 73 20 66 6f 72 20 61 6e 20 74 76 66 73 2d 66  es for an tvfs-f
3b20: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
3b30: 6e 74 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a  nt tvfsSectorSiz
3b40: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  e(sqlite3_file *
3b50: 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66  pFile){.  Testvf
3b60: 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47  sFd *pFd = tvfsG
3b70: 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54  etFd(pFile);.  T
3b80: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
3b90: 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66 73  tvfs *)pFd->pVfs
3ba0: 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69 66  ->pAppData;.  if
3bb0: 28 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65  ( p->iSectorsize
3bc0: 3e 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72  >=0 ){.    retur
3bd0: 6e 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65  n p->iSectorsize
3be0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 73  ;.  }.  return s
3bf0: 71 6c 69 74 65 33 4f 73 53 65 63 74 6f 72 53 69  qlite3OsSectorSi
3c00: 7a 65 28 70 46 64 2d 3e 70 52 65 61 6c 29 3b 0a  ze(pFd->pReal);.
3c10: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
3c20: 74 68 65 20 64 65 76 69 63 65 20 63 68 61 72 61  the device chara
3c30: 63 74 65 72 69 73 74 69 63 20 66 6c 61 67 73 20  cteristic flags 
3c40: 73 75 70 70 6f 72 74 65 64 20 62 79 20 61 6e 20  supported by an 
3c50: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
3c60: 61 74 69 63 20 69 6e 74 20 74 76 66 73 44 65 76  atic int tvfsDev
3c70: 69 63 65 43 68 61 72 61 63 74 65 72 69 73 74 69  iceCharacteristi
3c80: 63 73 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  cs(sqlite3_file 
3c90: 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74 76  *pFile){.  Testv
3ca0: 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73  fsFd *pFd = tvfs
3cb0: 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20  GetFd(pFile);.  
3cc0: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
3cd0: 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66  stvfs *)pFd->pVf
3ce0: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69  s->pAppData;.  i
3cf0: 66 28 20 70 2d 3e 69 44 65 76 63 68 61 72 3e 3d  f( p->iDevchar>=
3d00: 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  0 ){.    return 
3d10: 70 2d 3e 69 44 65 76 63 68 61 72 3b 0a 20 20 7d  p->iDevchar;.  }
3d20: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
3d30: 33 4f 73 44 65 76 69 63 65 43 68 61 72 61 63 74  3OsDeviceCharact
3d40: 65 72 69 73 74 69 63 73 28 70 46 64 2d 3e 70 52  eristics(pFd->pR
3d50: 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f  eal);.}../*.** O
3d60: 70 65 6e 20 61 6e 20 74 76 66 73 20 66 69 6c 65  pen an tvfs file
3d70: 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74   handle..*/.stat
3d80: 69 63 20 69 6e 74 20 74 76 66 73 4f 70 65 6e 28  ic int tvfsOpen(
3d90: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
3da0: 70 56 66 73 2c 0a 20 20 63 6f 6e 73 74 20 63 68  pVfs,.  const ch
3db0: 61 72 20 2a 7a 4e 61 6d 65 2c 0a 20 20 73 71 6c  ar *zName,.  sql
3dc0: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
3dd0: 2c 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c 0a 20  ,.  int flags,. 
3de0: 20 69 6e 74 20 2a 70 4f 75 74 46 6c 61 67 73 0a   int *pOutFlags.
3df0: 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54  ){.  int rc;.  T
3e00: 65 73 74 76 66 73 46 69 6c 65 20 2a 70 54 65 73  estvfsFile *pTes
3e10: 74 66 69 6c 65 20 3d 20 28 54 65 73 74 76 66 73  tfile = (Testvfs
3e20: 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20  File *)pFile;.  
3e30: 54 65 73 74 76 66 73 46 64 20 2a 70 46 64 3b 0a  TestvfsFd *pFd;.
3e40: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 49 64 20 3d    Tcl_Obj *pId =
3e50: 20 30 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70   0;.  Testvfs *p
3e60: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 56   = (Testvfs *)pV
3e70: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20  fs->pAppData;.. 
3e80: 20 70 46 64 20 3d 20 28 54 65 73 74 76 66 73 46   pFd = (TestvfsF
3e90: 64 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65  d *)ckalloc(size
3ea0: 6f 66 28 54 65 73 74 76 66 73 46 64 29 20 2b 20  of(TestvfsFd) + 
3eb0: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2d  PARENTVFS(pVfs)-
3ec0: 3e 73 7a 4f 73 46 69 6c 65 29 3b 0a 20 20 6d 65  >szOsFile);.  me
3ed0: 6d 73 65 74 28 70 46 64 2c 20 30 2c 20 73 69 7a  mset(pFd, 0, siz
3ee0: 65 6f 66 28 54 65 73 74 76 66 73 46 64 29 20 2b  eof(TestvfsFd) +
3ef0: 20 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29   PARENTVFS(pVfs)
3f00: 2d 3e 73 7a 4f 73 46 69 6c 65 29 3b 0a 20 20 70  ->szOsFile);.  p
3f10: 46 64 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a 20 20  Fd->pShm = 0;.  
3f20: 70 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20 30 3b  pFd->pShmId = 0;
3f30: 0a 20 20 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d  .  pFd->zFilenam
3f40: 65 20 3d 20 7a 4e 61 6d 65 3b 0a 20 20 70 46 64  e = zName;.  pFd
3f50: 2d 3e 70 56 66 73 20 3d 20 70 56 66 73 3b 0a 20  ->pVfs = pVfs;. 
3f60: 20 70 46 64 2d 3e 70 52 65 61 6c 20 3d 20 28 73   pFd->pReal = (s
3f70: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 29 26 70  qlite3_file *)&p
3f80: 46 64 5b 31 5d 3b 0a 20 20 6d 65 6d 73 65 74 28  Fd[1];.  memset(
3f90: 70 54 65 73 74 66 69 6c 65 2c 20 30 2c 20 73 69  pTestfile, 0, si
3fa0: 7a 65 6f 66 28 54 65 73 74 76 66 73 46 69 6c 65  zeof(TestvfsFile
3fb0: 29 29 3b 0a 20 20 70 54 65 73 74 66 69 6c 65 2d  ));.  pTestfile-
3fc0: 3e 70 46 64 20 3d 20 70 46 64 3b 0a 0a 20 20 2f  >pFd = pFd;..  /
3fd0: 2a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 54  * Evaluate the T
3fe0: 63 6c 20 73 63 72 69 70 74 3a 20 0a 20 20 2a 2a  cl script: .  **
3ff0: 0a 20 20 2a 2a 20 20 20 53 43 52 49 50 54 20 78  .  **   SCRIPT x
4000: 4f 70 65 6e 20 46 49 4c 45 4e 41 4d 45 20 4b 45  Open FILENAME KE
4010: 59 2d 56 41 4c 55 45 2d 41 52 47 53 0a 20 20 2a  Y-VALUE-ARGS.  *
4020: 2a 0a 20 20 2a 2a 20 49 66 20 74 68 65 20 73 63  *.  ** If the sc
4030: 72 69 70 74 20 72 65 74 75 72 6e 73 20 61 6e 20  ript returns an 
4040: 53 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f 64  SQLite error cod
4050: 65 20 6f 74 68 65 72 20 74 68 61 6e 20 53 51 4c  e other than SQL
4060: 49 54 45 5f 4f 4b 2c 20 61 6e 0a 20 20 2a 2a 20  ITE_OK, an.  ** 
4070: 65 72 72 6f 72 20 69 73 20 72 65 74 75 72 6e 65  error is returne
4080: 64 20 74 6f 20 74 68 65 20 63 61 6c 6c 65 72 2e  d to the caller.
4090: 20 49 66 20 69 74 20 72 65 74 75 72 6e 73 20 53   If it returns S
40a0: 51 4c 49 54 45 5f 4f 4b 2c 20 74 68 65 20 6e 65  QLITE_OK, the ne
40b0: 77 0a 20 20 2a 2a 20 63 6f 6e 6e 65 63 74 69 6f  w.  ** connectio
40c0: 6e 20 69 73 20 6e 61 6d 65 64 20 22 61 6e 6f 6e  n is named "anon
40d0: 22 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68  ". Otherwise, th
40e0: 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64  e value returned
40f0: 20 62 79 20 74 68 65 0a 20 20 2a 2a 20 73 63 72   by the.  ** scr
4100: 69 70 74 20 69 73 20 75 73 65 64 20 61 73 20 74  ipt is used as t
4110: 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 61  he connection na
4120: 6d 65 2e 0a 20 20 2a 2f 0a 20 20 54 63 6c 5f 52  me..  */.  Tcl_R
4130: 65 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e  esetResult(p->in
4140: 74 65 72 70 29 3b 0a 20 20 69 66 28 20 70 2d 3e  terp);.  if( p->
4150: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
4160: 73 6b 26 54 45 53 54 56 46 53 5f 4f 50 45 4e 5f  sk&TESTVFS_OPEN_
4170: 4d 41 53 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f  MASK ){.    Tcl_
4180: 4f 62 6a 20 2a 70 41 72 67 20 3d 20 54 63 6c 5f  Obj *pArg = Tcl_
4190: 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 54 63  NewObj();.    Tc
41a0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
41b0: 41 72 67 29 3b 0a 20 20 20 20 69 66 28 20 66 6c  Arg);.    if( fl
41c0: 61 67 73 26 53 51 4c 49 54 45 5f 4f 50 45 4e 5f  ags&SQLITE_OPEN_
41d0: 4d 41 49 4e 5f 44 42 20 29 7b 0a 20 20 20 20 20  MAIN_DB ){.     
41e0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 20 3d   const char *z =
41f0: 20 26 7a 4e 61 6d 65 5b 73 74 72 6c 65 6e 28 7a   &zName[strlen(z
4200: 4e 61 6d 65 29 2b 31 5d 3b 0a 20 20 20 20 20 20  Name)+1];.      
4210: 77 68 69 6c 65 28 20 2a 7a 20 29 7b 0a 20 20 20  while( *z ){.   
4220: 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a       Tcl_ListObj
4230: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c  AppendElement(0,
4240: 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77 53 74   pArg, Tcl_NewSt
4250: 72 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29 29 3b  ringObj(z, -1));
4260: 0a 20 20 20 20 20 20 20 20 7a 20 2b 3d 20 73 74  .        z += st
4270: 72 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20 20 20  rlen(z) + 1;.   
4280: 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a       Tcl_ListObj
4290: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 30 2c  AppendElement(0,
42a0: 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77 53 74   pArg, Tcl_NewSt
42b0: 72 69 6e 67 4f 62 6a 28 7a 2c 20 2d 31 29 29 3b  ringObj(z, -1));
42c0: 0a 20 20 20 20 20 20 20 20 7a 20 2b 3d 20 73 74  .        z += st
42d0: 72 6c 65 6e 28 7a 29 20 2b 20 31 3b 0a 20 20 20  rlen(z) + 1;.   
42e0: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 74     }.    }.    t
42f0: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
4300: 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77 53 74  Open", Tcl_NewSt
4310: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69  ringObj(pFd->zFi
4320: 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 41 72  lename, -1), pAr
4330: 67 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 54 63  g, 0, 0);.    Tc
4340: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70  l_DecrRefCount(p
4350: 41 72 67 29 3b 0a 20 20 20 20 69 66 28 20 74 76  Arg);.    if( tv
4360: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
4370: 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69 66  &rc) ){.      if
4380: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
4390: 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20  ) return rc;.   
43a0: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70 49   }else{.      pI
43b0: 64 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65  d = Tcl_GetObjRe
43c0: 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b  sult(p->interp);
43d0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 69 66  .    }.  }..  if
43e0: 28 20 28 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56  ( (p->mask&TESTV
43f0: 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 29 20 26 26  FS_OPEN_MASK) &&
4400: 20 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65 72    tvfsInjectIoer
4410: 72 28 70 29 20 29 20 72 65 74 75 72 6e 20 53 51  r(p) ) return SQ
4420: 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20 20 69 66  LITE_IOERR;.  if
4430: 28 20 74 76 66 73 49 6e 6a 65 63 74 43 61 6e 74  ( tvfsInjectCant
4440: 6f 70 65 6e 65 72 72 28 70 29 20 29 20 72 65 74  openerr(p) ) ret
4450: 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f  urn SQLITE_CANTO
4460: 50 45 4e 3b 0a 20 20 69 66 28 20 74 76 66 73 49  PEN;.  if( tvfsI
4470: 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 70 29 20  njectFullerr(p) 
4480: 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f  ) return SQLITE_
4490: 46 55 4c 4c 3b 0a 0a 20 20 69 66 28 20 21 70 49  FULL;..  if( !pI
44a0: 64 20 29 7b 0a 20 20 20 20 70 49 64 20 3d 20 54  d ){.    pId = T
44b0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
44c0: 22 61 6e 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20 7d  "anon", -1);.  }
44d0: 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f  .  Tcl_IncrRefCo
44e0: 75 6e 74 28 70 49 64 29 3b 0a 20 20 70 46 64 2d  unt(pId);.  pFd-
44f0: 3e 70 53 68 6d 49 64 20 3d 20 70 49 64 3b 0a 20  >pShmId = pId;. 
4500: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74   Tcl_ResetResult
4510: 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20  (p->interp);..  
4520: 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 4f 70  rc = sqlite3OsOp
4530: 65 6e 28 50 41 52 45 4e 54 56 46 53 28 70 56 66  en(PARENTVFS(pVf
4540: 73 29 2c 20 7a 4e 61 6d 65 2c 20 70 46 64 2d 3e  s), zName, pFd->
4550: 70 52 65 61 6c 2c 20 66 6c 61 67 73 2c 20 70 4f  pReal, flags, pO
4560: 75 74 46 6c 61 67 73 29 3b 0a 20 20 69 66 28 20  utFlags);.  if( 
4570: 70 46 64 2d 3e 70 52 65 61 6c 2d 3e 70 4d 65 74  pFd->pReal->pMet
4580: 68 6f 64 73 20 29 7b 0a 20 20 20 20 73 71 6c 69  hods ){.    sqli
4590: 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 2a  te3_io_methods *
45a0: 70 4d 65 74 68 6f 64 73 3b 0a 20 20 20 20 69 6e  pMethods;.    in
45b0: 74 20 6e 42 79 74 65 3b 0a 0a 20 20 20 20 69 66  t nByte;..    if
45c0: 28 20 70 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e  ( pVfs->iVersion
45d0: 3e 31 20 29 7b 0a 20 20 20 20 20 20 6e 42 79 74  >1 ){.      nByt
45e0: 65 20 3d 20 73 69 7a 65 6f 66 28 73 71 6c 69 74  e = sizeof(sqlit
45f0: 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 29 3b 0a  e3_io_methods);.
4600: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
4610: 20 6e 42 79 74 65 20 3d 20 6f 66 66 73 65 74 6f   nByte = offseto
4620: 66 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74  f(sqlite3_io_met
4630: 68 6f 64 73 2c 20 78 53 68 6d 4d 61 70 29 3b 0a  hods, xShmMap);.
4640: 20 20 20 20 7d 0a 0a 20 20 20 20 70 4d 65 74 68      }..    pMeth
4650: 6f 64 73 20 3d 20 28 73 71 6c 69 74 65 33 5f 69  ods = (sqlite3_i
4660: 6f 5f 6d 65 74 68 6f 64 73 20 2a 29 63 6b 61 6c  o_methods *)ckal
4670: 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20 20 20  loc(nByte);.    
4680: 6d 65 6d 63 70 79 28 70 4d 65 74 68 6f 64 73 2c  memcpy(pMethods,
4690: 20 26 74 76 66 73 5f 69 6f 5f 6d 65 74 68 6f 64   &tvfs_io_method
46a0: 73 2c 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 70  s, nByte);.    p
46b0: 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72 73 69 6f  Methods->iVersio
46c0: 6e 20 3d 20 70 46 64 2d 3e 70 52 65 61 6c 2d 3e  n = pFd->pReal->
46d0: 70 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72 73 69  pMethods->iVersi
46e0: 6f 6e 3b 0a 20 20 20 20 69 66 28 20 70 4d 65 74  on;.    if( pMet
46f0: 68 6f 64 73 2d 3e 69 56 65 72 73 69 6f 6e 3e 70  hods->iVersion>p
4700: 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e 20 29 7b  Vfs->iVersion ){
4710: 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64 73 2d  .      pMethods-
4720: 3e 69 56 65 72 73 69 6f 6e 20 3d 20 70 56 66 73  >iVersion = pVfs
4730: 2d 3e 69 56 65 72 73 69 6f 6e 3b 0a 20 20 20 20  ->iVersion;.    
4740: 7d 0a 20 20 20 20 69 66 28 20 70 56 66 73 2d 3e  }.    if( pVfs->
4750: 69 56 65 72 73 69 6f 6e 3e 31 20 26 26 20 28 28  iVersion>1 && ((
4760: 54 65 73 74 76 66 73 20 2a 29 70 56 66 73 2d 3e  Testvfs *)pVfs->
4770: 70 41 70 70 44 61 74 61 29 2d 3e 69 73 4e 6f 73  pAppData)->isNos
4780: 68 6d 20 29 7b 0a 20 20 20 20 20 20 70 4d 65 74  hm ){.      pMet
4790: 68 6f 64 73 2d 3e 78 53 68 6d 55 6e 6d 61 70 20  hods->xShmUnmap 
47a0: 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65 74 68  = 0;.      pMeth
47b0: 6f 64 73 2d 3e 78 53 68 6d 4c 6f 63 6b 20 3d 20  ods->xShmLock = 
47c0: 30 3b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64  0;.      pMethod
47d0: 73 2d 3e 78 53 68 6d 42 61 72 72 69 65 72 20 3d  s->xShmBarrier =
47e0: 20 30 3b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f   0;.      pMetho
47f0: 64 73 2d 3e 78 53 68 6d 4d 61 70 20 3d 20 30 3b  ds->xShmMap = 0;
4800: 0a 20 20 20 20 7d 0a 20 20 20 20 70 46 69 6c 65  .    }.    pFile
4810: 2d 3e 70 4d 65 74 68 6f 64 73 20 3d 20 70 4d 65  ->pMethods = pMe
4820: 74 68 6f 64 73 3b 0a 20 20 7d 0a 0a 20 20 72 65  thods;.  }..  re
4830: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a  turn rc;.}../*.*
4840: 2a 20 44 65 6c 65 74 65 20 74 68 65 20 66 69 6c  * Delete the fil
4850: 65 20 6c 6f 63 61 74 65 64 20 61 74 20 7a 50 61  e located at zPa
4860: 74 68 2e 20 49 66 20 74 68 65 20 64 69 72 53 79  th. If the dirSy
4870: 6e 63 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74  nc argument is t
4880: 72 75 65 2c 0a 2a 2a 20 65 6e 73 75 72 65 20 74  rue,.** ensure t
4890: 68 65 20 66 69 6c 65 2d 73 79 73 74 65 6d 20 6d  he file-system m
48a0: 6f 64 69 66 69 63 61 74 69 6f 6e 73 20 61 72 65  odifications are
48b0: 20 73 79 6e 63 65 64 20 74 6f 20 64 69 73 6b 20   synced to disk 
48c0: 62 65 66 6f 72 65 0a 2a 2a 20 72 65 74 75 72 6e  before.** return
48d0: 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ing..*/.static i
48e0: 6e 74 20 74 76 66 73 44 65 6c 65 74 65 28 73 71  nt tvfsDelete(sq
48f0: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
4900: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61   const char *zPa
4910: 74 68 2c 20 69 6e 74 20 64 69 72 53 79 6e 63 29  th, int dirSync)
4920: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
4930: 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66  ITE_OK;.  Testvf
4940: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
4950: 2a 29 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61  *)pVfs->pAppData
4960: 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72  ;..  if( p->pScr
4970: 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  ipt && p->mask&T
4980: 45 53 54 56 46 53 5f 44 45 4c 45 54 45 5f 4d 41  ESTVFS_DELETE_MA
4990: 53 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 45 78  SK ){.    tvfsEx
49a0: 65 63 54 63 6c 28 70 2c 20 22 78 44 65 6c 65 74  ecTcl(p, "xDelet
49b0: 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c  e", .        Tcl
49c0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 50  _NewStringObj(zP
49d0: 61 74 68 2c 20 2d 31 29 2c 20 54 63 6c 5f 4e 65  ath, -1), Tcl_Ne
49e0: 77 49 6e 74 4f 62 6a 28 64 69 72 53 79 6e 63 29  wIntObj(dirSync)
49f0: 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20  , 0, 0.    );.  
4a00: 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65    tvfsResultCode
4a10: 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 20 20  (p, &rc);.  }.  
4a20: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
4a30: 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 73 71  K ){.    rc = sq
4a40: 6c 69 74 65 33 4f 73 44 65 6c 65 74 65 28 50 41  lite3OsDelete(PA
4a50: 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 7a  RENTVFS(pVfs), z
4a60: 50 61 74 68 2c 20 64 69 72 53 79 6e 63 29 3b 0a  Path, dirSync);.
4a70: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b    }.  return rc;
4a80: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 73 74 20 66  .}../*.** Test f
4a90: 6f 72 20 61 63 63 65 73 73 20 70 65 72 6d 69 73  or access permis
4aa0: 73 69 6f 6e 73 2e 20 52 65 74 75 72 6e 20 74 72  sions. Return tr
4ab0: 75 65 20 69 66 20 74 68 65 20 72 65 71 75 65 73  ue if the reques
4ac0: 74 65 64 20 70 65 72 6d 69 73 73 69 6f 6e 0a 2a  ted permission.*
4ad0: 2a 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2c 20  * is available, 
4ae0: 6f 72 20 66 61 6c 73 65 20 6f 74 68 65 72 77 69  or false otherwi
4af0: 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  se..*/.static in
4b00: 74 20 74 76 66 73 41 63 63 65 73 73 28 0a 20 20  t tvfsAccess(.  
4b10: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
4b20: 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  s, .  const char
4b30: 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e 74 20   *zPath, .  int 
4b40: 66 6c 61 67 73 2c 20 0a 20 20 69 6e 74 20 2a 70  flags, .  int *p
4b50: 52 65 73 4f 75 74 0a 29 7b 0a 20 20 54 65 73 74  ResOut.){.  Test
4b60: 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66  vfs *p = (Testvf
4b70: 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70 44 61  s *)pVfs->pAppDa
4b80: 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 70 53 63  ta;.  if( p->pSc
4b90: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
4ba0: 54 45 53 54 56 46 53 5f 41 43 43 45 53 53 5f 4d  TESTVFS_ACCESS_M
4bb0: 41 53 4b 20 29 7b 0a 20 20 20 20 69 6e 74 20 72  ASK ){.    int r
4bc0: 63 3b 0a 20 20 20 20 63 68 61 72 20 2a 7a 41 72  c;.    char *zAr
4bd0: 67 20 3d 20 30 3b 0a 20 20 20 20 69 66 28 20 66  g = 0;.    if( f
4be0: 6c 61 67 73 3d 3d 53 51 4c 49 54 45 5f 41 43 43  lags==SQLITE_ACC
4bf0: 45 53 53 5f 45 58 49 53 54 53 20 29 20 7a 41 72  ESS_EXISTS ) zAr
4c00: 67 20 3d 20 22 53 51 4c 49 54 45 5f 41 43 43 45  g = "SQLITE_ACCE
4c10: 53 53 5f 45 58 49 53 54 53 22 3b 0a 20 20 20 20  SS_EXISTS";.    
4c20: 69 66 28 20 66 6c 61 67 73 3d 3d 53 51 4c 49 54  if( flags==SQLIT
4c30: 45 5f 41 43 43 45 53 53 5f 52 45 41 44 57 52 49  E_ACCESS_READWRI
4c40: 54 45 20 29 20 7a 41 72 67 20 3d 20 22 53 51 4c  TE ) zArg = "SQL
4c50: 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41 44 57  ITE_ACCESS_READW
4c60: 52 49 54 45 22 3b 0a 20 20 20 20 69 66 28 20 66  RITE";.    if( f
4c70: 6c 61 67 73 3d 3d 53 51 4c 49 54 45 5f 41 43 43  lags==SQLITE_ACC
4c80: 45 53 53 5f 52 45 41 44 20 29 20 7a 41 72 67 20  ESS_READ ) zArg 
4c90: 3d 20 22 53 51 4c 49 54 45 5f 41 43 43 45 53 53  = "SQLITE_ACCESS
4ca0: 5f 52 45 41 44 22 3b 0a 20 20 20 20 74 76 66 73  _READ";.    tvfs
4cb0: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 41 63 63  ExecTcl(p, "xAcc
4cc0: 65 73 73 22 2c 20 0a 20 20 20 20 20 20 20 20 54  ess", .        T
4cd0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
4ce0: 7a 50 61 74 68 2c 20 2d 31 29 2c 20 54 63 6c 5f  zPath, -1), Tcl_
4cf0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 41 72  NewStringObj(zAr
4d00: 67 2c 20 2d 31 29 2c 20 30 2c 20 30 0a 20 20 20  g, -1), 0, 0.   
4d10: 20 29 3b 0a 20 20 20 20 69 66 28 20 74 76 66 73   );.    if( tvfs
4d20: 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72  ResultCode(p, &r
4d30: 63 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  c) ){.      if( 
4d40: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20  rc!=SQLITE_OK ) 
4d50: 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d  return rc;.    }
4d60: 65 6c 73 65 7b 0a 20 20 20 20 20 20 54 63 6c 5f  else{.      Tcl_
4d70: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20 3d  Interp *interp =
4d80: 20 70 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20 20   p->interp;.    
4d90: 20 20 69 66 28 20 54 43 4c 5f 4f 4b 3d 3d 54 63    if( TCL_OK==Tc
4da0: 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d  l_GetBooleanFrom
4db0: 4f 62 6a 28 30 2c 20 54 63 6c 5f 47 65 74 4f 62  Obj(0, Tcl_GetOb
4dc0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c  jResult(interp),
4dd0: 20 70 52 65 73 4f 75 74 29 20 29 7b 0a 20 20 20   pResOut) ){.   
4de0: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49       return SQLI
4df0: 54 45 5f 4f 4b 3b 0a 20 20 20 20 20 20 7d 0a 20  TE_OK;.      }. 
4e00: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72     }.  }.  retur
4e10: 6e 20 73 71 6c 69 74 65 33 4f 73 41 63 63 65 73  n sqlite3OsAcces
4e20: 73 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  s(PARENTVFS(pVfs
4e30: 29 2c 20 7a 50 61 74 68 2c 20 66 6c 61 67 73 2c  ), zPath, flags,
4e40: 20 70 52 65 73 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a   pResOut);.}../*
4e50: 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 62 75 66  .** Populate buf
4e60: 66 65 72 20 7a 4f 75 74 20 77 69 74 68 20 74 68  fer zOut with th
4e70: 65 20 66 75 6c 6c 20 63 61 6e 6f 6e 69 63 61 6c  e full canonical
4e80: 20 70 61 74 68 6e 61 6d 65 20 63 6f 72 72 65 73   pathname corres
4e90: 70 6f 6e 64 69 6e 67 0a 2a 2a 20 74 6f 20 74 68  ponding.** to th
4ea0: 65 20 70 61 74 68 6e 61 6d 65 20 69 6e 20 7a 50  e pathname in zP
4eb0: 61 74 68 2e 20 7a 4f 75 74 20 69 73 20 67 75 61  ath. zOut is gua
4ec0: 72 61 6e 74 65 65 64 20 74 6f 20 70 6f 69 6e 74  ranteed to point
4ed0: 20 74 6f 20 61 20 62 75 66 66 65 72 0a 2a 2a 20   to a buffer.** 
4ee0: 6f 66 20 61 74 20 6c 65 61 73 74 20 28 44 45 56  of at least (DEV
4ef0: 53 59 4d 5f 4d 41 58 5f 50 41 54 48 4e 41 4d 45  SYM_MAX_PATHNAME
4f00: 2b 31 29 20 62 79 74 65 73 2e 0a 2a 2f 0a 73 74  +1) bytes..*/.st
4f10: 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 75 6c  atic int tvfsFul
4f20: 6c 50 61 74 68 6e 61 6d 65 28 0a 20 20 73 71 6c  lPathname(.  sql
4f30: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
4f40: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
4f50: 50 61 74 68 2c 20 0a 20 20 69 6e 74 20 6e 4f 75  Path, .  int nOu
4f60: 74 2c 20 0a 20 20 63 68 61 72 20 2a 7a 4f 75 74  t, .  char *zOut
4f70: 0a 29 7b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  .){.  Testvfs *p
4f80: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70 56   = (Testvfs *)pV
4f90: 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20  fs->pAppData;.  
4fa0: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
4fb0: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
4fc0: 53 5f 46 55 4c 4c 50 41 54 48 4e 41 4d 45 5f 4d  S_FULLPATHNAME_M
4fd0: 41 53 4b 20 29 7b 0a 20 20 20 20 69 6e 74 20 72  ASK ){.    int r
4fe0: 63 3b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54  c;.    tvfsExecT
4ff0: 63 6c 28 70 2c 20 22 78 46 75 6c 6c 50 61 74 68  cl(p, "xFullPath
5000: 6e 61 6d 65 22 2c 20 54 63 6c 5f 4e 65 77 53 74  name", Tcl_NewSt
5010: 72 69 6e 67 4f 62 6a 28 7a 50 61 74 68 2c 20 2d  ringObj(zPath, -
5020: 31 29 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20  1), 0, 0, 0);.  
5030: 20 20 69 66 28 20 74 76 66 73 52 65 73 75 6c 74    if( tvfsResult
5040: 43 6f 64 65 28 70 2c 20 26 72 63 29 20 29 7b 0a  Code(p, &rc) ){.
5050: 20 20 20 20 20 20 69 66 28 20 72 63 21 3d 53 51        if( rc!=SQ
5060: 4c 49 54 45 5f 4f 4b 20 29 20 72 65 74 75 72 6e  LITE_OK ) return
5070: 20 72 63 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20   rc;.    }.  }. 
5080: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
5090: 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28 50 41  sFullPathname(PA
50a0: 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 7a  RENTVFS(pVfs), z
50b0: 50 61 74 68 2c 20 6e 4f 75 74 2c 20 7a 4f 75 74  Path, nOut, zOut
50c0: 29 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51  );.}..#ifndef SQ
50d0: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45  LITE_OMIT_LOAD_E
50e0: 58 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a 20 4f  XTENSION./*.** O
50f0: 70 65 6e 20 74 68 65 20 64 79 6e 61 6d 69 63 20  pen the dynamic 
5100: 6c 69 62 72 61 72 79 20 6c 6f 63 61 74 65 64 20  library located 
5110: 61 74 20 7a 50 61 74 68 20 61 6e 64 20 72 65 74  at zPath and ret
5120: 75 72 6e 20 61 20 68 61 6e 64 6c 65 2e 0a 2a 2f  urn a handle..*/
5130: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a 74 76  .static void *tv
5140: 66 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33  fsDlOpen(sqlite3
5150: 5f 76 66 73 20 2a 70 56 66 73 2c 20 63 6f 6e 73  _vfs *pVfs, cons
5160: 74 20 63 68 61 72 20 2a 7a 50 61 74 68 29 7b 0a  t char *zPath){.
5170: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
5180: 4f 73 44 6c 4f 70 65 6e 28 50 41 52 45 4e 54 56  OsDlOpen(PARENTV
5190: 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68 29  FS(pVfs), zPath)
51a0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c  ;.}../*.** Popul
51b0: 61 74 65 20 74 68 65 20 62 75 66 66 65 72 20 7a  ate the buffer z
51c0: 45 72 72 4d 73 67 20 28 73 69 7a 65 20 6e 42 79  ErrMsg (size nBy
51d0: 74 65 20 62 79 74 65 73 29 20 77 69 74 68 20 61  te bytes) with a
51e0: 20 68 75 6d 61 6e 20 72 65 61 64 61 62 6c 65 0a   human readable.
51f0: 2a 2a 20 75 74 66 2d 38 20 73 74 72 69 6e 67 20  ** utf-8 string 
5200: 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 6d  describing the m
5210: 6f 73 74 20 72 65 63 65 6e 74 20 65 72 72 6f 72  ost recent error
5220: 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 61 73 73   encountered ass
5230: 6f 63 69 61 74 65 64 20 0a 2a 2a 20 77 69 74 68  ociated .** with
5240: 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 69   dynamic librari
5250: 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  es..*/.static vo
5260: 69 64 20 74 76 66 73 44 6c 45 72 72 6f 72 28 73  id tvfsDlError(s
5270: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
5280: 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63 68 61  , int nByte, cha
5290: 72 20 2a 7a 45 72 72 4d 73 67 29 7b 0a 20 20 73  r *zErrMsg){.  s
52a0: 71 6c 69 74 65 33 4f 73 44 6c 45 72 72 6f 72 28  qlite3OsDlError(
52b0: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
52c0: 20 6e 42 79 74 65 2c 20 7a 45 72 72 4d 73 67 29   nByte, zErrMsg)
52d0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
52e0: 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74  n a pointer to t
52f0: 68 65 20 73 79 6d 62 6f 6c 20 7a 53 79 6d 62 6f  he symbol zSymbo
5300: 6c 20 69 6e 20 74 68 65 20 64 79 6e 61 6d 69 63  l in the dynamic
5310: 20 6c 69 62 72 61 72 79 20 70 48 61 6e 64 6c 65   library pHandle
5320: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
5330: 20 28 2a 74 76 66 73 44 6c 53 79 6d 28 73 71 6c   (*tvfsDlSym(sql
5340: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
5350: 76 6f 69 64 20 2a 70 2c 20 63 6f 6e 73 74 20 63  void *p, const c
5360: 68 61 72 20 2a 7a 53 79 6d 29 29 28 76 6f 69 64  har *zSym))(void
5370: 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69  ){.  return sqli
5380: 74 65 33 4f 73 44 6c 53 79 6d 28 50 41 52 45 4e  te3OsDlSym(PAREN
5390: 54 56 46 53 28 70 56 66 73 29 2c 20 70 2c 20 7a  TVFS(pVfs), p, z
53a0: 53 79 6d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43  Sym);.}../*.** C
53b0: 6c 6f 73 65 20 74 68 65 20 64 79 6e 61 6d 69 63  lose the dynamic
53c0: 20 6c 69 62 72 61 72 79 20 68 61 6e 64 6c 65 20   library handle 
53d0: 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74  pHandle..*/.stat
53e0: 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c 43 6c  ic void tvfsDlCl
53f0: 6f 73 65 28 73 71 6c 69 74 65 33 5f 76 66 73 20  ose(sqlite3_vfs 
5400: 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70 48 61  *pVfs, void *pHa
5410: 6e 64 6c 65 29 7b 0a 20 20 73 71 6c 69 74 65 33  ndle){.  sqlite3
5420: 4f 73 44 6c 43 6c 6f 73 65 28 50 41 52 45 4e 54  OsDlClose(PARENT
5430: 56 46 53 28 70 56 66 73 29 2c 20 70 48 61 6e 64  VFS(pVfs), pHand
5440: 6c 65 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a  le);.}.#endif /*
5450: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41   SQLITE_OMIT_LOA
5460: 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 0a  D_EXTENSION */..
5470: 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 74  /*.** Populate t
5480: 68 65 20 62 75 66 66 65 72 20 70 6f 69 6e 74 65  he buffer pointe
5490: 64 20 74 6f 20 62 79 20 7a 42 75 66 4f 75 74 20  d to by zBufOut 
54a0: 77 69 74 68 20 6e 42 79 74 65 20 62 79 74 65 73  with nByte bytes
54b0: 20 6f 66 20 0a 2a 2a 20 72 61 6e 64 6f 6d 20 64   of .** random d
54c0: 61 74 61 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ata..*/.static i
54d0: 6e 74 20 74 76 66 73 52 61 6e 64 6f 6d 6e 65 73  nt tvfsRandomnes
54e0: 73 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70  s(sqlite3_vfs *p
54f0: 56 66 73 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20  Vfs, int nByte, 
5500: 63 68 61 72 20 2a 7a 42 75 66 4f 75 74 29 7b 0a  char *zBufOut){.
5510: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
5520: 4f 73 52 61 6e 64 6f 6d 6e 65 73 73 28 50 41 52  OsRandomness(PAR
5530: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 6e 42  ENTVFS(pVfs), nB
5540: 79 74 65 2c 20 7a 42 75 66 4f 75 74 29 3b 0a 7d  yte, zBufOut);.}
5550: 0a 0a 2f 2a 0a 2a 2a 20 53 6c 65 65 70 20 66 6f  ../*.** Sleep fo
5560: 72 20 6e 4d 69 63 72 6f 20 6d 69 63 72 6f 73 65  r nMicro microse
5570: 63 6f 6e 64 73 2e 20 52 65 74 75 72 6e 20 74 68  conds. Return th
5580: 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69 63 72  e number of micr
5590: 6f 73 65 63 6f 6e 64 73 20 0a 2a 2a 20 61 63 74  oseconds .** act
55a0: 75 61 6c 6c 79 20 73 6c 65 70 74 2e 0a 2a 2f 0a  ually slept..*/.
55b0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
55c0: 6c 65 65 70 28 73 71 6c 69 74 65 33 5f 76 66 73  leep(sqlite3_vfs
55d0: 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e 4d 69 63   *pVfs, int nMic
55e0: 72 6f 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71  ro){.  return sq
55f0: 6c 69 74 65 33 4f 73 53 6c 65 65 70 28 50 41 52  lite3OsSleep(PAR
5600: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 6e 4d  ENTVFS(pVfs), nM
5610: 69 63 72 6f 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  icro);.}../*.** 
5620: 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65  Return the curre
5630: 6e 74 20 74 69 6d 65 20 61 73 20 61 20 4a 75 6c  nt time as a Jul
5640: 69 61 6e 20 44 61 79 20 6e 75 6d 62 65 72 20 69  ian Day number i
5650: 6e 20 2a 70 54 69 6d 65 4f 75 74 2e 0a 2a 2f 0a  n *pTimeOut..*/.
5660: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43  static int tvfsC
5670: 75 72 72 65 6e 74 54 69 6d 65 28 73 71 6c 69 74  urrentTime(sqlit
5680: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 64 6f  e3_vfs *pVfs, do
5690: 75 62 6c 65 20 2a 70 54 69 6d 65 4f 75 74 29 7b  uble *pTimeOut){
56a0: 0a 20 20 72 65 74 75 72 6e 20 50 41 52 45 4e 54  .  return PARENT
56b0: 56 46 53 28 70 56 66 73 29 2d 3e 78 43 75 72 72  VFS(pVfs)->xCurr
56c0: 65 6e 74 54 69 6d 65 28 50 41 52 45 4e 54 56 46  entTime(PARENTVF
56d0: 53 28 70 56 66 73 29 2c 20 70 54 69 6d 65 4f 75  S(pVfs), pTimeOu
56e0: 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  t);.}..static in
56f0: 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 73 71  t tvfsShmOpen(sq
5700: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
5710: 65 29 7b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  e){.  Testvfs *p
5720: 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  ;.  int rc = SQL
5730: 49 54 45 5f 4f 4b 3b 20 20 20 20 20 20 20 20 20  ITE_OK;         
5740: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f      /* Return co
5750: 64 65 20 2a 2f 0a 20 20 54 65 73 74 76 66 73 42  de */.  TestvfsB
5760: 75 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b 20  uffer *pBuffer; 
5770: 20 20 20 20 20 20 20 20 2f 2a 20 42 75 66 66 65          /* Buffe
5780: 72 20 74 6f 20 6f 70 65 6e 20 63 6f 6e 6e 65 63  r to open connec
5790: 74 69 6f 6e 20 74 6f 20 2a 2f 0a 20 20 54 65 73  tion to */.  Tes
57a0: 74 76 66 73 46 64 20 2a 70 46 64 3b 20 20 20 20  tvfsFd *pFd;    
57b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
57c0: 54 68 65 20 74 65 73 74 76 66 73 20 66 69 6c 65  The testvfs file
57d0: 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 0a 20   structure */.. 
57e0: 20 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64   pFd = tvfsGetFd
57f0: 28 70 46 69 6c 65 29 3b 0a 20 20 70 20 3d 20 28  (pFile);.  p = (
5800: 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70  Testvfs *)pFd->p
5810: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20  Vfs->pAppData;. 
5820: 20 61 73 73 65 72 74 28 20 30 3d 3d 70 2d 3e 69   assert( 0==p->i
5830: 73 46 75 6c 6c 73 68 6d 20 29 3b 0a 20 20 61 73  sFullshm );.  as
5840: 73 65 72 74 28 20 70 46 64 2d 3e 70 53 68 6d 49  sert( pFd->pShmI
5850: 64 20 26 26 20 70 46 64 2d 3e 70 53 68 6d 3d 3d  d && pFd->pShm==
5860: 30 20 26 26 20 70 46 64 2d 3e 70 4e 65 78 74 3d  0 && pFd->pNext=
5870: 3d 30 20 29 3b 0a 0a 20 20 2f 2a 20 45 76 61 6c  =0 );..  /* Eval
5880: 75 61 74 65 20 74 68 65 20 54 63 6c 20 73 63 72  uate the Tcl scr
5890: 69 70 74 3a 20 0a 20 20 2a 2a 0a 20 20 2a 2a 20  ipt: .  **.  ** 
58a0: 20 20 53 43 52 49 50 54 20 78 53 68 6d 4f 70 65    SCRIPT xShmOpe
58b0: 6e 20 46 49 4c 45 4e 41 4d 45 0a 20 20 2a 2f 0a  n FILENAME.  */.
58c0: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c    Tcl_ResetResul
58d0: 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20  t(p->interp);.  
58e0: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
58f0: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
5900: 53 5f 53 48 4d 4f 50 45 4e 5f 4d 41 53 4b 20 29  S_SHMOPEN_MASK )
5910: 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63  {.    tvfsExecTc
5920: 6c 28 70 2c 20 22 78 53 68 6d 4f 70 65 6e 22 2c  l(p, "xShmOpen",
5930: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
5940: 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65  j(pFd->zFilename
5950: 2c 20 2d 31 29 2c 20 30 2c 20 30 2c 20 30 29 3b  , -1), 0, 0, 0);
5960: 0a 20 20 20 20 69 66 28 20 74 76 66 73 52 65 73  .    if( tvfsRes
5970: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 20  ultCode(p, &rc) 
5980: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 72 63 21  ){.      if( rc!
5990: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20 72 65 74  =SQLITE_OK ) ret
59a0: 75 72 6e 20 72 63 3b 0a 20 20 20 20 7d 0a 20 20  urn rc;.    }.  
59b0: 7d 0a 0a 20 20 61 73 73 65 72 74 28 20 72 63 3d  }..  assert( rc=
59c0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 3b 0a 20 20  =SQLITE_OK );.  
59d0: 69 66 28 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54  if( p->mask&TEST
59e0: 56 46 53 5f 53 48 4d 4f 50 45 4e 5f 4d 41 53 4b  VFS_SHMOPEN_MASK
59f0: 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f   && tvfsInjectIo
5a00: 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72 65  err(p) ){.    re
5a10: 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52  turn SQLITE_IOER
5a20: 52 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 53 65 61  R;.  }..  /* Sea
5a30: 72 63 68 20 66 6f 72 20 61 20 54 65 73 74 76 66  rch for a Testvf
5a40: 73 42 75 66 66 65 72 2e 20 43 72 65 61 74 65 20  sBuffer. Create 
5a50: 61 20 6e 65 77 20 6f 6e 65 20 69 66 20 72 65 71  a new one if req
5a60: 75 69 72 65 64 2e 20 2a 2f 0a 20 20 66 6f 72 28  uired. */.  for(
5a70: 70 42 75 66 66 65 72 3d 70 2d 3e 70 42 75 66 66  pBuffer=p->pBuff
5a80: 65 72 3b 20 70 42 75 66 66 65 72 3b 20 70 42 75  er; pBuffer; pBu
5a90: 66 66 65 72 3d 70 42 75 66 66 65 72 2d 3e 70 4e  ffer=pBuffer->pN
5aa0: 65 78 74 29 7b 0a 20 20 20 20 69 66 28 20 30 3d  ext){.    if( 0=
5ab0: 3d 73 74 72 63 6d 70 28 70 46 64 2d 3e 7a 46 69  =strcmp(pFd->zFi
5ac0: 6c 65 6e 61 6d 65 2c 20 70 42 75 66 66 65 72 2d  lename, pBuffer-
5ad0: 3e 7a 46 69 6c 65 29 20 29 20 62 72 65 61 6b 3b  >zFile) ) break;
5ae0: 0a 20 20 7d 0a 20 20 69 66 28 20 21 70 42 75 66  .  }.  if( !pBuf
5af0: 66 65 72 20 29 7b 0a 20 20 20 20 69 6e 74 20 6e  fer ){.    int n
5b00: 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 54 65  Byte = sizeof(Te
5b10: 73 74 76 66 73 42 75 66 66 65 72 29 20 2b 20 28  stvfsBuffer) + (
5b20: 69 6e 74 29 73 74 72 6c 65 6e 28 70 46 64 2d 3e  int)strlen(pFd->
5b30: 7a 46 69 6c 65 6e 61 6d 65 29 20 2b 20 31 3b 0a  zFilename) + 1;.
5b40: 20 20 20 20 70 42 75 66 66 65 72 20 3d 20 28 54      pBuffer = (T
5b50: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 29 63  estvfsBuffer *)c
5b60: 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20  kalloc(nByte);. 
5b70: 20 20 20 6d 65 6d 73 65 74 28 70 42 75 66 66 65     memset(pBuffe
5b80: 72 2c 20 30 2c 20 6e 42 79 74 65 29 3b 0a 20 20  r, 0, nByte);.  
5b90: 20 20 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65    pBuffer->zFile
5ba0: 20 3d 20 28 63 68 61 72 20 2a 29 26 70 42 75 66   = (char *)&pBuf
5bb0: 66 65 72 5b 31 5d 3b 0a 20 20 20 20 73 74 72 63  fer[1];.    strc
5bc0: 70 79 28 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c  py(pBuffer->zFil
5bd0: 65 2c 20 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d  e, pFd->zFilenam
5be0: 65 29 3b 0a 20 20 20 20 70 42 75 66 66 65 72 2d  e);.    pBuffer-
5bf0: 3e 70 4e 65 78 74 20 3d 20 70 2d 3e 70 42 75 66  >pNext = p->pBuf
5c00: 66 65 72 3b 0a 20 20 20 20 70 2d 3e 70 42 75 66  fer;.    p->pBuf
5c10: 66 65 72 20 3d 20 70 42 75 66 66 65 72 3b 0a 20  fer = pBuffer;. 
5c20: 20 7d 0a 0a 20 20 2f 2a 20 43 6f 6e 6e 65 63 74   }..  /* Connect
5c30: 20 74 68 65 20 54 65 73 74 76 66 73 42 75 66 66   the TestvfsBuff
5c40: 65 72 20 74 6f 20 74 68 65 20 6e 65 77 20 54 65  er to the new Te
5c50: 73 74 76 66 73 53 68 6d 20 68 61 6e 64 6c 65 20  stvfsShm handle 
5c60: 61 6e 64 20 72 65 74 75 72 6e 2e 20 2a 2f 0a 20  and return. */. 
5c70: 20 70 46 64 2d 3e 70 4e 65 78 74 20 3d 20 70 42   pFd->pNext = pB
5c80: 75 66 66 65 72 2d 3e 70 46 69 6c 65 3b 0a 20 20  uffer->pFile;.  
5c90: 70 42 75 66 66 65 72 2d 3e 70 46 69 6c 65 20 3d  pBuffer->pFile =
5ca0: 20 70 46 64 3b 0a 20 20 70 46 64 2d 3e 70 53 68   pFd;.  pFd->pSh
5cb0: 6d 20 3d 20 70 42 75 66 66 65 72 3b 0a 20 20 72  m = pBuffer;.  r
5cc0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b  eturn SQLITE_OK;
5cd0: 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .}..static void 
5ce0: 74 76 66 73 41 6c 6c 6f 63 50 61 67 65 28 54 65  tvfsAllocPage(Te
5cf0: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 2c 20  stvfsBuffer *p, 
5d00: 69 6e 74 20 69 50 61 67 65 2c 20 69 6e 74 20 70  int iPage, int p
5d10: 67 73 7a 29 7b 0a 20 20 61 73 73 65 72 74 28 20  gsz){.  assert( 
5d20: 69 50 61 67 65 3c 54 45 53 54 56 46 53 5f 4d 41  iPage<TESTVFS_MA
5d30: 58 5f 50 41 47 45 53 20 29 3b 0a 20 20 69 66 28  X_PAGES );.  if(
5d40: 20 70 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d   p->aPage[iPage]
5d50: 3d 3d 30 20 29 7b 0a 20 20 20 20 70 2d 3e 61 50  ==0 ){.    p->aP
5d60: 61 67 65 5b 69 50 61 67 65 5d 20 3d 20 28 75 38  age[iPage] = (u8
5d70: 20 2a 29 63 6b 61 6c 6c 6f 63 28 70 67 73 7a 29   *)ckalloc(pgsz)
5d80: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 2d 3e  ;.    memset(p->
5d90: 61 50 61 67 65 5b 69 50 61 67 65 5d 2c 20 30 2c  aPage[iPage], 0,
5da0: 20 70 67 73 7a 29 3b 0a 20 20 20 20 70 2d 3e 70   pgsz);.    p->p
5db0: 67 73 7a 20 3d 20 70 67 73 7a 3b 0a 20 20 7d 0a  gsz = pgsz;.  }.
5dc0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  }..static int tv
5dd0: 66 73 53 68 6d 4d 61 70 28 0a 20 20 73 71 6c 69  fsShmMap(.  sqli
5de0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
5df0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 48              /* H
5e00: 61 6e 64 6c 65 20 6f 70 65 6e 20 6f 6e 20 64 61  andle open on da
5e10: 74 61 62 61 73 65 20 66 69 6c 65 20 2a 2f 0a 20  tabase file */. 
5e20: 20 69 6e 74 20 69 50 61 67 65 2c 20 20 20 20 20   int iPage,     
5e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5e40: 20 2f 2a 20 50 61 67 65 20 74 6f 20 72 65 74 72   /* Page to retr
5e50: 69 65 76 65 20 2a 2f 0a 20 20 69 6e 74 20 70 67  ieve */.  int pg
5e60: 73 7a 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  sz,             
5e70: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a            /* Siz
5e80: 65 20 6f 66 20 70 61 67 65 73 20 2a 2f 0a 20 20  e of pages */.  
5e90: 69 6e 74 20 69 73 57 72 69 74 65 2c 20 20 20 20  int isWrite,    
5ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5eb0: 2f 2a 20 54 72 75 65 20 74 6f 20 65 78 74 65 6e  /* True to exten
5ec0: 64 20 66 69 6c 65 20 69 66 20 6e 65 63 65 73 73  d file if necess
5ed0: 61 72 79 20 2a 2f 0a 20 20 76 6f 69 64 20 76 6f  ary */.  void vo
5ee0: 6c 61 74 69 6c 65 20 2a 2a 70 70 20 20 20 20 20  latile **pp     
5ef0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 55 54 3a           /* OUT:
5f00: 20 4d 61 70 70 65 64 20 6d 65 6d 6f 72 79 20 2a   Mapped memory *
5f10: 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  /.){.  int rc = 
5f20: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
5f30: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
5f40: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
5f50: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
5f60: 54 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e  Testvfs *)(pFd->
5f70: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b  pVfs->pAppData);
5f80: 0a 0a 20 20 69 66 28 20 70 2d 3e 69 73 46 75 6c  ..  if( p->isFul
5f90: 6c 73 68 6d 20 29 7b 0a 20 20 20 20 72 65 74 75  lshm ){.    retu
5fa0: 72 6e 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 4d  rn sqlite3OsShmM
5fb0: 61 70 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 69  ap(pFd->pReal, i
5fc0: 50 61 67 65 2c 20 70 67 73 7a 2c 20 69 73 57 72  Page, pgsz, isWr
5fd0: 69 74 65 2c 20 70 70 29 3b 0a 20 20 7d 0a 0a 20  ite, pp);.  }.. 
5fe0: 20 69 66 28 20 30 3d 3d 70 46 64 2d 3e 70 53 68   if( 0==pFd->pSh
5ff0: 6d 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 74 76  m ){.    rc = tv
6000: 66 73 53 68 6d 4f 70 65 6e 28 70 46 69 6c 65 29  fsShmOpen(pFile)
6010: 3b 0a 20 20 20 20 69 66 28 20 72 63 21 3d 53 51  ;.    if( rc!=SQ
6020: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20  LITE_OK ){.     
6030: 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20   return rc;.    
6040: 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20 70 2d 3e  }.  }..  if( p->
6050: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
6060: 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4d 41  sk&TESTVFS_SHMMA
6070: 50 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 54 63  P_MASK ){.    Tc
6080: 6c 5f 4f 62 6a 20 2a 70 41 72 67 20 3d 20 54 63  l_Obj *pArg = Tc
6090: 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20  l_NewObj();.    
60a0: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
60b0: 28 70 41 72 67 29 3b 0a 20 20 20 20 54 63 6c 5f  (pArg);.    Tcl_
60c0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
60d0: 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c 20  ment(p->interp, 
60e0: 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77 49 6e 74  pArg, Tcl_NewInt
60f0: 4f 62 6a 28 69 50 61 67 65 29 29 3b 0a 20 20 20  Obj(iPage));.   
6100: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
6110: 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e 74  ndElement(p->int
6120: 65 72 70 2c 20 70 41 72 67 2c 20 54 63 6c 5f 4e  erp, pArg, Tcl_N
6130: 65 77 49 6e 74 4f 62 6a 28 70 67 73 7a 29 29 3b  ewIntObj(pgsz));
6140: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
6150: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d  AppendElement(p-
6160: 3e 69 6e 74 65 72 70 2c 20 70 41 72 67 2c 20 54  >interp, pArg, T
6170: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 73 57  cl_NewIntObj(isW
6180: 72 69 74 65 29 29 3b 0a 20 20 20 20 74 76 66 73  rite));.    tvfs
6190: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d  ExecTcl(p, "xShm
61a0: 4d 61 70 22 2c 20 0a 20 20 20 20 20 20 20 20 54  Map", .        T
61b0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
61c0: 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65  pFd->pShm->zFile
61d0: 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d  , -1), pFd->pShm
61e0: 49 64 2c 20 70 41 72 67 2c 20 30 0a 20 20 20 20  Id, pArg, 0.    
61f0: 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c  );.    tvfsResul
6200: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20  tCode(p, &rc);. 
6210: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f     Tcl_DecrRefCo
6220: 75 6e 74 28 70 41 72 67 29 3b 0a 20 20 7d 0a 20  unt(pArg);.  }. 
6230: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
6240: 4f 4b 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45  OK && p->mask&TE
6250: 53 54 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53  STVFS_SHMMAP_MAS
6260: 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49  K && tvfsInjectI
6270: 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72  oerr(p) ){.    r
6280: 63 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52  c = SQLITE_IOERR
6290: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d  ;.  }..  if( rc=
62a0: 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 69 73  =SQLITE_OK && is
62b0: 57 72 69 74 65 20 26 26 20 21 70 46 64 2d 3e 70  Write && !pFd->p
62c0: 53 68 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67 65  Shm->aPage[iPage
62d0: 5d 20 29 7b 0a 20 20 20 20 74 76 66 73 41 6c 6c  ] ){.    tvfsAll
62e0: 6f 63 50 61 67 65 28 70 46 64 2d 3e 70 53 68 6d  ocPage(pFd->pShm
62f0: 2c 20 69 50 61 67 65 2c 20 70 67 73 7a 29 3b 0a  , iPage, pgsz);.
6300: 20 20 7d 0a 20 20 2a 70 70 20 3d 20 28 76 6f 69    }.  *pp = (voi
6310: 64 20 76 6f 6c 61 74 69 6c 65 20 2a 29 70 46 64  d volatile *)pFd
6320: 2d 3e 70 53 68 6d 2d 3e 61 50 61 67 65 5b 69 50  ->pShm->aPage[iP
6330: 61 67 65 5d 3b 0a 0a 20 20 72 65 74 75 72 6e 20  age];..  return 
6340: 72 63 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20 69  rc;.}...static i
6350: 6e 74 20 74 76 66 73 53 68 6d 4c 6f 63 6b 28 0a  nt tvfsShmLock(.
6360: 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a    sqlite3_file *
6370: 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20 6f 66 73  pFile,.  int ofs
6380: 74 2c 0a 20 20 69 6e 74 20 6e 2c 0a 20 20 69 6e  t,.  int n,.  in
6390: 74 20 66 6c 61 67 73 0a 29 7b 0a 20 20 69 6e 74  t flags.){.  int
63a0: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b   rc = SQLITE_OK;
63b0: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
63c0: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
63d0: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
63e0: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
63f0: 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  (pFd->pVfs->pApp
6400: 44 61 74 61 29 3b 0a 20 20 69 6e 74 20 6e 4c 6f  Data);.  int nLo
6410: 63 6b 3b 0a 20 20 63 68 61 72 20 7a 4c 6f 63 6b  ck;.  char zLock
6420: 5b 38 30 5d 3b 0a 0a 20 20 69 66 28 20 70 2d 3e  [80];..  if( p->
6430: 69 73 46 75 6c 6c 73 68 6d 20 29 7b 0a 20 20 20  isFullshm ){.   
6440: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
6450: 73 53 68 6d 4c 6f 63 6b 28 70 46 64 2d 3e 70 52  sShmLock(pFd->pR
6460: 65 61 6c 2c 20 6f 66 73 74 2c 20 6e 2c 20 66 6c  eal, ofst, n, fl
6470: 61 67 73 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28  ags);.  }..  if(
6480: 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70   p->pScript && p
6490: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53  ->mask&TESTVFS_S
64a0: 48 4d 4c 4f 43 4b 5f 4d 41 53 4b 20 29 7b 0a 20  HMLOCK_MASK ){. 
64b0: 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69     sqlite3_snpri
64c0: 6e 74 66 28 73 69 7a 65 6f 66 28 7a 4c 6f 63 6b  ntf(sizeof(zLock
64d0: 29 2c 20 7a 4c 6f 63 6b 2c 20 22 25 64 20 25 64  ), zLock, "%d %d
64e0: 22 2c 20 6f 66 73 74 2c 20 6e 29 3b 0a 20 20 20  ", ofst, n);.   
64f0: 20 6e 4c 6f 63 6b 20 3d 20 28 69 6e 74 29 73 74   nLock = (int)st
6500: 72 6c 65 6e 28 7a 4c 6f 63 6b 29 3b 0a 20 20 20  rlen(zLock);.   
6510: 20 69 66 28 20 66 6c 61 67 73 20 26 20 53 51 4c   if( flags & SQL
6520: 49 54 45 5f 53 48 4d 5f 4c 4f 43 4b 20 29 7b 0a  ITE_SHM_LOCK ){.
6530: 20 20 20 20 20 20 73 74 72 63 70 79 28 26 7a 4c        strcpy(&zL
6540: 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 6c 6f  ock[nLock], " lo
6550: 63 6b 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  ck");.    }else{
6560: 0a 20 20 20 20 20 20 73 74 72 63 70 79 28 26 7a  .      strcpy(&z
6570: 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 75  Lock[nLock], " u
6580: 6e 6c 6f 63 6b 22 29 3b 0a 20 20 20 20 7d 0a 20  nlock");.    }. 
6590: 20 20 20 6e 4c 6f 63 6b 20 2b 3d 20 28 69 6e 74     nLock += (int
65a0: 29 73 74 72 6c 65 6e 28 26 7a 4c 6f 63 6b 5b 6e  )strlen(&zLock[n
65b0: 4c 6f 63 6b 5d 29 3b 0a 20 20 20 20 69 66 28 20  Lock]);.    if( 
65c0: 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 53  flags & SQLITE_S
65d0: 48 4d 5f 53 48 41 52 45 44 20 29 7b 0a 20 20 20  HM_SHARED ){.   
65e0: 20 20 20 73 74 72 63 70 79 28 26 7a 4c 6f 63 6b     strcpy(&zLock
65f0: 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 73 68 61 72 65  [nLock], " share
6600: 64 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a  d");.    }else{.
6610: 20 20 20 20 20 20 73 74 72 63 70 79 28 26 7a 4c        strcpy(&zL
6620: 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22 20 65 78  ock[nLock], " ex
6630: 63 6c 75 73 69 76 65 22 29 3b 0a 20 20 20 20 7d  clusive");.    }
6640: 0a 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c  .    tvfsExecTcl
6650: 28 70 2c 20 22 78 53 68 6d 4c 6f 63 6b 22 2c 20  (p, "xShmLock", 
6660: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  .        Tcl_New
6670: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70  StringObj(pFd->p
6680: 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c  Shm->zFile, -1),
6690: 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 0a 20 20   pFd->pShmId,.  
66a0: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
66b0: 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b 2c 20 2d 31  ingObj(zLock, -1
66c0: 29 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 20 20  ), 0.    );.    
66d0: 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70  tvfsResultCode(p
66e0: 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a 20 20 69  , &rc);.  }..  i
66f0: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
6700: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
6710: 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53 4b  VFS_SHMLOCK_MASK
6720: 20 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f   && tvfsInjectIo
6730: 65 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63  err(p) ){.    rc
6740: 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b   = SQLITE_IOERR;
6750: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d  .  }..  if( rc==
6760: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20  SQLITE_OK ){.   
6770: 20 69 6e 74 20 69 73 4c 6f 63 6b 20 3d 20 28 66   int isLock = (f
6780: 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 53 48  lags & SQLITE_SH
6790: 4d 5f 4c 4f 43 4b 29 3b 0a 20 20 20 20 69 6e 74  M_LOCK);.    int
67a0: 20 69 73 45 78 63 6c 20 3d 20 28 66 6c 61 67 73   isExcl = (flags
67b0: 20 26 20 53 51 4c 49 54 45 5f 53 48 4d 5f 45 58   & SQLITE_SHM_EX
67c0: 43 4c 55 53 49 56 45 29 3b 0a 20 20 20 20 75 33  CLUSIVE);.    u3
67d0: 32 20 6d 61 73 6b 20 3d 20 28 28 28 31 3c 3c 6e  2 mask = (((1<<n
67e0: 29 2d 31 29 20 3c 3c 20 6f 66 73 74 29 3b 0a 20  )-1) << ofst);. 
67f0: 20 20 20 69 66 28 20 69 73 4c 6f 63 6b 20 29 7b     if( isLock ){
6800: 0a 20 20 20 20 20 20 54 65 73 74 76 66 73 46 64  .      TestvfsFd
6810: 20 2a 70 32 3b 0a 20 20 20 20 20 20 66 6f 72 28   *p2;.      for(
6820: 70 32 3d 70 46 64 2d 3e 70 53 68 6d 2d 3e 70 46  p2=pFd->pShm->pF
6830: 69 6c 65 3b 20 70 32 3b 20 70 32 3d 70 32 2d 3e  ile; p2; p2=p2->
6840: 70 4e 65 78 74 29 7b 0a 20 20 20 20 20 20 20 20  pNext){.        
6850: 69 66 28 20 70 32 3d 3d 70 46 64 20 29 20 63 6f  if( p2==pFd ) co
6860: 6e 74 69 6e 75 65 3b 0a 20 20 20 20 20 20 20 20  ntinue;.        
6870: 69 66 28 20 28 70 32 2d 3e 65 78 63 6c 6c 6f 63  if( (p2->exclloc
6880: 6b 26 6d 61 73 6b 29 20 7c 7c 20 28 69 73 45 78  k&mask) || (isEx
6890: 63 6c 20 26 26 20 70 32 2d 3e 73 68 61 72 65 64  cl && p2->shared
68a0: 6c 6f 63 6b 26 6d 61 73 6b 29 20 29 7b 0a 20 20  lock&mask) ){.  
68b0: 20 20 20 20 20 20 20 20 72 63 20 3d 20 53 51 4c          rc = SQL
68c0: 49 54 45 5f 42 55 53 59 3b 0a 20 20 20 20 20 20  ITE_BUSY;.      
68d0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
68e0: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20     }.      }.   
68f0: 20 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54     if( rc==SQLIT
6900: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 20 20  E_OK ){.        
6910: 69 66 28 20 69 73 45 78 63 6c 20 29 20 20 70 46  if( isExcl )  pF
6920: 64 2d 3e 65 78 63 6c 6c 6f 63 6b 20 7c 3d 20 6d  d->excllock |= m
6930: 61 73 6b 3b 0a 20 20 20 20 20 20 20 20 69 66 28  ask;.        if(
6940: 20 21 69 73 45 78 63 6c 20 29 20 70 46 64 2d 3e   !isExcl ) pFd->
6950: 73 68 61 72 65 64 6c 6f 63 6b 20 7c 3d 20 6d 61  sharedlock |= ma
6960: 73 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  sk;.      }.    
6970: 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 66 28  }else{.      if(
6980: 20 69 73 45 78 63 6c 20 29 20 20 70 46 64 2d 3e   isExcl )  pFd->
6990: 65 78 63 6c 6c 6f 63 6b 20 26 3d 20 28 7e 6d 61  excllock &= (~ma
69a0: 73 6b 29 3b 0a 20 20 20 20 20 20 69 66 28 20 21  sk);.      if( !
69b0: 69 73 45 78 63 6c 20 29 20 70 46 64 2d 3e 73 68  isExcl ) pFd->sh
69c0: 61 72 65 64 6c 6f 63 6b 20 26 3d 20 28 7e 6d 61  aredlock &= (~ma
69d0: 73 6b 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  sk);.    }.  }..
69e0: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
69f0: 73 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73  static void tvfs
6a00: 53 68 6d 42 61 72 72 69 65 72 28 73 71 6c 69 74  ShmBarrier(sqlit
6a10: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b  e3_file *pFile){
6a20: 0a 20 20 54 65 73 74 76 66 73 46 64 20 2a 70 46  .  TestvfsFd *pF
6a30: 64 20 3d 20 74 76 66 73 47 65 74 46 64 28 70 46  d = tvfsGetFd(pF
6a40: 69 6c 65 29 3b 0a 20 20 54 65 73 74 76 66 73 20  ile);.  Testvfs 
6a50: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
6a60: 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  (pFd->pVfs->pApp
6a70: 44 61 74 61 29 3b 0a 0a 20 20 69 66 28 20 70 2d  Data);..  if( p-
6a80: 3e 69 73 46 75 6c 6c 73 68 6d 20 29 7b 0a 20 20  >isFullshm ){.  
6a90: 20 20 73 71 6c 69 74 65 33 4f 73 53 68 6d 42 61    sqlite3OsShmBa
6aa0: 72 72 69 65 72 28 70 46 64 2d 3e 70 52 65 61 6c  rrier(pFd->pReal
6ab0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 20  );.    return;. 
6ac0: 20 7d 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63   }..  if( p->pSc
6ad0: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
6ae0: 54 45 53 54 56 46 53 5f 53 48 4d 42 41 52 52 49  TESTVFS_SHMBARRI
6af0: 45 52 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74  ER_MASK ){.    t
6b00: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
6b10: 53 68 6d 42 61 72 72 69 65 72 22 2c 20 0a 20 20  ShmBarrier", .  
6b20: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
6b30: 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68 6d  ingObj(pFd->pShm
6b40: 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 46  ->zFile, -1), pF
6b50: 64 2d 3e 70 53 68 6d 49 64 2c 20 30 2c 20 30 0a  d->pShmId, 0, 0.
6b60: 20 20 20 20 29 3b 0a 20 20 7d 0a 7d 0a 0a 73 74      );.  }.}..st
6b70: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d  atic int tvfsShm
6b80: 55 6e 6d 61 70 28 0a 20 20 73 71 6c 69 74 65 33  Unmap(.  sqlite3
6b90: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 0a 20 20  _file *pFile,.  
6ba0: 69 6e 74 20 64 65 6c 65 74 65 46 6c 61 67 0a 29  int deleteFlag.)
6bb0: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
6bc0: 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66  ITE_OK;.  Testvf
6bd0: 73 46 64 20 2a 70 46 64 20 3d 20 74 76 66 73 47  sFd *pFd = tvfsG
6be0: 65 74 46 64 28 70 46 69 6c 65 29 3b 0a 20 20 54  etFd(pFile);.  T
6bf0: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
6c00: 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70 56 66  tvfs *)(pFd->pVf
6c10: 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 20 20  s->pAppData);.  
6c20: 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70  TestvfsBuffer *p
6c30: 42 75 66 66 65 72 20 3d 20 70 46 64 2d 3e 70 53  Buffer = pFd->pS
6c40: 68 6d 3b 0a 20 20 54 65 73 74 76 66 73 46 64 20  hm;.  TestvfsFd 
6c50: 2a 2a 70 70 46 64 3b 0a 0a 20 20 69 66 28 20 70  **ppFd;..  if( p
6c60: 2d 3e 69 73 46 75 6c 6c 73 68 6d 20 29 7b 0a 20  ->isFullshm ){. 
6c70: 20 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65     return sqlite
6c80: 33 4f 73 53 68 6d 55 6e 6d 61 70 28 70 46 64 2d  3OsShmUnmap(pFd-
6c90: 3e 70 52 65 61 6c 2c 20 64 65 6c 65 74 65 46 6c  >pReal, deleteFl
6ca0: 61 67 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20  ag);.  }..  if( 
6cb0: 21 70 42 75 66 66 65 72 20 29 20 72 65 74 75 72  !pBuffer ) retur
6cc0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 61  n SQLITE_OK;.  a
6cd0: 73 73 65 72 74 28 20 70 46 64 2d 3e 70 53 68 6d  ssert( pFd->pShm
6ce0: 49 64 20 26 26 20 70 46 64 2d 3e 70 53 68 6d 20  Id && pFd->pShm 
6cf0: 29 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63  );..  if( p->pSc
6d00: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
6d10: 54 45 53 54 56 46 53 5f 53 48 4d 43 4c 4f 53 45  TESTVFS_SHMCLOSE
6d20: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66  _MASK ){.    tvf
6d30: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68  sExecTcl(p, "xSh
6d40: 6d 55 6e 6d 61 70 22 2c 20 0a 20 20 20 20 20 20  mUnmap", .      
6d50: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
6d60: 62 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46  bj(pFd->pShm->zF
6d70: 69 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70  ile, -1), pFd->p
6d80: 53 68 6d 49 64 2c 20 30 2c 20 30 0a 20 20 20 20  ShmId, 0, 0.    
6d90: 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c  );.    tvfsResul
6da0: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20  tCode(p, &rc);. 
6db0: 20 7d 0a 0a 20 20 66 6f 72 28 70 70 46 64 3d 26   }..  for(ppFd=&
6dc0: 70 42 75 66 66 65 72 2d 3e 70 46 69 6c 65 3b 20  pBuffer->pFile; 
6dd0: 2a 70 70 46 64 21 3d 70 46 64 3b 20 70 70 46 64  *ppFd!=pFd; ppFd
6de0: 3d 26 28 28 2a 70 70 46 64 29 2d 3e 70 4e 65 78  =&((*ppFd)->pNex
6df0: 74 29 29 3b 0a 20 20 61 73 73 65 72 74 28 20 28  t));.  assert( (
6e00: 2a 70 70 46 64 29 3d 3d 70 46 64 20 29 3b 0a 20  *ppFd)==pFd );. 
6e10: 20 2a 70 70 46 64 20 3d 20 70 46 64 2d 3e 70 4e   *ppFd = pFd->pN
6e20: 65 78 74 3b 0a 20 20 70 46 64 2d 3e 70 4e 65 78  ext;.  pFd->pNex
6e30: 74 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 70 42  t = 0;..  if( pB
6e40: 75 66 66 65 72 2d 3e 70 46 69 6c 65 3d 3d 30 20  uffer->pFile==0 
6e50: 29 7b 0a 20 20 20 20 69 6e 74 20 69 3b 0a 20 20  ){.    int i;.  
6e60: 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72 20    TestvfsBuffer 
6e70: 2a 2a 70 70 3b 0a 20 20 20 20 66 6f 72 28 70 70  **pp;.    for(pp
6e80: 3d 26 70 2d 3e 70 42 75 66 66 65 72 3b 20 2a 70  =&p->pBuffer; *p
6e90: 70 21 3d 70 42 75 66 66 65 72 3b 20 70 70 3d 26  p!=pBuffer; pp=&
6ea0: 28 28 2a 70 70 29 2d 3e 70 4e 65 78 74 29 29 3b  ((*pp)->pNext));
6eb0: 0a 20 20 20 20 2a 70 70 20 3d 20 28 2a 70 70 29  .    *pp = (*pp)
6ec0: 2d 3e 70 4e 65 78 74 3b 0a 20 20 20 20 66 6f 72  ->pNext;.    for
6ed0: 28 69 3d 30 3b 20 70 42 75 66 66 65 72 2d 3e 61  (i=0; pBuffer->a
6ee0: 50 61 67 65 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20  Page[i]; i++){. 
6ef0: 20 20 20 20 20 63 6b 66 72 65 65 28 28 63 68 61       ckfree((cha
6f00: 72 20 2a 29 70 42 75 66 66 65 72 2d 3e 61 50 61  r *)pBuffer->aPa
6f10: 67 65 5b 69 5d 29 3b 0a 20 20 20 20 7d 0a 20 20  ge[i]);.    }.  
6f20: 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a    ckfree((char *
6f30: 29 70 42 75 66 66 65 72 29 3b 0a 20 20 7d 0a 20  )pBuffer);.  }. 
6f40: 20 70 46 64 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a   pFd->pShm = 0;.
6f50: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
6f60: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
6f70: 46 65 74 63 68 28 0a 20 20 20 20 73 71 6c 69 74  Fetch(.    sqlit
6f80: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20  e3_file *pFile, 
6f90: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74  .    sqlite3_int
6fa0: 36 34 20 69 4f 66 73 74 2c 20 0a 20 20 20 20 69  64 iOfst, .    i
6fb0: 6e 74 20 69 41 6d 74 2c 20 0a 20 20 20 20 76 6f  nt iAmt, .    vo
6fc0: 69 64 20 2a 2a 70 70 0a 29 7b 0a 20 20 54 65 73  id **pp.){.  Tes
6fd0: 74 76 66 73 46 64 20 2a 70 46 64 20 3d 20 74 76  tvfsFd *pFd = tv
6fe0: 66 73 47 65 74 46 64 28 70 46 69 6c 65 29 3b 0a  fsGetFd(pFile);.
6ff0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
7000: 4f 73 46 65 74 63 68 28 70 46 64 2d 3e 70 52 65  OsFetch(pFd->pRe
7010: 61 6c 2c 20 69 4f 66 73 74 2c 20 69 41 6d 74 2c  al, iOfst, iAmt,
7020: 20 70 70 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20   pp);.}..static 
7030: 69 6e 74 20 74 76 66 73 55 6e 66 65 74 63 68 28  int tvfsUnfetch(
7040: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
7050: 69 6c 65 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74  ile, sqlite3_int
7060: 36 34 20 69 4f 66 73 74 2c 20 76 6f 69 64 20 2a  64 iOfst, void *
7070: 70 29 7b 0a 20 20 54 65 73 74 76 66 73 46 64 20  p){.  TestvfsFd 
7080: 2a 70 46 64 20 3d 20 74 76 66 73 47 65 74 46 64  *pFd = tvfsGetFd
7090: 28 70 46 69 6c 65 29 3b 0a 20 20 72 65 74 75 72  (pFile);.  retur
70a0: 6e 20 73 71 6c 69 74 65 33 4f 73 55 6e 66 65 74  n sqlite3OsUnfet
70b0: 63 68 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20 69  ch(pFd->pReal, i
70c0: 4f 66 73 74 2c 20 70 29 3b 0a 7d 0a 0a 73 74 61  Ofst, p);.}..sta
70d0: 74 69 63 20 69 6e 74 20 74 65 73 74 76 66 73 5f  tic int testvfs_
70e0: 6f 62 6a 5f 63 6d 64 28 0a 20 20 43 6c 69 65 6e  obj_cmd(.  Clien
70f0: 74 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c 5f  tData cd,.  Tcl_
7100: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
7110: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63    int objc,.  Tc
7120: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
7130: 76 5b 5d 0a 29 7b 0a 20 20 54 65 73 74 76 66 73  v[].){.  Testvfs
7140: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
7150: 29 63 64 3b 0a 0a 20 20 65 6e 75 6d 20 44 42 5f  )cd;..  enum DB_
7160: 65 6e 75 6d 20 7b 20 0a 20 20 20 20 43 4d 44 5f  enum { .    CMD_
7170: 53 48 4d 2c 20 43 4d 44 5f 44 45 4c 45 54 45 2c  SHM, CMD_DELETE,
7180: 20 43 4d 44 5f 46 49 4c 54 45 52 2c 20 43 4d 44   CMD_FILTER, CMD
7190: 5f 49 4f 45 52 52 2c 20 43 4d 44 5f 53 43 52 49  _IOERR, CMD_SCRI
71a0: 50 54 2c 20 0a 20 20 20 20 43 4d 44 5f 44 45 56  PT, .    CMD_DEV
71b0: 43 48 41 52 2c 20 43 4d 44 5f 53 45 43 54 4f 52  CHAR, CMD_SECTOR
71c0: 53 49 5a 45 2c 20 43 4d 44 5f 46 55 4c 4c 45 52  SIZE, CMD_FULLER
71d0: 52 2c 20 43 4d 44 5f 43 41 4e 54 4f 50 45 4e 45  R, CMD_CANTOPENE
71e0: 52 52 0a 20 20 7d 3b 0a 20 20 73 74 72 75 63 74  RR.  };.  struct
71f0: 20 54 65 73 74 76 66 73 53 75 62 63 6d 64 20 7b   TestvfsSubcmd {
7200: 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65  .    char *zName
7210: 3b 0a 20 20 20 20 65 6e 75 6d 20 44 42 5f 65 6e  ;.    enum DB_en
7220: 75 6d 20 65 43 6d 64 3b 0a 20 20 7d 20 61 53 75  um eCmd;.  } aSu
7230: 62 63 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b  bcmd[] = {.    {
7240: 20 22 73 68 6d 22 2c 20 20 20 20 20 20 20 20 20   "shm",         
7250: 43 4d 44 5f 53 48 4d 20 20 20 20 20 20 20 20 20  CMD_SHM         
7260: 7d 2c 0a 20 20 20 20 7b 20 22 64 65 6c 65 74 65  },.    { "delete
7270: 22 2c 20 20 20 20 20 20 43 4d 44 5f 44 45 4c 45  ",      CMD_DELE
7280: 54 45 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  TE      },.    {
7290: 20 22 66 69 6c 74 65 72 22 2c 20 20 20 20 20 20   "filter",      
72a0: 43 4d 44 5f 46 49 4c 54 45 52 20 20 20 20 20 20  CMD_FILTER      
72b0: 7d 2c 0a 20 20 20 20 7b 20 22 69 6f 65 72 72 22  },.    { "ioerr"
72c0: 2c 20 20 20 20 20 20 20 43 4d 44 5f 49 4f 45 52  ,       CMD_IOER
72d0: 52 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  R       },.    {
72e0: 20 22 66 75 6c 6c 65 72 72 22 2c 20 20 20 20 20   "fullerr",     
72f0: 43 4d 44 5f 46 55 4c 4c 45 52 52 20 20 20 20 20  CMD_FULLERR     
7300: 7d 2c 0a 20 20 20 20 7b 20 22 63 61 6e 74 6f 70  },.    { "cantop
7310: 65 6e 65 72 72 22 2c 20 43 4d 44 5f 43 41 4e 54  enerr", CMD_CANT
7320: 4f 50 45 4e 45 52 52 20 7d 2c 0a 20 20 20 20 7b  OPENERR },.    {
7330: 20 22 73 63 72 69 70 74 22 2c 20 20 20 20 20 20   "script",      
7340: 43 4d 44 5f 53 43 52 49 50 54 20 20 20 20 20 20  CMD_SCRIPT      
7350: 7d 2c 0a 20 20 20 20 7b 20 22 64 65 76 63 68 61  },.    { "devcha
7360: 72 22 2c 20 20 20 20 20 43 4d 44 5f 44 45 56 43  r",     CMD_DEVC
7370: 48 41 52 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  HAR     },.    {
7380: 20 22 73 65 63 74 6f 72 73 69 7a 65 22 2c 20 20   "sectorsize",  
7390: 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a 45 20 20  CMD_SECTORSIZE  
73a0: 7d 2c 0a 20 20 20 20 7b 20 30 2c 20 30 20 7d 0a  },.    { 0, 0 }.
73b0: 20 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20    };.  int i;.  
73c0: 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20 29 7b  .  if( objc<2 ){
73d0: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
73e0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c  mArgs(interp, 1,
73f0: 20 6f 62 6a 76 2c 20 22 53 55 42 43 4f 4d 4d 41   objv, "SUBCOMMA
7400: 4e 44 20 2e 2e 2e 22 29 3b 0a 20 20 20 20 72 65  ND ...");.    re
7410: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
7420: 20 20 7d 0a 20 20 69 66 28 20 54 63 6c 5f 47 65    }.  if( Tcl_Ge
7430: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74 72  tIndexFromObjStr
7440: 75 63 74 28 0a 20 20 20 20 20 20 20 20 69 6e 74  uct(.        int
7450: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 61 53  erp, objv[1], aS
7460: 75 62 63 6d 64 2c 20 73 69 7a 65 6f 66 28 61 53  ubcmd, sizeof(aS
7470: 75 62 63 6d 64 5b 30 5d 29 2c 20 22 73 75 62 63  ubcmd[0]), "subc
7480: 6f 6d 6d 61 6e 64 22 2c 20 30 2c 20 26 69 29 20  ommand", 0, &i) 
7490: 0a 20 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  .  ){.    return
74a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
74b0: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c    Tcl_ResetResul
74c0: 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 73 77  t(interp);..  sw
74d0: 69 74 63 68 28 20 61 53 75 62 63 6d 64 5b 69 5d  itch( aSubcmd[i]
74e0: 2e 65 43 6d 64 20 29 7b 0a 20 20 20 20 63 61 73  .eCmd ){.    cas
74f0: 65 20 43 4d 44 5f 53 48 4d 3a 20 7b 0a 20 20 20  e CMD_SHM: {.   
7500: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 4f 62 6a     Tcl_Obj *pObj
7510: 3b 0a 20 20 20 20 20 20 69 6e 74 20 69 2c 20 72  ;.      int i, r
7520: 63 3b 0a 20 20 20 20 20 20 54 65 73 74 76 66 73  c;.      Testvfs
7530: 42 75 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b  Buffer *pBuffer;
7540: 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61  .      char *zNa
7550: 6d 65 3b 0a 20 20 20 20 20 20 69 66 28 20 6f 62  me;.      if( ob
7560: 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 34  jc!=3 && objc!=4
7570: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
7580: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
7590: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 46  erp, 2, objv, "F
75a0: 49 4c 45 20 3f 56 41 4c 55 45 3f 22 29 3b 0a 20  ILE ?VALUE?");. 
75b0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
75c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d  L_ERROR;.      }
75d0: 0a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 63  .      zName = c
75e0: 6b 61 6c 6c 6f 63 28 70 2d 3e 70 50 61 72 65 6e  kalloc(p->pParen
75f0: 74 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 29 3b 0a  t->mxPathname);.
7600: 20 20 20 20 20 20 72 63 20 3d 20 70 2d 3e 70 50        rc = p->pP
7610: 61 72 65 6e 74 2d 3e 78 46 75 6c 6c 50 61 74 68  arent->xFullPath
7620: 6e 61 6d 65 28 0a 20 20 20 20 20 20 20 20 20 20  name(.          
7630: 70 2d 3e 70 50 61 72 65 6e 74 2c 20 54 63 6c 5f  p->pParent, Tcl_
7640: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32  GetString(objv[2
7650: 5d 29 2c 20 0a 20 20 20 20 20 20 20 20 20 20 70  ]), .          p
7660: 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74  ->pParent->mxPat
7670: 68 6e 61 6d 65 2c 20 7a 4e 61 6d 65 0a 20 20 20  hname, zName.   
7680: 20 20 20 29 3b 0a 20 20 20 20 20 20 69 66 28 20     );.      if( 
7690: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc!=SQLITE_OK ){
76a0: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70  .        Tcl_App
76b0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
76c0: 2c 20 22 66 61 69 6c 65 64 20 74 6f 20 67 65 74  , "failed to get
76d0: 20 66 75 6c 6c 20 70 61 74 68 3a 20 22 2c 0a 20   full path: ",. 
76e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
76f0: 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53          Tcl_GetS
7700: 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c 20  tring(objv[2]), 
7710: 30 29 3b 0a 20 20 20 20 20 20 20 20 63 6b 66 72  0);.        ckfr
7720: 65 65 28 7a 4e 61 6d 65 29 3b 0a 20 20 20 20 20  ee(zName);.     
7730: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
7740: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
7750: 20 20 20 66 6f 72 28 70 42 75 66 66 65 72 3d 70     for(pBuffer=p
7760: 2d 3e 70 42 75 66 66 65 72 3b 20 70 42 75 66 66  ->pBuffer; pBuff
7770: 65 72 3b 20 70 42 75 66 66 65 72 3d 70 42 75 66  er; pBuffer=pBuf
7780: 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20  fer->pNext){.   
7790: 20 20 20 20 20 69 66 28 20 30 3d 3d 73 74 72 63       if( 0==strc
77a0: 6d 70 28 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c  mp(pBuffer->zFil
77b0: 65 2c 20 7a 4e 61 6d 65 29 20 29 20 62 72 65 61  e, zName) ) brea
77c0: 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  k;.      }.     
77d0: 20 63 6b 66 72 65 65 28 7a 4e 61 6d 65 29 3b 0a   ckfree(zName);.
77e0: 20 20 20 20 20 20 69 66 28 20 21 70 42 75 66 66        if( !pBuff
77f0: 65 72 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63  er ){.        Tc
7800: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
7810: 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63 68 20  nterp, "no such 
7820: 66 69 6c 65 3a 20 22 2c 20 54 63 6c 5f 47 65 74  file: ", Tcl_Get
7830: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c  String(objv[2]),
7840: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74   0);.        ret
7850: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
7860: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
7870: 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20 20 20 20   objc==4 ){.    
7880: 20 20 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20 20      int n;.     
7890: 20 20 20 75 38 20 2a 61 20 3d 20 54 63 6c 5f 47     u8 *a = Tcl_G
78a0: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f  etByteArrayFromO
78b0: 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 29 3b  bj(objv[3], &n);
78c0: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 70 67 73  .        int pgs
78d0: 7a 20 3d 20 70 42 75 66 66 65 72 2d 3e 70 67 73  z = pBuffer->pgs
78e0: 7a 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70  z;.        if( p
78f0: 67 73 7a 3d 3d 30 20 29 20 70 67 73 7a 20 3d 20  gsz==0 ) pgsz = 
7900: 36 35 35 33 36 3b 0a 20 20 20 20 20 20 20 20 66  65536;.        f
7910: 6f 72 28 69 3d 30 3b 20 69 2a 70 67 73 7a 3c 6e  or(i=0; i*pgsz<n
7920: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20  ; i++){.        
7930: 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 70 67    int nByte = pg
7940: 73 7a 3b 0a 20 20 20 20 20 20 20 20 20 20 74 76  sz;.          tv
7950: 66 73 41 6c 6c 6f 63 50 61 67 65 28 70 42 75 66  fsAllocPage(pBuf
7960: 66 65 72 2c 20 69 2c 20 70 67 73 7a 29 3b 0a 20  fer, i, pgsz);. 
7970: 20 20 20 20 20 20 20 20 20 69 66 28 20 6e 2d 69           if( n-i
7980: 2a 70 67 73 7a 3c 70 67 73 7a 20 29 7b 0a 20 20  *pgsz<pgsz ){.  
7990: 20 20 20 20 20 20 20 20 20 20 6e 42 79 74 65 20            nByte 
79a0: 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 7d  = n;.          }
79b0: 0a 20 20 20 20 20 20 20 20 20 20 6d 65 6d 63 70  .          memcp
79c0: 79 28 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65  y(pBuffer->aPage
79d0: 5b 69 5d 2c 20 26 61 5b 69 2a 70 67 73 7a 5d 2c  [i], &a[i*pgsz],
79e0: 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 20 20 20   nByte);.       
79f0: 20 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20   }.      }..    
7a00: 20 20 70 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77    pObj = Tcl_New
7a10: 4f 62 6a 28 29 3b 0a 20 20 20 20 20 20 66 6f 72  Obj();.      for
7a20: 28 69 3d 30 3b 20 70 42 75 66 66 65 72 2d 3e 61  (i=0; pBuffer->a
7a30: 50 61 67 65 5b 69 5d 3b 20 69 2b 2b 29 7b 0a 20  Page[i]; i++){. 
7a40: 20 20 20 20 20 20 20 69 6e 74 20 70 67 73 7a 20         int pgsz 
7a50: 3d 20 70 42 75 66 66 65 72 2d 3e 70 67 73 7a 3b  = pBuffer->pgsz;
7a60: 0a 20 20 20 20 20 20 20 20 69 66 28 20 70 67 73  .        if( pgs
7a70: 7a 3d 3d 30 20 29 20 70 67 73 7a 20 3d 20 36 35  z==0 ) pgsz = 65
7a80: 35 33 36 3b 0a 20 20 20 20 20 20 20 20 54 63 6c  536;.        Tcl
7a90: 5f 41 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28  _AppendObjToObj(
7aa0: 70 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 42 79 74  pObj, Tcl_NewByt
7ab0: 65 41 72 72 61 79 4f 62 6a 28 70 42 75 66 66 65  eArrayObj(pBuffe
7ac0: 72 2d 3e 61 50 61 67 65 5b 69 5d 2c 20 70 67 73  r->aPage[i], pgs
7ad0: 7a 29 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  z));.      }.   
7ae0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
7af0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 4f 62 6a  ult(interp, pObj
7b00: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
7b10: 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20      }..    case 
7b20: 43 4d 44 5f 46 49 4c 54 45 52 3a 20 7b 0a 20 20  CMD_FILTER: {.  
7b30: 20 20 20 20 73 74 61 74 69 63 20 73 74 72 75 63      static struc
7b40: 74 20 56 66 73 4d 65 74 68 6f 64 20 7b 0a 20 20  t VfsMethod {.  
7b50: 20 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d        char *zNam
7b60: 65 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6d  e;.        int m
7b70: 61 73 6b 3b 0a 20 20 20 20 20 20 7d 20 76 66 73  ask;.      } vfs
7b80: 6d 65 74 68 6f 64 20 5b 5d 20 3d 20 7b 0a 20 20  method [] = {.  
7b90: 20 20 20 20 20 20 7b 20 22 78 53 68 6d 4f 70 65        { "xShmOpe
7ba0: 6e 22 2c 20 20 20 20 20 20 54 45 53 54 56 46 53  n",      TESTVFS
7bb0: 5f 53 48 4d 4f 50 45 4e 5f 4d 41 53 4b 20 7d 2c  _SHMOPEN_MASK },
7bc0: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d  .        { "xShm
7bd0: 4c 6f 63 6b 22 2c 20 20 20 20 20 20 54 45 53 54  Lock",      TEST
7be0: 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d 41 53 4b  VFS_SHMLOCK_MASK
7bf0: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78   },.        { "x
7c00: 53 68 6d 42 61 72 72 69 65 72 22 2c 20 20 20 54  ShmBarrier",   T
7c10: 45 53 54 56 46 53 5f 53 48 4d 42 41 52 52 49 45  ESTVFS_SHMBARRIE
7c20: 52 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20  R_MASK },.      
7c30: 20 20 7b 20 22 78 53 68 6d 55 6e 6d 61 70 22 2c    { "xShmUnmap",
7c40: 20 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d       TESTVFS_SHM
7c50: 43 4c 4f 53 45 5f 4d 41 53 4b 20 7d 2c 0a 20 20  CLOSE_MASK },.  
7c60: 20 20 20 20 20 20 7b 20 22 78 53 68 6d 4d 61 70        { "xShmMap
7c70: 22 2c 20 20 20 20 20 20 20 54 45 53 54 56 46 53  ",       TESTVFS
7c80: 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20 7d 2c 0a  _SHMMAP_MASK },.
7c90: 20 20 20 20 20 20 20 20 7b 20 22 78 53 79 6e 63          { "xSync
7ca0: 22 2c 20 20 20 20 20 20 20 20 20 54 45 53 54 56  ",         TESTV
7cb0: 46 53 5f 53 59 4e 43 5f 4d 41 53 4b 20 7d 2c 0a  FS_SYNC_MASK },.
7cc0: 20 20 20 20 20 20 20 20 7b 20 22 78 44 65 6c 65          { "xDele
7cd0: 74 65 22 2c 20 20 20 20 20 20 20 54 45 53 54 56  te",       TESTV
7ce0: 46 53 5f 44 45 4c 45 54 45 5f 4d 41 53 4b 20 7d  FS_DELETE_MASK }
7cf0: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 57 72  ,.        { "xWr
7d00: 69 74 65 22 2c 20 20 20 20 20 20 20 20 54 45 53  ite",        TES
7d10: 54 56 46 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20  TVFS_WRITE_MASK 
7d20: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 52  },.        { "xR
7d30: 65 61 64 22 2c 20 20 20 20 20 20 20 20 20 54 45  ead",         TE
7d40: 53 54 56 46 53 5f 52 45 41 44 5f 4d 41 53 4b 20  STVFS_READ_MASK 
7d50: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 54  },.        { "xT
7d60: 72 75 6e 63 61 74 65 22 2c 20 20 20 20 20 54 45  runcate",     TE
7d70: 53 54 56 46 53 5f 54 52 55 4e 43 41 54 45 5f 4d  STVFS_TRUNCATE_M
7d80: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
7d90: 20 22 78 4f 70 65 6e 22 2c 20 20 20 20 20 20 20   "xOpen",       
7da0: 20 20 54 45 53 54 56 46 53 5f 4f 50 45 4e 5f 4d    TESTVFS_OPEN_M
7db0: 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  ASK },.        {
7dc0: 20 22 78 43 6c 6f 73 65 22 2c 20 20 20 20 20 20   "xClose",      
7dd0: 20 20 54 45 53 54 56 46 53 5f 43 4c 4f 53 45 5f    TESTVFS_CLOSE_
7de0: 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20 20 20  MASK },.        
7df0: 7b 20 22 78 41 63 63 65 73 73 22 2c 20 20 20 20  { "xAccess",    
7e00: 20 20 20 54 45 53 54 56 46 53 5f 41 43 43 45 53     TESTVFS_ACCES
7e10: 53 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20 20 20  S_MASK },.      
7e20: 20 20 7b 20 22 78 46 75 6c 6c 50 61 74 68 6e 61    { "xFullPathna
7e30: 6d 65 22 2c 20 54 45 53 54 56 46 53 5f 46 55 4c  me", TESTVFS_FUL
7e40: 4c 50 41 54 48 4e 41 4d 45 5f 4d 41 53 4b 20 7d  LPATHNAME_MASK }
7e50: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 55 6e  ,.        { "xUn
7e60: 6c 6f 63 6b 22 2c 20 20 20 20 20 20 20 54 45 53  lock",       TES
7e70: 54 56 46 53 5f 55 4e 4c 4f 43 4b 5f 4d 41 53 4b  TVFS_UNLOCK_MASK
7e80: 20 7d 2c 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20   },.      };.   
7e90: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70 45     Tcl_Obj **apE
7ea0: 6c 65 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 69  lem = 0;.      i
7eb0: 6e 74 20 6e 45 6c 65 6d 20 3d 20 30 3b 0a 20 20  nt nElem = 0;.  
7ec0: 20 20 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 20      int i;.     
7ed0: 20 69 6e 74 20 6d 61 73 6b 20 3d 20 30 3b 0a 20   int mask = 0;. 
7ee0: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33       if( objc!=3
7ef0: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
7f00: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
7f10: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 4c  erp, 2, objv, "L
7f20: 49 53 54 22 29 3b 0a 20 20 20 20 20 20 20 20 72  IST");.        r
7f30: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
7f40: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69  .      }.      i
7f50: 66 28 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65  f( Tcl_ListObjGe
7f60: 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 70  tElements(interp
7f70: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6e 45 6c 65  , objv[2], &nEle
7f80: 6d 2c 20 26 61 70 45 6c 65 6d 29 20 29 7b 0a 20  m, &apElem) ){. 
7f90: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
7fa0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d  L_ERROR;.      }
7fb0: 0a 20 20 20 20 20 20 54 63 6c 5f 52 65 73 65 74  .      Tcl_Reset
7fc0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
7fd0: 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69        for(i=0; i
7fe0: 3c 6e 45 6c 65 6d 3b 20 69 2b 2b 29 7b 0a 20 20  <nElem; i++){.  
7ff0: 20 20 20 20 20 20 69 6e 74 20 69 4d 65 74 68 6f        int iMetho
8000: 64 3b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20  d;.        char 
8010: 2a 7a 45 6c 65 6d 20 3d 20 54 63 6c 5f 47 65 74  *zElem = Tcl_Get
8020: 53 74 72 69 6e 67 28 61 70 45 6c 65 6d 5b 69 5d  String(apElem[i]
8030: 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69  );.        for(i
8040: 4d 65 74 68 6f 64 3d 30 3b 20 69 4d 65 74 68 6f  Method=0; iMetho
8050: 64 3c 41 72 72 61 79 53 69 7a 65 28 76 66 73 6d  d<ArraySize(vfsm
8060: 65 74 68 6f 64 29 3b 20 69 4d 65 74 68 6f 64 2b  ethod); iMethod+
8070: 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66  +){.          if
8080: 28 20 73 74 72 63 6d 70 28 7a 45 6c 65 6d 2c 20  ( strcmp(zElem, 
8090: 76 66 73 6d 65 74 68 6f 64 5b 69 4d 65 74 68 6f  vfsmethod[iMetho
80a0: 64 5d 2e 7a 4e 61 6d 65 29 3d 3d 30 20 29 7b 0a  d].zName)==0 ){.
80b0: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b              mask
80c0: 20 7c 3d 20 76 66 73 6d 65 74 68 6f 64 5b 69 4d   |= vfsmethod[iM
80d0: 65 74 68 6f 64 5d 2e 6d 61 73 6b 3b 0a 20 20 20  ethod].mask;.   
80e0: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a           break;.
80f0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
8100: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66      }.        if
8110: 28 20 69 4d 65 74 68 6f 64 3d 3d 41 72 72 61 79  ( iMethod==Array
8120: 53 69 7a 65 28 76 66 73 6d 65 74 68 6f 64 29 20  Size(vfsmethod) 
8130: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c  ){.          Tcl
8140: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
8150: 74 65 72 70 2c 20 22 75 6e 6b 6e 6f 77 6e 20 6d  terp, "unknown m
8160: 65 74 68 6f 64 3a 20 22 2c 20 7a 45 6c 65 6d 2c  ethod: ", zElem,
8170: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 72   0);.          r
8180: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
8190: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
81a0: 20 7d 0a 20 20 20 20 20 20 70 2d 3e 6d 61 73 6b   }.      p->mask
81b0: 20 3d 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20 62   = mask;.      b
81c0: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  reak;.    }..   
81d0: 20 63 61 73 65 20 43 4d 44 5f 53 43 52 49 50 54   case CMD_SCRIPT
81e0: 3a 20 7b 0a 20 20 20 20 20 20 69 66 28 20 6f 62  : {.      if( ob
81f0: 6a 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 20  jc==3 ){.       
8200: 20 69 6e 74 20 6e 42 79 74 65 3b 0a 20 20 20 20   int nByte;.    
8210: 20 20 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69      if( p->pScri
8220: 70 74 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  pt ){.          
8230: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
8240: 28 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20  (p->pScript);.  
8250: 20 20 20 20 20 20 20 20 70 2d 3e 70 53 63 72 69          p->pScri
8260: 70 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20  pt = 0;.        
8270: 7d 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 47 65  }.        Tcl_Ge
8280: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f  tStringFromObj(o
8290: 62 6a 76 5b 32 5d 2c 20 26 6e 42 79 74 65 29 3b  bjv[2], &nByte);
82a0: 0a 20 20 20 20 20 20 20 20 69 66 28 20 6e 42 79  .        if( nBy
82b0: 74 65 3e 30 20 29 7b 0a 20 20 20 20 20 20 20 20  te>0 ){.        
82c0: 20 20 70 2d 3e 70 53 63 72 69 70 74 20 3d 20 54    p->pScript = T
82d0: 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28  cl_DuplicateObj(
82e0: 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 20 20 20 20  objv[2]);.      
82f0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43      Tcl_IncrRefC
8300: 6f 75 6e 74 28 70 2d 3e 70 53 63 72 69 70 74 29  ount(p->pScript)
8310: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
8320: 20 20 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a 63    }else if( objc
8330: 21 3d 32 20 29 7b 0a 20 20 20 20 20 20 20 20 54  !=2 ){.        T
8340: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
8350: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
8360: 20 22 3f 53 43 52 49 50 54 3f 22 29 3b 0a 20 20   "?SCRIPT?");.  
8370: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
8380: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
8390: 0a 20 20 20 20 20 20 54 63 6c 5f 52 65 73 65 74  .      Tcl_Reset
83a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
83b0: 20 20 20 20 20 20 69 66 28 20 70 2d 3e 70 53 63        if( p->pSc
83c0: 72 69 70 74 20 29 20 54 63 6c 5f 53 65 74 4f 62  ript ) Tcl_SetOb
83d0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
83e0: 70 2d 3e 70 53 63 72 69 70 74 29 3b 0a 0a 20 20  p->pScript);..  
83f0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d      break;.    }
8400: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20  ..    /*.    ** 
8410: 54 45 53 54 56 46 53 20 69 6f 65 72 72 20 3f 49  TESTVFS ioerr ?I
8420: 46 41 49 4c 20 50 45 52 53 49 53 54 3f 0a 20 20  FAIL PERSIST?.  
8430: 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 57 68    **.    **   Wh
8440: 65 72 65 20 49 46 41 49 4c 20 69 73 20 61 6e 20  ere IFAIL is an 
8450: 69 6e 74 65 67 65 72 20 61 6e 64 20 50 45 52 53  integer and PERS
8460: 49 53 54 20 69 73 20 62 6f 6f 6c 65 61 6e 2e 0a  IST is boolean..
8470: 20 20 20 20 2a 2f 0a 20 20 20 20 63 61 73 65 20      */.    case 
8480: 43 4d 44 5f 43 41 4e 54 4f 50 45 4e 45 52 52 3a  CMD_CANTOPENERR:
8490: 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 49 4f  .    case CMD_IO
84a0: 45 52 52 3a 0a 20 20 20 20 63 61 73 65 20 43 4d  ERR:.    case CM
84b0: 44 5f 46 55 4c 4c 45 52 52 3a 20 7b 0a 20 20 20  D_FULLERR: {.   
84c0: 20 20 20 54 65 73 74 46 61 75 6c 74 49 6e 6a 65     TestFaultInje
84d0: 63 74 20 2a 70 54 65 73 74 3b 0a 20 20 20 20 20  ct *pTest;.     
84e0: 20 69 6e 74 20 69 52 65 74 3b 0a 0a 20 20 20 20   int iRet;..    
84f0: 20 20 73 77 69 74 63 68 28 20 61 53 75 62 63 6d    switch( aSubcm
8500: 64 5b 69 5d 2e 65 43 6d 64 20 29 7b 0a 20 20 20  d[i].eCmd ){.   
8510: 20 20 20 20 20 63 61 73 65 20 43 4d 44 5f 49 4f       case CMD_IO
8520: 45 52 52 3a 20 70 54 65 73 74 20 3d 20 26 70 2d  ERR: pTest = &p-
8530: 3e 69 6f 65 72 72 5f 65 72 72 3b 20 62 72 65 61  >ioerr_err; brea
8540: 6b 3b 0a 20 20 20 20 20 20 20 20 63 61 73 65 20  k;.        case 
8550: 43 4d 44 5f 46 55 4c 4c 45 52 52 3a 20 70 54 65  CMD_FULLERR: pTe
8560: 73 74 20 3d 20 26 70 2d 3e 66 75 6c 6c 5f 65 72  st = &p->full_er
8570: 72 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20  r; break;.      
8580: 20 20 63 61 73 65 20 43 4d 44 5f 43 41 4e 54 4f    case CMD_CANTO
8590: 50 45 4e 45 52 52 3a 20 70 54 65 73 74 20 3d 20  PENERR: pTest = 
85a0: 26 70 2d 3e 63 61 6e 74 6f 70 65 6e 5f 65 72 72  &p->cantopen_err
85b0: 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 20  ; break;.       
85c0: 20 64 65 66 61 75 6c 74 3a 20 61 73 73 65 72 74   default: assert
85d0: 28 30 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  (0);.      }.   
85e0: 20 20 20 69 52 65 74 20 3d 20 70 54 65 73 74 2d     iRet = pTest-
85f0: 3e 6e 46 61 69 6c 3b 0a 20 20 20 20 20 20 70 54  >nFail;.      pT
8600: 65 73 74 2d 3e 6e 46 61 69 6c 20 3d 20 30 3b 0a  est->nFail = 0;.
8610: 20 20 20 20 20 20 70 54 65 73 74 2d 3e 65 46 61        pTest->eFa
8620: 75 6c 74 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  ult = 0;.      p
8630: 54 65 73 74 2d 3e 69 43 6e 74 20 3d 20 30 3b 0a  Test->iCnt = 0;.
8640: 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d  .      if( objc=
8650: 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e  =4 ){.        in
8660: 74 20 69 43 6e 74 2c 20 69 50 65 72 73 69 73 74  t iCnt, iPersist
8670: 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 54 43  ;.        if( TC
8680: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74  L_OK!=Tcl_GetInt
8690: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
86a0: 6f 62 6a 76 5b 32 5d 2c 20 26 69 43 6e 74 29 0a  objv[2], &iCnt).
86b0: 20 20 20 20 20 20 20 20 20 7c 7c 20 54 43 4c 5f           || TCL_
86c0: 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c 65  OK!=Tcl_GetBoole
86d0: 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  anFromObj(interp
86e0: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 69 50 65 72  , objv[3], &iPer
86f0: 73 69 73 74 29 0a 20 20 20 20 20 20 20 20 29 7b  sist).        ){
8700: 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72  .          retur
8710: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
8720: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 70       }.        p
8730: 54 65 73 74 2d 3e 65 46 61 75 6c 74 20 3d 20 69  Test->eFault = i
8740: 50 65 72 73 69 73 74 3f 46 41 55 4c 54 5f 49 4e  Persist?FAULT_IN
8750: 4a 45 43 54 5f 50 45 52 53 49 53 54 45 4e 54 3a  JECT_PERSISTENT:
8760: 46 41 55 4c 54 5f 49 4e 4a 45 43 54 5f 54 52 41  FAULT_INJECT_TRA
8770: 4e 53 49 45 4e 54 3b 0a 20 20 20 20 20 20 20 20  NSIENT;.        
8780: 70 54 65 73 74 2d 3e 69 43 6e 74 20 3d 20 69 43  pTest->iCnt = iC
8790: 6e 74 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 20  nt;.      }else 
87a0: 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20  if( objc!=2 ){. 
87b0: 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67         Tcl_Wrong
87c0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
87d0: 32 2c 20 6f 62 6a 76 2c 20 22 3f 43 4e 54 20 50  2, objv, "?CNT P
87e0: 45 52 53 49 53 54 3f 22 29 3b 0a 20 20 20 20 20  ERSIST?");.     
87f0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
8800: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
8810: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
8820: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
8830: 4e 65 77 49 6e 74 4f 62 6a 28 69 52 65 74 29 29  NewIntObj(iRet))
8840: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ;.      break;. 
8850: 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43     }..    case C
8860: 4d 44 5f 44 45 4c 45 54 45 3a 20 7b 0a 20 20 20  MD_DELETE: {.   
8870: 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d     Tcl_DeleteCom
8880: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 54 63 6c  mand(interp, Tcl
8890: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
88a0: 30 5d 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61  0]));.      brea
88b0: 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61  k;.    }..    ca
88c0: 73 65 20 43 4d 44 5f 44 45 56 43 48 41 52 3a 20  se CMD_DEVCHAR: 
88d0: 7b 0a 20 20 20 20 20 20 73 74 72 75 63 74 20 44  {.      struct D
88e0: 65 76 69 63 65 46 6c 61 67 20 7b 0a 20 20 20 20  eviceFlag {.    
88f0: 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b      char *zName;
8900: 0a 20 20 20 20 20 20 20 20 69 6e 74 20 69 56 61  .        int iVa
8910: 6c 75 65 3b 0a 20 20 20 20 20 20 7d 20 61 46 6c  lue;.      } aFl
8920: 61 67 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20 20  ag[] = {.       
8930: 20 7b 20 22 64 65 66 61 75 6c 74 22 2c 20 20 20   { "default",   
8940: 20 20 20 20 20 20 20 20 20 20 20 20 2d 31 20 7d              -1 }
8950: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f  ,.        { "ato
8960: 6d 69 63 22 2c 20 20 20 20 20 20 20 20 20 20 20  mic",           
8970: 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41       SQLITE_IOCA
8980: 50 5f 41 54 4f 4d 49 43 20 20 20 20 20 20 20 20  P_ATOMIC        
8990: 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20          },.     
89a0: 20 20 20 7b 20 22 61 74 6f 6d 69 63 35 31 32 22     { "atomic512"
89b0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51  ,             SQ
89c0: 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49  LITE_IOCAP_ATOMI
89d0: 43 35 31 32 20 20 20 20 20 20 20 20 20 20 20 20  C512            
89e0: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61   },.        { "a
89f0: 74 6f 6d 69 63 31 6b 22 2c 20 20 20 20 20 20 20  tomic1k",       
8a00: 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f         SQLITE_IO
8a10: 43 41 50 5f 41 54 4f 4d 49 43 31 4b 20 20 20 20  CAP_ATOMIC1K    
8a20: 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20            },.   
8a30: 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 32 6b       { "atomic2k
8a40: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ",              
8a50: 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f  SQLITE_IOCAP_ATO
8a60: 4d 49 43 32 4b 20 20 20 20 20 20 20 20 20 20 20  MIC2K           
8a70: 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20     },.        { 
8a80: 22 61 74 6f 6d 69 63 34 6b 22 2c 20 20 20 20 20  "atomic4k",     
8a90: 20 20 20 20 20 20 20 20 20 53 51 4c 49 54 45 5f           SQLITE_
8aa0: 49 4f 43 41 50 5f 41 54 4f 4d 49 43 34 4b 20 20  IOCAP_ATOMIC4K  
8ab0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c 0a 20              },. 
8ac0: 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63         { "atomic
8ad0: 38 6b 22 2c 20 20 20 20 20 20 20 20 20 20 20 20  8k",            
8ae0: 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41    SQLITE_IOCAP_A
8af0: 54 4f 4d 49 43 38 4b 20 20 20 20 20 20 20 20 20  TOMIC8K         
8b00: 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20       },.        
8b10: 7b 20 22 61 74 6f 6d 69 63 31 36 6b 22 2c 20 20  { "atomic16k",  
8b20: 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 49 54             SQLIT
8b30: 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43 31 36  E_IOCAP_ATOMIC16
8b40: 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 2c  K             },
8b50: 0a 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d  .        { "atom
8b60: 69 63 33 32 6b 22 2c 20 20 20 20 20 20 20 20 20  ic32k",         
8b70: 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50      SQLITE_IOCAP
8b80: 5f 41 54 4f 4d 49 43 33 32 4b 20 20 20 20 20 20  _ATOMIC32K      
8b90: 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20 20         },.      
8ba0: 20 20 7b 20 22 61 74 6f 6d 69 63 36 34 6b 22 2c    { "atomic64k",
8bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c               SQL
8bc0: 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43  ITE_IOCAP_ATOMIC
8bd0: 36 34 4b 20 20 20 20 20 20 20 20 20 20 20 20 20  64K             
8be0: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 73 65  },.        { "se
8bf0: 71 75 65 6e 74 69 61 6c 22 2c 20 20 20 20 20 20  quential",      
8c00: 20 20 20 20 20 20 53 51 4c 49 54 45 5f 49 4f 43        SQLITE_IOC
8c10: 41 50 5f 53 45 51 55 45 4e 54 49 41 4c 20 20 20  AP_SEQUENTIAL   
8c20: 20 20 20 20 20 20 20 20 20 7d 2c 0a 20 20 20 20           },.    
8c30: 20 20 20 20 7b 20 22 73 61 66 65 5f 61 70 70 65      { "safe_appe
8c40: 6e 64 22 2c 20 20 20 20 20 20 20 20 20 20 20 53  nd",           S
8c50: 51 4c 49 54 45 5f 49 4f 43 41 50 5f 53 41 46 45  QLITE_IOCAP_SAFE
8c60: 5f 41 50 50 45 4e 44 20 20 20 20 20 20 20 20 20  _APPEND         
8c70: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22    },.        { "
8c80: 75 6e 64 65 6c 65 74 61 62 6c 65 5f 77 68 65 6e  undeletable_when
8c90: 5f 6f 70 65 6e 22 2c 20 53 51 4c 49 54 45 5f 49  _open", SQLITE_I
8ca0: 4f 43 41 50 5f 55 4e 44 45 4c 45 54 41 42 4c 45  OCAP_UNDELETABLE
8cb0: 5f 57 48 45 4e 5f 4f 50 45 4e 20 7d 2c 0a 20 20  _WHEN_OPEN },.  
8cc0: 20 20 20 20 20 20 7b 20 22 70 6f 77 65 72 73 61        { "powersa
8cd0: 66 65 5f 6f 76 65 72 77 72 69 74 65 22 2c 20 20  fe_overwrite",  
8ce0: 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 50 4f   SQLITE_IOCAP_PO
8cf0: 57 45 52 53 41 46 45 5f 4f 56 45 52 57 52 49 54  WERSAFE_OVERWRIT
8d00: 45 20 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b  E   },.        {
8d10: 20 30 2c 20 30 20 7d 0a 20 20 20 20 20 20 7d 3b   0, 0 }.      };
8d20: 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a  .      Tcl_Obj *
8d30: 70 52 65 74 3b 0a 20 20 20 20 20 20 69 6e 74 20  pRet;.      int 
8d40: 69 46 6c 61 67 3b 0a 0a 20 20 20 20 20 20 69 66  iFlag;..      if
8d50: 28 20 6f 62 6a 63 3e 33 20 29 7b 0a 20 20 20 20  ( objc>3 ){.    
8d60: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
8d70: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
8d80: 6f 62 6a 76 2c 20 22 3f 41 54 54 52 2d 4c 49 53  objv, "?ATTR-LIS
8d90: 54 3f 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65  T?");.        re
8da0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
8db0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
8dc0: 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20 20 20  ( objc==3 ){.   
8dd0: 20 20 20 20 20 69 6e 74 20 6a 3b 0a 20 20 20 20       int j;.    
8de0: 20 20 20 20 69 6e 74 20 69 4e 65 77 20 3d 20 30      int iNew = 0
8df0: 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62  ;.        Tcl_Ob
8e00: 6a 20 2a 2a 66 6c 61 67 73 20 3d 20 30 3b 0a 20  j **flags = 0;. 
8e10: 20 20 20 20 20 20 20 69 6e 74 20 6e 46 6c 61 67         int nFlag
8e20: 73 20 3d 20 30 3b 0a 0a 20 20 20 20 20 20 20 20  s = 0;..        
8e30: 69 66 28 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 47  if( Tcl_ListObjG
8e40: 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72  etElements(inter
8e50: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6e 46 6c  p, objv[2], &nFl
8e60: 61 67 73 2c 20 26 66 6c 61 67 73 29 20 29 7b 0a  ags, &flags) ){.
8e70: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
8e80: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
8e90: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 66      }..        f
8ea0: 6f 72 28 6a 3d 30 3b 20 6a 3c 6e 46 6c 61 67 73  or(j=0; j<nFlags
8eb0: 3b 20 6a 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20  ; j++){.        
8ec0: 20 20 69 6e 74 20 69 64 78 20 3d 20 30 3b 0a 20    int idx = 0;. 
8ed0: 20 20 20 20 20 20 20 20 20 69 66 28 20 54 63 6c           if( Tcl
8ee0: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a  _GetIndexFromObj
8ef0: 53 74 72 75 63 74 28 69 6e 74 65 72 70 2c 20 66  Struct(interp, f
8f00: 6c 61 67 73 5b 6a 5d 2c 20 61 46 6c 61 67 2c 20  lags[j], aFlag, 
8f10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
8f20: 20 73 69 7a 65 6f 66 28 61 46 6c 61 67 5b 30 5d   sizeof(aFlag[0]
8f30: 29 2c 20 22 66 6c 61 67 22 2c 20 30 2c 20 26 69  ), "flag", 0, &i
8f40: 64 78 29 20 0a 20 20 20 20 20 20 20 20 20 20 29  dx) .          )
8f50: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  {.            re
8f60: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
8f70: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
8f80: 20 20 20 20 20 20 69 66 28 20 61 46 6c 61 67 5b        if( aFlag[
8f90: 69 64 78 5d 2e 69 56 61 6c 75 65 3c 30 20 26 26  idx].iValue<0 &&
8fa0: 20 6e 46 6c 61 67 73 3e 31 20 29 7b 0a 20 20 20   nFlags>1 ){.   
8fb0: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70           Tcl_App
8fc0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
8fd0: 2c 20 22 62 61 64 20 66 6c 61 67 73 3a 20 22 2c  , "bad flags: ",
8fe0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f   Tcl_GetString(o
8ff0: 62 6a 76 5b 32 5d 29 2c 20 30 29 3b 0a 20 20 20  bjv[2]), 0);.   
9000: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
9010: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
9020: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
9030: 20 69 4e 65 77 20 7c 3d 20 61 46 6c 61 67 5b 69   iNew |= aFlag[i
9040: 64 78 5d 2e 69 56 61 6c 75 65 3b 0a 20 20 20 20  dx].iValue;.    
9050: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 70      }..        p
9060: 2d 3e 69 44 65 76 63 68 61 72 20 3d 20 69 4e 65  ->iDevchar = iNe
9070: 77 7c 20 30 78 31 30 30 30 30 30 30 30 3b 0a 20  w| 0x10000000;. 
9080: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 70 52       }..      pR
9090: 65 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28  et = Tcl_NewObj(
90a0: 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 46 6c  );.      for(iFl
90b0: 61 67 3d 30 3b 20 69 46 6c 61 67 3c 73 69 7a 65  ag=0; iFlag<size
90c0: 6f 66 28 61 46 6c 61 67 29 2f 73 69 7a 65 6f 66  of(aFlag)/sizeof
90d0: 28 61 46 6c 61 67 5b 30 5d 29 3b 20 69 46 6c 61  (aFlag[0]); iFla
90e0: 67 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66  g++){.        if
90f0: 28 20 70 2d 3e 69 44 65 76 63 68 61 72 20 26 20  ( p->iDevchar & 
9100: 61 46 6c 61 67 5b 69 46 6c 61 67 5d 2e 69 56 61  aFlag[iFlag].iVa
9110: 6c 75 65 20 29 7b 0a 20 20 20 20 20 20 20 20 20  lue ){.         
9120: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
9130: 6e 64 45 6c 65 6d 65 6e 74 28 0a 20 20 20 20 20  ndElement(.     
9140: 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c           interp,
9150: 20 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74   pRet, Tcl_NewSt
9160: 72 69 6e 67 4f 62 6a 28 61 46 6c 61 67 5b 69 46  ringObj(aFlag[iF
9170: 6c 61 67 5d 2e 7a 4e 61 6d 65 2c 20 2d 31 29 0a  lag].zName, -1).
9180: 20 20 20 20 20 20 20 20 20 20 29 3b 0a 20 20 20            );.   
9190: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20       }.      }. 
91a0: 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52       Tcl_SetObjR
91b0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52  esult(interp, pR
91c0: 65 74 29 3b 0a 0a 20 20 20 20 20 20 62 72 65 61  et);..      brea
91d0: 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61  k;.    }..    ca
91e0: 73 65 20 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a  se CMD_SECTORSIZ
91f0: 45 3a 20 7b 0a 20 20 20 20 20 20 69 66 28 20 6f  E: {.      if( o
9200: 62 6a 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 20  bjc>3 ){.       
9210: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
9220: 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a  s(interp, 2, obj
9230: 76 2c 20 22 3f 56 41 4c 55 45 3f 22 29 3b 0a 20  v, "?VALUE?");. 
9240: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
9250: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d  L_ERROR;.      }
9260: 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d  .      if( objc=
9270: 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e  =3 ){.        in
9280: 74 20 69 4e 65 77 20 3d 20 30 3b 0a 20 20 20 20  t iNew = 0;.    
9290: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49      if( Tcl_GetI
92a0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  ntFromObj(interp
92b0: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 4e 65 77  , objv[2], &iNew
92c0: 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72  ) ){.          r
92d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
92e0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
92f0: 20 20 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a     p->iSectorsiz
9300: 65 20 3d 20 69 4e 65 77 3b 0a 20 20 20 20 20 20  e = iNew;.      
9310: 7d 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f  }.      Tcl_SetO
9320: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
9330: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70   Tcl_NewIntObj(p
9340: 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65 29 29 3b  ->iSectorsize));
9350: 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  .      break;.  
9360: 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72    }.  }..  retur
9370: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61  n TCL_OK;.}..sta
9380: 74 69 63 20 76 6f 69 64 20 74 65 73 74 76 66 73  tic void testvfs
9390: 5f 6f 62 6a 5f 64 65 6c 28 43 6c 69 65 6e 74 44  _obj_del(ClientD
93a0: 61 74 61 20 63 64 29 7b 0a 20 20 54 65 73 74 76  ata cd){.  Testv
93b0: 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  fs *p = (Testvfs
93c0: 20 2a 29 63 64 3b 0a 20 20 69 66 28 20 70 2d 3e   *)cd;.  if( p->
93d0: 70 53 63 72 69 70 74 20 29 20 54 63 6c 5f 44 65  pScript ) Tcl_De
93e0: 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53  crRefCount(p->pS
93f0: 63 72 69 70 74 29 3b 0a 20 20 73 71 6c 69 74 65  cript);.  sqlite
9400: 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72  3_vfs_unregister
9410: 28 70 2d 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66  (p->pVfs);.  ckf
9420: 72 65 65 28 28 63 68 61 72 20 2a 29 70 2d 3e 70  ree((char *)p->p
9430: 56 66 73 29 3b 0a 20 20 63 6b 66 72 65 65 28 28  Vfs);.  ckfree((
9440: 63 68 61 72 20 2a 29 70 29 3b 0a 7d 0a 0a 2f 2a  char *)p);.}../*
9450: 0a 2a 2a 20 55 73 61 67 65 3a 20 20 74 65 73 74  .** Usage:  test
9460: 76 66 73 20 56 46 53 4e 41 4d 45 20 3f 53 57 49  vfs VFSNAME ?SWI
9470: 54 43 48 45 53 3f 0a 2a 2a 0a 2a 2a 20 53 77 69  TCHES?.**.** Swi
9480: 74 63 68 65 73 20 61 72 65 3a 0a 2a 2a 0a 2a 2a  tches are:.**.**
9490: 20 20 20 2d 6e 6f 73 68 6d 20 20 20 42 4f 4f 4c     -noshm   BOOL
94a0: 45 41 4e 20 20 20 20 20 20 20 20 20 20 20 20 20  EAN             
94b0: 28 54 72 75 65 20 74 6f 20 6f 6d 69 74 20 73 68  (True to omit sh
94c0: 6d 20 6d 65 74 68 6f 64 73 2e 20 44 65 66 61 75  m methods. Defau
94d0: 6c 74 20 66 61 6c 73 65 29 0a 2a 2a 20 20 20 2d  lt false).**   -
94e0: 64 65 66 61 75 6c 74 20 42 4f 4f 4c 45 41 4e 20  default BOOLEAN 
94f0: 20 20 20 20 20 20 20 20 20 20 20 20 28 54 72 75              (Tru
9500: 65 20 74 6f 20 6d 61 6b 65 20 74 68 65 20 76 66  e to make the vf
9510: 73 20 64 65 66 61 75 6c 74 2e 20 44 65 66 61 75  s default. Defau
9520: 6c 74 20 66 61 6c 73 65 29 0a 2a 2a 0a 2a 2a 20  lt false).**.** 
9530: 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 63 72 65  This command cre
9540: 61 74 65 73 20 74 77 6f 20 74 68 69 6e 67 73 20  ates two things 
9550: 77 68 65 6e 20 69 74 20 69 73 20 69 6e 76 6f 6b  when it is invok
9560: 65 64 3a 20 61 6e 20 53 51 4c 69 74 65 20 56 46  ed: an SQLite VF
9570: 53 2c 20 61 6e 64 0a 2a 2a 20 61 20 54 63 6c 20  S, and.** a Tcl 
9580: 63 6f 6d 6d 61 6e 64 2e 20 42 6f 74 68 20 61 72  command. Both ar
9590: 65 20 6e 61 6d 65 64 20 56 46 53 4e 41 4d 45 2e  e named VFSNAME.
95a0: 20 54 68 65 20 56 46 53 20 69 73 20 69 6e 73 74   The VFS is inst
95b0: 61 6c 6c 65 64 2e 20 49 74 20 69 73 20 6e 6f 74  alled. It is not
95c0: 0a 2a 2a 20 69 6e 73 74 61 6c 6c 65 64 20 61 73  .** installed as
95d0: 20 74 68 65 20 64 65 66 61 75 6c 74 20 56 46 53   the default VFS
95e0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 56 46 53 20  ..**.** The VFS 
95f0: 70 61 73 73 65 73 20 61 6c 6c 20 66 69 6c 65 20  passes all file 
9600: 49 2f 4f 20 63 61 6c 6c 73 20 74 68 72 6f 75 67  I/O calls throug
9610: 68 20 74 6f 20 74 68 65 20 75 6e 64 65 72 6c 79  h to the underly
9620: 69 6e 67 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 57  ing VFS..**.** W
9630: 68 65 6e 65 76 65 72 20 74 68 65 20 78 53 68 6d  henever the xShm
9640: 4d 61 70 20 6d 65 74 68 6f 64 20 6f 66 20 74 68  Map method of th
9650: 65 20 56 46 53 0a 2a 2a 20 69 73 20 69 6e 76 6f  e VFS.** is invo
9660: 6b 65 64 2c 20 74 68 65 20 53 43 52 49 50 54 20  ked, the SCRIPT 
9670: 69 73 20 65 78 65 63 75 74 65 64 20 61 73 20 66  is executed as f
9680: 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20  ollows:.**.**   
9690: 53 43 52 49 50 54 20 78 53 68 6d 4d 61 70 20 20  SCRIPT xShmMap  
96a0: 20 20 46 49 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a    FILENAME ID.**
96b0: 0a 2a 2a 20 54 68 65 20 76 61 6c 75 65 20 72 65  .** The value re
96c0: 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 69 6e  turned by the in
96d0: 76 6f 63 61 74 69 6f 6e 20 6f 66 20 53 43 52 49  vocation of SCRI
96e0: 50 54 20 61 62 6f 76 65 20 69 73 20 69 6e 74 65  PT above is inte
96f0: 72 70 72 65 74 65 64 20 61 73 0a 2a 2a 20 61 6e  rpreted as.** an
9700: 20 53 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f   SQLite error co
9710: 64 65 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20  de and returned 
9720: 74 6f 20 53 51 4c 69 74 65 2e 20 45 69 74 68 65  to SQLite. Eithe
9730: 72 20 61 20 73 79 6d 62 6f 6c 69 63 20 0a 2a 2a  r a symbolic .**
9740: 20 22 53 51 4c 49 54 45 5f 4f 4b 22 20 6f 72 20   "SQLITE_OK" or 
9750: 6e 75 6d 65 72 69 63 20 22 30 22 20 76 61 6c 75  numeric "0" valu
9760: 65 20 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65  e may be returne
9770: 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e  d..**.** The con
9780: 74 65 6e 74 73 20 6f 66 20 74 68 65 20 73 68 61  tents of the sha
9790: 72 65 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65  red-memory buffe
97a0: 72 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74  r associated wit
97b0: 68 20 61 20 67 69 76 65 6e 20 66 69 6c 65 0a 2a  h a given file.*
97c0: 2a 20 6d 61 79 20 62 65 20 72 65 61 64 20 61 6e  * may be read an
97d0: 64 20 73 65 74 20 75 73 69 6e 67 20 74 68 65 20  d set using the 
97e0: 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e  following comman
97f0: 64 3a 0a 2a 2a 0a 2a 2a 20 20 20 56 46 53 4e 41  d:.**.**   VFSNA
9800: 4d 45 20 73 68 6d 20 46 49 4c 45 4e 41 4d 45 20  ME shm FILENAME 
9810: 3f 4e 45 57 56 41 4c 55 45 3f 0a 2a 2a 0a 2a 2a  ?NEWVALUE?.**.**
9820: 20 57 68 65 6e 20 74 68 65 20 78 53 68 6d 4c 6f   When the xShmLo
9830: 63 6b 20 6d 65 74 68 6f 64 20 69 73 20 69 6e 76  ck method is inv
9840: 6f 6b 65 64 20 62 79 20 53 51 4c 69 74 65 2c 20  oked by SQLite, 
9850: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 63  the following sc
9860: 72 69 70 74 20 69 73 0a 2a 2a 20 72 75 6e 3a 0a  ript is.** run:.
9870: 2a 2a 0a 2a 2a 20 20 20 53 43 52 49 50 54 20 78  **.**   SCRIPT x
9880: 53 68 6d 4c 6f 63 6b 20 20 20 20 46 49 4c 45 4e  ShmLock    FILEN
9890: 41 4d 45 20 49 44 20 4c 4f 43 4b 0a 2a 2a 0a 2a  AME ID LOCK.**.*
98a0: 2a 20 77 68 65 72 65 20 4c 4f 43 4b 20 69 73 20  * where LOCK is 
98b0: 6f 66 20 74 68 65 20 66 6f 72 6d 20 22 4f 46 46  of the form "OFF
98c0: 53 45 54 20 4e 42 59 54 45 20 6c 6f 63 6b 2f 75  SET NBYTE lock/u
98d0: 6e 6c 6f 63 6b 20 73 68 61 72 65 64 2f 65 78 63  nlock shared/exc
98e0: 6c 75 73 69 76 65 22 0a 2a 2f 0a 73 74 61 74 69  lusive".*/.stati
98f0: 63 20 69 6e 74 20 74 65 73 74 76 66 73 5f 63 6d  c int testvfs_cm
9900: 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20  d(.  ClientData 
9910: 63 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  cd,.  Tcl_Interp
9920: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
9930: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
9940: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
9950: 0a 20 20 73 74 61 74 69 63 20 73 71 6c 69 74 65  .  static sqlite
9960: 33 5f 76 66 73 20 74 76 66 73 5f 76 66 73 20 3d  3_vfs tvfs_vfs =
9970: 20 7b 0a 20 20 20 20 33 2c 20 20 20 20 20 20 20   {.    3,       
9980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9990: 20 20 20 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e       /* iVersion
99a0: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
99b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
99c0: 20 20 20 20 20 20 2f 2a 20 73 7a 4f 73 46 69 6c        /* szOsFil
99d0: 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  e */.    0,     
99e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
99f0: 20 20 20 20 20 20 20 2f 2a 20 6d 78 50 61 74 68         /* mxPath
9a00: 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20  name */.    0,  
9a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a20: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 4e 65            /* pNe
9a30: 78 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  xt */.    0,    
9a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a50: 20 20 20 20 20 20 20 20 2f 2a 20 7a 4e 61 6d 65          /* zName
9a60: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
9a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a80: 20 20 20 20 20 20 2f 2a 20 70 41 70 70 44 61 74        /* pAppDat
9a90: 61 20 2a 2f 0a 20 20 20 20 74 76 66 73 4f 70 65  a */.    tvfsOpe
9aa0: 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n,              
9ab0: 20 20 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20         /* xOpen 
9ac0: 2a 2f 0a 20 20 20 20 74 76 66 73 44 65 6c 65 74  */.    tvfsDelet
9ad0: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e,              
9ae0: 20 20 20 20 20 2f 2a 20 78 44 65 6c 65 74 65 20       /* xDelete 
9af0: 2a 2f 0a 20 20 20 20 74 76 66 73 41 63 63 65 73  */.    tvfsAcces
9b00: 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s,              
9b10: 20 20 20 20 20 2f 2a 20 78 41 63 63 65 73 73 20       /* xAccess 
9b20: 2a 2f 0a 20 20 20 20 74 76 66 73 46 75 6c 6c 50  */.    tvfsFullP
9b30: 61 74 68 6e 61 6d 65 2c 20 20 20 20 20 20 20 20  athname,        
9b40: 20 20 20 20 20 2f 2a 20 78 46 75 6c 6c 50 61 74       /* xFullPat
9b50: 68 6e 61 6d 65 20 2a 2f 0a 23 69 66 6e 64 65 66  hname */.#ifndef
9b60: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41   SQLITE_OMIT_LOA
9b70: 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 20 20 20 20  D_EXTENSION.    
9b80: 74 76 66 73 44 6c 4f 70 65 6e 2c 20 20 20 20 20  tvfsDlOpen,     
9b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
9ba0: 20 78 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20 20   xDlOpen */.    
9bb0: 74 76 66 73 44 6c 45 72 72 6f 72 2c 20 20 20 20  tvfsDlError,    
9bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
9bd0: 20 78 44 6c 45 72 72 6f 72 20 2a 2f 0a 20 20 20   xDlError */.   
9be0: 20 74 76 66 73 44 6c 53 79 6d 2c 20 20 20 20 20   tvfsDlSym,     
9bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
9c00: 2a 20 78 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20  * xDlSym */.    
9c10: 74 76 66 73 44 6c 43 6c 6f 73 65 2c 20 20 20 20  tvfsDlClose,    
9c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
9c30: 20 78 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65 6c   xDlClose */.#el
9c40: 73 65 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  se.    0,       
9c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9c60: 20 20 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20       /* xDlOpen 
9c70: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
9c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9c90: 20 20 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72       /* xDlError
9ca0: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
9cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9cc0: 20 20 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20        /* xDlSym 
9cd0: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
9ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9cf0: 20 20 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65       /* xDlClose
9d00: 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51   */.#endif /* SQ
9d10: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45  LITE_OMIT_LOAD_E
9d20: 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 20 20 20 20  XTENSION */.    
9d30: 74 76 66 73 52 61 6e 64 6f 6d 6e 65 73 73 2c 20  tvfsRandomness, 
9d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
9d50: 20 78 52 61 6e 64 6f 6d 6e 65 73 73 20 2a 2f 0a   xRandomness */.
9d60: 20 20 20 20 74 76 66 73 53 6c 65 65 70 2c 20 20      tvfsSleep,  
9d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9d80: 20 20 2f 2a 20 78 53 6c 65 65 70 20 2a 2f 0a 20    /* xSleep */. 
9d90: 20 20 20 74 76 66 73 43 75 72 72 65 6e 74 54 69     tvfsCurrentTi
9da0: 6d 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  me,             
9db0: 20 2f 2a 20 78 43 75 72 72 65 6e 74 54 69 6d 65   /* xCurrentTime
9dc0: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
9dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9de0: 20 20 20 20 20 20 2f 2a 20 78 47 65 74 4c 61 73        /* xGetLas
9df0: 74 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c  tError */.    0,
9e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9e10: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
9e20: 43 75 72 72 65 6e 74 54 69 6d 65 49 6e 74 36 34  CurrentTimeInt64
9e30: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
9e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9e50: 20 20 20 20 20 20 2f 2a 20 78 53 65 74 53 79 73        /* xSetSys
9e60: 74 65 6d 43 61 6c 6c 20 2a 2f 0a 20 20 20 20 30  temCall */.    0
9e70: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
9e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
9e90: 78 47 65 74 53 79 73 74 65 6d 43 61 6c 6c 20 2a  xGetSystemCall *
9ea0: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
9eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9ec0: 20 20 20 20 2f 2a 20 78 4e 65 78 74 53 79 73 74      /* xNextSyst
9ed0: 65 6d 43 61 6c 6c 20 2a 2f 0a 20 20 7d 3b 0a 0a  emCall */.  };..
9ee0: 20 20 54 65 73 74 76 66 73 20 2a 70 3b 20 20 20    Testvfs *p;   
9ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9f00: 20 20 2f 2a 20 4e 65 77 20 6f 62 6a 65 63 74 20    /* New object 
9f10: 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  */.  sqlite3_vfs
9f20: 20 2a 70 56 66 73 3b 20 20 20 20 20 20 20 20 20   *pVfs;         
9f30: 20 20 20 20 20 2f 2a 20 4e 65 77 20 56 46 53 20       /* New VFS 
9f40: 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 56 66 73 3b  */.  char *zVfs;
9f50: 0a 20 20 69 6e 74 20 6e 42 79 74 65 3b 20 20 20  .  int nByte;   
9f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9f70: 20 20 20 2f 2a 20 42 79 74 65 73 20 6f 66 20 73     /* Bytes of s
9f80: 70 61 63 65 20 74 6f 20 61 6c 6c 6f 63 61 74 65  pace to allocate
9f90: 20 61 74 20 70 20 2a 2f 0a 0a 20 20 69 6e 74 20   at p */..  int 
9fa0: 69 3b 0a 20 20 69 6e 74 20 69 73 4e 6f 73 68 6d  i;.  int isNoshm
9fb0: 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20   = 0;           
9fc0: 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20       /* True if 
9fd0: 2d 6e 6f 73 68 6d 20 69 73 20 70 61 73 73 65 64  -noshm is passed
9fe0: 20 2a 2f 0a 20 20 69 6e 74 20 69 73 46 75 6c 6c   */.  int isFull
9ff0: 73 68 6d 20 3d 20 30 3b 20 20 20 20 20 20 20 20  shm = 0;        
a000: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66        /* True if
a010: 20 2d 66 75 6c 6c 73 68 6d 20 69 73 20 70 61 73   -fullshm is pas
a020: 73 65 64 20 2a 2f 0a 20 20 69 6e 74 20 69 73 44  sed */.  int isD
a030: 65 66 61 75 6c 74 20 3d 20 30 3b 20 20 20 20 20  efault = 0;     
a040: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65           /* True
a050: 20 69 66 20 2d 64 65 66 61 75 6c 74 20 69 73 20   if -default is 
a060: 70 61 73 73 65 64 20 2a 2f 0a 20 20 69 6e 74 20  passed */.  int 
a070: 73 7a 4f 73 46 69 6c 65 20 3d 20 30 3b 20 20 20  szOsFile = 0;   
a080: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 56              /* V
a090: 61 6c 75 65 20 70 61 73 73 65 64 20 74 6f 20 2d  alue passed to -
a0a0: 73 7a 6f 73 66 69 6c 65 20 2a 2f 0a 20 20 69 6e  szosfile */.  in
a0b0: 74 20 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20 2d  t mxPathname = -
a0c0: 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  1;            /*
a0d0: 20 56 61 6c 75 65 20 70 61 73 73 65 64 20 74 6f   Value passed to
a0e0: 20 2d 6d 78 70 61 74 68 6e 61 6d 65 20 2a 2f 0a   -mxpathname */.
a0f0: 20 20 69 6e 74 20 69 56 65 72 73 69 6f 6e 20 3d    int iVersion =
a100: 20 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   3;             
a110: 20 20 2f 2a 20 56 61 6c 75 65 20 70 61 73 73 65    /* Value passe
a120: 64 20 74 6f 20 2d 69 76 65 72 73 69 6f 6e 20 2a  d to -iversion *
a130: 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63 3c 32 20  /..  if( objc<2 
a140: 7c 7c 20 30 21 3d 28 6f 62 6a 63 25 32 29 20 29  || 0!=(objc%2) )
a150: 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a   goto bad_args;.
a160: 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c 6f 62 6a    for(i=2; i<obj
a170: 63 3b 20 69 20 2b 3d 20 32 29 7b 0a 20 20 20 20  c; i += 2){.    
a180: 69 6e 74 20 6e 53 77 69 74 63 68 3b 0a 20 20 20  int nSwitch;.   
a190: 20 63 68 61 72 20 2a 7a 53 77 69 74 63 68 3b 0a   char *zSwitch;.
a1a0: 20 20 20 20 7a 53 77 69 74 63 68 20 3d 20 54 63      zSwitch = Tc
a1b0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f  l_GetStringFromO
a1c0: 62 6a 28 6f 62 6a 76 5b 69 5d 2c 20 26 6e 53 77  bj(objv[i], &nSw
a1d0: 69 74 63 68 29 3b 20 0a 0a 20 20 20 20 69 66 28  itch); ..    if(
a1e0: 20 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d   nSwitch>2 && 0=
a1f0: 3d 73 74 72 6e 63 6d 70 28 22 2d 6e 6f 73 68 6d  =strncmp("-noshm
a200: 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69  ", zSwitch, nSwi
a210: 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66  tch) ){.      if
a220: 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e  ( Tcl_GetBoolean
a230: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20  FromObj(interp, 
a240: 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69 73 4e 6f  objv[i+1], &isNo
a250: 73 68 6d 29 20 29 7b 0a 20 20 20 20 20 20 20 20  shm) ){.        
a260: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a270: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
a280: 69 66 28 20 69 73 4e 6f 73 68 6d 20 29 20 69 73  if( isNoshm ) is
a290: 46 75 6c 6c 73 68 6d 20 3d 20 30 3b 0a 20 20 20  Fullshm = 0;.   
a2a0: 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20   }.    else if( 
a2b0: 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d  nSwitch>2 && 0==
a2c0: 73 74 72 6e 63 6d 70 28 22 2d 64 65 66 61 75 6c  strncmp("-defaul
a2d0: 74 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77  t", zSwitch, nSw
a2e0: 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69  itch) ){.      i
a2f0: 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61  f( Tcl_GetBoolea
a300: 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  nFromObj(interp,
a310: 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69 73 44   objv[i+1], &isD
a320: 65 66 61 75 6c 74 29 20 29 7b 0a 20 20 20 20 20  efault) ){.     
a330: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
a340: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
a350: 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20   }.    else if( 
a360: 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d  nSwitch>2 && 0==
a370: 73 74 72 6e 63 6d 70 28 22 2d 73 7a 6f 73 66 69  strncmp("-szosfi
a380: 6c 65 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53  le", zSwitch, nS
a390: 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20  witch) ){.      
a3a0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72  if( Tcl_GetIntFr
a3b0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
a3c0: 6a 76 5b 69 2b 31 5d 2c 20 26 73 7a 4f 73 46 69  jv[i+1], &szOsFi
a3d0: 6c 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72  le) ){.        r
a3e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
a3f0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
a400: 20 20 20 65 6c 73 65 20 69 66 28 20 6e 53 77 69     else if( nSwi
a410: 74 63 68 3e 32 20 26 26 20 30 3d 3d 73 74 72 6e  tch>2 && 0==strn
a420: 63 6d 70 28 22 2d 6d 78 70 61 74 68 6e 61 6d 65  cmp("-mxpathname
a430: 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69  ", zSwitch, nSwi
a440: 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66  tch) ){.      if
a450: 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d  ( Tcl_GetIntFrom
a460: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  Obj(interp, objv
a470: 5b 69 2b 31 5d 2c 20 26 6d 78 50 61 74 68 6e 61  [i+1], &mxPathna
a480: 6d 65 29 20 29 7b 0a 20 20 20 20 20 20 20 20 72  me) ){.        r
a490: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
a4a0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20  .      }.    }. 
a4b0: 20 20 20 65 6c 73 65 20 69 66 28 20 6e 53 77 69     else if( nSwi
a4c0: 74 63 68 3e 32 20 26 26 20 30 3d 3d 73 74 72 6e  tch>2 && 0==strn
a4d0: 63 6d 70 28 22 2d 69 76 65 72 73 69 6f 6e 22 2c  cmp("-iversion",
a4e0: 20 7a 53 77 69 74 63 68 2c 20 6e 53 77 69 74 63   zSwitch, nSwitc
a4f0: 68 29 20 29 7b 0a 20 20 20 20 20 20 69 66 28 20  h) ){.      if( 
a500: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62  Tcl_GetIntFromOb
a510: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69  j(interp, objv[i
a520: 2b 31 5d 2c 20 26 69 56 65 72 73 69 6f 6e 29 20  +1], &iVersion) 
a530: 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  ){.        retur
a540: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
a550: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 65     }.    }.    e
a560: 6c 73 65 20 69 66 28 20 6e 53 77 69 74 63 68 3e  lse if( nSwitch>
a570: 32 20 26 26 20 30 3d 3d 73 74 72 6e 63 6d 70 28  2 && 0==strncmp(
a580: 22 2d 66 75 6c 6c 73 68 6d 22 2c 20 7a 53 77 69  "-fullshm", zSwi
a590: 74 63 68 2c 20 6e 53 77 69 74 63 68 29 20 29 7b  tch, nSwitch) ){
a5a0: 0a 20 20 20 20 20 20 69 66 28 20 54 63 6c 5f 47  .      if( Tcl_G
a5b0: 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a  etBooleanFromObj
a5c0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 2b  (interp, objv[i+
a5d0: 31 5d 2c 20 26 69 73 46 75 6c 6c 73 68 6d 29 20  1], &isFullshm) 
a5e0: 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  ){.        retur
a5f0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
a600: 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 69     }.      if( i
a610: 73 46 75 6c 6c 73 68 6d 20 29 20 69 73 4e 6f 73  sFullshm ) isNos
a620: 68 6d 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20  hm = 0;.    }.  
a630: 20 20 65 6c 73 65 7b 0a 20 20 20 20 20 20 67 6f    else{.      go
a640: 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a 20 20 20  to bad_args;.   
a650: 20 7d 0a 20 20 7d 0a 0a 20 20 69 66 28 20 73 7a   }.  }..  if( sz
a660: 4f 73 46 69 6c 65 3c 73 69 7a 65 6f 66 28 54 65  OsFile<sizeof(Te
a670: 73 74 76 66 73 46 69 6c 65 29 20 29 7b 0a 20 20  stvfsFile) ){.  
a680: 20 20 73 7a 4f 73 46 69 6c 65 20 3d 20 73 69 7a    szOsFile = siz
a690: 65 6f 66 28 54 65 73 74 76 66 73 46 69 6c 65 29  eof(TestvfsFile)
a6a0: 3b 0a 20 20 7d 0a 0a 20 20 7a 56 66 73 20 3d 20  ;.  }..  zVfs = 
a6b0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
a6c0: 6a 76 5b 31 5d 29 3b 0a 20 20 6e 42 79 74 65 20  jv[1]);.  nByte 
a6d0: 3d 20 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73  = sizeof(Testvfs
a6e0: 29 20 2b 20 28 69 6e 74 29 73 74 72 6c 65 6e 28  ) + (int)strlen(
a6f0: 7a 56 66 73 29 2b 31 3b 0a 20 20 70 20 3d 20 28  zVfs)+1;.  p = (
a700: 54 65 73 74 76 66 73 20 2a 29 63 6b 61 6c 6c 6f  Testvfs *)ckallo
a710: 63 28 6e 42 79 74 65 29 3b 0a 20 20 6d 65 6d 73  c(nByte);.  mems
a720: 65 74 28 70 2c 20 30 2c 20 6e 42 79 74 65 29 3b  et(p, 0, nByte);
a730: 0a 20 20 70 2d 3e 69 44 65 76 63 68 61 72 20 3d  .  p->iDevchar =
a740: 20 2d 31 3b 0a 20 20 70 2d 3e 69 53 65 63 74 6f   -1;.  p->iSecto
a750: 72 73 69 7a 65 20 3d 20 2d 31 3b 0a 0a 20 20 2f  rsize = -1;..  /
a760: 2a 20 43 72 65 61 74 65 20 74 68 65 20 6e 65 77  * Create the new
a770: 20 6f 62 6a 65 63 74 20 63 6f 6d 6d 61 6e 64 20   object command 
a780: 62 65 66 6f 72 65 20 71 75 65 72 79 69 6e 67 20  before querying 
a790: 53 51 4c 69 74 65 20 66 6f 72 20 61 20 64 65 66  SQLite for a def
a7a0: 61 75 6c 74 20 56 46 53 0a 20 20 2a 2a 20 74 6f  ault VFS.  ** to
a7b0: 20 75 73 65 20 66 6f 72 20 27 72 65 61 6c 27 20   use for 'real' 
a7c0: 49 4f 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20 54  IO operations. T
a7d0: 68 69 73 20 69 73 20 62 65 63 61 75 73 65 20 63  his is because c
a7e0: 72 65 61 74 69 6e 67 20 74 68 65 20 6e 65 77 20  reating the new 
a7f0: 56 46 53 0a 20 20 2a 2a 20 6d 61 79 20 64 65 6c  VFS.  ** may del
a800: 65 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20  ete an existing 
a810: 5b 74 65 73 74 76 66 73 5d 20 56 46 53 20 6f 66  [testvfs] VFS of
a820: 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 2e 20   the same name. 
a830: 49 66 20 73 75 63 68 20 61 20 56 46 53 0a 20 20  If such a VFS.  
a840: 2a 2a 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20  ** is currently 
a850: 74 68 65 20 64 65 66 61 75 6c 74 2c 20 74 68 65  the default, the
a860: 20 6e 65 77 20 5b 74 65 73 74 76 66 73 5d 20 6d   new [testvfs] m
a870: 61 79 20 65 6e 64 20 75 70 20 63 61 6c 6c 69 6e  ay end up callin
a880: 67 20 74 68 65 20 0a 20 20 2a 2a 20 6d 65 74 68  g the .  ** meth
a890: 6f 64 73 20 6f 66 20 61 20 64 65 6c 65 74 65 64  ods of a deleted
a8a0: 20 6f 62 6a 65 63 74 2e 0a 20 20 2a 2f 0a 20 20   object..  */.  
a8b0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
a8c0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 7a 56 66  mand(interp, zVf
a8d0: 73 2c 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 63  s, testvfs_obj_c
a8e0: 6d 64 2c 20 70 2c 20 74 65 73 74 76 66 73 5f 6f  md, p, testvfs_o
a8f0: 62 6a 5f 64 65 6c 29 3b 0a 20 20 70 2d 3e 70 50  bj_del);.  p->pP
a900: 61 72 65 6e 74 20 3d 20 73 71 6c 69 74 65 33 5f  arent = sqlite3_
a910: 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a 20 20 70  vfs_find(0);.  p
a920: 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72  ->interp = inter
a930: 70 3b 0a 0a 20 20 70 2d 3e 7a 4e 61 6d 65 20 3d  p;..  p->zName =
a940: 20 28 63 68 61 72 20 2a 29 26 70 5b 31 5d 3b 0a   (char *)&p[1];.
a950: 20 20 6d 65 6d 63 70 79 28 70 2d 3e 7a 4e 61 6d    memcpy(p->zNam
a960: 65 2c 20 7a 56 66 73 2c 20 73 74 72 6c 65 6e 28  e, zVfs, strlen(
a970: 7a 56 66 73 29 2b 31 29 3b 0a 0a 20 20 70 56 66  zVfs)+1);..  pVf
a980: 73 20 3d 20 28 73 71 6c 69 74 65 33 5f 76 66 73  s = (sqlite3_vfs
a990: 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f   *)ckalloc(sizeo
a9a0: 66 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b  f(sqlite3_vfs));
a9b0: 0a 20 20 6d 65 6d 63 70 79 28 70 56 66 73 2c 20  .  memcpy(pVfs, 
a9c0: 26 74 76 66 73 5f 76 66 73 2c 20 73 69 7a 65 6f  &tvfs_vfs, sizeo
a9d0: 66 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b  f(sqlite3_vfs));
a9e0: 0a 20 20 70 56 66 73 2d 3e 70 41 70 70 44 61 74  .  pVfs->pAppDat
a9f0: 61 20 3d 20 28 76 6f 69 64 20 2a 29 70 3b 0a 20  a = (void *)p;. 
aa00: 20 70 56 66 73 2d 3e 69 56 65 72 73 69 6f 6e 20   pVfs->iVersion 
aa10: 3d 20 69 56 65 72 73 69 6f 6e 3b 0a 20 20 70 56  = iVersion;.  pV
aa20: 66 73 2d 3e 7a 4e 61 6d 65 20 3d 20 70 2d 3e 7a  fs->zName = p->z
aa30: 4e 61 6d 65 3b 0a 20 20 70 56 66 73 2d 3e 6d 78  Name;.  pVfs->mx
aa40: 50 61 74 68 6e 61 6d 65 20 3d 20 70 2d 3e 70 50  Pathname = p->pP
aa50: 61 72 65 6e 74 2d 3e 6d 78 50 61 74 68 6e 61 6d  arent->mxPathnam
aa60: 65 3b 0a 20 20 69 66 28 20 6d 78 50 61 74 68 6e  e;.  if( mxPathn
aa70: 61 6d 65 3e 3d 30 20 26 26 20 6d 78 50 61 74 68  ame>=0 && mxPath
aa80: 6e 61 6d 65 3c 70 56 66 73 2d 3e 6d 78 50 61 74  name<pVfs->mxPat
aa90: 68 6e 61 6d 65 20 29 7b 0a 20 20 20 20 70 56 66  hname ){.    pVf
aaa0: 73 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20  s->mxPathname = 
aab0: 6d 78 50 61 74 68 6e 61 6d 65 3b 0a 20 20 7d 0a  mxPathname;.  }.
aac0: 20 20 70 56 66 73 2d 3e 73 7a 4f 73 46 69 6c 65    pVfs->szOsFile
aad0: 20 3d 20 73 7a 4f 73 46 69 6c 65 3b 0a 20 20 70   = szOsFile;.  p
aae0: 2d 3e 70 56 66 73 20 3d 20 70 56 66 73 3b 0a 20  ->pVfs = pVfs;. 
aaf0: 20 70 2d 3e 69 73 4e 6f 73 68 6d 20 3d 20 69 73   p->isNoshm = is
ab00: 4e 6f 73 68 6d 3b 0a 20 20 70 2d 3e 69 73 46 75  Noshm;.  p->isFu
ab10: 6c 6c 73 68 6d 20 3d 20 69 73 46 75 6c 6c 73 68  llshm = isFullsh
ab20: 6d 3b 0a 20 20 70 2d 3e 6d 61 73 6b 20 3d 20 54  m;.  p->mask = T
ab30: 45 53 54 56 46 53 5f 41 4c 4c 5f 4d 41 53 4b 3b  ESTVFS_ALL_MASK;
ab40: 0a 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f  ..  sqlite3_vfs_
ab50: 72 65 67 69 73 74 65 72 28 70 56 66 73 2c 20 69  register(pVfs, i
ab60: 73 44 65 66 61 75 6c 74 29 3b 0a 0a 20 20 72 65  sDefault);..  re
ab70: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 20 62  turn TCL_OK;.. b
ab80: 61 64 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f 57  ad_args:.  Tcl_W
ab90: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
aba0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 56 46  rp, 1, objv, "VF
abb0: 53 4e 41 4d 45 20 3f 2d 6e 6f 73 68 6d 20 42 4f  SNAME ?-noshm BO
abc0: 4f 4c 3f 20 3f 2d 64 65 66 61 75 6c 74 20 42 4f  OL? ?-default BO
abd0: 4f 4c 3f 20 3f 2d 6d 78 70 61 74 68 6e 61 6d 65  OL? ?-mxpathname
abe0: 20 49 4e 54 3f 20 3f 2d 73 7a 6f 73 66 69 6c 65   INT? ?-szosfile
abf0: 20 49 4e 54 3f 20 3f 2d 69 76 65 72 73 69 6f 6e   INT? ?-iversion
ac00: 20 49 4e 54 3f 22 29 3b 0a 20 20 72 65 74 75 72   INT?");.  retur
ac10: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a  n TCL_ERROR;.}..
ac20: 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 76 66  int Sqlitetestvf
ac30: 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72  s_Init(Tcl_Inter
ac40: 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 54 63  p *interp){.  Tc
ac50: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
ac60: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 65 73 74  nd(interp, "test
ac70: 76 66 73 22 2c 20 74 65 73 74 76 66 73 5f 63 6d  vfs", testvfs_cm
ac80: 64 2c 20 30 2c 20 30 29 3b 0a 20 20 72 65 74 75  d, 0, 0);.  retu
ac90: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 65  rn TCL_OK;.}..#e
aca0: 6e 64 69 66 0a                                   ndif.