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 64 THREADSAFE) && d
0660: 65 66 69 6e 65 64 28 5f 5f 6c 69 6e 75 78 5f 5f efined(__linux__
0670: 29 0a 23 64 65 66 69 6e 65 20 67 65 74 70 69 64 ).#define getpid
0680: 20 70 74 68 72 65 61 64 5f 73 65 6c 66 0a 23 65 pthread_self.#e
0690: 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 48 65 72 65 ndif../*.** Here
06a0: 20 69 73 20 74 68 65 20 64 69 72 74 20 6f 6e 20 is the dirt on
06b0: 50 4f 53 49 58 20 61 64 76 69 73 6f 72 79 20 6c POSIX advisory l
06c0: 6f 63 6b 73 3a 20 20 41 4e 53 49 20 53 54 44 20 ocks: ANSI STD
06d0: 31 30 30 33 2e 31 20 28 31 39 39 36 29 0a 2a 2a 1003.1 (1996).**
06e0: 20 73 65 63 74 69 6f 6e 20 36 2e 35 2e 32 2e 32 section 6.5.2.2
06f0: 20 6c 69 6e 65 73 20 34 38 33 20 74 68 72 6f 75 lines 483 throu
0700: 67 68 20 34 39 30 20 73 70 65 63 69 66 79 20 74 gh 490 specify t
0710: 68 61 74 20 77 68 65 6e 20 61 20 70 72 6f 63 65 hat when a proce
0720: 73 73 0a 2a 2a 20 73 65 74 73 20 6f 72 20 63 6c ss.** sets or cl
0730: 65 61 72 73 20 61 20 6c 6f 63 6b 2c 20 74 68 61 ears a lock, tha
0740: 74 20 6f 70 65 72 61 74 69 6f 6e 20 6f 76 65 72 t operation over
0750: 72 69 64 65 73 20 61 6e 79 20 70 72 69 6f 72 20 rides any prior
0760: 6c 6f 63 6b 73 20 73 65 74 0a 2a 2a 20 62 79 20 locks set.** by
0770: 74 68 65 20 73 61 6d 65 20 70 72 6f 63 65 73 73 the same process
0780: 2e 20 20 49 74 20 64 6f 65 73 20 6e 6f 74 20 65 . It does not e
0790: 78 70 6c 69 63 69 74 6c 79 20 73 61 79 20 73 6f xplicitly say so
07a0: 2c 20 62 75 74 20 74 68 69 73 20 69 6d 70 6c 69 , but this impli
07b0: 65 73 0a 2a 2a 20 74 68 61 74 20 69 74 20 6f 76 es.** that it ov
07c0: 65 72 72 69 64 65 73 20 6c 6f 63 6b 73 20 73 65 errides locks se
07d0: 74 20 62 79 20 74 68 65 20 73 61 6d 65 20 70 72 t by the same pr
07e0: 6f 63 65 73 73 20 75 73 69 6e 67 20 61 20 64 69 ocess using a di
07f0: 66 66 65 72 65 6e 74 0a 2a 2a 20 66 69 6c 65 20 fferent.** file
0800: 64 65 73 63 72 69 70 74 6f 72 2e 20 20 43 6f 6e descriptor. Con
0810: 73 69 64 65 72 20 74 68 69 73 20 74 65 73 74 20 sider this test
0820: 63 61 73 65 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 20 case:.**.**
0830: 20 20 69 6e 74 20 66 64 31 20 3d 20 6f 70 65 6e int fd1 = open
0840: 28 22 2e 2f 66 69 6c 65 31 22 2c 20 4f 5f 52 44 ("./file1", O_RD
0850: 57 52 7c 4f 5f 43 52 45 41 54 2c 20 30 36 34 34 WR|O_CREAT, 0644
0860: 29 3b 0a 2a 2a 20 20 20 20 20 20 20 69 6e 74 20 );.** int
0870: 66 64 32 20 3d 20 6f 70 65 6e 28 22 2e 2f 66 69 fd2 = open("./fi
0880: 6c 65 32 22 2c 20 4f 5f 52 44 57 52 7c 4f 5f 43 le2", O_RDWR|O_C
0890: 52 45 41 54 2c 20 30 36 34 34 29 3b 0a 2a 2a 0a REAT, 0644);.**.
08a0: 2a 2a 20 53 75 70 70 6f 73 65 20 2e 2f 66 69 6c ** Suppose ./fil
08b0: 65 31 20 61 6e 64 20 2e 2f 66 69 6c 65 32 20 61 e1 and ./file2 a
08c0: 72 65 20 72 65 61 6c 6c 79 20 74 68 65 20 73 61 re really the sa
08d0: 6d 65 20 66 69 6c 65 20 28 62 65 63 61 75 73 65 me file (because
08e0: 0a 2a 2a 20 6f 6e 65 20 69 73 20 61 20 68 61 72 .** one is a har
08f0: 64 20 6f 72 20 73 79 6d 62 6f 6c 69 63 20 6c 69 d or symbolic li
0900: 6e 6b 20 74 6f 20 74 68 65 20 6f 74 68 65 72 29 nk to the other)
0910: 20 74 68 65 6e 20 69 66 20 79 6f 75 20 73 65 74 then if you set
0920: 0a 2a 2a 20 61 6e 20 65 78 63 6c 75 73 69 76 65 .** an exclusive
0930: 20 6c 6f 63 6b 20 6f 6e 20 66 64 31 2c 20 74 68 lock on fd1, th
0940: 65 6e 20 74 72 79 20 74 6f 20 67 65 74 20 61 6e en try to get an
0950: 20 65 78 63 6c 75 73 69 76 65 20 6c 6f 63 6b 0a exclusive lock.
0960: 2a 2a 20 6f 6e 20 66 64 32 2c 20 69 74 20 77 6f ** on fd2, it wo
0970: 72 6b 73 2e 20 20 49 20 77 6f 75 6c 64 20 68 61 rks. I would ha
0980: 76 65 20 65 78 70 65 63 74 65 64 20 74 68 65 20 ve expected the
0990: 73 65 63 6f 6e 64 20 6c 6f 63 6b 20 74 6f 0a 2a second lock to.*
09a0: 2a 20 66 61 69 6c 20 73 69 6e 63 65 20 74 68 65 * fail since the
09b0: 72 65 20 77 61 73 20 61 6c 72 65 61 64 79 20 61 re was already a
09c0: 20 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 66 69 6c lock on the fil
09d0: 65 20 64 75 65 20 74 6f 20 66 64 31 2e 0a 2a 2a e due to fd1..**
09e0: 20 42 75 74 20 6e 6f 74 20 73 6f 2e 20 20 53 69 But not so. Si
09f0: 6e 63 65 20 62 6f 74 68 20 6c 6f 63 6b 73 20 63 nce both locks c
0a00: 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 73 61 6d ame from the sam
0a10: 65 20 70 72 6f 63 65 73 73 2c 20 74 68 65 0a 2a e process, the.*
0a20: 2a 20 73 65 63 6f 6e 64 20 6f 76 65 72 72 69 64 * second overrid
0a30: 65 73 20 74 68 65 20 66 69 72 73 74 2c 20 65 76 es the first, ev
0a40: 65 6e 20 74 68 6f 75 67 68 20 74 68 65 79 20 77 en though they w
0a50: 65 72 65 20 6f 6e 20 64 69 66 66 65 72 65 6e 74 ere on different
0a60: 0a 2a 2a 20 66 69 6c 65 20 64 65 73 63 72 69 70 .** file descrip
0a70: 74 6f 72 73 20 6f 70 65 6e 65 64 20 6f 6e 20 64 tors opened on d
0a80: 69 66 66 65 72 65 6e 74 20 66 69 6c 65 20 6e 61 ifferent file na
0a90: 6d 65 73 2e 0a 2a 2a 0a 2a 2a 20 42 75 6d 6d 65 mes..**.** Bumme
0aa0: 72 2e 20 20 49 66 20 79 6f 75 20 61 73 6b 20 6d r. If you ask m
0ab0: 65 2c 20 74 68 69 73 20 69 73 20 62 72 6f 6b 65 e, this is broke
0ac0: 6e 2e 20 20 42 61 64 6c 79 20 62 72 6f 6b 65 6e n. Badly broken
0ad0: 2e 20 20 49 74 20 6d 65 61 6e 73 0a 2a 2a 20 74 . It means.** t
0ae0: 68 61 74 20 77 65 20 63 61 6e 6e 6f 74 20 75 73 hat we cannot us
0af0: 65 20 50 4f 53 49 58 20 6c 6f 63 6b 73 20 74 6f e POSIX locks to
0b00: 20 73 79 6e 63 68 72 6f 6e 69 7a 65 20 66 69 6c synchronize fil
0b10: 65 20 61 63 63 65 73 73 20 61 6d 6f 6e 67 0a 2a e access among.*
0b20: 2a 20 63 6f 6d 70 65 74 69 6e 67 20 74 68 72 65 * competing thre
0b30: 61 64 73 20 6f 66 20 74 68 65 20 73 61 6d 65 20 ads of the same
0b40: 70 72 6f 63 65 73 73 2e 20 20 50 4f 53 49 58 20 process. POSIX
0b50: 6c 6f 63 6b 73 20 77 69 6c 6c 20 77 6f 72 6b 20 locks will work
0b60: 66 69 6e 65 0a 2a 2a 20 74 6f 20 73 79 6e 63 68 fine.** to synch
0b70: 72 6f 6e 69 7a 65 20 61 63 63 65 73 73 20 66 6f ronize access fo
0b80: 72 20 74 68 72 65 61 64 73 20 69 6e 20 73 65 70 r threads in sep
0b90: 61 72 61 74 65 20 70 72 6f 63 65 73 73 65 73 2c arate processes,
0ba0: 20 62 75 74 20 6e 6f 74 0a 2a 2a 20 74 68 72 65 but not.** thre
0bb0: 61 64 73 20 77 69 74 68 69 6e 20 74 68 65 20 73 ads within the s
0bc0: 61 6d 65 20 70 72 6f 63 65 73 73 2e 0a 2a 2a 0a ame process..**.
0bd0: 2a 2a 20 54 6f 20 77 6f 72 6b 20 61 72 6f 75 6e ** To work aroun
0be0: 64 20 74 68 65 20 70 72 6f 62 6c 65 6d 2c 20 53 d the problem, S
0bf0: 51 4c 69 74 65 20 68 61 73 20 74 6f 20 6d 61 6e QLite has to man
0c00: 61 67 65 20 66 69 6c 65 20 6c 6f 63 6b 73 20 69 age file locks i
0c10: 6e 74 65 72 6e 61 6c 6c 79 0a 2a 2a 20 6f 6e 20 nternally.** on
0c20: 69 74 73 20 6f 77 6e 2e 20 20 57 68 65 6e 65 76 its own. Whenev
0c30: 65 72 20 61 20 6e 65 77 20 64 61 74 61 62 61 73 er a new databas
0c40: 65 20 69 73 20 6f 70 65 6e 65 64 2c 20 77 65 20 e is opened, we
0c50: 68 61 76 65 20 74 6f 20 66 69 6e 64 20 74 68 65 have to find the
0c60: 0a 2a 2a 20 73 70 65 63 69 66 69 63 20 69 6e 6f .** specific ino
0c70: 64 65 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 de of the databa
0c80: 73 65 20 66 69 6c 65 20 28 74 68 65 20 69 6e 6f se file (the ino
0c90: 64 65 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 de is determined
0ca0: 20 62 79 20 74 68 65 0a 2a 2a 20 73 74 5f 64 65 by the.** st_de
0cb0: 76 20 61 6e 64 20 73 74 5f 69 6e 6f 20 66 69 65 v and st_ino fie
0cc0: 6c 64 73 20 6f 66 20 74 68 65 20 73 74 61 74 20 lds of the stat
0cd0: 73 74 72 75 63 74 75 72 65 20 74 68 61 74 20 66 structure that f
0ce0: 73 74 61 74 28 29 20 66 69 6c 6c 73 20 69 6e 29 stat() fills in)
0cf0: 0a 2a 2a 20 61 6e 64 20 63 68 65 63 6b 20 66 6f .** and check fo
0d00: 72 20 6c 6f 63 6b 73 20 61 6c 72 65 61 64 79 20 r locks already
0d10: 65 78 69 73 74 69 6e 67 20 6f 6e 20 74 68 61 74 existing on that
0d20: 20 69 6e 6f 64 65 2e 20 20 57 68 65 6e 20 6c 6f inode. When lo
0d30: 63 6b 73 20 61 72 65 0a 2a 2a 20 63 72 65 61 74 cks are.** creat
0d40: 65 64 20 6f 72 20 72 65 6d 6f 76 65 64 2c 20 77 ed or removed, w
0d50: 65 20 68 61 76 65 20 74 6f 20 6c 6f 6f 6b 20 61 e have to look a
0d60: 74 20 6f 75 72 20 6f 77 6e 20 69 6e 74 65 72 6e t our own intern
0d70: 61 6c 20 72 65 63 6f 72 64 20 6f 66 20 74 68 65 al record of the
0d80: 0a 2a 2a 20 6c 6f 63 6b 73 20 74 6f 20 73 65 65 .** locks to see
0d90: 20 69 66 20 61 6e 6f 74 68 65 72 20 74 68 72 65 if another thre
0da0: 61 64 20 68 61 73 20 70 72 65 76 69 6f 75 73 6c ad has previousl
0db0: 79 20 73 65 74 20 61 20 6c 6f 63 6b 20 6f 6e 20 y set a lock on
0dc0: 74 68 61 74 20 73 61 6d 65 0a 2a 2a 20 69 6e 6f that same.** ino
0dd0: 64 65 2e 0a 2a 2a 0a 2a 2a 20 54 68 65 20 4f 73 de..**.** The Os
0de0: 46 69 6c 65 20 73 74 72 75 63 74 75 72 65 20 66 File structure f
0df0: 6f 72 20 50 4f 53 49 58 20 69 73 20 6e 6f 20 6c or POSIX is no l
0e00: 6f 6e 67 65 72 20 6a 75 73 74 20 61 6e 20 69 6e onger just an in
0e10: 74 65 67 65 72 20 66 69 6c 65 0a 2a 2a 20 64 65 teger file.** de
0e20: 73 63 72 69 70 74 6f 72 2e 20 20 49 74 20 69 73 scriptor. It is
0e30: 20 6e 6f 77 20 61 20 73 74 72 75 63 74 75 72 65 now a structure
0e40: 20 74 68 61 74 20 68 6f 6c 64 73 20 74 68 65 20 that holds the
0e50: 69 6e 74 65 67 65 72 20 66 69 6c 65 0a 2a 2a 20 integer file.**
0e60: 64 65 73 63 72 69 70 74 6f 72 20 61 6e 64 20 61 descriptor and a
0e70: 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 20 73 74 pointer to a st
0e80: 72 75 63 74 75 72 65 20 74 68 61 74 20 64 65 73 ructure that des
0e90: 63 72 69 62 65 73 20 74 68 65 20 69 6e 74 65 72 cribes the inter
0ea0: 6e 61 6c 0a 2a 2a 20 6c 6f 63 6b 73 20 6f 6e 20 nal.** locks on
0eb0: 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e the correspondin
0ec0: 67 20 69 6e 6f 64 65 2e 20 20 54 68 65 72 65 20 g inode. There
0ed0: 69 73 20 6f 6e 65 20 6c 6f 63 6b 69 6e 67 20 73 is one locking s
0ee0: 74 72 75 63 74 75 72 65 0a 2a 2a 20 70 65 72 20 tructure.** per
0ef0: 69 6e 6f 64 65 2c 20 73 6f 20 69 66 20 74 68 65 inode, so if the
0f00: 20 73 61 6d 65 20 69 6e 6f 64 65 20 69 73 20 6f same inode is o
0f10: 70 65 6e 65 64 20 74 77 69 63 65 2c 20 62 6f 74 pened twice, bot
0f20: 68 20 4f 73 46 69 6c 65 20 73 74 72 75 63 74 75 h OsFile structu
0f30: 72 65 73 0a 2a 2a 20 70 6f 69 6e 74 20 74 6f 20 res.** point to
0f40: 74 68 65 20 73 61 6d 65 20 6c 6f 63 6b 69 6e 67 the same locking
0f50: 20 73 74 72 75 63 74 75 72 65 2e 20 20 54 68 65 structure. The
0f60: 20 6c 6f 63 6b 69 6e 67 20 73 74 72 75 63 74 75 locking structu
0f70: 72 65 20 6b 65 65 70 73 0a 2a 2a 20 61 20 72 65 re keeps.** a re
0f80: 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 28 73 ference count (s
0f90: 6f 20 77 65 20 77 69 6c 6c 20 6b 6e 6f 77 20 77 o we will know w
0fa0: 68 65 6e 20 74 6f 20 64 65 6c 65 74 65 20 69 74 hen to delete it
0fb0: 29 20 61 6e 64 20 61 20 22 63 6e 74 22 0a 2a 2a ) and a "cnt".**
0fc0: 20 66 69 65 6c 64 20 74 68 61 74 20 74 65 6c 6c field that tell
0fd0: 73 20 75 73 20 69 74 73 20 69 6e 74 65 72 6e 61 s us its interna
0fe0: 6c 20 6c 6f 63 6b 20 73 74 61 74 75 73 2e 20 20 l lock status.
0ff0: 63 6e 74 3d 3d 30 20 6d 65 61 6e 73 20 74 68 65 cnt==0 means the
1000: 0a 2a 2a 20 66 69 6c 65 20 69 73 20 75 6e 6c 6f .** file is unlo
1010: 63 6b 65 64 2e 20 20 63 6e 74 3d 3d 2d 31 20 6d cked. cnt==-1 m
1020: 65 61 6e 73 20 74 68 65 20 66 69 6c 65 20 68 61 eans the file ha
1030: 73 20 61 6e 20 65 78 63 6c 75 73 69 76 65 20 6c s an exclusive l
1040: 6f 63 6b 2e 0a 2a 2a 20 63 6e 74 3e 30 20 6d 65 ock..** cnt>0 me
1050: 61 6e 73 20 74 68 65 72 65 20 61 72 65 20 63 6e ans there are cn
1060: 74 20 73 68 61 72 65 64 20 6c 6f 63 6b 73 20 6f t shared locks o
1070: 6e 20 74 68 65 20 66 69 6c 65 2e 0a 2a 2a 0a 2a n the file..**.*
1080: 2a 20 41 6e 79 20 61 74 74 65 6d 70 74 20 74 6f * Any attempt to
1090: 20 6c 6f 63 6b 20 6f 72 20 75 6e 6c 6f 63 6b 20 lock or unlock
10a0: 61 20 66 69 6c 65 20 66 69 72 73 74 20 63 68 65 a file first che
10b0: 63 6b 73 20 74 68 65 20 6c 6f 63 6b 69 6e 67 0a cks the locking.
10c0: 2a 2a 20 73 74 72 75 63 74 75 72 65 2e 20 20 54 ** structure. T
10d0: 68 65 20 66 63 6e 74 6c 28 29 20 73 79 73 74 65 he fcntl() syste
10e0: 6d 20 63 61 6c 6c 20 69 73 20 6f 6e 6c 79 20 69 m call is only i
10f0: 6e 76 6f 6b 65 64 20 74 6f 20 73 65 74 20 61 20 nvoked to set a
1100: 0a 2a 2a 20 50 4f 53 49 58 20 6c 6f 63 6b 20 69 .** POSIX lock i
1110: 66 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 6c f the internal l
1120: 6f 63 6b 20 73 74 72 75 63 74 75 72 65 20 74 72 ock structure tr
1130: 61 6e 73 69 74 69 6f 6e 73 20 62 65 74 77 65 65 ansitions betwee
1140: 6e 0a 2a 2a 20 61 20 6c 6f 63 6b 65 64 20 61 6e n.** a locked an
1150: 64 20 61 6e 20 75 6e 6c 6f 63 6b 65 64 20 73 74 d an unlocked st
1160: 61 74 65 2e 0a 2a 2a 0a 2a 2a 20 32 30 30 34 2d ate..**.** 2004-
1170: 4a 61 6e 2d 31 31 3a 0a 2a 2a 20 4d 6f 72 65 20 Jan-11:.** More
1180: 72 65 63 65 6e 74 20 64 69 73 63 6f 76 65 72 69 recent discoveri
1190: 65 73 20 61 62 6f 75 74 20 50 4f 53 49 58 20 61 es about POSIX a
11a0: 64 76 69 73 6f 72 79 20 6c 6f 63 6b 73 2e 20 20 dvisory locks.
11b0: 28 54 68 65 20 6d 6f 72 65 0a 2a 2a 20 49 20 64 (The more.** I d
11c0: 69 73 63 6f 76 65 72 2c 20 74 68 65 20 6d 6f 72 iscover, the mor
11d0: 65 20 49 20 72 65 61 6c 69 7a 65 20 74 68 65 20 e I realize the
11e0: 61 20 50 4f 53 49 58 20 61 64 76 69 73 6f 72 79 a POSIX advisory
11f0: 20 6c 6f 63 6b 73 20 61 72 65 0a 2a 2a 20 61 6e locks are.** an
1200: 20 61 62 6f 6d 69 6e 61 74 69 6f 6e 2e 29 0a 2a abomination.).*
1210: 2a 0a 2a 2a 20 49 66 20 79 6f 75 20 63 6c 6f 73 *.** If you clos
1220: 65 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 e a file descrip
1230: 74 6f 72 20 74 68 61 74 20 70 6f 69 6e 74 73 20 tor that points
1240: 74 6f 20 61 20 66 69 6c 65 20 74 68 61 74 20 68 to a file that h
1250: 61 73 20 6c 6f 63 6b 73 2c 0a 2a 2a 20 61 6c 6c as locks,.** all
1260: 20 6c 6f 63 6b 73 20 6f 6e 20 74 68 61 74 20 66 locks on that f
1270: 69 6c 65 20 74 68 61 74 20 61 72 65 20 6f 77 6e ile that are own
1280: 65 64 20 62 79 20 74 68 65 20 63 75 72 72 65 6e ed by the curren
1290: 74 20 70 72 6f 63 65 73 73 20 61 72 65 0a 2a 2a t process are.**
12a0: 20 72 65 6c 65 61 73 65 64 2e 20 20 54 6f 20 77 released. To w
12b0: 6f 72 6b 20 61 72 6f 75 6e 64 20 74 68 69 73 20 ork around this
12c0: 70 72 6f 62 6c 65 6d 2c 20 65 61 63 68 20 4f 73 problem, each Os
12d0: 46 69 6c 65 20 73 74 72 75 63 74 75 72 65 20 63 File structure c
12e0: 6f 6e 74 61 69 6e 73 0a 2a 2a 20 61 20 70 6f 69 ontains.** a poi
12f0: 6e 74 65 72 20 74 6f 20 61 6e 20 6f 70 65 6e 43 nter to an openC
1300: 6e 74 20 73 74 72 75 63 74 75 72 65 2e 20 20 54 nt structure. T
1310: 68 65 72 65 20 69 73 20 6f 6e 65 20 6f 70 65 6e here is one open
1320: 43 6e 74 20 73 74 72 75 63 74 75 72 65 0a 2a 2a Cnt structure.**
1330: 20 70 65 72 20 6f 70 65 6e 20 69 6e 6f 64 65 2c per open inode,
1340: 20 77 68 69 63 68 20 6d 65 61 6e 73 20 74 68 61 which means tha
1350: 74 20 6d 75 6c 74 69 70 6c 65 20 4f 73 46 69 6c t multiple OsFil
1360: 65 73 20 63 61 6e 20 70 6f 69 6e 74 20 74 6f 20 es can point to
1370: 61 20 73 69 6e 67 6c 65 0a 2a 2a 20 6f 70 65 6e a single.** open
1380: 43 6e 74 2e 20 20 57 68 65 6e 20 61 6e 20 61 74 Cnt. When an at
1390: 74 65 6d 70 74 20 69 73 20 6d 61 64 65 20 74 6f tempt is made to
13a0: 20 63 6c 6f 73 65 20 61 6e 20 4f 73 46 69 6c 65 close an OsFile
13b0: 2c 20 69 66 20 74 68 65 72 65 20 61 72 65 0a 2a , if there are.*
13c0: 2a 20 6f 74 68 65 72 20 4f 73 46 69 6c 65 73 20 * other OsFiles
13d0: 6f 70 65 6e 20 6f 6e 20 74 68 65 20 73 61 6d 65 open on the same
13e0: 20 69 6e 6f 64 65 20 74 68 61 74 20 61 72 65 20 inode that are
13f0: 68 6f 6c 64 69 6e 67 20 6c 6f 63 6b 73 2c 20 74 holding locks, t
1400: 68 65 20 63 61 6c 6c 0a 2a 2a 20 74 6f 20 63 6c he call.** to cl
1410: 6f 73 65 28 29 20 74 68 65 20 66 69 6c 65 20 64 ose() the file d
1420: 65 73 63 72 69 70 74 6f 72 20 69 73 20 64 65 66 escriptor is def
1430: 65 72 72 65 64 20 75 6e 74 69 6c 20 61 6c 6c 20 erred until all
1440: 6f 66 20 74 68 65 20 6c 6f 63 6b 73 20 63 6c 65 of the locks cle
1450: 61 72 2e 0a 2a 2a 20 54 68 65 20 6f 70 65 6e 43 ar..** The openC
1460: 6e 74 20 73 74 72 75 63 74 75 72 65 20 6b 65 65 nt structure kee
1470: 70 73 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c ps a list of fil
1480: 65 20 64 65 73 63 72 69 70 74 6f 72 73 20 74 68 e descriptors th
1490: 61 74 20 6e 65 65 64 20 74 6f 0a 2a 2a 20 62 65 at need to.** be
14a0: 20 63 6c 6f 73 65 64 20 61 6e 64 20 74 68 61 74 closed and that
14b0: 20 6c 69 73 74 20 69 73 20 77 61 6c 6b 65 64 20 list is walked
14c0: 28 61 6e 64 20 63 6c 65 61 72 65 64 29 20 77 68 (and cleared) wh
14d0: 65 6e 20 74 68 65 20 6c 61 73 74 20 6c 6f 63 6b en the last lock
14e0: 0a 2a 2a 20 63 6c 65 61 72 73 2e 0a 2a 2a 0a 2a .** clears..**.*
14f0: 2a 20 46 69 72 73 74 2c 20 75 6e 64 65 72 20 4c * First, under L
1500: 69 6e 75 78 20 74 68 72 65 61 64 73 2c 20 62 65 inux threads, be
1510: 63 61 75 73 65 20 65 61 63 68 20 74 68 72 65 61 cause each threa
1520: 64 20 68 61 73 20 61 20 73 65 70 61 72 61 74 65 d has a separate
1530: 0a 2a 2a 20 70 72 6f 63 65 73 73 20 49 44 2c 20 .** process ID,
1540: 6c 6f 63 6b 20 6f 70 65 72 61 74 69 6f 6e 73 20 lock operations
1550: 69 6e 20 6f 6e 65 20 74 68 72 65 61 64 20 64 6f in one thread do
1560: 20 6e 6f 74 20 6f 76 65 72 72 69 64 65 20 6c 6f not override lo
1570: 63 6b 73 0a 2a 2a 20 74 6f 20 74 68 65 20 73 61 cks.** to the sa
1580: 6d 65 20 66 69 6c 65 20 69 6e 20 6f 74 68 65 72 me file in other
1590: 20 74 68 72 65 61 64 73 2e 20 20 4c 69 6e 75 78 threads. Linux
15a0: 20 74 68 72 65 61 64 73 20 62 65 68 61 76 65 20 threads behave
15b0: 6c 69 6b 65 0a 2a 2a 20 73 65 70 61 72 61 74 65 like.** separate
15c0: 20 70 72 6f 63 65 73 73 65 73 20 69 6e 20 74 68 processes in th
15d0: 69 73 20 72 65 73 70 65 63 74 2e 20 20 42 75 74 is respect. But
15e0: 2c 20 69 66 20 79 6f 75 20 63 6c 6f 73 65 20 61 , if you close a
15f0: 20 66 69 6c 65 0a 2a 2a 20 64 65 73 63 72 69 70 file.** descrip
1600: 74 6f 72 20 69 6e 20 6c 69 6e 75 78 20 74 68 72 tor in linux thr
1610: 65 61 64 73 2c 20 61 6c 6c 20 6c 6f 63 6b 73 20 eads, all locks
1620: 61 72 65 20 63 6c 65 61 72 65 64 2c 20 65 76 65 are cleared, eve
1630: 6e 20 6c 6f 63 6b 73 0a 2a 2a 20 6f 6e 20 6f 74 n locks.** on ot
1640: 68 65 72 20 74 68 72 65 61 64 73 20 61 6e 64 20 her threads and
1650: 65 76 65 6e 20 74 68 6f 75 67 68 20 74 68 65 20 even though the
1660: 6f 74 68 65 72 20 74 68 72 65 61 64 73 20 68 61 other threads ha
1670: 76 65 20 64 69 66 66 65 72 65 6e 74 0a 2a 2a 20 ve different.**
1680: 70 72 6f 63 65 73 73 20 49 44 73 2e 20 20 4c 69 process IDs. Li
1690: 6e 75 78 20 74 68 72 65 61 64 73 20 69 73 20 69 nux threads is i
16a0: 6e 63 6f 6e 73 69 73 74 65 6e 74 20 69 6e 20 74 nconsistent in t
16b0: 68 69 73 20 72 65 73 70 65 63 74 2e 0a 2a 2a 20 his respect..**
16c0: 28 49 27 6d 20 62 65 67 69 6e 6e 69 6e 67 20 74 (I'm beginning t
16d0: 6f 20 74 68 69 6e 6b 20 74 68 61 74 20 6c 69 6e o think that lin
16e0: 75 78 20 74 68 72 65 61 64 73 20 69 73 20 61 6e ux threads is an
16f0: 20 61 62 6f 6d 69 6e 61 74 69 6f 6e 20 74 6f 6f abomination too
1700: 2e 29 0a 2a 2a 20 54 68 65 20 63 6f 6e 73 65 71 .).** The conseq
1710: 75 65 6e 63 65 20 6f 66 20 74 68 69 73 20 61 6c uence of this al
1720: 6c 20 69 73 20 74 68 61 74 20 74 68 65 20 68 61 l is that the ha
1730: 73 68 20 74 61 62 6c 65 20 66 6f 72 20 74 68 65 sh table for the
1740: 20 6c 6f 63 6b 49 6e 66 6f 0a 2a 2a 20 73 74 72 lockInfo.** str
1750: 75 63 74 75 72 65 20 68 61 73 20 74 6f 20 69 6e ucture has to in
1760: 63 6c 75 64 65 20 74 68 65 20 70 72 6f 63 65 73 clude the proces
1770: 73 20 69 64 20 61 73 20 70 61 72 74 20 6f 66 20 s id as part of
1780: 69 74 73 20 6b 65 79 20 62 65 63 61 75 73 65 0a its key because.
1790: 2a 2a 20 6c 6f 63 6b 73 20 69 6e 20 64 69 66 66 ** locks in diff
17a0: 65 72 65 6e 74 20 74 68 72 65 61 64 73 20 61 72 erent threads ar
17b0: 65 20 74 72 65 61 74 65 64 20 61 73 20 64 69 73 e treated as dis
17c0: 74 69 6e 63 74 2e 20 20 42 75 74 20 74 68 65 20 tinct. But the
17d0: 0a 2a 2a 20 6f 70 65 6e 43 6e 74 20 73 74 72 75 .** openCnt stru
17e0: 63 74 75 72 65 20 73 68 6f 75 6c 64 20 6e 6f 74 cture should not
17f0: 20 69 6e 63 6c 75 64 65 20 74 68 65 20 70 72 6f include the pro
1800: 63 65 73 73 20 69 64 20 69 6e 20 69 74 73 0a 2a cess id in its.*
1810: 2a 20 6b 65 79 20 62 65 63 61 75 73 65 20 63 6c * key because cl
1820: 6f 73 65 28 29 20 63 6c 65 61 72 73 20 6c 6f 63 ose() clears loc
1830: 6b 20 6f 6e 20 61 6c 6c 20 74 68 72 65 61 64 73 k on all threads
1840: 2c 20 6e 6f 74 20 6a 75 73 74 20 74 68 65 20 63 , not just the c
1850: 75 72 72 65 6e 74 0a 2a 2a 20 74 68 72 65 61 64 urrent.** thread
1860: 2e 20 20 57 65 72 65 20 69 74 20 6e 6f 74 20 66 . Were it not f
1870: 6f 72 20 74 68 69 73 20 67 6f 6f 66 69 6e 65 73 or this goofines
1880: 73 20 69 6e 20 6c 69 6e 75 78 20 74 68 72 65 61 s in linux threa
1890: 64 73 2c 20 77 65 20 63 6f 75 6c 64 0a 2a 2a 20 ds, we could.**
18a0: 63 6f 6d 62 69 6e 65 20 74 68 65 20 6c 6f 63 6b combine the lock
18b0: 49 6e 66 6f 20 61 6e 64 20 6f 70 65 6e 43 6e 74 Info and openCnt
18c0: 20 73 74 72 75 63 74 75 72 65 73 20 69 6e 74 6f structures into
18d0: 20 61 20 73 69 6e 67 6c 65 20 73 74 72 75 63 74 a single struct
18e0: 75 72 65 2e 0a 2a 2a 0a 2a 2a 20 32 30 30 34 2d ure..**.** 2004-
18f0: 4a 75 6e 2d 32 38 3a 0a 2a 2a 20 4f 6e 20 73 6f Jun-28:.** On so
1900: 6d 65 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 6c me versions of l
1910: 69 6e 75 78 2c 20 74 68 72 65 61 64 73 20 63 61 inux, threads ca
1920: 6e 20 6f 76 65 72 72 69 64 65 20 65 61 63 68 20 n override each
1930: 6f 74 68 65 72 73 20 6c 6f 63 6b 73 2e 0a 2a 2a others locks..**
1940: 20 4f 6e 20 6f 74 68 65 72 73 20 6e 6f 74 2e 20 On others not.
1950: 20 53 6f 6d 65 74 69 6d 65 73 20 79 6f 75 20 63 Sometimes you c
1960: 61 6e 20 63 68 61 6e 67 65 20 74 68 65 20 62 65 an change the be
1970: 68 61 76 69 6f 72 20 6f 6e 20 74 68 65 20 73 61 havior on the sa
1980: 6d 65 0a 2a 2a 20 73 79 73 74 65 6d 20 62 79 20 me.** system by
1990: 73 65 74 74 69 6e 67 20 74 68 65 20 4c 44 5f 41 setting the LD_A
19a0: 53 53 55 4d 45 5f 4b 45 52 4e 45 4c 20 65 6e 76 SSUME_KERNEL env
19b0: 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c ironment variabl
19c0: 65 2e 20 20 54 68 65 0a 2a 2a 20 50 4f 53 49 58 e. The.** POSIX
19d0: 20 73 74 61 6e 64 61 72 64 20 69 73 20 73 69 6c standard is sil
19e0: 65 6e 74 20 61 73 20 74 6f 20 77 68 69 63 68 20 ent as to which
19f0: 62 65 68 61 76 69 6f 72 20 69 73 20 63 6f 72 72 behavior is corr
1a00: 65 63 74 2c 20 61 73 20 66 61 72 0a 2a 2a 20 61 ect, as far.** a
1a10: 73 20 49 20 63 61 6e 20 74 65 6c 6c 2c 20 73 6f s I can tell, so
1a20: 20 6f 74 68 65 72 20 76 65 72 73 69 6f 6e 73 20 other versions
1a30: 6f 66 20 75 6e 69 78 20 6d 69 67 68 74 20 73 68 of unix might sh
1a40: 6f 77 20 74 68 65 20 73 61 6d 65 0a 2a 2a 20 69 ow the same.** i
1a50: 6e 63 6f 6e 73 69 73 74 65 6e 63 79 2e 20 20 54 nconsistency. T
1a60: 68 65 72 65 20 69 73 20 6e 6f 20 6c 69 74 74 6c here is no littl
1a70: 65 20 64 6f 75 62 74 20 69 6e 20 6d 79 20 6d 69 e doubt in my mi
1a80: 6e 64 20 74 68 61 74 20 70 6f 73 69 78 0a 2a 2a nd that posix.**
1a90: 20 61 64 76 69 73 6f 72 79 20 6c 6f 63 6b 73 20 advisory locks
1aa0: 61 6e 64 20 6c 69 6e 75 78 20 74 68 72 65 61 64 and linux thread
1ab0: 73 20 61 72 65 20 70 72 6f 66 6f 75 6e 64 6c 79 s are profoundly
1ac0: 20 62 72 6f 6b 65 6e 2e 0a 2a 2a 0a 2a 2a 20 54 broken..**.** T
1ad0: 6f 20 77 6f 72 6b 20 61 72 6f 75 6e 64 20 74 68 o work around th
1ae0: 65 20 69 6e 63 6f 6e 73 69 73 74 65 6e 63 69 65 e inconsistencie
1af0: 73 2c 20 77 65 20 68 61 76 65 20 74 6f 20 74 65 s, we have to te
1b00: 73 74 20 61 74 20 72 75 6e 74 69 6d 65 20 0a 2a st at runtime .*
1b10: 2a 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 * whether or not
1b20: 20 74 68 72 65 61 64 73 20 63 61 6e 20 6f 76 65 threads can ove
1b30: 72 72 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 rride each other
1b40: 73 20 6c 6f 63 6b 73 2e 20 20 54 68 69 73 20 74 s locks. This t
1b50: 65 73 74 0a 2a 2a 20 69 73 20 72 75 6e 20 6f 6e est.** is run on
1b60: 63 65 2c 20 74 68 65 20 66 69 72 73 74 20 74 69 ce, the first ti
1b70: 6d 65 20 61 6e 79 20 6c 6f 63 6b 20 69 73 20 61 me any lock is a
1b80: 74 74 65 6d 70 74 65 64 2e 20 20 41 20 73 74 61 ttempted. A sta
1b90: 74 69 63 20 0a 2a 2a 20 76 61 72 69 61 62 6c 65 tic .** variable
1ba0: 20 69 73 20 73 65 74 20 74 6f 20 72 65 63 6f 72 is set to recor
1bb0: 64 20 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66 d the results of
1bc0: 20 74 68 69 73 20 74 65 73 74 20 66 6f 72 20 66 this test for f
1bd0: 75 74 75 72 65 0a 2a 2a 20 75 73 65 2e 0a 2a 2f uture.** use..*/
1be0: 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 ../*.** An insta
1bf0: 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f nce of the follo
1c00: 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 73 wing structure s
1c10: 65 72 76 65 73 20 61 73 20 74 68 65 20 6b 65 79 erves as the key
1c20: 20 75 73 65 64 0a 2a 2a 20 74 6f 20 6c 6f 63 61 used.** to loca
1c30: 74 65 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 te a particular
1c40: 6c 6f 63 6b 49 6e 66 6f 20 73 74 72 75 63 74 75 lockInfo structu
1c50: 72 65 20 67 69 76 65 6e 20 69 74 73 20 69 6e 6f re given its ino
1c60: 64 65 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 72 de..**.** If thr
1c70: 65 61 64 73 20 63 61 6e 6e 6f 74 20 6f 76 65 72 eads cannot over
1c80: 72 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 73 ride each others
1c90: 20 6c 6f 63 6b 73 2c 20 74 68 65 6e 20 77 65 20 locks, then we
1ca0: 73 65 74 20 74 68 65 0a 2a 2a 20 6c 6f 63 6b 4b set the.** lockK
1cb0: 65 79 2e 74 69 64 20 66 69 65 6c 64 20 74 6f 20 ey.tid field to
1cc0: 74 68 65 20 74 68 72 65 61 64 20 49 44 2e 20 20 the thread ID.
1cd0: 49 66 20 74 68 72 65 61 64 73 20 63 61 6e 20 6f If threads can o
1ce0: 76 65 72 72 69 64 65 0a 2a 2a 20 65 61 63 68 20 verride.** each
1cf0: 6f 74 68 65 72 73 20 6c 6f 63 6b 73 20 74 68 65 others locks the
1d00: 6e 20 74 69 64 20 69 73 20 61 6c 77 61 79 73 20 n tid is always
1d10: 73 65 74 20 74 6f 20 7a 65 72 6f 2e 20 20 74 69 set to zero. ti
1d20: 64 20 69 73 20 61 6c 73 6f 0a 2a 2a 20 73 65 74 d is also.** set
1d30: 20 74 6f 20 7a 65 72 6f 20 69 66 20 77 65 20 63 to zero if we c
1d40: 6f 6d 70 69 6c 65 20 77 69 74 68 6f 75 74 20 74 ompile without t
1d50: 68 72 65 61 64 69 6e 67 20 73 75 70 70 6f 72 74 hreading support
1d60: 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 6c 6f 63 6b ..*/.struct lock
1d70: 4b 65 79 20 7b 0a 20 20 64 65 76 5f 74 20 64 65 Key {. dev_t de
1d80: 76 3b 20 20 20 20 20 20 20 2f 2a 20 44 65 76 69 v; /* Devi
1d90: 63 65 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 69 ce number */. i
1da0: 6e 6f 5f 74 20 69 6e 6f 3b 20 20 20 20 20 20 20 no_t ino;
1db0: 2f 2a 20 49 6e 6f 64 65 20 6e 75 6d 62 65 72 20 /* Inode number
1dc0: 2a 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 */.#ifdef SQLITE
1dd0: 5f 55 4e 49 58 5f 54 48 52 45 41 44 53 0a 20 20 _UNIX_THREADS.
1de0: 70 74 68 72 65 61 64 5f 74 20 74 69 64 3b 20 20 pthread_t tid;
1df0: 20 2f 2a 20 54 68 72 65 61 64 20 49 44 20 6f 72 /* Thread ID or
1e00: 20 7a 65 72 6f 20 69 66 20 74 68 72 65 61 64 73 zero if threads
1e10: 20 63 61 6e 6e 6f 74 20 6f 76 65 72 72 69 64 65 cannot override
1e20: 20 65 61 63 68 20 6f 74 68 65 72 20 2a 2f 0a 23 each other */.#
1e30: 65 6e 64 69 66 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 endif.};../*.**
1e40: 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 An instance of t
1e50: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 he following str
1e60: 75 63 74 75 72 65 20 69 73 20 61 6c 6c 6f 63 61 ucture is alloca
1e70: 74 65 64 20 66 6f 72 20 65 61 63 68 20 6f 70 65 ted for each ope
1e80: 6e 0a 2a 2a 20 69 6e 6f 64 65 20 6f 6e 20 65 61 n.** inode on ea
1e90: 63 68 20 74 68 72 65 61 64 20 77 69 74 68 20 61 ch thread with a
1ea0: 20 64 69 66 66 65 72 65 6e 74 20 70 72 6f 63 65 different proce
1eb0: 73 73 20 49 44 2e 20 20 28 54 68 72 65 61 64 73 ss ID. (Threads
1ec0: 20 68 61 76 65 0a 2a 2a 20 64 69 66 66 65 72 65 have.** differe
1ed0: 6e 74 20 70 72 6f 63 65 73 73 20 49 44 73 20 6f nt process IDs o
1ee0: 6e 20 6c 69 6e 75 78 2c 20 62 75 74 20 6e 6f 74 n linux, but not
1ef0: 20 6f 6e 20 6d 6f 73 74 20 6f 74 68 65 72 20 75 on most other u
1f00: 6e 69 78 65 73 2e 29 0a 2a 2a 0a 2a 2a 20 41 20 nixes.).**.** A
1f10: 73 69 6e 67 6c 65 20 69 6e 6f 64 65 20 63 61 6e single inode can
1f20: 20 68 61 76 65 20 6d 75 6c 74 69 70 6c 65 20 66 have multiple f
1f30: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 73 2c ile descriptors,
1f40: 20 73 6f 20 65 61 63 68 20 4f 73 46 69 6c 65 0a so each OsFile.
1f50: 2a 2a 20 73 74 72 75 63 74 75 72 65 20 63 6f 6e ** structure con
1f60: 74 61 69 6e 73 20 61 20 70 6f 69 6e 74 65 72 20 tains a pointer
1f70: 74 6f 20 61 6e 20 69 6e 73 74 61 6e 63 65 20 6f to an instance o
1f80: 66 20 74 68 69 73 20 6f 62 6a 65 63 74 20 61 6e f this object an
1f90: 64 20 74 68 69 73 0a 2a 2a 20 6f 62 6a 65 63 74 d this.** object
1fa0: 20 6b 65 65 70 73 20 61 20 63 6f 75 6e 74 20 6f keeps a count o
1fb0: 66 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 f the number of
1fc0: 4f 73 46 69 6c 65 73 20 70 6f 69 6e 74 69 6e 67 OsFiles pointing
1fd0: 20 74 6f 20 69 74 2e 0a 2a 2f 0a 73 74 72 75 63 to it..*/.struc
1fe0: 74 20 6c 6f 63 6b 49 6e 66 6f 20 7b 0a 20 20 73 t lockInfo {. s
1ff0: 74 72 75 63 74 20 6c 6f 63 6b 4b 65 79 20 6b 65 truct lockKey ke
2000: 79 3b 20 20 2f 2a 20 54 68 65 20 6c 6f 6f 6b 75 y; /* The looku
2010: 70 20 6b 65 79 20 2a 2f 0a 20 20 69 6e 74 20 63 p key */. int c
2020: 6e 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 nt;
2030: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 53 48 41 /* Number of SHA
2040: 52 45 44 20 6c 6f 63 6b 73 20 68 65 6c 64 20 2a RED locks held *
2050: 2f 0a 20 20 69 6e 74 20 6c 6f 63 6b 74 79 70 65 /. int locktype
2060: 3b 20 20 20 20 20 20 20 20 2f 2a 20 4f 6e 65 20 ; /* One
2070: 6f 66 20 53 48 41 52 45 44 5f 4c 4f 43 4b 2c 20 of SHARED_LOCK,
2080: 52 45 53 45 52 56 45 44 5f 4c 4f 43 4b 20 65 74 RESERVED_LOCK et
2090: 63 2e 20 2a 2f 0a 20 20 69 6e 74 20 6e 52 65 66 c. */. int nRef
20a0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 ; /*
20b0: 4e 75 6d 62 65 72 20 6f 66 20 70 6f 69 6e 74 65 Number of pointe
20c0: 72 73 20 74 6f 20 74 68 69 73 20 73 74 72 75 63 rs to this struc
20d0: 74 75 72 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a ture */.};../*.*
20e0: 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 * An instance of
20f0: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 the following s
2100: 74 72 75 63 74 75 72 65 20 73 65 72 76 65 73 20 tructure serves
2110: 61 73 20 74 68 65 20 6b 65 79 20 75 73 65 64 0a as the key used.
2120: 2a 2a 20 74 6f 20 6c 6f 63 61 74 65 20 61 20 70 ** to locate a p
2130: 61 72 74 69 63 75 6c 61 72 20 6f 70 65 6e 43 6e articular openCn
2140: 74 20 73 74 72 75 63 74 75 72 65 20 67 69 76 65 t structure give
2150: 6e 20 69 74 73 20 69 6e 6f 64 65 2e 20 20 54 68 n its inode. Th
2160: 69 73 0a 2a 2a 20 69 73 20 74 68 65 20 73 61 6d is.** is the sam
2170: 65 20 61 73 20 74 68 65 20 6c 6f 63 6b 4b 65 79 e as the lockKey
2180: 20 65 78 63 65 70 74 20 74 68 61 74 20 74 68 65 except that the
2190: 20 74 68 72 65 61 64 20 49 44 20 69 73 20 6f 6d thread ID is om
21a0: 69 74 74 65 64 2e 0a 2a 2f 0a 73 74 72 75 63 74 itted..*/.struct
21b0: 20 6f 70 65 6e 4b 65 79 20 7b 0a 20 20 64 65 76 openKey {. dev
21c0: 5f 74 20 64 65 76 3b 20 20 20 2f 2a 20 44 65 76 _t dev; /* Dev
21d0: 69 63 65 20 6e 75 6d 62 65 72 20 2a 2f 0a 20 20 ice number */.
21e0: 69 6e 6f 5f 74 20 69 6e 6f 3b 20 20 20 2f 2a 20 ino_t ino; /*
21f0: 49 6e 6f 64 65 20 6e 75 6d 62 65 72 20 2a 2f 0a Inode number */.
2200: 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 };../*.** An ins
2210: 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c tance of the fol
2220: 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 75 72 65 lowing structure
2230: 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f is allocated fo
2240: 72 20 65 61 63 68 20 6f 70 65 6e 0a 2a 2a 20 69 r each open.** i
2250: 6e 6f 64 65 2e 20 20 54 68 69 73 20 73 74 72 75 node. This stru
2260: 63 74 75 72 65 20 6b 65 65 70 73 20 74 72 61 63 cture keeps trac
2270: 6b 20 6f 66 20 74 68 65 20 6e 75 6d 62 65 72 20 k of the number
2280: 6f 66 20 6c 6f 63 6b 73 20 6f 6e 20 74 68 61 74 of locks on that
2290: 0a 2a 2a 20 69 6e 6f 64 65 2e 20 20 49 66 20 61 .** inode. If a
22a0: 20 63 6c 6f 73 65 20 69 73 20 61 74 74 65 6d 70 close is attemp
22b0: 74 65 64 20 61 67 61 69 6e 73 74 20 61 6e 20 69 ted against an i
22c0: 6e 6f 64 65 20 74 68 61 74 20 69 73 20 68 6f 6c node that is hol
22d0: 64 69 6e 67 0a 2a 2a 20 6c 6f 63 6b 73 2c 20 74 ding.** locks, t
22e0: 68 65 20 63 6c 6f 73 65 20 69 73 20 64 65 66 65 he close is defe
22f0: 72 72 65 64 20 75 6e 74 69 6c 20 61 6c 6c 20 6c rred until all l
2300: 6f 63 6b 73 20 63 6c 65 61 72 20 62 79 20 61 64 ocks clear by ad
2310: 64 69 6e 67 20 74 68 65 0a 2a 2a 20 66 69 6c 65 ding the.** file
2320: 20 64 65 73 63 72 69 70 74 6f 72 20 74 6f 20 62 descriptor to b
2330: 65 20 63 6c 6f 73 65 64 20 74 6f 20 74 68 65 20 e closed to the
2340: 70 65 6e 64 69 6e 67 20 6c 69 73 74 2e 0a 2a 2f pending list..*/
2350: 0a 73 74 72 75 63 74 20 6f 70 65 6e 43 6e 74 20 .struct openCnt
2360: 7b 0a 20 20 73 74 72 75 63 74 20 6f 70 65 6e 4b {. struct openK
2370: 65 79 20 6b 65 79 3b 20 20 20 2f 2a 20 54 68 65 ey key; /* The
2380: 20 6c 6f 6f 6b 75 70 20 6b 65 79 20 2a 2f 0a 20 lookup key */.
2390: 20 69 6e 74 20 6e 52 65 66 3b 20 20 20 20 20 20 int nRef;
23a0: 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 /* Number
23b0: 20 6f 66 20 70 6f 69 6e 74 65 72 73 20 74 6f 20 of pointers to
23c0: 74 68 69 73 20 73 74 72 75 63 74 75 72 65 20 2a this structure *
23d0: 2f 0a 20 20 69 6e 74 20 6e 4c 6f 63 6b 3b 20 20 /. int nLock;
23e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d /* Num
23f0: 62 65 72 20 6f 66 20 6f 75 74 73 74 61 6e 64 69 ber of outstandi
2400: 6e 67 20 6c 6f 63 6b 73 20 2a 2f 0a 20 20 69 6e ng locks */. in
2410: 74 20 6e 50 65 6e 64 69 6e 67 3b 20 20 20 20 20 t nPending;
2420: 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 /* Number of
2430: 20 70 65 6e 64 69 6e 67 20 63 6c 6f 73 65 28 29 pending close()
2440: 20 6f 70 65 72 61 74 69 6f 6e 73 20 2a 2f 0a 20 operations */.
2450: 20 69 6e 74 20 2a 61 50 65 6e 64 69 6e 67 3b 20 int *aPending;
2460: 20 20 20 20 20 20 20 2f 2a 20 4d 61 6c 6c 6f 63 /* Malloc
2470: 65 64 20 73 70 61 63 65 20 68 6f 6c 64 69 6e 67 ed space holding
2480: 20 66 64 27 73 20 61 77 61 69 74 69 6e 67 20 61 fd's awaiting a
2490: 20 63 6c 6f 73 65 28 29 20 2a 2f 0a 7d 3b 0a 0a close() */.};..
24a0: 2f 2a 20 0a 2a 2a 20 54 68 65 73 65 20 68 61 73 /* .** These has
24b0: 68 20 74 61 62 6c 65 20 6d 61 70 73 20 69 6e 6f h table maps ino
24c0: 64 65 73 20 61 6e 64 20 70 72 6f 63 65 73 73 20 des and process
24d0: 49 44 73 20 69 6e 74 6f 20 6c 6f 63 6b 49 6e 66 IDs into lockInf
24e0: 6f 20 61 6e 64 20 6f 70 65 6e 43 6e 74 0a 2a 2a o and openCnt.**
24f0: 20 73 74 72 75 63 74 75 72 65 73 2e 20 20 41 63 structures. Ac
2500: 63 65 73 73 20 74 6f 20 74 68 65 73 65 20 68 61 cess to these ha
2510: 73 68 20 74 61 62 6c 65 73 20 6d 75 73 74 20 62 sh tables must b
2520: 65 20 70 72 6f 74 65 63 74 65 64 20 62 79 20 61 e protected by a
2530: 20 6d 75 74 65 78 2e 0a 2a 2f 0a 73 74 61 74 69 mutex..*/.stati
2540: 63 20 48 61 73 68 20 6c 6f 63 6b 48 61 73 68 20 c Hash lockHash
2550: 3d 20 7b 20 53 51 4c 49 54 45 5f 48 41 53 48 5f = { SQLITE_HASH_
2560: 42 49 4e 41 52 59 2c 20 30 2c 20 30 2c 20 30 2c BINARY, 0, 0, 0,
2570: 20 30 2c 20 30 20 7d 3b 0a 73 74 61 74 69 63 20 0, 0 };.static
2580: 48 61 73 68 20 6f 70 65 6e 48 61 73 68 20 3d 20 Hash openHash =
2590: 7b 20 53 51 4c 49 54 45 5f 48 41 53 48 5f 42 49 { SQLITE_HASH_BI
25a0: 4e 41 52 59 2c 20 30 2c 20 30 2c 20 30 2c 20 30 NARY, 0, 0, 0, 0
25b0: 2c 20 30 20 7d 3b 0a 0a 0a 23 69 66 64 65 66 20 , 0 };...#ifdef
25c0: 53 51 4c 49 54 45 5f 55 4e 49 58 5f 54 48 52 45 SQLITE_UNIX_THRE
25d0: 41 44 53 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 76 ADS./*.** This v
25e0: 61 72 69 61 62 6c 65 20 72 65 63 6f 72 64 73 20 ariable records
25f0: 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 whether or not t
2600: 68 72 65 61 64 73 20 63 61 6e 20 6f 76 65 72 72 hreads can overr
2610: 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 73 0a ide each others.
2620: 2a 2a 20 6c 6f 63 6b 73 2e 0a 2a 2a 0a 2a 2a 20 ** locks..**.**
2630: 20 20 20 30 3a 20 20 4e 6f 2e 20 20 54 68 72 65 0: No. Thre
2640: 61 64 73 20 63 61 6e 6e 6f 74 20 6f 76 65 72 72 ads cannot overr
2650: 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 73 20 ide each others
2660: 6c 6f 63 6b 73 2e 0a 2a 2a 20 20 20 20 31 3a 20 locks..** 1:
2670: 20 59 65 73 2e 20 20 54 68 72 65 61 64 73 20 63 Yes. Threads c
2680: 61 6e 20 6f 76 65 72 72 69 64 65 20 65 61 63 68 an override each
2690: 20 6f 74 68 65 72 73 20 6c 6f 63 6b 73 2e 0a 2a others locks..*
26a0: 2a 20 20 20 2d 31 3a 20 20 57 65 20 64 6f 6e 27 * -1: We don'
26b0: 74 20 6b 6e 6f 77 20 79 65 74 2e 0a 2a 2f 0a 73 t know yet..*/.s
26c0: 74 61 74 69 63 20 69 6e 74 20 74 68 72 65 61 64 tatic int thread
26d0: 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f 74 68 sOverrideEachOth
26e0: 65 72 73 4c 6f 63 6b 73 20 3d 20 2d 31 3b 0a 0a ersLocks = -1;..
26f0: 2f 2a 0a 2a 2a 20 54 68 69 73 20 73 74 72 75 63 /*.** This struc
2700: 74 75 72 65 20 68 6f 6c 64 73 20 69 6e 66 6f 72 ture holds infor
2710: 6d 61 74 69 6f 6e 20 70 61 73 73 65 64 20 69 6e mation passed in
2720: 74 6f 20 69 6e 64 69 76 69 64 75 61 6c 20 74 65 to individual te
2730: 73 74 0a 2a 2a 20 74 68 72 65 61 64 73 20 62 79 st.** threads by
2740: 20 74 68 65 20 74 65 73 74 54 68 72 65 61 64 4c the testThreadL
2750: 6f 63 6b 69 6e 67 42 65 68 61 76 69 6f 72 28 29 ockingBehavior()
2760: 20 72 6f 75 74 69 6e 65 2e 0a 2a 2f 0a 73 74 72 routine..*/.str
2770: 75 63 74 20 74 68 72 65 61 64 54 65 73 74 44 61 uct threadTestDa
2780: 74 61 20 7b 0a 20 20 69 6e 74 20 66 64 3b 20 20 ta {. int fd;
2790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a /*
27a0: 20 46 69 6c 65 20 74 6f 20 62 65 20 6c 6f 63 6b File to be lock
27b0: 65 64 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 66 ed */. struct f
27c0: 6c 6f 63 6b 20 6c 6f 63 6b 3b 20 20 20 20 20 2f lock lock; /
27d0: 2a 20 54 68 65 20 6c 6f 63 6b 69 6e 67 20 6f 70 * The locking op
27e0: 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 69 6e 74 eration */. int
27f0: 20 72 65 73 75 6c 74 3b 20 20 20 20 20 20 20 20 result;
2800: 20 20 20 20 2f 2a 20 52 65 73 75 6c 74 20 6f 66 /* Result of
2810: 20 74 68 65 20 6c 6f 63 6b 69 6e 67 20 6f 70 65 the locking ope
2820: 72 61 74 69 6f 6e 20 2a 2f 0a 7d 3b 0a 0a 2f 2a ration */.};../*
2830: 0a 2a 2a 20 54 68 65 20 74 65 73 74 54 68 72 65 .** The testThre
2840: 61 64 4c 6f 63 6b 69 6e 67 42 65 68 61 76 69 6f adLockingBehavio
2850: 72 28 29 20 72 6f 75 74 69 6e 65 20 6c 61 75 6e r() routine laun
2860: 63 68 65 73 20 74 77 6f 20 73 65 70 61 72 61 74 ches two separat
2870: 65 0a 2a 2a 20 74 68 72 65 61 64 73 20 6f 6e 20 e.** threads on
2880: 74 68 69 73 20 72 6f 75 74 69 6e 65 2e 20 20 54 this routine. T
2890: 68 69 73 20 72 6f 75 74 69 6e 65 20 61 74 74 65 his routine atte
28a0: 6d 70 74 73 20 74 6f 20 6c 6f 63 6b 20 61 20 66 mpts to lock a f
28b0: 69 6c 65 0a 2a 2a 20 64 65 73 63 72 69 70 74 6f ile.** descripto
28c0: 72 20 74 68 65 6e 20 72 65 74 75 72 6e 73 2e 20 r then returns.
28d0: 20 54 68 65 20 73 75 63 63 65 73 73 20 6f 72 20 The success or
28e0: 66 61 69 6c 75 72 65 20 6f 66 20 74 68 61 74 20 failure of that
28f0: 61 74 74 65 6d 70 74 0a 2a 2a 20 61 6c 6c 6f 77 attempt.** allow
2900: 73 20 74 68 65 20 74 65 73 74 54 68 72 65 61 64 s the testThread
2910: 4c 6f 63 6b 69 6e 67 42 65 68 61 76 69 6f 72 28 LockingBehavior(
2920: 29 20 70 72 6f 63 65 64 75 72 65 20 74 6f 20 64 ) procedure to d
2930: 65 74 65 72 6d 69 6e 65 0a 2a 2a 20 77 68 65 74 etermine.** whet
2940: 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 72 65 61 her or not threa
2950: 64 73 20 63 61 6e 20 6f 76 65 72 72 69 64 65 20 ds can override
2960: 65 61 63 68 20 6f 74 68 65 72 73 20 6c 6f 63 6b each others lock
2970: 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 s..*/.static voi
2980: 64 20 2a 74 68 72 65 61 64 4c 6f 63 6b 69 6e 67 d *threadLocking
2990: 54 65 73 74 28 76 6f 69 64 20 2a 70 41 72 67 29 Test(void *pArg)
29a0: 7b 0a 20 20 73 74 72 75 63 74 20 74 68 72 65 61 {. struct threa
29b0: 64 54 65 73 74 44 61 74 61 20 2a 70 44 61 74 61 dTestData *pData
29c0: 20 3d 20 28 73 74 72 75 63 74 20 74 68 72 65 61 = (struct threa
29d0: 64 54 65 73 74 44 61 74 61 2a 29 70 41 72 67 3b dTestData*)pArg;
29e0: 0a 20 20 70 44 61 74 61 2d 3e 72 65 73 75 6c 74 . pData->result
29f0: 20 3d 20 66 63 6e 74 6c 28 70 44 61 74 61 2d 3e = fcntl(pData->
2a00: 66 64 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 70 44 fd, F_SETLK, &pD
2a10: 61 74 61 2d 3e 6c 6f 63 6b 29 3b 0a 20 20 72 65 ata->lock);. re
2a20: 74 75 72 6e 20 70 41 72 67 3b 0a 7d 0a 0a 2f 2a turn pArg;.}../*
2a30: 0a 2a 2a 20 54 68 69 73 20 70 72 6f 63 65 64 75 .** This procedu
2a40: 72 65 20 61 74 74 65 6d 70 74 73 20 74 6f 20 64 re attempts to d
2a50: 65 74 65 72 6d 69 6e 65 20 77 68 65 74 68 65 72 etermine whether
2a60: 20 6f 72 20 6e 6f 74 20 74 68 72 65 61 64 73 0a or not threads.
2a70: 2a 2a 20 63 61 6e 20 6f 76 65 72 72 69 64 65 20 ** can override
2a80: 65 61 63 68 20 6f 74 68 65 72 73 20 6c 6f 63 6b each others lock
2a90: 73 20 74 68 65 6e 20 73 65 74 73 20 74 68 65 20 s then sets the
2aa0: 0a 2a 2a 20 74 68 72 65 61 64 73 4f 76 65 72 72 .** threadsOverr
2ab0: 69 64 65 45 61 63 68 4f 74 68 65 72 73 4c 6f 63 ideEachOthersLoc
2ac0: 6b 73 20 76 61 72 69 61 62 6c 65 20 61 70 70 72 ks variable appr
2ad0: 6f 70 72 69 61 74 65 6c 79 2e 0a 2a 2f 0a 73 74 opriately..*/.st
2ae0: 61 74 69 63 20 76 6f 69 64 20 74 65 73 74 54 68 atic void testTh
2af0: 72 65 61 64 4c 6f 63 6b 69 6e 67 42 65 68 61 76 readLockingBehav
2b00: 69 6f 72 28 66 64 5f 6f 72 69 67 29 7b 0a 20 20 ior(fd_orig){.
2b10: 69 6e 74 20 66 64 3b 0a 20 20 73 74 72 75 63 74 int fd;. struct
2b20: 20 74 68 72 65 61 64 54 65 73 74 44 61 74 61 20 threadTestData
2b30: 64 5b 32 5d 3b 0a 20 20 70 74 68 72 65 61 64 5f d[2];. pthread_
2b40: 74 20 74 5b 32 5d 3b 0a 0a 20 20 66 64 20 3d 20 t t[2];.. fd =
2b50: 64 75 70 28 66 64 5f 6f 72 69 67 29 3b 0a 20 20 dup(fd_orig);.
2b60: 69 66 28 20 66 64 3c 30 20 29 20 72 65 74 75 72 if( fd<0 ) retur
2b70: 6e 3b 0a 20 20 6d 65 6d 73 65 74 28 64 2c 20 30 n;. memset(d, 0
2b80: 2c 20 73 69 7a 65 6f 66 28 64 29 29 3b 0a 20 20 , sizeof(d));.
2b90: 64 5b 30 5d 2e 66 64 20 3d 20 66 64 3b 0a 20 20 d[0].fd = fd;.
2ba0: 64 5b 30 5d 2e 6c 6f 63 6b 2e 6c 5f 74 79 70 65 d[0].lock.l_type
2bb0: 20 3d 20 46 5f 52 44 4c 43 4b 3b 0a 20 20 64 5b = F_RDLCK;. d[
2bc0: 30 5d 2e 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 3d 20 0].lock.l_len =
2bd0: 31 3b 0a 20 20 64 5b 30 5d 2e 6c 6f 63 6b 2e 6c 1;. d[0].lock.l
2be0: 5f 73 74 61 72 74 20 3d 20 30 3b 0a 20 20 64 5b _start = 0;. d[
2bf0: 30 5d 2e 6c 6f 63 6b 2e 6c 5f 77 68 65 6e 63 65 0].lock.l_whence
2c00: 20 3d 20 53 45 45 4b 5f 53 45 54 3b 0a 20 20 64 = SEEK_SET;. d
2c10: 5b 31 5d 20 3d 20 64 5b 30 5d 3b 0a 20 20 64 5b [1] = d[0];. d[
2c20: 31 5d 2e 6c 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 1].lock.l_type =
2c30: 20 46 5f 57 52 4c 43 4b 3b 0a 20 20 70 74 68 72 F_WRLCK;. pthr
2c40: 65 61 64 5f 63 72 65 61 74 65 28 26 74 5b 30 5d ead_create(&t[0]
2c50: 2c 20 30 2c 20 74 68 72 65 61 64 4c 6f 63 6b 69 , 0, threadLocki
2c60: 6e 67 54 65 73 74 2c 20 26 64 5b 30 5d 29 3b 0a ngTest, &d[0]);.
2c70: 20 20 70 74 68 72 65 61 64 5f 63 72 65 61 74 65 pthread_create
2c80: 28 26 74 5b 31 5d 2c 20 30 2c 20 74 68 72 65 61 (&t[1], 0, threa
2c90: 64 4c 6f 63 6b 69 6e 67 54 65 73 74 2c 20 26 64 dLockingTest, &d
2ca0: 5b 31 5d 29 3b 0a 20 20 70 74 68 72 65 61 64 5f [1]);. pthread_
2cb0: 6a 6f 69 6e 28 74 5b 30 5d 2c 20 30 29 3b 0a 20 join(t[0], 0);.
2cc0: 20 70 74 68 72 65 61 64 5f 6a 6f 69 6e 28 74 5b pthread_join(t[
2cd0: 31 5d 2c 20 30 29 3b 0a 20 20 63 6c 6f 73 65 28 1], 0);. close(
2ce0: 66 64 29 3b 0a 20 20 74 68 72 65 61 64 73 4f 76 fd);. threadsOv
2cf0: 65 72 72 69 64 65 45 61 63 68 4f 74 68 65 72 73 errideEachOthers
2d00: 4c 6f 63 6b 73 20 3d 20 20 64 5b 30 5d 2e 72 65 Locks = d[0].re
2d10: 73 75 6c 74 3d 3d 30 20 26 26 20 64 5b 31 5d 2e sult==0 && d[1].
2d20: 72 65 73 75 6c 74 3d 3d 30 3b 0a 7d 0a 23 65 6e result==0;.}.#en
2d30: 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 55 4e dif /* SQLITE_UN
2d40: 49 58 5f 54 48 52 45 41 44 53 20 2a 2f 0a 0a 2f IX_THREADS */../
2d50: 2a 0a 2a 2a 20 52 65 6c 65 61 73 65 20 61 20 6c *.** Release a l
2d60: 6f 63 6b 49 6e 66 6f 20 73 74 72 75 63 74 75 72 ockInfo structur
2d70: 65 20 70 72 65 76 69 6f 75 73 6c 79 20 61 6c 6c e previously all
2d80: 6f 63 61 74 65 64 20 62 79 20 66 69 6e 64 4c 6f ocated by findLo
2d90: 63 6b 49 6e 66 6f 28 29 2e 0a 2a 2f 0a 73 74 61 ckInfo()..*/.sta
2da0: 74 69 63 20 76 6f 69 64 20 72 65 6c 65 61 73 65 tic void release
2db0: 4c 6f 63 6b 49 6e 66 6f 28 73 74 72 75 63 74 20 LockInfo(struct
2dc0: 6c 6f 63 6b 49 6e 66 6f 20 2a 70 4c 6f 63 6b 29 lockInfo *pLock)
2dd0: 7b 0a 20 20 70 4c 6f 63 6b 2d 3e 6e 52 65 66 2d {. pLock->nRef-
2de0: 2d 3b 0a 20 20 69 66 28 20 70 4c 6f 63 6b 2d 3e -;. if( pLock->
2df0: 6e 52 65 66 3d 3d 30 20 29 7b 0a 20 20 20 20 73 nRef==0 ){. s
2e00: 71 6c 69 74 65 33 48 61 73 68 49 6e 73 65 72 74 qlite3HashInsert
2e10: 28 26 6c 6f 63 6b 48 61 73 68 2c 20 26 70 4c 6f (&lockHash, &pLo
2e20: 63 6b 2d 3e 6b 65 79 2c 20 73 69 7a 65 6f 66 28 ck->key, sizeof(
2e30: 70 4c 6f 63 6b 2d 3e 6b 65 79 29 2c 20 30 29 3b pLock->key), 0);
2e40: 0a 20 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 . sqliteFree(
2e50: 70 4c 6f 63 6b 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f pLock);. }.}../
2e60: 2a 0a 2a 2a 20 52 65 6c 65 61 73 65 20 61 20 6f *.** Release a o
2e70: 70 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 65 penCnt structure
2e80: 20 70 72 65 76 69 6f 75 73 6c 79 20 61 6c 6c 6f previously allo
2e90: 63 61 74 65 64 20 62 79 20 66 69 6e 64 4c 6f 63 cated by findLoc
2ea0: 6b 49 6e 66 6f 28 29 2e 0a 2a 2f 0a 73 74 61 74 kInfo()..*/.stat
2eb0: 69 63 20 76 6f 69 64 20 72 65 6c 65 61 73 65 4f ic void releaseO
2ec0: 70 65 6e 43 6e 74 28 73 74 72 75 63 74 20 6f 70 penCnt(struct op
2ed0: 65 6e 43 6e 74 20 2a 70 4f 70 65 6e 29 7b 0a 20 enCnt *pOpen){.
2ee0: 20 70 4f 70 65 6e 2d 3e 6e 52 65 66 2d 2d 3b 0a pOpen->nRef--;.
2ef0: 20 20 69 66 28 20 70 4f 70 65 6e 2d 3e 6e 52 65 if( pOpen->nRe
2f00: 66 3d 3d 30 20 29 7b 0a 20 20 20 20 73 71 6c 69 f==0 ){. sqli
2f10: 74 65 33 48 61 73 68 49 6e 73 65 72 74 28 26 6f te3HashInsert(&o
2f20: 70 65 6e 48 61 73 68 2c 20 26 70 4f 70 65 6e 2d penHash, &pOpen-
2f30: 3e 6b 65 79 2c 20 73 69 7a 65 6f 66 28 70 4f 70 >key, sizeof(pOp
2f40: 65 6e 2d 3e 6b 65 79 29 2c 20 30 29 3b 0a 20 20 en->key), 0);.
2f50: 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 4f 70 sqliteFree(pOp
2f60: 65 6e 2d 3e 61 50 65 6e 64 69 6e 67 29 3b 0a 20 en->aPending);.
2f70: 20 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 4f sqliteFree(pO
2f80: 70 65 6e 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a pen);. }.}../*.
2f90: 2a 2a 20 47 69 76 65 6e 20 61 20 66 69 6c 65 20 ** Given a file
2fa0: 64 65 73 63 72 69 70 74 6f 72 2c 20 6c 6f 63 61 descriptor, loca
2fb0: 74 65 20 6c 6f 63 6b 49 6e 66 6f 20 61 6e 64 20 te lockInfo and
2fc0: 6f 70 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 openCnt structur
2fd0: 65 73 20 74 68 61 74 0a 2a 2a 20 64 65 73 63 72 es that.** descr
2fe0: 69 62 65 73 20 74 68 61 74 20 66 69 6c 65 20 64 ibes that file d
2ff0: 65 73 63 72 69 70 74 6f 72 2e 20 20 43 72 65 61 escriptor. Crea
3000: 74 65 20 61 20 6e 65 77 20 6f 6e 65 73 20 69 66 te a new ones if
3010: 20 6e 65 63 65 73 73 61 72 79 2e 20 20 54 68 65 necessary. The
3020: 0a 2a 2a 20 72 65 74 75 72 6e 20 76 61 6c 75 65 .** return value
3030: 73 20 6d 69 67 68 74 20 62 65 20 75 6e 73 65 74 s might be unset
3040: 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 if an error occ
3050: 75 72 73 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 urs..**.** Retur
3060: 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 n the number of
3070: 65 72 72 6f 72 73 2e 0a 2a 2f 0a 73 74 61 74 69 errors..*/.stati
3080: 63 20 69 6e 74 20 66 69 6e 64 4c 6f 63 6b 49 6e c int findLockIn
3090: 66 6f 28 0a 20 20 69 6e 74 20 66 64 2c 20 20 20 fo(. int fd,
30a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30b0: 20 20 20 2f 2a 20 54 68 65 20 66 69 6c 65 20 64 /* The file d
30c0: 65 73 63 72 69 70 74 6f 72 20 75 73 65 64 20 69 escriptor used i
30d0: 6e 20 74 68 65 20 6b 65 79 20 2a 2f 0a 20 20 73 n the key */. s
30e0: 74 72 75 63 74 20 6c 6f 63 6b 49 6e 66 6f 20 2a truct lockInfo *
30f0: 2a 70 70 4c 6f 63 6b 2c 20 20 20 20 2f 2a 20 52 *ppLock, /* R
3100: 65 74 75 72 6e 20 74 68 65 20 6c 6f 63 6b 49 6e eturn the lockIn
3110: 66 6f 20 73 74 72 75 63 74 75 72 65 20 68 65 72 fo structure her
3120: 65 20 2a 2f 0a 20 20 73 74 72 75 63 74 20 6f 70 e */. struct op
3130: 65 6e 43 6e 74 20 2a 2a 70 70 4f 70 65 6e 20 20 enCnt **ppOpen
3140: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 74 68 /* Return th
3150: 65 20 6f 70 65 6e 43 6e 74 20 73 74 72 75 63 74 e openCnt struct
3160: 75 72 65 20 68 65 72 65 20 2a 2f 0a 29 7b 0a 20 ure here */.){.
3170: 20 69 6e 74 20 72 63 3b 0a 20 20 73 74 72 75 63 int rc;. struc
3180: 74 20 6c 6f 63 6b 4b 65 79 20 6b 65 79 31 3b 0a t lockKey key1;.
3190: 20 20 73 74 72 75 63 74 20 6f 70 65 6e 4b 65 79 struct openKey
31a0: 20 6b 65 79 32 3b 0a 20 20 73 74 72 75 63 74 20 key2;. struct
31b0: 73 74 61 74 20 73 74 61 74 62 75 66 3b 0a 20 20 stat statbuf;.
31c0: 73 74 72 75 63 74 20 6c 6f 63 6b 49 6e 66 6f 20 struct lockInfo
31d0: 2a 70 4c 6f 63 6b 3b 0a 20 20 73 74 72 75 63 74 *pLock;. struct
31e0: 20 6f 70 65 6e 43 6e 74 20 2a 70 4f 70 65 6e 3b openCnt *pOpen;
31f0: 0a 20 20 72 63 20 3d 20 66 73 74 61 74 28 66 64 . rc = fstat(fd
3200: 2c 20 26 73 74 61 74 62 75 66 29 3b 0a 20 20 69 , &statbuf);. i
3210: 66 28 20 72 63 21 3d 30 20 29 20 72 65 74 75 72 f( rc!=0 ) retur
3220: 6e 20 31 3b 0a 20 20 6d 65 6d 73 65 74 28 26 6b n 1;. memset(&k
3230: 65 79 31 2c 20 30 2c 20 73 69 7a 65 6f 66 28 6b ey1, 0, sizeof(k
3240: 65 79 31 29 29 3b 0a 20 20 6b 65 79 31 2e 64 65 ey1));. key1.de
3250: 76 20 3d 20 73 74 61 74 62 75 66 2e 73 74 5f 64 v = statbuf.st_d
3260: 65 76 3b 0a 20 20 6b 65 79 31 2e 69 6e 6f 20 3d ev;. key1.ino =
3270: 20 73 74 61 74 62 75 66 2e 73 74 5f 69 6e 6f 3b statbuf.st_ino;
3280: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 55 .#ifdef SQLITE_U
3290: 4e 49 58 5f 54 48 52 45 41 44 53 0a 20 20 69 66 NIX_THREADS. if
32a0: 28 20 74 68 72 65 61 64 73 4f 76 65 72 72 69 64 ( threadsOverrid
32b0: 65 45 61 63 68 4f 74 68 65 72 73 4c 6f 63 6b 73 eEachOthersLocks
32c0: 3c 30 20 29 7b 0a 20 20 20 20 74 65 73 74 54 68 <0 ){. testTh
32d0: 72 65 61 64 4c 6f 63 6b 69 6e 67 42 65 68 61 76 readLockingBehav
32e0: 69 6f 72 28 66 64 29 3b 0a 20 20 7d 0a 20 20 6b ior(fd);. }. k
32f0: 65 79 31 2e 74 69 64 20 3d 20 74 68 72 65 61 64 ey1.tid = thread
3300: 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f 74 68 sOverrideEachOth
3310: 65 72 73 4c 6f 63 6b 73 20 3f 20 30 20 3a 20 70 ersLocks ? 0 : p
3320: 74 68 72 65 61 64 5f 73 65 6c 66 28 29 3b 0a 23 thread_self();.#
3330: 65 6e 64 69 66 0a 20 20 6d 65 6d 73 65 74 28 26 endif. memset(&
3340: 6b 65 79 32 2c 20 30 2c 20 73 69 7a 65 6f 66 28 key2, 0, sizeof(
3350: 6b 65 79 32 29 29 3b 0a 20 20 6b 65 79 32 2e 64 key2));. key2.d
3360: 65 76 20 3d 20 73 74 61 74 62 75 66 2e 73 74 5f ev = statbuf.st_
3370: 64 65 76 3b 0a 20 20 6b 65 79 32 2e 69 6e 6f 20 dev;. key2.ino
3380: 3d 20 73 74 61 74 62 75 66 2e 73 74 5f 69 6e 6f = statbuf.st_ino
3390: 3b 0a 20 20 70 4c 6f 63 6b 20 3d 20 28 73 74 72 ;. pLock = (str
33a0: 75 63 74 20 6c 6f 63 6b 49 6e 66 6f 2a 29 73 71 uct lockInfo*)sq
33b0: 6c 69 74 65 33 48 61 73 68 46 69 6e 64 28 26 6c lite3HashFind(&l
33c0: 6f 63 6b 48 61 73 68 2c 20 26 6b 65 79 31 2c 20 ockHash, &key1,
33d0: 73 69 7a 65 6f 66 28 6b 65 79 31 29 29 3b 0a 20 sizeof(key1));.
33e0: 20 69 66 28 20 70 4c 6f 63 6b 3d 3d 30 20 29 7b if( pLock==0 ){
33f0: 0a 20 20 20 20 73 74 72 75 63 74 20 6c 6f 63 6b . struct lock
3400: 49 6e 66 6f 20 2a 70 4f 6c 64 3b 0a 20 20 20 20 Info *pOld;.
3410: 70 4c 6f 63 6b 20 3d 20 73 71 6c 69 74 65 4d 61 pLock = sqliteMa
3420: 6c 6c 6f 63 52 61 77 28 20 73 69 7a 65 6f 66 28 llocRaw( sizeof(
3430: 2a 70 4c 6f 63 6b 29 20 29 3b 0a 20 20 20 20 69 *pLock) );. i
3440: 66 28 20 70 4c 6f 63 6b 3d 3d 30 20 29 20 72 65 f( pLock==0 ) re
3450: 74 75 72 6e 20 31 3b 0a 20 20 20 20 70 4c 6f 63 turn 1;. pLoc
3460: 6b 2d 3e 6b 65 79 20 3d 20 6b 65 79 31 3b 0a 20 k->key = key1;.
3470: 20 20 20 70 4c 6f 63 6b 2d 3e 6e 52 65 66 20 3d pLock->nRef =
3480: 20 31 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 63 1;. pLock->c
3490: 6e 74 20 3d 20 30 3b 0a 20 20 20 20 70 4c 6f 63 nt = 0;. pLoc
34a0: 6b 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 30 3b k->locktype = 0;
34b0: 0a 20 20 20 20 70 4f 6c 64 20 3d 20 73 71 6c 69 . pOld = sqli
34c0: 74 65 33 48 61 73 68 49 6e 73 65 72 74 28 26 6c te3HashInsert(&l
34d0: 6f 63 6b 48 61 73 68 2c 20 26 70 4c 6f 63 6b 2d ockHash, &pLock-
34e0: 3e 6b 65 79 2c 20 73 69 7a 65 6f 66 28 6b 65 79 >key, sizeof(key
34f0: 31 29 2c 20 70 4c 6f 63 6b 29 3b 0a 20 20 20 20 1), pLock);.
3500: 69 66 28 20 70 4f 6c 64 21 3d 30 20 29 7b 0a 20 if( pOld!=0 ){.
3510: 20 20 20 20 20 61 73 73 65 72 74 28 20 70 4f 6c assert( pOl
3520: 64 3d 3d 70 4c 6f 63 6b 20 29 3b 0a 20 20 20 20 d==pLock );.
3530: 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 4c 6f sqliteFree(pLo
3540: 63 6b 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 ck);. retur
3550: 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c n 1;. }. }el
3560: 73 65 7b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 6e se{. pLock->n
3570: 52 65 66 2b 2b 3b 0a 20 20 7d 0a 20 20 2a 70 70 Ref++;. }. *pp
3580: 4c 6f 63 6b 20 3d 20 70 4c 6f 63 6b 3b 0a 20 20 Lock = pLock;.
3590: 70 4f 70 65 6e 20 3d 20 28 73 74 72 75 63 74 20 pOpen = (struct
35a0: 6f 70 65 6e 43 6e 74 2a 29 73 71 6c 69 74 65 33 openCnt*)sqlite3
35b0: 48 61 73 68 46 69 6e 64 28 26 6f 70 65 6e 48 61 HashFind(&openHa
35c0: 73 68 2c 20 26 6b 65 79 32 2c 20 73 69 7a 65 6f sh, &key2, sizeo
35d0: 66 28 6b 65 79 32 29 29 3b 0a 20 20 69 66 28 20 f(key2));. if(
35e0: 70 4f 70 65 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 pOpen==0 ){.
35f0: 73 74 72 75 63 74 20 6f 70 65 6e 43 6e 74 20 2a struct openCnt *
3600: 70 4f 6c 64 3b 0a 20 20 20 20 70 4f 70 65 6e 20 pOld;. pOpen
3610: 3d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f 63 52 61 = sqliteMallocRa
3620: 77 28 20 73 69 7a 65 6f 66 28 2a 70 4f 70 65 6e w( sizeof(*pOpen
3630: 29 20 29 3b 0a 20 20 20 20 69 66 28 20 70 4f 70 ) );. if( pOp
3640: 65 6e 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 72 en==0 ){. r
3650: 65 6c 65 61 73 65 4c 6f 63 6b 49 6e 66 6f 28 70 eleaseLockInfo(p
3660: 4c 6f 63 6b 29 3b 0a 20 20 20 20 20 20 72 65 74 Lock);. ret
3670: 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 20 urn 1;. }.
3680: 20 70 4f 70 65 6e 2d 3e 6b 65 79 20 3d 20 6b 65 pOpen->key = ke
3690: 79 32 3b 0a 20 20 20 20 70 4f 70 65 6e 2d 3e 6e y2;. pOpen->n
36a0: 52 65 66 20 3d 20 31 3b 0a 20 20 20 20 70 4f 70 Ref = 1;. pOp
36b0: 65 6e 2d 3e 6e 4c 6f 63 6b 20 3d 20 30 3b 0a 20 en->nLock = 0;.
36c0: 20 20 20 70 4f 70 65 6e 2d 3e 6e 50 65 6e 64 69 pOpen->nPendi
36d0: 6e 67 20 3d 20 30 3b 0a 20 20 20 20 70 4f 70 65 ng = 0;. pOpe
36e0: 6e 2d 3e 61 50 65 6e 64 69 6e 67 20 3d 20 30 3b n->aPending = 0;
36f0: 0a 20 20 20 20 70 4f 6c 64 20 3d 20 73 71 6c 69 . pOld = sqli
3700: 74 65 33 48 61 73 68 49 6e 73 65 72 74 28 26 6f te3HashInsert(&o
3710: 70 65 6e 48 61 73 68 2c 20 26 70 4f 70 65 6e 2d penHash, &pOpen-
3720: 3e 6b 65 79 2c 20 73 69 7a 65 6f 66 28 6b 65 79 >key, sizeof(key
3730: 32 29 2c 20 70 4f 70 65 6e 29 3b 0a 20 20 20 20 2), pOpen);.
3740: 69 66 28 20 70 4f 6c 64 21 3d 30 20 29 7b 0a 20 if( pOld!=0 ){.
3750: 20 20 20 20 20 61 73 73 65 72 74 28 20 70 4f 6c assert( pOl
3760: 64 3d 3d 70 4f 70 65 6e 20 29 3b 0a 20 20 20 20 d==pOpen );.
3770: 20 20 73 71 6c 69 74 65 46 72 65 65 28 70 4f 70 sqliteFree(pOp
3780: 65 6e 29 3b 0a 20 20 20 20 20 20 72 65 6c 65 61 en);. relea
3790: 73 65 4c 6f 63 6b 49 6e 66 6f 28 70 4c 6f 63 6b seLockInfo(pLock
37a0: 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 );. return
37b0: 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 1;. }. }else
37c0: 7b 0a 20 20 20 20 70 4f 70 65 6e 2d 3e 6e 52 65 {. pOpen->nRe
37d0: 66 2b 2b 3b 0a 20 20 7d 0a 20 20 2a 70 70 4f 70 f++;. }. *ppOp
37e0: 65 6e 20 3d 20 70 4f 70 65 6e 3b 0a 20 20 72 65 en = pOpen;. re
37f0: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a turn 0;.}../*.**
3800: 20 44 65 6c 65 74 65 20 74 68 65 20 6e 61 6d 65 Delete the name
3810: 64 20 66 69 6c 65 0a 2a 2f 0a 69 6e 74 20 73 71 d file.*/.int sq
3820: 6c 69 74 65 33 4f 73 44 65 6c 65 74 65 28 63 6f lite3OsDelete(co
3830: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e nst char *zFilen
3840: 61 6d 65 29 7b 0a 20 20 75 6e 6c 69 6e 6b 28 7a ame){. unlink(z
3850: 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 72 65 74 Filename);. ret
3860: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d urn SQLITE_OK;.}
3870: 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 ../*.** Return T
3880: 52 55 45 20 69 66 20 74 68 65 20 6e 61 6d 65 64 RUE if the named
3890: 20 66 69 6c 65 20 65 78 69 73 74 73 2e 0a 2a 2f file exists..*/
38a0: 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 46 69 .int sqlite3OsFi
38b0: 6c 65 45 78 69 73 74 73 28 63 6f 6e 73 74 20 63 leExists(const c
38c0: 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b har *zFilename){
38d0: 0a 20 20 72 65 74 75 72 6e 20 61 63 63 65 73 73 . return access
38e0: 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 30 29 3d 3d (zFilename, 0)==
38f0: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 0;.}../*.** Atte
3900: 6d 70 74 20 74 6f 20 6f 70 65 6e 20 61 20 66 69 mpt to open a fi
3910: 6c 65 20 66 6f 72 20 62 6f 74 68 20 72 65 61 64 le for both read
3920: 69 6e 67 20 61 6e 64 20 77 72 69 74 69 6e 67 2e ing and writing.
3930: 20 20 49 66 20 74 68 61 74 0a 2a 2a 20 66 61 69 If that.** fai
3940: 6c 73 2c 20 74 72 79 20 6f 70 65 6e 69 6e 67 20 ls, try opening
3950: 69 74 20 72 65 61 64 2d 6f 6e 6c 79 2e 20 20 49 it read-only. I
3960: 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65 73 20 f the file does
3970: 6e 6f 74 20 65 78 69 73 74 2c 0a 2a 2a 20 74 72 not exist,.** tr
3980: 79 20 74 6f 20 63 72 65 61 74 65 20 69 74 2e 0a y to create it..
3990: 2a 2a 0a 2a 2a 20 4f 6e 20 73 75 63 63 65 73 73 **.** On success
39a0: 2c 20 61 20 68 61 6e 64 6c 65 20 66 6f 72 20 74 , a handle for t
39b0: 68 65 20 6f 70 65 6e 20 66 69 6c 65 20 69 73 20 he open file is
39c0: 77 72 69 74 74 65 6e 20 74 6f 20 2a 69 64 0a 2a written to *id.*
39d0: 2a 20 61 6e 64 20 2a 70 52 65 61 64 6f 6e 6c 79 * and *pReadonly
39e0: 20 69 73 20 73 65 74 20 74 6f 20 30 20 69 66 20 is set to 0 if
39f0: 74 68 65 20 66 69 6c 65 20 77 61 73 20 6f 70 65 the file was ope
3a00: 6e 65 64 20 66 6f 72 20 72 65 61 64 69 6e 67 20 ned for reading
3a10: 61 6e 64 0a 2a 2a 20 77 72 69 74 69 6e 67 20 6f and.** writing o
3a20: 72 20 31 20 69 66 20 74 68 65 20 66 69 6c 65 20 r 1 if the file
3a30: 77 61 73 20 6f 70 65 6e 65 64 20 72 65 61 64 2d was opened read-
3a40: 6f 6e 6c 79 2e 20 20 54 68 65 20 66 75 6e 63 74 only. The funct
3a50: 69 6f 6e 20 72 65 74 75 72 6e 73 0a 2a 2a 20 53 ion returns.** S
3a60: 51 4c 49 54 45 5f 4f 4b 2e 0a 2a 2a 0a 2a 2a 20 QLITE_OK..**.**
3a70: 4f 6e 20 66 61 69 6c 75 72 65 2c 20 74 68 65 20 On failure, the
3a80: 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 function returns
3a90: 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e SQLITE_CANTOPEN
3aa0: 20 61 6e 64 20 6c 65 61 76 65 73 0a 2a 2a 20 2a and leaves.** *
3ab0: 69 64 20 61 6e 64 20 2a 70 52 65 61 64 6f 6e 6c id and *pReadonl
3ac0: 79 20 75 6e 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a y unchanged..*/.
3ad0: 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 4f 70 65 int sqlite3OsOpe
3ae0: 6e 52 65 61 64 57 72 69 74 65 28 0a 20 20 63 6f nReadWrite(. co
3af0: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e nst char *zFilen
3b00: 61 6d 65 2c 0a 20 20 4f 73 46 69 6c 65 20 2a 69 ame,. OsFile *i
3b10: 64 2c 0a 20 20 69 6e 74 20 2a 70 52 65 61 64 6f d,. int *pReado
3b20: 6e 6c 79 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b nly.){. int rc;
3b30: 0a 20 20 61 73 73 65 72 74 28 20 21 69 64 2d 3e . assert( !id->
3b40: 69 73 4f 70 65 6e 20 29 3b 0a 20 20 69 64 2d 3e isOpen );. id->
3b50: 64 69 72 66 64 20 3d 20 2d 31 3b 0a 20 20 69 64 dirfd = -1;. id
3b60: 2d 3e 68 20 3d 20 6f 70 65 6e 28 7a 46 69 6c 65 ->h = open(zFile
3b70: 6e 61 6d 65 2c 20 4f 5f 52 44 57 52 7c 4f 5f 43 name, O_RDWR|O_C
3b80: 52 45 41 54 7c 4f 5f 4c 41 52 47 45 46 49 4c 45 REAT|O_LARGEFILE
3b90: 7c 4f 5f 42 49 4e 41 52 59 2c 20 30 36 34 34 29 |O_BINARY, 0644)
3ba0: 3b 0a 20 20 69 66 28 20 69 64 2d 3e 68 3c 30 20 ;. if( id->h<0
3bb0: 29 7b 0a 20 20 20 20 69 64 2d 3e 68 20 3d 20 6f ){. id->h = o
3bc0: 70 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 4f pen(zFilename, O
3bd0: 5f 52 44 4f 4e 4c 59 7c 4f 5f 4c 41 52 47 45 46 _RDONLY|O_LARGEF
3be0: 49 4c 45 7c 4f 5f 42 49 4e 41 52 59 29 3b 0a 20 ILE|O_BINARY);.
3bf0: 20 20 20 69 66 28 20 69 64 2d 3e 68 3c 30 20 29 if( id->h<0 )
3c00: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 {. return S
3c10: 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 20 QLITE_CANTOPEN;
3c20: 0a 20 20 20 20 7d 0a 20 20 20 20 2a 70 52 65 61 . }. *pRea
3c30: 64 6f 6e 6c 79 20 3d 20 31 3b 0a 20 20 7d 65 6c donly = 1;. }el
3c40: 73 65 7b 0a 20 20 20 20 2a 70 52 65 61 64 6f 6e se{. *pReadon
3c50: 6c 79 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 73 71 ly = 0;. }. sq
3c60: 6c 69 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 lite3OsEnterMute
3c70: 78 28 29 3b 0a 20 20 72 63 20 3d 20 66 69 6e 64 x();. rc = find
3c80: 4c 6f 63 6b 49 6e 66 6f 28 69 64 2d 3e 68 2c 20 LockInfo(id->h,
3c90: 26 69 64 2d 3e 70 4c 6f 63 6b 2c 20 26 69 64 2d &id->pLock, &id-
3ca0: 3e 70 4f 70 65 6e 29 3b 0a 20 20 73 71 6c 69 74 >pOpen);. sqlit
3cb0: 65 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 29 e3OsLeaveMutex()
3cc0: 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 ;. if( rc ){.
3cd0: 20 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b 0a close(id->h);.
3ce0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 return SQLIT
3cf0: 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 0a 20 20 69 E_NOMEM;. }. i
3d00: 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 30 3b d->locktype = 0;
3d10: 0a 20 20 69 64 2d 3e 69 73 4f 70 65 6e 20 3d 20 . id->isOpen =
3d20: 31 3b 0a 20 20 54 52 41 43 45 33 28 22 4f 50 45 1;. TRACE3("OPE
3d30: 4e 20 20 20 20 25 2d 33 64 20 25 73 5c 6e 22 2c N %-3d %s\n",
3d40: 20 69 64 2d 3e 68 2c 20 7a 46 69 6c 65 6e 61 6d id->h, zFilenam
3d50: 65 29 3b 0a 20 20 4f 70 65 6e 43 6f 75 6e 74 65 e);. OpenCounte
3d60: 72 28 2b 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 r(+1);. return
3d70: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f SQLITE_OK;.}.../
3d80: 2a 0a 2a 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 *.** Attempt to
3d90: 6f 70 65 6e 20 61 20 6e 65 77 20 66 69 6c 65 20 open a new file
3da0: 66 6f 72 20 65 78 63 6c 75 73 69 76 65 20 61 63 for exclusive ac
3db0: 63 65 73 73 20 62 79 20 74 68 69 73 20 70 72 6f cess by this pro
3dc0: 63 65 73 73 2e 0a 2a 2a 20 54 68 65 20 66 69 6c cess..** The fil
3dd0: 65 20 77 69 6c 6c 20 62 65 20 6f 70 65 6e 65 64 e will be opened
3de0: 20 66 6f 72 20 62 6f 74 68 20 72 65 61 64 69 6e for both readin
3df0: 67 20 61 6e 64 20 77 72 69 74 69 6e 67 2e 20 20 g and writing.
3e00: 54 6f 20 61 76 6f 69 64 0a 2a 2a 20 61 20 70 6f To avoid.** a po
3e10: 74 65 6e 74 69 61 6c 20 73 65 63 75 72 69 74 79 tential security
3e20: 20 70 72 6f 62 6c 65 6d 2c 20 77 65 20 64 6f 20 problem, we do
3e30: 6e 6f 74 20 61 6c 6c 6f 77 20 74 68 65 20 66 69 not allow the fi
3e40: 6c 65 20 74 6f 20 68 61 76 65 0a 2a 2a 20 70 72 le to have.** pr
3e50: 65 76 69 6f 75 73 6c 79 20 65 78 69 73 74 65 64 eviously existed
3e60: 2e 20 20 4e 6f 72 20 64 6f 20 77 65 20 61 6c 6c . Nor do we all
3e70: 6f 77 20 74 68 65 20 66 69 6c 65 20 74 6f 20 62 ow the file to b
3e80: 65 20 61 20 73 79 6d 62 6f 6c 69 63 0a 2a 2a 20 e a symbolic.**
3e90: 6c 69 6e 6b 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 64 link..**.** If d
3ea0: 65 6c 46 6c 61 67 20 69 73 20 74 72 75 65 2c 20 elFlag is true,
3eb0: 74 68 65 6e 20 6d 61 6b 65 20 61 72 72 61 6e 67 then make arrang
3ec0: 65 6d 65 6e 74 73 20 74 6f 20 61 75 74 6f 6d 61 ements to automa
3ed0: 74 69 63 61 6c 6c 79 20 64 65 6c 65 74 65 0a 2a tically delete.*
3ee0: 2a 20 74 68 65 20 66 69 6c 65 20 77 68 65 6e 20 * the file when
3ef0: 69 74 20 69 73 20 63 6c 6f 73 65 64 2e 0a 2a 2a it is closed..**
3f00: 0a 2a 2a 20 4f 6e 20 73 75 63 63 65 73 73 2c 20 .** On success,
3f10: 77 72 69 74 65 20 74 68 65 20 66 69 6c 65 20 68 write the file h
3f20: 61 6e 64 6c 65 20 69 6e 74 6f 20 2a 69 64 20 61 andle into *id a
3f30: 6e 64 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 nd return SQLITE
3f40: 5f 4f 4b 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 20 66 61 _OK..**.** On fa
3f50: 69 6c 75 72 65 2c 20 72 65 74 75 72 6e 20 53 51 ilure, return SQ
3f60: 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 2e 0a 2a LITE_CANTOPEN..*
3f70: 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 4f /.int sqlite3OsO
3f80: 70 65 6e 45 78 63 6c 75 73 69 76 65 28 63 6f 6e penExclusive(con
3f90: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 st char *zFilena
3fa0: 6d 65 2c 20 4f 73 46 69 6c 65 20 2a 69 64 2c 20 me, OsFile *id,
3fb0: 69 6e 74 20 64 65 6c 46 6c 61 67 29 7b 0a 20 20 int delFlag){.
3fc0: 69 6e 74 20 72 63 3b 0a 20 20 61 73 73 65 72 74 int rc;. assert
3fd0: 28 20 21 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b ( !id->isOpen );
3fe0: 0a 20 20 69 66 28 20 61 63 63 65 73 73 28 7a 46 . if( access(zF
3ff0: 69 6c 65 6e 61 6d 65 2c 20 30 29 3d 3d 30 20 29 ilename, 0)==0 )
4000: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c {. return SQL
4010: 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 0a 20 20 ITE_CANTOPEN;.
4020: 7d 0a 20 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 }. id->dirfd =
4030: 2d 31 3b 0a 20 20 69 64 2d 3e 68 20 3d 20 6f 70 -1;. id->h = op
4040: 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c 0a 20 20 en(zFilename,.
4050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 5f O_
4060: 52 44 57 52 7c 4f 5f 43 52 45 41 54 7c 4f 5f 45 RDWR|O_CREAT|O_E
4070: 58 43 4c 7c 4f 5f 4e 4f 46 4f 4c 4c 4f 57 7c 4f XCL|O_NOFOLLOW|O
4080: 5f 4c 41 52 47 45 46 49 4c 45 7c 4f 5f 42 49 4e _LARGEFILE|O_BIN
4090: 41 52 59 2c 20 30 36 30 30 29 3b 0a 20 20 69 66 ARY, 0600);. if
40a0: 28 20 69 64 2d 3e 68 3c 30 20 29 7b 0a 20 20 20 ( id->h<0 ){.
40b0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 return SQLITE_C
40c0: 41 4e 54 4f 50 45 4e 3b 0a 20 20 7d 0a 20 20 73 ANTOPEN;. }. s
40d0: 71 6c 69 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 qlite3OsEnterMut
40e0: 65 78 28 29 3b 0a 20 20 72 63 20 3d 20 66 69 6e ex();. rc = fin
40f0: 64 4c 6f 63 6b 49 6e 66 6f 28 69 64 2d 3e 68 2c dLockInfo(id->h,
4100: 20 26 69 64 2d 3e 70 4c 6f 63 6b 2c 20 26 69 64 &id->pLock, &id
4110: 2d 3e 70 4f 70 65 6e 29 3b 0a 20 20 73 71 6c 69 ->pOpen);. sqli
4120: 74 65 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 te3OsLeaveMutex(
4130: 29 3b 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 );. if( rc ){.
4140: 20 20 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b close(id->h);
4150: 0a 20 20 20 20 75 6e 6c 69 6e 6b 28 7a 46 69 6c . unlink(zFil
4160: 65 6e 61 6d 65 29 3b 0a 20 20 20 20 72 65 74 75 ename);. retu
4170: 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b rn SQLITE_NOMEM;
4180: 0a 20 20 7d 0a 20 20 69 64 2d 3e 6c 6f 63 6b 74 . }. id->lockt
4190: 79 70 65 20 3d 20 30 3b 0a 20 20 69 64 2d 3e 69 ype = 0;. id->i
41a0: 73 4f 70 65 6e 20 3d 20 31 3b 0a 20 20 69 66 28 sOpen = 1;. if(
41b0: 20 64 65 6c 46 6c 61 67 20 29 7b 0a 20 20 20 20 delFlag ){.
41c0: 75 6e 6c 69 6e 6b 28 7a 46 69 6c 65 6e 61 6d 65 unlink(zFilename
41d0: 29 3b 0a 20 20 7d 0a 20 20 54 52 41 43 45 33 28 );. }. TRACE3(
41e0: 22 4f 50 45 4e 2d 45 58 20 25 2d 33 64 20 25 73 "OPEN-EX %-3d %s
41f0: 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 7a 46 69 6c \n", id->h, zFil
4200: 65 6e 61 6d 65 29 3b 0a 20 20 4f 70 65 6e 43 6f ename);. OpenCo
4210: 75 6e 74 65 72 28 2b 31 29 3b 0a 20 20 72 65 74 unter(+1);. ret
4220: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d urn SQLITE_OK;.}
4230: 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 6d 70 74 20 ../*.** Attempt
4240: 74 6f 20 6f 70 65 6e 20 61 20 6e 65 77 20 66 69 to open a new fi
4250: 6c 65 20 66 6f 72 20 72 65 61 64 2d 6f 6e 6c 79 le for read-only
4260: 20 61 63 63 65 73 73 2e 0a 2a 2a 0a 2a 2a 20 4f access..**.** O
4270: 6e 20 73 75 63 63 65 73 73 2c 20 77 72 69 74 65 n success, write
4280: 20 74 68 65 20 66 69 6c 65 20 68 61 6e 64 6c 65 the file handle
4290: 20 69 6e 74 6f 20 2a 69 64 20 61 6e 64 20 72 65 into *id and re
42a0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 2e 0a turn SQLITE_OK..
42b0: 2a 2a 0a 2a 2a 20 4f 6e 20 66 61 69 6c 75 72 65 **.** On failure
42c0: 2c 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f , return SQLITE_
42d0: 43 41 4e 54 4f 50 45 4e 2e 0a 2a 2f 0a 69 6e 74 CANTOPEN..*/.int
42e0: 20 73 71 6c 69 74 65 33 4f 73 4f 70 65 6e 52 65 sqlite3OsOpenRe
42f0: 61 64 4f 6e 6c 79 28 63 6f 6e 73 74 20 63 68 61 adOnly(const cha
4300: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 4f 73 r *zFilename, Os
4310: 46 69 6c 65 20 2a 69 64 29 7b 0a 20 20 69 6e 74 File *id){. int
4320: 20 72 63 3b 0a 20 20 61 73 73 65 72 74 28 20 21 rc;. assert( !
4330: 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 20 id->isOpen );.
4340: 69 64 2d 3e 64 69 72 66 64 20 3d 20 2d 31 3b 0a id->dirfd = -1;.
4350: 20 20 69 64 2d 3e 68 20 3d 20 6f 70 65 6e 28 7a id->h = open(z
4360: 46 69 6c 65 6e 61 6d 65 2c 20 4f 5f 52 44 4f 4e Filename, O_RDON
4370: 4c 59 7c 4f 5f 4c 41 52 47 45 46 49 4c 45 7c 4f LY|O_LARGEFILE|O
4380: 5f 42 49 4e 41 52 59 29 3b 0a 20 20 69 66 28 20 _BINARY);. if(
4390: 69 64 2d 3e 68 3c 30 20 29 7b 0a 20 20 20 20 72 id->h<0 ){. r
43a0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e eturn SQLITE_CAN
43b0: 54 4f 50 45 4e 3b 0a 20 20 7d 0a 20 20 73 71 6c TOPEN;. }. sql
43c0: 69 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 78 ite3OsEnterMutex
43d0: 28 29 3b 0a 20 20 72 63 20 3d 20 66 69 6e 64 4c ();. rc = findL
43e0: 6f 63 6b 49 6e 66 6f 28 69 64 2d 3e 68 2c 20 26 ockInfo(id->h, &
43f0: 69 64 2d 3e 70 4c 6f 63 6b 2c 20 26 69 64 2d 3e id->pLock, &id->
4400: 70 4f 70 65 6e 29 3b 0a 20 20 73 71 6c 69 74 65 pOpen);. sqlite
4410: 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 29 3b 3OsLeaveMutex();
4420: 0a 20 20 69 66 28 20 72 63 20 29 7b 0a 20 20 20 . if( rc ){.
4430: 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b 0a 20 close(id->h);.
4440: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 return SQLITE
4450: 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 0a 20 20 69 64 _NOMEM;. }. id
4460: 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 30 3b 0a ->locktype = 0;.
4470: 20 20 69 64 2d 3e 69 73 4f 70 65 6e 20 3d 20 31 id->isOpen = 1
4480: 3b 0a 20 20 54 52 41 43 45 33 28 22 4f 50 45 4e ;. TRACE3("OPEN
4490: 2d 52 4f 20 25 2d 33 64 20 25 73 5c 6e 22 2c 20 -RO %-3d %s\n",
44a0: 69 64 2d 3e 68 2c 20 7a 46 69 6c 65 6e 61 6d 65 id->h, zFilename
44b0: 29 3b 0a 20 20 4f 70 65 6e 43 6f 75 6e 74 65 72 );. OpenCounter
44c0: 28 2b 31 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 (+1);. return S
44d0: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a QLITE_OK;.}../*.
44e0: 2a 2a 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 ** Attempt to op
44f0: 65 6e 20 61 20 66 69 6c 65 20 64 65 73 63 72 69 en a file descri
4500: 70 74 6f 72 20 66 6f 72 20 74 68 65 20 64 69 72 ptor for the dir
4510: 65 63 74 6f 72 79 20 74 68 61 74 20 63 6f 6e 74 ectory that cont
4520: 61 69 6e 73 20 61 0a 2a 2a 20 66 69 6c 65 2e 20 ains a.** file.
4530: 20 54 68 69 73 20 66 69 6c 65 20 64 65 73 63 72 This file descr
4540: 69 70 74 6f 72 20 63 61 6e 20 62 65 20 75 73 65 iptor can be use
4550: 64 20 74 6f 20 66 73 79 6e 63 28 29 20 74 68 65 d to fsync() the
4560: 20 64 69 72 65 63 74 6f 72 79 0a 2a 2a 20 69 6e directory.** in
4570: 20 6f 72 64 65 72 20 74 6f 20 6d 61 6b 65 20 73 order to make s
4580: 75 72 65 20 74 68 65 20 63 72 65 61 74 69 6f 6e ure the creation
4590: 20 6f 66 20 61 20 6e 65 77 20 66 69 6c 65 20 69 of a new file i
45a0: 73 20 61 63 74 75 61 6c 6c 79 20 77 72 69 74 74 s actually writt
45b0: 65 6e 0a 2a 2a 20 74 6f 20 64 69 73 6b 2e 0a 2a en.** to disk..*
45c0: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e *.** This routin
45d0: 65 20 69 73 20 6f 6e 6c 79 20 6d 65 61 6e 69 6e e is only meanin
45e0: 67 66 75 6c 20 66 6f 72 20 55 6e 69 78 2e 20 20 gful for Unix.
45f0: 49 74 20 69 73 20 61 20 6e 6f 2d 6f 70 20 75 6e It is a no-op un
4600: 64 65 72 0a 2a 2a 20 77 69 6e 64 6f 77 73 20 73 der.** windows s
4610: 69 6e 63 65 20 77 69 6e 64 6f 77 73 20 64 6f 65 ince windows doe
4620: 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 68 61 s not support ha
4630: 72 64 20 6c 69 6e 6b 73 2e 0a 2a 2a 0a 2a 2a 20 rd links..**.**
4640: 4f 6e 20 73 75 63 63 65 73 73 2c 20 61 20 68 61 On success, a ha
4650: 6e 64 6c 65 20 66 6f 72 20 61 20 70 72 65 76 69 ndle for a previ
4660: 6f 75 73 6c 79 20 6f 70 65 6e 20 66 69 6c 65 20 ously open file
4670: 69 73 20 61 74 20 2a 69 64 20 69 73 0a 2a 2a 20 is at *id is.**
4680: 75 70 64 61 74 65 64 20 77 69 74 68 20 74 68 65 updated with the
4690: 20 6e 65 77 20 64 69 72 65 63 74 6f 72 79 20 66 new directory f
46a0: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 61 ile descriptor a
46b0: 6e 64 20 53 51 4c 49 54 45 5f 4f 4b 20 69 73 0a nd SQLITE_OK is.
46c0: 2a 2a 20 72 65 74 75 72 6e 65 64 2e 0a 2a 2a 0a ** returned..**.
46d0: 2a 2a 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20 74 ** On failure, t
46e0: 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 he function retu
46f0: 72 6e 73 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f rns SQLITE_CANTO
4700: 50 45 4e 20 61 6e 64 20 6c 65 61 76 65 73 0a 2a PEN and leaves.*
4710: 2a 20 2a 69 64 20 75 6e 63 68 61 6e 67 65 64 2e * *id unchanged.
4720: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f .*/.int sqlite3O
4730: 73 4f 70 65 6e 44 69 72 65 63 74 6f 72 79 28 0a sOpenDirectory(.
4740: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 const char *zD
4750: 69 72 6e 61 6d 65 2c 0a 20 20 4f 73 46 69 6c 65 irname,. OsFile
4760: 20 2a 69 64 0a 29 7b 0a 20 20 69 66 28 20 21 69 *id.){. if( !i
4770: 64 2d 3e 69 73 4f 70 65 6e 20 29 7b 0a 20 20 20 d->isOpen ){.
4780: 20 2f 2a 20 44 6f 20 6e 6f 74 20 6f 70 65 6e 20 /* Do not open
4790: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 69 66 the directory if
47a0: 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 the correspondi
47b0: 6e 67 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 61 ng file is not a
47c0: 6c 72 65 61 64 79 0a 20 20 20 20 2a 2a 20 6f 70 lready. ** op
47d0: 65 6e 2e 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 en. */. retur
47e0: 6e 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 n SQLITE_CANTOPE
47f0: 4e 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28 N;. }. assert(
4800: 20 69 64 2d 3e 64 69 72 66 64 3c 30 20 29 3b 0a id->dirfd<0 );.
4810: 20 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 6f 70 id->dirfd = op
4820: 65 6e 28 7a 44 69 72 6e 61 6d 65 2c 20 4f 5f 52 en(zDirname, O_R
4830: 44 4f 4e 4c 59 7c 4f 5f 42 49 4e 41 52 59 2c 20 DONLY|O_BINARY,
4840: 30 36 34 34 29 3b 0a 20 20 69 66 28 20 69 64 2d 0644);. if( id-
4850: 3e 64 69 72 66 64 3c 30 20 29 7b 0a 20 20 20 20 >dirfd<0 ){.
4860: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 return SQLITE_CA
4870: 4e 54 4f 50 45 4e 3b 20 0a 20 20 7d 0a 20 20 54 NTOPEN; . }. T
4880: 52 41 43 45 33 28 22 4f 50 45 4e 44 49 52 20 25 RACE3("OPENDIR %
4890: 2d 33 64 20 25 73 5c 6e 22 2c 20 69 64 2d 3e 64 -3d %s\n", id->d
48a0: 69 72 66 64 2c 20 7a 44 69 72 6e 61 6d 65 29 3b irfd, zDirname);
48b0: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 . return SQLITE
48c0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 72 _OK;.}../*.** Cr
48d0: 65 61 74 65 20 61 20 74 65 6d 70 6f 72 61 72 79 eate a temporary
48e0: 20 66 69 6c 65 20 6e 61 6d 65 20 69 6e 20 7a 42 file name in zB
48f0: 75 66 2e 20 20 7a 42 75 66 20 6d 75 73 74 20 62 uf. zBuf must b
4900: 65 20 62 69 67 20 65 6e 6f 75 67 68 20 74 6f 0a e big enough to.
4910: 2a 2a 20 68 6f 6c 64 20 61 74 20 6c 65 61 73 74 ** hold at least
4920: 20 53 51 4c 49 54 45 5f 54 45 4d 50 4e 41 4d 45 SQLITE_TEMPNAME
4930: 5f 53 49 5a 45 20 63 68 61 72 61 63 74 65 72 73 _SIZE characters
4940: 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 ..*/.int sqlite3
4950: 4f 73 54 65 6d 70 46 69 6c 65 4e 61 6d 65 28 63 OsTempFileName(c
4960: 68 61 72 20 2a 7a 42 75 66 29 7b 0a 20 20 73 74 har *zBuf){. st
4970: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 atic const char
4980: 2a 61 7a 44 69 72 73 5b 5d 20 3d 20 7b 0a 20 20 *azDirs[] = {.
4990: 20 20 20 22 2f 76 61 72 2f 74 6d 70 22 2c 0a 20 "/var/tmp",.
49a0: 20 20 20 20 22 2f 75 73 72 2f 74 6d 70 22 2c 0a "/usr/tmp",.
49b0: 20 20 20 20 20 22 2f 74 6d 70 22 2c 0a 20 20 20 "/tmp",.
49c0: 20 20 22 2e 22 2c 0a 20 20 7d 3b 0a 20 20 73 74 ".",. };. st
49d0: 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 63 68 atic unsigned ch
49e0: 61 72 20 7a 43 68 61 72 73 5b 5d 20 3d 0a 20 20 ar zChars[] =.
49f0: 20 20 22 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d "abcdefghijklm
4a00: 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 0a 20 nopqrstuvwxyz".
4a10: 20 20 20 22 41 42 43 44 45 46 47 48 49 4a 4b 4c "ABCDEFGHIJKL
4a20: 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 22 0a MNOPQRSTUVWXYZ".
4a30: 20 20 20 20 22 30 31 32 33 34 35 36 37 38 39 22 "0123456789"
4a40: 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a 20 20 ;. int i, j;.
4a50: 73 74 72 75 63 74 20 73 74 61 74 20 62 75 66 3b struct stat buf;
4a60: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
4a70: 44 69 72 20 3d 20 22 2e 22 3b 0a 20 20 66 6f 72 Dir = ".";. for
4a80: 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 (i=0; i<sizeof(a
4a90: 7a 44 69 72 73 29 2f 73 69 7a 65 6f 66 28 61 7a zDirs)/sizeof(az
4aa0: 44 69 72 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a Dirs[0]); i++){.
4ab0: 20 20 20 20 69 66 28 20 73 74 61 74 28 61 7a 44 if( stat(azD
4ac0: 69 72 73 5b 69 5d 2c 20 26 62 75 66 29 20 29 20 irs[i], &buf) )
4ad0: 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 69 66 continue;. if
4ae0: 28 20 21 53 5f 49 53 44 49 52 28 62 75 66 2e 73 ( !S_ISDIR(buf.s
4af0: 74 5f 6d 6f 64 65 29 20 29 20 63 6f 6e 74 69 6e t_mode) ) contin
4b00: 75 65 3b 0a 20 20 20 20 69 66 28 20 61 63 63 65 ue;. if( acce
4b10: 73 73 28 61 7a 44 69 72 73 5b 69 5d 2c 20 30 37 ss(azDirs[i], 07
4b20: 29 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 ) ) continue;.
4b30: 20 20 7a 44 69 72 20 3d 20 61 7a 44 69 72 73 5b zDir = azDirs[
4b40: 69 5d 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 i];. break;.
4b50: 20 7d 0a 20 20 64 6f 7b 0a 20 20 20 20 73 70 72 }. do{. spr
4b60: 69 6e 74 66 28 7a 42 75 66 2c 20 22 25 73 2f 22 intf(zBuf, "%s/"
4b70: 54 45 4d 50 5f 46 49 4c 45 5f 50 52 45 46 49 58 TEMP_FILE_PREFIX
4b80: 2c 20 7a 44 69 72 29 3b 0a 20 20 20 20 6a 20 3d , zDir);. j =
4b90: 20 73 74 72 6c 65 6e 28 7a 42 75 66 29 3b 0a 20 strlen(zBuf);.
4ba0: 20 20 20 73 71 6c 69 74 65 33 52 61 6e 64 6f 6d sqlite3Random
4bb0: 6e 65 73 73 28 31 35 2c 20 26 7a 42 75 66 5b 6a ness(15, &zBuf[j
4bc0: 5d 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b ]);. for(i=0;
4bd0: 20 69 3c 31 35 3b 20 69 2b 2b 2c 20 6a 2b 2b 29 i<15; i++, j++)
4be0: 7b 0a 20 20 20 20 20 20 7a 42 75 66 5b 6a 5d 20 {. zBuf[j]
4bf0: 3d 20 28 63 68 61 72 29 7a 43 68 61 72 73 5b 20 = (char)zChars[
4c00: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 ((unsigned char)
4c10: 7a 42 75 66 5b 6a 5d 29 25 28 73 69 7a 65 6f 66 zBuf[j])%(sizeof
4c20: 28 7a 43 68 61 72 73 29 2d 31 29 20 5d 3b 0a 20 (zChars)-1) ];.
4c30: 20 20 20 7d 0a 20 20 20 20 7a 42 75 66 5b 6a 5d }. zBuf[j]
4c40: 20 3d 20 30 3b 0a 20 20 7d 77 68 69 6c 65 28 20 = 0;. }while(
4c50: 61 63 63 65 73 73 28 7a 42 75 66 2c 30 29 3d 3d access(zBuf,0)==
4c60: 30 20 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 0 );. return SQ
4c70: 4c 49 54 45 5f 4f 4b 3b 20 0a 7d 0a 0a 2f 2a 0a LITE_OK; .}../*.
4c80: 2a 2a 20 52 65 61 64 20 64 61 74 61 20 66 72 6f ** Read data fro
4c90: 6d 20 61 20 66 69 6c 65 20 69 6e 74 6f 20 61 20 m a file into a
4ca0: 62 75 66 66 65 72 2e 20 20 52 65 74 75 72 6e 20 buffer. Return
4cb0: 53 51 4c 49 54 45 5f 4f 4b 20 69 66 20 61 6c 6c SQLITE_OK if all
4cc0: 0a 2a 2a 20 62 79 74 65 73 20 77 65 72 65 20 72 .** bytes were r
4cd0: 65 61 64 20 73 75 63 63 65 73 73 66 75 6c 6c 79 ead successfully
4ce0: 20 61 6e 64 20 53 51 4c 49 54 45 5f 49 4f 45 52 and SQLITE_IOER
4cf0: 52 20 69 66 20 61 6e 79 74 68 69 6e 67 20 67 6f R if anything go
4d00: 65 73 0a 2a 2a 20 77 72 6f 6e 67 2e 0a 2a 2f 0a es.** wrong..*/.
4d10: 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 52 65 61 int sqlite3OsRea
4d20: 64 28 4f 73 46 69 6c 65 20 2a 69 64 2c 20 76 6f d(OsFile *id, vo
4d30: 69 64 20 2a 70 42 75 66 2c 20 69 6e 74 20 61 6d id *pBuf, int am
4d40: 74 29 7b 0a 20 20 69 6e 74 20 67 6f 74 3b 0a 20 t){. int got;.
4d50: 20 61 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f assert( id->isO
4d60: 70 65 6e 20 29 3b 0a 20 20 53 69 6d 75 6c 61 74 pen );. Simulat
4d70: 65 49 4f 45 72 72 6f 72 28 53 51 4c 49 54 45 5f eIOError(SQLITE_
4d80: 49 4f 45 52 52 29 3b 0a 20 20 54 49 4d 45 52 5f IOERR);. TIMER_
4d90: 53 54 41 52 54 3b 0a 20 20 67 6f 74 20 3d 20 72 START;. got = r
4da0: 65 61 64 28 69 64 2d 3e 68 2c 20 70 42 75 66 2c ead(id->h, pBuf,
4db0: 20 61 6d 74 29 3b 0a 20 20 54 49 4d 45 52 5f 45 amt);. TIMER_E
4dc0: 4e 44 3b 0a 20 20 54 52 41 43 45 34 28 22 52 45 ND;. TRACE4("RE
4dd0: 41 44 20 20 20 20 25 2d 33 64 20 25 37 64 20 25 AD %-3d %7d %
4de0: 64 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 6c 61 73 d\n", id->h, las
4df0: 74 5f 70 61 67 65 2c 20 65 6c 61 70 73 65 29 3b t_page, elapse);
4e00: 0a 20 20 53 45 45 4b 28 30 29 3b 0a 20 20 2f 2a . SEEK(0);. /*
4e10: 20 69 66 28 20 67 6f 74 3c 30 20 29 20 67 6f 74 if( got<0 ) got
4e20: 20 3d 20 30 3b 20 2a 2f 0a 20 20 69 66 28 20 67 = 0; */. if( g
4e30: 6f 74 3d 3d 61 6d 74 20 29 7b 0a 20 20 20 20 72 ot==amt ){. r
4e40: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b eturn SQLITE_OK;
4e50: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 . }else{. re
4e60: 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 turn SQLITE_IOER
4e70: 52 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 R;. }.}../*.**
4e80: 57 72 69 74 65 20 64 61 74 61 20 66 72 6f 6d 20 Write data from
4e90: 61 20 62 75 66 66 65 72 20 69 6e 74 6f 20 61 20 a buffer into a
4ea0: 66 69 6c 65 2e 20 20 52 65 74 75 72 6e 20 53 51 file. Return SQ
4eb0: 4c 49 54 45 5f 4f 4b 20 6f 6e 20 73 75 63 63 65 LITE_OK on succe
4ec0: 73 73 0a 2a 2a 20 6f 72 20 73 6f 6d 65 20 6f 74 ss.** or some ot
4ed0: 68 65 72 20 65 72 72 6f 72 20 63 6f 64 65 20 6f her error code o
4ee0: 6e 20 66 61 69 6c 75 72 65 2e 0a 2a 2f 0a 69 6e n failure..*/.in
4ef0: 74 20 73 71 6c 69 74 65 33 4f 73 57 72 69 74 65 t sqlite3OsWrite
4f00: 28 4f 73 46 69 6c 65 20 2a 69 64 2c 20 63 6f 6e (OsFile *id, con
4f10: 73 74 20 76 6f 69 64 20 2a 70 42 75 66 2c 20 69 st void *pBuf, i
4f20: 6e 74 20 61 6d 74 29 7b 0a 20 20 69 6e 74 20 77 nt amt){. int w
4f30: 72 6f 74 65 20 3d 20 30 3b 0a 20 20 61 73 73 65 rote = 0;. asse
4f40: 72 74 28 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 rt( id->isOpen )
4f50: 3b 0a 20 20 53 69 6d 75 6c 61 74 65 49 4f 45 72 ;. SimulateIOEr
4f60: 72 6f 72 28 53 51 4c 49 54 45 5f 49 4f 45 52 52 ror(SQLITE_IOERR
4f70: 29 3b 0a 20 20 54 49 4d 45 52 5f 53 54 41 52 54 );. TIMER_START
4f80: 3b 0a 20 20 77 68 69 6c 65 28 20 61 6d 74 3e 30 ;. while( amt>0
4f90: 20 26 26 20 28 77 72 6f 74 65 20 3d 20 77 72 69 && (wrote = wri
4fa0: 74 65 28 69 64 2d 3e 68 2c 20 70 42 75 66 2c 20 te(id->h, pBuf,
4fb0: 61 6d 74 29 29 3e 30 20 29 7b 0a 20 20 20 20 61 amt))>0 ){. a
4fc0: 6d 74 20 2d 3d 20 77 72 6f 74 65 3b 0a 20 20 20 mt -= wrote;.
4fd0: 20 70 42 75 66 20 3d 20 26 28 28 63 68 61 72 2a pBuf = &((char*
4fe0: 29 70 42 75 66 29 5b 77 72 6f 74 65 5d 3b 0a 20 )pBuf)[wrote];.
4ff0: 20 7d 0a 20 20 54 49 4d 45 52 5f 45 4e 44 3b 0a }. TIMER_END;.
5000: 20 20 54 52 41 43 45 34 28 22 57 52 49 54 45 20 TRACE4("WRITE
5010: 20 20 25 2d 33 64 20 25 37 64 20 25 64 5c 6e 22 %-3d %7d %d\n"
5020: 2c 20 69 64 2d 3e 68 2c 20 6c 61 73 74 5f 70 61 , id->h, last_pa
5030: 67 65 2c 20 65 6c 61 70 73 65 29 3b 0a 20 20 53 ge, elapse);. S
5040: 45 45 4b 28 30 29 3b 0a 20 20 69 66 28 20 61 6d EEK(0);. if( am
5050: 74 3e 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 t>0 ){. retur
5060: 6e 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3b 0a 20 n SQLITE_FULL;.
5070: 20 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 }. return SQLI
5080: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 TE_OK;.}../*.**
5090: 4d 6f 76 65 20 74 68 65 20 72 65 61 64 2f 77 72 Move the read/wr
50a0: 69 74 65 20 70 6f 69 6e 74 65 72 20 69 6e 20 61 ite pointer in a
50b0: 20 66 69 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 file..*/.int sq
50c0: 6c 69 74 65 33 4f 73 53 65 65 6b 28 4f 73 46 69 lite3OsSeek(OsFi
50d0: 6c 65 20 2a 69 64 2c 20 6f 66 66 5f 74 20 6f 66 le *id, off_t of
50e0: 66 73 65 74 29 7b 0a 20 20 61 73 73 65 72 74 28 fset){. assert(
50f0: 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 id->isOpen );.
5100: 20 53 45 45 4b 28 6f 66 66 73 65 74 2f 31 30 32 SEEK(offset/102
5110: 34 20 2b 20 31 29 3b 0a 20 20 6c 73 65 65 6b 28 4 + 1);. lseek(
5120: 69 64 2d 3e 68 2c 20 6f 66 66 73 65 74 2c 20 53 id->h, offset, S
5130: 45 45 4b 5f 53 45 54 29 3b 0a 20 20 72 65 74 75 EEK_SET);. retu
5140: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a rn SQLITE_OK;.}.
5150: 0a 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 73 75 72 65 ./*.** Make sure
5160: 20 61 6c 6c 20 77 72 69 74 65 73 20 74 6f 20 61 all writes to a
5170: 20 70 61 72 74 69 63 75 6c 61 72 20 66 69 6c 65 particular file
5180: 20 61 72 65 20 63 6f 6d 6d 69 74 74 65 64 20 74 are committed t
5190: 6f 20 64 69 73 6b 2e 0a 2a 2a 0a 2a 2a 20 55 6e o disk..**.** Un
51a0: 64 65 72 20 55 6e 69 78 2c 20 61 6c 73 6f 20 6d der Unix, also m
51b0: 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 74 68 ake sure that th
51c0: 65 20 64 69 72 65 63 74 6f 72 79 20 65 6e 74 72 e directory entr
51d0: 79 20 66 6f 72 20 74 68 65 20 66 69 6c 65 0a 2a y for the file.*
51e0: 2a 20 68 61 73 20 62 65 65 6e 20 63 72 65 61 74 * has been creat
51f0: 65 64 20 62 79 20 66 73 79 6e 63 2d 69 6e 67 20 ed by fsync-ing
5200: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 74 68 the directory th
5210: 61 74 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 at contains the
5220: 66 69 6c 65 2e 0a 2a 2a 20 49 66 20 77 65 20 64 file..** If we d
5230: 6f 20 6e 6f 74 20 64 6f 20 74 68 69 73 20 61 6e o not do this an
5240: 64 20 77 65 20 65 6e 63 6f 75 6e 74 65 72 20 61 d we encounter a
5250: 20 70 6f 77 65 72 20 66 61 69 6c 75 72 65 2c 20 power failure,
5260: 74 68 65 20 64 69 72 65 63 74 6f 72 79 0a 2a 2a the directory.**
5270: 20 65 6e 74 72 79 20 66 6f 72 20 74 68 65 20 6a entry for the j
5280: 6f 75 72 6e 61 6c 20 6d 69 67 68 74 20 6e 6f 74 ournal might not
5290: 20 65 78 69 73 74 20 61 66 74 65 72 20 77 65 20 exist after we
52a0: 72 65 62 6f 6f 74 2e 20 20 54 68 65 20 6e 65 78 reboot. The nex
52b0: 74 0a 2a 2a 20 53 51 4c 69 74 65 20 74 6f 20 61 t.** SQLite to a
52c0: 63 63 65 73 73 20 74 68 65 20 66 69 6c 65 20 77 ccess the file w
52d0: 69 6c 6c 20 6e 6f 74 20 6b 6e 6f 77 20 74 68 61 ill not know tha
52e0: 74 20 74 68 65 20 6a 6f 75 72 6e 61 6c 20 65 78 t the journal ex
52f0: 69 73 74 73 20 28 62 65 63 61 75 73 65 0a 2a 2a ists (because.**
5300: 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 65 the directory e
5310: 6e 74 72 79 20 66 6f 72 20 74 68 65 20 6a 6f 75 ntry for the jou
5320: 72 6e 61 6c 20 77 61 73 20 6e 65 76 65 72 20 63 rnal was never c
5330: 72 65 61 74 65 64 29 20 61 6e 64 20 74 68 65 20 reated) and the
5340: 74 72 61 6e 73 61 63 74 69 6f 6e 0a 2a 2a 20 77 transaction.** w
5350: 69 6c 6c 20 6e 6f 74 20 72 6f 6c 6c 20 62 61 63 ill not roll bac
5360: 6b 20 2d 20 70 6f 73 73 69 62 6c 79 20 6c 65 61 k - possibly lea
5370: 64 69 6e 67 20 74 6f 20 64 61 74 61 62 61 73 65 ding to database
5380: 20 63 6f 72 72 75 70 74 69 6f 6e 2e 0a 2a 2f 0a corruption..*/.
5390: 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 53 79 6e int sqlite3OsSyn
53a0: 63 28 4f 73 46 69 6c 65 20 2a 69 64 29 7b 0a 20 c(OsFile *id){.
53b0: 20 61 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f assert( id->isO
53c0: 70 65 6e 20 29 3b 0a 20 20 53 69 6d 75 6c 61 74 pen );. Simulat
53d0: 65 49 4f 45 72 72 6f 72 28 53 51 4c 49 54 45 5f eIOError(SQLITE_
53e0: 49 4f 45 52 52 29 3b 0a 20 20 54 52 41 43 45 32 IOERR);. TRACE2
53f0: 28 22 53 59 4e 43 20 20 20 20 25 2d 33 64 5c 6e ("SYNC %-3d\n
5400: 22 2c 20 69 64 2d 3e 68 29 3b 0a 20 20 69 66 28 ", id->h);. if(
5410: 20 66 73 79 6e 63 28 69 64 2d 3e 68 29 20 29 7b fsync(id->h) ){
5420: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 . return SQLI
5430: 54 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 20 20 TE_IOERR;. }.
5440: 69 66 28 20 69 64 2d 3e 64 69 72 66 64 3e 3d 30 if( id->dirfd>=0
5450: 20 29 7b 0a 20 20 20 20 54 52 41 43 45 32 28 22 ){. TRACE2("
5460: 44 49 52 53 59 4e 43 20 25 2d 33 64 5c 6e 22 2c DIRSYNC %-3d\n",
5470: 20 69 64 2d 3e 64 69 72 66 64 29 3b 0a 20 20 20 id->dirfd);.
5480: 20 66 73 79 6e 63 28 69 64 2d 3e 64 69 72 66 64 fsync(id->dirfd
5490: 29 3b 0a 20 20 20 20 63 6c 6f 73 65 28 69 64 2d );. close(id-
54a0: 3e 64 69 72 66 64 29 3b 20 20 2f 2a 20 4f 6e 6c >dirfd); /* Onl
54b0: 79 20 6e 65 65 64 20 74 6f 20 73 79 6e 63 20 6f y need to sync o
54c0: 6e 63 65 2c 20 73 6f 20 63 6c 6f 73 65 20 74 68 nce, so close th
54d0: 65 20 64 69 72 65 63 74 6f 72 79 20 2a 2f 0a 20 e directory */.
54e0: 20 20 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 2d id->dirfd = -
54f0: 31 3b 20 20 20 20 2f 2a 20 77 68 65 6e 20 77 65 1; /* when we
5500: 20 61 72 65 20 64 6f 6e 65 2e 20 2a 2f 0a 20 20 are done. */.
5510: 7d 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 }. return SQLIT
5520: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 E_OK;.}../*.** S
5530: 79 6e 63 20 74 68 65 20 64 69 72 65 63 74 6f 72 ync the director
5540: 79 20 7a 44 69 72 6e 61 6d 65 2e 20 54 68 69 73 y zDirname. This
5550: 20 69 73 20 61 20 6e 6f 2d 6f 70 20 6f 6e 20 6f is a no-op on o
5560: 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 73 perating systems
5570: 20 6f 74 68 65 72 0a 2a 2a 20 74 68 61 6e 20 55 other.** than U
5580: 4e 49 58 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 NIX..*/.int sqli
5590: 74 65 33 4f 73 53 79 6e 63 44 69 72 65 63 74 6f te3OsSyncDirecto
55a0: 72 79 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a ry(const char *z
55b0: 44 69 72 6e 61 6d 65 29 7b 0a 20 20 69 6e 74 20 Dirname){. int
55c0: 66 64 3b 0a 20 20 69 6e 74 20 72 3b 0a 20 20 53 fd;. int r;. S
55d0: 69 6d 75 6c 61 74 65 49 4f 45 72 72 6f 72 28 53 imulateIOError(S
55e0: 51 4c 49 54 45 5f 49 4f 45 52 52 29 3b 0a 20 20 QLITE_IOERR);.
55f0: 66 64 20 3d 20 6f 70 65 6e 28 7a 44 69 72 6e 61 fd = open(zDirna
5600: 6d 65 2c 20 4f 5f 52 44 4f 4e 4c 59 7c 4f 5f 42 me, O_RDONLY|O_B
5610: 49 4e 41 52 59 2c 20 30 36 34 34 29 3b 0a 20 20 INARY, 0644);.
5620: 54 52 41 43 45 33 28 22 44 49 52 53 59 4e 43 20 TRACE3("DIRSYNC
5630: 25 2d 33 64 20 28 25 73 29 5c 6e 22 2c 20 66 64 %-3d (%s)\n", fd
5640: 2c 20 7a 44 69 72 6e 61 6d 65 29 3b 0a 20 20 69 , zDirname);. i
5650: 66 28 20 66 64 3c 30 20 29 7b 0a 20 20 20 20 72 f( fd<0 ){. r
5660: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e eturn SQLITE_CAN
5670: 54 4f 50 45 4e 3b 20 0a 20 20 7d 0a 20 20 72 20 TOPEN; . }. r
5680: 3d 20 66 73 79 6e 63 28 66 64 29 3b 0a 20 20 63 = fsync(fd);. c
5690: 6c 6f 73 65 28 66 64 29 3b 0a 20 20 72 65 74 75 lose(fd);. retu
56a0: 72 6e 20 28 28 72 3d 3d 30 29 3f 53 51 4c 49 54 rn ((r==0)?SQLIT
56b0: 45 5f 4f 4b 3a 53 51 4c 49 54 45 5f 49 4f 45 52 E_OK:SQLITE_IOER
56c0: 52 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 72 75 R);.}../*.** Tru
56d0: 6e 63 61 74 65 20 61 6e 20 6f 70 65 6e 20 66 69 ncate an open fi
56e0: 6c 65 20 74 6f 20 61 20 73 70 65 63 69 66 69 65 le to a specifie
56f0: 64 20 73 69 7a 65 0a 2a 2f 0a 69 6e 74 20 73 71 d size.*/.int sq
5700: 6c 69 74 65 33 4f 73 54 72 75 6e 63 61 74 65 28 lite3OsTruncate(
5710: 4f 73 46 69 6c 65 20 2a 69 64 2c 20 6f 66 66 5f OsFile *id, off_
5720: 74 20 6e 42 79 74 65 29 7b 0a 20 20 61 73 73 65 t nByte){. asse
5730: 72 74 28 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 rt( id->isOpen )
5740: 3b 0a 20 20 53 69 6d 75 6c 61 74 65 49 4f 45 72 ;. SimulateIOEr
5750: 72 6f 72 28 53 51 4c 49 54 45 5f 49 4f 45 52 52 ror(SQLITE_IOERR
5760: 29 3b 0a 20 20 72 65 74 75 72 6e 20 66 74 72 75 );. return ftru
5770: 6e 63 61 74 65 28 69 64 2d 3e 68 2c 20 6e 42 79 ncate(id->h, nBy
5780: 74 65 29 3d 3d 30 20 3f 20 53 51 4c 49 54 45 5f te)==0 ? SQLITE_
5790: 4f 4b 20 3a 20 53 51 4c 49 54 45 5f 49 4f 45 52 OK : SQLITE_IOER
57a0: 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 74 65 R;.}../*.** Dete
57b0: 72 6d 69 6e 65 20 74 68 65 20 63 75 72 72 65 6e rmine the curren
57c0: 74 20 73 69 7a 65 20 6f 66 20 61 20 66 69 6c 65 t size of a file
57d0: 20 69 6e 20 62 79 74 65 73 0a 2a 2f 0a 69 6e 74 in bytes.*/.int
57e0: 20 73 71 6c 69 74 65 33 4f 73 46 69 6c 65 53 69 sqlite3OsFileSi
57f0: 7a 65 28 4f 73 46 69 6c 65 20 2a 69 64 2c 20 6f ze(OsFile *id, o
5800: 66 66 5f 74 20 2a 70 53 69 7a 65 29 7b 0a 20 20 ff_t *pSize){.
5810: 73 74 72 75 63 74 20 73 74 61 74 20 62 75 66 3b struct stat buf;
5820: 0a 20 20 61 73 73 65 72 74 28 20 69 64 2d 3e 69 . assert( id->i
5830: 73 4f 70 65 6e 20 29 3b 0a 20 20 53 69 6d 75 6c sOpen );. Simul
5840: 61 74 65 49 4f 45 72 72 6f 72 28 53 51 4c 49 54 ateIOError(SQLIT
5850: 45 5f 49 4f 45 52 52 29 3b 0a 20 20 69 66 28 20 E_IOERR);. if(
5860: 66 73 74 61 74 28 69 64 2d 3e 68 2c 20 26 62 75 fstat(id->h, &bu
5870: 66 29 21 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 f)!=0 ){. ret
5880: 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 urn SQLITE_IOERR
5890: 3b 0a 20 20 7d 0a 20 20 2a 70 53 69 7a 65 20 3d ;. }. *pSize =
58a0: 20 62 75 66 2e 73 74 5f 73 69 7a 65 3b 0a 20 20 buf.st_size;.
58b0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b return SQLITE_OK
58c0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 ;.}../*.** This
58d0: 72 6f 75 74 69 6e 65 20 63 68 65 63 6b 73 20 69 routine checks i
58e0: 66 20 74 68 65 72 65 20 69 73 20 61 20 52 45 53 f there is a RES
58f0: 45 52 56 45 44 20 6c 6f 63 6b 20 68 65 6c 64 20 ERVED lock held
5900: 6f 6e 20 74 68 65 20 73 70 65 63 69 66 69 65 64 on the specified
5910: 0a 2a 2a 20 66 69 6c 65 20 62 79 20 74 68 69 73 .** file by this
5920: 20 6f 72 20 61 6e 79 20 6f 74 68 65 72 20 70 72 or any other pr
5930: 6f 63 65 73 73 2e 20 49 66 20 73 75 63 68 20 61 ocess. If such a
5940: 20 6c 6f 63 6b 20 69 73 20 68 65 6c 64 2c 20 72 lock is held, r
5950: 65 74 75 72 6e 0a 2a 2a 20 6e 6f 6e 2d 7a 65 72 eturn.** non-zer
5960: 6f 2e 20 20 49 66 20 74 68 65 20 66 69 6c 65 20 o. If the file
5970: 69 73 20 75 6e 6c 6f 63 6b 65 64 20 6f 72 20 68 is unlocked or h
5980: 6f 6c 64 73 20 6f 6e 6c 79 20 53 48 41 52 45 44 olds only SHARED
5990: 20 6c 6f 63 6b 73 2c 20 74 68 65 6e 0a 2a 2a 20 locks, then.**
59a0: 72 65 74 75 72 6e 20 7a 65 72 6f 2e 0a 2a 2f 0a return zero..*/.
59b0: 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 43 68 65 int sqlite3OsChe
59c0: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 4f ckReservedLock(O
59d0: 73 46 69 6c 65 20 2a 69 64 29 7b 0a 20 20 69 6e sFile *id){. in
59e0: 74 20 72 20 3d 20 30 3b 0a 0a 20 20 61 73 73 65 t r = 0;.. asse
59f0: 72 74 28 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 rt( id->isOpen )
5a00: 3b 0a 20 20 73 71 6c 69 74 65 33 4f 73 45 6e 74 ;. sqlite3OsEnt
5a10: 65 72 4d 75 74 65 78 28 29 3b 20 2f 2a 20 4e 65 erMutex(); /* Ne
5a20: 65 64 65 64 20 62 65 63 61 75 73 65 20 69 64 2d eded because id-
5a30: 3e 70 4c 6f 63 6b 20 69 73 20 73 68 61 72 65 64 >pLock is shared
5a40: 20 61 63 72 6f 73 73 20 74 68 72 65 61 64 73 20 across threads
5a50: 2a 2f 0a 0a 20 20 2f 2a 20 43 68 65 63 6b 20 69 */.. /* Check i
5a60: 66 20 61 20 74 68 72 65 61 64 20 69 6e 20 74 68 f a thread in th
5a70: 69 73 20 70 72 6f 63 65 73 73 20 68 6f 6c 64 73 is process holds
5a80: 20 73 75 63 68 20 61 20 6c 6f 63 6b 20 2a 2f 0a such a lock */.
5a90: 20 20 69 66 28 20 69 64 2d 3e 70 4c 6f 63 6b 2d if( id->pLock-
5aa0: 3e 6c 6f 63 6b 74 79 70 65 3e 53 48 41 52 45 44 >locktype>SHARED
5ab0: 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 72 20 3d _LOCK ){. r =
5ac0: 20 31 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 4f 74 1;. }.. /* Ot
5ad0: 68 65 72 77 69 73 65 20 73 65 65 20 69 66 20 73 herwise see if s
5ae0: 6f 6d 65 20 6f 74 68 65 72 20 70 72 6f 63 65 73 ome other proces
5af0: 73 20 68 6f 6c 64 73 20 69 74 2e 0a 20 20 2a 2f s holds it.. */
5b00: 0a 20 20 69 66 28 20 21 72 20 29 7b 0a 20 20 20 . if( !r ){.
5b10: 20 73 74 72 75 63 74 20 66 6c 6f 63 6b 20 6c 6f struct flock lo
5b20: 63 6b 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 77 ck;. lock.l_w
5b30: 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 hence = SEEK_SET
5b40: 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 ;. lock.l_sta
5b50: 72 74 20 3d 20 52 45 53 45 52 56 45 44 5f 42 59 rt = RESERVED_BY
5b60: 54 45 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c TE;. lock.l_l
5b70: 65 6e 20 3d 20 31 3b 0a 20 20 20 20 6c 6f 63 6b en = 1;. lock
5b80: 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 57 52 4c 43 .l_type = F_WRLC
5b90: 4b 3b 0a 20 20 20 20 66 63 6e 74 6c 28 69 64 2d K;. fcntl(id-
5ba0: 3e 68 2c 20 46 5f 47 45 54 4c 4b 2c 20 26 6c 6f >h, F_GETLK, &lo
5bb0: 63 6b 29 3b 0a 20 20 20 20 69 66 28 20 6c 6f 63 ck);. if( loc
5bc0: 6b 2e 6c 5f 74 79 70 65 21 3d 46 5f 55 4e 4c 43 k.l_type!=F_UNLC
5bd0: 4b 20 29 7b 0a 20 20 20 20 20 20 72 20 3d 20 31 K ){. r = 1
5be0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 ;. }. }. .
5bf0: 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 4d sqlite3OsLeaveM
5c00: 75 74 65 78 28 29 3b 0a 20 20 54 52 41 43 45 33 utex();. TRACE3
5c10: 28 22 54 45 53 54 20 57 52 2d 4c 4f 43 4b 20 25 ("TEST WR-LOCK %
5c20: 64 20 25 64 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 d %d\n", id->h,
5c30: 72 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 72 3b r);.. return r;
5c40: 0a 7d 0a 0a 23 69 66 64 65 66 20 53 51 4c 49 54 .}..#ifdef SQLIT
5c50: 45 5f 44 45 42 55 47 0a 2f 2a 0a 2a 2a 20 48 65 E_DEBUG./*.** He
5c60: 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 66 6f lper function fo
5c70: 72 20 70 72 69 6e 74 69 6e 67 20 6f 75 74 20 74 r printing out t
5c80: 72 61 63 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e race information
5c90: 20 66 72 6f 6d 20 64 65 62 75 67 67 69 6e 67 0a from debugging.
5ca0: 2a 2a 20 62 69 6e 61 72 69 65 73 2e 20 54 68 69 ** binaries. Thi
5cb0: 73 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 74 s returns the st
5cc0: 72 69 6e 67 20 72 65 70 72 65 73 65 74 61 74 69 ring represetati
5cd0: 6f 6e 20 6f 66 20 74 68 65 20 73 75 70 70 6c 69 on of the suppli
5ce0: 65 64 0a 2a 2a 20 69 6e 74 65 67 65 72 20 6c 6f ed.** integer lo
5cf0: 63 6b 2d 74 79 70 65 2e 0a 2a 2f 0a 73 74 61 74 ck-type..*/.stat
5d00: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 20 ic const char *
5d10: 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 28 69 6e 74 locktypeName(int
5d20: 20 6c 6f 63 6b 74 79 70 65 29 7b 0a 20 20 73 77 locktype){. sw
5d30: 69 74 63 68 28 20 6c 6f 63 6b 74 79 70 65 20 29 itch( locktype )
5d40: 7b 0a 20 20 63 61 73 65 20 4e 4f 5f 4c 4f 43 4b {. case NO_LOCK
5d50: 3a 20 72 65 74 75 72 6e 20 22 4e 4f 4e 45 22 3b : return "NONE";
5d60: 0a 20 20 63 61 73 65 20 53 48 41 52 45 44 5f 4c . case SHARED_L
5d70: 4f 43 4b 3a 20 72 65 74 75 72 6e 20 22 53 48 41 OCK: return "SHA
5d80: 52 45 44 22 3b 0a 20 20 63 61 73 65 20 52 45 53 RED";. case RES
5d90: 45 52 56 45 44 5f 4c 4f 43 4b 3a 20 72 65 74 75 ERVED_LOCK: retu
5da0: 72 6e 20 22 52 45 53 45 52 56 45 44 22 3b 0a 20 rn "RESERVED";.
5db0: 20 63 61 73 65 20 50 45 4e 44 49 4e 47 5f 4c 4f case PENDING_LO
5dc0: 43 4b 3a 20 72 65 74 75 72 6e 20 22 50 45 4e 44 CK: return "PEND
5dd0: 49 4e 47 22 3b 0a 20 20 63 61 73 65 20 45 58 43 ING";. case EXC
5de0: 4c 55 53 49 56 45 5f 4c 4f 43 4b 3a 20 72 65 74 LUSIVE_LOCK: ret
5df0: 75 72 6e 20 22 45 58 43 4c 55 53 49 56 45 22 3b urn "EXCLUSIVE";
5e00: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 22 45 . }. return "E
5e10: 52 52 4f 52 22 3b 0a 7d 0a 23 65 6e 64 69 66 0a RROR";.}.#endif.
5e20: 0a 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 74 68 65 20 ./*.** Lock the
5e30: 66 69 6c 65 20 77 69 74 68 20 74 68 65 20 6c 6f file with the lo
5e40: 63 6b 20 73 70 65 63 69 66 69 65 64 20 62 79 20 ck specified by
5e50: 70 61 72 61 6d 65 74 65 72 20 6c 6f 63 6b 74 79 parameter lockty
5e60: 70 65 20 2d 20 6f 6e 65 0a 2a 2a 20 6f 66 20 74 pe - one.** of t
5e70: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 2a 2a he following:.**
5e80: 0a 2a 2a 20 20 20 20 20 28 31 29 20 53 48 41 52 .** (1) SHAR
5e90: 45 44 5f 4c 4f 43 4b 0a 2a 2a 20 20 20 20 20 28 ED_LOCK.** (
5ea0: 32 29 20 52 45 53 45 52 56 45 44 5f 4c 4f 43 4b 2) RESERVED_LOCK
5eb0: 0a 2a 2a 20 20 20 20 20 28 33 29 20 50 45 4e 44 .** (3) PEND
5ec0: 49 4e 47 5f 4c 4f 43 4b 0a 2a 2a 20 20 20 20 20 ING_LOCK.**
5ed0: 28 34 29 20 45 58 43 4c 55 53 49 56 45 5f 4c 4f (4) EXCLUSIVE_LO
5ee0: 43 4b 0a 2a 2a 0a 2a 2a 20 53 6f 6d 65 74 69 6d CK.**.** Sometim
5ef0: 65 73 20 77 68 65 6e 20 72 65 71 75 65 73 74 69 es when requesti
5f00: 6e 67 20 6f 6e 65 20 6c 6f 63 6b 20 73 74 61 74 ng one lock stat
5f10: 65 2c 20 61 64 64 69 74 69 6f 6e 61 6c 20 6c 6f e, additional lo
5f20: 63 6b 20 73 74 61 74 65 73 0a 2a 2a 20 61 72 65 ck states.** are
5f30: 20 69 6e 73 65 72 74 65 64 20 69 6e 20 62 65 74 inserted in bet
5f40: 77 65 65 6e 2e 20 20 54 68 65 20 6c 6f 63 6b 69 ween. The locki
5f50: 6e 67 20 6d 69 67 68 74 20 66 61 69 6c 20 6f 6e ng might fail on
5f60: 20 6f 6e 65 20 6f 66 20 74 68 65 20 6c 61 74 65 one of the late
5f70: 72 0a 2a 2a 20 74 72 61 6e 73 69 74 69 6f 6e 73 r.** transitions
5f80: 20 6c 65 61 76 69 6e 67 20 74 68 65 20 6c 6f 63 leaving the loc
5f90: 6b 20 73 74 61 74 65 20 64 69 66 66 65 72 65 6e k state differen
5fa0: 74 20 66 72 6f 6d 20 77 68 61 74 20 69 74 20 73 t from what it s
5fb0: 74 61 72 74 65 64 20 62 75 74 0a 2a 2a 20 73 74 tarted but.** st
5fc0: 69 6c 6c 20 73 68 6f 72 74 20 6f 66 20 69 74 73 ill short of its
5fd0: 20 67 6f 61 6c 2e 20 20 54 68 65 20 66 6f 6c 6c goal. The foll
5fe0: 6f 77 69 6e 67 20 63 68 61 72 74 20 73 68 6f 77 owing chart show
5ff0: 73 20 74 68 65 20 61 6c 6c 6f 77 65 64 0a 2a 2a s the allowed.**
6000: 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 61 6e 64 transitions and
6010: 20 74 68 65 20 69 6e 73 65 72 74 65 64 20 69 6e the inserted in
6020: 74 65 72 6d 65 64 69 61 74 65 20 73 74 61 74 65 termediate state
6030: 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 55 4e 4c 4f s:.**.** UNLO
6040: 43 4b 45 44 20 2d 3e 20 53 48 41 52 45 44 0a 2a CKED -> SHARED.*
6050: 2a 20 20 20 20 53 48 41 52 45 44 20 2d 3e 20 52 * SHARED -> R
6060: 45 53 45 52 56 45 44 0a 2a 2a 20 20 20 20 53 48 ESERVED.** SH
6070: 41 52 45 44 20 2d 3e 20 28 50 45 4e 44 49 4e 47 ARED -> (PENDING
6080: 29 20 2d 3e 20 45 58 43 4c 55 53 49 56 45 0a 2a ) -> EXCLUSIVE.*
6090: 2a 20 20 20 20 52 45 53 45 52 56 45 44 20 2d 3e * RESERVED ->
60a0: 20 28 50 45 4e 44 49 4e 47 29 20 2d 3e 20 45 58 (PENDING) -> EX
60b0: 43 4c 55 53 49 56 45 0a 2a 2a 20 20 20 20 50 45 CLUSIVE.** PE
60c0: 4e 44 49 4e 47 20 2d 3e 20 45 58 43 4c 55 53 49 NDING -> EXCLUSI
60d0: 56 45 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 72 6f VE.**.** This ro
60e0: 75 74 69 6e 65 20 77 69 6c 6c 20 6f 6e 6c 79 20 utine will only
60f0: 69 6e 63 72 65 61 73 65 20 61 20 6c 6f 63 6b 2e increase a lock.
6100: 20 20 55 73 65 20 74 68 65 20 73 71 6c 69 74 65 Use the sqlite
6110: 33 4f 73 55 6e 6c 6f 63 6b 28 29 0a 2a 2a 20 72 3OsUnlock().** r
6120: 6f 75 74 69 6e 65 20 74 6f 20 6c 6f 77 65 72 20 outine to lower
6130: 61 20 6c 6f 63 6b 69 6e 67 20 6c 65 76 65 6c 2e a locking level.
6140: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f .*/.int sqlite3O
6150: 73 4c 6f 63 6b 28 4f 73 46 69 6c 65 20 2a 69 64 sLock(OsFile *id
6160: 2c 20 69 6e 74 20 6c 6f 63 6b 74 79 70 65 29 7b , int locktype){
6170: 0a 20 20 2f 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 . /* The follow
6180: 69 6e 67 20 64 65 73 63 72 69 62 65 73 20 74 68 ing describes th
6190: 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e e implementation
61a0: 20 6f 66 20 74 68 65 20 76 61 72 69 6f 75 73 20 of the various
61b0: 6c 6f 63 6b 73 20 61 6e 64 0a 20 20 2a 2a 20 6c locks and. ** l
61c0: 6f 63 6b 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 ock transitions
61d0: 69 6e 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 in terms of the
61e0: 50 4f 53 49 58 20 61 64 76 69 73 6f 72 79 20 73 POSIX advisory s
61f0: 68 61 72 65 64 20 61 6e 64 20 65 78 63 6c 75 73 hared and exclus
6200: 69 76 65 0a 20 20 2a 2a 20 6c 6f 63 6b 20 70 72 ive. ** lock pr
6210: 69 6d 69 74 69 76 65 73 20 28 63 61 6c 6c 65 64 imitives (called
6220: 20 72 65 61 64 2d 6c 6f 63 6b 73 20 61 6e 64 20 read-locks and
6230: 77 72 69 74 65 2d 6c 6f 63 6b 73 20 62 65 6c 6f write-locks belo
6240: 77 2c 20 74 6f 20 61 76 6f 69 64 0a 20 20 2a 2a w, to avoid. **
6250: 20 63 6f 6e 66 75 73 69 6f 6e 20 77 69 74 68 20 confusion with
6260: 53 51 4c 69 74 65 20 6c 6f 63 6b 20 6e 61 6d 65 SQLite lock name
6270: 73 29 2e 20 54 68 65 20 61 6c 67 6f 72 69 74 68 s). The algorith
6280: 6d 73 20 61 72 65 20 63 6f 6d 70 6c 69 63 61 74 ms are complicat
6290: 65 64 0a 20 20 2a 2a 20 73 6c 69 67 68 74 6c 79 ed. ** slightly
62a0: 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 62 65 20 in order to be
62b0: 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 74 68 20 compatible with
62c0: 77 69 6e 64 6f 77 73 20 73 79 73 74 65 6d 73 20 windows systems
62d0: 73 69 6d 75 6c 74 61 6e 65 6f 75 73 6c 79 0a 20 simultaneously.
62e0: 20 2a 2a 20 61 63 63 65 73 73 69 6e 67 20 74 68 ** accessing th
62f0: 65 20 73 61 6d 65 20 64 61 74 61 62 61 73 65 20 e same database
6300: 66 69 6c 65 2c 20 69 6e 20 63 61 73 65 20 74 68 file, in case th
6310: 61 74 20 69 73 20 65 76 65 72 20 72 65 71 75 69 at is ever requi
6320: 72 65 64 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 53 red.. **. ** S
6330: 79 6d 62 6f 6c 73 20 64 65 66 69 6e 65 64 20 69 ymbols defined i
6340: 6e 20 6f 73 2e 68 20 69 6e 64 65 6e 74 69 66 79 n os.h indentify
6350: 20 74 68 65 20 27 70 65 6e 64 69 6e 67 20 62 79 the 'pending by
6360: 74 65 27 20 61 6e 64 20 74 68 65 20 27 72 65 73 te' and the 'res
6370: 65 72 76 65 64 0a 20 20 2a 2a 20 62 79 74 65 27 erved. ** byte'
6380: 2c 20 65 61 63 68 20 73 69 6e 67 6c 65 20 62 79 , each single by
6390: 74 65 73 20 61 74 20 77 65 6c 6c 20 6b 6e 6f 77 tes at well know
63a0: 6e 20 6f 66 66 73 65 74 73 2c 20 61 6e 64 20 74 n offsets, and t
63b0: 68 65 20 27 73 68 61 72 65 64 20 62 79 74 65 0a he 'shared byte.
63c0: 20 20 2a 2a 20 72 61 6e 67 65 27 2c 20 61 20 72 ** range', a r
63d0: 61 6e 67 65 20 6f 66 20 35 31 30 20 62 79 74 65 ange of 510 byte
63e0: 73 20 61 74 20 61 20 77 65 6c 6c 20 6b 6e 6f 77 s at a well know
63f0: 6e 20 6f 66 66 73 65 74 2e 0a 20 20 2a 2a 0a 20 n offset.. **.
6400: 20 2a 2a 20 54 6f 20 6f 62 74 61 69 6e 20 61 20 ** To obtain a
6410: 53 48 41 52 45 44 20 6c 6f 63 6b 2c 20 61 20 72 SHARED lock, a r
6420: 65 61 64 2d 6c 6f 63 6b 20 69 73 20 6f 62 74 61 ead-lock is obta
6430: 69 6e 65 64 20 6f 6e 20 74 68 65 20 27 70 65 6e ined on the 'pen
6440: 64 69 6e 67 0a 20 20 2a 2a 20 62 79 74 65 27 2e ding. ** byte'.
6450: 20 20 49 66 20 74 68 69 73 20 69 73 20 73 75 63 If this is suc
6460: 63 65 73 73 66 75 6c 2c 20 61 20 72 61 6e 64 6f cessful, a rando
6470: 6d 20 62 79 74 65 20 66 72 6f 6d 20 74 68 65 20 m byte from the
6480: 27 73 68 61 72 65 64 20 62 79 74 65 0a 20 20 2a 'shared byte. *
6490: 2a 20 72 61 6e 67 65 27 20 69 73 20 72 65 61 64 * range' is read
64a0: 2d 6c 6f 63 6b 65 64 20 61 6e 64 20 74 68 65 20 -locked and the
64b0: 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 27 70 65 6e lock on the 'pen
64c0: 64 69 6e 67 20 62 79 74 65 27 20 72 65 6c 65 61 ding byte' relea
64d0: 73 65 64 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 41 sed.. **. ** A
64e0: 20 70 72 6f 63 65 73 73 20 6d 61 79 20 6f 6e 6c process may onl
64f0: 79 20 6f 62 74 61 69 6e 20 61 20 52 45 53 45 52 y obtain a RESER
6500: 56 45 44 20 6c 6f 63 6b 20 61 66 74 65 72 20 69 VED lock after i
6510: 74 20 68 61 73 20 61 20 53 48 41 52 45 44 20 6c t has a SHARED l
6520: 6f 63 6b 2e 0a 20 20 2a 2a 20 41 20 52 45 53 45 ock.. ** A RESE
6530: 52 56 45 44 20 6c 6f 63 6b 20 69 73 20 69 6d 70 RVED lock is imp
6540: 6c 65 6d 65 6e 74 65 64 20 62 79 20 67 72 61 62 lemented by grab
6550: 62 69 6e 67 20 61 20 77 72 69 74 65 2d 6c 6f 63 bing a write-loc
6560: 6b 20 6f 6e 20 74 68 65 0a 20 20 2a 2a 20 27 72 k on the. ** 'r
6570: 65 73 65 72 76 65 64 20 62 79 74 65 27 2e 20 0a eserved byte'. .
6580: 20 20 2a 2a 0a 20 20 2a 2a 20 41 20 70 72 6f 63 **. ** A proc
6590: 65 73 73 20 6d 61 79 20 6f 6e 6c 79 20 6f 62 74 ess may only obt
65a0: 61 69 6e 20 61 20 50 45 4e 44 49 4e 47 20 6c 6f ain a PENDING lo
65b0: 63 6b 20 61 66 74 65 72 20 69 74 20 68 61 73 20 ck after it has
65c0: 6f 62 74 61 69 6e 65 64 20 61 0a 20 20 2a 2a 20 obtained a. **
65d0: 53 48 41 52 45 44 20 6c 6f 63 6b 2e 20 41 20 50 SHARED lock. A P
65e0: 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 69 73 20 69 ENDING lock is i
65f0: 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 6f 62 mplemented by ob
6600: 74 61 69 6e 69 6e 67 20 61 20 77 72 69 74 65 2d taining a write-
6610: 6c 6f 63 6b 0a 20 20 2a 2a 20 6f 6e 20 74 68 65 lock. ** on the
6620: 20 27 70 65 6e 64 69 6e 67 20 62 79 74 65 27 2e 'pending byte'.
6630: 20 54 68 69 73 20 65 6e 73 75 72 65 73 20 74 68 This ensures th
6640: 61 74 20 6e 6f 20 6e 65 77 20 53 48 41 52 45 44 at no new SHARED
6650: 20 6c 6f 63 6b 73 20 63 61 6e 20 62 65 0a 20 20 locks can be.
6660: 2a 2a 20 6f 62 74 61 69 6e 65 64 2c 20 62 75 74 ** obtained, but
6670: 20 65 78 69 73 74 69 6e 67 20 53 48 41 52 45 44 existing SHARED
6680: 20 6c 6f 63 6b 73 20 61 72 65 20 61 6c 6c 6f 77 locks are allow
6690: 65 64 20 74 6f 20 70 65 72 73 69 73 74 2e 20 41 ed to persist. A
66a0: 20 70 72 6f 63 65 73 73 0a 20 20 2a 2a 20 64 6f process. ** do
66b0: 65 73 20 6e 6f 74 20 68 61 76 65 20 74 6f 20 6f es not have to o
66c0: 62 74 61 69 6e 20 61 20 52 45 53 45 52 56 45 44 btain a RESERVED
66d0: 20 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 77 61 79 lock on the way
66e0: 20 74 6f 20 61 20 50 45 4e 44 49 4e 47 20 6c 6f to a PENDING lo
66f0: 63 6b 2e 0a 20 20 2a 2a 20 54 68 69 73 20 70 72 ck.. ** This pr
6700: 6f 70 65 72 74 79 20 69 73 20 75 73 65 64 20 62 operty is used b
6710: 79 20 74 68 65 20 61 6c 67 6f 72 69 74 68 6d 20 y the algorithm
6720: 66 6f 72 20 72 6f 6c 6c 69 6e 67 20 62 61 63 6b for rolling back
6730: 20 61 20 6a 6f 75 72 6e 61 6c 20 66 69 6c 65 0a a journal file.
6740: 20 20 2a 2a 20 61 66 74 65 72 20 61 20 63 72 61 ** after a cra
6750: 73 68 2e 0a 20 20 2a 2a 0a 20 20 2a 2a 20 41 6e sh.. **. ** An
6760: 20 45 58 43 4c 55 53 49 56 45 20 6c 6f 63 6b 2c EXCLUSIVE lock,
6770: 20 6f 62 74 61 69 6e 65 64 20 61 66 74 65 72 20 obtained after
6780: 61 20 50 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 69 a PENDING lock i
6790: 73 20 68 65 6c 64 2c 20 69 73 0a 20 20 2a 2a 20 s held, is. **
67a0: 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 6f implemented by o
67b0: 62 74 61 69 6e 69 6e 67 20 61 20 77 72 69 74 65 btaining a write
67c0: 2d 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 65 6e 74 -lock on the ent
67d0: 69 72 65 20 27 73 68 61 72 65 64 20 62 79 74 65 ire 'shared byte
67e0: 0a 20 20 2a 2a 20 72 61 6e 67 65 27 2e 20 53 69 . ** range'. Si
67f0: 6e 63 65 20 61 6c 6c 20 6f 74 68 65 72 20 6c 6f nce all other lo
6800: 63 6b 73 20 72 65 71 75 69 72 65 20 61 20 72 65 cks require a re
6810: 61 64 2d 6c 6f 63 6b 20 6f 6e 20 6f 6e 65 20 6f ad-lock on one o
6820: 66 20 74 68 65 20 62 79 74 65 73 0a 20 20 2a 2a f the bytes. **
6830: 20 77 69 74 68 69 6e 20 74 68 69 73 20 72 61 6e within this ran
6840: 67 65 2c 20 74 68 69 73 20 65 6e 73 75 72 65 73 ge, this ensures
6850: 20 74 68 61 74 20 6e 6f 20 6f 74 68 65 72 20 6c that no other l
6860: 6f 63 6b 73 20 61 72 65 20 68 65 6c 64 20 6f 6e ocks are held on
6870: 20 74 68 65 0a 20 20 2a 2a 20 64 61 74 61 62 61 the. ** databa
6880: 73 65 2e 20 0a 20 20 2a 2a 0a 20 20 2a 2a 20 54 se. . **. ** T
6890: 68 65 20 72 65 61 73 6f 6e 20 61 20 73 69 6e 67 he reason a sing
68a0: 6c 65 20 62 79 74 65 20 63 61 6e 6e 6f 74 20 62 le byte cannot b
68b0: 65 20 75 73 65 64 20 69 6e 73 74 65 61 64 20 6f e used instead o
68c0: 66 20 74 68 65 20 27 73 68 61 72 65 64 20 62 79 f the 'shared by
68d0: 74 65 0a 20 20 2a 2a 20 72 61 6e 67 65 27 20 69 te. ** range' i
68e0: 73 20 74 68 61 74 20 73 6f 6d 65 20 76 65 72 73 s that some vers
68f0: 69 6f 6e 73 20 6f 66 20 77 69 6e 64 6f 77 73 20 ions of windows
6900: 64 6f 20 6e 6f 74 20 73 75 70 70 6f 72 74 20 72 do not support r
6910: 65 61 64 2d 6c 6f 63 6b 73 2e 20 42 79 0a 20 20 ead-locks. By.
6920: 2a 2a 20 6c 6f 63 6b 69 6e 67 20 61 20 72 61 6e ** locking a ran
6930: 64 6f 6d 20 62 79 74 65 20 66 72 6f 6d 20 61 20 dom byte from a
6940: 72 61 6e 67 65 2c 20 63 6f 6e 63 75 72 72 65 6e range, concurren
6950: 74 20 53 48 41 52 45 44 20 6c 6f 63 6b 73 20 6d t SHARED locks m
6960: 61 79 20 65 78 69 73 74 0a 20 20 2a 2a 20 65 76 ay exist. ** ev
6970: 65 6e 20 69 66 20 74 68 65 20 6c 6f 63 6b 69 6e en if the lockin
6980: 67 20 70 72 69 6d 69 74 69 76 65 20 75 73 65 64 g primitive used
6990: 20 69 73 20 61 6c 77 61 79 73 20 61 20 77 72 69 is always a wri
69a0: 74 65 2d 6c 6f 63 6b 2e 0a 20 20 2a 2f 0a 20 20 te-lock.. */.
69b0: 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 54 45 5f int rc = SQLITE_
69c0: 4f 4b 3b 0a 20 20 73 74 72 75 63 74 20 6c 6f 63 OK;. struct loc
69d0: 6b 49 6e 66 6f 20 2a 70 4c 6f 63 6b 20 3d 20 69 kInfo *pLock = i
69e0: 64 2d 3e 70 4c 6f 63 6b 3b 0a 20 20 73 74 72 75 d->pLock;. stru
69f0: 63 74 20 66 6c 6f 63 6b 20 6c 6f 63 6b 3b 0a 20 ct flock lock;.
6a00: 20 69 6e 74 20 73 3b 0a 0a 20 20 61 73 73 65 72 int s;.. asser
6a10: 74 28 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b t( id->isOpen );
6a20: 0a 20 20 54 52 41 43 45 37 28 22 4c 4f 43 4b 20 . TRACE7("LOCK
6a30: 25 64 20 25 73 20 77 61 73 20 25 73 28 25 73 2c %d %s was %s(%s,
6a40: 25 64 29 20 70 69 64 3d 25 64 5c 6e 22 2c 20 69 %d) pid=%d\n", i
6a50: 64 2d 3e 68 2c 20 6c 6f 63 6b 74 79 70 65 4e 61 d->h, locktypeNa
6a60: 6d 65 28 6c 6f 63 6b 74 79 70 65 29 2c 20 0a 20 me(locktype), .
6a70: 20 20 20 20 20 6c 6f 63 6b 74 79 70 65 4e 61 6d locktypeNam
6a80: 65 28 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 29 2c e(id->locktype),
6a90: 20 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 28 70 4c locktypeName(pL
6aa0: 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 29 2c 20 ock->locktype),
6ab0: 70 4c 6f 63 6b 2d 3e 63 6e 74 0a 20 20 20 20 20 pLock->cnt.
6ac0: 20 2c 67 65 74 70 69 64 28 29 20 29 3b 0a 0a 20 ,getpid() );..
6ad0: 20 2f 2a 20 49 66 20 74 68 65 72 65 20 69 73 20 /* If there is
6ae0: 61 6c 72 65 61 64 79 20 61 20 6c 6f 63 6b 20 6f already a lock o
6af0: 66 20 74 68 69 73 20 74 79 70 65 20 6f 72 20 6d f this type or m
6b00: 6f 72 65 20 72 65 73 74 72 69 63 74 69 76 65 20 ore restrictive
6b10: 6f 6e 20 74 68 65 0a 20 20 2a 2a 20 4f 73 46 69 on the. ** OsFi
6b20: 6c 65 2c 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 20 le, do nothing.
6b30: 44 6f 6e 27 74 20 75 73 65 20 74 68 65 20 65 6e Don't use the en
6b40: 64 5f 6c 6f 63 6b 3a 20 65 78 69 74 20 70 61 74 d_lock: exit pat
6b50: 68 2c 20 61 73 0a 20 20 2a 2a 20 73 71 6c 69 74 h, as. ** sqlit
6b60: 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 78 28 29 e3OsEnterMutex()
6b70: 20 68 61 73 6e 27 74 20 62 65 65 6e 20 63 61 6c hasn't been cal
6b80: 6c 65 64 20 79 65 74 2e 0a 20 20 2a 2f 0a 20 20 led yet.. */.
6b90: 69 66 28 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 if( id->locktype
6ba0: 3e 3d 6c 6f 63 6b 74 79 70 65 20 29 7b 0a 20 20 >=locktype ){.
6bb0: 20 20 54 52 41 43 45 33 28 22 4c 4f 43 4b 20 25 TRACE3("LOCK %
6bc0: 64 20 25 73 20 6f 6b 20 28 61 6c 72 65 61 64 79 d %s ok (already
6bd0: 20 68 65 6c 64 29 5c 6e 22 2c 20 69 64 2d 3e 68 held)\n", id->h
6be0: 2c 20 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 28 6c , locktypeName(l
6bf0: 6f 63 6b 74 79 70 65 29 29 3b 0a 20 20 20 20 72 ocktype));. r
6c00: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b eturn SQLITE_OK;
6c10: 0a 20 20 7d 0a 0a 20 20 2f 2a 20 4d 61 6b 65 20 . }.. /* Make
6c20: 73 75 72 65 20 74 68 65 20 6c 6f 63 6b 69 6e 67 sure the locking
6c30: 20 73 65 71 75 65 6e 63 65 20 69 73 20 63 6f 72 sequence is cor
6c40: 72 65 63 74 0a 20 20 2a 2f 0a 20 20 61 73 73 65 rect. */. asse
6c50: 72 74 28 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 rt( id->locktype
6c60: 21 3d 4e 4f 5f 4c 4f 43 4b 20 7c 7c 20 6c 6f 63 !=NO_LOCK || loc
6c70: 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f ktype==SHARED_LO
6c80: 43 4b 20 29 3b 0a 20 20 61 73 73 65 72 74 28 20 CK );. assert(
6c90: 6c 6f 63 6b 74 79 70 65 21 3d 50 45 4e 44 49 4e locktype!=PENDIN
6ca0: 47 5f 4c 4f 43 4b 20 29 3b 0a 20 20 61 73 73 65 G_LOCK );. asse
6cb0: 72 74 28 20 6c 6f 63 6b 74 79 70 65 21 3d 52 45 rt( locktype!=RE
6cc0: 53 45 52 56 45 44 5f 4c 4f 43 4b 20 7c 7c 20 69 SERVED_LOCK || i
6cd0: 64 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 d->locktype==SHA
6ce0: 52 45 44 5f 4c 4f 43 4b 20 29 3b 0a 0a 20 20 2f RED_LOCK );.. /
6cf0: 2a 20 54 68 69 73 20 6d 75 74 65 78 20 69 73 20 * This mutex is
6d00: 6e 65 65 64 65 64 20 62 65 63 61 75 73 65 20 69 needed because i
6d10: 64 2d 3e 70 4c 6f 63 6b 20 69 73 20 73 68 61 72 d->pLock is shar
6d20: 65 64 20 61 63 72 6f 73 73 20 74 68 72 65 61 64 ed across thread
6d30: 73 0a 20 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 s. */. sqlite3
6d40: 4f 73 45 6e 74 65 72 4d 75 74 65 78 28 29 3b 0a OsEnterMutex();.
6d50: 0a 20 20 2f 2a 20 49 66 20 73 6f 6d 65 20 74 68 . /* If some th
6d60: 72 65 61 64 20 75 73 69 6e 67 20 74 68 69 73 20 read using this
6d70: 50 49 44 20 68 61 73 20 61 20 6c 6f 63 6b 20 76 PID has a lock v
6d80: 69 61 20 61 20 64 69 66 66 65 72 65 6e 74 20 4f ia a different O
6d90: 73 46 69 6c 65 2a 0a 20 20 2a 2a 20 68 61 6e 64 sFile*. ** hand
6da0: 6c 65 20 74 68 61 74 20 70 72 65 63 6c 75 64 65 le that preclude
6db0: 73 20 74 68 65 20 72 65 71 75 65 73 74 65 64 20 s the requested
6dc0: 6c 6f 63 6b 2c 20 72 65 74 75 72 6e 20 42 55 53 lock, return BUS
6dd0: 59 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 28 69 Y.. */. if( (i
6de0: 64 2d 3e 6c 6f 63 6b 74 79 70 65 21 3d 70 4c 6f d->locktype!=pLo
6df0: 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 20 26 26 20 ck->locktype &&
6e00: 0a 20 20 20 20 20 20 20 20 20 20 28 70 4c 6f 63 . (pLoc
6e10: 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3e 3d 50 45 4e k->locktype>=PEN
6e20: 44 49 4e 47 5f 4c 4f 43 4b 20 7c 7c 20 6c 6f 63 DING_LOCK || loc
6e30: 6b 74 79 70 65 3e 53 48 41 52 45 44 5f 4c 4f 43 ktype>SHARED_LOC
6e40: 4b 29 29 0a 20 20 29 7b 0a 20 20 20 20 72 63 20 K)). ){. rc
6e50: 3d 20 53 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20 = SQLITE_BUSY;.
6e60: 20 20 20 67 6f 74 6f 20 65 6e 64 5f 6c 6f 63 6b goto end_lock
6e70: 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 49 66 20 61 ;. }.. /* If a
6e80: 20 53 48 41 52 45 44 20 6c 6f 63 6b 20 69 73 20 SHARED lock is
6e90: 72 65 71 75 65 73 74 65 64 2c 20 61 6e 64 20 73 requested, and s
6ea0: 6f 6d 65 20 74 68 72 65 61 64 20 75 73 69 6e 67 ome thread using
6eb0: 20 74 68 69 73 20 50 49 44 20 61 6c 72 65 61 64 this PID alread
6ec0: 79 0a 20 20 2a 2a 20 68 61 73 20 61 20 53 48 41 y. ** has a SHA
6ed0: 52 45 44 20 6f 72 20 52 45 53 45 52 56 45 44 20 RED or RESERVED
6ee0: 6c 6f 63 6b 2c 20 74 68 65 6e 20 69 6e 63 72 65 lock, then incre
6ef0: 6d 65 6e 74 20 72 65 66 65 72 65 6e 63 65 20 63 ment reference c
6f00: 6f 75 6e 74 73 20 61 6e 64 0a 20 20 2a 2a 20 72 ounts and. ** r
6f10: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 2e eturn SQLITE_OK.
6f20: 0a 20 20 2a 2f 0a 20 20 69 66 28 20 6c 6f 63 6b . */. if( lock
6f30: 74 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 type==SHARED_LOC
6f40: 4b 20 26 26 20 0a 20 20 20 20 20 20 28 70 4c 6f K && . (pLo
6f50: 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 ck->locktype==SH
6f60: 41 52 45 44 5f 4c 4f 43 4b 20 7c 7c 20 70 4c 6f ARED_LOCK || pLo
6f70: 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 52 45 ck->locktype==RE
6f80: 53 45 52 56 45 44 5f 4c 4f 43 4b 29 20 29 7b 0a SERVED_LOCK) ){.
6f90: 20 20 20 20 61 73 73 65 72 74 28 20 6c 6f 63 6b assert( lock
6fa0: 74 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 type==SHARED_LOC
6fb0: 4b 20 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 K );. assert(
6fc0: 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 30 id->locktype==0
6fd0: 20 29 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 );. assert(
6fe0: 70 4c 6f 63 6b 2d 3e 63 6e 74 3e 30 20 29 3b 0a pLock->cnt>0 );.
6ff0: 20 20 20 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 id->locktype
7000: 20 3d 20 53 48 41 52 45 44 5f 4c 4f 43 4b 3b 0a = SHARED_LOCK;.
7010: 20 20 20 20 70 4c 6f 63 6b 2d 3e 63 6e 74 2b 2b pLock->cnt++
7020: 3b 0a 20 20 20 20 69 64 2d 3e 70 4f 70 65 6e 2d ;. id->pOpen-
7030: 3e 6e 4c 6f 63 6b 2b 2b 3b 0a 20 20 20 20 67 6f >nLock++;. go
7040: 74 6f 20 65 6e 64 5f 6c 6f 63 6b 3b 0a 20 20 7d to end_lock;. }
7050: 0a 0a 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 3d .. lock.l_len =
7060: 20 31 4c 3b 0a 20 20 6c 6f 63 6b 2e 6c 5f 77 68 1L;. lock.l_wh
7070: 65 6e 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 3b ence = SEEK_SET;
7080: 0a 0a 20 20 2f 2a 20 41 20 50 45 4e 44 49 4e 47 .. /* A PENDING
7090: 20 6c 6f 63 6b 20 69 73 20 6e 65 65 64 65 64 20 lock is needed
70a0: 62 65 66 6f 72 65 20 61 63 71 75 69 72 69 6e 67 before acquiring
70b0: 20 61 20 53 48 41 52 45 44 20 6c 6f 63 6b 20 61 a SHARED lock a
70c0: 6e 64 20 62 65 66 6f 72 65 0a 20 20 2a 2a 20 61 nd before. ** a
70d0: 63 71 75 69 72 69 6e 67 20 61 6e 20 45 58 43 4c cquiring an EXCL
70e0: 55 53 49 56 45 20 6c 6f 63 6b 2e 20 20 46 6f 72 USIVE lock. For
70f0: 20 74 68 65 20 53 48 41 52 45 44 20 6c 6f 63 6b the SHARED lock
7100: 2c 20 74 68 65 20 50 45 4e 44 49 4e 47 20 77 69 , the PENDING wi
7110: 6c 6c 0a 20 20 2a 2a 20 62 65 20 72 65 6c 65 61 ll. ** be relea
7120: 73 65 64 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 sed.. */. if(
7130: 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 locktype==SHARED
7140: 5f 4c 4f 43 4b 20 0a 20 20 20 20 20 20 7c 7c 20 _LOCK . ||
7150: 28 6c 6f 63 6b 74 79 70 65 3d 3d 45 58 43 4c 55 (locktype==EXCLU
7160: 53 49 56 45 5f 4c 4f 43 4b 20 26 26 20 69 64 2d SIVE_LOCK && id-
7170: 3e 6c 6f 63 6b 74 79 70 65 3c 50 45 4e 44 49 4e >locktype<PENDIN
7180: 47 5f 4c 4f 43 4b 29 0a 20 20 29 7b 0a 20 20 20 G_LOCK). ){.
7190: 20 6c 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 28 lock.l_type = (
71a0: 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 locktype==SHARED
71b0: 5f 4c 4f 43 4b 3f 46 5f 52 44 4c 43 4b 3a 46 5f _LOCK?F_RDLCK:F_
71c0: 57 52 4c 43 4b 29 3b 0a 20 20 20 20 6c 6f 63 6b WRLCK);. lock
71d0: 2e 6c 5f 73 74 61 72 74 20 3d 20 50 45 4e 44 49 .l_start = PENDI
71e0: 4e 47 5f 42 59 54 45 3b 0a 20 20 20 20 73 20 3d NG_BYTE;. s =
71f0: 20 66 63 6e 74 6c 28 69 64 2d 3e 68 2c 20 46 5f fcntl(id->h, F_
7200: 53 45 54 4c 4b 2c 20 26 6c 6f 63 6b 29 3b 0a 20 SETLK, &lock);.
7210: 20 20 20 69 66 28 20 73 20 29 7b 0a 20 20 20 20 if( s ){.
7220: 20 20 72 63 20 3d 20 28 65 72 72 6e 6f 3d 3d 45 rc = (errno==E
7230: 49 4e 56 41 4c 29 20 3f 20 53 51 4c 49 54 45 5f INVAL) ? SQLITE_
7240: 4e 4f 4c 46 53 20 3a 20 53 51 4c 49 54 45 5f 42 NOLFS : SQLITE_B
7250: 55 53 59 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 USY;. goto
7260: 65 6e 64 5f 6c 6f 63 6b 3b 0a 20 20 20 20 7d 0a end_lock;. }.
7270: 20 20 7d 0a 0a 0a 20 20 2f 2a 20 49 66 20 63 6f }... /* If co
7280: 6e 74 72 6f 6c 20 67 65 74 73 20 74 6f 20 74 68 ntrol gets to th
7290: 69 73 20 70 6f 69 6e 74 2c 20 74 68 65 6e 20 61 is point, then a
72a0: 63 74 75 61 6c 6c 79 20 67 6f 20 61 68 65 61 64 ctually go ahead
72b0: 20 61 6e 64 20 6d 61 6b 65 0a 20 20 2a 2a 20 6f and make. ** o
72c0: 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 20 perating system
72d0: 63 61 6c 6c 73 20 66 6f 72 20 74 68 65 20 73 70 calls for the sp
72e0: 65 63 69 66 69 65 64 20 6c 6f 63 6b 2e 0a 20 20 ecified lock..
72f0: 2a 2f 0a 20 20 69 66 28 20 6c 6f 63 6b 74 79 70 */. if( locktyp
7300: 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 4b 20 29 e==SHARED_LOCK )
7310: 7b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 4c {. assert( pL
7320: 6f 63 6b 2d 3e 63 6e 74 3d 3d 30 20 29 3b 0a 20 ock->cnt==0 );.
7330: 20 20 20 61 73 73 65 72 74 28 20 70 4c 6f 63 6b assert( pLock
7340: 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 30 20 29 3b ->locktype==0 );
7350: 0a 0a 20 20 20 20 2f 2a 20 4e 6f 77 20 67 65 74 .. /* Now get
7360: 20 74 68 65 20 72 65 61 64 2d 6c 6f 63 6b 20 2a the read-lock *
7370: 2f 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 /. lock.l_sta
7380: 72 74 20 3d 20 53 48 41 52 45 44 5f 46 49 52 53 rt = SHARED_FIRS
7390: 54 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 T;. lock.l_le
73a0: 6e 20 3d 20 53 48 41 52 45 44 5f 53 49 5a 45 3b n = SHARED_SIZE;
73b0: 0a 20 20 20 20 73 20 3d 20 66 63 6e 74 6c 28 69 . s = fcntl(i
73c0: 64 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 d->h, F_SETLK, &
73d0: 6c 6f 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 44 lock);.. /* D
73e0: 72 6f 70 20 74 68 65 20 74 65 6d 70 6f 72 61 72 rop the temporar
73f0: 79 20 50 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 2a y PENDING lock *
7400: 2f 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 /. lock.l_sta
7410: 72 74 20 3d 20 50 45 4e 44 49 4e 47 5f 42 59 54 rt = PENDING_BYT
7420: 45 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 E;. lock.l_le
7430: 6e 20 3d 20 31 4c 3b 0a 20 20 20 20 6c 6f 63 6b n = 1L;. lock
7440: 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 55 4e 4c 43 .l_type = F_UNLC
7450: 4b 3b 0a 20 20 20 20 66 63 6e 74 6c 28 69 64 2d K;. fcntl(id-
7460: 3e 68 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 6c 6f >h, F_SETLK, &lo
7470: 63 6b 29 3b 0a 20 20 20 20 69 66 28 20 73 20 29 ck);. if( s )
7480: 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 28 65 72 {. rc = (er
7490: 72 6e 6f 3d 3d 45 49 4e 56 41 4c 29 20 3f 20 53 rno==EINVAL) ? S
74a0: 51 4c 49 54 45 5f 4e 4f 4c 46 53 20 3a 20 53 51 QLITE_NOLFS : SQ
74b0: 4c 49 54 45 5f 42 55 53 59 3b 0a 20 20 20 20 7d LITE_BUSY;. }
74c0: 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 64 2d 3e else{. id->
74d0: 6c 6f 63 6b 74 79 70 65 20 3d 20 53 48 41 52 45 locktype = SHARE
74e0: 44 5f 4c 4f 43 4b 3b 0a 20 20 20 20 20 20 69 64 D_LOCK;. id
74f0: 2d 3e 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 6b 2b 2b ->pOpen->nLock++
7500: 3b 0a 20 20 20 20 20 20 70 4c 6f 63 6b 2d 3e 63 ;. pLock->c
7510: 6e 74 20 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20 nt = 1;. }.
7520: 7d 65 6c 73 65 20 69 66 28 20 6c 6f 63 6b 74 79 }else if( lockty
7530: 70 65 3d 3d 45 58 43 4c 55 53 49 56 45 5f 4c 4f pe==EXCLUSIVE_LO
7540: 43 4b 20 26 26 20 70 4c 6f 63 6b 2d 3e 63 6e 74 CK && pLock->cnt
7550: 3e 31 20 29 7b 0a 20 20 20 20 2f 2a 20 57 65 20 >1 ){. /* We
7560: 61 72 65 20 74 72 79 69 6e 67 20 66 6f 72 20 61 are trying for a
7570: 6e 20 65 78 63 6c 75 73 69 76 65 20 6c 6f 63 6b n exclusive lock
7580: 20 62 75 74 20 61 6e 6f 74 68 65 72 20 74 68 72 but another thr
7590: 65 61 64 20 69 6e 20 74 68 69 73 0a 20 20 20 20 ead in this.
75a0: 2a 2a 20 73 61 6d 65 20 70 72 6f 63 65 73 73 20 ** same process
75b0: 69 73 20 73 74 69 6c 6c 20 68 6f 6c 64 69 6e 67 is still holding
75c0: 20 61 20 73 68 61 72 65 64 20 6c 6f 63 6b 2e 20 a shared lock.
75d0: 2a 2f 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 */. rc = SQLI
75e0: 54 45 5f 42 55 53 59 3b 0a 20 20 7d 65 6c 73 65 TE_BUSY;. }else
75f0: 7b 0a 20 20 20 20 2f 2a 20 54 68 65 20 72 65 71 {. /* The req
7600: 75 65 73 74 20 77 61 73 20 66 6f 72 20 61 20 52 uest was for a R
7610: 45 53 45 52 56 45 44 20 6f 72 20 45 58 43 4c 55 ESERVED or EXCLU
7620: 53 49 56 45 20 6c 6f 63 6b 2e 20 20 49 74 20 69 SIVE lock. It i
7630: 73 0a 20 20 20 20 2a 2a 20 61 73 73 75 6d 65 64 s. ** assumed
7640: 20 74 68 61 74 20 74 68 65 72 65 20 69 73 20 61 that there is a
7650: 20 53 48 41 52 45 44 20 6f 72 20 67 72 65 61 74 SHARED or great
7660: 65 72 20 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 66 er lock on the f
7670: 69 6c 65 0a 20 20 20 20 2a 2a 20 61 6c 72 65 61 ile. ** alrea
7680: 64 79 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 61 dy.. */. a
7690: 73 73 65 72 74 28 20 30 21 3d 69 64 2d 3e 6c 6f ssert( 0!=id->lo
76a0: 63 6b 74 79 70 65 20 29 3b 0a 20 20 20 20 6c 6f cktype );. lo
76b0: 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 57 52 ck.l_type = F_WR
76c0: 4c 43 4b 3b 0a 20 20 20 20 73 77 69 74 63 68 28 LCK;. switch(
76d0: 20 6c 6f 63 6b 74 79 70 65 20 29 7b 0a 20 20 20 locktype ){.
76e0: 20 20 20 63 61 73 65 20 52 45 53 45 52 56 45 44 case RESERVED
76f0: 5f 4c 4f 43 4b 3a 0a 20 20 20 20 20 20 20 20 6c _LOCK:. l
7700: 6f 63 6b 2e 6c 5f 73 74 61 72 74 20 3d 20 52 45 ock.l_start = RE
7710: 53 45 52 56 45 44 5f 42 59 54 45 3b 0a 20 20 20 SERVED_BYTE;.
7720: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 break;.
7730: 20 20 63 61 73 65 20 45 58 43 4c 55 53 49 56 45 case EXCLUSIVE
7740: 5f 4c 4f 43 4b 3a 0a 20 20 20 20 20 20 20 20 6c _LOCK:. l
7750: 6f 63 6b 2e 6c 5f 73 74 61 72 74 20 3d 20 53 48 ock.l_start = SH
7760: 41 52 45 44 5f 46 49 52 53 54 3b 0a 20 20 20 20 ARED_FIRST;.
7770: 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e 20 3d lock.l_len =
7780: 20 53 48 41 52 45 44 5f 53 49 5a 45 3b 0a 20 20 SHARED_SIZE;.
7790: 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 break;.
77a0: 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 default:.
77b0: 20 20 20 20 61 73 73 65 72 74 28 30 29 3b 0a 20 assert(0);.
77c0: 20 20 20 7d 0a 20 20 20 20 73 20 3d 20 66 63 6e }. s = fcn
77d0: 74 6c 28 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c tl(id->h, F_SETL
77e0: 4b 2c 20 26 6c 6f 63 6b 29 3b 0a 20 20 20 20 69 K, &lock);. i
77f0: 66 28 20 73 20 29 7b 0a 20 20 20 20 20 20 72 63 f( s ){. rc
7800: 20 3d 20 28 65 72 72 6e 6f 3d 3d 45 49 4e 56 41 = (errno==EINVA
7810: 4c 29 20 3f 20 53 51 4c 49 54 45 5f 4e 4f 4c 46 L) ? SQLITE_NOLF
7820: 53 20 3a 20 53 51 4c 49 54 45 5f 42 55 53 59 3b S : SQLITE_BUSY;
7830: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 0a 20 20 . }. }. .
7840: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f if( rc==SQLITE_O
7850: 4b 20 29 7b 0a 20 20 20 20 69 64 2d 3e 6c 6f 63 K ){. id->loc
7860: 6b 74 79 70 65 20 3d 20 6c 6f 63 6b 74 79 70 65 ktype = locktype
7870: 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 6c 6f 63 ;. pLock->loc
7880: 6b 74 79 70 65 20 3d 20 6c 6f 63 6b 74 79 70 65 ktype = locktype
7890: 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 6c 6f ;. }else if( lo
78a0: 63 6b 74 79 70 65 3d 3d 45 58 43 4c 55 53 49 56 cktype==EXCLUSIV
78b0: 45 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 69 64 E_LOCK ){. id
78c0: 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 50 45 4e ->locktype = PEN
78d0: 44 49 4e 47 5f 4c 4f 43 4b 3b 0a 20 20 20 20 70 DING_LOCK;. p
78e0: 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d Lock->locktype =
78f0: 20 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b 3b 0a 20 PENDING_LOCK;.
7900: 20 7d 0a 0a 65 6e 64 5f 6c 6f 63 6b 3a 0a 20 20 }..end_lock:.
7910: 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 4d 75 sqlite3OsLeaveMu
7920: 74 65 78 28 29 3b 0a 20 20 54 52 41 43 45 34 28 tex();. TRACE4(
7930: 22 4c 4f 43 4b 20 25 64 20 25 73 20 25 73 5c 6e "LOCK %d %s %s\n
7940: 22 2c 20 69 64 2d 3e 68 2c 20 6c 6f 63 6b 74 79 ", id->h, lockty
7950: 70 65 4e 61 6d 65 28 6c 6f 63 6b 74 79 70 65 29 peName(locktype)
7960: 2c 20 0a 20 20 20 20 20 20 72 63 3d 3d 53 51 4c , . rc==SQL
7970: 49 54 45 5f 4f 4b 20 3f 20 22 6f 6b 22 20 3a 20 ITE_OK ? "ok" :
7980: 22 66 61 69 6c 65 64 22 29 3b 0a 20 20 72 65 74 "failed");. ret
7990: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a urn rc;.}../*.**
79a0: 20 4c 6f 77 65 72 20 74 68 65 20 6c 6f 63 6b 69 Lower the locki
79b0: 6e 67 20 6c 65 76 65 6c 20 6f 6e 20 66 69 6c 65 ng level on file
79c0: 20 64 65 73 63 72 69 70 74 6f 72 20 69 64 20 74 descriptor id t
79d0: 6f 20 6c 6f 63 6b 74 79 70 65 2e 20 20 6c 6f 63 o locktype. loc
79e0: 6b 74 79 70 65 0a 2a 2a 20 6d 75 73 74 20 62 65 ktype.** must be
79f0: 20 65 69 74 68 65 72 20 4e 4f 5f 4c 4f 43 4b 20 either NO_LOCK
7a00: 6f 72 20 53 48 41 52 45 44 5f 4c 4f 43 4b 2e 0a or SHARED_LOCK..
7a10: 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 6c 6f 63 **.** If the loc
7a20: 6b 69 6e 67 20 6c 65 76 65 6c 20 6f 66 20 74 68 king level of th
7a30: 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f e file descripto
7a40: 72 20 69 73 20 61 6c 72 65 61 64 79 20 61 74 20 r is already at
7a50: 6f 72 20 62 65 6c 6f 77 0a 2a 2a 20 74 68 65 20 or below.** the
7a60: 72 65 71 75 65 73 74 65 64 20 6c 6f 63 6b 69 6e requested lockin
7a70: 67 20 6c 65 76 65 6c 2c 20 74 68 69 73 20 72 6f g level, this ro
7a80: 75 74 69 6e 65 20 69 73 20 61 20 6e 6f 2d 6f 70 utine is a no-op
7a90: 2e 0a 2a 2a 0a 2a 2a 20 49 74 20 69 73 20 6e 6f ..**.** It is no
7aa0: 74 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 74 t possible for t
7ab0: 68 69 73 20 72 6f 75 74 69 6e 65 20 74 6f 20 66 his routine to f
7ac0: 61 69 6c 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 ail..*/.int sqli
7ad0: 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 4f 73 46 69 te3OsUnlock(OsFi
7ae0: 6c 65 20 2a 69 64 2c 20 69 6e 74 20 6c 6f 63 6b le *id, int lock
7af0: 74 79 70 65 29 7b 0a 20 20 73 74 72 75 63 74 20 type){. struct
7b00: 6c 6f 63 6b 49 6e 66 6f 20 2a 70 4c 6f 63 6b 3b lockInfo *pLock;
7b10: 0a 20 20 73 74 72 75 63 74 20 66 6c 6f 63 6b 20 . struct flock
7b20: 6c 6f 63 6b 3b 0a 0a 20 20 61 73 73 65 72 74 28 lock;.. assert(
7b30: 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 id->isOpen );.
7b40: 20 54 52 41 43 45 37 28 22 55 4e 4c 4f 43 4b 20 TRACE7("UNLOCK
7b50: 25 64 20 25 64 20 77 61 73 20 25 64 28 25 64 2c %d %d was %d(%d,
7b60: 25 64 29 20 70 69 64 3d 25 64 5c 6e 22 2c 20 69 %d) pid=%d\n", i
7b70: 64 2d 3e 68 2c 20 6c 6f 63 6b 74 79 70 65 2c 20 d->h, locktype,
7b80: 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 2c 20 0a 20 id->locktype, .
7b90: 20 20 20 20 20 69 64 2d 3e 70 4c 6f 63 6b 2d 3e id->pLock->
7ba0: 6c 6f 63 6b 74 79 70 65 2c 20 69 64 2d 3e 70 4c locktype, id->pL
7bb0: 6f 63 6b 2d 3e 63 6e 74 2c 20 67 65 74 70 69 64 ock->cnt, getpid
7bc0: 28 29 29 3b 0a 0a 20 20 61 73 73 65 72 74 28 20 ());.. assert(
7bd0: 6c 6f 63 6b 74 79 70 65 3c 3d 53 48 41 52 45 44 locktype<=SHARED
7be0: 5f 4c 4f 43 4b 20 29 3b 0a 20 20 69 66 28 20 69 _LOCK );. if( i
7bf0: 64 2d 3e 6c 6f 63 6b 74 79 70 65 3c 3d 6c 6f 63 d->locktype<=loc
7c00: 6b 74 79 70 65 20 29 7b 0a 20 20 20 20 72 65 74 ktype ){. ret
7c10: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 urn SQLITE_OK;.
7c20: 20 7d 0a 20 20 73 71 6c 69 74 65 33 4f 73 45 6e }. sqlite3OsEn
7c30: 74 65 72 4d 75 74 65 78 28 29 3b 0a 20 20 70 4c terMutex();. pL
7c40: 6f 63 6b 20 3d 20 69 64 2d 3e 70 4c 6f 63 6b 3b ock = id->pLock;
7c50: 0a 20 20 61 73 73 65 72 74 28 20 70 4c 6f 63 6b . assert( pLock
7c60: 2d 3e 63 6e 74 21 3d 30 20 29 3b 0a 20 20 69 66 ->cnt!=0 );. if
7c70: 28 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 3e 53 ( id->locktype>S
7c80: 48 41 52 45 44 5f 4c 4f 43 4b 20 29 7b 0a 20 20 HARED_LOCK ){.
7c90: 20 20 61 73 73 65 72 74 28 20 70 4c 6f 63 6b 2d assert( pLock-
7ca0: 3e 6c 6f 63 6b 74 79 70 65 3d 3d 69 64 2d 3e 6c >locktype==id->l
7cb0: 6f 63 6b 74 79 70 65 20 29 3b 0a 20 20 20 20 6c ocktype );. l
7cc0: 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 55 ock.l_type = F_U
7cd0: 4e 4c 43 4b 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c NLCK;. lock.l
7ce0: 5f 77 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f 53 _whence = SEEK_S
7cf0: 45 54 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 ET;. lock.l_s
7d00: 74 61 72 74 20 3d 20 50 45 4e 44 49 4e 47 5f 42 tart = PENDING_B
7d10: 59 54 45 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f YTE;. lock.l_
7d20: 6c 65 6e 20 3d 20 32 4c 3b 20 20 61 73 73 65 72 len = 2L; asser
7d30: 74 28 20 50 45 4e 44 49 4e 47 5f 42 59 54 45 2b t( PENDING_BYTE+
7d40: 31 3d 3d 52 45 53 45 52 56 45 44 5f 42 59 54 45 1==RESERVED_BYTE
7d50: 20 29 3b 0a 20 20 20 20 66 63 6e 74 6c 28 69 64 );. fcntl(id
7d60: 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b 2c 20 26 6c ->h, F_SETLK, &l
7d70: 6f 63 6b 29 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d ock);. pLock-
7d80: 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 53 48 41 52 >locktype = SHAR
7d90: 45 44 5f 4c 4f 43 4b 3b 0a 20 20 7d 0a 20 20 69 ED_LOCK;. }. i
7da0: 66 28 20 6c 6f 63 6b 74 79 70 65 3d 3d 4e 4f 5f f( locktype==NO_
7db0: 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 73 74 72 75 LOCK ){. stru
7dc0: 63 74 20 6f 70 65 6e 43 6e 74 20 2a 70 4f 70 65 ct openCnt *pOpe
7dd0: 6e 3b 0a 0a 20 20 20 20 2f 2a 20 44 65 63 72 65 n;.. /* Decre
7de0: 6d 65 6e 74 20 74 68 65 20 73 68 61 72 65 64 20 ment the shared
7df0: 6c 6f 63 6b 20 63 6f 75 6e 74 65 72 2e 20 20 52 lock counter. R
7e00: 65 6c 65 61 73 65 20 74 68 65 20 6c 6f 63 6b 20 elease the lock
7e10: 75 73 69 6e 67 20 61 6e 0a 20 20 20 20 2a 2a 20 using an. **
7e20: 4f 53 20 63 61 6c 6c 20 6f 6e 6c 79 20 77 68 65 OS call only whe
7e30: 6e 20 61 6c 6c 20 74 68 72 65 61 64 73 20 69 6e n all threads in
7e40: 20 74 68 69 73 20 73 61 6d 65 20 70 72 6f 63 65 this same proce
7e50: 73 73 20 68 61 76 65 20 72 65 6c 65 61 73 65 64 ss have released
7e60: 0a 20 20 20 20 2a 2a 20 74 68 65 20 6c 6f 63 6b . ** the lock
7e70: 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 70 4c 6f .. */. pLo
7e80: 63 6b 2d 3e 63 6e 74 2d 2d 3b 0a 20 20 20 20 69 ck->cnt--;. i
7e90: 66 28 20 70 4c 6f 63 6b 2d 3e 63 6e 74 3d 3d 30 f( pLock->cnt==0
7ea0: 20 29 7b 0a 20 20 20 20 20 20 6c 6f 63 6b 2e 6c ){. lock.l
7eb0: 5f 74 79 70 65 20 3d 20 46 5f 55 4e 4c 43 4b 3b _type = F_UNLCK;
7ec0: 0a 20 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 77 68 . lock.l_wh
7ed0: 65 6e 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 3b ence = SEEK_SET;
7ee0: 0a 20 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 . lock.l_st
7ef0: 61 72 74 20 3d 20 6c 6f 63 6b 2e 6c 5f 6c 65 6e art = lock.l_len
7f00: 20 3d 20 30 4c 3b 0a 20 20 20 20 20 20 66 63 6e = 0L;. fcn
7f10: 74 6c 28 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c tl(id->h, F_SETL
7f20: 4b 2c 20 26 6c 6f 63 6b 29 3b 0a 20 20 20 20 20 K, &lock);.
7f30: 20 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 pLock->locktype
7f40: 20 3d 20 4e 4f 5f 4c 4f 43 4b 3b 0a 20 20 20 20 = NO_LOCK;.
7f50: 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 63 72 65 6d }.. /* Decrem
7f60: 65 6e 74 20 74 68 65 20 63 6f 75 6e 74 20 6f 66 ent the count of
7f70: 20 6c 6f 63 6b 73 20 61 67 61 69 6e 73 74 20 74 locks against t
7f80: 68 69 73 20 73 61 6d 65 20 66 69 6c 65 2e 20 20 his same file.
7f90: 57 68 65 6e 20 74 68 65 0a 20 20 20 20 2a 2a 20 When the. **
7fa0: 63 6f 75 6e 74 20 72 65 61 63 68 65 73 20 7a 65 count reaches ze
7fb0: 72 6f 2c 20 63 6c 6f 73 65 20 61 6e 79 20 6f 74 ro, close any ot
7fc0: 68 65 72 20 66 69 6c 65 20 64 65 73 63 72 69 70 her file descrip
7fd0: 74 6f 72 73 20 77 68 6f 73 65 20 63 6c 6f 73 65 tors whose close
7fe0: 0a 20 20 20 20 2a 2a 20 77 61 73 20 64 65 66 65 . ** was defe
7ff0: 72 72 65 64 20 62 65 63 61 75 73 65 20 6f 66 20 rred because of
8000: 6f 75 74 73 74 61 6e 64 69 6e 67 20 6c 6f 63 6b outstanding lock
8010: 73 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 20 70 4f s.. */. pO
8020: 70 65 6e 20 3d 20 69 64 2d 3e 70 4f 70 65 6e 3b pen = id->pOpen;
8030: 0a 20 20 20 20 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 . pOpen->nLoc
8040: 6b 2d 2d 3b 0a 20 20 20 20 61 73 73 65 72 74 28 k--;. assert(
8050: 20 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 6b 3e 3d 30 pOpen->nLock>=0
8060: 20 29 3b 0a 20 20 20 20 69 66 28 20 70 4f 70 65 );. if( pOpe
8070: 6e 2d 3e 6e 4c 6f 63 6b 3d 3d 30 20 26 26 20 70 n->nLock==0 && p
8080: 4f 70 65 6e 2d 3e 6e 50 65 6e 64 69 6e 67 3e 30 Open->nPending>0
8090: 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 69 3b ){. int i;
80a0: 0a 20 20 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 . for(i=0;
80b0: 69 3c 70 4f 70 65 6e 2d 3e 6e 50 65 6e 64 69 6e i<pOpen->nPendin
80c0: 67 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 20 20 20 g; i++){.
80d0: 20 63 6c 6f 73 65 28 70 4f 70 65 6e 2d 3e 61 50 close(pOpen->aP
80e0: 65 6e 64 69 6e 67 5b 69 5d 29 3b 0a 20 20 20 20 ending[i]);.
80f0: 20 20 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 }. sqlite
8100: 46 72 65 65 28 70 4f 70 65 6e 2d 3e 61 50 65 6e Free(pOpen->aPen
8110: 64 69 6e 67 29 3b 0a 20 20 20 20 20 20 70 4f 70 ding);. pOp
8120: 65 6e 2d 3e 6e 50 65 6e 64 69 6e 67 20 3d 20 30 en->nPending = 0
8130: 3b 0a 20 20 20 20 20 20 70 4f 70 65 6e 2d 3e 61 ;. pOpen->a
8140: 50 65 6e 64 69 6e 67 20 3d 20 30 3b 0a 20 20 20 Pending = 0;.
8150: 20 7d 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 }. }. sqlite3
8160: 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 29 3b 0a OsLeaveMutex();.
8170: 20 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d id->locktype =
8180: 20 6c 6f 63 6b 74 79 70 65 3b 0a 20 20 72 65 74 locktype;. ret
8190: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d urn SQLITE_OK;.}
81a0: 0a 0a 2f 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61 20 ../*.** Close a
81b0: 66 69 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c file..*/.int sql
81c0: 69 74 65 33 4f 73 43 6c 6f 73 65 28 4f 73 46 69 ite3OsClose(OsFi
81d0: 6c 65 20 2a 69 64 29 7b 0a 20 20 69 66 28 20 21 le *id){. if( !
81e0: 69 64 2d 3e 69 73 4f 70 65 6e 20 29 20 72 65 74 id->isOpen ) ret
81f0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 urn SQLITE_OK;.
8200: 20 73 71 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 6b sqlite3OsUnlock
8210: 28 69 64 2c 20 4e 4f 5f 4c 4f 43 4b 29 3b 0a 20 (id, NO_LOCK);.
8220: 20 69 66 28 20 69 64 2d 3e 64 69 72 66 64 3e 3d if( id->dirfd>=
8230: 30 20 29 20 63 6c 6f 73 65 28 69 64 2d 3e 64 69 0 ) close(id->di
8240: 72 66 64 29 3b 0a 20 20 69 64 2d 3e 64 69 72 66 rfd);. id->dirf
8250: 64 20 3d 20 2d 31 3b 0a 20 20 73 71 6c 69 74 65 d = -1;. sqlite
8260: 33 4f 73 45 6e 74 65 72 4d 75 74 65 78 28 29 3b 3OsEnterMutex();
8270: 0a 20 20 69 66 28 20 69 64 2d 3e 70 4f 70 65 6e . if( id->pOpen
8280: 2d 3e 6e 4c 6f 63 6b 20 29 7b 0a 20 20 20 20 2f ->nLock ){. /
8290: 2a 20 49 66 20 74 68 65 72 65 20 61 72 65 20 6f * If there are o
82a0: 75 74 73 74 61 6e 64 69 6e 67 20 6c 6f 63 6b 73 utstanding locks
82b0: 2c 20 64 6f 20 6e 6f 74 20 61 63 74 75 61 6c 6c , do not actuall
82c0: 79 20 63 6c 6f 73 65 20 74 68 65 20 66 69 6c 65 y close the file
82d0: 20 6a 75 73 74 0a 20 20 20 20 2a 2a 20 79 65 74 just. ** yet
82e0: 20 62 65 63 61 75 73 65 20 74 68 61 74 20 77 6f because that wo
82f0: 75 6c 64 20 63 6c 65 61 72 20 74 68 6f 73 65 20 uld clear those
8300: 6c 6f 63 6b 73 2e 20 20 49 6e 73 74 65 61 64 2c locks. Instead,
8310: 20 61 64 64 20 74 68 65 20 66 69 6c 65 0a 20 20 add the file.
8320: 20 20 2a 2a 20 64 65 73 63 72 69 70 74 6f 72 20 ** descriptor
8330: 74 6f 20 70 4f 70 65 6e 2d 3e 61 50 65 6e 64 69 to pOpen->aPendi
8340: 6e 67 2e 20 20 49 74 20 77 69 6c 6c 20 62 65 20 ng. It will be
8350: 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6c automatically cl
8360: 6f 73 65 64 20 77 68 65 6e 0a 20 20 20 20 2a 2a osed when. **
8370: 20 74 68 65 20 6c 61 73 74 20 6c 6f 63 6b 20 69 the last lock i
8380: 73 20 63 6c 65 61 72 65 64 2e 0a 20 20 20 20 2a s cleared.. *
8390: 2f 0a 20 20 20 20 69 6e 74 20 2a 61 4e 65 77 3b /. int *aNew;
83a0: 0a 20 20 20 20 73 74 72 75 63 74 20 6f 70 65 6e . struct open
83b0: 43 6e 74 20 2a 70 4f 70 65 6e 20 3d 20 69 64 2d Cnt *pOpen = id-
83c0: 3e 70 4f 70 65 6e 3b 0a 20 20 20 20 70 4f 70 65 >pOpen;. pOpe
83d0: 6e 2d 3e 6e 50 65 6e 64 69 6e 67 2b 2b 3b 0a 20 n->nPending++;.
83e0: 20 20 20 61 4e 65 77 20 3d 20 73 71 6c 69 74 65 aNew = sqlite
83f0: 52 65 61 6c 6c 6f 63 28 20 70 4f 70 65 6e 2d 3e Realloc( pOpen->
8400: 61 50 65 6e 64 69 6e 67 2c 20 70 4f 70 65 6e 2d aPending, pOpen-
8410: 3e 6e 50 65 6e 64 69 6e 67 2a 73 69 7a 65 6f 66 >nPending*sizeof
8420: 28 69 6e 74 29 20 29 3b 0a 20 20 20 20 69 66 28 (int) );. if(
8430: 20 61 4e 65 77 3d 3d 30 20 29 7b 0a 20 20 20 20 aNew==0 ){.
8440: 20 20 2f 2a 20 49 66 20 61 20 6d 61 6c 6c 6f 63 /* If a malloc
8450: 20 66 61 69 6c 73 2c 20 6a 75 73 74 20 6c 65 61 fails, just lea
8460: 6b 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 k the file descr
8470: 69 70 74 6f 72 20 2a 2f 0a 20 20 20 20 7d 65 6c iptor */. }el
8480: 73 65 7b 0a 20 20 20 20 20 20 70 4f 70 65 6e 2d se{. pOpen-
8490: 3e 61 50 65 6e 64 69 6e 67 20 3d 20 61 4e 65 77 >aPending = aNew
84a0: 3b 0a 20 20 20 20 20 20 70 4f 70 65 6e 2d 3e 61 ;. pOpen->a
84b0: 50 65 6e 64 69 6e 67 5b 70 4f 70 65 6e 2d 3e 6e Pending[pOpen->n
84c0: 50 65 6e 64 69 6e 67 2d 31 5d 20 3d 20 69 64 2d Pending-1] = id-
84d0: 3e 68 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 >h;. }. }els
84e0: 65 7b 0a 20 20 20 20 2f 2a 20 54 68 65 72 65 20 e{. /* There
84f0: 61 72 65 20 6e 6f 20 6f 75 74 73 74 61 6e 64 69 are no outstandi
8500: 6e 67 20 6c 6f 63 6b 73 20 73 6f 20 77 65 20 63 ng locks so we c
8510: 61 6e 20 63 6c 6f 73 65 20 74 68 65 20 66 69 6c an close the fil
8520: 65 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 2a 2f e immediately */
8530: 0a 20 20 20 20 63 6c 6f 73 65 28 69 64 2d 3e 68 . close(id->h
8540: 29 3b 0a 20 20 7d 0a 20 20 72 65 6c 65 61 73 65 );. }. release
8550: 4c 6f 63 6b 49 6e 66 6f 28 69 64 2d 3e 70 4c 6f LockInfo(id->pLo
8560: 63 6b 29 3b 0a 20 20 72 65 6c 65 61 73 65 4f 70 ck);. releaseOp
8570: 65 6e 43 6e 74 28 69 64 2d 3e 70 4f 70 65 6e 29 enCnt(id->pOpen)
8580: 3b 0a 20 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 ;. sqlite3OsLea
8590: 76 65 4d 75 74 65 78 28 29 3b 0a 20 20 69 64 2d veMutex();. id-
85a0: 3e 69 73 4f 70 65 6e 20 3d 20 30 3b 0a 20 20 54 >isOpen = 0;. T
85b0: 52 41 43 45 32 28 22 43 4c 4f 53 45 20 20 20 25 RACE2("CLOSE %
85c0: 2d 33 64 5c 6e 22 2c 20 69 64 2d 3e 68 29 3b 0a -3d\n", id->h);.
85d0: 20 20 4f 70 65 6e 43 6f 75 6e 74 65 72 28 2d 31 OpenCounter(-1
85e0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 );. return SQLI
85f0: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 TE_OK;.}../*.**
8600: 47 65 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 Get information
8610: 74 6f 20 73 65 65 64 20 74 68 65 20 72 61 6e 64 to seed the rand
8620: 6f 6d 20 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 om number genera
8630: 74 6f 72 2e 20 20 54 68 65 20 73 65 65 64 0a 2a tor. The seed.*
8640: 2a 20 69 73 20 77 72 69 74 74 65 6e 20 69 6e 74 * is written int
8650: 6f 20 74 68 65 20 62 75 66 66 65 72 20 7a 42 75 o the buffer zBu
8660: 66 5b 32 35 36 5d 2e 20 20 54 68 65 20 63 61 6c f[256]. The cal
8670: 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 6d 75 ling function mu
8680: 73 74 0a 2a 2a 20 73 75 70 70 6c 79 20 61 20 73 st.** supply a s
8690: 75 66 66 69 63 69 65 6e 74 6c 79 20 6c 61 72 67 ufficiently larg
86a0: 65 20 62 75 66 66 65 72 2e 0a 2a 2f 0a 69 6e 74 e buffer..*/.int
86b0: 20 73 71 6c 69 74 65 33 4f 73 52 61 6e 64 6f 6d sqlite3OsRandom
86c0: 53 65 65 64 28 63 68 61 72 20 2a 7a 42 75 66 29 Seed(char *zBuf)
86d0: 7b 0a 20 20 2f 2a 20 57 65 20 68 61 76 65 20 74 {. /* We have t
86e0: 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 7a 42 75 o initialize zBu
86f0: 66 20 74 6f 20 70 72 65 76 65 6e 74 20 76 61 6c f to prevent val
8700: 67 72 69 6e 64 20 66 72 6f 6d 20 72 65 70 6f 72 grind from repor
8710: 74 69 6e 67 0a 20 20 2a 2a 20 65 72 72 6f 72 73 ting. ** errors
8720: 2e 20 20 54 68 65 20 72 65 70 6f 72 74 73 20 69 . The reports i
8730: 73 73 75 65 64 20 62 79 20 76 61 6c 67 72 69 6e ssued by valgrin
8740: 64 20 61 72 65 20 69 6e 63 6f 72 72 65 63 74 20 d are incorrect
8750: 2d 20 77 65 20 77 6f 75 6c 64 0a 20 20 2a 2a 20 - we would. **
8760: 70 72 65 66 65 72 20 74 68 61 74 20 74 68 65 20 prefer that the
8770: 72 61 6e 64 6f 6d 6e 65 73 73 20 62 65 20 69 6e randomness be in
8780: 63 72 65 61 73 65 64 20 62 79 20 6d 61 6b 69 6e creased by makin
8790: 67 20 75 73 65 20 6f 66 20 74 68 65 0a 20 20 2a g use of the. *
87a0: 2a 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 64 20 * uninitialized
87b0: 73 70 61 63 65 20 69 6e 20 7a 42 75 66 20 2d 20 space in zBuf -
87c0: 62 75 74 20 76 61 6c 67 72 69 6e 64 20 65 72 72 but valgrind err
87d0: 6f 72 73 20 74 65 6e 64 20 74 6f 20 77 6f 72 72 ors tend to worr
87e0: 79 0a 20 20 2a 2a 20 73 6f 6d 65 20 75 73 65 72 y. ** some user
87f0: 73 2e 20 20 52 61 74 68 65 72 20 74 68 61 6e 20 s. Rather than
8800: 61 72 67 75 65 2c 20 69 74 20 73 65 65 6d 73 20 argue, it seems
8810: 65 61 73 69 65 72 20 6a 75 73 74 20 74 6f 20 69 easier just to i
8820: 6e 69 74 69 61 6c 69 7a 65 0a 20 20 2a 2a 20 74 nitialize. ** t
8830: 68 65 20 77 68 6f 6c 65 20 61 72 72 61 79 20 61 he whole array a
8840: 6e 64 20 73 69 6c 65 6e 63 65 20 76 61 6c 67 72 nd silence valgr
8850: 69 6e 64 2c 20 65 76 65 6e 20 69 66 20 74 68 61 ind, even if tha
8860: 74 20 6d 65 61 6e 73 20 6c 65 73 73 20 72 61 6e t means less ran
8870: 64 6f 6d 6e 65 73 73 0a 20 20 2a 2a 20 69 6e 20 domness. ** in
8880: 74 68 65 20 72 61 6e 64 6f 6d 20 73 65 65 64 2e the random seed.
8890: 0a 20 20 2a 2a 0a 20 20 2a 2a 20 57 68 65 6e 20 . **. ** When
88a0: 74 65 73 74 69 6e 67 2c 20 69 6e 69 74 69 61 6c testing, initial
88b0: 69 7a 69 6e 67 20 7a 42 75 66 5b 5d 20 74 6f 20 izing zBuf[] to
88c0: 7a 65 72 6f 20 69 73 20 61 6c 6c 20 77 65 20 64 zero is all we d
88d0: 6f 2e 20 20 54 68 61 74 20 6d 65 61 6e 73 0a 20 o. That means.
88e0: 20 2a 2a 20 74 68 61 74 20 77 65 20 61 6c 77 61 ** that we alwa
88f0: 79 73 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 ys use the same
8900: 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 73 65 random number se
8910: 71 75 65 6e 63 65 2e 2a 20 54 68 69 73 20 6d 61 quence.* This ma
8920: 6b 65 73 20 74 68 65 0a 20 20 2a 2a 20 74 65 73 kes the. ** tes
8930: 74 73 20 72 65 70 65 61 74 61 62 6c 65 2e 0a 20 ts repeatable..
8940: 20 2a 2f 0a 20 20 6d 65 6d 73 65 74 28 7a 42 75 */. memset(zBu
8950: 66 2c 20 30 2c 20 32 35 36 29 3b 0a 23 69 66 20 f, 0, 256);.#if
8960: 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f !defined(SQLITE_
8970: 54 45 53 54 29 0a 20 20 7b 0a 20 20 20 20 69 6e TEST). {. in
8980: 74 20 70 69 64 3b 0a 20 20 20 20 74 69 6d 65 28 t pid;. time(
8990: 28 74 69 6d 65 5f 74 2a 29 7a 42 75 66 29 3b 0a (time_t*)zBuf);.
89a0: 20 20 20 20 70 69 64 20 3d 20 67 65 74 70 69 64 pid = getpid
89b0: 28 29 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 26 ();. memcpy(&
89c0: 7a 42 75 66 5b 73 69 7a 65 6f 66 28 74 69 6d 65 zBuf[sizeof(time
89d0: 5f 74 29 5d 2c 20 26 70 69 64 2c 20 73 69 7a 65 _t)], &pid, size
89e0: 6f 66 28 70 69 64 29 29 3b 0a 20 20 7d 0a 23 65 of(pid));. }.#e
89f0: 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 53 51 ndif. return SQ
8a00: 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a LITE_OK;.}../*.*
8a10: 2a 20 53 6c 65 65 70 20 66 6f 72 20 61 20 6c 69 * Sleep for a li
8a20: 74 74 6c 65 20 77 68 69 6c 65 2e 20 20 52 65 74 ttle while. Ret
8a30: 75 72 6e 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f urn the amount o
8a40: 66 20 74 69 6d 65 20 73 6c 65 70 74 2e 0a 2a 2f f time slept..*/
8a50: 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 53 6c .int sqlite3OsSl
8a60: 65 65 70 28 69 6e 74 20 6d 73 29 7b 0a 23 69 66 eep(int ms){.#if
8a70: 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 55 53 defined(HAVE_US
8a80: 4c 45 45 50 29 20 26 26 20 48 41 56 45 5f 55 53 LEEP) && HAVE_US
8a90: 4c 45 45 50 0a 20 20 75 73 6c 65 65 70 28 6d 73 LEEP. usleep(ms
8aa0: 2a 31 30 30 30 29 3b 0a 20 20 72 65 74 75 72 6e *1000);. return
8ab0: 20 6d 73 3b 0a 23 65 6c 73 65 0a 20 20 73 6c 65 ms;.#else. sle
8ac0: 65 70 28 28 6d 73 2b 39 39 39 29 2f 31 30 30 30 ep((ms+999)/1000
8ad0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 31 30 30 30 );. return 1000
8ae0: 2a 28 28 6d 73 2b 39 39 39 29 2f 31 30 30 30 29 *((ms+999)/1000)
8af0: 3b 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a ;.#endif.}../*.*
8b00: 2a 20 53 74 61 74 69 63 20 76 61 72 69 61 62 6c * Static variabl
8b10: 65 73 20 75 73 65 64 20 66 6f 72 20 74 68 72 65 es used for thre
8b20: 61 64 20 73 79 6e 63 68 72 6f 6e 69 7a 61 74 69 ad synchronizati
8b30: 6f 6e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 on.*/.static int
8b40: 20 69 6e 4d 75 74 65 78 20 3d 20 30 3b 0a 23 69 inMutex = 0;.#i
8b50: 66 64 65 66 20 53 51 4c 49 54 45 5f 55 4e 49 58 fdef SQLITE_UNIX
8b60: 5f 54 48 52 45 41 44 53 0a 73 74 61 74 69 63 20 _THREADS.static
8b70: 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 74 20 pthread_mutex_t
8b80: 6d 75 74 65 78 20 3d 20 50 54 48 52 45 41 44 5f mutex = PTHREAD_
8b90: 4d 55 54 45 58 5f 49 4e 49 54 49 41 4c 49 5a 45 MUTEX_INITIALIZE
8ba0: 52 3b 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a R;.#endif../*.**
8bb0: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 The following p
8bc0: 61 69 72 20 6f 66 20 72 6f 75 74 69 6e 65 20 69 air of routine i
8bd0: 6d 70 6c 65 6d 65 6e 74 20 6d 75 74 75 61 6c 20 mplement mutual
8be0: 65 78 63 6c 75 73 69 6f 6e 20 66 6f 72 0a 2a 2a exclusion for.**
8bf0: 20 6d 75 6c 74 69 2d 74 68 72 65 61 64 65 64 20 multi-threaded
8c00: 70 72 6f 63 65 73 73 65 73 2e 20 20 4f 6e 6c 79 processes. Only
8c10: 20 61 20 73 69 6e 67 6c 65 20 74 68 72 65 61 64 a single thread
8c20: 20 69 73 20 61 6c 6c 6f 77 65 64 20 74 6f 0a 2a is allowed to.*
8c30: 2a 20 65 78 65 63 75 74 65 64 20 63 6f 64 65 20 * executed code
8c40: 74 68 61 74 20 69 73 20 73 75 72 72 6f 75 6e 64 that is surround
8c50: 65 64 20 62 79 20 45 6e 74 65 72 4d 75 74 65 78 ed by EnterMutex
8c60: 28 29 20 61 6e 64 20 4c 65 61 76 65 4d 75 74 65 () and LeaveMute
8c70: 78 28 29 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 69 74 x()..**.** SQLit
8c80: 65 20 75 73 65 73 20 6f 6e 6c 79 20 61 20 73 69 e uses only a si
8c90: 6e 67 6c 65 20 4d 75 74 65 78 2e 20 20 54 68 65 ngle Mutex. The
8ca0: 72 65 20 69 73 20 6e 6f 74 20 6d 75 63 68 20 63 re is not much c
8cb0: 72 69 74 69 63 61 6c 0a 2a 2a 20 63 6f 64 65 20 ritical.** code
8cc0: 61 6e 64 20 77 68 61 74 20 6c 69 74 74 6c 65 20 and what little
8cd0: 74 68 65 72 65 20 69 73 20 65 78 65 63 75 74 65 there is execute
8ce0: 73 20 71 75 69 63 6b 6c 79 20 61 6e 64 20 77 69 s quickly and wi
8cf0: 74 68 6f 75 74 20 62 6c 6f 63 6b 69 6e 67 2e 0a thout blocking..
8d00: 2a 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 4f */.void sqlite3O
8d10: 73 45 6e 74 65 72 4d 75 74 65 78 28 29 7b 0a 23 sEnterMutex(){.#
8d20: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 55 4e 49 ifdef SQLITE_UNI
8d30: 58 5f 54 48 52 45 41 44 53 0a 20 20 70 74 68 72 X_THREADS. pthr
8d40: 65 61 64 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 26 ead_mutex_lock(&
8d50: 6d 75 74 65 78 29 3b 0a 23 65 6e 64 69 66 0a 20 mutex);.#endif.
8d60: 20 61 73 73 65 72 74 28 20 21 69 6e 4d 75 74 65 assert( !inMute
8d70: 78 20 29 3b 0a 20 20 69 6e 4d 75 74 65 78 20 3d x );. inMutex =
8d80: 20 31 3b 0a 7d 0a 76 6f 69 64 20 73 71 6c 69 74 1;.}.void sqlit
8d90: 65 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 28 29 e3OsLeaveMutex()
8da0: 7b 0a 20 20 61 73 73 65 72 74 28 20 69 6e 4d 75 {. assert( inMu
8db0: 74 65 78 20 29 3b 0a 20 20 69 6e 4d 75 74 65 78 tex );. inMutex
8dc0: 20 3d 20 30 3b 0a 23 69 66 64 65 66 20 53 51 4c = 0;.#ifdef SQL
8dd0: 49 54 45 5f 55 4e 49 58 5f 54 48 52 45 41 44 53 ITE_UNIX_THREADS
8de0: 0a 20 20 70 74 68 72 65 61 64 5f 6d 75 74 65 78 . pthread_mutex
8df0: 5f 75 6e 6c 6f 63 6b 28 26 6d 75 74 65 78 29 3b _unlock(&mutex);
8e00: 0a 23 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a .#endif.}../*.**
8e10: 20 54 75 72 6e 20 61 20 72 65 6c 61 74 69 76 65 Turn a relative
8e20: 20 70 61 74 68 6e 61 6d 65 20 69 6e 74 6f 20 61 pathname into a
8e30: 20 66 75 6c 6c 20 70 61 74 68 6e 61 6d 65 2e 20 full pathname.
8e40: 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 Return a pointe
8e50: 72 0a 2a 2a 20 74 6f 20 74 68 65 20 66 75 6c 6c r.** to the full
8e60: 20 70 61 74 68 6e 61 6d 65 20 73 74 6f 72 65 64 pathname stored
8e70: 20 69 6e 20 73 70 61 63 65 20 6f 62 74 61 69 6e in space obtain
8e80: 65 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61 ed from sqliteMa
8e90: 6c 6c 6f 63 28 29 2e 0a 2a 2a 20 54 68 65 20 63 lloc()..** The c
8ea0: 61 6c 6c 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 alling function
8eb0: 69 73 20 72 65 73 70 6f 6e 73 69 62 6c 65 20 66 is responsible f
8ec0: 6f 72 20 66 72 65 65 69 6e 67 20 74 68 69 73 20 or freeing this
8ed0: 73 70 61 63 65 20 6f 6e 63 65 20 69 74 0a 2a 2a space once it.**
8ee0: 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 6e 65 is no longer ne
8ef0: 65 64 65 64 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 eded..*/.char *s
8f00: 71 6c 69 74 65 33 4f 73 46 75 6c 6c 50 61 74 68 qlite3OsFullPath
8f10: 6e 61 6d 65 28 63 6f 6e 73 74 20 63 68 61 72 20 name(const char
8f20: 2a 7a 52 65 6c 61 74 69 76 65 29 7b 0a 20 20 63 *zRelative){. c
8f30: 68 61 72 20 2a 7a 46 75 6c 6c 20 3d 20 30 3b 0a har *zFull = 0;.
8f40: 20 20 69 66 28 20 7a 52 65 6c 61 74 69 76 65 5b if( zRelative[
8f50: 30 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 20 73 0]=='/' ){. s
8f60: 71 6c 69 74 65 33 53 65 74 53 74 72 69 6e 67 28 qlite3SetString(
8f70: 26 7a 46 75 6c 6c 2c 20 7a 52 65 6c 61 74 69 76 &zFull, zRelativ
8f80: 65 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 e, (char*)0);.
8f90: 7d 65 6c 73 65 7b 0a 20 20 20 20 63 68 61 72 20 }else{. char
8fa0: 7a 42 75 66 5b 35 30 30 30 5d 3b 0a 20 20 20 20 zBuf[5000];.
8fb0: 73 71 6c 69 74 65 33 53 65 74 53 74 72 69 6e 67 sqlite3SetString
8fc0: 28 26 7a 46 75 6c 6c 2c 20 67 65 74 63 77 64 28 (&zFull, getcwd(
8fd0: 7a 42 75 66 2c 20 73 69 7a 65 6f 66 28 7a 42 75 zBuf, sizeof(zBu
8fe0: 66 29 29 2c 20 22 2f 22 2c 20 7a 52 65 6c 61 74 f)), "/", zRelat
8ff0: 69 76 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ive,.
9000: 20 20 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 (char*)
9010: 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 0);. }. return
9020: 20 7a 46 75 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a zFull;.}../*.**
9030: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 76 The following v
9040: 61 72 69 61 62 6c 65 2c 20 69 66 20 73 65 74 20 ariable, if set
9050: 74 6f 20 61 20 6e 6f 6e 2d 7a 65 72 6f 20 76 61 to a non-zero va
9060: 6c 75 65 2c 20 62 65 63 6f 6d 65 73 20 74 68 65 lue, becomes the
9070: 20 72 65 73 75 6c 74 0a 2a 2a 20 72 65 74 75 72 result.** retur
9080: 6e 65 64 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 ned from sqlite3
9090: 4f 73 43 75 72 72 65 6e 74 54 69 6d 65 28 29 2e OsCurrentTime().
90a0: 20 20 54 68 69 73 20 69 73 20 75 73 65 64 20 66 This is used f
90b0: 6f 72 20 74 65 73 74 69 6e 67 2e 0a 2a 2f 0a 23 or testing..*/.#
90c0: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53 ifdef SQLITE_TES
90d0: 54 0a 69 6e 74 20 73 71 6c 69 74 65 33 5f 63 75 T.int sqlite3_cu
90e0: 72 72 65 6e 74 5f 74 69 6d 65 20 3d 20 30 3b 0a rrent_time = 0;.
90f0: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 46 69 #endif../*.** Fi
9100: 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 nd the current t
9110: 69 6d 65 20 28 69 6e 20 55 6e 69 76 65 72 73 61 ime (in Universa
9120: 6c 20 43 6f 6f 72 64 69 6e 61 74 65 64 20 54 69 l Coordinated Ti
9130: 6d 65 29 2e 20 20 57 72 69 74 65 20 74 68 65 0a me). Write the.
9140: 2a 2a 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 ** current time
9150: 61 6e 64 20 64 61 74 65 20 61 73 20 61 20 4a 75 and date as a Ju
9160: 6c 69 61 6e 20 44 61 79 20 6e 75 6d 62 65 72 20 lian Day number
9170: 69 6e 74 6f 20 2a 70 72 4e 6f 77 20 61 6e 64 0a into *prNow and.
9180: 2a 2a 20 72 65 74 75 72 6e 20 30 2e 20 20 52 65 ** return 0. Re
9190: 74 75 72 6e 20 31 20 69 66 20 74 68 65 20 74 69 turn 1 if the ti
91a0: 6d 65 20 61 6e 64 20 64 61 74 65 20 63 61 6e 6e me and date cann
91b0: 6f 74 20 62 65 20 66 6f 75 6e 64 2e 0a 2a 2f 0a ot be found..*/.
91c0: 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 43 75 72 int sqlite3OsCur
91d0: 72 65 6e 74 54 69 6d 65 28 64 6f 75 62 6c 65 20 rentTime(double
91e0: 2a 70 72 4e 6f 77 29 7b 0a 20 20 74 69 6d 65 5f *prNow){. time_
91f0: 74 20 74 3b 0a 20 20 74 69 6d 65 28 26 74 29 3b t t;. time(&t);
9200: 0a 20 20 2a 70 72 4e 6f 77 20 3d 20 74 2f 38 36 . *prNow = t/86
9210: 34 30 30 2e 30 20 2b 20 32 34 34 30 35 38 37 2e 400.0 + 2440587.
9220: 35 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5;.#ifdef SQLITE
9230: 5f 54 45 53 54 0a 20 20 69 66 28 20 73 71 6c 69 _TEST. if( sqli
9240: 74 65 33 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 te3_current_time
9250: 20 29 7b 0a 20 20 20 20 2a 70 72 4e 6f 77 20 3d ){. *prNow =
9260: 20 73 71 6c 69 74 65 33 5f 63 75 72 72 65 6e 74 sqlite3_current
9270: 5f 74 69 6d 65 2f 38 36 34 30 30 2e 30 20 2b 20 _time/86400.0 +
9280: 32 34 34 30 35 38 37 2e 35 3b 0a 20 20 7d 0a 23 2440587.5;. }.#
9290: 65 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 30 endif. return 0
92a0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 69 6e 64 20 ;.}../*.** Find
92b0: 74 68 65 20 74 69 6d 65 20 74 68 61 74 20 74 68 the time that th
92c0: 65 20 66 69 6c 65 20 77 61 73 20 6c 61 73 74 20 e file was last
92d0: 6d 6f 64 69 66 69 65 64 2e 20 20 57 72 69 74 65 modified. Write
92e0: 20 74 68 65 0a 2a 2a 20 6d 6f 64 69 66 69 63 61 the.** modifica
92f0: 74 69 6f 6e 20 74 69 6d 65 20 61 6e 64 20 64 61 tion time and da
9300: 74 65 20 61 73 20 61 20 4a 75 6c 69 61 6e 20 44 te as a Julian D
9310: 61 79 20 6e 75 6d 62 65 72 20 69 6e 74 6f 20 2a ay number into *
9320: 70 72 4e 6f 77 20 61 6e 64 0a 2a 2a 20 72 65 74 prNow and.** ret
9330: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 2e 20 20 urn SQLITE_OK.
9340: 52 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 Return SQLITE_ER
9350: 52 4f 52 20 69 66 20 74 68 65 20 6d 6f 64 69 66 ROR if the modif
9360: 69 63 61 74 69 6f 6e 0a 2a 2a 20 74 69 6d 65 20 ication.** time
9370: 63 61 6e 6e 6f 74 20 62 65 20 66 6f 75 6e 64 2e cannot be found.
9380: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f .*/.int sqlite3O
9390: 73 46 69 6c 65 4d 6f 64 54 69 6d 65 28 4f 73 46 sFileModTime(OsF
93a0: 69 6c 65 20 2a 69 64 2c 20 64 6f 75 62 6c 65 20 ile *id, double
93b0: 2a 70 72 4e 6f 77 29 7b 0a 20 20 69 6e 74 20 72 *prNow){. int r
93c0: 63 3b 0a 20 20 73 74 72 75 63 74 20 73 74 61 74 c;. struct stat
93d0: 20 73 74 61 74 62 75 66 3b 0a 20 20 69 66 28 20 statbuf;. if(
93e0: 66 73 74 61 74 28 69 64 2d 3e 68 2c 20 26 73 74 fstat(id->h, &st
93f0: 61 74 62 75 66 29 3d 3d 30 20 29 7b 0a 20 20 20 atbuf)==0 ){.
9400: 20 2a 70 72 4e 6f 77 20 3d 20 73 74 61 74 62 75 *prNow = statbu
9410: 66 2e 73 74 5f 6d 74 69 6d 65 2f 38 36 34 30 30 f.st_mtime/86400
9420: 2e 30 20 2b 20 32 34 34 30 35 38 37 2e 35 3b 0a .0 + 2440587.5;.
9430: 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f rc = SQLITE_
9440: 4f 4b 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 OK;. }else{.
9450: 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 45 52 52 rc = SQLITE_ERR
9460: 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e OR;. }. return
9470: 20 72 63 3b 0a 7d 0a 0a 23 65 6e 64 69 66 20 2f rc;.}..#endif /
9480: 2a 20 4f 53 5f 55 4e 49 58 20 2a 2f 0a * OS_UNIX */.