view tests/DLL/dltest.c @ 4347:6b571dc4ba3f

Rework init-file migration. 2007-12-19 Mike Sperber <mike@xemacs.org> * startup.el (user-init-file-migration-in-order-p): Factored out check. (maybe-migrate-user-init-file): (migrate-user-init-file): Don't do a backup of ~/.emacs anymore. Instead, make only a manual adjustment of the file, if at all, i.e. don't go through customize magic anymore. (unmigrate-user-init-file): Don't use customize to set `load-home-init-file' anymore. (set-load-home-init-file): Add; performs the modification previously done through customize. (unmigrate-user-init-file): Use `set-load-home-init-file' instead of customize. (command-line-1): Only wait for the first event if we're not going to ask about migration.
author Mike Sperber <sperber@deinprogramm.de>
date Fri, 21 Dec 2007 16:51:30 +0100
parents abe6d1db359e
children
line wrap: on
line source

/*
Make a symbolic link to ${blddir}/src/config.h in this directory and do:

gcc -shared -fPIC -Demacs -DHAVE_CONFIG_H -I. \
		-I/home/xemacs/xemacs-20.0/src -g dltest.c -o dltest
*/

# include <config.h>
# include "lisp.h"

Lisp_Object Qdltest_counter;

DEFUN ("dltest", Fdltest, 0, 0, 0, /*
Simple test function.
*/
())
{
	Qdltest_counter = make_int(XINT(Qdltest_counter) + 1);

	return Qdltest_counter;
}

void
vars_of()
{
	DEFVAR_LISP("dltest-counter", &Qdltest_counter /*
counter.
*/ );

	printf("Ten = %d\n", 10);

	Qdltest_counter = make_int(10);
}

void
syms_of()
{
	DEFSUBR(Fdltest);
}