/ Hex Artifact Content
Login

Artifact 43ae46c9636a4d568d98b1e175e68487fb53a6c7:


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 74 76 66 73 5f  def struct tvfs_
0200: 66 69 6c 65 20 74 76 66 73 5f 66 69 6c 65 3b 0a  file tvfs_file;.
0210: 73 74 72 75 63 74 20 74 76 66 73 5f 66 69 6c 65  struct tvfs_file
0220: 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c   {.  sqlite3_fil
0230: 65 20 62 61 73 65 3b 0a 20 20 73 71 6c 69 74 65  e base;.  sqlite
0240: 33 5f 66 69 6c 65 20 2a 70 52 65 61 6c 3b 0a 7d  3_file *pReal;.}
0250: 3b 0a 0a 74 79 70 65 64 65 66 20 73 74 72 75 63  ;..typedef struc
0260: 74 20 54 65 73 74 76 66 73 20 54 65 73 74 76 66  t Testvfs Testvf
0270: 73 3b 0a 74 79 70 65 64 65 66 20 73 74 72 75 63  s;.typedef struc
0280: 74 20 54 65 73 74 76 66 73 53 68 6d 20 54 65 73  t TestvfsShm Tes
0290: 74 76 66 73 53 68 6d 3b 0a 74 79 70 65 64 65 66  tvfsShm;.typedef
02a0: 20 73 74 72 75 63 74 20 54 65 73 74 76 66 73 42   struct TestvfsB
02b0: 75 66 66 65 72 20 54 65 73 74 76 66 73 42 75 66  uffer TestvfsBuf
02c0: 66 65 72 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69  fer;../*.** An i
02d0: 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 69 73 20  nstance of this 
02e0: 73 74 72 75 63 74 75 72 65 20 69 73 20 61 6c 6c  structure is all
02f0: 6f 63 61 74 65 64 20 66 6f 72 20 65 61 63 68 20  ocated for each 
0300: 56 46 53 20 63 72 65 61 74 65 64 2e 20 54 68 65  VFS created. The
0310: 0a 2a 2a 20 73 71 6c 69 74 65 33 5f 76 66 73 2e  .** sqlite3_vfs.
0320: 70 41 70 70 44 61 74 61 20 66 69 65 6c 64 20 6f  pAppData field o
0330: 66 20 74 68 65 20 56 46 53 20 73 74 72 75 63 74  f the VFS struct
0340: 75 72 65 20 72 65 67 69 73 74 65 72 65 64 20 77  ure registered w
0350: 69 74 68 20 53 51 4c 69 74 65 0a 2a 2a 20 69 73  ith SQLite.** is
0360: 20 73 65 74 20 74 6f 20 70 6f 69 6e 74 20 74 6f   set to point to
0370: 20 69 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 54   it..*/.struct T
0380: 65 73 74 76 66 73 20 7b 0a 20 20 63 68 61 72 20  estvfs {.  char 
0390: 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 20 20 20 20  *zName;         
03a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 61             /* Na
03b0: 6d 65 20 6f 66 20 74 68 69 73 20 56 46 53 20 2a  me of this VFS *
03c0: 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20  /.  sqlite3_vfs 
03d0: 2a 70 50 61 72 65 6e 74 3b 20 20 20 20 20 20 20  *pParent;       
03e0: 20 20 20 20 2f 2a 20 54 68 65 20 56 46 53 20 74      /* The VFS t
03f0: 6f 20 75 73 65 20 66 6f 72 20 66 69 6c 65 20 49  o use for file I
0400: 4f 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76  O */.  sqlite3_v
0410: 66 73 20 2a 70 56 66 73 3b 20 20 20 20 20 20 20  fs *pVfs;       
0420: 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 74 65         /* The te
0430: 73 74 76 66 73 20 72 65 67 69 73 74 65 72 65 64  stvfs registered
0440: 20 77 69 74 68 20 53 51 4c 69 74 65 20 2a 2f 0a   with SQLite */.
0450: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
0460: 74 65 72 70 3b 20 20 20 20 20 20 20 20 20 20 20  terp;           
0470: 20 20 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72    /* Interpreter
0480: 20 74 6f 20 72 75 6e 20 73 63 72 69 70 74 20 69   to run script i
0490: 6e 20 2a 2f 0a 20 20 69 6e 74 20 6e 53 63 72 69  n */.  int nScri
04a0: 70 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  pt;             
04b0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72         /* Number
04c0: 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20   of elements in 
04d0: 61 72 72 61 79 20 61 70 53 63 72 69 70 74 20 2a  array apScript *
04e0: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 61 70  /.  Tcl_Obj **ap
04f0: 53 63 72 69 70 74 3b 20 20 20 20 20 20 20 20 20  Script;         
0500: 20 20 20 20 2f 2a 20 53 63 72 69 70 74 20 74 6f      /* Script to
0510: 20 65 78 65 63 75 74 65 20 2a 2f 0a 20 20 54 65   execute */.  Te
0520: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 42 75  stvfsBuffer *pBu
0530: 66 66 65 72 3b 20 20 20 20 20 20 20 20 20 2f 2a  ffer;         /*
0540: 20 4c 69 73 74 20 6f 66 20 73 68 61 72 65 64 20   List of shared 
0550: 62 75 66 66 65 72 73 20 2a 2f 0a 7d 3b 0a 0a 2f  buffers */.};../
0560: 2a 0a 2a 2a 20 41 20 73 68 61 72 65 64 2d 6d 65  *.** A shared-me
0570: 6d 6f 72 79 20 62 75 66 66 65 72 2e 0a 2a 2f 0a  mory buffer..*/.
0580: 73 74 72 75 63 74 20 54 65 73 74 76 66 73 42 75  struct TestvfsBu
0590: 66 66 65 72 20 7b 0a 20 20 63 68 61 72 20 2a 7a  ffer {.  char *z
05a0: 46 69 6c 65 3b 20 20 20 20 20 20 20 20 20 20 20  File;           
05b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 41 73 73 6f           /* Asso
05c0: 63 69 61 74 65 64 20 66 69 6c 65 20 6e 61 6d 65  ciated file name
05d0: 20 2a 2f 0a 20 20 69 6e 74 20 6e 3b 20 20 20 20   */.  int n;    
05e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
05f0: 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20 6f 66        /* Size of
0600: 20 61 6c 6c 6f 63 61 74 65 64 20 62 75 66 66 65   allocated buffe
0610: 72 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20  r in bytes */.  
0620: 75 38 20 2a 61 3b 20 20 20 20 20 20 20 20 20 20  u8 *a;          
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0640: 2f 2a 20 42 75 66 66 65 72 20 61 6c 6c 6f 63 61  /* Buffer alloca
0650: 74 65 64 20 75 73 69 6e 67 20 63 6b 61 6c 6c 6f  ted using ckallo
0660: 63 28 29 20 2a 2f 0a 20 20 69 6e 74 20 6e 52 65  c() */.  int nRe
0670: 66 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  f;              
0680: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62           /* Numb
0690: 65 72 20 6f 66 20 72 65 66 65 72 65 6e 63 65 73  er of references
06a0: 20 74 6f 20 74 68 69 73 20 6f 62 6a 65 63 74 20   to this object 
06b0: 2a 2f 0a 20 20 54 65 73 74 76 66 73 42 75 66 66  */.  TestvfsBuff
06c0: 65 72 20 2a 70 4e 65 78 74 3b 20 20 20 20 20 20  er *pNext;      
06d0: 20 20 20 20 20 2f 2a 20 4e 65 78 74 20 69 6e 20       /* Next in 
06e0: 6c 69 6e 6b 65 64 20 6c 69 73 74 20 6f 66 20 61  linked list of a
06f0: 6c 6c 20 62 75 66 66 65 72 73 20 2a 2f 0a 7d 3b  ll buffers */.};
0700: 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 68 61 72 65 64  ../*.** A shared
0710: 2d 6d 65 6d 6f 72 79 20 68 61 6e 64 6c 65 20 72  -memory handle r
0720: 65 74 75 72 6e 65 64 20 62 79 20 74 76 66 73 53  eturned by tvfsS
0730: 68 6d 4f 70 65 6e 28 29 2e 0a 2a 2f 0a 73 74 72  hmOpen()..*/.str
0740: 75 63 74 20 54 65 73 74 76 66 73 53 68 6d 20 7b  uct TestvfsShm {
0750: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 69 64 3b 20  .  Tcl_Obj *id; 
0760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0770: 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68     /* Name of th
0780: 69 73 20 68 61 6e 64 6c 65 20 2a 2f 0a 20 20 54  is handle */.  T
0790: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 42  estvfsBuffer *pB
07a0: 75 66 66 65 72 3b 20 20 20 20 20 20 20 20 20 2f  uffer;         /
07b0: 2a 20 55 6e 64 65 72 6c 79 69 6e 67 20 62 75 66  * Underlying buf
07c0: 66 65 72 20 2a 2f 0a 7d 3b 0a 0a 0a 23 64 65 66  fer */.};...#def
07d0: 69 6e 65 20 50 41 52 45 4e 54 56 46 53 28 78 29  ine PARENTVFS(x)
07e0: 20 28 28 28 54 65 73 74 76 66 73 20 2a 29 28 28   (((Testvfs *)((
07f0: 78 29 2d 3e 70 41 70 70 44 61 74 61 29 29 2d 3e  x)->pAppData))->
0800: 70 50 61 72 65 6e 74 29 0a 0a 0a 2f 2a 0a 2a 2a  pParent).../*.**
0810: 20 4d 65 74 68 6f 64 20 64 65 63 6c 61 72 61 74   Method declarat
0820: 69 6f 6e 73 20 66 6f 72 20 74 76 66 73 5f 66 69  ions for tvfs_fi
0830: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  le..*/.static in
0840: 74 20 74 76 66 73 43 6c 6f 73 65 28 73 71 6c 69  t tvfsClose(sqli
0850: 74 65 33 5f 66 69 6c 65 2a 29 3b 0a 73 74 61 74  te3_file*);.stat
0860: 69 63 20 69 6e 74 20 74 76 66 73 52 65 61 64 28  ic int tvfsRead(
0870: 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c 20 76  sqlite3_file*, v
0880: 6f 69 64 2a 2c 20 69 6e 74 20 69 41 6d 74 2c 20  oid*, int iAmt, 
0890: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 4f  sqlite3_int64 iO
08a0: 66 73 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  fst);.static int
08b0: 20 74 76 66 73 57 72 69 74 65 28 73 71 6c 69 74   tvfsWrite(sqlit
08c0: 65 33 5f 66 69 6c 65 2a 2c 63 6f 6e 73 74 20 76  e3_file*,const v
08d0: 6f 69 64 2a 2c 69 6e 74 20 69 41 6d 74 2c 20 73  oid*,int iAmt, s
08e0: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 4f 66  qlite3_int64 iOf
08f0: 73 74 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  st);.static int 
0900: 74 76 66 73 54 72 75 6e 63 61 74 65 28 73 71 6c  tvfsTruncate(sql
0910: 69 74 65 33 5f 66 69 6c 65 2a 2c 20 73 71 6c 69  ite3_file*, sqli
0920: 74 65 33 5f 69 6e 74 36 34 20 73 69 7a 65 29 3b  te3_int64 size);
0930: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
0940: 53 79 6e 63 28 73 71 6c 69 74 65 33 5f 66 69 6c  Sync(sqlite3_fil
0950: 65 2a 2c 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a  e*, int flags);.
0960: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46  static int tvfsF
0970: 69 6c 65 53 69 7a 65 28 73 71 6c 69 74 65 33 5f  ileSize(sqlite3_
0980: 66 69 6c 65 2a 2c 20 73 71 6c 69 74 65 33 5f 69  file*, sqlite3_i
0990: 6e 74 36 34 20 2a 70 53 69 7a 65 29 3b 0a 73 74  nt64 *pSize);.st
09a0: 61 74 69 63 20 69 6e 74 20 74 76 66 73 4c 6f 63  atic int tvfsLoc
09b0: 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a 2c  k(sqlite3_file*,
09c0: 20 69 6e 74 29 3b 0a 73 74 61 74 69 63 20 69 6e   int);.static in
09d0: 74 20 74 76 66 73 55 6e 6c 6f 63 6b 28 73 71 6c  t tvfsUnlock(sql
09e0: 69 74 65 33 5f 66 69 6c 65 2a 2c 20 69 6e 74 29  ite3_file*, int)
09f0: 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ;.static int tvf
0a00: 73 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f  sCheckReservedLo
0a10: 63 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  ck(sqlite3_file*
0a20: 2c 20 69 6e 74 20 2a 29 3b 0a 73 74 61 74 69 63  , int *);.static
0a30: 20 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f 6e   int tvfsFileCon
0a40: 74 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c  trol(sqlite3_fil
0a50: 65 2a 2c 20 69 6e 74 20 6f 70 2c 20 76 6f 69 64  e*, int op, void
0a60: 20 2a 70 41 72 67 29 3b 0a 73 74 61 74 69 63 20   *pArg);.static 
0a70: 69 6e 74 20 74 76 66 73 53 65 63 74 6f 72 53 69  int tvfsSectorSi
0a80: 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 2a  ze(sqlite3_file*
0a90: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
0aa0: 66 73 44 65 76 69 63 65 43 68 61 72 61 63 74 65  fsDeviceCharacte
0ab0: 72 69 73 74 69 63 73 28 73 71 6c 69 74 65 33 5f  ristics(sqlite3_
0ac0: 66 69 6c 65 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 4d  file*);../*.** M
0ad0: 65 74 68 6f 64 20 64 65 63 6c 61 72 61 74 69 6f  ethod declaratio
0ae0: 6e 73 20 66 6f 72 20 74 76 66 73 5f 76 66 73 2e  ns for tvfs_vfs.
0af0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
0b00: 76 66 73 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f  vfsOpen(sqlite3_
0b10: 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72  vfs*, const char
0b20: 20 2a 2c 20 73 71 6c 69 74 65 33 5f 66 69 6c 65   *, sqlite3_file
0b30: 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b  *, int , int *);
0b40: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
0b50: 44 65 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76  Delete(sqlite3_v
0b60: 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  fs*, const char 
0b70: 2a 7a 4e 61 6d 65 2c 20 69 6e 74 20 73 79 6e 63  *zName, int sync
0b80: 44 69 72 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  Dir);.static int
0b90: 20 74 76 66 73 41 63 63 65 73 73 28 73 71 6c 69   tvfsAccess(sqli
0ba0: 74 65 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20  te3_vfs*, const 
0bb0: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74  char *zName, int
0bc0: 20 66 6c 61 67 73 2c 20 69 6e 74 20 2a 29 3b 0a   flags, int *);.
0bd0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 46  static int tvfsF
0be0: 75 6c 6c 50 61 74 68 6e 61 6d 65 28 73 71 6c 69  ullPathname(sqli
0bf0: 74 65 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20  te3_vfs*, const 
0c00: 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 69 6e 74  char *zName, int
0c10: 2c 20 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a 23  , char *zOut);.#
0c20: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
0c30: 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f  IT_LOAD_EXTENSIO
0c40: 4e 0a 73 74 61 74 69 63 20 76 6f 69 64 20 2a 74  N.static void *t
0c50: 76 66 73 44 6c 4f 70 65 6e 28 73 71 6c 69 74 65  vfsDlOpen(sqlite
0c60: 33 5f 76 66 73 2a 2c 20 63 6f 6e 73 74 20 63 68  3_vfs*, const ch
0c70: 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a  ar *zFilename);.
0c80: 73 74 61 74 69 63 20 76 6f 69 64 20 74 76 66 73  static void tvfs
0c90: 44 6c 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f  DlError(sqlite3_
0ca0: 76 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74 65 2c  vfs*, int nByte,
0cb0: 20 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 29 3b   char *zErrMsg);
0cc0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 28 2a 74  .static void (*t
0cd0: 76 66 73 44 6c 53 79 6d 28 73 71 6c 69 74 65 33  vfsDlSym(sqlite3
0ce0: 5f 76 66 73 2a 2c 76 6f 69 64 2a 2c 20 63 6f 6e  _vfs*,void*, con
0cf0: 73 74 20 63 68 61 72 20 2a 7a 53 79 6d 62 6f 6c  st char *zSymbol
0d00: 29 29 28 76 6f 69 64 29 3b 0a 73 74 61 74 69 63  ))(void);.static
0d10: 20 76 6f 69 64 20 74 76 66 73 44 6c 43 6c 6f 73   void tvfsDlClos
0d20: 65 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20  e(sqlite3_vfs*, 
0d30: 76 6f 69 64 2a 29 3b 0a 23 65 6e 64 69 66 20 2f  void*);.#endif /
0d40: 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f  * SQLITE_OMIT_LO
0d50: 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a  AD_EXTENSION */.
0d60: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52  static int tvfsR
0d70: 61 6e 64 6f 6d 6e 65 73 73 28 73 71 6c 69 74 65  andomness(sqlite
0d80: 33 5f 76 66 73 2a 2c 20 69 6e 74 20 6e 42 79 74  3_vfs*, int nByt
0d90: 65 2c 20 63 68 61 72 20 2a 7a 4f 75 74 29 3b 0a  e, char *zOut);.
0da0: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53  static int tvfsS
0db0: 6c 65 65 70 28 73 71 6c 69 74 65 33 5f 76 66 73  leep(sqlite3_vfs
0dc0: 2a 2c 20 69 6e 74 20 6d 69 63 72 6f 73 65 63 6f  *, int microseco
0dd0: 6e 64 73 29 3b 0a 73 74 61 74 69 63 20 69 6e 74  nds);.static int
0de0: 20 74 76 66 73 43 75 72 72 65 6e 74 54 69 6d 65   tvfsCurrentTime
0df0: 28 73 71 6c 69 74 65 33 5f 76 66 73 2a 2c 20 64  (sqlite3_vfs*, d
0e00: 6f 75 62 6c 65 2a 29 3b 0a 0a 73 74 61 74 69 63  ouble*);..static
0e10: 20 69 6e 74 20 74 76 66 73 53 68 6d 4f 70 65 6e   int tvfsShmOpen
0e20: 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 2c 20  (sqlite3_vfs *, 
0e30: 63 6f 6e 73 74 20 63 68 61 72 20 2a 2c 20 73 71  const char *, sq
0e40: 6c 69 74 65 33 5f 73 68 6d 20 2a 2a 29 3b 0a 73  lite3_shm **);.s
0e50: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68  tatic int tvfsSh
0e60: 6d 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 76 66  mSize(sqlite3_vf
0e70: 73 2a 2c 20 73 71 6c 69 74 65 33 5f 73 68 6d 20  s*, sqlite3_shm 
0e80: 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 20 2a 29 3b  *, int , int *);
0e90: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
0ea0: 53 68 6d 47 65 74 28 73 71 6c 69 74 65 33 5f 76  ShmGet(sqlite3_v
0eb0: 66 73 2a 2c 20 73 71 6c 69 74 65 33 5f 73 68 6d  fs*, sqlite3_shm
0ec0: 20 2a 2c 20 69 6e 74 20 2c 20 69 6e 74 20 2a 2c   *, int , int *,
0ed0: 20 76 6f 69 64 20 2a 2a 29 3b 0a 73 74 61 74 69   void **);.stati
0ee0: 63 20 69 6e 74 20 74 76 66 73 53 68 6d 52 65 6c  c int tvfsShmRel
0ef0: 65 61 73 65 28 73 71 6c 69 74 65 33 5f 76 66 73  ease(sqlite3_vfs
0f00: 2a 2c 20 73 71 6c 69 74 65 33 5f 73 68 6d 20 2a  *, sqlite3_shm *
0f10: 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  );.static int tv
0f20: 66 73 53 68 6d 4c 6f 63 6b 28 73 71 6c 69 74 65  fsShmLock(sqlite
0f30: 33 5f 76 66 73 2a 2c 20 73 71 6c 69 74 65 33 5f  3_vfs*, sqlite3_
0f40: 73 68 6d 20 2a 2c 20 69 6e 74 20 2c 20 69 6e 74  shm *, int , int
0f50: 20 2a 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20   *);.static int 
0f60: 74 76 66 73 53 68 6d 43 6c 6f 73 65 28 73 71 6c  tvfsShmClose(sql
0f70: 69 74 65 33 5f 76 66 73 2a 2c 20 73 71 6c 69 74  ite3_vfs*, sqlit
0f80: 65 33 5f 73 68 6d 20 2a 2c 20 69 6e 74 29 3b 0a  e3_shm *, int);.
0f90: 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f  .static sqlite3_
0fa0: 69 6f 5f 6d 65 74 68 6f 64 73 20 74 76 66 73 5f  io_methods tvfs_
0fb0: 69 6f 5f 6d 65 74 68 6f 64 73 20 3d 20 7b 0a 20  io_methods = {. 
0fc0: 20 31 2c 20 20 20 20 20 20 20 20 20 20 20 20 20   1,             
0fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
0fe0: 2a 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a 20 20  * iVersion */.  
0ff0: 74 76 66 73 43 6c 6f 73 65 2c 20 20 20 20 20 20  tvfsClose,      
1000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1010: 2f 2a 20 78 43 6c 6f 73 65 20 2a 2f 0a 20 20 74  /* xClose */.  t
1020: 76 66 73 52 65 61 64 2c 20 20 20 20 20 20 20 20  vfsRead,        
1030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
1040: 2a 20 78 52 65 61 64 20 2a 2f 0a 20 20 74 76 66  * xRead */.  tvf
1050: 73 57 72 69 74 65 2c 20 20 20 20 20 20 20 20 20  sWrite,         
1060: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
1070: 78 57 72 69 74 65 20 2a 2f 0a 20 20 74 76 66 73  xWrite */.  tvfs
1080: 54 72 75 6e 63 61 74 65 2c 20 20 20 20 20 20 20  Truncate,       
1090: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
10a0: 54 72 75 6e 63 61 74 65 20 2a 2f 0a 20 20 74 76  Truncate */.  tv
10b0: 66 73 53 79 6e 63 2c 20 20 20 20 20 20 20 20 20  fsSync,         
10c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
10d0: 20 78 53 79 6e 63 20 2a 2f 0a 20 20 74 76 66 73   xSync */.  tvfs
10e0: 46 69 6c 65 53 69 7a 65 2c 20 20 20 20 20 20 20  FileSize,       
10f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
1100: 46 69 6c 65 53 69 7a 65 20 2a 2f 0a 20 20 74 76  FileSize */.  tv
1110: 66 73 4c 6f 63 6b 2c 20 20 20 20 20 20 20 20 20  fsLock,         
1120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1130: 20 78 4c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73   xLock */.  tvfs
1140: 55 6e 6c 6f 63 6b 2c 20 20 20 20 20 20 20 20 20  Unlock,         
1150: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
1160: 55 6e 6c 6f 63 6b 20 2a 2f 0a 20 20 74 76 66 73  Unlock */.  tvfs
1170: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63  CheckReservedLoc
1180: 6b 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78  k,          /* x
1190: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63  CheckReservedLoc
11a0: 6b 20 2a 2f 0a 20 20 74 76 66 73 46 69 6c 65 43  k */.  tvfsFileC
11b0: 6f 6e 74 72 6f 6c 2c 20 20 20 20 20 20 20 20 20  ontrol,         
11c0: 20 20 20 20 20 20 20 2f 2a 20 78 46 69 6c 65 43         /* xFileC
11d0: 6f 6e 74 72 6f 6c 20 2a 2f 0a 20 20 74 76 66 73  ontrol */.  tvfs
11e0: 53 65 63 74 6f 72 53 69 7a 65 2c 20 20 20 20 20  SectorSize,     
11f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
1200: 53 65 63 74 6f 72 53 69 7a 65 20 2a 2f 0a 20 20  SectorSize */.  
1210: 74 76 66 73 44 65 76 69 63 65 43 68 61 72 61 63  tvfsDeviceCharac
1220: 74 65 72 69 73 74 69 63 73 20 20 20 20 20 20 20  teristics       
1230: 2f 2a 20 78 44 65 76 69 63 65 43 68 61 72 61 63  /* xDeviceCharac
1240: 74 65 72 69 73 74 69 63 73 20 2a 2f 0a 7d 3b 0a  teristics */.};.
1250: 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61 6e 20  ./*.** Close an 
1260: 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74  tvfs-file..*/.st
1270: 61 74 69 63 20 69 6e 74 20 74 76 66 73 43 6c 6f  atic int tvfsClo
1280: 73 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  se(sqlite3_file 
1290: 2a 70 46 69 6c 65 29 7b 0a 20 20 74 76 66 73 5f  *pFile){.  tvfs_
12a0: 66 69 6c 65 20 2a 70 20 3d 20 28 74 76 66 73 5f  file *p = (tvfs_
12b0: 66 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20  file *)pFile;.  
12c0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
12d0: 43 6c 6f 73 65 28 70 2d 3e 70 52 65 61 6c 29 3b  Close(p->pReal);
12e0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 61 64 20 64  .}../*.** Read d
12f0: 61 74 61 20 66 72 6f 6d 20 61 6e 20 74 76 66 73  ata from an tvfs
1300: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
1310: 20 69 6e 74 20 74 76 66 73 52 65 61 64 28 0a 20   int tvfsRead(. 
1320: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
1330: 46 69 6c 65 2c 20 0a 20 20 76 6f 69 64 20 2a 7a  File, .  void *z
1340: 42 75 66 2c 20 0a 20 20 69 6e 74 20 69 41 6d 74  Buf, .  int iAmt
1350: 2c 20 0a 20 20 73 71 6c 69 74 65 5f 69 6e 74 36  , .  sqlite_int6
1360: 34 20 69 4f 66 73 74 0a 29 7b 0a 20 20 74 76 66  4 iOfst.){.  tvf
1370: 73 5f 66 69 6c 65 20 2a 70 20 3d 20 28 74 76 66  s_file *p = (tvf
1380: 73 5f 66 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a  s_file *)pFile;.
1390: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
13a0: 4f 73 52 65 61 64 28 70 2d 3e 70 52 65 61 6c 2c  OsRead(p->pReal,
13b0: 20 7a 42 75 66 2c 20 69 41 6d 74 2c 20 69 4f 66   zBuf, iAmt, iOf
13c0: 73 74 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 72  st);.}../*.** Wr
13d0: 69 74 65 20 64 61 74 61 20 74 6f 20 61 6e 20 74  ite data to an t
13e0: 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  vfs-file..*/.sta
13f0: 74 69 63 20 69 6e 74 20 74 76 66 73 57 72 69 74  tic int tvfsWrit
1400: 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  e(.  sqlite3_fil
1410: 65 20 2a 70 46 69 6c 65 2c 20 0a 20 20 63 6f 6e  e *pFile, .  con
1420: 73 74 20 76 6f 69 64 20 2a 7a 42 75 66 2c 20 0a  st void *zBuf, .
1430: 20 20 69 6e 74 20 69 41 6d 74 2c 20 0a 20 20 73    int iAmt, .  s
1440: 71 6c 69 74 65 5f 69 6e 74 36 34 20 69 4f 66 73  qlite_int64 iOfs
1450: 74 0a 29 7b 0a 20 20 74 76 66 73 5f 66 69 6c 65  t.){.  tvfs_file
1460: 20 2a 70 20 3d 20 28 74 76 66 73 5f 66 69 6c 65   *p = (tvfs_file
1470: 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75   *)pFile;.  retu
1480: 72 6e 20 73 71 6c 69 74 65 33 4f 73 57 72 69 74  rn sqlite3OsWrit
1490: 65 28 70 2d 3e 70 52 65 61 6c 2c 20 7a 42 75 66  e(p->pReal, zBuf
14a0: 2c 20 69 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a  , iAmt, iOfst);.
14b0: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 75 6e 63 61 74  }../*.** Truncat
14c0: 65 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a  e an tvfs-file..
14d0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
14e0: 66 73 54 72 75 6e 63 61 74 65 28 73 71 6c 69 74  fsTruncate(sqlit
14f0: 65 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20  e3_file *pFile, 
1500: 73 71 6c 69 74 65 5f 69 6e 74 36 34 20 73 69 7a  sqlite_int64 siz
1510: 65 29 7b 0a 20 20 74 76 66 73 5f 66 69 6c 65 20  e){.  tvfs_file 
1520: 2a 70 20 3d 20 28 74 76 66 73 5f 66 69 6c 65 20  *p = (tvfs_file 
1530: 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75 72  *)pFile;.  retur
1540: 6e 20 73 71 6c 69 74 65 33 4f 73 54 72 75 6e 63  n sqlite3OsTrunc
1550: 61 74 65 28 70 2d 3e 70 52 65 61 6c 2c 20 73 69  ate(p->pReal, si
1560: 7a 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 79  ze);.}../*.** Sy
1570: 6e 63 20 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e  nc an tvfs-file.
1580: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
1590: 76 66 73 53 79 6e 63 28 73 71 6c 69 74 65 33 5f  vfsSync(sqlite3_
15a0: 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74  file *pFile, int
15b0: 20 66 6c 61 67 73 29 7b 0a 20 20 74 76 66 73 5f   flags){.  tvfs_
15c0: 66 69 6c 65 20 2a 70 20 3d 20 28 74 76 66 73 5f  file *p = (tvfs_
15d0: 66 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20 20  file *)pFile;.  
15e0: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
15f0: 53 79 6e 63 28 70 2d 3e 70 52 65 61 6c 2c 20 66  Sync(p->pReal, f
1600: 6c 61 67 73 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  lags);.}../*.** 
1610: 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65  Return the curre
1620: 6e 74 20 66 69 6c 65 2d 73 69 7a 65 20 6f 66 20  nt file-size of 
1630: 61 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f  an tvfs-file..*/
1640: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
1650: 46 69 6c 65 53 69 7a 65 28 73 71 6c 69 74 65 33  FileSize(sqlite3
1660: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 73 71  _file *pFile, sq
1670: 6c 69 74 65 5f 69 6e 74 36 34 20 2a 70 53 69 7a  lite_int64 *pSiz
1680: 65 29 7b 0a 20 20 74 76 66 73 5f 66 69 6c 65 20  e){.  tvfs_file 
1690: 2a 70 20 3d 20 28 74 76 66 73 5f 66 69 6c 65 20  *p = (tvfs_file 
16a0: 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75 72  *)pFile;.  retur
16b0: 6e 20 73 71 6c 69 74 65 33 4f 73 46 69 6c 65 53  n sqlite3OsFileS
16c0: 69 7a 65 28 70 2d 3e 70 52 65 61 6c 2c 20 70 53  ize(p->pReal, pS
16d0: 69 7a 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4c  ize);.}../*.** L
16e0: 6f 63 6b 20 61 6e 20 74 76 66 73 2d 66 69 6c 65  ock an tvfs-file
16f0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
1700: 74 76 66 73 4c 6f 63 6b 28 73 71 6c 69 74 65 33  tvfsLock(sqlite3
1710: 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 20 69 6e  _file *pFile, in
1720: 74 20 65 4c 6f 63 6b 29 7b 0a 20 20 74 76 66 73  t eLock){.  tvfs
1730: 5f 66 69 6c 65 20 2a 70 20 3d 20 28 74 76 66 73  _file *p = (tvfs
1740: 5f 66 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20  _file *)pFile;. 
1750: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
1760: 73 4c 6f 63 6b 28 70 2d 3e 70 52 65 61 6c 2c 20  sLock(p->pReal, 
1770: 65 4c 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  eLock);.}../*.**
1780: 20 55 6e 6c 6f 63 6b 20 61 6e 20 74 76 66 73 2d   Unlock an tvfs-
1790: 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  file..*/.static 
17a0: 69 6e 74 20 74 76 66 73 55 6e 6c 6f 63 6b 28 73  int tvfsUnlock(s
17b0: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
17c0: 6c 65 2c 20 69 6e 74 20 65 4c 6f 63 6b 29 7b 0a  le, int eLock){.
17d0: 20 20 74 76 66 73 5f 66 69 6c 65 20 2a 70 20 3d    tvfs_file *p =
17e0: 20 28 74 76 66 73 5f 66 69 6c 65 20 2a 29 70 46   (tvfs_file *)pF
17f0: 69 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20 73 71  ile;.  return sq
1800: 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 70 2d  lite3OsUnlock(p-
1810: 3e 70 52 65 61 6c 2c 20 65 4c 6f 63 6b 29 3b 0a  >pReal, eLock);.
1820: 7d 0a 0a 2f 2a 0a 2a 2a 20 43 68 65 63 6b 20 69  }../*.** Check i
1830: 66 20 61 6e 6f 74 68 65 72 20 66 69 6c 65 2d 68  f another file-h
1840: 61 6e 64 6c 65 20 68 6f 6c 64 73 20 61 20 52 45  andle holds a RE
1850: 53 45 52 56 45 44 20 6c 6f 63 6b 20 6f 6e 20 61  SERVED lock on a
1860: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
1870: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 43  static int tvfsC
1880: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
1890: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
18a0: 46 69 6c 65 2c 20 69 6e 74 20 2a 70 52 65 73 4f  File, int *pResO
18b0: 75 74 29 7b 0a 20 20 74 76 66 73 5f 66 69 6c 65  ut){.  tvfs_file
18c0: 20 2a 70 20 3d 20 28 74 76 66 73 5f 66 69 6c 65   *p = (tvfs_file
18d0: 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75   *)pFile;.  retu
18e0: 72 6e 20 73 71 6c 69 74 65 33 4f 73 43 68 65 63  rn sqlite3OsChec
18f0: 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 70 2d  kReservedLock(p-
1900: 3e 70 52 65 61 6c 2c 20 70 52 65 73 4f 75 74 29  >pReal, pResOut)
1910: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6c 65 20  ;.}../*.** File 
1920: 63 6f 6e 74 72 6f 6c 20 6d 65 74 68 6f 64 2e 20  control method. 
1930: 46 6f 72 20 63 75 73 74 6f 6d 20 6f 70 65 72 61  For custom opera
1940: 74 69 6f 6e 73 20 6f 6e 20 61 6e 20 74 76 66 73  tions on an tvfs
1950: 2d 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  -file..*/.static
1960: 20 69 6e 74 20 74 76 66 73 46 69 6c 65 43 6f 6e   int tvfsFileCon
1970: 74 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c  trol(sqlite3_fil
1980: 65 20 2a 70 46 69 6c 65 2c 20 69 6e 74 20 6f 70  e *pFile, int op
1990: 2c 20 76 6f 69 64 20 2a 70 41 72 67 29 7b 0a 20  , void *pArg){. 
19a0: 20 74 76 66 73 5f 66 69 6c 65 20 2a 70 20 3d 20   tvfs_file *p = 
19b0: 28 74 76 66 73 5f 66 69 6c 65 20 2a 29 70 46 69  (tvfs_file *)pFi
19c0: 6c 65 3b 0a 20 20 72 65 74 75 72 6e 20 73 71 6c  le;.  return sql
19d0: 69 74 65 33 4f 73 46 69 6c 65 43 6f 6e 74 72 6f  ite3OsFileContro
19e0: 6c 28 70 2d 3e 70 52 65 61 6c 2c 20 6f 70 2c 20  l(p->pReal, op, 
19f0: 70 41 72 67 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  pArg);.}../*.** 
1a00: 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 74 6f  Return the secto
1a10: 72 2d 73 69 7a 65 20 69 6e 20 62 79 74 65 73 20  r-size in bytes 
1a20: 66 6f 72 20 61 6e 20 74 76 66 73 2d 66 69 6c 65  for an tvfs-file
1a30: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
1a40: 74 76 66 73 53 65 63 74 6f 72 53 69 7a 65 28 73  tvfsSectorSize(s
1a50: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 46 69  qlite3_file *pFi
1a60: 6c 65 29 7b 0a 20 20 74 76 66 73 5f 66 69 6c 65  le){.  tvfs_file
1a70: 20 2a 70 20 3d 20 28 74 76 66 73 5f 66 69 6c 65   *p = (tvfs_file
1a80: 20 2a 29 70 46 69 6c 65 3b 0a 20 20 72 65 74 75   *)pFile;.  retu
1a90: 72 6e 20 73 71 6c 69 74 65 33 4f 73 53 65 63 74  rn sqlite3OsSect
1aa0: 6f 72 53 69 7a 65 28 70 2d 3e 70 52 65 61 6c 29  orSize(p->pReal)
1ab0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
1ac0: 6e 20 74 68 65 20 64 65 76 69 63 65 20 63 68 61  n the device cha
1ad0: 72 61 63 74 65 72 69 73 74 69 63 20 66 6c 61 67  racteristic flag
1ae0: 73 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 61  s supported by a
1af0: 6e 20 74 76 66 73 2d 66 69 6c 65 2e 0a 2a 2f 0a  n tvfs-file..*/.
1b00: 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 44  static int tvfsD
1b10: 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73  eviceCharacteris
1b20: 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66 69 6c  tics(sqlite3_fil
1b30: 65 20 2a 70 46 69 6c 65 29 7b 0a 20 20 74 76 66  e *pFile){.  tvf
1b40: 73 5f 66 69 6c 65 20 2a 70 20 3d 20 28 74 76 66  s_file *p = (tvf
1b50: 73 5f 66 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a  s_file *)pFile;.
1b60: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
1b70: 4f 73 44 65 76 69 63 65 43 68 61 72 61 63 74 65  OsDeviceCharacte
1b80: 72 69 73 74 69 63 73 28 70 2d 3e 70 52 65 61 6c  ristics(p->pReal
1b90: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e  );.}../*.** Open
1ba0: 20 61 6e 20 74 76 66 73 20 66 69 6c 65 20 68 61   an tvfs file ha
1bb0: 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ndle..*/.static 
1bc0: 69 6e 74 20 74 76 66 73 4f 70 65 6e 28 0a 20 20  int tvfsOpen(.  
1bd0: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
1be0: 73 2c 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  s,.  const char 
1bf0: 2a 7a 4e 61 6d 65 2c 0a 20 20 73 71 6c 69 74 65  *zName,.  sqlite
1c00: 33 5f 66 69 6c 65 20 2a 70 46 69 6c 65 2c 0a 20  3_file *pFile,. 
1c10: 20 69 6e 74 20 66 6c 61 67 73 2c 0a 20 20 69 6e   int flags,.  in
1c20: 74 20 2a 70 4f 75 74 46 6c 61 67 73 0a 29 7b 0a  t *pOutFlags.){.
1c30: 20 20 69 6e 74 20 72 63 3b 0a 20 20 74 76 66 73    int rc;.  tvfs
1c40: 5f 66 69 6c 65 20 2a 70 20 3d 20 28 74 76 66 73  _file *p = (tvfs
1c50: 5f 66 69 6c 65 20 2a 29 70 46 69 6c 65 3b 0a 20  _file *)pFile;. 
1c60: 20 70 2d 3e 70 52 65 61 6c 20 3d 20 28 73 71 6c   p->pReal = (sql
1c70: 69 74 65 33 5f 66 69 6c 65 20 2a 29 26 70 5b 31  ite3_file *)&p[1
1c80: 5d 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65  ];.  rc = sqlite
1c90: 33 4f 73 4f 70 65 6e 28 50 41 52 45 4e 54 56 46  3OsOpen(PARENTVF
1ca0: 53 28 70 56 66 73 29 2c 20 7a 4e 61 6d 65 2c 20  S(pVfs), zName, 
1cb0: 70 2d 3e 70 52 65 61 6c 2c 20 66 6c 61 67 73 2c  p->pReal, flags,
1cc0: 20 70 4f 75 74 46 6c 61 67 73 29 3b 0a 20 20 69   pOutFlags);.  i
1cd0: 66 28 20 70 2d 3e 70 52 65 61 6c 2d 3e 70 4d 65  f( p->pReal->pMe
1ce0: 74 68 6f 64 73 20 29 7b 0a 20 20 20 20 70 46 69  thods ){.    pFi
1cf0: 6c 65 2d 3e 70 4d 65 74 68 6f 64 73 20 3d 20 26  le->pMethods = &
1d00: 74 76 66 73 5f 69 6f 5f 6d 65 74 68 6f 64 73 3b  tvfs_io_methods;
1d10: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63  .  }.  return rc
1d20: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 6c 65 74  ;.}../*.** Delet
1d30: 65 20 74 68 65 20 66 69 6c 65 20 6c 6f 63 61 74  e the file locat
1d40: 65 64 20 61 74 20 7a 50 61 74 68 2e 20 49 66 20  ed at zPath. If 
1d50: 74 68 65 20 64 69 72 53 79 6e 63 20 61 72 67 75  the dirSync argu
1d60: 6d 65 6e 74 20 69 73 20 74 72 75 65 2c 0a 2a 2a  ment is true,.**
1d70: 20 65 6e 73 75 72 65 20 74 68 65 20 66 69 6c 65   ensure the file
1d80: 2d 73 79 73 74 65 6d 20 6d 6f 64 69 66 69 63 61  -system modifica
1d90: 74 69 6f 6e 73 20 61 72 65 20 73 79 6e 63 65 64  tions are synced
1da0: 20 74 6f 20 64 69 73 6b 20 62 65 66 6f 72 65 0a   to disk before.
1db0: 2a 2a 20 72 65 74 75 72 6e 69 6e 67 2e 0a 2a 2f  ** returning..*/
1dc0: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66 73  .static int tvfs
1dd0: 44 65 6c 65 74 65 28 73 71 6c 69 74 65 33 5f 76  Delete(sqlite3_v
1de0: 66 73 20 2a 70 56 66 73 2c 20 63 6f 6e 73 74 20  fs *pVfs, const 
1df0: 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 69 6e 74  char *zPath, int
1e00: 20 64 69 72 53 79 6e 63 29 7b 0a 20 20 72 65 74   dirSync){.  ret
1e10: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 44 65 6c  urn sqlite3OsDel
1e20: 65 74 65 28 50 41 52 45 4e 54 56 46 53 28 70 56  ete(PARENTVFS(pV
1e30: 66 73 29 2c 20 7a 50 61 74 68 2c 20 64 69 72 53  fs), zPath, dirS
1e40: 79 6e 63 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54  ync);.}../*.** T
1e50: 65 73 74 20 66 6f 72 20 61 63 63 65 73 73 20 70  est for access p
1e60: 65 72 6d 69 73 73 69 6f 6e 73 2e 20 52 65 74 75  ermissions. Retu
1e70: 72 6e 20 74 72 75 65 20 69 66 20 74 68 65 20 72  rn true if the r
1e80: 65 71 75 65 73 74 65 64 20 70 65 72 6d 69 73 73  equested permiss
1e90: 69 6f 6e 0a 2a 2a 20 69 73 20 61 76 61 69 6c 61  ion.** is availa
1ea0: 62 6c 65 2c 20 6f 72 20 66 61 6c 73 65 20 6f 74  ble, or false ot
1eb0: 68 65 72 77 69 73 65 2e 0a 2a 2f 0a 73 74 61 74  herwise..*/.stat
1ec0: 69 63 20 69 6e 74 20 74 76 66 73 41 63 63 65 73  ic int tvfsAcces
1ed0: 73 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  s(.  sqlite3_vfs
1ee0: 20 2a 70 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74   *pVfs, .  const
1ef0: 20 63 68 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20   char *zPath, . 
1f00: 20 69 6e 74 20 66 6c 61 67 73 2c 20 0a 20 20 69   int flags, .  i
1f10: 6e 74 20 2a 70 52 65 73 4f 75 74 0a 29 7b 0a 20  nt *pResOut.){. 
1f20: 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f   return sqlite3O
1f30: 73 41 63 63 65 73 73 28 50 41 52 45 4e 54 56 46  sAccess(PARENTVF
1f40: 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c 20  S(pVfs), zPath, 
1f50: 66 6c 61 67 73 2c 20 70 52 65 73 4f 75 74 29 3b  flags, pResOut);
1f60: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61  .}../*.** Popula
1f70: 74 65 20 62 75 66 66 65 72 20 7a 4f 75 74 20 77  te buffer zOut w
1f80: 69 74 68 20 74 68 65 20 66 75 6c 6c 20 63 61 6e  ith the full can
1f90: 6f 6e 69 63 61 6c 20 70 61 74 68 6e 61 6d 65 20  onical pathname 
1fa0: 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 2a 2a  corresponding.**
1fb0: 20 74 6f 20 74 68 65 20 70 61 74 68 6e 61 6d 65   to the pathname
1fc0: 20 69 6e 20 7a 50 61 74 68 2e 20 7a 4f 75 74 20   in zPath. zOut 
1fd0: 69 73 20 67 75 61 72 61 6e 74 65 65 64 20 74 6f  is guaranteed to
1fe0: 20 70 6f 69 6e 74 20 74 6f 20 61 20 62 75 66 66   point to a buff
1ff0: 65 72 0a 2a 2a 20 6f 66 20 61 74 20 6c 65 61 73  er.** of at leas
2000: 74 20 28 44 45 56 53 59 4d 5f 4d 41 58 5f 50 41  t (DEVSYM_MAX_PA
2010: 54 48 4e 41 4d 45 2b 31 29 20 62 79 74 65 73 2e  THNAME+1) bytes.
2020: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
2030: 76 66 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28  vfsFullPathname(
2040: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
2050: 70 56 66 73 2c 20 0a 20 20 63 6f 6e 73 74 20 63  pVfs, .  const c
2060: 68 61 72 20 2a 7a 50 61 74 68 2c 20 0a 20 20 69  har *zPath, .  i
2070: 6e 74 20 6e 4f 75 74 2c 20 0a 20 20 63 68 61 72  nt nOut, .  char
2080: 20 2a 7a 4f 75 74 0a 29 7b 0a 20 20 72 65 74 75   *zOut.){.  retu
2090: 72 6e 20 73 71 6c 69 74 65 33 4f 73 46 75 6c 6c  rn sqlite3OsFull
20a0: 50 61 74 68 6e 61 6d 65 28 50 41 52 45 4e 54 56  Pathname(PARENTV
20b0: 46 53 28 70 56 66 73 29 2c 20 7a 50 61 74 68 2c  FS(pVfs), zPath,
20c0: 20 6e 4f 75 74 2c 20 7a 4f 75 74 29 3b 0a 7d 0a   nOut, zOut);.}.
20d0: 0a 23 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f  .#ifndef SQLITE_
20e0: 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53  OMIT_LOAD_EXTENS
20f0: 49 4f 4e 0a 2f 2a 0a 2a 2a 20 4f 70 65 6e 20 74  ION./*.** Open t
2100: 68 65 20 64 79 6e 61 6d 69 63 20 6c 69 62 72 61  he dynamic libra
2110: 72 79 20 6c 6f 63 61 74 65 64 20 61 74 20 7a 50  ry located at zP
2120: 61 74 68 20 61 6e 64 20 72 65 74 75 72 6e 20 61  ath and return a
2130: 20 68 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74   handle..*/.stat
2140: 69 63 20 76 6f 69 64 20 2a 74 76 66 73 44 6c 4f  ic void *tvfsDlO
2150: 70 65 6e 28 73 71 6c 69 74 65 33 5f 76 66 73 20  pen(sqlite3_vfs 
2160: 2a 70 56 66 73 2c 20 63 6f 6e 73 74 20 63 68 61  *pVfs, const cha
2170: 72 20 2a 7a 50 61 74 68 29 7b 0a 20 20 72 65 74  r *zPath){.  ret
2180: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 44 6c 4f  urn sqlite3OsDlO
2190: 70 65 6e 28 50 41 52 45 4e 54 56 46 53 28 70 56  pen(PARENTVFS(pV
21a0: 66 73 29 2c 20 7a 50 61 74 68 29 3b 0a 7d 0a 0a  fs), zPath);.}..
21b0: 2f 2a 0a 2a 2a 20 50 6f 70 75 6c 61 74 65 20 74  /*.** Populate t
21c0: 68 65 20 62 75 66 66 65 72 20 7a 45 72 72 4d 73  he buffer zErrMs
21d0: 67 20 28 73 69 7a 65 20 6e 42 79 74 65 20 62 79  g (size nByte by
21e0: 74 65 73 29 20 77 69 74 68 20 61 20 68 75 6d 61  tes) with a huma
21f0: 6e 20 72 65 61 64 61 62 6c 65 0a 2a 2a 20 75 74  n readable.** ut
2200: 66 2d 38 20 73 74 72 69 6e 67 20 64 65 73 63 72  f-8 string descr
2210: 69 62 69 6e 67 20 74 68 65 20 6d 6f 73 74 20 72  ibing the most r
2220: 65 63 65 6e 74 20 65 72 72 6f 72 20 65 6e 63 6f  ecent error enco
2230: 75 6e 74 65 72 65 64 20 61 73 73 6f 63 69 61 74  untered associat
2240: 65 64 20 0a 2a 2a 20 77 69 74 68 20 64 79 6e 61  ed .** with dyna
2250: 6d 69 63 20 6c 69 62 72 61 72 69 65 73 2e 0a 2a  mic libraries..*
2260: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 76  /.static void tv
2270: 66 73 44 6c 45 72 72 6f 72 28 73 71 6c 69 74 65  fsDlError(sqlite
2280: 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 69 6e 74  3_vfs *pVfs, int
2290: 20 6e 42 79 74 65 2c 20 63 68 61 72 20 2a 7a 45   nByte, char *zE
22a0: 72 72 4d 73 67 29 7b 0a 20 20 73 71 6c 69 74 65  rrMsg){.  sqlite
22b0: 33 4f 73 44 6c 45 72 72 6f 72 28 50 41 52 45 4e  3OsDlError(PAREN
22c0: 54 56 46 53 28 70 56 66 73 29 2c 20 6e 42 79 74  TVFS(pVfs), nByt
22d0: 65 2c 20 7a 45 72 72 4d 73 67 29 3b 0a 7d 0a 0a  e, zErrMsg);.}..
22e0: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 70  /*.** Return a p
22f0: 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 20 73 79  ointer to the sy
2300: 6d 62 6f 6c 20 7a 53 79 6d 62 6f 6c 20 69 6e 20  mbol zSymbol in 
2310: 74 68 65 20 64 79 6e 61 6d 69 63 20 6c 69 62 72  the dynamic libr
2320: 61 72 79 20 70 48 61 6e 64 6c 65 2e 0a 2a 2f 0a  ary pHandle..*/.
2330: 73 74 61 74 69 63 20 76 6f 69 64 20 28 2a 74 76  static void (*tv
2340: 66 73 44 6c 53 79 6d 28 73 71 6c 69 74 65 33 5f  fsDlSym(sqlite3_
2350: 76 66 73 20 2a 70 56 66 73 2c 20 76 6f 69 64 20  vfs *pVfs, void 
2360: 2a 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  *p, const char *
2370: 7a 53 79 6d 29 29 28 76 6f 69 64 29 7b 0a 20 20  zSym))(void){.  
2380: 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33 4f 73  return sqlite3Os
2390: 44 6c 53 79 6d 28 50 41 52 45 4e 54 56 46 53 28  DlSym(PARENTVFS(
23a0: 70 56 66 73 29 2c 20 70 2c 20 7a 53 79 6d 29 3b  pVfs), p, zSym);
23b0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20  .}../*.** Close 
23c0: 74 68 65 20 64 79 6e 61 6d 69 63 20 6c 69 62 72  the dynamic libr
23d0: 61 72 79 20 68 61 6e 64 6c 65 20 70 48 61 6e 64  ary handle pHand
23e0: 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  le..*/.static vo
23f0: 69 64 20 74 76 66 73 44 6c 43 6c 6f 73 65 28 73  id tvfsDlClose(s
2400: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
2410: 2c 20 76 6f 69 64 20 2a 70 48 61 6e 64 6c 65 29  , void *pHandle)
2420: 7b 0a 20 20 73 71 6c 69 74 65 33 4f 73 44 6c 43  {.  sqlite3OsDlC
2430: 6c 6f 73 65 28 50 41 52 45 4e 54 56 46 53 28 70  lose(PARENTVFS(p
2440: 56 66 73 29 2c 20 70 48 61 6e 64 6c 65 29 3b 0a  Vfs), pHandle);.
2450: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49  }.#endif /* SQLI
2460: 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f 45 58 54  TE_OMIT_LOAD_EXT
2470: 45 4e 53 49 4f 4e 20 2a 2f 0a 0a 2f 2a 0a 2a 2a  ENSION */../*.**
2480: 20 50 6f 70 75 6c 61 74 65 20 74 68 65 20 62 75   Populate the bu
2490: 66 66 65 72 20 70 6f 69 6e 74 65 64 20 74 6f 20  ffer pointed to 
24a0: 62 79 20 7a 42 75 66 4f 75 74 20 77 69 74 68 20  by zBufOut with 
24b0: 6e 42 79 74 65 20 62 79 74 65 73 20 6f 66 20 0a  nByte bytes of .
24c0: 2a 2a 20 72 61 6e 64 6f 6d 20 64 61 74 61 2e 0a  ** random data..
24d0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  */.static int tv
24e0: 66 73 52 61 6e 64 6f 6d 6e 65 73 73 28 73 71 6c  fsRandomness(sql
24f0: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
2500: 69 6e 74 20 6e 42 79 74 65 2c 20 63 68 61 72 20  int nByte, char 
2510: 2a 7a 42 75 66 4f 75 74 29 7b 0a 20 20 72 65 74  *zBufOut){.  ret
2520: 75 72 6e 20 73 71 6c 69 74 65 33 4f 73 52 61 6e  urn sqlite3OsRan
2530: 64 6f 6d 6e 65 73 73 28 50 41 52 45 4e 54 56 46  domness(PARENTVF
2540: 53 28 70 56 66 73 29 2c 20 6e 42 79 74 65 2c 20  S(pVfs), nByte, 
2550: 7a 42 75 66 4f 75 74 29 3b 0a 7d 0a 0a 2f 2a 0a  zBufOut);.}../*.
2560: 2a 2a 20 53 6c 65 65 70 20 66 6f 72 20 6e 4d 69  ** Sleep for nMi
2570: 63 72 6f 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73  cro microseconds
2580: 2e 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d  . Return the num
2590: 62 65 72 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f  ber of microseco
25a0: 6e 64 73 20 0a 2a 2a 20 61 63 74 75 61 6c 6c 79  nds .** actually
25b0: 20 73 6c 65 70 74 2e 0a 2a 2f 0a 73 74 61 74 69   slept..*/.stati
25c0: 63 20 69 6e 74 20 74 76 66 73 53 6c 65 65 70 28  c int tvfsSleep(
25d0: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66  sqlite3_vfs *pVf
25e0: 73 2c 20 69 6e 74 20 6e 4d 69 63 72 6f 29 7b 0a  s, int nMicro){.
25f0: 20 20 72 65 74 75 72 6e 20 73 71 6c 69 74 65 33    return sqlite3
2600: 4f 73 53 6c 65 65 70 28 50 41 52 45 4e 54 56 46  OsSleep(PARENTVF
2610: 53 28 70 56 66 73 29 2c 20 6e 4d 69 63 72 6f 29  S(pVfs), nMicro)
2620: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72  ;.}../*.** Retur
2630: 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 69  n the current ti
2640: 6d 65 20 61 73 20 61 20 4a 75 6c 69 61 6e 20 44  me as a Julian D
2650: 61 79 20 6e 75 6d 62 65 72 20 69 6e 20 2a 70 54  ay number in *pT
2660: 69 6d 65 4f 75 74 2e 0a 2a 2f 0a 73 74 61 74 69  imeOut..*/.stati
2670: 63 20 69 6e 74 20 74 76 66 73 43 75 72 72 65 6e  c int tvfsCurren
2680: 74 54 69 6d 65 28 73 71 6c 69 74 65 33 5f 76 66  tTime(sqlite3_vf
2690: 73 20 2a 70 56 66 73 2c 20 64 6f 75 62 6c 65 20  s *pVfs, double 
26a0: 2a 70 54 69 6d 65 4f 75 74 29 7b 0a 20 20 72 65  *pTimeOut){.  re
26b0: 74 75 72 6e 20 50 41 52 45 4e 54 56 46 53 28 70  turn PARENTVFS(p
26c0: 56 66 73 29 2d 3e 78 43 75 72 72 65 6e 74 54 69  Vfs)->xCurrentTi
26d0: 6d 65 28 50 41 52 45 4e 54 56 46 53 28 70 56 66  me(PARENTVFS(pVf
26e0: 73 29 2c 20 70 54 69 6d 65 4f 75 74 29 3b 0a 7d  s), pTimeOut);.}
26f0: 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 76  ..static void tv
2700: 66 73 47 72 6f 77 42 75 66 66 65 72 28 54 65 73  fsGrowBuffer(Tes
2710: 74 76 66 73 53 68 6d 20 2a 70 53 68 6d 2c 20 69  tvfsShm *pShm, i
2720: 6e 74 20 72 65 71 53 69 7a 65 2c 20 69 6e 74 20  nt reqSize, int 
2730: 2a 70 4e 65 77 53 69 7a 65 29 7b 0a 20 20 54 65  *pNewSize){.  Te
2740: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 42 75  stvfsBuffer *pBu
2750: 66 66 65 72 20 3d 20 70 53 68 6d 2d 3e 70 42 75  ffer = pShm->pBu
2760: 66 66 65 72 3b 0a 20 20 69 66 28 20 72 65 71 53  ffer;.  if( reqS
2770: 69 7a 65 3e 70 42 75 66 66 65 72 2d 3e 6e 20 29  ize>pBuffer->n )
2780: 7b 0a 20 20 20 20 70 42 75 66 66 65 72 2d 3e 61  {.    pBuffer->a
2790: 20 3d 20 28 75 38 20 2a 29 63 6b 72 65 61 6c 6c   = (u8 *)ckreall
27a0: 6f 63 28 28 63 68 61 72 20 2a 29 70 42 75 66 66  oc((char *)pBuff
27b0: 65 72 2d 3e 61 2c 20 72 65 71 53 69 7a 65 29 3b  er->a, reqSize);
27c0: 0a 20 20 20 20 6d 65 6d 73 65 74 28 26 70 42 75  .    memset(&pBu
27d0: 66 66 65 72 2d 3e 61 5b 70 42 75 66 66 65 72 2d  ffer->a[pBuffer-
27e0: 3e 6e 5d 2c 20 30 78 35 35 2c 20 72 65 71 53 69  >n], 0x55, reqSi
27f0: 7a 65 2d 70 42 75 66 66 65 72 2d 3e 6e 29 3b 0a  ze-pBuffer->n);.
2800: 20 20 20 20 70 42 75 66 66 65 72 2d 3e 6e 20 3d      pBuffer->n =
2810: 20 72 65 71 53 69 7a 65 3b 0a 20 20 7d 0a 20 20   reqSize;.  }.  
2820: 2a 70 4e 65 77 53 69 7a 65 20 3d 20 70 42 75 66  *pNewSize = pBuf
2830: 66 65 72 2d 3e 6e 3b 0a 7d 0a 0a 73 74 61 74 69  fer->n;.}..stati
2840: 63 20 76 6f 69 64 20 74 76 66 73 45 78 65 63 54  c void tvfsExecT
2850: 63 6c 28 0a 20 20 54 65 73 74 76 66 73 20 2a 70  cl(.  Testvfs *p
2860: 2c 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  , .  const char 
2870: 2a 7a 4d 65 74 68 6f 64 2c 0a 20 20 54 63 6c 5f  *zMethod,.  Tcl_
2880: 4f 62 6a 20 2a 61 72 67 31 2c 0a 20 20 54 63 6c  Obj *arg1,.  Tcl
2890: 5f 4f 62 6a 20 2a 61 72 67 32 2c 0a 20 20 54 63  _Obj *arg2,.  Tc
28a0: 6c 5f 4f 62 6a 20 2a 61 72 67 33 0a 29 7b 0a 20  l_Obj *arg3.){. 
28b0: 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20 20 20   int rc;        
28c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
28d0: 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f 64 65 20   /* Return code 
28e0: 66 72 6f 6d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a  from Tcl_EvalObj
28f0: 28 29 20 2a 2f 0a 20 20 69 6e 74 20 6e 41 72 67  () */.  int nArg
2900: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
2910: 20 20 20 20 20 20 20 20 2f 2a 20 45 6c 65 6d 65          /* Eleme
2920: 6e 74 73 20 69 6e 20 65 76 61 6c 27 64 20 6c 69  nts in eval'd li
2930: 73 74 20 2a 2f 0a 0a 20 20 70 2d 3e 61 70 53 63  st */..  p->apSc
2940: 72 69 70 74 5b 70 2d 3e 6e 53 63 72 69 70 74 5d  ript[p->nScript]
2950: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
2960: 4f 62 6a 28 7a 4d 65 74 68 6f 64 2c 20 2d 31 29  Obj(zMethod, -1)
2970: 3b 0a 20 20 70 2d 3e 61 70 53 63 72 69 70 74 5b  ;.  p->apScript[
2980: 70 2d 3e 6e 53 63 72 69 70 74 2b 31 5d 20 3d 20  p->nScript+1] = 
2990: 61 72 67 31 3b 0a 20 20 70 2d 3e 61 70 53 63 72  arg1;.  p->apScr
29a0: 69 70 74 5b 70 2d 3e 6e 53 63 72 69 70 74 2b 32  ipt[p->nScript+2
29b0: 5d 20 3d 20 61 72 67 32 3b 0a 20 20 70 2d 3e 61  ] = arg2;.  p->a
29c0: 70 53 63 72 69 70 74 5b 70 2d 3e 6e 53 63 72 69  pScript[p->nScri
29d0: 70 74 2b 33 5d 20 3d 20 61 72 67 33 3b 0a 0a 20  pt+3] = arg3;.. 
29e0: 20 66 6f 72 28 6e 41 72 67 3d 70 2d 3e 6e 53 63   for(nArg=p->nSc
29f0: 72 69 70 74 3b 20 70 2d 3e 61 70 53 63 72 69 70  ript; p->apScrip
2a00: 74 5b 6e 41 72 67 5d 3b 20 6e 41 72 67 2b 2b 29  t[nArg]; nArg++)
2a10: 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65  {.    Tcl_IncrRe
2a20: 66 43 6f 75 6e 74 28 70 2d 3e 61 70 53 63 72 69  fCount(p->apScri
2a30: 70 74 5b 6e 41 72 67 5d 29 3b 0a 20 20 7d 0a 0a  pt[nArg]);.  }..
2a40: 20 20 72 63 20 3d 20 54 63 6c 5f 45 76 61 6c 4f    rc = Tcl_EvalO
2a50: 62 6a 76 28 70 2d 3e 69 6e 74 65 72 70 2c 20 6e  bjv(p->interp, n
2a60: 41 72 67 2c 20 70 2d 3e 61 70 53 63 72 69 70 74  Arg, p->apScript
2a70: 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41  , TCL_EVAL_GLOBA
2a80: 4c 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 54 43  L);.  if( rc!=TC
2a90: 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 54 63 6c 5f  L_OK ){.    Tcl_
2aa0: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28  BackgroundError(
2ab0: 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20  p->interp);.    
2ac0: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28  Tcl_ResetResult(
2ad0: 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 7d 0a  p->interp);.  }.
2ae0: 0a 20 20 66 6f 72 28 6e 41 72 67 3d 70 2d 3e 6e  .  for(nArg=p->n
2af0: 53 63 72 69 70 74 3b 20 70 2d 3e 61 70 53 63 72  Script; p->apScr
2b00: 69 70 74 5b 6e 41 72 67 5d 3b 20 6e 41 72 67 2b  ipt[nArg]; nArg+
2b10: 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72  +){.    Tcl_Decr
2b20: 52 65 66 43 6f 75 6e 74 28 70 2d 3e 61 70 53 63  RefCount(p->apSc
2b30: 72 69 70 74 5b 6e 41 72 67 5d 29 3b 0a 20 20 20  ript[nArg]);.   
2b40: 20 70 2d 3e 61 70 53 63 72 69 70 74 5b 6e 41 72   p->apScript[nAr
2b50: 67 5d 20 3d 20 30 3b 0a 20 20 7d 0a 7d 0a 0a 73  g] = 0;.  }.}..s
2b60: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 52 65  tatic int tvfsRe
2b70: 73 75 6c 74 43 6f 64 65 28 54 65 73 74 76 66 73  sultCode(Testvfs
2b80: 20 2a 70 2c 20 69 6e 74 20 2a 70 52 63 29 7b 0a   *p, int *pRc){.
2b90: 20 20 73 74 72 75 63 74 20 65 72 72 63 6f 64 65    struct errcode
2ba0: 20 7b 0a 20 20 20 20 69 6e 74 20 65 43 6f 64 65   {.    int eCode
2bb0: 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72  ;.    const char
2bc0: 20 2a 7a 43 6f 64 65 3b 0a 20 20 7d 20 61 43 6f   *zCode;.  } aCo
2bd0: 64 65 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20 53  de[] = {.    { S
2be0: 51 4c 49 54 45 5f 4f 4b 2c 20 20 20 20 20 22 53  QLITE_OK,     "S
2bf0: 51 4c 49 54 45 5f 4f 4b 22 20 20 20 20 20 7d 2c  QLITE_OK"     },
2c00: 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f 45 52  .    { SQLITE_ER
2c10: 52 4f 52 2c 20 20 22 53 51 4c 49 54 45 5f 45 52  ROR,  "SQLITE_ER
2c20: 52 4f 52 22 20 20 7d 2c 0a 20 20 20 20 7b 20 53  ROR"  },.    { S
2c30: 51 4c 49 54 45 5f 49 4f 45 52 52 2c 20 20 22 53  QLITE_IOERR,  "S
2c40: 51 4c 49 54 45 5f 49 4f 45 52 52 22 20 20 7d 2c  QLITE_IOERR"  },
2c50: 0a 20 20 20 20 7b 20 53 51 4c 49 54 45 5f 4c 4f  .    { SQLITE_LO
2c60: 43 4b 45 44 2c 20 22 53 51 4c 49 54 45 5f 4c 4f  CKED, "SQLITE_LO
2c70: 43 4b 45 44 22 20 7d 2c 0a 20 20 7d 3b 0a 0a 20  CKED" },.  };.. 
2c80: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 3b 0a   const char *z;.
2c90: 20 20 69 6e 74 20 69 3b 0a 0a 20 20 7a 20 3d 20    int i;..  z = 
2ca0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73  Tcl_GetStringRes
2cb0: 75 6c 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a  ult(p->interp);.
2cc0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 41 72 72    for(i=0; i<Arr
2cd0: 61 79 53 69 7a 65 28 61 43 6f 64 65 29 3b 20 69  aySize(aCode); i
2ce0: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 30 3d 3d  ++){.    if( 0==
2cf0: 73 74 72 63 6d 70 28 7a 2c 20 61 43 6f 64 65 5b  strcmp(z, aCode[
2d00: 69 5d 2e 7a 43 6f 64 65 29 20 29 7b 0a 20 20 20  i].zCode) ){.   
2d10: 20 20 20 2a 70 52 63 20 3d 20 61 43 6f 64 65 5b     *pRc = aCode[
2d20: 69 5d 2e 65 43 6f 64 65 3b 0a 20 20 20 20 20 20  i].eCode;.      
2d30: 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a  return 1;.    }.
2d40: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 30 3b    }..  return 0;
2d50: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .}..static int t
2d60: 76 66 73 53 68 6d 4f 70 65 6e 28 0a 20 20 73 71  vfsShmOpen(.  sq
2d70: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
2d80: 20 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a   .  const char *
2d90: 7a 4e 61 6d 65 2c 20 0a 20 20 73 71 6c 69 74 65  zName, .  sqlite
2da0: 33 5f 73 68 6d 20 2a 2a 70 70 0a 29 7b 0a 20 20  3_shm **pp.){.  
2db0: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
2dc0: 73 74 76 66 73 20 2a 29 28 70 56 66 73 2d 3e 70  stvfs *)(pVfs->p
2dd0: 41 70 70 44 61 74 61 29 3b 0a 20 20 69 6e 74 20  AppData);.  int 
2de0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 20  rc = SQLITE_OK; 
2df0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52              /* R
2e00: 65 74 75 72 6e 20 63 6f 64 65 20 2a 2f 0a 20 20  eturn code */.  
2e10: 54 63 6c 5f 4f 62 6a 20 2a 70 49 64 20 3d 20 30  Tcl_Obj *pId = 0
2e20: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
2e30: 2f 2a 20 49 64 20 66 6f 72 20 74 68 69 73 20 63  /* Id for this c
2e40: 6f 6e 6e 65 63 74 69 6f 6e 20 2a 2f 0a 20 20 54  onnection */.  T
2e50: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 42  estvfsBuffer *pB
2e60: 75 66 66 65 72 3b 20 20 20 20 20 20 20 20 20 2f  uffer;         /
2e70: 2a 20 42 75 66 66 65 72 20 74 6f 20 6f 70 65 6e  * Buffer to open
2e80: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 2a   connection to *
2e90: 2f 0a 20 20 54 65 73 74 76 66 73 53 68 6d 20 2a  /.  TestvfsShm *
2ea0: 70 53 68 6d 3b 20 20 20 20 20 20 20 20 20 20 20  pShm;           
2eb0: 20 20 20 20 2f 2a 20 4e 65 77 20 73 68 6d 20 68      /* New shm h
2ec0: 61 6e 64 6c 65 20 2a 2f 0a 0a 20 20 2f 2a 20 45  andle */..  /* E
2ed0: 76 61 6c 75 61 74 65 20 74 68 65 20 54 63 6c 20  valuate the Tcl 
2ee0: 73 63 72 69 70 74 3a 20 0a 20 20 2a 2a 0a 20 20  script: .  **.  
2ef0: 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53 68 6d  **   SCRIPT xShm
2f00: 4f 70 65 6e 20 46 49 4c 45 4e 41 4d 45 0a 20 20  Open FILENAME.  
2f10: 2a 2a 0a 20 20 2a 2a 20 49 66 20 74 68 65 20 73  **.  ** If the s
2f20: 63 72 69 70 74 20 72 65 74 75 72 6e 73 20 61 6e  cript returns an
2f30: 20 53 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f   SQLite error co
2f40: 64 65 20 6f 74 68 65 72 20 74 68 61 6e 20 53 51  de other than SQ
2f50: 4c 49 54 45 5f 4f 4b 2c 20 61 6e 0a 20 20 2a 2a  LITE_OK, an.  **
2f60: 20 65 72 72 6f 72 20 69 73 20 72 65 74 75 72 6e   error is return
2f70: 65 64 20 74 6f 20 74 68 65 20 63 61 6c 6c 65 72  ed to the caller
2f80: 2e 20 49 66 20 69 74 20 72 65 74 75 72 6e 73 20  . If it returns 
2f90: 53 51 4c 49 54 45 5f 4f 4b 2c 20 74 68 65 20 6e  SQLITE_OK, the n
2fa0: 65 77 0a 20 20 2a 2a 20 63 6f 6e 6e 65 63 74 69  ew.  ** connecti
2fb0: 6f 6e 20 69 73 20 6e 61 6d 65 64 20 22 61 6e 6f  on is named "ano
2fc0: 6e 22 2e 20 4f 74 68 65 72 77 69 73 65 2c 20 74  n". Otherwise, t
2fd0: 68 65 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65  he value returne
2fe0: 64 20 62 79 20 74 68 65 0a 20 20 2a 2a 20 73 63  d by the.  ** sc
2ff0: 72 69 70 74 20 69 73 20 75 73 65 64 20 61 73 20  ript is used as 
3000: 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6e  the connection n
3010: 61 6d 65 2e 0a 20 20 2a 2f 0a 20 20 74 76 66 73  ame..  */.  tvfs
3020: 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d  ExecTcl(p, "xShm
3030: 4f 70 65 6e 22 2c 20 54 63 6c 5f 4e 65 77 53 74  Open", Tcl_NewSt
3040: 72 69 6e 67 4f 62 6a 28 7a 4e 61 6d 65 2c 20 2d  ringObj(zName, -
3050: 31 29 2c 20 30 2c 20 30 29 3b 0a 20 20 69 66 28  1), 0, 0);.  if(
3060: 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28   tvfsResultCode(
3070: 70 2c 20 26 72 63 29 20 29 7b 0a 20 20 20 20 69  p, &rc) ){.    i
3080: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc!=SQLITE_OK
3090: 20 29 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20   ) return rc;.  
30a0: 20 20 70 49 64 20 3d 20 54 63 6c 5f 4e 65 77 53    pId = Tcl_NewS
30b0: 74 72 69 6e 67 4f 62 6a 28 22 61 6e 6f 6e 22 2c  tringObj("anon",
30c0: 20 2d 31 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20   -1);.  }else{. 
30d0: 20 20 20 70 49 64 20 3d 20 54 63 6c 5f 47 65 74     pId = Tcl_Get
30e0: 4f 62 6a 52 65 73 75 6c 74 28 70 2d 3e 69 6e 74  ObjResult(p->int
30f0: 65 72 70 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f  erp);.  }.  Tcl_
3100: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 49 64  IncrRefCount(pId
3110: 29 3b 0a 0a 20 20 2f 2a 20 41 6c 6c 6f 63 61 74  );..  /* Allocat
3120: 65 20 74 68 65 20 54 65 73 74 76 66 73 53 68 6d  e the TestvfsShm
3130: 20 68 61 6e 64 6c 65 2e 20 2a 2f 0a 20 20 70 53   handle. */.  pS
3140: 68 6d 20 3d 20 28 54 65 73 74 76 66 73 53 68 6d  hm = (TestvfsShm
3150: 20 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f   *)ckalloc(sizeo
3160: 66 28 54 65 73 74 76 66 73 53 68 6d 29 29 3b 0a  f(TestvfsShm));.
3170: 20 20 6d 65 6d 73 65 74 28 70 53 68 6d 2c 20 30    memset(pShm, 0
3180: 2c 20 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73  , sizeof(Testvfs
3190: 53 68 6d 29 29 3b 0a 20 20 70 53 68 6d 2d 3e 69  Shm));.  pShm->i
31a0: 64 20 3d 20 70 49 64 3b 0a 0a 20 20 2f 2a 20 53  d = pId;..  /* S
31b0: 65 61 72 63 68 20 66 6f 72 20 61 20 54 65 73 74  earch for a Test
31c0: 76 66 73 42 75 66 66 65 72 2e 20 43 72 65 61 74  vfsBuffer. Creat
31d0: 65 20 61 20 6e 65 77 20 6f 6e 65 20 69 66 20 72  e a new one if r
31e0: 65 71 75 69 72 65 64 2e 20 2a 2f 0a 20 20 66 6f  equired. */.  fo
31f0: 72 28 70 42 75 66 66 65 72 3d 70 2d 3e 70 42 75  r(pBuffer=p->pBu
3200: 66 66 65 72 3b 20 70 42 75 66 66 65 72 3b 20 70  ffer; pBuffer; p
3210: 42 75 66 66 65 72 3d 70 42 75 66 66 65 72 2d 3e  Buffer=pBuffer->
3220: 70 4e 65 78 74 29 7b 0a 20 20 20 20 69 66 28 20  pNext){.    if( 
3230: 30 3d 3d 73 74 72 63 6d 70 28 7a 4e 61 6d 65 2c  0==strcmp(zName,
3240: 20 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 29   pBuffer->zFile)
3250: 20 29 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20   ) break;.  }.  
3260: 69 66 28 20 21 70 42 75 66 66 65 72 20 29 7b 0a  if( !pBuffer ){.
3270: 20 20 20 20 69 6e 74 20 6e 42 79 74 65 20 3d 20      int nByte = 
3280: 73 69 7a 65 6f 66 28 54 65 73 74 76 66 73 42 75  sizeof(TestvfsBu
3290: 66 66 65 72 29 20 2b 20 73 74 72 6c 65 6e 28 7a  ffer) + strlen(z
32a0: 4e 61 6d 65 29 20 2b 20 31 3b 0a 20 20 20 20 70  Name) + 1;.    p
32b0: 42 75 66 66 65 72 20 3d 20 28 54 65 73 74 76 66  Buffer = (Testvf
32c0: 73 42 75 66 66 65 72 20 2a 29 63 6b 61 6c 6c 6f  sBuffer *)ckallo
32d0: 63 28 6e 42 79 74 65 29 3b 0a 20 20 20 20 6d 65  c(nByte);.    me
32e0: 6d 73 65 74 28 70 42 75 66 66 65 72 2c 20 30 2c  mset(pBuffer, 0,
32f0: 20 6e 42 79 74 65 29 3b 0a 20 20 20 20 70 42 75   nByte);.    pBu
3300: 66 66 65 72 2d 3e 7a 46 69 6c 65 20 3d 20 28 63  ffer->zFile = (c
3310: 68 61 72 20 2a 29 26 70 42 75 66 66 65 72 5b 31  har *)&pBuffer[1
3320: 5d 3b 0a 20 20 20 20 73 74 72 63 70 79 28 70 42  ];.    strcpy(pB
3330: 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 7a 4e  uffer->zFile, zN
3340: 61 6d 65 29 3b 0a 20 20 20 20 70 42 75 66 66 65  ame);.    pBuffe
3350: 72 2d 3e 70 4e 65 78 74 20 3d 20 70 2d 3e 70 42  r->pNext = p->pB
3360: 75 66 66 65 72 3b 0a 20 20 20 20 70 2d 3e 70 42  uffer;.    p->pB
3370: 75 66 66 65 72 20 3d 20 70 42 75 66 66 65 72 3b  uffer = pBuffer;
3380: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 43 6f 6e 6e 65  .  }..  /* Conne
3390: 63 74 20 74 68 65 20 54 65 73 74 76 66 73 42 75  ct the TestvfsBu
33a0: 66 66 65 72 20 74 6f 20 74 68 65 20 6e 65 77 20  ffer to the new 
33b0: 54 65 73 74 76 66 73 53 68 6d 20 68 61 6e 64 6c  TestvfsShm handl
33c0: 65 20 61 6e 64 20 72 65 74 75 72 6e 2e 20 2a 2f  e and return. */
33d0: 0a 20 20 70 42 75 66 66 65 72 2d 3e 6e 52 65 66  .  pBuffer->nRef
33e0: 2b 2b 3b 0a 20 20 70 53 68 6d 2d 3e 70 42 75 66  ++;.  pShm->pBuf
33f0: 66 65 72 20 3d 20 70 42 75 66 66 65 72 3b 0a 20  fer = pBuffer;. 
3400: 20 2a 70 70 20 3d 20 28 73 71 6c 69 74 65 33 5f   *pp = (sqlite3_
3410: 73 68 6d 20 2a 29 70 53 68 6d 3b 0a 20 20 72 65  shm *)pShm;.  re
3420: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
3430: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76  }..static int tv
3440: 66 73 53 68 6d 53 69 7a 65 28 0a 20 20 73 71 6c  fsShmSize(.  sql
3450: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 0a  ite3_vfs *pVfs,.
3460: 20 20 73 71 6c 69 74 65 33 5f 73 68 6d 20 2a 70    sqlite3_shm *p
3470: 53 68 6d 48 61 6e 64 6c 65 2c 0a 20 20 69 6e 74  ShmHandle,.  int
3480: 20 72 65 71 53 69 7a 65 2c 0a 20 20 69 6e 74 20   reqSize,.  int 
3490: 2a 70 4e 65 77 53 69 7a 65 0a 29 7b 0a 20 20 69  *pNewSize.){.  i
34a0: 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f  nt rc = SQLITE_O
34b0: 4b 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  K;.  Testvfs *p 
34c0: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70 56  = (Testvfs *)(pV
34d0: 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 20  fs->pAppData);. 
34e0: 20 54 65 73 74 76 66 73 53 68 6d 20 2a 70 53 68   TestvfsShm *pSh
34f0: 6d 20 3d 20 28 54 65 73 74 76 66 73 53 68 6d 20  m = (TestvfsShm 
3500: 2a 29 70 53 68 6d 48 61 6e 64 6c 65 3b 0a 0a 20  *)pShmHandle;.. 
3510: 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20   tvfsExecTcl(p, 
3520: 22 78 53 68 6d 53 69 7a 65 22 2c 20 0a 20 20 20  "xShmSize", .   
3530: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
3540: 4f 62 6a 28 70 53 68 6d 2d 3e 70 42 75 66 66 65  Obj(pShm->pBuffe
3550: 72 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70  r->zFile, -1), p
3560: 53 68 6d 2d 3e 69 64 2c 20 30 0a 20 20 29 3b 0a  Shm->id, 0.  );.
3570: 20 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65    tvfsResultCode
3580: 28 70 2c 20 26 72 63 29 3b 0a 20 20 69 66 28 20  (p, &rc);.  if( 
3590: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b  rc==SQLITE_OK ){
35a0: 0a 20 20 20 20 74 76 66 73 47 72 6f 77 42 75 66  .    tvfsGrowBuf
35b0: 66 65 72 28 70 53 68 6d 2c 20 72 65 71 53 69 7a  fer(pShm, reqSiz
35c0: 65 2c 20 70 4e 65 77 53 69 7a 65 29 3b 0a 20 20  e, pNewSize);.  
35d0: 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  }.  return rc;.}
35e0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ..static int tvf
35f0: 73 53 68 6d 47 65 74 28 0a 20 20 73 71 6c 69 74  sShmGet(.  sqlit
3600: 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 0a 20 20  e3_vfs *pVfs,.  
3610: 73 71 6c 69 74 65 33 5f 73 68 6d 20 2a 70 53 68  sqlite3_shm *pSh
3620: 6d 48 61 6e 64 6c 65 2c 20 0a 20 20 69 6e 74 20  mHandle, .  int 
3630: 72 65 71 4d 61 70 53 69 7a 65 2c 20 0a 20 20 69  reqMapSize, .  i
3640: 6e 74 20 2a 70 4d 61 70 53 69 7a 65 2c 20 0a 20  nt *pMapSize, . 
3650: 20 76 6f 69 64 20 2a 2a 70 70 0a 29 7b 0a 20 20   void **pp.){.  
3660: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  int rc = SQLITE_
3670: 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  OK;.  Testvfs *p
3680: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70   = (Testvfs *)(p
3690: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a  Vfs->pAppData);.
36a0: 20 20 54 65 73 74 76 66 73 53 68 6d 20 2a 70 53    TestvfsShm *pS
36b0: 68 6d 20 3d 20 28 54 65 73 74 76 66 73 53 68 6d  hm = (TestvfsShm
36c0: 20 2a 29 70 53 68 6d 48 61 6e 64 6c 65 3b 0a 0a   *)pShmHandle;..
36d0: 20 20 74 76 66 73 47 72 6f 77 42 75 66 66 65 72    tvfsGrowBuffer
36e0: 28 70 53 68 6d 2c 20 72 65 71 4d 61 70 53 69 7a  (pShm, reqMapSiz
36f0: 65 2c 20 70 4d 61 70 53 69 7a 65 29 3b 0a 20 20  e, pMapSize);.  
3700: 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c 20 22  tvfsExecTcl(p, "
3710: 78 53 68 6d 47 65 74 22 2c 20 0a 20 20 20 20 20  xShmGet", .     
3720: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
3730: 6a 28 70 53 68 6d 2d 3e 70 42 75 66 66 65 72 2d  j(pShm->pBuffer-
3740: 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 53 68  >zFile, -1), pSh
3750: 6d 2d 3e 69 64 2c 20 30 0a 20 20 29 3b 0a 20 20  m->id, 0.  );.  
3760: 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28 70  tvfsResultCode(p
3770: 2c 20 26 72 63 29 3b 0a 20 20 2a 70 70 20 3d 20  , &rc);.  *pp = 
3780: 70 53 68 6d 2d 3e 70 42 75 66 66 65 72 2d 3e 61  pShm->pBuffer->a
3790: 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d  ;.  return rc;.}
37a0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 76 66  ..static int tvf
37b0: 73 53 68 6d 52 65 6c 65 61 73 65 28 73 71 6c 69  sShmRelease(sqli
37c0: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 73  te3_vfs *pVfs, s
37d0: 71 6c 69 74 65 33 5f 73 68 6d 20 2a 70 53 68 6d  qlite3_shm *pShm
37e0: 48 61 6e 64 6c 65 29 7b 0a 20 20 69 6e 74 20 72  Handle){.  int r
37f0: 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20  c = SQLITE_OK;. 
3800: 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54   Testvfs *p = (T
3810: 65 73 74 76 66 73 20 2a 29 28 70 56 66 73 2d 3e  estvfs *)(pVfs->
3820: 70 41 70 70 44 61 74 61 29 3b 0a 20 20 54 65 73  pAppData);.  Tes
3830: 74 76 66 73 53 68 6d 20 2a 70 53 68 6d 20 3d 20  tvfsShm *pShm = 
3840: 28 54 65 73 74 76 66 73 53 68 6d 20 2a 29 70 53  (TestvfsShm *)pS
3850: 68 6d 48 61 6e 64 6c 65 3b 0a 0a 20 20 74 76 66  hmHandle;..  tvf
3860: 73 45 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68  sExecTcl(p, "xSh
3870: 6d 52 65 6c 65 61 73 65 22 2c 20 0a 20 20 20 20  mRelease", .    
3880: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
3890: 62 6a 28 70 53 68 6d 2d 3e 70 42 75 66 66 65 72  bj(pShm->pBuffer
38a0: 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29 2c 20 70 53  ->zFile, -1), pS
38b0: 68 6d 2d 3e 69 64 2c 20 30 0a 20 20 29 3b 0a 20  hm->id, 0.  );. 
38c0: 20 74 76 66 73 52 65 73 75 6c 74 43 6f 64 65 28   tvfsResultCode(
38d0: 70 2c 20 26 72 63 29 3b 0a 0a 20 20 72 65 74 75  p, &rc);..  retu
38e0: 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63  rn rc;.}..static
38f0: 20 69 6e 74 20 74 76 66 73 53 68 6d 4c 6f 63 6b   int tvfsShmLock
3900: 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20  (.  sqlite3_vfs 
3910: 2a 70 56 66 73 2c 0a 20 20 73 71 6c 69 74 65 33  *pVfs,.  sqlite3
3920: 5f 73 68 6d 20 2a 70 53 68 6d 48 61 6e 64 6c 65  _shm *pShmHandle
3930: 2c 0a 20 20 69 6e 74 20 64 65 73 69 72 65 64 4c  ,.  int desiredL
3940: 6f 63 6b 2c 0a 20 20 69 6e 74 20 2a 67 6f 74 4c  ock,.  int *gotL
3950: 6f 63 6b 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20  ock.){.  int rc 
3960: 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54  = SQLITE_OK;.  T
3970: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
3980: 74 76 66 73 20 2a 29 28 70 56 66 73 2d 3e 70 41  tvfs *)(pVfs->pA
3990: 70 70 44 61 74 61 29 3b 0a 20 20 54 65 73 74 76  ppData);.  Testv
39a0: 66 73 53 68 6d 20 2a 70 53 68 6d 20 3d 20 28 54  fsShm *pShm = (T
39b0: 65 73 74 76 66 73 53 68 6d 20 2a 29 70 53 68 6d  estvfsShm *)pShm
39c0: 48 61 6e 64 6c 65 3b 0a 20 20 63 68 61 72 20 2a  Handle;.  char *
39d0: 7a 4c 6f 63 6b 20 3d 20 22 22 3b 0a 0a 20 20 73  zLock = "";..  s
39e0: 77 69 74 63 68 28 20 64 65 73 69 72 65 64 4c 6f  witch( desiredLo
39f0: 63 6b 20 29 7b 0a 20 20 20 20 63 61 73 65 20 53  ck ){.    case S
3a00: 51 4c 49 54 45 5f 53 48 4d 5f 52 45 41 44 3a 20  QLITE_SHM_READ: 
3a10: 20 20 20 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20          zLock = 
3a20: 22 52 45 41 44 22 3b 20 20 20 20 20 20 20 62 72  "READ";       br
3a30: 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51  eak;.    case SQ
3a40: 4c 49 54 45 5f 53 48 4d 5f 57 52 49 54 45 3a 20  LITE_SHM_WRITE: 
3a50: 20 20 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22         zLock = "
3a60: 57 52 49 54 45 22 3b 20 20 20 20 20 20 62 72 65  WRITE";      bre
3a70: 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c  ak;.    case SQL
3a80: 49 54 45 5f 53 48 4d 5f 43 48 45 43 4b 50 4f 49  ITE_SHM_CHECKPOI
3a90: 4e 54 3a 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 43  NT:   zLock = "C
3aa0: 48 45 43 4b 50 4f 49 4e 54 22 3b 20 62 72 65 61  HECKPOINT"; brea
3ab0: 6b 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49  k;.    case SQLI
3ac0: 54 45 5f 53 48 4d 5f 52 45 43 4f 56 45 52 3a 20  TE_SHM_RECOVER: 
3ad0: 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 52 45       zLock = "RE
3ae0: 43 4f 56 45 52 22 3b 20 20 20 20 62 72 65 61 6b  COVER";    break
3af0: 3b 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54  ;.    case SQLIT
3b00: 45 5f 53 48 4d 5f 50 45 4e 44 49 4e 47 3a 20 20  E_SHM_PENDING:  
3b10: 20 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 50 45 4e      zLock = "PEN
3b20: 44 49 4e 47 22 3b 20 20 20 20 62 72 65 61 6b 3b  DING";    break;
3b30: 0a 20 20 20 20 63 61 73 65 20 53 51 4c 49 54 45  .    case SQLITE
3b40: 5f 53 48 4d 5f 55 4e 4c 4f 43 4b 3a 20 20 20 20  _SHM_UNLOCK:    
3b50: 20 20 20 7a 4c 6f 63 6b 20 3d 20 22 55 4e 4c 4f     zLock = "UNLO
3b60: 43 4b 22 3b 20 20 20 20 20 62 72 65 61 6b 3b 0a  CK";     break;.
3b70: 20 20 7d 0a 20 20 74 76 66 73 45 78 65 63 54 63    }.  tvfsExecTc
3b80: 6c 28 70 2c 20 22 78 53 68 6d 4c 6f 63 6b 22 2c  l(p, "xShmLock",
3b90: 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53   .      Tcl_NewS
3ba0: 74 72 69 6e 67 4f 62 6a 28 70 53 68 6d 2d 3e 70  tringObj(pShm->p
3bb0: 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 2d  Buffer->zFile, -
3bc0: 31 29 2c 20 70 53 68 6d 2d 3e 69 64 2c 0a 20 20  1), pShm->id,.  
3bd0: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e      Tcl_NewStrin
3be0: 67 4f 62 6a 28 7a 4c 6f 63 6b 2c 20 2d 31 29 0a  gObj(zLock, -1).
3bf0: 20 20 29 3b 0a 20 20 74 76 66 73 52 65 73 75 6c    );.  tvfsResul
3c00: 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 20  tCode(p, &rc);. 
3c10: 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f   if( rc==SQLITE_
3c20: 4f 4b 20 29 7b 0a 20 20 20 20 2a 67 6f 74 4c 6f  OK ){.    *gotLo
3c30: 63 6b 20 3d 20 64 65 73 69 72 65 64 4c 6f 63 6b  ck = desiredLock
3c40: 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  ;.  }..  return 
3c50: 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  rc;.}..static in
3c60: 74 20 74 76 66 73 53 68 6d 43 6c 6f 73 65 28 0a  t tvfsShmClose(.
3c70: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
3c80: 56 66 73 2c 20 0a 20 20 73 71 6c 69 74 65 33 5f  Vfs, .  sqlite3_
3c90: 73 68 6d 20 2a 70 53 68 6d 48 61 6e 64 6c 65 2c  shm *pShmHandle,
3ca0: 20 0a 20 20 69 6e 74 20 64 65 6c 65 74 65 46 6c   .  int deleteFl
3cb0: 61 67 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d  ag.){.  int rc =
3cc0: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65   SQLITE_OK;.  Te
3cd0: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
3ce0: 76 66 73 20 2a 29 28 70 56 66 73 2d 3e 70 41 70  vfs *)(pVfs->pAp
3cf0: 70 44 61 74 61 29 3b 0a 20 20 54 65 73 74 76 66  pData);.  Testvf
3d00: 73 53 68 6d 20 2a 70 53 68 6d 20 3d 20 28 54 65  sShm *pShm = (Te
3d10: 73 74 76 66 73 53 68 6d 20 2a 29 70 53 68 6d 48  stvfsShm *)pShmH
3d20: 61 6e 64 6c 65 3b 0a 20 20 54 65 73 74 76 66 73  andle;.  Testvfs
3d30: 42 75 66 66 65 72 20 2a 70 42 75 66 66 65 72 20  Buffer *pBuffer 
3d40: 3d 20 70 53 68 6d 2d 3e 70 42 75 66 66 65 72 3b  = pShm->pBuffer;
3d50: 0a 0a 23 69 66 20 30 0a 20 20 61 73 73 65 72 74  ..#if 0.  assert
3d60: 28 20 28 64 65 6c 65 74 65 46 6c 61 67 21 3d 30  ( (deleteFlag!=0
3d70: 29 3d 3d 28 70 42 75 66 66 65 72 2d 3e 6e 52 65  )==(pBuffer->nRe
3d80: 66 3d 3d 31 29 20 29 3b 0a 23 65 6e 64 69 66 0a  f==1) );.#endif.
3d90: 0a 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70  .  tvfsExecTcl(p
3da0: 2c 20 22 78 53 68 6d 43 6c 6f 73 65 22 2c 20 0a  , "xShmClose", .
3db0: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72        Tcl_NewStr
3dc0: 69 6e 67 4f 62 6a 28 70 53 68 6d 2d 3e 70 42 75  ingObj(pShm->pBu
3dd0: 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 2d 31 29  ffer->zFile, -1)
3de0: 2c 20 70 53 68 6d 2d 3e 69 64 2c 20 30 0a 20 20  , pShm->id, 0.  
3df0: 29 3b 0a 20 20 74 76 66 73 52 65 73 75 6c 74 43  );.  tvfsResultC
3e00: 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 0a 20 20  ode(p, &rc);..  
3e10: 70 42 75 66 66 65 72 2d 3e 6e 52 65 66 2d 2d 3b  pBuffer->nRef--;
3e20: 0a 20 20 69 66 28 20 70 42 75 66 66 65 72 2d 3e  .  if( pBuffer->
3e30: 6e 52 65 66 3d 3d 30 20 29 7b 0a 20 20 20 20 54  nRef==0 ){.    T
3e40: 65 73 74 76 66 73 42 75 66 66 65 72 20 2a 2a 70  estvfsBuffer **p
3e50: 70 3b 0a 20 20 20 20 66 6f 72 28 70 70 3d 26 70  p;.    for(pp=&p
3e60: 2d 3e 70 42 75 66 66 65 72 3b 20 2a 70 70 21 3d  ->pBuffer; *pp!=
3e70: 70 42 75 66 66 65 72 3b 20 70 70 3d 26 28 28 2a  pBuffer; pp=&((*
3e80: 70 70 29 2d 3e 70 4e 65 78 74 29 29 3b 0a 20 20  pp)->pNext));.  
3e90: 20 20 2a 70 70 20 3d 20 28 2a 70 70 29 2d 3e 70    *pp = (*pp)->p
3ea0: 4e 65 78 74 3b 0a 20 20 20 20 63 6b 66 72 65 65  Next;.    ckfree
3eb0: 28 28 63 68 61 72 20 2a 29 70 42 75 66 66 65 72  ((char *)pBuffer
3ec0: 2d 3e 61 29 3b 0a 20 20 20 20 63 6b 66 72 65 65  ->a);.    ckfree
3ed0: 28 28 63 68 61 72 20 2a 29 70 42 75 66 66 65 72  ((char *)pBuffer
3ee0: 29 3b 0a 20 20 7d 0a 20 20 54 63 6c 5f 44 65 63  );.  }.  Tcl_Dec
3ef0: 72 52 65 66 43 6f 75 6e 74 28 70 53 68 6d 2d 3e  rRefCount(pShm->
3f00: 69 64 29 3b 0a 20 20 63 6b 66 72 65 65 28 28 63  id);.  ckfree((c
3f10: 68 61 72 20 2a 29 70 53 68 6d 29 3b 0a 0a 20 20  har *)pShm);..  
3f20: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74  return rc;.}..st
3f30: 61 74 69 63 20 69 6e 74 20 74 65 73 74 76 66 73  atic int testvfs
3f40: 5f 6f 62 6a 5f 63 6d 64 28 0a 20 20 43 6c 69 65  _obj_cmd(.  Clie
3f50: 6e 74 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c  ntData cd,.  Tcl
3f60: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
3f70: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
3f80: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
3f90: 6a 76 5b 5d 0a 29 7b 0a 20 20 54 65 73 74 76 66  jv[].){.  Testvf
3fa0: 73 20 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20  s *p = (Testvfs 
3fb0: 2a 29 63 64 3b 0a 0a 20 20 73 74 61 74 69 63 20  *)cd;..  static 
3fc0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 43 4d 44 5f  const char *CMD_
3fd0: 73 74 72 73 5b 5d 20 3d 20 7b 20 22 73 68 6d 22  strs[] = { "shm"
3fe0: 2c 20 22 64 65 6c 65 74 65 22 2c 20 30 20 7d 3b  , "delete", 0 };
3ff0: 0a 20 20 65 6e 75 6d 20 44 42 5f 65 6e 75 6d 20  .  enum DB_enum 
4000: 7b 20 43 4d 44 5f 53 48 4d 2c 20 43 4d 44 5f 44  { CMD_SHM, CMD_D
4010: 45 4c 45 54 45 20 7d 3b 0a 20 20 69 6e 74 20 69  ELETE };.  int i
4020: 3b 0a 20 20 0a 20 20 69 66 28 20 6f 62 6a 63 3c  ;.  .  if( objc<
4030: 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f  2 ){.    Tcl_Wro
4040: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
4050: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 53 55 42 43  , 1, objv, "SUBC
4060: 4f 4d 4d 41 4e 44 20 2e 2e 2e 22 29 3b 0a 20 20  OMMAND ...");.  
4070: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
4080: 4f 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 54 63  OR;.  }.  if( Tc
4090: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62  l_GetIndexFromOb
40a0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31  j(interp, objv[1
40b0: 5d 2c 20 43 4d 44 5f 73 74 72 73 2c 20 22 73 75  ], CMD_strs, "su
40c0: 62 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c 20 26 69  bcommand", 0, &i
40d0: 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  ) ){.    return 
40e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
40f0: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74   Tcl_ResetResult
4100: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 73 77 69  (interp);..  swi
4110: 74 63 68 28 20 28 65 6e 75 6d 20 44 42 5f 65 6e  tch( (enum DB_en
4120: 75 6d 29 69 20 29 7b 0a 20 20 20 20 63 61 73 65  um)i ){.    case
4130: 20 43 4d 44 5f 53 48 4d 3a 20 7b 0a 20 20 20 20   CMD_SHM: {.    
4140: 20 20 54 65 73 74 76 66 73 42 75 66 66 65 72 20    TestvfsBuffer 
4150: 2a 70 42 75 66 66 65 72 3b 0a 20 20 20 20 20 20  *pBuffer;.      
4160: 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20  char *zName;.   
4170: 20 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 26     if( objc!=3 &
4180: 26 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20  & objc!=4 ){.   
4190: 20 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75       Tcl_WrongNu
41a0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c  mArgs(interp, 2,
41b0: 20 6f 62 6a 76 2c 20 22 46 49 4c 45 20 3f 56 41   objv, "FILE ?VA
41c0: 4c 55 45 3f 22 29 3b 0a 20 20 20 20 20 20 20 20  LUE?");.        
41d0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
41e0: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
41f0: 7a 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53  zName = Tcl_GetS
4200: 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a  tring(objv[2]);.
4210: 20 20 20 20 20 20 66 6f 72 28 70 42 75 66 66 65        for(pBuffe
4220: 72 3d 70 2d 3e 70 42 75 66 66 65 72 3b 20 70 42  r=p->pBuffer; pB
4230: 75 66 66 65 72 3b 20 70 42 75 66 66 65 72 3d 70  uffer; pBuffer=p
4240: 42 75 66 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a  Buffer->pNext){.
4250: 20 20 20 20 20 20 20 20 69 66 28 20 30 3d 3d 73          if( 0==s
4260: 74 72 63 6d 70 28 70 42 75 66 66 65 72 2d 3e 7a  trcmp(pBuffer->z
4270: 46 69 6c 65 2c 20 7a 4e 61 6d 65 29 20 29 20 62  File, zName) ) b
4280: 72 65 61 6b 3b 0a 20 20 20 20 20 20 7d 0a 20 20  reak;.      }.  
4290: 20 20 20 20 69 66 28 20 21 70 42 75 66 66 65 72      if( !pBuffer
42a0: 20 29 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f   ){.        Tcl_
42b0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
42c0: 65 72 70 2c 20 22 6e 6f 20 73 75 63 68 20 66 69  erp, "no such fi
42d0: 6c 65 3a 20 22 2c 20 7a 4e 61 6d 65 2c 20 30 29  le: ", zName, 0)
42e0: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  ;.        return
42f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
4300: 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 6f 62    }.      if( ob
4310: 6a 63 3d 3d 34 20 29 7b 0a 20 20 20 20 20 20 20  jc==4 ){.       
4320: 20 69 6e 74 20 6e 3b 0a 20 20 20 20 20 20 20 20   int n;.        
4330: 75 38 20 2a 61 20 3d 20 54 63 6c 5f 47 65 74 42  u8 *a = Tcl_GetB
4340: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28  yteArrayFromObj(
4350: 6f 62 6a 76 5b 33 5d 2c 20 26 6e 29 3b 0a 20 20  objv[3], &n);.  
4360: 20 20 20 20 20 20 70 42 75 66 66 65 72 2d 3e 61        pBuffer->a
4370: 20 3d 20 28 75 38 20 2a 29 63 6b 72 65 61 6c 6c   = (u8 *)ckreall
4380: 6f 63 28 28 63 68 61 72 20 2a 29 70 42 75 66 66  oc((char *)pBuff
4390: 65 72 2d 3e 61 2c 20 6e 29 3b 0a 20 20 20 20 20  er->a, n);.     
43a0: 20 20 20 70 42 75 66 66 65 72 2d 3e 6e 20 3d 20     pBuffer->n = 
43b0: 6e 3b 0a 20 20 20 20 20 20 20 20 6d 65 6d 63 70  n;.        memcp
43c0: 79 28 70 42 75 66 66 65 72 2d 3e 61 2c 20 61 2c  y(pBuffer->a, a,
43d0: 20 6e 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20   n);.      }.   
43e0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
43f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
4400: 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28  NewByteArrayObj(
4410: 70 42 75 66 66 65 72 2d 3e 61 2c 20 70 42 75 66  pBuffer->a, pBuf
4420: 66 65 72 2d 3e 6e 29 29 3b 0a 20 20 20 20 20 20  fer->n));.      
4430: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20  break;.    }.   
4440: 20 63 61 73 65 20 43 4d 44 5f 44 45 4c 45 54 45   case CMD_DELETE
4450: 3a 20 7b 0a 20 20 20 20 20 20 54 63 6c 5f 44 65  : {.      Tcl_De
4460: 6c 65 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  leteCommand(inte
4470: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  rp, Tcl_GetStrin
4480: 67 28 6f 62 6a 76 5b 30 5d 29 29 3b 0a 20 20 20  g(objv[0]));.   
4490: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a     break;.    }.
44a0: 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43    }..  return TC
44b0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20  L_OK;.}..static 
44c0: 76 6f 69 64 20 74 65 73 74 76 66 73 5f 6f 62 6a  void testvfs_obj
44d0: 5f 64 65 6c 28 43 6c 69 65 6e 74 44 61 74 61 20  _del(ClientData 
44e0: 63 64 29 7b 0a 20 20 69 6e 74 20 69 3b 0a 20 20  cd){.  int i;.  
44f0: 54 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65  Testvfs *p = (Te
4500: 73 74 76 66 73 20 2a 29 63 64 3b 0a 20 20 66 6f  stvfs *)cd;.  fo
4510: 72 28 69 3d 30 3b 20 69 3c 70 2d 3e 6e 53 63 72  r(i=0; i<p->nScr
4520: 69 70 74 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54  ipt; i++){.    T
4530: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28  cl_DecrRefCount(
4540: 70 2d 3e 61 70 53 63 72 69 70 74 5b 69 5d 29 3b  p->apScript[i]);
4550: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 76  .  }.  sqlite3_v
4560: 66 73 5f 75 6e 72 65 67 69 73 74 65 72 28 70 2d  fs_unregister(p-
4570: 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66 72 65 65  >pVfs);.  ckfree
4580: 28 28 63 68 61 72 20 2a 29 70 2d 3e 70 56 66 73  ((char *)p->pVfs
4590: 29 3b 0a 20 20 63 6b 66 72 65 65 28 28 63 68 61  );.  ckfree((cha
45a0: 72 20 2a 29 70 29 3b 0a 7d 0a 0a 23 64 65 66 69  r *)p);.}..#defi
45b0: 6e 65 20 54 45 53 54 56 46 53 5f 4d 41 58 5f 41  ne TESTVFS_MAX_A
45c0: 52 47 53 20 31 32 0a 0a 2f 2a 0a 2a 2a 20 55 73  RGS 12../*.** Us
45d0: 61 67 65 3a 20 20 74 65 73 74 76 66 73 20 56 46  age:  testvfs VF
45e0: 53 4e 41 4d 45 20 53 43 52 49 50 54 0a 2a 2a 0a  SNAME SCRIPT.**.
45f0: 2a 2a 20 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20  ** This command 
4600: 63 72 65 61 74 65 73 20 74 77 6f 20 74 68 69 6e  creates two thin
4610: 67 73 20 77 68 65 6e 20 69 74 20 69 73 20 69 6e  gs when it is in
4620: 76 6f 6b 65 64 3a 20 61 6e 20 53 51 4c 69 74 65  voked: an SQLite
4630: 20 56 46 53 2c 20 61 6e 64 0a 2a 2a 20 61 20 54   VFS, and.** a T
4640: 63 6c 20 63 6f 6d 6d 61 6e 64 2e 20 42 6f 74 68  cl command. Both
4650: 20 61 72 65 20 6e 61 6d 65 64 20 56 46 53 4e 41   are named VFSNA
4660: 4d 45 2e 20 54 68 65 20 56 46 53 20 69 73 20 69  ME. The VFS is i
4670: 6e 73 74 61 6c 6c 65 64 2e 20 49 74 20 69 73 20  nstalled. It is 
4680: 6e 6f 74 0a 2a 2a 20 69 6e 73 74 61 6c 6c 65 64  not.** installed
4690: 20 61 73 20 74 68 65 20 64 65 66 61 75 6c 74 20   as the default 
46a0: 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 56  VFS..**.** The V
46b0: 46 53 20 70 61 73 73 65 73 20 61 6c 6c 20 66 69  FS passes all fi
46c0: 6c 65 20 49 2f 4f 20 63 61 6c 6c 73 20 74 68 72  le I/O calls thr
46d0: 6f 75 67 68 20 74 6f 20 74 68 65 20 75 6e 64 65  ough to the unde
46e0: 72 6c 79 69 6e 67 20 56 46 53 2e 0a 2a 2a 0a 2a  rlying VFS..**.*
46f0: 2a 20 57 68 65 6e 65 76 65 72 20 6f 6e 65 20 6f  * Whenever one o
4700: 66 20 74 68 65 20 78 53 68 6d 53 69 7a 65 2c 20  f the xShmSize, 
4710: 78 53 68 6d 47 65 74 20 6f 72 20 78 53 68 6d 52  xShmGet or xShmR
4720: 65 6c 65 61 73 65 20 6d 65 74 68 6f 64 73 20 6f  elease methods o
4730: 66 20 74 68 65 20 56 46 53 0a 2a 2a 20 61 72 65  f the VFS.** are
4740: 20 69 6e 76 6f 6b 65 64 2c 20 74 68 65 20 53 43   invoked, the SC
4750: 52 49 50 54 20 69 73 20 65 78 65 63 75 74 65 64  RIPT is executed
4760: 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2a 2a 0a   as follows:.**.
4770: 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53 68 6d  **   SCRIPT xShm
4780: 53 69 7a 65 20 20 20 20 46 49 4c 45 4e 41 4d 45  Size    FILENAME
4790: 20 49 44 0a 2a 2a 20 20 20 53 43 52 49 50 54 20   ID.**   SCRIPT 
47a0: 78 53 68 6d 47 65 74 20 20 20 20 20 46 49 4c 45  xShmGet     FILE
47b0: 4e 41 4d 45 20 49 44 0a 2a 2a 20 20 20 53 43 52  NAME ID.**   SCR
47c0: 49 50 54 20 78 53 68 6d 52 65 6c 65 61 73 65 20  IPT xShmRelease 
47d0: 46 49 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a 0a 2a  FILENAME ID.**.*
47e0: 2a 20 54 68 65 20 76 61 6c 75 65 20 72 65 74 75  * The value retu
47f0: 72 6e 65 64 20 62 79 20 74 68 65 20 69 6e 76 6f  rned by the invo
4800: 63 61 74 69 6f 6e 20 6f 66 20 53 43 52 49 50 54  cation of SCRIPT
4810: 20 61 62 6f 76 65 20 69 73 20 69 6e 74 65 72 70   above is interp
4820: 72 65 74 65 64 20 61 73 0a 2a 2a 20 61 6e 20 53  reted as.** an S
4830: 51 4c 69 74 65 20 65 72 72 6f 72 20 63 6f 64 65  QLite error code
4840: 20 61 6e 64 20 72 65 74 75 72 6e 65 64 20 74 6f   and returned to
4850: 20 53 51 4c 69 74 65 2e 20 45 69 74 68 65 72 20   SQLite. Either 
4860: 61 20 73 79 6d 62 6f 6c 69 63 20 0a 2a 2a 20 22  a symbolic .** "
4870: 53 51 4c 49 54 45 5f 4f 4b 22 20 6f 72 20 6e 75  SQLITE_OK" or nu
4880: 6d 65 72 69 63 20 22 30 22 20 76 61 6c 75 65 20  meric "0" value 
4890: 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65 64 2e  may be returned.
48a0: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 63 6f 6e 74 65  .**.** The conte
48b0: 6e 74 73 20 6f 66 20 74 68 65 20 73 68 61 72 65  nts of the share
48c0: 64 2d 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 20  d-memory buffer 
48d0: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
48e0: 61 20 67 69 76 65 6e 20 66 69 6c 65 0a 2a 2a 20  a given file.** 
48f0: 6d 61 79 20 62 65 20 72 65 61 64 20 61 6e 64 20  may be read and 
4900: 73 65 74 20 75 73 69 6e 67 20 74 68 65 20 66 6f  set using the fo
4910: 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 3a  llowing command:
4920: 0a 2a 2a 0a 2a 2a 20 20 20 56 46 53 4e 41 4d 45  .**.**   VFSNAME
4930: 20 73 68 6d 20 46 49 4c 45 4e 41 4d 45 20 3f 4e   shm FILENAME ?N
4940: 45 57 56 41 4c 55 45 3f 0a 2a 2a 0a 2a 2a 20 57  EWVALUE?.**.** W
4950: 68 65 6e 20 74 68 65 20 78 53 68 6d 4c 6f 63 6b  hen the xShmLock
4960: 20 6d 65 74 68 6f 64 20 69 73 20 69 6e 76 6f 6b   method is invok
4970: 65 64 20 62 79 20 53 51 4c 69 74 65 2c 20 74 68  ed by SQLite, th
4980: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 63 72 69  e following scri
4990: 70 74 20 69 73 0a 2a 2a 20 72 75 6e 3a 0a 2a 2a  pt is.** run:.**
49a0: 0a 2a 2a 20 20 20 53 43 52 49 50 54 20 78 53 68  .**   SCRIPT xSh
49b0: 6d 4c 6f 63 6b 20 20 20 20 46 49 4c 45 4e 41 4d  mLock    FILENAM
49c0: 45 20 49 44 20 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20  E ID LOCK.**.** 
49d0: 77 68 65 72 65 20 4c 4f 43 4b 20 69 73 20 6f 6e  where LOCK is on
49e0: 65 20 6f 66 20 22 55 4e 4c 4f 43 4b 22 2c 20 22  e of "UNLOCK", "
49f0: 52 45 41 44 22 2c 20 22 52 45 41 44 5f 46 55 4c  READ", "READ_FUL
4a00: 4c 22 2c 20 22 57 52 49 54 45 22 2c 20 22 50 45  L", "WRITE", "PE
4a10: 4e 44 49 4e 47 22 2c 0a 2a 2a 20 22 43 48 45 43  NDING",.** "CHEC
4a20: 4b 50 4f 49 4e 54 22 20 6f 72 20 22 52 45 43 4f  KPOINT" or "RECO
4a30: 56 45 52 22 2e 20 54 68 65 20 73 63 72 69 70 74  VER". The script
4a40: 20 73 68 6f 75 6c 64 20 72 65 74 75 72 6e 20 61   should return a
4a50: 6e 20 53 51 4c 69 74 65 20 65 72 72 6f 72 0a 2a  n SQLite error.*
4a60: 2a 20 63 6f 64 65 2e 0a 2a 2f 0a 73 74 61 74 69  * code..*/.stati
4a70: 63 20 69 6e 74 20 74 65 73 74 76 66 73 5f 63 6d  c int testvfs_cm
4a80: 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20  d(.  ClientData 
4a90: 63 64 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  cd,.  Tcl_Interp
4aa0: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
4ab0: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
4ac0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
4ad0: 0a 0a 20 20 73 74 61 74 69 63 20 73 71 6c 69 74  ..  static sqlit
4ae0: 65 33 5f 76 66 73 20 74 76 66 73 5f 76 66 73 20  e3_vfs tvfs_vfs 
4af0: 3d 20 7b 0a 20 20 20 20 32 2c 20 20 20 20 20 20  = {.    2,      
4b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b10: 20 20 20 20 20 20 2f 2a 20 69 56 65 72 73 69 6f        /* iVersio
4b20: 6e 20 2a 2f 0a 20 20 20 20 73 69 7a 65 6f 66 28  n */.    sizeof(
4b30: 74 76 66 73 5f 66 69 6c 65 29 2c 20 20 20 20 20  tvfs_file),     
4b40: 20 20 20 20 20 20 20 2f 2a 20 73 7a 4f 73 46 69         /* szOsFi
4b50: 6c 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20  le */.    0,    
4b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b70: 20 20 20 20 20 20 20 20 2f 2a 20 6d 78 50 61 74          /* mxPat
4b80: 68 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 30 2c 20  hname */.    0, 
4b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ba0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70 4e             /* pN
4bb0: 65 78 74 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20  ext */.    0,   
4bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4bd0: 20 20 20 20 20 20 20 20 20 2f 2a 20 7a 4e 61 6d           /* zNam
4be0: 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  e */.    0,     
4bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c00: 20 20 20 20 20 20 20 2f 2a 20 70 41 70 70 44 61         /* pAppDa
4c10: 74 61 20 2a 2f 0a 20 20 20 20 74 76 66 73 4f 70  ta */.    tvfsOp
4c20: 65 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  en,             
4c30: 20 20 20 20 20 20 20 20 2f 2a 20 78 4f 70 65 6e          /* xOpen
4c40: 20 2a 2f 0a 20 20 20 20 74 76 66 73 44 65 6c 65   */.    tvfsDele
4c50: 74 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  te,             
4c60: 20 20 20 20 20 20 2f 2a 20 78 44 65 6c 65 74 65        /* xDelete
4c70: 20 2a 2f 0a 20 20 20 20 74 76 66 73 41 63 63 65   */.    tvfsAcce
4c80: 73 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  ss,             
4c90: 20 20 20 20 20 20 2f 2a 20 78 41 63 63 65 73 73        /* xAccess
4ca0: 20 2a 2f 0a 20 20 20 20 74 76 66 73 46 75 6c 6c   */.    tvfsFull
4cb0: 50 61 74 68 6e 61 6d 65 2c 20 20 20 20 20 20 20  Pathname,       
4cc0: 20 20 20 20 20 20 2f 2a 20 78 46 75 6c 6c 50 61        /* xFullPa
4cd0: 74 68 6e 61 6d 65 20 2a 2f 0a 23 69 66 6e 64 65  thname */.#ifnde
4ce0: 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f  f SQLITE_OMIT_LO
4cf0: 41 44 5f 45 58 54 45 4e 53 49 4f 4e 0a 20 20 20  AD_EXTENSION.   
4d00: 20 74 76 66 73 44 6c 4f 70 65 6e 2c 20 20 20 20   tvfsDlOpen,    
4d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4d20: 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20  * xDlOpen */.   
4d30: 20 74 76 66 73 44 6c 45 72 72 6f 72 2c 20 20 20   tvfsDlError,   
4d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4d50: 2a 20 78 44 6c 45 72 72 6f 72 20 2a 2f 0a 20 20  * xDlError */.  
4d60: 20 20 74 76 66 73 44 6c 53 79 6d 2c 20 20 20 20    tvfsDlSym,    
4d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4d80: 2f 2a 20 78 44 6c 53 79 6d 20 2a 2f 0a 20 20 20  /* xDlSym */.   
4d90: 20 74 76 66 73 44 6c 43 6c 6f 73 65 2c 20 20 20   tvfsDlClose,   
4da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4db0: 2a 20 78 44 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65  * xDlClose */.#e
4dc0: 6c 73 65 0a 20 20 20 20 30 2c 20 20 20 20 20 20  lse.    0,      
4dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4de0: 20 20 20 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e        /* xDlOpen
4df0: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
4e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e10: 20 20 20 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f        /* xDlErro
4e20: 72 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  r */.    0,     
4e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e40: 20 20 20 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d         /* xDlSym
4e50: 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20 20   */.    0,      
4e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e70: 20 20 20 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73        /* xDlClos
4e80: 65 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 53  e */.#endif /* S
4e90: 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44 5f  QLITE_OMIT_LOAD_
4ea0: 45 58 54 45 4e 53 49 4f 4e 20 2a 2f 0a 20 20 20  EXTENSION */.   
4eb0: 20 74 76 66 73 52 61 6e 64 6f 6d 6e 65 73 73 2c   tvfsRandomness,
4ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
4ed0: 2a 20 78 52 61 6e 64 6f 6d 6e 65 73 73 20 2a 2f  * xRandomness */
4ee0: 0a 20 20 20 20 74 76 66 73 53 6c 65 65 70 2c 20  .    tvfsSleep, 
4ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f00: 20 20 20 2f 2a 20 78 53 6c 65 65 70 20 2a 2f 0a     /* xSleep */.
4f10: 20 20 20 20 74 76 66 73 43 75 72 72 65 6e 74 54      tvfsCurrentT
4f20: 69 6d 65 2c 20 20 20 20 20 20 20 20 20 20 20 20  ime,            
4f30: 20 20 2f 2a 20 78 43 75 72 72 65 6e 74 54 69 6d    /* xCurrentTim
4f40: 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  e */.    0,     
4f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f60: 20 20 20 20 20 20 20 2f 2a 20 78 47 65 74 4c 61         /* xGetLa
4f70: 73 74 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 74  stError */.    t
4f80: 76 66 73 53 68 6d 4f 70 65 6e 2c 0a 20 20 20 20  vfsShmOpen,.    
4f90: 74 76 66 73 53 68 6d 53 69 7a 65 2c 0a 20 20 20  tvfsShmSize,.   
4fa0: 20 74 76 66 73 53 68 6d 47 65 74 2c 0a 20 20 20   tvfsShmGet,.   
4fb0: 20 74 76 66 73 53 68 6d 52 65 6c 65 61 73 65 2c   tvfsShmRelease,
4fc0: 0a 20 20 20 20 74 76 66 73 53 68 6d 4c 6f 63 6b  .    tvfsShmLock
4fd0: 2c 0a 20 20 20 20 74 76 66 73 53 68 6d 43 6c 6f  ,.    tvfsShmClo
4fe0: 73 65 2c 0a 20 20 20 20 30 2c 0a 20 20 20 20 30  se,.    0,.    0
4ff0: 2c 0a 20 20 7d 3b 0a 0a 20 20 54 65 73 74 76 66  ,.  };..  Testvf
5000: 73 20 2a 70 3b 20 20 20 20 20 20 20 20 20 20 20  s *p;           
5010: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 65 77            /* New
5020: 20 6f 62 6a 65 63 74 20 2a 2f 0a 20 20 73 71 6c   object */.  sql
5030: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 3b 20  ite3_vfs *pVfs; 
5040: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
5050: 4e 65 77 20 56 46 53 20 2a 2f 0a 20 20 63 68 61  New VFS */.  cha
5060: 72 20 2a 7a 56 66 73 3b 0a 20 20 54 63 6c 5f 4f  r *zVfs;.  Tcl_O
5070: 62 6a 20 2a 70 53 63 72 69 70 74 3b 0a 20 20 69  bj *pScript;.  i
5080: 6e 74 20 6e 53 63 72 69 70 74 3b 20 20 20 20 20  nt nScript;     
5090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
50a0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 6d  * Number of elem
50b0: 65 6e 74 73 20 69 6e 20 6c 69 73 74 20 70 53 63  ents in list pSc
50c0: 72 69 70 74 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62  ript */.  Tcl_Ob
50d0: 6a 20 2a 2a 61 70 53 63 72 69 70 74 3b 20 20 20  j **apScript;   
50e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 41 72 72            /* Arr
50f0: 61 79 20 6f 66 20 70 53 63 72 69 70 74 20 65 6c  ay of pScript el
5100: 65 6d 65 6e 74 73 20 2a 2f 0a 20 20 69 6e 74 20  ements */.  int 
5110: 6e 42 79 74 65 3b 20 20 20 20 20 20 20 20 20 20  nByte;          
5120: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 42              /* B
5130: 79 74 65 73 20 6f 66 20 73 70 61 63 65 20 74 6f  ytes of space to
5140: 20 61 6c 6c 6f 63 61 74 65 20 61 74 20 70 20 2a   allocate at p *
5150: 2f 0a 20 20 69 6e 74 20 69 3b 20 20 20 20 20 20  /.  int i;      
5160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5170: 20 20 20 20 2f 2a 20 43 6f 75 6e 74 65 72 20 76      /* Counter v
5180: 61 72 69 61 62 6c 65 20 2a 2f 0a 0a 20 20 69 66  ariable */..  if
5190: 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20  ( objc!=3 ){.   
51a0: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
51b0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
51c0: 76 2c 20 22 56 46 53 4e 41 4d 45 20 53 43 52 49  v, "VFSNAME SCRI
51d0: 50 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  PT");.    return
51e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
51f0: 20 20 7a 56 66 73 20 3d 20 54 63 6c 5f 47 65 74    zVfs = Tcl_Get
5200: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b  String(objv[1]);
5210: 0a 20 20 70 53 63 72 69 70 74 20 3d 20 6f 62 6a  .  pScript = obj
5220: 76 5b 32 5d 3b 0a 0a 20 20 69 66 28 20 54 43 4c  v[2];..  if( TCL
5230: 5f 4f 4b 21 3d 54 63 6c 5f 4c 69 73 74 4f 62 6a  _OK!=Tcl_ListObj
5240: 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65  GetElements(inte
5250: 72 70 2c 20 70 53 63 72 69 70 74 2c 20 26 6e 53  rp, pScript, &nS
5260: 63 72 69 70 74 2c 20 26 61 70 53 63 72 69 70 74  cript, &apScript
5270: 29 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  ) ){.    return 
5280: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a  TCL_ERROR;.  }..
5290: 20 20 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f 66    nByte = sizeof
52a0: 28 54 65 73 74 76 66 73 29 0a 20 20 20 20 20 20  (Testvfs).      
52b0: 20 20 2b 20 28 6e 53 63 72 69 70 74 2b 54 45 53    + (nScript+TES
52c0: 54 56 46 53 5f 4d 41 58 5f 41 52 47 53 29 2a 73  TVFS_MAX_ARGS)*s
52d0: 69 7a 65 6f 66 28 54 63 6c 5f 4f 62 6a 20 2a 29  izeof(Tcl_Obj *)
52e0: 20 0a 20 20 20 20 20 20 20 20 2b 20 73 74 72 6c   .        + strl
52f0: 65 6e 28 7a 56 66 73 29 2b 31 3b 0a 20 20 70 20  en(zVfs)+1;.  p 
5300: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 63 6b 61  = (Testvfs *)cka
5310: 6c 6c 6f 63 28 6e 42 79 74 65 29 3b 0a 20 20 6d  lloc(nByte);.  m
5320: 65 6d 73 65 74 28 70 2c 20 30 2c 20 6e 42 79 74  emset(p, 0, nByt
5330: 65 29 3b 0a 0a 20 20 70 2d 3e 70 50 61 72 65 6e  e);..  p->pParen
5340: 74 20 3d 20 73 71 6c 69 74 65 33 5f 76 66 73 5f  t = sqlite3_vfs_
5350: 66 69 6e 64 28 30 29 3b 0a 20 20 70 2d 3e 69 6e  find(0);.  p->in
5360: 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20  terp = interp;. 
5370: 20 70 2d 3e 6e 53 63 72 69 70 74 20 3d 20 6e 53   p->nScript = nS
5380: 63 72 69 70 74 3b 0a 20 20 70 2d 3e 61 70 53 63  cript;.  p->apSc
5390: 72 69 70 74 20 3d 20 28 54 63 6c 5f 4f 62 6a 20  ript = (Tcl_Obj 
53a0: 2a 2a 29 26 70 5b 31 5d 3b 0a 20 20 66 6f 72 28  **)&p[1];.  for(
53b0: 69 3d 30 3b 20 69 3c 6e 53 63 72 69 70 74 3b 20  i=0; i<nScript; 
53c0: 69 2b 2b 29 7b 0a 20 20 20 20 70 2d 3e 61 70 53  i++){.    p->apS
53d0: 63 72 69 70 74 5b 69 5d 20 3d 20 61 70 53 63 72  cript[i] = apScr
53e0: 69 70 74 5b 69 5d 3b 0a 20 20 20 20 54 63 6c 5f  ipt[i];.    Tcl_
53f0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 2d 3e  IncrRefCount(p->
5400: 61 70 53 63 72 69 70 74 5b 69 5d 29 3b 0a 20 20  apScript[i]);.  
5410: 7d 0a 20 20 70 2d 3e 7a 4e 61 6d 65 20 3d 20 28  }.  p->zName = (
5420: 63 68 61 72 20 2a 29 26 70 2d 3e 61 70 53 63 72  char *)&p->apScr
5430: 69 70 74 5b 6e 53 63 72 69 70 74 2b 54 45 53 54  ipt[nScript+TEST
5440: 56 46 53 5f 4d 41 58 5f 41 52 47 53 5d 3b 0a 20  VFS_MAX_ARGS];. 
5450: 20 73 74 72 63 70 79 28 70 2d 3e 7a 4e 61 6d 65   strcpy(p->zName
5460: 2c 20 7a 56 66 73 29 3b 0a 0a 20 20 70 56 66 73  , zVfs);..  pVfs
5470: 20 3d 20 28 73 71 6c 69 74 65 33 5f 76 66 73 20   = (sqlite3_vfs 
5480: 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66  *)ckalloc(sizeof
5490: 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b 0a  (sqlite3_vfs));.
54a0: 20 20 6d 65 6d 63 70 79 28 70 56 66 73 2c 20 26    memcpy(pVfs, &
54b0: 74 76 66 73 5f 76 66 73 2c 20 73 69 7a 65 6f 66  tvfs_vfs, sizeof
54c0: 28 73 71 6c 69 74 65 33 5f 76 66 73 29 29 3b 0a  (sqlite3_vfs));.
54d0: 20 20 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61    pVfs->pAppData
54e0: 20 3d 20 28 76 6f 69 64 20 2a 29 70 3b 0a 20 20   = (void *)p;.  
54f0: 70 56 66 73 2d 3e 7a 4e 61 6d 65 20 3d 20 70 2d  pVfs->zName = p-
5500: 3e 7a 4e 61 6d 65 3b 0a 20 20 70 56 66 73 2d 3e  >zName;.  pVfs->
5510: 6d 78 50 61 74 68 6e 61 6d 65 20 3d 20 70 2d 3e  mxPathname = p->
5520: 70 50 61 72 65 6e 74 2d 3e 6d 78 50 61 74 68 6e  pParent->mxPathn
5530: 61 6d 65 3b 0a 20 20 70 56 66 73 2d 3e 73 7a 4f  ame;.  pVfs->szO
5540: 73 46 69 6c 65 20 2b 3d 20 70 2d 3e 70 50 61 72  sFile += p->pPar
5550: 65 6e 74 2d 3e 73 7a 4f 73 46 69 6c 65 3b 0a 20  ent->szOsFile;. 
5560: 20 70 2d 3e 70 56 66 73 20 3d 20 70 56 66 73 3b   p->pVfs = pVfs;
5570: 0a 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62  ..  Tcl_CreateOb
5580: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c  jCommand(interp,
5590: 20 7a 56 66 73 2c 20 74 65 73 74 76 66 73 5f 6f   zVfs, testvfs_o
55a0: 62 6a 5f 63 6d 64 2c 20 70 2c 20 74 65 73 74 76  bj_cmd, p, testv
55b0: 66 73 5f 6f 62 6a 5f 64 65 6c 29 3b 0a 20 20 73  fs_obj_del);.  s
55c0: 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73  qlite3_vfs_regis
55d0: 74 65 72 28 70 56 66 73 2c 20 30 29 3b 0a 0a 20  ter(pVfs, 0);.. 
55e0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
55f0: 7d 0a 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73  }..int Sqlitetes
5600: 74 76 66 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e  tvfs_Init(Tcl_In
5610: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20  terp *interp){. 
5620: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f   Tcl_CreateObjCo
5630: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74  mmand(interp, "t
5640: 65 73 74 76 66 73 22 2c 20 74 65 73 74 76 66 73  estvfs", testvfs
5650: 5f 63 6d 64 2c 20 30 2c 20 30 29 3b 0a 20 20 72  _cmd, 0, 0);.  r
5660: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.
5670: 0a 23 65 6e 64 69 66 0a                          .#endif.