This is the mail archive of the guile@cygnus.com mailing list for the guile project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Patch for snarf.h

This patch make the function pointers types work, though turns off type
checking more than actually necessary (augmenting the guile-snarf script 
can certainly give better typechecking).

Greg


*** snarf.h.orig        Wed Jul  1 15:39:23 1998
--- snarf.h     Wed Jul  1 15:40:22 1998
***************
*** 54,73 ****
        static char RANAME[]=STR
  #else
  #ifdef __cplusplus
- #if REQ == 0 && OPT == 0 && VAR == 0
  #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
! %%%   scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) (void)) CFN)
! #else
! #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
! %%%   scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) (SCM, ...)) CFN)
! #endif
! #if TYPE == scm_tc7_subr_0
! #define SCM_PROC1(RANAME, STR, TYPE, CFN)  \
! %%%   scm_make_subr(RANAME, TYPE, (SCM (*)(void)) CFN)
! #else
  #define SCM_PROC1(RANAME, STR, TYPE, CFN)  \
  %%%   scm_make_subr(RANAME, TYPE, (SCM (*)(...)) CFN)
- #endif
  #else /* __cplusplus */
  #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
  %%%   scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN)
--- 54,63 ----
        static char RANAME[]=STR
  #else
  #ifdef __cplusplus
  #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
! %%%   scm_make_gsubr (RANAME, REQ, OPT, VAR, (SCM (*) (...)) CFN)
  #define SCM_PROC1(RANAME, STR, TYPE, CFN)  \
  %%%   scm_make_subr(RANAME, TYPE, (SCM (*)(...)) CFN)
  #else /* __cplusplus */
  #define SCM_PROC(RANAME, STR, REQ, OPT, VAR, CFN)  \
  %%%   scm_make_gsubr (RANAME, REQ, OPT, VAR, CFN)