mirror of https://github.com/swig/swig
67 lines
849 B
OpenEdge ABL
67 lines
849 B
OpenEdge ABL
%module li_std_wstream
|
|
|
|
%{
|
|
#if defined(__SUNPRO_CC)
|
|
#pragma error_messages (off, badargtype2w) /* Formal argument ... is being passed extern "C" ... */
|
|
#endif
|
|
%}
|
|
|
|
%inline %{
|
|
struct A;
|
|
%}
|
|
|
|
%include <std_wiostream.i>
|
|
%include <std_wsstream.i>
|
|
|
|
|
|
|
|
%callback(1) A::bar;
|
|
|
|
%inline %{
|
|
|
|
struct B {
|
|
virtual ~B()
|
|
{
|
|
}
|
|
|
|
};
|
|
|
|
struct A : B
|
|
{
|
|
void __add__(int a)
|
|
{
|
|
}
|
|
|
|
void __add__(double a)
|
|
{
|
|
}
|
|
|
|
static int bar(int a){
|
|
return a;
|
|
}
|
|
|
|
static int foo(int a, int (*pf)(int a))
|
|
{
|
|
return pf(a);
|
|
}
|
|
|
|
|
|
std::wostream& __rlshift__(std::wostream& out)
|
|
{
|
|
out << "A class";
|
|
return out;
|
|
}
|
|
};
|
|
%}
|
|
|
|
%extend std::basic_ostream<wchar_t>{
|
|
extern "C"
|
|
std::basic_ostream<wchar_t>&
|
|
operator<<(const A& a)
|
|
{
|
|
*self << "A class";
|
|
return *self;
|
|
}
|
|
}
|
|
|