//
//  Copyright(C) Renesas Technology Corp. 2004. All rights reserved.
//
//  IrDA Test for ITS-DS7
//
//  FILE      : MySqurt.c
//  CREATED   : 2004.11.12
//  MODIFIED  : 2004.11.12
//  AUTHOR    : Renesas Technology Corp.
//  HARDWARE  : RENESAS ITS-DS7
//  HISTORY   : 
//              2004.11.12
//              - Added init and terminate of Windows socket.
//

//======================================================================
// MySqurt - Windows CE梡偺IrSock傾僾儕働乕僔儑儞
//
// 弌揟: 亀僾儘僌儔儈儞僌 Microsoft Windows CE亁
// Copyright (C) 1998 Douglas Boling
//======================================================================
#include <windows.h>                 // 偡傋偰偺Windows僾儘僌儔儉偵嫟捠
#include <winsock.h>                 // 僜働僢僩偺僀儞僋儖乕僪
#include <af_irda.h>                 // IrDA偺僀儞僋儖乕僪

#include "MySqurt.h"                 // 僾儘僌儔儉屌桳偺僿僢僟乕

//----------------------------------------------------------------------
// 僌儘乕僶儖 僨乕僞
//
const TCHAR szAppName[] = TEXT ("MySqurt");
const char chzAppName[] = "MySqurt";
HINSTANCE hInst;                     // 僾儘僌儔儉偺僀儞僗僞儞僗 僴儞僪儖
HWND hMain;                          // 儊僀儞 僂傿儞僪僂偺僴儞僪儖
BOOL fContinue = TRUE;               // 僒乕僶乕 僗儗僢僪偺宲懕僼儔僌

