Mercurial > vim

comparison src/if_mzsch.h @ 18753:6e3dc2d630c2 v8.1.2366

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.1.2366: using old C style comments Commit: https://github.com/vim/vim/commit/9bf703d46a79fbffeb829246ea5ce385bddc4166 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Nov 30 19:44:38 2019 +0100 patch 8.1.2366: using old C style comments Problem: Using old C style comments. Solution: Use // comments where appropriate.
author Bram Moolenaar <Bram@vim.org>
date Sat, 30 Nov 2019 19:45:03 +0100
parents 4aead6a9b7a9
children
comparison
equal deleted inserted replaced
18752:9ec3c9cb4533 18753:6e3dc2d630c2
3 * MzScheme interface for Vim, wrapper around scheme.h 3 * MzScheme interface for Vim, wrapper around scheme.h
4 */ 4 */
5 #ifndef _IF_MZSCH_H_ 5 #ifndef _IF_MZSCH_H_
6 #define _IF_MZSCH_H_ 6 #define _IF_MZSCH_H_
7 #ifdef __MINGW32__ 7 #ifdef __MINGW32__
8 /* Hack to engage Cygwin-specific settings */ 8 // Hack to engage Cygwin-specific settings
9 # define __CYGWIN32__ 9 # define __CYGWIN32__
10 # include <stdint.h> 10 # include <stdint.h>
11 #endif 11 #endif
12 12
13 #ifdef PROTO 13 #ifdef PROTO
14 /* avoid syntax error for defining Thread_Local_Variables. */ 14 // avoid syntax error for defining Thread_Local_Variables.
15 # define __thread /* empty */ 15 # define __thread // empty
16 #endif 16 #endif
17 17
18 /* #ifdef needed for "make depend" */ 18 // #ifdef needed for "make depend"
19 #ifdef FEAT_MZSCHEME 19 #ifdef FEAT_MZSCHEME
20 # include <schvers.h> 20 # include <schvers.h>
21 # include <scheme.h> 21 # include <scheme.h>
22 #endif 22 #endif
23 23
27 27
28 #if MZSCHEME_VERSION_MAJOR >= 299 28 #if MZSCHEME_VERSION_MAJOR >= 299
29 # define SCHEME_STRINGP(obj) (SCHEME_BYTE_STRINGP(obj) || SCHEME_CHAR_STRINGP(obj)) 29 # define SCHEME_STRINGP(obj) (SCHEME_BYTE_STRINGP(obj) || SCHEME_CHAR_STRINGP(obj))
30 # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_BYTE_STR_VAL(obj)) 30 # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_BYTE_STR_VAL(obj))
31 #else 31 #else
32 /* macros for compatibility with older versions */ 32 // macros for compatibility with older versions
33 # define scheme_current_config() scheme_config 33 # define scheme_current_config() scheme_config
34 # define scheme_make_sized_byte_string scheme_make_sized_string 34 # define scheme_make_sized_byte_string scheme_make_sized_string
35 # define scheme_format_utf8 scheme_format 35 # define scheme_format_utf8 scheme_format
36 # ifndef DYNAMIC_MZSCHEME 36 # ifndef DYNAMIC_MZSCHEME
37 /* for dynamic MzScheme there will be separate definitions in if_mzsch.c */ 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 38 # define scheme_get_sized_byte_string_output scheme_get_sized_string_output
39 # define scheme_make_byte_string scheme_make_string 39 # define scheme_make_byte_string scheme_make_string
40 # define scheme_make_byte_string_output_port scheme_make_string_output_port 40 # define scheme_make_byte_string_output_port scheme_make_string_output_port
41 # endif 41 # endif
42 42
44 # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_STR_VAL(obj)) 44 # define BYTE_STRING_VALUE(obj) ((char_u *)SCHEME_STR_VAL(obj))
45 # define scheme_byte_string_to_char_string(obj) (obj) 45 # define scheme_byte_string_to_char_string(obj) (obj)
46 # define SCHEME_BYTE_STRINGP SCHEME_STRINGP 46 # define SCHEME_BYTE_STRINGP SCHEME_STRINGP
47 #endif 47 #endif
48 48
49 /* Precise GC macros */ 49 // Precise GC macros
50 #ifndef MZ_GC_DECL_REG 50 #ifndef MZ_GC_DECL_REG
51 # define MZ_GC_DECL_REG(size) /* empty */ 51 # define MZ_GC_DECL_REG(size) // empty
52 #endif 52 #endif
53 #ifndef MZ_GC_VAR_IN_REG 53 #ifndef MZ_GC_VAR_IN_REG
54 # define MZ_GC_VAR_IN_REG(x, v) /* empty */ 54 # define MZ_GC_VAR_IN_REG(x, v) // empty
55 #endif 55 #endif
56 #ifndef MZ_GC_ARRAY_VAR_IN_REG 56 #ifndef MZ_GC_ARRAY_VAR_IN_REG
57 # define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) /* empty */ 57 # define MZ_GC_ARRAY_VAR_IN_REG(x, v, l) // empty
58 #endif 58 #endif
59 #ifndef MZ_GC_REG 59 #ifndef MZ_GC_REG
60 # define MZ_GC_REG() /* empty */ 60 # define MZ_GC_REG() // empty
61 #endif 61 #endif
62 #ifndef MZ_GC_UNREG 62 #ifndef MZ_GC_UNREG
63 # define MZ_GC_UNREG() /* empty */ 63 # define MZ_GC_UNREG() // empty
64 #endif 64 #endif
65 65
66 #ifdef MZSCHEME_FORCE_GC 66 #ifdef MZSCHEME_FORCE_GC
67 /* 67 /*
68 * force garbage collection to check all references are registered 68 * force garbage collection to check all references are registered
69 * seg faults will indicate not registered refs 69 * seg faults will indicate not registered refs
70 */ 70 */
71 # define MZ_GC_CHECK() scheme_collect_garbage(); 71 # define MZ_GC_CHECK() scheme_collect_garbage();
72 #else 72 #else
73 # define MZ_GC_CHECK() /* empty */ 73 # define MZ_GC_CHECK() // empty
74 #endif 74 #endif
75 75
76 #endif /* _IF_MZSCH_H_ */ 76 #endif // _IF_MZSCH_H_