/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact a6a8b594b4b9ce884fcf7d822887b8e16e61f797:


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 20 20 7b 20 53  CKED" },.    { S
2c80: 51 4c 49 54 45 5f 42 55 53 59 2c 20 20 20 22 53  QLITE_BUSY,   "S
2c90: 51 4c 49 54 45 5f 42 55 53 59 22 20 20 20 7d 2c  QLITE_BUSY"   },
2ca0: 0a 20 20 7d 3b 0a 0a 20 20 63 6f 6e 73 74 20 63  .  };..  const c
2cb0: 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 69 3b  har *z;.  int i;
2cc0: 0a 0a 20 20 7a 20 3d 20 54 63 6c 5f 47 65 74 53  ..  z = Tcl_GetS
2cd0: 74 72 69 6e 67 52 65 73 75 6c 74 28 70 2d 3e 69  tringResult(p->i
2ce0: 6e 74 65 72 70 29 3b 0a 20 20 66 6f 72 28 69 3d  nterp);.  for(i=
2cf0: 30 3b 20 69 3c 41 72 72 61 79 53 69 7a 65 28 61  0; i<ArraySize(a
2d00: 43 6f 64 65 29 3b 20 69 2b 2b 29 7b 0a 20 20 20  Code); i++){.   
2d10: 20 69 66 28 20 30 3d 3d 73 74 72 63 6d 70 28 7a   if( 0==strcmp(z
2d20: 2c 20 61 43 6f 64 65 5b 69 5d 2e 7a 43 6f 64 65  , aCode[i].zCode
2d30: 29 20 29 7b 0a 20 20 20 20 20 20 2a 70 52 63 20  ) ){.      *pRc 
2d40: 3d 20 61 43 6f 64 65 5b 69 5d 2e 65 43 6f 64 65  = aCode[i].eCode
2d50: 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31  ;.      return 1
2d60: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72  ;.    }.  }..  r
2d70: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61 74  eturn 0;.}..stat
2d80: 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d 4f 70  ic int tvfsShmOp
2d90: 65 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66  en(.  sqlite3_vf
2da0: 73 20 2a 70 56 66 73 2c 20 0a 20 20 63 6f 6e 73  s *pVfs, .  cons
2db0: 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 0a  t char *zName, .
2dc0: 20 20 73 71 6c 69 74 65 33 5f 73 68 6d 20 2a 2a    sqlite3_shm **
2dd0: 70 70 0a 29 7b 0a 20 20 54 65 73 74 76 66 73 20  pp.){.  Testvfs 
2de0: 2a 70 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29  *p = (Testvfs *)
2df0: 28 70 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29  (pVfs->pAppData)
2e00: 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  ;.  int rc = SQL
2e10: 49 54 45 5f 4f 4b 3b 20 20 20 20 20 20 20 20 20  ITE_OK;         
2e20: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f      /* Return co
2e30: 64 65 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20  de */.  Tcl_Obj 
2e40: 2a 70 49 64 20 3d 20 30 3b 20 20 20 20 20 20 20  *pId = 0;       
2e50: 20 20 20 20 20 20 20 20 2f 2a 20 49 64 20 66 6f          /* Id fo
2e60: 72 20 74 68 69 73 20 63 6f 6e 6e 65 63 74 69 6f  r this connectio
2e70: 6e 20 2a 2f 0a 20 20 54 65 73 74 76 66 73 42 75  n */.  TestvfsBu
2e80: 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b 20 20  ffer *pBuffer;  
2e90: 20 20 20 20 20 20 20 2f 2a 20 42 75 66 66 65 72         /* Buffer
2ea0: 20 74 6f 20 6f 70 65 6e 20 63 6f 6e 6e 65 63 74   to open connect
2eb0: 69 6f 6e 20 74 6f 20 2a 2f 0a 20 20 54 65 73 74  ion to */.  Test
2ec0: 76 66 73 53 68 6d 20 2a 70 53 68 6d 3b 20 20 20  vfsShm *pShm;   
2ed0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
2ee0: 65 77 20 73 68 6d 20 68 61 6e 64 6c 65 20 2a 2f  ew shm handle */
2ef0: 0a 0a 20 20 2f 2a 20 45 76 61 6c 75 61 74 65 20  ..  /* Evaluate 
2f00: 74 68 65 20 54 63 6c 20 73 63 72 69 70 74 3a 20  the Tcl script: 
2f10: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 20 20 53 43 52  .  **.  **   SCR
2f20: 49 50 54 20 78 53 68 6d 4f 70 65 6e 20 46 49 4c  IPT xShmOpen FIL
2f30: 45 4e 41 4d 45 0a 20 20 2a 2a 0a 20 20 2a 2a 20  ENAME.  **.  ** 
2f40: 49 66 20 74 68 65 20 73 63 72 69 70 74 20 72 65  If the script re
2f50: 74 75 72 6e 73 20 61 6e 20 53 51 4c 69 74 65 20  turns an SQLite 
2f60: 65 72 72 6f 72 20 63 6f 64 65 20 6f 74 68 65 72  error code other
2f70: 20 74 68 61 6e 20 53 51 4c 49 54 45 5f 4f 4b 2c   than SQLITE_OK,
2f80: 20 61 6e 0a 20 20 2a 2a 20 65 72 72 6f 72 20 69   an.  ** error i
2f90: 73 20 72 65 74 75 72 6e 65 64 20 74 6f 20 74 68  s returned to th
2fa0: 65 20 63 61 6c 6c 65 72 2e 20 49 66 20 69 74 20  e caller. If it 
2fb0: 72 65 74 75 72 6e 73 20 53 51 4c 49 54 45 5f 4f  returns SQLITE_O
2fc0: 4b 2c 20 74 68 65 20 6e 65 77 0a 20 20 2a 2a 20  K, the new.  ** 
2fd0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 6e 61  connection is na
2fe0: 6d 65 64 20 22 61 6e 6f 6e 22 2e 20 4f 74 68 65  med "anon". Othe
2ff0: 72 77 69 73 65 2c 20 74 68 65 20 76 61 6c 75 65  rwise, the value
3000: 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 65   returned by the
3010: 0a 20 20 2a 2a 20 73 63 72 69 70 74 20 69 73 20  .  ** script is 
3020: 75 73 65 64 20 61 73 20 74 68 65 20 63 6f 6e 6e  used as the conn
3030: 65 63 74 69 6f 6e 20 6e 61 6d 65 2e 0a 20 20 2a  ection name..  *
3040: 2f 0a 20 20 74 76 66 73 45 78 65 63 54 63 6c 28  /.  tvfsExecTcl(
3050: 70 2c 20 22 78 53 68 6d 4f 70 65 6e 22 2c 20 54  p, "xShmOpen", T
3060: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
3070: 7a 4e 61 6d 65 2c 20 2d 31 29 2c 20 30 2c 20 30  zName, -1), 0, 0
3080: 29 3b 0a 20 20 69 66 28 20 74 76 66 73 52 65 73  );.  if( tvfsRes
3090: 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 20  ultCode(p, &rc) 
30a0: 29 7b 0a 20 20 20 20 69 66 28 20 72 63 21 3d 53  ){.    if( rc!=S
30b0: 51 4c 49 54 45 5f 4f 4b 20 29 20 72 65 74 75 72  QLITE_OK ) retur
30c0: 6e 20 72 63 3b 0a 20 20 20 20 70 49 64 20 3d 20  n rc;.    pId = 
30d0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
30e0: 28 22 61 6e 6f 6e 22 2c 20 2d 31 29 3b 0a 20 20  ("anon", -1);.  
30f0: 7d 65 6c 73 65 7b 0a 20 20 20 20 70 49 64 20 3d  }else{.    pId =
3100: 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c   Tcl_GetObjResul
3110: 74 28 70 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20  t(p->interp);.  
3120: 7d 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43  }.  Tcl_IncrRefC
3130: 6f 75 6e 74 28 70 49 64 29 3b 0a 0a 20 20 2f 2a  ount(pId);..  /*
3140: 20 41 6c 6c 6f 63 61 74 65 20 74 68 65 20 54 65   Allocate the Te
3150: 73 74 76 66 73 53 68 6d 20 68 61 6e 64 6c 65 2e  stvfsShm handle.
3160: 20 2a 2f 0a 20 20 70 53 68 6d 20 3d 20 28 54 65   */.  pShm = (Te
3170: 73 74 76 66 73 53 68 6d 20 2a 29 63 6b 61 6c 6c  stvfsShm *)ckall
3180: 6f 63 28 73 69 7a 65 6f 66 28 54 65 73 74 76 66  oc(sizeof(Testvf
3190: 73 53 68 6d 29 29 3b 0a 20 20 6d 65 6d 73 65 74  sShm));.  memset
31a0: 28 70 53 68 6d 2c 20 30 2c 20 73 69 7a 65 6f 66  (pShm, 0, sizeof
31b0: 28 54 65 73 74 76 66 73 53 68 6d 29 29 3b 0a 20  (TestvfsShm));. 
31c0: 20 70 53 68 6d 2d 3e 69 64 20 3d 20 70 49 64 3b   pShm->id = pId;
31d0: 0a 0a 20 20 2f 2a 20 53 65 61 72 63 68 20 66 6f  ..  /* Search fo
31e0: 72 20 61 20 54 65 73 74 76 66 73 42 75 66 66 65  r a TestvfsBuffe
31f0: 72 2e 20 43 72 65 61 74 65 20 61 20 6e 65 77 20  r. Create a new 
3200: 6f 6e 65 20 69 66 20 72 65 71 75 69 72 65 64 2e  one if required.
3210: 20 2a 2f 0a 20 20 66 6f 72 28 70 42 75 66 66 65   */.  for(pBuffe
3220: 72 3d 70 2d 3e 70 42 75 66 66 65 72 3b 20 70 42  r=p->pBuffer; pB
3230: 75 66 66 65 72 3b 20 70 42 75 66 66 65 72 3d 70  uffer; pBuffer=p
3240: 42 75 66 66 65 72 2d 3e 70 4e 65 78 74 29 7b 0a  Buffer->pNext){.
3250: 20 20 20 20 69 66 28 20 30 3d 3d 73 74 72 63 6d      if( 0==strcm
3260: 70 28 7a 4e 61 6d 65 2c 20 70 42 75 66 66 65 72  p(zName, pBuffer
3270: 2d 3e 7a 46 69 6c 65 29 20 29 20 62 72 65 61 6b  ->zFile) ) break
3280: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 21 70 42 75  ;.  }.  if( !pBu
3290: 66 66 65 72 20 29 7b 0a 20 20 20 20 69 6e 74 20  ffer ){.    int 
32a0: 6e 42 79 74 65 20 3d 20 73 69 7a 65 6f 66 28 54  nByte = sizeof(T
32b0: 65 73 74 76 66 73 42 75 66 66 65 72 29 20 2b 20  estvfsBuffer) + 
32c0: 73 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 20 2b 20  strlen(zName) + 
32d0: 31 3b 0a 20 20 20 20 70 42 75 66 66 65 72 20 3d  1;.    pBuffer =
32e0: 20 28 54 65 73 74 76 66 73 42 75 66 66 65 72 20   (TestvfsBuffer 
32f0: 2a 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29  *)ckalloc(nByte)
3300: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 70 42 75  ;.    memset(pBu
3310: 66 66 65 72 2c 20 30 2c 20 6e 42 79 74 65 29 3b  ffer, 0, nByte);
3320: 0a 20 20 20 20 70 42 75 66 66 65 72 2d 3e 7a 46  .    pBuffer->zF
3330: 69 6c 65 20 3d 20 28 63 68 61 72 20 2a 29 26 70  ile = (char *)&p
3340: 42 75 66 66 65 72 5b 31 5d 3b 0a 20 20 20 20 73  Buffer[1];.    s
3350: 74 72 63 70 79 28 70 42 75 66 66 65 72 2d 3e 7a  trcpy(pBuffer->z
3360: 46 69 6c 65 2c 20 7a 4e 61 6d 65 29 3b 0a 20 20  File, zName);.  
3370: 20 20 70 42 75 66 66 65 72 2d 3e 70 4e 65 78 74    pBuffer->pNext
3380: 20 3d 20 70 2d 3e 70 42 75 66 66 65 72 3b 0a 20   = p->pBuffer;. 
3390: 20 20 20 70 2d 3e 70 42 75 66 66 65 72 20 3d 20     p->pBuffer = 
33a0: 70 42 75 66 66 65 72 3b 0a 20 20 7d 0a 0a 20 20  pBuffer;.  }..  
33b0: 2f 2a 20 43 6f 6e 6e 65 63 74 20 74 68 65 20 54  /* Connect the T
33c0: 65 73 74 76 66 73 42 75 66 66 65 72 20 74 6f 20  estvfsBuffer to 
33d0: 74 68 65 20 6e 65 77 20 54 65 73 74 76 66 73 53  the new TestvfsS
33e0: 68 6d 20 68 61 6e 64 6c 65 20 61 6e 64 20 72 65  hm handle and re
33f0: 74 75 72 6e 2e 20 2a 2f 0a 20 20 70 42 75 66 66  turn. */.  pBuff
3400: 65 72 2d 3e 6e 52 65 66 2b 2b 3b 0a 20 20 70 53  er->nRef++;.  pS
3410: 68 6d 2d 3e 70 42 75 66 66 65 72 20 3d 20 70 42  hm->pBuffer = pB
3420: 75 66 66 65 72 3b 0a 20 20 2a 70 70 20 3d 20 28  uffer;.  *pp = (
3430: 73 71 6c 69 74 65 33 5f 73 68 6d 20 2a 29 70 53  sqlite3_shm *)pS
3440: 68 6d 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  hm;.  return SQL
3450: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69  ITE_OK;.}..stati
3460: 63 20 69 6e 74 20 74 76 66 73 53 68 6d 53 69 7a  c int tvfsShmSiz
3470: 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  e(.  sqlite3_vfs
3480: 20 2a 70 56 66 73 2c 0a 20 20 73 71 6c 69 74 65   *pVfs,.  sqlite
3490: 33 5f 73 68 6d 20 2a 70 53 68 6d 48 61 6e 64 6c  3_shm *pShmHandl
34a0: 65 2c 0a 20 20 69 6e 74 20 72 65 71 53 69 7a 65  e,.  int reqSize
34b0: 2c 0a 20 20 69 6e 74 20 2a 70 4e 65 77 53 69 7a  ,.  int *pNewSiz
34c0: 65 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20  e.){.  int rc = 
34d0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65 73  SQLITE_OK;.  Tes
34e0: 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74 76  tvfs *p = (Testv
34f0: 66 73 20 2a 29 28 70 56 66 73 2d 3e 70 41 70 70  fs *)(pVfs->pApp
3500: 44 61 74 61 29 3b 0a 20 20 54 65 73 74 76 66 73  Data);.  Testvfs
3510: 53 68 6d 20 2a 70 53 68 6d 20 3d 20 28 54 65 73  Shm *pShm = (Tes
3520: 74 76 66 73 53 68 6d 20 2a 29 70 53 68 6d 48 61  tvfsShm *)pShmHa
3530: 6e 64 6c 65 3b 0a 0a 20 20 74 76 66 73 45 78 65  ndle;..  tvfsExe
3540: 63 54 63 6c 28 70 2c 20 22 78 53 68 6d 53 69 7a  cTcl(p, "xShmSiz
3550: 65 22 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e  e", .      Tcl_N
3560: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 53 68 6d  ewStringObj(pShm
3570: 2d 3e 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65  ->pBuffer->zFile
3580: 2c 20 2d 31 29 2c 20 70 53 68 6d 2d 3e 69 64 2c  , -1), pShm->id,
3590: 20 30 0a 20 20 29 3b 0a 20 20 74 76 66 73 52 65   0.  );.  tvfsRe
35a0: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
35b0: 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49  ;.  if( rc==SQLI
35c0: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 74 76 66  TE_OK ){.    tvf
35d0: 73 47 72 6f 77 42 75 66 66 65 72 28 70 53 68 6d  sGrowBuffer(pShm
35e0: 2c 20 72 65 71 53 69 7a 65 2c 20 70 4e 65 77 53  , reqSize, pNewS
35f0: 69 7a 65 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75  ize);.  }.  retu
3600: 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63  rn rc;.}..static
3610: 20 69 6e 74 20 74 76 66 73 53 68 6d 47 65 74 28   int tvfsShmGet(
3620: 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a  .  sqlite3_vfs *
3630: 70 56 66 73 2c 0a 20 20 73 71 6c 69 74 65 33 5f  pVfs,.  sqlite3_
3640: 73 68 6d 20 2a 70 53 68 6d 48 61 6e 64 6c 65 2c  shm *pShmHandle,
3650: 20 0a 20 20 69 6e 74 20 72 65 71 4d 61 70 53 69   .  int reqMapSi
3660: 7a 65 2c 20 0a 20 20 69 6e 74 20 2a 70 4d 61 70  ze, .  int *pMap
3670: 53 69 7a 65 2c 20 0a 20 20 76 6f 69 64 20 2a 2a  Size, .  void **
3680: 70 70 0a 29 7b 0a 20 20 69 6e 74 20 72 63 20 3d  pp.){.  int rc =
3690: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 54 65   SQLITE_OK;.  Te
36a0: 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73 74  stvfs *p = (Test
36b0: 76 66 73 20 2a 29 28 70 56 66 73 2d 3e 70 41 70  vfs *)(pVfs->pAp
36c0: 70 44 61 74 61 29 3b 0a 20 20 54 65 73 74 76 66  pData);.  Testvf
36d0: 73 53 68 6d 20 2a 70 53 68 6d 20 3d 20 28 54 65  sShm *pShm = (Te
36e0: 73 74 76 66 73 53 68 6d 20 2a 29 70 53 68 6d 48  stvfsShm *)pShmH
36f0: 61 6e 64 6c 65 3b 0a 0a 20 20 74 76 66 73 47 72  andle;..  tvfsGr
3700: 6f 77 42 75 66 66 65 72 28 70 53 68 6d 2c 20 72  owBuffer(pShm, r
3710: 65 71 4d 61 70 53 69 7a 65 2c 20 70 4d 61 70 53  eqMapSize, pMapS
3720: 69 7a 65 29 3b 0a 20 20 74 76 66 73 45 78 65 63  ize);.  tvfsExec
3730: 54 63 6c 28 70 2c 20 22 78 53 68 6d 47 65 74 22  Tcl(p, "xShmGet"
3740: 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  , .      Tcl_New
3750: 53 74 72 69 6e 67 4f 62 6a 28 70 53 68 6d 2d 3e  StringObj(pShm->
3760: 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20  pBuffer->zFile, 
3770: 2d 31 29 2c 20 70 53 68 6d 2d 3e 69 64 2c 20 30  -1), pShm->id, 0
3780: 0a 20 20 29 3b 0a 20 20 74 76 66 73 52 65 73 75  .  );.  tvfsResu
3790: 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a  ltCode(p, &rc);.
37a0: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
37b0: 5f 4f 4b 20 29 7b 0a 20 20 20 20 2a 70 70 20 3d  _OK ){.    *pp =
37c0: 20 70 53 68 6d 2d 3e 70 42 75 66 66 65 72 2d 3e   pShm->pBuffer->
37d0: 61 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  a;.  }.  return 
37e0: 72 63 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e  rc;.}..static in
37f0: 74 20 74 76 66 73 53 68 6d 52 65 6c 65 61 73 65  t tvfsShmRelease
3800: 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56  (sqlite3_vfs *pV
3810: 66 73 2c 20 73 71 6c 69 74 65 33 5f 73 68 6d 20  fs, sqlite3_shm 
3820: 2a 70 53 68 6d 48 61 6e 64 6c 65 29 7b 0a 20 20  *pShmHandle){.  
3830: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f  int rc = SQLITE_
3840: 4f 4b 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70  OK;.  Testvfs *p
3850: 20 3d 20 28 54 65 73 74 76 66 73 20 2a 29 28 70   = (Testvfs *)(p
3860: 56 66 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a  Vfs->pAppData);.
3870: 20 20 54 65 73 74 76 66 73 53 68 6d 20 2a 70 53    TestvfsShm *pS
3880: 68 6d 20 3d 20 28 54 65 73 74 76 66 73 53 68 6d  hm = (TestvfsShm
3890: 20 2a 29 70 53 68 6d 48 61 6e 64 6c 65 3b 0a 0a   *)pShmHandle;..
38a0: 20 20 74 76 66 73 45 78 65 63 54 63 6c 28 70 2c    tvfsExecTcl(p,
38b0: 20 22 78 53 68 6d 52 65 6c 65 61 73 65 22 2c 20   "xShmRelease", 
38c0: 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 53 74  .      Tcl_NewSt
38d0: 72 69 6e 67 4f 62 6a 28 70 53 68 6d 2d 3e 70 42  ringObj(pShm->pB
38e0: 75 66 66 65 72 2d 3e 7a 46 69 6c 65 2c 20 2d 31  uffer->zFile, -1
38f0: 29 2c 20 70 53 68 6d 2d 3e 69 64 2c 20 30 0a 20  ), pShm->id, 0. 
3900: 20 29 3b 0a 20 20 74 76 66 73 52 65 73 75 6c 74   );.  tvfsResult
3910: 43 6f 64 65 28 70 2c 20 26 72 63 29 3b 0a 0a 20  Code(p, &rc);.. 
3920: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73   return rc;.}..s
3930: 74 61 74 69 63 20 69 6e 74 20 74 76 66 73 53 68  tatic int tvfsSh
3940: 6d 4c 6f 63 6b 28 0a 20 20 73 71 6c 69 74 65 33  mLock(.  sqlite3
3950: 5f 76 66 73 20 2a 70 56 66 73 2c 0a 20 20 73 71  _vfs *pVfs,.  sq
3960: 6c 69 74 65 33 5f 73 68 6d 20 2a 70 53 68 6d 48  lite3_shm *pShmH
3970: 61 6e 64 6c 65 2c 0a 20 20 69 6e 74 20 64 65 73  andle,.  int des
3980: 69 72 65 64 4c 6f 63 6b 2c 0a 20 20 69 6e 74 20  iredLock,.  int 
3990: 2a 67 6f 74 4c 6f 63 6b 0a 29 7b 0a 20 20 69 6e  *gotLock.){.  in
39a0: 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b  t rc = SQLITE_OK
39b0: 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d  ;.  Testvfs *p =
39c0: 20 28 54 65 73 74 76 66 73 20 2a 29 28 70 56 66   (Testvfs *)(pVf
39d0: 73 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 20 20  s->pAppData);.  
39e0: 54 65 73 74 76 66 73 53 68 6d 20 2a 70 53 68 6d  TestvfsShm *pShm
39f0: 20 3d 20 28 54 65 73 74 76 66 73 53 68 6d 20 2a   = (TestvfsShm *
3a00: 29 70 53 68 6d 48 61 6e 64 6c 65 3b 0a 20 20 63  )pShmHandle;.  c
3a10: 68 61 72 20 2a 7a 4c 6f 63 6b 20 3d 20 22 22 3b  har *zLock = "";
3a20: 0a 0a 20 20 73 77 69 74 63 68 28 20 64 65 73 69  ..  switch( desi
3a30: 72 65 64 4c 6f 63 6b 20 29 7b 0a 20 20 20 20 63  redLock ){.    c
3a40: 61 73 65 20 53 51 4c 49 54 45 5f 53 48 4d 5f 52  ase SQLITE_SHM_R
3a50: 45 41 44 3a 20 20 20 20 20 20 20 20 20 7a 4c 6f  EAD:         zLo
3a60: 63 6b 20 3d 20 22 52 45 41 44 22 3b 20 20 20 20  ck = "READ";    
3a70: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61     break;.    ca
3a80: 73 65 20 53 51 4c 49 54 45 5f 53 48 4d 5f 57 52  se SQLITE_SHM_WR
3a90: 49 54 45 3a 20 20 20 20 20 20 20 20 7a 4c 6f 63  ITE:        zLoc
3aa0: 6b 20 3d 20 22 57 52 49 54 45 22 3b 20 20 20 20  k = "WRITE";    
3ab0: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73    break;.    cas
3ac0: 65 20 53 51 4c 49 54 45 5f 53 48 4d 5f 43 48 45  e SQLITE_SHM_CHE
3ad0: 43 4b 50 4f 49 4e 54 3a 20 20 20 7a 4c 6f 63 6b  CKPOINT:   zLock
3ae0: 20 3d 20 22 43 48 45 43 4b 50 4f 49 4e 54 22 3b   = "CHECKPOINT";
3af0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65   break;.    case
3b00: 20 53 51 4c 49 54 45 5f 53 48 4d 5f 52 45 43 4f   SQLITE_SHM_RECO
3b10: 56 45 52 3a 20 20 20 20 20 20 7a 4c 6f 63 6b 20  VER:      zLock 
3b20: 3d 20 22 52 45 43 4f 56 45 52 22 3b 20 20 20 20  = "RECOVER";    
3b30: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20  break;.    case 
3b40: 53 51 4c 49 54 45 5f 53 48 4d 5f 50 45 4e 44 49  SQLITE_SHM_PENDI
3b50: 4e 47 3a 20 20 20 20 20 20 7a 4c 6f 63 6b 20 3d  NG:      zLock =
3b60: 20 22 50 45 4e 44 49 4e 47 22 3b 20 20 20 20 62   "PENDING";    b
3b70: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
3b80: 51 4c 49 54 45 5f 53 48 4d 5f 55 4e 4c 4f 43 4b  QLITE_SHM_UNLOCK
3b90: 3a 20 20 20 20 20 20 20 7a 4c 6f 63 6b 20 3d 20  :       zLock = 
3ba0: 22 55 4e 4c 4f 43 4b 22 3b 20 20 20 20 20 62 72  "UNLOCK";     br
3bb0: 65 61 6b 3b 0a 20 20 7d 0a 20 20 74 76 66 73 45  eak;.  }.  tvfsE
3bc0: 78 65 63 54 63 6c 28 70 2c 20 22 78 53 68 6d 4c  xecTcl(p, "xShmL
3bd0: 6f 63 6b 22 2c 20 0a 20 20 20 20 20 20 54 63 6c  ock", .      Tcl
3be0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 53  _NewStringObj(pS
3bf0: 68 6d 2d 3e 70 42 75 66 66 65 72 2d 3e 7a 46 69  hm->pBuffer->zFi
3c00: 6c 65 2c 20 2d 31 29 2c 20 70 53 68 6d 2d 3e 69  le, -1), pShm->i
3c10: 64 2c 0a 20 20 20 20 20 20 54 63 6c 5f 4e 65 77  d,.      Tcl_New
3c20: 53 74 72 69 6e 67 4f 62 6a 28 7a 4c 6f 63 6b 2c  StringObj(zLock,
3c30: 20 2d 31 29 0a 20 20 29 3b 0a 20 20 74 76 66 73   -1).  );.  tvfs
3c40: 52 65 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72  ResultCode(p, &r
3c50: 63 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 51  c);.  if( rc==SQ
3c60: 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 2a  LITE_OK ){.    *
3c70: 67 6f 74 4c 6f 63 6b 20 3d 20 64 65 73 69 72 65  gotLock = desire
3c80: 64 4c 6f 63 6b 3b 0a 20 20 7d 0a 0a 20 20 72 65  dLock;.  }..  re
3c90: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 73 74 61 74  turn rc;.}..stat
3ca0: 69 63 20 69 6e 74 20 74 76 66 73 53 68 6d 43 6c  ic int tvfsShmCl
3cb0: 6f 73 65 28 0a 20 20 73 71 6c 69 74 65 33 5f 76  ose(.  sqlite3_v
3cc0: 66 73 20 2a 70 56 66 73 2c 20 0a 20 20 73 71 6c  fs *pVfs, .  sql
3cd0: 69 74 65 33 5f 73 68 6d 20 2a 70 53 68 6d 48 61  ite3_shm *pShmHa
3ce0: 6e 64 6c 65 2c 20 0a 20 20 69 6e 74 20 64 65 6c  ndle, .  int del
3cf0: 65 74 65 46 6c 61 67 0a 29 7b 0a 20 20 69 6e 74  eteFlag.){.  int
3d00: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b   rc = SQLITE_OK;
3d10: 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20 3d 20  .  Testvfs *p = 
3d20: 28 54 65 73 74 76 66 73 20 2a 29 28 70 56 66 73  (Testvfs *)(pVfs
3d30: 2d 3e 70 41 70 70 44 61 74 61 29 3b 0a 20 20 54  ->pAppData);.  T
3d40: 65 73 74 76 66 73 53 68 6d 20 2a 70 53 68 6d 20  estvfsShm *pShm 
3d50: 3d 20 28 54 65 73 74 76 66 73 53 68 6d 20 2a 29  = (TestvfsShm *)
3d60: 70 53 68 6d 48 61 6e 64 6c 65 3b 0a 20 20 54 65  pShmHandle;.  Te
3d70: 73 74 76 66 73 42 75 66 66 65 72 20 2a 70 42 75  stvfsBuffer *pBu
3d80: 66 66 65 72 20 3d 20 70 53 68 6d 2d 3e 70 42 75  ffer = pShm->pBu
3d90: 66 66 65 72 3b 0a 0a 23 69 66 20 30 0a 20 20 61  ffer;..#if 0.  a
3da0: 73 73 65 72 74 28 20 28 64 65 6c 65 74 65 46 6c  ssert( (deleteFl
3db0: 61 67 21 3d 30 29 3d 3d 28 70 42 75 66 66 65 72  ag!=0)==(pBuffer
3dc0: 2d 3e 6e 52 65 66 3d 3d 31 29 20 29 3b 0a 23 65  ->nRef==1) );.#e
3dd0: 6e 64 69 66 0a 0a 20 20 74 76 66 73 45 78 65 63  ndif..  tvfsExec
3de0: 54 63 6c 28 70 2c 20 22 78 53 68 6d 43 6c 6f 73  Tcl(p, "xShmClos
3df0: 65 22 2c 20 0a 20 20 20 20 20 20 54 63 6c 5f 4e  e", .      Tcl_N
3e00: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 53 68 6d  ewStringObj(pShm
3e10: 2d 3e 70 42 75 66 66 65 72 2d 3e 7a 46 69 6c 65  ->pBuffer->zFile
3e20: 2c 20 2d 31 29 2c 20 70 53 68 6d 2d 3e 69 64 2c  , -1), pShm->id,
3e30: 20 30 0a 20 20 29 3b 0a 20 20 74 76 66 73 52 65   0.  );.  tvfsRe
3e40: 73 75 6c 74 43 6f 64 65 28 70 2c 20 26 72 63 29  sultCode(p, &rc)
3e50: 3b 0a 0a 20 20 70 42 75 66 66 65 72 2d 3e 6e 52  ;..  pBuffer->nR
3e60: 65 66 2d 2d 3b 0a 20 20 69 66 28 20 70 42 75 66  ef--;.  if( pBuf
3e70: 66 65 72 2d 3e 6e 52 65 66 3d 3d 30 20 29 7b 0a  fer->nRef==0 ){.
3e80: 20 20 20 20 54 65 73 74 76 66 73 42 75 66 66 65      TestvfsBuffe
3e90: 72 20 2a 2a 70 70 3b 0a 20 20 20 20 66 6f 72 28  r **pp;.    for(
3ea0: 70 70 3d 26 70 2d 3e 70 42 75 66 66 65 72 3b 20  pp=&p->pBuffer; 
3eb0: 2a 70 70 21 3d 70 42 75 66 66 65 72 3b 20 70 70  *pp!=pBuffer; pp
3ec0: 3d 26 28 28 2a 70 70 29 2d 3e 70 4e 65 78 74 29  =&((*pp)->pNext)
3ed0: 29 3b 0a 20 20 20 20 2a 70 70 20 3d 20 28 2a 70  );.    *pp = (*p
3ee0: 70 29 2d 3e 70 4e 65 78 74 3b 0a 20 20 20 20 63  p)->pNext;.    c
3ef0: 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 42  kfree((char *)pB
3f00: 75 66 66 65 72 2d 3e 61 29 3b 0a 20 20 20 20 63  uffer->a);.    c
3f10: 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 42  kfree((char *)pB
3f20: 75 66 66 65 72 29 3b 0a 20 20 7d 0a 20 20 54 63  uffer);.  }.  Tc
3f30: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70  l_DecrRefCount(p
3f40: 53 68 6d 2d 3e 69 64 29 3b 0a 20 20 63 6b 66 72  Shm->id);.  ckfr
3f50: 65 65 28 28 63 68 61 72 20 2a 29 70 53 68 6d 29  ee((char *)pShm)
3f60: 3b 0a 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a  ;..  return rc;.
3f70: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65  }..static int te
3f80: 73 74 76 66 73 5f 6f 62 6a 5f 63 6d 64 28 0a 20  stvfs_obj_cmd(. 
3f90: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 64 2c 0a   ClientData cd,.
3fa0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
3fb0: 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63  terp,.  int objc
3fc0: 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  ,.  Tcl_Obj *CON
3fd0: 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 54  ST objv[].){.  T
3fe0: 65 73 74 76 66 73 20 2a 70 20 3d 20 28 54 65 73  estvfs *p = (Tes
3ff0: 74 76 66 73 20 2a 29 63 64 3b 0a 0a 20 20 73 74  tvfs *)cd;..  st
4000: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20  atic const char 
4010: 2a 43 4d 44 5f 73 74 72 73 5b 5d 20 3d 20 7b 20  *CMD_strs[] = { 
4020: 22 73 68 6d 22 2c 20 22 64 65 6c 65 74 65 22 2c  "shm", "delete",
4030: 20 30 20 7d 3b 0a 20 20 65 6e 75 6d 20 44 42 5f   0 };.  enum DB_
4040: 65 6e 75 6d 20 7b 20 43 4d 44 5f 53 48 4d 2c 20  enum { CMD_SHM, 
4050: 43 4d 44 5f 44 45 4c 45 54 45 20 7d 3b 0a 20 20  CMD_DELETE };.  
4060: 69 6e 74 20 69 3b 0a 20 20 0a 20 20 69 66 28 20  int i;.  .  if( 
4070: 6f 62 6a 63 3c 32 20 29 7b 0a 20 20 20 20 54 63  objc<2 ){.    Tc
4080: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
4090: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
40a0: 22 53 55 42 43 4f 4d 4d 41 4e 44 20 2e 2e 2e 22  "SUBCOMMAND ..."
40b0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
40c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 69  L_ERROR;.  }.  i
40d0: 66 28 20 54 63 6c 5f 47 65 74 49 6e 64 65 78 46  f( Tcl_GetIndexF
40e0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
40f0: 62 6a 76 5b 31 5d 2c 20 43 4d 44 5f 73 74 72 73  bjv[1], CMD_strs
4100: 2c 20 22 73 75 62 63 6f 6d 6d 61 6e 64 22 2c 20  , "subcommand", 
4110: 30 2c 20 26 69 29 20 29 7b 0a 20 20 20 20 72 65  0, &i) ){.    re
4120: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
4130: 20 20 7d 0a 20 20 54 63 6c 5f 52 65 73 65 74 52    }.  Tcl_ResetR
4140: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a  esult(interp);..
4150: 20 20 73 77 69 74 63 68 28 20 28 65 6e 75 6d 20    switch( (enum 
4160: 44 42 5f 65 6e 75 6d 29 69 20 29 7b 0a 20 20 20  DB_enum)i ){.   
4170: 20 63 61 73 65 20 43 4d 44 5f 53 48 4d 3a 20 7b   case CMD_SHM: {
4180: 0a 20 20 20 20 20 20 54 65 73 74 76 66 73 42 75  .      TestvfsBu
4190: 66 66 65 72 20 2a 70 42 75 66 66 65 72 3b 0a 20  ffer *pBuffer;. 
41a0: 20 20 20 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65       char *zName
41b0: 3b 0a 20 20 20 20 20 20 69 66 28 20 6f 62 6a 63  ;.      if( objc
41c0: 21 3d 33 20 26 26 20 6f 62 6a 63 21 3d 34 20 29  !=3 && objc!=4 )
41d0: 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72  {.        Tcl_Wr
41e0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
41f0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 46 49 4c  p, 2, objv, "FIL
4200: 45 20 3f 56 41 4c 55 45 3f 22 29 3b 0a 20 20 20  E ?VALUE?");.   
4210: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f       return TCL_
4220: 45 52 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20  ERROR;.      }. 
4230: 20 20 20 20 20 7a 4e 61 6d 65 20 3d 20 54 63 6c       zName = Tcl
4240: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
4250: 32 5d 29 3b 0a 20 20 20 20 20 20 66 6f 72 28 70  2]);.      for(p
4260: 42 75 66 66 65 72 3d 70 2d 3e 70 42 75 66 66 65  Buffer=p->pBuffe
4270: 72 3b 20 70 42 75 66 66 65 72 3b 20 70 42 75 66  r; pBuffer; pBuf
4280: 66 65 72 3d 70 42 75 66 66 65 72 2d 3e 70 4e 65  fer=pBuffer->pNe
4290: 78 74 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28  xt){.        if(
42a0: 20 30 3d 3d 73 74 72 63 6d 70 28 70 42 75 66 66   0==strcmp(pBuff
42b0: 65 72 2d 3e 7a 46 69 6c 65 2c 20 7a 4e 61 6d 65  er->zFile, zName
42c0: 29 20 29 20 62 72 65 61 6b 3b 0a 20 20 20 20 20  ) ) break;.     
42d0: 20 7d 0a 20 20 20 20 20 20 69 66 28 20 21 70 42   }.      if( !pB
42e0: 75 66 66 65 72 20 29 7b 0a 20 20 20 20 20 20 20  uffer ){.       
42f0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
4300: 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 73 75  t(interp, "no su
4310: 63 68 20 66 69 6c 65 3a 20 22 2c 20 7a 4e 61 6d  ch file: ", zNam
4320: 65 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 72  e, 0);.        r
4330: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
4340: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69  .      }.      i
4350: 66 28 20 6f 62 6a 63 3d 3d 34 20 29 7b 0a 20 20  f( objc==4 ){.  
4360: 20 20 20 20 20 20 69 6e 74 20 6e 3b 0a 20 20 20        int n;.   
4370: 20 20 20 20 20 75 38 20 2a 61 20 3d 20 54 63 6c       u8 *a = Tcl
4380: 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f  _GetByteArrayFro
4390: 6d 4f 62 6a 28 6f 62 6a 76 5b 33 5d 2c 20 26 6e  mObj(objv[3], &n
43a0: 29 3b 0a 20 20 20 20 20 20 20 20 70 42 75 66 66  );.        pBuff
43b0: 65 72 2d 3e 61 20 3d 20 28 75 38 20 2a 29 63 6b  er->a = (u8 *)ck
43c0: 72 65 61 6c 6c 6f 63 28 28 63 68 61 72 20 2a 29  realloc((char *)
43d0: 70 42 75 66 66 65 72 2d 3e 61 2c 20 6e 29 3b 0a  pBuffer->a, n);.
43e0: 20 20 20 20 20 20 20 20 70 42 75 66 66 65 72 2d          pBuffer-
43f0: 3e 6e 20 3d 20 6e 3b 0a 20 20 20 20 20 20 20 20  >n = n;.        
4400: 6d 65 6d 63 70 79 28 70 42 75 66 66 65 72 2d 3e  memcpy(pBuffer->
4410: 61 2c 20 61 2c 20 6e 29 3b 0a 20 20 20 20 20 20  a, a, n);.      
4420: 7d 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f  }.      Tcl_SetO
4430: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
4440: 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61   Tcl_NewByteArra
4450: 79 4f 62 6a 28 70 42 75 66 66 65 72 2d 3e 61 2c  yObj(pBuffer->a,
4460: 20 70 42 75 66 66 65 72 2d 3e 6e 29 29 3b 0a 20   pBuffer->n));. 
4470: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
4480: 7d 0a 20 20 20 20 63 61 73 65 20 43 4d 44 5f 44  }.    case CMD_D
4490: 45 4c 45 54 45 3a 20 7b 0a 20 20 20 20 20 20 54  ELETE: {.      T
44a0: 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64  cl_DeleteCommand
44b0: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74  (interp, Tcl_Get
44c0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 29  String(objv[0]))
44d0: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ;.      break;. 
44e0: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75     }.  }..  retu
44f0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74  rn TCL_OK;.}..st
4500: 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 76 66  atic void testvf
4510: 73 5f 6f 62 6a 5f 64 65 6c 28 43 6c 69 65 6e 74  s_obj_del(Client
4520: 44 61 74 61 20 63 64 29 7b 0a 20 20 69 6e 74 20  Data cd){.  int 
4530: 69 3b 0a 20 20 54 65 73 74 76 66 73 20 2a 70 20  i;.  Testvfs *p 
4540: 3d 20 28 54 65 73 74 76 66 73 20 2a 29 63 64 3b  = (Testvfs *)cd;
4550: 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 70 2d  .  for(i=0; i<p-
4560: 3e 6e 53 63 72 69 70 74 3b 20 69 2b 2b 29 7b 0a  >nScript; i++){.
4570: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43      Tcl_DecrRefC
4580: 6f 75 6e 74 28 70 2d 3e 61 70 53 63 72 69 70 74  ount(p->apScript
4590: 5b 69 5d 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69  [i]);.  }.  sqli
45a0: 74 65 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74  te3_vfs_unregist
45b0: 65 72 28 70 2d 3e 70 56 66 73 29 3b 0a 20 20 63  er(p->pVfs);.  c
45c0: 6b 66 72 65 65 28 28 63 68 61 72 20 2a 29 70 2d  kfree((char *)p-
45d0: 3e 70 56 66 73 29 3b 0a 20 20 63 6b 66 72 65 65  >pVfs);.  ckfree
45e0: 28 28 63 68 61 72 20 2a 29 70 29 3b 0a 7d 0a 0a  ((char *)p);.}..
45f0: 23 64 65 66 69 6e 65 20 54 45 53 54 56 46 53 5f  #define TESTVFS_
4600: 4d 41 58 5f 41 52 47 53 20 31 32 0a 0a 2f 2a 0a  MAX_ARGS 12../*.
4610: 2a 2a 20 55 73 61 67 65 3a 20 20 74 65 73 74 76  ** Usage:  testv
4620: 66 73 20 56 46 53 4e 41 4d 45 20 53 43 52 49 50  fs VFSNAME SCRIP
4630: 54 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 63 6f 6d  T.**.** This com
4640: 6d 61 6e 64 20 63 72 65 61 74 65 73 20 74 77 6f  mand creates two
4650: 20 74 68 69 6e 67 73 20 77 68 65 6e 20 69 74 20   things when it 
4660: 69 73 20 69 6e 76 6f 6b 65 64 3a 20 61 6e 20 53  is invoked: an S
4670: 51 4c 69 74 65 20 56 46 53 2c 20 61 6e 64 0a 2a  QLite VFS, and.*
4680: 2a 20 61 20 54 63 6c 20 63 6f 6d 6d 61 6e 64 2e  * a Tcl command.
4690: 20 42 6f 74 68 20 61 72 65 20 6e 61 6d 65 64 20   Both are named 
46a0: 56 46 53 4e 41 4d 45 2e 20 54 68 65 20 56 46 53  VFSNAME. The VFS
46b0: 20 69 73 20 69 6e 73 74 61 6c 6c 65 64 2e 20 49   is installed. I
46c0: 74 20 69 73 20 6e 6f 74 0a 2a 2a 20 69 6e 73 74  t is not.** inst
46d0: 61 6c 6c 65 64 20 61 73 20 74 68 65 20 64 65 66  alled as the def
46e0: 61 75 6c 74 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20  ault VFS..**.** 
46f0: 54 68 65 20 56 46 53 20 70 61 73 73 65 73 20 61  The VFS passes a
4700: 6c 6c 20 66 69 6c 65 20 49 2f 4f 20 63 61 6c 6c  ll file I/O call
4710: 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65  s through to the
4720: 20 75 6e 64 65 72 6c 79 69 6e 67 20 56 46 53 2e   underlying VFS.
4730: 0a 2a 2a 0a 2a 2a 20 57 68 65 6e 65 76 65 72 20  .**.** Whenever 
4740: 6f 6e 65 20 6f 66 20 74 68 65 20 78 53 68 6d 53  one of the xShmS
4750: 69 7a 65 2c 20 78 53 68 6d 47 65 74 20 6f 72 20  ize, xShmGet or 
4760: 78 53 68 6d 52 65 6c 65 61 73 65 20 6d 65 74 68  xShmRelease meth
4770: 6f 64 73 20 6f 66 20 74 68 65 20 56 46 53 0a 2a  ods of the VFS.*
4780: 2a 20 61 72 65 20 69 6e 76 6f 6b 65 64 2c 20 74  * are invoked, t
4790: 68 65 20 53 43 52 49 50 54 20 69 73 20 65 78 65  he SCRIPT is exe
47a0: 63 75 74 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73  cuted as follows
47b0: 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 43 52 49 50 54  :.**.**   SCRIPT
47c0: 20 78 53 68 6d 53 69 7a 65 20 20 20 20 46 49 4c   xShmSize    FIL
47d0: 45 4e 41 4d 45 20 49 44 0a 2a 2a 20 20 20 53 43  ENAME ID.**   SC
47e0: 52 49 50 54 20 78 53 68 6d 47 65 74 20 20 20 20  RIPT xShmGet    
47f0: 20 46 49 4c 45 4e 41 4d 45 20 49 44 0a 2a 2a 20   FILENAME ID.** 
4800: 20 20 53 43 52 49 50 54 20 78 53 68 6d 52 65 6c    SCRIPT xShmRel
4810: 65 61 73 65 20 46 49 4c 45 4e 41 4d 45 20 49 44  ease FILENAME ID
4820: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 76 61 6c 75 65  .**.** The value
4830: 20 72 65 74 75 72 6e 65 64 20 62 79 20 74 68 65   returned by the
4840: 20 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66 20 53   invocation of S
4850: 43 52 49 50 54 20 61 62 6f 76 65 20 69 73 20 69  CRIPT above is i
4860: 6e 74 65 72 70 72 65 74 65 64 20 61 73 0a 2a 2a  nterpreted as.**
4870: 20 61 6e 20 53 51 4c 69 74 65 20 65 72 72 6f 72   an SQLite error
4880: 20 63 6f 64 65 20 61 6e 64 20 72 65 74 75 72 6e   code and return
4890: 65 64 20 74 6f 20 53 51 4c 69 74 65 2e 20 45 69  ed to SQLite. Ei
48a0: 74 68 65 72 20 61 20 73 79 6d 62 6f 6c 69 63 20  ther a symbolic 
48b0: 0a 2a 2a 20 22 53 51 4c 49 54 45 5f 4f 4b 22 20  .** "SQLITE_OK" 
48c0: 6f 72 20 6e 75 6d 65 72 69 63 20 22 30 22 20 76  or numeric "0" v
48d0: 61 6c 75 65 20 6d 61 79 20 62 65 20 72 65 74 75  alue may be retu
48e0: 72 6e 65 64 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20  rned..**.** The 
48f0: 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20  contents of the 
4900: 73 68 61 72 65 64 2d 6d 65 6d 6f 72 79 20 62 75  shared-memory bu
4910: 66 66 65 72 20 61 73 73 6f 63 69 61 74 65 64 20  ffer associated 
4920: 77 69 74 68 20 61 20 67 69 76 65 6e 20 66 69 6c  with a given fil
4930: 65 0a 2a 2a 20 6d 61 79 20 62 65 20 72 65 61 64  e.** may be read
4940: 20 61 6e 64 20 73 65 74 20 75 73 69 6e 67 20 74   and set using t
4950: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d  he following com
4960: 6d 61 6e 64 3a 0a 2a 2a 0a 2a 2a 20 20 20 56 46  mand:.**.**   VF
4970: 53 4e 41 4d 45 20 73 68 6d 20 46 49 4c 45 4e 41  SNAME shm FILENA
4980: 4d 45 20 3f 4e 45 57 56 41 4c 55 45 3f 0a 2a 2a  ME ?NEWVALUE?.**
4990: 0a 2a 2a 20 57 68 65 6e 20 74 68 65 20 78 53 68  .** When the xSh
49a0: 6d 4c 6f 63 6b 20 6d 65 74 68 6f 64 20 69 73 20  mLock method is 
49b0: 69 6e 76 6f 6b 65 64 20 62 79 20 53 51 4c 69 74  invoked by SQLit
49c0: 65 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  e, the following
49d0: 20 73 63 72 69 70 74 20 69 73 0a 2a 2a 20 72 75   script is.** ru
49e0: 6e 3a 0a 2a 2a 0a 2a 2a 20 20 20 53 43 52 49 50  n:.**.**   SCRIP
49f0: 54 20 78 53 68 6d 4c 6f 63 6b 20 20 20 20 46 49  T xShmLock    FI
4a00: 4c 45 4e 41 4d 45 20 49 44 20 4c 4f 43 4b 0a 2a  LENAME ID LOCK.*
4a10: 2a 0a 2a 2a 20 77 68 65 72 65 20 4c 4f 43 4b 20  *.** where LOCK 
4a20: 69 73 20 6f 6e 65 20 6f 66 20 22 55 4e 4c 4f 43  is one of "UNLOC
4a30: 4b 22 2c 20 22 52 45 41 44 22 2c 20 22 52 45 41  K", "READ", "REA
4a40: 44 5f 46 55 4c 4c 22 2c 20 22 57 52 49 54 45 22  D_FULL", "WRITE"
4a50: 2c 20 22 50 45 4e 44 49 4e 47 22 2c 0a 2a 2a 20  , "PENDING",.** 
4a60: 22 43 48 45 43 4b 50 4f 49 4e 54 22 20 6f 72 20  "CHECKPOINT" or 
4a70: 22 52 45 43 4f 56 45 52 22 2e 20 54 68 65 20 73  "RECOVER". The s
4a80: 63 72 69 70 74 20 73 68 6f 75 6c 64 20 72 65 74  cript should ret
4a90: 75 72 6e 20 61 6e 20 53 51 4c 69 74 65 20 65 72  urn an SQLite er
4aa0: 72 6f 72 0a 2a 2a 20 63 6f 64 65 2e 0a 2a 2f 0a  ror.** code..*/.
4ab0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 76  static int testv
4ac0: 66 73 5f 63 6d 64 28 0a 20 20 43 6c 69 65 6e 74  fs_cmd(.  Client
4ad0: 44 61 74 61 20 63 64 2c 0a 20 20 54 63 6c 5f 49  Data cd,.  Tcl_I
4ae0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20  nterp *interp,. 
4af0: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c   int objc,.  Tcl
4b00: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
4b10: 5b 5d 0a 29 7b 0a 0a 20 20 73 74 61 74 69 63 20  [].){..  static 
4b20: 73 71 6c 69 74 65 33 5f 76 66 73 20 74 76 66 73  sqlite3_vfs tvfs
4b30: 5f 76 66 73 20 3d 20 7b 0a 20 20 20 20 32 2c 20  _vfs = {.    2, 
4b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 69 56             /* iV
4b60: 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 20 20 73 69  ersion */.    si
4b70: 7a 65 6f 66 28 74 76 66 73 5f 66 69 6c 65 29 2c  zeof(tvfs_file),
4b80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 73              /* s
4b90: 7a 4f 73 46 69 6c 65 20 2a 2f 0a 20 20 20 20 30  zOsFile */.    0
4ba0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
4bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
4bc0: 6d 78 50 61 74 68 6e 61 6d 65 20 2a 2f 0a 20 20  mxPathname */.  
4bd0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20    0,            
4be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4bf0: 2f 2a 20 70 4e 65 78 74 20 2a 2f 0a 20 20 20 20  /* pNext */.    
4c00: 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  0,              
4c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
4c20: 20 7a 4e 61 6d 65 20 2a 2f 0a 20 20 20 20 30 2c   zName */.    0,
4c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c40: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70              /* p
4c50: 41 70 70 44 61 74 61 20 2a 2f 0a 20 20 20 20 74  AppData */.    t
4c60: 76 66 73 4f 70 65 6e 2c 20 20 20 20 20 20 20 20  vfsOpen,        
4c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
4c80: 78 4f 70 65 6e 20 2a 2f 0a 20 20 20 20 74 76 66  xOpen */.    tvf
4c90: 73 44 65 6c 65 74 65 2c 20 20 20 20 20 20 20 20  sDelete,        
4ca0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44             /* xD
4cb0: 65 6c 65 74 65 20 2a 2f 0a 20 20 20 20 74 76 66  elete */.    tvf
4cc0: 73 41 63 63 65 73 73 2c 20 20 20 20 20 20 20 20  sAccess,        
4cd0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 41             /* xA
4ce0: 63 63 65 73 73 20 2a 2f 0a 20 20 20 20 74 76 66  ccess */.    tvf
4cf0: 73 46 75 6c 6c 50 61 74 68 6e 61 6d 65 2c 20 20  sFullPathname,  
4d00: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 46             /* xF
4d10: 75 6c 6c 50 61 74 68 6e 61 6d 65 20 2a 2f 0a 23  ullPathname */.#
4d20: 69 66 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d  ifndef SQLITE_OM
4d30: 49 54 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f  IT_LOAD_EXTENSIO
4d40: 4e 0a 20 20 20 20 74 76 66 73 44 6c 4f 70 65 6e  N.    tvfsDlOpen
4d50: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
4d60: 20 20 20 20 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a      /* xDlOpen *
4d70: 2f 0a 20 20 20 20 74 76 66 73 44 6c 45 72 72 6f  /.    tvfsDlErro
4d80: 72 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  r,              
4d90: 20 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f 72 20      /* xDlError 
4da0: 2a 2f 0a 20 20 20 20 74 76 66 73 44 6c 53 79 6d  */.    tvfsDlSym
4db0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
4dc0: 20 20 20 20 20 2f 2a 20 78 44 6c 53 79 6d 20 2a       /* xDlSym *
4dd0: 2f 0a 20 20 20 20 74 76 66 73 44 6c 43 6c 6f 73  /.    tvfsDlClos
4de0: 65 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e,              
4df0: 20 20 20 20 2f 2a 20 78 44 6c 43 6c 6f 73 65 20      /* xDlClose 
4e00: 2a 2f 0a 23 65 6c 73 65 0a 20 20 20 20 30 2c 20  */.#else.    0, 
4e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e20: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44             /* xD
4e30: 6c 4f 70 65 6e 20 2a 2f 0a 20 20 20 20 30 2c 20  lOpen */.    0, 
4e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e50: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44             /* xD
4e60: 6c 45 72 72 6f 72 20 2a 2f 0a 20 20 20 20 30 2c  lError */.    0,
4e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4e80: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
4e90: 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20 30 2c 20  DlSym */.    0, 
4ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4eb0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78 44             /* xD
4ec0: 6c 43 6c 6f 73 65 20 2a 2f 0a 23 65 6e 64 69 66  lClose */.#endif
4ed0: 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f   /* SQLITE_OMIT_
4ee0: 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20 2a  LOAD_EXTENSION *
4ef0: 2f 0a 20 20 20 20 74 76 66 73 52 61 6e 64 6f 6d  /.    tvfsRandom
4f00: 6e 65 73 73 2c 20 20 20 20 20 20 20 20 20 20 20  ness,           
4f10: 20 20 20 20 2f 2a 20 78 52 61 6e 64 6f 6d 6e 65      /* xRandomne
4f20: 73 73 20 2a 2f 0a 20 20 20 20 74 76 66 73 53 6c  ss */.    tvfsSl
4f30: 65 65 70 2c 20 20 20 20 20 20 20 20 20 20 20 20  eep,            
4f40: 20 20 20 20 20 20 20 20 2f 2a 20 78 53 6c 65 65          /* xSlee
4f50: 70 20 2a 2f 0a 20 20 20 20 74 76 66 73 43 75 72  p */.    tvfsCur
4f60: 72 65 6e 74 54 69 6d 65 2c 20 20 20 20 20 20 20  rentTime,       
4f70: 20 20 20 20 20 20 20 2f 2a 20 78 43 75 72 72 65         /* xCurre
4f80: 6e 74 54 69 6d 65 20 2a 2f 0a 20 20 20 20 30 2c  ntTime */.    0,
4f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4fa0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78              /* x
4fb0: 47 65 74 4c 61 73 74 45 72 72 6f 72 20 2a 2f 0a  GetLastError */.
4fc0: 20 20 20 20 74 76 66 73 53 68 6d 4f 70 65 6e 2c      tvfsShmOpen,
4fd0: 0a 20 20 20 20 74 76 66 73 53 68 6d 53 69 7a 65  .    tvfsShmSize
4fe0: 2c 0a 20 20 20 20 74 76 66 73 53 68 6d 47 65 74  ,.    tvfsShmGet
4ff0: 2c 0a 20 20 20 20 74 76 66 73 53 68 6d 52 65 6c  ,.    tvfsShmRel
5000: 65 61 73 65 2c 0a 20 20 20 20 74 76 66 73 53 68  ease,.    tvfsSh
5010: 6d 4c 6f 63 6b 2c 0a 20 20 20 20 74 76 66 73 53  mLock,.    tvfsS
5020: 68 6d 43 6c 6f 73 65 2c 0a 20 20 20 20 30 2c 0a  hmClose,.    0,.
5030: 20 20 20 20 30 2c 0a 20 20 7d 3b 0a 0a 20 20 54      0,.  };..  T
5040: 65 73 74 76 66 73 20 2a 70 3b 20 20 20 20 20 20  estvfs *p;      
5050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
5060: 2a 20 4e 65 77 20 6f 62 6a 65 63 74 20 2a 2f 0a  * New object */.
5070: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
5080: 56 66 73 3b 20 20 20 20 20 20 20 20 20 20 20 20  Vfs;            
5090: 20 20 2f 2a 20 4e 65 77 20 56 46 53 20 2a 2f 0a    /* New VFS */.
50a0: 20 20 63 68 61 72 20 2a 7a 56 66 73 3b 0a 20 20    char *zVfs;.  
50b0: 54 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74  Tcl_Obj *pScript
50c0: 3b 0a 20 20 69 6e 74 20 6e 53 63 72 69 70 74 3b  ;.  int nScript;
50d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
50e0: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66      /* Number of
50f0: 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 6c 69 73   elements in lis
5100: 74 20 70 53 63 72 69 70 74 20 2a 2f 0a 20 20 54  t pScript */.  T
5110: 63 6c 5f 4f 62 6a 20 2a 2a 61 70 53 63 72 69 70  cl_Obj **apScrip
5120: 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  t;             /
5130: 2a 20 41 72 72 61 79 20 6f 66 20 70 53 63 72 69  * Array of pScri
5140: 70 74 20 65 6c 65 6d 65 6e 74 73 20 2a 2f 0a 20  pt elements */. 
5150: 20 69 6e 74 20 6e 42 79 74 65 3b 20 20 20 20 20   int nByte;     
5160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5170: 20 2f 2a 20 42 79 74 65 73 20 6f 66 20 73 70 61   /* Bytes of spa
5180: 63 65 20 74 6f 20 61 6c 6c 6f 63 61 74 65 20 61  ce to allocate a
5190: 74 20 70 20 2a 2f 0a 20 20 69 6e 74 20 69 3b 20  t p */.  int i; 
51a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
51b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6f 75 6e           /* Coun
51c0: 74 65 72 20 76 61 72 69 61 62 6c 65 20 2a 2f 0a  ter variable */.
51d0: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29  .  if( objc!=3 )
51e0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
51f0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
5200: 2c 20 6f 62 6a 76 2c 20 22 56 46 53 4e 41 4d 45  , objv, "VFSNAME
5210: 20 53 43 52 49 50 54 22 29 3b 0a 20 20 20 20 72   SCRIPT");.    r
5220: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
5230: 0a 20 20 7d 0a 20 20 7a 56 66 73 20 3d 20 54 63  .  }.  zVfs = Tc
5240: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
5250: 5b 31 5d 29 3b 0a 20 20 70 53 63 72 69 70 74 20  [1]);.  pScript 
5260: 3d 20 6f 62 6a 76 5b 32 5d 3b 0a 0a 20 20 69 66  = objv[2];..  if
5270: 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c 5f 4c 69  ( TCL_OK!=Tcl_Li
5280: 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73  stObjGetElements
5290: 28 69 6e 74 65 72 70 2c 20 70 53 63 72 69 70 74  (interp, pScript
52a0: 2c 20 26 6e 53 63 72 69 70 74 2c 20 26 61 70 53  , &nScript, &apS
52b0: 63 72 69 70 74 29 20 29 7b 0a 20 20 20 20 72 65  cript) ){.    re
52c0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
52d0: 20 20 7d 0a 0a 20 20 6e 42 79 74 65 20 3d 20 73    }..  nByte = s
52e0: 69 7a 65 6f 66 28 54 65 73 74 76 66 73 29 0a 20  izeof(Testvfs). 
52f0: 20 20 20 20 20 20 20 2b 20 28 6e 53 63 72 69 70         + (nScrip
5300: 74 2b 54 45 53 54 56 46 53 5f 4d 41 58 5f 41 52  t+TESTVFS_MAX_AR
5310: 47 53 29 2a 73 69 7a 65 6f 66 28 54 63 6c 5f 4f  GS)*sizeof(Tcl_O
5320: 62 6a 20 2a 29 20 0a 20 20 20 20 20 20 20 20 2b  bj *) .        +
5330: 20 73 74 72 6c 65 6e 28 7a 56 66 73 29 2b 31 3b   strlen(zVfs)+1;
5340: 0a 20 20 70 20 3d 20 28 54 65 73 74 76 66 73 20  .  p = (Testvfs 
5350: 2a 29 63 6b 61 6c 6c 6f 63 28 6e 42 79 74 65 29  *)ckalloc(nByte)
5360: 3b 0a 20 20 6d 65 6d 73 65 74 28 70 2c 20 30 2c  ;.  memset(p, 0,
5370: 20 6e 42 79 74 65 29 3b 0a 0a 20 20 70 2d 3e 70   nByte);..  p->p
5380: 50 61 72 65 6e 74 20 3d 20 73 71 6c 69 74 65 33  Parent = sqlite3
5390: 5f 76 66 73 5f 66 69 6e 64 28 30 29 3b 0a 20 20  _vfs_find(0);.  
53a0: 70 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65  p->interp = inte
53b0: 72 70 3b 0a 20 20 70 2d 3e 6e 53 63 72 69 70 74  rp;.  p->nScript
53c0: 20 3d 20 6e 53 63 72 69 70 74 3b 0a 20 20 70 2d   = nScript;.  p-
53d0: 3e 61 70 53 63 72 69 70 74 20 3d 20 28 54 63 6c  >apScript = (Tcl
53e0: 5f 4f 62 6a 20 2a 2a 29 26 70 5b 31 5d 3b 0a 20  _Obj **)&p[1];. 
53f0: 20 66 6f 72 28 69 3d 30 3b 20 69 3c 6e 53 63 72   for(i=0; i<nScr
5400: 69 70 74 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 70  ipt; i++){.    p
5410: 2d 3e 61 70 53 63 72 69 70 74 5b 69 5d 20 3d 20  ->apScript[i] = 
5420: 61 70 53 63 72 69 70 74 5b 69 5d 3b 0a 20 20 20  apScript[i];.   
5430: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e   Tcl_IncrRefCoun
5440: 74 28 70 2d 3e 61 70 53 63 72 69 70 74 5b 69 5d  t(p->apScript[i]
5450: 29 3b 0a 20 20 7d 0a 20 20 70 2d 3e 7a 4e 61 6d  );.  }.  p->zNam
5460: 65 20 3d 20 28 63 68 61 72 20 2a 29 26 70 2d 3e  e = (char *)&p->
5470: 61 70 53 63 72 69 70 74 5b 6e 53 63 72 69 70 74  apScript[nScript
5480: 2b 54 45 53 54 56 46 53 5f 4d 41 58 5f 41 52 47  +TESTVFS_MAX_ARG
5490: 53 5d 3b 0a 20 20 73 74 72 63 70 79 28 70 2d 3e  S];.  strcpy(p->
54a0: 7a 4e 61 6d 65 2c 20 7a 56 66 73 29 3b 0a 0a 20  zName, zVfs);.. 
54b0: 20 70 56 66 73 20 3d 20 28 73 71 6c 69 74 65 33   pVfs = (sqlite3
54c0: 5f 76 66 73 20 2a 29 63 6b 61 6c 6c 6f 63 28 73  _vfs *)ckalloc(s
54d0: 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76 66  izeof(sqlite3_vf
54e0: 73 29 29 3b 0a 20 20 6d 65 6d 63 70 79 28 70 56  s));.  memcpy(pV
54f0: 66 73 2c 20 26 74 76 66 73 5f 76 66 73 2c 20 73  fs, &tvfs_vfs, s
5500: 69 7a 65 6f 66 28 73 71 6c 69 74 65 33 5f 76 66  izeof(sqlite3_vf
5510: 73 29 29 3b 0a 20 20 70 56 66 73 2d 3e 70 41 70  s));.  pVfs->pAp
5520: 70 44 61 74 61 20 3d 20 28 76 6f 69 64 20 2a 29  pData = (void *)
5530: 70 3b 0a 20 20 70 56 66 73 2d 3e 7a 4e 61 6d 65  p;.  pVfs->zName
5540: 20 3d 20 70 2d 3e 7a 4e 61 6d 65 3b 0a 20 20 70   = p->zName;.  p
5550: 56 66 73 2d 3e 6d 78 50 61 74 68 6e 61 6d 65 20  Vfs->mxPathname 
5560: 3d 20 70 2d 3e 70 50 61 72 65 6e 74 2d 3e 6d 78  = p->pParent->mx
5570: 50 61 74 68 6e 61 6d 65 3b 0a 20 20 70 56 66 73  Pathname;.  pVfs
5580: 2d 3e 73 7a 4f 73 46 69 6c 65 20 2b 3d 20 70 2d  ->szOsFile += p-
5590: 3e 70 50 61 72 65 6e 74 2d 3e 73 7a 4f 73 46 69  >pParent->szOsFi
55a0: 6c 65 3b 0a 20 20 70 2d 3e 70 56 66 73 20 3d 20  le;.  p->pVfs = 
55b0: 70 56 66 73 3b 0a 0a 20 20 54 63 6c 5f 43 72 65  pVfs;..  Tcl_Cre
55c0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e  ateObjCommand(in
55d0: 74 65 72 70 2c 20 7a 56 66 73 2c 20 74 65 73 74  terp, zVfs, test
55e0: 76 66 73 5f 6f 62 6a 5f 63 6d 64 2c 20 70 2c 20  vfs_obj_cmd, p, 
55f0: 74 65 73 74 76 66 73 5f 6f 62 6a 5f 64 65 6c 29  testvfs_obj_del)
5600: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 5f  ;.  sqlite3_vfs_
5610: 72 65 67 69 73 74 65 72 28 70 56 66 73 2c 20 30  register(pVfs, 0
5620: 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c  );..  return TCL
5630: 5f 4f 4b 3b 0a 7d 0a 0a 69 6e 74 20 53 71 6c 69  _OK;.}..int Sqli
5640: 74 65 74 65 73 74 76 66 73 5f 49 6e 69 74 28 54  tetestvfs_Init(T
5650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
5660: 70 29 7b 0a 20 20 54 63 6c 5f 43 72 65 61 74 65  p){.  Tcl_Create
5670: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ObjCommand(inter
5680: 70 2c 20 22 74 65 73 74 76 66 73 22 2c 20 74 65  p, "testvfs", te
5690: 73 74 76 66 73 5f 63 6d 64 2c 20 30 2c 20 30 29  stvfs_cmd, 0, 0)
56a0: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;.  return TCL_O
56b0: 4b 3b 0a 7d 0a 0a 23 65 6e 64 69 66 0a           K;.}..#endif.