/ Hex Artifact Content
Login

Artifact 2e452c9f2ca507623ad351c33a8a8b27849b1863:


0000: 2f 2a 0a 2a 2a 20 32 30 30 36 20 46 65 62 20 31  /*.** 2006 Feb 1
0010: 34 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 68  4.**.** 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 4f 53 2f 32 2e 0a 2a 2f  ific to OS/2..*/
01b0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c 69  ..#include "sqli
01c0: 74 65 49 6e 74 2e 68 22 0a 0a 23 69 66 20 53 51  teInt.h"..#if SQ
01d0: 4c 49 54 45 5f 4f 53 5f 4f 53 32 0a 0a 2f 2a 0a  LITE_OS_OS2../*.
01e0: 2a 2a 20 41 20 4e 6f 74 65 20 41 62 6f 75 74 20  ** A Note About 
01f0: 4d 65 6d 6f 72 79 20 41 6c 6c 6f 63 61 74 69 6f  Memory Allocatio
0200: 6e 3a 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 64 72  n:.**.** This dr
0210: 69 76 65 72 20 75 73 65 73 20 6d 61 6c 6c 6f 63  iver uses malloc
0220: 28 29 2f 66 72 65 65 28 29 20 64 69 72 65 63 74  ()/free() direct
0230: 6c 79 20 72 61 74 68 65 72 20 74 68 61 6e 20 67  ly rather than g
0240: 6f 69 6e 67 20 74 68 72 6f 75 67 68 0a 2a 2a 20  oing through.** 
0250: 74 68 65 20 53 51 4c 69 74 65 2d 77 72 61 70 70  the SQLite-wrapp
0260: 65 72 73 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c  ers sqlite3_mall
0270: 6f 63 28 29 2f 73 71 6c 69 74 65 33 5f 66 72 65  oc()/sqlite3_fre
0280: 65 28 29 2e 20 20 54 68 6f 73 65 20 77 72 61 70  e().  Those wrap
0290: 70 65 72 73 0a 2a 2a 20 61 72 65 20 64 65 73 69  pers.** are desi
02a0: 67 6e 65 64 20 66 6f 72 20 75 73 65 20 6f 6e 20  gned for use on 
02b0: 65 6d 62 65 64 64 65 64 20 73 79 73 74 65 6d 73  embedded systems
02c0: 20 77 68 65 72 65 20 6d 65 6d 6f 72 79 20 69 73   where memory is
02d0: 20 73 63 61 72 63 65 20 61 6e 64 0a 2a 2a 20 6d   scarce and.** m
02e0: 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 73 20 68  alloc failures h
02f0: 61 70 70 65 6e 20 66 72 65 71 75 65 6e 74 6c 79  appen frequently
0300: 2e 20 20 4f 53 2f 32 20 64 6f 65 73 20 6e 6f 74  .  OS/2 does not
0310: 20 74 79 70 69 63 61 6c 6c 79 20 72 75 6e 20 6f   typically run o
0320: 6e 0a 2a 2a 20 65 6d 62 65 64 64 65 64 20 73 79  n.** embedded sy
0330: 73 74 65 6d 73 2c 20 61 6e 64 20 77 68 65 6e 20  stems, and when 
0340: 69 74 20 64 6f 65 73 20 74 68 65 20 64 65 76 65  it does the deve
0350: 6c 6f 70 65 72 73 20 6e 6f 72 6d 61 6c 6c 79 20  lopers normally 
0360: 68 61 76 65 20 62 69 67 67 65 72 0a 2a 2a 20 70  have bigger.** p
0370: 72 6f 62 6c 65 6d 73 20 74 6f 20 77 6f 72 72 79  roblems to worry
0380: 20 61 62 6f 75 74 20 74 68 61 6e 20 72 75 6e 6e   about than runn
0390: 69 6e 67 20 6f 75 74 20 6f 66 20 6d 65 6d 6f 72  ing out of memor
03a0: 79 2e 20 20 53 6f 20 74 68 65 72 65 20 69 73 20  y.  So there is 
03b0: 6e 6f 74 0a 2a 2a 20 61 20 63 6f 6d 70 65 6c 6c  not.** a compell
03c0: 69 6e 67 20 6e 65 65 64 20 74 6f 20 75 73 65 20  ing need to use 
03d0: 74 68 65 20 77 72 61 70 70 65 72 73 2e 0a 2a 2a  the wrappers..**
03e0: 0a 2a 2a 20 42 75 74 20 74 68 65 72 65 20 69 73  .** But there is
03f0: 20 61 20 67 6f 6f 64 20 72 65 61 73 6f 6e 20 74   a good reason t
0400: 6f 20 6e 6f 74 20 75 73 65 20 74 68 65 20 77 72  o not use the wr
0410: 61 70 70 65 72 73 2e 20 20 49 66 20 77 65 20 75  appers.  If we u
0420: 73 65 20 74 68 65 0a 2a 2a 20 77 72 61 70 70 65  se the.** wrappe
0430: 72 73 20 74 68 65 6e 20 77 65 20 77 69 6c 6c 20  rs then we will 
0440: 67 65 74 20 73 69 6d 75 6c 61 74 65 64 20 6d 61  get simulated ma
0450: 6c 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 73 20  lloc() failures 
0460: 77 69 74 68 69 6e 20 74 68 69 73 0a 2a 2a 20 64  within this.** d
0470: 72 69 76 65 72 2e 20 20 41 6e 64 20 74 68 61 74  river.  And that
0480: 20 63 61 75 73 65 73 20 61 6c 6c 20 6b 69 6e 64   causes all kind
0490: 73 20 6f 66 20 70 72 6f 62 6c 65 6d 73 20 66 6f  s of problems fo
04a0: 72 20 6f 75 72 20 74 65 73 74 73 2e 20 20 57 65  r our tests.  We
04b0: 0a 2a 2a 20 63 6f 75 6c 64 20 65 6e 68 61 6e 63  .** could enhanc
04c0: 65 20 53 51 4c 69 74 65 20 74 6f 20 64 65 61 6c  e SQLite to deal
04d0: 20 77 69 74 68 20 73 69 6d 75 6c 61 74 65 64 20   with simulated 
04e0: 6d 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 73 20  malloc failures 
04f0: 77 69 74 68 69 6e 0a 2a 2a 20 74 68 65 20 4f 53  within.** the OS
0500: 20 64 72 69 76 65 72 2c 20 62 75 74 20 74 68 65   driver, but the
0510: 20 63 6f 64 65 20 74 6f 20 64 65 61 6c 20 77 69   code to deal wi
0520: 74 68 20 74 68 6f 73 65 20 66 61 69 6c 75 72 65  th those failure
0530: 20 77 6f 75 6c 64 20 6e 6f 74 0a 2a 2a 20 62 65   would not.** be
0540: 20 65 78 65 72 63 69 73 65 64 20 6f 6e 20 4c 69   exercised on Li
0550: 6e 75 78 20 28 77 68 69 63 68 20 64 6f 65 73 20  nux (which does 
0560: 6e 6f 74 20 6e 65 65 64 20 74 6f 20 6d 61 6c 6c  not need to mall
0570: 6f 63 28 29 20 69 6e 20 74 68 65 20 64 72 69 76  oc() in the driv
0580: 65 72 29 0a 2a 2a 20 61 6e 64 20 73 6f 20 77 65  er).** and so we
0590: 20 77 6f 75 6c 64 20 68 61 76 65 20 64 69 66 66   would have diff
05a0: 69 63 75 6c 74 79 20 77 72 69 74 69 6e 67 20 63  iculty writing c
05b0: 6f 76 65 72 61 67 65 20 74 65 73 74 73 20 66 6f  overage tests fo
05c0: 72 20 74 68 61 74 0a 2a 2a 20 63 6f 64 65 2e 20  r that.** code. 
05d0: 20 42 65 74 74 65 72 20 74 6f 20 6c 65 61 76 65   Better to leave
05e0: 20 74 68 65 20 63 6f 64 65 20 6f 75 74 2c 20 77   the code out, w
05f0: 65 20 74 68 69 6e 6b 2e 0a 2a 2a 0a 2a 2a 20 54  e think..**.** T
0600: 68 65 20 70 6f 69 6e 74 20 6f 66 20 74 68 69 73  he point of this
0610: 20 64 69 73 63 75 73 73 69 6f 6e 20 69 73 20 61   discussion is a
0620: 73 20 66 6f 6c 6c 6f 77 73 3a 20 20 57 68 65 6e  s follows:  When
0630: 20 63 72 65 61 74 69 6e 67 20 61 20 6e 65 77 0a   creating a new.
0640: 2a 2a 20 4f 53 20 6c 61 79 65 72 20 66 6f 72 20  ** OS layer for 
0650: 61 6e 20 65 6d 62 65 64 64 65 64 20 73 79 73 74  an embedded syst
0660: 65 6d 2c 20 69 66 20 79 6f 75 20 75 73 65 20 74  em, if you use t
0670: 68 69 73 20 66 69 6c 65 20 61 73 20 61 6e 20 65  his file as an e
0680: 78 61 6d 70 6c 65 2c 0a 2a 2a 20 61 76 6f 69 64  xample,.** avoid
0690: 20 74 68 65 20 75 73 65 20 6f 66 20 6d 61 6c 6c   the use of mall
06a0: 6f 63 28 29 2f 66 72 65 65 28 29 2e 20 20 54 68  oc()/free().  Th
06b0: 6f 73 65 20 72 6f 75 74 69 6e 65 73 20 77 6f 72  ose routines wor
06c0: 6b 20 6f 6b 20 6f 6e 20 4f 53 2f 32 0a 2a 2a 20  k ok on OS/2.** 
06d0: 64 65 73 6b 74 6f 70 73 20 62 75 74 20 6e 6f 74  desktops but not
06e0: 20 73 6f 20 77 65 6c 6c 20 69 6e 20 65 6d 62 65   so well in embe
06f0: 64 64 65 64 20 73 79 73 74 65 6d 73 2e 0a 2a 2f  dded systems..*/
0700: 0a 0a 2f 2a 0a 2a 2a 20 4d 61 63 72 6f 73 20 75  ../*.** Macros u
0710: 73 65 64 20 74 6f 20 64 65 74 65 72 6d 69 6e 65  sed to determine
0720: 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20   whether or not 
0730: 74 6f 20 75 73 65 20 74 68 72 65 61 64 73 2e 0a  to use threads..
0740: 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 53  */.#if defined(S
0750: 51 4c 49 54 45 5f 54 48 52 45 41 44 53 41 46 45  QLITE_THREADSAFE
0760: 29 20 26 26 20 53 51 4c 49 54 45 5f 54 48 52 45  ) && SQLITE_THRE
0770: 41 44 53 41 46 45 0a 23 20 64 65 66 69 6e 65 20  ADSAFE.# define 
0780: 53 51 4c 49 54 45 5f 4f 53 32 5f 54 48 52 45 41  SQLITE_OS2_THREA
0790: 44 53 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a  DS 1.#endif../*.
07a0: 2a 2a 20 49 6e 63 6c 75 64 65 20 63 6f 64 65 20  ** Include code 
07b0: 74 68 61 74 20 69 73 20 63 6f 6d 6d 6f 6e 20 74  that is common t
07c0: 6f 20 61 6c 6c 20 6f 73 5f 2a 2e 63 20 66 69 6c  o all os_*.c fil
07d0: 65 73 0a 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22  es.*/.#include "
07e0: 6f 73 5f 63 6f 6d 6d 6f 6e 2e 68 22 0a 0a 2f 2a  os_common.h"../*
07f0: 0a 2a 2a 20 54 68 65 20 6f 73 32 46 69 6c 65 20  .** The os2File 
0800: 73 74 72 75 63 74 75 72 65 20 69 73 20 73 75 62  structure is sub
0810: 63 6c 61 73 73 20 6f 66 20 73 71 6c 69 74 65 33  class of sqlite3
0820: 5f 66 69 6c 65 20 73 70 65 63 69 66 69 63 20 66  _file specific f
0830: 6f 72 20 74 68 65 20 4f 53 2f 32 0a 2a 2a 20 70  or the OS/2.** p
0840: 72 6f 74 61 62 69 6c 69 74 79 20 6c 61 79 65 72  rotability layer
0850: 2e 0a 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72  ..*/.typedef str
0860: 75 63 74 20 6f 73 32 46 69 6c 65 20 6f 73 32 46  uct os2File os2F
0870: 69 6c 65 3b 0a 73 74 72 75 63 74 20 6f 73 32 46  ile;.struct os2F
0880: 69 6c 65 20 7b 0a 20 20 63 6f 6e 73 74 20 73 71  ile {.  const sq
0890: 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73  lite3_io_methods
08a0: 20 2a 70 4d 65 74 68 6f 64 3b 20 20 2f 2a 20 41   *pMethod;  /* A
08b0: 6c 77 61 79 73 20 74 68 65 20 66 69 72 73 74 20  lways the first 
08c0: 65 6e 74 72 79 20 2a 2f 0a 20 20 48 46 49 4c 45  entry */.  HFILE
08d0: 20 68 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   h;             
08e0: 20 20 20 20 20 2f 2a 20 48 61 6e 64 6c 65 20 66       /* Handle f
08f0: 6f 72 20 61 63 63 65 73 73 69 6e 67 20 74 68 65  or accessing the
0900: 20 66 69 6c 65 20 2a 2f 0a 20 20 63 68 61 72 2a   file */.  char*
0910: 20 70 61 74 68 54 6f 44 65 6c 3b 20 20 20 20 20   pathToDel;     
0920: 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20       /* Name of 
0930: 66 69 6c 65 20 74 6f 20 64 65 6c 65 74 65 20 6f  file to delete o
0940: 6e 20 63 6c 6f 73 65 2c 20 4e 55 4c 4c 20 69 66  n close, NULL if
0950: 20 6e 6f 74 20 2a 2f 0a 20 20 75 6e 73 69 67 6e   not */.  unsign
0960: 65 64 20 63 68 61 72 20 6c 6f 63 6b 74 79 70 65  ed char locktype
0970: 3b 20 20 20 2f 2a 20 54 79 70 65 20 6f 66 20 6c  ;   /* Type of l
0980: 6f 63 6b 20 63 75 72 72 65 6e 74 6c 79 20 68 65  ock currently he
0990: 6c 64 20 6f 6e 20 74 68 69 73 20 66 69 6c 65 20  ld on this file 
09a0: 2a 2f 0a 7d 3b 0a 0a 23 64 65 66 69 6e 65 20 4c  */.};..#define L
09b0: 4f 43 4b 5f 54 49 4d 45 4f 55 54 20 31 30 4c 20  OCK_TIMEOUT 10L 
09c0: 2f 2a 20 74 68 65 20 64 65 66 61 75 6c 74 20 6c  /* the default l
09d0: 6f 63 6b 69 6e 67 20 74 69 6d 65 6f 75 74 20 2a  ocking timeout *
09e0: 2f 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  /../************
09f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0a00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0a10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0a20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0a30: 2a 0a 2a 2a 20 54 68 65 20 6e 65 78 74 20 67 72  *.** The next gr
0a40: 6f 75 70 20 6f 66 20 72 6f 75 74 69 6e 65 73 20  oup of routines 
0a50: 69 6d 70 6c 65 6d 65 6e 74 20 74 68 65 20 49 2f  implement the I/
0a60: 4f 20 6d 65 74 68 6f 64 73 20 73 70 65 63 69 66  O methods specif
0a70: 69 65 64 0a 2a 2a 20 62 79 20 74 68 65 20 73 71  ied.** by the sq
0a80: 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73  lite3_io_methods
0a90: 20 6f 62 6a 65 63 74 2e 0a 2a 2a 2a 2a 2a 2a 2a   object..*******
0aa0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0ab0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0ac0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0ad0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0ae0: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 2a 2a 20  *******/../*.** 
0af0: 43 6c 6f 73 65 20 61 20 66 69 6c 65 2e 0a 2a 2f  Close a file..*/
0b00: 0a 73 74 61 74 69 63 20 69 6e 74 20 6f 73 32 43  .static int os2C
0b10: 6c 6f 73 65 28 20 73 71 6c 69 74 65 33 5f 66 69  lose( sqlite3_fi
0b20: 6c 65 20 2a 69 64 20 29 7b 0a 20 20 41 50 49 52  le *id ){.  APIR
0b30: 45 54 20 72 63 20 3d 20 4e 4f 5f 45 52 52 4f 52  ET rc = NO_ERROR
0b40: 3b 0a 20 20 6f 73 32 46 69 6c 65 20 2a 70 46 69  ;.  os2File *pFi
0b50: 6c 65 3b 0a 20 20 69 66 28 20 69 64 20 26 26 20  le;.  if( id && 
0b60: 28 70 46 69 6c 65 20 3d 20 28 6f 73 32 46 69 6c  (pFile = (os2Fil
0b70: 65 2a 29 69 64 29 20 21 3d 20 30 20 29 7b 0a 20  e*)id) != 0 ){. 
0b80: 20 20 20 4f 53 54 52 41 43 45 28 28 20 22 43 4c     OSTRACE(( "CL
0b90: 4f 53 45 20 25 64 5c 6e 22 2c 20 70 46 69 6c 65  OSE %d\n", pFile
0ba0: 2d 3e 68 20 29 29 3b 0a 20 20 20 20 72 63 20 3d  ->h ));.    rc =
0bb0: 20 44 6f 73 43 6c 6f 73 65 28 20 70 46 69 6c 65   DosClose( pFile
0bc0: 2d 3e 68 20 29 3b 0a 20 20 20 20 70 46 69 6c 65  ->h );.    pFile
0bd0: 2d 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 4e 4f 5f  ->locktype = NO_
0be0: 4c 4f 43 4b 3b 0a 20 20 20 20 69 66 28 20 70 46  LOCK;.    if( pF
0bf0: 69 6c 65 2d 3e 70 61 74 68 54 6f 44 65 6c 20 21  ile->pathToDel !
0c00: 3d 20 4e 55 4c 4c 20 29 7b 0a 20 20 20 20 20 20  = NULL ){.      
0c10: 72 63 20 3d 20 44 6f 73 46 6f 72 63 65 44 65 6c  rc = DosForceDel
0c20: 65 74 65 28 20 28 50 53 5a 29 70 46 69 6c 65 2d  ete( (PSZ)pFile-
0c30: 3e 70 61 74 68 54 6f 44 65 6c 20 29 3b 0a 20 20  >pathToDel );.  
0c40: 20 20 20 20 66 72 65 65 28 20 70 46 69 6c 65 2d      free( pFile-
0c50: 3e 70 61 74 68 54 6f 44 65 6c 20 29 3b 0a 20 20  >pathToDel );.  
0c60: 20 20 20 20 70 46 69 6c 65 2d 3e 70 61 74 68 54      pFile->pathT
0c70: 6f 44 65 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20  oDel = NULL;.   
0c80: 20 7d 0a 20 20 20 20 69 64 20 3d 20 30 3b 0a 20   }.    id = 0;. 
0c90: 20 20 20 4f 70 65 6e 43 6f 75 6e 74 65 72 28 20     OpenCounter( 
0ca0: 2d 31 20 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74  -1 );.  }..  ret
0cb0: 75 72 6e 20 72 63 20 3d 3d 20 4e 4f 5f 45 52 52  urn rc == NO_ERR
0cc0: 4f 52 20 3f 20 53 51 4c 49 54 45 5f 4f 4b 20 3a  OR ? SQLITE_OK :
0cd0: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 7d   SQLITE_IOERR;.}
0ce0: 0a 0a 2f 2a 0a 2a 2a 20 52 65 61 64 20 64 61 74  ../*.** Read dat
0cf0: 61 20 66 72 6f 6d 20 61 20 66 69 6c 65 20 69 6e  a from a file in
0d00: 74 6f 20 61 20 62 75 66 66 65 72 2e 20 20 52 65  to a buffer.  Re
0d10: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 20 69  turn SQLITE_OK i
0d20: 66 20 61 6c 6c 0a 2a 2a 20 62 79 74 65 73 20 77  f all.** bytes w
0d30: 65 72 65 20 72 65 61 64 20 73 75 63 63 65 73 73  ere read success
0d40: 66 75 6c 6c 79 20 61 6e 64 20 53 51 4c 49 54 45  fully and SQLITE
0d50: 5f 49 4f 45 52 52 20 69 66 20 61 6e 79 74 68 69  _IOERR if anythi
0d60: 6e 67 20 67 6f 65 73 0a 2a 2a 20 77 72 6f 6e 67  ng goes.** wrong
0d70: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
0d80: 6f 73 32 52 65 61 64 28 0a 20 20 73 71 6c 69 74  os2Read(.  sqlit
0d90: 65 33 5f 66 69 6c 65 20 2a 69 64 2c 20 20 20 20  e3_file *id,    
0da0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 69             /* Fi
0db0: 6c 65 20 74 6f 20 72 65 61 64 20 66 72 6f 6d 20  le to read from 
0dc0: 2a 2f 0a 20 20 76 6f 69 64 20 2a 70 42 75 66 2c  */.  void *pBuf,
0dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0de0: 20 20 20 20 20 2f 2a 20 57 72 69 74 65 20 63 6f       /* Write co
0df0: 6e 74 65 6e 74 20 69 6e 74 6f 20 74 68 69 73 20  ntent into this 
0e00: 62 75 66 66 65 72 20 2a 2f 0a 20 20 69 6e 74 20  buffer */.  int 
0e10: 61 6d 74 2c 20 20 20 20 20 20 20 20 20 20 20 20  amt,            
0e20: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e              /* N
0e30: 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 74  umber of bytes t
0e40: 6f 20 72 65 61 64 20 2a 2f 0a 20 20 73 71 6c 69  o read */.  sqli
0e50: 74 65 33 5f 69 6e 74 36 34 20 6f 66 66 73 65 74  te3_int64 offset
0e60: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 42              /* B
0e70: 65 67 69 6e 20 72 65 61 64 69 6e 67 20 61 74 20  egin reading at 
0e80: 74 68 69 73 20 6f 66 66 73 65 74 20 2a 2f 0a 29  this offset */.)
0e90: 7b 0a 20 20 55 4c 4f 4e 47 20 66 69 6c 65 4c 6f  {.  ULONG fileLo
0ea0: 63 61 74 69 6f 6e 20 3d 20 30 4c 3b 0a 20 20 55  cation = 0L;.  U
0eb0: 4c 4f 4e 47 20 67 6f 74 3b 0a 20 20 6f 73 32 46  LONG got;.  os2F
0ec0: 69 6c 65 20 2a 70 46 69 6c 65 20 3d 20 28 6f 73  ile *pFile = (os
0ed0: 32 46 69 6c 65 2a 29 69 64 3b 0a 20 20 61 73 73  2File*)id;.  ass
0ee0: 65 72 74 28 20 69 64 21 3d 30 20 29 3b 0a 20 20  ert( id!=0 );.  
0ef0: 53 69 6d 75 6c 61 74 65 49 4f 45 72 72 6f 72 28  SimulateIOError(
0f00: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49   return SQLITE_I
0f10: 4f 45 52 52 5f 52 45 41 44 20 29 3b 0a 20 20 4f  OERR_READ );.  O
0f20: 53 54 52 41 43 45 28 28 20 22 52 45 41 44 20 25  STRACE(( "READ %
0f30: 64 20 6c 6f 63 6b 3d 25 64 5c 6e 22 2c 20 70 46  d lock=%d\n", pF
0f40: 69 6c 65 2d 3e 68 2c 20 70 46 69 6c 65 2d 3e 6c  ile->h, pFile->l
0f50: 6f 63 6b 74 79 70 65 20 29 29 3b 0a 20 20 69 66  ocktype ));.  if
0f60: 28 20 44 6f 73 53 65 74 46 69 6c 65 50 74 72 28  ( DosSetFilePtr(
0f70: 70 46 69 6c 65 2d 3e 68 2c 20 6f 66 66 73 65 74  pFile->h, offset
0f80: 2c 20 46 49 4c 45 5f 42 45 47 49 4e 2c 20 26 66  , FILE_BEGIN, &f
0f90: 69 6c 65 4c 6f 63 61 74 69 6f 6e 29 20 21 3d 20  ileLocation) != 
0fa0: 4e 4f 5f 45 52 52 4f 52 20 29 7b 0a 20 20 20 20  NO_ERROR ){.    
0fb0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f  return SQLITE_IO
0fc0: 45 52 52 3b 0a 20 20 7d 0a 20 20 69 66 28 20 44  ERR;.  }.  if( D
0fd0: 6f 73 52 65 61 64 28 20 70 46 69 6c 65 2d 3e 68  osRead( pFile->h
0fe0: 2c 20 70 42 75 66 2c 20 61 6d 74 2c 20 26 67 6f  , pBuf, amt, &go
0ff0: 74 20 29 20 21 3d 20 4e 4f 5f 45 52 52 4f 52 20  t ) != NO_ERROR 
1000: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51  ){.    return SQ
1010: 4c 49 54 45 5f 49 4f 45 52 52 5f 52 45 41 44 3b  LITE_IOERR_READ;
1020: 0a 20 20 7d 0a 20 20 69 66 28 20 67 6f 74 20 3d  .  }.  if( got =
1030: 3d 20 28 55 4c 4f 4e 47 29 61 6d 74 20 29 0a 20  = (ULONG)amt ). 
1040: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
1050: 5f 4f 4b 3b 0a 20 20 65 6c 73 65 20 7b 0a 20 20  _OK;.  else {.  
1060: 20 20 2f 2a 20 55 6e 72 65 61 64 20 70 6f 72 74    /* Unread port
1070: 69 6f 6e 73 20 6f 66 20 74 68 65 20 69 6e 70 75  ions of the inpu
1080: 74 20 62 75 66 66 65 72 20 6d 75 73 74 20 62 65  t buffer must be
1090: 20 7a 65 72 6f 2d 66 69 6c 6c 65 64 20 2a 2f 0a   zero-filled */.
10a0: 20 20 20 20 6d 65 6d 73 65 74 28 26 28 28 63 68      memset(&((ch
10b0: 61 72 2a 29 70 42 75 66 29 5b 67 6f 74 5d 2c 20  ar*)pBuf)[got], 
10c0: 30 2c 20 61 6d 74 2d 67 6f 74 29 3b 0a 20 20 20  0, amt-got);.   
10d0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49   return SQLITE_I
10e0: 4f 45 52 52 5f 53 48 4f 52 54 5f 52 45 41 44 3b  OERR_SHORT_READ;
10f0: 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 72  .  }.}../*.** Wr
1100: 69 74 65 20 64 61 74 61 20 66 72 6f 6d 20 61 20  ite data from a 
1110: 62 75 66 66 65 72 20 69 6e 74 6f 20 61 20 66 69  buffer into a fi
1120: 6c 65 2e 20 20 52 65 74 75 72 6e 20 53 51 4c 49  le.  Return SQLI
1130: 54 45 5f 4f 4b 20 6f 6e 20 73 75 63 63 65 73 73  TE_OK on success
1140: 0a 2a 2a 20 6f 72 20 73 6f 6d 65 20 6f 74 68 65  .** or some othe
1150: 72 20 65 72 72 6f 72 20 63 6f 64 65 20 6f 6e 20  r error code on 
1160: 66 61 69 6c 75 72 65 2e 0a 2a 2f 0a 73 74 61 74  failure..*/.stat
1170: 69 63 20 69 6e 74 20 6f 73 32 57 72 69 74 65 28  ic int os2Write(
1180: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
1190: 2a 69 64 2c 20 20 20 20 20 20 20 20 20 20 20 20  *id,            
11a0: 20 20 20 2f 2a 20 46 69 6c 65 20 74 6f 20 77 72     /* File to wr
11b0: 69 74 65 20 69 6e 74 6f 20 2a 2f 0a 20 20 63 6f  ite into */.  co
11c0: 6e 73 74 20 76 6f 69 64 20 2a 70 42 75 66 2c 20  nst void *pBuf, 
11d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
11e0: 20 54 68 65 20 62 79 74 65 73 20 74 6f 20 62 65   The bytes to be
11f0: 20 77 72 69 74 74 65 6e 20 2a 2f 0a 20 20 69 6e   written */.  in
1200: 74 20 61 6d 74 2c 20 20 20 20 20 20 20 20 20 20  t amt,          
1210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1220: 20 4e 75 6d 62 65 72 20 6f 66 20 62 79 74 65 73   Number of bytes
1230: 20 74 6f 20 77 72 69 74 65 20 2a 2f 0a 20 20 73   to write */.  s
1240: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 6f 66 66  qlite3_int64 off
1250: 73 65 74 20 20 20 20 20 20 20 20 20 20 20 20 2f  set            /
1260: 2a 20 4f 66 66 73 65 74 20 69 6e 74 6f 20 74 68  * Offset into th
1270: 65 20 66 69 6c 65 20 74 6f 20 62 65 67 69 6e 20  e file to begin 
1280: 77 72 69 74 69 6e 67 20 61 74 20 2a 2f 0a 29 7b  writing at */.){
1290: 0a 20 20 55 4c 4f 4e 47 20 66 69 6c 65 4c 6f 63  .  ULONG fileLoc
12a0: 61 74 69 6f 6e 20 3d 20 30 4c 3b 0a 20 20 41 50  ation = 0L;.  AP
12b0: 49 52 45 54 20 72 63 20 3d 20 4e 4f 5f 45 52 52  IRET rc = NO_ERR
12c0: 4f 52 3b 0a 20 20 55 4c 4f 4e 47 20 77 72 6f 74  OR;.  ULONG wrot
12d0: 65 3b 0a 20 20 6f 73 32 46 69 6c 65 20 2a 70 46  e;.  os2File *pF
12e0: 69 6c 65 20 3d 20 28 6f 73 32 46 69 6c 65 2a 29  ile = (os2File*)
12f0: 69 64 3b 0a 20 20 61 73 73 65 72 74 28 20 69 64  id;.  assert( id
1300: 21 3d 30 20 29 3b 0a 20 20 53 69 6d 75 6c 61 74  !=0 );.  Simulat
1310: 65 49 4f 45 72 72 6f 72 28 20 72 65 74 75 72 6e  eIOError( return
1320: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 57 52   SQLITE_IOERR_WR
1330: 49 54 45 20 29 3b 0a 20 20 53 69 6d 75 6c 61 74  ITE );.  Simulat
1340: 65 44 69 73 6b 66 75 6c 6c 45 72 72 6f 72 28 20  eDiskfullError( 
1350: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 46 55  return SQLITE_FU
1360: 4c 4c 20 29 3b 0a 20 20 4f 53 54 52 41 43 45 28  LL );.  OSTRACE(
1370: 28 20 22 57 52 49 54 45 20 25 64 20 6c 6f 63 6b  ( "WRITE %d lock
1380: 3d 25 64 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68  =%d\n", pFile->h
1390: 2c 20 70 46 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70  , pFile->locktyp
13a0: 65 20 29 29 3b 0a 20 20 69 66 28 20 44 6f 73 53  e ));.  if( DosS
13b0: 65 74 46 69 6c 65 50 74 72 28 70 46 69 6c 65 2d  etFilePtr(pFile-
13c0: 3e 68 2c 20 6f 66 66 73 65 74 2c 20 46 49 4c 45  >h, offset, FILE
13d0: 5f 42 45 47 49 4e 2c 20 26 66 69 6c 65 4c 6f 63  _BEGIN, &fileLoc
13e0: 61 74 69 6f 6e 29 20 21 3d 20 4e 4f 5f 45 52 52  ation) != NO_ERR
13f0: 4f 52 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e  OR ){.    return
1400: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 20   SQLITE_IOERR;. 
1410: 20 7d 0a 20 20 61 73 73 65 72 74 28 20 61 6d 74   }.  assert( amt
1420: 3e 30 20 29 3b 0a 20 20 77 68 69 6c 65 28 20 61  >0 );.  while( a
1430: 6d 74 20 3e 20 30 20 26 26 0a 20 20 20 20 20 20  mt > 0 &&.      
1440: 20 20 20 28 20 72 63 20 3d 20 44 6f 73 57 72 69     ( rc = DosWri
1450: 74 65 28 20 70 46 69 6c 65 2d 3e 68 2c 20 28 50  te( pFile->h, (P
1460: 56 4f 49 44 29 70 42 75 66 2c 20 61 6d 74 2c 20  VOID)pBuf, amt, 
1470: 26 77 72 6f 74 65 20 29 20 29 20 3d 3d 20 4e 4f  &wrote ) ) == NO
1480: 5f 45 52 52 4f 52 20 26 26 0a 20 20 20 20 20 20  _ERROR &&.      
1490: 20 20 20 77 72 6f 74 65 20 3e 20 30 0a 20 20 29     wrote > 0.  )
14a0: 7b 0a 20 20 20 20 61 6d 74 20 2d 3d 20 77 72 6f  {.    amt -= wro
14b0: 74 65 3b 0a 20 20 20 20 70 42 75 66 20 3d 20 26  te;.    pBuf = &
14c0: 28 28 63 68 61 72 2a 29 70 42 75 66 29 5b 77 72  ((char*)pBuf)[wr
14d0: 6f 74 65 5d 3b 0a 20 20 7d 0a 0a 20 20 72 65 74  ote];.  }..  ret
14e0: 75 72 6e 20 28 20 72 63 20 21 3d 20 4e 4f 5f 45  urn ( rc != NO_E
14f0: 52 52 4f 52 20 7c 7c 20 61 6d 74 20 3e 20 28 69  RROR || amt > (i
1500: 6e 74 29 77 72 6f 74 65 20 29 20 3f 20 53 51 4c  nt)wrote ) ? SQL
1510: 49 54 45 5f 46 55 4c 4c 20 3a 20 53 51 4c 49 54  ITE_FULL : SQLIT
1520: 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54  E_OK;.}../*.** T
1530: 72 75 6e 63 61 74 65 20 61 6e 20 6f 70 65 6e 20  runcate an open 
1540: 66 69 6c 65 20 74 6f 20 61 20 73 70 65 63 69 66  file to a specif
1550: 69 65 64 20 73 69 7a 65 0a 2a 2f 0a 73 74 61 74  ied size.*/.stat
1560: 69 63 20 69 6e 74 20 6f 73 32 54 72 75 6e 63 61  ic int os2Trunca
1570: 74 65 28 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  te( sqlite3_file
1580: 20 2a 69 64 2c 20 69 36 34 20 6e 42 79 74 65 20   *id, i64 nByte 
1590: 29 7b 0a 20 20 41 50 49 52 45 54 20 72 63 20 3d  ){.  APIRET rc =
15a0: 20 4e 4f 5f 45 52 52 4f 52 3b 0a 20 20 6f 73 32   NO_ERROR;.  os2
15b0: 46 69 6c 65 20 2a 70 46 69 6c 65 20 3d 20 28 6f  File *pFile = (o
15c0: 73 32 46 69 6c 65 2a 29 69 64 3b 0a 20 20 4f 53  s2File*)id;.  OS
15d0: 54 52 41 43 45 28 28 20 22 54 52 55 4e 43 41 54  TRACE(( "TRUNCAT
15e0: 45 20 25 64 20 25 6c 6c 64 5c 6e 22 2c 20 70 46  E %d %lld\n", pF
15f0: 69 6c 65 2d 3e 68 2c 20 6e 42 79 74 65 20 29 29  ile->h, nByte ))
1600: 3b 0a 20 20 53 69 6d 75 6c 61 74 65 49 4f 45 72  ;.  SimulateIOEr
1610: 72 6f 72 28 20 72 65 74 75 72 6e 20 53 51 4c 49  ror( return SQLI
1620: 54 45 5f 49 4f 45 52 52 5f 54 52 55 4e 43 41 54  TE_IOERR_TRUNCAT
1630: 45 20 29 3b 0a 20 20 72 63 20 3d 20 44 6f 73 53  E );.  rc = DosS
1640: 65 74 46 69 6c 65 53 69 7a 65 28 20 70 46 69 6c  etFileSize( pFil
1650: 65 2d 3e 68 2c 20 6e 42 79 74 65 20 29 3b 0a 20  e->h, nByte );. 
1660: 20 72 65 74 75 72 6e 20 72 63 20 3d 3d 20 4e 4f   return rc == NO
1670: 5f 45 52 52 4f 52 20 3f 20 53 51 4c 49 54 45 5f  _ERROR ? SQLITE_
1680: 4f 4b 20 3a 20 53 51 4c 49 54 45 5f 49 4f 45 52  OK : SQLITE_IOER
1690: 52 5f 54 52 55 4e 43 41 54 45 3b 0a 7d 0a 0a 23  R_TRUNCATE;.}..#
16a0: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53  ifdef SQLITE_TES
16b0: 54 0a 2f 2a 0a 2a 2a 20 43 6f 75 6e 74 20 74 68  T./*.** Count th
16c0: 65 20 6e 75 6d 62 65 72 20 6f 66 20 66 75 6c 6c  e number of full
16d0: 73 79 6e 63 73 20 61 6e 64 20 6e 6f 72 6d 61 6c  syncs and normal
16e0: 20 73 79 6e 63 73 2e 20 20 54 68 69 73 20 69 73   syncs.  This is
16f0: 20 75 73 65 64 20 74 6f 20 74 65 73 74 0a 2a 2a   used to test.**
1700: 20 74 68 61 74 20 73 79 6e 63 73 20 61 6e 64 20   that syncs and 
1710: 66 75 6c 6c 73 79 6e 63 73 20 61 72 65 20 6f 63  fullsyncs are oc
1720: 63 75 72 69 6e 67 20 61 74 20 74 68 65 20 72 69  curing at the ri
1730: 67 68 74 20 74 69 6d 65 73 2e 0a 2a 2f 0a 69 6e  ght times..*/.in
1740: 74 20 73 71 6c 69 74 65 33 5f 73 79 6e 63 5f 63  t sqlite3_sync_c
1750: 6f 75 6e 74 20 3d 20 30 3b 0a 69 6e 74 20 73 71  ount = 0;.int sq
1760: 6c 69 74 65 33 5f 66 75 6c 6c 73 79 6e 63 5f 63  lite3_fullsync_c
1770: 6f 75 6e 74 20 3d 20 30 3b 0a 23 65 6e 64 69 66  ount = 0;.#endif
1780: 0a 0a 2f 2a 0a 2a 2a 20 4d 61 6b 65 20 73 75 72  ../*.** Make sur
1790: 65 20 61 6c 6c 20 77 72 69 74 65 73 20 74 6f 20  e all writes to 
17a0: 61 20 70 61 72 74 69 63 75 6c 61 72 20 66 69 6c  a particular fil
17b0: 65 20 61 72 65 20 63 6f 6d 6d 69 74 74 65 64 20  e are committed 
17c0: 74 6f 20 64 69 73 6b 2e 0a 2a 2f 0a 73 74 61 74  to disk..*/.stat
17d0: 69 63 20 69 6e 74 20 6f 73 32 53 79 6e 63 28 20  ic int os2Sync( 
17e0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 69 64  sqlite3_file *id
17f0: 2c 20 69 6e 74 20 66 6c 61 67 73 20 29 7b 0a 20  , int flags ){. 
1800: 20 6f 73 32 46 69 6c 65 20 2a 70 46 69 6c 65 20   os2File *pFile 
1810: 3d 20 28 6f 73 32 46 69 6c 65 2a 29 69 64 3b 0a  = (os2File*)id;.
1820: 20 20 4f 53 54 52 41 43 45 28 28 20 22 53 59 4e    OSTRACE(( "SYN
1830: 43 20 25 64 20 6c 6f 63 6b 3d 25 64 5c 6e 22 2c  C %d lock=%d\n",
1840: 20 70 46 69 6c 65 2d 3e 68 2c 20 70 46 69 6c 65   pFile->h, pFile
1850: 2d 3e 6c 6f 63 6b 74 79 70 65 20 29 29 3b 0a 23  ->locktype ));.#
1860: 69 66 64 65 66 20 53 51 4c 49 54 45 5f 54 45 53  ifdef SQLITE_TES
1870: 54 0a 20 20 69 66 28 20 66 6c 61 67 73 20 26 20  T.  if( flags & 
1880: 53 51 4c 49 54 45 5f 53 59 4e 43 5f 46 55 4c 4c  SQLITE_SYNC_FULL
1890: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  ){.    sqlite3_f
18a0: 75 6c 6c 73 79 6e 63 5f 63 6f 75 6e 74 2b 2b 3b  ullsync_count++;
18b0: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 73  .  }.  sqlite3_s
18c0: 79 6e 63 5f 63 6f 75 6e 74 2b 2b 3b 0a 23 65 6e  ync_count++;.#en
18d0: 64 69 66 0a 20 20 2f 2a 20 49 66 20 77 65 20 63  dif.  /* If we c
18e0: 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 74 68 65  ompiled with the
18f0: 20 53 51 4c 49 54 45 5f 4e 4f 5f 53 59 4e 43 20   SQLITE_NO_SYNC 
1900: 66 6c 61 67 2c 20 74 68 65 6e 20 73 79 6e 63 69  flag, then synci
1910: 6e 67 20 69 73 20 61 0a 20 20 2a 2a 20 6e 6f 2d  ng is a.  ** no-
1920: 6f 70 0a 20 20 2a 2f 0a 23 69 66 64 65 66 20 53  op.  */.#ifdef S
1930: 51 4c 49 54 45 5f 4e 4f 5f 53 59 4e 43 0a 20 20  QLITE_NO_SYNC.  
1940: 55 4e 55 53 45 44 5f 50 41 52 41 4d 45 54 45 52  UNUSED_PARAMETER
1950: 28 70 46 69 6c 65 29 3b 0a 20 20 72 65 74 75 72  (pFile);.  retur
1960: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 23 65 6c  n SQLITE_OK;.#el
1970: 73 65 0a 20 20 72 65 74 75 72 6e 20 44 6f 73 52  se.  return DosR
1980: 65 73 65 74 42 75 66 66 65 72 28 20 70 46 69 6c  esetBuffer( pFil
1990: 65 2d 3e 68 20 29 20 3d 3d 20 4e 4f 5f 45 52 52  e->h ) == NO_ERR
19a0: 4f 52 20 3f 20 53 51 4c 49 54 45 5f 4f 4b 20 3a  OR ? SQLITE_OK :
19b0: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 3b 0a 23   SQLITE_IOERR;.#
19c0: 65 6e 64 69 66 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44  endif.}../*.** D
19d0: 65 74 65 72 6d 69 6e 65 20 74 68 65 20 63 75 72  etermine the cur
19e0: 72 65 6e 74 20 73 69 7a 65 20 6f 66 20 61 20 66  rent size of a f
19f0: 69 6c 65 20 69 6e 20 62 79 74 65 73 0a 2a 2f 0a  ile in bytes.*/.
1a00: 73 74 61 74 69 63 20 69 6e 74 20 6f 73 32 46 69  static int os2Fi
1a10: 6c 65 53 69 7a 65 28 20 73 71 6c 69 74 65 33 5f  leSize( sqlite3_
1a20: 66 69 6c 65 20 2a 69 64 2c 20 73 71 6c 69 74 65  file *id, sqlite
1a30: 33 5f 69 6e 74 36 34 20 2a 70 53 69 7a 65 20 29  3_int64 *pSize )
1a40: 7b 0a 20 20 41 50 49 52 45 54 20 72 63 20 3d 20  {.  APIRET rc = 
1a50: 4e 4f 5f 45 52 52 4f 52 3b 0a 20 20 46 49 4c 45  NO_ERROR;.  FILE
1a60: 53 54 41 54 55 53 33 20 66 73 74 73 33 46 69 6c  STATUS3 fsts3Fil
1a70: 65 49 6e 66 6f 3b 0a 20 20 6d 65 6d 73 65 74 28  eInfo;.  memset(
1a80: 26 66 73 74 73 33 46 69 6c 65 49 6e 66 6f 2c 20  &fsts3FileInfo, 
1a90: 30 2c 20 73 69 7a 65 6f 66 28 66 73 74 73 33 46  0, sizeof(fsts3F
1aa0: 69 6c 65 49 6e 66 6f 29 29 3b 0a 20 20 61 73 73  ileInfo));.  ass
1ab0: 65 72 74 28 20 69 64 21 3d 30 20 29 3b 0a 20 20  ert( id!=0 );.  
1ac0: 53 69 6d 75 6c 61 74 65 49 4f 45 72 72 6f 72 28  SimulateIOError(
1ad0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49   return SQLITE_I
1ae0: 4f 45 52 52 5f 46 53 54 41 54 20 29 3b 0a 20 20  OERR_FSTAT );.  
1af0: 72 63 20 3d 20 44 6f 73 51 75 65 72 79 46 69 6c  rc = DosQueryFil
1b00: 65 49 6e 66 6f 28 20 28 28 6f 73 32 46 69 6c 65  eInfo( ((os2File
1b10: 2a 29 69 64 29 2d 3e 68 2c 20 46 49 4c 5f 53 54  *)id)->h, FIL_ST
1b20: 41 4e 44 41 52 44 2c 20 26 66 73 74 73 33 46 69  ANDARD, &fsts3Fi
1b30: 6c 65 49 6e 66 6f 2c 20 73 69 7a 65 6f 66 28 46  leInfo, sizeof(F
1b40: 49 4c 45 53 54 41 54 55 53 33 29 20 29 3b 0a 20  ILESTATUS3) );. 
1b50: 20 69 66 28 20 72 63 20 3d 3d 20 4e 4f 5f 45 52   if( rc == NO_ER
1b60: 52 4f 52 20 29 7b 0a 20 20 20 20 2a 70 53 69 7a  ROR ){.    *pSiz
1b70: 65 20 3d 20 66 73 74 73 33 46 69 6c 65 49 6e 66  e = fsts3FileInf
1b80: 6f 2e 63 62 46 69 6c 65 3b 0a 20 20 20 20 72 65  o.cbFile;.    re
1b90: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  turn SQLITE_OK;.
1ba0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 72 65 74    }else{.    ret
1bb0: 75 72 6e 20 53 51 4c 49 54 45 5f 49 4f 45 52 52  urn SQLITE_IOERR
1bc0: 5f 46 53 54 41 54 3b 0a 20 20 7d 0a 7d 0a 0a 2f  _FSTAT;.  }.}../
1bd0: 2a 0a 2a 2a 20 41 63 71 75 69 72 65 20 61 20 72  *.** Acquire a r
1be0: 65 61 64 65 72 20 6c 6f 63 6b 2e 0a 2a 2f 0a 73  eader lock..*/.s
1bf0: 74 61 74 69 63 20 69 6e 74 20 67 65 74 52 65 61  tatic int getRea
1c00: 64 4c 6f 63 6b 28 20 6f 73 32 46 69 6c 65 20 2a  dLock( os2File *
1c10: 70 46 69 6c 65 20 29 7b 0a 20 20 46 49 4c 45 4c  pFile ){.  FILEL
1c20: 4f 43 4b 20 20 4c 6f 63 6b 41 72 65 61 2c 0a 20  OCK  LockArea,. 
1c30: 20 20 20 20 20 20 20 20 20 20 20 55 6e 6c 6f 63             Unloc
1c40: 6b 41 72 65 61 3b 0a 20 20 41 50 49 52 45 54 20  kArea;.  APIRET 
1c50: 72 65 73 3b 0a 20 20 6d 65 6d 73 65 74 28 26 4c  res;.  memset(&L
1c60: 6f 63 6b 41 72 65 61 2c 20 30 2c 20 73 69 7a 65  ockArea, 0, size
1c70: 6f 66 28 4c 6f 63 6b 41 72 65 61 29 29 3b 0a 20  of(LockArea));. 
1c80: 20 6d 65 6d 73 65 74 28 26 55 6e 6c 6f 63 6b 41   memset(&UnlockA
1c90: 72 65 61 2c 20 30 2c 20 73 69 7a 65 6f 66 28 55  rea, 0, sizeof(U
1ca0: 6e 6c 6f 63 6b 41 72 65 61 29 29 3b 0a 20 20 4c  nlockArea));.  L
1cb0: 6f 63 6b 41 72 65 61 2e 6c 4f 66 66 73 65 74 20  ockArea.lOffset 
1cc0: 3d 20 53 48 41 52 45 44 5f 46 49 52 53 54 3b 0a  = SHARED_FIRST;.
1cd0: 20 20 4c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67    LockArea.lRang
1ce0: 65 20 3d 20 53 48 41 52 45 44 5f 53 49 5a 45 3b  e = SHARED_SIZE;
1cf0: 0a 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e 6c 4f  .  UnlockArea.lO
1d00: 66 66 73 65 74 20 3d 20 30 4c 3b 0a 20 20 55 6e  ffset = 0L;.  Un
1d10: 6c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65 20  lockArea.lRange 
1d20: 3d 20 30 4c 3b 0a 20 20 72 65 73 20 3d 20 44 6f  = 0L;.  res = Do
1d30: 73 53 65 74 46 69 6c 65 4c 6f 63 6b 73 28 20 70  sSetFileLocks( p
1d40: 46 69 6c 65 2d 3e 68 2c 20 26 55 6e 6c 6f 63 6b  File->h, &Unlock
1d50: 41 72 65 61 2c 20 26 4c 6f 63 6b 41 72 65 61 2c  Area, &LockArea,
1d60: 20 4c 4f 43 4b 5f 54 49 4d 45 4f 55 54 2c 20 31   LOCK_TIMEOUT, 1
1d70: 4c 20 29 3b 0a 20 20 4f 53 54 52 41 43 45 28 28  L );.  OSTRACE((
1d80: 20 22 47 45 54 52 45 41 44 4c 4f 43 4b 20 25 64   "GETREADLOCK %d
1d90: 20 72 65 73 3d 25 64 5c 6e 22 2c 20 70 46 69 6c   res=%d\n", pFil
1da0: 65 2d 3e 68 2c 20 72 65 73 20 29 29 3b 0a 20 20  e->h, res ));.  
1db0: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f  return res;.}../
1dc0: 2a 0a 2a 2a 20 55 6e 64 6f 20 61 20 72 65 61 64  *.** Undo a read
1dd0: 6c 6f 63 6b 0a 2a 2f 0a 73 74 61 74 69 63 20 69  lock.*/.static i
1de0: 6e 74 20 75 6e 6c 6f 63 6b 52 65 61 64 4c 6f 63  nt unlockReadLoc
1df0: 6b 28 20 6f 73 32 46 69 6c 65 20 2a 69 64 20 29  k( os2File *id )
1e00: 7b 0a 20 20 46 49 4c 45 4c 4f 43 4b 20 20 4c 6f  {.  FILELOCK  Lo
1e10: 63 6b 41 72 65 61 2c 0a 20 20 20 20 20 20 20 20  ckArea,.        
1e20: 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65 61 3b 0a      UnlockArea;.
1e30: 20 20 41 50 49 52 45 54 20 72 65 73 3b 0a 20 20    APIRET res;.  
1e40: 6d 65 6d 73 65 74 28 26 4c 6f 63 6b 41 72 65 61  memset(&LockArea
1e50: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 4c 6f 63 6b  , 0, sizeof(Lock
1e60: 41 72 65 61 29 29 3b 0a 20 20 6d 65 6d 73 65 74  Area));.  memset
1e70: 28 26 55 6e 6c 6f 63 6b 41 72 65 61 2c 20 30 2c  (&UnlockArea, 0,
1e80: 20 73 69 7a 65 6f 66 28 55 6e 6c 6f 63 6b 41 72   sizeof(UnlockAr
1e90: 65 61 29 29 3b 0a 20 20 4c 6f 63 6b 41 72 65 61  ea));.  LockArea
1ea0: 2e 6c 4f 66 66 73 65 74 20 3d 20 30 4c 3b 0a 20  .lOffset = 0L;. 
1eb0: 20 4c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65   LockArea.lRange
1ec0: 20 3d 20 30 4c 3b 0a 20 20 55 6e 6c 6f 63 6b 41   = 0L;.  UnlockA
1ed0: 72 65 61 2e 6c 4f 66 66 73 65 74 20 3d 20 53 48  rea.lOffset = SH
1ee0: 41 52 45 44 5f 46 49 52 53 54 3b 0a 20 20 55 6e  ARED_FIRST;.  Un
1ef0: 6c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65 20  lockArea.lRange 
1f00: 3d 20 53 48 41 52 45 44 5f 53 49 5a 45 3b 0a 20  = SHARED_SIZE;. 
1f10: 20 72 65 73 20 3d 20 44 6f 73 53 65 74 46 69 6c   res = DosSetFil
1f20: 65 4c 6f 63 6b 73 28 20 69 64 2d 3e 68 2c 20 26  eLocks( id->h, &
1f30: 55 6e 6c 6f 63 6b 41 72 65 61 2c 20 26 4c 6f 63  UnlockArea, &Loc
1f40: 6b 41 72 65 61 2c 20 4c 4f 43 4b 5f 54 49 4d 45  kArea, LOCK_TIME
1f50: 4f 55 54 2c 20 31 4c 20 29 3b 0a 20 20 4f 53 54  OUT, 1L );.  OST
1f60: 52 41 43 45 28 28 20 22 55 4e 4c 4f 43 4b 2d 52  RACE(( "UNLOCK-R
1f70: 45 41 44 4c 4f 43 4b 20 66 69 6c 65 20 68 61 6e  EADLOCK file han
1f80: 64 6c 65 3d 25 64 20 72 65 73 3d 25 64 3f 5c 6e  dle=%d res=%d?\n
1f90: 22 2c 20 69 64 2d 3e 68 2c 20 72 65 73 20 29 29  ", id->h, res ))
1fa0: 3b 0a 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a  ;.  return res;.
1fb0: 7d 0a 0a 2f 2a 0a 2a 2a 20 4c 6f 63 6b 20 74 68  }../*.** Lock th
1fc0: 65 20 66 69 6c 65 20 77 69 74 68 20 74 68 65 20  e file with the 
1fd0: 6c 6f 63 6b 20 73 70 65 63 69 66 69 65 64 20 62  lock specified b
1fe0: 79 20 70 61 72 61 6d 65 74 65 72 20 6c 6f 63 6b  y parameter lock
1ff0: 74 79 70 65 20 2d 20 6f 6e 65 0a 2a 2a 20 6f 66  type - one.** of
2000: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a   the following:.
2010: 2a 2a 0a 2a 2a 20 20 20 20 20 28 31 29 20 53 48  **.**     (1) SH
2020: 41 52 45 44 5f 4c 4f 43 4b 0a 2a 2a 20 20 20 20  ARED_LOCK.**    
2030: 20 28 32 29 20 52 45 53 45 52 56 45 44 5f 4c 4f   (2) RESERVED_LO
2040: 43 4b 0a 2a 2a 20 20 20 20 20 28 33 29 20 50 45  CK.**     (3) PE
2050: 4e 44 49 4e 47 5f 4c 4f 43 4b 0a 2a 2a 20 20 20  NDING_LOCK.**   
2060: 20 20 28 34 29 20 45 58 43 4c 55 53 49 56 45 5f    (4) EXCLUSIVE_
2070: 4c 4f 43 4b 0a 2a 2a 0a 2a 2a 20 53 6f 6d 65 74  LOCK.**.** Somet
2080: 69 6d 65 73 20 77 68 65 6e 20 72 65 71 75 65 73  imes when reques
2090: 74 69 6e 67 20 6f 6e 65 20 6c 6f 63 6b 20 73 74  ting one lock st
20a0: 61 74 65 2c 20 61 64 64 69 74 69 6f 6e 61 6c 20  ate, additional 
20b0: 6c 6f 63 6b 20 73 74 61 74 65 73 0a 2a 2a 20 61  lock states.** a
20c0: 72 65 20 69 6e 73 65 72 74 65 64 20 69 6e 20 62  re inserted in b
20d0: 65 74 77 65 65 6e 2e 20 20 54 68 65 20 6c 6f 63  etween.  The loc
20e0: 6b 69 6e 67 20 6d 69 67 68 74 20 66 61 69 6c 20  king might fail 
20f0: 6f 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 6c 61  on one of the la
2100: 74 65 72 0a 2a 2a 20 74 72 61 6e 73 69 74 69 6f  ter.** transitio
2110: 6e 73 20 6c 65 61 76 69 6e 67 20 74 68 65 20 6c  ns leaving the l
2120: 6f 63 6b 20 73 74 61 74 65 20 64 69 66 66 65 72  ock state differ
2130: 65 6e 74 20 66 72 6f 6d 20 77 68 61 74 20 69 74  ent from what it
2140: 20 73 74 61 72 74 65 64 20 62 75 74 0a 2a 2a 20   started but.** 
2150: 73 74 69 6c 6c 20 73 68 6f 72 74 20 6f 66 20 69  still short of i
2160: 74 73 20 67 6f 61 6c 2e 20 20 54 68 65 20 66 6f  ts goal.  The fo
2170: 6c 6c 6f 77 69 6e 67 20 63 68 61 72 74 20 73 68  llowing chart sh
2180: 6f 77 73 20 74 68 65 20 61 6c 6c 6f 77 65 64 0a  ows the allowed.
2190: 2a 2a 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 61  ** transitions a
21a0: 6e 64 20 74 68 65 20 69 6e 73 65 72 74 65 64 20  nd the inserted 
21b0: 69 6e 74 65 72 6d 65 64 69 61 74 65 20 73 74 61  intermediate sta
21c0: 74 65 73 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 55 4e  tes:.**.**    UN
21d0: 4c 4f 43 4b 45 44 20 2d 3e 20 53 48 41 52 45 44  LOCKED -> SHARED
21e0: 0a 2a 2a 20 20 20 20 53 48 41 52 45 44 20 2d 3e  .**    SHARED ->
21f0: 20 52 45 53 45 52 56 45 44 0a 2a 2a 20 20 20 20   RESERVED.**    
2200: 53 48 41 52 45 44 20 2d 3e 20 28 50 45 4e 44 49  SHARED -> (PENDI
2210: 4e 47 29 20 2d 3e 20 45 58 43 4c 55 53 49 56 45  NG) -> EXCLUSIVE
2220: 0a 2a 2a 20 20 20 20 52 45 53 45 52 56 45 44 20  .**    RESERVED 
2230: 2d 3e 20 28 50 45 4e 44 49 4e 47 29 20 2d 3e 20  -> (PENDING) -> 
2240: 45 58 43 4c 55 53 49 56 45 0a 2a 2a 20 20 20 20  EXCLUSIVE.**    
2250: 50 45 4e 44 49 4e 47 20 2d 3e 20 45 58 43 4c 55  PENDING -> EXCLU
2260: 53 49 56 45 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20  SIVE.**.** This 
2270: 72 6f 75 74 69 6e 65 20 77 69 6c 6c 20 6f 6e 6c  routine will onl
2280: 79 20 69 6e 63 72 65 61 73 65 20 61 20 6c 6f 63  y increase a loc
2290: 6b 2e 20 20 54 68 65 20 6f 73 32 55 6e 6c 6f 63  k.  The os2Unloc
22a0: 6b 28 29 20 72 6f 75 74 69 6e 65 0a 2a 2a 20 65  k() routine.** e
22b0: 72 61 73 65 73 20 61 6c 6c 20 6c 6f 63 6b 73 20  rases all locks 
22c0: 61 74 20 6f 6e 63 65 20 61 6e 64 20 72 65 74 75  at once and retu
22d0: 72 6e 73 20 75 73 20 69 6d 6d 65 64 69 61 74 65  rns us immediate
22e0: 6c 79 20 74 6f 20 6c 6f 63 6b 69 6e 67 20 6c 65  ly to locking le
22f0: 76 65 6c 20 30 2e 0a 2a 2a 20 49 74 20 69 73 20  vel 0..** It is 
2300: 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 74 6f 20  not possible to 
2310: 6c 6f 77 65 72 20 74 68 65 20 6c 6f 63 6b 69 6e  lower the lockin
2320: 67 20 6c 65 76 65 6c 20 6f 6e 65 20 73 74 65 70  g level one step
2330: 20 61 74 20 61 20 74 69 6d 65 2e 20 20 59 6f 75   at a time.  You
2340: 0a 2a 2a 20 6d 75 73 74 20 67 6f 20 73 74 72 61  .** must go stra
2350: 69 67 68 74 20 74 6f 20 6c 6f 63 6b 69 6e 67 20  ight to locking 
2360: 6c 65 76 65 6c 20 30 2e 0a 2a 2f 0a 73 74 61 74  level 0..*/.stat
2370: 69 63 20 69 6e 74 20 6f 73 32 4c 6f 63 6b 28 20  ic int os2Lock( 
2380: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 69 64  sqlite3_file *id
2390: 2c 20 69 6e 74 20 6c 6f 63 6b 74 79 70 65 20 29  , int locktype )
23a0: 7b 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 51 4c  {.  int rc = SQL
23b0: 49 54 45 5f 4f 4b 3b 20 20 20 20 20 20 20 2f 2a  ITE_OK;       /*
23c0: 20 52 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f   Return code fro
23d0: 6d 20 73 75 62 72 6f 75 74 69 6e 65 73 20 2a 2f  m subroutines */
23e0: 0a 20 20 41 50 49 52 45 54 20 72 65 73 20 3d 20  .  APIRET res = 
23f0: 4e 4f 5f 45 52 52 4f 52 3b 20 20 20 20 2f 2a 20  NO_ERROR;    /* 
2400: 52 65 73 75 6c 74 20 6f 66 20 61 6e 20 4f 53 2f  Result of an OS/
2410: 32 20 6c 6f 63 6b 20 63 61 6c 6c 20 2a 2f 0a 20  2 lock call */. 
2420: 20 69 6e 74 20 6e 65 77 4c 6f 63 6b 74 79 70 65   int newLocktype
2430: 3b 20 20 20 20 20 20 20 2f 2a 20 53 65 74 20 70  ;       /* Set p
2440: 46 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70 65 20 74  File->locktype t
2450: 6f 20 74 68 69 73 20 76 61 6c 75 65 20 62 65 66  o this value bef
2460: 6f 72 65 20 65 78 69 74 69 6e 67 20 2a 2f 0a 20  ore exiting */. 
2470: 20 69 6e 74 20 67 6f 74 50 65 6e 64 69 6e 67 4c   int gotPendingL
2480: 6f 63 6b 20 3d 20 30 3b 2f 2a 20 54 72 75 65 20  ock = 0;/* True 
2490: 69 66 20 77 65 20 61 63 71 75 69 72 65 64 20 61  if we acquired a
24a0: 20 50 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 74 68   PENDING lock th
24b0: 69 73 20 74 69 6d 65 20 2a 2f 0a 20 20 46 49 4c  is time */.  FIL
24c0: 45 4c 4f 43 4b 20 20 4c 6f 63 6b 41 72 65 61 2c  ELOCK  LockArea,
24d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 55 6e 6c  .            Unl
24e0: 6f 63 6b 41 72 65 61 3b 0a 20 20 6f 73 32 46 69  ockArea;.  os2Fi
24f0: 6c 65 20 2a 70 46 69 6c 65 20 3d 20 28 6f 73 32  le *pFile = (os2
2500: 46 69 6c 65 2a 29 69 64 3b 0a 20 20 6d 65 6d 73  File*)id;.  mems
2510: 65 74 28 26 4c 6f 63 6b 41 72 65 61 2c 20 30 2c  et(&LockArea, 0,
2520: 20 73 69 7a 65 6f 66 28 4c 6f 63 6b 41 72 65 61   sizeof(LockArea
2530: 29 29 3b 0a 20 20 6d 65 6d 73 65 74 28 26 55 6e  ));.  memset(&Un
2540: 6c 6f 63 6b 41 72 65 61 2c 20 30 2c 20 73 69 7a  lockArea, 0, siz
2550: 65 6f 66 28 55 6e 6c 6f 63 6b 41 72 65 61 29 29  eof(UnlockArea))
2560: 3b 0a 20 20 61 73 73 65 72 74 28 20 70 46 69 6c  ;.  assert( pFil
2570: 65 21 3d 30 20 29 3b 0a 20 20 4f 53 54 52 41 43  e!=0 );.  OSTRAC
2580: 45 28 28 20 22 4c 4f 43 4b 20 25 64 20 25 64 20  E(( "LOCK %d %d 
2590: 77 61 73 20 25 64 5c 6e 22 2c 20 70 46 69 6c 65  was %d\n", pFile
25a0: 2d 3e 68 2c 20 6c 6f 63 6b 74 79 70 65 2c 20 70  ->h, locktype, p
25b0: 46 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70 65 20 29  File->locktype )
25c0: 29 3b 0a 0a 20 20 2f 2a 20 49 66 20 74 68 65 72  );..  /* If ther
25d0: 65 20 69 73 20 61 6c 72 65 61 64 79 20 61 20 6c  e is already a l
25e0: 6f 63 6b 20 6f 66 20 74 68 69 73 20 74 79 70 65  ock of this type
25f0: 20 6f 72 20 6d 6f 72 65 20 72 65 73 74 72 69 63   or more restric
2600: 74 69 76 65 20 6f 6e 20 74 68 65 0a 20 20 2a 2a  tive on the.  **
2610: 20 6f 73 32 46 69 6c 65 2c 20 64 6f 20 6e 6f 74   os2File, do not
2620: 68 69 6e 67 2e 20 44 6f 6e 27 74 20 75 73 65 20  hing. Don't use 
2630: 74 68 65 20 65 6e 64 5f 6c 6f 63 6b 3a 20 65 78  the end_lock: ex
2640: 69 74 20 70 61 74 68 2c 20 61 73 0a 20 20 2a 2a  it path, as.  **
2650: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65   sqlite3_mutex_e
2660: 6e 74 65 72 28 29 20 68 61 73 6e 27 74 20 62 65  nter() hasn't be
2670: 65 6e 20 63 61 6c 6c 65 64 20 79 65 74 2e 0a 20  en called yet.. 
2680: 20 2a 2f 0a 20 20 69 66 28 20 70 46 69 6c 65 2d   */.  if( pFile-
2690: 3e 6c 6f 63 6b 74 79 70 65 3e 3d 6c 6f 63 6b 74  >locktype>=lockt
26a0: 79 70 65 20 29 7b 0a 20 20 20 20 4f 53 54 52 41  ype ){.    OSTRA
26b0: 43 45 28 28 20 22 4c 4f 43 4b 20 25 64 20 25 64  CE(( "LOCK %d %d
26c0: 20 6f 6b 20 28 61 6c 72 65 61 64 79 20 68 65 6c   ok (already hel
26d0: 64 29 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c  d)\n", pFile->h,
26e0: 20 6c 6f 63 6b 74 79 70 65 20 29 29 3b 0a 20 20   locktype ));.  
26f0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
2700: 4f 4b 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 4d 61  OK;.  }..  /* Ma
2710: 6b 65 20 73 75 72 65 20 74 68 65 20 6c 6f 63 6b  ke sure the lock
2720: 69 6e 67 20 73 65 71 75 65 6e 63 65 20 69 73 20  ing sequence is 
2730: 63 6f 72 72 65 63 74 0a 20 20 2a 2f 0a 20 20 61  correct.  */.  a
2740: 73 73 65 72 74 28 20 70 46 69 6c 65 2d 3e 6c 6f  ssert( pFile->lo
2750: 63 6b 74 79 70 65 21 3d 4e 4f 5f 4c 4f 43 4b 20  cktype!=NO_LOCK 
2760: 7c 7c 20 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41  || locktype==SHA
2770: 52 45 44 5f 4c 4f 43 4b 20 29 3b 0a 20 20 61 73  RED_LOCK );.  as
2780: 73 65 72 74 28 20 6c 6f 63 6b 74 79 70 65 21 3d  sert( locktype!=
2790: 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b 20 29 3b 0a  PENDING_LOCK );.
27a0: 20 20 61 73 73 65 72 74 28 20 6c 6f 63 6b 74 79    assert( lockty
27b0: 70 65 21 3d 52 45 53 45 52 56 45 44 5f 4c 4f 43  pe!=RESERVED_LOC
27c0: 4b 20 7c 7c 20 70 46 69 6c 65 2d 3e 6c 6f 63 6b  K || pFile->lock
27d0: 74 79 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43  type==SHARED_LOC
27e0: 4b 20 29 3b 0a 0a 20 20 2f 2a 20 4c 6f 63 6b 20  K );..  /* Lock 
27f0: 74 68 65 20 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b  the PENDING_LOCK
2800: 20 62 79 74 65 20 69 66 20 77 65 20 6e 65 65 64   byte if we need
2810: 20 74 6f 20 61 63 71 75 69 72 65 20 61 20 50 45   to acquire a PE
2820: 4e 44 49 4e 47 20 6c 6f 63 6b 20 6f 72 0a 20 20  NDING lock or.  
2830: 2a 2a 20 61 20 53 48 41 52 45 44 20 6c 6f 63 6b  ** a SHARED lock
2840: 2e 20 20 49 66 20 77 65 20 61 72 65 20 61 63 71  .  If we are acq
2850: 75 69 72 69 6e 67 20 61 20 53 48 41 52 45 44 20  uiring a SHARED 
2860: 6c 6f 63 6b 2c 20 74 68 65 20 61 63 71 75 69 73  lock, the acquis
2870: 69 74 69 6f 6e 20 6f 66 0a 20 20 2a 2a 20 74 68  ition of.  ** th
2880: 65 20 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b 20 62  e PENDING_LOCK b
2890: 79 74 65 20 69 73 20 74 65 6d 70 6f 72 61 72 79  yte is temporary
28a0: 2e 0a 20 20 2a 2f 0a 20 20 6e 65 77 4c 6f 63 6b  ..  */.  newLock
28b0: 74 79 70 65 20 3d 20 70 46 69 6c 65 2d 3e 6c 6f  type = pFile->lo
28c0: 63 6b 74 79 70 65 3b 0a 20 20 69 66 28 20 70 46  cktype;.  if( pF
28d0: 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 4e  ile->locktype==N
28e0: 4f 5f 4c 4f 43 4b 0a 20 20 20 20 20 20 7c 7c 20  O_LOCK.      || 
28f0: 28 6c 6f 63 6b 74 79 70 65 3d 3d 45 58 43 4c 55  (locktype==EXCLU
2900: 53 49 56 45 5f 4c 4f 43 4b 20 26 26 20 70 46 69  SIVE_LOCK && pFi
2910: 6c 65 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 52 45  le->locktype==RE
2920: 53 45 52 56 45 44 5f 4c 4f 43 4b 29 0a 20 20 29  SERVED_LOCK).  )
2930: 7b 0a 20 20 20 20 4c 6f 63 6b 41 72 65 61 2e 6c  {.    LockArea.l
2940: 4f 66 66 73 65 74 20 3d 20 50 45 4e 44 49 4e 47  Offset = PENDING
2950: 5f 42 59 54 45 3b 0a 20 20 20 20 4c 6f 63 6b 41  _BYTE;.    LockA
2960: 72 65 61 2e 6c 52 61 6e 67 65 20 3d 20 31 4c 3b  rea.lRange = 1L;
2970: 0a 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e  .    UnlockArea.
2980: 6c 4f 66 66 73 65 74 20 3d 20 30 4c 3b 0a 20 20  lOffset = 0L;.  
2990: 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e 6c 52 61    UnlockArea.lRa
29a0: 6e 67 65 20 3d 20 30 4c 3b 0a 0a 20 20 20 20 2f  nge = 0L;..    /
29b0: 2a 20 77 61 69 74 20 6c 6f 6e 67 65 72 20 74 68  * wait longer th
29c0: 61 6e 20 4c 4f 43 4b 5f 54 49 4d 45 4f 55 54 20  an LOCK_TIMEOUT 
29d0: 68 65 72 65 20 6e 6f 74 20 74 6f 20 68 61 76 65  here not to have
29e0: 20 74 6f 20 74 72 79 20 6d 75 6c 74 69 70 6c 65   to try multiple
29f0: 20 74 69 6d 65 73 20 2a 2f 0a 20 20 20 20 72 65   times */.    re
2a00: 73 20 3d 20 44 6f 73 53 65 74 46 69 6c 65 4c 6f  s = DosSetFileLo
2a10: 63 6b 73 28 20 70 46 69 6c 65 2d 3e 68 2c 20 26  cks( pFile->h, &
2a20: 55 6e 6c 6f 63 6b 41 72 65 61 2c 20 26 4c 6f 63  UnlockArea, &Loc
2a30: 6b 41 72 65 61 2c 20 31 30 30 4c 2c 20 30 4c 20  kArea, 100L, 0L 
2a40: 29 3b 0a 20 20 20 20 69 66 28 20 72 65 73 20 3d  );.    if( res =
2a50: 3d 20 4e 4f 5f 45 52 52 4f 52 20 29 7b 0a 20 20  = NO_ERROR ){.  
2a60: 20 20 20 20 67 6f 74 50 65 6e 64 69 6e 67 4c 6f      gotPendingLo
2a70: 63 6b 20 3d 20 31 3b 0a 20 20 20 20 20 20 4f 53  ck = 1;.      OS
2a80: 54 52 41 43 45 28 28 20 22 4c 4f 43 4b 20 25 64  TRACE(( "LOCK %d
2a90: 20 70 65 6e 64 69 6e 67 20 6c 6f 63 6b 20 62 6f   pending lock bo
2aa0: 6f 6c 65 61 6e 20 73 65 74 2e 20 20 72 65 73 3d  olean set.  res=
2ab0: 25 64 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c  %d\n", pFile->h,
2ac0: 20 72 65 73 20 29 29 3b 0a 20 20 20 20 7d 0a 20   res ));.    }. 
2ad0: 20 7d 0a 0a 20 20 2f 2a 20 41 63 71 75 69 72 65   }..  /* Acquire
2ae0: 20 61 20 73 68 61 72 65 64 20 6c 6f 63 6b 0a 20   a shared lock. 
2af0: 20 2a 2f 0a 20 20 69 66 28 20 6c 6f 63 6b 74 79   */.  if( lockty
2b00: 70 65 3d 3d 53 48 41 52 45 44 5f 4c 4f 43 4b 20  pe==SHARED_LOCK 
2b10: 26 26 20 72 65 73 20 3d 3d 20 4e 4f 5f 45 52 52  && res == NO_ERR
2b20: 4f 52 20 29 7b 0a 20 20 20 20 61 73 73 65 72 74  OR ){.    assert
2b30: 28 20 70 46 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70  ( pFile->locktyp
2b40: 65 3d 3d 4e 4f 5f 4c 4f 43 4b 20 29 3b 0a 20 20  e==NO_LOCK );.  
2b50: 20 20 72 65 73 20 3d 20 67 65 74 52 65 61 64 4c    res = getReadL
2b60: 6f 63 6b 28 70 46 69 6c 65 29 3b 0a 20 20 20 20  ock(pFile);.    
2b70: 69 66 28 20 72 65 73 20 3d 3d 20 4e 4f 5f 45 52  if( res == NO_ER
2b80: 52 4f 52 20 29 7b 0a 20 20 20 20 20 20 6e 65 77  ROR ){.      new
2b90: 4c 6f 63 6b 74 79 70 65 20 3d 20 53 48 41 52 45  Locktype = SHARE
2ba0: 44 5f 4c 4f 43 4b 3b 0a 20 20 20 20 7d 0a 20 20  D_LOCK;.    }.  
2bb0: 20 20 4f 53 54 52 41 43 45 28 28 20 22 4c 4f 43    OSTRACE(( "LOC
2bc0: 4b 20 25 64 20 61 63 71 75 69 72 65 20 73 68 61  K %d acquire sha
2bd0: 72 65 64 20 6c 6f 63 6b 2e 20 72 65 73 3d 25 64  red lock. res=%d
2be0: 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c 20 72  \n", pFile->h, r
2bf0: 65 73 20 29 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a  es ));.  }..  /*
2c00: 20 41 63 71 75 69 72 65 20 61 20 52 45 53 45 52   Acquire a RESER
2c10: 56 45 44 20 6c 6f 63 6b 0a 20 20 2a 2f 0a 20 20  VED lock.  */.  
2c20: 69 66 28 20 6c 6f 63 6b 74 79 70 65 3d 3d 52 45  if( locktype==RE
2c30: 53 45 52 56 45 44 5f 4c 4f 43 4b 20 26 26 20 72  SERVED_LOCK && r
2c40: 65 73 20 3d 3d 20 4e 4f 5f 45 52 52 4f 52 20 29  es == NO_ERROR )
2c50: 7b 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 46  {.    assert( pF
2c60: 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70 65 3d 3d 53  ile->locktype==S
2c70: 48 41 52 45 44 5f 4c 4f 43 4b 20 29 3b 0a 20 20  HARED_LOCK );.  
2c80: 20 20 4c 6f 63 6b 41 72 65 61 2e 6c 4f 66 66 73    LockArea.lOffs
2c90: 65 74 20 3d 20 52 45 53 45 52 56 45 44 5f 42 59  et = RESERVED_BY
2ca0: 54 45 3b 0a 20 20 20 20 4c 6f 63 6b 41 72 65 61  TE;.    LockArea
2cb0: 2e 6c 52 61 6e 67 65 20 3d 20 31 4c 3b 0a 20 20  .lRange = 1L;.  
2cc0: 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e 6c 4f 66    UnlockArea.lOf
2cd0: 66 73 65 74 20 3d 20 30 4c 3b 0a 20 20 20 20 55  fset = 0L;.    U
2ce0: 6e 6c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65  nlockArea.lRange
2cf0: 20 3d 20 30 4c 3b 0a 20 20 20 20 72 65 73 20 3d   = 0L;.    res =
2d00: 20 44 6f 73 53 65 74 46 69 6c 65 4c 6f 63 6b 73   DosSetFileLocks
2d10: 28 20 70 46 69 6c 65 2d 3e 68 2c 20 26 55 6e 6c  ( pFile->h, &Unl
2d20: 6f 63 6b 41 72 65 61 2c 20 26 4c 6f 63 6b 41 72  ockArea, &LockAr
2d30: 65 61 2c 20 4c 4f 43 4b 5f 54 49 4d 45 4f 55 54  ea, LOCK_TIMEOUT
2d40: 2c 20 30 4c 20 29 3b 0a 20 20 20 20 69 66 28 20  , 0L );.    if( 
2d50: 72 65 73 20 3d 3d 20 4e 4f 5f 45 52 52 4f 52 20  res == NO_ERROR 
2d60: 29 7b 0a 20 20 20 20 20 20 6e 65 77 4c 6f 63 6b  ){.      newLock
2d70: 74 79 70 65 20 3d 20 52 45 53 45 52 56 45 44 5f  type = RESERVED_
2d80: 4c 4f 43 4b 3b 0a 20 20 20 20 7d 0a 20 20 20 20  LOCK;.    }.    
2d90: 4f 53 54 52 41 43 45 28 28 20 22 4c 4f 43 4b 20  OSTRACE(( "LOCK 
2da0: 25 64 20 61 63 71 75 69 72 65 20 72 65 73 65 72  %d acquire reser
2db0: 76 65 64 20 6c 6f 63 6b 2e 20 72 65 73 3d 25 64  ved lock. res=%d
2dc0: 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c 20 72  \n", pFile->h, r
2dd0: 65 73 20 29 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a  es ));.  }..  /*
2de0: 20 41 63 71 75 69 72 65 20 61 20 50 45 4e 44 49   Acquire a PENDI
2df0: 4e 47 20 6c 6f 63 6b 0a 20 20 2a 2f 0a 20 20 69  NG lock.  */.  i
2e00: 66 28 20 6c 6f 63 6b 74 79 70 65 3d 3d 45 58 43  f( locktype==EXC
2e10: 4c 55 53 49 56 45 5f 4c 4f 43 4b 20 26 26 20 72  LUSIVE_LOCK && r
2e20: 65 73 20 3d 3d 20 4e 4f 5f 45 52 52 4f 52 20 29  es == NO_ERROR )
2e30: 7b 0a 20 20 20 20 6e 65 77 4c 6f 63 6b 74 79 70  {.    newLocktyp
2e40: 65 20 3d 20 50 45 4e 44 49 4e 47 5f 4c 4f 43 4b  e = PENDING_LOCK
2e50: 3b 0a 20 20 20 20 67 6f 74 50 65 6e 64 69 6e 67  ;.    gotPending
2e60: 4c 6f 63 6b 20 3d 20 30 3b 0a 20 20 20 20 4f 53  Lock = 0;.    OS
2e70: 54 52 41 43 45 28 28 20 22 4c 4f 43 4b 20 25 64  TRACE(( "LOCK %d
2e80: 20 61 63 71 75 69 72 65 20 70 65 6e 64 69 6e 67   acquire pending
2e90: 20 6c 6f 63 6b 2e 20 70 65 6e 64 69 6e 67 20 6c   lock. pending l
2ea0: 6f 63 6b 20 62 6f 6f 6c 65 61 6e 20 75 6e 73 65  ock boolean unse
2eb0: 74 2e 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20  t.\n",.         
2ec0: 20 20 20 20 20 20 70 46 69 6c 65 2d 3e 68 20 29        pFile->h )
2ed0: 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 41 63 71  );.  }..  /* Acq
2ee0: 75 69 72 65 20 61 6e 20 45 58 43 4c 55 53 49 56  uire an EXCLUSIV
2ef0: 45 20 6c 6f 63 6b 0a 20 20 2a 2f 0a 20 20 69 66  E lock.  */.  if
2f00: 28 20 6c 6f 63 6b 74 79 70 65 3d 3d 45 58 43 4c  ( locktype==EXCL
2f10: 55 53 49 56 45 5f 4c 4f 43 4b 20 26 26 20 72 65  USIVE_LOCK && re
2f20: 73 20 3d 3d 20 4e 4f 5f 45 52 52 4f 52 20 29 7b  s == NO_ERROR ){
2f30: 0a 20 20 20 20 61 73 73 65 72 74 28 20 70 46 69  .    assert( pFi
2f40: 6c 65 2d 3e 6c 6f 63 6b 74 79 70 65 3e 3d 53 48  le->locktype>=SH
2f50: 41 52 45 44 5f 4c 4f 43 4b 20 29 3b 0a 20 20 20  ARED_LOCK );.   
2f60: 20 72 65 73 20 3d 20 75 6e 6c 6f 63 6b 52 65 61   res = unlockRea
2f70: 64 4c 6f 63 6b 28 70 46 69 6c 65 29 3b 0a 20 20  dLock(pFile);.  
2f80: 20 20 4f 53 54 52 41 43 45 28 28 20 22 75 6e 72    OSTRACE(( "unr
2f90: 65 61 64 6c 6f 63 6b 20 3d 20 25 64 5c 6e 22 2c  eadlock = %d\n",
2fa0: 20 72 65 73 20 29 29 3b 0a 20 20 20 20 4c 6f 63   res ));.    Loc
2fb0: 6b 41 72 65 61 2e 6c 4f 66 66 73 65 74 20 3d 20  kArea.lOffset = 
2fc0: 53 48 41 52 45 44 5f 46 49 52 53 54 3b 0a 20 20  SHARED_FIRST;.  
2fd0: 20 20 4c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67    LockArea.lRang
2fe0: 65 20 3d 20 53 48 41 52 45 44 5f 53 49 5a 45 3b  e = SHARED_SIZE;
2ff0: 0a 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e  .    UnlockArea.
3000: 6c 4f 66 66 73 65 74 20 3d 20 30 4c 3b 0a 20 20  lOffset = 0L;.  
3010: 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e 6c 52 61    UnlockArea.lRa
3020: 6e 67 65 20 3d 20 30 4c 3b 0a 20 20 20 20 72 65  nge = 0L;.    re
3030: 73 20 3d 20 44 6f 73 53 65 74 46 69 6c 65 4c 6f  s = DosSetFileLo
3040: 63 6b 73 28 20 70 46 69 6c 65 2d 3e 68 2c 20 26  cks( pFile->h, &
3050: 55 6e 6c 6f 63 6b 41 72 65 61 2c 20 26 4c 6f 63  UnlockArea, &Loc
3060: 6b 41 72 65 61 2c 20 4c 4f 43 4b 5f 54 49 4d 45  kArea, LOCK_TIME
3070: 4f 55 54 2c 20 30 4c 20 29 3b 0a 20 20 20 20 69  OUT, 0L );.    i
3080: 66 28 20 72 65 73 20 3d 3d 20 4e 4f 5f 45 52 52  f( res == NO_ERR
3090: 4f 52 20 29 7b 0a 20 20 20 20 20 20 6e 65 77 4c  OR ){.      newL
30a0: 6f 63 6b 74 79 70 65 20 3d 20 45 58 43 4c 55 53  ocktype = EXCLUS
30b0: 49 56 45 5f 4c 4f 43 4b 3b 0a 20 20 20 20 7d 65  IVE_LOCK;.    }e
30c0: 6c 73 65 7b 0a 20 20 20 20 20 20 4f 53 54 52 41  lse{.      OSTRA
30d0: 43 45 28 28 20 22 4f 53 2f 32 20 65 72 72 6f 72  CE(( "OS/2 error
30e0: 2d 63 6f 64 65 20 3d 20 25 64 5c 6e 22 2c 20 72  -code = %d\n", r
30f0: 65 73 20 29 29 3b 0a 20 20 20 20 20 20 67 65 74  es ));.      get
3100: 52 65 61 64 4c 6f 63 6b 28 70 46 69 6c 65 29 3b  ReadLock(pFile);
3110: 0a 20 20 20 20 7d 0a 20 20 20 20 4f 53 54 52 41  .    }.    OSTRA
3120: 43 45 28 28 20 22 4c 4f 43 4b 20 25 64 20 61 63  CE(( "LOCK %d ac
3130: 71 75 69 72 65 20 65 78 63 6c 75 73 69 76 65 20  quire exclusive 
3140: 6c 6f 63 6b 2e 20 20 72 65 73 3d 25 64 5c 6e 22  lock.  res=%d\n"
3150: 2c 20 70 46 69 6c 65 2d 3e 68 2c 20 72 65 73 20  , pFile->h, res 
3160: 29 29 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 49 66  ));.  }..  /* If
3170: 20 77 65 20 61 72 65 20 68 6f 6c 64 69 6e 67 20   we are holding 
3180: 61 20 50 45 4e 44 49 4e 47 20 6c 6f 63 6b 20 74  a PENDING lock t
3190: 68 61 74 20 6f 75 67 68 74 20 74 6f 20 62 65 20  hat ought to be 
31a0: 72 65 6c 65 61 73 65 64 2c 20 74 68 65 6e 0a 20  released, then. 
31b0: 20 2a 2a 20 72 65 6c 65 61 73 65 20 69 74 20 6e   ** release it n
31c0: 6f 77 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 67  ow..  */.  if( g
31d0: 6f 74 50 65 6e 64 69 6e 67 4c 6f 63 6b 20 26 26  otPendingLock &&
31e0: 20 6c 6f 63 6b 74 79 70 65 3d 3d 53 48 41 52 45   locktype==SHARE
31f0: 44 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 69 6e  D_LOCK ){.    in
3200: 74 20 72 3b 0a 20 20 20 20 4c 6f 63 6b 41 72 65  t r;.    LockAre
3210: 61 2e 6c 4f 66 66 73 65 74 20 3d 20 30 4c 3b 0a  a.lOffset = 0L;.
3220: 20 20 20 20 4c 6f 63 6b 41 72 65 61 2e 6c 52 61      LockArea.lRa
3230: 6e 67 65 20 3d 20 30 4c 3b 0a 20 20 20 20 55 6e  nge = 0L;.    Un
3240: 6c 6f 63 6b 41 72 65 61 2e 6c 4f 66 66 73 65 74  lockArea.lOffset
3250: 20 3d 20 50 45 4e 44 49 4e 47 5f 42 59 54 45 3b   = PENDING_BYTE;
3260: 0a 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e  .    UnlockArea.
3270: 6c 52 61 6e 67 65 20 3d 20 31 4c 3b 0a 20 20 20  lRange = 1L;.   
3280: 20 72 20 3d 20 44 6f 73 53 65 74 46 69 6c 65 4c   r = DosSetFileL
3290: 6f 63 6b 73 28 20 70 46 69 6c 65 2d 3e 68 2c 20  ocks( pFile->h, 
32a0: 26 55 6e 6c 6f 63 6b 41 72 65 61 2c 20 26 4c 6f  &UnlockArea, &Lo
32b0: 63 6b 41 72 65 61 2c 20 4c 4f 43 4b 5f 54 49 4d  ckArea, LOCK_TIM
32c0: 45 4f 55 54 2c 20 30 4c 20 29 3b 0a 20 20 20 20  EOUT, 0L );.    
32d0: 4f 53 54 52 41 43 45 28 28 20 22 4c 4f 43 4b 20  OSTRACE(( "LOCK 
32e0: 25 64 20 75 6e 6c 6f 63 6b 69 6e 67 20 70 65 6e  %d unlocking pen
32f0: 64 69 6e 67 2f 69 73 20 73 68 61 72 65 64 2e 20  ding/is shared. 
3300: 72 3d 25 64 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e  r=%d\n", pFile->
3310: 68 2c 20 72 20 29 29 3b 0a 20 20 7d 0a 0a 20 20  h, r ));.  }..  
3320: 2f 2a 20 55 70 64 61 74 65 20 74 68 65 20 73 74  /* Update the st
3330: 61 74 65 20 6f 66 20 74 68 65 20 6c 6f 63 6b 20  ate of the lock 
3340: 68 61 73 20 68 65 6c 64 20 69 6e 20 74 68 65 20  has held in the 
3350: 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20  file descriptor 
3360: 74 68 65 6e 0a 20 20 2a 2a 20 72 65 74 75 72 6e  then.  ** return
3370: 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65   the appropriate
3380: 20 72 65 73 75 6c 74 20 63 6f 64 65 2e 0a 20 20   result code..  
3390: 2a 2f 0a 20 20 69 66 28 20 72 65 73 20 3d 3d 20  */.  if( res == 
33a0: 4e 4f 5f 45 52 52 4f 52 20 29 7b 0a 20 20 20 20  NO_ERROR ){.    
33b0: 72 63 20 3d 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a  rc = SQLITE_OK;.
33c0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 4f 53 54    }else{.    OST
33d0: 52 41 43 45 28 28 20 22 4c 4f 43 4b 20 46 41 49  RACE(( "LOCK FAI
33e0: 4c 45 44 20 25 64 20 74 72 79 69 6e 67 20 66 6f  LED %d trying fo
33f0: 72 20 25 64 20 62 75 74 20 67 6f 74 20 25 64 5c  r %d but got %d\
3400: 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c 0a 20 20  n", pFile->h,.  
3410: 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63 6b              lock
3420: 74 79 70 65 2c 20 6e 65 77 4c 6f 63 6b 74 79 70  type, newLocktyp
3430: 65 20 29 29 3b 0a 20 20 20 20 72 63 20 3d 20 53  e ));.    rc = S
3440: 51 4c 49 54 45 5f 42 55 53 59 3b 0a 20 20 7d 0a  QLITE_BUSY;.  }.
3450: 20 20 70 46 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70    pFile->locktyp
3460: 65 20 3d 20 6e 65 77 4c 6f 63 6b 74 79 70 65 3b  e = newLocktype;
3470: 0a 20 20 4f 53 54 52 41 43 45 28 28 20 22 4c 4f  .  OSTRACE(( "LO
3480: 43 4b 20 25 64 20 6e 6f 77 20 25 64 5c 6e 22 2c  CK %d now %d\n",
3490: 20 70 46 69 6c 65 2d 3e 68 2c 20 70 46 69 6c 65   pFile->h, pFile
34a0: 2d 3e 6c 6f 63 6b 74 79 70 65 20 29 29 3b 0a 20  ->locktype ));. 
34b0: 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f   return rc;.}../
34c0: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e  *.** This routin
34d0: 65 20 63 68 65 63 6b 73 20 69 66 20 74 68 65 72  e checks if ther
34e0: 65 20 69 73 20 61 20 52 45 53 45 52 56 45 44 20  e is a RESERVED 
34f0: 6c 6f 63 6b 20 68 65 6c 64 20 6f 6e 20 74 68 65  lock held on the
3500: 20 73 70 65 63 69 66 69 65 64 0a 2a 2a 20 66 69   specified.** fi
3510: 6c 65 20 62 79 20 74 68 69 73 20 6f 72 20 61 6e  le by this or an
3520: 79 20 6f 74 68 65 72 20 70 72 6f 63 65 73 73 2e  y other process.
3530: 20 49 66 20 73 75 63 68 20 61 20 6c 6f 63 6b 20   If such a lock 
3540: 69 73 20 68 65 6c 64 2c 20 72 65 74 75 72 6e 0a  is held, return.
3550: 2a 2a 20 6e 6f 6e 2d 7a 65 72 6f 2c 20 6f 74 68  ** non-zero, oth
3560: 65 72 77 69 73 65 20 7a 65 72 6f 2e 0a 2a 2f 0a  erwise zero..*/.
3570: 73 74 61 74 69 63 20 69 6e 74 20 6f 73 32 43 68  static int os2Ch
3580: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28  eckReservedLock(
3590: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 69   sqlite3_file *i
35a0: 64 2c 20 69 6e 74 20 2a 70 4f 75 74 20 29 7b 0a  d, int *pOut ){.
35b0: 20 20 69 6e 74 20 72 20 3d 20 30 3b 0a 20 20 6f    int r = 0;.  o
35c0: 73 32 46 69 6c 65 20 2a 70 46 69 6c 65 20 3d 20  s2File *pFile = 
35d0: 28 6f 73 32 46 69 6c 65 2a 29 69 64 3b 0a 20 20  (os2File*)id;.  
35e0: 61 73 73 65 72 74 28 20 70 46 69 6c 65 21 3d 30  assert( pFile!=0
35f0: 20 29 3b 0a 20 20 69 66 28 20 70 46 69 6c 65 2d   );.  if( pFile-
3600: 3e 6c 6f 63 6b 74 79 70 65 3e 3d 52 45 53 45 52  >locktype>=RESER
3610: 56 45 44 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20  VED_LOCK ){.    
3620: 72 20 3d 20 31 3b 0a 20 20 20 20 4f 53 54 52 41  r = 1;.    OSTRA
3630: 43 45 28 28 20 22 54 45 53 54 20 57 52 2d 4c 4f  CE(( "TEST WR-LO
3640: 43 4b 20 25 64 20 25 64 20 28 6c 6f 63 61 6c 29  CK %d %d (local)
3650: 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c 20 72  \n", pFile->h, r
3660: 20 29 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20   ));.  }else{.  
3670: 20 20 46 49 4c 45 4c 4f 43 4b 20 20 4c 6f 63 6b    FILELOCK  Lock
3680: 41 72 65 61 2c 0a 20 20 20 20 20 20 20 20 20 20  Area,.          
3690: 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65 61 3b 0a      UnlockArea;.
36a0: 20 20 20 20 41 50 49 52 45 54 20 72 63 20 3d 20      APIRET rc = 
36b0: 4e 4f 5f 45 52 52 4f 52 3b 0a 20 20 20 20 6d 65  NO_ERROR;.    me
36c0: 6d 73 65 74 28 26 4c 6f 63 6b 41 72 65 61 2c 20  mset(&LockArea, 
36d0: 30 2c 20 73 69 7a 65 6f 66 28 4c 6f 63 6b 41 72  0, sizeof(LockAr
36e0: 65 61 29 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74  ea));.    memset
36f0: 28 26 55 6e 6c 6f 63 6b 41 72 65 61 2c 20 30 2c  (&UnlockArea, 0,
3700: 20 73 69 7a 65 6f 66 28 55 6e 6c 6f 63 6b 41 72   sizeof(UnlockAr
3710: 65 61 29 29 3b 0a 20 20 20 20 4c 6f 63 6b 41 72  ea));.    LockAr
3720: 65 61 2e 6c 4f 66 66 73 65 74 20 3d 20 52 45 53  ea.lOffset = RES
3730: 45 52 56 45 44 5f 42 59 54 45 3b 0a 20 20 20 20  ERVED_BYTE;.    
3740: 4c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65 20  LockArea.lRange 
3750: 3d 20 31 4c 3b 0a 20 20 20 20 55 6e 6c 6f 63 6b  = 1L;.    Unlock
3760: 41 72 65 61 2e 6c 4f 66 66 73 65 74 20 3d 20 30  Area.lOffset = 0
3770: 4c 3b 0a 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65  L;.    UnlockAre
3780: 61 2e 6c 52 61 6e 67 65 20 3d 20 30 4c 3b 0a 20  a.lRange = 0L;. 
3790: 20 20 20 72 63 20 3d 20 44 6f 73 53 65 74 46 69     rc = DosSetFi
37a0: 6c 65 4c 6f 63 6b 73 28 20 70 46 69 6c 65 2d 3e  leLocks( pFile->
37b0: 68 2c 20 26 55 6e 6c 6f 63 6b 41 72 65 61 2c 20  h, &UnlockArea, 
37c0: 26 4c 6f 63 6b 41 72 65 61 2c 20 4c 4f 43 4b 5f  &LockArea, LOCK_
37d0: 54 49 4d 45 4f 55 54 2c 20 30 4c 20 29 3b 0a 20  TIMEOUT, 0L );. 
37e0: 20 20 20 4f 53 54 52 41 43 45 28 28 20 22 54 45     OSTRACE(( "TE
37f0: 53 54 20 57 52 2d 4c 4f 43 4b 20 25 64 20 6c 6f  ST WR-LOCK %d lo
3800: 63 6b 20 72 65 73 65 72 76 65 64 20 62 79 74 65  ck reserved byte
3810: 20 72 63 3d 25 64 5c 6e 22 2c 20 70 46 69 6c 65   rc=%d\n", pFile
3820: 2d 3e 68 2c 20 72 63 20 29 29 3b 0a 20 20 20 20  ->h, rc ));.    
3830: 69 66 28 20 72 63 20 3d 3d 20 4e 4f 5f 45 52 52  if( rc == NO_ERR
3840: 4f 52 20 29 7b 0a 20 20 20 20 20 20 41 50 49 52  OR ){.      APIR
3850: 45 54 20 72 63 75 20 3d 20 4e 4f 5f 45 52 52 4f  ET rcu = NO_ERRO
3860: 52 3b 20 2f 2a 20 72 65 74 75 72 6e 20 63 6f 64  R; /* return cod
3870: 65 20 66 6f 72 20 75 6e 6c 6f 63 6b 69 6e 67 20  e for unlocking 
3880: 2a 2f 0a 20 20 20 20 20 20 4c 6f 63 6b 41 72 65  */.      LockAre
3890: 61 2e 6c 4f 66 66 73 65 74 20 3d 20 30 4c 3b 0a  a.lOffset = 0L;.
38a0: 20 20 20 20 20 20 4c 6f 63 6b 41 72 65 61 2e 6c        LockArea.l
38b0: 52 61 6e 67 65 20 3d 20 30 4c 3b 0a 20 20 20 20  Range = 0L;.    
38c0: 20 20 55 6e 6c 6f 63 6b 41 72 65 61 2e 6c 4f 66    UnlockArea.lOf
38d0: 66 73 65 74 20 3d 20 52 45 53 45 52 56 45 44 5f  fset = RESERVED_
38e0: 42 59 54 45 3b 0a 20 20 20 20 20 20 55 6e 6c 6f  BYTE;.      Unlo
38f0: 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65 20 3d 20  ckArea.lRange = 
3900: 31 4c 3b 0a 20 20 20 20 20 20 72 63 75 20 3d 20  1L;.      rcu = 
3910: 44 6f 73 53 65 74 46 69 6c 65 4c 6f 63 6b 73 28  DosSetFileLocks(
3920: 20 70 46 69 6c 65 2d 3e 68 2c 20 26 55 6e 6c 6f   pFile->h, &Unlo
3930: 63 6b 41 72 65 61 2c 20 26 4c 6f 63 6b 41 72 65  ckArea, &LockAre
3940: 61 2c 20 4c 4f 43 4b 5f 54 49 4d 45 4f 55 54 2c  a, LOCK_TIMEOUT,
3950: 20 30 4c 20 29 3b 0a 20 20 20 20 20 20 4f 53 54   0L );.      OST
3960: 52 41 43 45 28 28 20 22 54 45 53 54 20 57 52 2d  RACE(( "TEST WR-
3970: 4c 4f 43 4b 20 25 64 20 75 6e 6c 6f 63 6b 20 72  LOCK %d unlock r
3980: 65 73 65 72 76 65 64 20 62 79 74 65 20 72 3d 25  eserved byte r=%
3990: 64 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c 20  d\n", pFile->h, 
39a0: 72 63 75 20 29 29 3b 0a 20 20 20 20 7d 0a 20 20  rcu ));.    }.  
39b0: 20 20 72 20 3d 20 21 28 72 63 20 3d 3d 20 4e 4f    r = !(rc == NO
39c0: 5f 45 52 52 4f 52 29 3b 0a 20 20 20 20 4f 53 54  _ERROR);.    OST
39d0: 52 41 43 45 28 28 20 22 54 45 53 54 20 57 52 2d  RACE(( "TEST WR-
39e0: 4c 4f 43 4b 20 25 64 20 25 64 20 28 72 65 6d 6f  LOCK %d %d (remo
39f0: 74 65 29 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68  te)\n", pFile->h
3a00: 2c 20 72 20 29 29 3b 0a 20 20 7d 0a 20 20 2a 70  , r ));.  }.  *p
3a10: 4f 75 74 20 3d 20 72 3b 0a 20 20 72 65 74 75 72  Out = r;.  retur
3a20: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a  n SQLITE_OK;.}..
3a30: 2f 2a 0a 2a 2a 20 4c 6f 77 65 72 20 74 68 65 20  /*.** Lower the 
3a40: 6c 6f 63 6b 69 6e 67 20 6c 65 76 65 6c 20 6f 6e  locking level on
3a50: 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72   file descriptor
3a60: 20 69 64 20 74 6f 20 6c 6f 63 6b 74 79 70 65 2e   id to locktype.
3a70: 20 20 6c 6f 63 6b 74 79 70 65 0a 2a 2a 20 6d 75    locktype.** mu
3a80: 73 74 20 62 65 20 65 69 74 68 65 72 20 4e 4f 5f  st be either NO_
3a90: 4c 4f 43 4b 20 6f 72 20 53 48 41 52 45 44 5f 4c  LOCK or SHARED_L
3aa0: 4f 43 4b 2e 0a 2a 2a 0a 2a 2a 20 49 66 20 74 68  OCK..**.** If th
3ab0: 65 20 6c 6f 63 6b 69 6e 67 20 6c 65 76 65 6c 20  e locking level 
3ac0: 6f 66 20 74 68 65 20 66 69 6c 65 20 64 65 73 63  of the file desc
3ad0: 72 69 70 74 6f 72 20 69 73 20 61 6c 72 65 61 64  riptor is alread
3ae0: 79 20 61 74 20 6f 72 20 62 65 6c 6f 77 0a 2a 2a  y at or below.**
3af0: 20 74 68 65 20 72 65 71 75 65 73 74 65 64 20 6c   the requested l
3b00: 6f 63 6b 69 6e 67 20 6c 65 76 65 6c 2c 20 74 68  ocking level, th
3b10: 69 73 20 72 6f 75 74 69 6e 65 20 69 73 20 61 20  is routine is a 
3b20: 6e 6f 2d 6f 70 2e 0a 2a 2a 0a 2a 2a 20 49 74 20  no-op..**.** It 
3b30: 69 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20  is not possible 
3b40: 66 6f 72 20 74 68 69 73 20 72 6f 75 74 69 6e 65  for this routine
3b50: 20 74 6f 20 66 61 69 6c 20 69 66 20 74 68 65 20   to fail if the 
3b60: 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 0a  second argument.
3b70: 2a 2a 20 69 73 20 4e 4f 5f 4c 4f 43 4b 2e 20 20  ** is NO_LOCK.  
3b80: 49 66 20 74 68 65 20 73 65 63 6f 6e 64 20 61 72  If the second ar
3b90: 67 75 6d 65 6e 74 20 69 73 20 53 48 41 52 45 44  gument is SHARED
3ba0: 5f 4c 4f 43 4b 20 74 68 65 6e 20 74 68 69 73 20  _LOCK then this 
3bb0: 72 6f 75 74 69 6e 65 0a 2a 2a 20 6d 69 67 68 74  routine.** might
3bc0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49   return SQLITE_I
3bd0: 4f 45 52 52 3b 0a 2a 2f 0a 73 74 61 74 69 63 20  OERR;.*/.static 
3be0: 69 6e 74 20 6f 73 32 55 6e 6c 6f 63 6b 28 20 73  int os2Unlock( s
3bf0: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 69 64 2c  qlite3_file *id,
3c00: 20 69 6e 74 20 6c 6f 63 6b 74 79 70 65 20 29 7b   int locktype ){
3c10: 0a 20 20 69 6e 74 20 74 79 70 65 3b 0a 20 20 6f  .  int type;.  o
3c20: 73 32 46 69 6c 65 20 2a 70 46 69 6c 65 20 3d 20  s2File *pFile = 
3c30: 28 6f 73 32 46 69 6c 65 2a 29 69 64 3b 0a 20 20  (os2File*)id;.  
3c40: 41 50 49 52 45 54 20 72 63 20 3d 20 53 51 4c 49  APIRET rc = SQLI
3c50: 54 45 5f 4f 4b 3b 0a 20 20 41 50 49 52 45 54 20  TE_OK;.  APIRET 
3c60: 72 65 73 20 3d 20 4e 4f 5f 45 52 52 4f 52 3b 0a  res = NO_ERROR;.
3c70: 20 20 46 49 4c 45 4c 4f 43 4b 20 20 4c 6f 63 6b    FILELOCK  Lock
3c80: 41 72 65 61 2c 0a 20 20 20 20 20 20 20 20 20 20  Area,.          
3c90: 20 20 55 6e 6c 6f 63 6b 41 72 65 61 3b 0a 20 20    UnlockArea;.  
3ca0: 6d 65 6d 73 65 74 28 26 4c 6f 63 6b 41 72 65 61  memset(&LockArea
3cb0: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 4c 6f 63 6b  , 0, sizeof(Lock
3cc0: 41 72 65 61 29 29 3b 0a 20 20 6d 65 6d 73 65 74  Area));.  memset
3cd0: 28 26 55 6e 6c 6f 63 6b 41 72 65 61 2c 20 30 2c  (&UnlockArea, 0,
3ce0: 20 73 69 7a 65 6f 66 28 55 6e 6c 6f 63 6b 41 72   sizeof(UnlockAr
3cf0: 65 61 29 29 3b 0a 20 20 61 73 73 65 72 74 28 20  ea));.  assert( 
3d00: 70 46 69 6c 65 21 3d 30 20 29 3b 0a 20 20 61 73  pFile!=0 );.  as
3d10: 73 65 72 74 28 20 6c 6f 63 6b 74 79 70 65 3c 3d  sert( locktype<=
3d20: 53 48 41 52 45 44 5f 4c 4f 43 4b 20 29 3b 0a 20  SHARED_LOCK );. 
3d30: 20 4f 53 54 52 41 43 45 28 28 20 22 55 4e 4c 4f   OSTRACE(( "UNLO
3d40: 43 4b 20 25 64 20 74 6f 20 25 64 20 77 61 73 20  CK %d to %d was 
3d50: 25 64 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c  %d\n", pFile->h,
3d60: 20 6c 6f 63 6b 74 79 70 65 2c 20 70 46 69 6c 65   locktype, pFile
3d70: 2d 3e 6c 6f 63 6b 74 79 70 65 20 29 29 3b 0a 20  ->locktype ));. 
3d80: 20 74 79 70 65 20 3d 20 70 46 69 6c 65 2d 3e 6c   type = pFile->l
3d90: 6f 63 6b 74 79 70 65 3b 0a 20 20 69 66 28 20 74  ocktype;.  if( t
3da0: 79 70 65 3e 3d 45 58 43 4c 55 53 49 56 45 5f 4c  ype>=EXCLUSIVE_L
3db0: 4f 43 4b 20 29 7b 0a 20 20 20 20 4c 6f 63 6b 41  OCK ){.    LockA
3dc0: 72 65 61 2e 6c 4f 66 66 73 65 74 20 3d 20 30 4c  rea.lOffset = 0L
3dd0: 3b 0a 20 20 20 20 4c 6f 63 6b 41 72 65 61 2e 6c  ;.    LockArea.l
3de0: 52 61 6e 67 65 20 3d 20 30 4c 3b 0a 20 20 20 20  Range = 0L;.    
3df0: 55 6e 6c 6f 63 6b 41 72 65 61 2e 6c 4f 66 66 73  UnlockArea.lOffs
3e00: 65 74 20 3d 20 53 48 41 52 45 44 5f 46 49 52 53  et = SHARED_FIRS
3e10: 54 3b 0a 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65  T;.    UnlockAre
3e20: 61 2e 6c 52 61 6e 67 65 20 3d 20 53 48 41 52 45  a.lRange = SHARE
3e30: 44 5f 53 49 5a 45 3b 0a 20 20 20 20 72 65 73 20  D_SIZE;.    res 
3e40: 3d 20 44 6f 73 53 65 74 46 69 6c 65 4c 6f 63 6b  = DosSetFileLock
3e50: 73 28 20 70 46 69 6c 65 2d 3e 68 2c 20 26 55 6e  s( pFile->h, &Un
3e60: 6c 6f 63 6b 41 72 65 61 2c 20 26 4c 6f 63 6b 41  lockArea, &LockA
3e70: 72 65 61 2c 20 4c 4f 43 4b 5f 54 49 4d 45 4f 55  rea, LOCK_TIMEOU
3e80: 54 2c 20 30 4c 20 29 3b 0a 20 20 20 20 4f 53 54  T, 0L );.    OST
3e90: 52 41 43 45 28 28 20 22 55 4e 4c 4f 43 4b 20 25  RACE(( "UNLOCK %
3ea0: 64 20 65 78 63 6c 75 73 69 76 65 20 6c 6f 63 6b  d exclusive lock
3eb0: 20 72 65 73 3d 25 64 5c 6e 22 2c 20 70 46 69 6c   res=%d\n", pFil
3ec0: 65 2d 3e 68 2c 20 72 65 73 20 29 29 3b 0a 20 20  e->h, res ));.  
3ed0: 20 20 69 66 28 20 6c 6f 63 6b 74 79 70 65 3d 3d    if( locktype==
3ee0: 53 48 41 52 45 44 5f 4c 4f 43 4b 20 26 26 20 67  SHARED_LOCK && g
3ef0: 65 74 52 65 61 64 4c 6f 63 6b 28 70 46 69 6c 65  etReadLock(pFile
3f00: 29 20 21 3d 20 4e 4f 5f 45 52 52 4f 52 20 29 7b  ) != NO_ERROR ){
3f10: 0a 20 20 20 20 20 20 2f 2a 20 54 68 69 73 20 73  .      /* This s
3f20: 68 6f 75 6c 64 20 6e 65 76 65 72 20 68 61 70 70  hould never happ
3f30: 65 6e 2e 20 20 57 65 20 73 68 6f 75 6c 64 20 61  en.  We should a
3f40: 6c 77 61 79 73 20 62 65 20 61 62 6c 65 20 74 6f  lways be able to
3f50: 0a 20 20 20 20 20 20 2a 2a 20 72 65 61 63 71 75  .      ** reacqu
3f60: 69 72 65 20 74 68 65 20 72 65 61 64 20 6c 6f 63  ire the read loc
3f70: 6b 20 2a 2f 0a 20 20 20 20 20 20 4f 53 54 52 41  k */.      OSTRA
3f80: 43 45 28 28 20 22 55 4e 4c 4f 43 4b 20 25 64 20  CE(( "UNLOCK %d 
3f90: 74 6f 20 25 64 20 67 65 74 52 65 61 64 4c 6f 63  to %d getReadLoc
3fa0: 6b 28 29 20 66 61 69 6c 65 64 5c 6e 22 2c 20 70  k() failed\n", p
3fb0: 46 69 6c 65 2d 3e 68 2c 20 6c 6f 63 6b 74 79 70  File->h, locktyp
3fc0: 65 20 29 29 3b 0a 20 20 20 20 20 20 72 63 20 3d  e ));.      rc =
3fd0: 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 55 4e   SQLITE_IOERR_UN
3fe0: 4c 4f 43 4b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  LOCK;.    }.  }.
3ff0: 20 20 69 66 28 20 74 79 70 65 3e 3d 52 45 53 45    if( type>=RESE
4000: 52 56 45 44 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20  RVED_LOCK ){.   
4010: 20 4c 6f 63 6b 41 72 65 61 2e 6c 4f 66 66 73 65   LockArea.lOffse
4020: 74 20 3d 20 30 4c 3b 0a 20 20 20 20 4c 6f 63 6b  t = 0L;.    Lock
4030: 41 72 65 61 2e 6c 52 61 6e 67 65 20 3d 20 30 4c  Area.lRange = 0L
4040: 3b 0a 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65 61  ;.    UnlockArea
4050: 2e 6c 4f 66 66 73 65 74 20 3d 20 52 45 53 45 52  .lOffset = RESER
4060: 56 45 44 5f 42 59 54 45 3b 0a 20 20 20 20 55 6e  VED_BYTE;.    Un
4070: 6c 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65 20  lockArea.lRange 
4080: 3d 20 31 4c 3b 0a 20 20 20 20 72 65 73 20 3d 20  = 1L;.    res = 
4090: 44 6f 73 53 65 74 46 69 6c 65 4c 6f 63 6b 73 28  DosSetFileLocks(
40a0: 20 70 46 69 6c 65 2d 3e 68 2c 20 26 55 6e 6c 6f   pFile->h, &Unlo
40b0: 63 6b 41 72 65 61 2c 20 26 4c 6f 63 6b 41 72 65  ckArea, &LockAre
40c0: 61 2c 20 4c 4f 43 4b 5f 54 49 4d 45 4f 55 54 2c  a, LOCK_TIMEOUT,
40d0: 20 30 4c 20 29 3b 0a 20 20 20 20 4f 53 54 52 41   0L );.    OSTRA
40e0: 43 45 28 28 20 22 55 4e 4c 4f 43 4b 20 25 64 20  CE(( "UNLOCK %d 
40f0: 72 65 73 65 72 76 65 64 20 72 65 73 3d 25 64 5c  reserved res=%d\
4100: 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c 20 72 65  n", pFile->h, re
4110: 73 20 29 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20  s ));.  }.  if( 
4120: 6c 6f 63 6b 74 79 70 65 3d 3d 4e 4f 5f 4c 4f 43  locktype==NO_LOC
4130: 4b 20 26 26 20 74 79 70 65 3e 3d 53 48 41 52 45  K && type>=SHARE
4140: 44 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20 20 72 65  D_LOCK ){.    re
4150: 73 20 3d 20 75 6e 6c 6f 63 6b 52 65 61 64 4c 6f  s = unlockReadLo
4160: 63 6b 28 70 46 69 6c 65 29 3b 0a 20 20 20 20 4f  ck(pFile);.    O
4170: 53 54 52 41 43 45 28 28 20 22 55 4e 4c 4f 43 4b  STRACE(( "UNLOCK
4180: 20 25 64 20 69 73 20 25 64 20 77 61 6e 74 20 25   %d is %d want %
4190: 64 20 72 65 73 3d 25 64 5c 6e 22 2c 0a 20 20 20  d res=%d\n",.   
41a0: 20 20 20 20 20 20 20 20 20 20 20 70 46 69 6c 65             pFile
41b0: 2d 3e 68 2c 20 74 79 70 65 2c 20 6c 6f 63 6b 74  ->h, type, lockt
41c0: 79 70 65 2c 20 72 65 73 20 29 29 3b 0a 20 20 7d  ype, res ));.  }
41d0: 0a 20 20 69 66 28 20 74 79 70 65 3e 3d 50 45 4e  .  if( type>=PEN
41e0: 44 49 4e 47 5f 4c 4f 43 4b 20 29 7b 0a 20 20 20  DING_LOCK ){.   
41f0: 20 4c 6f 63 6b 41 72 65 61 2e 6c 4f 66 66 73 65   LockArea.lOffse
4200: 74 20 3d 20 30 4c 3b 0a 20 20 20 20 4c 6f 63 6b  t = 0L;.    Lock
4210: 41 72 65 61 2e 6c 52 61 6e 67 65 20 3d 20 30 4c  Area.lRange = 0L
4220: 3b 0a 20 20 20 20 55 6e 6c 6f 63 6b 41 72 65 61  ;.    UnlockArea
4230: 2e 6c 4f 66 66 73 65 74 20 3d 20 50 45 4e 44 49  .lOffset = PENDI
4240: 4e 47 5f 42 59 54 45 3b 0a 20 20 20 20 55 6e 6c  NG_BYTE;.    Unl
4250: 6f 63 6b 41 72 65 61 2e 6c 52 61 6e 67 65 20 3d  ockArea.lRange =
4260: 20 31 4c 3b 0a 20 20 20 20 72 65 73 20 3d 20 44   1L;.    res = D
4270: 6f 73 53 65 74 46 69 6c 65 4c 6f 63 6b 73 28 20  osSetFileLocks( 
4280: 70 46 69 6c 65 2d 3e 68 2c 20 26 55 6e 6c 6f 63  pFile->h, &Unloc
4290: 6b 41 72 65 61 2c 20 26 4c 6f 63 6b 41 72 65 61  kArea, &LockArea
42a0: 2c 20 4c 4f 43 4b 5f 54 49 4d 45 4f 55 54 2c 20  , LOCK_TIMEOUT, 
42b0: 30 4c 20 29 3b 0a 20 20 20 20 4f 53 54 52 41 43  0L );.    OSTRAC
42c0: 45 28 28 20 22 55 4e 4c 4f 43 4b 20 25 64 20 70  E(( "UNLOCK %d p
42d0: 65 6e 64 69 6e 67 20 72 65 73 3d 25 64 5c 6e 22  ending res=%d\n"
42e0: 2c 20 70 46 69 6c 65 2d 3e 68 2c 20 72 65 73 20  , pFile->h, res 
42f0: 29 29 3b 0a 20 20 7d 0a 20 20 70 46 69 6c 65 2d  ));.  }.  pFile-
4300: 3e 6c 6f 63 6b 74 79 70 65 20 3d 20 6c 6f 63 6b  >locktype = lock
4310: 74 79 70 65 3b 0a 20 20 4f 53 54 52 41 43 45 28  type;.  OSTRACE(
4320: 28 20 22 55 4e 4c 4f 43 4b 20 25 64 20 6e 6f 77  ( "UNLOCK %d now
4330: 20 25 64 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68   %d\n", pFile->h
4340: 2c 20 70 46 69 6c 65 2d 3e 6c 6f 63 6b 74 79 70  , pFile->locktyp
4350: 65 20 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 72  e ));.  return r
4360: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 6f 6e 74  c;.}../*.** Cont
4370: 72 6f 6c 20 61 6e 64 20 71 75 65 72 79 20 6f 66  rol and query of
4380: 20 74 68 65 20 6f 70 65 6e 20 66 69 6c 65 20 68   the open file h
4390: 61 6e 64 6c 65 2e 0a 2a 2f 0a 73 74 61 74 69 63  andle..*/.static
43a0: 20 69 6e 74 20 6f 73 32 46 69 6c 65 43 6f 6e 74   int os2FileCont
43b0: 72 6f 6c 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  rol(sqlite3_file
43c0: 20 2a 69 64 2c 20 69 6e 74 20 6f 70 2c 20 76 6f   *id, int op, vo
43d0: 69 64 20 2a 70 41 72 67 29 7b 0a 20 20 73 77 69  id *pArg){.  swi
43e0: 74 63 68 28 20 6f 70 20 29 7b 0a 20 20 20 20 63  tch( op ){.    c
43f0: 61 73 65 20 53 51 4c 49 54 45 5f 46 43 4e 54 4c  ase SQLITE_FCNTL
4400: 5f 4c 4f 43 4b 53 54 41 54 45 3a 20 7b 0a 20 20  _LOCKSTATE: {.  
4410: 20 20 20 20 2a 28 69 6e 74 2a 29 70 41 72 67 20      *(int*)pArg 
4420: 3d 20 28 28 6f 73 32 46 69 6c 65 2a 29 69 64 29  = ((os2File*)id)
4430: 2d 3e 6c 6f 63 6b 74 79 70 65 3b 0a 20 20 20 20  ->locktype;.    
4440: 20 20 4f 53 54 52 41 43 45 28 28 20 22 46 43 4e    OSTRACE(( "FCN
4450: 54 4c 5f 4c 4f 43 4b 53 54 41 54 45 20 25 64 20  TL_LOCKSTATE %d 
4460: 6c 6f 63 6b 3d 25 64 5c 6e 22 2c 0a 20 20 20 20  lock=%d\n",.    
4470: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 73              ((os
4480: 32 46 69 6c 65 2a 29 69 64 29 2d 3e 68 2c 20 28  2File*)id)->h, (
4490: 28 6f 73 32 46 69 6c 65 2a 29 69 64 29 2d 3e 6c  (os2File*)id)->l
44a0: 6f 63 6b 74 79 70 65 20 29 29 3b 0a 20 20 20 20  ocktype ));.    
44b0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
44c0: 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  OK;.    }.  }.  
44d0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f  return SQLITE_NO
44e0: 54 46 4f 55 4e 44 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  TFOUND;.}../*.**
44f0: 20 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 74   Return the sect
4500: 6f 72 20 73 69 7a 65 20 69 6e 20 62 79 74 65 73  or size in bytes
4510: 20 6f 66 20 74 68 65 20 75 6e 64 65 72 6c 79 69   of the underlyi
4520: 6e 67 20 62 6c 6f 63 6b 20 64 65 76 69 63 65 20  ng block device 
4530: 66 6f 72 0a 2a 2a 20 74 68 65 20 73 70 65 63 69  for.** the speci
4540: 66 69 65 64 20 66 69 6c 65 2e 20 54 68 69 73 20  fied file. This 
4550: 69 73 20 61 6c 6d 6f 73 74 20 61 6c 77 61 79 73  is almost always
4560: 20 35 31 32 20 62 79 74 65 73 2c 20 62 75 74 20   512 bytes, but 
4570: 6d 61 79 20 62 65 0a 2a 2a 20 6c 61 72 67 65 72  may be.** larger
4580: 20 66 6f 72 20 73 6f 6d 65 20 64 65 76 69 63 65   for some device
4590: 73 2e 0a 2a 2a 0a 2a 2a 20 53 51 4c 69 74 65 20  s..**.** SQLite 
45a0: 63 6f 64 65 20 61 73 73 75 6d 65 73 20 74 68 69  code assumes thi
45b0: 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 6e 6f  s function canno
45c0: 74 20 66 61 69 6c 2e 20 49 74 20 61 6c 73 6f 20  t fail. It also 
45d0: 61 73 73 75 6d 65 73 20 74 68 61 74 0a 2a 2a 20  assumes that.** 
45e0: 69 66 20 74 77 6f 20 66 69 6c 65 73 20 61 72 65  if two files are
45f0: 20 63 72 65 61 74 65 64 20 69 6e 20 74 68 65 20   created in the 
4600: 73 61 6d 65 20 66 69 6c 65 2d 73 79 73 74 65 6d  same file-system
4610: 20 64 69 72 65 63 74 6f 72 79 20 28 69 2e 65 2e   directory (i.e.
4620: 0a 2a 2a 20 61 20 64 61 74 61 62 61 73 65 20 61  .** a database a
4630: 6e 64 20 69 74 73 20 6a 6f 75 72 6e 61 6c 20 66  nd its journal f
4640: 69 6c 65 29 20 74 68 61 74 20 74 68 65 20 73 65  ile) that the se
4650: 63 74 6f 72 20 73 69 7a 65 20 77 69 6c 6c 20 62  ctor size will b
4660: 65 20 74 68 65 0a 2a 2a 20 73 61 6d 65 20 66 6f  e the.** same fo
4670: 72 20 62 6f 74 68 2e 0a 2a 2f 0a 73 74 61 74 69  r both..*/.stati
4680: 63 20 69 6e 74 20 6f 73 32 53 65 63 74 6f 72 53  c int os2SectorS
4690: 69 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ize(sqlite3_file
46a0: 20 2a 69 64 29 7b 0a 20 20 72 65 74 75 72 6e 20   *id){.  return 
46b0: 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 53  SQLITE_DEFAULT_S
46c0: 45 43 54 4f 52 5f 53 49 5a 45 3b 0a 7d 0a 0a 2f  ECTOR_SIZE;.}../
46d0: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 61 20 76 65  *.** Return a ve
46e0: 63 74 6f 72 20 6f 66 20 64 65 76 69 63 65 20 63  ctor of device c
46f0: 68 61 72 61 63 74 65 72 69 73 74 69 63 73 2e 0a  haracteristics..
4700: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6f 73  */.static int os
4710: 32 44 65 76 69 63 65 43 68 61 72 61 63 74 65 72  2DeviceCharacter
4720: 69 73 74 69 63 73 28 73 71 6c 69 74 65 33 5f 66  istics(sqlite3_f
4730: 69 6c 65 20 2a 69 64 29 7b 0a 20 20 72 65 74 75  ile *id){.  retu
4740: 72 6e 20 30 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20  rn 0;.}.../*.** 
4750: 43 68 61 72 61 63 74 65 72 20 73 65 74 20 63 6f  Character set co
4760: 6e 76 65 72 73 69 6f 6e 20 6f 62 6a 65 63 74 73  nversion objects
4770: 20 75 73 65 64 20 62 79 20 63 6f 6e 76 65 72 73   used by convers
4780: 69 6f 6e 20 72 6f 75 74 69 6e 65 73 2e 0a 2a 2f  ion routines..*/
4790: 0a 73 74 61 74 69 63 20 55 63 6f 6e 76 4f 62 6a  .static UconvObj
47a0: 65 63 74 20 75 63 55 74 66 38 20 3d 20 4e 55 4c  ect ucUtf8 = NUL
47b0: 4c 3b 20 2f 2a 20 63 6f 6e 76 65 72 74 20 62 65  L; /* convert be
47c0: 74 77 65 65 6e 20 55 54 46 2d 38 20 61 6e 64 20  tween UTF-8 and 
47d0: 55 43 53 2d 32 20 2a 2f 0a 73 74 61 74 69 63 20  UCS-2 */.static 
47e0: 55 63 6f 6e 76 4f 62 6a 65 63 74 20 75 63 6c 43  UconvObject uclC
47f0: 70 20 3d 20 4e 55 4c 4c 3b 20 20 2f 2a 20 63 6f  p = NULL;  /* co
4800: 6e 76 65 72 74 20 62 65 74 77 65 65 6e 20 6c 6f  nvert between lo
4810: 63 61 6c 20 63 6f 64 65 70 61 67 65 20 61 6e 64  cal codepage and
4820: 20 55 43 53 2d 32 20 2a 2f 0a 0a 2f 2a 0a 2a 2a   UCS-2 */../*.**
4830: 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e   Helper function
4840: 20 74 6f 20 69 6e 69 74 69 61 6c 69 7a 65 20 74   to initialize t
4850: 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e 20 6f 62  he conversion ob
4860: 6a 65 63 74 73 20 66 72 6f 6d 20 61 6e 64 20 74  jects from and t
4870: 6f 20 55 54 46 2d 38 2e 0a 2a 2f 0a 73 74 61 74  o UTF-8..*/.stat
4880: 69 63 20 76 6f 69 64 20 69 6e 69 74 55 63 6f 6e  ic void initUcon
4890: 76 4f 62 6a 65 63 74 73 28 20 76 6f 69 64 20 29  vObjects( void )
48a0: 7b 0a 20 20 69 66 28 20 55 6e 69 43 72 65 61 74  {.  if( UniCreat
48b0: 65 55 63 6f 6e 76 4f 62 6a 65 63 74 28 20 55 54  eUconvObject( UT
48c0: 46 5f 38 2c 20 26 75 63 55 74 66 38 20 29 20 21  F_8, &ucUtf8 ) !
48d0: 3d 20 55 4c 53 5f 53 55 43 43 45 53 53 20 29 0a  = ULS_SUCCESS ).
48e0: 20 20 20 20 75 63 55 74 66 38 20 3d 20 4e 55 4c      ucUtf8 = NUL
48f0: 4c 3b 0a 20 20 69 66 20 28 20 55 6e 69 43 72 65  L;.  if ( UniCre
4900: 61 74 65 55 63 6f 6e 76 4f 62 6a 65 63 74 28 20  ateUconvObject( 
4910: 28 55 6e 69 43 68 61 72 20 2a 29 4c 22 40 70 61  (UniChar *)L"@pa
4920: 74 68 3d 79 65 73 22 2c 20 26 75 63 6c 43 70 20  th=yes", &uclCp 
4930: 29 20 21 3d 20 55 4c 53 5f 53 55 43 43 45 53 53  ) != ULS_SUCCESS
4940: 20 29 0a 20 20 20 20 75 63 6c 43 70 20 3d 20 4e   ).    uclCp = N
4950: 55 4c 4c 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 48 65  ULL;.}../*.** He
4960: 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 20 74 6f  lper function to
4970: 20 66 72 65 65 20 74 68 65 20 63 6f 6e 76 65 72   free the conver
4980: 73 69 6f 6e 20 6f 62 6a 65 63 74 73 20 66 72 6f  sion objects fro
4990: 6d 20 61 6e 64 20 74 6f 20 55 54 46 2d 38 2e 0a  m and to UTF-8..
49a0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 66  */.static void f
49b0: 72 65 65 55 63 6f 6e 76 4f 62 6a 65 63 74 73 28  reeUconvObjects(
49c0: 20 76 6f 69 64 20 29 7b 0a 20 20 69 66 20 28 20   void ){.  if ( 
49d0: 75 63 55 74 66 38 20 29 0a 20 20 20 20 55 6e 69  ucUtf8 ).    Uni
49e0: 46 72 65 65 55 63 6f 6e 76 4f 62 6a 65 63 74 28  FreeUconvObject(
49f0: 20 75 63 55 74 66 38 20 29 3b 0a 20 20 69 66 20   ucUtf8 );.  if 
4a00: 28 20 75 63 6c 43 70 20 29 0a 20 20 20 20 55 6e  ( uclCp ).    Un
4a10: 69 46 72 65 65 55 63 6f 6e 76 4f 62 6a 65 63 74  iFreeUconvObject
4a20: 28 20 75 63 6c 43 70 20 29 3b 0a 20 20 75 63 55  ( uclCp );.  ucU
4a30: 74 66 38 20 3d 20 4e 55 4c 4c 3b 0a 20 20 75 63  tf8 = NULL;.  uc
4a40: 6c 43 70 20 3d 20 4e 55 4c 4c 3b 0a 7d 0a 0a 2f  lCp = NULL;.}../
4a50: 2a 0a 2a 2a 20 48 65 6c 70 65 72 20 66 75 6e 63  *.** Helper func
4a60: 74 69 6f 6e 20 74 6f 20 63 6f 6e 76 65 72 74 20  tion to convert 
4a70: 55 54 46 2d 38 20 66 69 6c 65 6e 61 6d 65 73 20  UTF-8 filenames 
4a80: 74 6f 20 6c 6f 63 61 6c 20 4f 53 2f 32 20 63 6f  to local OS/2 co
4a90: 64 65 70 61 67 65 2e 0a 2a 2a 20 54 68 65 20 74  depage..** The t
4aa0: 77 6f 2d 73 74 65 70 20 70 72 6f 63 65 73 73 3a  wo-step process:
4ab0: 20 66 69 72 73 74 20 63 6f 6e 76 65 72 74 20 74   first convert t
4ac0: 68 65 20 69 6e 63 6f 6d 69 6e 67 20 55 54 46 2d  he incoming UTF-
4ad0: 38 20 73 74 72 69 6e 67 0a 2a 2a 20 69 6e 74 6f  8 string.** into
4ae0: 20 55 43 53 2d 32 20 61 6e 64 20 74 68 65 6e 20   UCS-2 and then 
4af0: 66 72 6f 6d 20 55 43 53 2d 32 20 74 6f 20 74 68  from UCS-2 to th
4b00: 65 20 63 75 72 72 65 6e 74 20 63 6f 64 65 70 61  e current codepa
4b10: 67 65 2e 0a 2a 2a 20 54 68 65 20 72 65 74 75 72  ge..** The retur
4b20: 6e 65 64 20 63 68 61 72 20 70 6f 69 6e 74 65 72  ned char pointer
4b30: 20 68 61 73 20 74 6f 20 62 65 20 66 72 65 65 64   has to be freed
4b40: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 63 68 61 72  ..*/.static char
4b50: 20 2a 63 6f 6e 76 65 72 74 55 74 66 38 50 61 74   *convertUtf8Pat
4b60: 68 54 6f 43 70 28 20 63 6f 6e 73 74 20 63 68 61  hToCp( const cha
4b70: 72 20 2a 69 6e 20 29 7b 0a 20 20 55 6e 69 43 68  r *in ){.  UniCh
4b80: 61 72 20 74 65 6d 70 50 61 74 68 5b 43 43 48 4d  ar tempPath[CCHM
4b90: 41 58 50 41 54 48 5d 3b 0a 20 20 63 68 61 72 20  AXPATH];.  char 
4ba0: 2a 6f 75 74 20 3d 20 28 63 68 61 72 20 2a 29 63  *out = (char *)c
4bb0: 61 6c 6c 6f 63 28 20 43 43 48 4d 41 58 50 41 54  alloc( CCHMAXPAT
4bc0: 48 2c 20 31 20 29 3b 0a 0a 20 20 69 66 28 20 21  H, 1 );..  if( !
4bd0: 6f 75 74 20 29 0a 20 20 20 20 72 65 74 75 72 6e  out ).    return
4be0: 20 4e 55 4c 4c 3b 0a 0a 20 20 69 66 28 20 21 75   NULL;..  if( !u
4bf0: 63 55 74 66 38 20 7c 7c 20 21 75 63 6c 43 70 20  cUtf8 || !uclCp 
4c00: 29 0a 20 20 20 20 69 6e 69 74 55 63 6f 6e 76 4f  ).    initUconvO
4c10: 62 6a 65 63 74 73 28 29 3b 0a 0a 20 20 2f 2a 20  bjects();..  /* 
4c20: 64 65 74 65 72 6d 69 6e 65 20 73 74 72 69 6e 67  determine string
4c30: 20 66 6f 72 20 74 68 65 20 63 6f 6e 76 65 72 73   for the convers
4c40: 69 6f 6e 20 6f 66 20 55 54 46 2d 38 20 77 68 69  ion of UTF-8 whi
4c50: 63 68 20 69 73 20 43 50 31 32 30 38 20 2a 2f 0a  ch is CP1208 */.
4c60: 20 20 69 66 28 20 55 6e 69 53 74 72 54 6f 55 63    if( UniStrToUc
4c70: 73 28 20 75 63 55 74 66 38 2c 20 74 65 6d 70 50  s( ucUtf8, tempP
4c80: 61 74 68 2c 20 28 63 68 61 72 20 2a 29 69 6e 2c  ath, (char *)in,
4c90: 20 43 43 48 4d 41 58 50 41 54 48 20 29 20 21 3d   CCHMAXPATH ) !=
4ca0: 20 55 4c 53 5f 53 55 43 43 45 53 53 20 29 0a 20   ULS_SUCCESS ). 
4cb0: 20 20 20 72 65 74 75 72 6e 20 6f 75 74 3b 20 2f     return out; /
4cc0: 2a 20 69 66 20 63 6f 6e 76 65 72 73 69 6f 6e 20  * if conversion 
4cd0: 66 61 69 6c 73 2c 20 72 65 74 75 72 6e 20 74 68  fails, return th
4ce0: 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 2a  e empty string *
4cf0: 2f 0a 0a 20 20 2f 2a 20 63 6f 6e 76 65 72 73 69  /..  /* conversi
4d00: 6f 6e 20 66 6f 72 20 63 75 72 72 65 6e 74 20 63  on for current c
4d10: 6f 64 65 70 61 67 65 20 77 68 69 63 68 20 63 61  odepage which ca
4d20: 6e 20 62 65 20 75 73 65 64 20 66 6f 72 20 70 61  n be used for pa
4d30: 74 68 73 20 2a 2f 0a 20 20 55 6e 69 53 74 72 46  ths */.  UniStrF
4d40: 72 6f 6d 55 63 73 28 20 75 63 6c 43 70 2c 20 6f  romUcs( uclCp, o
4d50: 75 74 2c 20 74 65 6d 70 50 61 74 68 2c 20 43 43  ut, tempPath, CC
4d60: 48 4d 41 58 50 41 54 48 20 29 3b 0a 0a 20 20 72  HMAXPATH );..  r
4d70: 65 74 75 72 6e 20 6f 75 74 3b 0a 7d 0a 0a 2f 2a  eturn out;.}../*
4d80: 0a 2a 2a 20 48 65 6c 70 65 72 20 66 75 6e 63 74  .** Helper funct
4d90: 69 6f 6e 20 74 6f 20 63 6f 6e 76 65 72 74 20 66  ion to convert f
4da0: 69 6c 65 6e 61 6d 65 73 20 66 72 6f 6d 20 6c 6f  ilenames from lo
4db0: 63 61 6c 20 63 6f 64 65 70 61 67 65 20 74 6f 20  cal codepage to 
4dc0: 55 54 46 2d 38 2e 0a 2a 2a 20 54 68 65 20 74 77  UTF-8..** The tw
4dd0: 6f 2d 73 74 65 70 20 70 72 6f 63 65 73 73 3a 20  o-step process: 
4de0: 66 69 72 73 74 20 63 6f 6e 76 65 72 74 20 74 68  first convert th
4df0: 65 20 69 6e 63 6f 6d 69 6e 67 20 63 6f 64 65 70  e incoming codep
4e00: 61 67 65 2d 73 70 65 63 69 66 69 63 0a 2a 2a 20  age-specific.** 
4e10: 73 74 72 69 6e 67 20 69 6e 74 6f 20 55 43 53 2d  string into UCS-
4e20: 32 20 61 6e 64 20 74 68 65 6e 20 66 72 6f 6d 20  2 and then from 
4e30: 55 43 53 2d 32 20 74 6f 20 74 68 65 20 63 6f 64  UCS-2 to the cod
4e40: 65 70 61 67 65 20 6f 66 20 55 54 46 2d 38 2e 0a  epage of UTF-8..
4e50: 2a 2a 20 54 68 65 20 72 65 74 75 72 6e 65 64 20  ** The returned 
4e60: 63 68 61 72 20 70 6f 69 6e 74 65 72 20 68 61 73  char pointer has
4e70: 20 74 6f 20 62 65 20 66 72 65 65 64 2e 0a 2a 2a   to be freed..**
4e80: 0a 2a 2a 20 54 68 69 73 20 66 75 6e 63 74 69 6f  .** This functio
4e90: 6e 20 69 73 20 6e 6f 6e 2d 73 74 61 74 69 63 20  n is non-static 
4ea0: 74 6f 20 62 65 20 61 62 6c 65 20 74 6f 20 75 73  to be able to us
4eb0: 65 20 74 68 69 73 20 69 6e 20 73 68 65 6c 6c 2e  e this in shell.
4ec0: 63 20 61 6e 64 0a 2a 2a 20 73 69 6d 69 6c 61 72  c and.** similar
4ed0: 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 74 68   applications th
4ee0: 61 74 20 74 61 6b 65 20 63 6f 6d 6d 61 6e 64 20  at take command 
4ef0: 6c 69 6e 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a  line arguments..
4f00: 2a 2f 0a 63 68 61 72 20 2a 63 6f 6e 76 65 72 74  */.char *convert
4f10: 43 70 50 61 74 68 54 6f 55 74 66 38 28 20 63 6f  CpPathToUtf8( co
4f20: 6e 73 74 20 63 68 61 72 20 2a 69 6e 20 29 7b 0a  nst char *in ){.
4f30: 20 20 55 6e 69 43 68 61 72 20 74 65 6d 70 50 61    UniChar tempPa
4f40: 74 68 5b 43 43 48 4d 41 58 50 41 54 48 5d 3b 0a  th[CCHMAXPATH];.
4f50: 20 20 63 68 61 72 20 2a 6f 75 74 20 3d 20 28 63    char *out = (c
4f60: 68 61 72 20 2a 29 63 61 6c 6c 6f 63 28 20 43 43  har *)calloc( CC
4f70: 48 4d 41 58 50 41 54 48 2c 20 31 20 29 3b 0a 0a  HMAXPATH, 1 );..
4f80: 20 20 69 66 28 20 21 6f 75 74 20 29 0a 20 20 20    if( !out ).   
4f90: 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 0a 20   return NULL;.. 
4fa0: 20 69 66 28 20 21 75 63 55 74 66 38 20 7c 7c 20   if( !ucUtf8 || 
4fb0: 21 75 63 6c 43 70 20 29 0a 20 20 20 20 69 6e 69  !uclCp ).    ini
4fc0: 74 55 63 6f 6e 76 4f 62 6a 65 63 74 73 28 29 3b  tUconvObjects();
4fd0: 0a 0a 20 20 2f 2a 20 63 6f 6e 76 65 72 73 69 6f  ..  /* conversio
4fe0: 6e 20 66 6f 72 20 63 75 72 72 65 6e 74 20 63 6f  n for current co
4ff0: 64 65 70 61 67 65 20 77 68 69 63 68 20 63 61 6e  depage which can
5000: 20 62 65 20 75 73 65 64 20 66 6f 72 20 70 61 74   be used for pat
5010: 68 73 20 2a 2f 0a 20 20 69 66 28 20 55 6e 69 53  hs */.  if( UniS
5020: 74 72 54 6f 55 63 73 28 20 75 63 6c 43 70 2c 20  trToUcs( uclCp, 
5030: 74 65 6d 70 50 61 74 68 2c 20 28 63 68 61 72 20  tempPath, (char 
5040: 2a 29 69 6e 2c 20 43 43 48 4d 41 58 50 41 54 48  *)in, CCHMAXPATH
5050: 20 29 20 21 3d 20 55 4c 53 5f 53 55 43 43 45 53   ) != ULS_SUCCES
5060: 53 20 29 0a 20 20 20 20 72 65 74 75 72 6e 20 6f  S ).    return o
5070: 75 74 3b 20 2f 2a 20 69 66 20 63 6f 6e 76 65 72  ut; /* if conver
5080: 73 69 6f 6e 20 66 61 69 6c 73 2c 20 72 65 74 75  sion fails, retu
5090: 72 6e 20 74 68 65 20 65 6d 70 74 79 20 73 74 72  rn the empty str
50a0: 69 6e 67 20 2a 2f 0a 0a 20 20 2f 2a 20 64 65 74  ing */..  /* det
50b0: 65 72 6d 69 6e 65 20 73 74 72 69 6e 67 20 66 6f  ermine string fo
50c0: 72 20 74 68 65 20 63 6f 6e 76 65 72 73 69 6f 6e  r the conversion
50d0: 20 6f 66 20 55 54 46 2d 38 20 77 68 69 63 68 20   of UTF-8 which 
50e0: 69 73 20 43 50 31 32 30 38 20 2a 2f 0a 20 20 55  is CP1208 */.  U
50f0: 6e 69 53 74 72 46 72 6f 6d 55 63 73 28 20 75 63  niStrFromUcs( uc
5100: 55 74 66 38 2c 20 6f 75 74 2c 20 74 65 6d 70 50  Utf8, out, tempP
5110: 61 74 68 2c 20 43 43 48 4d 41 58 50 41 54 48 20  ath, CCHMAXPATH 
5120: 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 6f 75 74  );..  return out
5130: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20  ;.}../*.** This 
5140: 76 65 63 74 6f 72 20 64 65 66 69 6e 65 73 20 61  vector defines a
5150: 6c 6c 20 74 68 65 20 6d 65 74 68 6f 64 73 20 74  ll the methods t
5160: 68 61 74 20 63 61 6e 20 6f 70 65 72 61 74 65 20  hat can operate 
5170: 6f 6e 20 61 6e 0a 2a 2a 20 73 71 6c 69 74 65 33  on an.** sqlite3
5180: 5f 66 69 6c 65 20 66 6f 72 20 6f 73 32 2e 0a 2a  _file for os2..*
5190: 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 73  /.static const s
51a0: 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64  qlite3_io_method
51b0: 73 20 6f 73 32 49 6f 4d 65 74 68 6f 64 20 3d 20  s os2IoMethod = 
51c0: 7b 0a 20 20 31 2c 20 20 20 20 20 20 20 20 20 20  {.  1,          
51d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
51e0: 20 69 56 65 72 73 69 6f 6e 20 2a 2f 0a 20 20 6f   iVersion */.  o
51f0: 73 32 43 6c 6f 73 65 2c 0a 20 20 6f 73 32 52 65  s2Close,.  os2Re
5200: 61 64 2c 0a 20 20 6f 73 32 57 72 69 74 65 2c 0a  ad,.  os2Write,.
5210: 20 20 6f 73 32 54 72 75 6e 63 61 74 65 2c 0a 20    os2Truncate,. 
5220: 20 6f 73 32 53 79 6e 63 2c 0a 20 20 6f 73 32 46   os2Sync,.  os2F
5230: 69 6c 65 53 69 7a 65 2c 0a 20 20 6f 73 32 4c 6f  ileSize,.  os2Lo
5240: 63 6b 2c 0a 20 20 6f 73 32 55 6e 6c 6f 63 6b 2c  ck,.  os2Unlock,
5250: 0a 20 20 6f 73 32 43 68 65 63 6b 52 65 73 65 72  .  os2CheckReser
5260: 76 65 64 4c 6f 63 6b 2c 0a 20 20 6f 73 32 46 69  vedLock,.  os2Fi
5270: 6c 65 43 6f 6e 74 72 6f 6c 2c 0a 20 20 6f 73 32  leControl,.  os2
5280: 53 65 63 74 6f 72 53 69 7a 65 2c 0a 20 20 6f 73  SectorSize,.  os
5290: 32 44 65 76 69 63 65 43 68 61 72 61 63 74 65 72  2DeviceCharacter
52a0: 69 73 74 69 63 73 0a 7d 3b 0a 0a 2f 2a 2a 2a 2a  istics.};../****
52b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
52c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
52d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
52e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
52f0: 2a 2a 2a 2a 2a 2a 2a 0a 2a 2a 20 48 65 72 65 20  *******.** Here 
5300: 65 6e 64 73 20 74 68 65 20 49 2f 4f 20 6d 65 74  ends the I/O met
5310: 68 6f 64 73 20 74 68 61 74 20 66 6f 72 6d 20 74  hods that form t
5320: 68 65 20 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65  he sqlite3_io_me
5330: 74 68 6f 64 73 20 6f 62 6a 65 63 74 2e 0a 2a 2a  thods object..**
5340: 0a 2a 2a 20 54 68 65 20 6e 65 78 74 20 62 6c 6f  .** The next blo
5350: 63 6b 20 6f 66 20 63 6f 64 65 20 69 6d 70 6c 65  ck of code imple
5360: 6d 65 6e 74 73 20 74 68 65 20 56 46 53 20 6d 65  ments the VFS me
5370: 74 68 6f 64 73 2e 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a  thods..*********
5380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5390: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
53a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
53b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
53c0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61  ***/../*.** Crea
53d0: 74 65 20 61 20 74 65 6d 70 6f 72 61 72 79 20 66  te a temporary f
53e0: 69 6c 65 20 6e 61 6d 65 20 69 6e 20 7a 42 75 66  ile name in zBuf
53f0: 2e 20 20 7a 42 75 66 20 6d 75 73 74 20 62 65 20  .  zBuf must be 
5400: 62 69 67 20 65 6e 6f 75 67 68 20 74 6f 0a 2a 2a  big enough to.**
5410: 20 68 6f 6c 64 20 61 74 20 70 56 66 73 2d 3e 6d   hold at pVfs->m
5420: 78 50 61 74 68 6e 61 6d 65 20 63 68 61 72 61 63  xPathname charac
5430: 74 65 72 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ters..*/.static 
5440: 69 6e 74 20 67 65 74 54 65 6d 70 6e 61 6d 65 28  int getTempname(
5450: 69 6e 74 20 6e 42 75 66 2c 20 63 68 61 72 20 2a  int nBuf, char *
5460: 7a 42 75 66 20 29 7b 0a 20 20 73 74 61 74 69 63  zBuf ){.  static
5470: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20   const unsigned 
5480: 63 68 61 72 20 7a 43 68 61 72 73 5b 5d 20 3d 0a  char zChars[] =.
5490: 20 20 20 20 22 61 62 63 64 65 66 67 68 69 6a 6b      "abcdefghijk
54a0: 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22  lmnopqrstuvwxyz"
54b0: 0a 20 20 20 20 22 41 42 43 44 45 46 47 48 49 4a  .    "ABCDEFGHIJ
54c0: 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a  KLMNOPQRSTUVWXYZ
54d0: 22 0a 20 20 20 20 22 30 31 32 33 34 35 36 37 38  ".    "012345678
54e0: 39 22 3b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a  9";.  int i, j;.
54f0: 20 20 63 68 61 72 20 7a 54 65 6d 70 50 61 74 68    char zTempPath
5500: 42 75 66 5b 33 5d 3b 0a 20 20 50 53 5a 20 7a 54  Buf[3];.  PSZ zT
5510: 65 6d 70 50 61 74 68 20 3d 20 28 50 53 5a 29 26  empPath = (PSZ)&
5520: 7a 54 65 6d 70 50 61 74 68 42 75 66 3b 0a 20 20  zTempPathBuf;.  
5530: 69 66 28 20 73 71 6c 69 74 65 33 5f 74 65 6d 70  if( sqlite3_temp
5540: 5f 64 69 72 65 63 74 6f 72 79 20 29 7b 0a 20 20  _directory ){.  
5550: 20 20 7a 54 65 6d 70 50 61 74 68 20 3d 20 73 71    zTempPath = sq
5560: 6c 69 74 65 33 5f 74 65 6d 70 5f 64 69 72 65 63  lite3_temp_direc
5570: 74 6f 72 79 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20  tory;.  }else{. 
5580: 20 20 20 69 66 28 20 44 6f 73 53 63 61 6e 45 6e     if( DosScanEn
5590: 76 28 20 28 50 53 5a 29 22 54 45 4d 50 22 2c 20  v( (PSZ)"TEMP", 
55a0: 26 7a 54 65 6d 70 50 61 74 68 20 29 20 29 7b 0a  &zTempPath ) ){.
55b0: 20 20 20 20 20 20 69 66 28 20 44 6f 73 53 63 61        if( DosSca
55c0: 6e 45 6e 76 28 20 28 50 53 5a 29 22 54 4d 50 22  nEnv( (PSZ)"TMP"
55d0: 2c 20 26 7a 54 65 6d 70 50 61 74 68 20 29 20 29  , &zTempPath ) )
55e0: 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 44 6f  {.        if( Do
55f0: 73 53 63 61 6e 45 6e 76 28 20 28 50 53 5a 29 22  sScanEnv( (PSZ)"
5600: 54 4d 50 44 49 52 22 2c 20 26 7a 54 65 6d 70 50  TMPDIR", &zTempP
5610: 61 74 68 20 29 20 29 7b 0a 20 20 20 20 20 20 20  ath ) ){.       
5620: 20 20 20 20 55 4c 4f 4e 47 20 75 6c 44 72 69 76      ULONG ulDriv
5630: 65 4e 75 6d 20 3d 20 30 2c 20 75 6c 44 72 69 76  eNum = 0, ulDriv
5640: 65 4d 61 70 20 3d 20 30 3b 0a 20 20 20 20 20 20  eMap = 0;.      
5650: 20 20 20 20 20 44 6f 73 51 75 65 72 79 43 75 72       DosQueryCur
5660: 72 65 6e 74 44 69 73 6b 28 20 26 75 6c 44 72 69  rentDisk( &ulDri
5670: 76 65 4e 75 6d 2c 20 26 75 6c 44 72 69 76 65 4d  veNum, &ulDriveM
5680: 61 70 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20  ap );.          
5690: 20 73 70 72 69 6e 74 66 28 20 28 63 68 61 72 2a   sprintf( (char*
56a0: 29 7a 54 65 6d 70 50 61 74 68 2c 20 22 25 63 3a  )zTempPath, "%c:
56b0: 22 2c 20 28 63 68 61 72 29 28 20 27 41 27 20 2b  ", (char)( 'A' +
56c0: 20 75 6c 44 72 69 76 65 4e 75 6d 20 2d 20 31 20   ulDriveNum - 1 
56d0: 29 20 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  ) );.        }. 
56e0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
56f0: 0a 20 20 2f 2a 20 53 74 72 69 70 20 6f 66 66 20  .  /* Strip off 
5700: 61 20 74 72 61 69 6c 69 6e 67 20 73 6c 61 73 68  a trailing slash
5710: 65 73 20 6f 72 20 62 61 63 6b 73 6c 61 73 68 65  es or backslashe
5720: 73 2c 20 6f 74 68 65 72 77 69 73 65 20 77 65 20  s, otherwise we 
5730: 77 6f 75 6c 64 20 67 65 74 20 2a 0a 20 20 20 2a  would get *.   *
5740: 20 6d 75 6c 74 69 70 6c 65 20 28 62 61 63 6b 29   multiple (back)
5750: 73 6c 61 73 68 65 73 20 77 68 69 63 68 20 63 61  slashes which ca
5760: 75 73 65 73 20 44 6f 73 4f 70 65 6e 28 29 20 74  uses DosOpen() t
5770: 6f 20 66 61 69 6c 2e 20 20 20 20 20 20 20 20 20  o fail.         
5780: 20 20 20 20 20 2a 0a 20 20 20 2a 20 54 72 61 69       *.   * Trai
5790: 6c 69 6e 67 20 73 70 61 63 65 73 20 61 72 65 20  ling spaces are 
57a0: 6e 6f 74 20 61 6c 6c 6f 77 65 64 2c 20 65 69 74  not allowed, eit
57b0: 68 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20  her.            
57c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
57d0: 2a 2f 0a 20 20 6a 20 3d 20 73 71 6c 69 74 65 33  */.  j = sqlite3
57e0: 53 74 72 6c 65 6e 33 30 28 7a 54 65 6d 70 50 61  Strlen30(zTempPa
57f0: 74 68 29 3b 0a 20 20 77 68 69 6c 65 28 20 6a 20  th);.  while( j 
5800: 3e 20 30 20 26 26 20 28 20 7a 54 65 6d 70 50 61  > 0 && ( zTempPa
5810: 74 68 5b 6a 2d 31 5d 20 3d 3d 20 27 5c 5c 27 20  th[j-1] == '\\' 
5820: 7c 7c 20 7a 54 65 6d 70 50 61 74 68 5b 6a 2d 31  || zTempPath[j-1
5830: 5d 20 3d 3d 20 27 2f 27 0a 20 20 20 20 20 20 20  ] == '/'.       
5840: 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 7c 20               || 
5850: 7a 54 65 6d 70 50 61 74 68 5b 6a 2d 31 5d 20 3d  zTempPath[j-1] =
5860: 3d 20 27 20 27 20 29 20 29 7b 0a 20 20 20 20 6a  = ' ' ) ){.    j
5870: 2d 2d 3b 0a 20 20 7d 0a 20 20 7a 54 65 6d 70 50  --;.  }.  zTempP
5880: 61 74 68 5b 6a 5d 20 3d 20 27 5c 30 27 3b 0a 20  ath[j] = '\0';. 
5890: 20 69 66 28 20 21 73 71 6c 69 74 65 33 5f 74 65   if( !sqlite3_te
58a0: 6d 70 5f 64 69 72 65 63 74 6f 72 79 20 29 7b 0a  mp_directory ){.
58b0: 20 20 20 20 63 68 61 72 20 2a 7a 54 65 6d 70 50      char *zTempP
58c0: 61 74 68 55 54 46 20 3d 20 63 6f 6e 76 65 72 74  athUTF = convert
58d0: 43 70 50 61 74 68 54 6f 55 74 66 38 28 20 7a 54  CpPathToUtf8( zT
58e0: 65 6d 70 50 61 74 68 20 29 3b 0a 20 20 20 20 73  empPath );.    s
58f0: 71 6c 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28  qlite3_snprintf(
5900: 20 6e 42 75 66 2d 33 30 2c 20 7a 42 75 66 2c 0a   nBuf-30, zBuf,.
5910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5920: 20 20 20 20 20 20 22 25 73 5c 5c 22 53 51 4c 49        "%s\\"SQLI
5930: 54 45 5f 54 45 4d 50 5f 46 49 4c 45 5f 50 52 45  TE_TEMP_FILE_PRE
5940: 46 49 58 2c 20 7a 54 65 6d 70 50 61 74 68 55 54  FIX, zTempPathUT
5950: 46 20 29 3b 0a 20 20 20 20 66 72 65 65 28 20 7a  F );.    free( z
5960: 54 65 6d 70 50 61 74 68 55 54 46 20 29 3b 0a 20  TempPathUTF );. 
5970: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c 69   }else{.    sqli
5980: 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 20 6e 42  te3_snprintf( nB
5990: 75 66 2d 33 30 2c 20 7a 42 75 66 2c 0a 20 20 20  uf-30, zBuf,.   
59a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
59b0: 20 20 20 22 25 73 5c 5c 22 53 51 4c 49 54 45 5f     "%s\\"SQLITE_
59c0: 54 45 4d 50 5f 46 49 4c 45 5f 50 52 45 46 49 58  TEMP_FILE_PREFIX
59d0: 2c 20 7a 54 65 6d 70 50 61 74 68 20 29 3b 0a 20  , zTempPath );. 
59e0: 20 7d 0a 20 20 6a 20 3d 20 73 71 6c 69 74 65 33   }.  j = sqlite3
59f0: 53 74 72 6c 65 6e 33 30 28 20 7a 42 75 66 20 29  Strlen30( zBuf )
5a00: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 72 61 6e 64  ;.  sqlite3_rand
5a10: 6f 6d 6e 65 73 73 28 20 32 30 2c 20 26 7a 42 75  omness( 20, &zBu
5a20: 66 5b 6a 5d 20 29 3b 0a 20 20 66 6f 72 28 20 69  f[j] );.  for( i
5a30: 20 3d 20 30 3b 20 69 20 3c 20 32 30 3b 20 69 2b   = 0; i < 20; i+
5a40: 2b 2c 20 6a 2b 2b 20 29 7b 0a 20 20 20 20 7a 42  +, j++ ){.    zB
5a50: 75 66 5b 6a 5d 20 3d 20 28 63 68 61 72 29 7a 43  uf[j] = (char)zC
5a60: 68 61 72 73 5b 20 28 28 75 6e 73 69 67 6e 65 64  hars[ ((unsigned
5a70: 20 63 68 61 72 29 7a 42 75 66 5b 6a 5d 29 25 28   char)zBuf[j])%(
5a80: 73 69 7a 65 6f 66 28 7a 43 68 61 72 73 29 2d 31  sizeof(zChars)-1
5a90: 29 20 5d 3b 0a 20 20 7d 0a 20 20 7a 42 75 66 5b  ) ];.  }.  zBuf[
5aa0: 6a 5d 20 3d 20 30 3b 0a 20 20 4f 53 54 52 41 43  j] = 0;.  OSTRAC
5ab0: 45 28 28 20 22 54 45 4d 50 20 46 49 4c 45 4e 41  E(( "TEMP FILENA
5ac0: 4d 45 3a 20 25 73 5c 6e 22 2c 20 7a 42 75 66 20  ME: %s\n", zBuf 
5ad0: 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  ));.  return SQL
5ae0: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a  ITE_OK;.}.../*.*
5af0: 2a 20 54 75 72 6e 20 61 20 72 65 6c 61 74 69 76  * Turn a relativ
5b00: 65 20 70 61 74 68 6e 61 6d 65 20 69 6e 74 6f 20  e pathname into 
5b10: 61 20 66 75 6c 6c 20 70 61 74 68 6e 61 6d 65 2e  a full pathname.
5b20: 20 20 57 72 69 74 65 20 74 68 65 20 66 75 6c 6c    Write the full
5b30: 0a 2a 2a 20 70 61 74 68 6e 61 6d 65 20 69 6e 74  .** pathname int
5b40: 6f 20 7a 46 75 6c 6c 5b 5d 2e 20 20 7a 46 75 6c  o zFull[].  zFul
5b50: 6c 5b 5d 20 77 69 6c 6c 20 62 65 20 61 74 20 6c  l[] will be at l
5b60: 65 61 73 74 20 70 56 66 73 2d 3e 6d 78 50 61 74  east pVfs->mxPat
5b70: 68 6e 61 6d 65 0a 2a 2a 20 62 79 74 65 73 20 69  hname.** bytes i
5b80: 6e 20 73 69 7a 65 2e 0a 2a 2f 0a 73 74 61 74 69  n size..*/.stati
5b90: 63 20 69 6e 74 20 6f 73 32 46 75 6c 6c 50 61 74  c int os2FullPat
5ba0: 68 6e 61 6d 65 28 0a 20 20 73 71 6c 69 74 65 33  hname(.  sqlite3
5bb0: 5f 76 66 73 20 2a 70 56 66 73 2c 20 20 20 20 20  _vfs *pVfs,     
5bc0: 20 20 20 20 20 2f 2a 20 50 6f 69 6e 74 65 72 20       /* Pointer 
5bd0: 74 6f 20 76 66 73 20 6f 62 6a 65 63 74 20 2a 2f  to vfs object */
5be0: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
5bf0: 52 65 6c 61 74 69 76 65 2c 20 20 20 20 20 20 2f  Relative,      /
5c00: 2a 20 50 6f 73 73 69 62 6c 79 20 72 65 6c 61 74  * Possibly relat
5c10: 69 76 65 20 69 6e 70 75 74 20 70 61 74 68 20 2a  ive input path *
5c20: 2f 0a 20 20 69 6e 74 20 6e 46 75 6c 6c 2c 20 20  /.  int nFull,  
5c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5c40: 2f 2a 20 53 69 7a 65 20 6f 66 20 6f 75 74 70 75  /* Size of outpu
5c50: 74 20 62 75 66 66 65 72 20 69 6e 20 62 79 74 65  t buffer in byte
5c60: 73 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 46 75  s */.  char *zFu
5c70: 6c 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ll              
5c80: 20 20 20 2f 2a 20 4f 75 74 70 75 74 20 62 75 66     /* Output buf
5c90: 66 65 72 20 2a 2f 0a 29 7b 0a 20 20 63 68 61 72  fer */.){.  char
5ca0: 20 2a 7a 52 65 6c 61 74 69 76 65 43 70 20 3d 20   *zRelativeCp = 
5cb0: 63 6f 6e 76 65 72 74 55 74 66 38 50 61 74 68 54  convertUtf8PathT
5cc0: 6f 43 70 28 20 7a 52 65 6c 61 74 69 76 65 20 29  oCp( zRelative )
5cd0: 3b 0a 20 20 63 68 61 72 20 7a 46 75 6c 6c 43 70  ;.  char zFullCp
5ce0: 5b 43 43 48 4d 41 58 50 41 54 48 5d 20 3d 20 22  [CCHMAXPATH] = "
5cf0: 5c 30 22 3b 0a 20 20 63 68 61 72 20 2a 7a 46 75  \0";.  char *zFu
5d00: 6c 6c 55 54 46 3b 0a 20 20 41 50 49 52 45 54 20  llUTF;.  APIRET 
5d10: 72 63 20 3d 20 44 6f 73 51 75 65 72 79 50 61 74  rc = DosQueryPat
5d20: 68 49 6e 66 6f 28 20 7a 52 65 6c 61 74 69 76 65  hInfo( zRelative
5d30: 43 70 2c 20 46 49 4c 5f 51 55 45 52 59 46 55 4c  Cp, FIL_QUERYFUL
5d40: 4c 4e 41 4d 45 2c 20 7a 46 75 6c 6c 43 70 2c 0a  LNAME, zFullCp,.
5d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5d70: 43 43 48 4d 41 58 50 41 54 48 20 29 3b 0a 20 20  CCHMAXPATH );.  
5d80: 66 72 65 65 28 20 7a 52 65 6c 61 74 69 76 65 43  free( zRelativeC
5d90: 70 20 29 3b 0a 20 20 7a 46 75 6c 6c 55 54 46 20  p );.  zFullUTF 
5da0: 3d 20 63 6f 6e 76 65 72 74 43 70 50 61 74 68 54  = convertCpPathT
5db0: 6f 55 74 66 38 28 20 7a 46 75 6c 6c 43 70 20 29  oUtf8( zFullCp )
5dc0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e 70 72  ;.  sqlite3_snpr
5dd0: 69 6e 74 66 28 20 6e 46 75 6c 6c 2c 20 7a 46 75  intf( nFull, zFu
5de0: 6c 6c 2c 20 7a 46 75 6c 6c 55 54 46 20 29 3b 0a  ll, zFullUTF );.
5df0: 20 20 66 72 65 65 28 20 7a 46 75 6c 6c 55 54 46    free( zFullUTF
5e00: 20 29 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 20   );.  return rc 
5e10: 3d 3d 20 4e 4f 5f 45 52 52 4f 52 20 3f 20 53 51  == NO_ERROR ? SQ
5e20: 4c 49 54 45 5f 4f 4b 20 3a 20 53 51 4c 49 54 45  LITE_OK : SQLITE
5e30: 5f 49 4f 45 52 52 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a  _IOERR;.}.../*.*
5e40: 2a 20 4f 70 65 6e 20 61 20 66 69 6c 65 2e 0a 2a  * Open a file..*
5e50: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6f 73 32  /.static int os2
5e60: 4f 70 65 6e 28 0a 20 20 73 71 6c 69 74 65 33 5f  Open(.  sqlite3_
5e70: 76 66 73 20 2a 70 56 66 73 2c 20 20 20 20 20 20  vfs *pVfs,      
5e80: 20 20 20 20 20 20 2f 2a 20 4e 6f 74 20 75 73 65        /* Not use
5e90: 64 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61  d */.  const cha
5ea0: 72 20 2a 7a 4e 61 6d 65 2c 20 20 20 20 20 20 20  r *zName,       
5eb0: 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20       /* Name of 
5ec0: 74 68 65 20 66 69 6c 65 20 2a 2f 0a 20 20 73 71  the file */.  sq
5ed0: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 69 64 2c 20  lite3_file *id, 
5ee0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 57              /* W
5ef0: 72 69 74 65 20 74 68 65 20 53 51 4c 69 74 65 20  rite the SQLite 
5f00: 66 69 6c 65 20 68 61 6e 64 6c 65 20 68 65 72 65  file handle here
5f10: 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c   */.  int flags,
5f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5f30: 20 20 20 20 2f 2a 20 4f 70 65 6e 20 6d 6f 64 65      /* Open mode
5f40: 20 66 6c 61 67 73 20 2a 2f 0a 20 20 69 6e 74 20   flags */.  int 
5f50: 2a 70 4f 75 74 46 6c 61 67 73 20 20 20 20 20 20  *pOutFlags      
5f60: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 53 74 61            /* Sta
5f70: 74 75 73 20 72 65 74 75 72 6e 20 66 6c 61 67 73  tus return flags
5f80: 20 2a 2f 0a 29 7b 0a 20 20 48 46 49 4c 45 20 68   */.){.  HFILE h
5f90: 3b 0a 20 20 55 4c 4f 4e 47 20 75 6c 46 69 6c 65  ;.  ULONG ulFile
5fa0: 41 74 74 72 69 62 75 74 65 20 3d 20 46 49 4c 45  Attribute = FILE
5fb0: 5f 4e 4f 52 4d 41 4c 3b 0a 20 20 55 4c 4f 4e 47  _NORMAL;.  ULONG
5fc0: 20 75 6c 4f 70 65 6e 46 6c 61 67 73 20 3d 20 30   ulOpenFlags = 0
5fd0: 3b 0a 20 20 55 4c 4f 4e 47 20 75 6c 4f 70 65 6e  ;.  ULONG ulOpen
5fe0: 4d 6f 64 65 20 3d 20 30 3b 0a 20 20 6f 73 32 46  Mode = 0;.  os2F
5ff0: 69 6c 65 20 2a 70 46 69 6c 65 20 3d 20 28 6f 73  ile *pFile = (os
6000: 32 46 69 6c 65 2a 29 69 64 3b 0a 20 20 41 50 49  2File*)id;.  API
6010: 52 45 54 20 72 63 20 3d 20 4e 4f 5f 45 52 52 4f  RET rc = NO_ERRO
6020: 52 3b 0a 20 20 55 4c 4f 4e 47 20 75 6c 41 63 74  R;.  ULONG ulAct
6030: 69 6f 6e 3b 0a 20 20 63 68 61 72 20 2a 7a 4e 61  ion;.  char *zNa
6040: 6d 65 43 70 3b 0a 20 20 63 68 61 72 20 7a 54 6d  meCp;.  char zTm
6050: 70 6e 61 6d 65 5b 43 43 48 4d 41 58 50 41 54 48  pname[CCHMAXPATH
6060: 2b 31 5d 3b 20 20 20 20 2f 2a 20 42 75 66 66 65  +1];    /* Buffe
6070: 72 20 74 6f 20 68 6f 6c 64 20 6e 61 6d 65 20 6f  r to hold name o
6080: 66 20 74 65 6d 70 20 66 69 6c 65 20 2a 2f 0a 0a  f temp file */..
6090: 20 20 2f 2a 20 49 66 20 74 68 65 20 73 65 63 6f    /* If the seco
60a0: 6e 64 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 74  nd argument to t
60b0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20  his function is 
60c0: 4e 55 4c 4c 2c 20 67 65 6e 65 72 61 74 65 20 61  NULL, generate a
60d0: 20 0a 20 20 2a 2a 20 74 65 6d 70 6f 72 61 72 79   .  ** temporary
60e0: 20 66 69 6c 65 20 6e 61 6d 65 20 74 6f 20 75 73   file name to us
60f0: 65 20 0a 20 20 2a 2f 0a 20 20 69 66 28 20 21 7a  e .  */.  if( !z
6100: 4e 61 6d 65 20 29 7b 0a 20 20 20 20 69 6e 74 20  Name ){.    int 
6110: 72 63 20 3d 20 67 65 74 54 65 6d 70 6e 61 6d 65  rc = getTempname
6120: 28 43 43 48 4d 41 58 50 41 54 48 2b 31 2c 20 7a  (CCHMAXPATH+1, z
6130: 54 6d 70 6e 61 6d 65 29 3b 0a 20 20 20 20 69 66  Tmpname);.    if
6140: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
6150: 29 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  ){.      return 
6160: 72 63 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 4e  rc;.    }.    zN
6170: 61 6d 65 20 3d 20 7a 54 6d 70 6e 61 6d 65 3b 0a  ame = zTmpname;.
6180: 20 20 7d 0a 0a 0a 20 20 6d 65 6d 73 65 74 28 20    }...  memset( 
6190: 70 46 69 6c 65 2c 20 30 2c 20 73 69 7a 65 6f 66  pFile, 0, sizeof
61a0: 28 2a 70 46 69 6c 65 29 20 29 3b 0a 0a 20 20 4f  (*pFile) );..  O
61b0: 53 54 52 41 43 45 28 28 20 22 4f 50 45 4e 20 77  STRACE(( "OPEN w
61c0: 61 6e 74 20 25 64 5c 6e 22 2c 20 66 6c 61 67 73  ant %d\n", flags
61d0: 20 29 29 3b 0a 0a 20 20 69 66 28 20 66 6c 61 67   ));..  if( flag
61e0: 73 20 26 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f  s & SQLITE_OPEN_
61f0: 52 45 41 44 57 52 49 54 45 20 29 7b 0a 20 20 20  READWRITE ){.   
6200: 20 75 6c 4f 70 65 6e 4d 6f 64 65 20 7c 3d 20 4f   ulOpenMode |= O
6210: 50 45 4e 5f 41 43 43 45 53 53 5f 52 45 41 44 57  PEN_ACCESS_READW
6220: 52 49 54 45 3b 0a 20 20 20 20 4f 53 54 52 41 43  RITE;.    OSTRAC
6230: 45 28 28 20 22 4f 50 45 4e 20 72 65 61 64 2f 77  E(( "OPEN read/w
6240: 72 69 74 65 5c 6e 22 20 29 29 3b 0a 20 20 7d 65  rite\n" ));.  }e
6250: 6c 73 65 7b 0a 20 20 20 20 75 6c 4f 70 65 6e 4d  lse{.    ulOpenM
6260: 6f 64 65 20 7c 3d 20 4f 50 45 4e 5f 41 43 43 45  ode |= OPEN_ACCE
6270: 53 53 5f 52 45 41 44 4f 4e 4c 59 3b 0a 20 20 20  SS_READONLY;.   
6280: 20 4f 53 54 52 41 43 45 28 28 20 22 4f 50 45 4e   OSTRACE(( "OPEN
6290: 20 72 65 61 64 20 6f 6e 6c 79 5c 6e 22 20 29 29   read only\n" ))
62a0: 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20 66 6c 61  ;.  }..  if( fla
62b0: 67 73 20 26 20 53 51 4c 49 54 45 5f 4f 50 45 4e  gs & SQLITE_OPEN
62c0: 5f 43 52 45 41 54 45 20 29 7b 0a 20 20 20 20 75  _CREATE ){.    u
62d0: 6c 4f 70 65 6e 46 6c 61 67 73 20 7c 3d 20 4f 50  lOpenFlags |= OP
62e0: 45 4e 5f 41 43 54 49 4f 4e 5f 4f 50 45 4e 5f 49  EN_ACTION_OPEN_I
62f0: 46 5f 45 58 49 53 54 53 20 7c 20 4f 50 45 4e 5f  F_EXISTS | OPEN_
6300: 41 43 54 49 4f 4e 5f 43 52 45 41 54 45 5f 49 46  ACTION_CREATE_IF
6310: 5f 4e 45 57 3b 0a 20 20 20 20 4f 53 54 52 41 43  _NEW;.    OSTRAC
6320: 45 28 28 20 22 4f 50 45 4e 20 6f 70 65 6e 20 6e  E(( "OPEN open n
6330: 65 77 2f 63 72 65 61 74 65 5c 6e 22 20 29 29 3b  ew/create\n" ));
6340: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 75 6c  .  }else{.    ul
6350: 4f 70 65 6e 46 6c 61 67 73 20 7c 3d 20 4f 50 45  OpenFlags |= OPE
6360: 4e 5f 41 43 54 49 4f 4e 5f 4f 50 45 4e 5f 49 46  N_ACTION_OPEN_IF
6370: 5f 45 58 49 53 54 53 20 7c 20 4f 50 45 4e 5f 41  _EXISTS | OPEN_A
6380: 43 54 49 4f 4e 5f 46 41 49 4c 5f 49 46 5f 4e 45  CTION_FAIL_IF_NE
6390: 57 3b 0a 20 20 20 20 4f 53 54 52 41 43 45 28 28  W;.    OSTRACE((
63a0: 20 22 4f 50 45 4e 20 6f 70 65 6e 20 65 78 69 73   "OPEN open exis
63b0: 74 69 6e 67 5c 6e 22 20 29 29 3b 0a 20 20 7d 0a  ting\n" ));.  }.
63c0: 0a 20 20 69 66 28 20 66 6c 61 67 73 20 26 20 53  .  if( flags & S
63d0: 51 4c 49 54 45 5f 4f 50 45 4e 5f 4d 41 49 4e 5f  QLITE_OPEN_MAIN_
63e0: 44 42 20 29 7b 0a 20 20 20 20 75 6c 4f 70 65 6e  DB ){.    ulOpen
63f0: 4d 6f 64 65 20 7c 3d 20 4f 50 45 4e 5f 53 48 41  Mode |= OPEN_SHA
6400: 52 45 5f 44 45 4e 59 4e 4f 4e 45 3b 0a 20 20 20  RE_DENYNONE;.   
6410: 20 4f 53 54 52 41 43 45 28 28 20 22 4f 50 45 4e   OSTRACE(( "OPEN
6420: 20 73 68 61 72 65 20 72 65 61 64 2f 77 72 69 74   share read/writ
6430: 65 5c 6e 22 20 29 29 3b 0a 20 20 7d 65 6c 73 65  e\n" ));.  }else
6440: 7b 0a 20 20 20 20 75 6c 4f 70 65 6e 4d 6f 64 65  {.    ulOpenMode
6450: 20 7c 3d 20 4f 50 45 4e 5f 53 48 41 52 45 5f 44   |= OPEN_SHARE_D
6460: 45 4e 59 57 52 49 54 45 3b 0a 20 20 20 20 4f 53  ENYWRITE;.    OS
6470: 54 52 41 43 45 28 28 20 22 4f 50 45 4e 20 73 68  TRACE(( "OPEN sh
6480: 61 72 65 20 72 65 61 64 20 6f 6e 6c 79 5c 6e 22  are read only\n"
6490: 20 29 29 3b 0a 20 20 7d 0a 0a 20 20 69 66 28 20   ));.  }..  if( 
64a0: 66 6c 61 67 73 20 26 20 53 51 4c 49 54 45 5f 4f  flags & SQLITE_O
64b0: 50 45 4e 5f 44 45 4c 45 54 45 4f 4e 43 4c 4f 53  PEN_DELETEONCLOS
64c0: 45 20 29 7b 0a 20 20 20 20 63 68 61 72 20 70 61  E ){.    char pa
64d0: 74 68 55 74 66 38 5b 43 43 48 4d 41 58 50 41 54  thUtf8[CCHMAXPAT
64e0: 48 5d 3b 0a 23 69 66 64 65 66 20 4e 44 45 42 55  H];.#ifdef NDEBU
64f0: 47 20 2f 2a 20 77 68 65 6e 20 64 65 62 75 67 67  G /* when debugg
6500: 69 6e 67 20 77 65 20 77 61 6e 74 20 74 6f 20 6d  ing we want to m
6510: 61 6b 65 20 73 75 72 65 20 69 74 20 69 73 20 64  ake sure it is d
6520: 65 6c 65 74 65 64 20 2a 2f 0a 20 20 20 20 75 6c  eleted */.    ul
6530: 46 69 6c 65 41 74 74 72 69 62 75 74 65 20 3d 20  FileAttribute = 
6540: 46 49 4c 45 5f 48 49 44 44 45 4e 3b 0a 23 65 6e  FILE_HIDDEN;.#en
6550: 64 69 66 0a 20 20 20 20 6f 73 32 46 75 6c 6c 50  dif.    os2FullP
6560: 61 74 68 6e 61 6d 65 28 20 70 56 66 73 2c 20 7a  athname( pVfs, z
6570: 4e 61 6d 65 2c 20 43 43 48 4d 41 58 50 41 54 48  Name, CCHMAXPATH
6580: 2c 20 70 61 74 68 55 74 66 38 20 29 3b 0a 20 20  , pathUtf8 );.  
6590: 20 20 70 46 69 6c 65 2d 3e 70 61 74 68 54 6f 44    pFile->pathToD
65a0: 65 6c 20 3d 20 63 6f 6e 76 65 72 74 55 74 66 38  el = convertUtf8
65b0: 50 61 74 68 54 6f 43 70 28 20 70 61 74 68 55 74  PathToCp( pathUt
65c0: 66 38 20 29 3b 0a 20 20 20 20 4f 53 54 52 41 43  f8 );.    OSTRAC
65d0: 45 28 28 20 22 4f 50 45 4e 20 68 69 64 64 65 6e  E(( "OPEN hidden
65e0: 2f 64 65 6c 65 74 65 20 6f 6e 20 63 6c 6f 73 65  /delete on close
65f0: 20 66 69 6c 65 20 61 74 74 72 69 62 75 74 65 73   file attributes
6600: 5c 6e 22 20 29 29 3b 0a 20 20 7d 65 6c 73 65 7b  \n" ));.  }else{
6610: 0a 20 20 20 20 70 46 69 6c 65 2d 3e 70 61 74 68  .    pFile->path
6620: 54 6f 44 65 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20  ToDel = NULL;.  
6630: 20 20 4f 53 54 52 41 43 45 28 28 20 22 4f 50 45    OSTRACE(( "OPE
6640: 4e 20 6e 6f 72 6d 61 6c 20 66 69 6c 65 20 61 74  N normal file at
6650: 74 72 69 62 75 74 65 5c 6e 22 20 29 29 3b 0a 20  tribute\n" ));. 
6660: 20 7d 0a 0a 20 20 2f 2a 20 61 6c 77 61 79 73 20   }..  /* always 
6670: 6f 70 65 6e 20 69 6e 20 72 61 6e 64 6f 6d 20 61  open in random a
6680: 63 63 65 73 73 20 6d 6f 64 65 20 66 6f 72 20 70  ccess mode for p
6690: 6f 73 73 69 62 6c 79 20 62 65 74 74 65 72 20 73  ossibly better s
66a0: 70 65 65 64 20 2a 2f 0a 20 20 75 6c 4f 70 65 6e  peed */.  ulOpen
66b0: 4d 6f 64 65 20 7c 3d 20 4f 50 45 4e 5f 46 4c 41  Mode |= OPEN_FLA
66c0: 47 53 5f 52 41 4e 44 4f 4d 3b 0a 20 20 75 6c 4f  GS_RANDOM;.  ulO
66d0: 70 65 6e 4d 6f 64 65 20 7c 3d 20 4f 50 45 4e 5f  penMode |= OPEN_
66e0: 46 4c 41 47 53 5f 46 41 49 4c 5f 4f 4e 5f 45 52  FLAGS_FAIL_ON_ER
66f0: 52 4f 52 3b 0a 20 20 75 6c 4f 70 65 6e 4d 6f 64  ROR;.  ulOpenMod
6700: 65 20 7c 3d 20 4f 50 45 4e 5f 46 4c 41 47 53 5f  e |= OPEN_FLAGS_
6710: 4e 4f 49 4e 48 45 52 49 54 3b 0a 0a 20 20 7a 4e  NOINHERIT;..  zN
6720: 61 6d 65 43 70 20 3d 20 63 6f 6e 76 65 72 74 55  ameCp = convertU
6730: 74 66 38 50 61 74 68 54 6f 43 70 28 20 7a 4e 61  tf8PathToCp( zNa
6740: 6d 65 20 29 3b 0a 20 20 72 63 20 3d 20 44 6f 73  me );.  rc = Dos
6750: 4f 70 65 6e 28 20 28 50 53 5a 29 7a 4e 61 6d 65  Open( (PSZ)zName
6760: 43 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20  Cp,.            
6770: 20 20 20 20 26 68 2c 0a 20 20 20 20 20 20 20 20      &h,.        
6780: 20 20 20 20 20 20 20 20 26 75 6c 41 63 74 69 6f          &ulActio
6790: 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  n,.             
67a0: 20 20 20 30 4c 2c 0a 20 20 20 20 20 20 20 20 20     0L,.         
67b0: 20 20 20 20 20 20 20 75 6c 46 69 6c 65 41 74 74         ulFileAtt
67c0: 72 69 62 75 74 65 2c 0a 20 20 20 20 20 20 20 20  ribute,.        
67d0: 20 20 20 20 20 20 20 20 75 6c 4f 70 65 6e 46 6c          ulOpenFl
67e0: 61 67 73 2c 0a 20 20 20 20 20 20 20 20 20 20 20  ags,.           
67f0: 20 20 20 20 20 75 6c 4f 70 65 6e 4d 6f 64 65 2c       ulOpenMode,
6800: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
6810: 20 28 50 45 41 4f 50 32 29 4e 55 4c 4c 20 29 3b   (PEAOP2)NULL );
6820: 0a 20 20 66 72 65 65 28 20 7a 4e 61 6d 65 43 70  .  free( zNameCp
6830: 20 29 3b 0a 20 20 69 66 28 20 72 63 20 21 3d 20   );.  if( rc != 
6840: 4e 4f 5f 45 52 52 4f 52 20 29 7b 0a 20 20 20 20  NO_ERROR ){.    
6850: 4f 53 54 52 41 43 45 28 28 20 22 4f 50 45 4e 20  OSTRACE(( "OPEN 
6860: 49 6e 76 61 6c 69 64 20 68 61 6e 64 6c 65 20 72  Invalid handle r
6870: 63 3d 25 64 3a 20 7a 4e 61 6d 65 3d 25 73 2c 20  c=%d: zName=%s, 
6880: 75 6c 41 63 74 69 6f 6e 3d 25 23 6c 78 2c 20 75  ulAction=%#lx, u
6890: 6c 41 74 74 72 3d 25 23 6c 78 2c 20 75 6c 46 6c  lAttr=%#lx, ulFl
68a0: 61 67 73 3d 25 23 6c 78 2c 20 75 6c 4d 6f 64 65  ags=%#lx, ulMode
68b0: 3d 25 23 6c 78 5c 6e 22 2c 0a 20 20 20 20 20 20  =%#lx\n",.      
68c0: 20 20 20 20 20 20 20 20 72 63 2c 20 7a 4e 61 6d          rc, zNam
68d0: 65 2c 20 75 6c 41 63 74 69 6f 6e 2c 20 75 6c 46  e, ulAction, ulF
68e0: 69 6c 65 41 74 74 72 69 62 75 74 65 2c 20 75 6c  ileAttribute, ul
68f0: 4f 70 65 6e 46 6c 61 67 73 2c 20 75 6c 4f 70 65  OpenFlags, ulOpe
6900: 6e 4d 6f 64 65 20 29 29 3b 0a 20 20 20 20 69 66  nMode ));.    if
6910: 28 20 70 46 69 6c 65 2d 3e 70 61 74 68 54 6f 44  ( pFile->pathToD
6920: 65 6c 20 29 0a 20 20 20 20 20 20 66 72 65 65 28  el ).      free(
6930: 20 70 46 69 6c 65 2d 3e 70 61 74 68 54 6f 44 65   pFile->pathToDe
6940: 6c 20 29 3b 0a 20 20 20 20 70 46 69 6c 65 2d 3e  l );.    pFile->
6950: 70 61 74 68 54 6f 44 65 6c 20 3d 20 4e 55 4c 4c  pathToDel = NULL
6960: 3b 0a 20 20 20 20 69 66 28 20 66 6c 61 67 73 20  ;.    if( flags 
6970: 26 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 45  & SQLITE_OPEN_RE
6980: 41 44 57 52 49 54 45 20 29 7b 0a 20 20 20 20 20  ADWRITE ){.     
6990: 20 4f 53 54 52 41 43 45 28 28 20 22 4f 50 45 4e   OSTRACE(( "OPEN
69a0: 20 25 64 20 49 6e 76 61 6c 69 64 20 68 61 6e 64   %d Invalid hand
69b0: 6c 65 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20  le\n",.         
69c0: 20 20 20 20 20 20 20 28 28 66 6c 61 67 73 20 7c         ((flags |
69d0: 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 45 41   SQLITE_OPEN_REA
69e0: 44 4f 4e 4c 59 29 20 26 20 7e 53 51 4c 49 54 45  DONLY) & ~SQLITE
69f0: 5f 4f 50 45 4e 5f 52 45 41 44 57 52 49 54 45 29  _OPEN_READWRITE)
6a00: 20 29 29 3b 0a 20 20 20 20 20 20 72 65 74 75 72   ));.      retur
6a10: 6e 20 6f 73 32 4f 70 65 6e 28 20 70 56 66 73 2c  n os2Open( pVfs,
6a20: 20 7a 4e 61 6d 65 2c 20 69 64 2c 0a 20 20 20 20   zName, id,.    
6a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6a40: 20 20 28 28 66 6c 61 67 73 20 7c 20 53 51 4c 49    ((flags | SQLI
6a50: 54 45 5f 4f 50 45 4e 5f 52 45 41 44 4f 4e 4c 59  TE_OPEN_READONLY
6a60: 29 20 26 20 7e 53 51 4c 49 54 45 5f 4f 50 45 4e  ) & ~SQLITE_OPEN
6a70: 5f 52 45 41 44 57 52 49 54 45 29 2c 0a 20 20 20  _READWRITE),.   
6a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6a90: 20 20 20 70 4f 75 74 46 6c 61 67 73 20 29 3b 0a     pOutFlags );.
6aa0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
6ab0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 43   return SQLITE_C
6ac0: 41 4e 54 4f 50 45 4e 3b 0a 20 20 20 20 7d 0a 20  ANTOPEN;.    }. 
6ad0: 20 7d 0a 0a 20 20 69 66 28 20 70 4f 75 74 46 6c   }..  if( pOutFl
6ae0: 61 67 73 20 29 7b 0a 20 20 20 20 2a 70 4f 75 74  ags ){.    *pOut
6af0: 46 6c 61 67 73 20 3d 20 66 6c 61 67 73 20 26 20  Flags = flags & 
6b00: 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 45 41 44  SQLITE_OPEN_READ
6b10: 57 52 49 54 45 20 3f 20 53 51 4c 49 54 45 5f 4f  WRITE ? SQLITE_O
6b20: 50 45 4e 5f 52 45 41 44 57 52 49 54 45 20 3a 20  PEN_READWRITE : 
6b30: 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 52 45 41 44  SQLITE_OPEN_READ
6b40: 4f 4e 4c 59 3b 0a 20 20 7d 0a 0a 20 20 70 46 69  ONLY;.  }..  pFi
6b50: 6c 65 2d 3e 70 4d 65 74 68 6f 64 20 3d 20 26 6f  le->pMethod = &o
6b60: 73 32 49 6f 4d 65 74 68 6f 64 3b 0a 20 20 70 46  s2IoMethod;.  pF
6b70: 69 6c 65 2d 3e 68 20 3d 20 68 3b 0a 20 20 4f 70  ile->h = h;.  Op
6b80: 65 6e 43 6f 75 6e 74 65 72 28 2b 31 29 3b 0a 20  enCounter(+1);. 
6b90: 20 4f 53 54 52 41 43 45 28 28 20 22 4f 50 45 4e   OSTRACE(( "OPEN
6ba0: 20 25 64 20 70 4f 75 74 46 6c 61 67 73 3d 25 64   %d pOutFlags=%d
6bb0: 5c 6e 22 2c 20 70 46 69 6c 65 2d 3e 68 2c 20 70  \n", pFile->h, p
6bc0: 4f 75 74 46 6c 61 67 73 20 29 29 3b 0a 20 20 72  OutFlags ));.  r
6bd0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b  eturn SQLITE_OK;
6be0: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 6c 65 74 65  .}../*.** Delete
6bf0: 20 74 68 65 20 6e 61 6d 65 64 20 66 69 6c 65 2e   the named file.
6c00: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 6f  .*/.static int o
6c10: 73 32 44 65 6c 65 74 65 28 0a 20 20 73 71 6c 69  s2Delete(.  sqli
6c20: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 20  te3_vfs *pVfs,  
6c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6c40: 20 20 20 2f 2a 20 4e 6f 74 20 75 73 65 64 20 6f     /* Not used o
6c50: 6e 20 6f 73 32 20 2a 2f 0a 20 20 63 6f 6e 73 74  n os2 */.  const
6c60: 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65   char *zFilename
6c70: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
6c80: 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 66 69 6c    /* Name of fil
6c90: 65 20 74 6f 20 64 65 6c 65 74 65 20 2a 2f 0a 20  e to delete */. 
6ca0: 20 69 6e 74 20 73 79 6e 63 44 69 72 20 20 20 20   int syncDir    
6cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6cc0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 74 20 75          /* Not u
6cd0: 73 65 64 20 6f 6e 20 6f 73 32 20 2a 2f 0a 29 7b  sed on os2 */.){
6ce0: 0a 20 20 41 50 49 52 45 54 20 72 63 20 3d 20 4e  .  APIRET rc = N
6cf0: 4f 5f 45 52 52 4f 52 3b 0a 20 20 63 68 61 72 20  O_ERROR;.  char 
6d00: 2a 7a 46 69 6c 65 6e 61 6d 65 43 70 20 3d 20 63  *zFilenameCp = c
6d10: 6f 6e 76 65 72 74 55 74 66 38 50 61 74 68 54 6f  onvertUtf8PathTo
6d20: 43 70 28 20 7a 46 69 6c 65 6e 61 6d 65 20 29 3b  Cp( zFilename );
6d30: 0a 20 20 53 69 6d 75 6c 61 74 65 49 4f 45 72 72  .  SimulateIOErr
6d40: 6f 72 28 20 72 65 74 75 72 6e 20 53 51 4c 49 54  or( return SQLIT
6d50: 45 5f 49 4f 45 52 52 5f 44 45 4c 45 54 45 20 29  E_IOERR_DELETE )
6d60: 3b 0a 20 20 72 63 20 3d 20 44 6f 73 44 65 6c 65  ;.  rc = DosDele
6d70: 74 65 28 20 28 50 53 5a 29 7a 46 69 6c 65 6e 61  te( (PSZ)zFilena
6d80: 6d 65 43 70 20 29 3b 0a 20 20 66 72 65 65 28 20  meCp );.  free( 
6d90: 7a 46 69 6c 65 6e 61 6d 65 43 70 20 29 3b 0a 20  zFilenameCp );. 
6da0: 20 4f 53 54 52 41 43 45 28 28 20 22 44 45 4c 45   OSTRACE(( "DELE
6db0: 54 45 20 5c 22 25 73 5c 22 5c 6e 22 2c 20 7a 46  TE \"%s\"\n", zF
6dc0: 69 6c 65 6e 61 6d 65 20 29 29 3b 0a 20 20 72 65  ilename ));.  re
6dd0: 74 75 72 6e 20 72 63 20 3d 3d 20 4e 4f 5f 45 52  turn rc == NO_ER
6de0: 52 4f 52 20 3f 20 53 51 4c 49 54 45 5f 4f 4b 20  ROR ? SQLITE_OK 
6df0: 3a 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 44  : SQLITE_IOERR_D
6e00: 45 4c 45 54 45 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  ELETE;.}../*.** 
6e10: 43 68 65 63 6b 20 74 68 65 20 65 78 69 73 74 61  Check the exista
6e20: 6e 63 65 20 61 6e 64 20 73 74 61 74 75 73 20 6f  nce and status o
6e30: 66 20 61 20 66 69 6c 65 2e 0a 2a 2f 0a 73 74 61  f a file..*/.sta
6e40: 74 69 63 20 69 6e 74 20 6f 73 32 41 63 63 65 73  tic int os2Acces
6e50: 73 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73  s(.  sqlite3_vfs
6e60: 20 2a 70 56 66 73 2c 20 20 20 20 20 20 20 20 2f   *pVfs,        /
6e70: 2a 20 4e 6f 74 20 75 73 65 64 20 6f 6e 20 6f 73  * Not used on os
6e80: 32 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61  2 */.  const cha
6e90: 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 20 20  r *zFilename,   
6ea0: 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 66 69 6c 65   /* Name of file
6eb0: 20 74 6f 20 63 68 65 63 6b 20 2a 2f 0a 20 20 69   to check */.  i
6ec0: 6e 74 20 66 6c 61 67 73 2c 20 20 20 20 20 20 20  nt flags,       
6ed0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 79 70 65           /* Type
6ee0: 20 6f 66 20 74 65 73 74 20 74 6f 20 6d 61 6b 65   of test to make
6ef0: 20 6f 6e 20 74 68 69 73 20 66 69 6c 65 20 2a 2f   on this file */
6f00: 0a 20 20 69 6e 74 20 2a 70 4f 75 74 20 20 20 20  .  int *pOut    
6f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
6f20: 57 72 69 74 65 20 72 65 73 75 6c 74 73 20 68 65  Write results he
6f30: 72 65 20 2a 2f 0a 29 7b 0a 20 20 46 49 4c 45 53  re */.){.  FILES
6f40: 54 41 54 55 53 33 20 66 73 74 73 33 43 6f 6e 66  TATUS3 fsts3Conf
6f50: 69 67 49 6e 66 6f 3b 0a 20 20 41 50 49 52 45 54  igInfo;.  APIRET
6f60: 20 72 63 20 3d 20 4e 4f 5f 45 52 52 4f 52 3b 0a   rc = NO_ERROR;.
6f70: 20 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d    char *zFilenam
6f80: 65 43 70 20 3d 20 63 6f 6e 76 65 72 74 55 74 66  eCp = convertUtf
6f90: 38 50 61 74 68 54 6f 43 70 28 20 7a 46 69 6c 65  8PathToCp( zFile
6fa0: 6e 61 6d 65 20 29 3b 0a 0a 20 20 6d 65 6d 73 65  name );..  memse
6fb0: 74 28 20 26 66 73 74 73 33 43 6f 6e 66 69 67 49  t( &fsts3ConfigI
6fc0: 6e 66 6f 2c 20 30 2c 20 73 69 7a 65 6f 66 28 66  nfo, 0, sizeof(f
6fd0: 73 74 73 33 43 6f 6e 66 69 67 49 6e 66 6f 29 20  sts3ConfigInfo) 
6fe0: 29 3b 0a 20 20 72 63 20 3d 20 44 6f 73 51 75 65  );.  rc = DosQue
6ff0: 72 79 50 61 74 68 49 6e 66 6f 28 20 28 50 53 5a  ryPathInfo( (PSZ
7000: 29 7a 46 69 6c 65 6e 61 6d 65 43 70 2c 20 46 49  )zFilenameCp, FI
7010: 4c 5f 53 54 41 4e 44 41 52 44 2c 0a 20 20 20 20  L_STANDARD,.    
7020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7030: 20 20 20 20 20 26 66 73 74 73 33 43 6f 6e 66 69       &fsts3Confi
7040: 67 49 6e 66 6f 2c 20 73 69 7a 65 6f 66 28 46 49  gInfo, sizeof(FI
7050: 4c 45 53 54 41 54 55 53 33 29 20 29 3b 0a 20 20  LESTATUS3) );.  
7060: 66 72 65 65 28 20 7a 46 69 6c 65 6e 61 6d 65 43  free( zFilenameC
7070: 70 20 29 3b 0a 20 20 4f 53 54 52 41 43 45 28 28  p );.  OSTRACE((
7080: 20 22 41 43 43 45 53 53 20 66 73 74 73 33 43 6f   "ACCESS fsts3Co
7090: 6e 66 69 67 49 6e 66 6f 2e 61 74 74 72 46 69 6c  nfigInfo.attrFil
70a0: 65 3d 25 64 20 66 6c 61 67 73 3d 25 64 20 72 63  e=%d flags=%d rc
70b0: 3d 25 64 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20  =%d\n",.        
70c0: 20 20 20 20 66 73 74 73 33 43 6f 6e 66 69 67 49      fsts3ConfigI
70d0: 6e 66 6f 2e 61 74 74 72 46 69 6c 65 2c 20 66 6c  nfo.attrFile, fl
70e0: 61 67 73 2c 20 72 63 20 29 29 3b 0a 20 20 73 77  ags, rc ));.  sw
70f0: 69 74 63 68 28 20 66 6c 61 67 73 20 29 7b 0a 20  itch( flags ){. 
7100: 20 20 20 63 61 73 65 20 53 51 4c 49 54 45 5f 41     case SQLITE_A
7110: 43 43 45 53 53 5f 52 45 41 44 3a 0a 20 20 20 20  CCESS_READ:.    
7120: 63 61 73 65 20 53 51 4c 49 54 45 5f 41 43 43 45  case SQLITE_ACCE
7130: 53 53 5f 45 58 49 53 54 53 3a 0a 20 20 20 20 20  SS_EXISTS:.     
7140: 20 72 63 20 3d 20 28 72 63 20 3d 3d 20 4e 4f 5f   rc = (rc == NO_
7150: 45 52 52 4f 52 29 3b 0a 20 20 20 20 20 20 4f 53  ERROR);.      OS
7160: 54 52 41 43 45 28 28 20 22 41 43 43 45 53 53 20  TRACE(( "ACCESS 
7170: 25 73 20 61 63 63 65 73 73 20 6f 66 20 72 65 61  %s access of rea
7180: 64 20 61 6e 64 20 65 78 69 73 74 73 20 20 72 63  d and exists  rc
7190: 3d 25 64 5c 6e 22 2c 20 7a 46 69 6c 65 6e 61 6d  =%d\n", zFilenam
71a0: 65 2c 20 72 63 29 29 3b 0a 20 20 20 20 20 20 62  e, rc));.      b
71b0: 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 53  reak;.    case S
71c0: 51 4c 49 54 45 5f 41 43 43 45 53 53 5f 52 45 41  QLITE_ACCESS_REA
71d0: 44 57 52 49 54 45 3a 0a 20 20 20 20 20 20 72 63  DWRITE:.      rc
71e0: 20 3d 20 28 72 63 20 3d 3d 20 4e 4f 5f 45 52 52   = (rc == NO_ERR
71f0: 4f 52 29 20 26 26 20 28 20 28 66 73 74 73 33 43  OR) && ( (fsts3C
7200: 6f 6e 66 69 67 49 6e 66 6f 2e 61 74 74 72 46 69  onfigInfo.attrFi
7210: 6c 65 20 26 20 46 49 4c 45 5f 52 45 41 44 4f 4e  le & FILE_READON
7220: 4c 59 29 20 3d 3d 20 30 20 29 3b 0a 20 20 20 20  LY) == 0 );.    
7230: 20 20 4f 53 54 52 41 43 45 28 28 20 22 41 43 43    OSTRACE(( "ACC
7240: 45 53 53 20 25 73 20 61 63 63 65 73 73 20 6f 66  ESS %s access of
7250: 20 72 65 61 64 2f 77 72 69 74 65 20 20 72 63 3d   read/write  rc=
7260: 25 64 5c 6e 22 2c 20 7a 46 69 6c 65 6e 61 6d 65  %d\n", zFilename
7270: 2c 20 72 63 20 29 29 3b 0a 20 20 20 20 20 20 62  , rc ));.      b
7280: 72 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c  reak;.    defaul
7290: 74 3a 0a 20 20 20 20 20 20 61 73 73 65 72 74 28  t:.      assert(
72a0: 20 21 22 49 6e 76 61 6c 69 64 20 66 6c 61 67 73   !"Invalid flags
72b0: 20 61 72 67 75 6d 65 6e 74 22 20 29 3b 0a 20 20   argument" );.  
72c0: 7d 0a 20 20 2a 70 4f 75 74 20 3d 20 72 63 3b 0a  }.  *pOut = rc;.
72d0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
72e0: 4f 4b 3b 0a 7d 0a 0a 0a 23 69 66 6e 64 65 66 20  OK;.}...#ifndef 
72f0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f 41 44  SQLITE_OMIT_LOAD
7300: 5f 45 58 54 45 4e 53 49 4f 4e 0a 2f 2a 0a 2a 2a  _EXTENSION./*.**
7310: 20 49 6e 74 65 72 66 61 63 65 73 20 66 6f 72 20   Interfaces for 
7320: 6f 70 65 6e 69 6e 67 20 61 20 73 68 61 72 65 64  opening a shared
7330: 20 6c 69 62 72 61 72 79 2c 20 66 69 6e 64 69 6e   library, findin
7340: 67 20 65 6e 74 72 79 20 70 6f 69 6e 74 73 0a 2a  g entry points.*
7350: 2a 20 77 69 74 68 69 6e 20 74 68 65 20 73 68 61  * within the sha
7360: 72 65 64 20 6c 69 62 72 61 72 79 2c 20 61 6e 64  red library, and
7370: 20 63 6c 6f 73 69 6e 67 20 74 68 65 20 73 68 61   closing the sha
7380: 72 65 64 20 6c 69 62 72 61 72 79 2e 0a 2a 2f 0a  red library..*/.
7390: 2f 2a 0a 2a 2a 20 49 6e 74 65 72 66 61 63 65 73  /*.** Interfaces
73a0: 20 66 6f 72 20 6f 70 65 6e 69 6e 67 20 61 20 73   for opening a s
73b0: 68 61 72 65 64 20 6c 69 62 72 61 72 79 2c 20 66  hared library, f
73c0: 69 6e 64 69 6e 67 20 65 6e 74 72 79 20 70 6f 69  inding entry poi
73d0: 6e 74 73 0a 2a 2a 20 77 69 74 68 69 6e 20 74 68  nts.** within th
73e0: 65 20 73 68 61 72 65 64 20 6c 69 62 72 61 72 79  e shared library
73f0: 2c 20 61 6e 64 20 63 6c 6f 73 69 6e 67 20 74 68  , and closing th
7400: 65 20 73 68 61 72 65 64 20 6c 69 62 72 61 72 79  e shared library
7410: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  ..*/.static void
7420: 20 2a 6f 73 32 44 6c 4f 70 65 6e 28 73 71 6c 69   *os2DlOpen(sqli
7430: 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20 63  te3_vfs *pVfs, c
7440: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
7450: 6e 61 6d 65 29 7b 0a 20 20 55 43 48 41 52 20 6c  name){.  UCHAR l
7460: 6f 61 64 45 72 72 5b 32 35 36 5d 3b 0a 20 20 48  oadErr[256];.  H
7470: 4d 4f 44 55 4c 45 20 68 6d 6f 64 3b 0a 20 20 41  MODULE hmod;.  A
7480: 50 49 52 45 54 20 72 63 3b 0a 20 20 63 68 61 72  PIRET rc;.  char
7490: 20 2a 7a 46 69 6c 65 6e 61 6d 65 43 70 20 3d 20   *zFilenameCp = 
74a0: 63 6f 6e 76 65 72 74 55 74 66 38 50 61 74 68 54  convertUtf8PathT
74b0: 6f 43 70 28 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a  oCp(zFilename);.
74c0: 20 20 72 63 20 3d 20 44 6f 73 4c 6f 61 64 4d 6f    rc = DosLoadMo
74d0: 64 75 6c 65 28 28 50 53 5a 29 6c 6f 61 64 45 72  dule((PSZ)loadEr
74e0: 72 2c 20 73 69 7a 65 6f 66 28 6c 6f 61 64 45 72  r, sizeof(loadEr
74f0: 72 29 2c 20 7a 46 69 6c 65 6e 61 6d 65 43 70 2c  r), zFilenameCp,
7500: 20 26 68 6d 6f 64 29 3b 0a 20 20 66 72 65 65 28   &hmod);.  free(
7510: 7a 46 69 6c 65 6e 61 6d 65 43 70 29 3b 0a 20 20  zFilenameCp);.  
7520: 72 65 74 75 72 6e 20 72 63 20 21 3d 20 4e 4f 5f  return rc != NO_
7530: 45 52 52 4f 52 20 3f 20 30 20 3a 20 28 76 6f 69  ERROR ? 0 : (voi
7540: 64 2a 29 68 6d 6f 64 3b 0a 7d 0a 2f 2a 0a 2a 2a  d*)hmod;.}./*.**
7550: 20 41 20 6e 6f 2d 6f 70 20 73 69 6e 63 65 20 74   A no-op since t
7560: 68 65 20 65 72 72 6f 72 20 63 6f 64 65 20 69 73  he error code is
7570: 20 72 65 74 75 72 6e 65 64 20 6f 6e 20 74 68 65   returned on the
7580: 20 44 6f 73 4c 6f 61 64 4d 6f 64 75 6c 65 20 63   DosLoadModule c
7590: 61 6c 6c 2e 0a 2a 2a 20 6f 73 32 44 6c 6f 70 65  all..** os2Dlope
75a0: 6e 20 72 65 74 75 72 6e 73 20 7a 65 72 6f 20 69  n returns zero i
75b0: 66 20 44 6f 73 4c 6f 61 64 4d 6f 64 75 6c 65 20  f DosLoadModule 
75c0: 69 73 20 6e 6f 74 20 73 75 63 63 65 73 73 66 75  is not successfu
75d0: 6c 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  l..*/.static voi
75e0: 64 20 6f 73 32 44 6c 45 72 72 6f 72 28 73 71 6c  d os2DlError(sql
75f0: 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c 20  ite3_vfs *pVfs, 
7600: 69 6e 74 20 6e 42 75 66 2c 20 63 68 61 72 20 2a  int nBuf, char *
7610: 7a 42 75 66 4f 75 74 29 7b 0a 2f 2a 20 6e 6f 2d  zBufOut){./* no-
7620: 6f 70 20 2a 2f 0a 7d 0a 73 74 61 74 69 63 20 76  op */.}.static v
7630: 6f 69 64 20 2a 6f 73 32 44 6c 53 79 6d 28 73 71  oid *os2DlSym(sq
7640: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
7650: 20 76 6f 69 64 20 2a 70 48 61 6e 64 6c 65 2c 20   void *pHandle, 
7660: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 79 6d  const char *zSym
7670: 62 6f 6c 29 7b 0a 20 20 50 46 4e 20 70 66 6e 3b  bol){.  PFN pfn;
7680: 0a 20 20 41 50 49 52 45 54 20 72 63 3b 0a 20 20  .  APIRET rc;.  
7690: 72 63 20 3d 20 44 6f 73 51 75 65 72 79 50 72 6f  rc = DosQueryPro
76a0: 63 41 64 64 72 28 28 48 4d 4f 44 55 4c 45 29 70  cAddr((HMODULE)p
76b0: 48 61 6e 64 6c 65 2c 20 30 4c 2c 20 7a 53 79 6d  Handle, 0L, zSym
76c0: 62 6f 6c 2c 20 26 70 66 6e 29 3b 0a 20 20 69 66  bol, &pfn);.  if
76d0: 28 20 72 63 20 21 3d 20 4e 4f 5f 45 52 52 4f 52  ( rc != NO_ERROR
76e0: 20 29 7b 0a 20 20 20 20 2f 2a 20 69 66 20 74 68   ){.    /* if th
76f0: 65 20 73 79 6d 62 6f 6c 20 69 74 73 65 6c 66 20  e symbol itself 
7700: 77 61 73 20 6e 6f 74 20 66 6f 75 6e 64 2c 20 73  was not found, s
7710: 65 61 72 63 68 20 61 67 61 69 6e 20 66 6f 72 20  earch again for 
7720: 74 68 65 20 73 61 6d 65 0a 20 20 20 20 20 2a 20  the same.     * 
7730: 73 79 6d 62 6f 6c 20 77 69 74 68 20 61 6e 20 65  symbol with an e
7740: 78 74 72 61 20 75 6e 64 65 72 73 63 6f 72 65 2c  xtra underscore,
7750: 20 74 68 61 74 20 6d 69 67 68 74 20 62 65 20 6e   that might be n
7760: 65 65 64 65 64 20 64 65 70 65 6e 64 69 6e 67 0a  eeded depending.
7770: 20 20 20 20 20 2a 20 6f 6e 20 74 68 65 20 63 61       * on the ca
7780: 6c 6c 69 6e 67 20 63 6f 6e 76 65 6e 74 69 6f 6e  lling convention
7790: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 5f 7a 53   */.    char _zS
77a0: 79 6d 62 6f 6c 5b 32 35 36 5d 20 3d 20 22 5f 22  ymbol[256] = "_"
77b0: 3b 0a 20 20 20 20 73 74 72 6e 63 61 74 28 5f 7a  ;.    strncat(_z
77c0: 53 79 6d 62 6f 6c 2c 20 7a 53 79 6d 62 6f 6c 2c  Symbol, zSymbol,
77d0: 20 32 35 35 29 3b 0a 20 20 20 20 72 63 20 3d 20   255);.    rc = 
77e0: 44 6f 73 51 75 65 72 79 50 72 6f 63 41 64 64 72  DosQueryProcAddr
77f0: 28 28 48 4d 4f 44 55 4c 45 29 70 48 61 6e 64 6c  ((HMODULE)pHandl
7800: 65 2c 20 30 4c 2c 20 5f 7a 53 79 6d 62 6f 6c 2c  e, 0L, _zSymbol,
7810: 20 26 70 66 6e 29 3b 0a 20 20 7d 0a 20 20 72 65   &pfn);.  }.  re
7820: 74 75 72 6e 20 72 63 20 21 3d 20 4e 4f 5f 45 52  turn rc != NO_ER
7830: 52 4f 52 20 3f 20 30 20 3a 20 28 76 6f 69 64 2a  ROR ? 0 : (void*
7840: 29 70 66 6e 3b 0a 7d 0a 73 74 61 74 69 63 20 76  )pfn;.}.static v
7850: 6f 69 64 20 6f 73 32 44 6c 43 6c 6f 73 65 28 73  oid os2DlClose(s
7860: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
7870: 2c 20 76 6f 69 64 20 2a 70 48 61 6e 64 6c 65 29  , void *pHandle)
7880: 7b 0a 20 20 44 6f 73 46 72 65 65 4d 6f 64 75 6c  {.  DosFreeModul
7890: 65 28 28 48 4d 4f 44 55 4c 45 29 70 48 61 6e 64  e((HMODULE)pHand
78a0: 6c 65 29 3b 0a 7d 0a 23 65 6c 73 65 20 2f 2a 20  le);.}.#else /* 
78b0: 69 66 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c  if SQLITE_OMIT_L
78c0: 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 20 69 73  OAD_EXTENSION is
78d0: 20 64 65 66 69 6e 65 64 3a 20 2a 2f 0a 20 20 23   defined: */.  #
78e0: 64 65 66 69 6e 65 20 6f 73 32 44 6c 4f 70 65 6e  define os2DlOpen
78f0: 20 30 0a 20 20 23 64 65 66 69 6e 65 20 6f 73 32   0.  #define os2
7900: 44 6c 45 72 72 6f 72 20 30 0a 20 20 23 64 65 66  DlError 0.  #def
7910: 69 6e 65 20 6f 73 32 44 6c 53 79 6d 20 30 0a 20  ine os2DlSym 0. 
7920: 20 23 64 65 66 69 6e 65 20 6f 73 32 44 6c 43 6c   #define os2DlCl
7930: 6f 73 65 20 30 0a 23 65 6e 64 69 66 0a 0a 0a 2f  ose 0.#endif.../
7940: 2a 0a 2a 2a 20 57 72 69 74 65 20 75 70 20 74 6f  *.** Write up to
7950: 20 6e 42 75 66 20 62 79 74 65 73 20 6f 66 20 72   nBuf bytes of r
7960: 61 6e 64 6f 6d 6e 65 73 73 20 69 6e 74 6f 20 7a  andomness into z
7970: 42 75 66 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  Buf..*/.static i
7980: 6e 74 20 6f 73 32 52 61 6e 64 6f 6d 6e 65 73 73  nt os2Randomness
7990: 28 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56  (sqlite3_vfs *pV
79a0: 66 73 2c 20 69 6e 74 20 6e 42 75 66 2c 20 63 68  fs, int nBuf, ch
79b0: 61 72 20 2a 7a 42 75 66 20 29 7b 0a 20 20 69 6e  ar *zBuf ){.  in
79c0: 74 20 6e 20 3d 20 30 3b 0a 23 69 66 20 64 65 66  t n = 0;.#if def
79d0: 69 6e 65 64 28 53 51 4c 49 54 45 5f 54 45 53 54  ined(SQLITE_TEST
79e0: 29 0a 20 20 6e 20 3d 20 6e 42 75 66 3b 0a 20 20  ).  n = nBuf;.  
79f0: 6d 65 6d 73 65 74 28 7a 42 75 66 2c 20 30 2c 20  memset(zBuf, 0, 
7a00: 6e 42 75 66 29 3b 0a 23 65 6c 73 65 0a 20 20 69  nBuf);.#else.  i
7a10: 6e 74 20 73 69 7a 65 6f 66 55 4c 6f 6e 67 20 3d  nt sizeofULong =
7a20: 20 73 69 7a 65 6f 66 28 55 4c 4f 4e 47 29 3b 0a   sizeof(ULONG);.
7a30: 20 20 69 66 28 20 28 69 6e 74 29 73 69 7a 65 6f    if( (int)sizeo
7a40: 66 28 44 41 54 45 54 49 4d 45 29 20 3c 3d 20 6e  f(DATETIME) <= n
7a50: 42 75 66 20 2d 20 6e 20 29 7b 0a 20 20 20 20 44  Buf - n ){.    D
7a60: 41 54 45 54 49 4d 45 20 78 3b 0a 20 20 20 20 44  ATETIME x;.    D
7a70: 6f 73 47 65 74 44 61 74 65 54 69 6d 65 28 26 78  osGetDateTime(&x
7a80: 29 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 26 7a  );.    memcpy(&z
7a90: 42 75 66 5b 6e 5d 2c 20 26 78 2c 20 73 69 7a 65  Buf[n], &x, size
7aa0: 6f 66 28 78 29 29 3b 0a 20 20 20 20 6e 20 2b 3d  of(x));.    n +=
7ab0: 20 73 69 7a 65 6f 66 28 78 29 3b 0a 20 20 7d 0a   sizeof(x);.  }.
7ac0: 0a 20 20 69 66 28 20 73 69 7a 65 6f 66 55 4c 6f  .  if( sizeofULo
7ad0: 6e 67 20 3c 3d 20 6e 42 75 66 20 2d 20 6e 20 29  ng <= nBuf - n )
7ae0: 7b 0a 20 20 20 20 50 50 49 42 20 70 70 69 62 3b  {.    PPIB ppib;
7af0: 0a 20 20 20 20 44 6f 73 47 65 74 49 6e 66 6f 42  .    DosGetInfoB
7b00: 6c 6f 63 6b 73 28 4e 55 4c 4c 2c 20 26 70 70 69  locks(NULL, &ppi
7b10: 62 29 3b 0a 20 20 20 20 6d 65 6d 63 70 79 28 26  b);.    memcpy(&
7b20: 7a 42 75 66 5b 6e 5d 2c 20 26 70 70 69 62 2d 3e  zBuf[n], &ppib->
7b30: 70 69 62 5f 75 6c 70 69 64 2c 20 73 69 7a 65 6f  pib_ulpid, sizeo
7b40: 66 55 4c 6f 6e 67 29 3b 0a 20 20 20 20 6e 20 2b  fULong);.    n +
7b50: 3d 20 73 69 7a 65 6f 66 55 4c 6f 6e 67 3b 0a 20  = sizeofULong;. 
7b60: 20 7d 0a 0a 20 20 69 66 28 20 73 69 7a 65 6f 66   }..  if( sizeof
7b70: 55 4c 6f 6e 67 20 3c 3d 20 6e 42 75 66 20 2d 20  ULong <= nBuf - 
7b80: 6e 20 29 7b 0a 20 20 20 20 50 54 49 42 20 70 74  n ){.    PTIB pt
7b90: 69 62 3b 0a 20 20 20 20 44 6f 73 47 65 74 49 6e  ib;.    DosGetIn
7ba0: 66 6f 42 6c 6f 63 6b 73 28 26 70 74 69 62 2c 20  foBlocks(&ptib, 
7bb0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 6d 65 6d 63 70  NULL);.    memcp
7bc0: 79 28 26 7a 42 75 66 5b 6e 5d 2c 20 26 70 74 69  y(&zBuf[n], &pti
7bd0: 62 2d 3e 74 69 62 5f 70 74 69 62 32 2d 3e 74 69  b->tib_ptib2->ti
7be0: 62 32 5f 75 6c 74 69 64 2c 20 73 69 7a 65 6f 66  b2_ultid, sizeof
7bf0: 55 4c 6f 6e 67 29 3b 0a 20 20 20 20 6e 20 2b 3d  ULong);.    n +=
7c00: 20 73 69 7a 65 6f 66 55 4c 6f 6e 67 3b 0a 20 20   sizeofULong;.  
7c10: 7d 0a 0a 20 20 2f 2a 20 69 66 20 77 65 20 73 74  }..  /* if we st
7c20: 69 6c 6c 20 68 61 76 65 6e 27 74 20 66 69 6c 6c  ill haven't fill
7c30: 65 64 20 74 68 65 20 62 75 66 66 65 72 20 79 65  ed the buffer ye
7c40: 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  t the following 
7c50: 77 69 6c 6c 20 2a 2f 0a 20 20 2f 2a 20 67 72 61  will */.  /* gra
7c60: 62 20 65 76 65 72 79 74 68 69 6e 67 20 6f 6e 63  b everything onc
7c70: 65 20 69 6e 73 74 65 61 64 20 6f 66 20 6d 61 6b  e instead of mak
7c80: 69 6e 67 20 73 65 76 65 72 61 6c 20 63 61 6c 6c  ing several call
7c90: 73 20 66 6f 72 20 61 20 73 69 6e 67 6c 65 20 69  s for a single i
7ca0: 74 65 6d 20 2a 2f 0a 20 20 69 66 28 20 73 69 7a  tem */.  if( siz
7cb0: 65 6f 66 55 4c 6f 6e 67 20 3c 3d 20 6e 42 75 66  eofULong <= nBuf
7cc0: 20 2d 20 6e 20 29 7b 0a 20 20 20 20 55 4c 4f 4e   - n ){.    ULON
7cd0: 47 20 75 6c 53 79 73 49 6e 66 6f 5b 51 53 56 5f  G ulSysInfo[QSV_
7ce0: 4d 41 58 5d 3b 0a 20 20 20 20 44 6f 73 51 75 65  MAX];.    DosQue
7cf0: 72 79 53 79 73 49 6e 66 6f 28 31 4c 2c 20 51 53  rySysInfo(1L, QS
7d00: 56 5f 4d 41 58 2c 20 75 6c 53 79 73 49 6e 66 6f  V_MAX, ulSysInfo
7d10: 2c 20 73 69 7a 65 6f 66 55 4c 6f 6e 67 20 2a 20  , sizeofULong * 
7d20: 51 53 56 5f 4d 41 58 29 3b 0a 0a 20 20 20 20 6d  QSV_MAX);..    m
7d30: 65 6d 63 70 79 28 26 7a 42 75 66 5b 6e 5d 2c 20  emcpy(&zBuf[n], 
7d40: 26 75 6c 53 79 73 49 6e 66 6f 5b 51 53 56 5f 4d  &ulSysInfo[QSV_M
7d50: 53 5f 43 4f 55 4e 54 20 2d 20 31 5d 2c 20 73 69  S_COUNT - 1], si
7d60: 7a 65 6f 66 55 4c 6f 6e 67 29 3b 0a 20 20 20 20  zeofULong);.    
7d70: 6e 20 2b 3d 20 73 69 7a 65 6f 66 55 4c 6f 6e 67  n += sizeofULong
7d80: 3b 0a 0a 20 20 20 20 69 66 28 20 73 69 7a 65 6f  ;..    if( sizeo
7d90: 66 55 4c 6f 6e 67 20 3c 3d 20 6e 42 75 66 20 2d  fULong <= nBuf -
7da0: 20 6e 20 29 7b 0a 20 20 20 20 20 20 6d 65 6d 63   n ){.      memc
7db0: 70 79 28 26 7a 42 75 66 5b 6e 5d 2c 20 26 75 6c  py(&zBuf[n], &ul
7dc0: 53 79 73 49 6e 66 6f 5b 51 53 56 5f 54 49 4d 45  SysInfo[QSV_TIME
7dd0: 52 5f 49 4e 54 45 52 56 41 4c 20 2d 20 31 5d 2c  R_INTERVAL - 1],
7de0: 20 73 69 7a 65 6f 66 55 4c 6f 6e 67 29 3b 0a 20   sizeofULong);. 
7df0: 20 20 20 20 20 6e 20 2b 3d 20 73 69 7a 65 6f 66       n += sizeof
7e00: 55 4c 6f 6e 67 3b 0a 20 20 20 20 7d 0a 20 20 20  ULong;.    }.   
7e10: 20 69 66 28 20 73 69 7a 65 6f 66 55 4c 6f 6e 67   if( sizeofULong
7e20: 20 3c 3d 20 6e 42 75 66 20 2d 20 6e 20 29 7b 0a   <= nBuf - n ){.
7e30: 20 20 20 20 20 20 6d 65 6d 63 70 79 28 26 7a 42        memcpy(&zB
7e40: 75 66 5b 6e 5d 2c 20 26 75 6c 53 79 73 49 6e 66  uf[n], &ulSysInf
7e50: 6f 5b 51 53 56 5f 54 49 4d 45 5f 4c 4f 57 20 2d  o[QSV_TIME_LOW -
7e60: 20 31 5d 2c 20 73 69 7a 65 6f 66 55 4c 6f 6e 67   1], sizeofULong
7e70: 29 3b 0a 20 20 20 20 20 20 6e 20 2b 3d 20 73 69  );.      n += si
7e80: 7a 65 6f 66 55 4c 6f 6e 67 3b 0a 20 20 20 20 7d  zeofULong;.    }
7e90: 0a 20 20 20 20 69 66 28 20 73 69 7a 65 6f 66 55  .    if( sizeofU
7ea0: 4c 6f 6e 67 20 3c 3d 20 6e 42 75 66 20 2d 20 6e  Long <= nBuf - n
7eb0: 20 29 7b 0a 20 20 20 20 20 20 6d 65 6d 63 70 79   ){.      memcpy
7ec0: 28 26 7a 42 75 66 5b 6e 5d 2c 20 26 75 6c 53 79  (&zBuf[n], &ulSy
7ed0: 73 49 6e 66 6f 5b 51 53 56 5f 54 49 4d 45 5f 48  sInfo[QSV_TIME_H
7ee0: 49 47 48 20 2d 20 31 5d 2c 20 73 69 7a 65 6f 66  IGH - 1], sizeof
7ef0: 55 4c 6f 6e 67 29 3b 0a 20 20 20 20 20 20 6e 20  ULong);.      n 
7f00: 2b 3d 20 73 69 7a 65 6f 66 55 4c 6f 6e 67 3b 0a  += sizeofULong;.
7f10: 20 20 20 20 7d 0a 20 20 20 20 69 66 28 20 73 69      }.    if( si
7f20: 7a 65 6f 66 55 4c 6f 6e 67 20 3c 3d 20 6e 42 75  zeofULong <= nBu
7f30: 66 20 2d 20 6e 20 29 7b 0a 20 20 20 20 20 20 6d  f - n ){.      m
7f40: 65 6d 63 70 79 28 26 7a 42 75 66 5b 6e 5d 2c 20  emcpy(&zBuf[n], 
7f50: 26 75 6c 53 79 73 49 6e 66 6f 5b 51 53 56 5f 54  &ulSysInfo[QSV_T
7f60: 4f 54 41 56 41 49 4c 4d 45 4d 20 2d 20 31 5d 2c  OTAVAILMEM - 1],
7f70: 20 73 69 7a 65 6f 66 55 4c 6f 6e 67 29 3b 0a 20   sizeofULong);. 
7f80: 20 20 20 20 20 6e 20 2b 3d 20 73 69 7a 65 6f 66       n += sizeof
7f90: 55 4c 6f 6e 67 3b 0a 20 20 20 20 7d 0a 20 20 7d  ULong;.    }.  }
7fa0: 0a 23 65 6e 64 69 66 0a 0a 20 20 72 65 74 75 72  .#endif..  retur
7fb0: 6e 20 6e 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 6c  n n;.}../*.** Sl
7fc0: 65 65 70 20 66 6f 72 20 61 20 6c 69 74 74 6c 65  eep for a little
7fd0: 20 77 68 69 6c 65 2e 20 20 52 65 74 75 72 6e 20   while.  Return 
7fe0: 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 74 69  the amount of ti
7ff0: 6d 65 20 73 6c 65 70 74 2e 0a 2a 2a 20 54 68 65  me slept..** The
8000: 20 61 72 67 75 6d 65 6e 74 20 69 73 20 74 68 65   argument is the
8010: 20 6e 75 6d 62 65 72 20 6f 66 20 6d 69 63 72 6f   number of micro
8020: 73 65 63 6f 6e 64 73 20 77 65 20 77 61 6e 74 20  seconds we want 
8030: 74 6f 20 73 6c 65 65 70 2e 0a 2a 2a 20 54 68 65  to sleep..** The
8040: 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73   return value is
8050: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 6d   the number of m
8060: 69 63 72 6f 73 65 63 6f 6e 64 73 20 6f 66 20 73  icroseconds of s
8070: 6c 65 65 70 20 61 63 74 75 61 6c 6c 79 0a 2a 2a  leep actually.**
8080: 20 72 65 71 75 65 73 74 65 64 20 66 72 6f 6d 20   requested from 
8090: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 6f  the underlying o
80a0: 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 2c  perating system,
80b0: 20 61 20 6e 75 6d 62 65 72 20 77 68 69 63 68 0a   a number which.
80c0: 2a 2a 20 6d 69 67 68 74 20 62 65 20 67 72 65 61  ** might be grea
80d0: 74 65 72 20 74 68 61 6e 20 6f 72 20 65 71 75 61  ter than or equa
80e0: 6c 20 74 6f 20 74 68 65 20 61 72 67 75 6d 65 6e  l to the argumen
80f0: 74 2c 20 62 75 74 20 6e 6f 74 20 6c 65 73 73 0a  t, but not less.
8100: 2a 2a 20 74 68 61 6e 20 74 68 65 20 61 72 67 75  ** than the argu
8110: 6d 65 6e 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  ment..*/.static 
8120: 69 6e 74 20 6f 73 32 53 6c 65 65 70 28 20 73 71  int os2Sleep( sq
8130: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
8140: 20 69 6e 74 20 6d 69 63 72 6f 73 65 63 20 29 7b   int microsec ){
8150: 0a 20 20 44 6f 73 53 6c 65 65 70 28 20 28 6d 69  .  DosSleep( (mi
8160: 63 72 6f 73 65 63 2f 31 30 30 30 29 20 29 3b 0a  crosec/1000) );.
8170: 20 20 72 65 74 75 72 6e 20 6d 69 63 72 6f 73 65    return microse
8180: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20  c;.}../*.** The 
8190: 66 6f 6c 6c 6f 77 69 6e 67 20 76 61 72 69 61 62  following variab
81a0: 6c 65 2c 20 69 66 20 73 65 74 20 74 6f 20 61 20  le, if set to a 
81b0: 6e 6f 6e 2d 7a 65 72 6f 20 76 61 6c 75 65 2c 20  non-zero value, 
81c0: 62 65 63 6f 6d 65 73 20 74 68 65 20 72 65 73 75  becomes the resu
81d0: 6c 74 0a 2a 2a 20 72 65 74 75 72 6e 65 64 20 66  lt.** returned f
81e0: 72 6f 6d 20 73 71 6c 69 74 65 33 4f 73 43 75 72  rom sqlite3OsCur
81f0: 72 65 6e 74 54 69 6d 65 28 29 2e 20 20 54 68 69  rentTime().  Thi
8200: 73 20 69 73 20 75 73 65 64 20 66 6f 72 20 74 65  s is used for te
8210: 73 74 69 6e 67 2e 0a 2a 2f 0a 23 69 66 64 65 66  sting..*/.#ifdef
8220: 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 69 6e 74   SQLITE_TEST.int
8230: 20 73 71 6c 69 74 65 33 5f 63 75 72 72 65 6e 74   sqlite3_current
8240: 5f 74 69 6d 65 20 3d 20 30 3b 0a 23 65 6e 64 69  _time = 0;.#endi
8250: 66 0a 0a 2f 2a 0a 2a 2a 20 46 69 6e 64 20 74 68  f../*.** Find th
8260: 65 20 63 75 72 72 65 6e 74 20 74 69 6d 65 20 28  e current time (
8270: 69 6e 20 55 6e 69 76 65 72 73 61 6c 20 43 6f 6f  in Universal Coo
8280: 72 64 69 6e 61 74 65 64 20 54 69 6d 65 29 2e 20  rdinated Time). 
8290: 20 57 72 69 74 65 20 74 68 65 0a 2a 2a 20 63 75   Write the.** cu
82a0: 72 72 65 6e 74 20 74 69 6d 65 20 61 6e 64 20 64  rrent time and d
82b0: 61 74 65 20 61 73 20 61 20 4a 75 6c 69 61 6e 20  ate as a Julian 
82c0: 44 61 79 20 6e 75 6d 62 65 72 20 69 6e 74 6f 20  Day number into 
82d0: 2a 70 72 4e 6f 77 20 61 6e 64 0a 2a 2a 20 72 65  *prNow and.** re
82e0: 74 75 72 6e 20 30 2e 20 20 52 65 74 75 72 6e 20  turn 0.  Return 
82f0: 31 20 69 66 20 74 68 65 20 74 69 6d 65 20 61 6e  1 if the time an
8300: 64 20 64 61 74 65 20 63 61 6e 6e 6f 74 20 62 65  d date cannot be
8310: 20 66 6f 75 6e 64 2e 0a 2a 2f 0a 69 6e 74 20 6f   found..*/.int o
8320: 73 32 43 75 72 72 65 6e 74 54 69 6d 65 28 20 73  s2CurrentTime( s
8330: 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73  qlite3_vfs *pVfs
8340: 2c 20 64 6f 75 62 6c 65 20 2a 70 72 4e 6f 77 20  , double *prNow 
8350: 29 7b 0a 20 20 64 6f 75 62 6c 65 20 6e 6f 77 3b  ){.  double now;
8360: 0a 20 20 53 48 4f 52 54 20 6d 69 6e 75 74 65 3b  .  SHORT minute;
8370: 20 2f 2a 20 6e 65 65 64 73 20 74 6f 20 62 65 20   /* needs to be 
8380: 61 62 6c 65 20 74 6f 20 63 6f 70 65 20 77 69 74  able to cope wit
8390: 68 20 6e 65 67 61 74 69 76 65 20 74 69 6d 65 7a  h negative timez
83a0: 6f 6e 65 20 6f 66 66 73 65 74 20 2a 2f 0a 20 20  one offset */.  
83b0: 55 53 48 4f 52 54 20 73 65 63 6f 6e 64 2c 20 68  USHORT second, h
83c0: 6f 75 72 2c 0a 20 20 20 20 20 20 20 20 20 64 61  our,.         da
83d0: 79 2c 20 6d 6f 6e 74 68 2c 20 79 65 61 72 3b 0a  y, month, year;.
83e0: 20 20 44 41 54 45 54 49 4d 45 20 64 74 3b 0a 20    DATETIME dt;. 
83f0: 20 44 6f 73 47 65 74 44 61 74 65 54 69 6d 65 28   DosGetDateTime(
8400: 20 26 64 74 20 29 3b 0a 20 20 73 65 63 6f 6e 64   &dt );.  second
8410: 20 3d 20 28 55 53 48 4f 52 54 29 64 74 2e 73 65   = (USHORT)dt.se
8420: 63 6f 6e 64 73 3b 0a 20 20 6d 69 6e 75 74 65 20  conds;.  minute 
8430: 3d 20 28 53 48 4f 52 54 29 64 74 2e 6d 69 6e 75  = (SHORT)dt.minu
8440: 74 65 73 20 2b 20 64 74 2e 74 69 6d 65 7a 6f 6e  tes + dt.timezon
8450: 65 3b 0a 20 20 68 6f 75 72 20 3d 20 28 55 53 48  e;.  hour = (USH
8460: 4f 52 54 29 64 74 2e 68 6f 75 72 73 3b 0a 20 20  ORT)dt.hours;.  
8470: 64 61 79 20 3d 20 28 55 53 48 4f 52 54 29 64 74  day = (USHORT)dt
8480: 2e 64 61 79 3b 0a 20 20 6d 6f 6e 74 68 20 3d 20  .day;.  month = 
8490: 28 55 53 48 4f 52 54 29 64 74 2e 6d 6f 6e 74 68  (USHORT)dt.month
84a0: 3b 0a 20 20 79 65 61 72 20 3d 20 28 55 53 48 4f  ;.  year = (USHO
84b0: 52 54 29 64 74 2e 79 65 61 72 3b 0a 0a 20 20 2f  RT)dt.year;..  /
84c0: 2a 20 43 61 6c 63 75 6c 61 74 69 6f 6e 73 20 66  * Calculations f
84d0: 72 6f 6d 20 68 74 74 70 3a 2f 2f 77 77 77 2e 61  rom http://www.a
84e0: 73 74 72 6f 2e 6b 65 65 6c 65 2e 61 63 2e 75 6b  stro.keele.ac.uk
84f0: 2f 7e 72 6e 6f 2f 41 73 74 72 6f 6e 6f 6d 79 2f  /~rno/Astronomy/
8500: 68 6a 64 2e 68 74 6d 6c 0a 20 20 20 20 20 68 74  hjd.html.     ht
8510: 74 70 3a 2f 2f 77 77 77 2e 61 73 74 72 6f 2e 6b  tp://www.astro.k
8520: 65 65 6c 65 2e 61 63 2e 75 6b 2f 7e 72 6e 6f 2f  eele.ac.uk/~rno/
8530: 41 73 74 72 6f 6e 6f 6d 79 2f 68 6a 64 2d 30 2e  Astronomy/hjd-0.
8540: 31 2e 63 20 2a 2f 0a 20 20 2f 2a 20 43 61 6c 63  1.c */.  /* Calc
8550: 75 6c 61 74 65 20 74 68 65 20 4a 75 6c 69 61 6e  ulate the Julian
8560: 20 64 61 79 73 20 2a 2f 0a 20 20 6e 6f 77 20 3d   days */.  now =
8570: 20 64 61 79 20 2d 20 33 32 30 37 36 20 2b 0a 20   day - 32076 +. 
8580: 20 20 20 31 34 36 31 2a 28 79 65 61 72 20 2b 20     1461*(year + 
8590: 34 38 30 30 20 2b 20 28 6d 6f 6e 74 68 20 2d 20  4800 + (month - 
85a0: 31 34 29 2f 31 32 29 2f 34 20 2b 0a 20 20 20 20  14)/12)/4 +.    
85b0: 33 36 37 2a 28 6d 6f 6e 74 68 20 2d 20 32 20 2d  367*(month - 2 -
85c0: 20 28 6d 6f 6e 74 68 20 2d 20 31 34 29 2f 31 32   (month - 14)/12
85d0: 2a 31 32 29 2f 31 32 20 2d 0a 20 20 20 20 33 2a  *12)/12 -.    3*
85e0: 28 28 79 65 61 72 20 2b 20 34 39 30 30 20 2b 20  ((year + 4900 + 
85f0: 28 6d 6f 6e 74 68 20 2d 20 31 34 29 2f 31 32 29  (month - 14)/12)
8600: 2f 31 30 30 29 2f 34 3b 0a 0a 20 20 2f 2a 20 41  /100)/4;..  /* A
8610: 64 64 20 74 68 65 20 66 72 61 63 74 69 6f 6e 61  dd the fractiona
8620: 6c 20 68 6f 75 72 73 2c 20 6d 69 6e 73 20 61 6e  l hours, mins an
8630: 64 20 73 65 63 6f 6e 64 73 20 2a 2f 0a 20 20 6e  d seconds */.  n
8640: 6f 77 20 2b 3d 20 28 68 6f 75 72 20 2b 20 31 32  ow += (hour + 12
8650: 2e 30 29 2f 32 34 2e 30 3b 0a 20 20 6e 6f 77 20  .0)/24.0;.  now 
8660: 2b 3d 20 6d 69 6e 75 74 65 2f 31 34 34 30 2e 30  += minute/1440.0
8670: 3b 0a 20 20 6e 6f 77 20 2b 3d 20 73 65 63 6f 6e  ;.  now += secon
8680: 64 2f 38 36 34 30 30 2e 30 3b 0a 20 20 2a 70 72  d/86400.0;.  *pr
8690: 4e 6f 77 20 3d 20 6e 6f 77 3b 0a 23 69 66 64 65  Now = now;.#ifde
86a0: 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 20 20  f SQLITE_TEST.  
86b0: 69 66 28 20 73 71 6c 69 74 65 33 5f 63 75 72 72  if( sqlite3_curr
86c0: 65 6e 74 5f 74 69 6d 65 20 29 7b 0a 20 20 20 20  ent_time ){.    
86d0: 2a 70 72 4e 6f 77 20 3d 20 73 71 6c 69 74 65 33  *prNow = sqlite3
86e0: 5f 63 75 72 72 65 6e 74 5f 74 69 6d 65 2f 38 36  _current_time/86
86f0: 34 30 30 2e 30 20 2b 20 32 34 34 30 35 38 37 2e  400.0 + 2440587.
8700: 35 3b 0a 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20  5;.  }.#endif.  
8710: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 73 74 61  return 0;.}..sta
8720: 74 69 63 20 69 6e 74 20 6f 73 32 47 65 74 4c 61  tic int os2GetLa
8730: 73 74 45 72 72 6f 72 28 73 71 6c 69 74 65 33 5f  stError(sqlite3_
8740: 76 66 73 20 2a 70 56 66 73 2c 20 69 6e 74 20 6e  vfs *pVfs, int n
8750: 42 75 66 2c 20 63 68 61 72 20 2a 7a 42 75 66 29  Buf, char *zBuf)
8760: 7b 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a  {.  return 0;.}.
8770: 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 61 6c 69 7a  ./*.** Initializ
8780: 65 20 61 6e 64 20 64 65 69 6e 69 74 69 61 6c 69  e and deinitiali
8790: 7a 65 20 74 68 65 20 6f 70 65 72 61 74 69 6e 67  ze the operating
87a0: 20 73 79 73 74 65 6d 20 69 6e 74 65 72 66 61 63   system interfac
87b0: 65 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65  e..*/.int sqlite
87c0: 33 5f 6f 73 5f 69 6e 69 74 28 76 6f 69 64 29 7b  3_os_init(void){
87d0: 0a 20 20 73 74 61 74 69 63 20 73 71 6c 69 74 65  .  static sqlite
87e0: 33 5f 76 66 73 20 6f 73 32 56 66 73 20 3d 20 7b  3_vfs os2Vfs = {
87f0: 0a 20 20 20 20 31 2c 20 20 20 20 20 20 20 20 20  .    1,         
8800: 20 20 20 20 20 20 20 20 2f 2a 20 69 56 65 72 73          /* iVers
8810: 69 6f 6e 20 2a 2f 0a 20 20 20 20 73 69 7a 65 6f  ion */.    sizeo
8820: 66 28 6f 73 32 46 69 6c 65 29 2c 20 20 20 2f 2a  f(os2File),   /*
8830: 20 73 7a 4f 73 46 69 6c 65 20 2a 2f 0a 20 20 20   szOsFile */.   
8840: 20 43 43 48 4d 41 58 50 41 54 48 2c 20 20 20 20   CCHMAXPATH,    
8850: 20 20 20 20 2f 2a 20 6d 78 50 61 74 68 6e 61 6d      /* mxPathnam
8860: 65 20 2a 2f 0a 20 20 20 20 30 2c 20 20 20 20 20  e */.    0,     
8870: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 70              /* p
8880: 4e 65 78 74 20 2a 2f 0a 20 20 20 20 22 6f 73 32  Next */.    "os2
8890: 22 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ",             /
88a0: 2a 20 7a 4e 61 6d 65 20 2a 2f 0a 20 20 20 20 30  * zName */.    0
88b0: 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,               
88c0: 20 20 2f 2a 20 70 41 70 70 44 61 74 61 20 2a 2f    /* pAppData */
88d0: 0a 0a 20 20 20 20 6f 73 32 4f 70 65 6e 2c 20 20  ..    os2Open,  
88e0: 20 20 20 20 20 20 20 20 20 2f 2a 20 78 4f 70 65           /* xOpe
88f0: 6e 20 2a 2f 0a 20 20 20 20 6f 73 32 44 65 6c 65  n */.    os2Dele
8900: 74 65 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 78  te,         /* x
8910: 44 65 6c 65 74 65 20 2a 2f 0a 20 20 20 20 6f 73  Delete */.    os
8920: 32 41 63 63 65 73 73 2c 20 20 20 20 20 20 20 20  2Access,        
8930: 20 2f 2a 20 78 41 63 63 65 73 73 20 2a 2f 0a 20   /* xAccess */. 
8940: 20 20 20 6f 73 32 46 75 6c 6c 50 61 74 68 6e 61     os2FullPathna
8950: 6d 65 2c 20 20 20 2f 2a 20 78 46 75 6c 6c 50 61  me,   /* xFullPa
8960: 74 68 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 6f 73  thname */.    os
8970: 32 44 6c 4f 70 65 6e 2c 20 20 20 20 20 20 20 20  2DlOpen,        
8980: 20 2f 2a 20 78 44 6c 4f 70 65 6e 20 2a 2f 0a 20   /* xDlOpen */. 
8990: 20 20 20 6f 73 32 44 6c 45 72 72 6f 72 2c 20 20     os2DlError,  
89a0: 20 20 20 20 20 20 2f 2a 20 78 44 6c 45 72 72 6f        /* xDlErro
89b0: 72 20 2a 2f 0a 20 20 20 20 6f 73 32 44 6c 53 79  r */.    os2DlSy
89c0: 6d 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 78  m,          /* x
89d0: 44 6c 53 79 6d 20 2a 2f 0a 20 20 20 20 6f 73 32  DlSym */.    os2
89e0: 44 6c 43 6c 6f 73 65 2c 20 20 20 20 20 20 20 20  DlClose,        
89f0: 2f 2a 20 78 44 6c 43 6c 6f 73 65 20 2a 2f 0a 20  /* xDlClose */. 
8a00: 20 20 20 6f 73 32 52 61 6e 64 6f 6d 6e 65 73 73     os2Randomness
8a10: 2c 20 20 20 20 20 2f 2a 20 78 52 61 6e 64 6f 6d  ,     /* xRandom
8a20: 6e 65 73 73 20 2a 2f 0a 20 20 20 20 6f 73 32 53  ness */.    os2S
8a30: 6c 65 65 70 2c 20 20 20 20 20 20 20 20 20 20 2f  leep,          /
8a40: 2a 20 78 53 6c 65 65 70 20 2a 2f 0a 20 20 20 20  * xSleep */.    
8a50: 6f 73 32 43 75 72 72 65 6e 74 54 69 6d 65 2c 20  os2CurrentTime, 
8a60: 20 20 20 2f 2a 20 78 43 75 72 72 65 6e 74 54 69     /* xCurrentTi
8a70: 6d 65 20 2a 2f 0a 20 20 20 20 6f 73 32 47 65 74  me */.    os2Get
8a80: 4c 61 73 74 45 72 72 6f 72 2c 20 20 20 2f 2a 20  LastError,   /* 
8a90: 78 47 65 74 4c 61 73 74 45 72 72 6f 72 20 2a 2f  xGetLastError */
8aa0: 0a 20 20 7d 3b 0a 20 20 73 71 6c 69 74 65 33 5f  .  };.  sqlite3_
8ab0: 76 66 73 5f 72 65 67 69 73 74 65 72 28 26 6f 73  vfs_register(&os
8ac0: 32 56 66 73 2c 20 31 29 3b 0a 20 20 69 6e 69 74  2Vfs, 1);.  init
8ad0: 55 63 6f 6e 76 4f 62 6a 65 63 74 73 28 29 3b 0a  UconvObjects();.
8ae0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
8af0: 4f 4b 3b 0a 7d 0a 69 6e 74 20 73 71 6c 69 74 65  OK;.}.int sqlite
8b00: 33 5f 6f 73 5f 65 6e 64 28 76 6f 69 64 29 7b 0a  3_os_end(void){.
8b10: 20 20 66 72 65 65 55 63 6f 6e 76 4f 62 6a 65 63    freeUconvObjec
8b20: 74 73 28 29 3b 0a 20 20 72 65 74 75 72 6e 20 53  ts();.  return S
8b30: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 23 65 6e  QLITE_OK;.}..#en
8b40: 64 69 66 20 2f 2a 20 53 51 4c 49 54 45 5f 4f 53  dif /* SQLITE_OS
8b50: 5f 4f 53 32 20 2a 2f 0a                          _OS2 */.