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 # 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 }