Fixed handling of char types.
Added support for optional arguments. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@739 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
c883555fb3
commit
d5431492ae
3 changed files with 16 additions and 3 deletions
|
|
@ -45,6 +45,13 @@ GSWIG_scm2str (SCM s)
|
|||
return gh_scm2newstr (s, &len);
|
||||
}
|
||||
|
||||
static char
|
||||
GSWIG_scm2char (SCM s)
|
||||
{
|
||||
if (SCM_CHARP(s)) return SCM_CHAR(s);
|
||||
scm_wrong_type_arg(NULL, 0, s);
|
||||
}
|
||||
|
||||
typedef struct SwigPtrType SwigPtrType;
|
||||
|
||||
typedef struct _swig_type_info {
|
||||
|
|
|
|||
|
|
@ -29,8 +29,8 @@
|
|||
%enddef
|
||||
|
||||
SIMPLE_MAP(bool, gh_scm2bool, gh_bool2scm, boolean);
|
||||
SIMPLE_MAP(char, gh_scm2char, gh_char2scm, char);
|
||||
SIMPLE_MAP(unsigned char, gh_scm2char, gh_char2scm, char);
|
||||
SIMPLE_MAP(char, GSWIG_scm2char, gh_char2scm, char);
|
||||
SIMPLE_MAP(unsigned char, GSWIG_scm2char, gh_char2scm, char);
|
||||
SIMPLE_MAP(int, gh_scm2int, gh_int2scm, integer);
|
||||
SIMPLE_MAP(short, gh_scm2int, gh_int2scm, integer);
|
||||
SIMPLE_MAP(long, gh_scm2long, gh_long2scm, integer);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue