/ Hex Artifact Content
Login

Artifact 79ac8daa03f0b3d360ff1eb56b23c7df0c14ecd1:


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 32 20 32 30 30 39 2f 30 33 2f 32 35 20 31  1.2 2009/03/25 1
01a0: 36 3a 35 31 3a 34 33 20 64 72 68 20 45 78 70 20  6:51:43 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 54 63 6c 5f 43 6d 64 49 6e  .      Tcl_CmdIn
0660: 66 6f 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 20 20  fo cmdInfo;.    
0670: 20 20 54 63 6c 5f 43 6f 6d 6d 61 6e 64 20 63 6d    Tcl_Command cm
0680: 64 20 3d 20 54 63 6c 5f 47 65 74 43 6f 6d 6d 61  d = Tcl_GetComma
0690: 6e 64 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  ndFromObj(interp
06a0: 2c 20 6f 62 6a 76 5b 30 5d 29 3b 0a 20 20 20 20  , objv[0]);.    
06b0: 20 20 54 63 6c 5f 47 65 74 43 6f 6d 6d 61 6e 64    Tcl_GetCommand
06c0: 49 6e 66 6f 46 72 6f 6d 54 6f 6b 65 6e 28 63 6d  InfoFromToken(cm
06d0: 64 2c 20 26 63 6d 64 49 6e 66 6f 29 3b 0a 20 20  d, &cmdInfo);.  
06e0: 20 20 20 20 63 6d 64 49 6e 66 6f 2e 64 65 6c 65      cmdInfo.dele
06f0: 74 65 50 72 6f 63 20 3d 20 30 3b 0a 20 20 20 20  teProc = 0;.    
0700: 20 20 54 63 6c 5f 53 65 74 43 6f 6d 6d 61 6e 64    Tcl_SetCommand
0710: 49 6e 66 6f 46 72 6f 6d 54 6f 6b 65 6e 28 63 6d  InfoFromToken(cm
0720: 64 2c 20 26 63 6d 64 49 6e 66 6f 29 3b 0a 20 20  d, &cmdInfo);.  
0730: 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65 43 6f      Tcl_DeleteCo
0740: 6d 6d 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e 28 69  mmandFromToken(i
0750: 6e 74 65 72 70 2c 20 63 6d 64 29 3b 0a 0a 20 20  nterp, cmd);..  
0760: 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33      rc = sqlite3
0770: 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 28 70  _backup_finish(p
0780: 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74  );.      Tcl_Set
0790: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28  Result(interp, (
07a0: 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 54 65  char *)sqlite3Te
07b0: 73 74 45 72 72 6f 72 4e 61 6d 65 28 72 63 29 2c  stErrorName(rc),
07c0: 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 20 20   TCL_STATIC);.  
07d0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d      break;.    }
07e0: 0a 0a 20 20 20 20 63 61 73 65 20 42 41 43 4b 55  ..    case BACKU
07f0: 50 5f 53 54 45 50 3a 20 7b 0a 20 20 20 20 20 20  P_STEP: {.      
0800: 69 6e 74 20 6e 50 61 67 65 3b 0a 20 20 20 20 20  int nPage;.     
0810: 20 69 66 28 20 54 43 4c 5f 4f 4b 21 3d 54 63 6c   if( TCL_OK!=Tcl
0820: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69  _GetIntFromObj(i
0830: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20  nterp, objv[2], 
0840: 26 6e 50 61 67 65 29 20 29 7b 0a 20 20 20 20 20  &nPage) ){.     
0850: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
0860: 52 4f 52 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20  ROR;.      }.   
0870: 20 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f     rc = sqlite3_
0880: 62 61 63 6b 75 70 5f 73 74 65 70 28 70 2c 20 6e  backup_step(p, n
0890: 50 61 67 65 29 3b 0a 20 20 20 20 20 20 54 63 6c  Page);.      Tcl
08a0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
08b0: 70 2c 20 28 63 68 61 72 20 2a 29 73 71 6c 69 74  p, (char *)sqlit
08c0: 65 33 54 65 73 74 45 72 72 6f 72 4e 61 6d 65 28  e3TestErrorName(
08d0: 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49 43 29  rc), TCL_STATIC)
08e0: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ;.      break;. 
08f0: 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65 20 42     }..    case B
0900: 41 43 4b 55 50 5f 52 45 4d 41 49 4e 49 4e 47 3a  ACKUP_REMAINING:
0910: 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  .      Tcl_SetOb
0920: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
0930: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 73 71  Tcl_NewIntObj(sq
0940: 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 72 65 6d  lite3_backup_rem
0950: 61 69 6e 69 6e 67 28 70 29 29 29 3b 0a 20 20 20  aining(p)));.   
0960: 20 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20 20 63     break;..    c
0970: 61 73 65 20 42 41 43 4b 55 50 5f 50 41 47 45 43  ase BACKUP_PAGEC
0980: 4f 55 4e 54 3a 0a 20 20 20 20 20 20 54 63 6c 5f  OUNT:.      Tcl_
0990: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
09a0: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f  erp, Tcl_NewIntO
09b0: 62 6a 28 73 71 6c 69 74 65 33 5f 62 61 63 6b 75  bj(sqlite3_backu
09c0: 70 5f 70 61 67 65 63 6f 75 6e 74 28 70 29 29 29  p_pagecount(p)))
09d0: 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b 0a 20  ;.      break;. 
09e0: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c   }..  return TCL
09f0: 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76  _OK;.}..static v
0a00: 6f 69 64 20 62 61 63 6b 75 70 54 65 73 74 46 69  oid backupTestFi
0a10: 6e 69 73 68 28 43 6c 69 65 6e 74 44 61 74 61 20  nish(ClientData 
0a20: 63 6c 69 65 6e 74 44 61 74 61 29 7b 0a 20 20 73  clientData){.  s
0a30: 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 20 2a 70  qlite3_backup *p
0a40: 42 61 63 6b 75 70 20 3d 20 28 73 71 6c 69 74 65  Backup = (sqlite
0a50: 33 5f 62 61 63 6b 75 70 20 2a 29 63 6c 69 65 6e  3_backup *)clien
0a60: 74 44 61 74 61 3b 0a 20 20 73 71 6c 69 74 65 33  tData;.  sqlite3
0a70: 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68 28 70  _backup_finish(p
0a80: 42 61 63 6b 75 70 29 3b 0a 7d 0a 0a 2f 2a 0a 2a  Backup);.}../*.*
0a90: 2a 20 20 20 20 20 73 71 6c 69 74 65 33 5f 62 61  *     sqlite3_ba
0aa0: 63 6b 75 70 20 43 4d 44 4e 41 4d 45 20 44 45 53  ckup CMDNAME DES
0ab0: 54 48 41 4e 44 4c 45 20 44 45 53 54 4e 41 4d 45  THANDLE DESTNAME
0ac0: 20 53 52 43 48 41 4e 44 4c 45 20 53 52 43 4e 41   SRCHANDLE SRCNA
0ad0: 4d 45 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69 63 20  ME.**.*/.static 
0ae0: 69 6e 74 20 62 61 63 6b 75 70 54 65 73 74 49 6e  int backupTestIn
0af0: 69 74 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61  it(.  ClientData
0b00: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 0a 20 20   clientData, .  
0b10: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
0b20: 72 70 2c 20 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  rp, .  int objc,
0b30: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73  .  Tcl_Obj *cons
0b40: 74 2a 6f 62 6a 76 0a 29 7b 0a 20 20 73 71 6c 69  t*objv.){.  sqli
0b50: 74 65 33 5f 62 61 63 6b 75 70 20 2a 70 42 61 63  te3_backup *pBac
0b60: 6b 75 70 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a  kup;.  sqlite3 *
0b70: 70 44 65 73 74 44 62 3b 0a 20 20 73 71 6c 69 74  pDestDb;.  sqlit
0b80: 65 33 20 2a 70 53 72 63 44 62 3b 0a 20 20 63 6f  e3 *pSrcDb;.  co
0b90: 6e 73 74 20 63 68 61 72 20 2a 7a 44 65 73 74 4e  nst char *zDestN
0ba0: 61 6d 65 3b 0a 20 20 63 6f 6e 73 74 20 63 68 61  ame;.  const cha
0bb0: 72 20 2a 7a 53 72 63 4e 61 6d 65 3b 0a 20 20 63  r *zSrcName;.  c
0bc0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6d 64 3b  onst char *zCmd;
0bd0: 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 36 20  ..  if( objc!=6 
0be0: 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  ){.    Tcl_Wrong
0bf0: 4e 75 6d 41 72 67 73 28 0a 20 20 20 20 20 20 69  NumArgs(.      i
0c00: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
0c10: 22 43 4d 44 4e 41 4d 45 20 44 45 53 54 48 41 4e  "CMDNAME DESTHAN
0c20: 44 4c 45 20 44 45 53 54 4e 41 4d 45 20 53 52 43  DLE DESTNAME SRC
0c30: 48 41 4e 44 4c 45 20 53 52 43 4e 41 4d 45 22 0a  HANDLE SRCNAME".
0c40: 20 20 20 20 29 3b 0a 20 20 20 20 72 65 74 75 72      );.    retur
0c50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d  n TCL_ERROR;.  }
0c60: 0a 0a 20 20 7a 43 6d 64 20 3d 20 54 63 6c 5f 47  ..  zCmd = Tcl_G
0c70: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d  etString(objv[1]
0c80: 29 3b 0a 20 20 67 65 74 44 62 50 6f 69 6e 74 65  );.  getDbPointe
0c90: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65  r(interp, Tcl_Ge
0ca0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29  tString(objv[2])
0cb0: 2c 20 26 70 44 65 73 74 44 62 29 3b 0a 20 20 7a  , &pDestDb);.  z
0cc0: 44 65 73 74 4e 61 6d 65 20 3d 20 54 63 6c 5f 47  DestName = Tcl_G
0cd0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d  etString(objv[3]
0ce0: 29 3b 0a 20 20 67 65 74 44 62 50 6f 69 6e 74 65  );.  getDbPointe
0cf0: 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65  r(interp, Tcl_Ge
0d00: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d 29  tString(objv[4])
0d10: 2c 20 26 70 53 72 63 44 62 29 3b 0a 20 20 7a 53  , &pSrcDb);.  zS
0d20: 72 63 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74  rcName = Tcl_Get
0d30: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 35 5d 29 3b  String(objv[5]);
0d40: 0a 0a 20 20 70 42 61 63 6b 75 70 20 3d 20 73 71  ..  pBackup = sq
0d50: 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 69 6e 69  lite3_backup_ini
0d60: 74 28 70 44 65 73 74 44 62 2c 20 7a 44 65 73 74  t(pDestDb, zDest
0d70: 4e 61 6d 65 2c 20 70 53 72 63 44 62 2c 20 7a 53  Name, pSrcDb, zS
0d80: 72 63 4e 61 6d 65 29 3b 0a 20 20 69 66 28 20 21  rcName);.  if( !
0d90: 70 42 61 63 6b 75 70 20 29 7b 0a 20 20 20 20 54  pBackup ){.    T
0da0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
0db0: 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74 65 33  interp, "sqlite3
0dc0: 5f 62 61 63 6b 75 70 5f 69 6e 69 74 28 29 20 66  _backup_init() f
0dd0: 61 69 6c 65 64 22 2c 20 30 29 3b 0a 20 20 20 20  ailed", 0);.    
0de0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
0df0: 3b 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 43 72 65  ;.  }..  Tcl_Cre
0e00: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e  ateObjCommand(in
0e10: 74 65 72 70 2c 20 7a 43 6d 64 2c 20 62 61 63 6b  terp, zCmd, back
0e20: 75 70 54 65 73 74 43 6d 64 2c 20 70 42 61 63 6b  upTestCmd, pBack
0e30: 75 70 2c 20 62 61 63 6b 75 70 54 65 73 74 46 69  up, backupTestFi
0e40: 6e 69 73 68 29 3b 0a 20 20 54 63 6c 5f 53 65 74  nish);.  Tcl_Set
0e50: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
0e60: 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 72 65  , objv[1]);.  re
0e70: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a  turn TCL_OK;.}..
0e80: 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74 62 61  int Sqlitetestba
0e90: 63 6b 75 70 5f 49 6e 69 74 28 54 63 6c 5f 49 6e  ckup_Init(Tcl_In
0ea0: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b 0a 20  terp *interp){. 
0eb0: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f   Tcl_CreateObjCo
0ec0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 73  mmand(interp, "s
0ed0: 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 22 2c 20  qlite3_backup", 
0ee0: 62 61 63 6b 75 70 54 65 73 74 49 6e 69 74 2c 20  backupTestInit, 
0ef0: 30 2c 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20  0, 0);.  return 
0f00: 54 43 4c 5f 4f 4b 3b 0a 7d 0a                    TCL_OK;.}.