git.chise.org Git - chise/xemacs-chise.git.1/blob - 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 }