1 /* Function for handling the GLib event loop.
3 Copyright (C) 2009-2012 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http§://www.gnu.org/licenses/>. */
25 #if defined (USE_GTK) || defined (HAVE_GCONF) || defined (HAVE_GSETTINGS)
33 static ptrdiff_t gfds_size
;
36 xg_select (int max_fds
, SELECT_TYPE
*rfds
, SELECT_TYPE
*wfds
, SELECT_TYPE
*efds
,
39 SELECT_TYPE all_rfds
, all_wfds
;
40 EMACS_TIME tmo
, *tmop
= timeout
;
42 GMainContext
*context
;
43 int have_wfds
= wfds
!= NULL
;
44 int n_gfds
= 0, our_tmo
= 0, retval
= 0, our_fds
= 0;
45 int i
, nfds
, fds_lim
, tmo_in_millisec
;
48 return select (max_fds
, rfds
, wfds
, efds
, timeout
);
50 if (rfds
) memcpy (&all_rfds
, rfds
, sizeof (all_rfds
));
51 else FD_ZERO (&all_rfds
);
52 if (wfds
) memcpy (&all_wfds
, wfds
, sizeof (all_rfds
));
53 else FD_ZERO (&all_wfds
);
55 /* Update event sources in GLib. */
56 context
= g_main_context_default ();
57 g_main_context_pending (context
);
60 if (n_gfds
> gfds_size
)
63 gfds
= xpalloc (0, &gfds_size
, n_gfds
- gfds_size
, INT_MAX
,
67 n_gfds
= g_main_context_query (context
,
72 } while (n_gfds
> gfds_size
);
74 for (i
= 0; i
< n_gfds
; ++i
)
76 if (gfds
[i
].events
& G_IO_IN
)
78 FD_SET (gfds
[i
].fd
, &all_rfds
);
79 if (gfds
[i
].fd
> max_fds
) max_fds
= gfds
[i
].fd
;
81 if (gfds
[i
].events
& G_IO_OUT
)
83 FD_SET (gfds
[i
].fd
, &all_wfds
);
84 if (gfds
[i
].fd
> max_fds
) max_fds
= gfds
[i
].fd
;
89 if (tmo_in_millisec
>= 0)
91 EMACS_SET_SECS_USECS (tmo
, tmo_in_millisec
/1000,
92 1000 * (tmo_in_millisec
% 1000));
93 if (!timeout
) our_tmo
= 1;
96 EMACS_TIME difference
;
98 EMACS_SUB_TIME (difference
, tmo
, *timeout
);
99 if (EMACS_TIME_NEG_P (difference
)) our_tmo
= 1;
102 if (our_tmo
) tmop
= &tmo
;
105 fds_lim
= max_fds
+ 1;
106 nfds
= select (fds_lim
, &all_rfds
, have_wfds
? &all_wfds
: NULL
, efds
, tmop
);
112 for (i
= 0; i
< fds_lim
; ++i
)
114 if (FD_ISSET (i
, &all_rfds
))
116 if (rfds
&& FD_ISSET (i
, rfds
)) ++retval
;
122 if (have_wfds
&& FD_ISSET (i
, &all_wfds
))
124 if (wfds
&& FD_ISSET (i
, wfds
)) ++retval
;
130 if (efds
&& FD_ISSET (i
, efds
))
135 if (our_fds
> 0 || (nfds
== 0 && our_tmo
))
138 /* If Gtk+ is in use eventually gtk_main_iteration will be called,
139 unless retval is zero. */
143 while (g_main_context_pending (context
))
144 g_main_context_dispatch (context
);
146 /* To not have to recalculate timeout, return like this. */
156 #endif /* USE_GTK || HAVE_GCONF || HAVE_GSETTINGS */
159 xgselect_initialize (void)
161 #if defined (USE_GTK) || defined (HAVE_GCONF) || defined (HAVE_GSETTINGS)
163 gfds
= xmalloc (sizeof (*gfds
)*gfds_size
);