[sql] Import SQLite 3.17.0.

third_party/sqlite/src/src/test_fs.c

 /*
 ** 2013 Jan 11
 **
 ** 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.
 **
@@ skipping 44 matching lines @@
 **   CREATE TABLE fstree(path TEXT, size INT, data BLOB);
 **
 ** Running a "SELECT * FROM fstree" query on this table returns the entire
 ** contents of the file-system, starting at "/". To restrict the search
 ** space, the virtual table supports LIKE and GLOB constraints on the
 ** 'path' column. For example:
 **
 **   SELECT * FROM fstree WHERE path LIKE '/home/dan/sqlite/%'
 */
 #include "sqliteInt.h"
-#include "tcl.h"
+#if defined(INCLUDE_SQLITE_TCL_H)
+#  include "sqlite_tcl.h"
+#else
+#  include "tcl.h"
+#endif
 
 #include <stdlib.h>
 #include <string.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <fcntl.h>
 
 #if SQLITE_OS_UNIX || defined(__MINGW_H)
 # include <unistd.h>
 # include <dirent.h>
@@ skipping 412 matching lines @@
 
   char *zRoot;
   int nRoot;
   char *zPrefix;
   int nPrefix;
   const char *zDir;
   int nDir;
   char aWild[2] = { '\0', '\0' };
 
 #if SQLITE_OS_WIN
-  zRoot = sqlite3_mprintf("%s%c", getenv("SystemDrive"), '/');
-  nRoot = strlen(zRoot);
-  zPrefix = sqlite3_mprintf("%s", getenv("SystemDrive"));
-  nPrefix = strlen(zPrefix);
+  const char *zDrive = windirent_getenv("fstreeDrive");
+  if( zDrive==0 ){
+    zDrive = windirent_getenv("SystemDrive");
+  }
+  zRoot = sqlite3_mprintf("%s%c", zDrive, '/');
+  nRoot = sqlite3Strlen30(zRoot);
+  zPrefix = sqlite3_mprintf("%s", zDrive);
+  nPrefix = sqlite3Strlen30(zPrefix);
 #else
   zRoot = "/";
   nRoot = 1;
   zPrefix = "";
   nPrefix = 0;
 #endif
 
   zDir = zRoot;
   nDir = nRoot;
 
@@ skipping 352 matching lines @@
 };
 
 /*
 ** Decode a pointer to an sqlite3 object.
 */
 extern int getDbPointer(Tcl_Interp *interp, const char *zA, sqlite3 **ppDb);
 
 /*
 ** Register the echo virtual table module.
 */
-static int register_fs_module(
+static int SQLITE_TCLAPI register_fs_module(
   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
   int objc,              /* Number of arguments */
   Tcl_Obj *CONST objv[]  /* Command arguments */
 ){
   sqlite3 *db;
   if( objc!=2 ){
     Tcl_WrongNumArgs(interp, 1, objv, "DB");
     return TCL_ERROR;
   }
@@ skipping 22 matching lines @@
      { "register_fs_module",   register_fs_module, 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);
   }
 #endif
   return TCL_OK;
 }