cache->proj6_cached_area = NULL;
    cache->is_pause_enabled = 0;
    cache->RTTOPO_handle = NULL;
    cache->cutterMessage = NULL;
    cache->storedProcError = NULL;
    cache->createRoutingError = NULL;
    cache->SqlProcLogfile = NULL;

    cache->SqlProcLog = NULL;
    cache->SqlProcContinue = 1;
    cache->SqlProcRetValue = gaia_alloc_variant ();
    cache->pool_index = -1;
    cache->gaia_proj_error_msg = NULL;
    cache->gaia_geos_error_msg = NULL;
    cache->gaia_geos_warning_msg = NULL;

    cache->proj6_cached_area = NULL;
    cache->is_pause_enabled = 0;
    cache->RTTOPO_handle = NULL;
    cache->cutterMessage = NULL;
    cache->storedProcError = NULL;
    cache->createRoutingError = NULL;
    cache->SqlProcLogfile = NULL;
    cache->SqlProcLogfileAppend = 0;
    cache->SqlProcLog = NULL;
    cache->SqlProcContinue = 1;
    cache->SqlProcRetValue = gaia_alloc_variant ();
    cache->pool_index = -1;
    cache->gaia_proj_error_msg = NULL;
    cache->gaia_geos_error_msg = NULL;
    cache->gaia_geos_warning_msg = NULL;

	gaiaSequencePtr first_seq;
	gaiaSequencePtr last_seq;
	struct splite_vtable_extent *first_vtable_extent;
	struct splite_vtable_extent *last_vtable_extent;
	int ok_last_used_sequence;
	int last_used_sequence_val;
	char *SqlProcLogfile;

	FILE *SqlProcLog;
	int SqlProcContinue;
	struct gaia_variant_value *SqlProcRetValue;
	int tinyPointEnabled;
	unsigned char magic2;
	char *lastPostgreSqlError;
	int buffer_end_cap_style;

	gaiaSequencePtr first_seq;
	gaiaSequencePtr last_seq;
	struct splite_vtable_extent *first_vtable_extent;
	struct splite_vtable_extent *last_vtable_extent;
	int ok_last_used_sequence;
	int last_used_sequence_val;
	char *SqlProcLogfile;
	int SqlProcLogfileAppend;
	FILE *SqlProcLog;
	int SqlProcContinue;
	struct gaia_variant_value *SqlProcRetValue;
	int tinyPointEnabled;
	unsigned char magic2;
	char *lastPostgreSqlError;
	int buffer_end_cap_style;

	  sql = "SELECT v.coverage_name, v.f_table_name, v.f_geometry_column, "
	      "c.srid FROM vector_coverages AS v "
	      "JOIN geometry_columns AS c ON (Lower(v.f_table_name) = "
	      "Lower(c.f_table_name) AND Lower(v.f_geometry_column) = "
	      "Lower(c.f_geometry_column)) "
	      "WHERE v.f_table_name IS NOT NULL AND v.f_geometry_column IS NOT NULL "
	      "UNION "
	      "SELECT v.coverage_name, w.f_table_name, w.f_geometry_column, c.srid "
	      "FROM vector_coverages AS v "
	      "JOIN views_geometry_columns AS w ON "
	      "(Lower(v.view_name) = Lower(w.view_name) AND "
	      "Lower(v.view_geometry) = Lower(w.view_geometry)) "
	      "JOIN geometry_columns AS c ON "
	      "(Lower(w.f_table_name) = Lower(c.f_table_name) AND "
	      "Lower(w.f_geometry_column) = Lower(c.f_geometry_column)) "
................................................................................
	      "c.srid FROM vector_coverages AS v "
	      "JOIN geometry_columns AS c ON (Lower(v.f_table_name) = "
	      "Lower(c.f_table_name) AND Lower(v.f_geometry_column) = "
	      "Lower(c.f_geometry_column)) "
	      "WHERE Lower(v.coverage_name) = Lower(?) AND "
	      "v.f_table_name IS NOT NULL AND v.f_geometry_column IS NOT NULL "
	      "UNION "
	      "SELECT v.coverage_name, w.f_table_name, w.f_geometry_column, c.srid "
	      "FROM vector_coverages AS v "
	      "JOIN views_geometry_columns AS w ON "
	      "(Lower(v.view_name) = Lower(w.view_name) AND "
	      "Lower(v.view_geometry) = Lower(w.view_geometry)) "
	      "JOIN geometry_columns AS c ON "
	      "(Lower(w.f_table_name) = Lower(c.f_table_name) AND "
	      "Lower(w.f_geometry_column) = Lower(c.f_geometry_column)) "

	  sql = "SELECT v.coverage_name, v.f_table_name, v.f_geometry_column, "
	      "c.srid FROM vector_coverages AS v "
	      "JOIN geometry_columns AS c ON (Lower(v.f_table_name) = "
	      "Lower(c.f_table_name) AND Lower(v.f_geometry_column) = "
	      "Lower(c.f_geometry_column)) "
	      "WHERE v.f_table_name IS NOT NULL AND v.f_geometry_column IS NOT NULL "
	      "UNION "
	      "SELECT v.coverage_name, v.view_name, w.view_geometry, c.srid "
	      "FROM vector_coverages AS v "
	      "JOIN views_geometry_columns AS w ON "
	      "(Lower(v.view_name) = Lower(w.view_name) AND "
	      "Lower(v.view_geometry) = Lower(w.view_geometry)) "
	      "JOIN geometry_columns AS c ON "
	      "(Lower(w.f_table_name) = Lower(c.f_table_name) AND "
	      "Lower(w.f_geometry_column) = Lower(c.f_geometry_column)) "
