* Modified by the GLib Team and others 1997-2000. See the AUTHORS
* file for a list of people on the GLib Team. See the ChangeLog
* files for a list of changes. These files are distributed with
- * GLib at ftp://ftp.gtk.org/pub/gtk/.
+ * GLib at ftp://ftp.gtk.org/pub/gtk/.
*/
-/*
+/*
* MT safe
*/
#include "config.h"
+#include "glibconfig.h"
-/* Uncomment the next line to enable debugging printouts if the
- * environment variable G_MAIN_POLL_DEBUG is set to some value.
+/* Uncomment the next line (and the corresponding line in gpoll.c) to
+ * enable debugging printouts if the environment variable
+ * G_MAIN_POLL_DEBUG is set to some value.
*/
/* #define G_MAIN_POLL_DEBUG */
#define G_MAIN_POLL_DEBUG
#endif
-#include "glib.h"
-#include "gthreadprivate.h"
+#ifdef G_OS_UNIX
+#include "glib-unix.h"
+#include <pthread.h>
+#ifdef HAVE_EVENTFD
+#include <sys/eventfd.h>
+#endif
+#endif
+
#include <signal.h>
#include <sys/types.h>
#include <time.h>
#ifdef HAVE_SYS_TIME_H
#include <sys/time.h>
#endif /* HAVE_SYS_TIME_H */
-#ifdef GLIB_HAVE_SYS_POLL_H
-# include <sys/poll.h>
-# undef events /* AIX 4.1.5 & 4.3.2 define this for SVR3,4 compatibility */
-# undef revents /* AIX 4.1.5 & 4.3.2 define this for SVR3,4 compatibility */
-
-/* The poll() emulation on OS/X doesn't handle fds=NULL, nfds=0,
- * so we prefer our own poll emulation.
- */
-#if defined(_POLL_EMUL_H_) || defined(BROKEN_POLL)
-#undef HAVE_POLL
-#endif
-
-#endif /* GLIB_HAVE_SYS_POLL_H */
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif /* HAVE_UNISTD_H */
#include <errno.h>
+#include <string.h>
#ifdef G_OS_WIN32
#define STRICT
#include <sys/wait.h>
#endif /* G_OS_BEOS */
-#ifdef G_OS_UNIX
-#include <fcntl.h>
-#include <sys/wait.h>
-#endif
+#include "gmain.h"
-#include "galias.h"
+#include "garray.h"
+#include "giochannel.h"
+#include "ghash.h"
+#include "ghook.h"
+#include "gqueue.h"
+#include "gstrfuncs.h"
+#include "gtestutils.h"
+#include "gthreadprivate.h"
#ifdef G_OS_WIN32
-#ifdef _WIN64
-#define GPOLLFD_FORMAT "%#I64x"
-#else
-#define GPOLLFD_FORMAT "%#x"
+#include "gwin32.h"
#endif
-#else
-#define GPOLLFD_FORMAT "%d"
+
+#ifdef G_MAIN_POLL_DEBUG
+#include "gtimer.h"
#endif
+#include "gwakeup.h"
+
+#include "glib-private.h"
+
+/**
+ * SECTION:main
+ * @title: The Main Event Loop
+ * @short_description: manages all available sources of events
+ *
+ * The main event loop manages all the available sources of events for
+ * GLib and GTK+ applications. These events can come from any number of
+ * different types of sources such as file descriptors (plain files,
+ * pipes or sockets) and timeouts. New types of event sources can also
+ * be added using g_source_attach().
+ *
+ * To allow multiple independent sets of sources to be handled in
+ * different threads, each source is associated with a #GMainContext.
+ * A GMainContext can only be running in a single thread, but
+ * sources can be added to it and removed from it from other threads.
+ *
+ * Each event source is assigned a priority. The default priority,
+ * #G_PRIORITY_DEFAULT, is 0. Values less than 0 denote higher priorities.
+ * Values greater than 0 denote lower priorities. Events from high priority
+ * sources are always processed before events from lower priority sources.
+ *
+ * Idle functions can also be added, and assigned a priority. These will
+ * be run whenever no events with a higher priority are ready to be processed.
+ *
+ * The #GMainLoop data type represents a main event loop. A GMainLoop is
+ * created with g_main_loop_new(). After adding the initial event sources,
+ * g_main_loop_run() is called. This continuously checks for new events from
+ * each of the event sources and dispatches them. Finally, the processing of
+ * an event from one of the sources leads to a call to g_main_loop_quit() to
+ * exit the main loop, and g_main_loop_run() returns.
+ *
+ * It is possible to create new instances of #GMainLoop recursively.
+ * This is often used in GTK+ applications when showing modal dialog
+ * boxes. Note that event sources are associated with a particular
+ * #GMainContext, and will be checked and dispatched for all main
+ * loops associated with that GMainContext.
+ *
+ * GTK+ contains wrappers of some of these functions, e.g. gtk_main(),
+ * gtk_main_quit() and gtk_events_pending().
+ *
+ * <refsect2><title>Creating new source types</title>
+ * <para>One of the unusual features of the #GMainLoop functionality
+ * is that new types of event source can be created and used in
+ * addition to the builtin type of event source. A new event source
+ * type is used for handling GDK events. A new source type is created
+ * by <firstterm>deriving</firstterm> from the #GSource structure.
+ * The derived type of source is represented by a structure that has
+ * the #GSource structure as a first element, and other elements specific
+ * to the new source type. To create an instance of the new source type,
+ * call g_source_new() passing in the size of the derived structure and
+ * a table of functions. These #GSourceFuncs determine the behavior of
+ * the new source type.</para>
+ * <para>New source types basically interact with the main context
+ * in two ways. Their prepare function in #GSourceFuncs can set a timeout
+ * to determine the maximum amount of time that the main loop will sleep
+ * before checking the source again. In addition, or as well, the source
+ * can add file descriptors to the set that the main context checks using
+ * g_source_add_poll().</para>
+ * </refsect2>
+ * <refsect2><title>Customizing the main loop iteration</title>
+ * <para>Single iterations of a #GMainContext can be run with
+ * g_main_context_iteration(). In some cases, more detailed control
+ * of exactly how the details of the main loop work is desired, for
+ * instance, when integrating the #GMainLoop with an external main loop.
+ * In such cases, you can call the component functions of
+ * g_main_context_iteration() directly. These functions are
+ * g_main_context_prepare(), g_main_context_query(),
+ * g_main_context_check() and g_main_context_dispatch().</para>
+ * <para>The operation of these functions can best be seen in terms
+ * of a state diagram, as shown in <xref linkend="mainloop-states"/>.</para>
+ * <figure id="mainloop-states"><title>States of a Main Context</title>
+ * <graphic fileref="mainloop-states.gif" format="GIF"></graphic>
+ * </figure>
+ * </refsect2>
+ *
+ * On Unix, the GLib mainloop is incompatible with fork(). Any program
+ * using the mainloop must either exec() or exit() from the child
+ * without returning to the mainloop.
+ */
+
/* Types */
typedef struct _GTimeoutSource GTimeoutSource;
typedef struct _GChildWatchSource GChildWatchSource;
+typedef struct _GUnixSignalWatchSource GUnixSignalWatchSource;
typedef struct _GPollRec GPollRec;
typedef struct _GSourceCallback GSourceCallback;
G_SOURCE_CAN_RECURSE = 1 << (G_HOOK_FLAG_USER_SHIFT + 1)
} GSourceFlags;
-#ifdef G_THREADS_ENABLED
typedef struct _GMainWaiter GMainWaiter;
struct _GMainWaiter
GCond *cond;
GMutex *mutex;
};
-#endif
typedef struct _GMainDispatch GMainDispatch;
};
#ifdef G_MAIN_POLL_DEBUG
-static gboolean g_main_poll_debug = FALSE;
+gboolean _g_main_poll_debug = FALSE;
#endif
struct _GMainContext
{
-#ifdef G_THREADS_ENABLED
/* The following lock is used for both the list of sources
* and the list of poll records
*/
- GStaticMutex mutex;
+ GMutex mutex;
GCond *cond;
GThread *owner;
guint owner_count;
GSList *waiters;
-#endif
gint ref_count;
GSource *source_list;
gint in_check_or_prepare;
- GPollRec *poll_records;
+ GPollRec *poll_records, *poll_records_tail;
guint n_poll_records;
GPollFD *cached_poll_array;
guint cached_poll_array_size;
-#ifdef G_THREADS_ENABLED
-#ifndef G_OS_WIN32
-/* this pipe is used to wake up the main loop when a source is added.
- */
- gint wake_up_pipe[2];
-#else /* G_OS_WIN32 */
- HANDLE wake_up_semaphore;
-#endif /* G_OS_WIN32 */
+ GWakeup *wakeup;
GPollFD wake_up_rec;
- gboolean poll_waiting;
/* Flag indicating whether the set of fd's changed during a poll */
gboolean poll_changed;
-#endif /* G_THREADS_ENABLED */
GPollFunc poll_func;
- GTimeVal current_time;
- gboolean time_is_current;
+ gint64 time;
+ gboolean time_is_fresh;
};
struct _GSourceCallback
struct _GTimeoutSource
{
GSource source;
- GTimeVal expiration;
+ gint64 expiration;
guint interval;
- guint granularity;
+ gboolean seconds;
};
struct _GChildWatchSource
#ifdef G_OS_WIN32
GPollFD poll;
#else /* G_OS_WIN32 */
- gint count;
gboolean child_exited;
#endif /* G_OS_WIN32 */
};
+struct _GUnixSignalWatchSource
+{
+ GSource source;
+ int signum;
+ gboolean pending;
+};
+
struct _GPollRec
{
GPollFD *fd;
+ GPollRec *prev;
GPollRec *next;
gint priority;
};
-#ifdef G_THREADS_ENABLED
-#define LOCK_CONTEXT(context) g_static_mutex_lock (&context->mutex)
-#define UNLOCK_CONTEXT(context) g_static_mutex_unlock (&context->mutex)
+struct _GSourcePrivate
+{
+ GSList *child_sources;
+ GSource *parent_source;
+};
+
+#define LOCK_CONTEXT(context) g_mutex_lock (&context->mutex)
+#define UNLOCK_CONTEXT(context) g_mutex_unlock (&context->mutex)
#define G_THREAD_SELF g_thread_self ()
-#else
-#define LOCK_CONTEXT(context) (void)0
-#define UNLOCK_CONTEXT(context) (void)0
-#define G_THREAD_SELF NULL
-#endif
#define SOURCE_DESTROYED(source) (((source)->flags & G_HOOK_FLAG_ACTIVE) == 0)
#define SOURCE_BLOCKED(source) (((source)->flags & G_HOOK_FLAG_IN_CALL) != 0 && \
static void g_source_destroy_internal (GSource *source,
GMainContext *context,
gboolean have_lock);
+static void g_source_set_priority_unlocked (GSource *source,
+ GMainContext *context,
+ gint priority);
static void g_main_context_poll (GMainContext *context,
gint timeout,
gint priority,
GPollFD *fd);
static void g_main_context_remove_poll_unlocked (GMainContext *context,
GPollFD *fd);
-static void g_main_context_wakeup_unlocked (GMainContext *context);
static gboolean g_timeout_prepare (GSource *source,
gint *timeout);
static gboolean g_child_watch_dispatch (GSource *source,
GSourceFunc callback,
gpointer user_data);
+static void g_child_watch_finalize (GSource *source);
+#ifdef G_OS_UNIX
+static void g_unix_signal_handler (int signum);
+static gboolean g_unix_signal_watch_prepare (GSource *source,
+ gint *timeout);
+static gboolean g_unix_signal_watch_check (GSource *source);
+static gboolean g_unix_signal_watch_dispatch (GSource *source,
+ GSourceFunc callback,
+ gpointer user_data);
+static void g_unix_signal_watch_finalize (GSource *source);
+#endif
static gboolean g_idle_prepare (GSource *source,
gint *timeout);
static gboolean g_idle_check (GSource *source);
GSourceFunc callback,
gpointer user_data);
+static GMainContext *glib_worker_context;
+static gboolean g_main_context_fork_detected;
+
G_LOCK_DEFINE_STATIC (main_loop);
static GMainContext *default_main_context;
-static GSList *main_contexts_without_pipe = NULL;
#ifndef G_OS_WIN32
-/* Child status monitoring code */
-enum {
- CHILD_WATCH_UNINITIALIZED,
- CHILD_WATCH_INITIALIZED_SINGLE,
- CHILD_WATCH_INITIALIZED_THREADED
+
+
+/* UNIX signals work by marking one of these variables then waking the
+ * worker context to check on them and dispatch accordingly.
+ */
+static volatile gchar unix_signal_pending[NSIG];
+static volatile gboolean any_unix_signal_pending;
+
+/* Guards all the data below */
+G_LOCK_DEFINE_STATIC (unix_signal_lock);
+static GSList *unix_signal_watches;
+static GSList *unix_child_watches;
+
+static GSourceFuncs g_unix_signal_funcs =
+{
+ g_unix_signal_watch_prepare,
+ g_unix_signal_watch_check,
+ g_unix_signal_watch_dispatch,
+ g_unix_signal_watch_finalize
};
-static gint child_watch_init_state = CHILD_WATCH_UNINITIALIZED;
-static gint child_watch_count = 1;
-static gint child_watch_wake_up_pipe[2] = {0, 0};
#endif /* !G_OS_WIN32 */
G_LOCK_DEFINE_STATIC (main_context_list);
static GSList *main_context_list = NULL;
-static gint timer_perturb = -1;
-
GSourceFuncs g_timeout_funcs =
{
g_timeout_prepare,
g_child_watch_prepare,
g_child_watch_check,
g_child_watch_dispatch,
- NULL
+ g_child_watch_finalize
};
GSourceFuncs g_idle_funcs =
NULL
};
-#ifdef HAVE_POLL
-/* SunOS has poll, but doesn't provide a prototype. */
-# if defined (sun) && !defined (__SVR4)
-extern gint poll (GPollFD *ufds, guint nfsd, gint timeout);
-# endif /* !sun */
-#else /* !HAVE_POLL */
-
-#ifdef G_OS_WIN32
-
-static int
-poll_rest (gboolean poll_msgs,
- HANDLE *handles,
- gint nhandles,
- GPollFD *fds,
- guint nfds,
- gint timeout)
-{
- DWORD ready;
- GPollFD *f;
- int recursed_result;
-
- if (poll_msgs)
- {
- /* Wait for either messages or handles
- * -> Use MsgWaitForMultipleObjectsEx
- */
- if (g_main_poll_debug)
- g_print (" MsgWaitForMultipleObjectsEx(%d, %d)\n", nhandles, timeout);
-
- ready = MsgWaitForMultipleObjectsEx (nhandles, handles, timeout,
- QS_ALLINPUT, MWMO_ALERTABLE);
-
- if (ready == WAIT_FAILED)
- {
- gchar *emsg = g_win32_error_message (GetLastError ());
- g_warning ("MsgWaitForMultipleObjectsEx failed: %s", emsg);
- g_free (emsg);
- }
- }
- else if (nhandles == 0)
- {
- /* No handles to wait for, just the timeout */
- if (timeout == INFINITE)
- ready = WAIT_FAILED;
- else
- {
- SleepEx (timeout, TRUE);
- ready = WAIT_TIMEOUT;
- }
- }
- else
- {
- /* Wait for just handles
- * -> Use WaitForMultipleObjectsEx
- */
- if (g_main_poll_debug)
- g_print (" WaitForMultipleObjectsEx(%d, %d)\n", nhandles, timeout);
-
- ready = WaitForMultipleObjectsEx (nhandles, handles, FALSE, timeout, TRUE);
- if (ready == WAIT_FAILED)
- {
- gchar *emsg = g_win32_error_message (GetLastError ());
- g_warning ("WaitForMultipleObjectsEx failed: %s", emsg);
- g_free (emsg);
- }
- }
-
- if (g_main_poll_debug)
- g_print (" wait returns %ld%s\n",
- ready,
- (ready == WAIT_FAILED ? " (WAIT_FAILED)" :
- (ready == WAIT_TIMEOUT ? " (WAIT_TIMEOUT)" :
- (poll_msgs && ready == WAIT_OBJECT_0 + nhandles ? " (msg)" : ""))));
-
- if (ready == WAIT_FAILED)
- return -1;
- else if (ready == WAIT_TIMEOUT ||
- ready == WAIT_IO_COMPLETION)
- return 0;
- else if (poll_msgs && ready == WAIT_OBJECT_0 + nhandles)
- {
- for (f = fds; f < &fds[nfds]; ++f)
- if (f->fd == G_WIN32_MSG_HANDLE && f->events & G_IO_IN)
- f->revents |= G_IO_IN;
-
- /* If we have a timeout, or no handles to poll, be satisfied
- * with just noticing we have messages waiting.
- */
- if (timeout != 0 || nhandles == 0)
- return 1;
-
- /* If no timeout and handles to poll, recurse to poll them,
- * too.
- */
- recursed_result = poll_rest (FALSE, handles, nhandles, fds, nfds, 0);
- return (recursed_result == -1) ? -1 : 1 + recursed_result;
- }
- else if (ready >= WAIT_OBJECT_0 && ready < WAIT_OBJECT_0 + nhandles)
- {
- for (f = fds; f < &fds[nfds]; ++f)
- {
- if ((HANDLE) f->fd == handles[ready - WAIT_OBJECT_0])
- {
- f->revents = f->events;
- if (g_main_poll_debug)
- g_print (" got event %p\n", (HANDLE) f->fd);
- }
- }
-
- /* If no timeout and polling several handles, recurse to poll
- * the rest of them.
- */
- if (timeout == 0 && nhandles > 1)
- {
- /* Remove the handle that fired */
- if (ready < nhandles - 1)
- memmove (handles + ready - WAIT_OBJECT_0, handles + ready - WAIT_OBJECT_0 + 1, nhandles - ready - 1);
- nhandles--;
- recursed_result = poll_rest (FALSE, handles, nhandles, fds, nfds, 0);
- return (recursed_result == -1) ? -1 : 1 + recursed_result;
- }
- return 1;
- }
-
- return 0;
-}
-
-
-static gint
-g_poll (GPollFD *fds,
- guint nfds,
- gint timeout)
-{
- HANDLE handles[MAXIMUM_WAIT_OBJECTS];
- gboolean poll_msgs = FALSE;
- GPollFD *f;
- gint nhandles = 0;
- int retval;
-
- if (g_main_poll_debug)
- g_print ("g_poll: waiting for");
-
- for (f = fds; f < &fds[nfds]; ++f)
- if (f->fd == G_WIN32_MSG_HANDLE && (f->events & G_IO_IN))
- {
- if (g_main_poll_debug && !poll_msgs)
- g_print (" MSG");
- poll_msgs = TRUE;
- }
- else if (f->fd > 0)
- {
- /* Don't add the same handle several times into the array, as
- * docs say that is not allowed, even if it actually does seem
- * to work.
- */
- gint i;
-
- for (i = 0; i < nhandles; i++)
- if (handles[i] == (HANDLE) f->fd)
- break;
-
- if (i == nhandles)
- {
- if (nhandles == MAXIMUM_WAIT_OBJECTS)
- {
- g_warning ("Too many handles to wait for!\n");
- break;
- }
- else
- {
- if (g_main_poll_debug)
- g_print (" %p", (HANDLE) f->fd);
- handles[nhandles++] = (HANDLE) f->fd;
- }
- }
- }
-
- if (g_main_poll_debug)
- g_print ("\n");
-
- for (f = fds; f < &fds[nfds]; ++f)
- f->revents = 0;
-
- if (timeout == -1)
- timeout = INFINITE;
-
- /* Polling for several things? */
- if (nhandles > 1 || (nhandles > 0 && poll_msgs))
- {
- /* First check if one or several of them are immediately
- * available
- */
- retval = poll_rest (poll_msgs, handles, nhandles, fds, nfds, 0);
-
- /* If not, and we have a significant timeout, poll again with
- * timeout then. Note that this will return indication for only
- * one event, or only for messages. We ignore timeouts less than
- * ten milliseconds as they are mostly pointless on Windows, the
- * MsgWaitForMultipleObjectsEx() call will timeout right away
- * anyway.
- */
- if (retval == 0 && (timeout == INFINITE || timeout >= 10))
- retval = poll_rest (poll_msgs, handles, nhandles, fds, nfds, timeout);
- }
- else
- {
- /* Just polling for one thing, so no need to check first if
- * available immediately
- */
- retval = poll_rest (poll_msgs, handles, nhandles, fds, nfds, timeout);
- }
-
- if (retval == -1)
- for (f = fds; f < &fds[nfds]; ++f)
- f->revents = 0;
-
- return retval;
-}
-
-#else /* !G_OS_WIN32 */
-
-/* The following implementation of poll() comes from the GNU C Library.
- * Copyright (C) 1994, 1996, 1997 Free Software Foundation, Inc.
- */
-
-#include <string.h> /* for bzero on BSD systems */
-
-#ifdef HAVE_SYS_SELECT_H
-#include <sys/select.h>
-#endif /* HAVE_SYS_SELECT_H */
-
-#ifdef G_OS_BEOS
-#undef NO_FD_SET
-#endif /* G_OS_BEOS */
-
-#ifndef NO_FD_SET
-# define SELECT_MASK fd_set
-#else /* !NO_FD_SET */
-# ifndef _AIX
-typedef long fd_mask;
-# endif /* _AIX */
-# ifdef _IBMR2
-# define SELECT_MASK void
-# else /* !_IBMR2 */
-# define SELECT_MASK int
-# endif /* !_IBMR2 */
-#endif /* !NO_FD_SET */
-
-static gint
-g_poll (GPollFD *fds,
- guint nfds,
- gint timeout)
-{
- struct timeval tv;
- SELECT_MASK rset, wset, xset;
- GPollFD *f;
- int ready;
- int maxfd = 0;
-
- FD_ZERO (&rset);
- FD_ZERO (&wset);
- FD_ZERO (&xset);
-
- for (f = fds; f < &fds[nfds]; ++f)
- if (f->fd >= 0)
- {
- if (f->events & G_IO_IN)
- FD_SET (f->fd, &rset);
- if (f->events & G_IO_OUT)
- FD_SET (f->fd, &wset);
- if (f->events & G_IO_PRI)
- FD_SET (f->fd, &xset);
- if (f->fd > maxfd && (f->events & (G_IO_IN|G_IO_OUT|G_IO_PRI)))
- maxfd = f->fd;
- }
-
- tv.tv_sec = timeout / 1000;
- tv.tv_usec = (timeout % 1000) * 1000;
-
- ready = select (maxfd + 1, &rset, &wset, &xset,
- timeout == -1 ? NULL : &tv);
- if (ready > 0)
- for (f = fds; f < &fds[nfds]; ++f)
- {
- f->revents = 0;
- if (f->fd >= 0)
- {
- if (FD_ISSET (f->fd, &rset))
- f->revents |= G_IO_IN;
- if (FD_ISSET (f->fd, &wset))
- f->revents |= G_IO_OUT;
- if (FD_ISSET (f->fd, &xset))
- f->revents |= G_IO_PRI;
- }
- }
-
- return ready;
-}
-
-#endif /* !G_OS_WIN32 */
-
-#endif /* !HAVE_POLL */
-
/**
* g_main_context_ref:
* @context: a #GMainContext
source = next;
}
-#ifdef G_THREADS_ENABLED
- g_static_mutex_free (&context->mutex);
-#endif
+ g_mutex_clear (&context->mutex);
g_ptr_array_free (context->pending_dispatches, TRUE);
g_free (context->cached_poll_array);
poll_rec_list_free (context, context->poll_records);
-
-#ifdef G_THREADS_ENABLED
- if (g_thread_supported())
- {
-#ifndef G_OS_WIN32
- close (context->wake_up_pipe[0]);
- close (context->wake_up_pipe[1]);
-#else
- CloseHandle (context->wake_up_semaphore);
-#endif
- }
- else
- main_contexts_without_pipe = g_slist_remove (main_contexts_without_pipe,
- context);
+
+ g_wakeup_free (context->wakeup);
if (context->cond != NULL)
g_cond_free (context->cond);
-#endif
-
- g_free (context);
-}
-
-#ifdef G_THREADS_ENABLED
-static void
-g_main_context_init_pipe (GMainContext *context)
-{
-# ifndef G_OS_WIN32
- if (context->wake_up_pipe[0] != -1)
- return;
- if (pipe (context->wake_up_pipe) < 0)
- g_error ("Cannot create pipe main loop wake-up: %s\n",
- g_strerror (errno));
-
- fcntl (context->wake_up_pipe[0], F_SETFD, FD_CLOEXEC);
- fcntl (context->wake_up_pipe[1], F_SETFD, FD_CLOEXEC);
- context->wake_up_rec.fd = context->wake_up_pipe[0];
- context->wake_up_rec.events = G_IO_IN;
-# else
- if (context->wake_up_semaphore != NULL)
- return;
- context->wake_up_semaphore = CreateSemaphore (NULL, 0, 100, NULL);
- if (context->wake_up_semaphore == NULL)
- g_error ("Cannot create wake-up semaphore: %s",
- g_win32_error_message (GetLastError ()));
- context->wake_up_rec.fd = (gintptr) context->wake_up_semaphore;
- context->wake_up_rec.events = G_IO_IN;
-
- if (g_main_poll_debug)
- g_print ("wake-up semaphore: %p\n", context->wake_up_semaphore);
-# endif
- g_main_context_add_poll_unlocked (context, 0, &context->wake_up_rec);
+ g_free (context);
}
-void
-_g_main_thread_init (void)
+#ifdef G_OS_UNIX
+static void
+g_main_context_forked (void)
{
- GSList *curr = main_contexts_without_pipe;
- while (curr)
- {
- g_main_context_init_pipe ((GMainContext *)curr->data);
- curr = curr->next;
- }
- g_slist_free (main_contexts_without_pipe);
- main_contexts_without_pipe = NULL;
+ g_main_context_fork_detected = TRUE;
}
-#endif /* G_THREADS_ENABLED */
+#endif
/**
* g_main_context_new:
GMainContext *
g_main_context_new (void)
{
- GMainContext *context = g_new0 (GMainContext, 1);
+ static gsize initialised;
+ GMainContext *context;
+
+ g_thread_init_glib ();
+ if (g_once_init_enter (&initialised))
+ {
#ifdef G_MAIN_POLL_DEBUG
- {
- static gboolean beenhere = FALSE;
+ if (getenv ("G_MAIN_POLL_DEBUG") != NULL)
+ _g_main_poll_debug = TRUE;
+#endif
- if (!beenhere)
- {
- if (getenv ("G_MAIN_POLL_DEBUG") != NULL)
- g_main_poll_debug = TRUE;
- beenhere = TRUE;
- }
- }
+#ifdef G_OS_UNIX
+ pthread_atfork (NULL, NULL, g_main_context_forked);
#endif
-#ifdef G_THREADS_ENABLED
- g_static_mutex_init (&context->mutex);
+ g_once_init_leave (&initialised, TRUE);
+ }
+
+ context = g_new0 (GMainContext, 1);
+
+ g_mutex_init (&context->mutex);
context->owner = NULL;
context->waiters = NULL;
-# ifndef G_OS_WIN32
- context->wake_up_pipe[0] = -1;
- context->wake_up_pipe[1] = -1;
-# else
- context->wake_up_semaphore = NULL;
-# endif
-#endif
-
context->ref_count = 1;
context->next_id = 1;
context->source_list = NULL;
-#if HAVE_POLL
- context->poll_func = (GPollFunc)poll;
-#else
context->poll_func = g_poll;
-#endif
context->cached_poll_array = NULL;
context->cached_poll_array_size = 0;
context->pending_dispatches = g_ptr_array_new ();
- context->time_is_current = FALSE;
+ context->time_is_fresh = FALSE;
-#ifdef G_THREADS_ENABLED
- if (g_thread_supported ())
- g_main_context_init_pipe (context);
- else
- main_contexts_without_pipe = g_slist_prepend (main_contexts_without_pipe,
- context);
-#endif
+ context->wakeup = g_wakeup_new ();
+ g_wakeup_get_pollfd (context->wakeup, &context->wake_up_rec);
+ g_main_context_add_poll_unlocked (context, 0, &context->wake_up_rec);
G_LOCK (main_context_list);
main_context_list = g_slist_append (main_context_list, context);
#ifdef G_MAIN_POLL_DEBUG
- if (g_main_poll_debug)
+ if (_g_main_poll_debug)
g_print ("created context=%p\n", context);
#endif
/**
* g_main_context_default:
*
- * Returns the default main context. This is the main context used
- * for main loop functions when a main loop is not explicitly
- * specified.
+ * Returns the global default main context. This is the main context
+ * used for main loop functions when a main loop is not explicitly
+ * specified, and corresponds to the "main" main loop. See also
+ * g_main_context_get_thread_default().
*
- * Return value: the default main context.
+ * Return value: (transfer none): the global default main context.
**/
GMainContext *
g_main_context_default (void)
{
default_main_context = g_main_context_new ();
#ifdef G_MAIN_POLL_DEBUG
- if (g_main_poll_debug)
+ if (_g_main_poll_debug)
g_print ("default context=%p\n", default_main_context);
#endif
}
return default_main_context;
}
+static GStaticPrivate thread_context_stack = G_STATIC_PRIVATE_INIT;
+
+static void
+free_context_stack (gpointer data)
+{
+ GQueue *stack = data;
+ GMainContext *context;
+
+ while (!g_queue_is_empty (stack))
+ {
+ context = g_queue_pop_head (stack);
+ g_main_context_release (context);
+ if (context)
+ g_main_context_unref (context);
+ }
+ g_queue_free (stack);
+}
+
+/**
+ * g_main_context_push_thread_default:
+ * @context: a #GMainContext, or %NULL for the global default context
+ *
+ * Acquires @context and sets it as the thread-default context for the
+ * current thread. This will cause certain asynchronous operations
+ * (such as most <link linkend="gio">gio</link>-based I/O) which are
+ * started in this thread to run under @context and deliver their
+ * results to its main loop, rather than running under the global
+ * default context in the main thread. Note that calling this function
+ * changes the context returned by
+ * g_main_context_get_thread_default(), <emphasis>not</emphasis> the
+ * one returned by g_main_context_default(), so it does not affect the
+ * context used by functions like g_idle_add().
+ *
+ * Normally you would call this function shortly after creating a new
+ * thread, passing it a #GMainContext which will be run by a
+ * #GMainLoop in that thread, to set a new default context for all
+ * async operations in that thread. (In this case, you don't need to
+ * ever call g_main_context_pop_thread_default().) In some cases
+ * however, you may want to schedule a single operation in a
+ * non-default context, or temporarily use a non-default context in
+ * the main thread. In that case, you can wrap the call to the
+ * asynchronous operation inside a
+ * g_main_context_push_thread_default() /
+ * g_main_context_pop_thread_default() pair, but it is up to you to
+ * ensure that no other asynchronous operations accidentally get
+ * started while the non-default context is active.
+ *
+ * Beware that libraries that predate this function may not correctly
+ * handle being used from a thread with a thread-default context. Eg,
+ * see g_file_supports_thread_contexts().
+ *
+ * Since: 2.22
+ **/
+void
+g_main_context_push_thread_default (GMainContext *context)
+{
+ GQueue *stack;
+ gboolean acquired_context;
+
+ acquired_context = g_main_context_acquire (context);
+ g_return_if_fail (acquired_context);
+
+ if (context == g_main_context_default ())
+ context = NULL;
+ else if (context)
+ g_main_context_ref (context);
+
+ stack = g_static_private_get (&thread_context_stack);
+ if (!stack)
+ {
+ stack = g_queue_new ();
+ g_static_private_set (&thread_context_stack, stack,
+ free_context_stack);
+ }
+
+ g_queue_push_head (stack, context);
+}
+
+/**
+ * g_main_context_pop_thread_default:
+ * @context: a #GMainContext object, or %NULL
+ *
+ * Pops @context off the thread-default context stack (verifying that
+ * it was on the top of the stack).
+ *
+ * Since: 2.22
+ **/
+void
+g_main_context_pop_thread_default (GMainContext *context)
+{
+ GQueue *stack;
+
+ if (context == g_main_context_default ())
+ context = NULL;
+
+ stack = g_static_private_get (&thread_context_stack);
+
+ g_return_if_fail (stack != NULL);
+ g_return_if_fail (g_queue_peek_head (stack) == context);
+
+ g_queue_pop_head (stack);
+
+ g_main_context_release (context);
+ if (context)
+ g_main_context_unref (context);
+}
+
+/**
+ * g_main_context_get_thread_default:
+ *
+ * Gets the thread-default #GMainContext for this thread. Asynchronous
+ * operations that want to be able to be run in contexts other than
+ * the default one should call this method to get a #GMainContext to
+ * add their #GSource<!-- -->s to. (Note that even in single-threaded
+ * programs applications may sometimes want to temporarily push a
+ * non-default context, so it is not safe to assume that this will
+ * always return %NULL if threads are not initialized.)
+ *
+ * Returns: (transfer none): the thread-default #GMainContext, or
+ * %NULL if the thread-default context is the global default context.
+ *
+ * Since: 2.22
+ **/
+GMainContext *
+g_main_context_get_thread_default (void)
+{
+ GQueue *stack;
+
+ stack = g_static_private_get (&thread_context_stack);
+ if (stack)
+ return g_queue_peek_head (stack);
+ else
+ return NULL;
+}
+
/* Hooks for adding to the main loop */
/**
{
GSource *tmp_source, *last_source;
- last_source = NULL;
- tmp_source = context->source_list;
- while (tmp_source && tmp_source->priority <= source->priority)
+ if (source->priv && source->priv->parent_source)
{
- last_source = tmp_source;
- tmp_source = tmp_source->next;
+ /* Put the source immediately before its parent */
+ tmp_source = source->priv->parent_source;
+ last_source = source->priv->parent_source->prev;
+ }
+ else
+ {
+ last_source = NULL;
+ tmp_source = context->source_list;
+ while (tmp_source && tmp_source->priority <= source->priority)
+ {
+ last_source = tmp_source;
+ tmp_source = tmp_source->next;
+ }
}
source->next = tmp_source;
source->next = NULL;
}
+static guint
+g_source_attach_unlocked (GSource *source,
+ GMainContext *context)
+{
+ guint result = 0;
+ GSList *tmp_list;
+
+ source->context = context;
+ result = source->source_id = context->next_id++;
+
+ source->ref_count++;
+ g_source_list_add (source, context);
+
+ tmp_list = source->poll_fds;
+ while (tmp_list)
+ {
+ g_main_context_add_poll_unlocked (context, source->priority, tmp_list->data);
+ tmp_list = tmp_list->next;
+ }
+
+ if (source->priv)
+ {
+ tmp_list = source->priv->child_sources;
+ while (tmp_list)
+ {
+ g_source_attach_unlocked (tmp_list->data, context);
+ tmp_list = tmp_list->next;
+ }
+ }
+
+ return result;
+}
+
/**
* g_source_attach:
* @source: a #GSource
* @context: a #GMainContext (if %NULL, the default context will be used)
*
* Adds a #GSource to a @context so that it will be executed within
- * that context.
+ * that context. Remove it by calling g_source_destroy().
*
* Return value: the ID (greater than 0) for the source within the
* #GMainContext.
GMainContext *context)
{
guint result = 0;
- GSList *tmp_list;
g_return_val_if_fail (source->context == NULL, 0);
g_return_val_if_fail (!SOURCE_DESTROYED (source), 0);
LOCK_CONTEXT (context);
- source->context = context;
- result = source->source_id = context->next_id++;
-
- source->ref_count++;
- g_source_list_add (source, context);
-
- tmp_list = source->poll_fds;
- while (tmp_list)
- {
- g_main_context_add_poll_unlocked (context, source->priority, tmp_list->data);
- tmp_list = tmp_list->next;
- }
+ result = g_source_attach_unlocked (source, context);
-#ifdef G_THREADS_ENABLED
- /* Now wake up the main loop if it is waiting in the poll() */
- g_main_context_wakeup_unlocked (context);
-#endif
+ /* If another thread has acquired the context, wake it up since it
+ * might be in poll() right now.
+ */
+ if (context->owner && context->owner != G_THREAD_SELF)
+ g_wakeup_signal (context->wakeup);
UNLOCK_CONTEXT (context);
tmp_list = tmp_list->next;
}
}
+
+ if (source->priv && source->priv->child_sources)
+ {
+ /* This is safe because even if a child_source finalizer or
+ * closure notify tried to modify source->priv->child_sources
+ * from outside the lock, it would fail since
+ * SOURCE_DESTROYED(source) is now TRUE.
+ */
+ tmp_list = source->priv->child_sources;
+ while (tmp_list)
+ {
+ g_source_destroy_internal (tmp_list->data, context, TRUE);
+ g_source_unref_internal (tmp_list->data, context, TRUE);
+ tmp_list = tmp_list->next;
+ }
+ g_slist_free (source->priv->child_sources);
+ source->priv->child_sources = NULL;
+ }
g_source_unref_internal (source, context, TRUE);
}
* Gets the #GMainContext with which the source is associated.
* Calling this function on a destroyed source is an error.
*
- * Return value: the #GMainContext with which the source is associated,
- * or %NULL if the context has not yet been added
- * to a source.
+ * Return value: (transfer none): the #GMainContext with which the
+ * source is associated, or %NULL if the context has not
+ * yet been added to a source.
**/
GMainContext *
g_source_get_context (GSource *source)
source->poll_fds = g_slist_remove (source->poll_fds, fd);
if (context)
- {
- if (!SOURCE_BLOCKED (source))
- g_main_context_remove_poll_unlocked (context, fd);
- UNLOCK_CONTEXT (context);
- }
+ {
+ if (!SOURCE_BLOCKED (source))
+ g_main_context_remove_poll_unlocked (context, fd);
+ UNLOCK_CONTEXT (context);
+ }
+}
+
+/**
+ * g_source_add_child_source:
+ * @source:a #GSource
+ * @child_source: a second #GSource that @source should "poll"
+ *
+ * Adds @child_source to @source as a "polled" source; when @source is
+ * added to a #GMainContext, @child_source will be automatically added
+ * with the same priority, when @child_source is triggered, it will
+ * cause @source to dispatch (in addition to calling its own
+ * callback), and when @source is destroyed, it will destroy
+ * @child_source as well. (@source will also still be dispatched if
+ * its own prepare/check functions indicate that it is ready.)
+ *
+ * If you don't need @child_source to do anything on its own when it
+ * triggers, you can call g_source_set_dummy_callback() on it to set a
+ * callback that does nothing (except return %TRUE if appropriate).
+ *
+ * @source will hold a reference on @child_source while @child_source
+ * is attached to it.
+ *
+ * Since: 2.28
+ **/
+void
+g_source_add_child_source (GSource *source,
+ GSource *child_source)
+{
+ GMainContext *context;
+
+ g_return_if_fail (source != NULL);
+ g_return_if_fail (child_source != NULL);
+ g_return_if_fail (!SOURCE_DESTROYED (source));
+ g_return_if_fail (!SOURCE_DESTROYED (child_source));
+ g_return_if_fail (child_source->context == NULL);
+ g_return_if_fail (child_source->priv == NULL || child_source->priv->parent_source == NULL);
+
+ context = source->context;
+
+ if (context)
+ LOCK_CONTEXT (context);
+
+ if (!source->priv)
+ source->priv = g_slice_new0 (GSourcePrivate);
+ if (!child_source->priv)
+ child_source->priv = g_slice_new0 (GSourcePrivate);
+
+ source->priv->child_sources = g_slist_prepend (source->priv->child_sources,
+ g_source_ref (child_source));
+ child_source->priv->parent_source = source;
+ g_source_set_priority_unlocked (child_source, context, source->priority);
+
+ if (context)
+ {
+ UNLOCK_CONTEXT (context);
+ g_source_attach (child_source, context);
+ }
+}
+
+/**
+ * g_source_remove_child_source:
+ * @source:a #GSource
+ * @child_source: a #GSource previously passed to
+ * g_source_add_child_source().
+ *
+ * Detaches @child_source from @source and destroys it.
+ *
+ * Since: 2.28
+ **/
+void
+g_source_remove_child_source (GSource *source,
+ GSource *child_source)
+{
+ GMainContext *context;
+
+ g_return_if_fail (source != NULL);
+ g_return_if_fail (child_source != NULL);
+ g_return_if_fail (child_source->priv != NULL && child_source->priv->parent_source == source);
+ g_return_if_fail (!SOURCE_DESTROYED (source));
+ g_return_if_fail (!SOURCE_DESTROYED (child_source));
+
+ context = source->context;
+
+ if (context)
+ LOCK_CONTEXT (context);
+
+ source->priv->child_sources = g_slist_remove (source->priv->child_sources, child_source);
+ g_source_destroy_internal (child_source, context, TRUE);
+ g_source_unref_internal (child_source, context, TRUE);
+
+ if (context)
+ UNLOCK_CONTEXT (context);
}
/**
source->source_funcs = funcs;
}
-/**
- * g_source_set_priority:
- * @source: a #GSource
- * @priority: the new priority.
- *
- * Sets the priority of a source. While the main loop is being
- * run, a source will be dispatched if it is ready to be dispatched and no sources
- * at a higher (numerically smaller) priority are ready to be dispatched.
- **/
-void
-g_source_set_priority (GSource *source,
- gint priority)
+static void
+g_source_set_priority_unlocked (GSource *source,
+ GMainContext *context,
+ gint priority)
{
GSList *tmp_list;
- GMainContext *context;
-
- g_return_if_fail (source != NULL);
-
- context = source->context;
-
- if (context)
- LOCK_CONTEXT (context);
source->priority = priority;
if (context)
{
/* Remove the source from the context's source and then
- * add it back so it is sorted in the correct plcae
+ * add it back so it is sorted in the correct place
*/
g_source_list_remove (source, source->context);
g_source_list_add (source, source->context);
tmp_list = tmp_list->next;
}
}
-
- UNLOCK_CONTEXT (source->context);
}
+
+ if (source->priv && source->priv->child_sources)
+ {
+ tmp_list = source->priv->child_sources;
+ while (tmp_list)
+ {
+ g_source_set_priority_unlocked (tmp_list->data, context, priority);
+ tmp_list = tmp_list->next;
+ }
+ }
+}
+
+/**
+ * g_source_set_priority:
+ * @source: a #GSource
+ * @priority: the new priority.
+ *
+ * Sets the priority of a source. While the main loop is being run, a
+ * source will be dispatched if it is ready to be dispatched and no
+ * sources at a higher (numerically smaller) priority are ready to be
+ * dispatched.
+ **/
+void
+g_source_set_priority (GSource *source,
+ gint priority)
+{
+ GMainContext *context;
+
+ g_return_if_fail (source != NULL);
+
+ context = source->context;
+
+ if (context)
+ LOCK_CONTEXT (context);
+ g_source_set_priority_unlocked (source, context, priority);
+ if (context)
+ UNLOCK_CONTEXT (source->context);
}
/**
return (source->flags & G_SOURCE_CAN_RECURSE) != 0;
}
+
+/**
+ * g_source_set_name:
+ * @source: a #GSource
+ * @name: debug name for the source
+ *
+ * Sets a name for the source, used in debugging and profiling.
+ * The name defaults to #NULL.
+ *
+ * The source name should describe in a human-readable way
+ * what the source does. For example, "X11 event queue"
+ * or "GTK+ repaint idle handler" or whatever it is.
+ *
+ * It is permitted to call this function multiple times, but is not
+ * recommended due to the potential performance impact. For example,
+ * one could change the name in the "check" function of a #GSourceFuncs
+ * to include details like the event type in the source name.
+ *
+ * Since: 2.26
+ **/
+void
+g_source_set_name (GSource *source,
+ const char *name)
+{
+ g_return_if_fail (source != NULL);
+
+ /* setting back to NULL is allowed, just because it's
+ * weird if get_name can return NULL but you can't
+ * set that.
+ */
+
+ g_free (source->name);
+ source->name = g_strdup (name);
+}
+
+/**
+ * g_source_get_name:
+ * @source: a #GSource
+ *
+ * Gets a name for the source, used in debugging and profiling.
+ * The name may be #NULL if it has never been set with
+ * g_source_set_name().
+ *
+ * Return value: the name of the source
+ * Since: 2.26
+ **/
+const char *
+g_source_get_name (GSource *source)
+{
+ g_return_val_if_fail (source != NULL, NULL);
+
+ return source->name;
+}
+
+/**
+ * g_source_set_name_by_id:
+ * @tag: a #GSource ID
+ * @name: debug name for the source
+ *
+ * Sets the name of a source using its ID.
+ *
+ * This is a convenience utility to set source names from the return
+ * value of g_idle_add(), g_timeout_add(), etc.
+ *
+ * Since: 2.26
+ **/
+void
+g_source_set_name_by_id (guint tag,
+ const char *name)
+{
+ GSource *source;
+
+ g_return_if_fail (tag > 0);
+
+ source = g_main_context_find_source_by_id (NULL, tag);
+ if (source == NULL)
+ return;
+
+ g_source_set_name (source, name);
+}
+
+
/**
* g_source_ref:
* @source: a #GSource
source->callback_data = NULL;
source->callback_funcs = NULL;
- if (context && !SOURCE_DESTROYED (source))
+ if (context)
{
- g_warning (G_STRLOC ": ref_count == 0, but source is still attached to a context!");
- source->ref_count++;
+ if (!SOURCE_DESTROYED (source))
+ g_warning (G_STRLOC ": ref_count == 0, but source was still attached to a context!");
+ g_source_list_remove (source, context);
}
- else if (context)
- g_source_list_remove (source, context);
if (source->source_funcs->finalize)
- source->source_funcs->finalize (source);
-
+ {
+ if (context)
+ UNLOCK_CONTEXT (context);
+ source->source_funcs->finalize (source);
+ if (context)
+ LOCK_CONTEXT (context);
+ }
+
+ g_free (source->name);
+ source->name = NULL;
+
g_slist_free (source->poll_fds);
source->poll_fds = NULL;
+
+ if (source->priv)
+ {
+ g_slice_free (GSourcePrivate, source->priv);
+ source->priv = NULL;
+ }
+
g_free (source);
}
*
* Finds a #GSource given a pair of context and ID.
*
- * Return value: the #GSource if found, otherwise, %NULL
+ * Return value: (transfer none): the #GSource if found, otherwise, %NULL
**/
GSource *
g_main_context_find_source_by_id (GMainContext *context,
* multiple sources exist with the same source function and user data,
* the first one found will be returned.
*
- * Return value: the source, if one was found, otherwise %NULL
+ * Return value: (transfer none): the source, if one was found, otherwise %NULL
**/
GSource *
g_main_context_find_source_by_funcs_user_data (GMainContext *context,
* multiple sources exist with the same user data, the first
* one found will be returned.
*
- * Return value: the source, if one was found, otherwise %NULL
+ * Return value: (transfer none): the source, if one was found, otherwise %NULL
**/
GSource *
g_main_context_find_source_by_user_data (GMainContext *context,
* g_timeout_add(), g_timeout_add_full(), g_child_watch_add(),
* g_child_watch_add_full(), g_io_add_watch(), and g_io_add_watch_full().
*
- * See also g_source_destroy().
+ * See also g_source_destroy(). You must use g_source_destroy() for sources
+ * added to a non-default main context.
*
* Return value: %TRUE if the source was found and removed.
**/
/**
* g_get_current_time:
* @result: #GTimeVal structure in which to store current time.
- *
+ *
* Equivalent to the UNIX gettimeofday() function, but portable.
+ *
+ * You may find g_get_real_time() to be more convenient.
**/
void
g_get_current_time (GTimeVal *result)
#endif
}
+/**
+ * g_get_real_time:
+ *
+ * Queries the system wall-clock time.
+ *
+ * This call is functionally equivalent to g_get_current_time() except
+ * that the return value is often more convenient than dealing with a
+ * #GTimeVal.
+ *
+ * You should only use this call if you are actually interested in the real
+ * wall-clock time. g_get_monotonic_time() is probably more useful for
+ * measuring intervals.
+ *
+ * Returns: the number of microseconds since January 1, 1970 UTC.
+ *
+ * Since: 2.28
+ **/
+gint64
+g_get_real_time (void)
+{
+ GTimeVal tv;
+
+ g_get_current_time (&tv);
+
+ return (((gint64) tv.tv_sec) * 1000000) + tv.tv_usec;
+}
+
+/**
+ * g_get_monotonic_time:
+ *
+ * Queries the system monotonic time, if available.
+ *
+ * On POSIX systems with clock_gettime() and %CLOCK_MONOTONIC this call
+ * is a very shallow wrapper for that. Otherwise, we make a best effort
+ * that probably involves returning the wall clock time (with at least
+ * microsecond accuracy, subject to the limitations of the OS kernel).
+ *
+ * It's important to note that POSIX %CLOCK_MONOTONIC does not count
+ * time spent while the machine is suspended.
+ *
+ * On Windows, "limitations of the OS kernel" is a rather substantial
+ * statement. Depending on the configuration of the system, the wall
+ * clock time is updated as infrequently as 64 times a second (which
+ * is approximately every 16ms).
+ *
+ * Returns: the monotonic time, in microseconds
+ *
+ * Since: 2.28
+ **/
+gint64
+g_get_monotonic_time (void)
+{
+#ifdef HAVE_CLOCK_GETTIME
+ /* librt clock_gettime() is our first choice */
+ {
+#ifdef HAVE_MONOTONIC_CLOCK
+ static volatile gsize clockid = 0;
+#else
+ static clockid_t clockid = CLOCK_REALTIME;
+#endif
+ struct timespec ts;
+
+#ifdef HAVE_MONOTONIC_CLOCK
+ if (g_once_init_enter (&clockid))
+ {
+ clockid_t best_clockid;
+
+ if (sysconf (_SC_MONOTONIC_CLOCK) >= 0)
+ best_clockid = CLOCK_MONOTONIC;
+ else
+ best_clockid = CLOCK_REALTIME;
+ g_once_init_leave (&clockid, (gsize)best_clockid);
+ }
+#endif
+
+ clock_gettime (clockid, &ts);
+
+ /* In theory monotonic time can have any epoch.
+ *
+ * glib presently assumes the following:
+ *
+ * 1) The epoch comes some time after the birth of Jesus of Nazareth, but
+ * not more than 10000 years later.
+ *
+ * 2) The current time also falls sometime within this range.
+ *
+ * These two reasonable assumptions leave us with a maximum deviation from
+ * the epoch of 10000 years, or 315569520000000000 seconds.
+ *
+ * If we restrict ourselves to this range then the number of microseconds
+ * will always fit well inside the constraints of a int64 (by a factor of
+ * about 29).
+ *
+ * If you actually hit the following assertion, probably you should file a
+ * bug against your operating system for being excessively silly.
+ **/
+ g_assert (G_GINT64_CONSTANT (-315569520000000000) < ts.tv_sec &&
+ ts.tv_sec < G_GINT64_CONSTANT (315569520000000000));
+
+ return (((gint64) ts.tv_sec) * 1000000) + (ts.tv_nsec / 1000);
+ }
+#else
+ /* It may look like we are discarding accuracy on Windows (since its
+ * current time is expressed in 100s of nanoseconds) but according to
+ * many sources, the time is only updated 64 times per second, so
+ * microsecond accuracy is more than enough.
+ */
+ {
+ GTimeVal tv;
+
+ g_get_current_time (&tv);
+
+ return (((gint64) tv.tv_sec) * 1000000) + tv.tv_usec;
+ }
+#endif
+}
+
static void
g_main_dispatch_free (gpointer dispatch)
{
* That is, when called from the toplevel, it gives 0. When
* called from within a callback from g_main_context_iteration()
* (or g_main_loop_run(), etc.) it returns 1. When called from within
- * a callback to a recursive call to g_main_context_iterate(),
+ * a callback to a recursive call to g_main_context_iteration(),
* it returns 2. And so forth.
*
* This function is useful in a situation like the following:
*
* Returns the currently firing source for this thread.
*
- * Return value: The currently firing source or %NULL.
+ * Return value: (transfer none): The currently firing source or %NULL.
*
* Since: 2.12
*/
return SOURCE_DESTROYED (source);
}
-
/* Temporarily remove all this source's file descriptors from the
* poll(), so that if data comes available for one of the file descriptors
* we don't continually spin in the poll()
gboolean
g_main_context_acquire (GMainContext *context)
{
-#ifdef G_THREADS_ENABLED
gboolean result = FALSE;
GThread *self = G_THREAD_SELF;
UNLOCK_CONTEXT (context);
return result;
-#else /* !G_THREADS_ENABLED */
- return TRUE;
-#endif /* G_THREADS_ENABLED */
}
/**
void
g_main_context_release (GMainContext *context)
{
-#ifdef G_THREADS_ENABLED
if (context == NULL)
context = g_main_context_default ();
if (context->waiters)
{
GMainWaiter *waiter = context->waiters->data;
- gboolean loop_internal_waiter =
- (waiter->mutex == g_static_mutex_get_mutex (&context->mutex));
+ gboolean loop_internal_waiter = (waiter->mutex == &context->mutex);
context->waiters = g_slist_delete_link (context->waiters,
context->waiters);
if (!loop_internal_waiter)
}
UNLOCK_CONTEXT (context);
-#endif /* G_THREADS_ENABLED */
}
/**
GCond *cond,
GMutex *mutex)
{
-#ifdef G_THREADS_ENABLED
gboolean result = FALSE;
GThread *self = G_THREAD_SELF;
gboolean loop_internal_waiter;
if (context == NULL)
context = g_main_context_default ();
- loop_internal_waiter = (mutex == g_static_mutex_get_mutex (&context->mutex));
+ loop_internal_waiter = (mutex == &context->mutex);
if (!loop_internal_waiter)
LOCK_CONTEXT (context);
UNLOCK_CONTEXT (context);
return result;
-#else /* !G_THREADS_ENABLED */
- return TRUE;
-#endif /* G_THREADS_ENABLED */
}
/**
LOCK_CONTEXT (context);
- context->time_is_current = FALSE;
+ context->time_is_fresh = FALSE;
if (context->in_check_or_prepare)
{
return FALSE;
}
-#ifdef G_THREADS_ENABLED
- if (context->poll_waiting)
- {
- g_warning("g_main_context_prepare(): main loop already active in another thread");
- UNLOCK_CONTEXT (context);
- return FALSE;
- }
-
- context->poll_waiting = TRUE;
-#endif /* G_THREADS_ENABLED */
-
#if 0
/* If recursing, finish up current dispatch, before starting over */
if (context->pending_dispatches)
context->in_check_or_prepare--;
if (result)
- source->flags |= G_SOURCE_READY;
+ {
+ GSource *ready_source = source;
+
+ while (ready_source)
+ {
+ ready_source->flags |= G_SOURCE_READY;
+ ready_source = ready_source->priv ? ready_source->priv->parent_source : NULL;
+ }
+ }
}
if (source->flags & G_SOURCE_READY)
* g_main_context_query:
* @context: a #GMainContext
* @max_priority: maximum priority source to check
- * @timeout_: location to store timeout to be used in polling
- * @fds: location to store #GPollFD records that need to be polled.
+ * @timeout_: (out): location to store timeout to be used in polling
+ * @fds: (out caller-allocates) (array length=n_fds): location to
+ * store #GPollFD records that need to be polled.
* @n_fds: length of @fds.
*
* Determines information necessary to poll this main loop.
n_poll++;
}
-#ifdef G_THREADS_ENABLED
context->poll_changed = FALSE;
-#endif
if (timeout)
{
*timeout = context->timeout;
if (*timeout != 0)
- context->time_is_current = FALSE;
+ context->time_is_fresh = FALSE;
}
UNLOCK_CONTEXT (context);
* g_main_context_check:
* @context: a #GMainContext
* @max_priority: the maximum numerical priority of sources to check
- * @fds: array of #GPollFD's that was passed to the last call to
- * g_main_context_query()
+ * @fds: (array length=n_fds): array of #GPollFD's that was passed to
+ * the last call to g_main_context_query()
* @n_fds: return value of g_main_context_query()
*
* Passes the results of polling back to the main loop.
UNLOCK_CONTEXT (context);
return FALSE;
}
-
-#ifdef G_THREADS_ENABLED
- if (!context->poll_waiting)
- {
-#ifndef G_OS_WIN32
- gchar a;
- read (context->wake_up_pipe[0], &a, 1);
-#endif
- }
- else
- context->poll_waiting = FALSE;
+
+ if (context->wake_up_rec.events)
+ g_wakeup_acknowledge (context->wakeup);
/* If the set of poll file descriptors changed, bail out
* and let the main loop rerun
UNLOCK_CONTEXT (context);
return FALSE;
}
-#endif /* G_THREADS_ENABLED */
pollrec = context->poll_records;
i = 0;
context->in_check_or_prepare--;
if (result)
- source->flags |= G_SOURCE_READY;
+ {
+ GSource *ready_source = source;
+
+ while (ready_source)
+ {
+ ready_source->flags |= G_SOURCE_READY;
+ ready_source = ready_source->priv ? ready_source->priv->parent_source : NULL;
+ }
+ }
}
if (source->flags & G_SOURCE_READY)
gboolean some_ready;
gint nfds, allocated_nfds;
GPollFD *fds = NULL;
-
+
UNLOCK_CONTEXT (context);
-#ifdef G_THREADS_ENABLED
if (!g_main_context_acquire (context))
{
gboolean got_ownership;
-
- g_return_val_if_fail (g_thread_supported (), FALSE);
+
+ LOCK_CONTEXT (context);
if (!block)
return FALSE;
- LOCK_CONTEXT (context);
-
if (!context->cond)
context->cond = g_cond_new ();
-
+
got_ownership = g_main_context_wait (context,
context->cond,
- g_static_mutex_get_mutex (&context->mutex));
+ &context->mutex);
if (!got_ownership)
- {
- UNLOCK_CONTEXT (context);
- return FALSE;
- }
+ return FALSE;
}
else
LOCK_CONTEXT (context);
-#endif /* G_THREADS_ENABLED */
if (!context->cached_poll_array)
{
if (!block)
timeout = 0;
+ g_assert (!g_main_context_fork_detected);
g_main_context_poll (context, timeout, max_priority, fds, nfds);
some_ready = g_main_context_check (context, max_priority, fds, nfds);
if (dispatch)
g_main_context_dispatch (context);
-#ifdef G_THREADS_ENABLED
g_main_context_release (context);
-#endif /* G_THREADS_ENABLED */
LOCK_CONTEXT (context);
/**
* g_main_loop_new:
- * @context: a #GMainContext (if %NULL, the default context will be used).
+ * @context: (allow-none): a #GMainContext (if %NULL, the default context will be used).
* @is_running: set to %TRUE to indicate that the loop is running. This
* is not very important since calling g_main_loop_run() will set this to
* %TRUE anyway.
g_return_if_fail (loop != NULL);
g_return_if_fail (g_atomic_int_get (&loop->ref_count) > 0);
-#ifdef G_THREADS_ENABLED
if (!g_main_context_acquire (loop->context))
{
gboolean got_ownership = FALSE;
/* Another thread owns this context */
- if (!g_thread_supported ())
- {
- g_warning ("g_main_loop_run() was called from second thread but "
- "g_thread_init() was never called.");
- return;
- }
-
LOCK_CONTEXT (loop->context);
g_atomic_int_inc (&loop->ref_count);
while (loop->is_running && !got_ownership)
got_ownership = g_main_context_wait (loop->context,
loop->context->cond,
- g_static_mutex_get_mutex (&loop->context->mutex));
+ &loop->context->mutex);
if (!loop->is_running)
{
}
else
LOCK_CONTEXT (loop->context);
-#endif /* G_THREADS_ENABLED */
if (loop->context->in_check_or_prepare)
{
UNLOCK_CONTEXT (loop->context);
-#ifdef G_THREADS_ENABLED
g_main_context_release (loop->context);
-#endif /* G_THREADS_ENABLED */
g_main_loop_unref (loop);
}
LOCK_CONTEXT (loop->context);
loop->is_running = FALSE;
- g_main_context_wakeup_unlocked (loop->context);
+ g_wakeup_signal (loop->context->wakeup);
-#ifdef G_THREADS_ENABLED
if (loop->context->cond)
g_cond_broadcast (loop->context->cond);
-#endif /* G_THREADS_ENABLED */
UNLOCK_CONTEXT (loop->context);
}
*
* Returns the #GMainContext of @loop.
*
- * Return value: the #GMainContext of @loop
+ * Return value: (transfer none): the #GMainContext of @loop
**/
GMainContext *
g_main_loop_get_context (GMainLoop *loop)
if (n_fds || timeout != 0)
{
#ifdef G_MAIN_POLL_DEBUG
- if (g_main_poll_debug)
+ if (_g_main_poll_debug)
{
g_print ("polling context=%p n=%d timeout=%d\n",
context, n_fds, timeout);
}
#ifdef G_MAIN_POLL_DEBUG
- if (g_main_poll_debug)
+ if (_g_main_poll_debug)
{
LOCK_CONTEXT (context);
pollrec->fd->events &&
fds[i].revents)
{
- g_print (" [" GPOLLFD_FORMAT " :", fds[i].fd);
+ g_print (" [" G_POLLFD_FORMAT " :", fds[i].fd);
if (fds[i].revents & G_IO_IN)
g_print ("i");
if (fds[i].revents & G_IO_OUT)
* file descriptor is polled whenever the results may be needed.
*
* Adds a file descriptor to the set of file descriptors polled for
- * this context. This will very seldomly be used directly. Instead
+ * this context. This will very seldom be used directly. Instead
* a typical event source will use g_source_add_poll() instead.
**/
void
gint priority,
GPollFD *fd)
{
- GPollRec *lastrec, *pollrec;
+ GPollRec *prevrec, *nextrec;
GPollRec *newrec = g_slice_new (GPollRec);
/* This file descriptor may be checked before we ever poll */
newrec->fd = fd;
newrec->priority = priority;
- lastrec = NULL;
- pollrec = context->poll_records;
- while (pollrec && priority >= pollrec->priority)
+ prevrec = context->poll_records_tail;
+ nextrec = NULL;
+ while (prevrec && priority < prevrec->priority)
{
- lastrec = pollrec;
- pollrec = pollrec->next;
+ nextrec = prevrec;
+ prevrec = prevrec->prev;
}
-
- if (lastrec)
- lastrec->next = newrec;
+
+ if (prevrec)
+ prevrec->next = newrec;
else
context->poll_records = newrec;
- newrec->next = pollrec;
+ newrec->prev = prevrec;
+ newrec->next = nextrec;
+
+ if (nextrec)
+ nextrec->prev = newrec;
+ else
+ context->poll_records_tail = newrec;
context->n_poll_records++;
-#ifdef G_THREADS_ENABLED
context->poll_changed = TRUE;
/* Now wake up the main loop if it is waiting in the poll() */
- g_main_context_wakeup_unlocked (context);
-#endif
+ g_wakeup_signal (context->wakeup);
}
/**
g_main_context_remove_poll_unlocked (GMainContext *context,
GPollFD *fd)
{
- GPollRec *pollrec, *lastrec;
+ GPollRec *pollrec, *prevrec, *nextrec;
- lastrec = NULL;
+ prevrec = NULL;
pollrec = context->poll_records;
while (pollrec)
{
+ nextrec = pollrec->next;
if (pollrec->fd == fd)
{
- if (lastrec != NULL)
- lastrec->next = pollrec->next;
+ if (prevrec != NULL)
+ prevrec->next = nextrec;
else
- context->poll_records = pollrec->next;
+ context->poll_records = nextrec;
+
+ if (nextrec != NULL)
+ nextrec->prev = prevrec;
+ else
+ context->poll_records_tail = prevrec;
g_slice_free (GPollRec, pollrec);
context->n_poll_records--;
break;
}
- lastrec = pollrec;
- pollrec = pollrec->next;
+ prevrec = pollrec;
+ pollrec = nextrec;
}
-#ifdef G_THREADS_ENABLED
context->poll_changed = TRUE;
/* Now wake up the main loop if it is waiting in the poll() */
- g_main_context_wakeup_unlocked (context);
-#endif
+ g_wakeup_signal (context->wakeup);
}
/**
* g_source_get_current_time:
* @source: a #GSource
* @timeval: #GTimeVal structure in which to store current time.
- *
- * Gets the "current time" to be used when checking
- * this source. The advantage of calling this function over
- * calling g_get_current_time() directly is that when
- * checking multiple sources, GLib can cache a single value
- * instead of having to repeatedly get the system time.
+ *
+ * This function ignores @source and is otherwise the same as
+ * g_get_current_time().
+ *
+ * Deprecated: 2.28: use g_source_get_time() instead
**/
void
g_source_get_current_time (GSource *source,
GTimeVal *timeval)
{
+ g_get_current_time (timeval);
+}
+
+/**
+ * g_source_get_time:
+ * @source: a #GSource
+ *
+ * Gets the time to be used when checking this source. The advantage of
+ * calling this function over calling g_get_monotonic_time() directly is
+ * that when checking multiple sources, GLib can cache a single value
+ * instead of having to repeatedly get the system monotonic time.
+ *
+ * The time here is the system monotonic time, if available, or some
+ * other reasonable alternative otherwise. See g_get_monotonic_time().
+ *
+ * Returns: the monotonic time in microseconds
+ *
+ * Since: 2.28
+ **/
+gint64
+g_source_get_time (GSource *source)
+{
GMainContext *context;
-
- g_return_if_fail (source->context != NULL);
-
+ gint64 result;
+
+ g_return_val_if_fail (source->context != NULL, 0);
+
context = source->context;
LOCK_CONTEXT (context);
- if (!context->time_is_current)
+ if (!context->time_is_fresh)
{
- g_get_current_time (&context->current_time);
- context->time_is_current = TRUE;
+ context->time = g_get_monotonic_time ();
+ context->time_is_fresh = TRUE;
}
-
- *timeval = context->current_time;
-
+
+ result = context->time;
+
UNLOCK_CONTEXT (context);
+
+ return result;
}
/**
if (func)
context->poll_func = func;
else
- {
-#ifdef HAVE_POLL
- context->poll_func = (GPollFunc) poll;
-#else
- context->poll_func = (GPollFunc) g_poll;
-#endif
- }
+ context->poll_func = g_poll;
UNLOCK_CONTEXT (context);
}
return result;
}
-/* HOLDS: context's lock */
-/* Wake the main loop up from a poll() */
-static void
-g_main_context_wakeup_unlocked (GMainContext *context)
-{
-#ifdef G_THREADS_ENABLED
- if (g_thread_supported() && context->poll_waiting)
- {
- context->poll_waiting = FALSE;
-#ifndef G_OS_WIN32
- write (context->wake_up_pipe[1], "A", 1);
-#else
- ReleaseSemaphore (context->wake_up_semaphore, 1, NULL);
-#endif
- }
-#endif
-}
-
/**
* g_main_context_wakeup:
* @context: a #GMainContext
{
if (!context)
context = g_main_context_default ();
-
+
g_return_if_fail (g_atomic_int_get (&context->ref_count) > 0);
- LOCK_CONTEXT (context);
- g_main_context_wakeup_unlocked (context);
- UNLOCK_CONTEXT (context);
+ g_wakeup_signal (context->wakeup);
}
/**
* @context: a #GMainContext
*
* Determines whether this thread holds the (recursive)
- * ownership of this #GMaincontext. This is useful to
+ * ownership of this #GMainContext. This is useful to
* know before waiting on another thread that may be
* blocking to get ownership of @context.
*
if (!context)
context = g_main_context_default ();
-#ifdef G_THREADS_ENABLED
LOCK_CONTEXT (context);
is_owner = context->owner == G_THREAD_SELF;
UNLOCK_CONTEXT (context);
-#else
- is_owner = TRUE;
-#endif
return is_owner;
}
/* Timeouts */
static void
-g_timeout_set_expiration (GTimeoutSource *timeout_source,
- GTimeVal *current_time)
-{
- guint seconds = timeout_source->interval / 1000;
- guint msecs = timeout_source->interval - seconds * 1000;
-
- timeout_source->expiration.tv_sec = current_time->tv_sec + seconds;
- timeout_source->expiration.tv_usec = current_time->tv_usec + msecs * 1000;
- if (timeout_source->expiration.tv_usec >= 1000000)
- {
- timeout_source->expiration.tv_usec -= 1000000;
- timeout_source->expiration.tv_sec++;
- }
- if (timer_perturb==-1)
- {
- /*
- * we want a per machine/session unique 'random' value; try the dbus
- * address first, that has a UUID in it. If there is no dbus, use the
- * hostname for hashing.
- */
- const char *session_bus_address = g_getenv ("DBUS_SESSION_BUS_ADDRESS");
- if (!session_bus_address)
- session_bus_address = g_getenv ("HOSTNAME");
- if (session_bus_address)
- timer_perturb = ABS ((gint) g_str_hash (session_bus_address));
- else
- timer_perturb = 0;
- }
- if (timeout_source->granularity)
- {
- gint remainder;
- gint gran; /* in usecs */
- gint perturb;
+g_timeout_set_expiration (GTimeoutSource *timeout_source,
+ gint64 current_time)
+{
+ timeout_source->expiration = current_time +
+ (guint64) timeout_source->interval * 1000;
- gran = timeout_source->granularity * 1000;
- perturb = timer_perturb % gran;
- /*
- * We want to give each machine a per machine pertubation;
- * shift time back first, and forward later after the rounding
- */
+ if (timeout_source->seconds)
+ {
+ gint64 remainder;
+ static gint timer_perturb = -1;
- timeout_source->expiration.tv_usec -= perturb;
- if (timeout_source->expiration.tv_usec < 0)
+ if (timer_perturb == -1)
{
- timeout_source->expiration.tv_usec += 1000000;
- timeout_source->expiration.tv_sec--;
+ /*
+ * we want a per machine/session unique 'random' value; try the dbus
+ * address first, that has a UUID in it. If there is no dbus, use the
+ * hostname for hashing.
+ */
+ const char *session_bus_address = g_getenv ("DBUS_SESSION_BUS_ADDRESS");
+ if (!session_bus_address)
+ session_bus_address = g_getenv ("HOSTNAME");
+ if (session_bus_address)
+ timer_perturb = ABS ((gint) g_str_hash (session_bus_address)) % 1000000;
+ else
+ timer_perturb = 0;
}
- remainder = timeout_source->expiration.tv_usec % gran;
- if (remainder >= gran/4) /* round up */
- timeout_source->expiration.tv_usec += gran;
- timeout_source->expiration.tv_usec -= remainder;
- /* shift back */
- timeout_source->expiration.tv_usec += perturb;
+ /* We want the microseconds part of the timeout to land on the
+ * 'timer_perturb' mark, but we need to make sure we don't try to
+ * set the timeout in the past. We do this by ensuring that we
+ * always only *increase* the expiration time by adding a full
+ * second in the case that the microsecond portion decreases.
+ */
+ timeout_source->expiration -= timer_perturb;
- /* the rounding may have overflown tv_usec */
- while (timeout_source->expiration.tv_usec > 1000000)
- {
- timeout_source->expiration.tv_usec -= 1000000;
- timeout_source->expiration.tv_sec++;
- }
+ remainder = timeout_source->expiration % 1000000;
+ if (remainder >= 1000000/4)
+ timeout_source->expiration += 1000000;
+
+ timeout_source->expiration -= remainder;
+ timeout_source->expiration += timer_perturb;
}
}
static gboolean
g_timeout_prepare (GSource *source,
- gint *timeout)
+ gint *timeout)
{
- glong sec;
- glong msec;
- GTimeVal current_time;
-
- GTimeoutSource *timeout_source = (GTimeoutSource *)source;
+ GTimeoutSource *timeout_source = (GTimeoutSource *) source;
+ gint64 now = g_source_get_time (source);
- g_source_get_current_time (source, ¤t_time);
-
- sec = timeout_source->expiration.tv_sec - current_time.tv_sec;
- msec = (timeout_source->expiration.tv_usec - current_time.tv_usec) / 1000;
-
- /* We do the following in a rather convoluted fashion to deal with
- * the fact that we don't have an integral type big enough to hold
- * the difference of two timevals in millseconds.
- */
- if (sec < 0 || (sec == 0 && msec < 0))
- msec = 0;
- else
+ if (now < timeout_source->expiration)
{
- glong interval_sec = timeout_source->interval / 1000;
- glong interval_msec = timeout_source->interval % 1000;
-
- if (msec < 0)
- {
- msec += 1000;
- sec -= 1;
- }
-
- if (sec > interval_sec ||
- (sec == interval_sec && msec > interval_msec))
- {
- /* The system time has been set backwards, so we
- * reset the expiration time to now + timeout_source->interval;
- * this at least avoids hanging for long periods of time.
- */
- g_timeout_set_expiration (timeout_source, ¤t_time);
- msec = MIN (G_MAXINT, timeout_source->interval);
- }
- else
- {
- msec = MIN (G_MAXINT, (guint)msec + 1000 * (guint)sec);
- }
+ /* Round up to ensure that we don't try again too early */
+ *timeout = (timeout_source->expiration - now + 999) / 1000;
+ return FALSE;
}
- *timeout = (gint)msec;
-
- return msec == 0;
+ *timeout = 0;
+ return TRUE;
}
static gboolean
g_timeout_check (GSource *source)
{
- GTimeVal current_time;
- GTimeoutSource *timeout_source = (GTimeoutSource *)source;
+ GTimeoutSource *timeout_source = (GTimeoutSource *) source;
+ gint64 now = g_source_get_time (source);
- g_source_get_current_time (source, ¤t_time);
-
- return ((timeout_source->expiration.tv_sec < current_time.tv_sec) ||
- ((timeout_source->expiration.tv_sec == current_time.tv_sec) &&
- (timeout_source->expiration.tv_usec <= current_time.tv_usec)));
+ return timeout_source->expiration <= now;
}
static gboolean
g_timeout_dispatch (GSource *source,
- GSourceFunc callback,
- gpointer user_data)
+ GSourceFunc callback,
+ gpointer user_data)
{
GTimeoutSource *timeout_source = (GTimeoutSource *)source;
+ gboolean again;
if (!callback)
{
g_warning ("Timeout source dispatched without callback\n"
- "You must call g_source_set_callback().");
+ "You must call g_source_set_callback().");
return FALSE;
}
-
- if (callback (user_data))
- {
- GTimeVal current_time;
- g_source_get_current_time (source, ¤t_time);
- g_timeout_set_expiration (timeout_source, ¤t_time);
+ again = callback (user_data);
- return TRUE;
- }
- else
- return FALSE;
+ if (again)
+ g_timeout_set_expiration (timeout_source, g_source_get_time (source));
+
+ return again;
}
/**
* The source will not initially be associated with any #GMainContext
* and must be added to one with g_source_attach() before it will be
* executed.
+ *
+ * The interval given is in terms of monotonic time, not wall clock
+ * time. See g_get_monotonic_time().
*
* Return value: the newly-created timeout source
**/
{
GSource *source = g_source_new (&g_timeout_funcs, sizeof (GTimeoutSource));
GTimeoutSource *timeout_source = (GTimeoutSource *)source;
- GTimeVal current_time;
timeout_source->interval = interval;
+ g_timeout_set_expiration (timeout_source, g_get_monotonic_time ());
- g_get_current_time (¤t_time);
- g_timeout_set_expiration (timeout_source, ¤t_time);
-
return source;
}
* The scheduling granularity/accuracy of this timeout source will be
* in seconds.
*
+ * The interval given in terms of monotonic time, not wall clock time.
+ * See g_get_monotonic_time().
+ *
* Return value: the newly-created timeout source
*
* Since: 2.14
{
GSource *source = g_source_new (&g_timeout_funcs, sizeof (GTimeoutSource));
GTimeoutSource *timeout_source = (GTimeoutSource *)source;
- GTimeVal current_time;
- timeout_source->interval = 1000*interval;
- timeout_source->granularity = 1000;
+ timeout_source->interval = 1000 * interval;
+ timeout_source->seconds = TRUE;
- g_get_current_time (¤t_time);
- g_timeout_set_expiration (timeout_source, ¤t_time);
+ g_timeout_set_expiration (timeout_source, g_get_monotonic_time ());
return source;
}
* After each call to the timeout function, the time of the next
* timeout is recalculated based on the current time and the given interval
* (it does not try to 'catch up' time lost in delays).
+ *
+ * This internally creates a main loop source using g_timeout_source_new()
+ * and attaches it to the main loop context using g_source_attach(). You can
+ * do these steps manually if you need greater control.
+ *
+ * The interval given in terms of monotonic time, not wall clock time.
+ * See g_get_monotonic_time().
*
* Return value: the ID (greater than 0) of the event source.
+ * Rename to: g_timeout_add
**/
guint
g_timeout_add_full (gint priority,
* g_timeout_add_seconds() function; this function allows for more
* optimizations and more efficient system power usage.
*
+ * This internally creates a main loop source using g_timeout_source_new()
+ * and attaches it to the main loop context using g_source_attach(). You can
+ * do these steps manually if you need greater control.
+ *
+ * The interval given is in terms of monotonic time, not wall clock
+ * time. See g_get_monotonic_time().
+ *
* Return value: the ID (greater than 0) of the event source.
**/
guint
* and you don't require the first timer exactly one second from now, the
* use of g_timeout_add_seconds() is preferred over g_timeout_add().
*
+ * This internally creates a main loop source using
+ * g_timeout_source_new_seconds() and attaches it to the main loop context
+ * using g_source_attach(). You can do these steps manually if you need
+ * greater control.
+ *
+ * The interval given is in terms of monotonic time, not wall clock
+ * time. See g_get_monotonic_time().
+ *
* Return value: the ID (greater than 0) of the event source.
*
+ * Rename to: g_timeout_add_seconds
* Since: 2.14
**/
guint
* it returns %FALSE, at which point the timeout is automatically destroyed
* and the function will not be called again.
*
- * See g_timeout_add_seconds_full() for the differences between
- * g_timeout_add() and g_timeout_add_seconds().
+ * This internally creates a main loop source using
+ * g_timeout_source_new_seconds() and attaches it to the main loop context
+ * using g_source_attach(). You can do these steps manually if you need
+ * greater control. Also see g_timeout_add_seconds_full().
+ *
+ * Note that the first call of the timer may not be precise for timeouts
+ * of one second. If you need finer precision and have such a timeout,
+ * you may want to use g_timeout_add() instead.
*
+ * The interval given is in terms of monotonic time, not wall clock
+ * time. See g_get_monotonic_time().
+ *
* Return value: the ID (greater than 0) of the event source.
*
* Since: 2.14
return FALSE;
}
-
static gboolean
g_child_watch_check (GSource *source)
{
return child_exited;
}
+static void
+g_child_watch_finalize (GSource *source)
+{
+}
+
#else /* G_OS_WIN32 */
-static gboolean
-check_for_child_exited (GSource *source)
+static void
+wake_source (GSource *source)
{
- GChildWatchSource *child_watch_source;
- gint count;
+ GMainContext *context;
+
+ /* This should be thread-safe:
+ *
+ * - if the source is currently being added to a context, that
+ * context will be woken up anyway
+ *
+ * - if the source is currently being destroyed, we simply need not
+ * to crash:
+ *
+ * - the memory for the source will remain valid until after the
+ * source finalize function was called (which would remove the
+ * source from the global list which we are currently holding the
+ * lock for)
+ *
+ * - the GMainContext will either be NULL or point to a live
+ * GMainContext
+ *
+ * - the GMainContext will remain valid since we hold the
+ * main_context_list lock
+ *
+ * Since we are holding a lot of locks here, don't try to enter any
+ * more GMainContext functions for fear of dealock -- just hit the
+ * GWakeup and run. Even if that's safe now, it could easily become
+ * unsafe with some very minor changes in the future, and signal
+ * handling is not the most well-tested codepath.
+ */
+ G_LOCK(main_context_list);
+ context = source->context;
+ if (context)
+ g_wakeup_signal (context->wakeup);
+ G_UNLOCK(main_context_list);
+}
- /* protect against another SIGCHLD in the middle of this call */
- count = child_watch_count;
+static void
+dispatch_unix_signals (void)
+{
+ GSList *node;
- child_watch_source = (GChildWatchSource *) source;
+ /* clear this first incase another one arrives while we're processing */
+ any_unix_signal_pending = FALSE;
- if (child_watch_source->child_exited)
- return TRUE;
+ G_LOCK(unix_signal_lock);
- if (child_watch_source->count < count)
+ /* handle GChildWatchSource instances */
+ if (unix_signal_pending[SIGCHLD])
{
- gint child_status;
+ unix_signal_pending[SIGCHLD] = FALSE;
+
+ /* The only way we can do this is to scan all of the children.
+ *
+ * The docs promise that we will not reap children that we are not
+ * explicitly watching, so that ties our hands from calling
+ * waitpid(-1). We also can't use siginfo's si_pid field since if
+ * multiple SIGCHLD arrive at the same time, one of them can be
+ * dropped (since a given UNIX signal can only be pending once).
+ */
+ for (node = unix_child_watches; node; node = node->next)
+ {
+ GChildWatchSource *source = node->data;
- if (waitpid (child_watch_source->pid, &child_status, WNOHANG) > 0)
- {
- child_watch_source->child_status = child_status;
- child_watch_source->child_exited = TRUE;
- }
- child_watch_source->count = count;
+ if (!source->child_exited)
+ {
+ if (waitpid (source->pid, &source->child_status, WNOHANG) > 0)
+ {
+ source->child_exited = TRUE;
+
+ wake_source ((GSource *) source);
+ }
+ }
+ }
}
- return child_watch_source->child_exited;
+ /* handle GUnixSignalWatchSource instances */
+ for (node = unix_signal_watches; node; node = node->next)
+ {
+ GUnixSignalWatchSource *source = node->data;
+
+ if (!source->pending)
+ {
+ if (unix_signal_pending[source->signum])
+ {
+ unix_signal_pending[source->signum] = FALSE;
+ source->pending = TRUE;
+
+ wake_source ((GSource *) source);
+ }
+ }
+ }
+
+ G_UNLOCK(unix_signal_lock);
}
static gboolean
g_child_watch_prepare (GSource *source,
gint *timeout)
{
- *timeout = -1;
+ GChildWatchSource *child_watch_source;
- return check_for_child_exited (source);
+ child_watch_source = (GChildWatchSource *) source;
+
+ return child_watch_source->child_exited;
}
+static gboolean
+g_child_watch_check (GSource *source)
+{
+ GChildWatchSource *child_watch_source;
+
+ child_watch_source = (GChildWatchSource *) source;
-static gboolean
-g_child_watch_check (GSource *source)
+ return child_watch_source->child_exited;
+}
+
+static gboolean
+g_unix_signal_watch_prepare (GSource *source,
+ gint *timeout)
{
- return check_for_child_exited (source);
+ GUnixSignalWatchSource *unix_signal_source;
+
+ unix_signal_source = (GUnixSignalWatchSource *) source;
+
+ return unix_signal_source->pending;
}
-#endif /* G_OS_WIN32 */
+static gboolean
+g_unix_signal_watch_check (GSource *source)
+{
+ GUnixSignalWatchSource *unix_signal_source;
+
+ unix_signal_source = (GUnixSignalWatchSource *) source;
+
+ return unix_signal_source->pending;
+}
static gboolean
-g_child_watch_dispatch (GSource *source,
- GSourceFunc callback,
- gpointer user_data)
+g_unix_signal_watch_dispatch (GSource *source,
+ GSourceFunc callback,
+ gpointer user_data)
{
- GChildWatchSource *child_watch_source;
- GChildWatchFunc child_watch_callback = (GChildWatchFunc) callback;
+ GUnixSignalWatchSource *unix_signal_source;
- child_watch_source = (GChildWatchSource *) source;
+ unix_signal_source = (GUnixSignalWatchSource *) source;
if (!callback)
{
- g_warning ("Child watch source dispatched without callback\n"
+ g_warning ("Unix signal source dispatched without callback\n"
"You must call g_source_set_callback().");
return FALSE;
}
- (child_watch_callback) (child_watch_source->pid, child_watch_source->child_status, user_data);
+ (callback) (user_data);
- /* We never keep a child watch source around as the child is gone */
- return FALSE;
-}
+ unix_signal_source->pending = FALSE;
-#ifndef G_OS_WIN32
+ return TRUE;
+}
static void
-g_child_watch_signal_handler (int signum)
+ensure_unix_signal_handler_installed_unlocked (int signum)
{
- child_watch_count ++;
+ static sigset_t installed_signal_mask;
+ static gboolean initialized;
+ struct sigaction action;
- if (child_watch_init_state == CHILD_WATCH_INITIALIZED_THREADED)
- {
- write (child_watch_wake_up_pipe[1], "B", 1);
- }
- else
+ if (!initialized)
{
- /* We count on the signal interrupting the poll in the same thread.
- */
+ sigemptyset (&installed_signal_mask);
+ g_get_worker_context ();
+ initialized = TRUE;
}
-}
-
-static void
-g_child_watch_source_init_single (void)
-{
- struct sigaction action;
- g_assert (! g_thread_supported());
- g_assert (child_watch_init_state == CHILD_WATCH_UNINITIALIZED);
+ if (sigismember (&installed_signal_mask, signum))
+ return;
- child_watch_init_state = CHILD_WATCH_INITIALIZED_SINGLE;
+ sigaddset (&installed_signal_mask, signum);
- action.sa_handler = g_child_watch_signal_handler;
+ action.sa_handler = g_unix_signal_handler;
sigemptyset (&action.sa_mask);
- action.sa_flags = SA_NOCLDSTOP;
- sigaction (SIGCHLD, &action, NULL);
+ action.sa_flags = SA_RESTART | SA_NOCLDSTOP;
+ sigaction (signum, &action, NULL);
}
-static gpointer
-child_watch_helper_thread (gpointer data)
+GSource *
+_g_main_create_unix_signal_watch (int signum)
{
- while (1)
- {
- gchar b[20];
- GSList *list;
+ GSource *source;
+ GUnixSignalWatchSource *unix_signal_source;
- read (child_watch_wake_up_pipe[0], b, 20);
+ source = g_source_new (&g_unix_signal_funcs, sizeof (GUnixSignalWatchSource));
+ unix_signal_source = (GUnixSignalWatchSource *) source;
- /* We were woken up. Wake up all other contexts in all other threads */
- G_LOCK (main_context_list);
- for (list = main_context_list; list; list = list->next)
- {
- GMainContext *context;
-
- context = list->data;
- if (g_atomic_int_get (&context->ref_count) > 0)
- /* Due to racing conditions we can find ref_count == 0, in
- * that case, however, the context is still not destroyed
- * and no poll can be active, otherwise the ref_count
- * wouldn't be 0 */
- g_main_context_wakeup (context);
- }
- G_UNLOCK (main_context_list);
- }
+ unix_signal_source->signum = signum;
+ unix_signal_source->pending = FALSE;
+
+ G_LOCK (unix_signal_lock);
+ ensure_unix_signal_handler_installed_unlocked (signum);
+ unix_signal_watches = g_slist_prepend (unix_signal_watches, unix_signal_source);
+ if (unix_signal_pending[signum])
+ unix_signal_source->pending = TRUE;
+ unix_signal_pending[signum] = FALSE;
+ G_UNLOCK (unix_signal_lock);
- return NULL;
+ return source;
}
static void
-g_child_watch_source_init_multi_threaded (void)
+g_unix_signal_watch_finalize (GSource *source)
{
- GError *error = NULL;
- struct sigaction action;
-
- g_assert (g_thread_supported());
-
- if (pipe (child_watch_wake_up_pipe) < 0)
- g_error ("Cannot create wake up pipe: %s\n", g_strerror (errno));
- fcntl (child_watch_wake_up_pipe[1], F_SETFL, O_NONBLOCK | fcntl (child_watch_wake_up_pipe[1], F_GETFL));
-
- /* We create a helper thread that polls on the wakeup pipe indefinitely */
- /* FIXME: Think this through for races */
- if (g_thread_create (child_watch_helper_thread, NULL, FALSE, &error) == NULL)
- g_error ("Cannot create a thread to monitor child exit status: %s\n", error->message);
- child_watch_init_state = CHILD_WATCH_INITIALIZED_THREADED;
-
- action.sa_handler = g_child_watch_signal_handler;
- sigemptyset (&action.sa_mask);
- action.sa_flags = SA_RESTART | SA_NOCLDSTOP;
- sigaction (SIGCHLD, &action, NULL);
+ G_LOCK (unix_signal_lock);
+ unix_signal_watches = g_slist_remove (unix_signal_watches, source);
+ G_UNLOCK (unix_signal_lock);
}
static void
-g_child_watch_source_init_promote_single_to_threaded (void)
+g_child_watch_finalize (GSource *source)
{
- g_child_watch_source_init_multi_threaded ();
+ G_LOCK (unix_signal_lock);
+ unix_child_watches = g_slist_remove (unix_child_watches, source);
+ G_UNLOCK (unix_signal_lock);
}
-static void
-g_child_watch_source_init (void)
+#endif /* G_OS_WIN32 */
+
+static gboolean
+g_child_watch_dispatch (GSource *source,
+ GSourceFunc callback,
+ gpointer user_data)
{
- if (g_thread_supported())
- {
- if (child_watch_init_state == CHILD_WATCH_UNINITIALIZED)
- g_child_watch_source_init_multi_threaded ();
- else if (child_watch_init_state == CHILD_WATCH_INITIALIZED_SINGLE)
- g_child_watch_source_init_promote_single_to_threaded ();
- }
- else
+ GChildWatchSource *child_watch_source;
+ GChildWatchFunc child_watch_callback = (GChildWatchFunc) callback;
+
+ child_watch_source = (GChildWatchSource *) source;
+
+ if (!callback)
{
- if (child_watch_init_state == CHILD_WATCH_UNINITIALIZED)
- g_child_watch_source_init_single ();
+ g_warning ("Child watch source dispatched without callback\n"
+ "You must call g_source_set_callback().");
+ return FALSE;
}
+
+ (child_watch_callback) (child_watch_source->pid, child_watch_source->child_status, user_data);
+
+ /* We never keep a child watch source around as the child is gone */
+ return FALSE;
+}
+
+#ifndef G_OS_WIN32
+
+static void
+g_unix_signal_handler (int signum)
+{
+ unix_signal_pending[signum] = TRUE;
+ any_unix_signal_pending = TRUE;
+
+ g_wakeup_signal (glib_worker_context->wakeup);
}
#endif /* !G_OS_WIN32 */
GSource *source = g_source_new (&g_child_watch_funcs, sizeof (GChildWatchSource));
GChildWatchSource *child_watch_source = (GChildWatchSource *)source;
+ child_watch_source->pid = pid;
+
#ifdef G_OS_WIN32
child_watch_source->poll.fd = (gintptr) pid;
child_watch_source->poll.events = G_IO_IN;
g_source_add_poll (source, &child_watch_source->poll);
#else /* G_OS_WIN32 */
- g_child_watch_source_init ();
+ G_LOCK (unix_signal_lock);
+ ensure_unix_signal_handler_installed_unlocked (SIGCHLD);
+ unix_child_watches = g_slist_prepend (unix_child_watches, child_watch_source);
+ if (waitpid (pid, &child_watch_source->child_status, WNOHANG) > 0)
+ child_watch_source->child_exited = TRUE;
+ G_UNLOCK (unix_signal_lock);
#endif /* G_OS_WIN32 */
- child_watch_source->pid = pid;
-
return source;
}
*
* GLib supports only a single callback per process id.
*
+ * This internally creates a main loop source using
+ * g_child_watch_source_new() and attaches it to the main loop context
+ * using g_source_attach(). You can do these steps manually if you
+ * need greater control.
+ *
* Return value: the ID (greater than 0) of the event source.
*
+ * Rename to: g_child_watch_add
* Since: 2.4
**/
guint
*
* GLib supports only a single callback per process id.
*
+ * This internally creates a main loop source using
+ * g_child_watch_source_new() and attaches it to the main loop context
+ * using g_source_attach(). You can do these steps manually if you
+ * need greater control.
+ *
* Return value: the ID (greater than 0) of the event source.
*
* Since: 2.4
/**
* g_idle_add_full:
* @priority: the priority of the idle source. Typically this will be in the
- * range btweeen #G_PRIORITY_DEFAULT_IDLE and #G_PRIORITY_HIGH_IDLE.
+ * range between #G_PRIORITY_DEFAULT_IDLE and #G_PRIORITY_HIGH_IDLE.
* @function: function to call
* @data: data to pass to @function
* @notify: function to call when the idle is removed, or %NULL
* events pending. If the function returns %FALSE it is automatically
* removed from the list of event sources and will not be called again.
*
+ * This internally creates a main loop source using g_idle_source_new()
+ * and attaches it to the main loop context using g_source_attach().
+ * You can do these steps manually if you need greater control.
+ *
* Return value: the ID (greater than 0) of the event source.
+ * Rename to: g_idle_add
**/
guint
g_idle_add_full (gint priority,
* returns %FALSE it is automatically removed from the list of event
* sources and will not be called again.
*
+ * This internally creates a main loop source using g_idle_source_new()
+ * and attaches it to the main loop context using g_source_attach().
+ * You can do these steps manually if you need greater control.
+ *
* Return value: the ID (greater than 0) of the event source.
**/
guint
return g_source_remove_by_funcs_user_data (&g_idle_funcs, data);
}
-#define __G_MAIN_C__
-#include "galiasdef.c"
+/**
+ * g_main_context_invoke:
+ * @context: (allow-none): a #GMainContext, or %NULL
+ * @function: function to call
+ * @data: data to pass to @function
+ *
+ * Invokes a function in such a way that @context is owned during the
+ * invocation of @function.
+ *
+ * If @context is %NULL then the global default main context — as
+ * returned by g_main_context_default() — is used.
+ *
+ * If @context is owned by the current thread, @function is called
+ * directly. Otherwise, if @context is the thread-default main context
+ * of the current thread and g_main_context_acquire() succeeds, then
+ * @function is called and g_main_context_release() is called
+ * afterwards.
+ *
+ * In any other case, an idle source is created to call @function and
+ * that source is attached to @context (presumably to be run in another
+ * thread). The idle source is attached with #G_PRIORITY_DEFAULT
+ * priority. If you want a different priority, use
+ * g_main_context_invoke_full().
+ *
+ * Note that, as with normal idle functions, @function should probably
+ * return %FALSE. If it returns %TRUE, it will be continuously run in a
+ * loop (and may prevent this call from returning).
+ *
+ * Since: 2.28
+ **/
+void
+g_main_context_invoke (GMainContext *context,
+ GSourceFunc function,
+ gpointer data)
+{
+ g_main_context_invoke_full (context,
+ G_PRIORITY_DEFAULT,
+ function, data, NULL);
+}
+
+/**
+ * g_main_context_invoke_full:
+ * @context: (allow-none): a #GMainContext, or %NULL
+ * @priority: the priority at which to run @function
+ * @function: function to call
+ * @data: data to pass to @function
+ * @notify: a function to call when @data is no longer in use, or %NULL.
+ *
+ * Invokes a function in such a way that @context is owned during the
+ * invocation of @function.
+ *
+ * This function is the same as g_main_context_invoke() except that it
+ * lets you specify the priority incase @function ends up being
+ * scheduled as an idle and also lets you give a #GDestroyNotify for @data.
+ *
+ * @notify should not assume that it is called from any particular
+ * thread or with any particular context acquired.
+ *
+ * Since: 2.28
+ **/
+void
+g_main_context_invoke_full (GMainContext *context,
+ gint priority,
+ GSourceFunc function,
+ gpointer data,
+ GDestroyNotify notify)
+{
+ g_return_if_fail (function != NULL);
+
+ if (!context)
+ context = g_main_context_default ();
+
+ if (g_main_context_is_owner (context))
+ {
+ while (function (data));
+ if (notify != NULL)
+ notify (data);
+ }
+
+ else
+ {
+ GMainContext *thread_default;
+
+ thread_default = g_main_context_get_thread_default ();
+
+ if (!thread_default)
+ thread_default = g_main_context_default ();
+
+ if (thread_default == context && g_main_context_acquire (context))
+ {
+ while (function (data));
+
+ g_main_context_release (context);
+
+ if (notify != NULL)
+ notify (data);
+ }
+ else
+ {
+ GSource *source;
+
+ source = g_idle_source_new ();
+ g_source_set_priority (source, priority);
+ g_source_set_callback (source, function, data, notify);
+ g_source_attach (source, context);
+ g_source_unref (source);
+ }
+ }
+}
+
+static gpointer
+glib_worker_main (gpointer data)
+{
+ while (TRUE)
+ {
+ g_main_context_iteration (glib_worker_context, TRUE);
+
+#ifdef G_OS_UNIX
+ if (any_unix_signal_pending)
+ dispatch_unix_signals ();
+#endif
+ }
+
+ return NULL; /* worst GCC warning message ever... */
+}
+
+GMainContext *
+g_get_worker_context (void)
+{
+ static gsize initialised;
+
+ g_thread_init_glib ();
+
+ if (g_once_init_enter (&initialised))
+ {
+ GError *error = NULL;
+
+ glib_worker_context = g_main_context_new ();
+ if (g_thread_new ("gmain", glib_worker_main, NULL, FALSE, &error) == NULL)
+ g_error ("Creating GLib worker thread failed: %s\n", error->message);
+
+ g_once_init_leave (&initialised, TRUE);
+ }
+
+ return glib_worker_context;
+}