[xemacs-hg @ 2002-06-28 14:24:07 by michaels] 2002-06-27 Mike Sperber <mike@xemacs.org> * data.c (prune_weak_boxes): Rewrite for better readability. 2002-06-23 Martin Köbele <martin@mkoebele.de> Jens Müller <jmueller@informatik.uni-tuebingen.de> Mike Sperber <mike@xemacs.org> * lrecord.h (lrecord_type): add lrecord_type_ephemeron to lrecord_type enumeration. * lisp.h (XEPHEMERON): (XEPHEMERON_REF): (XEPHEMERON_NEXT): (XEPHEMERON_FINALIZER): (XSET_EPHEMERON_NEXT): (XSET_EPHEMERON_VALUE): (XSET_EPHEMERON_KEY): (wrap_ephemeron): (EPHEMERONP): (CHECK_EPHEMERON): (CONCHECK_EPHEMERON): (struct ephemeron): Add representation of ephemerons. * alloc.c (garbage_collect_1): (finish_marking_ephemerons): (prune_ephemerons): Call. * data.c: (finish_marking_ephemerons): (prune_ephemerons): (mark_ephemeron): (print_ephemeron): (ephemeron_equal) (ephemeron_hash):: (make_ephemeron): (Fmake_ephemeron): (Fephemeronp): (Fephemeron_ref): (syms_of_data): (vars_of_data): Add implementation of ephemerons

/*
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);
}