263
+ − 1 /*
+ − 2 Make a symbolic link to ${blddir}/src/config.h in this directory and do:
+ − 3
+ − 4 gcc -shared -fPIC -Demacs -DHAVE_CONFIG_H -I. \
+ − 5 -I/home/xemacs/xemacs-20.0/src -g dltest.c -o dltest
+ − 6 */
+ − 7
+ − 8 # include <config.h>
+ − 9 # include "lisp.h"
+ − 10
+ − 11 Lisp_Object Qdltest_counter;
+ − 12
+ − 13 DEFUN ("dltest", Fdltest, 0, 0, 0, /*
+ − 14 Simple test function.
+ − 15 */
+ − 16 ())
+ − 17 {
+ − 18 Qdltest_counter = make_int(XINT(Qdltest_counter) + 1);
+ − 19
+ − 20 return Qdltest_counter;
+ − 21 }
+ − 22
+ − 23 void
+ − 24 vars_of()
+ − 25 {
+ − 26 DEFVAR_LISP("dltest-counter", &Qdltest_counter /*
+ − 27 counter.
+ − 28 */ );
+ − 29
+ − 30 printf("Ten = %d\n", 10);
+ − 31
+ − 32 Qdltest_counter = make_int(10);
+ − 33 }
+ − 34
+ − 35 void
+ − 36 syms_of()
+ − 37 {
+ − 38 DEFSUBR(Fdltest);
+ − 39 }