2 * Copyright © 2010 Codethink Limited
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General
15 * Public License along with this library; if not, write to the
16 * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
17 * Boston, MA 02111-1307, USA.
19 * Authors: Ryan Lortie <desrt@desrt.ca>
24 #include "gapplicationimpl.h"
26 #include "gactiongroup.h"
27 #include "gactiongroupexporter.h"
28 #include "gremoteactiongroup.h"
29 #include "gdbusactiongroup-private.h"
30 #include "gapplication.h"
32 #include "gdbusconnection.h"
33 #include "gdbusintrospection.h"
34 #include "gdbuserror.h"
35 #include "glib/gstdio.h"
40 #include "gapplicationcommandline.h"
41 #include "gdbusmethodinvocation.h"
44 #include "gunixinputstream.h"
45 #include "gunixfdlist.h"
48 /* DBus Interface definition {{{1 */
50 /* For documentation of these interfaces, see
51 * https://live.gnome.org/GApplication/DBusAPI
53 static const gchar org_gtk_Application_xml[] =
55 "<interface name='org.gtk.Application'>"
56 "<method name='Activate'>"
57 "<arg type='a{sv}' name='platform-data' direction='in'/>"
59 "<method name='Open'>"
60 "<arg type='as' name='uris' direction='in'/>"
61 "<arg type='s' name='hint' direction='in'/>"
62 "<arg type='a{sv}' name='platform-data' direction='in'/>"
64 "<method name='CommandLine'>"
65 "<arg type='o' name='path' direction='in'/>"
66 "<arg type='aay' name='arguments' direction='in'/>"
67 "<arg type='a{sv}' name='platform-data' direction='in'/>"
68 "<arg type='i' name='exit-status' direction='out'/>"
70 "<property name='Busy' type='b' access='read'/>"
74 static GDBusInterfaceInfo *org_gtk_Application;
76 static const gchar org_freedesktop_Application_xml[] =
78 "<interface name='org.freedesktop.Application'>"
79 "<method name='Activate'>"
80 "<arg type='a{sv}' name='platform-data' direction='in'/>"
82 "<method name='Open'>"
83 "<arg type='as' name='uris' direction='in'/>"
84 "<arg type='a{sv}' name='platform-data' direction='in'/>"
86 "<method name='ActivateAction'>"
87 "<arg type='s' name='action-name' direction='in'/>"
88 "<arg type='av' name='parameter' direction='in'/>"
89 "<arg type='a{sv}' name='platform-data' direction='in'/>"
94 static GDBusInterfaceInfo *org_freedesktop_Application;
96 static const gchar org_gtk_private_CommandLine_xml[] =
98 "<interface name='org.gtk.private.CommandLine'>"
99 "<method name='Print'>"
100 "<arg type='s' name='message' direction='in'/>"
102 "<method name='PrintError'>"
103 "<arg type='s' name='message' direction='in'/>"
108 static GDBusInterfaceInfo *org_gtk_private_CommandLine;
110 /* GApplication implementation {{{1 */
111 struct _GApplicationImpl
113 GDBusConnection *session_bus;
114 GActionGroup *exported_actions;
115 const gchar *bus_name;
122 gboolean properties_live;
129 static GApplicationCommandLine *
130 g_dbus_command_line_new (GDBusMethodInvocation *invocation);
133 g_application_impl_get_property (GDBusConnection *connection,
135 const gchar *object_path,
136 const gchar *interface_name,
137 const gchar *property_name,
141 GApplicationImpl *impl = user_data;
143 if (strcmp (property_name, "Busy") == 0)
144 return g_variant_new_boolean (impl->busy);
146 g_assert_not_reached ();
152 send_property_change (GApplicationImpl *impl)
154 GVariantBuilder builder;
156 g_variant_builder_init (&builder, G_VARIANT_TYPE_ARRAY);
157 g_variant_builder_add (&builder,
159 "Busy", g_variant_new_boolean (impl->busy));
161 g_dbus_connection_emit_signal (impl->session_bus,
164 "org.freedesktop.DBus.Properties",
166 g_variant_new ("(sa{sv}as)",
167 "org.gtk.Application",
174 g_application_impl_method_call (GDBusConnection *connection,
176 const gchar *object_path,
177 const gchar *interface_name,
178 const gchar *method_name,
179 GVariant *parameters,
180 GDBusMethodInvocation *invocation,
183 GApplicationImpl *impl = user_data;
184 GApplicationClass *class;
186 class = G_APPLICATION_GET_CLASS (impl->app);
188 if (strcmp (method_name, "Activate") == 0)
190 GVariant *platform_data;
192 /* Completely the same for both freedesktop and gtk interfaces */
194 g_variant_get (parameters, "(@a{sv})", &platform_data);
196 class->before_emit (impl->app, platform_data);
197 g_signal_emit_by_name (impl->app, "activate");
198 class->after_emit (impl->app, platform_data);
199 g_variant_unref (platform_data);
201 g_dbus_method_invocation_return_value (invocation, NULL);
204 else if (strcmp (method_name, "Open") == 0)
206 GVariant *platform_data;
212 /* freedesktop interface has no hint parameter */
213 if (g_str_equal (interface_name, "org.freedesktop.Application"))
215 g_variant_get (parameters, "(@as@a{sv})", &array, &platform_data);
219 g_variant_get (parameters, "(@as&s@a{sv})", &array, &hint, &platform_data);
221 n = g_variant_n_children (array);
222 files = g_new (GFile *, n + 1);
224 for (i = 0; i < n; i++)
228 g_variant_get_child (array, i, "&s", &uri);
229 files[i] = g_file_new_for_uri (uri);
231 g_variant_unref (array);
234 class->before_emit (impl->app, platform_data);
235 g_signal_emit_by_name (impl->app, "open", files, n, hint);
236 class->after_emit (impl->app, platform_data);
238 g_variant_unref (platform_data);
240 for (i = 0; i < n; i++)
241 g_object_unref (files[i]);
244 g_dbus_method_invocation_return_value (invocation, NULL);
247 else if (strcmp (method_name, "CommandLine") == 0)
249 GApplicationCommandLine *cmdline;
250 GVariant *platform_data;
253 /* Only on the GtkApplication interface */
255 cmdline = g_dbus_command_line_new (invocation);
256 platform_data = g_variant_get_child_value (parameters, 2);
257 class->before_emit (impl->app, platform_data);
258 g_signal_emit_by_name (impl->app, "command-line", cmdline, &status);
259 g_application_command_line_set_exit_status (cmdline, status);
260 class->after_emit (impl->app, platform_data);
261 g_variant_unref (platform_data);
262 g_object_unref (cmdline);
264 else if (g_str_equal (method_name, "ActivateAction"))
266 GVariant *parameter = NULL;
267 GVariant *platform_data;
271 /* Only on the freedesktop interface */
273 g_variant_get (parameters, "(&sav@a{sv})", &name, &iter, &platform_data);
274 g_variant_iter_next (iter, "v", ¶meter);
275 g_variant_iter_free (iter);
277 class->before_emit (impl->app, platform_data);
278 g_action_group_activate_action (impl->exported_actions, name, parameter);
279 class->after_emit (impl->app, platform_data);
282 g_variant_unref (parameter);
284 g_variant_unref (platform_data);
286 g_dbus_method_invocation_return_value (invocation, NULL);
289 g_assert_not_reached ();
293 application_path_from_appid (const gchar *appid)
295 gchar *appid_path, *iter;
298 /* this is a private implementation detail */
299 return g_strdup ("/org/gtk/Application/anonymous");
301 appid_path = g_strconcat ("/", appid, NULL);
302 for (iter = appid_path; *iter; iter++)
314 /* Attempt to become the primary instance.
316 * Returns %TRUE if everything went OK, regardless of if we became the
317 * primary instance or not. %FALSE is reserved for when something went
318 * seriously wrong (and @error will be set too, in that case).
320 * After a %TRUE return, impl->primary will be TRUE if we were
324 g_application_impl_attempt_primary (GApplicationImpl *impl,
325 GCancellable *cancellable,
328 const static GDBusInterfaceVTable vtable = {
329 g_application_impl_method_call,
330 g_application_impl_get_property,
331 NULL /* set_property */
333 GApplicationClass *app_class = G_APPLICATION_GET_CLASS (impl->app);
337 if (org_gtk_Application == NULL)
339 GError *error = NULL;
342 info = g_dbus_node_info_new_for_xml (org_gtk_Application_xml, &error);
343 if G_UNLIKELY (info == NULL)
344 g_error ("%s", error->message);
345 org_gtk_Application = g_dbus_node_info_lookup_interface (info, "org.gtk.Application");
346 g_assert (org_gtk_Application != NULL);
347 g_dbus_interface_info_ref (org_gtk_Application);
348 g_dbus_node_info_unref (info);
350 info = g_dbus_node_info_new_for_xml (org_freedesktop_Application_xml, &error);
351 if G_UNLIKELY (info == NULL)
352 g_error ("%s", error->message);
353 org_freedesktop_Application = g_dbus_node_info_lookup_interface (info, "org.freedesktop.Application");
354 g_assert (org_freedesktop_Application != NULL);
355 g_dbus_interface_info_ref (org_freedesktop_Application);
356 g_dbus_node_info_unref (info);
359 /* We could possibly have been D-Bus activated as a result of incoming
360 * requests on either the application or actiongroup interfaces.
361 * Because of how GDBus dispatches messages, we need to ensure that
362 * both of those things are registered before we attempt to request
365 * The action group need not be populated yet, as long as it happens
366 * before we return to the mainloop. The reason for that is because
367 * GDBus does the check to make sure the object exists from the worker
368 * thread but doesn't actually dispatch the action invocation until we
369 * hit the mainloop in this thread. There is also no danger of
370 * receiving 'activate' or 'open' signals until after 'startup' runs,
371 * for the same reason.
373 impl->object_id = g_dbus_connection_register_object (impl->session_bus, impl->object_path,
374 org_gtk_Application, &vtable, impl, NULL, error);
376 if (impl->object_id == 0)
379 impl->fdo_object_id = g_dbus_connection_register_object (impl->session_bus, impl->object_path,
380 org_freedesktop_Application, &vtable, impl, NULL, error);
382 if (impl->fdo_object_id == 0)
385 impl->actions_id = g_dbus_connection_export_action_group (impl->session_bus, impl->object_path,
386 impl->exported_actions, error);
388 if (impl->actions_id == 0)
391 if (!app_class->dbus_register (impl->app,
397 if (impl->bus_name == NULL)
399 /* If this is a non-unique application then it is sufficient to
400 * have our object paths registered. We can return now.
402 * Note: non-unique applications always act as primary-instance.
404 impl->primary = TRUE;
408 /* If this is a unique application then we need to attempt to own
409 * the well-known name and fall back to remote mode (!is_primary)
410 * in the case that we can't do that.
412 /* DBUS_NAME_FLAG_DO_NOT_QUEUE: 0x4 */
413 reply = g_dbus_connection_call_sync (impl->session_bus, "org.freedesktop.DBus", "/org/freedesktop/DBus",
414 "org.freedesktop.DBus", "RequestName",
415 g_variant_new ("(su)", impl->bus_name, 0x4), G_VARIANT_TYPE ("(u)"),
416 0, -1, cancellable, error);
421 g_variant_get (reply, "(u)", &rval);
422 g_variant_unref (reply);
424 /* DBUS_REQUEST_NAME_REPLY_EXISTS: 3 */
425 impl->primary = (rval != 3);
430 /* Stop doing the things that the primary instance does.
432 * This should be called if attempting to become the primary instance
433 * failed (in order to clean up any partial success) and should also
434 * be called when freeing the GApplication.
436 * It is safe to call this multiple times.
439 g_application_impl_stop_primary (GApplicationImpl *impl)
441 GApplicationClass *app_class = G_APPLICATION_GET_CLASS (impl->app);
443 app_class->dbus_unregister (impl->app,
449 g_dbus_connection_unregister_object (impl->session_bus, impl->object_id);
453 if (impl->fdo_object_id)
455 g_dbus_connection_unregister_object (impl->session_bus, impl->fdo_object_id);
456 impl->fdo_object_id = 0;
459 if (impl->actions_id)
461 g_dbus_connection_unexport_action_group (impl->session_bus, impl->actions_id);
462 impl->actions_id = 0;
465 if (impl->primary && impl->bus_name)
467 g_dbus_connection_call (impl->session_bus, "org.freedesktop.DBus",
468 "/org/freedesktop/DBus", "org.freedesktop.DBus",
469 "ReleaseName", g_variant_new ("(s)", impl->bus_name),
470 NULL, G_DBUS_CALL_FLAGS_NONE, -1, NULL, NULL, NULL);
471 impl->primary = FALSE;
476 g_application_impl_set_busy_state (GApplicationImpl *impl,
479 if (impl->busy != busy)
482 send_property_change (impl);
487 g_application_impl_destroy (GApplicationImpl *impl)
489 g_application_impl_stop_primary (impl);
491 if (impl->session_bus)
492 g_object_unref (impl->session_bus);
494 g_free (impl->object_path);
496 g_slice_free (GApplicationImpl, impl);
500 g_application_impl_register (GApplication *application,
502 GApplicationFlags flags,
503 GActionGroup *exported_actions,
504 GRemoteActionGroup **remote_actions,
505 GCancellable *cancellable,
508 GDBusActionGroup *actions;
509 GApplicationImpl *impl;
511 g_assert ((flags & G_APPLICATION_NON_UNIQUE) || appid != NULL);
513 impl = g_slice_new0 (GApplicationImpl);
515 impl->app = application;
516 impl->exported_actions = exported_actions;
518 /* non-unique applications do not attempt to acquire a bus name */
519 if (~flags & G_APPLICATION_NON_UNIQUE)
520 impl->bus_name = appid;
522 impl->session_bus = g_bus_get_sync (G_BUS_TYPE_SESSION, cancellable, NULL);
524 if (impl->session_bus == NULL)
526 /* If we can't connect to the session bus, proceed as a normal
527 * non-unique application.
529 *remote_actions = NULL;
533 impl->object_path = application_path_from_appid (appid);
535 /* Only try to be the primary instance if
536 * G_APPLICATION_IS_LAUNCHER was not specified.
538 if (~flags & G_APPLICATION_IS_LAUNCHER)
540 if (!g_application_impl_attempt_primary (impl, cancellable, error))
542 g_application_impl_destroy (impl);
549 /* We didn't make it. Drop our service-side stuff. */
550 g_application_impl_stop_primary (impl);
552 if (flags & G_APPLICATION_IS_SERVICE)
554 g_set_error (error, G_DBUS_ERROR, G_DBUS_ERROR_FAILED,
555 "Unable to acquire bus name '%s'", appid);
556 g_application_impl_destroy (impl);
562 /* We are non-primary. Try to get the primary's list of actions.
563 * This also serves as a mechanism to ensure that the primary exists
564 * (ie: DBus service files installed correctly, etc).
566 actions = g_dbus_action_group_get (impl->session_bus, impl->bus_name, impl->object_path);
567 if (!g_dbus_action_group_sync (actions, cancellable, error))
569 /* The primary appears not to exist. Fail the registration. */
570 g_application_impl_destroy (impl);
571 g_object_unref (actions);
576 *remote_actions = G_REMOTE_ACTION_GROUP (actions);
582 g_application_impl_activate (GApplicationImpl *impl,
583 GVariant *platform_data)
585 g_dbus_connection_call (impl->session_bus,
588 "org.gtk.Application",
590 g_variant_new ("(@a{sv})", platform_data),
591 NULL, 0, -1, NULL, NULL, NULL);
595 g_application_impl_open (GApplicationImpl *impl,
599 GVariant *platform_data)
601 GVariantBuilder builder;
604 g_variant_builder_init (&builder, G_VARIANT_TYPE ("(assa{sv})"));
605 g_variant_builder_open (&builder, G_VARIANT_TYPE_STRING_ARRAY);
606 for (i = 0; i < n_files; i++)
608 gchar *uri = g_file_get_uri (files[i]);
609 g_variant_builder_add (&builder, "s", uri);
612 g_variant_builder_close (&builder);
613 g_variant_builder_add (&builder, "s", hint);
614 g_variant_builder_add_value (&builder, platform_data);
616 g_dbus_connection_call (impl->session_bus,
619 "org.gtk.Application",
621 g_variant_builder_end (&builder),
622 NULL, 0, -1, NULL, NULL, NULL);
626 g_application_impl_cmdline_method_call (GDBusConnection *connection,
628 const gchar *object_path,
629 const gchar *interface_name,
630 const gchar *method_name,
631 GVariant *parameters,
632 GDBusMethodInvocation *invocation,
635 const gchar *message;
637 g_variant_get_child (parameters, 0, "&s", &message);
639 if (strcmp (method_name, "Print") == 0)
640 g_print ("%s", message);
641 else if (strcmp (method_name, "PrintError") == 0)
642 g_printerr ("%s", message);
644 g_assert_not_reached ();
646 g_dbus_method_invocation_return_value (invocation, NULL);
656 g_application_impl_cmdline_done (GObject *source,
657 GAsyncResult *result,
660 CommandLineData *data = user_data;
661 GError *error = NULL;
665 reply = g_dbus_connection_call_with_unix_fd_list_finish (G_DBUS_CONNECTION (source), NULL, result, &error);
667 reply = g_dbus_connection_call_finish (G_DBUS_CONNECTION (source), result, &error);
673 g_variant_get (reply, "(i)", &data->status);
674 g_variant_unref (reply);
679 g_printerr ("%s\n", error->message);
680 g_error_free (error);
684 g_main_loop_quit (data->loop);
688 g_application_impl_command_line (GApplicationImpl *impl,
690 GVariant *platform_data)
692 const static GDBusInterfaceVTable vtable = {
693 g_application_impl_cmdline_method_call
695 const gchar *object_path = "/org/gtk/Application/CommandLine";
696 GMainContext *context;
697 CommandLineData data;
700 context = g_main_context_new ();
701 data.loop = g_main_loop_new (context, FALSE);
702 g_main_context_push_thread_default (context);
704 if (org_gtk_private_CommandLine == NULL)
706 GError *error = NULL;
709 info = g_dbus_node_info_new_for_xml (org_gtk_private_CommandLine_xml, &error);
710 if G_UNLIKELY (info == NULL)
711 g_error ("%s", error->message);
712 org_gtk_private_CommandLine = g_dbus_node_info_lookup_interface (info, "org.gtk.private.CommandLine");
713 g_assert (org_gtk_private_CommandLine != NULL);
714 g_dbus_interface_info_ref (org_gtk_private_CommandLine);
715 g_dbus_node_info_unref (info);
718 object_id = g_dbus_connection_register_object (impl->session_bus, object_path,
719 org_gtk_private_CommandLine,
720 &vtable, &data, NULL, NULL);
721 /* In theory we should try other paths... */
722 g_assert (object_id != 0);
726 GError *error = NULL;
727 GUnixFDList *fd_list;
729 /* send along the stdin in case
730 * g_application_command_line_get_stdin_data() is called
732 fd_list = g_unix_fd_list_new ();
733 g_unix_fd_list_append (fd_list, 0, &error);
734 g_assert_no_error (error);
736 g_dbus_connection_call_with_unix_fd_list (impl->session_bus, impl->bus_name, impl->object_path,
737 "org.gtk.Application", "CommandLine",
738 g_variant_new ("(o^aay@a{sv})", object_path, arguments, platform_data),
739 G_VARIANT_TYPE ("(i)"), 0, G_MAXINT, fd_list, NULL,
740 g_application_impl_cmdline_done, &data);
743 g_dbus_connection_call (impl->session_bus, impl->bus_name, impl->object_path,
744 "org.gtk.Application", "CommandLine",
745 g_variant_new ("(o^aay@a{sv})", object_path, arguments, platform_data),
746 G_VARIANT_TYPE ("(i)"), 0, G_MAXINT, NULL,
747 g_application_impl_cmdline_done, &data);
750 g_main_loop_run (data.loop);
752 g_main_context_pop_thread_default (context);
753 g_main_context_unref (context);
754 g_main_loop_unref (data.loop);
760 g_application_impl_flush (GApplicationImpl *impl)
762 if (impl->session_bus)
763 g_dbus_connection_flush_sync (impl->session_bus, NULL, NULL);
767 g_application_impl_get_dbus_connection (GApplicationImpl *impl)
769 return impl->session_bus;
773 g_application_impl_get_dbus_object_path (GApplicationImpl *impl)
775 return impl->object_path;
778 /* GDBusCommandLine implementation {{{1 */
780 typedef GApplicationCommandLineClass GDBusCommandLineClass;
781 static GType g_dbus_command_line_get_type (void);
784 GApplicationCommandLine parent_instance;
785 GDBusMethodInvocation *invocation;
787 GDBusConnection *connection;
788 const gchar *bus_name;
789 const gchar *object_path;
793 G_DEFINE_TYPE (GDBusCommandLine,
795 G_TYPE_APPLICATION_COMMAND_LINE)
798 g_dbus_command_line_print_literal (GApplicationCommandLine *cmdline,
799 const gchar *message)
801 GDBusCommandLine *gdbcl = (GDBusCommandLine *) cmdline;
803 g_dbus_connection_call (gdbcl->connection,
806 "org.gtk.private.CommandLine", "Print",
807 g_variant_new ("(s)", message),
808 NULL, 0, -1, NULL, NULL, NULL);
812 g_dbus_command_line_printerr_literal (GApplicationCommandLine *cmdline,
813 const gchar *message)
815 GDBusCommandLine *gdbcl = (GDBusCommandLine *) cmdline;
817 g_dbus_connection_call (gdbcl->connection,
820 "org.gtk.private.CommandLine", "PrintError",
821 g_variant_new ("(s)", message),
822 NULL, 0, -1, NULL, NULL, NULL);
825 static GInputStream *
826 g_dbus_command_line_get_stdin (GApplicationCommandLine *cmdline)
829 GDBusCommandLine *gdbcl = (GDBusCommandLine *) cmdline;
830 GInputStream *result = NULL;
831 GDBusMessage *message;
832 GUnixFDList *fd_list;
834 message = g_dbus_method_invocation_get_message (gdbcl->invocation);
835 fd_list = g_dbus_message_get_unix_fd_list (message);
837 if (fd_list && g_unix_fd_list_get_length (fd_list))
841 fds = g_unix_fd_list_steal_fds (fd_list, &n_fds);
842 result = g_unix_input_stream_new (fds[0], TRUE);
843 for (i = 1; i < n_fds; i++)
844 (void) g_close (fds[i], NULL);
855 g_dbus_command_line_finalize (GObject *object)
857 GApplicationCommandLine *cmdline = G_APPLICATION_COMMAND_LINE (object);
858 GDBusCommandLine *gdbcl = (GDBusCommandLine *) object;
861 status = g_application_command_line_get_exit_status (cmdline);
863 g_dbus_method_invocation_return_value (gdbcl->invocation,
864 g_variant_new ("(i)", status));
865 g_object_unref (gdbcl->invocation);
867 G_OBJECT_CLASS (g_dbus_command_line_parent_class)
872 g_dbus_command_line_init (GDBusCommandLine *gdbcl)
877 g_dbus_command_line_class_init (GApplicationCommandLineClass *class)
879 GObjectClass *object_class = G_OBJECT_CLASS (class);
881 object_class->finalize = g_dbus_command_line_finalize;
882 class->printerr_literal = g_dbus_command_line_printerr_literal;
883 class->print_literal = g_dbus_command_line_print_literal;
884 class->get_stdin = g_dbus_command_line_get_stdin;
887 static GApplicationCommandLine *
888 g_dbus_command_line_new (GDBusMethodInvocation *invocation)
890 GDBusCommandLine *gdbcl;
892 GVariant *arguments, *platform_data;
894 args = g_dbus_method_invocation_get_parameters (invocation);
896 arguments = g_variant_get_child_value (args, 1);
897 platform_data = g_variant_get_child_value (args, 2);
898 gdbcl = g_object_new (g_dbus_command_line_get_type (),
899 "arguments", arguments,
900 "platform-data", platform_data,
902 g_variant_unref (arguments);
903 g_variant_unref (platform_data);
905 gdbcl->connection = g_dbus_method_invocation_get_connection (invocation);
906 gdbcl->bus_name = g_dbus_method_invocation_get_sender (invocation);
907 g_variant_get_child (args, 0, "&o", &gdbcl->object_path);
908 gdbcl->invocation = g_object_ref (invocation);
910 return G_APPLICATION_COMMAND_LINE (gdbcl);
915 /* vim:set foldmethod=marker: */