Return to test_backup.c CVS log

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

Annotation of embedaddon/sqlite3/src/test_backup.c, revision 1.1

1.1     ! misho       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: }