Mercurial > vim
annotate src/if_mzsch.h @ 24569:e3ec2ec8841a
Update runtime files
Commit: https://github.com/vim/vim/commit/4c295027a426986566cd7a76c47a6d3a529727e7
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun May 2 17:19:11 2021 +0200
Update runtime files
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sun, 02 May 2021 17:30:05 +0200 |
| parents | 6e3dc2d630c2 |
| children |
| rev | line source |
|---|---|
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
10025
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
| 14 | 2 * |
| 3 * MzScheme interface for Vim, wrapper around scheme.h | |
| 4 */ | |
| 5 #ifndef _IF_MZSCH_H_ | |
| 6 #define _IF_MZSCH_H_ | |
| 7 #ifdef __MINGW32__ | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
8 // Hack to engage Cygwin-specific settings |
| 14 | 9 # define __CYGWIN32__ |
| 4074 | 10 # include <stdint.h> |
| 14 | 11 #endif |
| 12 | |
|
10025
068f397d0da4
commit https://github.com/vim/vim/commit/d90b6c02e2900576fb37d95b5e4f4a32b2d7383f
Christian Brabandt <cb@256bit.org>
parents:
4074
diff
changeset
|
13 #ifdef PROTO |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
14 // avoid syntax error for defining Thread_Local_Variables. |
|
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
15 # define __thread // empty |
|
10025
068f397d0da4
commit https://github.com/vim/vim/commit/d90b6c02e2900576fb37d95b5e4f4a32b2d7383f
Christian Brabandt <cb@256bit.org>
parents:
4074
diff
changeset
|
16 #endif |
|
068f397d0da4
commit https://github.com/vim/vim/commit/d90b6c02e2900576fb37d95b5e4f4a32b2d7383f
Christian Brabandt <cb@256bit.org>
parents:
4074
diff
changeset
|
17 |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
18 // #ifdef needed for "make depend" |
| 800 | 19 #ifdef FEAT_MZSCHEME |
| 1894 | 20 # include <schvers.h> |
| 800 | 21 # include <scheme.h> |
| 22 #endif | |
| 14 | 23 |
| 24 #ifdef __MINGW32__ | |
| 25 # undef __CYGWIN32__ | |
| 26 #endif | |
| 27 | |
| 28 #if MZSCHEME_VERSION_MAJOR >= 299 | |
| 29 # define SCHEME_STRINGP(obj) (SCHEME_BYTE_STRINGP(obj) || SCHEME_CHAR_STRINGP(obj)) | |
| 4074 | 30 # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_BYTE_STR_VAL(obj)) |
| 31 #else | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
32 // macros for compatibility with older versions |
| 4074 | 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 | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
37 // for dynamic MzScheme there will be separate definitions in if_mzsch.c |
| 4074 | 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 | |
| 14 | 42 |
| 43 # define SCHEME_BYTE_STRLEN_VAL SCHEME_STRLEN_VAL | |
| 4074 | 44 # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_STR_VAL(obj)) |
| 274 | 45 # define scheme_byte_string_to_char_string(obj) (obj) |
| 4074 | 46 # define SCHEME_BYTE_STRINGP SCHEME_STRINGP |
| 14 | 47 #endif |
| 48 | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
49 // Precise GC macros |
| 1894 | 50 #ifndef MZ_GC_DECL_REG |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
51 # define MZ_GC_DECL_REG(size) // empty |
| 1894 | 52 #endif |
| 53 #ifndef MZ_GC_VAR_IN_REG | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
54 # define MZ_GC_VAR_IN_REG(x, v) // empty |
| 1894 | 55 #endif |
| 56 #ifndef MZ_GC_ARRAY_VAR_IN_REG | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
57 # define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) // empty |
| 1894 | 58 #endif |
| 59 #ifndef MZ_GC_REG | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
60 # define MZ_GC_REG() // empty |
| 1894 | 61 #endif |
| 62 #ifndef MZ_GC_UNREG | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
63 # define MZ_GC_UNREG() // empty |
| 1894 | 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 | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
73 # define MZ_GC_CHECK() // empty |
| 1894 | 74 #endif |
| 75 | |
|
18753
6e3dc2d630c2
patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
10042
diff
changeset
|
76 #endif // _IF_MZSCH_H_ |