0000: 2f 2a 0a 2a 2a 20 32 30 30 33 20 41 70 72 69 6c /*.** 2003 April
0010: 20 36 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75 74 6.**.** The aut
0020: 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f hor disclaims co
0030: 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 pyright to this
0040: 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e source code. In
0050: 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20 6c place of.** a l
0060: 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 egal notice, her
0070: 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a e is a blessing:
0080: 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79 6f .**.** May yo
0090: 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f u do good and no
00a0: 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d 61 t evil..** Ma
00b0: 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67 69 y you find forgi
00c0: 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72 73 veness for yours
00d0: 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65 20 elf and forgive
00e0: 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d 61 others..** Ma
00f0: 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65 65 y you share free
0100: 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e 67 ly, never taking
0110: 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20 67 more than you g
0120: 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a 2a ive..**.********
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 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65 20 63 *.** This file c
0180: 6f 6e 74 61 69 6e 73 20 63 6f 64 65 20 75 73 65 ontains code use
0190: 64 20 74 6f 20 69 6d 70 6c 65 6d 65 6e 74 20 74 d to implement t
01a0: 68 65 20 56 41 43 55 55 4d 20 63 6f 6d 6d 61 6e he VACUUM comman
01b0: 64 2e 0a 2a 2a 0a 2a 2a 20 4d 6f 73 74 20 6f 66 d..**.** Most of
01c0: 20 74 68 65 20 63 6f 64 65 20 69 6e 20 74 68 69 the code in thi
01d0: 73 20 66 69 6c 65 20 6d 61 79 20 62 65 20 6f 6d s file may be om
01e0: 69 74 74 65 64 20 62 79 20 64 65 66 69 6e 69 6e itted by definin
01f0: 67 20 74 68 65 0a 2a 2a 20 53 51 4c 49 54 45 5f g the.** SQLITE_
0200: 4f 4d 49 54 5f 56 41 43 55 55 4d 20 6d 61 63 72 OMIT_VACUUM macr
0210: 6f 2e 0a 2a 2a 0a 2a 2a 20 24 49 64 3a 20 76 61 o..**.** $Id: va
0220: 63 75 75 6d 2e 63 2c 76 20 31 2e 31 33 2e 32 2e cuum.c,v 1.13.2.
0230: 35 20 32 30 30 35 2f 30 32 2f 31 34 20 30 30 3a 5 2005/02/14 00:
0240: 32 35 3a 34 38 20 64 72 68 20 45 78 70 20 24 0a 25:48 drh Exp $.
0250: 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 73 71 6c */.#include "sql
0260: 69 74 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 iteInt.h".#inclu
0270: 64 65 20 22 6f 73 2e 68 22 0a 0a 2f 2a 0a 2a 2a de "os.h"../*.**
0280: 20 41 20 73 74 72 75 63 74 75 72 65 20 66 6f 72 A structure for
0290: 20 68 6f 6c 64 69 6e 67 20 61 20 64 79 6e 61 6d holding a dynam
02a0: 69 63 20 73 74 72 69 6e 67 20 2d 20 61 20 73 74 ic string - a st
02b0: 72 69 6e 67 20 74 68 61 74 20 63 61 6e 20 67 72 ring that can gr
02c0: 6f 77 0a 2a 2a 20 77 69 74 68 6f 75 74 20 62 6f ow.** without bo
02d0: 75 6e 64 2e 20 0a 2a 2f 0a 74 79 70 65 64 65 66 und. .*/.typedef
02e0: 20 73 74 72 75 63 74 20 64 79 6e 53 74 72 20 64 struct dynStr d
02f0: 79 6e 53 74 72 3b 0a 73 74 72 75 63 74 20 64 79 ynStr;.struct dy
0300: 6e 53 74 72 20 7b 0a 20 20 63 68 61 72 20 2a 7a nStr {. char *z
0310: 3b 20 20 20 20 20 20 20 20 2f 2a 20 54 65 78 74 ; /* Text
0320: 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67 20 69 of the string i
0330: 6e 20 73 70 61 63 65 20 6f 62 74 61 69 6e 65 64 n space obtained
0340: 20 66 72 6f 6d 20 73 71 6c 69 74 65 4d 61 6c 6c from sqliteMall
0350: 6f 63 28 29 20 2a 2f 0a 20 20 69 6e 74 20 6e 41 oc() */. int nA
0360: 6c 6c 6f 63 3b 20 20 20 20 20 2f 2a 20 41 6d 6f lloc; /* Amo
0370: 75 6e 74 20 6f 66 20 73 70 61 63 65 20 61 6c 6c unt of space all
0380: 6f 63 61 74 65 64 20 74 6f 20 7a 5b 5d 20 2a 2f ocated to z[] */
0390: 0a 20 20 69 6e 74 20 6e 55 73 65 64 3b 20 20 20 . int nUsed;
03a0: 20 20 20 2f 2a 20 4e 65 78 74 20 75 6e 75 73 65 /* Next unuse
03b0: 64 20 73 6c 6f 74 20 69 6e 20 7a 5b 5d 20 2a 2f d slot in z[] */
03c0: 0a 7d 3b 0a 0a 2f 2a 0a 2a 2a 20 41 20 73 74 72 .};../*.** A str
03d0: 75 63 74 75 72 65 20 74 68 61 74 20 68 6f 6c 64 ucture that hold
03e0: 73 20 74 68 65 20 76 61 63 75 75 6d 20 63 6f 6e s the vacuum con
03f0: 74 65 78 74 0a 2a 2f 0a 74 79 70 65 64 65 66 20 text.*/.typedef
0400: 73 74 72 75 63 74 20 76 61 63 75 75 6d 53 74 72 struct vacuumStr
0410: 75 63 74 20 76 61 63 75 75 6d 53 74 72 75 63 74 uct vacuumStruct
0420: 3b 0a 73 74 72 75 63 74 20 76 61 63 75 75 6d 53 ;.struct vacuumS
0430: 74 72 75 63 74 20 7b 0a 20 20 73 71 6c 69 74 65 truct {. sqlite
0440: 20 2a 64 62 4f 6c 64 3b 20 20 20 20 20 20 20 2f *dbOld; /
0450: 2a 20 4f 72 69 67 69 6e 61 6c 20 64 61 74 61 62 * Original datab
0460: 61 73 65 20 2a 2f 0a 20 20 73 71 6c 69 74 65 20 ase */. sqlite
0470: 2a 64 62 4e 65 77 3b 20 20 20 20 20 20 20 2f 2a *dbNew; /*
0480: 20 4e 65 77 20 64 61 74 61 62 61 73 65 20 2a 2f New database */
0490: 0a 20 20 63 68 61 72 20 2a 2a 70 7a 45 72 72 4d . char **pzErrM
04a0: 73 67 3b 20 20 20 20 20 2f 2a 20 57 72 69 74 65 sg; /* Write
04b0: 20 65 72 72 6f 72 73 20 68 65 72 65 20 2a 2f 0a errors here */.
04c0: 20 20 69 6e 74 20 72 63 3b 20 20 20 20 20 20 20 int rc;
04d0: 20 20 20 20 20 20 20 2f 2a 20 53 65 74 20 74 6f /* Set to
04e0: 20 6e 6f 6e 2d 7a 65 72 6f 20 6f 6e 20 61 6e 20 non-zero on an
04f0: 65 72 72 6f 72 20 2a 2f 0a 20 20 63 6f 6e 73 74 error */. const
0500: 20 63 68 61 72 20 2a 7a 54 61 62 6c 65 3b 20 20 char *zTable;
0510: 2f 2a 20 4e 61 6d 65 20 6f 66 20 61 20 74 61 62 /* Name of a tab
0520: 6c 65 20 62 65 69 6e 67 20 63 6f 70 69 65 64 20 le being copied
0530: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 */. const char
0540: 2a 7a 50 72 61 67 6d 61 3b 20 2f 2a 20 50 72 61 *zPragma; /* Pra
0550: 67 6d 61 20 74 6f 20 65 78 65 63 75 74 65 20 77 gma to execute w
0560: 69 74 68 20 72 65 73 75 6c 74 73 20 2a 2f 0a 20 ith results */.
0570: 20 64 79 6e 53 74 72 20 73 31 2c 20 73 32 3b 20 dynStr s1, s2;
0580: 20 20 20 20 20 20 2f 2a 20 54 77 6f 20 64 79 6e /* Two dyn
0590: 61 6d 69 63 20 73 74 72 69 6e 67 73 20 2a 2f 0a amic strings */.
05a0: 7d 3b 0a 0a 23 69 66 20 21 64 65 66 69 6e 65 64 };..#if !defined
05b0: 28 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 41 43 (SQLITE_OMIT_VAC
05c0: 55 55 4d 29 20 7c 7c 20 53 51 4c 49 54 45 5f 4f UUM) || SQLITE_O
05d0: 4d 49 54 5f 56 41 43 55 55 4d 0a 2f 2a 0a 2a 2a MIT_VACUUM./*.**
05e0: 20 41 70 70 65 6e 64 20 74 65 78 74 20 74 6f 20 Append text to
05f0: 61 20 64 79 6e 61 6d 69 63 20 73 74 72 69 6e 67 a dynamic string
0600: 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 .*/.static void
0610: 61 70 70 65 6e 64 54 65 78 74 28 64 79 6e 53 74 appendText(dynSt
0620: 72 20 2a 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 r *p, const char
0630: 20 2a 7a 54 65 78 74 2c 20 69 6e 74 20 6e 54 65 *zText, int nTe
0640: 78 74 29 7b 0a 20 20 69 66 28 20 6e 54 65 78 74 xt){. if( nText
0650: 3c 30 20 29 20 6e 54 65 78 74 20 3d 20 73 74 72 <0 ) nText = str
0660: 6c 65 6e 28 7a 54 65 78 74 29 3b 0a 20 20 69 66 len(zText);. if
0670: 28 20 70 2d 3e 7a 3d 3d 30 20 7c 7c 20 70 2d 3e ( p->z==0 || p->
0680: 6e 55 73 65 64 20 2b 20 6e 54 65 78 74 20 2b 20 nUsed + nText +
0690: 31 20 3e 3d 20 70 2d 3e 6e 41 6c 6c 6f 63 20 29 1 >= p->nAlloc )
06a0: 7b 0a 20 20 20 20 63 68 61 72 20 2a 7a 4e 65 77 {. char *zNew
06b0: 3b 0a 20 20 20 20 70 2d 3e 6e 41 6c 6c 6f 63 20 ;. p->nAlloc
06c0: 3d 20 70 2d 3e 6e 55 73 65 64 20 2b 20 6e 54 65 = p->nUsed + nTe
06d0: 78 74 20 2b 20 31 30 30 30 3b 0a 20 20 20 20 7a xt + 1000;. z
06e0: 4e 65 77 20 3d 20 73 71 6c 69 74 65 52 65 61 6c New = sqliteReal
06f0: 6c 6f 63 28 70 2d 3e 7a 2c 20 70 2d 3e 6e 41 6c loc(p->z, p->nAl
0700: 6c 6f 63 29 3b 0a 20 20 20 20 69 66 28 20 7a 4e loc);. if( zN
0710: 65 77 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 73 ew==0 ){. s
0720: 71 6c 69 74 65 46 72 65 65 28 70 2d 3e 7a 29 3b qliteFree(p->z);
0730: 0a 20 20 20 20 20 20 6d 65 6d 73 65 74 28 70 2c . memset(p,
0740: 20 30 2c 20 73 69 7a 65 6f 66 28 2a 70 29 29 3b 0, sizeof(*p));
0750: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 . return;.
0760: 20 20 20 7d 0a 20 20 20 20 70 2d 3e 7a 20 3d 20 }. p->z =
0770: 7a 4e 65 77 3b 0a 20 20 7d 0a 20 20 6d 65 6d 63 zNew;. }. memc
0780: 70 79 28 26 70 2d 3e 7a 5b 70 2d 3e 6e 55 73 65 py(&p->z[p->nUse
0790: 64 5d 2c 20 7a 54 65 78 74 2c 20 6e 54 65 78 74 d], zText, nText
07a0: 2b 31 29 3b 0a 20 20 70 2d 3e 6e 55 73 65 64 20 +1);. p->nUsed
07b0: 2b 3d 20 6e 54 65 78 74 3b 0a 7d 0a 0a 2f 2a 0a += nText;.}../*.
07c0: 2a 2a 20 41 70 70 65 6e 64 20 74 65 78 74 20 74 ** Append text t
07d0: 6f 20 61 20 64 79 6e 61 6d 69 63 20 73 74 72 69 o a dynamic stri
07e0: 6e 67 2c 20 68 61 76 69 6e 67 20 66 69 72 73 74 ng, having first
07f0: 20 70 75 74 20 74 68 65 20 74 65 78 74 20 69 6e put the text in
0800: 20 71 75 6f 74 65 73 2e 0a 2a 2f 0a 73 74 61 74 quotes..*/.stat
0810: 69 63 20 76 6f 69 64 20 61 70 70 65 6e 64 51 75 ic void appendQu
0820: 6f 74 65 64 28 64 79 6e 53 74 72 20 2a 70 2c 20 oted(dynStr *p,
0830: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 54 65 78 const char *zTex
0840: 74 29 7b 0a 20 20 69 6e 74 20 69 2c 20 6a 3b 0a t){. int i, j;.
0850: 20 20 61 70 70 65 6e 64 54 65 78 74 28 70 2c 20 appendText(p,
0860: 22 27 22 2c 20 31 29 3b 0a 20 20 66 6f 72 28 69 "'", 1);. for(i
0870: 3d 6a 3d 30 3b 20 7a 54 65 78 74 5b 69 5d 3b 20 =j=0; zText[i];
0880: 69 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 7a 54 i++){. if( zT
0890: 65 78 74 5b 69 5d 3d 3d 27 5c 27 27 20 29 7b 0a ext[i]=='\'' ){.
08a0: 20 20 20 20 20 20 61 70 70 65 6e 64 54 65 78 74 appendText
08b0: 28 70 2c 20 26 7a 54 65 78 74 5b 6a 5d 2c 20 69 (p, &zText[j], i
08c0: 2d 6a 2b 31 29 3b 0a 20 20 20 20 20 20 6a 20 3d -j+1);. j =
08d0: 20 69 20 2b 20 31 3b 0a 20 20 20 20 20 20 61 70 i + 1;. ap
08e0: 70 65 6e 64 54 65 78 74 28 70 2c 20 22 27 22 2c pendText(p, "'",
08f0: 20 31 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 1);. }. }.
0900: 20 69 66 28 20 6a 3c 69 20 29 7b 0a 20 20 20 20 if( j<i ){.
0910: 61 70 70 65 6e 64 54 65 78 74 28 70 2c 20 26 7a appendText(p, &z
0920: 54 65 78 74 5b 6a 5d 2c 20 69 2d 6a 29 3b 0a 20 Text[j], i-j);.
0930: 20 7d 0a 20 20 61 70 70 65 6e 64 54 65 78 74 28 }. appendText(
0940: 70 2c 20 22 27 22 2c 20 31 29 3b 0a 7d 0a 0a 2f p, "'", 1);.}../
0950: 2a 0a 2a 2a 20 45 78 65 63 75 74 65 20 73 74 61 *.** Execute sta
0960: 74 65 6d 65 6e 74 73 20 6f 66 20 53 51 4c 2e 20 tements of SQL.
0970: 20 49 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 If an error occ
0980: 75 72 73 2c 20 77 72 69 74 65 20 74 68 65 20 65 urs, write the e
0990: 72 72 6f 72 0a 2a 2a 20 6d 65 73 73 61 67 65 20 rror.** message
09a0: 69 6e 74 6f 20 2a 70 7a 45 72 72 4d 73 67 20 61 into *pzErrMsg a
09b0: 6e 64 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 7a 65 nd return non-ze
09c0: 72 6f 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e ro..*/.static in
09d0: 74 20 65 78 65 63 73 71 6c 28 63 68 61 72 20 2a t execsql(char *
09e0: 2a 70 7a 45 72 72 4d 73 67 2c 20 73 71 6c 69 74 *pzErrMsg, sqlit
09f0: 65 20 2a 64 62 2c 20 63 6f 6e 73 74 20 63 68 61 e *db, const cha
0a00: 72 20 2a 7a 53 71 6c 29 7b 20 0a 20 20 63 68 61 r *zSql){ . cha
0a10: 72 20 2a 7a 45 72 72 4d 73 67 20 3d 20 30 3b 0a r *zErrMsg = 0;.
0a20: 20 20 69 6e 74 20 72 63 3b 0a 0a 20 20 2f 2a 20 int rc;.. /*
0a30: 70 72 69 6e 74 66 28 22 2a 2a 2a 2a 2a 20 65 78 printf("***** ex
0a40: 65 63 75 74 69 6e 67 20 2a 2a 2a 2a 2a 5c 6e 25 ecuting *****\n%
0a50: 73 5c 6e 22 2c 20 7a 53 71 6c 29 3b 20 2a 2f 0a s\n", zSql); */.
0a60: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 5f 65 78 rc = sqlite_ex
0a70: 65 63 28 64 62 2c 20 7a 53 71 6c 2c 20 30 2c 20 ec(db, zSql, 0,
0a80: 30 2c 20 26 7a 45 72 72 4d 73 67 29 3b 0a 20 20 0, &zErrMsg);.
0a90: 69 66 28 20 7a 45 72 72 4d 73 67 20 29 7b 0a 20 if( zErrMsg ){.
0aa0: 20 20 20 73 71 6c 69 74 65 53 65 74 53 74 72 69 sqliteSetStri
0ab0: 6e 67 28 70 7a 45 72 72 4d 73 67 2c 20 7a 45 72 ng(pzErrMsg, zEr
0ac0: 72 4d 73 67 2c 20 28 63 68 61 72 2a 29 30 29 3b rMsg, (char*)0);
0ad0: 0a 20 20 20 20 73 71 6c 69 74 65 5f 66 72 65 65 . sqlite_free
0ae0: 6d 65 6d 28 7a 45 72 72 4d 73 67 29 3b 0a 20 20 mem(zErrMsg);.
0af0: 7d 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 7d }. return rc;.}
0b00: 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 20 69 73 20 ../*.** This is
0b10: 74 68 65 20 73 65 63 6f 6e 64 20 73 74 61 67 65 the second stage
0b20: 20 63 61 6c 6c 62 61 63 6b 2e 20 20 45 61 63 68 callback. Each
0b30: 20 69 6e 76 6f 63 61 74 69 6f 6e 20 63 6f 6e 74 invocation cont
0b40: 61 69 6e 73 20 61 6c 6c 20 74 68 65 0a 2a 2a 20 ains all the.**
0b50: 64 61 74 61 20 66 6f 72 20 61 20 73 69 6e 67 6c data for a singl
0b60: 65 20 72 6f 77 20 6f 66 20 61 20 73 69 6e 67 6c e row of a singl
0b70: 65 20 74 61 62 6c 65 20 69 6e 20 74 68 65 20 6f e table in the o
0b80: 72 69 67 69 6e 61 6c 20 64 61 74 61 62 61 73 65 riginal database
0b90: 2e 20 20 54 68 69 73 0a 2a 2a 20 72 6f 75 74 69 . This.** routi
0ba0: 6e 65 20 6d 75 73 74 20 77 72 69 74 65 20 74 68 ne must write th
0bb0: 61 74 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 at information i
0bc0: 6e 74 6f 20 74 68 65 20 6e 65 77 20 64 61 74 61 nto the new data
0bd0: 62 61 73 65 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 base..*/.static
0be0: 69 6e 74 20 76 61 63 75 75 6d 43 61 6c 6c 62 61 int vacuumCallba
0bf0: 63 6b 32 28 76 6f 69 64 20 2a 70 41 72 67 2c 20 ck2(void *pArg,
0c00: 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 20 2a int argc, char *
0c10: 2a 61 72 67 76 2c 20 63 68 61 72 20 2a 2a 4e 6f *argv, char **No
0c20: 74 55 73 65 64 29 7b 0a 20 20 76 61 63 75 75 6d tUsed){. vacuum
0c30: 53 74 72 75 63 74 20 2a 70 20 3d 20 28 76 61 63 Struct *p = (vac
0c40: 75 75 6d 53 74 72 75 63 74 2a 29 70 41 72 67 3b uumStruct*)pArg;
0c50: 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a . const char *z
0c60: 53 65 70 20 3d 20 22 28 22 3b 0a 20 20 69 6e 74 Sep = "(";. int
0c70: 20 69 3b 0a 0a 20 20 69 66 28 20 61 72 67 76 3d i;.. if( argv=
0c80: 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 =0 ) return 0;.
0c90: 20 70 2d 3e 73 32 2e 6e 55 73 65 64 20 3d 20 30 p->s2.nUsed = 0
0ca0: 3b 0a 20 20 61 70 70 65 6e 64 54 65 78 74 28 26 ;. appendText(&
0cb0: 70 2d 3e 73 32 2c 20 22 49 4e 53 45 52 54 20 49 p->s2, "INSERT I
0cc0: 4e 54 4f 20 22 2c 20 2d 31 29 3b 0a 20 20 61 70 NTO ", -1);. ap
0cd0: 70 65 6e 64 51 75 6f 74 65 64 28 26 70 2d 3e 73 pendQuoted(&p->s
0ce0: 32 2c 20 70 2d 3e 7a 54 61 62 6c 65 29 3b 0a 20 2, p->zTable);.
0cf0: 20 61 70 70 65 6e 64 54 65 78 74 28 26 70 2d 3e appendText(&p->
0d00: 73 32 2c 20 22 20 56 41 4c 55 45 53 22 2c 20 2d s2, " VALUES", -
0d10: 31 29 3b 0a 20 20 66 6f 72 28 69 3d 30 3b 20 69 1);. for(i=0; i
0d20: 3c 61 72 67 63 3b 20 69 2b 2b 29 7b 0a 20 20 20 <argc; i++){.
0d30: 20 61 70 70 65 6e 64 54 65 78 74 28 26 70 2d 3e appendText(&p->
0d40: 73 32 2c 20 7a 53 65 70 2c 20 31 29 3b 0a 20 20 s2, zSep, 1);.
0d50: 20 20 7a 53 65 70 20 3d 20 22 2c 22 3b 0a 20 20 zSep = ",";.
0d60: 20 20 69 66 28 20 61 72 67 76 5b 69 5d 3d 3d 30 if( argv[i]==0
0d70: 20 29 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 ){. append
0d80: 54 65 78 74 28 26 70 2d 3e 73 32 2c 20 22 4e 55 Text(&p->s2, "NU
0d90: 4c 4c 22 2c 20 34 29 3b 0a 20 20 20 20 7d 65 6c LL", 4);. }el
0da0: 73 65 7b 0a 20 20 20 20 20 20 61 70 70 65 6e 64 se{. append
0db0: 51 75 6f 74 65 64 28 26 70 2d 3e 73 32 2c 20 61 Quoted(&p->s2, a
0dc0: 72 67 76 5b 69 5d 29 3b 0a 20 20 20 20 7d 0a 20 rgv[i]);. }.
0dd0: 20 7d 0a 20 20 61 70 70 65 6e 64 54 65 78 74 28 }. appendText(
0de0: 26 70 2d 3e 73 32 2c 22 29 22 2c 20 31 29 3b 0a &p->s2,")", 1);.
0df0: 20 20 70 2d 3e 72 63 20 3d 20 65 78 65 63 73 71 p->rc = execsq
0e00: 6c 28 70 2d 3e 70 7a 45 72 72 4d 73 67 2c 20 70 l(p->pzErrMsg, p
0e10: 2d 3e 64 62 4e 65 77 2c 20 70 2d 3e 73 32 2e 7a ->dbNew, p->s2.z
0e20: 29 3b 0a 20 20 72 65 74 75 72 6e 20 70 2d 3e 72 );. return p->r
0e30: 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 c;.}../*.** This
0e40: 20 69 73 20 74 68 65 20 66 69 72 73 74 20 73 74 is the first st
0e50: 61 67 65 20 63 61 6c 6c 62 61 63 6b 2e 20 20 45 age callback. E
0e60: 61 63 68 20 69 6e 76 6f 63 61 74 69 6f 6e 20 63 ach invocation c
0e70: 6f 6e 74 61 69 6e 73 20 74 68 72 65 65 0a 2a 2a ontains three.**
0e80: 20 61 72 67 75 6d 65 6e 74 73 20 77 68 65 72 65 arguments where
0e90: 20 61 72 65 20 74 61 6b 65 6e 20 66 72 6f 6d 20 are taken from
0ea0: 74 68 65 20 53 51 4c 49 54 45 5f 4d 41 53 54 45 the SQLITE_MASTE
0eb0: 52 20 74 61 62 6c 65 20 6f 66 20 74 68 65 20 6f R table of the o
0ec0: 72 69 67 69 6e 61 6c 0a 2a 2a 20 64 61 74 61 62 riginal.** datab
0ed0: 61 73 65 3a 20 20 28 31 29 20 74 68 65 20 65 6e ase: (1) the en
0ee0: 74 72 79 20 74 79 70 65 2c 20 28 32 29 20 74 68 try type, (2) th
0ef0: 65 20 65 6e 74 72 79 20 6e 61 6d 65 2c 20 61 6e e entry name, an
0f00: 64 20 28 33 29 20 74 68 65 20 53 51 4c 20 66 6f d (3) the SQL fo
0f10: 72 0a 2a 2a 20 74 68 65 20 65 6e 74 72 79 2e 20 r.** the entry.
0f20: 20 49 6e 20 61 6c 6c 20 63 61 73 65 73 2c 20 65 In all cases, e
0f30: 78 65 63 75 74 65 20 74 68 65 20 53 51 4c 20 6f xecute the SQL o
0f40: 66 20 74 68 65 20 74 68 69 72 64 20 61 72 67 75 f the third argu
0f50: 6d 65 6e 74 2e 0a 2a 2a 20 46 6f 72 20 74 61 62 ment..** For tab
0f60: 6c 65 73 2c 20 72 75 6e 20 61 20 71 75 65 72 79 les, run a query
0f70: 20 74 6f 20 73 65 6c 65 63 74 20 61 6c 6c 20 65 to select all e
0f80: 6e 74 72 69 65 73 20 69 6e 20 74 68 61 74 20 74 ntries in that t
0f90: 61 62 6c 65 20 61 6e 64 20 0a 2a 2a 20 74 72 61 able and .** tra
0fa0: 6e 73 66 65 72 20 74 68 65 6d 20 74 6f 20 74 68 nsfer them to th
0fb0: 65 20 73 65 63 6f 6e 64 2d 73 74 61 67 65 20 63 e second-stage c
0fc0: 61 6c 6c 62 61 63 6b 2e 0a 2a 2f 0a 73 74 61 74 allback..*/.stat
0fd0: 69 63 20 69 6e 74 20 76 61 63 75 75 6d 43 61 6c ic int vacuumCal
0fe0: 6c 62 61 63 6b 31 28 76 6f 69 64 20 2a 70 41 72 lback1(void *pAr
0ff0: 67 2c 20 69 6e 74 20 61 72 67 63 2c 20 63 68 61 g, int argc, cha
1000: 72 20 2a 2a 61 72 67 76 2c 20 63 68 61 72 20 2a r **argv, char *
1010: 2a 4e 6f 74 55 73 65 64 29 7b 0a 20 20 76 61 63 *NotUsed){. vac
1020: 75 75 6d 53 74 72 75 63 74 20 2a 70 20 3d 20 28 uumStruct *p = (
1030: 76 61 63 75 75 6d 53 74 72 75 63 74 2a 29 70 41 vacuumStruct*)pA
1040: 72 67 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 30 rg;. int rc = 0
1050: 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 63 ;. assert( argc
1060: 3d 3d 33 20 29 3b 0a 20 20 69 66 28 20 61 72 67 ==3 );. if( arg
1070: 76 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b v==0 ) return 0;
1080: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 76 5b . assert( argv[
1090: 30 5d 21 3d 30 20 29 3b 0a 20 20 61 73 73 65 72 0]!=0 );. asser
10a0: 74 28 20 61 72 67 76 5b 31 5d 21 3d 30 20 29 3b t( argv[1]!=0 );
10b0: 0a 20 20 61 73 73 65 72 74 28 20 61 72 67 76 5b . assert( argv[
10c0: 32 5d 21 3d 30 20 29 3b 0a 20 20 72 63 20 3d 20 2]!=0 );. rc =
10d0: 65 78 65 63 73 71 6c 28 70 2d 3e 70 7a 45 72 72 execsql(p->pzErr
10e0: 4d 73 67 2c 20 70 2d 3e 64 62 4e 65 77 2c 20 61 Msg, p->dbNew, a
10f0: 72 67 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20 72 rgv[2]);. if( r
1100: 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 26 26 20 c==SQLITE_OK &&
1110: 73 74 72 63 6d 70 28 61 72 67 76 5b 30 5d 2c 22 strcmp(argv[0],"
1120: 74 61 62 6c 65 22 29 3d 3d 30 20 29 7b 0a 20 20 table")==0 ){.
1130: 20 20 63 68 61 72 20 2a 7a 45 72 72 4d 73 67 20 char *zErrMsg
1140: 3d 20 30 3b 0a 20 20 20 20 70 2d 3e 73 31 2e 6e = 0;. p->s1.n
1150: 55 73 65 64 20 3d 20 30 3b 0a 20 20 20 20 61 70 Used = 0;. ap
1160: 70 65 6e 64 54 65 78 74 28 26 70 2d 3e 73 31 2c pendText(&p->s1,
1170: 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 "SELECT * FROM
1180: 22 2c 20 2d 31 29 3b 0a 20 20 20 20 61 70 70 65 ", -1);. appe
1190: 6e 64 51 75 6f 74 65 64 28 26 70 2d 3e 73 31 2c ndQuoted(&p->s1,
11a0: 20 61 72 67 76 5b 31 5d 29 3b 0a 20 20 20 20 70 argv[1]);. p
11b0: 2d 3e 7a 54 61 62 6c 65 20 3d 20 61 72 67 76 5b ->zTable = argv[
11c0: 31 5d 3b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 1];. rc = sql
11d0: 69 74 65 5f 65 78 65 63 28 70 2d 3e 64 62 4f 6c ite_exec(p->dbOl
11e0: 64 2c 20 70 2d 3e 73 31 2e 7a 2c 20 76 61 63 75 d, p->s1.z, vacu
11f0: 75 6d 43 61 6c 6c 62 61 63 6b 32 2c 20 70 2c 20 umCallback2, p,
1200: 26 7a 45 72 72 4d 73 67 29 3b 0a 20 20 20 20 69 &zErrMsg);. i
1210: 66 28 20 7a 45 72 72 4d 73 67 20 29 7b 0a 20 20 f( zErrMsg ){.
1220: 20 20 20 20 73 71 6c 69 74 65 53 65 74 53 74 72 sqliteSetStr
1230: 69 6e 67 28 70 2d 3e 70 7a 45 72 72 4d 73 67 2c ing(p->pzErrMsg,
1240: 20 7a 45 72 72 4d 73 67 2c 20 28 63 68 61 72 2a zErrMsg, (char*
1250: 29 30 29 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 )0);. sqlit
1260: 65 5f 66 72 65 65 6d 65 6d 28 7a 45 72 72 4d 73 e_freemem(zErrMs
1270: 67 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 g);. }. }.
1280: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 41 if( rc!=SQLITE_A
1290: 42 4f 52 54 20 29 20 70 2d 3e 72 63 20 3d 20 72 BORT ) p->rc = r
12a0: 63 3b 0a 20 20 72 65 74 75 72 6e 20 72 63 3b 0a c;. return rc;.
12b0: 7d 0a 0a 2f 2a 0a 2a 2a 20 47 65 6e 65 72 61 74 }../*.** Generat
12c0: 65 20 61 20 72 61 6e 64 6f 6d 20 6e 61 6d 65 20 e a random name
12d0: 6f 66 20 32 30 20 63 68 61 72 61 63 74 65 72 20 of 20 character
12e0: 69 6e 20 6c 65 6e 67 74 68 2e 0a 2a 2f 0a 73 74 in length..*/.st
12f0: 61 74 69 63 20 76 6f 69 64 20 72 61 6e 64 6f 6d atic void random
1300: 4e 61 6d 65 28 75 6e 73 69 67 6e 65 64 20 63 68 Name(unsigned ch
1310: 61 72 20 2a 7a 42 75 66 29 7b 0a 20 20 73 74 61 ar *zBuf){. sta
1320: 74 69 63 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e tic const unsign
1330: 65 64 20 63 68 61 72 20 7a 43 68 61 72 73 5b 5d ed char zChars[]
1340: 20 3d 0a 20 20 20 20 22 61 62 63 64 65 66 67 68 =. "abcdefgh
1350: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 ijklmnopqrstuvwx
1360: 79 7a 22 0a 20 20 20 20 22 30 31 32 33 34 35 36 yz". "0123456
1370: 37 38 39 22 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 789";. int i;.
1380: 20 73 71 6c 69 74 65 52 61 6e 64 6f 6d 6e 65 73 sqliteRandomnes
1390: 73 28 32 30 2c 20 7a 42 75 66 29 3b 0a 20 20 66 s(20, zBuf);. f
13a0: 6f 72 28 69 3d 30 3b 20 69 3c 32 30 3b 20 69 2b or(i=0; i<20; i+
13b0: 2b 29 7b 0a 20 20 20 20 7a 42 75 66 5b 69 5d 20 +){. zBuf[i]
13c0: 3d 20 7a 43 68 61 72 73 5b 20 7a 42 75 66 5b 69 = zChars[ zBuf[i
13d0: 5d 25 28 73 69 7a 65 6f 66 28 7a 43 68 61 72 73 ]%(sizeof(zChars
13e0: 29 2d 31 29 20 5d 3b 0a 20 20 7d 0a 7d 0a 23 65 )-1) ];. }.}.#e
13f0: 6e 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 ndif../*.** The
1400: 6e 6f 6e 2d 73 74 61 6e 64 61 72 64 20 56 41 43 non-standard VAC
1410: 55 55 4d 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 UUM command is u
1420: 73 65 64 20 74 6f 20 63 6c 65 61 6e 20 75 70 20 sed to clean up
1430: 74 68 65 20 64 61 74 61 62 61 73 65 2c 0a 2a 2a the database,.**
1440: 20 63 6f 6c 6c 61 70 73 65 20 66 72 65 65 20 73 collapse free s
1450: 70 61 63 65 2c 20 65 74 63 2e 20 20 49 74 20 69 pace, etc. It i
1460: 73 20 6d 6f 64 65 6c 6c 65 64 20 61 66 74 65 72 s modelled after
1470: 20 74 68 65 20 56 41 43 55 55 4d 20 63 6f 6d 6d the VACUUM comm
1480: 61 6e 64 0a 2a 2a 20 69 6e 20 50 6f 73 74 67 72 and.** in Postgr
1490: 65 53 51 4c 2e 0a 2a 2a 0a 2a 2a 20 49 6e 20 76 eSQL..**.** In v
14a0: 65 72 73 69 6f 6e 20 31 2e 30 2e 78 20 6f 66 20 ersion 1.0.x of
14b0: 53 51 4c 69 74 65 2c 20 74 68 65 20 56 41 43 55 SQLite, the VACU
14c0: 55 4d 20 63 6f 6d 6d 61 6e 64 20 77 6f 75 6c 64 UM command would
14d0: 20 63 61 6c 6c 0a 2a 2a 20 67 64 62 6d 5f 72 65 call.** gdbm_re
14e0: 6f 72 67 61 6e 69 7a 65 28 29 20 6f 6e 20 61 6c organize() on al
14f0: 6c 20 74 68 65 20 64 61 74 61 62 61 73 65 20 74 l the database t
1500: 61 62 6c 65 73 2e 20 20 42 75 74 20 62 65 67 69 ables. But begi
1510: 6e 6e 69 6e 67 0a 2a 2a 20 77 69 74 68 20 32 2e nning.** with 2.
1520: 30 2e 30 2c 20 53 51 4c 69 74 65 20 6e 6f 20 6c 0.0, SQLite no l
1530: 6f 6e 67 65 72 20 75 73 65 73 20 47 44 42 4d 20 onger uses GDBM
1540: 73 6f 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 so this command
1550: 68 61 73 0a 2a 2a 20 62 65 63 6f 6d 65 20 61 20 has.** become a
1560: 6e 6f 2d 6f 70 2e 0a 2a 2f 0a 76 6f 69 64 20 73 no-op..*/.void s
1570: 71 6c 69 74 65 56 61 63 75 75 6d 28 50 61 72 73 qliteVacuum(Pars
1580: 65 20 2a 70 50 61 72 73 65 2c 20 54 6f 6b 65 6e e *pParse, Token
1590: 20 2a 70 54 61 62 6c 65 4e 61 6d 65 29 7b 0a 20 *pTableName){.
15a0: 20 56 64 62 65 20 2a 76 20 3d 20 73 71 6c 69 74 Vdbe *v = sqlit
15b0: 65 47 65 74 56 64 62 65 28 70 50 61 72 73 65 29 eGetVdbe(pParse)
15c0: 3b 0a 20 20 73 71 6c 69 74 65 56 64 62 65 41 64 ;. sqliteVdbeAd
15d0: 64 4f 70 28 76 2c 20 4f 50 5f 56 61 63 75 75 6d dOp(v, OP_Vacuum
15e0: 2c 20 30 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 , 0, 0);. retur
15f0: 6e 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 54 68 69 73 n;.}../*.** This
1600: 20 72 6f 75 74 69 6e 65 20 69 6d 70 6c 65 6d 65 routine impleme
1610: 6e 74 73 20 74 68 65 20 4f 50 5f 56 61 63 75 75 nts the OP_Vacuu
1620: 6d 20 6f 70 63 6f 64 65 20 6f 66 20 74 68 65 20 m opcode of the
1630: 56 44 42 45 2e 0a 2a 2f 0a 69 6e 74 20 73 71 6c VDBE..*/.int sql
1640: 69 74 65 52 75 6e 56 61 63 75 75 6d 28 63 68 61 iteRunVacuum(cha
1650: 72 20 2a 2a 70 7a 45 72 72 4d 73 67 2c 20 73 71 r **pzErrMsg, sq
1660: 6c 69 74 65 20 2a 64 62 29 7b 0a 23 69 66 20 21 lite *db){.#if !
1670: 64 65 66 69 6e 65 64 28 53 51 4c 49 54 45 5f 4f defined(SQLITE_O
1680: 4d 49 54 5f 56 41 43 55 55 4d 29 20 7c 7c 20 53 MIT_VACUUM) || S
1690: 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 41 43 55 55 QLITE_OMIT_VACUU
16a0: 4d 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a M. const char *
16b0: 7a 46 69 6c 65 6e 61 6d 65 3b 20 20 2f 2a 20 66 zFilename; /* f
16c0: 75 6c 6c 20 70 61 74 68 6e 61 6d 65 20 6f 66 20 ull pathname of
16d0: 74 68 65 20 64 61 74 61 62 61 73 65 20 66 69 6c the database fil
16e0: 65 20 2a 2f 0a 20 20 69 6e 74 20 6e 46 69 6c 65 e */. int nFile
16f0: 6e 61 6d 65 3b 20 20 20 20 20 20 20 20 20 20 2f name; /
1700: 2a 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 * number of char
1710: 61 63 74 65 72 73 20 20 69 6e 20 7a 46 69 6c 65 acters in zFile
1720: 6e 61 6d 65 5b 5d 20 2a 2f 0a 20 20 63 68 61 72 name[] */. char
1730: 20 2a 7a 54 65 6d 70 20 3d 20 30 3b 20 20 20 20 *zTemp = 0;
1740: 20 20 20 20 2f 2a 20 61 20 74 65 6d 70 6f 72 61 /* a tempora
1750: 72 79 20 66 69 6c 65 20 69 6e 20 73 61 6d 65 20 ry file in same
1760: 64 69 72 65 63 74 6f 72 79 20 61 73 20 7a 46 69 directory as zFi
1770: 6c 65 6e 61 6d 65 20 2a 2f 0a 20 20 73 71 6c 69 lename */. sqli
1780: 74 65 20 2a 64 62 4e 65 77 20 3d 20 30 3b 20 20 te *dbNew = 0;
1790: 20 20 20 20 2f 2a 20 54 68 65 20 6e 65 77 20 76 /* The new v
17a0: 61 63 75 75 6d 65 64 20 64 61 74 61 62 61 73 65 acuumed database
17b0: 20 2a 2f 0a 20 20 69 6e 74 20 72 63 20 3d 20 53 */. int rc = S
17c0: 51 4c 49 54 45 5f 4f 4b 3b 20 20 20 20 20 2f 2a QLITE_OK; /*
17d0: 20 52 65 74 75 72 6e 20 63 6f 64 65 20 66 72 6f Return code fro
17e0: 6d 20 73 65 72 76 69 63 65 20 72 6f 75 74 69 6e m service routin
17f0: 65 73 20 2a 2f 0a 20 20 69 6e 74 20 69 3b 20 20 es */. int i;
1800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1810: 2f 2a 20 4c 6f 6f 70 20 63 6f 75 6e 74 65 72 20 /* Loop counter
1820: 2a 2f 0a 20 20 63 68 61 72 20 2a 7a 45 72 72 4d */. char *zErrM
1830: 73 67 3b 20 20 20 20 20 20 20 20 20 20 2f 2a 20 sg; /*
1840: 45 72 72 6f 72 20 6d 65 73 73 61 67 65 20 2a 2f Error message */
1850: 0a 20 20 76 61 63 75 75 6d 53 74 72 75 63 74 20 . vacuumStruct
1860: 73 56 61 63 3b 20 20 20 20 20 20 2f 2a 20 49 6e sVac; /* In
1870: 66 6f 72 6d 61 74 69 6f 6e 20 70 61 73 73 65 64 formation passed
1880: 20 74 6f 20 63 61 6c 6c 62 61 63 6b 73 20 2a 2f to callbacks */
1890: 0a 0a 20 20 69 66 28 20 64 62 2d 3e 66 6c 61 67 .. if( db->flag
18a0: 73 20 26 20 53 51 4c 49 54 45 5f 49 6e 54 72 61 s & SQLITE_InTra
18b0: 6e 73 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 ns ){. sqlite
18c0: 53 65 74 53 74 72 69 6e 67 28 70 7a 45 72 72 4d SetString(pzErrM
18d0: 73 67 2c 20 22 63 61 6e 6e 6f 74 20 56 41 43 55 sg, "cannot VACU
18e0: 55 4d 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 61 UM from within a
18f0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 22 2c 20 0a transaction", .
1900: 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 30 29 (char*)0)
1910: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c ;. return SQL
1920: 49 54 45 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 20 ITE_ERROR;. }.
1930: 20 69 66 28 20 64 62 2d 3e 66 6c 61 67 73 20 26 if( db->flags &
1940: 20 53 51 4c 49 54 45 5f 49 6e 74 65 72 72 75 70 SQLITE_Interrup
1950: 74 20 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 t ){. return
1960: 53 51 4c 49 54 45 5f 49 4e 54 45 52 52 55 50 54 SQLITE_INTERRUPT
1970: 3b 0a 20 20 7d 0a 20 20 6d 65 6d 73 65 74 28 26 ;. }. memset(&
1980: 73 56 61 63 2c 20 30 2c 20 73 69 7a 65 6f 66 28 sVac, 0, sizeof(
1990: 73 56 61 63 29 29 3b 0a 0a 20 20 2f 2a 20 47 65 sVac));.. /* Ge
19a0: 74 20 74 68 65 20 66 75 6c 6c 20 70 61 74 68 6e t the full pathn
19b0: 61 6d 65 20 6f 66 20 74 68 65 20 64 61 74 61 62 ame of the datab
19c0: 61 73 65 20 66 69 6c 65 20 61 6e 64 20 63 72 65 ase file and cre
19d0: 61 74 65 20 74 77 6f 0a 20 20 2a 2a 20 74 65 6d ate two. ** tem
19e0: 70 6f 72 61 72 79 20 66 69 6c 65 6e 61 6d 65 73 porary filenames
19f0: 20 69 6e 20 74 68 65 20 73 61 6d 65 20 64 69 72 in the same dir
1a00: 65 63 74 6f 72 79 20 61 73 20 74 68 65 20 6f 72 ectory as the or
1a10: 69 67 69 6e 61 6c 20 66 69 6c 65 2e 0a 20 20 2a iginal file.. *
1a20: 2f 0a 20 20 7a 46 69 6c 65 6e 61 6d 65 20 3d 20 /. zFilename =
1a30: 73 71 6c 69 74 65 42 74 72 65 65 47 65 74 46 69 sqliteBtreeGetFi
1a40: 6c 65 6e 61 6d 65 28 64 62 2d 3e 61 44 62 5b 30 lename(db->aDb[0
1a50: 5d 2e 70 42 74 29 3b 0a 20 20 69 66 28 20 7a 46 ].pBt);. if( zF
1a60: 69 6c 65 6e 61 6d 65 3d 3d 30 20 29 7b 0a 20 20 ilename==0 ){.
1a70: 20 20 2f 2a 20 54 68 69 73 20 6f 6e 6c 79 20 68 /* This only h
1a80: 61 70 70 65 6e 73 20 77 69 74 68 20 74 68 65 20 appens with the
1a90: 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 in-memory databa
1aa0: 73 65 2e 20 20 56 41 43 55 55 4d 20 69 73 20 61 se. VACUUM is a
1ab0: 20 6e 6f 2d 6f 70 0a 20 20 20 20 2a 2a 20 74 68 no-op. ** th
1ac0: 65 72 65 2c 20 73 6f 20 6a 75 73 74 20 72 65 74 ere, so just ret
1ad0: 75 72 6e 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 urn */. retur
1ae0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 20 20 7d n SQLITE_OK;. }
1af0: 0a 20 20 6e 46 69 6c 65 6e 61 6d 65 20 3d 20 73 . nFilename = s
1b00: 74 72 6c 65 6e 28 7a 46 69 6c 65 6e 61 6d 65 29 trlen(zFilename)
1b10: 3b 0a 20 20 7a 54 65 6d 70 20 3d 20 73 71 6c 69 ;. zTemp = sqli
1b20: 74 65 4d 61 6c 6c 6f 63 28 20 6e 46 69 6c 65 6e teMalloc( nFilen
1b30: 61 6d 65 2b 31 30 30 20 29 3b 0a 20 20 69 66 28 ame+100 );. if(
1b40: 20 7a 54 65 6d 70 3d 3d 30 20 29 20 72 65 74 75 zTemp==0 ) retu
1b50: 72 6e 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 3b rn SQLITE_NOMEM;
1b60: 0a 20 20 73 74 72 63 70 79 28 7a 54 65 6d 70 2c . strcpy(zTemp,
1b70: 20 7a 46 69 6c 65 6e 61 6d 65 29 3b 0a 20 20 66 zFilename);. f
1b80: 6f 72 28 69 3d 30 3b 20 69 3c 31 30 3b 20 69 2b or(i=0; i<10; i+
1b90: 2b 29 7b 0a 20 20 20 20 7a 54 65 6d 70 5b 6e 46 +){. zTemp[nF
1ba0: 69 6c 65 6e 61 6d 65 5d 20 3d 20 27 2d 27 3b 0a ilename] = '-';.
1bb0: 20 20 20 20 72 61 6e 64 6f 6d 4e 61 6d 65 28 28 randomName((
1bc0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 2a 29 26 unsigned char*)&
1bd0: 7a 54 65 6d 70 5b 6e 46 69 6c 65 6e 61 6d 65 2b zTemp[nFilename+
1be0: 31 5d 29 3b 0a 20 20 20 20 69 66 28 20 21 73 71 1]);. if( !sq
1bf0: 6c 69 74 65 4f 73 46 69 6c 65 45 78 69 73 74 73 liteOsFileExists
1c00: 28 7a 54 65 6d 70 29 20 29 20 62 72 65 61 6b 3b (zTemp) ) break;
1c10: 0a 20 20 7d 0a 20 20 69 66 28 20 69 3e 3d 31 30 . }. if( i>=10
1c20: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 53 65 ){. sqliteSe
1c30: 74 53 74 72 69 6e 67 28 70 7a 45 72 72 4d 73 67 tString(pzErrMsg
1c40: 2c 20 22 75 6e 61 62 6c 65 20 74 6f 20 63 72 65 , "unable to cre
1c50: 61 74 65 20 61 20 74 65 6d 70 6f 72 61 72 79 20 ate a temporary
1c60: 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 22 0a database file ".
1c70: 20 20 20 20 20 20 20 22 69 6e 20 74 68 65 20 73 "in the s
1c80: 61 6d 65 20 64 69 72 65 63 74 6f 72 79 20 61 73 ame directory as
1c90: 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 64 61 the original da
1ca0: 74 61 62 61 73 65 22 2c 20 28 63 68 61 72 2a 29 tabase", (char*)
1cb0: 30 29 3b 0a 20 20 20 20 67 6f 74 6f 20 65 6e 64 0);. goto end
1cc0: 5f 6f 66 5f 76 61 63 75 75 6d 3b 0a 20 20 7d 0a _of_vacuum;. }.
1cd0: 0a 20 20 0a 20 20 64 62 4e 65 77 20 3d 20 73 71 . . dbNew = sq
1ce0: 6c 69 74 65 5f 6f 70 65 6e 28 7a 54 65 6d 70 2c lite_open(zTemp,
1cf0: 20 30 2c 20 26 7a 45 72 72 4d 73 67 29 3b 0a 20 0, &zErrMsg);.
1d00: 20 69 66 28 20 64 62 4e 65 77 3d 3d 30 20 29 7b if( dbNew==0 ){
1d10: 0a 20 20 20 20 73 71 6c 69 74 65 53 65 74 53 74 . sqliteSetSt
1d20: 72 69 6e 67 28 70 7a 45 72 72 4d 73 67 2c 20 22 ring(pzErrMsg, "
1d30: 75 6e 61 62 6c 65 20 74 6f 20 6f 70 65 6e 20 61 unable to open a
1d40: 20 74 65 6d 70 6f 72 61 72 79 20 64 61 74 61 62 temporary datab
1d50: 61 73 65 20 61 74 20 22 2c 0a 20 20 20 20 20 20 ase at ",.
1d60: 20 7a 54 65 6d 70 2c 20 22 20 2d 20 22 2c 20 7a zTemp, " - ", z
1d70: 45 72 72 4d 73 67 2c 20 28 63 68 61 72 2a 29 30 ErrMsg, (char*)0
1d80: 29 3b 0a 20 20 20 20 67 6f 74 6f 20 65 6e 64 5f );. goto end_
1d90: 6f 66 5f 76 61 63 75 75 6d 3b 0a 20 20 7d 0a 20 of_vacuum;. }.
1da0: 20 69 66 28 20 28 72 63 20 3d 20 65 78 65 63 73 if( (rc = execs
1db0: 71 6c 28 70 7a 45 72 72 4d 73 67 2c 20 64 62 2c ql(pzErrMsg, db,
1dc0: 20 22 42 45 47 49 4e 22 29 29 21 3d 30 20 29 20 "BEGIN"))!=0 )
1dd0: 67 6f 74 6f 20 65 6e 64 5f 6f 66 5f 76 61 63 75 goto end_of_vacu
1de0: 75 6d 3b 0a 20 20 69 66 28 20 28 72 63 20 3d 20 um;. if( (rc =
1df0: 65 78 65 63 73 71 6c 28 70 7a 45 72 72 4d 73 67 execsql(pzErrMsg
1e00: 2c 20 64 62 4e 65 77 2c 20 22 50 52 41 47 4d 41 , dbNew, "PRAGMA
1e10: 20 73 79 6e 63 68 72 6f 6e 6f 75 73 3d 6f 66 66 synchronous=off
1e20: 3b 20 42 45 47 49 4e 22 29 29 21 3d 30 20 29 7b ; BEGIN"))!=0 ){
1e30: 0a 20 20 20 20 67 6f 74 6f 20 65 6e 64 5f 6f 66 . goto end_of
1e40: 5f 76 61 63 75 75 6d 3b 0a 20 20 7d 0a 20 20 0a _vacuum;. }. .
1e50: 20 20 73 56 61 63 2e 64 62 4f 6c 64 20 3d 20 64 sVac.dbOld = d
1e60: 62 3b 0a 20 20 73 56 61 63 2e 64 62 4e 65 77 20 b;. sVac.dbNew
1e70: 3d 20 64 62 4e 65 77 3b 0a 20 20 73 56 61 63 2e = dbNew;. sVac.
1e80: 70 7a 45 72 72 4d 73 67 20 3d 20 70 7a 45 72 72 pzErrMsg = pzErr
1e90: 4d 73 67 3b 0a 20 20 69 66 28 20 72 63 3d 3d 53 Msg;. if( rc==S
1ea0: 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 QLITE_OK ){.
1eb0: 72 63 20 3d 20 73 71 6c 69 74 65 5f 65 78 65 63 rc = sqlite_exec
1ec0: 28 64 62 2c 20 0a 20 20 20 20 20 20 22 53 45 4c (db, . "SEL
1ed0: 45 43 54 20 74 79 70 65 2c 20 6e 61 6d 65 2c 20 ECT type, name,
1ee0: 73 71 6c 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f sql FROM sqlite_
1ef0: 6d 61 73 74 65 72 20 22 0a 20 20 20 20 20 20 22 master ". "
1f00: 57 48 45 52 45 20 73 71 6c 20 4e 4f 54 20 4e 55 WHERE sql NOT NU
1f10: 4c 4c 20 41 4e 44 20 74 79 70 65 21 3d 27 76 69 LL AND type!='vi
1f20: 65 77 27 20 22 0a 20 20 20 20 20 20 22 55 4e 49 ew' ". "UNI
1f30: 4f 4e 20 41 4c 4c 20 22 0a 20 20 20 20 20 20 22 ON ALL ". "
1f40: 53 45 4c 45 43 54 20 74 79 70 65 2c 20 6e 61 6d SELECT type, nam
1f50: 65 2c 20 73 71 6c 20 46 52 4f 4d 20 73 71 6c 69 e, sql FROM sqli
1f60: 74 65 5f 6d 61 73 74 65 72 20 22 0a 20 20 20 20 te_master ".
1f70: 20 20 22 57 48 45 52 45 20 73 71 6c 20 4e 4f 54 "WHERE sql NOT
1f80: 20 4e 55 4c 4c 20 41 4e 44 20 74 79 70 65 3d 3d NULL AND type==
1f90: 27 76 69 65 77 27 22 2c 0a 20 20 20 20 20 20 76 'view'",. v
1fa0: 61 63 75 75 6d 43 61 6c 6c 62 61 63 6b 31 2c 20 acuumCallback1,
1fb0: 26 73 56 61 63 2c 20 26 7a 45 72 72 4d 73 67 29 &sVac, &zErrMsg)
1fc0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 72 63 3d 3d ;. }. if( rc==
1fd0: 53 51 4c 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 SQLITE_OK ){.
1fe0: 20 69 6e 74 20 6d 65 74 61 31 5b 53 51 4c 49 54 int meta1[SQLIT
1ff0: 45 5f 4e 5f 42 54 52 45 45 5f 4d 45 54 41 5d 3b E_N_BTREE_META];
2000: 0a 20 20 20 20 69 6e 74 20 6d 65 74 61 32 5b 53 . int meta2[S
2010: 51 4c 49 54 45 5f 4e 5f 42 54 52 45 45 5f 4d 45 QLITE_N_BTREE_ME
2020: 54 41 5d 3b 0a 20 20 20 20 73 71 6c 69 74 65 42 TA];. sqliteB
2030: 74 72 65 65 47 65 74 4d 65 74 61 28 64 62 2d 3e treeGetMeta(db->
2040: 61 44 62 5b 30 5d 2e 70 42 74 2c 20 6d 65 74 61 aDb[0].pBt, meta
2050: 31 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 42 74 1);. sqliteBt
2060: 72 65 65 47 65 74 4d 65 74 61 28 64 62 4e 65 77 reeGetMeta(dbNew
2070: 2d 3e 61 44 62 5b 30 5d 2e 70 42 74 2c 20 6d 65 ->aDb[0].pBt, me
2080: 74 61 32 29 3b 0a 20 20 20 20 6d 65 74 61 32 5b ta2);. meta2[
2090: 31 5d 20 3d 20 6d 65 74 61 31 5b 31 5d 2b 31 3b 1] = meta1[1]+1;
20a0: 0a 20 20 20 20 6d 65 74 61 32 5b 33 5d 20 3d 20 . meta2[3] =
20b0: 6d 65 74 61 31 5b 33 5d 3b 0a 20 20 20 20 6d 65 meta1[3];. me
20c0: 74 61 32 5b 34 5d 20 3d 20 6d 65 74 61 31 5b 34 ta2[4] = meta1[4
20d0: 5d 3b 0a 20 20 20 20 6d 65 74 61 32 5b 36 5d 20 ];. meta2[6]
20e0: 3d 20 6d 65 74 61 31 5b 36 5d 3b 0a 20 20 20 20 = meta1[6];.
20f0: 72 63 20 3d 20 73 71 6c 69 74 65 42 74 72 65 65 rc = sqliteBtree
2100: 55 70 64 61 74 65 4d 65 74 61 28 64 62 4e 65 77 UpdateMeta(dbNew
2110: 2d 3e 61 44 62 5b 30 5d 2e 70 42 74 2c 20 6d 65 ->aDb[0].pBt, me
2120: 74 61 32 29 3b 0a 20 20 7d 0a 20 20 69 66 28 20 ta2);. }. if(
2130: 72 63 3d 3d 53 51 4c 49 54 45 5f 4f 4b 20 29 7b rc==SQLITE_OK ){
2140: 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 . rc = sqlite
2150: 42 74 72 65 65 43 6f 70 79 46 69 6c 65 28 64 62 BtreeCopyFile(db
2160: 2d 3e 61 44 62 5b 30 5d 2e 70 42 74 2c 20 64 62 ->aDb[0].pBt, db
2170: 4e 65 77 2d 3e 61 44 62 5b 30 5d 2e 70 42 74 29 New->aDb[0].pBt)
2180: 3b 0a 20 20 20 20 73 71 6c 69 74 65 5f 65 78 65 ;. sqlite_exe
2190: 63 28 64 62 2c 20 22 43 4f 4d 4d 49 54 22 2c 20 c(db, "COMMIT",
21a0: 30 2c 20 30 2c 20 30 29 3b 0a 20 20 20 20 73 71 0, 0, 0);. sq
21b0: 6c 69 74 65 52 65 73 65 74 49 6e 74 65 72 6e 61 liteResetInterna
21c0: 6c 53 63 68 65 6d 61 28 64 62 2c 20 30 29 3b 0a lSchema(db, 0);.
21d0: 20 20 7d 0a 0a 65 6e 64 5f 6f 66 5f 76 61 63 75 }..end_of_vacu
21e0: 75 6d 3a 0a 20 20 69 66 28 20 72 63 20 26 26 20 um:. if( rc &&
21f0: 7a 45 72 72 4d 73 67 21 3d 30 20 29 7b 0a 20 20 zErrMsg!=0 ){.
2200: 20 20 73 71 6c 69 74 65 53 65 74 53 74 72 69 6e sqliteSetStrin
2210: 67 28 70 7a 45 72 72 4d 73 67 2c 20 22 75 6e 61 g(pzErrMsg, "una
2220: 62 6c 65 20 74 6f 20 76 61 63 75 75 6d 20 64 61 ble to vacuum da
2230: 74 61 62 61 73 65 20 2d 20 22 2c 20 0a 20 20 20 tabase - ", .
2240: 20 20 20 20 7a 45 72 72 4d 73 67 2c 20 28 63 68 zErrMsg, (ch
2250: 61 72 2a 29 30 29 3b 0a 20 20 7d 0a 20 20 73 71 ar*)0);. }. sq
2260: 6c 69 74 65 5f 65 78 65 63 28 64 62 2c 20 22 52 lite_exec(db, "R
2270: 4f 4c 4c 42 41 43 4b 22 2c 20 30 2c 20 30 2c 20 OLLBACK", 0, 0,
2280: 30 29 3b 0a 20 20 69 66 28 20 28 64 62 4e 65 77 0);. if( (dbNew
2290: 20 26 26 20 28 64 62 4e 65 77 2d 3e 66 6c 61 67 && (dbNew->flag
22a0: 73 20 26 20 53 51 4c 49 54 45 5f 49 6e 74 65 72 s & SQLITE_Inter
22b0: 72 75 70 74 29 29 20 0a 20 20 20 20 20 20 20 20 rupt)) .
22c0: 20 7c 7c 20 28 64 62 2d 3e 66 6c 61 67 73 20 26 || (db->flags &
22d0: 20 53 51 4c 49 54 45 5f 49 6e 74 65 72 72 75 70 SQLITE_Interrup
22e0: 74 29 20 29 7b 0a 20 20 20 20 72 63 20 3d 20 53 t) ){. rc = S
22f0: 51 4c 49 54 45 5f 49 4e 54 45 52 52 55 50 54 3b QLITE_INTERRUPT;
2300: 0a 20 20 7d 0a 20 20 69 66 28 20 64 62 4e 65 77 . }. if( dbNew
2310: 20 29 20 73 71 6c 69 74 65 5f 63 6c 6f 73 65 28 ) sqlite_close(
2320: 64 62 4e 65 77 29 3b 0a 20 20 73 71 6c 69 74 65 dbNew);. sqlite
2330: 4f 73 44 65 6c 65 74 65 28 7a 54 65 6d 70 29 3b OsDelete(zTemp);
2340: 0a 20 20 73 71 6c 69 74 65 46 72 65 65 28 7a 54 . sqliteFree(zT
2350: 65 6d 70 29 3b 0a 20 20 73 71 6c 69 74 65 46 72 emp);. sqliteFr
2360: 65 65 28 73 56 61 63 2e 73 31 2e 7a 29 3b 0a 20 ee(sVac.s1.z);.
2370: 20 73 71 6c 69 74 65 46 72 65 65 28 73 56 61 63 sqliteFree(sVac
2380: 2e 73 32 2e 7a 29 3b 0a 20 20 69 66 28 20 7a 45 .s2.z);. if( zE
2390: 72 72 4d 73 67 20 29 20 73 71 6c 69 74 65 5f 66 rrMsg ) sqlite_f
23a0: 72 65 65 6d 65 6d 28 7a 45 72 72 4d 73 67 29 3b reemem(zErrMsg);
23b0: 0a 20 20 69 66 28 20 72 63 3d 3d 53 51 4c 49 54 . if( rc==SQLIT
23c0: 45 5f 41 42 4f 52 54 20 26 26 20 73 56 61 63 2e E_ABORT && sVac.
23d0: 72 63 21 3d 53 51 4c 49 54 45 5f 49 4e 54 45 52 rc!=SQLITE_INTER
23e0: 52 55 50 54 20 29 20 73 56 61 63 2e 72 63 20 3d RUPT ) sVac.rc =
23f0: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 3b 0a 20 SQLITE_ERROR;.
2400: 20 72 65 74 75 72 6e 20 73 56 61 63 2e 72 63 3b return sVac.rc;
2410: 0a 23 65 6e 64 69 66 0a 7d 0a .#endif.}.