0000: 2f 2a 0a 2a 2a 20 32 30 30 34 20 4d 61 79 20 32 /*.** 2004 May 2
0010: 32 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68 2.**.** 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 2a 20 54 68 69 73 *****.**.** This
0180: 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 63 file contains c
0190: 6f 64 65 20 74 68 61 74 20 69 73 20 73 70 65 63 ode that is spec
01a0: 69 66 69 63 20 74 6f 20 55 6e 69 78 20 73 79 73 ific to Unix sys
01b0: 74 65 6d 73 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64 tems..*/.#includ
01c0: 65 20 22 6f 73 2e 68 22 20 20 20 20 20 20 20 20 e "os.h"
01d0: 20 20 2f 2a 20 4d 75 73 74 20 62 65 20 66 69 72 /* Must be fir
01e0: 73 74 20 74 6f 20 65 6e 61 62 6c 65 20 6c 61 72 st to enable lar
01f0: 67 65 20 66 69 6c 65 20 73 75 70 70 6f 72 74 20 ge file support
0200: 2a 2f 0a 23 69 66 20 4f 53 5f 55 4e 49 58 20 20 */.#if OS_UNIX
0210: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 /* T
0220: 68 69 73 20 66 69 6c 65 20 69 73 20 75 73 65 64 his file is used
0230: 20 6f 6e 20 75 6e 69 78 20 6f 6e 6c 79 20 2a 2f on unix only */
0240: 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69 74 .#include "sqlit
0250: 65 49 6e 74 2e 68 22 0a 0a 0a 23 69 6e 63 6c 75 eInt.h"...#inclu
0260: 64 65 20 3c 74 69 6d 65 2e 68 3e 0a 23 69 6e 63 de <time.h>.#inc
0270: 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e 0a 23 lude <errno.h>.#
0280: 69 6e 63 6c 75 64 65 20 3c 75 6e 69 73 74 64 2e include <unistd.
0290: 68 3e 0a 23 69 66 6e 64 65 66 20 4f 5f 4c 41 52 h>.#ifndef O_LAR
02a0: 47 45 46 49 4c 45 0a 23 20 64 65 66 69 6e 65 20 GEFILE.# define
02b0: 4f 5f 4c 41 52 47 45 46 49 4c 45 20 30 0a 23 65 O_LARGEFILE 0.#e
02c0: 6e 64 69 66 0a 23 69 66 64 65 66 20 53 51 4c 49 ndif.#ifdef SQLI
02d0: 54 45 5f 44 49 53 41 42 4c 45 5f 4c 46 53 0a 23 TE_DISABLE_LFS.#
02e0: 20 75 6e 64 65 66 20 4f 5f 4c 41 52 47 45 46 49 undef O_LARGEFI
02f0: 4c 45 0a 23 20 64 65 66 69 6e 65 20 4f 5f 4c 41 LE.# define O_LA
0300: 52 47 45 46 49 4c 45 20 30 0a 23 65 6e 64 69 66 RGEFILE 0.#endif
0310: 0a 23 69 66 6e 64 65 66 20 4f 5f 4e 4f 46 4f 4c .#ifndef O_NOFOL
0320: 4c 4f 57 0a 23 20 64 65 66 69 6e 65 20 4f 5f 4e LOW.# define O_N
0330: 4f 46 4f 4c 4c 4f 57 20 30 0a 23 65 6e 64 69 66 OFOLLOW 0.#endif
0340: 0a 23 69 66 6e 64 65 66 20 4f 5f 42 49 4e 41 52 .#ifndef O_BINAR
0350: 59 0a 23 20 64 65 66 69 6e 65 20 4f 5f 42 49 4e Y.# define O_BIN
0360: 41 52 59 20 30 0a 23 65 6e 64 69 66 0a 0a 2f 2a ARY 0.#endif../*
0370: 0a 2a 2a 20 54 68 65 20 44 4a 47 50 50 20 63 6f .** The DJGPP co
0380: 6d 70 69 6c 65 72 20 65 6e 76 69 72 6f 6e 6d 65 mpiler environme
0390: 6e 74 20 6c 6f 6f 6b 73 20 6d 6f 73 74 6c 79 20 nt looks mostly
03a0: 6c 69 6b 65 20 55 6e 69 78 2c 20 62 75 74 20 69 like Unix, but i
03b0: 74 0a 2a 2a 20 6c 61 63 6b 73 20 74 68 65 20 66 t.** lacks the f
03c0: 63 6e 74 6c 28 29 20 73 79 73 74 65 6d 20 63 61 cntl() system ca
03d0: 6c 6c 2e 20 20 53 6f 20 72 65 64 65 66 69 6e 65 ll. So redefine
03e0: 20 66 63 6e 74 6c 28 29 20 74 6f 20 62 65 20 73 fcntl() to be s
03f0: 6f 6d 65 74 68 69 6e 67 0a 2a 2a 20 74 68 61 74 omething.** that
0400: 20 61 6c 77 61 79 73 20 73 75 63 63 65 65 64 73 always succeeds
0410: 2e 20 20 54 68 69 73 20 6d 65 61 6e 73 20 74 68 . This means th
0420: 61 74 20 6c 6f 63 6b 69 6e 67 20 64 6f 65 73 20 at locking does
0430: 6e 6f 74 20 6f 63 63 75 72 20 75 6e 64 65 72 0a not occur under.
0440: 2a 2a 20 44 4a 47 50 50 2e 20 20 42 75 74 20 69 ** DJGPP. But i
0450: 74 73 20 44 4f 53 20 2d 20 77 68 61 74 20 64 69 ts DOS - what di
0460: 64 20 79 6f 75 20 65 78 70 65 63 74 3f 0a 2a 2f d you expect?.*/
0470: 0a 23 69 66 64 65 66 20 5f 5f 44 4a 47 50 50 5f .#ifdef __DJGPP_
0480: 5f 0a 23 20 64 65 66 69 6e 65 20 66 63 6e 74 6c _.# define fcntl
0490: 28 41 2c 42 2c 43 29 20 30 0a 23 65 6e 64 69 66 (A,B,C) 0.#endif
04a0: 0a 0a 2f 2a 0a 2a 2a 20 4d 61 63 72 6f 73 20 75 ../*.** Macros u
04b0: 73 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 sed to determine
04c0: 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 whether or not
04d0: 74 6f 20 75 73 65 20 74 68 72 65 61 64 73 2e 20 to use threads.
04e0: 20 54 68 65 0a 2a 2a 20 53 51 4c 49 54 45 5f 55 The.** SQLITE_U
04f0: 4e 49 58 5f 54 48 52 45 41 44 53 20 6d 61 63 72 NIX_THREADS macr
0500: 6f 20 69 73 20 64 65 66 69 6e 65 64 20 69 66 20 o is defined if
0510: 77 65 20 61 72 65 20 73 79 6e 63 68 72 6f 6e 69 we are synchroni
0520: 7a 69 6e 67 20 66 6f 72 0a 2a 2a 20 50 6f 73 69 zing for.** Posi
0530: 78 20 74 68 72 65 61 64 73 20 61 6e 64 20 53 51 x threads and SQ
0540: 4c 49 54 45 5f 57 33 32 5f 54 48 52 45 41 44 53 LITE_W32_THREADS
0550: 20 69 73 20 64 65 66 69 6e 65 64 20 69 66 20 77 is defined if w
0560: 65 20 61 72 65 0a 2a 2a 20 73 79 6e 63 68 72 6f e are.** synchro
0570: 6e 69 7a 69 6e 67 20 75 73 69 6e 67 20 57 69 6e nizing using Win
0580: 33 32 20 74 68 72 65 61 64 73 2e 0a 2a 2f 0a 23 32 threads..*/.#
0590: 69 66 20 64 65 66 69 6e 65 64 28 54 48 52 45 41 if defined(THREA
05a0: 44 53 41 46 45 29 20 26 26 20 54 48 52 45 41 44 DSAFE) && THREAD
05b0: 53 41 46 45 0a 23 20 69 6e 63 6c 75 64 65 20 3c SAFE.# include <
05c0: 70 74 68 72 65 61 64 2e 68 3e 0a 23 20 64 65 66 pthread.h>.# def
05d0: 69 6e 65 20 53 51 4c 49 54 45 5f 55 4e 49 58 5f ine SQLITE_UNIX_
05e0: 54 48 52 45 41 44 53 20 31 0a 23 65 6e 64 69 66 THREADS 1.#endif
05f0: 0a 0a 0a 2f 2a 0a 2a 2a 20 49 6e 63 6c 75 64 65 .../*.** Include
0600: 20 63 6f 64 65 20 74 68 61 74 20 69 73 20 63 6f code that is co
0610: 6d 6d 6f 6e 20 74 6f 20 61 6c 6c 20 6f 73 5f 2a mmon to all os_*
0620: 2e 63 20 66 69 6c 65 73 0a 2a 2f 0a 23 69 6e 63 .c files.*/.#inc
0630: 6c 75 64 65 20 22 6f 73 5f 63 6f 6d 6d 6f 6e 2e lude "os_common.
0640: 68 22 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 h"..#if defined(
0650: 54 48 52 45 41 44 53 41 46 45 29 20 26 26 20 54 THREADSAFE) && T
0660: 48 52 45 41 44 53 41 46 45 20 26 26 20 64 65 66 HREADSAFE && def
0670: 69 6e 65 64 28 5f 5f 6c 69 6e 75 78 5f 5f 29 0a ined(__linux__).
0680: 23 64 65 66 69 6e 65 20 67 65 74 70 69 64 20 70 #define getpid p
0690: 74 68 72 65 61 64 5f 73 65 6c 66 0a 23 65 6e 64 thread_self.#end
06a0: 69 66 0a 0a 2f 2a 0a 2a 2a 20 48 65 72 65 20 69 if../*.** Here i
06b0: 73 20 74 68 65 20 64 69 72 74 20 6f 6e 20 50 4f s the dirt on PO
06c0: 53 49 58 20 61 64 76 69 73 6f 72 79 20 6c 6f 63 SIX advisory loc
06d0: 6b 73 3a 20 20 41 4e 53 49 20 53 54 44 20 31 30 ks: ANSI STD 10
06e0: 30 33 2e 31 20 28 31 39 39 36 29 0a 2a 2a 20 73 03.1 (1996).** s
06f0: 65 63 74 69 6f 6e 20 36 2e 35 2e 32 2e 32 20 6c ection 6.5.2.2 l
0700: 69 6e 65 73 20 34 38 33 20 74 68 72 6f 75 67 68 ines 483 through
0710: 20 34 39 30 20 73 70 65 63 69 66 79 20 74 68 61 490 specify tha
0720: 74 20 77 68 65 6e 20 61 20 70 72 6f 63 65 73 73 t when a process
0730: 0a 2a 2a 20 73 65 74 73 20 6f 72 20 63 6c 65 61 .** sets or clea
0740: 72 73 20 61 20 6c 6f 63 6b 2c 20 74 68 61 74 20 rs a lock, that
0750: 6f 70 65 72 61 74 69 6f 6e 20 6f 76 65 72 72 69 operation overri
0760: 64 65 73 20 61 6e 79 20 70 72 69 6f 72 20 6c 6f des any prior lo
0770: 63 6b 73 20 73 65 74 0a 2a 2a 20 62 79 20 74 68 cks set.** by th
0780: 65 20 73 61 6d 65 20 70 72 6f 63 65 73 73 2e 20 e same process.
0790: 20 49 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 70 It does not exp
07a0: 6c 69 63 69 74 6c 79 20 73 61 79 20 73 6f 2c 20 licitly say so,
07b0: 62 75 74 20 74 68 69 73 20 69 6d 70 6c 69 65 73 but this implies
07c0: 0a 2a 2a 20 74 68 61 74 20 69 74 20 6f 76 65 72 .** that it over
07d0: 72 69 64 65 73 20 6c 6f 63 6b 73 20 73 65 74 20 rides locks set
07e0: 62 79 20 74 68 65 20 73 61 6d 65 20 70 72 6f 63 by the same proc
07f0: 65 73 73 20 75 73 69 6e 67 20 61 20 64 69 66 66 ess using a diff
0800: 65 72 65 6e 74 0a 2a 2a 20 66 69 6c 65 20 64 65 erent.** file de
0810: 73 63 72 69 70 74 6f 72 2e 20 20 43 6f 6e 73 69 scriptor. Consi
0820: 64 65 72 20 74 68 69 73 20 74 65 73 74 20 63 61 der this test ca
0830: 73 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 20 se:.**.**
0840: 69 6e 74 20 66 64 31 20 3d 20 6f 70 65 6e 28 22 int fd1 = open("
0850: 2e 2f 66 69 6c 65 31 22 2c 20 4f 5f 52 44 57 52 ./file1", O_RDWR
0860: 7c 4f 5f 43 52 45 41 54 2c 20 30 36 34 34 29 3b |O_CREAT, 0644);
0870: 0a 2a 2a 20 20 20 20 20 20 20 69 6e 74 20 66 64 .** int fd
0880: 32 20 3d 20 6f 70 65 6e 28 22 2e 2f 66 69 6c 65 2 = open("./file
0890: 32 22 2c 20 4f 5f 52 44 57 52 7c 4f 5f 43 52 45 2", O_RDWR|O_CRE
08a0: 41 54 2c 20 30 36 34 34 29 3b 0a 2a 2a 0a 2a 2a AT, 0644);.**.**
08b0: 20 53 75 70 70 6f 73 65 20 2e 2f 66 69 6c 65 31 Suppose ./file1
08c0: 20 61 6e 64 20 2e 2f 66 69 6c 65 32 20 61 72 65 and ./file2 are
08d0: 20 72 65 61 6c 6c 79 20 74 68 65 20 73 61 6d 65 really the same
08e0: 20 66 69 6c 65 20 28 62 65 63 61 75 73 65 0a 2a file (because.*
08f0: 2a 20 6f 6e 65 20 69 73 20 61 20 68 61 72 64 20 * one is a hard
0900: 6f 72 20 73 79 6d 62 6f 6c 69 63 20 6c 69 6e 6b or symbolic link
0910: 20 74 6f 20 74 68 65 20 6f 74 68 65 72 29 20 74 to the other) t
0920: 68 65 6e 20 69 66 20 79 6f 75 20 73 65 74 0a 2a hen if you set.*
0930: 2a 20 61 6e 20 65 78 63 6c 75 73 69 76 65 20 6c * an exclusive l
0940: 6f 63 6b 20 6f 6e 20 66 64 31 2c 20 74 68 65 6e ock on fd1, then
0950: 20 74 72 79 20 74 6f 20 67 65 74 20 61 6e 20 65 try to get an e
0960: 78 63 6c 75 73 69 76 65 20 6c 6f 63 6b 0a 2a 2a xclusive lock.**
0970: 20 6f 6e 20 66 64 32 2c 20 69 74 20 77 6f 72 6b on fd2, it work
0980: 73 2e 20 20 49 20 77 6f 75 6c 64 20 68 61 76 65 s. I would have
0990: 20 65 78 70 65 63 74 65 64 20 74 68 65 20 73 65 expected the se
09a0: 63 6f 6e 64 20 6c 6f 63 6b 20 74 6f 0a 2a 2a 20 cond lock to.**
09b0: 66 61 69 6c 20 73 69 6e 63 65 20 74 68 65 72 65 fail since there
09c0: 20 77 61 73 20 61 6c 72 65 61 64 79 20 61 20 6c was already a l
09d0: 6f 63 6b 20 6f 6e 20 74 68 65 20 66 69 6c 65 20 ock on the file
09e0: 64 75 65 20 74 6f 20 66 64 31 2e 0a 2a 2a 20 42 due to fd1..** B
09f0: 75 74 20 6e 6f 74 20 73 6f 2e 20 20 53 69 6e 63 ut not so. Sinc
0a00: 65 20 62 6f 74 68 20 6c 6f 63 6b 73 20 63 61 6d e both locks cam
0a10: 65 20 66 72 6f 6d 20 74 68 65 20 73 61 6d 65 20 e from the same
0a20: 70 72 6f 63 65 73 73 2c 20 74 68 65 0a 2a 2a 20 process, the.**
0a30: 73 65 63 6f 6e 64 20 6f 76 65 72 72 69 64 65 73 second overrides
0a40: 20 74 68 65 20 66 69 72 73 74 2c 20 65 76 65 6e the first, even
0a50: 20 74 68 6f 75 67 68 20 74 68 65 79 20 77 65 72 though they wer
0a60: 65 20 6f 6e 20 64 69 66 66 65 72 65 6e 74 0a 2a e on different.*
0a70: 2a 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f * file descripto
0a80: 72 73 20 6f 70 65 6e 65 64 20 6f 6e 20 64 69 66 rs opened on dif
0a90: 66 65 72 65 6e 74 20 66 69 6c 65 20 6e 61 6d 65 ferent file name
0aa0: 73 2e 0a 2a 2a 0a 2a 2a 20 42 75 6d 6d 65 72 2e s..**.** Bummer.
0ab0: 20 20 49 66 20 79 6f 75 20 61 73 6b 20 6d 65 2c If you ask me,
0ac0: 20 74 68 69 73 20 69 73 20 62 72 6f 6b 65 6e 2e this is broken.
0ad0: 20 20 42 61 64 6c 79 20 62 72 6f 6b 65 6e 2e 20 Badly broken.
0ae0: 20 49 74 20 6d 65 61 6e 73 0a 2a 2a 20 74 68 61 It means.** tha
0af0: 74 20 77 65 20 63 61 6e 6e 6f 74 20 75 73 65 20 t we cannot use
0b00: 50 4f 53 49 58 20 6c 6f 63 6b 73 20 74 6f 20 73 POSIX locks to s
0b10: 79 6e 63 68 72 6f 6e 69 7a 65 20 66 69 6c 65 20 ynchronize file
0b20: 61 63 63 65 73 73 20 61 6d 6f 6e 67 0a 2a 2a 20 access among.**
0b30: 63 6f 6d 70 65 74 69 6e 67 20 74 68 72 65 61 64 competing thread
0b40: 73 20 6f 66 20 74 68 65 20 73 61 6d 65 20 70 72 s of the same pr
0b50: 6f 63 65 73 73 2e 20 20 50 4f 53 49 58 20 6c 6f ocess. POSIX lo
0b60: 63 6b 73 20 77 69 6c 6c 20 77 6f 72 6b 20 66 69 cks will work fi
0b70: 6e 65 0a 2a 2a 20 74 6f 20 73 79 6e 63 68 72 6f ne.** to synchro
0b80: 6e 69 7a 65 20 61 63 63 65 73 73 20 66 6f 72 20 nize access for
0b90: 74 68 72 65 61 64 73 20 69 6e 20 73 65 70 61 72 threads in separ
0ba0: 61 74 65 20 70 72 6f 63 65 73 73 65 73 2c 20 62 ate processes, b
0bb0: 75 74 20 6e 6f 74 0a 2a 2a 20 74 68 72 65 61 64 ut not.** thread
0bc0: 73 20 77 69 74 68 69 6e 20 74 68 65 20 73 61 6d s within the sam
0bd0: 65 20 70 72 6f 63 65 73 73 2e 0a 2a 2a 0a 2a 2a e process..**.**
0be0: 20 54 6f 20 77 6f 72 6b 20 61 72 6f 75 6e 64 20 To work around
0bf0: 74 68 65 20 70 72 6f 62 6c 65 6d 2c 20 53 51 4c the problem, SQL
0c00: 69 74 65 20 68 61 73 20 74 6f 20 6d 61 6e 61 67 ite has to manag
0c10: 65 20 66 69 6c 65 20 6c 6f 63 6b 73 20 69 6e 74 e file locks int
0c20: 65 72 6e 61 6c 6c 79 0a 2a 2a 20 6f 6e 20 69 74 ernally.** on it
0c30: 73 20 6f 77 6e 2e 20 20 57 68 65 6e 65 76 65 72 s own. Whenever
0c40: 20 61 20 6e 65 77 20 64 61 74 61 62 61 73 65 20 a new database
0c50: 69 73 20 6f 70 65 6e 65 64 2c 20 77 65 20 68 61 is opened, we ha
0c60: 76 65 20 74 6f 20 66 69 6e 64 20 74 68 65 0a 2a ve to find the.*
0c70: 2a 20 73 70 65 63 69 66 69 63 20 69 6e 6f 64 65 * specific inode
0c80: 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65 of the database
0c90: 20 66 69 6c 65 20 28 74 68 65 20 69 6e 6f 64 65 file (the inode
0ca0: 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 is determined b
0cb0: 79 20 74 68 65 0a 2a 2a 20 73 74 5f 64 65 76 20 y the.** st_dev
0cc0: 61 6e 64 20 73 74 5f 69 6e 6f 20 66 69 65 6c 64 and st_ino field
0cd0: 73 20 6f 66 20 74 68 65 20 73 74 61 74 20 73 74 s of the stat st
0ce0: 72 75 63 74 75 72 65 20 74 68 61 74 20 66 73 74 ructure that fst
0cf0: 61 74 28 29 20 66 69 6c 6c 73 20 69 6e 29 0a 2a at() fills in).*
0d00: 2a 20 61 6e 64 20 63 68 65 63 6b 20 66 6f 72 20 * and check for
0d10: 6c 6f 63 6b 73 20 61 6c 72 65 61 64 79 20 65 78 locks already ex
0d20: 69 73 74 69 6e 67 20 6f 6e 20 74 68 61 74 20 69 isting on that i
0d30: 6e 6f 64 65 2e 20 20 57 68 65 6e 20 6c 6f 63 6b node. When lock
0d40: 73 20 61 72 65 0a 2a 2a 20 63 72 65 61 74 65 64 s are.** created
0d50: 20 6f 72 20 72 65 6d 6f 76 65 64 2c 20 77 65 20 or removed, we
0d60: 68 61 76 65 20 74 6f 20 6c 6f 6f 6b 20 61 74 20 have to look at
0d70: 6f 75 72 20 6f 77 6e 20 69 6e 74 65 72 6e 61 6c our own internal
0d80: 20 72 65 63 6f 72 64 20 6f 66 20 74 68 65 0a 2a record of the.*
0d90: 2a 20 6c 6f 63 6b 73 20 74 6f 20 73 65 65 20 69 * locks to see i
0da0: 66 20 61 6e 6f 74 68 65 72 20 74 68 72 65 61 64 f another thread
0db0: 20 68 61 73 20 70 72 65 76 69 6f 75 73 6c 79 20 has previously
0dc0: 73 65 74 20 61 20 6c 6f 63 6b 20 6f 6e 20 74 68 set a lock on th
0dd0: 61 74 20 73 61 6d 65 0a 2a 2a 20 69 6e 6f 64 65 at same.** inode
0de0: 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 4f 73 46 69 ..**.** The OsFi
0df0: 6c 65 20 73 74 72 75 63 74 75 72 65 20 66 6f 72 le structure for
0e00: 20 50 4f 53 49 58 20 69 73 20 6e 6f 20 6c 6f 6e POSIX is no lon
0e10: 67 65 72 20 6a 75 73 74 20 61 6e 20 69 6e 74 65 ger just an inte
0e20: 67 65 72 20 66 69 6c 65 0a 2a 2a 20 64 65 73 63 ger file.** desc
0e30: 72 69 70 74 6f 72 2e 20 20 49 74 20 69 73 20 6e riptor. It is n
0e40: 6f 77 20 61 20 73 74 72 75 63 74 75 72 65 20 74 ow a structure t
0e50: 68 61 74 20 68 6f 6c 64 73 20 74 68 65 20 69 6e hat holds the in
0e60: 74 65 67 65 72 20 66 69 6c 65 0a 2a 2a 20 64 65 teger file.** de
0e70: 73 63 72 69 70 74 6f 72 20 61 6e 64 20 61 20 70 scriptor and a p
0e80: 6f 69 6e 74 65 72 20 74 6f 20 61 20 73 74 72 75 ointer to a stru
0e90: 63 74 75 72 65 20 74 68 61 74 20 64 65 73 63 72 cture that descr
0ea0: 69 62 65 73 20 74 68 65 20 69 6e 74 65 72 6e 61 ibes the interna
0eb0: 6c 0a 2a 2a 20 6c 6f 63 6b 73 20 6f 6e 20 74 68 l.** locks on th
0ec0: 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 e corresponding
0ed0: 69 6e 6f 64 65 2e 20 20 54 68 65 72 65 20 69 73 inode. There is
0ee0: 20 6f 6e 65 20 6c 6f 63 6b 69 6e 67 20 73 74 72 one locking str
0ef0: 75 63 74 75 72 65 0a 2a 2a 20 70 65 72 20 69 6e ucture.** per in
0f00: 6f 64 65 2c 20 73 6f 20 69 66 20 74 68 65 20 73 ode, so if the s
0f10: 61 6d 65 20 69 6e 6f 64 65 20 69 73 20 6f 70 65 ame inode is ope
0f20: 6e 65 64 20 74 77 69 63 65 2c 20 62 6f 74 68 20 ned twice, both
0f30: 4f 73 46 69 6c 65 20 73 74 72 75 63 74 75 72 65 OsFile structure
0f40: 73 0a 2a 2a 20 70 6f 69 6e 74 20 74 6f 20 74 68 s.** point to th
0f50: 65 20 73 61 6d 65 20 6c 6f 63 6b 69 6e 67 20 73 e same locking s
0f60: 74 72 75 63 74 75 72 65 2e 20 20 54 68 65 20 6c tructure. The l
0f70: 6f 63 6b 69 6e 67 20 73 74 72 75 63 74 75 72 65 ocking structure
0f80: 20 6b 65 65 70 73 0a 2a 2a 20 61 20 72 65 66 65 keeps.** a refe
0f90: 72 65 6e 63 65 20 63 6f 75 6e 74 20 28 73 6f 20 rence count (so
0fa0: 77 65 20 77 69 6c 6c 20 6b 6e 6f 77 20 77 68 65 we will know whe
0fb0: 6e 20 74 6f 20 64 65 6c 65 74 65 20 69 74 29 20 n to delete it)
0fc0: 61 6e 64 20 61 20 22 63 6e 74 22 0a 2a 2a 20 66 and a "cnt".** f
0fd0: 69 65 6c 64 20 74 68 61 74 20 74 65 6c 6c 73 20 ield that tells
0fe0: 75 73 20 69 74 73 20 69 6e 74 65 72 6e 61 6c 20 us its internal
0ff0: 6c 6f 63 6b 20 73 74 61 74 75 73 2e 20 20 63 6e lock status. cn
1000: 74 3d 3d 30 20 6d 65 61 6e 73 20 74 68 65 0a 2a t==0 means the.*
1010: 2a 20 66 69 6c 65 20 69 73 20 75 6e 6c 6f 63 6b * file is unlock
1020: 65 64 2e 20 20 63 6e 74 3d 3d 2d 31 20 6d 65 61 ed. cnt==-1 mea
1030: 6e 73 20 74 68 65 20 66 69 6c 65 20 68 61 73 20 ns the file has
1040: 61 6e 20 65 78 63 6c 75 73 69 76 65 20 6c 6f 63 an exclusive loc
1050: 6b 2e 0a 2a 2a 20 63 6e 74 3e 30 20 6d 65 61 6e k..** cnt>0 mean
1060: 73 20 74 68 65 72 65 20 61 72 65 20 63 6e 74 20 s there are cnt
1070: 73 68 61 72 65 64 20 6c 6f 63 6b 73 20 6f 6e 20 shared locks on
1080: 74 68 65 20 66 69 6c 65 2e 0a 2a 2a 0a 2a 2a 20 the file..**.**
1090: 41 6e 79 20 61 74 74 65 6d 70 74 20 74 6f 20 6c Any attempt to l
10a0: 6f 63 6b 20 6f 72 20 75 6e 6c 6f 63 6b 20 61 20 ock or unlock a
10b0: 66 69 6c 65 20 66 69 72 73 74 20 63 68 65 63 6b file first check
10c0: 73 20 74 68 65 20 6c 6f 63 6b 69 6e 67 0a 2a 2a s the locking.**
10d0: 20 73 74 72 75 63 74 75 72 65 2e 20 20 54 68 65 structure. The
10e0: 20 66 63 6e 74 6c 28 29 20 73 79 73 74 65 6d 20 fcntl() system
10f0: 63 61 6c 6c 20 69 73 20 6f 6e 6c 79 20 69 6e 76 call is only inv
1100: 6f 6b 65 64 20 74 6f 20 73 65 74 20 61 20 0a 2a oked to set a .*
1110: 2a 20 50 4f 53 49 58 20 6c 6f 63 6b 20 69 66 20 * POSIX lock if
1120: 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 6c 6f 63 the internal loc
1130: 6b 20 73 74 72 75 63 74 75 72 65 20 74 72 61 6e k structure tran
1140: 73 69 74 69 6f 6e 73 20 62 65 74 77 65 65 6e 0a sitions between.
1150: 2a 2a 20 61 20 6c 6f 63 6b 65 64 20 61 6e 64 20 ** a locked and
1160: 61 6e 20 75 6e 6c 6f 63 6b 65 64 20 73 74 61 74 an unlocked stat
1170: 65 2e 0a 2a 2a 0a 2a 2a 20 32 30 30 34 2d 4a 61 e..**.** 2004-Ja
1180: 6e 2d 31 31 3a 0a 2a 2a 20 4d 6f 72 65 20 72 65 n-11:.** More re
1190: 63 65 6e 74 20 64 69 73 63 6f 76 65 72 69 65 73 cent discoveries
11a0: 20 61 62 6f 75 74 20 50 4f 53 49 58 20 61 64 76 about POSIX adv
11b0: 69 73 6f 72 79 20 6c 6f 63 6b 73 2e 20 20 28 54 isory locks. (T
11c0: 68 65 20 6d 6f 72 65 0a 2a 2a 20 49 20 64 69 73 he more.** I dis
11d0: 63 6f 76 65 72 2c 20 74 68 65 20 6d 6f 72 65 20 cover, the more
11e0: 49 20 72 65 61 6c 69 7a 65 20 74 68 65 20 61 20 I realize the a
11f0: 50 4f 53 49 58 20 61 64 76 69 73 6f 72 79 20 6c POSIX advisory l
1200: 6f 63 6b 73 20 61 72 65 0a 2a 2a 20 61 6e 20 61 ocks are.** an a
1210: 62 6f 6d 69 6e 61 74 69 6f 6e 2e 29 0a 2a 2a 0a bomination.).**.
1220: 2a 2a 20 49 66 20 79 6f 75 20 63 6c 6f 73 65 20 ** If you close
1230: 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f a file descripto
1240: 72 20 74 68 61 74 20 70 6f 69 6e 74 73 20 74 6f r that points to
1250: 20 61 20 66 69 6c 65 20 74 68 61 74 20 68 61 73 a file that has
1260: 20 6c 6f 63 6b 73 2c 0a 2a 2a 20 61 6c 6c 20 6c locks,.** all l
1270: 6f 63 6b 73 20 6f 6e 20 74 68 61 74 20 66 69 6c ocks on that fil
1280: 65 20 74 68 61 74 20 61 72 65 20 6f 77 6e 65 64 e that are owned
1290: 20 62 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 by the current
12a0: 70 72 6f 63 65 73 73 20 61 72 65 0a 2a 2a 20 72 process are.** r
12b0: 65 6c 65 61 73 65 64 2e 20 20 54 6f 20 77 6f 72 eleased. To wor
12c0: 6b 20 61 72 6f 75 6e 64 20 74 68 69 73 20 70 72 k around this pr
12d0: 6f 62 6c 65 6d 2c 20 65 61 63 68 20 4f 73 46 69 oblem, each OsFi
12e0: 6c 65 20 73 74 72 75 63 74 75 72 65 20 63 6f 6e le structure con
12f0: 74 61 69 6e 73 0a 2a 2a 20 61 20 70 6f 69 6e 74 tains.** a point
1300: 65 72 20 74 6f 20 61 6e 20 6f 70 65 6e 43 6e 74 er to an openCnt
1310: 20 73 74 72 75 63 74 75 72 65 2e 20 20 54 68 65 structure. The
1320: 72 65 20 69 73 20 6f 6e 65 20 6f 70 65 6e 43 6e re is one openCn
1330: 74 20 73 74 72 75 63 74 75 72 65 0a 2a 2a 20 70 t structure.** p
1340: 65 72 20 6f 70 65 6e 20 69 6e 6f 64 65 2c 20 77 er open inode, w
1350: 68 69 63 68 20 6d 65 61 6e 73 20 74 68 61 74 20 hich means that
1360: 6d 75 6c 74 69 70 6c 65 20 4f 73 46 69 6c 65 73 multiple OsFiles
1370: 20 63 61 6e 20 70 6f 69 6e 74 20 74 6f 20 61 20 can point to a
1380: 73 69 6e 67 6c 65 0a 2a 2a 20 6f 70 65 6e 43 6e single.** openCn
1390: 74 2e 20 20 57 68 65 6e 20 61 6e 20 61 74 74 65 t. When an atte
13a0: 6d 70 74 20 69 73 20 6d 61 64 65 20 74 6f 20 63 mpt is made to c
13b0: 6c 6f 73 65 20 61 6e 20 4f 73 46 69 6c 65 2c 20 lose an OsFile,
13c0: 69 66 20 74 68 65 72 65 20 61 72 65 0a 2a 2a 20 if there are.**
13d0: 6f 74 68 65 72 20 4f 73 46 69 6c 65 73 20 6f 70 other OsFiles op
13e0: 65 6e 20 6f 6e 20 74 68 65 20 73 61 6d 65 20 69 en on the same i
13f0: 6e 6f 64 65 20 74 68 61 74 20 61 72 65 20 68 6f node that are ho
1400: 6c 64 69 6e 67 20 6c 6f 63 6b 73 2c 20 74 68 65 lding locks, the
1410: 20 63 61 6c 6c 0a 2a 2a 20 74 6f 20 63 6c 6f 73 call.** to clos
1420: 65 28 29 20 74 68 65 20 66 69 6c 65 20 64 65 73 e() the file des
1430: 63 72 69 70 74 6f 72 20 69 73 20 64 65 66 65 72 criptor is defer
1440: 72 65 64 20 75 6e 74 69 6c 20 61 6c 6c 20 6f 66 red until all of
1450: 20 74 68 65 20 6c 6f 63 6b 73 20 63 6c 65 61 72 the locks clear
1460: 2e 0a 2a 2a 20 54 68 65 20 6f 70 65 6e 43 6e 74 ..** The openCnt
1470: 20 73 74 72 75 63 74 75 72 65 20 6b 65 65 70 73 structure keeps
1480: 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 20 a list of file
1490: 64 65 73 63 72 69 70 74 6f 72 73 20 74 68 61 74 descriptors that
14a0: 20 6e 65 65 64 20 74 6f 0a 2a 2a 20 62 65 20 63 need to.** be c
14b0: 6c 6f 73 65 64 20 61 6e 64 20 74 68 61 74 20 6c losed and that l
14c0: 69 73 74 20 69 73 20 77 61 6c 6b 65 64 20 28 61 ist is walked (a
14d0: 6e 64 20 63 6c 65 61 72 65 64 29 20 77 68 65 6e nd cleared) when
14e0: 20 74 68 65 20 6c 61 73 74 20 6c 6f 63 6b 0a 2a the last lock.*
14f0: 2a 20 63 6c 65 61 72 73 2e 0a 2a 2a 0a 2a 2a 20 * clears..**.**
1500: 46 69 72 73 74 2c 20 75 6e 64 65 72 20 4c 69 6e First, under Lin
1510: 75 78 20 74 68 72 65 61 64 73 2c 20 62 65 63 61 ux threads, beca
1520: 75 73 65 20 65 61 63 68 20 74 68 72 65 61 64 20 use each thread
1530: 68 61 73 20 61 20 73 65 70 61 72 61 74 65 0a 2a has a separate.*
1540: 2a 20 70 72 6f 63 65 73 73 20 49 44 2c 20 6c 6f * process ID, lo
1550: 63 6b 20 6f 70 65 72 61 74 69 6f 6e 73 20 69 6e ck operations in
1560: 20 6f 6e 65 20 74 68 72 65 61 64 20 64 6f 20 6e one thread do n
1570: 6f 74 20 6f 76 65 72 72 69 64 65 20 6c 6f 63 6b ot override lock
1580: 73 0a 2a 2a 20 74 6f 20 74 68 65 20 73 61 6d 65 s.** to the same
1590: 20 66 69 6c 65 20 69 6e 20 6f 74 68 65 72 20 74 file in other t
15a0: 68 72 65 61 64 73 2e 20 20 4c 69 6e 75 78 20 74 hreads. Linux t
15b0: 68 72 65 61 64 73 20 62 65 68 61 76 65 20 6c 69 hreads behave li
15c0: 6b 65 0a 2a 2a 20 73 65 70 61 72 61 74 65 20 70 ke.** separate p
15d0: 72 6f 63 65 73 73 65 73 20 69 6e 20 74 68 69 73 rocesses in this
15e0: 20 72 65 73 70 65 63 74 2e 20 20 42 75 74 2c 20 respect. But,
15f0: 69 66 20 79 6f 75 20 63 6c 6f 73 65 20 61 20 66 if you close a f
1600: 69 6c 65 0a 2a 2a 20 64 65 73 63 72 69 70 74 6f ile.** descripto
1610: 72 20 69 6e 20 6c 69 6e 75 78 20 74 68 72 65 61 r in linux threa
1620: 64 73 2c 20 61 6c 6c 20 6c 6f 63 6b 73 20 61 72 ds, all locks ar
1630: 65 20 63 6c 65 61 72 65 64 2c 20 65 76 65 6e 20 e cleared, even
1640: 6c 6f 63 6b 73 0a 2a 2a 20 6f 6e 20 6f 74 68 65 locks.** on othe
1650: 72 20 74 68 72 65 61 64 73 20 61 6e 64 20 65 76 r threads and ev
1660: 65 6e 20 74 68 6f 75 67 68 20 74 68 65 20 6f 74 en though the ot
1670: 68 65 72 20 74 68 72 65 61 64 73 20 68 61 76 65 her threads have
1680: 20 64 69 66 66 65 72 65 6e 74 0a 2a 2a 20 70 72 different.** pr
1690: 6f 63 65 73 73 20 49 44 73 2e 20 20 4c 69 6e 75 ocess IDs. Linu
16a0: 78 20 74 68 72 65 61 64 73 20 69 73 20 69 6e 63 x threads is inc
16b0: 6f 6e 73 69 73 74 65 6e 74 20 69 6e 20 74 68 69 onsistent in thi
16c0: 73 20 72 65 73 70 65 63 74 2e 0a 2a 2a 20 28 49 s respect..** (I
16d0: 27 6d 20 62 65 67 69 6e 6e 69 6e 67 20 74 6f 20 'm beginning to
16e0: 74 68 69 6e 6b 20 74 68 61 74 20 6c 69 6e 75 78 think that linux
16f0: 20 74 68 72 65 61 64 73 20 69 73 20 61 6e 20 61 threads is an a
1700: 62 6f 6d 69 6e 61 74 69 6f 6e 20 74 6f 6f 2e 29 bomination too.)
1710: 0a 2a 2a 20 54 68 65 20 63 6f 6e 73 65 71 75 65 .** The conseque
1720: 6e 63 65 20 6f 66 20 74 68 69 73 20 61 6c 6c 20 nce of this all
1730: 69 73 20 74 68 61 74 20 74 68 65 20 68 61 73 68 is that the hash
1740: 20 74 61 62 6c 65 20 66 6f 72 20 74 68 65 20 6c table for the l
1750: 6f 63 6b 49 6e 66 6f 0a 2a 2a 20 73 74 72 75 63 ockInfo.** struc
1760: 74 75 72 65 20 68 61 73 20 74 6f 20 69 6e 63 6c ture has to incl
1770: 75 64 65 20 74 68 65 20 70 72 6f 63 65 73 73 20 ude the process
1780: 69 64 20 61 73 20 70 61 72 74 20 6f 66 20 69 74 id as part of it
1790: 73 20 6b 65 79 20 62 65 63 61 75 73 65 0a 2a 2a s key because.**
17a0: 20 6c 6f 63 6b 73 20 69 6e 20 64 69 66 66 65 72 locks in differ
17b0: 65 6e 74 20 74 68 72 65 61 64 73 20 61 72 65 20 ent threads are
17c0: 74 72 65 61 74 65 64 20 61 73 20 64 69 73 74 69 treated as disti
17d0: 6e 63 74 2e 20 20 42 75 74 20 74 68 65 20 0a 2a nct. But the .*
17e0: 2a 20 6f 70 65 6e 43 6e 74 20 73 74 72 75 63 74 * openCnt struct
17f0: 75 72 65 20 73 68 6f 75 6c 64 20 6e 6f 74 20 69 ure should not i
1800: 6e 63 6c 75 64 65 20 74 68 65 20 70 72 6f 63 65 nclude the proce
1810: 73 73 20 69 64 20 69 6e 20 69 74 73 0a 2a 2a 20 ss id in its.**
1820: 6b 65 79 20 62 65 63 61 75 73 65 20 63 6c 6f 73 key because clos
1830: 65 28 29 20 63 6c 65 61 72 73 20 6c 6f 63 6b 20 e() clears lock
1840: 6f 6e 20 61 6c 6c 20 74 68 72 65 61 64 73 2c 20 on all threads,
1850: 6e 6f 74 20 6a 75 73 74 20 74 68 65 20 63 75 72 not just the cur
1860: 72 65 6e 74 0a 2a 2a 20 74 68 72 65 61 64 2e 20 rent.** thread.
1870: 20 57 65 72 65 20 69 74 20 6e 6f 74 20 66 6f 72 Were it not for
1880: 20 74 68 69 73 20 67 6f 6f 66 69 6e 65 73 73 20 this goofiness
1890: 69 6e 20 6c 69 6e 75 78 20 74 68 72 65 61 64 73 in linux threads
18a0: 2c 20 77 65 20 63 6f 75 6c 64 0a 2a 2a 20 63 6f , we could.** co
18b0: 6d 62 69 6e 65 20 74 68 65 20 6c 6f 63 6b 49 6e mbine the lockIn
18c0: 66 6f 20 61 6e 64 20 6f 70 65 6e 43 6e 74 20 73 fo and openCnt s
18d0: 74 72 75 63 74 75 72 65 73 20 69 6e 74 6f 20 61 tructures into a
18e0: 20 73 69 6e 67 6c 65 20 73 74 72 75 63 74 75 72 single structur
18f0: 65 2e 0a 2a 2a 0a 2a 2a 20 32 30 30 34 2d 4a 75 e..**.** 2004-Ju
1900: 6e 2d 32 38 3a 0a 2a 2a 20 4f 6e 20 73 6f 6d 65 n-28:.** On some
1910: 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 6c 69 6e versions of lin
1920: 75 78 2c 20 74 68 72 65 61 64 73 20 63 61 6e 20 ux, threads can
1930: 6f 76 65 72 72 69 64 65 20 65 61 63 68 20 6f 74 override each ot
1940: 68 65 72 73 20 6c 6f 63 6b 73 2e 0a 2a 2a 20 4f hers locks..** O
1950: 6e 20 6f 74 68 65 72 73 20 6e 6f 74 2e 20 20 53 n others not. S
1960: 6f 6d 65 74 69 6d 65 73 20 79 6f 75 20 63 61 6e ometimes you can
1970: 20 63 68 61 6e 67 65 20 74 68 65 20 62 65 68 61 change the beha
1980: 76 69 6f 72 20 6f 6e 20 74 68 65 20 73 61 6d 65 vior on the same
1990: 0a 2a 2a 20 73 79 73 74 65 6d 20 62 79 20 73 65 .** system by se
19a0: 74 74 69 6e 67 20 74 68 65 20 4c 44 5f 41 53 53 tting the LD_ASS
19b0: 55 4d 45 5f 4b 45 52 4e 45 4c 20 65 6e 76 69 72 UME_KERNEL envir
19c0: 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 2e onment variable.
19d0: 20 20 54 68 65 0a 2a 2a 20 50 4f 53 49 58 20 73 The.** POSIX s
19e0: 74 61 6e 64 61 72 64 20 69 73 20 73 69 6c 65 6e tandard is silen
19f0: 74 20 61 73 20 74 6f 20 77 68 69 63 68 20 62 65 t as to which be
1a00: 68 61 76 69 6f 72 20 69 73 20 63 6f 72 72 65 63 havior is correc
1a10: 74 2c 20 61 73 20 66 61 72 0a 2a 2a 20 61 73 20 t, as far.** as
1a20: 49 20 63 61 6e 20 74 65 6c 6c 2c 20 73 6f 20 6f I can tell, so o
1a30: 74 68 65 72 20 76 65 72 73 69 6f 6e 73 20 6f 66 ther versions of
1a40: 20 75 6e 69 78 20 6d 69 67 68 74 20 73 68 6f 77 unix might show
1a50: 20 74 68 65 20 73 61 6d 65 0a 2a 2a 20 69 6e 63 the same.** inc
1a60: 6f 6e 73 69 73 74 65 6e 63 79 2e 20 20 54 68 65 onsistency. The
1a70: 72 65 20 69 73 20 6e 6f 20 6c 69 74 74 6c 65 20 re is no little
1a80: 64 6f 75 62 74 20 69 6e 20 6d 79 20 6d 69 6e 64 doubt in my mind
1a90: 20 74 68 61 74 20 70 6f 73 69 78 0a 2a 2a 20 61 that posix.** a
1aa0: 64 76 69 73 6f 72 79 20 6c 6f 63 6b 73 20 61 6e dvisory locks an
1ab0: 64 20 6c 69 6e 75 78 20 74 68 72 65 61 64 73 20 d linux threads
1ac0: 61 72 65 20 70 72 6f 66 6f 75 6e 64 6c 79 20 62 are profoundly b
1ad0: 72 6f 6b 65 6e 2e 0a 2a 2a 0a 2a 2a 20 54 6f 20 roken..**.** To
1ae0: 77 6f 72 6b 20 61 72 6f 75 6e 64 20 74 68 65 20 work around the
1af0: 69 6e 63 6f 6e 73 69 73 74 65 6e 63 69 65 73 2c inconsistencies,
1b00: 20 77 65 20 68 61 76 65 20 74 6f 20 74 65 73 74 we have to test
1b10: 20 61 74 20 72 75 6e 74 69 6d 65 20 0a 2a 2a 20 at runtime .**
1b20: 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 whether or not t
1b30: 68 72 65 61 64 73 20 63 61 6e 20 6f 76 65 72 72 hreads can overr
1b40: 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 73 20 ide each others
1b50: 6c 6f 63 6b 73 2e 20 20 54 68 69 73 20 74 65 73 locks. This tes
1b60: 74 0a 2a 2a 20 69 73 20 72 75 6e 20 6f 6e 63 65 t.** is run once
1b70: 2c 20 74 68 65 20 66 69 72 73 74 20 74 69 6d 65 , the first time
1b80: 20 61 6e 79 20 6c 6f 63 6b 20 69 73 20 61 74 74 any lock is att
1b90: 65 6d 70 74 65 64 2e 20 20 41 20 73 74 61 74 69 empted. A stati
1ba0: 63 20 0a 2a 2a 20 76 61 72 69 61 62 6c 65 20 69 c .** variable i
1bb0: 73 20 73 65 74 20 74 6f 20 72 65 63 6f 72 64 20 s set to record
1bc0: 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 74 the results of t
1bd0: 68 69 73 20 74 65 73 74 20 66 6f 72 20 66 75 74 his test for fut
1be0: 75 72 65 0a 2a 2a 20 75 73 65 2e 0a 2a 2f 0a 0a ure.** use..*/..
1bf0: 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 /*.** An instanc
1c00: 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 e of the followi
1c10: 6e 67 20 73 74 72 75 63 74 75 72 65 20 73 65 72 ng structure ser
1c20: 76 65 73 20 61 73 20 74 68 65 20 6b 65 79 20 75 ves as the key u
1c30: 73 65 64 0a 2a 2a 20 74 6f 20 6c 6f 63 61 74 65 sed.** to locate
1c40: 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 6c 6f a particular lo
1c50: 63 6b 49 6e 66 6f 20 73 74 72 75 63 74 75 72 65 ckInfo structure
1c60: 20 67 69 76 65 6e 20 69 74 73 20 69 6e 6f 64 65 given its inode
1c70: 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 72 65 61 ..**.** If threa
1c80: 64 73 20 63 61 6e 6e 6f 74 20 6f 76 65 72 72 69 ds cannot overri
1c90: 64 65 20 65 61 63 68 20 6f 74 68 65 72 73 20 6c de each others l
1ca0: 6f 63 6b 73 2c 20 74 68 65 6e 20 77 65 20 73 65 ocks, then we se
1cb0: 74 20 74 68 65 0a 2a 2a 20 6c 6f 63 6b 4b 65 79 t the.** lockKey
1cc0: 2e 74 69 64 20 66 69 65 6c 64 20 74 6f 20 74 68 .tid field to th
1cd0: 65 20 74 68 72 65 61 64 20 49 44 2e 20 20 49 66 e thread ID. If
1ce0: 20 74 68 72 65 61 64 73 20 63 61 6e 20 6f 76 65 threads can ove
1cf0: 72 72 69 64 65 0a 2a 2a 20 65 61 63 68 20 6f 74 rride.** each ot
1d00: 68 65 72 73 20 6c 6f 63 6b 73 20 74 68 65 6e 20 hers locks then
1d10: 74 69 64 20 69 73 20 61 6c 77 61 79 73 20 73 65 tid is always se
1d20: 74 20 74 6f 20 7a 65 72 6f 2e 20 20 74 69 64 20 t to zero. tid
1d30: 69 73 20 61 6c 73 6f 0a 2a 2a 20 73 65 74 20 74 is also.** set t
1d40: 6f 20 7a 65 72 6f 20 69 66 20 77 65 20 63 6f 6d o zero if we com
1d50: 70 69 6c 65 20 77 69 74 68 6f 75 74 20 74 68 72 pile without thr
1d60: 65 61 64 69 6e 67 20 73 75 70 70 6f 72 74 2e 0a eading support..
1d70: 2a 2f 0a 73 74 72 75 63 74 20 6c 6f 63 6b 4b 65 */.struct lockKe
1d80: 79 20 7b 0a 20 20 64 65 76 5f 74 20 64 65 76 3b y {. dev_t dev;
1d90: 20 20 20 20 20 20 20 2f 2a 20 44 65 76 69 63 65 /* Device
1da0: 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 69 6e 6f number */. ino
1db0: 5f 74 20 69 6e 6f 3b 20 20 20 20 20 20 20 2f 2a _t ino; /*
1dc0: 20 49 6e 6f 64 65 20 6e 75 6d 62 65 72 20 2a 2f Inode number */
1dd0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 55 .#ifdef SQLITE_U
1de0: 4e 49 58 5f 54 48 52 45 41 44 53 0a 20 20 70 74 NIX_THREADS. pt
1df0: 68 72 65 61 64 5f 74 20 74 69 64 3b 20 20 20 2f hread_t tid; /
1e00: 2a 20 54 68 72 65 61 64 20 49 44 20 6f 72 20 7a * Thread ID or z
1e10: 65 72 6f 20 69 66 20 74 68 72 65 61 64 73 20 63 ero if threads c
1e20: 61 6e 6e 6f 74 20 6f 76 65 72 72 69 64 65 20 65 annot override e
1e30: 61 63 68 20 6f 74 68 65 72 20 2a 2f 0a 23 65 6e ach other */.#en
1e40: 64 69 66 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e dif.};../*.** An
1e50: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 instance of the
1e60: 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 following struc
1e70: 74 75 72 65 20 69 73 20 61 6c 6c 6f 63 61 74 65 ture is allocate
1e80: 64 20 66 6f 72 20 65 61 63 68 20 6f 70 65 6e 0a d for each open.
1e90: 2a 2a 20 69 6e 6f 64 65 20 6f 6e 20 65 61 63 68 ** inode on each
1ea0: 20 74 68 72 65 61 64 20 77 69 74 68 20 61 20 64 thread with a d
1eb0: 69 66 66 65 72 65 6e 74 20 70 72 6f 63 65 73 73 ifferent process
1ec0: 20 49 44 2e 20 20 28 54 68 72 65 61 64 73 20 68 ID. (Threads h
1ed0: 61 76 65 0a 2a 2a 20 64 69 66 66 65 72 65 6e 74 ave.** different
1ee0: 20 70 72 6f 63 65 73 73 20 49 44 73 20 6f 6e 20 process IDs on
1ef0: 6c 69 6e 75 78 2c 20 62 75 74 20 6e 6f 74 20 6f linux, but not o
1f00: 6e 20 6d 6f 73 74 20 6f 74 68 65 72 20 75 6e 69 n most other uni
1f10: 78 65 73 2e 29 0a 2a 2a 0a 2a 2a 20 41 20 73 69 xes.).**.** A si
1f20: 6e 67 6c 65 20 69 6e 6f 64 65 20 63 61 6e 20 68 ngle inode can h
1f30: 61 76 65 20 6d 75 6c 74 69 70 6c 65 20 66 69 6c ave multiple fil
1f40: 65 20 64 65 73 63 72 69 70 74 6f 72 73 2c 20 73 e descriptors, s
1f50: 6f 20 65 61 63 68 20 4f 73 46 69 6c 65 0a 2a 2a o each OsFile.**
1f60: 20 73 74 72 75 63 74 75 72 65 20 63 6f 6e 74 61 structure conta
1f70: 69 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 74 6f ins a pointer to
1f80: 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 an instance of
1f90: 74 68 69 73 20 6f 62 6a 65 63 74 20 61 6e 64 20 this object and
1fa0: 74 68 69 73 0a 2a 2a 20 6f 62 6a 65 63 74 20 6b this.** object k
1fb0: 65 65 70 73 20 61 20 63 6f 75 6e 74 20 6f 66 20 eeps a count of
1fc0: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 4f 73 the number of Os
1fd0: 46 69 6c 65 73 20 70 6f 69 6e 74 69 6e 67 20 74 Files pointing t
1fe0: 6f 20 69 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 o it..*/.struct
1ff0: 6c 6f 63 6b 49 6e 66 6f 20 7b 0a 20 20 73 74 72 lockInfo {. str
2000: 75 63 74 20 6c 6f 63 6b 4b 65 79 20 6b 65 79 3b uct lockKey key;
2010: 20 20 2f 2a 20 54 68 65 20 6c 6f 6f 6b 75 70 20 /* The lookup
2020: 6b 65 79 20 2a 2f 0a 20 20 69 6e 74 20 63 6e 74 key */. int cnt
2030: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a ; /*
2040: 20 4e 75 6d 62 65 72 20 6f 66 20 53 48 41 52 45 Number of SHARE
2050: 44 20 6c 6f 63 6b 73 20 68 65 6c 64 20 2a 2f 0a D locks held */.
2060: 20 20 69 6e 74 20 6c 6f 63 6b 74 79 70 65 3b 20 int locktype;
2070: 20 20 20 20 20 20 20 2f 2a 20 4f 6e 65 20 6f 66 /* One of
2080: 20 53 48 41 52 45 44 5f 4c 4f 43 4b 2c 20 52 45 SHARED_LOCK, RE
2090: 53 45 52 56 45 44 5f 4c 4f 43 4b 20 65 74 63 2e SERVED_LOCK etc.
20a0: 20 2a 2f 0a 20 20 69 6e 74 20 6e 52 65 66 3b 20 */. int nRef;
20b0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 /* Nu
20c0: 6d 62 65 72 20 6f 66 20 70 6f 69 6e 74 65 72 73 mber of pointers
20d0: 20 74 6f 20 74 68 69 73 20 73 74 72 75 63 74 75 to this structu
20e0: 72 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 re */.};../*.**
20f0: 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 An instance of t
2100: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 he following str
2110: 75 63 74 75 72 65 20 73 65 72 76 65 73 20 61 73 ucture serves as
2120: 20 74 68 65 20 6b 65 79 20 75 73 65 64 0a 2a 2a the key used.**
2130: 20 74 6f 20 6c 6f 63 61 74 65 20 61 20 70 61 72 to locate a par
2140: 74 69 63 75 6c 61 72 20 6f 70 65 6e 43 6e 74 20 ticular openCnt
2150: 73 74 72 75 63 74 75 72 65 20 67 69 76 65 6e 20 structure given
2160: 69 74 73 20 69 6e 6f 64 65 2e 20 20 54 68 69 73 its inode. This
2170: 0a 2a 2a 20 69 73 20 74 68 65 20 73 61 6d 65 20 .** is the same
2180: 61 73 20 74 68 65 20 6c 6f 63 6b 4b 65 79 20 65 as the lockKey e
2190: 78 63 65 70 74 20 74 68 61 74 20 74 68 65 20 74 xcept that the t
21a0: 68 72 65 61 64 20 49 44 20 69 73 20 6f 6d 69 74 hread ID is omit
21b0: 74 65 64 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 6f ted..*/.struct o
21c0: 70 65 6e 4b 65 79 20 7b 0a 20 20 64 65 76 5f 74 penKey {. dev_t
21d0: 20 64 65 76 3b 20 20 20 2f 2a 20 44 65 76 69 63 dev; /* Devic
21e0: 65 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 69 6e e number */. in
21f0: 6f 5f 74 20 69 6e 6f 3b 20 20 20 2f 2a 20 49 6e o_t ino; /* In
2200: 6f 64 65 20 6e 75 6d 62 65 72 20 2a 2f 0a 7d 3b ode number */.};
2210: 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 ../*.** An insta
2220: 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f nce of the follo
2230: 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 69 wing structure i
2240: 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 s allocated for
2250: 65 61 63 68 20 6f 70 65 6e 0a 2a 2a 20 69 6e 6f each open.** ino
2260: 64 65 2e 20 20 54 68 69 73 20 73 74 72 75 63 74 de. This struct
2270: 75 72 65 20 6b 65 65 70 73 20 74 72 61 63 6b 20 ure keeps track
2280: 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 of the number of
2290: 20 6c 6f 63 6b 73 20 6f 6e 20 74 68 61 74 0a 2a locks on that.*
22a0: 2a 20 69 6e 6f 64 65 2e 20 20 49 66 20 61 20 63 * inode. If a c
22b0: 6c 6f 73 65 20 69 73 20 61 74 74 65 6d 70 74 65 lose is attempte
22c0: 64 20 61 67 61 69 6e 73 74 20 61 6e 20 69 6e 6f d against an ino
22d0: 64 65 20 74 68 61 74 20 69 73 20 68 6f 6c 64 69 de that is holdi
22e0: 6e 67 0a 2a 2a 20 6c 6f 63 6b 73 2c 20 74 68 65 ng.** locks, the
22f0: 20 63 6c 6f 73 65 20 69 73 20 64 65 66 65 72 72 close is deferr
2300: 65 64 20 75 6e 74 69 6c 20 61 6c 6c 20 6c 6f 63 ed until all loc
2310: 6b 73 20 63 6c 65 61 72 20 62 79 20 61 64 64 69 ks clear by addi
2320: 6e 67 20 74 68 65 0a 2a 2a 20 66 69 6c 65 20 64 ng the.** file d
2330: 65 73 63 72 69 70 74 6f 72 20 74 6f 20 62 65 20 escriptor to be
2340: 63 6c 6f 73 65 64 20 74 6f 20 74 68 65 20 70 65 closed to the pe
2350: 6e 64 69 6e 67 20 6c 69 73 74 2e 0a 2a 2f 0a 73 nding list..*/.s
2360: 74 72 75 63 74 20 6f 70 65 6e 43 6e 74 20 7b 0a truct openCnt {.
2370: 20 20 73 74 72 75 63 74 20 6f 70 65 6e 4b 65 79 struct openKey
2380: 20 6b 65 79 3b 20 20 20 2f 2a 20 54 68 65 20 6c key; /* The l
2390: 6f 6f 6b 75 70 20 6b 65 79 20 2a 2f 0a 20 20 69 ookup key */. i
23a0: 6e 74 20 6e 52 65 66 3b 20 20 20 20 20 20 20 20 nt nRef;
23b0: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
23c0: 66 20 70 6f 69 6e 74 65 72 73 20 74 6f 20 74 68 f pointers to th
23d0: 69 73 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a is structure */.
23e0: 20 20 69 6e 74 20 6e 4c 6f 63 6b 3b 20 20 20 20 int nLock;
23f0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 /* Numbe
2400: 72 20 6f 66 20 6f 75 74 73 74 61 6e 64 69 6e 67 r of outstanding
2410: 20 6c 6f 63 6b 73 20 2a 2f 0a 20 20 69 6e 74 20 locks */. int
2420: 6e 50 65 6e 64 69 6e 67 3b 20 20 20 20 20 20 20 nPending;
2430: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 70 /* Number of p
2440: 65 6e 64 69 6e 67 20 63 6c 6f 73 65 28 29 20 6f ending close() o
2450: 70 65 72 61 74 69 6f 6e 73 20 2a 2f 0a 20 20 69 perations */. i
2460: 6e 74 20 2a 61 50 65 6e 64 69 6e 67 3b 20 20 20 nt *aPending;
2470: 20 20 20 20 20 2f 2a 20 4d 61 6c 6c 6f 63 65 64 /* Malloced
2480: 20 73 70 61 63 65 20 68 6f 6c 64 69 6e 67 20 66 space holding f
2490: 64 27 73 20 61 77 61 69 74 69 6e 67 20 61 20 63 d's awaiting a c
24a0: 6c 6f 73 65 28 29 20 2a 2f 0a 7d 3b 0a 0a 2f 2a lose() */.};../*
24b0: 20 0a 2a 2a 20 54 68 65 73 65 20 68 61 73 68 20 .** These hash
24c0: 74 61 62 6c 65 20 6d 61 70 73 20 69 6e 6f 64 65 table maps inode
24d0: 73 20 61 6e 64 20 70 72 6f 63 65 73 73 20 49 44 s and process ID
24e0: 73 20 69 6e 74 6f 20 6c 6f 63 6b 49 6e 66 6f 20 s into lockInfo
24f0: 61 6e 64 20 6f 70 65 6e 43 6e 74 0a 2a 2a 20 73 and openCnt.** s
2500: 74 72 75 63 74 75 72 65 73 2e 20 20 41 63 63 65 tructures. Acce
2510: 73 73 20 74 6f 20 74 68 65 73 65 20 68 61 73 68 ss to these hash
2520: 20 74 61 62 6c 65 73 20 6d 75 73 74 20 62 65 20 tables must be
2530: 70 72 6f 74 65 63 74 65 64 20 62 79 20 61 20 6d protected by a m
2540: 75 74 65 78 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 utex..*/.static
2550: 48 61 73 68 20 6c 6f 63 6b 48 61 73 68 20 3d 20 Hash lockHash =
2560: 7b 20 53 51 4c 49 54 45 5f 48 41 53 48 5f 42 49 { SQLITE_HASH_BI
2570: 4e 41 52 59 2c 20 30 2c 20 30 2c 20 30 2c 20 30 NARY, 0, 0, 0, 0
2580: 2c 20 30 20 7d 3b 0a 73 74 61 74 69 63 20 48 61 , 0 };.static Ha
2590: 73 68 20 6f 70 65 6e 48 61 73 68 20 3d 20 7b 20 sh openHash = {
25a0: 53 51 4c 49 54 45 5f 48 41 53 48 5f 42 49 4e 41 SQLITE_HASH_BINA
25b0: 52 59 2c 20 30 2c 20 30 2c 20 30 2c 20 30 2c 20 RY, 0, 0, 0, 0,
25c0: 30 20 7d 3b 0a 0a 0a 23 69 66 64 65 66 20 53 51 0 };...#ifdef SQ
25d0: 4c 49 54 45 5f 55 4e 49 58 5f 54 48 52 45 41 44 LITE_UNIX_THREAD
25e0: 53 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 76 61 72 S./*.** This var
25f0: 69 61 62 6c 65 20 72 65 63 6f 72 64 73 20 77 68 iable records wh
2600: 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 72 ether or not thr
2610: 65 61 64 73 20 63 61 6e 20 6f 76 65 72 72 69 64 eads can overrid
2620: 65 20 65 61 63 68 20 6f 74 68 65 72 73 0a 2a 2a e each others.**
2630: 20 6c 6f 63 6b 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 locks..**.**
2640: 20 30 3a 20 20 4e 6f 2e 20 20 54 68 72 65 61 64 0: No. Thread
2650: 73 20 63 61 6e 6e 6f 74 20 6f 76 65 72 72 69 64 s cannot overrid
2660: 65 20 65 61 63 68 20 6f 74 68 65 72 73 20 6c 6f e each others lo
2670: 63 6b 73 2e 0a 2a 2a 20 20 20 20 31 3a 20 20 59 cks..** 1: Y
2680: 65 73 2e 20 20 54 68 72 65 61 64 73 20 63 61 6e es. Threads can
2690: 20 6f 76 65 72 72 69 64 65 20 65 61 63 68 20 6f override each o
26a0: 74 68 65 72 73 20 6c 6f 63 6b 73 2e 0a 2a 2a 20 thers locks..**
26b0: 20 20 2d 31 3a 20 20 57 65 20 64 6f 6e 27 74 20 -1: We don't
26c0: 6b 6e 6f 77 20 79 65 74 2e 0a 2a 2f 0a 73 74 61 know yet..*/.sta
26d0: 74 69 63 20 69 6e 74 20 74 68 72 65 61 64 73 4f tic int threadsO
26e0: 76 65 72 72 69 64 65 45 61 63 68 4f 74 68 65 72 verrideEachOther
26f0: 73 4c 6f 63 6b 73 20 3d 20 2d 31 3b 0a 0a 2f 2a sLocks = -1;../*
2700: 0a 2a 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 .** This structu
2710: 72 65 20 68 6f 6c 64 73 20 69 6e 66 6f 72 6d 61 re holds informa
2720: 74 69 6f 6e 20 70 61 73 73 65 64 20 69 6e 74 6f tion passed into
2730: 20 69 6e 64 69 76 69 64 75 61 6c 20 74 65 73 74 individual test
2740: 0a 2a 2a 20 74 68 72 65 61 64 73 20 62 79 20 74 .** threads by t
2750: 68 65 20 74 65 73 74 54 68 72 65 61 64 4c 6f 63 he testThreadLoc
2760: 6b 69 6e 67 42 65 68 61 76 69 6f 72 28 29 20 72 kingBehavior() r
2770: 6f 75 74 69 6e 65 2e 0a 2a 2f 0a 73 74 72 75 63 outine..*/.struc
2780: 74 20 74 68 72 65 61 64 54 65 73 74 44 61 74 61 t threadTestData
2790: 20 7b 0a 20 20 69 6e 74 20 66 64 3b 20 20 20 20 {. int fd;
27a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 /* F
27b0: 69 6c 65 20 74 6f 20 62 65 20 6c 6f 63 6b 65 64 ile to be locked
27c0: 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 66 6c 6f */. struct flo
27d0: 63 6b 20 6c 6f 63 6b 3b 20 20 20 20 20 2f 2a 20 ck lock; /*
27e0: 54 68 65 20 6c 6f 63 6b 69 6e 67 20 6f 70 65 72 The locking oper
27f0: 61 74 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 20 72 ation */. int r
2800: 65 73 75 6c 74 3b 20 20 20 20 20 20 20 20 20 20 esult;
2810: 20 20 2f 2a 20 52 65 73 75 6c 74 20 6f 66 20 74 /* Result of t
2820: 68 65 20 6c 6f 63 6b 69 6e 67 20 6f 70 65 72 61 he locking opera
2830: 74 69 6f 6e 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a tion */.};../*.*
2840: 2a 20 54 68 65 20 74 65 73 74 54 68 72 65 61 64 * The testThread
2850: 4c 6f 63 6b 69 6e 67 42 65 68 61 76 69 6f 72 28 LockingBehavior(
2860: 29 20 72 6f 75 74 69 6e 65 20 6c 61 75 6e 63 68 ) routine launch
2870: 65 73 20 74 77 6f 20 73 65 70 61 72 61 74 65 0a es two separate.
2880: 2a 2a 20 74 68 72 65 61 64 73 20 6f 6e 20 74 68 ** threads on th
2890: 69 73 20 72 6f 75 74 69 6e 65 2e 20 20 54 68 69 is routine. Thi
28a0: 73 20 72 6f 75 74 69 6e 65 20 61 74 74 65 6d 70 s routine attemp
28b0: 74 73 20 74 6f 20 6c 6f 63 6b 20 61 20 66 69 6c ts to lock a fil
28c0: 65 0a 2a 2a 20 64 65 73 63 72 69 70 74 6f 72 20 e.** descriptor
28d0: 74 68 65 6e 20 72 65 74 75 72 6e 73 2e 20 20 54 then returns. T
28e0: 68 65 20 73 75 63 63 65 73 73 20 6f 72 20 66 61 he success or fa
28f0: 69 6c 75 72 65 20 6f 66 20 74 68 61 74 20 61 74 ilure of that at
2900: 74 65 6d 70 74 0a 2a 2a 20 61 6c 6c 6f 77 73 20 tempt.** allows
2910: 74 68 65 20 74 65 73 74 54 68 72 65 61 64 4c 6f the testThreadLo
2920: 63 6b 69 6e 67 42 65 68 61 76 69 6f 72 28 29 20 ckingBehavior()
2930: 70 72 6f 63 65 64 75 72 65 20 74 6f 20 64 65 74 procedure to det
2940: 65 72 6d 69 6e 65 0a 2a 2a 20 77 68 65 74 68 65 ermine.** whethe
2950: 72 20 6f 72 20 6e 6f 74 20 74 68 72 65 61 64 73 r or not threads
2960: 20 63 61 6e 20 6f 76 65 72 72 69 64 65 20 65 61 can override ea
2970: 63 68 20 6f 74 68 65 72 73 20 6c 6f 63 6b 73 2e ch others locks.
2980: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
2990: 2a 74 68 72 65 61 64 4c 6f 63 6b 69 6e 67 54 65 *threadLockingTe
29a0: 73 74 28 76 6f 69 64 20 2a 70 41 72 67 29 7b 0a st(void *pArg){.
29b0: 20 20 73 74 72 75 63 74 20 74 68 72 65 61 64 54 struct threadT
29c0: 65 73 74 44 61 74 61 20 2a 70 44 61 74 61 20 3d estData *pData =
29d0: 20 28 73 74 72 75 63 74 20 74 68 72 65 61 64 54 (struct threadT
29e0: 65 73 74 44 61 74 61 2a 29 70 41 72 67 3b 0a 20 estData*)pArg;.
29f0: 20 70 44 61 74 61 2d 3e 72 65 73 75 6c 74 20 3d pData->result =
2a00: 20 66 63 6e 74 6c 28 70 44 61 74 61 2d 3e 66 64 fcntl(pData->fd
2a10: 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 70 44 61 74 , F_SETLK, &pDat
2a20: 61 2d 3e 6c 6f 63 6b 29 3b 0a 20 20 72 65 74 75 a->lock);. retu
2a30: 72 6e 20 70 41 72 67 3b 0a 7d 0a 0a 2f 2a 0a 2a rn pArg;.}../*.*
2a40: 2a 20 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 * This procedure
2a50: 20 61 74 74 65 6d 70 74 73 20 74 6f 20 64 65 74 attempts to det
2a60: 65 72 6d 69 6e 65 20 77 68 65 74 68 65 72 20 6f ermine whether o
2a70: 72 20 6e 6f 74 20 74 68 72 65 61 64 73 0a 2a 2a r not threads.**
2a80: 20 63 61 6e 20 6f 76 65 72 72 69 64 65 20 65 61 can override ea
2a90: 63 68 20 6f 74 68 65 72 73 20 6c 6f 63 6b 73 20 ch others locks
2aa0: 74 68 65 6e 20 73 65 74 73 20 74 68 65 20 0a 2a then sets the .*
2ab0: 2a 20 74 68 72 65 61 64 73 4f 76 65 72 72 69 64 * threadsOverrid
2ac0: 65 45 61 63 68 4f 74 68 65 72 73 4c 6f 63 6b 73 eEachOthersLocks
2ad0: 20 76 61 72 69 61 62 6c 65 20 61 70 70 72 6f 70 variable approp
2ae0: 72 69 61 74 65 6c 79 2e 0a 2a 2f 0a 73 74 61 74 riately..*/.stat
2af0: 69 63 20 76 6f 69 64 20 74 65 73 74 54 68 72 65 ic void testThre
2b00: 61 64 4c 6f 63 6b 69 6e 67 42 65 68 61 76 69 6f adLockingBehavio
2b10: 72 28 66 64 5f 6f 72 69 67 29 7b 0a 20 20 69 6e r(fd_orig){. in
2b20: 74 20 66 64 3b 0a 20 20 73 74 72 75 63 74 20 74 t fd;. struct t
2b30: 68 72 65 61 64 54 65 73 74 44 61 74 61 20 64 5b hreadTestData d[
2b40: 32 5d 3b 0a 20 20 70 74 68 72 65 61 64 5f 74 20 2];. pthread_t
2b50: 74 5b 32 5d 3b 0a 0a 20 20 66 64 20 3d 20 64 75 t[2];.. fd = du
2b60: 70 28 66 64 5f 6f 72 69 67 29 3b 0a 20 20 69 66 p(fd_orig);. if
2b70: 28 20 66 64 3c 30 20 29 20 72 65 74 75 72 6e 3b ( fd<0 ) return;
2b80: 0a 20 20 6d 65 6d 73 65 74 28 64 2c 20 30 2c 20 . memset(d, 0,
2b90: 73 69 7a 65 6f 66 28 64 29 29 3b 0a 20 20 64 5b sizeof(d));. d[
2ba0: 30 5d 2e 66 64 20 3d 20 66 64 3b 0a 20 20 64 5b 0].fd = fd;. d[
2bb0: 30 5d 2e 6c 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 0].lock.l_type =
2bc0: 20 46 5f 52 44 4c 43 4b 3b 0a 20 20 64 5b 30 5d F_RDLCK;. d[0]
2bd0: 2e 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 3d 20 31 3b .lock.l_len = 1;
2be0: 0a 20 20 64 5b 30 5d 2e 6c 6f 63 6b 2e 6c 5f 73 . d[0].lock.l_s
2bf0: 74 61 72 74 20 3d 20 30 3b 0a 20 20 64 5b 30 5d tart = 0;. d[0]
2c00: 2e 6c 6f 63 6b 2e 6c 5f 77 68 65 6e 63 65 20 3d .lock.l_whence =
2c10: 20 53 45 45 4b 5f 53 45 54 3b 0a 20 20 64 5b 31 SEEK_SET;. d[1
2c20: 5d 20 3d 20 64 5b 30 5d 3b 0a 20 20 64 5b 31 5d ] = d[0];. d[1]
2c30: 2e 6c 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 .lock.l_type = F
2c40: 5f 57 52 4c 43 4b 3b 0a 20 20 70 74 68 72 65 61 _WRLCK;. pthrea
2c50: 64 5f 63 72 65 61 74 65 28 26 74 5b 30 5d 2c 20 d_create(&t[0],
2c60: 30 2c 20 74 68 72 65 61 64 4c 6f 63 6b 69 6e 67 0, threadLocking
2c70: 54 65 73 74 2c 20 26 64 5b 30 5d 29 3b 0a 20 20 Test, &d[0]);.
2c80: 70 74 68 72 65 61 64 5f 63 72 65 61 74 65 28 26 pthread_create(&
2c90: 74 5b 31 5d 2c 20 30 2c 20 74 68 72 65 61 64 4c t[1], 0, threadL
2ca0: 6f 63 6b 69 6e 67 54 65 73 74 2c 20 26 64 5b 31 ockingTest, &d[1
2cb0: 5d 29 3b 0a 20 20 70 74 68 72 65 61 64 5f 6a 6f ]);. pthread_jo
2cc0: 69 6e 28 74 5b 30 5d 2c 20 30 29 3b 0a 20 20 70 in(t[0], 0);. p
2cd0: 74 68 72 65 61 64 5f 6a 6f 69 6e 28 74 5b 31 5d thread_join(t[1]
2ce0: 2c 20 30 29 3b 0a 20 20 63 6c 6f 73 65 28 66 64 , 0);. close(fd
2cf0: 29 3b 0a 20 20 74 68 72 65 61 64 73 4f 76 65 72 );. threadsOver
2d00: 72 69 64 65 45 61 63 68 4f 74 68 65 72 73 4c 6f rideEachOthersLo
2d10: 63 6b 73 20 3d 20 20 64 5b 30 5d 2e 72 65 73 75 cks = d[0].resu
2d20: 6c 74 3d 3d 30 20 26 26 20 64 5b 31 5d 2e 72 65 lt==0 && d[1].re
2d30: 73 75 6c 74 3d 3d 30 3b 0a 7d 0a 23 65 6e 64 69 sult==0;.}.#endi
2d40: 66 20 2f 2a 20 53 51 4c 49 54 45 5f 55 4e 49 58 f /* SQLITE_UNIX
2d50: 5f 54 48 52 45 41 44 53 20 2a 2f 0a 0a 2f 2a 0a _THREADS */../*.
2d60: 2a 2a 20 52 65 6c 65 61 73 65 20 61 20 6c 6f 63 ** Release a loc
2d70: 6b 49 6e 66 6f 20 73 74 72 75 63 74 75 72 65 20 kInfo structure
2d80: 70 72 65 76 69 6f 75 73 6c 79 20 61 6c 6c 6f 63 previously alloc
2d90: 61 74 65 64 20 62 79 20 66 69 6e 64 4c 6f 63 6b ated by findLock
2da0: 49 6e 66 6f 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 Info()..*/.stati
2db0: 63 20 76 6f 69 64 20 72 65 6c 65 61 73 65 4c 6f c void releaseLo
2dc0: 63 6b 49 6e 66 6f 28 73 74 72 75 63 74 20 6c 6f ckInfo(struct lo
2dd0: 63 6b 49 6e 66 6f 20 2a 70 4c 6f 63 6b 29 7b 0a ckInfo *pLock){.
2de0: 20 20 70 4c 6f 63 6b 2d 3e 6e 52 65 66 2d 2d 3b pLock->nRef--;
2df0: 0a 20 20 69 66 28 20 70 4c 6f 63 6b 2d 3e 6e 52 . if( pLock->nR
2e00: 65 66 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c ef==0 ){. sql
2e10: 69 74 65 33 48 61 73 68 49 6e 73 65 72 74 28 26 ite3HashInsert(&
2e20: 6c 6f 63 6b 48 61 73 68 2c 20 26 70 4c 6f 63 6b lockHash, &pLock
2e30: 2d 3e 6b 65 79 2c 20 73 69 7a 65 6f 66 28 70 4c ->key, sizeof(pL
2e40: 6f 63 6b 2d 3e 6b 65 79 29 2c 20 30 29 3b 0a 20 ock->key), 0);.
2e50: 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 4c sqliteFree(pL
2e60: 6f 63 6b 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a ock);. }.}../*.
2e70: 2a 2a 20 52 65 6c 65 61 73 65 20 61 20 6f 70 65 ** Release a ope
2e80: 6e 43 6e 74 20 73 74 72 75 63 74 75 72 65 20 70 nCnt structure p
2e90: 72 65 76 69 6f 75 73 6c 79 20 61 6c 6c 6f 63 61 reviously alloca
2ea0: 74 65 64 20 62 79 20 66 69 6e 64 4c 6f 63 6b 49 ted by findLockI
2eb0: 6e 66 6f 28 29 2e 0a 2a 2f 0a 73 74 61 74 69 63 nfo()..*/.static
2ec0: 20 76 6f 69 64 20 72 65 6c 65 61 73 65 4f 70 65 void releaseOpe
2ed0: 6e 43 6e 74 28 73 74 72 75 63 74 20 6f 70 65 6e nCnt(struct open
2ee0: 43 6e 74 20 2a 70 4f 70 65 6e 29 7b 0a 20 20 70 Cnt *pOpen){. p
2ef0: 4f 70 65 6e 2d 3e 6e 52 65 66 2d 2d 3b 0a 20 20 Open->nRef--;.
2f00: 69 66 28 20 70 4f 70 65 6e 2d 3e 6e 52 65 66 3d if( pOpen->nRef=
2f10: 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 =0 ){. sqlite
2f20: 33 48 61 73 68 49 6e 73 65 72 74 28 26 6f 70 65 3HashInsert(&ope
2f30: 6e 48 61 73 68 2c 20 26 70 4f 70 65 6e 2d 3e 6b nHash, &pOpen->k
2f40: 65 79 2c 20 73 69 7a 65 6f 66 28 70 4f 70 65 6e ey, sizeof(pOpen
2f50: 2d 3e 6b 65 79 29 2c 20 30 29 3b 0a 20 20 20 20 ->key), 0);.
2f60: 73 71 6c 69 74 65 46 72 65 65 28 70 4f 70 65 6e sqliteFree(pOpen
2f70: 2d 3e 61 50 65 6e 64 69 6e 67 29 3b 0a 20 20 20 ->aPending);.
2f80: 20 73 71 6c 69 74 65 46 72 65 65 28 70 4f 70 65 sqliteFree(pOpe
2f90: 6e 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a n);. }.}../*.**
2fa0: 20 47 69 76 65 6e 20 61 20 66 69 6c 65 20 64 65 Given a file de
2fb0: 73 63 72 69 70 74 6f 72 2c 20 6c 6f 63 61 74 65 scriptor, locate
2fc0: 20 6c 6f 63 6b 49 6e 66 6f 20 61 6e 64 20 6f 70 lockInfo and op
2fd0: 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 65 73 enCnt structures
2fe0: 20 74 68 61 74 0a 2a 2a 20 64 65 73 63 72 69 62 that.** describ
2ff0: 65 73 20 74 68 61 74 20 66 69 6c 65 20 64 65 73 es that file des
3000: 63 72 69 70 74 6f 72 2e 20 20 43 72 65 61 74 65 criptor. Create
3010: 20 61 20 6e 65 77 20 6f 6e 65 73 20 69 66 20 6e a new ones if n
3020: 65 63 65 73 73 61 72 79 2e 20 20 54 68 65 0a 2a ecessary. The.*
3030: 2a 20 72 65 74 75 72 6e 20 76 61 6c 75 65 73 20 * return values
3040: 6d 69 67 68 74 20 62 65 20 75 6e 73 65 74 20 69 might be unset i
3050: 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 f an error occur
3060: 73 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 s..**.** Return
3070: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 65 72 the number of er
3080: 72 6f 72 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 rors..*/.static
3090: 69 6e 74 20 66 69 6e 64 4c 6f 63 6b 49 6e 66 6f int findLockInfo
30a0: 28 0a 20 20 69 6e 74 20 66 64 2c 20 20 20 20 20 (. int fd,
30b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30c0: 20 2f 2a 20 54 68 65 20 66 69 6c 65 20 64 65 73 /* The file des
30d0: 63 72 69 70 74 6f 72 20 75 73 65 64 20 69 6e 20 criptor used in
30e0: 74 68 65 20 6b 65 79 20 2a 2f 0a 20 20 73 74 72 the key */. str
30f0: 75 63 74 20 6c 6f 63 6b 49 6e 66 6f 20 2a 2a 70 uct lockInfo **p
3100: 70 4c 6f 63 6b 2c 20 20 20 20 2f 2a 20 52 65 74 pLock, /* Ret
3110: 75 72 6e 20 74 68 65 20 6c 6f 63 6b 49 6e 66 6f urn the lockInfo
3120: 20 73 74 72 75 63 74 75 72 65 20 68 65 72 65 20 structure here
3130: 2a 2f 0a 20 20 73 74 72 75 63 74 20 6f 70 65 6e */. struct open
3140: 43 6e 74 20 2a 2a 70 70 4f 70 65 6e 20 20 20 20 Cnt **ppOpen
3150: 20 20 2f 2a 20 52 65 74 75 72 6e 20 74 68 65 20 /* Return the
3160: 6f 70 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 openCnt structur
3170: 65 20 68 65 72 65 20 2a 2f 0a 29 7b 0a 20 20 69 e here */.){. i
3180: 6e 74 20 72 63 3b 0a 20 20 73 74 72 75 63 74 20 nt rc;. struct
3190: 6c 6f 63 6b 4b 65 79 20 6b 65 79 31 3b 0a 20 20 lockKey key1;.
31a0: 73 74 72 75 63 74 20 6f 70 65 6e 4b 65 79 20 6b struct openKey k
31b0: 65 79 32 3b 0a 20 20 73 74 72 75 63 74 20 73 74 ey2;. struct st
31c0: 61 74 20 73 74 61 74 62 75 66 3b 0a 20 20 73 74 at statbuf;. st
31d0: 72 75 63 74 20 6c 6f 63 6b 49 6e 66 6f 20 2a 70 ruct lockInfo *p
31e0: 4c 6f 63 6b 3b 0a 20 20 73 74 72 75 63 74 20 6f Lock;. struct o
31f0: 70 65 6e 43 6e 74 20 2a 70 4f 70 65 6e 3b 0a 20 penCnt *pOpen;.
3200: 20 72 63 20 3d 20 66 73 74 61 74 28 66 64 2c 20 rc = fstat(fd,
3210: 26 73 74 61 74 62 75 66 29 3b 0a 20 20 69 66 28 &statbuf);. if(
3220: 20 72 63 21 3d 30 20 29 20 72 65 74 75 72 6e 20 rc!=0 ) return
3230: 31 3b 0a 20 20 6d 65 6d 73 65 74 28 26 6b 65 79 1;. memset(&key
3240: 31 2c 20 30 2c 20 73 69 7a 65 6f 66 28 6b 65 79 1, 0, sizeof(key
3250: 31 29 29 3b 0a 20 20 6b 65 79 31 2e 64 65 76 20 1));. key1.dev
3260: 3d 20 73 74 61 74 62 75 66 2e 73 74 5f 64 65 76 = statbuf.st_dev
3270: 3b 0a 20 20 6b 65 79 31 2e 69 6e 6f 20 3d 20 73 ;. key1.ino = s
3280: 74 61 74 62 75 66 2e 73 74 5f 69 6e 6f 3b 0a 23 tatbuf.st_ino;.#
3290: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 55 4e 49 ifdef SQLITE_UNI
32a0: 58 5f 54 48 52 45 41 44 53 0a 20 20 69 66 28 20 X_THREADS. if(
32b0: 74 68 72 65 61 64 73 4f 76 65 72 72 69 64 65 45 threadsOverrideE
32c0: 61 63 68 4f 74 68 65 72 73 4c 6f 63 6b 73 3c 30 achOthersLocks<0
32d0: 20 29 7b 0a 20 20 20 20 74 65 73 74 54 68 72 65 ){. testThre
32e0: 61 64 4c 6f 63 6b 69 6e 67 42 65 68 61 76 69 6f adLockingBehavio
32f0: 72 28 66 64 29 3b 0a 20 20 7d 0a 20 20 6b 65 79 r(fd);. }. key
3300: 31 2e 74 69 64 20 3d 20 74 68 72 65 61 64 73 4f 1.tid = threadsO
3310: 76 65 72 72 69 64 65 45 61 63 68 4f 74 68 65 72 verrideEachOther
3320: 73 4c 6f 63 6b 73 20 3f 20 30 20 3a 20 70 74 68 sLocks ? 0 : pth
3330: 72 65 61 64 5f 73 65 6c 66 28 29 3b 0a 23 65 6e read_self();.#en
3340: 64 69 66 0a 20 20 6d 65 6d 73 65 74 28 26 6b 65 dif. memset(&ke
3350: 79 32 2c 20 30 2c 20 73 69 7a 65 6f 66 28 6b 65 y2, 0, sizeof(ke
3360: 79 32 29 29 3b 0a 20 20 6b 65 79 32 2e 64 65 76 y2));. key2.dev
3370: 20 3d 20 73 74 61 74 62 75 66 2e 73 74 5f 64 65 = statbuf.st_de
3380: 76 3b 0a 20 20 6b 65 79 32 2e 69 6e 6f 20 3d 20 v;. key2.ino =
3390: 73 74 61 74 62 75 66 2e 73 74 5f 69 6e 6f 3b 0a statbuf.st_ino;.
33a0: 20 20 70 4c 6f 63 6b 20 3d 20 28 73 74 72 75 63 pLock = (struc
33b0: 74 20 6c 6f 63 6b 49 6e 66 6f 2a 29 73 71 6c 69 t lockInfo*)sqli
33c0: 74 65 33 48 61 73 68 46 69 6e 64 28 26 6c 6f 63 te3HashFind(&loc
33d0: 6b 48 61 73 68 2c 20 26 6b 65 79 31 2c 20 73 69 kHash, &key1, si
33e0: 7a 65 6f 66 28 6b 65 79 31 29 29 3b 0a 20 20 69 zeof(key1));. i
33f0: 66 28 20 70 4c 6f 63 6b 3d 3d 30 20 29 7b 0a 20 f( pLock==0 ){.
3400: 20 20 20 73 74 72 75 63 74 20 6c 6f 63 6b 49 6e struct lockIn
3410: 66 6f 20 2a 70 4f 6c 64 3b 0a 20 20 20 20 70 4c fo *pOld;. pL
3420: 6f 63 6b 20 3d 20 73 71 6c 69 74 65 4d 61 6c 6c ock = sqliteMall
3430: 6f 63 52 61 77 28 20 73 69 7a 65 6f 66 28 2a 70 ocRaw( sizeof(*p
3440: 4c 6f 63 6b 29 20 29 3b 0a 20 20 20 20 69 66 28 Lock) );. if(
3450: 20 70 4c 6f 63 6b 3d 3d 30 20 29 20 72 65 74 75 pLock==0 ) retu
3460: 72 6e 20 31 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d rn 1;. pLock-
3470: 3e 6b 65 79 20 3d 20 6b 65 79 31 3b 0a 20 20 20 >key = key1;.
3480: 20 70 4c 6f 63 6b 2d 3e 6e 52 65 66 20 3d 20 31 pLock->nRef = 1
3490: 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 63 6e 74 ;. pLock->cnt
34a0: 20 3d 20 30 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d = 0;. pLock-
34b0: 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 30 3b 0a 20 >locktype = 0;.
34c0: 20 20 20 70 4f 6c 64 20 3d 20 73 71 6c 69 74 65 pOld = sqlite
34d0: 33 48 61 73 68 49 6e 73 65 72 74 28 26 6c 6f 63 3HashInsert(&loc
34e0: 6b 48 61 73 68 2c 20 26 70 4c 6f 63 6b 2d 3e 6b kHash, &pLock->k
34f0: 65 79 2c 20 73 69 7a 65 6f 66 28 6b 65 79 31 29 ey, sizeof(key1)
3500: 2c 20 70 4c 6f 63 6b 29 3b 0a 20 20 20 20 69 66 , pLock);. if
3510: 28 20 70 4f 6c 64 21 3d 30 20 29 7b 0a 20 20 20 ( pOld!=0 ){.
3520: 20 20 20 61 73 73 65 72 74 28 20 70 4f 6c 64 3d assert( pOld=
3530: 3d 70 4c 6f 63 6b 20 29 3b 0a 20 20 20 20 20 20 =pLock );.
3540: 73 71 6c 69 74 65 46 72 65 65 28 70 4c 6f 63 6b sqliteFree(pLock
3550: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 );. return
3560: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 1;. }. }else
3570: 7b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 6e 52 65 {. pLock->nRe
3580: 66 2b 2b 3b 0a 20 20 7d 0a 20 20 2a 70 70 4c 6f f++;. }. *ppLo
3590: 63 6b 20 3d 20 70 4c 6f 63 6b 3b 0a 20 20 70 4f ck = pLock;. pO
35a0: 70 65 6e 20 3d 20 28 73 74 72 75 63 74 20 6f 70 pen = (struct op
35b0: 65 6e 43 6e 74 2a 29 73 71 6c 69 74 65 33 48 61 enCnt*)sqlite3Ha
35c0: 73 68 46 69 6e 64 28 26 6f 70 65 6e 48 61 73 68 shFind(&openHash
35d0: 2c 20 26 6b 65 79 32 2c 20 73 69 7a 65 6f 66 28 , &key2, sizeof(
35e0: 6b 65 79 32 29 29 3b 0a 20 20 69 66 28 20 70 4f key2));. if( pO
35f0: 70 65 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 73 74 pen==0 ){. st
3600: 72 75 63 74 20 6f 70 65 6e 43 6e 74 20 2a 70 4f ruct openCnt *pO
3610: 6c 64 3b 0a 20 20 20 20 70 4f 70 65 6e 20 3d 20 ld;. pOpen =
3620: 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 52 61 77 28 sqliteMallocRaw(
3630: 20 73 69 7a 65 6f 66 28 2a 70 4f 70 65 6e 29 20 sizeof(*pOpen)
3640: 29 3b 0a 20 20 20 20 69 66 28 20 70 4f 70 65 6e );. if( pOpen
3650: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 72 65 6c ==0 ){. rel
3660: 65 61 73 65 4c 6f 63 6b 49 6e 66 6f 28 70 4c 6f easeLockInfo(pLo
3670: 63 6b 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 ck);. retur
3680: 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70 n 1;. }. p
3690: 4f 70 65 6e 2d 3e 6b 65 79 20 3d 20 6b 65 79 32 Open->key = key2
36a0: 3b 0a 20 20 20 20 70 4f 70 65 6e 2d 3e 6e 52 65 ;. pOpen->nRe
36b0: 66 20 3d 20 31 3b 0a 20 20 20 20 70 4f 70 65 6e f = 1;. pOpen
36c0: 2d 3e 6e 4c 6f 63 6b 20 3d 20 30 3b 0a 20 20 20 ->nLock = 0;.
36d0: 20 70 4f 70 65 6e 2d 3e 6e 50 65 6e 64 69 6e 67 pOpen->nPending
36e0: 20 3d 20 30 3b 0a 20 20 20 20 70 4f 70 65 6e 2d = 0;. pOpen-
36f0: 3e 61 50 65 6e 64 69 6e 67 20 3d 20 30 3b 0a 20 >aPending = 0;.
3700: 20 20 20 70 4f 6c 64 20 3d 20 73 71 6c 69 74 65 pOld = sqlite
3710: 33 48 61 73 68 49 6e 73 65 72 74 28 26 6f 70 65 3HashInsert(&ope
3720: 6e 48 61 73 68 2c 20 26 70 4f 70 65 6e 2d 3e 6b nHash, &pOpen->k
3730: 65 79 2c 20 73 69 7a 65 6f 66 28 6b 65 79 32 29 ey, sizeof(key2)
3740: 2c 20 70 4f 70 65 6e 29 3b 0a 20 20 20 20 69 66 , pOpen);. if
3750: 28 20 70 4f 6c 64 21 3d 30 20 29 7b 0a 20 20 20 ( pOld!=0 ){.
3760: 20 20 20 61 73 73 65 72 74 28 20 70 4f 6c 64 3d assert( pOld=
3770: 3d 70 4f 70 65 6e 20 29 3b 0a 20 20 20 20 20 20 =pOpen );.
3780: 73 71 6c 69 74 65 46 72 65 65 28 70 4f 70 65 6e sqliteFree(pOpen
3790: 29 3b 0a 20 20 20 20 20 20 72 65 6c 65 61 73 65 );. release
37a0: 4c 6f 63 6b 49 6e 66 6f 28 70 4c 6f 63 6b 29 3b LockInfo(pLock);
37b0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 31 3b . return 1;
37c0: 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a . }. }else{.
37d0: 20 20 20 20 70 4f 70 65 6e 2d 3e 6e 52 65 66 2b pOpen->nRef+
37e0: 2b 3b 0a 20 20 7d 0a 20 20 2a 70 70 4f 70 65 6e +;. }. *ppOpen
37f0: 20 3d 20 70 4f 70 65 6e 3b 0a 20 20 72 65 74 75 = pOpen;. retu
3800: 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 rn 0;.}../*.** D
3810: 65 6c 65 74 65 20 74 68 65 20 6e 61 6d 65 64 20 elete the named
3820: 66 69 6c 65 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 file.*/.int sqli
3830: 74 65 33 4f 73 44 65 6c 65 74 65 28 63 6f 6e 73 te3OsDelete(cons
3840: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d t char *zFilenam
3850: 65 29 7b 0a 20 20 75 6e 6c 69 6e 6b 28 7a 46 69 e){. unlink(zFi
3860: 6c 65 6e 61 6d 65 29 3b 0a 20 20 72 65 74 75 72 lename);. retur
3870: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a n SQLITE_OK;.}..
3880: 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 /*.** Return TRU
3890: 45 20 69 66 20 74 68 65 20 6e 61 6d 65 64 20 66 E if the named f
38a0: 69 6c 65 20 65 78 69 73 74 73 2e 0a 2a 2f 0a 69 ile exists..*/.i
38b0: 6e 74 20 73 71 6c 69 74 65 33 4f 73 46 69 6c 65 nt sqlite3OsFile
38c0: 45 78 69 73 74 73 28 63 6f 6e 73 74 20 63 68 61 Exists(const cha
38d0: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 r *zFilename){.
38e0: 20 72 65 74 75 72 6e 20 61 63 63 65 73 73 28 7a return access(z
38f0: 46 69 6c 65 6e 61 6d 65 2c 20 30 29 3d 3d 30 3b Filename, 0)==0;
3900: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 6d 70 .}../*.** Attemp
3910: 74 20 74 6f 20 6f 70 65 6e 20 61 20 66 69 6c 65 t to open a file
3920: 20 66 6f 72 20 62 6f 74 68 20 72 65 61 64 69 6e for both readin
3930: 67 20 61 6e 64 20 77 72 69 74 69 6e 67 2e 20 20 g and writing.
3940: 49 66 20 74 68 61 74 0a 2a 2a 20 66 61 69 6c 73 If that.** fails
3950: 2c 20 74 72 79 20 6f 70 65 6e 69 6e 67 20 69 74 , try opening it
3960: 20 72 65 61 64 2d 6f 6e 6c 79 2e 20 20 49 66 20 read-only. If
3970: 74 68 65 20 66 69 6c 65 20 64 6f 65 73 20 6e 6f the file does no
3980: 74 20 65 78 69 73 74 2c 0a 2a 2a 20 74 72 79 20 t exist,.** try
3990: 74 6f 20 63 72 65 61 74 65 20 69 74 2e 0a 2a 2a to create it..**
39a0: 0a 2a 2a 20 4f 6e 20 73 75 63 63 65 73 73 2c 20 .** On success,
39b0: 61 20 68 61 6e 64 6c 65 20 66 6f 72 20 74 68 65 a handle for the
39c0: 20 6f 70 65 6e 20 66 69 6c 65 20 69 73 20 77 72 open file is wr
39d0: 69 74 74 65 6e 20 74 6f 20 2a 69 64 0a 2a 2a 20 itten to *id.**
39e0: 61 6e 64 20 2a 70 52 65 61 64 6f 6e 6c 79 20 69 and *pReadonly i
39f0: 73 20 73 65 74 20 74 6f 20 30 20 69 66 20 74 68 s set to 0 if th
3a00: 65 20 66 69 6c 65 20 77 61 73 20 6f 70 65 6e 65 e file was opene
3a10: 64 20 66 6f 72 20 72 65 61 64 69 6e 67 20 61 6e d for reading an
3a20: 64 0a 2a 2a 20 77 72 69 74 69 6e 67 20 6f 72 20 d.** writing or
3a30: 31 20 69 66 20 74 68 65 20 66 69 6c 65 20 77 61 1 if the file wa
3a40: 73 20 6f 70 65 6e 65 64 20 72 65 61 64 2d 6f 6e s opened read-on
3a50: 6c 79 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f ly. The functio
3a60: 6e 20 72 65 74 75 72 6e 73 0a 2a 2a 20 53 51 4c n returns.** SQL
3a70: 49 54 45 5f 4f 4b 2e 0a 2a 2a 0a 2a 2a 20 4f 6e ITE_OK..**.** On
3a80: 20 66 61 69 6c 75 72 65 2c 20 74 68 65 20 66 75 failure, the fu
3a90: 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 53 nction returns S
3aa0: 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 20 61 QLITE_CANTOPEN a
3ab0: 6e 64 20 6c 65 61 76 65 73 0a 2a 2a 20 2a 69 64 nd leaves.** *id
3ac0: 20 61 6e 64 20 2a 70 52 65 61 64 6f 6e 6c 79 20 and *pReadonly
3ad0: 75 6e 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 69 6e unchanged..*/.in
3ae0: 74 20 73 71 6c 69 74 65 33 4f 73 4f 70 65 6e 52 t sqlite3OsOpenR
3af0: 65 61 64 57 72 69 74 65 28 0a 20 20 63 6f 6e 73 eadWrite(. cons
3b00: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d t char *zFilenam
3b10: 65 2c 0a 20 20 4f 73 46 69 6c 65 20 2a 69 64 2c e,. OsFile *id,
3b20: 0a 20 20 69 6e 74 20 2a 70 52 65 61 64 6f 6e 6c . int *pReadonl
3b30: 79 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 y.){. int rc;.
3b40: 20 61 73 73 65 72 74 28 20 21 69 64 2d 3e 69 73 assert( !id->is
3b50: 4f 70 65 6e 20 29 3b 0a 20 20 69 64 2d 3e 64 69 Open );. id->di
3b60: 72 66 64 20 3d 20 2d 31 3b 0a 20 20 69 64 2d 3e rfd = -1;. id->
3b70: 68 20 3d 20 6f 70 65 6e 28 7a 46 69 6c 65 6e 61 h = open(zFilena
3b80: 6d 65 2c 20 4f 5f 52 44 57 52 7c 4f 5f 43 52 45 me, O_RDWR|O_CRE
3b90: 41 54 7c 4f 5f 4c 41 52 47 45 46 49 4c 45 7c 4f AT|O_LARGEFILE|O
3ba0: 5f 42 49 4e 41 52 59 2c 20 30 36 34 34 29 3b 0a _BINARY, 0644);.
3bb0: 20 20 69 66 28 20 69 64 2d 3e 68 3c 30 20 29 7b if( id->h<0 ){
3bc0: 0a 23 69 66 64 65 66 20 45 49 53 44 49 52 0a 20 .#ifdef EISDIR.
3bd0: 20 20 20 69 66 28 20 65 72 72 6e 6f 3d 3d 45 49 if( errno==EI
3be0: 53 44 49 52 20 29 7b 0a 20 20 20 20 20 20 72 65 SDIR ){. re
3bf0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e 54 turn SQLITE_CANT
3c00: 4f 50 45 4e 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 OPEN;. }.#end
3c10: 69 66 0a 20 20 20 20 69 64 2d 3e 68 20 3d 20 6f if. id->h = o
3c20: 70 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 4f pen(zFilename, O
3c30: 5f 52 44 4f 4e 4c 59 7c 4f 5f 4c 41 52 47 45 46 _RDONLY|O_LARGEF
3c40: 49 4c 45 7c 4f 5f 42 49 4e 41 52 59 29 3b 0a 20 ILE|O_BINARY);.
3c50: 20 20 20 69 66 28 20 69 64 2d 3e 68 3c 30 20 29 if( id->h<0 )
3c60: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 {. return S
3c70: 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 20 QLITE_CANTOPEN;
3c80: 0a 20 20 20 20 7d 0a 20 20 20 20 2a 70 52 65 61 . }. *pRea
3c90: 64 6f 6e 6c 79 20 3d 20 31 3b 0a 20 20 7d 65 6c donly = 1;. }el
3ca0: 73 65 7b 0a 20 20 20 20 2a 70 52 65 61 64 6f 6e se{. *pReadon
3cb0: 6c 79 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 73 71 ly = 0;. }. sq
3cc0: 6c 69 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 lite3OsEnterMute
3cd0: 78 28 29 3b 0a 20 20 72 63 20 3d 20 66 69 6e 64 x();. rc = find
3ce0: 4c 6f 63 6b 49 6e 66 6f 28 69 64 2d 3e 68 2c 20 LockInfo(id->h,
3cf0: 26 69 64 2d 3e 70 4c 6f 63 6b 2c 20 26 69 64 2d &id->pLock, &id-
3d00: 3e 70 4f 70 65 6e 29 3b 0a 20 20 73 71 6c 69 74 >pOpen);. sqlit
3d10: 65 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 29 e3OsLeaveMutex()
3d20: 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 ;. if( rc ){.
3d30: 20 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b 0a close(id->h);.
3d40: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 return SQLIT
3d50: 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 0a 20 20 69 E_NOMEM;. }. i
3d60: 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 30 3b d->locktype = 0;
3d70: 0a 20 20 69 64 2d 3e 69 73 4f 70 65 6e 20 3d 20 . id->isOpen =
3d80: 31 3b 0a 20 20 54 52 41 43 45 33 28 22 4f 50 45 1;. TRACE3("OPE
3d90: 4e 20 20 20 20 25 2d 33 64 20 25 73 5c 6e 22 2c N %-3d %s\n",
3da0: 20 69 64 2d 3e 68 2c 20 7a 46 69 6c 65 6e 61 6d id->h, zFilenam
3db0: 65 29 3b 0a 20 20 4f 70 65 6e 43 6f 75 6e 74 65 e);. OpenCounte
3dc0: 72 28 2b 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 r(+1);. return
3dd0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f SQLITE_OK;.}.../
3de0: 2a 0a 2a 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 *.** Attempt to
3df0: 6f 70 65 6e 20 61 20 6e 65 77 20 66 69 6c 65 20 open a new file
3e00: 66 6f 72 20 65 78 63 6c 75 73 69 76 65 20 61 63 for exclusive ac
3e10: 63 65 73 73 20 62 79 20 74 68 69 73 20 70 72 6f cess by this pro
3e20: 63 65 73 73 2e 0a 2a 2a 20 54 68 65 20 66 69 6c cess..** The fil
3e30: 65 20 77 69 6c 6c 20 62 65 20 6f 70 65 6e 65 64 e will be opened
3e40: 20 66 6f 72 20 62 6f 74 68 20 72 65 61 64 69 6e for both readin
3e50: 67 20 61 6e 64 20 77 72 69 74 69 6e 67 2e 20 20 g and writing.
3e60: 54 6f 20 61 76 6f 69 64 0a 2a 2a 20 61 20 70 6f To avoid.** a po
3e70: 74 65 6e 74 69 61 6c 20 73 65 63 75 72 69 74 79 tential security
3e80: 20 70 72 6f 62 6c 65 6d 2c 20 77 65 20 64 6f 20 problem, we do
3e90: 6e 6f 74 20 61 6c 6c 6f 77 20 74 68 65 20 66 69 not allow the fi
3ea0: 6c 65 20 74 6f 20 68 61 76 65 0a 2a 2a 20 70 72 le to have.** pr
3eb0: 65 76 69 6f 75 73 6c 79 20 65 78 69 73 74 65 64 eviously existed
3ec0: 2e 20 20 4e 6f 72 20 64 6f 20 77 65 20 61 6c 6c . Nor do we all
3ed0: 6f 77 20 74 68 65 20 66 69 6c 65 20 74 6f 20 62 ow the file to b
3ee0: 65 20 61 20 73 79 6d 62 6f 6c 69 63 0a 2a 2a 20 e a symbolic.**
3ef0: 6c 69 6e 6b 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 64 link..**.** If d
3f00: 65 6c 46 6c 61 67 20 69 73 20 74 72 75 65 2c 20 elFlag is true,
3f10: 74 68 65 6e 20 6d 61 6b 65 20 61 72 72 61 6e 67 then make arrang
3f20: 65 6d 65 6e 74 73 20 74 6f 20 61 75 74 6f 6d 61 ements to automa
3f30: 74 69 63 61 6c 6c 79 20 64 65 6c 65 74 65 0a 2a tically delete.*
3f40: 2a 20 74 68 65 20 66 69 6c 65 20 77 68 65 6e 20 * the file when
3f50: 69 74 20 69 73 20 63 6c 6f 73 65 64 2e 0a 2a 2a it is closed..**
3f60: 0a 2a 2a 20 4f 6e 20 73 75 63 63 65 73 73 2c 20 .** On success,
3f70: 77 72 69 74 65 20 74 68 65 20 66 69 6c 65 20 68 write the file h
3f80: 61 6e 64 6c 65 20 69 6e 74 6f 20 2a 69 64 20 61 andle into *id a
3f90: 6e 64 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 nd return SQLITE
3fa0: 5f 4f 4b 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 20 66 61 _OK..**.** On fa
3fb0: 69 6c 75 72 65 2c 20 72 65 74 75 72 6e 20 53 51 ilure, return SQ
3fc0: 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 2e 0a 2a LITE_CANTOPEN..*
3fd0: 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 4f /.int sqlite3OsO
3fe0: 70 65 6e 45 78 63 6c 75 73 69 76 65 28 63 6f 6e penExclusive(con
3ff0: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 st char *zFilena
4000: 6d 65 2c 20 4f 73 46 69 6c 65 20 2a 69 64 2c 20 me, OsFile *id,
4010: 69 6e 74 20 64 65 6c 46 6c 61 67 29 7b 0a 20 20 int delFlag){.
4020: 69 6e 74 20 72 63 3b 0a 20 20 61 73 73 65 72 74 int rc;. assert
4030: 28 20 21 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b ( !id->isOpen );
4040: 0a 20 20 69 66 28 20 61 63 63 65 73 73 28 7a 46 . if( access(zF
4050: 69 6c 65 6e 61 6d 65 2c 20 30 29 3d 3d 30 20 29 ilename, 0)==0 )
4060: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c {. return SQL
4070: 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 0a 20 20 ITE_CANTOPEN;.
4080: 7d 0a 20 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 }. id->dirfd =
4090: 2d 31 3b 0a 20 20 69 64 2d 3e 68 20 3d 20 6f 70 -1;. id->h = op
40a0: 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c 0a 20 20 en(zFilename,.
40b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 5f O_
40c0: 52 44 57 52 7c 4f 5f 43 52 45 41 54 7c 4f 5f 45 RDWR|O_CREAT|O_E
40d0: 58 43 4c 7c 4f 5f 4e 4f 46 4f 4c 4c 4f 57 7c 4f XCL|O_NOFOLLOW|O
40e0: 5f 4c 41 52 47 45 46 49 4c 45 7c 4f 5f 42 49 4e _LARGEFILE|O_BIN
40f0: 41 52 59 2c 20 30 36 30 30 29 3b 0a 20 20 69 66 ARY, 0600);. if
4100: 28 20 69 64 2d 3e 68 3c 30 20 29 7b 0a 20 20 20 ( id->h<0 ){.
4110: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 return SQLITE_C
4120: 41 4e 54 4f 50 45 4e 3b 0a 20 20 7d 0a 20 20 73 ANTOPEN;. }. s
4130: 71 6c 69 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 qlite3OsEnterMut
4140: 65 78 28 29 3b 0a 20 20 72 63 20 3d 20 66 69 6e ex();. rc = fin
4150: 64 4c 6f 63 6b 49 6e 66 6f 28 69 64 2d 3e 68 2c dLockInfo(id->h,
4160: 20 26 69 64 2d 3e 70 4c 6f 63 6b 2c 20 26 69 64 &id->pLock, &id
4170: 2d 3e 70 4f 70 65 6e 29 3b 0a 20 20 73 71 6c 69 ->pOpen);. sqli
4180: 74 65 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 te3OsLeaveMutex(
4190: 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 );. if( rc ){.
41a0: 20 20 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b close(id->h);
41b0: 0a 20 20 20 20 75 6e 6c 69 6e 6b 28 7a 46 69 6c . unlink(zFil
41c0: 65 6e 61 6d 65 29 3b 0a 20 20 20 20 72 65 74 75 ename);. retu
41d0: 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b rn SQLITE_NOMEM;
41e0: 0a 20 20 7d 0a 20 20 69 64 2d 3e 6c 6f 63 6b 74 . }. id->lockt
41f0: 79 70 65 20 3d 20 30 3b 0a 20 20 69 64 2d 3e 69 ype = 0;. id->i
4200: 73 4f 70 65 6e 20 3d 20 31 3b 0a 20 20 69 66 28 sOpen = 1;. if(
4210: 20 64 65 6c 46 6c 61 67 20 29 7b 0a 20 20 20 20 delFlag ){.
4220: 75 6e 6c 69 6e 6b 28 7a 46 69 6c 65 6e 61 6d 65 unlink(zFilename
4230: 29 3b 0a 20 20 7d 0a 20 20 54 52 41 43 45 33 28 );. }. TRACE3(
4240: 22 4f 50 45 4e 2d 45 58 20 25 2d 33 64 20 25 73 "OPEN-EX %-3d %s
4250: 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 7a 46 69 6c \n", id->h, zFil
4260: 65 6e 61 6d 65 29 3b 0a 20 20 4f 70 65 6e 43 6f ename);. OpenCo
4270: 75 6e 74 65 72 28 2b 31 29 3b 0a 20 20 72 65 74 unter(+1);. ret
4280: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d urn SQLITE_OK;.}
4290: 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 6d 70 74 20 ../*.** Attempt
42a0: 74 6f 20 6f 70 65 6e 20 61 20 6e 65 77 20 66 69 to open a new fi
42b0: 6c 65 20 66 6f 72 20 72 65 61 64 2d 6f 6e 6c 79 le for read-only
42c0: 20 61 63 63 65 73 73 2e 0a 2a 2a 0a 2a 2a 20 4f access..**.** O
42d0: 6e 20 73 75 63 63 65 73 73 2c 20 77 72 69 74 65 n success, write
42e0: 20 74 68 65 20 66 69 6c 65 20 68 61 6e 64 6c 65 the file handle
42f0: 20 69 6e 74 6f 20 2a 69 64 20 61 6e 64 20 72 65 into *id and re
4300: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 2e 0a turn SQLITE_OK..
4310: 2a 2a 0a 2a 2a 20 4f 6e 20 66 61 69 6c 75 72 65 **.** On failure
4320: 2c 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f , return SQLITE_
4330: 43 41 4e 54 4f 50 45 4e 2e 0a 2a 2f 0a 69 6e 74 CANTOPEN..*/.int
4340: 20 73 71 6c 69 74 65 33 4f 73 4f 70 65 6e 52 65 sqlite3OsOpenRe
4350: 61 64 4f 6e 6c 79 28 63 6f 6e 73 74 20 63 68 61 adOnly(const cha
4360: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 4f 73 r *zFilename, Os
4370: 46 69 6c 65 20 2a 69 64 29 7b 0a 20 20 69 6e 74 File *id){. int
4380: 20 72 63 3b 0a 20 20 61 73 73 65 72 74 28 20 21 rc;. assert( !
4390: 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 20 id->isOpen );.
43a0: 69 64 2d 3e 64 69 72 66 64 20 3d 20 2d 31 3b 0a id->dirfd = -1;.
43b0: 20 20 69 64 2d 3e 68 20 3d 20 6f 70 65 6e 28 7a id->h = open(z
43c0: 46 69 6c 65 6e 61 6d 65 2c 20 4f 5f 52 44 4f 4e Filename, O_RDON
43d0: 4c 59 7c 4f 5f 4c 41 52 47 45 46 49 4c 45 7c 4f LY|O_LARGEFILE|O
43e0: 5f 42 49 4e 41 52 59 29 3b 0a 20 20 69 66 28 20 _BINARY);. if(
43f0: 69 64 2d 3e 68 3c 30 20 29 7b 0a 20 20 20 20 72 id->h<0 ){. r
4400: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e eturn SQLITE_CAN
4410: 54 4f 50 45 4e 3b 0a 20 20 7d 0a 20 20 73 71 6c TOPEN;. }. sql
4420: 69 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 78 ite3OsEnterMutex
4430: 28 29 3b 0a 20 20 72 63 20 3d 20 66 69 6e 64 4c ();. rc = findL
4440: 6f 63 6b 49 6e 66 6f 28 69 64 2d 3e 68 2c 20 26 ockInfo(id->h, &
4450: 69 64 2d 3e 70 4c 6f 63 6b 2c 20 26 69 64 2d 3e id->pLock, &id->
4460: 70 4f 70 65 6e 29 3b 0a 20 20 73 71 6c 69 74 65 pOpen);. sqlite
4470: 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 29 3b 3OsLeaveMutex();
4480: 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 . if( rc ){.
4490: 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b 0a 20 close(id->h);.
44a0: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 return SQLITE
44b0: 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 0a 20 20 69 64 _NOMEM;. }. id
44c0: 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 30 3b 0a ->locktype = 0;.
44d0: 20 20 69 64 2d 3e 69 73 4f 70 65 6e 20 3d 20 31 id->isOpen = 1
44e0: 3b 0a 20 20 54 52 41 43 45 33 28 22 4f 50 45 4e ;. TRACE3("OPEN
44f0: 2d 52 4f 20 25 2d 33 64 20 25 73 5c 6e 22 2c 20 -RO %-3d %s\n",
4500: 69 64 2d 3e 68 2c 20 7a 46 69 6c 65 6e 61 6d 65 id->h, zFilename
4510: 29 3b 0a 20 20 4f 70 65 6e 43 6f 75 6e 74 65 72 );. OpenCounter
4520: 28 2b 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 (+1);. return S
4530: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a QLITE_OK;.}../*.
4540: 2a 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 ** Attempt to op
4550: 65 6e 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 en a file descri
4560: 70 74 6f 72 20 66 6f 72 20 74 68 65 20 64 69 72 ptor for the dir
4570: 65 63 74 6f 72 79 20 74 68 61 74 20 63 6f 6e 74 ectory that cont
4580: 61 69 6e 73 20 61 0a 2a 2a 20 66 69 6c 65 2e 20 ains a.** file.
4590: 20 54 68 69 73 20 66 69 6c 65 20 64 65 73 63 72 This file descr
45a0: 69 70 74 6f 72 20 63 61 6e 20 62 65 20 75 73 65 iptor can be use
45b0: 64 20 74 6f 20 66 73 79 6e 63 28 29 20 74 68 65 d to fsync() the
45c0: 20 64 69 72 65 63 74 6f 72 79 0a 2a 2a 20 69 6e directory.** in
45d0: 20 6f 72 64 65 72 20 74 6f 20 6d 61 6b 65 20 73 order to make s
45e0: 75 72 65 20 74 68 65 20 63 72 65 61 74 69 6f 6e ure the creation
45f0: 20 6f 66 20 61 20 6e 65 77 20 66 69 6c 65 20 69 of a new file i
4600: 73 20 61 63 74 75 61 6c 6c 79 20 77 72 69 74 74 s actually writt
4610: 65 6e 0a 2a 2a 20 74 6f 20 64 69 73 6b 2e 0a 2a en.** to disk..*
4620: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e *.** This routin
4630: 65 20 69 73 20 6f 6e 6c 79 20 6d 65 61 6e 69 6e e is only meanin
4640: 67 66 75 6c 20 66 6f 72 20 55 6e 69 78 2e 20 20 gful for Unix.
4650: 49 74 20 69 73 20 61 20 6e 6f 2d 6f 70 20 75 6e It is a no-op un
4660: 64 65 72 0a 2a 2a 20 77 69 6e 64 6f 77 73 20 73 der.** windows s
4670: 69 6e 63 65 20 77 69 6e 64 6f 77 73 20 64 6f 65 ince windows doe
4680: 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 68 61 s not support ha
4690: 72 64 20 6c 69 6e 6b 73 2e 0a 2a 2a 0a 2a 2a 20 rd links..**.**
46a0: 4f 6e 20 73 75 63 63 65 73 73 2c 20 61 20 68 61 On success, a ha
46b0: 6e 64 6c 65 20 66 6f 72 20 61 20 70 72 65 76 69 ndle for a previ
46c0: 6f 75 73 6c 79 20 6f 70 65 6e 20 66 69 6c 65 20 ously open file
46d0: 69 73 20 61 74 20 2a 69 64 20 69 73 0a 2a 2a 20 is at *id is.**
46e0: 75 70 64 61 74 65 64 20 77 69 74 68 20 74 68 65 updated with the
46f0: 20 6e 65 77 20 64 69 72 65 63 74 6f 72 79 20 66 new directory f
4700: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 61 ile descriptor a
4710: 6e 64 20 53 51 4c 49 54 45 5f 4f 4b 20 69 73 0a nd SQLITE_OK is.
4720: 2a 2a 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2a 0a ** returned..**.
4730: 2a 2a 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20 74 ** On failure, t
4740: 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 he function retu
4750: 72 6e 73 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f rns SQLITE_CANTO
4760: 50 45 4e 20 61 6e 64 20 6c 65 61 76 65 73 0a 2a PEN and leaves.*
4770: 2a 20 2a 69 64 20 75 6e 63 68 61 6e 67 65 64 2e * *id unchanged.
4780: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f .*/.int sqlite3O
4790: 73 4f 70 65 6e 44 69 72 65 63 74 6f 72 79 28 0a sOpenDirectory(.
47a0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 const char *zD
47b0: 69 72 6e 61 6d 65 2c 0a 20 20 4f 73 46 69 6c 65 irname,. OsFile
47c0: 20 2a 69 64 0a 29 7b 0a 20 20 69 66 28 20 21 69 *id.){. if( !i
47d0: 64 2d 3e 69 73 4f 70 65 6e 20 29 7b 0a 20 20 20 d->isOpen ){.
47e0: 20 2f 2a 20 44 6f 20 6e 6f 74 20 6f 70 65 6e 20 /* Do not open
47f0: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 69 66 the directory if
4800: 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 the correspondi
4810: 6e 67 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 61 ng file is not a
4820: 6c 72 65 61 64 79 0a 20 20 20 20 2a 2a 20 6f 70 lready. ** op
4830: 65 6e 2e 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 en. */. retur
4840: 6e 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 n SQLITE_CANTOPE
4850: 4e 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 N;. }. assert(
4860: 20 69 64 2d 3e 64 69 72 66 64 3c 30 20 29 3b 0a id->dirfd<0 );.
4870: 20 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 6f 70 id->dirfd = op
4880: 65 6e 28 7a 44 69 72 6e 61 6d 65 2c 20 4f 5f 52 en(zDirname, O_R
4890: 44 4f 4e 4c 59 7c 4f 5f 42 49 4e 41 52 59 2c 20 DONLY|O_BINARY,
48a0: 30 36 34 34 29 3b 0a 20 20 69 66 28 20 69 64 2d 0644);. if( id-
48b0: 3e 64 69 72 66 64 3c 30 20 29 7b 0a 20 20 20 20 >dirfd<0 ){.
48c0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 return SQLITE_CA
48d0: 4e 54 4f 50 45 4e 3b 20 0a 20 20 7d 0a 20 20 54 NTOPEN; . }. T
48e0: 52 41 43 45 33 28 22 4f 50 45 4e 44 49 52 20 25 RACE3("OPENDIR %
48f0: 2d 33 64 20 25 73 5c 6e 22 2c 20 69 64 2d 3e 64 -3d %s\n", id->d
4900: 69 72 66 64 2c 20 7a 44 69 72 6e 61 6d 65 29 3b irfd, zDirname);
4910: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 . return SQLITE
4920: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 49 66 _OK;.}../*.** If
4930: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 67 the following g
4940: 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c 65 20 70 lobal variable p
4950: 6f 69 6e 74 73 20 74 6f 20 61 20 73 74 72 69 6e oints to a strin
4960: 67 20 77 68 69 63 68 20 69 73 20 74 68 65 0a 2a g which is the.*
4970: 2a 20 6e 61 6d 65 20 6f 66 20 61 20 64 69 72 65 * name of a dire
4980: 63 74 6f 72 79 2c 20 74 68 65 6e 20 74 68 61 74 ctory, then that
4990: 20 64 69 72 65 63 74 6f 72 79 20 77 69 6c 6c 20 directory will
49a0: 62 65 20 75 73 65 64 20 74 6f 20 73 74 6f 72 65 be used to store
49b0: 0a 2a 2a 20 74 65 6d 70 6f 72 61 72 79 20 66 69 .** temporary fi
49c0: 6c 65 73 2e 0a 2a 2f 0a 63 6f 6e 73 74 20 63 68 les..*/.const ch
49d0: 61 72 20 2a 73 71 6c 69 74 65 5f 74 65 6d 70 5f ar *sqlite_temp_
49e0: 64 69 72 65 63 74 6f 72 79 20 3d 20 30 3b 0a 0a directory = 0;..
49f0: 2f 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61 20 74 /*.** Create a t
4a00: 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 6e 61 emporary file na
4a10: 6d 65 20 69 6e 20 7a 42 75 66 2e 20 20 7a 42 75 me in zBuf. zBu
4a20: 66 20 6d 75 73 74 20 62 65 20 62 69 67 20 65 6e f must be big en
4a30: 6f 75 67 68 20 74 6f 0a 2a 2a 20 68 6f 6c 64 20 ough to.** hold
4a40: 61 74 20 6c 65 61 73 74 20 53 51 4c 49 54 45 5f at least SQLITE_
4a50: 54 45 4d 50 4e 41 4d 45 5f 53 49 5a 45 20 63 68 TEMPNAME_SIZE ch
4a60: 61 72 61 63 74 65 72 73 2e 0a 2a 2f 0a 69 6e 74 aracters..*/.int
4a70: 20 73 71 6c 69 74 65 33 4f 73 54 65 6d 70 46 69 sqlite3OsTempFi
4a80: 6c 65 4e 61 6d 65 28 63 68 61 72 20 2a 7a 42 75 leName(char *zBu
4a90: 66 29 7b 0a 20 20 73 74 61 74 69 63 20 63 6f 6e f){. static con
4aa0: 73 74 20 63 68 61 72 20 2a 61 7a 44 69 72 73 5b st char *azDirs[
4ab0: 5d 20 3d 20 7b 0a 20 20 20 20 20 30 2c 0a 20 20 ] = {. 0,.
4ac0: 20 20 20 22 2f 76 61 72 2f 74 6d 70 22 2c 0a 20 "/var/tmp",.
4ad0: 20 20 20 20 22 2f 75 73 72 2f 74 6d 70 22 2c 0a "/usr/tmp",.
4ae0: 20 20 20 20 20 22 2f 74 6d 70 22 2c 0a 20 20 20 "/tmp",.
4af0: 20 20 22 2e 22 2c 0a 20 20 7d 3b 0a 20 20 73 74 ".",. };. st
4b00: 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 63 68 atic unsigned ch
4b10: 61 72 20 7a 43 68 61 72 73 5b 5d 20 3d 0a 20 20 ar zChars[] =.
4b20: 20 20 22 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d "abcdefghijklm
4b30: 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 0a 20 nopqrstuvwxyz".
4b40: 20 20 20 22 41 42 43 44 45 46 47 48 49 4a 4b 4c "ABCDEFGHIJKL
4b50: 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 22 0a MNOPQRSTUVWXYZ".
4b60: 20 20 20 20 22 30 31 32 33 34 35 36 37 38 39 22 "0123456789"
4b70: 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 ;. int i, j;.
4b80: 73 74 72 75 63 74 20 73 74 61 74 20 62 75 66 3b struct stat buf;
4b90: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
4ba0: 44 69 72 20 3d 20 22 2e 22 3b 0a 20 20 61 7a 44 Dir = ".";. azD
4bb0: 69 72 73 5b 30 5d 20 3d 20 73 71 6c 69 74 65 5f irs[0] = sqlite_
4bc0: 74 65 6d 70 5f 64 69 72 65 63 74 6f 72 79 3b 0a temp_directory;.
4bd0: 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a for(i=0; i<siz
4be0: 65 6f 66 28 61 7a 44 69 72 73 29 2f 73 69 7a 65 eof(azDirs)/size
4bf0: 6f 66 28 61 7a 44 69 72 73 5b 30 5d 29 3b 20 69 of(azDirs[0]); i
4c00: 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 61 7a 44 ++){. if( azD
4c10: 69 72 73 5b 69 5d 3d 3d 30 20 29 20 63 6f 6e 74 irs[i]==0 ) cont
4c20: 69 6e 75 65 3b 0a 20 20 20 20 69 66 28 20 73 74 inue;. if( st
4c30: 61 74 28 61 7a 44 69 72 73 5b 69 5d 2c 20 26 62 at(azDirs[i], &b
4c40: 75 66 29 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a uf) ) continue;.
4c50: 20 20 20 20 69 66 28 20 21 53 5f 49 53 44 49 52 if( !S_ISDIR
4c60: 28 62 75 66 2e 73 74 5f 6d 6f 64 65 29 20 29 20 (buf.st_mode) )
4c70: 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 69 66 continue;. if
4c80: 28 20 61 63 63 65 73 73 28 61 7a 44 69 72 73 5b ( access(azDirs[
4c90: 69 5d 2c 20 30 37 29 20 29 20 63 6f 6e 74 69 6e i], 07) ) contin
4ca0: 75 65 3b 0a 20 20 20 20 7a 44 69 72 20 3d 20 61 ue;. zDir = a
4cb0: 7a 44 69 72 73 5b 69 5d 3b 0a 20 20 20 20 62 72 zDirs[i];. br
4cc0: 65 61 6b 3b 0a 20 20 7d 0a 20 20 64 6f 7b 0a 20 eak;. }. do{.
4cd0: 20 20 20 73 70 72 69 6e 74 66 28 7a 42 75 66 2c sprintf(zBuf,
4ce0: 20 22 25 73 2f 22 54 45 4d 50 5f 46 49 4c 45 5f "%s/"TEMP_FILE_
4cf0: 50 52 45 46 49 58 2c 20 7a 44 69 72 29 3b 0a 20 PREFIX, zDir);.
4d00: 20 20 20 6a 20 3d 20 73 74 72 6c 65 6e 28 7a 42 j = strlen(zB
4d10: 75 66 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 uf);. sqlite3
4d20: 52 61 6e 64 6f 6d 6e 65 73 73 28 31 35 2c 20 26 Randomness(15, &
4d30: 7a 42 75 66 5b 6a 5d 29 3b 0a 20 20 20 20 66 6f zBuf[j]);. fo
4d40: 72 28 69 3d 30 3b 20 69 3c 31 35 3b 20 69 2b 2b r(i=0; i<15; i++
4d50: 2c 20 6a 2b 2b 29 7b 0a 20 20 20 20 20 20 7a 42 , j++){. zB
4d60: 75 66 5b 6a 5d 20 3d 20 28 63 68 61 72 29 7a 43 uf[j] = (char)zC
4d70: 68 61 72 73 5b 20 28 28 75 6e 73 69 67 6e 65 64 hars[ ((unsigned
4d80: 20 63 68 61 72 29 7a 42 75 66 5b 6a 5d 29 25 28 char)zBuf[j])%(
4d90: 73 69 7a 65 6f 66 28 7a 43 68 61 72 73 29 2d 31 sizeof(zChars)-1
4da0: 29 20 5d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a ) ];. }. z
4db0: 42 75 66 5b 6a 5d 20 3d 20 30 3b 0a 20 20 7d 77 Buf[j] = 0;. }w
4dc0: 68 69 6c 65 28 20 61 63 63 65 73 73 28 7a 42 75 hile( access(zBu
4dd0: 66 2c 30 29 3d 3d 30 20 29 3b 0a 20 20 72 65 74 f,0)==0 );. ret
4de0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 20 0a urn SQLITE_OK; .
4df0: 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 61 64 20 64 61 }../*.** Read da
4e00: 74 61 20 66 72 6f 6d 20 61 20 66 69 6c 65 20 69 ta from a file i
4e10: 6e 74 6f 20 61 20 62 75 66 66 65 72 2e 20 20 52 nto a buffer. R
4e20: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 20 eturn SQLITE_OK
4e30: 69 66 20 61 6c 6c 0a 2a 2a 20 62 79 74 65 73 20 if all.** bytes
4e40: 77 65 72 65 20 72 65 61 64 20 73 75 63 63 65 73 were read succes
4e50: 73 66 75 6c 6c 79 20 61 6e 64 20 53 51 4c 49 54 sfully and SQLIT
4e60: 45 5f 49 4f 45 52 52 20 69 66 20 61 6e 79 74 68 E_IOERR if anyth
4e70: 69 6e 67 20 67 6f 65 73 0a 2a 2a 20 77 72 6f 6e ing goes.** wron
4e80: 67 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 g..*/.int sqlite
4e90: 33 4f 73 52 65 61 64 28 4f 73 46 69 6c 65 20 2a 3OsRead(OsFile *
4ea0: 69 64 2c 20 76 6f 69 64 20 2a 70 42 75 66 2c 20 id, void *pBuf,
4eb0: 69 6e 74 20 61 6d 74 29 7b 0a 20 20 69 6e 74 20 int amt){. int
4ec0: 67 6f 74 3b 0a 20 20 61 73 73 65 72 74 28 20 69 got;. assert( i
4ed0: 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 20 53 d->isOpen );. S
4ee0: 69 6d 75 6c 61 74 65 49 4f 45 72 72 6f 72 28 53 imulateIOError(S
4ef0: 51 4c 49 54 45 5f 49 4f 45 52 52 29 3b 0a 20 20 QLITE_IOERR);.
4f00: 54 49 4d 45 52 5f 53 54 41 52 54 3b 0a 20 20 67 TIMER_START;. g
4f10: 6f 74 20 3d 20 72 65 61 64 28 69 64 2d 3e 68 2c ot = read(id->h,
4f20: 20 70 42 75 66 2c 20 61 6d 74 29 3b 0a 20 20 54 pBuf, amt);. T
4f30: 49 4d 45 52 5f 45 4e 44 3b 0a 20 20 54 52 41 43 IMER_END;. TRAC
4f40: 45 34 28 22 52 45 41 44 20 20 20 20 25 2d 33 64 E4("READ %-3d
4f50: 20 25 37 64 20 25 64 5c 6e 22 2c 20 69 64 2d 3e %7d %d\n", id->
4f60: 68 2c 20 6c 61 73 74 5f 70 61 67 65 2c 20 54 49 h, last_page, TI
4f70: 4d 45 52 5f 45 4c 41 50 53 45 44 29 3b 0a 20 20 MER_ELAPSED);.
4f80: 53 45 45 4b 28 30 29 3b 0a 20 20 2f 2a 20 69 66 SEEK(0);. /* if
4f90: 28 20 67 6f 74 3c 30 20 29 20 67 6f 74 20 3d 20 ( got<0 ) got =
4fa0: 30 3b 20 2a 2f 0a 20 20 69 66 28 20 67 6f 74 3d 0; */. if( got=
4fb0: 3d 61 6d 74 20 29 7b 0a 20 20 20 20 72 65 74 75 =amt ){. retu
4fc0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 rn SQLITE_OK;.
4fd0: 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74 75 72 }else{. retur
4fe0: 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a n SQLITE_IOERR;.
4ff0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 72 69 }.}../*.** Wri
5000: 74 65 20 64 61 74 61 20 66 72 6f 6d 20 61 20 62 te data from a b
5010: 75 66 66 65 72 20 69 6e 74 6f 20 61 20 66 69 6c uffer into a fil
5020: 65 2e 20 20 52 65 74 75 72 6e 20 53 51 4c 49 54 e. Return SQLIT
5030: 45 5f 4f 4b 20 6f 6e 20 73 75 63 63 65 73 73 0a E_OK on success.
5040: 2a 2a 20 6f 72 20 73 6f 6d 65 20 6f 74 68 65 72 ** or some other
5050: 20 65 72 72 6f 72 20 63 6f 64 65 20 6f 6e 20 66 error code on f
5060: 61 69 6c 75 72 65 2e 0a 2a 2f 0a 69 6e 74 20 73 ailure..*/.int s
5070: 71 6c 69 74 65 33 4f 73 57 72 69 74 65 28 4f 73 qlite3OsWrite(Os
5080: 46 69 6c 65 20 2a 69 64 2c 20 63 6f 6e 73 74 20 File *id, const
5090: 76 6f 69 64 20 2a 70 42 75 66 2c 20 69 6e 74 20 void *pBuf, int
50a0: 61 6d 74 29 7b 0a 20 20 69 6e 74 20 77 72 6f 74 amt){. int wrot
50b0: 65 20 3d 20 30 3b 0a 20 20 61 73 73 65 72 74 28 e = 0;. assert(
50c0: 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 id->isOpen );.
50d0: 20 53 69 6d 75 6c 61 74 65 49 4f 45 72 72 6f 72 SimulateIOError
50e0: 28 53 51 4c 49 54 45 5f 49 4f 45 52 52 29 3b 0a (SQLITE_IOERR);.
50f0: 20 20 54 49 4d 45 52 5f 53 54 41 52 54 3b 0a 20 TIMER_START;.
5100: 20 77 68 69 6c 65 28 20 61 6d 74 3e 30 20 26 26 while( amt>0 &&
5110: 20 28 77 72 6f 74 65 20 3d 20 77 72 69 74 65 28 (wrote = write(
5120: 69 64 2d 3e 68 2c 20 70 42 75 66 2c 20 61 6d 74 id->h, pBuf, amt
5130: 29 29 3e 30 20 29 7b 0a 20 20 20 20 61 6d 74 20 ))>0 ){. amt
5140: 2d 3d 20 77 72 6f 74 65 3b 0a 20 20 20 20 70 42 -= wrote;. pB
5150: 75 66 20 3d 20 26 28 28 63 68 61 72 2a 29 70 42 uf = &((char*)pB
5160: 75 66 29 5b 77 72 6f 74 65 5d 3b 0a 20 20 7d 0a uf)[wrote];. }.
5170: 20 20 54 49 4d 45 52 5f 45 4e 44 3b 0a 20 20 54 TIMER_END;. T
5180: 52 41 43 45 34 28 22 57 52 49 54 45 20 20 20 25 RACE4("WRITE %
5190: 2d 33 64 20 25 37 64 20 25 64 5c 6e 22 2c 20 69 -3d %7d %d\n", i
51a0: 64 2d 3e 68 2c 20 6c 61 73 74 5f 70 61 67 65 2c d->h, last_page,
51b0: 20 54 49 4d 45 52 5f 45 4c 41 50 53 45 44 29 3b TIMER_ELAPSED);
51c0: 0a 20 20 53 45 45 4b 28 30 29 3b 0a 20 20 69 66 . SEEK(0);. if
51d0: 28 20 61 6d 74 3e 30 20 29 7b 0a 20 20 20 20 72 ( amt>0 ){. r
51e0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 46 55 4c eturn SQLITE_FUL
51f0: 4c 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 L;. }. return
5200: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a SQLITE_OK;.}../*
5210: 0a 2a 2a 20 4d 6f 76 65 20 74 68 65 20 72 65 61 .** Move the rea
5220: 64 2f 77 72 69 74 65 20 70 6f 69 6e 74 65 72 20 d/write pointer
5230: 69 6e 20 61 20 66 69 6c 65 2e 0a 2a 2f 0a 69 6e in a file..*/.in
5240: 74 20 73 71 6c 69 74 65 33 4f 73 53 65 65 6b 28 t sqlite3OsSeek(
5250: 4f 73 46 69 6c 65 20 2a 69 64 2c 20 6f 66 66 5f OsFile *id, off_
5260: 74 20 6f 66 66 73 65 74 29 7b 0a 20 20 61 73 73 t offset){. ass
5270: 65 72 74 28 20 69 64 2d 3e 69 73 4f 70 65 6e 20 ert( id->isOpen
5280: 29 3b 0a 20 20 53 45 45 4b 28 6f 66 66 73 65 74 );. SEEK(offset
5290: 2f 31 30 32 34 20 2b 20 31 29 3b 0a 20 20 6c 73 /1024 + 1);. ls
52a0: 65 65 6b 28 69 64 2d 3e 68 2c 20 6f 66 66 73 65 eek(id->h, offse
52b0: 74 2c 20 53 45 45 4b 5f 53 45 54 29 3b 0a 20 20 t, SEEK_SET);.
52c0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b return SQLITE_OK
52d0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 ;.}../*.** The f
52e0: 73 79 6e 63 28 29 20 73 79 73 74 65 6d 20 63 61 sync() system ca
52f0: 6c 6c 20 64 6f 65 73 20 6e 6f 74 20 77 6f 72 6b ll does not work
5300: 20 61 73 20 61 64 76 65 72 74 69 73 65 64 20 6f as advertised o
5310: 6e 20 6d 61 6e 79 0a 2a 2a 20 75 6e 69 78 20 73 n many.** unix s
5320: 79 73 74 65 6d 73 2e 20 20 54 68 65 20 66 6f 6c ystems. The fol
5330: 6c 6f 77 69 6e 67 20 70 72 6f 63 65 64 75 72 65 lowing procedure
5340: 20 69 73 20 61 6e 20 61 74 74 65 6d 70 74 20 74 is an attempt t
5350: 6f 20 6d 61 6b 65 0a 2a 2a 20 69 74 20 77 6f 72 o make.** it wor
5360: 6b 20 62 65 74 74 65 72 2e 0a 2a 2f 0a 73 74 61 k better..*/.sta
5370: 74 69 63 20 69 6e 74 20 66 75 6c 6c 5f 66 73 79 tic int full_fsy
5380: 6e 63 28 69 6e 74 20 66 64 29 7b 0a 20 20 69 6e nc(int fd){. in
5390: 74 20 72 63 3b 0a 23 69 66 64 65 66 20 46 5f 46 t rc;.#ifdef F_F
53a0: 55 4c 4c 46 53 59 4e 43 0a 20 20 72 63 20 3d 20 ULLFSYNC. rc =
53b0: 66 63 6e 74 6c 28 66 64 2c 20 46 5f 46 55 4c 4c fcntl(fd, F_FULL
53c0: 46 53 59 4e 43 2c 20 30 29 3b 0a 20 20 69 66 28 FSYNC, 0);. if(
53d0: 20 72 63 20 29 20 72 63 20 3d 20 66 73 79 6e 63 rc ) rc = fsync
53e0: 28 66 64 29 3b 0a 23 65 6c 73 65 0a 20 20 72 63 (fd);.#else. rc
53f0: 20 3d 20 66 73 79 6e 63 28 66 64 29 3b 0a 23 65 = fsync(fd);.#e
5400: 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 72 63 ndif. return rc
5410: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 ;.}../*.** Make
5420: 73 75 72 65 20 61 6c 6c 20 77 72 69 74 65 73 20 sure all writes
5430: 74 6f 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 to a particular
5440: 66 69 6c 65 20 61 72 65 20 63 6f 6d 6d 69 74 74 file are committ
5450: 65 64 20 74 6f 20 64 69 73 6b 2e 0a 2a 2a 0a 2a ed to disk..**.*
5460: 2a 20 55 6e 64 65 72 20 55 6e 69 78 2c 20 61 6c * Under Unix, al
5470: 73 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 so make sure tha
5480: 74 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 t the directory
5490: 65 6e 74 72 79 20 66 6f 72 20 74 68 65 20 66 69 entry for the fi
54a0: 6c 65 0a 2a 2a 20 68 61 73 20 62 65 65 6e 20 63 le.** has been c
54b0: 72 65 61 74 65 64 20 62 79 20 66 73 79 6e 63 2d reated by fsync-
54c0: 69 6e 67 20 74 68 65 20 64 69 72 65 63 74 6f 72 ing the director
54d0: 79 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 y that contains
54e0: 74 68 65 20 66 69 6c 65 2e 0a 2a 2a 20 49 66 20 the file..** If
54f0: 77 65 20 64 6f 20 6e 6f 74 20 64 6f 20 74 68 69 we do not do thi
5500: 73 20 61 6e 64 20 77 65 20 65 6e 63 6f 75 6e 74 s and we encount
5510: 65 72 20 61 20 70 6f 77 65 72 20 66 61 69 6c 75 er a power failu
5520: 72 65 2c 20 74 68 65 20 64 69 72 65 63 74 6f 72 re, the director
5530: 79 0a 2a 2a 20 65 6e 74 72 79 20 66 6f 72 20 74 y.** entry for t
5540: 68 65 20 6a 6f 75 72 6e 61 6c 20 6d 69 67 68 74 he journal might
5550: 20 6e 6f 74 20 65 78 69 73 74 20 61 66 74 65 72 not exist after
5560: 20 77 65 20 72 65 62 6f 6f 74 2e 20 20 54 68 65 we reboot. The
5570: 20 6e 65 78 74 0a 2a 2a 20 53 51 4c 69 74 65 20 next.** SQLite
5580: 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 66 69 to access the fi
5590: 6c 65 20 77 69 6c 6c 20 6e 6f 74 20 6b 6e 6f 77 le will not know
55a0: 20 74 68 61 74 20 74 68 65 20 6a 6f 75 72 6e 61 that the journa
55b0: 6c 20 65 78 69 73 74 73 20 28 62 65 63 61 75 73 l exists (becaus
55c0: 65 0a 2a 2a 20 74 68 65 20 64 69 72 65 63 74 6f e.** the directo
55d0: 72 79 20 65 6e 74 72 79 20 66 6f 72 20 74 68 65 ry entry for the
55e0: 20 6a 6f 75 72 6e 61 6c 20 77 61 73 20 6e 65 76 journal was nev
55f0: 65 72 20 63 72 65 61 74 65 64 29 20 61 6e 64 20 er created) and
5600: 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 0a the transaction.
5610: 2a 2a 20 77 69 6c 6c 20 6e 6f 74 20 72 6f 6c 6c ** will not roll
5620: 20 62 61 63 6b 20 2d 20 70 6f 73 73 69 62 6c 79 back - possibly
5630: 20 6c 65 61 64 69 6e 67 20 74 6f 20 64 61 74 61 leading to data
5640: 62 61 73 65 20 63 6f 72 72 75 70 74 69 6f 6e 2e base corruption.
5650: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f .*/.int sqlite3O
5660: 73 53 79 6e 63 28 4f 73 46 69 6c 65 20 2a 69 64 sSync(OsFile *id
5670: 29 7b 0a 20 20 61 73 73 65 72 74 28 20 69 64 2d ){. assert( id-
5680: 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 20 53 69 6d >isOpen );. Sim
5690: 75 6c 61 74 65 49 4f 45 72 72 6f 72 28 53 51 4c ulateIOError(SQL
56a0: 49 54 45 5f 49 4f 45 52 52 29 3b 0a 20 20 54 52 ITE_IOERR);. TR
56b0: 41 43 45 32 28 22 53 59 4e 43 20 20 20 20 25 2d ACE2("SYNC %-
56c0: 33 64 5c 6e 22 2c 20 69 64 2d 3e 68 29 3b 0a 20 3d\n", id->h);.
56d0: 20 69 66 28 20 66 75 6c 6c 5f 66 73 79 6e 63 28 if( full_fsync(
56e0: 69 64 2d 3e 68 29 20 29 7b 0a 20 20 20 20 72 65 id->h) ){. re
56f0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 turn SQLITE_IOER
5700: 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 69 64 2d R;. }. if( id-
5710: 3e 64 69 72 66 64 3e 3d 30 20 29 7b 0a 20 20 20 >dirfd>=0 ){.
5720: 20 54 52 41 43 45 32 28 22 44 49 52 53 59 4e 43 TRACE2("DIRSYNC
5730: 20 25 2d 33 64 5c 6e 22 2c 20 69 64 2d 3e 64 69 %-3d\n", id->di
5740: 72 66 64 29 3b 0a 20 20 20 20 66 75 6c 6c 5f 66 rfd);. full_f
5750: 73 79 6e 63 28 69 64 2d 3e 64 69 72 66 64 29 3b sync(id->dirfd);
5760: 0a 20 20 20 20 63 6c 6f 73 65 28 69 64 2d 3e 64 . close(id->d
5770: 69 72 66 64 29 3b 20 20 2f 2a 20 4f 6e 6c 79 20 irfd); /* Only
5780: 6e 65 65 64 20 74 6f 20 73 79 6e 63 20 6f 6e 63 need to sync onc
5790: 65 2c 20 73 6f 20 63 6c 6f 73 65 20 74 68 65 20 e, so close the
57a0: 64 69 72 65 63 74 6f 72 79 20 2a 2f 0a 20 20 20 directory */.
57b0: 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 2d 31 3b id->dirfd = -1;
57c0: 20 20 20 20 2f 2a 20 77 68 65 6e 20 77 65 20 61 /* when we a
57d0: 72 65 20 64 6f 6e 65 2e 20 2a 2f 0a 20 20 7d 0a re done. */. }.
57e0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
57f0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 79 6e OK;.}../*.** Syn
5800: 63 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 c the directory
5810: 7a 44 69 72 6e 61 6d 65 2e 20 54 68 69 73 20 69 zDirname. This i
5820: 73 20 61 20 6e 6f 2d 6f 70 20 6f 6e 20 6f 70 65 s a no-op on ope
5830: 72 61 74 69 6e 67 20 73 79 73 74 65 6d 73 20 6f rating systems o
5840: 74 68 65 72 0a 2a 2a 20 74 68 61 6e 20 55 4e 49 ther.** than UNI
5850: 58 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 X..*/.int sqlite
5860: 33 4f 73 53 79 6e 63 44 69 72 65 63 74 6f 72 79 3OsSyncDirectory
5870: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 69 (const char *zDi
5880: 72 6e 61 6d 65 29 7b 0a 20 20 69 6e 74 20 66 64 rname){. int fd
5890: 3b 0a 20 20 69 6e 74 20 72 3b 0a 20 20 53 69 6d ;. int r;. Sim
58a0: 75 6c 61 74 65 49 4f 45 72 72 6f 72 28 53 51 4c ulateIOError(SQL
58b0: 49 54 45 5f 49 4f 45 52 52 29 3b 0a 20 20 66 64 ITE_IOERR);. fd
58c0: 20 3d 20 6f 70 65 6e 28 7a 44 69 72 6e 61 6d 65 = open(zDirname
58d0: 2c 20 4f 5f 52 44 4f 4e 4c 59 7c 4f 5f 42 49 4e , O_RDONLY|O_BIN
58e0: 41 52 59 2c 20 30 36 34 34 29 3b 0a 20 20 54 52 ARY, 0644);. TR
58f0: 41 43 45 33 28 22 44 49 52 53 59 4e 43 20 25 2d ACE3("DIRSYNC %-
5900: 33 64 20 28 25 73 29 5c 6e 22 2c 20 66 64 2c 20 3d (%s)\n", fd,
5910: 7a 44 69 72 6e 61 6d 65 29 3b 0a 20 20 69 66 28 zDirname);. if(
5920: 20 66 64 3c 30 20 29 7b 0a 20 20 20 20 72 65 74 fd<0 ){. ret
5930: 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f urn SQLITE_CANTO
5940: 50 45 4e 3b 20 0a 20 20 7d 0a 20 20 72 20 3d 20 PEN; . }. r =
5950: 66 73 79 6e 63 28 66 64 29 3b 0a 20 20 63 6c 6f fsync(fd);. clo
5960: 73 65 28 66 64 29 3b 0a 20 20 72 65 74 75 72 6e se(fd);. return
5970: 20 28 28 72 3d 3d 30 29 3f 53 51 4c 49 54 45 5f ((r==0)?SQLITE_
5980: 4f 4b 3a 53 51 4c 49 54 45 5f 49 4f 45 52 52 29 OK:SQLITE_IOERR)
5990: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 75 6e 63 ;.}../*.** Trunc
59a0: 61 74 65 20 61 6e 20 6f 70 65 6e 20 66 69 6c 65 ate an open file
59b0: 20 74 6f 20 61 20 73 70 65 63 69 66 69 65 64 20 to a specified
59c0: 73 69 7a 65 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 size.*/.int sqli
59d0: 74 65 33 4f 73 54 72 75 6e 63 61 74 65 28 4f 73 te3OsTruncate(Os
59e0: 46 69 6c 65 20 2a 69 64 2c 20 6f 66 66 5f 74 20 File *id, off_t
59f0: 6e 42 79 74 65 29 7b 0a 20 20 61 73 73 65 72 74 nByte){. assert
5a00: 28 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a ( id->isOpen );.
5a10: 20 20 53 69 6d 75 6c 61 74 65 49 4f 45 72 72 6f SimulateIOErro
5a20: 72 28 53 51 4c 49 54 45 5f 49 4f 45 52 52 29 3b r(SQLITE_IOERR);
5a30: 0a 20 20 72 65 74 75 72 6e 20 66 74 72 75 6e 63 . return ftrunc
5a40: 61 74 65 28 69 64 2d 3e 68 2c 20 6e 42 79 74 65 ate(id->h, nByte
5a50: 29 3d 3d 30 20 3f 20 53 51 4c 49 54 45 5f 4f 4b )==0 ? SQLITE_OK
5a60: 20 3a 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b : SQLITE_IOERR;
5a70: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 74 65 72 6d .}../*.** Determ
5a80: 69 6e 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 ine the current
5a90: 73 69 7a 65 20 6f 66 20 61 20 66 69 6c 65 20 69 size of a file i
5aa0: 6e 20 62 79 74 65 73 0a 2a 2f 0a 69 6e 74 20 73 n bytes.*/.int s
5ab0: 71 6c 69 74 65 33 4f 73 46 69 6c 65 53 69 7a 65 qlite3OsFileSize
5ac0: 28 4f 73 46 69 6c 65 20 2a 69 64 2c 20 6f 66 66 (OsFile *id, off
5ad0: 5f 74 20 2a 70 53 69 7a 65 29 7b 0a 20 20 73 74 _t *pSize){. st
5ae0: 72 75 63 74 20 73 74 61 74 20 62 75 66 3b 0a 20 ruct stat buf;.
5af0: 20 61 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f assert( id->isO
5b00: 70 65 6e 20 29 3b 0a 20 20 53 69 6d 75 6c 61 74 pen );. Simulat
5b10: 65 49 4f 45 72 72 6f 72 28 53 51 4c 49 54 45 5f eIOError(SQLITE_
5b20: 49 4f 45 52 52 29 3b 0a 20 20 69 66 28 20 66 73 IOERR);. if( fs
5b30: 74 61 74 28 69 64 2d 3e 68 2c 20 26 62 75 66 29 tat(id->h, &buf)
5b40: 21 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 !=0 ){. retur
5b50: 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a n SQLITE_IOERR;.
5b60: 20 20 7d 0a 20 20 2a 70 53 69 7a 65 20 3d 20 62 }. *pSize = b
5b70: 75 66 2e 73 74 5f 73 69 7a 65 3b 0a 20 20 72 65 uf.st_size;. re
5b80: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a turn SQLITE_OK;.
5b90: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f }../*.** This ro
5ba0: 75 74 69 6e 65 20 63 68 65 63 6b 73 20 69 66 20 utine checks if
5bb0: 74 68 65 72 65 20 69 73 20 61 20 52 45 53 45 52 there is a RESER
5bc0: 56 45 44 20 6c 6f 63 6b 20 68 65 6c 64 20 6f 6e VED lock held on
5bd0: 20 74 68 65 20 73 70 65 63 69 66 69 65 64 0a 2a the specified.*
5be0: 2a 20 66 69 6c 65 20 62 79 20 74 68 69 73 20 6f * file by this o
5bf0: 72 20 61 6e 79 20 6f 74 68 65 72 20 70 72 6f 63 r any other proc
5c00: 65 73 73 2e 20 49 66 20 73 75 63 68 20 61 20 6c ess. If such a l
5c10: 6f 63 6b 20 69 73 20 68 65 6c 64 2c 20 72 65 74 ock is held, ret
5c20: 75 72 6e 0a 2a 2a 20 6e 6f 6e 2d 7a 65 72 6f 2e urn.** non-zero.
5c30: 20 20 49 66 20 74 68 65 20 66 69 6c 65 20 69 73 If the file is
5c40: 20 75 6e 6c 6f 63 6b 65 64 20 6f 72 20 68 6f 6c unlocked or hol
5c50: 64 73 20 6f 6e 6c 79 20 53 48 41 52 45 44 20 6c ds only SHARED l
5c60: 6f 63 6b 73 2c 20 74 68 65 6e 0a 2a 2a 20 72 65 ocks, then.** re
5c70: 74 75 72 6e 20 7a 65 72 6f 2e 0a 2a 2f 0a 69 6e turn zero..*/.in
5c80: 74 20 73 71 6c 69 74 65 33 4f 73 43 68 65 63 6b t sqlite3OsCheck
5c90: 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 4f 73 46 ReservedLock(OsF
5ca0: 69 6c 65 20 2a 69 64 29 7b 0a 20 20 69 6e 74 20 ile *id){. int
5cb0: 72 20 3d 20 30 3b 0a 0a 20 20 61 73 73 65 72 74 r = 0;.. assert
5cc0: 28 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a ( id->isOpen );.
5cd0: 20 20 73 71 6c 69 74 65 33 4f 73 45 6e 74 65 72 sqlite3OsEnter
5ce0: 4d 75 74 65 78 28 29 3b 20 2f 2a 20 4e 65 65 64 Mutex(); /* Need
5cf0: 65 64 20 62 65 63 61 75 73 65 20 69 64 2d 3e 70 ed because id->p
5d00: 4c 6f 63 6b 20 69 73 20 73 68 61 72 65 64 20 61 Lock is shared a
5d10: 63 72 6f 73 73 20 74 68 72 65 61 64 73 20 2a 2f cross threads */
5d20: 0a 0a 20 20 2f 2a 20 43 68 65 63 6b 20 69 66 20 .. /* Check if
5d30: 61 20 74 68 72 65 61 64 20 69 6e 20 74 68 69 73 a thread in this
5d40: 20 70 72 6f 63 65 73 73 20 68 6f 6c 64 73 20 73 process holds s
5d50: 75 63 68 20 61 20 6c 6f 63 6b 20 2a 2f 0a 20 20 uch a lock */.
5d60: 69 66 28 20 69 64 2d 3e 70 4c 6f 63 6b 2d 3e 6c if( id->pLock->l
5d70: 6f 63 6b 74 79 70 65 3e 53 48 41 52 45 44 5f 4c ocktype>SHARED_L
5d80: 4f 43 4b 20 29 7b 0a 20 20 20 20 72 20 3d 20 31 OCK ){. r = 1
5d90: 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 4f 74 68 65 ;. }.. /* Othe
5da0: 72 77 69 73 65 20 73 65 65 20 69 66 20 73 6f 6d rwise see if som
5db0: 65 20 6f 74 68 65 72 20 70 72 6f 63 65 73 73 20 e other process
5dc0: 68 6f 6c 64 73 20 69 74 2e 0a 20 20 2a 2f 0a 20 holds it.. */.
5dd0: 20 69 66 28 20 21 72 20 29 7b 0a 20 20 20 20 73 if( !r ){. s
5de0: 74 72 75 63 74 20 66 6c 6f 63 6b 20 6c 6f 63 6b truct flock lock
5df0: 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 77 68 65 ;. lock.l_whe
5e00: 6e 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 3b 0a nce = SEEK_SET;.
5e10: 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 72 74 lock.l_start
5e20: 20 3d 20 52 45 53 45 52 56 45 44 5f 42 59 54 45 = RESERVED_BYTE
5e30: 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e ;. lock.l_len
5e40: 20 3d 20 31 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c = 1;. lock.l
5e50: 5f 74 79 70 65 20 3d 20 46 5f 57 52 4c 43 4b 3b _type = F_WRLCK;
5e60: 0a 20 20 20 20 66 63 6e 74 6c 28 69 64 2d 3e 68 . fcntl(id->h
5e70: 2c 20 46 5f 47 45 54 4c 4b 2c 20 26 6c 6f 63 6b , F_GETLK, &lock
5e80: 29 3b 0a 20 20 20 20 69 66 28 20 6c 6f 63 6b 2e );. if( lock.
5e90: 6c 5f 74 79 70 65 21 3d 46 5f 55 4e 4c 43 4b 20 l_type!=F_UNLCK
5ea0: 29 7b 0a 20 20 20 20 20 20 72 20 3d 20 31 3b 0a ){. r = 1;.
5eb0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 20 73 }. }. . s
5ec0: 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 4d 75 74 qlite3OsLeaveMut
5ed0: 65 78 28 29 3b 0a 20 20 54 52 41 43 45 33 28 22 ex();. TRACE3("
5ee0: 54 45 53 54 20 57 52 2d 4c 4f 43 4b 20 25 64 20 TEST WR-LOCK %d
5ef0: 25 64 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 72 29 %d\n", id->h, r)
5f00: 3b 0a 0a 20 20 72 65 74 75 72 6e 20 72 3b 0a 7d ;.. return r;.}
5f10: 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f ..#ifdef SQLITE_
5f20: 44 45 42 55 47 0a 2f 2a 0a 2a 2a 20 48 65 6c 70 DEBUG./*.** Help
5f30: 65 72 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 er function for
5f40: 70 72 69 6e 74 69 6e 67 20 6f 75 74 20 74 72 61 printing out tra
5f50: 63 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 66 ce information f
5f60: 72 6f 6d 20 64 65 62 75 67 67 69 6e 67 0a 2a 2a rom debugging.**
5f70: 20 62 69 6e 61 72 69 65 73 2e 20 54 68 69 73 20 binaries. This
5f80: 72 65 74 75 72 6e 73 20 74 68 65 20 73 74 72 69 returns the stri
5f90: 6e 67 20 72 65 70 72 65 73 65 74 61 74 69 6f 6e ng represetation
5fa0: 20 6f 66 20 74 68 65 20 73 75 70 70 6c 69 65 64 of the supplied
5fb0: 0a 2a 2a 20 69 6e 74 65 67 65 72 20 6c 6f 63 6b .** integer lock
5fc0: 2d 74 79 70 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 -type..*/.static
5fd0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 6c 6f const char * lo
5fe0: 63 6b 74 79 70 65 4e 61 6d 65 28 69 6e 74 20 6c cktypeName(int l
5ff0: 6f 63 6b 74 79 70 65 29 7b 0a 20 20 73 77 69 74 ocktype){. swit
6000: 63 68 28 20 6c 6f 63 6b 74 79 70 65 20 29 7b 0a ch( locktype ){.
6010: 20 20 63 61 73 65 20 4e 4f 5f 4c 4f 43 4b 3a 20 case NO_LOCK:
6020: 72 65 74 75 72 6e 20 22 4e 4f 4e 45 22 3b 0a 20 return "NONE";.
6030: 20 63 61 73 65 20 53 48 41 52 45 44 5f 4c 4f 43 case SHARED_LOC
6040: 4b 3a 20 72 65 74 75 72 6e 20 22 53 48 41 52 45 K: return "SHARE
6050: 44 22 3b 0a 20 20 63 61 73 65 20 52 45 53 45 52 D";. case RESER
6060: 56 45 44 5f 4c 4f 43 4b 3a 20 72 65 74 75 72 6e VED_LOCK: return
6070: 20 22 52 45 53 45 52 56 45 44 22 3b 0a 20 20 63 "RESERVED";. c
6080: 61 73 65 20 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b ase PENDING_LOCK
6090: 3a 20 72 65 74 75 72 6e 20 22 50 45 4e 44 49 4e : return "PENDIN
60a0: 47 22 3b 0a 20 20 63 61 73 65 20 45 58 43 4c 55 G";. case EXCLU
60b0: 53 49 56 45 5f 4c 4f 43 4b 3a 20 72 65 74 75 72 SIVE_LOCK: retur
60c0: 6e 20 22 45 58 43 4c 55 53 49 56 45 22 3b 0a 20 n "EXCLUSIVE";.
60d0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 22 45 52 52 }. return "ERR
60e0: 4f 52 22 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f OR";.}.#endif../
60f0: 2a 0a 2a 2a 20 4c 6f 63 6b 20 74 68 65 20 66 69 *.** Lock the fi
6100: 6c 65 20 77 69 74 68 20 74 68 65 20 6c 6f 63 6b le with the lock
6110: 20 73 70 65 63 69 66 69 65 64 20 62 79 20 70 61 specified by pa
6120: 72 61 6d 65 74 65 72 20 6c 6f 63 6b 74 79 70 65 rameter locktype
6130: 20 2d 20 6f 6e 65 0a 2a 2a 20 6f 66 20 74 68 65 - one.** of the
6140: 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 2a 2a 0a 2a following:.**.*
6150: 2a 20 20 20 20 20 28 31 29 20 53 48 41 52 45 44 * (1) SHARED
6160: 5f 4c 4f 43 4b 0a 2a 2a 20 20 20 20 20 28 32 29 _LOCK.** (2)
6170: 20 52 45 53 45 52 56 45 44 5f 4c 4f 43 4b 0a 2a RESERVED_LOCK.*
6180: 2a 20 20 20 20 20 28 33 29 20 50 45 4e 44 49 4e * (3) PENDIN
6190: 47 5f 4c 4f 43 4b 0a 2a 2a 20 20 20 20 20 28 34 G_LOCK.** (4
61a0: 29 20 45 58 43 4c 55 53 49 56 45 5f 4c 4f 43 4b ) EXCLUSIVE_LOCK
61b0: 0a 2a 2a 0a 2a 2a 20 53 6f 6d 65 74 69 6d 65 73 .**.** Sometimes
61c0: 20 77 68 65 6e 20 72 65 71 75 65 73 74 69 6e 67 when requesting
61d0: 20 6f 6e 65 20 6c 6f 63 6b 20 73 74 61 74 65 2c one lock state,
61e0: 20 61 64 64 69 74 69 6f 6e 61 6c 20 6c 6f 63 6b additional lock
61f0: 20 73 74 61 74 65 73 0a 2a 2a 20 61 72 65 20 69 states.** are i
6200: 6e 73 65 72 74 65 64 20 69 6e 20 62 65 74 77 65 nserted in betwe
6210: 65 6e 2e 20 20 54 68 65 20 6c 6f 63 6b 69 6e 67 en. The locking
6220: 20 6d 69 67 68 74 20 66 61 69 6c 20 6f 6e 20 6f might fail on o
6230: 6e 65 20 6f 66 20 74 68 65 20 6c 61 74 65 72 0a ne of the later.
6240: 2a 2a 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 6c ** transitions l
6250: 65 61 76 69 6e 67 20 74 68 65 20 6c 6f 63 6b 20 eaving the lock
6260: 73 74 61 74 65 20 64 69 66 66 65 72 65 6e 74 20 state different
6270: 66 72 6f 6d 20 77 68 61 74 20 69 74 20 73 74 61 from what it sta
6280: 72 74 65 64 20 62 75 74 0a 2a 2a 20 73 74 69 6c rted but.** stil
6290: 6c 20 73 68 6f 72 74 20 6f 66 20 69 74 73 20 67 l short of its g
62a0: 6f 61 6c 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 oal. The follow
62b0: 69 6e 67 20 63 68 61 72 74 20 73 68 6f 77 73 20 ing chart shows
62c0: 74 68 65 20 61 6c 6c 6f 77 65 64 0a 2a 2a 20 74 the allowed.** t
62d0: 72 61 6e 73 69 74 69 6f 6e 73 20 61 6e 64 20 74 ransitions and t
62e0: 68 65 20 69 6e 73 65 72 74 65 64 20 69 6e 74 65 he inserted inte
62f0: 72 6d 65 64 69 61 74 65 20 73 74 61 74 65 73 3a rmediate states:
6300: 0a 2a 2a 0a 2a 2a 20 20 20 20 55 4e 4c 4f 43 4b .**.** UNLOCK
6310: 45 44 20 2d 3e 20 53 48 41 52 45 44 0a 2a 2a 20 ED -> SHARED.**
6320: 20 20 20 53 48 41 52 45 44 20 2d 3e 20 52 45 53 SHARED -> RES
6330: 45 52 56 45 44 0a 2a 2a 20 20 20 20 53 48 41 52 ERVED.** SHAR
6340: 45 44 20 2d 3e 20 28 50 45 4e 44 49 4e 47 29 20 ED -> (PENDING)
6350: 2d 3e 20 45 58 43 4c 55 53 49 56 45 0a 2a 2a 20 -> EXCLUSIVE.**
6360: 20 20 20 52 45 53 45 52 56 45 44 20 2d 3e 20 28 RESERVED -> (
6370: 50 45 4e 44 49 4e 47 29 20 2d 3e 20 45 58 43 4c PENDING) -> EXCL
6380: 55 53 49 56 45 0a 2a 2a 20 20 20 20 50 45 4e 44 USIVE.** PEND
6390: 49 4e 47 20 2d 3e 20 45 58 43 4c 55 53 49 56 45 ING -> EXCLUSIVE
63a0: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 .**.** This rout
63b0: 69 6e 65 20 77 69 6c 6c 20 6f 6e 6c 79 20 69 6e ine will only in
63c0: 63 72 65 61 73 65 20 61 20 6c 6f 63 6b 2e 20 20 crease a lock.
63d0: 55 73 65 20 74 68 65 20 73 71 6c 69 74 65 33 4f Use the sqlite3O
63e0: 73 55 6e 6c 6f 63 6b 28 29 0a 2a 2a 20 72 6f 75 sUnlock().** rou
63f0: 74 69 6e 65 20 74 6f 20 6c 6f 77 65 72 20 61 20 tine to lower a
6400: 6c 6f 63 6b 69 6e 67 20 6c 65 76 65 6c 2e 0a 2a locking level..*
6410: 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 4c /.int sqlite3OsL
6420: 6f 63 6b 28 4f 73 46 69 6c 65 20 2a 69 64 2c 20 ock(OsFile *id,
6430: 69 6e 74 20 6c 6f 63 6b 74 79 70 65 29 7b 0a 20 int locktype){.
6440: 20 2f 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e /* The followin
6450: 67 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 g describes the
6460: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f implementation o
6470: 66 20 74 68 65 20 76 61 72 69 6f 75 73 20 6c 6f f the various lo
6480: 63 6b 73 20 61 6e 64 0a 20 20 2a 2a 20 6c 6f 63 cks and. ** loc
6490: 6b 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 69 6e k transitions in
64a0: 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 50 4f terms of the PO
64b0: 53 49 58 20 61 64 76 69 73 6f 72 79 20 73 68 61 SIX advisory sha
64c0: 72 65 64 20 61 6e 64 20 65 78 63 6c 75 73 69 76 red and exclusiv
64d0: 65 0a 20 20 2a 2a 20 6c 6f 63 6b 20 70 72 69 6d e. ** lock prim
64e0: 69 74 69 76 65 73 20 28 63 61 6c 6c 65 64 20 72 itives (called r
64f0: 65 61 64 2d 6c 6f 63 6b 73 20 61 6e 64 20 77 72 ead-locks and wr
6500: 69 74 65 2d 6c 6f 63 6b 73 20 62 65 6c 6f 77 2c ite-locks below,
6510: 20 74 6f 20 61 76 6f 69 64 0a 20 20 2a 2a 20 63 to avoid. ** c
6520: 6f 6e 66 75 73 69 6f 6e 20 77 69 74 68 20 53 51 onfusion with SQ
6530: 4c 69 74 65 20 6c 6f 63 6b 20 6e 61 6d 65 73 29 Lite lock names)
6540: 2e 20 54 68 65 20 61 6c 67 6f 72 69 74 68 6d 73 . The algorithms
6550: 20 61 72 65 20 63 6f 6d 70 6c 69 63 61 74 65 64 are complicated
6560: 0a 20 20 2a 2a 20 73 6c 69 67 68 74 6c 79 20 69 . ** slightly i
6570: 6e 20 6f 72 64 65 72 20 74 6f 20 62 65 20 63 6f n order to be co
6580: 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 77 69 mpatible with wi
6590: 6e 64 6f 77 73 20 73 79 73 74 65 6d 73 20 73 69 ndows systems si
65a0: 6d 75 6c 74 61 6e 65 6f 75 73 6c 79 0a 20 20 2a multaneously. *
65b0: 2a 20 61 63 63 65 73 73 69 6e 67 20 74 68 65 20 * accessing the
65c0: 73 61 6d 65 20 64 61 74 61 62 61 73 65 20 66 69 same database fi
65d0: 6c 65 2c 20 69 6e 20 63 61 73 65 20 74 68 61 74 le, in case that
65e0: 20 69 73 20 65 76 65 72 20 72 65 71 75 69 72 65 is ever require
65f0: 64 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 53 79 6d d.. **. ** Sym
6600: 62 6f 6c 73 20 64 65 66 69 6e 65 64 20 69 6e 20 bols defined in
6610: 6f 73 2e 68 20 69 6e 64 65 6e 74 69 66 79 20 74 os.h indentify t
6620: 68 65 20 27 70 65 6e 64 69 6e 67 20 62 79 74 65 he 'pending byte
6630: 27 20 61 6e 64 20 74 68 65 20 27 72 65 73 65 72 ' and the 'reser
6640: 76 65 64 0a 20 20 2a 2a 20 62 79 74 65 27 2c 20 ved. ** byte',
6650: 65 61 63 68 20 73 69 6e 67 6c 65 20 62 79 74 65 each single byte
6660: 73 20 61 74 20 77 65 6c 6c 20 6b 6e 6f 77 6e 20 s at well known
6670: 6f 66 66 73 65 74 73 2c 20 61 6e 64 20 74 68 65 offsets, and the
6680: 20 27 73 68 61 72 65 64 20 62 79 74 65 0a 20 20 'shared byte.
6690: 2a 2a 20 72 61 6e 67 65 27 2c 20 61 20 72 61 6e ** range', a ran
66a0: 67 65 20 6f 66 20 35 31 30 20 62 79 74 65 73 20 ge of 510 bytes
66b0: 61 74 20 61 20 77 65 6c 6c 20 6b 6e 6f 77 6e 20 at a well known
66c0: 6f 66 66 73 65 74 2e 0a 20 20 2a 2a 0a 20 20 2a offset.. **. *
66d0: 2a 20 54 6f 20 6f 62 74 61 69 6e 20 61 20 53 48 * To obtain a SH
66e0: 41 52 45 44 20 6c 6f 63 6b 2c 20 61 20 72 65 61 ARED lock, a rea
66f0: 64 2d 6c 6f 63 6b 20 69 73 20 6f 62 74 61 69 6e d-lock is obtain
6700: 65 64 20 6f 6e 20 74 68 65 20 27 70 65 6e 64 69 ed on the 'pendi
6710: 6e 67 0a 20 20 2a 2a 20 62 79 74 65 27 2e 20 20 ng. ** byte'.
6720: 49 66 20 74 68 69 73 20 69 73 20 73 75 63 63 65 If this is succe
6730: 73 73 66 75 6c 2c 20 61 20 72 61 6e 64 6f 6d 20 ssful, a random
6740: 62 79 74 65 20 66 72 6f 6d 20 74 68 65 20 27 73 byte from the 's
6750: 68 61 72 65 64 20 62 79 74 65 0a 20 20 2a 2a 20 hared byte. **
6760: 72 61 6e 67 65 27 20 69 73 20 72 65 61 64 2d 6c range' is read-l
6770: 6f 63 6b 65 64 20 61 6e 64 20 74 68 65 20 6c 6f ocked and the lo
6780: 63 6b 20 6f 6e 20 74 68 65 20 27 70 65 6e 64 69 ck on the 'pendi
6790: 6e 67 20 62 79 74 65 27 20 72 65 6c 65 61 73 65 ng byte' release
67a0: 64 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 41 20 70 d.. **. ** A p
67b0: 72 6f 63 65 73 73 20 6d 61 79 20 6f 6e 6c 79 20 rocess may only
67c0: 6f 62 74 61 69 6e 20 61 20 52 45 53 45 52 56 45 obtain a RESERVE
67d0: 44 20 6c 6f 63 6b 20 61 66 74 65 72 20 69 74 20 D lock after it
67e0: 68 61 73 20 61 20 53 48 41 52 45 44 20 6c 6f 63 has a SHARED loc
67f0: 6b 2e 0a 20 20 2a 2a 20 41 20 52 45 53 45 52 56 k.. ** A RESERV
6800: 45 44 20 6c 6f 63 6b 20 69 73 20 69 6d 70 6c 65 ED lock is imple
6810: 6d 65 6e 74 65 64 20 62 79 20 67 72 61 62 62 69 mented by grabbi
6820: 6e 67 20 61 20 77 72 69 74 65 2d 6c 6f 63 6b 20 ng a write-lock
6830: 6f 6e 20 74 68 65 0a 20 20 2a 2a 20 27 72 65 73 on the. ** 'res
6840: 65 72 76 65 64 20 62 79 74 65 27 2e 20 0a 20 20 erved byte'. .
6850: 2a 2a 0a 20 20 2a 2a 20 41 20 70 72 6f 63 65 73 **. ** A proces
6860: 73 20 6d 61 79 20 6f 6e 6c 79 20 6f 62 74 61 69 s may only obtai
6870: 6e 20 61 20 50 45 4e 44 49 4e 47 20 6c 6f 63 6b n a PENDING lock
6880: 20 61 66 74 65 72 20 69 74 20 68 61 73 20 6f 62 after it has ob
6890: 74 61 69 6e 65 64 20 61 0a 20 20 2a 2a 20 53 48 tained a. ** SH
68a0: 41 52 45 44 20 6c 6f 63 6b 2e 20 41 20 50 45 4e ARED lock. A PEN
68b0: 44 49 4e 47 20 6c 6f 63 6b 20 69 73 20 69 6d 70 DING lock is imp
68c0: 6c 65 6d 65 6e 74 65 64 20 62 79 20 6f 62 74 61 lemented by obta
68d0: 69 6e 69 6e 67 20 61 20 77 72 69 74 65 2d 6c 6f ining a write-lo
68e0: 63 6b 0a 20 20 2a 2a 20 6f 6e 20 74 68 65 20 27 ck. ** on the '
68f0: 70 65 6e 64 69 6e 67 20 62 79 74 65 27 2e 20 54 pending byte'. T
6900: 68 69 73 20 65 6e 73 75 72 65 73 20 74 68 61 74 his ensures that
6910: 20 6e 6f 20 6e 65 77 20 53 48 41 52 45 44 20 6c no new SHARED l
6920: 6f 63 6b 73 20 63 61 6e 20 62 65 0a 20 20 2a 2a ocks can be. **
6930: 20 6f 62 74 61 69 6e 65 64 2c 20 62 75 74 20 65 obtained, but e
6940: 78 69 73 74 69 6e 67 20 53 48 41 52 45 44 20 6c xisting SHARED l
6950: 6f 63 6b 73 20 61 72 65 20 61 6c 6c 6f 77 65 64 ocks are allowed
6960: 20 74 6f 20 70 65 72 73 69 73 74 2e 20 41 20 70 to persist. A p
6970: 72 6f 63 65 73 73 0a 20 20 2a 2a 20 64 6f 65 73 rocess. ** does
6980: 20 6e 6f 74 20 68 61 76 65 20 74 6f 20 6f 62 74 not have to obt
6990: 61 69 6e 20 61 20 52 45 53 45 52 56 45 44 20 6c ain a RESERVED l
69a0: 6f 63 6b 20 6f 6e 20 74 68 65 20 77 61 79 20 74 ock on the way t
69b0: 6f 20 61 20 50 45 4e 44 49 4e 47 20 6c 6f 63 6b o a PENDING lock
69c0: 2e 0a 20 20 2a 2a 20 54 68 69 73 20 70 72 6f 70 .. ** This prop
69d0: 65 72 74 79 20 69 73 20 75 73 65 64 20 62 79 20 erty is used by
69e0: 74 68 65 20 61 6c 67 6f 72 69 74 68 6d 20 66 6f the algorithm fo
69f0: 72 20 72 6f 6c 6c 69 6e 67 20 62 61 63 6b 20 61 r rolling back a
6a00: 20 6a 6f 75 72 6e 61 6c 20 66 69 6c 65 0a 20 20 journal file.
6a10: 2a 2a 20 61 66 74 65 72 20 61 20 63 72 61 73 68 ** after a crash
6a20: 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 41 6e 20 45 .. **. ** An E
6a30: 58 43 4c 55 53 49 56 45 20 6c 6f 63 6b 2c 20 6f XCLUSIVE lock, o
6a40: 62 74 61 69 6e 65 64 20 61 66 74 65 72 20 61 20 btained after a
6a50: 50 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 69 73 20 PENDING lock is
6a60: 68 65 6c 64 2c 20 69 73 0a 20 20 2a 2a 20 69 6d held, is. ** im
6a70: 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 6f 62 74 plemented by obt
6a80: 61 69 6e 69 6e 67 20 61 20 77 72 69 74 65 2d 6c aining a write-l
6a90: 6f 63 6b 20 6f 6e 20 74 68 65 20 65 6e 74 69 72 ock on the entir
6aa0: 65 20 27 73 68 61 72 65 64 20 62 79 74 65 0a 20 e 'shared byte.
6ab0: 20 2a 2a 20 72 61 6e 67 65 27 2e 20 53 69 6e 63 ** range'. Sinc
6ac0: 65 20 61 6c 6c 20 6f 74 68 65 72 20 6c 6f 63 6b e all other lock
6ad0: 73 20 72 65 71 75 69 72 65 20 61 20 72 65 61 64 s require a read
6ae0: 2d 6c 6f 63 6b 20 6f 6e 20 6f 6e 65 20 6f 66 20 -lock on one of
6af0: 74 68 65 20 62 79 74 65 73 0a 20 20 2a 2a 20 77 the bytes. ** w
6b00: 69 74 68 69 6e 20 74 68 69 73 20 72 61 6e 67 65 ithin this range
6b10: 2c 20 74 68 69 73 20 65 6e 73 75 72 65 73 20 74 , this ensures t
6b20: 68 61 74 20 6e 6f 20 6f 74 68 65 72 20 6c 6f 63 hat no other loc
6b30: 6b 73 20 61 72 65 20 68 65 6c 64 20 6f 6e 20 74 ks are held on t
6b40: 68 65 0a 20 20 2a 2a 20 64 61 74 61 62 61 73 65 he. ** database
6b50: 2e 20 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 68 65 . . **. ** The
6b60: 20 72 65 61 73 6f 6e 20 61 20 73 69 6e 67 6c 65 reason a single
6b70: 20 62 79 74 65 20 63 61 6e 6e 6f 74 20 62 65 20 byte cannot be
6b80: 75 73 65 64 20 69 6e 73 74 65 61 64 20 6f 66 20 used instead of
6b90: 74 68 65 20 27 73 68 61 72 65 64 20 62 79 74 65 the 'shared byte
6ba0: 0a 20 20 2a 2a 20 72 61 6e 67 65 27 20 69 73 20 . ** range' is
6bb0: 74 68 61 74 20 73 6f 6d 65 20 76 65 72 73 69 6f that some versio
6bc0: 6e 73 20 6f 66 20 77 69 6e 64 6f 77 73 20 64 6f ns of windows do
6bd0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 72 65 61 not support rea
6be0: 64 2d 6c 6f 63 6b 73 2e 20 42 79 0a 20 20 2a 2a d-locks. By. **
6bf0: 20 6c 6f 63 6b 69 6e 67 20 61 20 72 61 6e 64 6f locking a rando
6c00: 6d 20 62 79 74 65 20 66 72 6f 6d 20 61 20 72 61 m byte from a ra
6c10: 6e 67 65 2c 20 63 6f 6e 63 75 72 72 65 6e 74 20 nge, concurrent
6c20: 53 48 41 52 45 44 20 6c 6f 63 6b 73 20 6d 61 79 SHARED locks may
6c30: 20 65 78 69 73 74 0a 20 20 2a 2a 20 65 76 65 6e exist. ** even
6c40: 20 69 66 20 74 68 65 20 6c 6f 63 6b 69 6e 67 20 if the locking
6c50: 70 72 69 6d 69 74 69 76 65 20 75 73 65 64 20 69 primitive used i
6c60: 73 20 61 6c 77 61 79 73 20 61 20 77 72 69 74 65 s always a write
6c70: 2d 6c 6f 63 6b 2e 0a 20 20 2a 2f 0a 20 20 69 6e -lock.. */. in
6c80: 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b t rc = SQLITE_OK
6c90: 3b 0a 20 20 73 74 72 75 63 74 20 6c 6f 63 6b 49 ;. struct lockI
6ca0: 6e 66 6f 20 2a 70 4c 6f 63 6b 20 3d 20 69 64 2d nfo *pLock = id-
6cb0: 3e 70 4c 6f 63 6b 3b 0a 20 20 73 74 72 75 63 74 >pLock;. struct
6cc0: 20 66 6c 6f 63 6b 20 6c 6f 63 6b 3b 0a 20 20 69 flock lock;. i
6cd0: 6e 74 20 73 3b 0a 0a 20 20 61 73 73 65 72 74 28 nt s;.. assert(
6ce0: 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 id->isOpen );.
6cf0: 20 54 52 41 43 45 37 28 22 4c 4f 43 4b 20 25 64 TRACE7("LOCK %d
6d00: 20 25 73 20 77 61 73 20 25 73 28 25 73 2c 25 64 %s was %s(%s,%d
6d10: 29 20 70 69 64 3d 25 64 5c 6e 22 2c 20 69 64 2d ) pid=%d\n", id-
6d20: 3e 68 2c 20 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 >h, locktypeName
6d30: 28 6c 6f 63 6b 74 79 70 65 29 2c 20 0a 20 20 20 (locktype), .
6d40: 20 20 20 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 28 locktypeName(
6d50: 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 29 2c 20 6c id->locktype), l
6d60: 6f 63 6b 74 79 70 65 4e 61 6d 65 28 70 4c 6f 63 ocktypeName(pLoc
6d70: 6b 2d 3e 6c 6f 63 6b 74 79 70 65 29 2c 20 70 4c k->locktype), pL
6d80: 6f 63 6b 2d 3e 63 6e 74 0a 20 20 20 20 20 20 2c ock->cnt. ,
6d90: 67 65 74 70 69 64 28 29 20 29 3b 0a 0a 20 20 2f getpid() );.. /
6da0: 2a 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6c * If there is al
6db0: 72 65 61 64 79 20 61 20 6c 6f 63 6b 20 6f 66 20 ready a lock of
6dc0: 74 68 69 73 20 74 79 70 65 20 6f 72 20 6d 6f 72 this type or mor
6dd0: 65 20 72 65 73 74 72 69 63 74 69 76 65 20 6f 6e e restrictive on
6de0: 20 74 68 65 0a 20 20 2a 2a 20 4f 73 46 69 6c 65 the. ** OsFile
6df0: 2c 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 20 44 6f , do nothing. Do
6e00: 6e 27 74 20 75 73 65 20 74 68 65 20 65 6e 64 5f n't use the end_
6e10: 6c 6f 63 6b 3a 20 65 78 69 74 20 70 61 74 68 2c lock: exit path,
6e20: 20 61 73 0a 20 20 2a 2a 20 73 71 6c 69 74 65 33 as. ** sqlite3
6e30: 4f 73 45 6e 74 65 72 4d 75 74 65 78 28 29 20 68 OsEnterMutex() h
6e40: 61 73 6e 27 74 20 62 65 65 6e 20 63 61 6c 6c 65 asn't been calle
6e50: 64 20 79 65 74 2e 0a 20 20 2a 2f 0a 20 20 69 66 d yet.. */. if
6e60: 28 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 3e 3d ( id->locktype>=
6e70: 6c 6f 63 6b 74 79 70 65 20 29 7b 0a 20 20 20 20 locktype ){.
6e80: 54 52 41 43 45 33 28 22 4c 4f 43 4b 20 25 64 20 TRACE3("LOCK %d
6e90: 25 73 20 6f 6b 20 28 61 6c 72 65 61 64 79 20 68 %s ok (already h
6ea0: 65 6c 64 29 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 eld)\n", id->h,
6eb0: 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 28 6c 6f 63 locktypeName(loc
6ec0: 6b 74 79 70 65 29 29 3b 0a 20 20 20 20 72 65 74 ktype));. ret
6ed0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 urn SQLITE_OK;.
6ee0: 20 7d 0a 0a 20 20 2f 2a 20 4d 61 6b 65 20 73 75 }.. /* Make su
6ef0: 72 65 20 74 68 65 20 6c 6f 63 6b 69 6e 67 20 73 re the locking s
6f00: 65 71 75 65 6e 63 65 20 69 73 20 63 6f 72 72 65 equence is corre
6f10: 63 74 0a 20 20 2a 2f 0a 20 20 61 73 73 65 72 74 ct. */. assert
6f20: 28 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 21 3d ( id->locktype!=
6f30: 4e 4f 5f 4c 4f 43 4b 20 7c 7c 20 6c 6f 63 6b 74 NO_LOCK || lockt
6f40: 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 4b ype==SHARED_LOCK
6f50: 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 6c 6f );. assert( lo
6f60: 63 6b 74 79 70 65 21 3d 50 45 4e 44 49 4e 47 5f cktype!=PENDING_
6f70: 4c 4f 43 4b 20 29 3b 0a 20 20 61 73 73 65 72 74 LOCK );. assert
6f80: 28 20 6c 6f 63 6b 74 79 70 65 21 3d 52 45 53 45 ( locktype!=RESE
6f90: 52 56 45 44 5f 4c 4f 43 4b 20 7c 7c 20 69 64 2d RVED_LOCK || id-
6fa0: 3e 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 >locktype==SHARE
6fb0: 44 5f 4c 4f 43 4b 20 29 3b 0a 0a 20 20 2f 2a 20 D_LOCK );.. /*
6fc0: 54 68 69 73 20 6d 75 74 65 78 20 69 73 20 6e 65 This mutex is ne
6fd0: 65 64 65 64 20 62 65 63 61 75 73 65 20 69 64 2d eded because id-
6fe0: 3e 70 4c 6f 63 6b 20 69 73 20 73 68 61 72 65 64 >pLock is shared
6ff0: 20 61 63 72 6f 73 73 20 74 68 72 65 61 64 73 0a across threads.
7000: 20 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 4f 73 */. sqlite3Os
7010: 45 6e 74 65 72 4d 75 74 65 78 28 29 3b 0a 0a 20 EnterMutex();..
7020: 20 2f 2a 20 49 66 20 73 6f 6d 65 20 74 68 72 65 /* If some thre
7030: 61 64 20 75 73 69 6e 67 20 74 68 69 73 20 50 49 ad using this PI
7040: 44 20 68 61 73 20 61 20 6c 6f 63 6b 20 76 69 61 D has a lock via
7050: 20 61 20 64 69 66 66 65 72 65 6e 74 20 4f 73 46 a different OsF
7060: 69 6c 65 2a 0a 20 20 2a 2a 20 68 61 6e 64 6c 65 ile*. ** handle
7070: 20 74 68 61 74 20 70 72 65 63 6c 75 64 65 73 20 that precludes
7080: 74 68 65 20 72 65 71 75 65 73 74 65 64 20 6c 6f the requested lo
7090: 63 6b 2c 20 72 65 74 75 72 6e 20 42 55 53 59 2e ck, return BUSY.
70a0: 0a 20 20 2a 2f 0a 20 20 69 66 28 20 28 69 64 2d . */. if( (id-
70b0: 3e 6c 6f 63 6b 74 79 70 65 21 3d 70 4c 6f 63 6b >locktype!=pLock
70c0: 2d 3e 6c 6f 63 6b 74 79 70 65 20 26 26 20 0a 20 ->locktype && .
70d0: 20 20 20 20 20 20 20 20 20 28 70 4c 6f 63 6b 2d (pLock-
70e0: 3e 6c 6f 63 6b 74 79 70 65 3e 3d 50 45 4e 44 49 >locktype>=PENDI
70f0: 4e 47 5f 4c 4f 43 4b 20 7c 7c 20 6c 6f 63 6b 74 NG_LOCK || lockt
7100: 79 70 65 3e 53 48 41 52 45 44 5f 4c 4f 43 4b 29 ype>SHARED_LOCK)
7110: 29 0a 20 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 ). ){. rc =
7120: 53 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20 20 20 SQLITE_BUSY;.
7130: 20 67 6f 74 6f 20 65 6e 64 5f 6c 6f 63 6b 3b 0a goto end_lock;.
7140: 20 20 7d 0a 0a 20 20 2f 2a 20 49 66 20 61 20 53 }.. /* If a S
7150: 48 41 52 45 44 20 6c 6f 63 6b 20 69 73 20 72 65 HARED lock is re
7160: 71 75 65 73 74 65 64 2c 20 61 6e 64 20 73 6f 6d quested, and som
7170: 65 20 74 68 72 65 61 64 20 75 73 69 6e 67 20 74 e thread using t
7180: 68 69 73 20 50 49 44 20 61 6c 72 65 61 64 79 0a his PID already.
7190: 20 20 2a 2a 20 68 61 73 20 61 20 53 48 41 52 45 ** has a SHARE
71a0: 44 20 6f 72 20 52 45 53 45 52 56 45 44 20 6c 6f D or RESERVED lo
71b0: 63 6b 2c 20 74 68 65 6e 20 69 6e 63 72 65 6d 65 ck, then increme
71c0: 6e 74 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 nt reference cou
71d0: 6e 74 73 20 61 6e 64 0a 20 20 2a 2a 20 72 65 74 nts and. ** ret
71e0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 2e 0a 20 urn SQLITE_OK..
71f0: 20 2a 2f 0a 20 20 69 66 28 20 6c 6f 63 6b 74 79 */. if( lockty
7200: 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 4b 20 pe==SHARED_LOCK
7210: 26 26 20 0a 20 20 20 20 20 20 28 70 4c 6f 63 6b && . (pLock
7220: 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 ->locktype==SHAR
7230: 45 44 5f 4c 4f 43 4b 20 7c 7c 20 70 4c 6f 63 6b ED_LOCK || pLock
7240: 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 52 45 53 45 ->locktype==RESE
7250: 52 56 45 44 5f 4c 4f 43 4b 29 20 29 7b 0a 20 20 RVED_LOCK) ){.
7260: 20 20 61 73 73 65 72 74 28 20 6c 6f 63 6b 74 79 assert( lockty
7270: 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 4b 20 pe==SHARED_LOCK
7280: 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 69 );. assert( i
7290: 64 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 30 20 29 d->locktype==0 )
72a0: 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 4c ;. assert( pL
72b0: 6f 63 6b 2d 3e 63 6e 74 3e 30 20 29 3b 0a 20 20 ock->cnt>0 );.
72c0: 20 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d id->locktype =
72d0: 20 53 48 41 52 45 44 5f 4c 4f 43 4b 3b 0a 20 20 SHARED_LOCK;.
72e0: 20 20 70 4c 6f 63 6b 2d 3e 63 6e 74 2b 2b 3b 0a pLock->cnt++;.
72f0: 20 20 20 20 69 64 2d 3e 70 4f 70 65 6e 2d 3e 6e id->pOpen->n
7300: 4c 6f 63 6b 2b 2b 3b 0a 20 20 20 20 67 6f 74 6f Lock++;. goto
7310: 20 65 6e 64 5f 6c 6f 63 6b 3b 0a 20 20 7d 0a 0a end_lock;. }..
7320: 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 3d 20 31 lock.l_len = 1
7330: 4c 3b 0a 20 20 6c 6f 63 6b 2e 6c 5f 77 68 65 6e L;. lock.l_when
7340: 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 3b 0a 0a ce = SEEK_SET;..
7350: 20 20 2f 2a 20 41 20 50 45 4e 44 49 4e 47 20 6c /* A PENDING l
7360: 6f 63 6b 20 69 73 20 6e 65 65 64 65 64 20 62 65 ock is needed be
7370: 66 6f 72 65 20 61 63 71 75 69 72 69 6e 67 20 61 fore acquiring a
7380: 20 53 48 41 52 45 44 20 6c 6f 63 6b 20 61 6e 64 SHARED lock and
7390: 20 62 65 66 6f 72 65 0a 20 20 2a 2a 20 61 63 71 before. ** acq
73a0: 75 69 72 69 6e 67 20 61 6e 20 45 58 43 4c 55 53 uiring an EXCLUS
73b0: 49 56 45 20 6c 6f 63 6b 2e 20 20 46 6f 72 20 74 IVE lock. For t
73c0: 68 65 20 53 48 41 52 45 44 20 6c 6f 63 6b 2c 20 he SHARED lock,
73d0: 74 68 65 20 50 45 4e 44 49 4e 47 20 77 69 6c 6c the PENDING will
73e0: 0a 20 20 2a 2a 20 62 65 20 72 65 6c 65 61 73 65 . ** be release
73f0: 64 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 6c 6f d.. */. if( lo
7400: 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c cktype==SHARED_L
7410: 4f 43 4b 20 0a 20 20 20 20 20 20 7c 7c 20 28 6c OCK . || (l
7420: 6f 63 6b 74 79 70 65 3d 3d 45 58 43 4c 55 53 49 ocktype==EXCLUSI
7430: 56 45 5f 4c 4f 43 4b 20 26 26 20 69 64 2d 3e 6c VE_LOCK && id->l
7440: 6f 63 6b 74 79 70 65 3c 50 45 4e 44 49 4e 47 5f ocktype<PENDING_
7450: 4c 4f 43 4b 29 0a 20 20 29 7b 0a 20 20 20 20 6c LOCK). ){. l
7460: 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 28 6c 6f ock.l_type = (lo
7470: 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c cktype==SHARED_L
7480: 4f 43 4b 3f 46 5f 52 44 4c 43 4b 3a 46 5f 57 52 OCK?F_RDLCK:F_WR
7490: 4c 43 4b 29 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c LCK);. lock.l
74a0: 5f 73 74 61 72 74 20 3d 20 50 45 4e 44 49 4e 47 _start = PENDING
74b0: 5f 42 59 54 45 3b 0a 20 20 20 20 73 20 3d 20 66 _BYTE;. s = f
74c0: 63 6e 74 6c 28 69 64 2d 3e 68 2c 20 46 5f 53 45 cntl(id->h, F_SE
74d0: 54 4c 4b 2c 20 26 6c 6f 63 6b 29 3b 0a 20 20 20 TLK, &lock);.
74e0: 20 69 66 28 20 73 20 29 7b 0a 20 20 20 20 20 20 if( s ){.
74f0: 72 63 20 3d 20 28 65 72 72 6e 6f 3d 3d 45 49 4e rc = (errno==EIN
7500: 56 41 4c 29 20 3f 20 53 51 4c 49 54 45 5f 4e 4f VAL) ? SQLITE_NO
7510: 4c 46 53 20 3a 20 53 51 4c 49 54 45 5f 42 55 53 LFS : SQLITE_BUS
7520: 59 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 65 6e Y;. goto en
7530: 64 5f 6c 6f 63 6b 3b 0a 20 20 20 20 7d 0a 20 20 d_lock;. }.
7540: 7d 0a 0a 0a 20 20 2f 2a 20 49 66 20 63 6f 6e 74 }... /* If cont
7550: 72 6f 6c 20 67 65 74 73 20 74 6f 20 74 68 69 73 rol gets to this
7560: 20 70 6f 69 6e 74 2c 20 74 68 65 6e 20 61 63 74 point, then act
7570: 75 61 6c 6c 79 20 67 6f 20 61 68 65 61 64 20 61 ually go ahead a
7580: 6e 64 20 6d 61 6b 65 0a 20 20 2a 2a 20 6f 70 65 nd make. ** ope
7590: 72 61 74 69 6e 67 20 73 79 73 74 65 6d 20 63 61 rating system ca
75a0: 6c 6c 73 20 66 6f 72 20 74 68 65 20 73 70 65 63 lls for the spec
75b0: 69 66 69 65 64 20 6c 6f 63 6b 2e 0a 20 20 2a 2f ified lock.. */
75c0: 0a 20 20 69 66 28 20 6c 6f 63 6b 74 79 70 65 3d . if( locktype=
75d0: 3d 53 48 41 52 45 44 5f 4c 4f 43 4b 20 29 7b 0a =SHARED_LOCK ){.
75e0: 20 20 20 20 61 73 73 65 72 74 28 20 70 4c 6f 63 assert( pLoc
75f0: 6b 2d 3e 63 6e 74 3d 3d 30 20 29 3b 0a 20 20 20 k->cnt==0 );.
7600: 20 61 73 73 65 72 74 28 20 70 4c 6f 63 6b 2d 3e assert( pLock->
7610: 6c 6f 63 6b 74 79 70 65 3d 3d 30 20 29 3b 0a 0a locktype==0 );..
7620: 20 20 20 20 2f 2a 20 4e 6f 77 20 67 65 74 20 74 /* Now get t
7630: 68 65 20 72 65 61 64 2d 6c 6f 63 6b 20 2a 2f 0a he read-lock */.
7640: 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 72 74 lock.l_start
7650: 20 3d 20 53 48 41 52 45 44 5f 46 49 52 53 54 3b = SHARED_FIRST;
7660: 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 . lock.l_len
7670: 3d 20 53 48 41 52 45 44 5f 53 49 5a 45 3b 0a 20 = SHARED_SIZE;.
7680: 20 20 20 73 20 3d 20 66 63 6e 74 6c 28 69 64 2d s = fcntl(id-
7690: 3e 68 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 6c 6f >h, F_SETLK, &lo
76a0: 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 44 72 6f ck);.. /* Dro
76b0: 70 20 74 68 65 20 74 65 6d 70 6f 72 61 72 79 20 p the temporary
76c0: 50 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 2a 2f 0a PENDING lock */.
76d0: 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 72 74 lock.l_start
76e0: 20 3d 20 50 45 4e 44 49 4e 47 5f 42 59 54 45 3b = PENDING_BYTE;
76f0: 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 . lock.l_len
7700: 3d 20 31 4c 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c = 1L;. lock.l
7710: 5f 74 79 70 65 20 3d 20 46 5f 55 4e 4c 43 4b 3b _type = F_UNLCK;
7720: 0a 20 20 20 20 66 63 6e 74 6c 28 69 64 2d 3e 68 . fcntl(id->h
7730: 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 6c 6f 63 6b , F_SETLK, &lock
7740: 29 3b 0a 20 20 20 20 69 66 28 20 73 20 29 7b 0a );. if( s ){.
7750: 20 20 20 20 20 20 72 63 20 3d 20 28 65 72 72 6e rc = (errn
7760: 6f 3d 3d 45 49 4e 56 41 4c 29 20 3f 20 53 51 4c o==EINVAL) ? SQL
7770: 49 54 45 5f 4e 4f 4c 46 53 20 3a 20 53 51 4c 49 ITE_NOLFS : SQLI
7780: 54 45 5f 42 55 53 59 3b 0a 20 20 20 20 7d 65 6c TE_BUSY;. }el
7790: 73 65 7b 0a 20 20 20 20 20 20 69 64 2d 3e 6c 6f se{. id->lo
77a0: 63 6b 74 79 70 65 20 3d 20 53 48 41 52 45 44 5f cktype = SHARED_
77b0: 4c 4f 43 4b 3b 0a 20 20 20 20 20 20 69 64 2d 3e LOCK;. id->
77c0: 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 6b 2b 2b 3b 0a pOpen->nLock++;.
77d0: 20 20 20 20 20 20 70 4c 6f 63 6b 2d 3e 63 6e 74 pLock->cnt
77e0: 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 = 1;. }. }e
77f0: 6c 73 65 20 69 66 28 20 6c 6f 63 6b 74 79 70 65 lse if( locktype
7800: 3d 3d 45 58 43 4c 55 53 49 56 45 5f 4c 4f 43 4b ==EXCLUSIVE_LOCK
7810: 20 26 26 20 70 4c 6f 63 6b 2d 3e 63 6e 74 3e 31 && pLock->cnt>1
7820: 20 29 7b 0a 20 20 20 20 2f 2a 20 57 65 20 61 72 ){. /* We ar
7830: 65 20 74 72 79 69 6e 67 20 66 6f 72 20 61 6e 20 e trying for an
7840: 65 78 63 6c 75 73 69 76 65 20 6c 6f 63 6b 20 62 exclusive lock b
7850: 75 74 20 61 6e 6f 74 68 65 72 20 74 68 72 65 61 ut another threa
7860: 64 20 69 6e 20 74 68 69 73 0a 20 20 20 20 2a 2a d in this. **
7870: 20 73 61 6d 65 20 70 72 6f 63 65 73 73 20 69 73 same process is
7880: 20 73 74 69 6c 6c 20 68 6f 6c 64 69 6e 67 20 61 still holding a
7890: 20 73 68 61 72 65 64 20 6c 6f 63 6b 2e 20 2a 2f shared lock. */
78a0: 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 . rc = SQLITE
78b0: 5f 42 55 53 59 3b 0a 20 20 7d 65 6c 73 65 7b 0a _BUSY;. }else{.
78c0: 20 20 20 20 2f 2a 20 54 68 65 20 72 65 71 75 65 /* The reque
78d0: 73 74 20 77 61 73 20 66 6f 72 20 61 20 52 45 53 st was for a RES
78e0: 45 52 56 45 44 20 6f 72 20 45 58 43 4c 55 53 49 ERVED or EXCLUSI
78f0: 56 45 20 6c 6f 63 6b 2e 20 20 49 74 20 69 73 0a VE lock. It is.
7900: 20 20 20 20 2a 2a 20 61 73 73 75 6d 65 64 20 74 ** assumed t
7910: 68 61 74 20 74 68 65 72 65 20 69 73 20 61 20 53 hat there is a S
7920: 48 41 52 45 44 20 6f 72 20 67 72 65 61 74 65 72 HARED or greater
7930: 20 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 66 69 6c lock on the fil
7940: 65 0a 20 20 20 20 2a 2a 20 61 6c 72 65 61 64 79 e. ** already
7950: 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 61 73 73 .. */. ass
7960: 65 72 74 28 20 30 21 3d 69 64 2d 3e 6c 6f 63 6b ert( 0!=id->lock
7970: 74 79 70 65 20 29 3b 0a 20 20 20 20 6c 6f 63 6b type );. lock
7980: 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 57 52 4c 43 .l_type = F_WRLC
7990: 4b 3b 0a 20 20 20 20 73 77 69 74 63 68 28 20 6c K;. switch( l
79a0: 6f 63 6b 74 79 70 65 20 29 7b 0a 20 20 20 20 20 ocktype ){.
79b0: 20 63 61 73 65 20 52 45 53 45 52 56 45 44 5f 4c case RESERVED_L
79c0: 4f 43 4b 3a 0a 20 20 20 20 20 20 20 20 6c 6f 63 OCK:. loc
79d0: 6b 2e 6c 5f 73 74 61 72 74 20 3d 20 52 45 53 45 k.l_start = RESE
79e0: 52 56 45 44 5f 42 59 54 45 3b 0a 20 20 20 20 20 RVED_BYTE;.
79f0: 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 break;.
7a00: 63 61 73 65 20 45 58 43 4c 55 53 49 56 45 5f 4c case EXCLUSIVE_L
7a10: 4f 43 4b 3a 0a 20 20 20 20 20 20 20 20 6c 6f 63 OCK:. loc
7a20: 6b 2e 6c 5f 73 74 61 72 74 20 3d 20 53 48 41 52 k.l_start = SHAR
7a30: 45 44 5f 46 49 52 53 54 3b 0a 20 20 20 20 20 20 ED_FIRST;.
7a40: 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 3d 20 53 lock.l_len = S
7a50: 48 41 52 45 44 5f 53 49 5a 45 3b 0a 20 20 20 20 HARED_SIZE;.
7a60: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 break;.
7a70: 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 default:.
7a80: 20 20 61 73 73 65 72 74 28 30 29 3b 0a 20 20 20 assert(0);.
7a90: 20 7d 0a 20 20 20 20 73 20 3d 20 66 63 6e 74 6c }. s = fcntl
7aa0: 28 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b 2c (id->h, F_SETLK,
7ab0: 20 26 6c 6f 63 6b 29 3b 0a 20 20 20 20 69 66 28 &lock);. if(
7ac0: 20 73 20 29 7b 0a 20 20 20 20 20 20 72 63 20 3d s ){. rc =
7ad0: 20 28 65 72 72 6e 6f 3d 3d 45 49 4e 56 41 4c 29 (errno==EINVAL)
7ae0: 20 3f 20 53 51 4c 49 54 45 5f 4e 4f 4c 46 53 20 ? SQLITE_NOLFS
7af0: 3a 20 53 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20 : SQLITE_BUSY;.
7b00: 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 20 69 66 }. }. . if
7b10: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 ( rc==SQLITE_OK
7b20: 29 7b 0a 20 20 20 20 69 64 2d 3e 6c 6f 63 6b 74 ){. id->lockt
7b30: 79 70 65 20 3d 20 6c 6f 63 6b 74 79 70 65 3b 0a ype = locktype;.
7b40: 20 20 20 20 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 pLock->lockt
7b50: 79 70 65 20 3d 20 6c 6f 63 6b 74 79 70 65 3b 0a ype = locktype;.
7b60: 20 20 7d 65 6c 73 65 20 69 66 28 20 6c 6f 63 6b }else if( lock
7b70: 74 79 70 65 3d 3d 45 58 43 4c 55 53 49 56 45 5f type==EXCLUSIVE_
7b80: 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 69 64 2d 3e LOCK ){. id->
7b90: 6c 6f 63 6b 74 79 70 65 20 3d 20 50 45 4e 44 49 locktype = PENDI
7ba0: 4e 47 5f 4c 4f 43 4b 3b 0a 20 20 20 20 70 4c 6f NG_LOCK;. pLo
7bb0: 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 50 ck->locktype = P
7bc0: 45 4e 44 49 4e 47 5f 4c 4f 43 4b 3b 0a 20 20 7d ENDING_LOCK;. }
7bd0: 0a 0a 65 6e 64 5f 6c 6f 63 6b 3a 0a 20 20 73 71 ..end_lock:. sq
7be0: 6c 69 74 65 33 4f 73 4c 65 61 76 65 4d 75 74 65 lite3OsLeaveMute
7bf0: 78 28 29 3b 0a 20 20 54 52 41 43 45 34 28 22 4c x();. TRACE4("L
7c00: 4f 43 4b 20 25 64 20 25 73 20 25 73 5c 6e 22 2c OCK %d %s %s\n",
7c10: 20 69 64 2d 3e 68 2c 20 6c 6f 63 6b 74 79 70 65 id->h, locktype
7c20: 4e 61 6d 65 28 6c 6f 63 6b 74 79 70 65 29 2c 20 Name(locktype),
7c30: 0a 20 20 20 20 20 20 72 63 3d 3d 53 51 4c 49 54 . rc==SQLIT
7c40: 45 5f 4f 4b 20 3f 20 22 6f 6b 22 20 3a 20 22 66 E_OK ? "ok" : "f
7c50: 61 69 6c 65 64 22 29 3b 0a 20 20 72 65 74 75 72 ailed");. retur
7c60: 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4c n rc;.}../*.** L
7c70: 6f 77 65 72 20 74 68 65 20 6c 6f 63 6b 69 6e 67 ower the locking
7c80: 20 6c 65 76 65 6c 20 6f 6e 20 66 69 6c 65 20 64 level on file d
7c90: 65 73 63 72 69 70 74 6f 72 20 69 64 20 74 6f 20 escriptor id to
7ca0: 6c 6f 63 6b 74 79 70 65 2e 20 20 6c 6f 63 6b 74 locktype. lockt
7cb0: 79 70 65 0a 2a 2a 20 6d 75 73 74 20 62 65 20 65 ype.** must be e
7cc0: 69 74 68 65 72 20 4e 4f 5f 4c 4f 43 4b 20 6f 72 ither NO_LOCK or
7cd0: 20 53 48 41 52 45 44 5f 4c 4f 43 4b 2e 0a 2a 2a SHARED_LOCK..**
7ce0: 0a 2a 2a 20 49 66 20 74 68 65 20 6c 6f 63 6b 69 .** If the locki
7cf0: 6e 67 20 6c 65 76 65 6c 20 6f 66 20 74 68 65 20 ng level of the
7d00: 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 file descriptor
7d10: 69 73 20 61 6c 72 65 61 64 79 20 61 74 20 6f 72 is already at or
7d20: 20 62 65 6c 6f 77 0a 2a 2a 20 74 68 65 20 72 65 below.** the re
7d30: 71 75 65 73 74 65 64 20 6c 6f 63 6b 69 6e 67 20 quested locking
7d40: 6c 65 76 65 6c 2c 20 74 68 69 73 20 72 6f 75 74 level, this rout
7d50: 69 6e 65 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a ine is a no-op..
7d60: 2a 2a 0a 2a 2a 20 49 74 20 69 73 20 6e 6f 74 20 **.** It is not
7d70: 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 68 69 possible for thi
7d80: 73 20 72 6f 75 74 69 6e 65 20 74 6f 20 66 61 69 s routine to fai
7d90: 6c 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 l..*/.int sqlite
7da0: 33 4f 73 55 6e 6c 6f 63 6b 28 4f 73 46 69 6c 65 3OsUnlock(OsFile
7db0: 20 2a 69 64 2c 20 69 6e 74 20 6c 6f 63 6b 74 79 *id, int lockty
7dc0: 70 65 29 7b 0a 20 20 73 74 72 75 63 74 20 6c 6f pe){. struct lo
7dd0: 63 6b 49 6e 66 6f 20 2a 70 4c 6f 63 6b 3b 0a 20 ckInfo *pLock;.
7de0: 20 73 74 72 75 63 74 20 66 6c 6f 63 6b 20 6c 6f struct flock lo
7df0: 63 6b 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 69 ck;.. assert( i
7e00: 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 20 54 d->isOpen );. T
7e10: 52 41 43 45 37 28 22 55 4e 4c 4f 43 4b 20 25 64 RACE7("UNLOCK %d
7e20: 20 25 64 20 77 61 73 20 25 64 28 25 64 2c 25 64 %d was %d(%d,%d
7e30: 29 20 70 69 64 3d 25 64 5c 6e 22 2c 20 69 64 2d ) pid=%d\n", id-
7e40: 3e 68 2c 20 6c 6f 63 6b 74 79 70 65 2c 20 69 64 >h, locktype, id
7e50: 2d 3e 6c 6f 63 6b 74 79 70 65 2c 20 0a 20 20 20 ->locktype, .
7e60: 20 20 20 69 64 2d 3e 70 4c 6f 63 6b 2d 3e 6c 6f id->pLock->lo
7e70: 63 6b 74 79 70 65 2c 20 69 64 2d 3e 70 4c 6f 63 cktype, id->pLoc
7e80: 6b 2d 3e 63 6e 74 2c 20 67 65 74 70 69 64 28 29 k->cnt, getpid()
7e90: 29 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 6c 6f );.. assert( lo
7ea0: 63 6b 74 79 70 65 3c 3d 53 48 41 52 45 44 5f 4c cktype<=SHARED_L
7eb0: 4f 43 4b 20 29 3b 0a 20 20 69 66 28 20 69 64 2d OCK );. if( id-
7ec0: 3e 6c 6f 63 6b 74 79 70 65 3c 3d 6c 6f 63 6b 74 >locktype<=lockt
7ed0: 79 70 65 20 29 7b 0a 20 20 20 20 72 65 74 75 72 ype ){. retur
7ee0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 7d n SQLITE_OK;. }
7ef0: 0a 20 20 73 71 6c 69 74 65 33 4f 73 45 6e 74 65 . sqlite3OsEnte
7f00: 72 4d 75 74 65 78 28 29 3b 0a 20 20 70 4c 6f 63 rMutex();. pLoc
7f10: 6b 20 3d 20 69 64 2d 3e 70 4c 6f 63 6b 3b 0a 20 k = id->pLock;.
7f20: 20 61 73 73 65 72 74 28 20 70 4c 6f 63 6b 2d 3e assert( pLock->
7f30: 63 6e 74 21 3d 30 20 29 3b 0a 20 20 69 66 28 20 cnt!=0 );. if(
7f40: 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 3e 53 48 41 id->locktype>SHA
7f50: 52 45 44 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 RED_LOCK ){.
7f60: 61 73 73 65 72 74 28 20 70 4c 6f 63 6b 2d 3e 6c assert( pLock->l
7f70: 6f 63 6b 74 79 70 65 3d 3d 69 64 2d 3e 6c 6f 63 ocktype==id->loc
7f80: 6b 74 79 70 65 20 29 3b 0a 20 20 20 20 6c 6f 63 ktype );. loc
7f90: 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 55 4e 4c k.l_type = F_UNL
7fa0: 43 4b 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 77 CK;. lock.l_w
7fb0: 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 hence = SEEK_SET
7fc0: 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 ;. lock.l_sta
7fd0: 72 74 20 3d 20 50 45 4e 44 49 4e 47 5f 42 59 54 rt = PENDING_BYT
7fe0: 45 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 E;. lock.l_le
7ff0: 6e 20 3d 20 32 4c 3b 20 20 61 73 73 65 72 74 28 n = 2L; assert(
8000: 20 50 45 4e 44 49 4e 47 5f 42 59 54 45 2b 31 3d PENDING_BYTE+1=
8010: 3d 52 45 53 45 52 56 45 44 5f 42 59 54 45 20 29 =RESERVED_BYTE )
8020: 3b 0a 20 20 20 20 66 63 6e 74 6c 28 69 64 2d 3e ;. fcntl(id->
8030: 68 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 6c 6f 63 h, F_SETLK, &loc
8040: 6b 29 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 6c k);. pLock->l
8050: 6f 63 6b 74 79 70 65 20 3d 20 53 48 41 52 45 44 ocktype = SHARED
8060: 5f 4c 4f 43 4b 3b 0a 20 20 7d 0a 20 20 69 66 28 _LOCK;. }. if(
8070: 20 6c 6f 63 6b 74 79 70 65 3d 3d 4e 4f 5f 4c 4f locktype==NO_LO
8080: 43 4b 20 29 7b 0a 20 20 20 20 73 74 72 75 63 74 CK ){. struct
8090: 20 6f 70 65 6e 43 6e 74 20 2a 70 4f 70 65 6e 3b openCnt *pOpen;
80a0: 0a 0a 20 20 20 20 2f 2a 20 44 65 63 72 65 6d 65 .. /* Decreme
80b0: 6e 74 20 74 68 65 20 73 68 61 72 65 64 20 6c 6f nt the shared lo
80c0: 63 6b 20 63 6f 75 6e 74 65 72 2e 20 20 52 65 6c ck counter. Rel
80d0: 65 61 73 65 20 74 68 65 20 6c 6f 63 6b 20 75 73 ease the lock us
80e0: 69 6e 67 20 61 6e 0a 20 20 20 20 2a 2a 20 4f 53 ing an. ** OS
80f0: 20 63 61 6c 6c 20 6f 6e 6c 79 20 77 68 65 6e 20 call only when
8100: 61 6c 6c 20 74 68 72 65 61 64 73 20 69 6e 20 74 all threads in t
8110: 68 69 73 20 73 61 6d 65 20 70 72 6f 63 65 73 73 his same process
8120: 20 68 61 76 65 20 72 65 6c 65 61 73 65 64 0a 20 have released.
8130: 20 20 20 2a 2a 20 74 68 65 20 6c 6f 63 6b 2e 0a ** the lock..
8140: 20 20 20 20 2a 2f 0a 20 20 20 20 70 4c 6f 63 6b */. pLock
8150: 2d 3e 63 6e 74 2d 2d 3b 0a 20 20 20 20 69 66 28 ->cnt--;. if(
8160: 20 70 4c 6f 63 6b 2d 3e 63 6e 74 3d 3d 30 20 29 pLock->cnt==0 )
8170: 7b 0a 20 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 74 {. lock.l_t
8180: 79 70 65 20 3d 20 46 5f 55 4e 4c 43 4b 3b 0a 20 ype = F_UNLCK;.
8190: 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 77 68 65 6e lock.l_when
81a0: 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 3b 0a 20 ce = SEEK_SET;.
81b0: 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 72 lock.l_star
81c0: 74 20 3d 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 3d t = lock.l_len =
81d0: 20 30 4c 3b 0a 20 20 20 20 20 20 66 63 6e 74 6c 0L;. fcntl
81e0: 28 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b 2c (id->h, F_SETLK,
81f0: 20 26 6c 6f 63 6b 29 3b 0a 20 20 20 20 20 20 70 &lock);. p
8200: 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d Lock->locktype =
8210: 20 4e 4f 5f 4c 4f 43 4b 3b 0a 20 20 20 20 7d 0a NO_LOCK;. }.
8220: 0a 20 20 20 20 2f 2a 20 44 65 63 72 65 6d 65 6e . /* Decremen
8230: 74 20 74 68 65 20 63 6f 75 6e 74 20 6f 66 20 6c t the count of l
8240: 6f 63 6b 73 20 61 67 61 69 6e 73 74 20 74 68 69 ocks against thi
8250: 73 20 73 61 6d 65 20 66 69 6c 65 2e 20 20 57 68 s same file. Wh
8260: 65 6e 20 74 68 65 0a 20 20 20 20 2a 2a 20 63 6f en the. ** co
8270: 75 6e 74 20 72 65 61 63 68 65 73 20 7a 65 72 6f unt reaches zero
8280: 2c 20 63 6c 6f 73 65 20 61 6e 79 20 6f 74 68 65 , close any othe
8290: 72 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f r file descripto
82a0: 72 73 20 77 68 6f 73 65 20 63 6c 6f 73 65 0a 20 rs whose close.
82b0: 20 20 20 2a 2a 20 77 61 73 20 64 65 66 65 72 72 ** was deferr
82c0: 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 6f 75 ed because of ou
82d0: 74 73 74 61 6e 64 69 6e 67 20 6c 6f 63 6b 73 2e tstanding locks.
82e0: 0a 20 20 20 20 2a 2f 0a 20 20 20 20 70 4f 70 65 . */. pOpe
82f0: 6e 20 3d 20 69 64 2d 3e 70 4f 70 65 6e 3b 0a 20 n = id->pOpen;.
8300: 20 20 20 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 6b 2d pOpen->nLock-
8310: 2d 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 -;. assert( p
8320: 4f 70 65 6e 2d 3e 6e 4c 6f 63 6b 3e 3d 30 20 29 Open->nLock>=0 )
8330: 3b 0a 20 20 20 20 69 66 28 20 70 4f 70 65 6e 2d ;. if( pOpen-
8340: 3e 6e 4c 6f 63 6b 3d 3d 30 20 26 26 20 70 4f 70 >nLock==0 && pOp
8350: 65 6e 2d 3e 6e 50 65 6e 64 69 6e 67 3e 30 20 29 en->nPending>0 )
8360: 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 3b 0a 20 {. int i;.
8370: 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 69 3c for(i=0; i<
8380: 70 4f 70 65 6e 2d 3e 6e 50 65 6e 64 69 6e 67 3b pOpen->nPending;
8390: 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 20 63 i++){. c
83a0: 6c 6f 73 65 28 70 4f 70 65 6e 2d 3e 61 50 65 6e lose(pOpen->aPen
83b0: 64 69 6e 67 5b 69 5d 29 3b 0a 20 20 20 20 20 20 ding[i]);.
83c0: 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 46 72 }. sqliteFr
83d0: 65 65 28 70 4f 70 65 6e 2d 3e 61 50 65 6e 64 69 ee(pOpen->aPendi
83e0: 6e 67 29 3b 0a 20 20 20 20 20 20 70 4f 70 65 6e ng);. pOpen
83f0: 2d 3e 6e 50 65 6e 64 69 6e 67 20 3d 20 30 3b 0a ->nPending = 0;.
8400: 20 20 20 20 20 20 70 4f 70 65 6e 2d 3e 61 50 65 pOpen->aPe
8410: 6e 64 69 6e 67 20 3d 20 30 3b 0a 20 20 20 20 7d nding = 0;. }
8420: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 4f 73 . }. sqlite3Os
8430: 4c 65 61 76 65 4d 75 74 65 78 28 29 3b 0a 20 20 LeaveMutex();.
8440: 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 6c id->locktype = l
8450: 6f 63 6b 74 79 70 65 3b 0a 20 20 72 65 74 75 72 ocktype;. retur
8460: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a n SQLITE_OK;.}..
8470: 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61 20 66 69 /*.** Close a fi
8480: 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 le..*/.int sqlit
8490: 65 33 4f 73 43 6c 6f 73 65 28 4f 73 46 69 6c 65 e3OsClose(OsFile
84a0: 20 2a 69 64 29 7b 0a 20 20 69 66 28 20 21 69 64 *id){. if( !id
84b0: 2d 3e 69 73 4f 70 65 6e 20 29 20 72 65 74 75 72 ->isOpen ) retur
84c0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 73 n SQLITE_OK;. s
84d0: 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 69 qlite3OsUnlock(i
84e0: 64 2c 20 4e 4f 5f 4c 4f 43 4b 29 3b 0a 20 20 69 d, NO_LOCK);. i
84f0: 66 28 20 69 64 2d 3e 64 69 72 66 64 3e 3d 30 20 f( id->dirfd>=0
8500: 29 20 63 6c 6f 73 65 28 69 64 2d 3e 64 69 72 66 ) close(id->dirf
8510: 64 29 3b 0a 20 20 69 64 2d 3e 64 69 72 66 64 20 d);. id->dirfd
8520: 3d 20 2d 31 3b 0a 20 20 73 71 6c 69 74 65 33 4f = -1;. sqlite3O
8530: 73 45 6e 74 65 72 4d 75 74 65 78 28 29 3b 0a 20 sEnterMutex();.
8540: 20 69 66 28 20 69 64 2d 3e 70 4f 70 65 6e 2d 3e if( id->pOpen->
8550: 6e 4c 6f 63 6b 20 29 7b 0a 20 20 20 20 2f 2a 20 nLock ){. /*
8560: 49 66 20 74 68 65 72 65 20 61 72 65 20 6f 75 74 If there are out
8570: 73 74 61 6e 64 69 6e 67 20 6c 6f 63 6b 73 2c 20 standing locks,
8580: 64 6f 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 do not actually
8590: 63 6c 6f 73 65 20 74 68 65 20 66 69 6c 65 20 6a close the file j
85a0: 75 73 74 0a 20 20 20 20 2a 2a 20 79 65 74 20 62 ust. ** yet b
85b0: 65 63 61 75 73 65 20 74 68 61 74 20 77 6f 75 6c ecause that woul
85c0: 64 20 63 6c 65 61 72 20 74 68 6f 73 65 20 6c 6f d clear those lo
85d0: 63 6b 73 2e 20 20 49 6e 73 74 65 61 64 2c 20 61 cks. Instead, a
85e0: 64 64 20 74 68 65 20 66 69 6c 65 0a 20 20 20 20 dd the file.
85f0: 2a 2a 20 64 65 73 63 72 69 70 74 6f 72 20 74 6f ** descriptor to
8600: 20 70 4f 70 65 6e 2d 3e 61 50 65 6e 64 69 6e 67 pOpen->aPending
8610: 2e 20 20 49 74 20 77 69 6c 6c 20 62 65 20 61 75 . It will be au
8620: 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6c 6f 73 tomatically clos
8630: 65 64 20 77 68 65 6e 0a 20 20 20 20 2a 2a 20 74 ed when. ** t
8640: 68 65 20 6c 61 73 74 20 6c 6f 63 6b 20 69 73 20 he last lock is
8650: 63 6c 65 61 72 65 64 2e 0a 20 20 20 20 2a 2f 0a cleared.. */.
8660: 20 20 20 20 69 6e 74 20 2a 61 4e 65 77 3b 0a 20 int *aNew;.
8670: 20 20 20 73 74 72 75 63 74 20 6f 70 65 6e 43 6e struct openCn
8680: 74 20 2a 70 4f 70 65 6e 20 3d 20 69 64 2d 3e 70 t *pOpen = id->p
8690: 4f 70 65 6e 3b 0a 20 20 20 20 70 4f 70 65 6e 2d Open;. pOpen-
86a0: 3e 6e 50 65 6e 64 69 6e 67 2b 2b 3b 0a 20 20 20 >nPending++;.
86b0: 20 61 4e 65 77 20 3d 20 73 71 6c 69 74 65 52 65 aNew = sqliteRe
86c0: 61 6c 6c 6f 63 28 20 70 4f 70 65 6e 2d 3e 61 50 alloc( pOpen->aP
86d0: 65 6e 64 69 6e 67 2c 20 70 4f 70 65 6e 2d 3e 6e ending, pOpen->n
86e0: 50 65 6e 64 69 6e 67 2a 73 69 7a 65 6f 66 28 69 Pending*sizeof(i
86f0: 6e 74 29 20 29 3b 0a 20 20 20 20 69 66 28 20 61 nt) );. if( a
8700: 4e 65 77 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 New==0 ){.
8710: 2f 2a 20 49 66 20 61 20 6d 61 6c 6c 6f 63 20 66 /* If a malloc f
8720: 61 69 6c 73 2c 20 6a 75 73 74 20 6c 65 61 6b 20 ails, just leak
8730: 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 the file descrip
8740: 74 6f 72 20 2a 2f 0a 20 20 20 20 7d 65 6c 73 65 tor */. }else
8750: 7b 0a 20 20 20 20 20 20 70 4f 70 65 6e 2d 3e 61 {. pOpen->a
8760: 50 65 6e 64 69 6e 67 20 3d 20 61 4e 65 77 3b 0a Pending = aNew;.
8770: 20 20 20 20 20 20 70 4f 70 65 6e 2d 3e 61 50 65 pOpen->aPe
8780: 6e 64 69 6e 67 5b 70 4f 70 65 6e 2d 3e 6e 50 65 nding[pOpen->nPe
8790: 6e 64 69 6e 67 2d 31 5d 20 3d 20 69 64 2d 3e 68 nding-1] = id->h
87a0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b ;. }. }else{
87b0: 0a 20 20 20 20 2f 2a 20 54 68 65 72 65 20 61 72 . /* There ar
87c0: 65 20 6e 6f 20 6f 75 74 73 74 61 6e 64 69 6e 67 e no outstanding
87d0: 20 6c 6f 63 6b 73 20 73 6f 20 77 65 20 63 61 6e locks so we can
87e0: 20 63 6c 6f 73 65 20 74 68 65 20 66 69 6c 65 20 close the file
87f0: 69 6d 6d 65 64 69 61 74 65 6c 79 20 2a 2f 0a 20 immediately */.
8800: 20 20 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b close(id->h);
8810: 0a 20 20 7d 0a 20 20 72 65 6c 65 61 73 65 4c 6f . }. releaseLo
8820: 63 6b 49 6e 66 6f 28 69 64 2d 3e 70 4c 6f 63 6b ckInfo(id->pLock
8830: 29 3b 0a 20 20 72 65 6c 65 61 73 65 4f 70 65 6e );. releaseOpen
8840: 43 6e 74 28 69 64 2d 3e 70 4f 70 65 6e 29 3b 0a Cnt(id->pOpen);.
8850: 20 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 sqlite3OsLeave
8860: 4d 75 74 65 78 28 29 3b 0a 20 20 69 64 2d 3e 69 Mutex();. id->i
8870: 73 4f 70 65 6e 20 3d 20 30 3b 0a 20 20 54 52 41 sOpen = 0;. TRA
8880: 43 45 32 28 22 43 4c 4f 53 45 20 20 20 25 2d 33 CE2("CLOSE %-3
8890: 64 5c 6e 22 2c 20 69 64 2d 3e 68 29 3b 0a 20 20 d\n", id->h);.
88a0: 4f 70 65 6e 43 6f 75 6e 74 65 72 28 2d 31 29 3b OpenCounter(-1);
88b0: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 . return SQLITE
88c0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 _OK;.}../*.** Ge
88d0: 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f t information to
88e0: 20 73 65 65 64 20 74 68 65 20 72 61 6e 64 6f 6d seed the random
88f0: 20 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 74 6f number generato
8900: 72 2e 20 20 54 68 65 20 73 65 65 64 0a 2a 2a 20 r. The seed.**
8910: 69 73 20 77 72 69 74 74 65 6e 20 69 6e 74 6f 20 is written into
8920: 74 68 65 20 62 75 66 66 65 72 20 7a 42 75 66 5b the buffer zBuf[
8930: 32 35 36 5d 2e 20 20 54 68 65 20 63 61 6c 6c 69 256]. The calli
8940: 6e 67 20 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 ng function must
8950: 0a 2a 2a 20 73 75 70 70 6c 79 20 61 20 73 75 66 .** supply a suf
8960: 66 69 63 69 65 6e 74 6c 79 20 6c 61 72 67 65 20 ficiently large
8970: 62 75 66 66 65 72 2e 0a 2a 2f 0a 69 6e 74 20 73 buffer..*/.int s
8980: 71 6c 69 74 65 33 4f 73 52 61 6e 64 6f 6d 53 65 qlite3OsRandomSe
8990: 65 64 28 63 68 61 72 20 2a 7a 42 75 66 29 7b 0a ed(char *zBuf){.
89a0: 20 20 2f 2a 20 57 65 20 68 61 76 65 20 74 6f 20 /* We have to
89b0: 69 6e 69 74 69 61 6c 69 7a 65 20 7a 42 75 66 20 initialize zBuf
89c0: 74 6f 20 70 72 65 76 65 6e 74 20 76 61 6c 67 72 to prevent valgr
89d0: 69 6e 64 20 66 72 6f 6d 20 72 65 70 6f 72 74 69 ind from reporti
89e0: 6e 67 0a 20 20 2a 2a 20 65 72 72 6f 72 73 2e 20 ng. ** errors.
89f0: 20 54 68 65 20 72 65 70 6f 72 74 73 20 69 73 73 The reports iss
8a00: 75 65 64 20 62 79 20 76 61 6c 67 72 69 6e 64 20 ued by valgrind
8a10: 61 72 65 20 69 6e 63 6f 72 72 65 63 74 20 2d 20 are incorrect -
8a20: 77 65 20 77 6f 75 6c 64 0a 20 20 2a 2a 20 70 72 we would. ** pr
8a30: 65 66 65 72 20 74 68 61 74 20 74 68 65 20 72 61 efer that the ra
8a40: 6e 64 6f 6d 6e 65 73 73 20 62 65 20 69 6e 63 72 ndomness be incr
8a50: 65 61 73 65 64 20 62 79 20 6d 61 6b 69 6e 67 20 eased by making
8a60: 75 73 65 20 6f 66 20 74 68 65 0a 20 20 2a 2a 20 use of the. **
8a70: 75 6e 69 6e 69 74 69 61 6c 69 7a 65 64 20 73 70 uninitialized sp
8a80: 61 63 65 20 69 6e 20 7a 42 75 66 20 2d 20 62 75 ace in zBuf - bu
8a90: 74 20 76 61 6c 67 72 69 6e 64 20 65 72 72 6f 72 t valgrind error
8aa0: 73 20 74 65 6e 64 20 74 6f 20 77 6f 72 72 79 0a s tend to worry.
8ab0: 20 20 2a 2a 20 73 6f 6d 65 20 75 73 65 72 73 2e ** some users.
8ac0: 20 20 52 61 74 68 65 72 20 74 68 61 6e 20 61 72 Rather than ar
8ad0: 67 75 65 2c 20 69 74 20 73 65 65 6d 73 20 65 61 gue, it seems ea
8ae0: 73 69 65 72 20 6a 75 73 74 20 74 6f 20 69 6e 69 sier just to ini
8af0: 74 69 61 6c 69 7a 65 0a 20 20 2a 2a 20 74 68 65 tialize. ** the
8b00: 20 77 68 6f 6c 65 20 61 72 72 61 79 20 61 6e 64 whole array and
8b10: 20 73 69 6c 65 6e 63 65 20 76 61 6c 67 72 69 6e silence valgrin
8b20: 64 2c 20 65 76 65 6e 20 69 66 20 74 68 61 74 20 d, even if that
8b30: 6d 65 61 6e 73 20 6c 65 73 73 20 72 61 6e 64 6f means less rando
8b40: 6d 6e 65 73 73 0a 20 20 2a 2a 20 69 6e 20 74 68 mness. ** in th
8b50: 65 20 72 61 6e 64 6f 6d 20 73 65 65 64 2e 0a 20 e random seed..
8b60: 20 2a 2a 0a 20 20 2a 2a 20 57 68 65 6e 20 74 65 **. ** When te
8b70: 73 74 69 6e 67 2c 20 69 6e 69 74 69 61 6c 69 7a sting, initializ
8b80: 69 6e 67 20 7a 42 75 66 5b 5d 20 74 6f 20 7a 65 ing zBuf[] to ze
8b90: 72 6f 20 69 73 20 61 6c 6c 20 77 65 20 64 6f 2e ro is all we do.
8ba0: 20 20 54 68 61 74 20 6d 65 61 6e 73 0a 20 20 2a That means. *
8bb0: 2a 20 74 68 61 74 20 77 65 20 61 6c 77 61 79 73 * that we always
8bc0: 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 72 61 use the same ra
8bd0: 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 73 65 71 75 ndom number sequ
8be0: 65 6e 63 65 2e 2a 20 54 68 69 73 20 6d 61 6b 65 ence.* This make
8bf0: 73 20 74 68 65 0a 20 20 2a 2a 20 74 65 73 74 73 s the. ** tests
8c00: 20 72 65 70 65 61 74 61 62 6c 65 2e 0a 20 20 2a repeatable.. *
8c10: 2f 0a 20 20 6d 65 6d 73 65 74 28 7a 42 75 66 2c /. memset(zBuf,
8c20: 20 30 2c 20 32 35 36 29 3b 0a 23 69 66 20 21 64 0, 256);.#if !d
8c30: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 54 45 efined(SQLITE_TE
8c40: 53 54 29 0a 20 20 7b 0a 20 20 20 20 69 6e 74 20 ST). {. int
8c50: 70 69 64 3b 0a 20 20 20 20 74 69 6d 65 28 28 74 pid;. time((t
8c60: 69 6d 65 5f 74 2a 29 7a 42 75 66 29 3b 0a 20 20 ime_t*)zBuf);.
8c70: 20 20 70 69 64 20 3d 20 67 65 74 70 69 64 28 29 pid = getpid()
8c80: 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 26 7a 42 ;. memcpy(&zB
8c90: 75 66 5b 73 69 7a 65 6f 66 28 74 69 6d 65 5f 74 uf[sizeof(time_t
8ca0: 29 5d 2c 20 26 70 69 64 2c 20 73 69 7a 65 6f 66 )], &pid, sizeof
8cb0: 28 70 69 64 29 29 3b 0a 20 20 7d 0a 23 65 6e 64 (pid));. }.#end
8cc0: 69 66 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 if. return SQLI
8cd0: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 TE_OK;.}../*.**
8ce0: 53 6c 65 65 70 20 66 6f 72 20 61 20 6c 69 74 74 Sleep for a litt
8cf0: 6c 65 20 77 68 69 6c 65 2e 20 20 52 65 74 75 72 le while. Retur
8d00: 6e 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 n the amount of
8d10: 74 69 6d 65 20 73 6c 65 70 74 2e 0a 2a 2f 0a 69 time slept..*/.i
8d20: 6e 74 20 73 71 6c 69 74 65 33 4f 73 53 6c 65 65 nt sqlite3OsSlee
8d30: 70 28 69 6e 74 20 6d 73 29 7b 0a 23 69 66 20 64 p(int ms){.#if d
8d40: 65 66 69 6e 65 64 28 48 41 56 45 5f 55 53 4c 45 efined(HAVE_USLE
8d50: 45 50 29 20 26 26 20 48 41 56 45 5f 55 53 4c 45 EP) && HAVE_USLE
8d60: 45 50 0a 20 20 75 73 6c 65 65 70 28 6d 73 2a 31 EP. usleep(ms*1
8d70: 30 30 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 6d 000);. return m
8d80: 73 3b 0a 23 65 6c 73 65 0a 20 20 73 6c 65 65 70 s;.#else. sleep
8d90: 28 28 6d 73 2b 39 39 39 29 2f 31 30 30 30 29 3b ((ms+999)/1000);
8da0: 0a 20 20 72 65 74 75 72 6e 20 31 30 30 30 2a 28 . return 1000*(
8db0: 28 6d 73 2b 39 39 39 29 2f 31 30 30 30 29 3b 0a (ms+999)/1000);.
8dc0: 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 #endif.}../*.**
8dd0: 53 74 61 74 69 63 20 76 61 72 69 61 62 6c 65 73 Static variables
8de0: 20 75 73 65 64 20 66 6f 72 20 74 68 72 65 61 64 used for thread
8df0: 20 73 79 6e 63 68 72 6f 6e 69 7a 61 74 69 6f 6e synchronization
8e00: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 69 .*/.static int i
8e10: 6e 4d 75 74 65 78 20 3d 20 30 3b 0a 23 69 66 64 nMutex = 0;.#ifd
8e20: 65 66 20 53 51 4c 49 54 45 5f 55 4e 49 58 5f 54 ef SQLITE_UNIX_T
8e30: 48 52 45 41 44 53 0a 73 74 61 74 69 63 20 70 74 HREADS.static pt
8e40: 68 72 65 61 64 5f 6d 75 74 65 78 5f 74 20 6d 75 hread_mutex_t mu
8e50: 74 65 78 20 3d 20 50 54 48 52 45 41 44 5f 4d 55 tex = PTHREAD_MU
8e60: 54 45 58 5f 49 4e 49 54 49 41 4c 49 5a 45 52 3b TEX_INITIALIZER;
8e70: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 .#endif../*.** T
8e80: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 61 69 he following pai
8e90: 72 20 6f 66 20 72 6f 75 74 69 6e 65 20 69 6d 70 r of routine imp
8ea0: 6c 65 6d 65 6e 74 20 6d 75 74 75 61 6c 20 65 78 lement mutual ex
8eb0: 63 6c 75 73 69 6f 6e 20 66 6f 72 0a 2a 2a 20 6d clusion for.** m
8ec0: 75 6c 74 69 2d 74 68 72 65 61 64 65 64 20 70 72 ulti-threaded pr
8ed0: 6f 63 65 73 73 65 73 2e 20 20 4f 6e 6c 79 20 61 ocesses. Only a
8ee0: 20 73 69 6e 67 6c 65 20 74 68 72 65 61 64 20 69 single thread i
8ef0: 73 20 61 6c 6c 6f 77 65 64 20 74 6f 0a 2a 2a 20 s allowed to.**
8f00: 65 78 65 63 75 74 65 64 20 63 6f 64 65 20 74 68 executed code th
8f10: 61 74 20 69 73 20 73 75 72 72 6f 75 6e 64 65 64 at is surrounded
8f20: 20 62 79 20 45 6e 74 65 72 4d 75 74 65 78 28 29 by EnterMutex()
8f30: 20 61 6e 64 20 4c 65 61 76 65 4d 75 74 65 78 28 and LeaveMutex(
8f40: 29 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 69 74 65 20 )..**.** SQLite
8f50: 75 73 65 73 20 6f 6e 6c 79 20 61 20 73 69 6e 67 uses only a sing
8f60: 6c 65 20 4d 75 74 65 78 2e 20 20 54 68 65 72 65 le Mutex. There
8f70: 20 69 73 20 6e 6f 74 20 6d 75 63 68 20 63 72 69 is not much cri
8f80: 74 69 63 61 6c 0a 2a 2a 20 63 6f 64 65 20 61 6e tical.** code an
8f90: 64 20 77 68 61 74 20 6c 69 74 74 6c 65 20 74 68 d what little th
8fa0: 65 72 65 20 69 73 20 65 78 65 63 75 74 65 73 20 ere is executes
8fb0: 71 75 69 63 6b 6c 79 20 61 6e 64 20 77 69 74 68 quickly and with
8fc0: 6f 75 74 20 62 6c 6f 63 6b 69 6e 67 2e 0a 2a 2f out blocking..*/
8fd0: 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 4f 73 45 .void sqlite3OsE
8fe0: 6e 74 65 72 4d 75 74 65 78 28 29 7b 0a 23 69 66 nterMutex(){.#if
8ff0: 64 65 66 20 53 51 4c 49 54 45 5f 55 4e 49 58 5f def SQLITE_UNIX_
9000: 54 48 52 45 41 44 53 0a 20 20 70 74 68 72 65 61 THREADS. pthrea
9010: 64 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 26 6d 75 d_mutex_lock(&mu
9020: 74 65 78 29 3b 0a 23 65 6e 64 69 66 0a 20 20 61 tex);.#endif. a
9030: 73 73 65 72 74 28 20 21 69 6e 4d 75 74 65 78 20 ssert( !inMutex
9040: 29 3b 0a 20 20 69 6e 4d 75 74 65 78 20 3d 20 31 );. inMutex = 1
9050: 3b 0a 7d 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 ;.}.void sqlite3
9060: 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 29 7b 0a OsLeaveMutex(){.
9070: 20 20 61 73 73 65 72 74 28 20 69 6e 4d 75 74 65 assert( inMute
9080: 78 20 29 3b 0a 20 20 69 6e 4d 75 74 65 78 20 3d x );. inMutex =
9090: 20 30 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 0;.#ifdef SQLIT
90a0: 45 5f 55 4e 49 58 5f 54 48 52 45 41 44 53 0a 20 E_UNIX_THREADS.
90b0: 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 75 pthread_mutex_u
90c0: 6e 6c 6f 63 6b 28 26 6d 75 74 65 78 29 3b 0a 23 nlock(&mutex);.#
90d0: 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 endif.}../*.** T
90e0: 75 72 6e 20 61 20 72 65 6c 61 74 69 76 65 20 70 urn a relative p
90f0: 61 74 68 6e 61 6d 65 20 69 6e 74 6f 20 61 20 66 athname into a f
9100: 75 6c 6c 20 70 61 74 68 6e 61 6d 65 2e 20 20 52 ull pathname. R
9110: 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 0a eturn a pointer.
9120: 2a 2a 20 74 6f 20 74 68 65 20 66 75 6c 6c 20 70 ** to the full p
9130: 61 74 68 6e 61 6d 65 20 73 74 6f 72 65 64 20 69 athname stored i
9140: 6e 20 73 70 61 63 65 20 6f 62 74 61 69 6e 65 64 n space obtained
9150: 20 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c 6c from sqliteMall
9160: 6f 63 28 29 2e 0a 2a 2a 20 54 68 65 20 63 61 6c oc()..** The cal
9170: 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 69 73 ling function is
9180: 20 72 65 73 70 6f 6e 73 69 62 6c 65 20 66 6f 72 responsible for
9190: 20 66 72 65 65 69 6e 67 20 74 68 69 73 20 73 70 freeing this sp
91a0: 61 63 65 20 6f 6e 63 65 20 69 74 0a 2a 2a 20 69 ace once it.** i
91b0: 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 6e 65 65 64 s no longer need
91c0: 65 64 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c ed..*/.char *sql
91d0: 69 74 65 33 4f 73 46 75 6c 6c 50 61 74 68 6e 61 ite3OsFullPathna
91e0: 6d 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a me(const char *z
91f0: 52 65 6c 61 74 69 76 65 29 7b 0a 20 20 63 68 61 Relative){. cha
9200: 72 20 2a 7a 46 75 6c 6c 20 3d 20 30 3b 0a 20 20 r *zFull = 0;.
9210: 69 66 28 20 7a 52 65 6c 61 74 69 76 65 5b 30 5d if( zRelative[0]
9220: 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 73 71 6c =='/' ){. sql
9230: 69 74 65 33 53 65 74 53 74 72 69 6e 67 28 26 7a ite3SetString(&z
9240: 46 75 6c 6c 2c 20 7a 52 65 6c 61 74 69 76 65 2c Full, zRelative,
9250: 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 7d 65 (char*)0);. }e
9260: 6c 73 65 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 lse{. char zB
9270: 75 66 5b 35 30 30 30 5d 3b 0a 20 20 20 20 73 71 uf[5000];. sq
9280: 6c 69 74 65 33 53 65 74 53 74 72 69 6e 67 28 26 lite3SetString(&
9290: 7a 46 75 6c 6c 2c 20 67 65 74 63 77 64 28 7a 42 zFull, getcwd(zB
92a0: 75 66 2c 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 uf, sizeof(zBuf)
92b0: 29 2c 20 22 2f 22 2c 20 7a 52 65 6c 61 74 69 76 ), "/", zRelativ
92c0: 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e,.
92d0: 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 30 29 (char*)0)
92e0: 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a ;. }. return z
92f0: 46 75 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 Full;.}../*.** T
9300: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 76 61 72 he following var
9310: 69 61 62 6c 65 2c 20 69 66 20 73 65 74 20 74 6f iable, if set to
9320: 20 61 20 6e 6f 6e 2d 7a 65 72 6f 20 76 61 6c 75 a non-zero valu
9330: 65 2c 20 62 65 63 6f 6d 65 73 20 74 68 65 20 72 e, becomes the r
9340: 65 73 75 6c 74 0a 2a 2a 20 72 65 74 75 72 6e 65 esult.** returne
9350: 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 4f 73 d from sqlite3Os
9360: 43 75 72 72 65 6e 74 54 69 6d 65 28 29 2e 20 20 CurrentTime().
9370: 54 68 69 73 20 69 73 20 75 73 65 64 20 66 6f 72 This is used for
9380: 20 74 65 73 74 69 6e 67 2e 0a 2a 2f 0a 23 69 66 testing..*/.#if
9390: 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a def SQLITE_TEST.
93a0: 69 6e 74 20 73 71 6c 69 74 65 33 5f 63 75 72 72 int sqlite3_curr
93b0: 65 6e 74 5f 74 69 6d 65 20 3d 20 30 3b 0a 23 65 ent_time = 0;.#e
93c0: 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 46 69 6e 64 ndif../*.** Find
93d0: 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d the current tim
93e0: 65 20 28 69 6e 20 55 6e 69 76 65 72 73 61 6c 20 e (in Universal
93f0: 43 6f 6f 72 64 69 6e 61 74 65 64 20 54 69 6d 65 Coordinated Time
9400: 29 2e 20 20 57 72 69 74 65 20 74 68 65 0a 2a 2a ). Write the.**
9410: 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 61 6e current time an
9420: 64 20 64 61 74 65 20 61 73 20 61 20 4a 75 6c 69 d date as a Juli
9430: 61 6e 20 44 61 79 20 6e 75 6d 62 65 72 20 69 6e an Day number in
9440: 74 6f 20 2a 70 72 4e 6f 77 20 61 6e 64 0a 2a 2a to *prNow and.**
9450: 20 72 65 74 75 72 6e 20 30 2e 20 20 52 65 74 75 return 0. Retu
9460: 72 6e 20 31 20 69 66 20 74 68 65 20 74 69 6d 65 rn 1 if the time
9470: 20 61 6e 64 20 64 61 74 65 20 63 61 6e 6e 6f 74 and date cannot
9480: 20 62 65 20 66 6f 75 6e 64 2e 0a 2a 2f 0a 69 6e be found..*/.in
9490: 74 20 73 71 6c 69 74 65 33 4f 73 43 75 72 72 65 t sqlite3OsCurre
94a0: 6e 74 54 69 6d 65 28 64 6f 75 62 6c 65 20 2a 70 ntTime(double *p
94b0: 72 4e 6f 77 29 7b 0a 20 20 74 69 6d 65 5f 74 20 rNow){. time_t
94c0: 74 3b 0a 20 20 74 69 6d 65 28 26 74 29 3b 0a 20 t;. time(&t);.
94d0: 20 2a 70 72 4e 6f 77 20 3d 20 74 2f 38 36 34 30 *prNow = t/8640
94e0: 30 2e 30 20 2b 20 32 34 34 30 35 38 37 2e 35 3b 0.0 + 2440587.5;
94f0: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 .#ifdef SQLITE_T
9500: 45 53 54 0a 20 20 69 66 28 20 73 71 6c 69 74 65 EST. if( sqlite
9510: 33 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 20 29 3_current_time )
9520: 7b 0a 20 20 20 20 2a 70 72 4e 6f 77 20 3d 20 73 {. *prNow = s
9530: 71 6c 69 74 65 33 5f 63 75 72 72 65 6e 74 5f 74 qlite3_current_t
9540: 69 6d 65 2f 38 36 34 30 30 2e 30 20 2b 20 32 34 ime/86400.0 + 24
9550: 34 30 35 38 37 2e 35 3b 0a 20 20 7d 0a 23 65 6e 40587.5;. }.#en
9560: 64 69 66 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a dif. return 0;.
9570: 7d 0a 0a 23 69 66 20 30 20 2f 2a 20 4e 4f 54 20 }..#if 0 /* NOT
9580: 55 53 45 44 20 2a 2f 0a 2f 2a 0a 2a 2a 20 46 69 USED */./*.** Fi
9590: 6e 64 20 74 68 65 20 74 69 6d 65 20 74 68 61 74 nd the time that
95a0: 20 74 68 65 20 66 69 6c 65 20 77 61 73 20 6c 61 the file was la
95b0: 73 74 20 6d 6f 64 69 66 69 65 64 2e 20 20 57 72 st modified. Wr
95c0: 69 74 65 20 74 68 65 0a 2a 2a 20 6d 6f 64 69 66 ite the.** modif
95d0: 69 63 61 74 69 6f 6e 20 74 69 6d 65 20 61 6e 64 ication time and
95e0: 20 64 61 74 65 20 61 73 20 61 20 4a 75 6c 69 61 date as a Julia
95f0: 6e 20 44 61 79 20 6e 75 6d 62 65 72 20 69 6e 74 n Day number int
9600: 6f 20 2a 70 72 4e 6f 77 20 61 6e 64 0a 2a 2a 20 o *prNow and.**
9610: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b return SQLITE_OK
9620: 2e 20 20 52 65 74 75 72 6e 20 53 51 4c 49 54 45 . Return SQLITE
9630: 5f 45 52 52 4f 52 20 69 66 20 74 68 65 20 6d 6f _ERROR if the mo
9640: 64 69 66 69 63 61 74 69 6f 6e 0a 2a 2a 20 74 69 dification.** ti
9650: 6d 65 20 63 61 6e 6e 6f 74 20 62 65 20 66 6f 75 me cannot be fou
9660: 6e 64 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 nd..*/.int sqlit
9670: 65 33 4f 73 46 69 6c 65 4d 6f 64 54 69 6d 65 28 e3OsFileModTime(
9680: 4f 73 46 69 6c 65 20 2a 69 64 2c 20 64 6f 75 62 OsFile *id, doub
9690: 6c 65 20 2a 70 72 4e 6f 77 29 7b 0a 20 20 69 6e le *prNow){. in
96a0: 74 20 72 63 3b 0a 20 20 73 74 72 75 63 74 20 73 t rc;. struct s
96b0: 74 61 74 20 73 74 61 74 62 75 66 3b 0a 20 20 69 tat statbuf;. i
96c0: 66 28 20 66 73 74 61 74 28 69 64 2d 3e 68 2c 20 f( fstat(id->h,
96d0: 26 73 74 61 74 62 75 66 29 3d 3d 30 20 29 7b 0a &statbuf)==0 ){.
96e0: 20 20 20 20 2a 70 72 4e 6f 77 20 3d 20 73 74 61 *prNow = sta
96f0: 74 62 75 66 2e 73 74 5f 6d 74 69 6d 65 2f 38 36 tbuf.st_mtime/86
9700: 34 30 30 2e 30 20 2b 20 32 34 34 30 35 38 37 2e 400.0 + 2440587.
9710: 35 3b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 5;. rc = SQLI
9720: 54 45 5f 4f 4b 3b 0a 20 20 7d 65 6c 73 65 7b 0a TE_OK;. }else{.
9730: 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f rc = SQLITE_
9740: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 ERROR;. }. ret
9750: 75 72 6e 20 72 63 3b 0a 7d 0a 23 65 6e 64 69 66 urn rc;.}.#endif
9760: 20 2f 2a 20 4e 4f 54 20 55 53 45 44 20 2a 2f 0a /* NOT USED */.
9770: 0a 23 65 6e 64 69 66 20 2f 2a 20 4f 53 5f 55 4e .#endif /* OS_UN
9780: 49 58 20 2a 2f 0a IX */.