diff options
| author | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2005-03-30 19:55:12 +0000 |
|---|---|---|
| committer | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2005-03-30 19:55:12 +0000 |
| commit | c07de8d45f447eb9be331c47898efe3f1caa5afc (patch) | |
| tree | fe405431fe755d7e9915203e05cb411cb8810e64 /Lib/mzscheme | |
| parent | e74b2529194eb38eebbc322d1237ce24b7e54c9f (diff) | |
| download | swig-c07de8d45f447eb9be331c47898efe3f1caa5afc.tar.gz | |
Fix last change.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7122 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/mzscheme')
| -rw-r--r-- | Lib/mzscheme/mzrun.swg | 3 | ||||
| -rw-r--r-- | Lib/mzscheme/typemaps.i | 5 |
2 files changed, 6 insertions, 2 deletions
diff --git a/Lib/mzscheme/mzrun.swg b/Lib/mzscheme/mzrun.swg index 6c00298d7..63b424bc1 100644 --- a/Lib/mzscheme/mzrun.swg +++ b/Lib/mzscheme/mzrun.swg @@ -61,6 +61,9 @@ extern "C" { #define scheme_make_sized_string(s,l) scheme_make_sized_utf8_string(s,l) #define scheme_make_sized_offset_string(s,d,l) \ scheme_make_sized_offset_utf8_string(s,d,l) +#define SCHEME_MAKE_STRING(s) scheme_make_utf8_string(s) +#else +#define SCHEME_MAKE_STRING(s) scheme_make_string_without_copying(s) #endif /* ----------------------------------------------------------------------- * End of mzscheme 30X support code diff --git a/Lib/mzscheme/typemaps.i b/Lib/mzscheme/typemaps.i index d270a8373..9df763370 100644 --- a/Lib/mzscheme/typemaps.i +++ b/Lib/mzscheme/typemaps.i @@ -214,10 +214,11 @@ SIMPLE_MAP(float, SCHEME_REALP, scheme_real_to_double, scheme_make_double, real); SIMPLE_MAP(double, SCHEME_REALP, scheme_real_to_double, scheme_make_double, real); + SIMPLE_MAP(char *, SCHEME_STRINGP, SCHEME_STR_VAL, - scheme_make_string_without_copying, string); + SCHEME_MAKE_STRING, string); SIMPLE_MAP(const char *, SCHEME_STRINGP, SCHEME_STR_VAL, - scheme_make_string_without_copying, string); + SCHEME_MAKE_STRING, string); /* For MzScheme 30x: Use these typemaps if you are not going to use UTF8 encodings in your C code. |