// WinScript.cpp : アプリケーションのエントリ ポイントを定義します。
//

#include "stdafx.h"
#include "WinScript.h"
#include "compiler.h"
#include "vm.h"

#define MAX_LOADSTRING 100

// グローバル変数:
HINSTANCE hInst;								// 現在のインターフェイス
TCHAR szTitle[MAX_LOADSTRING];					// タイトル バーのテキスト
TCHAR szWindowClass[MAX_LOADSTRING];			// メイン ウィンドウ クラス名

vm::data vm_data;
vm::vcpu vmachine;

HWND hAppWnd;
HPEN hPen;
HPEN hOldPen;

// このコード モジュールに含まれる関数の宣言を転送します:
ATOM				MyRegisterClass(HINSTANCE hInstance);
BOOL				InitInstance(HINSTANCE, int);
LRESULT CALLBACK	WndProc(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK	About(HWND, UINT, WPARAM, LPARAM);
INT_PTR CALLBACK	ErrorList(HWND, UINT, WPARAM, LPARAM);

// システムコール
// メッセージボックス
int VmMessageBox(const char *title, const char *message)
{
	return MessageBox(hAppWnd, message, title, MB_OK);
}

// 線を引く
void VmMoveTo(int dc, int x, int y)
{
	MoveToEx((HDC)(INT_PTR)dc, x, y, NULL);
}

void VmLineTo(int dc, int x, int y)
{
	LineTo((HDC)(INT_PTR)dc, x, y);
}

// 色を変える
void VmSetColor(int dc, int r, int g, int b)
{
	HPEN hNewPen = CreatePen(PS_SOLID, 0, RGB(r, g, b));

	SelectObject((HDC)(INT_PTR)dc, hNewPen);
	DeleteObject(hPen);

	hPen = hNewPen;
}

int VmGetDC()
{
	HDC hdc = GetDC(hAppWnd);
	hPen = CreatePen(PS_SOLID, 0, RGB(0, 0, 0));
	hOldPen = (HPEN)SelectObject(hdc, hPen);
	return (int)(INT_PTR)hdc;
}

void VmReleaseDC(int dc)
{
	HDC hdc = (HDC)(INT_PTR)dc;
	SelectObject(hdc, hOldPen);
	ReleaseDC(hAppWnd, hdc);
	DeleteObject(hPen);
}

// コンパイル
bool Compile(const char *path)
{
	compiler driver;
	// システムコールの設定
	driver.add_function(vm::SYS_TOSTR, TYPE_STRING, "str", "i");
	driver.add_function(vm::SYS_MESSAGE_BOX, TYPE_INTEGER, "MessageBox", "ss");
	driver.add_function(vm::SYS_LINE_TO, TYPE_VOID, "LineTo", "iii");
	driver.add_function(vm::SYS_MOVE_TO, TYPE_VOID, "MoveTo", "iii");
	driver.add_function(vm::SYS_SET_COLOR, TYPE_VOID, "SetColor", "iiii");
	driver.add_function(vm::SYS_GET_DC, TYPE_INTEGER, "GetDC", "");
	driver.add_function(vm::SYS_RELEASE_DC, TYPE_VOID, "ReleaseDC", "i");

	if (!driver.compile(path, vm_data)) {
		DialogBoxParam(hInst, MAKEINTRESOURCE(IDD_ERRORLIST), NULL, ErrorList, (LPARAM)&driver);
		return false;
	}
	return true;
}


int APIENTRY _tWinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPTSTR    lpCmdLine,
                     int       nCmdShow)
{
	UNREFERENCED_PARAMETER(hPrevInstance);
	UNREFERENCED_PARAMETER(lpCmdLine);

 	// TODO: ここにコードを挿入してください。
	MSG msg;
	HACCEL hAccelTable;

	// グローバル文字列を初期化しています。
	LoadString(hInstance, IDS_APP_TITLE, szTitle, MAX_LOADSTRING);
	LoadString(hInstance, IDC_WINSCRIPT, szWindowClass, MAX_LOADSTRING);
	MyRegisterClass(hInstance);

	if (!Compile("main.txt")) {
		return FALSE;
	}

	// アプリケーションの初期化を実行します:
	if (!InitInstance (hInstance, nCmdShow))
	{
		return FALSE;
	}

	hAccelTable = LoadAccelerators(hInstance, MAKEINTRESOURCE(IDC_WINSCRIPT));

	// メイン メッセージ ループ:
	while (GetMessage(&msg, 0, 0, 0)) {
		if (!TranslateAccelerator(msg.hwnd, hAccelTable, &msg)) {
			TranslateMessage(&msg);
			DispatchMessage(&msg);
		}
	}
	return (int) msg.wParam;
}



//
//  関数: MyRegisterClass()
//
//  目的: ウィンドウ クラスを登録します。
//
//  コメント:
//
//    この関数および使い方は、'RegisterClassEx' 関数が追加された
//    Windows 95 より前の Win32 システムと互換させる場合にのみ必要です。
//    アプリケーションが、関連付けられた
//    正しい形式の小さいアイコンを取得できるようにするには、
//    この関数を呼び出してください。
//
ATOM MyRegisterClass(HINSTANCE hInstance)
{
	WNDCLASSEX wcex;

	wcex.cbSize = sizeof(WNDCLASSEX);

	wcex.style			= CS_HREDRAW | CS_VREDRAW;
	wcex.lpfnWndProc	= WndProc;
	wcex.cbClsExtra		= 0;
	wcex.cbWndExtra		= 0;
	wcex.hInstance		= hInstance;
	wcex.hIcon			= LoadIcon(hInstance, MAKEINTRESOURCE(IDI_WINSCRIPT));
	wcex.hCursor		= LoadCursor(NULL, IDC_ARROW);
	wcex.hbrBackground	= (HBRUSH)(COLOR_WINDOW+1);
	wcex.lpszMenuName	= MAKEINTRESOURCE(IDC_WINSCRIPT);
	wcex.lpszClassName	= szWindowClass;
	wcex.hIconSm		= LoadIcon(wcex.hInstance, MAKEINTRESOURCE(IDI_SMALL));

	return RegisterClassEx(&wcex);
}

