457 lines
11 KiB
C
457 lines
11 KiB
C
#include <windows.h>
|
|
#include <stdio.h>
|
|
|
|
|
|
//#define COM_DEB 1
|
|
|
|
#define NUM 1024
|
|
//128
|
|
#define print printf
|
|
#define THPRINTF fprintf
|
|
#define L_DEBUG stderr
|
|
|
|
|
|
#ifdef RUN_ON_MIPS
|
|
#define COM "COM2"
|
|
#else
|
|
#define COM "COM1"
|
|
#endif
|
|
|
|
|
|
#define SETTINGS1 lpFilename,9600,8,NOPARITY,ONESTOPBIT
|
|
#define SETTINGS15 lpFilename,9600,5,NOPARITY,ONE5STOPBITS
|
|
#define SETTINGS2 lpFilename,4800,8,NOPARITY,ONESTOPBIT
|
|
#define SETTINGS3 lpFilename,2400,8,NOPARITY,ONESTOPBIT
|
|
#define SETTINGS4 lpFilename,300,8,NOPARITY,ONESTOPBIT
|
|
|
|
|
|
CHAR lpFilename[100];
|
|
DWORD dwPacketSize,dwLoop;
|
|
|
|
|
|
BOOL DoComIo(LPSTR lpCom,DWORD Baud,BYTE Size,BYTE Parity,BYTE Stop);
|
|
|
|
|
|
|
|
DWORD main(int argc, char *argv[], char *envp[])
|
|
{
|
|
BOOL bRc;
|
|
|
|
|
|
CHAR chDummy;
|
|
BOOL bFile,bPkt,bLoop;
|
|
DWORD dwSize,dwSizeHigh,i,j,dwError;
|
|
HANDLE hFile,hMOFile;
|
|
LPVOID lpBaseAddress;
|
|
LPBYTE lpByte;
|
|
BYTE Byte = 0x00;
|
|
|
|
|
|
UNREFERENCED_PARAMETER(envp);
|
|
|
|
bFile = bPkt = bLoop = FALSE;
|
|
|
|
while(argc--)
|
|
{
|
|
|
|
|
|
|
|
switch(argv[argc][1])
|
|
{
|
|
case 'f' :
|
|
case 'F' : {
|
|
if (argv[argc][0] != '-') break;
|
|
THPRINTF(L_DEBUG,"comport name option=%s\n\n",argv[argc]);
|
|
sscanf(argv[argc],"%c %c %s",&chDummy,&chDummy,lpFilename);
|
|
THPRINTF(L_DEBUG,"com port name =%s\n\n",lpFilename);
|
|
bFile = TRUE;
|
|
break;
|
|
}
|
|
|
|
case 'p' :
|
|
case 'P' : {
|
|
if (argv[argc][0] != '-') break;
|
|
THPRINTF(L_DEBUG,"comport packet size =%s\n\n",argv[argc]);
|
|
sscanf(argv[argc],"%c %c %d",&chDummy,&chDummy,&dwPacketSize);
|
|
THPRINTF(L_DEBUG,"com xfer packet size =%d\n\n",dwPacketSize);
|
|
bPkt = TRUE;
|
|
break;
|
|
}
|
|
|
|
|
|
case 'l' :
|
|
case 'L' : {
|
|
if (argv[argc][0] != '-') break;
|
|
THPRINTF(L_DEBUG,"comport packet xfer loopcnt =%s\n\n",argv[argc]);
|
|
sscanf(argv[argc],"%c %c %d",&chDummy,&chDummy,&dwLoop);
|
|
THPRINTF(L_DEBUG,"com xfer loop cnt =%d\n\n",dwLoop);
|
|
bLoop = TRUE;
|
|
break;
|
|
}
|
|
|
|
default: {
|
|
break;
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (!bFile || !bPkt || !bLoop)
|
|
{
|
|
THPRINTF(L_DEBUG,"\n\nOptions are required!!\n\n");
|
|
THPRINTF(L_DEBUG,"comtst <required options>\n\n");
|
|
THPRINTF(L_DEBUG,"options: -f<com port name>\n\n");
|
|
THPRINTF(L_DEBUG,"options: -p<com xfer pkt size>\n\n");
|
|
THPRINTF(L_DEBUG,"options: -l<xfer loop cnt>\n\n");
|
|
return (1);
|
|
}
|
|
|
|
|
|
|
|
THPRINTF(L_DEBUG,"Doing comtst with com port name=[%s]\n",
|
|
lpFilename);
|
|
|
|
|
|
|
|
|
|
|
|
print("\n\n *** Doing COM TEST with [port=%s Baud=%d,Size=%d,Parity=%d,Stop=%d]***\n\n",
|
|
SETTINGS1);
|
|
|
|
bRc = DoComIo(SETTINGS1);
|
|
|
|
if (!bRc) {
|
|
print("\n\nCOM TEST FAILED********************************\n\n");
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
BOOL DoComIo(LPSTR lpCom,DWORD Baud,BYTE Size,BYTE Parity,BYTE Stop)
|
|
{
|
|
COMMTIMEOUTS CommTimeOuts;
|
|
|
|
CHAR WrBuffer[4096];
|
|
CHAR RdBuffer[4096];
|
|
DWORD i,l;
|
|
HANDLE hCommPort;
|
|
DCB dcb;
|
|
BOOL bRc;
|
|
BYTE Byte;
|
|
DWORD dwNumWritten,dwNumRead,dwErrors;
|
|
|
|
print("\n\n *** COMM TEST START [port=%s,Baud=%d,Size=%d,Parity=%d,Stop=%d]***\n\n",
|
|
lpCom,Baud,Size,Parity,Stop);
|
|
|
|
print("Opening the comm port for read write\n");
|
|
|
|
hCommPort = CreateFile(
|
|
lpCom,
|
|
GENERIC_READ|GENERIC_WRITE,
|
|
0, // exclusive
|
|
NULL, // sec attr
|
|
OPEN_EXISTING,
|
|
0, // no attributes
|
|
NULL); // no template
|
|
|
|
if (hCommPort == (HANDLE)-1)
|
|
{
|
|
print("FAIL: OpenComm failed rc: %lx\n",hCommPort);
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
print("Opening the comm port for read write: SUCCESS hCommPort=%lx\n",hCommPort);
|
|
|
|
print("Setting the line characteristics on comm \n");
|
|
|
|
|
|
//printf("doing getcommstate for priming the dcb with defaults\n");
|
|
|
|
bRc = GetCommState(hCommPort,&dcb);
|
|
|
|
if (!bRc)
|
|
{
|
|
printf("FAIL: getcommstate failed\n");
|
|
return FALSE;
|
|
}
|
|
dcb.DCBlength = sizeof(DCB);
|
|
// dcb.DCBversion = 0x0002; in spec not in header
|
|
|
|
dcb.BaudRate = Baud;
|
|
dcb.ByteSize = Size;
|
|
dcb.Parity = Parity;
|
|
dcb.StopBits = Stop;
|
|
|
|
//dcb.RlsTimeout = 10000; 10sec
|
|
//dcb.CtsTimeout = 10000; 10sec
|
|
//dcb.DsrTimeout = 10000; 10sec
|
|
|
|
dcb.fBinary = 1; // binary data xmit
|
|
dcb.fParity = 0; // dont bother about parity
|
|
dcb.fOutxCtsFlow= 0; // no cts flow control
|
|
dcb.fOutxDsrFlow= 0; // no dsr flow control
|
|
dcb.fDtrControl = DTR_CONTROL_DISABLE; // dont bother about dtr
|
|
dcb.fRtsControl = RTS_CONTROL_DISABLE; // dont bother about dtr
|
|
dcb.fOutX =0; // disable xoff handling
|
|
dcb.fInX =0; // disable xon handling
|
|
dcb.fErrorChar = FALSE; // forget about parity char
|
|
dcb.ErrorChar = '*';
|
|
dcb.fNull = 0; // forget about the null striping
|
|
|
|
dcb.XonChar = 0x0;
|
|
dcb.XonLim = 0x0;
|
|
dcb.XoffChar = 0xFF;
|
|
dcb.XoffLim = 0xFF;
|
|
|
|
|
|
dcb.EofChar = 0x00;
|
|
dcb.EvtChar = 'x';
|
|
|
|
dcb.wReserved = 0; // mbz
|
|
dcb.fTXContinueOnXoff = FALSE; // old behaviour
|
|
dcb.fAbortOnError = FALSE; // old behaviour
|
|
|
|
|
|
//dcb.fChEvt = 0; forget about event char
|
|
|
|
bRc = SetCommState(hCommPort,&dcb);
|
|
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot set the comm state rc:%lx\n",bRc);
|
|
bRc = CloseHandle(hCommPort);
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot close the comm port:%lx\n",bRc);
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
print("Setting the line characteristics on comm: SUCCESS\n");
|
|
|
|
|
|
|
|
print("Setting the read/write timeouts to 5 minutes\n");
|
|
|
|
CommTimeOuts.ReadIntervalTimeout = 0;
|
|
CommTimeOuts.ReadTotalTimeoutMultiplier = 0;
|
|
CommTimeOuts.ReadTotalTimeoutConstant = 60*(1000)*5; // 5mins
|
|
CommTimeOuts.WriteTotalTimeoutMultiplier = 0;
|
|
CommTimeOuts.WriteTotalTimeoutConstant = 60*(1000)*5; // 5mins
|
|
|
|
bRc = SetCommTimeouts(hCommPort, &CommTimeOuts);
|
|
|
|
printf("bRc from setcommtimeouts = %lx\n",bRc);
|
|
|
|
if (!bRc)
|
|
{
|
|
printf("FAIL: setcommtimeouts\n");
|
|
}
|
|
|
|
|
|
print("Set the read/write timeouts to 5 minutes\n");
|
|
|
|
print("Filling the buffer with the known chars \n");
|
|
|
|
Byte = 0;
|
|
|
|
for (i=0; i< dwPacketSize; i++)
|
|
{
|
|
//WrBuffer[i] = 'a';
|
|
//WrBuffer[i] = (CHAR)i;
|
|
WrBuffer[i] = Byte;
|
|
Byte++;
|
|
}
|
|
|
|
print("Filling the buffer with the known chars : SUCCESS\n");
|
|
|
|
|
|
#ifdef COM_DEB
|
|
print("Dumping the buffer before sending it to comm\n");
|
|
|
|
for (i=0; i< dwPacketSize; i++)
|
|
{
|
|
//print("%c",RdBuffer[i]);
|
|
print(" %d ",WrBuffer[i]);
|
|
|
|
}
|
|
|
|
print("\nDumping the buffer before sending it to comm SUCCESS\n");
|
|
#endif
|
|
|
|
print("\nLooping %d times doing %d byte packet xfer across %s port\n",
|
|
dwLoop,dwPacketSize,lpCom);
|
|
|
|
for (l=0; l < dwLoop; l++)
|
|
{
|
|
|
|
print("Doing....[%d] iteration in the looped pkt xfer.....\n",l);
|
|
|
|
|
|
print("Filling the Rdbuffer with the known chars (0xFF) to makeit dirty\n");
|
|
|
|
for (i=0; i< dwPacketSize; i++)
|
|
{
|
|
RdBuffer[i] = '0xFF';
|
|
}
|
|
|
|
print("Filling the Rdbuffer with the known chars (0xFF): SUCCESS\n");
|
|
|
|
print("Writting this buffer to the comm port\n");
|
|
|
|
bRc = WriteFile( hCommPort,
|
|
WrBuffer,
|
|
dwPacketSize,
|
|
&dwNumWritten,
|
|
NULL);
|
|
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot Write To the comm port:%lx\n",bRc);
|
|
bRc = CloseHandle(hCommPort);
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot close the comm port:%lx\n",bRc);
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
print("Writting this buffer to the comm port: SUCCESS rc:%lx, byteswritten:%lx\n",
|
|
bRc,dwNumWritten);
|
|
|
|
|
|
if (dwNumWritten < dwPacketSize)
|
|
{
|
|
print("FAIL: less #bytes written, maybe due to time out, as RC is true\n");
|
|
bRc = CloseHandle(hCommPort);
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot close the comm port:%lx\n",bRc);
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
print("Flushing this buffer out of comm port\n");
|
|
|
|
bRc = FlushFileBuffers(hCommPort);
|
|
print("flush file buffers (%lx) rc = %lx\n",hCommPort,bRc);
|
|
|
|
//bRc = ClearCommError(hCommPort,&dwErrors,NULL);
|
|
//print("ClearCommError: rc= %lx and dwErrors=%lx\n",bRc,dwErrors);
|
|
|
|
|
|
Sleep(1000);
|
|
|
|
print("Calling ReadFile...\n");
|
|
|
|
bRc = ReadFile( hCommPort,
|
|
RdBuffer,
|
|
dwPacketSize,
|
|
&dwNumRead,
|
|
NULL);
|
|
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot Read From the comm port:%lx\n",bRc);
|
|
bRc = CloseHandle(hCommPort);
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot close the comm port:%lx\n",bRc);
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
print("Reading this buffer from the comm port: SUCCESS rc:%lx, bytesread:%lx\n",
|
|
bRc,dwNumRead);
|
|
|
|
|
|
|
|
|
|
if (dwNumRead < dwPacketSize)
|
|
{
|
|
print("FAIL: less #bytes read, maybe due to time out, as RC is true\n");
|
|
bRc = CloseHandle(hCommPort);
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot close the comm port:%lx\n",bRc);
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
#ifdef COM_DEB
|
|
print("Dumping the Rdbuffer with the comm data\n");
|
|
|
|
for (i=0; i< dwPacketSize; i++)
|
|
{
|
|
//print("%c",RdBuffer[i]);
|
|
print(" %d ",RdBuffer[i]);
|
|
|
|
}
|
|
|
|
print("\nDumping the Rdbuffer with the comm data: SUCCESS\n");
|
|
#endif
|
|
|
|
print("Comparing the rd and wr buffers\n");
|
|
|
|
for (i=0; i< dwPacketSize; i++)
|
|
{
|
|
if (RdBuffer[i] != WrBuffer[i])
|
|
{
|
|
print("FAIL: BufferMisMatch: RdBuffer[%d]=%lx,WrBuffer[%d]=%lx\n",
|
|
i,RdBuffer[i],i,WrBuffer[i]);
|
|
bRc = CloseHandle(hCommPort);
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot close the comm port:%lx\n",bRc);
|
|
}
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
print("Comparing the rd and wr buffers: SUCCESS\n");
|
|
|
|
}
|
|
|
|
|
|
bRc = FlushFileBuffers(hCommPort);
|
|
print("flush file buffers (%lx,0) rc = %lx\n",hCommPort,bRc);
|
|
|
|
bRc = ClearCommError(hCommPort,&dwErrors,NULL);
|
|
print("ClearCommError: rc= %lx and dwErrors=%lx\n",bRc,dwErrors);
|
|
|
|
|
|
|
|
|
|
|
|
bRc = PurgeComm(hCommPort,PURGE_TXCLEAR);
|
|
print("PurgeComm txclear (%lx,0) rc = %lx\n",hCommPort,bRc);
|
|
|
|
bRc = PurgeComm(hCommPort,PURGE_RXCLEAR);
|
|
print("PurgeComm rxclear (%lx,0) rc = %lx\n",hCommPort,bRc);
|
|
|
|
bRc = PurgeComm(hCommPort,PURGE_RXABORT);
|
|
print("PurgeComm rxabort (%lx,0) rc = %lx\n",hCommPort,bRc);
|
|
|
|
|
|
bRc = PurgeComm(hCommPort,PURGE_TXABORT);
|
|
print("PurgeComm txabort (%lx,0) rc = %lx\n",hCommPort,bRc);
|
|
|
|
|
|
|
|
print("Closing the comm port\n");
|
|
bRc = CloseHandle(hCommPort);
|
|
|
|
if (!bRc)
|
|
{
|
|
print("FAIL: cannot close the comm port:%lx\n",bRc);
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
print("\n\n*** COMM TEST OVER WITHOUT ERRORS *** \n\n");
|
|
}
|