GdaConnectionEvent *
_gda_firebird_make_error (GdaConnection *cnc, const gint statement_type)
{
FirebirdConnectionData *cdata;
GdaConnectionEvent *error_ev;
g_return_val_if_fail (GDA_IS_CONNECTION (cnc), NULL);
cdata = (FirebirdConnectionData*) gda_connection_internal_get_provider_data_error (cnc, NULL);
if (!cdata)
return NULL;
error_ev = gda_connection_point_available_event (cnc, GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_code (error_ev, isc_sqlcode (cdata->status));
ISC_SCHAR *description;
const ISC_STATUS *p = cdata->status;
description = g_new0 (ISC_SCHAR, 512);
fb_interpret (description, 511, &p);
g_print ("MAKE_ERROR [%s]\n", description);
gda_connection_event_set_source (error_ev, "[GDA Firebird]");
gda_connection_event_set_description (error_ev, description);
gda_connection_add_event (cnc, error_ev);
g_free (description);
return error_ev;
}
/*
* _gda_oracle_make_error
* This function uses OCIErrorGet to get a description of the error to
* display. The parameters are one of an OCIError or a OCIEnv handle
* depending on the type, which is either OCI_HTYPE_ERROR or OCI_HTYPE_ENV.
* Read the documentation on OCIErrorGet to understand why this is
*
* If the handle is NULL, which is an unhappy situation, it will set the
* error description to "NO DESCRIPTION".
*
* The error number is set to the Oracle error code.
*/
GdaConnectionEvent *
_gda_oracle_make_error (GdaConnection *cnc, dvoid *hndlp, ub4 type, const gchar *file, gint line)
{
GdaConnectionEvent *error = NULL;
gchar errbuf[512];
ub4 errcode = GDA_CONNECTION_EVENT_CODE_UNKNOWN;
gchar *source;
if (hndlp != NULL) {
OCIErrorGet ((dvoid *) hndlp,
(ub4) 1,
(text *) NULL,
&errcode,
errbuf,
(ub4) sizeof (errbuf),
(ub4) type);
if (errcode != 1405) {
error = gda_connection_point_available_event (cnc, GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (error, errbuf);
/*g_warning ("Oracle error:%s", errbuf);*/
if (errcode == 600)
g_warning ("Maybe an Oracle bug...");
}
}
else {
error = gda_connection_point_available_event (cnc, GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (error, _("NO DESCRIPTION"));
}
if (error) {
gda_connection_event_set_code (error, errcode);
source = g_strdup_printf ("gda-oracle:%s:%d", file, line);
gda_connection_event_set_source (error, source);
g_free(source);
}
return error;
}
static GObject *
gda_ldap_provider_statement_execute (GdaServerProvider *provider, GdaConnection *cnc,
GdaStatement *stmt, GdaSet *params,
GdaStatementModelUsage model_usage,
GType *col_types, GdaSet **last_inserted_row, GError **error)
{
gchar *sql;
sql = gda_statement_to_sql (stmt, params, NULL);
if (sql) {
/* parse SQL:
* CREATE LDAP TABLE <table name> WITH BASE='base_dn' FILTER='filter'
* ATTRIBUTES='attributes' SCOPE='scope'
*/
gchar *ssql = sql;
SKIP_SPACES (ssql);
if (! g_ascii_strncasecmp (ssql, "CREATE", 6)) {
ExtraSqlCommand *cmde;
GError *lerror = NULL;
GObject *retval = NULL;
cmde = parse_extra_sql_command (ssql, "CREATE", &lerror);
if (cmde != NOT_AN_EXTRA_SQL_COMMAND) {
GdaConnectionEvent *event = NULL;
if (cmde) {
if (gda_ldap_connection_declare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, cmde->base_dn,
cmde->filter, cmde->attributes,
cmde->scope, &lerror))
retval = (GObject*) gda_set_new (NULL);
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
extra_sql_command_free (cmde);
}
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
gda_connection_internal_statement_executed (cnc, stmt, params, event);
g_free (sql);
return retval;
}
}
/* parse SQL:
* DROP LDAP TABLE <table name>
*/
else if (! g_ascii_strncasecmp (ssql, "DROP", 4)) {
ExtraSqlCommand *cmde;
GError *lerror = NULL;
GObject *retval = NULL;
cmde = parse_extra_sql_command (ssql, "DROP", &lerror);
if (cmde != NOT_AN_EXTRA_SQL_COMMAND) {
GdaConnectionEvent *event = NULL;
if (cmde) {
if (cmde->other_args) {
g_set_error (&lerror, GDA_SQL_PARSER_ERROR,
GDA_SQL_PARSER_SYNTAX_ERROR,
"%s",
_("Too many arguments"));
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event,
lerror->message);
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
else {
if (gda_ldap_connection_undeclare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, &lerror))
retval = (GObject*) gda_set_new (NULL);
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
}
extra_sql_command_free (cmde);
}
else {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
gda_connection_internal_statement_executed (cnc, stmt, params, event);
g_free (sql);
return retval;
}
}
/* parse SQL:
* ALTER LDAP TABLE <table name> [...]
* DESCRIBE LDAP TABLE <table name>
*/
else if (! g_ascii_strncasecmp (ssql, "ALTER", 5) ||
! g_ascii_strncasecmp (ssql, "DESCRIBE", 8)) {
ExtraSqlCommand *cmde;
GError *lerror = NULL;
GObject *retval = NULL;
gboolean alter;
alter = g_ascii_strncasecmp (ssql, "ALTER", 5) ? FALSE : TRUE;
cmde = parse_extra_sql_command (ssql, alter ? "ALTER" : "DESCRIBE", &lerror);
if ((cmde != NOT_AN_EXTRA_SQL_COMMAND) &&
(alter || (!alter && !cmde->other_args))) {
GdaConnectionEvent *event = NULL;
if (cmde) {
const gchar *base_dn, *filter, *attributes;
GdaLdapSearchScope scope;
if (gda_ldap_connection_describe_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name,
&base_dn, &filter,
&attributes, &scope, &lerror)) {
if (cmde->other_args) {
if (! cmde->base_dn && base_dn)
cmde->base_dn = g_strdup (base_dn);
if (! cmde->filter && filter)
cmde->filter = g_strdup (filter);
if (! cmde->attributes && attributes)
cmde->attributes = g_strdup (attributes);
if (! cmde->scope)
cmde->scope = scope;
if (gda_ldap_connection_undeclare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, &lerror) &&
gda_ldap_connection_declare_table (GDA_LDAP_CONNECTION (cnc),
cmde->table_name, cmde->base_dn,
cmde->filter, cmde->attributes,
cmde->scope, &lerror))
retval = (GObject*) gda_set_new (NULL);
}
else {
GdaDataModel *array;
array = table_parameters_describe (base_dn, filter,
attributes, scope);
retval = (GObject*) array;
}
}
if (!retval) {
event = gda_connection_point_available_event (cnc,
GDA_CONNECTION_EVENT_ERROR);
gda_connection_event_set_description (event, lerror && lerror->message ?
lerror->message : _("No detail"));
gda_connection_add_event (cnc, event);
g_propagate_error (error, lerror);
}
extra_sql_command_free (cmde);
}
gda_connection_internal_statement_executed (cnc, stmt, params, event);
g_free (sql);
return retval;
}
}
g_free (sql);
}
/* check connection to LDAP is Ok */
if (! gda_ldap_ensure_bound (GDA_LDAP_CONNECTION (cnc), error))
return NULL;
GdaServerProviderBase *fset;
fset = gda_server_provider_get_impl_functions_for_class (parent_class, GDA_SERVER_PROVIDER_FUNCTIONS_BASE);
return fset->statement_execute (provider, cnc, stmt, params,
model_usage, col_types,
last_inserted_row, error);
}
