git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8679 626c5289-ae23-0410-ae9c-e8d60b6d4f22
31 lines
549 B
OpenEdge ABL
31 lines
549 B
OpenEdge ABL
// Test the allowexcept feature by making the usual $action uncompileable and ensuring the %exception is picked up
|
|
|
|
%module allowexcept
|
|
|
|
struct XYZ {
|
|
};
|
|
|
|
%{
|
|
struct XYZ {
|
|
void foo() {}
|
|
private:
|
|
XYZ& operator=(const XYZ& other); // prevent assignment used in normally generated set method
|
|
XYZ* operator&(); // prevent dereferencing used in normally generated get method
|
|
};
|
|
%}
|
|
|
|
%exception {
|
|
/*
|
|
$action
|
|
*/
|
|
}
|
|
%allowexception;
|
|
|
|
%inline %{
|
|
XYZ global_variable;
|
|
struct Foo {
|
|
XYZ member_variable;
|
|
static XYZ static_member_variable;
|
|
};
|
|
%}
|
|
|