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

missing throws typemaps added

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6133 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-08-24 21:44:54 +00:00
commit abeef193d2
4 changed files with 35 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
SWIG/Lib/perl5/perl5.swg
View file

@ -538,6 +538,14 @@
SWIG_croakSV(esv);
}
%typemap(throws) SWIGTYPE, SWIGTYPE &, SWIGTYPE *, SWIGTYPE [ANY] %{
SWIG_croak("C++ $1_type exception thrown");
%}
%typemap(throws) enum SWIGTYPE %{
SWIG_croak("C++ $1_type exception thrown");
%}
%typemap(throws) char * {
SWIG_croak($1);
}

8
SWIG/Lib/perl5/std_string.i
View file

@ -63,5 +63,13 @@ namespace std {
++argvi;
}
%typemap(throws) const string & {
SWIG_croak($1.c_str());
}
%typemap(throws) string {
SWIG_croak($1.c_str());
}
}

9
SWIG/Lib/tcl/std_string.i
View file

@ -44,4 +44,13 @@ namespace std {
Tcl_SetStringObj($result,(char*)$1->c_str(),$1->length());
}
%typemap(throws) string {
Tcl_SetObjResult(interp, Tcl_NewStringObj((char*) $1.c_str(), -1));
SWIG_fail;
}
%typemap(throws) const string & {
Tcl_SetObjResult(interp, Tcl_NewStringObj((char*) $1.c_str(), -1));
SWIG_fail;
}
}

10
SWIG/Lib/tcl/tcl8.swg
View file

@ -547,6 +547,16 @@
SWIG_fail;
}
%typemap(throws) SWIGTYPE, SWIGTYPE &, SWIGTYPE *, SWIGTYPE [ANY] {
Tcl_SetObjResult(interp, Tcl_NewStringObj((char*) "$1_type", -1));
SWIG_fail;
}
%typemap(throws) enum SWIGTYPE {
Tcl_SetObjResult(interp, Tcl_NewStringObj((char*) "$1_type", -1));
SWIG_fail;
}
%typemap(throws) char * {
Tcl_SetObjResult(interp, Tcl_NewStringObj((char*) $1, -1));
SWIG_fail;