--- parser3/src/main/pa_sql_driver_manager.C 2001/05/17 18:36:33 1.18 +++ parser3/src/main/pa_sql_driver_manager.C 2001/10/31 14:42:05 1.47 @@ -2,10 +2,9 @@ Parser: sql driver manager implementation. Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) - Author: Alexander Petrosyan (http://design.ru/paf) - $Id: pa_sql_driver_manager.C,v 1.18 2001/05/17 18:36:33 parser Exp $ + $Id: pa_sql_driver_manager.C,v 1.47 2001/10/31 14:42:05 paf Exp $ */ #include "pa_sql_driver_manager.h" @@ -14,8 +13,7 @@ #include "pa_exception.h" #include "pa_common.h" #include "pa_threads.h" - -#include "pa_sapi.h" +#include "pa_stack.h" // globals @@ -23,9 +21,8 @@ SQL_Driver_manager *SQL_driver_manager; // consts -const char *LIBRARY_CREATE_FUNC_NAME="create"; const int EXPIRE_UNUSED_CONNECTION_SECONDS=60; -const int CHECK_EXPIRED_CONNECTIONS_SECONDS=60*2; +const int CHECK_EXPIRED_CONNECTIONS_SECONDS=EXPIRE_UNUSED_CONNECTION_SECONDS*2; /// SQL_Driver_services Pooled implementation @@ -35,40 +32,85 @@ public: furl(aurl) { } - /// allocates some bytes on pool - void *malloc(size_t size) { return Pooled::malloc(size); } - /// allocates some bytes clearing them with zeros - void *calloc(size_t size) { return Pooled::calloc(size); } - /// throw exception - void _throw(const char *comment) { - THROW(0, 0, - &furl, + virtual void *malloc(size_t size) { return Pooled::malloc(size, 8); } + virtual void *calloc(size_t size) { return Pooled::calloc(size); } + + /** + the idea is to #1 jump to C++ some function to main body, where + every function stack frame has exception unwind information + and from there... #2 propagate_exception() + */ + virtual void _throw(const char *comment) { + String& protocol=*NEW String(pool()); + /// hiding passwords and addresses from accidental show [imagine user forgot @exception] + protocol << furl.mid(0, furl.pos(":")) << "..."; + e=Exception(0, 0, + &protocol, comment); + + longjmp(mark, 1); + } + virtual void propagate_exception() { + throw e; } private: const String& furl; + Exception e; }; +// helpers + +static void expire_connection(Array::Item *value, void *info) { + SQL_Connection& connection=*static_cast(value); + time_t older_dies=reinterpret_cast(info); + + if(connection.connected() && connection.expired(older_dies)) + connection.disconnect(); +} +static void expire_connections(const Hash::Key& key, Hash::Val *value, void *info) { + Stack& stack=*static_cast(value); + for(int i=0; i<=stack.top_index(); i++) + expire_connection(stack.get(i), info); +} + // SQL_Driver_manager +SQL_Driver_manager::SQL_Driver_manager(Pool& pool) : Pooled(pool), + driver_cache(pool), + connection_cache(pool), + prev_expiration_pass_time(0) { + +} + +SQL_Driver_manager::~SQL_Driver_manager() { + connection_cache.for_each(expire_connections, + reinterpret_cast((time_t)0/*=in past=expire all*/)); +} + /// @param request_url protocol://[driver-dependent] -SQL_Connection& SQL_Driver_manager::get_connection(const String& request_url, +SQL_Connection& SQL_Driver_manager::get_connection(const String& request_url, + const String& request_origin, Table *protocol2driver_and_client) { -////__asm int 3; - Pool& pool=request_url.pool(); // request pool + Pool& pool=request_origin.pool(); // request pool // we have table for locating protocol's library if(!protocol2driver_and_client) - PTHROW(0, 0, + throw Exception(0, 0, &request_url, - "$SQL:drivers table must be defined"); + "$"MAIN_SQL_NAME":"MAIN_SQL_DRIVERS_NAME" table must be defined"); + + // construct services[request] (deassociates at close) + SQL_Driver_services *services=new(pool) SQL_Driver_services_impl(pool, request_url); // first trying to get cached connection SQL_Connection *result=get_connection_from_cache(request_url); - if(result && !result->ping()) { // we have some cached connection, is it pingable? - result->disconnect(); // kill unpingabe=dead connection - result=0; + if(result) { + result->set_services(services); + if(!result->ping()) { // we have some cached connection, is it pingable? + result->disconnect(); // kill unpingabe=dead connection + result=0; + } } char *request_url_cstr; @@ -77,12 +119,12 @@ SQL_Connection& SQL_Driver_manager::get_ else { // no cached connection or it were unpingabe: connect/reconnect int pos=request_url.pos("://", 3); if(pos<0) - PTHROW(0, 0, - &request_url, - "no protocol specified"); // NOTE: not THROW, but PTHROW + throw Exception(0, 0, + request_url.size()?&request_url:&request_origin, + "connection string must start with protocol://"); // NOTE: not THROW, but PTHROW // make global_url C-string on global pool - request_url_cstr=request_url.cstr(String::UL_AS_IS); + request_url_cstr=request_url.cstr(); char *global_url_cstr=(char *)malloc(strlen(request_url_cstr)+1); strcpy(global_url_cstr, request_url_cstr); // make global_url string on global pool @@ -107,34 +149,35 @@ SQL_Connection& SQL_Driver_manager::get_ const String *library=0; if(protocol2driver_and_client->locate(0, global_protocol)) { if(!(library=protocol2driver_and_client->item(1)) || library->size()==0) - PTHROW(0, 0, + throw Exception(0, 0, protocol2driver_and_client->origin_string(), "driver library column for protocol '%s' is empty", request_protocol_cstr); - if(!(dlopen_file_spec=protocol2driver_and_client->item(2)) || dlopen_file_spec->size()==0) - PTHROW(0, 0, - protocol2driver_and_client->origin_string(), - "client library column for protocol '%s' is empty", - request_protocol_cstr); + dlopen_file_spec=protocol2driver_and_client->item(2); } else - PTHROW(0, 0, + throw Exception(0, 0, &request_url, "undefined protocol '%s'", request_protocol_cstr); - const char *filename=library->cstr(String::UL_FILE_NAME); + if(lt_dlinit()) + throw Exception(0, 0, + library, + "prepare to dynamic loading failed, %s", lt_dlerror()); + + const char *filename=library->cstr(String::UL_FILE_SPEC); lt_dlhandle handle=lt_dlopen(filename); if (!handle) - PTHROW(0, 0, + throw Exception(0, 0, library, "can not open the module, %s", lt_dlerror()); SQL_Driver_create_func create=(SQL_Driver_create_func)lt_dlsym(handle, - LIBRARY_CREATE_FUNC_NAME); + SQL_DRIVER_CREATE_NAME); if(!create) - PTHROW(0, 0, + throw Exception(0, 0, library, - "function '%s' was not found", LIBRARY_CREATE_FUNC_NAME); + "function '"SQL_DRIVER_CREATE_NAME"' was not found"); // create library-driver! driver=(*create)(); @@ -142,19 +185,23 @@ SQL_Connection& SQL_Driver_manager::get_ // validate driver api version int driver_api_version=driver->api_version(); if(driver_api_version!=SQL_DRIVER_API_VERSION) - PTHROW(0, 0, + throw Exception(0, 0, library, "driver implements API version 0x%04X not equal to 0x%04X", driver_api_version, SQL_DRIVER_API_VERSION); // initialise by connecting to sql client dynamic link library - const char *dlopen_file_spec_cstr=dlopen_file_spec->cstr(String::UL_FILE_NAME); + bool specified_dlopen_file_spec=dlopen_file_spec && dlopen_file_spec->size(); + const char *dlopen_file_spec_cstr= + specified_dlopen_file_spec? + dlopen_file_spec->cstr(String::UL_FILE_SPEC):0; if(const char *error=driver->initialize( dlopen_file_spec_cstr)) - PTHROW(0, 0, + throw Exception(0, 0, library, "driver failed to initialize client library '%s', %s", - dlopen_file_spec_cstr, error); + specified_dlopen_file_spec?dlopen_file_spec_cstr:"unspecifed", + error); // cache it put_driver_to_cache(global_protocol, *driver); @@ -164,10 +211,10 @@ SQL_Connection& SQL_Driver_manager::get_ // associate with services[request] // NOTE: never freed up! result=new(this->pool()) SQL_Connection(this->pool(), global_url, *driver); + // associate with services[request] (deassociates at close) + result->set_services(services); } - // associate with services[request] (deassociates at close) - result->set_services(new(pool) SQL_Driver_services_impl(pool, request_url)); // if not connected yet, do that now, when result has services if(!result->connected()) result->connect(request_url_cstr); @@ -199,10 +246,12 @@ void SQL_Driver_manager::put_driver_to_c } // connection cache - +/// @todo get rid of memory spending Stack [zeros deep inside got accumulated] SQL_Connection *SQL_Driver_manager::get_connection_from_cache(const String& url) { SYNCHRONIZED; + maybe_expire_connection_cache(); + if(Stack *connections=static_cast(connection_cache.get(url))) while(connections->top_index()>=0) { // there are cached connections to that 'url' SQL_Connection *result=static_cast(connections->pop()); @@ -217,8 +266,6 @@ void SQL_Driver_manager::put_connection_ SQL_Connection& connection) { SYNCHRONIZED; - maybe_expire_connection_cache(); - Stack *connections=static_cast(connection_cache.get(url)); if(!connections) { // there are no cached connections to that 'url' yet? connections=NEW Stack(pool()); // NOTE: never freed up! @@ -227,18 +274,6 @@ void SQL_Driver_manager::put_connection_ connections->push(&connection); } -static void expire_connection(Array::Item *value, void *info) { - SQL_Connection& connection=*static_cast(value); - time_t older_dies=reinterpret_cast(info); - - if(connection.expired(older_dies)) - connection.disconnect(); -} -static void expire_connections(const Hash::Key& key, Hash::Val *value, void *info) { - Stack& stack=*static_cast(value); - for(int i=0; i<=stack.top_index(); i++) - expire_connection(stack.get(i), info); -} void SQL_Driver_manager::maybe_expire_connection_cache() { time_t now=time(0);