Return to test_autoext.c CVS log

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

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

1.1     ! misho       1: /*
        !             2: ** 2006 August 23
        !             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: ** Test extension for testing the sqlite3_auto_extension() function.
        !            13: */
        !            14: #include "tcl.h"
        !            15: #include "sqlite3ext.h"
        !            16: 
        !            17: #ifndef SQLITE_OMIT_LOAD_EXTENSION
        !            18: static SQLITE_EXTENSION_INIT1
        !            19: 
        !            20: /*
        !            21: ** The sqr() SQL function returns the square of its input value.
        !            22: */
        !            23: static void sqrFunc(
        !            24:   sqlite3_context *context,
        !            25:   int argc,
        !            26:   sqlite3_value **argv
        !            27: ){
        !            28:   double r = sqlite3_value_double(argv[0]);
        !            29:   sqlite3_result_double(context, r*r);
        !            30: }
        !            31: 
        !            32: /*
        !            33: ** This is the entry point to register the extension for the sqr() function.
        !            34: */
        !            35: static int sqr_init(
        !            36:   sqlite3 *db, 
        !            37:   char **pzErrMsg, 
        !            38:   const sqlite3_api_routines *pApi
        !            39: ){
        !            40:   SQLITE_EXTENSION_INIT2(pApi);
        !            41:   sqlite3_create_function(db, "sqr", 1, SQLITE_ANY, 0, sqrFunc, 0, 0);
        !            42:   return 0;
        !            43: }
        !            44: 
        !            45: /*
        !            46: ** The cube() SQL function returns the cube of its input value.
        !            47: */
        !            48: static void cubeFunc(
        !            49:   sqlite3_context *context,
        !            50:   int argc,
        !            51:   sqlite3_value **argv
        !            52: ){
        !            53:   double r = sqlite3_value_double(argv[0]);
        !            54:   sqlite3_result_double(context, r*r*r);
        !            55: }
        !            56: 
        !            57: /*
        !            58: ** This is the entry point to register the extension for the cube() function.
        !            59: */
        !            60: static int cube_init(
        !            61:   sqlite3 *db, 
        !            62:   char **pzErrMsg, 
        !            63:   const sqlite3_api_routines *pApi
        !            64: ){
        !            65:   SQLITE_EXTENSION_INIT2(pApi);
        !            66:   sqlite3_create_function(db, "cube", 1, SQLITE_ANY, 0, cubeFunc, 0, 0);
        !            67:   return 0;
        !            68: }
        !            69: 
        !            70: /*
        !            71: ** This is a broken extension entry point
        !            72: */
        !            73: static int broken_init(
        !            74:   sqlite3 *db, 
        !            75:   char **pzErrMsg, 
        !            76:   const sqlite3_api_routines *pApi
        !            77: ){
        !            78:   char *zErr;
        !            79:   SQLITE_EXTENSION_INIT2(pApi);
        !            80:   zErr = sqlite3_mprintf("broken autoext!");
        !            81:   *pzErrMsg = zErr;
        !            82:   return 1;
        !            83: }
        !            84: 
        !            85: /*
        !            86: ** tclcmd:   sqlite3_auto_extension_sqr
        !            87: **
        !            88: ** Register the "sqr" extension to be loaded automatically.
        !            89: */
        !            90: static int autoExtSqrObjCmd(
        !            91:   void * clientData,
        !            92:   Tcl_Interp *interp,
        !            93:   int objc,
        !            94:   Tcl_Obj *CONST objv[]
        !            95: ){
        !            96:   int rc = sqlite3_auto_extension((void*)sqr_init);
        !            97:   Tcl_SetObjResult(interp, Tcl_NewIntObj(rc));
        !            98:   return SQLITE_OK;
        !            99: }
        !           100: 
        !           101: /*
        !           102: ** tclcmd:   sqlite3_auto_extension_cube
        !           103: **
        !           104: ** Register the "cube" extension to be loaded automatically.
        !           105: */
        !           106: static int autoExtCubeObjCmd(
        !           107:   void * clientData,
        !           108:   Tcl_Interp *interp,
        !           109:   int objc,
        !           110:   Tcl_Obj *CONST objv[]
        !           111: ){
        !           112:   int rc = sqlite3_auto_extension((void*)cube_init);
        !           113:   Tcl_SetObjResult(interp, Tcl_NewIntObj(rc));
        !           114:   return SQLITE_OK;
        !           115: }
        !           116: 
        !           117: /*
        !           118: ** tclcmd:   sqlite3_auto_extension_broken
        !           119: **
        !           120: ** Register the broken extension to be loaded automatically.
        !           121: */
        !           122: static int autoExtBrokenObjCmd(
        !           123:   void * clientData,
        !           124:   Tcl_Interp *interp,
        !           125:   int objc,
        !           126:   Tcl_Obj *CONST objv[]
        !           127: ){
        !           128:   int rc = sqlite3_auto_extension((void*)broken_init);
        !           129:   Tcl_SetObjResult(interp, Tcl_NewIntObj(rc));
        !           130:   return SQLITE_OK;
        !           131: }
        !           132: 
        !           133: #endif /* SQLITE_OMIT_LOAD_EXTENSION */
        !           134: 
        !           135: 
        !           136: /*
        !           137: ** tclcmd:   sqlite3_reset_auto_extension
        !           138: **
        !           139: ** Reset all auto-extensions
        !           140: */
        !           141: static int resetAutoExtObjCmd(
        !           142:   void * clientData,
        !           143:   Tcl_Interp *interp,
        !           144:   int objc,
        !           145:   Tcl_Obj *CONST objv[]
        !           146: ){
        !           147:   sqlite3_reset_auto_extension();
        !           148:   return SQLITE_OK;
        !           149: }
        !           150: 
        !           151: 
        !           152: /*
        !           153: ** This procedure registers the TCL procs defined in this file.
        !           154: */
        !           155: int Sqlitetest_autoext_Init(Tcl_Interp *interp){
        !           156: #ifndef SQLITE_OMIT_LOAD_EXTENSION
        !           157:   Tcl_CreateObjCommand(interp, "sqlite3_auto_extension_sqr",
        !           158:           autoExtSqrObjCmd, 0, 0);
        !           159:   Tcl_CreateObjCommand(interp, "sqlite3_auto_extension_cube",
        !           160:           autoExtCubeObjCmd, 0, 0);
        !           161:   Tcl_CreateObjCommand(interp, "sqlite3_auto_extension_broken",
        !           162:           autoExtBrokenObjCmd, 0, 0);
        !           163: #endif
        !           164:   Tcl_CreateObjCommand(interp, "sqlite3_reset_auto_extension",
        !           165:           resetAutoExtObjCmd, 0, 0);
        !           166:   return TCL_OK;
        !           167: }