// operating system includes
#include "windows.h"
#include "winsock.h"
#include "commctrl.h"
// run-time library includes
#include "stdio.h"
#include "string.h"
// helper library includes
#include "..\CDC\CDC.h"
// application includes
#include "resource.h"
#include "..\relay\cdtime.h"
#include "..\relay\remote.h"

// useful strings
char g_szNull[] = "";
const char g_szClass[] = "NSMCDWND";
const char g_szError[] = "Error";
const char g_szPerformer[] = "Performer";
const char g_szSong[] = "Song";
const char g_szAlbum[] = "Album";
const char g_szStyle[] = "Style";
const char g_szComposer[] = "Composer";


// return from DialogBox
char g_szbuf[80];

HWND g_hWnd;
HINSTANCE g_hInst;

SOCKET g_sock = INVALID_SOCKET;


RECT g_rStatus = { 10, 10, 250, 80 };

#define Assert(x) { if (!(x)) _asm int 3 }


typedef struct
{
	unsigned short	fFlags;
	CDTime			cdtStart;
	CDTime			cdtLength;
} TRACKINFO;

#define TIF_PLAYED


typedef struct
{
	unsigned long	xID;
	unsigned short	iFirst;
	unsigned short	cTracks;
	CDTime			cdtTotal;
	unsigned short	fFlags;
	TRACKINFO *		pTrackInfo;
} DISCINFO;

#define DIF_PRESENT 0x0001


typedef struct
{
	unsigned short Disc;
	unsigned short Track;
} PLAYLISTITEM;

HGLOBAL g_hPlaylist = NULL;
int g_cPlaylist;
int g_iPlaylistCur;

///////////////////////////////////////

enum
{
   PLAY,
   PAUSE,
   STOP,
   NODISC,
   RANDOM
} g_status;


HANDLE CreateInheritMutex(void)
{
   SECURITY_ATTRIBUTES sa;

   sa.nLength = sizeof(SECURITY_ATTRIBUTES);
   sa.lpSecurityDescriptor = NULL;
   sa.bInheritHandle = TRUE;

   return CreateMutex(&sa,FALSE,NULL);
}


int LVGetSelected(HWND hList)
{
	int	cItem = SendMessage(hList,LVM_GETITEMCOUNT,0,0);
	int i;
	UINT stateMask = LVIS_SELECTED;

	for (i=0; i<cItem; i++)
		if (SendMessage(hList,LVM_GETITEMSTATE,i,(LPARAM)stateMask))
			return i;

	return -1;
}


#if 0
unsigned long StatusThread(HWND hWnd)
{
	char buf[50];
	int i;

	HDC hdc = ::GetDC(hWnd);

	while (1)
	{
		// set busy state
		//::TextOut(hdc,10,10,"busy",4);

		// retrieve status
		::WaitForSingleObject(g_mxComm,INFINITE);
		nsmCommand(NSM_GET_STATUS,g_szNull,buf);
		::ReleaseMutex(g_mxComm);

		// update status

		::WaitForSingleObject(g_mxStatusInfo,INFINITE);


		g_cdtCurTrack.SetMMSS(&buf[17]);
		g_cdtCurDisc.SetMMSS(&buf[23]);
		g_iCurDisc  = (buf[11]-'0')*10 + (buf[12]-'0');
		g_iCurTrack = (buf[13]-'0')*10 + (buf[14]-'0');
	    g_iCurIndex = (buf[15]-'0')*10 + (buf[16]-'0');
		g_fAutopauseMode = (buf[9]=='S');

		g_nsmStatus = 0;
		for (i=0; i<13; i++)
		{
			if (g_pszStatus[i*2][0]==buf[7] && g_pszStatus[i*2][1]==buf[8])
			{
				g_nsmStatus = i;
				break;
			}
		}

		if (g_status==RANDOM && (i==11 || i==12))
			NextPlaylist();

		::ReleaseMutex(g_mxStatusInfo);

		::InvalidateRect(hWnd,&g_rStatus,TRUE);

		// Update the status every 1 second
		::Sleep(1000);
	}

	::ReleaseDC(hWnd,hdc);

	return 0;
}
#endif


BOOL CALLBACK GetHostName(
  HWND hDlg,
  UINT uMsg,
  WPARAM wParam,
  LPARAM lParam)
{
	switch (uMsg) 
	{
		case WM_INITDIALOG:
			SetDlgItemText(hDlg,IDC_EDIT,"BANGKOK");
			SetFocus(GetDlgItem(hDlg,IDC_EDIT));
			return (TRUE);

		case WM_COMMAND:
		{
			switch(LOWORD(wParam)) 
			{
				case IDOK:
					GetDlgItemText(hDlg,IDC_EDIT,g_szbuf,sizeof(g_szbuf));
					EndDialog(hDlg,TRUE);
		            break;
				case IDCANCEL:
					EndDialog(hDlg,FALSE);
					break;
				default:
					return FALSE;
			}
			return (TRUE);
		}
    }
	return 0;
}