................................................................................
	      "c.srid FROM vector_coverages AS v "
	      "JOIN geometry_columns AS c ON (Lower(v.f_table_name) = "
	      "Lower(c.f_table_name) AND Lower(v.f_geometry_column) = "
	      "Lower(c.f_geometry_column)) "
	      "WHERE Lower(v.coverage_name) = Lower(?) AND "
	      "v.f_table_name IS NOT NULL AND v.f_geometry_column IS NOT NULL "
	      "UNION "
	      "SELECT v.coverage_name, v.view_name, v.view_geometry, c.srid "
	      "FROM vector_coverages AS v "
	      "JOIN views_geometry_columns AS w ON "
	      "(Lower(v.view_name) = Lower(w.view_name) AND "
	      "Lower(v.view_geometry) = Lower(w.view_geometry)) "
	      "JOIN geometry_columns AS c ON "
	      "(Lower(w.f_table_name) = Lower(c.f_table_name) AND "
	      "Lower(w.f_geometry_column) = Lower(c.f_geometry_column)) "

	  /* Dijsktra loop */
	  n = routing_dequeue (heap);
	  destination = check_multiTo (n, multiSolution->MultiTo);
	  if (destination != NULL)
	    {
		/* reached one of the multiple destinations */
		RouteLinkPtr *result;

		int cnt = 0;
		int to = destination->InternalIndex;
		n = e->Nodes + to;
		while (n->PreviousNode != NULL)
		  {
		      /* counting how many Links are into the Shortest Path solution */
		      cnt++;
		      n = n->PreviousNode;
		  }
		/* allocating the solution */
		result = malloc (sizeof (RouteLinkPtr) * cnt);
		k = cnt - 1;
		n = e->Nodes + to;
		while (n->PreviousNode != NULL)
		  {
		      /* inserting a Link into the solution */
		      result[k] = n->xLink;
		      n = n->PreviousNode;
		      k--;
		  }
		solution =
		    add2multiSolution (multiSolution, multiSolution->From,
				       destination);
		build_solution (handle, options, graph, solution, result, cnt);
		/* testing for end (all destinations already reached) */

	  /* Dijsktra loop */
	  n = routing_dequeue (heap);
	  destination = check_multiTo (n, multiSolution->MultiTo);
	  if (destination != NULL)
	    {
		/* reached one of the multiple destinations */
		RouteLinkPtr *result;
		RoutingNodePtr nn;
		int cnt = 0;
		int to = destination->InternalIndex;
		nn = e->Nodes + to;
		while (nn->PreviousNode != NULL)
		  {
		      /* counting how many Links are into the Shortest Path solution */
		      cnt++;
		      nn = nn->PreviousNode;
		  }
		/* allocating the solution */
		result = malloc (sizeof (RouteLinkPtr) * cnt);
		k = cnt - 1;
		nn = e->Nodes + to;
		while (nn->PreviousNode != NULL)
		  {
		      /* inserting a Link into the solution */
		      result[k] = nn->xLink;
		      nn = nn->PreviousNode;
		      k--;
		  }
		solution =
		    add2multiSolution (multiSolution, multiSolution->From,
				       destination);
		build_solution (handle, options, graph, solution, result, cnt);
		/* testing for end (all destinations already reached) */

#include <spatialite/sqlite.h>
#include <spatialite/gaiageo.h>
#include <spatialite/gaiaaux.h>
#include <spatialite/gg_const.h>
#include <spatialite/gg_formats.h>
#include <spatialite/stored_procedures.h>
#include <spatialite_private.h>

#include <spatialite/debug.h>

#ifdef _WIN32
#define strcasecmp	_stricmp
#endif /* not WIN32 */

/* 64 bit integer: portable format for printf() */
................................................................................
      {
	  *out++ = *in++;
	  max--;
      }
    *out = '\0';
    return fail;
}








































































































































































SQLPROC_DECLARE int
gaia_sql_proc_execute (sqlite3 * handle, const void *ctx, const char *sql)
{
/* executing an already cooked SQL Body */
    const char *pSql = sql;
    sqlite3_stmt *stmt;
    int retval = 0;
    int n_stmts = 0;
    FILE *log = NULL;



    struct splite_internal_cache *cache = (struct splite_internal_cache *) ctx;










    if (cache != NULL)
      {






	  cache->SqlProcContinue = 1;
	  gaia_set_variant_null (cache->SqlProcRetValue);
	  log = cache->SqlProcLog;
      }

    if (log != NULL)
      {
................................................................................
		   "--==     SQL session end   =   %s   =   %d statement%s executed\n",
		   now, n_stmts, (n_stmts == 1) ? " was" : "s were");
	  sqlite3_free (now);
	  fprintf (log,
		   "--=========================================================================================\n\n\n");
	  fflush (log);
      }




































    return retval;
}

