static void
sql_indent_clicked_cb (G_GNUC_UNUSED GtkButton *button, QueryConsolePage *tconsole)
{
gchar *sql;
GdaBatch *batch;
if (!tconsole->priv->parser)
tconsole->priv->parser = t_connection_create_parser (tconsole->priv->tcnc);
sql = query_editor_get_all_text (tconsole->priv->editor);
batch = gda_sql_parser_parse_string_as_batch (tconsole->priv->parser, sql, NULL, NULL);
g_free (sql);
if (batch) {
GString *string;
const GSList *stmt_list, *list;
stmt_list = gda_batch_get_statements (batch);
string = g_string_new ("");
for (list = stmt_list; list; list = list->next) {
sql = t_connection_render_pretty_sql (tconsole->priv->tcnc,
GDA_STATEMENT (list->data));
if (!sql)
sql = gda_statement_to_sql (GDA_STATEMENT (list->data), NULL, NULL);
if (list != stmt_list)
g_string_append (string, "\n\n");
g_string_append_printf (string, "%s;\n", sql);
g_free (sql);
}
g_object_unref (batch);
query_editor_set_text (tconsole->priv->editor, string->str);
g_string_free (string, TRUE);
}
}
/**
* gda_server_provider_perform_operation_default:
* @provider: a #GdaServerProvider object
* @cnc: (allow-none): a #GdaConnection object which will be used to perform an action, or %NULL
* @op: a #GdaServerOperation object
* @error: a place to store an error, or %NULL
*
* Performs the operation described by @op, using the SQL from the rendering of the operation
*
* Returns: %TRUE if no error occurred
*/
gboolean
gda_server_provider_perform_operation_default (GdaServerProvider *provider, GdaConnection *cnc,
GdaServerOperation *op, GError **error)
{
gchar *sql;
GdaBatch *batch;
const GSList *list;
gboolean retval = TRUE;
sql = gda_server_provider_render_operation (provider, cnc, op, error);
if (!sql)
return FALSE;
GdaSqlParser *parser;
parser = gda_server_provider_internal_get_parser (provider); /* no ref held! */
batch = gda_sql_parser_parse_string_as_batch (parser, sql, NULL, error);
g_free (sql);
if (!batch)
return FALSE;
for (list = gda_batch_get_statements (batch); list; list = list->next) {
if (gda_connection_statement_execute_non_select (cnc, GDA_STATEMENT (list->data), NULL, NULL, error) == -1) {
retval = FALSE;
break;
}
}
g_object_unref (batch);
return retval;
}
/**
* gda_batch_serialize:
* @batch: a #GdaBatch object
*
* Creates a string representing the contents of @batch.
*
* Returns: a string containing the serialized version of @batch
*/
gchar *
gda_batch_serialize (GdaBatch *batch)
{
GSList *list;
GString *string;
gchar *str;
g_return_val_if_fail (GDA_IS_BATCH (batch), NULL);
g_return_val_if_fail (batch->priv, NULL);
string = g_string_new ("{");
g_string_append (string, "\"statements\":");
if (batch->priv->statements) {
g_string_append_c (string, '[');
for (list = batch->priv->statements; list; list = list->next) {
str = gda_statement_serialize (GDA_STATEMENT (list->data));
if (list != batch->priv->statements)
g_string_append_c (string, ',');
g_string_append (string, str);
g_free (str);
}
g_string_append_c (string, ']');
}
else
g_string_append (string, "null");
g_string_append_c (string, '}');
str = string->str;
g_string_free (string, FALSE);
return str;
}
/**
* gda_batch_copy:
* @orig: a #GdaBatch to make a copy of
*
* Copy constructor
*
* Returns: (transfer full): a the new copy of @orig
*/
GdaBatch *
gda_batch_copy (GdaBatch *orig)
{
GObject *obj;
GdaBatch *batch;
GSList *list;
g_return_val_if_fail (GDA_IS_BATCH (orig), NULL);
g_return_val_if_fail (orig->priv, NULL);
obj = g_object_new (GDA_TYPE_BATCH, NULL);
batch = (GdaBatch *) obj;
for (list = orig->priv->statements; list; list = list->next) {
GdaStatement *copy;
copy = gda_statement_copy (GDA_STATEMENT (list->data));
batch->priv->statements = g_slist_prepend (batch->priv->statements, copy);
}
batch->priv->statements = g_slist_reverse (batch->priv->statements);
return batch;
}
/**
* gda_batch_get_parameters:
* @batch: a #GdaBatch object
* @out_params: (out) (transfer full) (allow-none): a place to store a new #GdaSet object, or %NULL
* @error: a place to store errors, or %NULL
*
* Get a new #GdaSet object which groups all the execution parameters
* which @batch needs for all the statements it includes.
* This new object is returned though @out_params.
*
* Note that if @batch does not need any parameter, then @out_params is set to %NULL.
*
* Returns: TRUE if no error occurred.
*/
gboolean
gda_batch_get_parameters (GdaBatch *batch, GdaSet **out_params, GError **error)
{
GdaSet *set = NULL;
GSList *list;
g_return_val_if_fail (GDA_IS_BATCH (batch), FALSE);
g_return_val_if_fail (batch->priv, FALSE);
if (out_params)
*out_params = NULL;
if (!batch->priv->statements)
return TRUE;
for (list = batch->priv->statements; list; list = list->next) {
GdaSet *tmpset = NULL;
if (!gda_statement_get_parameters (GDA_STATEMENT (list->data), out_params ? &tmpset : NULL, error)) {
if (tmpset)
g_object_unref (tmpset);
if (set)
g_object_unref (set);
return FALSE;
}
if (tmpset && tmpset->holders) {
if (!set) {
set = tmpset;
tmpset = NULL;
}
else {
/* merge @set and @tmp_set */
GSList *holders;
for (holders = tmpset->holders; holders; holders = holders->next) {
GdaHolder *holder = (GdaHolder *) holders->data;
if (! gda_set_add_holder (set, holder)) {
GdaHolder *eholder = gda_set_get_holder (set, gda_holder_get_id (holder));
if (!eholder ||
(gda_holder_get_g_type (eholder) != (gda_holder_get_g_type (holder)))) {
/* error */
g_set_error (error, GDA_BATCH_ERROR, GDA_BATCH_CONFLICTING_PARAMETER_ERROR,
_("Conflicting parameter '%s'"), gda_holder_get_id (holder));
g_object_unref (tmpset);
g_object_unref (set);
return FALSE;
}
}
}
}
}
if (tmpset)
g_object_unref (tmpset);
}
if (set) {
if (out_params)
*out_params = set;
else
g_object_unref (set);
}
return TRUE;
}
/**
* gda_tools_favorites_get_actions
* @bfav: a #ToolsFavorites
* @bcnc: a #BrowserConnection
* @set: a #GdaSet
*
* Get a list of #ToolsFavoriteAction which can be executed with the data in @set.
*
* Returns: a new list of #ToolsFavoriteAction, free list with gda_tools_favorites_free_actions()
*/
GSList *
gda_tools_favorites_get_actions (ToolsFavorites *bfav, BrowserConnection *bcnc, GdaSet *set)
{
GSList *fav_list, *list, *retlist = NULL;
g_return_val_if_fail (GDA_TOOLS_IS_FAVORITES (bfav), NULL);
g_return_val_if_fail (BROWSER_IS_CONNECTION (bcnc), NULL);
g_return_val_if_fail (!set || GDA_IS_SET (set), NULL);
fav_list = gda_tools_favorites_list (bfav, 0, GDA_TOOLS_FAVORITES_ACTIONS, -1, NULL);
if (! fav_list)
return NULL;
for (list = fav_list; list; list = list->next) {
ToolsFavoritesAttributes *fa = (ToolsFavoritesAttributes*) list->data;
ToolsFavoritesAttributes qfa;
if (! g_str_has_prefix (fa->contents, "QUERY")) {
g_warning ("Malformed action contents '%s', please report error to "
"http://bugzilla.gnome.org/ for the \"libgda\" product",
fa->contents);
continue;
}
if (gda_tools_favorites_get (bfav, atoi (fa->contents + 5), &qfa, NULL)) {
GdaSet *params;
GSList *plist;
GdaBatch *batch;
GdaStatement *stmt = NULL;
GdaSqlParser *parser;
const gchar *remain;
const GSList *stmt_list;
gint nb_bound = 0;
parser = browser_connection_create_parser (bcnc);
batch = gda_sql_parser_parse_string_as_batch (parser, qfa.contents, &remain, NULL);
g_object_unref (parser);
if (!batch) {
gda_tools_favorites_reset_attributes (&qfa);
continue;
}
stmt_list = gda_batch_get_statements (batch);
for (plist = (GSList*) stmt_list; plist; plist = plist->next) {
if (! gda_statement_is_useless (GDA_STATEMENT (plist->data))) {
if (stmt)
break;
else
stmt = g_object_ref (GDA_STATEMENT (plist->data));
}
}
g_object_unref (batch);
if (!stmt || plist) {
gda_tools_favorites_reset_attributes (&qfa);
continue;
}
if (! gda_statement_get_parameters (stmt, ¶ms, NULL) || !params) {
g_object_unref (stmt);
gda_tools_favorites_reset_attributes (&qfa);
continue;
}
browser_connection_define_ui_plugins_for_stmt (bcnc, stmt, params);
for (plist = params->holders; plist; plist = plist->next) {
/* try to find holder in @set */
GdaHolder *req_holder, *in_holder;
req_holder = GDA_HOLDER (plist->data);
in_holder = gda_set_get_holder (set, gda_holder_get_id (req_holder));
if (in_holder && gda_holder_set_bind (req_holder, in_holder, NULL)) {
/* bound this holder to the oune found */
nb_bound++;
}
}
if (nb_bound > 0) {
/* at least 1 holder was found=> keep the action */
ToolsFavoriteAction *act;
act = g_new0 (ToolsFavoriteAction, 1);
retlist = g_slist_insert_sorted (retlist, act,
(GCompareFunc) actions_sort_func);
act->params = g_object_ref (params);
act->id = fa->id;
act->name = g_strdup (fa->name);
act->stmt = g_object_ref (stmt);
act->nb_bound = nb_bound;
/*g_print ("Action identified: ID=%d Bound=%d name=[%s] SQL=[%s]\n",
act->id, act->nb_bound,
act->name, qfa.contents);*/
}
g_object_unref (stmt);
g_object_unref (params);
gda_tools_favorites_reset_attributes (&qfa);
}
}
gda_tools_favorites_free_list (fav_list);
return retlist;
}
static void
actually_execute (QueryConsolePage *tconsole, const gchar *sql, GdaSet *params,
gboolean add_editor_history)
{
GdaBatch *batch;
GError *error = NULL;
const gchar *remain;
/* if a query is being executed, then show an error */
if (tconsole->priv->currently_executing) {
ui_show_error (GTK_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
_("A query is already being executed, "
"to execute another query, open a new connection."));
return;
}
tconsole->priv->currently_executing = TRUE;
if (!tconsole->priv->parser)
tconsole->priv->parser = t_connection_create_parser (tconsole->priv->tcnc);
batch = gda_sql_parser_parse_string_as_batch (tconsole->priv->parser, sql, &remain, &error);
if (!batch) {
ui_show_error (GTK_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
_("Error while parsing code: %s"),
error && error->message ? error->message : _("No detail"));
g_clear_error (&error);
return;
}
if (add_editor_history) {
/* mark the current SQL to be kept by the editor as an internal history */
query_editor_keep_current_state (tconsole->priv->editor);
}
/* actual Execution */
const GSList *stmt_list, *list;
GTimeVal start_time;
g_get_current_time (&start_time);
QueryEditorHistoryBatch *hist_batch;
hist_batch = query_editor_history_batch_new (start_time, params);
query_editor_start_history_batch (tconsole->priv->history, hist_batch);
query_editor_history_batch_unref (hist_batch);
gboolean within_transaction;
stmt_list = gda_batch_get_statements (batch);
for (list = stmt_list; list; list = list->next) {
GdaStatement *stmt;
GObject *result;
GError *lerror = NULL;
within_transaction = t_connection_get_transaction_status (tconsole->priv->tcnc) ? TRUE : FALSE;
stmt = GDA_STATEMENT (list->data);
result = t_connection_execute_statement (tconsole->priv->tcnc, stmt, params,
GDA_STATEMENT_MODEL_RANDOM_ACCESS,
NULL, &lerror);
if (result) {
QueryEditorHistoryItem *history;
GdaSqlStatement *sqlst;
g_object_get (G_OBJECT (stmt), "structure", &sqlst, NULL);
if (!sqlst->sql) {
gchar *sql;
sql = gda_statement_to_sql (stmt, NULL, NULL);
history = query_editor_history_item_new (sql, result, lerror);
g_free (sql);
}
else
history = query_editor_history_item_new (sqlst->sql, result, lerror);
g_object_unref (result);
gda_sql_statement_free (sqlst);
history->within_transaction = within_transaction;
/* display a message if a transaction has been started */
if (! history->within_transaction &&
t_connection_get_transaction_status (tconsole->priv->tcnc) &&
gda_statement_get_statement_type (stmt) != GDA_SQL_STATEMENT_BEGIN) {
browser_window_show_notice_printf (BROWSER_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
GTK_MESSAGE_INFO,
"QueryExecTransactionStarted",
"%s", _("A transaction has automatically been started\n"
"during this statement's execution, this usually\n"
"happens when blobs are selected (and the transaction\n"
"will have to remain opened while the blobs are still\n"
"accessible, clear the corresponding history item before\n"
"closing the transaction)."));
}
query_editor_add_history_item (tconsole->priv->history, history);
query_editor_history_item_unref (history);
browser_window_push_status (BROWSER_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
"QueryConsolePage", _("Statement executed"), TRUE);
}
else {
ui_show_error (GTK_WINDOW (gtk_widget_get_toplevel ((GtkWidget*) tconsole)),
_("Error executing query:\n%s"),
lerror && lerror->message ? lerror->message : _("No detail"));
g_clear_error (&lerror);
break;
}
}
g_object_unref (batch);
tconsole->priv->currently_executing = FALSE;
}
