706648c7c8
* NEW: Upgrade to 3.7.1 version. [GB.DB] * NEW: Connection.SQL is a new property that returns a new SQLRequest object that can be used for forging a SQL request whose syntax is adapted to the target connection. * NEW: SQLRequest is a new class that helps to build a SQL request whose syntax is adapted to a specific connection. The name of table fields are always quoted so that they can include reserved characters. [GB.DB.FORM] * NEW: Use the new SQL property of the Connection object to build request. * BUG: Fields with special characters in their name are now correctly quoted, thanks to the new SQL forgin mechanism. [GB.DB] * BUG: Don't crash when a SQLite database is not found and if the hostname is null. * NEW: GB_DB_DEBUG is a new environmental variable that allows to externally set the DB.Debug property. [GB.EVAL.HIGHLIGHT] * NEW: SQL higlighting: the '`' quote character is taken into account now. git-svn-id: svn://localhost/gambas/trunk@7020 867c0c6c-44f3-4631-809d-bfa615b0a4ec
216 lines
4.4 KiB
C
216 lines
4.4 KiB
C
/***************************************************************************
|
|
|
|
sqlite.c
|
|
|
|
(c) 2000-2013 Benoît Minisini <gambas@users.sourceforge.net>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
|
MA 02110-1301, USA.
|
|
|
|
***************************************************************************/
|
|
|
|
#define __SQLITE_C
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
#include <string.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <dirent.h>
|
|
#include <unistd.h>
|
|
#include <libgen.h>
|
|
|
|
#include "main.h"
|
|
|
|
|
|
/* Internal function to check whether a file is a sqlite database file */
|
|
|
|
static bool is_sqlite2_database(char *filename)
|
|
{
|
|
FILE* fp;
|
|
bool res;
|
|
char magic_text[48];
|
|
|
|
fp = fopen(filename, "r");
|
|
if (!fp)
|
|
return FALSE;
|
|
|
|
res = fread(magic_text, 1, 47, fp) == 47;
|
|
fclose(fp);
|
|
|
|
if (!res)
|
|
return FALSE;
|
|
|
|
magic_text[47] = '\0';
|
|
|
|
if (strcmp(magic_text, "** This file contains an SQLite 2.1 database **"))
|
|
return FALSE;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static bool is_sqlite3_database(char *filename)
|
|
{
|
|
FILE *fp;
|
|
bool res;
|
|
char magic_text[16];
|
|
|
|
fp = fopen(filename, "r");
|
|
if (!fp)
|
|
return FALSE;
|
|
|
|
res = fread(magic_text, 1, 15, fp) == 15;
|
|
fclose(fp);
|
|
|
|
if (!res)
|
|
return FALSE;
|
|
|
|
magic_text[15] = '\0';
|
|
|
|
if (strcmp(magic_text, "SQLite format 3"))
|
|
return FALSE;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static bool IsDatabaseFile(char *filename)
|
|
{
|
|
return is_sqlite3_database(filename) || is_sqlite2_database(filename);
|
|
}
|
|
|
|
static char *FindDatabase(char *name, char *hostName)
|
|
{
|
|
char *dbhome = NULL;
|
|
char *fullpath = NULL;
|
|
|
|
/* Does Name includes fullpath */
|
|
if (strcmp(basename(name), name))
|
|
{
|
|
if (IsDatabaseFile(name))
|
|
fullpath = GB.NewZeroString(name);
|
|
|
|
return fullpath;
|
|
}
|
|
|
|
/* Hostname contains home area */
|
|
fullpath = GB.NewZeroString(hostName);
|
|
fullpath = GB.AddChar(fullpath, '/');
|
|
fullpath = GB.AddString(fullpath, name, 0);
|
|
if (IsDatabaseFile(fullpath))
|
|
{
|
|
return fullpath;
|
|
}
|
|
GB.FreeString(&fullpath);
|
|
|
|
/* Check the GAMBAS_SQLITE_DBHOME setting */
|
|
dbhome = getenv("GAMBAS_SQLITE_DBHOME");
|
|
|
|
if (dbhome != NULL)
|
|
{
|
|
fullpath = GB.NewZeroString(dbhome);
|
|
fullpath = GB.AddChar(fullpath, '/');
|
|
fullpath = GB.AddString(fullpath, name, 0);
|
|
|
|
if (IsDatabaseFile(fullpath))
|
|
{
|
|
return fullpath;
|
|
}
|
|
}
|
|
|
|
fullpath = GB.NewZeroString(GB.TempDir());
|
|
fullpath = GB.AddString(fullpath, "/sqlite/", 0);
|
|
fullpath = GB.AddString(fullpath, name, 0);
|
|
|
|
if (IsDatabaseFile(fullpath))
|
|
{
|
|
return fullpath;
|
|
}
|
|
|
|
GB.FreeString(&fullpath);
|
|
return NULL;
|
|
}
|
|
|
|
//-------------------------------------------------------------------------
|
|
|
|
static int open_database(DB_DESC *desc, DB_DATABASE * db)
|
|
{
|
|
char *host;
|
|
char *db_fullpath = NULL;
|
|
bool ver2 = FALSE;
|
|
|
|
if (!desc->name) // memory database
|
|
goto __SQLITE;
|
|
|
|
host = desc->host;
|
|
if (!host)
|
|
host = "";
|
|
|
|
db_fullpath = FindDatabase(desc->name, host);
|
|
if (!db_fullpath)
|
|
{
|
|
GB.Error("Unable to locate database `&1` in `&2`", desc->name, host);
|
|
return TRUE;
|
|
}
|
|
|
|
ver2 = is_sqlite2_database(db_fullpath);
|
|
|
|
GB.FreeString(&db_fullpath);
|
|
|
|
if (ver2)
|
|
goto __SQLITE2;
|
|
else
|
|
goto __SQLITE3;
|
|
|
|
__SQLITE:
|
|
|
|
GB.Component.Load("gb.db.sqlite3");
|
|
GB.Error(NULL);
|
|
|
|
if (GB.Component.Exist("gb.db.sqlite3"))
|
|
goto __SQLITE3;
|
|
else
|
|
goto __SQLITE2;
|
|
|
|
__SQLITE2:
|
|
DB_TryAnother("sqlite2");
|
|
return TRUE;
|
|
|
|
__SQLITE3:
|
|
DB_TryAnother("sqlite3");
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
//-------------------------------------------------------------------------
|
|
|
|
static int database_is_system(DB_DATABASE * db, const char *name)
|
|
{
|
|
return FALSE;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
|
|
The driver interface
|
|
|
|
*****************************************************************************/
|
|
|
|
DB_DRIVER DB_sqlite_pseudo_driver =
|
|
{
|
|
.name = "sqlite",
|
|
.Open = open_database,
|
|
.Database.IsSystem = database_is_system
|
|
};
|
|
|