SQLPROC_DECLARE int
gaia_sql_proc_logfile (const void *ctx, const char *filepath, int append)
{
/* enabling/disabling the Logfile */
................................................................................
	fclose (cache->SqlProcLog);

/* resetting the current Logfile */
    len = strlen (filepath);
    cache->SqlProcLogfile = malloc (len + 1);
    strcpy (cache->SqlProcLogfile, filepath);
    cache->SqlProcLog = log;

    return 1;
}

#include <spatialite/sqlite.h>
#include <spatialite/gaiageo.h>
#include <spatialite/gaiaaux.h>
#include <spatialite/gg_const.h>
#include <spatialite/gg_formats.h>
#include <spatialite/stored_procedures.h>
#include <spatialite_private.h>
#include <spatialite.h>
#include <spatialite/debug.h>

#ifdef _WIN32
#define strcasecmp	_stricmp
#endif /* not WIN32 */

/* 64 bit integer: portable format for printf() */
................................................................................
      {
	  *out++ = *in++;
	  max--;
      }
    *out = '\0';
    return fail;
}

static sqlite3 *
do_clone_mem_db (sqlite3 * origin, void *cache, int mode)
{
/* opening a new connection by clonig a MEMORY MAIN DB */
    int ret;
    sqlite3_backup *backup;
    sqlite3 *handle;

    ret = sqlite3_open_v2 (":memory:", &handle, mode, NULL);
    if (ret != SQLITE_OK)
      {
	  spatialite_e ("SqlProcExec: sqlite3_open_v2 error: %s\n",
			sqlite3_errmsg (handle));
	  sqlite3_close (handle);
	  return NULL;
      }
    backup = sqlite3_backup_init (handle, "main", origin, "main");
    if (!backup)
	goto stop;
    while (1)
      {
	  ret = sqlite3_backup_step (backup, 1024);
	  if (ret == SQLITE_DONE)
	      break;
      }
    ret = sqlite3_backup_finish (backup);
    if (ret != SQLITE_OK)
	goto stop;
    spatialite_internal_init (handle, cache);
    return handle;

  stop:
    sqlite3_close (handle);
    return NULL;
}

static int
do_clone_memory_db (sqlite3 * main_handle, sqlite3 * handle,
		    const char *db_name)
{
/* cloning back an eventual MEMORY DB */
    int ret;
    sqlite3_backup *backup;
    const char *db_path = sqlite3_db_filename (main_handle, db_name);
    if (db_path != NULL)
      {
	  if (strlen (db_path) > 0)
	      return 1;		/* not a MEMORY DB - quitting */
      }
    backup = sqlite3_backup_init (main_handle, db_name, handle, db_name);
    if (!backup)
	return 0;
    while (1)
      {
	  ret = sqlite3_backup_step (backup, 1024);
	  if (ret == SQLITE_DONE)
	      break;
      }
    ret = sqlite3_backup_finish (backup);
    if (ret != SQLITE_OK)
	return 0;
    return 1;
}

static sqlite3 *
do_open_new_connection (sqlite3 * origin, void *cache)
{
/* opening a new connection to the MAIN DB */
    int ret;
    sqlite3 *handle;
    int mem_db = 0;
    const char *db_path = sqlite3_db_filename (origin, "main");
    int rd_only = sqlite3_db_readonly (origin, "main");
    int mode = SQLITE_OPEN_READWRITE;
    if (rd_only)
	mode = SQLITE_OPEN_READONLY;
    if (db_path == NULL)
	mem_db = 1;
    else if (*db_path == '\0')
	mem_db = 1;
    if (mem_db)
	return do_clone_mem_db (origin, cache, mode);

/* creating a new connection */
    ret = sqlite3_open_v2 (db_path, &handle, mode, NULL);
    if (ret != SQLITE_OK)
      {
	  spatialite_e ("SqlProcExec: sqlite3_open_v2 error: %s\n",
			sqlite3_errmsg (handle));
	  sqlite3_close (handle);
	  return NULL;
      }
    spatialite_internal_init (handle, cache);
    return handle;
}

