update.
[chise/xemacs-chise.git-] / tests / DLL / dltest.c
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 }