XEmacs 21.2-b1

[chise/xemacs-chise.git.1] / tests / DLL / dltest.c

diff --git a/tests/DLL/dltest.c b/tests/DLL/dltest.c
new file mode 100644 (file)
index 0000000..d449a71
--- /dev/null
+++ b/tests/DLL/dltest.c
@@ -0,0 +1,40 @@
+/*
+Make a symbolic link to ${blddir}/src/config.h in this directory and do:
+
+gcc -shared -fPIC -Demacs -DHAVE_CONFIG_H -I. \
+               -I/home/xemacs/xemacs-20.0/src -g dltest.c -o dltest
+*/
+
+# include <config.h>
+# include "lisp.h"
+# include "emacsfns.h"
+
+Lisp_Object Qdltest_counter;
+
+DEFUN ("dltest", Fdltest, 0, 0, 0, /*
+Simple test function.
+*/
+())
+{
+       Qdltest_counter = make_int(XINT(Qdltest_counter) + 1);
+
+       return Qdltest_counter;
+}
+
+void
+vars_of()
+{
+       DEFVAR_LISP("dltest-counter", &Qdltest_counter /*
+counter.
+*/ );
+
+       printf("Ten = %d\n", 10);
+
+       Qdltest_counter = make_int(10);
+}
+
+void
+syms_of()
+{
+       DEFSUBR(Fdltest);
+}