/**
* gda_xa_transaction_rollback:
* @xa_trans: a #GdaXaTransaction object
* @error: (allow-none): a place to store errors, or %NULL
*
* Cancels a distributed transaction (managed by @xa_trans).
*
* Returns: %TRUE if no error occurred
*/
gboolean
gda_xa_transaction_rollback (GdaXaTransaction *xa_trans, GError **error)
{
GList *list;
g_return_val_if_fail (GDA_IS_XA_TRANSACTION (xa_trans), FALSE);
for (list = xa_trans->priv->cnc_list; list; list = list->next) {
GdaConnection *cnc;
GdaServerProvider *prov;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
if (cnc == xa_trans->priv->non_xa_cnc)
gda_connection_rollback_transaction (cnc, NULL, NULL);
else {
const GdaBinary *branch;
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
if (!PROV_CLASS (prov)->xa_funcs->xa_rollback)
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_prepare()", gda_server_provider_get_name (prov));
else
PROV_CLASS (prov)->xa_funcs->xa_rollback (prov, cnc, &(xa_trans->priv->xid), error);
}
}
return TRUE;
}
static VALUE name(VALUE self)
{
GdaServerProvider * pr;
Data_Get_Struct(self, GdaServerProvider, pr);
return rb_tainted_str_new2(gda_server_provider_get_name(pr));
}
/**
* gda_xa_transaction_commit_recovered:
* @xa_trans: a #GdaXaTransaction object
* @cnc_to_recover: (allow-none) (element-type Gda.Connection) (out callee-allocates): a place to store the list of connections for which the there were data to recover and which failed to be actually committed, or %NULL
* @error: (allow-none): a place to store errors, or %NULL
*
* Tries to commit the data prepared but which failed to commit (see gda_xa_transaction_commit()). This
* method allows one to terminate a distributed transaction which succeeded but for which some
* connections needed to be recovered.
*
* Returns: %TRUE if all the data which was still uncommitted has been committed
*/
gboolean
gda_xa_transaction_commit_recovered (GdaXaTransaction *xa_trans, GSList **cnc_to_recover, GError **error)
{
GList *list;
gboolean retval = TRUE;
if (cnc_to_recover)
*cnc_to_recover = NULL;
g_return_val_if_fail (GDA_IS_XA_TRANSACTION (xa_trans), FALSE);
for (list = xa_trans->priv->cnc_list; list; list = list->next) {
GdaConnection *cnc;
GdaServerProvider *prov;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
if (cnc == xa_trans->priv->non_xa_cnc)
continue;
else {
GList *recov_xid_list;
if (!PROV_CLASS (prov)->xa_funcs->xa_recover)
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_recover()", gda_server_provider_get_name (prov));
else {
const GdaBinary *branch;
GList *xlist;
gboolean commit_needed = FALSE;
recov_xid_list = PROV_CLASS (prov)->xa_funcs->xa_recover (prov, cnc, error);
if (!recov_xid_list)
continue;
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
for (xlist = recov_xid_list; xlist; xlist = xlist->next) {
GdaXaTransactionId *xid = (GdaXaTransactionId*) xlist->data;
if (!xid)
/* ignore unknown XID format */
continue;
if (!commit_needed &&
(xid->format == xa_trans->priv->xid.format) &&
(xid->gtrid_length == xa_trans->priv->xid.gtrid_length) &&
(xid->bqual_length == xa_trans->priv->xid.bqual_length) &&
! memcmp (xa_trans->priv->xid.data, xid->data, xid->bqual_length + xid->bqual_length))
/* found a transaction to commit */
commit_needed = TRUE;
g_free (xid);
}
g_list_free (recov_xid_list);
if (commit_needed) {
if (!PROV_CLASS (prov)->xa_funcs->xa_commit) {
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_commit()", gda_server_provider_get_name (prov));
retval = FALSE;
}
else {
retval = PROV_CLASS (prov)->xa_funcs->xa_commit (prov, cnc,
&(xa_trans->priv->xid),
error);
if (!retval)
if (cnc_to_recover)
*cnc_to_recover = g_slist_prepend (*cnc_to_recover, cnc);
}
}
}
}
}
return retval;
}
/**
* gda_xa_transaction_commit:
* @xa_trans: a #GdaXaTransaction object
* @cnc_to_recover: (allow-none) (element-type Gda.Connection) (out callee-allocates): a place to store the list of connections for which the commit phase failed, or %NULL
* @error: a place to store errors, or %NULL
*
* Commits a distributed transaction (managed by @xa_trans). The commit is composed of two phases:
* <itemizedlist>
* <listitem><para>a PREPARE phase where all the connections are required to store their transaction data to a
* permanent place (to be able to complete the commit should a problem occur afterwards)</para></listitem>
* <listitem><para>a COMMIT phase where the transaction data is actually written to the database</para></listitem>
* </itemizedlist>
*
* If the PREPARE phase fails for any of the connection registered with @xa_trans, then the distributed commit
* fails and FALSE is returned. During the COMMIT phase, some commit may actually fail but the transaction can
* still be completed because the PREPARE phase succeeded (through the recover method).
*
* Returns: TRUE if no error occurred (there may be some connections to recover, though)
*/
gboolean
gda_xa_transaction_commit (GdaXaTransaction *xa_trans, GSList **cnc_to_recover, GError **error)
{
GList *list;
if (cnc_to_recover)
*cnc_to_recover = NULL;
g_return_val_if_fail (GDA_IS_XA_TRANSACTION (xa_trans), FALSE);
/*
* PREPARE phase
*/
for (list = xa_trans->priv->cnc_list; list; list = list->next) {
GdaConnection *cnc = NULL;
GdaServerProvider *prov;
const GdaBinary *branch;
if (cnc == xa_trans->priv->non_xa_cnc)
continue;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
if (PROV_CLASS (prov)->xa_funcs->xa_end &&
!PROV_CLASS (prov)->xa_funcs->xa_end (prov, cnc, &(xa_trans->priv->xid), error))
break;
if (!PROV_CLASS (prov)->xa_funcs->xa_prepare) {
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_prepare()", gda_server_provider_get_name (prov));
break;
}
if (!PROV_CLASS (prov)->xa_funcs->xa_commit) {
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_commit()", gda_server_provider_get_name (prov));
break;
}
if (!PROV_CLASS (prov)->xa_funcs->xa_prepare (prov, cnc, &(xa_trans->priv->xid), error))
break;
}
if (list) {
/* something went wrong during the PREPARE phase => rollback everything */
for (; list; list = list->prev) {
GdaConnection *cnc = NULL;
GdaServerProvider *prov;
if (cnc == xa_trans->priv->non_xa_cnc)
gda_connection_rollback_transaction (cnc, NULL, NULL);
else {
const GdaBinary *branch;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
if (PROV_CLASS (prov)->xa_funcs->xa_rollback)
PROV_CLASS (prov)->xa_funcs->xa_rollback (prov, cnc, &(xa_trans->priv->xid), NULL);
else
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_rollback()", gda_server_provider_get_name (prov));
}
}
return FALSE;
}
/*
* COMMIT phase
*/
if (xa_trans->priv->non_xa_cnc &&
! gda_connection_commit_transaction (xa_trans->priv->non_xa_cnc, NULL, error)) {
/* something went wrong => rollback everything */
for (list = xa_trans->priv->cnc_list; list; list = list->next) {
GdaConnection *cnc = NULL;
GdaServerProvider *prov;
if (cnc == xa_trans->priv->non_xa_cnc)
gda_connection_rollback_transaction (cnc, NULL, NULL);
else {
const GdaBinary *branch;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
if (PROV_CLASS (prov)->xa_funcs->xa_rollback)
PROV_CLASS (prov)->xa_funcs->xa_rollback (prov, cnc, &(xa_trans->priv->xid), NULL);
else
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_rollback()", gda_server_provider_get_name (prov));
}
}
return FALSE;
}
for (list = xa_trans->priv->cnc_list; list; list = list->next) {
GdaConnection *cnc = NULL;
GdaServerProvider *prov;
const GdaBinary *branch;
if (cnc == xa_trans->priv->non_xa_cnc)
continue;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
if (!PROV_CLASS (prov)->xa_funcs->xa_commit (prov, cnc, &(xa_trans->priv->xid), error) &&
cnc_to_recover)
*cnc_to_recover = g_slist_prepend (*cnc_to_recover, cnc);
}
return TRUE;
}
/**
* gda_xa_transaction_begin:
* @xa_trans: a #GdaXaTransaction object
* @error: (allow-none): a place to store errors, or %NULL
*
* Begins a distributed transaction (managed by @xa_trans). Please note that this phase may fail
* for some connections if a (normal) transaction is already started (this depends on the database
* provider being used), so it's better to avoid starting any (normal) transaction on any of the
* connections registered with @xa_trans.
*
* Returns: TRUE if no error occurred
*/
gboolean
gda_xa_transaction_begin (GdaXaTransaction *xa_trans, GError **error)
{
GList *list;
g_return_val_if_fail (GDA_IS_XA_TRANSACTION (xa_trans), FALSE);
for (list = xa_trans->priv->cnc_list; list; list = list->next) {
GdaConnection *cnc;
GdaServerProvider *prov;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
if (cnc != xa_trans->priv->non_xa_cnc) {
if (!PROV_CLASS (prov)->xa_funcs->xa_start) {
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_start()", gda_server_provider_get_name (prov));
break;
}
else {
const GdaBinary *branch;
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
if (!PROV_CLASS (prov)->xa_funcs->xa_start (prov, cnc, &(xa_trans->priv->xid), error))
break;
}
}
else {
/* do a simple BEGIN */
if (! gda_connection_begin_transaction (cnc, NULL, GDA_TRANSACTION_ISOLATION_UNKNOWN,
error))
break;
}
}
if (list) {
/* something went wrong */
for (; list; list = list->prev) {
GdaConnection *cnc;
GdaServerProvider *prov;
cnc = GDA_CONNECTION (list->data);
prov = gda_connection_get_provider (cnc);
if (cnc != xa_trans->priv->non_xa_cnc) {
if (!PROV_CLASS (prov)->xa_funcs->xa_rollback)
g_warning (_("Provider error: %s method not implemented for provider %s"),
"xa_rollback()", gda_server_provider_get_name (prov));
else {
const GdaBinary *branch;
branch = g_hash_table_lookup (xa_trans->priv->cnc_hash, cnc);
memcpy (xa_trans->priv->xid.data + xa_trans->priv->xid.gtrid_length, /* Flawfinder: ignore */
branch->data, branch->binary_length);
PROV_CLASS (prov)->xa_funcs->xa_rollback (prov, cnc, &(xa_trans->priv->xid), NULL);
}
}
else {
/* do a simple ROLLBACK */
gda_connection_rollback_transaction (cnc, NULL, NULL);
}
}
return FALSE;
}
return TRUE;
}
static gboolean
report_provider_status (GdaServerProvider *prov, GdaConnection *cnc)
{
gchar *header_str;
HtmlFile *file = config->index;
gboolean is_virt;
typedef void (*AFunc) (void);
typedef struct {
const gchar *name;
gboolean should_be;
void (*func) (void);
} ProvFunc;
GdaServerProviderClass *pclass;
if (prov && cnc && (prov != gda_connection_get_provider (cnc)))
/* ignoring connection as it has a different provider */
return TRUE;
g_assert (prov || cnc);
/* section */
if (cnc)
header_str = g_strdup_printf ("Report for connection '%s'", gda_connection_get_cnc_string (cnc));
else
header_str = g_strdup_printf ("Report for '%s' provider", gda_server_provider_get_name (prov));
/* provider info */
if (!prov)
prov = gda_connection_get_provider (cnc);
is_virt = GDA_IS_VIRTUAL_PROVIDER (prov);
pclass = (GdaServerProviderClass*) G_OBJECT_GET_CLASS (prov);
ProvFunc fa[] = {
{"get_name", TRUE, (AFunc) pclass->get_name},
{"get_version", TRUE, (AFunc) pclass->get_version},
{"get_server_version", TRUE, (AFunc) pclass->get_server_version},
{"supports_feature", TRUE, (AFunc) pclass->supports_feature},
{"get_data_handler", TRUE, (AFunc) pclass->get_data_handler},
{"get_def_dbms_type", TRUE, (AFunc) pclass->get_def_dbms_type},
{"escape_string", TRUE, (AFunc) pclass->escape_string},
{"unescape_string", TRUE, (AFunc) pclass->unescape_string},
{"open_connection", TRUE, (AFunc) pclass->open_connection},
{"close_connection", TRUE, (AFunc) pclass->close_connection},
{"supports_operation", is_virt ? FALSE : TRUE, (AFunc) pclass->supports_operation},
{"create_operation", FALSE, (AFunc) pclass->create_operation},
{"render_operation", FALSE, (AFunc) pclass->render_operation},
{"perform_operation", FALSE, (AFunc) pclass->perform_operation},
{"begin_transaction", FALSE, (AFunc) pclass->begin_transaction},
{"commit_transaction", FALSE, (AFunc) pclass->commit_transaction},
{"rollback_transaction", FALSE, (AFunc) pclass->rollback_transaction},
{"add_savepoint", FALSE, (AFunc) pclass->add_savepoint},
{"rollback_savepoint", FALSE, (AFunc) pclass->rollback_savepoint},
{"delete_savepoint", FALSE, (AFunc) pclass->delete_savepoint},
{"create_parser", FALSE, (AFunc) pclass->create_parser},
{"statement_to_sql", TRUE, (AFunc) pclass->statement_to_sql},
{"statement_prepare", TRUE, (AFunc) pclass->statement_prepare},
{"statement_execute", TRUE, (AFunc) pclass->statement_execute},
{"identifier_quote", TRUE, (AFunc) pclass->identifier_quote}
};
ProvFunc md[] = {
{"_info", TRUE, (AFunc) pclass->meta_funcs._info},
{"_btypes", TRUE, (AFunc) pclass->meta_funcs._btypes},
{"_udt", TRUE, (AFunc) pclass->meta_funcs._udt},
{"udt", TRUE, (AFunc) pclass->meta_funcs.udt},
{"_udt_cols", TRUE, (AFunc) pclass->meta_funcs._udt_cols},
{"udt_cols", TRUE, (AFunc) pclass->meta_funcs.udt_cols},
{"_enums", TRUE, (AFunc) pclass->meta_funcs._enums},
{"enums", TRUE, (AFunc) pclass->meta_funcs.enums},
{"_domains", TRUE, (AFunc) pclass->meta_funcs._domains},
{"domains", TRUE, (AFunc) pclass->meta_funcs.domains},
{"_constraints_dom", TRUE, (AFunc) pclass->meta_funcs._constraints_dom},
{"constraints_dom", TRUE, (AFunc) pclass->meta_funcs.constraints_dom},
{"_el_types", TRUE, (AFunc) pclass->meta_funcs._el_types},
{"el_types", TRUE, (AFunc) pclass->meta_funcs.el_types},
{"_collations", TRUE, (AFunc) pclass->meta_funcs._collations},
{"collations", TRUE, (AFunc) pclass->meta_funcs.collations},
{"_character_sets", TRUE, (AFunc) pclass->meta_funcs._character_sets},
{"character_sets", TRUE, (AFunc) pclass->meta_funcs.character_sets},
{"_schemata", TRUE, (AFunc) pclass->meta_funcs._schemata},
{"schemata", TRUE, (AFunc) pclass->meta_funcs.schemata},
{"_tables_views", TRUE, (AFunc) pclass->meta_funcs._tables_views},
{"tables_views", TRUE, (AFunc) pclass->meta_funcs.tables_views},
{"_columns", TRUE, (AFunc) pclass->meta_funcs._columns},
{"columns", TRUE, (AFunc) pclass->meta_funcs.columns},
{"_view_cols", TRUE, (AFunc) pclass->meta_funcs._view_cols},
{"view_cols", TRUE, (AFunc) pclass->meta_funcs.view_cols},
{"_constraints_tab", TRUE, (AFunc) pclass->meta_funcs._constraints_tab},
{"constraints_tab", TRUE, (AFunc) pclass->meta_funcs.constraints_tab},
{"_constraints_ref", TRUE, (AFunc) pclass->meta_funcs._constraints_ref},
{"constraints_ref", TRUE, (AFunc) pclass->meta_funcs.constraints_ref},
{"_key_columns", TRUE, (AFunc) pclass->meta_funcs._key_columns},
{"key_columns", TRUE, (AFunc) pclass->meta_funcs.key_columns},
{"_check_columns", TRUE, (AFunc) pclass->meta_funcs._check_columns},
{"check_columns", TRUE, (AFunc) pclass->meta_funcs.check_columns},
{"_triggers", TRUE, (AFunc) pclass->meta_funcs._triggers},
{"triggers", TRUE, (AFunc) pclass->meta_funcs.triggers},
{"_routines", TRUE, (AFunc) pclass->meta_funcs._routines},
{"routines", TRUE, (AFunc) pclass->meta_funcs.routines},
{"_routine_col", TRUE, (AFunc) pclass->meta_funcs._routine_col},
{"routine_col", TRUE, (AFunc) pclass->meta_funcs.routine_col},
{"_routine_par", TRUE, (AFunc) pclass->meta_funcs._routine_par},
{"routine_par", TRUE, (AFunc) pclass->meta_funcs.routine_par},
};
gboolean has_xa = gda_server_provider_supports_feature (prov, cnc,
GDA_CONNECTION_FEATURE_XA_TRANSACTIONS);
xmlNodePtr table, tr, td, span;
GdaSqlParser *parser;
GString *string;
gsize i;
GdaProviderInfo *pinfo;
pinfo = gda_config_get_provider_info (gda_server_provider_get_name (prov));
g_assert (pinfo);
table = xmlNewChild (file->body, NULL, BAD_CAST "table", NULL);
xmlSetProp (table, BAD_CAST "width", BAD_CAST "100%");
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
td = xmlNewTextChild (tr, NULL, BAD_CAST "th", BAD_CAST header_str);
xmlSetProp (td, BAD_CAST "colspan", BAD_CAST "4");
/* line 1 */
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Provider's name:");
td = xmlNewTextChild (tr, NULL, BAD_CAST "td", BAD_CAST gda_server_provider_get_name (prov));
xmlSetProp (td, BAD_CAST "width", (xmlChar*) "35%");
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Provider is virtual:");
td = xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST (is_virt ? "Yes (uses the SQLite engine)" : "No"));
xmlSetProp (td, BAD_CAST "width", (xmlChar*) "35%");
/* line 2 */
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Provider's version:");
xmlNewTextChild (tr, NULL, BAD_CAST "td", BAD_CAST gda_server_provider_get_version (prov));
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Provider's server version:");
xmlNewTextChild (tr, NULL, BAD_CAST "td",
BAD_CAST (cnc ? gda_server_provider_get_server_version (prov, cnc) : "(non connected)"));
/* line 3 */
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Provider's description:");
xmlNewTextChild (tr, NULL, BAD_CAST "td", BAD_CAST pinfo->description);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Filename:");
xmlNewTextChild (tr, NULL, BAD_CAST "td", BAD_CAST pinfo->location);
/* line 4 */
parser = gda_server_provider_create_parser (prov, cnc);
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Creates its own SQL parser:");
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST (parser ? "Yes" : "No"));
if (parser)
g_object_unref (parser);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Non implemented base methods:");
span = NULL;
td = xmlNewChild (tr, NULL, BAD_CAST "td", NULL);
for (i = 0; i < sizeof (fa) / sizeof (ProvFunc); i++) {
gchar *str;
ProvFunc *pf = &(fa[i]);
if (pf->func)
continue;
if (span)
str = g_strdup_printf (", %s()", pf->name);
else
str = g_strdup_printf ("%s()", pf->name);
span = xmlNewTextChild (td, NULL, BAD_CAST "span", BAD_CAST str);
g_free (str);
if (pf->should_be)
xmlSetProp (span, BAD_CAST "class", BAD_CAST "error");
}
if (!span)
xmlNodeSetContent (td, BAD_CAST "---");
/* line 5 */
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Non implemented meta data methods:");
span = NULL;
td = xmlNewChild (tr, NULL, BAD_CAST "td", NULL);
for (i = 0; i < sizeof (md) / sizeof (ProvFunc); i++) {
gchar *str;
ProvFunc *pf = &(md[i]);
if (pf->func)
continue;
if (span)
str = g_strdup_printf (", %s()", pf->name);
else
str = g_strdup_printf ("%s()", pf->name);
span = xmlNewTextChild (td, NULL, BAD_CAST "span", BAD_CAST str);
g_free (str);
if (pf->should_be)
xmlSetProp (span, BAD_CAST "class", BAD_CAST "error");
}
if (!span)
xmlNodeSetContent (td, BAD_CAST "---");
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Non implemented XA transactions:");
if (pclass->xa_funcs) {
if (!has_xa) {
td = xmlNewChild (tr, NULL, BAD_CAST "td",
BAD_CAST "The provider has the 'xa_funcs' part but "
"reports that distributed transactions are "
"not supported.");
xmlSetProp (td, BAD_CAST "class", BAD_CAST "warning");
}
else {
ProvFunc dt[] = {
{"xa_start", TRUE, (AFunc) pclass->xa_funcs->xa_start},
{"xa_end", FALSE, (AFunc) pclass->xa_funcs->xa_end},
{"xa_prepare", TRUE, (AFunc) pclass->xa_funcs->xa_prepare},
{"xa_commit", TRUE, (AFunc) pclass->xa_funcs->xa_commit},
{"xa_rollback", TRUE, (AFunc) pclass->xa_funcs->xa_rollback},
{"xa_recover", TRUE, (AFunc) pclass->xa_funcs->xa_recover},
};
span = NULL;
td = xmlNewChild (tr, NULL, BAD_CAST "td", NULL);
for (i = 0; i < sizeof (dt) / sizeof (ProvFunc); i++) {
gchar *str;
ProvFunc *pf = &(dt[i]);
if (pf->func)
continue;
if (span)
str = g_strdup_printf (", %s()", pf->name);
else
str = g_strdup_printf ("%s()", pf->name);
span = xmlNewTextChild (td, NULL, BAD_CAST "span", BAD_CAST str);
g_free (str);
if (pf->should_be)
xmlSetProp (span, BAD_CAST "class", BAD_CAST "error");
}
if (!span)
xmlNodeSetContent (td, BAD_CAST "---");
}
}
else {
if (has_xa) {
td = xmlNewTextChild (tr, NULL, BAD_CAST "td",
BAD_CAST "The provider does not have the 'xa_funcs' part but "
"reports that distributed transactions are "
"supported.");
xmlSetProp (td, BAD_CAST "class", BAD_CAST "warning");
}
else
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "---");
}
/* line 6 */
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Connection's parameters:");
if (pinfo->dsn_params && pinfo->dsn_params->holders) {
GSList *list;
td = xmlNewChild (tr, NULL, BAD_CAST "td", NULL);
for (list = pinfo->dsn_params->holders; list; list = list->next) {
gchar *str, *descr;
GdaHolder *holder = GDA_HOLDER (list->data);
g_object_get (G_OBJECT (holder), "description", &descr, NULL);
if (descr)
str = g_strdup_printf ("%s: %s", gda_holder_get_id (holder), descr);
else
str = g_strdup (gda_holder_get_id (holder));
g_free (descr);
xmlNewTextChild (td, NULL, BAD_CAST "div", BAD_CAST str);
g_free (str);
}
}
else {
td = xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "None provided");
xmlSetProp (td, BAD_CAST "class", BAD_CAST "error");
}
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Authentication's parameters:");
if (pinfo->auth_params) {
GSList *list;
if (pinfo->auth_params->holders) {
td = xmlNewChild (tr, NULL, BAD_CAST "td", NULL);
for (list = pinfo->auth_params->holders; list; list = list->next) {
gchar *str, *descr;
GdaHolder *holder = GDA_HOLDER (list->data);
g_object_get (G_OBJECT (holder), "description", &descr, NULL);
if (descr)
str = g_strdup_printf ("%s: %s", gda_holder_get_id (holder), descr);
else
str = g_strdup (gda_holder_get_id (holder));
g_free (descr);
xmlNewTextChild (td, NULL, BAD_CAST "div", BAD_CAST str);
g_free (str);
}
}
else
td = xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "None required");
}
else {
td = xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "None provided");
xmlSetProp (td, BAD_CAST "class", BAD_CAST "error");
}
/* line 7 */
GdaConnectionFeature f;
string = NULL;
tr = xmlNewChild (table, NULL, BAD_CAST "tr", NULL);
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Supported features:");
for (f = 0; f < GDA_CONNECTION_FEATURE_LAST; f++) {
if (gda_server_provider_supports_feature (prov, cnc, f)) {
GEnumValue *ev;
ev = g_enum_get_value ((GEnumClass *) g_type_class_ref (GDA_TYPE_CONNECTION_FEATURE), f);
if (!string)
string = g_string_new (ev->value_name);
else
g_string_append_printf (string, ", %s", ev->value_name);
}
}
if (string) {
xmlNewTextChild (tr, NULL, BAD_CAST "td", BAD_CAST string->str);
g_string_free (string, TRUE);
}
else
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "---");
string = NULL;
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "Unsupported features:");
for (f = 0; f < GDA_CONNECTION_FEATURE_LAST; f++) {
if (!gda_server_provider_supports_feature (prov, cnc, f)) {
GEnumValue *ev;
ev = g_enum_get_value ((GEnumClass *) g_type_class_ref (GDA_TYPE_CONNECTION_FEATURE), f);
if (!string)
string = g_string_new (ev->value_name);
else
g_string_append_printf (string, ", %s", ev->value_name);
}
}
if (string) {
xmlNewTextChild (tr, NULL, BAD_CAST "td", BAD_CAST string->str);
g_string_free (string, TRUE);
}
else
xmlNewChild (tr, NULL, BAD_CAST "td", BAD_CAST "---");
g_free (header_str);
return TRUE;
}
/*
* @prov may be NULL
*/
static guint
do_a_test (GdaServerProvider *prov, GdaSqlParser *parser)
{
guint nfailed = 0;
GdaStatement *stmt;
GdaSet *params;
gchar *sql;
GError *error = NULL;
/* SQL parsed as an INSERT statement */
sql = "INSERT INTO tstest VALUES (##ts::timestamp, ##time::time)";
stmt = gda_sql_parser_parse_string (parser, sql, NULL, &error);
if (!stmt) {
g_print ("Failed to parse [%s]: %s\n", sql, error && error->message ? error->message : "No detail");
g_clear_error (&error);
nfailed ++;
goto endtest;
}
g_assert (gda_statement_get_statement_type (stmt) == GDA_SQL_STATEMENT_INSERT);
if (! gda_statement_get_parameters (stmt, ¶ms, &error)) {
g_print ("Failed to obtain parameters: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
nfailed ++;
goto endtest;
}
if (! gda_set_set_holder_value (params, &error, "ts", &ts)) {
g_print ("Failed to bind 'ts' parameter: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
if (! gda_set_set_holder_value (params, &error, "time", >)) {
g_print ("Failed to bind 'time' parameter: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
GdaConnection *cnc = NULL;
if (prov) {
cnc = gda_connection_new_from_string (gda_server_provider_get_name (prov), "DB_NAME=dummy;HOST=dummy", NULL,
GDA_CONNECTION_OPTIONS_NONE, &error);
if (!cnc) {
g_print ("Failed to create GdaConnection object: %s\n",
error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
}
gchar *expected;
expected = "('@@@@@@@@@@ 17:10:23+2', '16:09:22-3')";
if (cnc)
sql = gda_connection_statement_to_sql (cnc, stmt, params, 0, NULL, &error);
else
sql = gda_statement_to_sql_extended (stmt, NULL, params, 0, NULL, &error);
if (!sql) {
g_print ("Failed to render as SQL: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
if (!string_equal_to_template (sql, expected)) {
g_print ("Wrong rendered SQL: [%s] instead of [%s]\n", sql, expected);
g_object_unref (stmt);
g_object_unref (params);
g_free (sql);
nfailed ++;
goto endtest;
}
g_free (sql);
expected = "('@@@@@@@@@@ 15:10:23', '19:09:22')";
if (cnc)
sql = gda_connection_statement_to_sql (cnc, stmt, params, GDA_STATEMENT_SQL_TIMEZONE_TO_GMT, NULL, &error);
else
sql = gda_statement_to_sql_extended (stmt, NULL, params, GDA_STATEMENT_SQL_TIMEZONE_TO_GMT, NULL, &error);
if (!sql) {
g_print ("Failed to render as SQL: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
if (!string_equal_to_template (sql, expected)) {
g_print ("Wrong rendered SQL for GMT timezone: [%s] instead of [%s]\n", sql, expected);
g_object_unref (stmt);
g_object_unref (params);
g_free (sql);
nfailed ++;
goto endtest;
}
g_free (sql);
/* SQL not parsed as a valid statement */
sql = "AAAA (##ts::timestamp, ##time::time)";
stmt = gda_sql_parser_parse_string (parser, sql, NULL, &error);
if (!stmt) {
g_print ("Failed to parse [%s]: %s\n", sql, error && error->message ? error->message : "No detail");
g_clear_error (&error);
nfailed ++;
goto endtest;
}
g_assert (gda_statement_get_statement_type (stmt) == GDA_SQL_STATEMENT_UNKNOWN);
if (! gda_statement_get_parameters (stmt, ¶ms, &error)) {
g_print ("Failed to obtain parameters: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
nfailed ++;
goto endtest;
}
if (! gda_set_set_holder_value (params, &error, "ts", &ts)) {
g_print ("Failed to bind 'ts' parameter: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
if (! gda_set_set_holder_value (params, &error, "time", >)) {
g_print ("Failed to bind 'time' parameter: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
expected = "('@@@@@@@@@@ 17:10:23+2', '16:09:22-3')";
if (cnc)
sql = gda_connection_statement_to_sql (cnc, stmt, params, 0, NULL, &error);
else
sql = gda_statement_to_sql_extended (stmt, NULL, params, 0, NULL, &error);
if (!sql) {
g_print ("Failed to render as SQL: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
if (!string_equal_to_template (sql, expected)) {
g_print ("Wrong rendered SQL: [%s] instead of [%s]\n", sql, expected);
g_object_unref (stmt);
g_object_unref (params);
g_free (sql);
nfailed ++;
goto endtest;
}
g_free (sql);
expected = "('@@@@@@@@@@ 15:10:23', '19:09:22')";
if (cnc)
sql = gda_connection_statement_to_sql (cnc, stmt, params, GDA_STATEMENT_SQL_TIMEZONE_TO_GMT, NULL, &error);
else
sql = gda_statement_to_sql_extended (stmt, NULL, params, GDA_STATEMENT_SQL_TIMEZONE_TO_GMT, NULL, &error);
if (!sql) {
g_print ("Failed to render as SQL: %s\n", error && error->message ? error->message : "No detail");
g_clear_error (&error);
g_object_unref (stmt);
g_object_unref (params);
nfailed ++;
goto endtest;
}
if (!string_equal_to_template (sql, expected)) {
g_print ("Wrong rendered SQL for GMT timezone: [%s] instead of [%s]\n", sql, expected);
g_object_unref (stmt);
g_object_unref (params);
g_free (sql);
nfailed ++;
goto endtest;
}
g_free (sql);
endtest:
return nfailed;
}
