diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2006-01-09 21:23:27 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2006-01-09 21:23:27 +0000 |
commit | 281f34873ab89178f0b717cb7952f50a42ab71bb (patch) | |
tree | f2c26ac199a04aba096711c102d93ceec4cc1139 /Examples/chicken | |
parent | 0fe0086defdffe02202ce098b48bf62f078e0b81 (diff) | |
download | swig-281f34873ab89178f0b717cb7952f50a42ab71bb.tar.gz |
remove deprecated language specification in %typemap
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8327 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Examples/chicken')
-rw-r--r-- | Examples/chicken/multimap/example.i | 10 | ||||
-rw-r--r-- | Examples/chicken/zlib/README.html | 8 | ||||
-rw-r--r-- | Examples/chicken/zlib/example.i | 10 |
3 files changed, 14 insertions, 14 deletions
diff --git a/Examples/chicken/multimap/example.i b/Examples/chicken/multimap/example.i index 7bacadab7..02567f48f 100644 --- a/Examples/chicken/multimap/example.i +++ b/Examples/chicken/multimap/example.i @@ -15,7 +15,7 @@ extern int squareCubed (int n, int *OUTPUT); extern int gcd(int x, int y); -%typemap(chicken,in) (int argc, char *argv[]) { +%typemap(in) (int argc, char *argv[]) { int i; if (!C_swig_is_vector ($input)) { swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Argument $input is not a vector"); @@ -35,12 +35,12 @@ extern int gcd(int x, int y); $2[i] = 0; } -%typemap(chicken,freear) (int argc, char *argv[]) { +%typemap(freearg) (int argc, char *argv[]) { free($2); } extern int gcdmain(int argc, char *argv[]); -%typemap(chicken,in) (char *bytes, int len) { +%typemap(in) (char *bytes, int len) { if (!C_swig_is_string ($input)) { swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Argument $input is not a string"); } @@ -53,7 +53,7 @@ extern int count(char *bytes, int len, char c); /* This example shows how to wrap a function that mutates a string */ -%typemap(chicken,in) (char *str, int len) +%typemap(in) (char *str, int len) %{ if (!C_swig_is_string ($input)) { swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Argument $input is not a string"); } @@ -64,7 +64,7 @@ extern int count(char *bytes, int len, char c); /* Return the mutated string as a new object. Notice the if MANY construct ... they must be at column 0. */ -%typemap(chicken,argout) (char *str, int len) (C_word *scmstr) +%typemap(argout) (char *str, int len) (C_word *scmstr) %{ scmstr = C_alloc (C_SIZEOF_STRING ($2)); SWIG_APPEND_VALUE(C_string (&scmstr, $2, $1)); free ($1); diff --git a/Examples/chicken/zlib/README.html b/Examples/chicken/zlib/README.html index dd5dfcc97..b082a310c 100644 --- a/Examples/chicken/zlib/README.html +++ b/Examples/chicken/zlib/README.html @@ -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 (&scmstr, *$2, $1)); @@ -1633,7 +1633,7 @@ zlib:inflate-init "$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)); diff --git a/Examples/chicken/zlib/example.i b/Examples/chicken/zlib/example.i index 60cb5e0f4..dd962ad56 100644 --- a/Examples/chicken/zlib/example.i +++ b/Examples/chicken/zlib/example.i @@ -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)); |