engine.cpp

深圳市微逻辑电子有限公司 巨果&#8226 Kingmos&reg 系统核心

// =============================================
// Program Name: engine
// =============================================

#define STRICT
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <mmsystem.h>

#pragma hdrstop
#include <string.h>
#include <stdlib.h>
#include <tchar.h>
#include <stdio.h> //for _vsntprintf()

#include "resource.h"

#include "engine.h"
#include "dnw.h"
#include "fileopen.h"
#include "font.h"
#include "d_box.h"
#include "usbtxrx.h"

#pragma warning (disable : 4100)
#pragma warning (disable : 4068)

TCHAR szAppName[] = APPNAME;

HINSTANCE _hInstance;
HWND _hwnd;
static HWND _hwndEdit;

#define EDITID   1
#define MAX_EDIT_BUF_SIZE (0x7FFE) 
#define EDIT_BUF_SIZE (0x6000)   
#define EDIT_BUF_DEC_SIZE (0x2000)

//1) Why program doesn't work when EDIT_BUF_SIZE=50000? 
//   If the data size of the edit box is over about 30000, 
//   EM_REPLACESEL message needs very long time.
//   So,EDIT_BUF_SIZE is limited to 30000. 
//   If the size is bigger than 30000, the size will be decreased by 5000. 
//2) WM_CLEAR to the edit box doesn't work. only, EM_REPLACESEL message works.

// ==============================================
// INITIALIZATION
// ==============================================

//////////////////////////////////////
// The WinMain function is the program entry point.
//////////////////////////////////////
#pragma argsused
int WINAPI WinMain(HINSTANCE hInst, HINSTANCE hPrevInstance,
                   LPSTR  lpszCmdParam, int nCmdShow)
{
    MSG  Msg;
    _hInstance = hInst;
	
    //OutputDebugString("");
	
    if (!Register(hInst))
		return FALSE;
	
    if (!Create(hInst, nCmdShow))
		return FALSE;
    
    while (GetMessage(&Msg, NULL, 0, 0))
    {
		if( _hDlgDownloadProgress ==0 || !IsDialogMessage(_hDlgDownloadProgress,&Msg) ) 
			//To throw the message to dialog box procedure
		{
			TranslateMessage(&Msg);
			
			//To intercept key-board input instead of edit control.
			if(Msg.message==WM_CHAR) 
				SendMessage(_hwnd,WM_CHAR,Msg.wParam,Msg.lParam);
			else	//2000.1.26
				DispatchMessage(&Msg);
			//EB_Printf("."); //for debug
		}
    }
    return Msg.wParam;
}


//////////////////////////////////////
// Register Window
//////////////////////////////////////
BOOL Register(HINSTANCE hInst)
{
#if 0
	WNDCLASS WndClass;
	
	WndClass.style          = CS_HREDRAW | CS_VREDRAW;
	WndClass.lpfnWndProc    = WndProc;
	WndClass.cbClsExtra     = 0;
	WndClass.cbWndExtra     = 0;
	WndClass.hInstance      = hInst;
	WndClass.hIcon          = LoadIcon(hInst,MAKEINTRESOURCE(IDI_ICON1));
	WndClass.hCursor        = LoadCursor(NULL,IDC_ARROW);
	WndClass.hbrBackground  = (HBRUSH)(COLOR_WINDOW+1);
	WndClass.lpszMenuName   = MAKEINTRESOURCE(IDR_MENU1);
	WndClass.lpszClassName  = szAppName;
	
	return (RegisterClass (&WndClass) != 0);
#else
	WNDCLASSEX WndClass;
	
	WndClass.cbSize	  = sizeof(WNDCLASSEX);
	WndClass.style          = CS_HREDRAW | CS_VREDRAW;
	WndClass.lpfnWndProc    = WndProc;
	WndClass.cbClsExtra     = 0;
	WndClass.cbWndExtra     = 0;
	WndClass.hInstance      = hInst;
	WndClass.hIcon          = LoadIcon(hInst,MAKEINTRESOURCE(IDI_ICON1));
	WndClass.hCursor        = LoadCursor(NULL,IDC_ARROW);
	WndClass.hbrBackground  = (HBRUSH)(COLOR_WINDOW+1);
	WndClass.lpszMenuName   = MAKEINTRESOURCE(IDR_MENU1);
	WndClass.lpszClassName  = szAppName;
	WndClass.hIconSm	  = LoadIcon(hInst,MAKEINTRESOURCE(IDI_ICON2));
	
	return (RegisterClassEx(&WndClass) != 0);
	
#endif
}

