/ Hex Artifact Content
Login

Artifact 1384a18985a5a2d275c2662e48473bf1542ebd08:


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: 3c 73 71 6c 69 74 65 33 2e 68 3e 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                                         .}.