/ Hex Artifact Content
Login

Artifact 3875e899222b651e18b662f86e0e50daa946344e:


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 20 54 68 69 73 20 66 69 6c  ****.** This fil
0180: 65 20 63 6f 6e 74 61 69 6e 73 20 74 65 73 74 20  e contains test 
0190: 6c 6f 67 69 63 20 66 6f 72 20 74 68 65 20 73 71  logic for the sq
01a0: 6c 69 74 65 33 5f 62 61 63 6b 75 70 28 29 20 69  lite3_backup() i
01b0: 6e 74 65 72 66 61 63 65 2e 0a 2a 2a 0a 2a 2f 0a  nterface..**.*/.
01c0: 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68  .#include "tcl.h
01d0: 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 71 6c 69  ".#include <sqli
01e0: 74 65 33 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  te3.h>.#include 
01f0: 3c 61 73 73 65 72 74 2e 68 3e 0a 0a 2f 2a 20 54  <assert.h>../* T
0200: 68 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 61  hese functions a
0210: 72 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 69  re implemented i
0220: 6e 20 6d 61 69 6e 2e 63 2e 20 2a 2f 0a 65 78 74  n main.c. */.ext
0230: 65 72 6e 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  ern const char *
0240: 73 71 6c 69 74 65 33 45 72 72 4e 61 6d 65 28 69  sqlite3ErrName(i
0250: 6e 74 29 3b 0a 0a 2f 2a 20 54 68 65 73 65 20 66  nt);../* These f
0260: 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 69 6d 70  unctions are imp
0270: 6c 65 6d 65 6e 74 65 64 20 69 6e 20 74 65 73 74  lemented in test
0280: 31 2e 63 2e 20 2a 2f 0a 65 78 74 65 72 6e 20 69  1.c. */.extern i
0290: 6e 74 20 67 65 74 44 62 50 6f 69 6e 74 65 72 28  nt getDbPointer(
02a0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 2c 20 63 6f  Tcl_Interp *, co
02b0: 6e 73 74 20 63 68 61 72 20 2a 2c 20 73 71 6c 69  nst char *, sqli
02c0: 74 65 33 20 2a 2a 29 3b 0a 0a 73 74 61 74 69 63  te3 **);..static
02d0: 20 69 6e 74 20 62 61 63 6b 75 70 54 65 73 74 43   int backupTestC
02e0: 6d 64 28 0a 20 20 43 6c 69 65 6e 74 44 61 74 61  md(.  ClientData
02f0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 0a 20 20   clientData, .  
0300: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
0310: 72 70 2c 20 0a 20 20 69 6e 74 20 6f 62 6a 63 2c  rp, .  int objc,
0320: 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73  .  Tcl_Obj *cons
0330: 74 2a 6f 62 6a 76 0a 29 7b 0a 20 20 65 6e 75 6d  t*objv.){.  enum
0340: 20 42 61 63 6b 75 70 53 75 62 43 6f 6d 6d 61 6e   BackupSubComman
0350: 64 45 6e 75 6d 20 7b 0a 20 20 20 20 42 41 43 4b  dEnum {.    BACK
0360: 55 50 5f 53 54 45 50 2c 20 42 41 43 4b 55 50 5f  UP_STEP, BACKUP_
0370: 46 49 4e 49 53 48 2c 20 42 41 43 4b 55 50 5f 52  FINISH, BACKUP_R
0380: 45 4d 41 49 4e 49 4e 47 2c 20 42 41 43 4b 55 50  EMAINING, BACKUP
0390: 5f 50 41 47 45 43 4f 55 4e 54 0a 20 20 7d 3b 0a  _PAGECOUNT.  };.
03a0: 20 20 73 74 72 75 63 74 20 42 61 63 6b 75 70 53    struct BackupS
03b0: 75 62 43 6f 6d 6d 61 6e 64 20 7b 0a 20 20 20 20  ubCommand {.    
03c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6d 64  const char *zCmd
03d0: 3b 0a 20 20 20 20 65 6e 75 6d 20 42 61 63 6b 75  ;.    enum Backu
03e0: 70 53 75 62 43 6f 6d 6d 61 6e 64 45 6e 75 6d 20  pSubCommandEnum 
03f0: 65 43 6d 64 3b 0a 20 20 20 20 69 6e 74 20 6e 41  eCmd;.    int nA
0400: 72 67 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68  rg;.    const ch
0410: 61 72 20 2a 7a 41 72 67 3b 0a 20 20 7d 20 61 53  ar *zArg;.  } aS
0420: 75 62 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b 22 73  ub[] = {.    {"s
0430: 74 65 70 22 2c 20 20 20 20 20 20 42 41 43 4b 55  tep",      BACKU
0440: 50 5f 53 54 45 50 20 20 20 20 20 20 2c 20 31 2c  P_STEP      , 1,
0450: 20 22 6e 70 61 67 65 22 20 7d 2c 0a 20 20 20 20   "npage" },.    
0460: 7b 22 66 69 6e 69 73 68 22 2c 20 20 20 20 42 41  {"finish",    BA
0470: 43 4b 55 50 5f 46 49 4e 49 53 48 20 20 20 20 2c  CKUP_FINISH    ,
0480: 20 30 2c 20 22 22 20 20 20 20 20 20 7d 2c 0a 20   0, ""      },. 
0490: 20 20 20 7b 22 72 65 6d 61 69 6e 69 6e 67 22 2c     {"remaining",
04a0: 20 42 41 43 4b 55 50 5f 52 45 4d 41 49 4e 49 4e   BACKUP_REMAININ
04b0: 47 20 2c 20 30 2c 20 22 22 20 20 20 20 20 20 7d  G , 0, ""      }
04c0: 2c 0a 20 20 20 20 7b 22 70 61 67 65 63 6f 75 6e  ,.    {"pagecoun
04d0: 74 22 2c 20 42 41 43 4b 55 50 5f 50 41 47 45 43  t", BACKUP_PAGEC
04e0: 4f 55 4e 54 20 2c 20 30 2c 20 22 22 20 20 20 20  OUNT , 0, ""    
04f0: 20 20 7d 2c 0a 20 20 20 20 7b 30 2c 20 30 2c 20    },.    {0, 0, 
0500: 30 2c 20 30 7d 0a 20 20 7d 3b 0a 0a 20 20 73 71  0, 0}.  };..  sq
0510: 6c 69 74 65 33 5f 62 61 63 6b 75 70 20 2a 70 20  lite3_backup *p 
0520: 3d 20 28 73 71 6c 69 74 65 33 5f 62 61 63 6b 75  = (sqlite3_backu
0530: 70 20 2a 29 63 6c 69 65 6e 74 44 61 74 61 3b 0a  p *)clientData;.
0540: 20 20 69 6e 74 20 69 43 6d 64 3b 0a 20 20 69 6e    int iCmd;.  in
0550: 74 20 72 63 3b 0a 0a 20 20 72 63 20 3d 20 54 63  t rc;..  rc = Tc
0560: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62  l_GetIndexFromOb
0570: 6a 53 74 72 75 63 74 28 0a 20 20 20 20 20 20 69  jStruct(.      i
0580: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20  nterp, objv[1], 
0590: 61 53 75 62 2c 20 73 69 7a 65 6f 66 28 61 53 75  aSub, sizeof(aSu
05a0: 62 5b 30 5d 29 2c 20 22 6f 70 74 69 6f 6e 22 2c  b[0]), "option",
05b0: 20 30 2c 20 26 69 43 6d 64 0a 20 20 29 3b 0a 20   0, &iCmd.  );. 
05c0: 20 69 66 28 20 72 63 21 3d 54 43 4c 5f 4f 4b 20   if( rc!=TCL_OK 
05d0: 29 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 63  ){.    return rc
05e0: 3b 0a 20 20 7d 0a 20 20 69 66 28 20 6f 62 6a 63  ;.  }.  if( objc
05f0: 21 3d 28 32 20 2b 20 61 53 75 62 5b 69 43 6d 64  !=(2 + aSub[iCmd
0600: 5d 2e 6e 41 72 67 29 20 29 7b 0a 20 20 20 20 54  ].nArg) ){.    T
0610: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
0620: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c  interp, 2, objv,
0630: 20 61 53 75 62 5b 69 43 6d 64 5d 2e 7a 41 72 67   aSub[iCmd].zArg
0640: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
0650: 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20 20  L_ERROR;.  }..  
0660: 73 77 69 74 63 68 28 20 61 53 75 62 5b 69 43 6d  switch( aSub[iCm
0670: 64 5d 2e 65 43 6d 64 20 29 7b 0a 0a 20 20 20 20  d].eCmd ){..    
0680: 63 61 73 65 20 42 41 43 4b 55 50 5f 46 49 4e 49  case BACKUP_FINI
0690: 53 48 3a 20 7b 0a 20 20 20 20 20 20 63 6f 6e 73  SH: {.      cons
06a0: 74 20 63 68 61 72 20 2a 7a 43 6d 64 4e 61 6d 65  t char *zCmdName
06b0: 3b 0a 20 20 20 20 20 20 54 63 6c 5f 43 6d 64 49  ;.      Tcl_CmdI
06c0: 6e 66 6f 20 63 6d 64 49 6e 66 6f 3b 0a 20 20 20  nfo cmdInfo;.   
06d0: 20 20 20 7a 43 6d 64 4e 61 6d 65 20 3d 20 54 63     zCmdName = Tc
06e0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76  l_GetString(objv
06f0: 5b 30 5d 29 3b 0a 20 20 20 20 20 20 54 63 6c 5f  [0]);.      Tcl_
0700: 47 65 74 43 6f 6d 6d 61 6e 64 49 6e 66 6f 28 69  GetCommandInfo(i
0710: 6e 74 65 72 70 2c 20 7a 43 6d 64 4e 61 6d 65 2c  nterp, zCmdName,
0720: 20 26 63 6d 64 49 6e 66 6f 29 3b 0a 20 20 20 20   &cmdInfo);.    
0730: 20 20 63 6d 64 49 6e 66 6f 2e 64 65 6c 65 74 65    cmdInfo.delete
0740: 50 72 6f 63 20 3d 20 30 3b 0a 20 20 20 20 20 20  Proc = 0;.      
0750: 54 63 6c 5f 53 65 74 43 6f 6d 6d 61 6e 64 49 6e  Tcl_SetCommandIn
0760: 66 6f 28 69 6e 74 65 72 70 2c 20 7a 43 6d 64 4e  fo(interp, zCmdN
0770: 61 6d 65 2c 20 26 63 6d 64 49 6e 66 6f 29 3b 0a  ame, &cmdInfo);.
0780: 20 20 20 20 20 20 54 63 6c 5f 44 65 6c 65 74 65        Tcl_Delete
0790: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
07a0: 7a 43 6d 64 4e 61 6d 65 29 3b 0a 0a 20 20 20 20  zCmdName);..    
07b0: 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f 62    rc = sqlite3_b
07c0: 61 63 6b 75 70 5f 66 69 6e 69 73 68 28 70 29 3b  ackup_finish(p);
07d0: 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65  .      Tcl_SetRe
07e0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68  sult(interp, (ch
07f0: 61 72 20 2a 29 73 71 6c 69 74 65 33 45 72 72 4e  ar *)sqlite3ErrN
0800: 61 6d 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41  ame(rc), TCL_STA
0810: 54 49 43 29 3b 0a 20 20 20 20 20 20 62 72 65 61  TIC);.      brea
0820: 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61  k;.    }..    ca
0830: 73 65 20 42 41 43 4b 55 50 5f 53 54 45 50 3a 20  se BACKUP_STEP: 
0840: 7b 0a 20 20 20 20 20 20 69 6e 74 20 6e 50 61 67  {.      int nPag
0850: 65 3b 0a 20 20 20 20 20 20 69 66 28 20 54 43 4c  e;.      if( TCL
0860: 5f 4f 4b 21 3d 54 63 6c 5f 47 65 74 49 6e 74 46  _OK!=Tcl_GetIntF
0870: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
0880: 62 6a 76 5b 32 5d 2c 20 26 6e 50 61 67 65 29 20  bjv[2], &nPage) 
0890: 29 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72  ){.        retur
08a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
08b0: 20 20 20 7d 0a 20 20 20 20 20 20 72 63 20 3d 20     }.      rc = 
08c0: 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 73  sqlite3_backup_s
08d0: 74 65 70 28 70 2c 20 6e 50 61 67 65 29 3b 0a 20  tep(p, nPage);. 
08e0: 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75       Tcl_SetResu
08f0: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72  lt(interp, (char
0900: 20 2a 29 73 71 6c 69 74 65 33 45 72 72 4e 61 6d   *)sqlite3ErrNam
0910: 65 28 72 63 29 2c 20 54 43 4c 5f 53 54 41 54 49  e(rc), TCL_STATI
0920: 43 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  C);.      break;
0930: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 73 65  .    }..    case
0940: 20 42 41 43 4b 55 50 5f 52 45 4d 41 49 4e 49 4e   BACKUP_REMAININ
0950: 47 3a 0a 20 20 20 20 20 20 54 63 6c 5f 53 65 74  G:.      Tcl_Set
0960: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
0970: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28  , Tcl_NewIntObj(
0980: 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 72  sqlite3_backup_r
0990: 65 6d 61 69 6e 69 6e 67 28 70 29 29 29 3b 0a 20  emaining(p)));. 
09a0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 0a 20 20 20       break;..   
09b0: 20 63 61 73 65 20 42 41 43 4b 55 50 5f 50 41 47   case BACKUP_PAG
09c0: 45 43 4f 55 4e 54 3a 0a 20 20 20 20 20 20 54 63  ECOUNT:.      Tc
09d0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
09e0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e  nterp, Tcl_NewIn
09f0: 74 4f 62 6a 28 73 71 6c 69 74 65 33 5f 62 61 63  tObj(sqlite3_bac
0a00: 6b 75 70 5f 70 61 67 65 63 6f 75 6e 74 28 70 29  kup_pagecount(p)
0a10: 29 29 3b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b  ));.      break;
0a20: 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54  .  }..  return T
0a30: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74 61 74 69 63  CL_OK;.}..static
0a40: 20 76 6f 69 64 20 62 61 63 6b 75 70 54 65 73 74   void backupTest
0a50: 46 69 6e 69 73 68 28 43 6c 69 65 6e 74 44 61 74  Finish(ClientDat
0a60: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 7b 0a 20  a clientData){. 
0a70: 20 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 20   sqlite3_backup 
0a80: 2a 70 42 61 63 6b 75 70 20 3d 20 28 73 71 6c 69  *pBackup = (sqli
0a90: 74 65 33 5f 62 61 63 6b 75 70 20 2a 29 63 6c 69  te3_backup *)cli
0aa0: 65 6e 74 44 61 74 61 3b 0a 20 20 73 71 6c 69 74  entData;.  sqlit
0ab0: 65 33 5f 62 61 63 6b 75 70 5f 66 69 6e 69 73 68  e3_backup_finish
0ac0: 28 70 42 61 63 6b 75 70 29 3b 0a 7d 0a 0a 2f 2a  (pBackup);.}../*
0ad0: 0a 2a 2a 20 20 20 20 20 73 71 6c 69 74 65 33 5f  .**     sqlite3_
0ae0: 62 61 63 6b 75 70 20 43 4d 44 4e 41 4d 45 20 44  backup CMDNAME D
0af0: 45 53 54 48 41 4e 44 4c 45 20 44 45 53 54 4e 41  ESTHANDLE DESTNA
0b00: 4d 45 20 53 52 43 48 41 4e 44 4c 45 20 53 52 43  ME SRCHANDLE SRC
0b10: 4e 41 4d 45 0a 2a 2a 0a 2a 2f 0a 73 74 61 74 69  NAME.**.*/.stati
0b20: 63 20 69 6e 74 20 62 61 63 6b 75 70 54 65 73 74  c int backupTest
0b30: 49 6e 69 74 28 0a 20 20 43 6c 69 65 6e 74 44 61  Init(.  ClientDa
0b40: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 0a  ta clientData, .
0b50: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e    Tcl_Interp *in
0b60: 74 65 72 70 2c 20 0a 20 20 69 6e 74 20 6f 62 6a  terp, .  int obj
0b70: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f  c,.  Tcl_Obj *co
0b80: 6e 73 74 2a 6f 62 6a 76 0a 29 7b 0a 20 20 73 71  nst*objv.){.  sq
0b90: 6c 69 74 65 33 5f 62 61 63 6b 75 70 20 2a 70 42  lite3_backup *pB
0ba0: 61 63 6b 75 70 3b 0a 20 20 73 71 6c 69 74 65 33  ackup;.  sqlite3
0bb0: 20 2a 70 44 65 73 74 44 62 3b 0a 20 20 73 71 6c   *pDestDb;.  sql
0bc0: 69 74 65 33 20 2a 70 53 72 63 44 62 3b 0a 20 20  ite3 *pSrcDb;.  
0bd0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 44 65 73  const char *zDes
0be0: 74 4e 61 6d 65 3b 0a 20 20 63 6f 6e 73 74 20 63  tName;.  const c
0bf0: 68 61 72 20 2a 7a 53 72 63 4e 61 6d 65 3b 0a 20  har *zSrcName;. 
0c00: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 43 6d   const char *zCm
0c10: 64 3b 0a 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d  d;..  if( objc!=
0c20: 36 20 29 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f  6 ){.    Tcl_Wro
0c30: 6e 67 4e 75 6d 41 72 67 73 28 0a 20 20 20 20 20  ngNumArgs(.     
0c40: 20 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76   interp, 1, objv
0c50: 2c 20 22 43 4d 44 4e 41 4d 45 20 44 45 53 54 48  , "CMDNAME DESTH
0c60: 41 4e 44 4c 45 20 44 45 53 54 4e 41 4d 45 20 53  ANDLE DESTNAME S
0c70: 52 43 48 41 4e 44 4c 45 20 53 52 43 4e 41 4d 45  RCHANDLE SRCNAME
0c80: 22 0a 20 20 20 20 29 3b 0a 20 20 20 20 72 65 74  ".    );.    ret
0c90: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
0ca0: 20 7d 0a 0a 20 20 7a 43 6d 64 20 3d 20 54 63 6c   }..  zCmd = Tcl
0cb0: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
0cc0: 31 5d 29 3b 0a 20 20 67 65 74 44 62 50 6f 69 6e  1]);.  getDbPoin
0cd0: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ter(interp, Tcl_
0ce0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32  GetString(objv[2
0cf0: 5d 29 2c 20 26 70 44 65 73 74 44 62 29 3b 0a 20  ]), &pDestDb);. 
0d00: 20 7a 44 65 73 74 4e 61 6d 65 20 3d 20 54 63 6c   zDestName = Tcl
0d10: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
0d20: 33 5d 29 3b 0a 20 20 67 65 74 44 62 50 6f 69 6e  3]);.  getDbPoin
0d30: 74 65 72 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ter(interp, Tcl_
0d40: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34  GetString(objv[4
0d50: 5d 29 2c 20 26 70 53 72 63 44 62 29 3b 0a 20 20  ]), &pSrcDb);.  
0d60: 7a 53 72 63 4e 61 6d 65 20 3d 20 54 63 6c 5f 47  zSrcName = Tcl_G
0d70: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 35 5d  etString(objv[5]
0d80: 29 3b 0a 0a 20 20 70 42 61 63 6b 75 70 20 3d 20  );..  pBackup = 
0d90: 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 5f 69  sqlite3_backup_i
0da0: 6e 69 74 28 70 44 65 73 74 44 62 2c 20 7a 44 65  nit(pDestDb, zDe
0db0: 73 74 4e 61 6d 65 2c 20 70 53 72 63 44 62 2c 20  stName, pSrcDb, 
0dc0: 7a 53 72 63 4e 61 6d 65 29 3b 0a 20 20 69 66 28  zSrcName);.  if(
0dd0: 20 21 70 42 61 63 6b 75 70 20 29 7b 0a 20 20 20   !pBackup ){.   
0de0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
0df0: 74 28 69 6e 74 65 72 70 2c 20 22 73 71 6c 69 74  t(interp, "sqlit
0e00: 65 33 5f 62 61 63 6b 75 70 5f 69 6e 69 74 28 29  e3_backup_init()
0e10: 20 66 61 69 6c 65 64 22 2c 20 30 29 3b 0a 20 20   failed", 0);.  
0e20: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
0e30: 4f 52 3b 0a 20 20 7d 0a 0a 20 20 54 63 6c 5f 43  OR;.  }..  Tcl_C
0e40: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28  reateObjCommand(
0e50: 69 6e 74 65 72 70 2c 20 7a 43 6d 64 2c 20 62 61  interp, zCmd, ba
0e60: 63 6b 75 70 54 65 73 74 43 6d 64 2c 20 70 42 61  ckupTestCmd, pBa
0e70: 63 6b 75 70 2c 20 62 61 63 6b 75 70 54 65 73 74  ckup, backupTest
0e80: 46 69 6e 69 73 68 29 3b 0a 20 20 54 63 6c 5f 53  Finish);.  Tcl_S
0e90: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
0ea0: 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20  rp, objv[1]);.  
0eb0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
0ec0: 0a 0a 69 6e 74 20 53 71 6c 69 74 65 74 65 73 74  ..int Sqlitetest
0ed0: 62 61 63 6b 75 70 5f 49 6e 69 74 28 54 63 6c 5f  backup_Init(Tcl_
0ee0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 7b  Interp *interp){
0ef0: 0a 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a  .  Tcl_CreateObj
0f00: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
0f10: 22 73 71 6c 69 74 65 33 5f 62 61 63 6b 75 70 22  "sqlite3_backup"
0f20: 2c 20 62 61 63 6b 75 70 54 65 73 74 49 6e 69 74  , backupTestInit
0f30: 2c 20 30 2c 20 30 29 3b 0a 20 20 72 65 74 75 72  , 0, 0);.  retur
0f40: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a              n TCL_OK;.}.