annotate src/if_mzsch.h @ 84:60834e43d187

updated for version 7.0034
author vimboss
date Sat, 08 Jan 2005 16:04:29 +0000
parents 946da5994c01
children 8fa8d7964cf1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
1 /* vi:set ts=8 sts=4 sw=4:
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
2 *
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
3 * MzScheme interface for Vim, wrapper around scheme.h
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
4 */
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
5 #ifndef _IF_MZSCH_H_
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
6 #define _IF_MZSCH_H_
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
7 #ifdef __MINGW32__
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
8 /* Hack to engage Cygwin-specific settings */
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
9 # define __CYGWIN32__
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
10 #endif
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
11
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
12 #include <scheme.h>
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
13
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
14 #ifdef __MINGW32__
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
15 # undef __CYGWIN32__
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
16 #endif
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
17
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
18 #if MZSCHEME_VERSION_MAJOR >= 299
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
19 /* macros to be compatible with 20x versions */
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
20 # define scheme_config scheme_current_config()
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
21 # define scheme_make_string scheme_make_byte_string
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
22 # define scheme_make_string_output_port scheme_make_byte_string_output_port
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
23 # define scheme_get_sized_string_output scheme_get_sized_byte_string_output
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
24 # define scheme_write_string scheme_write_byte_string
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
25 # define scheme_make_sized_string scheme_make_sized_byte_string
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
26
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
27 # define SCHEME_STRINGP(obj) (SCHEME_BYTE_STRINGP(obj) || SCHEME_CHAR_STRINGP(obj))
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
28 # define SCHEME_STR_VAL(obj) SCHEME_BYTE_STR_VAL( \
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
29 (SCHEME_BYTE_STRINGP(obj) ? obj : scheme_char_string_to_byte_string(obj)))
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
30 # define GUARANTEE_STRING(fname, argnum) GUARANTEE_TYPE(fname, argnum, SCHEME_STRINGP, "string")
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
31
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
32 # ifdef scheme_format
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
33 # undef scheme_format
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
34 # endif
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
35 # define scheme_format scheme_format_utf8
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
36
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
37 # define GET_BYTE_STRING(obj) (SCHEME_BYTE_STRINGP(obj) ? obj : \
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
38 scheme_char_string_to_byte_string(obj))
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
39 #else
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
40 # define GET_BYTE_STRING(obj) (obj)
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
41 # define SCHEME_BYTE_STRLEN_VAL SCHEME_STRLEN_VAL
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
42 # define SCHEME_BYTE_STR_VAL SCHEME_STR_VAL
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
43 #endif
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
44
946da5994c01 updated for version 7.0006
vimboss
parents:
diff changeset
45 #endif /* _IF_MZSCH_H_ */