🚀 go-pugleaf

Hi,

I was going to send an example this morning, but looks like Bob has beat me 
to it.  However as a bit more help:

I use a set of classes that I've built up to standardise what I want my 
threads/tasks to do for me and my fellow team members.  It may not be 
perfect, but I've yet to make any changes to it in the last year or so. 
I've built up all the other classes for sockets and serial comms around 
this.

Hope this might help.

Paul

__fastcall CTask::CTask( char *  name_string,
                         ulong   identity,
                         ulong   priority )
    : TThread(true)
{
    // make sure thread is deleted by owner
    FreeOnTerminate = false;

    // initialise member variables
    MyHandlesCount = 0;
    MyHandles    = NULL;
    MyEvent      = NULL;

    // create event and store handle
    // unnamed os object to avoid unnecessary issues!!
    MyEvent = new TEvent ( NULL, false, false, "" );
    MyHandles[MyHandlesCount++] = (HANDLE) MyEvent->Handle;
}

void
CTask::WakeUpSignal( void )
{
    MyEvent->SetEvent();
}

bool
CTask::WaitForWakeUp( int wait_time )
{
    bool result = false;
    ulong apilimit = MyHandlesCount - 1;

    WMOresult = WaitForMultipleObjects( MyHandlesCount, MyHandles, false, 
wait_time );

    // test for API failure code
    if( (WMOresult >= WAIT_OBJECT_0)
     && (WMOresult <= (WAIT_OBJECT_0 + apilimit))
    ){
        result = false;
    }
    else
    if( (WMOresult >= WAIT_ABANDONED_0)
     && (WMOresult <= (WAIT_ABANDONED_0 + apilimit))
    ){
        result = true;
    }
    else
    if (WMOresult == WAIT_TIMEOUT)
    {
        // timeout waiting for event
        result = true;
    }
    else
    {
        int i = GetLastError();
        result = true;
    }
    return result;
}

void Controller::SendMessageToTask( SomeMessageType * message )
{
    // list type hidden from task owner, it doesn't need to know
    if (MyMbx)
    {
        // mailbox signals the task event when adding a message
        MyMbx->AddMailMsg(message);
    }
}

void Controller::Execute()
{
    while (!Terminated)
    {
        // wait for wake up if nothing to process
        if (MyMbx->GetMailMsg() == NULL)
        {
            result = WaitForWakeUp( 100 );
        }
        etc.....
}