436 lines
18 KiB
C
436 lines
18 KiB
C
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| |
|
||
|
|
| dialog.c - Dialog functions for Timer Device Driver Test Application |
|
||
|
|
| |
|
||
|
|
| |
|
||
|
|
| History: |
|
||
|
|
| Created Glenn Steffler (w-GlennS) 29-Jan-1990 |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------)-----------------*/
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| |
|
||
|
|
| i n c l u d e f i l e s |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
#include <windows.h>
|
||
|
|
#include <mmsystem.h>
|
||
|
|
#include <port1632.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include "ta.h"
|
||
|
|
|
||
|
|
#define abs(x) ( (x) < 0 ? -(x) : (x) )
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| |
|
||
|
|
| g l o b a l v a r i a b l e s |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
extern LPTIMECALLBACK lpTimeCallback; // call back function entry point
|
||
|
|
extern BOOL bHandlerHit;
|
||
|
|
extern WORD wHandlerError;
|
||
|
|
extern HWND hwndApp;
|
||
|
|
|
||
|
|
static char *szPerOne[] = { "One","Per" };
|
||
|
|
|
||
|
|
HWND hdlgModeless = NULL;
|
||
|
|
HWND hdlgDelay = NULL;
|
||
|
|
int nEvents = 0;
|
||
|
|
EVENTLIST EventList[MAXEVENTS];
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| ErrMsg - Opens a Message box with a error message in it. The user can |
|
||
|
|
| select the OK button to continue |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
void PASCAL ErrMsg(char *sz)
|
||
|
|
{
|
||
|
|
MessageBox(NULL,sz,NULL,MB_YESNO|MB_ICONEXCLAMATION|MB_DEFBUTTON2|MB_SYSTEMMODAL);
|
||
|
|
}
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| fnFileDlg (hDlg, uiMessage, wParam, lParam) |
|
||
|
|
| |
|
||
|
|
| Description: |
|
||
|
|
| |
|
||
|
|
| This function handles the messages for the delay dialog box. When |
|
||
|
|
| the ADD, or REMOVE options are chosen, a timer event is either added |
|
||
|
|
| or removed from the system respectively. |
|
||
|
|
| |
|
||
|
|
| Arguments: |
|
||
|
|
| hDlg window handle of dialog window |
|
||
|
|
| uiMessage message number |
|
||
|
|
| wParam message-dependent |
|
||
|
|
| lParam message-dependent |
|
||
|
|
| |
|
||
|
|
| Returns: |
|
||
|
|
| TRUE if message has been processed, else FALSE |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
BOOL FAR PASCAL
|
||
|
|
fnFileDlg( HWND hDlg, unsigned uiMessage, UINT wParam, LONG lParam )
|
||
|
|
{
|
||
|
|
switch (uiMessage) {
|
||
|
|
case WM_COMMAND:
|
||
|
|
switch (wParam) {
|
||
|
|
case IDOK:
|
||
|
|
EndDialog(hDlg,TRUE);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case IDCANCEL:
|
||
|
|
EndDialog(hDlg,FALSE);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case WM_INITDIALOG:
|
||
|
|
// SetDlgItemText(hDlg,IDOK,szText);
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| fnDelayDlg (hDlg, uiMessage, wParam, lParam) |
|
||
|
|
| |
|
||
|
|
| Description: |
|
||
|
|
| |
|
||
|
|
| This function handles the messages for the delay dialog box. When |
|
||
|
|
| the ADD, or REMOVE options are chosen, a timer event is either added |
|
||
|
|
| or removed from the system respectively. |
|
||
|
|
| |
|
||
|
|
| Arguments: |
|
||
|
|
| hDlg window handle of dialog window |
|
||
|
|
| uiMessage message number |
|
||
|
|
| wParam message-dependent |
|
||
|
|
| lParam message-dependent |
|
||
|
|
| |
|
||
|
|
| Returns: |
|
||
|
|
| TRUE if message has been processed, else FALSE |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
|
||
|
|
BOOL FAR PASCAL
|
||
|
|
fnDelayDlg( HWND hDlg, unsigned uiMessage, UINT wParam, LONG lParam )
|
||
|
|
{
|
||
|
|
static int piTabs[5] = { 0, 5*4, 10*4, 15*4, 20*4 };
|
||
|
|
|
||
|
|
HWND hWnd;
|
||
|
|
int nID,i,i1;
|
||
|
|
char szTemp[100];
|
||
|
|
EVENTLIST *pEventList;
|
||
|
|
TIMEREVENT *pEvent;
|
||
|
|
WORD error;
|
||
|
|
|
||
|
|
switch (uiMessage) {
|
||
|
|
case MM_TIMEEVENT:
|
||
|
|
if( EventList[LOWORD(lParam)].bPeriodic ) {
|
||
|
|
bHandlerHit = TRUE;
|
||
|
|
EventList[LOWORD(lParam)].dwCount++;
|
||
|
|
EventList[LOWORD(lParam)].bHit = TRUE;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
i = (int)EventList[LOWORD(lParam)].teEvent.wDelay;
|
||
|
|
|
||
|
|
error = (int)EventList[LOWORD(lParam)].dtime - i;
|
||
|
|
|
||
|
|
if (error < 0)
|
||
|
|
wsprintf(szTemp,"%dms OneShot was %dms early",-i,error);
|
||
|
|
else if (error > 0)
|
||
|
|
wsprintf(szTemp,"%dms OneShot was %dms late",i,error);
|
||
|
|
else
|
||
|
|
wsprintf(szTemp,"%dms OneShot was on time",i);
|
||
|
|
|
||
|
|
MessageBox(NULL,szTemp,NULL,MB_OK|MB_ICONEXCLAMATION|MB_TASKMODAL);
|
||
|
|
|
||
|
|
hWnd = GetDlgItem(hDlg,LB_DELAY);
|
||
|
|
/* events in listbox */
|
||
|
|
i1 = (int)SendMessage(hWnd,LB_GETCOUNT,0,0l);
|
||
|
|
for( i=1; i < i1; i++ ) {
|
||
|
|
SendMessage(hWnd,LB_GETTEXT,i,(LONG)(LPSTR)szTemp);
|
||
|
|
sscanf( szTemp+strlen(szTemp)-4, "%x", &nID );
|
||
|
|
if( nID == wParam ) { // compare ID's - kill if same
|
||
|
|
nEvents--;
|
||
|
|
bHandlerHit = TRUE;
|
||
|
|
EventList[LOWORD(lParam)].bActive = FALSE;
|
||
|
|
SendMessage(hWnd,LB_DELETESTRING,i,0l);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return TRUE;
|
||
|
|
|
||
|
|
case WM_COMMAND:
|
||
|
|
DelayDlgCmd( hDlg, wParam, lParam );
|
||
|
|
break;
|
||
|
|
|
||
|
|
case WM_CLOSE:
|
||
|
|
DestroyWindow( hDlg );
|
||
|
|
hdlgModeless = NULL;
|
||
|
|
hdlgDelay = NULL;
|
||
|
|
return TRUE;
|
||
|
|
|
||
|
|
case WM_INITDIALOG:
|
||
|
|
hdlgDelay = hDlg;
|
||
|
|
hWnd = GetDlgItem(hDlg,LB_DELAY);
|
||
|
|
SendMessage(hWnd,LB_SETTABSTOPS,
|
||
|
|
sizeof(piTabs)/sizeof(int),(LONG)(LPSTR)piTabs);
|
||
|
|
|
||
|
|
SendMessage(hWnd,LB_RESETCONTENT,0,0l);
|
||
|
|
SendMessage(hWnd,LB_ADDSTRING,0,(LONG)(LPSTR)"[none]");
|
||
|
|
for( pEventList=EventList,i=0; i < MAXEVENTS ; i++,pEventList++) {
|
||
|
|
if( pEventList->bActive ) {
|
||
|
|
pEvent = &( pEventList->teEvent );
|
||
|
|
wsprintf(szTemp,"%d\t%d\t%d\t %s : %4x",
|
||
|
|
pEventList->wStart,
|
||
|
|
pEvent->wDelay,
|
||
|
|
pEvent->wResolution,
|
||
|
|
(LPSTR)szPerOne[pEventList->bPeriodic],
|
||
|
|
pEventList->nID);
|
||
|
|
|
||
|
|
SendMessage(hWnd,LB_ADDSTRING,0,(LONG)(LPSTR)szTemp);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
SendMessage(hWnd,LB_SETCURSEL,0,0l);
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
return FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| DelayDlgCmd( hDlg, wParam, lParam ) |
|
||
|
|
| |
|
||
|
|
| Description: |
|
||
|
|
| |
|
||
|
|
| Process the WM_COMMAND messages for the fnDelayDlg DIALOG. |
|
||
|
|
| |
|
||
|
|
| Arguments: |
|
||
|
|
| hDlg window handle of dialog window |
|
||
|
|
| wParam message-dependent |
|
||
|
|
| lParam message-dependent |
|
||
|
|
| |
|
||
|
|
| Returns: |
|
||
|
|
| abso-poso-litilly-nothin |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
void PASCAL DelayDlgCmd( HWND hDlg, UINT wParam, LONG lParam )
|
||
|
|
{
|
||
|
|
HWND hWnd;
|
||
|
|
int nStartEdit,nDelayEdit,nResolEdit,nID,i;
|
||
|
|
BOOL b1,b2,b3,bPeriodic;
|
||
|
|
char szTemp[100],szTemp2[100];
|
||
|
|
TIMEREVENT *pEvent;
|
||
|
|
|
||
|
|
switch (wParam) {
|
||
|
|
case ID_REMOVE:
|
||
|
|
hWnd = GetDlgItem(hDlg,LB_DELAY);
|
||
|
|
if( (i = (int)SendMessage(hWnd,LB_GETCURSEL,0,0l)) > 0 ) {
|
||
|
|
SendMessage(hWnd,LB_GETTEXT,i,(LONG)(LPSTR)szTemp);
|
||
|
|
sscanf( szTemp+strlen(szTemp)-4, "%x", &nID );
|
||
|
|
if( nID != 0 ) {
|
||
|
|
SendMessage(hWnd,LB_DELETESTRING,i,0l);
|
||
|
|
for( i=0; i < MAXEVENTS; i++ ) {
|
||
|
|
if( EventList[i].nID == nID ) {
|
||
|
|
if( EventList[i].bActive ) {
|
||
|
|
EventList[i].bActive = FALSE;
|
||
|
|
timeKillEvent(nID);
|
||
|
|
nEvents--;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
ErrMsg( "Isn't registered in Queue!" );
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
SendMessage(hWnd,LB_SETCURSEL,0,0l);
|
||
|
|
PostMessage(hDlg,WM_COMMAND,LB_DELAY,
|
||
|
|
MAKELONG(hWnd,LBN_SELCHANGE));
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
MessageBeep( NULL );
|
||
|
|
break;
|
||
|
|
|
||
|
|
case IDOK:
|
||
|
|
case ID_ADD:
|
||
|
|
hWnd = GetDlgItem(hDlg,LB_DELAY);
|
||
|
|
nStartEdit = GetDlgItemInt( hDlg, ID_STARTEDIT, &b1, FALSE );
|
||
|
|
nDelayEdit = GetDlgItemInt( hDlg, ID_DELAYEDIT, &b2, FALSE );
|
||
|
|
nResolEdit = GetDlgItemInt( hDlg, ID_RESOLEDIT, &b3, FALSE );
|
||
|
|
bPeriodic = (int)SendDlgItemMessage(hDlg,ID_PERIODIC,BM_GETCHECK,0,0l);
|
||
|
|
|
||
|
|
if( nID = (b1 && b2 && b3) ) {
|
||
|
|
for( i=0; i < MAXEVENTS; i++ ) {
|
||
|
|
if( !EventList[i].bActive )
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if( i >= MAXEVENTS ) {
|
||
|
|
nID = 0;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
pEvent = &( EventList[i].teEvent );
|
||
|
|
pEvent->wDelay = nDelayEdit;
|
||
|
|
pEvent->wResolution = nResolEdit;
|
||
|
|
pEvent->dwUser = i;
|
||
|
|
|
||
|
|
pEvent->wFlags = ((bPeriodic)?(TIME_PERIODIC):(TIME_ONESHOT));
|
||
|
|
|
||
|
|
pEvent->lpFunction = lpTimeCallback;
|
||
|
|
|
||
|
|
EventList[i].bActive = TRUE;
|
||
|
|
EventList[i].bPeriodic = bPeriodic;
|
||
|
|
EventList[i].bHit = FALSE;
|
||
|
|
EventList[i].dwCount = 0l;
|
||
|
|
EventList[i].dwError = 0l;
|
||
|
|
EventList[i].wStart = nStartEdit;
|
||
|
|
|
||
|
|
EventList[i].dtimeMin = 0x7FFFFFFF;
|
||
|
|
EventList[i].dtimeMax = 0;
|
||
|
|
EventList[i].dtime = 0;
|
||
|
|
EventList[i].time = timeGetTime();
|
||
|
|
|
||
|
|
if( (nID = timeSetEvent(pEvent->wDelay, pEvent->wResolution,
|
||
|
|
pEvent->lpFunction, pEvent->dwUser, pEvent->wFlags)) == NULL )
|
||
|
|
{
|
||
|
|
EventList[i].bActive = FALSE;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
// SetTimer call must return non-NULL ID to signify a valid event
|
||
|
|
|
||
|
|
nEvents++;
|
||
|
|
EventList[i].nID = nID;
|
||
|
|
|
||
|
|
wsprintf(szTemp,"%d\t%d\t%d\t %s : %4x",
|
||
|
|
nStartEdit,nDelayEdit,nResolEdit,(LPSTR)szPerOne[bPeriodic],nID);
|
||
|
|
|
||
|
|
SendMessage(hWnd,LB_ADDSTRING,0,(LONG)(LPSTR)szTemp);
|
||
|
|
|
||
|
|
SendMessage(hWnd,LB_SETCURSEL,0,0l);
|
||
|
|
PostMessage(hDlg,WM_COMMAND,LB_DELAY,MAKELONG(hWnd,LBN_SELCHANGE));
|
||
|
|
}
|
||
|
|
if( wParam == IDOK ) {
|
||
|
|
PostMessage( hDlg, WM_CLOSE, 0, 0l );
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if( !nID ) {
|
||
|
|
MessageBeep( NULL );
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case LB_DELAY:
|
||
|
|
switch( HIWORD(lParam) ) {
|
||
|
|
case LBN_SELCHANGE:
|
||
|
|
i = (int)SendMessage(LOWORD(lParam),LB_GETCURSEL,0,0l);
|
||
|
|
if( i == 0 ) {
|
||
|
|
SetDlgItemText(hDlg,ID_STARTEDIT,"");
|
||
|
|
SetDlgItemText(hDlg,ID_DELAYEDIT,"");
|
||
|
|
SetDlgItemText(hDlg,ID_RESOLEDIT,"");
|
||
|
|
SendDlgItemMessage(hDlg,ID_PERIODIC,BM_SETCHECK,FALSE,0l);
|
||
|
|
}
|
||
|
|
else if( i != LB_ERR ) {
|
||
|
|
SendMessage(LOWORD(lParam),LB_GETTEXT,i,(LONG)(LPSTR)szTemp);
|
||
|
|
sscanf( szTemp, "%d %d %d %s : %x",
|
||
|
|
&nStartEdit,&nDelayEdit,&nResolEdit,szTemp2,&nID);
|
||
|
|
bPeriodic = (lstrcmp( szTemp2, szPerOne[1] ) == 0);
|
||
|
|
SetDlgItemInt(hDlg,ID_STARTEDIT,nStartEdit,FALSE);
|
||
|
|
SetDlgItemInt(hDlg,ID_DELAYEDIT,nDelayEdit,FALSE);
|
||
|
|
SetDlgItemInt(hDlg,ID_RESOLEDIT,nResolEdit,FALSE);
|
||
|
|
SendDlgItemMessage(hDlg,ID_PERIODIC,BM_SETCHECK,bPeriodic,0l);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
break;
|
||
|
|
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case IDCANCEL:
|
||
|
|
PostMessage( hDlg, WM_CLOSE, 0, 0l );
|
||
|
|
break;
|
||
|
|
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| KillAllEvents(void ) |
|
||
|
|
| |
|
||
|
|
| Description: |
|
||
|
|
| Kills all outstanding events when windows exits |
|
||
|
|
| |
|
||
|
|
| Arguments: |
|
||
|
|
| |
|
||
|
|
| Returns: |
|
||
|
|
| Absolutely nothing |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
void PASCAL KillAllEvents( void )
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
|
||
|
|
for( i=0; i < MAXEVENTS; i++ ) {
|
||
|
|
if( EventList[i].bActive ) {
|
||
|
|
timeKillEvent( (UINT)EventList[i].nID );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/*----------------------------------------------------------------------------*\
|
||
|
|
| TimeCallback( wID, dwUser ) |
|
||
|
|
| |
|
||
|
|
| Description: |
|
||
|
|
| The routine which processes the timer interrupt call backs. |
|
||
|
|
| Simply adds one to the long int corresponding to lParam in the |
|
||
|
|
| table of call back function counts. This essentionally means the |
|
||
|
|
| number of times this routine is called for the certain interrupts |
|
||
|
|
| is recorded. |
|
||
|
|
| |
|
||
|
|
| Arguments: |
|
||
|
|
| wID ID returned from timeSetTimerEvent call |
|
||
|
|
| dwUser value passed in event structure to said function. |
|
||
|
|
| |
|
||
|
|
| Returns: |
|
||
|
|
| Absolutely nothing |
|
||
|
|
| |
|
||
|
|
\*----------------------------------------------------------------------------*/
|
||
|
|
void FAR PASCAL TimeCallback( UINT wID, UINT msg, DWORD dwUser, DWORD dwTime, DWORD dw2)
|
||
|
|
{
|
||
|
|
#define i (LOWORD(dwUser))
|
||
|
|
|
||
|
|
DWORD time;
|
||
|
|
|
||
|
|
time = timeGetTime();
|
||
|
|
|
||
|
|
EventList[i].dtime = time - EventList[i].time;
|
||
|
|
EventList[i].dtimeMin = min(EventList[i].dtime,EventList[i].dtimeMin);
|
||
|
|
EventList[i].dtimeMax = max(EventList[i].dtime,EventList[i].dtimeMax);
|
||
|
|
EventList[i].time = time;
|
||
|
|
|
||
|
|
if( !EventList[i].bActive ) {
|
||
|
|
wHandlerError++;
|
||
|
|
}
|
||
|
|
else if( EventList[i].bPeriodic ) {
|
||
|
|
bHandlerHit = TRUE;
|
||
|
|
EventList[i].dwCount++;
|
||
|
|
|
||
|
|
if (abs((int)EventList[i].dtime-(int)EventList[i].teEvent.wDelay) > (int)EventList[i].teEvent.wResolution)
|
||
|
|
EventList[i].dwError++;
|
||
|
|
|
||
|
|
EventList[i].bHit = TRUE;
|
||
|
|
}
|
||
|
|
else if( hdlgDelay != NULL ) {
|
||
|
|
PostMessage(hdlgDelay,MM_TIMEEVENT,wID,dwUser);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
nEvents--;
|
||
|
|
bHandlerHit = TRUE;
|
||
|
|
EventList[i].bActive = FALSE;
|
||
|
|
}
|
||
|
|
#undef i
|
||
|
|
}
|