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