////////////////////////////////////////////////////////////////////////////
//
//
//
////////////////////////////////////////////////////////////////////////////
LRESULT CALLBACK WndProc(
  HWND hWnd,
  UINT message,
  WPARAM uParam,
  LPARAM lParam)
{
    switch (message)
    {
		case WM_CREATE:

            CreateDlgControls(hWnd, NULL, MAKEINTRESOURCE(IDD_APP), g_hInst);

			{
				HWND hwndTab = GetDlgItem(hWnd,IDC_TAB);
				TC_ITEM tci;

			    tci.mask = TCIF_TEXT | TCIF_IMAGE; 
				tci.iImage = -1; 

				tci.pszText = (char *)g_szPerformer;
				TabCtrl_InsertItem(hwndTab,0,&tci);
				tci.pszText = (char *)g_szSong;
				TabCtrl_InsertItem(hwndTab,0,&tci);
				tci.pszText = (char *)g_szAlbum;
				TabCtrl_InsertItem(hwndTab,0,&tci);
				tci.pszText = (char *)g_szStyle;
				TabCtrl_InsertItem(hwndTab,0,&tci);
				tci.pszText = (char *)g_szComposer;
				TabCtrl_InsertItem(hwndTab,0,&tci);

			}

#if 0
			{
				// Start status updating thread.
				DWORD tid;
				HANDLE hThread;

				hThread = CreateThread(NULL,0,(unsigned long (__stdcall *)(void *))StatusThread,hWnd,0,&tid);
				CloseHandle(hThread);
			}
#endif

			break;

		case WM_NOTIFY:
			{
				NMHDR const &nmh = *(NMHDR *)lParam;
				int iSel = TabCtrl_GetCurSel(nmh.hwndFrom);
				TC_ITEM tci;
				char szTab[50];

				tci.mask = TCIF_TEXT;
				tci.pszText = szTab;
				tci.cchTextMax = sizeof(szTab);
				TabCtrl_GetItem(nmh.hwndFrom,iSel,&tci);

				switch (nmh.code)
				{
					case TCN_SELCHANGING:  // page going away
						// Not hard coding the tab order for improved code readability and 
						// code maintenance and so the tab order can easily be changed.
						if (!::lstrcmp(szTab,g_szPerformer))
						{


						}
						else if (!::lstrcmp(szTab,g_szSong))
						{

						}
						else if (!::lstrcmp(szTab,g_szAlbum))
						{


						}
						else if (!::lstrcmp(szTab,g_szStyle))
						{


						}
						else if (!::lstrcmp(szTab,g_szComposer))
						{


						}
						break;

					case TCN_SELCHANGE:   // page coming in
						// Not hard coding the tab order for improved code readability and 
						// code maintenance and so the tab order can easily be changed.
						if (!::lstrcmp(szTab,g_szPerformer))
						{


						}
						else if (!::lstrcmp(szTab,g_szSong))
						{

						}
						else if (!::lstrcmp(szTab,g_szAlbum))
						{


						}
						else if (!::lstrcmp(szTab,g_szStyle))
						{


						}
						else if (!::lstrcmp(szTab,g_szComposer))
						{


						}
						break;

				}


			}
			break;

		case WM_PAINT:
			{
				PAINTSTRUCT ps;
				TEXTMETRIC tm;

				BeginPaint(hWnd,&ps);

				::SetBkMode(ps.hdc,TRANSPARENT);
				::SelectObject(ps.hdc,GetStockObject(ANSI_VAR_FONT));
				::GetTextMetrics(ps.hdc,&tm);

				EndPaint(hWnd,&ps);
			}
			break;

		case WM_COMMAND:
			switch (uParam)
			{
				case IDCANCEL:
                    DestroyWindow(hWnd);
                    break;

				case IDC_CONNECT:
					{
						SOCKADDR_IN sin;
						PHOSTENT phe;

						if (!DialogBox(g_hInst,MAKEINTRESOURCE(IDD_HOSTNAME),hWnd,(DLGPROC)GetHostName))
							break;


				        g_sock = socket(AF_INET,SOCK_STREAM,0);

						if (g_sock==INVALID_SOCKET) 
						{
							MessageBox(hWnd,"socket() failed","Error",MB_OK);
							break;
						}

						sin.sin_family = AF_INET;

						//if (IsDlgButtonChecked(hWnd,IDC_CD0))
						//	sin.sin_port = htons(CD1_PORT_NUM);
						//else
							sin.sin_port = htons(CD0_PORT_NUM);

					    phe = gethostbyname(g_szbuf);

						if (phe == NULL) 
						{
							char szTemp[100];
							wsprintf(szTemp,"%d is the error. Make sure '%s' is listed in the hosts file.", WSAGetLastError(),g_szbuf);
					        MessageBox(hWnd,szTemp,"gethostbyname() failed.",MB_OK);
							closesocket(g_sock);
					        break;
						}

						memcpy((char FAR *)&(sin.sin_addr),phe->h_addr,phe->h_length);

						if (connect(g_sock,(PSOCKADDR)&sin,sizeof(sin)) < 0) 
						{
							closesocket(g_sock);
							MessageBox(hWnd,"connect() failed","Error",MB_OK);
							break;
						}

						MessageBox(hWnd,"connect() worked!","Success!", MB_OK);
						EnableWindow(GetDlgItem(hWnd,IDC_SKIP),TRUE);
						EnableWindow(GetDlgItem(hWnd,IDC_CONNECT),FALSE);
					}
					break;

				case IDC_SKIP:
					{
						REMOTECMD k=NextTrack; 

						::send(g_sock,(char *)&k,sizeof(k),0);
					}
					break;
				case IDC_RESTARTTRACK:
					{
						REMOTECMD k=RestartTrack;

						::send(g_sock,(char *)&k,sizeof(k),0);
					}
					break;

				case IDC_PLAYTRACK:
					{
						char buf[80];

						reqPLAYTRACK *req = (reqPLAYTRACK *)(buf+sizeof(REMOTECMD));

						req->disc  = GetDlgItemInt(hWnd,IDC_DISC,NULL,FALSE);
						req->track = GetDlgItemInt(hWnd,IDC_TRACK,NULL,FALSE);

						*(REMOTECMD *)buf = PlayTrack;

						::send(g_sock,buf,sizeof(REMOTECMD)+sizeof(reqPLAYTRACK),0);

					}
					break;

				case IDC_PLAYDISC:
					{
						char buf[80];

						reqPLAYDISC *req = (reqPLAYDISC *)(buf+sizeof(REMOTECMD));

						req->disc  = GetDlgItemInt(hWnd,IDC_DISC,NULL,FALSE);

						*(REMOTECMD *)buf = PlayDisc;

						::send(g_sock,buf,sizeof(REMOTECMD)+sizeof(reqPLAYDISC),0);

					}
					break;

				case IDC_GETTRACKINFO:
					{
						REMOTECMD k=GetTrackInfo;
						reqGETTRACKINFO rti;
						char buf[200];

						::send(g_sock,(char *)&k,sizeof(k),0);

						::recv(g_sock,(char *)&rti,sizeof(rti),0);

						wsprintf(buf,"Disc %d; track %d; Artist: %s; Disc: %s",
							         rti.disc,rti.track,rti.szartist,rti.szdisc);

						MessageBox(hWnd,buf,"Track Info",MB_OK);

					}
					break;

			}
			break;

        case WM_DESTROY:
			if (g_sock != INVALID_SOCKET)
				closesocket(g_sock);
            PostQuitMessage(0);
            break;

        default:
            return DefWindowProc(hWnd, message, uParam, lParam);
    }
    return 0;
}