// MainWndProc偱儊僢僙乕僕傪僨傿僗僷僢僠偡傞偨傔偺僥乕僽儖
const struct decodeUINT MainMessages[] = {
    WM_COMMAND, DoCommandMain,
    WM_DESTROY, DoDestroyMain,
};
// DoCommandMain偱僐儅儞僪 儊僢僙乕僕傪僨傿僗僷僢僠偡傞偨傔偺僥乕僽儖
const struct decodeCMD MainCommandItems[] = {
    IDOK, DoMainCommandGet,
    IDCANCEL, DoMainCommandExit,
    IDD_GETFILE, DoMainCommandGet,
};
//======================================================================
// 僾儘僌儔儉偺僄儞僩儕 億僀儞僩
//
int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
                    LPWSTR lpCmdLine, int nCmdShow) {
    MSG msg;
    int rc = 0;
	WSADATA wsaData;
	WORD wVersionRequested = MAKEWORD(1, 1);

    // 傾僾儕働乕僔儑儞偺弶婜壔
    rc = InitApp (hInstance);
    if (rc) return rc;

	// initialize Winsock library
	rc = WSAStartup(wVersionRequested, &wsaData);
	if (rc != 0)
		return -1;
	if (LOBYTE(wsaData.wVersion) != 1 || HIBYTE(wsaData.wVersion) != 1)
	{
		WSACleanup();
		return -1;
	}

    // 僀儞僗僞儞僗偺弶婜壔
    hMain = InitInstance (hInstance, lpCmdLine, nCmdShow);
    if (hMain == 0)
        return TermInstance (hInstance, 0x10);

    // 傾僾儕働乕僔儑儞偺儊僢僙乕僕 儖乕僾
    while (GetMessage (&msg, NULL, 0, 0)) {
        if ((hMain == 0) || !IsDialogMessage (hMain, &msg)) {
            TranslateMessage (&msg);
            DispatchMessage (&msg);
        }
    }
    // 僀儞僗僞儞僗偺僋儕乕儞傾僢僾
    return TermInstance (hInstance, msg.wParam);
}
//----------------------------------------------------------------------
// InitApp - 傾僾儕働乕僔儑儞偺弶婜壔
//
int InitApp (HINSTANCE hInstance) {
    WNDCLASS wc;
    HWND hWnd;

    // 婛偵僀儞僗僞儞僗偑懚嵼偡傞応崌偼丄偦偺僀儞僗僞儞僗傪傾僋僥傿僽偵偡傞
    hWnd = FindWindow (szAppName, NULL);
    if (hWnd) {
        SetForegroundWindow (hWnd);
        return -1;
    }
    // 傾僾儕働乕僔儑儞偺儊僀儞 僂傿儞僪僂 僋儔僗傪搊榐偡傞
    wc.style = 0;                             // 僂傿儞僪僂 僗僞僀儖
    wc.lpfnWndProc = MainWndProc;             // 僐乕儖僶僢僋娭悢
    wc.cbClsExtra = 0;                        // 奼挘僋儔僗 僨乕僞
    wc.cbWndExtra = DLGWINDOWEXTRA;           // 奼挘僂傿儞僪僂 僨乕僞
    wc.hInstance = hInstance;                 // 僆乕僫乕 僴儞僪儖
    wc.hIcon = NULL;                          // 傾僾儕働乕僔儑儞 傾僀僐儞
    wc.hCursor = NULL;                        // 昗弨僇乕僜儖
    wc.hbrBackground = (HBRUSH)GetStockObject (LTGRAY_BRUSH);
    wc.lpszMenuName =  NULL;                  // 儊僯儏乕柤
    wc.lpszClassName = szAppName;             // 僂傿儞僪僂 僋儔僗柤

    if (RegisterClass (&wc) == 0) return 1;
    return 0;
}
//----------------------------------------------------------------------
// InitInstance - 僀儞僗僞儞僗偺弶婜壔
//
HWND InitInstance (HINSTANCE hInstance, LPWSTR lpCmdLine, int nCmdShow){
    HWND hWnd;
    HANDLE hThread;
    INT rc;
    
    // 僾儘僌儔儉偺僀儞僗僞儞僗 僴儞僪儖傪僌儘乕僶儖曄悢偵戙擖偡傞
    hInst = hInstance;        

    // 儊僀儞 僂傿儞僪僂偺嶌惉
    hWnd = CreateDialog (hInst, szAppName, NULL, NULL);
    // 僂傿儞僪僂偑嶌惉偝傟側偐偭偨応崌丄僄儔乕 僐乕僪傪曉偡
    if (!IsWindow (hWnd)) return 0;

    // 僾儘僙僗娫捠怣梡偺僙僇儞僟儕 僗儗僢僪傪嶌惉偡傞
    hThread = CreateThread (NULL, 0, (LPTHREAD_START_ROUTINE)ServerThread,
                            hWnd, 0, &rc);
    if (hThread == 0) {
        DestroyWindow (hWnd);
        return 0;
    }
    CloseHandle (hThread);
    // 僂傿儞僪僂偺昗弨揑側昞帵偲峏怴偺屇傃弌偟
    ShowWindow (hWnd, nCmdShow);
    UpdateWindow (hWnd);
    SetFocus (GetDlgItem (hWnd, IDD_OUTTEXT));
    return hWnd;
}
//----------------------------------------------------------------------
// TermInstance - 僾儘僌儔儉偺僋儕乕儞傾僢僾
//
int TermInstance (HINSTANCE hInstance, int nDefRC) {
	WSACleanup();
    return nDefRC;
}
//======================================================================
// 儊僀儞 僂傿儞僪僂偺儊僢僙乕僕張棟僾儘僔乕僕儍
//----------------------------------------------------------------------
// MainWndProc - 傾僾儕働乕僔儑儞 僂傿儞僪僂偺僐乕儖僶僢僋娭悢
//
LRESULT CALLBACK MainWndProc (HWND hWnd, UINT wMsg, WPARAM wParam,
                              LPARAM lParam) {
    INT i;
    //
    // 儊僢僙乕僕 儕僗僩偲徠崌偟丄庴偗庢偭偨儊僢僙乕僕傪張棟偡傞昁梫偑
    // 偁傞偐偳偆偐傪敾抐偡傞丅昁梫偑偁傟偽丄僾儘僔乕僕儍傪屇傃弌偡丅
    //
    for (i = 0; i < dim(MainMessages); i++) {
        if (wMsg == MainMessages[i].Code)
            return (*MainMessages[i].Fxn)(hWnd, wMsg, wParam, lParam);
    }
    return DefWindowProc (hWnd, wMsg, wParam, lParam);
}
//----------------------------------------------------------------------
// DoCommandMain - 僂傿儞僪僂偑庴偗庢偭偨WM_COMMAND儊僢僙乕僕傪張棟偡傞
//
LRESULT DoCommandMain (HWND hWnd, UINT wMsg, WPARAM wParam,
                       LPARAM lParam) {
    WORD idItem, wNotifyCode;
    HWND hwndCtl;
    INT  i;

    // 僷儔儊乕僞傪夝愅偡傞
    idItem = (WORD)LOWORD (wParam);
    wNotifyCode = (WORD)HIWORD (wParam);
    hwndCtl = (HWND)lParam;

    // 僐儅儞僪 儊僢僙乕僕傪張棟偡傞儖乕僠儞傪屇傃弌偡
    for (i = 0; i < dim(MainCommandItems); i++) {
        if (idItem == MainCommandItems[i].Code)
            return (*MainCommandItems[i].Fxn)(hWnd, idItem, hwndCtl,
                                              wNotifyCode);
    }
    return 0;
}
//----------------------------------------------------------------------
// DoDestroyMain - 僂傿儞僪僂偑庴偗庢偭偨WM_DESTROY儊僢僙乕僕傪張棟偡傞
//
LRESULT DoDestroyMain (HWND hWnd, UINT wMsg, WPARAM wParam,
                       LPARAM lParam) {
    fContinue = FALSE;               // 僒乕僶乕 僗儗僢僪傪廔椆偡傞
    Sleep (0);                       // 僞僀儉僗儔僀僗傪傎偐偺僗儗僢僪偵搉偡
    PostQuitMessage (0);
    return 0;
}
//======================================================================
// 僐儅儞僪 僴儞僪儔 儖乕僠儞
//----------------------------------------------------------------------
// DoMainCommandExit - 乵暵偠傞乶儃僞儞傪張棟偡傞丅
//
LPARAM DoMainCommandExit (HWND hWnd, WORD idItem, HWND hwndCtl,
                          WORD wNotifyCode) {

    SendMessage (hWnd, WM_CLOSE, 0, 0);
    return 0;
}
//----------------------------------------------------------------------
// DoMainCommandGet - 乵Get File乶儃僞儞傪張棟偡傞丅
//
LPARAM DoMainCommandGet (HWND hWnd, WORD idItem, HWND hwndCtl,
                         WORD wNotifyCode) {
    TCHAR szName[_MAX_PATH];
    INT rc;

    GetDlgItemText (hWnd, IDD_OUTTEXT, szName, dim(szName));
    rc = GetFile (hWnd, szName);            // 僼傽僀儖傪庴怣偡傞
    return 0;
}
//----------------------------------------------------------------------
// Add2List - 儗億乕僩 儕僗僩 儃僢僋僗偵暥帤楍傪捛壛偡傞
//
void Add2List (HWND hWnd, LPTSTR lpszFormat, ...) {
    int i, nBuf;
    TCHAR szBuffer[512];

    va_list args;
    va_start(args, lpszFormat);

    nBuf = _vstprintf(szBuffer, lpszFormat, args);

    i = SendDlgItemMessage (hWnd, IDD_INTEXT, LB_ADDSTRING, 0,
                            (LPARAM)(LPCTSTR)szBuffer);
    if (i != LB_ERR)
        SendDlgItemMessage (hWnd, IDD_INTEXT, LB_SETTOPINDEX, i,
                            (LPARAM)(LPCTSTR)szBuffer);
    va_end(args);
}
//======================================================================
// ServerThread - 愙懕傪娔帇偟丄愙懕偑妋棫偟偨偲偒偵僂傿儞僪僂偵捠抦偡傞
//
int ServerThread (PVOID pArg) {
    HWND hWnd = (HWND)pArg;
    INT rc, nSize, i;
    SOCKADDR_IRDA iraddr, t_iraddr;
    SOCKET t_sock, s_sock;
    HANDLE hThread;

    Add2List (hWnd, TEXT ("server thread entered"));

    // IrDA僜働僢僩傪奐偔
    s_sock = socket (AF_IRDA, SOCK_STREAM, 0);
    if (s_sock == INVALID_SOCKET) {
        Add2List (hWnd, TEXT ("socket failed. rc %d"),
                  WSAGetLastError());
        return 0;
    }
    // IrDA僜働僢僩偺傾僪儗僗峔憿懱偵僨乕僞傪愝掕偡傞
    iraddr.irdaAddressFamily = AF_IRDA;
    for (i = 0; i < dim(iraddr.irdaDeviceID); i++)