jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Guile -scm] Add typemaps for "long long"; whether the generated code

Browse source 
compiles, however, depends on the version and configuration of Guile.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8936 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2006-03-03 04:00:31 +00:00
commit 3cab3284f2
2 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Lib/guile/ghinterface.i
View file

@ -27,6 +27,10 @@
#define gh_ulong2scm scm_ulong2num
#define gh_long2scm scm_long2num
#define gh_str02scm scm_makfrom0str
#define gh_long_long2scm scm_long_long2num
#define gh_scm2long_long(a) scm_num2long_long(a, SCM_ARG1, FUNC_NAME)
#define gh_ulong_long2scm scm_ulong_long2num
#define gh_scm2ulong_long(a) scm_num2ulong_long(a, SCM_ARG1, FUNC_NAME)
#define gh_string_p SCM_STRINGP
#define gh_vector_length SCM_VECTOR_LENGTH
#define gh_vector_p SCM_VECTORP

7
SWIG/Lib/guile/typemaps.i
View file

@ -275,6 +275,13 @@
// SIMPLE_MAP(char *, SWIG_scm2str, gh_str02scm, string);
// SIMPLE_MAP(const char *, SWIG_scm2str, gh_str02scm, string);
/* Define long long typemaps -- uses functions that are only defined
in recent versions of Guile, availability also depends on Guile's
configuration. */
SIMPLE_MAP(long long, gh_scm2long_long, gh_long_long2scm, integer);
SIMPLE_MAP(unsigned long long, gh_scm2ulong_long, gh_ulong_long2scm, integer);
/* Strings */
%typemap (in, doc="$NAME is a string") char *(int must_free = 0) {