static int
do_attach_all (sqlite3 * origin, sqlite3 * handle)
{
/* attaching all required database-files to the new connection */
    int ret;
    int i;
    char **results;
    int rows;
    int columns;

/* listing all database-files attached to the initial connection */
    ret =
	sqlite3_get_table (origin, "PRAGMA database_list", &results, &rows,
			   &columns, NULL);
    if (ret != SQLITE_OK)
	return 0;
    if (rows < 1)
	;
    else
      {
	  for (i = 1; i <= rows; i++)
	    {
		int mem_db = 0;
		char *sql;
		char *xdb_name;
		const char *db_name = results[(i * columns) + 1];
		const char *db_path = results[(i * columns) + 2];
		if (strcasecmp (db_name, "main") == 0)
		    continue;	/* ignoring MAIN */
		if (db_path == NULL)
		    mem_db = 1;
		else if (*db_path == '\0')
		    mem_db = 1;
		if (mem_db && strcasecmp (db_name, "temp") == 0)
		    goto skip_temp;		/* "temp" is already attached by default */
		xdb_name = gaiaDoubleQuotedSql (db_name);
		if (mem_db)
		    sql =
			sqlite3_mprintf ("ATTACH DATABASE %Q AS \"%s\"",
					 ":memory:", xdb_name);
		else
		    sql =
			sqlite3_mprintf ("ATTACH DATABASE %Q AS \"%s\"",
					 db_path, xdb_name);
		free (xdb_name);
		ret = sqlite3_exec (handle, sql, NULL, NULL, NULL);
		sqlite3_free (sql);
		if (ret != SQLITE_OK)
		  {
		      spatialite_e ("SqlProcExec: ATTACH DATABASE error: %s\n",
				    sqlite3_errmsg (handle));
		      sqlite3_free_table (results);
		      return 0;
		  }
	      skip_temp:
		if (mem_db)
		  {
		      if (!do_clone_memory_db (handle, origin, db_name))
			{
			    spatialite_e
				("SqlProcExec: ATTACH DATABASE error: %s\n",
				 sqlite3_errmsg (handle));
			    return 0;
			}
		  }
	    }
      }
    sqlite3_free_table (results);
    return 1;
}

SQLPROC_DECLARE int
gaia_sql_proc_execute (sqlite3 * main_handle, const void *ctx, const char *sql)
{
/* executing an already cooked SQL Body */
    const char *pSql = sql;
    sqlite3_stmt *stmt;
    int retval = 0;
    int n_stmts = 0;
    FILE *log = NULL;
    int ret;
    struct gaia_variant_value *ret_value;
    struct splite_internal_cache *main_cache =
	(struct splite_internal_cache *) ctx;

/* opening a new connection */
    struct splite_internal_cache *cache = spatialite_alloc_connection ();
    sqlite3 *handle = do_open_new_connection (main_handle, cache);
    if (handle == NULL)
	return 0;
/* attaching all the required database-files */
    if (!do_attach_all (main_handle, handle))
	return 0;

    if (cache != NULL)
      {
	  gaia_sql_proc_logfile (cache, main_cache->SqlProcLogfile,
				 main_cache->SqlProcLogfileAppend);
	  cache->gpkg_mode = main_cache->gpkg_mode;
	  cache->gpkg_amphibious_mode = main_cache->gpkg_amphibious_mode;
	  cache->decimal_precision = main_cache->decimal_precision;
	  cache->is_pause_enabled = main_cache->is_pause_enabled;
	  cache->SqlProcContinue = 1;
	  gaia_set_variant_null (cache->SqlProcRetValue);
	  log = cache->SqlProcLog;
      }

    if (log != NULL)
      {
................................................................................
		   "--==     SQL session end   =   %s   =   %d statement%s executed\n",
		   now, n_stmts, (n_stmts == 1) ? " was" : "s were");
	  sqlite3_free (now);
	  fprintf (log,
		   "--=========================================================================================\n\n\n");
	  fflush (log);
      }
/* updating the actual MEMORY DB (if any) */
    do_clone_memory_db (main_handle, handle, "main");

/* terminating the new connection */
    ret = sqlite3_close (handle);
    if (ret != SQLITE_OK)
	spatialite_e ("SqlProcExec: sqlite3_close() error: %s\n",
		      sqlite3_errmsg (handle));