//
//   関数: InitInstance(HINSTANCE, int)
//
//   目的: インスタンス ハンドルを保存して、メイン ウィンドウを作成します。
//
//   コメント:
//
//        この関数で、グローバル変数でインスタンス ハンドルを保存し、
//        メイン プログラム ウィンドウを作成および表示します。
//
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
{
   HWND hWnd;

   hInst = hInstance; // グローバル変数にインスタンス処理を格納します。

   const DWORD style = WS_OVERLAPPED | WS_CAPTION | WS_MINIMIZEBOX | WS_SYSMENU;
   RECT rect = { 0, 0, 640, 480 };
   AdjustWindowRect(&rect, style, TRUE);
   hWnd = CreateWindow(szWindowClass, szTitle, style,
      CW_USEDEFAULT, CW_USEDEFAULT,
	  rect.right - rect.left, rect.bottom - rect.top,
	  NULL, NULL, hInstance, NULL);

   if (!hWnd)
   {
      return FALSE;
   }

   ShowWindow(hWnd, nCmdShow);
   UpdateWindow(hWnd);

	hAppWnd = hWnd;

   return TRUE;
}

//
//  関数: WndProc(HWND, UINT, WPARAM, LPARAM)
//
//  目的:  メイン ウィンドウのメッセージを処理します。
//
//  WM_COMMAND	- アプリケーション メニューの処理
//  WM_PAINT	- メイン ウィンドウの描画
//  WM_DESTROY	- 中止メッセージを表示して戻る
//
//
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
	int wmId, wmEvent;
	PAINTSTRUCT ps;
	HDC hdc;

	switch (message)
	{
	case WM_COMMAND:
		wmId    = LOWORD(wParam);
		wmEvent = HIWORD(wParam);
		// 選択されたメニューの解析:
		switch (wmId)
		{
		case IDM_ABOUT:
			DialogBox(hInst, MAKEINTRESOURCE(IDD_ABOUTBOX), hWnd, About);
			break;
		case IDM_EXIT:
			DestroyWindow(hWnd);
			break;
		default:
			return DefWindowProc(hWnd, message, wParam, lParam);
		}
		break;

	case WM_CREATE:
		vmachine.call(vm_data, vm::data::ON_CREATE);
		break;

	case WM_PAINT:
		hdc = BeginPaint(hWnd, &ps);
		hPen = CreatePen(PS_SOLID, 0, RGB(0, 0, 0));
		hOldPen = (HPEN)SelectObject(hdc, hPen);
		vmachine.call(vm_data, vm::data::ON_PAINT, (int)(INT_PTR)hdc);
		SelectObject(hdc, hOldPen);
		DeleteObject(hPen);
		EndPaint(hWnd, &ps);
		break;

	case WM_DESTROY:
		vmachine.call(vm_data, vm::data::ON_DESTROY);
		PostQuitMessage(0);
		break;

	case WM_LBUTTONDOWN:
		SetCapture(hWnd);
		vmachine.call(vm_data, vm::data::ON_LBUTTONDOWN, (short)LOWORD(lParam), (short)HIWORD(lParam));
		break;

	case WM_LBUTTONUP:
		ReleaseCapture();
		vmachine.call(vm_data, vm::data::ON_LBUTTONUP, (short)LOWORD(lParam), (short)HIWORD(lParam));
		break;

	case WM_MOUSEMOVE:
		vmachine.call(vm_data, vm::data::ON_MOUSEMOVE, (short)LOWORD(lParam), (short)HIWORD(lParam));
		break;

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

// バージョン情報ボックスのメッセージ ハンドラです。
INT_PTR CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
	UNREFERENCED_PARAMETER(lParam);
	switch (message)
	{
	case WM_INITDIALOG:
		return (INT_PTR)TRUE;

	case WM_COMMAND:
		if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
		{
			EndDialog(hDlg, LOWORD(wParam));
			return (INT_PTR)TRUE;
		}
		break;
	}
	return (INT_PTR)FALSE;
}

// エラーメッセージのメッセージ ハンドラです。
INT_PTR CALLBACK ErrorList(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
	switch (message) {
	case WM_INITDIALOG:
		{
			compiler *driver = (compiler *)lParam;
			int nerror = min(driver->error_message_size(), 100);	// 100個に制限

			for (int i=0; i<nerror; i++) {
				SendDlgItemMessage(hDlg, IDC_LISTBOX, LB_ADDSTRING,
					0, (LPARAM)driver->error_message(i).c_str());
			}
		}
		return (INT_PTR)TRUE;

	case WM_COMMAND:
		if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL) {
			EndDialog(hDlg, LOWORD(wParam));
			return (INT_PTR)TRUE;
		}
		break;
	}
	return (INT_PTR)FALSE;
}