/ Hex Artifact Content
Login

Artifact e542d96d5e0ad7bbc064ab9912da3d8ed65cbe28:


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 6d 65 74 20 6f 72 20 65  roup is met or e
0320: 78 63 65 65 64 65 64 2c 20 74 68 65 6e 20 6e 65  xceeded, then ne
0330: 77 0a 2a 2a 20 77 72 69 74 65 20 72 65 71 75 65  w.** write reque
0340: 73 74 73 20 74 68 61 74 20 61 74 74 65 6d 70 74  sts that attempt
0350: 20 74 6f 20 65 6e 6c 61 72 67 65 20 61 20 66 69   to enlarge a fi
0360: 6c 65 20 66 61 69 6c 20 77 69 74 68 20 53 51 4c  le fail with SQL
0370: 49 54 45 5f 46 55 4c 4c 2e 0a 2a 2a 0a 2a 2a 20  ITE_FULL..**.** 
0380: 48 6f 77 65 76 65 72 2c 20 62 65 66 6f 72 65 20  However, before 
0390: 72 65 74 75 72 6e 69 6e 67 20 53 51 4c 49 54 45  returning SQLITE
03a0: 5f 46 55 4c 4c 2c 20 74 68 65 20 77 72 69 74 65  _FULL, the write
03b0: 20 72 65 71 75 65 73 74 73 20 69 6e 76 6f 6b 65   requests invoke
03c0: 0a 2a 2a 20 61 20 63 61 6c 6c 62 61 63 6b 20 66  .** a callback f
03d0: 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 69 73 20  unction that is 
03e0: 63 6f 6e 66 69 67 75 72 61 62 6c 65 20 66 6f 72  configurable for
03f0: 20 65 61 63 68 20 71 75 6f 74 61 20 67 72 6f 75   each quota grou
0400: 70 2e 0a 2a 2a 20 54 68 69 73 20 63 61 6c 6c 62  p..** This callb
0410: 61 63 6b 20 68 61 73 20 74 68 65 20 6f 70 70 6f  ack has the oppo
0420: 72 74 75 6e 69 74 79 20 74 6f 20 65 6e 6c 61 72  rtunity to enlar
0430: 67 65 20 74 68 65 20 71 75 6f 74 61 2e 20 20 49  ge the quota.  I
0440: 66 20 74 68 65 0a 2a 2a 20 63 61 6c 6c 62 61 63  f the.** callbac
0450: 6b 20 64 6f 65 73 20 65 6e 6c 61 72 67 65 20 74  k does enlarge t
0460: 68 65 20 71 75 6f 74 61 20 73 75 63 68 20 74 68  he quota such th
0470: 61 74 20 74 68 65 20 74 6f 74 61 6c 20 73 69 7a  at the total siz
0480: 65 20 6f 66 20 61 6c 6c 0a 2a 2a 20 66 69 6c 65  e of all.** file
0490: 73 20 77 69 74 68 69 6e 20 74 68 65 20 67 72 6f  s within the gro
04a0: 75 70 20 69 73 20 6c 65 73 73 20 74 68 61 6e 20  up is less than 
04b0: 74 68 65 20 6e 65 77 20 71 75 6f 74 61 2c 20 74  the new quota, t
04c0: 68 65 6e 20 74 68 65 20 77 72 69 74 65 0a 2a 2a  hen the write.**
04d0: 20 63 6f 6e 74 69 6e 75 65 73 20 61 73 20 69 66   continues as if
04e0: 20 6e 6f 74 68 69 6e 67 20 68 61 64 20 68 61 70   nothing had hap
04f0: 70 65 6e 65 64 2e 0a 2a 2f 0a 23 69 6e 63 6c 75  pened..*/.#inclu
0500: 64 65 20 22 73 71 6c 69 74 65 33 2e 68 22 0a 23  de "sqlite3.h".#
0510: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e  include <string.
0520: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 61 73 73  h>.#include <ass
0530: 65 72 74 2e 68 3e 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a  ert.h>../*******
0540: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0550: 2a 20 4f 62 6a 65 63 74 20 44 65 66 69 6e 69 74  * Object Definit
0560: 69 6f 6e 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ions ***********
0570: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0580: 2a 2a 2a 2f 0a 0a 2f 2a 20 46 6f 72 77 61 72 64  ***/../* Forward
0590: 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20   declaration of 
05a0: 61 6c 6c 20 6f 62 6a 65 63 74 20 74 79 70 65 73  all object types
05b0: 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75   */.typedef stru
05c0: 63 74 20 71 75 6f 74 61 47 72 6f 75 70 20 71 75  ct quotaGroup qu
05d0: 6f 74 61 47 72 6f 75 70 3b 0a 74 79 70 65 64 65  otaGroup;.typede
05e0: 66 20 73 74 72 75 63 74 20 71 75 6f 74 61 4f 70  f struct quotaOp
05f0: 65 6e 20 71 75 6f 74 61 4f 70 65 6e 3b 0a 74 79  en quotaOpen;.ty
0600: 70 65 64 65 66 20 73 74 72 75 63 74 20 71 75 6f  pedef struct quo
0610: 74 61 46 69 6c 65 20 71 75 6f 74 61 46 69 6c 65  taFile quotaFile
0620: 3b 0a 0a 2f 2a 0a 2a 2a 20 41 20 22 71 75 6f 74  ;../*.** A "quot
0630: 61 20 67 72 6f 75 70 22 20 69 73 20 61 20 63 6f  a group" is a co
0640: 6c 6c 65 63 74 69 6f 6e 20 6f 66 20 66 69 6c 65  llection of file
0650: 73 20 77 68 6f 73 65 20 63 6f 6c 6c 65 63 74 69  s whose collecti
0660: 76 65 20 73 69 7a 65 20 77 65 20 77 61 6e 74 0a  ve size we want.
0670: 2a 2a 20 74 6f 20 6c 69 6d 69 74 2e 20 20 45 61  ** to limit.  Ea
0680: 63 68 20 71 75 6f 74 61 20 67 72 6f 75 70 20 69  ch quota group i
0690: 73 20 64 65 66 69 6e 65 64 20 62 79 20 61 20 47  s defined by a G
06a0: 4c 4f 42 20 70 61 74 74 65 72 6e 2e 0a 2a 2a 0a  LOB pattern..**.
06b0: 2a 2a 20 54 68 65 72 65 20 69 73 20 61 6e 20 69  ** There is an i
06c0: 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65 20 66  nstance of the f
06d0: 6f 6c 6c 6f 77 69 6e 67 20 6f 62 6a 65 63 74 20  ollowing object 
06e0: 66 6f 72 20 65 61 63 68 20 64 65 66 69 6e 65 64  for each defined
06f0: 20 71 75 6f 74 61 0a 2a 2a 20 67 72 6f 75 70 2e   quota.** group.
0700: 20 20 54 68 69 73 20 6f 62 6a 65 63 74 20 72 65    This object re
0710: 63 6f 72 64 73 20 74 68 65 20 47 4c 4f 42 20 70  cords the GLOB p
0720: 61 74 74 65 72 6e 20 74 68 61 74 20 64 65 66 69  attern that defi
0730: 6e 65 73 20 77 68 69 63 68 20 66 69 6c 65 73 0a  nes which files.
0740: 2a 2a 20 62 65 6c 6f 6e 67 20 74 6f 20 74 68 65  ** belong to the
0750: 20 71 75 6f 74 61 20 67 72 6f 75 70 2e 20 20 54   quota group.  T
0760: 68 65 20 6f 62 6a 65 63 74 20 61 6c 73 6f 20 72  he object also r
0770: 65 6d 65 6d 62 65 72 73 20 74 68 65 20 73 69 7a  emembers the siz
0780: 65 20 6c 69 6d 69 74 0a 2a 2a 20 66 6f 72 20 74  e limit.** for t
0790: 68 65 20 67 72 6f 75 70 20 28 74 68 65 20 71 75  he group (the qu
07a0: 6f 74 61 29 20 61 6e 64 20 74 68 65 20 63 61 6c  ota) and the cal
07b0: 6c 62 61 63 6b 20 74 6f 20 62 65 20 69 6e 76 6f  lback to be invo
07c0: 6b 65 64 20 77 68 65 6e 20 74 68 65 0a 2a 2a 20  ked when the.** 
07d0: 73 75 6d 20 6f 66 20 74 68 65 20 73 69 7a 65 73  sum of the sizes
07e0: 20 6f 66 20 74 68 65 20 66 69 6c 65 73 20 77 69   of the files wi
07f0: 74 68 69 6e 20 74 68 65 20 67 72 6f 75 70 20 67  thin the group g
0800: 6f 65 73 20 6f 76 65 72 20 74 68 65 20 6c 69 6d  oes over the lim
0810: 69 74 2e 0a 2a 2a 0a 2a 2a 20 41 20 71 75 6f 74  it..**.** A quot
0820: 61 20 67 72 6f 75 70 20 6d 75 73 74 20 62 65 20  a group must be 
0830: 65 73 74 61 62 6c 69 73 68 65 64 20 28 75 73 69  established (usi
0840: 6e 67 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  ng sqlite3_quota
0850: 5f 73 65 74 28 2e 2e 2e 29 29 0a 2a 2a 20 70 72  _set(...)).** pr
0860: 69 6f 72 20 74 6f 20 6f 70 65 6e 69 6e 67 20 61  ior to opening a
0870: 6e 79 20 6f 66 20 74 68 65 20 64 61 74 61 62 61  ny of the databa
0880: 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 74  se connections t
0890: 68 61 74 20 61 63 63 65 73 73 20 66 69 6c 65 73  hat access files
08a0: 0a 2a 2a 20 77 69 74 68 69 6e 20 74 68 65 20 71  .** within the q
08b0: 75 6f 74 61 20 67 72 6f 75 70 2e 0a 2a 2f 0a 73  uota group..*/.s
08c0: 74 72 75 63 74 20 71 75 6f 74 61 47 72 6f 75 70  truct quotaGroup
08d0: 20 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20   {.  const char 
08e0: 2a 7a 50 61 74 74 65 72 6e 3b 20 20 20 20 20 20  *zPattern;      
08f0: 20 20 20 20 2f 2a 20 46 69 6c 65 6e 61 6d 65 20      /* Filename 
0900: 70 61 74 74 65 72 6e 20 74 6f 20 62 65 20 71 75  pattern to be qu
0910: 6f 74 61 65 64 20 2a 2f 0a 20 20 73 71 6c 69 74  otaed */.  sqlit
0920: 65 33 5f 69 6e 74 36 34 20 69 4c 69 6d 69 74 3b  e3_int64 iLimit;
0930: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 70 70            /* Upp
0940: 65 72 20 62 6f 75 6e 64 20 6f 6e 20 74 6f 74 61  er bound on tota
0950: 6c 20 66 69 6c 65 20 73 69 7a 65 20 2a 2f 0a 20  l file size */. 
0960: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69   sqlite3_int64 i
0970: 53 69 7a 65 3b 20 20 20 20 20 20 20 20 20 20 20  Size;           
0980: 2f 2a 20 43 75 72 72 65 6e 74 20 73 69 7a 65 20  /* Current size 
0990: 6f 66 20 61 6c 6c 20 66 69 6c 65 73 20 2a 2f 0a  of all files */.
09a0: 20 20 76 6f 69 64 20 28 2a 78 43 61 6c 6c 62 61    void (*xCallba
09b0: 63 6b 29 28 20 20 20 20 20 20 20 20 20 20 20 20  ck)(            
09c0: 20 2f 2a 20 43 61 6c 6c 62 61 63 6b 20 69 6e 76   /* Callback inv
09d0: 6f 6b 65 64 20 77 68 65 6e 20 67 6f 69 6e 67 20  oked when going 
09e0: 6f 76 65 72 20 71 75 6f 74 61 20 2a 2f 0a 20 20  over quota */.  
09f0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a     const char *z
0a00: 46 69 6c 65 6e 61 6d 65 2c 20 20 20 20 20 20 20  Filename,       
0a10: 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 66 69 6c    /* Name of fil
0a20: 65 20 77 68 6f 73 65 20 73 69 7a 65 20 69 6e 63  e whose size inc
0a30: 72 65 61 73 65 73 20 2a 2f 0a 20 20 20 20 20 73  reases */.     s
0a40: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 2a 70 69  qlite3_int64 *pi
0a50: 4c 69 6d 69 74 2c 20 20 20 20 20 20 20 20 2f 2a  Limit,        /*
0a60: 20 49 4e 2f 4f 55 54 3a 20 54 68 65 20 63 75 72   IN/OUT: The cur
0a70: 72 65 6e 74 20 6c 69 6d 69 74 20 2a 2f 0a 20 20  rent limit */.  
0a80: 20 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34     sqlite3_int64
0a90: 20 69 53 69 7a 65 2c 20 20 20 20 20 20 20 20 20   iSize,         
0aa0: 20 20 2f 2a 20 54 6f 74 61 6c 20 73 69 7a 65 20    /* Total size 
0ab0: 6f 66 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20  of all files in 
0ac0: 74 68 65 20 67 72 6f 75 70 20 2a 2f 0a 20 20 20  the group */.   
0ad0: 20 20 76 6f 69 64 20 2a 70 41 72 67 20 20 20 20    void *pArg    
0ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0af0: 20 2f 2a 20 43 6c 69 65 6e 74 20 64 61 74 61 20   /* Client data 
0b00: 2a 2f 0a 20 20 29 3b 0a 20 20 76 6f 69 64 20 2a  */.  );.  void *
0b10: 70 41 72 67 3b 20 20 20 20 20 20 20 20 20 20 20  pArg;           
0b20: 20 20 20 20 20 20 20 20 20 2f 2a 20 54 68 69 72           /* Thir
0b30: 64 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 74 68  d argument to th
0b40: 65 20 78 43 61 6c 6c 62 61 63 6b 28 29 20 2a 2f  e xCallback() */
0b50: 0a 20 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70  .  quotaGroup *p
0b60: 4e 65 78 74 2c 20 2a 2a 70 70 50 72 65 76 3b 20  Next, **ppPrev; 
0b70: 20 20 2f 2a 20 44 6f 75 62 6c 79 20 6c 69 6e 6b    /* Doubly link
0b80: 65 64 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 71  ed list of all q
0b90: 75 6f 74 61 20 6f 62 6a 65 63 74 73 20 2a 2f 0a  uota objects */.
0ba0: 20 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69    quotaFile *pFi
0bb0: 6c 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  le;             
0bc0: 20 2f 2a 20 46 69 6c 65 73 20 77 69 74 68 69 6e   /* Files within
0bd0: 20 74 68 69 73 20 67 72 6f 75 70 20 2a 2f 0a 7d   this group */.}
0be0: 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e 73 74  ;../*.** An inst
0bf0: 61 6e 63 65 20 6f 66 20 74 68 69 73 20 73 74 72  ance of this str
0c00: 75 63 74 75 72 65 20 72 65 70 72 65 73 65 6e 74  ucture represent
0c10: 73 20 61 20 73 69 6e 67 6c 65 20 66 69 6c 65 20  s a single file 
0c20: 74 68 61 74 20 69 73 20 70 61 72 74 0a 2a 2a 20  that is part.** 
0c30: 6f 66 20 61 20 71 75 6f 74 61 20 67 72 6f 75 70  of a quota group
0c40: 2e 20 20 41 20 73 69 6e 67 6c 65 20 66 69 6c 65  .  A single file
0c50: 20 63 61 6e 20 62 65 20 6f 70 65 6e 65 64 20 6d   can be opened m
0c60: 75 6c 74 69 70 6c 65 20 74 69 6d 65 73 2e 20 20  ultiple times.  
0c70: 49 6e 0a 2a 2a 20 6f 72 64 65 72 20 6b 65 65 70  In.** order keep
0c80: 20 6d 75 6c 74 69 70 6c 65 20 6f 70 65 6e 69 6e   multiple openin
0c90: 67 73 20 6f 66 20 74 68 65 20 73 61 6d 65 20 66  gs of the same f
0ca0: 69 6c 65 20 66 72 6f 6d 20 63 61 75 73 69 6e 67  ile from causing
0cb0: 20 74 68 65 20 73 69 7a 65 0a 2a 2a 20 6f 66 20   the size.** of 
0cc0: 74 68 65 20 66 69 6c 65 20 74 6f 20 63 6f 75 6e  the file to coun
0cd0: 74 20 61 67 61 69 6e 73 74 20 74 68 65 20 71 75  t against the qu
0ce0: 6f 74 61 20 6d 75 6c 74 69 70 6c 65 20 74 69 6d  ota multiple tim
0cf0: 65 73 2c 20 65 61 63 68 20 66 69 6c 65 0a 2a 2a  es, each file.**
0d00: 20 68 61 73 20 61 20 75 6e 69 71 75 65 20 69 6e   has a unique in
0d10: 73 74 61 6e 63 65 20 6f 66 20 74 68 69 73 20 6f  stance of this o
0d20: 62 6a 65 63 74 20 61 6e 64 20 6d 75 6c 74 69 70  bject and multip
0d30: 6c 65 20 6f 70 65 6e 20 63 6f 6e 6e 65 63 74 69  le open connecti
0d40: 6f 6e 73 0a 2a 2a 20 74 6f 20 74 68 65 20 73 61  ons.** to the sa
0d50: 6d 65 20 66 69 6c 65 20 65 61 63 68 20 70 6f 69  me file each poi
0d60: 6e 74 20 74 6f 20 61 20 73 69 6e 67 6c 65 20 69  nt to a single i
0d70: 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 69 73 20  nstance of this 
0d80: 6f 62 6a 65 63 74 2e 0a 2a 2f 0a 73 74 72 75 63  object..*/.struc
0d90: 74 20 71 75 6f 74 61 46 69 6c 65 20 7b 0a 20 20  t quotaFile {.  
0da0: 63 68 61 72 20 2a 7a 46 69 6c 65 6e 61 6d 65 3b  char *zFilename;
0db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0dc0: 2f 2a 20 4e 61 6d 65 20 6f 66 20 74 68 69 73 20  /* Name of this 
0dd0: 66 69 6c 65 20 2a 2f 0a 20 20 71 75 6f 74 61 47  file */.  quotaG
0de0: 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 20 20 20  roup *pGroup;   
0df0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 55 70 70            /* Upp
0e00: 65 72 20 62 6f 75 6e 64 20 6f 6e 20 66 69 6c 65  er bound on file
0e10: 20 73 69 7a 65 20 2a 2f 0a 20 20 73 71 6c 69 74   size */.  sqlit
0e20: 65 33 5f 69 6e 74 36 34 20 69 53 69 7a 65 3b 20  e3_int64 iSize; 
0e30: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 43 75             /* Cu
0e40: 72 72 65 6e 74 20 73 69 7a 65 20 6f 66 20 74 68  rrent size of th
0e50: 69 73 20 66 69 6c 65 20 2a 2f 0a 20 20 69 6e 74  is file */.  int
0e60: 20 6e 52 65 66 3b 20 20 20 20 20 20 20 20 20 20   nRef;          
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0e80: 4e 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20  Number of times 
0e90: 74 68 69 73 20 66 69 6c 65 20 69 73 20 6f 70 65  this file is ope
0ea0: 6e 20 2a 2f 0a 20 20 71 75 6f 74 61 46 69 6c 65  n */.  quotaFile
0eb0: 20 2a 70 4e 65 78 74 2c 20 2a 2a 70 70 50 72 65   *pNext, **ppPre
0ec0: 76 3b 20 20 20 20 20 2f 2a 20 4c 69 6e 6b 65 64  v;     /* Linked
0ed0: 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 20 69   list of files i
0ee0: 6e 20 74 68 65 20 73 61 6d 65 20 67 72 6f 75 70  n the same group
0ef0: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 6e   */.};../*.** An
0f00: 20 69 6e 73 74 61 6e 63 65 20 6f 66 20 74 68 65   instance of the
0f10: 20 66 6f 6c 6c 6f 77 69 6e 67 20 6f 62 6a 65 63   following objec
0f20: 74 20 72 65 70 72 65 73 65 6e 74 73 20 65 61 63  t represents eac
0f30: 68 20 6f 70 65 6e 20 63 6f 6e 6e 65 63 74 69 6f  h open connectio
0f40: 6e 0a 2a 2a 20 74 6f 20 61 20 66 69 6c 65 20 74  n.** to a file t
0f50: 68 61 74 20 70 61 72 74 69 63 69 70 61 74 65 73  hat participates
0f60: 20 69 6e 20 71 75 6f 74 61 20 74 72 61 63 6b 69   in quota tracki
0f70: 6e 67 2e 20 20 54 68 69 73 20 6f 62 6a 65 63 74  ng.  This object
0f80: 20 69 73 20 61 20 0a 2a 2a 20 73 75 62 63 6c 61   is a .** subcla
0f90: 73 73 20 6f 66 20 73 71 6c 69 74 65 33 5f 66 69  ss of sqlite3_fi
0fa0: 6c 65 2e 20 20 54 68 65 20 73 71 6c 69 74 65 33  le.  The sqlite3
0fb0: 5f 66 69 6c 65 20 6f 62 6a 65 63 74 20 66 6f 72  _file object for
0fc0: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 0a   the underlying.
0fd0: 2a 2a 20 56 46 53 20 69 73 20 61 70 70 65 6e 64  ** VFS is append
0fe0: 65 64 20 74 6f 20 74 68 69 73 20 73 74 72 75 63  ed to this struc
0ff0: 74 75 72 65 2e 0a 2a 2f 0a 73 74 72 75 63 74 20  ture..*/.struct 
1000: 71 75 6f 74 61 4f 70 65 6e 20 7b 0a 20 20 73 71  quotaOpen {.  sq
1010: 6c 69 74 65 33 5f 66 69 6c 65 20 62 61 73 65 3b  lite3_file base;
1020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
1030: 20 42 61 73 65 20 63 6c 61 73 73 20 2d 20 6d 75   Base class - mu
1040: 73 74 20 62 65 20 66 69 72 73 74 20 2a 2f 0a 20  st be first */. 
1050: 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c   quotaFile *pFil
1060: 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  e;              
1070: 20 2f 2a 20 54 68 65 20 75 6e 64 65 72 6c 79 69   /* The underlyi
1080: 6e 67 20 66 69 6c 65 20 2a 2f 0a 20 20 2f 2a 20  ng file */.  /* 
1090: 54 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 56  The underlying V
10a0: 46 53 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  FS sqlite3_file 
10b0: 69 73 20 61 70 70 65 6e 64 65 64 20 74 6f 20 74  is appended to t
10c0: 68 69 73 20 6f 62 6a 65 63 74 20 2a 2f 0a 7d 3b  his object */.};
10d0: 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ../*************
10e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 47 6c 6f  ************ Glo
10f0: 62 61 6c 20 56 61 72 69 61 62 6c 65 73 20 2a 2a  bal Variables **
1100: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1110: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1120: 2f 0a 2f 2a 0a 2a 2a 20 41 6c 6c 20 67 6c 6f 62  /./*.** All glob
1130: 61 6c 20 76 61 72 69 61 62 6c 65 73 20 75 73 65  al variables use
1140: 64 20 62 79 20 74 68 69 73 20 66 69 6c 65 20 61  d by this file a
1150: 72 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 77 69  re containing wi
1160: 74 68 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69  thin the followi
1170: 6e 67 0a 2a 2a 20 67 51 75 6f 74 61 20 73 74 72  ng.** gQuota str
1180: 75 63 74 75 72 65 2e 0a 2a 2f 0a 73 74 61 74 69  ucture..*/.stati
1190: 63 20 73 74 72 75 63 74 20 7b 0a 20 20 2f 2a 20  c struct {.  /* 
11a0: 54 68 65 20 70 4f 72 69 67 56 66 73 20 69 73 20  The pOrigVfs is 
11b0: 74 68 65 20 72 65 61 6c 2c 20 6f 72 69 67 69 6e  the real, origin
11c0: 61 6c 20 75 6e 64 65 72 6c 79 69 6e 67 20 56 46  al underlying VF
11d0: 53 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e  S implementation
11e0: 2e 0a 20 20 2a 2a 20 4d 6f 73 74 20 6f 70 65 72  ..  ** Most oper
11f0: 61 74 69 6f 6e 73 20 70 61 73 73 2d 74 68 72 6f  ations pass-thro
1200: 75 67 68 20 74 6f 20 74 68 65 20 72 65 61 6c 20  ugh to the real 
1210: 56 46 53 2e 20 20 54 68 69 73 20 76 61 6c 75 65  VFS.  This value
1220: 20 69 73 20 72 65 61 64 2d 6f 6e 6c 79 0a 20 20   is read-only.  
1230: 2a 2a 20 64 75 72 69 6e 67 20 6f 70 65 72 61 74  ** during operat
1240: 69 6f 6e 2e 20 20 49 74 20 69 73 20 6f 6e 6c 79  ion.  It is only
1250: 20 6d 6f 64 69 66 69 65 64 20 61 74 20 73 74 61   modified at sta
1260: 72 74 2d 74 69 6d 65 20 61 6e 64 20 74 68 75 73  rt-time and thus
1270: 20 64 6f 65 73 20 6e 6f 74 0a 20 20 2a 2a 20 72   does not.  ** r
1280: 65 71 75 69 72 65 20 61 20 6d 75 74 65 78 2e 0a  equire a mutex..
1290: 20 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f 76    */.  sqlite3_v
12a0: 66 73 20 2a 70 4f 72 69 67 56 66 73 3b 0a 0a 20  fs *pOrigVfs;.. 
12b0: 20 2f 2a 20 54 68 65 20 73 54 68 69 73 56 66 73   /* The sThisVfs
12c0: 20 69 73 20 74 68 65 20 56 46 53 20 73 74 72 75   is the VFS stru
12d0: 63 74 75 72 65 20 75 73 65 64 20 62 79 20 74 68  cture used by th
12e0: 69 73 20 73 68 69 6d 2e 20 20 49 74 20 69 73 20  is shim.  It is 
12f0: 69 6e 69 74 69 61 6c 69 7a 65 64 0a 20 20 2a 2a  initialized.  **
1300: 20 61 74 20 73 74 61 72 74 2d 74 69 6d 65 20 61   at start-time a
1310: 6e 64 20 74 68 75 73 20 64 6f 65 73 20 6e 6f 74  nd thus does not
1320: 20 72 65 71 75 69 72 65 20 61 20 6d 75 74 65 78   require a mutex
1330: 0a 20 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  .  */.  sqlite3_
1340: 76 66 73 20 73 54 68 69 73 56 66 73 3b 0a 0a 20  vfs sThisVfs;.. 
1350: 20 2f 2a 20 54 68 65 20 73 49 6f 4d 65 74 68 6f   /* The sIoMetho
1360: 64 73 20 64 65 66 69 6e 65 73 20 74 68 65 20 6d  ds defines the m
1370: 65 74 68 6f 64 73 20 75 73 65 64 20 62 79 20 73  ethods used by s
1380: 71 6c 69 74 65 33 5f 66 69 6c 65 20 6f 62 6a 65  qlite3_file obje
1390: 63 74 73 20 0a 20 20 2a 2a 20 61 73 73 6f 63 69  cts .  ** associ
13a0: 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 73  ated with this s
13b0: 68 69 6d 2e 20 20 49 74 20 69 73 20 69 6e 69 74  him.  It is init
13c0: 69 61 6c 69 7a 65 64 20 61 74 20 73 74 61 72 74  ialized at start
13d0: 2d 74 69 6d 65 20 61 6e 64 20 64 6f 65 73 0a 20  -time and does. 
13e0: 20 2a 2a 20 6e 6f 74 20 72 65 71 75 69 72 65 20   ** not require 
13f0: 61 20 6d 75 74 65 78 2e 0a 20 20 2a 2a 0a 20 20  a mutex..  **.  
1400: 2a 2a 20 57 68 65 6e 20 74 68 65 20 75 6e 64 65  ** When the unde
1410: 72 6c 79 69 6e 67 20 56 46 53 20 69 73 20 63 61  rlying VFS is ca
1420: 6c 6c 65 64 20 74 6f 20 6f 70 65 6e 20 61 20 66  lled to open a f
1430: 69 6c 65 2c 20 69 74 20 6d 69 67 68 74 20 72 65  ile, it might re
1440: 74 75 72 6e 20 0a 20 20 2a 2a 20 65 69 74 68 65  turn .  ** eithe
1450: 72 20 61 20 76 65 72 73 69 6f 6e 20 31 20 6f 72  r a version 1 or
1460: 20 61 20 76 65 72 73 69 6f 6e 20 32 20 73 71 6c   a version 2 sql
1470: 69 74 65 33 5f 66 69 6c 65 20 6f 62 6a 65 63 74  ite3_file object
1480: 2e 20 20 54 68 69 73 20 73 68 69 6d 0a 20 20 2a  .  This shim.  *
1490: 2a 20 68 61 73 20 74 6f 20 63 72 65 61 74 65 20  * has to create 
14a0: 61 20 77 72 61 70 70 65 72 20 73 71 6c 69 74 65  a wrapper sqlite
14b0: 33 5f 66 69 6c 65 20 6f 66 20 74 68 65 20 73 61  3_file of the sa
14c0: 6d 65 20 76 65 72 73 69 6f 6e 2e 20 20 48 65 6e  me version.  Hen
14d0: 63 65 0a 20 20 2a 2a 20 74 68 65 72 65 20 61 72  ce.  ** there ar
14e0: 65 20 74 77 6f 20 49 2f 4f 20 6d 65 74 68 6f 64  e two I/O method
14f0: 20 73 74 72 75 63 74 75 72 65 73 2c 20 6f 6e 65   structures, one
1500: 20 66 6f 72 20 76 65 72 73 69 6f 6e 20 31 20 61   for version 1 a
1510: 6e 64 20 74 68 65 20 6f 74 68 65 72 0a 20 20 2a  nd the other.  *
1520: 2a 20 66 6f 72 20 76 65 72 73 69 6f 6e 20 32 2e  * for version 2.
1530: 0a 20 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  .  */.  sqlite3_
1540: 69 6f 5f 6d 65 74 68 6f 64 73 20 73 49 6f 4d 65  io_methods sIoMe
1550: 74 68 6f 64 73 56 31 3b 0a 20 20 73 71 6c 69 74  thodsV1;.  sqlit
1560: 65 33 5f 69 6f 5f 6d 65 74 68 6f 64 73 20 73 49  e3_io_methods sI
1570: 6f 4d 65 74 68 6f 64 73 56 32 3b 0a 0a 20 20 2f  oMethodsV2;..  /
1580: 2a 20 54 72 75 65 20 77 68 65 6e 20 74 68 69 73  * True when this
1590: 20 73 68 69 6d 20 61 73 20 62 65 65 6e 20 69 6e   shim as been in
15a0: 69 74 69 61 6c 69 7a 65 64 2e 0a 20 20 2a 2f 0a  itialized..  */.
15b0: 20 20 69 6e 74 20 69 73 49 6e 69 74 69 61 6c 69    int isInitiali
15c0: 7a 65 64 3b 0a 0a 20 20 2f 2a 20 46 6f 72 20 72  zed;..  /* For r
15d0: 75 6e 2d 74 69 6d 65 20 61 63 63 65 73 73 20 61  un-time access a
15e0: 6e 79 20 6f 66 20 74 68 65 20 6f 74 68 65 72 20  ny of the other 
15f0: 67 6c 6f 62 61 6c 20 64 61 74 61 20 73 74 72 75  global data stru
1600: 63 74 75 72 65 73 20 69 6e 20 74 68 69 73 0a 20  ctures in this. 
1610: 20 2a 2a 20 73 68 69 6d 2c 20 74 68 65 20 66 6f   ** shim, the fo
1620: 6c 6c 6f 77 69 6e 67 20 6d 75 74 65 78 20 6d 75  llowing mutex mu
1630: 73 74 20 62 65 20 68 65 6c 64 2e 0a 20 20 2a 2f  st be held..  */
1640: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78  .  sqlite3_mutex
1650: 20 2a 70 4d 75 74 65 78 3b 0a 0a 20 20 2f 2a 20   *pMutex;..  /* 
1660: 4c 69 73 74 20 6f 66 20 71 75 6f 74 61 47 72 6f  List of quotaGro
1670: 75 70 20 6f 62 6a 65 63 74 73 2e 0a 20 20 2a 2f  up objects..  */
1680: 0a 20 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70  .  quotaGroup *p
1690: 47 72 6f 75 70 3b 0a 0a 7d 20 67 51 75 6f 74 61  Group;..} gQuota
16a0: 3b 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ;../************
16b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 55 74  ************* Ut
16c0: 69 6c 69 74 79 20 52 6f 75 74 69 6e 65 73 20 2a  ility Routines *
16d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
16e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
16f0: 2f 0a 2f 2a 0a 2a 2a 20 41 63 71 75 69 72 65 20  /./*.** Acquire 
1700: 61 6e 64 20 72 65 6c 65 61 73 65 20 74 68 65 20  and release the 
1710: 6d 75 74 65 78 20 75 73 65 64 20 74 6f 20 73 65  mutex used to se
1720: 72 69 61 6c 69 7a 65 20 61 63 63 65 73 73 20 74  rialize access t
1730: 6f 20 74 68 65 0a 2a 2a 20 6c 69 73 74 20 6f 66  o the.** list of
1740: 20 71 75 6f 74 61 47 72 6f 75 70 73 2e 0a 2a 2f   quotaGroups..*/
1750: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 71 75 6f  .static void quo
1760: 74 61 45 6e 74 65 72 28 76 6f 69 64 29 7b 20 73  taEnter(void){ s
1770: 71 6c 69 74 65 33 5f 6d 75 74 65 78 5f 65 6e 74  qlite3_mutex_ent
1780: 65 72 28 67 51 75 6f 74 61 2e 70 4d 75 74 65 78  er(gQuota.pMutex
1790: 29 3b 20 7d 0a 73 74 61 74 69 63 20 76 6f 69 64  ); }.static void
17a0: 20 71 75 6f 74 61 4c 65 61 76 65 28 76 6f 69 64   quotaLeave(void
17b0: 29 7b 20 73 71 6c 69 74 65 33 5f 6d 75 74 65 78  ){ sqlite3_mutex
17c0: 5f 6c 65 61 76 65 28 67 51 75 6f 74 61 2e 70 4d  _leave(gQuota.pM
17d0: 75 74 65 78 29 3b 20 7d 0a 0a 0a 2f 2a 20 49 66  utex); }.../* If
17e0: 20 74 68 65 20 72 65 66 65 72 65 6e 63 65 20 63   the reference c
17f0: 6f 75 6e 74 20 61 6e 64 20 74 68 72 65 73 68 6f  ount and thresho
1800: 6c 64 20 66 6f 72 20 61 20 71 75 6f 74 61 47 72  ld for a quotaGr
1810: 6f 75 70 20 61 72 65 20 62 6f 74 68 0a 2a 2a 20  oup are both.** 
1820: 7a 65 72 6f 2c 20 74 68 65 6e 20 64 65 73 74 72  zero, then destr
1830: 6f 79 20 74 68 65 20 71 75 6f 74 61 47 72 6f 75  oy the quotaGrou
1840: 70 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  p..*/.static voi
1850: 64 20 71 75 6f 74 61 47 72 6f 75 70 44 65 72 65  d quotaGroupDere
1860: 66 28 71 75 6f 74 61 47 72 6f 75 70 20 2a 70 29  f(quotaGroup *p)
1870: 7b 0a 20 20 69 66 28 20 70 2d 3e 70 46 69 6c 65  {.  if( p->pFile
1880: 3d 3d 30 20 26 26 20 70 2d 3e 69 4c 69 6d 69 74  ==0 && p->iLimit
1890: 3d 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 70  ==0 ){.    if( p
18a0: 2d 3e 70 4e 65 78 74 20 29 20 70 2d 3e 70 4e 65  ->pNext ) p->pNe
18b0: 78 74 2d 3e 70 70 50 72 65 76 20 3d 20 70 2d 3e  xt->ppPrev = p->
18c0: 70 70 50 72 65 76 3b 0a 20 20 20 20 69 66 28 20  ppPrev;.    if( 
18d0: 70 2d 3e 70 70 50 72 65 76 20 29 20 2a 70 2d 3e  p->ppPrev ) *p->
18e0: 70 70 50 72 65 76 20 3d 20 70 2d 3e 70 4e 65 78  ppPrev = p->pNex
18f0: 74 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  t;.    sqlite3_f
1900: 72 65 65 28 70 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f  ree(p);.  }.}../
1910: 2a 0a 2a 2a 20 52 65 74 75 72 6e 20 54 52 55 45  *.** Return TRUE
1920: 20 69 66 20 73 74 72 69 6e 67 20 7a 20 6d 61 74   if string z mat
1930: 63 68 65 73 20 67 6c 6f 62 20 70 61 74 74 65 72  ches glob patter
1940: 6e 20 7a 47 6c 6f 62 2e 0a 2a 2a 0a 2a 2a 20 47  n zGlob..**.** G
1950: 6c 6f 62 62 69 6e 67 20 72 75 6c 65 73 3a 0a 2a  lobbing rules:.*
1960: 2a 0a 2a 2a 20 20 20 20 20 20 27 2a 27 20 20 20  *.**      '*'   
1970: 20 20 20 20 4d 61 74 63 68 65 73 20 61 6e 79 20      Matches any 
1980: 73 65 71 75 65 6e 63 65 20 6f 66 20 7a 65 72 6f  sequence of zero
1990: 20 6f 72 20 6d 6f 72 65 20 63 68 61 72 61 63 74   or more charact
19a0: 65 72 73 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20  ers..**.**      
19b0: 27 3f 27 20 20 20 20 20 20 20 4d 61 74 63 68 65  '?'       Matche
19c0: 73 20 65 78 61 63 74 6c 79 20 6f 6e 65 20 63 68  s exactly one ch
19d0: 61 72 61 63 74 65 72 2e 0a 2a 2a 0a 2a 2a 20 20  aracter..**.**  
19e0: 20 20 20 5b 2e 2e 2e 5d 20 20 20 20 20 20 4d 61     [...]      Ma
19f0: 74 63 68 65 73 20 6f 6e 65 20 63 68 61 72 61 63  tches one charac
1a00: 74 65 72 20 66 72 6f 6d 20 74 68 65 20 65 6e 63  ter from the enc
1a10: 6c 6f 73 65 64 20 6c 69 73 74 20 6f 66 0a 2a 2a  losed list of.**
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1a30: 63 68 61 72 61 63 74 65 72 73 2e 0a 2a 2a 0a 2a  characters..**.*
1a40: 2a 20 20 20 20 20 5b 5e 2e 2e 2e 5d 20 20 20 20  *     [^...]    
1a50: 20 4d 61 74 63 68 65 73 20 6f 6e 65 20 63 68 61   Matches one cha
1a60: 72 61 63 74 65 72 20 6e 6f 74 20 69 6e 20 74 68  racter not in th
1a70: 65 20 65 6e 63 6c 6f 73 65 64 20 6c 69 73 74 2e  e enclosed list.
1a80: 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  .**.*/.static in
1a90: 74 20 73 74 72 67 6c 6f 62 28 63 6f 6e 73 74 20  t strglob(const 
1aa0: 63 68 61 72 20 2a 7a 47 6c 6f 62 2c 20 63 6f 6e  char *zGlob, con
1ab0: 73 74 20 63 68 61 72 20 2a 7a 29 7b 0a 20 20 69  st char *z){.  i
1ac0: 6e 74 20 63 2c 20 63 32 3b 0a 20 20 69 6e 74 20  nt c, c2;.  int 
1ad0: 69 6e 76 65 72 74 3b 0a 20 20 69 6e 74 20 73 65  invert;.  int se
1ae0: 65 6e 3b 0a 0a 20 20 77 68 69 6c 65 28 20 28 63  en;..  while( (c
1af0: 20 3d 20 28 2a 28 7a 47 6c 6f 62 2b 2b 29 29 29   = (*(zGlob++)))
1b00: 21 3d 30 20 29 7b 0a 20 20 20 20 69 66 28 20 63  !=0 ){.    if( c
1b10: 3d 3d 27 2a 27 20 29 7b 0a 20 20 20 20 20 20 77  =='*' ){.      w
1b20: 68 69 6c 65 28 20 28 63 3d 28 2a 28 7a 47 6c 6f  hile( (c=(*(zGlo
1b30: 62 2b 2b 29 29 29 20 3d 3d 20 27 2a 27 20 7c 7c  b++))) == '*' ||
1b40: 20 63 3d 3d 27 3f 27 20 29 7b 0a 20 20 20 20 20   c=='?' ){.     
1b50: 20 20 20 69 66 28 20 63 3d 3d 27 3f 27 20 26 26     if( c=='?' &&
1b60: 20 28 2a 28 7a 2b 2b 29 29 3d 3d 30 20 29 20 72   (*(z++))==0 ) r
1b70: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 7d  eturn 0;.      }
1b80: 0a 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 20  .      if( c==0 
1b90: 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  ){.        retur
1ba0: 6e 20 31 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65  n 1;.      }else
1bb0: 20 69 66 28 20 63 3d 3d 27 5b 27 20 29 7b 0a 20   if( c=='[' ){. 
1bc0: 20 20 20 20 20 20 20 77 68 69 6c 65 28 20 2a 7a         while( *z
1bd0: 20 26 26 20 73 74 72 67 6c 6f 62 28 7a 47 6c 6f   && strglob(zGlo
1be0: 62 2d 31 2c 7a 29 3d 3d 30 20 29 7b 0a 20 20 20  b-1,z)==0 ){.   
1bf0: 20 20 20 20 20 20 20 7a 2b 2b 3b 0a 20 20 20 20         z++;.    
1c00: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 72 65      }.        re
1c10: 74 75 72 6e 20 28 2a 7a 29 21 3d 30 3b 0a 20 20  turn (*z)!=0;.  
1c20: 20 20 20 20 7d 0a 20 20 20 20 20 20 77 68 69 6c      }.      whil
1c30: 65 28 20 28 63 32 20 3d 20 28 2a 28 7a 2b 2b 29  e( (c2 = (*(z++)
1c40: 29 29 21 3d 30 20 29 7b 0a 20 20 20 20 20 20 20  ))!=0 ){.       
1c50: 20 77 68 69 6c 65 28 20 63 32 21 3d 63 20 29 7b   while( c2!=c ){
1c60: 0a 20 20 20 20 20 20 20 20 20 20 63 32 20 3d 20  .          c2 = 
1c70: 2a 28 7a 2b 2b 29 3b 0a 20 20 20 20 20 20 20 20  *(z++);.        
1c80: 20 20 69 66 28 20 63 32 3d 3d 30 20 29 20 72 65    if( c2==0 ) re
1c90: 74 75 72 6e 20 30 3b 0a 20 20 20 20 20 20 20 20  turn 0;.        
1ca0: 7d 0a 20 20 20 20 20 20 20 20 69 66 28 20 73 74  }.        if( st
1cb0: 72 67 6c 6f 62 28 7a 47 6c 6f 62 2c 7a 29 20 29  rglob(zGlob,z) )
1cc0: 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 20   return 1;.     
1cd0: 20 7d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   }.      return 
1ce0: 30 3b 0a 20 20 20 20 7d 65 6c 73 65 20 69 66 28  0;.    }else if(
1cf0: 20 63 3d 3d 27 3f 27 20 29 7b 0a 20 20 20 20 20   c=='?' ){.     
1d00: 20 69 66 28 20 28 2a 28 7a 2b 2b 29 29 3d 3d 30   if( (*(z++))==0
1d10: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20   ) return 0;.   
1d20: 20 7d 65 6c 73 65 20 69 66 28 20 63 3d 3d 27 5b   }else if( c=='[
1d30: 27 20 29 7b 0a 20 20 20 20 20 20 69 6e 74 20 70  ' ){.      int p
1d40: 72 69 6f 72 5f 63 20 3d 20 30 3b 0a 20 20 20 20  rior_c = 0;.    
1d50: 20 20 73 65 65 6e 20 3d 20 30 3b 0a 20 20 20 20    seen = 0;.    
1d60: 20 20 69 6e 76 65 72 74 20 3d 20 30 3b 0a 20 20    invert = 0;.  
1d70: 20 20 20 20 63 20 3d 20 2a 28 7a 2b 2b 29 3b 0a      c = *(z++);.
1d80: 20 20 20 20 20 20 69 66 28 20 63 3d 3d 30 20 29        if( c==0 )
1d90: 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 20   return 0;.     
1da0: 20 63 32 20 3d 20 2a 28 7a 47 6c 6f 62 2b 2b 29   c2 = *(zGlob++)
1db0: 3b 0a 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d  ;.      if( c2==
1dc0: 27 5e 27 20 29 7b 0a 20 20 20 20 20 20 20 20 69  '^' ){.        i
1dd0: 6e 76 65 72 74 20 3d 20 31 3b 0a 20 20 20 20 20  nvert = 1;.     
1de0: 20 20 20 63 32 20 3d 20 2a 28 7a 47 6c 6f 62 2b     c2 = *(zGlob+
1df0: 2b 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  +);.      }.    
1e00: 20 20 69 66 28 20 63 32 3d 3d 27 5d 27 20 29 7b    if( c2==']' ){
1e10: 0a 20 20 20 20 20 20 20 20 69 66 28 20 63 3d 3d  .        if( c==
1e20: 27 5d 27 20 29 20 73 65 65 6e 20 3d 20 31 3b 0a  ']' ) seen = 1;.
1e30: 20 20 20 20 20 20 20 20 63 32 20 3d 20 2a 28 7a          c2 = *(z
1e40: 47 6c 6f 62 2b 2b 29 3b 0a 20 20 20 20 20 20 7d  Glob++);.      }
1e50: 0a 20 20 20 20 20 20 77 68 69 6c 65 28 20 63 32  .      while( c2
1e60: 20 26 26 20 63 32 21 3d 27 5d 27 20 29 7b 0a 20   && c2!=']' ){. 
1e70: 20 20 20 20 20 20 20 69 66 28 20 63 32 3d 3d 27         if( c2=='
1e80: 2d 27 20 26 26 20 7a 47 6c 6f 62 5b 30 5d 21 3d  -' && zGlob[0]!=
1e90: 27 5d 27 20 26 26 20 7a 47 6c 6f 62 5b 30 5d 21  ']' && zGlob[0]!
1ea0: 3d 30 20 26 26 20 70 72 69 6f 72 5f 63 3e 30 20  =0 && prior_c>0 
1eb0: 29 7b 0a 20 20 20 20 20 20 20 20 20 20 63 32 20  ){.          c2 
1ec0: 3d 20 2a 28 7a 47 6c 6f 62 2b 2b 29 3b 0a 20 20  = *(zGlob++);.  
1ed0: 20 20 20 20 20 20 20 20 69 66 28 20 63 3e 3d 70          if( c>=p
1ee0: 72 69 6f 72 5f 63 20 26 26 20 63 3c 3d 63 32 20  rior_c && c<=c2 
1ef0: 29 20 73 65 65 6e 20 3d 20 31 3b 0a 20 20 20 20  ) seen = 1;.    
1f00: 20 20 20 20 20 20 70 72 69 6f 72 5f 63 20 3d 20        prior_c = 
1f10: 30 3b 0a 20 20 20 20 20 20 20 20 7d 65 6c 73 65  0;.        }else
1f20: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 66 28 20  {.          if( 
1f30: 63 3d 3d 63 32 20 29 7b 0a 20 20 20 20 20 20 20  c==c2 ){.       
1f40: 20 20 20 20 20 73 65 65 6e 20 3d 20 31 3b 0a 20       seen = 1;. 
1f50: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
1f60: 20 20 20 20 20 70 72 69 6f 72 5f 63 20 3d 20 63       prior_c = c
1f70: 32 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  2;.        }.   
1f80: 20 20 20 20 20 63 32 20 3d 20 2a 28 7a 47 6c 6f       c2 = *(zGlo
1f90: 62 2b 2b 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  b++);.      }.  
1fa0: 20 20 20 20 69 66 28 20 63 32 3d 3d 30 20 7c 7c      if( c2==0 ||
1fb0: 20 28 73 65 65 6e 20 5e 20 69 6e 76 65 72 74 29   (seen ^ invert)
1fc0: 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a  ==0 ) return 0;.
1fd0: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20      }else{.     
1fe0: 20 69 66 28 20 63 21 3d 28 2a 28 7a 2b 2b 29 29   if( c!=(*(z++))
1ff0: 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 20   ) return 0;.   
2000: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20   }.  }.  return 
2010: 2a 7a 3d 3d 30 3b 0a 7d 0a 0a 0a 2f 2a 20 46 69  *z==0;.}.../* Fi
2020: 6e 64 20 61 20 71 75 6f 74 61 47 72 6f 75 70 20  nd a quotaGroup 
2030: 67 69 76 65 6e 20 74 68 65 20 66 69 6c 65 6e 61  given the filena
2040: 6d 65 2e 0a 2a 2a 0a 2a 2a 20 52 65 74 75 72 6e  me..**.** Return
2050: 20 61 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68   a pointer to th
2060: 65 20 71 75 6f 74 61 4f 70 65 6e 20 6f 62 6a 65  e quotaOpen obje
2070: 63 74 2e 20 52 65 74 75 72 6e 20 4e 55 4c 4c 20  ct. Return NULL 
2080: 69 66 20 6e 6f 74 20 66 6f 75 6e 64 2e 0a 2a 2f  if not found..*/
2090: 0a 73 74 61 74 69 63 20 71 75 6f 74 61 47 72 6f  .static quotaGro
20a0: 75 70 20 2a 71 75 6f 74 61 47 72 6f 75 70 46 69  up *quotaGroupFi
20b0: 6e 64 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a  nd(const char *z
20c0: 46 69 6c 65 6e 61 6d 65 29 7b 0a 20 20 71 75 6f  Filename){.  quo
20d0: 74 61 47 72 6f 75 70 20 2a 70 3b 0a 20 20 66 6f  taGroup *p;.  fo
20e0: 72 28 70 3d 67 51 75 6f 74 61 2e 70 47 72 6f 75  r(p=gQuota.pGrou
20f0: 70 3b 20 70 20 26 26 20 73 74 72 67 6c 6f 62 28  p; p && strglob(
2100: 70 2d 3e 7a 50 61 74 74 65 72 6e 2c 20 7a 46 69  p->zPattern, zFi
2110: 6c 65 6e 61 6d 65 29 3d 3d 30 3b 20 70 3d 70 2d  lename)==0; p=p-
2120: 3e 70 4e 65 78 74 29 7b 7d 0a 20 20 72 65 74 75  >pNext){}.  retu
2130: 72 6e 20 70 3b 0a 7d 0a 0a 2f 2a 20 54 72 61 6e  rn p;.}../* Tran
2140: 73 6c 61 74 65 20 61 6e 20 73 71 6c 69 74 65 33  slate an sqlite3
2150: 5f 66 69 6c 65 2a 20 74 68 61 74 20 69 73 20 72  _file* that is r
2160: 65 61 6c 6c 79 20 61 20 71 75 6f 74 61 4f 70 65  eally a quotaOpe
2170: 6e 2a 20 69 6e 74 6f 0a 2a 2a 20 74 68 65 20 73  n* into.** the s
2180: 71 6c 69 74 65 33 5f 66 69 6c 65 2a 20 66 6f 72  qlite3_file* for
2190: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20   the underlying 
21a0: 6f 72 69 67 69 6e 61 6c 20 56 46 53 2e 0a 2a 2f  original VFS..*/
21b0: 0a 73 74 61 74 69 63 20 73 71 6c 69 74 65 33 5f  .static sqlite3_
21c0: 66 69 6c 65 20 2a 71 75 6f 74 61 53 75 62 4f 70  file *quotaSubOp
21d0: 65 6e 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  en(sqlite3_file 
21e0: 2a 70 4f 70 65 6e 29 7b 0a 20 20 71 75 6f 74 61  *pOpen){.  quota
21f0: 4f 70 65 6e 20 2a 70 20 3d 20 28 71 75 6f 74 61  Open *p = (quota
2200: 4f 70 65 6e 2a 29 70 4f 70 65 6e 3b 0a 20 20 72  Open*)pOpen;.  r
2210: 65 74 75 72 6e 20 28 73 71 6c 69 74 65 33 5f 66  eturn (sqlite3_f
2220: 69 6c 65 2a 29 26 70 5b 31 5d 3b 0a 7d 0a 0a 2f  ile*)&p[1];.}../
2230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2240: 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 56 46 53 20 4d 65  ********* VFS Me
2250: 74 68 6f 64 20 57 72 61 70 70 65 72 73 20 2a 2a  thod Wrappers **
2260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 2f 2a 0a  ***********/./*.
2280: 2a 2a 20 54 68 69 73 20 69 73 20 74 68 65 20 78  ** This is the x
2290: 4f 70 65 6e 20 6d 65 74 68 6f 64 20 75 73 65 64  Open method used
22a0: 20 66 6f 72 20 74 68 65 20 22 71 75 6f 74 61 22   for the "quota"
22b0: 20 56 46 53 2e 0a 2a 2a 0a 2a 2a 20 4d 6f 73 74   VFS..**.** Most
22c0: 20 6f 66 20 74 68 65 20 77 6f 72 6b 20 69 73 20   of the work is 
22d0: 64 6f 6e 65 20 62 79 20 74 68 65 20 75 6e 64 65  done by the unde
22e0: 72 6c 79 69 6e 67 20 6f 72 69 67 69 6e 61 6c 20  rlying original 
22f0: 56 46 53 2e 20 20 54 68 69 73 20 6d 65 74 68 6f  VFS.  This metho
2300: 64 0a 2a 2a 20 73 69 6d 70 6c 79 20 6c 69 6e 6b  d.** simply link
2310: 73 20 74 68 65 20 6e 65 77 20 66 69 6c 65 20 69  s the new file i
2320: 6e 74 6f 20 74 68 65 20 61 70 70 72 6f 70 72 69  nto the appropri
2330: 61 74 65 20 71 75 6f 74 61 20 67 72 6f 75 70 20  ate quota group 
2340: 69 66 20 69 74 20 69 73 20 61 0a 2a 2a 20 66 69  if it is a.** fi
2350: 6c 65 20 74 68 61 74 20 6e 65 65 64 73 20 74 6f  le that needs to
2360: 20 62 65 20 74 72 61 63 6b 65 64 2e 0a 2a 2f 0a   be tracked..*/.
2370: 73 74 61 74 69 63 20 69 6e 74 20 71 75 6f 74 61  static int quota
2380: 78 4f 70 65 6e 28 0a 20 20 73 71 6c 69 74 65 33  xOpen(.  sqlite3
2390: 5f 76 66 73 20 2a 70 56 66 73 2c 20 20 20 20 20  _vfs *pVfs,     
23a0: 20 20 20 20 20 2f 2a 20 54 68 65 20 71 75 6f 74       /* The quot
23b0: 61 20 56 46 53 20 2a 2f 0a 20 20 63 6f 6e 73 74  a VFS */.  const
23c0: 20 63 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 20 20   char *zName,   
23d0: 20 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f         /* Name o
23e0: 66 20 66 69 6c 65 20 74 6f 20 62 65 20 6f 70 65  f file to be ope
23f0: 6e 65 64 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33  ned */.  sqlite3
2400: 5f 66 69 6c 65 20 2a 70 4f 70 65 6e 2c 20 20 20  _file *pOpen,   
2410: 20 20 20 20 20 2f 2a 20 46 69 6c 6c 20 69 6e 20       /* Fill in 
2420: 74 68 69 73 20 66 69 6c 65 20 64 65 73 63 72 69  this file descri
2430: 70 74 6f 72 20 2a 2f 0a 20 20 69 6e 74 20 66 6c  ptor */.  int fl
2440: 61 67 73 2c 20 20 20 20 20 20 20 20 20 20 20 20  ags,            
2450: 20 20 20 20 20 20 2f 2a 20 46 6c 61 67 73 20 74        /* Flags t
2460: 6f 20 63 6f 6e 74 72 6f 6c 20 74 68 65 20 6f 70  o control the op
2470: 65 6e 69 6e 67 20 2a 2f 0a 20 20 69 6e 74 20 2a  ening */.  int *
2480: 70 4f 75 74 46 6c 61 67 73 20 20 20 20 20 20 20  pOutFlags       
2490: 20 20 20 20 20 20 20 2f 2a 20 46 6c 61 67 73 20         /* Flags 
24a0: 73 68 6f 77 69 6e 67 20 72 65 73 75 6c 74 73 20  showing results 
24b0: 6f 66 20 6f 70 65 6e 69 6e 67 20 2a 2f 0a 29 7b  of opening */.){
24c0: 0a 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20  .  int rc;      
24d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
24e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
24f0: 20 52 65 73 75 6c 74 20 63 6f 64 65 20 2a 2f 20   Result code */ 
2500: 20 20 20 20 20 20 20 20 0a 20 20 71 75 6f 74 61          .  quota
2510: 4f 70 65 6e 20 2a 70 51 75 6f 74 61 4f 70 65 6e  Open *pQuotaOpen
2520: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;               
2530: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 6e 65 77        /* The new
2540: 20 71 75 6f 74 61 20 66 69 6c 65 20 64 65 73 63   quota file desc
2550: 72 69 70 74 6f 72 20 2a 2f 0a 20 20 71 75 6f 74  riptor */.  quot
2560: 61 46 69 6c 65 20 2a 70 46 69 6c 65 3b 20 20 20  aFile *pFile;   
2570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2580: 20 20 20 20 20 20 20 2f 2a 20 43 6f 72 72 65 73         /* Corres
2590: 70 6f 6e 64 69 6e 67 20 71 75 6f 74 61 46 69 6c  ponding quotaFil
25a0: 65 20 6f 62 6a 20 2a 2f 0a 20 20 71 75 6f 74 61  e obj */.  quota
25b0: 47 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 20 20  Group *pGroup;  
25c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
25d0: 20 20 20 20 20 20 2f 2a 20 54 68 65 20 67 72 6f        /* The gro
25e0: 75 70 20 66 69 6c 65 20 62 65 6c 6f 6e 67 73 20  up file belongs 
25f0: 74 6f 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33 5f  to */.  sqlite3_
2600: 66 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 3b 20  file *pSubOpen; 
2610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2620: 20 20 20 2f 2a 20 52 65 61 6c 20 66 69 6c 65 20     /* Real file 
2630: 64 65 73 63 72 69 70 74 6f 72 20 2a 2f 0a 20 20  descriptor */.  
2640: 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70 4f 72  sqlite3_vfs *pOr
2650: 69 67 56 66 73 20 3d 20 67 51 75 6f 74 61 2e 70  igVfs = gQuota.p
2660: 4f 72 69 67 56 66 73 3b 20 20 20 2f 2a 20 52 65  OrigVfs;   /* Re
2670: 61 6c 20 56 46 53 20 2a 2f 0a 0a 20 20 2f 2a 20  al VFS */..  /* 
2680: 49 66 20 74 68 65 20 66 69 6c 65 20 69 73 20 6e  If the file is n
2690: 6f 74 20 61 20 6d 61 69 6e 20 64 61 74 61 62 61  ot a main databa
26a0: 73 65 20 66 69 6c 65 20 6f 72 20 61 20 57 41 4c  se file or a WAL
26b0: 2c 20 74 68 65 6e 20 75 73 65 20 74 68 65 0a 20  , then use the. 
26c0: 20 2a 2a 20 6e 6f 72 6d 61 6c 20 78 4f 70 65 6e   ** normal xOpen
26d0: 20 6d 65 74 68 6f 64 2e 0a 20 20 2a 2f 0a 20 20   method..  */.  
26e0: 69 66 28 20 28 66 6c 61 67 73 20 26 20 28 53 51  if( (flags & (SQ
26f0: 4c 49 54 45 5f 4f 50 45 4e 5f 4d 41 49 4e 5f 44  LITE_OPEN_MAIN_D
2700: 42 7c 53 51 4c 49 54 45 5f 4f 50 45 4e 5f 57 41  B|SQLITE_OPEN_WA
2710: 4c 29 29 3d 3d 30 20 29 7b 0a 20 20 20 20 72 65  L))==0 ){.    re
2720: 74 75 72 6e 20 70 4f 72 69 67 56 66 73 2d 3e 78  turn pOrigVfs->x
2730: 4f 70 65 6e 28 70 4f 72 69 67 56 66 73 2c 20 7a  Open(pOrigVfs, z
2740: 4e 61 6d 65 2c 20 70 4f 70 65 6e 2c 20 66 6c 61  Name, pOpen, fla
2750: 67 73 2c 20 70 4f 75 74 46 6c 61 67 73 29 3b 0a  gs, pOutFlags);.
2760: 20 20 7d 0a 0a 20 20 2f 2a 20 49 66 20 74 68 65    }..  /* If the
2770: 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 69 6c   name of the fil
2780: 65 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68  e does not match
2790: 20 61 6e 79 20 71 75 6f 74 61 20 67 72 6f 75 70   any quota group
27a0: 2c 20 74 68 65 6e 0a 20 20 2a 2a 20 75 73 65 20  , then.  ** use 
27b0: 74 68 65 20 6e 6f 72 6d 61 6c 20 78 4f 70 65 6e  the normal xOpen
27c0: 20 6d 65 74 68 6f 64 2e 0a 20 20 2a 2f 0a 20 20   method..  */.  
27d0: 71 75 6f 74 61 45 6e 74 65 72 28 29 3b 0a 20 20  quotaEnter();.  
27e0: 70 47 72 6f 75 70 20 3d 20 71 75 6f 74 61 47 72  pGroup = quotaGr
27f0: 6f 75 70 46 69 6e 64 28 7a 4e 61 6d 65 29 3b 0a  oupFind(zName);.
2800: 20 20 69 66 28 20 70 47 72 6f 75 70 3d 3d 30 20    if( pGroup==0 
2810: 29 7b 0a 20 20 20 20 72 63 20 3d 20 70 4f 72 69  ){.    rc = pOri
2820: 67 56 66 73 2d 3e 78 4f 70 65 6e 28 70 4f 72 69  gVfs->xOpen(pOri
2830: 67 56 66 73 2c 20 7a 4e 61 6d 65 2c 20 70 4f 70  gVfs, zName, pOp
2840: 65 6e 2c 20 66 6c 61 67 73 2c 20 70 4f 75 74 46  en, flags, pOutF
2850: 6c 61 67 73 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a  lags);.  }else{.
2860: 20 20 20 20 2f 2a 20 49 66 20 77 65 20 67 65 74      /* If we get
2870: 20 74 6f 20 74 68 69 73 20 70 6f 69 6e 74 2c 20   to this point, 
2880: 69 74 20 6d 65 61 6e 73 20 74 68 65 20 66 69 6c  it means the fil
2890: 65 20 6e 65 65 64 73 20 74 6f 20 62 65 20 71 75  e needs to be qu
28a0: 6f 74 61 20 74 72 61 63 6b 65 64 2e 0a 20 20 20  ota tracked..   
28b0: 20 2a 2f 0a 20 20 20 20 70 51 75 6f 74 61 4f 70   */.    pQuotaOp
28c0: 65 6e 20 3d 20 28 71 75 6f 74 61 4f 70 65 6e 2a  en = (quotaOpen*
28d0: 29 70 4f 70 65 6e 3b 0a 20 20 20 20 70 53 75 62  )pOpen;.    pSub
28e0: 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53 75 62 4f  Open = quotaSubO
28f0: 70 65 6e 28 70 4f 70 65 6e 29 3b 0a 20 20 20 20  pen(pOpen);.    
2900: 72 63 20 3d 20 70 4f 72 69 67 56 66 73 2d 3e 78  rc = pOrigVfs->x
2910: 4f 70 65 6e 28 70 4f 72 69 67 56 66 73 2c 20 7a  Open(pOrigVfs, z
2920: 4e 61 6d 65 2c 20 70 53 75 62 4f 70 65 6e 2c 20  Name, pSubOpen, 
2930: 66 6c 61 67 73 2c 20 70 4f 75 74 46 6c 61 67 73  flags, pOutFlags
2940: 29 3b 0a 20 20 20 20 69 66 28 20 72 63 3d 3d 53  );.    if( rc==S
2950: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
2960: 20 20 66 6f 72 28 70 46 69 6c 65 3d 70 47 72 6f    for(pFile=pGro
2970: 75 70 2d 3e 70 46 69 6c 65 3b 20 70 46 69 6c 65  up->pFile; pFile
2980: 20 26 26 20 73 74 72 63 6d 70 28 70 46 69 6c 65   && strcmp(pFile
2990: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 7a 4e 61  ->zFilename, zNa
29a0: 6d 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20 70  me);.          p
29b0: 46 69 6c 65 3d 70 46 69 6c 65 2d 3e 70 4e 65 78  File=pFile->pNex
29c0: 74 29 7b 7d 0a 20 20 20 20 20 20 69 66 28 20 70  t){}.      if( p
29d0: 46 69 6c 65 3d 3d 30 20 29 7b 0a 20 20 20 20 20  File==0 ){.     
29e0: 20 20 20 69 6e 74 20 6e 4e 61 6d 65 20 3d 20 73     int nName = s
29f0: 74 72 6c 65 6e 28 7a 4e 61 6d 65 29 3b 0a 20 20  trlen(zName);.  
2a00: 20 20 20 20 20 20 70 46 69 6c 65 20 3d 20 73 71        pFile = sq
2a10: 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 20 73 69  lite3_malloc( si
2a20: 7a 65 6f 66 28 2a 70 46 69 6c 65 29 20 2b 20 6e  zeof(*pFile) + n
2a30: 4e 61 6d 65 20 2b 20 31 20 29 3b 0a 20 20 20 20  Name + 1 );.    
2a40: 20 20 20 20 69 66 28 20 70 46 69 6c 65 3d 3d 30      if( pFile==0
2a50: 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20 71 75   ){.          qu
2a60: 6f 74 61 4c 65 61 76 65 28 29 3b 0a 20 20 20 20  otaLeave();.    
2a70: 20 20 20 20 20 20 70 53 75 62 4f 70 65 6e 2d 3e        pSubOpen->
2a80: 70 4d 65 74 68 6f 64 73 2d 3e 78 43 6c 6f 73 65  pMethods->xClose
2a90: 28 70 53 75 62 4f 70 65 6e 29 3b 0a 20 20 20 20  (pSubOpen);.    
2aa0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
2ab0: 49 54 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 20  ITE_NOMEM;.     
2ac0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6d 65 6d     }.        mem
2ad0: 73 65 74 28 70 46 69 6c 65 2c 20 30 2c 20 73 69  set(pFile, 0, si
2ae0: 7a 65 6f 66 28 2a 70 46 69 6c 65 29 29 3b 0a 20  zeof(*pFile));. 
2af0: 20 20 20 20 20 20 20 70 46 69 6c 65 2d 3e 7a 46         pFile->zF
2b00: 69 6c 65 6e 61 6d 65 20 3d 20 28 63 68 61 72 2a  ilename = (char*
2b10: 29 26 70 46 69 6c 65 5b 31 5d 3b 0a 20 20 20 20  )&pFile[1];.    
2b20: 20 20 20 20 6d 65 6d 63 70 79 28 70 46 69 6c 65      memcpy(pFile
2b30: 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 7a 4e 61  ->zFilename, zNa
2b40: 6d 65 2c 20 6e 4e 61 6d 65 2b 31 29 3b 0a 20 20  me, nName+1);.  
2b50: 20 20 20 20 20 20 70 46 69 6c 65 2d 3e 70 4e 65        pFile->pNe
2b60: 78 74 20 3d 20 70 47 72 6f 75 70 2d 3e 70 46 69  xt = pGroup->pFi
2b70: 6c 65 3b 0a 20 20 20 20 20 20 20 20 69 66 28 20  le;.        if( 
2b80: 70 47 72 6f 75 70 2d 3e 70 46 69 6c 65 20 29 20  pGroup->pFile ) 
2b90: 70 47 72 6f 75 70 2d 3e 70 46 69 6c 65 2d 3e 70  pGroup->pFile->p
2ba0: 70 50 72 65 76 20 3d 20 26 70 46 69 6c 65 2d 3e  pPrev = &pFile->
2bb0: 70 4e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 70  pNext;.        p
2bc0: 46 69 6c 65 2d 3e 70 70 50 72 65 76 20 3d 20 26  File->ppPrev = &
2bd0: 70 47 72 6f 75 70 2d 3e 70 46 69 6c 65 3b 0a 20  pGroup->pFile;. 
2be0: 20 20 20 20 20 20 20 70 47 72 6f 75 70 2d 3e 70         pGroup->p
2bf0: 46 69 6c 65 20 3d 20 70 46 69 6c 65 3b 0a 20 20  File = pFile;.  
2c00: 20 20 20 20 20 20 70 46 69 6c 65 2d 3e 70 47 72        pFile->pGr
2c10: 6f 75 70 20 3d 20 70 47 72 6f 75 70 3b 0a 20 20  oup = pGroup;.  
2c20: 20 20 20 20 7d 0a 20 20 20 20 20 20 70 46 69 6c      }.      pFil
2c30: 65 2d 3e 6e 52 65 66 2b 2b 3b 0a 20 20 20 20 20  e->nRef++;.     
2c40: 20 70 51 75 6f 74 61 4f 70 65 6e 2d 3e 70 46 69   pQuotaOpen->pFi
2c50: 6c 65 20 3d 20 70 46 69 6c 65 3b 0a 20 20 20 20  le = pFile;.    
2c60: 20 20 69 66 28 20 70 53 75 62 4f 70 65 6e 2d 3e    if( pSubOpen->
2c70: 70 4d 65 74 68 6f 64 73 2d 3e 69 56 65 72 73 69  pMethods->iVersi
2c80: 6f 6e 3d 3d 31 20 29 7b 0a 20 20 20 20 20 20 20  on==1 ){.       
2c90: 20 70 51 75 6f 74 61 4f 70 65 6e 2d 3e 62 61 73   pQuotaOpen->bas
2ca0: 65 2e 70 4d 65 74 68 6f 64 73 20 3d 20 26 67 51  e.pMethods = &gQ
2cb0: 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56  uota.sIoMethodsV
2cc0: 31 3b 0a 20 20 20 20 20 20 7d 65 6c 73 65 7b 0a  1;.      }else{.
2cd0: 20 20 20 20 20 20 20 20 70 51 75 6f 74 61 4f 70          pQuotaOp
2ce0: 65 6e 2d 3e 62 61 73 65 2e 70 4d 65 74 68 6f 64  en->base.pMethod
2cf0: 73 20 3d 20 26 67 51 75 6f 74 61 2e 73 49 6f 4d  s = &gQuota.sIoM
2d00: 65 74 68 6f 64 73 56 32 3b 0a 20 20 20 20 20 20  ethodsV2;.      
2d10: 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 71 75  }.    }.  }.  qu
2d20: 6f 74 61 4c 65 61 76 65 28 29 3b 0a 20 20 72 65  otaLeave();.  re
2d30: 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 2a 2a  turn rc;.}../***
2d40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2d50: 2a 2a 2a 2a 2a 20 49 2f 4f 20 4d 65 74 68 6f 64  ***** I/O Method
2d60: 20 57 72 61 70 70 65 72 73 20 2a 2a 2a 2a 2a 2a   Wrappers ******
2d70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2d80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 20 78  *********/../* x
2d90: 43 6c 6f 73 65 20 72 65 71 75 65 73 74 73 20 67  Close requests g
2da0: 65 74 20 70 61 73 73 65 64 20 74 68 72 6f 75 67  et passed throug
2db0: 68 20 74 6f 20 74 68 65 20 6f 72 69 67 69 6e 61  h to the origina
2dc0: 6c 20 56 46 53 2e 20 20 42 75 74 20 77 65 0a 2a  l VFS.  But we.*
2dd0: 2a 20 61 6c 73 6f 20 68 61 76 65 20 74 6f 20 75  * also have to u
2de0: 6e 6c 69 6e 6b 20 74 68 65 20 71 75 6f 74 61 4f  nlink the quotaO
2df0: 70 65 6e 20 66 72 6f 6d 20 74 68 65 20 71 75 6f  pen from the quo
2e00: 74 61 47 72 6f 75 70 2e 0a 2a 2f 0a 73 74 61 74  taGroup..*/.stat
2e10: 69 63 20 69 6e 74 20 71 75 6f 74 61 43 6c 6f 73  ic int quotaClos
2e20: 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  e(sqlite3_file *
2e30: 70 4f 70 65 6e 29 7b 0a 20 20 71 75 6f 74 61 4f  pOpen){.  quotaO
2e40: 70 65 6e 20 2a 70 20 3d 20 28 71 75 6f 74 61 4f  pen *p = (quotaO
2e50: 70 65 6e 2a 29 70 4f 70 65 6e 3b 0a 20 20 71 75  pen*)pOpen;.  qu
2e60: 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c 65 20 3d  otaFile *pFile =
2e70: 20 70 2d 3e 70 46 69 6c 65 3b 0a 20 20 73 71 6c   p->pFile;.  sql
2e80: 69 74 65 33 5f 66 69 6c 65 20 2a 70 53 75 62 4f  ite3_file *pSubO
2e90: 70 65 6e 20 3d 20 71 75 6f 74 61 53 75 62 4f 70  pen = quotaSubOp
2ea0: 65 6e 28 70 4f 70 65 6e 29 3b 0a 20 20 69 6e 74  en(pOpen);.  int
2eb0: 20 72 63 3b 0a 20 20 72 63 20 3d 20 70 53 75 62   rc;.  rc = pSub
2ec0: 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e  Open->pMethods->
2ed0: 78 43 6c 6f 73 65 28 70 53 75 62 4f 70 65 6e 29  xClose(pSubOpen)
2ee0: 3b 0a 20 20 71 75 6f 74 61 45 6e 74 65 72 28 29  ;.  quotaEnter()
2ef0: 3b 0a 20 20 70 46 69 6c 65 2d 3e 6e 52 65 66 2d  ;.  pFile->nRef-
2f00: 2d 3b 0a 20 20 69 66 28 20 70 46 69 6c 65 2d 3e  -;.  if( pFile->
2f10: 6e 52 65 66 3d 3d 30 20 29 7b 0a 20 20 20 20 71  nRef==0 ){.    q
2f20: 75 6f 74 61 47 72 6f 75 70 20 2a 70 47 72 6f 75  uotaGroup *pGrou
2f30: 70 20 3d 20 70 46 69 6c 65 2d 3e 70 47 72 6f 75  p = pFile->pGrou
2f40: 70 3b 0a 20 20 20 20 70 47 72 6f 75 70 2d 3e 69  p;.    pGroup->i
2f50: 53 69 7a 65 20 2d 3d 20 70 46 69 6c 65 2d 3e 69  Size -= pFile->i
2f60: 53 69 7a 65 3b 0a 20 20 20 20 69 66 28 20 70 46  Size;.    if( pF
2f70: 69 6c 65 2d 3e 70 4e 65 78 74 20 29 20 70 46 69  ile->pNext ) pFi
2f80: 6c 65 2d 3e 70 4e 65 78 74 2d 3e 70 70 50 72 65  le->pNext->ppPre
2f90: 76 20 3d 20 70 46 69 6c 65 2d 3e 70 70 50 72 65  v = pFile->ppPre
2fa0: 76 3b 0a 20 20 20 20 2a 70 46 69 6c 65 2d 3e 70  v;.    *pFile->p
2fb0: 70 50 72 65 76 20 3d 20 70 46 69 6c 65 2d 3e 70  pPrev = pFile->p
2fc0: 4e 65 78 74 3b 0a 20 20 20 20 71 75 6f 74 61 47  Next;.    quotaG
2fd0: 72 6f 75 70 44 65 72 65 66 28 70 47 72 6f 75 70  roupDeref(pGroup
2fe0: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 66  );.    sqlite3_f
2ff0: 72 65 65 28 70 46 69 6c 65 29 3b 0a 20 20 7d 0a  ree(pFile);.  }.
3000: 20 20 71 75 6f 74 61 4c 65 61 76 65 28 29 3b 0a    quotaLeave();.
3010: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a    return rc;.}..
3020: 2f 2a 20 50 61 73 73 20 78 52 65 61 64 20 72 65  /* Pass xRead re
3030: 71 75 65 73 74 73 20 64 69 72 65 63 74 6f 72 79  quests directory
3040: 20 74 68 72 75 20 74 6f 20 74 68 65 20 6f 72 69   thru to the ori
3050: 67 69 6e 61 6c 20 56 46 53 20 77 69 74 68 6f 75  ginal VFS withou
3060: 74 0a 2a 2a 20 66 75 72 74 68 65 72 20 70 72 6f  t.** further pro
3070: 63 65 73 73 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74  cessing..*/.stat
3080: 69 63 20 69 6e 74 20 71 75 6f 74 61 52 65 61 64  ic int quotaRead
3090: 28 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  (.  sqlite3_file
30a0: 20 2a 70 4f 70 65 6e 2c 0a 20 20 76 6f 69 64 20   *pOpen,.  void 
30b0: 2a 70 42 75 66 2c 0a 20 20 69 6e 74 20 69 41 6d  *pBuf,.  int iAm
30c0: 74 2c 0a 20 20 73 71 6c 69 74 65 33 5f 69 6e 74  t,.  sqlite3_int
30d0: 36 34 20 69 4f 66 73 74 0a 29 7b 0a 20 20 73 71  64 iOfst.){.  sq
30e0: 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 53 75 62  lite3_file *pSub
30f0: 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53 75 62 4f  Open = quotaSubO
3100: 70 65 6e 28 70 4f 70 65 6e 29 3b 0a 20 20 72 65  pen(pOpen);.  re
3110: 74 75 72 6e 20 70 53 75 62 4f 70 65 6e 2d 3e 70  turn pSubOpen->p
3120: 4d 65 74 68 6f 64 73 2d 3e 78 52 65 61 64 28 70  Methods->xRead(p
3130: 53 75 62 4f 70 65 6e 2c 20 70 42 75 66 2c 20 69  SubOpen, pBuf, i
3140: 41 6d 74 2c 20 69 4f 66 73 74 29 3b 0a 7d 0a 0a  Amt, iOfst);.}..
3150: 2f 2a 20 43 68 65 63 6b 20 78 57 72 69 74 65 20  /* Check xWrite 
3160: 72 65 71 75 65 73 74 73 20 74 6f 20 73 65 65 20  requests to see 
3170: 69 66 20 74 68 65 79 20 65 78 70 61 6e 64 20 74  if they expand t
3180: 68 65 20 66 69 6c 65 2e 20 20 49 66 20 74 68 65  he file.  If the
3190: 79 20 64 6f 2c 0a 2a 2a 20 74 68 65 20 70 65 72  y do,.** the per
31a0: 66 6f 72 6d 20 61 20 71 75 6f 74 61 20 63 68 65  form a quota che
31b0: 63 6b 20 62 65 66 6f 72 65 20 70 61 73 73 69 6e  ck before passin
31c0: 67 20 74 68 65 6d 20 74 68 72 6f 75 67 68 20 74  g them through t
31d0: 6f 20 74 68 65 0a 2a 2a 20 6f 72 69 67 69 6e 61  o the.** origina
31e0: 6c 20 56 46 53 2e 0a 2a 2f 0a 73 74 61 74 69 63  l VFS..*/.static
31f0: 20 69 6e 74 20 71 75 6f 74 61 57 72 69 74 65 28   int quotaWrite(
3200: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
3210: 2a 70 4f 70 65 6e 2c 0a 20 20 63 6f 6e 73 74 20  *pOpen,.  const 
3220: 76 6f 69 64 20 2a 70 42 75 66 2c 0a 20 20 69 6e  void *pBuf,.  in
3230: 74 20 69 41 6d 74 2c 0a 20 20 73 71 6c 69 74 65  t iAmt,.  sqlite
3240: 33 5f 69 6e 74 36 34 20 69 4f 66 73 74 0a 29 7b  3_int64 iOfst.){
3250: 0a 20 20 71 75 6f 74 61 4f 70 65 6e 20 2a 70 20  .  quotaOpen *p 
3260: 3d 20 28 71 75 6f 74 61 4f 70 65 6e 2a 29 70 4f  = (quotaOpen*)pO
3270: 70 65 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66  pen;.  sqlite3_f
3280: 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20  ile *pSubOpen = 
3290: 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 4f 70  quotaSubOpen(pOp
32a0: 65 6e 29 3b 0a 20 20 73 71 6c 69 74 65 33 5f 69  en);.  sqlite3_i
32b0: 6e 74 36 34 20 69 45 6e 64 20 3d 20 69 4f 66 73  nt64 iEnd = iOfs
32c0: 74 2b 69 41 6d 74 3b 0a 20 20 71 75 6f 74 61 47  t+iAmt;.  quotaG
32d0: 72 6f 75 70 20 2a 70 47 72 6f 75 70 3b 0a 20 20  roup *pGroup;.  
32e0: 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69 6c 65  quotaFile *pFile
32f0: 20 3d 20 70 2d 3e 70 46 69 6c 65 3b 0a 20 20 73   = p->pFile;.  s
3300: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 73 7a 4e  qlite3_int64 szN
3310: 65 77 3b 0a 0a 20 20 69 66 28 20 70 46 69 6c 65  ew;..  if( pFile
3320: 2d 3e 69 53 69 7a 65 3c 69 45 6e 64 20 29 7b 0a  ->iSize<iEnd ){.
3330: 20 20 20 20 70 47 72 6f 75 70 20 3d 20 70 46 69      pGroup = pFi
3340: 6c 65 2d 3e 70 47 72 6f 75 70 3b 0a 20 20 20 20  le->pGroup;.    
3350: 71 75 6f 74 61 45 6e 74 65 72 28 29 3b 0a 20 20  quotaEnter();.  
3360: 20 20 73 7a 4e 65 77 20 3d 20 70 47 72 6f 75 70    szNew = pGroup
3370: 2d 3e 69 53 69 7a 65 20 2d 20 70 46 69 6c 65 2d  ->iSize - pFile-
3380: 3e 69 53 69 7a 65 20 2b 20 69 45 6e 64 3b 0a 20  >iSize + iEnd;. 
3390: 20 20 20 69 66 28 20 73 7a 4e 65 77 3e 70 47 72     if( szNew>pGr
33a0: 6f 75 70 2d 3e 69 4c 69 6d 69 74 20 26 26 20 70  oup->iLimit && p
33b0: 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 3e 30 20  Group->iLimit>0 
33c0: 29 7b 0a 20 20 20 20 20 20 69 66 28 20 70 47 72  ){.      if( pGr
33d0: 6f 75 70 2d 3e 78 43 61 6c 6c 62 61 63 6b 20 29  oup->xCallback )
33e0: 7b 0a 20 20 20 20 20 20 20 20 70 47 72 6f 75 70  {.        pGroup
33f0: 2d 3e 78 43 61 6c 6c 62 61 63 6b 28 70 46 69 6c  ->xCallback(pFil
3400: 65 2d 3e 7a 46 69 6c 65 6e 61 6d 65 2c 20 26 70  e->zFilename, &p
3410: 47 72 6f 75 70 2d 3e 69 4c 69 6d 69 74 2c 20 73  Group->iLimit, s
3420: 7a 4e 65 77 2c 20 0a 20 20 20 20 20 20 20 20 20  zNew, .         
3430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3440: 20 70 47 72 6f 75 70 2d 3e 70 41 72 67 29 3b 0a   pGroup->pArg);.
3450: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 69 66        }.      if
3460: 28 20 73 7a 4e 65 77 3e 70 47 72 6f 75 70 2d 3e  ( szNew>pGroup->
3470: 69 4c 69 6d 69 74 20 26 26 20 70 47 72 6f 75 70  iLimit && pGroup
3480: 2d 3e 69 4c 69 6d 69 74 3e 30 20 29 7b 0a 20 20  ->iLimit>0 ){.  
3490: 20 20 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65        quotaLeave
34a0: 28 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75  ();.        retu
34b0: 72 6e 20 53 51 4c 49 54 45 5f 46 55 4c 4c 3b 0a  rn SQLITE_FULL;.
34c0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20        }.    }.  
34d0: 20 20 70 47 72 6f 75 70 2d 3e 69 53 69 7a 65 20    pGroup->iSize 
34e0: 3d 20 73 7a 4e 65 77 3b 0a 20 20 20 20 70 46 69  = szNew;.    pFi
34f0: 6c 65 2d 3e 69 53 69 7a 65 20 3d 20 69 45 6e 64  le->iSize = iEnd
3500: 3b 0a 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65  ;.    quotaLeave
3510: 28 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  ();.  }.  return
3520: 20 70 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68   pSubOpen->pMeth
3530: 6f 64 73 2d 3e 78 57 72 69 74 65 28 70 53 75 62  ods->xWrite(pSub
3540: 4f 70 65 6e 2c 20 70 42 75 66 2c 20 69 41 6d 74  Open, pBuf, iAmt
3550: 2c 20 69 4f 66 73 74 29 3b 0a 7d 0a 0a 2f 2a 20  , iOfst);.}../* 
3560: 50 61 73 73 20 78 54 72 75 6e 63 61 74 65 20 72  Pass xTruncate r
3570: 65 71 75 65 73 74 73 20 74 68 72 75 20 74 6f 20  equests thru to 
3580: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53  the original VFS
3590: 2e 20 20 49 66 20 74 68 65 0a 2a 2a 20 73 75 63  .  If the.** suc
35a0: 63 65 73 73 2c 20 75 70 64 61 74 65 20 74 68 65  cess, update the
35b0: 20 66 69 6c 65 20 73 69 7a 65 2e 0a 2a 2f 0a 73   file size..*/.s
35c0: 74 61 74 69 63 20 69 6e 74 20 71 75 6f 74 61 54  tatic int quotaT
35d0: 72 75 6e 63 61 74 65 28 73 71 6c 69 74 65 33 5f  runcate(sqlite3_
35e0: 66 69 6c 65 20 2a 70 4f 70 65 6e 2c 20 73 71 6c  file *pOpen, sql
35f0: 69 74 65 33 5f 69 6e 74 36 34 20 73 69 7a 65 29  ite3_int64 size)
3600: 7b 0a 20 20 71 75 6f 74 61 4f 70 65 6e 20 2a 70  {.  quotaOpen *p
3610: 20 3d 20 28 71 75 6f 74 61 4f 70 65 6e 2a 29 70   = (quotaOpen*)p
3620: 4f 70 65 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f  Open;.  sqlite3_
3630: 66 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d  file *pSubOpen =
3640: 20 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 4f   quotaSubOpen(pO
3650: 70 65 6e 29 3b 0a 20 20 69 6e 74 20 72 63 20 3d  pen);.  int rc =
3660: 20 70 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68   pSubOpen->pMeth
3670: 6f 64 73 2d 3e 78 54 72 75 6e 63 61 74 65 28 70  ods->xTruncate(p
3680: 53 75 62 4f 70 65 6e 2c 20 73 69 7a 65 29 3b 0a  SubOpen, size);.
3690: 20 20 71 75 6f 74 61 46 69 6c 65 20 2a 70 46 69    quotaFile *pFi
36a0: 6c 65 20 3d 20 70 2d 3e 70 46 69 6c 65 3b 0a 20  le = p->pFile;. 
36b0: 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70 47 72   quotaGroup *pGr
36c0: 6f 75 70 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53  oup;.  if( rc==S
36d0: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20  QLITE_OK ){.    
36e0: 71 75 6f 74 61 45 6e 74 65 72 28 29 3b 0a 20 20  quotaEnter();.  
36f0: 20 20 70 47 72 6f 75 70 20 3d 20 70 46 69 6c 65    pGroup = pFile
3700: 2d 3e 70 47 72 6f 75 70 3b 0a 20 20 20 20 70 47  ->pGroup;.    pG
3710: 72 6f 75 70 2d 3e 69 53 69 7a 65 20 2d 3d 20 70  roup->iSize -= p
3720: 46 69 6c 65 2d 3e 69 53 69 7a 65 3b 0a 20 20 20  File->iSize;.   
3730: 20 70 46 69 6c 65 2d 3e 69 53 69 7a 65 20 3d 20   pFile->iSize = 
3740: 73 69 7a 65 3b 0a 20 20 20 20 70 47 72 6f 75 70  size;.    pGroup
3750: 2d 3e 69 53 69 7a 65 20 2b 3d 20 73 69 7a 65 3b  ->iSize += size;
3760: 0a 20 20 20 20 71 75 6f 74 61 4c 65 61 76 65 28  .    quotaLeave(
3770: 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  );.  }.  return 
3780: 72 63 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78  rc;.}../* Pass x
3790: 53 79 6e 63 20 72 65 71 75 65 73 74 73 20 74 68  Sync requests th
37a0: 72 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69  rough to the ori
37b0: 67 69 6e 61 6c 20 56 46 53 20 77 69 74 68 6f 75  ginal VFS withou
37c0: 74 20 63 68 61 6e 67 65 0a 2a 2f 0a 73 74 61 74  t change.*/.stat
37d0: 69 63 20 69 6e 74 20 71 75 6f 74 61 53 79 6e 63  ic int quotaSync
37e0: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
37f0: 4f 70 65 6e 2c 20 69 6e 74 20 66 6c 61 67 73 29  Open, int flags)
3800: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  {.  sqlite3_file
3810: 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f   *pSubOpen = quo
3820: 74 61 53 75 62 4f 70 65 6e 28 70 4f 70 65 6e 29  taSubOpen(pOpen)
3830: 3b 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62 4f  ;.  return pSubO
3840: 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78  pen->pMethods->x
3850: 53 79 6e 63 28 70 53 75 62 4f 70 65 6e 2c 20 66  Sync(pSubOpen, f
3860: 6c 61 67 73 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73  lags);.}../* Pas
3870: 73 20 78 46 69 6c 65 53 69 7a 65 20 72 65 71 75  s xFileSize requ
3880: 65 73 74 73 20 74 68 72 6f 75 67 68 20 74 6f 20  ests through to 
3890: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53  the original VFS
38a0: 20 62 75 74 20 74 68 65 6e 0a 2a 2a 20 75 70 64   but then.** upd
38b0: 61 74 65 20 74 68 65 20 71 75 6f 74 61 47 72 6f  ate the quotaGro
38c0: 75 70 20 77 69 74 68 20 74 68 65 20 6e 65 77 20  up with the new 
38d0: 73 69 7a 65 20 62 65 66 6f 72 65 20 72 65 74 75  size before retu
38e0: 72 6e 69 6e 67 2e 0a 2a 2f 0a 73 74 61 74 69 63  rning..*/.static
38f0: 20 69 6e 74 20 71 75 6f 74 61 46 69 6c 65 53 69   int quotaFileSi
3900: 7a 65 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  ze(sqlite3_file 
3910: 2a 70 4f 70 65 6e 2c 20 73 71 6c 69 74 65 33 5f  *pOpen, sqlite3_
3920: 69 6e 74 36 34 20 2a 70 53 69 7a 65 29 7b 0a 20  int64 *pSize){. 
3930: 20 71 75 6f 74 61 4f 70 65 6e 20 2a 70 20 3d 20   quotaOpen *p = 
3940: 28 71 75 6f 74 61 4f 70 65 6e 2a 29 70 4f 70 65  (quotaOpen*)pOpe
3950: 6e 3b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  n;.  sqlite3_fil
3960: 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75  e *pSubOpen = qu
3970: 6f 74 61 53 75 62 4f 70 65 6e 28 70 4f 70 65 6e  otaSubOpen(pOpen
3980: 29 3b 0a 20 20 71 75 6f 74 61 46 69 6c 65 20 2a  );.  quotaFile *
3990: 70 46 69 6c 65 20 3d 20 70 2d 3e 70 46 69 6c 65  pFile = p->pFile
39a0: 3b 0a 20 20 71 75 6f 74 61 47 72 6f 75 70 20 2a  ;.  quotaGroup *
39b0: 70 47 72 6f 75 70 3b 0a 20 20 73 71 6c 69 74 65  pGroup;.  sqlite
39c0: 33 5f 69 6e 74 36 34 20 73 7a 3b 0a 20 20 69 6e  3_int64 sz;.  in
39d0: 74 20 72 63 3b 0a 0a 20 20 72 63 20 3d 20 70 53  t rc;..  rc = pS
39e0: 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73  ubOpen->pMethods
39f0: 2d 3e 78 46 69 6c 65 53 69 7a 65 28 70 53 75 62  ->xFileSize(pSub
3a00: 4f 70 65 6e 2c 20 26 73 7a 29 3b 0a 20 20 69 66  Open, &sz);.  if
3a10: 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc==SQLITE_OK 
3a20: 29 7b 0a 20 20 20 20 71 75 6f 74 61 45 6e 74 65  ){.    quotaEnte
3a30: 72 28 29 3b 0a 20 20 20 20 70 47 72 6f 75 70 20  r();.    pGroup 
3a40: 3d 20 70 46 69 6c 65 2d 3e 70 47 72 6f 75 70 3b  = pFile->pGroup;
3a50: 0a 20 20 20 20 70 47 72 6f 75 70 2d 3e 69 53 69  .    pGroup->iSi
3a60: 7a 65 20 2d 3d 20 70 46 69 6c 65 2d 3e 69 53 69  ze -= pFile->iSi
3a70: 7a 65 3b 0a 20 20 20 20 70 46 69 6c 65 2d 3e 69  ze;.    pFile->i
3a80: 53 69 7a 65 20 3d 20 73 7a 3b 0a 20 20 20 20 70  Size = sz;.    p
3a90: 47 72 6f 75 70 2d 3e 69 53 69 7a 65 20 2b 3d 20  Group->iSize += 
3aa0: 73 7a 3b 0a 20 20 20 20 71 75 6f 74 61 4c 65 61  sz;.    quotaLea
3ab0: 76 65 28 29 3b 0a 20 20 20 20 2a 70 53 69 7a 65  ve();.    *pSize
3ac0: 20 3d 20 73 7a 3b 0a 20 20 7d 0a 20 20 72 65 74   = sz;.  }.  ret
3ad0: 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a 20 50 61  urn rc;.}../* Pa
3ae0: 73 73 20 78 4c 6f 63 6b 20 72 65 71 75 65 73 74  ss xLock request
3af0: 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65  s through to the
3b00: 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 20 75 6e   original VFS un
3b10: 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61 74  changed..*/.stat
3b20: 69 63 20 69 6e 74 20 71 75 6f 74 61 4c 6f 63 6b  ic int quotaLock
3b30: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
3b40: 4f 70 65 6e 2c 20 69 6e 74 20 6c 6f 63 6b 29 7b  Open, int lock){
3b50: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20  .  sqlite3_file 
3b60: 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f 74  *pSubOpen = quot
3b70: 61 53 75 62 4f 70 65 6e 28 70 4f 70 65 6e 29 3b  aSubOpen(pOpen);
3b80: 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62 4f 70  .  return pSubOp
3b90: 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 4c  en->pMethods->xL
3ba0: 6f 63 6b 28 70 53 75 62 4f 70 65 6e 2c 20 6c 6f  ock(pSubOpen, lo
3bb0: 63 6b 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20  ck);.}../* Pass 
3bc0: 78 55 6e 6c 6f 63 6b 20 72 65 71 75 65 73 74 73  xUnlock requests
3bd0: 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20   through to the 
3be0: 6f 72 69 67 69 6e 61 6c 20 56 46 53 20 75 6e 63  original VFS unc
3bf0: 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61 74 69  hanged..*/.stati
3c00: 63 20 69 6e 74 20 71 75 6f 74 61 55 6e 6c 6f 63  c int quotaUnloc
3c10: 6b 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a  k(sqlite3_file *
3c20: 70 4f 70 65 6e 2c 20 69 6e 74 20 6c 6f 63 6b 29  pOpen, int lock)
3c30: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65  {.  sqlite3_file
3c40: 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f   *pSubOpen = quo
3c50: 74 61 53 75 62 4f 70 65 6e 28 70 4f 70 65 6e 29  taSubOpen(pOpen)
3c60: 3b 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62 4f  ;.  return pSubO
3c70: 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78  pen->pMethods->x
3c80: 55 6e 6c 6f 63 6b 28 70 53 75 62 4f 70 65 6e 2c  Unlock(pSubOpen,
3c90: 20 6c 6f 63 6b 29 3b 0a 7d 0a 0a 2f 2a 20 50 61   lock);.}../* Pa
3ca0: 73 73 20 78 43 68 65 63 6b 52 65 73 65 72 76 65  ss xCheckReserve
3cb0: 64 4c 6f 63 6b 20 72 65 71 75 65 73 74 73 20 74  dLock requests t
3cc0: 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72  hrough to the or
3cd0: 69 67 69 6e 61 6c 20 56 46 53 20 75 6e 63 68 61  iginal VFS uncha
3ce0: 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20  nged..*/.static 
3cf0: 69 6e 74 20 71 75 6f 74 61 43 68 65 63 6b 52 65  int quotaCheckRe
3d00: 73 65 72 76 65 64 4c 6f 63 6b 28 73 71 6c 69 74  servedLock(sqlit
3d10: 65 33 5f 66 69 6c 65 20 2a 70 4f 70 65 6e 2c 20  e3_file *pOpen, 
3d20: 69 6e 74 20 2a 70 52 65 73 4f 75 74 29 7b 0a 20  int *pResOut){. 
3d30: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
3d40: 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53  SubOpen = quotaS
3d50: 75 62 4f 70 65 6e 28 70 4f 70 65 6e 29 3b 0a 20  ubOpen(pOpen);. 
3d60: 20 72 65 74 75 72 6e 20 70 53 75 62 4f 70 65 6e   return pSubOpen
3d70: 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 43 68 65  ->pMethods->xChe
3d80: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 28 70  ckReservedLock(p
3d90: 53 75 62 4f 70 65 6e 2c 20 70 52 65 73 4f 75 74  SubOpen, pResOut
3da0: 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 46  );.}../* Pass xF
3db0: 69 6c 65 43 6f 6e 74 72 6f 6c 20 72 65 71 75 65  ileControl reque
3dc0: 73 74 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74  sts through to t
3dd0: 68 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 20  he original VFS 
3de0: 75 6e 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74  unchanged..*/.st
3df0: 61 74 69 63 20 69 6e 74 20 71 75 6f 74 61 4f 70  atic int quotaOp
3e00: 65 6e 43 6f 6e 74 72 6f 6c 28 73 71 6c 69 74 65  enControl(sqlite
3e10: 33 5f 66 69 6c 65 20 2a 70 4f 70 65 6e 2c 20 69  3_file *pOpen, i
3e20: 6e 74 20 6f 70 2c 20 76 6f 69 64 20 2a 70 41 72  nt op, void *pAr
3e30: 67 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69  g){.  sqlite3_fi
3e40: 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71  le *pSubOpen = q
3e50: 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 4f 70 65  uotaSubOpen(pOpe
3e60: 6e 29 3b 0a 20 20 72 65 74 75 72 6e 20 70 53 75  n);.  return pSu
3e70: 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d  bOpen->pMethods-
3e80: 3e 78 46 69 6c 65 43 6f 6e 74 72 6f 6c 28 70 53  >xFileControl(pS
3e90: 75 62 4f 70 65 6e 2c 20 6f 70 2c 20 70 41 72 67  ubOpen, op, pArg
3ea0: 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 53  );.}../* Pass xS
3eb0: 65 63 74 6f 72 53 69 7a 65 20 72 65 71 75 65 73  ectorSize reques
3ec0: 74 73 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68  ts through to th
3ed0: 65 20 6f 72 69 67 69 6e 61 6c 20 56 46 53 20 75  e original VFS u
3ee0: 6e 63 68 61 6e 67 65 64 2e 0a 2a 2f 0a 73 74 61  nchanged..*/.sta
3ef0: 74 69 63 20 69 6e 74 20 71 75 6f 74 61 53 65 63  tic int quotaSec
3f00: 74 6f 72 53 69 7a 65 28 73 71 6c 69 74 65 33 5f  torSize(sqlite3_
3f10: 66 69 6c 65 20 2a 70 4f 70 65 6e 29 7b 0a 20 20  file *pOpen){.  
3f20: 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70 53  sqlite3_file *pS
3f30: 75 62 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53 75  ubOpen = quotaSu
3f40: 62 4f 70 65 6e 28 70 4f 70 65 6e 29 3b 0a 20 20  bOpen(pOpen);.  
3f50: 72 65 74 75 72 6e 20 70 53 75 62 4f 70 65 6e 2d  return pSubOpen-
3f60: 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 53 65 63 74  >pMethods->xSect
3f70: 6f 72 53 69 7a 65 28 70 53 75 62 4f 70 65 6e 29  orSize(pSubOpen)
3f80: 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 44 65  ;.}../* Pass xDe
3f90: 76 69 63 65 43 68 61 72 61 63 74 65 72 69 73 74  viceCharacterist
3fa0: 69 63 73 20 72 65 71 75 65 73 74 73 20 74 68 72  ics requests thr
3fb0: 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69 67  ough to the orig
3fc0: 69 6e 61 6c 20 56 46 53 20 75 6e 63 68 61 6e 67  inal VFS unchang
3fd0: 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  ed..*/.static in
3fe0: 74 20 71 75 6f 74 61 44 65 76 69 63 65 43 68 61  t quotaDeviceCha
3ff0: 72 61 63 74 65 72 69 73 74 69 63 73 28 73 71 6c  racteristics(sql
4000: 69 74 65 33 5f 66 69 6c 65 20 2a 70 4f 70 65 6e  ite3_file *pOpen
4010: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  ){.  sqlite3_fil
4020: 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75  e *pSubOpen = qu
4030: 6f 74 61 53 75 62 4f 70 65 6e 28 70 4f 70 65 6e  otaSubOpen(pOpen
4040: 29 3b 0a 20 20 72 65 74 75 72 6e 20 70 53 75 62  );.  return pSub
4050: 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e  Open->pMethods->
4060: 78 44 65 76 69 63 65 43 68 61 72 61 63 74 65 72  xDeviceCharacter
4070: 69 73 74 69 63 73 28 70 53 75 62 4f 70 65 6e 29  istics(pSubOpen)
4080: 3b 0a 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 53 68  ;.}../* Pass xSh
4090: 6d 4d 61 70 20 72 65 71 75 65 73 74 73 20 74 68  mMap requests th
40a0: 72 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69  rough to the ori
40b0: 67 69 6e 61 6c 20 56 46 53 20 75 6e 63 68 61 6e  ginal VFS unchan
40c0: 67 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ged..*/.static i
40d0: 6e 74 20 71 75 6f 74 61 53 68 6d 4d 61 70 28 0a  nt quotaShmMap(.
40e0: 20 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a    sqlite3_file *
40f0: 70 4f 70 65 6e 2c 20 20 20 20 20 20 20 20 20 20  pOpen,          
4100: 20 20 2f 2a 20 48 61 6e 64 6c 65 20 6f 70 65 6e    /* Handle open
4110: 20 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69 6c   on database fil
4120: 65 20 2a 2f 0a 20 20 69 6e 74 20 69 52 65 67 69  e */.  int iRegi
4130: 6f 6e 2c 20 20 20 20 20 20 20 20 20 20 20 20 20  on,             
4140: 20 20 20 20 20 20 20 2f 2a 20 52 65 67 69 6f 6e         /* Region
4150: 20 74 6f 20 72 65 74 72 69 65 76 65 20 2a 2f 0a   to retrieve */.
4160: 20 20 69 6e 74 20 73 7a 52 65 67 69 6f 6e 2c 20    int szRegion, 
4170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4180: 20 20 2f 2a 20 53 69 7a 65 20 6f 66 20 72 65 67    /* Size of reg
4190: 69 6f 6e 73 20 2a 2f 0a 20 20 69 6e 74 20 62 45  ions */.  int bE
41a0: 78 74 65 6e 64 2c 20 20 20 20 20 20 20 20 20 20  xtend,          
41b0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 72 75            /* Tru
41c0: 65 20 74 6f 20 65 78 74 65 6e 64 20 66 69 6c 65  e to extend file
41d0: 20 69 66 20 6e 65 63 65 73 73 61 72 79 20 2a 2f   if necessary */
41e0: 0a 20 20 76 6f 69 64 20 76 6f 6c 61 74 69 6c 65  .  void volatile
41f0: 20 2a 2a 70 70 20 20 20 20 20 20 20 20 20 20 20   **pp           
4200: 20 20 20 2f 2a 20 4f 55 54 3a 20 4d 61 70 70 65     /* OUT: Mappe
4210: 64 20 6d 65 6d 6f 72 79 20 2a 2f 0a 29 7b 0a 20  d memory */.){. 
4220: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
4230: 53 75 62 4f 70 65 6e 20 3d 20 71 75 6f 74 61 53  SubOpen = quotaS
4240: 75 62 4f 70 65 6e 28 70 4f 70 65 6e 29 3b 0a 20  ubOpen(pOpen);. 
4250: 20 72 65 74 75 72 6e 20 70 53 75 62 4f 70 65 6e   return pSubOpen
4260: 2d 3e 70 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d  ->pMethods->xShm
4270: 4d 61 70 28 70 53 75 62 4f 70 65 6e 2c 20 69 52  Map(pSubOpen, iR
4280: 65 67 69 6f 6e 2c 20 73 7a 52 65 67 69 6f 6e 2c  egion, szRegion,
4290: 20 62 45 78 74 65 6e 64 2c 20 70 70 29 3b 0a 7d   bExtend, pp);.}
42a0: 0a 0a 2f 2a 20 50 61 73 73 20 78 53 68 6d 4c 6f  ../* Pass xShmLo
42b0: 63 6b 20 72 65 71 75 65 73 74 73 20 74 68 72 6f  ck requests thro
42c0: 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69 67 69  ugh to the origi
42d0: 6e 61 6c 20 56 46 53 20 75 6e 63 68 61 6e 67 65  nal VFS unchange
42e0: 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74  d..*/.static int
42f0: 20 71 75 6f 74 61 53 68 6d 4c 6f 63 6b 28 0a 20   quotaShmLock(. 
4300: 20 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70   sqlite3_file *p
4310: 4f 70 65 6e 2c 20 20 20 20 20 20 20 2f 2a 20 44  Open,       /* D
4320: 61 74 61 62 61 73 65 20 66 69 6c 65 20 68 6f 6c  atabase file hol
4330: 64 69 6e 67 20 74 68 65 20 73 68 61 72 65 64 20  ding the shared 
4340: 6d 65 6d 6f 72 79 20 2a 2f 0a 20 20 69 6e 74 20  memory */.  int 
4350: 6f 66 73 74 2c 20 20 20 20 20 20 20 20 20 20 20  ofst,           
4360: 20 20 20 20 20 20 20 2f 2a 20 46 69 72 73 74 20         /* First 
4370: 6c 6f 63 6b 20 74 6f 20 61 63 71 75 69 72 65 20  lock to acquire 
4380: 6f 72 20 72 65 6c 65 61 73 65 20 2a 2f 0a 20 20  or release */.  
4390: 69 6e 74 20 6e 2c 20 20 20 20 20 20 20 20 20 20  int n,          
43a0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75             /* Nu
43b0: 6d 62 65 72 20 6f 66 20 6c 6f 63 6b 73 20 74 6f  mber of locks to
43c0: 20 61 63 71 75 69 72 65 20 6f 72 20 72 65 6c 65   acquire or rele
43d0: 61 73 65 20 2a 2f 0a 20 20 69 6e 74 20 66 6c 61  ase */.  int fla
43e0: 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20  gs              
43f0: 20 20 20 20 2f 2a 20 57 68 61 74 20 74 6f 20 64      /* What to d
4400: 6f 20 77 69 74 68 20 74 68 65 20 6c 6f 63 6b 20  o with the lock 
4410: 2a 2f 0a 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f  */.){.  sqlite3_
4420: 66 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d  file *pSubOpen =
4430: 20 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70 4f   quotaSubOpen(pO
4440: 70 65 6e 29 3b 0a 20 20 72 65 74 75 72 6e 20 70  pen);.  return p
4450: 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f 64  SubOpen->pMethod
4460: 73 2d 3e 78 53 68 6d 4c 6f 63 6b 28 70 53 75 62  s->xShmLock(pSub
4470: 4f 70 65 6e 2c 20 6f 66 73 74 2c 20 6e 2c 20 66  Open, ofst, n, f
4480: 6c 61 67 73 29 3b 0a 7d 0a 0a 2f 2a 20 50 61 73  lags);.}../* Pas
4490: 73 20 78 53 68 6d 42 61 72 72 69 65 72 20 72 65  s xShmBarrier re
44a0: 71 75 65 73 74 73 20 74 68 72 6f 75 67 68 20 74  quests through t
44b0: 6f 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 56  o the original V
44c0: 46 53 20 75 6e 63 68 61 6e 67 65 64 2e 0a 2a 2f  FS unchanged..*/
44d0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 71 75 6f  .static void quo
44e0: 74 61 53 68 6d 42 61 72 72 69 65 72 28 73 71 6c  taShmBarrier(sql
44f0: 69 74 65 33 5f 66 69 6c 65 20 2a 70 4f 70 65 6e  ite3_file *pOpen
4500: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6c  ){.  sqlite3_fil
4510: 65 20 2a 70 53 75 62 4f 70 65 6e 20 3d 20 71 75  e *pSubOpen = qu
4520: 6f 74 61 53 75 62 4f 70 65 6e 28 70 4f 70 65 6e  otaSubOpen(pOpen
4530: 29 3b 0a 20 20 70 53 75 62 4f 70 65 6e 2d 3e 70  );.  pSubOpen->p
4540: 4d 65 74 68 6f 64 73 2d 3e 78 53 68 6d 42 61 72  Methods->xShmBar
4550: 72 69 65 72 28 70 53 75 62 4f 70 65 6e 29 3b 0a  rier(pSubOpen);.
4560: 7d 0a 0a 2f 2a 20 50 61 73 73 20 78 53 68 6d 55  }../* Pass xShmU
4570: 6e 6d 61 70 20 72 65 71 75 65 73 74 73 20 74 68  nmap requests th
4580: 72 6f 75 67 68 20 74 6f 20 74 68 65 20 6f 72 69  rough to the ori
4590: 67 69 6e 61 6c 20 56 46 53 20 75 6e 63 68 61 6e  ginal VFS unchan
45a0: 67 65 64 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69  ged..*/.static i
45b0: 6e 74 20 71 75 6f 74 61 53 68 6d 55 6e 6d 61 70  nt quotaShmUnmap
45c0: 28 73 71 6c 69 74 65 33 5f 66 69 6c 65 20 2a 70  (sqlite3_file *p
45d0: 4f 70 65 6e 2c 20 69 6e 74 20 64 65 6c 65 74 65  Open, int delete
45e0: 46 6c 61 67 29 7b 0a 20 20 73 71 6c 69 74 65 33  Flag){.  sqlite3
45f0: 5f 66 69 6c 65 20 2a 70 53 75 62 4f 70 65 6e 20  _file *pSubOpen 
4600: 3d 20 71 75 6f 74 61 53 75 62 4f 70 65 6e 28 70  = quotaSubOpen(p
4610: 4f 70 65 6e 29 3b 0a 20 20 72 65 74 75 72 6e 20  Open);.  return 
4620: 70 53 75 62 4f 70 65 6e 2d 3e 70 4d 65 74 68 6f  pSubOpen->pMetho
4630: 64 73 2d 3e 78 53 68 6d 55 6e 6d 61 70 28 70 53  ds->xShmUnmap(pS
4640: 75 62 4f 70 65 6e 2c 20 64 65 6c 65 74 65 46 6c  ubOpen, deleteFl
4650: 61 67 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a  ag);.}../*******
4660: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4670: 2a 2a 2a 20 50 75 62 6c 69 63 20 49 6e 74 65 72  *** Public Inter
4680: 66 61 63 65 73 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  faces **********
4690: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
46a0: 2a 2a 2a 2f 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69  ***/./*.** Initi
46b0: 61 6c 69 7a 65 20 74 68 65 20 71 75 6f 74 61 20  alize the quota 
46c0: 56 46 53 20 73 68 69 6d 2e 20 20 55 73 65 20 74  VFS shim.  Use t
46d0: 68 65 20 56 46 53 20 6e 61 6d 65 64 20 7a 4f 72  he VFS named zOr
46e0: 69 67 56 66 73 4e 61 6d 65 0a 2a 2a 20 61 73 20  igVfsName.** as 
46f0: 74 68 65 20 56 46 53 20 74 68 61 74 20 64 6f 65  the VFS that doe
4700: 73 20 74 68 65 20 61 63 74 75 61 6c 20 77 6f 72  s the actual wor
4710: 6b 2e 20 20 55 73 65 20 74 68 65 20 64 65 66 61  k.  Use the defa
4720: 75 6c 74 20 69 66 0a 2a 2a 20 7a 4f 72 69 67 56  ult if.** zOrigV
4730: 66 73 4e 61 6d 65 3d 3d 4e 55 4c 4c 2e 20 20 0a  fsName==NULL.  .
4740: 2a 2a 0a 2a 2a 20 54 68 65 20 71 75 6f 74 61 20  **.** The quota 
4750: 56 46 53 20 73 68 69 6d 20 69 73 20 6e 61 6d 65  VFS shim is name
4760: 64 20 22 71 75 6f 74 61 22 2e 20 20 49 74 20 77  d "quota".  It w
4770: 69 6c 6c 20 62 65 63 6f 6d 65 20 74 68 65 20 64  ill become the d
4780: 65 66 61 75 6c 74 0a 2a 2a 20 56 46 53 20 69 66  efault.** VFS if
4790: 20 6d 61 6b 65 44 65 66 61 75 6c 74 20 69 73 20   makeDefault is 
47a0: 6e 6f 6e 2d 7a 65 72 6f 2e 0a 2a 2a 0a 2a 2a 20  non-zero..**.** 
47b0: 54 48 49 53 20 52 4f 55 54 49 4e 45 20 49 53 20  THIS ROUTINE IS 
47c0: 4e 4f 54 20 54 48 52 45 41 44 53 41 46 45 2e 20  NOT THREADSAFE. 
47d0: 20 43 61 6c 6c 20 74 68 69 73 20 72 6f 75 74 69   Call this routi
47e0: 6e 65 20 65 78 61 63 74 6c 79 20 6f 6e 63 65 0a  ne exactly once.
47f0: 2a 2a 20 64 75 72 69 6e 67 20 73 74 61 72 74 2d  ** during start-
4800: 75 70 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c 69 74  up..*/.int sqlit
4810: 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c  e3_quota_initial
4820: 69 7a 65 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  ize(const char *
4830: 7a 4f 72 69 67 56 66 73 4e 61 6d 65 2c 20 69 6e  zOrigVfsName, in
4840: 74 20 6d 61 6b 65 44 65 66 61 75 6c 74 29 7b 0a  t makeDefault){.
4850: 20 20 73 71 6c 69 74 65 33 5f 76 66 73 20 2a 70    sqlite3_vfs *p
4860: 4f 72 69 67 56 66 73 3b 0a 20 20 69 66 28 20 67  OrigVfs;.  if( g
4870: 51 75 6f 74 61 2e 69 73 49 6e 69 74 69 61 6c 69  Quota.isInitiali
4880: 7a 65 64 20 29 20 72 65 74 75 72 6e 20 53 51 4c  zed ) return SQL
4890: 49 54 45 5f 4d 49 53 55 53 45 3b 0a 20 20 70 4f  ITE_MISUSE;.  pO
48a0: 72 69 67 56 66 73 20 3d 20 73 71 6c 69 74 65 33  rigVfs = sqlite3
48b0: 5f 76 66 73 5f 66 69 6e 64 28 7a 4f 72 69 67 56  _vfs_find(zOrigV
48c0: 66 73 4e 61 6d 65 29 3b 0a 20 20 69 66 28 20 70  fsName);.  if( p
48d0: 4f 72 69 67 56 66 73 3d 3d 30 20 29 20 72 65 74  OrigVfs==0 ) ret
48e0: 75 72 6e 20 53 51 4c 49 54 45 5f 45 52 52 4f 52  urn SQLITE_ERROR
48f0: 3b 0a 20 20 61 73 73 65 72 74 28 20 70 4f 72 69  ;.  assert( pOri
4900: 67 56 66 73 21 3d 26 67 51 75 6f 74 61 2e 73 54  gVfs!=&gQuota.sT
4910: 68 69 73 56 66 73 20 29 3b 0a 20 20 67 51 75 6f  hisVfs );.  gQuo
4920: 74 61 2e 70 4d 75 74 65 78 20 3d 20 73 71 6c 69  ta.pMutex = sqli
4930: 74 65 33 5f 6d 75 74 65 78 5f 61 6c 6c 6f 63 28  te3_mutex_alloc(
4940: 53 51 4c 49 54 45 5f 4d 55 54 45 58 5f 46 41 53  SQLITE_MUTEX_FAS
4950: 54 29 3b 0a 20 20 69 66 28 20 21 67 51 75 6f 74  T);.  if( !gQuot
4960: 61 2e 70 4d 75 74 65 78 20 29 7b 0a 20 20 20 20  a.pMutex ){.    
4970: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e 4f  return SQLITE_NO
4980: 4d 45 4d 3b 0a 20 20 7d 0a 20 20 67 51 75 6f 74  MEM;.  }.  gQuot
4990: 61 2e 69 73 49 6e 69 74 69 61 6c 69 7a 65 64 20  a.isInitialized 
49a0: 3d 20 31 3b 0a 20 20 67 51 75 6f 74 61 2e 70 4f  = 1;.  gQuota.pO
49b0: 72 69 67 56 66 73 20 3d 20 70 4f 72 69 67 56 66  rigVfs = pOrigVf
49c0: 73 3b 0a 20 20 67 51 75 6f 74 61 2e 73 54 68 69  s;.  gQuota.sThi
49d0: 73 56 66 73 20 3d 20 2a 70 4f 72 69 67 56 66 73  sVfs = *pOrigVfs
49e0: 3b 0a 20 20 67 51 75 6f 74 61 2e 73 54 68 69 73  ;.  gQuota.sThis
49f0: 56 66 73 2e 78 4f 70 65 6e 20 3d 20 71 75 6f 74  Vfs.xOpen = quot
4a00: 61 78 4f 70 65 6e 3b 0a 20 20 67 51 75 6f 74 61  axOpen;.  gQuota
4a10: 2e 73 54 68 69 73 56 66 73 2e 73 7a 4f 73 46 69  .sThisVfs.szOsFi
4a20: 6c 65 20 2b 3d 20 73 69 7a 65 6f 66 28 71 75 6f  le += sizeof(quo
4a30: 74 61 4f 70 65 6e 29 3b 0a 20 20 67 51 75 6f 74  taOpen);.  gQuot
4a40: 61 2e 73 54 68 69 73 56 66 73 2e 7a 4e 61 6d 65  a.sThisVfs.zName
4a50: 20 3d 20 22 71 75 6f 74 61 22 3b 0a 20 20 67 51   = "quota";.  gQ
4a60: 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56  uota.sIoMethodsV
4a70: 31 2e 69 56 65 72 73 69 6f 6e 20 3d 20 31 3b 0a  1.iVersion = 1;.
4a80: 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68    gQuota.sIoMeth
4a90: 6f 64 73 56 31 2e 78 43 6c 6f 73 65 20 3d 20 71  odsV1.xClose = q
4aa0: 75 6f 74 61 43 6c 6f 73 65 3b 0a 20 20 67 51 75  uotaClose;.  gQu
4ab0: 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 31  ota.sIoMethodsV1
4ac0: 2e 78 52 65 61 64 20 3d 20 71 75 6f 74 61 52 65  .xRead = quotaRe
4ad0: 61 64 3b 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f  ad;.  gQuota.sIo
4ae0: 4d 65 74 68 6f 64 73 56 31 2e 78 57 72 69 74 65  MethodsV1.xWrite
4af0: 20 3d 20 71 75 6f 74 61 57 72 69 74 65 3b 0a 20   = quotaWrite;. 
4b00: 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f   gQuota.sIoMetho
4b10: 64 73 56 31 2e 78 54 72 75 6e 63 61 74 65 20 3d  dsV1.xTruncate =
4b20: 20 71 75 6f 74 61 54 72 75 6e 63 61 74 65 3b 0a   quotaTruncate;.
4b30: 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68    gQuota.sIoMeth
4b40: 6f 64 73 56 31 2e 78 53 79 6e 63 20 3d 20 71 75  odsV1.xSync = qu
4b50: 6f 74 61 53 79 6e 63 3b 0a 20 20 67 51 75 6f 74  otaSync;.  gQuot
4b60: 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e 78  a.sIoMethodsV1.x
4b70: 46 69 6c 65 53 69 7a 65 20 3d 20 71 75 6f 74 61  FileSize = quota
4b80: 46 69 6c 65 53 69 7a 65 3b 0a 20 20 67 51 75 6f  FileSize;.  gQuo
4b90: 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e  ta.sIoMethodsV1.
4ba0: 78 4c 6f 63 6b 20 3d 20 71 75 6f 74 61 4c 6f 63  xLock = quotaLoc
4bb0: 6b 3b 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d  k;.  gQuota.sIoM
4bc0: 65 74 68 6f 64 73 56 31 2e 78 55 6e 6c 6f 63 6b  ethodsV1.xUnlock
4bd0: 20 3d 20 71 75 6f 74 61 55 6e 6c 6f 63 6b 3b 0a   = quotaUnlock;.
4be0: 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68    gQuota.sIoMeth
4bf0: 6f 64 73 56 31 2e 78 43 68 65 63 6b 52 65 73 65  odsV1.xCheckRese
4c00: 72 76 65 64 4c 6f 63 6b 20 3d 20 71 75 6f 74 61  rvedLock = quota
4c10: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63  CheckReservedLoc
4c20: 6b 3b 0a 20 20 67 51 75 6f 74 61 2e 73 49 6f 4d  k;.  gQuota.sIoM
4c30: 65 74 68 6f 64 73 56 31 2e 78 46 69 6c 65 43 6f  ethodsV1.xFileCo
4c40: 6e 74 72 6f 6c 20 3d 20 71 75 6f 74 61 4f 70 65  ntrol = quotaOpe
4c50: 6e 43 6f 6e 74 72 6f 6c 3b 0a 20 20 67 51 75 6f  nControl;.  gQuo
4c60: 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 31 2e  ta.sIoMethodsV1.
4c70: 78 53 65 63 74 6f 72 53 69 7a 65 20 3d 20 71 75  xSectorSize = qu
4c80: 6f 74 61 53 65 63 74 6f 72 53 69 7a 65 3b 0a 20  otaSectorSize;. 
4c90: 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f   gQuota.sIoMetho
4ca0: 64 73 56 31 2e 78 44 65 76 69 63 65 43 68 61 72  dsV1.xDeviceChar
4cb0: 61 63 74 65 72 69 73 74 69 63 73 20 3d 20 71 75  acteristics = qu
4cc0: 6f 74 61 44 65 76 69 63 65 43 68 61 72 61 63 74  otaDeviceCharact
4cd0: 65 72 69 73 74 69 63 73 3b 0a 20 20 67 51 75 6f  eristics;.  gQuo
4ce0: 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 32 20  ta.sIoMethodsV2 
4cf0: 3d 20 67 51 75 6f 74 61 2e 73 49 6f 4d 65 74 68  = gQuota.sIoMeth
4d00: 6f 64 73 56 31 3b 0a 20 20 67 51 75 6f 74 61 2e  odsV1;.  gQuota.
4d10: 73 49 6f 4d 65 74 68 6f 64 73 56 32 2e 69 56 65  sIoMethodsV2.iVe
4d20: 72 73 69 6f 6e 20 3d 20 32 3b 0a 20 20 67 51 75  rsion = 2;.  gQu
4d30: 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56 32  ota.sIoMethodsV2
4d40: 2e 78 53 68 6d 4d 61 70 20 3d 20 71 75 6f 74 61  .xShmMap = quota
4d50: 53 68 6d 4d 61 70 3b 0a 20 20 67 51 75 6f 74 61  ShmMap;.  gQuota
4d60: 2e 73 49 6f 4d 65 74 68 6f 64 73 56 32 2e 78 53  .sIoMethodsV2.xS
4d70: 68 6d 4c 6f 63 6b 20 3d 20 71 75 6f 74 61 53 68  hmLock = quotaSh
4d80: 6d 4c 6f 63 6b 3b 0a 20 20 67 51 75 6f 74 61 2e  mLock;.  gQuota.
4d90: 73 49 6f 4d 65 74 68 6f 64 73 56 32 2e 78 53 68  sIoMethodsV2.xSh
4da0: 6d 42 61 72 72 69 65 72 20 3d 20 71 75 6f 74 61  mBarrier = quota
4db0: 53 68 6d 42 61 72 72 69 65 72 3b 0a 20 20 67 51  ShmBarrier;.  gQ
4dc0: 75 6f 74 61 2e 73 49 6f 4d 65 74 68 6f 64 73 56  uota.sIoMethodsV
4dd0: 32 2e 78 53 68 6d 55 6e 6d 61 70 20 3d 20 71 75  2.xShmUnmap = qu
4de0: 6f 74 61 53 68 6d 55 6e 6d 61 70 3b 0a 20 20 73  otaShmUnmap;.  s
4df0: 71 6c 69 74 65 33 5f 76 66 73 5f 72 65 67 69 73  qlite3_vfs_regis
4e00: 74 65 72 28 26 67 51 75 6f 74 61 2e 73 54 68 69  ter(&gQuota.sThi
4e10: 73 56 66 73 2c 20 6d 61 6b 65 44 65 66 61 75 6c  sVfs, makeDefaul
4e20: 74 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c  t);.  return SQL
4e30: 49 54 45 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  ITE_OK;.}../*.**
4e40: 20 53 68 75 74 64 6f 77 6e 20 74 68 65 20 71 75   Shutdown the qu
4e50: 6f 74 61 20 73 79 73 74 65 6d 2e 0a 2a 2a 0a 2a  ota system..**.*
4e60: 2a 20 41 6c 6c 20 53 51 4c 69 74 65 20 64 61 74  * All SQLite dat
4e70: 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e  abase connection
4e80: 73 20 6d 75 73 74 20 62 65 20 63 6c 6f 73 65 64  s must be closed
4e90: 20 62 65 66 6f 72 65 20 63 61 6c 6c 69 6e 67 20   before calling 
4ea0: 74 68 69 73 0a 2a 2a 20 72 6f 75 74 69 6e 65 2e  this.** routine.
4eb0: 0a 2a 2a 0a 2a 2a 20 54 48 49 53 20 52 4f 55 54  .**.** THIS ROUT
4ec0: 49 4e 45 20 49 53 20 4e 4f 54 20 54 48 52 45 41  INE IS NOT THREA
4ed0: 44 53 41 46 45 2e 20 20 43 61 6c 6c 20 74 68 69  DSAFE.  Call thi
4ee0: 73 20 72 6f 75 74 69 6e 65 20 65 78 61 63 74 6c  s routine exactl
4ef0: 79 20 6f 6e 65 20 77 68 69 6c 65 0a 2a 2a 20 73  y one while.** s
4f00: 68 75 74 74 69 6e 67 20 64 6f 77 6e 20 69 6e 20  hutting down in 
4f10: 6f 72 64 65 72 20 74 6f 20 66 72 65 65 20 61 6c  order to free al
4f20: 6c 20 72 65 6d 61 69 6e 69 6e 67 20 71 75 6f 74  l remaining quot
4f30: 61 20 67 72 6f 75 70 73 2e 0a 2a 2f 0a 69 6e 74  a groups..*/.int
4f40: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73   sqlite3_quota_s
4f50: 68 75 74 64 6f 77 6e 28 76 6f 69 64 29 7b 0a 20  hutdown(void){. 
4f60: 20 71 75 6f 74 61 47 72 6f 75 70 20 2a 70 3b 0a   quotaGroup *p;.
4f70: 20 20 69 66 28 20 67 51 75 6f 74 61 2e 69 73 49    if( gQuota.isI
4f80: 6e 69 74 69 61 6c 69 7a 65 64 3d 3d 30 20 29 20  nitialized==0 ) 
4f90: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4d 49  return SQLITE_MI
4fa0: 53 55 53 45 3b 0a 20 20 66 6f 72 28 70 3d 67 51  SUSE;.  for(p=gQ
4fb0: 75 6f 74 61 2e 70 47 72 6f 75 70 3b 20 70 3b 20  uota.pGroup; p; 
4fc0: 70 3d 70 2d 3e 70 4e 65 78 74 29 7b 0a 20 20 20  p=p->pNext){.   
4fd0: 20 69 66 28 20 70 2d 3e 70 46 69 6c 65 20 29 20   if( p->pFile ) 
4fe0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4d 49  return SQLITE_MI
4ff0: 53 55 53 45 3b 0a 20 20 7d 0a 20 20 77 68 69 6c  SUSE;.  }.  whil
5000: 65 28 20 67 51 75 6f 74 61 2e 70 47 72 6f 75 70  e( gQuota.pGroup
5010: 20 29 7b 0a 20 20 20 20 71 75 6f 74 61 47 72 6f   ){.    quotaGro
5020: 75 70 20 2a 70 20 3d 20 67 51 75 6f 74 61 2e 70  up *p = gQuota.p
5030: 47 72 6f 75 70 3b 0a 20 20 20 20 67 51 75 6f 74  Group;.    gQuot
5040: 61 2e 70 47 72 6f 75 70 20 3d 20 70 2d 3e 70 4e  a.pGroup = p->pN
5050: 65 78 74 3b 0a 20 20 20 20 73 71 6c 69 74 65 33  ext;.    sqlite3
5060: 5f 66 72 65 65 28 70 29 3b 0a 20 20 7d 0a 20 20  _free(p);.  }.  
5070: 67 51 75 6f 74 61 2e 69 73 49 6e 69 74 69 61 6c  gQuota.isInitial
5080: 69 7a 65 64 20 3d 20 30 3b 0a 20 20 73 71 6c 69  ized = 0;.  sqli
5090: 74 65 33 5f 6d 75 74 65 78 5f 66 72 65 65 28 67  te3_mutex_free(g
50a0: 51 75 6f 74 61 2e 70 4d 75 74 65 78 29 3b 0a 20  Quota.pMutex);. 
50b0: 20 73 71 6c 69 74 65 33 5f 76 66 73 5f 75 6e 72   sqlite3_vfs_unr
50c0: 65 67 69 73 74 65 72 28 26 67 51 75 6f 74 61 2e  egister(&gQuota.
50d0: 73 54 68 69 73 56 66 73 29 3b 0a 20 20 6d 65 6d  sThisVfs);.  mem
50e0: 73 65 74 28 26 67 51 75 6f 74 61 2c 20 30 2c 20  set(&gQuota, 0, 
50f0: 73 69 7a 65 6f 66 28 67 51 75 6f 74 61 29 29 3b  sizeof(gQuota));
5100: 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45  .  return SQLITE
5110: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 43 72  _OK;.}../*.** Cr
5120: 65 61 74 65 20 6f 72 20 64 65 73 74 72 6f 79 20  eate or destroy 
5130: 61 20 71 75 6f 74 61 20 67 72 6f 75 70 2e 0a 2a  a quota group..*
5140: 2a 0a 2a 2a 20 54 68 65 20 71 75 6f 74 61 20 67  *.** The quota g
5150: 72 6f 75 70 20 69 73 20 64 65 66 69 6e 65 64 20  roup is defined 
5160: 62 79 20 74 68 65 20 7a 50 61 74 74 65 72 6e 2e  by the zPattern.
5170: 20 20 57 68 65 6e 20 63 61 6c 6c 69 6e 67 20 74    When calling t
5180: 68 69 73 20 72 6f 75 74 69 6e 65 0a 2a 2a 20 77  his routine.** w
5190: 69 74 68 20 61 20 7a 50 61 74 74 65 72 6e 20 66  ith a zPattern f
51a0: 6f 72 20 61 20 71 75 6f 74 61 20 67 72 6f 75 70  or a quota group
51b0: 20 74 68 61 74 20 61 6c 72 65 61 64 79 20 65 78   that already ex
51c0: 69 73 74 73 2c 20 74 68 69 73 20 72 6f 75 74 69  ists, this routi
51d0: 6e 65 0a 2a 2a 20 6d 65 72 65 6c 79 20 75 70 64  ne.** merely upd
51e0: 61 74 65 73 20 74 68 65 20 69 4c 69 6d 69 74 2c  ates the iLimit,
51f0: 20 78 43 61 6c 6c 62 61 63 6b 2c 20 61 6e 64 20   xCallback, and 
5200: 70 41 72 67 20 76 61 6c 75 65 73 20 66 6f 72 20  pArg values for 
5210: 74 68 61 74 20 71 75 6f 74 61 0a 2a 2a 20 67 72  that quota.** gr
5220: 6f 75 70 2e 20 20 49 66 20 7a 50 61 74 74 65 72  oup.  If zPatter
5230: 6e 20 69 73 20 6e 65 77 2c 20 74 68 65 6e 20 61  n is new, then a
5240: 20 6e 65 77 20 71 75 6f 74 61 20 67 72 6f 75 70   new quota group
5250: 20 69 73 20 63 72 65 61 74 65 64 2e 0a 2a 2a 0a   is created..**.
5260: 2a 2a 20 49 66 20 74 68 65 20 69 4c 69 6d 69 74  ** If the iLimit
5270: 20 66 6f 72 20 61 20 71 75 6f 74 61 20 67 72 6f   for a quota gro
5280: 75 70 20 69 73 20 73 65 74 20 74 6f 20 7a 65 72  up is set to zer
5290: 6f 2c 20 74 68 65 6e 20 74 68 65 20 71 75 6f 74  o, then the quot
52a0: 61 20 67 72 6f 75 70 0a 2a 2a 20 69 73 20 64 69  a group.** is di
52b0: 73 61 62 6c 65 64 20 61 6e 64 20 77 69 6c 6c 20  sabled and will 
52c0: 62 65 20 64 65 6c 65 74 65 64 20 77 68 65 6e 20  be deleted when 
52d0: 74 68 65 20 6c 61 73 74 20 64 61 74 61 62 61 73  the last databas
52e0: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 75 73 69  e connection usi
52f0: 6e 67 0a 2a 2a 20 74 68 65 20 71 75 6f 74 61 20  ng.** the quota 
5300: 67 72 6f 75 70 20 69 73 20 63 6c 6f 73 65 64 2e  group is closed.
5310: 0a 2a 2a 0a 2a 2a 20 43 61 6c 6c 69 6e 67 20 74  .**.** Calling t
5320: 68 69 73 20 72 6f 75 74 69 6e 65 20 6f 6e 20 61  his routine on a
5330: 20 7a 50 61 74 74 65 72 6e 20 74 68 61 74 20 64   zPattern that d
5340: 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 20 61 6e  oes not exist an
5350: 64 20 77 69 74 68 20 61 0a 2a 2a 20 7a 65 72 6f  d with a.** zero
5360: 20 69 4c 69 6d 69 74 20 69 73 20 61 20 6e 6f 2d   iLimit is a no-
5370: 6f 70 2e 0a 2a 2a 0a 2a 2a 20 41 20 71 75 6f 74  op..**.** A quot
5380: 61 20 67 72 6f 75 70 20 6d 75 73 74 20 65 78 69  a group must exi
5390: 73 74 20 77 69 74 68 20 61 20 6e 6f 6e 2d 7a 65  st with a non-ze
53a0: 72 6f 20 69 4c 69 6d 69 74 20 70 72 69 6f 72 20  ro iLimit prior 
53b0: 74 6f 20 6f 70 65 6e 69 6e 67 0a 2a 2a 20 64 61  to opening.** da
53c0: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f  tabase connectio
53d0: 6e 73 20 69 66 20 74 68 6f 73 65 20 63 6f 6e 6e  ns if those conn
53e0: 65 63 74 69 6f 6e 73 20 61 72 65 20 74 6f 20 70  ections are to p
53f0: 61 72 74 69 63 69 70 61 74 65 20 69 6e 20 74 68  articipate in th
5400: 65 0a 2a 2a 20 71 75 6f 74 61 20 67 72 6f 75 70  e.** quota group
5410: 2e 20 20 43 72 65 61 74 69 6e 67 20 61 20 71 75  .  Creating a qu
5420: 6f 74 61 20 67 72 6f 75 70 20 64 6f 65 73 20 6e  ota group does n
5430: 6f 74 20 61 66 66 65 63 74 20 64 61 74 61 62 61  ot affect databa
5440: 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 0a 2a  se connections.*
5450: 2a 20 74 68 61 74 20 61 72 65 20 61 6c 72 65 61  * that are alrea
5460: 64 79 20 6f 70 65 6e 2e 0a 2a 2f 0a 69 6e 74 20  dy open..*/.int 
5470: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65  sqlite3_quota_se
5480: 74 28 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  t(.  const char 
5490: 2a 7a 50 61 74 74 65 72 6e 2c 20 20 20 20 20 20  *zPattern,      
54a0: 20 20 20 20 20 2f 2a 20 54 68 65 20 66 69 6c 65       /* The file
54b0: 6e 61 6d 65 20 70 61 74 74 65 72 6e 20 2a 2f 0a  name pattern */.
54c0: 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20    sqlite3_int64 
54d0: 69 4c 69 6d 69 74 2c 20 20 20 20 20 20 20 20 20  iLimit,         
54e0: 20 20 2f 2a 20 4e 65 77 20 71 75 6f 74 61 20 74    /* New quota t
54f0: 6f 20 73 65 74 20 66 6f 72 20 74 68 69 73 20 71  o set for this q
5500: 75 6f 74 61 20 67 72 6f 75 70 20 2a 2f 0a 20 20  uota group */.  
5510: 76 6f 69 64 20 28 2a 78 43 61 6c 6c 62 61 63 6b  void (*xCallback
5520: 29 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20  )(              
5530: 2f 2a 20 43 61 6c 6c 62 61 63 6b 20 69 6e 76 6f  /* Callback invo
5540: 6b 65 64 20 77 68 65 6e 20 67 6f 69 6e 67 20 6f  ked when going o
5550: 76 65 72 20 71 75 6f 74 61 20 2a 2f 0a 20 20 20  ver quota */.   
5560: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 46    const char *zF
5570: 69 6c 65 6e 61 6d 65 2c 20 20 20 20 20 20 20 20  ilename,        
5580: 20 2f 2a 20 4e 61 6d 65 20 6f 66 20 66 69 6c 65   /* Name of file
5590: 20 77 68 6f 73 65 20 73 69 7a 65 20 69 6e 63 72   whose size incr
55a0: 65 61 73 65 73 20 2a 2f 0a 20 20 20 20 20 73 71  eases */.     sq
55b0: 6c 69 74 65 33 5f 69 6e 74 36 34 20 2a 70 69 4c  lite3_int64 *piL
55c0: 69 6d 69 74 2c 20 20 20 20 20 20 20 20 2f 2a 20  imit,        /* 
55d0: 49 4e 2f 4f 55 54 3a 20 54 68 65 20 63 75 72 72  IN/OUT: The curr
55e0: 65 6e 74 20 6c 69 6d 69 74 20 2a 2f 0a 20 20 20  ent limit */.   
55f0: 20 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20    sqlite3_int64 
5600: 69 53 69 7a 65 2c 20 20 20 20 20 20 20 20 20 20  iSize,          
5610: 20 2f 2a 20 54 6f 74 61 6c 20 73 69 7a 65 20 6f   /* Total size o
5620: 66 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 74  f all files in t
5630: 68 65 20 67 72 6f 75 70 20 2a 2f 0a 20 20 20 20  he group */.    
5640: 20 76 6f 69 64 20 2a 70 41 72 67 20 20 20 20 20   void *pArg     
5650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5660: 2f 2a 20 43 6c 69 65 6e 74 20 64 61 74 61 20 2a  /* Client data *
5670: 2f 0a 20 20 29 2c 0a 20 20 76 6f 69 64 20 2a 70  /.  ),.  void *p
5680: 41 72 67 20 20 20 20 20 20 20 20 20 20 20 20 20  Arg             
5690: 20 20 20 20 20 20 20 20 20 2f 2a 20 63 6c 69 65           /* clie
56a0: 6e 74 20 64 61 74 61 20 70 61 73 73 65 64 20 74  nt data passed t
56b0: 68 72 75 20 74 6f 20 63 61 6c 6c 62 61 63 6b 20  hru to callback 
56c0: 2a 2f 0a 29 7b 0a 20 20 71 75 6f 74 61 47 72 6f  */.){.  quotaGro
56d0: 75 70 20 2a 70 47 72 6f 75 70 3b 0a 20 20 71 75  up *pGroup;.  qu
56e0: 6f 74 61 45 6e 74 65 72 28 29 3b 0a 20 20 70 47  otaEnter();.  pG
56f0: 72 6f 75 70 20 3d 20 67 51 75 6f 74 61 2e 70 47  roup = gQuota.pG
5700: 72 6f 75 70 3b 0a 20 20 77 68 69 6c 65 28 20 70  roup;.  while( p
5710: 47 72 6f 75 70 20 26 26 20 73 74 72 63 6d 70 28  Group && strcmp(
5720: 70 47 72 6f 75 70 2d 3e 7a 50 61 74 74 65 72 6e  pGroup->zPattern
5730: 2c 20 7a 50 61 74 74 65 72 6e 29 21 3d 30 20 29  , zPattern)!=0 )
5740: 7b 0a 20 20 20 20 70 47 72 6f 75 70 20 3d 20 70  {.    pGroup = p
5750: 47 72 6f 75 70 2d 3e 70 4e 65 78 74 3b 0a 20 20  Group->pNext;.  
5760: 7d 0a 20 20 69 66 28 20 70 47 72 6f 75 70 3d 3d  }.  if( pGroup==
5770: 30 20 26 26 20 69 4c 69 6d 69 74 3e 30 20 29 7b  0 && iLimit>0 ){
5780: 0a 20 20 20 20 69 6e 74 20 6e 50 61 74 74 65 72  .    int nPatter
5790: 6e 20 3d 20 73 74 72 6c 65 6e 28 7a 50 61 74 74  n = strlen(zPatt
57a0: 65 72 6e 29 3b 0a 20 20 20 20 70 47 72 6f 75 70  ern);.    pGroup
57b0: 20 3d 20 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f   = sqlite3_mallo
57c0: 63 28 20 73 69 7a 65 6f 66 28 2a 70 47 72 6f 75  c( sizeof(*pGrou
57d0: 70 29 20 2b 20 6e 50 61 74 74 65 72 6e 20 2b 20  p) + nPattern + 
57e0: 31 20 29 3b 0a 20 20 20 20 69 66 28 20 70 47 72  1 );.    if( pGr
57f0: 6f 75 70 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20  oup==0 ){.      
5800: 71 75 6f 74 61 4c 65 61 76 65 28 29 3b 0a 20 20  quotaLeave();.  
5810: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
5820: 45 5f 4e 4f 4d 45 4d 3b 0a 20 20 20 20 7d 0a 20  E_NOMEM;.    }. 
5830: 20 20 20 6d 65 6d 73 65 74 28 70 47 72 6f 75 70     memset(pGroup
5840: 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 47 72  , 0, sizeof(*pGr
5850: 6f 75 70 29 29 3b 0a 20 20 20 20 70 47 72 6f 75  oup));.    pGrou
5860: 70 2d 3e 7a 50 61 74 74 65 72 6e 20 3d 20 28 63  p->zPattern = (c
5870: 68 61 72 2a 29 26 70 47 72 6f 75 70 5b 31 5d 3b  har*)&pGroup[1];
5880: 0a 20 20 20 20 6d 65 6d 63 70 79 28 28 63 68 61  .    memcpy((cha
5890: 72 20 2a 29 70 47 72 6f 75 70 2d 3e 7a 50 61 74  r *)pGroup->zPat
58a0: 74 65 72 6e 2c 20 7a 50 61 74 74 65 72 6e 2c 20  tern, zPattern, 
58b0: 6e 50 61 74 74 65 72 6e 2b 31 29 3b 0a 20 20 20  nPattern+1);.   
58c0: 20 69 66 28 20 67 51 75 6f 74 61 2e 70 47 72 6f   if( gQuota.pGro
58d0: 75 70 20 29 20 67 51 75 6f 74 61 2e 70 47 72 6f  up ) gQuota.pGro
58e0: 75 70 2d 3e 70 70 50 72 65 76 20 3d 20 26 70 47  up->ppPrev = &pG
58f0: 72 6f 75 70 2d 3e 70 4e 65 78 74 3b 0a 20 20 20  roup->pNext;.   
5900: 20 70 47 72 6f 75 70 2d 3e 70 4e 65 78 74 20 3d   pGroup->pNext =
5910: 20 67 51 75 6f 74 61 2e 70 47 72 6f 75 70 3b 0a   gQuota.pGroup;.
5920: 20 20 20 20 70 47 72 6f 75 70 2d 3e 70 70 50 72      pGroup->ppPr
5930: 65 76 20 3d 20 26 67 51 75 6f 74 61 2e 70 47 72  ev = &gQuota.pGr
5940: 6f 75 70 3b 0a 20 20 20 20 67 51 75 6f 74 61 2e  oup;.    gQuota.
5950: 70 47 72 6f 75 70 20 3d 20 70 47 72 6f 75 70 3b  pGroup = pGroup;
5960: 0a 20 20 7d 0a 20 20 70 47 72 6f 75 70 2d 3e 69  .  }.  pGroup->i
5970: 4c 69 6d 69 74 20 3d 20 69 4c 69 6d 69 74 3b 0a  Limit = iLimit;.
5980: 20 20 70 47 72 6f 75 70 2d 3e 78 43 61 6c 6c 62    pGroup->xCallb
5990: 61 63 6b 20 3d 20 78 43 61 6c 6c 62 61 63 6b 3b  ack = xCallback;
59a0: 0a 20 20 70 47 72 6f 75 70 2d 3e 70 41 72 67 20  .  pGroup->pArg 
59b0: 3d 20 70 41 72 67 3b 0a 20 20 71 75 6f 74 61 47  = pArg;.  quotaG
59c0: 72 6f 75 70 44 65 72 65 66 28 70 47 72 6f 75 70  roupDeref(pGroup
59d0: 29 3b 0a 20 20 71 75 6f 74 61 4c 65 61 76 65 28  );.  quotaLeave(
59e0: 29 3b 0a 20 20 72 65 74 75 72 6e 20 53 51 4c 49  );.  return SQLI
59f0: 54 45 5f 4f 4b 3b 0a 7d 0a 0a 20 20 0a 2f 2a 2a  TE_OK;.}..  ./**
5a00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5a10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 54 65 73 74  *********** Test
5a20: 20 43 6f 64 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   Code **********
5a30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5a40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 23 69 66 64 65  *********/.#ifde
5a50: 66 20 53 51 4c 49 54 45 5f 54 45 53 54 0a 23 69  f SQLITE_TEST.#i
5a60: 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 0a  nclude <tcl.h>..
5a70: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 54  typedef struct T
5a80: 63 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 20  clQuotaCallback 
5a90: 54 63 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b  TclQuotaCallback
5aa0: 3b 0a 73 74 72 75 63 74 20 54 63 6c 51 75 6f 74  ;.struct TclQuot
5ab0: 61 43 61 6c 6c 62 61 63 6b 20 7b 0a 20 20 54 63  aCallback {.  Tc
5ac0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
5ad0: 3b 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 53 63  ;.  Tcl_Obj *pSc
5ae0: 72 69 70 74 3b 0a 20 20 54 63 6c 51 75 6f 74 61  ript;.  TclQuota
5af0: 43 61 6c 6c 62 61 63 6b 20 2a 70 4e 65 78 74 3b  Callback *pNext;
5b00: 0a 7d 3b 0a 73 74 61 74 69 63 20 54 63 6c 51 75  .};.static TclQu
5b10: 6f 74 61 43 61 6c 6c 62 61 63 6b 20 2a 70 51 75  otaCallback *pQu
5b20: 6f 74 61 43 61 6c 6c 62 61 63 6b 4c 69 73 74 20  otaCallbackList 
5b30: 3d 20 30 3b 0a 0a 65 78 74 65 72 6e 20 63 6f 6e  = 0;..extern con
5b40: 73 74 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33  st char *sqlite3
5b50: 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 69 6e  TestErrorName(in
5b60: 74 29 3b 0a 0a 73 74 61 74 69 63 20 76 6f 69 64  t);..static void
5b70: 20 74 63 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63   tclQuotaCallbac
5b80: 6b 28 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20  k(.  const char 
5b90: 2a 7a 46 69 6c 65 6e 61 6d 65 2c 20 20 20 20 20  *zFilename,     
5ba0: 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66 20       /* Name of 
5bb0: 66 69 6c 65 20 77 68 6f 73 65 20 73 69 7a 65 20  file whose size 
5bc0: 69 6e 63 72 65 61 73 65 73 20 2a 2f 0a 20 20 73  increases */.  s
5bd0: 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 2a 70 69  qlite3_int64 *pi
5be0: 4c 69 6d 69 74 2c 20 20 20 20 20 20 20 20 20 2f  Limit,         /
5bf0: 2a 20 49 4e 2f 4f 55 54 3a 20 54 68 65 20 63 75  * IN/OUT: The cu
5c00: 72 72 65 6e 74 20 6c 69 6d 69 74 20 2a 2f 0a 20  rrent limit */. 
5c10: 20 73 71 6c 69 74 65 33 5f 69 6e 74 36 34 20 69   sqlite3_int64 i
5c20: 53 69 7a 65 2c 20 20 20 20 20 20 20 20 20 20 20  Size,           
5c30: 20 2f 2a 20 54 6f 74 61 6c 20 73 69 7a 65 20 6f   /* Total size o
5c40: 66 20 61 6c 6c 20 66 69 6c 65 73 20 69 6e 20 74  f all files in t
5c50: 68 65 20 67 72 6f 75 70 20 2a 2f 0a 20 20 76 6f  he group */.  vo
5c60: 69 64 20 2a 70 41 72 67 20 20 20 20 20 20 20 20  id *pArg        
5c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
5c80: 20 43 6c 69 65 6e 74 20 64 61 74 61 20 2a 2f 0a   Client data */.
5c90: 29 7b 0a 20 20 54 63 6c 51 75 6f 74 61 43 61 6c  ){.  TclQuotaCal
5ca0: 6c 62 61 63 6b 20 2a 70 3b 20 20 20 20 20 20 20  lback *p;       
5cb0: 20 20 20 20 20 2f 2a 20 43 61 6c 6c 62 61 63 6b       /* Callback
5cc0: 20 73 63 72 69 70 74 20 6f 62 6a 65 63 74 20 2a   script object *
5cd0: 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 45 76  /.  Tcl_Obj *pEv
5ce0: 61 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20  al;             
5cf0: 20 20 20 20 2f 2a 20 53 63 72 69 70 74 20 74 6f      /* Script to
5d00: 20 65 76 61 6c 75 61 74 65 20 2a 2f 0a 20 20 54   evaluate */.  T
5d10: 63 6c 5f 4f 62 6a 20 2a 70 56 61 72 6e 61 6d 65  cl_Obj *pVarname
5d20: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f  ;              /
5d30: 2a 20 4e 61 6d 65 20 6f 66 20 76 61 72 69 61 62  * Name of variab
5d40: 6c 65 20 74 6f 20 70 61 73 73 20 61 73 20 32 6e  le to pass as 2n
5d50: 64 20 61 72 67 20 2a 2f 0a 20 20 75 6e 73 69 67  d arg */.  unsig
5d60: 6e 65 64 20 69 6e 74 20 72 6e 64 3b 20 20 20 20  ned int rnd;    
5d70: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 52 61             /* Ra
5d80: 6e 64 6f 6d 20 70 61 72 74 20 6f 66 20 70 56 61  ndom part of pVa
5d90: 72 6e 61 6d 65 20 2a 2f 0a 20 20 69 6e 74 20 72  rname */.  int r
5da0: 63 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20  c;              
5db0: 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 54 63             /* Tc
5dc0: 6c 20 65 72 72 6f 72 20 63 6f 64 65 20 2a 2f 0a  l error code */.
5dd0: 0a 20 20 70 20 3d 20 28 54 63 6c 51 75 6f 74 61  .  p = (TclQuota
5de0: 43 61 6c 6c 62 61 63 6b 20 2a 29 70 41 72 67 3b  Callback *)pArg;
5df0: 0a 0a 20 20 70 56 61 72 6e 61 6d 65 20 3d 20 54  ..  pVarname = T
5e00: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
5e10: 22 3a 3a 70 69 4c 69 6d 69 74 5f 22 2c 20 2d 31  "::piLimit_", -1
5e20: 29 3b 0a 20 20 54 63 6c 5f 49 6e 63 72 52 65 66  );.  Tcl_IncrRef
5e30: 43 6f 75 6e 74 28 70 56 61 72 6e 61 6d 65 29 3b  Count(pVarname);
5e40: 0a 20 20 73 71 6c 69 74 65 33 5f 72 61 6e 64 6f  .  sqlite3_rando
5e50: 6d 6e 65 73 73 28 73 69 7a 65 6f 66 28 72 6e 64  mness(sizeof(rnd
5e60: 29 2c 20 28 76 6f 69 64 20 2a 29 26 72 6e 64 29  ), (void *)&rnd)
5e70: 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64 4f 62  ;.  Tcl_AppendOb
5e80: 6a 54 6f 4f 62 6a 28 70 56 61 72 6e 61 6d 65 2c  jToObj(pVarname,
5e90: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 28   Tcl_NewIntObj((
5ea0: 69 6e 74 29 28 72 6e 64 26 30 78 37 46 46 46 46  int)(rnd&0x7FFFF
5eb0: 46 46 46 29 29 29 3b 0a 20 20 54 63 6c 5f 4f 62  FFF)));.  Tcl_Ob
5ec0: 6a 53 65 74 56 61 72 32 28 70 2d 3e 69 6e 74 65  jSetVar2(p->inte
5ed0: 72 70 2c 20 70 56 61 72 6e 61 6d 65 2c 20 30 2c  rp, pVarname, 0,
5ee0: 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 4f   Tcl_NewWideIntO
5ef0: 62 6a 28 2a 70 69 4c 69 6d 69 74 29 2c 20 30 29  bj(*piLimit), 0)
5f00: 3b 0a 0a 20 20 70 45 76 61 6c 20 3d 20 54 63 6c  ;..  pEval = Tcl
5f10: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 70 2d  _DuplicateObj(p-
5f20: 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 54 63 6c  >pScript);.  Tcl
5f30: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 70 45  _IncrRefCount(pE
5f40: 76 61 6c 29 3b 0a 20 20 54 63 6c 5f 4c 69 73 74  val);.  Tcl_List
5f50: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
5f60: 28 30 2c 20 70 45 76 61 6c 2c 20 54 63 6c 5f 4e  (0, pEval, Tcl_N
5f70: 65 77 53 74 72 69 6e 67 4f 62 6a 28 7a 46 69 6c  ewStringObj(zFil
5f80: 65 6e 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 54  ename, -1));.  T
5f90: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
5fa0: 45 6c 65 6d 65 6e 74 28 30 2c 20 70 45 76 61 6c  Element(0, pEval
5fb0: 2c 20 70 56 61 72 6e 61 6d 65 29 3b 0a 20 20 54  , pVarname);.  T
5fc0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
5fd0: 45 6c 65 6d 65 6e 74 28 30 2c 20 70 45 76 61 6c  Element(0, pEval
5fe0: 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74  , Tcl_NewWideInt
5ff0: 4f 62 6a 28 69 53 69 7a 65 29 29 3b 0a 20 20 72  Obj(iSize));.  r
6000: 63 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45  c = Tcl_EvalObjE
6010: 78 28 70 2d 3e 69 6e 74 65 72 70 2c 20 70 45 76  x(p->interp, pEv
6020: 61 6c 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f  al, TCL_EVAL_GLO
6030: 42 41 4c 29 3b 0a 0a 20 20 69 66 28 20 72 63 3d  BAL);..  if( rc=
6040: 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 20 20 54  =TCL_OK ){.    T
6050: 63 6c 5f 4f 62 6a 20 2a 70 4c 69 6d 69 74 20 3d  cl_Obj *pLimit =
6060: 20 54 63 6c 5f 4f 62 6a 47 65 74 56 61 72 32 28   Tcl_ObjGetVar2(
6070: 70 2d 3e 69 6e 74 65 72 70 2c 20 70 56 61 72 6e  p->interp, pVarn
6080: 61 6d 65 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20  ame, 0, 0);.    
6090: 72 63 20 3d 20 54 63 6c 5f 47 65 74 57 69 64 65  rc = Tcl_GetWide
60a0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 70 2d 3e 69 6e  IntFromObj(p->in
60b0: 74 65 72 70 2c 20 70 4c 69 6d 69 74 2c 20 70 69  terp, pLimit, pi
60c0: 4c 69 6d 69 74 29 3b 0a 20 20 20 20 54 63 6c 5f  Limit);.    Tcl_
60d0: 55 6e 73 65 74 56 61 72 28 70 2d 3e 69 6e 74 65  UnsetVar(p->inte
60e0: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  rp, Tcl_GetStrin
60f0: 67 28 70 56 61 72 6e 61 6d 65 29 2c 20 30 29 3b  g(pVarname), 0);
6100: 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 44 65 63 72  .  }..  Tcl_Decr
6110: 52 65 66 43 6f 75 6e 74 28 70 45 76 61 6c 29 3b  RefCount(pEval);
6120: 0a 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f  .  Tcl_DecrRefCo
6130: 75 6e 74 28 70 56 61 72 6e 61 6d 65 29 3b 0a 20  unt(pVarname);. 
6140: 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20   if( rc!=TCL_OK 
6150: 29 20 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64  ) Tcl_Background
6160: 45 72 72 6f 72 28 70 2d 3e 69 6e 74 65 72 70 29  Error(p->interp)
6170: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 74 63 6c 63 6d  ;.}../*.** tclcm
6180: 64 3a 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  d: sqlite3_quota
6190: 5f 69 6e 69 74 69 61 6c 69 7a 65 20 4e 41 4d 45  _initialize NAME
61a0: 20 4d 41 4b 45 44 45 46 41 55 4c 54 0a 2a 2f 0a   MAKEDEFAULT.*/.
61b0: 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74 5f  static int test_
61c0: 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69 7a 65  quota_initialize
61d0: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e  (.  void * clien
61e0: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74  tData,.  Tcl_Int
61f0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69  erp *interp,.  i
6200: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f  nt objc,.  Tcl_O
6210: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
6220: 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 72  .){.  const char
6230: 20 2a 7a 4e 61 6d 65 3b 20 20 20 20 20 20 20 20   *zName;        
6240: 20 20 20 20 20 20 2f 2a 20 4e 61 6d 65 20 6f 66        /* Name of
6250: 20 6e 65 77 20 71 75 6f 74 61 20 56 46 53 20 2a   new quota VFS *
6260: 2f 0a 20 20 69 6e 74 20 6d 61 6b 65 44 65 66 61  /.  int makeDefa
6270: 75 6c 74 3b 20 20 20 20 20 20 20 20 20 20 20 20  ult;            
6280: 20 20 20 20 2f 2a 20 54 72 75 65 20 74 6f 20 6d      /* True to m
6290: 61 6b 65 20 74 68 65 20 6e 65 77 20 56 46 53 20  ake the new VFS 
62a0: 74 68 65 20 64 65 66 61 75 6c 74 20 2a 2f 0a 20  the default */. 
62b0: 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20 20 20   int rc;        
62c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
62d0: 20 2f 2a 20 56 61 6c 75 65 20 72 65 74 75 72 6e   /* Value return
62e0: 65 64 20 62 79 20 71 75 6f 74 61 5f 69 6e 69 74  ed by quota_init
62f0: 69 61 6c 69 7a 65 28 29 20 2a 2f 0a 0a 20 20 2f  ialize() */..  /
6300: 2a 20 50 72 6f 63 65 73 73 20 61 72 67 75 6d 65  * Process argume
6310: 6e 74 73 20 2a 2f 0a 20 20 69 66 28 20 6f 62 6a  nts */.  if( obj
6320: 63 21 3d 33 20 29 7b 0a 20 20 20 20 54 63 6c 5f  c!=3 ){.    Tcl_
6330: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
6340: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 4e  erp, 1, objv, "N
6350: 41 4d 45 20 4d 41 4b 45 44 45 46 41 55 4c 54 22  AME MAKEDEFAULT"
6360: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
6370: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 20 7a  L_ERROR;.  }.  z
6380: 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74  Name = Tcl_GetSt
6390: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20  ring(objv[1]);. 
63a0: 20 69 66 28 20 54 63 6c 5f 47 65 74 42 6f 6f 6c   if( Tcl_GetBool
63b0: 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72  eanFromObj(inter
63c0: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6d 61 6b  p, objv[2], &mak
63d0: 65 44 65 66 61 75 6c 74 29 20 29 20 72 65 74 75  eDefault) ) retu
63e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
63f0: 69 66 28 20 7a 4e 61 6d 65 5b 30 5d 3d 3d 27 5c  if( zName[0]=='\
6400: 30 27 20 29 20 7a 4e 61 6d 65 20 3d 20 30 3b 0a  0' ) zName = 0;.
6410: 0a 20 20 2f 2a 20 43 61 6c 6c 20 73 71 6c 69 74  .  /* Call sqlit
6420: 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c  e3_quota_initial
6430: 69 7a 65 28 29 20 2a 2f 0a 20 20 72 63 20 3d 20  ize() */.  rc = 
6440: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 69 6e  sqlite3_quota_in
6450: 69 74 69 61 6c 69 7a 65 28 7a 4e 61 6d 65 2c 20  itialize(zName, 
6460: 6d 61 6b 65 44 65 66 61 75 6c 74 29 3b 0a 20 20  makeDefault);.  
6470: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e  Tcl_SetResult(in
6480: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71  terp, (char *)sq
6490: 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61  lite3TestErrorNa
64a0: 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54  me(rc), TCL_STAT
64b0: 49 43 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20 54  IC);..  return T
64c0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  CL_OK;.}../*.** 
64d0: 74 63 6c 63 6d 64 3a 20 73 71 6c 69 74 65 33 5f  tclcmd: sqlite3_
64e0: 71 75 6f 74 61 5f 73 68 75 74 64 6f 77 6e 0a 2a  quota_shutdown.*
64f0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73  /.static int tes
6500: 74 5f 71 75 6f 74 61 5f 73 68 75 74 64 6f 77 6e  t_quota_shutdown
6510: 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65 6e  (.  void * clien
6520: 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e 74  tData,.  Tcl_Int
6530: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 69  erp *interp,.  i
6540: 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f 4f  nt objc,.  Tcl_O
6550: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj *CONST objv[]
6560: 0a 29 7b 0a 20 20 69 6e 74 20 72 63 3b 20 20 20  .){.  int rc;   
6570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6580: 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20 72        /* Value r
6590: 65 74 75 72 6e 65 64 20 62 79 20 71 75 6f 74 61  eturned by quota
65a0: 5f 73 68 75 74 64 6f 77 6e 28 29 20 2a 2f 0a 0a  _shutdown() */..
65b0: 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29 7b    if( objc!=1 ){
65c0: 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75  .    Tcl_WrongNu
65d0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c  mArgs(interp, 1,
65e0: 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20 20   objv, "");.    
65f0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
6600: 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 43 61 6c 6c  ;.  }..  /* Call
6610: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73   sqlite3_quota_s
6620: 68 75 74 64 6f 77 6e 28 29 20 2a 2f 0a 20 20 72  hutdown() */.  r
6630: 63 20 3d 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  c = sqlite3_quot
6640: 61 5f 73 68 75 74 64 6f 77 6e 28 29 3b 0a 20 20  a_shutdown();.  
6650: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e  Tcl_SetResult(in
6660: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 73 71  terp, (char *)sq
6670: 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 4e 61  lite3TestErrorNa
6680: 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54  me(rc), TCL_STAT
6690: 49 43 29 3b 0a 0a 20 20 2f 2a 20 49 66 20 74 68  IC);..  /* If th
66a0: 65 20 71 75 6f 74 61 20 73 79 73 74 65 6d 20 77  e quota system w
66b0: 61 73 20 73 75 63 63 65 73 73 66 75 6c 6c 79 20  as successfully 
66c0: 73 68 75 74 20 64 6f 77 6e 2c 20 64 65 6c 65 74  shut down, delet
66d0: 65 20 61 6c 6c 20 74 68 65 20 71 75 6f 74 61 0a  e all the quota.
66e0: 20 20 2a 2a 20 63 61 6c 6c 62 61 63 6b 20 73 63    ** callback sc
66f0: 72 69 70 74 20 6f 62 6a 65 63 74 73 20 69 6e 20  ript objects in 
6700: 74 68 65 20 67 6c 6f 62 61 6c 20 6c 69 6e 6b 65  the global linke
6710: 64 20 6c 69 73 74 2e 0a 20 20 2a 2f 0a 20 20 69  d list..  */.  i
6720: 66 28 20 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b  f( rc==SQLITE_OK
6730: 20 29 7b 0a 20 20 20 20 54 63 6c 51 75 6f 74 61   ){.    TclQuota
6740: 43 61 6c 6c 62 61 63 6b 20 2a 70 2c 20 2a 70 4e  Callback *p, *pN
6750: 65 78 74 3b 0a 20 20 20 20 66 6f 72 28 70 3d 70  ext;.    for(p=p
6760: 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 4c 69 73  QuotaCallbackLis
6770: 74 3b 20 70 3b 20 70 3d 70 4e 65 78 74 29 7b 0a  t; p; p=pNext){.
6780: 20 20 20 20 20 20 70 4e 65 78 74 20 3d 20 70 2d        pNext = p-
6790: 3e 70 4e 65 78 74 3b 0a 20 20 20 20 20 20 54 63  >pNext;.      Tc
67a0: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 70  l_DecrRefCount(p
67b0: 2d 3e 70 53 63 72 69 70 74 29 3b 0a 20 20 20 20  ->pScript);.    
67c0: 20 20 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a    ckfree((char *
67d0: 29 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 70  )p);.    }.    p
67e0: 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 4c 69 73  QuotaCallbackLis
67f0: 74 20 3d 20 30 3b 0a 20 20 7d 0a 0a 20 20 72 65  t = 0;.  }..  re
6800: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
6810: 2f 2a 0a 2a 2a 20 74 63 6c 63 6d 64 3a 20 73 71  /*.** tclcmd: sq
6820: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20  lite3_quota_set 
6830: 50 41 54 54 45 52 4e 20 4c 49 4d 49 54 20 53 43  PATTERN LIMIT SC
6840: 52 49 50 54 0a 2a 2f 0a 73 74 61 74 69 63 20 69  RIPT.*/.static i
6850: 6e 74 20 74 65 73 74 5f 71 75 6f 74 61 5f 73 65  nt test_quota_se
6860: 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c 69 65  t(.  void * clie
6870: 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f 49 6e  ntData,.  Tcl_In
6880: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20  terp *interp,.  
6890: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f  int objc,.  Tcl_
68a0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj *CONST objv[
68b0: 5d 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61  ].){.  const cha
68c0: 72 20 2a 7a 50 61 74 74 65 72 6e 3b 20 20 20 20  r *zPattern;    
68d0: 20 20 20 20 20 20 20 2f 2a 20 46 69 6c 65 20 70         /* File p
68e0: 61 74 74 65 72 6e 20 74 6f 20 63 6f 6e 66 69 67  attern to config
68f0: 75 72 65 20 2a 2f 0a 20 20 73 71 6c 69 74 65 33  ure */.  sqlite3
6900: 5f 69 6e 74 36 34 20 69 4c 69 6d 69 74 3b 20 20  _int64 iLimit;  
6910: 20 20 20 20 20 20 20 20 20 2f 2a 20 49 6e 69 74           /* Init
6920: 69 61 6c 20 71 75 6f 74 61 20 69 6e 20 62 79 74  ial quota in byt
6930: 65 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20  es */.  Tcl_Obj 
6940: 2a 70 53 63 72 69 70 74 3b 20 20 20 20 20 20 20  *pScript;       
6950: 20 20 20 20 20 20 20 20 2f 2a 20 54 63 6c 20 73          /* Tcl s
6960: 63 72 69 70 74 20 74 6f 20 69 6e 76 6f 6b 65 20  cript to invoke 
6970: 74 6f 20 69 6e 63 72 65 61 73 65 20 71 75 6f 74  to increase quot
6980: 61 20 2a 2f 0a 20 20 69 6e 74 20 72 63 3b 20 20  a */.  int rc;  
6990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
69a0: 20 20 20 20 20 20 20 2f 2a 20 56 61 6c 75 65 20         /* Value 
69b0: 72 65 74 75 72 6e 65 64 20 62 79 20 71 75 6f 74  returned by quot
69c0: 61 5f 73 65 74 28 29 20 2a 2f 0a 20 20 54 63 6c  a_set() */.  Tcl
69d0: 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 20 2a 70  QuotaCallback *p
69e0: 3b 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20  ;            /* 
69f0: 43 61 6c 6c 62 61 63 6b 20 6f 62 6a 65 63 74 20  Callback object 
6a00: 2a 2f 0a 0a 20 20 2f 2a 20 50 72 6f 63 65 73 73  */..  /* Process
6a10: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20   arguments */.  
6a20: 69 66 28 20 6f 62 6a 63 21 3d 34 20 29 7b 0a 20  if( objc!=4 ){. 
6a30: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41     Tcl_WrongNumA
6a40: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
6a50: 62 6a 76 2c 20 22 50 41 54 54 45 52 4e 20 4c 49  bjv, "PATTERN LI
6a60: 4d 49 54 20 53 43 52 49 50 54 22 29 3b 0a 20 20  MIT SCRIPT");.  
6a70: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
6a80: 4f 52 3b 0a 20 20 7d 0a 20 20 7a 50 61 74 74 65  OR;.  }.  zPatte
6a90: 72 6e 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  rn = Tcl_GetStri
6aa0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 69  ng(objv[1]);.  i
6ab0: 66 28 20 54 63 6c 5f 47 65 74 57 69 64 65 49 6e  f( Tcl_GetWideIn
6ac0: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  tFromObj(interp,
6ad0: 20 6f 62 6a 76 5b 32 5d 2c 20 26 69 4c 69 6d 69   objv[2], &iLimi
6ae0: 74 29 20 29 20 72 65 74 75 72 6e 20 54 43 4c 5f  t) ) return TCL_
6af0: 45 52 52 4f 52 3b 0a 20 20 70 53 63 72 69 70 74  ERROR;.  pScript
6b00: 20 3d 20 6f 62 6a 76 5b 33 5d 3b 0a 0a 20 20 2f   = objv[3];..  /
6b10: 2a 20 41 6c 6c 6f 63 61 74 65 20 61 20 54 63 6c  * Allocate a Tcl
6b20: 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 20 6f 62  QuotaCallback ob
6b30: 6a 65 63 74 20 2a 2f 0a 20 20 70 20 3d 20 28 54  ject */.  p = (T
6b40: 63 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 20  clQuotaCallback 
6b50: 2a 29 63 6b 61 6c 6c 6f 63 28 73 69 7a 65 6f 66  *)ckalloc(sizeof
6b60: 28 54 63 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63  (TclQuotaCallbac
6b70: 6b 29 29 3b 0a 20 20 6d 65 6d 73 65 74 28 70 2c  k));.  memset(p,
6b80: 20 30 2c 20 73 69 7a 65 6f 66 28 54 63 6c 51 75   0, sizeof(TclQu
6b90: 6f 74 61 43 61 6c 6c 62 61 63 6b 29 29 3b 0a 0a  otaCallback));..
6ba0: 20 20 2f 2a 20 49 6e 76 6f 6b 65 20 73 71 6c 69    /* Invoke sqli
6bb0: 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 28 29 20  te3_quota_set() 
6bc0: 2a 2f 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65  */.  rc = sqlite
6bd0: 33 5f 71 75 6f 74 61 5f 73 65 74 28 7a 50 61 74  3_quota_set(zPat
6be0: 74 65 72 6e 2c 20 69 4c 69 6d 69 74 2c 20 74 63  tern, iLimit, tc
6bf0: 6c 51 75 6f 74 61 43 61 6c 6c 62 61 63 6b 2c 20  lQuotaCallback, 
6c00: 28 76 6f 69 64 20 2a 29 70 29 3b 0a 20 20 69 66  (void *)p);.  if
6c10: 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4f 4b 20  ( rc!=SQLITE_OK 
6c20: 29 7b 0a 20 20 20 20 63 6b 66 72 65 65 28 28 63  ){.    ckfree((c
6c30: 68 61 72 20 2a 29 70 29 3b 0a 20 20 7d 65 6c 73  har *)p);.  }els
6c40: 65 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52  e{.    Tcl_IncrR
6c50: 65 66 43 6f 75 6e 74 28 70 53 63 72 69 70 74 29  efCount(pScript)
6c60: 3b 0a 20 20 20 20 70 2d 3e 69 6e 74 65 72 70 20  ;.    p->interp 
6c70: 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 70 2d  = interp;.    p-
6c80: 3e 70 53 63 72 69 70 74 20 3d 20 70 53 63 72 69  >pScript = pScri
6c90: 70 74 3b 0a 20 20 20 20 70 2d 3e 70 4e 65 78 74  pt;.    p->pNext
6ca0: 20 3d 20 70 51 75 6f 74 61 43 61 6c 6c 62 61 63   = pQuotaCallbac
6cb0: 6b 4c 69 73 74 3b 0a 20 20 20 20 70 51 75 6f 74  kList;.    pQuot
6cc0: 61 43 61 6c 6c 62 61 63 6b 4c 69 73 74 20 3d 20  aCallbackList = 
6cd0: 70 3b 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 53 65  p;.  }..  Tcl_Se
6ce0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
6cf0: 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 54  (char *)sqlite3T
6d00: 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 29  estErrorName(rc)
6d10: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20  , TCL_STATIC);. 
6d20: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
6d30: 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 72 6f  }../*.** This ro
6d40: 75 74 69 6e 65 20 72 65 67 69 73 74 65 72 73 20  utine registers 
6d50: 74 68 65 20 63 75 73 74 6f 6d 20 54 43 4c 20 63  the custom TCL c
6d60: 6f 6d 6d 61 6e 64 73 20 64 65 66 69 6e 65 64 20  ommands defined 
6d70: 69 6e 20 74 68 69 73 0a 2a 2a 20 6d 6f 64 75 6c  in this.** modul
6d80: 65 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 20  e.  This should 
6d90: 62 65 20 74 68 65 20 6f 6e 6c 79 20 70 72 6f 63  be the only proc
6da0: 65 64 75 72 65 20 76 69 73 69 62 6c 65 20 66 72  edure visible fr
6db0: 6f 6d 20 6f 75 74 73 69 64 65 0a 2a 2a 20 6f 66  om outside.** of
6dc0: 20 74 68 69 73 20 6d 6f 64 75 6c 65 2e 0a 2a 2f   this module..*/
6dd0: 0a 69 6e 74 20 53 71 6c 69 74 65 71 75 6f 74 61  .int Sqlitequota
6de0: 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70  _Init(Tcl_Interp
6df0: 20 2a 69 6e 74 65 72 70 29 7b 0a 20 20 73 74 61   *interp){.  sta
6e00: 74 69 63 20 73 74 72 75 63 74 20 7b 0a 20 20 20  tic struct {.   
6e10: 20 20 63 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20    char *zName;. 
6e20: 20 20 20 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72      Tcl_ObjCmdPr
6e30: 6f 63 20 2a 78 50 72 6f 63 3b 0a 20 20 7d 20 61  oc *xProc;.  } a
6e40: 43 6d 64 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 20  Cmd[] = {.    { 
6e50: 22 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 69  "sqlite3_quota_i
6e60: 6e 69 74 69 61 6c 69 7a 65 22 2c 20 74 65 73 74  nitialize", test
6e70: 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69 7a  _quota_initializ
6e80: 65 20 7d 2c 0a 20 20 20 20 7b 20 22 73 71 6c 69  e },.    { "sqli
6e90: 74 65 33 5f 71 75 6f 74 61 5f 73 68 75 74 64 6f  te3_quota_shutdo
6ea0: 77 6e 22 2c 20 74 65 73 74 5f 71 75 6f 74 61 5f  wn", test_quota_
6eb0: 73 68 75 74 64 6f 77 6e 20 7d 2c 0a 20 20 20 20  shutdown },.    
6ec0: 7b 20 22 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  { "sqlite3_quota
6ed0: 5f 73 65 74 22 2c 20 74 65 73 74 5f 71 75 6f 74  _set", test_quot
6ee0: 61 5f 73 65 74 20 7d 2c 0a 20 20 7d 3b 0a 20 20  a_set },.  };.  
6ef0: 69 6e 74 20 69 3b 0a 0a 20 20 66 6f 72 28 69 3d  int i;..  for(i=
6f00: 30 3b 20 69 3c 73 69 7a 65 6f 66 28 61 43 6d 64  0; i<sizeof(aCmd
6f10: 29 2f 73 69 7a 65 6f 66 28 61 43 6d 64 5b 30 5d  )/sizeof(aCmd[0]
6f20: 29 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 54 63 6c  ); i++){.    Tcl
6f30: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
6f40: 64 28 69 6e 74 65 72 70 2c 20 61 43 6d 64 5b 69  d(interp, aCmd[i
6f50: 5d 2e 7a 4e 61 6d 65 2c 20 61 43 6d 64 5b 69 5d  ].zName, aCmd[i]
6f60: 2e 78 50 72 6f 63 2c 20 30 2c 20 30 29 3b 0a 20  .xProc, 0, 0);. 
6f70: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c   }..  return TCL
6f80: 5f 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a        _OK;.}.#endif.