/* copying an eventual RETVALUE */
    ret_value = cache->SqlProcRetValue;
    switch (ret_value->dataType)
      {
      case SQLITE_INTEGER:
	  gaia_set_variant_int64 (main_cache->SqlProcRetValue,
				  ret_value->intValue);
	  break;
      case SQLITE_FLOAT:
	  gaia_set_variant_double (main_cache->SqlProcRetValue,
				   ret_value->dblValue);
	  break;
      case SQLITE_TEXT:
	  gaia_set_variant_text (main_cache->SqlProcRetValue,
				 ret_value->textValue, ret_value->size);
	  break;
      case SQLITE_BLOB:
	  gaia_set_variant_blob (main_cache->SqlProcRetValue,
				 ret_value->blobValue, ret_value->size);
	  break;
      case SQLITE_NULL:
      default:
	  gaia_set_variant_null (main_cache->SqlProcRetValue);
	  break;

      };
    spatialite_internal_cleanup (cache);
    return retval;
}

SQLPROC_DECLARE int
gaia_sql_proc_logfile (const void *ctx, const char *filepath, int append)
{
/* enabling/disabling the Logfile */
................................................................................
	fclose (cache->SqlProcLog);

/* resetting the current Logfile */
    len = strlen (filepath);
    cache->SqlProcLogfile = malloc (len + 1);
    strcpy (cache->SqlProcLogfile, filepath);
    cache->SqlProcLog = log;
    cache->SqlProcLogfileAppend = append;
    return 1;
}

	"--\n-- another comment\n--\n"
	"CREATE TABLE @output_2@ AS\n"
	"SELECT @col_4@, @col_5@ FROM @table_2@ WHERE @col_6@ = @value_2@;\n\n"
	".echo off\n\n" "--\n-- end comment\n--\n\n'))";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #1 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -12;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Register() #1 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -13;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "StoredProc_Register() #1 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -14;
	  return 0;
      }
    sqlite3_free_table (results);

/* registering a second Stored Procedure */
    sql = "SELECT StoredProc_Register('proc_2', 'this is title two', "
	"SqlProc_FromText('SELECT @col_1@, @col_2@ FROM @table_1@ WHERE @col_3@ = @value_1@;'))";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #2 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -15;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Register() #2 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -16;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "StoredProc_Register() #2 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -17;
	  return 0;
      }
    sqlite3_free_table (results);

/* updating Stored Procedure title - expected failure */
................................................................................

/* registering a Stored Procedure from filepath */
    sql = "SELECT StoredProc_Register('proc_file', 'this is title three', "
	"SqlProc_FromFile('./sqlproc_sample.txt'))";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #3 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -40;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Register() #3 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -41;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "StoredProc_Register() #3 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -42;
	  return 0;
      }
    sqlite3_free_table (results);

    return 1;
................................................................................
	  fprintf (stderr, "StoredVar_Register() #4 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -100;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
































	  fprintf (stderr,
		   "StoredVar_Register() #4 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -101;
	  return 0;
      }
................................................................................
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "SqlProc_Execute() #4 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -103;
	  return 0;
































      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "SqlProc_Execute() #4 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
................................................................................
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "SqlProc_Return() #2 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -112;
	  return 0;
































      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "SqlProc_Return() #2 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
................................................................................

/* registering several Stored Procedure */
    sql = "SELECT StoredProc_Register('proc_ret1', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(NULL)'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #4 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -123;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret2', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(1234567890)'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #5 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -124;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret3', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(1234.5)'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #6 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -125;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret4', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(''test me now'')'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #7 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -126;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret5', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(x''0102030405060708090a0b0c0d0e0f'')'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #8 error: %s\n", err_msg);




































	  sqlite3_free (err_msg);
	  *retcode = -127;
	  return 0;
      }

/* testing StoredProc_Return(NULL) */
    sql = "SELECT StoredProc_Execute('proc_ret1');";
................................................................................
    const char *sql;
    int ret;
    char *err_msg = NULL;
    char **results;
    int rows;
    int columns;

/* registering several Stored Procedure */
    sql = "SELECT StoredProc_Register('proc_loop', 'this is a title', "
	"SqlProc_FromText('CREATE TABLE IF NOT EXISTS @TABLE@ (value INTEGER NOT NULL); "
	"INSERT INTO @TABLE@ VALUES (random()); "
	"SELECT CASE count(*) >= @LIMIT@ WHEN 1 THEN SqlProc_Return(0) ELSE SqlProc_Return(1) END FROM @TABLE@;'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #9 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -149;
	  return 0;
      }

/* testing StoredProc_ExecuteLoop() */
    sql =
................................................................................
      }
    if (atoi (*(results + 1)) != 250)
      {
	  fprintf (stderr, "StoredProc_ExecuteLoop() #2 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -155;
	  return 0;































































































































































































      }
    sqlite3_free_table (results);

    return 1;
}

#endif
................................................................................
/*tests: level 8 */
    if (!do_level8_tests (handle, &retcode))
	goto end;

/*tests: level 9 */
    if (!do_level9_tests (handle, &retcode))
	goto end;





  end:

#else
    if (old_SPATIALITE_SECURITY_ENV != NULL)
	old_SPATIALITE_SECURITY_ENV = NULL;	/* silencing stupid compiler warnings */
#endif /* end ICONV */

    sqlite3_close (handle);
    spatialite_cleanup_ex (cache);
    spatialite_shutdown ();
    return retcode;
}

	"--\n-- another comment\n--\n"
	"CREATE TABLE @output_2@ AS\n"
	"SELECT @col_4@, @col_5@ FROM @table_2@ WHERE @col_6@ = @value_2@;\n\n"
	".echo off\n\n" "--\n-- end comment\n--\n\n'))";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #2 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -12;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Register() #2 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -13;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "StoredProc_Register() #2 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -14;
	  return 0;
      }
    sqlite3_free_table (results);

/* registering a second Stored Procedure */
    sql = "SELECT StoredProc_Register('proc_2', 'this is title two', "
	"SqlProc_FromText('SELECT @col_1@, @col_2@ FROM @table_1@ WHERE @col_3@ = @value_1@;'))";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #3 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -15;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Register() #3 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -16;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "StoredProc_Register() #3 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -17;
	  return 0;
      }
    sqlite3_free_table (results);

/* updating Stored Procedure title - expected failure */
................................................................................

/* registering a Stored Procedure from filepath */
    sql = "SELECT StoredProc_Register('proc_file', 'this is title three', "
	"SqlProc_FromFile('./sqlproc_sample.txt'))";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #4 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -40;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Register() #4 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -41;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "StoredProc_Register() #4 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -42;
	  return 0;
      }
    sqlite3_free_table (results);

    return 1;
................................................................................
	  fprintf (stderr, "StoredVar_Register() #4 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -100;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {

/* enabling a SQL Logfile - append mode */
	  sql = "SELECT SqlProc_SetLogfile('./sql_logfile', 1)";
	  ret =
	      sqlite3_get_table (handle, sql, &results, &rows, &columns,
				 &err_msg);
	  if (ret != SQLITE_OK)
	    {
		fprintf (stderr, "SqlProc_SetLogfile() #3 error: %s\n",
			 err_msg);
		sqlite3_free (err_msg);
		*retcode = -91;
		return 0;
	    }
	  if (rows != 1 || columns != 1)
	    {
		fprintf (stderr,
			 "SqlProc_SetLogfile() #3 error: rows=%d columns=%d\n",
			 rows, columns);
		sqlite3_free_table (results);
		*retcode = -92;
		return 0;
	    }
	  if (atoi (*(results + 1)) != 1)
	    {
		fprintf (stderr,
			 "SqlProc_SetLogfile() #3 unexpected failure\n");
		sqlite3_free_table (results);
		*retcode = -93;
		return 0;
	    }
	  sqlite3_free_table (results);
	  fprintf (stderr,
		   "StoredVar_Register() #4 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -101;
	  return 0;
      }
................................................................................
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "SqlProc_Execute() #4 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -103;
	  return 0;

/* enabling a SQL Logfile - append mode */
	  sql = "SELECT SqlProc_SetLogfile('./sql_logfile', 1)";
	  ret =
	      sqlite3_get_table (handle, sql, &results, &rows, &columns,
				 &err_msg);
	  if (ret != SQLITE_OK)
	    {
		fprintf (stderr, "SqlProc_SetLogfile() #4 error: %s\n",
			 err_msg);
		sqlite3_free (err_msg);
		*retcode = -91;
		return 0;
	    }
	  if (rows != 1 || columns != 1)
	    {
		fprintf (stderr,
			 "SqlProc_SetLogfile() #4 error: rows=%d columns=%d\n",
			 rows, columns);
		sqlite3_free_table (results);
		*retcode = -92;
		return 0;
	    }
	  if (atoi (*(results + 1)) != 1)
	    {
		fprintf (stderr,
			 "SqlProc_SetLogfile() #4 unexpected failure\n");
		sqlite3_free_table (results);
		*retcode = -93;
		return 0;
	    }
	  sqlite3_free_table (results);
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "SqlProc_Execute() #4 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
................................................................................
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "SqlProc_Return() #2 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -112;
	  return 0;

/* enabling a SQL Logfile - append mode */
	  sql = "SELECT SqlProc_SetLogfile('./sql_logfile', 1)";
	  ret =
	      sqlite3_get_table (handle, sql, &results, &rows, &columns,
				 &err_msg);
	  if (ret != SQLITE_OK)
	    {
		fprintf (stderr, "SqlProc_SetLogfile() #5 error: %s\n",
			 err_msg);
		sqlite3_free (err_msg);
		*retcode = -91;
		return 0;
	    }
	  if (rows != 1 || columns != 1)
	    {
		fprintf (stderr,
			 "SqlProc_SetLogfile() #5 error: rows=%d columns=%d\n",
			 rows, columns);
		sqlite3_free_table (results);
		*retcode = -92;
		return 0;
	    }
	  if (atoi (*(results + 1)) != 1)
	    {
		fprintf (stderr,
			 "SqlProc_SetLogfile() #5 unexpected failure\n");
		sqlite3_free_table (results);
		*retcode = -93;
		return 0;
	    }
	  sqlite3_free_table (results);
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "SqlProc_Return() #2 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
................................................................................

/* registering several Stored Procedure */
    sql = "SELECT StoredProc_Register('proc_ret1', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(NULL)'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #5 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -123;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret2', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(1234567890)'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #6 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -124;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret3', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(1234.5)'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #7 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -125;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret4', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(''test me now'')'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #8 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -126;
	  return 0;
      }
    sql = "SELECT StoredProc_Register('proc_ret5', 'this is a title', "
	"SqlProc_FromText('SELECT StoredProc_Return(x''0102030405060708090a0b0c0d0e0f'')'));";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #9 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -127;
	  return 0;
      }

