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

remove deprecated language specification in %typemap

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8327 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2006-01-09 21:23:27 +00:00
commit a1e1b03788
5 changed files with 24 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

8
SWIG/Examples/chicken/zlib/README.html
View file

@ -1596,7 +1596,7 @@ zlib:inflate-init
<font color="red">
/* Allow the sourceLen to be automatically filled in from the length
of the 'source' string */
%typemap(chicken,in) (const Bytef *source, uLong sourceLen)
%typemap(in) (const Bytef *source, uLong sourceLen)
%{ if (!C_swig_is_string ($input)) {
swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Argument $input is not a string");
}
@ -1607,7 +1607,7 @@ zlib:inflate-init
/* Allocate space the size of which is determined by the Scheme
integer argument, and make a temporary integer so we can set
destLen. */
%typemap(chicken,in) (Bytef *dest, uLongf *destLen) (uLong len)
%typemap(in) (Bytef *dest, uLongf *destLen) (uLong len)
%{ if (!C_swig_is_fixnum ($input)) {
swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Argument $input is not a integer");
}
@ -1617,7 +1617,7 @@ zlib:inflate-init
%}
/* Return the mutated string as a new object. */
%typemap(chicken,argout) (Bytef *dest, uLongf *destLen)
%typemap(argout) (Bytef *dest, uLongf *destLen)
(C_word *scmstr)
%{ scmstr = C_alloc (C_SIZEOF_STRING (*$2));
SWIG_APPEND_VALUE(C_string (&amp;scmstr, *$2, $1));
@ -1633,7 +1633,7 @@ zlib:inflate-init
"$1 = &amp;len;";
/* Return a sized string as a new object. */
%typemap(chicken,argout)
%typemap(argout)
(void *outstr, uLongf *destLen) (C_word *scmstr)
%{ scmstr = C_alloc (C_SIZEOF_STRING (*$2));
SWIG_APPEND_VALUE(C_string (&amp;scmstr, *$2, $1));

10
SWIG/Examples/chicken/zlib/example.i
View file

@ -13,7 +13,7 @@
/* Allow the sourceLen to be automatically filled in from the length
of the 'source' string */
%typemap(chicken,in) (const Bytef *source, uLong sourceLen)
%typemap(in) (const Bytef *source, uLong sourceLen)
%{ if (!C_swig_is_string ($input)) {
swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Argument $input is not a string");
}
@ -24,7 +24,7 @@
/* Allocate space the size of which is determined by the Scheme
integer argument, and make a temporary integer so we can set
destLen. */
%typemap(chicken,in) (Bytef *dest, uLongf *destLen) (uLong len)
%typemap(in) (Bytef *dest, uLongf *destLen) (uLong len)
%{ if (!C_swig_is_fixnum ($input)) {
swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Argument $input is not a integer");
}
@ -34,7 +34,7 @@
%}
/* Return the mutated string as a new object. */
%typemap(chicken,argout) (Bytef *dest, uLongf *destLen)
%typemap(argout) (Bytef *dest, uLongf *destLen)
(C_word *scmstr)
%{ scmstr = C_alloc (C_SIZEOF_STRING (*$2));
SWIG_APPEND_VALUE(C_string (&scmstr, *$2, $1));
@ -46,11 +46,11 @@
/* Ignore destLen as an input argument, and make a temporary integer so
we can set destLen. */
%typemap(in, numinputs=0) uLongf *destLen (uLong len)
%typemap(numinputs=0) uLongf *destLen (uLong len)
"$1 = &len;";
/* Return a sized string as a new object. */
%typemap(chicken,argout)
%typemap(argout)
(void *outstr, uLongf *destLen) (C_word *scmstr)
%{ scmstr = C_alloc (C_SIZEOF_STRING (*$2));
SWIG_APPEND_VALUE(C_string (&scmstr, *$2, $1));