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

Chicken: a few bug fixes, a new example and some new test suite runme, and some doc updates

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7143 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2005-04-05 17:48:31 +00:00
commit 7e55b36764
19 changed files with 435 additions and 180 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Lib/cdata.i
View file

@ -45,6 +45,12 @@ typedef struct SWIGCDATA {
$result = gh_str2scm($1.data,$1.len);
}
%typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
#elif SWIGCHICKEN
%typemap(out) SWIGCDATA {
C_word *string_space = C_alloc(C_SIZEOF_STRING($1.len));
$result = C_string(&string_space, $1.len, $1.data);
}
%typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
#else
%echo "cdata.i module not supported."
#endif

2
Lib/chicken/swigclosprefix.scm
View file

@ -1,4 +1,4 @@
(declare (hide swig-initialize swig-initialize-return))
(declare (hide swig-initialize swig-init-return))
(define (swig-initialize obj initargs create)
(slot-set! obj 'swig-this