/* enabling a SQL Logfile - append mode */
    sql = "SELECT SqlProc_SetLogfile('./sql_logfile', 1)";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "SqlProc_SetLogfile() #6 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -91;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "SqlProc_SetLogfile() #6 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -92;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "SqlProc_SetLogfile() #6 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -93;
	  return 0;
      }
    sqlite3_free_table (results);
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #10 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -127;
	  return 0;
      }

/* testing StoredProc_Return(NULL) */
    sql = "SELECT StoredProc_Execute('proc_ret1');";
................................................................................
    const char *sql;
    int ret;
    char *err_msg = NULL;
    char **results;
    int rows;
    int columns;

/* registering a Stored Procedure */
    sql = "SELECT StoredProc_Register('proc_loop', 'this is a title', "
	"SqlProc_FromText('CREATE TABLE IF NOT EXISTS @TABLE@ (value INTEGER NOT NULL); "
	"INSERT INTO @TABLE@ VALUES (random()); "
	"SELECT CASE count(*) >= @LIMIT@ WHEN 1 THEN SqlProc_Return(0) ELSE SqlProc_Return(1) END FROM @TABLE@;'))";
    ret = sqlite3_exec (handle, sql, NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #11 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -149;
	  return 0;
      }

/* testing StoredProc_ExecuteLoop() */
    sql =
................................................................................
      }
    if (atoi (*(results + 1)) != 250)
      {
	  fprintf (stderr, "StoredProc_ExecuteLoop() #2 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -155;
	  return 0;
      }
    sqlite3_free_table (results);

    return 1;
}

static int
do_level10_tests (sqlite3 * handle, int *retcode)
{
/* performing Level 10 tests - ATTACHED DBs */
    const char *sql;
    int ret;
    char *err_msg = NULL;
    char **results;
    int rows;
    int columns;

/* attaching an external database */
    ret =
	sqlite3_exec (handle, "ATTACH DATABASE './elba-sezcen.sqlite' AS elba",
		      NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "ATTACH DATABASE error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  sqlite3_close (handle);
	  return -160;
      }

/* attaching a :memory: database */
    ret =
	sqlite3_exec (handle, "ATTACH DATABASE ':memory:' AS mem", NULL, NULL,
		      &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "ATTACH DATABASE error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  sqlite3_close (handle);
	  return -161;
      }

/* creating a Temporary Table */
    ret = sqlite3_exec (handle, "CREATE TEMPORARY TABLE tmp_sez AS "
			"SELECT sez2001, NULL AS area, NULL AS perimeter, geometry "
			"FROM elba.sezcen_2001", NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "CREATE TEMPORARY TABLE error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  sqlite3_close (handle);
	  return -162;
      }

/* creating a Table on the "mem" DB */
    ret = sqlite3_exec (handle, "CREATE TABLE mem.sez AS "
			"SELECT sez2011, NULL AS area, NULL AS perimeter, geometry "
			"FROM elba.sezcen_2011", NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "CREATE MEM TABLE error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  sqlite3_close (handle);
	  return -163;
      }

/* creating a dummy Table */
    ret = sqlite3_exec (handle, "CREATE TABLE dummy_sez AS "
			"SELECT sez2001, NULL AS area, NULL AS perimeter, geometry "
			"FROM elba.sezcen_2001", NULL, NULL, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "CREATE TABLE error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  sqlite3_close (handle);
	  return -164;
      }

/* enabling a SQL Logfile - append mode */
    sql = "SELECT SqlProc_SetLogfile('./sql_attach_logfile', 1)";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "SqlProc_SetLogfile() #7 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -165;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "SqlProc_SetLogfile() #7 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -166;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "SqlProc_SetLogfile() #7 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -167;
	  return 0;
      }
    sqlite3_free_table (results);

