/ Hex Artifact Content
Login

Artifact abdf6881beac76cbc54d2586cd092b2b4ed3a217:


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 2f 0a 23 69 66 20  *****.**.*/.#if 
0180: 53 51 4c 49 54 45 5f 54 45 53 54 20 20 20 20 20  SQLITE_TEST     
0190: 20 20 20 20 20 2f 2a 20 54 68 69 73 20 66 69 6c       /* This fil
01a0: 65 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 65  e is used for te
01b0: 73 74 69 6e 67 20 6f 6e 6c 79 20 2a 2f 0a 0a 23  sting only */..#
01c0: 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 65 33  include "sqlite3
01d0: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 73 71  .h".#include "sq
01e0: 6c 69 74 65 49 6e 74 2e 68 22 0a 0a 74 79 70 65  liteInt.h"..type
01f0: 64 65 66 20 73 74 72 75 63 74 20 54 65 73 74 76  def struct Testv
0200: 66 73 20 54 65 73 74 76 66 73 3b 0a 74 79 70 65  fs Testvfs;.type
0210: 64 65 66 20 73 74 72 75 63 74 20 54 65 73 74 76  def struct Testv
0220: 66 73 53 68 6d 20 54 65 73 74 76 66 73 53 68 6d  fsShm TestvfsShm
0230: 3b 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74  ;.typedef struct
0240: 20 54 65 73 74 76 66 73 42 75 66 66 65 72 20 54   TestvfsBuffer T
0250: 65 73 74 76 66 73 42 75 66 66 65 72 3b 0a 74 79  estvfsBuffer;.ty
0260: 70 65 64 65 66 20 73 74 72 75 63 74 20 54 65 73  pedef struct Tes
0270: 74 76 66 73 46 69 6c 65 20 54 65 73 74 76 66 73  tvfsFile Testvfs
0280: 46 69 6c 65 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20  File;../*.** An 
0290: 6f 70 65 6e 20 66 69 6c 65 20 68 61 6e 64 6c 65  open file handle
02a0: 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65 73 74  ..*/.struct Test
02b0: 76 66 73 46 69 6c 65 20 7b 0a 20 20 73 71 6c 69  vfsFile {.  sqli
02c0: 74 65 33 5f 66 69 6c 65 20 62 61 73 65 3b 20 20  te3_file base;  
02d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 42              /* B
02e0: 61 73 65 20 63 6c 61 73 73 2e 20 20 4d 75 73 74  ase class.  Must
02f0: 20 62 65 20 66 69 72 73 74 20 2a 2f 0a 20 20 73   be first */.  s
0300: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
0310: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ;              /
0320: 2a 20 54 68 65 20 56 46 53 20 2a 2f 0a 20 20 63  * The VFS */.  c
0330: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
0340: 6e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20 2f  name;          /
0350: 2a 20 46 69 6c 65 6e 61 6d 65 20 61 73 20 70 61  * Filename as pa
0360: 73 73 65 64 20 74 6f 20 78 4f 70 65 6e 28 29 20  ssed to xOpen() 
0370: 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  */.  sqlite3_fil
0380: 65 20 2a 70 52 65 61 6c 3b 20 20 20 20 20 20 20  e *pReal;       
0390: 20 20 20 20 20 2f 2a 20 54 68 65 20 72 65 61 6c       /* The real
03a0: 2c 20 75 6e 64 65 72 6c 79 69 6e 67 20 66 69 6c  , underlying fil
03b0: 65 20 64 65 73 63 72 69 70 74 6f 72 20 2a 2f 0a  e descriptor */.
03c0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 68 6d 49    Tcl_Obj *pShmI
03d0: 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  d;              
03e0: 20 20 2f 2a 20 53 68 61 72 65 64 20 6d 65 6d 6f    /* Shared memo
03f0: 72 79 20 69 64 20 66 6f 72 20 54 63 6c 20 63 61  ry id for Tcl ca
0400: 6c 6c 62 61 63 6b 73 20 2a 2f 0a 0a 20 20 54 65  llbacks */..  Te
0410: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 53 68  stvfsBuffer *pSh
0420: 6d 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  m;            /*
0430: 20 53 68 61 72 65 64 20 6d 65 6d 6f 72 79 20 62   Shared memory b
0440: 75 66 66 65 72 20 2a 2f 0a 20 20 75 33 32 20 65  uffer */.  u32 e
0450: 78 63 6c 6c 6f 63 6b 3b 20 20 20 20 20 20 20 20  xcllock;        
0460: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4d 61             /* Ma
0470: 73 6b 20 6f 66 20 65 78 63 6c 75 73 69 76 65 20  sk of exclusive 
0480: 6c 6f 63 6b 73 20 2a 2f 0a 20 20 75 33 32 20 73  locks */.  u32 s
0490: 68 61 72 65 64 6c 6f 63 6b 3b 20 20 20 20 20 20  haredlock;      
04a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4d 61             /* Ma
04b0: 73 6b 20 6f 66 20 73 68 61 72 65 64 20 6c 6f 63  sk of shared loc
04c0: 6b 73 20 2a 2f 0a 20 20 54 65 73 74 76 66 73 46  ks */.  TestvfsF
04d0: 69 6c 65 20 2a 70 4e 65 78 74 3b 20 20 20 20 20  ile *pNext;     
04e0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 78 74 20          /* Next 
04f0: 68 61 6e 64 6c 65 20 6f 70 65 6e 65 64 20 6f 6e  handle opened on
0500: 20 74 68 65 20 73 61 6d 65 20 66 69 6c 65 20 2a   the same file *
0510: 2f 0a 7d 3b 0a 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20  /.};.../*.** An 
0520: 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 69 73  instance of this
0530: 20 73 74 72 75 63 74 75 72 65 20 69 73 20 61 6c   structure is al
0540: 6c 6f 63 61 74 65 64 20 66 6f 72 20 65 61 63 68  located for each
0550: 20 56 46 53 20 63 72 65 61 74 65 64 2e 20 54 68   VFS created. Th
0560: 65 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 76 66 73  e.** sqlite3_vfs
0570: 2e 70 41 70 70 44 61 74 61 20 66 69 65 6c 64 20  .pAppData field 
0580: 6f 66 20 74 68 65 20 56 46 53 20 73 74 72 75 63  of the VFS struc
0590: 74 75 72 65 20 72 65 67 69 73 74 65 72 65 64 20  ture registered 
05a0: 77 69 74 68 20 53 51 4c 69 74 65 0a 2a 2a 20 69  with SQLite.** i
05b0: 73 20 73 65 74 20 74 6f 20 70 6f 69 6e 74 20 74  s set to point t
05c0: 6f 20 69 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 20  o it..*/.struct 
05d0: 54 65 73 74 76 66 73 20 7b 0a 20 20 63 68 61 72  Testvfs {.  char
05e0: 20 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 20 20 20   *zName;        
05f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
0600: 61 6d 65 20 6f 66 20 74 68 69 73 20 56 46 53 20  ame of this VFS 
0610: 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  */.  sqlite3_vfs
0620: 20 2a 70 50 61 72 65 6e 74 3b 20 20 20 20 20 20   *pParent;      
0630: 20 20 20 20 20 2f 2a 20 54 68 65 20 56 46 53 20       /* The VFS 
0640: 74 6f 20 75 73 65 20 66 6f 72 20 66 69 6c 65 20  to use for file 
0650: 49 4f 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  IO */.  sqlite3_
0660: 76 66 73 20 2a 70 56 66 73 3b 20 20 20 20 20 20  vfs *pVfs;      
0670: 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 74          /* The t
0680: 65 73 74 76 66 73 20 72 65 67 69 73 74 65 72 65  estvfs registere
0690: 64 20 77 69 74 68 20 53 51 4c 69 74 65 20 2a 2f  d with SQLite */
06a0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
06b0: 6e 74 65 72 70 3b 20 20 20 20 20 20 20 20 20 20  nterp;          
06c0: 20 20 20 2f 2a 20 49 6e 74 65 72 70 72 65 74 65     /* Interprete
06d0: 72 20 74 6f 20 72 75 6e 20 73 63 72 69 70 74 20  r to run script 
06e0: 69 6e 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20  in */.  Tcl_Obj 
06f0: 2a 70 53 63 72 69 70 74 3b 20 20 20 20 20 20 20  *pScript;       
0700: 20 20 20 20 20 20 20 20 2f 2a 20 53 63 72 69 70          /* Scrip
0710: 74 20 74 6f 20 65 78 65 63 75 74 65 20 2a 2f 0a  t to execute */.
0720: 20 20 69 6e 74 20 6e 53 63 72 69 70 74 3b 20 20    int nScript;  
0730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0740: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65    /* Number of e
0750: 6c 65 6d 65 6e 74 73 20 69 6e 20 61 72 72 61 79  lements in array
0760: 20 61 70 53 63 72 69 70 74 20 2a 2f 0a 20 20 54   apScript */.  T
0770: 63 6c 5f 4f 62 6a 20 2a 2a 61 70 53 63 72 69 70  cl_Obj **apScrip
0780: 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  t;             /
0790: 2a 20 41 72 72 61 79 20 76 65 72 73 69 6f 6e 20  * Array version 
07a0: 6f 66 20 70 53 63 72 69 70 74 20 2a 2f 0a 20 20  of pScript */.  
07b0: 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70  TestvfsBuffer *p
07c0: 42 75 66 66 65 72 3b 20 20 20 20 20 20 20 20 20  Buffer;         
07d0: 2f 2a 20 4c 69 73 74 20 6f 66 20 73 68 61 72 65  /* List of share
07e0: 64 20 62 75 66 66 65 72 73 20 2a 2f 0a 20 20 69  d buffers */.  i
07f0: 6e 74 20 69 73 4e 6f 73 68 6d 3b 0a 0a 20 20 69  nt isNoshm;..  i
0800: 6e 74 20 6d 61 73 6b 3b 0a 20 20 69 6e 74 20 69  nt mask;.  int i
0810: 49 6f 65 72 72 43 6e 74 3b 0a 20 20 69 6e 74 20  IoerrCnt;.  int 
0820: 69 6f 65 72 72 3b 0a 20 20 69 6e 74 20 6e 49 6f  ioerr;.  int nIo
0830: 65 72 72 46 61 69 6c 3b 0a 0a 20 20 69 6e 74 20  errFail;..  int 
0840: 69 46 75 6c 6c 43 6e 74 3b 0a 20 20 69 6e 74 20  iFullCnt;.  int 
0850: 66 75 6c 6c 65 72 72 3b 0a 20 20 69 6e 74 20 6e  fullerr;.  int n
0860: 46 75 6c 6c 46 61 69 6c 3b 0a 0a 20 20 69 6e 74  FullFail;..  int
0870: 20 69 44 65 76 63 68 61 72 3b 0a 20 20 69 6e 74   iDevchar;.  int
0880: 20 69 53 65 63 74 6f 72 73 69 7a 65 3b 0a 7d 3b   iSectorsize;.};
0890: 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 54 65 73 74  ../*.** The Test
08a0: 76 66 73 2e 6d 61 73 6b 20 76 61 72 69 61 62 6c  vfs.mask variabl
08b0: 65 20 69 73 20 73 65 74 20 74 6f 20 61 20 63 6f  e is set to a co
08c0: 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 68 65  mbination of the
08d0: 20 66 6f 6c 6c 6f 77 69 6e 67 2e 0a 2a 2a 20 49   following..** I
08e0: 66 20 61 20 62 69 74 20 69 73 20 63 6c 65 61 72  f a bit is clear
08f0: 20 69 6e 20 54 65 73 74 76 66 73 2e 6d 61 73 6b   in Testvfs.mask
0900: 2c 20 74 68 65 6e 20 63 61 6c 6c 73 20 6d 61 64  , then calls mad
0910: 65 20 62 79 20 53 51 4c 69 74 65 20 74 6f 20 74  e by SQLite to t
0920: 68 65 20 0a 2a 2a 20 63 6f 72 72 65 73 70 6f 6e  he .** correspon
0930: 64 69 6e 67 20 56 46 53 20 6d 65 74 68 6f 64 20  ding VFS method 
0940: 69 73 20 69 67 6e 6f 72 65 64 20 66 6f 72 20 70  is ignored for p
0950: 75 72 70 6f 73 65 73 20 6f 66 3a 0a 2a 2a 0a 2a  urposes of:.**.*
0960: 2a 20 20 20 2b 20 53 69 6d 75 6c 61 74 69 6e 67  *   + Simulating
0970: 20 49 4f 20 65 72 72 6f 72 73 2c 20 61 6e 64 0a   IO errors, and.
0980: 2a 2a 20 20 20 2b 20 49 6e 76 6f 6b 69 6e 67 20  **   + Invoking 
0990: 74 68 65 20 54 63 6c 20 63 61 6c 6c 62 61 63 6b  the Tcl callback
09a0: 20 73 63 72 69 70 74 2e 0a 2a 2f 0a 23 64 65 66   script..*/.#def
09b0: 69 6e 65 20 54 45 53 54 56 46 53 5f 53 48 4d 4f  ine TESTVFS_SHMO
09c0: 50 45 4e 5f 4d 41 53 4b 20 20 20 20 30 78 30 30  PEN_MASK    0x00
09d0: 30 30 30 30 30 31 0a 23 64 65 66 69 6e 65 20 54  000001.#define T
09e0: 45 53 54 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d  ESTVFS_SHMLOCK_M
09f0: 41 53 4b 20 20 20 20 30 78 30 30 30 30 30 30 31  ASK    0x0000001
0a00: 30 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56 46  0.#define TESTVF
0a10: 53 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20 20 20  S_SHMMAP_MASK   
0a20: 20 20 30 78 30 30 30 30 30 30 32 30 0a 23 64 65    0x00000020.#de
0a30: 66 69 6e 65 20 54 45 53 54 56 46 53 5f 53 48 4d  fine TESTVFS_SHM
0a40: 42 41 52 52 49 45 52 5f 4d 41 53 4b 20 30 78 30  BARRIER_MASK 0x0
0a50: 30 30 30 30 30 34 30 0a 23 64 65 66 69 6e 65 20  0000040.#define 
0a60: 54 45 53 54 56 46 53 5f 53 48 4d 43 4c 4f 53 45  TESTVFS_SHMCLOSE
0a70: 5f 4d 41 53 4b 20 20 20 30 78 30 30 30 30 30 30  _MASK   0x000000
0a80: 38 30 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54  80..#define TEST
0a90: 56 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 20 20 20  VFS_OPEN_MASK   
0aa0: 20 20 20 20 30 78 30 30 30 30 30 31 30 30 0a 23      0x00000100.#
0ab0: 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 53  define TESTVFS_S
0ac0: 59 4e 43 5f 4d 41 53 4b 20 20 20 20 20 20 20 30  YNC_MASK       0
0ad0: 78 30 30 30 30 30 32 30 30 0a 23 64 65 66 69 6e  x00000200.#defin
0ae0: 65 20 54 45 53 54 56 46 53 5f 44 45 4c 45 54 45  e TESTVFS_DELETE
0af0: 5f 4d 41 53 4b 20 20 20 20 20 30 78 30 30 30 30  _MASK     0x0000
0b00: 30 34 30 30 0a 23 64 65 66 69 6e 65 20 54 45 53  0400.#define TES
0b10: 54 56 46 53 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20  TVFS_CLOSE_MASK 
0b20: 20 20 20 20 20 30 78 30 30 30 30 30 38 30 30 0a       0x00000800.
0b30: 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f  #define TESTVFS_
0b40: 57 52 49 54 45 5f 4d 41 53 4b 20 20 20 20 20 20  WRITE_MASK      
0b50: 30 78 30 30 30 30 31 30 30 30 0a 23 64 65 66 69  0x00001000.#defi
0b60: 6e 65 20 54 45 53 54 56 46 53 5f 54 52 55 4e 43  ne TESTVFS_TRUNC
0b70: 41 54 45 5f 4d 41 53 4b 20 20 20 30 78 30 30 30  ATE_MASK   0x000
0b80: 30 32 30 30 30 0a 23 64 65 66 69 6e 65 20 54 45  02000.#define TE
0b90: 53 54 56 46 53 5f 41 4c 4c 5f 4d 41 53 4b 20 20  STVFS_ALL_MASK  
0ba0: 20 20 20 20 20 20 30 78 30 30 30 30 33 46 46 46        0x00003FFF
0bb0: 0a 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54 56  ...#define TESTV
0bc0: 46 53 5f 4d 41 58 5f 50 41 47 45 53 20 32 35 36  FS_MAX_PAGES 256
0bd0: 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 68 61 72 65 64  ../*.** A shared
0be0: 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 2e 20  -memory buffer. 
0bf0: 54 68 65 72 65 20 69 73 20 6f 6e 65 20 6f 66 20  There is one of 
0c00: 74 68 65 73 65 20 6f 62 6a 65 63 74 73 20 66 6f  these objects fo
0c10: 72 20 65 61 63 68 20 73 68 61 72 65 64 0a 2a 2a  r each shared.**
0c20: 20 6d 65 6d 6f 72 79 20 72 65 67 69 6f 6e 20 6f   memory region o
0c30: 70 65 6e 65 64 20 62 79 20 63 6c 69 65 6e 74 73  pened by clients
0c40: 2e 20 49 66 20 74 77 6f 20 63 6c 69 65 6e 74 73  . If two clients
0c50: 20 6f 70 65 6e 20 74 68 65 20 73 61 6d 65 20 66   open the same f
0c60: 69 6c 65 2c 0a 2a 2a 20 74 68 65 72 65 20 61 72  ile,.** there ar
0c70: 65 20 74 77 6f 20 54 65 73 74 76 66 73 46 69 6c  e two TestvfsFil
0c80: 65 20 73 74 72 75 63 74 75 72 65 73 20 62 75 74  e structures but
0c90: 20 6f 6e 6c 79 20 6f 6e 65 20 54 65 73 74 76 66   only one Testvf
0ca0: 73 42 75 66 66 65 72 20 73 74 72 75 63 74 75 72  sBuffer structur
0cb0: 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65 73  e..*/.struct Tes
0cc0: 74 76 66 73 42 75 66 66 65 72 20 7b 0a 20 20 63  tvfsBuffer {.  c
0cd0: 68 61 72 20 2a 7a 46 69 6c 65 3b 20 20 20 20 20  har *zFile;     
0ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0cf0: 2a 20 41 73 73 6f 63 69 61 74 65 64 20 66 69 6c  * Associated fil
0d00: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e 74 20  e name */.  int 
0d10: 70 67 73 7a 3b 20 20 20 20 20 20 20 20 20 20 20  pgsz;           
0d20: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 50              /* P
0d30: 61 67 65 20 73 69 7a 65 20 2a 2f 0a 20 20 75 38  age size */.  u8
0d40: 20 2a 61 50 61 67 65 5b 54 45 53 54 56 46 53 5f   *aPage[TESTVFS_
0d50: 4d 41 58 5f 50 41 47 45 53 5d 3b 20 20 20 2f 2a  MAX_PAGES];   /*
0d60: 20 41 72 72 61 79 20 6f 66 20 63 6b 61 6c 6c 6f   Array of ckallo
0d70: 63 27 64 20 70 61 67 65 73 20 2a 2f 0a 20 20 54  c'd pages */.  T
0d80: 65 73 74 76 66 73 46 69 6c 65 20 2a 70 46 69 6c  estvfsFile *pFil
0d90: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  e;             /
0da0: 2a 20 4c 69 73 74 20 6f 66 20 6f 70 65 6e 20 68  * List of open h
0db0: 61 6e 64 6c 65 73 20 2a 2f 0a 20 20 54 65 73 74  andles */.  Test
0dc0: 76 66 73 42 75 66 66 65 72 20 2a 70 4e 65 78 74  vfsBuffer *pNext
0dd0: 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e  ;           /* N
0de0: 65 78 74 20 69 6e 20 6c 69 6e 6b 65 64 20 6c 69  ext in linked li
0df0: 73 74 20 6f 66 20 61 6c 6c 20 62 75 66 66 65 72  st of all buffer
0e00: 73 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66 69 6e  s */.};...#defin
0e10: 65 20 50 41 52 45 4e 54 56 46 53 28 78 29 20 28  e PARENTVFS(x) (
0e20: 28 28 54 65 73 74 76 66 73 20 2a 29 28 28 78 29  ((Testvfs *)((x)
0e30: 2d 3e 70 41 70 70 44 61 74 61 29 29 2d 3e 70 50  ->pAppData))->pP
0e40: 61 72 65 6e 74 29 0a 0a 23 64 65 66 69 6e 65 20  arent)..#define 
0e50: 54 45 53 54 56 46 53 5f 4d 41 58 5f 41 52 47 53  TESTVFS_MAX_ARGS
0e60: 20 31 32 0a 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74 68   12.../*.** Meth
0e70: 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20  od declarations 
0e80: 66 6f 72 20 54 65 73 74 76 66 73 46 69 6c 65 2e  for TestvfsFile.
0e90: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
0ea0: 76 66 73 43 6c 6f 73 65 28 73 71 6c 69 74 65 33  vfsClose(sqlite3
0eb0: 5f 66 69 6c 65 2a 29 3b 0a 73 74 61 74 69 63 20  _file*);.static 
0ec0: 69 6e 74 20 74 76 66 73 52 65 61 64 28 73 71 6c  int tvfsRead(sql
0ed0: 69 74 65 33 5f 66 69 6c 65 2a 2c 20 76 6f 69 64  ite3_file*, void
0ee0: 2a 2c 20 69 6e 74 20 69 41 6d 74 2c 20 73 71 6c  *, int iAmt, sql
0ef0: 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74  ite3_int64 iOfst
0f00: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
0f10: 66 73 57 72 69 74 65 28 73 71 6c 69 74 65 33 5f  fsWrite(sqlite3_
0f20: 66 69 6c 65 2a 2c 63 6f 6e 73 74 20 76 6f 69 64  file*,const void
0f30: 2a 2c 69 6e 74 20 69 41 6d 74 2c 20 73 71 6c 69  *,int iAmt, sqli
0f40: 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74 29  te3_int64 iOfst)
0f50: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
0f60: 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69 74 65  sTruncate(sqlite
0f70: 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33  3_file*, sqlite3
0f80: 5f 69 6e 74 36 34 20 73 69 7a 65 29 3b 0a 73 74  _int64 size);.st
0f90: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 79 6e  atic int tvfsSyn
0fa0: 63 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  c(sqlite3_file*,
0fb0: 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a 73 74 61   int flags);.sta
0fc0: 74 69 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65  tic int tvfsFile
0fd0: 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c  Size(sqlite3_fil
0fe0: 65 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74 36  e*, sqlite3_int6
0ff0: 34 20 2a 70 53 69 7a 65 29 3b 0a 73 74 61 74 69  4 *pSize);.stati
1000: 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28 73  c int tvfsLock(s
1010: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e  qlite3_file*, in
1020: 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  t);.static int t
1030: 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69 74 65  vfsUnlock(sqlite
1040: 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b 0a 73  3_file*, int);.s
1050: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43 68  tatic int tvfsCh
1060: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28  eckReservedLock(
1070: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69  sqlite3_file*, i
1080: 6e 74 20 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e  nt *);.static in
1090: 74 20 74 76 66 73 46 69 6c 65 43 6f 6e 74 72 6f  t tvfsFileContro
10a0: 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  l(sqlite3_file*,
10b0: 20 69 6e 74 20 6f 70 2c 20 76 6f 69 64 20 2a 70   int op, void *p
10c0: 41 72 67 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  Arg);.static int
10d0: 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65 28   tvfsSectorSize(
10e0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a  sqlite3_file*);.
10f0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44  static int tvfsD
1100: 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73  eviceCharacteris
1110: 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66 69 6c  tics(sqlite3_fil
1120: 65 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 4d 65 74 68  e*);../*.** Meth
1130: 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 20  od declarations 
1140: 66 6f 72 20 74 76 66 73 5f 76 66 73 2e 0a 2a 2f  for tvfs_vfs..*/
1150: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
1160: 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 66 73  Open(sqlite3_vfs
1170: 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2c  *, const char *,
1180: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20   sqlite3_file*, 
1190: 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b 0a 73 74  int , int *);.st
11a0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 44 65 6c  atic int tvfsDel
11b0: 65 74 65 28 73 71 6c 69 74 65 33 5f 76 66 73 2a  ete(sqlite3_vfs*
11c0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e  , const char *zN
11d0: 61 6d 65 2c 20 69 6e 74 20 73 79 6e 63 44 69 72  ame, int syncDir
11e0: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
11f0: 66 73 41 63 63 65 73 73 28 73 71 6c 69 74 65 33  fsAccess(sqlite3
1200: 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61  _vfs*, const cha
1210: 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 66 6c  r *zName, int fl
1220: 61 67 73 2c 20 69 6e 74 20 2a 29 3b 0a 73 74 61  ags, int *);.sta
1230: 74 69 63 20 69 6e 74 20 74 76 66 73 46 75 6c 6c  tic int tvfsFull
1240: 50 61 74 68 6e 61 6d 65 28 73 71 6c 69 74 65 33  Pathname(sqlite3
1250: 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61  _vfs*, const cha
1260: 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 2c 20 63  r *zName, int, c
1270: 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 23 69 66 6e  har *zOut);.#ifn
1280: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f  def SQLITE_OMIT_
1290: 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 73  LOAD_EXTENSION.s
12a0: 74 61 74 69 63 20 76 6f 69 64 20 2a 74 76 66 73  tatic void *tvfs
12b0: 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76  DlOpen(sqlite3_v
12c0: 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  fs*, const char 
12d0: 2a 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 73 74 61  *zFilename);.sta
12e0: 74 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c 45  tic void tvfsDlE
12f0: 72 72 6f 72 28 73 71 6c 69 74 65 33 5f 76 66 73  rror(sqlite3_vfs
1300: 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63 68  *, int nByte, ch
1310: 61 72 20 2a 7a 45 72 72 4d 73 67 29 3b 0a 73 74  ar *zErrMsg);.st
1320: 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76 66 73  atic void (*tvfs
1330: 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f 76 66  DlSym(sqlite3_vf
1340: 73 2a 2c 76 6f 69 64 2a 2c 20 63 6f 6e 73 74 20  s*,void*, const 
1350: 63 68 61 72 20 2a 7a 53 79 6d 62 6f 6c 29 29 28  char *zSymbol))(
1360: 76 6f 69 64 29 3b 0a 73 74 61 74 69 63 20 76 6f  void);.static vo
1370: 69 64 20 74 76 66 73 44 6c 43 6c 6f 73 65 28 73  id tvfsDlClose(s
1380: 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 76 6f 69  qlite3_vfs*, voi
1390: 64 2a 29 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 53  d*);.#endif /* S
13a0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f  QLITE_OMIT_LOAD_
13b0: 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 73 74 61  EXTENSION */.sta
13c0: 74 69 63 20 69 6e 74 20 74 76 66 73 52 61 6e 64  tic int tvfsRand
13d0: 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65 33 5f 76  omness(sqlite3_v
13e0: 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20  fs*, int nByte, 
13f0: 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 73 74 61  char *zOut);.sta
1400: 74 69 63 20 69 6e 74 20 74 76 66 73 53 6c 65 65  tic int tvfsSlee
1410: 70 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20  p(sqlite3_vfs*, 
1420: 69 6e 74 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73  int microseconds
1430: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
1440: 66 73 43 75 72 72 65 6e 74 54 69 6d 65 28 73 71  fsCurrentTime(sq
1450: 6c 69 74 65 33 5f 76 66 73 2a 2c 20 64 6f 75 62  lite3_vfs*, doub
1460: 6c 65 2a 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e  le*);..static in
1470: 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 73 71  t tvfsShmOpen(sq
1480: 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a 73 74  lite3_file*);.st
1490: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d  atic int tvfsShm
14a0: 4c 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c  Lock(sqlite3_fil
14b0: 65 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 2c 20 69  e*, int , int, i
14c0: 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  nt);.static int 
14d0: 74 76 66 73 53 68 6d 4d 61 70 28 73 71 6c 69 74  tvfsShmMap(sqlit
14e0: 65 33 5f 66 69 6c 65 2a 2c 69 6e 74 2c 69 6e 74  e3_file*,int,int
14f0: 2c 69 6e 74 2c 20 76 6f 69 64 20 76 6f 6c 61 74  ,int, void volat
1500: 69 6c 65 20 2a 2a 29 3b 0a 73 74 61 74 69 63 20  ile **);.static 
1510: 76 6f 69 64 20 74 76 66 73 53 68 6d 42 61 72 72  void tvfsShmBarr
1520: 69 65 72 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ier(sqlite3_file
1530: 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  *);.static int t
1540: 76 66 73 53 68 6d 43 6c 6f 73 65 28 73 71 6c 69  vfsShmClose(sqli
1550: 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b  te3_file*, int);
1560: 0a 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65 33  ..static sqlite3
1570: 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 74 76 66 73  _io_methods tvfs
1580: 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 3d 20 7b 0a  _io_methods = {.
1590: 20 20 32 2c 20 20 20 20 20 20 20 20 20 20 20 20    2,            
15a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15b0: 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a 20  /* iVersion */. 
15c0: 20 74 76 66 73 43 6c 6f 73 65 2c 20 20 20 20 20   tvfsClose,     
15d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15e0: 20 2f 2a 20 78 43 6c 6f 73 65 20 2a 2f 0a 20 20   /* xClose */.  
15f0: 74 76 66 73 52 65 61 64 2c 20 20 20 20 20 20 20  tvfsRead,       
1600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1610: 2f 2a 20 78 52 65 61 64 20 2a 2f 0a 20 20 74 76  /* xRead */.  tv
1620: 66 73 57 72 69 74 65 2c 20 20 20 20 20 20 20 20  fsWrite,        
1630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1640: 20 78 57 72 69 74 65 20 2a 2f 0a 20 20 74 76 66   xWrite */.  tvf
1650: 73 54 72 75 6e 63 61 74 65 2c 20 20 20 20 20 20  sTruncate,      
1660: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
1670: 78 54 72 75 6e 63 61 74 65 20 2a 2f 0a 20 20 74  xTruncate */.  t
1680: 76 66 73 53 79 6e 63 2c 20 20 20 20 20 20 20 20  vfsSync,        
1690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
16a0: 2a 20 78 53 79 6e 63 20 2a 2f 0a 20 20 74 76 66  * xSync */.  tvf
16b0: 73 46 69 6c 65 53 69 7a 65 2c 20 20 20 20 20 20  sFileSize,      
16c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
16d0: 78 46 69 6c 65 53 69 7a 65 20 2a 2f 0a 20 20 74  xFileSize */.  t
16e0: 76 66 73 4c 6f 63 6b 2c 20 20 20 20 20 20 20 20  vfsLock,        
16f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1700: 2a 20 78 4c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66  * xLock */.  tvf
1710: 73 55 6e 6c 6f 63 6b 2c 20 20 20 20 20 20 20 20  sUnlock,        
1720: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
1730: 78 55 6e 6c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66  xUnlock */.  tvf
1740: 73 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f  sCheckReservedLo
1750: 63 6b 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20  ck,          /* 
1760: 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f  xCheckReservedLo
1770: 63 6b 20 2a 2f 0a 20 20 74 76 66 73 46 69 6c 65  ck */.  tvfsFile
1780: 43 6f 6e 74 72 6f 6c 2c 20 20 20 20 20 20 20 20  Control,        
1790: 20 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6c 65          /* xFile
17a0: 43 6f 6e 74 72 6f 6c 20 2a 2f 0a 20 20 74 76 66  Control */.  tvf
17b0: 73 53 65 63 74 6f 72 53 69 7a 65 2c 20 20 20 20  sSectorSize,    
17c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
17d0: 78 53 65 63 74 6f 72 53 69 7a 65 20 2a 2f 0a 20  xSectorSize */. 
17e0: 20 74 76 66 73 44 65 76 69 63 65 43 68 61 72 61   tvfsDeviceChara
17f0: 63 74 65 72 69 73 74 69 63 73 2c 20 20 20 20 20  cteristics,     
1800: 20 2f 2a 20 78 44 65 76 69 63 65 43 68 61 72 61   /* xDeviceChara
1810: 63 74 65 72 69 73 74 69 63 73 20 2a 2f 0a 20 20  cteristics */.  
1820: 74 76 66 73 53 68 6d 4f 70 65 6e 2c 20 20 20 20  tvfsShmOpen,    
1830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1840: 2f 2a 20 78 53 68 6d 4f 70 65 6e 20 2a 2f 0a 20  /* xShmOpen */. 
1850: 20 74 76 66 73 53 68 6d 4c 6f 63 6b 2c 20 20 20   tvfsShmLock,   
1860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1870: 20 2f 2a 20 78 53 68 6d 4c 6f 63 6b 20 2a 2f 0a   /* xShmLock */.
1880: 20 20 74 76 66 73 53 68 6d 4d 61 70 2c 20 20 20    tvfsShmMap,   
1890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
18a0: 20 20 2f 2a 20 78 53 68 6d 4d 61 70 20 2a 2f 0a    /* xShmMap */.
18b0: 20 20 74 76 66 73 53 68 6d 42 61 72 72 69 65 72    tvfsShmBarrier
18c0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
18d0: 20 20 2f 2a 20 78 53 68 6d 42 61 72 72 69 65 72    /* xShmBarrier
18e0: 20 2a 2f 0a 20 20 74 76 66 73 53 68 6d 43 6c 6f   */.  tvfsShmClo
18f0: 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20  se              
1900: 20 20 20 20 20 20 2f 2a 20 78 53 68 6d 43 6c 6f        /* xShmClo
1910: 73 65 20 2a 2f 0a 7d 3b 0a 0a 73 74 61 74 69 63  se */.};..static
1920: 20 69 6e 74 20 74 76 66 73 52 65 73 75 6c 74 43   int tvfsResultC
1930: 6f 64 65 28 54 65 73 74 76 66 73 20 2a 70 2c 20  ode(Testvfs *p, 
1940: 69 6e 74 20 2a 70 52 63 29 7b 0a 20 20 73 74 72  int *pRc){.  str
1950: 75 63 74 20 65 72 72 63 6f 64 65 20 7b 0a 20 20  uct errcode {.  
1960: 20 20 69 6e 74 20 65 43 6f 64 65 3b 0a 20 20 20    int eCode;.   
1970: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f   const char *zCo
1980: 64 65 3b 0a 20 20 7d 20 61 43 6f 64 65 5b 5d 20  de;.  } aCode[] 
1990: 3d 20 7b 0a 20 20 20 20 7b 20 53 51 4c 49 54 45  = {.    { SQLITE
19a0: 5f 4f 4b 2c 20 20 20 20 20 22 53 51 4c 49 54 45  _OK,     "SQLITE
19b0: 5f 4f 4b 22 20 20 20 20 20 7d 2c 0a 20 20 20 20  _OK"     },.    
19c0: 7b 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 2c 20  { SQLITE_ERROR, 
19d0: 20 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22 20   "SQLITE_ERROR" 
19e0: 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45   },.    { SQLITE
19f0: 5f 49 4f 45 52 52 2c 20 20 22 53 51 4c 49 54 45  _IOERR,  "SQLITE
1a00: 5f 49 4f 45 52 52 22 20 20 7d 2c 0a 20 20 20 20  _IOERR"  },.    
1a10: 7b 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 2c  { SQLITE_LOCKED,
1a20: 20 22 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 22   "SQLITE_LOCKED"
1a30: 20 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45   },.    { SQLITE
1a40: 5f 42 55 53 59 2c 20 20 20 22 53 51 4c 49 54 45  _BUSY,   "SQLITE
1a50: 5f 42 55 53 59 22 20 20 20 7d 2c 0a 20 20 7d 3b  _BUSY"   },.  };
1a60: 0a 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ..  const char *
1a70: 7a 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 7a  z;.  int i;..  z
1a80: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
1a90: 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70  Result(p->interp
1aa0: 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c  );.  for(i=0; i<
1ab0: 41 72 72 61 79 53 69 7a 65 28 61 43 6f 64 65 29  ArraySize(aCode)
1ac0: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20  ; i++){.    if( 
1ad0: 30 3d 3d 73 74 72 63 6d 70 28 7a 2c 20 61 43 6f  0==strcmp(z, aCo
1ae0: 64 65 5b 69 5d 2e 7a 43 6f 64 65 29 20 29 7b 0a  de[i].zCode) ){.
1af0: 20 20 20 20 20 20 2a 70 52 63 20 3d 20 61 43 6f        *pRc = aCo
1b00: 64 65 5b 69 5d 2e 65 43 6f 64 65 3b 0a 20 20 20  de[i].eCode;.   
1b10: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20     return 1;.   
1b20: 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e   }.  }..  return
1b30: 20 30 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e   0;.}..static in
1b40: 74 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65 72  t tvfsInjectIoer
1b50: 72 28 54 65 73 74 76 66 73 20 2a 70 29 7b 0a 20  r(Testvfs *p){. 
1b60: 20 69 6e 74 20 72 65 74 20 3d 20 30 3b 0a 20 20   int ret = 0;.  
1b70: 69 66 28 20 70 2d 3e 69 6f 65 72 72 20 29 7b 0a  if( p->ioerr ){.
1b80: 20 20 20 20 70 2d 3e 69 49 6f 65 72 72 43 6e 74      p->iIoerrCnt
1b90: 2d 2d 3b 0a 20 20 20 20 69 66 28 20 70 2d 3e 69  --;.    if( p->i
1ba0: 49 6f 65 72 72 43 6e 74 3d 3d 30 20 7c 7c 20 28  IoerrCnt==0 || (
1bb0: 70 2d 3e 69 49 6f 65 72 72 43 6e 74 3c 30 20 26  p->iIoerrCnt<0 &
1bc0: 26 20 70 2d 3e 69 6f 65 72 72 3d 3d 32 29 20 29  & p->ioerr==2) )
1bd0: 7b 0a 20 20 20 20 20 20 72 65 74 20 3d 20 31 3b  {.      ret = 1;
1be0: 0a 20 20 20 20 20 20 70 2d 3e 6e 49 6f 65 72 72  .      p->nIoerr
1bf0: 46 61 69 6c 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20  Fail++;.    }.  
1c00: 7d 0a 20 20 72 65 74 75 72 6e 20 72 65 74 3b 0a  }.  return ret;.
1c10: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  }..static int tv
1c20: 66 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28  fsInjectFullerr(
1c30: 54 65 73 74 76 66 73 20 2a 70 29 7b 0a 20 20 69  Testvfs *p){.  i
1c40: 6e 74 20 72 65 74 20 3d 20 30 3b 0a 20 20 69 66  nt ret = 0;.  if
1c50: 28 20 70 2d 3e 66 75 6c 6c 65 72 72 20 29 7b 0a  ( p->fullerr ){.
1c60: 20 20 20 20 70 2d 3e 69 46 75 6c 6c 43 6e 74 2d      p->iFullCnt-
1c70: 2d 3b 0a 20 20 20 20 69 66 28 20 70 2d 3e 69 46  -;.    if( p->iF
1c80: 75 6c 6c 43 6e 74 3c 3d 30 20 29 7b 0a 20 20 20  ullCnt<=0 ){.   
1c90: 20 20 20 72 65 74 20 3d 20 31 3b 0a 20 20 20 20     ret = 1;.    
1ca0: 20 20 70 2d 3e 6e 46 75 6c 6c 46 61 69 6c 2b 2b    p->nFullFail++
1cb0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65  ;.    }.  }.  re
1cc0: 74 75 72 6e 20 72 65 74 3b 0a 7d 0a 0a 0a 73 74  turn ret;.}...st
1cd0: 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 45 78  atic void tvfsEx
1ce0: 65 63 54 63 6c 28 0a 20 20 54 65 73 74 76 66 73  ecTcl(.  Testvfs
1cf0: 20 2a 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68   *p, .  const ch
1d00: 61 72 20 2a 7a 4d 65 74 68 6f 64 2c 0a 20 20 54  ar *zMethod,.  T
1d10: 63 6c 5f 4f 62 6a 20 2a 61 72 67 31 2c 0a 20 20  cl_Obj *arg1,.  
1d20: 54 63 6c 5f 4f 62 6a 20 2a 61 72 67 32 2c 0a 20  Tcl_Obj *arg2,. 
1d30: 20 54 63 6c 5f 4f 62 6a 20 2a 61 72 67 33 0a 29   Tcl_Obj *arg3.)
1d40: 7b 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20  {.  int rc;     
1d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d60: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f      /* Return co
1d70: 64 65 20 66 72 6f 6d 20 54 63 6c 5f 45 76 61 6c  de from Tcl_Eval
1d80: 4f 62 6a 28 29 20 2a 2f 0a 20 20 69 6e 74 20 6e  Obj() */.  int n
1d90: 41 72 67 3b 20 20 20 20 20 20 20 20 20 20 20 20  Arg;            
1da0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 45 6c             /* El
1db0: 65 6d 65 6e 74 73 20 69 6e 20 65 76 61 6c 27 64  ements in eval'd
1dc0: 20 6c 69 73 74 20 2a 2f 0a 20 20 69 6e 74 20 6e   list */.  int n
1dd0: 53 63 72 69 70 74 3b 0a 20 20 54 63 6c 5f 4f 62  Script;.  Tcl_Ob
1de0: 6a 20 2a 2a 20 61 70 3b 0a 0a 20 20 61 73 73 65  j ** ap;..  asse
1df0: 72 74 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29  rt( p->pScript )
1e00: 3b 0a 0a 20 20 69 66 28 20 21 70 2d 3e 61 70 53  ;..  if( !p->apS
1e10: 63 72 69 70 74 20 29 7b 0a 20 20 20 20 69 6e 74  cript ){.    int
1e20: 20 6e 42 79 74 65 3b 0a 20 20 20 20 69 6e 74 20   nByte;.    int 
1e30: 69 3b 0a 20 20 20 20 69 66 28 20 54 43 4c 5f 4f  i;.    if( TCL_O
1e40: 4b 21 3d 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65  K!=Tcl_ListObjGe
1e50: 74 45 6c 65 6d 65 6e 74 73 28 70 2d 3e 69 6e 74  tElements(p->int
1e60: 65 72 70 2c 20 70 2d 3e 70 53 63 72 69 70 74 2c  erp, p->pScript,
1e70: 20 26 6e 53 63 72 69 70 74 2c 20 26 61 70 29 20   &nScript, &ap) 
1e80: 29 7b 0a 20 20 20 20 20 20 54 63 6c 5f 42 61 63  ){.      Tcl_Bac
1e90: 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e  kgroundError(p->
1ea0: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 20 54  interp);.      T
1eb0: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 70  cl_ResetResult(p
1ec0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20  ->interp);.     
1ed0: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20   return;.    }. 
1ee0: 20 20 20 70 2d 3e 6e 53 63 72 69 70 74 20 3d 20     p->nScript = 
1ef0: 6e 53 63 72 69 70 74 3b 0a 20 20 20 20 6e 42 79  nScript;.    nBy
1f00: 74 65 20 3d 20 28 6e 53 63 72 69 70 74 2b 54 45  te = (nScript+TE
1f10: 53 54 56 46 53 5f 4d 41 58 5f 41 52 47 53 29 2a  STVFS_MAX_ARGS)*
1f20: 73 69 7a 65 6f 66 28 54 63 6c 5f 4f 62 6a 20 2a  sizeof(Tcl_Obj *
1f30: 29 3b 0a 20 20 20 20 70 2d 3e 61 70 53 63 72 69  );.    p->apScri
1f40: 70 74 20 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 2a  pt = (Tcl_Obj **
1f50: 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b  )ckalloc(nByte);
1f60: 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 2d 3e 61  .    memset(p->a
1f70: 70 53 63 72 69 70 74 2c 20 30 2c 20 6e 42 79 74  pScript, 0, nByt
1f80: 65 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b  e);.    for(i=0;
1f90: 20 69 3c 6e 53 63 72 69 70 74 3b 20 69 2b 2b 29   i<nScript; i++)
1fa0: 7b 0a 20 20 20 20 20 20 70 2d 3e 61 70 53 63 72  {.      p->apScr
1fb0: 69 70 74 5b 69 5d 20 3d 20 61 70 5b 69 5d 3b 0a  ipt[i] = ap[i];.
1fc0: 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 70 2d 3e      }.  }..  p->
1fd0: 61 70 53 63 72 69 70 74 5b 70 2d 3e 6e 53 63 72  apScript[p->nScr
1fe0: 69 70 74 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74  ipt] = Tcl_NewSt
1ff0: 72 69 6e 67 4f 62 6a 28 7a 4d 65 74 68 6f 64 2c  ringObj(zMethod,
2000: 20 2d 31 29 3b 0a 20 20 70 2d 3e 61 70 53 63 72   -1);.  p->apScr
2010: 69 70 74 5b 70 2d 3e 6e 53 63 72 69 70 74 2b 31  ipt[p->nScript+1
2020: 5d 20 3d 20 61 72 67 31 3b 0a 20 20 70 2d 3e 61  ] = arg1;.  p->a
2030: 70 53 63 72 69 70 74 5b 70 2d 3e 6e 53 63 72 69  pScript[p->nScri
2040: 70 74 2b 32 5d 20 3d 20 61 72 67 32 3b 0a 20 20  pt+2] = arg2;.  
2050: 70 2d 3e 61 70 53 63 72 69 70 74 5b 70 2d 3e 6e  p->apScript[p->n
2060: 53 63 72 69 70 74 2b 33 5d 20 3d 20 61 72 67 33  Script+3] = arg3
2070: 3b 0a 0a 20 20 66 6f 72 28 6e 41 72 67 3d 70 2d  ;..  for(nArg=p-
2080: 3e 6e 53 63 72 69 70 74 3b 20 70 2d 3e 61 70 53  >nScript; p->apS
2090: 63 72 69 70 74 5b 6e 41 72 67 5d 3b 20 6e 41 72  cript[nArg]; nAr
20a0: 67 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 49 6e  g++){.    Tcl_In
20b0: 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 61 70  crRefCount(p->ap
20c0: 53 63 72 69 70 74 5b 6e 41 72 67 5d 29 3b 0a 20  Script[nArg]);. 
20d0: 20 7d 0a 0a 20 20 72 63 20 3d 20 54 63 6c 5f 45   }..  rc = Tcl_E
20e0: 76 61 6c 4f 62 6a 76 28 70 2d 3e 69 6e 74 65 72  valObjv(p->inter
20f0: 70 2c 20 6e 41 72 67 2c 20 70 2d 3e 61 70 53 63  p, nArg, p->apSc
2100: 72 69 70 74 2c 20 54 43 4c 5f 45 56 41 4c 5f 47  ript, TCL_EVAL_G
2110: 4c 4f 42 41 4c 29 3b 0a 20 20 69 66 28 20 72 63  LOBAL);.  if( rc
2120: 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20  !=TCL_OK ){.    
2130: 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72  Tcl_BackgroundEr
2140: 72 6f 72 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a  ror(p->interp);.
2150: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73      Tcl_ResetRes
2160: 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a  ult(p->interp);.
2170: 20 20 7d 0a 0a 20 20 66 6f 72 28 6e 41 72 67 3d    }..  for(nArg=
2180: 70 2d 3e 6e 53 63 72 69 70 74 3b 20 70 2d 3e 61  p->nScript; p->a
2190: 70 53 63 72 69 70 74 5b 6e 41 72 67 5d 3b 20 6e  pScript[nArg]; n
21a0: 41 72 67 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f  Arg++){.    Tcl_
21b0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e  DecrRefCount(p->
21c0: 61 70 53 63 72 69 70 74 5b 6e 41 72 67 5d 29 3b  apScript[nArg]);
21d0: 0a 20 20 20 20 70 2d 3e 61 70 53 63 72 69 70 74  .    p->apScript
21e0: 5b 6e 41 72 67 5d 20 3d 20 30 3b 0a 20 20 7d 0a  [nArg] = 0;.  }.
21f0: 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20  }.../*.** Close 
2200: 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f  an tvfs-file..*/
2210: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
2220: 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 66 69  Close(sqlite3_fi
2230: 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65  le *pFile){.  Te
2240: 73 74 76 66 73 46 69 6c 65 20 2a 70 46 64 20 3d  stvfsFile *pFd =
2250: 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29   (TestvfsFile *)
2260: 70 46 69 6c 65 3b 0a 20 20 54 65 73 74 76 66 73  pFile;.  Testvfs
2270: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
2280: 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  )pFd->pVfs->pApp
2290: 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e  Data;..  if( p->
22a0: 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61  pScript && p->ma
22b0: 73 6b 26 54 45 53 54 56 46 53 5f 43 4c 4f 53 45  sk&TESTVFS_CLOSE
22c0: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66  _MASK ){.    tvf
22d0: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 43 6c  sExecTcl(p, "xCl
22e0: 6f 73 65 22 2c 20 0a 20 20 20 20 20 20 20 20 54  ose", .        T
22f0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
2300: 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20  pFd->zFilename, 
2310: 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64  -1), pFd->pShmId
2320: 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20 7d 0a 0a  , 0.    );.  }..
2330: 20 20 69 66 28 20 70 46 64 2d 3e 70 53 68 6d 49    if( pFd->pShmI
2340: 64 20 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63  d ){.    Tcl_Dec
2350: 72 52 65 66 43 6f 75 6e 74 28 70 46 64 2d 3e 70  rRefCount(pFd->p
2360: 53 68 6d 49 64 29 3b 0a 20 20 20 20 70 46 64 2d  ShmId);.    pFd-
2370: 3e 70 53 68 6d 49 64 20 3d 20 30 3b 0a 20 20 7d  >pShmId = 0;.  }
2380: 0a 20 20 69 66 28 20 70 46 69 6c 65 2d 3e 70 4d  .  if( pFile->pM
2390: 65 74 68 6f 64 73 20 29 7b 0a 20 20 20 20 63 6b  ethods ){.    ck
23a0: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 46 69  free((char *)pFi
23b0: 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 29 3b 0a 20  le->pMethods);. 
23c0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69   }.  return sqli
23d0: 74 65 33 4f 73 43 6c 6f 73 65 28 70 46 64 2d 3e  te3OsClose(pFd->
23e0: 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  pReal);.}../*.**
23f0: 20 52 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20   Read data from 
2400: 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f  an tvfs-file..*/
2410: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
2420: 52 65 61 64 28 0a 20 20 73 71 6c 69 74 65 33 5f  Read(.  sqlite3_
2430: 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20  file *pFile, .  
2440: 76 6f 69 64 20 2a 7a 42 75 66 2c 20 0a 20 20 69  void *zBuf, .  i
2450: 6e 74 20 69 41 6d 74 2c 20 0a 20 20 73 71 6c 69  nt iAmt, .  sqli
2460: 74 65 5f 69 6e 74 36 34 20 69 4f 66 73 74 0a 29  te_int64 iOfst.)
2470: 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20  {.  TestvfsFile 
2480: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c  *p = (TestvfsFil
2490: 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74  e *)pFile;.  ret
24a0: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 52 65 61  urn sqlite3OsRea
24b0: 64 28 70 2d 3e 70 52 65 61 6c 2c 20 7a 42 75 66  d(p->pReal, zBuf
24c0: 2c 20 69 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a  , iAmt, iOfst);.
24d0: 7d 0a 0a 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 64  }../*.** Write d
24e0: 61 74 61 20 74 6f 20 61 6e 20 74 76 66 73 2d 66  ata to an tvfs-f
24f0: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
2500: 6e 74 20 74 76 66 73 57 72 69 74 65 28 0a 20 20  nt tvfsWrite(.  
2510: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
2520: 69 6c 65 2c 20 0a 20 20 63 6f 6e 73 74 20 76 6f  ile, .  const vo
2530: 69 64 20 2a 7a 42 75 66 2c 20 0a 20 20 69 6e 74  id *zBuf, .  int
2540: 20 69 41 6d 74 2c 20 0a 20 20 73 71 6c 69 74 65   iAmt, .  sqlite
2550: 5f 69 6e 74 36 34 20 69 4f 66 73 74 0a 29 7b 0a  _int64 iOfst.){.
2560: 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54    int rc = SQLIT
2570: 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46  E_OK;.  TestvfsF
2580: 69 6c 65 20 2a 70 46 64 20 3d 20 28 54 65 73 74  ile *pFd = (Test
2590: 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b  vfsFile *)pFile;
25a0: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
25b0: 28 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d 3e  (Testvfs *)pFd->
25c0: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a  pVfs->pAppData;.
25d0: 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72 69 70  .  if( p->pScrip
25e0: 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53  t && p->mask&TES
25f0: 54 56 46 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20  TVFS_WRITE_MASK 
2600: 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54  ){.    tvfsExecT
2610: 63 6c 28 70 2c 20 22 78 57 72 69 74 65 22 2c 20  cl(p, "xWrite", 
2620: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  .        Tcl_New
2630: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a  StringObj(pFd->z
2640: 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 70  Filename, -1), p
2650: 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 0a 20 20  Fd->pShmId, 0.  
2660: 20 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73    );.    tvfsRes
2670: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b  ultCode(p, &rc);
2680: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d  .  }..  if( rc==
2690: 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 74 76 66  SQLITE_OK && tvf
26a0: 73 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 70  sInjectFullerr(p
26b0: 29 20 29 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  ) ) rc = SQLITE_
26c0: 46 55 4c 4c 3b 0a 20 20 0a 20 20 69 66 28 20 72  FULL;.  .  if( r
26d0: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
26e0: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
26f0: 4f 73 57 72 69 74 65 28 70 46 64 2d 3e 70 52 65  OsWrite(pFd->pRe
2700: 61 6c 2c 20 7a 42 75 66 2c 20 69 41 6d 74 2c 20  al, zBuf, iAmt, 
2710: 69 4f 66 73 74 29 3b 0a 20 20 7d 0a 20 20 72 65  iOfst);.  }.  re
2720: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a  turn rc;.}../*.*
2730: 2a 20 54 72 75 6e 63 61 74 65 20 61 6e 20 74 76  * Truncate an tv
2740: 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74  fs-file..*/.stat
2750: 69 63 20 69 6e 74 20 74 76 66 73 54 72 75 6e 63  ic int tvfsTrunc
2760: 61 74 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ate(sqlite3_file
2770: 20 2a 70 46 69 6c 65 2c 20 73 71 6c 69 74 65 5f   *pFile, sqlite_
2780: 69 6e 74 36 34 20 73 69 7a 65 29 7b 0a 20 20 69  int64 size){.  i
2790: 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f  nt rc = SQLITE_O
27a0: 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65  K;.  TestvfsFile
27b0: 20 2a 70 46 64 20 3d 20 28 54 65 73 74 76 66 73   *pFd = (Testvfs
27c0: 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20  File *)pFile;.  
27d0: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
27e0: 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66  stvfs *)pFd->pVf
27f0: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 0a 20 20  s->pAppData;..  
2800: 69 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26  if( p->pScript &
2810: 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46  & p->mask&TESTVF
2820: 53 5f 54 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20  S_TRUNCATE_MASK 
2830: 29 7b 0a 20 20 20 20 74 76 66 73 45 78 65 63 54  ){.    tvfsExecT
2840: 63 6c 28 70 2c 20 22 78 54 72 75 6e 63 61 74 65  cl(p, "xTruncate
2850: 22 2c 20 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  ", .        Tcl_
2860: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64  NewStringObj(pFd
2870: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29  ->zFilename, -1)
2880: 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30  , pFd->pShmId, 0
2890: 0a 20 20 20 20 29 3b 0a 20 20 20 20 74 76 66 73  .    );.    tvfs
28a0: 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72  ResultCode(p, &r
28b0: 63 29 3b 0a 20 20 7d 0a 20 20 0a 20 20 69 66 28  c);.  }.  .  if(
28c0: 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29   rc==SQLITE_OK )
28d0: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  {.    rc = sqlit
28e0: 65 33 4f 73 54 72 75 6e 63 61 74 65 28 70 46 64  e3OsTruncate(pFd
28f0: 2d 3e 70 52 65 61 6c 2c 20 73 69 7a 65 29 3b 0a  ->pReal, size);.
2900: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b    }.  return rc;
2910: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 79 6e 63 20 61  .}../*.** Sync a
2920: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
2930: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
2940: 79 6e 63 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ync(sqlite3_file
2950: 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 66 6c 61   *pFile, int fla
2960: 67 73 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  gs){.  int rc = 
2970: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
2980: 74 76 66 73 46 69 6c 65 20 2a 70 46 64 20 3d 20  tvfsFile *pFd = 
2990: 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70  (TestvfsFile *)p
29a0: 46 69 6c 65 3b 0a 20 20 54 65 73 74 76 66 73 20  File;.  Testvfs 
29b0: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
29c0: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
29d0: 61 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70  ata;..  if( p->p
29e0: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
29f0: 6b 26 54 45 53 54 56 46 53 5f 53 59 4e 43 5f 4d  k&TESTVFS_SYNC_M
2a00: 41 53 4b 20 29 7b 0a 20 20 20 20 63 68 61 72 20  ASK ){.    char 
2a10: 2a 7a 46 6c 61 67 73 3b 0a 0a 20 20 20 20 73 77  *zFlags;..    sw
2a20: 69 74 63 68 28 20 66 6c 61 67 73 20 29 7b 0a 20  itch( flags ){. 
2a30: 20 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45       case SQLITE
2a40: 5f 53 59 4e 43 5f 4e 4f 52 4d 41 4c 3a 0a 20 20  _SYNC_NORMAL:.  
2a50: 20 20 20 20 20 20 7a 46 6c 61 67 73 20 3d 20 22        zFlags = "
2a60: 6e 6f 72 6d 61 6c 22 3b 0a 20 20 20 20 20 20 20  normal";.       
2a70: 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 63 61   break;.      ca
2a80: 73 65 20 53 51 4c 49 54 45 5f 53 59 4e 43 5f 46  se SQLITE_SYNC_F
2a90: 55 4c 4c 3a 0a 20 20 20 20 20 20 20 20 7a 46 6c  ULL:.        zFl
2aa0: 61 67 73 20 3d 20 22 66 75 6c 6c 22 3b 0a 20 20  ags = "full";.  
2ab0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
2ac0: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53     case SQLITE_S
2ad0: 59 4e 43 5f 4e 4f 52 4d 41 4c 7c 53 51 4c 49 54  YNC_NORMAL|SQLIT
2ae0: 45 5f 53 59 4e 43 5f 44 41 54 41 4f 4e 4c 59 3a  E_SYNC_DATAONLY:
2af0: 0a 20 20 20 20 20 20 20 20 7a 46 6c 61 67 73 20  .        zFlags 
2b00: 3d 20 22 6e 6f 72 6d 61 6c 7c 64 61 74 61 6f 6e  = "normal|dataon
2b10: 6c 79 22 3b 0a 20 20 20 20 20 20 20 20 62 72 65  ly";.        bre
2b20: 61 6b 3b 0a 20 20 20 20 20 20 63 61 73 65 20 53  ak;.      case S
2b30: 51 4c 49 54 45 5f 53 59 4e 43 5f 46 55 4c 4c 7c  QLITE_SYNC_FULL|
2b40: 53 51 4c 49 54 45 5f 53 59 4e 43 5f 44 41 54 41  SQLITE_SYNC_DATA
2b50: 4f 4e 4c 59 3a 0a 20 20 20 20 20 20 20 20 7a 46  ONLY:.        zF
2b60: 6c 61 67 73 20 3d 20 22 66 75 6c 6c 7c 64 61 74  lags = "full|dat
2b70: 61 6f 6e 6c 79 22 3b 0a 20 20 20 20 20 20 20 20  aonly";.        
2b80: 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 64 65 66  break;.      def
2b90: 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 20 61 73  ault:.        as
2ba0: 73 65 72 74 28 30 29 3b 0a 20 20 20 20 7d 0a 0a  sert(0);.    }..
2bb0: 20 20 20 20 74 76 66 73 45 78 65 63 54 63 6c 28      tvfsExecTcl(
2bc0: 70 2c 20 22 78 53 79 6e 63 22 2c 20 0a 20 20 20  p, "xSync", .   
2bd0: 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69       Tcl_NewStri
2be0: 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65  ngObj(pFd->zFile
2bf0: 6e 61 6d 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e  name, -1), pFd->
2c00: 70 53 68 6d 49 64 2c 0a 20 20 20 20 20 20 20 20  pShmId,.        
2c10: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
2c20: 28 7a 46 6c 61 67 73 2c 20 2d 31 29 0a 20 20 20  (zFlags, -1).   
2c30: 20 29 3b 0a 20 20 20 20 74 76 66 73 52 65 73 75   );.    tvfsResu
2c40: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a  ltCode(p, &rc);.
2c50: 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53    }..  if( rc==S
2c60: 51 4c 49 54 45 5f 4f 4b 20 26 26 20 74 76 66 73  QLITE_OK && tvfs
2c70: 49 6e 6a 65 63 74 46 75 6c 6c 65 72 72 28 70 29  InjectFullerr(p)
2c80: 20 29 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 46   ) rc = SQLITE_F
2c90: 55 4c 4c 3b 0a 0a 20 20 69 66 28 20 72 63 3d 3d  ULL;..  if( rc==
2ca0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20  SQLITE_OK ){.   
2cb0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 4f 73 53   rc = sqlite3OsS
2cc0: 79 6e 63 28 70 46 64 2d 3e 70 52 65 61 6c 2c 20  ync(pFd->pReal, 
2cd0: 66 6c 61 67 73 29 3b 0a 20 20 7d 0a 0a 20 20 72  flags);.  }..  r
2ce0: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
2cf0: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 63 75  ** Return the cu
2d00: 72 72 65 6e 74 20 66 69 6c 65 2d 73 69 7a 65 20  rrent file-size 
2d10: 6f 66 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  of an tvfs-file.
2d20: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2d30: 76 66 73 46 69 6c 65 53 69 7a 65 28 73 71 6c 69  vfsFileSize(sqli
2d40: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
2d50: 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70   sqlite_int64 *p
2d60: 53 69 7a 65 29 7b 0a 20 20 54 65 73 74 76 66 73  Size){.  Testvfs
2d70: 46 69 6c 65 20 2a 70 20 3d 20 28 54 65 73 74 76  File *p = (Testv
2d80: 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a  fsFile *)pFile;.
2d90: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
2da0: 4f 73 46 69 6c 65 53 69 7a 65 28 70 2d 3e 70 52  OsFileSize(p->pR
2db0: 65 61 6c 2c 20 70 53 69 7a 65 29 3b 0a 7d 0a 0a  eal, pSize);.}..
2dc0: 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 61 6e 20 74 76  /*.** Lock an tv
2dd0: 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74  fs-file..*/.stat
2de0: 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b 28  ic int tvfsLock(
2df0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
2e00: 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b  ile, int eLock){
2e10: 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a  .  TestvfsFile *
2e20: 70 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65  p = (TestvfsFile
2e30: 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75   *)pFile;.  retu
2e40: 72 6e 20 73 71 6c 69 74 65 33 4f 73 4c 6f 63 6b  rn sqlite3OsLock
2e50: 28 70 2d 3e 70 52 65 61 6c 2c 20 65 4c 6f 63 6b  (p->pReal, eLock
2e60: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 6e 6c 6f  );.}../*.** Unlo
2e70: 63 6b 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  ck an tvfs-file.
2e80: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2e90: 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69 74 65  vfsUnlock(sqlite
2ea0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69  3_file *pFile, i
2eb0: 6e 74 20 65 4c 6f 63 6b 29 7b 0a 20 20 54 65 73  nt eLock){.  Tes
2ec0: 74 76 66 73 46 69 6c 65 20 2a 70 20 3d 20 28 54  tvfsFile *p = (T
2ed0: 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69  estvfsFile *)pFi
2ee0: 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c  le;.  return sql
2ef0: 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 70 2d 3e  ite3OsUnlock(p->
2f00: 70 52 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a 7d  pReal, eLock);.}
2f10: 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63 6b 20 69 66  ../*.** Check if
2f20: 20 61 6e 6f 74 68 65 72 20 66 69 6c 65 2d 68 61   another file-ha
2f30: 6e 64 6c 65 20 68 6f 6c 64 73 20 61 20 52 45 53  ndle holds a RES
2f40: 45 52 56 45 44 20 6c 6f 63 6b 20 6f 6e 20 61 6e  ERVED lock on an
2f50: 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73   tvfs-file..*/.s
2f60: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43 68  tatic int tvfsCh
2f70: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28  eckReservedLock(
2f80: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
2f90: 69 6c 65 2c 20 69 6e 74 20 2a 70 52 65 73 4f 75  ile, int *pResOu
2fa0: 74 29 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c  t){.  TestvfsFil
2fb0: 65 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 46  e *p = (TestvfsF
2fc0: 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72  ile *)pFile;.  r
2fd0: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 43  eturn sqlite3OsC
2fe0: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
2ff0: 28 70 2d 3e 70 52 65 61 6c 2c 20 70 52 65 73 4f  (p->pReal, pResO
3000: 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69  ut);.}../*.** Fi
3010: 6c 65 20 63 6f 6e 74 72 6f 6c 20 6d 65 74 68 6f  le control metho
3020: 64 2e 20 46 6f 72 20 63 75 73 74 6f 6d 20 6f 70  d. For custom op
3030: 65 72 61 74 69 6f 6e 73 20 6f 6e 20 61 6e 20 74  erations on an t
3040: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
3050: 74 69 63 20 69 6e 74 20 74 76 66 73 46 69 6c 65  tic int tvfsFile
3060: 43 6f 6e 74 72 6f 6c 28 73 71 6c 69 74 65 33 5f  Control(sqlite3_
3070: 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74  file *pFile, int
3080: 20 6f 70 2c 20 76 6f 69 64 20 2a 70 41 72 67 29   op, void *pArg)
3090: 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20  {.  TestvfsFile 
30a0: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c  *p = (TestvfsFil
30b0: 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74  e *)pFile;.  ret
30c0: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 46 69 6c  urn sqlite3OsFil
30d0: 65 43 6f 6e 74 72 6f 6c 28 70 2d 3e 70 52 65 61  eControl(p->pRea
30e0: 6c 2c 20 6f 70 2c 20 70 41 72 67 29 3b 0a 7d 0a  l, op, pArg);.}.
30f0: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68  ./*.** Return th
3100: 65 20 73 65 63 74 6f 72 2d 73 69 7a 65 20 69 6e  e sector-size in
3110: 20 62 79 74 65 73 20 66 6f 72 20 61 6e 20 74 76   bytes for an tv
3120: 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74  fs-file..*/.stat
3130: 69 63 20 69 6e 74 20 74 76 66 73 53 65 63 74 6f  ic int tvfsSecto
3140: 72 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69  rSize(sqlite3_fi
3150: 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54 65  le *pFile){.  Te
3160: 73 74 76 66 73 46 69 6c 65 20 2a 70 46 64 20 3d  stvfsFile *pFd =
3170: 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29   (TestvfsFile *)
3180: 70 46 69 6c 65 3b 0a 20 20 54 65 73 74 76 66 73  pFile;.  Testvfs
3190: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
31a0: 29 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  )pFd->pVfs->pApp
31b0: 44 61 74 61 3b 0a 20 20 69 66 28 20 70 2d 3e 69  Data;.  if( p->i
31c0: 53 65 63 74 6f 72 73 69 7a 65 3e 3d 30 20 29 7b  Sectorsize>=0 ){
31d0: 0a 20 20 20 20 72 65 74 75 72 6e 20 70 2d 3e 69  .    return p->i
31e0: 53 65 63 74 6f 72 73 69 7a 65 3b 0a 20 20 7d 0a  Sectorsize;.  }.
31f0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
3200: 4f 73 53 65 63 74 6f 72 53 69 7a 65 28 70 46 64  OsSectorSize(pFd
3210: 2d 3e 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a  ->pReal);.}../*.
3220: 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20 64 65  ** Return the de
3230: 76 69 63 65 20 63 68 61 72 61 63 74 65 72 69 73  vice characteris
3240: 74 69 63 20 66 6c 61 67 73 20 73 75 70 70 6f 72  tic flags suppor
3250: 74 65 64 20 62 79 20 61 6e 20 74 76 66 73 2d 66  ted by an tvfs-f
3260: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
3270: 6e 74 20 74 76 66 73 44 65 76 69 63 65 43 68 61  nt tvfsDeviceCha
3280: 72 61 63 74 65 72 69 73 74 69 63 73 28 73 71 6c  racteristics(sql
3290: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
32a0: 29 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65  ){.  TestvfsFile
32b0: 20 2a 70 46 64 20 3d 20 28 54 65 73 74 76 66 73   *pFd = (Testvfs
32c0: 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20  File *)pFile;.  
32d0: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
32e0: 73 74 76 66 73 20 2a 29 70 46 64 2d 3e 70 56 66  stvfs *)pFd->pVf
32f0: 73 2d 3e 70 41 70 70 44 61 74 61 3b 0a 20 20 69  s->pAppData;.  i
3300: 66 28 20 70 2d 3e 69 44 65 76 63 68 61 72 3e 3d  f( p->iDevchar>=
3310: 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  0 ){.    return 
3320: 70 2d 3e 69 44 65 76 63 68 61 72 3b 0a 20 20 7d  p->iDevchar;.  }
3330: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
3340: 33 4f 73 44 65 76 69 63 65 43 68 61 72 61 63 74  3OsDeviceCharact
3350: 65 72 69 73 74 69 63 73 28 70 46 64 2d 3e 70 52  eristics(pFd->pR
3360: 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f  eal);.}../*.** O
3370: 70 65 6e 20 61 6e 20 74 76 66 73 20 66 69 6c 65  pen an tvfs file
3380: 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74   handle..*/.stat
3390: 69 63 20 69 6e 74 20 74 76 66 73 4f 70 65 6e 28  ic int tvfsOpen(
33a0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
33b0: 70 56 66 73 2c 0a 20 20 63 6f 6e 73 74 20 63 68  pVfs,.  const ch
33c0: 61 72 20 2a 7a 4e 61 6d 65 2c 0a 20 20 73 71 6c  ar *zName,.  sql
33d0: 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65  ite3_file *pFile
33e0: 2c 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c 0a 20  ,.  int flags,. 
33f0: 20 69 6e 74 20 2a 70 4f 75 74 46 6c 61 67 73 0a   int *pOutFlags.
3400: 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54  ){.  int rc;.  T
3410: 65 73 74 76 66 73 46 69 6c 65 20 2a 70 46 64 20  estvfsFile *pFd 
3420: 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a  = (TestvfsFile *
3430: 29 70 46 69 6c 65 3b 0a 20 20 54 63 6c 5f 4f 62  )pFile;.  Tcl_Ob
3440: 6a 20 2a 70 49 64 20 3d 20 30 3b 0a 20 20 54 65  j *pId = 0;.  Te
3450: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
3460: 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70  vfs *)pVfs->pApp
3470: 44 61 74 61 3b 0a 0a 20 20 70 46 64 2d 3e 70 53  Data;..  pFd->pS
3480: 68 6d 20 3d 20 30 3b 0a 20 20 70 46 64 2d 3e 70  hm = 0;.  pFd->p
3490: 53 68 6d 49 64 20 3d 20 30 3b 0a 20 20 70 46 64  ShmId = 0;.  pFd
34a0: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 7a 4e  ->zFilename = zN
34b0: 61 6d 65 3b 0a 20 20 70 46 64 2d 3e 70 56 66 73  ame;.  pFd->pVfs
34c0: 20 3d 20 70 56 66 73 3b 0a 20 20 70 46 64 2d 3e   = pVfs;.  pFd->
34d0: 70 52 65 61 6c 20 3d 20 28 73 71 6c 69 74 65 33  pReal = (sqlite3
34e0: 5f 66 69 6c 65 20 2a 29 26 70 46 64 5b 31 5d 3b  _file *)&pFd[1];
34f0: 0a 0a 20 20 2f 2a 20 45 76 61 6c 75 61 74 65 20  ..  /* Evaluate 
3500: 74 68 65 20 54 63 6c 20 73 63 72 69 70 74 3a 20  the Tcl script: 
3510: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52  .  **.  **   SCR
3520: 49 50 54 20 78 4f 70 65 6e 20 46 49 4c 45 4e 41  IPT xOpen FILENA
3530: 4d 45 0a 20 20 2a 2a 0a 20 20 2a 2a 20 49 66 20  ME.  **.  ** If 
3540: 74 68 65 20 73 63 72 69 70 74 20 72 65 74 75 72  the script retur
3550: 6e 73 20 61 6e 20 53 51 4c 69 74 65 20 65 72 72  ns an SQLite err
3560: 6f 72 20 63 6f 64 65 20 6f 74 68 65 72 20 74 68  or code other th
3570: 61 6e 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 61 6e  an SQLITE_OK, an
3580: 0a 20 20 2a 2a 20 65 72 72 6f 72 20 69 73 20 72  .  ** error is r
3590: 65 74 75 72 6e 65 64 20 74 6f 20 74 68 65 20 63  eturned to the c
35a0: 61 6c 6c 65 72 2e 20 49 66 20 69 74 20 72 65 74  aller. If it ret
35b0: 75 72 6e 73 20 53 51 4c 49 54 45 5f 4f 4b 2c 20  urns SQLITE_OK, 
35c0: 74 68 65 20 6e 65 77 0a 20 20 2a 2a 20 63 6f 6e  the new.  ** con
35d0: 6e 65 63 74 69 6f 6e 20 69 73 20 6e 61 6d 65 64  nection is named
35e0: 20 22 61 6e 6f 6e 22 2e 20 4f 74 68 65 72 77 69   "anon". Otherwi
35f0: 73 65 2c 20 74 68 65 20 76 61 6c 75 65 20 72 65  se, the value re
3600: 74 75 72 6e 65 64 20 62 79 20 74 68 65 0a 20 20  turned by the.  
3610: 2a 2a 20 73 63 72 69 70 74 20 69 73 20 75 73 65  ** script is use
3620: 64 20 61 73 20 74 68 65 20 63 6f 6e 6e 65 63 74  d as the connect
3630: 69 6f 6e 20 6e 61 6d 65 2e 0a 20 20 2a 2f 0a 20  ion name..  */. 
3640: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74   Tcl_ResetResult
3650: 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 69  (p->interp);.  i
3660: 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26  f( p->pScript &&
3670: 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53   p->mask&TESTVFS
3680: 5f 4f 50 45 4e 5f 4d 41 53 4b 20 29 7b 0a 20 20  _OPEN_MASK ){.  
3690: 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c    tvfsExecTcl(p,
36a0: 20 22 78 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65   "xOpen", Tcl_Ne
36b0: 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e  wStringObj(pFd->
36c0: 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20  zFilename, -1), 
36d0: 30 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20 74  0, 0);.    if( t
36e0: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
36f0: 20 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69   &rc) ){.      i
3700: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc!=SQLITE_OK
3710: 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20   ) return rc;.  
3720: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 70    }else{.      p
3730: 49 64 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52  Id = Tcl_GetObjR
3740: 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29  esult(p->interp)
3750: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66  ;.    }.  }.  if
3760: 28 20 21 70 49 64 20 29 7b 0a 20 20 20 20 70 49  ( !pId ){.    pI
3770: 64 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  d = Tcl_NewStrin
3780: 67 4f 62 6a 28 22 61 6e 6f 6e 22 2c 20 2d 31 29  gObj("anon", -1)
3790: 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 49 6e 63 72  ;.  }.  Tcl_Incr
37a0: 52 65 66 43 6f 75 6e 74 28 70 49 64 29 3b 0a 20  RefCount(pId);. 
37b0: 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20 70   pFd->pShmId = p
37c0: 49 64 3b 0a 20 20 54 63 6c 5f 52 65 73 65 74 52  Id;.  Tcl_ResetR
37d0: 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29  esult(p->interp)
37e0: 3b 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65  ;..  rc = sqlite
37f0: 33 4f 73 4f 70 65 6e 28 50 41 52 45 4e 54 56 46  3OsOpen(PARENTVF
3800: 53 28 70 56 66 73 29 2c 20 7a 4e 61 6d 65 2c 20  S(pVfs), zName, 
3810: 70 46 64 2d 3e 70 52 65 61 6c 2c 20 66 6c 61 67  pFd->pReal, flag
3820: 73 2c 20 70 4f 75 74 46 6c 61 67 73 29 3b 0a 20  s, pOutFlags);. 
3830: 20 69 66 28 20 70 46 64 2d 3e 70 52 65 61 6c 2d   if( pFd->pReal-
3840: 3e 70 4d 65 74 68 6f 64 73 20 29 7b 0a 20 20 20  >pMethods ){.   
3850: 20 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68   sqlite3_io_meth
3860: 6f 64 73 20 2a 70 4d 65 74 68 6f 64 73 3b 0a 20  ods *pMethods;. 
3870: 20 20 20 70 4d 65 74 68 6f 64 73 20 3d 20 28 73     pMethods = (s
3880: 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64  qlite3_io_method
3890: 73 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65  s *)ckalloc(size
38a0: 6f 66 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65  of(sqlite3_io_me
38b0: 74 68 6f 64 73 29 29 3b 0a 20 20 20 20 6d 65 6d  thods));.    mem
38c0: 63 70 79 28 70 4d 65 74 68 6f 64 73 2c 20 26 74  cpy(pMethods, &t
38d0: 76 66 73 5f 69 6f 5f 6d 65 74 68 6f 64 73 2c 20  vfs_io_methods, 
38e0: 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 69  sizeof(sqlite3_i
38f0: 6f 5f 6d 65 74 68 6f 64 73 29 29 3b 0a 20 20 20  o_methods));.   
3900: 20 69 66 28 20 28 28 54 65 73 74 76 66 73 20 2a   if( ((Testvfs *
3910: 29 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29  )pVfs->pAppData)
3920: 2d 3e 69 73 4e 6f 73 68 6d 20 29 7b 0a 20 20 20  ->isNoshm ){.   
3930: 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68     pMethods->xSh
3940: 6d 4f 70 65 6e 20 3d 20 30 3b 0a 20 20 20 20 20  mOpen = 0;.     
3950: 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 43   pMethods->xShmC
3960: 6c 6f 73 65 20 3d 20 30 3b 0a 20 20 20 20 20 20  lose = 0;.      
3970: 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4c 6f  pMethods->xShmLo
3980: 63 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d  ck = 0;.      pM
3990: 65 74 68 6f 64 73 2d 3e 78 53 68 6d 42 61 72 72  ethods->xShmBarr
39a0: 69 65 72 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  ier = 0;.      p
39b0: 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4d 61 70  Methods->xShmMap
39c0: 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20   = 0;.    }.    
39d0: 70 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 20  pFile->pMethods 
39e0: 3d 20 70 4d 65 74 68 6f 64 73 3b 0a 20 20 7d 0a  = pMethods;.  }.
39f0: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
3a00: 0a 2f 2a 0a 2a 2a 20 44 65 6c 65 74 65 20 74 68  ./*.** Delete th
3a10: 65 20 66 69 6c 65 20 6c 6f 63 61 74 65 64 20 61  e file located a
3a20: 74 20 7a 50 61 74 68 2e 20 49 66 20 74 68 65 20  t zPath. If the 
3a30: 64 69 72 53 79 6e 63 20 61 72 67 75 6d 65 6e 74  dirSync argument
3a40: 20 69 73 20 74 72 75 65 2c 0a 2a 2a 20 65 6e 73   is true,.** ens
3a50: 75 72 65 20 74 68 65 20 66 69 6c 65 2d 73 79 73  ure the file-sys
3a60: 74 65 6d 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e  tem modification
3a70: 73 20 61 72 65 20 73 79 6e 63 65 64 20 74 6f 20  s are synced to 
3a80: 64 69 73 6b 20 62 65 66 6f 72 65 0a 2a 2a 20 72  disk before.** r
3a90: 65 74 75 72 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61  eturning..*/.sta
3aa0: 74 69 63 20 69 6e 74 20 74 76 66 73 44 65 6c 65  tic int tvfsDele
3ab0: 74 65 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  te(sqlite3_vfs *
3ac0: 70 56 66 73 2c 20 63 6f 6e 73 74 20 63 68 61 72  pVfs, const char
3ad0: 20 2a 7a 50 61 74 68 2c 20 69 6e 74 20 64 69 72   *zPath, int dir
3ae0: 53 79 6e 63 29 7b 0a 20 20 69 6e 74 20 72 63 20  Sync){.  int rc 
3af0: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54  = SQLITE_OK;.  T
3b00: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
3b10: 74 76 66 73 20 2a 29 70 56 66 73 2d 3e 70 41 70  tvfs *)pVfs->pAp
3b20: 70 44 61 74 61 3b 0a 0a 20 20 69 66 28 20 70 2d  pData;..  if( p-
3b30: 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d  >pScript && p->m
3b40: 61 73 6b 26 54 45 53 54 56 46 53 5f 44 45 4c 45  ask&TESTVFS_DELE
3b50: 54 45 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74  TE_MASK ){.    t
3b60: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
3b70: 44 65 6c 65 74 65 22 2c 20 0a 20 20 20 20 20 20  Delete", .      
3b80: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
3b90: 62 6a 28 7a 50 61 74 68 2c 20 2d 31 29 2c 20 54  bj(zPath, -1), T
3ba0: 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 64 69 72  cl_NewIntObj(dir
3bb0: 53 79 6e 63 29 2c 20 30 0a 20 20 20 20 29 3b 0a  Sync), 0.    );.
3bc0: 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f      tvfsResultCo
3bd0: 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a  de(p, &rc);.  }.
3be0: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
3bf0: 5f 4f 4b 20 29 7b 0a 20 20 20 20 72 63 20 3d 20  _OK ){.    rc = 
3c00: 73 71 6c 69 74 65 33 4f 73 44 65 6c 65 74 65 28  sqlite3OsDelete(
3c10: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
3c20: 20 7a 50 61 74 68 2c 20 64 69 72 53 79 6e 63 29   zPath, dirSync)
3c30: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72  ;.  }.  return r
3c40: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 73 74  c;.}../*.** Test
3c50: 20 66 6f 72 20 61 63 63 65 73 73 20 70 65 72 6d   for access perm
3c60: 69 73 73 69 6f 6e 73 2e 20 52 65 74 75 72 6e 20  issions. Return 
3c70: 74 72 75 65 20 69 66 20 74 68 65 20 72 65 71 75  true if the requ
3c80: 65 73 74 65 64 20 70 65 72 6d 69 73 73 69 6f 6e  ested permission
3c90: 0a 2a 2a 20 69 73 20 61 76 61 69 6c 61 62 6c 65  .** is available
3ca0: 2c 20 6f 72 20 66 61 6c 73 65 20 6f 74 68 65 72  , or false other
3cb0: 77 69 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  wise..*/.static 
3cc0: 69 6e 74 20 74 76 66 73 41 63 63 65 73 73 28 0a  int tvfsAccess(.
3cd0: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
3ce0: 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68  Vfs, .  const ch
3cf0: 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e  ar *zPath, .  in
3d00: 74 20 66 6c 61 67 73 2c 20 0a 20 20 69 6e 74 20  t flags, .  int 
3d10: 2a 70 52 65 73 4f 75 74 0a 29 7b 0a 20 20 72 65  *pResOut.){.  re
3d20: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 41 63  turn sqlite3OsAc
3d30: 63 65 73 73 28 50 41 52 45 4e 54 56 46 53 28 70  cess(PARENTVFS(p
3d40: 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 66 6c 61  Vfs), zPath, fla
3d50: 67 73 2c 20 70 52 65 73 4f 75 74 29 3b 0a 7d 0a  gs, pResOut);.}.
3d60: 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20  ./*.** Populate 
3d70: 62 75 66 66 65 72 20 7a 4f 75 74 20 77 69 74 68  buffer zOut with
3d80: 20 74 68 65 20 66 75 6c 6c 20 63 61 6e 6f 6e 69   the full canoni
3d90: 63 61 6c 20 70 61 74 68 6e 61 6d 65 20 63 6f 72  cal pathname cor
3da0: 72 65 73 70 6f 6e 64 69 6e 67 0a 2a 2a 20 74 6f  responding.** to
3db0: 20 74 68 65 20 70 61 74 68 6e 61 6d 65 20 69 6e   the pathname in
3dc0: 20 7a 50 61 74 68 2e 20 7a 4f 75 74 20 69 73 20   zPath. zOut is 
3dd0: 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 70 6f  guaranteed to po
3de0: 69 6e 74 20 74 6f 20 61 20 62 75 66 66 65 72 0a  int to a buffer.
3df0: 2a 2a 20 6f 66 20 61 74 20 6c 65 61 73 74 20 28  ** of at least (
3e00: 44 45 56 53 59 4d 5f 4d 41 58 5f 50 41 54 48 4e  DEVSYM_MAX_PATHN
3e10: 41 4d 45 2b 31 29 20 62 79 74 65 73 2e 0a 2a 2f  AME+1) bytes..*/
3e20: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
3e30: 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28 0a 20 20  FullPathname(.  
3e40: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
3e50: 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  s, .  const char
3e60: 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e 74 20   *zPath, .  int 
3e70: 6e 4f 75 74 2c 20 0a 20 20 63 68 61 72 20 2a 7a  nOut, .  char *z
3e80: 4f 75 74 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20  Out.){.  return 
3e90: 73 71 6c 69 74 65 33 4f 73 46 75 6c 6c 50 61 74  sqlite3OsFullPat
3ea0: 68 6e 61 6d 65 28 50 41 52 45 4e 54 56 46 53 28  hname(PARENTVFS(
3eb0: 70 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 6e 4f  pVfs), zPath, nO
3ec0: 75 74 2c 20 7a 4f 75 74 29 3b 0a 7d 0a 0a 23 69  ut, zOut);.}..#i
3ed0: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  fndef SQLITE_OMI
3ee0: 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e  T_LOAD_EXTENSION
3ef0: 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e 20 74 68 65 20  ./*.** Open the 
3f00: 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79 20  dynamic library 
3f10: 6c 6f 63 61 74 65 64 20 61 74 20 7a 50 61 74 68  located at zPath
3f20: 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 68 61   and return a ha
3f30: 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ndle..*/.static 
3f40: 76 6f 69 64 20 2a 74 76 66 73 44 6c 4f 70 65 6e  void *tvfsDlOpen
3f50: 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56  (sqlite3_vfs *pV
3f60: 66 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  fs, const char *
3f70: 7a 50 61 74 68 29 7b 0a 20 20 72 65 74 75 72 6e  zPath){.  return
3f80: 20 73 71 6c 69 74 65 33 4f 73 44 6c 4f 70 65 6e   sqlite3OsDlOpen
3f90: 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29  (PARENTVFS(pVfs)
3fa0: 2c 20 7a 50 61 74 68 29 3b 0a 7d 0a 0a 2f 2a 0a  , zPath);.}../*.
3fb0: 2a 2a 20 50 6f 70 75 6c 61 74 65 20 74 68 65 20  ** Populate the 
3fc0: 62 75 66 66 65 72 20 7a 45 72 72 4d 73 67 20 28  buffer zErrMsg (
3fd0: 73 69 7a 65 20 6e 42 79 74 65 20 62 79 74 65 73  size nByte bytes
3fe0: 29 20 77 69 74 68 20 61 20 68 75 6d 61 6e 20 72  ) with a human r
3ff0: 65 61 64 61 62 6c 65 0a 2a 2a 20 75 74 66 2d 38  eadable.** utf-8
4000: 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69   string describi
4010: 6e 67 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65  ng the most rece
4020: 6e 74 20 65 72 72 6f 72 20 65 6e 63 6f 75 6e 74  nt error encount
4030: 65 72 65 64 20 61 73 73 6f 63 69 61 74 65 64 20  ered associated 
4040: 0a 2a 2a 20 77 69 74 68 20 64 79 6e 61 6d 69 63  .** with dynamic
4050: 20 6c 69 62 72 61 72 69 65 73 2e 0a 2a 2f 0a 73   libraries..*/.s
4060: 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 44  tatic void tvfsD
4070: 6c 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f 76  lError(sqlite3_v
4080: 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e 42  fs *pVfs, int nB
4090: 79 74 65 2c 20 63 68 61 72 20 2a 7a 45 72 72 4d  yte, char *zErrM
40a0: 73 67 29 7b 0a 20 20 73 71 6c 69 74 65 33 4f 73  sg){.  sqlite3Os
40b0: 44 6c 45 72 72 6f 72 28 50 41 52 45 4e 54 56 46  DlError(PARENTVF
40c0: 53 28 70 56 66 73 29 2c 20 6e 42 79 74 65 2c 20  S(pVfs), nByte, 
40d0: 7a 45 72 72 4d 73 67 29 3b 0a 7d 0a 0a 2f 2a 0a  zErrMsg);.}../*.
40e0: 2a 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e  ** Return a poin
40f0: 74 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62 6f  ter to the symbo
4100: 6c 20 7a 53 79 6d 62 6f 6c 20 69 6e 20 74 68 65  l zSymbol in the
4110: 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79   dynamic library
4120: 20 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61   pHandle..*/.sta
4130: 74 69 63 20 76 6f 69 64 20 28 2a 74 76 66 73 44  tic void (*tvfsD
4140: 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f 76 66 73  lSym(sqlite3_vfs
4150: 20 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70 2c   *pVfs, void *p,
4160: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 79   const char *zSy
4170: 6d 29 29 28 76 6f 69 64 29 7b 0a 20 20 72 65 74  m))(void){.  ret
4180: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 44 6c 53  urn sqlite3OsDlS
4190: 79 6d 28 50 41 52 45 4e 54 56 46 53 28 70 56 66  ym(PARENTVFS(pVf
41a0: 73 29 2c 20 70 2c 20 7a 53 79 6d 29 3b 0a 7d 0a  s), p, zSym);.}.
41b0: 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 74 68 65  ./*.** Close the
41c0: 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79   dynamic library
41d0: 20 68 61 6e 64 6c 65 20 70 48 61 6e 64 6c 65 2e   handle pHandle.
41e0: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .*/.static void 
41f0: 74 76 66 73 44 6c 43 6c 6f 73 65 28 73 71 6c 69  tvfsDlClose(sqli
4200: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 76  te3_vfs *pVfs, v
4210: 6f 69 64 20 2a 70 48 61 6e 64 6c 65 29 7b 0a 20  oid *pHandle){. 
4220: 20 73 71 6c 69 74 65 33 4f 73 44 6c 43 6c 6f 73   sqlite3OsDlClos
4230: 65 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  e(PARENTVFS(pVfs
4240: 29 2c 20 70 48 61 6e 64 6c 65 29 3b 0a 7d 0a 23  ), pHandle);.}.#
4250: 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f  endif /* SQLITE_
4260: 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53  OMIT_LOAD_EXTENS
4270: 49 4f 4e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50 6f  ION */../*.** Po
4280: 70 75 6c 61 74 65 20 74 68 65 20 62 75 66 66 65  pulate the buffe
4290: 72 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79 20  r pointed to by 
42a0: 7a 42 75 66 4f 75 74 20 77 69 74 68 20 6e 42 79  zBufOut with nBy
42b0: 74 65 20 62 79 74 65 73 20 6f 66 20 0a 2a 2a 20  te bytes of .** 
42c0: 72 61 6e 64 6f 6d 20 64 61 74 61 2e 0a 2a 2f 0a  random data..*/.
42d0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52  static int tvfsR
42e0: 61 6e 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65  andomness(sqlite
42f0: 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 69 6e 74  3_vfs *pVfs, int
4300: 20 6e 42 79 74 65 2c 20 63 68 61 72 20 2a 7a 42   nByte, char *zB
4310: 75 66 4f 75 74 29 7b 0a 20 20 72 65 74 75 72 6e  ufOut){.  return
4320: 20 73 71 6c 69 74 65 33 4f 73 52 61 6e 64 6f 6d   sqlite3OsRandom
4330: 6e 65 73 73 28 50 41 52 45 4e 54 56 46 53 28 70  ness(PARENTVFS(p
4340: 56 66 73 29 2c 20 6e 42 79 74 65 2c 20 7a 42 75  Vfs), nByte, zBu
4350: 66 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  fOut);.}../*.** 
4360: 53 6c 65 65 70 20 66 6f 72 20 6e 4d 69 63 72 6f  Sleep for nMicro
4370: 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 2e 20 52   microseconds. R
4380: 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 72  eturn the number
4390: 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73   of microseconds
43a0: 20 0a 2a 2a 20 61 63 74 75 61 6c 6c 79 20 73 6c   .** actually sl
43b0: 65 70 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ept..*/.static i
43c0: 6e 74 20 74 76 66 73 53 6c 65 65 70 28 73 71 6c  nt tvfsSleep(sql
43d0: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
43e0: 69 6e 74 20 6e 4d 69 63 72 6f 29 7b 0a 20 20 72  int nMicro){.  r
43f0: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 53  eturn sqlite3OsS
4400: 6c 65 65 70 28 50 41 52 45 4e 54 56 46 53 28 70  leep(PARENTVFS(p
4410: 56 66 73 29 2c 20 6e 4d 69 63 72 6f 29 3b 0a 7d  Vfs), nMicro);.}
4420: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  ../*.** Return t
4430: 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20  he current time 
4440: 61 73 20 61 20 4a 75 6c 69 61 6e 20 44 61 79 20  as a Julian Day 
4450: 6e 75 6d 62 65 72 20 69 6e 20 2a 70 54 69 6d 65  number in *pTime
4460: 4f 75 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  Out..*/.static i
4470: 6e 74 20 74 76 66 73 43 75 72 72 65 6e 74 54 69  nt tvfsCurrentTi
4480: 6d 65 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  me(sqlite3_vfs *
4490: 70 56 66 73 2c 20 64 6f 75 62 6c 65 20 2a 70 54  pVfs, double *pT
44a0: 69 6d 65 4f 75 74 29 7b 0a 20 20 72 65 74 75 72  imeOut){.  retur
44b0: 6e 20 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  n PARENTVFS(pVfs
44c0: 29 2d 3e 78 43 75 72 72 65 6e 74 54 69 6d 65 28  )->xCurrentTime(
44d0: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
44e0: 20 70 54 69 6d 65 4f 75 74 29 3b 0a 7d 0a 0a 73   pTimeOut);.}..s
44f0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68  tatic int tvfsSh
4500: 6d 4f 70 65 6e 28 0a 20 20 73 71 6c 69 74 65 33  mOpen(.  sqlite3
4510: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 44 65 73 0a  _file *pFileDes.
4520: 29 7b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 3b  ){.  Testvfs *p;
4530: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49  .  int rc = SQLI
4540: 54 45 5f 4f 4b 3b 20 20 20 20 20 20 20 20 20 20  TE_OK;          
4550: 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 64     /* Return cod
4560: 65 20 2a 2f 0a 20 20 54 65 73 74 76 66 73 42 75  e */.  TestvfsBu
4570: 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b 20 20  ffer *pBuffer;  
4580: 20 20 20 20 20 20 20 2f 2a 20 42 75 66 66 65 72         /* Buffer
4590: 20 74 6f 20 6f 70 65 6e 20 63 6f 6e 6e 65 63 74   to open connect
45a0: 69 6f 6e 20 74 6f 20 2a 2f 0a 20 20 54 65 73 74  ion to */.  Test
45b0: 76 66 73 46 69 6c 65 20 2a 70 46 64 3b 20 20 20  vfsFile *pFd;   
45c0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54              /* T
45d0: 68 65 20 74 65 73 74 76 66 73 20 66 69 6c 65 20  he testvfs file 
45e0: 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 0a 20 20  structure */..  
45f0: 70 46 64 20 3d 20 28 54 65 73 74 76 66 73 46 69  pFd = (TestvfsFi
4600: 6c 65 2a 29 70 46 69 6c 65 44 65 73 3b 0a 20 20  le*)pFileDes;.  
4610: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 70  p = (Testvfs *)p
4620: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
4630: 74 61 3b 0a 20 20 61 73 73 65 72 74 28 20 70 46  ta;.  assert( pF
4640: 64 2d 3e 70 53 68 6d 49 64 20 26 26 20 70 46 64  d->pShmId && pFd
4650: 2d 3e 70 53 68 6d 3d 3d 30 20 26 26 20 70 46 64  ->pShm==0 && pFd
4660: 2d 3e 70 4e 65 78 74 3d 3d 30 20 29 3b 0a 0a 20  ->pNext==0 );.. 
4670: 20 2f 2a 20 45 76 61 6c 75 61 74 65 20 74 68 65   /* Evaluate the
4680: 20 54 63 6c 20 73 63 72 69 70 74 3a 20 0a 20 20   Tcl script: .  
4690: 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52 49 50 54  **.  **   SCRIPT
46a0: 20 78 53 68 6d 4f 70 65 6e 20 46 49 4c 45 4e 41   xShmOpen FILENA
46b0: 4d 45 0a 20 20 2a 2f 0a 20 20 54 63 6c 5f 52 65  ME.  */.  Tcl_Re
46c0: 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  setResult(p->int
46d0: 65 72 70 29 3b 0a 20 20 69 66 28 20 70 2d 3e 70  erp);.  if( p->p
46e0: 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73  Script && p->mas
46f0: 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4f 50 45  k&TESTVFS_SHMOPE
4700: 4e 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76  N_MASK ){.    tv
4710: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53  fsExecTcl(p, "xS
4720: 68 6d 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77  hmOpen", Tcl_New
4730: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 7a  StringObj(pFd->z
4740: 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c 20 30  Filename, -1), 0
4750: 2c 20 30 29 3b 0a 20 20 20 20 69 66 28 20 74 76  , 0);.    if( tv
4760: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
4770: 26 72 63 29 20 29 7b 0a 20 20 20 20 20 20 69 66  &rc) ){.      if
4780: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
4790: 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20  ) return rc;.   
47a0: 20 7d 0a 20 20 7d 0a 0a 20 20 61 73 73 65 72 74   }.  }..  assert
47b0: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
47c0: 29 3b 0a 20 20 69 66 28 20 70 2d 3e 6d 61 73 6b  );.  if( p->mask
47d0: 26 54 45 53 54 56 46 53 5f 53 48 4d 4f 50 45 4e  &TESTVFS_SHMOPEN
47e0: 5f 4d 41 53 4b 20 26 26 20 74 76 66 73 49 6e 6a  _MASK && tvfsInj
47f0: 65 63 74 49 6f 65 72 72 28 70 29 20 29 7b 0a 20  ectIoerr(p) ){. 
4800: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
4810: 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 0a 20 20 2f  _IOERR;.  }..  /
4820: 2a 20 53 65 61 72 63 68 20 66 6f 72 20 61 20 54  * Search for a T
4830: 65 73 74 76 66 73 42 75 66 66 65 72 2e 20 43 72  estvfsBuffer. Cr
4840: 65 61 74 65 20 61 20 6e 65 77 20 6f 6e 65 20 69  eate a new one i
4850: 66 20 72 65 71 75 69 72 65 64 2e 20 2a 2f 0a 20  f required. */. 
4860: 20 66 6f 72 28 70 42 75 66 66 65 72 3d 70 2d 3e   for(pBuffer=p->
4870: 70 42 75 66 66 65 72 3b 20 70 42 75 66 66 65 72  pBuffer; pBuffer
4880: 3b 20 70 42 75 66 66 65 72 3d 70 42 75 66 66 65  ; pBuffer=pBuffe
4890: 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 69  r->pNext){.    i
48a0: 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 70 46 64  f( 0==strcmp(pFd
48b0: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 70 42 75  ->zFilename, pBu
48c0: 66 66 65 72 2d 3e 7a 46 69 6c 65 29 20 29 20 62  ffer->zFile) ) b
48d0: 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 69 66 28 20  reak;.  }.  if( 
48e0: 21 70 42 75 66 66 65 72 20 29 7b 0a 20 20 20 20  !pBuffer ){.    
48f0: 69 6e 74 20 6e 42 79 74 65 20 3d 20 73 69 7a 65  int nByte = size
4900: 6f 66 28 54 65 73 74 76 66 73 42 75 66 66 65 72  of(TestvfsBuffer
4910: 29 20 2b 20 73 74 72 6c 65 6e 28 70 46 64 2d 3e  ) + strlen(pFd->
4920: 7a 46 69 6c 65 6e 61 6d 65 29 20 2b 20 31 3b 0a  zFilename) + 1;.
4930: 20 20 20 20 70 42 75 66 66 65 72 20 3d 20 28 54      pBuffer = (T
4940: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 29 63  estvfsBuffer *)c
4950: 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20  kalloc(nByte);. 
4960: 20 20 20 6d 65 6d 73 65 74 28 70 42 75 66 66 65     memset(pBuffe
4970: 72 2c 20 30 2c 20 6e 42 79 74 65 29 3b 0a 20 20  r, 0, nByte);.  
4980: 20 20 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65    pBuffer->zFile
4990: 20 3d 20 28 63 68 61 72 20 2a 29 26 70 42 75 66   = (char *)&pBuf
49a0: 66 65 72 5b 31 5d 3b 0a 20 20 20 20 73 74 72 63  fer[1];.    strc
49b0: 70 79 28 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c  py(pBuffer->zFil
49c0: 65 2c 20 70 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d  e, pFd->zFilenam
49d0: 65 29 3b 0a 20 20 20 20 70 42 75 66 66 65 72 2d  e);.    pBuffer-
49e0: 3e 70 4e 65 78 74 20 3d 20 70 2d 3e 70 42 75 66  >pNext = p->pBuf
49f0: 66 65 72 3b 0a 20 20 20 20 70 2d 3e 70 42 75 66  fer;.    p->pBuf
4a00: 66 65 72 20 3d 20 70 42 75 66 66 65 72 3b 0a 20  fer = pBuffer;. 
4a10: 20 7d 0a 0a 20 20 2f 2a 20 43 6f 6e 6e 65 63 74   }..  /* Connect
4a20: 20 74 68 65 20 54 65 73 74 76 66 73 42 75 66 66   the TestvfsBuff
4a30: 65 72 20 74 6f 20 74 68 65 20 6e 65 77 20 54 65  er to the new Te
4a40: 73 74 76 66 73 53 68 6d 20 68 61 6e 64 6c 65 20  stvfsShm handle 
4a50: 61 6e 64 20 72 65 74 75 72 6e 2e 20 2a 2f 0a 20  and return. */. 
4a60: 20 70 46 64 2d 3e 70 4e 65 78 74 20 3d 20 70 42   pFd->pNext = pB
4a70: 75 66 66 65 72 2d 3e 70 46 69 6c 65 3b 0a 20 20  uffer->pFile;.  
4a80: 70 42 75 66 66 65 72 2d 3e 70 46 69 6c 65 20 3d  pBuffer->pFile =
4a90: 20 70 46 64 3b 0a 20 20 70 46 64 2d 3e 70 53 68   pFd;.  pFd->pSh
4aa0: 6d 20 3d 20 70 42 75 66 66 65 72 3b 0a 20 20 72  m = pBuffer;.  r
4ab0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b  eturn SQLITE_OK;
4ac0: 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20  .}..static void 
4ad0: 74 76 66 73 41 6c 6c 6f 63 50 61 67 65 28 54 65  tvfsAllocPage(Te
4ae0: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 2c 20  stvfsBuffer *p, 
4af0: 69 6e 74 20 69 50 61 67 65 2c 20 69 6e 74 20 70  int iPage, int p
4b00: 67 73 7a 29 7b 0a 20 20 61 73 73 65 72 74 28 20  gsz){.  assert( 
4b10: 69 50 61 67 65 3c 54 45 53 54 56 46 53 5f 4d 41  iPage<TESTVFS_MA
4b20: 58 5f 50 41 47 45 53 20 29 3b 0a 20 20 69 66 28  X_PAGES );.  if(
4b30: 20 70 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d   p->aPage[iPage]
4b40: 3d 3d 30 20 29 7b 0a 20 20 20 20 70 2d 3e 61 50  ==0 ){.    p->aP
4b50: 61 67 65 5b 69 50 61 67 65 5d 20 3d 20 28 75 38  age[iPage] = (u8
4b60: 20 2a 29 63 6b 61 6c 6c 6f 63 28 70 67 73 7a 29   *)ckalloc(pgsz)
4b70: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 2d 3e  ;.    memset(p->
4b80: 61 50 61 67 65 5b 69 50 61 67 65 5d 2c 20 30 2c  aPage[iPage], 0,
4b90: 20 70 67 73 7a 29 3b 0a 20 20 20 20 70 2d 3e 70   pgsz);.    p->p
4ba0: 67 73 7a 20 3d 20 70 67 73 7a 3b 0a 20 20 7d 0a  gsz = pgsz;.  }.
4bb0: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  }..static int tv
4bc0: 66 73 53 68 6d 4d 61 70 28 0a 20 20 73 71 6c 69  fsShmMap(.  sqli
4bd0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
4be0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 48              /* H
4bf0: 61 6e 64 6c 65 20 6f 70 65 6e 20 6f 6e 20 64 61  andle open on da
4c00: 74 61 62 61 73 65 20 66 69 6c 65 20 2a 2f 0a 20  tabase file */. 
4c10: 20 69 6e 74 20 69 50 61 67 65 2c 20 20 20 20 20   int iPage,     
4c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c30: 20 2f 2a 20 50 61 67 65 20 74 6f 20 72 65 74 72   /* Page to retr
4c40: 69 65 76 65 20 2a 2f 0a 20 20 69 6e 74 20 70 67  ieve */.  int pg
4c50: 73 7a 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  sz,             
4c60: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 69 7a            /* Siz
4c70: 65 20 6f 66 20 70 61 67 65 73 20 2a 2f 0a 20 20  e of pages */.  
4c80: 69 6e 74 20 69 73 57 72 69 74 65 2c 20 20 20 20  int isWrite,    
4c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ca0: 2f 2a 20 54 72 75 65 20 74 6f 20 65 78 74 65 6e  /* True to exten
4cb0: 64 20 66 69 6c 65 20 69 66 20 6e 65 63 65 73 73  d file if necess
4cc0: 61 72 79 20 2a 2f 0a 20 20 76 6f 69 64 20 76 6f  ary */.  void vo
4cd0: 6c 61 74 69 6c 65 20 2a 2a 70 70 20 20 20 20 20  latile **pp     
4ce0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4f 55 54 3a           /* OUT:
4cf0: 20 4d 61 70 70 65 64 20 6d 65 6d 6f 72 79 20 2a   Mapped memory *
4d00: 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  /.){.  int rc = 
4d10: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
4d20: 74 76 66 73 46 69 6c 65 20 2a 70 46 64 20 3d 20  tvfsFile *pFd = 
4d30: 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70  (TestvfsFile *)p
4d40: 46 69 6c 65 3b 0a 20 20 54 65 73 74 76 66 73 20  File;.  Testvfs 
4d50: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
4d60: 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70  (pFd->pVfs->pApp
4d70: 44 61 74 61 29 3b 0a 0a 20 20 69 66 28 20 70 2d  Data);..  if( p-
4d80: 3e 70 53 63 72 69 70 74 20 26 26 20 70 2d 3e 6d  >pScript && p->m
4d90: 61 73 6b 26 54 45 53 54 56 46 53 5f 53 48 4d 4d  ask&TESTVFS_SHMM
4da0: 41 50 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 54  AP_MASK ){.    T
4db0: 63 6c 5f 4f 62 6a 20 2a 70 41 72 67 20 3d 20 54  cl_Obj *pArg = T
4dc0: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20  cl_NewObj();.   
4dd0: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e   Tcl_IncrRefCoun
4de0: 74 28 70 41 72 67 29 3b 0a 20 20 20 20 54 63 6c  t(pArg);.    Tcl
4df0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
4e00: 65 6d 65 6e 74 28 70 2d 3e 69 6e 74 65 72 70 2c  ement(p->interp,
4e10: 20 70 41 72 67 2c 20 54 63 6c 5f 4e 65 77 49 6e   pArg, Tcl_NewIn
4e20: 74 4f 62 6a 28 69 50 61 67 65 29 29 3b 0a 20 20  tObj(iPage));.  
4e30: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
4e40: 65 6e 64 45 6c 65 6d 65 6e 74 28 70 2d 3e 69 6e  endElement(p->in
4e50: 74 65 72 70 2c 20 70 41 72 67 2c 20 54 63 6c 5f  terp, pArg, Tcl_
4e60: 4e 65 77 49 6e 74 4f 62 6a 28 70 67 73 7a 29 29  NewIntObj(pgsz))
4e70: 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ;.    Tcl_ListOb
4e80: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 70  jAppendElement(p
4e90: 2d 3e 69 6e 74 65 72 70 2c 20 70 41 72 67 2c 20  ->interp, pArg, 
4ea0: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 69 73  Tcl_NewIntObj(is
4eb0: 57 72 69 74 65 29 29 3b 0a 20 20 20 20 74 76 66  Write));.    tvf
4ec0: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68  sExecTcl(p, "xSh
4ed0: 6d 4d 61 70 22 2c 20 0a 20 20 20 20 20 20 20 20  mMap", .        
4ee0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
4ef0: 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c  (pFd->pShm->zFil
4f00: 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68  e, -1), pFd->pSh
4f10: 6d 49 64 2c 20 70 41 72 67 0a 20 20 20 20 29 3b  mId, pArg.    );
4f20: 0a 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43  .    tvfsResultC
4f30: 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 20  ode(p, &rc);.   
4f40: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e   Tcl_DecrRefCoun
4f50: 74 28 70 41 72 67 29 3b 0a 20 20 7d 0a 20 20 69  t(pArg);.  }.  i
4f60: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
4f70: 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54 45 53 54   && p->mask&TEST
4f80: 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20  VFS_SHMMAP_MASK 
4f90: 26 26 20 74 76 66 73 49 6e 6a 65 63 74 49 6f 65  && tvfsInjectIoe
4fa0: 72 72 28 70 29 20 29 7b 0a 20 20 20 20 72 63 20  rr(p) ){.    rc 
4fb0: 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a  = SQLITE_IOERR;.
4fc0: 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d 53    }..  if( rc==S
4fd0: 51 4c 49 54 45 5f 4f 4b 20 26 26 20 69 73 57 72  QLITE_OK && isWr
4fe0: 69 74 65 20 26 26 20 21 70 46 64 2d 3e 70 53 68  ite && !pFd->pSh
4ff0: 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67 65 5d 20  m->aPage[iPage] 
5000: 29 7b 0a 20 20 20 20 74 76 66 73 41 6c 6c 6f 63  ){.    tvfsAlloc
5010: 50 61 67 65 28 70 46 64 2d 3e 70 53 68 6d 2c 20  Page(pFd->pShm, 
5020: 69 50 61 67 65 2c 20 70 67 73 7a 29 3b 0a 20 20  iPage, pgsz);.  
5030: 7d 0a 20 20 2a 70 70 20 3d 20 28 76 6f 69 64 20  }.  *pp = (void 
5040: 76 6f 6c 61 74 69 6c 65 20 2a 29 70 46 64 2d 3e  volatile *)pFd->
5050: 70 53 68 6d 2d 3e 61 50 61 67 65 5b 69 50 61 67  pShm->aPage[iPag
5060: 65 5d 3b 0a 0a 20 20 72 65 74 75 72 6e 20 72 63  e];..  return rc
5070: 3b 0a 7d 0a 0a 0a 73 74 61 74 69 63 20 69 6e 74  ;.}...static int
5080: 20 74 76 66 73 53 68 6d 4c 6f 63 6b 28 0a 20 20   tvfsShmLock(.  
5090: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
50a0: 69 6c 65 2c 0a 20 20 69 6e 74 20 6f 66 73 74 2c  ile,.  int ofst,
50b0: 0a 20 20 69 6e 74 20 6e 2c 0a 20 20 69 6e 74 20  .  int n,.  int 
50c0: 66 6c 61 67 73 0a 29 7b 0a 20 20 69 6e 74 20 72  flags.){.  int r
50d0: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
50e0: 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70 46   TestvfsFile *pF
50f0: 64 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65  d = (TestvfsFile
5100: 20 2a 29 70 46 69 6c 65 3b 0a 20 20 54 65 73 74   *)pFile;.  Test
5110: 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66  vfs *p = (Testvf
5120: 73 20 2a 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e  s *)(pFd->pVfs->
5130: 70 41 70 70 44 61 74 61 29 3b 0a 20 20 69 6e 74  pAppData);.  int
5140: 20 6e 4c 6f 63 6b 3b 0a 20 20 63 68 61 72 20 7a   nLock;.  char z
5150: 4c 6f 63 6b 5b 38 30 5d 3b 0a 0a 20 20 69 66 28  Lock[80];..  if(
5160: 20 70 2d 3e 70 53 63 72 69 70 74 20 26 26 20 70   p->pScript && p
5170: 2d 3e 6d 61 73 6b 26 54 45 53 54 56 46 53 5f 53  ->mask&TESTVFS_S
5180: 48 4d 4c 4f 43 4b 5f 4d 41 53 4b 20 29 7b 0a 20  HMLOCK_MASK ){. 
5190: 20 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72 69     sqlite3_snpri
51a0: 6e 74 66 28 73 69 7a 65 6f 66 28 7a 4c 6f 63 6b  ntf(sizeof(zLock
51b0: 29 2c 20 7a 4c 6f 63 6b 2c 20 22 25 64 20 25 64  ), zLock, "%d %d
51c0: 22 2c 20 6f 66 73 74 2c 20 6e 29 3b 0a 20 20 20  ", ofst, n);.   
51d0: 20 6e 4c 6f 63 6b 20 3d 20 73 74 72 6c 65 6e 28   nLock = strlen(
51e0: 7a 4c 6f 63 6b 29 3b 0a 20 20 20 20 69 66 28 20  zLock);.    if( 
51f0: 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 53  flags & SQLITE_S
5200: 48 4d 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 20  HM_LOCK ){.     
5210: 20 73 74 72 63 70 79 28 26 7a 4c 6f 63 6b 5b 6e   strcpy(&zLock[n
5220: 4c 6f 63 6b 5d 2c 20 22 20 6c 6f 63 6b 22 29 3b  Lock], " lock");
5230: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
5240: 20 20 73 74 72 63 70 79 28 26 7a 4c 6f 63 6b 5b    strcpy(&zLock[
5250: 6e 4c 6f 63 6b 5d 2c 20 22 20 75 6e 6c 6f 63 6b  nLock], " unlock
5260: 22 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6e 4c  ");.    }.    nL
5270: 6f 63 6b 20 2b 3d 20 73 74 72 6c 65 6e 28 26 7a  ock += strlen(&z
5280: 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 29 3b 0a 20 20  Lock[nLock]);.  
5290: 20 20 69 66 28 20 66 6c 61 67 73 20 26 20 53 51    if( flags & SQ
52a0: 4c 49 54 45 5f 53 48 4d 5f 53 48 41 52 45 44 20  LITE_SHM_SHARED 
52b0: 29 7b 0a 20 20 20 20 20 20 73 74 72 63 70 79 28  ){.      strcpy(
52c0: 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d 2c 20 22  &zLock[nLock], "
52d0: 20 73 68 61 72 65 64 22 29 3b 0a 20 20 20 20 7d   shared");.    }
52e0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 73 74 72 63  else{.      strc
52f0: 70 79 28 26 7a 4c 6f 63 6b 5b 6e 4c 6f 63 6b 5d  py(&zLock[nLock]
5300: 2c 20 22 20 65 78 63 6c 75 73 69 76 65 22 29 3b  , " exclusive");
5310: 0a 20 20 20 20 7d 0a 20 20 20 20 74 76 66 73 45  .    }.    tvfsE
5320: 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d 4c  xecTcl(p, "xShmL
5330: 6f 63 6b 22 2c 20 0a 20 20 20 20 20 20 20 20 54  ock", .        T
5340: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
5350: 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65  pFd->pShm->zFile
5360: 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53 68 6d  , -1), pFd->pShm
5370: 49 64 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  Id,.        Tcl_
5380: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4c 6f  NewStringObj(zLo
5390: 63 6b 2c 20 2d 31 29 0a 20 20 20 20 29 3b 0a 20  ck, -1).    );. 
53a0: 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64     tvfsResultCod
53b0: 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a 0a  e(p, &rc);.  }..
53c0: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
53d0: 5f 4f 4b 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  _OK && p->mask&T
53e0: 45 53 54 56 46 53 5f 53 48 4d 4c 4f 43 4b 5f 4d  ESTVFS_SHMLOCK_M
53f0: 41 53 4b 20 26 26 20 74 76 66 73 49 6e 6a 65 63  ASK && tvfsInjec
5400: 74 49 6f 65 72 72 28 70 29 20 29 7b 0a 20 20 20  tIoerr(p) ){.   
5410: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45   rc = SQLITE_IOE
5420: 52 52 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72  RR;.  }..  if( r
5430: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a  c==SQLITE_OK ){.
5440: 20 20 20 20 69 6e 74 20 69 73 4c 6f 63 6b 20 3d      int isLock =
5450: 20 28 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45   (flags & SQLITE
5460: 5f 53 48 4d 5f 4c 4f 43 4b 29 3b 0a 20 20 20 20  _SHM_LOCK);.    
5470: 69 6e 74 20 69 73 45 78 63 6c 20 3d 20 28 66 6c  int isExcl = (fl
5480: 61 67 73 20 26 20 53 51 4c 49 54 45 5f 53 48 4d  ags & SQLITE_SHM
5490: 5f 45 58 43 4c 55 53 49 56 45 29 3b 0a 20 20 20  _EXCLUSIVE);.   
54a0: 20 75 33 32 20 6d 61 73 6b 20 3d 20 28 28 28 31   u32 mask = (((1
54b0: 3c 3c 6e 29 2d 31 29 20 3c 3c 20 6f 66 73 74 29  <<n)-1) << ofst)
54c0: 3b 0a 20 20 20 20 69 66 28 20 69 73 4c 6f 63 6b  ;.    if( isLock
54d0: 20 29 7b 0a 20 20 20 20 20 20 54 65 73 74 76 66   ){.      Testvf
54e0: 73 46 69 6c 65 20 2a 70 32 3b 0a 20 20 20 20 20  sFile *p2;.     
54f0: 20 66 6f 72 28 70 32 3d 70 46 64 2d 3e 70 53 68   for(p2=pFd->pSh
5500: 6d 2d 3e 70 46 69 6c 65 3b 20 70 32 3b 20 70 32  m->pFile; p2; p2
5510: 3d 70 32 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20  =p2->pNext){.   
5520: 20 20 20 20 20 69 66 28 20 70 32 3d 3d 70 46 64       if( p2==pFd
5530: 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20   ) continue;.   
5540: 20 20 20 20 20 69 66 28 20 28 70 32 2d 3e 65 78       if( (p2->ex
5550: 63 6c 6c 6f 63 6b 26 6d 61 73 6b 29 20 7c 7c 20  cllock&mask) || 
5560: 28 69 73 45 78 63 6c 20 26 26 20 70 32 2d 3e 73  (isExcl && p2->s
5570: 68 61 72 65 64 6c 6f 63 6b 26 6d 61 73 6b 29 20  haredlock&mask) 
5580: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20  ){.          rc 
5590: 3d 20 53 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20  = SQLITE_BUSY;. 
55a0: 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a           break;.
55b0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
55c0: 7d 0a 20 20 20 20 20 20 69 66 28 20 72 63 3d 3d  }.      if( rc==
55d0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20  SQLITE_OK ){.   
55e0: 20 20 20 20 20 69 66 28 20 69 73 45 78 63 6c 20       if( isExcl 
55f0: 29 20 20 70 46 64 2d 3e 65 78 63 6c 6c 6f 63 6b  )  pFd->excllock
5600: 20 7c 3d 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20   |= mask;.      
5610: 20 20 69 66 28 20 21 69 73 45 78 63 6c 20 29 20    if( !isExcl ) 
5620: 70 46 64 2d 3e 73 68 61 72 65 64 6c 6f 63 6b 20  pFd->sharedlock 
5630: 7c 3d 20 6d 61 73 6b 3b 0a 20 20 20 20 20 20 7d  |= mask;.      }
5640: 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  .    }else{.    
5650: 20 20 69 66 28 20 69 73 45 78 63 6c 20 29 20 20    if( isExcl )  
5660: 70 46 64 2d 3e 65 78 63 6c 6c 6f 63 6b 20 26 3d  pFd->excllock &=
5670: 20 28 7e 6d 61 73 6b 29 3b 0a 20 20 20 20 20 20   (~mask);.      
5680: 69 66 28 20 21 69 73 45 78 63 6c 20 29 20 70 46  if( !isExcl ) pF
5690: 64 2d 3e 73 68 61 72 65 64 6c 6f 63 6b 20 26 3d  d->sharedlock &=
56a0: 20 28 7e 6d 61 73 6b 29 3b 0a 20 20 20 20 7d 0a   (~mask);.    }.
56b0: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63    }..  return rc
56c0: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64  ;.}..static void
56d0: 20 74 76 66 73 53 68 6d 42 61 72 72 69 65 72 28   tvfsShmBarrier(
56e0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
56f0: 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66 73 46  ile){.  TestvfsF
5700: 69 6c 65 20 2a 70 46 64 20 3d 20 28 54 65 73 74  ile *pFd = (Test
5710: 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b  vfsFile *)pFile;
5720: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
5730: 28 54 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d  (Testvfs *)(pFd-
5740: 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29  >pVfs->pAppData)
5750: 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63 72  ;..  if( p->pScr
5760: 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26 54  ipt && p->mask&T
5770: 45 53 54 56 46 53 5f 53 48 4d 42 41 52 52 49 45  ESTVFS_SHMBARRIE
5780: 52 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76  R_MASK ){.    tv
5790: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53  fsExecTcl(p, "xS
57a0: 68 6d 42 61 72 72 69 65 72 22 2c 20 0a 20 20 20  hmBarrier", .   
57b0: 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69       Tcl_NewStri
57c0: 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68 6d 2d  ngObj(pFd->pShm-
57d0: 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 46 64  >zFile, -1), pFd
57e0: 2d 3e 70 53 68 6d 49 64 2c 20 30 0a 20 20 20 20  ->pShmId, 0.    
57f0: 29 3b 0a 20 20 7d 0a 7d 0a 0a 73 74 61 74 69 63  );.  }.}..static
5800: 20 69 6e 74 20 74 76 66 73 53 68 6d 43 6c 6f 73   int tvfsShmClos
5810: 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  e(.  sqlite3_fil
5820: 65 20 2a 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20  e *pFile,.  int 
5830: 64 65 6c 65 74 65 46 6c 61 67 0a 29 7b 0a 20 20  deleteFlag.){.  
5840: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  int rc = SQLITE_
5850: 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 69 6c  OK;.  TestvfsFil
5860: 65 20 2a 70 46 64 20 3d 20 28 54 65 73 74 76 66  e *pFd = (Testvf
5870: 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20  sFile *)pFile;. 
5880: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
5890: 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70  estvfs *)(pFd->p
58a0: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a  Vfs->pAppData);.
58b0: 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72 20    TestvfsBuffer 
58c0: 2a 70 42 75 66 66 65 72 20 3d 20 70 46 64 2d 3e  *pBuffer = pFd->
58d0: 70 53 68 6d 3b 0a 20 20 54 65 73 74 76 66 73 46  pShm;.  TestvfsF
58e0: 69 6c 65 20 2a 2a 70 70 46 64 3b 0a 0a 20 20 61  ile **ppFd;..  a
58f0: 73 73 65 72 74 28 20 70 46 64 2d 3e 70 53 68 6d  ssert( pFd->pShm
5900: 49 64 20 26 26 20 70 46 64 2d 3e 70 53 68 6d 20  Id && pFd->pShm 
5910: 29 3b 0a 0a 20 20 69 66 28 20 70 2d 3e 70 53 63  );..  if( p->pSc
5920: 72 69 70 74 20 26 26 20 70 2d 3e 6d 61 73 6b 26  ript && p->mask&
5930: 54 45 53 54 56 46 53 5f 53 48 4d 43 4c 4f 53 45  TESTVFS_SHMCLOSE
5940: 5f 4d 41 53 4b 20 29 7b 0a 20 20 20 20 74 76 66  _MASK ){.    tvf
5950: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68  sExecTcl(p, "xSh
5960: 6d 43 6c 6f 73 65 22 2c 20 0a 20 20 20 20 20 20  mClose", .      
5970: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
5980: 62 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46  bj(pFd->pShm->zF
5990: 69 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70  ile, -1), pFd->p
59a0: 53 68 6d 49 64 2c 20 30 0a 20 20 20 20 29 3b 0a  ShmId, 0.    );.
59b0: 20 20 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f      tvfsResultCo
59c0: 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 7d 0a  de(p, &rc);.  }.
59d0: 0a 20 20 66 6f 72 28 70 70 46 64 3d 26 70 42 75  .  for(ppFd=&pBu
59e0: 66 66 65 72 2d 3e 70 46 69 6c 65 3b 20 2a 70 70  ffer->pFile; *pp
59f0: 46 64 21 3d 70 46 64 3b 20 70 70 46 64 3d 26 28  Fd!=pFd; ppFd=&(
5a00: 28 2a 70 70 46 64 29 2d 3e 70 4e 65 78 74 29 29  (*ppFd)->pNext))
5a10: 3b 0a 20 20 61 73 73 65 72 74 28 20 28 2a 70 70  ;.  assert( (*pp
5a20: 46 64 29 3d 3d 70 46 64 20 29 3b 0a 20 20 2a 70  Fd)==pFd );.  *p
5a30: 70 46 64 20 3d 20 70 46 64 2d 3e 70 4e 65 78 74  pFd = pFd->pNext
5a40: 3b 0a 0a 20 20 69 66 28 20 70 42 75 66 66 65 72  ;..  if( pBuffer
5a50: 2d 3e 70 46 69 6c 65 3d 3d 30 20 29 7b 0a 20 20  ->pFile==0 ){.  
5a60: 20 20 69 6e 74 20 69 3b 0a 20 20 20 20 54 65 73    int i;.    Tes
5a70: 74 76 66 73 42 75 66 66 65 72 20 2a 2a 70 70 3b  tvfsBuffer **pp;
5a80: 0a 20 20 20 20 66 6f 72 28 70 70 3d 26 70 2d 3e  .    for(pp=&p->
5a90: 70 42 75 66 66 65 72 3b 20 2a 70 70 21 3d 70 42  pBuffer; *pp!=pB
5aa0: 75 66 66 65 72 3b 20 70 70 3d 26 28 28 2a 70 70  uffer; pp=&((*pp
5ab0: 29 2d 3e 70 4e 65 78 74 29 29 3b 0a 20 20 20 20  )->pNext));.    
5ac0: 2a 70 70 20 3d 20 28 2a 70 70 29 2d 3e 70 4e 65  *pp = (*pp)->pNe
5ad0: 78 74 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b  xt;.    for(i=0;
5ae0: 20 70 42 75 66 66 65 72 2d 3e 61 50 61 67 65 5b   pBuffer->aPage[
5af0: 69 5d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20  i]; i++){.      
5b00: 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 70  ckfree((char *)p
5b10: 42 75 66 66 65 72 2d 3e 61 50 61 67 65 5b 69 5d  Buffer->aPage[i]
5b20: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6b 66  );.    }.    ckf
5b30: 72 65 65 28 28 63 68 61 72 20 2a 29 70 42 75 66  ree((char *)pBuf
5b40: 66 65 72 29 3b 0a 20 20 7d 0a 20 20 70 46 64 2d  fer);.  }.  pFd-
5b50: 3e 70 53 68 6d 20 3d 20 30 3b 0a 0a 20 20 72 65  >pShm = 0;..  re
5b60: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74  turn rc;.}..stat
5b70: 69 63 20 69 6e 74 20 74 65 73 74 76 66 73 5f 6f  ic int testvfs_o
5b80: 62 6a 5f 63 6d 64 28 0a 20 20 43 6c 69 65 6e 74  bj_cmd(.  Client
5b90: 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c 5f 49  Data cd,.  Tcl_I
5ba0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20  nterp *interp,. 
5bb0: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c   int objc,.  Tcl
5bc0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
5bd0: 5b 5d 0a 29 7b 0a 20 20 54 65 73 74 76 66 73 20  [].){.  Testvfs 
5be0: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
5bf0: 63 64 3b 0a 0a 20 20 65 6e 75 6d 20 44 42 5f 65  cd;..  enum DB_e
5c00: 6e 75 6d 20 7b 20 0a 20 20 20 20 43 4d 44 5f 53  num { .    CMD_S
5c10: 48 4d 2c 20 43 4d 44 5f 44 45 4c 45 54 45 2c 20  HM, CMD_DELETE, 
5c20: 43 4d 44 5f 46 49 4c 54 45 52 2c 20 43 4d 44 5f  CMD_FILTER, CMD_
5c30: 49 4f 45 52 52 2c 20 43 4d 44 5f 53 43 52 49 50  IOERR, CMD_SCRIP
5c40: 54 2c 20 0a 20 20 20 20 43 4d 44 5f 44 45 56 43  T, .    CMD_DEVC
5c50: 48 41 52 2c 20 43 4d 44 5f 53 45 43 54 4f 52 53  HAR, CMD_SECTORS
5c60: 49 5a 45 2c 20 43 4d 44 5f 46 55 4c 4c 45 52 52  IZE, CMD_FULLERR
5c70: 0a 20 20 7d 3b 0a 20 20 73 74 72 75 63 74 20 54  .  };.  struct T
5c80: 65 73 74 76 66 73 53 75 62 63 6d 64 20 7b 0a 20  estvfsSubcmd {. 
5c90: 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a     char *zName;.
5ca0: 20 20 20 20 65 6e 75 6d 20 44 42 5f 65 6e 75 6d      enum DB_enum
5cb0: 20 65 43 6d 64 3b 0a 20 20 7d 20 61 53 75 62 63   eCmd;.  } aSubc
5cc0: 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 22  md[] = {.    { "
5cd0: 73 68 6d 22 2c 20 20 20 20 20 20 20 20 43 4d 44  shm",        CMD
5ce0: 5f 53 48 4d 20 20 20 20 20 20 20 20 7d 2c 0a 20  _SHM        },. 
5cf0: 20 20 20 7b 20 22 64 65 6c 65 74 65 22 2c 20 20     { "delete",  
5d00: 20 20 20 43 4d 44 5f 44 45 4c 45 54 45 20 20 20     CMD_DELETE   
5d10: 20 20 7d 2c 0a 20 20 20 20 7b 20 22 66 69 6c 74    },.    { "filt
5d20: 65 72 22 2c 20 20 20 20 20 43 4d 44 5f 46 49 4c  er",     CMD_FIL
5d30: 54 45 52 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  TER     },.    {
5d40: 20 22 69 6f 65 72 72 22 2c 20 20 20 20 20 20 43   "ioerr",      C
5d50: 4d 44 5f 49 4f 45 52 52 20 20 20 20 20 20 7d 2c  MD_IOERR      },
5d60: 0a 20 20 20 20 7b 20 22 66 75 6c 6c 65 72 72 22  .    { "fullerr"
5d70: 2c 20 20 20 20 43 4d 44 5f 46 55 4c 4c 45 52 52  ,    CMD_FULLERR
5d80: 20 20 20 20 7d 2c 0a 20 20 20 20 7b 20 22 73 63      },.    { "sc
5d90: 72 69 70 74 22 2c 20 20 20 20 20 43 4d 44 5f 53  ript",     CMD_S
5da0: 43 52 49 50 54 20 20 20 20 20 7d 2c 0a 20 20 20  CRIPT     },.   
5db0: 20 7b 20 22 64 65 76 63 68 61 72 22 2c 20 20 20   { "devchar",   
5dc0: 20 43 4d 44 5f 44 45 56 43 48 41 52 20 20 20 20   CMD_DEVCHAR    
5dd0: 7d 2c 0a 20 20 20 20 7b 20 22 73 65 63 74 6f 72  },.    { "sector
5de0: 73 69 7a 65 22 2c 20 43 4d 44 5f 53 45 43 54 4f  size", CMD_SECTO
5df0: 52 53 49 5a 45 20 7d 2c 0a 20 20 20 20 7b 20 30  RSIZE },.    { 0
5e00: 2c 20 30 20 7d 0a 20 20 7d 3b 0a 20 20 69 6e 74  , 0 }.  };.  int
5e10: 20 69 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a   i;.  .  if( obj
5e20: 63 3c 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57  c<2 ){.    Tcl_W
5e30: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
5e40: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 55  rp, 1, objv, "SU
5e50: 42 43 4f 4d 4d 41 4e 44 20 2e 2e 2e 22 29 3b 0a  BCOMMAND ...");.
5e60: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
5e70: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20  RROR;.  }.  if( 
5e80: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d  Tcl_GetIndexFrom
5e90: 4f 62 6a 53 74 72 75 63 74 28 0a 20 20 20 20 20  ObjStruct(.     
5ea0: 20 20 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b     interp, objv[
5eb0: 31 5d 2c 20 61 53 75 62 63 6d 64 2c 20 73 69 7a  1], aSubcmd, siz
5ec0: 65 6f 66 28 61 53 75 62 63 6d 64 5b 30 5d 29 2c  eof(aSubcmd[0]),
5ed0: 20 22 73 75 62 63 6f 6d 6d 61 6e 64 22 2c 20 30   "subcommand", 0
5ee0: 2c 20 26 69 29 20 0a 20 20 29 7b 0a 20 20 20 20  , &i) .  ){.    
5ef0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
5f00: 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 52 65 73 65  ;.  }.  Tcl_Rese
5f10: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b  tResult(interp);
5f20: 0a 0a 20 20 73 77 69 74 63 68 28 20 61 53 75 62  ..  switch( aSub
5f30: 63 6d 64 5b 69 5d 2e 65 43 6d 64 20 29 7b 0a 20  cmd[i].eCmd ){. 
5f40: 20 20 20 63 61 73 65 20 43 4d 44 5f 53 48 4d 3a     case CMD_SHM:
5f50: 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a   {.      Tcl_Obj
5f60: 20 2a 70 4f 62 6a 3b 0a 20 20 20 20 20 20 69 6e   *pObj;.      in
5f70: 74 20 69 3b 0a 20 20 20 20 20 20 54 65 73 74 76  t i;.      Testv
5f80: 66 73 42 75 66 66 65 72 20 2a 70 42 75 66 66 65  fsBuffer *pBuffe
5f90: 72 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a  r;.      char *z
5fa0: 4e 61 6d 65 3b 0a 20 20 20 20 20 20 69 66 28 20  Name;.      if( 
5fb0: 6f 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 21  objc!=3 && objc!
5fc0: 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63  =4 ){.        Tc
5fd0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
5fe0: 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20  nterp, 2, objv, 
5ff0: 22 46 49 4c 45 20 3f 56 41 4c 55 45 3f 22 29 3b  "FILE ?VALUE?");
6000: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
6010: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
6020: 20 7d 0a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d   }.      zName =
6030: 20 63 6b 61 6c 6c 6f 63 28 70 2d 3e 70 50 61 72   ckalloc(p->pPar
6040: 65 6e 74 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 29  ent->mxPathname)
6050: 3b 0a 20 20 20 20 20 20 70 2d 3e 70 50 61 72 65  ;.      p->pPare
6060: 6e 74 2d 3e 78 46 75 6c 6c 50 61 74 68 6e 61 6d  nt->xFullPathnam
6070: 65 28 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e  e(.          p->
6080: 70 50 61 72 65 6e 74 2c 20 54 63 6c 5f 47 65 74  pParent, Tcl_Get
6090: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 2c  String(objv[2]),
60a0: 20 0a 20 20 20 20 20 20 20 20 20 20 70 2d 3e 70   .          p->p
60b0: 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74 68 6e 61  Parent->mxPathna
60c0: 6d 65 2c 20 7a 4e 61 6d 65 0a 20 20 20 20 20 20  me, zName.      
60d0: 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 70 42 75  );.      for(pBu
60e0: 66 66 65 72 3d 70 2d 3e 70 42 75 66 66 65 72 3b  ffer=p->pBuffer;
60f0: 20 70 42 75 66 66 65 72 3b 20 70 42 75 66 66 65   pBuffer; pBuffe
6100: 72 3d 70 42 75 66 66 65 72 2d 3e 70 4e 65 78 74  r=pBuffer->pNext
6110: 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 30  ){.        if( 0
6120: 3d 3d 73 74 72 63 6d 70 28 70 42 75 66 66 65 72  ==strcmp(pBuffer
6130: 2d 3e 7a 46 69 6c 65 2c 20 7a 4e 61 6d 65 29 20  ->zFile, zName) 
6140: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d  ) break;.      }
6150: 0a 20 20 20 20 20 20 63 6b 66 72 65 65 28 7a 4e  .      ckfree(zN
6160: 61 6d 65 29 3b 0a 20 20 20 20 20 20 69 66 28 20  ame);.      if( 
6170: 21 70 42 75 66 66 65 72 20 29 7b 0a 20 20 20 20  !pBuffer ){.    
6180: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
6190: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f  sult(interp, "no
61a0: 20 73 75 63 68 20 66 69 6c 65 3a 20 22 2c 20 54   such file: ", T
61b0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
61c0: 76 5b 32 5d 29 2c 20 30 29 3b 0a 20 20 20 20 20  v[2]), 0);.     
61d0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
61e0: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
61f0: 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 34 20 29     if( objc==4 )
6200: 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6e 3b  {.        int n;
6210: 0a 20 20 20 20 20 20 20 20 75 38 20 2a 61 20 3d  .        u8 *a =
6220: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61   Tcl_GetByteArra
6230: 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d  yFromObj(objv[3]
6240: 2c 20 26 6e 29 3b 0a 20 20 20 20 20 20 20 20 61  , &n);.        a
6250: 73 73 65 72 74 28 20 70 42 75 66 66 65 72 2d 3e  ssert( pBuffer->
6260: 70 67 73 7a 3d 3d 30 20 7c 7c 20 70 42 75 66 66  pgsz==0 || pBuff
6270: 65 72 2d 3e 70 67 73 7a 3d 3d 33 32 37 36 38 20  er->pgsz==32768 
6280: 29 3b 0a 20 20 20 20 20 20 20 20 66 6f 72 28 69  );.        for(i
6290: 3d 30 3b 20 69 2a 33 32 37 36 38 3c 6e 3b 20 69  =0; i*32768<n; i
62a0: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69  ++){.          i
62b0: 6e 74 20 6e 42 79 74 65 20 3d 20 33 32 37 36 38  nt nByte = 32768
62c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 74 76 66 73  ;.          tvfs
62d0: 41 6c 6c 6f 63 50 61 67 65 28 70 42 75 66 66 65  AllocPage(pBuffe
62e0: 72 2c 20 69 2c 20 33 32 37 36 38 29 3b 0a 20 20  r, i, 32768);.  
62f0: 20 20 20 20 20 20 20 20 69 66 28 20 6e 2d 69 2a          if( n-i*
6300: 33 32 37 36 38 3c 33 32 37 36 38 20 29 7b 0a 20  32768<32768 ){. 
6310: 20 20 20 20 20 20 20 20 20 20 20 6e 42 79 74 65             nByte
6320: 20 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20 20 20   = n;.          
6330: 7d 0a 20 20 20 20 20 20 20 20 20 20 6d 65 6d 63  }.          memc
6340: 70 79 28 70 42 75 66 66 65 72 2d 3e 61 50 61 67  py(pBuffer->aPag
6350: 65 5b 69 5d 2c 20 26 61 5b 69 2a 33 32 37 36 38  e[i], &a[i*32768
6360: 5d 2c 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 20  ], nByte);.     
6370: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20     }.      }..  
6380: 20 20 20 20 70 4f 62 6a 20 3d 20 54 63 6c 5f 4e      pObj = Tcl_N
6390: 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 20 20 66  ewObj();.      f
63a0: 6f 72 28 69 3d 30 3b 20 70 42 75 66 66 65 72 2d  or(i=0; pBuffer-
63b0: 3e 61 50 61 67 65 5b 69 5d 3b 20 69 2b 2b 29 7b  >aPage[i]; i++){
63c0: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70  .        Tcl_App
63d0: 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 70 4f 62 6a  endObjToObj(pObj
63e0: 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72  , Tcl_NewByteArr
63f0: 61 79 4f 62 6a 28 70 42 75 66 66 65 72 2d 3e 61  ayObj(pBuffer->a
6400: 50 61 67 65 5b 69 5d 2c 20 33 32 37 36 38 29 29  Page[i], 32768))
6410: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
6420: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
6430: 28 69 6e 74 65 72 70 2c 20 70 4f 62 6a 29 3b 0a  (interp, pObj);.
6440: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
6450: 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d 44   }..    case CMD
6460: 5f 46 49 4c 54 45 52 3a 20 7b 0a 20 20 20 20 20  _FILTER: {.     
6470: 20 73 74 61 74 69 63 20 73 74 72 75 63 74 20 56   static struct V
6480: 66 73 4d 65 74 68 6f 64 20 7b 0a 20 20 20 20 20  fsMethod {.     
6490: 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a     char *zName;.
64a0: 20 20 20 20 20 20 20 20 69 6e 74 20 6d 61 73 6b          int mask
64b0: 3b 0a 20 20 20 20 20 20 7d 20 76 66 73 6d 65 74  ;.      } vfsmet
64c0: 68 6f 64 20 5b 5d 20 3d 20 7b 0a 20 20 20 20 20  hod [] = {.     
64d0: 20 20 20 7b 20 22 78 53 68 6d 4f 70 65 6e 22 2c     { "xShmOpen",
64e0: 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d 4f      TESTVFS_SHMO
64f0: 50 45 4e 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20 20  PEN_MASK },.    
6500: 20 20 20 20 7b 20 22 78 53 68 6d 4c 6f 63 6b 22      { "xShmLock"
6510: 2c 20 20 20 20 54 45 53 54 56 46 53 5f 53 48 4d  ,    TESTVFS_SHM
6520: 4c 4f 43 4b 5f 4d 41 53 4b 20 7d 2c 0a 20 20 20  LOCK_MASK },.   
6530: 20 20 20 20 20 7b 20 22 78 53 68 6d 42 61 72 72       { "xShmBarr
6540: 69 65 72 22 2c 20 54 45 53 54 56 46 53 5f 53 48  ier", TESTVFS_SH
6550: 4d 42 41 52 52 49 45 52 5f 4d 41 53 4b 20 7d 2c  MBARRIER_MASK },
6560: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 53 68 6d  .        { "xShm
6570: 43 6c 6f 73 65 22 2c 20 20 20 54 45 53 54 56 46  Close",   TESTVF
6580: 53 5f 53 48 4d 43 4c 4f 53 45 5f 4d 41 53 4b 20  S_SHMCLOSE_MASK 
6590: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 53  },.        { "xS
65a0: 68 6d 4d 61 70 22 2c 20 20 20 20 20 54 45 53 54  hmMap",     TEST
65b0: 56 46 53 5f 53 48 4d 4d 41 50 5f 4d 41 53 4b 20  VFS_SHMMAP_MASK 
65c0: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 53  },.        { "xS
65d0: 79 6e 63 22 2c 20 20 20 20 20 20 20 54 45 53 54  ync",       TEST
65e0: 56 46 53 5f 53 59 4e 43 5f 4d 41 53 4b 20 7d 2c  VFS_SYNC_MASK },
65f0: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 44 65 6c  .        { "xDel
6600: 65 74 65 22 2c 20 20 20 20 20 54 45 53 54 56 46  ete",     TESTVF
6610: 53 5f 44 45 4c 45 54 45 5f 4d 41 53 4b 20 7d 2c  S_DELETE_MASK },
6620: 0a 20 20 20 20 20 20 20 20 7b 20 22 78 57 72 69  .        { "xWri
6630: 74 65 22 2c 20 20 20 20 20 20 54 45 53 54 56 46  te",      TESTVF
6640: 53 5f 57 52 49 54 45 5f 4d 41 53 4b 20 7d 2c 0a  S_WRITE_MASK },.
6650: 20 20 20 20 20 20 20 20 7b 20 22 78 54 72 75 6e          { "xTrun
6660: 63 61 74 65 22 2c 20 20 20 54 45 53 54 56 46 53  cate",   TESTVFS
6670: 5f 54 52 55 4e 43 41 54 45 5f 4d 41 53 4b 20 7d  _TRUNCATE_MASK }
6680: 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 78 4f 70  ,.        { "xOp
6690: 65 6e 22 2c 20 20 20 20 20 20 20 54 45 53 54 56  en",       TESTV
66a0: 46 53 5f 4f 50 45 4e 5f 4d 41 53 4b 20 7d 2c 0a  FS_OPEN_MASK },.
66b0: 20 20 20 20 20 20 20 20 7b 20 22 78 43 6c 6f 73          { "xClos
66c0: 65 22 2c 20 20 20 20 20 20 54 45 53 54 56 46 53  e",      TESTVFS
66d0: 5f 43 4c 4f 53 45 5f 4d 41 53 4b 20 7d 2c 0a 20  _CLOSE_MASK },. 
66e0: 20 20 20 20 20 7d 3b 0a 20 20 20 20 20 20 54 63       };.      Tc
66f0: 6c 5f 4f 62 6a 20 2a 2a 61 70 45 6c 65 6d 20 3d  l_Obj **apElem =
6700: 20 30 3b 0a 20 20 20 20 20 20 69 6e 74 20 6e 45   0;.      int nE
6710: 6c 65 6d 20 3d 20 30 3b 0a 20 20 20 20 20 20 69  lem = 0;.      i
6720: 6e 74 20 69 3b 0a 20 20 20 20 20 20 69 6e 74 20  nt i;.      int 
6730: 6d 61 73 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20  mask = 0;.      
6740: 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20  if( objc!=3 ){. 
6750: 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67         Tcl_Wrong
6760: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
6770: 32 2c 20 6f 62 6a 76 2c 20 22 4c 49 53 54 22 29  2, objv, "LIST")
6780: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ;.        return
6790: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
67a0: 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 54 63    }.      if( Tc
67b0: 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d  l_ListObjGetElem
67c0: 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a  ents(interp, obj
67d0: 76 5b 32 5d 2c 20 26 6e 45 6c 65 6d 2c 20 26 61  v[2], &nElem, &a
67e0: 70 45 6c 65 6d 29 20 29 7b 0a 20 20 20 20 20 20  pElem) ){.      
67f0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
6800: 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  OR;.      }.    
6810: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c    Tcl_ResetResul
6820: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20  t(interp);.     
6830: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 45 6c 65   for(i=0; i<nEle
6840: 6d 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20  m; i++){.       
6850: 20 69 6e 74 20 69 4d 65 74 68 6f 64 3b 0a 20 20   int iMethod;.  
6860: 20 20 20 20 20 20 63 68 61 72 20 2a 7a 45 6c 65        char *zEle
6870: 6d 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  m = Tcl_GetStrin
6880: 67 28 61 70 45 6c 65 6d 5b 69 5d 29 3b 0a 20 20  g(apElem[i]);.  
6890: 20 20 20 20 20 20 66 6f 72 28 69 4d 65 74 68 6f        for(iMetho
68a0: 64 3d 30 3b 20 69 4d 65 74 68 6f 64 3c 41 72 72  d=0; iMethod<Arr
68b0: 61 79 53 69 7a 65 28 76 66 73 6d 65 74 68 6f 64  aySize(vfsmethod
68c0: 29 3b 20 69 4d 65 74 68 6f 64 2b 2b 29 7b 0a 20  ); iMethod++){. 
68d0: 20 20 20 20 20 20 20 20 20 69 66 28 20 73 74 72           if( str
68e0: 63 6d 70 28 7a 45 6c 65 6d 2c 20 76 66 73 6d 65  cmp(zElem, vfsme
68f0: 74 68 6f 64 5b 69 4d 65 74 68 6f 64 5d 2e 7a 4e  thod[iMethod].zN
6900: 61 6d 65 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20  ame)==0 ){.     
6910: 20 20 20 20 20 20 20 6d 61 73 6b 20 7c 3d 20 76         mask |= v
6920: 66 73 6d 65 74 68 6f 64 5b 69 4d 65 74 68 6f 64  fsmethod[iMethod
6930: 5d 2e 6d 61 73 6b 3b 0a 20 20 20 20 20 20 20 20  ].mask;.        
6940: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20      break;.     
6950: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
6960: 0a 20 20 20 20 20 20 20 20 69 66 28 20 69 4d 65  .        if( iMe
6970: 74 68 6f 64 3d 3d 41 72 72 61 79 53 69 7a 65 28  thod==ArraySize(
6980: 76 66 73 6d 65 74 68 6f 64 29 20 29 7b 0a 20 20  vfsmethod) ){.  
6990: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65          Tcl_Appe
69a0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
69b0: 20 22 75 6e 6b 6e 6f 77 6e 20 6d 65 74 68 6f 64   "unknown method
69c0: 3a 20 22 2c 20 7a 45 6c 65 6d 2c 20 30 29 3b 0a  : ", zElem, 0);.
69d0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
69e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
69f0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20      }.      }.  
6a00: 20 20 20 20 70 2d 3e 6d 61 73 6b 20 3d 20 6d 61      p->mask = ma
6a10: 73 6b 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  sk;.      break;
6a20: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
6a30: 20 43 4d 44 5f 53 43 52 49 50 54 3a 20 7b 0a 20   CMD_SCRIPT: {. 
6a40: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33       if( objc==3
6a50: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20   ){.        int 
6a60: 6e 42 79 74 65 3b 0a 20 20 20 20 20 20 20 20 69  nByte;.        i
6a70: 66 28 20 70 2d 3e 70 53 63 72 69 70 74 20 29 7b  f( p->pScript ){
6a80: 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 44  .          Tcl_D
6a90: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70  ecrRefCount(p->p
6aa0: 53 63 72 69 70 74 29 3b 0a 20 20 20 20 20 20 20  Script);.       
6ab0: 20 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20     ckfree((char 
6ac0: 2a 29 70 2d 3e 61 70 53 63 72 69 70 74 29 3b 0a  *)p->apScript);.
6ad0: 20 20 20 20 20 20 20 20 20 20 70 2d 3e 61 70 53            p->apS
6ae0: 63 72 69 70 74 20 3d 20 30 3b 0a 20 20 20 20 20  cript = 0;.     
6af0: 20 20 20 20 20 70 2d 3e 6e 53 63 72 69 70 74 20       p->nScript 
6b00: 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20 70  = 0;.          p
6b10: 2d 3e 70 53 63 72 69 70 74 20 3d 20 30 3b 0a 20  ->pScript = 0;. 
6b20: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
6b30: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72   Tcl_GetStringFr
6b40: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26  omObj(objv[2], &
6b50: 6e 42 79 74 65 29 3b 0a 20 20 20 20 20 20 20 20  nByte);.        
6b60: 69 66 28 20 6e 42 79 74 65 3e 30 20 29 7b 0a 20  if( nByte>0 ){. 
6b70: 20 20 20 20 20 20 20 20 20 70 2d 3e 70 53 63 72           p->pScr
6b80: 69 70 74 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63  ipt = Tcl_Duplic
6b90: 61 74 65 4f 62 6a 28 6f 62 6a 76 5b 32 5d 29 3b  ateObj(objv[2]);
6ba0: 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 49  .          Tcl_I
6bb0: 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70  ncrRefCount(p->p
6bc0: 53 63 72 69 70 74 29 3b 0a 20 20 20 20 20 20 20  Script);.       
6bd0: 20 7d 0a 20 20 20 20 20 20 7d 65 6c 73 65 20 69   }.      }else i
6be0: 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a 20 20  f( objc!=2 ){.  
6bf0: 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e        Tcl_WrongN
6c00: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32  umArgs(interp, 2
6c10: 2c 20 6f 62 6a 76 2c 20 22 3f 53 43 52 49 50 54  , objv, "?SCRIPT
6c20: 3f 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74  ?");.        ret
6c30: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
6c40: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 54 63       }..      Tc
6c50: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e  l_ResetResult(in
6c60: 74 65 72 70 29 3b 0a 20 20 20 20 20 20 69 66 28  terp);.      if(
6c70: 20 70 2d 3e 70 53 63 72 69 70 74 20 29 20 54 63   p->pScript ) Tc
6c80: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
6c90: 6e 74 65 72 70 2c 20 70 2d 3e 70 53 63 72 69 70  nterp, p->pScrip
6ca0: 74 29 3b 0a 0a 20 20 20 20 20 20 62 72 65 61 6b  t);..      break
6cb0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a  ;.    }..    /*.
6cc0: 20 20 20 20 2a 2a 20 54 45 53 54 56 46 53 20 66      ** TESTVFS f
6cd0: 75 6c 6c 65 72 72 20 3f 49 46 41 49 4c 3f 0a 20  ullerr ?IFAIL?. 
6ce0: 20 20 20 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 57     **.    **   W
6cf0: 68 65 72 65 20 49 46 41 49 4c 20 69 73 20 61 6e  here IFAIL is an
6d00: 20 69 6e 74 65 67 65 72 2e 0a 20 20 20 20 2a 2f   integer..    */
6d10: 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 46 55  .    case CMD_FU
6d20: 4c 4c 45 52 52 3a 20 7b 0a 20 20 20 20 20 20 69  LLERR: {.      i
6d30: 6e 74 20 69 52 65 74 20 3d 20 70 2d 3e 6e 46 75  nt iRet = p->nFu
6d40: 6c 6c 46 61 69 6c 3b 0a 0a 20 20 20 20 20 20 70  llFail;..      p
6d50: 2d 3e 6e 46 75 6c 6c 46 61 69 6c 20 3d 20 30 3b  ->nFullFail = 0;
6d60: 0a 20 20 20 20 20 20 70 2d 3e 66 75 6c 6c 65 72  .      p->fuller
6d70: 72 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 2d 3e  r = 0;.      p->
6d80: 69 46 75 6c 6c 43 6e 74 20 3d 20 30 3b 0a 0a 20  iFullCnt = 0;.. 
6d90: 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 33       if( objc==3
6da0: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20   ){.        int 
6db0: 69 43 6e 74 3b 0a 20 20 20 20 20 20 20 20 69 66  iCnt;.        if
6dc0: 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65  ( TCL_OK!=Tcl_Ge
6dd0: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65  tIntFromObj(inte
6de0: 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 43  rp, objv[2], &iC
6df0: 6e 74 29 20 29 7b 0a 20 20 20 20 20 20 20 20 20  nt) ){.         
6e00: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
6e10: 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  R;.        }.   
6e20: 20 20 20 20 20 70 2d 3e 66 75 6c 6c 65 72 72 20       p->fullerr 
6e30: 3d 20 28 69 43 6e 74 3e 30 29 3b 0a 20 20 20 20  = (iCnt>0);.    
6e40: 20 20 20 20 70 2d 3e 69 46 75 6c 6c 43 6e 74 20      p->iFullCnt 
6e50: 3d 20 69 43 6e 74 3b 0a 20 20 20 20 20 20 7d 65  = iCnt;.      }e
6e60: 6c 73 65 20 69 66 28 20 6f 62 6a 63 21 3d 32 20  lse if( objc!=2 
6e70: 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41  ){.        Tcl_A
6e80: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
6e90: 72 70 2c 20 22 42 61 64 20 61 72 67 73 22 2c 20  rp, "Bad args", 
6ea0: 30 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  0);.        retu
6eb0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
6ec0: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 54 63 6c      }..      Tcl
6ed0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e  _SetObjResult(in
6ee0: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74  terp, Tcl_NewInt
6ef0: 4f 62 6a 28 69 52 65 74 29 29 3b 0a 20 20 20 20  Obj(iRet));.    
6f00: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a    break;.    }..
6f10: 20 20 20 20 2f 2a 0a 20 20 20 20 2a 2a 20 54 45      /*.    ** TE
6f20: 53 54 56 46 53 20 69 6f 65 72 72 20 3f 49 46 41  STVFS ioerr ?IFA
6f30: 49 4c 20 50 45 52 53 49 53 54 3f 0a 20 20 20 20  IL PERSIST?.    
6f40: 2a 2a 0a 20 20 20 20 2a 2a 20 20 20 57 68 65 72  **.    **   Wher
6f50: 65 20 49 46 41 49 4c 20 69 73 20 61 6e 20 69 6e  e IFAIL is an in
6f60: 74 65 67 65 72 20 61 6e 64 20 50 45 52 53 49 53  teger and PERSIS
6f70: 54 20 69 73 20 62 6f 6f 6c 65 61 6e 2e 0a 20 20  T is boolean..  
6f80: 20 20 2a 2f 0a 20 20 20 20 63 61 73 65 20 43 4d    */.    case CM
6f90: 44 5f 49 4f 45 52 52 3a 20 7b 0a 20 20 20 20 20  D_IOERR: {.     
6fa0: 20 69 6e 74 20 69 52 65 74 20 3d 20 70 2d 3e 6e   int iRet = p->n
6fb0: 49 6f 65 72 72 46 61 69 6c 3b 0a 0a 20 20 20 20  IoerrFail;..    
6fc0: 20 20 70 2d 3e 6e 49 6f 65 72 72 46 61 69 6c 20    p->nIoerrFail 
6fd0: 3d 20 30 3b 0a 20 20 20 20 20 20 70 2d 3e 69 6f  = 0;.      p->io
6fe0: 65 72 72 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  err = 0;.      p
6ff0: 2d 3e 69 49 6f 65 72 72 43 6e 74 20 3d 20 30 3b  ->iIoerrCnt = 0;
7000: 0a 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63  ..      if( objc
7010: 3d 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20 69  ==4 ){.        i
7020: 6e 74 20 69 43 6e 74 2c 20 69 50 65 72 73 69 73  nt iCnt, iPersis
7030: 74 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20 54  t;.        if( T
7040: 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e  CL_OK!=Tcl_GetIn
7050: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
7060: 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 43 6e 74 29   objv[2], &iCnt)
7070: 0a 20 20 20 20 20 20 20 20 20 7c 7c 20 54 43 4c  .         || TCL
7080: 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 42 6f 6f 6c  _OK!=Tcl_GetBool
7090: 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  eanFromObj(inter
70a0: 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 69 50 65  p, objv[3], &iPe
70b0: 72 73 69 73 74 29 0a 20 20 20 20 20 20 20 20 29  rsist).        )
70c0: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65 74 75  {.          retu
70d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
70e0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
70f0: 70 2d 3e 69 6f 65 72 72 20 3d 20 28 69 43 6e 74  p->ioerr = (iCnt
7100: 3e 30 29 20 2b 20 69 50 65 72 73 69 73 74 3b 0a  >0) + iPersist;.
7110: 20 20 20 20 20 20 20 20 70 2d 3e 69 49 6f 65 72          p->iIoer
7120: 72 43 6e 74 20 3d 20 69 43 6e 74 3b 0a 20 20 20  rCnt = iCnt;.   
7130: 20 20 20 7d 65 6c 73 65 20 69 66 28 20 6f 62 6a     }else if( obj
7140: 63 21 3d 32 20 29 7b 0a 20 20 20 20 20 20 20 20  c!=2 ){.        
7150: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
7160: 28 69 6e 74 65 72 70 2c 20 22 42 61 64 20 61 72  (interp, "Bad ar
7170: 67 73 22 2c 20 30 29 3b 0a 20 20 20 20 20 20 20  gs", 0);.       
7180: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
7190: 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  R;.      }.     
71a0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
71b0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65  t(interp, Tcl_Ne
71c0: 77 49 6e 74 4f 62 6a 28 69 52 65 74 29 29 3b 0a  wIntObj(iRet));.
71d0: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
71e0: 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 43 4d 44   }..    case CMD
71f0: 5f 44 45 4c 45 54 45 3a 20 7b 0a 20 20 20 20 20  _DELETE: {.     
7200: 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61   Tcl_DeleteComma
7210: 6e 64 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47  nd(interp, Tcl_G
7220: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d  etString(objv[0]
7230: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  ));.      break;
7240: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
7250: 20 43 4d 44 5f 44 45 56 43 48 41 52 3a 20 7b 0a   CMD_DEVCHAR: {.
7260: 20 20 20 20 20 20 73 74 72 75 63 74 20 44 65 76        struct Dev
7270: 69 63 65 46 6c 61 67 20 7b 0a 20 20 20 20 20 20  iceFlag {.      
7280: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20    char *zName;. 
7290: 20 20 20 20 20 20 20 69 6e 74 20 69 56 61 6c 75         int iValu
72a0: 65 3b 0a 20 20 20 20 20 20 7d 20 61 46 6c 61 67  e;.      } aFlag
72b0: 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 20 20 20 7b  [] = {.        {
72c0: 20 22 64 65 66 61 75 6c 74 22 2c 20 20 20 20 20   "default",     
72d0: 2d 31 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20  -1 },.        { 
72e0: 22 61 74 6f 6d 69 63 22 2c 20 20 20 20 20 20 53  "atomic",      S
72f0: 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d  QLITE_IOCAP_ATOM
7300: 49 43 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 20  IC      },.     
7310: 20 20 20 7b 20 22 61 74 6f 6d 69 63 35 31 32 22     { "atomic512"
7320: 2c 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50  ,   SQLITE_IOCAP
7330: 5f 41 54 4f 4d 49 43 35 31 32 20 20 20 7d 2c 0a  _ATOMIC512   },.
7340: 20 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69          { "atomi
7350: 63 31 6b 22 2c 20 20 20 20 53 51 4c 49 54 45 5f  c1k",    SQLITE_
7360: 49 4f 43 41 50 5f 41 54 4f 4d 49 43 31 4b 20 20  IOCAP_ATOMIC1K  
7370: 20 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22    },.        { "
7380: 61 74 6f 6d 69 63 32 6b 22 2c 20 20 20 20 53 51  atomic2k",    SQ
7390: 4c 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49  LITE_IOCAP_ATOMI
73a0: 43 32 4b 20 20 20 20 7d 2c 0a 20 20 20 20 20 20  C2K    },.      
73b0: 20 20 7b 20 22 61 74 6f 6d 69 63 34 6b 22 2c 20    { "atomic4k", 
73c0: 20 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f     SQLITE_IOCAP_
73d0: 41 54 4f 4d 49 43 34 4b 20 20 20 20 7d 2c 0a 20  ATOMIC4K    },. 
73e0: 20 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63         { "atomic
73f0: 38 6b 22 2c 20 20 20 20 53 51 4c 49 54 45 5f 49  8k",    SQLITE_I
7400: 4f 43 41 50 5f 41 54 4f 4d 49 43 38 4b 20 20 20  OCAP_ATOMIC8K   
7410: 20 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 61   },.        { "a
7420: 74 6f 6d 69 63 31 36 6b 22 2c 20 20 20 53 51 4c  tomic16k",   SQL
7430: 49 54 45 5f 49 4f 43 41 50 5f 41 54 4f 4d 49 43  ITE_IOCAP_ATOMIC
7440: 31 36 4b 20 20 20 7d 2c 0a 20 20 20 20 20 20 20  16K   },.       
7450: 20 7b 20 22 61 74 6f 6d 69 63 33 32 6b 22 2c 20   { "atomic32k", 
7460: 20 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 41    SQLITE_IOCAP_A
7470: 54 4f 4d 49 43 33 32 4b 20 20 20 7d 2c 0a 20 20  TOMIC32K   },.  
7480: 20 20 20 20 20 20 7b 20 22 61 74 6f 6d 69 63 36        { "atomic6
7490: 34 6b 22 2c 20 20 20 53 51 4c 49 54 45 5f 49 4f  4k",   SQLITE_IO
74a0: 43 41 50 5f 41 54 4f 4d 49 43 36 34 4b 20 20 20  CAP_ATOMIC64K   
74b0: 7d 2c 0a 20 20 20 20 20 20 20 20 7b 20 22 73 65  },.        { "se
74c0: 71 75 65 6e 74 69 61 6c 22 2c 20 20 53 51 4c 49  quential",  SQLI
74d0: 54 45 5f 49 4f 43 41 50 5f 53 45 51 55 45 4e 54  TE_IOCAP_SEQUENT
74e0: 49 41 4c 20 20 7d 2c 0a 20 20 20 20 20 20 20 20  IAL  },.        
74f0: 7b 20 22 73 61 66 65 5f 61 70 70 65 6e 64 22 2c  { "safe_append",
7500: 20 53 51 4c 49 54 45 5f 49 4f 43 41 50 5f 53 41   SQLITE_IOCAP_SA
7510: 46 45 5f 41 50 50 45 4e 44 20 7d 2c 0a 20 20 20  FE_APPEND },.   
7520: 20 20 20 20 20 7b 20 22 73 61 66 65 5f 64 65 6c       { "safe_del
7530: 65 74 65 22 2c 20 53 51 4c 49 54 45 5f 49 4f 43  ete", SQLITE_IOC
7540: 41 50 5f 53 41 46 45 5f 44 45 4c 45 54 45 20 7d  AP_SAFE_DELETE }
7550: 2c 0a 20 20 20 20 20 20 20 20 7b 20 30 2c 20 30  ,.        { 0, 0
7560: 20 7d 0a 20 20 20 20 20 20 7d 3b 0a 20 20 20 20   }.      };.    
7570: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 74 3b    Tcl_Obj *pRet;
7580: 0a 20 20 20 20 20 20 69 6e 74 20 69 46 6c 61 67  .      int iFlag
7590: 3b 0a 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a  ;..      if( obj
75a0: 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 20 20 54  c>3 ){.        T
75b0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
75c0: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
75d0: 20 22 3f 41 54 54 52 2d 4c 49 53 54 3f 22 29 3b   "?ATTR-LIST?");
75e0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
75f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
7600: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a   }.      if( obj
7610: 63 3d 3d 33 20 29 7b 0a 20 20 20 20 20 20 20 20  c==3 ){.        
7620: 69 6e 74 20 6a 3b 0a 20 20 20 20 20 20 20 20 69  int j;.        i
7630: 6e 74 20 69 4e 65 77 20 3d 20 30 3b 0a 20 20 20  nt iNew = 0;.   
7640: 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 66       Tcl_Obj **f
7650: 6c 61 67 73 20 3d 20 30 3b 0a 20 20 20 20 20 20  lags = 0;.      
7660: 20 20 69 6e 74 20 6e 46 6c 61 67 73 20 3d 20 30    int nFlags = 0
7670: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 28 20 54  ;..        if( T
7680: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65  cl_ListObjGetEle
7690: 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62  ments(interp, ob
76a0: 6a 76 5b 32 5d 2c 20 26 6e 46 6c 61 67 73 2c 20  jv[2], &nFlags, 
76b0: 26 66 6c 61 67 73 29 20 29 7b 0a 20 20 20 20 20  &flags) ){.     
76c0: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
76d0: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d  ERROR;.        }
76e0: 0a 0a 20 20 20 20 20 20 20 20 66 6f 72 28 6a 3d  ..        for(j=
76f0: 30 3b 20 6a 3c 6e 46 6c 61 67 73 3b 20 6a 2b 2b  0; j<nFlags; j++
7700: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 69 6e 74  ){.          int
7710: 20 69 64 78 20 3d 20 30 3b 0a 20 20 20 20 20 20   idx = 0;.      
7720: 20 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49      if( Tcl_GetI
7730: 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74 72 75 63  ndexFromObjStruc
7740: 74 28 69 6e 74 65 72 70 2c 20 66 6c 61 67 73 5b  t(interp, flags[
7750: 6a 5d 2c 20 61 46 6c 61 67 2c 20 0a 20 20 20 20  j], aFlag, .    
7760: 20 20 20 20 20 20 20 20 20 20 20 20 73 69 7a 65              size
7770: 6f 66 28 61 46 6c 61 67 5b 30 5d 29 2c 20 22 66  of(aFlag[0]), "f
7780: 6c 61 67 22 2c 20 30 2c 20 26 69 64 78 29 20 0a  lag", 0, &idx) .
7790: 20 20 20 20 20 20 20 20 20 20 29 7b 0a 20 20 20            ){.   
77a0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
77b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
77c0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
77d0: 20 69 66 28 20 61 46 6c 61 67 5b 69 64 78 5d 2e   if( aFlag[idx].
77e0: 69 56 61 6c 75 65 3c 30 20 26 26 20 6e 46 6c 61  iValue<0 && nFla
77f0: 67 73 3e 31 20 29 7b 0a 20 20 20 20 20 20 20 20  gs>1 ){.        
7800: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
7810: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61  sult(interp, "ba
7820: 64 20 66 6c 61 67 73 3a 20 22 2c 20 54 63 6c 5f  d flags: ", Tcl_
7830: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32  GetString(objv[2
7840: 5d 29 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20  ]), 0);.        
7850: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
7860: 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 20 20  RROR;.          
7870: 7d 0a 20 20 20 20 20 20 20 20 20 20 69 4e 65 77  }.          iNew
7880: 20 7c 3d 20 61 46 6c 61 67 5b 69 64 78 5d 2e 69   |= aFlag[idx].i
7890: 56 61 6c 75 65 3b 0a 20 20 20 20 20 20 20 20 7d  Value;.        }
78a0: 0a 0a 20 20 20 20 20 20 20 20 70 2d 3e 69 44 65  ..        p->iDe
78b0: 76 63 68 61 72 20 3d 20 69 4e 65 77 3b 0a 20 20  vchar = iNew;.  
78c0: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 70 52 65      }..      pRe
78d0: 74 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29  t = Tcl_NewObj()
78e0: 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 46 6c 61  ;.      for(iFla
78f0: 67 3d 30 3b 20 69 46 6c 61 67 3c 73 69 7a 65 6f  g=0; iFlag<sizeo
7900: 66 28 61 46 6c 61 67 29 2f 73 69 7a 65 6f 66 28  f(aFlag)/sizeof(
7910: 61 46 6c 61 67 5b 30 5d 29 3b 20 69 46 6c 61 67  aFlag[0]); iFlag
7920: 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28  ++){.        if(
7930: 20 70 2d 3e 69 44 65 76 63 68 61 72 20 26 20 61   p->iDevchar & a
7940: 46 6c 61 67 5b 69 46 6c 61 67 5d 2e 69 56 61 6c  Flag[iFlag].iVal
7950: 75 65 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  ue ){.          
7960: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
7970: 64 45 6c 65 6d 65 6e 74 28 0a 20 20 20 20 20 20  dElement(.      
7980: 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 2c 20          interp, 
7990: 70 52 65 74 2c 20 54 63 6c 5f 4e 65 77 53 74 72  pRet, Tcl_NewStr
79a0: 69 6e 67 4f 62 6a 28 61 46 6c 61 67 5b 69 46 6c  ingObj(aFlag[iFl
79b0: 61 67 5d 2e 7a 4e 61 6d 65 2c 20 2d 31 29 0a 20  ag].zName, -1). 
79c0: 20 20 20 20 20 20 20 20 20 29 3b 0a 20 20 20 20           );.    
79d0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20      }.      }.  
79e0: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65      Tcl_SetObjRe
79f0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52 65  sult(interp, pRe
7a00: 74 29 3b 0a 0a 20 20 20 20 20 20 62 72 65 61 6b  t);..      break
7a10: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73  ;.    }..    cas
7a20: 65 20 43 4d 44 5f 53 45 43 54 4f 52 53 49 5a 45  e CMD_SECTORSIZE
7a30: 3a 20 7b 0a 20 20 20 20 20 20 69 66 28 20 6f 62  : {.      if( ob
7a40: 6a 63 3e 33 20 29 7b 0a 20 20 20 20 20 20 20 20  jc>3 ){.        
7a50: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
7a60: 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76  (interp, 2, objv
7a70: 2c 20 22 3f 56 41 4c 55 45 3f 22 29 3b 0a 20 20  , "?VALUE?");.  
7a80: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c        return TCL
7a90: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a  _ERROR;.      }.
7aa0: 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d        if( objc==
7ab0: 33 20 29 7b 0a 20 20 20 20 20 20 20 20 69 6e 74  3 ){.        int
7ac0: 20 69 4e 65 77 20 3d 20 30 3b 0a 20 20 20 20 20   iNew = 0;.     
7ad0: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e     if( Tcl_GetIn
7ae0: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
7af0: 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 4e 65 77 29   objv[2], &iNew)
7b00: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 72 65   ){.          re
7b10: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
7b20: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
7b30: 20 20 70 2d 3e 69 53 65 63 74 6f 72 73 69 7a 65    p->iSectorsize
7b40: 20 3d 20 69 4e 65 77 3b 0a 20 20 20 20 20 20 7d   = iNew;.      }
7b50: 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  .      Tcl_SetOb
7b60: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
7b70: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 70 2d  Tcl_NewIntObj(p-
7b80: 3e 69 53 65 63 74 6f 72 73 69 7a 65 29 29 3b 0a  >iSectorsize));.
7b90: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
7ba0: 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e   }.  }..  return
7bb0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74   TCL_OK;.}..stat
7bc0: 69 63 20 76 6f 69 64 20 74 65 73 74 76 66 73 5f  ic void testvfs_
7bd0: 6f 62 6a 5f 64 65 6c 28 43 6c 69 65 6e 74 44 61  obj_del(ClientDa
7be0: 74 61 20 63 64 29 7b 0a 20 20 54 65 73 74 76 66  ta cd){.  Testvf
7bf0: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
7c00: 2a 29 63 64 3b 0a 20 20 69 66 28 20 70 2d 3e 70  *)cd;.  if( p->p
7c10: 53 63 72 69 70 74 20 29 20 54 63 6c 5f 44 65 63  Script ) Tcl_Dec
7c20: 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 70 53 63  rRefCount(p->pSc
7c30: 72 69 70 74 29 3b 0a 20 20 73 71 6c 69 74 65 33  ript);.  sqlite3
7c40: 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28  _vfs_unregister(
7c50: 70 2d 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66 72  p->pVfs);.  ckfr
7c60: 65 65 28 28 63 68 61 72 20 2a 29 70 2d 3e 61 70  ee((char *)p->ap
7c70: 53 63 72 69 70 74 29 3b 0a 20 20 63 6b 66 72 65  Script);.  ckfre
7c80: 65 28 28 63 68 61 72 20 2a 29 70 2d 3e 70 56 66  e((char *)p->pVf
7c90: 73 29 3b 0a 20 20 63 6b 66 72 65 65 28 28 63 68  s);.  ckfree((ch
7ca0: 61 72 20 2a 29 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  ar *)p);.}../*.*
7cb0: 2a 20 55 73 61 67 65 3a 20 20 74 65 73 74 76 66  * Usage:  testvf
7cc0: 73 20 56 46 53 4e 41 4d 45 20 3f 53 57 49 54 43  s VFSNAME ?SWITC
7cd0: 48 45 53 3f 0a 2a 2a 0a 2a 2a 20 53 77 69 74 63  HES?.**.** Switc
7ce0: 68 65 73 20 61 72 65 3a 0a 2a 2a 0a 2a 2a 20 20  hes are:.**.**  
7cf0: 20 2d 6e 6f 73 68 6d 20 20 20 42 4f 4f 4c 45 41   -noshm   BOOLEA
7d00: 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54  N             (T
7d10: 72 75 65 20 74 6f 20 6f 6d 69 74 20 73 68 6d 20  rue to omit shm 
7d20: 6d 65 74 68 6f 64 73 2e 20 44 65 66 61 75 6c 74  methods. Default
7d30: 20 66 61 6c 73 65 29 0a 2a 2a 20 20 20 2d 64 65   false).**   -de
7d40: 66 61 75 6c 74 20 42 4f 4f 4c 45 41 4e 20 20 20  fault BOOLEAN   
7d50: 20 20 20 20 20 20 20 20 20 20 28 54 72 75 65 20            (True 
7d60: 74 6f 20 6d 61 6b 65 20 74 68 65 20 76 66 73 20  to make the vfs 
7d70: 64 65 66 61 75 6c 74 2e 20 44 65 66 61 75 6c 74  default. Default
7d80: 20 66 61 6c 73 65 29 0a 2a 2a 0a 2a 2a 20 54 68   false).**.** Th
7d90: 69 73 20 63 6f 6d 6d 61 6e 64 20 63 72 65 61 74  is command creat
7da0: 65 73 20 74 77 6f 20 74 68 69 6e 67 73 20 77 68  es two things wh
7db0: 65 6e 20 69 74 20 69 73 20 69 6e 76 6f 6b 65 64  en it is invoked
7dc0: 3a 20 61 6e 20 53 51 4c 69 74 65 20 56 46 53 2c  : an SQLite VFS,
7dd0: 20 61 6e 64 0a 2a 2a 20 61 20 54 63 6c 20 63 6f   and.** a Tcl co
7de0: 6d 6d 61 6e 64 2e 20 42 6f 74 68 20 61 72 65 20  mmand. Both are 
7df0: 6e 61 6d 65 64 20 56 46 53 4e 41 4d 45 2e 20 54  named VFSNAME. T
7e00: 68 65 20 56 46 53 20 69 73 20 69 6e 73 74 61 6c  he VFS is instal
7e10: 6c 65 64 2e 20 49 74 20 69 73 20 6e 6f 74 0a 2a  led. It is not.*
7e20: 2a 20 69 6e 73 74 61 6c 6c 65 64 20 61 73 20 74  * installed as t
7e30: 68 65 20 64 65 66 61 75 6c 74 20 56 46 53 2e 0a  he default VFS..
7e40: 2a 2a 0a 2a 2a 20 54 68 65 20 56 46 53 20 70 61  **.** The VFS pa
7e50: 73 73 65 73 20 61 6c 6c 20 66 69 6c 65 20 49 2f  sses all file I/
7e60: 4f 20 63 61 6c 6c 73 20 74 68 72 6f 75 67 68 20  O calls through 
7e70: 74 6f 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e  to the underlyin
7e80: 67 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 57 68 65  g VFS..**.** Whe
7e90: 6e 65 76 65 72 20 74 68 65 20 78 53 68 6d 4d 61  never the xShmMa
7ea0: 70 20 6d 65 74 68 6f 64 20 6f 66 20 74 68 65 20  p method of the 
7eb0: 56 46 53 0a 2a 2a 20 69 73 20 69 6e 76 6f 6b 65  VFS.** is invoke
7ec0: 64 2c 20 74 68 65 20 53 43 52 49 50 54 20 69 73  d, the SCRIPT is
7ed0: 20 65 78 65 63 75 74 65 64 20 61 73 20 66 6f 6c   executed as fol
7ee0: 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 43  lows:.**.**   SC
7ef0: 52 49 50 54 20 78 53 68 6d 4d 61 70 20 20 20 20  RIPT xShmMap    
7f00: 46 49 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a 0a 2a  FILENAME ID.**.*
7f10: 2a 20 54 68 65 20 76 61 6c 75 65 20 72 65 74 75  * The value retu
7f20: 72 6e 65 64 20 62 79 20 74 68 65 20 69 6e 76 6f  rned by the invo
7f30: 63 61 74 69 6f 6e 20 6f 66 20 53 43 52 49 50 54  cation of SCRIPT
7f40: 20 61 62 6f 76 65 20 69 73 20 69 6e 74 65 72 70   above is interp
7f50: 72 65 74 65 64 20 61 73 0a 2a 2a 20 61 6e 20 53  reted as.** an S
7f60: 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65  QLite error code
7f70: 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20 74 6f   and returned to
7f80: 20 53 51 4c 69 74 65 2e 20 45 69 74 68 65 72 20   SQLite. Either 
7f90: 61 20 73 79 6d 62 6f 6c 69 63 20 0a 2a 2a 20 22  a symbolic .** "
7fa0: 53 51 4c 49 54 45 5f 4f 4b 22 20 6f 72 20 6e 75  SQLITE_OK" or nu
7fb0: 6d 65 72 69 63 20 22 30 22 20 76 61 6c 75 65 20  meric "0" value 
7fc0: 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65 64 2e  may be returned.
7fd0: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e 74 65  .**.** The conte
7fe0: 6e 74 73 20 6f 66 20 74 68 65 20 73 68 61 72 65  nts of the share
7ff0: 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 20  d-memory buffer 
8000: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
8010: 61 20 67 69 76 65 6e 20 66 69 6c 65 0a 2a 2a 20  a given file.** 
8020: 6d 61 79 20 62 65 20 72 65 61 64 20 61 6e 64 20  may be read and 
8030: 73 65 74 20 75 73 69 6e 67 20 74 68 65 20 66 6f  set using the fo
8040: 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 3a  llowing command:
8050: 0a 2a 2a 0a 2a 2a 20 20 20 56 46 53 4e 41 4d 45  .**.**   VFSNAME
8060: 20 73 68 6d 20 46 49 4c 45 4e 41 4d 45 20 3f 4e   shm FILENAME ?N
8070: 45 57 56 41 4c 55 45 3f 0a 2a 2a 0a 2a 2a 20 57  EWVALUE?.**.** W
8080: 68 65 6e 20 74 68 65 20 78 53 68 6d 4c 6f 63 6b  hen the xShmLock
8090: 20 6d 65 74 68 6f 64 20 69 73 20 69 6e 76 6f 6b   method is invok
80a0: 65 64 20 62 79 20 53 51 4c 69 74 65 2c 20 74 68  ed by SQLite, th
80b0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 63 72 69  e following scri
80c0: 70 74 20 69 73 0a 2a 2a 20 72 75 6e 3a 0a 2a 2a  pt is.** run:.**
80d0: 0a 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53 68  .**   SCRIPT xSh
80e0: 6d 4c 6f 63 6b 20 20 20 20 46 49 4c 45 4e 41 4d  mLock    FILENAM
80f0: 45 20 49 44 20 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20  E ID LOCK.**.** 
8100: 77 68 65 72 65 20 4c 4f 43 4b 20 69 73 20 6f 66  where LOCK is of
8110: 20 74 68 65 20 66 6f 72 6d 20 22 4f 46 46 53 45   the form "OFFSE
8120: 54 20 4e 42 59 54 45 20 6c 6f 63 6b 2f 75 6e 6c  T NBYTE lock/unl
8130: 6f 63 6b 20 73 68 61 72 65 64 2f 65 78 63 6c 75  ock shared/exclu
8140: 73 69 76 65 22 0a 2a 2f 0a 73 74 61 74 69 63 20  sive".*/.static 
8150: 69 6e 74 20 74 65 73 74 76 66 73 5f 63 6d 64 28  int testvfs_cmd(
8160: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 64  .  ClientData cd
8170: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
8180: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62  interp,.  int ob
8190: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43  jc,.  Tcl_Obj *C
81a0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20  ONST objv[].){. 
81b0: 20 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f   static sqlite3_
81c0: 76 66 73 20 74 76 66 73 5f 76 66 73 20 3d 20 7b  vfs tvfs_vfs = {
81d0: 0a 20 20 20 20 32 2c 20 20 20 20 20 20 20 20 20  .    2,         
81e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
81f0: 20 20 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a     /* iVersion *
8200: 2f 0a 20 20 20 20 73 69 7a 65 6f 66 28 54 65 73  /.    sizeof(Tes
8210: 74 76 66 73 46 69 6c 65 29 2c 20 20 20 20 20 20  tvfsFile),      
8220: 20 20 20 20 20 20 2f 2a 20 73 7a 4f 73 46 69 6c        /* szOsFil
8230: 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  e */.    0,     
8240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8250: 20 20 20 20 20 20 20 2f 2a 20 6d 78 50 61 74 68         /* mxPath
8260: 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20  name */.    0,  
8270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8280: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 4e 65            /* pNe
8290: 78 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  xt */.    0,    
82a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
82b0: 20 20 20 20 20 20 20 20 2f 2a 20 7a 4e 61 6d 65          /* zName
82c0: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
82d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
82e0: 20 20 20 20 20 20 2f 2a 20 70 41 70 70 44 61 74        /* pAppDat
82f0: 61 20 2a 2f 0a 20 20 20 20 74 76 66 73 4f 70 65  a */.    tvfsOpe
8300: 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n,              
8310: 20 20 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20         /* xOpen 
8320: 2a 2f 0a 20 20 20 20 74 76 66 73 44 65 6c 65 74  */.    tvfsDelet
8330: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e,              
8340: 20 20 20 20 20 2f 2a 20 78 44 65 6c 65 74 65 20       /* xDelete 
8350: 2a 2f 0a 20 20 20 20 74 76 66 73 41 63 63 65 73  */.    tvfsAcces
8360: 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s,              
8370: 20 20 20 20 20 2f 2a 20 78 41 63 63 65 73 73 20       /* xAccess 
8380: 2a 2f 0a 20 20 20 20 74 76 66 73 46 75 6c 6c 50  */.    tvfsFullP
8390: 61 74 68 6e 61 6d 65 2c 20 20 20 20 20 20 20 20  athname,        
83a0: 20 20 20 20 20 2f 2a 20 78 46 75 6c 6c 50 61 74       /* xFullPat
83b0: 68 6e 61 6d 65 20 2a 2f 0a 23 69 66 6e 64 65 66  hname */.#ifndef
83c0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41   SQLITE_OMIT_LOA
83d0: 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 20 20 20 20  D_EXTENSION.    
83e0: 74 76 66 73 44 6c 4f 70 65 6e 2c 20 20 20 20 20  tvfsDlOpen,     
83f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
8400: 20 78 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20 20   xDlOpen */.    
8410: 74 76 66 73 44 6c 45 72 72 6f 72 2c 20 20 20 20  tvfsDlError,    
8420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
8430: 20 78 44 6c 45 72 72 6f 72 20 2a 2f 0a 20 20 20   xDlError */.   
8440: 20 74 76 66 73 44 6c 53 79 6d 2c 20 20 20 20 20   tvfsDlSym,     
8450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
8460: 2a 20 78 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20  * xDlSym */.    
8470: 74 76 66 73 44 6c 43 6c 6f 73 65 2c 20 20 20 20  tvfsDlClose,    
8480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
8490: 20 78 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65 6c   xDlClose */.#el
84a0: 73 65 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  se.    0,       
84b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
84c0: 20 20 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20       /* xDlOpen 
84d0: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
84e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
84f0: 20 20 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72       /* xDlError
8500: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
8510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8520: 20 20 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20        /* xDlSym 
8530: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
8540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8550: 20 20 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65       /* xDlClose
8560: 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51   */.#endif /* SQ
8570: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45  LITE_OMIT_LOAD_E
8580: 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 20 20 20 20  XTENSION */.    
8590: 74 76 66 73 52 61 6e 64 6f 6d 6e 65 73 73 2c 20  tvfsRandomness, 
85a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
85b0: 20 78 52 61 6e 64 6f 6d 6e 65 73 73 20 2a 2f 0a   xRandomness */.
85c0: 20 20 20 20 74 76 66 73 53 6c 65 65 70 2c 20 20      tvfsSleep,  
85d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
85e0: 20 20 2f 2a 20 78 53 6c 65 65 70 20 2a 2f 0a 20    /* xSleep */. 
85f0: 20 20 20 74 76 66 73 43 75 72 72 65 6e 74 54 69     tvfsCurrentTi
8600: 6d 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  me,             
8610: 20 2f 2a 20 78 43 75 72 72 65 6e 74 54 69 6d 65   /* xCurrentTime
8620: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
8630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8640: 20 20 20 20 20 20 2f 2a 20 78 47 65 74 4c 61 73        /* xGetLas
8650: 74 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c  tError */.    0,
8660: 0a 20 20 20 20 30 2c 0a 20 20 7d 3b 0a 0a 20 20  .    0,.  };..  
8670: 54 65 73 74 76 66 73 20 2a 70 3b 20 20 20 20 20  Testvfs *p;     
8680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8690: 2f 2a 20 4e 65 77 20 6f 62 6a 65 63 74 20 2a 2f  /* New object */
86a0: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
86b0: 70 56 66 73 3b 20 20 20 20 20 20 20 20 20 20 20  pVfs;           
86c0: 20 20 20 2f 2a 20 4e 65 77 20 56 46 53 20 2a 2f     /* New VFS */
86d0: 0a 20 20 63 68 61 72 20 2a 7a 56 66 73 3b 0a 20  .  char *zVfs;. 
86e0: 20 69 6e 74 20 6e 42 79 74 65 3b 20 20 20 20 20   int nByte;     
86f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8700: 20 2f 2a 20 42 79 74 65 73 20 6f 66 20 73 70 61   /* Bytes of spa
8710: 63 65 20 74 6f 20 61 6c 6c 6f 63 61 74 65 20 61  ce to allocate a
8720: 74 20 70 20 2a 2f 0a 0a 20 20 69 6e 74 20 69 3b  t p */..  int i;
8730: 0a 20 20 69 6e 74 20 69 73 4e 6f 73 68 6d 20 3d  .  int isNoshm =
8740: 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   0;             
8750: 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 2d 6e     /* True if -n
8760: 6f 73 68 6d 20 69 73 20 70 61 73 73 65 64 20 2a  oshm is passed *
8770: 2f 0a 20 20 69 6e 74 20 69 73 44 65 66 61 75 6c  /.  int isDefaul
8780: 74 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20  t = 0;          
8790: 20 20 20 20 2f 2a 20 54 72 75 65 20 69 66 20 2d      /* True if -
87a0: 64 65 66 61 75 6c 74 20 69 73 20 70 61 73 73 65  default is passe
87b0: 64 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 6a 63  d */..  if( objc
87c0: 3c 32 20 7c 7c 20 30 21 3d 28 6f 62 6a 63 25 32  <2 || 0!=(objc%2
87d0: 29 20 29 20 67 6f 74 6f 20 62 61 64 5f 61 72 67  ) ) goto bad_arg
87e0: 73 3b 0a 20 20 66 6f 72 28 69 3d 32 3b 20 69 3c  s;.  for(i=2; i<
87f0: 6f 62 6a 63 3b 20 69 20 2b 3d 20 32 29 7b 0a 20  objc; i += 2){. 
8800: 20 20 20 69 6e 74 20 6e 53 77 69 74 63 68 3b 0a     int nSwitch;.
8810: 20 20 20 20 63 68 61 72 20 2a 7a 53 77 69 74 63      char *zSwitc
8820: 68 3b 0a 0a 20 20 20 20 7a 53 77 69 74 63 68 20  h;..    zSwitch 
8830: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  = Tcl_GetStringF
8840: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 5d 2c 20  romObj(objv[i], 
8850: 26 6e 53 77 69 74 63 68 29 3b 20 0a 20 20 20 20  &nSwitch); .    
8860: 69 66 28 20 6e 53 77 69 74 63 68 3e 32 20 26 26  if( nSwitch>2 &&
8870: 20 30 3d 3d 73 74 72 6e 63 6d 70 28 22 2d 6e 6f   0==strncmp("-no
8880: 73 68 6d 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e  shm", zSwitch, n
8890: 53 77 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20  Switch) ){.     
88a0: 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c   if( Tcl_GetBool
88b0: 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  eanFromObj(inter
88c0: 70 2c 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69  p, objv[i+1], &i
88d0: 73 4e 6f 73 68 6d 29 20 29 7b 0a 20 20 20 20 20  sNoshm) ){.     
88e0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
88f0: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
8900: 20 7d 0a 20 20 20 20 65 6c 73 65 20 69 66 28 20   }.    else if( 
8910: 6e 53 77 69 74 63 68 3e 32 20 26 26 20 30 3d 3d  nSwitch>2 && 0==
8920: 73 74 72 6e 63 6d 70 28 22 2d 64 65 66 61 75 6c  strncmp("-defaul
8930: 74 22 2c 20 7a 53 77 69 74 63 68 2c 20 6e 53 77  t", zSwitch, nSw
8940: 69 74 63 68 29 20 29 7b 0a 20 20 20 20 20 20 69  itch) ){.      i
8950: 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61  f( Tcl_GetBoolea
8960: 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  nFromObj(interp,
8970: 20 6f 62 6a 76 5b 69 2b 31 5d 2c 20 26 69 73 44   objv[i+1], &isD
8980: 65 66 61 75 6c 74 29 20 29 7b 0a 20 20 20 20 20  efault) ){.     
8990: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
89a0: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
89b0: 20 7d 0a 20 20 20 20 65 6c 73 65 7b 0a 20 20 20   }.    else{.   
89c0: 20 20 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73     goto bad_args
89d0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 7a  ;.    }.  }..  z
89e0: 56 66 73 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  Vfs = Tcl_GetStr
89f0: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20  ing(objv[1]);.  
8a00: 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 54  nByte = sizeof(T
8a10: 65 73 74 76 66 73 29 20 2b 20 73 74 72 6c 65 6e  estvfs) + strlen
8a20: 28 7a 56 66 73 29 2b 31 3b 0a 20 20 70 20 3d 20  (zVfs)+1;.  p = 
8a30: 28 54 65 73 74 76 66 73 20 2a 29 63 6b 61 6c 6c  (Testvfs *)ckall
8a40: 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20 6d 65 6d  oc(nByte);.  mem
8a50: 73 65 74 28 70 2c 20 30 2c 20 6e 42 79 74 65 29  set(p, 0, nByte)
8a60: 3b 0a 20 20 70 2d 3e 69 44 65 76 63 68 61 72 20  ;.  p->iDevchar 
8a70: 3d 20 2d 31 3b 0a 20 20 70 2d 3e 69 53 65 63 74  = -1;.  p->iSect
8a80: 6f 72 73 69 7a 65 20 3d 20 2d 31 3b 0a 0a 20 20  orsize = -1;..  
8a90: 2f 2a 20 43 72 65 61 74 65 20 74 68 65 20 6e 65  /* Create the ne
8aa0: 77 20 6f 62 6a 65 63 74 20 63 6f 6d 6d 61 6e 64  w object command
8ab0: 20 62 65 66 6f 72 65 20 71 75 65 72 79 69 6e 67   before querying
8ac0: 20 53 51 4c 69 74 65 20 66 6f 72 20 61 20 64 65   SQLite for a de
8ad0: 66 61 75 6c 74 20 56 46 53 0a 20 20 2a 2a 20 74  fault VFS.  ** t
8ae0: 6f 20 75 73 65 20 66 6f 72 20 27 72 65 61 6c 27  o use for 'real'
8af0: 20 49 4f 20 6f 70 65 72 61 74 69 6f 6e 73 2e 20   IO operations. 
8b00: 54 68 69 73 20 69 73 20 62 65 63 61 75 73 65 20  This is because 
8b10: 63 72 65 61 74 69 6e 67 20 74 68 65 20 6e 65 77  creating the new
8b20: 20 56 46 53 0a 20 20 2a 2a 20 6d 61 79 20 64 65   VFS.  ** may de
8b30: 6c 65 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67  lete an existing
8b40: 20 5b 74 65 73 74 76 66 73 5d 20 56 46 53 20 6f   [testvfs] VFS o
8b50: 66 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 2e  f the same name.
8b60: 20 49 66 20 73 75 63 68 20 61 20 56 46 53 0a 20   If such a VFS. 
8b70: 20 2a 2a 20 69 73 20 63 75 72 72 65 6e 74 6c 79   ** is currently
8b80: 20 74 68 65 20 64 65 66 61 75 6c 74 2c 20 74 68   the default, th
8b90: 65 20 6e 65 77 20 5b 74 65 73 74 76 66 73 5d 20  e new [testvfs] 
8ba0: 6d 61 79 20 65 6e 64 20 75 70 20 63 61 6c 6c 69  may end up calli
8bb0: 6e 67 20 74 68 65 20 0a 20 20 2a 2a 20 6d 65 74  ng the .  ** met
8bc0: 68 6f 64 73 20 6f 66 20 61 20 64 65 6c 65 74 65  hods of a delete
8bd0: 64 20 6f 62 6a 65 63 74 2e 0a 20 20 2a 2f 0a 20  d object..  */. 
8be0: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f   Tcl_CreateObjCo
8bf0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 7a 56  mmand(interp, zV
8c00: 66 73 2c 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f  fs, testvfs_obj_
8c10: 63 6d 64 2c 20 70 2c 20 74 65 73 74 76 66 73 5f  cmd, p, testvfs_
8c20: 6f 62 6a 5f 64 65 6c 29 3b 0a 20 20 70 2d 3e 70  obj_del);.  p->p
8c30: 50 61 72 65 6e 74 20 3d 20 73 71 6c 69 74 65 33  Parent = sqlite3
8c40: 5f 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a 20 20  _vfs_find(0);.  
8c50: 70 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65  p->interp = inte
8c60: 72 70 3b 0a 0a 20 20 70 2d 3e 7a 4e 61 6d 65 20  rp;..  p->zName 
8c70: 3d 20 28 63 68 61 72 20 2a 29 26 70 5b 31 5d 3b  = (char *)&p[1];
8c80: 0a 20 20 6d 65 6d 63 70 79 28 70 2d 3e 7a 4e 61  .  memcpy(p->zNa
8c90: 6d 65 2c 20 7a 56 66 73 2c 20 73 74 72 6c 65 6e  me, zVfs, strlen
8ca0: 28 7a 56 66 73 29 2b 31 29 3b 0a 0a 20 20 70 56  (zVfs)+1);..  pV
8cb0: 66 73 20 3d 20 28 73 71 6c 69 74 65 33 5f 76 66  fs = (sqlite3_vf
8cc0: 73 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65  s *)ckalloc(size
8cd0: 6f 66 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29  of(sqlite3_vfs))
8ce0: 3b 0a 20 20 6d 65 6d 63 70 79 28 70 56 66 73 2c  ;.  memcpy(pVfs,
8cf0: 20 26 74 76 66 73 5f 76 66 73 2c 20 73 69 7a 65   &tvfs_vfs, size
8d00: 6f 66 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29  of(sqlite3_vfs))
8d10: 3b 0a 20 20 70 56 66 73 2d 3e 70 41 70 70 44 61  ;.  pVfs->pAppDa
8d20: 74 61 20 3d 20 28 76 6f 69 64 20 2a 29 70 3b 0a  ta = (void *)p;.
8d30: 20 20 70 56 66 73 2d 3e 7a 4e 61 6d 65 20 3d 20    pVfs->zName = 
8d40: 70 2d 3e 7a 4e 61 6d 65 3b 0a 20 20 70 56 66 73  p->zName;.  pVfs
8d50: 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20 70  ->mxPathname = p
8d60: 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74  ->pParent->mxPat
8d70: 68 6e 61 6d 65 3b 0a 20 20 70 56 66 73 2d 3e 73  hname;.  pVfs->s
8d80: 7a 4f 73 46 69 6c 65 20 2b 3d 20 70 2d 3e 70 50  zOsFile += p->pP
8d90: 61 72 65 6e 74 2d 3e 73 7a 4f 73 46 69 6c 65 3b  arent->szOsFile;
8da0: 0a 20 20 70 2d 3e 70 56 66 73 20 3d 20 70 56 66  .  p->pVfs = pVf
8db0: 73 3b 0a 20 20 70 2d 3e 69 73 4e 6f 73 68 6d 20  s;.  p->isNoshm 
8dc0: 3d 20 69 73 4e 6f 73 68 6d 3b 0a 20 20 70 2d 3e  = isNoshm;.  p->
8dd0: 6d 61 73 6b 20 3d 20 54 45 53 54 56 46 53 5f 41  mask = TESTVFS_A
8de0: 4c 4c 5f 4d 41 53 4b 3b 0a 0a 20 20 73 71 6c 69  LL_MASK;..  sqli
8df0: 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65 72  te3_vfs_register
8e00: 28 70 56 66 73 2c 20 69 73 44 65 66 61 75 6c 74  (pVfs, isDefault
8e10: 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  );..  return TCL
8e20: 5f 4f 4b 3b 0a 0a 20 62 61 64 5f 61 72 67 73 3a  _OK;.. bad_args:
8e30: 0a 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41  .  Tcl_WrongNumA
8e40: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
8e50: 62 6a 76 2c 20 22 56 46 53 4e 41 4d 45 20 3f 2d  bjv, "VFSNAME ?-
8e60: 6e 6f 73 68 6d 20 42 4f 4f 4c 3f 20 3f 2d 64 65  noshm BOOL? ?-de
8e70: 66 61 75 6c 74 20 42 4f 4f 4c 3f 22 29 3b 0a 20  fault BOOL?");. 
8e80: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
8e90: 52 3b 0a 7d 0a 0a 69 6e 74 20 53 71 6c 69 74 65  R;.}..int Sqlite
8ea0: 74 65 73 74 76 66 73 5f 49 6e 69 74 28 54 63 6c  testvfs_Init(Tcl
8eb0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29  _Interp *interp)
8ec0: 7b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62  {.  Tcl_CreateOb
8ed0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c  jCommand(interp,
8ee0: 20 22 74 65 73 74 76 66 73 22 2c 20 74 65 73 74   "testvfs", test
8ef0: 76 66 73 5f 63 6d 64 2c 20 30 2c 20 30 29 3b 0a  vfs_cmd, 0, 0);.
8f00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
8f10: 0a 7d 0a 0a 23 65 6e 64 69 66 0a                 .}..#endif.