| Bram Moolenaar | edf3f97 | 2016-08-29 22:49:24 +0200 | [diff] [blame] | 1 | /* vi:set ts=8 sts=4 sw=4 noet: |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 2 | * |
| 3 | * MzScheme interface for Vim, wrapper around scheme.h |
| 4 | */ |
| 5 | #ifndef _IF_MZSCH_H_ |
| 6 | #define _IF_MZSCH_H_ |
| 7 | #ifdef __MINGW32__ |
| 8 | /* Hack to engage Cygwin-specific settings */ |
| 9 | # define __CYGWIN32__ |
| Bram Moolenaar | 7567646 | 2013-01-30 14:55:42 +0100 | [diff] [blame] | 10 | # include <stdint.h> |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 11 | #endif |
| 12 | |
| Bram Moolenaar | d90b6c0 | 2016-08-28 18:10:45 +0200 | [diff] [blame] | 13 | #ifdef PROTO |
| 14 | /* avoid syntax error for defining Thread_Local_Variables. */ |
| 15 | # define __thread /* empty */ |
| 16 | #endif |
| 17 | |
| Bram Moolenaar | 76b92b2 | 2006-03-24 22:46:53 +0000 | [diff] [blame] | 18 | /* #ifdef needed for "make depend" */ |
| 19 | #ifdef FEAT_MZSCHEME |
| Bram Moolenaar | 9e70cf1 | 2009-05-26 20:59:55 +0000 | [diff] [blame] | 20 | # include <schvers.h> |
| Bram Moolenaar | 76b92b2 | 2006-03-24 22:46:53 +0000 | [diff] [blame] | 21 | # include <scheme.h> |
| 22 | #endif |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 23 | |
| 24 | #ifdef __MINGW32__ |
| 25 | # undef __CYGWIN32__ |
| 26 | #endif |
| 27 | |
| 28 | #if MZSCHEME_VERSION_MAJOR >= 299 |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 29 | # define SCHEME_STRINGP(obj) (SCHEME_BYTE_STRINGP(obj) || SCHEME_CHAR_STRINGP(obj)) |
| Bram Moolenaar | 7567646 | 2013-01-30 14:55:42 +0100 | [diff] [blame] | 30 | # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_BYTE_STR_VAL(obj)) |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 31 | #else |
| Bram Moolenaar | 7567646 | 2013-01-30 14:55:42 +0100 | [diff] [blame] | 32 | /* macros for compatibility with older versions */ |
| 33 | # define scheme_current_config() scheme_config |
| 34 | # define scheme_make_sized_byte_string scheme_make_sized_string |
| 35 | # define scheme_format_utf8 scheme_format |
| 36 | # ifndef DYNAMIC_MZSCHEME |
| 37 | /* for dynamic MzScheme there will be separate definitions in if_mzsch.c */ |
| 38 | # define scheme_get_sized_byte_string_output scheme_get_sized_string_output |
| 39 | # define scheme_make_byte_string scheme_make_string |
| 40 | # define scheme_make_byte_string_output_port scheme_make_string_output_port |
| 41 | # endif |
| 42 | |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 43 | # define SCHEME_BYTE_STRLEN_VAL SCHEME_STRLEN_VAL |
| Bram Moolenaar | 7567646 | 2013-01-30 14:55:42 +0100 | [diff] [blame] | 44 | # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_STR_VAL(obj)) |
| Bram Moolenaar | 555b280 | 2005-05-19 21:08:39 +0000 | [diff] [blame] | 45 | # define scheme_byte_string_to_char_string(obj) (obj) |
| Bram Moolenaar | 7567646 | 2013-01-30 14:55:42 +0100 | [diff] [blame] | 46 | # define SCHEME_BYTE_STRINGP SCHEME_STRINGP |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 47 | #endif |
| 48 | |
| Bram Moolenaar | 9e70cf1 | 2009-05-26 20:59:55 +0000 | [diff] [blame] | 49 | /* Precise GC macros */ |
| 50 | #ifndef MZ_GC_DECL_REG |
| Bram Moolenaar | 55d5c03 | 2010-07-17 23:52:29 +0200 | [diff] [blame] | 51 | # define MZ_GC_DECL_REG(size) /* empty */ |
| Bram Moolenaar | 9e70cf1 | 2009-05-26 20:59:55 +0000 | [diff] [blame] | 52 | #endif |
| 53 | #ifndef MZ_GC_VAR_IN_REG |
| Bram Moolenaar | 55d5c03 | 2010-07-17 23:52:29 +0200 | [diff] [blame] | 54 | # define MZ_GC_VAR_IN_REG(x, v) /* empty */ |
| Bram Moolenaar | 9e70cf1 | 2009-05-26 20:59:55 +0000 | [diff] [blame] | 55 | #endif |
| 56 | #ifndef MZ_GC_ARRAY_VAR_IN_REG |
| 57 | # define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) /* empty */ |
| 58 | #endif |
| 59 | #ifndef MZ_GC_REG |
| Bram Moolenaar | 55d5c03 | 2010-07-17 23:52:29 +0200 | [diff] [blame] | 60 | # define MZ_GC_REG() /* empty */ |
| Bram Moolenaar | 9e70cf1 | 2009-05-26 20:59:55 +0000 | [diff] [blame] | 61 | #endif |
| 62 | #ifndef MZ_GC_UNREG |
| Bram Moolenaar | 55d5c03 | 2010-07-17 23:52:29 +0200 | [diff] [blame] | 63 | # define MZ_GC_UNREG() /* empty */ |
| Bram Moolenaar | 9e70cf1 | 2009-05-26 20:59:55 +0000 | [diff] [blame] | 64 | #endif |
| 65 | |
| 66 | #ifdef MZSCHEME_FORCE_GC |
| 67 | /* |
| 68 | * force garbage collection to check all references are registered |
| 69 | * seg faults will indicate not registered refs |
| 70 | */ |
| 71 | # define MZ_GC_CHECK() scheme_collect_garbage(); |
| 72 | #else |
| 73 | # define MZ_GC_CHECK() /* empty */ |
| 74 | #endif |
| 75 | |
| Bram Moolenaar | 325b7a2 | 2004-07-05 15:58:32 +0000 | [diff] [blame] | 76 | #endif /* _IF_MZSCH_H_ */ |