//////////////////////////////////////
// Create the window and show it.
//////////////////////////////////////
BOOL Create(HINSTANCE hInst, int nCmdShow)
{
	HWND hwnd = CreateWindow(szAppName, szAppName,
		WS_OVERLAPPEDWINDOW /*&(~(WS_SIZEBOX|WS_MAXIMIZEBOX|WS_MINIMIZEBOX))*/,
		CW_USEDEFAULT, CW_USEDEFAULT,
		WINDOW_XSIZE,WINDOW_YSIZE,
		NULL, NULL, hInst, NULL);
	
	if (hwnd == NULL)
		return FALSE;
	
	//_hwnd=hwnd; 
	
	ShowWindow(hwnd, nCmdShow);
	UpdateWindow(hwnd);
	
	return TRUE;
}

//==============================================
// IMPLEMENTATION
//==============================================

LRESULT CALLBACK WndProc(HWND hwnd, UINT Message,
						 WPARAM wParam, LPARAM lParam)
{
    //static HINSTANCE hInst;
	
    switch(Message)
    {
    case WM_CREATE:
		//PlaySound(TEXT("d:\\windows\\media\\chimes.wav"),NULL,SND_FILENAME|SND_ASYNC);
		_hwnd=hwnd;
		
        PopFileInitialize(hwnd);
		
		SetTimer(hwnd,1,1000,NULL);
		
		// Create the edit control child window
		_hwndEdit = CreateWindow (TEXT("edit"), NULL,
			WS_CHILD | WS_VISIBLE | /*WS_HSCROLL |*/ WS_VSCROLL | 
			WS_BORDER | ES_LEFT | ES_MULTILINE | ES_READONLY |
			/*ES_NOHIDESEL|*/ ES_AUTOVSCROLL /*|ES_AUTOHSCROLL*/ , 
			0, 0,SCREEN_X,SCREEN_Y,
			hwnd, (HMENU)EDITID, ((LPCREATESTRUCT)lParam)->hInstance, NULL);
		
		SetFont(_hwndEdit);
		SendMessage(_hwndEdit, EM_SETLIMITTEXT, MAX_EDIT_BUF_SIZE, 0L);
		
		ReadUserConfig(); //To get serial settings
		
		return 0; 
    case WM_COMMAND:
        if(lParam==0) //is menu command?
		{
			switch(LOWORD(wParam))
			{
			case CM_CONNECT:
				MenuConnect(hwnd);
				break;
			case CM_TRANSMIT:
				MenuTransmit(hwnd);
				break;
			case CM_OPTIONS:
				MenuOptions(hwnd);
				break;
			case CM_USBTRANSMIT:
				MenuUsbTransmit(hwnd);
				break;
			case CM_USBRECEIVE:
				MenuUsbReceive(hwnd);
				break;      
			case CM_USBSTATUS:
				MenuUsbStatus(hwnd);
				break;
			case CM_ABOUT:
				MenuAbout(hwnd);
				break;
			}
			return 0;
		}
		else
			return 0;
		break;
		
		// WM_PAINT should be processed on DefWindowProc(). 
		// If there is WM_PAINT, there should be UpdateWindow(_hwndEdit). 
		/*
		case WM_PAINT:
		UpdateWindow(_hwndEdit); 
		return 0;
		*/
    case WM_DESTROY:
		KillTimer(hwnd,1);
		Quit(hwnd);
		ReleaseFont();
		PostQuitMessage(0);
		return 0;
		
    case WM_TIMER:
		switch(wParam)
		{
		case 1:
			UpdateWindowTitle();
			break;
		default:
			break;
		}
		return 0;
		
		case WM_SIZE : 
			MoveWindow (_hwndEdit, 0, 0, LOWORD (lParam), HIWORD (lParam), TRUE);
			
			return 0 ;
			//If the size of the parent window is not adjustable,
			//WM_SIZE message is not received.
			//If the size of the parent window is adjustable,
			//WM_SIZE message is received although window size is not changed.
			//MoveWindow(,,,,,TRUE) will make WM_PAINT.
			
			//If DefWindowProc() doesn't process WM_PAINT and WM_PAINT is processed by user, 
			//UpdateWindow(_hwndEdit) is should be executed inide WM_PAINT case,
			//which update the child window.
			
		case WM_CHAR:
			WriteCommBlock((char)wParam);    //UNICODE problem!!!
			return 0;
			
			/*	
			case WM_CTLCOLOR: //for changing FONT & COLOR
			if ( HIWORD(lParam) == CTLCOLOR_EDIT ) {
			// Set the text background color.
            SetBkColor(wParam, RGB(128,128,128));
			// Set the text foreground color.
            SetTextColor(wParam, RGB(255, 255, 255) );
			// Return the control background brush.
            return GetStockObject(LTGRAY_BRUSH);
			}
			else
			return GetStockObject(WHITE_BRUSH);
			*/
    }
    return DefWindowProc(hwnd, Message, wParam, lParam); 
}

//8: \b
//13: \r

// 1)about EM_SETSEL message arguments
//   start_position,end_position
//   The selected character is from start_position to end_position-1;
//   So, We should do +1 to the position of last selected character.
// 2)The char index start from 0.
// 3)WM_CLEAR,WM_CUT doesn't operate on EM_SETSEL chars.

