Mercurial > hg > xemacs-beta

comparison tests/DLL/dltest.c @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents
children abe6d1db359e
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
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 }