[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/src/test_intarray.c

Index: third_party/sqlite/sqlite-src-3080704/src/test_intarray.c
diff --git a/third_party/sqlite/sqlite-src-3080704/src/test_intarray.c b/third_party/sqlite/sqlite-src-3080704/src/test_intarray.c
deleted file mode 100644
index 7235fbceda9cda77f8ead43888d2424b3abc9e2a..0000000000000000000000000000000000000000
--- a/third_party/sqlite/sqlite-src-3080704/src/test_intarray.c
+++ /dev/null
@@ -1,382 +0,0 @@
-/*
-** 2009 November 10
-**
-** 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.
-**
-*************************************************************************
-**
-** This file implements a read-only VIRTUAL TABLE that contains the
-** content of a C-language array of integer values.  See the corresponding
-** header file for full details.
-*/
-#include "test_intarray.h"
-#include <string.h>
-#include <assert.h>
-
-
-/*
-** Definition of the sqlite3_intarray object.
-**
-** The internal representation of an intarray object is subject
-** to change, is not externally visible, and should be used by
-** the implementation of intarray only.  This object is opaque
-** to users.
-*/
-struct sqlite3_intarray {
-  int n;                    /* Number of elements in the array */
-  sqlite3_int64 *a;         /* Contents of the array */
-  void (*xFree)(void*);     /* Function used to free a[] */
-};
-
-/* Objects used internally by the virtual table implementation */
-typedef struct intarray_vtab intarray_vtab;
-typedef struct intarray_cursor intarray_cursor;
-
-/* An intarray table object */
-struct intarray_vtab {
-  sqlite3_vtab base;            /* Base class */
-  sqlite3_intarray *pContent;   /* Content of the integer array */
-};
-
-/* An intarray cursor object */
-struct intarray_cursor {
-  sqlite3_vtab_cursor base;    /* Base class */
-  int i;                       /* Current cursor position */
-};
-
-/*
-** None of this works unless we have virtual tables.
-*/
-#ifndef SQLITE_OMIT_VIRTUALTABLE
-
-/*
-** Free an sqlite3_intarray object.
-*/
-static void intarrayFree(sqlite3_intarray *p){
-  if( p->xFree ){
-    p->xFree(p->a);
-  }
-  sqlite3_free(p);
-}
-
-/*
-** Table destructor for the intarray module.
-*/
-static int intarrayDestroy(sqlite3_vtab *p){
-  intarray_vtab *pVtab = (intarray_vtab*)p;
-  sqlite3_free(pVtab);
-  return 0;
-}
-
-/*
-** Table constructor for the intarray module.
-*/
-static int intarrayCreate(
-  sqlite3 *db,              /* Database where module is created */
-  void *pAux,               /* clientdata for the module */
-  int argc,                 /* Number of arguments */
-  const char *const*argv,   /* Value for all arguments */
-  sqlite3_vtab **ppVtab,    /* Write the new virtual table object here */
-  char **pzErr              /* Put error message text here */
-){
-  int rc = SQLITE_NOMEM;
-  intarray_vtab *pVtab = sqlite3_malloc(sizeof(intarray_vtab));
-
-  if( pVtab ){
-    memset(pVtab, 0, sizeof(intarray_vtab));
-    pVtab->pContent = (sqlite3_intarray*)pAux;
-    rc = sqlite3_declare_vtab(db, "CREATE TABLE x(value INTEGER PRIMARY KEY)");
-  }
-  *ppVtab = (sqlite3_vtab *)pVtab;
-  return rc;
-}
-
-/*
-** Open a new cursor on the intarray table.
-*/
-static int intarrayOpen(sqlite3_vtab *pVTab, sqlite3_vtab_cursor **ppCursor){
-  int rc = SQLITE_NOMEM;
-  intarray_cursor *pCur;
-  pCur = sqlite3_malloc(sizeof(intarray_cursor));
-  if( pCur ){
-    memset(pCur, 0, sizeof(intarray_cursor));
-    *ppCursor = (sqlite3_vtab_cursor *)pCur;
-    rc = SQLITE_OK;
-  }
-  return rc;
-}
-
-/*
-** Close a intarray table cursor.
-*/
-static int intarrayClose(sqlite3_vtab_cursor *cur){
-  intarray_cursor *pCur = (intarray_cursor *)cur;
-  sqlite3_free(pCur);
-  return SQLITE_OK;
-}
-
-/*
-** Retrieve a column of data.
-*/
-static int intarrayColumn(sqlite3_vtab_cursor *cur, sqlite3_context *ctx, int i){
-  intarray_cursor *pCur = (intarray_cursor*)cur;
-  intarray_vtab *pVtab = (intarray_vtab*)cur->pVtab;
-  if( pCur->i>=0 && pCur->i<pVtab->pContent->n ){
-    sqlite3_result_int64(ctx, pVtab->pContent->a[pCur->i]);
-  }
-  return SQLITE_OK;
-}
-
-/*
-** Retrieve the current rowid.
-*/
-static int intarrayRowid(sqlite3_vtab_cursor *cur, sqlite_int64 *pRowid){
-  intarray_cursor *pCur = (intarray_cursor *)cur;
-  *pRowid = pCur->i;
-  return SQLITE_OK;
-}
-
-static int intarrayEof(sqlite3_vtab_cursor *cur){
-  intarray_cursor *pCur = (intarray_cursor *)cur;
-  intarray_vtab *pVtab = (intarray_vtab *)cur->pVtab;
-  return pCur->i>=pVtab->pContent->n;
-}
-
-/*
-** Advance the cursor to the next row.
-*/
-static int intarrayNext(sqlite3_vtab_cursor *cur){
-  intarray_cursor *pCur = (intarray_cursor *)cur;
-  pCur->i++;
-  return SQLITE_OK;
-}
-
-/*
-** Reset a intarray table cursor.
-*/
-static int intarrayFilter(
-  sqlite3_vtab_cursor *pVtabCursor, 
-  int idxNum, const char *idxStr,
-  int argc, sqlite3_value **argv
-){
-  intarray_cursor *pCur = (intarray_cursor *)pVtabCursor;
-  pCur->i = 0;
-  return SQLITE_OK;
-}
-
-/*
-** Analyse the WHERE condition.
-*/
-static int intarrayBestIndex(sqlite3_vtab *tab, sqlite3_index_info *pIdxInfo){
-  return SQLITE_OK;
-}
-
-/*
-** A virtual table module that merely echos method calls into TCL
-** variables.
-*/
-static sqlite3_module intarrayModule = {
-  0,                           /* iVersion */
-  intarrayCreate,              /* xCreate - create a new virtual table */
-  intarrayCreate,              /* xConnect - connect to an existing vtab */
-  intarrayBestIndex,           /* xBestIndex - find the best query index */
-  intarrayDestroy,             /* xDisconnect - disconnect a vtab */
-  intarrayDestroy,             /* xDestroy - destroy a vtab */
-  intarrayOpen,                /* xOpen - open a cursor */
-  intarrayClose,               /* xClose - close a cursor */
-  intarrayFilter,              /* xFilter - configure scan constraints */
-  intarrayNext,                /* xNext - advance a cursor */
-  intarrayEof,                 /* xEof */
-  intarrayColumn,              /* xColumn - read data */
-  intarrayRowid,               /* xRowid - read data */
-  0,                           /* xUpdate */
-  0,                           /* xBegin */
-  0,                           /* xSync */
-  0,                           /* xCommit */
-  0,                           /* xRollback */
-  0,                           /* xFindMethod */
-  0,                           /* xRename */
-};
-
-#endif /* !defined(SQLITE_OMIT_VIRTUALTABLE) */
-
-/*
-** Invoke this routine to create a specific instance of an intarray object.
-** The new intarray object is returned by the 3rd parameter.
-**
-** Each intarray object corresponds to a virtual table in the TEMP table
-** with a name of zName.
-**
-** Destroy the intarray object by dropping the virtual table.  If not done
-** explicitly by the application, the virtual table will be dropped implicitly
-** by the system when the database connection is closed.
-*/
-SQLITE_API int sqlite3_intarray_create(
-  sqlite3 *db,
-  const char *zName,
-  sqlite3_intarray **ppReturn
-){
-  int rc = SQLITE_OK;
-#ifndef SQLITE_OMIT_VIRTUALTABLE
-  sqlite3_intarray *p;
-
-  *ppReturn = p = sqlite3_malloc( sizeof(*p) );
-  if( p==0 ){
-    return SQLITE_NOMEM;
-  }
-  memset(p, 0, sizeof(*p));
-  rc = sqlite3_create_module_v2(db, zName, &intarrayModule, p,
-                                (void(*)(void*))intarrayFree);
-  if( rc==SQLITE_OK ){
-    char *zSql;
-    zSql = sqlite3_mprintf("CREATE VIRTUAL TABLE temp.%Q USING %Q",
-                           zName, zName);
-    rc = sqlite3_exec(db, zSql, 0, 0, 0);
-    sqlite3_free(zSql);
-  }
-#endif
-  return rc;
-}
-
-/*
-** Bind a new array array of integers to a specific intarray object.
-**
-** The array of integers bound must be unchanged for the duration of
-** any query against the corresponding virtual table.  If the integer
-** array does change or is deallocated undefined behavior will result.
-*/
-SQLITE_API int sqlite3_intarray_bind(
-  sqlite3_intarray *pIntArray,   /* The intarray object to bind to */
-  int nElements,                 /* Number of elements in the intarray */
-  sqlite3_int64 *aElements,      /* Content of the intarray */
-  void (*xFree)(void*)           /* How to dispose of the intarray when done */
-){
-  if( pIntArray->xFree ){
-    pIntArray->xFree(pIntArray->a);
-  }
-  pIntArray->n = nElements;
-  pIntArray->a = aElements;
-  pIntArray->xFree = xFree;
-  return SQLITE_OK;
-}
-
-
-/*****************************************************************************
-** Everything below is interface for testing this module.
-*/
-#ifdef SQLITE_TEST
-#include <tcl.h>
-
-/*
-** Routines to encode and decode pointers
-*/
-extern int getDbPointer(Tcl_Interp *interp, const char *zA, sqlite3 **ppDb);
-extern void *sqlite3TestTextToPtr(const char*);
-extern int sqlite3TestMakePointerStr(Tcl_Interp*, char *zPtr, void*);
-extern const char *sqlite3ErrName(int);
-
-/*
-**    sqlite3_intarray_create  DB  NAME
-**
-** Invoke the sqlite3_intarray_create interface.  A string that becomes
-** the first parameter to sqlite3_intarray_bind.
-*/
-static int test_intarray_create(
-  ClientData clientData, /* Not used */
-  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
-  int objc,              /* Number of arguments */
-  Tcl_Obj *CONST objv[]  /* Command arguments */
-){
-  sqlite3 *db;
-  const char *zName;
-  sqlite3_intarray *pArray;
-  int rc = SQLITE_OK;
-  char zPtr[100];
-
-  if( objc!=3 ){
-    Tcl_WrongNumArgs(interp, 1, objv, "DB");
-    return TCL_ERROR;
-  }
-  if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR;
-  zName = Tcl_GetString(objv[2]);
-#ifndef SQLITE_OMIT_VIRTUALTABLE
-  rc = sqlite3_intarray_create(db, zName, &pArray);
-#endif
-  if( rc!=SQLITE_OK ){
-    assert( pArray==0 );
-    Tcl_AppendResult(interp, sqlite3ErrName(rc), (char*)0);
-    return TCL_ERROR;
-  }
-  sqlite3TestMakePointerStr(interp, zPtr, pArray);
-  Tcl_AppendResult(interp, zPtr, (char*)0);
-  return TCL_OK;
-}
-
-/*
-**    sqlite3_intarray_bind  INTARRAY  ?VALUE ...?
-**
-** Invoke the sqlite3_intarray_bind interface on the given array of integers.
-*/
-static int test_intarray_bind(
-  ClientData clientData, /* Not used */
-  Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
-  int objc,              /* Number of arguments */
-  Tcl_Obj *CONST objv[]  /* Command arguments */
-){
-  sqlite3_intarray *pArray;
-  int rc = SQLITE_OK;
-  int i, n;
-  sqlite3_int64 *a;
-
-  if( objc<2 ){
-    Tcl_WrongNumArgs(interp, 1, objv, "INTARRAY");
-    return TCL_ERROR;
-  }
-  pArray = (sqlite3_intarray*)sqlite3TestTextToPtr(Tcl_GetString(objv[1]));
-  n = objc - 2;
-#ifndef SQLITE_OMIT_VIRTUALTABLE
-  a = sqlite3_malloc( sizeof(a[0])*n );
-  if( a==0 ){
-    Tcl_AppendResult(interp, "SQLITE_NOMEM", (char*)0);
-    return TCL_ERROR;
-  }
-  for(i=0; i<n; i++){
-    Tcl_WideInt x = 0;
-    Tcl_GetWideIntFromObj(0, objv[i+2], &x);
-    a[i] = x;
-  }
-  rc = sqlite3_intarray_bind(pArray, n, a, sqlite3_free);
-  if( rc!=SQLITE_OK ){
-    Tcl_AppendResult(interp, sqlite3ErrName(rc), (char*)0);
-    return TCL_ERROR;
-  }
-#endif
-  return TCL_OK;
-}
-
-/*
-** Register commands with the TCL interpreter.
-*/
-int Sqlitetestintarray_Init(Tcl_Interp *interp){
-  static struct {
-     char *zName;
-     Tcl_ObjCmdProc *xProc;
-     void *clientData;
-  } aObjCmd[] = {
-     { "sqlite3_intarray_create", test_intarray_create, 0 },
-     { "sqlite3_intarray_bind", test_intarray_bind, 0 },
-  };
-  int i;
-  for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){
-    Tcl_CreateObjCommand(interp, aObjCmd[i].zName, 
-        aObjCmd[i].xProc, aObjCmd[i].clientData, 0);
-  }
-  return TCL_OK;
-}
-
-#endif /* SQLITE_TEST */