#define STRING_LEN  4096  
volatile static int isUsed=0;

void EB_Printf(TCHAR *fmt,...)
{
    va_list ap;
    int i,slen,lineIdx;
    int txtRepStart,txtRepEnd,txtSelEnd;
    static int wasCr=0; //should be static type.
    static TCHAR string[STRING_LEN+4096]; //margin for '\b'
    static TCHAR string2[STRING_LEN+4096]; //margin for '\n'->'\r\n'
    static int prevBSCnt=0;
    int str2Pt=0;
	
    
    while(isUsed==1); //EB_Printf can be called multiplely  //KIW
	
    txtRepStart=SendMessage(_hwndEdit,WM_GETTEXTLENGTH,0x0,0x0);
    txtRepEnd=txtRepStart-1;
    
    va_start(ap,fmt);
    _vsntprintf(string2,STRING_LEN-1,fmt,ap);
    va_end(ap);
	
    string2[STRING_LEN-1]='\0';
    
    //for better look of BS(backspace) char.,
    //the BS in the end of the string will be processed next time.
    for(i=0;i<prevBSCnt;i++) //process the previous BS char.
		string[i]='\b';
    string[prevBSCnt]='\0';
    lstrcat(string,string2);
    string2[0]='\0';
	
    slen=lstrlen(string);
    for(i=0;i<slen;i++)
		if(string[slen-i-1]!='\b')break;
		
		prevBSCnt=i; // These BSs will be processed next time.
		slen=slen-prevBSCnt;
		
		if(slen==0)
		{
			isUsed=0;
			return;
		}
		
		for(i=0;i<slen;i++)
		{
			if( (string[i]=='\n'))
			{
				string2[str2Pt++]='\r';txtRepEnd++;
				string2[str2Pt++]='\n';txtRepEnd++;
				wasCr=0;
				continue;
			}
			if( (string[i]!='\n') && (wasCr==1) )
			{
				string2[str2Pt++]='\r';txtRepEnd++;
				string2[str2Pt++]='\n';txtRepEnd++;
				wasCr=0;
			}
			if(string[i]=='\r')
			{
				wasCr=1;
				continue;
			}
			
			if(string[i]=='\b')
			{
				//flush string2
				if(str2Pt>0)
				{
					string2[--str2Pt]='\0';
					txtRepEnd--;
					continue;
				}
				//str2Pt==0;	    
				if(txtRepStart>0)
				{
					txtRepStart--;		
				}
				continue;
			}
			string2[str2Pt++]=string[i];
			txtRepEnd++;
			// if(str2Pt>256-3)break; //why needed? 2001.1.26
		}
		
		string2[str2Pt]='\0';    
		if(str2Pt>0)
		{
			SendMessage(_hwndEdit,EM_SETSEL,txtRepStart,txtRepEnd+1);
			SendMessage(_hwndEdit,EM_REPLACESEL,0,(LPARAM)string2);         
		}
		else
		{
			if(txtRepStart<=txtRepEnd)
			{
				SendMessage(_hwndEdit,EM_SETSEL,txtRepStart,txtRepEnd+1);
				SendMessage(_hwndEdit,EM_REPLACESEL,0,(LPARAM)"");         
			}
		}
		
		
		//If edit buffer is over EDIT_BUF_SIZE,
		//the size of buffer must be decreased by EDIT_BUF_DEC_SIZE.
		if(txtRepEnd>EDIT_BUF_SIZE)
		{
			lineIdx=SendMessage(_hwndEdit,EM_LINEFROMCHAR,EDIT_BUF_DEC_SIZE,0x0);
			//lineIdx=SendMessage(_hwndEdit,EM_LINEFROMCHAR,txtRepEnd-txtRepStart+1,0x0); //for debug
			txtSelEnd=SendMessage(_hwndEdit,EM_LINEINDEX,lineIdx,0x0)-1;
			SendMessage(_hwndEdit,EM_SETSEL,0,txtSelEnd+1);
			
			SendMessage(_hwndEdit,EM_REPLACESEL,0,(LPARAM)"");
			//SendMessage(_hwndEdit,WM_CLEAR,0,0); //WM_CLEAR doesn't work? Why?
			//SendMessage(_hwndEdit,WM_CUT,0,0); //WM_CUT doesn't work? Why?
			
			//make the end of the text shown.
			txtRepEnd=SendMessage(_hwndEdit,WM_GETTEXTLENGTH,0x0,0x0)-1;
			SendMessage(_hwndEdit,EM_SETSEL,txtRepEnd+1,txtRepEnd+2); 
			SendMessage(_hwndEdit,EM_REPLACESEL,0,(LPARAM)" ");
			SendMessage(_hwndEdit,EM_SETSEL,txtRepEnd+1,txtRepEnd+2);
			SendMessage(_hwndEdit,EM_REPLACESEL,0,(LPARAM)"");
		}
		
		isUsed=0;
}