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
138 lines
3 KiB
OpenEdge ABL
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() {}
|
|
};
|
|
%}
|