/ Hex Artifact Content
Login

Artifact 3601f9b6d46cb6daf0697d60c76bf8e18b90b123:


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 20 20 54 65 73  llbacks */.  Tes
0410: 74 76 66 73 42 75 66 66 65 72 20 2a 70 53 68 6d  tvfsBuffer *pShm
0420: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  ;            /* 
0430: 53 68 61 72 65 64 20 6d 65 6d 6f 72 79 20 62 75  Shared memory bu
0440: 66 66 65 72 20 2a 2f 0a 7d 3b 0a 0a 0a 2f 2a 0a  ffer */.};.../*.
0450: 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f  ** An instance o
0460: 66 20 74 68 69 73 20 73 74 72 75 63 74 75 72 65  f this structure
0470: 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f   is allocated fo
0480: 72 20 65 61 63 68 20 56 46 53 20 63 72 65 61 74  r each VFS creat
0490: 65 64 2e 20 54 68 65 0a 2a 2a 20 73 71 6c 69 74  ed. The.** sqlit
04a0: 65 33 5f 76 66 73 2e 70 41 70 70 44 61 74 61 20  e3_vfs.pAppData 
04b0: 66 69 65 6c 64 20 6f 66 20 74 68 65 20 56 46 53  field of the VFS
04c0: 20 73 74 72 75 63 74 75 72 65 20 72 65 67 69 73   structure regis
04d0: 74 65 72 65 64 20 77 69 74 68 20 53 51 4c 69 74  tered with SQLit
04e0: 65 0a 2a 2a 20 69 73 20 73 65 74 20 74 6f 20 70  e.** is set to p
04f0: 6f 69 6e 74 20 74 6f 20 69 74 2e 0a 2a 2f 0a 73  oint to it..*/.s
0500: 74 72 75 63 74 20 54 65 73 74 76 66 73 20 7b 0a  truct Testvfs {.
0510: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 20 20    char *zName;  
0520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0530: 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 69    /* Name of thi
0540: 73 20 56 46 53 20 2a 2f 0a 20 20 73 71 6c 69 74  s VFS */.  sqlit
0550: 65 33 5f 76 66 73 20 2a 70 50 61 72 65 6e 74 3b  e3_vfs *pParent;
0560: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68             /* Th
0570: 65 20 56 46 53 20 74 6f 20 75 73 65 20 66 6f 72  e VFS to use for
0580: 20 66 69 6c 65 20 49 4f 20 2a 2f 0a 20 20 73 71   file IO */.  sq
0590: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b  lite3_vfs *pVfs;
05a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
05b0: 20 54 68 65 20 74 65 73 74 76 66 73 20 72 65 67   The testvfs reg
05c0: 69 73 74 65 72 65 64 20 77 69 74 68 20 53 51 4c  istered with SQL
05d0: 69 74 65 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74  ite */.  Tcl_Int
05e0: 65 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 20  erp *interp;    
05f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 74 65           /* Inte
0600: 72 70 72 65 74 65 72 20 74 6f 20 72 75 6e 20 73  rpreter to run s
0610: 63 72 69 70 74 20 69 6e 20 2a 2f 0a 20 20 69 6e  cript in */.  in
0620: 74 20 6e 53 63 72 69 70 74 3b 20 20 20 20 20 20  t nScript;      
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0640: 20 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d 65   Number of eleme
0650: 6e 74 73 20 69 6e 20 61 72 72 61 79 20 61 70 53  nts in array apS
0660: 63 72 69 70 74 20 2a 2f 0a 20 20 54 63 6c 5f 4f  cript */.  Tcl_O
0670: 62 6a 20 2a 2a 61 70 53 63 72 69 70 74 3b 20 20  bj **apScript;  
0680: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 63             /* Sc
0690: 72 69 70 74 20 74 6f 20 65 78 65 63 75 74 65 20  ript to execute 
06a0: 2a 2f 0a 20 20 54 65 73 74 76 66 73 42 75 66 66  */.  TestvfsBuff
06b0: 65 72 20 2a 70 42 75 66 66 65 72 3b 20 20 20 20  er *pBuffer;    
06c0: 20 20 20 20 20 2f 2a 20 4c 69 73 74 20 6f 66 20       /* List of 
06d0: 73 68 61 72 65 64 20 62 75 66 66 65 72 73 20 2a  shared buffers *
06e0: 2f 0a 20 20 69 6e 74 20 69 73 4e 6f 73 68 6d 3b  /.  int isNoshm;
06f0: 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 68 61  .};../*.** A sha
0700: 72 65 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65  red-memory buffe
0710: 72 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54 65 73  r..*/.struct Tes
0720: 74 76 66 73 42 75 66 66 65 72 20 7b 0a 20 20 63  tvfsBuffer {.  c
0730: 68 61 72 20 2a 7a 46 69 6c 65 3b 20 20 20 20 20  har *zFile;     
0740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0750: 2a 20 41 73 73 6f 63 69 61 74 65 64 20 66 69 6c  * Associated fil
0760: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e 74 20  e name */.  int 
0770: 6e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n;              
0780: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53              /* S
0790: 69 7a 65 20 6f 66 20 61 6c 6c 6f 63 61 74 65 64  ize of allocated
07a0: 20 62 75 66 66 65 72 20 69 6e 20 62 79 74 65 73   buffer in bytes
07b0: 20 2a 2f 0a 20 20 75 38 20 2a 61 3b 20 20 20 20   */.  u8 *a;    
07c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
07d0: 20 20 20 20 20 20 2f 2a 20 42 75 66 66 65 72 20        /* Buffer 
07e0: 61 6c 6c 6f 63 61 74 65 64 20 75 73 69 6e 67 20  allocated using 
07f0: 63 6b 61 6c 6c 6f 63 28 29 20 2a 2f 0a 20 20 69  ckalloc() */.  i
0800: 6e 74 20 6e 52 65 66 3b 20 20 20 20 20 20 20 20  nt nRef;        
0810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0820: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 72 65 66 65  * Number of refe
0830: 72 65 6e 63 65 73 20 74 6f 20 74 68 69 73 20 6f  rences to this o
0840: 62 6a 65 63 74 20 2a 2f 0a 20 20 54 65 73 74 76  bject */.  Testv
0850: 66 73 42 75 66 66 65 72 20 2a 70 4e 65 78 74 3b  fsBuffer *pNext;
0860: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65             /* Ne
0870: 78 74 20 69 6e 20 6c 69 6e 6b 65 64 20 6c 69 73  xt in linked lis
0880: 74 20 6f 66 20 61 6c 6c 20 62 75 66 66 65 72 73  t of all buffers
0890: 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66 69 6e 65   */.};...#define
08a0: 20 50 41 52 45 4e 54 56 46 53 28 78 29 20 28 28   PARENTVFS(x) ((
08b0: 28 54 65 73 74 76 66 73 20 2a 29 28 28 78 29 2d  (Testvfs *)((x)-
08c0: 3e 70 41 70 70 44 61 74 61 29 29 2d 3e 70 50 61  >pAppData))->pPa
08d0: 72 65 6e 74 29 0a 0a 0a 2f 2a 0a 2a 2a 20 4d 65  rent).../*.** Me
08e0: 74 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e  thod declaration
08f0: 73 20 66 6f 72 20 54 65 73 74 76 66 73 46 69 6c  s for TestvfsFil
0900: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
0910: 20 74 76 66 73 43 6c 6f 73 65 28 73 71 6c 69 74   tvfsClose(sqlit
0920: 65 33 5f 66 69 6c 65 2a 29 3b 0a 73 74 61 74 69  e3_file*);.stati
0930: 63 20 69 6e 74 20 74 76 66 73 52 65 61 64 28 73  c int tvfsRead(s
0940: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 76 6f  qlite3_file*, vo
0950: 69 64 2a 2c 20 69 6e 74 20 69 41 6d 74 2c 20 73  id*, int iAmt, s
0960: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66  qlite3_int64 iOf
0970: 73 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  st);.static int 
0980: 74 76 66 73 57 72 69 74 65 28 73 71 6c 69 74 65  tvfsWrite(sqlite
0990: 33 5f 66 69 6c 65 2a 2c 63 6f 6e 73 74 20 76 6f  3_file*,const vo
09a0: 69 64 2a 2c 69 6e 74 20 69 41 6d 74 2c 20 73 71  id*,int iAmt, sq
09b0: 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73  lite3_int64 iOfs
09c0: 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  t);.static int t
09d0: 76 66 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69  vfsTruncate(sqli
09e0: 74 65 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69 74  te3_file*, sqlit
09f0: 65 33 5f 69 6e 74 36 34 20 73 69 7a 65 29 3b 0a  e3_int64 size);.
0a00: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
0a10: 79 6e 63 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ync(sqlite3_file
0a20: 2a 2c 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a 73  *, int flags);.s
0a30: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 69  tatic int tvfsFi
0a40: 6c 65 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66  leSize(sqlite3_f
0a50: 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33 5f 69 6e  ile*, sqlite3_in
0a60: 74 36 34 20 2a 70 53 69 7a 65 29 3b 0a 73 74 61  t64 *pSize);.sta
0a70: 74 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63 6b  tic int tvfsLock
0a80: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20  (sqlite3_file*, 
0a90: 69 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  int);.static int
0aa0: 20 74 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69   tvfsUnlock(sqli
0ab0: 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b  te3_file*, int);
0ac0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
0ad0: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63  CheckReservedLoc
0ae0: 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  k(sqlite3_file*,
0af0: 20 69 6e 74 20 2a 29 3b 0a 73 74 61 74 69 63 20   int *);.static 
0b00: 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f 6e 74  int tvfsFileCont
0b10: 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  rol(sqlite3_file
0b20: 2a 2c 20 69 6e 74 20 6f 70 2c 20 76 6f 69 64 20  *, int op, void 
0b30: 2a 70 41 72 67 29 3b 0a 73 74 61 74 69 63 20 69  *pArg);.static i
0b40: 6e 74 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a  nt tvfsSectorSiz
0b50: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29  e(sqlite3_file*)
0b60: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
0b70: 73 44 65 76 69 63 65 43 68 61 72 61 63 74 65 72  sDeviceCharacter
0b80: 69 73 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66  istics(sqlite3_f
0b90: 69 6c 65 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 4d 65  ile*);../*.** Me
0ba0: 74 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f 6e  thod declaration
0bb0: 73 20 66 6f 72 20 74 76 66 73 5f 76 66 73 2e 0a  s for tvfs_vfs..
0bc0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
0bd0: 66 73 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f 76  fsOpen(sqlite3_v
0be0: 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  fs*, const char 
0bf0: 2a 2c 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  *, sqlite3_file*
0c00: 2c 20 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b 0a  , int , int *);.
0c10: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44  static int tvfsD
0c20: 65 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76 66  elete(sqlite3_vf
0c30: 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  s*, const char *
0c40: 7a 4e 61 6d 65 2c 20 69 6e 74 20 73 79 6e 63 44  zName, int syncD
0c50: 69 72 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  ir);.static int 
0c60: 74 76 66 73 41 63 63 65 73 73 28 73 71 6c 69 74  tvfsAccess(sqlit
0c70: 65 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63  e3_vfs*, const c
0c80: 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20  har *zName, int 
0c90: 66 6c 61 67 73 2c 20 69 6e 74 20 2a 29 3b 0a 73  flags, int *);.s
0ca0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 75  tatic int tvfsFu
0cb0: 6c 6c 50 61 74 68 6e 61 6d 65 28 73 71 6c 69 74  llPathname(sqlit
0cc0: 65 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63  e3_vfs*, const c
0cd0: 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74 2c  har *zName, int,
0ce0: 20 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 23 69   char *zOut);.#i
0cf0: 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49  fndef SQLITE_OMI
0d00: 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e  T_LOAD_EXTENSION
0d10: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a 74 76  .static void *tv
0d20: 66 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33  fsDlOpen(sqlite3
0d30: 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61  _vfs*, const cha
0d40: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 73  r *zFilename);.s
0d50: 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73 44  tatic void tvfsD
0d60: 6c 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f 76  lError(sqlite3_v
0d70: 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20  fs*, int nByte, 
0d80: 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 29 3b 0a  char *zErrMsg);.
0d90: 73 74 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76  static void (*tv
0da0: 66 73 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f  fsDlSym(sqlite3_
0db0: 76 66 73 2a 2c 76 6f 69 64 2a 2c 20 63 6f 6e 73  vfs*,void*, cons
0dc0: 74 20 63 68 61 72 20 2a 7a 53 79 6d 62 6f 6c 29  t char *zSymbol)
0dd0: 29 28 76 6f 69 64 29 3b 0a 73 74 61 74 69 63 20  )(void);.static 
0de0: 76 6f 69 64 20 74 76 66 73 44 6c 43 6c 6f 73 65  void tvfsDlClose
0df0: 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 76  (sqlite3_vfs*, v
0e00: 6f 69 64 2a 29 3b 0a 23 65 6e 64 69 66 20 2f 2a  oid*);.#endif /*
0e10: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41   SQLITE_OMIT_LOA
0e20: 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 73  D_EXTENSION */.s
0e30: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52 61  tatic int tvfsRa
0e40: 6e 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65 33  ndomness(sqlite3
0e50: 5f 76 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65  _vfs*, int nByte
0e60: 2c 20 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 73  , char *zOut);.s
0e70: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 6c  tatic int tvfsSl
0e80: 65 65 70 28 73 71 6c 69 74 65 33 5f 76 66 73 2a  eep(sqlite3_vfs*
0e90: 2c 20 69 6e 74 20 6d 69 63 72 6f 73 65 63 6f 6e  , int microsecon
0ea0: 64 73 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  ds);.static int 
0eb0: 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65 28  tvfsCurrentTime(
0ec0: 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 64 6f  sqlite3_vfs*, do
0ed0: 75 62 6c 65 2a 29 3b 0a 0a 73 74 61 74 69 63 20  uble*);..static 
0ee0: 69 6e 74 20 74 76 66 73 53 68 6d 4f 70 65 6e 28  int tvfsShmOpen(
0ef0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29 3b 0a  sqlite3_file*);.
0f00: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
0f10: 68 6d 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66  hmSize(sqlite3_f
0f20: 69 6c 65 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 20  ile*, int , int 
0f30: 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74  *);.static int t
0f40: 76 66 73 53 68 6d 47 65 74 28 73 71 6c 69 74 65  vfsShmGet(sqlite
0f50: 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 20 2c 20 69  3_file*, int , i
0f60: 6e 74 20 2a 2c 20 76 6f 69 64 20 2a 2a 29 3b 0a  nt *, void **);.
0f70: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
0f80: 68 6d 52 65 6c 65 61 73 65 28 73 71 6c 69 74 65  hmRelease(sqlite
0f90: 33 5f 66 69 6c 65 2a 29 3b 0a 73 74 61 74 69 63  3_file*);.static
0fa0: 20 69 6e 74 20 74 76 66 73 53 68 6d 4c 6f 63 6b   int tvfsShmLock
0fb0: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20  (sqlite3_file*, 
0fc0: 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b 0a 73 74  int , int *);.st
0fd0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d  atic int tvfsShm
0fe0: 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 66 69  Close(sqlite3_fi
0ff0: 6c 65 2a 2c 20 69 6e 74 29 3b 0a 0a 73 74 61 74  le*, int);..stat
1000: 69 63 20 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65  ic sqlite3_io_me
1010: 74 68 6f 64 73 20 74 76 66 73 5f 69 6f 5f 6d 65  thods tvfs_io_me
1020: 74 68 6f 64 73 20 3d 20 7b 0a 20 20 32 2c 20 20  thods = {.  2,  
1030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1040: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69 56 65            /* iVe
1050: 72 73 69 6f 6e 20 2a 2f 0a 20 20 74 76 66 73 43  rsion */.  tvfsC
1060: 6c 6f 73 65 2c 20 20 20 20 20 20 20 20 20 20 20  lose,           
1070: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43             /* xC
1080: 6c 6f 73 65 20 2a 2f 0a 20 20 74 76 66 73 52 65  lose */.  tvfsRe
1090: 61 64 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  ad,             
10a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 52 65            /* xRe
10b0: 61 64 20 2a 2f 0a 20 20 74 76 66 73 57 72 69 74  ad */.  tvfsWrit
10c0: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e,              
10d0: 20 20 20 20 20 20 20 20 2f 2a 20 78 57 72 69 74          /* xWrit
10e0: 65 20 2a 2f 0a 20 20 74 76 66 73 54 72 75 6e 63  e */.  tvfsTrunc
10f0: 61 74 65 2c 20 20 20 20 20 20 20 20 20 20 20 20  ate,            
1100: 20 20 20 20 20 20 20 2f 2a 20 78 54 72 75 6e 63         /* xTrunc
1110: 61 74 65 20 2a 2f 0a 20 20 74 76 66 73 53 79 6e  ate */.  tvfsSyn
1120: 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c,              
1130: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53 79 6e           /* xSyn
1140: 63 20 2a 2f 0a 20 20 74 76 66 73 46 69 6c 65 53  c */.  tvfsFileS
1150: 69 7a 65 2c 20 20 20 20 20 20 20 20 20 20 20 20  ize,            
1160: 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6c 65 53         /* xFileS
1170: 69 7a 65 20 2a 2f 0a 20 20 74 76 66 73 4c 6f 63  ize */.  tvfsLoc
1180: 6b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  k,              
1190: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 4c 6f 63           /* xLoc
11a0: 6b 20 2a 2f 0a 20 20 74 76 66 73 55 6e 6c 6f 63  k */.  tvfsUnloc
11b0: 6b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  k,              
11c0: 20 20 20 20 20 20 20 2f 2a 20 78 55 6e 6c 6f 63         /* xUnloc
11d0: 6b 20 2a 2f 0a 20 20 74 76 66 73 43 68 65 63 6b  k */.  tvfsCheck
11e0: 52 65 73 65 72 76 65 64 4c 6f 63 6b 2c 20 20 20  ReservedLock,   
11f0: 20 20 20 20 20 20 20 2f 2a 20 78 43 68 65 63 6b         /* xCheck
1200: 52 65 73 65 72 76 65 64 4c 6f 63 6b 20 2a 2f 0a  ReservedLock */.
1210: 20 20 74 76 66 73 46 69 6c 65 43 6f 6e 74 72 6f    tvfsFileContro
1220: 6c 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l,              
1230: 20 20 2f 2a 20 78 46 69 6c 65 43 6f 6e 74 72 6f    /* xFileContro
1240: 6c 20 2a 2f 0a 20 20 74 76 66 73 53 65 63 74 6f  l */.  tvfsSecto
1250: 72 53 69 7a 65 2c 20 20 20 20 20 20 20 20 20 20  rSize,          
1260: 20 20 20 20 20 20 20 2f 2a 20 78 53 65 63 74 6f         /* xSecto
1270: 72 53 69 7a 65 20 2a 2f 0a 20 20 74 76 66 73 44  rSize */.  tvfsD
1280: 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73  eviceCharacteris
1290: 74 69 63 73 2c 20 20 20 20 20 20 2f 2a 20 78 44  tics,      /* xD
12a0: 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73  eviceCharacteris
12b0: 74 69 63 73 20 2a 2f 0a 20 20 74 76 66 73 53 68  tics */.  tvfsSh
12c0: 6d 4f 70 65 6e 2c 20 20 20 20 20 20 20 20 20 20  mOpen,          
12d0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53 68            /* xSh
12e0: 6d 4f 70 65 6e 20 2a 2f 0a 20 20 74 76 66 73 53  mOpen */.  tvfsS
12f0: 68 6d 53 69 7a 65 2c 20 20 20 20 20 20 20 20 20  hmSize,         
1300: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53             /* xS
1310: 68 6d 53 69 7a 65 20 2a 2f 0a 20 20 74 76 66 73  hmSize */.  tvfs
1320: 53 68 6d 47 65 74 2c 20 20 20 20 20 20 20 20 20  ShmGet,         
1330: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
1340: 53 68 6d 47 65 74 20 2a 2f 0a 20 20 74 76 66 73  ShmGet */.  tvfs
1350: 53 68 6d 52 65 6c 65 61 73 65 2c 20 20 20 20 20  ShmRelease,     
1360: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
1370: 53 68 6d 52 65 6c 65 61 73 65 20 2a 2f 0a 20 20  ShmRelease */.  
1380: 74 76 66 73 53 68 6d 4c 6f 63 6b 2c 20 20 20 20  tvfsShmLock,    
1390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13a0: 2f 2a 20 78 53 68 6d 4c 6f 63 6b 20 2a 2f 0a 20  /* xShmLock */. 
13b0: 20 74 76 66 73 53 68 6d 43 6c 6f 73 65 20 20 20   tvfsShmClose   
13c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13d0: 20 2f 2a 20 78 53 68 6d 43 6c 6f 73 65 20 2a 2f   /* xShmClose */
13e0: 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65  .};../*.** Close
13f0: 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a   an tvfs-file..*
1400: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
1410: 73 43 6c 6f 73 65 28 73 71 6c 69 74 65 33 5f 66  sClose(sqlite3_f
1420: 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 54  ile *pFile){.  T
1430: 65 73 74 76 66 73 46 69 6c 65 20 2a 70 20 3d 20  estvfsFile *p = 
1440: 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70  (TestvfsFile *)p
1450: 46 69 6c 65 3b 0a 20 20 69 66 28 20 70 2d 3e 70  File;.  if( p->p
1460: 53 68 6d 49 64 20 29 7b 0a 20 20 20 20 54 63 6c  ShmId ){.    Tcl
1470: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 2d  _DecrRefCount(p-
1480: 3e 70 53 68 6d 49 64 29 3b 0a 20 20 20 20 70 2d  >pShmId);.    p-
1490: 3e 70 53 68 6d 49 64 20 3d 20 30 3b 0a 20 20 7d  >pShmId = 0;.  }
14a0: 0a 20 20 69 66 28 20 70 46 69 6c 65 2d 3e 70 4d  .  if( pFile->pM
14b0: 65 74 68 6f 64 73 20 29 7b 0a 20 20 20 20 63 6b  ethods ){.    ck
14c0: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 46 69  free((char *)pFi
14d0: 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 29 3b 0a 20  le->pMethods);. 
14e0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69   }.  return sqli
14f0: 74 65 33 4f 73 43 6c 6f 73 65 28 70 2d 3e 70 52  te3OsClose(p->pR
1500: 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52  eal);.}../*.** R
1510: 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 61 6e  ead data from an
1520: 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73   tvfs-file..*/.s
1530: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52 65  tatic int tvfsRe
1540: 61 64 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69  ad(.  sqlite3_fi
1550: 6c 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20 76 6f  le *pFile, .  vo
1560: 69 64 20 2a 7a 42 75 66 2c 20 0a 20 20 69 6e 74  id *zBuf, .  int
1570: 20 69 41 6d 74 2c 20 0a 20 20 73 71 6c 69 74 65   iAmt, .  sqlite
1580: 5f 69 6e 74 36 34 20 69 4f 66 73 74 0a 29 7b 0a  _int64 iOfst.){.
1590: 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70    TestvfsFile *p
15a0: 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65 20   = (TestvfsFile 
15b0: 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75 72  *)pFile;.  retur
15c0: 6e 20 73 71 6c 69 74 65 33 4f 73 52 65 61 64 28  n sqlite3OsRead(
15d0: 70 2d 3e 70 52 65 61 6c 2c 20 7a 42 75 66 2c 20  p->pReal, zBuf, 
15e0: 69 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a 7d 0a  iAmt, iOfst);.}.
15f0: 0a 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 64 61 74  ./*.** Write dat
1600: 61 20 74 6f 20 61 6e 20 74 76 66 73 2d 66 69 6c  a to an tvfs-fil
1610: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
1620: 20 74 76 66 73 57 72 69 74 65 28 0a 20 20 73 71   tvfsWrite(.  sq
1630: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
1640: 65 2c 20 0a 20 20 63 6f 6e 73 74 20 76 6f 69 64  e, .  const void
1650: 20 2a 7a 42 75 66 2c 20 0a 20 20 69 6e 74 20 69   *zBuf, .  int i
1660: 41 6d 74 2c 20 0a 20 20 73 71 6c 69 74 65 5f 69  Amt, .  sqlite_i
1670: 6e 74 36 34 20 69 4f 66 73 74 0a 29 7b 0a 20 20  nt64 iOfst.){.  
1680: 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70 20 3d  TestvfsFile *p =
1690: 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29   (TestvfsFile *)
16a0: 70 46 69 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20  pFile;.  return 
16b0: 73 71 6c 69 74 65 33 4f 73 57 72 69 74 65 28 70  sqlite3OsWrite(p
16c0: 2d 3e 70 52 65 61 6c 2c 20 7a 42 75 66 2c 20 69  ->pReal, zBuf, i
16d0: 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a 7d 0a 0a  Amt, iOfst);.}..
16e0: 2f 2a 0a 2a 2a 20 54 72 75 6e 63 61 74 65 20 61  /*.** Truncate a
16f0: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
1700: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 54  static int tvfsT
1710: 72 75 6e 63 61 74 65 28 73 71 6c 69 74 65 33 5f  runcate(sqlite3_
1720: 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 73 71 6c  file *pFile, sql
1730: 69 74 65 5f 69 6e 74 36 34 20 73 69 7a 65 29 7b  ite_int64 size){
1740: 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a  .  TestvfsFile *
1750: 70 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65  p = (TestvfsFile
1760: 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75   *)pFile;.  retu
1770: 72 6e 20 73 71 6c 69 74 65 33 4f 73 54 72 75 6e  rn sqlite3OsTrun
1780: 63 61 74 65 28 70 2d 3e 70 52 65 61 6c 2c 20 73  cate(p->pReal, s
1790: 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53  ize);.}../*.** S
17a0: 79 6e 63 20 61 6e 20 74 76 66 73 2d 66 69 6c 65  ync an tvfs-file
17b0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
17c0: 74 76 66 73 53 79 6e 63 28 73 71 6c 69 74 65 33  tvfsSync(sqlite3
17d0: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e  _file *pFile, in
17e0: 74 20 66 6c 61 67 73 29 7b 0a 20 20 54 65 73 74  t flags){.  Test
17f0: 76 66 73 46 69 6c 65 20 2a 70 20 3d 20 28 54 65  vfsFile *p = (Te
1800: 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c  stvfsFile *)pFil
1810: 65 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69  e;.  return sqli
1820: 74 65 33 4f 73 53 79 6e 63 28 70 2d 3e 70 52 65  te3OsSync(p->pRe
1830: 61 6c 2c 20 66 6c 61 67 73 29 3b 0a 7d 0a 0a 2f  al, flags);.}../
1840: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74 68 65 20  *.** Return the 
1850: 63 75 72 72 65 6e 74 20 66 69 6c 65 2d 73 69 7a  current file-siz
1860: 65 20 6f 66 20 61 6e 20 74 76 66 73 2d 66 69 6c  e of an tvfs-fil
1870: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
1880: 20 74 76 66 73 46 69 6c 65 53 69 7a 65 28 73 71   tvfsFileSize(sq
1890: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
18a0: 65 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20  e, sqlite_int64 
18b0: 2a 70 53 69 7a 65 29 7b 0a 20 20 54 65 73 74 76  *pSize){.  Testv
18c0: 66 73 46 69 6c 65 20 2a 70 20 3d 20 28 54 65 73  fsFile *p = (Tes
18d0: 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65  tvfsFile *)pFile
18e0: 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  ;.  return sqlit
18f0: 65 33 4f 73 46 69 6c 65 53 69 7a 65 28 70 2d 3e  e3OsFileSize(p->
1900: 70 52 65 61 6c 2c 20 70 53 69 7a 65 29 3b 0a 7d  pReal, pSize);.}
1910: 0a 0a 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 61 6e 20  ../*.** Lock an 
1920: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
1930: 61 74 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63  atic int tvfsLoc
1940: 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  k(sqlite3_file *
1950: 70 46 69 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b  pFile, int eLock
1960: 29 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65  ){.  TestvfsFile
1970: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 46 69   *p = (TestvfsFi
1980: 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65  le *)pFile;.  re
1990: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 4c 6f  turn sqlite3OsLo
19a0: 63 6b 28 70 2d 3e 70 52 65 61 6c 2c 20 65 4c 6f  ck(p->pReal, eLo
19b0: 63 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 6e  ck);.}../*.** Un
19c0: 6c 6f 63 6b 20 61 6e 20 74 76 66 73 2d 66 69 6c  lock an tvfs-fil
19d0: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
19e0: 20 74 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c 69   tvfsUnlock(sqli
19f0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
1a00: 20 69 6e 74 20 65 4c 6f 63 6b 29 7b 0a 20 20 54   int eLock){.  T
1a10: 65 73 74 76 66 73 46 69 6c 65 20 2a 70 20 3d 20  estvfsFile *p = 
1a20: 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70  (TestvfsFile *)p
1a30: 46 69 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20 73  File;.  return s
1a40: 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 70  qlite3OsUnlock(p
1a50: 2d 3e 70 52 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b  ->pReal, eLock);
1a60: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63 6b 20  .}../*.** Check 
1a70: 69 66 20 61 6e 6f 74 68 65 72 20 66 69 6c 65 2d  if another file-
1a80: 68 61 6e 64 6c 65 20 68 6f 6c 64 73 20 61 20 52  handle holds a R
1a90: 45 53 45 52 56 45 44 20 6c 6f 63 6b 20 6f 6e 20  ESERVED lock on 
1aa0: 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f  an tvfs-file..*/
1ab0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
1ac0: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63  CheckReservedLoc
1ad0: 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  k(sqlite3_file *
1ae0: 70 46 69 6c 65 2c 20 69 6e 74 20 2a 70 52 65 73  pFile, int *pRes
1af0: 4f 75 74 29 7b 0a 20 20 54 65 73 74 76 66 73 46  Out){.  TestvfsF
1b00: 69 6c 65 20 2a 70 20 3d 20 28 54 65 73 74 76 66  ile *p = (Testvf
1b10: 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20  sFile *)pFile;. 
1b20: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
1b30: 73 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f  sCheckReservedLo
1b40: 63 6b 28 70 2d 3e 70 52 65 61 6c 2c 20 70 52 65  ck(p->pReal, pRe
1b50: 73 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  sOut);.}../*.** 
1b60: 46 69 6c 65 20 63 6f 6e 74 72 6f 6c 20 6d 65 74  File control met
1b70: 68 6f 64 2e 20 46 6f 72 20 63 75 73 74 6f 6d 20  hod. For custom 
1b80: 6f 70 65 72 61 74 69 6f 6e 73 20 6f 6e 20 61 6e  operations on an
1b90: 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73   tvfs-file..*/.s
1ba0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 69  tatic int tvfsFi
1bb0: 6c 65 43 6f 6e 74 72 6f 6c 28 73 71 6c 69 74 65  leControl(sqlite
1bc0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69  3_file *pFile, i
1bd0: 6e 74 20 6f 70 2c 20 76 6f 69 64 20 2a 70 41 72  nt op, void *pAr
1be0: 67 29 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c  g){.  TestvfsFil
1bf0: 65 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 46  e *p = (TestvfsF
1c00: 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72  ile *)pFile;.  r
1c10: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 46  eturn sqlite3OsF
1c20: 69 6c 65 43 6f 6e 74 72 6f 6c 28 70 2d 3e 70 52  ileControl(p->pR
1c30: 65 61 6c 2c 20 6f 70 2c 20 70 41 72 67 29 3b 0a  eal, op, pArg);.
1c40: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
1c50: 74 68 65 20 73 65 63 74 6f 72 2d 73 69 7a 65 20  the sector-size 
1c60: 69 6e 20 62 79 74 65 73 20 66 6f 72 20 61 6e 20  in bytes for an 
1c70: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
1c80: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 65 63  atic int tvfsSec
1c90: 74 6f 72 53 69 7a 65 28 73 71 6c 69 74 65 33 5f  torSize(sqlite3_
1ca0: 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20  file *pFile){.  
1cb0: 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70 20 3d  TestvfsFile *p =
1cc0: 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29   (TestvfsFile *)
1cd0: 70 46 69 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20  pFile;.  return 
1ce0: 73 71 6c 69 74 65 33 4f 73 53 65 63 74 6f 72 53  sqlite3OsSectorS
1cf0: 69 7a 65 28 70 2d 3e 70 52 65 61 6c 29 3b 0a 7d  ize(p->pReal);.}
1d00: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 74  ../*.** Return t
1d10: 68 65 20 64 65 76 69 63 65 20 63 68 61 72 61 63  he device charac
1d20: 74 65 72 69 73 74 69 63 20 66 6c 61 67 73 20 73  teristic flags s
1d30: 75 70 70 6f 72 74 65 64 20 62 79 20 61 6e 20 74  upported by an t
1d40: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
1d50: 74 69 63 20 69 6e 74 20 74 76 66 73 44 65 76 69  tic int tvfsDevi
1d60: 63 65 43 68 61 72 61 63 74 65 72 69 73 74 69 63  ceCharacteristic
1d70: 73 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  s(sqlite3_file *
1d80: 70 46 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66  pFile){.  Testvf
1d90: 73 46 69 6c 65 20 2a 70 20 3d 20 28 54 65 73 74  sFile *p = (Test
1da0: 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b  vfsFile *)pFile;
1db0: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
1dc0: 33 4f 73 44 65 76 69 63 65 43 68 61 72 61 63 74  3OsDeviceCharact
1dd0: 65 72 69 73 74 69 63 73 28 70 2d 3e 70 52 65 61  eristics(p->pRea
1de0: 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f 70 65  l);.}../*.** Ope
1df0: 6e 20 61 6e 20 74 76 66 73 20 66 69 6c 65 20 68  n an tvfs file h
1e00: 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  andle..*/.static
1e10: 20 69 6e 74 20 74 76 66 73 4f 70 65 6e 28 0a 20   int tvfsOpen(. 
1e20: 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56   sqlite3_vfs *pV
1e30: 66 73 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  fs,.  const char
1e40: 20 2a 7a 4e 61 6d 65 2c 0a 20 20 73 71 6c 69 74   *zName,.  sqlit
1e50: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 0a  e3_file *pFile,.
1e60: 20 20 69 6e 74 20 66 6c 61 67 73 2c 0a 20 20 69    int flags,.  i
1e70: 6e 74 20 2a 70 4f 75 74 46 6c 61 67 73 0a 29 7b  nt *pOutFlags.){
1e80: 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 54 65 73  .  int rc;.  Tes
1e90: 74 76 66 73 46 69 6c 65 20 2a 70 20 3d 20 28 54  tvfsFile *p = (T
1ea0: 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69  estvfsFile *)pFi
1eb0: 6c 65 3b 0a 20 20 70 2d 3e 70 53 68 6d 20 3d 20  le;.  p->pShm = 
1ec0: 30 3b 0a 20 20 70 2d 3e 70 53 68 6d 49 64 20 3d  0;.  p->pShmId =
1ed0: 20 30 3b 0a 20 20 70 2d 3e 7a 46 69 6c 65 6e 61   0;.  p->zFilena
1ee0: 6d 65 20 3d 20 7a 4e 61 6d 65 3b 0a 20 20 70 2d  me = zName;.  p-
1ef0: 3e 70 56 66 73 20 3d 20 70 56 66 73 3b 0a 20 20  >pVfs = pVfs;.  
1f00: 70 2d 3e 70 52 65 61 6c 20 3d 20 28 73 71 6c 69  p->pReal = (sqli
1f10: 74 65 33 5f 66 69 6c 65 20 2a 29 26 70 5b 31 5d  te3_file *)&p[1]
1f20: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  ;.  rc = sqlite3
1f30: 4f 73 4f 70 65 6e 28 50 41 52 45 4e 54 56 46 53  OsOpen(PARENTVFS
1f40: 28 70 56 66 73 29 2c 20 7a 4e 61 6d 65 2c 20 70  (pVfs), zName, p
1f50: 2d 3e 70 52 65 61 6c 2c 20 66 6c 61 67 73 2c 20  ->pReal, flags, 
1f60: 70 4f 75 74 46 6c 61 67 73 29 3b 0a 20 20 69 66  pOutFlags);.  if
1f70: 28 20 70 2d 3e 70 52 65 61 6c 2d 3e 70 4d 65 74  ( p->pReal->pMet
1f80: 68 6f 64 73 20 29 7b 0a 20 20 20 20 73 71 6c 69  hods ){.    sqli
1f90: 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 2a  te3_io_methods *
1fa0: 70 4d 65 74 68 6f 64 73 3b 0a 20 20 20 20 70 4d  pMethods;.    pM
1fb0: 65 74 68 6f 64 73 20 3d 20 28 73 71 6c 69 74 65  ethods = (sqlite
1fc0: 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 2a 29 63  3_io_methods *)c
1fd0: 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 73 71  kalloc(sizeof(sq
1fe0: 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73  lite3_io_methods
1ff0: 29 29 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 70  ));.    memcpy(p
2000: 4d 65 74 68 6f 64 73 2c 20 26 74 76 66 73 5f 69  Methods, &tvfs_i
2010: 6f 5f 6d 65 74 68 6f 64 73 2c 20 73 69 7a 65 6f  o_methods, sizeo
2020: 66 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74  f(sqlite3_io_met
2030: 68 6f 64 73 29 29 3b 0a 20 20 20 20 69 66 28 20  hods));.    if( 
2040: 28 28 54 65 73 74 76 66 73 20 2a 29 70 56 66 73  ((Testvfs *)pVfs
2050: 2d 3e 70 41 70 70 44 61 74 61 29 2d 3e 69 73 4e  ->pAppData)->isN
2060: 6f 73 68 6d 20 29 7b 0a 20 20 20 20 20 20 70 4d  oshm ){.      pM
2070: 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4f 70 65 6e  ethods->xShmOpen
2080: 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65 74   = 0;.      pMet
2090: 68 6f 64 73 2d 3e 78 53 68 6d 47 65 74 20 3d 20  hods->xShmGet = 
20a0: 30 3b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64  0;.      pMethod
20b0: 73 2d 3e 78 53 68 6d 53 69 7a 65 20 3d 20 30 3b  s->xShmSize = 0;
20c0: 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64 73 2d  .      pMethods-
20d0: 3e 78 53 68 6d 52 65 6c 65 61 73 65 20 3d 20 30  >xShmRelease = 0
20e0: 3b 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64 73  ;.      pMethods
20f0: 2d 3e 78 53 68 6d 43 6c 6f 73 65 20 3d 20 30 3b  ->xShmClose = 0;
2100: 0a 20 20 20 20 20 20 70 4d 65 74 68 6f 64 73 2d  .      pMethods-
2110: 3e 78 53 68 6d 4c 6f 63 6b 20 3d 20 30 3b 0a 20  >xShmLock = 0;. 
2120: 20 20 20 7d 0a 20 20 20 20 70 46 69 6c 65 2d 3e     }.    pFile->
2130: 70 4d 65 74 68 6f 64 73 20 3d 20 70 4d 65 74 68  pMethods = pMeth
2140: 6f 64 73 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75  ods;.  }..  retu
2150: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn rc;.}../*.** 
2160: 44 65 6c 65 74 65 20 74 68 65 20 66 69 6c 65 20  Delete the file 
2170: 6c 6f 63 61 74 65 64 20 61 74 20 7a 50 61 74 68  located at zPath
2180: 2e 20 49 66 20 74 68 65 20 64 69 72 53 79 6e 63  . If the dirSync
2190: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 72 75   argument is tru
21a0: 65 2c 0a 2a 2a 20 65 6e 73 75 72 65 20 74 68 65  e,.** ensure the
21b0: 20 66 69 6c 65 2d 73 79 73 74 65 6d 20 6d 6f 64   file-system mod
21c0: 69 66 69 63 61 74 69 6f 6e 73 20 61 72 65 20 73  ifications are s
21d0: 79 6e 63 65 64 20 74 6f 20 64 69 73 6b 20 62 65  ynced to disk be
21e0: 66 6f 72 65 0a 2a 2a 20 72 65 74 75 72 6e 69 6e  fore.** returnin
21f0: 67 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  g..*/.static int
2200: 20 74 76 66 73 44 65 6c 65 74 65 28 73 71 6c 69   tvfsDelete(sqli
2210: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 63  te3_vfs *pVfs, c
2220: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68  onst char *zPath
2230: 2c 20 69 6e 74 20 64 69 72 53 79 6e 63 29 7b 0a  , int dirSync){.
2240: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
2250: 4f 73 44 65 6c 65 74 65 28 50 41 52 45 4e 54 56  OsDelete(PARENTV
2260: 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c  FS(pVfs), zPath,
2270: 20 64 69 72 53 79 6e 63 29 3b 0a 7d 0a 0a 2f 2a   dirSync);.}../*
2280: 0a 2a 2a 20 54 65 73 74 20 66 6f 72 20 61 63 63  .** Test for acc
2290: 65 73 73 20 70 65 72 6d 69 73 73 69 6f 6e 73 2e  ess permissions.
22a0: 20 52 65 74 75 72 6e 20 74 72 75 65 20 69 66 20   Return true if 
22b0: 74 68 65 20 72 65 71 75 65 73 74 65 64 20 70 65  the requested pe
22c0: 72 6d 69 73 73 69 6f 6e 0a 2a 2a 20 69 73 20 61  rmission.** is a
22d0: 76 61 69 6c 61 62 6c 65 2c 20 6f 72 20 66 61 6c  vailable, or fal
22e0: 73 65 20 6f 74 68 65 72 77 69 73 65 2e 0a 2a 2f  se otherwise..*/
22f0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
2300: 41 63 63 65 73 73 28 0a 20 20 73 71 6c 69 74 65  Access(.  sqlite
2310: 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 0a 20 20  3_vfs *pVfs, .  
2320: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74  const char *zPat
2330: 68 2c 20 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c  h, .  int flags,
2340: 20 0a 20 20 69 6e 74 20 2a 70 52 65 73 4f 75 74   .  int *pResOut
2350: 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c  .){.  return sql
2360: 69 74 65 33 4f 73 41 63 63 65 73 73 28 50 41 52  ite3OsAccess(PAR
2370: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 7a 50  ENTVFS(pVfs), zP
2380: 61 74 68 2c 20 66 6c 61 67 73 2c 20 70 52 65 73  ath, flags, pRes
2390: 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50  Out);.}../*.** P
23a0: 6f 70 75 6c 61 74 65 20 62 75 66 66 65 72 20 7a  opulate buffer z
23b0: 4f 75 74 20 77 69 74 68 20 74 68 65 20 66 75 6c  Out with the ful
23c0: 6c 20 63 61 6e 6f 6e 69 63 61 6c 20 70 61 74 68  l canonical path
23d0: 6e 61 6d 65 20 63 6f 72 72 65 73 70 6f 6e 64 69  name correspondi
23e0: 6e 67 0a 2a 2a 20 74 6f 20 74 68 65 20 70 61 74  ng.** to the pat
23f0: 68 6e 61 6d 65 20 69 6e 20 7a 50 61 74 68 2e 20  hname in zPath. 
2400: 7a 4f 75 74 20 69 73 20 67 75 61 72 61 6e 74 65  zOut is guarante
2410: 65 64 20 74 6f 20 70 6f 69 6e 74 20 74 6f 20 61  ed to point to a
2420: 20 62 75 66 66 65 72 0a 2a 2a 20 6f 66 20 61 74   buffer.** of at
2430: 20 6c 65 61 73 74 20 28 44 45 56 53 59 4d 5f 4d   least (DEVSYM_M
2440: 41 58 5f 50 41 54 48 4e 41 4d 45 2b 31 29 20 62  AX_PATHNAME+1) b
2450: 79 74 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ytes..*/.static 
2460: 69 6e 74 20 74 76 66 73 46 75 6c 6c 50 61 74 68  int tvfsFullPath
2470: 6e 61 6d 65 28 0a 20 20 73 71 6c 69 74 65 33 5f  name(.  sqlite3_
2480: 76 66 73 20 2a 70 56 66 73 2c 20 0a 20 20 63 6f  vfs *pVfs, .  co
2490: 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 68 2c  nst char *zPath,
24a0: 20 0a 20 20 69 6e 74 20 6e 4f 75 74 2c 20 0a 20   .  int nOut, . 
24b0: 20 63 68 61 72 20 2a 7a 4f 75 74 0a 29 7b 0a 20   char *zOut.){. 
24c0: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
24d0: 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28 50 41  sFullPathname(PA
24e0: 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 7a  RENTVFS(pVfs), z
24f0: 50 61 74 68 2c 20 6e 4f 75 74 2c 20 7a 4f 75 74  Path, nOut, zOut
2500: 29 3b 0a 7d 0a 0a 23 69 66 6e 64 65 66 20 53 51  );.}..#ifndef SQ
2510: 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45  LITE_OMIT_LOAD_E
2520: 58 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a 20 4f  XTENSION./*.** O
2530: 70 65 6e 20 74 68 65 20 64 79 6e 61 6d 69 63 20  pen the dynamic 
2540: 6c 69 62 72 61 72 79 20 6c 6f 63 61 74 65 64 20  library located 
2550: 61 74 20 7a 50 61 74 68 20 61 6e 64 20 72 65 74  at zPath and ret
2560: 75 72 6e 20 61 20 68 61 6e 64 6c 65 2e 0a 2a 2f  urn a handle..*/
2570: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a 74 76  .static void *tv
2580: 66 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65 33  fsDlOpen(sqlite3
2590: 5f 76 66 73 20 2a 70 56 66 73 2c 20 63 6f 6e 73  _vfs *pVfs, cons
25a0: 74 20 63 68 61 72 20 2a 7a 50 61 74 68 29 7b 0a  t char *zPath){.
25b0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
25c0: 4f 73 44 6c 4f 70 65 6e 28 50 41 52 45 4e 54 56  OsDlOpen(PARENTV
25d0: 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68 29  FS(pVfs), zPath)
25e0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c  ;.}../*.** Popul
25f0: 61 74 65 20 74 68 65 20 62 75 66 66 65 72 20 7a  ate the buffer z
2600: 45 72 72 4d 73 67 20 28 73 69 7a 65 20 6e 42 79  ErrMsg (size nBy
2610: 74 65 20 62 79 74 65 73 29 20 77 69 74 68 20 61  te bytes) with a
2620: 20 68 75 6d 61 6e 20 72 65 61 64 61 62 6c 65 0a   human readable.
2630: 2a 2a 20 75 74 66 2d 38 20 73 74 72 69 6e 67 20  ** utf-8 string 
2640: 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 6d  describing the m
2650: 6f 73 74 20 72 65 63 65 6e 74 20 65 72 72 6f 72  ost recent error
2660: 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 61 73 73   encountered ass
2670: 6f 63 69 61 74 65 64 20 0a 2a 2a 20 77 69 74 68  ociated .** with
2680: 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 69   dynamic librari
2690: 65 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  es..*/.static vo
26a0: 69 64 20 74 76 66 73 44 6c 45 72 72 6f 72 28 73  id tvfsDlError(s
26b0: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
26c0: 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20 63 68 61  , int nByte, cha
26d0: 72 20 2a 7a 45 72 72 4d 73 67 29 7b 0a 20 20 73  r *zErrMsg){.  s
26e0: 71 6c 69 74 65 33 4f 73 44 6c 45 72 72 6f 72 28  qlite3OsDlError(
26f0: 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c  PARENTVFS(pVfs),
2700: 20 6e 42 79 74 65 2c 20 7a 45 72 72 4d 73 67 29   nByte, zErrMsg)
2710: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
2720: 6e 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74  n a pointer to t
2730: 68 65 20 73 79 6d 62 6f 6c 20 7a 53 79 6d 62 6f  he symbol zSymbo
2740: 6c 20 69 6e 20 74 68 65 20 64 79 6e 61 6d 69 63  l in the dynamic
2750: 20 6c 69 62 72 61 72 79 20 70 48 61 6e 64 6c 65   library pHandle
2760: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
2770: 20 28 2a 74 76 66 73 44 6c 53 79 6d 28 73 71 6c   (*tvfsDlSym(sql
2780: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
2790: 76 6f 69 64 20 2a 70 2c 20 63 6f 6e 73 74 20 63  void *p, const c
27a0: 68 61 72 20 2a 7a 53 79 6d 29 29 28 76 6f 69 64  har *zSym))(void
27b0: 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69  ){.  return sqli
27c0: 74 65 33 4f 73 44 6c 53 79 6d 28 50 41 52 45 4e  te3OsDlSym(PAREN
27d0: 54 56 46 53 28 70 56 66 73 29 2c 20 70 2c 20 7a  TVFS(pVfs), p, z
27e0: 53 79 6d 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43  Sym);.}../*.** C
27f0: 6c 6f 73 65 20 74 68 65 20 64 79 6e 61 6d 69 63  lose the dynamic
2800: 20 6c 69 62 72 61 72 79 20 68 61 6e 64 6c 65 20   library handle 
2810: 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74  pHandle..*/.stat
2820: 69 63 20 76 6f 69 64 20 74 76 66 73 44 6c 43 6c  ic void tvfsDlCl
2830: 6f 73 65 28 73 71 6c 69 74 65 33 5f 76 66 73 20  ose(sqlite3_vfs 
2840: 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70 48 61  *pVfs, void *pHa
2850: 6e 64 6c 65 29 7b 0a 20 20 73 71 6c 69 74 65 33  ndle){.  sqlite3
2860: 4f 73 44 6c 43 6c 6f 73 65 28 50 41 52 45 4e 54  OsDlClose(PARENT
2870: 56 46 53 28 70 56 66 73 29 2c 20 70 48 61 6e 64  VFS(pVfs), pHand
2880: 6c 65 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a  le);.}.#endif /*
2890: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41   SQLITE_OMIT_LOA
28a0: 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 0a  D_EXTENSION */..
28b0: 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 74  /*.** Populate t
28c0: 68 65 20 62 75 66 66 65 72 20 70 6f 69 6e 74 65  he buffer pointe
28d0: 64 20 74 6f 20 62 79 20 7a 42 75 66 4f 75 74 20  d to by zBufOut 
28e0: 77 69 74 68 20 6e 42 79 74 65 20 62 79 74 65 73  with nByte bytes
28f0: 20 6f 66 20 0a 2a 2a 20 72 61 6e 64 6f 6d 20 64   of .** random d
2900: 61 74 61 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ata..*/.static i
2910: 6e 74 20 74 76 66 73 52 61 6e 64 6f 6d 6e 65 73  nt tvfsRandomnes
2920: 73 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70  s(sqlite3_vfs *p
2930: 56 66 73 2c 20 69 6e 74 20 6e 42 79 74 65 2c 20  Vfs, int nByte, 
2940: 63 68 61 72 20 2a 7a 42 75 66 4f 75 74 29 7b 0a  char *zBufOut){.
2950: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
2960: 4f 73 52 61 6e 64 6f 6d 6e 65 73 73 28 50 41 52  OsRandomness(PAR
2970: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 6e 42  ENTVFS(pVfs), nB
2980: 79 74 65 2c 20 7a 42 75 66 4f 75 74 29 3b 0a 7d  yte, zBufOut);.}
2990: 0a 0a 2f 2a 0a 2a 2a 20 53 6c 65 65 70 20 66 6f  ../*.** Sleep fo
29a0: 72 20 6e 4d 69 63 72 6f 20 6d 69 63 72 6f 73 65  r nMicro microse
29b0: 63 6f 6e 64 73 2e 20 52 65 74 75 72 6e 20 74 68  conds. Return th
29c0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69 63 72  e number of micr
29d0: 6f 73 65 63 6f 6e 64 73 20 0a 2a 2a 20 61 63 74  oseconds .** act
29e0: 75 61 6c 6c 79 20 73 6c 65 70 74 2e 0a 2a 2f 0a  ually slept..*/.
29f0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
2a00: 6c 65 65 70 28 73 71 6c 69 74 65 33 5f 76 66 73  leep(sqlite3_vfs
2a10: 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e 4d 69 63   *pVfs, int nMic
2a20: 72 6f 29 7b 0a 20 20 72 65 74 75 72 6e 20 73 71  ro){.  return sq
2a30: 6c 69 74 65 33 4f 73 53 6c 65 65 70 28 50 41 52  lite3OsSleep(PAR
2a40: 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20 6e 4d  ENTVFS(pVfs), nM
2a50: 69 63 72 6f 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  icro);.}../*.** 
2a60: 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65  Return the curre
2a70: 6e 74 20 74 69 6d 65 20 61 73 20 61 20 4a 75 6c  nt time as a Jul
2a80: 69 61 6e 20 44 61 79 20 6e 75 6d 62 65 72 20 69  ian Day number i
2a90: 6e 20 2a 70 54 69 6d 65 4f 75 74 2e 0a 2a 2f 0a  n *pTimeOut..*/.
2aa0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43  static int tvfsC
2ab0: 75 72 72 65 6e 74 54 69 6d 65 28 73 71 6c 69 74  urrentTime(sqlit
2ac0: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 64 6f  e3_vfs *pVfs, do
2ad0: 75 62 6c 65 20 2a 70 54 69 6d 65 4f 75 74 29 7b  uble *pTimeOut){
2ae0: 0a 20 20 72 65 74 75 72 6e 20 50 41 52 45 4e 54  .  return PARENT
2af0: 56 46 53 28 70 56 66 73 29 2d 3e 78 43 75 72 72  VFS(pVfs)->xCurr
2b00: 65 6e 74 54 69 6d 65 28 50 41 52 45 4e 54 56 46  entTime(PARENTVF
2b10: 53 28 70 56 66 73 29 2c 20 70 54 69 6d 65 4f 75  S(pVfs), pTimeOu
2b20: 74 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f  t);.}..static vo
2b30: 69 64 20 74 76 66 73 47 72 6f 77 42 75 66 66 65  id tvfsGrowBuffe
2b40: 72 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70  r(TestvfsFile *p
2b50: 46 64 2c 20 69 6e 74 20 72 65 71 53 69 7a 65 2c  Fd, int reqSize,
2b60: 20 69 6e 74 20 2a 70 4e 65 77 53 69 7a 65 29 7b   int *pNewSize){
2b70: 0a 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72  .  TestvfsBuffer
2b80: 20 2a 70 42 75 66 66 65 72 20 3d 20 70 46 64 2d   *pBuffer = pFd-
2b90: 3e 70 53 68 6d 3b 0a 20 20 69 66 28 20 72 65 71  >pShm;.  if( req
2ba0: 53 69 7a 65 3e 70 42 75 66 66 65 72 2d 3e 6e 20  Size>pBuffer->n 
2bb0: 29 7b 0a 20 20 20 20 70 42 75 66 66 65 72 2d 3e  ){.    pBuffer->
2bc0: 61 20 3d 20 28 75 38 20 2a 29 63 6b 72 65 61 6c  a = (u8 *)ckreal
2bd0: 6c 6f 63 28 28 63 68 61 72 20 2a 29 70 42 75 66  loc((char *)pBuf
2be0: 66 65 72 2d 3e 61 2c 20 72 65 71 53 69 7a 65 29  fer->a, reqSize)
2bf0: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 26 70 42  ;.    memset(&pB
2c00: 75 66 66 65 72 2d 3e 61 5b 70 42 75 66 66 65 72  uffer->a[pBuffer
2c10: 2d 3e 6e 5d 2c 20 30 78 35 35 2c 20 72 65 71 53  ->n], 0x55, reqS
2c20: 69 7a 65 2d 70 42 75 66 66 65 72 2d 3e 6e 29 3b  ize-pBuffer->n);
2c30: 0a 20 20 20 20 70 42 75 66 66 65 72 2d 3e 6e 20  .    pBuffer->n 
2c40: 3d 20 72 65 71 53 69 7a 65 3b 0a 20 20 7d 0a 20  = reqSize;.  }. 
2c50: 20 2a 70 4e 65 77 53 69 7a 65 20 3d 20 70 42 75   *pNewSize = pBu
2c60: 66 66 65 72 2d 3e 6e 3b 0a 7d 0a 0a 73 74 61 74  ffer->n;.}..stat
2c70: 69 63 20 76 6f 69 64 20 74 76 66 73 45 78 65 63  ic void tvfsExec
2c80: 54 63 6c 28 0a 20 20 54 65 73 74 76 66 73 20 2a  Tcl(.  Testvfs *
2c90: 70 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  p, .  const char
2ca0: 20 2a 7a 4d 65 74 68 6f 64 2c 0a 20 20 54 63 6c   *zMethod,.  Tcl
2cb0: 5f 4f 62 6a 20 2a 61 72 67 31 2c 0a 20 20 54 63  _Obj *arg1,.  Tc
2cc0: 6c 5f 4f 62 6a 20 2a 61 72 67 32 2c 0a 20 20 54  l_Obj *arg2,.  T
2cd0: 63 6c 5f 4f 62 6a 20 2a 61 72 67 33 0a 29 7b 0a  cl_Obj *arg3.){.
2ce0: 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20 20    int rc;       
2cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2d00: 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 64 65    /* Return code
2d10: 20 66 72 6f 6d 20 54 63 6c 5f 45 76 61 6c 4f 62   from Tcl_EvalOb
2d20: 6a 28 29 20 2a 2f 0a 20 20 69 6e 74 20 6e 41 72  j() */.  int nAr
2d30: 67 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  g;              
2d40: 20 20 20 20 20 20 20 20 20 2f 2a 20 45 6c 65 6d           /* Elem
2d50: 65 6e 74 73 20 69 6e 20 65 76 61 6c 27 64 20 6c  ents in eval'd l
2d60: 69 73 74 20 2a 2f 0a 0a 20 20 70 2d 3e 61 70 53  ist */..  p->apS
2d70: 63 72 69 70 74 5b 70 2d 3e 6e 53 63 72 69 70 74  cript[p->nScript
2d80: 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  ] = Tcl_NewStrin
2d90: 67 4f 62 6a 28 7a 4d 65 74 68 6f 64 2c 20 2d 31  gObj(zMethod, -1
2da0: 29 3b 0a 20 20 70 2d 3e 61 70 53 63 72 69 70 74  );.  p->apScript
2db0: 5b 70 2d 3e 6e 53 63 72 69 70 74 2b 31 5d 20 3d  [p->nScript+1] =
2dc0: 20 61 72 67 31 3b 0a 20 20 70 2d 3e 61 70 53 63   arg1;.  p->apSc
2dd0: 72 69 70 74 5b 70 2d 3e 6e 53 63 72 69 70 74 2b  ript[p->nScript+
2de0: 32 5d 20 3d 20 61 72 67 32 3b 0a 20 20 70 2d 3e  2] = arg2;.  p->
2df0: 61 70 53 63 72 69 70 74 5b 70 2d 3e 6e 53 63 72  apScript[p->nScr
2e00: 69 70 74 2b 33 5d 20 3d 20 61 72 67 33 3b 0a 0a  ipt+3] = arg3;..
2e10: 20 20 66 6f 72 28 6e 41 72 67 3d 70 2d 3e 6e 53    for(nArg=p->nS
2e20: 63 72 69 70 74 3b 20 70 2d 3e 61 70 53 63 72 69  cript; p->apScri
2e30: 70 74 5b 6e 41 72 67 5d 3b 20 6e 41 72 67 2b 2b  pt[nArg]; nArg++
2e40: 29 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52  ){.    Tcl_IncrR
2e50: 65 66 43 6f 75 6e 74 28 70 2d 3e 61 70 53 63 72  efCount(p->apScr
2e60: 69 70 74 5b 6e 41 72 67 5d 29 3b 0a 20 20 7d 0a  ipt[nArg]);.  }.
2e70: 0a 20 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c  .  rc = Tcl_Eval
2e80: 4f 62 6a 76 28 70 2d 3e 69 6e 74 65 72 70 2c 20  Objv(p->interp, 
2e90: 6e 41 72 67 2c 20 70 2d 3e 61 70 53 63 72 69 70  nArg, p->apScrip
2ea0: 74 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42  t, TCL_EVAL_GLOB
2eb0: 41 4c 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 54  AL);.  if( rc!=T
2ec0: 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c  CL_OK ){.    Tcl
2ed0: 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72  _BackgroundError
2ee0: 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20  (p->interp);.   
2ef0: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74   Tcl_ResetResult
2f00: 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d  (p->interp);.  }
2f10: 0a 0a 20 20 66 6f 72 28 6e 41 72 67 3d 70 2d 3e  ..  for(nArg=p->
2f20: 6e 53 63 72 69 70 74 3b 20 70 2d 3e 61 70 53 63  nScript; p->apSc
2f30: 72 69 70 74 5b 6e 41 72 67 5d 3b 20 6e 41 72 67  ript[nArg]; nArg
2f40: 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63  ++){.    Tcl_Dec
2f50: 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e 61 70 53  rRefCount(p->apS
2f60: 63 72 69 70 74 5b 6e 41 72 67 5d 29 3b 0a 20 20  cript[nArg]);.  
2f70: 20 20 70 2d 3e 61 70 53 63 72 69 70 74 5b 6e 41    p->apScript[nA
2f80: 72 67 5d 20 3d 20 30 3b 0a 20 20 7d 0a 7d 0a 0a  rg] = 0;.  }.}..
2f90: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52  static int tvfsR
2fa0: 65 73 75 6c 74 43 6f 64 65 28 54 65 73 74 76 66  esultCode(Testvf
2fb0: 73 20 2a 70 2c 20 69 6e 74 20 2a 70 52 63 29 7b  s *p, int *pRc){
2fc0: 0a 20 20 73 74 72 75 63 74 20 65 72 72 63 6f 64  .  struct errcod
2fd0: 65 20 7b 0a 20 20 20 20 69 6e 74 20 65 43 6f 64  e {.    int eCod
2fe0: 65 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61  e;.    const cha
2ff0: 72 20 2a 7a 43 6f 64 65 3b 0a 20 20 7d 20 61 43  r *zCode;.  } aC
3000: 6f 64 65 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20  ode[] = {.    { 
3010: 53 51 4c 49 54 45 5f 4f 4b 2c 20 20 20 20 20 22  SQLITE_OK,     "
3020: 53 51 4c 49 54 45 5f 4f 4b 22 20 20 20 20 20 7d  SQLITE_OK"     }
3030: 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f 45  ,.    { SQLITE_E
3040: 52 52 4f 52 2c 20 20 22 53 51 4c 49 54 45 5f 45  RROR,  "SQLITE_E
3050: 52 52 4f 52 22 20 20 7d 2c 0a 20 20 20 20 7b 20  RROR"  },.    { 
3060: 53 51 4c 49 54 45 5f 49 4f 45 52 52 2c 20 20 22  SQLITE_IOERR,  "
3070: 53 51 4c 49 54 45 5f 49 4f 45 52 52 22 20 20 7d  SQLITE_IOERR"  }
3080: 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f 4c  ,.    { SQLITE_L
3090: 4f 43 4b 45 44 2c 20 22 53 51 4c 49 54 45 5f 4c  OCKED, "SQLITE_L
30a0: 4f 43 4b 45 44 22 20 7d 2c 0a 20 20 20 20 7b 20  OCKED" },.    { 
30b0: 53 51 4c 49 54 45 5f 42 55 53 59 2c 20 20 20 22  SQLITE_BUSY,   "
30c0: 53 51 4c 49 54 45 5f 42 55 53 59 22 20 20 20 7d  SQLITE_BUSY"   }
30d0: 2c 0a 20 20 7d 3b 0a 0a 20 20 63 6f 6e 73 74 20  ,.  };..  const 
30e0: 63 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69  char *z;.  int i
30f0: 3b 0a 0a 20 20 7a 20 3d 20 54 63 6c 5f 47 65 74  ;..  z = Tcl_Get
3100: 53 74 72 69 6e 67 52 65 73 75 6c 74 28 70 2d 3e  StringResult(p->
3110: 69 6e 74 65 72 70 29 3b 0a 20 20 66 6f 72 28 69  interp);.  for(i
3120: 3d 30 3b 20 69 3c 41 72 72 61 79 53 69 7a 65 28  =0; i<ArraySize(
3130: 61 43 6f 64 65 29 3b 20 69 2b 2b 29 7b 0a 20 20  aCode); i++){.  
3140: 20 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28    if( 0==strcmp(
3150: 7a 2c 20 61 43 6f 64 65 5b 69 5d 2e 7a 43 6f 64  z, aCode[i].zCod
3160: 65 29 20 29 7b 0a 20 20 20 20 20 20 2a 70 52 63  e) ){.      *pRc
3170: 20 3d 20 61 43 6f 64 65 5b 69 5d 2e 65 43 6f 64   = aCode[i].eCod
3180: 65 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  e;.      return 
3190: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20  1;.    }.  }..  
31a0: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61  return 0;.}..sta
31b0: 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d 4f  tic int tvfsShmO
31c0: 70 65 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f 66  pen(.  sqlite3_f
31d0: 69 6c 65 20 2a 70 46 69 6c 65 44 65 73 0a 29 7b  ile *pFileDes.){
31e0: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 3b 0a 20  .  Testvfs *p;. 
31f0: 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45   int rc = SQLITE
3200: 5f 4f 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20  _OK;            
3210: 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 64 65 20   /* Return code 
3220: 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 49  */.  Tcl_Obj *pI
3230: 64 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20  d = 0;          
3240: 20 20 20 20 20 2f 2a 20 49 64 20 66 6f 72 20 74       /* Id for t
3250: 68 69 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 2a  his connection *
3260: 2f 0a 20 20 54 65 73 74 76 66 73 42 75 66 66 65  /.  TestvfsBuffe
3270: 72 20 2a 70 42 75 66 66 65 72 3b 20 20 20 20 20  r *pBuffer;     
3280: 20 20 20 20 2f 2a 20 42 75 66 66 65 72 20 74 6f      /* Buffer to
3290: 20 6f 70 65 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e   open connection
32a0: 20 74 6f 20 2a 2f 0a 20 20 54 65 73 74 76 66 73   to */.  Testvfs
32b0: 46 69 6c 65 20 2a 70 46 64 3b 20 20 20 20 20 20  File *pFd;      
32c0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20           /* The 
32d0: 74 65 73 74 76 66 73 20 66 69 6c 65 20 73 74 72  testvfs file str
32e0: 75 63 74 75 72 65 20 2a 2f 0a 0a 20 20 70 46 64  ucture */..  pFd
32f0: 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65 2a   = (TestvfsFile*
3300: 29 70 46 69 6c 65 44 65 73 3b 0a 20 20 70 20 3d  )pFileDes;.  p =
3310: 20 28 54 65 73 74 76 66 73 20 2a 29 70 46 64 2d   (Testvfs *)pFd-
3320: 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 3b  >pVfs->pAppData;
3330: 0a 20 20 61 73 73 65 72 74 28 20 70 46 64 2d 3e  .  assert( pFd->
3340: 70 53 68 6d 49 64 3d 3d 30 20 26 26 20 70 46 64  pShmId==0 && pFd
3350: 2d 3e 70 53 68 6d 3d 3d 30 20 29 3b 0a 0a 20 20  ->pShm==0 );..  
3360: 2f 2a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20  /* Evaluate the 
3370: 54 63 6c 20 73 63 72 69 70 74 3a 20 0a 20 20 2a  Tcl script: .  *
3380: 2a 0a 20 20 2a 2a 20 20 20 53 43 52 49 50 54 20  *.  **   SCRIPT 
3390: 78 53 68 6d 4f 70 65 6e 20 46 49 4c 45 4e 41 4d  xShmOpen FILENAM
33a0: 45 0a 20 20 2a 2a 0a 20 20 2a 2a 20 49 66 20 74  E.  **.  ** If t
33b0: 68 65 20 73 63 72 69 70 74 20 72 65 74 75 72 6e  he script return
33c0: 73 20 61 6e 20 53 51 4c 69 74 65 20 65 72 72 6f  s an SQLite erro
33d0: 72 20 63 6f 64 65 20 6f 74 68 65 72 20 74 68 61  r code other tha
33e0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 61 6e 0a  n SQLITE_OK, an.
33f0: 20 20 2a 2a 20 65 72 72 6f 72 20 69 73 20 72 65    ** error is re
3400: 74 75 72 6e 65 64 20 74 6f 20 74 68 65 20 63 61  turned to the ca
3410: 6c 6c 65 72 2e 20 49 66 20 69 74 20 72 65 74 75  ller. If it retu
3420: 72 6e 73 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 74  rns SQLITE_OK, t
3430: 68 65 20 6e 65 77 0a 20 20 2a 2a 20 63 6f 6e 6e  he new.  ** conn
3440: 65 63 74 69 6f 6e 20 69 73 20 6e 61 6d 65 64 20  ection is named 
3450: 22 61 6e 6f 6e 22 2e 20 4f 74 68 65 72 77 69 73  "anon". Otherwis
3460: 65 2c 20 74 68 65 20 76 61 6c 75 65 20 72 65 74  e, the value ret
3470: 75 72 6e 65 64 20 62 79 20 74 68 65 0a 20 20 2a  urned by the.  *
3480: 2a 20 73 63 72 69 70 74 20 69 73 20 75 73 65 64  * script is used
3490: 20 61 73 20 74 68 65 20 63 6f 6e 6e 65 63 74 69   as the connecti
34a0: 6f 6e 20 6e 61 6d 65 2e 0a 20 20 2a 2f 0a 20 20  on name..  */.  
34b0: 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22  tvfsExecTcl(p, "
34c0: 78 53 68 6d 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e  xShmOpen", Tcl_N
34d0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
34e0: 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d 31 29 2c  >zFilename, -1),
34f0: 20 30 2c 20 30 29 3b 0a 20 20 69 66 28 20 74 76   0, 0);.  if( tv
3500: 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20  fsResultCode(p, 
3510: 26 72 63 29 20 29 7b 0a 20 20 20 20 69 66 28 20  &rc) ){.    if( 
3520: 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 20  rc!=SQLITE_OK ) 
3530: 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 20 20 70  return rc;.    p
3540: 49 64 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  Id = Tcl_NewStri
3550: 6e 67 4f 62 6a 28 22 61 6e 6f 6e 22 2c 20 2d 31  ngObj("anon", -1
3560: 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20  );.  }else{.    
3570: 70 49 64 20 3d 20 54 63 6c 5f 47 65 74 4f 62 6a  pId = Tcl_GetObj
3580: 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70  Result(p->interp
3590: 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 49 6e 63  );.  }.  Tcl_Inc
35a0: 72 52 65 66 43 6f 75 6e 74 28 70 49 64 29 3b 0a  rRefCount(pId);.
35b0: 20 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 3d 20    pFd->pShmId = 
35c0: 70 49 64 3b 0a 0a 20 20 2f 2a 20 53 65 61 72 63  pId;..  /* Searc
35d0: 68 20 66 6f 72 20 61 20 54 65 73 74 76 66 73 42  h for a TestvfsB
35e0: 75 66 66 65 72 2e 20 43 72 65 61 74 65 20 61 20  uffer. Create a 
35f0: 6e 65 77 20 6f 6e 65 20 69 66 20 72 65 71 75 69  new one if requi
3600: 72 65 64 2e 20 2a 2f 0a 20 20 66 6f 72 28 70 42  red. */.  for(pB
3610: 75 66 66 65 72 3d 70 2d 3e 70 42 75 66 66 65 72  uffer=p->pBuffer
3620: 3b 20 70 42 75 66 66 65 72 3b 20 70 42 75 66 66  ; pBuffer; pBuff
3630: 65 72 3d 70 42 75 66 66 65 72 2d 3e 70 4e 65 78  er=pBuffer->pNex
3640: 74 29 7b 0a 20 20 20 20 69 66 28 20 30 3d 3d 73  t){.    if( 0==s
3650: 74 72 63 6d 70 28 70 46 64 2d 3e 7a 46 69 6c 65  trcmp(pFd->zFile
3660: 6e 61 6d 65 2c 20 70 42 75 66 66 65 72 2d 3e 7a  name, pBuffer->z
3670: 46 69 6c 65 29 20 29 20 62 72 65 61 6b 3b 0a 20  File) ) break;. 
3680: 20 7d 0a 20 20 69 66 28 20 21 70 42 75 66 66 65   }.  if( !pBuffe
3690: 72 20 29 7b 0a 20 20 20 20 69 6e 74 20 6e 42 79  r ){.    int nBy
36a0: 74 65 20 3d 20 73 69 7a 65 6f 66 28 54 65 73 74  te = sizeof(Test
36b0: 76 66 73 42 75 66 66 65 72 29 20 2b 20 73 74 72  vfsBuffer) + str
36c0: 6c 65 6e 28 70 46 64 2d 3e 7a 46 69 6c 65 6e 61  len(pFd->zFilena
36d0: 6d 65 29 20 2b 20 31 3b 0a 20 20 20 20 70 42 75  me) + 1;.    pBu
36e0: 66 66 65 72 20 3d 20 28 54 65 73 74 76 66 73 42  ffer = (TestvfsB
36f0: 75 66 66 65 72 20 2a 29 63 6b 61 6c 6c 6f 63 28  uffer *)ckalloc(
3700: 6e 42 79 74 65 29 3b 0a 20 20 20 20 6d 65 6d 73  nByte);.    mems
3710: 65 74 28 70 42 75 66 66 65 72 2c 20 30 2c 20 6e  et(pBuffer, 0, n
3720: 42 79 74 65 29 3b 0a 20 20 20 20 70 42 75 66 66  Byte);.    pBuff
3730: 65 72 2d 3e 7a 46 69 6c 65 20 3d 20 28 63 68 61  er->zFile = (cha
3740: 72 20 2a 29 26 70 42 75 66 66 65 72 5b 31 5d 3b  r *)&pBuffer[1];
3750: 0a 20 20 20 20 73 74 72 63 70 79 28 70 42 75 66  .    strcpy(pBuf
3760: 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 70 46 64 2d  fer->zFile, pFd-
3770: 3e 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 20  >zFilename);.   
3780: 20 70 42 75 66 66 65 72 2d 3e 70 4e 65 78 74 20   pBuffer->pNext 
3790: 3d 20 70 2d 3e 70 42 75 66 66 65 72 3b 0a 20 20  = p->pBuffer;.  
37a0: 20 20 70 2d 3e 70 42 75 66 66 65 72 20 3d 20 70    p->pBuffer = p
37b0: 42 75 66 66 65 72 3b 0a 20 20 7d 0a 0a 20 20 2f  Buffer;.  }..  /
37c0: 2a 20 43 6f 6e 6e 65 63 74 20 74 68 65 20 54 65  * Connect the Te
37d0: 73 74 76 66 73 42 75 66 66 65 72 20 74 6f 20 74  stvfsBuffer to t
37e0: 68 65 20 6e 65 77 20 54 65 73 74 76 66 73 53 68  he new TestvfsSh
37f0: 6d 20 68 61 6e 64 6c 65 20 61 6e 64 20 72 65 74  m handle and ret
3800: 75 72 6e 2e 20 2a 2f 0a 20 20 70 42 75 66 66 65  urn. */.  pBuffe
3810: 72 2d 3e 6e 52 65 66 2b 2b 3b 0a 20 20 70 46 64  r->nRef++;.  pFd
3820: 2d 3e 70 53 68 6d 20 3d 20 70 42 75 66 66 65 72  ->pShm = pBuffer
3830: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54  ;.  return SQLIT
3840: 45 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  E_OK;.}..static 
3850: 69 6e 74 20 74 76 66 73 53 68 6d 53 69 7a 65 28  int tvfsShmSize(
3860: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
3870: 2a 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20 72 65  *pFile,.  int re
3880: 71 53 69 7a 65 2c 0a 20 20 69 6e 74 20 2a 70 4e  qSize,.  int *pN
3890: 65 77 53 69 7a 65 0a 29 7b 0a 20 20 69 6e 74 20  ewSize.){.  int 
38a0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
38b0: 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70    TestvfsFile *p
38c0: 46 64 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c  Fd = (TestvfsFil
38d0: 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 54 65 73  e *)pFile;.  Tes
38e0: 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76  tvfs *p = (Testv
38f0: 66 73 20 2a 29 28 70 46 64 2d 3e 70 56 66 73 2d  fs *)(pFd->pVfs-
3900: 3e 70 41 70 70 44 61 74 61 29 3b 0a 0a 20 20 74  >pAppData);..  t
3910: 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78  vfsExecTcl(p, "x
3920: 53 68 6d 53 69 7a 65 22 2c 20 0a 20 20 20 20 20  ShmSize", .     
3930: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
3940: 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69  j(pFd->pShm->zFi
3950: 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53  le, -1), pFd->pS
3960: 68 6d 49 64 2c 20 30 0a 20 20 29 3b 0a 20 20 74  hmId, 0.  );.  t
3970: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
3980: 20 26 72 63 29 3b 0a 20 20 69 66 28 20 72 63 3d   &rc);.  if( rc=
3990: 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20  =SQLITE_OK ){.  
39a0: 20 20 74 76 66 73 47 72 6f 77 42 75 66 66 65 72    tvfsGrowBuffer
39b0: 28 70 46 64 2c 20 72 65 71 53 69 7a 65 2c 20 70  (pFd, reqSize, p
39c0: 4e 65 77 53 69 7a 65 29 3b 0a 20 20 7d 0a 20 20  NewSize);.  }.  
39d0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74  return rc;.}..st
39e0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d  atic int tvfsShm
39f0: 47 65 74 28 0a 20 20 73 71 6c 69 74 65 33 5f 66  Get(.  sqlite3_f
3a00: 69 6c 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20 69  ile *pFile, .  i
3a10: 6e 74 20 72 65 71 4d 61 70 53 69 7a 65 2c 20 0a  nt reqMapSize, .
3a20: 20 20 69 6e 74 20 2a 70 4d 61 70 53 69 7a 65 2c    int *pMapSize,
3a30: 20 0a 20 20 76 6f 69 64 20 2a 2a 70 70 0a 29 7b   .  void **pp.){
3a40: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49  .  int rc = SQLI
3a50: 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73  TE_OK;.  Testvfs
3a60: 46 69 6c 65 20 2a 70 46 64 20 3d 20 28 54 65 73  File *pFd = (Tes
3a70: 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65  tvfsFile *)pFile
3a80: 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  ;.  Testvfs *p =
3a90: 20 28 54 65 73 74 76 66 73 20 2a 29 28 70 46 64   (Testvfs *)(pFd
3aa0: 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61  ->pVfs->pAppData
3ab0: 29 3b 0a 0a 20 20 74 76 66 73 45 78 65 63 54 63  );..  tvfsExecTc
3ac0: 6c 28 70 2c 20 22 78 53 68 6d 47 65 74 22 2c 20  l(p, "xShmGet", 
3ad0: 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74  .      Tcl_NewSt
3ae0: 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68  ringObj(pFd->pSh
3af0: 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70  m->zFile, -1), p
3b00: 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 0a 20 20  Fd->pShmId, 0.  
3b10: 29 3b 0a 20 20 74 76 66 73 52 65 73 75 6c 74 43  );.  tvfsResultC
3b20: 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 69  ode(p, &rc);.  i
3b30: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
3b40: 20 29 7b 0a 20 20 20 20 74 76 66 73 47 72 6f 77   ){.    tvfsGrow
3b50: 42 75 66 66 65 72 28 70 46 64 2c 20 72 65 71 4d  Buffer(pFd, reqM
3b60: 61 70 53 69 7a 65 2c 20 70 4d 61 70 53 69 7a 65  apSize, pMapSize
3b70: 29 3b 0a 20 20 20 20 2a 70 70 20 3d 20 70 46 64  );.    *pp = pFd
3b80: 2d 3e 70 53 68 6d 2d 3e 61 3b 0a 20 20 7d 0a 20  ->pShm->a;.  }. 
3b90: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73   return rc;.}..s
3ba0: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68  tatic int tvfsSh
3bb0: 6d 52 65 6c 65 61 73 65 28 73 71 6c 69 74 65 33  mRelease(sqlite3
3bc0: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a 20  _file *pFile){. 
3bd0: 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45   int rc = SQLITE
3be0: 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 69  _OK;.  TestvfsFi
3bf0: 6c 65 20 2a 70 46 64 20 3d 20 28 54 65 73 74 76  le *pFd = (Testv
3c00: 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a  fsFile *)pFile;.
3c10: 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28    Testvfs *p = (
3c20: 54 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e  Testvfs *)(pFd->
3c30: 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b  pVfs->pAppData);
3c40: 0a 0a 20 20 74 76 66 73 45 78 65 63 54 63 6c 28  ..  tvfsExecTcl(
3c50: 70 2c 20 22 78 53 68 6d 52 65 6c 65 61 73 65 22  p, "xShmRelease"
3c60: 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  , .      Tcl_New
3c70: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70  StringObj(pFd->p
3c80: 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c  Shm->zFile, -1),
3c90: 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 0a   pFd->pShmId, 0.
3ca0: 20 20 29 3b 0a 20 20 74 76 66 73 52 65 73 75 6c    );.  tvfsResul
3cb0: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 0a  tCode(p, &rc);..
3cc0: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
3cd0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
3ce0: 68 6d 4c 6f 63 6b 28 0a 20 20 73 71 6c 69 74 65  hmLock(.  sqlite
3cf0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 0a 20  3_file *pFile,. 
3d00: 20 69 6e 74 20 64 65 73 69 72 65 64 4c 6f 63 6b   int desiredLock
3d10: 2c 0a 20 20 69 6e 74 20 2a 67 6f 74 4c 6f 63 6b  ,.  int *gotLock
3d20: 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53  .){.  int rc = S
3d30: 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74  QLITE_OK;.  Test
3d40: 76 66 73 46 69 6c 65 20 2a 70 46 64 20 3d 20 28  vfsFile *pFd = (
3d50: 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46  TestvfsFile *)pF
3d60: 69 6c 65 3b 0a 20 20 54 65 73 74 76 66 73 20 2a  ile;.  Testvfs *
3d70: 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28  p = (Testvfs *)(
3d80: 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44  pFd->pVfs->pAppD
3d90: 61 74 61 29 3b 0a 20 20 63 68 61 72 20 2a 7a 4c  ata);.  char *zL
3da0: 6f 63 6b 20 3d 20 22 22 3b 0a 0a 20 20 73 77 69  ock = "";..  swi
3db0: 74 63 68 28 20 64 65 73 69 72 65 64 4c 6f 63 6b  tch( desiredLock
3dc0: 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53 51 4c   ){.    case SQL
3dd0: 49 54 45 5f 53 48 4d 5f 52 45 41 44 3a 20 20 20  ITE_SHM_READ:   
3de0: 20 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 52        zLock = "R
3df0: 45 41 44 22 3b 20 20 20 20 20 20 20 62 72 65 61  EAD";       brea
3e00: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49  k;.    case SQLI
3e10: 54 45 5f 53 48 4d 5f 57 52 49 54 45 3a 20 20 20  TE_SHM_WRITE:   
3e20: 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 57 52       zLock = "WR
3e30: 49 54 45 22 3b 20 20 20 20 20 20 62 72 65 61 6b  ITE";      break
3e40: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  ;.    case SQLIT
3e50: 45 5f 53 48 4d 5f 43 48 45 43 4b 50 4f 49 4e 54  E_SHM_CHECKPOINT
3e60: 3a 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 43 48 45  :   zLock = "CHE
3e70: 43 4b 50 4f 49 4e 54 22 3b 20 62 72 65 61 6b 3b  CKPOINT"; break;
3e80: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
3e90: 5f 53 48 4d 5f 52 45 43 4f 56 45 52 3a 20 20 20  _SHM_RECOVER:   
3ea0: 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 52 45 43 4f     zLock = "RECO
3eb0: 56 45 52 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a  VER";    break;.
3ec0: 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f      case SQLITE_
3ed0: 53 48 4d 5f 50 45 4e 44 49 4e 47 3a 20 20 20 20  SHM_PENDING:    
3ee0: 20 20 7a 4c 6f 63 6b 20 3d 20 22 50 45 4e 44 49    zLock = "PENDI
3ef0: 4e 47 22 3b 20 20 20 20 62 72 65 61 6b 3b 0a 20  NG";    break;. 
3f00: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 53     case SQLITE_S
3f10: 48 4d 5f 55 4e 4c 4f 43 4b 3a 20 20 20 20 20 20  HM_UNLOCK:      
3f20: 20 7a 4c 6f 63 6b 20 3d 20 22 55 4e 4c 4f 43 4b   zLock = "UNLOCK
3f30: 22 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20  ";     break;.  
3f40: 7d 0a 20 20 74 76 66 73 45 78 65 63 54 63 6c 28  }.  tvfsExecTcl(
3f50: 70 2c 20 22 78 53 68 6d 4c 6f 63 6b 22 2c 20 0a  p, "xShmLock", .
3f60: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
3f70: 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53 68 6d  ingObj(pFd->pShm
3f80: 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 46  ->zFile, -1), pF
3f90: 64 2d 3e 70 53 68 6d 49 64 2c 0a 20 20 20 20 20  d->pShmId,.     
3fa0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
3fb0: 6a 28 7a 4c 6f 63 6b 2c 20 2d 31 29 0a 20 20 29  j(zLock, -1).  )
3fc0: 3b 0a 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f  ;.  tvfsResultCo
3fd0: 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20 69 66  de(p, &rc);.  if
3fe0: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
3ff0: 29 7b 0a 20 20 20 20 2a 67 6f 74 4c 6f 63 6b 20  ){.    *gotLock 
4000: 3d 20 64 65 73 69 72 65 64 4c 6f 63 6b 3b 0a 20  = desiredLock;. 
4010: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b   }..  return rc;
4020: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .}..static int t
4030: 76 66 73 53 68 6d 43 6c 6f 73 65 28 0a 20 20 73  vfsShmClose(.  s
4040: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
4050: 6c 65 2c 0a 20 20 69 6e 74 20 64 65 6c 65 74 65  le,.  int delete
4060: 46 6c 61 67 0a 29 7b 0a 20 20 69 6e 74 20 72 63  Flag.){.  int rc
4070: 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20   = SQLITE_OK;.  
4080: 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70 46 64  TestvfsFile *pFd
4090: 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65 20   = (TestvfsFile 
40a0: 2a 29 70 46 69 6c 65 3b 0a 20 20 54 65 73 74 76  *)pFile;.  Testv
40b0: 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  fs *p = (Testvfs
40c0: 20 2a 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70   *)(pFd->pVfs->p
40d0: 41 70 70 44 61 74 61 29 3b 0a 20 20 54 65 73 74  AppData);.  Test
40e0: 76 66 73 42 75 66 66 65 72 20 2a 70 42 75 66 66  vfsBuffer *pBuff
40f0: 65 72 20 3d 20 70 46 64 2d 3e 70 53 68 6d 3b 0a  er = pFd->pShm;.
4100: 0a 20 20 61 73 73 65 72 74 28 20 70 46 64 2d 3e  .  assert( pFd->
4110: 70 53 68 6d 49 64 20 26 26 20 70 46 64 2d 3e 70  pShmId && pFd->p
4120: 53 68 6d 20 29 3b 0a 23 69 66 20 30 0a 20 20 61  Shm );.#if 0.  a
4130: 73 73 65 72 74 28 20 28 64 65 6c 65 74 65 46 6c  ssert( (deleteFl
4140: 61 67 21 3d 30 29 3d 3d 28 70 42 75 66 66 65 72  ag!=0)==(pBuffer
4150: 2d 3e 6e 52 65 66 3d 3d 31 29 20 29 3b 0a 23 65  ->nRef==1) );.#e
4160: 6e 64 69 66 0a 0a 20 20 74 76 66 73 45 78 65 63  ndif..  tvfsExec
4170: 54 63 6c 28 70 2c 20 22 78 53 68 6d 43 6c 6f 73  Tcl(p, "xShmClos
4180: 65 22 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e  e", .      Tcl_N
4190: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
41a0: 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31  >pShm->zFile, -1
41b0: 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20  ), pFd->pShmId, 
41c0: 30 0a 20 20 29 3b 0a 20 20 74 76 66 73 52 65 73  0.  );.  tvfsRes
41d0: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b  ultCode(p, &rc);
41e0: 0a 0a 20 20 70 42 75 66 66 65 72 2d 3e 6e 52 65  ..  pBuffer->nRe
41f0: 66 2d 2d 3b 0a 20 20 69 66 28 20 70 42 75 66 66  f--;.  if( pBuff
4200: 65 72 2d 3e 6e 52 65 66 3d 3d 30 20 29 7b 0a 20  er->nRef==0 ){. 
4210: 20 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72     TestvfsBuffer
4220: 20 2a 2a 70 70 3b 0a 20 20 20 20 66 6f 72 28 70   **pp;.    for(p
4230: 70 3d 26 70 2d 3e 70 42 75 66 66 65 72 3b 20 2a  p=&p->pBuffer; *
4240: 70 70 21 3d 70 42 75 66 66 65 72 3b 20 70 70 3d  pp!=pBuffer; pp=
4250: 26 28 28 2a 70 70 29 2d 3e 70 4e 65 78 74 29 29  &((*pp)->pNext))
4260: 3b 0a 20 20 20 20 2a 70 70 20 3d 20 28 2a 70 70  ;.    *pp = (*pp
4270: 29 2d 3e 70 4e 65 78 74 3b 0a 20 20 20 20 63 6b  )->pNext;.    ck
4280: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 42 75  free((char *)pBu
4290: 66 66 65 72 2d 3e 61 29 3b 0a 20 20 20 20 63 6b  ffer->a);.    ck
42a0: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 42 75  free((char *)pBu
42b0: 66 66 65 72 29 3b 0a 20 20 7d 0a 20 20 54 63 6c  ffer);.  }.  Tcl
42c0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70 46  _DecrRefCount(pF
42d0: 64 2d 3e 70 53 68 6d 49 64 29 3b 0a 20 20 70 46  d->pShmId);.  pF
42e0: 64 2d 3e 70 53 68 6d 49 64 20 3d 20 30 3b 0a 20  d->pShmId = 0;. 
42f0: 20 70 46 64 2d 3e 70 53 68 6d 20 3d 20 30 3b 0a   pFd->pShm = 0;.
4300: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
4310: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74  .static int test
4320: 76 66 73 5f 6f 62 6a 5f 63 6d 64 28 0a 20 20 43  vfs_obj_cmd(.  C
4330: 6c 69 65 6e 74 44 61 74 61 20 63 64 2c 0a 20 20  lientData cd,.  
4340: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
4350: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a  rp,.  int objc,.
4360: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54    Tcl_Obj *CONST
4370: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 54 65 73   objv[].){.  Tes
4380: 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76  tvfs *p = (Testv
4390: 66 73 20 2a 29 63 64 3b 0a 0a 20 20 73 74 61 74  fs *)cd;..  stat
43a0: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 43  ic const char *C
43b0: 4d 44 5f 73 74 72 73 5b 5d 20 3d 20 7b 20 22 73  MD_strs[] = { "s
43c0: 68 6d 22 2c 20 22 64 65 6c 65 74 65 22 2c 20 30  hm", "delete", 0
43d0: 20 7d 3b 0a 20 20 65 6e 75 6d 20 44 42 5f 65 6e   };.  enum DB_en
43e0: 75 6d 20 7b 20 43 4d 44 5f 53 48 4d 2c 20 43 4d  um { CMD_SHM, CM
43f0: 44 5f 44 45 4c 45 54 45 20 7d 3b 0a 20 20 69 6e  D_DELETE };.  in
4400: 74 20 69 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62  t i;.  .  if( ob
4410: 6a 63 3c 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  jc<2 ){.    Tcl_
4420: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
4430: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53  erp, 1, objv, "S
4440: 55 42 43 4f 4d 4d 41 4e 44 20 2e 2e 2e 22 29 3b  UBCOMMAND ...");
4450: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
4460: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28  ERROR;.  }.  if(
4470: 20 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f   Tcl_GetIndexFro
4480: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
4490: 76 5b 31 5d 2c 20 43 4d 44 5f 73 74 72 73 2c 20  v[1], CMD_strs, 
44a0: 22 73 75 62 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c  "subcommand", 0,
44b0: 20 26 69 29 20 29 7b 0a 20 20 20 20 72 65 74 75   &i) ){.    retu
44c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
44d0: 7d 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73  }.  Tcl_ResetRes
44e0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20  ult(interp);..  
44f0: 73 77 69 74 63 68 28 20 28 65 6e 75 6d 20 44 42  switch( (enum DB
4500: 5f 65 6e 75 6d 29 69 20 29 7b 0a 20 20 20 20 63  _enum)i ){.    c
4510: 61 73 65 20 43 4d 44 5f 53 48 4d 3a 20 7b 0a 20  ase CMD_SHM: {. 
4520: 20 20 20 20 20 54 65 73 74 76 66 73 42 75 66 66       TestvfsBuff
4530: 65 72 20 2a 70 42 75 66 66 65 72 3b 0a 20 20 20  er *pBuffer;.   
4540: 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a     char *zName;.
4550: 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63 21 3d        if( objc!=
4560: 33 20 26 26 20 6f 62 6a 63 21 3d 34 20 29 7b 0a  3 && objc!=4 ){.
4570: 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e          Tcl_Wron
4580: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
4590: 20 32 2c 20 6f 62 6a 76 2c 20 22 46 49 4c 45 20   2, objv, "FILE 
45a0: 3f 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20 20 20  ?VALUE?");.     
45b0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
45c0: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
45d0: 20 20 20 7a 4e 61 6d 65 20 3d 20 54 63 6c 5f 47     zName = Tcl_G
45e0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d  etString(objv[2]
45f0: 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 70 42 75  );.      for(pBu
4600: 66 66 65 72 3d 70 2d 3e 70 42 75 66 66 65 72 3b  ffer=p->pBuffer;
4610: 20 70 42 75 66 66 65 72 3b 20 70 42 75 66 66 65   pBuffer; pBuffe
4620: 72 3d 70 42 75 66 66 65 72 2d 3e 70 4e 65 78 74  r=pBuffer->pNext
4630: 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 30  ){.        if( 0
4640: 3d 3d 73 74 72 63 6d 70 28 70 42 75 66 66 65 72  ==strcmp(pBuffer
4650: 2d 3e 7a 46 69 6c 65 2c 20 7a 4e 61 6d 65 29 20  ->zFile, zName) 
4660: 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d  ) break;.      }
4670: 0a 20 20 20 20 20 20 69 66 28 20 21 70 42 75 66  .      if( !pBuf
4680: 66 65 72 20 29 7b 0a 20 20 20 20 20 20 20 20 54  fer ){.        T
4690: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
46a0: 69 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75 63 68  interp, "no such
46b0: 20 66 69 6c 65 3a 20 22 2c 20 7a 4e 61 6d 65 2c   file: ", zName,
46c0: 20 30 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74   0);.        ret
46d0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
46e0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
46f0: 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20 20 20 20   objc==4 ){.    
4700: 20 20 20 20 69 6e 74 20 6e 3b 0a 20 20 20 20 20      int n;.     
4710: 20 20 20 75 38 20 2a 61 20 3d 20 54 63 6c 5f 47     u8 *a = Tcl_G
4720: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f  etByteArrayFromO
4730: 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e 29 3b  bj(objv[3], &n);
4740: 0a 20 20 20 20 20 20 20 20 70 42 75 66 66 65 72  .        pBuffer
4750: 2d 3e 61 20 3d 20 28 75 38 20 2a 29 63 6b 72 65  ->a = (u8 *)ckre
4760: 61 6c 6c 6f 63 28 28 63 68 61 72 20 2a 29 70 42  alloc((char *)pB
4770: 75 66 66 65 72 2d 3e 61 2c 20 6e 29 3b 0a 20 20  uffer->a, n);.  
4780: 20 20 20 20 20 20 70 42 75 66 66 65 72 2d 3e 6e        pBuffer->n
4790: 20 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20 6d 65   = n;.        me
47a0: 6d 63 70 79 28 70 42 75 66 66 65 72 2d 3e 61 2c  mcpy(pBuffer->a,
47b0: 20 61 2c 20 6e 29 3b 0a 20 20 20 20 20 20 7d 0a   a, n);.      }.
47c0: 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a        Tcl_SetObj
47d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54  Result(interp, T
47e0: 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f  cl_NewByteArrayO
47f0: 62 6a 28 70 42 75 66 66 65 72 2d 3e 61 2c 20 70  bj(pBuffer->a, p
4800: 42 75 66 66 65 72 2d 3e 6e 29 29 3b 0a 20 20 20  Buffer->n));.   
4810: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
4820: 20 20 20 20 63 61 73 65 20 43 4d 44 5f 44 45 4c      case CMD_DEL
4830: 45 54 45 3a 20 7b 0a 20 20 20 20 20 20 54 63 6c  ETE: {.      Tcl
4840: 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 28 69  _DeleteCommand(i
4850: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74  nterp, Tcl_GetSt
4860: 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 29 3b 0a  ring(objv[0]));.
4870: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20        break;.   
4880: 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e   }.  }..  return
4890: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74   TCL_OK;.}..stat
48a0: 69 63 20 76 6f 69 64 20 74 65 73 74 76 66 73 5f  ic void testvfs_
48b0: 6f 62 6a 5f 64 65 6c 28 43 6c 69 65 6e 74 44 61  obj_del(ClientDa
48c0: 74 61 20 63 64 29 7b 0a 20 20 69 6e 74 20 69 3b  ta cd){.  int i;
48d0: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
48e0: 28 54 65 73 74 76 66 73 20 2a 29 63 64 3b 0a 20  (Testvfs *)cd;. 
48f0: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 70 2d 3e 6e   for(i=0; i<p->n
4900: 53 63 72 69 70 74 3b 20 69 2b 2b 29 7b 0a 20 20  Script; i++){.  
4910: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
4920: 6e 74 28 70 2d 3e 61 70 53 63 72 69 70 74 5b 69  nt(p->apScript[i
4930: 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65  ]);.  }.  sqlite
4940: 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65 72  3_vfs_unregister
4950: 28 70 2d 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66  (p->pVfs);.  ckf
4960: 72 65 65 28 28 63 68 61 72 20 2a 29 70 2d 3e 70  ree((char *)p->p
4970: 56 66 73 29 3b 0a 20 20 63 6b 66 72 65 65 28 28  Vfs);.  ckfree((
4980: 63 68 61 72 20 2a 29 70 29 3b 0a 7d 0a 0a 23 64  char *)p);.}..#d
4990: 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f 4d 41  efine TESTVFS_MA
49a0: 58 5f 41 52 47 53 20 31 32 0a 0a 2f 2a 0a 2a 2a  X_ARGS 12../*.**
49b0: 20 55 73 61 67 65 3a 20 20 74 65 73 74 76 66 73   Usage:  testvfs
49c0: 20 3f 2d 6e 6f 73 68 6d 3f 20 56 46 53 4e 41 4d   ?-noshm? VFSNAM
49d0: 45 20 53 43 52 49 50 54 0a 2a 2a 0a 2a 2a 20 54  E SCRIPT.**.** T
49e0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 63 72 65 61  his command crea
49f0: 74 65 73 20 74 77 6f 20 74 68 69 6e 67 73 20 77  tes two things w
4a00: 68 65 6e 20 69 74 20 69 73 20 69 6e 76 6f 6b 65  hen it is invoke
4a10: 64 3a 20 61 6e 20 53 51 4c 69 74 65 20 56 46 53  d: an SQLite VFS
4a20: 2c 20 61 6e 64 0a 2a 2a 20 61 20 54 63 6c 20 63  , and.** a Tcl c
4a30: 6f 6d 6d 61 6e 64 2e 20 42 6f 74 68 20 61 72 65  ommand. Both are
4a40: 20 6e 61 6d 65 64 20 56 46 53 4e 41 4d 45 2e 20   named VFSNAME. 
4a50: 54 68 65 20 56 46 53 20 69 73 20 69 6e 73 74 61  The VFS is insta
4a60: 6c 6c 65 64 2e 20 49 74 20 69 73 20 6e 6f 74 0a  lled. It is not.
4a70: 2a 2a 20 69 6e 73 74 61 6c 6c 65 64 20 61 73 20  ** installed as 
4a80: 74 68 65 20 64 65 66 61 75 6c 74 20 56 46 53 2e  the default VFS.
4a90: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 56 46 53 20 70  .**.** The VFS p
4aa0: 61 73 73 65 73 20 61 6c 6c 20 66 69 6c 65 20 49  asses all file I
4ab0: 2f 4f 20 63 61 6c 6c 73 20 74 68 72 6f 75 67 68  /O calls through
4ac0: 20 74 6f 20 74 68 65 20 75 6e 64 65 72 6c 79 69   to the underlyi
4ad0: 6e 67 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 57 68  ng VFS..**.** Wh
4ae0: 65 6e 65 76 65 72 20 6f 6e 65 20 6f 66 20 74 68  enever one of th
4af0: 65 20 78 53 68 6d 53 69 7a 65 2c 20 78 53 68 6d  e xShmSize, xShm
4b00: 47 65 74 20 6f 72 20 78 53 68 6d 52 65 6c 65 61  Get or xShmRelea
4b10: 73 65 20 6d 65 74 68 6f 64 73 20 6f 66 20 74 68  se methods of th
4b20: 65 20 56 46 53 0a 2a 2a 20 61 72 65 20 69 6e 76  e VFS.** are inv
4b30: 6f 6b 65 64 2c 20 74 68 65 20 53 43 52 49 50 54  oked, the SCRIPT
4b40: 20 69 73 20 65 78 65 63 75 74 65 64 20 61 73 20   is executed as 
4b50: 66 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a 2a 2a 20 20  follows:.**.**  
4b60: 20 53 43 52 49 50 54 20 78 53 68 6d 53 69 7a 65   SCRIPT xShmSize
4b70: 20 20 20 20 46 49 4c 45 4e 41 4d 45 20 49 44 0a      FILENAME ID.
4b80: 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53 68 6d  **   SCRIPT xShm
4b90: 47 65 74 20 20 20 20 20 46 49 4c 45 4e 41 4d 45  Get     FILENAME
4ba0: 20 49 44 0a 2a 2a 20 20 20 53 43 52 49 50 54 20   ID.**   SCRIPT 
4bb0: 78 53 68 6d 52 65 6c 65 61 73 65 20 46 49 4c 45  xShmRelease FILE
4bc0: 4e 41 4d 45 20 49 44 0a 2a 2a 0a 2a 2a 20 54 68  NAME ID.**.** Th
4bd0: 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64  e value returned
4be0: 20 62 79 20 74 68 65 20 69 6e 76 6f 63 61 74 69   by the invocati
4bf0: 6f 6e 20 6f 66 20 53 43 52 49 50 54 20 61 62 6f  on of SCRIPT abo
4c00: 76 65 20 69 73 20 69 6e 74 65 72 70 72 65 74 65  ve is interprete
4c10: 64 20 61 73 0a 2a 2a 20 61 6e 20 53 51 4c 69 74  d as.** an SQLit
4c20: 65 20 65 72 72 6f 72 20 63 6f 64 65 20 61 6e 64  e error code and
4c30: 20 72 65 74 75 72 6e 65 64 20 74 6f 20 53 51 4c   returned to SQL
4c40: 69 74 65 2e 20 45 69 74 68 65 72 20 61 20 73 79  ite. Either a sy
4c50: 6d 62 6f 6c 69 63 20 0a 2a 2a 20 22 53 51 4c 49  mbolic .** "SQLI
4c60: 54 45 5f 4f 4b 22 20 6f 72 20 6e 75 6d 65 72 69  TE_OK" or numeri
4c70: 63 20 22 30 22 20 76 61 6c 75 65 20 6d 61 79 20  c "0" value may 
4c80: 62 65 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2a 0a  be returned..**.
4c90: 2a 2a 20 54 68 65 20 63 6f 6e 74 65 6e 74 73 20  ** The contents 
4ca0: 6f 66 20 74 68 65 20 73 68 61 72 65 64 2d 6d 65  of the shared-me
4cb0: 6d 6f 72 79 20 62 75 66 66 65 72 20 61 73 73 6f  mory buffer asso
4cc0: 63 69 61 74 65 64 20 77 69 74 68 20 61 20 67 69  ciated with a gi
4cd0: 76 65 6e 20 66 69 6c 65 0a 2a 2a 20 6d 61 79 20  ven file.** may 
4ce0: 62 65 20 72 65 61 64 20 61 6e 64 20 73 65 74 20  be read and set 
4cf0: 75 73 69 6e 67 20 74 68 65 20 66 6f 6c 6c 6f 77  using the follow
4d00: 69 6e 67 20 63 6f 6d 6d 61 6e 64 3a 0a 2a 2a 0a  ing command:.**.
4d10: 2a 2a 20 20 20 56 46 53 4e 41 4d 45 20 73 68 6d  **   VFSNAME shm
4d20: 20 46 49 4c 45 4e 41 4d 45 20 3f 4e 45 57 56 41   FILENAME ?NEWVA
4d30: 4c 55 45 3f 0a 2a 2a 0a 2a 2a 20 57 68 65 6e 20  LUE?.**.** When 
4d40: 74 68 65 20 78 53 68 6d 4c 6f 63 6b 20 6d 65 74  the xShmLock met
4d50: 68 6f 64 20 69 73 20 69 6e 76 6f 6b 65 64 20 62  hod is invoked b
4d60: 79 20 53 51 4c 69 74 65 2c 20 74 68 65 20 66 6f  y SQLite, the fo
4d70: 6c 6c 6f 77 69 6e 67 20 73 63 72 69 70 74 20 69  llowing script i
4d80: 73 0a 2a 2a 20 72 75 6e 3a 0a 2a 2a 0a 2a 2a 20  s.** run:.**.** 
4d90: 20 20 53 43 52 49 50 54 20 78 53 68 6d 4c 6f 63    SCRIPT xShmLoc
4da0: 6b 20 20 20 20 46 49 4c 45 4e 41 4d 45 20 49 44  k    FILENAME ID
4db0: 20 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20 77 68 65 72   LOCK.**.** wher
4dc0: 65 20 4c 4f 43 4b 20 69 73 20 6f 6e 65 20 6f 66  e LOCK is one of
4dd0: 20 22 55 4e 4c 4f 43 4b 22 2c 20 22 52 45 41 44   "UNLOCK", "READ
4de0: 22 2c 20 22 52 45 41 44 5f 46 55 4c 4c 22 2c 20  ", "READ_FULL", 
4df0: 22 57 52 49 54 45 22 2c 20 22 50 45 4e 44 49 4e  "WRITE", "PENDIN
4e00: 47 22 2c 0a 2a 2a 20 22 43 48 45 43 4b 50 4f 49  G",.** "CHECKPOI
4e10: 4e 54 22 20 6f 72 20 22 52 45 43 4f 56 45 52 22  NT" or "RECOVER"
4e20: 2e 20 54 68 65 20 73 63 72 69 70 74 20 73 68 6f  . The script sho
4e30: 75 6c 64 20 72 65 74 75 72 6e 20 61 6e 20 53 51  uld return an SQ
4e40: 4c 69 74 65 20 65 72 72 6f 72 0a 2a 2a 20 63 6f  Lite error.** co
4e50: 64 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  de..*/.static in
4e60: 74 20 74 65 73 74 76 66 73 5f 63 6d 64 28 0a 20  t testvfs_cmd(. 
4e70: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 64 2c 0a   ClientData cd,.
4e80: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
4e90: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
4ea0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
4eb0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 73  ST objv[].){.  s
4ec0: 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f 76 66  tatic sqlite3_vf
4ed0: 73 20 74 76 66 73 5f 76 66 73 20 3d 20 7b 0a 20  s tvfs_vfs = {. 
4ee0: 20 20 20 32 2c 20 20 20 20 20 20 20 20 20 20 20     2,           
4ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f00: 20 2f 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a   /* iVersion */.
4f10: 20 20 20 20 73 69 7a 65 6f 66 28 54 65 73 74 76      sizeof(Testv
4f20: 66 73 46 69 6c 65 29 2c 20 20 20 20 20 20 20 20  fsFile),        
4f30: 20 20 20 20 2f 2a 20 73 7a 4f 73 46 69 6c 65 20      /* szOsFile 
4f40: 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20  */.    0,       
4f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f60: 20 20 20 20 20 2f 2a 20 6d 78 50 61 74 68 6e 61       /* mxPathna
4f70: 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  me */.    0,    
4f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f90: 20 20 20 20 20 20 20 20 2f 2a 20 70 4e 65 78 74          /* pNext
4fa0: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
4fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4fc0: 20 20 20 20 20 20 2f 2a 20 7a 4e 61 6d 65 20 2a        /* zName *
4fd0: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
4fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ff0: 20 20 20 20 2f 2a 20 70 41 70 70 44 61 74 61 20      /* pAppData 
5000: 2a 2f 0a 20 20 20 20 74 76 66 73 4f 70 65 6e 2c  */.    tvfsOpen,
5010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5020: 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e 20 2a 2f       /* xOpen */
5030: 0a 20 20 20 20 74 76 66 73 44 65 6c 65 74 65 2c  .    tvfsDelete,
5040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5050: 20 20 20 2f 2a 20 78 44 65 6c 65 74 65 20 2a 2f     /* xDelete */
5060: 0a 20 20 20 20 74 76 66 73 41 63 63 65 73 73 2c  .    tvfsAccess,
5070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5080: 20 20 20 2f 2a 20 78 41 63 63 65 73 73 20 2a 2f     /* xAccess */
5090: 0a 20 20 20 20 74 76 66 73 46 75 6c 6c 50 61 74  .    tvfsFullPat
50a0: 68 6e 61 6d 65 2c 20 20 20 20 20 20 20 20 20 20  hname,          
50b0: 20 20 20 2f 2a 20 78 46 75 6c 6c 50 61 74 68 6e     /* xFullPathn
50c0: 61 6d 65 20 2a 2f 0a 23 69 66 6e 64 65 66 20 53  ame */.#ifndef S
50d0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f  QLITE_OMIT_LOAD_
50e0: 45 58 54 45 4e 53 49 4f 4e 0a 20 20 20 20 74 76  EXTENSION.    tv
50f0: 66 73 44 6c 4f 70 65 6e 2c 20 20 20 20 20 20 20  fsDlOpen,       
5100: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
5110: 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20 20 74 76  DlOpen */.    tv
5120: 66 73 44 6c 45 72 72 6f 72 2c 20 20 20 20 20 20  fsDlError,      
5130: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
5140: 44 6c 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 74  DlError */.    t
5150: 76 66 73 44 6c 53 79 6d 2c 20 20 20 20 20 20 20  vfsDlSym,       
5160: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
5170: 78 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20 74 76  xDlSym */.    tv
5180: 66 73 44 6c 43 6c 6f 73 65 2c 20 20 20 20 20 20  fsDlClose,      
5190: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
51a0: 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65 6c 73 65  DlClose */.#else
51b0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
51c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
51d0: 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f     /* xDlOpen */
51e0: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
51f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5200: 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72 20 2a     /* xDlError *
5210: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
5220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5230: 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20 2a 2f      /* xDlSym */
5240: 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20 20  .    0,         
5250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5260: 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65 20 2a     /* xDlClose *
5270: 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49  /.#endif /* SQLI
5280: 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54  TE_OMIT_LOAD_EXT
5290: 45 4e 53 49 4f 4e 20 2a 2f 0a 20 20 20 20 74 76  ENSION */.    tv
52a0: 66 73 52 61 6e 64 6f 6d 6e 65 73 73 2c 20 20 20  fsRandomness,   
52b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
52c0: 52 61 6e 64 6f 6d 6e 65 73 73 20 2a 2f 0a 20 20  Randomness */.  
52d0: 20 20 74 76 66 73 53 6c 65 65 70 2c 20 20 20 20    tvfsSleep,    
52e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
52f0: 2f 2a 20 78 53 6c 65 65 70 20 2a 2f 0a 20 20 20  /* xSleep */.   
5300: 20 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65   tvfsCurrentTime
5310: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ,              /
5320: 2a 20 78 43 75 72 72 65 6e 74 54 69 6d 65 20 2a  * xCurrentTime *
5330: 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20 20 20  /.    0,        
5340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5350: 20 20 20 20 2f 2a 20 78 47 65 74 4c 61 73 74 45      /* xGetLastE
5360: 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c 0a 20  rror */.    0,. 
5370: 20 20 20 30 2c 0a 20 20 7d 3b 0a 0a 20 20 54 65     0,.  };..  Te
5380: 73 74 76 66 73 20 2a 70 3b 20 20 20 20 20 20 20  stvfs *p;       
5390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
53a0: 20 4e 65 77 20 6f 62 6a 65 63 74 20 2a 2f 0a 20   New object */. 
53b0: 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56   sqlite3_vfs *pV
53c0: 66 73 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  fs;             
53d0: 20 2f 2a 20 4e 65 77 20 56 46 53 20 2a 2f 0a 20   /* New VFS */. 
53e0: 20 63 68 61 72 20 2a 7a 56 66 73 3b 0a 20 20 54   char *zVfs;.  T
53f0: 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74 3b  cl_Obj *pScript;
5400: 0a 20 20 69 6e 74 20 6e 53 63 72 69 70 74 3b 20  .  int nScript; 
5410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5420: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
5430: 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73 74  elements in list
5440: 20 70 53 63 72 69 70 74 20 2a 2f 0a 20 20 54 63   pScript */.  Tc
5450: 6c 5f 4f 62 6a 20 2a 2a 61 70 53 63 72 69 70 74  l_Obj **apScript
5460: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ;             /*
5470: 20 41 72 72 61 79 20 6f 66 20 70 53 63 72 69 70   Array of pScrip
5480: 74 20 65 6c 65 6d 65 6e 74 73 20 2a 2f 0a 20 20  t elements */.  
5490: 69 6e 74 20 6e 42 79 74 65 3b 20 20 20 20 20 20  int nByte;      
54a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
54b0: 2f 2a 20 42 79 74 65 73 20 6f 66 20 73 70 61 63  /* Bytes of spac
54c0: 65 20 74 6f 20 61 6c 6c 6f 63 61 74 65 20 61 74  e to allocate at
54d0: 20 70 20 2a 2f 0a 20 20 69 6e 74 20 69 3b 20 20   p */.  int i;  
54e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
54f0: 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 75 6e 74          /* Count
5500: 65 72 20 76 61 72 69 61 62 6c 65 20 2a 2f 0a 20  er variable */. 
5510: 20 69 6e 74 20 69 73 4e 6f 73 68 6d 20 3d 20 30   int isNoshm = 0
5520: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
5530: 20 2f 2a 20 54 72 75 65 20 69 66 20 2d 6e 6f 73   /* True if -nos
5540: 68 6d 20 69 73 20 70 61 73 73 65 64 20 2a 2f 0a  hm is passed */.
5550: 0a 20 20 69 66 28 20 6f 62 6a 63 3c 33 20 29 20  .  if( objc<3 ) 
5560: 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a 20  goto bad_args;. 
5570: 20 69 66 28 20 73 74 72 63 6d 70 28 54 63 6c 5f   if( strcmp(Tcl_
5580: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31  GetString(objv[1
5590: 5d 29 2c 20 22 2d 6e 6f 73 68 6d 22 29 3d 3d 30  ]), "-noshm")==0
55a0: 20 29 7b 0a 20 20 20 20 69 73 4e 6f 73 68 6d 20   ){.    isNoshm 
55b0: 3d 20 31 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6f  = 1;.  }.  if( o
55c0: 62 6a 63 21 3d 33 2b 69 73 4e 6f 73 68 6d 20 29  bjc!=3+isNoshm )
55d0: 20 67 6f 74 6f 20 62 61 64 5f 61 72 67 73 3b 0a   goto bad_args;.
55e0: 20 20 7a 56 66 73 20 3d 20 54 63 6c 5f 47 65 74    zVfs = Tcl_Get
55f0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 69 73 4e 6f  String(objv[isNo
5600: 73 68 6d 2b 31 5d 29 3b 0a 20 20 70 53 63 72 69  shm+1]);.  pScri
5610: 70 74 20 3d 20 6f 62 6a 76 5b 69 73 4e 6f 73 68  pt = objv[isNosh
5620: 6d 2b 32 5d 3b 0a 0a 20 20 69 66 28 20 54 43 4c  m+2];..  if( TCL
5630: 5f 4f 4b 21 3d 54 63 6c 5f 4c 69 73 74 4f 62 6a  _OK!=Tcl_ListObj
5640: 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65  GetElements(inte
5650: 72 70 2c 20 70 53 63 72 69 70 74 2c 20 26 6e 53  rp, pScript, &nS
5660: 63 72 69 70 74 2c 20 26 61 70 53 63 72 69 70 74  cript, &apScript
5670: 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  ) ){.    return 
5680: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a  TCL_ERROR;.  }..
5690: 20 20 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f 66    nByte = sizeof
56a0: 28 54 65 73 74 76 66 73 29 0a 20 20 20 20 20 20  (Testvfs).      
56b0: 20 20 2b 20 28 6e 53 63 72 69 70 74 2b 54 45 53    + (nScript+TES
56c0: 54 56 46 53 5f 4d 41 58 5f 41 52 47 53 29 2a 73  TVFS_MAX_ARGS)*s
56d0: 69 7a 65 6f 66 28 54 63 6c 5f 4f 62 6a 20 2a 29  izeof(Tcl_Obj *)
56e0: 20 0a 20 20 20 20 20 20 20 20 2b 20 73 74 72 6c   .        + strl
56f0: 65 6e 28 7a 56 66 73 29 2b 31 3b 0a 20 20 70 20  en(zVfs)+1;.  p 
5700: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 63 6b 61  = (Testvfs *)cka
5710: 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20 6d  lloc(nByte);.  m
5720: 65 6d 73 65 74 28 70 2c 20 30 2c 20 6e 42 79 74  emset(p, 0, nByt
5730: 65 29 3b 0a 0a 20 20 70 2d 3e 70 50 61 72 65 6e  e);..  p->pParen
5740: 74 20 3d 20 73 71 6c 69 74 65 33 5f 76 66 73 5f  t = sqlite3_vfs_
5750: 66 69 6e 64 28 30 29 3b 0a 20 20 70 2d 3e 69 6e  find(0);.  p->in
5760: 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20  terp = interp;. 
5770: 20 70 2d 3e 6e 53 63 72 69 70 74 20 3d 20 6e 53   p->nScript = nS
5780: 63 72 69 70 74 3b 0a 20 20 70 2d 3e 61 70 53 63  cript;.  p->apSc
5790: 72 69 70 74 20 3d 20 28 54 63 6c 5f 4f 62 6a 20  ript = (Tcl_Obj 
57a0: 2a 2a 29 26 70 5b 31 5d 3b 0a 20 20 66 6f 72 28  **)&p[1];.  for(
57b0: 69 3d 30 3b 20 69 3c 6e 53 63 72 69 70 74 3b 20  i=0; i<nScript; 
57c0: 69 2b 2b 29 7b 0a 20 20 20 20 70 2d 3e 61 70 53  i++){.    p->apS
57d0: 63 72 69 70 74 5b 69 5d 20 3d 20 61 70 53 63 72  cript[i] = apScr
57e0: 69 70 74 5b 69 5d 3b 0a 20 20 20 20 54 63 6c 5f  ipt[i];.    Tcl_
57f0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e  IncrRefCount(p->
5800: 61 70 53 63 72 69 70 74 5b 69 5d 29 3b 0a 20 20  apScript[i]);.  
5810: 7d 0a 20 20 70 2d 3e 7a 4e 61 6d 65 20 3d 20 28  }.  p->zName = (
5820: 63 68 61 72 20 2a 29 26 70 2d 3e 61 70 53 63 72  char *)&p->apScr
5830: 69 70 74 5b 6e 53 63 72 69 70 74 2b 54 45 53 54  ipt[nScript+TEST
5840: 56 46 53 5f 4d 41 58 5f 41 52 47 53 5d 3b 0a 20  VFS_MAX_ARGS];. 
5850: 20 73 74 72 63 70 79 28 70 2d 3e 7a 4e 61 6d 65   strcpy(p->zName
5860: 2c 20 7a 56 66 73 29 3b 0a 0a 20 20 70 56 66 73  , zVfs);..  pVfs
5870: 20 3d 20 28 73 71 6c 69 74 65 33 5f 76 66 73 20   = (sqlite3_vfs 
5880: 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66  *)ckalloc(sizeof
5890: 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b 0a  (sqlite3_vfs));.
58a0: 20 20 6d 65 6d 63 70 79 28 70 56 66 73 2c 20 26    memcpy(pVfs, &
58b0: 74 76 66 73 5f 76 66 73 2c 20 73 69 7a 65 6f 66  tvfs_vfs, sizeof
58c0: 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b 0a  (sqlite3_vfs));.
58d0: 20 20 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61    pVfs->pAppData
58e0: 20 3d 20 28 76 6f 69 64 20 2a 29 70 3b 0a 20 20   = (void *)p;.  
58f0: 70 56 66 73 2d 3e 7a 4e 61 6d 65 20 3d 20 70 2d  pVfs->zName = p-
5900: 3e 7a 4e 61 6d 65 3b 0a 20 20 70 56 66 73 2d 3e  >zName;.  pVfs->
5910: 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20 70 2d 3e  mxPathname = p->
5920: 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74 68 6e  pParent->mxPathn
5930: 61 6d 65 3b 0a 20 20 70 56 66 73 2d 3e 73 7a 4f  ame;.  pVfs->szO
5940: 73 46 69 6c 65 20 2b 3d 20 70 2d 3e 70 50 61 72  sFile += p->pPar
5950: 65 6e 74 2d 3e 73 7a 4f 73 46 69 6c 65 3b 0a 20  ent->szOsFile;. 
5960: 20 70 2d 3e 70 56 66 73 20 3d 20 70 56 66 73 3b   p->pVfs = pVfs;
5970: 0a 20 20 70 2d 3e 69 73 4e 6f 73 68 6d 20 3d 20  .  p->isNoshm = 
5980: 69 73 4e 6f 73 68 6d 3b 0a 0a 20 20 54 63 6c 5f  isNoshm;..  Tcl_
5990: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
59a0: 28 69 6e 74 65 72 70 2c 20 7a 56 66 73 2c 20 74  (interp, zVfs, t
59b0: 65 73 74 76 66 73 5f 6f 62 6a 5f 63 6d 64 2c 20  estvfs_obj_cmd, 
59c0: 70 2c 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 64  p, testvfs_obj_d
59d0: 65 6c 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76  el);.  sqlite3_v
59e0: 66 73 5f 72 65 67 69 73 74 65 72 28 70 56 66 73  fs_register(pVfs
59f0: 2c 20 30 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20  , 0);..  return 
5a00: 54 43 4c 5f 4f 4b 3b 0a 0a 20 62 61 64 5f 61 72  TCL_OK;.. bad_ar
5a10: 67 73 3a 0a 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  gs:.  Tcl_WrongN
5a20: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
5a30: 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6e 6f 73 68 6d  , objv, "?-noshm
5a40: 3f 20 56 46 53 4e 41 4d 45 20 53 43 52 49 50 54  ? VFSNAME SCRIPT
5a50: 22 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  ");.  return TCL
5a60: 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 69 6e 74 20 53  _ERROR;.}..int S
5a70: 71 6c 69 74 65 74 65 73 74 76 66 73 5f 49 6e 69  qlitetestvfs_Ini
5a80: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
5a90: 74 65 72 70 29 7b 0a 20 20 54 63 6c 5f 43 72 65  terp){.  Tcl_Cre
5aa0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e  ateObjCommand(in
5ab0: 74 65 72 70 2c 20 22 74 65 73 74 76 66 73 22 2c  terp, "testvfs",
5ac0: 20 74 65 73 74 76 66 73 5f 63 6d 64 2c 20 30 2c   testvfs_cmd, 0,
5ad0: 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43   0);.  return TC
5ae0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 23 65 6e 64 69 66 0a  L_OK;.}..#endif.