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 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a e "sqliteInt.h".
01d0: 23 69 6e 63 6c 75 64 65 20 22 6f 73 2e 68 22 0a #include "os.h".
01e0: 23 69 66 20 4f 53 5f 55 4e 49 58 20 20 20 20 20 #if OS_UNIX
01f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 69 73 /* This
0200: 20 66 69 6c 65 20 69 73 20 75 73 65 64 20 6f 6e file is used on
0210: 20 75 6e 69 78 20 6f 6e 6c 79 20 2a 2f 0a 0a 0a unix only */...
0220: 23 69 6e 63 6c 75 64 65 20 3c 74 69 6d 65 2e 68 #include <time.h
0230: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 6e >.#include <errn
0240: 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 75 o.h>.#include <u
0250: 6e 69 73 74 64 2e 68 3e 0a 23 69 66 6e 64 65 66 nistd.h>.#ifndef
0260: 20 4f 5f 4c 41 52 47 45 46 49 4c 45 0a 23 20 64 O_LARGEFILE.# d
0270: 65 66 69 6e 65 20 4f 5f 4c 41 52 47 45 46 49 4c efine O_LARGEFIL
0280: 45 20 30 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 E 0.#endif.#ifde
0290: 66 20 53 51 4c 49 54 45 5f 44 49 53 41 42 4c 45 f SQLITE_DISABLE
02a0: 5f 4c 46 53 0a 23 20 75 6e 64 65 66 20 4f 5f 4c _LFS.# undef O_L
02b0: 41 52 47 45 46 49 4c 45 0a 23 20 64 65 66 69 6e ARGEFILE.# defin
02c0: 65 20 4f 5f 4c 41 52 47 45 46 49 4c 45 20 30 0a e O_LARGEFILE 0.
02d0: 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 4f #endif.#ifndef O
02e0: 5f 4e 4f 46 4f 4c 4c 4f 57 0a 23 20 64 65 66 69 _NOFOLLOW.# defi
02f0: 6e 65 20 4f 5f 4e 4f 46 4f 4c 4c 4f 57 20 30 0a ne O_NOFOLLOW 0.
0300: 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 20 4f #endif.#ifndef O
0310: 5f 42 49 4e 41 52 59 0a 23 20 64 65 66 69 6e 65 _BINARY.# define
0320: 20 4f 5f 42 49 4e 41 52 59 20 30 0a 23 65 6e 64 O_BINARY 0.#end
0330: 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 44 if.../*.** The D
0340: 4a 47 50 50 20 63 6f 6d 70 69 6c 65 72 20 65 6e JGPP compiler en
0350: 76 69 72 6f 6e 6d 65 6e 74 20 6c 6f 6f 6b 73 20 vironment looks
0360: 6d 6f 73 74 6c 79 20 6c 69 6b 65 20 55 6e 69 78 mostly like Unix
0370: 2c 20 62 75 74 20 69 74 0a 2a 2a 20 6c 61 63 6b , but it.** lack
0380: 73 20 74 68 65 20 66 63 6e 74 6c 28 29 20 73 79 s the fcntl() sy
0390: 73 74 65 6d 20 63 61 6c 6c 2e 20 20 53 6f 20 72 stem call. So r
03a0: 65 64 65 66 69 6e 65 20 66 63 6e 74 6c 28 29 20 edefine fcntl()
03b0: 74 6f 20 62 65 20 73 6f 6d 65 74 68 69 6e 67 0a to be something.
03c0: 2a 2a 20 74 68 61 74 20 61 6c 77 61 79 73 20 73 ** that always s
03d0: 75 63 63 65 65 64 73 2e 20 20 54 68 69 73 20 6d ucceeds. This m
03e0: 65 61 6e 73 20 74 68 61 74 20 6c 6f 63 6b 69 6e eans that lockin
03f0: 67 20 64 6f 65 73 20 6e 6f 74 20 6f 63 63 75 72 g does not occur
0400: 20 75 6e 64 65 72 0a 2a 2a 20 44 4a 47 50 50 2e under.** DJGPP.
0410: 20 20 42 75 74 20 69 74 73 20 44 4f 53 20 2d 20 But its DOS -
0420: 77 68 61 74 20 64 69 64 20 79 6f 75 20 65 78 70 what did you exp
0430: 65 63 74 3f 0a 2a 2f 0a 23 69 66 64 65 66 20 5f ect?.*/.#ifdef _
0440: 5f 44 4a 47 50 50 5f 5f 0a 23 20 64 65 66 69 6e _DJGPP__.# defin
0450: 65 20 66 63 6e 74 6c 28 41 2c 42 2c 43 29 20 30 e fcntl(A,B,C) 0
0460: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 4d .#endif../*.** M
0470: 61 63 72 6f 73 20 75 73 65 64 20 74 6f 20 64 65 acros used to de
0480: 74 65 72 6d 69 6e 65 20 77 68 65 74 68 65 72 20 termine whether
0490: 6f 72 20 6e 6f 74 20 74 6f 20 75 73 65 20 74 68 or not to use th
04a0: 72 65 61 64 73 2e 20 20 54 68 65 0a 2a 2a 20 53 reads. The.** S
04b0: 51 4c 49 54 45 5f 55 4e 49 58 5f 54 48 52 45 41 QLITE_UNIX_THREA
04c0: 44 53 20 6d 61 63 72 6f 20 69 73 20 64 65 66 69 DS macro is defi
04d0: 6e 65 64 20 69 66 20 77 65 20 61 72 65 20 73 79 ned if we are sy
04e0: 6e 63 68 72 6f 6e 69 7a 69 6e 67 20 66 6f 72 0a nchronizing for.
04f0: 2a 2a 20 50 6f 73 69 78 20 74 68 72 65 61 64 73 ** Posix threads
0500: 20 61 6e 64 20 53 51 4c 49 54 45 5f 57 33 32 5f and SQLITE_W32_
0510: 54 48 52 45 41 44 53 20 69 73 20 64 65 66 69 6e THREADS is defin
0520: 65 64 20 69 66 20 77 65 20 61 72 65 0a 2a 2a 20 ed if we are.**
0530: 73 79 6e 63 68 72 6f 6e 69 7a 69 6e 67 20 75 73 synchronizing us
0540: 69 6e 67 20 57 69 6e 33 32 20 74 68 72 65 61 64 ing Win32 thread
0550: 73 2e 0a 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 s..*/.#if define
0560: 64 28 54 48 52 45 41 44 53 41 46 45 29 20 26 26 d(THREADSAFE) &&
0570: 20 54 48 52 45 41 44 53 41 46 45 0a 23 20 69 6e THREADSAFE.# in
0580: 63 6c 75 64 65 20 3c 70 74 68 72 65 61 64 2e 68 clude <pthread.h
0590: 3e 0a 23 20 64 65 66 69 6e 65 20 53 51 4c 49 54 >.# define SQLIT
05a0: 45 5f 55 4e 49 58 5f 54 48 52 45 41 44 53 20 31 E_UNIX_THREADS 1
05b0: 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 2a 20 .#endif.../*.**
05c0: 49 6e 63 6c 75 64 65 20 63 6f 64 65 20 74 68 61 Include code tha
05d0: 74 20 69 73 20 63 6f 6d 6d 6f 6e 20 74 6f 20 61 t is common to a
05e0: 6c 6c 20 6f 73 5f 2a 2e 63 20 66 69 6c 65 73 0a ll os_*.c files.
05f0: 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 6f 73 5f */.#include "os_
0600: 63 6f 6d 6d 6f 6e 2e 68 22 0a 0a 23 69 66 20 64 common.h"..#if d
0610: 65 66 69 6e 65 64 28 54 48 52 45 41 44 53 41 46 efined(THREADSAF
0620: 45 29 20 26 26 20 54 48 52 45 41 44 53 41 46 45 E) && THREADSAFE
0630: 20 26 26 20 64 65 66 69 6e 65 64 28 5f 5f 6c 69 && defined(__li
0640: 6e 75 78 5f 5f 29 0a 23 64 65 66 69 6e 65 20 67 nux__).#define g
0650: 65 74 70 69 64 20 70 74 68 72 65 61 64 5f 73 65 etpid pthread_se
0660: 6c 66 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a lf.#endif../*.**
0670: 20 48 65 72 65 20 69 73 20 74 68 65 20 64 69 72 Here is the dir
0680: 74 20 6f 6e 20 50 4f 53 49 58 20 61 64 76 69 73 t on POSIX advis
0690: 6f 72 79 20 6c 6f 63 6b 73 3a 20 20 41 4e 53 49 ory locks: ANSI
06a0: 20 53 54 44 20 31 30 30 33 2e 31 20 28 31 39 39 STD 1003.1 (199
06b0: 36 29 0a 2a 2a 20 73 65 63 74 69 6f 6e 20 36 2e 6).** section 6.
06c0: 35 2e 32 2e 32 20 6c 69 6e 65 73 20 34 38 33 20 5.2.2 lines 483
06d0: 74 68 72 6f 75 67 68 20 34 39 30 20 73 70 65 63 through 490 spec
06e0: 69 66 79 20 74 68 61 74 20 77 68 65 6e 20 61 20 ify that when a
06f0: 70 72 6f 63 65 73 73 0a 2a 2a 20 73 65 74 73 20 process.** sets
0700: 6f 72 20 63 6c 65 61 72 73 20 61 20 6c 6f 63 6b or clears a lock
0710: 2c 20 74 68 61 74 20 6f 70 65 72 61 74 69 6f 6e , that operation
0720: 20 6f 76 65 72 72 69 64 65 73 20 61 6e 79 20 70 overrides any p
0730: 72 69 6f 72 20 6c 6f 63 6b 73 20 73 65 74 0a 2a rior locks set.*
0740: 2a 20 62 79 20 74 68 65 20 73 61 6d 65 20 70 72 * by the same pr
0750: 6f 63 65 73 73 2e 20 20 49 74 20 64 6f 65 73 20 ocess. It does
0760: 6e 6f 74 20 65 78 70 6c 69 63 69 74 6c 79 20 73 not explicitly s
0770: 61 79 20 73 6f 2c 20 62 75 74 20 74 68 69 73 20 ay so, but this
0780: 69 6d 70 6c 69 65 73 0a 2a 2a 20 74 68 61 74 20 implies.** that
0790: 69 74 20 6f 76 65 72 72 69 64 65 73 20 6c 6f 63 it overrides loc
07a0: 6b 73 20 73 65 74 20 62 79 20 74 68 65 20 73 61 ks set by the sa
07b0: 6d 65 20 70 72 6f 63 65 73 73 20 75 73 69 6e 67 me process using
07c0: 20 61 20 64 69 66 66 65 72 65 6e 74 0a 2a 2a 20 a different.**
07d0: 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 2e file descriptor.
07e0: 20 20 43 6f 6e 73 69 64 65 72 20 74 68 69 73 20 Consider this
07f0: 74 65 73 74 20 63 61 73 65 3a 0a 2a 2a 0a 2a 2a test case:.**.**
0800: 20 20 20 20 20 20 20 69 6e 74 20 66 64 31 20 3d int fd1 =
0810: 20 6f 70 65 6e 28 22 2e 2f 66 69 6c 65 31 22 2c open("./file1",
0820: 20 4f 5f 52 44 57 52 7c 4f 5f 43 52 45 41 54 2c O_RDWR|O_CREAT,
0830: 20 30 36 34 34 29 3b 0a 2a 2a 20 20 20 20 20 20 0644);.**
0840: 20 69 6e 74 20 66 64 32 20 3d 20 6f 70 65 6e 28 int fd2 = open(
0850: 22 2e 2f 66 69 6c 65 32 22 2c 20 4f 5f 52 44 57 "./file2", O_RDW
0860: 52 7c 4f 5f 43 52 45 41 54 2c 20 30 36 34 34 29 R|O_CREAT, 0644)
0870: 3b 0a 2a 2a 0a 2a 2a 20 53 75 70 70 6f 73 65 20 ;.**.** Suppose
0880: 2e 2f 66 69 6c 65 31 20 61 6e 64 20 2e 2f 66 69 ./file1 and ./fi
0890: 6c 65 32 20 61 72 65 20 72 65 61 6c 6c 79 20 74 le2 are really t
08a0: 68 65 20 73 61 6d 65 20 66 69 6c 65 20 28 62 65 he same file (be
08b0: 63 61 75 73 65 0a 2a 2a 20 6f 6e 65 20 69 73 20 cause.** one is
08c0: 61 20 68 61 72 64 20 6f 72 20 73 79 6d 62 6f 6c a hard or symbol
08d0: 69 63 20 6c 69 6e 6b 20 74 6f 20 74 68 65 20 6f ic link to the o
08e0: 74 68 65 72 29 20 74 68 65 6e 20 69 66 20 79 6f ther) then if yo
08f0: 75 20 73 65 74 0a 2a 2a 20 61 6e 20 65 78 63 6c u set.** an excl
0900: 75 73 69 76 65 20 6c 6f 63 6b 20 6f 6e 20 66 64 usive lock on fd
0910: 31 2c 20 74 68 65 6e 20 74 72 79 20 74 6f 20 67 1, then try to g
0920: 65 74 20 61 6e 20 65 78 63 6c 75 73 69 76 65 20 et an exclusive
0930: 6c 6f 63 6b 0a 2a 2a 20 6f 6e 20 66 64 32 2c 20 lock.** on fd2,
0940: 69 74 20 77 6f 72 6b 73 2e 20 20 49 20 77 6f 75 it works. I wou
0950: 6c 64 20 68 61 76 65 20 65 78 70 65 63 74 65 64 ld have expected
0960: 20 74 68 65 20 73 65 63 6f 6e 64 20 6c 6f 63 6b the second lock
0970: 20 74 6f 0a 2a 2a 20 66 61 69 6c 20 73 69 6e 63 to.** fail sinc
0980: 65 20 74 68 65 72 65 20 77 61 73 20 61 6c 72 65 e there was alre
0990: 61 64 79 20 61 20 6c 6f 63 6b 20 6f 6e 20 74 68 ady a lock on th
09a0: 65 20 66 69 6c 65 20 64 75 65 20 74 6f 20 66 64 e file due to fd
09b0: 31 2e 0a 2a 2a 20 42 75 74 20 6e 6f 74 20 73 6f 1..** But not so
09c0: 2e 20 20 53 69 6e 63 65 20 62 6f 74 68 20 6c 6f . Since both lo
09d0: 63 6b 73 20 63 61 6d 65 20 66 72 6f 6d 20 74 68 cks came from th
09e0: 65 20 73 61 6d 65 20 70 72 6f 63 65 73 73 2c 20 e same process,
09f0: 74 68 65 0a 2a 2a 20 73 65 63 6f 6e 64 20 6f 76 the.** second ov
0a00: 65 72 72 69 64 65 73 20 74 68 65 20 66 69 72 73 errides the firs
0a10: 74 2c 20 65 76 65 6e 20 74 68 6f 75 67 68 20 74 t, even though t
0a20: 68 65 79 20 77 65 72 65 20 6f 6e 20 64 69 66 66 hey were on diff
0a30: 65 72 65 6e 74 0a 2a 2a 20 66 69 6c 65 20 64 65 erent.** file de
0a40: 73 63 72 69 70 74 6f 72 73 20 6f 70 65 6e 65 64 scriptors opened
0a50: 20 6f 6e 20 64 69 66 66 65 72 65 6e 74 20 66 69 on different fi
0a60: 6c 65 20 6e 61 6d 65 73 2e 0a 2a 2a 0a 2a 2a 20 le names..**.**
0a70: 42 75 6d 6d 65 72 2e 20 20 49 66 20 79 6f 75 20 Bummer. If you
0a80: 61 73 6b 20 6d 65 2c 20 74 68 69 73 20 69 73 20 ask me, this is
0a90: 62 72 6f 6b 65 6e 2e 20 20 42 61 64 6c 79 20 62 broken. Badly b
0aa0: 72 6f 6b 65 6e 2e 20 20 49 74 20 6d 65 61 6e 73 roken. It means
0ab0: 0a 2a 2a 20 74 68 61 74 20 77 65 20 63 61 6e 6e .** that we cann
0ac0: 6f 74 20 75 73 65 20 50 4f 53 49 58 20 6c 6f 63 ot use POSIX loc
0ad0: 6b 73 20 74 6f 20 73 79 6e 63 68 72 6f 6e 69 7a ks to synchroniz
0ae0: 65 20 66 69 6c 65 20 61 63 63 65 73 73 20 61 6d e file access am
0af0: 6f 6e 67 0a 2a 2a 20 63 6f 6d 70 65 74 69 6e 67 ong.** competing
0b00: 20 74 68 72 65 61 64 73 20 6f 66 20 74 68 65 20 threads of the
0b10: 73 61 6d 65 20 70 72 6f 63 65 73 73 2e 20 20 50 same process. P
0b20: 4f 53 49 58 20 6c 6f 63 6b 73 20 77 69 6c 6c 20 OSIX locks will
0b30: 77 6f 72 6b 20 66 69 6e 65 0a 2a 2a 20 74 6f 20 work fine.** to
0b40: 73 79 6e 63 68 72 6f 6e 69 7a 65 20 61 63 63 65 synchronize acce
0b50: 73 73 20 66 6f 72 20 74 68 72 65 61 64 73 20 69 ss for threads i
0b60: 6e 20 73 65 70 61 72 61 74 65 20 70 72 6f 63 65 n separate proce
0b70: 73 73 65 73 2c 20 62 75 74 20 6e 6f 74 0a 2a 2a sses, but not.**
0b80: 20 74 68 72 65 61 64 73 20 77 69 74 68 69 6e 20 threads within
0b90: 74 68 65 20 73 61 6d 65 20 70 72 6f 63 65 73 73 the same process
0ba0: 2e 0a 2a 2a 0a 2a 2a 20 54 6f 20 77 6f 72 6b 20 ..**.** To work
0bb0: 61 72 6f 75 6e 64 20 74 68 65 20 70 72 6f 62 6c around the probl
0bc0: 65 6d 2c 20 53 51 4c 69 74 65 20 68 61 73 20 74 em, SQLite has t
0bd0: 6f 20 6d 61 6e 61 67 65 20 66 69 6c 65 20 6c 6f o manage file lo
0be0: 63 6b 73 20 69 6e 74 65 72 6e 61 6c 6c 79 0a 2a cks internally.*
0bf0: 2a 20 6f 6e 20 69 74 73 20 6f 77 6e 2e 20 20 57 * on its own. W
0c00: 68 65 6e 65 76 65 72 20 61 20 6e 65 77 20 64 61 henever a new da
0c10: 74 61 62 61 73 65 20 69 73 20 6f 70 65 6e 65 64 tabase is opened
0c20: 2c 20 77 65 20 68 61 76 65 20 74 6f 20 66 69 6e , we have to fin
0c30: 64 20 74 68 65 0a 2a 2a 20 73 70 65 63 69 66 69 d the.** specifi
0c40: 63 20 69 6e 6f 64 65 20 6f 66 20 74 68 65 20 64 c inode of the d
0c50: 61 74 61 62 61 73 65 20 66 69 6c 65 20 28 74 68 atabase file (th
0c60: 65 20 69 6e 6f 64 65 20 69 73 20 64 65 74 65 72 e inode is deter
0c70: 6d 69 6e 65 64 20 62 79 20 74 68 65 0a 2a 2a 20 mined by the.**
0c80: 73 74 5f 64 65 76 20 61 6e 64 20 73 74 5f 69 6e st_dev and st_in
0c90: 6f 20 66 69 65 6c 64 73 20 6f 66 20 74 68 65 20 o fields of the
0ca0: 73 74 61 74 20 73 74 72 75 63 74 75 72 65 20 74 stat structure t
0cb0: 68 61 74 20 66 73 74 61 74 28 29 20 66 69 6c 6c hat fstat() fill
0cc0: 73 20 69 6e 29 0a 2a 2a 20 61 6e 64 20 63 68 65 s in).** and che
0cd0: 63 6b 20 66 6f 72 20 6c 6f 63 6b 73 20 61 6c 72 ck for locks alr
0ce0: 65 61 64 79 20 65 78 69 73 74 69 6e 67 20 6f 6e eady existing on
0cf0: 20 74 68 61 74 20 69 6e 6f 64 65 2e 20 20 57 68 that inode. Wh
0d00: 65 6e 20 6c 6f 63 6b 73 20 61 72 65 0a 2a 2a 20 en locks are.**
0d10: 63 72 65 61 74 65 64 20 6f 72 20 72 65 6d 6f 76 created or remov
0d20: 65 64 2c 20 77 65 20 68 61 76 65 20 74 6f 20 6c ed, we have to l
0d30: 6f 6f 6b 20 61 74 20 6f 75 72 20 6f 77 6e 20 69 ook at our own i
0d40: 6e 74 65 72 6e 61 6c 20 72 65 63 6f 72 64 20 6f nternal record o
0d50: 66 20 74 68 65 0a 2a 2a 20 6c 6f 63 6b 73 20 74 f the.** locks t
0d60: 6f 20 73 65 65 20 69 66 20 61 6e 6f 74 68 65 72 o see if another
0d70: 20 74 68 72 65 61 64 20 68 61 73 20 70 72 65 76 thread has prev
0d80: 69 6f 75 73 6c 79 20 73 65 74 20 61 20 6c 6f 63 iously set a loc
0d90: 6b 20 6f 6e 20 74 68 61 74 20 73 61 6d 65 0a 2a k on that same.*
0da0: 2a 20 69 6e 6f 64 65 2e 0a 2a 2a 0a 2a 2a 20 54 * inode..**.** T
0db0: 68 65 20 4f 73 46 69 6c 65 20 73 74 72 75 63 74 he OsFile struct
0dc0: 75 72 65 20 66 6f 72 20 50 4f 53 49 58 20 69 73 ure for POSIX is
0dd0: 20 6e 6f 20 6c 6f 6e 67 65 72 20 6a 75 73 74 20 no longer just
0de0: 61 6e 20 69 6e 74 65 67 65 72 20 66 69 6c 65 0a an integer file.
0df0: 2a 2a 20 64 65 73 63 72 69 70 74 6f 72 2e 20 20 ** descriptor.
0e00: 49 74 20 69 73 20 6e 6f 77 20 61 20 73 74 72 75 It is now a stru
0e10: 63 74 75 72 65 20 74 68 61 74 20 68 6f 6c 64 73 cture that holds
0e20: 20 74 68 65 20 69 6e 74 65 67 65 72 20 66 69 6c the integer fil
0e30: 65 0a 2a 2a 20 64 65 73 63 72 69 70 74 6f 72 20 e.** descriptor
0e40: 61 6e 64 20 61 20 70 6f 69 6e 74 65 72 20 74 6f and a pointer to
0e50: 20 61 20 73 74 72 75 63 74 75 72 65 20 74 68 61 a structure tha
0e60: 74 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 t describes the
0e70: 69 6e 74 65 72 6e 61 6c 0a 2a 2a 20 6c 6f 63 6b internal.** lock
0e80: 73 20 6f 6e 20 74 68 65 20 63 6f 72 72 65 73 70 s on the corresp
0e90: 6f 6e 64 69 6e 67 20 69 6e 6f 64 65 2e 20 20 54 onding inode. T
0ea0: 68 65 72 65 20 69 73 20 6f 6e 65 20 6c 6f 63 6b here is one lock
0eb0: 69 6e 67 20 73 74 72 75 63 74 75 72 65 0a 2a 2a ing structure.**
0ec0: 20 70 65 72 20 69 6e 6f 64 65 2c 20 73 6f 20 69 per inode, so i
0ed0: 66 20 74 68 65 20 73 61 6d 65 20 69 6e 6f 64 65 f the same inode
0ee0: 20 69 73 20 6f 70 65 6e 65 64 20 74 77 69 63 65 is opened twice
0ef0: 2c 20 62 6f 74 68 20 4f 73 46 69 6c 65 20 73 74 , both OsFile st
0f00: 72 75 63 74 75 72 65 73 0a 2a 2a 20 70 6f 69 6e ructures.** poin
0f10: 74 20 74 6f 20 74 68 65 20 73 61 6d 65 20 6c 6f t to the same lo
0f20: 63 6b 69 6e 67 20 73 74 72 75 63 74 75 72 65 2e cking structure.
0f30: 20 20 54 68 65 20 6c 6f 63 6b 69 6e 67 20 73 74 The locking st
0f40: 72 75 63 74 75 72 65 20 6b 65 65 70 73 0a 2a 2a ructure keeps.**
0f50: 20 61 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 a reference cou
0f60: 6e 74 20 28 73 6f 20 77 65 20 77 69 6c 6c 20 6b nt (so we will k
0f70: 6e 6f 77 20 77 68 65 6e 20 74 6f 20 64 65 6c 65 now when to dele
0f80: 74 65 20 69 74 29 20 61 6e 64 20 61 20 22 63 6e te it) and a "cn
0f90: 74 22 0a 2a 2a 20 66 69 65 6c 64 20 74 68 61 74 t".** field that
0fa0: 20 74 65 6c 6c 73 20 75 73 20 69 74 73 20 69 6e tells us its in
0fb0: 74 65 72 6e 61 6c 20 6c 6f 63 6b 20 73 74 61 74 ternal lock stat
0fc0: 75 73 2e 20 20 63 6e 74 3d 3d 30 20 6d 65 61 6e us. cnt==0 mean
0fd0: 73 20 74 68 65 0a 2a 2a 20 66 69 6c 65 20 69 73 s the.** file is
0fe0: 20 75 6e 6c 6f 63 6b 65 64 2e 20 20 63 6e 74 3d unlocked. cnt=
0ff0: 3d 2d 31 20 6d 65 61 6e 73 20 74 68 65 20 66 69 =-1 means the fi
1000: 6c 65 20 68 61 73 20 61 6e 20 65 78 63 6c 75 73 le has an exclus
1010: 69 76 65 20 6c 6f 63 6b 2e 0a 2a 2a 20 63 6e 74 ive lock..** cnt
1020: 3e 30 20 6d 65 61 6e 73 20 74 68 65 72 65 20 61 >0 means there a
1030: 72 65 20 63 6e 74 20 73 68 61 72 65 64 20 6c 6f re cnt shared lo
1040: 63 6b 73 20 6f 6e 20 74 68 65 20 66 69 6c 65 2e cks on the file.
1050: 0a 2a 2a 0a 2a 2a 20 41 6e 79 20 61 74 74 65 6d .**.** Any attem
1060: 70 74 20 74 6f 20 6c 6f 63 6b 20 6f 72 20 75 6e pt to lock or un
1070: 6c 6f 63 6b 20 61 20 66 69 6c 65 20 66 69 72 73 lock a file firs
1080: 74 20 63 68 65 63 6b 73 20 74 68 65 20 6c 6f 63 t checks the loc
1090: 6b 69 6e 67 0a 2a 2a 20 73 74 72 75 63 74 75 72 king.** structur
10a0: 65 2e 20 20 54 68 65 20 66 63 6e 74 6c 28 29 20 e. The fcntl()
10b0: 73 79 73 74 65 6d 20 63 61 6c 6c 20 69 73 20 6f system call is o
10c0: 6e 6c 79 20 69 6e 76 6f 6b 65 64 20 74 6f 20 73 nly invoked to s
10d0: 65 74 20 61 20 0a 2a 2a 20 50 4f 53 49 58 20 6c et a .** POSIX l
10e0: 6f 63 6b 20 69 66 20 74 68 65 20 69 6e 74 65 72 ock if the inter
10f0: 6e 61 6c 20 6c 6f 63 6b 20 73 74 72 75 63 74 75 nal lock structu
1100: 72 65 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 62 re transitions b
1110: 65 74 77 65 65 6e 0a 2a 2a 20 61 20 6c 6f 63 6b etween.** a lock
1120: 65 64 20 61 6e 64 20 61 6e 20 75 6e 6c 6f 63 6b ed and an unlock
1130: 65 64 20 73 74 61 74 65 2e 0a 2a 2a 0a 2a 2a 20 ed state..**.**
1140: 32 30 30 34 2d 4a 61 6e 2d 31 31 3a 0a 2a 2a 20 2004-Jan-11:.**
1150: 4d 6f 72 65 20 72 65 63 65 6e 74 20 64 69 73 63 More recent disc
1160: 6f 76 65 72 69 65 73 20 61 62 6f 75 74 20 50 4f overies about PO
1170: 53 49 58 20 61 64 76 69 73 6f 72 79 20 6c 6f 63 SIX advisory loc
1180: 6b 73 2e 20 20 28 54 68 65 20 6d 6f 72 65 0a 2a ks. (The more.*
1190: 2a 20 49 20 64 69 73 63 6f 76 65 72 2c 20 74 68 * I discover, th
11a0: 65 20 6d 6f 72 65 20 49 20 72 65 61 6c 69 7a 65 e more I realize
11b0: 20 74 68 65 20 61 20 50 4f 53 49 58 20 61 64 76 the a POSIX adv
11c0: 69 73 6f 72 79 20 6c 6f 63 6b 73 20 61 72 65 0a isory locks are.
11d0: 2a 2a 20 61 6e 20 61 62 6f 6d 69 6e 61 74 69 6f ** an abominatio
11e0: 6e 2e 29 0a 2a 2a 0a 2a 2a 20 49 66 20 79 6f 75 n.).**.** If you
11f0: 20 63 6c 6f 73 65 20 61 20 66 69 6c 65 20 64 65 close a file de
1200: 73 63 72 69 70 74 6f 72 20 74 68 61 74 20 70 6f scriptor that po
1210: 69 6e 74 73 20 74 6f 20 61 20 66 69 6c 65 20 74 ints to a file t
1220: 68 61 74 20 68 61 73 20 6c 6f 63 6b 73 2c 0a 2a hat has locks,.*
1230: 2a 20 61 6c 6c 20 6c 6f 63 6b 73 20 6f 6e 20 74 * all locks on t
1240: 68 61 74 20 66 69 6c 65 20 74 68 61 74 20 61 72 hat file that ar
1250: 65 20 6f 77 6e 65 64 20 62 79 20 74 68 65 20 63 e owned by the c
1260: 75 72 72 65 6e 74 20 70 72 6f 63 65 73 73 20 61 urrent process a
1270: 72 65 0a 2a 2a 20 72 65 6c 65 61 73 65 64 2e 20 re.** released.
1280: 20 54 6f 20 77 6f 72 6b 20 61 72 6f 75 6e 64 20 To work around
1290: 74 68 69 73 20 70 72 6f 62 6c 65 6d 2c 20 65 61 this problem, ea
12a0: 63 68 20 4f 73 46 69 6c 65 20 73 74 72 75 63 74 ch OsFile struct
12b0: 75 72 65 20 63 6f 6e 74 61 69 6e 73 0a 2a 2a 20 ure contains.**
12c0: 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 61 6e 20 a pointer to an
12d0: 6f 70 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 openCnt structur
12e0: 65 2e 20 20 54 68 65 72 65 20 69 73 20 6f 6e 65 e. There is one
12f0: 20 6f 70 65 6e 43 6e 74 20 73 74 72 75 63 74 75 openCnt structu
1300: 72 65 0a 2a 2a 20 70 65 72 20 6f 70 65 6e 20 69 re.** per open i
1310: 6e 6f 64 65 2c 20 77 68 69 63 68 20 6d 65 61 6e node, which mean
1320: 73 20 74 68 61 74 20 6d 75 6c 74 69 70 6c 65 20 s that multiple
1330: 4f 73 46 69 6c 65 73 20 63 61 6e 20 70 6f 69 6e OsFiles can poin
1340: 74 20 74 6f 20 61 20 73 69 6e 67 6c 65 0a 2a 2a t to a single.**
1350: 20 6f 70 65 6e 43 6e 74 2e 20 20 57 68 65 6e 20 openCnt. When
1360: 61 6e 20 61 74 74 65 6d 70 74 20 69 73 20 6d 61 an attempt is ma
1370: 64 65 20 74 6f 20 63 6c 6f 73 65 20 61 6e 20 4f de to close an O
1380: 73 46 69 6c 65 2c 20 69 66 20 74 68 65 72 65 20 sFile, if there
1390: 61 72 65 0a 2a 2a 20 6f 74 68 65 72 20 4f 73 46 are.** other OsF
13a0: 69 6c 65 73 20 6f 70 65 6e 20 6f 6e 20 74 68 65 iles open on the
13b0: 20 73 61 6d 65 20 69 6e 6f 64 65 20 74 68 61 74 same inode that
13c0: 20 61 72 65 20 68 6f 6c 64 69 6e 67 20 6c 6f 63 are holding loc
13d0: 6b 73 2c 20 74 68 65 20 63 61 6c 6c 0a 2a 2a 20 ks, the call.**
13e0: 74 6f 20 63 6c 6f 73 65 28 29 20 74 68 65 20 66 to close() the f
13f0: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 69 ile descriptor i
1400: 73 20 64 65 66 65 72 72 65 64 20 75 6e 74 69 6c s deferred until
1410: 20 61 6c 6c 20 6f 66 20 74 68 65 20 6c 6f 63 6b all of the lock
1420: 73 20 63 6c 65 61 72 2e 0a 2a 2a 20 54 68 65 20 s clear..** The
1430: 6f 70 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 openCnt structur
1440: 65 20 6b 65 65 70 73 20 61 20 6c 69 73 74 20 6f e keeps a list o
1450: 66 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f f file descripto
1460: 72 73 20 74 68 61 74 20 6e 65 65 64 20 74 6f 0a rs that need to.
1470: 2a 2a 20 62 65 20 63 6c 6f 73 65 64 20 61 6e 64 ** be closed and
1480: 20 74 68 61 74 20 6c 69 73 74 20 69 73 20 77 61 that list is wa
1490: 6c 6b 65 64 20 28 61 6e 64 20 63 6c 65 61 72 65 lked (and cleare
14a0: 64 29 20 77 68 65 6e 20 74 68 65 20 6c 61 73 74 d) when the last
14b0: 20 6c 6f 63 6b 0a 2a 2a 20 63 6c 65 61 72 73 2e lock.** clears.
14c0: 0a 2a 2a 0a 2a 2a 20 46 69 72 73 74 2c 20 75 6e .**.** First, un
14d0: 64 65 72 20 4c 69 6e 75 78 20 74 68 72 65 61 64 der Linux thread
14e0: 73 2c 20 62 65 63 61 75 73 65 20 65 61 63 68 20 s, because each
14f0: 74 68 72 65 61 64 20 68 61 73 20 61 20 73 65 70 thread has a sep
1500: 61 72 61 74 65 0a 2a 2a 20 70 72 6f 63 65 73 73 arate.** process
1510: 20 49 44 2c 20 6c 6f 63 6b 20 6f 70 65 72 61 74 ID, lock operat
1520: 69 6f 6e 73 20 69 6e 20 6f 6e 65 20 74 68 72 65 ions in one thre
1530: 61 64 20 64 6f 20 6e 6f 74 20 6f 76 65 72 72 69 ad do not overri
1540: 64 65 20 6c 6f 63 6b 73 0a 2a 2a 20 74 6f 20 74 de locks.** to t
1550: 68 65 20 73 61 6d 65 20 66 69 6c 65 20 69 6e 20 he same file in
1560: 6f 74 68 65 72 20 74 68 72 65 61 64 73 2e 20 20 other threads.
1570: 4c 69 6e 75 78 20 74 68 72 65 61 64 73 20 62 65 Linux threads be
1580: 68 61 76 65 20 6c 69 6b 65 0a 2a 2a 20 73 65 70 have like.** sep
1590: 61 72 61 74 65 20 70 72 6f 63 65 73 73 65 73 20 arate processes
15a0: 69 6e 20 74 68 69 73 20 72 65 73 70 65 63 74 2e in this respect.
15b0: 20 20 42 75 74 2c 20 69 66 20 79 6f 75 20 63 6c But, if you cl
15c0: 6f 73 65 20 61 20 66 69 6c 65 0a 2a 2a 20 64 65 ose a file.** de
15d0: 73 63 72 69 70 74 6f 72 20 69 6e 20 6c 69 6e 75 scriptor in linu
15e0: 78 20 74 68 72 65 61 64 73 2c 20 61 6c 6c 20 6c x threads, all l
15f0: 6f 63 6b 73 20 61 72 65 20 63 6c 65 61 72 65 64 ocks are cleared
1600: 2c 20 65 76 65 6e 20 6c 6f 63 6b 73 0a 2a 2a 20 , even locks.**
1610: 6f 6e 20 6f 74 68 65 72 20 74 68 72 65 61 64 73 on other threads
1620: 20 61 6e 64 20 65 76 65 6e 20 74 68 6f 75 67 68 and even though
1630: 20 74 68 65 20 6f 74 68 65 72 20 74 68 72 65 61 the other threa
1640: 64 73 20 68 61 76 65 20 64 69 66 66 65 72 65 6e ds have differen
1650: 74 0a 2a 2a 20 70 72 6f 63 65 73 73 20 49 44 73 t.** process IDs
1660: 2e 20 20 4c 69 6e 75 78 20 74 68 72 65 61 64 73 . Linux threads
1670: 20 69 73 20 69 6e 63 6f 6e 73 69 73 74 65 6e 74 is inconsistent
1680: 20 69 6e 20 74 68 69 73 20 72 65 73 70 65 63 74 in this respect
1690: 2e 0a 2a 2a 20 28 49 27 6d 20 62 65 67 69 6e 6e ..** (I'm beginn
16a0: 69 6e 67 20 74 6f 20 74 68 69 6e 6b 20 74 68 61 ing to think tha
16b0: 74 20 6c 69 6e 75 78 20 74 68 72 65 61 64 73 20 t linux threads
16c0: 69 73 20 61 6e 20 61 62 6f 6d 69 6e 61 74 69 6f is an abominatio
16d0: 6e 20 74 6f 6f 2e 29 0a 2a 2a 20 54 68 65 20 63 n too.).** The c
16e0: 6f 6e 73 65 71 75 65 6e 63 65 20 6f 66 20 74 68 onsequence of th
16f0: 69 73 20 61 6c 6c 20 69 73 20 74 68 61 74 20 74 is all is that t
1700: 68 65 20 68 61 73 68 20 74 61 62 6c 65 20 66 6f he hash table fo
1710: 72 20 74 68 65 20 6c 6f 63 6b 49 6e 66 6f 0a 2a r the lockInfo.*
1720: 2a 20 73 74 72 75 63 74 75 72 65 20 68 61 73 20 * structure has
1730: 74 6f 20 69 6e 63 6c 75 64 65 20 74 68 65 20 70 to include the p
1740: 72 6f 63 65 73 73 20 69 64 20 61 73 20 70 61 72 rocess id as par
1750: 74 20 6f 66 20 69 74 73 20 6b 65 79 20 62 65 63 t of its key bec
1760: 61 75 73 65 0a 2a 2a 20 6c 6f 63 6b 73 20 69 6e ause.** locks in
1770: 20 64 69 66 66 65 72 65 6e 74 20 74 68 72 65 61 different threa
1780: 64 73 20 61 72 65 20 74 72 65 61 74 65 64 20 61 ds are treated a
1790: 73 20 64 69 73 74 69 6e 63 74 2e 20 20 42 75 74 s distinct. But
17a0: 20 74 68 65 20 0a 2a 2a 20 6f 70 65 6e 43 6e 74 the .** openCnt
17b0: 20 73 74 72 75 63 74 75 72 65 20 73 68 6f 75 6c structure shoul
17c0: 64 20 6e 6f 74 20 69 6e 63 6c 75 64 65 20 74 68 d not include th
17d0: 65 20 70 72 6f 63 65 73 73 20 69 64 20 69 6e 20 e process id in
17e0: 69 74 73 0a 2a 2a 20 6b 65 79 20 62 65 63 61 75 its.** key becau
17f0: 73 65 20 63 6c 6f 73 65 28 29 20 63 6c 65 61 72 se close() clear
1800: 73 20 6c 6f 63 6b 20 6f 6e 20 61 6c 6c 20 74 68 s lock on all th
1810: 72 65 61 64 73 2c 20 6e 6f 74 20 6a 75 73 74 20 reads, not just
1820: 74 68 65 20 63 75 72 72 65 6e 74 0a 2a 2a 20 74 the current.** t
1830: 68 72 65 61 64 2e 20 20 57 65 72 65 20 69 74 20 hread. Were it
1840: 6e 6f 74 20 66 6f 72 20 74 68 69 73 20 67 6f 6f not for this goo
1850: 66 69 6e 65 73 73 20 69 6e 20 6c 69 6e 75 78 20 finess in linux
1860: 74 68 72 65 61 64 73 2c 20 77 65 20 63 6f 75 6c threads, we coul
1870: 64 0a 2a 2a 20 63 6f 6d 62 69 6e 65 20 74 68 65 d.** combine the
1880: 20 6c 6f 63 6b 49 6e 66 6f 20 61 6e 64 20 6f 70 lockInfo and op
1890: 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 65 73 enCnt structures
18a0: 20 69 6e 74 6f 20 61 20 73 69 6e 67 6c 65 20 73 into a single s
18b0: 74 72 75 63 74 75 72 65 2e 0a 2a 2a 0a 2a 2a 20 tructure..**.**
18c0: 32 30 30 34 2d 4a 75 6e 2d 32 38 3a 0a 2a 2a 20 2004-Jun-28:.**
18d0: 4f 6e 20 73 6f 6d 65 20 76 65 72 73 69 6f 6e 73 On some versions
18e0: 20 6f 66 20 6c 69 6e 75 78 2c 20 74 68 72 65 61 of linux, threa
18f0: 64 73 20 63 61 6e 20 6f 76 65 72 72 69 64 65 20 ds can override
1900: 65 61 63 68 20 6f 74 68 65 72 73 20 6c 6f 63 6b each others lock
1910: 73 2e 0a 2a 2a 20 4f 6e 20 6f 74 68 65 72 73 20 s..** On others
1920: 6e 6f 74 2e 20 20 53 6f 6d 65 74 69 6d 65 73 20 not. Sometimes
1930: 79 6f 75 20 63 61 6e 20 63 68 61 6e 67 65 20 74 you can change t
1940: 68 65 20 62 65 68 61 76 69 6f 72 20 6f 6e 20 74 he behavior on t
1950: 68 65 20 73 61 6d 65 0a 2a 2a 20 73 79 73 74 65 he same.** syste
1960: 6d 20 62 79 20 73 65 74 74 69 6e 67 20 74 68 65 m by setting the
1970: 20 4c 44 5f 41 53 53 55 4d 45 5f 4b 45 52 4e 45 LD_ASSUME_KERNE
1980: 4c 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 L environment va
1990: 72 69 61 62 6c 65 2e 20 20 54 68 65 0a 2a 2a 20 riable. The.**
19a0: 50 4f 53 49 58 20 73 74 61 6e 64 61 72 64 20 69 POSIX standard i
19b0: 73 20 73 69 6c 65 6e 74 20 61 73 20 74 6f 20 77 s silent as to w
19c0: 68 69 63 68 20 62 65 68 61 76 69 6f 72 20 69 73 hich behavior is
19d0: 20 63 6f 72 72 65 63 74 2c 20 61 73 20 66 61 72 correct, as far
19e0: 0a 2a 2a 20 61 73 20 49 20 63 61 6e 20 74 65 6c .** as I can tel
19f0: 6c 2c 20 73 6f 20 6f 74 68 65 72 20 76 65 72 73 l, so other vers
1a00: 69 6f 6e 73 20 6f 66 20 75 6e 69 78 20 6d 69 67 ions of unix mig
1a10: 68 74 20 73 68 6f 77 20 74 68 65 20 73 61 6d 65 ht show the same
1a20: 0a 2a 2a 20 69 6e 63 6f 6e 73 69 73 74 65 6e 63 .** inconsistenc
1a30: 79 2e 20 20 54 68 65 72 65 20 69 73 20 6e 6f 20 y. There is no
1a40: 6c 69 74 74 6c 65 20 64 6f 75 62 74 20 69 6e 20 little doubt in
1a50: 6d 79 20 6d 69 6e 64 20 74 68 61 74 20 70 6f 73 my mind that pos
1a60: 69 78 0a 2a 2a 20 61 64 76 69 73 6f 72 79 20 6c ix.** advisory l
1a70: 6f 63 6b 73 20 61 6e 64 20 6c 69 6e 75 78 20 74 ocks and linux t
1a80: 68 72 65 61 64 73 20 61 72 65 20 70 72 6f 66 6f hreads are profo
1a90: 75 6e 64 6c 79 20 62 72 6f 6b 65 6e 2e 0a 2a 2a undly broken..**
1aa0: 0a 2a 2a 20 54 6f 20 77 6f 72 6b 20 61 72 6f 75 .** To work arou
1ab0: 6e 64 20 74 68 65 20 69 6e 63 6f 6e 73 69 73 74 nd the inconsist
1ac0: 65 6e 63 69 65 73 2c 20 77 65 20 68 61 76 65 20 encies, we have
1ad0: 74 6f 20 74 65 73 74 20 61 74 20 72 75 6e 74 69 to test at runti
1ae0: 6d 65 20 0a 2a 2a 20 77 68 65 74 68 65 72 20 6f me .** whether o
1af0: 72 20 6e 6f 74 20 74 68 72 65 61 64 73 20 63 61 r not threads ca
1b00: 6e 20 6f 76 65 72 72 69 64 65 20 65 61 63 68 20 n override each
1b10: 6f 74 68 65 72 73 20 6c 6f 63 6b 73 2e 20 20 54 others locks. T
1b20: 68 69 73 20 74 65 73 74 0a 2a 2a 20 69 73 20 72 his test.** is r
1b30: 75 6e 20 6f 6e 63 65 2c 20 74 68 65 20 66 69 72 un once, the fir
1b40: 73 74 20 74 69 6d 65 20 61 6e 79 20 6c 6f 63 6b st time any lock
1b50: 20 69 73 20 61 74 74 65 6d 70 74 65 64 2e 20 20 is attempted.
1b60: 41 20 73 74 61 74 69 63 20 0a 2a 2a 20 76 61 72 A static .** var
1b70: 69 61 62 6c 65 20 69 73 20 73 65 74 20 74 6f 20 iable is set to
1b80: 72 65 63 6f 72 64 20 74 68 65 20 72 65 73 75 6c record the resul
1b90: 74 73 20 6f 66 20 74 68 69 73 20 74 65 73 74 20 ts of this test
1ba0: 66 6f 72 20 66 75 74 75 72 65 0a 2a 2a 20 75 73 for future.** us
1bb0: 65 2e 0a 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 e..*/../*.** An
1bc0: 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20 instance of the
1bd0: 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 63 74 following struct
1be0: 75 72 65 20 73 65 72 76 65 73 20 61 73 20 74 68 ure serves as th
1bf0: 65 20 6b 65 79 20 75 73 65 64 0a 2a 2a 20 74 6f e key used.** to
1c00: 20 6c 6f 63 61 74 65 20 61 20 70 61 72 74 69 63 locate a partic
1c10: 75 6c 61 72 20 6c 6f 63 6b 49 6e 66 6f 20 73 74 ular lockInfo st
1c20: 72 75 63 74 75 72 65 20 67 69 76 65 6e 20 69 74 ructure given it
1c30: 73 20 69 6e 6f 64 65 2e 0a 2a 2a 0a 2a 2a 20 49 s inode..**.** I
1c40: 66 20 74 68 72 65 61 64 73 20 63 61 6e 6e 6f 74 f threads cannot
1c50: 20 6f 76 65 72 72 69 64 65 20 65 61 63 68 20 6f override each o
1c60: 74 68 65 72 73 20 6c 6f 63 6b 73 2c 20 74 68 65 thers locks, the
1c70: 6e 20 77 65 20 73 65 74 20 74 68 65 0a 2a 2a 20 n we set the.**
1c80: 6c 6f 63 6b 4b 65 79 2e 74 69 64 20 66 69 65 6c lockKey.tid fiel
1c90: 64 20 74 6f 20 74 68 65 20 74 68 72 65 61 64 20 d to the thread
1ca0: 49 44 2e 20 20 49 66 20 74 68 72 65 61 64 73 20 ID. If threads
1cb0: 63 61 6e 20 6f 76 65 72 72 69 64 65 0a 2a 2a 20 can override.**
1cc0: 65 61 63 68 20 6f 74 68 65 72 73 20 6c 6f 63 6b each others lock
1cd0: 73 20 74 68 65 6e 20 74 69 64 20 69 73 20 61 6c s then tid is al
1ce0: 77 61 79 73 20 73 65 74 20 74 6f 20 7a 65 72 6f ways set to zero
1cf0: 2e 20 20 74 69 64 20 69 73 20 61 6c 73 6f 0a 2a . tid is also.*
1d00: 2a 20 73 65 74 20 74 6f 20 7a 65 72 6f 20 69 66 * set to zero if
1d10: 20 77 65 20 63 6f 6d 70 69 6c 65 20 77 69 74 68 we compile with
1d20: 6f 75 74 20 74 68 72 65 61 64 69 6e 67 20 73 75 out threading su
1d30: 70 70 6f 72 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 pport..*/.struct
1d40: 20 6c 6f 63 6b 4b 65 79 20 7b 0a 20 20 64 65 76 lockKey {. dev
1d50: 5f 74 20 64 65 76 3b 20 20 20 20 20 20 20 2f 2a _t dev; /*
1d60: 20 44 65 76 69 63 65 20 6e 75 6d 62 65 72 20 2a Device number *
1d70: 2f 0a 20 20 69 6e 6f 5f 74 20 69 6e 6f 3b 20 20 /. ino_t ino;
1d80: 20 20 20 20 20 2f 2a 20 49 6e 6f 64 65 20 6e 75 /* Inode nu
1d90: 6d 62 65 72 20 2a 2f 0a 23 69 66 64 65 66 20 53 mber */.#ifdef S
1da0: 51 4c 49 54 45 5f 55 4e 49 58 5f 54 48 52 45 41 QLITE_UNIX_THREA
1db0: 44 53 0a 20 20 70 74 68 72 65 61 64 5f 74 20 74 DS. pthread_t t
1dc0: 69 64 3b 20 20 20 2f 2a 20 54 68 72 65 61 64 20 id; /* Thread
1dd0: 49 44 20 6f 72 20 7a 65 72 6f 20 69 66 20 74 68 ID or zero if th
1de0: 72 65 61 64 73 20 63 61 6e 6e 6f 74 20 6f 76 65 reads cannot ove
1df0: 72 72 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 rride each other
1e00: 20 2a 2f 0a 23 65 6e 64 69 66 0a 7d 3b 0a 0a 2f */.#endif.};../
1e10: 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 6e 63 65 *.** An instance
1e20: 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e of the followin
1e30: 67 20 73 74 72 75 63 74 75 72 65 20 69 73 20 61 g structure is a
1e40: 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 65 61 63 llocated for eac
1e50: 68 20 6f 70 65 6e 0a 2a 2a 20 69 6e 6f 64 65 20 h open.** inode
1e60: 6f 6e 20 65 61 63 68 20 74 68 72 65 61 64 20 77 on each thread w
1e70: 69 74 68 20 61 20 64 69 66 66 65 72 65 6e 74 20 ith a different
1e80: 70 72 6f 63 65 73 73 20 49 44 2e 20 20 28 54 68 process ID. (Th
1e90: 72 65 61 64 73 20 68 61 76 65 0a 2a 2a 20 64 69 reads have.** di
1ea0: 66 66 65 72 65 6e 74 20 70 72 6f 63 65 73 73 20 fferent process
1eb0: 49 44 73 20 6f 6e 20 6c 69 6e 75 78 2c 20 62 75 IDs on linux, bu
1ec0: 74 20 6e 6f 74 20 6f 6e 20 6d 6f 73 74 20 6f 74 t not on most ot
1ed0: 68 65 72 20 75 6e 69 78 65 73 2e 29 0a 2a 2a 0a her unixes.).**.
1ee0: 2a 2a 20 41 20 73 69 6e 67 6c 65 20 69 6e 6f 64 ** A single inod
1ef0: 65 20 63 61 6e 20 68 61 76 65 20 6d 75 6c 74 69 e can have multi
1f00: 70 6c 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 ple file descrip
1f10: 74 6f 72 73 2c 20 73 6f 20 65 61 63 68 20 4f 73 tors, so each Os
1f20: 46 69 6c 65 0a 2a 2a 20 73 74 72 75 63 74 75 72 File.** structur
1f30: 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 70 6f 69 e contains a poi
1f40: 6e 74 65 72 20 74 6f 20 61 6e 20 69 6e 73 74 61 nter to an insta
1f50: 6e 63 65 20 6f 66 20 74 68 69 73 20 6f 62 6a 65 nce of this obje
1f60: 63 74 20 61 6e 64 20 74 68 69 73 0a 2a 2a 20 6f ct and this.** o
1f70: 62 6a 65 63 74 20 6b 65 65 70 73 20 61 20 63 6f bject keeps a co
1f80: 75 6e 74 20 6f 66 20 74 68 65 20 6e 75 6d 62 65 unt of the numbe
1f90: 72 20 6f 66 20 4f 73 46 69 6c 65 73 20 70 6f 69 r of OsFiles poi
1fa0: 6e 74 69 6e 67 20 74 6f 20 69 74 2e 0a 2a 2f 0a nting to it..*/.
1fb0: 73 74 72 75 63 74 20 6c 6f 63 6b 49 6e 66 6f 20 struct lockInfo
1fc0: 7b 0a 20 20 73 74 72 75 63 74 20 6c 6f 63 6b 4b {. struct lockK
1fd0: 65 79 20 6b 65 79 3b 20 20 2f 2a 20 54 68 65 20 ey key; /* The
1fe0: 6c 6f 6f 6b 75 70 20 6b 65 79 20 2a 2f 0a 20 20 lookup key */.
1ff0: 69 6e 74 20 63 6e 74 3b 20 20 20 20 20 20 20 20 int cnt;
2000: 20 20 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f /* Number o
2010: 66 20 53 48 41 52 45 44 20 6c 6f 63 6b 73 20 68 f SHARED locks h
2020: 65 6c 64 20 2a 2f 0a 20 20 69 6e 74 20 6c 6f 63 eld */. int loc
2030: 6b 74 79 70 65 3b 20 20 20 20 20 20 20 20 2f 2a ktype; /*
2040: 20 4f 6e 65 20 6f 66 20 53 48 41 52 45 44 5f 4c One of SHARED_L
2050: 4f 43 4b 2c 20 52 45 53 45 52 56 45 44 5f 4c 4f OCK, RESERVED_LO
2060: 43 4b 20 65 74 63 2e 20 2a 2f 0a 20 20 69 6e 74 CK etc. */. int
2070: 20 6e 52 65 66 3b 20 20 20 20 20 20 20 20 20 20 nRef;
2080: 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 70 /* Number of p
2090: 6f 69 6e 74 65 72 73 20 74 6f 20 74 68 69 73 20 ointers to this
20a0: 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 7d 3b 0a structure */.};.
20b0: 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74 61 6e ./*.** An instan
20c0: 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 ce of the follow
20d0: 69 6e 67 20 73 74 72 75 63 74 75 72 65 20 73 65 ing structure se
20e0: 72 76 65 73 20 61 73 20 74 68 65 20 6b 65 79 20 rves as the key
20f0: 75 73 65 64 0a 2a 2a 20 74 6f 20 6c 6f 63 61 74 used.** to locat
2100: 65 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 6f e a particular o
2110: 70 65 6e 43 6e 74 20 73 74 72 75 63 74 75 72 65 penCnt structure
2120: 20 67 69 76 65 6e 20 69 74 73 20 69 6e 6f 64 65 given its inode
2130: 2e 20 20 54 68 69 73 0a 2a 2a 20 69 73 20 74 68 . This.** is th
2140: 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 6c 6f e same as the lo
2150: 63 6b 4b 65 79 20 65 78 63 65 70 74 20 74 68 61 ckKey except tha
2160: 74 20 74 68 65 20 74 68 72 65 61 64 20 49 44 20 t the thread ID
2170: 69 73 20 6f 6d 69 74 74 65 64 2e 0a 2a 2f 0a 73 is omitted..*/.s
2180: 74 72 75 63 74 20 6f 70 65 6e 4b 65 79 20 7b 0a truct openKey {.
2190: 20 20 64 65 76 5f 74 20 64 65 76 3b 20 20 20 2f dev_t dev; /
21a0: 2a 20 44 65 76 69 63 65 20 6e 75 6d 62 65 72 20 * Device number
21b0: 2a 2f 0a 20 20 69 6e 6f 5f 74 20 69 6e 6f 3b 20 */. ino_t ino;
21c0: 20 20 2f 2a 20 49 6e 6f 64 65 20 6e 75 6d 62 65 /* Inode numbe
21d0: 72 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 r */.};../*.** A
21e0: 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 n instance of th
21f0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 73 74 72 75 e following stru
2200: 63 74 75 72 65 20 69 73 20 61 6c 6c 6f 63 61 74 cture is allocat
2210: 65 64 20 66 6f 72 20 65 61 63 68 20 6f 70 65 6e ed for each open
2220: 0a 2a 2a 20 69 6e 6f 64 65 2e 20 20 54 68 69 73 .** inode. This
2230: 20 73 74 72 75 63 74 75 72 65 20 6b 65 65 70 73 structure keeps
2240: 20 74 72 61 63 6b 20 6f 66 20 74 68 65 20 6e 75 track of the nu
2250: 6d 62 65 72 20 6f 66 20 6c 6f 63 6b 73 20 6f 6e mber of locks on
2260: 20 74 68 61 74 0a 2a 2a 20 69 6e 6f 64 65 2e 20 that.** inode.
2270: 20 49 66 20 61 20 63 6c 6f 73 65 20 69 73 20 61 If a close is a
2280: 74 74 65 6d 70 74 65 64 20 61 67 61 69 6e 73 74 ttempted against
2290: 20 61 6e 20 69 6e 6f 64 65 20 74 68 61 74 20 69 an inode that i
22a0: 73 20 68 6f 6c 64 69 6e 67 0a 2a 2a 20 6c 6f 63 s holding.** loc
22b0: 6b 73 2c 20 74 68 65 20 63 6c 6f 73 65 20 69 73 ks, the close is
22c0: 20 64 65 66 65 72 72 65 64 20 75 6e 74 69 6c 20 deferred until
22d0: 61 6c 6c 20 6c 6f 63 6b 73 20 63 6c 65 61 72 20 all locks clear
22e0: 62 79 20 61 64 64 69 6e 67 20 74 68 65 0a 2a 2a by adding the.**
22f0: 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 file descriptor
2300: 20 74 6f 20 62 65 20 63 6c 6f 73 65 64 20 74 6f to be closed to
2310: 20 74 68 65 20 70 65 6e 64 69 6e 67 20 6c 69 73 the pending lis
2320: 74 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 6f 70 65 t..*/.struct ope
2330: 6e 43 6e 74 20 7b 0a 20 20 73 74 72 75 63 74 20 nCnt {. struct
2340: 6f 70 65 6e 4b 65 79 20 6b 65 79 3b 20 20 20 2f openKey key; /
2350: 2a 20 54 68 65 20 6c 6f 6f 6b 75 70 20 6b 65 79 * The lookup key
2360: 20 2a 2f 0a 20 20 69 6e 74 20 6e 52 65 66 3b 20 */. int nRef;
2370: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e /* N
2380: 75 6d 62 65 72 20 6f 66 20 70 6f 69 6e 74 65 72 umber of pointer
2390: 73 20 74 6f 20 74 68 69 73 20 73 74 72 75 63 74 s to this struct
23a0: 75 72 65 20 2a 2f 0a 20 20 69 6e 74 20 6e 4c 6f ure */. int nLo
23b0: 63 6b 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f ck; /
23c0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 6f 75 74 73 * Number of outs
23d0: 74 61 6e 64 69 6e 67 20 6c 6f 63 6b 73 20 2a 2f tanding locks */
23e0: 0a 20 20 69 6e 74 20 6e 50 65 6e 64 69 6e 67 3b . int nPending;
23f0: 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d 62 /* Numb
2400: 65 72 20 6f 66 20 70 65 6e 64 69 6e 67 20 63 6c er of pending cl
2410: 6f 73 65 28 29 20 6f 70 65 72 61 74 69 6f 6e 73 ose() operations
2420: 20 2a 2f 0a 20 20 69 6e 74 20 2a 61 50 65 6e 64 */. int *aPend
2430: 69 6e 67 3b 20 20 20 20 20 20 20 20 2f 2a 20 4d ing; /* M
2440: 61 6c 6c 6f 63 65 64 20 73 70 61 63 65 20 68 6f alloced space ho
2450: 6c 64 69 6e 67 20 66 64 27 73 20 61 77 61 69 74 lding fd's await
2460: 69 6e 67 20 61 20 63 6c 6f 73 65 28 29 20 2a 2f ing a close() */
2470: 0a 7d 3b 0a 0a 2f 2a 20 0a 2a 2a 20 54 68 65 73 .};../* .** Thes
2480: 65 20 68 61 73 68 20 74 61 62 6c 65 20 6d 61 70 e hash table map
2490: 73 20 69 6e 6f 64 65 73 20 61 6e 64 20 70 72 6f s inodes and pro
24a0: 63 65 73 73 20 49 44 73 20 69 6e 74 6f 20 6c 6f cess IDs into lo
24b0: 63 6b 49 6e 66 6f 20 61 6e 64 20 6f 70 65 6e 43 ckInfo and openC
24c0: 6e 74 0a 2a 2a 20 73 74 72 75 63 74 75 72 65 73 nt.** structures
24d0: 2e 20 20 41 63 63 65 73 73 20 74 6f 20 74 68 65 . Access to the
24e0: 73 65 20 68 61 73 68 20 74 61 62 6c 65 73 20 6d se hash tables m
24f0: 75 73 74 20 62 65 20 70 72 6f 74 65 63 74 65 64 ust be protected
2500: 20 62 79 20 61 20 6d 75 74 65 78 2e 0a 2a 2f 0a by a mutex..*/.
2510: 73 74 61 74 69 63 20 48 61 73 68 20 6c 6f 63 6b static Hash lock
2520: 48 61 73 68 20 3d 20 7b 20 53 51 4c 49 54 45 5f Hash = { SQLITE_
2530: 48 41 53 48 5f 42 49 4e 41 52 59 2c 20 30 2c 20 HASH_BINARY, 0,
2540: 30 2c 20 30 2c 20 30 2c 20 30 20 7d 3b 0a 73 74 0, 0, 0, 0 };.st
2550: 61 74 69 63 20 48 61 73 68 20 6f 70 65 6e 48 61 atic Hash openHa
2560: 73 68 20 3d 20 7b 20 53 51 4c 49 54 45 5f 48 41 sh = { SQLITE_HA
2570: 53 48 5f 42 49 4e 41 52 59 2c 20 30 2c 20 30 2c SH_BINARY, 0, 0,
2580: 20 30 2c 20 30 2c 20 30 20 7d 3b 0a 0a 0a 23 69 0, 0, 0 };...#i
2590: 66 64 65 66 20 53 51 4c 49 54 45 5f 55 4e 49 58 fdef SQLITE_UNIX
25a0: 5f 54 48 52 45 41 44 53 0a 2f 2a 0a 2a 2a 20 54 _THREADS./*.** T
25b0: 68 69 73 20 76 61 72 69 61 62 6c 65 20 72 65 63 his variable rec
25c0: 6f 72 64 73 20 77 68 65 74 68 65 72 20 6f 72 20 ords whether or
25d0: 6e 6f 74 20 74 68 72 65 61 64 73 20 63 61 6e 20 not threads can
25e0: 6f 76 65 72 72 69 64 65 20 65 61 63 68 20 6f 74 override each ot
25f0: 68 65 72 73 0a 2a 2a 20 6c 6f 63 6b 73 2e 0a 2a hers.** locks..*
2600: 2a 0a 2a 2a 20 20 20 20 30 3a 20 20 4e 6f 2e 20 *.** 0: No.
2610: 20 54 68 72 65 61 64 73 20 63 61 6e 6e 6f 74 20 Threads cannot
2620: 6f 76 65 72 72 69 64 65 20 65 61 63 68 20 6f 74 override each ot
2630: 68 65 72 73 20 6c 6f 63 6b 73 2e 0a 2a 2a 20 20 hers locks..**
2640: 20 20 31 3a 20 20 59 65 73 2e 20 20 54 68 72 65 1: Yes. Thre
2650: 61 64 73 20 63 61 6e 20 6f 76 65 72 72 69 64 65 ads can override
2660: 20 65 61 63 68 20 6f 74 68 65 72 73 20 6c 6f 63 each others loc
2670: 6b 73 2e 0a 2a 2a 20 20 20 2d 31 3a 20 20 57 65 ks..** -1: We
2680: 20 64 6f 6e 27 74 20 6b 6e 6f 77 20 79 65 74 2e don't know yet.
2690: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 .*/.static int t
26a0: 68 72 65 61 64 73 4f 76 65 72 72 69 64 65 45 61 hreadsOverrideEa
26b0: 63 68 4f 74 68 65 72 73 4c 6f 63 6b 73 20 3d 20 chOthersLocks =
26c0: 2d 31 3b 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 -1;../*.** This
26d0: 73 74 72 75 63 74 75 72 65 20 68 6f 6c 64 73 20 structure holds
26e0: 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 70 61 73 73 information pass
26f0: 65 64 20 69 6e 74 6f 20 69 6e 64 69 76 69 64 75 ed into individu
2700: 61 6c 20 74 65 73 74 0a 2a 2a 20 74 68 72 65 61 al test.** threa
2710: 64 73 20 62 79 20 74 68 65 20 74 65 73 74 54 68 ds by the testTh
2720: 72 65 61 64 4c 6f 63 6b 69 6e 67 42 65 68 61 76 readLockingBehav
2730: 69 6f 72 28 29 20 72 6f 75 74 69 6e 65 2e 0a 2a ior() routine..*
2740: 2f 0a 73 74 72 75 63 74 20 74 68 72 65 61 64 54 /.struct threadT
2750: 65 73 74 44 61 74 61 20 7b 0a 20 20 69 6e 74 20 estData {. int
2760: 66 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 fd;
2770: 20 20 20 2f 2a 20 46 69 6c 65 20 74 6f 20 62 65 /* File to be
2780: 20 6c 6f 63 6b 65 64 20 2a 2f 0a 20 20 73 74 72 locked */. str
2790: 75 63 74 20 66 6c 6f 63 6b 20 6c 6f 63 6b 3b 20 uct flock lock;
27a0: 20 20 20 20 2f 2a 20 54 68 65 20 6c 6f 63 6b 69 /* The locki
27b0: 6e 67 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a ng operation */.
27c0: 20 20 69 6e 74 20 72 65 73 75 6c 74 3b 20 20 20 int result;
27d0: 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75 /* Resu
27e0: 6c 74 20 6f 66 20 74 68 65 20 6c 6f 63 6b 69 6e lt of the lockin
27f0: 67 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 7d g operation */.}
2800: 3b 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 74 65 73 ;../*.** The tes
2810: 74 54 68 72 65 61 64 4c 6f 63 6b 69 6e 67 42 65 tThreadLockingBe
2820: 68 61 76 69 6f 72 28 29 20 72 6f 75 74 69 6e 65 havior() routine
2830: 20 6c 61 75 6e 63 68 65 73 20 74 77 6f 20 73 65 launches two se
2840: 70 61 72 61 74 65 0a 2a 2a 20 74 68 72 65 61 64 parate.** thread
2850: 73 20 6f 6e 20 74 68 69 73 20 72 6f 75 74 69 6e s on this routin
2860: 65 2e 20 20 54 68 69 73 20 72 6f 75 74 69 6e 65 e. This routine
2870: 20 61 74 74 65 6d 70 74 73 20 74 6f 20 6c 6f 63 attempts to loc
2880: 6b 20 61 20 66 69 6c 65 0a 2a 2a 20 64 65 73 63 k a file.** desc
2890: 72 69 70 74 6f 72 20 74 68 65 6e 20 72 65 74 75 riptor then retu
28a0: 72 6e 73 2e 20 20 54 68 65 20 73 75 63 63 65 73 rns. The succes
28b0: 73 20 6f 72 20 66 61 69 6c 75 72 65 20 6f 66 20 s or failure of
28c0: 74 68 61 74 20 61 74 74 65 6d 70 74 0a 2a 2a 20 that attempt.**
28d0: 61 6c 6c 6f 77 73 20 74 68 65 20 74 65 73 74 54 allows the testT
28e0: 68 72 65 61 64 4c 6f 63 6b 69 6e 67 42 65 68 61 hreadLockingBeha
28f0: 76 69 6f 72 28 29 20 70 72 6f 63 65 64 75 72 65 vior() procedure
2900: 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 0a 2a 2a to determine.**
2910: 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 whether or not
2920: 74 68 72 65 61 64 73 20 63 61 6e 20 6f 76 65 72 threads can over
2930: 72 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 73 ride each others
2940: 20 6c 6f 63 6b 73 2e 0a 2a 2f 0a 73 74 61 74 69 locks..*/.stati
2950: 63 20 76 6f 69 64 20 2a 74 68 72 65 61 64 4c 6f c void *threadLo
2960: 63 6b 69 6e 67 54 65 73 74 28 76 6f 69 64 20 2a ckingTest(void *
2970: 70 41 72 67 29 7b 0a 20 20 73 74 72 75 63 74 20 pArg){. struct
2980: 74 68 72 65 61 64 54 65 73 74 44 61 74 61 20 2a threadTestData *
2990: 70 44 61 74 61 20 3d 20 28 73 74 72 75 63 74 20 pData = (struct
29a0: 74 68 72 65 61 64 54 65 73 74 44 61 74 61 2a 29 threadTestData*)
29b0: 70 41 72 67 3b 0a 20 20 70 44 61 74 61 2d 3e 72 pArg;. pData->r
29c0: 65 73 75 6c 74 20 3d 20 66 63 6e 74 6c 28 70 44 esult = fcntl(pD
29d0: 61 74 61 2d 3e 66 64 2c 20 46 5f 53 45 54 4c 4b ata->fd, F_SETLK
29e0: 2c 20 26 70 44 61 74 61 2d 3e 6c 6f 63 6b 29 3b , &pData->lock);
29f0: 0a 20 20 72 65 74 75 72 6e 20 70 41 72 67 3b 0a . return pArg;.
2a00: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 70 72 }../*.** This pr
2a10: 6f 63 65 64 75 72 65 20 61 74 74 65 6d 70 74 73 ocedure attempts
2a20: 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 77 68 to determine wh
2a30: 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 68 72 ether or not thr
2a40: 65 61 64 73 0a 2a 2a 20 63 61 6e 20 6f 76 65 72 eads.** can over
2a50: 72 69 64 65 20 65 61 63 68 20 6f 74 68 65 72 73 ride each others
2a60: 20 6c 6f 63 6b 73 20 74 68 65 6e 20 73 65 74 73 locks then sets
2a70: 20 74 68 65 20 0a 2a 2a 20 74 68 72 65 61 64 73 the .** threads
2a80: 4f 76 65 72 72 69 64 65 45 61 63 68 4f 74 68 65 OverrideEachOthe
2a90: 72 73 4c 6f 63 6b 73 20 76 61 72 69 61 62 6c 65 rsLocks variable
2aa0: 20 61 70 70 72 6f 70 72 69 61 74 65 6c 79 2e 0a appropriately..
2ab0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 74 */.static void t
2ac0: 65 73 74 54 68 72 65 61 64 4c 6f 63 6b 69 6e 67 estThreadLocking
2ad0: 42 65 68 61 76 69 6f 72 28 66 64 5f 6f 72 69 67 Behavior(fd_orig
2ae0: 29 7b 0a 20 20 69 6e 74 20 66 64 3b 0a 20 20 73 ){. int fd;. s
2af0: 74 72 75 63 74 20 74 68 72 65 61 64 54 65 73 74 truct threadTest
2b00: 44 61 74 61 20 64 5b 32 5d 3b 0a 20 20 70 74 68 Data d[2];. pth
2b10: 72 65 61 64 5f 74 20 74 5b 32 5d 3b 0a 0a 20 20 read_t t[2];..
2b20: 66 64 20 3d 20 64 75 70 28 66 64 5f 6f 72 69 67 fd = dup(fd_orig
2b30: 29 3b 0a 20 20 69 66 28 20 66 64 3c 30 20 29 20 );. if( fd<0 )
2b40: 72 65 74 75 72 6e 3b 0a 20 20 6d 65 6d 73 65 74 return;. memset
2b50: 28 64 2c 20 30 2c 20 73 69 7a 65 6f 66 28 64 29 (d, 0, sizeof(d)
2b60: 29 3b 0a 20 20 64 5b 30 5d 2e 66 64 20 3d 20 66 );. d[0].fd = f
2b70: 64 3b 0a 20 20 64 5b 30 5d 2e 6c 6f 63 6b 2e 6c d;. d[0].lock.l
2b80: 5f 74 79 70 65 20 3d 20 46 5f 52 44 4c 43 4b 3b _type = F_RDLCK;
2b90: 0a 20 20 64 5b 30 5d 2e 6c 6f 63 6b 2e 6c 5f 6c . d[0].lock.l_l
2ba0: 65 6e 20 3d 20 31 3b 0a 20 20 64 5b 30 5d 2e 6c en = 1;. d[0].l
2bb0: 6f 63 6b 2e 6c 5f 73 74 61 72 74 20 3d 20 30 3b ock.l_start = 0;
2bc0: 0a 20 20 64 5b 30 5d 2e 6c 6f 63 6b 2e 6c 5f 77 . d[0].lock.l_w
2bd0: 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 hence = SEEK_SET
2be0: 3b 0a 20 20 64 5b 31 5d 20 3d 20 64 5b 30 5d 3b ;. d[1] = d[0];
2bf0: 0a 20 20 64 5b 31 5d 2e 6c 6f 63 6b 2e 6c 5f 74 . d[1].lock.l_t
2c00: 79 70 65 20 3d 20 46 5f 57 52 4c 43 4b 3b 0a 20 ype = F_WRLCK;.
2c10: 20 70 74 68 72 65 61 64 5f 63 72 65 61 74 65 28 pthread_create(
2c20: 26 74 5b 30 5d 2c 20 30 2c 20 74 68 72 65 61 64 &t[0], 0, thread
2c30: 4c 6f 63 6b 69 6e 67 54 65 73 74 2c 20 26 64 5b LockingTest, &d[
2c40: 30 5d 29 3b 0a 20 20 70 74 68 72 65 61 64 5f 63 0]);. pthread_c
2c50: 72 65 61 74 65 28 26 74 5b 31 5d 2c 20 30 2c 20 reate(&t[1], 0,
2c60: 74 68 72 65 61 64 4c 6f 63 6b 69 6e 67 54 65 73 threadLockingTes
2c70: 74 2c 20 26 64 5b 31 5d 29 3b 0a 20 20 70 74 68 t, &d[1]);. pth
2c80: 72 65 61 64 5f 6a 6f 69 6e 28 74 5b 30 5d 2c 20 read_join(t[0],
2c90: 30 29 3b 0a 20 20 70 74 68 72 65 61 64 5f 6a 6f 0);. pthread_jo
2ca0: 69 6e 28 74 5b 31 5d 2c 20 30 29 3b 0a 20 20 63 in(t[1], 0);. c
2cb0: 6c 6f 73 65 28 66 64 29 3b 0a 20 20 74 68 72 65 lose(fd);. thre
2cc0: 61 64 73 4f 76 65 72 72 69 64 65 45 61 63 68 4f adsOverrideEachO
2cd0: 74 68 65 72 73 4c 6f 63 6b 73 20 3d 20 20 64 5b thersLocks = d[
2ce0: 30 5d 2e 72 65 73 75 6c 74 3d 3d 30 20 26 26 20 0].result==0 &&
2cf0: 64 5b 31 5d 2e 72 65 73 75 6c 74 3d 3d 30 3b 0a d[1].result==0;.
2d00: 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 }.#endif /* SQLI
2d10: 54 45 5f 55 4e 49 58 5f 54 48 52 45 41 44 53 20 TE_UNIX_THREADS
2d20: 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 52 65 6c 65 61 73 */../*.** Releas
2d30: 65 20 61 20 6c 6f 63 6b 49 6e 66 6f 20 73 74 72 e a lockInfo str
2d40: 75 63 74 75 72 65 20 70 72 65 76 69 6f 75 73 6c ucture previousl
2d50: 79 20 61 6c 6c 6f 63 61 74 65 64 20 62 79 20 66 y allocated by f
2d60: 69 6e 64 4c 6f 63 6b 49 6e 66 6f 28 29 2e 0a 2a indLockInfo()..*
2d70: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 /.static void re
2d80: 6c 65 61 73 65 4c 6f 63 6b 49 6e 66 6f 28 73 74 leaseLockInfo(st
2d90: 72 75 63 74 20 6c 6f 63 6b 49 6e 66 6f 20 2a 70 ruct lockInfo *p
2da0: 4c 6f 63 6b 29 7b 0a 20 20 70 4c 6f 63 6b 2d 3e Lock){. pLock->
2db0: 6e 52 65 66 2d 2d 3b 0a 20 20 69 66 28 20 70 4c nRef--;. if( pL
2dc0: 6f 63 6b 2d 3e 6e 52 65 66 3d 3d 30 20 29 7b 0a ock->nRef==0 ){.
2dd0: 20 20 20 20 73 71 6c 69 74 65 33 48 61 73 68 49 sqlite3HashI
2de0: 6e 73 65 72 74 28 26 6c 6f 63 6b 48 61 73 68 2c nsert(&lockHash,
2df0: 20 26 70 4c 6f 63 6b 2d 3e 6b 65 79 2c 20 73 69 &pLock->key, si
2e00: 7a 65 6f 66 28 70 4c 6f 63 6b 2d 3e 6b 65 79 29 zeof(pLock->key)
2e10: 2c 20 30 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 , 0);. sqlite
2e20: 46 72 65 65 28 70 4c 6f 63 6b 29 3b 0a 20 20 7d Free(pLock);. }
2e30: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 6c 65 61 73 .}../*.** Releas
2e40: 65 20 61 20 6f 70 65 6e 43 6e 74 20 73 74 72 75 e a openCnt stru
2e50: 63 74 75 72 65 20 70 72 65 76 69 6f 75 73 6c 79 cture previously
2e60: 20 61 6c 6c 6f 63 61 74 65 64 20 62 79 20 66 69 allocated by fi
2e70: 6e 64 4c 6f 63 6b 49 6e 66 6f 28 29 2e 0a 2a 2f ndLockInfo()..*/
2e80: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 72 65 6c .static void rel
2e90: 65 61 73 65 4f 70 65 6e 43 6e 74 28 73 74 72 75 easeOpenCnt(stru
2ea0: 63 74 20 6f 70 65 6e 43 6e 74 20 2a 70 4f 70 65 ct openCnt *pOpe
2eb0: 6e 29 7b 0a 20 20 70 4f 70 65 6e 2d 3e 6e 52 65 n){. pOpen->nRe
2ec0: 66 2d 2d 3b 0a 20 20 69 66 28 20 70 4f 70 65 6e f--;. if( pOpen
2ed0: 2d 3e 6e 52 65 66 3d 3d 30 20 29 7b 0a 20 20 20 ->nRef==0 ){.
2ee0: 20 73 71 6c 69 74 65 33 48 61 73 68 49 6e 73 65 sqlite3HashInse
2ef0: 72 74 28 26 6f 70 65 6e 48 61 73 68 2c 20 26 70 rt(&openHash, &p
2f00: 4f 70 65 6e 2d 3e 6b 65 79 2c 20 73 69 7a 65 6f Open->key, sizeo
2f10: 66 28 70 4f 70 65 6e 2d 3e 6b 65 79 29 2c 20 30 f(pOpen->key), 0
2f20: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 46 72 65 );. sqliteFre
2f30: 65 28 70 4f 70 65 6e 2d 3e 61 50 65 6e 64 69 6e e(pOpen->aPendin
2f40: 67 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 46 72 g);. sqliteFr
2f50: 65 65 28 70 4f 70 65 6e 29 3b 0a 20 20 7d 0a 7d ee(pOpen);. }.}
2f60: 0a 0a 2f 2a 0a 2a 2a 20 47 69 76 65 6e 20 61 20 ../*.** Given a
2f70: 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 2c file descriptor,
2f80: 20 6c 6f 63 61 74 65 20 6c 6f 63 6b 49 6e 66 6f locate lockInfo
2f90: 20 61 6e 64 20 6f 70 65 6e 43 6e 74 20 73 74 72 and openCnt str
2fa0: 75 63 74 75 72 65 73 20 74 68 61 74 0a 2a 2a 20 uctures that.**
2fb0: 64 65 73 63 72 69 62 65 73 20 74 68 61 74 20 66 describes that f
2fc0: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 2e 20 ile descriptor.
2fd0: 20 43 72 65 61 74 65 20 61 20 6e 65 77 20 6f 6e Create a new on
2fe0: 65 73 20 69 66 20 6e 65 63 65 73 73 61 72 79 2e es if necessary.
2ff0: 20 20 54 68 65 0a 2a 2a 20 72 65 74 75 72 6e 20 The.** return
3000: 76 61 6c 75 65 73 20 6d 69 67 68 74 20 62 65 20 values might be
3010: 75 6e 73 65 74 20 69 66 20 61 6e 20 65 72 72 6f unset if an erro
3020: 72 20 6f 63 63 75 72 73 2e 0a 2a 2a 0a 2a 2a 20 r occurs..**.**
3030: 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62 65 Return the numbe
3040: 72 20 6f 66 20 65 72 72 6f 72 73 2e 0a 2a 2f 0a r of errors..*/.
3050: 73 74 61 74 69 63 20 69 6e 74 20 66 69 6e 64 4c static int findL
3060: 6f 63 6b 49 6e 66 6f 28 0a 20 20 69 6e 74 20 66 ockInfo(. int f
3070: 64 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d,
3080: 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20 66 /* The f
3090: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 75 ile descriptor u
30a0: 73 65 64 20 69 6e 20 74 68 65 20 6b 65 79 20 2a sed in the key *
30b0: 2f 0a 20 20 73 74 72 75 63 74 20 6c 6f 63 6b 49 /. struct lockI
30c0: 6e 66 6f 20 2a 2a 70 70 4c 6f 63 6b 2c 20 20 20 nfo **ppLock,
30d0: 20 2f 2a 20 52 65 74 75 72 6e 20 74 68 65 20 6c /* Return the l
30e0: 6f 63 6b 49 6e 66 6f 20 73 74 72 75 63 74 75 72 ockInfo structur
30f0: 65 20 68 65 72 65 20 2a 2f 0a 20 20 73 74 72 75 e here */. stru
3100: 63 74 20 6f 70 65 6e 43 6e 74 20 2a 2a 70 70 4f ct openCnt **ppO
3110: 70 65 6e 20 20 20 20 20 20 2f 2a 20 52 65 74 75 pen /* Retu
3120: 72 6e 20 74 68 65 20 6f 70 65 6e 43 6e 74 20 73 rn the openCnt s
3130: 74 72 75 63 74 75 72 65 20 68 65 72 65 20 2a 2f tructure here */
3140: 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 .){. int rc;.
3150: 73 74 72 75 63 74 20 6c 6f 63 6b 4b 65 79 20 6b struct lockKey k
3160: 65 79 31 3b 0a 20 20 73 74 72 75 63 74 20 6f 70 ey1;. struct op
3170: 65 6e 4b 65 79 20 6b 65 79 32 3b 0a 20 20 73 74 enKey key2;. st
3180: 72 75 63 74 20 73 74 61 74 20 73 74 61 74 62 75 ruct stat statbu
3190: 66 3b 0a 20 20 73 74 72 75 63 74 20 6c 6f 63 6b f;. struct lock
31a0: 49 6e 66 6f 20 2a 70 4c 6f 63 6b 3b 0a 20 20 73 Info *pLock;. s
31b0: 74 72 75 63 74 20 6f 70 65 6e 43 6e 74 20 2a 70 truct openCnt *p
31c0: 4f 70 65 6e 3b 0a 20 20 72 63 20 3d 20 66 73 74 Open;. rc = fst
31d0: 61 74 28 66 64 2c 20 26 73 74 61 74 62 75 66 29 at(fd, &statbuf)
31e0: 3b 0a 20 20 69 66 28 20 72 63 21 3d 30 20 29 20 ;. if( rc!=0 )
31f0: 72 65 74 75 72 6e 20 31 3b 0a 20 20 6d 65 6d 73 return 1;. mems
3200: 65 74 28 26 6b 65 79 31 2c 20 30 2c 20 73 69 7a et(&key1, 0, siz
3210: 65 6f 66 28 6b 65 79 31 29 29 3b 0a 20 20 6b 65 eof(key1));. ke
3220: 79 31 2e 64 65 76 20 3d 20 73 74 61 74 62 75 66 y1.dev = statbuf
3230: 2e 73 74 5f 64 65 76 3b 0a 20 20 6b 65 79 31 2e .st_dev;. key1.
3240: 69 6e 6f 20 3d 20 73 74 61 74 62 75 66 2e 73 74 ino = statbuf.st
3250: 5f 69 6e 6f 3b 0a 23 69 66 64 65 66 20 53 51 4c _ino;.#ifdef SQL
3260: 49 54 45 5f 55 4e 49 58 5f 54 48 52 45 41 44 53 ITE_UNIX_THREADS
3270: 0a 20 20 69 66 28 20 74 68 72 65 61 64 73 4f 76 . if( threadsOv
3280: 65 72 72 69 64 65 45 61 63 68 4f 74 68 65 72 73 errideEachOthers
3290: 4c 6f 63 6b 73 3c 30 20 29 7b 0a 20 20 20 20 74 Locks<0 ){. t
32a0: 65 73 74 54 68 72 65 61 64 4c 6f 63 6b 69 6e 67 estThreadLocking
32b0: 42 65 68 61 76 69 6f 72 28 66 64 29 3b 0a 20 20 Behavior(fd);.
32c0: 7d 0a 20 20 6b 65 79 31 2e 74 69 64 20 3d 20 74 }. key1.tid = t
32d0: 68 72 65 61 64 73 4f 76 65 72 72 69 64 65 45 61 hreadsOverrideEa
32e0: 63 68 4f 74 68 65 72 73 4c 6f 63 6b 73 20 3f 20 chOthersLocks ?
32f0: 30 20 3a 20 70 74 68 72 65 61 64 5f 73 65 6c 66 0 : pthread_self
3300: 28 29 3b 0a 23 65 6e 64 69 66 0a 20 20 6d 65 6d ();.#endif. mem
3310: 73 65 74 28 26 6b 65 79 32 2c 20 30 2c 20 73 69 set(&key2, 0, si
3320: 7a 65 6f 66 28 6b 65 79 32 29 29 3b 0a 20 20 6b zeof(key2));. k
3330: 65 79 32 2e 64 65 76 20 3d 20 73 74 61 74 62 75 ey2.dev = statbu
3340: 66 2e 73 74 5f 64 65 76 3b 0a 20 20 6b 65 79 32 f.st_dev;. key2
3350: 2e 69 6e 6f 20 3d 20 73 74 61 74 62 75 66 2e 73 .ino = statbuf.s
3360: 74 5f 69 6e 6f 3b 0a 20 20 70 4c 6f 63 6b 20 3d t_ino;. pLock =
3370: 20 28 73 74 72 75 63 74 20 6c 6f 63 6b 49 6e 66 (struct lockInf
3380: 6f 2a 29 73 71 6c 69 74 65 33 48 61 73 68 46 69 o*)sqlite3HashFi
3390: 6e 64 28 26 6c 6f 63 6b 48 61 73 68 2c 20 26 6b nd(&lockHash, &k
33a0: 65 79 31 2c 20 73 69 7a 65 6f 66 28 6b 65 79 31 ey1, sizeof(key1
33b0: 29 29 3b 0a 20 20 69 66 28 20 70 4c 6f 63 6b 3d ));. if( pLock=
33c0: 3d 30 20 29 7b 0a 20 20 20 20 73 74 72 75 63 74 =0 ){. struct
33d0: 20 6c 6f 63 6b 49 6e 66 6f 20 2a 70 4f 6c 64 3b lockInfo *pOld;
33e0: 0a 20 20 20 20 70 4c 6f 63 6b 20 3d 20 73 71 6c . pLock = sql
33f0: 69 74 65 4d 61 6c 6c 6f 63 52 61 77 28 20 73 69 iteMallocRaw( si
3400: 7a 65 6f 66 28 2a 70 4c 6f 63 6b 29 20 29 3b 0a zeof(*pLock) );.
3410: 20 20 20 20 69 66 28 20 70 4c 6f 63 6b 3d 3d 30 if( pLock==0
3420: 20 29 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 ) return 1;.
3430: 20 70 4c 6f 63 6b 2d 3e 6b 65 79 20 3d 20 6b 65 pLock->key = ke
3440: 79 31 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 6e y1;. pLock->n
3450: 52 65 66 20 3d 20 31 3b 0a 20 20 20 20 70 4c 6f Ref = 1;. pLo
3460: 63 6b 2d 3e 63 6e 74 20 3d 20 30 3b 0a 20 20 20 ck->cnt = 0;.
3470: 20 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 pLock->locktype
3480: 20 3d 20 30 3b 0a 20 20 20 20 70 4f 6c 64 20 3d = 0;. pOld =
3490: 20 73 71 6c 69 74 65 33 48 61 73 68 49 6e 73 65 sqlite3HashInse
34a0: 72 74 28 26 6c 6f 63 6b 48 61 73 68 2c 20 26 70 rt(&lockHash, &p
34b0: 4c 6f 63 6b 2d 3e 6b 65 79 2c 20 73 69 7a 65 6f Lock->key, sizeo
34c0: 66 28 6b 65 79 31 29 2c 20 70 4c 6f 63 6b 29 3b f(key1), pLock);
34d0: 0a 20 20 20 20 69 66 28 20 70 4f 6c 64 21 3d 30 . if( pOld!=0
34e0: 20 29 7b 0a 20 20 20 20 20 20 61 73 73 65 72 74 ){. assert
34f0: 28 20 70 4f 6c 64 3d 3d 70 4c 6f 63 6b 20 29 3b ( pOld==pLock );
3500: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 46 72 65 . sqliteFre
3510: 65 28 70 4c 6f 63 6b 29 3b 0a 20 20 20 20 20 20 e(pLock);.
3520: 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a return 1;. }.
3530: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 70 4c 6f }else{. pLo
3540: 63 6b 2d 3e 6e 52 65 66 2b 2b 3b 0a 20 20 7d 0a ck->nRef++;. }.
3550: 20 20 2a 70 70 4c 6f 63 6b 20 3d 20 70 4c 6f 63 *ppLock = pLoc
3560: 6b 3b 0a 20 20 70 4f 70 65 6e 20 3d 20 28 73 74 k;. pOpen = (st
3570: 72 75 63 74 20 6f 70 65 6e 43 6e 74 2a 29 73 71 ruct openCnt*)sq
3580: 6c 69 74 65 33 48 61 73 68 46 69 6e 64 28 26 6f lite3HashFind(&o
3590: 70 65 6e 48 61 73 68 2c 20 26 6b 65 79 32 2c 20 penHash, &key2,
35a0: 73 69 7a 65 6f 66 28 6b 65 79 32 29 29 3b 0a 20 sizeof(key2));.
35b0: 20 69 66 28 20 70 4f 70 65 6e 3d 3d 30 20 29 7b if( pOpen==0 ){
35c0: 0a 20 20 20 20 73 74 72 75 63 74 20 6f 70 65 6e . struct open
35d0: 43 6e 74 20 2a 70 4f 6c 64 3b 0a 20 20 20 20 70 Cnt *pOld;. p
35e0: 4f 70 65 6e 20 3d 20 73 71 6c 69 74 65 4d 61 6c Open = sqliteMal
35f0: 6c 6f 63 52 61 77 28 20 73 69 7a 65 6f 66 28 2a locRaw( sizeof(*
3600: 70 4f 70 65 6e 29 20 29 3b 0a 20 20 20 20 69 66 pOpen) );. if
3610: 28 20 70 4f 70 65 6e 3d 3d 30 20 29 7b 0a 20 20 ( pOpen==0 ){.
3620: 20 20 20 20 72 65 6c 65 61 73 65 4c 6f 63 6b 49 releaseLockI
3630: 6e 66 6f 28 70 4c 6f 63 6b 29 3b 0a 20 20 20 20 nfo(pLock);.
3640: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 return 1;.
3650: 7d 0a 20 20 20 20 70 4f 70 65 6e 2d 3e 6b 65 79 }. pOpen->key
3660: 20 3d 20 6b 65 79 32 3b 0a 20 20 20 20 70 4f 70 = key2;. pOp
3670: 65 6e 2d 3e 6e 52 65 66 20 3d 20 31 3b 0a 20 20 en->nRef = 1;.
3680: 20 20 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 6b 20 3d pOpen->nLock =
3690: 20 30 3b 0a 20 20 20 20 70 4f 70 65 6e 2d 3e 6e 0;. pOpen->n
36a0: 50 65 6e 64 69 6e 67 20 3d 20 30 3b 0a 20 20 20 Pending = 0;.
36b0: 20 70 4f 70 65 6e 2d 3e 61 50 65 6e 64 69 6e 67 pOpen->aPending
36c0: 20 3d 20 30 3b 0a 20 20 20 20 70 4f 6c 64 20 3d = 0;. pOld =
36d0: 20 73 71 6c 69 74 65 33 48 61 73 68 49 6e 73 65 sqlite3HashInse
36e0: 72 74 28 26 6f 70 65 6e 48 61 73 68 2c 20 26 70 rt(&openHash, &p
36f0: 4f 70 65 6e 2d 3e 6b 65 79 2c 20 73 69 7a 65 6f Open->key, sizeo
3700: 66 28 6b 65 79 32 29 2c 20 70 4f 70 65 6e 29 3b f(key2), pOpen);
3710: 0a 20 20 20 20 69 66 28 20 70 4f 6c 64 21 3d 30 . if( pOld!=0
3720: 20 29 7b 0a 20 20 20 20 20 20 61 73 73 65 72 74 ){. assert
3730: 28 20 70 4f 6c 64 3d 3d 70 4f 70 65 6e 20 29 3b ( pOld==pOpen );
3740: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 46 72 65 . sqliteFre
3750: 65 28 70 4f 70 65 6e 29 3b 0a 20 20 20 20 20 20 e(pOpen);.
3760: 72 65 6c 65 61 73 65 4c 6f 63 6b 49 6e 66 6f 28 releaseLockInfo(
3770: 70 4c 6f 63 6b 29 3b 0a 20 20 20 20 20 20 72 65 pLock);. re
3780: 74 75 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 turn 1;. }.
3790: 7d 65 6c 73 65 7b 0a 20 20 20 20 70 4f 70 65 6e }else{. pOpen
37a0: 2d 3e 6e 52 65 66 2b 2b 3b 0a 20 20 7d 0a 20 20 ->nRef++;. }.
37b0: 2a 70 70 4f 70 65 6e 20 3d 20 70 4f 70 65 6e 3b *ppOpen = pOpen;
37c0: 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a . return 0;.}..
37d0: 2f 2a 0a 2a 2a 20 44 65 6c 65 74 65 20 74 68 65 /*.** Delete the
37e0: 20 6e 61 6d 65 64 20 66 69 6c 65 0a 2a 2f 0a 69 named file.*/.i
37f0: 6e 74 20 73 71 6c 69 74 65 33 4f 73 44 65 6c 65 nt sqlite3OsDele
3800: 74 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a te(const char *z
3810: 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 75 6e 6c Filename){. unl
3820: 69 6e 6b 28 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a ink(zFilename);.
3830: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
3840: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 74 OK;.}../*.** Ret
3850: 75 72 6e 20 54 52 55 45 20 69 66 20 74 68 65 20 urn TRUE if the
3860: 6e 61 6d 65 64 20 66 69 6c 65 20 65 78 69 73 74 named file exist
3870: 73 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 s..*/.int sqlite
3880: 33 4f 73 46 69 6c 65 45 78 69 73 74 73 28 63 6f 3OsFileExists(co
3890: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e nst char *zFilen
38a0: 61 6d 65 29 7b 0a 20 20 72 65 74 75 72 6e 20 61 ame){. return a
38b0: 63 63 65 73 73 28 7a 46 69 6c 65 6e 61 6d 65 2c ccess(zFilename,
38c0: 20 30 29 3d 3d 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 0)==0;.}../*.**
38d0: 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e Attempt to open
38e0: 20 61 20 66 69 6c 65 20 66 6f 72 20 62 6f 74 68 a file for both
38f0: 20 72 65 61 64 69 6e 67 20 61 6e 64 20 77 72 69 reading and wri
3900: 74 69 6e 67 2e 20 20 49 66 20 74 68 61 74 0a 2a ting. If that.*
3910: 2a 20 66 61 69 6c 73 2c 20 74 72 79 20 6f 70 65 * fails, try ope
3920: 6e 69 6e 67 20 69 74 20 72 65 61 64 2d 6f 6e 6c ning it read-onl
3930: 79 2e 20 20 49 66 20 74 68 65 20 66 69 6c 65 20 y. If the file
3940: 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 0a does not exist,.
3950: 2a 2a 20 74 72 79 20 74 6f 20 63 72 65 61 74 65 ** try to create
3960: 20 69 74 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 20 73 75 it..**.** On su
3970: 63 63 65 73 73 2c 20 61 20 68 61 6e 64 6c 65 20 ccess, a handle
3980: 66 6f 72 20 74 68 65 20 6f 70 65 6e 20 66 69 6c for the open fil
3990: 65 20 69 73 20 77 72 69 74 74 65 6e 20 74 6f 20 e is written to
39a0: 2a 69 64 0a 2a 2a 20 61 6e 64 20 2a 70 52 65 61 *id.** and *pRea
39b0: 64 6f 6e 6c 79 20 69 73 20 73 65 74 20 74 6f 20 donly is set to
39c0: 30 20 69 66 20 74 68 65 20 66 69 6c 65 20 77 61 0 if the file wa
39d0: 73 20 6f 70 65 6e 65 64 20 66 6f 72 20 72 65 61 s opened for rea
39e0: 64 69 6e 67 20 61 6e 64 0a 2a 2a 20 77 72 69 74 ding and.** writ
39f0: 69 6e 67 20 6f 72 20 31 20 69 66 20 74 68 65 20 ing or 1 if the
3a00: 66 69 6c 65 20 77 61 73 20 6f 70 65 6e 65 64 20 file was opened
3a10: 72 65 61 64 2d 6f 6e 6c 79 2e 20 20 54 68 65 20 read-only. The
3a20: 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 function returns
3a30: 0a 2a 2a 20 53 51 4c 49 54 45 5f 4f 4b 2e 0a 2a .** SQLITE_OK..*
3a40: 2a 0a 2a 2a 20 4f 6e 20 66 61 69 6c 75 72 65 2c *.** On failure,
3a50: 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 72 65 the function re
3a60: 74 75 72 6e 73 20 53 51 4c 49 54 45 5f 43 41 4e turns SQLITE_CAN
3a70: 54 4f 50 45 4e 20 61 6e 64 20 6c 65 61 76 65 73 TOPEN and leaves
3a80: 0a 2a 2a 20 2a 69 64 20 61 6e 64 20 2a 70 52 65 .** *id and *pRe
3a90: 61 64 6f 6e 6c 79 20 75 6e 63 68 61 6e 67 65 64 adonly unchanged
3aa0: 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 ..*/.int sqlite3
3ab0: 4f 73 4f 70 65 6e 52 65 61 64 57 72 69 74 65 28 OsOpenReadWrite(
3ac0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
3ad0: 46 69 6c 65 6e 61 6d 65 2c 0a 20 20 4f 73 46 69 Filename,. OsFi
3ae0: 6c 65 20 2a 69 64 2c 0a 20 20 69 6e 74 20 2a 70 le *id,. int *p
3af0: 52 65 61 64 6f 6e 6c 79 0a 29 7b 0a 20 20 69 6e Readonly.){. in
3b00: 74 20 72 63 3b 0a 20 20 61 73 73 65 72 74 28 20 t rc;. assert(
3b10: 21 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 !id->isOpen );.
3b20: 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 2d 31 3b id->dirfd = -1;
3b30: 0a 20 20 69 64 2d 3e 68 20 3d 20 6f 70 65 6e 28 . id->h = open(
3b40: 7a 46 69 6c 65 6e 61 6d 65 2c 20 4f 5f 52 44 57 zFilename, O_RDW
3b50: 52 7c 4f 5f 43 52 45 41 54 7c 4f 5f 4c 41 52 47 R|O_CREAT|O_LARG
3b60: 45 46 49 4c 45 7c 4f 5f 42 49 4e 41 52 59 2c 20 EFILE|O_BINARY,
3b70: 30 36 34 34 29 3b 0a 20 20 69 66 28 20 69 64 2d 0644);. if( id-
3b80: 3e 68 3c 30 20 29 7b 0a 23 69 66 64 65 66 20 45 >h<0 ){.#ifdef E
3b90: 49 53 44 49 52 0a 20 20 20 20 69 66 28 20 65 72 ISDIR. if( er
3ba0: 72 6e 6f 3d 3d 45 49 53 44 49 52 20 29 7b 0a 20 rno==EISDIR ){.
3bb0: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 return SQLI
3bc0: 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 0a 20 20 20 TE_CANTOPEN;.
3bd0: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 64 }.#endif. id
3be0: 2d 3e 68 20 3d 20 6f 70 65 6e 28 7a 46 69 6c 65 ->h = open(zFile
3bf0: 6e 61 6d 65 2c 20 4f 5f 52 44 4f 4e 4c 59 7c 4f name, O_RDONLY|O
3c00: 5f 4c 41 52 47 45 46 49 4c 45 7c 4f 5f 42 49 4e _LARGEFILE|O_BIN
3c10: 41 52 59 29 3b 0a 20 20 20 20 69 66 28 20 69 64 ARY);. if( id
3c20: 2d 3e 68 3c 30 20 29 7b 0a 20 20 20 20 20 20 72 ->h<0 ){. r
3c30: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e eturn SQLITE_CAN
3c40: 54 4f 50 45 4e 3b 20 0a 20 20 20 20 7d 0a 20 20 TOPEN; . }.
3c50: 20 20 2a 70 52 65 61 64 6f 6e 6c 79 20 3d 20 31 *pReadonly = 1
3c60: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 2a ;. }else{. *
3c70: 70 52 65 61 64 6f 6e 6c 79 20 3d 20 30 3b 0a 20 pReadonly = 0;.
3c80: 20 7d 0a 20 20 73 71 6c 69 74 65 33 4f 73 45 6e }. sqlite3OsEn
3c90: 74 65 72 4d 75 74 65 78 28 29 3b 0a 20 20 72 63 terMutex();. rc
3ca0: 20 3d 20 66 69 6e 64 4c 6f 63 6b 49 6e 66 6f 28 = findLockInfo(
3cb0: 69 64 2d 3e 68 2c 20 26 69 64 2d 3e 70 4c 6f 63 id->h, &id->pLoc
3cc0: 6b 2c 20 26 69 64 2d 3e 70 4f 70 65 6e 29 3b 0a k, &id->pOpen);.
3cd0: 20 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 sqlite3OsLeave
3ce0: 4d 75 74 65 78 28 29 3b 0a 20 20 69 66 28 20 72 Mutex();. if( r
3cf0: 63 20 29 7b 0a 20 20 20 20 63 6c 6f 73 65 28 69 c ){. close(i
3d00: 64 2d 3e 68 29 3b 0a 20 20 20 20 72 65 74 75 72 d->h);. retur
3d10: 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a n SQLITE_NOMEM;.
3d20: 20 20 7d 0a 20 20 69 64 2d 3e 6c 6f 63 6b 74 79 }. id->lockty
3d30: 70 65 20 3d 20 30 3b 0a 20 20 69 64 2d 3e 69 73 pe = 0;. id->is
3d40: 4f 70 65 6e 20 3d 20 31 3b 0a 20 20 54 52 41 43 Open = 1;. TRAC
3d50: 45 33 28 22 4f 50 45 4e 20 20 20 20 25 2d 33 64 E3("OPEN %-3d
3d60: 20 25 73 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 7a %s\n", id->h, z
3d70: 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 4f 70 65 Filename);. Ope
3d80: 6e 43 6f 75 6e 74 65 72 28 2b 31 29 3b 0a 20 20 nCounter(+1);.
3d90: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b return SQLITE_OK
3da0: 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 ;.}.../*.** Atte
3db0: 6d 70 74 20 74 6f 20 6f 70 65 6e 20 61 20 6e 65 mpt to open a ne
3dc0: 77 20 66 69 6c 65 20 66 6f 72 20 65 78 63 6c 75 w file for exclu
3dd0: 73 69 76 65 20 61 63 63 65 73 73 20 62 79 20 74 sive access by t
3de0: 68 69 73 20 70 72 6f 63 65 73 73 2e 0a 2a 2a 20 his process..**
3df0: 54 68 65 20 66 69 6c 65 20 77 69 6c 6c 20 62 65 The file will be
3e00: 20 6f 70 65 6e 65 64 20 66 6f 72 20 62 6f 74 68 opened for both
3e10: 20 72 65 61 64 69 6e 67 20 61 6e 64 20 77 72 69 reading and wri
3e20: 74 69 6e 67 2e 20 20 54 6f 20 61 76 6f 69 64 0a ting. To avoid.
3e30: 2a 2a 20 61 20 70 6f 74 65 6e 74 69 61 6c 20 73 ** a potential s
3e40: 65 63 75 72 69 74 79 20 70 72 6f 62 6c 65 6d 2c ecurity problem,
3e50: 20 77 65 20 64 6f 20 6e 6f 74 20 61 6c 6c 6f 77 we do not allow
3e60: 20 74 68 65 20 66 69 6c 65 20 74 6f 20 68 61 76 the file to hav
3e70: 65 0a 2a 2a 20 70 72 65 76 69 6f 75 73 6c 79 20 e.** previously
3e80: 65 78 69 73 74 65 64 2e 20 20 4e 6f 72 20 64 6f existed. Nor do
3e90: 20 77 65 20 61 6c 6c 6f 77 20 74 68 65 20 66 69 we allow the fi
3ea0: 6c 65 20 74 6f 20 62 65 20 61 20 73 79 6d 62 6f le to be a symbo
3eb0: 6c 69 63 0a 2a 2a 20 6c 69 6e 6b 2e 0a 2a 2a 0a lic.** link..**.
3ec0: 2a 2a 20 49 66 20 64 65 6c 46 6c 61 67 20 69 73 ** If delFlag is
3ed0: 20 74 72 75 65 2c 20 74 68 65 6e 20 6d 61 6b 65 true, then make
3ee0: 20 61 72 72 61 6e 67 65 6d 65 6e 74 73 20 74 6f arrangements to
3ef0: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 64 automatically d
3f00: 65 6c 65 74 65 0a 2a 2a 20 74 68 65 20 66 69 6c elete.** the fil
3f10: 65 20 77 68 65 6e 20 69 74 20 69 73 20 63 6c 6f e when it is clo
3f20: 73 65 64 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 20 73 75 sed..**.** On su
3f30: 63 63 65 73 73 2c 20 77 72 69 74 65 20 74 68 65 ccess, write the
3f40: 20 66 69 6c 65 20 68 61 6e 64 6c 65 20 69 6e 74 file handle int
3f50: 6f 20 2a 69 64 20 61 6e 64 20 72 65 74 75 72 6e o *id and return
3f60: 20 53 51 4c 49 54 45 5f 4f 4b 2e 0a 2a 2a 0a 2a SQLITE_OK..**.*
3f70: 2a 20 4f 6e 20 66 61 69 6c 75 72 65 2c 20 72 65 * On failure, re
3f80: 74 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e 54 turn SQLITE_CANT
3f90: 4f 50 45 4e 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c OPEN..*/.int sql
3fa0: 69 74 65 33 4f 73 4f 70 65 6e 45 78 63 6c 75 73 ite3OsOpenExclus
3fb0: 69 76 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a ive(const char *
3fc0: 7a 46 69 6c 65 6e 61 6d 65 2c 20 4f 73 46 69 6c zFilename, OsFil
3fd0: 65 20 2a 69 64 2c 20 69 6e 74 20 64 65 6c 46 6c e *id, int delFl
3fe0: 61 67 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 ag){. int rc;.
3ff0: 20 61 73 73 65 72 74 28 20 21 69 64 2d 3e 69 73 assert( !id->is
4000: 4f 70 65 6e 20 29 3b 0a 20 20 69 66 28 20 61 63 Open );. if( ac
4010: 63 65 73 73 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 cess(zFilename,
4020: 30 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65 74 0)==0 ){. ret
4030: 75 72 6e 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f urn SQLITE_CANTO
4040: 50 45 4e 3b 0a 20 20 7d 0a 20 20 69 64 2d 3e 64 PEN;. }. id->d
4050: 69 72 66 64 20 3d 20 2d 31 3b 0a 20 20 69 64 2d irfd = -1;. id-
4060: 3e 68 20 3d 20 6f 70 65 6e 28 7a 46 69 6c 65 6e >h = open(zFilen
4070: 61 6d 65 2c 0a 20 20 20 20 20 20 20 20 20 20 20 ame,.
4080: 20 20 20 20 20 4f 5f 52 44 57 52 7c 4f 5f 43 52 O_RDWR|O_CR
4090: 45 41 54 7c 4f 5f 45 58 43 4c 7c 4f 5f 4e 4f 46 EAT|O_EXCL|O_NOF
40a0: 4f 4c 4c 4f 57 7c 4f 5f 4c 41 52 47 45 46 49 4c OLLOW|O_LARGEFIL
40b0: 45 7c 4f 5f 42 49 4e 41 52 59 2c 20 30 36 30 30 E|O_BINARY, 0600
40c0: 29 3b 0a 20 20 69 66 28 20 69 64 2d 3e 68 3c 30 );. if( id->h<0
40d0: 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 ){. return S
40e0: 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 0a QLITE_CANTOPEN;.
40f0: 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 4f 73 45 }. sqlite3OsE
4100: 6e 74 65 72 4d 75 74 65 78 28 29 3b 0a 20 20 72 nterMutex();. r
4110: 63 20 3d 20 66 69 6e 64 4c 6f 63 6b 49 6e 66 6f c = findLockInfo
4120: 28 69 64 2d 3e 68 2c 20 26 69 64 2d 3e 70 4c 6f (id->h, &id->pLo
4130: 63 6b 2c 20 26 69 64 2d 3e 70 4f 70 65 6e 29 3b ck, &id->pOpen);
4140: 0a 20 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 . sqlite3OsLeav
4150: 65 4d 75 74 65 78 28 29 3b 0a 20 20 69 66 28 20 eMutex();. if(
4160: 72 63 20 29 7b 0a 20 20 20 20 63 6c 6f 73 65 28 rc ){. close(
4170: 69 64 2d 3e 68 29 3b 0a 20 20 20 20 75 6e 6c 69 id->h);. unli
4180: 6e 6b 28 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 nk(zFilename);.
4190: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 return SQLITE
41a0: 5f 4e 4f 4d 45 4d 3b 0a 20 20 7d 0a 20 20 69 64 _NOMEM;. }. id
41b0: 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 30 3b 0a ->locktype = 0;.
41c0: 20 20 69 64 2d 3e 69 73 4f 70 65 6e 20 3d 20 31 id->isOpen = 1
41d0: 3b 0a 20 20 69 66 28 20 64 65 6c 46 6c 61 67 20 ;. if( delFlag
41e0: 29 7b 0a 20 20 20 20 75 6e 6c 69 6e 6b 28 7a 46 ){. unlink(zF
41f0: 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 7d 0a 20 20 ilename);. }.
4200: 54 52 41 43 45 33 28 22 4f 50 45 4e 2d 45 58 20 TRACE3("OPEN-EX
4210: 25 2d 33 64 20 25 73 5c 6e 22 2c 20 69 64 2d 3e %-3d %s\n", id->
4220: 68 2c 20 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 h, zFilename);.
4230: 20 4f 70 65 6e 43 6f 75 6e 74 65 72 28 2b 31 29 OpenCounter(+1)
4240: 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 ;. return SQLIT
4250: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 E_OK;.}../*.** A
4260: 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20 61 ttempt to open a
4270: 20 6e 65 77 20 66 69 6c 65 20 66 6f 72 20 72 65 new file for re
4280: 61 64 2d 6f 6e 6c 79 20 61 63 63 65 73 73 2e 0a ad-only access..
4290: 2a 2a 0a 2a 2a 20 4f 6e 20 73 75 63 63 65 73 73 **.** On success
42a0: 2c 20 77 72 69 74 65 20 74 68 65 20 66 69 6c 65 , write the file
42b0: 20 68 61 6e 64 6c 65 20 69 6e 74 6f 20 2a 69 64 handle into *id
42c0: 20 61 6e 64 20 72 65 74 75 72 6e 20 53 51 4c 49 and return SQLI
42d0: 54 45 5f 4f 4b 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 20 TE_OK..**.** On
42e0: 66 61 69 6c 75 72 65 2c 20 72 65 74 75 72 6e 20 failure, return
42f0: 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 2e SQLITE_CANTOPEN.
4300: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f .*/.int sqlite3O
4310: 73 4f 70 65 6e 52 65 61 64 4f 6e 6c 79 28 63 6f sOpenReadOnly(co
4320: 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e nst char *zFilen
4330: 61 6d 65 2c 20 4f 73 46 69 6c 65 20 2a 69 64 29 ame, OsFile *id)
4340: 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20 61 73 {. int rc;. as
4350: 73 65 72 74 28 20 21 69 64 2d 3e 69 73 4f 70 65 sert( !id->isOpe
4360: 6e 20 29 3b 0a 20 20 69 64 2d 3e 64 69 72 66 64 n );. id->dirfd
4370: 20 3d 20 2d 31 3b 0a 20 20 69 64 2d 3e 68 20 3d = -1;. id->h =
4380: 20 6f 70 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 2c open(zFilename,
4390: 20 4f 5f 52 44 4f 4e 4c 59 7c 4f 5f 4c 41 52 47 O_RDONLY|O_LARG
43a0: 45 46 49 4c 45 7c 4f 5f 42 49 4e 41 52 59 29 3b EFILE|O_BINARY);
43b0: 0a 20 20 69 66 28 20 69 64 2d 3e 68 3c 30 20 29 . if( id->h<0 )
43c0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c {. return SQL
43d0: 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 0a 20 20 ITE_CANTOPEN;.
43e0: 7d 0a 20 20 73 71 6c 69 74 65 33 4f 73 45 6e 74 }. sqlite3OsEnt
43f0: 65 72 4d 75 74 65 78 28 29 3b 0a 20 20 72 63 20 erMutex();. rc
4400: 3d 20 66 69 6e 64 4c 6f 63 6b 49 6e 66 6f 28 69 = findLockInfo(i
4410: 64 2d 3e 68 2c 20 26 69 64 2d 3e 70 4c 6f 63 6b d->h, &id->pLock
4420: 2c 20 26 69 64 2d 3e 70 4f 70 65 6e 29 3b 0a 20 , &id->pOpen);.
4430: 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 4d sqlite3OsLeaveM
4440: 75 74 65 78 28 29 3b 0a 20 20 69 66 28 20 72 63 utex();. if( rc
4450: 20 29 7b 0a 20 20 20 20 63 6c 6f 73 65 28 69 64 ){. close(id
4460: 2d 3e 68 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ->h);. return
4470: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 SQLITE_NOMEM;.
4480: 20 7d 0a 20 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 }. id->locktyp
4490: 65 20 3d 20 30 3b 0a 20 20 69 64 2d 3e 69 73 4f e = 0;. id->isO
44a0: 70 65 6e 20 3d 20 31 3b 0a 20 20 54 52 41 43 45 pen = 1;. TRACE
44b0: 33 28 22 4f 50 45 4e 2d 52 4f 20 25 2d 33 64 20 3("OPEN-RO %-3d
44c0: 25 73 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 7a 46 %s\n", id->h, zF
44d0: 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 4f 70 65 6e ilename);. Open
44e0: 43 6f 75 6e 74 65 72 28 2b 31 29 3b 0a 20 20 72 Counter(+1);. r
44f0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b eturn SQLITE_OK;
4500: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41 74 74 65 6d 70 .}../*.** Attemp
4510: 74 20 74 6f 20 6f 70 65 6e 20 61 20 66 69 6c 65 t to open a file
4520: 20 64 65 73 63 72 69 70 74 6f 72 20 66 6f 72 20 descriptor for
4530: 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 74 68 the directory th
4540: 61 74 20 63 6f 6e 74 61 69 6e 73 20 61 0a 2a 2a at contains a.**
4550: 20 66 69 6c 65 2e 20 20 54 68 69 73 20 66 69 6c file. This fil
4560: 65 20 64 65 73 63 72 69 70 74 6f 72 20 63 61 6e e descriptor can
4570: 20 62 65 20 75 73 65 64 20 74 6f 20 66 73 79 6e be used to fsyn
4580: 63 28 29 20 74 68 65 20 64 69 72 65 63 74 6f 72 c() the director
4590: 79 0a 2a 2a 20 69 6e 20 6f 72 64 65 72 20 74 6f y.** in order to
45a0: 20 6d 61 6b 65 20 73 75 72 65 20 74 68 65 20 63 make sure the c
45b0: 72 65 61 74 69 6f 6e 20 6f 66 20 61 20 6e 65 77 reation of a new
45c0: 20 66 69 6c 65 20 69 73 20 61 63 74 75 61 6c 6c file is actuall
45d0: 79 20 77 72 69 74 74 65 6e 0a 2a 2a 20 74 6f 20 y written.** to
45e0: 64 69 73 6b 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 disk..**.** This
45f0: 20 72 6f 75 74 69 6e 65 20 69 73 20 6f 6e 6c 79 routine is only
4600: 20 6d 65 61 6e 69 6e 67 66 75 6c 20 66 6f 72 20 meaningful for
4610: 55 6e 69 78 2e 20 20 49 74 20 69 73 20 61 20 6e Unix. It is a n
4620: 6f 2d 6f 70 20 75 6e 64 65 72 0a 2a 2a 20 77 69 o-op under.** wi
4630: 6e 64 6f 77 73 20 73 69 6e 63 65 20 77 69 6e 64 ndows since wind
4640: 6f 77 73 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 ows does not sup
4650: 70 6f 72 74 20 68 61 72 64 20 6c 69 6e 6b 73 2e port hard links.
4660: 0a 2a 2a 0a 2a 2a 20 4f 6e 20 73 75 63 63 65 73 .**.** On succes
4670: 73 2c 20 61 20 68 61 6e 64 6c 65 20 66 6f 72 20 s, a handle for
4680: 61 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 a previously ope
4690: 6e 20 66 69 6c 65 20 69 73 20 61 74 20 2a 69 64 n file is at *id
46a0: 20 69 73 0a 2a 2a 20 75 70 64 61 74 65 64 20 77 is.** updated w
46b0: 69 74 68 20 74 68 65 20 6e 65 77 20 64 69 72 65 ith the new dire
46c0: 63 74 6f 72 79 20 66 69 6c 65 20 64 65 73 63 72 ctory file descr
46d0: 69 70 74 6f 72 20 61 6e 64 20 53 51 4c 49 54 45 iptor and SQLITE
46e0: 5f 4f 4b 20 69 73 0a 2a 2a 20 72 65 74 75 72 6e _OK is.** return
46f0: 65 64 2e 0a 2a 2a 0a 2a 2a 20 4f 6e 20 66 61 69 ed..**.** On fai
4700: 6c 75 72 65 2c 20 74 68 65 20 66 75 6e 63 74 69 lure, the functi
4710: 6f 6e 20 72 65 74 75 72 6e 73 20 53 51 4c 49 54 on returns SQLIT
4720: 45 5f 43 41 4e 54 4f 50 45 4e 20 61 6e 64 20 6c E_CANTOPEN and l
4730: 65 61 76 65 73 0a 2a 2a 20 2a 69 64 20 75 6e 63 eaves.** *id unc
4740: 68 61 6e 67 65 64 2e 0a 2a 2f 0a 69 6e 74 20 73 hanged..*/.int s
4750: 71 6c 69 74 65 33 4f 73 4f 70 65 6e 44 69 72 65 qlite3OsOpenDire
4760: 63 74 6f 72 79 28 0a 20 20 63 6f 6e 73 74 20 63 ctory(. const c
4770: 68 61 72 20 2a 7a 44 69 72 6e 61 6d 65 2c 0a 20 har *zDirname,.
4780: 20 4f 73 46 69 6c 65 20 2a 69 64 0a 29 7b 0a 20 OsFile *id.){.
4790: 20 69 66 28 20 21 69 64 2d 3e 69 73 4f 70 65 6e if( !id->isOpen
47a0: 20 29 7b 0a 20 20 20 20 2f 2a 20 44 6f 20 6e 6f ){. /* Do no
47b0: 74 20 6f 70 65 6e 20 74 68 65 20 64 69 72 65 63 t open the direc
47c0: 74 6f 72 79 20 69 66 20 74 68 65 20 63 6f 72 72 tory if the corr
47d0: 65 73 70 6f 6e 64 69 6e 67 20 66 69 6c 65 20 69 esponding file i
47e0: 73 20 6e 6f 74 20 61 6c 72 65 61 64 79 0a 20 20 s not already.
47f0: 20 20 2a 2a 20 6f 70 65 6e 2e 20 2a 2f 0a 20 20 ** open. */.
4800: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
4810: 43 41 4e 54 4f 50 45 4e 3b 0a 20 20 7d 0a 20 20 CANTOPEN;. }.
4820: 61 73 73 65 72 74 28 20 69 64 2d 3e 64 69 72 66 assert( id->dirf
4830: 64 3c 30 20 29 3b 0a 20 20 69 64 2d 3e 64 69 72 d<0 );. id->dir
4840: 66 64 20 3d 20 6f 70 65 6e 28 7a 44 69 72 6e 61 fd = open(zDirna
4850: 6d 65 2c 20 4f 5f 52 44 4f 4e 4c 59 7c 4f 5f 42 me, O_RDONLY|O_B
4860: 49 4e 41 52 59 2c 20 30 36 34 34 29 3b 0a 20 20 INARY, 0644);.
4870: 69 66 28 20 69 64 2d 3e 64 69 72 66 64 3c 30 20 if( id->dirfd<0
4880: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 ){. return SQ
4890: 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 20 0a LITE_CANTOPEN; .
48a0: 20 20 7d 0a 20 20 54 52 41 43 45 33 28 22 4f 50 }. TRACE3("OP
48b0: 45 4e 44 49 52 20 25 2d 33 64 20 25 73 5c 6e 22 ENDIR %-3d %s\n"
48c0: 2c 20 69 64 2d 3e 64 69 72 66 64 2c 20 7a 44 69 , id->dirfd, zDi
48d0: 72 6e 61 6d 65 29 3b 0a 20 20 72 65 74 75 72 6e rname);. return
48e0: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f SQLITE_OK;.}../
48f0: 2a 0a 2a 2a 20 49 66 20 74 68 65 20 66 6f 6c 6c *.** If the foll
4900: 6f 77 69 6e 67 20 67 6c 6f 62 61 6c 20 76 61 72 owing global var
4910: 69 61 62 6c 65 20 70 6f 69 6e 74 73 20 74 6f 20 iable points to
4920: 61 20 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 a string which i
4930: 73 20 74 68 65 0a 2a 2a 20 6e 61 6d 65 20 6f 66 s the.** name of
4940: 20 61 20 64 69 72 65 63 74 6f 72 79 2c 20 74 68 a directory, th
4950: 65 6e 20 74 68 61 74 20 64 69 72 65 63 74 6f 72 en that director
4960: 79 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 74 y will be used t
4970: 6f 20 73 74 6f 72 65 0a 2a 2a 20 74 65 6d 70 6f o store.** tempo
4980: 72 61 72 79 20 66 69 6c 65 73 2e 0a 2a 2f 0a 63 rary files..*/.c
4990: 68 61 72 20 2a 73 71 6c 69 74 65 33 5f 74 65 6d har *sqlite3_tem
49a0: 70 5f 64 69 72 65 63 74 6f 72 79 20 3d 20 30 3b p_directory = 0;
49b0: 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61 74 65 20 61 ../*.** Create a
49c0: 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 temporary file
49d0: 6e 61 6d 65 20 69 6e 20 7a 42 75 66 2e 20 20 7a name in zBuf. z
49e0: 42 75 66 20 6d 75 73 74 20 62 65 20 62 69 67 20 Buf must be big
49f0: 65 6e 6f 75 67 68 20 74 6f 0a 2a 2a 20 68 6f 6c enough to.** hol
4a00: 64 20 61 74 20 6c 65 61 73 74 20 53 51 4c 49 54 d at least SQLIT
4a10: 45 5f 54 45 4d 50 4e 41 4d 45 5f 53 49 5a 45 20 E_TEMPNAME_SIZE
4a20: 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2f 0a 69 characters..*/.i
4a30: 6e 74 20 73 71 6c 69 74 65 33 4f 73 54 65 6d 70 nt sqlite3OsTemp
4a40: 46 69 6c 65 4e 61 6d 65 28 63 68 61 72 20 2a 7a FileName(char *z
4a50: 42 75 66 29 7b 0a 20 20 73 74 61 74 69 63 20 63 Buf){. static c
4a60: 6f 6e 73 74 20 63 68 61 72 20 2a 61 7a 44 69 72 onst char *azDir
4a70: 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 20 30 2c 0a s[] = {. 0,.
4a80: 20 20 20 20 20 22 2f 76 61 72 2f 74 6d 70 22 2c "/var/tmp",
4a90: 0a 20 20 20 20 20 22 2f 75 73 72 2f 74 6d 70 22 . "/usr/tmp"
4aa0: 2c 0a 20 20 20 20 20 22 2f 74 6d 70 22 2c 0a 20 ,. "/tmp",.
4ab0: 20 20 20 20 22 2e 22 2c 0a 20 20 7d 3b 0a 20 20 ".",. };.
4ac0: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 static const uns
4ad0: 69 67 6e 65 64 20 63 68 61 72 20 7a 43 68 61 72 igned char zChar
4ae0: 73 5b 5d 20 3d 0a 20 20 20 20 22 61 62 63 64 65 s[] =. "abcde
4af0: 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 fghijklmnopqrstu
4b00: 76 77 78 79 7a 22 0a 20 20 20 20 22 41 42 43 44 vwxyz". "ABCD
4b10: 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 EFGHIJKLMNOPQRST
4b20: 55 56 57 58 59 5a 22 0a 20 20 20 20 22 30 31 32 UVWXYZ". "012
4b30: 33 34 35 36 37 38 39 22 3b 0a 20 20 69 6e 74 20 3456789";. int
4b40: 69 2c 20 6a 3b 0a 20 20 73 74 72 75 63 74 20 73 i, j;. struct s
4b50: 74 61 74 20 62 75 66 3b 0a 20 20 63 6f 6e 73 74 tat buf;. const
4b60: 20 63 68 61 72 20 2a 7a 44 69 72 20 3d 20 22 2e char *zDir = ".
4b70: 22 3b 0a 20 20 61 7a 44 69 72 73 5b 30 5d 20 3d ";. azDirs[0] =
4b80: 20 73 71 6c 69 74 65 33 5f 74 65 6d 70 5f 64 69 sqlite3_temp_di
4b90: 72 65 63 74 6f 72 79 3b 0a 20 20 66 6f 72 28 69 rectory;. for(i
4ba0: 3d 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 7a 44 =0; i<sizeof(azD
4bb0: 69 72 73 29 2f 73 69 7a 65 6f 66 28 61 7a 44 69 irs)/sizeof(azDi
4bc0: 72 73 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20 rs[0]); i++){.
4bd0: 20 20 69 66 28 20 61 7a 44 69 72 73 5b 69 5d 3d if( azDirs[i]=
4be0: 3d 30 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 =0 ) continue;.
4bf0: 20 20 20 69 66 28 20 73 74 61 74 28 61 7a 44 69 if( stat(azDi
4c00: 72 73 5b 69 5d 2c 20 26 62 75 66 29 20 29 20 63 rs[i], &buf) ) c
4c10: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 69 66 28 ontinue;. if(
4c20: 20 21 53 5f 49 53 44 49 52 28 62 75 66 2e 73 74 !S_ISDIR(buf.st
4c30: 5f 6d 6f 64 65 29 20 29 20 63 6f 6e 74 69 6e 75 _mode) ) continu
4c40: 65 3b 0a 20 20 20 20 69 66 28 20 61 63 63 65 73 e;. if( acces
4c50: 73 28 61 7a 44 69 72 73 5b 69 5d 2c 20 30 37 29 s(azDirs[i], 07)
4c60: 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 ) continue;.
4c70: 20 7a 44 69 72 20 3d 20 61 7a 44 69 72 73 5b 69 zDir = azDirs[i
4c80: 5d 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 ];. break;.
4c90: 7d 0a 20 20 64 6f 7b 0a 20 20 20 20 73 70 72 69 }. do{. spri
4ca0: 6e 74 66 28 7a 42 75 66 2c 20 22 25 73 2f 22 54 ntf(zBuf, "%s/"T
4cb0: 45 4d 50 5f 46 49 4c 45 5f 50 52 45 46 49 58 2c EMP_FILE_PREFIX,
4cc0: 20 7a 44 69 72 29 3b 0a 20 20 20 20 6a 20 3d 20 zDir);. j =
4cd0: 73 74 72 6c 65 6e 28 7a 42 75 66 29 3b 0a 20 20 strlen(zBuf);.
4ce0: 20 20 73 71 6c 69 74 65 33 52 61 6e 64 6f 6d 6e sqlite3Randomn
4cf0: 65 73 73 28 31 35 2c 20 26 7a 42 75 66 5b 6a 5d ess(15, &zBuf[j]
4d00: 29 3b 0a 20 20 20 20 66 6f 72 28 69 3d 30 3b 20 );. for(i=0;
4d10: 69 3c 31 35 3b 20 69 2b 2b 2c 20 6a 2b 2b 29 7b i<15; i++, j++){
4d20: 0a 20 20 20 20 20 20 7a 42 75 66 5b 6a 5d 20 3d . zBuf[j] =
4d30: 20 28 63 68 61 72 29 7a 43 68 61 72 73 5b 20 28 (char)zChars[ (
4d40: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 7a (unsigned char)z
4d50: 42 75 66 5b 6a 5d 29 25 28 73 69 7a 65 6f 66 28 Buf[j])%(sizeof(
4d60: 7a 43 68 61 72 73 29 2d 31 29 20 5d 3b 0a 20 20 zChars)-1) ];.
4d70: 20 20 7d 0a 20 20 20 20 7a 42 75 66 5b 6a 5d 20 }. zBuf[j]
4d80: 3d 20 30 3b 0a 20 20 7d 77 68 69 6c 65 28 20 61 = 0;. }while( a
4d90: 63 63 65 73 73 28 7a 42 75 66 2c 30 29 3d 3d 30 ccess(zBuf,0)==0
4da0: 20 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c );. return SQL
4db0: 49 54 45 5f 4f 4b 3b 20 0a 7d 0a 0a 23 69 66 6e ITE_OK; .}..#ifn
4dc0: 64 65 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f def SQLITE_OMIT_
4dd0: 50 41 47 45 52 5f 50 52 41 47 4d 41 53 0a 2f 2a PAGER_PRAGMAS./*
4de0: 0a 2a 2a 20 43 68 65 63 6b 20 74 68 61 74 20 61 .** Check that a
4df0: 20 67 69 76 65 6e 20 70 61 74 68 6e 61 6d 65 20 given pathname
4e00: 69 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 61 is a directory a
4e10: 6e 64 20 69 73 20 77 72 69 74 61 62 6c 65 20 0a nd is writable .
4e20: 2a 2a 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 **.*/.int sqlite
4e30: 33 4f 73 49 73 44 69 72 57 72 69 74 61 62 6c 65 3OsIsDirWritable
4e40: 28 63 68 61 72 20 2a 7a 42 75 66 29 7b 0a 20 20 (char *zBuf){.
4e50: 73 74 72 75 63 74 20 73 74 61 74 20 62 75 66 3b struct stat buf;
4e60: 0a 20 20 69 66 28 20 7a 42 75 66 3d 3d 30 20 29 . if( zBuf==0 )
4e70: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 return 0;. if(
4e80: 20 7a 42 75 66 5b 30 5d 3d 3d 30 20 29 20 72 65 zBuf[0]==0 ) re
4e90: 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 20 73 74 turn 0;. if( st
4ea0: 61 74 28 7a 42 75 66 2c 20 26 62 75 66 29 20 29 at(zBuf, &buf) )
4eb0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 69 66 28 return 0;. if(
4ec0: 20 21 53 5f 49 53 44 49 52 28 62 75 66 2e 73 74 !S_ISDIR(buf.st
4ed0: 5f 6d 6f 64 65 29 20 29 20 72 65 74 75 72 6e 20 _mode) ) return
4ee0: 30 3b 0a 20 20 69 66 28 20 61 63 63 65 73 73 28 0;. if( access(
4ef0: 7a 42 75 66 2c 20 30 37 29 20 29 20 72 65 74 75 zBuf, 07) ) retu
4f00: 72 6e 20 30 3b 0a 20 20 72 65 74 75 72 6e 20 31 rn 0;. return 1
4f10: 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 ;.}.#endif /* SQ
4f20: 4c 49 54 45 5f 4f 4d 49 54 5f 50 41 47 45 52 5f LITE_OMIT_PAGER_
4f30: 50 52 41 47 4d 41 53 20 2a 2f 0a 0a 2f 2a 0a 2a PRAGMAS */../*.*
4f40: 2a 20 52 65 61 64 20 64 61 74 61 20 66 72 6f 6d * Read data from
4f50: 20 61 20 66 69 6c 65 20 69 6e 74 6f 20 61 20 62 a file into a b
4f60: 75 66 66 65 72 2e 20 20 52 65 74 75 72 6e 20 53 uffer. Return S
4f70: 51 4c 49 54 45 5f 4f 4b 20 69 66 20 61 6c 6c 0a QLITE_OK if all.
4f80: 2a 2a 20 62 79 74 65 73 20 77 65 72 65 20 72 65 ** bytes were re
4f90: 61 64 20 73 75 63 63 65 73 73 66 75 6c 6c 79 20 ad successfully
4fa0: 61 6e 64 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 and SQLITE_IOERR
4fb0: 20 69 66 20 61 6e 79 74 68 69 6e 67 20 67 6f 65 if anything goe
4fc0: 73 0a 2a 2a 20 77 72 6f 6e 67 2e 0a 2a 2f 0a 69 s.** wrong..*/.i
4fd0: 6e 74 20 73 71 6c 69 74 65 33 4f 73 52 65 61 64 nt sqlite3OsRead
4fe0: 28 4f 73 46 69 6c 65 20 2a 69 64 2c 20 76 6f 69 (OsFile *id, voi
4ff0: 64 20 2a 70 42 75 66 2c 20 69 6e 74 20 61 6d 74 d *pBuf, int amt
5000: 29 7b 0a 20 20 69 6e 74 20 67 6f 74 3b 0a 20 20 ){. int got;.
5010: 61 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f 70 assert( id->isOp
5020: 65 6e 20 29 3b 0a 20 20 53 69 6d 75 6c 61 74 65 en );. Simulate
5030: 49 4f 45 72 72 6f 72 28 53 51 4c 49 54 45 5f 49 IOError(SQLITE_I
5040: 4f 45 52 52 29 3b 0a 20 20 54 49 4d 45 52 5f 53 OERR);. TIMER_S
5050: 54 41 52 54 3b 0a 20 20 67 6f 74 20 3d 20 72 65 TART;. got = re
5060: 61 64 28 69 64 2d 3e 68 2c 20 70 42 75 66 2c 20 ad(id->h, pBuf,
5070: 61 6d 74 29 3b 0a 20 20 54 49 4d 45 52 5f 45 4e amt);. TIMER_EN
5080: 44 3b 0a 20 20 54 52 41 43 45 34 28 22 52 45 41 D;. TRACE4("REA
5090: 44 20 20 20 20 25 2d 33 64 20 25 37 64 20 25 64 D %-3d %7d %d
50a0: 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 6c 61 73 74 \n", id->h, last
50b0: 5f 70 61 67 65 2c 20 54 49 4d 45 52 5f 45 4c 41 _page, TIMER_ELA
50c0: 50 53 45 44 29 3b 0a 20 20 53 45 45 4b 28 30 29 PSED);. SEEK(0)
50d0: 3b 0a 20 20 2f 2a 20 69 66 28 20 67 6f 74 3c 30 ;. /* if( got<0
50e0: 20 29 20 67 6f 74 20 3d 20 30 3b 20 2a 2f 0a 20 ) got = 0; */.
50f0: 20 69 66 28 20 67 6f 74 3d 3d 61 6d 74 20 29 7b if( got==amt ){
5100: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 . return SQLI
5110: 54 45 5f 4f 4b 3b 0a 20 20 7d 65 6c 73 65 7b 0a TE_OK;. }else{.
5120: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 return SQLIT
5130: 45 5f 49 4f 45 52 52 3b 0a 20 20 7d 0a 7d 0a 0a E_IOERR;. }.}..
5140: 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 64 61 74 61 /*.** Write data
5150: 20 66 72 6f 6d 20 61 20 62 75 66 66 65 72 20 69 from a buffer i
5160: 6e 74 6f 20 61 20 66 69 6c 65 2e 20 20 52 65 74 nto a file. Ret
5170: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 20 6f 6e urn SQLITE_OK on
5180: 20 73 75 63 63 65 73 73 0a 2a 2a 20 6f 72 20 73 success.** or s
5190: 6f 6d 65 20 6f 74 68 65 72 20 65 72 72 6f 72 20 ome other error
51a0: 63 6f 64 65 20 6f 6e 20 66 61 69 6c 75 72 65 2e code on failure.
51b0: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f .*/.int sqlite3O
51c0: 73 57 72 69 74 65 28 4f 73 46 69 6c 65 20 2a 69 sWrite(OsFile *i
51d0: 64 2c 20 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 d, const void *p
51e0: 42 75 66 2c 20 69 6e 74 20 61 6d 74 29 7b 0a 20 Buf, int amt){.
51f0: 20 69 6e 74 20 77 72 6f 74 65 20 3d 20 30 3b 0a int wrote = 0;.
5200: 20 20 61 73 73 65 72 74 28 20 69 64 2d 3e 69 73 assert( id->is
5210: 4f 70 65 6e 20 29 3b 0a 20 20 61 73 73 65 72 74 Open );. assert
5220: 28 20 61 6d 74 3e 30 20 29 3b 0a 20 20 53 69 6d ( amt>0 );. Sim
5230: 75 6c 61 74 65 49 4f 45 72 72 6f 72 28 53 51 4c ulateIOError(SQL
5240: 49 54 45 5f 49 4f 45 52 52 29 3b 0a 20 20 53 69 ITE_IOERR);. Si
5250: 6d 75 6c 61 74 65 44 69 73 6b 66 75 6c 6c 45 72 mulateDiskfullEr
5260: 72 6f 72 3b 0a 20 20 54 49 4d 45 52 5f 53 54 41 ror;. TIMER_STA
5270: 52 54 3b 0a 20 20 77 68 69 6c 65 28 20 61 6d 74 RT;. while( amt
5280: 3e 30 20 26 26 20 28 77 72 6f 74 65 20 3d 20 77 >0 && (wrote = w
5290: 72 69 74 65 28 69 64 2d 3e 68 2c 20 70 42 75 66 rite(id->h, pBuf
52a0: 2c 20 61 6d 74 29 29 3e 30 20 29 7b 0a 20 20 20 , amt))>0 ){.
52b0: 20 61 6d 74 20 2d 3d 20 77 72 6f 74 65 3b 0a 20 amt -= wrote;.
52c0: 20 20 20 70 42 75 66 20 3d 20 26 28 28 63 68 61 pBuf = &((cha
52d0: 72 2a 29 70 42 75 66 29 5b 77 72 6f 74 65 5d 3b r*)pBuf)[wrote];
52e0: 0a 20 20 7d 0a 20 20 54 49 4d 45 52 5f 45 4e 44 . }. TIMER_END
52f0: 3b 0a 20 20 54 52 41 43 45 34 28 22 57 52 49 54 ;. TRACE4("WRIT
5300: 45 20 20 20 25 2d 33 64 20 25 37 64 20 25 64 5c E %-3d %7d %d\
5310: 6e 22 2c 20 69 64 2d 3e 68 2c 20 6c 61 73 74 5f n", id->h, last_
5320: 70 61 67 65 2c 20 54 49 4d 45 52 5f 45 4c 41 50 page, TIMER_ELAP
5330: 53 45 44 29 3b 0a 20 20 53 45 45 4b 28 30 29 3b SED);. SEEK(0);
5340: 0a 20 20 69 66 28 20 61 6d 74 3e 30 20 29 7b 0a . if( amt>0 ){.
5350: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 return SQLIT
5360: 45 5f 46 55 4c 4c 3b 0a 20 20 7d 0a 20 20 72 65 E_FULL;. }. re
5370: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a turn SQLITE_OK;.
5380: 7d 0a 0a 2f 2a 0a 2a 2a 20 4d 6f 76 65 20 74 68 }../*.** Move th
5390: 65 20 72 65 61 64 2f 77 72 69 74 65 20 70 6f 69 e read/write poi
53a0: 6e 74 65 72 20 69 6e 20 61 20 66 69 6c 65 2e 0a nter in a file..
53b0: 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 */.int sqlite3Os
53c0: 53 65 65 6b 28 4f 73 46 69 6c 65 20 2a 69 64 2c Seek(OsFile *id,
53d0: 20 69 36 34 20 6f 66 66 73 65 74 29 7b 0a 20 20 i64 offset){.
53e0: 61 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f 70 assert( id->isOp
53f0: 65 6e 20 29 3b 0a 20 20 53 45 45 4b 28 6f 66 66 en );. SEEK(off
5400: 73 65 74 2f 31 30 32 34 20 2b 20 31 29 3b 0a 20 set/1024 + 1);.
5410: 20 6c 73 65 65 6b 28 69 64 2d 3e 68 2c 20 6f 66 lseek(id->h, of
5420: 66 73 65 74 2c 20 53 45 45 4b 5f 53 45 54 29 3b fset, SEEK_SET);
5430: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 . return SQLITE
5440: 5f 4f 4b 3b 0a 7d 0a 0a 23 69 66 64 65 66 20 53 _OK;.}..#ifdef S
5450: 51 4c 49 54 45 5f 54 45 53 54 0a 2f 2a 0a 2a 2a QLITE_TEST./*.**
5460: 20 43 6f 75 6e 74 20 74 68 65 20 6e 75 6d 62 65 Count the numbe
5470: 72 20 6f 66 20 66 75 6c 6c 73 79 6e 63 73 20 61 r of fullsyncs a
5480: 6e 64 20 6e 6f 72 6d 61 6c 20 73 79 6e 63 73 2e nd normal syncs.
5490: 20 20 54 68 69 73 20 69 73 20 75 73 65 64 20 74 This is used t
54a0: 6f 20 74 65 73 74 0a 2a 2a 20 74 68 61 74 20 73 o test.** that s
54b0: 79 6e 63 73 20 61 6e 64 20 66 75 6c 6c 73 79 6e yncs and fullsyn
54c0: 63 73 20 61 72 65 20 6f 63 63 75 72 69 6e 67 20 cs are occuring
54d0: 61 74 20 74 68 65 20 72 69 67 68 74 20 74 69 6d at the right tim
54e0: 65 73 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 es..*/.int sqlit
54f0: 65 33 5f 73 79 6e 63 5f 63 6f 75 6e 74 20 3d 20 e3_sync_count =
5500: 30 3b 0a 69 6e 74 20 73 71 6c 69 74 65 33 5f 66 0;.int sqlite3_f
5510: 75 6c 6c 73 79 6e 63 5f 63 6f 75 6e 74 20 3d 20 ullsync_count =
5520: 30 3b 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 2a 0;.#endif.../*.*
5530: 2a 20 54 68 65 20 66 73 79 6e 63 28 29 20 73 79 * The fsync() sy
5540: 73 74 65 6d 20 63 61 6c 6c 20 64 6f 65 73 20 6e stem call does n
5550: 6f 74 20 77 6f 72 6b 20 61 73 20 61 64 76 65 72 ot work as adver
5560: 74 69 73 65 64 20 6f 6e 20 6d 61 6e 79 0a 2a 2a tised on many.**
5570: 20 75 6e 69 78 20 73 79 73 74 65 6d 73 2e 20 20 unix systems.
5580: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 72 The following pr
5590: 6f 63 65 64 75 72 65 20 69 73 20 61 6e 20 61 74 ocedure is an at
55a0: 74 65 6d 70 74 20 74 6f 20 6d 61 6b 65 0a 2a 2a tempt to make.**
55b0: 20 69 74 20 77 6f 72 6b 20 62 65 74 74 65 72 2e it work better.
55c0: 0a 2a 2a 0a 2a 2a 20 54 68 65 20 53 51 4c 49 54 .**.** The SQLIT
55d0: 45 5f 4e 4f 5f 53 59 4e 43 20 6d 61 63 72 6f 20 E_NO_SYNC macro
55e0: 64 69 73 61 62 6c 65 73 20 61 6c 6c 20 66 73 79 disables all fsy
55f0: 6e 63 28 29 73 2e 20 20 54 68 69 73 20 69 73 20 nc()s. This is
5600: 75 73 65 66 75 6c 0a 2a 2a 20 66 6f 72 20 74 65 useful.** for te
5610: 73 74 69 6e 67 20 77 68 65 6e 20 77 65 20 77 61 sting when we wa
5620: 6e 74 20 74 6f 20 72 75 6e 20 74 68 72 6f 75 67 nt to run throug
5630: 68 20 74 68 65 20 74 65 73 74 20 73 75 69 74 65 h the test suite
5640: 20 71 75 69 63 6b 6c 79 2e 0a 2a 2a 20 59 6f 75 quickly..** You
5650: 20 61 72 65 20 73 74 72 6f 6e 67 6c 79 20 61 64 are strongly ad
5660: 76 69 73 65 64 20 2a 6e 6f 74 2a 20 74 6f 20 64 vised *not* to d
5670: 65 70 6c 6f 79 20 77 69 74 68 20 53 51 4c 49 54 eploy with SQLIT
5680: 45 5f 4e 4f 5f 53 59 4e 43 0a 2a 2a 20 65 6e 61 E_NO_SYNC.** ena
5690: 62 6c 65 64 2c 20 68 6f 77 65 76 65 72 2c 20 73 bled, however, s
56a0: 69 6e 63 65 20 77 69 74 68 20 53 51 4c 49 54 45 ince with SQLITE
56b0: 5f 4e 4f 5f 53 59 4e 43 20 65 6e 61 62 6c 65 64 _NO_SYNC enabled
56c0: 2c 20 61 6e 20 4f 53 20 63 72 61 73 68 0a 2a 2a , an OS crash.**
56d0: 20 6f 72 20 70 6f 77 65 72 20 66 61 69 6c 75 72 or power failur
56e0: 65 20 77 69 6c 6c 20 6c 69 6b 65 6c 79 20 63 6f e will likely co
56f0: 72 72 75 70 74 20 74 68 65 20 64 61 74 61 62 61 rrupt the databa
5700: 73 65 20 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61 74 se file..*/.stat
5710: 69 63 20 69 6e 74 20 66 75 6c 6c 5f 66 73 79 6e ic int full_fsyn
5720: 63 28 69 6e 74 20 66 64 2c 20 69 6e 74 20 66 75 c(int fd, int fu
5730: 6c 6c 53 79 6e 63 29 7b 0a 20 20 69 6e 74 20 72 llSync){. int r
5740: 63 3b 0a 0a 20 20 2f 2a 20 52 65 63 6f 72 64 20 c;.. /* Record
5750: 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 69 the number of ti
5760: 6d 65 73 20 74 68 61 74 20 77 65 20 64 6f 20 61 mes that we do a
5770: 20 6e 6f 72 6d 61 6c 20 66 73 79 6e 63 28 29 20 normal fsync()
5780: 61 6e 64 20 0a 20 20 2a 2a 20 46 55 4c 4c 53 59 and . ** FULLSY
5790: 4e 43 2e 20 20 54 68 69 73 20 69 73 20 75 73 65 NC. This is use
57a0: 64 20 64 75 72 69 6e 67 20 74 65 73 74 69 6e 67 d during testing
57b0: 20 74 6f 20 76 65 72 69 66 79 20 74 68 61 74 20 to verify that
57c0: 74 68 69 73 20 70 72 6f 63 65 64 75 72 65 0a 20 this procedure.
57d0: 20 2a 2a 20 67 65 74 73 20 63 61 6c 6c 65 64 20 ** gets called
57e0: 77 69 74 68 20 74 68 65 20 63 6f 72 72 65 63 74 with the correct
57f0: 20 61 72 67 75 6d 65 6e 74 73 2e 0a 20 20 2a 2f arguments.. */
5800: 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 .#ifdef SQLITE_T
5810: 45 53 54 0a 20 20 69 66 28 20 66 75 6c 6c 53 79 EST. if( fullSy
5820: 6e 63 20 29 20 73 71 6c 69 74 65 33 5f 66 75 6c nc ) sqlite3_ful
5830: 6c 73 79 6e 63 5f 63 6f 75 6e 74 2b 2b 3b 0a 20 lsync_count++;.
5840: 20 73 71 6c 69 74 65 33 5f 73 79 6e 63 5f 63 6f sqlite3_sync_co
5850: 75 6e 74 2b 2b 3b 0a 23 65 6e 64 69 66 0a 0a 20 unt++;.#endif..
5860: 20 2f 2a 20 49 66 20 77 65 20 63 6f 6d 70 69 6c /* If we compil
5870: 65 64 20 77 69 74 68 20 74 68 65 20 53 51 4c 49 ed with the SQLI
5880: 54 45 5f 4e 4f 5f 53 59 4e 43 20 66 6c 61 67 2c TE_NO_SYNC flag,
5890: 20 74 68 65 6e 20 73 79 6e 63 69 6e 67 20 69 73 then syncing is
58a0: 20 61 0a 20 20 2a 2a 20 6e 6f 2d 6f 70 0a 20 20 a. ** no-op.
58b0: 2a 2f 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 */.#ifdef SQLITE
58c0: 5f 4e 4f 5f 53 59 4e 43 0a 20 20 72 63 20 3d 20 _NO_SYNC. rc =
58d0: 53 51 4c 49 54 45 5f 4f 4b 3b 0a 23 65 6c 73 65 SQLITE_OK;.#else
58e0: 0a 0a 23 69 66 64 65 66 20 46 5f 46 55 4c 4c 46 ..#ifdef F_FULLF
58f0: 53 59 4e 43 0a 20 20 69 66 28 20 66 75 6c 6c 53 SYNC. if( fullS
5900: 79 6e 63 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 ync ){. rc =
5910: 66 63 6e 74 6c 28 66 64 2c 20 46 5f 46 55 4c 4c fcntl(fd, F_FULL
5920: 53 59 4e 43 2c 20 30 29 3b 0a 20 20 7d 65 6c 73 SYNC, 0);. }els
5930: 65 7b 0a 20 20 20 20 72 63 20 3d 20 31 3b 0a 20 e{. rc = 1;.
5940: 20 7d 0a 20 20 2f 2a 20 49 66 20 74 68 65 20 46 }. /* If the F
5950: 55 4c 4c 53 59 4e 43 20 66 61 69 6c 65 64 2c 20 ULLSYNC failed,
5960: 74 72 79 20 74 6f 20 64 6f 20 61 20 6e 6f 72 6d try to do a norm
5970: 61 6c 20 66 73 79 6e 63 28 29 20 2a 2f 0a 20 20 al fsync() */.
5980: 69 66 28 20 72 63 20 29 20 72 63 20 3d 20 66 73 if( rc ) rc = fs
5990: 79 6e 63 28 66 64 29 3b 0a 0a 23 65 6c 73 65 0a ync(fd);..#else.
59a0: 20 20 72 63 20 3d 20 66 73 79 6e 63 28 66 64 29 rc = fsync(fd)
59b0: 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 69 ;.#endif /* defi
59c0: 6e 65 64 28 46 5f 46 55 4c 4c 53 59 4e 43 29 20 ned(F_FULLSYNC)
59d0: 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 */.#endif /* def
59e0: 69 6e 65 64 28 53 51 4c 49 54 45 5f 4e 4f 5f 53 ined(SQLITE_NO_S
59f0: 59 4e 43 29 20 2a 2f 0a 0a 20 20 72 65 74 75 72 YNC) */.. retur
5a00: 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 4d n rc;.}../*.** M
5a10: 61 6b 65 20 73 75 72 65 20 61 6c 6c 20 77 72 69 ake sure all wri
5a20: 74 65 73 20 74 6f 20 61 20 70 61 72 74 69 63 75 tes to a particu
5a30: 6c 61 72 20 66 69 6c 65 20 61 72 65 20 63 6f 6d lar file are com
5a40: 6d 69 74 74 65 64 20 74 6f 20 64 69 73 6b 2e 0a mitted to disk..
5a50: 2a 2a 0a 2a 2a 20 55 6e 64 65 72 20 55 6e 69 78 **.** Under Unix
5a60: 2c 20 61 6c 73 6f 20 6d 61 6b 65 20 73 75 72 65 , also make sure
5a70: 20 74 68 61 74 20 74 68 65 20 64 69 72 65 63 74 that the direct
5a80: 6f 72 79 20 65 6e 74 72 79 20 66 6f 72 20 74 68 ory entry for th
5a90: 65 20 66 69 6c 65 0a 2a 2a 20 68 61 73 20 62 65 e file.** has be
5aa0: 65 6e 20 63 72 65 61 74 65 64 20 62 79 20 66 73 en created by fs
5ab0: 79 6e 63 2d 69 6e 67 20 74 68 65 20 64 69 72 65 ync-ing the dire
5ac0: 63 74 6f 72 79 20 74 68 61 74 20 63 6f 6e 74 61 ctory that conta
5ad0: 69 6e 73 20 74 68 65 20 66 69 6c 65 2e 0a 2a 2a ins the file..**
5ae0: 20 49 66 20 77 65 20 64 6f 20 6e 6f 74 20 64 6f If we do not do
5af0: 20 74 68 69 73 20 61 6e 64 20 77 65 20 65 6e 63 this and we enc
5b00: 6f 75 6e 74 65 72 20 61 20 70 6f 77 65 72 20 66 ounter a power f
5b10: 61 69 6c 75 72 65 2c 20 74 68 65 20 64 69 72 65 ailure, the dire
5b20: 63 74 6f 72 79 0a 2a 2a 20 65 6e 74 72 79 20 66 ctory.** entry f
5b30: 6f 72 20 74 68 65 20 6a 6f 75 72 6e 61 6c 20 6d or the journal m
5b40: 69 67 68 74 20 6e 6f 74 20 65 78 69 73 74 20 61 ight not exist a
5b50: 66 74 65 72 20 77 65 20 72 65 62 6f 6f 74 2e 20 fter we reboot.
5b60: 20 54 68 65 20 6e 65 78 74 0a 2a 2a 20 53 51 4c The next.** SQL
5b70: 69 74 65 20 74 6f 20 61 63 63 65 73 73 20 74 68 ite to access th
5b80: 65 20 66 69 6c 65 20 77 69 6c 6c 20 6e 6f 74 20 e file will not
5b90: 6b 6e 6f 77 20 74 68 61 74 20 74 68 65 20 6a 6f know that the jo
5ba0: 75 72 6e 61 6c 20 65 78 69 73 74 73 20 28 62 65 urnal exists (be
5bb0: 63 61 75 73 65 0a 2a 2a 20 74 68 65 20 64 69 72 cause.** the dir
5bc0: 65 63 74 6f 72 79 20 65 6e 74 72 79 20 66 6f 72 ectory entry for
5bd0: 20 74 68 65 20 6a 6f 75 72 6e 61 6c 20 77 61 73 the journal was
5be0: 20 6e 65 76 65 72 20 63 72 65 61 74 65 64 29 20 never created)
5bf0: 61 6e 64 20 74 68 65 20 74 72 61 6e 73 61 63 74 and the transact
5c00: 69 6f 6e 0a 2a 2a 20 77 69 6c 6c 20 6e 6f 74 20 ion.** will not
5c10: 72 6f 6c 6c 20 62 61 63 6b 20 2d 20 70 6f 73 73 roll back - poss
5c20: 69 62 6c 79 20 6c 65 61 64 69 6e 67 20 74 6f 20 ibly leading to
5c30: 64 61 74 61 62 61 73 65 20 63 6f 72 72 75 70 74 database corrupt
5c40: 69 6f 6e 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 ion..*/.int sqli
5c50: 74 65 33 4f 73 53 79 6e 63 28 4f 73 46 69 6c 65 te3OsSync(OsFile
5c60: 20 2a 69 64 29 7b 0a 20 20 61 73 73 65 72 74 28 *id){. assert(
5c70: 20 69 64 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 id->isOpen );.
5c80: 20 53 69 6d 75 6c 61 74 65 49 4f 45 72 72 6f 72 SimulateIOError
5c90: 28 53 51 4c 49 54 45 5f 49 4f 45 52 52 29 3b 0a (SQLITE_IOERR);.
5ca0: 20 20 54 52 41 43 45 32 28 22 53 59 4e 43 20 20 TRACE2("SYNC
5cb0: 20 20 25 2d 33 64 5c 6e 22 2c 20 69 64 2d 3e 68 %-3d\n", id->h
5cc0: 29 3b 0a 20 20 69 66 28 20 66 75 6c 6c 5f 66 73 );. if( full_fs
5cd0: 79 6e 63 28 69 64 2d 3e 68 2c 20 69 64 2d 3e 66 ync(id->h, id->f
5ce0: 75 6c 6c 53 79 6e 63 29 20 29 7b 0a 20 20 20 20 ullSync) ){.
5cf0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f return SQLITE_IO
5d00: 45 52 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 69 ERR;. }. if( i
5d10: 64 2d 3e 64 69 72 66 64 3e 3d 30 20 29 7b 0a 20 d->dirfd>=0 ){.
5d20: 20 20 20 54 52 41 43 45 32 28 22 44 49 52 53 59 TRACE2("DIRSY
5d30: 4e 43 20 25 2d 33 64 5c 6e 22 2c 20 69 64 2d 3e NC %-3d\n", id->
5d40: 64 69 72 66 64 29 3b 0a 20 20 20 20 66 75 6c 6c dirfd);. full
5d50: 5f 66 73 79 6e 63 28 69 64 2d 3e 64 69 72 66 64 _fsync(id->dirfd
5d60: 2c 20 69 64 2d 3e 66 75 6c 6c 53 79 6e 63 29 3b , id->fullSync);
5d70: 0a 20 20 20 20 63 6c 6f 73 65 28 69 64 2d 3e 64 . close(id->d
5d80: 69 72 66 64 29 3b 20 20 2f 2a 20 4f 6e 6c 79 20 irfd); /* Only
5d90: 6e 65 65 64 20 74 6f 20 73 79 6e 63 20 6f 6e 63 need to sync onc
5da0: 65 2c 20 73 6f 20 63 6c 6f 73 65 20 74 68 65 20 e, so close the
5db0: 64 69 72 65 63 74 6f 72 79 20 2a 2f 0a 20 20 20 directory */.
5dc0: 20 69 64 2d 3e 64 69 72 66 64 20 3d 20 2d 31 3b id->dirfd = -1;
5dd0: 20 20 20 20 2f 2a 20 77 68 65 6e 20 77 65 20 61 /* when we a
5de0: 72 65 20 64 6f 6e 65 2e 20 2a 2f 0a 20 20 7d 0a re done. */. }.
5df0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
5e00: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 79 6e OK;.}../*.** Syn
5e10: 63 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 c the directory
5e20: 7a 44 69 72 6e 61 6d 65 2e 20 54 68 69 73 20 69 zDirname. This i
5e30: 73 20 61 20 6e 6f 2d 6f 70 20 6f 6e 20 6f 70 65 s a no-op on ope
5e40: 72 61 74 69 6e 67 20 73 79 73 74 65 6d 73 20 6f rating systems o
5e50: 74 68 65 72 0a 2a 2a 20 74 68 61 6e 20 55 4e 49 ther.** than UNI
5e60: 58 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 69 73 X..**.** This is
5e70: 20 75 73 65 64 20 74 6f 20 6d 61 6b 65 20 73 75 used to make su
5e80: 72 65 20 74 68 65 20 6d 61 73 74 65 72 20 6a 6f re the master jo
5e90: 75 72 6e 61 6c 20 66 69 6c 65 20 68 61 73 20 74 urnal file has t
5ea0: 72 75 65 6c 79 20 62 65 65 6e 20 64 65 6c 65 74 ruely been delet
5eb0: 65 64 0a 2a 2a 20 62 65 66 6f 72 65 20 6d 61 6b ed.** before mak
5ec0: 69 6e 67 20 63 68 61 6e 67 65 73 20 74 6f 20 69 ing changes to i
5ed0: 6e 64 69 76 69 64 75 61 6c 20 6a 6f 75 72 6e 61 ndividual journa
5ee0: 6c 73 20 6f 6e 20 61 20 6d 75 6c 74 69 2d 64 61 ls on a multi-da
5ef0: 74 61 62 61 73 65 20 63 6f 6d 6d 69 74 2e 0a 2a tabase commit..*
5f00: 2a 20 54 68 65 20 46 5f 46 55 4c 4c 53 59 4e 43 * The F_FULLSYNC
5f10: 20 6f 70 74 69 6f 6e 20 69 73 20 6e 6f 74 20 6e option is not n
5f20: 65 65 64 65 64 20 68 65 72 65 2e 0a 2a 2f 0a 69 eeded here..*/.i
5f30: 6e 74 20 73 71 6c 69 74 65 33 4f 73 53 79 6e 63 nt sqlite3OsSync
5f40: 44 69 72 65 63 74 6f 72 79 28 63 6f 6e 73 74 20 Directory(const
5f50: 63 68 61 72 20 2a 7a 44 69 72 6e 61 6d 65 29 7b char *zDirname){
5f60: 0a 20 20 69 6e 74 20 66 64 3b 0a 20 20 69 6e 74 . int fd;. int
5f70: 20 72 3b 0a 20 20 53 69 6d 75 6c 61 74 65 49 4f r;. SimulateIO
5f80: 45 72 72 6f 72 28 53 51 4c 49 54 45 5f 49 4f 45 Error(SQLITE_IOE
5f90: 52 52 29 3b 0a 20 20 66 64 20 3d 20 6f 70 65 6e RR);. fd = open
5fa0: 28 7a 44 69 72 6e 61 6d 65 2c 20 4f 5f 52 44 4f (zDirname, O_RDO
5fb0: 4e 4c 59 7c 4f 5f 42 49 4e 41 52 59 2c 20 30 36 NLY|O_BINARY, 06
5fc0: 34 34 29 3b 0a 20 20 54 52 41 43 45 33 28 22 44 44);. TRACE3("D
5fd0: 49 52 53 59 4e 43 20 25 2d 33 64 20 28 25 73 29 IRSYNC %-3d (%s)
5fe0: 5c 6e 22 2c 20 66 64 2c 20 7a 44 69 72 6e 61 6d \n", fd, zDirnam
5ff0: 65 29 3b 0a 20 20 69 66 28 20 66 64 3c 30 20 29 e);. if( fd<0 )
6000: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c {. return SQL
6010: 49 54 45 5f 43 41 4e 54 4f 50 45 4e 3b 20 0a 20 ITE_CANTOPEN; .
6020: 20 7d 0a 20 20 72 20 3d 20 66 73 79 6e 63 28 66 }. r = fsync(f
6030: 64 29 3b 0a 20 20 63 6c 6f 73 65 28 66 64 29 3b d);. close(fd);
6040: 0a 20 20 72 65 74 75 72 6e 20 28 28 72 3d 3d 30 . return ((r==0
6050: 29 3f 53 51 4c 49 54 45 5f 4f 4b 3a 53 51 4c 49 )?SQLITE_OK:SQLI
6060: 54 45 5f 49 4f 45 52 52 29 3b 0a 7d 0a 0a 2f 2a TE_IOERR);.}../*
6070: 0a 2a 2a 20 54 72 75 6e 63 61 74 65 20 61 6e 20 .** Truncate an
6080: 6f 70 65 6e 20 66 69 6c 65 20 74 6f 20 61 20 73 open file to a s
6090: 70 65 63 69 66 69 65 64 20 73 69 7a 65 0a 2a 2f pecified size.*/
60a0: 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 54 72 .int sqlite3OsTr
60b0: 75 6e 63 61 74 65 28 4f 73 46 69 6c 65 20 2a 69 uncate(OsFile *i
60c0: 64 2c 20 69 36 34 20 6e 42 79 74 65 29 7b 0a 20 d, i64 nByte){.
60d0: 20 61 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f assert( id->isO
60e0: 70 65 6e 20 29 3b 0a 20 20 53 69 6d 75 6c 61 74 pen );. Simulat
60f0: 65 49 4f 45 72 72 6f 72 28 53 51 4c 49 54 45 5f eIOError(SQLITE_
6100: 49 4f 45 52 52 29 3b 0a 20 20 72 65 74 75 72 6e IOERR);. return
6110: 20 66 74 72 75 6e 63 61 74 65 28 69 64 2d 3e 68 ftruncate(id->h
6120: 2c 20 6e 42 79 74 65 29 3d 3d 30 20 3f 20 53 51 , nByte)==0 ? SQ
6130: 4c 49 54 45 5f 4f 4b 20 3a 20 53 51 4c 49 54 45 LITE_OK : SQLITE
6140: 5f 49 4f 45 52 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a _IOERR;.}../*.**
6150: 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20 63 Determine the c
6160: 75 72 72 65 6e 74 20 73 69 7a 65 20 6f 66 20 61 urrent size of a
6170: 20 66 69 6c 65 20 69 6e 20 62 79 74 65 73 0a 2a file in bytes.*
6180: 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 46 /.int sqlite3OsF
6190: 69 6c 65 53 69 7a 65 28 4f 73 46 69 6c 65 20 2a ileSize(OsFile *
61a0: 69 64 2c 20 69 36 34 20 2a 70 53 69 7a 65 29 7b id, i64 *pSize){
61b0: 0a 20 20 73 74 72 75 63 74 20 73 74 61 74 20 62 . struct stat b
61c0: 75 66 3b 0a 20 20 61 73 73 65 72 74 28 20 69 64 uf;. assert( id
61d0: 2d 3e 69 73 4f 70 65 6e 20 29 3b 0a 20 20 53 69 ->isOpen );. Si
61e0: 6d 75 6c 61 74 65 49 4f 45 72 72 6f 72 28 53 51 mulateIOError(SQ
61f0: 4c 49 54 45 5f 49 4f 45 52 52 29 3b 0a 20 20 69 LITE_IOERR);. i
6200: 66 28 20 66 73 74 61 74 28 69 64 2d 3e 68 2c 20 f( fstat(id->h,
6210: 26 62 75 66 29 21 3d 30 20 29 7b 0a 20 20 20 20 &buf)!=0 ){.
6220: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f return SQLITE_IO
6230: 45 52 52 3b 0a 20 20 7d 0a 20 20 2a 70 53 69 7a ERR;. }. *pSiz
6240: 65 20 3d 20 62 75 66 2e 73 74 5f 73 69 7a 65 3b e = buf.st_size;
6250: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 . return SQLITE
6260: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 _OK;.}../*.** Th
6270: 69 73 20 72 6f 75 74 69 6e 65 20 63 68 65 63 6b is routine check
6280: 73 20 69 66 20 74 68 65 72 65 20 69 73 20 61 20 s if there is a
6290: 52 45 53 45 52 56 45 44 20 6c 6f 63 6b 20 68 65 RESERVED lock he
62a0: 6c 64 20 6f 6e 20 74 68 65 20 73 70 65 63 69 66 ld on the specif
62b0: 69 65 64 0a 2a 2a 20 66 69 6c 65 20 62 79 20 74 ied.** file by t
62c0: 68 69 73 20 6f 72 20 61 6e 79 20 6f 74 68 65 72 his or any other
62d0: 20 70 72 6f 63 65 73 73 2e 20 49 66 20 73 75 63 process. If suc
62e0: 68 20 61 20 6c 6f 63 6b 20 69 73 20 68 65 6c 64 h a lock is held
62f0: 2c 20 72 65 74 75 72 6e 0a 2a 2a 20 6e 6f 6e 2d , return.** non-
6300: 7a 65 72 6f 2e 20 20 49 66 20 74 68 65 20 66 69 zero. If the fi
6310: 6c 65 20 69 73 20 75 6e 6c 6f 63 6b 65 64 20 6f le is unlocked o
6320: 72 20 68 6f 6c 64 73 20 6f 6e 6c 79 20 53 48 41 r holds only SHA
6330: 52 45 44 20 6c 6f 63 6b 73 2c 20 74 68 65 6e 0a RED locks, then.
6340: 2a 2a 20 72 65 74 75 72 6e 20 7a 65 72 6f 2e 0a ** return zero..
6350: 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 4f 73 */.int sqlite3Os
6360: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 CheckReservedLoc
6370: 6b 28 4f 73 46 69 6c 65 20 2a 69 64 29 7b 0a 20 k(OsFile *id){.
6380: 20 69 6e 74 20 72 20 3d 20 30 3b 0a 0a 20 20 61 int r = 0;.. a
6390: 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f 70 65 ssert( id->isOpe
63a0: 6e 20 29 3b 0a 20 20 73 71 6c 69 74 65 33 4f 73 n );. sqlite3Os
63b0: 45 6e 74 65 72 4d 75 74 65 78 28 29 3b 20 2f 2a EnterMutex(); /*
63c0: 20 4e 65 65 64 65 64 20 62 65 63 61 75 73 65 20 Needed because
63d0: 69 64 2d 3e 70 4c 6f 63 6b 20 69 73 20 73 68 61 id->pLock is sha
63e0: 72 65 64 20 61 63 72 6f 73 73 20 74 68 72 65 61 red across threa
63f0: 64 73 20 2a 2f 0a 0a 20 20 2f 2a 20 43 68 65 63 ds */.. /* Chec
6400: 6b 20 69 66 20 61 20 74 68 72 65 61 64 20 69 6e k if a thread in
6410: 20 74 68 69 73 20 70 72 6f 63 65 73 73 20 68 6f this process ho
6420: 6c 64 73 20 73 75 63 68 20 61 20 6c 6f 63 6b 20 lds such a lock
6430: 2a 2f 0a 20 20 69 66 28 20 69 64 2d 3e 70 4c 6f */. if( id->pLo
6440: 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3e 53 48 41 ck->locktype>SHA
6450: 52 45 44 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 RED_LOCK ){.
6460: 72 20 3d 20 31 3b 0a 20 20 7d 0a 0a 20 20 2f 2a r = 1;. }.. /*
6470: 20 4f 74 68 65 72 77 69 73 65 20 73 65 65 20 69 Otherwise see i
6480: 66 20 73 6f 6d 65 20 6f 74 68 65 72 20 70 72 6f f some other pro
6490: 63 65 73 73 20 68 6f 6c 64 73 20 69 74 2e 0a 20 cess holds it..
64a0: 20 2a 2f 0a 20 20 69 66 28 20 21 72 20 29 7b 0a */. if( !r ){.
64b0: 20 20 20 20 73 74 72 75 63 74 20 66 6c 6f 63 6b struct flock
64c0: 20 6c 6f 63 6b 3b 0a 20 20 20 20 6c 6f 63 6b 2e lock;. lock.
64d0: 6c 5f 77 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f l_whence = SEEK_
64e0: 53 45 54 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f SET;. lock.l_
64f0: 73 74 61 72 74 20 3d 20 52 45 53 45 52 56 45 44 start = RESERVED
6500: 5f 42 59 54 45 3b 0a 20 20 20 20 6c 6f 63 6b 2e _BYTE;. lock.
6510: 6c 5f 6c 65 6e 20 3d 20 31 3b 0a 20 20 20 20 6c l_len = 1;. l
6520: 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 57 ock.l_type = F_W
6530: 52 4c 43 4b 3b 0a 20 20 20 20 66 63 6e 74 6c 28 RLCK;. fcntl(
6540: 69 64 2d 3e 68 2c 20 46 5f 47 45 54 4c 4b 2c 20 id->h, F_GETLK,
6550: 26 6c 6f 63 6b 29 3b 0a 20 20 20 20 69 66 28 20 &lock);. if(
6560: 6c 6f 63 6b 2e 6c 5f 74 79 70 65 21 3d 46 5f 55 lock.l_type!=F_U
6570: 4e 4c 43 4b 20 29 7b 0a 20 20 20 20 20 20 72 20 NLCK ){. r
6580: 3d 20 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 = 1;. }. }.
6590: 20 0a 20 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 . sqlite3OsLea
65a0: 76 65 4d 75 74 65 78 28 29 3b 0a 20 20 54 52 41 veMutex();. TRA
65b0: 43 45 33 28 22 54 45 53 54 20 57 52 2d 4c 4f 43 CE3("TEST WR-LOC
65c0: 4b 20 25 64 20 25 64 5c 6e 22 2c 20 69 64 2d 3e K %d %d\n", id->
65d0: 68 2c 20 72 29 3b 0a 0a 20 20 72 65 74 75 72 6e h, r);.. return
65e0: 20 72 3b 0a 7d 0a 0a 23 69 66 64 65 66 20 53 51 r;.}..#ifdef SQ
65f0: 4c 49 54 45 5f 44 45 42 55 47 0a 2f 2a 0a 2a 2a LITE_DEBUG./*.**
6600: 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e Helper function
6610: 20 66 6f 72 20 70 72 69 6e 74 69 6e 67 20 6f 75 for printing ou
6620: 74 20 74 72 61 63 65 20 69 6e 66 6f 72 6d 61 74 t trace informat
6630: 69 6f 6e 20 66 72 6f 6d 20 64 65 62 75 67 67 69 ion from debuggi
6640: 6e 67 0a 2a 2a 20 62 69 6e 61 72 69 65 73 2e 20 ng.** binaries.
6650: 54 68 69 73 20 72 65 74 75 72 6e 73 20 74 68 65 This returns the
6660: 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 74 string represet
6670: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 70 ation of the sup
6680: 70 6c 69 65 64 0a 2a 2a 20 69 6e 74 65 67 65 72 plied.** integer
6690: 20 6c 6f 63 6b 2d 74 79 70 65 2e 0a 2a 2f 0a 73 lock-type..*/.s
66a0: 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 tatic const char
66b0: 20 2a 20 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 28 * locktypeName(
66c0: 69 6e 74 20 6c 6f 63 6b 74 79 70 65 29 7b 0a 20 int locktype){.
66d0: 20 73 77 69 74 63 68 28 20 6c 6f 63 6b 74 79 70 switch( locktyp
66e0: 65 20 29 7b 0a 20 20 63 61 73 65 20 4e 4f 5f 4c e ){. case NO_L
66f0: 4f 43 4b 3a 20 72 65 74 75 72 6e 20 22 4e 4f 4e OCK: return "NON
6700: 45 22 3b 0a 20 20 63 61 73 65 20 53 48 41 52 45 E";. case SHARE
6710: 44 5f 4c 4f 43 4b 3a 20 72 65 74 75 72 6e 20 22 D_LOCK: return "
6720: 53 48 41 52 45 44 22 3b 0a 20 20 63 61 73 65 20 SHARED";. case
6730: 52 45 53 45 52 56 45 44 5f 4c 4f 43 4b 3a 20 72 RESERVED_LOCK: r
6740: 65 74 75 72 6e 20 22 52 45 53 45 52 56 45 44 22 eturn "RESERVED"
6750: 3b 0a 20 20 63 61 73 65 20 50 45 4e 44 49 4e 47 ;. case PENDING
6760: 5f 4c 4f 43 4b 3a 20 72 65 74 75 72 6e 20 22 50 _LOCK: return "P
6770: 45 4e 44 49 4e 47 22 3b 0a 20 20 63 61 73 65 20 ENDING";. case
6780: 45 58 43 4c 55 53 49 56 45 5f 4c 4f 43 4b 3a 20 EXCLUSIVE_LOCK:
6790: 72 65 74 75 72 6e 20 22 45 58 43 4c 55 53 49 56 return "EXCLUSIV
67a0: 45 22 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e E";. }. return
67b0: 20 22 45 52 52 4f 52 22 3b 0a 7d 0a 23 65 6e 64 "ERROR";.}.#end
67c0: 69 66 0a 0a 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 74 if../*.** Lock t
67d0: 68 65 20 66 69 6c 65 20 77 69 74 68 20 74 68 65 he file with the
67e0: 20 6c 6f 63 6b 20 73 70 65 63 69 66 69 65 64 20 lock specified
67f0: 62 79 20 70 61 72 61 6d 65 74 65 72 20 6c 6f 63 by parameter loc
6800: 6b 74 79 70 65 20 2d 20 6f 6e 65 0a 2a 2a 20 6f ktype - one.** o
6810: 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a f the following:
6820: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 28 31 29 20 53 .**.** (1) S
6830: 48 41 52 45 44 5f 4c 4f 43 4b 0a 2a 2a 20 20 20 HARED_LOCK.**
6840: 20 20 28 32 29 20 52 45 53 45 52 56 45 44 5f 4c (2) RESERVED_L
6850: 4f 43 4b 0a 2a 2a 20 20 20 20 20 28 33 29 20 50 OCK.** (3) P
6860: 45 4e 44 49 4e 47 5f 4c 4f 43 4b 0a 2a 2a 20 20 ENDING_LOCK.**
6870: 20 20 20 28 34 29 20 45 58 43 4c 55 53 49 56 45 (4) EXCLUSIVE
6880: 5f 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20 53 6f 6d 65 _LOCK.**.** Some
6890: 74 69 6d 65 73 20 77 68 65 6e 20 72 65 71 75 65 times when reque
68a0: 73 74 69 6e 67 20 6f 6e 65 20 6c 6f 63 6b 20 73 sting one lock s
68b0: 74 61 74 65 2c 20 61 64 64 69 74 69 6f 6e 61 6c tate, additional
68c0: 20 6c 6f 63 6b 20 73 74 61 74 65 73 0a 2a 2a 20 lock states.**
68d0: 61 72 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 are inserted in
68e0: 62 65 74 77 65 65 6e 2e 20 20 54 68 65 20 6c 6f between. The lo
68f0: 63 6b 69 6e 67 20 6d 69 67 68 74 20 66 61 69 6c cking might fail
6900: 20 6f 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 6c on one of the l
6910: 61 74 65 72 0a 2a 2a 20 74 72 61 6e 73 69 74 69 ater.** transiti
6920: 6f 6e 73 20 6c 65 61 76 69 6e 67 20 74 68 65 20 ons leaving the
6930: 6c 6f 63 6b 20 73 74 61 74 65 20 64 69 66 66 65 lock state diffe
6940: 72 65 6e 74 20 66 72 6f 6d 20 77 68 61 74 20 69 rent from what i
6950: 74 20 73 74 61 72 74 65 64 20 62 75 74 0a 2a 2a t started but.**
6960: 20 73 74 69 6c 6c 20 73 68 6f 72 74 20 6f 66 20 still short of
6970: 69 74 73 20 67 6f 61 6c 2e 20 20 54 68 65 20 66 its goal. The f
6980: 6f 6c 6c 6f 77 69 6e 67 20 63 68 61 72 74 20 73 ollowing chart s
6990: 68 6f 77 73 20 74 68 65 20 61 6c 6c 6f 77 65 64 hows the allowed
69a0: 0a 2a 2a 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 .** transitions
69b0: 61 6e 64 20 74 68 65 20 69 6e 73 65 72 74 65 64 and the inserted
69c0: 20 69 6e 74 65 72 6d 65 64 69 61 74 65 20 73 74 intermediate st
69d0: 61 74 65 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 55 ates:.**.** U
69e0: 4e 4c 4f 43 4b 45 44 20 2d 3e 20 53 48 41 52 45 NLOCKED -> SHARE
69f0: 44 0a 2a 2a 20 20 20 20 53 48 41 52 45 44 20 2d D.** SHARED -
6a00: 3e 20 52 45 53 45 52 56 45 44 0a 2a 2a 20 20 20 > RESERVED.**
6a10: 20 53 48 41 52 45 44 20 2d 3e 20 28 50 45 4e 44 SHARED -> (PEND
6a20: 49 4e 47 29 20 2d 3e 20 45 58 43 4c 55 53 49 56 ING) -> EXCLUSIV
6a30: 45 0a 2a 2a 20 20 20 20 52 45 53 45 52 56 45 44 E.** RESERVED
6a40: 20 2d 3e 20 28 50 45 4e 44 49 4e 47 29 20 2d 3e -> (PENDING) ->
6a50: 20 45 58 43 4c 55 53 49 56 45 0a 2a 2a 20 20 20 EXCLUSIVE.**
6a60: 20 50 45 4e 44 49 4e 47 20 2d 3e 20 45 58 43 4c PENDING -> EXCL
6a70: 55 53 49 56 45 0a 2a 2a 0a 2a 2a 20 54 68 69 73 USIVE.**.** This
6a80: 20 72 6f 75 74 69 6e 65 20 77 69 6c 6c 20 6f 6e routine will on
6a90: 6c 79 20 69 6e 63 72 65 61 73 65 20 61 20 6c 6f ly increase a lo
6aa0: 63 6b 2e 20 20 55 73 65 20 74 68 65 20 73 71 6c ck. Use the sql
6ab0: 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 29 0a 2a ite3OsUnlock().*
6ac0: 2a 20 72 6f 75 74 69 6e 65 20 74 6f 20 6c 6f 77 * routine to low
6ad0: 65 72 20 61 20 6c 6f 63 6b 69 6e 67 20 6c 65 76 er a locking lev
6ae0: 65 6c 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 el..*/.int sqlit
6af0: 65 33 4f 73 4c 6f 63 6b 28 4f 73 46 69 6c 65 20 e3OsLock(OsFile
6b00: 2a 69 64 2c 20 69 6e 74 20 6c 6f 63 6b 74 79 70 *id, int locktyp
6b10: 65 29 7b 0a 20 20 2f 2a 20 54 68 65 20 66 6f 6c e){. /* The fol
6b20: 6c 6f 77 69 6e 67 20 64 65 73 63 72 69 62 65 73 lowing describes
6b30: 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 the implementat
6b40: 69 6f 6e 20 6f 66 20 74 68 65 20 76 61 72 69 6f ion of the vario
6b50: 75 73 20 6c 6f 63 6b 73 20 61 6e 64 0a 20 20 2a us locks and. *
6b60: 2a 20 6c 6f 63 6b 20 74 72 61 6e 73 69 74 69 6f * lock transitio
6b70: 6e 73 20 69 6e 20 74 65 72 6d 73 20 6f 66 20 74 ns in terms of t
6b80: 68 65 20 50 4f 53 49 58 20 61 64 76 69 73 6f 72 he POSIX advisor
6b90: 79 20 73 68 61 72 65 64 20 61 6e 64 20 65 78 63 y shared and exc
6ba0: 6c 75 73 69 76 65 0a 20 20 2a 2a 20 6c 6f 63 6b lusive. ** lock
6bb0: 20 70 72 69 6d 69 74 69 76 65 73 20 28 63 61 6c primitives (cal
6bc0: 6c 65 64 20 72 65 61 64 2d 6c 6f 63 6b 73 20 61 led read-locks a
6bd0: 6e 64 20 77 72 69 74 65 2d 6c 6f 63 6b 73 20 62 nd write-locks b
6be0: 65 6c 6f 77 2c 20 74 6f 20 61 76 6f 69 64 0a 20 elow, to avoid.
6bf0: 20 2a 2a 20 63 6f 6e 66 75 73 69 6f 6e 20 77 69 ** confusion wi
6c00: 74 68 20 53 51 4c 69 74 65 20 6c 6f 63 6b 20 6e th SQLite lock n
6c10: 61 6d 65 73 29 2e 20 54 68 65 20 61 6c 67 6f 72 ames). The algor
6c20: 69 74 68 6d 73 20 61 72 65 20 63 6f 6d 70 6c 69 ithms are compli
6c30: 63 61 74 65 64 0a 20 20 2a 2a 20 73 6c 69 67 68 cated. ** sligh
6c40: 74 6c 79 20 69 6e 20 6f 72 64 65 72 20 74 6f 20 tly in order to
6c50: 62 65 20 63 6f 6d 70 61 74 69 62 6c 65 20 77 69 be compatible wi
6c60: 74 68 20 77 69 6e 64 6f 77 73 20 73 79 73 74 65 th windows syste
6c70: 6d 73 20 73 69 6d 75 6c 74 61 6e 65 6f 75 73 6c ms simultaneousl
6c80: 79 0a 20 20 2a 2a 20 61 63 63 65 73 73 69 6e 67 y. ** accessing
6c90: 20 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 61 the same databa
6ca0: 73 65 20 66 69 6c 65 2c 20 69 6e 20 63 61 73 65 se file, in case
6cb0: 20 74 68 61 74 20 69 73 20 65 76 65 72 20 72 65 that is ever re
6cc0: 71 75 69 72 65 64 2e 0a 20 20 2a 2a 0a 20 20 2a quired.. **. *
6cd0: 2a 20 53 79 6d 62 6f 6c 73 20 64 65 66 69 6e 65 * Symbols define
6ce0: 64 20 69 6e 20 6f 73 2e 68 20 69 6e 64 65 6e 74 d in os.h indent
6cf0: 69 66 79 20 74 68 65 20 27 70 65 6e 64 69 6e 67 ify the 'pending
6d00: 20 62 79 74 65 27 20 61 6e 64 20 74 68 65 20 27 byte' and the '
6d10: 72 65 73 65 72 76 65 64 0a 20 20 2a 2a 20 62 79 reserved. ** by
6d20: 74 65 27 2c 20 65 61 63 68 20 73 69 6e 67 6c 65 te', each single
6d30: 20 62 79 74 65 73 20 61 74 20 77 65 6c 6c 20 6b bytes at well k
6d40: 6e 6f 77 6e 20 6f 66 66 73 65 74 73 2c 20 61 6e nown offsets, an
6d50: 64 20 74 68 65 20 27 73 68 61 72 65 64 20 62 79 d the 'shared by
6d60: 74 65 0a 20 20 2a 2a 20 72 61 6e 67 65 27 2c 20 te. ** range',
6d70: 61 20 72 61 6e 67 65 20 6f 66 20 35 31 30 20 62 a range of 510 b
6d80: 79 74 65 73 20 61 74 20 61 20 77 65 6c 6c 20 6b ytes at a well k
6d90: 6e 6f 77 6e 20 6f 66 66 73 65 74 2e 0a 20 20 2a nown offset.. *
6da0: 2a 0a 20 20 2a 2a 20 54 6f 20 6f 62 74 61 69 6e *. ** To obtain
6db0: 20 61 20 53 48 41 52 45 44 20 6c 6f 63 6b 2c 20 a SHARED lock,
6dc0: 61 20 72 65 61 64 2d 6c 6f 63 6b 20 69 73 20 6f a read-lock is o
6dd0: 62 74 61 69 6e 65 64 20 6f 6e 20 74 68 65 20 27 btained on the '
6de0: 70 65 6e 64 69 6e 67 0a 20 20 2a 2a 20 62 79 74 pending. ** byt
6df0: 65 27 2e 20 20 49 66 20 74 68 69 73 20 69 73 20 e'. If this is
6e00: 73 75 63 63 65 73 73 66 75 6c 2c 20 61 20 72 61 successful, a ra
6e10: 6e 64 6f 6d 20 62 79 74 65 20 66 72 6f 6d 20 74 ndom byte from t
6e20: 68 65 20 27 73 68 61 72 65 64 20 62 79 74 65 0a he 'shared byte.
6e30: 20 20 2a 2a 20 72 61 6e 67 65 27 20 69 73 20 72 ** range' is r
6e40: 65 61 64 2d 6c 6f 63 6b 65 64 20 61 6e 64 20 74 ead-locked and t
6e50: 68 65 20 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 27 he lock on the '
6e60: 70 65 6e 64 69 6e 67 20 62 79 74 65 27 20 72 65 pending byte' re
6e70: 6c 65 61 73 65 64 2e 0a 20 20 2a 2a 0a 20 20 2a leased.. **. *
6e80: 2a 20 41 20 70 72 6f 63 65 73 73 20 6d 61 79 20 * A process may
6e90: 6f 6e 6c 79 20 6f 62 74 61 69 6e 20 61 20 52 45 only obtain a RE
6ea0: 53 45 52 56 45 44 20 6c 6f 63 6b 20 61 66 74 65 SERVED lock afte
6eb0: 72 20 69 74 20 68 61 73 20 61 20 53 48 41 52 45 r it has a SHARE
6ec0: 44 20 6c 6f 63 6b 2e 0a 20 20 2a 2a 20 41 20 52 D lock.. ** A R
6ed0: 45 53 45 52 56 45 44 20 6c 6f 63 6b 20 69 73 20 ESERVED lock is
6ee0: 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 67 implemented by g
6ef0: 72 61 62 62 69 6e 67 20 61 20 77 72 69 74 65 2d rabbing a write-
6f00: 6c 6f 63 6b 20 6f 6e 20 74 68 65 0a 20 20 2a 2a lock on the. **
6f10: 20 27 72 65 73 65 72 76 65 64 20 62 79 74 65 27 'reserved byte'
6f20: 2e 20 0a 20 20 2a 2a 0a 20 20 2a 2a 20 41 20 70 . . **. ** A p
6f30: 72 6f 63 65 73 73 20 6d 61 79 20 6f 6e 6c 79 20 rocess may only
6f40: 6f 62 74 61 69 6e 20 61 20 50 45 4e 44 49 4e 47 obtain a PENDING
6f50: 20 6c 6f 63 6b 20 61 66 74 65 72 20 69 74 20 68 lock after it h
6f60: 61 73 20 6f 62 74 61 69 6e 65 64 20 61 0a 20 20 as obtained a.
6f70: 2a 2a 20 53 48 41 52 45 44 20 6c 6f 63 6b 2e 20 ** SHARED lock.
6f80: 41 20 50 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 69 A PENDING lock i
6f90: 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 s implemented by
6fa0: 20 6f 62 74 61 69 6e 69 6e 67 20 61 20 77 72 69 obtaining a wri
6fb0: 74 65 2d 6c 6f 63 6b 0a 20 20 2a 2a 20 6f 6e 20 te-lock. ** on
6fc0: 74 68 65 20 27 70 65 6e 64 69 6e 67 20 62 79 74 the 'pending byt
6fd0: 65 27 2e 20 54 68 69 73 20 65 6e 73 75 72 65 73 e'. This ensures
6fe0: 20 74 68 61 74 20 6e 6f 20 6e 65 77 20 53 48 41 that no new SHA
6ff0: 52 45 44 20 6c 6f 63 6b 73 20 63 61 6e 20 62 65 RED locks can be
7000: 0a 20 20 2a 2a 20 6f 62 74 61 69 6e 65 64 2c 20 . ** obtained,
7010: 62 75 74 20 65 78 69 73 74 69 6e 67 20 53 48 41 but existing SHA
7020: 52 45 44 20 6c 6f 63 6b 73 20 61 72 65 20 61 6c RED locks are al
7030: 6c 6f 77 65 64 20 74 6f 20 70 65 72 73 69 73 74 lowed to persist
7040: 2e 20 41 20 70 72 6f 63 65 73 73 0a 20 20 2a 2a . A process. **
7050: 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 74 does not have t
7060: 6f 20 6f 62 74 61 69 6e 20 61 20 52 45 53 45 52 o obtain a RESER
7070: 56 45 44 20 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 VED lock on the
7080: 77 61 79 20 74 6f 20 61 20 50 45 4e 44 49 4e 47 way to a PENDING
7090: 20 6c 6f 63 6b 2e 0a 20 20 2a 2a 20 54 68 69 73 lock.. ** This
70a0: 20 70 72 6f 70 65 72 74 79 20 69 73 20 75 73 65 property is use
70b0: 64 20 62 79 20 74 68 65 20 61 6c 67 6f 72 69 74 d by the algorit
70c0: 68 6d 20 66 6f 72 20 72 6f 6c 6c 69 6e 67 20 62 hm for rolling b
70d0: 61 63 6b 20 61 20 6a 6f 75 72 6e 61 6c 20 66 69 ack a journal fi
70e0: 6c 65 0a 20 20 2a 2a 20 61 66 74 65 72 20 61 20 le. ** after a
70f0: 63 72 61 73 68 2e 0a 20 20 2a 2a 0a 20 20 2a 2a crash.. **. **
7100: 20 41 6e 20 45 58 43 4c 55 53 49 56 45 20 6c 6f An EXCLUSIVE lo
7110: 63 6b 2c 20 6f 62 74 61 69 6e 65 64 20 61 66 74 ck, obtained aft
7120: 65 72 20 61 20 50 45 4e 44 49 4e 47 20 6c 6f 63 er a PENDING loc
7130: 6b 20 69 73 20 68 65 6c 64 2c 20 69 73 0a 20 20 k is held, is.
7140: 2a 2a 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 62 ** implemented b
7150: 79 20 6f 62 74 61 69 6e 69 6e 67 20 61 20 77 72 y obtaining a wr
7160: 69 74 65 2d 6c 6f 63 6b 20 6f 6e 20 74 68 65 20 ite-lock on the
7170: 65 6e 74 69 72 65 20 27 73 68 61 72 65 64 20 62 entire 'shared b
7180: 79 74 65 0a 20 20 2a 2a 20 72 61 6e 67 65 27 2e yte. ** range'.
7190: 20 53 69 6e 63 65 20 61 6c 6c 20 6f 74 68 65 72 Since all other
71a0: 20 6c 6f 63 6b 73 20 72 65 71 75 69 72 65 20 61 locks require a
71b0: 20 72 65 61 64 2d 6c 6f 63 6b 20 6f 6e 20 6f 6e read-lock on on
71c0: 65 20 6f 66 20 74 68 65 20 62 79 74 65 73 0a 20 e of the bytes.
71d0: 20 2a 2a 20 77 69 74 68 69 6e 20 74 68 69 73 20 ** within this
71e0: 72 61 6e 67 65 2c 20 74 68 69 73 20 65 6e 73 75 range, this ensu
71f0: 72 65 73 20 74 68 61 74 20 6e 6f 20 6f 74 68 65 res that no othe
7200: 72 20 6c 6f 63 6b 73 20 61 72 65 20 68 65 6c 64 r locks are held
7210: 20 6f 6e 20 74 68 65 0a 20 20 2a 2a 20 64 61 74 on the. ** dat
7220: 61 62 61 73 65 2e 20 0a 20 20 2a 2a 0a 20 20 2a abase. . **. *
7230: 2a 20 54 68 65 20 72 65 61 73 6f 6e 20 61 20 73 * The reason a s
7240: 69 6e 67 6c 65 20 62 79 74 65 20 63 61 6e 6e 6f ingle byte canno
7250: 74 20 62 65 20 75 73 65 64 20 69 6e 73 74 65 61 t be used instea
7260: 64 20 6f 66 20 74 68 65 20 27 73 68 61 72 65 64 d of the 'shared
7270: 20 62 79 74 65 0a 20 20 2a 2a 20 72 61 6e 67 65 byte. ** range
7280: 27 20 69 73 20 74 68 61 74 20 73 6f 6d 65 20 76 ' is that some v
7290: 65 72 73 69 6f 6e 73 20 6f 66 20 77 69 6e 64 6f ersions of windo
72a0: 77 73 20 64 6f 20 6e 6f 74 20 73 75 70 70 6f 72 ws do not suppor
72b0: 74 20 72 65 61 64 2d 6c 6f 63 6b 73 2e 20 42 79 t read-locks. By
72c0: 0a 20 20 2a 2a 20 6c 6f 63 6b 69 6e 67 20 61 20 . ** locking a
72d0: 72 61 6e 64 6f 6d 20 62 79 74 65 20 66 72 6f 6d random byte from
72e0: 20 61 20 72 61 6e 67 65 2c 20 63 6f 6e 63 75 72 a range, concur
72f0: 72 65 6e 74 20 53 48 41 52 45 44 20 6c 6f 63 6b rent SHARED lock
7300: 73 20 6d 61 79 20 65 78 69 73 74 0a 20 20 2a 2a s may exist. **
7310: 20 65 76 65 6e 20 69 66 20 74 68 65 20 6c 6f 63 even if the loc
7320: 6b 69 6e 67 20 70 72 69 6d 69 74 69 76 65 20 75 king primitive u
7330: 73 65 64 20 69 73 20 61 6c 77 61 79 73 20 61 20 sed is always a
7340: 77 72 69 74 65 2d 6c 6f 63 6b 2e 0a 20 20 2a 2f write-lock.. */
7350: 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c 49 . int rc = SQLI
7360: 54 45 5f 4f 4b 3b 0a 20 20 73 74 72 75 63 74 20 TE_OK;. struct
7370: 6c 6f 63 6b 49 6e 66 6f 20 2a 70 4c 6f 63 6b 20 lockInfo *pLock
7380: 3d 20 69 64 2d 3e 70 4c 6f 63 6b 3b 0a 20 20 73 = id->pLock;. s
7390: 74 72 75 63 74 20 66 6c 6f 63 6b 20 6c 6f 63 6b truct flock lock
73a0: 3b 0a 20 20 69 6e 74 20 73 3b 0a 0a 20 20 61 73 ;. int s;.. as
73b0: 73 65 72 74 28 20 69 64 2d 3e 69 73 4f 70 65 6e sert( id->isOpen
73c0: 20 29 3b 0a 20 20 54 52 41 43 45 37 28 22 4c 4f );. TRACE7("LO
73d0: 43 4b 20 25 64 20 25 73 20 77 61 73 20 25 73 28 CK %d %s was %s(
73e0: 25 73 2c 25 64 29 20 70 69 64 3d 25 64 5c 6e 22 %s,%d) pid=%d\n"
73f0: 2c 20 69 64 2d 3e 68 2c 20 6c 6f 63 6b 74 79 70 , id->h, locktyp
7400: 65 4e 61 6d 65 28 6c 6f 63 6b 74 79 70 65 29 2c eName(locktype),
7410: 20 0a 20 20 20 20 20 20 6c 6f 63 6b 74 79 70 65 . locktype
7420: 4e 61 6d 65 28 69 64 2d 3e 6c 6f 63 6b 74 79 70 Name(id->locktyp
7430: 65 29 2c 20 6c 6f 63 6b 74 79 70 65 4e 61 6d 65 e), locktypeName
7440: 28 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 (pLock->locktype
7450: 29 2c 20 70 4c 6f 63 6b 2d 3e 63 6e 74 0a 20 20 ), pLock->cnt.
7460: 20 20 20 20 2c 67 65 74 70 69 64 28 29 20 29 3b ,getpid() );
7470: 0a 0a 20 20 2f 2a 20 49 66 20 74 68 65 72 65 20 .. /* If there
7480: 69 73 20 61 6c 72 65 61 64 79 20 61 20 6c 6f 63 is already a loc
7490: 6b 20 6f 66 20 74 68 69 73 20 74 79 70 65 20 6f k of this type o
74a0: 72 20 6d 6f 72 65 20 72 65 73 74 72 69 63 74 69 r more restricti
74b0: 76 65 20 6f 6e 20 74 68 65 0a 20 20 2a 2a 20 4f ve on the. ** O
74c0: 73 46 69 6c 65 2c 20 64 6f 20 6e 6f 74 68 69 6e sFile, do nothin
74d0: 67 2e 20 44 6f 6e 27 74 20 75 73 65 20 74 68 65 g. Don't use the
74e0: 20 65 6e 64 5f 6c 6f 63 6b 3a 20 65 78 69 74 20 end_lock: exit
74f0: 70 61 74 68 2c 20 61 73 0a 20 20 2a 2a 20 73 71 path, as. ** sq
7500: 6c 69 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 lite3OsEnterMute
7510: 78 28 29 20 68 61 73 6e 27 74 20 62 65 65 6e 20 x() hasn't been
7520: 63 61 6c 6c 65 64 20 79 65 74 2e 0a 20 20 2a 2f called yet.. */
7530: 0a 20 20 69 66 28 20 69 64 2d 3e 6c 6f 63 6b 74 . if( id->lockt
7540: 79 70 65 3e 3d 6c 6f 63 6b 74 79 70 65 20 29 7b ype>=locktype ){
7550: 0a 20 20 20 20 54 52 41 43 45 33 28 22 4c 4f 43 . TRACE3("LOC
7560: 4b 20 25 64 20 25 73 20 6f 6b 20 28 61 6c 72 65 K %d %s ok (alre
7570: 61 64 79 20 68 65 6c 64 29 5c 6e 22 2c 20 69 64 ady held)\n", id
7580: 2d 3e 68 2c 20 6c 6f 63 6b 74 79 70 65 4e 61 6d ->h, locktypeNam
7590: 65 28 6c 6f 63 6b 74 79 70 65 29 29 3b 0a 20 20 e(locktype));.
75a0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
75b0: 4f 4b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 4d 61 OK;. }.. /* Ma
75c0: 6b 65 20 73 75 72 65 20 74 68 65 20 6c 6f 63 6b ke sure the lock
75d0: 69 6e 67 20 73 65 71 75 65 6e 63 65 20 69 73 20 ing sequence is
75e0: 63 6f 72 72 65 63 74 0a 20 20 2a 2f 0a 20 20 61 correct. */. a
75f0: 73 73 65 72 74 28 20 69 64 2d 3e 6c 6f 63 6b 74 ssert( id->lockt
7600: 79 70 65 21 3d 4e 4f 5f 4c 4f 43 4b 20 7c 7c 20 ype!=NO_LOCK ||
7610: 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 locktype==SHARED
7620: 5f 4c 4f 43 4b 20 29 3b 0a 20 20 61 73 73 65 72 _LOCK );. asser
7630: 74 28 20 6c 6f 63 6b 74 79 70 65 21 3d 50 45 4e t( locktype!=PEN
7640: 44 49 4e 47 5f 4c 4f 43 4b 20 29 3b 0a 20 20 61 DING_LOCK );. a
7650: 73 73 65 72 74 28 20 6c 6f 63 6b 74 79 70 65 21 ssert( locktype!
7660: 3d 52 45 53 45 52 56 45 44 5f 4c 4f 43 4b 20 7c =RESERVED_LOCK |
7670: 7c 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d | id->locktype==
7680: 53 48 41 52 45 44 5f 4c 4f 43 4b 20 29 3b 0a 0a SHARED_LOCK );..
7690: 20 20 2f 2a 20 54 68 69 73 20 6d 75 74 65 78 20 /* This mutex
76a0: 69 73 20 6e 65 65 64 65 64 20 62 65 63 61 75 73 is needed becaus
76b0: 65 20 69 64 2d 3e 70 4c 6f 63 6b 20 69 73 20 73 e id->pLock is s
76c0: 68 61 72 65 64 20 61 63 72 6f 73 73 20 74 68 72 hared across thr
76d0: 65 61 64 73 0a 20 20 2a 2f 0a 20 20 73 71 6c 69 eads. */. sqli
76e0: 74 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 78 28 te3OsEnterMutex(
76f0: 29 3b 0a 0a 20 20 2f 2a 20 49 66 20 73 6f 6d 65 );.. /* If some
7700: 20 74 68 72 65 61 64 20 75 73 69 6e 67 20 74 68 thread using th
7710: 69 73 20 50 49 44 20 68 61 73 20 61 20 6c 6f 63 is PID has a loc
7720: 6b 20 76 69 61 20 61 20 64 69 66 66 65 72 65 6e k via a differen
7730: 74 20 4f 73 46 69 6c 65 2a 0a 20 20 2a 2a 20 68 t OsFile*. ** h
7740: 61 6e 64 6c 65 20 74 68 61 74 20 70 72 65 63 6c andle that precl
7750: 75 64 65 73 20 74 68 65 20 72 65 71 75 65 73 74 udes the request
7760: 65 64 20 6c 6f 63 6b 2c 20 72 65 74 75 72 6e 20 ed lock, return
7770: 42 55 53 59 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 BUSY.. */. if(
7780: 20 28 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 21 3d (id->locktype!=
7790: 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 20 pLock->locktype
77a0: 26 26 20 0a 20 20 20 20 20 20 20 20 20 20 28 70 && . (p
77b0: 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3e 3d Lock->locktype>=
77c0: 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b 20 7c 7c 20 PENDING_LOCK ||
77d0: 6c 6f 63 6b 74 79 70 65 3e 53 48 41 52 45 44 5f locktype>SHARED_
77e0: 4c 4f 43 4b 29 29 0a 20 20 29 7b 0a 20 20 20 20 LOCK)). ){.
77f0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 42 55 53 59 rc = SQLITE_BUSY
7800: 3b 0a 20 20 20 20 67 6f 74 6f 20 65 6e 64 5f 6c ;. goto end_l
7810: 6f 63 6b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 49 ock;. }.. /* I
7820: 66 20 61 20 53 48 41 52 45 44 20 6c 6f 63 6b 20 f a SHARED lock
7830: 69 73 20 72 65 71 75 65 73 74 65 64 2c 20 61 6e is requested, an
7840: 64 20 73 6f 6d 65 20 74 68 72 65 61 64 20 75 73 d some thread us
7850: 69 6e 67 20 74 68 69 73 20 50 49 44 20 61 6c 72 ing this PID alr
7860: 65 61 64 79 0a 20 20 2a 2a 20 68 61 73 20 61 20 eady. ** has a
7870: 53 48 41 52 45 44 20 6f 72 20 52 45 53 45 52 56 SHARED or RESERV
7880: 45 44 20 6c 6f 63 6b 2c 20 74 68 65 6e 20 69 6e ED lock, then in
7890: 63 72 65 6d 65 6e 74 20 72 65 66 65 72 65 6e 63 crement referenc
78a0: 65 20 63 6f 75 6e 74 73 20 61 6e 64 0a 20 20 2a e counts and. *
78b0: 2a 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f * return SQLITE_
78c0: 4f 4b 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 6c OK.. */. if( l
78d0: 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 5f ocktype==SHARED_
78e0: 4c 4f 43 4b 20 26 26 20 0a 20 20 20 20 20 20 28 LOCK && . (
78f0: 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3d pLock->locktype=
7900: 3d 53 48 41 52 45 44 5f 4c 4f 43 4b 20 7c 7c 20 =SHARED_LOCK ||
7910: 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3d pLock->locktype=
7920: 3d 52 45 53 45 52 56 45 44 5f 4c 4f 43 4b 29 20 =RESERVED_LOCK)
7930: 29 7b 0a 20 20 20 20 61 73 73 65 72 74 28 20 6c ){. assert( l
7940: 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 45 44 5f ocktype==SHARED_
7950: 4c 4f 43 4b 20 29 3b 0a 20 20 20 20 61 73 73 65 LOCK );. asse
7960: 72 74 28 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 rt( id->locktype
7970: 3d 3d 30 20 29 3b 0a 20 20 20 20 61 73 73 65 72 ==0 );. asser
7980: 74 28 20 70 4c 6f 63 6b 2d 3e 63 6e 74 3e 30 20 t( pLock->cnt>0
7990: 29 3b 0a 20 20 20 20 69 64 2d 3e 6c 6f 63 6b 74 );. id->lockt
79a0: 79 70 65 20 3d 20 53 48 41 52 45 44 5f 4c 4f 43 ype = SHARED_LOC
79b0: 4b 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e 63 6e K;. pLock->cn
79c0: 74 2b 2b 3b 0a 20 20 20 20 69 64 2d 3e 70 4f 70 t++;. id->pOp
79d0: 65 6e 2d 3e 6e 4c 6f 63 6b 2b 2b 3b 0a 20 20 20 en->nLock++;.
79e0: 20 67 6f 74 6f 20 65 6e 64 5f 6c 6f 63 6b 3b 0a goto end_lock;.
79f0: 20 20 7d 0a 0a 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 }.. lock.l_le
7a00: 6e 20 3d 20 31 4c 3b 0a 20 20 6c 6f 63 6b 2e 6c n = 1L;. lock.l
7a10: 5f 77 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f 53 _whence = SEEK_S
7a20: 45 54 3b 0a 0a 20 20 2f 2a 20 41 20 50 45 4e 44 ET;.. /* A PEND
7a30: 49 4e 47 20 6c 6f 63 6b 20 69 73 20 6e 65 65 64 ING lock is need
7a40: 65 64 20 62 65 66 6f 72 65 20 61 63 71 75 69 72 ed before acquir
7a50: 69 6e 67 20 61 20 53 48 41 52 45 44 20 6c 6f 63 ing a SHARED loc
7a60: 6b 20 61 6e 64 20 62 65 66 6f 72 65 0a 20 20 2a k and before. *
7a70: 2a 20 61 63 71 75 69 72 69 6e 67 20 61 6e 20 45 * acquiring an E
7a80: 58 43 4c 55 53 49 56 45 20 6c 6f 63 6b 2e 20 20 XCLUSIVE lock.
7a90: 46 6f 72 20 74 68 65 20 53 48 41 52 45 44 20 6c For the SHARED l
7aa0: 6f 63 6b 2c 20 74 68 65 20 50 45 4e 44 49 4e 47 ock, the PENDING
7ab0: 20 77 69 6c 6c 0a 20 20 2a 2a 20 62 65 20 72 65 will. ** be re
7ac0: 6c 65 61 73 65 64 2e 0a 20 20 2a 2f 0a 20 20 69 leased.. */. i
7ad0: 66 28 20 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 f( locktype==SHA
7ae0: 52 45 44 5f 4c 4f 43 4b 20 0a 20 20 20 20 20 20 RED_LOCK .
7af0: 7c 7c 20 28 6c 6f 63 6b 74 79 70 65 3d 3d 45 58 || (locktype==EX
7b00: 43 4c 55 53 49 56 45 5f 4c 4f 43 4b 20 26 26 20 CLUSIVE_LOCK &&
7b10: 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 3c 50 45 4e id->locktype<PEN
7b20: 44 49 4e 47 5f 4c 4f 43 4b 29 0a 20 20 29 7b 0a DING_LOCK). ){.
7b30: 20 20 20 20 6c 6f 63 6b 2e 6c 5f 74 79 70 65 20 lock.l_type
7b40: 3d 20 28 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 = (locktype==SHA
7b50: 52 45 44 5f 4c 4f 43 4b 3f 46 5f 52 44 4c 43 4b RED_LOCK?F_RDLCK
7b60: 3a 46 5f 57 52 4c 43 4b 29 3b 0a 20 20 20 20 6c :F_WRLCK);. l
7b70: 6f 63 6b 2e 6c 5f 73 74 61 72 74 20 3d 20 50 45 ock.l_start = PE
7b80: 4e 44 49 4e 47 5f 42 59 54 45 3b 0a 20 20 20 20 NDING_BYTE;.
7b90: 73 20 3d 20 66 63 6e 74 6c 28 69 64 2d 3e 68 2c s = fcntl(id->h,
7ba0: 20 46 5f 53 45 54 4c 4b 2c 20 26 6c 6f 63 6b 29 F_SETLK, &lock)
7bb0: 3b 0a 20 20 20 20 69 66 28 20 73 20 29 7b 0a 20 ;. if( s ){.
7bc0: 20 20 20 20 20 72 63 20 3d 20 28 65 72 72 6e 6f rc = (errno
7bd0: 3d 3d 45 49 4e 56 41 4c 29 20 3f 20 53 51 4c 49 ==EINVAL) ? SQLI
7be0: 54 45 5f 4e 4f 4c 46 53 20 3a 20 53 51 4c 49 54 TE_NOLFS : SQLIT
7bf0: 45 5f 42 55 53 59 3b 0a 20 20 20 20 20 20 67 6f E_BUSY;. go
7c00: 74 6f 20 65 6e 64 5f 6c 6f 63 6b 3b 0a 20 20 20 to end_lock;.
7c10: 20 7d 0a 20 20 7d 0a 0a 0a 20 20 2f 2a 20 49 66 }. }... /* If
7c20: 20 63 6f 6e 74 72 6f 6c 20 67 65 74 73 20 74 6f control gets to
7c30: 20 74 68 69 73 20 70 6f 69 6e 74 2c 20 74 68 65 this point, the
7c40: 6e 20 61 63 74 75 61 6c 6c 79 20 67 6f 20 61 68 n actually go ah
7c50: 65 61 64 20 61 6e 64 20 6d 61 6b 65 0a 20 20 2a ead and make. *
7c60: 2a 20 6f 70 65 72 61 74 69 6e 67 20 73 79 73 74 * operating syst
7c70: 65 6d 20 63 61 6c 6c 73 20 66 6f 72 20 74 68 65 em calls for the
7c80: 20 73 70 65 63 69 66 69 65 64 20 6c 6f 63 6b 2e specified lock.
7c90: 0a 20 20 2a 2f 0a 20 20 69 66 28 20 6c 6f 63 6b . */. if( lock
7ca0: 74 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 type==SHARED_LOC
7cb0: 4b 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74 28 K ){. assert(
7cc0: 20 70 4c 6f 63 6b 2d 3e 63 6e 74 3d 3d 30 20 29 pLock->cnt==0 )
7cd0: 3b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 4c ;. assert( pL
7ce0: 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 30 ock->locktype==0
7cf0: 20 29 3b 0a 0a 20 20 20 20 2f 2a 20 4e 6f 77 20 );.. /* Now
7d00: 67 65 74 20 74 68 65 20 72 65 61 64 2d 6c 6f 63 get the read-loc
7d10: 6b 20 2a 2f 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f k */. lock.l_
7d20: 73 74 61 72 74 20 3d 20 53 48 41 52 45 44 5f 46 start = SHARED_F
7d30: 49 52 53 54 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c IRST;. lock.l
7d40: 5f 6c 65 6e 20 3d 20 53 48 41 52 45 44 5f 53 49 _len = SHARED_SI
7d50: 5a 45 3b 0a 20 20 20 20 73 20 3d 20 66 63 6e 74 ZE;. s = fcnt
7d60: 6c 28 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b l(id->h, F_SETLK
7d70: 2c 20 26 6c 6f 63 6b 29 3b 0a 0a 20 20 20 20 2f , &lock);.. /
7d80: 2a 20 44 72 6f 70 20 74 68 65 20 74 65 6d 70 6f * Drop the tempo
7d90: 72 61 72 79 20 50 45 4e 44 49 4e 47 20 6c 6f 63 rary PENDING loc
7da0: 6b 20 2a 2f 0a 20 20 20 20 6c 6f 63 6b 2e 6c 5f k */. lock.l_
7db0: 73 74 61 72 74 20 3d 20 50 45 4e 44 49 4e 47 5f start = PENDING_
7dc0: 42 59 54 45 3b 0a 20 20 20 20 6c 6f 63 6b 2e 6c BYTE;. lock.l
7dd0: 5f 6c 65 6e 20 3d 20 31 4c 3b 0a 20 20 20 20 6c _len = 1L;. l
7de0: 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 55 ock.l_type = F_U
7df0: 4e 4c 43 4b 3b 0a 20 20 20 20 66 63 6e 74 6c 28 NLCK;. fcntl(
7e00: 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b 2c 20 id->h, F_SETLK,
7e10: 26 6c 6f 63 6b 29 3b 0a 20 20 20 20 69 66 28 20 &lock);. if(
7e20: 73 20 29 7b 0a 20 20 20 20 20 20 72 63 20 3d 20 s ){. rc =
7e30: 28 65 72 72 6e 6f 3d 3d 45 49 4e 56 41 4c 29 20 (errno==EINVAL)
7e40: 3f 20 53 51 4c 49 54 45 5f 4e 4f 4c 46 53 20 3a ? SQLITE_NOLFS :
7e50: 20 53 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20 20 SQLITE_BUSY;.
7e60: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 69 }else{. i
7e70: 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 53 48 d->locktype = SH
7e80: 41 52 45 44 5f 4c 4f 43 4b 3b 0a 20 20 20 20 20 ARED_LOCK;.
7e90: 20 69 64 2d 3e 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 id->pOpen->nLoc
7ea0: 6b 2b 2b 3b 0a 20 20 20 20 20 20 70 4c 6f 63 6b k++;. pLock
7eb0: 2d 3e 63 6e 74 20 3d 20 31 3b 0a 20 20 20 20 7d ->cnt = 1;. }
7ec0: 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 6c 6f 63 . }else if( loc
7ed0: 6b 74 79 70 65 3d 3d 45 58 43 4c 55 53 49 56 45 ktype==EXCLUSIVE
7ee0: 5f 4c 4f 43 4b 20 26 26 20 70 4c 6f 63 6b 2d 3e _LOCK && pLock->
7ef0: 63 6e 74 3e 31 20 29 7b 0a 20 20 20 20 2f 2a 20 cnt>1 ){. /*
7f00: 57 65 20 61 72 65 20 74 72 79 69 6e 67 20 66 6f We are trying fo
7f10: 72 20 61 6e 20 65 78 63 6c 75 73 69 76 65 20 6c r an exclusive l
7f20: 6f 63 6b 20 62 75 74 20 61 6e 6f 74 68 65 72 20 ock but another
7f30: 74 68 72 65 61 64 20 69 6e 20 74 68 69 73 0a 20 thread in this.
7f40: 20 20 20 2a 2a 20 73 61 6d 65 20 70 72 6f 63 65 ** same proce
7f50: 73 73 20 69 73 20 73 74 69 6c 6c 20 68 6f 6c 64 ss is still hold
7f60: 69 6e 67 20 61 20 73 68 61 72 65 64 20 6c 6f 63 ing a shared loc
7f70: 6b 2e 20 2a 2f 0a 20 20 20 20 72 63 20 3d 20 53 k. */. rc = S
7f80: 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20 20 7d 65 QLITE_BUSY;. }e
7f90: 6c 73 65 7b 0a 20 20 20 20 2f 2a 20 54 68 65 20 lse{. /* The
7fa0: 72 65 71 75 65 73 74 20 77 61 73 20 66 6f 72 20 request was for
7fb0: 61 20 52 45 53 45 52 56 45 44 20 6f 72 20 45 58 a RESERVED or EX
7fc0: 43 4c 55 53 49 56 45 20 6c 6f 63 6b 2e 20 20 49 CLUSIVE lock. I
7fd0: 74 20 69 73 0a 20 20 20 20 2a 2a 20 61 73 73 75 t is. ** assu
7fe0: 6d 65 64 20 74 68 61 74 20 74 68 65 72 65 20 69 med that there i
7ff0: 73 20 61 20 53 48 41 52 45 44 20 6f 72 20 67 72 s a SHARED or gr
8000: 65 61 74 65 72 20 6c 6f 63 6b 20 6f 6e 20 74 68 eater lock on th
8010: 65 20 66 69 6c 65 0a 20 20 20 20 2a 2a 20 61 6c e file. ** al
8020: 72 65 61 64 79 2e 0a 20 20 20 20 2a 2f 0a 20 20 ready.. */.
8030: 20 20 61 73 73 65 72 74 28 20 30 21 3d 69 64 2d assert( 0!=id-
8040: 3e 6c 6f 63 6b 74 79 70 65 20 29 3b 0a 20 20 20 >locktype );.
8050: 20 6c 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 lock.l_type = F
8060: 5f 57 52 4c 43 4b 3b 0a 20 20 20 20 73 77 69 74 _WRLCK;. swit
8070: 63 68 28 20 6c 6f 63 6b 74 79 70 65 20 29 7b 0a ch( locktype ){.
8080: 20 20 20 20 20 20 63 61 73 65 20 52 45 53 45 52 case RESER
8090: 56 45 44 5f 4c 4f 43 4b 3a 0a 20 20 20 20 20 20 VED_LOCK:.
80a0: 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 72 74 20 3d lock.l_start =
80b0: 20 52 45 53 45 52 56 45 44 5f 42 59 54 45 3b 0a RESERVED_BYTE;.
80c0: 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 break;.
80d0: 20 20 20 20 20 63 61 73 65 20 45 58 43 4c 55 53 case EXCLUS
80e0: 49 56 45 5f 4c 4f 43 4b 3a 0a 20 20 20 20 20 20 IVE_LOCK:.
80f0: 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 72 74 20 3d lock.l_start =
8100: 20 53 48 41 52 45 44 5f 46 49 52 53 54 3b 0a 20 SHARED_FIRST;.
8110: 20 20 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c 65 lock.l_le
8120: 6e 20 3d 20 53 48 41 52 45 44 5f 53 49 5a 45 3b n = SHARED_SIZE;
8130: 0a 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b 0a . break;.
8140: 20 20 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 default:.
8150: 20 20 20 20 20 20 20 61 73 73 65 72 74 28 30 29 assert(0)
8160: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 20 3d 20 ;. }. s =
8170: 66 63 6e 74 6c 28 69 64 2d 3e 68 2c 20 46 5f 53 fcntl(id->h, F_S
8180: 45 54 4c 4b 2c 20 26 6c 6f 63 6b 29 3b 0a 20 20 ETLK, &lock);.
8190: 20 20 69 66 28 20 73 20 29 7b 0a 20 20 20 20 20 if( s ){.
81a0: 20 72 63 20 3d 20 28 65 72 72 6e 6f 3d 3d 45 49 rc = (errno==EI
81b0: 4e 56 41 4c 29 20 3f 20 53 51 4c 49 54 45 5f 4e NVAL) ? SQLITE_N
81c0: 4f 4c 46 53 20 3a 20 53 51 4c 49 54 45 5f 42 55 OLFS : SQLITE_BU
81d0: 53 59 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 SY;. }. }.
81e0: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 . if( rc==SQLIT
81f0: 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 69 64 2d 3e E_OK ){. id->
8200: 6c 6f 63 6b 74 79 70 65 20 3d 20 6c 6f 63 6b 74 locktype = lockt
8210: 79 70 65 3b 0a 20 20 20 20 70 4c 6f 63 6b 2d 3e ype;. pLock->
8220: 6c 6f 63 6b 74 79 70 65 20 3d 20 6c 6f 63 6b 74 locktype = lockt
8230: 79 70 65 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 ype;. }else if(
8240: 20 6c 6f 63 6b 74 79 70 65 3d 3d 45 58 43 4c 55 locktype==EXCLU
8250: 53 49 56 45 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 SIVE_LOCK ){.
8260: 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 id->locktype =
8270: 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b 3b 0a 20 20 PENDING_LOCK;.
8280: 20 20 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 pLock->locktyp
8290: 65 20 3d 20 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b e = PENDING_LOCK
82a0: 3b 0a 20 20 7d 0a 0a 65 6e 64 5f 6c 6f 63 6b 3a ;. }..end_lock:
82b0: 0a 20 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 . sqlite3OsLeav
82c0: 65 4d 75 74 65 78 28 29 3b 0a 20 20 54 52 41 43 eMutex();. TRAC
82d0: 45 34 28 22 4c 4f 43 4b 20 25 64 20 25 73 20 25 E4("LOCK %d %s %
82e0: 73 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 6c 6f 63 s\n", id->h, loc
82f0: 6b 74 79 70 65 4e 61 6d 65 28 6c 6f 63 6b 74 79 ktypeName(lockty
8300: 70 65 29 2c 20 0a 20 20 20 20 20 20 72 63 3d 3d pe), . rc==
8310: 53 51 4c 49 54 45 5f 4f 4b 20 3f 20 22 6f 6b 22 SQLITE_OK ? "ok"
8320: 20 3a 20 22 66 61 69 6c 65 64 22 29 3b 0a 20 20 : "failed");.
8330: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a return rc;.}../*
8340: 0a 2a 2a 20 4c 6f 77 65 72 20 74 68 65 20 6c 6f .** Lower the lo
8350: 63 6b 69 6e 67 20 6c 65 76 65 6c 20 6f 6e 20 66 cking level on f
8360: 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20 69 ile descriptor i
8370: 64 20 74 6f 20 6c 6f 63 6b 74 79 70 65 2e 20 20 d to locktype.
8380: 6c 6f 63 6b 74 79 70 65 0a 2a 2a 20 6d 75 73 74 locktype.** must
8390: 20 62 65 20 65 69 74 68 65 72 20 4e 4f 5f 4c 4f be either NO_LO
83a0: 43 4b 20 6f 72 20 53 48 41 52 45 44 5f 4c 4f 43 CK or SHARED_LOC
83b0: 4b 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68 65 20 K..**.** If the
83c0: 6c 6f 63 6b 69 6e 67 20 6c 65 76 65 6c 20 6f 66 locking level of
83d0: 20 74 68 65 20 66 69 6c 65 20 64 65 73 63 72 69 the file descri
83e0: 70 74 6f 72 20 69 73 20 61 6c 72 65 61 64 79 20 ptor is already
83f0: 61 74 20 6f 72 20 62 65 6c 6f 77 0a 2a 2a 20 74 at or below.** t
8400: 68 65 20 72 65 71 75 65 73 74 65 64 20 6c 6f 63 he requested loc
8410: 6b 69 6e 67 20 6c 65 76 65 6c 2c 20 74 68 69 73 king level, this
8420: 20 72 6f 75 74 69 6e 65 20 69 73 20 61 20 6e 6f routine is a no
8430: 2d 6f 70 2e 0a 2a 2a 0a 2a 2a 20 49 74 20 69 73 -op..**.** It is
8440: 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 66 6f not possible fo
8450: 72 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 74 r this routine t
8460: 6f 20 66 61 69 6c 20 69 66 20 74 68 65 20 73 65 o fail if the se
8470: 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 0a 2a 2a cond argument.**
8480: 20 69 73 20 4e 4f 5f 4c 4f 43 4b 2e 20 20 49 66 is NO_LOCK. If
8490: 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 the second argu
84a0: 6d 65 6e 74 20 69 73 20 53 48 41 52 45 44 5f 4c ment is SHARED_L
84b0: 4f 43 4b 2c 20 74 68 69 73 20 72 6f 75 74 69 6e OCK, this routin
84c0: 65 0a 2a 2a 20 6d 69 67 68 74 20 72 65 74 75 72 e.** might retur
84d0: 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 20 69 n SQLITE_IOERR i
84e0: 6e 73 74 65 61 64 20 6f 66 20 53 51 4c 49 54 45 nstead of SQLITE
84f0: 5f 4f 4b 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 _OK..*/.int sqli
8500: 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 4f 73 46 69 te3OsUnlock(OsFi
8510: 6c 65 20 2a 69 64 2c 20 69 6e 74 20 6c 6f 63 6b le *id, int lock
8520: 74 79 70 65 29 7b 0a 20 20 73 74 72 75 63 74 20 type){. struct
8530: 6c 6f 63 6b 49 6e 66 6f 20 2a 70 4c 6f 63 6b 3b lockInfo *pLock;
8540: 0a 20 20 73 74 72 75 63 74 20 66 6c 6f 63 6b 20 . struct flock
8550: 6c 6f 63 6b 3b 0a 20 20 69 6e 74 20 72 63 20 3d lock;. int rc =
8560: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 0a 20 20 61 SQLITE_OK;.. a
8570: 73 73 65 72 74 28 20 69 64 2d 3e 69 73 4f 70 65 ssert( id->isOpe
8580: 6e 20 29 3b 0a 20 20 54 52 41 43 45 37 28 22 55 n );. TRACE7("U
8590: 4e 4c 4f 43 4b 20 25 64 20 25 64 20 77 61 73 20 NLOCK %d %d was
85a0: 25 64 28 25 64 2c 25 64 29 20 70 69 64 3d 25 64 %d(%d,%d) pid=%d
85b0: 5c 6e 22 2c 20 69 64 2d 3e 68 2c 20 6c 6f 63 6b \n", id->h, lock
85c0: 74 79 70 65 2c 20 69 64 2d 3e 6c 6f 63 6b 74 79 type, id->lockty
85d0: 70 65 2c 20 0a 20 20 20 20 20 20 69 64 2d 3e 70 pe, . id->p
85e0: 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 2c 20 Lock->locktype,
85f0: 69 64 2d 3e 70 4c 6f 63 6b 2d 3e 63 6e 74 2c 20 id->pLock->cnt,
8600: 67 65 74 70 69 64 28 29 29 3b 0a 0a 20 20 61 73 getpid());.. as
8610: 73 65 72 74 28 20 6c 6f 63 6b 74 79 70 65 3c 3d sert( locktype<=
8620: 53 48 41 52 45 44 5f 4c 4f 43 4b 20 29 3b 0a 20 SHARED_LOCK );.
8630: 20 69 66 28 20 69 64 2d 3e 6c 6f 63 6b 74 79 70 if( id->locktyp
8640: 65 3c 3d 6c 6f 63 6b 74 79 70 65 20 29 7b 0a 20 e<=locktype ){.
8650: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 return SQLITE
8660: 5f 4f 4b 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 _OK;. }. sqlit
8670: 65 33 4f 73 45 6e 74 65 72 4d 75 74 65 78 28 29 e3OsEnterMutex()
8680: 3b 0a 20 20 70 4c 6f 63 6b 20 3d 20 69 64 2d 3e ;. pLock = id->
8690: 70 4c 6f 63 6b 3b 0a 20 20 61 73 73 65 72 74 28 pLock;. assert(
86a0: 20 70 4c 6f 63 6b 2d 3e 63 6e 74 21 3d 30 20 29 pLock->cnt!=0 )
86b0: 3b 0a 20 20 69 66 28 20 69 64 2d 3e 6c 6f 63 6b ;. if( id->lock
86c0: 74 79 70 65 3e 53 48 41 52 45 44 5f 4c 4f 43 4b type>SHARED_LOCK
86d0: 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74 28 20 ){. assert(
86e0: 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 3d pLock->locktype=
86f0: 3d 69 64 2d 3e 6c 6f 63 6b 74 79 70 65 20 29 3b =id->locktype );
8700: 0a 20 20 20 20 69 66 28 20 6c 6f 63 6b 74 79 70 . if( locktyp
8710: 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 4b 20 29 e==SHARED_LOCK )
8720: 7b 0a 20 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 74 {. lock.l_t
8730: 79 70 65 20 3d 20 46 5f 52 44 4c 43 4b 3b 0a 20 ype = F_RDLCK;.
8740: 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 77 68 65 6e lock.l_when
8750: 63 65 20 3d 20 53 45 45 4b 5f 53 45 54 3b 0a 20 ce = SEEK_SET;.
8760: 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 73 74 61 72 lock.l_star
8770: 74 20 3d 20 53 48 41 52 45 44 5f 46 49 52 53 54 t = SHARED_FIRST
8780: 3b 0a 20 20 20 20 20 20 6c 6f 63 6b 2e 6c 5f 6c ;. lock.l_l
8790: 65 6e 20 3d 20 53 48 41 52 45 44 5f 53 49 5a 45 en = SHARED_SIZE
87a0: 3b 0a 20 20 20 20 20 20 69 66 28 20 66 63 6e 74 ;. if( fcnt
87b0: 6c 28 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b l(id->h, F_SETLK
87c0: 2c 20 26 6c 6f 63 6b 29 21 3d 30 20 29 7b 0a 20 , &lock)!=0 ){.
87d0: 20 20 20 20 20 20 20 2f 2a 20 54 68 69 73 20 73 /* This s
87e0: 68 6f 75 6c 64 20 6e 65 76 65 72 20 68 61 70 70 hould never happ
87f0: 65 6e 20 2a 2f 0a 20 20 20 20 20 20 20 20 72 63 en */. rc
8800: 20 3d 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b = SQLITE_IOERR;
8810: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
8820: 20 20 20 6c 6f 63 6b 2e 6c 5f 74 79 70 65 20 3d lock.l_type =
8830: 20 46 5f 55 4e 4c 43 4b 3b 0a 20 20 20 20 6c 6f F_UNLCK;. lo
8840: 63 6b 2e 6c 5f 77 68 65 6e 63 65 20 3d 20 53 45 ck.l_whence = SE
8850: 45 4b 5f 53 45 54 3b 0a 20 20 20 20 6c 6f 63 6b EK_SET;. lock
8860: 2e 6c 5f 73 74 61 72 74 20 3d 20 50 45 4e 44 49 .l_start = PENDI
8870: 4e 47 5f 42 59 54 45 3b 0a 20 20 20 20 6c 6f 63 NG_BYTE;. loc
8880: 6b 2e 6c 5f 6c 65 6e 20 3d 20 32 4c 3b 20 20 61 k.l_len = 2L; a
8890: 73 73 65 72 74 28 20 50 45 4e 44 49 4e 47 5f 42 ssert( PENDING_B
88a0: 59 54 45 2b 31 3d 3d 52 45 53 45 52 56 45 44 5f YTE+1==RESERVED_
88b0: 42 59 54 45 20 29 3b 0a 20 20 20 20 66 63 6e 74 BYTE );. fcnt
88c0: 6c 28 69 64 2d 3e 68 2c 20 46 5f 53 45 54 4c 4b l(id->h, F_SETLK
88d0: 2c 20 26 6c 6f 63 6b 29 3b 0a 20 20 20 20 70 4c , &lock);. pL
88e0: 6f 63 6b 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 ock->locktype =
88f0: 53 48 41 52 45 44 5f 4c 4f 43 4b 3b 0a 20 20 7d SHARED_LOCK;. }
8900: 0a 20 20 69 66 28 20 6c 6f 63 6b 74 79 70 65 3d . if( locktype=
8910: 3d 4e 4f 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 =NO_LOCK ){.
8920: 73 74 72 75 63 74 20 6f 70 65 6e 43 6e 74 20 2a struct openCnt *
8930: 70 4f 70 65 6e 3b 0a 0a 20 20 20 20 2f 2a 20 44 pOpen;.. /* D
8940: 65 63 72 65 6d 65 6e 74 20 74 68 65 20 73 68 61 ecrement the sha
8950: 72 65 64 20 6c 6f 63 6b 20 63 6f 75 6e 74 65 72 red lock counter
8960: 2e 20 20 52 65 6c 65 61 73 65 20 74 68 65 20 6c . Release the l
8970: 6f 63 6b 20 75 73 69 6e 67 20 61 6e 0a 20 20 20 ock using an.
8980: 20 2a 2a 20 4f 53 20 63 61 6c 6c 20 6f 6e 6c 79 ** OS call only
8990: 20 77 68 65 6e 20 61 6c 6c 20 74 68 72 65 61 64 when all thread
89a0: 73 20 69 6e 20 74 68 69 73 20 73 61 6d 65 20 70 s in this same p
89b0: 72 6f 63 65 73 73 20 68 61 76 65 20 72 65 6c 65 rocess have rele
89c0: 61 73 65 64 0a 20 20 20 20 2a 2a 20 74 68 65 20 ased. ** the
89d0: 6c 6f 63 6b 2e 0a 20 20 20 20 2a 2f 0a 20 20 20 lock.. */.
89e0: 20 70 4c 6f 63 6b 2d 3e 63 6e 74 2d 2d 3b 0a 20 pLock->cnt--;.
89f0: 20 20 20 69 66 28 20 70 4c 6f 63 6b 2d 3e 63 6e if( pLock->cn
8a00: 74 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 6c 6f t==0 ){. lo
8a10: 63 6b 2e 6c 5f 74 79 70 65 20 3d 20 46 5f 55 4e ck.l_type = F_UN
8a20: 4c 43 4b 3b 0a 20 20 20 20 20 20 6c 6f 63 6b 2e LCK;. lock.
8a30: 6c 5f 77 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f l_whence = SEEK_
8a40: 53 45 54 3b 0a 20 20 20 20 20 20 6c 6f 63 6b 2e SET;. lock.
8a50: 6c 5f 73 74 61 72 74 20 3d 20 6c 6f 63 6b 2e 6c l_start = lock.l
8a60: 5f 6c 65 6e 20 3d 20 30 4c 3b 0a 20 20 20 20 20 _len = 0L;.
8a70: 20 66 63 6e 74 6c 28 69 64 2d 3e 68 2c 20 46 5f fcntl(id->h, F_
8a80: 53 45 54 4c 4b 2c 20 26 6c 6f 63 6b 29 3b 0a 20 SETLK, &lock);.
8a90: 20 20 20 20 20 70 4c 6f 63 6b 2d 3e 6c 6f 63 6b pLock->lock
8aa0: 74 79 70 65 20 3d 20 4e 4f 5f 4c 4f 43 4b 3b 0a type = NO_LOCK;.
8ab0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 }.. /* De
8ac0: 63 72 65 6d 65 6e 74 20 74 68 65 20 63 6f 75 6e crement the coun
8ad0: 74 20 6f 66 20 6c 6f 63 6b 73 20 61 67 61 69 6e t of locks again
8ae0: 73 74 20 74 68 69 73 20 73 61 6d 65 20 66 69 6c st this same fil
8af0: 65 2e 20 20 57 68 65 6e 20 74 68 65 0a 20 20 20 e. When the.
8b00: 20 2a 2a 20 63 6f 75 6e 74 20 72 65 61 63 68 65 ** count reache
8b10: 73 20 7a 65 72 6f 2c 20 63 6c 6f 73 65 20 61 6e s zero, close an
8b20: 79 20 6f 74 68 65 72 20 66 69 6c 65 20 64 65 73 y other file des
8b30: 63 72 69 70 74 6f 72 73 20 77 68 6f 73 65 20 63 criptors whose c
8b40: 6c 6f 73 65 0a 20 20 20 20 2a 2a 20 77 61 73 20 lose. ** was
8b50: 64 65 66 65 72 72 65 64 20 62 65 63 61 75 73 65 deferred because
8b60: 20 6f 66 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 of outstanding
8b70: 6c 6f 63 6b 73 2e 0a 20 20 20 20 2a 2f 0a 20 20 locks.. */.
8b80: 20 20 70 4f 70 65 6e 20 3d 20 69 64 2d 3e 70 4f pOpen = id->pO
8b90: 70 65 6e 3b 0a 20 20 20 20 70 4f 70 65 6e 2d 3e pen;. pOpen->
8ba0: 6e 4c 6f 63 6b 2d 2d 3b 0a 20 20 20 20 61 73 73 nLock--;. ass
8bb0: 65 72 74 28 20 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 ert( pOpen->nLoc
8bc0: 6b 3e 3d 30 20 29 3b 0a 20 20 20 20 69 66 28 20 k>=0 );. if(
8bd0: 70 4f 70 65 6e 2d 3e 6e 4c 6f 63 6b 3d 3d 30 20 pOpen->nLock==0
8be0: 26 26 20 70 4f 70 65 6e 2d 3e 6e 50 65 6e 64 69 && pOpen->nPendi
8bf0: 6e 67 3e 30 20 29 7b 0a 20 20 20 20 20 20 69 6e ng>0 ){. in
8c00: 74 20 69 3b 0a 20 20 20 20 20 20 66 6f 72 28 69 t i;. for(i
8c10: 3d 30 3b 20 69 3c 70 4f 70 65 6e 2d 3e 6e 50 65 =0; i<pOpen->nPe
8c20: 6e 64 69 6e 67 3b 20 69 2b 2b 29 7b 0a 20 20 20 nding; i++){.
8c30: 20 20 20 20 20 63 6c 6f 73 65 28 70 4f 70 65 6e close(pOpen
8c40: 2d 3e 61 50 65 6e 64 69 6e 67 5b 69 5d 29 3b 0a ->aPending[i]);.
8c50: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 71 }. sq
8c60: 6c 69 74 65 46 72 65 65 28 70 4f 70 65 6e 2d 3e liteFree(pOpen->
8c70: 61 50 65 6e 64 69 6e 67 29 3b 0a 20 20 20 20 20 aPending);.
8c80: 20 70 4f 70 65 6e 2d 3e 6e 50 65 6e 64 69 6e 67 pOpen->nPending
8c90: 20 3d 20 30 3b 0a 20 20 20 20 20 20 70 4f 70 65 = 0;. pOpe
8ca0: 6e 2d 3e 61 50 65 6e 64 69 6e 67 20 3d 20 30 3b n->aPending = 0;
8cb0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 71 6c . }. }. sql
8cc0: 69 74 65 33 4f 73 4c 65 61 76 65 4d 75 74 65 78 ite3OsLeaveMutex
8cd0: 28 29 3b 0a 20 20 69 64 2d 3e 6c 6f 63 6b 74 79 ();. id->lockty
8ce0: 70 65 20 3d 20 6c 6f 63 6b 74 79 70 65 3b 0a 20 pe = locktype;.
8cf0: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f return rc;.}../
8d00: 2a 0a 2a 2a 20 43 6c 6f 73 65 20 61 20 66 69 6c *.** Close a fil
8d10: 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 e..*/.int sqlite
8d20: 33 4f 73 43 6c 6f 73 65 28 4f 73 46 69 6c 65 20 3OsClose(OsFile
8d30: 2a 69 64 29 7b 0a 20 20 69 66 28 20 21 69 64 2d *id){. if( !id-
8d40: 3e 69 73 4f 70 65 6e 20 29 20 72 65 74 75 72 6e >isOpen ) return
8d50: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 73 71 SQLITE_OK;. sq
8d60: 6c 69 74 65 33 4f 73 55 6e 6c 6f 63 6b 28 69 64 lite3OsUnlock(id
8d70: 2c 20 4e 4f 5f 4c 4f 43 4b 29 3b 0a 20 20 69 66 , NO_LOCK);. if
8d80: 28 20 69 64 2d 3e 64 69 72 66 64 3e 3d 30 20 29 ( id->dirfd>=0 )
8d90: 20 63 6c 6f 73 65 28 69 64 2d 3e 64 69 72 66 64 close(id->dirfd
8da0: 29 3b 0a 20 20 69 64 2d 3e 64 69 72 66 64 20 3d );. id->dirfd =
8db0: 20 2d 31 3b 0a 20 20 73 71 6c 69 74 65 33 4f 73 -1;. sqlite3Os
8dc0: 45 6e 74 65 72 4d 75 74 65 78 28 29 3b 0a 20 20 EnterMutex();.
8dd0: 69 66 28 20 69 64 2d 3e 70 4f 70 65 6e 2d 3e 6e if( id->pOpen->n
8de0: 4c 6f 63 6b 20 29 7b 0a 20 20 20 20 2f 2a 20 49 Lock ){. /* I
8df0: 66 20 74 68 65 72 65 20 61 72 65 20 6f 75 74 73 f there are outs
8e00: 74 61 6e 64 69 6e 67 20 6c 6f 63 6b 73 2c 20 64 tanding locks, d
8e10: 6f 20 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 63 o not actually c
8e20: 6c 6f 73 65 20 74 68 65 20 66 69 6c 65 20 6a 75 lose the file ju
8e30: 73 74 0a 20 20 20 20 2a 2a 20 79 65 74 20 62 65 st. ** yet be
8e40: 63 61 75 73 65 20 74 68 61 74 20 77 6f 75 6c 64 cause that would
8e50: 20 63 6c 65 61 72 20 74 68 6f 73 65 20 6c 6f 63 clear those loc
8e60: 6b 73 2e 20 20 49 6e 73 74 65 61 64 2c 20 61 64 ks. Instead, ad
8e70: 64 20 74 68 65 20 66 69 6c 65 0a 20 20 20 20 2a d the file. *
8e80: 2a 20 64 65 73 63 72 69 70 74 6f 72 20 74 6f 20 * descriptor to
8e90: 70 4f 70 65 6e 2d 3e 61 50 65 6e 64 69 6e 67 2e pOpen->aPending.
8ea0: 20 20 49 74 20 77 69 6c 6c 20 62 65 20 61 75 74 It will be aut
8eb0: 6f 6d 61 74 69 63 61 6c 6c 79 20 63 6c 6f 73 65 omatically close
8ec0: 64 20 77 68 65 6e 0a 20 20 20 20 2a 2a 20 74 68 d when. ** th
8ed0: 65 20 6c 61 73 74 20 6c 6f 63 6b 20 69 73 20 63 e last lock is c
8ee0: 6c 65 61 72 65 64 2e 0a 20 20 20 20 2a 2f 0a 20 leared.. */.
8ef0: 20 20 20 69 6e 74 20 2a 61 4e 65 77 3b 0a 20 20 int *aNew;.
8f00: 20 20 73 74 72 75 63 74 20 6f 70 65 6e 43 6e 74 struct openCnt
8f10: 20 2a 70 4f 70 65 6e 20 3d 20 69 64 2d 3e 70 4f *pOpen = id->pO
8f20: 70 65 6e 3b 0a 20 20 20 20 70 4f 70 65 6e 2d 3e pen;. pOpen->
8f30: 6e 50 65 6e 64 69 6e 67 2b 2b 3b 0a 20 20 20 20 nPending++;.
8f40: 61 4e 65 77 20 3d 20 73 71 6c 69 74 65 52 65 61 aNew = sqliteRea
8f50: 6c 6c 6f 63 28 20 70 4f 70 65 6e 2d 3e 61 50 65 lloc( pOpen->aPe
8f60: 6e 64 69 6e 67 2c 20 70 4f 70 65 6e 2d 3e 6e 50 nding, pOpen->nP
8f70: 65 6e 64 69 6e 67 2a 73 69 7a 65 6f 66 28 69 6e ending*sizeof(in
8f80: 74 29 20 29 3b 0a 20 20 20 20 69 66 28 20 61 4e t) );. if( aN
8f90: 65 77 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 2f ew==0 ){. /
8fa0: 2a 20 49 66 20 61 20 6d 61 6c 6c 6f 63 20 66 61 * If a malloc fa
8fb0: 69 6c 73 2c 20 6a 75 73 74 20 6c 65 61 6b 20 74 ils, just leak t
8fc0: 68 65 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 he file descript
8fd0: 6f 72 20 2a 2f 0a 20 20 20 20 7d 65 6c 73 65 7b or */. }else{
8fe0: 0a 20 20 20 20 20 20 70 4f 70 65 6e 2d 3e 61 50 . pOpen->aP
8ff0: 65 6e 64 69 6e 67 20 3d 20 61 4e 65 77 3b 0a 20 ending = aNew;.
9000: 20 20 20 20 20 70 4f 70 65 6e 2d 3e 61 50 65 6e pOpen->aPen
9010: 64 69 6e 67 5b 70 4f 70 65 6e 2d 3e 6e 50 65 6e ding[pOpen->nPen
9020: 64 69 6e 67 2d 31 5d 20 3d 20 69 64 2d 3e 68 3b ding-1] = id->h;
9030: 0a 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 7b 0a . }. }else{.
9040: 20 20 20 20 2f 2a 20 54 68 65 72 65 20 61 72 65 /* There are
9050: 20 6e 6f 20 6f 75 74 73 74 61 6e 64 69 6e 67 20 no outstanding
9060: 6c 6f 63 6b 73 20 73 6f 20 77 65 20 63 61 6e 20 locks so we can
9070: 63 6c 6f 73 65 20 74 68 65 20 66 69 6c 65 20 69 close the file i
9080: 6d 6d 65 64 69 61 74 65 6c 79 20 2a 2f 0a 20 20 mmediately */.
9090: 20 20 63 6c 6f 73 65 28 69 64 2d 3e 68 29 3b 0a close(id->h);.
90a0: 20 20 7d 0a 20 20 72 65 6c 65 61 73 65 4c 6f 63 }. releaseLoc
90b0: 6b 49 6e 66 6f 28 69 64 2d 3e 70 4c 6f 63 6b 29 kInfo(id->pLock)
90c0: 3b 0a 20 20 72 65 6c 65 61 73 65 4f 70 65 6e 43 ;. releaseOpenC
90d0: 6e 74 28 69 64 2d 3e 70 4f 70 65 6e 29 3b 0a 20 nt(id->pOpen);.
90e0: 20 73 71 6c 69 74 65 33 4f 73 4c 65 61 76 65 4d sqlite3OsLeaveM
90f0: 75 74 65 78 28 29 3b 0a 20 20 69 64 2d 3e 69 73 utex();. id->is
9100: 4f 70 65 6e 20 3d 20 30 3b 0a 20 20 54 52 41 43 Open = 0;. TRAC
9110: 45 32 28 22 43 4c 4f 53 45 20 20 20 25 2d 33 64 E2("CLOSE %-3d
9120: 5c 6e 22 2c 20 69 64 2d 3e 68 29 3b 0a 20 20 4f \n", id->h);. O
9130: 70 65 6e 43 6f 75 6e 74 65 72 28 2d 31 29 3b 0a penCounter(-1);.
9140: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f return SQLITE_
9150: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 74 OK;.}../*.** Get
9160: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 information to
9170: 73 65 65 64 20 74 68 65 20 72 61 6e 64 6f 6d 20 seed the random
9180: 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 74 6f 72 number generator
9190: 2e 20 20 54 68 65 20 73 65 65 64 0a 2a 2a 20 69 . The seed.** i
91a0: 73 20 77 72 69 74 74 65 6e 20 69 6e 74 6f 20 74 s written into t
91b0: 68 65 20 62 75 66 66 65 72 20 7a 42 75 66 5b 32 he buffer zBuf[2
91c0: 35 36 5d 2e 20 20 54 68 65 20 63 61 6c 6c 69 6e 56]. The callin
91d0: 67 20 66 75 6e 63 74 69 6f 6e 20 6d 75 73 74 0a g function must.
91e0: 2a 2a 20 73 75 70 70 6c 79 20 61 20 73 75 66 66 ** supply a suff
91f0: 69 63 69 65 6e 74 6c 79 20 6c 61 72 67 65 20 62 iciently large b
9200: 75 66 66 65 72 2e 0a 2a 2f 0a 69 6e 74 20 73 71 uffer..*/.int sq
9210: 6c 69 74 65 33 4f 73 52 61 6e 64 6f 6d 53 65 65 lite3OsRandomSee
9220: 64 28 63 68 61 72 20 2a 7a 42 75 66 29 7b 0a 20 d(char *zBuf){.
9230: 20 2f 2a 20 57 65 20 68 61 76 65 20 74 6f 20 69 /* We have to i
9240: 6e 69 74 69 61 6c 69 7a 65 20 7a 42 75 66 20 74 nitialize zBuf t
9250: 6f 20 70 72 65 76 65 6e 74 20 76 61 6c 67 72 69 o prevent valgri
9260: 6e 64 20 66 72 6f 6d 20 72 65 70 6f 72 74 69 6e nd from reportin
9270: 67 0a 20 20 2a 2a 20 65 72 72 6f 72 73 2e 20 20 g. ** errors.
9280: 54 68 65 20 72 65 70 6f 72 74 73 20 69 73 73 75 The reports issu
9290: 65 64 20 62 79 20 76 61 6c 67 72 69 6e 64 20 61 ed by valgrind a
92a0: 72 65 20 69 6e 63 6f 72 72 65 63 74 20 2d 20 77 re incorrect - w
92b0: 65 20 77 6f 75 6c 64 0a 20 20 2a 2a 20 70 72 65 e would. ** pre
92c0: 66 65 72 20 74 68 61 74 20 74 68 65 20 72 61 6e fer that the ran
92d0: 64 6f 6d 6e 65 73 73 20 62 65 20 69 6e 63 72 65 domness be incre
92e0: 61 73 65 64 20 62 79 20 6d 61 6b 69 6e 67 20 75 ased by making u
92f0: 73 65 20 6f 66 20 74 68 65 0a 20 20 2a 2a 20 75 se of the. ** u
9300: 6e 69 6e 69 74 69 61 6c 69 7a 65 64 20 73 70 61 ninitialized spa
9310: 63 65 20 69 6e 20 7a 42 75 66 20 2d 20 62 75 74 ce in zBuf - but
9320: 20 76 61 6c 67 72 69 6e 64 20 65 72 72 6f 72 73 valgrind errors
9330: 20 74 65 6e 64 20 74 6f 20 77 6f 72 72 79 0a 20 tend to worry.
9340: 20 2a 2a 20 73 6f 6d 65 20 75 73 65 72 73 2e 20 ** some users.
9350: 20 52 61 74 68 65 72 20 74 68 61 6e 20 61 72 67 Rather than arg
9360: 75 65 2c 20 69 74 20 73 65 65 6d 73 20 65 61 73 ue, it seems eas
9370: 69 65 72 20 6a 75 73 74 20 74 6f 20 69 6e 69 74 ier just to init
9380: 69 61 6c 69 7a 65 0a 20 20 2a 2a 20 74 68 65 20 ialize. ** the
9390: 77 68 6f 6c 65 20 61 72 72 61 79 20 61 6e 64 20 whole array and
93a0: 73 69 6c 65 6e 63 65 20 76 61 6c 67 72 69 6e 64 silence valgrind
93b0: 2c 20 65 76 65 6e 20 69 66 20 74 68 61 74 20 6d , even if that m
93c0: 65 61 6e 73 20 6c 65 73 73 20 72 61 6e 64 6f 6d eans less random
93d0: 6e 65 73 73 0a 20 20 2a 2a 20 69 6e 20 74 68 65 ness. ** in the
93e0: 20 72 61 6e 64 6f 6d 20 73 65 65 64 2e 0a 20 20 random seed..
93f0: 2a 2a 0a 20 20 2a 2a 20 57 68 65 6e 20 74 65 73 **. ** When tes
9400: 74 69 6e 67 2c 20 69 6e 69 74 69 61 6c 69 7a 69 ting, initializi
9410: 6e 67 20 7a 42 75 66 5b 5d 20 74 6f 20 7a 65 72 ng zBuf[] to zer
9420: 6f 20 69 73 20 61 6c 6c 20 77 65 20 64 6f 2e 20 o is all we do.
9430: 20 54 68 61 74 20 6d 65 61 6e 73 0a 20 20 2a 2a That means. **
9440: 20 74 68 61 74 20 77 65 20 61 6c 77 61 79 73 20 that we always
9450: 75 73 65 20 74 68 65 20 73 61 6d 65 20 72 61 6e use the same ran
9460: 64 6f 6d 20 6e 75 6d 62 65 72 20 73 65 71 75 65 dom number seque
9470: 6e 63 65 2e 2a 20 54 68 69 73 20 6d 61 6b 65 73 nce.* This makes
9480: 20 74 68 65 0a 20 20 2a 2a 20 74 65 73 74 73 20 the. ** tests
9490: 72 65 70 65 61 74 61 62 6c 65 2e 0a 20 20 2a 2f repeatable.. */
94a0: 0a 20 20 6d 65 6d 73 65 74 28 7a 42 75 66 2c 20 . memset(zBuf,
94b0: 30 2c 20 32 35 36 29 3b 0a 23 69 66 20 21 64 65 0, 256);.#if !de
94c0: 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 54 45 53 fined(SQLITE_TES
94d0: 54 29 0a 20 20 7b 0a 20 20 20 20 69 6e 74 20 70 T). {. int p
94e0: 69 64 2c 20 66 64 3b 0a 20 20 20 20 66 64 20 3d id, fd;. fd =
94f0: 20 6f 70 65 6e 28 22 2f 64 65 76 2f 75 72 61 6e open("/dev/uran
9500: 64 6f 6d 22 2c 20 4f 5f 52 44 4f 4e 4c 59 29 3b dom", O_RDONLY);
9510: 0a 20 20 20 20 69 66 28 20 66 64 3c 30 20 29 7b . if( fd<0 ){
9520: 0a 20 20 20 20 20 20 74 69 6d 65 28 28 74 69 6d . time((tim
9530: 65 5f 74 2a 29 7a 42 75 66 29 3b 0a 20 20 20 20 e_t*)zBuf);.
9540: 20 20 70 69 64 20 3d 20 67 65 74 70 69 64 28 29 pid = getpid()
9550: 3b 0a 20 20 20 20 20 20 6d 65 6d 63 70 79 28 26 ;. memcpy(&
9560: 7a 42 75 66 5b 73 69 7a 65 6f 66 28 74 69 6d 65 zBuf[sizeof(time
9570: 5f 74 29 5d 2c 20 26 70 69 64 2c 20 73 69 7a 65 _t)], &pid, size
9580: 6f 66 28 70 69 64 29 29 3b 0a 20 20 20 20 7d 65 of(pid));. }e
9590: 6c 73 65 7b 0a 20 20 20 20 20 20 72 65 61 64 28 lse{. read(
95a0: 66 64 2c 20 7a 42 75 66 2c 20 32 35 36 29 3b 0a fd, zBuf, 256);.
95b0: 20 20 20 20 20 20 63 6c 6f 73 65 28 66 64 29 3b close(fd);
95c0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 23 65 6e 64 69 . }. }.#endi
95d0: 66 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 f. return SQLIT
95e0: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 E_OK;.}../*.** S
95f0: 6c 65 65 70 20 66 6f 72 20 61 20 6c 69 74 74 6c leep for a littl
9600: 65 20 77 68 69 6c 65 2e 20 20 52 65 74 75 72 6e e while. Return
9610: 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 74 the amount of t
9620: 69 6d 65 20 73 6c 65 70 74 2e 0a 2a 2f 0a 69 6e ime slept..*/.in
9630: 74 20 73 71 6c 69 74 65 33 4f 73 53 6c 65 65 70 t sqlite3OsSleep
9640: 28 69 6e 74 20 6d 73 29 7b 0a 23 69 66 20 64 65 (int ms){.#if de
9650: 66 69 6e 65 64 28 48 41 56 45 5f 55 53 4c 45 45 fined(HAVE_USLEE
9660: 50 29 20 26 26 20 48 41 56 45 5f 55 53 4c 45 45 P) && HAVE_USLEE
9670: 50 0a 20 20 75 73 6c 65 65 70 28 6d 73 2a 31 30 P. usleep(ms*10
9680: 30 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 6d 73 00);. return ms
9690: 3b 0a 23 65 6c 73 65 0a 20 20 73 6c 65 65 70 28 ;.#else. sleep(
96a0: 28 6d 73 2b 39 39 39 29 2f 31 30 30 30 29 3b 0a (ms+999)/1000);.
96b0: 20 20 72 65 74 75 72 6e 20 31 30 30 30 2a 28 28 return 1000*((
96c0: 6d 73 2b 39 39 39 29 2f 31 30 30 30 29 3b 0a 23 ms+999)/1000);.#
96d0: 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 endif.}../*.** S
96e0: 74 61 74 69 63 20 76 61 72 69 61 62 6c 65 73 20 tatic variables
96f0: 75 73 65 64 20 66 6f 72 20 74 68 72 65 61 64 20 used for thread
9700: 73 79 6e 63 68 72 6f 6e 69 7a 61 74 69 6f 6e 0a synchronization.
9710: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 69 6e */.static int in
9720: 4d 75 74 65 78 20 3d 20 30 3b 0a 23 69 66 64 65 Mutex = 0;.#ifde
9730: 66 20 53 51 4c 49 54 45 5f 55 4e 49 58 5f 54 48 f SQLITE_UNIX_TH
9740: 52 45 41 44 53 0a 73 74 61 74 69 63 20 70 74 68 READS.static pth
9750: 72 65 61 64 5f 6d 75 74 65 78 5f 74 20 6d 75 74 read_mutex_t mut
9760: 65 78 20 3d 20 50 54 48 52 45 41 44 5f 4d 55 54 ex = PTHREAD_MUT
9770: 45 58 5f 49 4e 49 54 49 41 4c 49 5a 45 52 3b 0a EX_INITIALIZER;.
9780: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 #endif../*.** Th
9790: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 61 69 72 e following pair
97a0: 20 6f 66 20 72 6f 75 74 69 6e 65 20 69 6d 70 6c of routine impl
97b0: 65 6d 65 6e 74 20 6d 75 74 75 61 6c 20 65 78 63 ement mutual exc
97c0: 6c 75 73 69 6f 6e 20 66 6f 72 0a 2a 2a 20 6d 75 lusion for.** mu
97d0: 6c 74 69 2d 74 68 72 65 61 64 65 64 20 70 72 6f lti-threaded pro
97e0: 63 65 73 73 65 73 2e 20 20 4f 6e 6c 79 20 61 20 cesses. Only a
97f0: 73 69 6e 67 6c 65 20 74 68 72 65 61 64 20 69 73 single thread is
9800: 20 61 6c 6c 6f 77 65 64 20 74 6f 0a 2a 2a 20 65 allowed to.** e
9810: 78 65 63 75 74 65 64 20 63 6f 64 65 20 74 68 61 xecuted code tha
9820: 74 20 69 73 20 73 75 72 72 6f 75 6e 64 65 64 20 t is surrounded
9830: 62 79 20 45 6e 74 65 72 4d 75 74 65 78 28 29 20 by EnterMutex()
9840: 61 6e 64 20 4c 65 61 76 65 4d 75 74 65 78 28 29 and LeaveMutex()
9850: 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 69 74 65 20 75 ..**.** SQLite u
9860: 73 65 73 20 6f 6e 6c 79 20 61 20 73 69 6e 67 6c ses only a singl
9870: 65 20 4d 75 74 65 78 2e 20 20 54 68 65 72 65 20 e Mutex. There
9880: 69 73 20 6e 6f 74 20 6d 75 63 68 20 63 72 69 74 is not much crit
9890: 69 63 61 6c 0a 2a 2a 20 63 6f 64 65 20 61 6e 64 ical.** code and
98a0: 20 77 68 61 74 20 6c 69 74 74 6c 65 20 74 68 65 what little the
98b0: 72 65 20 69 73 20 65 78 65 63 75 74 65 73 20 71 re is executes q
98c0: 75 69 63 6b 6c 79 20 61 6e 64 20 77 69 74 68 6f uickly and witho
98d0: 75 74 20 62 6c 6f 63 6b 69 6e 67 2e 0a 2a 2f 0a ut blocking..*/.
98e0: 76 6f 69 64 20 73 71 6c 69 74 65 33 4f 73 45 6e void sqlite3OsEn
98f0: 74 65 72 4d 75 74 65 78 28 29 7b 0a 23 69 66 64 terMutex(){.#ifd
9900: 65 66 20 53 51 4c 49 54 45 5f 55 4e 49 58 5f 54 ef SQLITE_UNIX_T
9910: 48 52 45 41 44 53 0a 20 20 70 74 68 72 65 61 64 HREADS. pthread
9920: 5f 6d 75 74 65 78 5f 6c 6f 63 6b 28 26 6d 75 74 _mutex_lock(&mut
9930: 65 78 29 3b 0a 23 65 6e 64 69 66 0a 20 20 61 73 ex);.#endif. as
9940: 73 65 72 74 28 20 21 69 6e 4d 75 74 65 78 20 29 sert( !inMutex )
9950: 3b 0a 20 20 69 6e 4d 75 74 65 78 20 3d 20 31 3b ;. inMutex = 1;
9960: 0a 7d 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 4f .}.void sqlite3O
9970: 73 4c 65 61 76 65 4d 75 74 65 78 28 29 7b 0a 20 sLeaveMutex(){.
9980: 20 61 73 73 65 72 74 28 20 69 6e 4d 75 74 65 78 assert( inMutex
9990: 20 29 3b 0a 20 20 69 6e 4d 75 74 65 78 20 3d 20 );. inMutex =
99a0: 30 3b 0a 23 69 66 64 65 66 20 53 51 4c 49 54 45 0;.#ifdef SQLITE
99b0: 5f 55 4e 49 58 5f 54 48 52 45 41 44 53 0a 20 20 _UNIX_THREADS.
99c0: 70 74 68 72 65 61 64 5f 6d 75 74 65 78 5f 75 6e pthread_mutex_un
99d0: 6c 6f 63 6b 28 26 6d 75 74 65 78 29 3b 0a 23 65 lock(&mutex);.#e
99e0: 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 75 ndif.}../*.** Tu
99f0: 72 6e 20 61 20 72 65 6c 61 74 69 76 65 20 70 61 rn a relative pa
9a00: 74 68 6e 61 6d 65 20 69 6e 74 6f 20 61 20 66 75 thname into a fu
9a10: 6c 6c 20 70 61 74 68 6e 61 6d 65 2e 20 20 52 65 ll pathname. Re
9a20: 74 75 72 6e 20 61 20 70 6f 69 6e 74 65 72 0a 2a turn a pointer.*
9a30: 2a 20 74 6f 20 74 68 65 20 66 75 6c 6c 20 70 61 * to the full pa
9a40: 74 68 6e 61 6d 65 20 73 74 6f 72 65 64 20 69 6e thname stored in
9a50: 20 73 70 61 63 65 20 6f 62 74 61 69 6e 65 64 20 space obtained
9a60: 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c 6c 6f from sqliteMallo
9a70: 63 28 29 2e 0a 2a 2a 20 54 68 65 20 63 61 6c 6c c()..** The call
9a80: 69 6e 67 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 ing function is
9a90: 72 65 73 70 6f 6e 73 69 62 6c 65 20 66 6f 72 20 responsible for
9aa0: 66 72 65 65 69 6e 67 20 74 68 69 73 20 73 70 61 freeing this spa
9ab0: 63 65 20 6f 6e 63 65 20 69 74 0a 2a 2a 20 69 73 ce once it.** is
9ac0: 20 6e 6f 20 6c 6f 6e 67 65 72 20 6e 65 65 64 65 no longer neede
9ad0: 64 2e 0a 2a 2f 0a 63 68 61 72 20 2a 73 71 6c 69 d..*/.char *sqli
9ae0: 74 65 33 4f 73 46 75 6c 6c 50 61 74 68 6e 61 6d te3OsFullPathnam
9af0: 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 52 e(const char *zR
9b00: 65 6c 61 74 69 76 65 29 7b 0a 20 20 63 68 61 72 elative){. char
9b10: 20 2a 7a 46 75 6c 6c 20 3d 20 30 3b 0a 20 20 69 *zFull = 0;. i
9b20: 66 28 20 7a 52 65 6c 61 74 69 76 65 5b 30 5d 3d f( zRelative[0]=
9b30: 3d 27 2f 27 20 29 7b 0a 20 20 20 20 73 71 6c 69 ='/' ){. sqli
9b40: 74 65 33 53 65 74 53 74 72 69 6e 67 28 26 7a 46 te3SetString(&zF
9b50: 75 6c 6c 2c 20 7a 52 65 6c 61 74 69 76 65 2c 20 ull, zRelative,
9b60: 28 63 68 61 72 2a 29 30 29 3b 0a 20 20 7d 65 6c (char*)0);. }el
9b70: 73 65 7b 0a 20 20 20 20 63 68 61 72 20 7a 42 75 se{. char zBu
9b80: 66 5b 35 30 30 30 5d 3b 0a 20 20 20 20 73 71 6c f[5000];. sql
9b90: 69 74 65 33 53 65 74 53 74 72 69 6e 67 28 26 7a ite3SetString(&z
9ba0: 46 75 6c 6c 2c 20 67 65 74 63 77 64 28 7a 42 75 Full, getcwd(zBu
9bb0: 66 2c 20 73 69 7a 65 6f 66 28 7a 42 75 66 29 29 f, sizeof(zBuf))
9bc0: 2c 20 22 2f 22 2c 20 7a 52 65 6c 61 74 69 76 65 , "/", zRelative
9bd0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
9be0: 20 20 20 20 20 20 28 63 68 61 72 2a 29 30 29 3b (char*)0);
9bf0: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 7a 46 . }. return zF
9c00: 75 6c 6c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 ull;.}../*.** Th
9c10: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 76 61 72 69 e following vari
9c20: 61 62 6c 65 2c 20 69 66 20 73 65 74 20 74 6f 20 able, if set to
9c30: 61 20 6e 6f 6e 2d 7a 65 72 6f 20 76 61 6c 75 65 a non-zero value
9c40: 2c 20 62 65 63 6f 6d 65 73 20 74 68 65 20 72 65 , becomes the re
9c50: 73 75 6c 74 0a 2a 2a 20 72 65 74 75 72 6e 65 64 sult.** returned
9c60: 20 66 72 6f 6d 20 73 71 6c 69 74 65 33 4f 73 43 from sqlite3OsC
9c70: 75 72 72 65 6e 74 54 69 6d 65 28 29 2e 20 20 54 urrentTime(). T
9c80: 68 69 73 20 69 73 20 75 73 65 64 20 66 6f 72 20 his is used for
9c90: 74 65 73 74 69 6e 67 2e 0a 2a 2f 0a 23 69 66 64 testing..*/.#ifd
9ca0: 65 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 69 ef SQLITE_TEST.i
9cb0: 6e 74 20 73 71 6c 69 74 65 33 5f 63 75 72 72 65 nt sqlite3_curre
9cc0: 6e 74 5f 74 69 6d 65 20 3d 20 30 3b 0a 23 65 6e nt_time = 0;.#en
9cd0: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 46 69 6e 64 20 dif../*.** Find
9ce0: 74 68 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 the current time
9cf0: 20 28 69 6e 20 55 6e 69 76 65 72 73 61 6c 20 43 (in Universal C
9d00: 6f 6f 72 64 69 6e 61 74 65 64 20 54 69 6d 65 29 oordinated Time)
9d10: 2e 20 20 57 72 69 74 65 20 74 68 65 0a 2a 2a 20 . Write the.**
9d20: 63 75 72 72 65 6e 74 20 74 69 6d 65 20 61 6e 64 current time and
9d30: 20 64 61 74 65 20 61 73 20 61 20 4a 75 6c 69 61 date as a Julia
9d40: 6e 20 44 61 79 20 6e 75 6d 62 65 72 20 69 6e 74 n Day number int
9d50: 6f 20 2a 70 72 4e 6f 77 20 61 6e 64 0a 2a 2a 20 o *prNow and.**
9d60: 72 65 74 75 72 6e 20 30 2e 20 20 52 65 74 75 72 return 0. Retur
9d70: 6e 20 31 20 69 66 20 74 68 65 20 74 69 6d 65 20 n 1 if the time
9d80: 61 6e 64 20 64 61 74 65 20 63 61 6e 6e 6f 74 20 and date cannot
9d90: 62 65 20 66 6f 75 6e 64 2e 0a 2a 2f 0a 69 6e 74 be found..*/.int
9da0: 20 73 71 6c 69 74 65 33 4f 73 43 75 72 72 65 6e sqlite3OsCurren
9db0: 74 54 69 6d 65 28 64 6f 75 62 6c 65 20 2a 70 72 tTime(double *pr
9dc0: 4e 6f 77 29 7b 0a 20 20 74 69 6d 65 5f 74 20 74 Now){. time_t t
9dd0: 3b 0a 20 20 74 69 6d 65 28 26 74 29 3b 0a 20 20 ;. time(&t);.
9de0: 2a 70 72 4e 6f 77 20 3d 20 74 2f 38 36 34 30 30 *prNow = t/86400
9df0: 2e 30 20 2b 20 32 34 34 30 35 38 37 2e 35 3b 0a .0 + 2440587.5;.
9e00: 23 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 #ifdef SQLITE_TE
9e10: 53 54 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 ST. if( sqlite3
9e20: 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 20 29 7b _current_time ){
9e30: 0a 20 20 20 20 2a 70 72 4e 6f 77 20 3d 20 73 71 . *prNow = sq
9e40: 6c 69 74 65 33 5f 63 75 72 72 65 6e 74 5f 74 69 lite3_current_ti
9e50: 6d 65 2f 38 36 34 30 30 2e 30 20 2b 20 32 34 34 me/86400.0 + 244
9e60: 30 35 38 37 2e 35 3b 0a 20 20 7d 0a 23 65 6e 64 0587.5;. }.#end
9e70: 69 66 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d if. return 0;.}
9e80: 0a 0a 23 69 66 20 30 20 2f 2a 20 4e 4f 54 20 55 ..#if 0 /* NOT U
9e90: 53 45 44 20 2a 2f 0a 2f 2a 0a 2a 2a 20 46 69 6e SED */./*.** Fin
9ea0: 64 20 74 68 65 20 74 69 6d 65 20 74 68 61 74 20 d the time that
9eb0: 74 68 65 20 66 69 6c 65 20 77 61 73 20 6c 61 73 the file was las
9ec0: 74 20 6d 6f 64 69 66 69 65 64 2e 20 20 57 72 69 t modified. Wri
9ed0: 74 65 20 74 68 65 0a 2a 2a 20 6d 6f 64 69 66 69 te the.** modifi
9ee0: 63 61 74 69 6f 6e 20 74 69 6d 65 20 61 6e 64 20 cation time and
9ef0: 64 61 74 65 20 61 73 20 61 20 4a 75 6c 69 61 6e date as a Julian
9f00: 20 44 61 79 20 6e 75 6d 62 65 72 20 69 6e 74 6f Day number into
9f10: 20 2a 70 72 4e 6f 77 20 61 6e 64 0a 2a 2a 20 72 *prNow and.** r
9f20: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 2e eturn SQLITE_OK.
9f30: 20 20 52 65 74 75 72 6e 20 53 51 4c 49 54 45 5f Return SQLITE_
9f40: 45 52 52 4f 52 20 69 66 20 74 68 65 20 6d 6f 64 ERROR if the mod
9f50: 69 66 69 63 61 74 69 6f 6e 0a 2a 2a 20 74 69 6d ification.** tim
9f60: 65 20 63 61 6e 6e 6f 74 20 62 65 20 66 6f 75 6e e cannot be foun
9f70: 64 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 d..*/.int sqlite
9f80: 33 4f 73 46 69 6c 65 4d 6f 64 54 69 6d 65 28 4f 3OsFileModTime(O
9f90: 73 46 69 6c 65 20 2a 69 64 2c 20 64 6f 75 62 6c sFile *id, doubl
9fa0: 65 20 2a 70 72 4e 6f 77 29 7b 0a 20 20 69 6e 74 e *prNow){. int
9fb0: 20 72 63 3b 0a 20 20 73 74 72 75 63 74 20 73 74 rc;. struct st
9fc0: 61 74 20 73 74 61 74 62 75 66 3b 0a 20 20 69 66 at statbuf;. if
9fd0: 28 20 66 73 74 61 74 28 69 64 2d 3e 68 2c 20 26 ( fstat(id->h, &
9fe0: 73 74 61 74 62 75 66 29 3d 3d 30 20 29 7b 0a 20 statbuf)==0 ){.
9ff0: 20 20 20 2a 70 72 4e 6f 77 20 3d 20 73 74 61 74 *prNow = stat
a000: 62 75 66 2e 73 74 5f 6d 74 69 6d 65 2f 38 36 34 buf.st_mtime/864
a010: 30 30 2e 30 20 2b 20 32 34 34 30 35 38 37 2e 35 00.0 + 2440587.5
a020: 3b 0a 20 20 20 20 72 63 20 3d 20 53 51 4c 49 54 ;. rc = SQLIT
a030: 45 5f 4f 4b 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 E_OK;. }else{.
a040: 20 20 20 72 63 20 3d 20 53 51 4c 49 54 45 5f 45 rc = SQLITE_E
a050: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 65 74 75 RROR;. }. retu
a060: 72 6e 20 72 63 3b 0a 7d 0a 23 65 6e 64 69 66 20 rn rc;.}.#endif
a070: 2f 2a 20 4e 4f 54 20 55 53 45 44 20 2a 2f 0a 0a /* NOT USED */..
a080: 23 65 6e 64 69 66 20 2f 2a 20 4f 53 5f 55 4e 49 #endif /* OS_UNI
a090: 58 20 2a 2f 0a X */.