|
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 }
|
