/ Hex Artifact Content
Login

Artifact 0af3e1e9a1f22bc5f431dd3efcc32762f4109f58:


0000: 2f 2a 0a 2a 2a 20 32 30 31 30 20 53 65 70 74 65  /*.** 2010 Septe
0010: 6d 62 65 72 20 33 31 0a 2a 2a 0a 2a 2a 20 54 68  mber 31.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69  e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20  ms copyright to 
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65  this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a  .  In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65  * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73  , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d  sing:.**.**    M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20  nd not evil..** 
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20  give others..** 
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a  you give..**.***
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 2a 0a 2a 2a 0a 2a 2a 20 54 68 69  ******.**.** Thi
0180: 73 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20  s file contains 
0190: 61 20 56 46 53 20 22 73 68 69 6d 22 20 2d 20 61  a VFS "shim" - a
01a0: 20 6c 61 79 65 72 20 74 68 61 74 20 73 69 74 73   layer that sits
01b0: 20 69 6e 20 62 65 74 77 65 65 6e 20 74 68 65 0a   in between the.
01c0: 2a 2a 20 70 61 67 65 72 20 61 6e 64 20 74 68 65  ** pager and the
01d0: 20 72 65 61 6c 20 56 46 53 2e 0a 2a 2a 0a 2a 2a   real VFS..**.**
01e0: 20 54 68 69 73 20 70 61 72 74 69 63 75 6c 61 72   This particular
01f0: 20 73 68 69 6d 20 65 6e 66 6f 72 63 65 73 20 61   shim enforces a
0200: 20 71 75 6f 74 61 20 73 79 73 74 65 6d 20 6f 6e   quota system on
0210: 20 66 69 6c 65 73 2e 20 20 4f 6e 65 20 6f 72 20   files.  One or 
0220: 6d 6f 72 65 0a 2a 2a 20 64 61 74 61 62 61 73 65  more.** database
0230: 20 66 69 6c 65 73 20 61 72 65 20 69 6e 20 61 20   files are in a 
0240: 22 71 75 6f 74 61 20 67 72 6f 75 70 22 20 74 68  "quota group" th
0250: 61 74 20 69 73 20 64 65 66 69 6e 65 64 20 62 79  at is defined by
0260: 20 61 20 47 4c 4f 42 0a 2a 2a 20 70 61 74 74 65   a GLOB.** patte
0270: 72 6e 2e 20 20 41 20 71 75 6f 74 61 20 69 73 20  rn.  A quota is 
0280: 73 65 74 20 66 6f 72 20 74 68 65 20 63 6f 6d 62  set for the comb
0290: 69 6e 65 64 20 73 69 7a 65 20 6f 66 20 61 6c 6c  ined size of all
02a0: 20 66 69 6c 65 73 20 69 6e 20 74 68 65 0a 2a 2a   files in the.**
02b0: 20 74 68 65 20 67 72 6f 75 70 2e 20 20 41 20 71   the group.  A q
02c0: 75 6f 74 61 20 6f 66 20 7a 65 72 6f 20 6d 65 61  uota of zero mea
02d0: 6e 73 20 22 6e 6f 20 6c 69 6d 69 74 22 2e 20 20  ns "no limit".  
02e0: 49 66 20 74 68 65 20 74 6f 74 61 6c 20 73 69 7a  If the total siz
02f0: 65 0a 2a 2a 20 6f 66 20 61 6c 6c 20 66 69 6c 65  e.** of all file
0300: 73 20 69 6e 20 74 68 65 20 71 75 6f 74 61 20 67  s in the quota g
0310: 72 6f 75 70 20 69 73 20 67 72 65 61 74 65 72 20  roup is greater 
0320: 74 68 61 6e 20 74 68 65 20 6c 69 6d 69 74 2c 20  than the limit, 
0330: 74 68 65 6e 0a 2a 2a 20 77 72 69 74 65 20 72 65  then.** write re
0340: 71 75 65 73 74 73 20 74 68 61 74 20 61 74 74 65  quests that atte
0350: 6d 70 74 20 74 6f 20 65 6e 6c 61 72 67 65 20 61  mpt to enlarge a
0360: 20 66 69 6c 65 20 66 61 69 6c 20 77 69 74 68 20   file fail with 
0370: 53 51 4c 49 54 45 5f 46 55 4c 4c 2e 0a 2a 2a 0a  SQLITE_FULL..**.
0380: 2a 2a 20 48 6f 77 65 76 65 72 2c 20 62 65 66 6f  ** However, befo
0390: 72 65 20 72 65 74 75 72 6e 69 6e 67 20 53 51 4c  re returning SQL
03a0: 49 54 45 5f 46 55 4c 4c 2c 20 74 68 65 20 77 72  ITE_FULL, the wr
03b0: 69 74 65 20 72 65 71 75 65 73 74 73 20 69 6e 76  ite requests inv
03c0: 6f 6b 65 0a 2a 2a 20 61 20 63 61 6c 6c 62 61 63  oke.** a callbac
03d0: 6b 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20  k function that 
03e0: 69 73 20 63 6f 6e 66 69 67 75 72 61 62 6c 65 20  is configurable 
03f0: 66 6f 72 20 65 61 63 68 20 71 75 6f 74 61 20 67  for each quota g
0400: 72 6f 75 70 2e 0a 2a 2a 20 54 68 69 73 20 63 61  roup..** This ca
0410: 6c 6c 62 61 63 6b 20 68 61 73 20 74 68 65 20 6f  llback has the o
0420: 70 70 6f 72 74 75 6e 69 74 79 20 74 6f 20 65 6e  pportunity to en
0430: 6c 61 72 67 65 20 74 68 65 20 71 75 6f 74 61 2e  large the quota.
0440: 20 20 49 66 20 74 68 65 0a 2a 2a 20 63 61 6c 6c    If the.** call
0450: 62 61 63 6b 20 64 6f 65 73 20 65 6e 6c 61 72 67  back does enlarg
0460: 65 20 74 68 65 20 71 75 6f 74 61 20 73 75 63 68  e the quota such
0470: 20 74 68 61 74 20 74 68 65 20 74 6f 74 61 6c 20   that the total 
0480: 73 69 7a 65 20 6f 66 20 61 6c 6c 0a 2a 2a 20 66  size of all.** f
0490: 69 6c 65 73 20 77 69 74 68 69 6e 20 74 68 65 20  iles within the 
04a0: 67 72 6f 75 70 20 69 73 20 6c 65 73 73 20 74 68  group is less th
04b0: 61 6e 20 74 68 65 20 6e 65 77 20 71 75 6f 74 61  an the new quota
04c0: 2c 20 74 68 65 6e 20 74 68 65 20 77 72 69 74 65  , then the write
04d0: 0a 2a 2a 20 63 6f 6e 74 69 6e 75 65 73 20 61 73  .** continues as
04e0: 20 69 66 20 6e 6f 74 68 69 6e 67 20 68 61 64 20   if nothing had 
04f0: 68 61 70 70 65 6e 65 64 2e 0a 2a 2f 0a 23 69 6e  happened..*/.#in
0500: 63 6c 75 64 65 20 22 74 65 73 74 5f 71 75 6f 74  clude "test_quot
0510: 61 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73  a.h".#include <s
0520: 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64  tring.h>.#includ
0530: 65 20 3c 61 73 73 65 72 74 2e 68 3e 0a 0a 2f 2a  e <assert.h>../*
0540: 0a 2a 2a 20 46 6f 72 20 61 6e 20 62 75 69 6c 64  .** For an build
0550: 20 77 69 74 68 6f 75 74 20 6d 75 74 65 78 65 73   without mutexes
0560: 2c 20 6e 6f 2d 6f 70 20 74 68 65 20 6d 75 74 65  , no-op the mute
0570: 78 20 63 61 6c 6c 73 2e 0a 2a 2f 0a 23 69 66 20  x calls..*/.#if 
0580: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 54  defined(SQLITE_T
0590: 48 52 45 41 44 53 41 46 45 29 20 26 26 20 53 51  HREADSAFE) && SQ
05a0: 4c 49 54 45 5f 54 48 52 45 41 44 53 41 46 45 3d  LITE_THREADSAFE=
05b0: 3d 30 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74  =0.#define sqlit
05c0: 65 33 5f 6d 75 74 65 78 5f 61 6c 6c 6f 63 28 58  e3_mutex_alloc(X
05d0: 29 20 20 20 20 28 28 73 71 6c 69 74 65 33 5f 6d  )    ((sqlite3_m
05e0: 75 74 65 78 2a 29 38 29 0a 23 64 65 66 69 6e 65  utex*)8).#define
05f0: 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 66   sqlite3_mutex_f
0600: 72 65 65 28 58 29 0a 23 64 65 66 69 6e 65 20 73  ree(X).#define s
0610: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74  qlite3_mutex_ent
0620: 65 72 28 58 29 0a 23 64 65 66 69 6e 65 20 73 71  er(X).#define sq
0630: 6c 69 74 65 33 5f 6d 75 74 65 78 5f 74 72 79 28  lite3_mutex_try(
0640: 58 29 20 20 20 20 20 20 53 51 4c 49 54 45 5f 4f  X)      SQLITE_O
0650: 4b 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74 65  K.#define sqlite
0660: 33 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 58 29  3_mutex_leave(X)
0670: 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74 65 33  .#define sqlite3
0680: 5f 6d 75 74 65 78 5f 68 65 6c 64 28 58 29 20 20  _mutex_held(X)  
0690: 20 20 20 28 28 76 6f 69 64 29 28 58 29 2c 31 29     ((void)(X),1)
06a0: 0a 23 64 65 66 69 6e 65 20 73 71 6c 69 74 65 33  .#define sqlite3
06b0: 5f 6d 75 74 65 78 5f 6e 6f 74 68 65 6c 64 28 58  _mutex_notheld(X
06c0: 29 20 20 28 28 76 6f 69 64 29 28 58 29 2c 31 29  )  ((void)(X),1)
06d0: 0a 23 65 6e 64 69 66 20 2f 2a 20 53 51 4c 49 54  .#endif /* SQLIT
06e0: 45 5f 54 48 52 45 41 44 53 41 46 45 3d 3d 30 20  E_THREADSAFE==0 
06f0: 2a 2f 0a 0a 0a 2f 2a 0a 2a 2a 20 46 69 67 75 72  */.../*.** Figur
0700: 65 20 6f 75 74 20 69 66 20 77 65 20 61 72 65 20  e out if we are 
0710: 64 65 61 6c 69 6e 67 20 77 69 74 68 20 55 6e 69  dealing with Uni
0720: 78 2c 20 57 69 6e 64 6f 77 73 2c 20 6f 72 20 73  x, Windows, or s
0730: 6f 6d 65 20 6f 74 68 65 72 0a 2a 2a 20 6f 70 65  ome other.** ope
0740: 72 61 74 69 6e 67 20 73 79 73 74 65 6d 2e 20 20  rating system.  
0750: 41 66 74 65 72 20 74 68 65 20 66 6f 6c 6c 6f 77  After the follow
0760: 69 6e 67 20 62 6c 6f 63 6b 20 6f 66 20 70 72 65  ing block of pre
0770: 70 72 6f 63 65 73 73 20 6d 61 63 72 6f 73 2c 0a  process macros,.
0780: 2a 2a 20 61 6c 6c 20 6f 66 20 53 51 4c 49 54 45  ** all of SQLITE
0790: 5f 4f 53 5f 55 4e 49 58 2c 20 53 51 4c 49 54 45  _OS_UNIX, SQLITE
07a0: 5f 4f 53 5f 57 49 4e 2c 20 53 51 4c 49 54 45 5f  _OS_WIN, SQLITE_
07b0: 4f 53 5f 4f 53 32 2c 20 61 6e 64 20 53 51 4c 49  OS_OS2, and SQLI
07c0: 54 45 5f 4f 53 5f 4f 54 48 45 52 20 0a 2a 2a 20  TE_OS_OTHER .** 
07d0: 77 69 6c 6c 20 64 65 66 69 6e 65 64 20 74 6f 20  will defined to 
07e0: 65 69 74 68 65 72 20 31 20 6f 72 20 30 2e 20 20  either 1 or 0.  
07f0: 4f 6e 65 20 6f 66 20 74 68 65 20 66 6f 75 72 20  One of the four 
0800: 77 69 6c 6c 20 62 65 20 31 2e 20 20 54 68 65 20  will be 1.  The 
0810: 6f 74 68 65 72 20 0a 2a 2a 20 74 68 72 65 65 20  other .** three 
0820: 77 69 6c 6c 20 62 65 20 30 2e 0a 2a 2f 0a 23 69  will be 0..*/.#i
0830: 66 20 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45  f defined(SQLITE
0840: 5f 4f 53 5f 4f 54 48 45 52 29 0a 23 20 69 66 20  _OS_OTHER).# if 
0850: 53 51 4c 49 54 45 5f 4f 53 5f 4f 54 48 45 52 3d  SQLITE_OS_OTHER=
0860: 3d 31 0a 23 20 20 20 75 6e 64 65 66 20 53 51 4c  =1.#   undef SQL
0870: 49 54 45 5f 4f 53 5f 55 4e 49 58 0a 23 20 20 20  ITE_OS_UNIX.#   
0880: 64 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 4f 53  define SQLITE_OS
0890: 5f 55 4e 49 58 20 30 0a 23 20 20 20 75 6e 64 65  _UNIX 0.#   unde
08a0: 66 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a  f SQLITE_OS_WIN.
08b0: 23 20 20 20 64 65 66 69 6e 65 20 53 51 4c 49 54  #   define SQLIT
08c0: 45 5f 4f 53 5f 57 49 4e 20 30 0a 23 20 20 20 75  E_OS_WIN 0.#   u
08d0: 6e 64 65 66 20 53 51 4c 49 54 45 5f 4f 53 5f 4f  ndef SQLITE_OS_O
08e0: 53 32 0a 23 20 20 20 64 65 66 69 6e 65 20 53 51  S2.#   define SQ
08f0: 4c 49 54 45 5f 4f 53 5f 4f 53 32 20 30 0a 23 20  LITE_OS_OS2 0.# 
0900: 65 6c 73 65 0a 23 20 20 20 75 6e 64 65 66 20 53  else.#   undef S
0910: 51 4c 49 54 45 5f 4f 53 5f 4f 54 48 45 52 0a 23  QLITE_OS_OTHER.#
0920: 20 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a 23 69   endif.#endif.#i
0930: 66 20 21 64 65 66 69 6e 65 64 28 53 51 4c 49 54  f !defined(SQLIT
0940: 45 5f 4f 53 5f 55 4e 49 58 29 20 26 26 20 21 64  E_OS_UNIX) && !d
0950: 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f 53  efined(SQLITE_OS
0960: 5f 4f 54 48 45 52 29 0a 23 20 64 65 66 69 6e 65  _OTHER).# define
0970: 20 53 51 4c 49 54 45 5f 4f 53 5f 4f 54 48 45 52   SQLITE_OS_OTHER
0980: 20 30 0a 23 20 69 66 6e 64 65 66 20 53 51 4c 49   0.# ifndef SQLI
0990: 54 45 5f 4f 53 5f 57 49 4e 0a 23 20 20 20 69 66  TE_OS_WIN.#   if
09a0: 20 64 65 66 69 6e 65 64 28 5f 57 49 4e 33 32 29   defined(_WIN32)
09b0: 20 7c 7c 20 64 65 66 69 6e 65 64 28 57 49 4e 33   || defined(WIN3
09c0: 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f  2) || defined(__
09d0: 43 59 47 57 49 4e 5f 5f 29 20 5c 0a 20 20 20 20  CYGWIN__) \.    
09e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09f0: 20 20 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f     || defined(__
0a00: 4d 49 4e 47 57 33 32 5f 5f 29 20 7c 7c 20 64 65  MINGW32__) || de
0a10: 66 69 6e 65 64 28 5f 5f 42 4f 52 4c 41 4e 44 43  fined(__BORLANDC
0a20: 5f 5f 29 0a 23 20 20 20 20 20 64 65 66 69 6e 65  __).#     define
0a30: 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 20 31   SQLITE_OS_WIN 1
0a40: 0a 23 20 20 20 20 20 64 65 66 69 6e 65 20 53 51  .#     define SQ
0a50: 4c 49 54 45 5f 4f 53 5f 55 4e 49 58 20 30 0a 23  LITE_OS_UNIX 0.#
0a60: 20 20 20 20 20 64 65 66 69 6e 65 20 53 51 4c 49       define SQLI
0a70: 54 45 5f 4f 53 5f 4f 53 32 20 30 0a 23 20 20 20  TE_OS_OS2 0.#   
0a80: 65 6c 69 66 20 64 65 66 69 6e 65 64 28 5f 5f 45  elif defined(__E
0a90: 4d 58 5f 5f 29 20 7c 7c 20 64 65 66 69 6e 65 64  MX__) || defined
0aa0: 28 5f 4f 53 32 29 20 7c 7c 20 64 65 66 69 6e 65  (_OS2) || define
0ab0: 64 28 4f 53 32 29 20 5c 0a 20 20 20 20 20 20 20  d(OS2) \.       
0ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ad0: 20 20 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 4f     || defined(_O
0ae0: 53 32 5f 29 20 7c 7c 20 64 65 66 69 6e 65 64 28  S2_) || defined(
0af0: 5f 5f 4f 53 32 5f 5f 29 0a 23 20 20 20 20 20 64  __OS2__).#     d
0b00: 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 4f 53 5f  efine SQLITE_OS_
0b10: 57 49 4e 20 30 0a 23 20 20 20 20 20 64 65 66 69  WIN 0.#     defi
0b20: 6e 65 20 53 51 4c 49 54 45 5f 4f 53 5f 55 4e 49  ne SQLITE_OS_UNI
0b30: 58 20 30 0a 23 20 20 20 20 20 64 65 66 69 6e 65  X 0.#     define
0b40: 20 53 51 4c 49 54 45 5f 4f 53 5f 4f 53 32 20 31   SQLITE_OS_OS2 1
0b50: 0a 23 20 20 20 65 6c 73 65 0a 23 20 20 20 20 20  .#   else.#     
0b60: 64 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 4f 53  define SQLITE_OS
0b70: 5f 57 49 4e 20 30 0a 23 20 20 20 20 20 64 65 66  _WIN 0.#     def
0b80: 69 6e 65 20 53 51 4c 49 54 45 5f 4f 53 5f 55 4e  ine SQLITE_OS_UN
0b90: 49 58 20 31 0a 23 20 20 20 20 20 64 65 66 69 6e  IX 1.#     defin
0ba0: 65 20 53 51 4c 49 54 45 5f 4f 53 5f 4f 53 32 20  e SQLITE_OS_OS2 
0bb0: 30 0a 23 20 20 65 6e 64 69 66 0a 23 20 65 6c 73  0.#  endif.# els
0bc0: 65 0a 23 20 20 64 65 66 69 6e 65 20 53 51 4c 49  e.#  define SQLI
0bd0: 54 45 5f 4f 53 5f 55 4e 49 58 20 30 0a 23 20 20  TE_OS_UNIX 0.#  
0be0: 64 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 4f 53  define SQLITE_OS
0bf0: 5f 4f 53 32 20 30 0a 23 20 65 6e 64 69 66 0a 23  _OS2 0.# endif.#
0c00: 65 6c 73 65 0a 23 20 69 66 6e 64 65 66 20 53 51  else.# ifndef SQ
0c10: 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a 23 20 20 64  LITE_OS_WIN.#  d
0c20: 65 66 69 6e 65 20 53 51 4c 49 54 45 5f 4f 53 5f  efine SQLITE_OS_
0c30: 57 49 4e 20 30 0a 23 20 65 6e 64 69 66 0a 23 65  WIN 0.# endif.#e
0c40: 6e 64 69 66 0a 0a 23 69 66 20 53 51 4c 49 54 45  ndif..#if SQLITE
0c50: 5f 4f 53 5f 55 4e 49 58 0a 23 20 69 6e 63 6c 75  _OS_UNIX.# inclu
0c60: 64 65 20 3c 75 6e 69 73 74 64 2e 68 3e 0a 23 65  de <unistd.h>.#e
0c70: 6e 64 69 66 0a 23 69 66 20 53 51 4c 49 54 45 5f  ndif.#if SQLITE_
0c80: 4f 53 5f 57 49 4e 0a 23 20 69 6e 63 6c 75 64 65  OS_WIN.# include
0c90: 20 3c 77 69 6e 64 6f 77 73 2e 68 3e 0a 23 20 69   <windows.h>.# i
0ca0: 6e 63 6c 75 64 65 20 3c 69 6f 2e 68 3e 0a 23 65  nclude <io.h>.#e
0cb0: 6e 64 69 66 0a 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a  ndif.../********
0cc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0cd0: 20 4f 62 6a 65 63 74 20 44 65 66 69 6e 69 74 69   Object Definiti
0ce0: 6f 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ons ************
0cf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0d00: 2a 2a 2f 0a 0a 2f 2a 20 46 6f 72 77 61 72 64 20  **/../* Forward 
0d10: 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 61  declaration of a
0d20: 6c 6c 20 6f 62 6a 65 63 74 20 74 79 70 65 73 20  ll object types 
0d30: 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63  */.typedef struc
0d40: 74 20 71 75 6f 74 61 47 72 6f 75 70 20 71 75 6f  t quotaGroup quo
0d50: 74 61 47 72 6f 75 70 3b 0a 74 79 70 65 64 65 66  taGroup;.typedef
0d60: 20 73 74 72 75 63 74 20 71 75 6f 74 61 43 6f 6e   struct quotaCon
0d70: 6e 20 71 75 6f 74 61 43 6f 6e 6e 3b 0a 74 79 70  n quotaConn;.typ
0d80: 65 64 65 66 20 73 74 72 75 63 74 20 71 75 6f 74  edef struct quot
0d90: 61 46 69 6c 65 20 71 75 6f 74 61 46 69 6c 65 3b  aFile quotaFile;
0da0: 0a 0a 2f 2a 0a 2a 2a 20 41 20 22 71 75 6f 74 61  ../*.** A "quota
0db0: 20 67 72 6f 75 70 22 20 69 73 20 61 20 63 6f 6c   group" is a col
0dc0: 6c 65 63 74 69 6f 6e 20 6f 66 20 66 69 6c 65 73  lection of files
0dd0: 20 77 68 6f 73 65 20 63 6f 6c 6c 65 63 74 69 76   whose collectiv
0de0: 65 20 73 69 7a 65 20 77 65 20 77 61 6e 74 0a 2a  e size we want.*
0df0: 2a 20 74 6f 20 6c 69 6d 69 74 2e 20 20 45 61 63  * to limit.  Eac
0e00: 68 20 71 75 6f 74 61 20 67 72 6f 75 70 20 69 73  h quota group is
0e10: 20 64 65 66 69 6e 65 64 20 62 79 20 61 20 47 4c   defined by a GL
0e20: 4f 42 20 70 61 74 74 65 72 6e 2e 0a 2a 2a 0a 2a  OB pattern..**.*
0e30: 2a 20 54 68 65 72 65 20 69 73 20 61 6e 20 69 6e  * There is an in
0e40: 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f  stance of the fo
0e50: 6c 6c 6f 77 69 6e 67 20 6f 62 6a 65 63 74 20 66  llowing object f
0e60: 6f 72 20 65 61 63 68 20 64 65 66 69 6e 65 64 20  or each defined 
0e70: 71 75 6f 74 61 0a 2a 2a 20 67 72 6f 75 70 2e 20  quota.** group. 
0e80: 20 54 68 69 73 20 6f 62 6a 65 63 74 20 72 65 63   This object rec
0e90: 6f 72 64 73 20 74 68 65 20 47 4c 4f 42 20 70 61  ords the GLOB pa
0ea0: 74 74 65 72 6e 20 74 68 61 74 20 64 65 66 69 6e  ttern that defin
0eb0: 65 73 20 77 68 69 63 68 20 66 69 6c 65 73 0a 2a  es which files.*
0ec0: 2a 20 62 65 6c 6f 6e 67 20 74 6f 20 74 68 65 20  * belong to the 
0ed0: 71 75 6f 74 61 20 67 72 6f 75 70 2e 20 20 54 68  quota group.  Th
0ee0: 65 20 6f 62 6a 65 63 74 20 61 6c 73 6f 20 72 65  e object also re
0ef0: 6d 65 6d 62 65 72 73 20 74 68 65 20 73 69 7a 65  members the size
0f00: 20 6c 69 6d 69 74 0a 2a 2a 20 66 6f 72 20 74 68   limit.** for th
0f10: 65 20 67 72 6f 75 70 20 28 74 68 65 20 71 75 6f  e group (the quo
0f20: 74 61 29 20 61 6e 64 20 74 68 65 20 63 61 6c 6c  ta) and the call
0f30: 62 61 63 6b 20 74 6f 20 62 65 20 69 6e 76 6f 6b  back to be invok
0f40: 65 64 20 77 68 65 6e 20 74 68 65 0a 2a 2a 20 73  ed when the.** s
0f50: 75 6d 20 6f 66 20 74 68 65 20 73 69 7a 65 73 20  um of the sizes 
0f60: 6f 66 20 74 68 65 20 66 69 6c 65 73 20 77 69 74  of the files wit
0f70: 68 69 6e 20 74 68 65 20 67 72 6f 75 70 20 67 6f  hin the group go
0f80: 65 73 20 6f 76 65 72 20 74 68 65 20 6c 69 6d 69  es over the limi
0f90: 74 2e 0a 2a 2a 0a 2a 2a 20 41 20 71 75 6f 74 61  t..**.** A quota
0fa0: 20 67 72 6f 75 70 20 6d 75 73 74 20 62 65 20 65   group must be e
0fb0: 73 74 61 62 6c 69 73 68 65 64 20 28 75 73 69 6e  stablished (usin
0fc0: 67 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f  g sqlite3_quota_
0fd0: 73 65 74 28 2e 2e 2e 29 29 0a 2a 2a 20 70 72 69  set(...)).** pri
0fe0: 6f 72 20 74 6f 20 6f 70 65 6e 69 6e 67 20 61 6e  or to opening an
0ff0: 79 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73  y of the databas
1000: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 74 68  e connections th
1010: 61 74 20 61 63 63 65 73 73 20 66 69 6c 65 73 0a  at access files.
1020: 2a 2a 20 77 69 74 68 69 6e 20 74 68 65 20 71 75  ** within the qu
1030: 6f 74 61 20 67 72 6f 75 70 2e 0a 2a 2f 0a 73 74  ota group..*/.st
1040: 72 75 63 74 20 71 75 6f 74 61 47 72 6f 75 70 20  ruct quotaGroup 
1050: 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  {.  const char *
1060: 7a 50 61 74 74 65 72 6e 3b 20 20 20 20 20 20 20  zPattern;       
1070: 20 20 20 2f 2a 20 46 69 6c 65 6e 61 6d 65 20 70     /* Filename p
1080: 61 74 74 65 72 6e 20 74 6f 20 62 65 20 71 75 6f  attern to be quo
1090: 74 61 65 64 20 2a 2f 0a 20 20 73 71 6c 69 74 65  taed */.  sqlite
10a0: 33 5f 69 6e 74 36 34 20 69 4c 69 6d 69 74 3b 20  3_int64 iLimit; 
10b0: 20 20 20 20 20 20 20 20 20 2f 2a 20 55 70 70 65           /* Uppe
10c0: 72 20 62 6f 75 6e 64 20 6f 6e 20 74 6f 74 61 6c  r bound on total
10d0: 20 66 69 6c 65 20 73 69 7a 65 20 2a 2f 0a 20 20   file size */.  
10e0: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 53  sqlite3_int64 iS
10f0: 69 7a 65 3b 20 20 20 20 20 20 20 20 20 20 20 2f  ize;           /
1100: 2a 20 43 75 72 72 65 6e 74 20 73 69 7a 65 20 6f  * Current size o
1110: 66 20 61 6c 6c 20 66 69 6c 65 73 20 2a 2f 0a 20  f all files */. 
1120: 20 76 6f 69 64 20 28 2a 78 43 61 6c 6c 62 61 63   void (*xCallbac
1130: 6b 29 28 20 20 20 20 20 20 20 20 20 20 20 20 20  k)(             
1140: 2f 2a 20 43 61 6c 6c 62 61 63 6b 20 69 6e 76 6f  /* Callback invo
1150: 6b 65 64 20 77 68 65 6e 20 67 6f 69 6e 67 20 6f  ked when going o
1160: 76 65 72 20 71 75 6f 74 61 20 2a 2f 0a 20 20 20  ver quota */.   
1170: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46    const char *zF
1180: 69 6c 65 6e 61 6d 65 2c 20 20 20 20 20 20 20 20  ilename,        
1190: 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 66 69 6c 65   /* Name of file
11a0: 20 77 68 6f 73 65 20 73 69 7a 65 20 69 6e 63 72   whose size incr
11b0: 65 61 73 65 73 20 2a 2f 0a 20 20 20 20 20 73 71  eases */.     sq
11c0: 6c 69 74 65 33 5f 69 6e 74 36 34 20 2a 70 69 4c  lite3_int64 *piL
11d0: 69 6d 69 74 2c 20 20 20 20 20 20 20 20 2f 2a 20  imit,        /* 
11e0: 49 4e 2f 4f 55 54 3a 20 54 68 65 20 63 75 72 72  IN/OUT: The curr
11f0: 65 6e 74 20 6c 69 6d 69 74 20 2a 2f 0a 20 20 20  ent limit */.   
1200: 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20    sqlite3_int64 
1210: 69 53 69 7a 65 2c 20 20 20 20 20 20 20 20 20 20  iSize,          
1220: 20 2f 2a 20 54 6f 74 61 6c 20 73 69 7a 65 20 6f   /* Total size o
1230: 66 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 74  f all files in t
1240: 68 65 20 67 72 6f 75 70 20 2a 2f 0a 20 20 20 20  he group */.    
1250: 20 76 6f 69 64 20 2a 70 41 72 67 20 20 20 20 20   void *pArg     
1260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1270: 2f 2a 20 43 6c 69 65 6e 74 20 64 61 74 61 20 2a  /* Client data *
1280: 2f 0a 20 20 29 3b 0a 20 20 76 6f 69 64 20 2a 70  /.  );.  void *p
1290: 41 72 67 3b 20 20 20 20 20 20 20 20 20 20 20 20  Arg;            
12a0: 20 20 20 20 20 20 20 20 2f 2a 20 54 68 69 72 64          /* Third
12b0: 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 74 68 65   argument to the
12c0: 20 78 43 61 6c 6c 62 61 63 6b 28 29 20 2a 2f 0a   xCallback() */.
12d0: 20 20 76 6f 69 64 20 28 2a 78 44 65 73 74 72 6f    void (*xDestro
12e0: 79 29 28 76 6f 69 64 2a 29 3b 20 20 20 20 20 20  y)(void*);      
12f0: 20 2f 2a 20 4f 70 74 69 6f 6e 61 6c 20 64 65 73   /* Optional des
1300: 74 72 75 63 74 6f 72 20 66 6f 72 20 70 41 72 67  tructor for pArg
1310: 20 2a 2f 0a 20 20 71 75 6f 74 61 47 72 6f 75 70   */.  quotaGroup
1320: 20 2a 70 4e 65 78 74 2c 20 2a 2a 70 70 50 72 65   *pNext, **ppPre
1330: 76 3b 20 20 20 2f 2a 20 44 6f 75 62 6c 79 20 6c  v;   /* Doubly l
1340: 69 6e 6b 65 64 20 6c 69 73 74 20 6f 66 20 61 6c  inked list of al
1350: 6c 20 71 75 6f 74 61 20 6f 62 6a 65 63 74 73 20  l quota objects 
1360: 2a 2f 0a 20 20 71 75 6f 74 61 46 69 6c 65 20 2a  */.  quotaFile *
1370: 70 46 69 6c 65 73 3b 20 20 20 20 20 20 20 20 20  pFiles;         
1380: 20 20 20 20 2f 2a 20 46 69 6c 65 73 20 77 69 74      /* Files wit
1390: 68 69 6e 20 74 68 69 73 20 67 72 6f 75 70 20 2a  hin this group *
13a0: 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69  /.};../*.** An i
13b0: 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 69 73 20  nstance of this 
13c0: 73 74 72 75 63 74 75 72 65 20 72 65 70 72 65 73  structure repres
13d0: 65 6e 74 73 20 61 20 73 69 6e 67 6c 65 20 66 69  ents a single fi
13e0: 6c 65 20 74 68 61 74 20 69 73 20 70 61 72 74 0a  le that is part.
13f0: 2a 2a 20 6f 66 20 61 20 71 75 6f 74 61 20 67 72  ** of a quota gr
1400: 6f 75 70 2e 20 20 41 20 73 69 6e 67 6c 65 20 66  oup.  A single f
1410: 69 6c 65 20 63 61 6e 20 62 65 20 6f 70 65 6e 65  ile can be opene
1420: 64 20 6d 75 6c 74 69 70 6c 65 20 74 69 6d 65 73  d multiple times
1430: 2e 20 20 49 6e 0a 2a 2a 20 6f 72 64 65 72 20 6b  .  In.** order k
1440: 65 65 70 20 6d 75 6c 74 69 70 6c 65 20 6f 70 65  eep multiple ope
1450: 6e 69 6e 67 73 20 6f 66 20 74 68 65 20 73 61 6d  nings of the sam
1460: 65 20 66 69 6c 65 20 66 72 6f 6d 20 63 61 75 73  e file from caus
1470: 69 6e 67 20 74 68 65 20 73 69 7a 65 0a 2a 2a 20  ing the size.** 
1480: 6f 66 20 74 68 65 20 66 69 6c 65 20 74 6f 20 63  of the file to c
1490: 6f 75 6e 74 20 61 67 61 69 6e 73 74 20 74 68 65  ount against the
14a0: 20 71 75 6f 74 61 20 6d 75 6c 74 69 70 6c 65 20   quota multiple 
14b0: 74 69 6d 65 73 2c 20 65 61 63 68 20 66 69 6c 65  times, each file
14c0: 0a 2a 2a 20 68 61 73 20 61 20 75 6e 69 71 75 65  .** has a unique
14d0: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 69   instance of thi
14e0: 73 20 6f 62 6a 65 63 74 20 61 6e 64 20 6d 75 6c  s object and mul
14f0: 74 69 70 6c 65 20 6f 70 65 6e 20 63 6f 6e 6e 65  tiple open conne
1500: 63 74 69 6f 6e 73 0a 2a 2a 20 74 6f 20 74 68 65  ctions.** to the
1510: 20 73 61 6d 65 20 66 69 6c 65 20 65 61 63 68 20   same file each 
1520: 70 6f 69 6e 74 20 74 6f 20 61 20 73 69 6e 67 6c  point to a singl
1530: 65 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68  e instance of th
1540: 69 73 20 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74  is object..*/.st
1550: 72 75 63 74 20 71 75 6f 74 61 46 69 6c 65 20 7b  ruct quotaFile {
1560: 0a 20 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  .  char *zFilena
1570: 6d 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  me;             
1580: 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68     /* Name of th
1590: 69 73 20 66 69 6c 65 20 2a 2f 0a 20 20 71 75 6f  is file */.  quo
15a0: 74 61 47 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b  taGroup *pGroup;
15b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
15c0: 51 75 6f 74 61 20 67 72 6f 75 70 20 74 6f 20 77  Quota group to w
15d0: 68 69 63 68 20 74 68 69 73 20 66 69 6c 65 20 62  hich this file b
15e0: 65 6c 6f 6e 67 73 20 2a 2f 0a 20 20 73 71 6c 69  elongs */.  sqli
15f0: 74 65 33 5f 69 6e 74 36 34 20 69 53 69 7a 65 3b  te3_int64 iSize;
1600: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43              /* C
1610: 75 72 72 65 6e 74 20 73 69 7a 65 20 6f 66 20 74  urrent size of t
1620: 68 69 73 20 66 69 6c 65 20 2a 2f 0a 20 20 69 6e  his file */.  in
1630: 74 20 6e 52 65 66 3b 20 20 20 20 20 20 20 20 20  t nRef;         
1640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1650: 20 4e 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73   Number of times
1660: 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 6f 70   this file is op
1670: 65 6e 20 2a 2f 0a 20 20 69 6e 74 20 64 65 6c 65  en */.  int dele
1680: 74 65 4f 6e 43 6c 6f 73 65 3b 20 20 20 20 20 20  teOnClose;      
1690: 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20          /* True 
16a0: 74 6f 20 64 65 6c 65 74 65 20 74 68 69 73 20 66  to delete this f
16b0: 69 6c 65 20 77 68 65 6e 20 69 74 20 63 6c 6f 73  ile when it clos
16c0: 65 73 20 2a 2f 0a 20 20 71 75 6f 74 61 46 69 6c  es */.  quotaFil
16d0: 65 20 2a 70 4e 65 78 74 2c 20 2a 2a 70 70 50 72  e *pNext, **ppPr
16e0: 65 76 3b 20 20 20 20 20 2f 2a 20 4c 69 6e 6b 65  ev;     /* Linke
16f0: 64 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 20  d list of files 
1700: 69 6e 20 74 68 65 20 73 61 6d 65 20 67 72 6f 75  in the same grou
1710: 70 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41  p */.};../*.** A
1720: 6e 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68  n instance of th
1730: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f 62 6a 65  e following obje
1740: 63 74 20 72 65 70 72 65 73 65 6e 74 73 20 65 61  ct represents ea
1750: 63 68 20 6f 70 65 6e 20 63 6f 6e 6e 65 63 74 69  ch open connecti
1760: 6f 6e 0a 2a 2a 20 74 6f 20 61 20 66 69 6c 65 20  on.** to a file 
1770: 74 68 61 74 20 70 61 72 74 69 63 69 70 61 74 65  that participate
1780: 73 20 69 6e 20 71 75 6f 74 61 20 74 72 61 63 6b  s in quota track
1790: 69 6e 67 2e 20 20 54 68 69 73 20 6f 62 6a 65 63  ing.  This objec
17a0: 74 20 69 73 20 61 20 0a 2a 2a 20 73 75 62 63 6c  t is a .** subcl
17b0: 61 73 73 20 6f 66 20 73 71 6c 69 74 65 33 5f 66  ass of sqlite3_f
17c0: 69 6c 65 2e 20 20 54 68 65 20 73 71 6c 69 74 65  ile.  The sqlite
17d0: 33 5f 66 69 6c 65 20 6f 62 6a 65 63 74 20 66 6f  3_file object fo
17e0: 72 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67  r the underlying
17f0: 0a 2a 2a 20 56 46 53 20 69 73 20 61 70 70 65 6e  .** VFS is appen
1800: 64 65 64 20 74 6f 20 74 68 69 73 20 73 74 72 75  ded to this stru
1810: 63 74 75 72 65 2e 0a 2a 2f 0a 73 74 72 75 63 74  cture..*/.struct
1820: 20 71 75 6f 74 61 43 6f 6e 6e 20 7b 0a 20 20 73   quotaConn {.  s
1830: 71 6c 69 74 65 33 5f 66 69 6c 65 20 62 61 73 65  qlite3_file base
1840: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ;              /
1850: 2a 20 42 61 73 65 20 63 6c 61 73 73 20 2d 20 6d  * Base class - m
1860: 75 73 74 20 62 65 20 66 69 72 73 74 20 2a 2f 0a  ust be first */.
1870: 20 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69    quotaFile *pFi
1880: 6c 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  le;             
1890: 20 20 2f 2a 20 54 68 65 20 75 6e 64 65 72 6c 79    /* The underly
18a0: 69 6e 67 20 66 69 6c 65 20 2a 2f 0a 20 20 2f 2a  ing file */.  /*
18b0: 20 54 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20   The underlying 
18c0: 56 46 53 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  VFS sqlite3_file
18d0: 20 69 73 20 61 70 70 65 6e 64 65 64 20 74 6f 20   is appended to 
18e0: 74 68 69 73 20 6f 62 6a 65 63 74 20 2a 2f 0a 7d  this object */.}
18f0: 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74  ;../*.** An inst
1900: 61 6e 63 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c  ance of the foll
1910: 6f 77 69 6e 67 20 6f 62 6a 65 63 74 20 72 65 63  owing object rec
1920: 6f 72 64 73 20 74 68 65 20 73 74 61 74 65 20 6f  ords the state o
1930: 66 20 61 6e 0a 2a 2a 20 6f 70 65 6e 20 66 69 6c  f an.** open fil
1940: 65 2e 20 20 54 68 69 73 20 6f 62 6a 65 63 74 20  e.  This object 
1950: 69 73 20 6f 70 61 71 75 65 20 74 6f 20 61 6c 6c  is opaque to all
1960: 20 75 73 65 72 73 20 2d 20 74 68 65 20 69 6e 74   users - the int
1970: 65 72 6e 61 6c 0a 2a 2a 20 73 74 72 75 63 74 75  ernal.** structu
1980: 72 65 20 69 73 20 6f 6e 6c 79 20 76 69 73 69 62  re is only visib
1990: 6c 65 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69  le to the functi
19a0: 6f 6e 73 20 62 65 6c 6f 77 2e 0a 2a 2f 0a 73 74  ons below..*/.st
19b0: 72 75 63 74 20 71 75 6f 74 61 5f 46 49 4c 45 20  ruct quota_FILE 
19c0: 7b 0a 20 20 46 49 4c 45 20 2a 66 3b 20 20 20 20  {.  FILE *f;    
19d0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4f              /* O
19e0: 70 65 6e 20 73 74 64 69 6f 20 66 69 6c 65 20 70  pen stdio file p
19f0: 6f 69 6e 74 65 72 20 2a 2f 0a 20 20 73 71 6c 69  ointer */.  sqli
1a00: 74 65 33 5f 69 6e 74 36 34 20 69 4f 66 73 74 3b  te3_int64 iOfst;
1a10: 20 20 20 20 2f 2a 20 43 75 72 72 65 6e 74 20 6f      /* Current o
1a20: 66 66 73 65 74 20 69 6e 74 6f 20 74 68 65 20 66  ffset into the f
1a30: 69 6c 65 20 2a 2f 0a 20 20 71 75 6f 74 61 46 69  ile */.  quotaFi
1a40: 6c 65 20 2a 70 46 69 6c 65 3b 20 20 20 20 20 20  le *pFile;      
1a50: 20 2f 2a 20 54 68 65 20 66 69 6c 65 20 72 65 63   /* The file rec
1a60: 6f 72 64 20 69 6e 20 74 68 65 20 71 75 6f 74 61  ord in the quota
1a70: 20 73 79 73 74 65 6d 20 2a 2f 0a 23 69 66 20 53   system */.#if S
1a80: 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a 20 20 63  QLITE_OS_WIN.  c
1a90: 68 61 72 20 2a 7a 4d 62 63 73 4e 61 6d 65 3b 20  har *zMbcsName; 
1aa0: 20 20 20 20 20 20 20 2f 2a 20 46 75 6c 6c 20 4d         /* Full M
1ab0: 42 43 53 20 70 61 74 68 6e 61 6d 65 20 6f 66 20  BCS pathname of 
1ac0: 74 68 65 20 66 69 6c 65 20 2a 2f 0a 23 65 6e 64  the file */.#end
1ad0: 69 66 0a 7d 3b 0a 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a  if.};.../*******
1ae0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1af0: 2a 2a 20 47 6c 6f 62 61 6c 20 56 61 72 69 61 62  ** Global Variab
1b00: 6c 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  les ************
1b10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1b20: 2a 2a 2a 2a 2a 2a 2f 0a 2f 2a 0a 2a 2a 20 41 6c  ******/./*.** Al
1b30: 6c 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 62 6c  l global variabl
1b40: 65 73 20 75 73 65 64 20 62 79 20 74 68 69 73 20  es used by this 
1b50: 66 69 6c 65 20 61 72 65 20 63 6f 6e 74 61 69 6e  file are contain
1b60: 69 6e 67 20 77 69 74 68 69 6e 20 74 68 65 20 66  ing within the f
1b70: 6f 6c 6c 6f 77 69 6e 67 0a 2a 2a 20 67 51 75 6f  ollowing.** gQuo
1b80: 74 61 20 73 74 72 75 63 74 75 72 65 2e 0a 2a 2f  ta structure..*/
1b90: 0a 73 74 61 74 69 63 20 73 74 72 75 63 74 20 7b  .static struct {
1ba0: 0a 20 20 2f 2a 20 54 68 65 20 70 4f 72 69 67 56  .  /* The pOrigV
1bb0: 66 73 20 69 73 20 74 68 65 20 72 65 61 6c 2c 20  fs is the real, 
1bc0: 6f 72 69 67 69 6e 61 6c 20 75 6e 64 65 72 6c 79  original underly
1bd0: 69 6e 67 20 56 46 53 20 69 6d 70 6c 65 6d 65 6e  ing VFS implemen
1be0: 74 61 74 69 6f 6e 2e 0a 20 20 2a 2a 20 4d 6f 73  tation..  ** Mos
1bf0: 74 20 6f 70 65 72 61 74 69 6f 6e 73 20 70 61 73  t operations pas
1c00: 73 2d 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65  s-through to the
1c10: 20 72 65 61 6c 20 56 46 53 2e 20 20 54 68 69 73   real VFS.  This
1c20: 20 76 61 6c 75 65 20 69 73 20 72 65 61 64 2d 6f   value is read-o
1c30: 6e 6c 79 0a 20 20 2a 2a 20 64 75 72 69 6e 67 20  nly.  ** during 
1c40: 6f 70 65 72 61 74 69 6f 6e 2e 20 20 49 74 20 69  operation.  It i
1c50: 73 20 6f 6e 6c 79 20 6d 6f 64 69 66 69 65 64 20  s only modified 
1c60: 61 74 20 73 74 61 72 74 2d 74 69 6d 65 20 61 6e  at start-time an
1c70: 64 20 74 68 75 73 20 64 6f 65 73 20 6e 6f 74 0a  d thus does not.
1c80: 20 20 2a 2a 20 72 65 71 75 69 72 65 20 61 20 6d    ** require a m
1c90: 75 74 65 78 2e 0a 20 20 2a 2f 0a 20 20 73 71 6c  utex..  */.  sql
1ca0: 69 74 65 33 5f 76 66 73 20 2a 70 4f 72 69 67 56  ite3_vfs *pOrigV
1cb0: 66 73 3b 0a 0a 20 20 2f 2a 20 54 68 65 20 73 54  fs;..  /* The sT
1cc0: 68 69 73 56 66 73 20 69 73 20 74 68 65 20 56 46  hisVfs is the VF
1cd0: 53 20 73 74 72 75 63 74 75 72 65 20 75 73 65 64  S structure used
1ce0: 20 62 79 20 74 68 69 73 20 73 68 69 6d 2e 20 20   by this shim.  
1cf0: 49 74 20 69 73 20 69 6e 69 74 69 61 6c 69 7a 65  It is initialize
1d00: 64 0a 20 20 2a 2a 20 61 74 20 73 74 61 72 74 2d  d.  ** at start-
1d10: 74 69 6d 65 20 61 6e 64 20 74 68 75 73 20 64 6f  time and thus do
1d20: 65 73 20 6e 6f 74 20 72 65 71 75 69 72 65 20 61  es not require a
1d30: 20 6d 75 74 65 78 0a 20 20 2a 2f 0a 20 20 73 71   mutex.  */.  sq
1d40: 6c 69 74 65 33 5f 76 66 73 20 73 54 68 69 73 56  lite3_vfs sThisV
1d50: 66 73 3b 0a 0a 20 20 2f 2a 20 54 68 65 20 73 49  fs;..  /* The sI
1d60: 6f 4d 65 74 68 6f 64 73 20 64 65 66 69 6e 65 73  oMethods defines
1d70: 20 74 68 65 20 6d 65 74 68 6f 64 73 20 75 73 65   the methods use
1d80: 64 20 62 79 20 73 71 6c 69 74 65 33 5f 66 69 6c  d by sqlite3_fil
1d90: 65 20 6f 62 6a 65 63 74 73 20 0a 20 20 2a 2a 20  e objects .  ** 
1da0: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
1db0: 74 68 69 73 20 73 68 69 6d 2e 20 20 49 74 20 69  this shim.  It i
1dc0: 73 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 61 74  s initialized at
1dd0: 20 73 74 61 72 74 2d 74 69 6d 65 20 61 6e 64 20   start-time and 
1de0: 64 6f 65 73 0a 20 20 2a 2a 20 6e 6f 74 20 72 65  does.  ** not re
1df0: 71 75 69 72 65 20 61 20 6d 75 74 65 78 2e 0a 20  quire a mutex.. 
1e00: 20 2a 2a 0a 20 20 2a 2a 20 57 68 65 6e 20 74 68   **.  ** When th
1e10: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 56 46 53  e underlying VFS
1e20: 20 69 73 20 63 61 6c 6c 65 64 20 74 6f 20 6f 70   is called to op
1e30: 65 6e 20 61 20 66 69 6c 65 2c 20 69 74 20 6d 69  en a file, it mi
1e40: 67 68 74 20 72 65 74 75 72 6e 20 0a 20 20 2a 2a  ght return .  **
1e50: 20 65 69 74 68 65 72 20 61 20 76 65 72 73 69 6f   either a versio
1e60: 6e 20 31 20 6f 72 20 61 20 76 65 72 73 69 6f 6e  n 1 or a version
1e70: 20 32 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20   2 sqlite3_file 
1e80: 6f 62 6a 65 63 74 2e 20 20 54 68 69 73 20 73 68  object.  This sh
1e90: 69 6d 0a 20 20 2a 2a 20 68 61 73 20 74 6f 20 63  im.  ** has to c
1ea0: 72 65 61 74 65 20 61 20 77 72 61 70 70 65 72 20  reate a wrapper 
1eb0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 6f 66 20  sqlite3_file of 
1ec0: 74 68 65 20 73 61 6d 65 20 76 65 72 73 69 6f 6e  the same version
1ed0: 2e 20 20 48 65 6e 63 65 0a 20 20 2a 2a 20 74 68  .  Hence.  ** th
1ee0: 65 72 65 20 61 72 65 20 74 77 6f 20 49 2f 4f 20  ere are two I/O 
1ef0: 6d 65 74 68 6f 64 20 73 74 72 75 63 74 75 72 65  method structure
1f00: 73 2c 20 6f 6e 65 20 66 6f 72 20 76 65 72 73 69  s, one for versi
1f10: 6f 6e 20 31 20 61 6e 64 20 74 68 65 20 6f 74 68  on 1 and the oth
1f20: 65 72 0a 20 20 2a 2a 20 66 6f 72 20 76 65 72 73  er.  ** for vers
1f30: 69 6f 6e 20 32 2e 0a 20 20 2a 2f 0a 20 20 73 71  ion 2..  */.  sq
1f40: 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73  lite3_io_methods
1f50: 20 73 49 6f 4d 65 74 68 6f 64 73 56 31 3b 0a 20   sIoMethodsV1;. 
1f60: 20 73 71 6c 69 74 65 33 5f 69 6f 5f 6d 65 74 68   sqlite3_io_meth
1f70: 6f 64 73 20 73 49 6f 4d 65 74 68 6f 64 73 56 32  ods sIoMethodsV2
1f80: 3b 0a 0a 20 20 2f 2a 20 54 72 75 65 20 77 68 65  ;..  /* True whe
1f90: 6e 20 74 68 69 73 20 73 68 69 6d 20 61 73 20 62  n this shim as b
1fa0: 65 65 6e 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e  een initialized.
1fb0: 0a 20 20 2a 2f 0a 20 20 69 6e 74 20 69 73 49 6e  .  */.  int isIn
1fc0: 69 74 69 61 6c 69 7a 65 64 3b 0a 0a 20 20 2f 2a  itialized;..  /*
1fd0: 20 46 6f 72 20 72 75 6e 2d 74 69 6d 65 20 61 63   For run-time ac
1fe0: 63 65 73 73 20 61 6e 79 20 6f 66 20 74 68 65 20  cess any of the 
1ff0: 6f 74 68 65 72 20 67 6c 6f 62 61 6c 20 64 61 74  other global dat
2000: 61 20 73 74 72 75 63 74 75 72 65 73 20 69 6e 20  a structures in 
2010: 74 68 69 73 0a 20 20 2a 2a 20 73 68 69 6d 2c 20  this.  ** shim, 
2020: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6d 75  the following mu
2030: 74 65 78 20 6d 75 73 74 20 62 65 20 68 65 6c 64  tex must be held
2040: 2e 0a 20 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33  ..  */.  sqlite3
2050: 5f 6d 75 74 65 78 20 2a 70 4d 75 74 65 78 3b 0a  _mutex *pMutex;.
2060: 0a 20 20 2f 2a 20 4c 69 73 74 20 6f 66 20 71 75  .  /* List of qu
2070: 6f 74 61 47 72 6f 75 70 20 6f 62 6a 65 63 74 73  otaGroup objects
2080: 2e 0a 20 20 2a 2f 0a 20 20 71 75 6f 74 61 47 72  ..  */.  quotaGr
2090: 6f 75 70 20 2a 70 47 72 6f 75 70 3b 0a 0a 7d 20  oup *pGroup;..} 
20a0: 67 51 75 6f 74 61 3b 0a 0a 2f 2a 2a 2a 2a 2a 2a  gQuota;../******
20b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
20c0: 2a 2a 2a 20 55 74 69 6c 69 74 79 20 52 6f 75 74  *** Utility Rout
20d0: 69 6e 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ines ***********
20e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
20f0: 2a 2a 2a 2a 2a 2a 2f 0a 2f 2a 0a 2a 2a 20 41 63  ******/./*.** Ac
2100: 71 75 69 72 65 20 61 6e 64 20 72 65 6c 65 61 73  quire and releas
2110: 65 20 74 68 65 20 6d 75 74 65 78 20 75 73 65 64  e the mutex used
2120: 20 74 6f 20 73 65 72 69 61 6c 69 7a 65 20 61 63   to serialize ac
2130: 63 65 73 73 20 74 6f 20 74 68 65 0a 2a 2a 20 6c  cess to the.** l
2140: 69 73 74 20 6f 66 20 71 75 6f 74 61 47 72 6f 75  ist of quotaGrou
2150: 70 73 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f  ps..*/.static vo
2160: 69 64 20 71 75 6f 74 61 45 6e 74 65 72 28 76 6f  id quotaEnter(vo
2170: 69 64 29 7b 20 73 71 6c 69 74 65 33 5f 6d 75 74  id){ sqlite3_mut
2180: 65 78 5f 65 6e 74 65 72 28 67 51 75 6f 74 61 2e  ex_enter(gQuota.
2190: 70 4d 75 74 65 78 29 3b 20 7d 0a 73 74 61 74 69  pMutex); }.stati
21a0: 63 20 76 6f 69 64 20 71 75 6f 74 61 4c 65 61 76  c void quotaLeav
21b0: 65 28 76 6f 69 64 29 7b 20 73 71 6c 69 74 65 33  e(void){ sqlite3
21c0: 5f 6d 75 74 65 78 5f 6c 65 61 76 65 28 67 51 75  _mutex_leave(gQu
21d0: 6f 74 61 2e 70 4d 75 74 65 78 29 3b 20 7d 0a 0a  ota.pMutex); }..
21e0: 2f 2a 20 43 6f 75 6e 74 20 74 68 65 20 6e 75 6d  /* Count the num
21f0: 62 65 72 20 6f 66 20 6f 70 65 6e 20 66 69 6c 65  ber of open file
2200: 73 20 69 6e 20 61 20 71 75 6f 74 61 47 72 6f 75  s in a quotaGrou
2210: 70 20 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  p .*/.static int
2220: 20 71 75 6f 74 61 47 72 6f 75 70 4f 70 65 6e 46   quotaGroupOpenF
2230: 69 6c 65 43 6f 75 6e 74 28 71 75 6f 74 61 47 72  ileCount(quotaGr
2240: 6f 75 70 20 2a 70 47 72 6f 75 70 29 7b 0a 20 20  oup *pGroup){.  
2250: 69 6e 74 20 4e 20 3d 20 30 3b 0a 20 20 71 75 6f  int N = 0;.  quo
2260: 74 61 46 69 6c 65 20 2a 70 46 69 6c 65 20 3d 20  taFile *pFile = 
2270: 70 47 72 6f 75 70 2d 3e 70 46 69 6c 65 73 3b 0a  pGroup->pFiles;.
2280: 20 20 77 68 69 6c 65 28 20 70 46 69 6c 65 20 29    while( pFile )
2290: 7b 0a 20 20 20 20 69 66 28 20 70 46 69 6c 65 2d  {.    if( pFile-
22a0: 3e 6e 52 65 66 20 29 20 4e 2b 2b 3b 0a 20 20 20  >nRef ) N++;.   
22b0: 20 70 46 69 6c 65 20 3d 20 70 46 69 6c 65 2d 3e   pFile = pFile->
22c0: 70 4e 65 78 74 3b 0a 20 20 7d 0a 20 20 72 65 74  pNext;.  }.  ret
22d0: 75 72 6e 20 4e 3b 0a 7d 0a 0a 2f 2a 20 52 65 6d  urn N;.}../* Rem
22e0: 6f 76 65 20 61 20 66 69 6c 65 20 66 72 6f 6d 20  ove a file from 
22f0: 61 20 71 75 6f 74 61 20 67 72 6f 75 70 2e 0a 2a  a quota group..*
2300: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 71 75  /.static void qu
2310: 6f 74 61 52 65 6d 6f 76 65 46 69 6c 65 28 71 75  otaRemoveFile(qu
2320: 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c 65 29 7b  otaFile *pFile){
2330: 0a 20 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70  .  quotaGroup *p
2340: 47 72 6f 75 70 20 3d 20 70 46 69 6c 65 2d 3e 70  Group = pFile->p
2350: 47 72 6f 75 70 3b 0a 20 20 70 47 72 6f 75 70 2d  Group;.  pGroup-
2360: 3e 69 53 69 7a 65 20 2d 3d 20 70 46 69 6c 65 2d  >iSize -= pFile-
2370: 3e 69 53 69 7a 65 3b 0a 20 20 2a 70 46 69 6c 65  >iSize;.  *pFile
2380: 2d 3e 70 70 50 72 65 76 20 3d 20 70 46 69 6c 65  ->ppPrev = pFile
2390: 2d 3e 70 4e 65 78 74 3b 0a 20 20 69 66 28 20 70  ->pNext;.  if( p
23a0: 46 69 6c 65 2d 3e 70 4e 65 78 74 20 29 20 70 46  File->pNext ) pF
23b0: 69 6c 65 2d 3e 70 4e 65 78 74 2d 3e 70 70 50 72  ile->pNext->ppPr
23c0: 65 76 20 3d 20 70 46 69 6c 65 2d 3e 70 70 50 72  ev = pFile->ppPr
23d0: 65 76 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72  ev;.  sqlite3_fr
23e0: 65 65 28 70 46 69 6c 65 29 3b 0a 7d 0a 0a 2f 2a  ee(pFile);.}../*
23f0: 20 52 65 6d 6f 76 65 20 61 6c 6c 20 66 69 6c 65   Remove all file
2400: 73 20 66 72 6f 6d 20 61 20 71 75 6f 74 61 20 67  s from a quota g
2410: 72 6f 75 70 2e 20 20 49 74 20 69 73 20 61 6c 77  roup.  It is alw
2420: 61 79 73 20 74 68 65 20 63 61 73 65 20 74 68 61  ays the case tha
2430: 74 0a 2a 2a 20 61 6c 6c 20 66 69 6c 65 73 20 77  t.** all files w
2440: 69 6c 6c 20 62 65 20 63 6c 6f 73 65 64 20 77 68  ill be closed wh
2450: 65 6e 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20  en this routine 
2460: 69 73 20 63 61 6c 6c 65 64 2e 0a 2a 2f 0a 73 74  is called..*/.st
2470: 61 74 69 63 20 76 6f 69 64 20 71 75 6f 74 61 52  atic void quotaR
2480: 65 6d 6f 76 65 41 6c 6c 46 69 6c 65 73 28 71 75  emoveAllFiles(qu
2490: 6f 74 61 47 72 6f 75 70 20 2a 70 47 72 6f 75 70  otaGroup *pGroup
24a0: 29 7b 0a 20 20 77 68 69 6c 65 28 20 70 47 72 6f  ){.  while( pGro
24b0: 75 70 2d 3e 70 46 69 6c 65 73 20 29 7b 0a 20 20  up->pFiles ){.  
24c0: 20 20 61 73 73 65 72 74 28 20 70 47 72 6f 75 70    assert( pGroup
24d0: 2d 3e 70 46 69 6c 65 73 2d 3e 6e 52 65 66 3d 3d  ->pFiles->nRef==
24e0: 30 20 29 3b 0a 20 20 20 20 71 75 6f 74 61 52 65  0 );.    quotaRe
24f0: 6d 6f 76 65 46 69 6c 65 28 70 47 72 6f 75 70 2d  moveFile(pGroup-
2500: 3e 70 46 69 6c 65 73 29 3b 0a 20 20 7d 0a 7d 0a  >pFiles);.  }.}.
2510: 0a 0a 2f 2a 20 49 66 20 74 68 65 20 72 65 66 65  ../* If the refe
2520: 72 65 6e 63 65 20 63 6f 75 6e 74 20 61 6e 64 20  rence count and 
2530: 74 68 72 65 73 68 6f 6c 64 20 66 6f 72 20 61 20  threshold for a 
2540: 71 75 6f 74 61 47 72 6f 75 70 20 61 72 65 20 62  quotaGroup are b
2550: 6f 74 68 0a 2a 2a 20 7a 65 72 6f 2c 20 74 68 65  oth.** zero, the
2560: 6e 20 64 65 73 74 72 6f 79 20 74 68 65 20 71 75  n destroy the qu
2570: 6f 74 61 47 72 6f 75 70 2e 0a 2a 2f 0a 73 74 61  otaGroup..*/.sta
2580: 74 69 63 20 76 6f 69 64 20 71 75 6f 74 61 47 72  tic void quotaGr
2590: 6f 75 70 44 65 72 65 66 28 71 75 6f 74 61 47 72  oupDeref(quotaGr
25a0: 6f 75 70 20 2a 70 47 72 6f 75 70 29 7b 0a 20 20  oup *pGroup){.  
25b0: 69 66 28 20 70 47 72 6f 75 70 2d 3e 69 4c 69 6d  if( pGroup->iLim
25c0: 69 74 3d 3d 30 20 26 26 20 71 75 6f 74 61 47 72  it==0 && quotaGr
25d0: 6f 75 70 4f 70 65 6e 46 69 6c 65 43 6f 75 6e 74  oupOpenFileCount
25e0: 28 70 47 72 6f 75 70 29 3d 3d 30 20 29 7b 0a 20  (pGroup)==0 ){. 
25f0: 20 20 20 71 75 6f 74 61 52 65 6d 6f 76 65 41 6c     quotaRemoveAl
2600: 6c 46 69 6c 65 73 28 70 47 72 6f 75 70 29 3b 0a  lFiles(pGroup);.
2610: 20 20 20 20 2a 70 47 72 6f 75 70 2d 3e 70 70 50      *pGroup->ppP
2620: 72 65 76 20 3d 20 70 47 72 6f 75 70 2d 3e 70 4e  rev = pGroup->pN
2630: 65 78 74 3b 0a 20 20 20 20 69 66 28 20 70 47 72  ext;.    if( pGr
2640: 6f 75 70 2d 3e 70 4e 65 78 74 20 29 20 70 47 72  oup->pNext ) pGr
2650: 6f 75 70 2d 3e 70 4e 65 78 74 2d 3e 70 70 50 72  oup->pNext->ppPr
2660: 65 76 20 3d 20 70 47 72 6f 75 70 2d 3e 70 70 50  ev = pGroup->ppP
2670: 72 65 76 3b 0a 20 20 20 20 69 66 28 20 70 47 72  rev;.    if( pGr
2680: 6f 75 70 2d 3e 78 44 65 73 74 72 6f 79 20 29 20  oup->xDestroy ) 
2690: 70 47 72 6f 75 70 2d 3e 78 44 65 73 74 72 6f 79  pGroup->xDestroy
26a0: 28 70 47 72 6f 75 70 2d 3e 70 41 72 67 29 3b 0a  (pGroup->pArg);.
26b0: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65      sqlite3_free
26c0: 28 70 47 72 6f 75 70 29 3b 0a 20 20 7d 0a 7d 0a  (pGroup);.  }.}.
26d0: 0a 2f 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52  ./*.** Return TR
26e0: 55 45 20 69 66 20 73 74 72 69 6e 67 20 7a 20 6d  UE if string z m
26f0: 61 74 63 68 65 73 20 67 6c 6f 62 20 70 61 74 74  atches glob patt
2700: 65 72 6e 20 7a 47 6c 6f 62 2e 0a 2a 2a 0a 2a 2a  ern zGlob..**.**
2710: 20 47 6c 6f 62 62 69 6e 67 20 72 75 6c 65 73 3a   Globbing rules:
2720: 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 27 2a 27 20  .**.**      '*' 
2730: 20 20 20 20 20 20 4d 61 74 63 68 65 73 20 61 6e        Matches an
2740: 79 20 73 65 71 75 65 6e 63 65 20 6f 66 20 7a 65  y sequence of ze
2750: 72 6f 20 6f 72 20 6d 6f 72 65 20 63 68 61 72 61  ro or more chara
2760: 63 74 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20  cters..**.**    
2770: 20 20 27 3f 27 20 20 20 20 20 20 20 4d 61 74 63    '?'       Matc
2780: 68 65 73 20 65 78 61 63 74 6c 79 20 6f 6e 65 20  hes exactly one 
2790: 63 68 61 72 61 63 74 65 72 2e 0a 2a 2a 0a 2a 2a  character..**.**
27a0: 20 20 20 20 20 5b 2e 2e 2e 5d 20 20 20 20 20 20       [...]      
27b0: 4d 61 74 63 68 65 73 20 6f 6e 65 20 63 68 61 72  Matches one char
27c0: 61 63 74 65 72 20 66 72 6f 6d 20 74 68 65 20 65  acter from the e
27d0: 6e 63 6c 6f 73 65 64 20 6c 69 73 74 20 6f 66 0a  nclosed list of.
27e0: 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  **              
27f0: 20 20 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a    characters..**
2800: 0a 2a 2a 20 20 20 20 20 5b 5e 2e 2e 2e 5d 20 20  .**     [^...]  
2810: 20 20 20 4d 61 74 63 68 65 73 20 6f 6e 65 20 63     Matches one c
2820: 68 61 72 61 63 74 65 72 20 6e 6f 74 20 69 6e 20  haracter not in 
2830: 74 68 65 20 65 6e 63 6c 6f 73 65 64 20 6c 69 73  the enclosed lis
2840: 74 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 2f 20 20  t..**.**     /  
2850: 20 20 20 20 20 20 20 20 4d 61 74 63 68 65 73 20          Matches 
2860: 22 2f 22 20 6f 72 20 22 5c 5c 22 0a 2a 2a 0a 2a  "/" or "\\".**.*
2870: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 71 75 6f  /.static int quo
2880: 74 61 53 74 72 67 6c 6f 62 28 63 6f 6e 73 74 20  taStrglob(const 
2890: 63 68 61 72 20 2a 7a 47 6c 6f 62 2c 20 63 6f 6e  char *zGlob, con
28a0: 73 74 20 63 68 61 72 20 2a 7a 29 7b 0a 20 20 69  st char *z){.  i
28b0: 6e 74 20 63 2c 20 63 32 2c 20 63 78 3b 0a 20 20  nt c, c2, cx;.  
28c0: 69 6e 74 20 69 6e 76 65 72 74 3b 0a 20 20 69 6e  int invert;.  in
28d0: 74 20 73 65 65 6e 3b 0a 0a 20 20 77 68 69 6c 65  t seen;..  while
28e0: 28 20 28 63 20 3d 20 28 2a 28 7a 47 6c 6f 62 2b  ( (c = (*(zGlob+
28f0: 2b 29 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 69  +)))!=0 ){.    i
2900: 66 28 20 63 3d 3d 27 2a 27 20 29 7b 0a 20 20 20  f( c=='*' ){.   
2910: 20 20 20 77 68 69 6c 65 28 20 28 63 3d 28 2a 28     while( (c=(*(
2920: 7a 47 6c 6f 62 2b 2b 29 29 29 20 3d 3d 20 27 2a  zGlob++))) == '*
2930: 27 20 7c 7c 20 63 3d 3d 27 3f 27 20 29 7b 0a 20  ' || c=='?' ){. 
2940: 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d 27 3f         if( c=='?
2950: 27 20 26 26 20 28 2a 28 7a 2b 2b 29 29 3d 3d 30  ' && (*(z++))==0
2960: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20   ) return 0;.   
2970: 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 63     }.      if( c
2980: 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 72  ==0 ){.        r
2990: 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 20 20 7d  eturn 1;.      }
29a0: 65 6c 73 65 20 69 66 28 20 63 3d 3d 27 5b 27 20  else if( c=='[' 
29b0: 29 7b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65  ){.        while
29c0: 28 20 2a 7a 20 26 26 20 71 75 6f 74 61 53 74 72  ( *z && quotaStr
29d0: 67 6c 6f 62 28 7a 47 6c 6f 62 2d 31 2c 7a 29 3d  glob(zGlob-1,z)=
29e0: 3d 30 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  =0 ){.          
29f0: 7a 2b 2b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  z++;.        }. 
2a00: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 2a         return (*
2a10: 7a 29 21 3d 30 3b 0a 20 20 20 20 20 20 7d 0a 20  z)!=0;.      }. 
2a20: 20 20 20 20 20 63 78 20 3d 20 28 63 3d 3d 27 2f       cx = (c=='/
2a30: 27 29 20 3f 20 27 5c 5c 27 20 3a 20 63 3b 0a 20  ') ? '\\' : c;. 
2a40: 20 20 20 20 20 77 68 69 6c 65 28 20 28 63 32 20       while( (c2 
2a50: 3d 20 28 2a 28 7a 2b 2b 29 29 29 21 3d 30 20 29  = (*(z++)))!=0 )
2a60: 7b 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 28  {.        while(
2a70: 20 63 32 21 3d 63 20 26 26 20 63 32 21 3d 63 78   c2!=c && c2!=cx
2a80: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 63 32   ){.          c2
2a90: 20 3d 20 2a 28 7a 2b 2b 29 3b 0a 20 20 20 20 20   = *(z++);.     
2aa0: 20 20 20 20 20 69 66 28 20 63 32 3d 3d 30 20 29       if( c2==0 )
2ab0: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20   return 0;.     
2ac0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 28     }.        if(
2ad0: 20 71 75 6f 74 61 53 74 72 67 6c 6f 62 28 7a 47   quotaStrglob(zG
2ae0: 6c 6f 62 2c 7a 29 20 29 20 72 65 74 75 72 6e 20  lob,z) ) return 
2af0: 31 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  1;.      }.     
2b00: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d   return 0;.    }
2b10: 65 6c 73 65 20 69 66 28 20 63 3d 3d 27 3f 27 20  else if( c=='?' 
2b20: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 28 2a 28  ){.      if( (*(
2b30: 7a 2b 2b 29 29 3d 3d 30 20 29 20 72 65 74 75 72  z++))==0 ) retur
2b40: 6e 20 30 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69  n 0;.    }else i
2b50: 66 28 20 63 3d 3d 27 5b 27 20 29 7b 0a 20 20 20  f( c=='[' ){.   
2b60: 20 20 20 69 6e 74 20 70 72 69 6f 72 5f 63 20 3d     int prior_c =
2b70: 20 30 3b 0a 20 20 20 20 20 20 73 65 65 6e 20 3d   0;.      seen =
2b80: 20 30 3b 0a 20 20 20 20 20 20 69 6e 76 65 72 74   0;.      invert
2b90: 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 20 3d 20   = 0;.      c = 
2ba0: 2a 28 7a 2b 2b 29 3b 0a 20 20 20 20 20 20 69 66  *(z++);.      if
2bb0: 28 20 63 3d 3d 30 20 29 20 72 65 74 75 72 6e 20  ( c==0 ) return 
2bc0: 30 3b 0a 20 20 20 20 20 20 63 32 20 3d 20 2a 28  0;.      c2 = *(
2bd0: 7a 47 6c 6f 62 2b 2b 29 3b 0a 20 20 20 20 20 20  zGlob++);.      
2be0: 69 66 28 20 63 32 3d 3d 27 5e 27 20 29 7b 0a 20  if( c2=='^' ){. 
2bf0: 20 20 20 20 20 20 20 69 6e 76 65 72 74 20 3d 20         invert = 
2c00: 31 3b 0a 20 20 20 20 20 20 20 20 63 32 20 3d 20  1;.        c2 = 
2c10: 2a 28 7a 47 6c 6f 62 2b 2b 29 3b 0a 20 20 20 20  *(zGlob++);.    
2c20: 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20 63 32    }.      if( c2
2c30: 3d 3d 27 5d 27 20 29 7b 0a 20 20 20 20 20 20 20  ==']' ){.       
2c40: 20 69 66 28 20 63 3d 3d 27 5d 27 20 29 20 73 65   if( c==']' ) se
2c50: 65 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20  en = 1;.        
2c60: 63 32 20 3d 20 2a 28 7a 47 6c 6f 62 2b 2b 29 3b  c2 = *(zGlob++);
2c70: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 77  .      }.      w
2c80: 68 69 6c 65 28 20 63 32 20 26 26 20 63 32 21 3d  hile( c2 && c2!=
2c90: 27 5d 27 20 29 7b 0a 20 20 20 20 20 20 20 20 69  ']' ){.        i
2ca0: 66 28 20 63 32 3d 3d 27 2d 27 20 26 26 20 7a 47  f( c2=='-' && zG
2cb0: 6c 6f 62 5b 30 5d 21 3d 27 5d 27 20 26 26 20 7a  lob[0]!=']' && z
2cc0: 47 6c 6f 62 5b 30 5d 21 3d 30 20 26 26 20 70 72  Glob[0]!=0 && pr
2cd0: 69 6f 72 5f 63 3e 30 20 29 7b 0a 20 20 20 20 20  ior_c>0 ){.     
2ce0: 20 20 20 20 20 63 32 20 3d 20 2a 28 7a 47 6c 6f       c2 = *(zGlo
2cf0: 62 2b 2b 29 3b 0a 20 20 20 20 20 20 20 20 20 20  b++);.          
2d00: 69 66 28 20 63 3e 3d 70 72 69 6f 72 5f 63 20 26  if( c>=prior_c &
2d10: 26 20 63 3c 3d 63 32 20 29 20 73 65 65 6e 20 3d  & c<=c2 ) seen =
2d20: 20 31 3b 0a 20 20 20 20 20 20 20 20 20 20 70 72   1;.          pr
2d30: 69 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20 20  ior_c = 0;.     
2d40: 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20     }else{.      
2d50: 20 20 20 20 69 66 28 20 63 3d 3d 63 32 20 29 7b      if( c==c2 ){
2d60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 65  .            see
2d70: 6e 20 3d 20 31 3b 0a 20 20 20 20 20 20 20 20 20  n = 1;.         
2d80: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 70 72 69   }.          pri
2d90: 6f 72 5f 63 20 3d 20 63 32 3b 0a 20 20 20 20 20  or_c = c2;.     
2da0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 63 32 20     }.        c2 
2db0: 3d 20 2a 28 7a 47 6c 6f 62 2b 2b 29 3b 0a 20 20  = *(zGlob++);.  
2dc0: 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66 28 20      }.      if( 
2dd0: 63 32 3d 3d 30 20 7c 7c 20 28 73 65 65 6e 20 5e  c2==0 || (seen ^
2de0: 20 69 6e 76 65 72 74 29 3d 3d 30 20 29 20 72 65   invert)==0 ) re
2df0: 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 65 6c 73  turn 0;.    }els
2e00: 65 20 69 66 28 20 63 3d 3d 27 2f 27 20 29 7b 0a  e if( c=='/' ){.
2e10: 20 20 20 20 20 20 69 66 28 20 7a 5b 30 5d 21 3d        if( z[0]!=
2e20: 27 2f 27 20 26 26 20 7a 5b 30 5d 21 3d 27 5c 5c  '/' && z[0]!='\\
2e30: 27 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20  ' ) return 0;.  
2e40: 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20 7d 65 6c      z++;.    }el
2e50: 73 65 7b 0a 20 20 20 20 20 20 69 66 28 20 63 21  se{.      if( c!
2e60: 3d 28 2a 28 7a 2b 2b 29 29 20 29 20 72 65 74 75  =(*(z++)) ) retu
2e70: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a  rn 0;.    }.  }.
2e80: 20 20 72 65 74 75 72 6e 20 2a 7a 3d 3d 30 3b 0a    return *z==0;.
2e90: 7d 0a 0a 0a 2f 2a 20 46 69 6e 64 20 61 20 71 75  }.../* Find a qu
2ea0: 6f 74 61 47 72 6f 75 70 20 67 69 76 65 6e 20 74  otaGroup given t
2eb0: 68 65 20 66 69 6c 65 6e 61 6d 65 2e 0a 2a 2a 0a  he filename..**.
2ec0: 2a 2a 20 52 65 74 75 72 6e 20 61 20 70 6f 69 6e  ** Return a poin
2ed0: 74 65 72 20 74 6f 20 74 68 65 20 71 75 6f 74 61  ter to the quota
2ee0: 47 72 6f 75 70 20 6f 62 6a 65 63 74 2e 20 52 65  Group object. Re
2ef0: 74 75 72 6e 20 4e 55 4c 4c 20 69 66 20 6e 6f 74  turn NULL if not
2f00: 20 66 6f 75 6e 64 2e 0a 2a 2f 0a 73 74 61 74 69   found..*/.stati
2f10: 63 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 71 75  c quotaGroup *qu
2f20: 6f 74 61 47 72 6f 75 70 46 69 6e 64 28 63 6f 6e  otaGroupFind(con
2f30: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  st char *zFilena
2f40: 6d 65 29 7b 0a 20 20 71 75 6f 74 61 47 72 6f 75  me){.  quotaGrou
2f50: 70 20 2a 70 3b 0a 20 20 66 6f 72 28 70 3d 67 51  p *p;.  for(p=gQ
2f60: 75 6f 74 61 2e 70 47 72 6f 75 70 3b 20 70 20 26  uota.pGroup; p &
2f70: 26 20 71 75 6f 74 61 53 74 72 67 6c 6f 62 28 70  & quotaStrglob(p
2f80: 2d 3e 7a 50 61 74 74 65 72 6e 2c 20 7a 46 69 6c  ->zPattern, zFil
2f90: 65 6e 61 6d 65 29 3d 3d 30 3b 0a 20 20 20 20 20  ename)==0;.     
2fa0: 20 70 3d 70 2d 3e 70 4e 65 78 74 29 7b 7d 0a 20   p=p->pNext){}. 
2fb0: 20 72 65 74 75 72 6e 20 70 3b 0a 7d 0a 0a 2f 2a   return p;.}../*
2fc0: 20 54 72 61 6e 73 6c 61 74 65 20 61 6e 20 73 71   Translate an sq
2fd0: 6c 69 74 65 33 5f 66 69 6c 65 2a 20 74 68 61 74  lite3_file* that
2fe0: 20 69 73 20 72 65 61 6c 6c 79 20 61 20 71 75 6f   is really a quo
2ff0: 74 61 43 6f 6e 6e 2a 20 69 6e 74 6f 0a 2a 2a 20  taConn* into.** 
3000: 74 68 65 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  the sqlite3_file
3010: 2a 20 66 6f 72 20 74 68 65 20 75 6e 64 65 72 6c  * for the underl
3020: 79 69 6e 67 20 6f 72 69 67 69 6e 61 6c 20 56 46  ying original VF
3030: 53 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 73 71 6c  S..*/.static sql
3040: 69 74 65 33 5f 66 69 6c 65 20 2a 71 75 6f 74 61  ite3_file *quota
3050: 53 75 62 4f 70 65 6e 28 73 71 6c 69 74 65 33 5f  SubOpen(sqlite3_
3060: 66 69 6c 65 20 2a 70 43 6f 6e 6e 29 7b 0a 20 20  file *pConn){.  
3070: 71 75 6f 74 61 43 6f 6e 6e 20 2a 70 20 3d 20 28  quotaConn *p = (
3080: 71 75 6f 74 61 43 6f 6e 6e 2a 29 70 43 6f 6e 6e  quotaConn*)pConn
3090: 3b 0a 20 20 72 65 74 75 72 6e 20 28 73 71 6c 69  ;.  return (sqli
30a0: 74 65 33 5f 66 69 6c 65 2a 29 26 70 5b 31 5d 3b  te3_file*)&p[1];
30b0: 0a 7d 0a 0a 2f 2a 20 46 69 6e 64 20 61 20 66 69  .}../* Find a fi
30c0: 6c 65 20 69 6e 20 61 20 71 75 6f 74 61 20 67 72  le in a quota gr
30d0: 6f 75 70 20 61 6e 64 20 72 65 74 75 72 6e 20 61  oup and return a
30e0: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 61 74   pointer to that
30f0: 20 66 69 6c 65 2e 0a 2a 2a 20 52 65 74 75 72 6e   file..** Return
3100: 20 4e 55 4c 4c 20 69 66 20 74 68 65 20 66 69 6c   NULL if the fil
3110: 65 20 69 73 20 6e 6f 74 20 69 6e 20 74 68 65 20  e is not in the 
3120: 67 72 6f 75 70 2e 0a 2a 2f 0a 73 74 61 74 69 63  group..*/.static
3130: 20 71 75 6f 74 61 46 69 6c 65 20 2a 71 75 6f 74   quotaFile *quot
3140: 61 46 69 6e 64 46 69 6c 65 28 0a 20 20 71 75 6f  aFindFile(.  quo
3150: 74 61 47 72 6f 75 70 20 2a 70 47 72 6f 75 70 2c  taGroup *pGroup,
3160: 20 20 20 20 20 2f 2a 20 47 72 6f 75 70 20 69 6e       /* Group in
3170: 20 77 68 69 63 68 20 74 6f 20 6c 6f 6f 6b 20 66   which to look f
3180: 6f 72 20 74 68 65 20 66 69 6c 65 20 2a 2f 0a 20  or the file */. 
3190: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61   const char *zNa
31a0: 6d 65 2c 20 20 20 20 20 20 2f 2a 20 46 75 6c 6c  me,      /* Full
31b0: 20 70 61 74 68 6e 61 6d 65 20 6f 66 20 74 68 65   pathname of the
31c0: 20 66 69 6c 65 20 2a 2f 0a 20 20 69 6e 74 20 63   file */.  int c
31d0: 72 65 61 74 65 46 6c 61 67 20 20 20 20 20 20 20  reateFlag       
31e0: 20 20 20 2f 2a 20 54 72 79 20 74 6f 20 63 72 65     /* Try to cre
31f0: 61 74 65 20 74 68 65 20 66 69 6c 65 20 69 66 20  ate the file if 
3200: 6e 6f 74 20 66 6f 75 6e 64 20 2a 2f 0a 29 7b 0a  not found */.){.
3210: 20 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69    quotaFile *pFi
3220: 6c 65 20 3d 20 70 47 72 6f 75 70 2d 3e 70 46 69  le = pGroup->pFi
3230: 6c 65 73 3b 0a 20 20 77 68 69 6c 65 28 20 70 46  les;.  while( pF
3240: 69 6c 65 20 26 26 20 73 74 72 63 6d 70 28 70 46  ile && strcmp(pF
3250: 69 6c 65 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20  ile->zFilename, 
3260: 7a 4e 61 6d 65 29 21 3d 30 20 29 7b 0a 20 20 20  zName)!=0 ){.   
3270: 20 70 46 69 6c 65 20 3d 20 70 46 69 6c 65 2d 3e   pFile = pFile->
3280: 70 4e 65 78 74 3b 0a 20 20 7d 0a 20 20 69 66 28  pNext;.  }.  if(
3290: 20 70 46 69 6c 65 3d 3d 30 20 26 26 20 63 72 65   pFile==0 && cre
32a0: 61 74 65 46 6c 61 67 20 29 7b 0a 20 20 20 20 69  ateFlag ){.    i
32b0: 6e 74 20 6e 4e 61 6d 65 20 3d 20 28 69 6e 74 29  nt nName = (int)
32c0: 28 73 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 20 26  (strlen(zName) &
32d0: 20 30 78 33 66 66 66 66 66 66 66 29 3b 0a 20 20   0x3fffffff);.  
32e0: 20 20 70 46 69 6c 65 20 3d 20 28 71 75 6f 74 61    pFile = (quota
32f0: 46 69 6c 65 20 2a 29 73 71 6c 69 74 65 33 5f 6d  File *)sqlite3_m
3300: 61 6c 6c 6f 63 28 20 73 69 7a 65 6f 66 28 2a 70  alloc( sizeof(*p
3310: 46 69 6c 65 29 20 2b 20 6e 4e 61 6d 65 20 2b 20  File) + nName + 
3320: 31 20 29 3b 0a 20 20 20 20 69 66 28 20 70 46 69  1 );.    if( pFi
3330: 6c 65 20 29 7b 0a 20 20 20 20 20 20 6d 65 6d 73  le ){.      mems
3340: 65 74 28 70 46 69 6c 65 2c 20 30 2c 20 73 69 7a  et(pFile, 0, siz
3350: 65 6f 66 28 2a 70 46 69 6c 65 29 29 3b 0a 20 20  eof(*pFile));.  
3360: 20 20 20 20 70 46 69 6c 65 2d 3e 7a 46 69 6c 65      pFile->zFile
3370: 6e 61 6d 65 20 3d 20 28 63 68 61 72 2a 29 26 70  name = (char*)&p
3380: 46 69 6c 65 5b 31 5d 3b 0a 20 20 20 20 20 20 6d  File[1];.      m
3390: 65 6d 63 70 79 28 70 46 69 6c 65 2d 3e 7a 46 69  emcpy(pFile->zFi
33a0: 6c 65 6e 61 6d 65 2c 20 7a 4e 61 6d 65 2c 20 6e  lename, zName, n
33b0: 4e 61 6d 65 2b 31 29 3b 0a 20 20 20 20 20 20 70  Name+1);.      p
33c0: 46 69 6c 65 2d 3e 70 4e 65 78 74 20 3d 20 70 47  File->pNext = pG
33d0: 72 6f 75 70 2d 3e 70 46 69 6c 65 73 3b 0a 20 20  roup->pFiles;.  
33e0: 20 20 20 20 69 66 28 20 70 47 72 6f 75 70 2d 3e      if( pGroup->
33f0: 70 46 69 6c 65 73 20 29 20 70 47 72 6f 75 70 2d  pFiles ) pGroup-
3400: 3e 70 46 69 6c 65 73 2d 3e 70 70 50 72 65 76 20  >pFiles->ppPrev 
3410: 3d 20 26 70 46 69 6c 65 2d 3e 70 4e 65 78 74 3b  = &pFile->pNext;
3420: 0a 20 20 20 20 20 20 70 46 69 6c 65 2d 3e 70 70  .      pFile->pp
3430: 50 72 65 76 20 3d 20 26 70 47 72 6f 75 70 2d 3e  Prev = &pGroup->
3440: 70 46 69 6c 65 73 3b 0a 20 20 20 20 20 20 70 47  pFiles;.      pG
3450: 72 6f 75 70 2d 3e 70 46 69 6c 65 73 20 3d 20 70  roup->pFiles = p
3460: 46 69 6c 65 3b 0a 20 20 20 20 20 20 70 46 69 6c  File;.      pFil
3470: 65 2d 3e 70 47 72 6f 75 70 20 3d 20 70 47 72 6f  e->pGroup = pGro
3480: 75 70 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20  up;.    }.  }.  
3490: 72 65 74 75 72 6e 20 70 46 69 6c 65 3b 0a 7d 0a  return pFile;.}.
34a0: 2f 2a 0a 2a 2a 20 54 72 61 6e 73 6c 61 74 65 20  /*.** Translate 
34b0: 55 54 46 38 20 74 6f 20 4d 42 43 53 20 66 6f 72  UTF8 to MBCS for
34c0: 20 75 73 65 20 69 6e 20 66 6f 70 65 6e 28 29 20   use in fopen() 
34d0: 63 61 6c 6c 73 2e 20 20 52 65 74 75 72 6e 20 61  calls.  Return a
34e0: 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68 65 0a   pointer to the.
34f0: 2a 2a 20 74 72 61 6e 73 6c 61 74 65 64 20 74 65  ** translated te
3500: 78 74 2e 2e 20 20 43 61 6c 6c 20 71 75 6f 74 61  xt..  Call quota
3510: 5f 6d 62 63 73 5f 66 72 65 65 28 29 20 74 6f 20  _mbcs_free() to 
3520: 64 65 61 6c 6c 6f 63 61 74 65 20 61 6e 79 20 6d  deallocate any m
3530: 65 6d 6f 72 79 0a 2a 2a 20 75 73 65 64 20 74 6f  emory.** used to
3540: 20 73 74 6f 72 65 20 74 68 65 20 72 65 74 75 72   store the retur
3550: 6e 65 64 20 70 6f 69 6e 74 65 72 20 77 68 65 6e  ned pointer when
3560: 20 64 6f 6e 65 2e 0a 2a 2f 0a 73 74 61 74 69 63   done..*/.static
3570: 20 63 68 61 72 20 2a 71 75 6f 74 61 5f 75 74 66   char *quota_utf
3580: 38 5f 74 6f 5f 6d 62 63 73 28 63 6f 6e 73 74 20  8_to_mbcs(const 
3590: 63 68 61 72 20 2a 7a 55 74 66 38 29 7b 0a 23 69  char *zUtf8){.#i
35a0: 66 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a  f SQLITE_OS_WIN.
35b0: 20 20 73 69 7a 65 5f 74 20 6e 3b 20 20 20 20 20    size_t n;     
35c0: 20 20 20 20 20 2f 2a 20 42 79 74 65 73 20 69 6e       /* Bytes in
35d0: 20 7a 55 74 66 38 20 2a 2f 0a 20 20 69 6e 74 20   zUtf8 */.  int 
35e0: 6e 57 69 64 65 3b 20 20 20 20 20 20 20 20 20 2f  nWide;         /
35f0: 2a 20 6e 75 6d 62 65 72 20 6f 66 20 55 54 46 2d  * number of UTF-
3600: 31 36 20 63 68 61 72 61 63 74 65 72 73 20 2a 2f  16 characters */
3610: 0a 20 20 69 6e 74 20 6e 4d 62 63 73 3b 20 20 20  .  int nMbcs;   
3620: 20 20 20 20 20 20 2f 2a 20 42 79 74 65 73 20 6f        /* Bytes o
3630: 66 20 4d 42 43 53 20 2a 2f 0a 20 20 4c 50 57 53  f MBCS */.  LPWS
3640: 54 52 20 7a 54 6d 70 57 69 64 65 3b 20 20 20 2f  TR zTmpWide;   /
3650: 2a 20 54 68 65 20 55 54 46 31 36 20 74 65 78 74  * The UTF16 text
3660: 20 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 4d 62 63   */.  char *zMbc
3670: 73 3b 20 20 20 20 20 20 20 2f 2a 20 54 68 65 20  s;       /* The 
3680: 4d 42 43 53 20 74 65 78 74 20 2a 2f 0a 20 20 69  MBCS text */.  i
3690: 6e 74 20 63 6f 64 65 70 61 67 65 3b 20 20 20 20  nt codepage;    
36a0: 20 20 2f 2a 20 43 6f 64 65 20 70 61 67 65 20 75    /* Code page u
36b0: 73 65 64 20 62 79 20 66 6f 70 65 6e 28 29 20 2a  sed by fopen() *
36c0: 2f 0a 0a 20 20 6e 20 3d 20 73 74 72 6c 65 6e 28  /..  n = strlen(
36d0: 7a 55 74 66 38 29 3b 0a 20 20 6e 57 69 64 65 20  zUtf8);.  nWide 
36e0: 3d 20 4d 75 6c 74 69 42 79 74 65 54 6f 57 69 64  = MultiByteToWid
36f0: 65 43 68 61 72 28 43 50 5f 55 54 46 38 2c 20 30  eChar(CP_UTF8, 0
3700: 2c 20 7a 55 74 66 38 2c 20 2d 31 2c 20 4e 55 4c  , zUtf8, -1, NUL
3710: 4c 2c 20 30 29 3b 0a 20 20 69 66 28 20 6e 57 69  L, 0);.  if( nWi
3720: 64 65 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30  de==0 ) return 0
3730: 3b 0a 20 20 7a 54 6d 70 57 69 64 65 20 3d 20 28  ;.  zTmpWide = (
3740: 4c 50 57 53 54 52 29 73 71 6c 69 74 65 33 5f 6d  LPWSTR)sqlite3_m
3750: 61 6c 6c 6f 63 28 20 28 6e 57 69 64 65 2b 31 29  alloc( (nWide+1)
3760: 2a 73 69 7a 65 6f 66 28 7a 54 6d 70 57 69 64 65  *sizeof(zTmpWide
3770: 5b 30 5d 29 20 29 3b 0a 20 20 69 66 28 20 7a 54  [0]) );.  if( zT
3780: 6d 70 57 69 64 65 3d 3d 30 20 29 20 72 65 74 75  mpWide==0 ) retu
3790: 72 6e 20 30 3b 0a 20 20 4d 75 6c 74 69 42 79 74  rn 0;.  MultiByt
37a0: 65 54 6f 57 69 64 65 43 68 61 72 28 43 50 5f 55  eToWideChar(CP_U
37b0: 54 46 38 2c 20 30 2c 20 7a 55 74 66 38 2c 20 2d  TF8, 0, zUtf8, -
37c0: 31 2c 20 7a 54 6d 70 57 69 64 65 2c 20 6e 57 69  1, zTmpWide, nWi
37d0: 64 65 29 3b 0a 20 20 63 6f 64 65 70 61 67 65 20  de);.  codepage 
37e0: 3d 20 41 72 65 46 69 6c 65 41 70 69 73 41 4e 53  = AreFileApisANS
37f0: 49 28 29 20 3f 20 43 50 5f 41 43 50 20 3a 20 43  I() ? CP_ACP : C
3800: 50 5f 4f 45 4d 43 50 3b 0a 20 20 6e 4d 62 63 73  P_OEMCP;.  nMbcs
3810: 20 3d 20 57 69 64 65 43 68 61 72 54 6f 4d 75 6c   = WideCharToMul
3820: 74 69 42 79 74 65 28 63 6f 64 65 70 61 67 65 2c  tiByte(codepage,
3830: 20 30 2c 20 7a 54 6d 70 57 69 64 65 2c 20 6e 57   0, zTmpWide, nW
3840: 69 64 65 2c 20 30 2c 20 30 2c 20 30 2c 20 30 29  ide, 0, 0, 0, 0)
3850: 3b 0a 20 20 7a 4d 62 63 73 20 3d 20 6e 4d 62 63  ;.  zMbcs = nMbc
3860: 73 20 3f 20 28 63 68 61 72 2a 29 73 71 6c 69 74  s ? (char*)sqlit
3870: 65 33 5f 6d 61 6c 6c 6f 63 28 20 6e 4d 62 63 73  e3_malloc( nMbcs
3880: 2b 31 20 29 20 3a 20 30 3b 0a 20 20 69 66 28 20  +1 ) : 0;.  if( 
3890: 7a 4d 62 63 73 20 29 7b 0a 20 20 20 20 57 69 64  zMbcs ){.    Wid
38a0: 65 43 68 61 72 54 6f 4d 75 6c 74 69 42 79 74 65  eCharToMultiByte
38b0: 28 63 6f 64 65 70 61 67 65 2c 20 30 2c 20 7a 54  (codepage, 0, zT
38c0: 6d 70 57 69 64 65 2c 20 6e 57 69 64 65 2c 20 7a  mpWide, nWide, z
38d0: 4d 62 63 73 2c 20 6e 4d 62 63 73 2c 20 30 2c 20  Mbcs, nMbcs, 0, 
38e0: 30 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65  0);.  }.  sqlite
38f0: 33 5f 66 72 65 65 28 7a 54 6d 70 57 69 64 65 29  3_free(zTmpWide)
3900: 3b 0a 20 20 72 65 74 75 72 6e 20 7a 4d 62 63 73  ;.  return zMbcs
3910: 3b 0a 23 65 6c 73 65 0a 20 20 72 65 74 75 72 6e  ;.#else.  return
3920: 20 28 63 68 61 72 2a 29 7a 55 74 66 38 3b 20 20   (char*)zUtf8;  
3930: 2f 2a 20 4e 6f 2d 6f 70 20 6f 6e 20 75 6e 69 78  /* No-op on unix
3940: 20 2a 2f 0a 23 65 6e 64 69 66 20 20 0a 7d 0a 0a   */.#endif  .}..
3950: 2f 2a 0a 2a 2a 20 44 65 61 6c 6c 6f 63 61 74 65  /*.** Deallocate
3960: 20 61 6e 79 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f   any memory allo
3970: 63 61 74 65 64 20 62 79 20 71 75 6f 74 61 5f 75  cated by quota_u
3980: 74 66 38 5f 74 6f 5f 6d 62 63 73 28 29 2e 0a 2a  tf8_to_mbcs()..*
3990: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 71 75  /.static void qu
39a0: 6f 74 61 5f 6d 62 63 73 5f 66 72 65 65 28 63 68  ota_mbcs_free(ch
39b0: 61 72 20 2a 7a 4f 6c 64 29 7b 0a 23 69 66 20 53  ar *zOld){.#if S
39c0: 51 4c 49 54 45 5f 4f 53 5f 57 49 4e 0a 20 20 73  QLITE_OS_WIN.  s
39d0: 71 6c 69 74 65 33 5f 66 72 65 65 28 7a 4f 6c 64  qlite3_free(zOld
39e0: 29 3b 0a 23 65 6c 73 65 0a 20 20 2f 2a 20 4e 6f  );.#else.  /* No
39f0: 2d 6f 70 20 6f 6e 20 75 6e 69 78 20 2a 2f 0a 23  -op on unix */.#
3a00: 65 6e 64 69 66 20 20 0a 7d 0a 0a 2f 2a 2a 2a 2a  endif  .}../****
3a10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3a20: 2a 2a 2a 2a 2a 20 56 46 53 20 4d 65 74 68 6f 64  ***** VFS Method
3a30: 20 57 72 61 70 70 65 72 73 20 2a 2a 2a 2a 2a 2a   Wrappers ******
3a40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3a50: 2a 2a 2a 2a 2a 2a 2a 2f 0a 2f 2a 0a 2a 2a 20 54  *******/./*.** T
3a60: 68 69 73 20 69 73 20 74 68 65 20 78 4f 70 65 6e  his is the xOpen
3a70: 20 6d 65 74 68 6f 64 20 75 73 65 64 20 66 6f 72   method used for
3a80: 20 74 68 65 20 22 71 75 6f 74 61 22 20 56 46 53   the "quota" VFS
3a90: 2e 0a 2a 2a 0a 2a 2a 20 4d 6f 73 74 20 6f 66 20  ..**.** Most of 
3aa0: 74 68 65 20 77 6f 72 6b 20 69 73 20 64 6f 6e 65  the work is done
3ab0: 20 62 79 20 74 68 65 20 75 6e 64 65 72 6c 79 69   by the underlyi
3ac0: 6e 67 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 2e  ng original VFS.
3ad0: 20 20 54 68 69 73 20 6d 65 74 68 6f 64 0a 2a 2a    This method.**
3ae0: 20 73 69 6d 70 6c 79 20 6c 69 6e 6b 73 20 74 68   simply links th
3af0: 65 20 6e 65 77 20 66 69 6c 65 20 69 6e 74 6f 20  e new file into 
3b00: 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20  the appropriate 
3b10: 71 75 6f 74 61 20 67 72 6f 75 70 20 69 66 20 69  quota group if i
3b20: 74 20 69 73 20 61 0a 2a 2a 20 66 69 6c 65 20 74  t is a.** file t
3b30: 68 61 74 20 6e 65 65 64 73 20 74 6f 20 62 65 20  hat needs to be 
3b40: 74 72 61 63 6b 65 64 2e 0a 2a 2f 0a 73 74 61 74  tracked..*/.stat
3b50: 69 63 20 69 6e 74 20 71 75 6f 74 61 4f 70 65 6e  ic int quotaOpen
3b60: 28 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20  (.  sqlite3_vfs 
3b70: 2a 70 56 66 73 2c 20 20 20 20 20 20 20 20 20 20  *pVfs,          
3b80: 2f 2a 20 54 68 65 20 71 75 6f 74 61 20 56 46 53  /* The quota VFS
3b90: 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72   */.  const char
3ba0: 20 2a 7a 4e 61 6d 65 2c 20 20 20 20 20 20 20 20   *zName,        
3bb0: 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 66 69 6c    /* Name of fil
3bc0: 65 20 74 6f 20 62 65 20 6f 70 65 6e 65 64 20 2a  e to be opened *
3bd0: 2f 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  /.  sqlite3_file
3be0: 20 2a 70 43 6f 6e 6e 2c 20 20 20 20 20 20 20 20   *pConn,        
3bf0: 2f 2a 20 46 69 6c 6c 20 69 6e 20 74 68 69 73 20  /* Fill in this 
3c00: 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f 72 20  file descriptor 
3c10: 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67 73 2c 20  */.  int flags, 
3c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3c30: 20 2f 2a 20 46 6c 61 67 73 20 74 6f 20 63 6f 6e   /* Flags to con
3c40: 74 72 6f 6c 20 74 68 65 20 6f 70 65 6e 69 6e 67  trol the opening
3c50: 20 2a 2f 0a 20 20 69 6e 74 20 2a 70 4f 75 74 46   */.  int *pOutF
3c60: 6c 61 67 73 20 20 20 20 20 20 20 20 20 20 20 20  lags            
3c70: 20 20 2f 2a 20 46 6c 61 67 73 20 73 68 6f 77 69    /* Flags showi
3c80: 6e 67 20 72 65 73 75 6c 74 73 20 6f 66 20 6f 70  ng results of op
3c90: 65 6e 69 6e 67 20 2a 2f 0a 29 7b 0a 20 20 69 6e  ening */.){.  in
3ca0: 74 20 72 63 3b 20 20 20 20 20 20 20 20 20 20 20  t rc;           
3cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3cc0: 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75           /* Resu
3cd0: 6c 74 20 63 6f 64 65 20 2a 2f 20 20 20 20 20 20  lt code */      
3ce0: 20 20 20 0a 20 20 71 75 6f 74 61 43 6f 6e 6e 20     .  quotaConn 
3cf0: 2a 70 51 75 6f 74 61 4f 70 65 6e 3b 20 20 20 20  *pQuotaOpen;    
3d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3d10: 20 2f 2a 20 54 68 65 20 6e 65 77 20 71 75 6f 74   /* The new quot
3d20: 61 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f  a file descripto
3d30: 72 20 2a 2f 0a 20 20 71 75 6f 74 61 46 69 6c 65  r */.  quotaFile
3d40: 20 2a 70 46 69 6c 65 3b 20 20 20 20 20 20 20 20   *pFile;        
3d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3d60: 20 20 2f 2a 20 43 6f 72 72 65 73 70 6f 6e 64 69    /* Correspondi
3d70: 6e 67 20 71 75 6f 74 61 46 69 6c 65 20 6f 62 6a  ng quotaFile obj
3d80: 20 2a 2f 0a 20 20 71 75 6f 74 61 47 72 6f 75 70   */.  quotaGroup
3d90: 20 2a 70 47 72 6f 75 70 3b 20 20 20 20 20 20 20   *pGroup;       
3da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3db0: 20 2f 2a 20 54 68 65 20 67 72 6f 75 70 20 66 69   /* The group fi
3dc0: 6c 65 20 62 65 6c 6f 6e 67 73 20 74 6f 20 2a 2f  le belongs to */
3dd0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
3de0: 2a 70 53 75 62 4f 70 65 6e 3b 20 20 20 20 20 20  *pSubOpen;      
3df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
3e00: 20 52 65 61 6c 20 66 69 6c 65 20 64 65 73 63 72   Real file descr
3e10: 69 70 74 6f 72 20 2a 2f 0a 20 20 73 71 6c 69 74  iptor */.  sqlit
3e20: 65 33 5f 76 66 73 20 2a 70 4f 72 69 67 56 66 73  e3_vfs *pOrigVfs
3e30: 20 3d 20 67 51 75 6f 74 61 2e 70 4f 72 69 67 56   = gQuota.pOrigV
3e40: 66 73 3b 20 20 20 2f 2a 20 52 65 61 6c 20 56 46  fs;   /* Real VF
3e50: 53 20 2a 2f 0a 0a 20 20 2f 2a 20 49 66 20 74 68  S */..  /* If th
3e60: 65 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 61 20  e file is not a 
3e70: 6d 61 69 6e 20 64 61 74 61 62 61 73 65 20 66 69  main database fi
3e80: 6c 65 20 6f 72 20 61 20 57 41 4c 2c 20 74 68 65  le or a WAL, the
3e90: 6e 20 75 73 65 20 74 68 65 0a 20 20 2a 2a 20 6e  n use the.  ** n
3ea0: 6f 72 6d 61 6c 20 78 4f 70 65 6e 20 6d 65 74 68  ormal xOpen meth
3eb0: 6f 64 2e 0a 20 20 2a 2f 0a 20 20 69 66 28 20 28  od..  */.  if( (
3ec0: 66 6c 61 67 73 20 26 20 28 53 51 4c 49 54 45 5f  flags & (SQLITE_
3ed0: 4f 50 45 4e 5f 4d 41 49 4e 5f 44 42 7c 53 51 4c  OPEN_MAIN_DB|SQL
3ee0: 49 54 45 5f 4f 50 45 4e 5f 57 41 4c 29 29 3d 3d  ITE_OPEN_WAL))==
3ef0: 30 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20  0 ){.    return 
3f00: 70 4f 72 69 67 56 66 73 2d 3e 78 4f 70 65 6e 28  pOrigVfs->xOpen(
3f10: 70 4f 72 69 67 56 66 73 2c 20 7a 4e 61 6d 65 2c  pOrigVfs, zName,
3f20: 20 70 43 6f 6e 6e 2c 20 66 6c 61 67 73 2c 20 70   pConn, flags, p
3f30: 4f 75 74 46 6c 61 67 73 29 3b 0a 20 20 7d 0a 0a  OutFlags);.  }..
3f40: 20 20 2f 2a 20 49 66 20 74 68 65 20 6e 61 6d 65    /* If the name
3f50: 20 6f 66 20 74 68 65 20 66 69 6c 65 20 64 6f 65   of the file doe
3f60: 73 20 6e 6f 74 20 6d 61 74 63 68 20 61 6e 79 20  s not match any 
3f70: 71 75 6f 74 61 20 67 72 6f 75 70 2c 20 74 68 65  quota group, the
3f80: 6e 0a 20 20 2a 2a 20 75 73 65 20 74 68 65 20 6e  n.  ** use the n
3f90: 6f 72 6d 61 6c 20 78 4f 70 65 6e 20 6d 65 74 68  ormal xOpen meth
3fa0: 6f 64 2e 0a 20 20 2a 2f 0a 20 20 71 75 6f 74 61  od..  */.  quota
3fb0: 45 6e 74 65 72 28 29 3b 0a 20 20 70 47 72 6f 75  Enter();.  pGrou
3fc0: 70 20 3d 20 71 75 6f 74 61 47 72 6f 75 70 46 69  p = quotaGroupFi
3fd0: 6e 64 28 7a 4e 61 6d 65 29 3b 0a 20 20 69 66 28  nd(zName);.  if(
3fe0: 20 70 47 72 6f 75 70 3d 3d 30 20 29 7b 0a 20 20   pGroup==0 ){.  
3ff0: 20 20 72 63 20 3d 20 70 4f 72 69 67 56 66 73 2d    rc = pOrigVfs-
4000: 3e 78 4f 70 65 6e 28 70 4f 72 69 67 56 66 73 2c  >xOpen(pOrigVfs,
4010: 20 7a 4e 61 6d 65 2c 20 70 43 6f 6e 6e 2c 20 66   zName, pConn, f
4020: 6c 61 67 73 2c 20 70 4f 75 74 46 6c 61 67 73 29  lags, pOutFlags)
4030: 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 2f  ;.  }else{.    /
4040: 2a 20 49 66 20 77 65 20 67 65 74 20 74 6f 20 74  * If we get to t
4050: 68 69 73 20 70 6f 69 6e 74 2c 20 69 74 20 6d 65  his point, it me
4060: 61 6e 73 20 74 68 65 20 66 69 6c 65 20 6e 65 65  ans the file nee
4070: 64 73 20 74 6f 20 62 65 20 71 75 6f 74 61 20 74  ds to be quota t
4080: 72 61 63 6b 65 64 2e 0a 20 20 20 20 2a 2f 0a 20  racked..    */. 
4090: 20 20 20 70 51 75 6f 74 61 4f 70 65 6e 20 3d 20     pQuotaOpen = 
40a0: 28 71 75 6f 74 61 43 6f 6e 6e 2a 29 70 43 6f 6e  (quotaConn*)pCon
40b0: 6e 3b 0a 20 20 20 20 70 53 75 62 4f 70 65 6e 20  n;.    pSubOpen 
40c0: 3d 20 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70  = quotaSubOpen(p
40d0: 43 6f 6e 6e 29 3b 0a 20 20 20 20 72 63 20 3d 20  Conn);.    rc = 
40e0: 70 4f 72 69 67 56 66 73 2d 3e 78 4f 70 65 6e 28  pOrigVfs->xOpen(
40f0: 70 4f 72 69 67 56 66 73 2c 20 7a 4e 61 6d 65 2c  pOrigVfs, zName,
4100: 20 70 53 75 62 4f 70 65 6e 2c 20 66 6c 61 67 73   pSubOpen, flags
4110: 2c 20 70 4f 75 74 46 6c 61 67 73 29 3b 0a 20 20  , pOutFlags);.  
4120: 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45    if( rc==SQLITE
4130: 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 70 46 69  _OK ){.      pFi
4140: 6c 65 20 3d 20 71 75 6f 74 61 46 69 6e 64 46 69  le = quotaFindFi
4150: 6c 65 28 70 47 72 6f 75 70 2c 20 7a 4e 61 6d 65  le(pGroup, zName
4160: 2c 20 31 29 3b 0a 20 20 20 20 20 20 69 66 28 20  , 1);.      if( 
4170: 70 46 69 6c 65 3d 3d 30 20 29 7b 0a 20 20 20 20  pFile==0 ){.    
4180: 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29      quotaLeave()
4190: 3b 0a 20 20 20 20 20 20 20 20 70 53 75 62 4f 70  ;.        pSubOp
41a0: 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 43  en->pMethods->xC
41b0: 6c 6f 73 65 28 70 53 75 62 4f 70 65 6e 29 3b 0a  lose(pSubOpen);.
41c0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 53          return S
41d0: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20  QLITE_NOMEM;.   
41e0: 20 20 20 7d 0a 20 20 20 20 20 20 70 46 69 6c 65     }.      pFile
41f0: 2d 3e 64 65 6c 65 74 65 4f 6e 43 6c 6f 73 65 20  ->deleteOnClose 
4200: 3d 20 28 66 6c 61 67 73 20 26 20 53 51 4c 49 54  = (flags & SQLIT
4210: 45 5f 4f 50 45 4e 5f 44 45 4c 45 54 45 4f 4e 43  E_OPEN_DELETEONC
4220: 4c 4f 53 45 29 21 3d 30 3b 0a 20 20 20 20 20 20  LOSE)!=0;.      
4230: 70 46 69 6c 65 2d 3e 6e 52 65 66 2b 2b 3b 0a 20  pFile->nRef++;. 
4240: 20 20 20 20 20 70 51 75 6f 74 61 4f 70 65 6e 2d       pQuotaOpen-
4250: 3e 70 46 69 6c 65 20 3d 20 70 46 69 6c 65 3b 0a  >pFile = pFile;.
4260: 20 20 20 20 20 20 69 66 28 20 70 53 75 62 4f 70        if( pSubOp
4270: 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 69 56  en->pMethods->iV
4280: 65 72 73 69 6f 6e 3d 3d 31 20 29 7b 0a 20 20 20  ersion==1 ){.   
4290: 20 20 20 20 20 70 51 75 6f 74 61 4f 70 65 6e 2d       pQuotaOpen-
42a0: 3e 62 61 73 65 2e 70 4d 65 74 68 6f 64 73 20 3d  >base.pMethods =
42b0: 20 26 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68   &gQuota.sIoMeth
42c0: 6f 64 73 56 31 3b 0a 20 20 20 20 20 20 7d 65 6c  odsV1;.      }el
42d0: 73 65 7b 0a 20 20 20 20 20 20 20 20 70 51 75 6f  se{.        pQuo
42e0: 74 61 4f 70 65 6e 2d 3e 62 61 73 65 2e 70 4d 65  taOpen->base.pMe
42f0: 74 68 6f 64 73 20 3d 20 26 67 51 75 6f 74 61 2e  thods = &gQuota.
4300: 73 49 6f 4d 65 74 68 6f 64 73 56 32 3b 0a 20 20  sIoMethodsV2;.  
4310: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a      }.    }.  }.
4320: 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29 3b 0a    quotaLeave();.
4330: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
4340: 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 74 68  /*.** This is th
4350: 65 20 78 44 65 6c 65 74 65 20 6d 65 74 68 6f 64  e xDelete method
4360: 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 22 71   used for the "q
4370: 75 6f 74 61 22 20 56 46 53 2e 0a 2a 2a 0a 2a 2a  uota" VFS..**.**
4380: 20 49 66 20 74 68 65 20 66 69 6c 65 20 62 65 69   If the file bei
4390: 6e 67 20 64 65 6c 65 74 65 64 20 69 73 20 70 61  ng deleted is pa
43a0: 72 74 20 6f 66 20 74 68 65 20 71 75 6f 74 61 20  rt of the quota 
43b0: 67 72 6f 75 70 2c 20 74 68 65 6e 20 72 65 64 75  group, then redu
43c0: 63 65 0a 2a 2a 20 74 68 65 20 73 69 7a 65 20 6f  ce.** the size o
43d0: 66 20 74 68 65 20 71 75 6f 74 61 20 67 72 6f 75  f the quota grou
43e0: 70 20 61 63 63 6f 72 64 69 6e 67 6c 79 2e 20 20  p accordingly.  
43f0: 41 6e 64 20 72 65 6d 6f 76 65 20 74 68 65 20 66  And remove the f
4400: 69 6c 65 20 66 72 6f 6d 0a 2a 2a 20 74 68 65 20  ile from.** the 
4410: 73 65 74 20 6f 66 20 66 69 6c 65 73 20 69 6e 20  set of files in 
4420: 74 68 65 20 71 75 6f 74 61 20 67 72 6f 75 70 2e  the quota group.
4430: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 71  .*/.static int q
4440: 75 6f 74 61 44 65 6c 65 74 65 28 0a 20 20 73 71  uotaDelete(.  sq
4450: 6c 69 74 65 33 5f 76 66 73 20 2a 70 56 66 73 2c  lite3_vfs *pVfs,
4460: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 65            /* The
4470: 20 71 75 6f 74 61 20 56 46 53 20 2a 2f 0a 20 20   quota VFS */.  
4480: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d  const char *zNam
4490: 65 2c 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e  e,          /* N
44a0: 61 6d 65 20 6f 66 20 66 69 6c 65 20 74 6f 20 62  ame of file to b
44b0: 65 20 64 65 6c 65 74 65 64 20 2a 2f 0a 20 20 69  e deleted */.  i
44c0: 6e 74 20 73 79 6e 63 44 69 72 20 20 20 20 20 20  nt syncDir      
44d0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 44 6f             /* Do
44e0: 20 61 20 64 69 72 65 63 74 6f 72 79 20 73 79 6e   a directory syn
44f0: 63 20 61 66 74 65 72 20 64 65 6c 65 74 69 6e 67  c after deleting
4500: 20 2a 2f 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b   */.){.  int rc;
4510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4530: 20 20 20 20 2f 2a 20 52 65 73 75 6c 74 20 63 6f      /* Result co
4540: 64 65 20 2a 2f 20 20 20 20 20 20 20 20 20 0a 20  de */         . 
4550: 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c   quotaFile *pFil
4560: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
4570: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46              /* F
4580: 69 6c 65 73 20 69 6e 20 74 68 65 20 71 75 6f 74  iles in the quot
4590: 61 20 2a 2f 0a 20 20 71 75 6f 74 61 47 72 6f 75  a */.  quotaGrou
45a0: 70 20 2a 70 47 72 6f 75 70 3b 20 20 20 20 20 20  p *pGroup;      
45b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
45c0: 20 20 2f 2a 20 54 68 65 20 67 72 6f 75 70 20 66    /* The group f
45d0: 69 6c 65 20 62 65 6c 6f 6e 67 73 20 74 6f 20 2a  ile belongs to *
45e0: 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20  /.  sqlite3_vfs 
45f0: 2a 70 4f 72 69 67 56 66 73 20 3d 20 67 51 75 6f  *pOrigVfs = gQuo
4600: 74 61 2e 70 4f 72 69 67 56 66 73 3b 20 20 20 2f  ta.pOrigVfs;   /
4610: 2a 20 52 65 61 6c 20 56 46 53 20 2a 2f 0a 0a 20  * Real VFS */.. 
4620: 20 2f 2a 20 44 6f 20 74 68 65 20 61 63 74 75 61   /* Do the actua
4630: 6c 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2a 2f  l file delete */
4640: 0a 20 20 72 63 20 3d 20 70 4f 72 69 67 56 66 73  .  rc = pOrigVfs
4650: 2d 3e 78 44 65 6c 65 74 65 28 70 4f 72 69 67 56  ->xDelete(pOrigV
4660: 66 73 2c 20 7a 4e 61 6d 65 2c 20 73 79 6e 63 44  fs, zName, syncD
4670: 69 72 29 3b 0a 0a 20 20 2f 2a 20 49 66 20 74 68  ir);..  /* If th
4680: 65 20 66 69 6c 65 20 6a 75 73 74 20 64 65 6c 65  e file just dele
4690: 74 65 64 20 69 73 20 61 20 6d 65 6d 62 65 72 20  ted is a member 
46a0: 6f 66 20 61 20 71 75 6f 74 61 20 67 72 6f 75 70  of a quota group
46b0: 2c 20 74 68 65 6e 20 72 65 6d 6f 76 65 0a 20 20  , then remove.  
46c0: 2a 2a 20 69 74 20 66 72 6f 6d 20 74 68 61 74 20  ** it from that 
46d0: 71 75 6f 74 61 20 67 72 6f 75 70 2e 0a 20 20 2a  quota group..  *
46e0: 2f 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49  /.  if( rc==SQLI
46f0: 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 71 75 6f  TE_OK ){.    quo
4700: 74 61 45 6e 74 65 72 28 29 3b 0a 20 20 20 20 70  taEnter();.    p
4710: 47 72 6f 75 70 20 3d 20 71 75 6f 74 61 47 72 6f  Group = quotaGro
4720: 75 70 46 69 6e 64 28 7a 4e 61 6d 65 29 3b 0a 20  upFind(zName);. 
4730: 20 20 20 69 66 28 20 70 47 72 6f 75 70 20 29 7b     if( pGroup ){
4740: 0a 20 20 20 20 20 20 70 46 69 6c 65 20 3d 20 71  .      pFile = q
4750: 75 6f 74 61 46 69 6e 64 46 69 6c 65 28 70 47 72  uotaFindFile(pGr
4760: 6f 75 70 2c 20 7a 4e 61 6d 65 2c 20 30 29 3b 0a  oup, zName, 0);.
4770: 20 20 20 20 20 20 69 66 28 20 70 46 69 6c 65 20        if( pFile 
4780: 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20 70  ){.        if( p
4790: 46 69 6c 65 2d 3e 6e 52 65 66 20 29 7b 0a 20 20  File->nRef ){.  
47a0: 20 20 20 20 20 20 20 20 70 46 69 6c 65 2d 3e 64          pFile->d
47b0: 65 6c 65 74 65 4f 6e 43 6c 6f 73 65 20 3d 20 31  eleteOnClose = 1
47c0: 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65 7b  ;.        }else{
47d0: 0a 20 20 20 20 20 20 20 20 20 20 71 75 6f 74 61  .          quota
47e0: 52 65 6d 6f 76 65 46 69 6c 65 28 70 46 69 6c 65  RemoveFile(pFile
47f0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 71 75 6f  );.          quo
4800: 74 61 47 72 6f 75 70 44 65 72 65 66 28 70 47 72  taGroupDeref(pGr
4810: 6f 75 70 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a  oup);.        }.
4820: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
4830: 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29 3b 0a    quotaLeave();.
4840: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b    }.  return rc;
4850: 0a 7d 0a 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .}.../**********
4860: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 49  ************** I
4870: 2f 4f 20 4d 65 74 68 6f 64 20 57 72 61 70 70 65  /O Method Wrappe
4880: 72 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  rs *************
4890: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
48a0: 2a 2a 2f 0a 0a 2f 2a 20 78 43 6c 6f 73 65 20 72  **/../* xClose r
48b0: 65 71 75 65 73 74 73 20 67 65 74 20 70 61 73 73  equests get pass
48c0: 65 64 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68  ed through to th
48d0: 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 2e 20  e original VFS. 
48e0: 20 42 75 74 20 77 65 0a 2a 2a 20 61 6c 73 6f 20   But we.** also 
48f0: 68 61 76 65 20 74 6f 20 75 6e 6c 69 6e 6b 20 74  have to unlink t
4900: 68 65 20 71 75 6f 74 61 43 6f 6e 6e 20 66 72 6f  he quotaConn fro
4910: 6d 20 74 68 65 20 71 75 6f 74 61 46 69 6c 65 20  m the quotaFile 
4920: 61 6e 64 20 71 75 6f 74 61 47 72 6f 75 70 2e 0a  and quotaGroup..
4930: 2a 2a 20 54 68 65 20 71 75 6f 74 61 46 69 6c 65  ** The quotaFile
4940: 20 61 6e 64 2f 6f 72 20 71 75 6f 74 61 47 72 6f   and/or quotaGro
4950: 75 70 20 61 72 65 20 66 72 65 65 64 20 69 66 20  up are freed if 
4960: 74 68 65 79 20 61 72 65 20 6e 6f 20 6c 6f 6e 67  they are no long
4970: 65 72 20 69 6e 20 75 73 65 2e 0a 2a 2f 0a 73 74  er in use..*/.st
4980: 61 74 69 63 20 69 6e 74 20 71 75 6f 74 61 43 6c  atic int quotaCl
4990: 6f 73 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65  ose(sqlite3_file
49a0: 20 2a 70 43 6f 6e 6e 29 7b 0a 20 20 71 75 6f 74   *pConn){.  quot
49b0: 61 43 6f 6e 6e 20 2a 70 20 3d 20 28 71 75 6f 74  aConn *p = (quot
49c0: 61 43 6f 6e 6e 2a 29 70 43 6f 6e 6e 3b 0a 20 20  aConn*)pConn;.  
49d0: 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c 65  quotaFile *pFile
49e0: 20 3d 20 70 2d 3e 70 46 69 6c 65 3b 0a 20 20 73   = p->pFile;.  s
49f0: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 53 75  qlite3_file *pSu
4a00: 62 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53 75 62  bOpen = quotaSub
4a10: 4f 70 65 6e 28 70 43 6f 6e 6e 29 3b 0a 20 20 69  Open(pConn);.  i
4a20: 6e 74 20 72 63 3b 0a 20 20 72 63 20 3d 20 70 53  nt rc;.  rc = pS
4a30: 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73  ubOpen->pMethods
4a40: 2d 3e 78 43 6c 6f 73 65 28 70 53 75 62 4f 70 65  ->xClose(pSubOpe
4a50: 6e 29 3b 0a 20 20 71 75 6f 74 61 45 6e 74 65 72  n);.  quotaEnter
4a60: 28 29 3b 0a 20 20 70 46 69 6c 65 2d 3e 6e 52 65  ();.  pFile->nRe
4a70: 66 2d 2d 3b 0a 20 20 69 66 28 20 70 46 69 6c 65  f--;.  if( pFile
4a80: 2d 3e 6e 52 65 66 3d 3d 30 20 29 7b 0a 20 20 20  ->nRef==0 ){.   
4a90: 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70 47 72   quotaGroup *pGr
4aa0: 6f 75 70 20 3d 20 70 46 69 6c 65 2d 3e 70 47 72  oup = pFile->pGr
4ab0: 6f 75 70 3b 0a 20 20 20 20 69 66 28 20 70 46 69  oup;.    if( pFi
4ac0: 6c 65 2d 3e 64 65 6c 65 74 65 4f 6e 43 6c 6f 73  le->deleteOnClos
4ad0: 65 20 29 7b 0a 20 20 20 20 20 20 67 51 75 6f 74  e ){.      gQuot
4ae0: 61 2e 70 4f 72 69 67 56 66 73 2d 3e 78 44 65 6c  a.pOrigVfs->xDel
4af0: 65 74 65 28 67 51 75 6f 74 61 2e 70 4f 72 69 67  ete(gQuota.pOrig
4b00: 56 66 73 2c 20 70 46 69 6c 65 2d 3e 7a 46 69 6c  Vfs, pFile->zFil
4b10: 65 6e 61 6d 65 2c 20 30 29 3b 0a 20 20 20 20 20  ename, 0);.     
4b20: 20 71 75 6f 74 61 52 65 6d 6f 76 65 46 69 6c 65   quotaRemoveFile
4b30: 28 70 46 69 6c 65 29 3b 0a 20 20 20 20 7d 0a 20  (pFile);.    }. 
4b40: 20 20 20 71 75 6f 74 61 47 72 6f 75 70 44 65 72     quotaGroupDer
4b50: 65 66 28 70 47 72 6f 75 70 29 3b 0a 20 20 7d 0a  ef(pGroup);.  }.
4b60: 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29 3b 0a    quotaLeave();.
4b70: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
4b80: 2f 2a 20 50 61 73 73 20 78 52 65 61 64 20 72 65  /* Pass xRead re
4b90: 71 75 65 73 74 73 20 64 69 72 65 63 74 6f 72 79  quests directory
4ba0: 20 74 68 72 75 20 74 6f 20 74 68 65 20 6f 72 69   thru to the ori
4bb0: 67 69 6e 61 6c 20 56 46 53 20 77 69 74 68 6f 75  ginal VFS withou
4bc0: 74 0a 2a 2a 20 66 75 72 74 68 65 72 20 70 72 6f  t.** further pro
4bd0: 63 65 73 73 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74  cessing..*/.stat
4be0: 69 63 20 69 6e 74 20 71 75 6f 74 61 52 65 61 64  ic int quotaRead
4bf0: 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  (.  sqlite3_file
4c00: 20 2a 70 43 6f 6e 6e 2c 0a 20 20 76 6f 69 64 20   *pConn,.  void 
4c10: 2a 70 42 75 66 2c 0a 20 20 69 6e 74 20 69 41 6d  *pBuf,.  int iAm
4c20: 74 2c 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74  t,.  sqlite3_int
4c30: 36 34 20 69 4f 66 73 74 0a 29 7b 0a 20 20 73 71  64 iOfst.){.  sq
4c40: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 53 75 62  lite3_file *pSub
4c50: 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53 75 62 4f  Open = quotaSubO
4c60: 70 65 6e 28 70 43 6f 6e 6e 29 3b 0a 20 20 72 65  pen(pConn);.  re
4c70: 74 75 72 6e 20 70 53 75 62 4f 70 65 6e 2d 3e 70  turn pSubOpen->p
4c80: 4d 65 74 68 6f 64 73 2d 3e 78 52 65 61 64 28 70  Methods->xRead(p
4c90: 53 75 62 4f 70 65 6e 2c 20 70 42 75 66 2c 20 69  SubOpen, pBuf, i
4ca0: 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a 7d 0a 0a  Amt, iOfst);.}..
4cb0: 2f 2a 20 43 68 65 63 6b 20 78 57 72 69 74 65 20  /* Check xWrite 
4cc0: 72 65 71 75 65 73 74 73 20 74 6f 20 73 65 65 20  requests to see 
4cd0: 69 66 20 74 68 65 79 20 65 78 70 61 6e 64 20 74  if they expand t
4ce0: 68 65 20 66 69 6c 65 2e 20 20 49 66 20 74 68 65  he file.  If the
4cf0: 79 20 64 6f 2c 0a 2a 2a 20 74 68 65 20 70 65 72  y do,.** the per
4d00: 66 6f 72 6d 20 61 20 71 75 6f 74 61 20 63 68 65  form a quota che
4d10: 63 6b 20 62 65 66 6f 72 65 20 70 61 73 73 69 6e  ck before passin
4d20: 67 20 74 68 65 6d 20 74 68 72 6f 75 67 68 20 74  g them through t
4d30: 6f 20 74 68 65 0a 2a 2a 20 6f 72 69 67 69 6e 61  o the.** origina
4d40: 6c 20 56 46 53 2e 0a 2a 2f 0a 73 74 61 74 69 63  l VFS..*/.static
4d50: 20 69 6e 74 20 71 75 6f 74 61 57 72 69 74 65 28   int quotaWrite(
4d60: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
4d70: 2a 70 43 6f 6e 6e 2c 0a 20 20 63 6f 6e 73 74 20  *pConn,.  const 
4d80: 76 6f 69 64 20 2a 70 42 75 66 2c 0a 20 20 69 6e  void *pBuf,.  in
4d90: 74 20 69 41 6d 74 2c 0a 20 20 73 71 6c 69 74 65  t iAmt,.  sqlite
4da0: 33 5f 69 6e 74 36 34 20 69 4f 66 73 74 0a 29 7b  3_int64 iOfst.){
4db0: 0a 20 20 71 75 6f 74 61 43 6f 6e 6e 20 2a 70 20  .  quotaConn *p 
4dc0: 3d 20 28 71 75 6f 74 61 43 6f 6e 6e 2a 29 70 43  = (quotaConn*)pC
4dd0: 6f 6e 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66  onn;.  sqlite3_f
4de0: 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20  ile *pSubOpen = 
4df0: 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 43 6f  quotaSubOpen(pCo
4e00: 6e 6e 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69  nn);.  sqlite3_i
4e10: 6e 74 36 34 20 69 45 6e 64 20 3d 20 69 4f 66 73  nt64 iEnd = iOfs
4e20: 74 2b 69 41 6d 74 3b 0a 20 20 71 75 6f 74 61 47  t+iAmt;.  quotaG
4e30: 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 0a 20 20  roup *pGroup;.  
4e40: 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c 65  quotaFile *pFile
4e50: 20 3d 20 70 2d 3e 70 46 69 6c 65 3b 0a 20 20 73   = p->pFile;.  s
4e60: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 73 7a 4e  qlite3_int64 szN
4e70: 65 77 3b 0a 0a 20 20 69 66 28 20 70 46 69 6c 65  ew;..  if( pFile
4e80: 2d 3e 69 53 69 7a 65 3c 69 45 6e 64 20 29 7b 0a  ->iSize<iEnd ){.
4e90: 20 20 20 20 70 47 72 6f 75 70 20 3d 20 70 46 69      pGroup = pFi
4ea0: 6c 65 2d 3e 70 47 72 6f 75 70 3b 0a 20 20 20 20  le->pGroup;.    
4eb0: 71 75 6f 74 61 45 6e 74 65 72 28 29 3b 0a 20 20  quotaEnter();.  
4ec0: 20 20 73 7a 4e 65 77 20 3d 20 70 47 72 6f 75 70    szNew = pGroup
4ed0: 2d 3e 69 53 69 7a 65 20 2d 20 70 46 69 6c 65 2d  ->iSize - pFile-
4ee0: 3e 69 53 69 7a 65 20 2b 20 69 45 6e 64 3b 0a 20  >iSize + iEnd;. 
4ef0: 20 20 20 69 66 28 20 73 7a 4e 65 77 3e 70 47 72     if( szNew>pGr
4f00: 6f 75 70 2d 3e 69 4c 69 6d 69 74 20 26 26 20 70  oup->iLimit && p
4f10: 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 3e 30 20  Group->iLimit>0 
4f20: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 70 47 72  ){.      if( pGr
4f30: 6f 75 70 2d 3e 78 43 61 6c 6c 62 61 63 6b 20 29  oup->xCallback )
4f40: 7b 0a 20 20 20 20 20 20 20 20 70 47 72 6f 75 70  {.        pGroup
4f50: 2d 3e 78 43 61 6c 6c 62 61 63 6b 28 70 46 69 6c  ->xCallback(pFil
4f60: 65 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 26 70  e->zFilename, &p
4f70: 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 2c 20 73  Group->iLimit, s
4f80: 7a 4e 65 77 2c 20 0a 20 20 20 20 20 20 20 20 20  zNew, .         
4f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4fa0: 20 70 47 72 6f 75 70 2d 3e 70 41 72 67 29 3b 0a   pGroup->pArg);.
4fb0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
4fc0: 28 20 73 7a 4e 65 77 3e 70 47 72 6f 75 70 2d 3e  ( szNew>pGroup->
4fd0: 69 4c 69 6d 69 74 20 26 26 20 70 47 72 6f 75 70  iLimit && pGroup
4fe0: 2d 3e 69 4c 69 6d 69 74 3e 30 20 29 7b 0a 20 20  ->iLimit>0 ){.  
4ff0: 20 20 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65        quotaLeave
5000: 28 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  ();.        retu
5010: 72 6e 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3b 0a  rn SQLITE_FULL;.
5020: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
5030: 20 20 70 47 72 6f 75 70 2d 3e 69 53 69 7a 65 20    pGroup->iSize 
5040: 3d 20 73 7a 4e 65 77 3b 0a 20 20 20 20 70 46 69  = szNew;.    pFi
5050: 6c 65 2d 3e 69 53 69 7a 65 20 3d 20 69 45 6e 64  le->iSize = iEnd
5060: 3b 0a 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65  ;.    quotaLeave
5070: 28 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  ();.  }.  return
5080: 20 70 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68   pSubOpen->pMeth
5090: 6f 64 73 2d 3e 78 57 72 69 74 65 28 70 53 75 62  ods->xWrite(pSub
50a0: 4f 70 65 6e 2c 20 70 42 75 66 2c 20 69 41 6d 74  Open, pBuf, iAmt
50b0: 2c 20 69 4f 66 73 74 29 3b 0a 7d 0a 0a 2f 2a 20  , iOfst);.}../* 
50c0: 50 61 73 73 20 78 54 72 75 6e 63 61 74 65 20 72  Pass xTruncate r
50d0: 65 71 75 65 73 74 73 20 74 68 72 75 20 74 6f 20  equests thru to 
50e0: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53  the original VFS
50f0: 2e 20 20 49 66 20 74 68 65 0a 2a 2a 20 73 75 63  .  If the.** suc
5100: 63 65 73 73 2c 20 75 70 64 61 74 65 20 74 68 65  cess, update the
5110: 20 66 69 6c 65 20 73 69 7a 65 2e 0a 2a 2f 0a 73   file size..*/.s
5120: 74 61 74 69 63 20 69 6e 74 20 71 75 6f 74 61 54  tatic int quotaT
5130: 72 75 6e 63 61 74 65 28 73 71 6c 69 74 65 33 5f  runcate(sqlite3_
5140: 66 69 6c 65 20 2a 70 43 6f 6e 6e 2c 20 73 71 6c  file *pConn, sql
5150: 69 74 65 33 5f 69 6e 74 36 34 20 73 69 7a 65 29  ite3_int64 size)
5160: 7b 0a 20 20 71 75 6f 74 61 43 6f 6e 6e 20 2a 70  {.  quotaConn *p
5170: 20 3d 20 28 71 75 6f 74 61 43 6f 6e 6e 2a 29 70   = (quotaConn*)p
5180: 43 6f 6e 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f  Conn;.  sqlite3_
5190: 66 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d  file *pSubOpen =
51a0: 20 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 43   quotaSubOpen(pC
51b0: 6f 6e 6e 29 3b 0a 20 20 69 6e 74 20 72 63 20 3d  onn);.  int rc =
51c0: 20 70 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68   pSubOpen->pMeth
51d0: 6f 64 73 2d 3e 78 54 72 75 6e 63 61 74 65 28 70  ods->xTruncate(p
51e0: 53 75 62 4f 70 65 6e 2c 20 73 69 7a 65 29 3b 0a  SubOpen, size);.
51f0: 20 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69    quotaFile *pFi
5200: 6c 65 20 3d 20 70 2d 3e 70 46 69 6c 65 3b 0a 20  le = p->pFile;. 
5210: 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70 47 72   quotaGroup *pGr
5220: 6f 75 70 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53  oup;.  if( rc==S
5230: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
5240: 71 75 6f 74 61 45 6e 74 65 72 28 29 3b 0a 20 20  quotaEnter();.  
5250: 20 20 70 47 72 6f 75 70 20 3d 20 70 46 69 6c 65    pGroup = pFile
5260: 2d 3e 70 47 72 6f 75 70 3b 0a 20 20 20 20 70 47  ->pGroup;.    pG
5270: 72 6f 75 70 2d 3e 69 53 69 7a 65 20 2d 3d 20 70  roup->iSize -= p
5280: 46 69 6c 65 2d 3e 69 53 69 7a 65 3b 0a 20 20 20  File->iSize;.   
5290: 20 70 46 69 6c 65 2d 3e 69 53 69 7a 65 20 3d 20   pFile->iSize = 
52a0: 73 69 7a 65 3b 0a 20 20 20 20 70 47 72 6f 75 70  size;.    pGroup
52b0: 2d 3e 69 53 69 7a 65 20 2b 3d 20 73 69 7a 65 3b  ->iSize += size;
52c0: 0a 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65 28  .    quotaLeave(
52d0: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
52e0: 72 63 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78  rc;.}../* Pass x
52f0: 53 79 6e 63 20 72 65 71 75 65 73 74 73 20 74 68  Sync requests th
5300: 72 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69  rough to the ori
5310: 67 69 6e 61 6c 20 56 46 53 20 77 69 74 68 6f 75  ginal VFS withou
5320: 74 20 63 68 61 6e 67 65 0a 2a 2f 0a 73 74 61 74  t change.*/.stat
5330: 69 63 20 69 6e 74 20 71 75 6f 74 61 53 79 6e 63  ic int quotaSync
5340: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
5350: 43 6f 6e 6e 2c 20 69 6e 74 20 66 6c 61 67 73 29  Conn, int flags)
5360: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  {.  sqlite3_file
5370: 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f   *pSubOpen = quo
5380: 74 61 53 75 62 4f 70 65 6e 28 70 43 6f 6e 6e 29  taSubOpen(pConn)
5390: 3b 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62 4f  ;.  return pSubO
53a0: 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78  pen->pMethods->x
53b0: 53 79 6e 63 28 70 53 75 62 4f 70 65 6e 2c 20 66  Sync(pSubOpen, f
53c0: 6c 61 67 73 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73  lags);.}../* Pas
53d0: 73 20 78 46 69 6c 65 53 69 7a 65 20 72 65 71 75  s xFileSize requ
53e0: 65 73 74 73 20 74 68 72 6f 75 67 68 20 74 6f 20  ests through to 
53f0: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53  the original VFS
5400: 20 62 75 74 20 74 68 65 6e 0a 2a 2a 20 75 70 64   but then.** upd
5410: 61 74 65 20 74 68 65 20 71 75 6f 74 61 47 72 6f  ate the quotaGro
5420: 75 70 20 77 69 74 68 20 74 68 65 20 6e 65 77 20  up with the new 
5430: 73 69 7a 65 20 62 65 66 6f 72 65 20 72 65 74 75  size before retu
5440: 72 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63  rning..*/.static
5450: 20 69 6e 74 20 71 75 6f 74 61 46 69 6c 65 53 69   int quotaFileSi
5460: 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  ze(sqlite3_file 
5470: 2a 70 43 6f 6e 6e 2c 20 73 71 6c 69 74 65 33 5f  *pConn, sqlite3_
5480: 69 6e 74 36 34 20 2a 70 53 69 7a 65 29 7b 0a 20  int64 *pSize){. 
5490: 20 71 75 6f 74 61 43 6f 6e 6e 20 2a 70 20 3d 20   quotaConn *p = 
54a0: 28 71 75 6f 74 61 43 6f 6e 6e 2a 29 70 43 6f 6e  (quotaConn*)pCon
54b0: 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  n;.  sqlite3_fil
54c0: 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75  e *pSubOpen = qu
54d0: 6f 74 61 53 75 62 4f 70 65 6e 28 70 43 6f 6e 6e  otaSubOpen(pConn
54e0: 29 3b 0a 20 20 71 75 6f 74 61 46 69 6c 65 20 2a  );.  quotaFile *
54f0: 70 46 69 6c 65 20 3d 20 70 2d 3e 70 46 69 6c 65  pFile = p->pFile
5500: 3b 0a 20 20 71 75 6f 74 61 47 72 6f 75 70 20 2a  ;.  quotaGroup *
5510: 70 47 72 6f 75 70 3b 0a 20 20 73 71 6c 69 74 65  pGroup;.  sqlite
5520: 33 5f 69 6e 74 36 34 20 73 7a 3b 0a 20 20 69 6e  3_int64 sz;.  in
5530: 74 20 72 63 3b 0a 0a 20 20 72 63 20 3d 20 70 53  t rc;..  rc = pS
5540: 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73  ubOpen->pMethods
5550: 2d 3e 78 46 69 6c 65 53 69 7a 65 28 70 53 75 62  ->xFileSize(pSub
5560: 4f 70 65 6e 2c 20 26 73 7a 29 3b 0a 20 20 69 66  Open, &sz);.  if
5570: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
5580: 29 7b 0a 20 20 20 20 71 75 6f 74 61 45 6e 74 65  ){.    quotaEnte
5590: 72 28 29 3b 0a 20 20 20 20 70 47 72 6f 75 70 20  r();.    pGroup 
55a0: 3d 20 70 46 69 6c 65 2d 3e 70 47 72 6f 75 70 3b  = pFile->pGroup;
55b0: 0a 20 20 20 20 70 47 72 6f 75 70 2d 3e 69 53 69  .    pGroup->iSi
55c0: 7a 65 20 2d 3d 20 70 46 69 6c 65 2d 3e 69 53 69  ze -= pFile->iSi
55d0: 7a 65 3b 0a 20 20 20 20 70 46 69 6c 65 2d 3e 69  ze;.    pFile->i
55e0: 53 69 7a 65 20 3d 20 73 7a 3b 0a 20 20 20 20 70  Size = sz;.    p
55f0: 47 72 6f 75 70 2d 3e 69 53 69 7a 65 20 2b 3d 20  Group->iSize += 
5600: 73 7a 3b 0a 20 20 20 20 71 75 6f 74 61 4c 65 61  sz;.    quotaLea
5610: 76 65 28 29 3b 0a 20 20 20 20 2a 70 53 69 7a 65  ve();.    *pSize
5620: 20 3d 20 73 7a 3b 0a 20 20 7d 0a 20 20 72 65 74   = sz;.  }.  ret
5630: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 20 50 61  urn rc;.}../* Pa
5640: 73 73 20 78 4c 6f 63 6b 20 72 65 71 75 65 73 74  ss xLock request
5650: 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65  s through to the
5660: 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 20 75 6e   original VFS un
5670: 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61 74  changed..*/.stat
5680: 69 63 20 69 6e 74 20 71 75 6f 74 61 4c 6f 63 6b  ic int quotaLock
5690: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
56a0: 43 6f 6e 6e 2c 20 69 6e 74 20 6c 6f 63 6b 29 7b  Conn, int lock){
56b0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
56c0: 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f 74  *pSubOpen = quot
56d0: 61 53 75 62 4f 70 65 6e 28 70 43 6f 6e 6e 29 3b  aSubOpen(pConn);
56e0: 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62 4f 70  .  return pSubOp
56f0: 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 4c  en->pMethods->xL
5700: 6f 63 6b 28 70 53 75 62 4f 70 65 6e 2c 20 6c 6f  ock(pSubOpen, lo
5710: 63 6b 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20  ck);.}../* Pass 
5720: 78 55 6e 6c 6f 63 6b 20 72 65 71 75 65 73 74 73  xUnlock requests
5730: 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20   through to the 
5740: 6f 72 69 67 69 6e 61 6c 20 56 46 53 20 75 6e 63  original VFS unc
5750: 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61 74 69  hanged..*/.stati
5760: 63 20 69 6e 74 20 71 75 6f 74 61 55 6e 6c 6f 63  c int quotaUnloc
5770: 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  k(sqlite3_file *
5780: 70 43 6f 6e 6e 2c 20 69 6e 74 20 6c 6f 63 6b 29  pConn, int lock)
5790: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  {.  sqlite3_file
57a0: 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f   *pSubOpen = quo
57b0: 74 61 53 75 62 4f 70 65 6e 28 70 43 6f 6e 6e 29  taSubOpen(pConn)
57c0: 3b 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62 4f  ;.  return pSubO
57d0: 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78  pen->pMethods->x
57e0: 55 6e 6c 6f 63 6b 28 70 53 75 62 4f 70 65 6e 2c  Unlock(pSubOpen,
57f0: 20 6c 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 20 50 61   lock);.}../* Pa
5800: 73 73 20 78 43 68 65 63 6b 52 65 73 65 72 76 65  ss xCheckReserve
5810: 64 4c 6f 63 6b 20 72 65 71 75 65 73 74 73 20 74  dLock requests t
5820: 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72  hrough to the or
5830: 69 67 69 6e 61 6c 20 56 46 53 20 75 6e 63 68 61  iginal VFS uncha
5840: 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  nged..*/.static 
5850: 69 6e 74 20 71 75 6f 74 61 43 68 65 63 6b 52 65  int quotaCheckRe
5860: 73 65 72 76 65 64 4c 6f 63 6b 28 73 71 6c 69 74  servedLock(sqlit
5870: 65 33 5f 66 69 6c 65 20 2a 70 43 6f 6e 6e 2c 20  e3_file *pConn, 
5880: 69 6e 74 20 2a 70 52 65 73 4f 75 74 29 7b 0a 20  int *pResOut){. 
5890: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
58a0: 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53  SubOpen = quotaS
58b0: 75 62 4f 70 65 6e 28 70 43 6f 6e 6e 29 3b 0a 20  ubOpen(pConn);. 
58c0: 20 72 65 74 75 72 6e 20 70 53 75 62 4f 70 65 6e   return pSubOpen
58d0: 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 43 68 65  ->pMethods->xChe
58e0: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 70  ckReservedLock(p
58f0: 53 75 62 4f 70 65 6e 2c 20 70 52 65 73 4f 75 74  SubOpen, pResOut
5900: 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 46  );.}../* Pass xF
5910: 69 6c 65 43 6f 6e 74 72 6f 6c 20 72 65 71 75 65  ileControl reque
5920: 73 74 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74  sts through to t
5930: 68 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 20  he original VFS 
5940: 75 6e 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74  unchanged..*/.st
5950: 61 74 69 63 20 69 6e 74 20 71 75 6f 74 61 46 69  atic int quotaFi
5960: 6c 65 43 6f 6e 74 72 6f 6c 28 73 71 6c 69 74 65  leControl(sqlite
5970: 33 5f 66 69 6c 65 20 2a 70 43 6f 6e 6e 2c 20 69  3_file *pConn, i
5980: 6e 74 20 6f 70 2c 20 76 6f 69 64 20 2a 70 41 72  nt op, void *pAr
5990: 67 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69  g){.  sqlite3_fi
59a0: 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71  le *pSubOpen = q
59b0: 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 43 6f 6e  uotaSubOpen(pCon
59c0: 6e 29 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 70  n);.  int rc = p
59d0: 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64  SubOpen->pMethod
59e0: 73 2d 3e 78 46 69 6c 65 43 6f 6e 74 72 6f 6c 28  s->xFileControl(
59f0: 70 53 75 62 4f 70 65 6e 2c 20 6f 70 2c 20 70 41  pSubOpen, op, pA
5a00: 72 67 29 3b 0a 23 69 66 20 64 65 66 69 6e 65 64  rg);.#if defined
5a10: 28 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 56 46  (SQLITE_FCNTL_VF
5a20: 53 4e 41 4d 45 29 0a 20 20 69 66 28 20 6f 70 3d  SNAME).  if( op=
5a30: 3d 53 51 4c 49 54 45 5f 46 43 4e 54 4c 5f 56 46  =SQLITE_FCNTL_VF
5a40: 53 4e 41 4d 45 20 26 26 20 72 63 3d 3d 53 51 4c  SNAME && rc==SQL
5a50: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 2a 28  ITE_OK ){.    *(
5a60: 63 68 61 72 2a 2a 29 70 41 72 67 20 3d 20 73 71  char**)pArg = sq
5a70: 6c 69 74 65 33 5f 6d 70 72 69 6e 74 66 28 22 71  lite3_mprintf("q
5a80: 75 6f 74 61 2f 25 7a 22 2c 20 2a 28 63 68 61 72  uota/%z", *(char
5a90: 2a 2a 29 70 41 72 67 29 3b 0a 20 20 7d 0a 23 65  **)pArg);.  }.#e
5aa0: 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 72 63  ndif.  return rc
5ab0: 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 53 65  ;.}../* Pass xSe
5ac0: 63 74 6f 72 53 69 7a 65 20 72 65 71 75 65 73 74  ctorSize request
5ad0: 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65  s through to the
5ae0: 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 20 75 6e   original VFS un
5af0: 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61 74  changed..*/.stat
5b00: 69 63 20 69 6e 74 20 71 75 6f 74 61 53 65 63 74  ic int quotaSect
5b10: 6f 72 53 69 7a 65 28 73 71 6c 69 74 65 33 5f 66  orSize(sqlite3_f
5b20: 69 6c 65 20 2a 70 43 6f 6e 6e 29 7b 0a 20 20 73  ile *pConn){.  s
5b30: 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 53 75  qlite3_file *pSu
5b40: 62 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53 75 62  bOpen = quotaSub
5b50: 4f 70 65 6e 28 70 43 6f 6e 6e 29 3b 0a 20 20 72  Open(pConn);.  r
5b60: 65 74 75 72 6e 20 70 53 75 62 4f 70 65 6e 2d 3e  eturn pSubOpen->
5b70: 70 4d 65 74 68 6f 64 73 2d 3e 78 53 65 63 74 6f  pMethods->xSecto
5b80: 72 53 69 7a 65 28 70 53 75 62 4f 70 65 6e 29 3b  rSize(pSubOpen);
5b90: 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 44 65 76  .}../* Pass xDev
5ba0: 69 63 65 43 68 61 72 61 63 74 65 72 69 73 74 69  iceCharacteristi
5bb0: 63 73 20 72 65 71 75 65 73 74 73 20 74 68 72 6f  cs requests thro
5bc0: 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69 67 69  ugh to the origi
5bd0: 6e 61 6c 20 56 46 53 20 75 6e 63 68 61 6e 67 65  nal VFS unchange
5be0: 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  d..*/.static int
5bf0: 20 71 75 6f 74 61 44 65 76 69 63 65 43 68 61 72   quotaDeviceChar
5c00: 61 63 74 65 72 69 73 74 69 63 73 28 73 71 6c 69  acteristics(sqli
5c10: 74 65 33 5f 66 69 6c 65 20 2a 70 43 6f 6e 6e 29  te3_file *pConn)
5c20: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  {.  sqlite3_file
5c30: 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f   *pSubOpen = quo
5c40: 74 61 53 75 62 4f 70 65 6e 28 70 43 6f 6e 6e 29  taSubOpen(pConn)
5c50: 3b 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62 4f  ;.  return pSubO
5c60: 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78  pen->pMethods->x
5c70: 44 65 76 69 63 65 43 68 61 72 61 63 74 65 72 69  DeviceCharacteri
5c80: 73 74 69 63 73 28 70 53 75 62 4f 70 65 6e 29 3b  stics(pSubOpen);
5c90: 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 53 68 6d  .}../* Pass xShm
5ca0: 4d 61 70 20 72 65 71 75 65 73 74 73 20 74 68 72  Map requests thr
5cb0: 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69 67  ough to the orig
5cc0: 69 6e 61 6c 20 56 46 53 20 75 6e 63 68 61 6e 67  inal VFS unchang
5cd0: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ed..*/.static in
5ce0: 74 20 71 75 6f 74 61 53 68 6d 4d 61 70 28 0a 20  t quotaShmMap(. 
5cf0: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
5d00: 43 6f 6e 6e 2c 20 20 20 20 20 20 20 20 20 20 20  Conn,           
5d10: 20 2f 2a 20 48 61 6e 64 6c 65 20 6f 70 65 6e 20   /* Handle open 
5d20: 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  on database file
5d30: 20 2a 2f 0a 20 20 69 6e 74 20 69 52 65 67 69 6f   */.  int iRegio
5d40: 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20  n,              
5d50: 20 20 20 20 20 20 2f 2a 20 52 65 67 69 6f 6e 20        /* Region 
5d60: 74 6f 20 72 65 74 72 69 65 76 65 20 2a 2f 0a 20  to retrieve */. 
5d70: 20 69 6e 74 20 73 7a 52 65 67 69 6f 6e 2c 20 20   int szRegion,  
5d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5d90: 20 2f 2a 20 53 69 7a 65 20 6f 66 20 72 65 67 69   /* Size of regi
5da0: 6f 6e 73 20 2a 2f 0a 20 20 69 6e 74 20 62 45 78  ons */.  int bEx
5db0: 74 65 6e 64 2c 20 20 20 20 20 20 20 20 20 20 20  tend,           
5dc0: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75 65           /* True
5dd0: 20 74 6f 20 65 78 74 65 6e 64 20 66 69 6c 65 20   to extend file 
5de0: 69 66 20 6e 65 63 65 73 73 61 72 79 20 2a 2f 0a  if necessary */.
5df0: 20 20 76 6f 69 64 20 76 6f 6c 61 74 69 6c 65 20    void volatile 
5e00: 2a 2a 70 70 20 20 20 20 20 20 20 20 20 20 20 20  **pp            
5e10: 20 20 2f 2a 20 4f 55 54 3a 20 4d 61 70 70 65 64    /* OUT: Mapped
5e20: 20 6d 65 6d 6f 72 79 20 2a 2f 0a 29 7b 0a 20 20   memory */.){.  
5e30: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 53  sqlite3_file *pS
5e40: 75 62 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53 75  ubOpen = quotaSu
5e50: 62 4f 70 65 6e 28 70 43 6f 6e 6e 29 3b 0a 20 20  bOpen(pConn);.  
5e60: 72 65 74 75 72 6e 20 70 53 75 62 4f 70 65 6e 2d  return pSubOpen-
5e70: 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 4d  >pMethods->xShmM
5e80: 61 70 28 70 53 75 62 4f 70 65 6e 2c 20 69 52 65  ap(pSubOpen, iRe
5e90: 67 69 6f 6e 2c 20 73 7a 52 65 67 69 6f 6e 2c 20  gion, szRegion, 
5ea0: 62 45 78 74 65 6e 64 2c 20 70 70 29 3b 0a 7d 0a  bExtend, pp);.}.
5eb0: 0a 2f 2a 20 50 61 73 73 20 78 53 68 6d 4c 6f 63  ./* Pass xShmLoc
5ec0: 6b 20 72 65 71 75 65 73 74 73 20 74 68 72 6f 75  k requests throu
5ed0: 67 68 20 74 6f 20 74 68 65 20 6f 72 69 67 69 6e  gh to the origin
5ee0: 61 6c 20 56 46 53 20 75 6e 63 68 61 6e 67 65 64  al VFS unchanged
5ef0: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  ..*/.static int 
5f00: 71 75 6f 74 61 53 68 6d 4c 6f 63 6b 28 0a 20 20  quotaShmLock(.  
5f10: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 43  sqlite3_file *pC
5f20: 6f 6e 6e 2c 20 20 20 20 20 20 20 2f 2a 20 44 61  onn,       /* Da
5f30: 74 61 62 61 73 65 20 66 69 6c 65 20 68 6f 6c 64  tabase file hold
5f40: 69 6e 67 20 74 68 65 20 73 68 61 72 65 64 20 6d  ing the shared m
5f50: 65 6d 6f 72 79 20 2a 2f 0a 20 20 69 6e 74 20 6f  emory */.  int o
5f60: 66 73 74 2c 20 20 20 20 20 20 20 20 20 20 20 20  fst,            
5f70: 20 20 20 20 20 20 2f 2a 20 46 69 72 73 74 20 6c        /* First l
5f80: 6f 63 6b 20 74 6f 20 61 63 71 75 69 72 65 20 6f  ock to acquire o
5f90: 72 20 72 65 6c 65 61 73 65 20 2a 2f 0a 20 20 69  r release */.  i
5fa0: 6e 74 20 6e 2c 20 20 20 20 20 20 20 20 20 20 20  nt n,           
5fb0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
5fc0: 62 65 72 20 6f 66 20 6c 6f 63 6b 73 20 74 6f 20  ber of locks to 
5fd0: 61 63 71 75 69 72 65 20 6f 72 20 72 65 6c 65 61  acquire or relea
5fe0: 73 65 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61 67  se */.  int flag
5ff0: 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s               
6000: 20 20 20 2f 2a 20 57 68 61 74 20 74 6f 20 64 6f     /* What to do
6010: 20 77 69 74 68 20 74 68 65 20 6c 6f 63 6b 20 2a   with the lock *
6020: 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66  /.){.  sqlite3_f
6030: 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20  ile *pSubOpen = 
6040: 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 43 6f  quotaSubOpen(pCo
6050: 6e 6e 29 3b 0a 20 20 72 65 74 75 72 6e 20 70 53  nn);.  return pS
6060: 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73  ubOpen->pMethods
6070: 2d 3e 78 53 68 6d 4c 6f 63 6b 28 70 53 75 62 4f  ->xShmLock(pSubO
6080: 70 65 6e 2c 20 6f 66 73 74 2c 20 6e 2c 20 66 6c  pen, ofst, n, fl
6090: 61 67 73 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73  ags);.}../* Pass
60a0: 20 78 53 68 6d 42 61 72 72 69 65 72 20 72 65 71   xShmBarrier req
60b0: 75 65 73 74 73 20 74 68 72 6f 75 67 68 20 74 6f  uests through to
60c0: 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 56 46   the original VF
60d0: 53 20 75 6e 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a  S unchanged..*/.
60e0: 73 74 61 74 69 63 20 76 6f 69 64 20 71 75 6f 74  static void quot
60f0: 61 53 68 6d 42 61 72 72 69 65 72 28 73 71 6c 69  aShmBarrier(sqli
6100: 74 65 33 5f 66 69 6c 65 20 2a 70 43 6f 6e 6e 29  te3_file *pConn)
6110: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  {.  sqlite3_file
6120: 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f   *pSubOpen = quo
6130: 74 61 53 75 62 4f 70 65 6e 28 70 43 6f 6e 6e 29  taSubOpen(pConn)
6140: 3b 0a 20 20 70 53 75 62 4f 70 65 6e 2d 3e 70 4d  ;.  pSubOpen->pM
6150: 65 74 68 6f 64 73 2d 3e 78 53 68 6d 42 61 72 72  ethods->xShmBarr
6160: 69 65 72 28 70 53 75 62 4f 70 65 6e 29 3b 0a 7d  ier(pSubOpen);.}
6170: 0a 0a 2f 2a 20 50 61 73 73 20 78 53 68 6d 55 6e  ../* Pass xShmUn
6180: 6d 61 70 20 72 65 71 75 65 73 74 73 20 74 68 72  map requests thr
6190: 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69 67  ough to the orig
61a0: 69 6e 61 6c 20 56 46 53 20 75 6e 63 68 61 6e 67  inal VFS unchang
61b0: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ed..*/.static in
61c0: 74 20 71 75 6f 74 61 53 68 6d 55 6e 6d 61 70 28  t quotaShmUnmap(
61d0: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 43  sqlite3_file *pC
61e0: 6f 6e 6e 2c 20 69 6e 74 20 64 65 6c 65 74 65 46  onn, int deleteF
61f0: 6c 61 67 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f  lag){.  sqlite3_
6200: 66 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d  file *pSubOpen =
6210: 20 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 43   quotaSubOpen(pC
6220: 6f 6e 6e 29 3b 0a 20 20 72 65 74 75 72 6e 20 70  onn);.  return p
6230: 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64  SubOpen->pMethod
6240: 73 2d 3e 78 53 68 6d 55 6e 6d 61 70 28 70 53 75  s->xShmUnmap(pSu
6250: 62 4f 70 65 6e 2c 20 64 65 6c 65 74 65 46 6c 61  bOpen, deleteFla
6260: 67 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a  g);.}../********
6270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6280: 2a 2a 20 50 75 62 6c 69 63 20 49 6e 74 65 72 66  ** Public Interf
6290: 61 63 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  aces ***********
62a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
62b0: 2a 2a 2f 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 61  **/./*.** Initia
62c0: 6c 69 7a 65 20 74 68 65 20 71 75 6f 74 61 20 56  lize the quota V
62d0: 46 53 20 73 68 69 6d 2e 20 20 55 73 65 20 74 68  FS shim.  Use th
62e0: 65 20 56 46 53 20 6e 61 6d 65 64 20 7a 4f 72 69  e VFS named zOri
62f0: 67 56 66 73 4e 61 6d 65 0a 2a 2a 20 61 73 20 74  gVfsName.** as t
6300: 68 65 20 56 46 53 20 74 68 61 74 20 64 6f 65 73  he VFS that does
6310: 20 74 68 65 20 61 63 74 75 61 6c 20 77 6f 72 6b   the actual work
6320: 2e 20 20 55 73 65 20 74 68 65 20 64 65 66 61 75  .  Use the defau
6330: 6c 74 20 69 66 0a 2a 2a 20 7a 4f 72 69 67 56 66  lt if.** zOrigVf
6340: 73 4e 61 6d 65 3d 3d 4e 55 4c 4c 2e 20 20 0a 2a  sName==NULL.  .*
6350: 2a 0a 2a 2a 20 54 68 65 20 71 75 6f 74 61 20 56  *.** The quota V
6360: 46 53 20 73 68 69 6d 20 69 73 20 6e 61 6d 65 64  FS shim is named
6370: 20 22 71 75 6f 74 61 22 2e 20 20 49 74 20 77 69   "quota".  It wi
6380: 6c 6c 20 62 65 63 6f 6d 65 20 74 68 65 20 64 65  ll become the de
6390: 66 61 75 6c 74 0a 2a 2a 20 56 46 53 20 69 66 20  fault.** VFS if 
63a0: 6d 61 6b 65 44 65 66 61 75 6c 74 20 69 73 20 6e  makeDefault is n
63b0: 6f 6e 2d 7a 65 72 6f 2e 0a 2a 2a 0a 2a 2a 20 54  on-zero..**.** T
63c0: 48 49 53 20 52 4f 55 54 49 4e 45 20 49 53 20 4e  HIS ROUTINE IS N
63d0: 4f 54 20 54 48 52 45 41 44 53 41 46 45 2e 20 20  OT THREADSAFE.  
63e0: 43 61 6c 6c 20 74 68 69 73 20 72 6f 75 74 69 6e  Call this routin
63f0: 65 20 65 78 61 63 74 6c 79 20 6f 6e 63 65 0a 2a  e exactly once.*
6400: 2a 20 64 75 72 69 6e 67 20 73 74 61 72 74 2d 75  * during start-u
6410: 70 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65  p..*/.int sqlite
6420: 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69  3_quota_initiali
6430: 7a 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  ze(const char *z
6440: 4f 72 69 67 56 66 73 4e 61 6d 65 2c 20 69 6e 74  OrigVfsName, int
6450: 20 6d 61 6b 65 44 65 66 61 75 6c 74 29 7b 0a 20   makeDefault){. 
6460: 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 4f   sqlite3_vfs *pO
6470: 72 69 67 56 66 73 3b 0a 20 20 69 66 28 20 67 51  rigVfs;.  if( gQ
6480: 75 6f 74 61 2e 69 73 49 6e 69 74 69 61 6c 69 7a  uota.isInitializ
6490: 65 64 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49  ed ) return SQLI
64a0: 54 45 5f 4d 49 53 55 53 45 3b 0a 20 20 70 4f 72  TE_MISUSE;.  pOr
64b0: 69 67 56 66 73 20 3d 20 73 71 6c 69 74 65 33 5f  igVfs = sqlite3_
64c0: 76 66 73 5f 66 69 6e 64 28 7a 4f 72 69 67 56 66  vfs_find(zOrigVf
64d0: 73 4e 61 6d 65 29 3b 0a 20 20 69 66 28 20 70 4f  sName);.  if( pO
64e0: 72 69 67 56 66 73 3d 3d 30 20 29 20 72 65 74 75  rigVfs==0 ) retu
64f0: 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b  rn SQLITE_ERROR;
6500: 0a 20 20 61 73 73 65 72 74 28 20 70 4f 72 69 67  .  assert( pOrig
6510: 56 66 73 21 3d 26 67 51 75 6f 74 61 2e 73 54 68  Vfs!=&gQuota.sTh
6520: 69 73 56 66 73 20 29 3b 0a 20 20 67 51 75 6f 74  isVfs );.  gQuot
6530: 61 2e 70 4d 75 74 65 78 20 3d 20 73 71 6c 69 74  a.pMutex = sqlit
6540: 65 33 5f 6d 75 74 65 78 5f 61 6c 6c 6f 63 28 53  e3_mutex_alloc(S
6550: 51 4c 49 54 45 5f 4d 55 54 45 58 5f 46 41 53 54  QLITE_MUTEX_FAST
6560: 29 3b 0a 20 20 69 66 28 20 21 67 51 75 6f 74 61  );.  if( !gQuota
6570: 2e 70 4d 75 74 65 78 20 29 7b 0a 20 20 20 20 72  .pMutex ){.    r
6580: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d  eturn SQLITE_NOM
6590: 45 4d 3b 0a 20 20 7d 0a 20 20 67 51 75 6f 74 61  EM;.  }.  gQuota
65a0: 2e 69 73 49 6e 69 74 69 61 6c 69 7a 65 64 20 3d  .isInitialized =
65b0: 20 31 3b 0a 20 20 67 51 75 6f 74 61 2e 70 4f 72   1;.  gQuota.pOr
65c0: 69 67 56 66 73 20 3d 20 70 4f 72 69 67 56 66 73  igVfs = pOrigVfs
65d0: 3b 0a 20 20 67 51 75 6f 74 61 2e 73 54 68 69 73  ;.  gQuota.sThis
65e0: 56 66 73 20 3d 20 2a 70 4f 72 69 67 56 66 73 3b  Vfs = *pOrigVfs;
65f0: 0a 20 20 67 51 75 6f 74 61 2e 73 54 68 69 73 56  .  gQuota.sThisV
6600: 66 73 2e 78 4f 70 65 6e 20 3d 20 71 75 6f 74 61  fs.xOpen = quota
6610: 4f 70 65 6e 3b 0a 20 20 67 51 75 6f 74 61 2e 73  Open;.  gQuota.s
6620: 54 68 69 73 56 66 73 2e 78 44 65 6c 65 74 65 20  ThisVfs.xDelete 
6630: 3d 20 71 75 6f 74 61 44 65 6c 65 74 65 3b 0a 20  = quotaDelete;. 
6640: 20 67 51 75 6f 74 61 2e 73 54 68 69 73 56 66 73   gQuota.sThisVfs
6650: 2e 73 7a 4f 73 46 69 6c 65 20 2b 3d 20 73 69 7a  .szOsFile += siz
6660: 65 6f 66 28 71 75 6f 74 61 43 6f 6e 6e 29 3b 0a  eof(quotaConn);.
6670: 20 20 67 51 75 6f 74 61 2e 73 54 68 69 73 56 66    gQuota.sThisVf
6680: 73 2e 7a 4e 61 6d 65 20 3d 20 22 71 75 6f 74 61  s.zName = "quota
6690: 22 3b 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d  ";.  gQuota.sIoM
66a0: 65 74 68 6f 64 73 56 31 2e 69 56 65 72 73 69 6f  ethodsV1.iVersio
66b0: 6e 20 3d 20 31 3b 0a 20 20 67 51 75 6f 74 61 2e  n = 1;.  gQuota.
66c0: 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e 78 43 6c  sIoMethodsV1.xCl
66d0: 6f 73 65 20 3d 20 71 75 6f 74 61 43 6c 6f 73 65  ose = quotaClose
66e0: 3b 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65  ;.  gQuota.sIoMe
66f0: 74 68 6f 64 73 56 31 2e 78 52 65 61 64 20 3d 20  thodsV1.xRead = 
6700: 71 75 6f 74 61 52 65 61 64 3b 0a 20 20 67 51 75  quotaRead;.  gQu
6710: 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 31  ota.sIoMethodsV1
6720: 2e 78 57 72 69 74 65 20 3d 20 71 75 6f 74 61 57  .xWrite = quotaW
6730: 72 69 74 65 3b 0a 20 20 67 51 75 6f 74 61 2e 73  rite;.  gQuota.s
6740: 49 6f 4d 65 74 68 6f 64 73 56 31 2e 78 54 72 75  IoMethodsV1.xTru
6750: 6e 63 61 74 65 20 3d 20 71 75 6f 74 61 54 72 75  ncate = quotaTru
6760: 6e 63 61 74 65 3b 0a 20 20 67 51 75 6f 74 61 2e  ncate;.  gQuota.
6770: 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e 78 53 79  sIoMethodsV1.xSy
6780: 6e 63 20 3d 20 71 75 6f 74 61 53 79 6e 63 3b 0a  nc = quotaSync;.
6790: 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68    gQuota.sIoMeth
67a0: 6f 64 73 56 31 2e 78 46 69 6c 65 53 69 7a 65 20  odsV1.xFileSize 
67b0: 3d 20 71 75 6f 74 61 46 69 6c 65 53 69 7a 65 3b  = quotaFileSize;
67c0: 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74  .  gQuota.sIoMet
67d0: 68 6f 64 73 56 31 2e 78 4c 6f 63 6b 20 3d 20 71  hodsV1.xLock = q
67e0: 75 6f 74 61 4c 6f 63 6b 3b 0a 20 20 67 51 75 6f  uotaLock;.  gQuo
67f0: 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e  ta.sIoMethodsV1.
6800: 78 55 6e 6c 6f 63 6b 20 3d 20 71 75 6f 74 61 55  xUnlock = quotaU
6810: 6e 6c 6f 63 6b 3b 0a 20 20 67 51 75 6f 74 61 2e  nlock;.  gQuota.
6820: 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e 78 43 68  sIoMethodsV1.xCh
6830: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 20  eckReservedLock 
6840: 3d 20 71 75 6f 74 61 43 68 65 63 6b 52 65 73 65  = quotaCheckRese
6850: 72 76 65 64 4c 6f 63 6b 3b 0a 20 20 67 51 75 6f  rvedLock;.  gQuo
6860: 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e  ta.sIoMethodsV1.
6870: 78 46 69 6c 65 43 6f 6e 74 72 6f 6c 20 3d 20 71  xFileControl = q
6880: 75 6f 74 61 46 69 6c 65 43 6f 6e 74 72 6f 6c 3b  uotaFileControl;
6890: 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74  .  gQuota.sIoMet
68a0: 68 6f 64 73 56 31 2e 78 53 65 63 74 6f 72 53 69  hodsV1.xSectorSi
68b0: 7a 65 20 3d 20 71 75 6f 74 61 53 65 63 74 6f 72  ze = quotaSector
68c0: 53 69 7a 65 3b 0a 20 20 67 51 75 6f 74 61 2e 73  Size;.  gQuota.s
68d0: 49 6f 4d 65 74 68 6f 64 73 56 31 2e 78 44 65 76  IoMethodsV1.xDev
68e0: 69 63 65 43 68 61 72 61 63 74 65 72 69 73 74 69  iceCharacteristi
68f0: 63 73 20 3d 20 71 75 6f 74 61 44 65 76 69 63 65  cs = quotaDevice
6900: 43 68 61 72 61 63 74 65 72 69 73 74 69 63 73 3b  Characteristics;
6910: 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74  .  gQuota.sIoMet
6920: 68 6f 64 73 56 32 20 3d 20 67 51 75 6f 74 61 2e  hodsV2 = gQuota.
6930: 73 49 6f 4d 65 74 68 6f 64 73 56 31 3b 0a 20 20  sIoMethodsV1;.  
6940: 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64  gQuota.sIoMethod
6950: 73 56 32 2e 69 56 65 72 73 69 6f 6e 20 3d 20 32  sV2.iVersion = 2
6960: 3b 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65  ;.  gQuota.sIoMe
6970: 74 68 6f 64 73 56 32 2e 78 53 68 6d 4d 61 70 20  thodsV2.xShmMap 
6980: 3d 20 71 75 6f 74 61 53 68 6d 4d 61 70 3b 0a 20  = quotaShmMap;. 
6990: 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f   gQuota.sIoMetho
69a0: 64 73 56 32 2e 78 53 68 6d 4c 6f 63 6b 20 3d 20  dsV2.xShmLock = 
69b0: 71 75 6f 74 61 53 68 6d 4c 6f 63 6b 3b 0a 20 20  quotaShmLock;.  
69c0: 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64  gQuota.sIoMethod
69d0: 73 56 32 2e 78 53 68 6d 42 61 72 72 69 65 72 20  sV2.xShmBarrier 
69e0: 3d 20 71 75 6f 74 61 53 68 6d 42 61 72 72 69 65  = quotaShmBarrie
69f0: 72 3b 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d  r;.  gQuota.sIoM
6a00: 65 74 68 6f 64 73 56 32 2e 78 53 68 6d 55 6e 6d  ethodsV2.xShmUnm
6a10: 61 70 20 3d 20 71 75 6f 74 61 53 68 6d 55 6e 6d  ap = quotaShmUnm
6a20: 61 70 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76 66  ap;.  sqlite3_vf
6a30: 73 5f 72 65 67 69 73 74 65 72 28 26 67 51 75 6f  s_register(&gQuo
6a40: 74 61 2e 73 54 68 69 73 56 66 73 2c 20 6d 61 6b  ta.sThisVfs, mak
6a50: 65 44 65 66 61 75 6c 74 29 3b 0a 20 20 72 65 74  eDefault);.  ret
6a60: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d  urn SQLITE_OK;.}
6a70: 0a 0a 2f 2a 0a 2a 2a 20 53 68 75 74 64 6f 77 6e  ../*.** Shutdown
6a80: 20 74 68 65 20 71 75 6f 74 61 20 73 79 73 74 65   the quota syste
6a90: 6d 2e 0a 2a 2a 0a 2a 2a 20 41 6c 6c 20 53 51 4c  m..**.** All SQL
6aa0: 69 74 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e  ite database con
6ab0: 6e 65 63 74 69 6f 6e 73 20 6d 75 73 74 20 62 65  nections must be
6ac0: 20 63 6c 6f 73 65 64 20 62 65 66 6f 72 65 20 63   closed before c
6ad0: 61 6c 6c 69 6e 67 20 74 68 69 73 0a 2a 2a 20 72  alling this.** r
6ae0: 6f 75 74 69 6e 65 2e 0a 2a 2a 0a 2a 2a 20 54 48  outine..**.** TH
6af0: 49 53 20 52 4f 55 54 49 4e 45 20 49 53 20 4e 4f  IS ROUTINE IS NO
6b00: 54 20 54 48 52 45 41 44 53 41 46 45 2e 20 20 43  T THREADSAFE.  C
6b10: 61 6c 6c 20 74 68 69 73 20 72 6f 75 74 69 6e 65  all this routine
6b20: 20 65 78 61 63 74 6c 79 20 6f 6e 63 65 20 77 68   exactly once wh
6b30: 69 6c 65 0a 2a 2a 20 73 68 75 74 74 69 6e 67 20  ile.** shutting 
6b40: 64 6f 77 6e 20 69 6e 20 6f 72 64 65 72 20 74 6f  down in order to
6b50: 20 66 72 65 65 20 61 6c 6c 20 72 65 6d 61 69 6e   free all remain
6b60: 69 6e 67 20 71 75 6f 74 61 20 67 72 6f 75 70 73  ing quota groups
6b70: 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33  ..*/.int sqlite3
6b80: 5f 71 75 6f 74 61 5f 73 68 75 74 64 6f 77 6e 28  _quota_shutdown(
6b90: 76 6f 69 64 29 7b 0a 20 20 71 75 6f 74 61 47 72  void){.  quotaGr
6ba0: 6f 75 70 20 2a 70 47 72 6f 75 70 3b 0a 20 20 69  oup *pGroup;.  i
6bb0: 66 28 20 67 51 75 6f 74 61 2e 69 73 49 6e 69 74  f( gQuota.isInit
6bc0: 69 61 6c 69 7a 65 64 3d 3d 30 20 29 20 72 65 74  ialized==0 ) ret
6bd0: 75 72 6e 20 53 51 4c 49 54 45 5f 4d 49 53 55 53  urn SQLITE_MISUS
6be0: 45 3b 0a 20 20 66 6f 72 28 70 47 72 6f 75 70 3d  E;.  for(pGroup=
6bf0: 67 51 75 6f 74 61 2e 70 47 72 6f 75 70 3b 20 70  gQuota.pGroup; p
6c00: 47 72 6f 75 70 3b 20 70 47 72 6f 75 70 3d 70 47  Group; pGroup=pG
6c10: 72 6f 75 70 2d 3e 70 4e 65 78 74 29 7b 0a 20 20  roup->pNext){.  
6c20: 20 20 69 66 28 20 71 75 6f 74 61 47 72 6f 75 70    if( quotaGroup
6c30: 4f 70 65 6e 46 69 6c 65 43 6f 75 6e 74 28 70 47  OpenFileCount(pG
6c40: 72 6f 75 70 29 3e 30 20 29 20 72 65 74 75 72 6e  roup)>0 ) return
6c50: 20 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 3b 0a   SQLITE_MISUSE;.
6c60: 20 20 7d 0a 20 20 77 68 69 6c 65 28 20 67 51 75    }.  while( gQu
6c70: 6f 74 61 2e 70 47 72 6f 75 70 20 29 7b 0a 20 20  ota.pGroup ){.  
6c80: 20 20 70 47 72 6f 75 70 20 3d 20 67 51 75 6f 74    pGroup = gQuot
6c90: 61 2e 70 47 72 6f 75 70 3b 0a 20 20 20 20 67 51  a.pGroup;.    gQ
6ca0: 75 6f 74 61 2e 70 47 72 6f 75 70 20 3d 20 70 47  uota.pGroup = pG
6cb0: 72 6f 75 70 2d 3e 70 4e 65 78 74 3b 0a 20 20 20  roup->pNext;.   
6cc0: 20 70 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 20   pGroup->iLimit 
6cd0: 3d 20 30 3b 0a 20 20 20 20 61 73 73 65 72 74 28  = 0;.    assert(
6ce0: 20 71 75 6f 74 61 47 72 6f 75 70 4f 70 65 6e 46   quotaGroupOpenF
6cf0: 69 6c 65 43 6f 75 6e 74 28 70 47 72 6f 75 70 29  ileCount(pGroup)
6d00: 3d 3d 30 20 29 3b 0a 20 20 20 20 71 75 6f 74 61  ==0 );.    quota
6d10: 47 72 6f 75 70 44 65 72 65 66 28 70 47 72 6f 75  GroupDeref(pGrou
6d20: 70 29 3b 0a 20 20 7d 0a 20 20 67 51 75 6f 74 61  p);.  }.  gQuota
6d30: 2e 69 73 49 6e 69 74 69 61 6c 69 7a 65 64 20 3d  .isInitialized =
6d40: 20 30 3b 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75   0;.  sqlite3_mu
6d50: 74 65 78 5f 66 72 65 65 28 67 51 75 6f 74 61 2e  tex_free(gQuota.
6d60: 70 4d 75 74 65 78 29 3b 0a 20 20 73 71 6c 69 74  pMutex);.  sqlit
6d70: 65 33 5f 76 66 73 5f 75 6e 72 65 67 69 73 74 65  e3_vfs_unregiste
6d80: 72 28 26 67 51 75 6f 74 61 2e 73 54 68 69 73 56  r(&gQuota.sThisV
6d90: 66 73 29 3b 0a 20 20 6d 65 6d 73 65 74 28 26 67  fs);.  memset(&g
6da0: 51 75 6f 74 61 2c 20 30 2c 20 73 69 7a 65 6f 66  Quota, 0, sizeof
6db0: 28 67 51 75 6f 74 61 29 29 3b 0a 20 20 72 65 74  (gQuota));.  ret
6dc0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d  urn SQLITE_OK;.}
6dd0: 0a 0a 2f 2a 0a 2a 2a 20 43 72 65 61 74 65 20 6f  ../*.** Create o
6de0: 72 20 64 65 73 74 72 6f 79 20 61 20 71 75 6f 74  r destroy a quot
6df0: 61 20 67 72 6f 75 70 2e 0a 2a 2a 0a 2a 2a 20 54  a group..**.** T
6e00: 68 65 20 71 75 6f 74 61 20 67 72 6f 75 70 20 69  he quota group i
6e10: 73 20 64 65 66 69 6e 65 64 20 62 79 20 74 68 65  s defined by the
6e20: 20 7a 50 61 74 74 65 72 6e 2e 20 20 57 68 65 6e   zPattern.  When
6e30: 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 72 6f   calling this ro
6e40: 75 74 69 6e 65 0a 2a 2a 20 77 69 74 68 20 61 20  utine.** with a 
6e50: 7a 50 61 74 74 65 72 6e 20 66 6f 72 20 61 20 71  zPattern for a q
6e60: 75 6f 74 61 20 67 72 6f 75 70 20 74 68 61 74 20  uota group that 
6e70: 61 6c 72 65 61 64 79 20 65 78 69 73 74 73 2c 20  already exists, 
6e80: 74 68 69 73 20 72 6f 75 74 69 6e 65 0a 2a 2a 20  this routine.** 
6e90: 6d 65 72 65 6c 79 20 75 70 64 61 74 65 73 20 74  merely updates t
6ea0: 68 65 20 69 4c 69 6d 69 74 2c 20 78 43 61 6c 6c  he iLimit, xCall
6eb0: 62 61 63 6b 2c 20 61 6e 64 20 70 41 72 67 20 76  back, and pArg v
6ec0: 61 6c 75 65 73 20 66 6f 72 20 74 68 61 74 20 71  alues for that q
6ed0: 75 6f 74 61 0a 2a 2a 20 67 72 6f 75 70 2e 20 20  uota.** group.  
6ee0: 49 66 20 7a 50 61 74 74 65 72 6e 20 69 73 20 6e  If zPattern is n
6ef0: 65 77 2c 20 74 68 65 6e 20 61 20 6e 65 77 20 71  ew, then a new q
6f00: 75 6f 74 61 20 67 72 6f 75 70 20 69 73 20 63 72  uota group is cr
6f10: 65 61 74 65 64 2e 0a 2a 2a 0a 2a 2a 20 49 66 20  eated..**.** If 
6f20: 74 68 65 20 69 4c 69 6d 69 74 20 66 6f 72 20 61  the iLimit for a
6f30: 20 71 75 6f 74 61 20 67 72 6f 75 70 20 69 73 20   quota group is 
6f40: 73 65 74 20 74 6f 20 7a 65 72 6f 2c 20 74 68 65  set to zero, the
6f50: 6e 20 74 68 65 20 71 75 6f 74 61 20 67 72 6f 75  n the quota grou
6f60: 70 0a 2a 2a 20 69 73 20 64 69 73 61 62 6c 65 64  p.** is disabled
6f70: 20 61 6e 64 20 77 69 6c 6c 20 62 65 20 64 65 6c   and will be del
6f80: 65 74 65 64 20 77 68 65 6e 20 74 68 65 20 6c 61  eted when the la
6f90: 73 74 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e  st database conn
6fa0: 65 63 74 69 6f 6e 20 75 73 69 6e 67 0a 2a 2a 20  ection using.** 
6fb0: 74 68 65 20 71 75 6f 74 61 20 67 72 6f 75 70 20  the quota group 
6fc0: 69 73 20 63 6c 6f 73 65 64 2e 0a 2a 2a 0a 2a 2a  is closed..**.**
6fd0: 20 43 61 6c 6c 69 6e 67 20 74 68 69 73 20 72 6f   Calling this ro
6fe0: 75 74 69 6e 65 20 6f 6e 20 61 20 7a 50 61 74 74  utine on a zPatt
6ff0: 65 72 6e 20 74 68 61 74 20 64 6f 65 73 20 6e 6f  ern that does no
7000: 74 20 65 78 69 73 74 20 61 6e 64 20 77 69 74 68  t exist and with
7010: 20 61 0a 2a 2a 20 7a 65 72 6f 20 69 4c 69 6d 69   a.** zero iLimi
7020: 74 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 0a 2a 2a  t is a no-op..**
7030: 0a 2a 2a 20 41 20 71 75 6f 74 61 20 67 72 6f 75  .** A quota grou
7040: 70 20 6d 75 73 74 20 65 78 69 73 74 20 77 69 74  p must exist wit
7050: 68 20 61 20 6e 6f 6e 2d 7a 65 72 6f 20 69 4c 69  h a non-zero iLi
7060: 6d 69 74 20 70 72 69 6f 72 20 74 6f 20 6f 70 65  mit prior to ope
7070: 6e 69 6e 67 0a 2a 2a 20 64 61 74 61 62 61 73 65  ning.** database
7080: 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 69 66 20   connections if 
7090: 74 68 6f 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  those connection
70a0: 73 20 61 72 65 20 74 6f 20 70 61 72 74 69 63 69  s are to partici
70b0: 70 61 74 65 20 69 6e 20 74 68 65 0a 2a 2a 20 71  pate in the.** q
70c0: 75 6f 74 61 20 67 72 6f 75 70 2e 20 20 43 72 65  uota group.  Cre
70d0: 61 74 69 6e 67 20 61 20 71 75 6f 74 61 20 67 72  ating a quota gr
70e0: 6f 75 70 20 64 6f 65 73 20 6e 6f 74 20 61 66 66  oup does not aff
70f0: 65 63 74 20 64 61 74 61 62 61 73 65 20 63 6f 6e  ect database con
7100: 6e 65 63 74 69 6f 6e 73 0a 2a 2a 20 74 68 61 74  nections.** that
7110: 20 61 72 65 20 61 6c 72 65 61 64 79 20 6f 70 65   are already ope
7120: 6e 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65  n..*/.int sqlite
7130: 33 5f 71 75 6f 74 61 5f 73 65 74 28 0a 20 20 63  3_quota_set(.  c
7140: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 50 61 74 74  onst char *zPatt
7150: 65 72 6e 2c 20 20 20 20 20 20 20 20 20 20 20 2f  ern,           /
7160: 2a 20 54 68 65 20 66 69 6c 65 6e 61 6d 65 20 70  * The filename p
7170: 61 74 74 65 72 6e 20 2a 2f 0a 20 20 73 71 6c 69  attern */.  sqli
7180: 74 65 33 5f 69 6e 74 36 34 20 69 4c 69 6d 69 74  te3_int64 iLimit
7190: 2c 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e  ,           /* N
71a0: 65 77 20 71 75 6f 74 61 20 74 6f 20 73 65 74 20  ew quota to set 
71b0: 66 6f 72 20 74 68 69 73 20 71 75 6f 74 61 20 67  for this quota g
71c0: 72 6f 75 70 20 2a 2f 0a 20 20 76 6f 69 64 20 28  roup */.  void (
71d0: 2a 78 43 61 6c 6c 62 61 63 6b 29 28 20 20 20 20  *xCallback)(    
71e0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 61 6c            /* Cal
71f0: 6c 62 61 63 6b 20 69 6e 76 6f 6b 65 64 20 77 68  lback invoked wh
7200: 65 6e 20 67 6f 69 6e 67 20 6f 76 65 72 20 71 75  en going over qu
7210: 6f 74 61 20 2a 2f 0a 20 20 20 20 20 63 6f 6e 73  ota */.     cons
7220: 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d  t char *zFilenam
7230: 65 2c 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 61  e,         /* Na
7240: 6d 65 20 6f 66 20 66 69 6c 65 20 77 68 6f 73 65  me of file whose
7250: 20 73 69 7a 65 20 69 6e 63 72 65 61 73 65 73 20   size increases 
7260: 2a 2f 0a 20 20 20 20 20 73 71 6c 69 74 65 33 5f  */.     sqlite3_
7270: 69 6e 74 36 34 20 2a 70 69 4c 69 6d 69 74 2c 20  int64 *piLimit, 
7280: 20 20 20 20 20 20 20 2f 2a 20 49 4e 2f 4f 55 54         /* IN/OUT
7290: 3a 20 54 68 65 20 63 75 72 72 65 6e 74 20 6c 69  : The current li
72a0: 6d 69 74 20 2a 2f 0a 20 20 20 20 20 73 71 6c 69  mit */.     sqli
72b0: 74 65 33 5f 69 6e 74 36 34 20 69 53 69 7a 65 2c  te3_int64 iSize,
72c0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 6f             /* To
72d0: 74 61 6c 20 73 69 7a 65 20 6f 66 20 61 6c 6c 20  tal size of all 
72e0: 66 69 6c 65 73 20 69 6e 20 74 68 65 20 67 72 6f  files in the gro
72f0: 75 70 20 2a 2f 0a 20 20 20 20 20 76 6f 69 64 20  up */.     void 
7300: 2a 70 41 72 67 20 20 20 20 20 20 20 20 20 20 20  *pArg           
7310: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 6c 69            /* Cli
7320: 65 6e 74 20 64 61 74 61 20 2a 2f 0a 20 20 29 2c  ent data */.  ),
7330: 0a 20 20 76 6f 69 64 20 2a 70 41 72 67 2c 20 20  .  void *pArg,  
7340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7350: 20 20 20 2f 2a 20 63 6c 69 65 6e 74 20 64 61 74     /* client dat
7360: 61 20 70 61 73 73 65 64 20 74 68 72 75 20 74 6f  a passed thru to
7370: 20 63 61 6c 6c 62 61 63 6b 20 2a 2f 0a 20 20 76   callback */.  v
7380: 6f 69 64 20 28 2a 78 44 65 73 74 72 6f 79 29 28  oid (*xDestroy)(
7390: 76 6f 69 64 2a 29 20 20 20 20 20 20 20 20 20 2f  void*)         /
73a0: 2a 20 4f 70 74 69 6f 6e 61 6c 20 64 65 73 74 72  * Optional destr
73b0: 75 63 74 6f 72 20 66 6f 72 20 70 41 72 67 20 2a  uctor for pArg *
73c0: 2f 0a 29 7b 0a 20 20 71 75 6f 74 61 47 72 6f 75  /.){.  quotaGrou
73d0: 70 20 2a 70 47 72 6f 75 70 3b 0a 20 20 71 75 6f  p *pGroup;.  quo
73e0: 74 61 45 6e 74 65 72 28 29 3b 0a 20 20 70 47 72  taEnter();.  pGr
73f0: 6f 75 70 20 3d 20 67 51 75 6f 74 61 2e 70 47 72  oup = gQuota.pGr
7400: 6f 75 70 3b 0a 20 20 77 68 69 6c 65 28 20 70 47  oup;.  while( pG
7410: 72 6f 75 70 20 26 26 20 73 74 72 63 6d 70 28 70  roup && strcmp(p
7420: 47 72 6f 75 70 2d 3e 7a 50 61 74 74 65 72 6e 2c  Group->zPattern,
7430: 20 7a 50 61 74 74 65 72 6e 29 21 3d 30 20 29 7b   zPattern)!=0 ){
7440: 0a 20 20 20 20 70 47 72 6f 75 70 20 3d 20 70 47  .    pGroup = pG
7450: 72 6f 75 70 2d 3e 70 4e 65 78 74 3b 0a 20 20 7d  roup->pNext;.  }
7460: 0a 20 20 69 66 28 20 70 47 72 6f 75 70 3d 3d 30  .  if( pGroup==0
7470: 20 29 7b 0a 20 20 20 20 69 6e 74 20 6e 50 61 74   ){.    int nPat
7480: 74 65 72 6e 20 3d 20 28 69 6e 74 29 28 73 74 72  tern = (int)(str
7490: 6c 65 6e 28 7a 50 61 74 74 65 72 6e 29 20 26 20  len(zPattern) & 
74a0: 30 78 33 66 66 66 66 66 66 66 29 3b 0a 20 20 20  0x3fffffff);.   
74b0: 20 69 66 28 20 69 4c 69 6d 69 74 3c 3d 30 20 29   if( iLimit<=0 )
74c0: 7b 0a 20 20 20 20 20 20 71 75 6f 74 61 4c 65 61  {.      quotaLea
74d0: 76 65 28 29 3b 0a 20 20 20 20 20 20 72 65 74 75  ve();.      retu
74e0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20  rn SQLITE_OK;.  
74f0: 20 20 7d 0a 20 20 20 20 70 47 72 6f 75 70 20 3d    }.    pGroup =
7500: 20 28 71 75 6f 74 61 47 72 6f 75 70 20 2a 29 73   (quotaGroup *)s
7510: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 73  qlite3_malloc( s
7520: 69 7a 65 6f 66 28 2a 70 47 72 6f 75 70 29 20 2b  izeof(*pGroup) +
7530: 20 6e 50 61 74 74 65 72 6e 20 2b 20 31 20 29 3b   nPattern + 1 );
7540: 0a 20 20 20 20 69 66 28 20 70 47 72 6f 75 70 3d  .    if( pGroup=
7550: 3d 30 20 29 7b 0a 20 20 20 20 20 20 71 75 6f 74  =0 ){.      quot
7560: 61 4c 65 61 76 65 28 29 3b 0a 20 20 20 20 20 20  aLeave();.      
7570: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f  return SQLITE_NO
7580: 4d 45 4d 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6d  MEM;.    }.    m
7590: 65 6d 73 65 74 28 70 47 72 6f 75 70 2c 20 30 2c  emset(pGroup, 0,
75a0: 20 73 69 7a 65 6f 66 28 2a 70 47 72 6f 75 70 29   sizeof(*pGroup)
75b0: 29 3b 0a 20 20 20 20 70 47 72 6f 75 70 2d 3e 7a  );.    pGroup->z
75c0: 50 61 74 74 65 72 6e 20 3d 20 28 63 68 61 72 2a  Pattern = (char*
75d0: 29 26 70 47 72 6f 75 70 5b 31 5d 3b 0a 20 20 20  )&pGroup[1];.   
75e0: 20 6d 65 6d 63 70 79 28 28 63 68 61 72 20 2a 29   memcpy((char *)
75f0: 70 47 72 6f 75 70 2d 3e 7a 50 61 74 74 65 72 6e  pGroup->zPattern
7600: 2c 20 7a 50 61 74 74 65 72 6e 2c 20 6e 50 61 74  , zPattern, nPat
7610: 74 65 72 6e 2b 31 29 3b 0a 20 20 20 20 69 66 28  tern+1);.    if(
7620: 20 67 51 75 6f 74 61 2e 70 47 72 6f 75 70 20 29   gQuota.pGroup )
7630: 20 67 51 75 6f 74 61 2e 70 47 72 6f 75 70 2d 3e   gQuota.pGroup->
7640: 70 70 50 72 65 76 20 3d 20 26 70 47 72 6f 75 70  ppPrev = &pGroup
7650: 2d 3e 70 4e 65 78 74 3b 0a 20 20 20 20 70 47 72  ->pNext;.    pGr
7660: 6f 75 70 2d 3e 70 4e 65 78 74 20 3d 20 67 51 75  oup->pNext = gQu
7670: 6f 74 61 2e 70 47 72 6f 75 70 3b 0a 20 20 20 20  ota.pGroup;.    
7680: 70 47 72 6f 75 70 2d 3e 70 70 50 72 65 76 20 3d  pGroup->ppPrev =
7690: 20 26 67 51 75 6f 74 61 2e 70 47 72 6f 75 70 3b   &gQuota.pGroup;
76a0: 0a 20 20 20 20 67 51 75 6f 74 61 2e 70 47 72 6f  .    gQuota.pGro
76b0: 75 70 20 3d 20 70 47 72 6f 75 70 3b 0a 20 20 7d  up = pGroup;.  }
76c0: 0a 20 20 70 47 72 6f 75 70 2d 3e 69 4c 69 6d 69  .  pGroup->iLimi
76d0: 74 20 3d 20 69 4c 69 6d 69 74 3b 0a 20 20 70 47  t = iLimit;.  pG
76e0: 72 6f 75 70 2d 3e 78 43 61 6c 6c 62 61 63 6b 20  roup->xCallback 
76f0: 3d 20 78 43 61 6c 6c 62 61 63 6b 3b 0a 20 20 69  = xCallback;.  i
7700: 66 28 20 70 47 72 6f 75 70 2d 3e 78 44 65 73 74  f( pGroup->xDest
7710: 72 6f 79 20 26 26 20 70 47 72 6f 75 70 2d 3e 70  roy && pGroup->p
7720: 41 72 67 21 3d 70 41 72 67 20 29 7b 0a 20 20 20  Arg!=pArg ){.   
7730: 20 70 47 72 6f 75 70 2d 3e 78 44 65 73 74 72 6f   pGroup->xDestro
7740: 79 28 70 47 72 6f 75 70 2d 3e 70 41 72 67 29 3b  y(pGroup->pArg);
7750: 0a 20 20 7d 0a 20 20 70 47 72 6f 75 70 2d 3e 70  .  }.  pGroup->p
7760: 41 72 67 20 3d 20 70 41 72 67 3b 0a 20 20 70 47  Arg = pArg;.  pG
7770: 72 6f 75 70 2d 3e 78 44 65 73 74 72 6f 79 20 3d  roup->xDestroy =
7780: 20 78 44 65 73 74 72 6f 79 3b 0a 20 20 71 75 6f   xDestroy;.  quo
7790: 74 61 47 72 6f 75 70 44 65 72 65 66 28 70 47 72  taGroupDeref(pGr
77a0: 6f 75 70 29 3b 0a 20 20 71 75 6f 74 61 4c 65 61  oup);.  quotaLea
77b0: 76 65 28 29 3b 0a 20 20 72 65 74 75 72 6e 20 53  ve();.  return S
77c0: 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  QLITE_OK;.}../*.
77d0: 2a 2a 20 42 72 69 6e 67 20 74 68 65 20 6e 61 6d  ** Bring the nam
77e0: 65 64 20 66 69 6c 65 20 75 6e 64 65 72 20 71 75  ed file under qu
77f0: 6f 74 61 20 6d 61 6e 61 67 65 6d 65 6e 74 2e 20  ota management. 
7800: 20 4f 72 20 69 66 20 69 74 20 69 73 20 61 6c 72   Or if it is alr
7810: 65 61 64 79 20 75 6e 64 65 72 0a 2a 2a 20 6d 61  eady under.** ma
7820: 6e 61 67 65 6d 65 6e 74 2c 20 75 70 64 61 74 65  nagement, update
7830: 20 69 74 73 20 73 69 7a 65 2e 0a 2a 2f 0a 69 6e   its size..*/.in
7840: 74 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f  t sqlite3_quota_
7850: 66 69 6c 65 28 63 6f 6e 73 74 20 63 68 61 72 20  file(const char 
7860: 2a 7a 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 63  *zFilename){.  c
7870: 68 61 72 20 2a 7a 46 75 6c 6c 3b 0a 20 20 73 71  har *zFull;.  sq
7880: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 66 64 3b 0a  lite3_file *fd;.
7890: 20 20 69 6e 74 20 72 63 3b 0a 20 20 69 6e 74 20    int rc;.  int 
78a0: 6f 75 74 46 6c 61 67 73 20 3d 20 30 3b 0a 20 20  outFlags = 0;.  
78b0: 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 53  sqlite3_int64 iS
78c0: 69 7a 65 3b 0a 20 20 69 6e 74 20 6e 41 6c 6c 6f  ize;.  int nAllo
78d0: 63 20 3d 20 67 51 75 6f 74 61 2e 73 54 68 69 73  c = gQuota.sThis
78e0: 56 66 73 2e 73 7a 4f 73 46 69 6c 65 20 2b 20 67  Vfs.szOsFile + g
78f0: 51 75 6f 74 61 2e 73 54 68 69 73 56 66 73 2e 6d  Quota.sThisVfs.m
7900: 78 50 61 74 68 6e 61 6d 65 2b 32 3b 0a 0a 20 20  xPathname+2;..  
7910: 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 70 61 63  /* Allocate spac
7920: 65 20 66 6f 72 20 61 20 66 69 6c 65 2d 68 61 6e  e for a file-han
7930: 64 6c 65 20 61 6e 64 20 74 68 65 20 66 75 6c 6c  dle and the full
7940: 20 70 61 74 68 20 66 6f 72 20 66 69 6c 65 20 7a   path for file z
7950: 46 69 6c 65 6e 61 6d 65 20 2a 2f 0a 20 20 66 64  Filename */.  fd
7960: 20 3d 20 28 73 71 6c 69 74 65 33 5f 66 69 6c 65   = (sqlite3_file
7970: 20 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f   *)sqlite3_mallo
7980: 63 28 6e 41 6c 6c 6f 63 29 3b 0a 20 20 69 66 28  c(nAlloc);.  if(
7990: 20 66 64 3d 3d 30 20 29 7b 0a 20 20 20 20 72 63   fd==0 ){.    rc
79a0: 20 3d 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b   = SQLITE_NOMEM;
79b0: 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 7a 46  .  }else{.    zF
79c0: 75 6c 6c 20 3d 20 26 28 28 63 68 61 72 20 2a 29  ull = &((char *)
79d0: 66 64 29 5b 67 51 75 6f 74 61 2e 73 54 68 69 73  fd)[gQuota.sThis
79e0: 56 66 73 2e 73 7a 4f 73 46 69 6c 65 5d 3b 0a 20  Vfs.szOsFile];. 
79f0: 20 20 20 72 63 20 3d 20 67 51 75 6f 74 61 2e 70     rc = gQuota.p
7a00: 4f 72 69 67 56 66 73 2d 3e 78 46 75 6c 6c 50 61  OrigVfs->xFullPa
7a10: 74 68 6e 61 6d 65 28 67 51 75 6f 74 61 2e 70 4f  thname(gQuota.pO
7a20: 72 69 67 56 66 73 2c 20 7a 46 69 6c 65 6e 61 6d  rigVfs, zFilenam
7a30: 65 2c 0a 20 20 20 20 20 20 20 20 67 51 75 6f 74  e,.        gQuot
7a40: 61 2e 73 54 68 69 73 56 66 73 2e 6d 78 50 61 74  a.sThisVfs.mxPat
7a50: 68 6e 61 6d 65 2b 31 2c 20 7a 46 75 6c 6c 29 3b  hname+1, zFull);
7a60: 0a 20 20 7d 0a 0a 20 20 69 66 28 20 72 63 3d 3d  .  }..  if( rc==
7a70: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20  SQLITE_OK ){.   
7a80: 20 7a 46 75 6c 6c 5b 73 74 72 6c 65 6e 28 7a 46   zFull[strlen(zF
7a90: 75 6c 6c 29 2b 31 5d 20 3d 20 27 5c 30 27 3b 0a  ull)+1] = '\0';.
7aa0: 20 20 20 20 72 63 20 3d 20 71 75 6f 74 61 4f 70      rc = quotaOp
7ab0: 65 6e 28 26 67 51 75 6f 74 61 2e 73 54 68 69 73  en(&gQuota.sThis
7ac0: 56 66 73 2c 20 7a 46 75 6c 6c 2c 20 66 64 2c 20  Vfs, zFull, fd, 
7ad0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
7ae0: 20 20 20 20 53 51 4c 49 54 45 5f 4f 50 45 4e 5f      SQLITE_OPEN_
7af0: 52 45 41 44 4f 4e 4c 59 20 7c 20 53 51 4c 49 54  READONLY | SQLIT
7b00: 45 5f 4f 50 45 4e 5f 4d 41 49 4e 5f 44 42 2c 20  E_OPEN_MAIN_DB, 
7b10: 26 6f 75 74 46 6c 61 67 73 29 3b 0a 20 20 20 20  &outFlags);.    
7b20: 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f  if( rc==SQLITE_O
7b30: 4b 20 29 7b 0a 20 20 20 20 20 20 66 64 2d 3e 70  K ){.      fd->p
7b40: 4d 65 74 68 6f 64 73 2d 3e 78 46 69 6c 65 53 69  Methods->xFileSi
7b50: 7a 65 28 66 64 2c 20 26 69 53 69 7a 65 29 3b 0a  ze(fd, &iSize);.
7b60: 20 20 20 20 20 20 66 64 2d 3e 70 4d 65 74 68 6f        fd->pMetho
7b70: 64 73 2d 3e 78 43 6c 6f 73 65 28 66 64 29 3b 0a  ds->xClose(fd);.
7b80: 20 20 20 20 7d 65 6c 73 65 20 69 66 28 20 72 63      }else if( rc
7b90: 3d 3d 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45  ==SQLITE_CANTOPE
7ba0: 4e 20 29 7b 0a 20 20 20 20 20 20 71 75 6f 74 61  N ){.      quota
7bb0: 47 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 0a 20  Group *pGroup;. 
7bc0: 20 20 20 20 20 71 75 6f 74 61 46 69 6c 65 20 2a       quotaFile *
7bd0: 70 46 69 6c 65 3b 0a 20 20 20 20 20 20 71 75 6f  pFile;.      quo
7be0: 74 61 45 6e 74 65 72 28 29 3b 0a 20 20 20 20 20  taEnter();.     
7bf0: 20 70 47 72 6f 75 70 20 3d 20 71 75 6f 74 61 47   pGroup = quotaG
7c00: 72 6f 75 70 46 69 6e 64 28 7a 46 75 6c 6c 29 3b  roupFind(zFull);
7c10: 0a 20 20 20 20 20 20 69 66 28 20 70 47 72 6f 75  .      if( pGrou
7c20: 70 20 29 7b 0a 20 20 20 20 20 20 20 20 70 46 69  p ){.        pFi
7c30: 6c 65 20 3d 20 71 75 6f 74 61 46 69 6e 64 46 69  le = quotaFindFi
7c40: 6c 65 28 70 47 72 6f 75 70 2c 20 7a 46 75 6c 6c  le(pGroup, zFull
7c50: 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 69 66  , 0);.        if
7c60: 28 20 70 46 69 6c 65 20 29 20 71 75 6f 74 61 52  ( pFile ) quotaR
7c70: 65 6d 6f 76 65 46 69 6c 65 28 70 46 69 6c 65 29  emoveFile(pFile)
7c80: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  ;.      }.      
7c90: 71 75 6f 74 61 4c 65 61 76 65 28 29 3b 0a 20 20  quotaLeave();.  
7ca0: 20 20 7d 0a 20 20 7d 0a 0a 20 20 73 71 6c 69 74    }.  }..  sqlit
7cb0: 65 33 5f 66 72 65 65 28 66 64 29 3b 0a 20 20 72  e3_free(fd);.  r
7cc0: 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a  eturn rc;.}../*.
7cd0: 2a 2a 20 4f 70 65 6e 20 61 20 70 6f 74 65 6e 74  ** Open a potent
7ce0: 69 61 6c 6c 79 20 71 75 6f 74 61 65 64 20 66 69  ially quotaed fi
7cf0: 6c 65 20 66 6f 72 20 49 2f 4f 2e 0a 2a 2f 0a 71  le for I/O..*/.q
7d00: 75 6f 74 61 5f 46 49 4c 45 20 2a 73 71 6c 69 74  uota_FILE *sqlit
7d10: 65 33 5f 71 75 6f 74 61 5f 66 6f 70 65 6e 28 63  e3_quota_fopen(c
7d20: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65  onst char *zFile
7d30: 6e 61 6d 65 2c 20 63 6f 6e 73 74 20 63 68 61 72  name, const char
7d40: 20 2a 7a 4d 6f 64 65 29 7b 0a 20 20 71 75 6f 74   *zMode){.  quot
7d50: 61 5f 46 49 4c 45 20 2a 70 20 3d 20 30 3b 0a 20  a_FILE *p = 0;. 
7d60: 20 63 68 61 72 20 2a 7a 46 75 6c 6c 20 3d 20 30   char *zFull = 0
7d70: 3b 0a 20 20 63 68 61 72 20 2a 7a 46 75 6c 6c 54  ;.  char *zFullT
7d80: 72 61 6e 73 6c 61 74 65 64 20 3d 20 30 3b 0a 20  ranslated = 0;. 
7d90: 20 69 6e 74 20 72 63 3b 0a 20 20 71 75 6f 74 61   int rc;.  quota
7da0: 47 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 0a 20  Group *pGroup;. 
7db0: 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c   quotaFile *pFil
7dc0: 65 3b 0a 0a 20 20 7a 46 75 6c 6c 20 3d 20 28 63  e;..  zFull = (c
7dd0: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c  har*)sqlite3_mal
7de0: 6c 6f 63 28 67 51 75 6f 74 61 2e 73 54 68 69 73  loc(gQuota.sThis
7df0: 56 66 73 2e 6d 78 50 61 74 68 6e 61 6d 65 20 2b  Vfs.mxPathname +
7e00: 20 31 29 3b 0a 20 20 69 66 28 20 7a 46 75 6c 6c   1);.  if( zFull
7e10: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a  ==0 ) return 0;.
7e20: 20 20 72 63 20 3d 20 67 51 75 6f 74 61 2e 70 4f    rc = gQuota.pO
7e30: 72 69 67 56 66 73 2d 3e 78 46 75 6c 6c 50 61 74  rigVfs->xFullPat
7e40: 68 6e 61 6d 65 28 67 51 75 6f 74 61 2e 70 4f 72  hname(gQuota.pOr
7e50: 69 67 56 66 73 2c 20 7a 46 69 6c 65 6e 61 6d 65  igVfs, zFilename
7e60: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,.              
7e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7e80: 20 20 20 20 20 20 20 20 67 51 75 6f 74 61 2e 73          gQuota.s
7e90: 54 68 69 73 56 66 73 2e 6d 78 50 61 74 68 6e 61  ThisVfs.mxPathna
7ea0: 6d 65 2b 31 2c 20 7a 46 75 6c 6c 29 3b 0a 20 20  me+1, zFull);.  
7eb0: 69 66 28 20 72 63 20 29 20 67 6f 74 6f 20 71 75  if( rc ) goto qu
7ec0: 6f 74 61 5f 66 6f 70 65 6e 5f 65 72 72 6f 72 3b  ota_fopen_error;
7ed0: 0a 20 20 70 20 3d 20 28 71 75 6f 74 61 5f 46 49  .  p = (quota_FI
7ee0: 4c 45 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c 6c  LE*)sqlite3_mall
7ef0: 6f 63 28 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0a  oc(sizeof(*p));.
7f00: 20 20 69 66 28 20 70 3d 3d 30 20 29 20 67 6f 74    if( p==0 ) got
7f10: 6f 20 71 75 6f 74 61 5f 66 6f 70 65 6e 5f 65 72  o quota_fopen_er
7f20: 72 6f 72 3b 0a 20 20 6d 65 6d 73 65 74 28 70 2c  ror;.  memset(p,
7f30: 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b   0, sizeof(*p));
7f40: 0a 20 20 7a 46 75 6c 6c 54 72 61 6e 73 6c 61 74  .  zFullTranslat
7f50: 65 64 20 3d 20 71 75 6f 74 61 5f 75 74 66 38 5f  ed = quota_utf8_
7f60: 74 6f 5f 6d 62 63 73 28 7a 46 75 6c 6c 29 3b 0a  to_mbcs(zFull);.
7f70: 20 20 69 66 28 20 7a 46 75 6c 6c 54 72 61 6e 73    if( zFullTrans
7f80: 6c 61 74 65 64 3d 3d 30 20 29 20 67 6f 74 6f 20  lated==0 ) goto 
7f90: 71 75 6f 74 61 5f 66 6f 70 65 6e 5f 65 72 72 6f  quota_fopen_erro
7fa0: 72 3b 0a 20 20 70 2d 3e 66 20 3d 20 66 6f 70 65  r;.  p->f = fope
7fb0: 6e 28 7a 46 75 6c 6c 54 72 61 6e 73 6c 61 74 65  n(zFullTranslate
7fc0: 64 2c 20 7a 4d 6f 64 65 29 3b 0a 20 20 69 66 28  d, zMode);.  if(
7fd0: 20 70 2d 3e 66 3d 3d 30 20 29 20 67 6f 74 6f 20   p->f==0 ) goto 
7fe0: 71 75 6f 74 61 5f 66 6f 70 65 6e 5f 65 72 72 6f  quota_fopen_erro
7ff0: 72 3b 0a 20 20 71 75 6f 74 61 45 6e 74 65 72 28  r;.  quotaEnter(
8000: 29 3b 0a 20 20 70 47 72 6f 75 70 20 3d 20 71 75  );.  pGroup = qu
8010: 6f 74 61 47 72 6f 75 70 46 69 6e 64 28 7a 46 75  otaGroupFind(zFu
8020: 6c 6c 29 3b 0a 20 20 69 66 28 20 70 47 72 6f 75  ll);.  if( pGrou
8030: 70 20 29 7b 0a 20 20 20 20 70 46 69 6c 65 20 3d  p ){.    pFile =
8040: 20 71 75 6f 74 61 46 69 6e 64 46 69 6c 65 28 70   quotaFindFile(p
8050: 47 72 6f 75 70 2c 20 7a 46 75 6c 6c 2c 20 31 29  Group, zFull, 1)
8060: 3b 0a 20 20 20 20 69 66 28 20 70 46 69 6c 65 3d  ;.    if( pFile=
8070: 3d 30 20 29 7b 0a 20 20 20 20 20 20 71 75 6f 74  =0 ){.      quot
8080: 61 4c 65 61 76 65 28 29 3b 0a 20 20 20 20 20 20  aLeave();.      
8090: 67 6f 74 6f 20 71 75 6f 74 61 5f 66 6f 70 65 6e  goto quota_fopen
80a0: 5f 65 72 72 6f 72 3b 0a 20 20 20 20 7d 0a 20 20  _error;.    }.  
80b0: 20 20 70 46 69 6c 65 2d 3e 6e 52 65 66 2b 2b 3b    pFile->nRef++;
80c0: 0a 20 20 20 20 70 2d 3e 70 46 69 6c 65 20 3d 20  .    p->pFile = 
80d0: 70 46 69 6c 65 3b 0a 20 20 7d 0a 20 20 71 75 6f  pFile;.  }.  quo
80e0: 74 61 4c 65 61 76 65 28 29 3b 0a 20 20 73 71 6c  taLeave();.  sql
80f0: 69 74 65 33 5f 66 72 65 65 28 7a 46 75 6c 6c 29  ite3_free(zFull)
8100: 3b 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f  ;.#if SQLITE_OS_
8110: 57 49 4e 0a 20 20 70 2d 3e 7a 4d 62 63 73 4e 61  WIN.  p->zMbcsNa
8120: 6d 65 20 3d 20 7a 46 75 6c 6c 54 72 61 6e 73 6c  me = zFullTransl
8130: 61 74 65 64 3b 0a 23 65 6e 64 69 66 0a 20 20 72  ated;.#endif.  r
8140: 65 74 75 72 6e 20 70 3b 0a 0a 71 75 6f 74 61 5f  eturn p;..quota_
8150: 66 6f 70 65 6e 5f 65 72 72 6f 72 3a 0a 20 20 71  fopen_error:.  q
8160: 75 6f 74 61 5f 6d 62 63 73 5f 66 72 65 65 28 7a  uota_mbcs_free(z
8170: 46 75 6c 6c 54 72 61 6e 73 6c 61 74 65 64 29 3b  FullTranslated);
8180: 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65 28  .  sqlite3_free(
8190: 7a 46 75 6c 6c 29 3b 0a 20 20 69 66 28 20 70 20  zFull);.  if( p 
81a0: 26 26 20 70 2d 3e 66 20 29 20 66 63 6c 6f 73 65  && p->f ) fclose
81b0: 28 70 2d 3e 66 29 3b 0a 20 20 73 71 6c 69 74 65  (p->f);.  sqlite
81c0: 33 5f 66 72 65 65 28 70 29 3b 0a 20 20 72 65 74  3_free(p);.  ret
81d0: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  urn 0;.}../*.** 
81e0: 52 65 61 64 20 63 6f 6e 74 65 6e 74 20 66 72 6f  Read content fro
81f0: 6d 20 61 20 71 75 6f 74 61 5f 46 49 4c 45 0a 2a  m a quota_FILE.*
8200: 2f 0a 73 69 7a 65 5f 74 20 73 71 6c 69 74 65 33  /.size_t sqlite3
8210: 5f 71 75 6f 74 61 5f 66 72 65 61 64 28 0a 20 20  _quota_fread(.  
8220: 76 6f 69 64 20 2a 70 42 75 66 2c 20 20 20 20 20  void *pBuf,     
8230: 20 20 20 20 20 20 20 2f 2a 20 53 74 6f 72 65 20         /* Store 
8240: 74 68 65 20 63 6f 6e 74 65 6e 74 20 68 65 72 65  the content here
8250: 20 2a 2f 0a 20 20 73 69 7a 65 5f 74 20 73 69 7a   */.  size_t siz
8260: 65 2c 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  e,           /* 
8270: 53 69 7a 65 20 6f 66 20 65 61 63 68 20 65 6c 65  Size of each ele
8280: 6d 65 6e 74 20 2a 2f 0a 20 20 73 69 7a 65 5f 74  ment */.  size_t
8290: 20 6e 6d 65 6d 62 2c 20 20 20 20 20 20 20 20 20   nmemb,         
82a0: 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 65 6c   /* Number of el
82b0: 65 6d 65 6e 74 73 20 74 6f 20 72 65 61 64 20 2a  ements to read *
82c0: 2f 0a 20 20 71 75 6f 74 61 5f 46 49 4c 45 20 2a  /.  quota_FILE *
82d0: 70 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 65  p          /* Re
82e0: 61 64 20 66 72 6f 6d 20 74 68 69 73 20 71 75 6f  ad from this quo
82f0: 74 61 5f 46 49 4c 45 20 6f 62 6a 65 63 74 20 2a  ta_FILE object *
8300: 2f 0a 29 7b 0a 20 20 72 65 74 75 72 6e 20 66 72  /.){.  return fr
8310: 65 61 64 28 70 42 75 66 2c 20 73 69 7a 65 2c 20  ead(pBuf, size, 
8320: 6e 6d 65 6d 62 2c 20 70 2d 3e 66 29 3b 0a 7d 0a  nmemb, p->f);.}.
8330: 0a 2f 2a 0a 2a 2a 20 57 72 69 74 65 20 63 6f 6e  ./*.** Write con
8340: 74 65 6e 74 20 69 6e 74 6f 20 61 20 71 75 6f 74  tent into a quot
8350: 61 5f 46 49 4c 45 2e 20 20 49 6e 76 6f 6b 65 20  a_FILE.  Invoke 
8360: 74 68 65 20 71 75 6f 74 61 20 63 61 6c 6c 62 61  the quota callba
8370: 63 6b 20 61 6e 64 20 62 6c 6f 63 6b 0a 2a 2a 20  ck and block.** 
8380: 74 68 65 20 77 72 69 74 65 20 69 66 20 77 65 20  the write if we 
8390: 65 78 63 65 65 64 20 71 75 6f 74 61 2e 0a 2a 2f  exceed quota..*/
83a0: 0a 73 69 7a 65 5f 74 20 73 71 6c 69 74 65 33 5f  .size_t sqlite3_
83b0: 71 75 6f 74 61 5f 66 77 72 69 74 65 28 0a 20 20  quota_fwrite(.  
83c0: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 70 42 75 66  const void *pBuf
83d0: 2c 20 20 20 20 20 20 2f 2a 20 54 61 6b 65 20 63  ,      /* Take c
83e0: 6f 6e 74 65 6e 74 20 74 6f 20 77 72 69 74 65 20  ontent to write 
83f0: 66 72 6f 6d 20 68 65 72 65 20 2a 2f 0a 20 20 73  from here */.  s
8400: 69 7a 65 5f 74 20 73 69 7a 65 2c 20 20 20 20 20  ize_t size,     
8410: 20 20 20 20 20 20 2f 2a 20 53 69 7a 65 20 6f 66        /* Size of
8420: 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 2a 2f   each element */
8430: 0a 20 20 73 69 7a 65 5f 74 20 6e 6d 65 6d 62 2c  .  size_t nmemb,
8440: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
8450: 62 65 72 20 6f 66 20 65 6c 65 6d 65 6e 74 73 20  ber of elements 
8460: 2a 2f 0a 20 20 71 75 6f 74 61 5f 46 49 4c 45 20  */.  quota_FILE 
8470: 2a 70 20 20 20 20 20 20 20 20 20 20 2f 2a 20 57  *p          /* W
8480: 72 69 74 65 20 74 6f 20 74 68 69 73 20 71 75 6f  rite to this quo
8490: 74 61 5f 46 49 4c 45 20 6f 62 6a 65 63 63 74 20  ta_FILE objecct 
84a0: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f  */.){.  sqlite3_
84b0: 69 6e 74 36 34 20 69 4f 66 73 74 3b 0a 20 20 73  int64 iOfst;.  s
84c0: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69 45 6e  qlite3_int64 iEn
84d0: 64 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74  d;.  sqlite3_int
84e0: 36 34 20 73 7a 4e 65 77 3b 0a 20 20 71 75 6f 74  64 szNew;.  quot
84f0: 61 46 69 6c 65 20 2a 70 46 69 6c 65 3b 0a 20 20  aFile *pFile;.  
8500: 73 69 7a 65 5f 74 20 72 63 3b 0a 0a 20 20 69 4f  size_t rc;..  iO
8510: 66 73 74 20 3d 20 66 74 65 6c 6c 28 70 2d 3e 66  fst = ftell(p->f
8520: 29 3b 0a 20 20 69 45 6e 64 20 3d 20 69 4f 66 73  );.  iEnd = iOfs
8530: 74 20 2b 20 73 69 7a 65 2a 6e 6d 65 6d 62 3b 0a  t + size*nmemb;.
8540: 20 20 70 46 69 6c 65 20 3d 20 70 2d 3e 70 46 69    pFile = p->pFi
8550: 6c 65 3b 0a 20 20 69 66 28 20 70 46 69 6c 65 20  le;.  if( pFile 
8560: 26 26 20 70 46 69 6c 65 2d 3e 69 53 69 7a 65 3c  && pFile->iSize<
8570: 69 45 6e 64 20 29 7b 0a 20 20 20 20 71 75 6f 74  iEnd ){.    quot
8580: 61 47 72 6f 75 70 20 2a 70 47 72 6f 75 70 20 3d  aGroup *pGroup =
8590: 20 70 46 69 6c 65 2d 3e 70 47 72 6f 75 70 3b 0a   pFile->pGroup;.
85a0: 20 20 20 20 71 75 6f 74 61 45 6e 74 65 72 28 29      quotaEnter()
85b0: 3b 0a 20 20 20 20 73 7a 4e 65 77 20 3d 20 70 47  ;.    szNew = pG
85c0: 72 6f 75 70 2d 3e 69 53 69 7a 65 20 2d 20 70 46  roup->iSize - pF
85d0: 69 6c 65 2d 3e 69 53 69 7a 65 20 2b 20 69 45 6e  ile->iSize + iEn
85e0: 64 3b 0a 20 20 20 20 69 66 28 20 73 7a 4e 65 77  d;.    if( szNew
85f0: 3e 70 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 20  >pGroup->iLimit 
8600: 26 26 20 70 47 72 6f 75 70 2d 3e 69 4c 69 6d 69  && pGroup->iLimi
8610: 74 3e 30 20 29 7b 0a 20 20 20 20 20 20 69 66 28  t>0 ){.      if(
8620: 20 70 47 72 6f 75 70 2d 3e 78 43 61 6c 6c 62 61   pGroup->xCallba
8630: 63 6b 20 29 7b 0a 20 20 20 20 20 20 20 20 70 47  ck ){.        pG
8640: 72 6f 75 70 2d 3e 78 43 61 6c 6c 62 61 63 6b 28  roup->xCallback(
8650: 70 46 69 6c 65 2d 3e 7a 46 69 6c 65 6e 61 6d 65  pFile->zFilename
8660: 2c 20 26 70 47 72 6f 75 70 2d 3e 69 4c 69 6d 69  , &pGroup->iLimi
8670: 74 2c 20 73 7a 4e 65 77 2c 20 0a 20 20 20 20 20  t, szNew, .     
8680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8690: 20 20 20 20 20 70 47 72 6f 75 70 2d 3e 70 41 72       pGroup->pAr
86a0: 67 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  g);.      }.    
86b0: 20 20 69 66 28 20 73 7a 4e 65 77 3e 70 47 72 6f    if( szNew>pGro
86c0: 75 70 2d 3e 69 4c 69 6d 69 74 20 26 26 20 70 47  up->iLimit && pG
86d0: 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 3e 30 20 29  roup->iLimit>0 )
86e0: 7b 0a 20 20 20 20 20 20 20 20 69 45 6e 64 20 3d  {.        iEnd =
86f0: 20 70 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 20   pGroup->iLimit 
8700: 2d 20 70 47 72 6f 75 70 2d 3e 69 53 69 7a 65 20  - pGroup->iSize 
8710: 2b 20 70 46 69 6c 65 2d 3e 69 53 69 7a 65 3b 0a  + pFile->iSize;.
8720: 20 20 20 20 20 20 20 20 6e 6d 65 6d 62 20 3d 20          nmemb = 
8730: 28 73 69 7a 65 5f 74 29 28 28 69 45 6e 64 20 2d  (size_t)((iEnd -
8740: 20 69 4f 66 73 74 29 2f 73 69 7a 65 29 3b 0a 20   iOfst)/size);. 
8750: 20 20 20 20 20 20 20 69 45 6e 64 20 3d 20 69 4f         iEnd = iO
8760: 66 73 74 20 2b 20 73 69 7a 65 2a 6e 6d 65 6d 62  fst + size*nmemb
8770: 3b 0a 20 20 20 20 20 20 20 20 73 7a 4e 65 77 20  ;.        szNew 
8780: 3d 20 70 47 72 6f 75 70 2d 3e 69 53 69 7a 65 20  = pGroup->iSize 
8790: 2d 20 70 46 69 6c 65 2d 3e 69 53 69 7a 65 20 2b  - pFile->iSize +
87a0: 20 69 45 6e 64 3b 0a 20 20 20 20 20 20 7d 0a 20   iEnd;.      }. 
87b0: 20 20 20 7d 0a 20 20 20 20 70 47 72 6f 75 70 2d     }.    pGroup-
87c0: 3e 69 53 69 7a 65 20 3d 20 73 7a 4e 65 77 3b 0a  >iSize = szNew;.
87d0: 20 20 20 20 70 46 69 6c 65 2d 3e 69 53 69 7a 65      pFile->iSize
87e0: 20 3d 20 69 45 6e 64 3b 0a 20 20 20 20 71 75 6f   = iEnd;.    quo
87f0: 74 61 4c 65 61 76 65 28 29 3b 0a 20 20 7d 65 6c  taLeave();.  }el
8800: 73 65 7b 0a 20 20 20 20 70 46 69 6c 65 20 3d 20  se{.    pFile = 
8810: 30 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20 66 77  0;.  }.  rc = fw
8820: 72 69 74 65 28 70 42 75 66 2c 20 73 69 7a 65 2c  rite(pBuf, size,
8830: 20 6e 6d 65 6d 62 2c 20 70 2d 3e 66 29 3b 0a 0a   nmemb, p->f);..
8840: 20 20 2f 2a 20 49 66 20 74 68 65 20 77 72 69 74    /* If the writ
8850: 65 20 77 61 73 20 69 6e 63 6f 6d 70 6c 65 74 65  e was incomplete
8860: 2c 20 61 64 6a 75 73 74 20 74 68 65 20 66 69 6c  , adjust the fil
8870: 65 20 73 69 7a 65 20 61 6e 64 20 67 72 6f 75 70  e size and group
8880: 20 73 69 7a 65 0a 20 20 2a 2a 20 64 6f 77 6e 77   size.  ** downw
8890: 61 72 64 20 2a 2f 0a 20 20 69 66 28 20 72 63 3c  ard */.  if( rc<
88a0: 6e 6d 65 6d 62 20 26 26 20 70 46 69 6c 65 20 29  nmemb && pFile )
88b0: 7b 0a 20 20 20 20 73 69 7a 65 5f 74 20 6e 57 72  {.    size_t nWr
88c0: 69 74 74 65 6e 20 3d 20 72 63 3e 3d 30 20 3f 20  itten = rc>=0 ? 
88d0: 72 63 20 3a 20 30 3b 0a 20 20 20 20 73 71 6c 69  rc : 0;.    sqli
88e0: 74 65 33 5f 69 6e 74 36 34 20 69 4e 65 77 45 6e  te3_int64 iNewEn
88f0: 64 20 3d 20 69 4f 66 73 74 20 2b 20 73 69 7a 65  d = iOfst + size
8900: 2a 6e 57 72 69 74 74 65 6e 3b 0a 20 20 20 20 69  *nWritten;.    i
8910: 66 28 20 69 4e 65 77 45 6e 64 3c 69 45 6e 64 20  f( iNewEnd<iEnd 
8920: 29 20 69 4e 65 77 45 6e 64 20 3d 20 69 45 6e 64  ) iNewEnd = iEnd
8930: 3b 0a 20 20 20 20 71 75 6f 74 61 45 6e 74 65 72  ;.    quotaEnter
8940: 28 29 3b 0a 20 20 20 20 70 46 69 6c 65 2d 3e 70  ();.    pFile->p
8950: 47 72 6f 75 70 2d 3e 69 53 69 7a 65 20 2b 3d 20  Group->iSize += 
8960: 69 4e 65 77 45 6e 64 20 2d 20 70 46 69 6c 65 2d  iNewEnd - pFile-
8970: 3e 69 53 69 7a 65 3b 0a 20 20 20 20 70 46 69 6c  >iSize;.    pFil
8980: 65 2d 3e 69 53 69 7a 65 20 3d 20 69 4e 65 77 45  e->iSize = iNewE
8990: 6e 64 3b 0a 20 20 20 20 71 75 6f 74 61 4c 65 61  nd;.    quotaLea
89a0: 76 65 28 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75  ve();.  }.  retu
89b0: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn rc;.}../*.** 
89c0: 43 6c 6f 73 65 20 61 6e 20 6f 70 65 6e 20 71 75  Close an open qu
89d0: 6f 74 61 5f 46 49 4c 45 20 73 74 72 65 61 6d 2e  ota_FILE stream.
89e0: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 5f  .*/.int sqlite3_
89f0: 71 75 6f 74 61 5f 66 63 6c 6f 73 65 28 71 75 6f  quota_fclose(quo
8a00: 74 61 5f 46 49 4c 45 20 2a 70 29 7b 0a 20 20 69  ta_FILE *p){.  i
8a10: 6e 74 20 72 63 3b 0a 20 20 71 75 6f 74 61 46 69  nt rc;.  quotaFi
8a20: 6c 65 20 2a 70 46 69 6c 65 3b 0a 20 20 72 63 20  le *pFile;.  rc 
8a30: 3d 20 66 63 6c 6f 73 65 28 70 2d 3e 66 29 3b 0a  = fclose(p->f);.
8a40: 20 20 70 46 69 6c 65 20 3d 20 70 2d 3e 70 46 69    pFile = p->pFi
8a50: 6c 65 3b 0a 20 20 69 66 28 20 70 46 69 6c 65 20  le;.  if( pFile 
8a60: 29 7b 0a 20 20 20 20 71 75 6f 74 61 45 6e 74 65  ){.    quotaEnte
8a70: 72 28 29 3b 0a 20 20 20 20 70 46 69 6c 65 2d 3e  r();.    pFile->
8a80: 6e 52 65 66 2d 2d 3b 0a 20 20 20 20 69 66 28 20  nRef--;.    if( 
8a90: 70 46 69 6c 65 2d 3e 6e 52 65 66 3d 3d 30 20 29  pFile->nRef==0 )
8aa0: 7b 0a 20 20 20 20 20 20 71 75 6f 74 61 47 72 6f  {.      quotaGro
8ab0: 75 70 20 2a 70 47 72 6f 75 70 20 3d 20 70 46 69  up *pGroup = pFi
8ac0: 6c 65 2d 3e 70 47 72 6f 75 70 3b 0a 20 20 20 20  le->pGroup;.    
8ad0: 20 20 69 66 28 20 70 46 69 6c 65 2d 3e 64 65 6c    if( pFile->del
8ae0: 65 74 65 4f 6e 43 6c 6f 73 65 20 29 7b 0a 20 20  eteOnClose ){.  
8af0: 20 20 20 20 20 20 67 51 75 6f 74 61 2e 70 4f 72        gQuota.pOr
8b00: 69 67 56 66 73 2d 3e 78 44 65 6c 65 74 65 28 67  igVfs->xDelete(g
8b10: 51 75 6f 74 61 2e 70 4f 72 69 67 56 66 73 2c 20  Quota.pOrigVfs, 
8b20: 70 46 69 6c 65 2d 3e 7a 46 69 6c 65 6e 61 6d 65  pFile->zFilename
8b30: 2c 20 30 29 3b 0a 20 20 20 20 20 20 20 20 71 75  , 0);.        qu
8b40: 6f 74 61 52 65 6d 6f 76 65 46 69 6c 65 28 70 46  otaRemoveFile(pF
8b50: 69 6c 65 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  ile);.      }.  
8b60: 20 20 20 20 71 75 6f 74 61 47 72 6f 75 70 44 65      quotaGroupDe
8b70: 72 65 66 28 70 47 72 6f 75 70 29 3b 0a 20 20 20  ref(pGroup);.   
8b80: 20 7d 0a 20 20 20 20 71 75 6f 74 61 4c 65 61 76   }.    quotaLeav
8b90: 65 28 29 3b 0a 20 20 7d 0a 23 69 66 20 53 51 4c  e();.  }.#if SQL
8ba0: 49 54 45 5f 4f 53 5f 57 49 4e 0a 20 20 71 75 6f  ITE_OS_WIN.  quo
8bb0: 74 61 5f 6d 62 63 73 5f 66 72 65 65 28 70 2d 3e  ta_mbcs_free(p->
8bc0: 7a 4d 62 63 73 4e 61 6d 65 29 3b 0a 23 65 6e 64  zMbcsName);.#end
8bd0: 69 66 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65  if.  sqlite3_fre
8be0: 65 28 70 29 3b 0a 20 20 72 65 74 75 72 6e 20 72  e(p);.  return r
8bf0: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 46 6c 75 73  c;.}../*.** Flus
8c00: 68 20 6d 65 6d 6f 72 79 20 62 75 66 66 65 72 73  h memory buffers
8c10: 20 66 6f 72 20 61 20 71 75 6f 74 61 5f 46 49 4c   for a quota_FIL
8c20: 45 20 74 6f 20 64 69 73 6b 2e 0a 2a 2f 0a 69 6e  E to disk..*/.in
8c30: 74 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f  t sqlite3_quota_
8c40: 66 66 6c 75 73 68 28 71 75 6f 74 61 5f 46 49 4c  fflush(quota_FIL
8c50: 45 20 2a 70 2c 20 69 6e 74 20 64 6f 46 73 79 6e  E *p, int doFsyn
8c60: 63 29 7b 0a 20 20 69 6e 74 20 72 63 3b 0a 20 20  c){.  int rc;.  
8c70: 72 63 20 3d 20 66 66 6c 75 73 68 28 70 2d 3e 66  rc = fflush(p->f
8c80: 29 3b 0a 20 20 69 66 28 20 72 63 3d 3d 30 20 26  );.  if( rc==0 &
8c90: 26 20 64 6f 46 73 79 6e 63 20 29 7b 0a 23 69 66  & doFsync ){.#if
8ca0: 20 53 51 4c 49 54 45 5f 4f 53 5f 55 4e 49 58 0a   SQLITE_OS_UNIX.
8cb0: 20 20 20 20 72 63 20 3d 20 66 73 79 6e 63 28 66      rc = fsync(f
8cc0: 69 6c 65 6e 6f 28 70 2d 3e 66 29 29 3b 0a 23 65  ileno(p->f));.#e
8cd0: 6e 64 69 66 0a 23 69 66 20 53 51 4c 49 54 45 5f  ndif.#if SQLITE_
8ce0: 4f 53 5f 57 49 4e 0a 20 20 20 20 72 63 20 3d 20  OS_WIN.    rc = 
8cf0: 5f 63 6f 6d 6d 69 74 28 5f 66 69 6c 65 6e 6f 28  _commit(_fileno(
8d00: 70 2d 3e 66 29 29 3b 0a 23 65 6e 64 69 66 0a 20  p->f));.#endif. 
8d10: 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 21 3d   }.  return rc!=
8d20: 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 53 65 65 6b  0;.}../*.** Seek
8d30: 20 6f 6e 20 61 20 71 75 6f 74 61 5f 46 49 4c 45   on a quota_FILE
8d40: 20 73 74 72 65 61 6d 2e 0a 2a 2f 0a 69 6e 74 20   stream..*/.int 
8d50: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 73  sqlite3_quota_fs
8d60: 65 65 6b 28 71 75 6f 74 61 5f 46 49 4c 45 20 2a  eek(quota_FILE *
8d70: 70 2c 20 6c 6f 6e 67 20 6f 66 66 73 65 74 2c 20  p, long offset, 
8d80: 69 6e 74 20 77 68 65 6e 63 65 29 7b 0a 20 20 72  int whence){.  r
8d90: 65 74 75 72 6e 20 66 73 65 65 6b 28 70 2d 3e 66  eturn fseek(p->f
8da0: 2c 20 6f 66 66 73 65 74 2c 20 77 68 65 6e 63 65  , offset, whence
8db0: 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 72 65 77 69  );.}../*.** rewi
8dc0: 6e 64 20 61 20 71 75 6f 74 61 5f 46 49 4c 45 20  nd a quota_FILE 
8dd0: 73 74 72 65 61 6d 2e 0a 2a 2f 0a 76 6f 69 64 20  stream..*/.void 
8de0: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 72 65  sqlite3_quota_re
8df0: 77 69 6e 64 28 71 75 6f 74 61 5f 46 49 4c 45 20  wind(quota_FILE 
8e00: 2a 70 29 7b 0a 20 20 72 65 77 69 6e 64 28 70 2d  *p){.  rewind(p-
8e10: 3e 66 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65  >f);.}../*.** Te
8e20: 6c 6c 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c  ll the current l
8e30: 6f 63 61 74 69 6f 6e 20 6f 66 20 61 20 71 75 6f  ocation of a quo
8e40: 74 61 5f 46 49 4c 45 20 73 74 72 65 61 6d 2e 0a  ta_FILE stream..
8e50: 2a 2f 0a 6c 6f 6e 67 20 73 71 6c 69 74 65 33 5f  */.long sqlite3_
8e60: 71 75 6f 74 61 5f 66 74 65 6c 6c 28 71 75 6f 74  quota_ftell(quot
8e70: 61 5f 46 49 4c 45 20 2a 70 29 7b 0a 20 20 72 65  a_FILE *p){.  re
8e80: 74 75 72 6e 20 66 74 65 6c 6c 28 70 2d 3e 66 29  turn ftell(p->f)
8e90: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 65 73 74 20  ;.}../*.** Test 
8ea0: 74 68 65 20 65 72 72 6f 72 20 69 6e 64 69 63 61  the error indica
8eb0: 74 6f 72 20 66 6f 72 20 74 68 65 20 67 69 76 65  tor for the give
8ec0: 6e 20 66 69 6c 65 2e 0a 2a 2f 0a 69 6e 74 20 73  n file..*/.int s
8ed0: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 65 72  qlite3_quota_fer
8ee0: 72 6f 72 28 71 75 6f 74 61 5f 46 49 4c 45 20 2a  ror(quota_FILE *
8ef0: 70 29 7b 0a 20 20 72 65 74 75 72 6e 20 66 65 72  p){.  return fer
8f00: 72 6f 72 28 70 2d 3e 66 29 3b 0a 7d 0a 0a 2f 2a  ror(p->f);.}../*
8f10: 0a 2a 2a 20 54 72 75 6e 63 61 74 65 20 61 20 66  .** Truncate a f
8f20: 69 6c 65 20 74 6f 20 73 7a 4e 65 77 20 62 79 74  ile to szNew byt
8f30: 65 73 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74  es..*/.int sqlit
8f40: 65 33 5f 71 75 6f 74 61 5f 66 74 72 75 6e 63 61  e3_quota_ftrunca
8f50: 74 65 28 71 75 6f 74 61 5f 46 49 4c 45 20 2a 70  te(quota_FILE *p
8f60: 2c 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20  , sqlite3_int64 
8f70: 73 7a 4e 65 77 29 7b 0a 20 20 71 75 6f 74 61 46  szNew){.  quotaF
8f80: 69 6c 65 20 2a 70 46 69 6c 65 20 3d 20 70 2d 3e  ile *pFile = p->
8f90: 70 46 69 6c 65 3b 0a 20 20 69 6e 74 20 72 63 3b  pFile;.  int rc;
8fa0: 0a 20 20 69 66 28 20 28 70 46 69 6c 65 20 3d 20  .  if( (pFile = 
8fb0: 70 2d 3e 70 46 69 6c 65 29 21 3d 30 20 26 26 20  p->pFile)!=0 && 
8fc0: 70 46 69 6c 65 2d 3e 69 53 69 7a 65 3c 73 7a 4e  pFile->iSize<szN
8fd0: 65 77 20 29 7b 0a 20 20 20 20 71 75 6f 74 61 47  ew ){.    quotaG
8fe0: 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 0a 20 20  roup *pGroup;.  
8ff0: 20 20 69 66 28 20 70 46 69 6c 65 2d 3e 69 53 69    if( pFile->iSi
9000: 7a 65 3c 73 7a 4e 65 77 20 29 7b 0a 20 20 20 20  ze<szNew ){.    
9010: 20 20 2f 2a 20 54 68 69 73 20 72 6f 75 74 69 6e    /* This routin
9020: 65 20 63 61 6e 6e 6f 74 20 62 65 20 75 73 65 64  e cannot be used
9030: 20 74 6f 20 65 78 74 65 6e 64 20 61 20 66 69 6c   to extend a fil
9040: 65 20 74 68 61 74 20 69 73 20 75 6e 64 65 72 0a  e that is under.
9050: 20 20 20 20 20 20 2a 2a 20 71 75 6f 74 61 20 6d        ** quota m
9060: 61 6e 61 67 65 6d 65 6e 74 2e 20 20 4f 6e 6c 79  anagement.  Only
9070: 20 74 72 75 65 20 74 72 75 6e 63 61 74 69 6f 6e   true truncation
9080: 20 69 73 20 61 6c 6c 6f 77 65 64 2e 20 2a 2f 0a   is allowed. */.
9090: 20 20 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b        return -1;
90a0: 0a 20 20 20 20 7d 0a 20 20 20 20 70 47 72 6f 75  .    }.    pGrou
90b0: 70 20 3d 20 70 46 69 6c 65 2d 3e 70 47 72 6f 75  p = pFile->pGrou
90c0: 70 3b 0a 20 20 20 20 71 75 6f 74 61 45 6e 74 65  p;.    quotaEnte
90d0: 72 28 29 3b 0a 20 20 20 20 70 47 72 6f 75 70 2d  r();.    pGroup-
90e0: 3e 69 53 69 7a 65 20 2b 3d 20 73 7a 4e 65 77 20  >iSize += szNew 
90f0: 2d 20 70 46 69 6c 65 2d 3e 69 53 69 7a 65 3b 0a  - pFile->iSize;.
9100: 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29      quotaLeave()
9110: 3b 0a 20 20 7d 0a 23 69 66 20 53 51 4c 49 54 45  ;.  }.#if SQLITE
9120: 5f 4f 53 5f 55 4e 49 58 0a 20 20 72 63 20 3d 20  _OS_UNIX.  rc = 
9130: 66 74 72 75 6e 63 61 74 65 28 66 69 6c 65 6e 6f  ftruncate(fileno
9140: 28 70 2d 3e 66 29 2c 20 73 7a 4e 65 77 29 3b 0a  (p->f), szNew);.
9150: 23 65 6e 64 69 66 0a 23 69 66 20 53 51 4c 49 54  #endif.#if SQLIT
9160: 45 5f 4f 53 5f 57 49 4e 0a 20 20 72 63 20 3d 20  E_OS_WIN.  rc = 
9170: 5f 63 68 73 69 7a 65 5f 73 28 5f 66 69 6c 65 6e  _chsize_s(_filen
9180: 6f 28 70 2d 3e 66 29 2c 20 73 7a 4e 65 77 29 3b  o(p->f), szNew);
9190: 0a 23 65 6e 64 69 66 0a 20 20 69 66 28 20 70 46  .#endif.  if( pF
91a0: 69 6c 65 20 26 26 20 72 63 3d 3d 30 20 29 7b 0a  ile && rc==0 ){.
91b0: 20 20 20 20 71 75 6f 74 61 47 72 6f 75 70 20 2a      quotaGroup *
91c0: 70 47 72 6f 75 70 20 3d 20 70 46 69 6c 65 2d 3e  pGroup = pFile->
91d0: 70 47 72 6f 75 70 3b 0a 20 20 20 20 71 75 6f 74  pGroup;.    quot
91e0: 61 45 6e 74 65 72 28 29 3b 0a 20 20 20 20 70 47  aEnter();.    pG
91f0: 72 6f 75 70 2d 3e 69 53 69 7a 65 20 2b 3d 20 73  roup->iSize += s
9200: 7a 4e 65 77 20 2d 20 70 46 69 6c 65 2d 3e 69 53  zNew - pFile->iS
9210: 69 7a 65 3b 0a 20 20 20 20 70 46 69 6c 65 2d 3e  ize;.    pFile->
9220: 69 53 69 7a 65 20 3d 20 73 7a 4e 65 77 3b 0a 20  iSize = szNew;. 
9230: 20 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29 3b     quotaLeave();
9240: 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 72 63  .  }.  return rc
9250: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 44 65 74 65 72  ;.}../*.** Deter
9260: 6d 69 6e 65 20 74 68 65 20 74 69 6d 65 20 74 68  mine the time th
9270: 61 74 20 74 68 65 20 67 69 76 65 6e 20 66 69 6c  at the given fil
9280: 65 20 77 61 73 20 6c 61 73 74 20 6d 6f 64 69 66  e was last modif
9290: 69 65 64 2c 20 69 6e 0a 2a 2a 20 73 65 63 6f 6e  ied, in.** secon
92a0: 64 73 20 73 69 7a 65 20 31 39 37 30 2e 20 20 57  ds size 1970.  W
92b0: 72 69 74 65 20 74 68 65 20 72 65 73 75 6c 74 20  rite the result 
92c0: 69 6e 74 6f 20 2a 70 54 69 6d 65 2e 20 20 52 65  into *pTime.  Re
92d0: 74 75 72 6e 20 30 20 6f 6e 0a 2a 2a 20 73 75 63  turn 0 on.** suc
92e0: 63 65 73 73 20 61 6e 64 20 6e 6f 6e 2d 7a 65 72  cess and non-zer
92f0: 6f 20 6f 6e 20 61 6e 79 20 6b 69 6e 64 20 6f 66  o on any kind of
9300: 20 65 72 72 6f 72 2e 0a 2a 2f 0a 69 6e 74 20 73   error..*/.int s
9310: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 69 6c  qlite3_quota_fil
9320: 65 5f 6d 74 69 6d 65 28 71 75 6f 74 61 5f 46 49  e_mtime(quota_FI
9330: 4c 45 20 2a 70 2c 20 74 69 6d 65 5f 74 20 2a 70  LE *p, time_t *p
9340: 54 69 6d 65 29 7b 0a 20 20 69 6e 74 20 72 63 3b  Time){.  int rc;
9350: 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 55  .#if SQLITE_OS_U
9360: 4e 49 58 0a 20 20 73 74 72 75 63 74 20 73 74 61  NIX.  struct sta
9370: 74 20 62 75 66 3b 0a 20 20 72 63 20 3d 20 66 73  t buf;.  rc = fs
9380: 74 61 74 28 66 69 6c 65 6e 6f 28 70 2d 3e 66 29  tat(fileno(p->f)
9390: 2c 20 26 62 75 66 29 3b 0a 23 65 6e 64 69 66 0a  , &buf);.#endif.
93a0: 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49  #if SQLITE_OS_WI
93b0: 4e 0a 20 20 73 74 72 75 63 74 20 5f 73 74 61 74  N.  struct _stat
93c0: 69 36 34 20 62 75 66 3b 0a 20 20 72 63 20 3d 20  i64 buf;.  rc = 
93d0: 5f 73 74 61 74 69 36 34 28 70 2d 3e 7a 4d 62 63  _stati64(p->zMbc
93e0: 73 4e 61 6d 65 2c 20 26 62 75 66 29 3b 0a 23 65  sName, &buf);.#e
93f0: 6e 64 69 66 0a 20 20 69 66 28 20 72 63 3d 3d 30  ndif.  if( rc==0
9400: 20 29 20 2a 70 54 69 6d 65 20 3d 20 62 75 66 2e   ) *pTime = buf.
9410: 73 74 5f 6d 74 69 6d 65 3b 0a 20 20 72 65 74 75  st_mtime;.  retu
9420: 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn rc;.}../*.** 
9430: 52 65 74 75 72 6e 20 74 68 65 20 74 72 75 65 20  Return the true 
9440: 73 69 7a 65 20 6f 66 20 74 68 65 20 66 69 6c 65  size of the file
9450: 2c 20 61 73 20 72 65 70 6f 72 74 65 64 20 62 79  , as reported by
9460: 20 74 68 65 20 6f 70 65 72 61 74 69 6e 67 0a 2a   the operating.*
9470: 2a 20 73 79 73 74 65 6d 2e 0a 2a 2f 0a 73 71 6c  * system..*/.sql
9480: 69 74 65 33 5f 69 6e 74 36 34 20 73 71 6c 69 74  ite3_int64 sqlit
9490: 65 33 5f 71 75 6f 74 61 5f 66 69 6c 65 5f 74 72  e3_quota_file_tr
94a0: 75 65 73 69 7a 65 28 71 75 6f 74 61 5f 46 49 4c  uesize(quota_FIL
94b0: 45 20 2a 70 29 7b 0a 20 20 69 6e 74 20 72 63 3b  E *p){.  int rc;
94c0: 0a 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 55  .#if SQLITE_OS_U
94d0: 4e 49 58 0a 20 20 73 74 72 75 63 74 20 73 74 61  NIX.  struct sta
94e0: 74 20 62 75 66 3b 0a 20 20 72 63 20 3d 20 66 73  t buf;.  rc = fs
94f0: 74 61 74 28 66 69 6c 65 6e 6f 28 70 2d 3e 66 29  tat(fileno(p->f)
9500: 2c 20 26 62 75 66 29 3b 0a 23 65 6e 64 69 66 0a  , &buf);.#endif.
9510: 23 69 66 20 53 51 4c 49 54 45 5f 4f 53 5f 57 49  #if SQLITE_OS_WI
9520: 4e 0a 20 20 73 74 72 75 63 74 20 5f 73 74 61 74  N.  struct _stat
9530: 69 36 34 20 62 75 66 3b 0a 20 20 72 63 20 3d 20  i64 buf;.  rc = 
9540: 5f 73 74 61 74 69 36 34 28 70 2d 3e 7a 4d 62 63  _stati64(p->zMbc
9550: 73 4e 61 6d 65 2c 20 26 62 75 66 29 3b 0a 23 65  sName, &buf);.#e
9560: 6e 64 69 66 0a 20 20 72 65 74 75 72 6e 20 72 63  ndif.  return rc
9570: 3d 3d 30 20 3f 20 62 75 66 2e 73 74 5f 73 69 7a  ==0 ? buf.st_siz
9580: 65 20 3a 20 2d 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  e : -1;.}../*.**
9590: 20 52 65 74 75 72 6e 20 74 68 65 20 73 69 7a 65   Return the size
95a0: 20 6f 66 20 74 68 65 20 66 69 6c 65 2c 20 61 73   of the file, as
95b0: 20 69 74 20 69 73 20 6b 6e 6f 77 6e 20 74 6f 20   it is known to 
95c0: 74 68 65 20 71 75 6f 74 61 20 73 75 62 73 79 73  the quota subsys
95d0: 74 65 6d 2e 0a 2a 2f 0a 73 71 6c 69 74 65 33 5f  tem..*/.sqlite3_
95e0: 69 6e 74 36 34 20 73 71 6c 69 74 65 33 5f 71 75  int64 sqlite3_qu
95f0: 6f 74 61 5f 66 69 6c 65 5f 73 69 7a 65 28 71 75  ota_file_size(qu
9600: 6f 74 61 5f 46 49 4c 45 20 2a 70 29 7b 0a 20 20  ota_FILE *p){.  
9610: 72 65 74 75 72 6e 20 70 2d 3e 70 46 69 6c 65 20  return p->pFile 
9620: 3f 20 70 2d 3e 70 46 69 6c 65 2d 3e 69 53 69 7a  ? p->pFile->iSiz
9630: 65 20 3a 20 2d 31 3b 0a 7d 0a 20 0a 2f 2a 0a 2a  e : -1;.}. ./*.*
9640: 2a 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 20  * Determine the 
9650: 61 6d 6f 75 6e 74 20 6f 66 20 64 61 74 61 20 69  amount of data i
9660: 6e 20 62 79 74 65 73 20 61 76 61 69 6c 61 62 6c  n bytes availabl
9670: 65 20 66 6f 72 20 72 65 61 64 69 6e 67 0a 2a 2a  e for reading.**
9680: 20 69 6e 20 74 68 65 20 67 69 76 65 6e 20 66 69   in the given fi
9690: 6c 65 2e 0a 2a 2f 0a 6c 6f 6e 67 20 73 71 6c 69  le..*/.long sqli
96a0: 74 65 33 5f 71 75 6f 74 61 5f 66 69 6c 65 5f 61  te3_quota_file_a
96b0: 76 61 69 6c 61 62 6c 65 28 71 75 6f 74 61 5f 46  vailable(quota_F
96c0: 49 4c 45 20 2a 70 29 7b 0a 20 20 46 49 4c 45 2a  ILE *p){.  FILE*
96d0: 20 66 20 3d 20 70 2d 3e 66 3b 0a 20 20 6c 6f 6e   f = p->f;.  lon
96e0: 67 20 70 6f 73 31 2c 20 70 6f 73 32 3b 0a 20 20  g pos1, pos2;.  
96f0: 69 6e 74 20 72 63 3b 0a 20 20 70 6f 73 31 20 3d  int rc;.  pos1 =
9700: 20 66 74 65 6c 6c 28 66 29 3b 0a 20 20 69 66 20   ftell(f);.  if 
9710: 28 20 70 6f 73 31 20 3c 20 30 20 29 20 72 65 74  ( pos1 < 0 ) ret
9720: 75 72 6e 20 2d 31 3b 0a 20 20 72 63 20 3d 20 66  urn -1;.  rc = f
9730: 73 65 65 6b 28 66 2c 20 30 2c 20 53 45 45 4b 5f  seek(f, 0, SEEK_
9740: 45 4e 44 29 3b 0a 20 20 69 66 20 28 20 72 63 20  END);.  if ( rc 
9750: 21 3d 20 30 20 29 20 72 65 74 75 72 6e 20 2d 31  != 0 ) return -1
9760: 3b 0a 20 20 70 6f 73 32 20 3d 20 66 74 65 6c 6c  ;.  pos2 = ftell
9770: 28 66 29 3b 0a 20 20 69 66 20 28 20 70 6f 73 32  (f);.  if ( pos2
9780: 20 3c 20 30 20 29 20 72 65 74 75 72 6e 20 2d 31   < 0 ) return -1
9790: 3b 0a 20 20 72 63 20 3d 20 66 73 65 65 6b 28 66  ;.  rc = fseek(f
97a0: 2c 20 70 6f 73 31 2c 20 53 45 45 4b 5f 53 45 54  , pos1, SEEK_SET
97b0: 29 3b 0a 20 20 69 66 20 28 20 72 63 20 21 3d 20  );.  if ( rc != 
97c0: 30 20 29 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20  0 ) return -1;. 
97d0: 20 72 65 74 75 72 6e 20 70 6f 73 32 20 2d 20 70   return pos2 - p
97e0: 6f 73 31 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65  os1;.}../*.** Re
97f0: 6d 6f 76 65 20 61 20 6d 61 6e 61 67 65 64 20 66  move a managed f
9800: 69 6c 65 2e 20 20 55 70 64 61 74 65 20 71 75 6f  ile.  Update quo
9810: 74 61 73 20 61 63 63 6f 72 64 69 6e 67 6c 79 2e  tas accordingly.
9820: 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74 65 33 5f  .*/.int sqlite3_
9830: 71 75 6f 74 61 5f 72 65 6d 6f 76 65 28 63 6f 6e  quota_remove(con
9840: 73 74 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61  st char *zFilena
9850: 6d 65 29 7b 0a 20 20 63 68 61 72 20 2a 7a 46 75  me){.  char *zFu
9860: 6c 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f  ll;            /
9870: 2a 20 46 75 6c 6c 20 70 61 74 68 6e 61 6d 65 20  * Full pathname 
9880: 66 6f 72 20 7a 46 69 6c 65 6e 61 6d 65 20 2a 2f  for zFilename */
9890: 0a 20 20 73 69 7a 65 5f 74 20 6e 46 75 6c 6c 3b  .  size_t nFull;
98a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
98b0: 6d 62 65 72 20 6f 66 20 62 79 74 65 73 20 69 6e  mber of bytes in
98c0: 20 7a 46 69 6c 65 6e 61 6d 65 20 2a 2f 0a 20 20   zFilename */.  
98d0: 69 6e 74 20 72 63 3b 20 20 20 20 20 20 20 20 20  int rc;         
98e0: 20 20 20 20 20 20 20 20 2f 2a 20 52 65 73 75 6c          /* Resul
98f0: 74 20 63 6f 64 65 20 2a 2f 0a 20 20 71 75 6f 74  t code */.  quot
9900: 61 47 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 20  aGroup *pGroup; 
9910: 20 20 20 20 2f 2a 20 47 72 6f 75 70 20 63 6f 6e      /* Group con
9920: 74 61 69 6e 69 6e 67 20 7a 46 69 6c 65 6e 61 6d  taining zFilenam
9930: 65 20 2a 2f 0a 20 20 71 75 6f 74 61 46 69 6c 65  e */.  quotaFile
9940: 20 2a 70 46 69 6c 65 3b 20 20 20 20 20 20 20 2f   *pFile;       /
9950: 2a 20 41 20 66 69 6c 65 20 69 6e 20 74 68 65 20  * A file in the 
9960: 67 72 6f 75 70 20 2a 2f 0a 20 20 71 75 6f 74 61  group */.  quota
9970: 46 69 6c 65 20 2a 70 4e 65 78 74 46 69 6c 65 3b  File *pNextFile;
9980: 20 20 20 2f 2a 20 6e 65 78 74 20 66 69 6c 65 20     /* next file 
9990: 69 6e 20 74 68 65 20 67 72 6f 75 70 20 2a 2f 0a  in the group */.
99a0: 20 20 69 6e 74 20 64 69 66 66 3b 20 20 20 20 20    int diff;     
99b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 44 69 66            /* Dif
99c0: 66 65 72 65 6e 63 65 20 62 65 74 77 65 65 6e 20  ference between 
99d0: 66 69 6c 65 6e 61 6d 65 73 20 2a 2f 0a 20 20 63  filenames */.  c
99e0: 68 61 72 20 63 3b 20 20 20 20 20 20 20 20 20 20  har c;          
99f0: 20 20 20 20 20 20 20 2f 2a 20 46 69 72 73 74 20         /* First 
9a00: 63 68 61 72 61 63 74 65 72 20 70 61 73 74 20 65  character past e
9a10: 6e 64 20 6f 66 20 70 61 74 74 65 72 6e 20 2a 2f  nd of pattern */
9a20: 0a 0a 20 20 7a 46 75 6c 6c 20 3d 20 28 63 68 61  ..  zFull = (cha
9a30: 72 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f  r*)sqlite3_mallo
9a40: 63 28 67 51 75 6f 74 61 2e 73 54 68 69 73 56 66  c(gQuota.sThisVf
9a50: 73 2e 6d 78 50 61 74 68 6e 61 6d 65 20 2b 20 31  s.mxPathname + 1
9a60: 29 3b 0a 20 20 69 66 28 20 7a 46 75 6c 6c 3d 3d  );.  if( zFull==
9a70: 30 20 29 20 72 65 74 75 72 6e 20 53 51 4c 49 54  0 ) return SQLIT
9a80: 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 72 63 20 3d 20  E_NOMEM;.  rc = 
9a90: 67 51 75 6f 74 61 2e 70 4f 72 69 67 56 66 73 2d  gQuota.pOrigVfs-
9aa0: 3e 78 46 75 6c 6c 50 61 74 68 6e 61 6d 65 28 67  >xFullPathname(g
9ab0: 51 75 6f 74 61 2e 70 4f 72 69 67 56 66 73 2c 20  Quota.pOrigVfs, 
9ac0: 7a 46 69 6c 65 6e 61 6d 65 2c 0a 20 20 20 20 20  zFilename,.     
9ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9af0: 20 67 51 75 6f 74 61 2e 73 54 68 69 73 56 66 73   gQuota.sThisVfs
9b00: 2e 6d 78 50 61 74 68 6e 61 6d 65 2b 31 2c 20 7a  .mxPathname+1, z
9b10: 46 75 6c 6c 29 3b 0a 20 20 69 66 28 20 72 63 20  Full);.  if( rc 
9b20: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  ){.    sqlite3_f
9b30: 72 65 65 28 7a 46 75 6c 6c 29 3b 0a 20 20 20 20  ree(zFull);.    
9b40: 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 7d 0a 0a  return rc;.  }..
9b50: 20 20 2f 2a 20 46 69 67 75 72 65 20 6f 75 74 20    /* Figure out 
9b60: 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68  the length of th
9b70: 65 20 66 75 6c 6c 20 70 61 74 68 6e 61 6d 65 2e  e full pathname.
9b80: 20 20 49 66 20 74 68 65 20 6e 61 6d 65 20 65 6e    If the name en
9b90: 64 73 20 77 69 74 68 0a 20 20 2a 2a 20 2f 20 28  ds with.  ** / (
9ba0: 6f 72 20 5c 20 6f 6e 20 77 69 6e 64 6f 77 73 29  or \ on windows)
9bb0: 20 74 68 65 6e 20 72 65 6d 6f 76 65 20 74 68 65   then remove the
9bc0: 20 74 72 61 69 6c 69 6e 67 20 2f 2e 0a 20 20 2a   trailing /..  *
9bd0: 2f 0a 20 20 6e 46 75 6c 6c 20 3d 20 73 74 72 6c  /.  nFull = strl
9be0: 65 6e 28 7a 46 75 6c 6c 29 3b 0a 20 20 69 66 28  en(zFull);.  if(
9bf0: 20 6e 46 75 6c 6c 3e 30 20 26 26 20 28 7a 46 75   nFull>0 && (zFu
9c00: 6c 6c 5b 6e 46 75 6c 6c 2d 31 5d 3d 3d 27 2f 27  ll[nFull-1]=='/'
9c10: 20 7c 7c 20 7a 46 75 6c 6c 5b 6e 46 75 6c 6c 2d   || zFull[nFull-
9c20: 31 5d 3d 3d 27 5c 5c 27 29 20 29 7b 0a 20 20 20  1]=='\\') ){.   
9c30: 20 6e 46 75 6c 6c 2d 2d 3b 0a 20 20 20 20 7a 46   nFull--;.    zF
9c40: 75 6c 6c 5b 6e 46 75 6c 6c 5d 20 3d 20 30 3b 0a  ull[nFull] = 0;.
9c50: 20 20 7d 0a 0a 20 20 71 75 6f 74 61 45 6e 74 65    }..  quotaEnte
9c60: 72 28 29 3b 0a 20 20 70 47 72 6f 75 70 20 3d 20  r();.  pGroup = 
9c70: 71 75 6f 74 61 47 72 6f 75 70 46 69 6e 64 28 7a  quotaGroupFind(z
9c80: 46 75 6c 6c 29 3b 0a 20 20 69 66 28 20 70 47 72  Full);.  if( pGr
9c90: 6f 75 70 20 29 7b 0a 20 20 20 20 66 6f 72 28 70  oup ){.    for(p
9ca0: 46 69 6c 65 3d 70 47 72 6f 75 70 2d 3e 70 46 69  File=pGroup->pFi
9cb0: 6c 65 73 3b 20 70 46 69 6c 65 20 26 26 20 72 63  les; pFile && rc
9cc0: 3d 3d 53 51 4c 49 54 45 5f 4f 4b 3b 20 70 46 69  ==SQLITE_OK; pFi
9cd0: 6c 65 3d 70 4e 65 78 74 46 69 6c 65 29 7b 0a 20  le=pNextFile){. 
9ce0: 20 20 20 20 20 70 4e 65 78 74 46 69 6c 65 20 3d       pNextFile =
9cf0: 20 70 46 69 6c 65 2d 3e 70 4e 65 78 74 3b 0a 20   pFile->pNext;. 
9d00: 20 20 20 20 20 64 69 66 66 20 3d 20 6d 65 6d 63       diff = memc
9d10: 6d 70 28 7a 46 75 6c 6c 2c 20 70 46 69 6c 65 2d  mp(zFull, pFile-
9d20: 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 6e 46 75 6c  >zFilename, nFul
9d30: 6c 29 3b 0a 20 20 20 20 20 20 69 66 28 20 64 69  l);.      if( di
9d40: 66 66 3d 3d 30 20 26 26 20 28 28 63 20 3d 20 70  ff==0 && ((c = p
9d50: 46 69 6c 65 2d 3e 7a 46 69 6c 65 6e 61 6d 65 5b  File->zFilename[
9d60: 6e 46 75 6c 6c 5d 29 3d 3d 30 20 7c 7c 20 63 3d  nFull])==0 || c=
9d70: 3d 27 2f 27 20 7c 7c 20 63 3d 3d 27 5c 5c 27 29  ='/' || c=='\\')
9d80: 20 29 7b 0a 20 20 20 20 20 20 20 20 69 66 28 20   ){.        if( 
9d90: 70 46 69 6c 65 2d 3e 6e 52 65 66 20 29 7b 0a 20  pFile->nRef ){. 
9da0: 20 20 20 20 20 20 20 20 20 70 46 69 6c 65 2d 3e           pFile->
9db0: 64 65 6c 65 74 65 4f 6e 43 6c 6f 73 65 20 3d 20  deleteOnClose = 
9dc0: 31 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65  1;.        }else
9dd0: 7b 0a 20 20 20 20 20 20 20 20 20 20 72 63 20 3d  {.          rc =
9de0: 20 67 51 75 6f 74 61 2e 70 4f 72 69 67 56 66 73   gQuota.pOrigVfs
9df0: 2d 3e 78 44 65 6c 65 74 65 28 67 51 75 6f 74 61  ->xDelete(gQuota
9e00: 2e 70 4f 72 69 67 56 66 73 2c 20 70 46 69 6c 65  .pOrigVfs, pFile
9e10: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 30 29 3b  ->zFilename, 0);
9e20: 0a 20 20 20 20 20 20 20 20 20 20 71 75 6f 74 61  .          quota
9e30: 52 65 6d 6f 76 65 46 69 6c 65 28 70 46 69 6c 65  RemoveFile(pFile
9e40: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 71 75 6f  );.          quo
9e50: 74 61 47 72 6f 75 70 44 65 72 65 66 28 70 47 72  taGroupDeref(pGr
9e60: 6f 75 70 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a  oup);.        }.
9e70: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
9e80: 7d 0a 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29  }.  quotaLeave()
9e90: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65  ;.  sqlite3_free
9ea0: 28 7a 46 75 6c 6c 29 3b 0a 20 20 72 65 74 75 72  (zFull);.  retur
9eb0: 6e 20 72 63 3b 0a 7d 0a 20 20 0a 2f 2a 2a 2a 2a  n rc;.}.  ./****
9ec0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
9ed0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 54 65 73 74 20 43  ********* Test C
9ee0: 6f 64 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ode ************
9ef0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
9f00: 2a 2a 2a 2a 2a 2a 2a 2f 0a 23 69 66 64 65 66 20  *******/.#ifdef 
9f10: 53 51 4c 49 54 45 5f 54 45 53 54 0a 23 69 6e 63  SQLITE_TEST.#inc
9f20: 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a 2f 2a  lude <tcl.h>../*
9f30: 0a 2a 2a 20 41 72 67 75 6d 65 6e 74 20 70 61 73  .** Argument pas
9f40: 73 65 64 20 74 6f 20 61 20 54 43 4c 20 71 75 6f  sed to a TCL quo
9f50: 74 61 2d 6f 76 65 72 2d 6c 69 6d 69 74 20 63 61  ta-over-limit ca
9f60: 6c 6c 62 61 63 6b 2e 0a 2a 2f 0a 74 79 70 65 64  llback..*/.typed
9f70: 65 66 20 73 74 72 75 63 74 20 54 63 6c 51 75 6f  ef struct TclQuo
9f80: 74 61 43 61 6c 6c 62 61 63 6b 20 54 63 6c 51 75  taCallback TclQu
9f90: 6f 74 61 43 61 6c 6c 62 61 63 6b 3b 0a 73 74 72  otaCallback;.str
9fa0: 75 63 74 20 54 63 6c 51 75 6f 74 61 43 61 6c 6c  uct TclQuotaCall
9fb0: 62 61 63 6b 20 7b 0a 20 20 54 63 6c 5f 49 6e 74  back {.  Tcl_Int
9fc0: 65 72 70 20 2a 69 6e 74 65 72 70 3b 20 20 20 20  erp *interp;    
9fd0: 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 69  /* Interpreter i
9fe0: 6e 20 77 68 69 63 68 20 74 6f 20 72 75 6e 20 74  n which to run t
9ff0: 68 65 20 73 63 72 69 70 74 20 2a 2f 0a 20 20 54  he script */.  T
a000: 63 6c 5f 4f 62 6a 20 2a 70 53 63 72 69 70 74 3b  cl_Obj *pScript;
a010: 20 20 20 20 20 20 2f 2a 20 53 63 72 69 70 74 20        /* Script 
a020: 74 6f 20 62 65 20 72 75 6e 20 2a 2f 0a 7d 3b 0a  to be run */.};.
a030: 0a 65 78 74 65 72 6e 20 63 6f 6e 73 74 20 63 68  .extern const ch
a040: 61 72 20 2a 73 71 6c 69 74 65 33 54 65 73 74 45  ar *sqlite3TestE
a050: 72 72 6f 72 4e 61 6d 65 28 69 6e 74 29 3b 0a 0a  rrorName(int);..
a060: 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 74  ./*.** This is t
a070: 68 65 20 63 61 6c 6c 62 61 63 6b 20 66 72 6f 6d  he callback from
a080: 20 61 20 71 75 6f 74 61 2d 6f 76 65 72 2d 6c 69   a quota-over-li
a090: 6d 69 74 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76  mit..*/.static v
a0a0: 6f 69 64 20 74 63 6c 51 75 6f 74 61 43 61 6c 6c  oid tclQuotaCall
a0b0: 62 61 63 6b 28 0a 20 20 63 6f 6e 73 74 20 63 68  back(.  const ch
a0c0: 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 20  ar *zFilename,  
a0d0: 20 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20          /* Name 
a0e0: 6f 66 20 66 69 6c 65 20 77 68 6f 73 65 20 73 69  of file whose si
a0f0: 7a 65 20 69 6e 63 72 65 61 73 65 73 20 2a 2f 0a  ze increases */.
a100: 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20    sqlite3_int64 
a110: 2a 70 69 4c 69 6d 69 74 2c 20 20 20 20 20 20 20  *piLimit,       
a120: 20 20 2f 2a 20 49 4e 2f 4f 55 54 3a 20 54 68 65    /* IN/OUT: The
a130: 20 63 75 72 72 65 6e 74 20 6c 69 6d 69 74 20 2a   current limit *
a140: 2f 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36  /.  sqlite3_int6
a150: 34 20 69 53 69 7a 65 2c 20 20 20 20 20 20 20 20  4 iSize,        
a160: 20 20 20 20 2f 2a 20 54 6f 74 61 6c 20 73 69 7a      /* Total siz
a170: 65 20 6f 66 20 61 6c 6c 20 66 69 6c 65 73 20 69  e of all files i
a180: 6e 20 74 68 65 20 67 72 6f 75 70 20 2a 2f 0a 20  n the group */. 
a190: 20 76 6f 69 64 20 2a 70 41 72 67 20 20 20 20 20   void *pArg     
a1a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a1b0: 20 2f 2a 20 43 6c 69 65 6e 74 20 64 61 74 61 20   /* Client data 
a1c0: 2a 2f 0a 29 7b 0a 20 20 54 63 6c 51 75 6f 74 61  */.){.  TclQuota
a1d0: 43 61 6c 6c 62 61 63 6b 20 2a 70 3b 20 20 20 20  Callback *p;    
a1e0: 20 20 20 20 20 20 20 20 2f 2a 20 43 61 6c 6c 62          /* Callb
a1f0: 61 63 6b 20 73 63 72 69 70 74 20 6f 62 6a 65 63  ack script objec
a200: 74 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  t */.  Tcl_Obj *
a210: 70 45 76 61 6c 3b 20 20 20 20 20 20 20 20 20 20  pEval;          
a220: 20 20 20 20 20 20 20 2f 2a 20 53 63 72 69 70 74         /* Script
a230: 20 74 6f 20 65 76 61 6c 75 61 74 65 20 2a 2f 0a   to evaluate */.
a240: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 56 61 72 6e    Tcl_Obj *pVarn
a250: 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20 20 20  ame;            
a260: 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 76 61 72    /* Name of var
a270: 69 61 62 6c 65 20 74 6f 20 70 61 73 73 20 61 73  iable to pass as
a280: 20 32 6e 64 20 61 72 67 20 2a 2f 0a 20 20 75 6e   2nd arg */.  un
a290: 73 69 67 6e 65 64 20 69 6e 74 20 72 6e 64 3b 20  signed int rnd; 
a2a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
a2b0: 20 52 61 6e 64 6f 6d 20 70 61 72 74 20 6f 66 20   Random part of 
a2c0: 70 56 61 72 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e  pVarname */.  in
a2d0: 74 20 72 63 3b 20 20 20 20 20 20 20 20 20 20 20  t rc;           
a2e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
a2f0: 20 54 63 6c 20 65 72 72 6f 72 20 63 6f 64 65 20   Tcl error code 
a300: 2a 2f 0a 0a 20 20 70 20 3d 20 28 54 63 6c 51 75  */..  p = (TclQu
a310: 6f 74 61 43 61 6c 6c 62 61 63 6b 20 2a 29 70 41  otaCallback *)pA
a320: 72 67 3b 0a 20 20 69 66 28 20 70 3d 3d 30 20 29  rg;.  if( p==0 )
a330: 20 72 65 74 75 72 6e 3b 0a 0a 20 20 70 56 61 72   return;..  pVar
a340: 6e 61 6d 65 20 3d 20 54 63 6c 5f 4e 65 77 53 74  name = Tcl_NewSt
a350: 72 69 6e 67 4f 62 6a 28 22 3a 3a 70 69 4c 69 6d  ringObj("::piLim
a360: 69 74 5f 22 2c 20 2d 31 29 3b 0a 20 20 54 63 6c  it_", -1);.  Tcl
a370: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 56  _IncrRefCount(pV
a380: 61 72 6e 61 6d 65 29 3b 0a 20 20 73 71 6c 69 74  arname);.  sqlit
a390: 65 33 5f 72 61 6e 64 6f 6d 6e 65 73 73 28 73 69  e3_randomness(si
a3a0: 7a 65 6f 66 28 72 6e 64 29 2c 20 28 76 6f 69 64  zeof(rnd), (void
a3b0: 20 2a 29 26 72 6e 64 29 3b 0a 20 20 54 63 6c 5f   *)&rnd);.  Tcl_
a3c0: 41 70 70 65 6e 64 4f 62 6a 54 6f 4f 62 6a 28 70  AppendObjToObj(p
a3d0: 56 61 72 6e 61 6d 65 2c 20 54 63 6c 5f 4e 65 77  Varname, Tcl_New
a3e0: 49 6e 74 4f 62 6a 28 28 69 6e 74 29 28 72 6e 64  IntObj((int)(rnd
a3f0: 26 30 78 37 46 46 46 46 46 46 46 29 29 29 3b 0a  &0x7FFFFFFF)));.
a400: 20 20 54 63 6c 5f 4f 62 6a 53 65 74 56 61 72 32    Tcl_ObjSetVar2
a410: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 56 61 72  (p->interp, pVar
a420: 6e 61 6d 65 2c 20 30 2c 20 54 63 6c 5f 4e 65 77  name, 0, Tcl_New
a430: 57 69 64 65 49 6e 74 4f 62 6a 28 2a 70 69 4c 69  WideIntObj(*piLi
a440: 6d 69 74 29 2c 20 30 29 3b 0a 0a 20 20 70 45 76  mit), 0);..  pEv
a450: 61 6c 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61  al = Tcl_Duplica
a460: 74 65 4f 62 6a 28 70 2d 3e 70 53 63 72 69 70 74  teObj(p->pScript
a470: 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66  );.  Tcl_IncrRef
a480: 43 6f 75 6e 74 28 70 45 76 61 6c 29 3b 0a 20 20  Count(pEval);.  
a490: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
a4a0: 64 45 6c 65 6d 65 6e 74 28 30 2c 20 70 45 76 61  dElement(0, pEva
a4b0: 6c 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  l, Tcl_NewString
a4c0: 4f 62 6a 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 2d  Obj(zFilename, -
a4d0: 31 29 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f  1));.  Tcl_ListO
a4e0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
a4f0: 30 2c 20 70 45 76 61 6c 2c 20 70 56 61 72 6e 61  0, pEval, pVarna
a500: 6d 65 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74 4f  me);.  Tcl_ListO
a510: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
a520: 30 2c 20 70 45 76 61 6c 2c 20 54 63 6c 5f 4e 65  0, pEval, Tcl_Ne
a530: 77 57 69 64 65 49 6e 74 4f 62 6a 28 69 53 69 7a  wWideIntObj(iSiz
a540: 65 29 29 3b 0a 20 20 72 63 20 3d 20 54 63 6c 5f  e));.  rc = Tcl_
a550: 45 76 61 6c 4f 62 6a 45 78 28 70 2d 3e 69 6e 74  EvalObjEx(p->int
a560: 65 72 70 2c 20 70 45 76 61 6c 2c 20 54 43 4c 5f  erp, pEval, TCL_
a570: 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 0a 20  EVAL_GLOBAL);.. 
a580: 20 69 66 28 20 72 63 3d 3d 54 43 4c 5f 4f 4b 20   if( rc==TCL_OK 
a590: 29 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a  ){.    Tcl_Obj *
a5a0: 70 4c 69 6d 69 74 20 3d 20 54 63 6c 5f 4f 62 6a  pLimit = Tcl_Obj
a5b0: 47 65 74 56 61 72 32 28 70 2d 3e 69 6e 74 65 72  GetVar2(p->inter
a5c0: 70 2c 20 70 56 61 72 6e 61 6d 65 2c 20 30 2c 20  p, pVarname, 0, 
a5d0: 30 29 3b 0a 20 20 20 20 72 63 20 3d 20 54 63 6c  0);.    rc = Tcl
a5e0: 5f 47 65 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f  _GetWideIntFromO
a5f0: 62 6a 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 4c  bj(p->interp, pL
a600: 69 6d 69 74 2c 20 70 69 4c 69 6d 69 74 29 3b 0a  imit, piLimit);.
a610: 20 20 20 20 54 63 6c 5f 55 6e 73 65 74 56 61 72      Tcl_UnsetVar
a620: 28 70 2d 3e 69 6e 74 65 72 70 2c 20 54 63 6c 5f  (p->interp, Tcl_
a630: 47 65 74 53 74 72 69 6e 67 28 70 56 61 72 6e 61  GetString(pVarna
a640: 6d 65 29 2c 20 30 29 3b 0a 20 20 7d 0a 0a 20 20  me), 0);.  }..  
a650: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
a660: 28 70 45 76 61 6c 29 3b 0a 20 20 54 63 6c 5f 44  (pEval);.  Tcl_D
a670: 65 63 72 52 65 66 43 6f 75 6e 74 28 70 56 61 72  ecrRefCount(pVar
a680: 6e 61 6d 65 29 3b 0a 20 20 69 66 28 20 72 63 21  name);.  if( rc!
a690: 3d 54 43 4c 5f 4f 4b 20 29 20 54 63 6c 5f 42 61  =TCL_OK ) Tcl_Ba
a6a0: 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 70 2d  ckgroundError(p-
a6b0: 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a 0a 2f 2a 0a  >interp);.}../*.
a6c0: 2a 2a 20 44 65 73 74 72 75 63 74 6f 72 20 66 6f  ** Destructor fo
a6d0: 72 20 61 20 54 43 4c 20 71 75 6f 74 61 2d 6f 76  r a TCL quota-ov
a6e0: 65 72 2d 6c 69 6d 69 74 20 63 61 6c 6c 62 61 63  er-limit callbac
a6f0: 6b 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  k..*/.static voi
a700: 64 20 74 63 6c 43 61 6c 6c 62 61 63 6b 44 65 73  d tclCallbackDes
a710: 74 72 75 63 74 6f 72 28 76 6f 69 64 20 2a 70 4f  tructor(void *pO
a720: 62 6a 29 7b 0a 20 20 54 63 6c 51 75 6f 74 61 43  bj){.  TclQuotaC
a730: 61 6c 6c 62 61 63 6b 20 2a 70 20 3d 20 28 54 63  allback *p = (Tc
a740: 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 2a 29  lQuotaCallback*)
a750: 70 4f 62 6a 3b 0a 20 20 69 66 28 20 70 20 29 7b  pObj;.  if( p ){
a760: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66  .    Tcl_DecrRef
a770: 43 6f 75 6e 74 28 70 2d 3e 70 53 63 72 69 70 74  Count(p->pScript
a780: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  );.    sqlite3_f
a790: 72 65 65 28 28 63 68 61 72 20 2a 29 70 29 3b 0a  ree((char *)p);.
a7a0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c    }.}../*.** tcl
a7b0: 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f 71 75 6f  cmd: sqlite3_quo
a7c0: 74 61 5f 69 6e 69 74 69 61 6c 69 7a 65 20 4e 41  ta_initialize NA
a7d0: 4d 45 20 4d 41 4b 45 44 45 46 41 55 4c 54 0a 2a  ME MAKEDEFAULT.*
a7e0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73  /.static int tes
a7f0: 74 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69  t_quota_initiali
a800: 7a 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69  ze(.  void * cli
a810: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49  entData,.  Tcl_I
a820: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20  nterp *interp,. 
a830: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c   int objc,.  Tcl
a840: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
a850: 5b 5d 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68  [].){.  const ch
a860: 61 72 20 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 20  ar *zName;      
a870: 20 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20          /* Name 
a880: 6f 66 20 6e 65 77 20 71 75 6f 74 61 20 56 46 53  of new quota VFS
a890: 20 2a 2f 0a 20 20 69 6e 74 20 6d 61 6b 65 44 65   */.  int makeDe
a8a0: 66 61 75 6c 74 3b 20 20 20 20 20 20 20 20 20 20  fault;          
a8b0: 20 20 20 20 20 20 2f 2a 20 54 72 75 65 20 74 6f        /* True to
a8c0: 20 6d 61 6b 65 20 74 68 65 20 6e 65 77 20 56 46   make the new VF
a8d0: 53 20 74 68 65 20 64 65 66 61 75 6c 74 20 2a 2f  S the default */
a8e0: 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20  .  int rc;      
a8f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a900: 20 20 20 2f 2a 20 56 61 6c 75 65 20 72 65 74 75     /* Value retu
a910: 72 6e 65 64 20 62 79 20 71 75 6f 74 61 5f 69 6e  rned by quota_in
a920: 69 74 69 61 6c 69 7a 65 28 29 20 2a 2f 0a 0a 20  itialize() */.. 
a930: 20 2f 2a 20 50 72 6f 63 65 73 73 20 61 72 67 75   /* Process argu
a940: 6d 65 6e 74 73 20 2a 2f 0a 20 20 69 66 28 20 6f  ments */.  if( o
a950: 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63  bjc!=3 ){.    Tc
a960: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
a970: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
a980: 22 4e 41 4d 45 20 4d 41 4b 45 44 45 46 41 55 4c  "NAME MAKEDEFAUL
a990: 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  T");.    return 
a9a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
a9b0: 20 7a 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74   zName = Tcl_Get
a9c0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b  String(objv[1]);
a9d0: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f  .  if( Tcl_GetBo
a9e0: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74  oleanFromObj(int
a9f0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6d  erp, objv[2], &m
aa00: 61 6b 65 44 65 66 61 75 6c 74 29 20 29 20 72 65  akeDefault) ) re
aa10: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
aa20: 20 20 69 66 28 20 7a 4e 61 6d 65 5b 30 5d 3d 3d    if( zName[0]==
aa30: 27 5c 30 27 20 29 20 7a 4e 61 6d 65 20 3d 20 30  '\0' ) zName = 0
aa40: 3b 0a 0a 20 20 2f 2a 20 43 61 6c 6c 20 73 71 6c  ;..  /* Call sql
aa50: 69 74 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69  ite3_quota_initi
aa60: 61 6c 69 7a 65 28 29 20 2a 2f 0a 20 20 72 63 20  alize() */.  rc 
aa70: 3d 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f  = sqlite3_quota_
aa80: 69 6e 69 74 69 61 6c 69 7a 65 28 7a 4e 61 6d 65  initialize(zName
aa90: 2c 20 6d 61 6b 65 44 65 66 61 75 6c 74 29 3b 0a  , makeDefault);.
aaa0: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28    Tcl_SetResult(
aab0: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29  interp, (char *)
aac0: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72  sqlite3TestError
aad0: 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54  Name(rc), TCL_ST
aae0: 41 54 49 43 29 3b 0a 0a 20 20 72 65 74 75 72 6e  ATIC);..  return
aaf0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
ab00: 2a 20 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65  * tclcmd: sqlite
ab10: 33 5f 71 75 6f 74 61 5f 73 68 75 74 64 6f 77 6e  3_quota_shutdown
ab20: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
ab30: 65 73 74 5f 71 75 6f 74 61 5f 73 68 75 74 64 6f  est_quota_shutdo
ab40: 77 6e 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69  wn(.  void * cli
ab50: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49  entData,.  Tcl_I
ab60: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20  nterp *interp,. 
ab70: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c   int objc,.  Tcl
ab80: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
ab90: 5b 5d 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 20  [].){.  int rc; 
aba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
abb0: 20 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65          /* Value
abc0: 20 72 65 74 75 72 6e 65 64 20 62 79 20 71 75 6f   returned by quo
abd0: 74 61 5f 73 68 75 74 64 6f 77 6e 28 29 20 2a 2f  ta_shutdown() */
abe0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20  ..  if( objc!=1 
abf0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
ac00: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
ac10: 31 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20  1, objv, "");.  
ac20: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
ac30: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 43 61  OR;.  }..  /* Ca
ac40: 6c 6c 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  ll sqlite3_quota
ac50: 5f 73 68 75 74 64 6f 77 6e 28 29 20 2a 2f 0a 20  _shutdown() */. 
ac60: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 71 75   rc = sqlite3_qu
ac70: 6f 74 61 5f 73 68 75 74 64 6f 77 6e 28 29 3b 0a  ota_shutdown();.
ac80: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28    Tcl_SetResult(
ac90: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29  interp, (char *)
aca0: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72  sqlite3TestError
acb0: 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54  Name(rc), TCL_ST
acc0: 41 54 49 43 29 3b 0a 0a 20 20 72 65 74 75 72 6e  ATIC);..  return
acd0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
ace0: 2a 20 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65  * tclcmd: sqlite
acf0: 33 5f 71 75 6f 74 61 5f 73 65 74 20 50 41 54 54  3_quota_set PATT
ad00: 45 52 4e 20 4c 49 4d 49 54 20 53 43 52 49 50 54  ERN LIMIT SCRIPT
ad10: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
ad20: 65 73 74 5f 71 75 6f 74 61 5f 73 65 74 28 0a 20  est_quota_set(. 
ad30: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61   void * clientDa
ad40: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
ad50: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
ad60: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
ad70: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
ad80: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  .  const char *z
ad90: 50 61 74 74 65 72 6e 3b 20 20 20 20 20 20 20 20  Pattern;        
ada0: 20 20 20 2f 2a 20 46 69 6c 65 20 70 61 74 74 65     /* File patte
adb0: 72 6e 20 74 6f 20 63 6f 6e 66 69 67 75 72 65 20  rn to configure 
adc0: 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74  */.  sqlite3_int
add0: 36 34 20 69 4c 69 6d 69 74 3b 20 20 20 20 20 20  64 iLimit;      
ade0: 20 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 20       /* Initial 
adf0: 71 75 6f 74 61 20 69 6e 20 62 79 74 65 73 20 2a  quota in bytes *
ae00: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63  /.  Tcl_Obj *pSc
ae10: 72 69 70 74 3b 20 20 20 20 20 20 20 20 20 20 20  ript;           
ae20: 20 20 20 20 2f 2a 20 54 63 6c 20 73 63 72 69 70      /* Tcl scrip
ae30: 74 20 74 6f 20 69 6e 76 6f 6b 65 20 74 6f 20 69  t to invoke to i
ae40: 6e 63 72 65 61 73 65 20 71 75 6f 74 61 20 2a 2f  ncrease quota */
ae50: 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20  .  int rc;      
ae60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
ae70: 20 20 20 2f 2a 20 56 61 6c 75 65 20 72 65 74 75     /* Value retu
ae80: 72 6e 65 64 20 62 79 20 71 75 6f 74 61 5f 73 65  rned by quota_se
ae90: 74 28 29 20 2a 2f 0a 20 20 54 63 6c 51 75 6f 74  t() */.  TclQuot
aea0: 61 43 61 6c 6c 62 61 63 6b 20 2a 70 3b 20 20 20  aCallback *p;   
aeb0: 20 20 20 20 20 20 20 20 20 2f 2a 20 43 61 6c 6c           /* Call
aec0: 62 61 63 6b 20 6f 62 6a 65 63 74 20 2a 2f 0a 20  back object */. 
aed0: 20 69 6e 74 20 6e 53 63 72 69 70 74 3b 20 20 20   int nScript;   
aee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
aef0: 20 2f 2a 20 4c 65 6e 67 74 68 20 6f 66 20 63 61   /* Length of ca
af00: 6c 6c 62 61 63 6b 20 73 63 72 69 70 74 20 2a 2f  llback script */
af10: 0a 20 20 76 6f 69 64 20 28 2a 78 44 65 73 74 72  .  void (*xDestr
af20: 6f 79 29 28 76 6f 69 64 2a 29 3b 20 20 20 20 20  oy)(void*);     
af30: 20 20 20 2f 2a 20 4f 70 74 69 6f 6e 61 6c 20 64     /* Optional d
af40: 65 73 74 72 75 63 74 6f 72 20 66 6f 72 20 70 41  estructor for pA
af50: 72 67 20 2a 2f 0a 20 20 76 6f 69 64 20 28 2a 78  rg */.  void (*x
af60: 43 61 6c 6c 62 61 63 6b 29 28 63 6f 6e 73 74 20  Callback)(const 
af70: 63 68 61 72 20 2a 2c 20 73 71 6c 69 74 65 33 5f  char *, sqlite3_
af80: 69 6e 74 36 34 20 2a 2c 20 73 71 6c 69 74 65 33  int64 *, sqlite3
af90: 5f 69 6e 74 36 34 2c 20 76 6f 69 64 20 2a 29 3b  _int64, void *);
afa0: 0a 0a 20 20 2f 2a 20 50 72 6f 63 65 73 73 20 61  ..  /* Process a
afb0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 69 66  rguments */.  if
afc0: 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20 20 20  ( objc!=4 ){.   
afd0: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
afe0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
aff0: 76 2c 20 22 50 41 54 54 45 52 4e 20 4c 49 4d 49  v, "PATTERN LIMI
b000: 54 20 53 43 52 49 50 54 22 29 3b 0a 20 20 20 20  T SCRIPT");.    
b010: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
b020: 3b 0a 20 20 7d 0a 20 20 7a 50 61 74 74 65 72 6e  ;.  }.  zPattern
b030: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
b040: 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 69 66 28  (objv[1]);.  if(
b050: 20 54 63 6c 5f 47 65 74 57 69 64 65 49 6e 74 46   Tcl_GetWideIntF
b060: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
b070: 62 6a 76 5b 32 5d 2c 20 26 69 4c 69 6d 69 74 29  bjv[2], &iLimit)
b080: 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52   ) return TCL_ER
b090: 52 4f 52 3b 0a 20 20 70 53 63 72 69 70 74 20 3d  ROR;.  pScript =
b0a0: 20 6f 62 6a 76 5b 33 5d 3b 0a 20 20 54 63 6c 5f   objv[3];.  Tcl_
b0b0: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
b0c0: 28 70 53 63 72 69 70 74 2c 20 26 6e 53 63 72 69  (pScript, &nScri
b0d0: 70 74 29 3b 0a 0a 20 20 69 66 28 20 6e 53 63 72  pt);..  if( nScr
b0e0: 69 70 74 3e 30 20 29 7b 0a 20 20 20 20 2f 2a 20  ipt>0 ){.    /* 
b0f0: 41 6c 6c 6f 63 61 74 65 20 61 20 54 63 6c 51 75  Allocate a TclQu
b100: 6f 74 61 43 61 6c 6c 62 61 63 6b 20 6f 62 6a 65  otaCallback obje
b110: 63 74 20 2a 2f 0a 20 20 20 20 70 20 3d 20 28 54  ct */.    p = (T
b120: 63 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 20  clQuotaCallback 
b130: 2a 29 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63  *)sqlite3_malloc
b140: 28 73 69 7a 65 6f 66 28 54 63 6c 51 75 6f 74 61  (sizeof(TclQuota
b150: 43 61 6c 6c 62 61 63 6b 29 29 3b 0a 20 20 20 20  Callback));.    
b160: 69 66 28 20 21 70 20 29 7b 0a 20 20 20 20 20 20  if( !p ){.      
b170: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e  Tcl_SetResult(in
b180: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 22 53  terp, (char *)"S
b190: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 22 2c 20 54 43  QLITE_NOMEM", TC
b1a0: 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 20  L_STATIC);.     
b1b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
b1c0: 20 20 20 20 7d 0a 20 20 20 20 6d 65 6d 73 65 74      }.    memset
b1d0: 28 70 2c 20 30 2c 20 73 69 7a 65 6f 66 28 54 63  (p, 0, sizeof(Tc
b1e0: 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 29 29  lQuotaCallback))
b1f0: 3b 0a 20 20 20 20 70 2d 3e 69 6e 74 65 72 70 20  ;.    p->interp 
b200: 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 54 63  = interp;.    Tc
b210: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70  l_IncrRefCount(p
b220: 53 63 72 69 70 74 29 3b 0a 20 20 20 20 70 2d 3e  Script);.    p->
b230: 70 53 63 72 69 70 74 20 3d 20 70 53 63 72 69 70  pScript = pScrip
b240: 74 3b 0a 20 20 20 20 78 44 65 73 74 72 6f 79 20  t;.    xDestroy 
b250: 3d 20 74 63 6c 43 61 6c 6c 62 61 63 6b 44 65 73  = tclCallbackDes
b260: 74 72 75 63 74 6f 72 3b 0a 20 20 20 20 78 43 61  tructor;.    xCa
b270: 6c 6c 62 61 63 6b 20 3d 20 74 63 6c 51 75 6f 74  llback = tclQuot
b280: 61 43 61 6c 6c 62 61 63 6b 3b 0a 20 20 7d 65 6c  aCallback;.  }el
b290: 73 65 7b 0a 20 20 20 20 70 20 3d 20 30 3b 0a 20  se{.    p = 0;. 
b2a0: 20 20 20 78 44 65 73 74 72 6f 79 20 3d 20 30 3b     xDestroy = 0;
b2b0: 0a 20 20 20 20 78 43 61 6c 6c 62 61 63 6b 20 3d  .    xCallback =
b2c0: 20 30 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 49 6e   0;.  }..  /* In
b2d0: 76 6f 6b 65 20 73 71 6c 69 74 65 33 5f 71 75 6f  voke sqlite3_quo
b2e0: 74 61 5f 73 65 74 28 29 20 2a 2f 0a 20 20 72 63  ta_set() */.  rc
b2f0: 20 3d 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61   = sqlite3_quota
b300: 5f 73 65 74 28 7a 50 61 74 74 65 72 6e 2c 20 69  _set(zPattern, i
b310: 4c 69 6d 69 74 2c 20 78 43 61 6c 6c 62 61 63 6b  Limit, xCallback
b320: 2c 20 28 76 6f 69 64 2a 29 70 2c 20 78 44 65 73  , (void*)p, xDes
b330: 74 72 6f 79 29 3b 0a 0a 20 20 54 63 6c 5f 53 65  troy);..  Tcl_Se
b340: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
b350: 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 54  (char *)sqlite3T
b360: 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 29  estErrorName(rc)
b370: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20  , TCL_STATIC);. 
b380: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
b390: 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a  }../*.** tclcmd:
b3a0: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66   sqlite3_quota_f
b3b0: 69 6c 65 20 46 49 4c 45 4e 41 4d 45 0a 2a 2f 0a  ile FILENAME.*/.
b3c0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f  static int test_
b3d0: 71 75 6f 74 61 5f 66 69 6c 65 28 0a 20 20 76 6f  quota_file(.  vo
b3e0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
b3f0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
b400: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
b410: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
b420: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
b430: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c  const char *zFil
b440: 65 6e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20  ename;          
b450: 2f 2a 20 46 69 6c 65 20 70 61 74 74 65 72 6e 20  /* File pattern 
b460: 74 6f 20 63 6f 6e 66 69 67 75 72 65 20 2a 2f 0a  to configure */.
b470: 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20 20    int rc;       
b480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b490: 20 20 2f 2a 20 56 61 6c 75 65 20 72 65 74 75 72    /* Value retur
b4a0: 6e 65 64 20 62 79 20 71 75 6f 74 61 5f 66 69 6c  ned by quota_fil
b4b0: 65 28 29 20 2a 2f 0a 0a 20 20 2f 2a 20 50 72 6f  e() */..  /* Pro
b4c0: 63 65 73 73 20 61 72 67 75 6d 65 6e 74 73 20 2a  cess arguments *
b4d0: 2f 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20  /.  if( objc!=2 
b4e0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
b4f0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
b500: 31 2c 20 6f 62 6a 76 2c 20 22 46 49 4c 45 4e 41  1, objv, "FILENA
b510: 4d 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  ME");.    return
b520: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
b530: 20 20 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 54 63    zFilename = Tc
b540: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
b550: 5b 31 5d 29 3b 0a 0a 20 20 2f 2a 20 49 6e 76 6f  [1]);..  /* Invo
b560: 6b 65 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  ke sqlite3_quota
b570: 5f 66 69 6c 65 28 29 20 2a 2f 0a 20 20 72 63 20  _file() */.  rc 
b580: 3d 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f  = sqlite3_quota_
b590: 66 69 6c 65 28 7a 46 69 6c 65 6e 61 6d 65 29 3b  file(zFilename);
b5a0: 0a 0a 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c  ..  Tcl_SetResul
b5b0: 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20  t(interp, (char 
b5c0: 2a 29 73 71 6c 69 74 65 33 54 65 73 74 45 72 72  *)sqlite3TestErr
b5d0: 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f  orName(rc), TCL_
b5e0: 53 54 41 54 49 43 29 3b 0a 20 20 72 65 74 75 72  STATIC);.  retur
b5f0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
b600: 2a 2a 20 74 63 6c 63 6d 64 3a 20 20 73 71 6c 69  ** tclcmd:  sqli
b610: 74 65 33 5f 71 75 6f 74 61 5f 64 75 6d 70 0a 2a  te3_quota_dump.*
b620: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73  /.static int tes
b630: 74 5f 71 75 6f 74 61 5f 64 75 6d 70 28 0a 20 20  t_quota_dump(.  
b640: 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74  void * clientDat
b650: 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  a,.  Tcl_Interp 
b660: 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f  *interp,.  int o
b670: 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a  bjc,.  Tcl_Obj *
b680: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a  CONST objv[].){.
b690: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 52 65 73 75    Tcl_Obj *pResu
b6a0: 6c 74 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70  lt;.  Tcl_Obj *p
b6b0: 47 72 6f 75 70 54 65 72 6d 3b 0a 20 20 54 63 6c  GroupTerm;.  Tcl
b6c0: 5f 4f 62 6a 20 2a 70 46 69 6c 65 54 65 72 6d 3b  _Obj *pFileTerm;
b6d0: 0a 20 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70  .  quotaGroup *p
b6e0: 47 72 6f 75 70 3b 0a 20 20 71 75 6f 74 61 46 69  Group;.  quotaFi
b6f0: 6c 65 20 2a 70 46 69 6c 65 3b 0a 0a 20 20 70 52  le *pFile;..  pR
b700: 65 73 75 6c 74 20 3d 20 54 63 6c 5f 4e 65 77 4f  esult = Tcl_NewO
b710: 62 6a 28 29 3b 0a 20 20 71 75 6f 74 61 45 6e 74  bj();.  quotaEnt
b720: 65 72 28 29 3b 0a 20 20 66 6f 72 28 70 47 72 6f  er();.  for(pGro
b730: 75 70 3d 67 51 75 6f 74 61 2e 70 47 72 6f 75 70  up=gQuota.pGroup
b740: 3b 20 70 47 72 6f 75 70 3b 20 70 47 72 6f 75 70  ; pGroup; pGroup
b750: 3d 70 47 72 6f 75 70 2d 3e 70 4e 65 78 74 29 7b  =pGroup->pNext){
b760: 0a 20 20 20 20 70 47 72 6f 75 70 54 65 72 6d 20  .    pGroupTerm 
b770: 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a  = Tcl_NewObj();.
b780: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
b790: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
b7a0: 65 72 70 2c 20 70 47 72 6f 75 70 54 65 72 6d 2c  erp, pGroupTerm,
b7b0: 0a 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e  .          Tcl_N
b7c0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 47 72 6f  ewStringObj(pGro
b7d0: 75 70 2d 3e 7a 50 61 74 74 65 72 6e 2c 20 2d 31  up->zPattern, -1
b7e0: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74  ));.    Tcl_List
b7f0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
b800: 28 69 6e 74 65 72 70 2c 20 70 47 72 6f 75 70 54  (interp, pGroupT
b810: 65 72 6d 2c 0a 20 20 20 20 20 20 20 20 20 20 54  erm,.          T
b820: 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a  cl_NewWideIntObj
b830: 28 70 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 29  (pGroup->iLimit)
b840: 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f  );.    Tcl_ListO
b850: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
b860: 69 6e 74 65 72 70 2c 20 70 47 72 6f 75 70 54 65  interp, pGroupTe
b870: 72 6d 2c 0a 20 20 20 20 20 20 20 20 20 20 54 63  rm,.          Tc
b880: 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28  l_NewWideIntObj(
b890: 70 47 72 6f 75 70 2d 3e 69 53 69 7a 65 29 29 3b  pGroup->iSize));
b8a0: 0a 20 20 20 20 66 6f 72 28 70 46 69 6c 65 3d 70  .    for(pFile=p
b8b0: 47 72 6f 75 70 2d 3e 70 46 69 6c 65 73 3b 20 70  Group->pFiles; p
b8c0: 46 69 6c 65 3b 20 70 46 69 6c 65 3d 70 46 69 6c  File; pFile=pFil
b8d0: 65 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20 20 20  e->pNext){.     
b8e0: 20 69 6e 74 20 69 3b 0a 20 20 20 20 20 20 63 68   int i;.      ch
b8f0: 61 72 20 7a 54 65 6d 70 5b 31 30 30 30 5d 3b 0a  ar zTemp[1000];.
b900: 20 20 20 20 20 20 70 46 69 6c 65 54 65 72 6d 20        pFileTerm 
b910: 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a  = Tcl_NewObj();.
b920: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73 6e        sqlite3_sn
b930: 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 54  printf(sizeof(zT
b940: 65 6d 70 29 2c 20 7a 54 65 6d 70 2c 20 22 25 73  emp), zTemp, "%s
b950: 22 2c 20 70 46 69 6c 65 2d 3e 7a 46 69 6c 65 6e  ", pFile->zFilen
b960: 61 6d 65 29 3b 0a 20 20 20 20 20 20 66 6f 72 28  ame);.      for(
b970: 69 3d 30 3b 20 7a 54 65 6d 70 5b 69 5d 3b 20 69  i=0; zTemp[i]; i
b980: 2b 2b 29 7b 20 69 66 28 20 7a 54 65 6d 70 5b 69  ++){ if( zTemp[i
b990: 5d 3d 3d 27 5c 5c 27 20 29 20 7a 54 65 6d 70 5b  ]=='\\' ) zTemp[
b9a0: 69 5d 20 3d 20 27 2f 27 3b 20 7d 0a 20 20 20 20  i] = '/'; }.    
b9b0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
b9c0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72  endElement(inter
b9d0: 70 2c 20 70 46 69 6c 65 54 65 72 6d 2c 0a 20 20  p, pFileTerm,.  
b9e0: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 65            Tcl_Ne
b9f0: 77 53 74 72 69 6e 67 4f 62 6a 28 7a 54 65 6d 70  wStringObj(zTemp
ba00: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 20 20 54 63  , -1));.      Tc
ba10: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
ba20: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70  lement(interp, p
ba30: 46 69 6c 65 54 65 72 6d 2c 0a 20 20 20 20 20 20  FileTerm,.      
ba40: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 57 69 64        Tcl_NewWid
ba50: 65 49 6e 74 4f 62 6a 28 70 46 69 6c 65 2d 3e 69  eIntObj(pFile->i
ba60: 53 69 7a 65 29 29 3b 0a 20 20 20 20 20 20 54 63  Size));.      Tc
ba70: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
ba80: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70  lement(interp, p
ba90: 46 69 6c 65 54 65 72 6d 2c 0a 20 20 20 20 20 20  FileTerm,.      
baa0: 20 20 20 20 20 20 54 63 6c 5f 4e 65 77 57 69 64        Tcl_NewWid
bab0: 65 49 6e 74 4f 62 6a 28 70 46 69 6c 65 2d 3e 6e  eIntObj(pFile->n
bac0: 52 65 66 29 29 3b 0a 20 20 20 20 20 20 54 63 6c  Ref));.      Tcl
bad0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
bae0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 70 46  ement(interp, pF
baf0: 69 6c 65 54 65 72 6d 2c 0a 20 20 20 20 20 20 20  ileTerm,.       
bb00: 20 20 20 20 20 54 63 6c 5f 4e 65 77 57 69 64 65       Tcl_NewWide
bb10: 49 6e 74 4f 62 6a 28 70 46 69 6c 65 2d 3e 64 65  IntObj(pFile->de
bb20: 6c 65 74 65 4f 6e 43 6c 6f 73 65 29 29 3b 0a 20  leteOnClose));. 
bb30: 20 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a       Tcl_ListObj
bb40: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e  AppendElement(in
bb50: 74 65 72 70 2c 20 70 47 72 6f 75 70 54 65 72 6d  terp, pGroupTerm
bb60: 2c 20 70 46 69 6c 65 54 65 72 6d 29 3b 0a 20 20  , pFileTerm);.  
bb70: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74    }.    Tcl_List
bb80: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
bb90: 28 69 6e 74 65 72 70 2c 20 70 52 65 73 75 6c 74  (interp, pResult
bba0: 2c 20 70 47 72 6f 75 70 54 65 72 6d 29 3b 0a 20  , pGroupTerm);. 
bbb0: 20 7d 0a 20 20 71 75 6f 74 61 4c 65 61 76 65 28   }.  quotaLeave(
bbc0: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52  );.  Tcl_SetObjR
bbd0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 52  esult(interp, pR
bbe0: 65 73 75 6c 74 29 3b 0a 20 20 72 65 74 75 72 6e  esult);.  return
bbf0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
bc00: 2a 20 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65  * tclcmd: sqlite
bc10: 33 5f 71 75 6f 74 61 5f 66 6f 70 65 6e 20 46 49  3_quota_fopen FI
bc20: 4c 45 4e 41 4d 45 20 4d 4f 44 45 0a 2a 2f 0a 73  LENAME MODE.*/.s
bc30: 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 71  tatic int test_q
bc40: 75 6f 74 61 5f 66 6f 70 65 6e 28 0a 20 20 76 6f  uota_fopen(.  vo
bc50: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
bc60: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
bc70: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
bc80: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
bc90: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
bca0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46 69 6c  const char *zFil
bcb0: 65 6e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20  ename;          
bcc0: 2f 2a 20 46 69 6c 65 20 70 61 74 74 65 72 6e 20  /* File pattern 
bcd0: 74 6f 20 63 6f 6e 66 69 67 75 72 65 20 2a 2f 0a  to configure */.
bce0: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4d    const char *zM
bcf0: 6f 64 65 3b 20 20 20 20 20 20 20 20 20 20 20 20  ode;            
bd00: 20 20 2f 2a 20 4d 6f 64 65 20 73 74 72 69 6e 67    /* Mode string
bd10: 20 2a 2f 0a 20 20 71 75 6f 74 61 5f 46 49 4c 45   */.  quota_FILE
bd20: 20 2a 70 3b 20 20 20 20 20 20 20 20 20 20 20 20   *p;            
bd30: 20 20 20 20 20 20 2f 2a 20 4f 70 65 6e 20 73 74        /* Open st
bd40: 72 69 6e 67 20 6f 62 6a 65 63 74 20 2a 2f 0a 20  ring object */. 
bd50: 20 63 68 61 72 20 7a 52 65 74 75 72 6e 5b 35 30   char zReturn[50
bd60: 5d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ];              
bd70: 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 70 6f 69 6e   /* Name of poin
bd80: 74 65 72 20 74 6f 20 72 65 74 75 72 6e 20 2a 2f  ter to return */
bd90: 0a 0a 20 20 2f 2a 20 50 72 6f 63 65 73 73 20 61  ..  /* Process a
bda0: 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 69 66  rguments */.  if
bdb0: 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20  ( objc!=3 ){.   
bdc0: 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67   Tcl_WrongNumArg
bdd0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
bde0: 76 2c 20 22 46 49 4c 45 4e 41 4d 45 20 4d 4f 44  v, "FILENAME MOD
bdf0: 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  E");.    return 
be00: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
be10: 20 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 54 63 6c   zFilename = Tcl
be20: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
be30: 31 5d 29 3b 0a 20 20 7a 4d 6f 64 65 20 3d 20 54  1]);.  zMode = T
be40: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
be50: 76 5b 32 5d 29 3b 0a 20 20 70 20 3d 20 73 71 6c  v[2]);.  p = sql
be60: 69 74 65 33 5f 71 75 6f 74 61 5f 66 6f 70 65 6e  ite3_quota_fopen
be70: 28 7a 46 69 6c 65 6e 61 6d 65 2c 20 7a 4d 6f 64  (zFilename, zMod
be80: 65 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 6e  e);.  sqlite3_sn
be90: 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a 52  printf(sizeof(zR
bea0: 65 74 75 72 6e 29 2c 20 7a 52 65 74 75 72 6e 2c  eturn), zReturn,
beb0: 20 22 25 70 22 2c 20 70 29 3b 0a 20 20 54 63 6c   "%p", p);.  Tcl
bec0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
bed0: 70 2c 20 7a 52 65 74 75 72 6e 2c 20 54 43 4c 5f  p, zReturn, TCL_
bee0: 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 72 65 74  VOLATILE);.  ret
bef0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
bf00: 2a 20 44 65 66 69 6e 65 64 20 69 6e 20 74 65 73  * Defined in tes
bf10: 74 31 2e 63 20 2a 2f 0a 65 78 74 65 72 6e 20 76  t1.c */.extern v
bf20: 6f 69 64 20 2a 73 71 6c 69 74 65 33 54 65 73 74  oid *sqlite3Test
bf30: 54 65 78 74 54 6f 50 74 72 28 63 6f 6e 73 74 20  TextToPtr(const 
bf40: 63 68 61 72 2a 29 3b 0a 0a 2f 2a 0a 2a 2a 20 74  char*);../*.** t
bf50: 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f 71  clcmd: sqlite3_q
bf60: 75 6f 74 61 5f 66 72 65 61 64 20 48 41 4e 44 4c  uota_fread HANDL
bf70: 45 20 53 49 5a 45 20 4e 45 4c 45 4d 0a 2a 2f 0a  E SIZE NELEM.*/.
bf80: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f  static int test_
bf90: 71 75 6f 74 61 5f 66 72 65 61 64 28 0a 20 20 76  quota_fread(.  v
bfa0: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61  oid * clientData
bfb0: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
bfc0: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62  interp,.  int ob
bfd0: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43  jc,.  Tcl_Obj *C
bfe0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20  ONST objv[].){. 
bff0: 20 71 75 6f 74 61 5f 46 49 4c 45 20 2a 70 3b 0a   quota_FILE *p;.
c000: 20 20 63 68 61 72 20 2a 7a 42 75 66 3b 0a 20 20    char *zBuf;.  
c010: 69 6e 74 20 73 7a 3b 0a 20 20 69 6e 74 20 6e 45  int sz;.  int nE
c020: 6c 65 6d 3b 0a 20 20 73 69 7a 65 5f 74 20 67 6f  lem;.  size_t go
c030: 74 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d  t;..  if( objc!=
c040: 34 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f  4 ){.    Tcl_Wro
c050: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
c060: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 48 41 4e 44  , 1, objv, "HAND
c070: 4c 45 20 53 49 5a 45 20 4e 45 4c 45 4d 22 29 3b  LE SIZE NELEM");
c080: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
c090: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 20 3d  ERROR;.  }.  p =
c0a0: 20 73 71 6c 69 74 65 33 54 65 73 74 54 65 78 74   sqlite3TestText
c0b0: 54 6f 50 74 72 28 54 63 6c 5f 47 65 74 53 74 72  ToPtr(Tcl_GetStr
c0c0: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 29 3b 0a 20  ing(objv[1]));. 
c0d0: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46   if( Tcl_GetIntF
c0e0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
c0f0: 62 6a 76 5b 32 5d 2c 20 26 73 7a 29 20 29 20 72  bjv[2], &sz) ) r
c100: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
c110: 0a 20 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e  .  if( Tcl_GetIn
c120: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
c130: 20 6f 62 6a 76 5b 33 5d 2c 20 26 6e 45 6c 65 6d   objv[3], &nElem
c140: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
c150: 52 52 4f 52 3b 0a 20 20 7a 42 75 66 20 3d 20 28  RROR;.  zBuf = (
c160: 63 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 6d 61  char*)sqlite3_ma
c170: 6c 6c 6f 63 28 20 73 7a 2a 6e 45 6c 65 6d 20 2b  lloc( sz*nElem +
c180: 20 31 20 29 3b 0a 20 20 69 66 28 20 7a 42 75 66   1 );.  if( zBuf
c190: 3d 3d 30 20 29 7b 0a 20 20 20 20 54 63 6c 5f 53  ==0 ){.    Tcl_S
c1a0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  etResult(interp,
c1b0: 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22   "out of memory"
c1c0: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20  , TCL_STATIC);. 
c1d0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
c1e0: 52 4f 52 3b 0a 20 20 7d 0a 20 20 67 6f 74 20 3d  ROR;.  }.  got =
c1f0: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66   sqlite3_quota_f
c200: 72 65 61 64 28 7a 42 75 66 2c 20 73 7a 2c 20 6e  read(zBuf, sz, n
c210: 45 6c 65 6d 2c 20 70 29 3b 0a 20 20 69 66 28 20  Elem, p);.  if( 
c220: 67 6f 74 3c 30 20 29 20 67 6f 74 20 3d 20 30 3b  got<0 ) got = 0;
c230: 0a 20 20 7a 42 75 66 5b 67 6f 74 2a 73 7a 5d 20  .  zBuf[got*sz] 
c240: 3d 20 30 3b 0a 20 20 54 63 6c 5f 53 65 74 52 65  = 0;.  Tcl_SetRe
c250: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 7a 42 75  sult(interp, zBu
c260: 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29  f, TCL_VOLATILE)
c270: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 72 65 65  ;.  sqlite3_free
c280: 28 7a 42 75 66 29 3b 0a 20 20 72 65 74 75 72 6e  (zBuf);.  return
c290: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a   TCL_OK;.}../*.*
c2a0: 2a 20 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65  * tclcmd: sqlite
c2b0: 33 5f 71 75 6f 74 61 5f 66 77 72 69 74 65 20 48  3_quota_fwrite H
c2c0: 41 4e 44 4c 45 20 53 49 5a 45 20 4e 45 4c 45 4d  ANDLE SIZE NELEM
c2d0: 20 43 4f 4e 54 45 4e 54 0a 2a 2f 0a 73 74 61 74   CONTENT.*/.stat
c2e0: 69 63 20 69 6e 74 20 74 65 73 74 5f 71 75 6f 74  ic int test_quot
c2f0: 61 5f 66 77 72 69 74 65 28 0a 20 20 76 6f 69 64  a_fwrite(.  void
c300: 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20   * clientData,. 
c310: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
c320: 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  erp,.  int objc,
c330: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53  .  Tcl_Obj *CONS
c340: 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 71 75  T objv[].){.  qu
c350: 6f 74 61 5f 46 49 4c 45 20 2a 70 3b 0a 20 20 63  ota_FILE *p;.  c
c360: 68 61 72 20 2a 7a 42 75 66 3b 0a 20 20 69 6e 74  har *zBuf;.  int
c370: 20 73 7a 3b 0a 20 20 69 6e 74 20 6e 45 6c 65 6d   sz;.  int nElem
c380: 3b 0a 20 20 73 69 7a 65 5f 74 20 67 6f 74 3b 0a  ;.  size_t got;.
c390: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 35 20 29  .  if( objc!=5 )
c3a0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
c3b0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
c3c0: 2c 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45 20  , objv, "HANDLE 
c3d0: 53 49 5a 45 20 4e 45 4c 45 4d 20 43 4f 4e 54 45  SIZE NELEM CONTE
c3e0: 4e 54 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  NT");.    return
c3f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
c400: 20 20 70 20 3d 20 73 71 6c 69 74 65 33 54 65 73    p = sqlite3Tes
c410: 74 54 65 78 74 54 6f 50 74 72 28 54 63 6c 5f 47  tTextToPtr(Tcl_G
c420: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d  etString(objv[1]
c430: 29 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47 65  ));.  if( Tcl_Ge
c440: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65  tIntFromObj(inte
c450: 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 73 7a  rp, objv[2], &sz
c460: 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f 45  ) ) return TCL_E
c470: 52 52 4f 52 3b 0a 20 20 69 66 28 20 54 63 6c 5f  RROR;.  if( Tcl_
c480: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e  GetIntFromObj(in
c490: 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26  terp, objv[3], &
c4a0: 6e 45 6c 65 6d 29 20 29 20 72 65 74 75 72 6e 20  nElem) ) return 
c4b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7a 42 75  TCL_ERROR;.  zBu
c4c0: 66 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  f = Tcl_GetStrin
c4d0: 67 28 6f 62 6a 76 5b 34 5d 29 3b 0a 20 20 67 6f  g(objv[4]);.  go
c4e0: 74 20 3d 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  t = sqlite3_quot
c4f0: 61 5f 66 77 72 69 74 65 28 7a 42 75 66 2c 20 73  a_fwrite(zBuf, s
c500: 7a 2c 20 6e 45 6c 65 6d 2c 20 70 29 3b 0a 20 20  z, nElem, p);.  
c510: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
c520: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77  (interp, Tcl_New
c530: 57 69 64 65 49 6e 74 4f 62 6a 28 67 6f 74 29 29  WideIntObj(got))
c540: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;.  return TCL_O
c550: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63  K;.}../*.** tclc
c560: 6d 64 3a 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  md: sqlite3_quot
c570: 61 5f 66 63 6c 6f 73 65 20 48 41 4e 44 4c 45 0a  a_fclose HANDLE.
c580: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65  */.static int te
c590: 73 74 5f 71 75 6f 74 61 5f 66 63 6c 6f 73 65 28  st_quota_fclose(
c5a0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74  .  void * client
c5b0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Data,.  Tcl_Inte
c5c0: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
c5d0: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
c5e0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
c5f0: 29 7b 0a 20 20 71 75 6f 74 61 5f 46 49 4c 45 20  ){.  quota_FILE 
c600: 2a 70 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a 20  *p;.  int rc;.. 
c610: 20 69 66 28 20 6f 62 6a 63 21 3d 32 20 29 7b 0a   if( objc!=2 ){.
c620: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d      Tcl_WrongNum
c630: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
c640: 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45 22 29 3b  objv, "HANDLE");
c650: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
c660: 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 20 3d  ERROR;.  }.  p =
c670: 20 73 71 6c 69 74 65 33 54 65 73 74 54 65 78 74   sqlite3TestText
c680: 54 6f 50 74 72 28 54 63 6c 5f 47 65 74 53 74 72  ToPtr(Tcl_GetStr
c690: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 29 3b 0a 20  ing(objv[1]));. 
c6a0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 71 75   rc = sqlite3_qu
c6b0: 6f 74 61 5f 66 63 6c 6f 73 65 28 70 29 3b 0a 20  ota_fclose(p);. 
c6c0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
c6d0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65  t(interp, Tcl_Ne
c6e0: 77 49 6e 74 4f 62 6a 28 72 63 29 29 3b 0a 20 20  wIntObj(rc));.  
c6f0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
c700: 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20  ../*.** tclcmd: 
c710: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 66  sqlite3_quota_ff
c720: 6c 75 73 68 20 48 41 4e 44 4c 45 20 3f 48 41 52  lush HANDLE ?HAR
c730: 44 53 59 4e 43 3f 0a 2a 2f 0a 73 74 61 74 69 63  DSYNC?.*/.static
c740: 20 69 6e 74 20 74 65 73 74 5f 71 75 6f 74 61 5f   int test_quota_
c750: 66 66 6c 75 73 68 28 0a 20 20 76 6f 69 64 20 2a  fflush(.  void *
c760: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54   clientData,.  T
c770: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
c780: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20  p,.  int objc,. 
c790: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
c7a0: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 71 75 6f 74  objv[].){.  quot
c7b0: 61 5f 46 49 4c 45 20 2a 70 3b 0a 20 20 69 6e 74  a_FILE *p;.  int
c7c0: 20 72 63 3b 0a 20 20 69 6e 74 20 64 6f 53 79 6e   rc;.  int doSyn
c7d0: 63 20 3d 20 30 3b 0a 0a 20 20 69 66 28 20 6f 62  c = 0;..  if( ob
c7e0: 6a 63 21 3d 32 20 26 26 20 6f 62 6a 63 21 3d 33  jc!=2 && objc!=3
c7f0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e   ){.    Tcl_Wron
c800: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
c810: 20 31 2c 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c   1, objv, "HANDL
c820: 45 20 3f 48 41 52 44 53 59 4e 43 3f 22 29 3b 0a  E ?HARDSYNC?");.
c830: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
c840: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 20 3d 20  RROR;.  }.  p = 
c850: 73 71 6c 69 74 65 33 54 65 73 74 54 65 78 74 54  sqlite3TestTextT
c860: 6f 50 74 72 28 54 63 6c 5f 47 65 74 53 74 72 69  oPtr(Tcl_GetStri
c870: 6e 67 28 6f 62 6a 76 5b 31 5d 29 29 3b 0a 20 20  ng(objv[1]));.  
c880: 69 66 28 20 6f 62 6a 63 3d 3d 33 20 29 7b 0a 20  if( objc==3 ){. 
c890: 20 20 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f     if( Tcl_GetBo
c8a0: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74  oleanFromObj(int
c8b0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 64  erp, objv[2], &d
c8c0: 6f 53 79 6e 63 29 20 29 20 72 65 74 75 72 6e 20  oSync) ) return 
c8d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20  TCL_ERROR;.  }. 
c8e0: 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 71 75   rc = sqlite3_qu
c8f0: 6f 74 61 5f 66 66 6c 75 73 68 28 70 2c 20 64 6f  ota_fflush(p, do
c900: 53 79 6e 63 29 3b 0a 20 20 54 63 6c 5f 53 65 74  Sync);.  Tcl_Set
c910: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
c920: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
c930: 72 63 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  rc));.  return T
c940: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
c950: 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f  tclcmd: sqlite3_
c960: 71 75 6f 74 61 5f 66 73 65 65 6b 20 48 41 4e 44  quota_fseek HAND
c970: 4c 45 20 4f 46 46 53 45 54 20 57 48 45 4e 43 45  LE OFFSET WHENCE
c980: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74  .*/.static int t
c990: 65 73 74 5f 71 75 6f 74 61 5f 66 73 65 65 6b 28  est_quota_fseek(
c9a0: 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74  .  void * client
c9b0: 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65  Data,.  Tcl_Inte
c9c0: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e  rp *interp,.  in
c9d0: 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62  t objc,.  Tcl_Ob
c9e0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a  j *CONST objv[].
c9f0: 29 7b 0a 20 20 71 75 6f 74 61 5f 46 49 4c 45 20  ){.  quota_FILE 
ca00: 2a 70 3b 0a 20 20 69 6e 74 20 6f 66 73 74 3b 0a  *p;.  int ofst;.
ca10: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 57    const char *zW
ca20: 68 65 6e 63 65 3b 0a 20 20 69 6e 74 20 77 68 65  hence;.  int whe
ca30: 6e 63 65 3b 0a 20 20 69 6e 74 20 72 63 3b 0a 0a  nce;.  int rc;..
ca40: 20 20 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b    if( objc!=4 ){
ca50: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
ca60: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c  mArgs(interp, 1,
ca70: 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45 20 4f   objv, "HANDLE O
ca80: 46 46 53 45 54 20 57 48 45 4e 43 45 22 29 3b 0a  FFSET WHENCE");.
ca90: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
caa0: 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 70 20 3d 20  RROR;.  }.  p = 
cab0: 73 71 6c 69 74 65 33 54 65 73 74 54 65 78 74 54  sqlite3TestTextT
cac0: 6f 50 74 72 28 54 63 6c 5f 47 65 74 53 74 72 69  oPtr(Tcl_GetStri
cad0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 29 3b 0a 20 20  ng(objv[1]));.  
cae0: 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46 72  if( Tcl_GetIntFr
caf0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62  omObj(interp, ob
cb00: 6a 76 5b 32 5d 2c 20 26 6f 66 73 74 29 20 29 20  jv[2], &ofst) ) 
cb10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
cb20: 3b 0a 20 20 7a 57 68 65 6e 63 65 20 3d 20 54 63  ;.  zWhence = Tc
cb30: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
cb40: 5b 33 5d 29 3b 0a 20 20 69 66 28 20 73 74 72 63  [3]);.  if( strc
cb50: 6d 70 28 7a 57 68 65 6e 63 65 2c 20 22 53 45 45  mp(zWhence, "SEE
cb60: 4b 5f 53 45 54 22 29 3d 3d 30 20 29 7b 0a 20 20  K_SET")==0 ){.  
cb70: 20 20 77 68 65 6e 63 65 20 3d 20 53 45 45 4b 5f    whence = SEEK_
cb80: 53 45 54 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28  SET;.  }else if(
cb90: 20 73 74 72 63 6d 70 28 7a 57 68 65 6e 63 65 2c   strcmp(zWhence,
cba0: 20 22 53 45 45 4b 5f 43 55 52 22 29 3d 3d 30 20   "SEEK_CUR")==0 
cbb0: 29 7b 0a 20 20 20 20 77 68 65 6e 63 65 20 3d 20  ){.    whence = 
cbc0: 53 45 45 4b 5f 43 55 52 3b 0a 20 20 7d 65 6c 73  SEEK_CUR;.  }els
cbd0: 65 20 69 66 28 20 73 74 72 63 6d 70 28 7a 57 68  e if( strcmp(zWh
cbe0: 65 6e 63 65 2c 20 22 53 45 45 4b 5f 45 4e 44 22  ence, "SEEK_END"
cbf0: 29 3d 3d 30 20 29 7b 0a 20 20 20 20 77 68 65 6e  )==0 ){.    when
cc00: 63 65 20 3d 20 53 45 45 4b 5f 45 4e 44 3b 0a 20  ce = SEEK_END;. 
cc10: 20 7d 65 6c 73 65 7b 0a 20 20 20 20 54 63 6c 5f   }else{.    Tcl_
cc20: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
cc30: 65 72 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20  erp,.           
cc40: 22 57 48 45 4e 43 45 20 73 68 6f 75 6c 64 20 62  "WHENCE should b
cc50: 65 20 53 45 45 4b 5f 53 45 54 2c 20 53 45 45 4b  e SEEK_SET, SEEK
cc60: 5f 43 55 52 2c 20 6f 72 20 53 45 45 4b 5f 45 4e  _CUR, or SEEK_EN
cc70: 44 22 2c 20 28 63 68 61 72 2a 29 30 29 3b 0a 20  D", (char*)0);. 
cc80: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
cc90: 52 4f 52 3b 0a 20 20 7d 0a 20 20 72 63 20 3d 20  ROR;.  }.  rc = 
cca0: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 73  sqlite3_quota_fs
ccb0: 65 65 6b 28 70 2c 20 6f 66 73 74 2c 20 77 68 65  eek(p, ofst, whe
ccc0: 6e 63 65 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f  nce);.  Tcl_SetO
ccd0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
cce0: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72   Tcl_NewIntObj(r
ccf0: 63 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43  c));.  return TC
cd00: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74  L_OK;.}../*.** t
cd10: 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f 71  clcmd: sqlite3_q
cd20: 75 6f 74 61 5f 72 65 77 69 6e 64 20 48 41 4e 44  uota_rewind HAND
cd30: 4c 45 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  LE.*/.static int
cd40: 20 74 65 73 74 5f 71 75 6f 74 61 5f 72 65 77 69   test_quota_rewi
cd50: 6e 64 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69  nd(.  void * cli
cd60: 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49  entData,.  Tcl_I
cd70: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20  nterp *interp,. 
cd80: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c   int objc,.  Tcl
cd90: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
cda0: 5b 5d 0a 29 7b 0a 20 20 71 75 6f 74 61 5f 46 49  [].){.  quota_FI
cdb0: 4c 45 20 2a 70 3b 0a 20 20 69 66 28 20 6f 62 6a  LE *p;.  if( obj
cdc0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
cdd0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
cde0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 48  erp, 1, objv, "H
cdf0: 41 4e 44 4c 45 22 29 3b 0a 20 20 20 20 72 65 74  ANDLE");.    ret
ce00: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
ce10: 20 7d 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33   }.  p = sqlite3
ce20: 54 65 73 74 54 65 78 74 54 6f 50 74 72 28 54 63  TestTextToPtr(Tc
ce30: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
ce40: 5b 31 5d 29 29 3b 0a 20 20 73 71 6c 69 74 65 33  [1]));.  sqlite3
ce50: 5f 71 75 6f 74 61 5f 72 65 77 69 6e 64 28 70 29  _quota_rewind(p)
ce60: 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;.  return TCL_O
ce70: 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63  K;.}../*.** tclc
ce80: 6d 64 3a 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  md: sqlite3_quot
ce90: 61 5f 66 74 65 6c 6c 20 48 41 4e 44 4c 45 0a 2a  a_ftell HANDLE.*
cea0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73  /.static int tes
ceb0: 74 5f 71 75 6f 74 61 5f 66 74 65 6c 6c 28 0a 20  t_quota_ftell(. 
cec0: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61   void * clientDa
ced0: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
cee0: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
cef0: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
cf00: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
cf10: 0a 20 20 71 75 6f 74 61 5f 46 49 4c 45 20 2a 70  .  quota_FILE *p
cf20: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36  ;.  sqlite3_int6
cf30: 34 20 78 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21  4 x;.  if( objc!
cf40: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72  =2 ){.    Tcl_Wr
cf50: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
cf60: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 48 41 4e  p, 1, objv, "HAN
cf70: 44 4c 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72  DLE");.    retur
cf80: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
cf90: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 54 65  .  p = sqlite3Te
cfa0: 73 74 54 65 78 74 54 6f 50 74 72 28 54 63 6c 5f  stTextToPtr(Tcl_
cfb0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31  GetString(objv[1
cfc0: 5d 29 29 3b 0a 20 20 78 20 3d 20 73 71 6c 69 74  ]));.  x = sqlit
cfd0: 65 33 5f 71 75 6f 74 61 5f 66 74 65 6c 6c 28 70  e3_quota_ftell(p
cfe0: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52  );.  Tcl_SetObjR
cff0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63  esult(interp, Tc
d000: 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28  l_NewWideIntObj(
d010: 78 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43  x));.  return TC
d020: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74  L_OK;.}../*.** t
d030: 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f 71  clcmd: sqlite3_q
d040: 75 6f 74 61 5f 66 74 72 75 6e 63 61 74 65 20 48  uota_ftruncate H
d050: 41 4e 44 4c 45 20 53 49 5a 45 0a 2a 2f 0a 73 74  ANDLE SIZE.*/.st
d060: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 71 75  atic int test_qu
d070: 6f 74 61 5f 66 74 72 75 6e 63 61 74 65 28 0a 20  ota_ftruncate(. 
d080: 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61   void * clientDa
d090: 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70  ta,.  Tcl_Interp
d0a0: 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20   *interp,.  int 
d0b0: 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20  objc,.  Tcl_Obj 
d0c0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b  *CONST objv[].){
d0d0: 0a 20 20 71 75 6f 74 61 5f 46 49 4c 45 20 2a 70  .  quota_FILE *p
d0e0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36  ;.  sqlite3_int6
d0f0: 34 20 78 3b 0a 20 20 54 63 6c 5f 57 69 64 65 49  4 x;.  Tcl_WideI
d100: 6e 74 20 77 3b 0a 20 20 69 6e 74 20 72 63 3b 0a  nt w;.  int rc;.
d110: 20 20 69 66 28 20 6f 62 6a 63 21 3d 33 20 29 7b    if( objc!=3 ){
d120: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
d130: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c  mArgs(interp, 1,
d140: 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45 20 53   objv, "HANDLE S
d150: 49 5a 45 22 29 3b 0a 20 20 20 20 72 65 74 75 72  IZE");.    retur
d160: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
d170: 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33 54 65  .  p = sqlite3Te
d180: 73 74 54 65 78 74 54 6f 50 74 72 28 54 63 6c 5f  stTextToPtr(Tcl_
d190: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31  GetString(objv[1
d1a0: 5d 29 29 3b 0a 20 20 69 66 28 20 54 63 6c 5f 47  ]));.  if( Tcl_G
d1b0: 65 74 57 69 64 65 49 6e 74 46 72 6f 6d 4f 62 6a  etWideIntFromObj
d1c0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
d1d0: 2c 20 26 77 29 20 29 20 72 65 74 75 72 6e 20 54  , &w) ) return T
d1e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 78 20 3d 20  CL_ERROR;.  x = 
d1f0: 28 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 29 77  (sqlite3_int64)w
d200: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  ;.  rc = sqlite3
d210: 5f 71 75 6f 74 61 5f 66 74 72 75 6e 63 61 74 65  _quota_ftruncate
d220: 28 70 2c 20 78 29 3b 0a 20 20 54 63 6c 5f 53 65  (p, x);.  Tcl_Se
d230: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
d240: 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a  p, Tcl_NewIntObj
d250: 28 72 63 29 29 3b 0a 20 20 72 65 74 75 72 6e 20  (rc));.  return 
d260: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  TCL_OK;.}../*.**
d270: 20 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33   tclcmd: sqlite3
d280: 5f 71 75 6f 74 61 5f 66 69 6c 65 5f 73 69 7a 65  _quota_file_size
d290: 20 48 41 4e 44 4c 45 0a 2a 2f 0a 73 74 61 74 69   HANDLE.*/.stati
d2a0: 63 20 69 6e 74 20 74 65 73 74 5f 71 75 6f 74 61  c int test_quota
d2b0: 5f 66 69 6c 65 5f 73 69 7a 65 28 0a 20 20 76 6f  _file_size(.  vo
d2c0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
d2d0: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
d2e0: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
d2f0: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
d300: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
d310: 71 75 6f 74 61 5f 46 49 4c 45 20 2a 70 3b 0a 20  quota_FILE *p;. 
d320: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 78   sqlite3_int64 x
d330: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20  ;.  if( objc!=2 
d340: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
d350: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
d360: 31 2c 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45  1, objv, "HANDLE
d370: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
d380: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
d390: 70 20 3d 20 73 71 6c 69 74 65 33 54 65 73 74 54  p = sqlite3TestT
d3a0: 65 78 74 54 6f 50 74 72 28 54 63 6c 5f 47 65 74  extToPtr(Tcl_Get
d3b0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 29  String(objv[1]))
d3c0: 3b 0a 20 20 78 20 3d 20 73 71 6c 69 74 65 33 5f  ;.  x = sqlite3_
d3d0: 71 75 6f 74 61 5f 66 69 6c 65 5f 73 69 7a 65 28  quota_file_size(
d3e0: 70 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a  p);.  Tcl_SetObj
d3f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54  Result(interp, T
d400: 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a  cl_NewWideIntObj
d410: 28 78 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54  (x));.  return T
d420: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
d430: 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f  tclcmd: sqlite3_
d440: 71 75 6f 74 61 5f 66 69 6c 65 5f 74 72 75 65 73  quota_file_trues
d450: 69 7a 65 20 48 41 4e 44 4c 45 0a 2a 2f 0a 73 74  ize HANDLE.*/.st
d460: 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f 71 75  atic int test_qu
d470: 6f 74 61 5f 66 69 6c 65 5f 74 72 75 65 73 69 7a  ota_file_truesiz
d480: 65 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65  e(.  void * clie
d490: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e  ntData,.  Tcl_In
d4a0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20  terp *interp,.  
d4b0: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f  int objc,.  Tcl_
d4c0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj *CONST objv[
d4d0: 5d 0a 29 7b 0a 20 20 71 75 6f 74 61 5f 46 49 4c  ].){.  quota_FIL
d4e0: 45 20 2a 70 3b 0a 20 20 73 71 6c 69 74 65 33 5f  E *p;.  sqlite3_
d4f0: 69 6e 74 36 34 20 78 3b 0a 20 20 69 66 28 20 6f  int64 x;.  if( o
d500: 62 6a 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63  bjc!=2 ){.    Tc
d510: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
d520: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
d530: 22 48 41 4e 44 4c 45 22 29 3b 0a 20 20 20 20 72  "HANDLE");.    r
d540: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
d550: 0a 20 20 7d 0a 20 20 70 20 3d 20 73 71 6c 69 74  .  }.  p = sqlit
d560: 65 33 54 65 73 74 54 65 78 74 54 6f 50 74 72 28  e3TestTextToPtr(
d570: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
d580: 6a 76 5b 31 5d 29 29 3b 0a 20 20 78 20 3d 20 73  jv[1]));.  x = s
d590: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 69 6c  qlite3_quota_fil
d5a0: 65 5f 74 72 75 65 73 69 7a 65 28 70 29 3b 0a 20  e_truesize(p);. 
d5b0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
d5c0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65  t(interp, Tcl_Ne
d5d0: 77 57 69 64 65 49 6e 74 4f 62 6a 28 78 29 29 3b  wWideIntObj(x));
d5e0: 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b  .  return TCL_OK
d5f0: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d  ;.}../*.** tclcm
d600: 64 3a 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  d: sqlite3_quota
d610: 5f 66 69 6c 65 5f 6d 74 69 6d 65 20 48 41 4e 44  _file_mtime HAND
d620: 4c 45 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  LE.*/.static int
d630: 20 74 65 73 74 5f 71 75 6f 74 61 5f 66 69 6c 65   test_quota_file
d640: 5f 6d 74 69 6d 65 28 0a 20 20 76 6f 69 64 20 2a  _mtime(.  void *
d650: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54   clientData,.  T
d660: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
d670: 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20  p,.  int objc,. 
d680: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
d690: 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 71 75 6f 74  objv[].){.  quot
d6a0: 61 5f 46 49 4c 45 20 2a 70 3b 0a 20 20 74 69 6d  a_FILE *p;.  tim
d6b0: 65 5f 74 20 74 3b 0a 20 20 69 66 28 20 6f 62 6a  e_t t;.  if( obj
d6c0: 63 21 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=2 ){.    Tcl_
d6d0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
d6e0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 48  erp, 1, objv, "H
d6f0: 41 4e 44 4c 45 22 29 3b 0a 20 20 20 20 72 65 74  ANDLE");.    ret
d700: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
d710: 20 7d 0a 20 20 70 20 3d 20 73 71 6c 69 74 65 33   }.  p = sqlite3
d720: 54 65 73 74 54 65 78 74 54 6f 50 74 72 28 54 63  TestTextToPtr(Tc
d730: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
d740: 5b 31 5d 29 29 3b 0a 20 20 74 20 3d 20 30 3b 0a  [1]));.  t = 0;.
d750: 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f    sqlite3_quota_
d760: 66 69 6c 65 5f 6d 74 69 6d 65 28 70 2c 20 26 74  file_mtime(p, &t
d770: 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52  );.  Tcl_SetObjR
d780: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63  esult(interp, Tc
d790: 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f 62 6a 28  l_NewWideIntObj(
d7a0: 74 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43  t));.  return TC
d7b0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20  L_OK;.}.../*.** 
d7c0: 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f  tclcmd: sqlite3_
d7d0: 71 75 6f 74 61 5f 72 65 6d 6f 76 65 20 46 49 4c  quota_remove FIL
d7e0: 45 4e 41 4d 45 0a 2a 2f 0a 73 74 61 74 69 63 20  ENAME.*/.static 
d7f0: 69 6e 74 20 74 65 73 74 5f 71 75 6f 74 61 5f 72  int test_quota_r
d800: 65 6d 6f 76 65 28 0a 20 20 76 6f 69 64 20 2a 20  emove(.  void * 
d810: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63  clientData,.  Tc
d820: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
d830: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20  ,.  int objc,.  
d840: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f  Tcl_Obj *CONST o
d850: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 6f 6e 73 74  bjv[].){.  const
d860: 20 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65   char *zFilename
d870: 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 46 69  ;          /* Fi
d880: 6c 65 20 70 61 74 74 65 72 6e 20 74 6f 20 63 6f  le pattern to co
d890: 6e 66 69 67 75 72 65 20 2a 2f 0a 20 20 69 6e 74  nfigure */.  int
d8a0: 20 72 63 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21   rc;.  if( objc!
d8b0: 3d 32 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72  =2 ){.    Tcl_Wr
d8c0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
d8d0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 46 49 4c  p, 1, objv, "FIL
d8e0: 45 4e 41 4d 45 22 29 3b 0a 20 20 20 20 72 65 74  ENAME");.    ret
d8f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
d900: 20 7d 0a 20 20 7a 46 69 6c 65 6e 61 6d 65 20 3d   }.  zFilename =
d910: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f   Tcl_GetString(o
d920: 62 6a 76 5b 31 5d 29 3b 0a 20 20 72 63 20 3d 20  bjv[1]);.  rc = 
d930: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 72 65  sqlite3_quota_re
d940: 6d 6f 76 65 28 7a 46 69 6c 65 6e 61 6d 65 29 3b  move(zFilename);
d950: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73  .  Tcl_SetObjRes
d960: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
d970: 4e 65 77 49 6e 74 4f 62 6a 28 72 63 29 29 3b 0a  NewIntObj(rc));.
d980: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
d990: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64  .}../*.** tclcmd
d9a0: 3a 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f  : sqlite3_quota_
d9b0: 67 6c 6f 62 20 50 41 54 54 45 52 4e 20 54 45 58  glob PATTERN TEX
d9c0: 54 0a 2a 2a 0a 2a 2a 20 54 65 73 74 20 74 68 65  T.**.** Test the
d9d0: 20 67 6c 6f 62 20 70 61 74 74 65 72 6e 20 6d 61   glob pattern ma
d9e0: 74 63 68 69 6e 67 2e 20 20 52 65 74 75 72 6e 20  tching.  Return 
d9f0: 31 20 69 66 20 54 45 58 54 20 6d 61 74 63 68 65  1 if TEXT matche
da00: 73 20 50 41 54 54 45 52 4e 0a 2a 2a 20 61 6e 64  s PATTERN.** and
da10: 20 72 65 74 75 72 6e 20 30 20 69 66 20 69 74 20   return 0 if it 
da20: 64 6f 65 73 20 6e 6f 74 2e 0a 2a 2f 0a 73 74 61  does not..*/.sta
da30: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 71 75 6f  tic int test_quo
da40: 74 61 5f 67 6c 6f 62 28 0a 20 20 76 6f 69 64 20  ta_glob(.  void 
da50: 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20  * clientData,.  
da60: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
da70: 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a  rp,.  int objc,.
da80: 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54    Tcl_Obj *CONST
da90: 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20 63 6f 6e   objv[].){.  con
daa0: 73 74 20 63 68 61 72 20 2a 7a 50 61 74 74 65 72  st char *zPatter
dab0: 6e 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54  n;          /* T
dac0: 68 65 20 67 6c 6f 62 20 70 61 74 74 65 72 6e 20  he glob pattern 
dad0: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  */.  const char 
dae0: 2a 7a 54 65 78 74 3b 20 20 20 20 20 20 20 20 20  *zText;         
daf0: 20 20 20 20 2f 2a 20 54 65 78 74 20 74 6f 20 63      /* Text to c
db00: 6f 6d 70 61 72 65 20 61 67 61 69 6e 73 20 74 68  ompare agains th
db10: 65 20 70 61 74 74 65 72 6e 20 2a 2f 0a 20 20 69  e pattern */.  i
db20: 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 6f 62 6a  nt rc;.  if( obj
db30: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=3 ){.    Tcl_
db40: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
db50: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 50  erp, 1, objv, "P
db60: 41 54 54 45 52 4e 20 54 45 58 54 22 29 3b 0a 20  ATTERN TEXT");. 
db70: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
db80: 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a 50 61 74 74  ROR;.  }.  zPatt
db90: 65 72 6e 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  ern = Tcl_GetStr
dba0: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20  ing(objv[1]);.  
dbb0: 7a 54 65 78 74 20 3d 20 54 63 6c 5f 47 65 74 53  zText = Tcl_GetS
dbc0: 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a  tring(objv[2]);.
dbd0: 20 20 72 63 20 3d 20 71 75 6f 74 61 53 74 72 67    rc = quotaStrg
dbe0: 6c 6f 62 28 7a 50 61 74 74 65 72 6e 2c 20 7a 54  lob(zPattern, zT
dbf0: 65 78 74 29 3b 0a 20 20 54 63 6c 5f 53 65 74 4f  ext);.  Tcl_SetO
dc00: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
dc10: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72   Tcl_NewIntObj(r
dc20: 63 29 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43  c));.  return TC
dc30: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74  L_OK;.}../*.** t
dc40: 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f 71  clcmd: sqlite3_q
dc50: 75 6f 74 61 5f 66 69 6c 65 5f 61 76 61 69 6c 61  uota_file_availa
dc60: 62 6c 65 20 48 41 4e 44 4c 45 0a 2a 2a 0a 2a 2a  ble HANDLE.**.**
dc70: 20 52 65 74 75 72 6e 20 74 68 65 20 6e 75 6d 62   Return the numb
dc80: 65 72 20 6f 66 20 62 79 74 65 73 20 66 72 6f 6d  er of bytes from
dc90: 20 74 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c   the current fil
dca0: 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 65  e point to the e
dcb0: 6e 64 20 6f 66 0a 2a 2a 20 74 68 65 20 66 69 6c  nd of.** the fil
dcc0: 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  e..*/.static int
dcd0: 20 74 65 73 74 5f 71 75 6f 74 61 5f 66 69 6c 65   test_quota_file
dce0: 5f 61 76 61 69 6c 61 62 6c 65 28 0a 20 20 76 6f  _available(.  vo
dcf0: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
dd00: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
dd10: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
dd20: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
dd30: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
dd40: 71 75 6f 74 61 5f 46 49 4c 45 20 2a 70 3b 0a 20  quota_FILE *p;. 
dd50: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 78   sqlite3_int64 x
dd60: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20  ;.  if( objc!=2 
dd70: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
dd80: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
dd90: 31 2c 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45  1, objv, "HANDLE
dda0: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
ddb0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
ddc0: 70 20 3d 20 73 71 6c 69 74 65 33 54 65 73 74 54  p = sqlite3TestT
ddd0: 65 78 74 54 6f 50 74 72 28 54 63 6c 5f 47 65 74  extToPtr(Tcl_Get
dde0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 29  String(objv[1]))
ddf0: 3b 0a 20 20 78 20 3d 20 73 71 6c 69 74 65 33 5f  ;.  x = sqlite3_
de00: 71 75 6f 74 61 5f 66 69 6c 65 5f 61 76 61 69 6c  quota_file_avail
de10: 61 62 6c 65 28 70 29 3b 0a 20 20 54 63 6c 5f 53  able(p);.  Tcl_S
de20: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
de30: 72 70 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49  rp, Tcl_NewWideI
de40: 6e 74 4f 62 6a 28 78 29 29 3b 0a 20 20 72 65 74  ntObj(x));.  ret
de50: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
de60: 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 73 71 6c  *.** tclcmd: sql
de70: 69 74 65 33 5f 71 75 6f 74 61 5f 66 65 72 72 6f  ite3_quota_ferro
de80: 72 20 48 41 4e 44 4c 45 0a 2a 2a 0a 2a 2a 20 52  r HANDLE.**.** R
de90: 65 74 75 72 6e 20 74 72 75 65 20 69 66 20 74 68  eturn true if th
dea0: 65 20 66 69 6c 65 20 68 61 6e 64 6c 65 20 69 73  e file handle is
deb0: 20 69 6e 20 74 68 65 20 65 72 72 6f 72 20 73 74   in the error st
dec0: 61 74 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ate..*/.static i
ded0: 6e 74 20 74 65 73 74 5f 71 75 6f 74 61 5f 66 65  nt test_quota_fe
dee0: 72 72 6f 72 28 0a 20 20 76 6f 69 64 20 2a 20 63  rror(.  void * c
def0: 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c  lientData,.  Tcl
df00: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
df10: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54  .  int objc,.  T
df20: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
df30: 6a 76 5b 5d 0a 29 7b 0a 20 20 71 75 6f 74 61 5f  jv[].){.  quota_
df40: 46 49 4c 45 20 2a 70 3b 0a 20 20 69 6e 74 20 78  FILE *p;.  int x
df50: 3b 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 32 20  ;.  if( objc!=2 
df60: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
df70: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
df80: 31 2c 20 6f 62 6a 76 2c 20 22 48 41 4e 44 4c 45  1, objv, "HANDLE
df90: 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  ");.    return T
dfa0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20  CL_ERROR;.  }.  
dfb0: 70 20 3d 20 73 71 6c 69 74 65 33 54 65 73 74 54  p = sqlite3TestT
dfc0: 65 78 74 54 6f 50 74 72 28 54 63 6c 5f 47 65 74  extToPtr(Tcl_Get
dfd0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 29  String(objv[1]))
dfe0: 3b 0a 20 20 78 20 3d 20 73 71 6c 69 74 65 33 5f  ;.  x = sqlite3_
dff0: 71 75 6f 74 61 5f 66 65 72 72 6f 72 28 70 29 3b  quota_ferror(p);
e000: 0a 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73  .  Tcl_SetObjRes
e010: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
e020: 4e 65 77 49 6e 74 4f 62 6a 28 78 29 29 3b 0a 20  NewIntObj(x));. 
e030: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
e040: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f  }../*.** This ro
e050: 75 74 69 6e 65 20 72 65 67 69 73 74 65 72 73 20  utine registers 
e060: 74 68 65 20 63 75 73 74 6f 6d 20 54 43 4c 20 63  the custom TCL c
e070: 6f 6d 6d 61 6e 64 73 20 64 65 66 69 6e 65 64 20  ommands defined 
e080: 69 6e 20 74 68 69 73 0a 2a 2a 20 6d 6f 64 75 6c  in this.** modul
e090: 65 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20  e.  This should 
e0a0: 62 65 20 74 68 65 20 6f 6e 6c 79 20 70 72 6f 63  be the only proc
e0b0: 65 64 75 72 65 20 76 69 73 69 62 6c 65 20 66 72  edure visible fr
e0c0: 6f 6d 20 6f 75 74 73 69 64 65 0a 2a 2a 20 6f 66  om outside.** of
e0d0: 20 74 68 69 73 20 6d 6f 64 75 6c 65 2e 0a 2a 2f   this module..*/
e0e0: 0a 69 6e 74 20 53 71 6c 69 74 65 71 75 6f 74 61  .int Sqlitequota
e0f0: 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70  _Init(Tcl_Interp
e100: 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73 74 61   *interp){.  sta
e110: 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20  tic struct {.   
e120: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20    char *zName;. 
e130: 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72      Tcl_ObjCmdPr
e140: 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61  oc *xProc;.  } a
e150: 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20  Cmd[] = {.    { 
e160: 22 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 69  "sqlite3_quota_i
e170: 6e 69 74 69 61 6c 69 7a 65 22 2c 20 20 20 20 74  nitialize",    t
e180: 65 73 74 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61  est_quota_initia
e190: 6c 69 7a 65 20 7d 2c 0a 20 20 20 20 7b 20 22 73  lize },.    { "s
e1a0: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 68 75  qlite3_quota_shu
e1b0: 74 64 6f 77 6e 22 2c 20 20 20 20 20 20 74 65 73  tdown",      tes
e1c0: 74 5f 71 75 6f 74 61 5f 73 68 75 74 64 6f 77 6e  t_quota_shutdown
e1d0: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74   },.    { "sqlit
e1e0: 65 33 5f 71 75 6f 74 61 5f 73 65 74 22 2c 20 20  e3_quota_set",  
e1f0: 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 71 75           test_qu
e200: 6f 74 61 5f 73 65 74 20 7d 2c 0a 20 20 20 20 7b  ota_set },.    {
e210: 20 22 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f   "sqlite3_quota_
e220: 66 69 6c 65 22 2c 20 20 20 20 20 20 20 20 20 20  file",          
e230: 74 65 73 74 5f 71 75 6f 74 61 5f 66 69 6c 65 20  test_quota_file 
e240: 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65  },.    { "sqlite
e250: 33 5f 71 75 6f 74 61 5f 64 75 6d 70 22 2c 20 20  3_quota_dump",  
e260: 20 20 20 20 20 20 20 20 74 65 73 74 5f 71 75 6f          test_quo
e270: 74 61 5f 64 75 6d 70 20 7d 2c 0a 20 20 20 20 7b  ta_dump },.    {
e280: 20 22 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f   "sqlite3_quota_
e290: 66 6f 70 65 6e 22 2c 20 20 20 20 20 20 20 20 20  fopen",         
e2a0: 74 65 73 74 5f 71 75 6f 74 61 5f 66 6f 70 65 6e  test_quota_fopen
e2b0: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74   },.    { "sqlit
e2c0: 65 33 5f 71 75 6f 74 61 5f 66 72 65 61 64 22 2c  e3_quota_fread",
e2d0: 20 20 20 20 20 20 20 20 20 74 65 73 74 5f 71 75           test_qu
e2e0: 6f 74 61 5f 66 72 65 61 64 20 7d 2c 0a 20 20 20  ota_fread },.   
e2f0: 20 7b 20 22 73 71 6c 69 74 65 33 5f 71 75 6f 74   { "sqlite3_quot
e300: 61 5f 66 77 72 69 74 65 22 2c 20 20 20 20 20 20  a_fwrite",      
e310: 20 20 74 65 73 74 5f 71 75 6f 74 61 5f 66 77 72    test_quota_fwr
e320: 69 74 65 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71  ite },.    { "sq
e330: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 63 6c 6f  lite3_quota_fclo
e340: 73 65 22 2c 20 20 20 20 20 20 20 20 74 65 73 74  se",        test
e350: 5f 71 75 6f 74 61 5f 66 63 6c 6f 73 65 20 7d 2c  _quota_fclose },
e360: 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f  .    { "sqlite3_
e370: 71 75 6f 74 61 5f 66 66 6c 75 73 68 22 2c 20 20  quota_fflush",  
e380: 20 20 20 20 20 20 74 65 73 74 5f 71 75 6f 74 61        test_quota
e390: 5f 66 66 6c 75 73 68 20 7d 2c 0a 20 20 20 20 7b  _fflush },.    {
e3a0: 20 22 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f   "sqlite3_quota_
e3b0: 66 73 65 65 6b 22 2c 20 20 20 20 20 20 20 20 20  fseek",         
e3c0: 74 65 73 74 5f 71 75 6f 74 61 5f 66 73 65 65 6b  test_quota_fseek
e3d0: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74   },.    { "sqlit
e3e0: 65 33 5f 71 75 6f 74 61 5f 72 65 77 69 6e 64 22  e3_quota_rewind"
e3f0: 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f 71 75  ,        test_qu
e400: 6f 74 61 5f 72 65 77 69 6e 64 20 7d 2c 0a 20 20  ota_rewind },.  
e410: 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 71 75 6f    { "sqlite3_quo
e420: 74 61 5f 66 74 65 6c 6c 22 2c 20 20 20 20 20 20  ta_ftell",      
e430: 20 20 20 74 65 73 74 5f 71 75 6f 74 61 5f 66 74     test_quota_ft
e440: 65 6c 6c 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71  ell },.    { "sq
e450: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 74 72 75  lite3_quota_ftru
e460: 6e 63 61 74 65 22 2c 20 20 20 20 20 74 65 73 74  ncate",     test
e470: 5f 71 75 6f 74 61 5f 66 74 72 75 6e 63 61 74 65  _quota_ftruncate
e480: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74   },.    { "sqlit
e490: 65 33 5f 71 75 6f 74 61 5f 66 69 6c 65 5f 73 69  e3_quota_file_si
e4a0: 7a 65 22 2c 20 20 20 20 20 74 65 73 74 5f 71 75  ze",     test_qu
e4b0: 6f 74 61 5f 66 69 6c 65 5f 73 69 7a 65 20 7d 2c  ota_file_size },
e4c0: 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f  .    { "sqlite3_
e4d0: 71 75 6f 74 61 5f 66 69 6c 65 5f 74 72 75 65 73  quota_file_trues
e4e0: 69 7a 65 22 2c 20 74 65 73 74 5f 71 75 6f 74 61  ize", test_quota
e4f0: 5f 66 69 6c 65 5f 74 72 75 65 73 69 7a 65 20 7d  _file_truesize }
e500: 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33  ,.    { "sqlite3
e510: 5f 71 75 6f 74 61 5f 66 69 6c 65 5f 6d 74 69 6d  _quota_file_mtim
e520: 65 22 2c 20 20 20 20 74 65 73 74 5f 71 75 6f 74  e",    test_quot
e530: 61 5f 66 69 6c 65 5f 6d 74 69 6d 65 20 7d 2c 0a  a_file_mtime },.
e540: 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33 5f 71      { "sqlite3_q
e550: 75 6f 74 61 5f 72 65 6d 6f 76 65 22 2c 20 20 20  uota_remove",   
e560: 20 20 20 20 20 74 65 73 74 5f 71 75 6f 74 61 5f       test_quota_
e570: 72 65 6d 6f 76 65 20 7d 2c 0a 20 20 20 20 7b 20  remove },.    { 
e580: 22 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 67  "sqlite3_quota_g
e590: 6c 6f 62 22 2c 20 20 20 20 20 20 20 20 20 20 74  lob",          t
e5a0: 65 73 74 5f 71 75 6f 74 61 5f 67 6c 6f 62 20 7d  est_quota_glob }
e5b0: 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74 65 33  ,.    { "sqlite3
e5c0: 5f 71 75 6f 74 61 5f 66 69 6c 65 5f 61 76 61 69  _quota_file_avai
e5d0: 6c 61 62 6c 65 22 2c 74 65 73 74 5f 71 75 6f 74  lable",test_quot
e5e0: 61 5f 66 69 6c 65 5f 61 76 61 69 6c 61 62 6c 65  a_file_available
e5f0: 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69 74   },.    { "sqlit
e600: 65 33 5f 71 75 6f 74 61 5f 66 65 72 72 6f 72 22  e3_quota_ferror"
e610: 2c 20 20 20 20 20 20 20 20 74 65 73 74 5f 71 75  ,        test_qu
e620: 6f 74 61 5f 66 65 72 72 6f 72 20 7d 2c 0a 20 20  ota_ferror },.  
e630: 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 0a 20 20 66  };.  int i;..  f
e640: 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66  or(i=0; i<sizeof
e650: 28 61 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 43  (aCmd)/sizeof(aC
e660: 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20  md[0]); i++){.  
e670: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
e680: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61  ommand(interp, a
e690: 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43  Cmd[i].zName, aC
e6a0: 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 2c 20  md[i].xProc, 0, 
e6b0: 30 29 3b 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72  0);.  }..  retur
e6c0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64  n TCL_OK;.}.#end
e6d0: 69 66 0a                                         if.