|
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 # include "emacsfns.h"
|
|
|
11
|
|
|
12 Lisp_Object Qdltest_counter;
|
|
|
13
|
|
|
14 DEFUN ("dltest", Fdltest, 0, 0, 0, /*
|
|
|
15 Simple test function.
|
|
|
16 */
|
|
|
17 ())
|
|
|
18 {
|
|
|
19 Qdltest_counter = make_int(XINT(Qdltest_counter) + 1);
|
|
|
20
|
|
|
21 return Qdltest_counter;
|
|
|
22 }
|
|
|
23
|
|
|
24 void
|
|
|
25 vars_of()
|
|
|
26 {
|
|
|
27 DEFVAR_LISP("dltest-counter", &Qdltest_counter /*
|
|
|
28 counter.
|
|
|
29 */ );
|
|
|
30
|
|
|
31 printf("Ten = %d\n", 10);
|
|
|
32
|
|
|
33 Qdltest_counter = make_int(10);
|
|
|
34 }
|
|
|
35
|
|
|
36 void
|
|
|
37 syms_of()
|
|
|
38 {
|
|
|
39 DEFSUBR(Fdltest);
|
|
|
40 }
|
