From 2f8d7092bc2c9609fa98d6888106b96f38b22828 Mon Sep 17 00:00:00 2001 From: dan miller Date: Sun, 21 Oct 2007 08:36:32 +0000 Subject: libraries moved to opensim-libs, a new repository --- .../sqlite/unix/sqlite-3.5.1/src/test_autoext.c | 164 --------------------- 1 file changed, 164 deletions(-) delete mode 100644 libraries/sqlite/unix/sqlite-3.5.1/src/test_autoext.c (limited to 'libraries/sqlite/unix/sqlite-3.5.1/src/test_autoext.c') diff --git a/libraries/sqlite/unix/sqlite-3.5.1/src/test_autoext.c b/libraries/sqlite/unix/sqlite-3.5.1/src/test_autoext.c deleted file mode 100644 index 0eaeda0..0000000 --- a/libraries/sqlite/unix/sqlite-3.5.1/src/test_autoext.c +++ /dev/null @@ -1,164 +0,0 @@ -/* -** 2006 August 23 -** -** The author disclaims copyright to this source code. In place of -** a legal notice, here is a blessing: -** -** May you do good and not evil. -** May you find forgiveness for yourself and forgive others. -** May you share freely, never taking more than you give. -** -************************************************************************* -** Test extension for testing the sqlite3_auto_extension() function. -** -** $Id: test_autoext.c,v 1.2 2006/12/19 18:57:11 drh Exp $ -*/ -#include "tcl.h" -#ifndef SQLITE_OMIT_LOAD_EXTENSION -#include "sqlite3ext.h" -static SQLITE_EXTENSION_INIT1 - -/* -** The sqr() SQL function returns the square of its input value. -*/ -static void sqrFunc( - sqlite3_context *context, - int argc, - sqlite3_value **argv -){ - double r = sqlite3_value_double(argv[0]); - sqlite3_result_double(context, r*r); -} - -/* -** This is the entry point to register the extension for the sqr() function. -*/ -static int sqr_init( - sqlite3 *db, - char **pzErrMsg, - const sqlite3_api_routines *pApi -){ - SQLITE_EXTENSION_INIT2(pApi); - sqlite3_create_function(db, "sqr", 1, SQLITE_ANY, 0, sqrFunc, 0, 0); - return 0; -} - -/* -** The cube() SQL function returns the cube of its input value. -*/ -static void cubeFunc( - sqlite3_context *context, - int argc, - sqlite3_value **argv -){ - double r = sqlite3_value_double(argv[0]); - sqlite3_result_double(context, r*r*r); -} - -/* -** This is the entry point to register the extension for the cube() function. -*/ -static int cube_init( - sqlite3 *db, - char **pzErrMsg, - const sqlite3_api_routines *pApi -){ - SQLITE_EXTENSION_INIT2(pApi); - sqlite3_create_function(db, "cube", 1, SQLITE_ANY, 0, cubeFunc, 0, 0); - return 0; -} - -/* -** This is a broken extension entry point -*/ -static int broken_init( - sqlite3 *db, - char **pzErrMsg, - const sqlite3_api_routines *pApi -){ - char *zErr; - SQLITE_EXTENSION_INIT2(pApi); - zErr = sqlite3_mprintf("broken autoext!"); - *pzErrMsg = zErr; - return 1; -} - -/* -** tclcmd: sqlite3_auto_extension_sqr -** -** Register the "sqr" extension to be loaded automatically. -*/ -static int autoExtSqrObjCmd( - void * clientData, - Tcl_Interp *interp, - int objc, - Tcl_Obj *CONST objv[] -){ - sqlite3_auto_extension((void*)sqr_init); - return SQLITE_OK; -} - -/* -** tclcmd: sqlite3_auto_extension_cube -** -** Register the "cube" extension to be loaded automatically. -*/ -static int autoExtCubeObjCmd( - void * clientData, - Tcl_Interp *interp, - int objc, - Tcl_Obj *CONST objv[] -){ - sqlite3_auto_extension((void*)cube_init); - return SQLITE_OK; -} - -/* -** tclcmd: sqlite3_auto_extension_broken -** -** Register the broken extension to be loaded automatically. -*/ -static int autoExtBrokenObjCmd( - void * clientData, - Tcl_Interp *interp, - int objc, - Tcl_Obj *CONST objv[] -){ - sqlite3_auto_extension((void*)broken_init); - return SQLITE_OK; -} - -/* -** tclcmd: sqlite3_reset_auto_extension -** -** Reset all auto-extensions -*/ -static int resetAutoExtObjCmd( - void * clientData, - Tcl_Interp *interp, - int objc, - Tcl_Obj *CONST objv[] -){ - sqlite3_reset_auto_extension(); - return SQLITE_OK; -} - - -#endif /* SQLITE_OMIT_LOAD_EXTENSION */ - -/* -** This procedure registers the TCL procs defined in this file. -*/ -int Sqlitetest_autoext_Init(Tcl_Interp *interp){ -#ifndef SQLITE_OMIT_LOAD_EXTENSION - Tcl_CreateObjCommand(interp, "sqlite3_auto_extension_sqr", - autoExtSqrObjCmd, 0, 0); - Tcl_CreateObjCommand(interp, "sqlite3_auto_extension_cube", - autoExtCubeObjCmd, 0, 0); - Tcl_CreateObjCommand(interp, "sqlite3_auto_extension_broken", - autoExtBrokenObjCmd, 0, 0); - Tcl_CreateObjCommand(interp, "sqlite3_reset_auto_extension", - resetAutoExtObjCmd, 0, 0); -#endif - return TCL_OK; -} -- cgit v1.1