source: trunk/dll/timer.c@ 1036

/***********************************************************************

  $Id: timer.c 907 2008-01-06 07:26:17Z stevenhl $

  Timer thread

  Copyright (c) 1993-98 M. Kimes
  Copyright (c) 2006 Steven H. Levine

  22 Jul 06 SHL Check more run time errors
  20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat

***********************************************************************/

#include <process.h>                    // _beginthread

#define INCL_DOS
#define INCL_DOSERRORS
#define INCL_WIN
#define INCL_LONGLONG                   // dircnrs.h

#include "fm3str.h"
#include "errutil.h"                    // Dos_Error...
#include "strutil.h"                    // GetPString
#include "fm3dll.h"

static PSZ pszSrcFile = __FILE__;

static HEV hevTimerSem;

static void TimerThread(void *args)
{
  HAB hab2;
  HMQ hmq2;
  ULONG cntr = 0;

  priority_bumped();
  hab2 = WinInitialize(0);
  if (hab2) {
    hmq2 = WinCreateMsgQueue(hab2, 0);
    if (hmq2) {
      WinCancelShutdown(hmq2, TRUE);
      if (!DosCreateEventSem(NULL, &hevTimerSem, 0, FALSE)) {
        for (;;) {
          if (DosWaitEventSem(hevTimerSem, 3000) != ERROR_TIMEOUT)
            break;
          cntr++;
          if (hwndTree && !(cntr % 3))
            PostMsg(hwndTree, UM_TIMER, MPVOID, MPVOID);
          if (hwndBubble && WinIsWindowVisible(hwndBubble))
            PostMsg(hwndBubble, UM_TIMER, MPVOID, MPVOID);
          if (DataHwnd)
            PostMsg(DataHwnd, UM_TIMER, MPVOID, MPVOID);
        }
        DosCloseEventSem(hevTimerSem);
      }
      WinDestroyMsgQueue(hmq2);
    }
    WinTerminate(hab2);
  }
}

//== StartTimer() return TRUE can start thread ==

BOOL StartTimer(void)
{
  INT rc = _beginthread(TimerThread, NULL, 32768, (PVOID) 0);

  if (rc == -1)
    Runtime_Error(pszSrcFile, __LINE__,
                  GetPString(IDS_COULDNTSTARTTHREADTEXT));

  return rc != -1;
}

void StopTimer(void)
{
  DosPostEventSem(hevTimerSem);
}

#pragma alloc_text(TIMER,TimerThread,StartTimer,StopTimer)