git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11161 626c5289-ae23-0410-ae9c-e8d60b6d4f22
102 lines
1.7 KiB
OpenEdge ABL
102 lines
1.7 KiB
OpenEdge ABL
// This testcase was in the python subdirectory
|
|
|
|
#if defined(SWIGPYTHON)
|
|
// Is "threads" really needed for Python? It seems to work without it.
|
|
%module(directors="1",threads="1") director_thread
|
|
#else
|
|
%module(directors="1") director_thread
|
|
#endif
|
|
|
|
%{
|
|
#ifdef _WIN32
|
|
#include <windows.h>
|
|
#include <process.h>
|
|
#else
|
|
#include <pthread.h>
|
|
#include <signal.h>
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
#include <iostream>
|
|
|
|
class Foo;
|
|
extern "C" {
|
|
#ifdef _WIN32
|
|
unsigned int __stdcall working(void* t);
|
|
unsigned int thread_id(0);
|
|
#else
|
|
void* working(void* t);
|
|
pthread_t thread;
|
|
#endif
|
|
static int thread_terminate = 0;
|
|
|
|
}
|
|
%}
|
|
|
|
%director Foo;
|
|
|
|
%inline {
|
|
static void MilliSecondSleep(int milliseconds) {
|
|
%#ifdef _WIN32
|
|
Sleep(milliseconds);
|
|
%#else
|
|
usleep(milliseconds*1000);
|
|
%#endif
|
|
}
|
|
|
|
class Foo {
|
|
public:
|
|
int val;
|
|
|
|
Foo() : val(0) {
|
|
}
|
|
|
|
virtual ~Foo() {
|
|
}
|
|
|
|
void stop() {
|
|
thread_terminate = 1;
|
|
%#ifdef _WIN32
|
|
/*TODO(bhy) what to do for win32? */
|
|
%#else
|
|
pthread_join(thread, NULL);
|
|
%#endif
|
|
}
|
|
|
|
void run() {
|
|
%#ifdef _WIN32
|
|
_beginthreadex(NULL,0,working,this,0,&thread_id);
|
|
%#else
|
|
pthread_create(&thread,NULL,working,this);
|
|
%#endif
|
|
MilliSecondSleep(500);
|
|
}
|
|
|
|
virtual void do_foo() {
|
|
val += 1;
|
|
}
|
|
};
|
|
}
|
|
|
|
%{
|
|
extern "C" {
|
|
#ifdef _WIN32
|
|
unsigned int __stdcall working(void* t)
|
|
#else
|
|
void* working(void* t)
|
|
#endif
|
|
{
|
|
Foo* f = static_cast<Foo*>(t);
|
|
while ( ! thread_terminate ) {
|
|
MilliSecondSleep(50);
|
|
f->do_foo();
|
|
}
|
|
#ifdef _WIN32
|
|
/* TODO(bhy) what's the corresponding of pthread_exit in win32? */
|
|
#else
|
|
pthread_exit(0);
|
|
#endif
|
|
return 0;
|
|
}
|
|
}
|
|
%}
|