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

Removed varin typemaps for SWIGTYPE[] (dimensionless arrays).

Browse source 
These were useless as they just produced a setter that gave a runtime error.
Exposes some missing varin SWIGTYPE[ANY] typemaps - they show up in the test-suite.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4843 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2003-06-01 22:59:10 +00:00
commit a951a86659
5 changed files with 2 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Lib/chicken/chicken.swg
View file

@ -349,10 +349,6 @@ $result = C_SCHEME_UNDEFINED;
}
#endif
%typemap(varin) SWIGTYPE [] {
swig_barf (SWIG_BARF1_BAD_ARGUMENT_TYPE, "Variable $name is read-only");
}
/* Special case for string array variables */
%typemap(varin) char [ANY] {
if ($input == C_SCHEME_FALSE) {

4
Lib/perl5/perl5.swg
View file

@ -226,7 +226,7 @@
%typemap(varin) long long "$1 = ($1_ltype) strtoll(SvPV($input, PL_na), 0, 0);";
%typemap(varin) unsigned long long "$1 = ($1_ltype) strtoull(SvPV($input, PL_na), 0, 0);";
%typemap(varin) SWIGTYPE *, SWIGTYPE [] {
%typemap(varin) SWIGTYPE * {
if (SWIG_ConvertPtr($input, (void **) &$1, $1_descriptor,0) < 0) {
croak("Type error in argument $argnum of $symname. Expected $1_mangle");
}
@ -325,8 +325,6 @@
%typemap(varin) char [ANY]
"strncpy($1, (char *) SvPV(sv,PL_na), $1_dim0);";
%typemap(varin) SWIGTYPE [] "croak(\"Value is read-only.\");";
%typemap(varin) enum SWIGTYPE
"$1 = ($1_type) SvIV($input);";

5
Lib/python/python.swg
View file

@ -295,11 +295,6 @@
}
#endif
%typemap(varin) SWIGTYPE [] {
PyErr_SetString(PyExc_TypeError, "Variable $name is read-only.");
return 1;
}
%typemap(varin) SWIGTYPE [ANY] {
void *temp;
int ii;

4
Lib/ruby/ruby.swg
View file

@ -275,10 +275,6 @@
$1 = *($1_ltype) temp;
}
%typemap(varin) SWIGTYPE [] {
rb_raise(rb_eRuntimeError, "Array $name is readonly");
}
%typemap(varin) void *
"SWIG_ConvertPtr($input, (void **) &$1, 0, 1);";

2
Lib/tcl/tcl8.swg
View file

@ -386,7 +386,7 @@
$1 = *(($&1_type) temp);
}
%typemap(varin) SWIGTYPE [] {
%typemap(varin) SWIGTYPE [ANY] {
void *temp;
if (SWIG_ConvertPtr(interp,$input,&temp,$1_descriptor, SWIG_POINTER_EXCEPTION) != TCL_OK) {
return (char *)"Type error. Expected $1_ltype";