src/xsnarf.h

   1 /* $Id: xsnarf.h,v 1.3 2005/10/21 03:06:42 sgt Exp $
   2  * xsnarf.h
   3  *
   4  * an init-function and document snarfing system for guile, but indepenendent
   5  * of guile version.
   6  * This implementation is most like the one from guile-1.4, but will also
   7  * work in guile-1.5/1.6
   8  *
   9  */
  10
  11
  12 #ifndef XSNARF_H__
  13 #define XSNARF_H__
  14
  15 #ifdef HAVE_CONFIG_H
  16 #include <config.h>
  17 #endif
  18
  19 /*#define SCM__INIT_HOOK(var, name, nargs) do { var = scm_permanent_object(scm_c_define(name, scm_make_hook(SCM_MAKINUM(nargs)))); } while (0)
  20  */
  21 #define SCM__INIT_HOOK(var, name, nargs) do { var = scm_create_hook(name, nargs);} while(0)
  22
  23
  24 #ifndef SCM_FUNC_CAST_ARBITRARY_ARGS
  25 #define SCM_FUNC_CAST_ARBITRARY_ARGS SCM (*)()
  26 #endif
  27
  28
  29 #define XSCM_HOOK(var, name, nargs, arglist, docstring) \
  30 SCM_SNARF_HERE(static SCM var)\
  31 SCM_SNARF_DOCS(hook, name, name, arglist, nargs, 0, 0, docstring) \
  32 SCM_SNARF_INIT( SCM__INIT_HOOK(var, name, nargs) )
  33
  34 #define XSCM_GLOBAL_HOOK(var, name, nargs, arglist, docstring) \
  35 SCM_SNARF_HERE(SCM var)\
  36 SCM_SNARF_DOCS(hook, name, name, arglist, nargs, 0, 0, docstring) \
  37 SCM_SNARF_INIT( SCM__INIT_HOOK(var, name, nargs) )
  38
  39 #define XSCM_CONCEPT(name, docstring)\
  40         SCM_SNARF_DOCS(concept, name, name, 0, 0, 0, 0, docstring)
  41
  42
  43
  44 #endif /* GUILE_EXT_H__ */
  45