/* registering a Stored Procedure */
    sql = "SELECT StoredProc_Register('attached', 'this is a title', "
	"SqlProc_FromText('--\n-- comment\n--\n"
	"SELECT DropTable(NULL, ''dummy_sez'', 1);\n\n"
	"--\n-- a second comment\n--\n"
	"UPDATE temp.tmp_sez SET area = ST_Area(geometry), perimeter = ST_Perimeter(geometry);\n\n"
	"--\n-- a third comment\n--\n"
	"CREATE TABLE dummy_sez (\n"
	"\tsection INTEGER NOT NULL PRIMARY KEY,\n"
	"\tarea DOUBLE NOT NULL,\n"
	"\tperimeter DOUBLE NOT NULL);\n\n"
	"SELECT AddGeometryColumn(''dummy_sez'', ''geom'', 32632, ''POLYGON'', ''XY'');\n\n"
	"--\n-- fourth comment\n--\n"
	"INSERT INTO dummy_sez\n"
	"SELECT e.sez2001, t.area, t.perimeter, e.geometry\nFROM elba.sezcen_2001 AS e\n"
	"JOIN temp.tmp_sez AS t ON (e.sez2001 = t.sez2001)\n"
	"WHERE t.area > @MAX@;\n\n"
	"--\n-- fifth comment\n--\n"
	"SELECT section, area, perimeter, geom\nFROM dummy_sez;\n\n"
	"SELECT DropTable(''MAIN'', ''dummy_sez'');\n\n"
	"UPDATE mem.sez SET area = ST_Area(geometry), perimeter = ST_Perimeter(geometry);\n\n"
	"--\n-- a sixth comment\n--\n"
	"CREATE TABLE dummy_sez (\n"
	"\tsection INTEGER NOT NULL PRIMARY KEY,\n"
	"\tarea DOUBLE NOT NULL,\n"
	"\tperimeter DOUBLE NOT NULL);\n\n"
	"SELECT AddGeometryColumn(''dummy_sez'', ''geom'', 32632, ''MULTIPOLYGON'', ''XY'');\n\n"
	"--\n-- fourth comment\n--\n"
	"INSERT INTO dummy_sez\n"
	"SELECT e.sez2011, m.area, m.perimeter, e.geometry\nFROM elba.sezcen_2011 AS e\n"
	"JOIN mem.sez AS m ON (e.sez2011 = m.sez2011)\n"
	"WHERE m.area < @MAX@;\n\n"
	"--\n-- seventh comment\n--\n"
	"SELECT section, area, perimeter, geom\nFROM dummy_sez;\n\n"
	"SELECT DropTable(NULL, ''dummy_sez'');\n\n" "--\n-- end job\n--\n'))";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Register() #12 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -168;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Register() #12 error: rows=%d columns=%d\n",
		   rows, columns);
	  sqlite3_free_table (results);
	  *retcode = -169;
	  return 0;
      }
    if (atoi (*(results + 1)) != 1)
      {
	  fprintf (stderr, "StoredProc_Register() #12 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -170;
	  return 0;
      }
    sqlite3_free_table (results);

/* testing StoredProc_Execute() */
    sql = "SELECT StoredProc_Execute('attached', '@MAX@=4000000');";
    ret = sqlite3_get_table (handle, sql, &results, &rows, &columns, &err_msg);
    if (ret != SQLITE_OK)
      {
	  fprintf (stderr, "StoredProc_Execute() #3 error: %s\n", err_msg);
	  sqlite3_free (err_msg);
	  *retcode = -171;
	  return 0;
      }
    if (rows != 1 || columns != 1)
      {
	  fprintf (stderr,
		   "StoredProc_Execute() #3 error: rows=%d columns=%d\n", rows,
		   columns);
	  sqlite3_free_table (results);
	  *retcode = -172;
	  return 0;
      }
    if (*(results + 1) != NULL)
      {
	  fprintf (stderr, "StoredProc_Execute() #3 unexpected failure\n");
	  sqlite3_free_table (results);
	  *retcode = -173;
	  return 0;
      }
    sqlite3_free_table (results);

    return 1;
}

#endif
................................................................................
/*tests: level 8 */
    if (!do_level8_tests (handle, &retcode))
	goto end;

/*tests: level 9 */
    if (!do_level9_tests (handle, &retcode))
	goto end;

/*tests: level 10 */
    if (!do_level10_tests (handle, &retcode))
	goto end;

  end:

#else
    if (old_SPATIALITE_SECURITY_ENV != NULL)
	old_SPATIALITE_SECURITY_ENV = NULL;	/* silencing stupid compiler warnings */
#endif /* end ICONV */

    sqlite3_close (handle);
    spatialite_cleanup_ex (cache);
    spatialite_shutdown ();
    return retcode;
}