0000: 2f 2a 0a 2a 2a 20 32 30 30 39 20 4a 61 6e 75 61 /*.** 2009 Janua
0010: 72 79 20 32 38 0a 2a 2a 0a 2a 2a 20 54 68 65 20 ry 28.**.** The
0020: 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 author disclaims
0030: 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 copyright to th
0040: 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 is source code.
0050: 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 In place of.**
0060: 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 a legal notice,
0070: 68 65 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 here is a blessi
0080: 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 ng:.**.** May
0090: 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 you do good and
00a0: 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 not evil..**
00b0: 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f May you find fo
00c0: 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f rgiveness for yo
00d0: 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 urself and forgi
00e0: 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 ve others..**
00f0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 May you share f
0100: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b reely, never tak
0110: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f ing more than yo
0120: 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a u 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 0a 2a 2a 0a 2a 2a 20 24 49 64 3a 20 ****.**.** $Id:
0180: 74 65 73 74 5f 62 61 63 6b 75 70 2e 63 2c 76 20 test_backup.c,v
0190: 31 2e 33 20 32 30 30 39 2f 30 33 2f 33 30 20 31 1.3 2009/03/30 1
01a0: 32 3a 35 36 3a 35 32 20 64 72 68 20 45 78 70 20 2:56:52 drh Exp
01b0: 24 0a 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 $.*/..#include "
01c0: 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 tcl.h".#include
01d0: 22 73 71 6c 69 74 65 33 2e 68 22 0a 23 69 6e 63 "sqlite3.h".#inc
01e0: 6c 75 64 65 20 3c 61 73 73 65 72 74 2e 68 3e 0a lude <assert.h>.
01f0: 0a 2f 2a 20 54 68 65 73 65 20 66 75 6e 63 74 69 ./* These functi
0200: 6f 6e 73 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e ons are implemen
0210: 74 65 64 20 69 6e 20 74 65 73 74 31 2e 63 2e 20 ted in test1.c.
0220: 2a 2f 0a 69 6e 74 20 67 65 74 44 62 50 6f 69 6e */.int getDbPoin
0230: 74 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ter(Tcl_Interp *
0240: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 2c 20 , const char *,
0250: 73 71 6c 69 74 65 33 20 2a 2a 29 3b 0a 63 6f 6e sqlite3 **);.con
0260: 73 74 20 63 68 61 72 20 2a 73 71 6c 69 74 65 33 st char *sqlite3
0270: 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28 69 6e TestErrorName(in
0280: 74 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 t);..static int
0290: 62 61 63 6b 75 70 54 65 73 74 43 6d 64 28 0a 20 backupTestCmd(.
02a0: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
02b0: 6e 74 44 61 74 61 2c 20 0a 20 20 54 63 6c 5f 49 ntData, . Tcl_I
02c0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a nterp *interp, .
02d0: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 int objc,. Tc
02e0: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 2a 6f 62 6a l_Obj *const*obj
02f0: 76 0a 29 7b 0a 20 20 65 6e 75 6d 20 42 61 63 6b v.){. enum Back
0300: 75 70 53 75 62 43 6f 6d 6d 61 6e 64 45 6e 75 6d upSubCommandEnum
0310: 20 7b 0a 20 20 20 20 42 41 43 4b 55 50 5f 53 54 {. BACKUP_ST
0320: 45 50 2c 20 42 41 43 4b 55 50 5f 46 49 4e 49 53 EP, BACKUP_FINIS
0330: 48 2c 20 42 41 43 4b 55 50 5f 52 45 4d 41 49 4e H, BACKUP_REMAIN
0340: 49 4e 47 2c 20 42 41 43 4b 55 50 5f 50 41 47 45 ING, BACKUP_PAGE
0350: 43 4f 55 4e 54 0a 20 20 7d 3b 0a 20 20 73 74 72 COUNT. };. str
0360: 75 63 74 20 42 61 63 6b 75 70 53 75 62 43 6f 6d uct BackupSubCom
0370: 6d 61 6e 64 20 7b 0a 20 20 20 20 63 6f 6e 73 74 mand {. const
0380: 20 63 68 61 72 20 2a 7a 43 6d 64 3b 0a 20 20 20 char *zCmd;.
0390: 20 65 6e 75 6d 20 42 61 63 6b 75 70 53 75 62 43 enum BackupSubC
03a0: 6f 6d 6d 61 6e 64 45 6e 75 6d 20 65 43 6d 64 3b ommandEnum eCmd;
03b0: 0a 20 20 20 20 69 6e 74 20 6e 41 72 67 3b 0a 20 . int nArg;.
03c0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a const char *z
03d0: 41 72 67 3b 0a 20 20 7d 20 61 53 75 62 5b 5d 20 Arg;. } aSub[]
03e0: 3d 20 7b 0a 20 20 20 20 7b 22 73 74 65 70 22 2c = {. {"step",
03f0: 20 20 20 20 20 20 42 41 43 4b 55 50 5f 53 54 45 BACKUP_STE
0400: 50 20 20 20 20 20 20 2c 20 31 2c 20 22 6e 70 61 P , 1, "npa
0410: 67 65 22 20 7d 2c 0a 20 20 20 20 7b 22 66 69 6e ge" },. {"fin
0420: 69 73 68 22 2c 20 20 20 20 42 41 43 4b 55 50 5f ish", BACKUP_
0430: 46 49 4e 49 53 48 20 20 20 20 2c 20 30 2c 20 22 FINISH , 0, "
0440: 22 20 20 20 20 20 20 7d 2c 0a 20 20 20 20 7b 22 " },. {"
0450: 72 65 6d 61 69 6e 69 6e 67 22 2c 20 42 41 43 4b remaining", BACK
0460: 55 50 5f 52 45 4d 41 49 4e 49 4e 47 20 2c 20 30 UP_REMAINING , 0
0470: 2c 20 22 22 20 20 20 20 20 20 7d 2c 0a 20 20 20 , "" },.
0480: 20 7b 22 70 61 67 65 63 6f 75 6e 74 22 2c 20 42 {"pagecount", B
0490: 41 43 4b 55 50 5f 50 41 47 45 43 4f 55 4e 54 20 ACKUP_PAGECOUNT
04a0: 2c 20 30 2c 20 22 22 20 20 20 20 20 20 7d 2c 0a , 0, "" },.
04b0: 20 20 20 20 7b 30 2c 20 30 2c 20 30 2c 20 30 7d {0, 0, 0, 0}
04c0: 0a 20 20 7d 3b 0a 0a 20 20 73 71 6c 69 74 65 33 . };.. sqlite3
04d0: 5f 62 61 63 6b 75 70 20 2a 70 20 3d 20 28 73 71 _backup *p = (sq
04e0: 6c 69 74 65 33 5f 62 61 63 6b 75 70 20 2a 29 63 lite3_backup *)c
04f0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 69 6e 74 lientData;. int
0500: 20 69 43 6d 64 3b 0a 20 20 69 6e 74 20 72 63 3b iCmd;. int rc;
0510: 0a 0a 20 20 72 63 20 3d 20 54 63 6c 5f 47 65 74 .. rc = Tcl_Get
0520: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 53 74 72 75 IndexFromObjStru
0530: 63 74 28 0a 20 20 20 20 20 20 69 6e 74 65 72 70 ct(. interp
0540: 2c 20 6f 62 6a 76 5b 31 5d 2c 20 61 53 75 62 2c , objv[1], aSub,
0550: 20 73 69 7a 65 6f 66 28 61 53 75 62 5b 30 5d 29 sizeof(aSub[0])
0560: 2c 20 22 6f 70 74 69 6f 6e 22 2c 20 30 2c 20 26 , "option", 0, &
0570: 69 43 6d 64 0a 20 20 29 3b 0a 20 20 69 66 28 20 iCmd. );. if(
0580: 72 63 21 3d 54 43 4c 5f 4f 4b 20 29 7b 0a 20 20 rc!=TCL_OK ){.
0590: 20 20 72 65 74 75 72 6e 20 72 63 3b 0a 20 20 7d return rc;. }
05a0: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 28 32 20 . if( objc!=(2
05b0: 2b 20 61 53 75 62 5b 69 43 6d 64 5d 2e 6e 41 72 + aSub[iCmd].nAr
05c0: 67 29 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 g) ){. Tcl_Wr
05d0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
05e0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 61 53 75 62 p, 2, objv, aSub
05f0: 5b 69 43 6d 64 5d 2e 7a 41 72 67 29 3b 0a 20 20 [iCmd].zArg);.
0600: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
0610: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 73 77 69 74 63 OR;. }.. switc
0620: 68 28 20 61 53 75 62 5b 69 43 6d 64 5d 2e 65 43 h( aSub[iCmd].eC
0630: 6d 64 20 29 7b 0a 0a 20 20 20 20 63 61 73 65 20 md ){.. case
0640: 42 41 43 4b 55 50 5f 46 49 4e 49 53 48 3a 20 7b BACKUP_FINISH: {
0650: 0a 20 20 20 20 20 20 63 6f 6e 73 74 20 63 68 61 . const cha
0660: 72 20 2a 7a 43 6d 64 4e 61 6d 65 3b 0a 20 20 20 r *zCmdName;.
0670: 20 20 20 54 63 6c 5f 43 6d 64 49 6e 66 6f 20 63 Tcl_CmdInfo c
0680: 6d 64 49 6e 66 6f 3b 0a 20 20 20 20 20 20 7a 43 mdInfo;. zC
0690: 6d 64 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 mdName = Tcl_Get
06a0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 30 5d 29 3b String(objv[0]);
06b0: 0a 20 20 20 20 20 20 54 63 6c 5f 47 65 74 43 6f . Tcl_GetCo
06c0: 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e 74 65 72 70 mmandInfo(interp
06d0: 2c 20 7a 43 6d 64 4e 61 6d 65 2c 20 26 63 6d 64 , zCmdName, &cmd
06e0: 49 6e 66 6f 29 3b 0a 20 20 20 20 20 20 63 6d 64 Info);. cmd
06f0: 49 6e 66 6f 2e 64 65 6c 65 74 65 50 72 6f 63 20 Info.deleteProc
0700: 3d 20 30 3b 0a 20 20 20 20 20 20 54 63 6c 5f 53 = 0;. Tcl_S
0710: 65 74 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69 6e etCommandInfo(in
0720: 74 65 72 70 2c 20 7a 43 6d 64 4e 61 6d 65 2c 20 terp, zCmdName,
0730: 26 63 6d 64 49 6e 66 6f 29 3b 0a 20 20 20 20 20 &cmdInfo);.
0740: 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 Tcl_DeleteComma
0750: 6e 64 28 69 6e 74 65 72 70 2c 20 7a 43 6d 64 4e nd(interp, zCmdN
0760: 61 6d 65 29 3b 0a 0a 20 20 20 20 20 20 72 63 20 ame);.. rc
0770: 3d 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 = sqlite3_backup
0780: 5f 66 69 6e 69 73 68 28 70 29 3b 0a 20 20 20 20 _finish(p);.
0790: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
07a0: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
07b0: 73 71 6c 69 74 65 33 54 65 73 74 45 72 72 6f 72 sqlite3TestError
07c0: 4e 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 Name(rc), TCL_ST
07d0: 41 54 49 43 29 3b 0a 20 20 20 20 20 20 62 72 65 ATIC);. bre
07e0: 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 ak;. }.. c
07f0: 61 73 65 20 42 41 43 4b 55 50 5f 53 54 45 50 3a ase BACKUP_STEP:
0800: 20 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e 50 61 {. int nPa
0810: 67 65 3b 0a 20 20 20 20 20 20 69 66 28 20 54 43 ge;. if( TC
0820: 4c 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 L_OK!=Tcl_GetInt
0830: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
0840: 6f 62 6a 76 5b 32 5d 2c 20 26 6e 50 61 67 65 29 objv[2], &nPage)
0850: 20 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 ){. retu
0860: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
0870: 20 20 20 20 7d 0a 20 20 20 20 20 20 72 63 20 3d }. rc =
0880: 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f sqlite3_backup_
0890: 73 74 65 70 28 70 2c 20 6e 50 61 67 65 29 3b 0a step(p, nPage);.
08a0: 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 Tcl_SetRes
08b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 ult(interp, (cha
08c0: 72 20 2a 29 73 71 6c 69 74 65 33 54 65 73 74 45 r *)sqlite3TestE
08d0: 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c 20 54 43 rrorName(rc), TC
08e0: 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20 20 20 20 L_STATIC);.
08f0: 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 break;. }..
0900: 20 20 20 63 61 73 65 20 42 41 43 4b 55 50 5f 52 case BACKUP_R
0910: 45 4d 41 49 4e 49 4e 47 3a 0a 20 20 20 20 20 20 EMAINING:.
0920: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
0930: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
0940: 49 6e 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 62 IntObj(sqlite3_b
0950: 61 63 6b 75 70 5f 72 65 6d 61 69 6e 69 6e 67 28 ackup_remaining(
0960: 70 29 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 p)));. brea
0970: 6b 3b 0a 0a 20 20 20 20 63 61 73 65 20 42 41 43 k;.. case BAC
0980: 4b 55 50 5f 50 41 47 45 43 4f 55 4e 54 3a 0a 20 KUP_PAGECOUNT:.
0990: 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 Tcl_SetObjR
09a0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
09b0: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71 6c 69 l_NewIntObj(sqli
09c0: 74 65 33 5f 62 61 63 6b 75 70 5f 70 61 67 65 63 te3_backup_pagec
09d0: 6f 75 6e 74 28 70 29 29 29 3b 0a 20 20 20 20 20 ount(p)));.
09e0: 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 0a 20 20 72 break;. }.. r
09f0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
0a00: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 62 61 63 .static void bac
0a10: 6b 75 70 54 65 73 74 46 69 6e 69 73 68 28 43 6c kupTestFinish(Cl
0a20: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
0a30: 61 74 61 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f ata){. sqlite3_
0a40: 62 61 63 6b 75 70 20 2a 70 42 61 63 6b 75 70 20 backup *pBackup
0a50: 3d 20 28 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 = (sqlite3_backu
0a60: 70 20 2a 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a p *)clientData;.
0a70: 20 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 sqlite3_backup
0a80: 5f 66 69 6e 69 73 68 28 70 42 61 63 6b 75 70 29 _finish(pBackup)
0a90: 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 20 20 20 20 73 ;.}../*.** s
0aa0: 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 20 43 4d qlite3_backup CM
0ab0: 44 4e 41 4d 45 20 44 45 53 54 48 41 4e 44 4c 45 DNAME DESTHANDLE
0ac0: 20 44 45 53 54 4e 41 4d 45 20 53 52 43 48 41 4e DESTNAME SRCHAN
0ad0: 44 4c 45 20 53 52 43 4e 41 4d 45 0a 2a 2a 0a 2a DLE SRCNAME.**.*
0ae0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 62 61 63 /.static int bac
0af0: 6b 75 70 54 65 73 74 49 6e 69 74 28 0a 20 20 43 kupTestInit(. C
0b00: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
0b10: 44 61 74 61 2c 20 0a 20 20 54 63 6c 5f 49 6e 74 Data, . Tcl_Int
0b20: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 0a 20 20 erp *interp, .
0b30: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63 6c 5f int objc,. Tcl_
0b40: 4f 62 6a 20 2a 63 6f 6e 73 74 2a 6f 62 6a 76 0a Obj *const*objv.
0b50: 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62 61 63 ){. sqlite3_bac
0b60: 6b 75 70 20 2a 70 42 61 63 6b 75 70 3b 0a 20 20 kup *pBackup;.
0b70: 73 71 6c 69 74 65 33 20 2a 70 44 65 73 74 44 62 sqlite3 *pDestDb
0b80: 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 70 53 72 ;. sqlite3 *pSr
0b90: 63 44 62 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61 cDb;. const cha
0ba0: 72 20 2a 7a 44 65 73 74 4e 61 6d 65 3b 0a 20 20 r *zDestName;.
0bb0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 72 63 const char *zSrc
0bc0: 4e 61 6d 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 Name;. const ch
0bd0: 61 72 20 2a 7a 43 6d 64 3b 0a 0a 20 20 69 66 28 ar *zCmd;.. if(
0be0: 20 6f 62 6a 63 21 3d 36 20 29 7b 0a 20 20 20 20 objc!=6 ){.
0bf0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
0c00: 28 0a 20 20 20 20 20 20 69 6e 74 65 72 70 2c 20 (. interp,
0c10: 31 2c 20 6f 62 6a 76 2c 20 22 43 4d 44 4e 41 4d 1, objv, "CMDNAM
0c20: 45 20 44 45 53 54 48 41 4e 44 4c 45 20 44 45 53 E DESTHANDLE DES
0c30: 54 4e 41 4d 45 20 53 52 43 48 41 4e 44 4c 45 20 TNAME SRCHANDLE
0c40: 53 52 43 4e 41 4d 45 22 0a 20 20 20 20 29 3b 0a SRCNAME". );.
0c50: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
0c60: 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20 7a 43 6d RROR;. }.. zCm
0c70: 64 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e d = Tcl_GetStrin
0c80: 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 67 65 g(objv[1]);. ge
0c90: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
0ca0: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
0cb0: 28 6f 62 6a 76 5b 32 5d 29 2c 20 26 70 44 65 73 (objv[2]), &pDes
0cc0: 74 44 62 29 3b 0a 20 20 7a 44 65 73 74 4e 61 6d tDb);. zDestNam
0cd0: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
0ce0: 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 20 20 67 65 g(objv[3]);. ge
0cf0: 74 44 62 50 6f 69 6e 74 65 72 28 69 6e 74 65 72 tDbPointer(inter
0d00: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
0d10: 28 6f 62 6a 76 5b 34 5d 29 2c 20 26 70 53 72 63 (objv[4]), &pSrc
0d20: 44 62 29 3b 0a 20 20 7a 53 72 63 4e 61 6d 65 20 Db);. zSrcName
0d30: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 = Tcl_GetString(
0d40: 6f 62 6a 76 5b 35 5d 29 3b 0a 0a 20 20 70 42 61 objv[5]);.. pBa
0d50: 63 6b 75 70 20 3d 20 73 71 6c 69 74 65 33 5f 62 ckup = sqlite3_b
0d60: 61 63 6b 75 70 5f 69 6e 69 74 28 70 44 65 73 74 ackup_init(pDest
0d70: 44 62 2c 20 7a 44 65 73 74 4e 61 6d 65 2c 20 70 Db, zDestName, p
0d80: 53 72 63 44 62 2c 20 7a 53 72 63 4e 61 6d 65 29 SrcDb, zSrcName)
0d90: 3b 0a 20 20 69 66 28 20 21 70 42 61 63 6b 75 70 ;. if( !pBackup
0da0: 20 29 7b 0a 20 20 20 20 54 63 6c 5f 41 70 70 65 ){. Tcl_Appe
0db0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
0dc0: 20 22 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 "sqlite3_backup
0dd0: 5f 69 6e 69 74 28 29 20 66 61 69 6c 65 64 22 2c _init() failed",
0de0: 20 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 0);. return
0df0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a TCL_ERROR;. }..
0e00: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
0e10: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 7a ommand(interp, z
0e20: 43 6d 64 2c 20 62 61 63 6b 75 70 54 65 73 74 43 Cmd, backupTestC
0e30: 6d 64 2c 20 70 42 61 63 6b 75 70 2c 20 62 61 63 md, pBackup, bac
0e40: 6b 75 70 54 65 73 74 46 69 6e 69 73 68 29 3b 0a kupTestFinish);.
0e50: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
0e60: 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b lt(interp, objv[
0e70: 31 5d 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43 1]);. return TC
0e80: 4c 5f 4f 4b 3b 0a 7d 0a 0a 69 6e 74 20 53 71 6c L_OK;.}..int Sql
0e90: 69 74 65 74 65 73 74 62 61 63 6b 75 70 5f 49 6e itetestbackup_In
0ea0: 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 it(Tcl_Interp *i
0eb0: 6e 74 65 72 70 29 7b 0a 20 20 54 63 6c 5f 43 72 nterp){. Tcl_Cr
0ec0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
0ed0: 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33 5f nterp, "sqlite3_
0ee0: 62 61 63 6b 75 70 22 2c 20 62 61 63 6b 75 70 54 backup", backupT
0ef0: 65 73 74 49 6e 69 74 2c 20 30 2c 20 30 29 3b 0a estInit, 0, 0);.
0f00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
0f10: 0a 7d 0a .}.