void
ring_bell (struct frame *f)
{
if (!NILP (Vring_bell_function))
{
Lisp_Object function;
/* Temporarily set the global variable to nil
so that if we get an error, it stays nil
and we don't call it over and over.
We don't specbind it, because that would carefully
restore the bad value if there's an error
and make the loop of errors happen anyway. */
function = Vring_bell_function;
Vring_bell_function = Qnil;
call0 (function);
Vring_bell_function = function;
}
else if (FRAME_TERMINAL (f)->ring_bell_hook)
(*FRAME_TERMINAL (f)->ring_bell_hook) (f);
}
static void
mswindows_init_device (struct device *d, Lisp_Object UNUSED (props))
{
HDC hdc;
WNDCLASSEXW wc;
call0 (Qmake_device_early_mswindows_entry_point);
DEVICE_CLASS (d) = Qcolor;
DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1;
init_baud_rate (d);
init_one_device (d);
#ifdef NEW_GC
d->device_data = XMSWINDOWS_DEVICE (ALLOC_NORMAL_LISP_OBJECT (mswindows_device));
#else /* not NEW_GC */
d->device_data = xnew_and_zero (struct mswindows_device);
#endif /* not NEW_GC */
hdc = CreateCompatibleDC (NULL);
assert (hdc != NULL);
DEVICE_MSWINDOWS_HCDC (d) = hdc;
DEVICE_MSWINDOWS_FONTLIST (d) = mswindows_enumerate_fonts (hdc);
DEVICE_MSWINDOWS_UPDATE_TICK (d) = GetTickCount ();
/* Register the main window class */
wc.cbSize = sizeof (wc);
wc.style = CS_OWNDC; /* One DC per window */
wc.lpfnWndProc = (WNDPROC) mswindows_wnd_proc;
wc.cbClsExtra = 0;
wc.cbWndExtra = MSWINDOWS_WINDOW_EXTRA_BYTES;
/* This must match whatever is passed to CreateWIndowEx, NULL is ok
for this. */
wc.hInstance = NULL;
wc.hIcon = qxeLoadIcon (qxeGetModuleHandle (NULL), XETEXT (XEMACS_CLASS));
wc.hCursor = qxeLoadCursor (NULL, IDC_ARROW);
/* Background brush is only used during sizing, when XEmacs cannot
take over */
wc.hbrBackground = (HBRUSH) (COLOR_APPWORKSPACE + 1);
wc.lpszMenuName = NULL;
wc.lpszClassName = (XELPTSTR) XETEXT (XEMACS_CLASS);
wc.hIconSm = (HICON) qxeLoadImage (qxeGetModuleHandle (NULL),
XETEXT (XEMACS_CLASS),
IMAGE_ICON, 16, 16, 0);
qxeRegisterClassEx (&wc);
#ifdef HAVE_WIDGETS
xzero (wc);
/* Register the main window class */
wc.cbSize = sizeof (wc);
wc.lpfnWndProc = (WNDPROC) mswindows_control_wnd_proc;
wc.lpszClassName = (XELPTSTR) XETEXT (XEMACS_CONTROL_CLASS);
wc.hInstance = NULL;
qxeRegisterClassEx (&wc);
#endif
#if defined (HAVE_TOOLBARS) || defined (HAVE_WIDGETS)
InitCommonControls ();
#endif
}
int main(int argc, char *argv[])
{
call0();
call1();
call2(0,0,0,0,0,0,0,0,0);
call3();
call4();
}
boost::function<int (int, int)> linear(const int& slope) {
int BOOST_LOCAL_FUNCTION(const bind& slope,
int x, default 1, int y, default 2) {
return x + slope * y;
} BOOST_LOCAL_FUNCTION_NAME(lin)
boost::function<int (int, int)> f = lin; // Assign to local variable.
BOOST_TEST(f(1, 2) == 5);
call1(lin); // Pass to other functions.
call0(lin);
return lin; // Return.
}
static void call (void *arg)
{
struct call_args *a = arg;
char szDestAddr[FTN_ADDR_SZ + 1];
#if defined(WITH_PERL) && defined(HAVE_THREADS)
void *cperl;
#endif
#if defined(WITH_PERL) && defined(HAVE_THREADS)
cperl = perl_init_clone(a->config);
#endif
if (bsy_add (&a->node->fa, F_CSY, a->config))
{
call0 (a->node, a->config);
bsy_remove (&a->node->fa, F_CSY, a->config);
}
else
{
ftnaddress_to_str (szDestAddr, &a->node->fa);
Log (4, "%s busy, skipping", szDestAddr);
}
#if defined(WITH_PERL) && defined(HAVE_THREADS)
perl_done_clone(cperl);
#endif
unlock_config_structure(a->config, 0);
free (arg);
rel_grow_handles(-6);
#ifdef HAVE_THREADS
threadsafe(--n_clients);
PostSem(&eothread);
if (poll_flag)
PostSem(&wakecmgr);
_endthread();
#elif defined(DOS) || defined(DEBUGCHILD)
--n_clients;
#endif
}
void
run_undoable_change (void)
{
call0 (Qundo_auto__undoable_change);
}
