swig/Examples/test-suite/special_variables.i
William S Fulton e0067ea998 Merge trunk rev 13025 (swig-2.0.6) into gsoc2008-maciekd
Conflicts:
	Doc/Manual/chapters
	Examples/Makefile.in
	Examples/test-suite/dynamic_cast.i
	Lib/exception.i
	Makefile.in
	Source/Include/swigwarn.h
	Source/Modules/swigmain.cxx
	Source/Swig/swig.h
	Tools/config/config.guess
	Tools/config/config.sub
	configure.in

From: William S Fulton <wsf@fultondesigns.co.uk>

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2008-maciekd@13036 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2012-05-07 16:59:38 +00:00

138 lines
3 KiB
OpenEdge ABL

%module(directors="1") special_variables
%include <std_string.i>
// will fail to compile if $symname is not expanded
%typemap(argout) int i {
$symname(99);
}
%{
#define KKK_testmethod testmethod
#define KKK_teststaticmethod KKK::teststaticmethod
%}
%inline %{
void testmethod(int i) {}
struct KKK {
void testmethod(int i) {}
static void teststaticmethod(int i) {}
};
%}
%{
std::string ExceptionVars(double i, double j) {
return "a1";
}
%}
%rename(ExceptionVars) Space::exceptionvars;
#ifdef SWIGC
%exception Space::exceptionvars %{
$action
result = (char*)$symname(1.0,2.0).c_str(); // Should expand to ExceptionVars
result = (char*)$name(3.0,4.0).c_str(); // Should expand to Space::exceptionvars
// above will not compile if the variables are not expanded properly
result = "$action $name $symname $overname $wrapname";
%}
#else
%exception Space::exceptionvars %{
$action
result = $symname(1.0,2.0); // Should expand to ExceptionVars
result = $name(3.0,4.0); // Should expand to Space::exceptionvars
// above will not compile if the variables are not expanded properly
result = "$action $name $symname $overname $wrapname";
%}
#endif
%inline %{
namespace Space {
std::string exceptionvars(double i, double j) {
return "b2";
}
}
%}
#ifdef SWIGC
%exception Space::overloadedmethod %{
$action
result = (char*)Space::$symname(1.0).c_str();
result = (char*)$name().c_str();
result = (char*)$name(2.0).c_str();
// above will not compile if the variables are not expanded properly
result = "$action $name $symname $overname $wrapname";
// $decl
%}
#else
%exception Space::overloadedmethod %{
$action
result = Space::$symname(1.0);
result = $name();
result = $name(2.0);
// above will not compile if the variables are not expanded properly
result = "$action $name $symname $overname $wrapname";
// $decl
%}
#endif
%inline %{
namespace Space {
std::string overloadedmethod(double j) {
return "c3";
}
std::string overloadedmethod() {
return "d4";
}
}
std::string declaration;
%}
%exception {
$action
declaration = "$fulldecl $decl";
}
%inline %{
namespace SpaceNamespace {
struct ABC {
ABC(int a, double b) {}
ABC() {}
static short * staticmethod(int x, bool b) { return 0; }
short * instancemethod(int x, bool b = false) { return 0; }
short * constmethod(int x) const { return 0; }
};
template<typename T> struct Template {
std::string tmethod(T t) { return ""; }
};
void globtemplate(Template<ABC> t) {}
}
%}
%template(TemplateABC) SpaceNamespace::Template<SpaceNamespace::ABC>;
/////////////////////////////////// directors /////////////////////////////////
%{
void DirectorTest_director_testmethod(int i) {}
void DirectorTest_director_testmethodSwigExplicitDirectorTest(int i) {}
%}
%typemap(directorargout) int i {
$symname(99);
}
%feature("director") DirectorTest;
%inline %{
void director_testmethod(int i) {}
struct DirectorTest {
virtual void director_testmethod(int i) {}
virtual ~DirectorTest() {}
};
%}