////////////////////////////////////////////////////////////////////////////
//
//
//
////////////////////////////////////////////////////////////////////////////
int WINAPI WinMain(
    HINSTANCE hInstance,
    HINSTANCE hPrevInstance,
    LPSTR lpCmdLine,
    int nCmdShow)
{

	g_hInst = hInstance;

	InitCommonControls();
	// Startup Windows sockets subsystem
	{
		WSADATA wsad;
		::WSAStartup(MAKEWORD(1,1),&wsad);
	}

    WNDCLASS  wc;

    // Fill in window class structure with parameters that describe the
    // main window.

    wc.style         = 0;
    wc.lpfnWndProc   = (WNDPROC)WndProc;
    wc.cbClsExtra    = 0;
    wc.cbWndExtra    = 0;
    wc.hInstance     = hInstance;
    wc.hIcon         = LoadIcon(hInstance,MAKEINTRESOURCE(IDI_ICON1));
    wc.hCursor       = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
    wc.lpszMenuName  = NULL;//MAKEINTRESOURCE(IDR_MENU1);
    wc.lpszClassName = g_szClass;

    RegisterClass(&wc);

    g_hWnd = CreateWindow(
                g_szClass,
				g_szNull,
                WS_OVERLAPPED | WS_CAPTION,
                CW_USEDEFAULT, 0, CW_USEDEFAULT, 0,
                NULL,
                NULL,
                hInstance,
                NULL);

    if (!g_hWnd)
        return FALSE;

	ShowWindow(g_hWnd,nCmdShow);
	UpdateWindow(g_hWnd);

	MSG msg;

    while (GetMessage(&msg,NULL,0,0))
    {
   		TranslateMessage(&msg);
   		DispatchMessage(&msg);
    }

   ::WSACleanup();

   return 0;
}