/ Hex Artifact Content
Login

Artifact a2d320ea9afc0d520b68eb4998f789b4f8007bfc:


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 6c 61 74 69 6c 65 20 76  nt *, volatile v
0f70: 6f 69 64 20 2a 2a 29 3b 0a 73 74 61 74 69 63 20  oid **);.static 
0f80: 69 6e 74 20 74 76 66 73 53 68 6d 52 65 6c 65 61  int tvfsShmRelea
0f90: 73 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  se(sqlite3_file*
0fa0: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
0fb0: 66 73 53 68 6d 4c 6f 63 6b 28 73 71 6c 69 74 65  fsShmLock(sqlite
0fc0: 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 20 2c 20 69  3_file*, int , i
0fd0: 6e 74 20 2a 29 3b 0a 73 74 61 74 69 63 20 76 6f  nt *);.static vo
0fe0: 69 64 20 74 76 66 73 53 68 6d 42 61 72 72 69 65  id tvfsShmBarrie
0ff0: 72 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 29  r(sqlite3_file*)
1000: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
1010: 73 53 68 6d 43 6c 6f 73 65 28 73 71 6c 69 74 65  sShmClose(sqlite
1020: 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29 3b 0a 0a  3_file*, int);..
1030: 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f 69  static sqlite3_i
1040: 6f 5f 6d 65 74 68 6f 64 73 20 74 76 66 73 5f 69  o_methods tvfs_i
1050: 6f 5f 6d 65 74 68 6f 64 73 20 3d 20 7b 0a 20 20  o_methods = {.  
1060: 32 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  2,              
1070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1080: 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 74   iVersion */.  t
1090: 76 66 73 43 6c 6f 73 65 2c 20 20 20 20 20 20 20  vfsClose,       
10a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
10b0: 2a 20 78 43 6c 6f 73 65 20 2a 2f 0a 20 20 74 76  * xClose */.  tv
10c0: 66 73 52 65 61 64 2c 20 20 20 20 20 20 20 20 20  fsRead,         
10d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
10e0: 20 78 52 65 61 64 20 2a 2f 0a 20 20 74 76 66 73   xRead */.  tvfs
10f0: 57 72 69 74 65 2c 20 20 20 20 20 20 20 20 20 20  Write,          
1100: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
1110: 57 72 69 74 65 20 2a 2f 0a 20 20 74 76 66 73 54  Write */.  tvfsT
1120: 72 75 6e 63 61 74 65 2c 20 20 20 20 20 20 20 20  runcate,        
1130: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 54             /* xT
1140: 72 75 6e 63 61 74 65 20 2a 2f 0a 20 20 74 76 66  runcate */.  tvf
1150: 73 53 79 6e 63 2c 20 20 20 20 20 20 20 20 20 20  sSync,          
1160: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
1170: 78 53 79 6e 63 20 2a 2f 0a 20 20 74 76 66 73 46  xSync */.  tvfsF
1180: 69 6c 65 53 69 7a 65 2c 20 20 20 20 20 20 20 20  ileSize,        
1190: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46             /* xF
11a0: 69 6c 65 53 69 7a 65 20 2a 2f 0a 20 20 74 76 66  ileSize */.  tvf
11b0: 73 4c 6f 63 6b 2c 20 20 20 20 20 20 20 20 20 20  sLock,          
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
11d0: 78 4c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73 55  xLock */.  tvfsU
11e0: 6e 6c 6f 63 6b 2c 20 20 20 20 20 20 20 20 20 20  nlock,          
11f0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 55             /* xU
1200: 6e 6c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73 43  nlock */.  tvfsC
1210: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
1220: 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 43  ,          /* xC
1230: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
1240: 20 2a 2f 0a 20 20 74 76 66 73 46 69 6c 65 43 6f   */.  tvfsFileCo
1250: 6e 74 72 6f 6c 2c 20 20 20 20 20 20 20 20 20 20  ntrol,          
1260: 20 20 20 20 20 20 2f 2a 20 78 46 69 6c 65 43 6f        /* xFileCo
1270: 6e 74 72 6f 6c 20 2a 2f 0a 20 20 74 76 66 73 53  ntrol */.  tvfsS
1280: 65 63 74 6f 72 53 69 7a 65 2c 20 20 20 20 20 20  ectorSize,      
1290: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53             /* xS
12a0: 65 63 74 6f 72 53 69 7a 65 20 2a 2f 0a 20 20 74  ectorSize */.  t
12b0: 76 66 73 44 65 76 69 63 65 43 68 61 72 61 63 74  vfsDeviceCharact
12c0: 65 72 69 73 74 69 63 73 2c 20 20 20 20 20 20 2f  eristics,      /
12d0: 2a 20 78 44 65 76 69 63 65 43 68 61 72 61 63 74  * xDeviceCharact
12e0: 65 72 69 73 74 69 63 73 20 2a 2f 0a 20 20 74 76  eristics */.  tv
12f0: 66 73 53 68 6d 4f 70 65 6e 2c 20 20 20 20 20 20  fsShmOpen,      
1300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1310: 20 78 53 68 6d 4f 70 65 6e 20 2a 2f 0a 20 20 74   xShmOpen */.  t
1320: 76 66 73 53 68 6d 53 69 7a 65 2c 20 20 20 20 20  vfsShmSize,     
1330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1340: 2a 20 78 53 68 6d 53 69 7a 65 20 2a 2f 0a 20 20  * xShmSize */.  
1350: 74 76 66 73 53 68 6d 47 65 74 2c 20 20 20 20 20  tvfsShmGet,     
1360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1370: 2f 2a 20 78 53 68 6d 47 65 74 20 2a 2f 0a 20 20  /* xShmGet */.  
1380: 74 76 66 73 53 68 6d 52 65 6c 65 61 73 65 2c 20  tvfsShmRelease, 
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 52 65 6c 65 61 73 65 20 2a  /* xShmRelease *
13b0: 2f 0a 20 20 74 76 66 73 53 68 6d 4c 6f 63 6b 2c  /.  tvfsShmLock,
13c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13d0: 20 20 20 20 2f 2a 20 78 53 68 6d 4c 6f 63 6b 20      /* xShmLock 
13e0: 2a 2f 0a 20 20 74 76 66 73 53 68 6d 42 61 72 72  */.  tvfsShmBarr
13f0: 69 65 72 2c 20 20 20 20 20 20 20 20 20 20 20 20  ier,            
1400: 20 20 20 20 20 2f 2a 20 78 53 68 6d 42 61 72 72       /* xShmBarr
1410: 69 65 72 20 2a 2f 0a 20 20 74 76 66 73 53 68 6d  ier */.  tvfsShm
1420: 43 6c 6f 73 65 20 20 20 20 20 20 20 20 20 20 20  Close           
1430: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 53 68 6d           /* xShm
1440: 43 6c 6f 73 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a  Close */.};../*.
1450: 2a 2a 20 43 6c 6f 73 65 20 61 6e 20 74 76 66 73  ** Close an tvfs
1460: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
1470: 20 69 6e 74 20 74 76 66 73 43 6c 6f 73 65 28 73   int tvfsClose(s
1480: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
1490: 6c 65 29 7b 0a 20 20 54 65 73 74 76 66 73 46 69  le){.  TestvfsFi
14a0: 6c 65 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  le *p = (Testvfs
14b0: 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20  File *)pFile;.  
14c0: 69 66 28 20 70 2d 3e 70 53 68 6d 49 64 20 29 7b  if( p->pShmId ){
14d0: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66  .    Tcl_DecrRef
14e0: 43 6f 75 6e 74 28 70 2d 3e 70 53 68 6d 49 64 29  Count(p->pShmId)
14f0: 3b 0a 20 20 20 20 70 2d 3e 70 53 68 6d 49 64 20  ;.    p->pShmId 
1500: 3d 20 30 3b 0a 20 20 7d 0a 20 20 69 66 28 20 70  = 0;.  }.  if( p
1510: 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 20 29  File->pMethods )
1520: 7b 0a 20 20 20 20 63 6b 66 72 65 65 28 28 63 68  {.    ckfree((ch
1530: 61 72 20 2a 29 70 46 69 6c 65 2d 3e 70 4d 65 74  ar *)pFile->pMet
1540: 68 6f 64 73 29 3b 0a 20 20 7d 0a 20 20 72 65 74  hods);.  }.  ret
1550: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 43 6c 6f  urn sqlite3OsClo
1560: 73 65 28 70 2d 3e 70 52 65 61 6c 29 3b 0a 7d 0a  se(p->pReal);.}.
1570: 0a 2f 2a 0a 2a 2a 20 52 65 61 64 20 64 61 74 61  ./*.** Read data
1580: 20 66 72 6f 6d 20 61 6e 20 74 76 66 73 2d 66 69   from an tvfs-fi
1590: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  le..*/.static in
15a0: 74 20 74 76 66 73 52 65 61 64 28 0a 20 20 73 71  t tvfsRead(.  sq
15b0: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c  lite3_file *pFil
15c0: 65 2c 20 0a 20 20 76 6f 69 64 20 2a 7a 42 75 66  e, .  void *zBuf
15d0: 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a  , .  int iAmt, .
15e0: 20 20 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 69    sqlite_int64 i
15f0: 4f 66 73 74 0a 29 7b 0a 20 20 54 65 73 74 76 66  Ofst.){.  Testvf
1600: 73 46 69 6c 65 20 2a 70 20 3d 20 28 54 65 73 74  sFile *p = (Test
1610: 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b  vfsFile *)pFile;
1620: 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65  .  return sqlite
1630: 33 4f 73 52 65 61 64 28 70 2d 3e 70 52 65 61 6c  3OsRead(p->pReal
1640: 2c 20 7a 42 75 66 2c 20 69 41 6d 74 2c 20 69 4f  , zBuf, iAmt, iO
1650: 66 73 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57  fst);.}../*.** W
1660: 72 69 74 65 20 64 61 74 61 20 74 6f 20 61 6e 20  rite data to an 
1670: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
1680: 61 74 69 63 20 69 6e 74 20 74 76 66 73 57 72 69  atic int tvfsWri
1690: 74 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69  te(.  sqlite3_fi
16a0: 6c 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20 63 6f  le *pFile, .  co
16b0: 6e 73 74 20 76 6f 69 64 20 2a 7a 42 75 66 2c 20  nst void *zBuf, 
16c0: 0a 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a 20 20  .  int iAmt, .  
16d0: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 69 4f 66  sqlite_int64 iOf
16e0: 73 74 0a 29 7b 0a 20 20 54 65 73 74 76 66 73 46  st.){.  TestvfsF
16f0: 69 6c 65 20 2a 70 20 3d 20 28 54 65 73 74 76 66  ile *p = (Testvf
1700: 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20  sFile *)pFile;. 
1710: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
1720: 73 57 72 69 74 65 28 70 2d 3e 70 52 65 61 6c 2c  sWrite(p->pReal,
1730: 20 7a 42 75 66 2c 20 69 41 6d 74 2c 20 69 4f 66   zBuf, iAmt, iOf
1740: 73 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72  st);.}../*.** Tr
1750: 75 6e 63 61 74 65 20 61 6e 20 74 76 66 73 2d 66  uncate an tvfs-f
1760: 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ile..*/.static i
1770: 6e 74 20 74 76 66 73 54 72 75 6e 63 61 74 65 28  nt tvfsTruncate(
1780: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
1790: 69 6c 65 2c 20 73 71 6c 69 74 65 5f 69 6e 74 36  ile, sqlite_int6
17a0: 34 20 73 69 7a 65 29 7b 0a 20 20 54 65 73 74 76  4 size){.  Testv
17b0: 66 73 46 69 6c 65 20 2a 70 20 3d 20 28 54 65 73  fsFile *p = (Tes
17c0: 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65  tvfsFile *)pFile
17d0: 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74  ;.  return sqlit
17e0: 65 33 4f 73 54 72 75 6e 63 61 74 65 28 70 2d 3e  e3OsTruncate(p->
17f0: 70 52 65 61 6c 2c 20 73 69 7a 65 29 3b 0a 7d 0a  pReal, size);.}.
1800: 0a 2f 2a 0a 2a 2a 20 53 79 6e 63 20 61 6e 20 74  ./*.** Sync an t
1810: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
1820: 74 69 63 20 69 6e 74 20 74 76 66 73 53 79 6e 63  tic int tvfsSync
1830: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
1840: 46 69 6c 65 2c 20 69 6e 74 20 66 6c 61 67 73 29  File, int flags)
1850: 7b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20  {.  TestvfsFile 
1860: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c  *p = (TestvfsFil
1870: 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74  e *)pFile;.  ret
1880: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 53 79 6e  urn sqlite3OsSyn
1890: 63 28 70 2d 3e 70 52 65 61 6c 2c 20 66 6c 61 67  c(p->pReal, flag
18a0: 73 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74  s);.}../*.** Ret
18b0: 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20  urn the current 
18c0: 66 69 6c 65 2d 73 69 7a 65 20 6f 66 20 61 6e 20  file-size of an 
18d0: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
18e0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 46 69 6c  atic int tvfsFil
18f0: 65 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69  eSize(sqlite3_fi
1900: 6c 65 20 2a 70 46 69 6c 65 2c 20 73 71 6c 69 74  le *pFile, sqlit
1910: 65 5f 69 6e 74 36 34 20 2a 70 53 69 7a 65 29 7b  e_int64 *pSize){
1920: 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a  .  TestvfsFile *
1930: 70 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65  p = (TestvfsFile
1940: 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75   *)pFile;.  retu
1950: 72 6e 20 73 71 6c 69 74 65 33 4f 73 46 69 6c 65  rn sqlite3OsFile
1960: 53 69 7a 65 28 70 2d 3e 70 52 65 61 6c 2c 20 70  Size(p->pReal, p
1970: 53 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  Size);.}../*.** 
1980: 4c 6f 63 6b 20 61 6e 20 74 76 66 73 2d 66 69 6c  Lock an tvfs-fil
1990: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
19a0: 20 74 76 66 73 4c 6f 63 6b 28 73 71 6c 69 74 65   tvfsLock(sqlite
19b0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69  3_file *pFile, i
19c0: 6e 74 20 65 4c 6f 63 6b 29 7b 0a 20 20 54 65 73  nt eLock){.  Tes
19d0: 74 76 66 73 46 69 6c 65 20 2a 70 20 3d 20 28 54  tvfsFile *p = (T
19e0: 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69  estvfsFile *)pFi
19f0: 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c  le;.  return sql
1a00: 69 74 65 33 4f 73 4c 6f 63 6b 28 70 2d 3e 70 52  ite3OsLock(p->pR
1a10: 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a  eal, eLock);.}..
1a20: 2f 2a 0a 2a 2a 20 55 6e 6c 6f 63 6b 20 61 6e 20  /*.** Unlock an 
1a30: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
1a40: 61 74 69 63 20 69 6e 74 20 74 76 66 73 55 6e 6c  atic int tvfsUnl
1a50: 6f 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ock(sqlite3_file
1a60: 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 65 4c 6f   *pFile, int eLo
1a70: 63 6b 29 7b 0a 20 20 54 65 73 74 76 66 73 46 69  ck){.  TestvfsFi
1a80: 6c 65 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73  le *p = (Testvfs
1a90: 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20  File *)pFile;.  
1aa0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
1ab0: 55 6e 6c 6f 63 6b 28 70 2d 3e 70 52 65 61 6c 2c  Unlock(p->pReal,
1ac0: 20 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a   eLock);.}../*.*
1ad0: 2a 20 43 68 65 63 6b 20 69 66 20 61 6e 6f 74 68  * Check if anoth
1ae0: 65 72 20 66 69 6c 65 2d 68 61 6e 64 6c 65 20 68  er file-handle h
1af0: 6f 6c 64 73 20 61 20 52 45 53 45 52 56 45 44 20  olds a RESERVED 
1b00: 6c 6f 63 6b 20 6f 6e 20 61 6e 20 74 76 66 73 2d  lock on an tvfs-
1b10: 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  file..*/.static 
1b20: 69 6e 74 20 74 76 66 73 43 68 65 63 6b 52 65 73  int tvfsCheckRes
1b30: 65 72 76 65 64 4c 6f 63 6b 28 73 71 6c 69 74 65  ervedLock(sqlite
1b40: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69  3_file *pFile, i
1b50: 6e 74 20 2a 70 52 65 73 4f 75 74 29 7b 0a 20 20  nt *pResOut){.  
1b60: 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70 20 3d  TestvfsFile *p =
1b70: 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29   (TestvfsFile *)
1b80: 70 46 69 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20  pFile;.  return 
1b90: 73 71 6c 69 74 65 33 4f 73 43 68 65 63 6b 52 65  sqlite3OsCheckRe
1ba0: 73 65 72 76 65 64 4c 6f 63 6b 28 70 2d 3e 70 52  servedLock(p->pR
1bb0: 65 61 6c 2c 20 70 52 65 73 4f 75 74 29 3b 0a 7d  eal, pResOut);.}
1bc0: 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 65 20 63 6f 6e  ../*.** File con
1bd0: 74 72 6f 6c 20 6d 65 74 68 6f 64 2e 20 46 6f 72  trol method. For
1be0: 20 63 75 73 74 6f 6d 20 6f 70 65 72 61 74 69 6f   custom operatio
1bf0: 6e 73 20 6f 6e 20 61 6e 20 74 76 66 73 2d 66 69  ns on an tvfs-fi
1c00: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  le..*/.static in
1c10: 74 20 74 76 66 73 46 69 6c 65 43 6f 6e 74 72 6f  t tvfsFileContro
1c20: 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  l(sqlite3_file *
1c30: 70 46 69 6c 65 2c 20 69 6e 74 20 6f 70 2c 20 76  pFile, int op, v
1c40: 6f 69 64 20 2a 70 41 72 67 29 7b 0a 20 20 54 65  oid *pArg){.  Te
1c50: 73 74 76 66 73 46 69 6c 65 20 2a 70 20 3d 20 28  stvfsFile *p = (
1c60: 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46  TestvfsFile *)pF
1c70: 69 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20 73 71  ile;.  return sq
1c80: 6c 69 74 65 33 4f 73 46 69 6c 65 43 6f 6e 74 72  lite3OsFileContr
1c90: 6f 6c 28 70 2d 3e 70 52 65 61 6c 2c 20 6f 70 2c  ol(p->pReal, op,
1ca0: 20 70 41 72 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a   pArg);.}../*.**
1cb0: 20 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 74   Return the sect
1cc0: 6f 72 2d 73 69 7a 65 20 69 6e 20 62 79 74 65 73  or-size in bytes
1cd0: 20 66 6f 72 20 61 6e 20 74 76 66 73 2d 66 69 6c   for an tvfs-fil
1ce0: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
1cf0: 20 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65 28   tvfsSectorSize(
1d00: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
1d10: 69 6c 65 29 7b 0a 20 20 54 65 73 74 76 66 73 46  ile){.  TestvfsF
1d20: 69 6c 65 20 2a 70 20 3d 20 28 54 65 73 74 76 66  ile *p = (Testvf
1d30: 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20  sFile *)pFile;. 
1d40: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
1d50: 73 53 65 63 74 6f 72 53 69 7a 65 28 70 2d 3e 70  sSectorSize(p->p
1d60: 52 65 61 6c 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  Real);.}../*.** 
1d70: 52 65 74 75 72 6e 20 74 68 65 20 64 65 76 69 63  Return the devic
1d80: 65 20 63 68 61 72 61 63 74 65 72 69 73 74 69 63  e characteristic
1d90: 20 66 6c 61 67 73 20 73 75 70 70 6f 72 74 65 64   flags supported
1da0: 20 62 79 20 61 6e 20 74 76 66 73 2d 66 69 6c 65   by an tvfs-file
1db0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
1dc0: 74 76 66 73 44 65 76 69 63 65 43 68 61 72 61 63  tvfsDeviceCharac
1dd0: 74 65 72 69 73 74 69 63 73 28 73 71 6c 69 74 65  teristics(sqlite
1de0: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b 0a  3_file *pFile){.
1df0: 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70    TestvfsFile *p
1e00: 20 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65 20   = (TestvfsFile 
1e10: 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75 72  *)pFile;.  retur
1e20: 6e 20 73 71 6c 69 74 65 33 4f 73 44 65 76 69 63  n sqlite3OsDevic
1e30: 65 43 68 61 72 61 63 74 65 72 69 73 74 69 63 73  eCharacteristics
1e40: 28 70 2d 3e 70 52 65 61 6c 29 3b 0a 7d 0a 0a 2f  (p->pReal);.}../
1e50: 2a 0a 2a 2a 20 4f 70 65 6e 20 61 6e 20 74 76 66  *.** Open an tvf
1e60: 73 20 66 69 6c 65 20 68 61 6e 64 6c 65 2e 0a 2a  s file handle..*
1e70: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
1e80: 73 4f 70 65 6e 28 0a 20 20 73 71 6c 69 74 65 33  sOpen(.  sqlite3
1e90: 5f 76 66 73 20 2a 70 56 66 73 2c 0a 20 20 63 6f  _vfs *pVfs,.  co
1ea0: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c  nst char *zName,
1eb0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
1ec0: 2a 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20 66 6c  *pFile,.  int fl
1ed0: 61 67 73 2c 0a 20 20 69 6e 74 20 2a 70 4f 75 74  ags,.  int *pOut
1ee0: 46 6c 61 67 73 0a 29 7b 0a 20 20 69 6e 74 20 72  Flags.){.  int r
1ef0: 63 3b 0a 20 20 54 65 73 74 76 66 73 46 69 6c 65  c;.  TestvfsFile
1f00: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 46 69   *p = (TestvfsFi
1f10: 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20 70 2d  le *)pFile;.  p-
1f20: 3e 70 53 68 6d 20 3d 20 30 3b 0a 20 20 70 2d 3e  >pShm = 0;.  p->
1f30: 70 53 68 6d 49 64 20 3d 20 30 3b 0a 20 20 70 2d  pShmId = 0;.  p-
1f40: 3e 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 7a 4e 61  >zFilename = zNa
1f50: 6d 65 3b 0a 20 20 70 2d 3e 70 56 66 73 20 3d 20  me;.  p->pVfs = 
1f60: 70 56 66 73 3b 0a 20 20 70 2d 3e 70 52 65 61 6c  pVfs;.  p->pReal
1f70: 20 3d 20 28 73 71 6c 69 74 65 33 5f 66 69 6c 65   = (sqlite3_file
1f80: 20 2a 29 26 70 5b 31 5d 3b 0a 20 20 72 63 20 3d   *)&p[1];.  rc =
1f90: 20 73 71 6c 69 74 65 33 4f 73 4f 70 65 6e 28 50   sqlite3OsOpen(P
1fa0: 41 52 45 4e 54 56 46 53 28 70 56 66 73 29 2c 20  ARENTVFS(pVfs), 
1fb0: 7a 4e 61 6d 65 2c 20 70 2d 3e 70 52 65 61 6c 2c  zName, p->pReal,
1fc0: 20 66 6c 61 67 73 2c 20 70 4f 75 74 46 6c 61 67   flags, pOutFlag
1fd0: 73 29 3b 0a 20 20 69 66 28 20 70 2d 3e 70 52 65  s);.  if( p->pRe
1fe0: 61 6c 2d 3e 70 4d 65 74 68 6f 64 73 20 29 7b 0a  al->pMethods ){.
1ff0: 20 20 20 20 73 71 6c 69 74 65 33 5f 69 6f 5f 6d      sqlite3_io_m
2000: 65 74 68 6f 64 73 20 2a 70 4d 65 74 68 6f 64 73  ethods *pMethods
2010: 3b 0a 20 20 20 20 70 4d 65 74 68 6f 64 73 20 3d  ;.    pMethods =
2020: 20 28 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74   (sqlite3_io_met
2030: 68 6f 64 73 20 2a 29 63 6b 61 6c 6c 6f 63 28 73  hods *)ckalloc(s
2040: 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 69 6f  izeof(sqlite3_io
2050: 5f 6d 65 74 68 6f 64 73 29 29 3b 0a 20 20 20 20  _methods));.    
2060: 6d 65 6d 63 70 79 28 70 4d 65 74 68 6f 64 73 2c  memcpy(pMethods,
2070: 20 26 74 76 66 73 5f 69 6f 5f 6d 65 74 68 6f 64   &tvfs_io_method
2080: 73 2c 20 73 69 7a 65 6f 66 28 73 71 6c 69 74 65  s, sizeof(sqlite
2090: 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 29 29 3b 0a  3_io_methods));.
20a0: 20 20 20 20 69 66 28 20 28 28 54 65 73 74 76 66      if( ((Testvf
20b0: 73 20 2a 29 70 56 66 73 2d 3e 70 41 70 70 44 61  s *)pVfs->pAppDa
20c0: 74 61 29 2d 3e 69 73 4e 6f 73 68 6d 20 29 7b 0a  ta)->isNoshm ){.
20d0: 20 20 20 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e        pMethods->
20e0: 78 53 68 6d 4f 70 65 6e 20 3d 20 30 3b 0a 20 20  xShmOpen = 0;.  
20f0: 20 20 20 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53      pMethods->xS
2100: 68 6d 47 65 74 20 3d 20 30 3b 0a 20 20 20 20 20  hmGet = 0;.     
2110: 20 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 53   pMethods->xShmS
2120: 69 7a 65 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  ize = 0;.      p
2130: 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 52 65 6c  Methods->xShmRel
2140: 65 61 73 65 20 3d 20 30 3b 0a 20 20 20 20 20 20  ease = 0;.      
2150: 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 43 6c  pMethods->xShmCl
2160: 6f 73 65 20 3d 20 30 3b 0a 20 20 20 20 20 20 70  ose = 0;.      p
2170: 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4c 6f 63  Methods->xShmLoc
2180: 6b 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4d 65  k = 0;.      pMe
2190: 74 68 6f 64 73 2d 3e 78 53 68 6d 42 61 72 72 69  thods->xShmBarri
21a0: 65 72 20 3d 20 30 3b 0a 20 20 20 20 7d 0a 20 20  er = 0;.    }.  
21b0: 20 20 70 46 69 6c 65 2d 3e 70 4d 65 74 68 6f 64    pFile->pMethod
21c0: 73 20 3d 20 70 4d 65 74 68 6f 64 73 3b 0a 20 20  s = pMethods;.  
21d0: 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  }..  return rc;.
21e0: 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 6c 65 74 65 20  }../*.** Delete 
21f0: 74 68 65 20 66 69 6c 65 20 6c 6f 63 61 74 65 64  the file located
2200: 20 61 74 20 7a 50 61 74 68 2e 20 49 66 20 74 68   at zPath. If th
2210: 65 20 64 69 72 53 79 6e 63 20 61 72 67 75 6d 65  e dirSync argume
2220: 6e 74 20 69 73 20 74 72 75 65 2c 0a 2a 2a 20 65  nt is true,.** e
2230: 6e 73 75 72 65 20 74 68 65 20 66 69 6c 65 2d 73  nsure the file-s
2240: 79 73 74 65 6d 20 6d 6f 64 69 66 69 63 61 74 69  ystem modificati
2250: 6f 6e 73 20 61 72 65 20 73 79 6e 63 65 64 20 74  ons are synced t
2260: 6f 20 64 69 73 6b 20 62 65 66 6f 72 65 0a 2a 2a  o disk before.**
2270: 20 72 65 74 75 72 6e 69 6e 67 2e 0a 2a 2f 0a 73   returning..*/.s
2280: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44 65  tatic int tvfsDe
2290: 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76 66 73  lete(sqlite3_vfs
22a0: 20 2a 70 56 66 73 2c 20 63 6f 6e 73 74 20 63 68   *pVfs, const ch
22b0: 61 72 20 2a 7a 50 61 74 68 2c 20 69 6e 74 20 64  ar *zPath, int d
22c0: 69 72 53 79 6e 63 29 7b 0a 20 20 72 65 74 75 72  irSync){.  retur
22d0: 6e 20 73 71 6c 69 74 65 33 4f 73 44 65 6c 65 74  n sqlite3OsDelet
22e0: 65 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  e(PARENTVFS(pVfs
22f0: 29 2c 20 7a 50 61 74 68 2c 20 64 69 72 53 79 6e  ), zPath, dirSyn
2300: 63 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 73  c);.}../*.** Tes
2310: 74 20 66 6f 72 20 61 63 63 65 73 73 20 70 65 72  t for access per
2320: 6d 69 73 73 69 6f 6e 73 2e 20 52 65 74 75 72 6e  missions. Return
2330: 20 74 72 75 65 20 69 66 20 74 68 65 20 72 65 71   true if the req
2340: 75 65 73 74 65 64 20 70 65 72 6d 69 73 73 69 6f  uested permissio
2350: 6e 0a 2a 2a 20 69 73 20 61 76 61 69 6c 61 62 6c  n.** is availabl
2360: 65 2c 20 6f 72 20 66 61 6c 73 65 20 6f 74 68 65  e, or false othe
2370: 72 77 69 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  rwise..*/.static
2380: 20 69 6e 74 20 74 76 66 73 41 63 63 65 73 73 28   int tvfsAccess(
2390: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
23a0: 70 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63  pVfs, .  const c
23b0: 68 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69  har *zPath, .  i
23c0: 6e 74 20 66 6c 61 67 73 2c 20 0a 20 20 69 6e 74  nt flags, .  int
23d0: 20 2a 70 52 65 73 4f 75 74 0a 29 7b 0a 20 20 72   *pResOut.){.  r
23e0: 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 41  eturn sqlite3OsA
23f0: 63 63 65 73 73 28 50 41 52 45 4e 54 56 46 53 28  ccess(PARENTVFS(
2400: 70 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 66 6c  pVfs), zPath, fl
2410: 61 67 73 2c 20 70 52 65 73 4f 75 74 29 3b 0a 7d  ags, pResOut);.}
2420: 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65  ../*.** Populate
2430: 20 62 75 66 66 65 72 20 7a 4f 75 74 20 77 69 74   buffer zOut wit
2440: 68 20 74 68 65 20 66 75 6c 6c 20 63 61 6e 6f 6e  h the full canon
2450: 69 63 61 6c 20 70 61 74 68 6e 61 6d 65 20 63 6f  ical pathname co
2460: 72 72 65 73 70 6f 6e 64 69 6e 67 0a 2a 2a 20 74  rresponding.** t
2470: 6f 20 74 68 65 20 70 61 74 68 6e 61 6d 65 20 69  o the pathname i
2480: 6e 20 7a 50 61 74 68 2e 20 7a 4f 75 74 20 69 73  n zPath. zOut is
2490: 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f 20 70   guaranteed to p
24a0: 6f 69 6e 74 20 74 6f 20 61 20 62 75 66 66 65 72  oint to a buffer
24b0: 0a 2a 2a 20 6f 66 20 61 74 20 6c 65 61 73 74 20  .** of at least 
24c0: 28 44 45 56 53 59 4d 5f 4d 41 58 5f 50 41 54 48  (DEVSYM_MAX_PATH
24d0: 4e 41 4d 45 2b 31 29 20 62 79 74 65 73 2e 0a 2a  NAME+1) bytes..*
24e0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  /.static int tvf
24f0: 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28 0a 20  sFullPathname(. 
2500: 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56   sqlite3_vfs *pV
2510: 66 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61  fs, .  const cha
2520: 72 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69 6e 74  r *zPath, .  int
2530: 20 6e 4f 75 74 2c 20 0a 20 20 63 68 61 72 20 2a   nOut, .  char *
2540: 7a 4f 75 74 0a 29 7b 0a 20 20 72 65 74 75 72 6e  zOut.){.  return
2550: 20 73 71 6c 69 74 65 33 4f 73 46 75 6c 6c 50 61   sqlite3OsFullPa
2560: 74 68 6e 61 6d 65 28 50 41 52 45 4e 54 56 46 53  thname(PARENTVFS
2570: 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c 20 6e  (pVfs), zPath, n
2580: 4f 75 74 2c 20 7a 4f 75 74 29 3b 0a 7d 0a 0a 23  Out, zOut);.}..#
2590: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
25a0: 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f  IT_LOAD_EXTENSIO
25b0: 4e 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e 20 74 68 65  N./*.** Open the
25c0: 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72 79   dynamic library
25d0: 20 6c 6f 63 61 74 65 64 20 61 74 20 7a 50 61 74   located at zPat
25e0: 68 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 68  h and return a h
25f0: 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  andle..*/.static
2600: 20 76 6f 69 64 20 2a 74 76 66 73 44 6c 4f 70 65   void *tvfsDlOpe
2610: 6e 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70  n(sqlite3_vfs *p
2620: 56 66 73 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  Vfs, const char 
2630: 2a 7a 50 61 74 68 29 7b 0a 20 20 72 65 74 75 72  *zPath){.  retur
2640: 6e 20 73 71 6c 69 74 65 33 4f 73 44 6c 4f 70 65  n sqlite3OsDlOpe
2650: 6e 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73  n(PARENTVFS(pVfs
2660: 29 2c 20 7a 50 61 74 68 29 3b 0a 7d 0a 0a 2f 2a  ), zPath);.}../*
2670: 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 74 68 65  .** Populate the
2680: 20 62 75 66 66 65 72 20 7a 45 72 72 4d 73 67 20   buffer zErrMsg 
2690: 28 73 69 7a 65 20 6e 42 79 74 65 20 62 79 74 65  (size nByte byte
26a0: 73 29 20 77 69 74 68 20 61 20 68 75 6d 61 6e 20  s) with a human 
26b0: 72 65 61 64 61 62 6c 65 0a 2a 2a 20 75 74 66 2d  readable.** utf-
26c0: 38 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62  8 string describ
26d0: 69 6e 67 20 74 68 65 20 6d 6f 73 74 20 72 65 63  ing the most rec
26e0: 65 6e 74 20 65 72 72 6f 72 20 65 6e 63 6f 75 6e  ent error encoun
26f0: 74 65 72 65 64 20 61 73 73 6f 63 69 61 74 65 64  tered associated
2700: 20 0a 2a 2a 20 77 69 74 68 20 64 79 6e 61 6d 69   .** with dynami
2710: 63 20 6c 69 62 72 61 72 69 65 73 2e 0a 2a 2f 0a  c libraries..*/.
2720: 73 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73  static void tvfs
2730: 44 6c 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f  DlError(sqlite3_
2740: 76 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e  vfs *pVfs, int n
2750: 42 79 74 65 2c 20 63 68 61 72 20 2a 7a 45 72 72  Byte, char *zErr
2760: 4d 73 67 29 7b 0a 20 20 73 71 6c 69 74 65 33 4f  Msg){.  sqlite3O
2770: 73 44 6c 45 72 72 6f 72 28 50 41 52 45 4e 54 56  sDlError(PARENTV
2780: 46 53 28 70 56 66 73 29 2c 20 6e 42 79 74 65 2c  FS(pVfs), nByte,
2790: 20 7a 45 72 72 4d 73 67 29 3b 0a 7d 0a 0a 2f 2a   zErrMsg);.}../*
27a0: 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69  .** Return a poi
27b0: 6e 74 65 72 20 74 6f 20 74 68 65 20 73 79 6d 62  nter to the symb
27c0: 6f 6c 20 7a 53 79 6d 62 6f 6c 20 69 6e 20 74 68  ol zSymbol in th
27d0: 65 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72  e dynamic librar
27e0: 79 20 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74  y pHandle..*/.st
27f0: 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76 66 73  atic void (*tvfs
2800: 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f 76 66  DlSym(sqlite3_vf
2810: 73 20 2a 70 56 66 73 2c 20 76 6f 69 64 20 2a 70  s *pVfs, void *p
2820: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53  , const char *zS
2830: 79 6d 29 29 28 76 6f 69 64 29 7b 0a 20 20 72 65  ym))(void){.  re
2840: 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 44 6c  turn sqlite3OsDl
2850: 53 79 6d 28 50 41 52 45 4e 54 56 46 53 28 70 56  Sym(PARENTVFS(pV
2860: 66 73 29 2c 20 70 2c 20 7a 53 79 6d 29 3b 0a 7d  fs), p, zSym);.}
2870: 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 74 68  ../*.** Close th
2880: 65 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61 72  e dynamic librar
2890: 79 20 68 61 6e 64 6c 65 20 70 48 61 6e 64 6c 65  y handle pHandle
28a0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
28b0: 20 74 76 66 73 44 6c 43 6c 6f 73 65 28 73 71 6c   tvfsDlClose(sql
28c0: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
28d0: 76 6f 69 64 20 2a 70 48 61 6e 64 6c 65 29 7b 0a  void *pHandle){.
28e0: 20 20 73 71 6c 69 74 65 33 4f 73 44 6c 43 6c 6f    sqlite3OsDlClo
28f0: 73 65 28 50 41 52 45 4e 54 56 46 53 28 70 56 66  se(PARENTVFS(pVf
2900: 73 29 2c 20 70 48 61 6e 64 6c 65 29 3b 0a 7d 0a  s), pHandle);.}.
2910: 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54 45  #endif /* SQLITE
2920: 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e  _OMIT_LOAD_EXTEN
2930: 53 49 4f 4e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 50  SION */../*.** P
2940: 6f 70 75 6c 61 74 65 20 74 68 65 20 62 75 66 66  opulate the buff
2950: 65 72 20 70 6f 69 6e 74 65 64 20 74 6f 20 62 79  er pointed to by
2960: 20 7a 42 75 66 4f 75 74 20 77 69 74 68 20 6e 42   zBufOut with nB
2970: 79 74 65 20 62 79 74 65 73 20 6f 66 20 0a 2a 2a  yte bytes of .**
2980: 20 72 61 6e 64 6f 6d 20 64 61 74 61 2e 0a 2a 2f   random data..*/
2990: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
29a0: 52 61 6e 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74  Randomness(sqlit
29b0: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 69 6e  e3_vfs *pVfs, in
29c0: 74 20 6e 42 79 74 65 2c 20 63 68 61 72 20 2a 7a  t nByte, char *z
29d0: 42 75 66 4f 75 74 29 7b 0a 20 20 72 65 74 75 72  BufOut){.  retur
29e0: 6e 20 73 71 6c 69 74 65 33 4f 73 52 61 6e 64 6f  n sqlite3OsRando
29f0: 6d 6e 65 73 73 28 50 41 52 45 4e 54 56 46 53 28  mness(PARENTVFS(
2a00: 70 56 66 73 29 2c 20 6e 42 79 74 65 2c 20 7a 42  pVfs), nByte, zB
2a10: 75 66 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  ufOut);.}../*.**
2a20: 20 53 6c 65 65 70 20 66 6f 72 20 6e 4d 69 63 72   Sleep for nMicr
2a30: 6f 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 2e 20  o microseconds. 
2a40: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65  Return the numbe
2a50: 72 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e 64  r of microsecond
2a60: 73 20 0a 2a 2a 20 61 63 74 75 61 6c 6c 79 20 73  s .** actually s
2a70: 6c 65 70 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  lept..*/.static 
2a80: 69 6e 74 20 74 76 66 73 53 6c 65 65 70 28 73 71  int tvfsSleep(sq
2a90: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
2aa0: 20 69 6e 74 20 6e 4d 69 63 72 6f 29 7b 0a 20 20   int nMicro){.  
2ab0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
2ac0: 53 6c 65 65 70 28 50 41 52 45 4e 54 56 46 53 28  Sleep(PARENTVFS(
2ad0: 70 56 66 73 29 2c 20 6e 4d 69 63 72 6f 29 3b 0a  pVfs), nMicro);.
2ae0: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20  }../*.** Return 
2af0: 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65  the current time
2b00: 20 61 73 20 61 20 4a 75 6c 69 61 6e 20 44 61 79   as a Julian Day
2b10: 20 6e 75 6d 62 65 72 20 69 6e 20 2a 70 54 69 6d   number in *pTim
2b20: 65 4f 75 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  eOut..*/.static 
2b30: 69 6e 74 20 74 76 66 73 43 75 72 72 65 6e 74 54  int tvfsCurrentT
2b40: 69 6d 65 28 73 71 6c 69 74 65 33 5f 76 66 73 20  ime(sqlite3_vfs 
2b50: 2a 70 56 66 73 2c 20 64 6f 75 62 6c 65 20 2a 70  *pVfs, double *p
2b60: 54 69 6d 65 4f 75 74 29 7b 0a 20 20 72 65 74 75  TimeOut){.  retu
2b70: 72 6e 20 50 41 52 45 4e 54 56 46 53 28 70 56 66  rn PARENTVFS(pVf
2b80: 73 29 2d 3e 78 43 75 72 72 65 6e 74 54 69 6d 65  s)->xCurrentTime
2b90: 28 50 41 52 45 4e 54 56 46 53 28 70 56 66 73 29  (PARENTVFS(pVfs)
2ba0: 2c 20 70 54 69 6d 65 4f 75 74 29 3b 0a 7d 0a 0a  , pTimeOut);.}..
2bb0: 73 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73  static void tvfs
2bc0: 47 72 6f 77 42 75 66 66 65 72 28 54 65 73 74 76  GrowBuffer(Testv
2bd0: 66 73 46 69 6c 65 20 2a 70 46 64 2c 20 69 6e 74  fsFile *pFd, int
2be0: 20 72 65 71 53 69 7a 65 2c 20 69 6e 74 20 2a 70   reqSize, int *p
2bf0: 4e 65 77 53 69 7a 65 29 7b 0a 20 20 54 65 73 74  NewSize){.  Test
2c00: 76 66 73 42 75 66 66 65 72 20 2a 70 42 75 66 66  vfsBuffer *pBuff
2c10: 65 72 20 3d 20 70 46 64 2d 3e 70 53 68 6d 3b 0a  er = pFd->pShm;.
2c20: 20 20 69 66 28 20 72 65 71 53 69 7a 65 3e 70 42    if( reqSize>pB
2c30: 75 66 66 65 72 2d 3e 6e 20 29 7b 0a 20 20 20 20  uffer->n ){.    
2c40: 70 42 75 66 66 65 72 2d 3e 61 20 3d 20 28 75 38  pBuffer->a = (u8
2c50: 20 2a 29 63 6b 72 65 61 6c 6c 6f 63 28 28 63 68   *)ckrealloc((ch
2c60: 61 72 20 2a 29 70 42 75 66 66 65 72 2d 3e 61 2c  ar *)pBuffer->a,
2c70: 20 72 65 71 53 69 7a 65 29 3b 0a 20 20 20 20 6d   reqSize);.    m
2c80: 65 6d 73 65 74 28 26 70 42 75 66 66 65 72 2d 3e  emset(&pBuffer->
2c90: 61 5b 70 42 75 66 66 65 72 2d 3e 6e 5d 2c 20 30  a[pBuffer->n], 0
2ca0: 78 35 35 2c 20 72 65 71 53 69 7a 65 2d 70 42 75  x55, reqSize-pBu
2cb0: 66 66 65 72 2d 3e 6e 29 3b 0a 20 20 20 20 70 42  ffer->n);.    pB
2cc0: 75 66 66 65 72 2d 3e 6e 20 3d 20 72 65 71 53 69  uffer->n = reqSi
2cd0: 7a 65 3b 0a 20 20 7d 0a 20 20 2a 70 4e 65 77 53  ze;.  }.  *pNewS
2ce0: 69 7a 65 20 3d 20 70 42 75 66 66 65 72 2d 3e 6e  ize = pBuffer->n
2cf0: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64  ;.}..static void
2d00: 20 74 76 66 73 45 78 65 63 54 63 6c 28 0a 20 20   tvfsExecTcl(.  
2d10: 54 65 73 74 76 66 73 20 2a 70 2c 20 0a 20 20 63  Testvfs *p, .  c
2d20: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4d 65 74 68  onst char *zMeth
2d30: 6f 64 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 61  od,.  Tcl_Obj *a
2d40: 72 67 31 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  rg1,.  Tcl_Obj *
2d50: 61 72 67 32 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  arg2,.  Tcl_Obj 
2d60: 2a 61 72 67 33 0a 29 7b 0a 20 20 69 6e 74 20 72  *arg3.){.  int r
2d70: 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c;              
2d80: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65             /* Re
2d90: 74 75 72 6e 20 63 6f 64 65 20 66 72 6f 6d 20 54  turn code from T
2da0: 63 6c 5f 45 76 61 6c 4f 62 6a 28 29 20 2a 2f 0a  cl_EvalObj() */.
2db0: 20 20 69 6e 74 20 6e 41 72 67 3b 20 20 20 20 20    int nArg;     
2dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2dd0: 20 20 2f 2a 20 45 6c 65 6d 65 6e 74 73 20 69 6e    /* Elements in
2de0: 20 65 76 61 6c 27 64 20 6c 69 73 74 20 2a 2f 0a   eval'd list */.
2df0: 0a 20 20 70 2d 3e 61 70 53 63 72 69 70 74 5b 70  .  p->apScript[p
2e00: 2d 3e 6e 53 63 72 69 70 74 5d 20 3d 20 54 63 6c  ->nScript] = Tcl
2e10: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 4d  _NewStringObj(zM
2e20: 65 74 68 6f 64 2c 20 2d 31 29 3b 0a 20 20 70 2d  ethod, -1);.  p-
2e30: 3e 61 70 53 63 72 69 70 74 5b 70 2d 3e 6e 53 63  >apScript[p->nSc
2e40: 72 69 70 74 2b 31 5d 20 3d 20 61 72 67 31 3b 0a  ript+1] = arg1;.
2e50: 20 20 70 2d 3e 61 70 53 63 72 69 70 74 5b 70 2d    p->apScript[p-
2e60: 3e 6e 53 63 72 69 70 74 2b 32 5d 20 3d 20 61 72  >nScript+2] = ar
2e70: 67 32 3b 0a 20 20 70 2d 3e 61 70 53 63 72 69 70  g2;.  p->apScrip
2e80: 74 5b 70 2d 3e 6e 53 63 72 69 70 74 2b 33 5d 20  t[p->nScript+3] 
2e90: 3d 20 61 72 67 33 3b 0a 0a 20 20 66 6f 72 28 6e  = arg3;..  for(n
2ea0: 41 72 67 3d 70 2d 3e 6e 53 63 72 69 70 74 3b 20  Arg=p->nScript; 
2eb0: 70 2d 3e 61 70 53 63 72 69 70 74 5b 6e 41 72 67  p->apScript[nArg
2ec0: 5d 3b 20 6e 41 72 67 2b 2b 29 7b 0a 20 20 20 20  ]; nArg++){.    
2ed0: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
2ee0: 28 70 2d 3e 61 70 53 63 72 69 70 74 5b 6e 41 72  (p->apScript[nAr
2ef0: 67 5d 29 3b 0a 20 20 7d 0a 0a 20 20 72 63 20 3d  g]);.  }..  rc =
2f00: 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 76 28 70 2d   Tcl_EvalObjv(p-
2f10: 3e 69 6e 74 65 72 70 2c 20 6e 41 72 67 2c 20 70  >interp, nArg, p
2f20: 2d 3e 61 70 53 63 72 69 70 74 2c 20 54 43 4c 5f  ->apScript, TCL_
2f30: 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20  EVAL_GLOBAL);.  
2f40: 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20 29  if( rc!=TCL_OK )
2f50: 7b 0a 20 20 20 20 54 63 6c 5f 42 61 63 6b 67 72  {.    Tcl_Backgr
2f60: 6f 75 6e 64 45 72 72 6f 72 28 70 2d 3e 69 6e 74  oundError(p->int
2f70: 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65  erp);.    Tcl_Re
2f80: 73 65 74 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  setResult(p->int
2f90: 65 72 70 29 3b 0a 20 20 7d 0a 0a 20 20 66 6f 72  erp);.  }..  for
2fa0: 28 6e 41 72 67 3d 70 2d 3e 6e 53 63 72 69 70 74  (nArg=p->nScript
2fb0: 3b 20 70 2d 3e 61 70 53 63 72 69 70 74 5b 6e 41  ; p->apScript[nA
2fc0: 72 67 5d 3b 20 6e 41 72 67 2b 2b 29 7b 0a 20 20  rg]; nArg++){.  
2fd0: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
2fe0: 6e 74 28 70 2d 3e 61 70 53 63 72 69 70 74 5b 6e  nt(p->apScript[n
2ff0: 41 72 67 5d 29 3b 0a 20 20 20 20 70 2d 3e 61 70  Arg]);.    p->ap
3000: 53 63 72 69 70 74 5b 6e 41 72 67 5d 20 3d 20 30  Script[nArg] = 0
3010: 3b 0a 20 20 7d 0a 7d 0a 0a 73 74 61 74 69 63 20  ;.  }.}..static 
3020: 69 6e 74 20 74 76 66 73 52 65 73 75 6c 74 43 6f  int tvfsResultCo
3030: 64 65 28 54 65 73 74 76 66 73 20 2a 70 2c 20 69  de(Testvfs *p, i
3040: 6e 74 20 2a 70 52 63 29 7b 0a 20 20 73 74 72 75  nt *pRc){.  stru
3050: 63 74 20 65 72 72 63 6f 64 65 20 7b 0a 20 20 20  ct errcode {.   
3060: 20 69 6e 74 20 65 43 6f 64 65 3b 0a 20 20 20 20   int eCode;.    
3070: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6f 64  const char *zCod
3080: 65 3b 0a 20 20 7d 20 61 43 6f 64 65 5b 5d 20 3d  e;.  } aCode[] =
3090: 20 7b 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f   {.    { SQLITE_
30a0: 4f 4b 2c 20 20 20 20 20 22 53 51 4c 49 54 45 5f  OK,     "SQLITE_
30b0: 4f 4b 22 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b  OK"     },.    {
30c0: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 2c 20 20   SQLITE_ERROR,  
30d0: 22 53 51 4c 49 54 45 5f 45 52 52 4f 52 22 20 20  "SQLITE_ERROR"  
30e0: 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f  },.    { SQLITE_
30f0: 49 4f 45 52 52 2c 20 20 22 53 51 4c 49 54 45 5f  IOERR,  "SQLITE_
3100: 49 4f 45 52 52 22 20 20 7d 2c 0a 20 20 20 20 7b  IOERR"  },.    {
3110: 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 2c 20   SQLITE_LOCKED, 
3120: 22 53 51 4c 49 54 45 5f 4c 4f 43 4b 45 44 22 20  "SQLITE_LOCKED" 
3130: 7d 2c 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f  },.    { SQLITE_
3140: 42 55 53 59 2c 20 20 20 22 53 51 4c 49 54 45 5f  BUSY,   "SQLITE_
3150: 42 55 53 59 22 20 20 20 7d 2c 0a 20 20 7d 3b 0a  BUSY"   },.  };.
3160: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
3170: 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 7a 20  ;.  int i;..  z 
3180: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52  = Tcl_GetStringR
3190: 65 73 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29  esult(p->interp)
31a0: 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 41  ;.  for(i=0; i<A
31b0: 72 72 61 79 53 69 7a 65 28 61 43 6f 64 65 29 3b  rraySize(aCode);
31c0: 20 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 30   i++){.    if( 0
31d0: 3d 3d 73 74 72 63 6d 70 28 7a 2c 20 61 43 6f 64  ==strcmp(z, aCod
31e0: 65 5b 69 5d 2e 7a 43 6f 64 65 29 20 29 7b 0a 20  e[i].zCode) ){. 
31f0: 20 20 20 20 20 2a 70 52 63 20 3d 20 61 43 6f 64       *pRc = aCod
3200: 65 5b 69 5d 2e 65 43 6f 64 65 3b 0a 20 20 20 20  e[i].eCode;.    
3210: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20    return 1;.    
3220: 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  }.  }..  return 
3230: 30 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74  0;.}..static int
3240: 20 74 76 66 73 53 68 6d 4f 70 65 6e 28 0a 20 20   tvfsShmOpen(.  
3250: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
3260: 69 6c 65 44 65 73 0a 29 7b 0a 20 20 54 65 73 74  ileDes.){.  Test
3270: 76 66 73 20 2a 70 3b 0a 20 20 69 6e 74 20 72 63  vfs *p;.  int rc
3280: 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 20 20 20   = SQLITE_OK;   
3290: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 74            /* Ret
32a0: 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 20 20 54 63  urn code */.  Tc
32b0: 6c 5f 4f 62 6a 20 2a 70 49 64 20 3d 20 30 3b 20  l_Obj *pId = 0; 
32c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
32d0: 20 49 64 20 66 6f 72 20 74 68 69 73 20 63 6f 6e   Id for this con
32e0: 6e 65 63 74 69 6f 6e 20 2a 2f 0a 20 20 54 65 73  nection */.  Tes
32f0: 74 76 66 73 42 75 66 66 65 72 20 2a 70 42 75 66  tvfsBuffer *pBuf
3300: 66 65 72 3b 20 20 20 20 20 20 20 20 20 2f 2a 20  fer;         /* 
3310: 42 75 66 66 65 72 20 74 6f 20 6f 70 65 6e 20 63  Buffer to open c
3320: 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 2a 2f 0a  onnection to */.
3330: 20 20 54 65 73 74 76 66 73 46 69 6c 65 20 2a 70    TestvfsFile *p
3340: 46 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  Fd;             
3350: 20 20 2f 2a 20 54 68 65 20 74 65 73 74 76 66 73    /* The testvfs
3360: 20 66 69 6c 65 20 73 74 72 75 63 74 75 72 65 20   file structure 
3370: 2a 2f 0a 0a 20 20 70 46 64 20 3d 20 28 54 65 73  */..  pFd = (Tes
3380: 74 76 66 73 46 69 6c 65 2a 29 70 46 69 6c 65 44  tvfsFile*)pFileD
3390: 65 73 3b 0a 20 20 70 20 3d 20 28 54 65 73 74 76  es;.  p = (Testv
33a0: 66 73 20 2a 29 70 46 64 2d 3e 70 56 66 73 2d 3e  fs *)pFd->pVfs->
33b0: 70 41 70 70 44 61 74 61 3b 0a 20 20 61 73 73 65  pAppData;.  asse
33c0: 72 74 28 20 70 46 64 2d 3e 70 53 68 6d 49 64 3d  rt( pFd->pShmId=
33d0: 3d 30 20 26 26 20 70 46 64 2d 3e 70 53 68 6d 3d  =0 && pFd->pShm=
33e0: 3d 30 20 29 3b 0a 0a 20 20 2f 2a 20 45 76 61 6c  =0 );..  /* Eval
33f0: 75 61 74 65 20 74 68 65 20 54 63 6c 20 73 63 72  uate the Tcl scr
3400: 69 70 74 3a 20 0a 20 20 2a 2a 0a 20 20 2a 2a 20  ipt: .  **.  ** 
3410: 20 20 53 43 52 49 50 54 20 78 53 68 6d 4f 70 65    SCRIPT xShmOpe
3420: 6e 20 46 49 4c 45 4e 41 4d 45 0a 20 20 2a 2a 0a  n FILENAME.  **.
3430: 20 20 2a 2a 20 49 66 20 74 68 65 20 73 63 72 69    ** If the scri
3440: 70 74 20 72 65 74 75 72 6e 73 20 61 6e 20 53 51  pt returns an SQ
3450: 4c 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65 20  Lite error code 
3460: 6f 74 68 65 72 20 74 68 61 6e 20 53 51 4c 49 54  other than SQLIT
3470: 45 5f 4f 4b 2c 20 61 6e 0a 20 20 2a 2a 20 65 72  E_OK, an.  ** er
3480: 72 6f 72 20 69 73 20 72 65 74 75 72 6e 65 64 20  ror is returned 
3490: 74 6f 20 74 68 65 20 63 61 6c 6c 65 72 2e 20 49  to the caller. I
34a0: 66 20 69 74 20 72 65 74 75 72 6e 73 20 53 51 4c  f it returns SQL
34b0: 49 54 45 5f 4f 4b 2c 20 74 68 65 20 6e 65 77 0a  ITE_OK, the new.
34c0: 20 20 2a 2a 20 63 6f 6e 6e 65 63 74 69 6f 6e 20    ** connection 
34d0: 69 73 20 6e 61 6d 65 64 20 22 61 6e 6f 6e 22 2e  is named "anon".
34e0: 20 4f 74 68 65 72 77 69 73 65 2c 20 74 68 65 20   Otherwise, the 
34f0: 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 20 62  value returned b
3500: 79 20 74 68 65 0a 20 20 2a 2a 20 73 63 72 69 70  y the.  ** scrip
3510: 74 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65  t is used as the
3520: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e 61 6d 65   connection name
3530: 2e 0a 20 20 2a 2f 0a 20 20 74 76 66 73 45 78 65  ..  */.  tvfsExe
3540: 63 54 63 6c 28 70 2c 20 22 78 53 68 6d 4f 70 65  cTcl(p, "xShmOpe
3550: 6e 22 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  n", Tcl_NewStrin
3560: 67 4f 62 6a 28 70 46 64 2d 3e 7a 46 69 6c 65 6e  gObj(pFd->zFilen
3570: 61 6d 65 2c 20 2d 31 29 2c 20 30 2c 20 30 29 3b  ame, -1), 0, 0);
3580: 0a 20 20 69 66 28 20 74 76 66 73 52 65 73 75 6c  .  if( tvfsResul
3590: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 20 29 7b  tCode(p, &rc) ){
35a0: 0a 20 20 20 20 69 66 28 20 72 63 21 3d 53 51 4c  .    if( rc!=SQL
35b0: 49 54 45 5f 4f 4b 20 29 20 72 65 74 75 72 6e 20  ITE_OK ) return 
35c0: 72 63 3b 0a 20 20 20 20 70 49 64 20 3d 20 54 63  rc;.    pId = Tc
35d0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22  l_NewStringObj("
35e0: 61 6e 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20 7d 65  anon", -1);.  }e
35f0: 6c 73 65 7b 0a 20 20 20 20 70 49 64 20 3d 20 54  lse{.    pId = T
3600: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_GetObjResult(
3610: 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a  p->interp);.  }.
3620: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75    Tcl_IncrRefCou
3630: 6e 74 28 70 49 64 29 3b 0a 20 20 70 46 64 2d 3e  nt(pId);.  pFd->
3640: 70 53 68 6d 49 64 20 3d 20 70 49 64 3b 0a 0a 20  pShmId = pId;.. 
3650: 20 2f 2a 20 53 65 61 72 63 68 20 66 6f 72 20 61   /* Search for a
3660: 20 54 65 73 74 76 66 73 42 75 66 66 65 72 2e 20   TestvfsBuffer. 
3670: 43 72 65 61 74 65 20 61 20 6e 65 77 20 6f 6e 65  Create a new one
3680: 20 69 66 20 72 65 71 75 69 72 65 64 2e 20 2a 2f   if required. */
3690: 0a 20 20 66 6f 72 28 70 42 75 66 66 65 72 3d 70  .  for(pBuffer=p
36a0: 2d 3e 70 42 75 66 66 65 72 3b 20 70 42 75 66 66  ->pBuffer; pBuff
36b0: 65 72 3b 20 70 42 75 66 66 65 72 3d 70 42 75 66  er; pBuffer=pBuf
36c0: 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20  fer->pNext){.   
36d0: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 70   if( 0==strcmp(p
36e0: 46 64 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 70  Fd->zFilename, p
36f0: 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 29 20 29  Buffer->zFile) )
3700: 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 69 66   break;.  }.  if
3710: 28 20 21 70 42 75 66 66 65 72 20 29 7b 0a 20 20  ( !pBuffer ){.  
3720: 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20 73 69    int nByte = si
3730: 7a 65 6f 66 28 54 65 73 74 76 66 73 42 75 66 66  zeof(TestvfsBuff
3740: 65 72 29 20 2b 20 73 74 72 6c 65 6e 28 70 46 64  er) + strlen(pFd
3750: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 29 20 2b 20 31  ->zFilename) + 1
3760: 3b 0a 20 20 20 20 70 42 75 66 66 65 72 20 3d 20  ;.    pBuffer = 
3770: 28 54 65 73 74 76 66 73 42 75 66 66 65 72 20 2a  (TestvfsBuffer *
3780: 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29 3b  )ckalloc(nByte);
3790: 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 42 75 66  .    memset(pBuf
37a0: 66 65 72 2c 20 30 2c 20 6e 42 79 74 65 29 3b 0a  fer, 0, nByte);.
37b0: 20 20 20 20 70 42 75 66 66 65 72 2d 3e 7a 46 69      pBuffer->zFi
37c0: 6c 65 20 3d 20 28 63 68 61 72 20 2a 29 26 70 42  le = (char *)&pB
37d0: 75 66 66 65 72 5b 31 5d 3b 0a 20 20 20 20 73 74  uffer[1];.    st
37e0: 72 63 70 79 28 70 42 75 66 66 65 72 2d 3e 7a 46  rcpy(pBuffer->zF
37f0: 69 6c 65 2c 20 70 46 64 2d 3e 7a 46 69 6c 65 6e  ile, pFd->zFilen
3800: 61 6d 65 29 3b 0a 20 20 20 20 70 42 75 66 66 65  ame);.    pBuffe
3810: 72 2d 3e 70 4e 65 78 74 20 3d 20 70 2d 3e 70 42  r->pNext = p->pB
3820: 75 66 66 65 72 3b 0a 20 20 20 20 70 2d 3e 70 42  uffer;.    p->pB
3830: 75 66 66 65 72 20 3d 20 70 42 75 66 66 65 72 3b  uffer = pBuffer;
3840: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 43 6f 6e 6e 65  .  }..  /* Conne
3850: 63 74 20 74 68 65 20 54 65 73 74 76 66 73 42 75  ct the TestvfsBu
3860: 66 66 65 72 20 74 6f 20 74 68 65 20 6e 65 77 20  ffer to the new 
3870: 54 65 73 74 76 66 73 53 68 6d 20 68 61 6e 64 6c  TestvfsShm handl
3880: 65 20 61 6e 64 20 72 65 74 75 72 6e 2e 20 2a 2f  e and return. */
3890: 0a 20 20 70 42 75 66 66 65 72 2d 3e 6e 52 65 66  .  pBuffer->nRef
38a0: 2b 2b 3b 0a 20 20 70 46 64 2d 3e 70 53 68 6d 20  ++;.  pFd->pShm 
38b0: 3d 20 70 42 75 66 66 65 72 3b 0a 20 20 72 65 74  = pBuffer;.  ret
38c0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d  urn SQLITE_OK;.}
38d0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ..static int tvf
38e0: 73 53 68 6d 53 69 7a 65 28 0a 20 20 73 71 6c 69  sShmSize(.  sqli
38f0: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
3900: 0a 20 20 69 6e 74 20 72 65 71 53 69 7a 65 2c 0a  .  int reqSize,.
3910: 20 20 69 6e 74 20 2a 70 4e 65 77 53 69 7a 65 0a    int *pNewSize.
3920: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  ){.  int rc = SQ
3930: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76  LITE_OK;.  Testv
3940: 66 73 46 69 6c 65 20 2a 70 46 64 20 3d 20 28 54  fsFile *pFd = (T
3950: 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69  estvfsFile *)pFi
3960: 6c 65 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  le;.  Testvfs *p
3970: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70   = (Testvfs *)(p
3980: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
3990: 74 61 29 3b 0a 0a 20 20 74 76 66 73 45 78 65 63  ta);..  tvfsExec
39a0: 54 63 6c 28 70 2c 20 22 78 53 68 6d 53 69 7a 65  Tcl(p, "xShmSize
39b0: 22 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65  ", .      Tcl_Ne
39c0: 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e  wStringObj(pFd->
39d0: 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29  pShm->zFile, -1)
39e0: 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30  , pFd->pShmId, 0
39f0: 0a 20 20 29 3b 0a 20 20 74 76 66 73 52 65 73 75  .  );.  tvfsResu
3a00: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a  ltCode(p, &rc);.
3a10: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
3a20: 5f 4f 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 47  _OK ){.    tvfsG
3a30: 72 6f 77 42 75 66 66 65 72 28 70 46 64 2c 20 72  rowBuffer(pFd, r
3a40: 65 71 53 69 7a 65 2c 20 70 4e 65 77 53 69 7a 65  eqSize, pNewSize
3a50: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
3a60: 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  rc;.}..static in
3a70: 74 20 74 76 66 73 53 68 6d 47 65 74 28 0a 20 20  t tvfsShmGet(.  
3a80: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46  sqlite3_file *pF
3a90: 69 6c 65 2c 20 0a 20 20 69 6e 74 20 72 65 71 4d  ile, .  int reqM
3aa0: 61 70 53 69 7a 65 2c 20 0a 20 20 69 6e 74 20 2a  apSize, .  int *
3ab0: 70 4d 61 70 53 69 7a 65 2c 20 0a 20 20 76 6f 6c  pMapSize, .  vol
3ac0: 61 74 69 6c 65 20 76 6f 69 64 20 2a 2a 70 70 0a  atile void **pp.
3ad0: 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51  ){.  int rc = SQ
3ae0: 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76  LITE_OK;.  Testv
3af0: 66 73 46 69 6c 65 20 2a 70 46 64 20 3d 20 28 54  fsFile *pFd = (T
3b00: 65 73 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69  estvfsFile *)pFi
3b10: 6c 65 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  le;.  Testvfs *p
3b20: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70   = (Testvfs *)(p
3b30: 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61  Fd->pVfs->pAppDa
3b40: 74 61 29 3b 0a 0a 20 20 74 76 66 73 45 78 65 63  ta);..  tvfsExec
3b50: 54 63 6c 28 70 2c 20 22 78 53 68 6d 47 65 74 22  Tcl(p, "xShmGet"
3b60: 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  , .      Tcl_New
3b70: 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70  StringObj(pFd->p
3b80: 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c  Shm->zFile, -1),
3b90: 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20 30 0a   pFd->pShmId, 0.
3ba0: 20 20 29 3b 0a 20 20 74 76 66 73 52 65 73 75 6c    );.  tvfsResul
3bb0: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20  tCode(p, &rc);. 
3bc0: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
3bd0: 4f 4b 20 29 7b 0a 20 20 20 20 74 76 66 73 47 72  OK ){.    tvfsGr
3be0: 6f 77 42 75 66 66 65 72 28 70 46 64 2c 20 72 65  owBuffer(pFd, re
3bf0: 71 4d 61 70 53 69 7a 65 2c 20 70 4d 61 70 53 69  qMapSize, pMapSi
3c00: 7a 65 29 3b 0a 20 20 20 20 2a 70 70 20 3d 20 70  ze);.    *pp = p
3c10: 46 64 2d 3e 70 53 68 6d 2d 3e 61 3b 0a 20 20 7d  Fd->pShm->a;.  }
3c20: 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a  .  return rc;.}.
3c30: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
3c40: 53 68 6d 52 65 6c 65 61 73 65 28 73 71 6c 69 74  ShmRelease(sqlit
3c50: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 29 7b  e3_file *pFile){
3c60: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49  .  int rc = SQLI
3c70: 54 45 5f 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73  TE_OK;.  Testvfs
3c80: 46 69 6c 65 20 2a 70 46 64 20 3d 20 28 54 65 73  File *pFd = (Tes
3c90: 74 76 66 73 46 69 6c 65 20 2a 29 70 46 69 6c 65  tvfsFile *)pFile
3ca0: 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  ;.  Testvfs *p =
3cb0: 20 28 54 65 73 74 76 66 73 20 2a 29 28 70 46 64   (Testvfs *)(pFd
3cc0: 2d 3e 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61  ->pVfs->pAppData
3cd0: 29 3b 0a 0a 20 20 74 76 66 73 45 78 65 63 54 63  );..  tvfsExecTc
3ce0: 6c 28 70 2c 20 22 78 53 68 6d 52 65 6c 65 61 73  l(p, "xShmReleas
3cf0: 65 22 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e  e", .      Tcl_N
3d00: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d  ewStringObj(pFd-
3d10: 3e 70 53 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31  >pShm->zFile, -1
3d20: 29 2c 20 70 46 64 2d 3e 70 53 68 6d 49 64 2c 20  ), pFd->pShmId, 
3d30: 30 0a 20 20 29 3b 0a 20 20 74 76 66 73 52 65 73  0.  );.  tvfsRes
3d40: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b  ultCode(p, &rc);
3d50: 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ..  return rc;.}
3d60: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ..static int tvf
3d70: 73 53 68 6d 4c 6f 63 6b 28 0a 20 20 73 71 6c 69  sShmLock(.  sqli
3d80: 74 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c  te3_file *pFile,
3d90: 0a 20 20 69 6e 74 20 64 65 73 69 72 65 64 4c 6f  .  int desiredLo
3da0: 63 6b 2c 0a 20 20 69 6e 74 20 2a 67 6f 74 4c 6f  ck,.  int *gotLo
3db0: 63 6b 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d  ck.){.  int rc =
3dc0: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65   SQLITE_OK;.  Te
3dd0: 73 74 76 66 73 46 69 6c 65 20 2a 70 46 64 20 3d  stvfsFile *pFd =
3de0: 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a 29   (TestvfsFile *)
3df0: 70 46 69 6c 65 3b 0a 20 20 54 65 73 74 76 66 73  pFile;.  Testvfs
3e00: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
3e10: 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41 70  )(pFd->pVfs->pAp
3e20: 70 44 61 74 61 29 3b 0a 20 20 63 68 61 72 20 2a  pData);.  char *
3e30: 7a 4c 6f 63 6b 20 3d 20 22 22 3b 0a 0a 20 20 73  zLock = "";..  s
3e40: 77 69 74 63 68 28 20 64 65 73 69 72 65 64 4c 6f  witch( desiredLo
3e50: 63 6b 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53  ck ){.    case S
3e60: 51 4c 49 54 45 5f 53 48 4d 5f 52 45 41 44 3a 20  QLITE_SHM_READ: 
3e70: 20 20 20 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20          zLock = 
3e80: 22 52 45 41 44 22 3b 20 20 20 20 20 20 20 62 72  "READ";       br
3e90: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
3ea0: 4c 49 54 45 5f 53 48 4d 5f 57 52 49 54 45 3a 20  LITE_SHM_WRITE: 
3eb0: 20 20 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22         zLock = "
3ec0: 57 52 49 54 45 22 3b 20 20 20 20 20 20 62 72 65  WRITE";      bre
3ed0: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
3ee0: 49 54 45 5f 53 48 4d 5f 43 48 45 43 4b 50 4f 49  ITE_SHM_CHECKPOI
3ef0: 4e 54 3a 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 43  NT:   zLock = "C
3f00: 48 45 43 4b 50 4f 49 4e 54 22 3b 20 62 72 65 61  HECKPOINT"; brea
3f10: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49  k;.    case SQLI
3f20: 54 45 5f 53 48 4d 5f 52 45 43 4f 56 45 52 3a 20  TE_SHM_RECOVER: 
3f30: 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 52 45       zLock = "RE
3f40: 43 4f 56 45 52 22 3b 20 20 20 20 62 72 65 61 6b  COVER";    break
3f50: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  ;.    case SQLIT
3f60: 45 5f 53 48 4d 5f 50 45 4e 44 49 4e 47 3a 20 20  E_SHM_PENDING:  
3f70: 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 50 45 4e      zLock = "PEN
3f80: 44 49 4e 47 22 3b 20 20 20 20 62 72 65 61 6b 3b  DING";    break;
3f90: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
3fa0: 5f 53 48 4d 5f 55 4e 4c 4f 43 4b 3a 20 20 20 20  _SHM_UNLOCK:    
3fb0: 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 55 4e 4c 4f     zLock = "UNLO
3fc0: 43 4b 22 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a  CK";     break;.
3fd0: 20 20 7d 0a 20 20 74 76 66 73 45 78 65 63 54 63    }.  tvfsExecTc
3fe0: 6c 28 70 2c 20 22 78 53 68 6d 4c 6f 63 6b 22 2c  l(p, "xShmLock",
3ff0: 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53   .      Tcl_NewS
4000: 74 72 69 6e 67 4f 62 6a 28 70 46 64 2d 3e 70 53  tringObj(pFd->pS
4010: 68 6d 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20  hm->zFile, -1), 
4020: 70 46 64 2d 3e 70 53 68 6d 49 64 2c 0a 20 20 20  pFd->pShmId,.   
4030: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
4040: 4f 62 6a 28 7a 4c 6f 63 6b 2c 20 2d 31 29 0a 20  Obj(zLock, -1). 
4050: 20 29 3b 0a 20 20 74 76 66 73 52 65 73 75 6c 74   );.  tvfsResult
4060: 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20 20  Code(p, &rc);.  
4070: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
4080: 4b 20 29 7b 0a 20 20 20 20 2a 67 6f 74 4c 6f 63  K ){.    *gotLoc
4090: 6b 20 3d 20 64 65 73 69 72 65 64 4c 6f 63 6b 3b  k = desiredLock;
40a0: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 72  .  }..  return r
40b0: 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69  c;.}..static voi
40c0: 64 20 74 76 66 73 53 68 6d 42 61 72 72 69 65 72  d tvfsShmBarrier
40d0: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
40e0: 46 69 6c 65 29 7b 0a 20 20 69 6e 74 20 72 63 20  File){.  int rc 
40f0: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54  = SQLITE_OK;.  T
4100: 65 73 74 76 66 73 46 69 6c 65 20 2a 70 46 64 20  estvfsFile *pFd 
4110: 3d 20 28 54 65 73 74 76 66 73 46 69 6c 65 20 2a  = (TestvfsFile *
4120: 29 70 46 69 6c 65 3b 0a 20 20 54 65 73 74 76 66  )pFile;.  Testvf
4130: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
4140: 2a 29 28 70 46 64 2d 3e 70 56 66 73 2d 3e 70 41  *)(pFd->pVfs->pA
4150: 70 70 44 61 74 61 29 3b 0a 0a 20 20 74 76 66 73  ppData);..  tvfs
4160: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d  ExecTcl(p, "xShm
4170: 42 61 72 72 69 65 72 22 2c 20 0a 20 20 20 20 20  Barrier", .     
4180: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
4190: 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69  j(pFd->pShm->zFi
41a0: 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53  le, -1), pFd->pS
41b0: 68 6d 49 64 2c 20 30 0a 20 20 29 3b 0a 20 20 74  hmId, 0.  );.  t
41c0: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
41d0: 20 26 72 63 29 3b 0a 7d 0a 0a 73 74 61 74 69 63   &rc);.}..static
41e0: 20 69 6e 74 20 74 76 66 73 53 68 6d 43 6c 6f 73   int tvfsShmClos
41f0: 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  e(.  sqlite3_fil
4200: 65 20 2a 70 46 69 6c 65 2c 0a 20 20 69 6e 74 20  e *pFile,.  int 
4210: 64 65 6c 65 74 65 46 6c 61 67 0a 29 7b 0a 20 20  deleteFlag.){.  
4220: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  int rc = SQLITE_
4230: 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 46 69 6c  OK;.  TestvfsFil
4240: 65 20 2a 70 46 64 20 3d 20 28 54 65 73 74 76 66  e *pFd = (Testvf
4250: 73 46 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20  sFile *)pFile;. 
4260: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
4270: 65 73 74 76 66 73 20 2a 29 28 70 46 64 2d 3e 70  estvfs *)(pFd->p
4280: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a  Vfs->pAppData);.
4290: 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72 20    TestvfsBuffer 
42a0: 2a 70 42 75 66 66 65 72 20 3d 20 70 46 64 2d 3e  *pBuffer = pFd->
42b0: 70 53 68 6d 3b 0a 0a 20 20 61 73 73 65 72 74 28  pShm;..  assert(
42c0: 20 70 46 64 2d 3e 70 53 68 6d 49 64 20 26 26 20   pFd->pShmId && 
42d0: 70 46 64 2d 3e 70 53 68 6d 20 29 3b 0a 23 69 66  pFd->pShm );.#if
42e0: 20 30 0a 20 20 61 73 73 65 72 74 28 20 28 64 65   0.  assert( (de
42f0: 6c 65 74 65 46 6c 61 67 21 3d 30 29 3d 3d 28 70  leteFlag!=0)==(p
4300: 42 75 66 66 65 72 2d 3e 6e 52 65 66 3d 3d 31 29  Buffer->nRef==1)
4310: 20 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 74 76   );.#endif..  tv
4320: 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53  fsExecTcl(p, "xS
4330: 68 6d 43 6c 6f 73 65 22 2c 20 0a 20 20 20 20 20  hmClose", .     
4340: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
4350: 6a 28 70 46 64 2d 3e 70 53 68 6d 2d 3e 7a 46 69  j(pFd->pShm->zFi
4360: 6c 65 2c 20 2d 31 29 2c 20 70 46 64 2d 3e 70 53  le, -1), pFd->pS
4370: 68 6d 49 64 2c 20 30 0a 20 20 29 3b 0a 20 20 74  hmId, 0.  );.  t
4380: 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70 2c  vfsResultCode(p,
4390: 20 26 72 63 29 3b 0a 0a 20 20 70 42 75 66 66 65   &rc);..  pBuffe
43a0: 72 2d 3e 6e 52 65 66 2d 2d 3b 0a 20 20 69 66 28  r->nRef--;.  if(
43b0: 20 70 42 75 66 66 65 72 2d 3e 6e 52 65 66 3d 3d   pBuffer->nRef==
43c0: 30 20 29 7b 0a 20 20 20 20 54 65 73 74 76 66 73  0 ){.    Testvfs
43d0: 42 75 66 66 65 72 20 2a 2a 70 70 3b 0a 20 20 20  Buffer **pp;.   
43e0: 20 66 6f 72 28 70 70 3d 26 70 2d 3e 70 42 75 66   for(pp=&p->pBuf
43f0: 66 65 72 3b 20 2a 70 70 21 3d 70 42 75 66 66 65  fer; *pp!=pBuffe
4400: 72 3b 20 70 70 3d 26 28 28 2a 70 70 29 2d 3e 70  r; pp=&((*pp)->p
4410: 4e 65 78 74 29 29 3b 0a 20 20 20 20 2a 70 70 20  Next));.    *pp 
4420: 3d 20 28 2a 70 70 29 2d 3e 70 4e 65 78 74 3b 0a  = (*pp)->pNext;.
4430: 20 20 20 20 63 6b 66 72 65 65 28 28 63 68 61 72      ckfree((char
4440: 20 2a 29 70 42 75 66 66 65 72 2d 3e 61 29 3b 0a   *)pBuffer->a);.
4450: 20 20 20 20 63 6b 66 72 65 65 28 28 63 68 61 72      ckfree((char
4460: 20 2a 29 70 42 75 66 66 65 72 29 3b 0a 20 20 7d   *)pBuffer);.  }
4470: 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f  .  Tcl_DecrRefCo
4480: 75 6e 74 28 70 46 64 2d 3e 70 53 68 6d 49 64 29  unt(pFd->pShmId)
4490: 3b 0a 20 20 70 46 64 2d 3e 70 53 68 6d 49 64 20  ;.  pFd->pShmId 
44a0: 3d 20 30 3b 0a 20 20 70 46 64 2d 3e 70 53 68 6d  = 0;.  pFd->pShm
44b0: 20 3d 20 30 3b 0a 0a 20 20 72 65 74 75 72 6e 20   = 0;..  return 
44c0: 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  rc;.}..static in
44d0: 74 20 74 65 73 74 76 66 73 5f 6f 62 6a 5f 63 6d  t testvfs_obj_cm
44e0: 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20  d(.  ClientData 
44f0: 63 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  cd,.  Tcl_Interp
4500: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
4510: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
4520: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
4530: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
4540: 28 54 65 73 74 76 66 73 20 2a 29 63 64 3b 0a 0a  (Testvfs *)cd;..
4550: 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63    static const c
4560: 68 61 72 20 2a 43 4d 44 5f 73 74 72 73 5b 5d 20  har *CMD_strs[] 
4570: 3d 20 7b 20 22 73 68 6d 22 2c 20 22 64 65 6c 65  = { "shm", "dele
4580: 74 65 22 2c 20 30 20 7d 3b 0a 20 20 65 6e 75 6d  te", 0 };.  enum
4590: 20 44 42 5f 65 6e 75 6d 20 7b 20 43 4d 44 5f 53   DB_enum { CMD_S
45a0: 48 4d 2c 20 43 4d 44 5f 44 45 4c 45 54 45 20 7d  HM, CMD_DELETE }
45b0: 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 0a 20 20  ;.  int i;.  .  
45c0: 69 66 28 20 6f 62 6a 63 3c 32 20 29 7b 0a 20 20  if( objc<2 ){.  
45d0: 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72    Tcl_WrongNumAr
45e0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62  gs(interp, 1, ob
45f0: 6a 76 2c 20 22 53 55 42 43 4f 4d 4d 41 4e 44 20  jv, "SUBCOMMAND 
4600: 2e 2e 2e 22 29 3b 0a 20 20 20 20 72 65 74 75 72  ...");.    retur
4610: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
4620: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e  .  if( Tcl_GetIn
4630: 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  dexFromObj(inter
4640: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 43 4d 44 5f  p, objv[1], CMD_
4650: 73 74 72 73 2c 20 22 73 75 62 63 6f 6d 6d 61 6e  strs, "subcomman
4660: 64 22 2c 20 30 2c 20 26 69 29 20 29 7b 0a 20 20  d", 0, &i) ){.  
4670: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
4680: 4f 52 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 52 65  OR;.  }.  Tcl_Re
4690: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70  setResult(interp
46a0: 29 3b 0a 0a 20 20 73 77 69 74 63 68 28 20 28 65  );..  switch( (e
46b0: 6e 75 6d 20 44 42 5f 65 6e 75 6d 29 69 20 29 7b  num DB_enum)i ){
46c0: 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 53 48  .    case CMD_SH
46d0: 4d 3a 20 7b 0a 20 20 20 20 20 20 54 65 73 74 76  M: {.      Testv
46e0: 66 73 42 75 66 66 65 72 20 2a 70 42 75 66 66 65  fsBuffer *pBuffe
46f0: 72 3b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a  r;.      char *z
4700: 4e 61 6d 65 3b 0a 20 20 20 20 20 20 69 66 28 20  Name;.      if( 
4710: 6f 62 6a 63 21 3d 33 20 26 26 20 6f 62 6a 63 21  objc!=3 && objc!
4720: 3d 34 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63  =4 ){.        Tc
4730: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
4740: 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20  nterp, 2, objv, 
4750: 22 46 49 4c 45 20 3f 56 41 4c 55 45 3f 22 29 3b  "FILE ?VALUE?");
4760: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
4770: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20  TCL_ERROR;.     
4780: 20 7d 0a 20 20 20 20 20 20 7a 4e 61 6d 65 20 3d   }.      zName =
4790: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f   Tcl_GetString(o
47a0: 62 6a 76 5b 32 5d 29 3b 0a 20 20 20 20 20 20 66  bjv[2]);.      f
47b0: 6f 72 28 70 42 75 66 66 65 72 3d 70 2d 3e 70 42  or(pBuffer=p->pB
47c0: 75 66 66 65 72 3b 20 70 42 75 66 66 65 72 3b 20  uffer; pBuffer; 
47d0: 70 42 75 66 66 65 72 3d 70 42 75 66 66 65 72 2d  pBuffer=pBuffer-
47e0: 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 20 20 20  >pNext){.       
47f0: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 70   if( 0==strcmp(p
4800: 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 7a  Buffer->zFile, z
4810: 4e 61 6d 65 29 20 29 20 62 72 65 61 6b 3b 0a 20  Name) ) break;. 
4820: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28       }.      if(
4830: 20 21 70 42 75 66 66 65 72 20 29 7b 0a 20 20 20   !pBuffer ){.   
4840: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52       Tcl_AppendR
4850: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e  esult(interp, "n
4860: 6f 20 73 75 63 68 20 66 69 6c 65 3a 20 22 2c 20  o such file: ", 
4870: 7a 4e 61 6d 65 2c 20 30 29 3b 0a 20 20 20 20 20  zName, 0);.     
4880: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
4890: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
48a0: 20 20 20 69 66 28 20 6f 62 6a 63 3d 3d 34 20 29     if( objc==4 )
48b0: 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6e 3b  {.        int n;
48c0: 0a 20 20 20 20 20 20 20 20 75 38 20 2a 61 20 3d  .        u8 *a =
48d0: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61   Tcl_GetByteArra
48e0: 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d  yFromObj(objv[3]
48f0: 2c 20 26 6e 29 3b 0a 20 20 20 20 20 20 20 20 70  , &n);.        p
4900: 42 75 66 66 65 72 2d 3e 61 20 3d 20 28 75 38 20  Buffer->a = (u8 
4910: 2a 29 63 6b 72 65 61 6c 6c 6f 63 28 28 63 68 61  *)ckrealloc((cha
4920: 72 20 2a 29 70 42 75 66 66 65 72 2d 3e 61 2c 20  r *)pBuffer->a, 
4930: 6e 29 3b 0a 20 20 20 20 20 20 20 20 70 42 75 66  n);.        pBuf
4940: 66 65 72 2d 3e 6e 20 3d 20 6e 3b 0a 20 20 20 20  fer->n = n;.    
4950: 20 20 20 20 6d 65 6d 63 70 79 28 70 42 75 66 66      memcpy(pBuff
4960: 65 72 2d 3e 61 2c 20 61 2c 20 6e 29 3b 0a 20 20  er->a, a, n);.  
4970: 20 20 20 20 7d 0a 20 20 20 20 20 20 54 63 6c 5f      }.      Tcl_
4980: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
4990: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65  erp, Tcl_NewByte
49a0: 41 72 72 61 79 4f 62 6a 28 70 42 75 66 66 65 72  ArrayObj(pBuffer
49b0: 2d 3e 61 2c 20 70 42 75 66 66 65 72 2d 3e 6e 29  ->a, pBuffer->n)
49c0: 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a  );.      break;.
49d0: 20 20 20 20 7d 0a 20 20 20 20 63 61 73 65 20 43      }.    case C
49e0: 4d 44 5f 44 45 4c 45 54 45 3a 20 7b 0a 20 20 20  MD_DELETE: {.   
49f0: 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d     Tcl_DeleteCom
4a00: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 54 63 6c  mand(interp, Tcl
4a10: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
4a20: 30 5d 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61  0]));.      brea
4a30: 6b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20  k;.    }.  }..  
4a40: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
4a50: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 65  ..static void te
4a60: 73 74 76 66 73 5f 6f 62 6a 5f 64 65 6c 28 43 6c  stvfs_obj_del(Cl
4a70: 69 65 6e 74 44 61 74 61 20 63 64 29 7b 0a 20 20  ientData cd){.  
4a80: 69 6e 74 20 69 3b 0a 20 20 54 65 73 74 76 66 73  int i;.  Testvfs
4a90: 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a   *p = (Testvfs *
4aa0: 29 63 64 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20  )cd;.  for(i=0; 
4ab0: 69 3c 70 2d 3e 6e 53 63 72 69 70 74 3b 20 69 2b  i<p->nScript; i+
4ac0: 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72  +){.    Tcl_Decr
4ad0: 52 65 66 43 6f 75 6e 74 28 70 2d 3e 61 70 53 63  RefCount(p->apSc
4ae0: 72 69 70 74 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20  ript[i]);.  }.  
4af0: 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72 65  sqlite3_vfs_unre
4b00: 67 69 73 74 65 72 28 70 2d 3e 70 56 66 73 29 3b  gister(p->pVfs);
4b10: 0a 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20  .  ckfree((char 
4b20: 2a 29 70 2d 3e 70 56 66 73 29 3b 0a 20 20 63 6b  *)p->pVfs);.  ck
4b30: 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 29 3b  free((char *)p);
4b40: 0a 7d 0a 0a 23 64 65 66 69 6e 65 20 54 45 53 54  .}..#define TEST
4b50: 56 46 53 5f 4d 41 58 5f 41 52 47 53 20 31 32 0a  VFS_MAX_ARGS 12.
4b60: 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20 20 74  ./*.** Usage:  t
4b70: 65 73 74 76 66 73 20 3f 2d 6e 6f 73 68 6d 3f 20  estvfs ?-noshm? 
4b80: 56 46 53 4e 41 4d 45 20 53 43 52 49 50 54 0a 2a  VFSNAME SCRIPT.*
4b90: 2a 0a 2a 2a 20 54 68 69 73 20 63 6f 6d 6d 61 6e  *.** This comman
4ba0: 64 20 63 72 65 61 74 65 73 20 74 77 6f 20 74 68  d creates two th
4bb0: 69 6e 67 73 20 77 68 65 6e 20 69 74 20 69 73 20  ings when it is 
4bc0: 69 6e 76 6f 6b 65 64 3a 20 61 6e 20 53 51 4c 69  invoked: an SQLi
4bd0: 74 65 20 56 46 53 2c 20 61 6e 64 0a 2a 2a 20 61  te VFS, and.** a
4be0: 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 2e 20 42 6f   Tcl command. Bo
4bf0: 74 68 20 61 72 65 20 6e 61 6d 65 64 20 56 46 53  th are named VFS
4c00: 4e 41 4d 45 2e 20 54 68 65 20 56 46 53 20 69 73  NAME. The VFS is
4c10: 20 69 6e 73 74 61 6c 6c 65 64 2e 20 49 74 20 69   installed. It i
4c20: 73 20 6e 6f 74 0a 2a 2a 20 69 6e 73 74 61 6c 6c  s not.** install
4c30: 65 64 20 61 73 20 74 68 65 20 64 65 66 61 75 6c  ed as the defaul
4c40: 74 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 54 68 65  t VFS..**.** The
4c50: 20 56 46 53 20 70 61 73 73 65 73 20 61 6c 6c 20   VFS passes all 
4c60: 66 69 6c 65 20 49 2f 4f 20 63 61 6c 6c 73 20 74  file I/O calls t
4c70: 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 75 6e  hrough to the un
4c80: 64 65 72 6c 79 69 6e 67 20 56 46 53 2e 0a 2a 2a  derlying VFS..**
4c90: 0a 2a 2a 20 57 68 65 6e 65 76 65 72 20 6f 6e 65  .** Whenever one
4ca0: 20 6f 66 20 74 68 65 20 78 53 68 6d 53 69 7a 65   of the xShmSize
4cb0: 2c 20 78 53 68 6d 47 65 74 20 6f 72 20 78 53 68  , xShmGet or xSh
4cc0: 6d 52 65 6c 65 61 73 65 20 6d 65 74 68 6f 64 73  mRelease methods
4cd0: 20 6f 66 20 74 68 65 20 56 46 53 0a 2a 2a 20 61   of the VFS.** a
4ce0: 72 65 20 69 6e 76 6f 6b 65 64 2c 20 74 68 65 20  re invoked, the 
4cf0: 53 43 52 49 50 54 20 69 73 20 65 78 65 63 75 74  SCRIPT is execut
4d00: 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a  ed as follows:.*
4d10: 2a 0a 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53  *.**   SCRIPT xS
4d20: 68 6d 53 69 7a 65 20 20 20 20 46 49 4c 45 4e 41  hmSize    FILENA
4d30: 4d 45 20 49 44 0a 2a 2a 20 20 20 53 43 52 49 50  ME ID.**   SCRIP
4d40: 54 20 78 53 68 6d 47 65 74 20 20 20 20 20 46 49  T xShmGet     FI
4d50: 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a 20 20 20 53  LENAME ID.**   S
4d60: 43 52 49 50 54 20 78 53 68 6d 52 65 6c 65 61 73  CRIPT xShmReleas
4d70: 65 20 46 49 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a  e FILENAME ID.**
4d80: 0a 2a 2a 20 54 68 65 20 76 61 6c 75 65 20 72 65  .** The value re
4d90: 74 75 72 6e 65 64 20 62 79 20 74 68 65 20 69 6e  turned by the in
4da0: 76 6f 63 61 74 69 6f 6e 20 6f 66 20 53 43 52 49  vocation of SCRI
4db0: 50 54 20 61 62 6f 76 65 20 69 73 20 69 6e 74 65  PT above is inte
4dc0: 72 70 72 65 74 65 64 20 61 73 0a 2a 2a 20 61 6e  rpreted as.** an
4dd0: 20 53 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f   SQLite error co
4de0: 64 65 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20  de and returned 
4df0: 74 6f 20 53 51 4c 69 74 65 2e 20 45 69 74 68 65  to SQLite. Eithe
4e00: 72 20 61 20 73 79 6d 62 6f 6c 69 63 20 0a 2a 2a  r a symbolic .**
4e10: 20 22 53 51 4c 49 54 45 5f 4f 4b 22 20 6f 72 20   "SQLITE_OK" or 
4e20: 6e 75 6d 65 72 69 63 20 22 30 22 20 76 61 6c 75  numeric "0" valu
4e30: 65 20 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65  e may be returne
4e40: 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e  d..**.** The con
4e50: 74 65 6e 74 73 20 6f 66 20 74 68 65 20 73 68 61  tents of the sha
4e60: 72 65 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65  red-memory buffe
4e70: 72 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74  r associated wit
4e80: 68 20 61 20 67 69 76 65 6e 20 66 69 6c 65 0a 2a  h a given file.*
4e90: 2a 20 6d 61 79 20 62 65 20 72 65 61 64 20 61 6e  * may be read an
4ea0: 64 20 73 65 74 20 75 73 69 6e 67 20 74 68 65 20  d set using the 
4eb0: 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e  following comman
4ec0: 64 3a 0a 2a 2a 0a 2a 2a 20 20 20 56 46 53 4e 41  d:.**.**   VFSNA
4ed0: 4d 45 20 73 68 6d 20 46 49 4c 45 4e 41 4d 45 20  ME shm FILENAME 
4ee0: 3f 4e 45 57 56 41 4c 55 45 3f 0a 2a 2a 0a 2a 2a  ?NEWVALUE?.**.**
4ef0: 20 57 68 65 6e 20 74 68 65 20 78 53 68 6d 4c 6f   When the xShmLo
4f00: 63 6b 20 6d 65 74 68 6f 64 20 69 73 20 69 6e 76  ck method is inv
4f10: 6f 6b 65 64 20 62 79 20 53 51 4c 69 74 65 2c 20  oked by SQLite, 
4f20: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 63  the following sc
4f30: 72 69 70 74 20 69 73 0a 2a 2a 20 72 75 6e 3a 0a  ript is.** run:.
4f40: 2a 2a 0a 2a 2a 20 20 20 53 43 52 49 50 54 20 78  **.**   SCRIPT x
4f50: 53 68 6d 4c 6f 63 6b 20 20 20 20 46 49 4c 45 4e  ShmLock    FILEN
4f60: 41 4d 45 20 49 44 20 4c 4f 43 4b 0a 2a 2a 0a 2a  AME ID LOCK.**.*
4f70: 2a 20 77 68 65 72 65 20 4c 4f 43 4b 20 69 73 20  * where LOCK is 
4f80: 6f 6e 65 20 6f 66 20 22 55 4e 4c 4f 43 4b 22 2c  one of "UNLOCK",
4f90: 20 22 52 45 41 44 22 2c 20 22 52 45 41 44 5f 46   "READ", "READ_F
4fa0: 55 4c 4c 22 2c 20 22 57 52 49 54 45 22 2c 20 22  ULL", "WRITE", "
4fb0: 50 45 4e 44 49 4e 47 22 2c 0a 2a 2a 20 22 43 48  PENDING",.** "CH
4fc0: 45 43 4b 50 4f 49 4e 54 22 20 6f 72 20 22 52 45  ECKPOINT" or "RE
4fd0: 43 4f 56 45 52 22 2e 20 54 68 65 20 73 63 72 69  COVER". The scri
4fe0: 70 74 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e  pt should return
4ff0: 20 61 6e 20 53 51 4c 69 74 65 20 65 72 72 6f 72   an SQLite error
5000: 0a 2a 2a 20 63 6f 64 65 2e 0a 2a 2f 0a 73 74 61  .** code..*/.sta
5010: 74 69 63 20 69 6e 74 20 74 65 73 74 76 66 73 5f  tic int testvfs_
5020: 63 6d 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74  cmd(.  ClientDat
5030: 61 20 63 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  a cd,.  Tcl_Inte
5040: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
5050: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
5060: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
5070: 29 7b 0a 20 20 73 74 61 74 69 63 20 73 71 6c 69  ){.  static sqli
5080: 74 65 33 5f 76 66 73 20 74 76 66 73 5f 76 66 73  te3_vfs tvfs_vfs
5090: 20 3d 20 7b 0a 20 20 20 20 32 2c 20 20 20 20 20   = {.    2,     
50a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
50b0: 20 20 20 20 20 20 20 2f 2a 20 69 56 65 72 73 69         /* iVersi
50c0: 6f 6e 20 2a 2f 0a 20 20 20 20 73 69 7a 65 6f 66  on */.    sizeof
50d0: 28 54 65 73 74 76 66 73 46 69 6c 65 29 2c 20 20  (TestvfsFile),  
50e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 73 7a 4f            /* szO
50f0: 73 46 69 6c 65 20 2a 2f 0a 20 20 20 20 30 2c 20  sFile */.    0, 
5100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5110: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 6d 78             /* mx
5120: 50 61 74 68 6e 61 6d 65 20 2a 2f 0a 20 20 20 20  Pathname */.    
5130: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0,              
5140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
5150: 20 70 4e 65 78 74 20 2a 2f 0a 20 20 20 20 30 2c   pNext */.    0,
5160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5170: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 7a              /* z
5180: 4e 61 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20  Name */.    0,  
5190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
51a0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 41 70            /* pAp
51b0: 70 44 61 74 61 20 2a 2f 0a 20 20 20 20 74 76 66  pData */.    tvf
51c0: 73 4f 70 65 6e 2c 20 20 20 20 20 20 20 20 20 20  sOpen,          
51d0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 4f             /* xO
51e0: 70 65 6e 20 2a 2f 0a 20 20 20 20 74 76 66 73 44  pen */.    tvfsD
51f0: 65 6c 65 74 65 2c 20 20 20 20 20 20 20 20 20 20  elete,          
5200: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 65 6c           /* xDel
5210: 65 74 65 20 2a 2f 0a 20 20 20 20 74 76 66 73 41  ete */.    tvfsA
5220: 63 63 65 73 73 2c 20 20 20 20 20 20 20 20 20 20  ccess,          
5230: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 41 63 63           /* xAcc
5240: 65 73 73 20 2a 2f 0a 20 20 20 20 74 76 66 73 46  ess */.    tvfsF
5250: 75 6c 6c 50 61 74 68 6e 61 6d 65 2c 20 20 20 20  ullPathname,    
5260: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46 75 6c           /* xFul
5270: 6c 50 61 74 68 6e 61 6d 65 20 2a 2f 0a 23 69 66  lPathname */.#if
5280: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54  ndef SQLITE_OMIT
5290: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a  _LOAD_EXTENSION.
52a0: 20 20 20 20 74 76 66 73 44 6c 4f 70 65 6e 2c 20      tvfsDlOpen, 
52b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
52c0: 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f 0a    /* xDlOpen */.
52d0: 20 20 20 20 74 76 66 73 44 6c 45 72 72 6f 72 2c      tvfsDlError,
52e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
52f0: 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72 20 2a 2f    /* xDlError */
5300: 0a 20 20 20 20 74 76 66 73 44 6c 53 79 6d 2c 20  .    tvfsDlSym, 
5310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5320: 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20 2a 2f 0a     /* xDlSym */.
5330: 20 20 20 20 74 76 66 73 44 6c 43 6c 6f 73 65 2c      tvfsDlClose,
5340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5350: 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65 20 2a 2f    /* xDlClose */
5360: 0a 23 65 6c 73 65 0a 20 20 20 20 30 2c 20 20 20  .#else.    0,   
5370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5380: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 4f           /* xDlO
5390: 70 65 6e 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  pen */.    0,   
53a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
53b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 45           /* xDlE
53c0: 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c 20 20  rror */.    0,  
53d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
53e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c            /* xDl
53f0: 53 79 6d 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  Sym */.    0,   
5400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5410: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 43           /* xDlC
5420: 6c 6f 73 65 20 2a 2f 0a 23 65 6e 64 69 66 20 2f  lose */.#endif /
5430: 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f  * SQLITE_OMIT_LO
5440: 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a  AD_EXTENSION */.
5450: 20 20 20 20 74 76 66 73 52 61 6e 64 6f 6d 6e 65      tvfsRandomne
5460: 73 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  ss,             
5470: 20 20 2f 2a 20 78 52 61 6e 64 6f 6d 6e 65 73 73    /* xRandomness
5480: 20 2a 2f 0a 20 20 20 20 74 76 66 73 53 6c 65 65   */.    tvfsSlee
5490: 70 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  p,              
54a0: 20 20 20 20 20 20 2f 2a 20 78 53 6c 65 65 70 20        /* xSleep 
54b0: 2a 2f 0a 20 20 20 20 74 76 66 73 43 75 72 72 65  */.    tvfsCurre
54c0: 6e 74 54 69 6d 65 2c 20 20 20 20 20 20 20 20 20  ntTime,         
54d0: 20 20 20 20 20 2f 2a 20 78 43 75 72 72 65 6e 74       /* xCurrent
54e0: 54 69 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20  Time */.    0,  
54f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5500: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 47 65            /* xGe
5510: 74 4c 61 73 74 45 72 72 6f 72 20 2a 2f 0a 20 20  tLastError */.  
5520: 20 20 30 2c 0a 20 20 20 20 30 2c 0a 20 20 7d 3b    0,.    0,.  };
5530: 0a 0a 20 20 54 65 73 74 76 66 73 20 2a 70 3b 20  ..  Testvfs *p; 
5540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5550: 20 20 20 20 2f 2a 20 4e 65 77 20 6f 62 6a 65 63      /* New objec
5560: 74 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76  t */.  sqlite3_v
5570: 66 73 20 2a 70 56 66 73 3b 20 20 20 20 20 20 20  fs *pVfs;       
5580: 20 20 20 20 20 20 20 2f 2a 20 4e 65 77 20 56 46         /* New VF
5590: 53 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 56 66  S */.  char *zVf
55a0: 73 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53  s;.  Tcl_Obj *pS
55b0: 63 72 69 70 74 3b 0a 20 20 69 6e 74 20 6e 53 63  cript;.  int nSc
55c0: 72 69 70 74 3b 20 20 20 20 20 20 20 20 20 20 20  ript;           
55d0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
55e0: 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 69  er of elements i
55f0: 6e 20 6c 69 73 74 20 70 53 63 72 69 70 74 20 2a  n list pScript *
5600: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70  /.  Tcl_Obj **ap
5610: 53 63 72 69 70 74 3b 20 20 20 20 20 20 20 20 20  Script;         
5620: 20 20 20 20 2f 2a 20 41 72 72 61 79 20 6f 66 20      /* Array of 
5630: 70 53 63 72 69 70 74 20 65 6c 65 6d 65 6e 74 73  pScript elements
5640: 20 2a 2f 0a 20 20 69 6e 74 20 6e 42 79 74 65 3b   */.  int nByte;
5650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5660: 20 20 20 20 20 20 2f 2a 20 42 79 74 65 73 20 6f        /* Bytes o
5670: 66 20 73 70 61 63 65 20 74 6f 20 61 6c 6c 6f 63  f space to alloc
5680: 61 74 65 20 61 74 20 70 20 2a 2f 0a 20 20 69 6e  ate at p */.  in
5690: 74 20 69 3b 20 20 20 20 20 20 20 20 20 20 20 20  t i;            
56a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
56b0: 20 43 6f 75 6e 74 65 72 20 76 61 72 69 61 62 6c   Counter variabl
56c0: 65 20 2a 2f 0a 20 20 69 6e 74 20 69 73 4e 6f 73  e */.  int isNos
56d0: 68 6d 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20  hm = 0;         
56e0: 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 69         /* True i
56f0: 66 20 2d 6e 6f 73 68 6d 20 69 73 20 70 61 73 73  f -noshm is pass
5700: 65 64 20 2a 2f 0a 0a 20 20 69 66 28 20 6f 62 6a  ed */..  if( obj
5710: 63 3c 33 20 29 20 67 6f 74 6f 20 62 61 64 5f 61  c<3 ) goto bad_a
5720: 72 67 73 3b 0a 20 20 69 66 28 20 73 74 72 63 6d  rgs;.  if( strcm
5730: 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  p(Tcl_GetString(
5740: 6f 62 6a 76 5b 31 5d 29 2c 20 22 2d 6e 6f 73 68  objv[1]), "-nosh
5750: 6d 22 29 3d 3d 30 20 29 7b 0a 20 20 20 20 69 73  m")==0 ){.    is
5760: 4e 6f 73 68 6d 20 3d 20 31 3b 0a 20 20 7d 0a 20  Noshm = 1;.  }. 
5770: 20 69 66 28 20 6f 62 6a 63 21 3d 33 2b 69 73 4e   if( objc!=3+isN
5780: 6f 73 68 6d 20 29 20 67 6f 74 6f 20 62 61 64 5f  oshm ) goto bad_
5790: 61 72 67 73 3b 0a 20 20 7a 56 66 73 20 3d 20 54  args;.  zVfs = T
57a0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
57b0: 76 5b 69 73 4e 6f 73 68 6d 2b 31 5d 29 3b 0a 20  v[isNoshm+1]);. 
57c0: 20 70 53 63 72 69 70 74 20 3d 20 6f 62 6a 76 5b   pScript = objv[
57d0: 69 73 4e 6f 73 68 6d 2b 32 5d 3b 0a 0a 20 20 69  isNoshm+2];..  i
57e0: 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 4c  f( TCL_OK!=Tcl_L
57f0: 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74  istObjGetElement
5800: 73 28 69 6e 74 65 72 70 2c 20 70 53 63 72 69 70  s(interp, pScrip
5810: 74 2c 20 26 6e 53 63 72 69 70 74 2c 20 26 61 70  t, &nScript, &ap
5820: 53 63 72 69 70 74 29 20 29 7b 0a 20 20 20 20 72  Script) ){.    r
5830: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
5840: 0a 20 20 7d 0a 0a 20 20 6e 42 79 74 65 20 3d 20  .  }..  nByte = 
5850: 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 29 0a  sizeof(Testvfs).
5860: 20 20 20 20 20 20 20 20 2b 20 28 6e 53 63 72 69          + (nScri
5870: 70 74 2b 54 45 53 54 56 46 53 5f 4d 41 58 5f 41  pt+TESTVFS_MAX_A
5880: 52 47 53 29 2a 73 69 7a 65 6f 66 28 54 63 6c 5f  RGS)*sizeof(Tcl_
5890: 4f 62 6a 20 2a 29 20 0a 20 20 20 20 20 20 20 20  Obj *) .        
58a0: 2b 20 73 74 72 6c 65 6e 28 7a 56 66 73 29 2b 31  + strlen(zVfs)+1
58b0: 3b 0a 20 20 70 20 3d 20 28 54 65 73 74 76 66 73  ;.  p = (Testvfs
58c0: 20 2a 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65   *)ckalloc(nByte
58d0: 29 3b 0a 20 20 6d 65 6d 73 65 74 28 70 2c 20 30  );.  memset(p, 0
58e0: 2c 20 6e 42 79 74 65 29 3b 0a 0a 20 20 70 2d 3e  , nByte);..  p->
58f0: 70 50 61 72 65 6e 74 20 3d 20 73 71 6c 69 74 65  pParent = sqlite
5900: 33 5f 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a 20  3_vfs_find(0);. 
5910: 20 70 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74   p->interp = int
5920: 65 72 70 3b 0a 20 20 70 2d 3e 6e 53 63 72 69 70  erp;.  p->nScrip
5930: 74 20 3d 20 6e 53 63 72 69 70 74 3b 0a 20 20 70  t = nScript;.  p
5940: 2d 3e 61 70 53 63 72 69 70 74 20 3d 20 28 54 63  ->apScript = (Tc
5950: 6c 5f 4f 62 6a 20 2a 2a 29 26 70 5b 31 5d 3b 0a  l_Obj **)&p[1];.
5960: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 53 63    for(i=0; i<nSc
5970: 72 69 70 74 3b 20 69 2b 2b 29 7b 0a 20 20 20 20  ript; i++){.    
5980: 70 2d 3e 61 70 53 63 72 69 70 74 5b 69 5d 20 3d  p->apScript[i] =
5990: 20 61 70 53 63 72 69 70 74 5b 69 5d 3b 0a 20 20   apScript[i];.  
59a0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75    Tcl_IncrRefCou
59b0: 6e 74 28 70 2d 3e 61 70 53 63 72 69 70 74 5b 69  nt(p->apScript[i
59c0: 5d 29 3b 0a 20 20 7d 0a 20 20 70 2d 3e 7a 4e 61  ]);.  }.  p->zNa
59d0: 6d 65 20 3d 20 28 63 68 61 72 20 2a 29 26 70 2d  me = (char *)&p-
59e0: 3e 61 70 53 63 72 69 70 74 5b 6e 53 63 72 69 70  >apScript[nScrip
59f0: 74 2b 54 45 53 54 56 46 53 5f 4d 41 58 5f 41 52  t+TESTVFS_MAX_AR
5a00: 47 53 5d 3b 0a 20 20 73 74 72 63 70 79 28 70 2d  GS];.  strcpy(p-
5a10: 3e 7a 4e 61 6d 65 2c 20 7a 56 66 73 29 3b 0a 0a  >zName, zVfs);..
5a20: 20 20 70 56 66 73 20 3d 20 28 73 71 6c 69 74 65    pVfs = (sqlite
5a30: 33 5f 76 66 73 20 2a 29 63 6b 61 6c 6c 6f 63 28  3_vfs *)ckalloc(
5a40: 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76  sizeof(sqlite3_v
5a50: 66 73 29 29 3b 0a 20 20 6d 65 6d 63 70 79 28 70  fs));.  memcpy(p
5a60: 56 66 73 2c 20 26 74 76 66 73 5f 76 66 73 2c 20  Vfs, &tvfs_vfs, 
5a70: 73 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76  sizeof(sqlite3_v
5a80: 66 73 29 29 3b 0a 20 20 70 56 66 73 2d 3e 70 41  fs));.  pVfs->pA
5a90: 70 70 44 61 74 61 20 3d 20 28 76 6f 69 64 20 2a  ppData = (void *
5aa0: 29 70 3b 0a 20 20 70 56 66 73 2d 3e 7a 4e 61 6d  )p;.  pVfs->zNam
5ab0: 65 20 3d 20 70 2d 3e 7a 4e 61 6d 65 3b 0a 20 20  e = p->zName;.  
5ac0: 70 56 66 73 2d 3e 6d 78 50 61 74 68 6e 61 6d 65  pVfs->mxPathname
5ad0: 20 3d 20 70 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d   = p->pParent->m
5ae0: 78 50 61 74 68 6e 61 6d 65 3b 0a 20 20 70 56 66  xPathname;.  pVf
5af0: 73 2d 3e 73 7a 4f 73 46 69 6c 65 20 2b 3d 20 70  s->szOsFile += p
5b00: 2d 3e 70 50 61 72 65 6e 74 2d 3e 73 7a 4f 73 46  ->pParent->szOsF
5b10: 69 6c 65 3b 0a 20 20 70 2d 3e 70 56 66 73 20 3d  ile;.  p->pVfs =
5b20: 20 70 56 66 73 3b 0a 20 20 70 2d 3e 69 73 4e 6f   pVfs;.  p->isNo
5b30: 73 68 6d 20 3d 20 69 73 4e 6f 73 68 6d 3b 0a 0a  shm = isNoshm;..
5b40: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
5b50: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 7a  ommand(interp, z
5b60: 56 66 73 2c 20 74 65 73 74 76 66 73 5f 6f 62 6a  Vfs, testvfs_obj
5b70: 5f 63 6d 64 2c 20 70 2c 20 74 65 73 74 76 66 73  _cmd, p, testvfs
5b80: 5f 6f 62 6a 5f 64 65 6c 29 3b 0a 20 20 73 71 6c  _obj_del);.  sql
5b90: 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73 74 65  ite3_vfs_registe
5ba0: 72 28 70 56 66 73 2c 20 30 29 3b 0a 0a 20 20 72  r(pVfs, 0);..  r
5bb0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 20  eturn TCL_OK;.. 
5bc0: 62 61 64 5f 61 72 67 73 3a 0a 20 20 54 63 6c 5f  bad_args:.  Tcl_
5bd0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
5be0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f  erp, 1, objv, "?
5bf0: 2d 6e 6f 73 68 6d 3f 20 56 46 53 4e 41 4d 45 20  -noshm? VFSNAME 
5c00: 53 43 52 49 50 54 22 29 3b 0a 20 20 72 65 74 75  SCRIPT");.  retu
5c10: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a  rn TCL_ERROR;.}.
5c20: 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 76  .int Sqlitetestv
5c30: 66 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65  fs_Init(Tcl_Inte
5c40: 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 54  rp *interp){.  T
5c50: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d  cl_CreateObjComm
5c60: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 65 73  and(interp, "tes
5c70: 74 76 66 73 22 2c 20 74 65 73 74 76 66 73 5f 63  tvfs", testvfs_c
5c80: 6d 64 2c 20 30 2c 20 30 29 3b 0a 20 20 72 65 74  md, 0, 0);.  ret
5c90: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 23  urn TCL_OK;.}..#
5ca0: 65 6e 64 69 66 0a                                endif.