Return to test_backup.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / src

sqlite3

    1: /*
    2: ** 2009 January 28
    3: **
    4: ** The author disclaims copyright to this source code.  In place of
    5: ** a legal notice, here is a blessing:
    6: **
    7: **    May you do good and not evil.
    8: **    May you find forgiveness for yourself and forgive others.
    9: **    May you share freely, never taking more than you give.
   10: **
   11: *************************************************************************
   12: ** This file contains test logic for the sqlite3_backup() interface.
   13: **
   14: */
   15: 
   16: #include "tcl.h"
   17: #include <sqlite3.h>
   18: #include <assert.h>
   19: 
   20: /* These functions are implemented in test1.c. */
   21: int getDbPointer(Tcl_Interp *, const char *, sqlite3 **);
   22: const char *sqlite3TestErrorName(int);
   23: 
   24: static int backupTestCmd(
   25:   ClientData clientData, 
   26:   Tcl_Interp *interp, 
   27:   int objc,
   28:   Tcl_Obj *const*objv
   29: ){
   30:   enum BackupSubCommandEnum {
   31:     BACKUP_STEP, BACKUP_FINISH, BACKUP_REMAINING, BACKUP_PAGECOUNT
   32:   };
   33:   struct BackupSubCommand {
   34:     const char *zCmd;
   35:     enum BackupSubCommandEnum eCmd;
   36:     int nArg;
   37:     const char *zArg;
   38:   } aSub[] = {
   39:     {"step",      BACKUP_STEP      , 1, "npage" },
   40:     {"finish",    BACKUP_FINISH    , 0, ""      },
   41:     {"remaining", BACKUP_REMAINING , 0, ""      },
   42:     {"pagecount", BACKUP_PAGECOUNT , 0, ""      },
   43:     {0, 0, 0, 0}
   44:   };
   45: 
   46:   sqlite3_backup *p = (sqlite3_backup *)clientData;
   47:   int iCmd;
   48:   int rc;
   49: 
   50:   rc = Tcl_GetIndexFromObjStruct(
   51:       interp, objv[1], aSub, sizeof(aSub[0]), "option", 0, &iCmd
   52:   );
   53:   if( rc!=TCL_OK ){
   54:     return rc;
   55:   }
   56:   if( objc!=(2 + aSub[iCmd].nArg) ){
   57:     Tcl_WrongNumArgs(interp, 2, objv, aSub[iCmd].zArg);
   58:     return TCL_ERROR;
   59:   }
   60: 
   61:   switch( aSub[iCmd].eCmd ){
   62: 
   63:     case BACKUP_FINISH: {
   64:       const char *zCmdName;
   65:       Tcl_CmdInfo cmdInfo;
   66:       zCmdName = Tcl_GetString(objv[0]);
   67:       Tcl_GetCommandInfo(interp, zCmdName, &cmdInfo);
   68:       cmdInfo.deleteProc = 0;
   69:       Tcl_SetCommandInfo(interp, zCmdName, &cmdInfo);
   70:       Tcl_DeleteCommand(interp, zCmdName);
   71: 
   72:       rc = sqlite3_backup_finish(p);
   73:       Tcl_SetResult(interp, (char *)sqlite3TestErrorName(rc), TCL_STATIC);
   74:       break;
   75:     }
   76: 
   77:     case BACKUP_STEP: {
   78:       int nPage;
   79:       if( TCL_OK!=Tcl_GetIntFromObj(interp, objv[2], &nPage) ){
   80:         return TCL_ERROR;
   81:       }
   82:       rc = sqlite3_backup_step(p, nPage);
   83:       Tcl_SetResult(interp, (char *)sqlite3TestErrorName(rc), TCL_STATIC);
   84:       break;
   85:     }
   86: 
   87:     case BACKUP_REMAINING:
   88:       Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_backup_remaining(p)));
   89:       break;
   90: 
   91:     case BACKUP_PAGECOUNT:
   92:       Tcl_SetObjResult(interp, Tcl_NewIntObj(sqlite3_backup_pagecount(p)));
   93:       break;
   94:   }
   95: 
   96:   return TCL_OK;
   97: }
   98: 
   99: static void backupTestFinish(ClientData clientData){
  100:   sqlite3_backup *pBackup = (sqlite3_backup *)clientData;
  101:   sqlite3_backup_finish(pBackup);
  102: }
  103: 
  104: /*
  105: **     sqlite3_backup CMDNAME DESTHANDLE DESTNAME SRCHANDLE SRCNAME
  106: **
  107: */
  108: static int backupTestInit(
  109:   ClientData clientData, 
  110:   Tcl_Interp *interp, 
  111:   int objc,
  112:   Tcl_Obj *const*objv
  113: ){
  114:   sqlite3_backup *pBackup;
  115:   sqlite3 *pDestDb;
  116:   sqlite3 *pSrcDb;
  117:   const char *zDestName;
  118:   const char *zSrcName;
  119:   const char *zCmd;
  120: 
  121:   if( objc!=6 ){
  122:     Tcl_WrongNumArgs(
  123:       interp, 1, objv, "CMDNAME DESTHANDLE DESTNAME SRCHANDLE SRCNAME"
  124:     );
  125:     return TCL_ERROR;
  126:   }
  127: 
  128:   zCmd = Tcl_GetString(objv[1]);
  129:   getDbPointer(interp, Tcl_GetString(objv[2]), &pDestDb);
  130:   zDestName = Tcl_GetString(objv[3]);
  131:   getDbPointer(interp, Tcl_GetString(objv[4]), &pSrcDb);
  132:   zSrcName = Tcl_GetString(objv[5]);
  133: 
  134:   pBackup = sqlite3_backup_init(pDestDb, zDestName, pSrcDb, zSrcName);
  135:   if( !pBackup ){
  136:     Tcl_AppendResult(interp, "sqlite3_backup_init() failed", 0);
  137:     return TCL_ERROR;
  138:   }
  139: 
  140:   Tcl_CreateObjCommand(interp, zCmd, backupTestCmd, pBackup, backupTestFinish);
  141:   Tcl_SetObjResult(interp, objv[1]);
  142:   return TCL_OK;
  143: }
  144: 
  145: int Sqlitetestbackup_Init(Tcl_Interp *interp){
  146:   Tcl_CreateObjCommand(interp, "sqlite3_backup", backupTestInit, 0, 0);
  147:   return TCL_OK;
  148: }