[sql] Import SQLite 3.17.0.

third_party/sqlite/src/ext/fts3/fts3_test.c

 /*
 ** 2011 Jun 13
 **
 ** 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 is not part of the production FTS code. It is only used for
 ** testing. It contains a Tcl command that can be used to test if a document
 ** matches an FTS NEAR expression.
 **
 ** As of March 2012, it also contains a version 1 tokenizer used for testing
 ** that the sqlite3_tokenizer_module.xLanguage() method is invoked correctly.
 */
 
-#include <tcl.h>
+#if defined(INCLUDE_SQLITE_TCL_H)
+#  include "sqlite_tcl.h"
+#else
+#  include "tcl.h"
+#  ifndef SQLITE_TCLAPI
+#    define SQLITE_TCLAPI
+#  endif
+#endif
 #include <string.h>
 #include <assert.h>
 
 #if defined(SQLITE_TEST)
 #if defined(SQLITE_ENABLE_FTS3) || defined(SQLITE_ENABLE_FTS4)
 
 /* Required so that the "ifdef SQLITE_ENABLE_FTS3" below works */
 #include "fts3Int.h"
 
 #define NM_MAX_TOKEN 12
@@ skipping 104 matching lines @@
       nOcc++;
     }
   } 
 
   return nOcc;
 }
 
 /*
 ** Tclcmd: fts3_near_match DOCUMENT EXPR ?OPTIONS?
 */
-static int fts3_near_match_cmd(
+static int SQLITE_TCLAPI fts3_near_match_cmd(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
   int nTotal = 0;
   int rc;
   int ii;
   int nPhrase;
   NearPhrase *aPhrase = 0;
@@ skipping 114 matching lines @@
 ** tests. For example:
 **
 **    # Override incr-load settings for testing:
 **    set cfg [fts3_configure_incr_load $new_chunksize $new_threshold]
 **
 **    .... run tests ....
 **
 **    # Restore initial incr-load settings:
 **    eval fts3_configure_incr_load $cfg
 */
-static int fts3_configure_incr_load_cmd(
+static int SQLITE_TCLAPI fts3_configure_incr_load_cmd(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
 #ifdef SQLITE_ENABLE_FTS3
   extern int test_fts3_node_chunksize;
   extern int test_fts3_node_chunk_threshold;
   Tcl_Obj *pRet;
 
@@ skipping 159 matching lines @@
       pCsr->aBuffer = sqlite3_malloc(nToken);
     }
     if( pCsr->aBuffer==0 ){
       rc = SQLITE_NOMEM;
     }else{
       int i;
 
       if( pCsr->iLangid & 0x00000001 ){
         for(i=0; i<nToken; i++) pCsr->aBuffer[i] = pToken[i];
       }else{
-        for(i=0; i<nToken; i++) pCsr->aBuffer[i] = testTolower(pToken[i]);
+        for(i=0; i<nToken; i++) pCsr->aBuffer[i] = (char)testTolower(pToken[i]);
       }
       pCsr->iToken++;
       pCsr->iInput = (int)(p - pCsr->aInput);
 
       *ppToken = pCsr->aBuffer;
       *pnBytes = nToken;
       *piStartOffset = (int)(pToken - pCsr->aInput);
       *piEndOffset = (int)(p - pCsr->aInput);
       *piPosition = pCsr->iToken;
     }
   }
 
   return rc;
 }
 
 static int testTokenizerLanguage(
   sqlite3_tokenizer_cursor *pCursor,
   int iLangid
 ){
   int rc = SQLITE_OK;
   test_tokenizer_cursor *pCsr = (test_tokenizer_cursor *)pCursor;
   pCsr->iLangid = iLangid;
   if( pCsr->iLangid>=100 ){
     rc = SQLITE_ERROR;
   }
   return rc;
 }
 #endif
 
-static int fts3_test_tokenizer_cmd(
+static int SQLITE_TCLAPI fts3_test_tokenizer_cmd(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
 #ifdef SQLITE_ENABLE_FTS3
   static const sqlite3_tokenizer_module testTokenizerModule = {
     1,
     testTokenizerCreate,
     testTokenizerDestroy,
     testTokenizerOpen,
     testTokenizerClose,
     testTokenizerNext,
     testTokenizerLanguage
   };
   const sqlite3_tokenizer_module *pPtr = &testTokenizerModule;
   if( objc!=1 ){
     Tcl_WrongNumArgs(interp, 1, objv, "");
     return TCL_ERROR;
   }
   Tcl_SetObjResult(interp, Tcl_NewByteArrayObj(
     (const unsigned char *)&pPtr, sizeof(sqlite3_tokenizer_module *)
   ));
 #endif
   UNUSED_PARAMETER(clientData);
   return TCL_OK;
 }
 
-static int fts3_test_varint_cmd(
+static int SQLITE_TCLAPI fts3_test_varint_cmd(
   ClientData clientData,
   Tcl_Interp *interp,
   int objc,
   Tcl_Obj *CONST objv[]
 ){
 #ifdef SQLITE_ENABLE_FTS3
   char aBuf[24];
   int rc;
-  Tcl_WideInt w, w2;
+  Tcl_WideInt w;
+  sqlite3_int64 w2;
   int nByte, nByte2;
 
   if( objc!=2 ){
     Tcl_WrongNumArgs(interp, 1, objv, "INTEGER");
     return TCL_ERROR;
   }
 
   rc = Tcl_GetWideIntFromObj(interp, objv[1], &w);
   if( rc!=TCL_OK ) return rc;
 
@@ skipping 35 matching lines @@
       interp, "fts3_test_tokenizer", fts3_test_tokenizer_cmd, 0, 0
   );
 
   Tcl_CreateObjCommand(
       interp, "fts3_test_varint", fts3_test_varint_cmd, 0, 0
   );
   return TCL_OK;
 }
 #endif                  /* SQLITE_ENABLE_FTS3 || SQLITE_ENABLE_FTS4 */
 #endif                  /* ifdef SQLITE_TEST */